ConvexHull 

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]

posted @ 2012-07-18 19:12  geometry_  阅读(464)  评论(0)  编辑  收藏  举报