バネ

ParametricPlot3D[{(3 + 1/5Cos[a]) Cos[b], (3 + 1/2Cos[a]) Sin[b], 1/2 Sin[a] + b/2},
{a, 0, 2 Pi}, {b, -4Pi, 4 Pi}, PlotPoints -> 40]