|
|
|
 |
２００２年度後期の幾何学入門の学生作品群の続編が出来た。 これは、２００５年度後期茨城大学理学部での講義、幾何学入門（担当 卜部東介、数理科学科２年生中心）の期末の課題に対する学生の提出作品である。画像の下にそれを生成する数式処理ソフト Mathematica のコマンドを添える。２０ページに渡り画像を掲載した後に「終わりに」の章がある。 |
||
 |
 |
 |
|
| ParametricPlot3D[ {2u*Sin[v/3], u^2 + Cos[2u + v]*v^2, v*Exp[u/2]}, {u, -π/2, π}, {v, -π, π}, ViewPoint -> {1, 4, 3}, Boxed -> False, Axes -> None] |
ParametricPlot3D[ {(5 + 2 Cos[u]Cos[v]) Cos[2v]Sin[2v], (2 + 2Cos[u]) Sin[v], 3 Sin[u]Sin[v] + v/5}, {u, 0, 2Pi}, {v, -3 Pi, 3 Pi}, ViewPoint -> {4, 1, -0.450}, PlotPoints -> {45, 100}, Boxed -> False, Axes -> None] (*It takes much time.*) |
ParametricPlot3D[ {(Cos[x])^2*Cos[y]*Cos[Sin[x]], Sin[x^2]*Sin[y]*Sin[Cos[x]], 1/2*x}, {x, -Pi, Pi}, {y, -Pi, Pi}, PlotPoints -> {50, 50}, Boxed -> False, Axes -> None, ViewPoint -> {2.764, -1.789, 0.779}] |
ParametricPlot3D[ {(Sin[u]) Cos[v], (1 + Cos[u]) Sin[v], 0.8 Sin[u] + v/2}, {u, 0, 2 Pi}, {v, -2Pi, 2 Pi}, PlotPoints -> {50, 50}, Boxed -> False, Axes -> None] |
まで！
卜部東介研究室に戻る