Peter with all these equations don't hesitate to post again, give us your favorite exercise work.
Table[ParametricPlot3D[{(3 + z Sin[n \[Theta]]) Cos[ \[Theta]], (3 +
z Sin[n \[Theta]]) Sin[\[Theta]], z Cos[n \[Theta]]}, {\[Theta],
0, 2 Pi}, {z, -1, 1}, Boxed -> False, Axes -> False], {n, 0, 5,
1/2}]
