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 + Cos[u]*Cos[v] - Cos[u]*Sin[2v])*Cos[u],
(1 + Cos[u/6]*Sin[v] - Sin[u/4]*Cos[4v])
*Sin[u]*Sin[v],
(Sin[u]*Sin[v]*Cos[v] + Cos[u]*Sin[2v]*Sin[v])},
{u, 0, 2Pi},
{v, 0, 2Pi},
ViewPoint -> {0.280, -1.790, 0.950},
PlotPoints -> {50, 50},
Boxed -> False,
Axes -> None]		 g1 = ParametricPlot3D[
{u Tan[v],
2 u Sin[v],
v + 2},
{u, -4, 4},
{v, -4Pi + 0.01, -7Pi/2 - 0.01},
PlotPoints -> {25, 50},
DisplayFunction -> Identity
];
g2 = ParametricPlot3D[
{u Tan[v],
2 u Sin[v],
v + 2},
{u, -4, 4},
{v, -7Pi/2 + 0.01, -5Pi/2 - 0.01},
PlotPoints -> {25, 50},
DisplayFunction -> Identity
];
g3 = ParametricPlot3D[
{u Tan[v],
2 u Sin[v],
v + 2},
{u, -4, 4},
{v, -5Pi/2 + 0.01, -3Pi/2 - 0.01},
PlotPoints -> {25, 50},
DisplayFunction -> Identity
];
g4 = ParametricPlot3D[
{u Tan[v],
2 u Sin[v],
v + 2},
{u, -4, 4},
{v, -3Pi/2 + 0.01, -Pi/2 - 0.01},
PlotPoints -> {25, 50},
DisplayFunction -> Identity
];
g5 = ParametricPlot3D[
{u Tan[v],
2 u Sin[v],
v + 2},
{u, -4, 4},
{v, -Pi/2 + 0.01, Pi/2 - 0.01},
PlotPoints -> {25, 50},
DisplayFunction -> Identity
];
g6 = ParametricPlot3D[
{u Tan[v],
2 u Sin[v],
v + 2},
{u, -4, 4},
{v, -Pi/2 + 0.01, Pi/2 - 0.01},
PlotPoints -> {25, 50},
DisplayFunction -> Identity
];
g7 = ParametricPlot3D[
{u Tan[v],
2 u Sin[v],
v + 2},
{u, -4, 4},
{v, Pi/2 + 0.01, 3Pi/2 - 0.01},
PlotPoints -> {25, 50},
DisplayFunction -> Identity
];
g7 = ParametricPlot3D[
{u Tan[v],
2 u Sin[v],
v + 2},
{u, -4, 4},
{v, 3Pi/2 + 0.01, 5Pi/2 - 0.01},
PlotPoints -> {25, 50},
DisplayFunction -> Identity
];
g8 = ParametricPlot3D[
{u Tan[v],
2 u Sin[v],
v + 2},
{u, -4, 4},
{v, 5Pi/2 + 0.01, 7Pi/2 - 0.01},
PlotPoints -> {25, 50},
DisplayFunction -> Identity
];
g9 = ParametricPlot3D[
{u Tan[v],
2 u Sin[v],
v + 2},
{u, -4, 4},
{v, 7Pi/2 + 0.01, 4Pi - 0.01},
PlotPoints -> {25, 50},
DisplayFunction -> Identity
];
Show[
{g1, g2, g3, g4, g5, g6, g7, g8, g9},
Boxed -> False,
Axes -> None,
DisplayFunction -> $DisplayFunction]		 ParametricPlot3D[
{Cos[u],
Sin[v],
Cos[u - v]},
{u, 0, 2Pi},
{v, 0, 2Pi},
ViewPoint -> {-1.997, 2.300, 2.218},
PlotPoints -> {50, 50},
Boxed -> False,
Axes -> None]		 ParametricPlot3D[
{Cos[Sin[x]] + Sin[y] Cos[x^2],
Sin[Cos[y]] - Cos[y] Sin[x^2],
x + y},
{x, -Pi, Pi},
{y, -Pi, Pi},
PlotPoints -> {50, 50},
Boxed -> False,
Axes -> None]

Back to Tohsuke Urabe Laboratory

Send your opinions and comments to .