領域上での点のサンプリング
バージョン11には,領域上で一様に点をサンプリングする機能および点から曲面を再構築する機能が含まれている.
スタンフォード(Stanford)うさぎ.
In[1]:=
![Click for copyable input](assets.ja/point-sampling-over-regions/In_86.png)
mesh = ExampleData[{"Geometry3D", "StanfordBunny"}, "Region"];
In[2]:=
![Click for copyable input](assets.ja/point-sampling-over-regions/In_87.png)
MeshCellCount[mesh]
Out[2]=
![](assets.ja/point-sampling-over-regions/O_58.png)
メッシュのダウンサンプリングを行う.
In[3]:=
![Click for copyable input](assets.ja/point-sampling-over-regions/In_88.png)
pointcloud = RandomPoint[mesh, 10000];
In[4]:=
![Click for copyable input](assets.ja/point-sampling-over-regions/In_89.png)
Graphics3D[{PointSize[Small], Point[pointcloud]}]
Out[4]=
![](assets.ja/point-sampling-over-regions/O_59.png)
より小さい曲面を点から再構築する.
In[5]:=
![Click for copyable input](assets.ja/point-sampling-over-regions/In_90.png)
ListSurfacePlot3D[pointcloud, MaxPlotPoints -> 40, Axes -> None,
Boxed -> False, Mesh -> None]
Out[5]=
![](assets.ja/point-sampling-over-regions/O_60.png)
In[6]:=
![Click for copyable input](assets.ja/point-sampling-over-regions/In_91.png)
ListSurfacePlot3D[pointcloud, MaxPlotPoints -> 40, Axes -> None,
Boxed -> False, Mesh -> None];
MeshCellCount[DiscretizeGraphics[%]]
Out[6]=
![](assets.ja/point-sampling-over-regions/O_61.png)