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

	これは、２００２年度後期茨城大学理学部での講義、幾何学入門（担当　卜部東介、数理科学科２年生中心）の期末の課題に対する学生の提出作品である。画像の下にそれを生成する数式処理ソフト Mathematica のコマンドを添える。25ページに渡り画像を掲載した後に「終わりに」の章がある。
ParametricPlot3D[ {10/(1 + 1/u)*(Cos[u] + 3)*Cos[v], 10/(1 + 1/u)*(Cos[u] + 3)*Sin[v], u*Sin[v]}, {u, Pi/10, 70Pi}, {v, 0, 2Pi}, ViewPoint -> {2, 2, -2}, PlotPoints -> {50, 50}, Boxed -> False, Axes -> None]	ParametricPlot3D[ {2Cos[x] * Sin[y] * Cos[Sin[x]], Sin[x] * Cos[y] * Sin[Cos[x]] , x * y}, {x, -Pi, Pi}, {y, -Pi, Pi}, PlotPoints -> {50, 50}, Boxed -> False, Axes -> None]	ParametricPlot3D[ {Cos[psi] Cos[phi]/(2 Exp[Sin[phi]]), Sin[psi] Cos[phi]/(3 Exp[Sin[phi]]), Exp[Sin[phi]] Cos[psi]}, {phi, 0, 2 Pi}, {psi, 0, 2 Pi}, PlotPoints -> {50, 50}, Boxed -> False, Axes -> None]	ParametricPlot3D[ {Cos[u] Cos[v], Sin[u] v , Sin[u] Cos[v]}, {u, -Pi, Pi}, {v, - Pi, Pi}, PlotPoints -> {50, 50}, Boxed -> False, Axes -> None]

卜部東介研究室に戻る

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