Guest User

Untitled

a guest
Jun 19th, 2018
84
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.73 KB | None | 0 0
  1. {{x + Cosh[2 t], -I, (x + Sinh[2 t])/Sqrt[2],
  2.  
  3.  
  4. 0, -((-3 x + Sinh[2 t])/Sqrt[2]), 0}, {I, x + Cosh[2 t], 0, (
  5.  
  6.  
  7.  
  8. x + Sinh[2 t])/Sqrt[2], 0, (-3 x + Sinh[2 t])/Sqrt[2]}, {(
  9.  
  10.  
  11.  
  12. x + Sinh[2 t])/Sqrt[2], 0, 1/2 (1 + x + Cosh[2 t]), -I,
  13.  
  14.  
  15.  
  16.  
  17. 1/2 (1 + 3 x - Cosh[2 t]), 0}, {0, (x + Sinh[2 t])/Sqrt[2], I,
  18.  
  19.  
  20.  
  21.  
  22. 1/2 (1 + x + Cosh[2 t]), 0,
  23.  
  24.  
  25.  
  26.  
  27. 1/2 (-1 - 3 x + Cosh[2 t])}, {-((-3 x + Sinh[2 t])/Sqrt[2]), 0,
  28.  
  29.  
  30.  
  31.  
  32. 1/2 (1 + 3 x - Cosh[2 t]), 0,
  33.  
  34.  
  35.  
  36. 1/2 (1 + 9 x + Cosh[2 t]), -I}, {0, (-3 x + Sinh[2 t])/Sqrt[2], 0,
  37.  
  38.  
  39.  
  40. 1/2 (-1 - 3 x + Cosh[2 t]), I, 1/2 (1 + 9 x + Cosh[2 t])}}
  41.  
  42. evs = Eigenvalues[m]
  43.  
  44. Plot3D[Evaluate@evs, {x, -2, 2}, {t, 0, 2},
  45. PlotRange -> {-10, 20}, AxesLabel -> {"x", "t"},
  46. PlotStyle -> Opacity[0.3], Mesh -> None
  47. ]
Add Comment
Please, Sign In to add comment