ホットドッグ？

a1 = ParametricPlot3D[{2 Cos[t] Cos[s], Sin[t] Cos[2 s], Sin[t] Sin[2 s]}, {t, -Pi/2, Pi/2}, {s, 0, 2 Pi}, PlotPoints -> 100, Boxed -> False, Axes -> None]

[Graphics:HTMLFiles/index_2.gif]

a2 = ParametricPlot3D[            &nb ... 3 Cos[t], 1/3 Sin[t]}, {s, -40, 40}, {t, 0, 2π}, PlotPoints -> 50, Boxed -> False, Axes -> None ]

[Graphics:HTMLFiles/index_5.gif]

[Graphics:HTMLFiles/index_9.gif]

ViewPoint (- Graphics3D -) -> {2.897, 1.779, 0.065}

コメント
このグラフはホットドッグをモデルにしました。・・・

３年J組谷野由宗