Guest User

Untitled

a guest
Nov 16th, 2018
110
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.25 KB | None | 0 0
  1. Plot3D[1/(Sqrt[x^2 + y^2] + 3)*(Cos[2*(Sqrt[x^2 + y^2] + ArcTan[x, y])]),
  2. {x, -20, 20}, {y, -20, 20}, PlotPoints -> 100, PlotRange -> {{-20, 20}, {-20, 20}, {-3, 3}},
  3. Axes -> None, Boxed -> False, ImageSize -> 500, ColorFunction -> "DeepSeaColors"]
Add Comment
Please, Sign In to add comment