Guest User

Untitled

a guest
Oct 16th, 2018
103
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.40 KB | None | 0 0
  1. M = 0; phi = Pi/2;
  2. t = 1; t2 = 0.5; t3 = 0.35;
  3.  
  4. b1 = {{-Sqrt[3]/2}, {3/2}};
  5. b2 = {{-Sqrt[3]/2}, {-3/2}};
  6. b3 = {{Sqrt[3]}, {0}};
  7.  
  8. hx[kx_, ky_] :=
  9. t ((1 + Cos[{kx, ky}.b1] + Cos[{kx, ky}.b2])) +
  10. t3 (2 Cos[{kx, ky}.(b1 + b2)] + Cos[{kx, ky}.(b1 - b2)]);
  11. hy[kx_, ky_] :=
  12. t ((Sin[{kx, ky}.b1] - Sin[{kx, ky}.b2])) +
  13. t3 Sin[{kx, ky}.(b1 - b2)];
  14. hz[kx_, ky_] :=
  15. M - 2 t2 Sin[
  16. phi] (Sin[{kx, ky}.b1] + Sin[{kx, ky}.b2] + Sin[{kx, ky}.b3])
  17. H[kx_, ky_] =
  18. Flatten[{hx[kx, ky], hy[kx, ky], hz[kx, ky]}, 1] // Simplify;
  19.  
  20. eqs = Thread[{x, y,
  21. z} == {t ((1 + Cos[{kx, ky}.b1] + Cos[{kx, ky}.b2])) +
  22. t3 (2 Cos[{kx, ky}.(b1 + b2)] + Cos[{kx, ky}.(b1 - b2)]),
  23. t ((Sin[{kx, ky}.b1] - Sin[{kx, ky}.b2])) +
  24. t3 Sin[{kx, ky}.(b1 - b2)],
  25. M - 2 t2 Sin[
  26. phi] (Sin[{kx, ky}.b1] + Sin[{kx, ky}.b2] + Sin[{kx, ky}.b3])}]
  27. impl = GroebnerBasis[Join[TrigExpand[eqs],
  28. {Cos[(Sqrt[3] kx)/2 - 3 ky/2]^2 +
  29. Sin[(Sqrt[3] kx)/2 - 3 ky/2]^2 == 1,
  30. Cos[(Sqrt[3] kx)/2 + 3 ky/2]^2 +
  31. Sin[(Sqrt[3] kx)/2 + 3 ky/2]^2 == 1,
  32. Cos[(Sqrt[3] kx)]^2 + Sin[(Sqrt[3] kx)]^2 == 1,
  33. Cos[(3 ky)]^2 + Sin[(3 ky)]^2 == 1}],
  34. {x, y, z},
  35. {Cos[(Sqrt[3] kx)/2 - 3 ky/2],
  36. Sin[(Sqrt[3] kx)/2 - 3 ky/2],
  37. Cos[(Sqrt[3] kx)/2 + 3 ky/2],
  38. Sin[(Sqrt[3] kx)/2 + 3 ky/2],
  39. Cos[(Sqrt[3] kx)],
  40. Sin[(Sqrt[3] kx)],
  41. Cos[(3 ky)],
  42. Sin[(3 ky)]}][[1]] // FullSimplify
Add Comment
Please, Sign In to add comment