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/4 Sin[u ] ,
Cos[u]Sin[v]Cos[v]Sin[u]Cos[v],
Cos[v]Sin[u] Cos[u]Sin[v] },
{u, 0, 2Pi},
{v, 0, 2 Pi},
ViewPoint -> {1.300, -2.400, 2.000},
PlotPoints -> {50, 50},
Boxed -> False,
Axes -> None]		 ParametricPlot3D[
{2/3Cos[ u] *Sin[u],
1/3 Cos[u + 1/2Pi]Sin[v + 1/2 u]Cos[v]Sin[u] + 1/2Cos[u],
Cos[v]Sin[u] Cos[u]Sin[v] + Sin[v/2]},
{u, 0, 2Pi},
{v, 0, 2 Pi},
ViewPoint -> {1.109, 0.464, -3.163},
PlotPoints -> {50, 50},
Boxed -> False,
Axes -> None]		 g1 = ParametricPlot3D[
{2Sin[x],
Cos[3x]/x + y/2,
2Cos[3y]},
{x, -Pi, -0.01},
{y, 1, 2Pi},
PlotPoints -> {25, 50},
DisplayFunction -> Identity];
g2 = ParametricPlot3D[
{2Sin[x],
Cos[3x]/x + y/2,
2Cos[3y]},
{x, 0.01, Pi},
{y, 1, 2Pi},
PlotPoints -> {25, 50},
DisplayFunction -> Identity];
Show[
{g1, g2},
ViewPoint -> {1.299, 0.445, -8.885},
Boxed -> False,
Axes -> None,
DisplayFunction -> $DisplayFunction]

Back to Tohsuke Urabe Laboratory

Send your opinions and comments to .