卜部東介研究室 |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[
{6Cos[u/3] (1 + Sin[u]) + 4(1 - u*Cos[u]/2) (Cos[v + Pi]),
8Cos[3u]*Sinh[Cos[2v]],
4(1 - Cos[u]/2) Sin[2v]},
{u, 0, 2Pi},
{v, 0, 2Pi},
PlotPoints -> {50, 50},
Boxed -> False,
Axes -> None]
ParametricPlot3D[
{Sin[v]Cos[u],
Cos[v]Cos[u],
Cos[v]Sin[u]},
{u, 1, 3Pi/2},
{v, 1, 3Pi/2},
PlotPoints -> {50, 50},
Boxed -> False,
Axes -> None]
ParametricPlot3D[
{(2 + 0.8 Cos[u]) Cos[v],
(2 + 0.8 Cos[u]) Sin[v],
0.8 Sin[u] + v/2},
{u, 0, 2 Pi},
{v, -3Pi, 3 Pi},
PlotPoints -> {50, 50},
Boxed -> False,
Axes -> None]

卜部東介研究室に戻る


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