Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Manipulate[
- ParametricPlot3D[{Sin[theta] Cos[phi],
- Sin[theta] Sin[phi], Cos[theta]},
- {theta, 0, t}, {phi, 0, p},
- PlotRange -> {{-1, 1}, {-1, 1}, {-1, 1}}],
- {t, 0.1, Pi}, {p, 0.1, 2 Pi}]
- [f,t] = meshgrid(linspace(0,2*pi,361),linspace(0,pi,361));
- x = sin(t)*cos(f);
- y = sin(t)*sin(f);
- z = cos(t);
- surf(x,y,z)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement