Eigenschaften von Netzen visualisieren 

Mit HighlightMesh können diverse Netzeigenschaften ganz leicht visualisiert werden.

Die gesamte Wolfram-Language Eingabe zeigenEingabe verbergen

In[1]:=

X mesh2d = DelaunayMesh[RandomReal[1, {200, 2}]]

Out[1]=

Geben Sie den Flächen unterschiedliche Farbschattierungen, je nach Größe ihres Flächeninhalts.

Die gesamte Wolfram-Language Eingabe zeigenEingabe verbergen

In[2]:=

X {minArea, maxArea} = {Min[#], Max[#]} &@ PropertyValue[{mesh2d, 2}, MeshCellMeasure]; Legended[HighlightMesh[mesh2d, Style @@@ ({{2, #}, ColorData["SunsetColors"][ Rescale[PropertyValue[{mesh2d, {2, #}}, MeshCellMeasure], {minArea, maxArea}]]} & /@ Range[MeshCellCount[mesh2d, 2]])], BarLegend[{"SunsetColors", {minArea, maxArea}}]]

Out[2]=

Schattieren Sie jede Fläche je nach ihrer Qualität.

Die gesamte Wolfram-Language Eingabe zeigenEingabe verbergen

In[3]:=

X {minQual, maxQual} = {Min[#], Max[#]} &@ PropertyValue[{mesh2d, 2}, MeshCellQuality]; Legended[HighlightMesh[mesh2d, Style @@@ ({{2, #}, ColorData["SunsetColors"][ Rescale[PropertyValue[{mesh2d, {2, #}}, MeshCellQuality], {minQual, maxQual}]]} & /@ Range[MeshCellCount[mesh2d, 2]])], BarLegend[{"SunsetColors", {minQual, maxQual}}]]

Out[3]=