Advertisement
Guest User

Untitled

a guest
Jun 26th, 2019
69
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.54 KB | None | 0 0
  1. H1[kx_,ky_]:=t1*{{0, Exp[I*kx*b], 0, Exp[I*ky*b], 0, 0},
  2. {Exp[-I*kx*b], 0, Exp[I*ky*b], 0, 0, 0},
  3. {0, Exp[-I*ky*b], 0, Exp[-I*kx*b], 0, 0},
  4. {Exp[-I*ky*b], 0, Exp[I*kx*b], 0, 0, 0},
  5. {0, 0, 0, 0, 0, 0},
  6. {0, 0, 0, 0, 0, 0}}
  7.  
  8. H2[kx_, ky_] := t2*{{0, 0, 0, 0, Exp[I*(-kx*Sqrt[3]/2 + ky/2)*b], Exp[I*(kx/2 - ky*Sqrt[3]/2)*b]},
  9. {0, 0, 0, 0, Exp[I*(kx*Sqrt[3]/2 + ky/2)*b], Exp[I*(-kx/2 - ky*Sqrt[3]/2)*b]},
  10. {0, 0, 0, 0, Exp[I*(kx*Sqrt[3]/2 - ky/2)*b], Exp[I*(-kx/2 + ky*Sqrt[3]/2)*b]},
  11. {0, 0, 0, 0, Exp[I*(-kx*Sqrt[3]/2 - ky/2)*b], Exp[I*(kx/2 + ky*Sqrt[3]/2)*b]}, {Exp[-I*(-kx*Sqrt[3]/2 + ky/2)*b], Exp[-I*(kx*Sqrt[3]/2 + ky/2)*b], Exp[-I*(kx*Sqrt[3]/2 - ky/2)*b], Exp[-I*(-kx*Sqrt[3]/2 - ky/2)*b], 0, 0},
  12. {Exp[-I*(kx/2 - ky*Sqrt[3]/2)*b], Exp[-I*(-kx/2 - ky*Sqrt[3]/2)*b], Exp[-I*(-kx/2 + ky*Sqrt[3]/2)*b], Exp[-I*(kx/2 + ky*Sqrt[3]/2)*b], 0, 0}}
  13.  
  14. H[kx_, ky_] := H1[kx,ky] + H2[kx,ky]
  15.  
  16. ev[kx_, ky_] := Eigenvalues[H[kx, ky]]
  17.  
  18. Plot3D[{ev[kx, ky][[4]]}, {kx, -2*Pi, 2*Pi}, {ky, -2*Pi, 2*Pi}]
  19.  
  20. ev[kx, ky][[4]] // Re
  21.  
  22. ClearAll[vals, H1, H2];
  23. vals = {t1 -> -1, t2 -> -1, b -> 1/(1 + Sqrt[3])};
  24. H1[kx_, ky_] :=
  25. t1*{{0, Exp[I*kx*b], 0, Exp[I*ky*b], 0, 0}, {Exp[-I*kx*b], 0,
  26. Exp[I*ky*b], 0, 0, 0}, {0, Exp[-I*ky*b], 0, Exp[-I*kx*b], 0,
  27. 0}, {Exp[-I*ky*b], 0, Exp[I*kx*b], 0, 0, 0}, {0, 0, 0, 0, 0,
  28. 0}, {0, 0, 0, 0, 0, 0}} /. vals;
  29.  
  30. H2[kx_, ky_] :=
  31. t2*{{0, 0, 0, 0, Exp[I*(-kx*Sqrt[3]/2 + ky/2)*b],
  32. Exp[I*(kx/2 - ky*Sqrt[3]/2)*b]}, {0, 0, 0, 0,
  33. Exp[I*(kx*Sqrt[3]/2 + ky/2)*b],
  34. Exp[I*(-kx/2 - ky*Sqrt[3]/2)*b]}, {0, 0, 0, 0,
  35. Exp[I*(kx*Sqrt[3]/2 - ky/2)*b],
  36. Exp[I*(-kx/2 + ky*Sqrt[3]/2)*b]}, {0, 0, 0, 0,
  37. Exp[I*(-kx*Sqrt[3]/2 - ky/2)*b],
  38. Exp[I*(kx/2 + ky*Sqrt[3]/2)*b]}, {Exp[-I*(-kx*Sqrt[3]/2 + ky/2)*
  39. b], Exp[-I*(kx*Sqrt[3]/2 + ky/2)*b],
  40. Exp[-I*(kx*Sqrt[3]/2 - ky/2)*b],
  41. Exp[-I*(-kx*Sqrt[3]/2 - ky/2)*b], 0,
  42. 0}, {Exp[-I*(kx/2 - ky*Sqrt[3]/2)*b],
  43. Exp[-I*(-kx/2 - ky*Sqrt[3]/2)*b],
  44. Exp[-I*(-kx/2 + ky*Sqrt[3]/2)*b],
  45. Exp[-I*(kx/2 + ky*Sqrt[3]/2)*b], 0, 0}} /. vals;
  46.  
  47. H[kx_, ky_] := H1[kx, ky] + H2[kx, ky];
  48. ev[kx_, ky_] := Eigenvalues[H[kx, ky]];
  49.  
  50. Plot3D[ev[kx, ky], {kx, -2*Pi, 2*Pi}, {ky, -2*Pi, 2*Pi},
  51. BoxRatios -> {1, 1, 2}]
  52.  
  53. a = Table[
  54. Sort@ev[kx, ky], {kx, -2*Pi, 2*Pi, Pi/10.}, {ky, -2*Pi, 2*Pi,
  55. Pi/10.}];
  56.  
  57. Table[ListPlot3D[a[[All, All, n]]], {n, 6}]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement