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

ParametricPlot3D[ {7Sin[u](1/5 + Sin[u]) + 8(1 - Cos[u]/2)(Cos[v + Pi]), 9Sin[u], 7(1 - Sin[u]/5)Sin[v]}, {u, 0, 2Pi}, {v, 0, 2Pi}, PlotPoints -> {80, 80}, Boxed -> False, Axes -> None]	ParametricPlot3D[ {Cos[u], Sin[v], Cos[u - v]}, {u, 0, 2Pi}, {v, 0, 2Pi}, ViewPoint -> {-2.563, 2.831, 2.592}, PlotPoints -> {70, 70}, Boxed -> False, Axes -> None]	ParametricPlot3D[ {Cos[s], Sin[t], Sin[s - t]}, {s, 0, Pi}, {t, 0, 2Pi}, PlotPoints -> {25, 25}, Boxed -> False, Axes -> None]

卜部東介研究室に戻る

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