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

<< Graphics`ParametricPlot3D`; SphericalPlot3D[ 1 + Cos[10a] Cos[b] + b/4, {a, 0, Pi}, {b, 0, Pi}, ViewPoint -> {0.1, 2, 0.3}, PlotPoints -> {50, 50}, Boxed -> False, Axes -> None]	<< Graphics`ParametricPlot3D`; SphericalPlot3D[ 1 + Sin[5a] Sin[8b] + a/5, {a, 0, Pi}, {b, 0, 2Pi}, ViewPoint -> {3, 1, 2}, PlotPoints -> {50, 50}, Boxed -> False, Axes -> None]	Plot3D[ Sin[20Sqrt[(x^10 + y^4)]], {x, -1, 1}, {y, -1, 1}, PlotPoints -> 60, Boxed -> False, Axes -> None]	Plot3D[ x^2 + y^4 - x^2*y^4 + Sin[30Sqrt[(x^2 + y^4)]], {x, -5, 5}, {y, -5, 5}, PlotPoints -> 50, Boxed -> False, Axes -> None]

卜部東介研究室に戻る

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