>>136
すいません。文字化けしました。下記の通り修正します。
こんにちは、
風船から、亜鈴の形になり、また亜鈴から風船になる。
これを繰り返すようなアニメーションは、どうしたらできるでしょうか？

<<Graphics`ParametricPlot3D`
For[a1=0,a1<2,a1++;
r0=1;

ParametricPlot[{{r1=r0+a1*LegendreP[2,Cos[q]];r1 Cos[q],r1 Sin[q]}},{q,0,2Pi},AspectRatio->Automatic];

SphericalPlot3D[r0+Re[a1]*LegendreP[2,Cos[thet]],{thet,0,Pi,Pi/30},{phi,0,2*Pi,Pi/15},ViewPoint->{-3.382,0.096,0.076},ViewVertical->{0,1,0},ImageSize®300]
];