Graph 用不同的范数绘制Voronoidigram

我在mathematica上遇到了一个大问题（使用版本8）。 绘制Voronoi图是很简单的事情，但是改变范数怎么样

<< DiscreteMath`ComputationalGeometry`
data2D = {{4.4, 14}, {6.7, 15.25}, {6.9, 12.8}, {2.1, 11.1}, {9.5, 
14.9}, {13.2, 11.9}, {10.3, 12.3}, {6.8, 9.5}, {3.3, 7.7}, {0.6, 
5.1}, {5.3, 2.4}, {8.45, 4.7}, {11.5, 9.6}, {13.8, 7.3}, {12.9, 
3.1}, {11, 1.1}};
DiagramPlot[data2D, LabelPoints -> False]

False]

给出了L_2-范数（欧几里德范数）的Voronoi图。 我需要L_1-范数和L_无穷大范数对应的图表…

来自（仅近似值）：

---

注意：请注意，Voronoi多边形的凸性属性丢失了…

快速查看代码（在v.7中）表明规范是手动实现的，而不是使用

Norm

。如果它使用的是

Norm

，您可以通过将代码包装在

块[{Norm=}，…]

中来覆盖它。看来你得自己动手了我会的，如果我知道怎么做。。。我不明白你的意思…你用英语说什么schreiben@belisarius接近，不需要“祖”here@rcollyer我刚升级到75美元。。。值得一看的是，你是否能让你的顾问付钱it@yoda，这是我的机器，所以我会为安装它感到难过。我必须看看它有什么交易，因为他们有很多学生/教师交易，我认为mma也包括在内。

ColorCombine[{Image[ WatershedComponents[
    DistanceTransform[i, DistanceFunction -> ManhattanDistance]], 
    "Bit"], i, i}]