WolframAlpha computational knowledge AI
ParametricPlot3D[{Cos[50 t] Cos[t], Sin[50 t] Cos[t], Sin[t]}, {t, -Pi/2, Pi/2}]