graphics - 图形中的凸包 - Mathematica

Question

尝试使用 ComputationalGeometry 包中的 PlanarGraphPlot 绘制 ConvexHull，但在图形中使用时不起作用。

关于如何使用 Graphics 绘制 ConvexHull 的任何想法？

Answer 1

Needs["ComputationalGeometry`"]
pts = RandomReal[{0, 10}, {60, 2}];

Graphics[
 {
  Point@pts,
  FaceForm[], EdgeForm[Red],
  Polygon@pts[[ConvexHull[pts]]]
  }
 ]

或者

cpts = pts[[ConvexHull[pts]]];
AppendTo[cpts, cpts[[1]]];

Graphics[
 {
  Point@pts,
  Red,
  Line@cpts
  }
 ]