Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- eqn[x_, y_, z_] := z^2 + 3 z + x^2 + y^2 == 0
- ContourPlot[
- z /. FindRoot[eqn[x, y, z], {z, 1}], {x, 0, 2}, {y, 0, 2},
- PlotLegends -> Automatic]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement