我所附的图片应该说明了一切:我想将我绘制的所有点连接起来,形成三角形网格。
三角形的替代方案也是可能的,只要结果是一个漂亮的、几乎规则的图形。
最佳答案
正如贝利撒留在评论中提到的,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}]]
关于grid - Mathematica - "Triangulation"- 在图表上绘制三角形网格,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/17791692/