Netzkomponenten beschriften 

Die Komponenten eines Netzes können für illustrative Zwecke beschriftet werden.

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]=

Beschriftungen können mit HighlightMesh einem bereits bestehenden Netz hinzugefügt werden. Hier wird der Zell-Index für jede Kante des obigen Netzes beschriftet.

In[2]:=

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

Out[2]=

Beschriftungen sind nicht nur auf Strings beschränkt.

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]=

Beschriften Sie jede Fläche eines 2D-Netzes mit ihrem Flächeninhalt.

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]=