卜部東介研究室 |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[ {4Cos[u](1 + Sin[u]) + 3(1 - Cos[v]/2)(Cos[v + Pi]), 9Sin[v], 4(1 - Cos[u]/3)Sin[v]}, {u, 0, 2Pi}, {v, 0, 2Pi}, PlotPoints -> {50, 50}, Boxed -> False, Axes -> None]	ParametricPlot3D[ {u*Sin[u] + (1 - Cos[u]), v + (1 - Cos[u]), Sin[u] + 4Cos[v]}, {u, -2Pi, 2Pi}, {v, -3/2Pi, 3/2Pi}, ViewPoint -> {5, 5, 20}, PlotPoints -> {50, 50}, Boxed -> False, Axes -> None]	ParametricPlot3D[ {3 Sin[u] - u^2 Sin[u], 2 Cos[v] - 3 Sin[v], -3 Cos[u] Cos[v]}, {u, -Pi, Pi}, {v, -Pi, Pi}, Axes -> None, ViewPoint -> {4.234, -1.992, 2.003}, PlotPoints -> {50, 50}, Boxed -> False, Axes -> None]

卜部東介研究室に戻る

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