ParametricPlot3D[{x,Sqrt[1-x^2]Cos[20Pi*x],Sqrt[1-x^2]Sin[20Pi*x]},{x,-1,1}]