メッシュコンポーネントのラベル付け 

メッシュのコンポーネントは描写のためにラベル付けすることができる．

In[1]:=

X mesh2d = MeshRegion[{{0, 0}, {1, 0}, {1, 1}, {0, 1}}, Polygon[{{1, 2, 3}, {3, 4, 1}}], MeshCellLabel -> {0 -> "Index"}]

Out[1]=

すでに生成されたメッシュにはHighlightMeshを使ってラベル付けすることができる．以下では先のメッシュの各辺に対するセル指標がラベル付けされている．

In[2]:=

X HighlightMesh[mesh2d, Labeled[1, "CellIndex"]]

Out[2]=

ラベルは文字列に限らない．

In[3]:=

X MeshRegion[{{0, 0}, {1, 0}, {1, 1}, {0, 1}}, {Labeled[ Triangle[{1, 2, 3}], Sqrt[x^2 + y^2]], Labeled[Triangle[{3, 4, 1}], Red]}]

Out[3]=

2Dメッシュの各面にその面積のラベルを付ける．

In[4]:=

X SeedRandom[1234]; mr = DelaunayMesh[RandomReal[1, {8, 2}]]; HighlightMesh[mr, Labeled[{2, #}, NumberForm[ PropertyValue[{mr, {2, #}}, MeshCellMeasure], {3, 3}]] & /@ Range[MeshCellCount[mr, 2]]]

Out[4]=