91 lines
2.5 KiB
Mathematica
91 lines
2.5 KiB
Mathematica
(* 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"]
|
|
}
|
|
]
|
|
*)
|
|
|