卜部東介研究室 |1|2|3|4|5|6|7|8|9|10|11|12|13|14|15|16|17|18|19|20|終わりに

ParametricPlot3D[{u^2 + v^2, (1 + u v) Sin[u + u v] + Cos[v], Sin[v + u v] + (1 + u v) Cos[u]}, {u, 0, Pi}, {v, 0, Pi}, PlotPoints -> {40, 40}, Boxed -> False, Axes -> None] (*Huge*)	ParametricPlot3D[ {2Sin[4x], Cos[3x]/x - y/2x, 3Cos[2y]}, {x, Pi, Pi/100}, {y, 1, 3Pi}, PlotPoints -> {48, 48}, ViewPoint -> {1.3, 0.7, -6.6}, Boxed -> False, Axes -> None]	ParametricPlot3D[ {{Sin[x]*Cos[y], Cos[x]*Sin[y], x*y/10}, {-Sin[x]*Cos[y], -Cos[x]*Sin[y], -x*y/10}}, {x, 0, 2Pi}, {y, 0, 2Pi}, PlotPoints -> {70, 70}, Boxed -> False, Axes -> None] (*Huge*)

卜部東介研究室に戻る

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