>>70
これで如何
http://www.wolframalpha.com/input/?i=ParametricPlot3D[{x%2CSqrt[1-x^2]Cos[20Pi*x]%2CSqrt[1-x^2]Sin[20Pi*x]}%2C{x%2C-1%2C1}]