こんにちは、
下記は、mathematicaで亜鈴の図を、平面図と立体図で書いたものです。
平面図のように、立体図を横にする方法を教えてください。


<< "Graphics`ParametricPlot3D`"
ParametricPlot[{{r1 = 1 + 1*LegendreP[2, Cos[q]]; r1*Cos[q], r1*Sin[q]}}, {q, 0, 2*Pi}, AspectRatio -> Automatic];
r2[n_, thet_] := LegendreP[2, Cos[thet]]
Do[SphericalPlot3D[1 + r2[2, thet], {thet, 0, Pi, Pi/30}, {phi, 0, 2*Pi, Pi/15}]]