Advertisement
Guest User

Untitled

a guest
Jul 24th, 2014
193
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.15 KB | None | 0 0
  1. eqn[x_, y_, z_] := z^2 + 3 z + x^2 + y^2 == 0
  2. ContourPlot[
  3. z /. FindRoot[eqn[x, y, z], {z, 1}], {x, 0, 2}, {y, 0, 2},
  4. PlotLegends -> Automatic]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement