Malhas de Delaunay 

Crie uma malha de Delaunay a partir de um conjunto de pontos.

In[1]:=

X DelaunayMesh[RandomReal[1, {20, 2}]]

Out[1]=

O mesmo pode ser feito em 1D ou 3D.

In[2]:=

X DelaunayMesh[RandomReal[1, {10, 1}]]

Out[2]=

In[3]:=

X DelaunayMesh[RandomReal[1, {30, 3}]]

Out[3]=

Uma malha de Delaunay é definida pela seguinte propriedade: para cada triângulo, a circunferência que circunscreve o triângulo não contém nenhum dos outros pontos de input.

mostre o input completo de Wolfram Languageoculte o input

In[4]:=

X SeedRandom[1234]; \[ScriptCapitalR] = DelaunayMesh[RandomReal[1, {8, 2}]]; circles = Circumsphere @@@ Normal@GraphicsComplex[MeshCoordinates[\[ScriptCapitalR]], MeshCells[\[ScriptCapitalR], 2]]; Show[HighlightMesh[\[ScriptCapitalR], {Style[0, Directive[PointSize[Large], Red]], Style[1, Gray], Style[2, LightGray]}], Graphics[{Orange, circles}], PlotRange -> {{0, 1}, {0, 1}}]

Out[4]=