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