grid - Mathematica - “三角剖分” - 在图表上绘制三角网格

Question

我附上的图片应该说明一切：我想将我绘制的所有点连接起来，形成一个三角形网格。

三角形的替代方案也是可能的，只要结果是一个漂亮的、几乎规则的图形。

Answer 1

正如贝利撒留在评论中提到的，在 Mathematica 中有一个三角测量命令。它被称为PlanarGraphPlot。这是它的工作原理：

Needs["ComputationalGeometry`"]
g = Table[RandomReal[{0, 100}, 2], {i, 1, 100}];
ListPlot[g, AspectRatio -> 1]

PlanarGraphPlot[g, LabelPoints -> False]

或者，也许，Show您可以将它们绘制在彼此之上：

Show[PlanarGraphPlot[g, LabelPoints -> False], ListPlot[g, AspectRatio -> 1, PlotStyle -> {Large, Red}]]