Spherical Coordinates

Manipulate[Show[Graphics3D[{GrayLevel[.3],PointSize[.02],Point[{0,0,0}],RGBColor[.5,0,0],PointSize[.02],Point[{r Cos[phi] Sin[theta],r Sin[phi] Sin[theta],r Cos[theta]}],Thickness[.005],RGBColor[.5,.7,1],Line[{-1.5 {r Cos[phi] Sin[theta],r Sin[phi] Sin[theta],r Cos[theta]},1.5 {r Cos[phi] Sin[theta],r Sin[phi] Sin[theta],r Cos[theta]}}],If[ax,{Gray,Line[{{-6,0,0},{6,0,0}}],Line[{{0,-6,0},{0,6,0}}],Line[{{0,0,-6},{0,0,6}}]},{}],Yellow,Opacity[.5],Sphere[{0,0,0},r]}],ParametricPlot3D[{r Cos[t] Sin[theta],r Sin[t] Sin[theta],r Cos[theta]},{t,0,2 Pi}],ParametricPlot3D[{r Cos[phi] Sin[t],r Sin[phi] Sin[t],r Cos[t]},{t,0,2 Pi}],PlotLabel->Column[{Row[{"(r, ϕ, θ) = ("<>ToString[NumberForm[Chop@r,{2,1},NumberPadding->{"","0"}]]<>", "<>ToString[NumberForm[Chop@phi/Pi,{2,1},NumberPadding->{"","0"},ExponentFunction->(Null&)]]<>" π, "<>ToString[NumberForm[Chop@theta/Pi,{2,1},NumberPadding->{"","0"},ExponentFunction->(Null&)]]<>" π)"}],Row[{"(x, y, z) = ("<>ToString[NumberForm[Chop@r Cos[phi] Sin[theta],{2,1},NumberPadding->{"","0"},ExponentFunction->(Null&)]]<>", "<>ToString[NumberForm[Chop@r Sin[phi] Sin[theta],{2,1},NumberPadding->{"","0"},ExponentFunction->(Null&)]]<>", "<>ToString[NumberForm[Chop@r Cos[theta],{2,1},NumberPadding->{"","0"},ExponentFunction->(Null&)]]<>")"}]},Center],PlotRange->{{-6,6},{-6,6},{-6,6}},ImageSize->{500,400},Boxed->False,SphericalRegion->True,ViewAngle->π/12,ViewPoint->{Pi,Pi/2,2}],{{r,5.,"r"},2.,5.},{{phi,0,"ϕ"},0,2. Pi},{{theta,π/4.,"θ"},0,1. Pi},{{ax,True,"show axes"},{True,False}}]