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

Send your opinions and comments to .