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

ParametricPlot3D[ {2Cos[u](1 + Sin[u]) + 8(1 - Cos[u]/2)(Cos[v + Pi]), 3Sin[u], 8(1 - Cos[u]/2)Sin[v]}, {u, 0, 2Pi}, {v, 0, 2Pi}, PlotPoints -> {50, 50}, Boxed -> False, Axes -> None]	ParametricPlot3D[ {r Cos[Cos[r]]Cos[psi], r Cos[Cos[r]]Sin[psi], r Sin[Cos[r]]}, {r, 0.001, 9Pi/2}, {psi, 0, 3Pi/2}, PlotPoints -> {72, 30}, Boxed -> False, Axes -> None]	ParametricPlot3D[ {Sin[t] Cos[p], Sin[t]Sin[p], Sin[2t]}, {t, 0, Pi}, {p, 0, 3Pi/2}, PlotPoints -> {50, 50}, Boxed -> False, Axes -> None]

卜部東介研究室に戻る

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