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[
{(1.7 + 0.4 Sin[u]) Sin[v],
(1.7 + 0.4 Sin[u]),
0.4 Cos[u] + Exp[v/3]},
{u, - Pi, Pi},
{v, -2 Pi, 2 Pi},
ViewPoint -> {1.212, 1.489, -1.372},
PlotPoints -> {25, 50},
Boxed -> False,
Axes -> None]		 ParametricPlot3D[
{(5 + 0.9 Cos[u]) Cos[v],
(3 + 0.9 Cos[u]) Sin[1.5v],
0.5 Sin[u] + Exp[v/4]},
{u, 0, 2Pi},
{v, -3 Pi, 3 Pi},
PlotPoints -> {25, 100},
Boxed -> False,
Axes -> None]		 ParametricPlot3D[
{(0.1 + 0.7Sin[u])1.5Sin[v],
(0.1 + 0.7Cos[u])1.5Sin[v],
0.5 Sin[u] + v/5},
{u, 0, 2 Pi},
{v, -3 Pi, 3 Pi},
ViewPoint -> {0, -2, 0},
PlotPoints -> {50, 50},
Boxed -> False,
Axes -> None]		 ParametricPlot3D[
{(0.1 + 0.7Sin[u])1.5Sin[v],
(0.1 + 0.7Cos[u])1.5Sin[v],
0.5 Sin[u] + v/5},
{u, 0, 2 Pi},
{v, -3 Pi, 3 Pi},
LightSources -> {
{{1, 1, 1}, RGBColor[1, 0, 0]},
{{1, -1, 1}, RGBColor[0, 0, 1]}
},
ViewPoint -> {0, -2, 0},
PlotPoints -> {50, 50},
Boxed -> False,
Axes -> None]

Back to Tohsuke Urabe Laboratory

Send your opinions and comments to .