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] |
Back to Tohsuke Urabe Laboratory