-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathBH(Eigenvalues).nb
1410 lines (1364 loc) · 68.6 KB
/
BH(Eigenvalues).nb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
(* Content-type: application/vnd.wolfram.mathematica *)
(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)
(* CreatedBy='Mathematica 11.3' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 158, 7]
NotebookDataLength[ 68719, 1402]
NotebookOptionsPosition[ 65269, 1337]
NotebookOutlinePosition[ 65602, 1352]
CellTagsIndexPosition[ 65559, 1349]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[CellGroupData[{
Cell[TextData[StyleBox["Solve tight bonding Hamiltonian of bilayer honeycomb \
lattice with spin-orbit coupling;", "Subchapter"]], "Subsubsection",
CellChangeTimes->{{3.77565355175121*^9, 3.77565359373658*^9},
3.775654446949041*^9},
Background->GrayLevel[
0.85],ExpressionUUID->"320aea46-9812-4d7f-b7fd-c50bb06b68b6"],
Cell[BoxData[{
RowBox[{
RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Remove", "[", "\"\<Global`*\>\"", "]"}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"(*",
RowBox[{
RowBox[{"Get", "[", "\"\<EneSpecSOC.mx\>\"", "]"}], ";"}],
"*)"}]}]}], "Input",
CellChangeTimes->{{3.7497885233238225`*^9, 3.749788575084713*^9}, {
3.7497886527728496`*^9, 3.74978865870086*^9}, {3.7497886996041317`*^9,
3.7497887459206133`*^9}, {3.749788783298279*^9, 3.74978880125391*^9}, {
3.7497888633576193`*^9, 3.74978887483924*^9}, {3.749791581283396*^9,
3.7497916236842704`*^9}, 3.7497917058652143`*^9, {3.7497920440124083`*^9,
3.7497920466644135`*^9}, {3.7497920775680676`*^9,
3.7497921126213293`*^9}, {3.7497921462161884`*^9, 3.749792168054227*^9}, {
3.7497928669690614`*^9, 3.7497929883684745`*^9}, {3.7498756324303713`*^9,
3.749875634723575*^9}, {3.749875723924532*^9, 3.749875727886939*^9}, {
3.749876006475029*^9, 3.7498760138382416`*^9}, {3.749878992289073*^9,
3.7498790675904055`*^9}, {3.749879946215149*^9, 3.7498799510823574`*^9}, {
3.7498802687089157`*^9, 3.7498805544546175`*^9}, {3.749880717585104*^9,
3.749880723450714*^9}, {3.7498813869364843`*^9, 3.749881393691296*^9}, {
3.7498818557329073`*^9, 3.7498819562302837`*^9}, {3.7498822620708213`*^9,
3.749882265019226*^9}, {3.7498835791147366`*^9, 3.7498835812675405`*^9},
3.7498882545484343`*^9, {3.750219373509694*^9, 3.750219376327855*^9}, {
3.750219786524317*^9, 3.750219788656439*^9}, {3.7502202491447773`*^9,
3.750220251622919*^9}, {3.7502205218343744`*^9, 3.7502205872291145`*^9}, {
3.750236386722456*^9, 3.7502364033988853`*^9}, {3.750237826573785*^9,
3.750237826948186*^9}, {3.750237879816678*^9, 3.7502378942779036`*^9},
3.7511633369945087`*^9, {3.751163384259794*^9, 3.7511634017982254`*^9},
3.7511652905914345`*^9, {3.751165373117183*^9, 3.7511653835390015`*^9},
3.7511654451325665`*^9, 3.751268739799609*^9, {3.751269445875994*^9,
3.7512694610778637`*^9}, 3.7512697693574963`*^9, {3.7516477056087317`*^9,
3.7516477286175737`*^9}, {3.7516923857619095`*^9, 3.751692399077134*^9}, {
3.7571346764335957`*^9, 3.757134693016425*^9}, 3.75723906762848*^9, {
3.7643441099159813`*^9, 3.76434411587464*^9}, {3.764344255481247*^9,
3.7643442663512783`*^9}, 3.764355875250908*^9},
CellLabel->"In[1]:=",ExpressionUUID->"0a2c22de-36d5-421b-8907-aab276a9d1b4"]
}, Open ]],
Cell[CellGroupData[{
Cell["\<\
Define nearest neighbors and second nearest neighbors vectors;\
\>", "Subsubsection",
CellChangeTimes->{3.775653527464106*^9, 3.775654449110611*^9},
Background->GrayLevel[
0.85],ExpressionUUID->"bfa3e814-7027-4d28-97d6-3c8129d7f4d0"],
Cell[BoxData[{
RowBox[{
RowBox[{"a1", "=",
RowBox[{"a",
RowBox[{"{",
RowBox[{"0", ",", "1"}], "}"}]}]}], ";", " ",
RowBox[{"a2", "=",
RowBox[{"a",
RowBox[{"{",
RowBox[{
FractionBox[
SqrtBox["3"], "2"], ",",
RowBox[{"-",
FractionBox["1", "2"]}]}], "}"}]}]}], ";",
RowBox[{"a3", "=",
RowBox[{"a",
RowBox[{"{",
RowBox[{
RowBox[{"-",
FractionBox[
SqrtBox["3"], "2"]}], ",",
RowBox[{"-",
FractionBox["1", "2"]}]}], "}"}]}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"d1", "=",
RowBox[{"{",
RowBox[{
SqrtBox["3"], ",", "0"}], "}"}]}], ";",
RowBox[{"d2", "=",
RowBox[{"{",
RowBox[{
FractionBox[
SqrtBox["3"], "2"], ",",
RowBox[{"-",
FractionBox["3", "2"]}]}], "}"}]}], ";",
RowBox[{"d3", "=",
RowBox[{"{",
RowBox[{
RowBox[{"-",
FractionBox[
SqrtBox["3"], "2"]}], ",",
RowBox[{"-",
FractionBox["3", "2"]}]}], "}"}]}], ";",
RowBox[{"d4", "=",
RowBox[{"{",
RowBox[{
RowBox[{"-",
SqrtBox["3"]}], ",", "0"}], "}"}]}], ";",
RowBox[{"d5", "=",
RowBox[{"{",
RowBox[{
RowBox[{"-",
FractionBox[
SqrtBox["3"], "2"]}], ",",
FractionBox["3", "2"]}], "}"}]}], ";",
RowBox[{"d6", "=",
RowBox[{"{",
RowBox[{
FractionBox[
SqrtBox["3"], "2"], ",",
FractionBox["3", "2"]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "Input",
CellChangeTimes->{{3.7497885233238225`*^9, 3.749788575084713*^9}, {
3.7497886527728496`*^9, 3.74978865870086*^9}, {3.7497886996041317`*^9,
3.7497887459206133`*^9}, {3.749788783298279*^9, 3.74978880125391*^9}, {
3.7497888633576193`*^9, 3.74978887483924*^9}, {3.749791581283396*^9,
3.7497916236842704`*^9}, 3.7497917058652143`*^9, {3.7497920440124083`*^9,
3.7497920466644135`*^9}, {3.7497920775680676`*^9,
3.7497921126213293`*^9}, {3.7497921462161884`*^9, 3.749792168054227*^9}, {
3.7497928669690614`*^9, 3.7497929883684745`*^9}, {3.7498756324303713`*^9,
3.749875634723575*^9}, {3.749875723924532*^9, 3.749875727886939*^9}, {
3.749876006475029*^9, 3.7498760138382416`*^9}, {3.749878992289073*^9,
3.7498790675904055`*^9}, {3.749879946215149*^9, 3.7498799510823574`*^9}, {
3.7498802687089157`*^9, 3.7498805544546175`*^9}, {3.749880717585104*^9,
3.749880723450714*^9}, {3.7498813869364843`*^9, 3.749881393691296*^9}, {
3.7498818557329073`*^9, 3.7498819562302837`*^9}, {3.7498822620708213`*^9,
3.749882265019226*^9}, {3.7498835791147366`*^9, 3.7498835812675405`*^9},
3.7498882545484343`*^9, {3.750219373509694*^9, 3.750219376327855*^9}, {
3.750219786524317*^9, 3.750219788656439*^9}, {3.7502202491447773`*^9,
3.750220251622919*^9}, {3.7502205218343744`*^9, 3.7502205872291145`*^9}, {
3.750236386722456*^9, 3.7502364033988853`*^9}, {3.750237826573785*^9,
3.750237826948186*^9}, {3.750237879816678*^9, 3.7502378942779036`*^9},
3.7511633369945087`*^9, {3.751163384259794*^9, 3.7511634017982254`*^9},
3.7511652905914345`*^9, {3.751165373117183*^9, 3.7511653835390015`*^9},
3.7511654451325665`*^9, 3.751268739799609*^9, {3.751269445875994*^9,
3.7512694610778637`*^9}, 3.7512697693574963`*^9, {3.7516477056087317`*^9,
3.7516477286175737`*^9}, {3.7516923857619095`*^9, 3.751692399077134*^9}, {
3.7571346764335957`*^9, 3.757134693016425*^9}, {3.75723906762848*^9,
3.7572390743052917`*^9}, {3.758604196180853*^9, 3.758604197023741*^9}, {
3.758604827630329*^9, 3.75860485151748*^9}, {3.758873498614388*^9,
3.758873520644109*^9}, {3.758873669910099*^9, 3.758873690321392*^9},
3.758874051933025*^9, 3.758874213822904*^9, {3.758877257401375*^9,
3.75887726409789*^9}, {3.758898848620735*^9, 3.7588988790343924`*^9}, {
3.7589595325515947`*^9, 3.758959547977894*^9}, {3.7621069849819508`*^9,
3.762107076273663*^9}, {3.762107199579204*^9, 3.7621072487555304`*^9}, {
3.7621072928487387`*^9, 3.762107307852293*^9}, 3.7623434316153173`*^9,
3.762343501202488*^9, {3.775653341127287*^9, 3.775653390022399*^9}, {
3.775653503038368*^9, 3.7756535364159737`*^9}, {3.7756536860900583`*^9,
3.7756537064368362`*^9}},ExpressionUUID->"eca7f318-e3b2-40b0-8b06-\
d533bb7402a9"]
}, Open ]],
Cell["Define the phase of the hoppings;", "Subsubsection",
CellChangeTimes->{{3.775653720796669*^9, 3.775653746573892*^9},
3.775654443295217*^9},
Background->GrayLevel[
0.85],ExpressionUUID->"48fdbcb2-f864-4b37-ba70-e00f3b44d4d7"],
Cell[CellGroupData[{
Cell["Nearest neighbour hopping,", "Subsubsection",
CellChangeTimes->{{3.775653954187161*^9, 3.775653965346616*^9}, {
3.775654027317609*^9, 3.7756540284649563`*^9}, 3.775654429206505*^9},
FontSize->14,
Background->RGBColor[
0.87, 0.94, 1],ExpressionUUID->"777ea59e-a9aa-4065-848a-82bd8978bc04"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"phi", "[",
RowBox[{"kx_", ",", "ky_"}], "]"}], ":=",
RowBox[{
RowBox[{"Exp", "[",
RowBox[{
RowBox[{"-", "\[ImaginaryI]"}], " ",
RowBox[{
RowBox[{"{",
RowBox[{"kx", ",", "ky"}], "}"}], ".", "a1"}]}], "]"}], "+",
RowBox[{"Exp", "[",
RowBox[{
RowBox[{"-", "\[ImaginaryI]"}], " ",
RowBox[{
RowBox[{"{",
RowBox[{"kx", ",", "ky"}], "}"}], ".", "a2"}]}], "]"}], "+",
RowBox[{"Exp", "[",
RowBox[{
RowBox[{"-", "\[ImaginaryI]"}], " ",
RowBox[{
RowBox[{"{",
RowBox[{"kx", ",", "ky"}], "}"}], ".", "a3"}]}], "]"}]}]}],
";"}]], "Input",
CellChangeTimes->{{3.7497885233238225`*^9, 3.749788575084713*^9}, {
3.7497886527728496`*^9, 3.74978865870086*^9}, {3.7497886996041317`*^9,
3.7497887459206133`*^9}, {3.749788783298279*^9, 3.74978880125391*^9}, {
3.7497888633576193`*^9, 3.74978887483924*^9}, {3.749791581283396*^9,
3.7497916236842704`*^9}, 3.7497917058652143`*^9, {3.7497920440124083`*^9,
3.7497920466644135`*^9}, {3.7497920775680676`*^9,
3.7497921126213293`*^9}, {3.7497921462161884`*^9, 3.749792168054227*^9}, {
3.7497928669690614`*^9, 3.7497929883684745`*^9}, {3.7498756324303713`*^9,
3.749875634723575*^9}, {3.749875723924532*^9, 3.749875727886939*^9}, {
3.749876006475029*^9, 3.7498760138382416`*^9}, {3.749878992289073*^9,
3.7498790675904055`*^9}, {3.749879946215149*^9, 3.7498799510823574`*^9}, {
3.7498802687089157`*^9, 3.7498805544546175`*^9}, {3.749880717585104*^9,
3.749880723450714*^9}, {3.7498813869364843`*^9, 3.749881393691296*^9}, {
3.7498818557329073`*^9, 3.7498819562302837`*^9}, {3.7498822620708213`*^9,
3.749882265019226*^9}, {3.7498835791147366`*^9, 3.7498835812675405`*^9},
3.7498882545484343`*^9, {3.750219373509694*^9, 3.750219376327855*^9}, {
3.750219786524317*^9, 3.750219788656439*^9}, {3.7502202491447773`*^9,
3.750220251622919*^9}, {3.7502205218343744`*^9, 3.7502205872291145`*^9}, {
3.750236386722456*^9, 3.7502364033988853`*^9}, {3.750237826573785*^9,
3.750237826948186*^9}, {3.750237879816678*^9, 3.7502378942779036`*^9},
3.7511633369945087`*^9, {3.751163384259794*^9, 3.7511634017982254`*^9},
3.7511652905914345`*^9, {3.751165373117183*^9, 3.7511653835390015`*^9},
3.7511654451325665`*^9, 3.751268739799609*^9, {3.751269445875994*^9,
3.7512694610778637`*^9}, 3.7512697693574963`*^9, {3.7516477056087317`*^9,
3.7516477286175737`*^9}, {3.7516923857619095`*^9, 3.751692399077134*^9}, {
3.7571346764335957`*^9, 3.757134693016425*^9}, {3.75723906762848*^9,
3.7572390743052917`*^9}, {3.758604196180853*^9, 3.758604197023741*^9}, {
3.758604827630329*^9, 3.75860485151748*^9}, {3.758873498614388*^9,
3.758873520644109*^9}, {3.758873669910099*^9, 3.758873690321392*^9},
3.758874051933025*^9, 3.758874213822904*^9, {3.758877257401375*^9,
3.75887726409789*^9}, {3.758898848620735*^9, 3.7588988790343924`*^9}, {
3.7589595325515947`*^9, 3.758959547977894*^9}, {3.7621069849819508`*^9,
3.762107076273663*^9}, {3.762107199579204*^9, 3.7621072487555304`*^9}, {
3.7621072928487387`*^9, 3.762107307852293*^9}, 3.7623434316153173`*^9,
3.762343501202488*^9, {3.775653341127287*^9, 3.775653390022399*^9}, {
3.775653503038368*^9, 3.7756535364159737`*^9}, {3.7756536860900583`*^9,
3.7756537064368362`*^9}, {3.7756537999795237`*^9,
3.7756539463609447`*^9}, {3.775653999248114*^9,
3.775654012272456*^9}},ExpressionUUID->"87af1a62-f588-4db6-9739-\
a0feb7b0a0b0"]
}, Open ]],
Cell[CellGroupData[{
Cell["Intrinsic second neighbour coupling phase,", "Subsubsection",
CellChangeTimes->{{3.775653954187161*^9, 3.775653965346616*^9}, {
3.775654023430108*^9, 3.7756540537845984`*^9}, 3.7756544303666277`*^9},
FontSize->14,
Background->RGBColor[
0.87, 0.94, 1],ExpressionUUID->"2df4d14c-995b-48fa-ac9a-891a304bf544"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"dhi", "[",
RowBox[{"kx_", ",", "ky_"}], "]"}], ":=",
RowBox[{
RowBox[{"-",
RowBox[{"(",
RowBox[{"Exp", "[",
RowBox[{
RowBox[{"-", "\[ImaginaryI]"}], " ",
RowBox[{
RowBox[{"{",
RowBox[{"kx", ",", "ky"}], "}"}], ".", "d1"}]}], "]"}], ")"}]}],
"+",
RowBox[{"(",
RowBox[{"Exp", "[",
RowBox[{
RowBox[{"-", "\[ImaginaryI]"}], " ",
RowBox[{
RowBox[{"{",
RowBox[{"kx", ",", "ky"}], "}"}], ".", "d2"}]}], "]"}], ")"}], "-",
RowBox[{"(",
RowBox[{"Exp", "[",
RowBox[{
RowBox[{"-", "\[ImaginaryI]"}], " ",
RowBox[{
RowBox[{"{",
RowBox[{"kx", ",", "ky"}], "}"}], ".", "d3"}]}], "]"}], ")"}], "+",
RowBox[{"(",
RowBox[{"Exp", "[",
RowBox[{
RowBox[{"-", "\[ImaginaryI]"}], " ",
RowBox[{
RowBox[{"{",
RowBox[{"kx", ",", "ky"}], "}"}], ".", "d4"}]}], "]"}], ")"}], "-",
RowBox[{"(",
RowBox[{"Exp", "[",
RowBox[{
RowBox[{"-", "\[ImaginaryI]"}], " ",
RowBox[{
RowBox[{"{",
RowBox[{"kx", ",", "ky"}], "}"}], ".", "d5"}]}], "]"}], ")"}], "+",
RowBox[{"(",
RowBox[{"Exp", "[",
RowBox[{
RowBox[{"-", "\[ImaginaryI]"}], " ",
RowBox[{
RowBox[{"{",
RowBox[{"kx", ",", "ky"}], "}"}], ".", "d6"}]}], "]"}], ")"}]}]}],
";"}]], "Input",
CellChangeTimes->{{3.7497885233238225`*^9, 3.749788575084713*^9}, {
3.7497886527728496`*^9, 3.74978865870086*^9}, {3.7497886996041317`*^9,
3.7497887459206133`*^9}, {3.749788783298279*^9, 3.74978880125391*^9}, {
3.7497888633576193`*^9, 3.74978887483924*^9}, {3.749791581283396*^9,
3.7497916236842704`*^9}, 3.7497917058652143`*^9, {3.7497920440124083`*^9,
3.7497920466644135`*^9}, {3.7497920775680676`*^9,
3.7497921126213293`*^9}, {3.7497921462161884`*^9, 3.749792168054227*^9}, {
3.7497928669690614`*^9, 3.7497929883684745`*^9}, {3.7498756324303713`*^9,
3.749875634723575*^9}, {3.749875723924532*^9, 3.749875727886939*^9}, {
3.749876006475029*^9, 3.7498760138382416`*^9}, {3.749878992289073*^9,
3.7498790675904055`*^9}, {3.749879946215149*^9, 3.7498799510823574`*^9}, {
3.7498802687089157`*^9, 3.7498805544546175`*^9}, {3.749880717585104*^9,
3.749880723450714*^9}, {3.7498813869364843`*^9, 3.749881393691296*^9}, {
3.7498818557329073`*^9, 3.7498819562302837`*^9}, {3.7498822620708213`*^9,
3.749882265019226*^9}, {3.7498835791147366`*^9, 3.7498835812675405`*^9},
3.7498882545484343`*^9, {3.750219373509694*^9, 3.750219376327855*^9}, {
3.750219786524317*^9, 3.750219788656439*^9}, {3.7502202491447773`*^9,
3.750220251622919*^9}, {3.7502205218343744`*^9, 3.7502205872291145`*^9}, {
3.750236386722456*^9, 3.7502364033988853`*^9}, {3.750237826573785*^9,
3.750237826948186*^9}, {3.750237879816678*^9, 3.7502378942779036`*^9},
3.7511633369945087`*^9, {3.751163384259794*^9, 3.7511634017982254`*^9},
3.7511652905914345`*^9, {3.751165373117183*^9, 3.7511653835390015`*^9},
3.7511654451325665`*^9, 3.751268739799609*^9, {3.751269445875994*^9,
3.7512694610778637`*^9}, 3.7512697693574963`*^9, {3.7516477056087317`*^9,
3.7516477286175737`*^9}, {3.7516923857619095`*^9, 3.751692399077134*^9}, {
3.7571346764335957`*^9, 3.757134693016425*^9}, {3.75723906762848*^9,
3.7572390743052917`*^9}, {3.758604196180853*^9, 3.758604197023741*^9}, {
3.758604827630329*^9, 3.75860485151748*^9}, {3.758873498614388*^9,
3.758873520644109*^9}, {3.758873669910099*^9, 3.758873690321392*^9},
3.758874051933025*^9, 3.758874213822904*^9, {3.758877257401375*^9,
3.75887726409789*^9}, {3.758898848620735*^9, 3.7588988790343924`*^9}, {
3.7589595325515947`*^9, 3.758959547977894*^9}, {3.7621069849819508`*^9,
3.762107076273663*^9}, {3.762107199579204*^9, 3.7621072487555304`*^9}, {
3.7621072928487387`*^9, 3.762107307852293*^9}, 3.7623434316153173`*^9,
3.762343501202488*^9, {3.775653341127287*^9, 3.775653390022399*^9}, {
3.775653503038368*^9, 3.7756535364159737`*^9}, {3.7756536860900583`*^9,
3.7756537064368362`*^9}, {3.7756537999795237`*^9,
3.7756539463609447`*^9}, {3.775653999248114*^9, 3.775654012272456*^9},
3.775654063287271*^9},ExpressionUUID->"7d96752e-a1d3-4776-8535-\
f2534da24025"]
}, Open ]],
Cell[CellGroupData[{
Cell["Rashba first neighbour coupling phase.", "Subsubsection",
CellChangeTimes->{{3.775653954187161*^9, 3.775653965346616*^9}, {
3.775654077627201*^9, 3.775654089568033*^9}, {3.7756544312089357`*^9,
3.7756544329312363`*^9}},
FontSize->14,
Background->RGBColor[
0.87, 0.94, 1],ExpressionUUID->"b7ea74eb-ba92-4abb-b55e-b7f54a3b2d78"],
Cell[BoxData[{
RowBox[{
RowBox[{
RowBox[{"rud", "[",
RowBox[{"kx_", ",", "ky_"}], "]"}], ":=",
RowBox[{
RowBox[{"Exp", "[",
RowBox[{
RowBox[{"-", "\[ImaginaryI]"}], " ",
RowBox[{
RowBox[{"{",
RowBox[{"kx", ",", "ky"}], "}"}], ".", "a1"}]}], "]"}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
FractionBox[
RowBox[{"-", "1"}], "2"], "-", " ",
RowBox[{"\[ImaginaryI]", " ",
FractionBox[
SqrtBox["3"], "2"]}]}], ")"}],
RowBox[{"Exp", "[",
RowBox[{
RowBox[{"-", "\[ImaginaryI]"}], " ",
RowBox[{
RowBox[{"{",
RowBox[{"kx", ",", "ky"}], "}"}], ".", "a2"}]}], "]"}]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
FractionBox[
RowBox[{"-", "1"}], "2"], "+", " ",
RowBox[{"\[ImaginaryI]", " ",
FractionBox[
SqrtBox["3"], "2"]}]}], ")"}],
RowBox[{"Exp", "[",
RowBox[{
RowBox[{"-", "\[ImaginaryI]"}], " ",
RowBox[{
RowBox[{"{",
RowBox[{"kx", ",", "ky"}], "}"}], ".", "a3"}]}], "]"}]}]}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"rdu", "[",
RowBox[{"kx_", ",", "ky_"}], "]"}], ":=",
RowBox[{
RowBox[{"Exp", "[",
RowBox[{
RowBox[{"-", "\[ImaginaryI]"}], " ",
RowBox[{
RowBox[{"{",
RowBox[{"kx", ",", "ky"}], "}"}], ".", "a1"}]}], "]"}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
FractionBox[
RowBox[{"-", "1"}], "2"], "+", " ",
RowBox[{"\[ImaginaryI]", " ",
FractionBox[
SqrtBox["3"], "2"]}]}], ")"}],
RowBox[{"Exp", "[",
RowBox[{
RowBox[{"-", "\[ImaginaryI]"}], " ",
RowBox[{
RowBox[{"{",
RowBox[{"kx", ",", "ky"}], "}"}], ".", "a2"}]}], "]"}]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
FractionBox[
RowBox[{"-", "1"}], "2"], "-", " ",
RowBox[{"\[ImaginaryI]", " ",
FractionBox[
SqrtBox["3"], "2"]}]}], ")"}],
RowBox[{"Exp", "[",
RowBox[{
RowBox[{"-", "\[ImaginaryI]"}], " ",
RowBox[{
RowBox[{"{",
RowBox[{"kx", ",", "ky"}], "}"}], ".", "a3"}]}], "]"}]}]}]}],
";"}]}], "Input",
CellChangeTimes->{{3.7497885233238225`*^9, 3.749788575084713*^9}, {
3.7497886527728496`*^9, 3.74978865870086*^9}, {3.7497886996041317`*^9,
3.7497887459206133`*^9}, {3.749788783298279*^9, 3.74978880125391*^9}, {
3.7497888633576193`*^9, 3.74978887483924*^9}, {3.749791581283396*^9,
3.7497916236842704`*^9}, 3.7497917058652143`*^9, {3.7497920440124083`*^9,
3.7497920466644135`*^9}, {3.7497920775680676`*^9,
3.7497921126213293`*^9}, {3.7497921462161884`*^9, 3.749792168054227*^9}, {
3.7497928669690614`*^9, 3.7497929883684745`*^9}, {3.7498756324303713`*^9,
3.749875634723575*^9}, {3.749875723924532*^9, 3.749875727886939*^9}, {
3.749876006475029*^9, 3.7498760138382416`*^9}, {3.749878992289073*^9,
3.7498790675904055`*^9}, {3.749879946215149*^9, 3.7498799510823574`*^9}, {
3.7498802687089157`*^9, 3.7498805544546175`*^9}, {3.749880717585104*^9,
3.749880723450714*^9}, {3.7498813869364843`*^9, 3.749881393691296*^9}, {
3.7498818557329073`*^9, 3.7498819562302837`*^9}, {3.7498822620708213`*^9,
3.749882265019226*^9}, {3.7498835791147366`*^9, 3.7498835812675405`*^9},
3.7498882545484343`*^9, {3.750219373509694*^9, 3.750219376327855*^9}, {
3.750219786524317*^9, 3.750219788656439*^9}, {3.7502202491447773`*^9,
3.750220251622919*^9}, {3.7502205218343744`*^9, 3.7502205872291145`*^9}, {
3.750236386722456*^9, 3.7502364033988853`*^9}, {3.750237826573785*^9,
3.750237826948186*^9}, {3.750237879816678*^9, 3.7502378942779036`*^9},
3.7511633369945087`*^9, {3.751163384259794*^9, 3.7511634017982254`*^9},
3.7511652905914345`*^9, {3.751165373117183*^9, 3.7511653835390015`*^9},
3.7511654451325665`*^9, 3.751268739799609*^9, {3.751269445875994*^9,
3.7512694610778637`*^9}, 3.7512697693574963`*^9, {3.7516477056087317`*^9,
3.7516477286175737`*^9}, {3.7516923857619095`*^9, 3.751692399077134*^9}, {
3.7571346764335957`*^9, 3.757134693016425*^9}, {3.75723906762848*^9,
3.7572390743052917`*^9}, {3.758604196180853*^9, 3.758604197023741*^9}, {
3.758604827630329*^9, 3.75860485151748*^9}, {3.758873498614388*^9,
3.758873520644109*^9}, {3.758873669910099*^9, 3.758873690321392*^9},
3.758874051933025*^9, 3.758874213822904*^9, {3.758877257401375*^9,
3.75887726409789*^9}, {3.758898848620735*^9, 3.7588988790343924`*^9}, {
3.7589595325515947`*^9, 3.758959547977894*^9}, {3.7621069849819508`*^9,
3.762107076273663*^9}, {3.762107199579204*^9, 3.7621072487555304`*^9}, {
3.7621072928487387`*^9, 3.762107307852293*^9}, 3.7623434316153173`*^9,
3.762343501202488*^9, {3.775653341127287*^9, 3.775653390022399*^9}, {
3.775653503038368*^9, 3.7756535364159737`*^9}, {3.7756536860900583`*^9,
3.7756537064368362`*^9}, {3.7756537999795237`*^9,
3.7756539463609447`*^9}, {3.775653999248114*^9, 3.775654012272456*^9},
3.775654063287271*^9},ExpressionUUID->"12726435-46fb-46b7-8eb4-\
aeffb3e295d4"]
}, Open ]],
Cell[CellGroupData[{
Cell["Define the Kernel of the tight bonding Hamiltonian;", "Subsubsection",
CellChangeTimes->{{3.775653720796669*^9, 3.775653746573892*^9}, {
3.775654119635598*^9, 3.77565414702024*^9}, 3.77565445289816*^9},
Background->GrayLevel[
0.85],ExpressionUUID->"b94bd2bc-51ab-4f39-a733-75ff3a989628"],
Cell[BoxData[
RowBox[{"\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"hMatrix", "=",
RowBox[{"{", "\[IndentingNewLine]",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"ti", "*", "\[ImaginaryI]", "*",
RowBox[{"dhi", "[",
RowBox[{"kx", ",", "ky"}], "]"}]}], ",", "0", " ", ",",
RowBox[{
RowBox[{"-", "t"}], "*",
RowBox[{"phi", "[",
RowBox[{"kx", ",", "ky"}], "]"}]}], ",",
RowBox[{"tr", "*", "\[ImaginaryI]", "*",
RowBox[{"rud", "[",
RowBox[{"kx", ",", "ky"}], "]"}]}]}], "}"}], ",",
"\[IndentingNewLine]",
RowBox[{"{",
RowBox[{"0", ",",
RowBox[{
RowBox[{"-", "ti"}], "*", "\[ImaginaryI]", "*",
RowBox[{"dhi", "[",
RowBox[{"kx", ",", "ky"}], "]"}]}], ",",
RowBox[{"tr", "*", "\[ImaginaryI]", "*",
RowBox[{"rdu", "[",
RowBox[{"kx", ",", "ky"}], "]"}]}], ",",
RowBox[{
RowBox[{"-", "t"}], "*",
RowBox[{"phi", "[",
RowBox[{"kx", ",", "ky"}], "]"}]}]}], "}"}], ",",
"\[IndentingNewLine]",
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{"-", "t"}], "*",
RowBox[{"Conjugate", "[",
RowBox[{"phi", "[",
RowBox[{"kx", ",", "ky"}], "]"}], "]"}]}], ",",
RowBox[{
RowBox[{"-", "tr"}], "*", "\[ImaginaryI]", "*",
RowBox[{"Conjugate", "[",
RowBox[{"rdu", "[",
RowBox[{"kx", ",", "ky"}], "]"}], "]"}]}], ",",
RowBox[{
RowBox[{"-", "ti"}], "*", "\[ImaginaryI]", "*",
RowBox[{"dhi", "[",
RowBox[{"kx", ",", "ky"}], "]"}]}], ",", "0"}], "}"}], ",",
"\[IndentingNewLine]",
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{"-", "tr"}], "*", "\[ImaginaryI]", "*",
RowBox[{"Conjugate", "[",
RowBox[{"rud", "[",
RowBox[{"kx", ",", "ky"}], "]"}], "]"}]}], ",",
RowBox[{
RowBox[{"-", "t"}], "*",
RowBox[{"Conjugate", "[",
RowBox[{"phi", "[",
RowBox[{"kx", ",", "ky"}], "]"}], "]"}]}], ",", "0", ",",
RowBox[{"ti", "*", "\[ImaginaryI]", "*",
RowBox[{"dhi", "[",
RowBox[{"kx", ",", "ky"}], "]"}]}]}], "}"}]}], "}"}]}], ";"}],
"\[IndentingNewLine]", "\[IndentingNewLine]",
RowBox[{
RowBox[{"hMatrix", "=",
RowBox[{"Simplify", "[",
RowBox[{
RowBox[{"ExpToTrig", "[", "hMatrix", "]"}], ",",
RowBox[{"Assumptions", "\[Rule]",
RowBox[{
RowBox[{"{",
RowBox[{"t", ",", "ti", ",", "tr", ",", "a", ",", "kx", ",", "ky"}],
"}"}], "\[Element]", "Reals"}]}]}], "]"}]}], ";"}]}]}]], "Input",
CellChangeTimes->{{3.7571348953487806`*^9, 3.7571349345672493`*^9}, {
3.758604220259617*^9, 3.758604226293264*^9}, {3.7586042723363647`*^9,
3.758604276492651*^9}, 3.7586048659270678`*^9, {3.758604984799974*^9,
3.758605022930592*^9}, 3.75860506714701*^9, {3.758605130975121*^9,
3.7586051366174307`*^9}, {3.758606799635928*^9, 3.758606872083205*^9}, {
3.75860691074584*^9, 3.758606911347351*^9}, {3.758607471038289*^9,
3.75860748704047*^9}, {3.7586124249024153`*^9, 3.7586124251740303`*^9}, {
3.758612640531579*^9, 3.758612646923764*^9}, {3.758843968111046*^9,
3.75884397373143*^9}, 3.758874059288872*^9, {3.7588740919807568`*^9,
3.7588741143631907`*^9}, {3.758874191228794*^9, 3.758874239678529*^9},
3.758876189848308*^9, {3.758877244693783*^9, 3.758877272777001*^9}, {
3.7588795006367083`*^9, 3.758879515760109*^9}, {3.758888774626913*^9,
3.7588887760912447`*^9}, {3.758898891254992*^9, 3.758898911129705*^9}, {
3.758898979754633*^9, 3.75889898250988*^9}, {3.75889902375564*^9,
3.75889909127168*^9}, 3.7588992229357157`*^9, {3.7588994032546883`*^9,
3.7588994258439083`*^9}, {3.758954112298889*^9, 3.758954112857074*^9}, {
3.762108356022113*^9, 3.762108368451837*^9}, {3.7621084357897043`*^9,
3.7621085192555647`*^9}, {3.7621085598571*^9, 3.76210856055678*^9}, {
3.762109383269046*^9, 3.762109387411852*^9}, {3.762110709859378*^9,
3.7621107134074287`*^9}, {3.7622532654023027`*^9, 3.762253280055745*^9}, {
3.762343392226036*^9, 3.76234340894427*^9},
3.775653347447794*^9},ExpressionUUID->"f134a2f8-f872-4295-ae0c-\
2cb2c01124c3"],
Cell[BoxData[
RowBox[{
RowBox[{"hkInterLayer", "=",
RowBox[{"tp",
RowBox[{"{", "\[IndentingNewLine]",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",",
"\[IndentingNewLine]",
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "}"}], ",",
"\[IndentingNewLine]",
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",",
"\[IndentingNewLine]",
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}]}],
";"}]], "Input",
CellChangeTimes->{
3.7526250458258452`*^9, 3.758793874456485*^9, {3.758877338131715*^9,
3.758877379348233*^9}, {3.758894018127009*^9, 3.75889406685902*^9}},
CellLabel->"In[10]:=",ExpressionUUID->"deabb7f9-8630-4f53-af27-a1688383a3a0"],
Cell[BoxData[
RowBox[{
RowBox[{"hMatrixAB", "=",
RowBox[{"ArrayFlatten", "[",
RowBox[{"{", "\[IndentingNewLine]",
RowBox[{
RowBox[{"{", " ",
RowBox[{
RowBox[{"hMatrix", "+",
RowBox[{"V", " ",
RowBox[{"IdentityMatrix", "[", "4", "]"}]}]}], ",",
"hkInterLayer"}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"Transpose", "[", "hkInterLayer", "]"}], ",", " ",
RowBox[{"hMatrix", "-",
RowBox[{"V", " ",
RowBox[{"IdentityMatrix", "[", "4", "]"}]}]}]}], "}"}]}],
"\[IndentingNewLine]", "}"}], "]"}]}], ";"}]], "Input",
CellChangeTimes->{{3.758607399881625*^9, 3.758607409347968*^9}, {
3.7588773860486517`*^9, 3.758877391970302*^9}, {3.758894111804208*^9,
3.758894115895347*^9}, {3.758899493629436*^9, 3.758899501670021*^9}, {
3.758900382857216*^9, 3.758900389328006*^9}},
CellLabel->"In[11]:=",ExpressionUUID->"ca8b8f8d-2443-458f-ab89-afacc5d96a53"],
Cell[BoxData[
RowBox[{
RowBox[{"hMatrixAB", "=",
RowBox[{"Simplify", "[",
RowBox[{
RowBox[{"ExpToTrig", "[", "hMatrixAB", "]"}], ",",
RowBox[{"Assumptions", "\[Rule]",
RowBox[{
RowBox[{"{",
RowBox[{
"t", ",", "ti", ",", "tr", ",", "tp", ",", "V", ",", "a", ",", "kx",
",", "ky"}], "}"}], "\[Element]", "Reals"}]}]}], "]"}]}],
";"}]], "Input",
CellChangeTimes->{{3.752624976801897*^9, 3.752625007651662*^9}, {
3.7526251092344723`*^9, 3.752625109675497*^9}, {3.7526253401276784`*^9,
3.7526253696183653`*^9}, {3.7528013736313868`*^9, 3.752801378780396*^9}, {
3.7528014979214096`*^9, 3.7528014994346123`*^9}, {3.752802747548994*^9,
3.7528027526346025`*^9}, {3.752802794629885*^9, 3.7528028172689257`*^9},
3.757134878547551*^9, {3.757134953708483*^9, 3.7571349551748857`*^9}, {
3.758606925997841*^9, 3.7586069370844603`*^9}, {3.758612412504127*^9,
3.758612412810732*^9}, {3.758877401696418*^9, 3.7588774055865726`*^9}, {
3.7621086978770533`*^9, 3.762108699433364*^9}, {3.762231311052004*^9,
3.762231350401617*^9}, 3.762232786970957*^9, 3.775653035656855*^9,
3.775654165861332*^9},
CellLabel->"",ExpressionUUID->"6da81ac9-cabb-426c-b046-280334169139"]
}, Open ]],
Cell[CellGroupData[{
Cell["Solve the eigenvalues;", "Subsubsection",
CellChangeTimes->{{3.775653720796669*^9, 3.775653746573892*^9}, {
3.7756542680030403`*^9, 3.775654275160618*^9}, 3.775654456861442*^9},
Background->GrayLevel[
0.85],ExpressionUUID->"97768d09-42bf-4aec-b2a5-0bc324c3671c"],
Cell[BoxData[
RowBox[{
RowBox[{"spectrumAB", "=",
RowBox[{"Eigenvalues", "[", "hMatrixAB", "]"}]}], ";"}]], "Input",
CellChangeTimes->{
3.757238770161957*^9, 3.757239058112463*^9, 3.757239094491727*^9,
3.7621093176579227`*^9, {3.762110232586213*^9, 3.76211023303301*^9},
3.762110578234363*^9, {3.7622306086040163`*^9, 3.762230621457502*^9}, {
3.762253549779736*^9, 3.7622535559412518`*^9}, {3.775654235940568*^9,
3.775654240958582*^9}},ExpressionUUID->"140766af-4274-42a9-9ca9-\
4aa93490a746"],
Cell[BoxData[
RowBox[{"(*",
RowBox[{"DumpSave", "[",
RowBox[{"\"\<EneSpecSOC.mx\>\"", ",", "spectrumAB"}], "]"}],
"*)"}]], "Input",
CellChangeTimes->{{3.762389295809257*^9, 3.7623893113435*^9}, {
3.762390602831259*^9, 3.762390605522027*^9}, {3.77565301928161*^9,
3.775653026098667*^9}},ExpressionUUID->"cf32d7cc-ad98-4ddb-81c2-\
e315b476cfcb"]
}, Open ]],
Cell[CellGroupData[{
Cell["Direction on BZ;", "Subsubsection",
CellChangeTimes->{{3.775653720796669*^9, 3.775653746573892*^9}, {
3.7756542680030403`*^9, 3.7756543016722393`*^9}, 3.7756544597096357`*^9},
Background->GrayLevel[
0.85],ExpressionUUID->"74114e4b-8c09-4ef2-b382-b518371c9736"],
Cell[BoxData[{
RowBox[{
RowBox[{"kLine", "[",
RowBox[{"dir_", ",", "Dk_"}], "]"}], ":=",
RowBox[{"Module", "[", "\[IndentingNewLine]",
RowBox[{
RowBox[{"{",
RowBox[{"DirVec", "=",
RowBox[{"-",
RowBox[{"Subtract", " ", "@@", " ", "dir"}]}]}], "}"}], ",", " ",
RowBox[{"(*", " ",
RowBox[{"Direction", " ", "vector"}], " ", "*)"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Nr", "=",
RowBox[{"Floor", "[",
FractionBox[
RowBox[{"Norm", "[", "DirVec", "]"}], "Dk"], "]"}]}], ";", " ",
RowBox[{"(*", " ",
RowBox[{"Nr", " ", "of", " ", "sampling", " ", "points"}], " ", "*)"}],
"\[IndentingNewLine]",
RowBox[{"NestList", "[",
RowBox[{
RowBox[{
RowBox[{"Plus", "[",
RowBox[{"#", ",",
RowBox[{
FractionBox["1", "Nr"], "DirVec"}]}], "]"}], "&"}], ",",
RowBox[{"dir", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}],
",", "Nr"}], "]"}]}]}], "\[IndentingNewLine]",
"]"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"kPath", "[",
RowBox[{"path_", ",", "Dk_"}], "]"}], ":=",
RowBox[{
RowBox[{
RowBox[{"kLine", "[",
RowBox[{"#", ",", "Dk"}], "]"}], "&"}], " ", "/@", " ",
"path"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"N\[CapitalGamma]", "=",
RowBox[{"{",
RowBox[{"0", ",", "0"}], "}"}]}], ";", " ",
RowBox[{"NK", "=",
RowBox[{"{",
RowBox[{
FractionBox[
RowBox[{"4", "\[Pi]"}],
RowBox[{"3",
SqrtBox["3"]}]], ",", "0"}], "}"}]}], ";", " ",
RowBox[{"NM", "=",
RowBox[{
FractionBox[
RowBox[{"2", "\[Pi]"}], "3"],
RowBox[{"{",
RowBox[{
FractionBox[
SqrtBox["3"], "2"], ",",
FractionBox["1", "2"]}], "}"}]}]}],
";"}], "\[IndentingNewLine]"}], "Input",
CellChangeTimes->{{3.7474699315812*^9, 3.7474699323144016`*^9},
3.775654320687996*^9},
CellLabel->"In[37]:=",ExpressionUUID->"ac9320c0-4e5e-488f-8dd3-5a7b1f4a1cc1"]
}, Open ]],
Cell[CellGroupData[{
Cell[" Define functions for the Dispersion Relations;", "Subsubsection",
CellChangeTimes->{{3.775653720796669*^9, 3.775653746573892*^9}, {
3.7756542680030403`*^9, 3.7756543016722393`*^9}, {3.7756543466763163`*^9,
3.775654351232684*^9}, 3.775654463621608*^9},
Background->GrayLevel[
0.85],ExpressionUUID->"6514da88-1d28-4c5c-81fd-5b4ebd9ee6a7"],
Cell[BoxData[{
RowBox[{
RowBox[{"Table", "[", "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{
RowBox[{
RowBox[{"EkBL", "[", "i", "]"}], "[",
RowBox[{"{",
RowBox[{"kx_", ",", "ky_"}], "}"}], "]"}], "=",
RowBox[{
RowBox[{
"spectrumAB", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], "/.",
RowBox[{"{",
RowBox[{
RowBox[{"a", "\[Rule]", "1"}], ",",
RowBox[{"t", "\[Rule]", "1"}], ",",
RowBox[{"tp", "\[Rule]", "0.2"}], ",",
RowBox[{"ti", "\[Rule]", "0.15"}], ",",
RowBox[{"tr", "\[Rule]", "0.28"}], " ", ",",
RowBox[{"V", "\[Rule]", "0.5"}]}], "}"}]}]}], ";"}],
"\[IndentingNewLine]", ",",
RowBox[{"{",
RowBox[{"i", ",", "8"}], "}"}]}], "]"}], ";"}], "\n",
RowBox[{
RowBox[{"temp", "=",
RowBox[{"kPath", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"N\[CapitalGamma]", ",", "NM"}], "}"}], ",",
RowBox[{"{",
RowBox[{"NM", ",", "NK"}], "}"}], ",",
RowBox[{"{",
RowBox[{"NK", ",", "N\[CapitalGamma]"}], "}"}]}], "}"}], ",", ".01"}],
"]"}]}], ";"}]}], "Input",
CellChangeTimes->{{3.747469957664446*^9, 3.7474700479106045`*^9},
3.757238972593113*^9, {3.757239143054612*^9, 3.757239174675868*^9}, {
3.757239214440338*^9, 3.757239290927272*^9}, {3.758606958055153*^9,
3.758606983901388*^9}, 3.758607103303513*^9, {3.758607423586953*^9,
3.758607453300819*^9}, {3.758607874708683*^9, 3.7586079610260057`*^9}, {
3.7586123947086163`*^9, 3.758612396163196*^9}, {3.75861246188899*^9,
3.758612462173069*^9}, {3.758612851598649*^9, 3.7586128679554663`*^9}, {
3.758615191655732*^9, 3.758615199040765*^9}, {3.7587901549194317`*^9,
3.758790191192206*^9}, {3.758790265482374*^9, 3.758790266403265*^9}, {
3.7587903087186337`*^9, 3.758790408897911*^9}, {3.758790466917386*^9,
3.7587904678628674`*^9}, 3.758790517165195*^9, {3.7587905586938467`*^9,
3.758790581803609*^9}, {3.758790628780612*^9, 3.758790662760125*^9}, {
3.758790730450775*^9, 3.758790780925956*^9}, 3.75879083272075*^9, {
3.7587908748323174`*^9, 3.758790989675407*^9}, {3.758791032233042*^9,
3.758791032752046*^9}, {3.758791139973007*^9, 3.75879115859485*^9},
3.7587914528565807`*^9, {3.758791827552703*^9, 3.758791895942542*^9}, {
3.7587919281936407`*^9, 3.758791953350752*^9}, {3.7587921168937693`*^9,
3.758792139809016*^9}, {3.758794704836013*^9, 3.758794705634754*^9}, {
3.7587948208245373`*^9, 3.7587948244651012`*^9}, {3.758795202854484*^9,
3.75879523646861*^9}, {3.758801460408053*^9, 3.758801510345262*^9},
3.7588017551114607`*^9, {3.758801805081002*^9, 3.758801833877816*^9}, {
3.758801868080264*^9, 3.758801868358571*^9}, {3.758801983621793*^9,
3.758801992801597*^9}, {3.758812171408267*^9, 3.758812303660377*^9}, {
3.7588443148791637`*^9, 3.7588443391828327`*^9}, {3.758844380599036*^9,
3.7588444255523777`*^9}, 3.758877529139297*^9, {3.758877639821514*^9,
3.758877737139619*^9}, {3.758877772961581*^9, 3.75887782892806*^9}, {
3.758877863057208*^9, 3.758877917521533*^9}, {3.758877999535749*^9,
3.7588780145573263`*^9}, {3.758878045696239*^9, 3.758878046175494*^9}, {
3.758878414537322*^9, 3.758878414796468*^9}, 3.758879491793644*^9, {
3.758879635389638*^9, 3.758879654315481*^9}, {3.7588858798984137`*^9,
3.7588859159103193`*^9}, {3.758885971748334*^9, 3.758886000884165*^9}, {
3.758895967247367*^9, 3.7588959729702044`*^9}, {3.758896099207058*^9,
3.7588960995608397`*^9}, 3.758896718133514*^9, {3.758896756543331*^9,
3.7588967783374557`*^9}, 3.758899279346093*^9, {3.7588994694596243`*^9,
3.7588994696896553`*^9}, {3.758899547290654*^9, 3.758899555144506*^9}, {
3.7588996309119043`*^9, 3.758899657802947*^9}, {3.758899835261263*^9,
3.758899836457698*^9}, 3.758900108566128*^9, 3.758900251101302*^9,
3.758952909365821*^9, {3.7589536898838243`*^9, 3.758953693679311*^9}, {
3.758959799692593*^9, 3.758959873554057*^9}, {3.7589599119784327`*^9,
3.758959936450873*^9}, {3.758960024538307*^9, 3.758960026339217*^9}, {
3.7589600780882607`*^9, 3.7589600919763803`*^9}, {3.758980308856839*^9,
3.758980309138237*^9}, {3.758980499414888*^9, 3.758980501501916*^9}, {
3.7589805892508163`*^9, 3.7589806396847353`*^9}, {3.758980674205063*^9,
3.758980684817219*^9}, {3.758980994397992*^9, 3.75898107346041*^9}, {
3.75898968681437*^9, 3.758989687761812*^9}, 3.758992157977129*^9, {
3.7590323156870213`*^9, 3.75903231824009*^9}, {3.759032460586618*^9,
3.7590324614462767`*^9}, {3.7590325749934998`*^9, 3.759032615333149*^9}, {
3.759032657428912*^9, 3.759032694733086*^9}, {3.759032727544305*^9,
3.759032738024287*^9}, {3.7590327899568853`*^9, 3.759032837109487*^9}, {
3.759032881941236*^9, 3.75903300678631*^9}, {3.759034079999251*^9,
3.759034130720704*^9}, {3.759034188165172*^9, 3.759034246389995*^9}, {
3.7590343454379053`*^9, 3.759034388527438*^9}, {3.759034433044626*^9,
3.759034461421427*^9}, {3.759034518785741*^9, 3.7590345729401693`*^9}, {
3.759034615807476*^9, 3.759034689175309*^9}, {3.759034731098566*^9,
3.759034820134255*^9}, {3.759034956043089*^9, 3.75903497024994*^9},
3.759035002449287*^9, {3.759035079821162*^9, 3.7590351298652983`*^9}, {
3.759035299689846*^9, 3.759035349632944*^9}, {3.759035435386723*^9,
3.759035437888142*^9}, {3.7592072185720034`*^9, 3.759207225128065*^9}, {
3.7592073915527253`*^9, 3.7592074029088*^9}, 3.759207486400474*^9, {
3.7592076410423126`*^9, 3.759207667716977*^9}, {3.759207702950782*^9,
3.7592077695427284`*^9}, 3.759207970359373*^9, 3.759208021762169*^9,
3.759208168843852*^9, 3.7592082344070883`*^9, {3.7592082787607975`*^9,
3.7592082897357225`*^9}, {3.759208331763815*^9, 3.7592084648096247`*^9}, {
3.759208530965337*^9, 3.759208590980654*^9}, {3.759312250894164*^9,
3.7593122714781237`*^9}, {3.759312544763007*^9, 3.759312548538897*^9}, {
3.7593126634180527`*^9, 3.75931266387201*^9}, {3.759314793528247*^9,
3.759314800268032*^9}, {3.75931490078062*^9, 3.75931490104937*^9},
3.7605891461183767`*^9, 3.760589720339711*^9, 3.760589863191988*^9,
3.7605900506683702`*^9, {3.760590413555859*^9, 3.760590413742968*^9}, {
3.7605905332730627`*^9, 3.760590537254773*^9}, 3.760590660774456*^9,
3.760590795150798*^9, {3.762108712992578*^9, 3.762108718080154*^9}, {
3.762108850924858*^9, 3.762108852323105*^9}, 3.762109222667387*^9,
3.7621093647892847`*^9, {3.7622713285354757`*^9, 3.762271330112823*^9}, {
3.762301857894133*^9, 3.7623018585493507`*^9}, {3.762305173381774*^9,
3.762305175597334*^9}, {3.7623064826200027`*^9, 3.7623064829953537`*^9},
3.7623073889364443`*^9, {3.762319388125448*^9, 3.762319388254582*^9}, {
3.76232078989634*^9, 3.762320790105204*^9}, {3.762322098744131*^9,
3.762322099046986*^9}, 3.762324011147048*^9, {3.762324942719576*^9,
3.76232494299921*^9}, 3.7623274446502934`*^9, 3.775654392739182*^9, {
3.775654833010504*^9,
3.775654853263583*^9}},ExpressionUUID->"2a319008-0b79-42b5-95e4-\
83be9a842205"]
}, Open ]],
Cell[CellGroupData[{
Cell[" Apply the dispersion relation to the k-space mesh,", "Subsubsection",
CellChangeTimes->{{3.775653954187161*^9, 3.775653965346616*^9}, {
3.775654077627201*^9, 3.775654089568033*^9}, {3.775654416636179*^9,
3.77565442213186*^9}, {3.775654467139065*^9, 3.7756544677640953`*^9},
3.775654576315318*^9},
FontSize->14,
Background->RGBColor[
0.87, 0.94, 1],ExpressionUUID->"a25f9c07-efca-4e18-a625-20879fd661cf"],
Cell[BoxData[{
RowBox[{
RowBox[{"Band1", "=",
RowBox[{
RowBox[{"Map", "[",
RowBox[{
RowBox[{"EkBL", "[", "1", "]"}], ",", "temp", ",",
RowBox[{"{", "2", "}"}]}], "]"}], "//", "Flatten"}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Band2", "=",
RowBox[{
RowBox[{"Map", "[",
RowBox[{
RowBox[{"EkBL", "[", "2", "]"}], ",", "temp", ",",
RowBox[{"{", "2", "}"}]}], "]"}], "//", "Flatten"}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Band3", "=",
RowBox[{
RowBox[{"Map", "[",
RowBox[{
RowBox[{"EkBL", "[", "3", "]"}], ",", "temp", ",",
RowBox[{"{", "2", "}"}]}], "]"}], "//", "Flatten"}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Band4", "=",
RowBox[{
RowBox[{"Map", "[",
RowBox[{
RowBox[{"EkBL", "[", "4", "]"}], ",", "temp", ",",
RowBox[{"{", "2", "}"}]}], "]"}], "//", "Flatten"}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Band5", "=",
RowBox[{
RowBox[{"Map", "[",
RowBox[{
RowBox[{"EkBL", "[", "5", "]"}], ",", "temp", ",",
RowBox[{"{", "2", "}"}]}], "]"}], "//", "Flatten"}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Band6", "=",
RowBox[{
RowBox[{"Map", "[",
RowBox[{
RowBox[{"EkBL", "[", "6", "]"}], ",", "temp", ",",
RowBox[{"{", "2", "}"}]}], "]"}], "//", "Flatten"}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Band7", "=",
RowBox[{
RowBox[{"Map", "[",
RowBox[{
RowBox[{"EkBL", "[", "7", "]"}], ",", "temp", ",",
RowBox[{"{", "2", "}"}]}], "]"}], "//", "Flatten"}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Band8", "=",
RowBox[{
RowBox[{"Map", "[",
RowBox[{
RowBox[{"EkBL", "[", "8", "]"}], ",", "temp", ",",
RowBox[{"{", "2", "}"}]}], "]"}], "//", "Flatten"}]}],
";"}], "\[IndentingNewLine]"}], "Input",
CellChangeTimes->{{3.747469957664446*^9, 3.7474700479106045`*^9},
3.757238972593113*^9, {3.757239143054612*^9, 3.757239174675868*^9}, {
3.757239214440338*^9, 3.757239290927272*^9}, {3.758606958055153*^9,
3.758606983901388*^9}, 3.758607103303513*^9, {3.758607423586953*^9,
3.758607453300819*^9}, {3.758607874708683*^9, 3.7586079610260057`*^9}, {
3.7586123947086163`*^9, 3.758612396163196*^9}, {3.75861246188899*^9,
3.758612462173069*^9}, {3.758612851598649*^9, 3.7586128679554663`*^9}, {
3.758615191655732*^9, 3.758615199040765*^9}, {3.7587901549194317`*^9,