Mathematica delaunay重叠

Question

我有一组要点：

    Data2D = {{-4.432561, 11.687700000000001}, 
   {-3., 5.196152}, 
   {-6.25,10.825320000000001}, 
   {-5.3412805,11.256510000000002}, 
   {-3.9550406666666666,9.523850666666668}, 
   {-3.4775203333333335,7.360001333333334},
   {-4.083333333333333, 7.072541333333334}};

当我调用PlanarGraphPlotData2D时，元素(3,5,7)和(2,3,6)之间存在重叠。

这是图片"http://i.stack.imgur.com/gvVBQ.png“

当我添加

{-5.166666666666666, 8.948930666666667}, {-4.560853666666667,9.236390666666667} 

对于Data2D，Mathematica不会给出任何结果！

Answer 1

不管怎样，我可以复制结果。在运行PlanarGraphPlot[]时，我也得到了以下错误：

生成的

编译函数：：cflist:非张量对象；继续进行未编译的计算。

问题似乎出在DelauneyTriangulation[]函数中，因为在Data2D上运行该函数时，我得到了相同的错误(以及部分/无输出)。显然，据我所知，它失败的原因是因为你的一堆点太接近共线了。我尝试了以下方法，效果很好：

PlanarGraphPlot[Data2D + Table[ {Random[],Random[]}, {Length[Data2D]}]]

当然，这不是您想要的，并且Mathematica函数应该可以正确地完成任务，而不会出现问题。我会提交一份关于这方面的bug报告，但我不会屏息等待它很快得到修复。在此之前，实现您自己的triangulation algorithm可能会更容易一些。