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

ParametricPlot3D[ {(5 - 0.3t +1.2Cos[s])Cos[t], (5 - 0.3t + 1.2Cos[s])Sin[t], 1.2Sin[s] + 0.3t}, {s, 0, 2Pi}, {t, 0, 10Pi}, PlotPoints -> {30, 150}, Boxed -> False, Axes -> None]]	ParametricPlot3D[ {(5 + 3 Cos[u]) Cos[v], (2 + 0.8 Cos[u]) Sin[v], 0.8 Sin[u] + v/2}, {u, 0, 3 Pi}, {v, -3Pi, 3 Pi}, PlotPoints -> {70, 70}, Boxed -> False, Axes -> None]	ParametricPlot3D[ {(0.5 + 0.7 Cos[u]) Cos[v], (0.5 + 0.7Cos[u]) Sin[v], Sin[u] + v/2.7}, {u, 0, 2 Pi}, {v, -3Pi, 3 Pi}, PlotPoints -> {50, 50}, Boxed -> False, Axes -> None]

卜部東介研究室に戻る

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