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

ParametricPlot3D[ {2Cos[Cos[x]]*Sin[Sin[x]]*Cos[Cos[x]], 3Sin[Sin[y]]*Cos[Cos[y]]*Sin[Sin[y]], x*y}, {x, -Pi, Pi}, {y, -Pi, Pi}, PlotPoints -> {50, 50}, Boxed -> False, Axes -> None]	ParametricPlot3D[ {2Cos[x]Sin[y/2] + Cos[Sin[x]], Sin[x](Cos[2y] - Sin[Cos[x]])/2, x*y}, {x, -Pi, Pi}, {y, -Pi, Pi}, PlotPoints -> {50, 50}, Boxed -> False, Axes -> None]	ParametricPlot3D[ {Sin[t](Cos[2t/3] Sin[u] - 1/4Sin[2t/3] ), 1/4Cos[t + 1](Sin[2t + 1] - Sin[2t/3] Cos[u]), Cos[u] + Sin[t/2] Cos[u] - Sin[t/2]}, {t, -Pi/4, 3Pi/2}, {u, 0, 2Pi}, PlotPoints -> {50, 50}, Boxed -> False, Axes -> None]	ParametricPlot3D[ {Sin[t](Cos[2t/3] Sin[u] - 1/4Sin[2t/3] ), 1/4Cos[t + 1](Sin[2t + 1] - Sin[2t/3] Cos[u]), Cos[u] + Sin[t/2] Cos[u] - Sin[t/2]}, {t, -Pi, 3Pi/2}, {u, 0, 2Pi}, PlotPoints -> {50, 50}, Boxed -> False, Axes -> None]

卜部東介研究室に戻る

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