タイトル

kyuu = ParametricPlot3D[{Cos[t] Cos[u], Sin[t] Cos[u], Sin[u]}, {t, 0, 4Pi}, {u, -Pi/2, Pi/2}]

x[a_, b_, c_, d_] := a Sin[b c + d] ;

y[e_, f_, g_, h_] := e Sin[f g + h] ;

z[a_, b_, c_, d_] := a Sin[b c + d] ;

zu1 = ParametricPlot3D[{3/2 x[s, 2, t, Pi/6], 3/2 y[s, 2, t, 0], 3/2 z[s, 2, t, 0]}, {t, 0, 2Pi}, {s, -Pi, Pi}, AspectRatio -> Automatic, Axes -> None, Boxed -> False]

zu2 = ParametricPlot3D[{s Cos[t], s Sin[t] Sin[s], s Sin[t]}, {t, -Pi/2, Pi/2}, {s, -2Pi, 2 Pi}, PlotRange -> Automatic]

Show[kyuu, zu1]

Show[zu1, kyuu, zu2]

[Graphics:HTMLFiles/index_17.gif]

コメント
球体を取り巻く環境・・・宇宙にありそう？？

３年J組榎本　寛昭