ParametricPlot[{(4+Sin[20t])Cos[t],(4+Sin[20t])Sin[t],Cos[20t]},{t,0,2Pi}]