Advertisement
Guest User

Untitled

a guest
Feb 20th, 2017
54
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.32 KB | None | 0 0
  1. Manipulate[
  2. ParametricPlot3D[{Sin[theta] Cos[phi],
  3. Sin[theta] Sin[phi], Cos[theta]},
  4. {theta, 0, t}, {phi, 0, p},
  5. PlotRange -> {{-1, 1}, {-1, 1}, {-1, 1}}],
  6. {t, 0.1, Pi}, {p, 0.1, 2 Pi}]
  7.  
  8. [f,t] = meshgrid(linspace(0,2*pi,361),linspace(0,pi,361));
  9. x = sin(t)*cos(f);
  10. y = sin(t)*sin(f);
  11. z = cos(t);
  12. surf(x,y,z)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement