Urabe Lab. |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|Epilogueกก

ParametricPlot3D[
{4Cos[u](1 + Sin[u]) + 3(1 - Cos[v]/2)(Cos[v + Pi]),
9Sin[v],
4(1 - Cos[u]/3)Sin[v]},
{u, 0, 2Pi},
{v, 0, 2Pi},
PlotPoints -> {50, 50},
Boxed -> False,
Axes -> None]
ParametricPlot3D[
{u*Sin[u] + (1 - Cos[u]),
v + (1 - Cos[u]),
Sin[u] + 4Cos[v]},
{u, -2Pi, 2Pi},
{v, -3/2Pi, 3/2Pi},
ViewPoint -> {5, 5, 20},
PlotPoints -> {50, 50},
Boxed -> False,
Axes -> None]
ParametricPlot3D[
{3 Sin[u] - u^2 Sin[u],
2 Cos[v] - 3 Sin[v],
-3 Cos[u] Cos[v]},
{u, -Pi, Pi},
{v, -Pi, Pi},
Axes -> None,
ViewPoint -> {4.234, -1.992, 2.003},
PlotPoints -> {50, 50},
Boxed -> False,
Axes -> None]

Back to Tohsuke Urabe Laboratory


Send your opinions and comments to .