ParametricPlot3D[{4Cos[g]Cos[b], 4Cos[g]Sin[b], 4 Sin[g]}, {b,0,2pi}, {g, -pi/2, pi/2}]