图形中的凸凹 - Mathematica [英] ConvexHull in Graphics - Mathematica

问题描述

有关如何使用图形绘制ConvexHull的任何想法？

解决方案

  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]]]; 
 
图形[
 {
 Point @ pts，
 Red，
 Line @ cpts 
} 
] 
  

Trying to plot a ConvexHull Using PlanarGraphPlot from the ComputationalGeometry package, it does not work when used in graphics.

Any Idea on how to plot the ConvexHull using Graphics ?

解决方案

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
  }
 ]

这篇关于图形中的凸凹 - Mathematica的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！