Plot3D[ Sin[x + Sin[y] + Cos[x + Cos[y]]], {x, -3Pi, 3Pi}, {y, -3Pi, 3Pi}, PlotPoints -> 50, Boxed -> False, Axes -> None] |
Plot3D[ 10 Sin[x + Sin[y^2]], {x, -10, 10}, {y, -3, 3}, PlotPoints -> 50, Boxed -> False, Axes -> None] |
Plot3D[ 10 Sin[x + Sin[y]], {x, -10, 10}, {y, -10, 10}, PlotPoints -> 50, Boxed -> False, Axes -> None] |
Plot3D[ 5 Sin[x + Sin[y]], {x, -5, 5}, {y, -5, 5}, PlotPoints -> 50, Boxed -> False, Axes -> None] |
Back to Tohsuke Urabe Laboratory