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[ {Cos[t](2 - Cos[t/2] Sin[4u] + Sin[t/3] Sin[u/3]), Sin[t], Cos[5t/2] Sin[3u/2] - Cos[3t/2] }, {t, -Pi/2, Pi/2}, {u, 0, 3Pi}, PlotPoints -> {50, 50}, Boxed -> False, Axes -> None]	ParametricPlot3D[ {Cos[t](Cos[2t/3] Sin[u] - Sin[2t/3] Sin[4u]), Sin[t](Cos[2t/3] Sin[4u] - Sin[2t/3] Sin[u]), Cos[t/3] Sin[u] + Sin[t/3] Cos[u]}, {t, -Pi/4, 3Pi/2}, {u, 0, 2Pi}, PlotPoints -> {50, 50}, Boxed -> False, Axes -> None]	ParametricPlot3D[ {Cos[t](2 + Cos[2t]Sin[u/2] - Sin[2t]Sin[2u]), Sin[t](2 + Cos[2t]Sin[u/2] - Sin[2t]Sin[2u]), Cos[2t]Sin[u] + Sin[t]Cos[2u]}, {t, -Pi, 2Pi/2}, {u, 0, 2Pi}, PlotPoints -> {50, 50}, Boxed -> False, Axes -> None]	ParametricPlot3D[ {Cos[t](2 + Cos[t/2] Sin[u] - Sin[t/2] Sin[u]), Sin[t](4 + Cos[t/2] Sin[u] - Sin[t/2] Sin[u]), Cos[t/4t] Sin[u] + Sin[t/2] Cos[u]}, {t, -Pi/4, 3Pi/4}, {u, 0, 2Pi}, PlotPoints -> {50, 50}, Boxed -> False, Axes -> None]

Send your opinions and comments to .