update

2023-11-07 03:38:46 +08:00
parent 1e7c4c0e68
commit bc3890c25b
212 changed files with 0 additions and 0 deletions
--- a/2021.08.09_flat_bands_of_Kagome
+++ b/2021.08.09_flat_bands_of_Kagome
@@ -0,0 +1,90 @@
+(* Content-type: application/vnd.wolfram.mathematica *)
+
+(*** Wolfram Notebook File ***)
+(* http://www.wolfram.com/nb *)
+
+(* CreatedBy='Mathematica 12.0' *)
+
+(*CacheID: 234*)
+(* Internal cache information:
+NotebookFileLineBreakTest
+NotebookFileLineBreakTest
+NotebookDataPosition[       158,          7]
+NotebookDataLength[      2422,         82]
+NotebookOptionsPosition[      2082,         67]
+NotebookOutlinePosition[      2469,         84]
+CellTagsIndexPosition[      2426,         81]
+WindowFrame->Normal*)
+
+(* Beginning of Notebook Content *)
+Notebook[{
+Cell[BoxData[{
+ RowBox[{"Clear", "[", "\"\<`*\>\"", "]"}], "\n", 
+ RowBox[{
+  RowBox[{"k1a1", "=", "kx"}], ";"}], "\n", 
+ RowBox[{
+  RowBox[{"k2a2", "=", 
+   RowBox[{
+    RowBox[{"kx", "/", "2"}], "+", 
+    RowBox[{"ky", "*", 
+     RowBox[{
+      RowBox[{"Sqrt", "[", "3", "]"}], "/", "2"}]}]}]}], ";"}], "\n", 
+ RowBox[{
+  RowBox[{"k3a3", "=", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"-", "kx"}], "/", "2"}], "+", 
+    RowBox[{"ky", "*", 
+     RowBox[{
+      RowBox[{"Sqrt", "[", "3", "]"}], "/", "2"}]}]}]}], ";"}], "\n", 
+ RowBox[{
+  RowBox[{"H", "=", 
+   RowBox[{
+    RowBox[{"-", "2"}], "*", "t", "*", 
+    RowBox[{"(", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"0", ",", 
+         RowBox[{"Cos", "[", "k1a1", "]"}], ",", 
+         RowBox[{"Cos", "[", "k2a2", "]"}]}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{"Cos", "[", "k1a1", "]"}], ",", "0", ",", 
+         RowBox[{"Cos", "[", "k3a3", "]"}]}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{
+         RowBox[{"Cos", "[", "k2a2", "]"}], ",", 
+         RowBox[{"Cos", "[", "k3a3", "]"}], ",", "0"}], "}"}]}], "}"}], 
+     ")"}]}]}], ";"}], "\n", 
+ RowBox[{"MatrixForm", "[", "H", "]"}], "\n", 
+ RowBox[{"eigenvalue", "=", 
+  RowBox[{"MatrixForm", "[", 
+   RowBox[{"Eigenvalues", "[", "H", "]"}], "]"}]}]}], "Input",
+ CellChangeTimes->{{3.837485198864452*^9, 3.837485198867505*^9}, {
+  3.837497369979506*^9, 3.8374974574378343`*^9}},
+ CellLabel->"",ExpressionUUID->"a7abdb4e-e7ef-4556-9d32-d94836d031ca"]
+},
+WindowSize->{1147, 812},
+WindowMargins->{{Automatic, 228}, {22, Automatic}},
+Magnification:>1.7 Inherited,
+FrontEndVersion->"12.0 for Microsoft Windows (64-bit) (2019\:5e744\:67088\
+\:65e5)",
+StyleDefinitions->"Default.nb"
+]
+(* End of Notebook Content *)
+
+(* Internal cache information *)
+(*CellTagsOutline
+CellTagsIndex->{}
+*)
+(*CellTagsIndex
+CellTagsIndex->{}
+*)
+(*NotebookFileOutline
+Notebook[{
+Cell[558, 20, 1520, 45, 514, "Input",ExpressionUUID->"a7abdb4e-e7ef-4556-9d32-d94836d031ca"]
+}
+]
+*)
+