Guest User

Untitled

a guest
May 16th, 2018
129
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.17 KB | None | 0 0
  1. H = {{I*(x + I*y), 1}, {1, -I*(x + I*y)}};
  2. {x1, x2} = Eigenvalues[H];
  3.  
  4. Plot3D[{Im[x1], Im[x2]}, {x, 0, 2}, {y, -1, 1}, PlotStyle -> {LightRed, LightRed}, Mesh -> 0]
Add Comment
Please, Sign In to add comment