卜部東介研究室 |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|終わりに　

Plot3D [ Sin[20Sqrt[(x^2 + y^2)]] , { x , -1 , 1 }, { y , -1 , 1 } , PlotPoints -> 50, Boxed -> False, Axes -> None]	Do[ Plot3D[ 10 Sin[ Sqrt[ n x^2/10 + n y^2/10 ] - Pi n/2 ]/(n + 1), {x, -20, 20}, {y, -20, 20}, AspectRatio -> Automatic, Mesh -> False, PlotRange -> {-10, 10}, PlotPoints -> 50, Boxed -> False, Axes -> None], {n, 0, 9}]	Plot3D[ Sin[x/Sqrt[3] y/Sqrt[3]] Sin[x/Sqrt[3] y/Sqrt[3]] Sin[x/y] Cos[x/y] Sin[y/x] Cos[y/x] , {x, -3, 3}, {y, -3, 3}, PlotPoints -> 50, Boxed -> False, Axes -> None]

卜部東介研究室に戻る

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