Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Plot3D[Evaluate[If[Sin[x y z] > 1/2, Sin[x y z], 0] /. z -> 1], {x, -1, 1}, {y, -1, 1}]
- Plot3D[If[Sin[x y z] > 1/2, Sin[x y z], 0] /. z -> 1, {x, -1, 1}, {y, -1, 1},
- Exclusions -> {Sin[x y ] == 1/2}]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement