Mathematica - 「三角測量」 - 在圖上繪製三角形網格

我附加的圖片應該說明一切：我想鏈接所有繪製的點，形成一個三角形網格。Mathematica - 「三角測量」 - 在圖上繪製三角形網格

只要結果是一個很好的幾乎正則圖，三角形的替代方法也是可能的。

enter image description here

2013-07-22 LBogaardt

查看對「PlanarGraphPlot []'的幫助' –

作爲評價提到貝利薩留，存在一種用於在數學三角測量的命令。它被稱爲PlanarGraphPlot。這是如何工作的：

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

A random graph

PlanarGraphPlot[g, LabelPoints -> False]

triangulated graph

或許，使用Show你可以繪製他們在彼此的頂部：

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

enter image description here

來源

2013-07-23 07:04:20 Ali

太棒了！謝謝Ali和belisarius。有沒有一種方法可以從這個圖中獲得AdjacencyMatrix。我注意到，DelaunayTriangulation []給出的列表格式與AdjacencyList格式不同，絕對不是AdjacencyMatrix格式。我最終需要1個矩陣，其所有座標{{x1，y1}，{x2，y2}，...}和1個矩陣的邊/鏈接{{0,0,1,1,0}，{ 0,1,0,0}，...}，即AdjacencyMatrix。有關如何從DelaunayTriangulation []到AdjancencyMatrix的想法？ – LBogaardt

@LauBo：如果它給出你正在尋找的東西，你應該「接受」答案。（點擊選票左側的空白複選標記） –

Mathematica - 「三角測量」 - 在圖上繪製三角形網格

回答

相關問題