卜部東介研究室 |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|終わりに　

g1 = ParametricPlot3D[ {Tan[s](0.8 + Sin[t]), Sin[t](4 - Sin[t]), Sin[s](4 - Cos[t])}, {s, -Pi/2 + 0.01, Pi/2 - 0.01}, {t, 0, 2Pi}, PlotPoints -> {50, 50}, DisplayFunction -> Identity]; g2 = ParametricPlot3D[ {Tan[s](0.8 + Sin[t]), Sin[t](4 - Sin[t]), Sin[s](4 - Cos[t])}, {s, Pi/2 + 0.01, 3Pi/2 - 0.01}, {t, 0, 2Pi}, PlotPoints -> {50, 50}, DisplayFunction -> Identity]; Show[{g1, g2}, ViewPoint -> {0.1, 2.0, 0.0}, Boxed -> False, Axes -> None, DisplayFunction -> $DisplayFunction]	ParametricPlot3D[ {2(3 + Cos[v])Cos[u], 2Sin[2u]/(1 + Cos[v^2]), 2Exp[2Sin[v]]}, {u, 0, 2Pi}, {v, 0, 2Pi}, ViewPoint -> {5.199, -3.074, 2.900}, PlotPoints -> {50, 50}, Boxed -> False, Axes -> None]	ParametricPlot3D[ {Cos[t] Sec[u]/u , Sin[t] Sec[u], Tan[u]/2u}, {t, 0, 2 Pi}, {u, 0.01, Pi/2}, ViewPoint -> {2, 3, 1}, PlotPoints -> {50, 50}, Boxed -> False, Axes -> None]	ParametricPlot3D[ {t*Sin[s]*Cos[t], t*Sin[s]*Sin[t], 1.5*t*Cos[s]}, {s, 0, 4Pi}, {t, 0, 2Pi}, ViewPoint -> {2, 1, 0.7}, PlotPoints -> {50, 50}, Boxed -> False, Axes -> None]

卜部東介研究室に戻る

ご意見、ご感想をぜひ まで！