SHARE
TWEET

Untitled

a guest Jun 18th, 2019 61 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ttPoints = RandomReal[{-1, 1}, {15, 3}];
  2. Show[
  3.  Graphics3D[Tooltip[Sphere[2 #, .1], #] & /@ ttPoints]
  4.  
  5. , SphericalPlot3D[
  6.   1.5 + .1 Sin[5 ϕ], {θ, 0, Pi}, {ϕ, 0, 2 Pi}
  7.   , Mesh -> None
  8.   , PlotStyle -> Opacity[.25]
  9.   , BoxRatios -> {1, 1, 1}
  10.   ]
  11. ]
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