尝试使用计算几何包中的平面图绘制凸包,但在图形中使用时不起作用。
关于如何使用 Graphics 绘制 ConvexHull 有什么想法吗?
Needs["ComputationalGeometry`"]
pts = RandomReal[{0, 10}, {60, 2}];
Graphics[
{
Point@pts,
FaceForm[], EdgeForm[Red],
Polygon@pts[[ConvexHull[pts]]]
}
]
or
cpts = pts[[ConvexHull[pts]]];
AppendTo[cpts, cpts[[1]]];
Graphics[
{
Point@pts,
Red,
Line@cpts
}
]
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)