Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Plot3D[-Sqrt[x^2 + y^2], {x, -5, 5}, {y, -5, 5},
- BoxRatios -> {1, 1, 1} , Mesh -> None,
- ColorFunction ->
- Function[{x, y, z},
- If[z <= .5, Blue, Directive[White, Opacity[0.4]]]]]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement