ParametricPlot3D[{Sin[t]*Cos[20*t],Sin[t]*Sin[20*t],Cos[t]},{t,0,Pi}]