Advertisement
Guest User

Untitled

a guest
Jun 20th, 2019
71
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.34 KB | None | 0 0
  1. rmf = RegionMember@Triangle[{{1,2},{3,5},{5,7}}];
  2.  
  3. pts = RandomReal[7, {10^3, 2}];
  4.  
  5. Tally[rmf @ pts]
  6.  
  7. Graphics[{
  8. Red, Point[Pick[pts, rmf@pts, False]],
  9. Blue, Point[Pick[pts, rmf@pts, True]],
  10. Black, RegionBoundary@Triangle[{{1,2},{3,5},{5,7}}]
  11. }]
  12.  
  13. RegionMember[Triangle[{{1,2},{3,5},{5,7}}], {x, y}]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement