Netzkomponenten gestalten 

Die Komponenten eines Netzes können für illustrative Zwecke in unterschiedlichen Stilen dargestellt werden.

In[1]:=

X MeshRegion[{{0, 0}, {1, 0}, {0, 1}}, Polygon[{1, 2, 3}], MeshCellStyle -> {1 -> Red}]

Out[1]=

Der Stil eines bereits bestehenden Netz kann mit HighlightMesh bestimmt werden.

In[2]:=

X mesh2d = DelaunayMesh[RandomReal[1, {20, 2}]]; HighlightMesh[mesh2d, Style[{2, {1, 2, 3, 4, 5}}, Red]]

Out[2]=

Macht man die Flächen eines 3D-Netzes durchsichtig, wird dessen innere Struktur sichtbar.

In[3]:=

X HighlightMesh[DelaunayMesh[RandomReal[1, {10, 3}]], Style[2, Opacity[0.3]]]

Out[3]=

Färben Sie die Flächen eines Polyeders entsprechend der Anzahl seiner Ecken.

Die gesamte Wolfram-Language Eingabe zeigenEingabe verbergen

In[4]:=

X ColoredPolyhedron[name_String] := Module[{faces}, faces = GatherBy[PolyhedronData[name, "FaceIndices"], Length[#] &]; BoundaryMeshRegion[PolyhedronData[name, "VertexCoordinates"], Table[Style[Polygon[faces[[i]]], ColorData[100, i]], {i, Length[faces]}]] ]

In[5]:=

X Grid[Partition[ ColoredPolyhedron /@ Take[PolyhedronData["Archimedean"], 12], 4]]

Out[5]=