Guest User

Untitled

a guest
Jan 20th, 2018
101
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.23 KB | None | 0 0
  1. pts = RandomReal[{-1, 1}, {50, 2}];
  2.  
  3. Show[ConvexHullMesh[pts], ListPlot[pts]]
  4.  
  5. SeedRandom[1];
  6. pts = RandomReal[{-1, 1}, {50, 2}];
  7. Show[Graphics@{LightBlue, EdgeForm@Lighter@Blue,
  8. Polygon@Deintersect[pts]}, ListPlot[pts]]
Add Comment
Please, Sign In to add comment