Spherical Coordinates

This notebook shows some 3D graphics that use spherical coordinates.

p = {rho Sin[phi] Cos[theta], rho Sin[phi] Sin[theta], rho Cos[phi]};

p1 = p /. rho->1;

s1 = ParametricPlot3D[p1, {theta,0,Pi/2},{phi,0,Pi/2}]

p2 = p /. rho->2;

s2 = ParametricPlot3D[p2, {theta,0,Pi/2},{phi,0,Pi/2}]

Show[{s1, s2}]

s3 = ParametricPlot3D[p1, {theta,0,Pi},{phi,0,Pi}]