Mathematica - "삼각 측량"- 그래프에 삼각형 격자 그리기

Question

첨부 된 그림은 모두 다음과 같이 말합니다. 삼각형 격자가 형성되는 방식으로 플롯 한 모든 점을 연결하고 싶습니다.

결과가 멋지고 거의 규칙적인 그래프 인 한 삼각형에 대한 대안이 가능합니다.

Answer 1

은 코멘트에서 언급 벨리 사리우스으로, 매스 매 티카에서 삼각 측량을위한 명령이 있습니다. PlanarGraphPlot이라고합니다.

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

: 아마도

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

PlanarGraphPlot[g, LabelPoints -> False] 

또는 Show을 사용하면 서로의 위에 그들을 플롯 할 수 있습니다 : 그것은 작동하는 방법이다