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

ParametricPlot3D[ {Cos[2u]Cos[2v], Sin[2u]v/u + v, Sin[u]Cos[2v]}, {u, -Pi, Pi}, {v, -Pi, Pi}, PlotPoints -> {50, 50}, Boxed -> False, Axes -> None]	ParametricPlot3D[ {Sin[x - y] + x* Cos[x - y], x* y, Cos[x - y] + y*Sin[x + y]}, {x, -Pi, Pi}, {y, -Pi, Pi}, PlotPoints -> {50, 50}, Boxed -> False, Axes -> None]	ParametricPlot3D[ {u Cos[u] + Sin[v], Sin[Cos[u]] Cos[Sin[v]], v Sin[v] + Cos[u]}, {u, -Pi, Pi}, {v, -Pi, Pi}, PlotPoints -> {50, 50}, Boxed -> False, Axes -> None]

卜部東介研究室に戻る

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