Delaunay Triangulation

Author

Eric W. Weisstein
April 16, 2004

This notebook downloaded from http://mathworld.wolfram.com/notebooks/ComputationalGeometry/DelaunayTriangulation.nb.

For more information, see Eric's MathWorld entry http://mathworld.wolfram.com/DelaunayTriangulation.html.

©2005 Wolfram Research, Inc. except for portions noted otherwise

Initialization

<<DiscreteMath`ComputationalGeometry`

Figures

data2D=Table[Random[Real,{0,10}],{10},{2}]

a={RGBColor[1,0,0],Drop[DiagramPlot[data2D,LabelPoints->False,
DisplayFunction->Identity][[1]],1]} /. PointSize[x_]:>PointSize[.04];
b={RGBColor[0,0,1],PlanarGraphPlot[data2D,LabelPoints->False,DisplayFunction->Identity][[1]]}/. PointSize[x_]:>PointSize[.04];

Show[GraphicsArray[Show[Graphics[#],DisplayFunction->Identity,AspectRatio->Automatic,PlotRange->{{-4,16},{-3,12}}]&/@{b,{a,RGBColor[0,0,1],b[[2,1]]},{a,b}}]]