ConvexHull

weixin_30342827

于 2012-07-18 19:12:00 发布

阅读量74

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/geometry-/archive/2012/07/18/2598003.html

randompointlist = {RandomReal[{0, 1}, {1000}], 
   RandomReal[{0, 1}, {1000}]};
randompointlist = Transpose[randompointlist];
randompointlistGraphs = 
  Table[Graphics[{RGBColor[RandomReal[], RandomReal[], RandomReal[]], 
     PointSize[RandomReal[]/20.], Point[randompointlist[[i]]]}], {i, 
    1, Length[randompointlist]}];
Needs["ComputationalGeometry`"]
hullrandompointlist = ConvexHull[randompointlist];
hullpointlistGraphics = Graphics[
   Line[
    Table[
     randompointlist[[
       hullrandompointlist[[i]]
       ]]
     , {i, 1, Length[hullrandompointlist]}]]];
Show[randompointlistGraphs, hullpointlistGraphics]