Voronoi diagram: Difference between revisions

Content added Content deleted
Line 317: Line 317:
end function
end function
</lang>
</lang>

=={{header|Mathematica}}==
<lang Mathematica>Needs["ComputationalGeometry`"]
DiagramPlot[{{4.4, 14}, {6.7, 15.25}, {6.9, 12.8}, {2.1, 11.1}, {9.5, 14.9}, {13.2, 11.9}, {10.3, 12.3},
{6.8, 9.5}, {3.3, 7.7}, {0.6, 5.1}, {5.3, 2.4}, {8.45, 4.7}, {11.5, 9.6}, {13.8, 7.3}, {12.9, 3.1}, {11, 1.1}}]</lang>
[[File:mma_voronoi.png|Right]]


=={{header|Prolog}}==
=={{header|Prolog}}==