SHARE
TWEET

Untitled

a guest Jun 27th, 2019 60 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. h = 10; r = 2;
  2.  
  3. pts = RandomPoint[Sphere[{0, 0, h}, r],
  4.    1000, {{-r, r}, {-r, r}, {h, h + r}}];
  5.  
  6. Graphics3D[{Cylinder[{{0, 0, 0}, {0, 0, h}}, r], Point[pts]}]
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top