卜部東介研究室 |1|2|3|4|5|6|7|8|9|10|11|12|13|14|15|16|17|18|19|20|21|22|23|24|25|終わりに　

ParametricPlot3D[
{If[Pi < u <= 2 Pi,
6 Cos[u] (1 + Sin[u]) + 4 (1 - Cos[u] / 2) Cos[v + Pi],
6 Cos[u] (1 + Sin[u]) + 4 (1 - Cos[u] / 2) Cos[u] Cos[v]],
If[Pi < u <= 2 Pi,
16 Sin[u],
16 Sin[u] + 4 (1 - Cos[u] / 2) Sin[u] Cos[v]],
4 (1 - Cos[u] / 2) Sin[v]},
{u, 0, 2 Pi},
{v, 0, 2 Pi},
PlotPoints -> {50, 50},
Boxed -> False,
Axes -> None]		 ParametricPlot3D[
{6Cos[u](1 + Sin[u]) + 4(1 - Cos[u]/2)(Cos[v + Pi]),
16Sin[u],
4(1 - Cos[u]/2)Sin[v]},
{u, 0, 2Pi},
{v, 0, 2Pi},
PlotPoints -> {50, 50},
Boxed -> False,
Axes -> None]		 ParametricPlot3D[
{6Cos[u] (1 + Sin[u]) + 4(1 - Cos[u]/2) (Cos[v + Pi]),
16Sin[u],
4(1 - Cos[u]/2) Sin[v]},
{u, Pi, 2Pi},
{v, 0, 2Pi},
PlotPoints -> {50, 50},
Boxed -> False,
Axes -> None]

卜部東介研究室に戻る

ご意見、ご感想をぜひ まで！