(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 12.1' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 1525090, 37098] NotebookOptionsPosition[ 1462774, 36074] NotebookOutlinePosition[ 1463241, 36092] CellTagsIndexPosition[ 1463198, 36089] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["\<\ 4DN=4VMTM_onshell_final On Shell Algebra and Holoraumy for the 4D N=4 vector tensor multiplet Notebook Authors: Gabriel Hannon, Rui Xian Siew, and Kory Stiffler\ \>", "Title", CellChangeTimes->{{3.8312146491543283`*^9, 3.831214695498226*^9}, { 3.8312169355162835`*^9, 3.8312169649632835`*^9}, {3.8318217816245594`*^9, 3.8318218321086717`*^9}, 3.831822262102597*^9, {3.8318223288599668`*^9, 3.8318223299069743`*^9}},ExpressionUUID->"62b7c42d-14e8-45fb-80e4-\ 587b8a8a8c1e"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"$RecursionLimit", " ", "=", " ", "Infinity"}], "\[IndentingNewLine]", RowBox[{"<<", " ", "Adinkra.wl"}]}], "Input", CellChangeTimes->{{3.791294603661655*^9, 3.791294614764751*^9}, { 3.792415490425293*^9, 3.79241549503126*^9}, {3.7943111282551937`*^9, 3.794311132798807*^9}, {3.794311176559059*^9, 3.794311177704316*^9}, { 3.7943112165085793`*^9, 3.7943112167837477`*^9}}, CellLabel->"In[1]:=",ExpressionUUID->"b0c48230-c0e5-427b-baca-1e7d9722ca5c"], Cell[BoxData["\[Infinity]"], "Output", CellChangeTimes->{ 3.7912946153287687`*^9, 3.7913240385354*^9, 3.791324170161663*^9, 3.791390280853896*^9, 3.791390316755274*^9, 3.791390446686308*^9, 3.791390623058936*^9, 3.791634983772442*^9, 3.791639018212882*^9, 3.791640527144182*^9, 3.791717426631242*^9, 3.791717551838718*^9, { 3.791717585698399*^9, 3.791717613267457*^9}, 3.791718464143771*^9, 3.791814800366518*^9, 3.7918159056436977`*^9, 3.7918357415791683`*^9, 3.791840996460363*^9, 3.7918413177727737`*^9, 3.791982675156218*^9, 3.7921005178034973`*^9, 3.792104968261633*^9, 3.7921052788791933`*^9, 3.7921726636167717`*^9, 3.792172739381213*^9, 3.792183684459621*^9, 3.792338483015588*^9, 3.792352020972785*^9, 3.792352084042116*^9, { 3.792415492303398*^9, 3.792415495621242*^9}, 3.794311061501729*^9, { 3.7943111179475307`*^9, 3.794311133896649*^9}, {3.794311211010178*^9, 3.7943112502890873`*^9}, {3.794673651071494*^9, 3.79467370154265*^9}, 3.794674307295473*^9, 3.794674729350527*^9, 3.7946747728646803`*^9, 3.79534604067275*^9, 3.795350915261251*^9, 3.795351783828927*^9, 3.795355595089466*^9, 3.795355627851509*^9, 3.798631173635364*^9, 3.798631603276018*^9, 3.798636846737711*^9, 3.7986372975838423`*^9, 3.7986384273198147`*^9, 3.798638459761127*^9, 3.798638614759939*^9, 3.798646661177013*^9, 3.798646772776248*^9, 3.798647671027068*^9, 3.7986497831386433`*^9, 3.79865320267628*^9, 3.798653429411689*^9, 3.7986678323108273`*^9, 3.798726487338238*^9, 3.798740308520927*^9, 3.7987407271003942`*^9, 3.798752620753047*^9, 3.798796784590547*^9, 3.7988181214076443`*^9, 3.798818700258896*^9, 3.7988190378848763`*^9, 3.798821470114387*^9, 3.798822371732617*^9, 3.798822861366523*^9, 3.7988244607928047`*^9, {3.798824524015856*^9, 3.798824537290811*^9}, 3.798824678986168*^9, 3.798825577401643*^9, 3.7988256220554657`*^9, 3.798827557771015*^9, 3.798827634366321*^9, 3.7988277816831703`*^9, 3.798829458387702*^9, 3.798829993508951*^9, 3.798830125735682*^9, 3.798830229441431*^9, {3.798835190652935*^9, 3.7988352179257917`*^9}, 3.798835269588543*^9, 3.798835398677204*^9, {3.798835523481553*^9, 3.798835549421026*^9}, 3.798835580788856*^9, {3.7988356884954243`*^9, 3.798835706059002*^9}, 3.7988357364837093`*^9, {3.798835819051753*^9, 3.79883585018513*^9}, 3.798835983098411*^9, 3.798836328515071*^9, 3.798837021124422*^9, 3.798845546246312*^9, 3.798892739460723*^9, 3.7988943348169327`*^9, 3.798894435984674*^9, 3.798903220571121*^9, 3.798917671493334*^9, {3.799057838502305*^9, 3.799057861243701*^9}, 3.7990606417356*^9, 3.799069057120679*^9, 3.799316663956977*^9, 3.799492281044333*^9, 3.7995287566894073`*^9, 3.7995301798882713`*^9, 3.799533290289319*^9, 3.7995789843497467`*^9, 3.799609828310314*^9, 3.799610262913807*^9, 3.7996635214540873`*^9, 3.7996660369573936`*^9, 3.799679692175366*^9, 3.7996998630120373`*^9, 3.799703912105297*^9, 3.799703969181305*^9, 3.79970403039966*^9, 3.79970417890061*^9, 3.7997043199915047`*^9, 3.799704351715315*^9, 3.7997418473180103`*^9, 3.799743094996413*^9, 3.7997454717806797`*^9, 3.799745530106105*^9, 3.79974646000465*^9, 3.799752696907939*^9, 3.79975972834093*^9, 3.8001104305619392`*^9, 3.8001105843134403`*^9, 3.8001110215363073`*^9, 3.800111538382914*^9, 3.800113471414425*^9, 3.800129883596108*^9, 3.800133873852191*^9, 3.800139041877285*^9, 3.800141214024435*^9, 3.8002136137704687`*^9, 3.800214523305502*^9, 3.800215525229219*^9, 3.800216803907215*^9, 3.800217540030805*^9, 3.8003577685181417`*^9, 3.800365843604331*^9, 3.800365995952482*^9, 3.8003663314552*^9, 3.80039284130019*^9, 3.8003966277797327`*^9, 3.800446501055603*^9, 3.800448572444366*^9, 3.800448838427816*^9, 3.80047979135614*^9, 3.800482266108683*^9, 3.800529446936784*^9, 3.8005368171265173`*^9, 3.800786891090809*^9, 3.80080985346342*^9, 3.826162295327639*^9, 3.826162486402223*^9, 3.8261635919687853`*^9, 3.8261639801658*^9, 3.8293150238314657`*^9, 3.845815392698804*^9}, CellLabel->"Out[1]=",ExpressionUUID->"7ea26fb5-81bc-4ecf-9e82-1aafb713c63d"] }, Open ]], Cell[CellGroupData[{ Cell["Function Rules And Shorthands", "Section", CellChangeTimes->{{3.769429504372362*^9, 3.769429508519245*^9}, 3.769429598514371*^9, 3.769430054794807*^9, {3.798637546288292*^9, 3.798637548772656*^9}},ExpressionUUID->"bade0b7a-1279-4464-bccc-\ 25383e507cf8"], Cell[BoxData[ RowBox[{"(*", RowBox[{ "These", " ", "rules", " ", "ensure", " ", "linearity", " ", "of", " ", "our", " ", "derivative", " ", "operator", " ", "and", " ", "give", " ", "us", " ", "some", " ", "nice", " ", "definitions", " ", "for", " ", "operators", " ", "which", " ", "will", " ", "simplify", " ", "code"}], "*)"}]], "Input", CellChangeTimes->{{3.796656219806962*^9, 3.796656263512413*^9}, { 3.7988176975537148`*^9, 3.798817705968762*^9}}, CellLabel->"In[3]:=",ExpressionUUID->"57f46897-b37f-465b-b292-77b187cc7a41"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt_", "]"}], "[", "ii_", "]"}], "[", "aa_", "]"}], "[", RowBox[{"Arg1_", "+", "Arg2_"}], "]"}], ":=", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", "Arg1", "]"}], " ", "+", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", "Arg2", "]"}]}]}]], "Input", CellChangeTimes->{{3.769423533334175*^9, 3.769423700899221*^9}, { 3.7694237430712147`*^9, 3.76942381257733*^9}, {3.7694238892915783`*^9, 3.7694239033804703`*^9}, {3.791040468351142*^9, 3.791040553667984*^9}, { 3.791294796915122*^9, 3.79129480555546*^9}, {3.7988176029662857`*^9, 3.7988176298544903`*^9}, {3.798817691635911*^9, 3.798817694619725*^9}}, CellLabel->"In[4]:=",ExpressionUUID->"5341ab99-106a-4dac-8dd2-afec2a5263e5"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.7910404751315517`*^9, 3.791040475849969*^9}}, CellLabel->"In[5]:=",ExpressionUUID->"9b443d38-0136-4c7c-aabb-70d7014d1802"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt_", "]"}], "[", "ii_", "]"}], "[", "aa_", "]"}], "[", RowBox[{"Arg1_", " ", "Arg2_"}], "]"}], "/;", RowBox[{"NumberQ", "[", "Arg1", "]"}]}], ":=", RowBox[{"Arg1", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", "Arg2", "]"}]}]}]], "Input", CellChangeTimes->{{3.769430107866568*^9, 3.7694301121869783`*^9}, { 3.7694392955845346`*^9, 3.7694392972429333`*^9}, {3.791040484972455*^9, 3.791040488801034*^9}, {3.7910405405737247`*^9, 3.791040557250204*^9}, { 3.791294810725054*^9, 3.79129481385015*^9}, {3.794674569573723*^9, 3.794674570383772*^9}, {3.79881771251787*^9, 3.798817722266552*^9}}, CellLabel->"In[6]:=",ExpressionUUID->"bd6e3956-9dca-470f-8a8b-983bb88f19bd"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt_", "]"}], "[", "ii_", "]"}], "[", "aa_", "]"}], "[", RowBox[{ SuperscriptBox["Field_", TagBox[ RowBox[{"(", RowBox[{"nt_", ",", "nx_", ",", "ny_", ",", "nz_"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ":=", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{"Field", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "nt"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "nx"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", "ny"}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", "nz"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt_", "]"}], "[", "ii_", "]"}], "[", "aa_", "]"}], "[", RowBox[{"Arg1_", " ", "Arg2_"}], "]"}], "/;", RowBox[{"NumberQ", "[", "Arg2", "]"}]}], ":=", RowBox[{"Arg2", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", "Arg1", "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt_", "]"}], "[", "ii_", "]"}], "[", "aa_", "]"}], "[", "Arg1_", "]"}], "/;", RowBox[{"NumberQ", "[", "Arg1", "]"}]}], ":=", " ", RowBox[{"Arg1", " ", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt", "]"}], "[", "ii", "]"}], "[", "aa", "]"}]}]}]}], "Input", CellChangeTimes->{{3.769434616721332*^9, 3.769434616850626*^9}, { 3.7694346653645067`*^9, 3.769434695116803*^9}, {3.769434811486863*^9, 3.769434829241932*^9}, {3.769434955607209*^9, 3.769434971321167*^9}, { 3.7910404911510773`*^9, 3.791040493639868*^9}, {3.791040543302483*^9, 3.7910405619410667`*^9}, {3.791294816894209*^9, 3.7912948200241137`*^9}, { 3.791840903625238*^9, 3.791840993597351*^9}, {3.791841059780002*^9, 3.7918411619966927`*^9}, {3.794674577084284*^9, 3.7946745948743067`*^9}, { 3.794674657408845*^9, 3.794674705019175*^9}, {3.798817758249432*^9, 3.7988178042006407`*^9}}, CellLabel->"In[7]:=",ExpressionUUID->"8c6e1004-a8c7-48ec-9a2d-4caa6a770490"], Cell[BoxData[ RowBox[{ RowBox[{"AlgebraTil0", "[", "Field_", "]"}], ":=", " ", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", "Field", "]"}], "]"}], " ", "+", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", "Field", "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"aa", ",", " ", "1", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"bb", ",", " ", "1", ",", "4"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}]}]], "Input", CellChangeTimes->{{3.79546823006227*^9, 3.795468232474873*^9}, { 3.795468281748931*^9, 3.795468390681388*^9}, {3.7954689201430597`*^9, 3.795468923500983*^9}, {3.7954702125641747`*^9, 3.795470291958775*^9}, { 3.795470397871891*^9, 3.795470409010441*^9}, {3.795470736650284*^9, 3.795470749877842*^9}, {3.7954708000082197`*^9, 3.7954708142007513`*^9}, { 3.798637102182908*^9, 3.798637127061118*^9}, {3.798817812205155*^9, 3.798817894529434*^9}}, CellLabel->"In[10]:=",ExpressionUUID->"1a122ba6-526d-453c-93e2-e7adf4c18af7"], Cell[BoxData[ RowBox[{ RowBox[{"AlgebraTil1", "[", "Field_", "]"}], ":=", " ", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", "Field", "]"}], "]"}], " ", "+", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", "Field", "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"aa", ",", " ", "1", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"bb", ",", " ", "1", ",", "4"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}]}]], "Input", CellChangeTimes->{{3.798817898855836*^9, 3.798817914873073*^9}}, CellLabel->"In[11]:=",ExpressionUUID->"47cb50ec-14fd-468c-9027-9cbae02f6db7"], Cell[BoxData[ RowBox[{ RowBox[{"AlgebraCross", "[", "Field_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", "Field", "]"}], "]"}], " ", "+", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", "Field", "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"aa", ",", " ", "1", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"bb", ",", " ", "1", ",", "4"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}]}]], "Input", CellChangeTimes->{{3.798817916251875*^9, 3.7988179399813128`*^9}}, CellLabel->"In[12]:=",ExpressionUUID->"674a70bb-bbd3-4275-b082-f99854dfcf9c"], Cell[BoxData[ RowBox[{ RowBox[{"HoloraumyTil0", "[", "Field_", "]"}], ":=", " ", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", "Field", "]"}], "]"}], " ", "-", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", "Field", "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"aa", ",", " ", "1", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"bb", ",", " ", "1", ",", "4"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}]}]], "Input", CellChangeTimes->{{3.798817999165279*^9, 3.7988180089813538`*^9}}, CellLabel->"In[13]:=",ExpressionUUID->"ef29599d-946c-49ea-969c-0a5633fa7d63"], Cell[BoxData[ RowBox[{ RowBox[{"HoloraumyTil1", "[", "Field_", "]"}], ":=", " ", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", "Field", "]"}], "]"}], " ", "-", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", "Field", "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"aa", ",", " ", "1", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"bb", ",", " ", "1", ",", "4"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}]}]], "Input", CellChangeTimes->{{3.7988179845628157`*^9, 3.7988179906282883`*^9}}, CellLabel->"In[14]:=",ExpressionUUID->"972488c6-052b-4772-81b9-e930f8a36412"], Cell[BoxData[ RowBox[{ RowBox[{"HoloraumyCross", "[", "Field_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", "Field", "]"}], "]"}], " ", "-", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", "Field", "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"aa", ",", " ", "1", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"bb", ",", " ", "1", ",", "4"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}]}]], "Input", CellChangeTimes->{{3.798637194157716*^9, 3.798637230125063*^9}, { 3.798637264308919*^9, 3.7986372665984497`*^9}, {3.798649780489132*^9, 3.7986497807549467`*^9}, {3.798817951420246*^9, 3.7988179646511173`*^9}}, CellLabel->"In[15]:=",ExpressionUUID->"a5812966-767b-471f-93e2-9ce314aaba32"], Cell[BoxData[ RowBox[{ RowBox[{"UsualAlgebra", "[", "Field_", "]"}], ":=", " ", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"2", " ", "I", " ", RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{"Field", ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "//", "Simplify"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}], "//", "MatrixForm"}]}]], "Input", CellChangeTimes->{{3.795468385629766*^9, 3.795468477005836*^9}, { 3.795470393123238*^9, 3.79547041559974*^9}, {3.798637562814042*^9, 3.798637571009647*^9}, {3.798821978771242*^9, 3.798821999819145*^9}}, CellLabel->"In[16]:=",ExpressionUUID->"9d4ff78e-a3fe-4153-807c-45310f945a69"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Transformation Laws, untilded is 0, tilded is 1 for instance:\nDia[0] is \ untilded D, Dia[1] is tilded ", Cell[BoxData[ FormBox[ OverscriptBox["D", "~"], TraditionalForm]],ExpressionUUID-> "83217956-e012-4984-91ec-30ce8c891f65"], "\nDifferent numbering convention from the off-shell notebook\nA[0] is \ untilded scalar A\nA[1] is tilded scalar ", Cell[BoxData[ FormBox[ OverscriptBox["A", "~"], TraditionalForm]],ExpressionUUID-> "d9e3927b-ad07-418f-a32d-24d5e239e4c8"], ", \n\[CapitalPsi][0] is untilded \[CapitalPsi]\n\[CapitalPsi][1] is tilded ", Cell[BoxData[ FormBox[ OverscriptBox["\[CapitalPsi]", "~"], TraditionalForm]],ExpressionUUID-> "d90eaa94-1ce8-47f4-8097-3a8ad941cdee"] }], "Chapter", CellChangeTimes->{{3.798818207664474*^9, 3.798818211794238*^9}, { 3.8312272546177697`*^9, 3.8312272749926434`*^9}, {3.831227345472723*^9, 3.831227382305375*^9}, {3.8312274660806956`*^9, 3.831227507435719*^9}, { 3.831821913272979*^9, 3.831821933049333*^9}},ExpressionUUID->"afac25ed-2055-44a7-b871-\ 3277536e67f7"], Cell[CellGroupData[{ Cell["Vector, untilded transformation laws", "Section", CellChangeTimes->{{3.798818229536767*^9, 3.7988182346481953`*^9}, { 3.798837946491774*^9, 3.798837947320489*^9}, {3.831227436345205*^9, 3.83122744031971*^9}},ExpressionUUID->"7e4c2489-7267-4a36-ad3a-\ 70d356c68aa2"], Cell[CellGroupData[{ Cell["A", "Subsection", CellChangeTimes->{ 3.7988377961343527`*^9},ExpressionUUID->"d4c6fcc3-fbd3-45fd-80b9-\ 2793e24c9d6c"], Cell[BoxData[ RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{"A", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.798818245314842*^9, 3.7988183350991364`*^9}, { 3.79881848431872*^9, 3.7988184899436283`*^9}, {3.7988214227634077`*^9, 3.798821424911536*^9}}, CellLabel->"In[17]:=",ExpressionUUID->"a15136ce-e614-490c-82e4-9a8eb065c6d9"] }, Open ]], Cell[CellGroupData[{ Cell["B", "Subsection", CellChangeTimes->{ 3.7988377961343527`*^9, {3.798837919390818*^9, 3.798837919631423*^9}},ExpressionUUID->"d4e2a98a-4c8c-4c0d-949a-\ 789093e218b5"], Cell[BoxData[ RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{"B", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"I", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"\[Gamma]5", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "ii", "]"}], "[", "bb", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "//", "Simplify"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.798818346606588*^9, 3.7988184022580233`*^9}, { 3.7988184418868303`*^9, 3.7988184822328377`*^9}, {3.798821439386671*^9, 3.7988214395087442`*^9}}, CellLabel->"In[18]:=",ExpressionUUID->"afd0cc4f-e56a-451c-ae8d-b28f7d3ade2c"] }, Closed]], Cell[CellGroupData[{ Cell["Avec and Fmn", "Subsection", CellChangeTimes->{ 3.7988377961343527`*^9, {3.7988379045809803`*^9, 3.798837912589671*^9}},ExpressionUUID->"726560c4-9912-4e39-8fb8-\ 39bad5dd14bb"], Cell[BoxData[ RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"Avec", "[", "0", "]"}], "[", "mu", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"I", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"\[Gamma]stdown", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "//", "Simplify"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.7988191640182877`*^9, 3.7988191647095623`*^9}, { 3.7988192196675577`*^9, 3.798819255528553*^9}, {3.7988193025540667`*^9, 3.798819307625489*^9}, {3.798821450739798*^9, 3.7988214511418037`*^9}, { 3.798822465299726*^9, 3.798822465968261*^9}}, CellLabel->"In[19]:=",ExpressionUUID->"b5c4482d-cdf8-43c5-a389-e9f6ad24a315"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Fmn", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Avec", "[", "0", "]"}], "[", "nu", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}], "-", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Avec", "[", "0", "]"}], "[", "mu", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "nu", "]"}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.796657563961656*^9, 3.796657663169079*^9}, { 3.798819872577086*^9, 3.798819915128603*^9}}, CellLabel->"In[20]:=",ExpressionUUID->"ae5c8779-8bbc-4849-8299-8f9556c53ad4"] }, Closed]], Cell[CellGroupData[{ Cell["Psi", "Subsection", CellChangeTimes->{ 3.7988377961343527`*^9, {3.7988379019185038`*^9, 3.798837902974679*^9}},ExpressionUUID->"97cfb749-1ea4-4ed9-aa6c-\ f50156daa1b9"], Cell[BoxData[ RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"I", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"A", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", " ", "-", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], ")"}]}], "\[IndentingNewLine]", "+", RowBox[{ FractionBox["1", "4"], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"CommuteGammadown", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"Fmn", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], "//", "Simplify"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.798819467585432*^9, 3.7988197533049088`*^9}, { 3.79881992545691*^9, 3.798819928451456*^9}, {3.7988199723335447`*^9, 3.79882003965343*^9}, {3.798821460491375*^9, 3.7988214608036737`*^9}, { 3.798821650537098*^9, 3.798821703606093*^9}, {3.798821740360176*^9, 3.798821769794241*^9}, {3.798821845149036*^9, 3.798821849308669*^9}, 3.798822130089365*^9, {3.800140856744466*^9, 3.80014086423542*^9}}, CellLabel->"In[21]:=",ExpressionUUID->"53468097-67ce-4745-94a2-2cf69fb38755"] }, Open ]], Cell[CellGroupData[{ Cell["Check that these laws run", "Subsection", CellChangeTimes->{{3.796656504100595*^9, 3.796656508593997*^9}},ExpressionUUID->"29f2a0ec-86ca-4b05-ab35-\ 9f6a93738a43"], Cell[BoxData[ RowBox[{"(*", RowBox[{"Run", " ", "supercovar", " ", "derive", " ", "to", " ", "check"}], "*)"}]], "Input", CellChangeTimes->{{3.796656412049549*^9, 3.796656432656111*^9}}, CellLabel->"In[22]:=",ExpressionUUID->"a9e99789-267f-4ce1-9fd3-e275fc35bc5d"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "2", "]"}], "[", "1", "]"}], "[", RowBox[{ RowBox[{"A", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.7988201947922907`*^9, 3.798820225829571*^9}}, CellLabel->"In[23]:=",ExpressionUUID->"29137585-bcbd-4083-82de-13fddbc7211d"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "2", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Output", CellChangeTimes->{ 3.796656538019363*^9, 3.796679243964514*^9, 3.796730304369523*^9, 3.7967324695952663`*^9, 3.79682505595348*^9, 3.7969051699851637`*^9, { 3.7988202195847816`*^9, 3.798820246352509*^9}, 3.798821470481536*^9, 3.798822372136101*^9, 3.798822861703827*^9, 3.798824461430047*^9, { 3.79882452455485*^9, 3.798824537891913*^9}, 3.798824679438958*^9, 3.798825577982662*^9, 3.798825622550115*^9, 3.798827558033369*^9, 3.798827634643179*^9, 3.7988277819734793`*^9, 3.798829458633967*^9, 3.798829993784792*^9, 3.798830125988063*^9, 3.798830229714409*^9, { 3.798835190991871*^9, 3.7988352182691193`*^9}, 3.798835269896389*^9, 3.798835398967534*^9, {3.798835523812826*^9, 3.798835549714405*^9}, 3.798835581100906*^9, {3.798835688800541*^9, 3.7988357063625507`*^9}, 3.798835736753297*^9, {3.79883581935771*^9, 3.7988358504571667`*^9}, 3.798835983359283*^9, 3.798836328782172*^9, 3.798837021431245*^9, 3.798845546685371*^9, 3.798892739915745*^9, 3.798894335356114*^9, 3.7988944495011663`*^9, 3.798903230371751*^9, 3.798917671848838*^9, { 3.799057840219304*^9, 3.799057863808713*^9}, 3.799060641974082*^9, 3.799069057825576*^9, 3.799316672246613*^9, 3.799317342897105*^9, { 3.7994922298838377`*^9, 3.799492236796736*^9}, 3.799492286639242*^9, 3.799528762727043*^9, 3.7995301800716677`*^9, 3.799532473449357*^9, 3.799533290615466*^9, 3.799578984879078*^9, 3.799582580909101*^9, 3.7996098339720697`*^9, 3.799610263408519*^9, 3.7996635308540897`*^9, 3.799666039336351*^9, {3.7996796993994703`*^9, 3.799679706921299*^9}, 3.79969986517669*^9, 3.799703916306828*^9, 3.7997039725984707`*^9, 3.799704030768602*^9, 3.799704179280437*^9, 3.7997043203190413`*^9, 3.79970435520584*^9, 3.799741847710701*^9, 3.799743098810668*^9, 3.7997454783495893`*^9, 3.799745530422221*^9, 3.799746467800918*^9, 3.799752697257135*^9, 3.799759728789711*^9, 3.8001104309268427`*^9, 3.800110584663837*^9, 3.8001110218886623`*^9, 3.80011153877312*^9, 3.8001134717493343`*^9, 3.800129887138546*^9, 3.80013387410048*^9, 3.800139042125045*^9, {3.800141220830464*^9, 3.800141232677952*^9}, 3.800213614040111*^9, 3.800214523555211*^9, 3.8002155254616947`*^9, 3.800216804154922*^9, 3.800217540245359*^9, 3.800357768770093*^9, 3.800365843832651*^9, 3.8003659961558847`*^9, 3.800366331663123*^9, 3.800392841525394*^9, 3.80039662807365*^9, 3.800446501454973*^9, 3.80044857264699*^9, 3.8004488386981916`*^9, 3.8004797926079206`*^9, 3.800482266545413*^9, 3.8005294489735813`*^9, 3.800536817900173*^9, 3.800786891637261*^9, 3.800809853877653*^9, 3.8261622955574007`*^9, 3.826162486608623*^9, 3.82616359222897*^9, 3.8261639805836906`*^9, 3.8293150275857687`*^9, 3.845815393061549*^9}, CellLabel->"Out[23]=",ExpressionUUID->"c73e600a-f853-4c61-9ea8-db6767fcf359"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "1", "]"}], "[", "3", "]"}], "[", RowBox[{ RowBox[{"B", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.798820198046708*^9, 3.7988201986015*^9}, { 3.798820229492302*^9, 3.798820230157256*^9}}, CellLabel->"In[24]:=",ExpressionUUID->"0d744af5-8b41-4eec-9113-506c8f703fcb"], Cell[BoxData[ RowBox[{"-", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "1", "]"}], "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output", CellChangeTimes->{ 3.796656538026265*^9, 3.7966792440069323`*^9, 3.796730304374921*^9, 3.796732469623826*^9, 3.796825056022579*^9, 3.7969051699903107`*^9, { 3.798820219592596*^9, 3.7988202463640003`*^9}, 3.798821470490724*^9, 3.798822372143004*^9, 3.798822861715061*^9, 3.7988244614388742`*^9, { 3.798824524560742*^9, 3.798824537899887*^9}, 3.798824679446683*^9, 3.798825577991652*^9, 3.798825622557869*^9, 3.798827558040371*^9, 3.798827634650724*^9, 3.798827781980997*^9, 3.79882945864159*^9, 3.798829993792943*^9, 3.798830125995962*^9, 3.7988302297219877`*^9, { 3.798835190999946*^9, 3.798835218277008*^9}, 3.798835269904283*^9, 3.798835398976851*^9, {3.798835523821712*^9, 3.798835549722184*^9}, 3.7988355811088257`*^9, {3.798835688808618*^9, 3.7988357063718863`*^9}, 3.79883573676194*^9, {3.798835819366337*^9, 3.798835850465611*^9}, 3.7988359833684187`*^9, 3.7988363287917013`*^9, 3.798837021439579*^9, 3.798845546691329*^9, 3.798892739923171*^9, 3.7988943353857517`*^9, 3.798894449507227*^9, 3.798903230378209*^9, 3.798917671859358*^9, { 3.799057840231826*^9, 3.7990578638897877`*^9}, 3.799060641984282*^9, 3.7990690578463287`*^9, 3.7993166722790833`*^9, 3.799317342906193*^9, { 3.799492229889867*^9, 3.799492236802546*^9}, 3.799492286645997*^9, 3.7995287627361593`*^9, 3.799530180105219*^9, 3.7995324734802303`*^9, 3.799533290621983*^9, 3.7995789848900557`*^9, 3.799582580996193*^9, 3.799609833984277*^9, 3.7996102635054893`*^9, 3.7996635308602123`*^9, 3.799666039341577*^9, {3.799679699414394*^9, 3.799679706927547*^9}, 3.7996998651878157`*^9, 3.79970391631573*^9, 3.799703972604395*^9, 3.7997040307786293`*^9, 3.799704179285838*^9, 3.799704320324885*^9, 3.799704355211458*^9, 3.7997418477200003`*^9, 3.799743098816297*^9, 3.79974547835499*^9, 3.799745530429455*^9, 3.799746467810091*^9, 3.799752697265682*^9, 3.799759728800173*^9, 3.800110430933041*^9, 3.800110584671321*^9, 3.8001110218950663`*^9, 3.80011153878055*^9, 3.800113471756852*^9, 3.800129887148239*^9, 3.8001338741072807`*^9, 3.800139042131784*^9, {3.800141220839657*^9, 3.800141232715357*^9}, 3.8002136140476503`*^9, 3.8002145235625*^9, 3.800215525468659*^9, 3.800216804161697*^9, 3.800217540253417*^9, 3.800357768776787*^9, 3.800365843838744*^9, 3.8003659961616592`*^9, 3.800366331668994*^9, 3.800392841531369*^9, 3.800396628083987*^9, 3.800446501465104*^9, 3.800448572654936*^9, 3.8004488387047977`*^9, 3.800479792636463*^9, 3.800482266560145*^9, 3.800529448985957*^9, 3.800536817939815*^9, 3.800786891643955*^9, 3.800809853883939*^9, 3.826162295563941*^9, 3.826162486614757*^9, 3.826163592234593*^9, 3.8261639805942507`*^9, 3.82931502765059*^9, 3.845815393077175*^9}, CellLabel->"Out[24]=",ExpressionUUID->"cf9e327d-0c5a-44c0-ae87-d31a3d7acf23"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "1", "]"}], "[", "2", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"Avec", "[", "0", "]"}], "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.7954696406230583`*^9, 3.795469658052787*^9}, { 3.798820212246702*^9, 3.7988202404767437`*^9}}, CellLabel->"In[25]:=",ExpressionUUID->"66af73a8-6787-41e9-93a7-b5aec7d91b26"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "2", "]"}], "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Output", CellChangeTimes->{ 3.795469659850636*^9, 3.795470355102759*^9, 3.795529184555914*^9, 3.7957009582676153`*^9, 3.7957011345370407`*^9, 3.7957326954544888`*^9, 3.795805431866057*^9, 3.7963147649007883`*^9, 3.7963257952297773`*^9, 3.796327647241499*^9, 3.7964230445446863`*^9, 3.796482466345475*^9, 3.7964903138872213`*^9, 3.796572476299819*^9, 3.796575007266765*^9, 3.7966563583040237`*^9, 3.796656538091381*^9, 3.7966792441171837`*^9, 3.796730304460904*^9, 3.79673246969405*^9, 3.796825056191628*^9, 3.796905170094655*^9, {3.798820219705868*^9, 3.798820246470232*^9}, 3.798821470609683*^9, 3.798822372182626*^9, 3.798822861845427*^9, 3.798824461493675*^9, {3.798824524628289*^9, 3.798824537992442*^9}, 3.798824679510478*^9, 3.7988255780752707`*^9, 3.798825622647292*^9, 3.798827558099169*^9, 3.798827634778625*^9, 3.798827782123474*^9, 3.798829458736352*^9, 3.798829993931425*^9, 3.798830126114307*^9, 3.7988302298588142`*^9, {3.798835191183988*^9, 3.798835218447805*^9}, 3.798835270068315*^9, 3.798835399121892*^9, {3.798835523992944*^9, 3.798835549869196*^9}, 3.798835581274281*^9, {3.79883568896741*^9, 3.7988357065080423`*^9}, 3.798835736886037*^9, {3.798835819531539*^9, 3.79883585058328*^9}, 3.7988359834833403`*^9, 3.7988363289140577`*^9, 3.798837021595325*^9, 3.798845546797987*^9, 3.798892740051756*^9, 3.798894335456407*^9, 3.7988944495751343`*^9, 3.7989032304788437`*^9, 3.798917671973084*^9, {3.799057840349531*^9, 3.799057864080475*^9}, 3.79906064209103*^9, 3.7990690580125628`*^9, 3.799316672511306*^9, 3.799317343017025*^9, {3.799492229970141*^9, 3.7994922369014463`*^9}, 3.799492286730916*^9, 3.799528762835538*^9, 3.799530180192121*^9, 3.799532473532209*^9, 3.799533290746564*^9, 3.799578985038602*^9, 3.799582581096294*^9, 3.7996098341098413`*^9, 3.799610263690617*^9, 3.7996635309390574`*^9, 3.7996660394160433`*^9, {3.799679699547091*^9, 3.799679707007269*^9}, 3.799699865306458*^9, 3.7997039164061413`*^9, 3.799703972678965*^9, 3.799704030872794*^9, 3.79970417936264*^9, 3.799704320397489*^9, 3.799704355277397*^9, 3.799741847887661*^9, 3.7997430988891478`*^9, 3.79974547841265*^9, 3.799745530485985*^9, 3.799746467891304*^9, 3.799752697324204*^9, 3.799759728892602*^9, 3.8001104309961443`*^9, 3.800110584779125*^9, 3.8001110219739637`*^9, 3.8001115388501062`*^9, 3.8001134718257427`*^9, 3.800129887207549*^9, 3.8001338741540337`*^9, 3.800139042182352*^9, {3.8001412208639507`*^9, 3.800141232725021*^9}, 3.800213614072694*^9, 3.800214523579344*^9, 3.800215525488153*^9, 3.800216804181391*^9, 3.80021754027192*^9, 3.8003577687921953`*^9, 3.800365843855928*^9, 3.800365996167328*^9, 3.80036633168618*^9, 3.800392841550551*^9, 3.800396628111882*^9, 3.800446501485745*^9, 3.800448572674452*^9, 3.800448838711164*^9, 3.800479792647765*^9, 3.800482266597437*^9, 3.800529449014091*^9, 3.800536817974272*^9, 3.800786891651173*^9, 3.800809853910963*^9, 3.8261622955700808`*^9, 3.8261624866370687`*^9, 3.826163592262925*^9, 3.8261639806289997`*^9, 3.8293150277085333`*^9, 3.8458153931084137`*^9}, CellLabel->"Out[25]=",ExpressionUUID->"699d1984-2bed-4049-ab3e-1a7f782c791b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "1", "]"}], "[", "2", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "1", "]"}], "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.798820215327577*^9, 3.798820243284295*^9}, { 3.7988215017418127`*^9, 3.7988215046280613`*^9}, {3.798821540943738*^9, 3.798821549672701*^9}, {3.798821720369495*^9, 3.798821764272276*^9}}, CellLabel->"In[26]:=",ExpressionUUID->"95acf76f-2a17-4caa-8e83-28d2dd19ac9f"], Cell[BoxData[ RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"A", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"A", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]], "Output",\ CellChangeTimes->{{3.798821635047181*^9, 3.798821664656163*^9}, { 3.798821708957131*^9, 3.7988217736256857`*^9}, 3.798821853788838*^9, 3.798822372191321*^9, 3.7988228618518333`*^9, 3.798824461535247*^9, { 3.798824524654664*^9, 3.7988245380335093`*^9}, 3.798824679530162*^9, 3.798825578113459*^9, 3.798825622684391*^9, 3.798827558106718*^9, 3.798827634836418*^9, 3.798827782133319*^9, 3.798829458776165*^9, 3.7988299939891243`*^9, 3.798830126162443*^9, 3.7988302299183826`*^9, { 3.7988351912716427`*^9, 3.798835218522788*^9}, 3.7988352701372137`*^9, 3.798835399187179*^9, {3.798835524070477*^9, 3.7988355499351807`*^9}, 3.7988355813457823`*^9, {3.798835689043573*^9, 3.798835706566309*^9}, 3.798835736943015*^9, {3.7988358196072283`*^9, 3.798835850639106*^9}, 3.798835983528483*^9, 3.798836328965719*^9, 3.798837021666172*^9, 3.7988455468402557`*^9, 3.7988927401096067`*^9, 3.7988943354644423`*^9, 3.798894449599388*^9, 3.798903230506309*^9, 3.798917672016224*^9, { 3.799057840392877*^9, 3.79905786417015*^9}, 3.7990606421311007`*^9, 3.799069058082016*^9, 3.799316672586142*^9, 3.7993173430686274`*^9, { 3.7994922299800043`*^9, 3.799492236944466*^9}, 3.799492286736912*^9, 3.799528762874982*^9, 3.799530180200776*^9, 3.7995324735651712`*^9, 3.799533290796494*^9, 3.7995789850921297`*^9, 3.799582581103044*^9, 3.7996098341631813`*^9, 3.799610263709283*^9, 3.7996635309693737`*^9, 3.799666039422605*^9, {3.799679699583432*^9, 3.799679707014357*^9}, 3.799699865352722*^9, 3.799703916442933*^9, 3.799703972713788*^9, 3.799704030904125*^9, 3.79970417936908*^9, 3.7997043204198103`*^9, 3.799704355283493*^9, 3.7997418479653177`*^9, 3.799743098916503*^9, 3.799745478418497*^9, 3.7997455304918222`*^9, 3.7997464679216957`*^9, 3.799752697346455*^9, 3.799759728927997*^9, 3.80011043100274*^9, 3.800110584821569*^9, 3.80011102198036*^9, 3.8001115388733397`*^9, 3.800113471846426*^9, 3.800129887225196*^9, 3.8001338741610928`*^9, 3.800139042199499*^9, {3.800141220889489*^9, 3.800141232762001*^9}, 3.800213614080833*^9, 3.800214523597928*^9, 3.8002155254988823`*^9, 3.8002168041938267`*^9, 3.8002175402794743`*^9, 3.800357768809639*^9, 3.800365843863756*^9, 3.800365996184298*^9, 3.800366331703912*^9, 3.800392841568564*^9, 3.800396628124743*^9, 3.8004465015112543`*^9, 3.800448572681467*^9, 3.800448838729713*^9, 3.800479792677496*^9, 3.800482267453251*^9, 3.800529449060545*^9, 3.8005368179848623`*^9, 3.800786891674864*^9, 3.8008098539351053`*^9, 3.826162295587981*^9, 3.8261624866601562`*^9, 3.82616359229181*^9, 3.826163980672257*^9, 3.8293150277554073`*^9, 3.845815393139657*^9}, CellLabel->"Out[26]=",ExpressionUUID->"f91ac526-adaa-4d0e-bf34-96d9e93a1b4b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "1", "]"}], "[", "2", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "2", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input", CellChangeTimes->{3.798821631754362*^9}, CellLabel->"In[27]:=",ExpressionUUID->"237a7cbe-46f0-42f5-bd34-e3ed428cb94a"], Cell[BoxData[ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"Avec", "[", "0", "]"}], "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"Avec", "[", "0", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]], "Output",\ CellChangeTimes->{ 3.798821631781226*^9, 3.7988216670975933`*^9, 3.798821712005925*^9, 3.798821778429842*^9, 3.79882185704595*^9, 3.7988223722121964`*^9, 3.798822861895319*^9, 3.798824461542245*^9, {3.798824524661417*^9, 3.7988245380398293`*^9}, 3.798825578125217*^9, 3.79882562269273*^9, 3.798827558116612*^9, 3.7988276348451567`*^9, 3.798827782193077*^9, 3.798829458784943*^9, 3.798829993999774*^9, 3.7988301261710987`*^9, 3.798830229928608*^9, {3.798835191282621*^9, 3.7988352185349207`*^9}, 3.798835270148499*^9, 3.798835399197741*^9, {3.798835524079423*^9, 3.79883554994423*^9}, 3.798835581357888*^9, {3.798835689053227*^9, 3.7988357065781727`*^9}, 3.798835736952571*^9, {3.7988358196165447`*^9, 3.798835850649806*^9}, 3.798835983537943*^9, 3.798836328976935*^9, 3.7988370216762867`*^9, 3.798845546849094*^9, 3.798892740115869*^9, 3.798894335490963*^9, 3.7988944496053658`*^9, 3.7989032305397587`*^9, 3.798917672026124*^9, {3.799057840404841*^9, 3.7990578641833973`*^9}, 3.799060642142981*^9, 3.799069058100461*^9, 3.799316672603709*^9, 3.7993173430806704`*^9, {3.799492230010767*^9, 3.799492236951462*^9}, 3.7994922867736998`*^9, 3.79952876288575*^9, 3.799530180236897*^9, 3.799532473592175*^9, 3.799533290803156*^9, 3.799578985106926*^9, 3.799582581109542*^9, 3.799609834175254*^9, 3.799610263789673*^9, 3.7996635309761143`*^9, 3.799666039460525*^9, {3.799679699610276*^9, 3.799679707046681*^9}, 3.799699865363566*^9, 3.799703916452228*^9, 3.799703972719706*^9, 3.799704030913184*^9, 3.799704179374732*^9, 3.799704320425679*^9, 3.7997043553120623`*^9, 3.799741847972926*^9, 3.7997430989247503`*^9, 3.799745478424863*^9, 3.799745530513912*^9, 3.799746467929673*^9, 3.799752697353718*^9, 3.799759728935708*^9, 3.800110431028187*^9, 3.800110584830187*^9, 3.800111022016818*^9, 3.800111538882526*^9, 3.800113471857107*^9, 3.800129887234034*^9, 3.8001338741776867`*^9, 3.800139042206091*^9, {3.8001412208999243`*^9, 3.800141232771964*^9}, 3.800213614110422*^9, 3.800214523605516*^9, 3.8002155255173197`*^9, 3.8002168042127447`*^9, 3.8002175403439217`*^9, 3.8003577688170853`*^9, 3.800365843881652*^9, 3.800365996190757*^9, 3.800366331710862*^9, 3.8003928415753*^9, 3.800396628150135*^9, 3.800446501520728*^9, 3.800448572733827*^9, 3.800448838736174*^9, 3.800479792688033*^9, 3.800482268527479*^9, 3.800529449072843*^9, 3.80053681801684*^9, 3.800786891681738*^9, 3.800809853944388*^9, 3.826162295595642*^9, 3.8261624866684847`*^9, 3.8261635922980747`*^9, 3.826163980685948*^9, 3.829315027817881*^9, 3.8458153931552777`*^9}, CellLabel->"Out[27]=",ExpressionUUID->"c72ac696-7f0b-4209-a76f-6571e8cebb2f"] }, Open ]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Tensor, untilded transformation laws", "Section", CellChangeTimes->{{3.798821915864984*^9, 3.798821918323616*^9}, { 3.798837949047134*^9, 3.798837966687868*^9}, {3.831227445312705*^9, 3.831227448847765*^9}},ExpressionUUID->"8ef1db59-4722-4a19-b837-\ abc8d6d7c17d"], Cell[CellGroupData[{ Cell["A", "Subsection", CellChangeTimes->{ 3.7988377961343527`*^9},ExpressionUUID->"24313bbf-4edc-42ea-ab2f-\ 306b45f1b951"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{"A", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", " ", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "jj", "]"}], "[", "aa", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", " ", RowBox[{"{", RowBox[{"jj", ",", " ", "1", ",", " ", "2"}], "}"}]}], "]"}], "//", "Simplify"}]}], ",", " ", RowBox[{"{", RowBox[{"ii", ",", " ", "1", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"aa", ",", " ", "1", ",", "4"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.796732973841866*^9, 3.796732980724893*^9}, { 3.7988226474072313`*^9, 3.7988226600946903`*^9}, 3.7988378244201527`*^9}, CellLabel->"In[28]:=",ExpressionUUID->"5dd1fac0-5bfe-435d-a43e-c28e37d269cb"] }, Closed]], Cell[CellGroupData[{ Cell["B", "Subsection", CellChangeTimes->{ 3.7988377961343527`*^9, {3.7988378586749897`*^9, 3.7988378588960238`*^9}},ExpressionUUID->"ab9a75f7-6f54-43b0-9fa3-\ 85db399347ce"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{"B", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", "=", " ", RowBox[{"I", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"\[Gamma]5", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "ii", "]"}], "[", "bb", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}]}], ",", " ", RowBox[{"{", RowBox[{"ii", ",", " ", "1", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"aa", ",", " ", "1", ",", "4"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.79129504686681*^9, 3.791295108648192*^9}, 3.7912951644109173`*^9, {3.7988226670879*^9, 3.798822673287786*^9}}, CellLabel->"In[29]:=",ExpressionUUID->"224e1e96-b4b9-4577-a1c6-a950de0142a6"] }, Closed]], Cell[CellGroupData[{ Cell["cphi", "Subsection", CellChangeTimes->{ 3.7988377961343527`*^9, {3.798837862462221*^9, 3.798837863837758*^9}},ExpressionUUID->"730c4424-a7bf-46a5-8821-\ 1b5139b03878"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{"\[CurlyPhi]", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "jj", "]"}], "[", "aa", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}]}], "]"}], "//", "Simplify"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"aa", ",", " ", "1", ",", "4"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.791295548450108*^9, 3.7912956145388327`*^9}, { 3.7918359137854643`*^9, 3.791835914182225*^9}, {3.7918404539721537`*^9, 3.79184045515401*^9}, {3.7988227006606703`*^9, 3.798822706404664*^9}}, CellLabel->"In[30]:=",ExpressionUUID->"507c1ce0-fd06-47ee-a0df-65924cc5f4bd"] }, Closed]], Cell[CellGroupData[{ Cell["Bmn", "Subsection", CellChangeTimes->{ 3.7988377961343527`*^9, {3.798837865380967*^9, 3.7988378662334948`*^9}},ExpressionUUID->"82bcb9c1-c7ba-4220-8ae3-\ 046928af714a"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"Bmn", "[", "1", "]"}], "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{ FractionBox[ RowBox[{ RowBox[{"-", "I"}], " "}], "4"], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"CommuteGammastdown", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", " ", "1", ",", "4"}], "}"}]}], "]"}]}], "//", "Simplify"}]}], ",", " ", RowBox[{"{", RowBox[{"ii", ",", " ", "1", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"aa", ",", " ", "1", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"mu", ",", " ", "0", ",", " ", "3"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"nu", ",", " ", "0", ",", "3"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.7912956938836107`*^9, 3.7912958823906527`*^9}, 3.79129616914073*^9, {3.7988227099467707`*^9, 3.7988227181352243`*^9}}, CellLabel->"In[31]:=",ExpressionUUID->"00fc33f2-faf7-4a2e-acd9-93b0d7d584d5"], Cell[CellGroupData[{ Cell["Define Symmetries on Bmn", "Subsubsection", CellChangeTimes->{{3.796733632128271*^9, 3.7967336373101377`*^9}},ExpressionUUID->"f4cadaa8-860f-4c20-a935-\ b66294b7a86b"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Bmn", "[", "1", "]"}], "[", RowBox[{"1", ",", "0"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "=", RowBox[{"-", RowBox[{ RowBox[{ RowBox[{"Bmn", "[", "1", "]"}], "[", RowBox[{"0", ",", "1"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Bmn", "[", "1", "]"}], "[", RowBox[{"2", ",", "0"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "=", RowBox[{"-", RowBox[{ RowBox[{ RowBox[{"Bmn", "[", "1", "]"}], "[", RowBox[{"0", ",", "2"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Bmn", "[", "1", "]"}], "[", RowBox[{"3", ",", "0"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "=", RowBox[{"-", RowBox[{ RowBox[{ RowBox[{"Bmn", "[", "1", "]"}], "[", RowBox[{"0", ",", "3"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Bmn", "[", "1", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "=", RowBox[{"-", RowBox[{ RowBox[{ RowBox[{"Bmn", "[", "1", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Bmn", "[", "1", "]"}], "[", RowBox[{"1", ",", "3"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "=", RowBox[{"-", RowBox[{ RowBox[{ RowBox[{"Bmn", "[", "1", "]"}], "[", RowBox[{"3", ",", "1"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Bmn", "[", "1", "]"}], "[", RowBox[{"3", ",", "2"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", "=", RowBox[{"-", RowBox[{ RowBox[{ RowBox[{"Bmn", "[", "1", "]"}], "[", RowBox[{"2", ",", "3"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Bmn", "[", "1", "]"}], "[", RowBox[{"mi", ",", "mi"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", "=", " ", "0"}], ",", RowBox[{"{", RowBox[{"mi", ",", "0", ",", "3"}], "}"}]}], "]"}], ";"}]}], "Input", CellChangeTimes->{{3.536715241146757*^9, 3.536715369286086*^9}, { 3.5594350106271667`*^9, 3.5594350334044695`*^9}, {3.559435125076713*^9, 3.5594351491560903`*^9}, {3.5594352409843426`*^9, 3.5594352499038525`*^9}, {3.5594387483699536`*^9, 3.559438819557025*^9}, { 3.559489972490155*^9, 3.5594899888800926`*^9}, {3.709571409139833*^9, 3.70957162238603*^9}, {3.711396588085267*^9, 3.7113966704349775`*^9}, { 3.7467888964325914`*^9, 3.746788899692309*^9}, {3.791640442652521*^9, 3.79164044971206*^9}, {3.791640492999156*^9, 3.791640519992055*^9}, 3.79164056164564*^9, {3.791717604269923*^9, 3.7917176105305367`*^9}, { 3.7967333843064823`*^9, 3.796733387620414*^9}, {3.798822766854238*^9, 3.798822796346261*^9}}, CellLabel->"In[32]:=",ExpressionUUID->"2feef0f4-cfbc-465d-a8af-92224c28c2af"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["psi", "Subsection", CellChangeTimes->{ 3.7988377961343527`*^9, {3.7988378701017313`*^9, 3.798837873189724*^9}},ExpressionUUID->"03df4c1d-4504-44cd-b38a-\ 6eec301afdd8"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{"(", RowBox[{"-", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], ")"}]}], "+", RowBox[{"I", " ", RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"A", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], " ", "+", " ", RowBox[{"I", " ", RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"\[CurlyPhi]", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], " ", "-", RowBox[{"I", " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"\[Epsilon]downupupup", "[", RowBox[{"mu", ",", "nu", ",", "ap", ",", "bt"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Bmn", "[", "1", "]"}], "[", RowBox[{"ap", ",", "bt"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "nu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"ap", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"bt", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.791296236368512*^9, 3.791296286191242*^9}, { 3.791296326305037*^9, 3.791296333456849*^9}, {3.791296372965136*^9, 3.791296562771699*^9}, {3.791296622774225*^9, 3.7912966230118027`*^9}, { 3.791305860246632*^9, 3.79130586076991*^9}, 3.7913083659557333`*^9, 3.791390310485684*^9, {3.7913913830638037`*^9, 3.791391383197249*^9}, { 3.792343080966209*^9, 3.792343082149557*^9}, 3.7923466762316837`*^9, { 3.798822722224165*^9, 3.798822753041005*^9}, {3.799570424513831*^9, 3.799570446520082*^9}, 3.8001409106169243`*^9}, CellLabel->"In[39]:=",ExpressionUUID->"b7b8a843-51e0-4b11-b13c-0d3e7afd56dd"] }, Open ]], Cell[CellGroupData[{ Cell["Hmna Field Strength", "Subsection", CellChangeTimes->{{3.796733437153907*^9, 3.796733442880788*^9}, { 3.79883784773522*^9, 3.7988378547581997`*^9}},ExpressionUUID->"4803bb09-f3aa-46ed-a117-\ 1a48cb90940f"], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzt3QeQFMXbx/EjqJgxo4KKOQdMGErFgGIWxIAR5F7EAAqniDmWGbNizlXm rIg5njnnnBAjaKmYtV++/a8+5+Ym7OzO7Ozs/T5V+/5fueZ2mGe2t8PT3T2H jOz/fx0bGhpGd5n+f/oPHtNn1KjBYwd0nf4fA0eMHj5sROPQfiOaGoc1juo9 pNP0Pxw0/dXcoaGh8/T/NSIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIi IiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIi Kfj666/NbbfdZp5++mnz22+/RZZ96623zL///lulK5Ms/Pzzz2bixIn2NXXq 1MiykydPNlOmTKnSlYmfYlVMqlOL6+WXXzbrrruumWmmmcxCCy1kGhoaTLdu 3czZZ59tfv/991Zl+e/DDjvM7LXXXuaPP/7I6YqlEnxWd999dzPDDDOYHj16 mI4dO5ouXbqYgw46yP7M79prrzWbbLKJmTRpUg5X274pVsWkOrXYTj31VPs5 oh06bdo0+2dffvmlOfTQQ80ss8xiunfvbg444ABz1llnmV122cUstdRS5oIL Lsj5qqVcDzzwgOnVq5e57rrrzLfffmv/jL7I+PHjzcILL2xmnXVWs+eee5px 48aZ4cOHm2WXXdbsv//+5tdff835ytsfxaqYVKcW2xNPPGHOPffc0L477dEj jzzSbLzxxmarrbYyp512mh2jkWL64YcfbD+DujUI4zznn3++2W677cwGG2xg jjjiCPPKK69U+SoFilUxqU4VEREREREREREREZFqIrdC+fXFoXgVi+IlpXjt tdfMI488YtfWeF/82euvv96qLH/22GOPtSr31FNPmYceesjmWkl5fvrpJzNy 5Ej7Ovzww83ee+9t+vXrZ4466ijz999/p/5+7733npkwYULsi/h+8803qb9/ 0VUzXs3NzSXFijUBXJe0Ve3PF+ssHnzwwdiYkWv8zjvvtFmzIfkj35ucN/K7 WV/Dixypgw8+2Nx6660t5Yjd2LFjbS74HHPMYcuRb0yO+CGHHGK/XyW5zz// 3Oy22272u8qL+81aps0228zmJaaJnH9ivtJKK9k4si5u8ODBZsyYMS2vpqYm s8UWW5g555zTPhs33XRTqtdQVNWO13HHHWfXXcw333w2VqyD22+//VrFasSI EXad3Iwzzmj69u1rXnzxxdTev+jy+Hx99dVXdj3GkCFD7FpT4rbaaqvZOtUb t8bGRrPCCivYuA0bNkw5qTXomGOOsfFba621YsvyGaQseeFSmR133NG89NJL gT+jLcu6JurBLLDmjTjuvPPOoWW+++47s+KKK9pyF198cSbXUSR5xWvbbbe1 MbjoootCyzz33HO2zUp7lf6j5Pv5Yp0G7UriRr8wDDGlDO3PH3/8MZNrkfJs uummNjaspYnCmin2b6Dsq6++WqWrq09vvPGGvY89e/YMLcNaX9qTn3zyServ P2DAAPv+V199dWS5++67z5ZjDflff/2V+nWk7Z9//smk7Z1XvKhf5513Xvve n332WWRZ+imU23zzzVN7/6zVW7ySvL9Df4SyJ598curXIeVhPJw2JnF5/vnn I8s++uijttzcc8+tffwqRJue8TH2fwrz5JNP2vvNeFqaktS11BlujJ39G2sd 8+B9+vRJ/ffmFS9Xvy622GKxZa+88kpblussinqLl3PeeefZ3818ZhzGdCk7 cODA1K9DykPuDDFhDCZuHvroo4+2ZbfffvsqXV37xncW95s5kjSRU1VqXcs8 M2VnnnnmQuQI3H///Wa99dbL5b2ziBd7p5Ravx544IG2bBbfM1mpt3g5/fv3 t7/7qquuii3r5vqz+H6W8px44ok2JltuuWVsWfaboix730r2yGcqdd43CVfX 0k6Ns8MOO9iyu+66a6rXkJU869ks4uXqV/qCUdgvbpFFFincXHC9xQve8Zi4 MVr27iM/h/FcxgakNpQ6t8hexMROc4vp4rPJvSfvkNxCcn5ZI4F7773X3m9y X9JUal1LW5dy5M0VZR1A1vVsNeOVpH6lP0k5csSLpJ7i5bjxmEUXXTSyHHXq csstZ8tefvnlqV6DlC/J3OLDDz+sucUUkcPCeqpVV121zToX5t+5326Ogj2G 00Ls5plnHvt7P/7448AyPBfsbcwaDurZ77//PrX3z1pW9Wwe8XL1K/3AMOxD TZ+ecW6uowi5UV71FC/HjcdEtVFYT8P4Keei3HHHHam+v1TGzTt36NDBno1y 5plnhr623nrruppbZK6Mzwvz85W8WCOVFHXZOuusY+uDsLNKOYeGsUvuOe3c tLi6lvnkO++8s9WLeoK1jOuvv75db0Xuf9FkUc/mFS9Xv7I2yhsnzrmlbidP Y6ONNjInnXSS+fTTT1N5z2qrp3g5bjyGdYneuN1www32u5p9BVgnznh3UcZh 2pMTTjjBxo9niDGzqBdjAvU0t8h+E6wZYg1TJS8+A0nRxujatatdAxyGus6t 5+as2bScc8459nfSx6DN7H9deuml9hzc1Vdf3VxyySU2j75Isqhn84qXm9s9 9thj28SJPVVOP/10u/8C/R1yxYuonuIF73jM7bff3iZu99xzj/1upM4dNGiQ +eijj1J7b0kHZ2cSP87HjMI4uNYtpsPl0pPbG4Wz9SjH2exp7snh6trrr78+ spzrq7A2ukjSrmfzipe3fp00aVJoOdotxIhy9PeLpl7i5bhcHtrMUZiboAzv HzeHJdXDHBJzEsQwbn8MzS2mg7FbtwfG22+/HVmWcUzKcZ53Wkqta11Z9h2j 7I033pjaNVSKMX3GvcJenNO74IILRpbh3sbdf+QZL1e/LrnkkrFl2eeMsp07 d46Na7W1l3g5bjxm6NChsWUZR6UsuTdSGzhXmpgw3hA3VqZ1i+l49tlnY/Mo HNeXZ7w3LUnqWrB/JOXJ4asV7O/KGFjYi7xMxvyjypxyyikl7XGSZ7yS1K8g R6rW2jBoL/Fy3HgM/+445MW6PTO0R39tOP744208ttlmm9iyWreYDu5fKeuI OZ+kU6dOpkePHqnO77m6dp999impPLlypYxJ1ZI0x+XyjJerX0uZ+/rggw9a 6lf2jymSeokXGGNhTI1r+OKLL2LLM5fvxnKZq5L8MVdPTBjniJJkT9Rp06a1 2bve/Q4v1iDTdyF3IKidxPrWX375JfA9GCdiXDdqTr0UzH/PNddcdtylkleS HG+3xuyMM86ILOfyoYLmfUu9x0GS1LXvv/9+S13LnkgO+e/sg8yZY0FjVcQn rE5IK3ZR0qxnK4kXz/ULL7xgJk6caP788882f4e+TRhv/VpKvjP5UZRlD1vm R8J+J/v4Pf744/bzF6eS5yyJWomXF/fwmWeesfN+Sb433XjMEkssUVJ58m4o zxryIHxeODPSzx+DSp41+Q/j8G5uMe5cGuo/yjEvFTe3SB6jP8bEdfbZZ2/1 PtSN5Crzezm/0Ys6lfYTuVxerCnh88MaXc49Ij/du28SeepJcp553snnpu1Y yauUOsbhfJm4MRZyALp3727WWGONwH35Sr3HfknqWsq6dhPjCd64s+Zx3333 tT9jjaP/77FGmrPuvNKOXZQ069lK4sV3FfeCvTD8fYGbb77Zro2aOnVq4O+k /cn7Lr744rHXSOznn39+W5781CDMYxHPyy67zP7/vXr1MnfffXfLz/1nraLc 5yypWokXiBN76XHGzC233GLPGSIv+8MPP2wpE3SvHNdf5YypOOQP8wzwfLh9 Brz4LNGfZT8yL/YiYO7Lq5JnTf5Dm5H40d+Jaw+RI+7y+qMQRz6f5CB7kR/G Pkf+M1TIdySOtEu9OM+Rdq/3+4a9IMgB8Z7XQluKv895D6CuTvsstbS5OV3W igYhFuzHx/dX0B7dSe+xV6l1Lf3B0aNHR+5z49ZA0t/3cvuHeMfyqh27NOvZ SuPFGp6ga1lzzTXt3ESYUutXzgFz82R77LFHYBn6UKxH9caRtgmfffrt/Bvo t3hV8pwlVSvxor5xbTpvO5BzqNw+cbQJOYc2DPkXvP8111wTeZ18FvnOi9rn husLmv9k70baNX7lPmvyH8bfuee9e/eOLEcbY+mll7ZlOd86Slgc2fOBczn9 OOfIH0eeTdpC3vks6lP6tkH71LHemTqV+oH16EVAP5n8s6D5BNq71FeMiQRJ eo+9yJ2JmnuhrmMchs8ccy/smxXWxmQ9QFCbhjra+xnMI3Zp5/2XGy+3h5v/ nFK3lwZjJkHow7gzL5l/CkK7gvPB+O7i/Zk3Dtrnxu3j518HwDghfQjWmTOf 4N9PtZLnLKlaiRftB8bE/H+Pe8C9YGyJc7zCzlJkD3I338R8rx/PA3+XcRI+ O9SrEyZMCP13cAYWuVT+zxg5ReTS+n93Oc+a/C++1HmsmWGvE148IzxDfD96 5yWIHfsnMd7gyvLMsG9RWG4i64GSxJE1tf44jho1yl6P93fwftStQXU0bSTq V3KISsnjrgX827jutdde29ZtzGPQvqRNT3szbG82JLnH4HevssoqLest3BwU cVx55ZVbXsyHLLDAAjb/tKmpKXYemfVy/rrsrrvuMrPNNlurvY/ziF3a9Wy5 8XrzzTfb9Kn5jLGeO2i/9gsvvNAsv/zytl3oYsX3njdOvIglfX7Gb7h3UXmM fJa47iD0mej7cC3+Ocmkz1klaiFefOdxv/ne9HNjI7Qhgs4wpk/PdxxzPy5u xMcbMz5vrv6kX89ZxGHzwA6fMT4fXlw7v5+9c7ySPmtSPcTR3/90Z/dRZ3q5 M+W8cWSMhu9h/9wXz1LYuTnksFOPhI2b1CraBczRjx8/3o4bX3HFFZHzFk6S e5yVoLYp1049Sx3nlUfsstg/pZx4BfWpqaPoU8fViWlg3Th9wrCzi1irQ75x UP5qNZ+zWoiXO0uN+SU/+ub8jH5CtdZSuH6D/+xIN47tn3PI+1mTYC6OjIt5 8Ty6OPKculwafxxdXoB3ftuhveWf/3DY47Bbt26F26usHEnvcVb8bRpyVWmX +ucakUfsmGPq27dvqr+zHN55AvIH6TvTFkiSp1WJKVOm2DiRkxGEsdqgc3Cr /ZzVQrzYb5Z7RQ62H+0Lfsa4ZrW4/h99VC/vODbf+fRzkfezJsFcHMnjcshd W2aZZVryPOhf+OPIeDt5b+QZhNWP5P3460/mYJhToT5mLBh8p8adq1xkSe9x VlybhvkU3o+xpbBc0rxiF7bGp1q8fWryrdmvM+3146Ug73ennXZq9Wd8r5FX RX+RvWbw7rvvtvw8j+cs73jx3cc4J2PZXtwXvosY12BNB3EN+u5Mm9ujjvFW p7m52c6BuFwst99DrTxr0hZxpK7ks0PuPvnizBUSS/KuyHdmzZDD54s5AJ7D uLVsrClpbGy0n2HaSOTIkTNGLgG5IsyXkteR9p74tSbpPc4K9QT5eYx/UodG aa+xYx6I9Qycp8D+M/55umphToI5Y/oPfNbIG2FsjrFBzkrhc0h9791XtVae s2pjPRpjx7Tl+DfTduDZJA+He7Lhhhva+Uf6t1ljHJv2JH36cePG2TxEzk9h T2PGYPgMufHsWnnWpC3iyLw2/QLmIbzn9dGvnzx5csXvQbyD+hX8dxq/v9ZV 4x5npb3HLm88K0FrVomLPyeqyM9ZGhgHYQzajz4z7bysuXFs2iS8H/1T73cd 8ar19WjSOo6SDd1jqQY9Z/lz49j+/U6kWBTH7OkeSzXoOcufG8fWeGixsWcJ 6yu07212dI+lGvSc5Y854HLOOpfa0x7WSeRN91iqQc9ZvhjL1hm3IiIiIiIi IiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIi IiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIi IiIiIiIiIiIiIiIiIiIiIpKV/wfmCIkc "], {{0, 45.}, {227., 0}}, {0, 255}, ColorFunction->RGBColor, ImageResolution->144], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->Automatic, ImageSizeRaw->{227., 45.}, PlotRange->{{0, 227.}, {0, 45.}}]], "Text", CellChangeTimes->{ 3.7967338356783857`*^9},ExpressionUUID->"6b430c6f-e8b1-435e-bb36-\ 9e3154c8860a"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Hmna", "[", RowBox[{"mu", ",", "nu", ",", "al"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "=", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Bmn", "[", "1", "]"}], "[", RowBox[{"nu", ",", "al"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", " ", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}], " ", "+", " ", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Bmn", "[", "1", "]"}], "[", RowBox[{"al", ",", "mu"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", " ", RowBox[{"\[CapitalStigma]", "[", "nu", "]"}]}], "]"}], "+", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Bmn", "[", "1", "]"}], "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", " ", RowBox[{"\[CapitalStigma]", "[", "al", "]"}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"al", ",", "0", ",", "3"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.796733449007518*^9, 3.796733479906807*^9}, { 3.7967335121560593`*^9, 3.796733589016066*^9}, {3.796734228146038*^9, 3.79673423073353*^9}, {3.7988228006248293`*^9, 3.798822804415185*^9}}, CellLabel->"In[40]:=",ExpressionUUID->"7a8da8c5-0025-4199-90eb-8ffc25fa10c2"] }, Closed]], Cell[CellGroupData[{ Cell["Check Laws Running", "Subsection", CellChangeTimes->{{3.796733676653544*^9, 3.7967336794181023`*^9}},ExpressionUUID->"0e421a0f-1f0c-4454-bd9a-\ 961088359eef"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "2", "]"}], "[", "1", "]"}], "[", RowBox[{ RowBox[{"A", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.798822807293371*^9, 3.798822807539197*^9}, { 3.798822855633209*^9, 3.798822855915237*^9}, {3.798824348827942*^9, 3.798824348875119*^9}}, CellLabel->"In[41]:=",ExpressionUUID->"7fa486d3-d758-4ec7-9a2b-9c4f580ae87c"], Cell[BoxData[ RowBox[{"-", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output", CellChangeTimes->{ 3.796656538019363*^9, 3.796679243964514*^9, 3.796730304369523*^9, 3.7967324695952663`*^9, {3.7967336987268047`*^9, 3.796733708786169*^9}, 3.796733760188148*^9, {3.7967349953911533`*^9, 3.796735021452573*^9}, 3.796736934331765*^9, 3.7967382554125433`*^9, 3.796739037836174*^9, 3.7967516890073643`*^9, 3.796816379784026*^9, 3.7968167912865877`*^9, 3.796817414208199*^9, 3.796820725480654*^9, 3.7968209041396112`*^9, 3.796838351253145*^9, 3.797030204224444*^9, 3.797081547150671*^9, 3.798815331117733*^9, 3.7988228620971518`*^9, 3.798824358158296*^9, 3.7988244620625134`*^9, {3.798824525097528*^9, 3.7988245384632*^9}, 3.7988246797197313`*^9, 3.7988255785934343`*^9, 3.798825624451666*^9, 3.798827558321295*^9, 3.798827635147897*^9, 3.7988277824016943`*^9, 3.798829458966159*^9, 3.7988299942029676`*^9, 3.7988301263634863`*^9, 3.798830230138384*^9, {3.7988351916153393`*^9, 3.7988352189063663`*^9}, 3.798835270376404*^9, 3.79883539942605*^9, {3.798835524439382*^9, 3.798835550301277*^9}, 3.798835581821437*^9, {3.798835689473639*^9, 3.798835706934353*^9}, 3.798835737169746*^9, {3.798835820008771*^9, 3.798835850919771*^9}, 3.798835983751143*^9, 3.7988363291884947`*^9, 3.7988370219189453`*^9, 3.798845547145965*^9, 3.798892740516818*^9, 3.798894335850698*^9, 3.798894449789048*^9, 3.79890323074622*^9, 3.798917672279052*^9, {3.79905784108326*^9, 3.799057864527485*^9}, 3.7990606423342457`*^9, 3.7990690587689238`*^9, 3.7993166730790167`*^9, 3.79931734335329*^9, {3.799492231849525*^9, 3.799492237735688*^9}, 3.799492286986438*^9, 3.799528763081662*^9, 3.7995301804259644`*^9, 3.7995324737851954`*^9, 3.79953329101637*^9, 3.7995789853711357`*^9, 3.799582581299666*^9, 3.799609834389431*^9, 3.799610264177248*^9, 3.799663531208449*^9, 3.7996660396572733`*^9, {3.799679699982377*^9, 3.799679707280643*^9}, 3.799699865595387*^9, 3.799703916656735*^9, 3.7997039729169188`*^9, 3.7997040311809263`*^9, 3.799704179606204*^9, 3.799704320610463*^9, 3.7997043555323772`*^9, 3.799741848202058*^9, 3.7997430991143627`*^9, 3.799745478606444*^9, 3.79974553068147*^9, 3.799746468120721*^9, 3.799752697566601*^9, 3.799759729274781*^9, 3.800110431214857*^9, 3.800110585073408*^9, 3.8001110222020063`*^9, 3.800111539070298*^9, 3.800113472044754*^9, 3.800129887441825*^9, 3.8001338743387537`*^9, 3.800139042366053*^9, {3.800141224704998*^9, 3.800141232937008*^9}, 3.800213614304926*^9, 3.800214523745269*^9, 3.8002155256755238`*^9, 3.80021680434827*^9, 3.800217540512453*^9, 3.800357768966384*^9, 3.800365844024641*^9, 3.800365996328188*^9, 3.8003663318597927`*^9, 3.800392841717082*^9, 3.8003966283330393`*^9, 3.8004465016913347`*^9, 3.800448572884994*^9, 3.800448838879525*^9, 3.800479792925426*^9, 3.800482268772422*^9, 3.800529449266561*^9, 3.800536818291201*^9, 3.8007868918769617`*^9, 3.800809854142034*^9, 3.82616229575461*^9, 3.82616248681002*^9, 3.826163592452381*^9, 3.826163981017185*^9, 3.8293150280835094`*^9, 3.8458153933427343`*^9}, CellLabel->"Out[41]=",ExpressionUUID->"dd15ee24-81e8-4a59-b7be-794140fe6beb"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "1", "]"}], "[", "3", "]"}], "[", RowBox[{ RowBox[{"B", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.798822808968608*^9, 3.798822809486081*^9}, { 3.798822853170518*^9, 3.798822853677848*^9}, {3.79882435279076*^9, 3.798824352867476*^9}}, CellLabel->"In[42]:=",ExpressionUUID->"94d427af-dc3d-467a-81ca-b104abe925c7"], Cell[BoxData[ RowBox[{"-", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output", CellChangeTimes->{ 3.796656538026265*^9, 3.7966792440069323`*^9, 3.796730304374921*^9, 3.796732469623826*^9, {3.796733698807015*^9, 3.796733708793426*^9}, 3.7967337601945953`*^9, {3.796734995431232*^9, 3.796735021457917*^9}, 3.796736934339919*^9, 3.796738255418401*^9, 3.796739037861907*^9, 3.796751689015719*^9, 3.796816379789031*^9, 3.796816791314958*^9, 3.796817414262439*^9, 3.796820725521006*^9, 3.796820904166665*^9, 3.796838351290592*^9, 3.7970302042408867`*^9, 3.7970815471567183`*^9, 3.7988153311738977`*^9, 3.798822862105898*^9, 3.798824358228889*^9, 3.798824462098319*^9, {3.798824525134128*^9, 3.798824538470808*^9}, 3.798824679742612*^9, 3.7988255786003447`*^9, 3.798825624486957*^9, 3.7988275583294497`*^9, 3.798827635155271*^9, 3.798827782409112*^9, 3.7988294589722*^9, 3.7988299942091713`*^9, 3.798830126369998*^9, 3.798830230145031*^9, {3.798835191622518*^9, 3.798835218912819*^9}, 3.798835270386355*^9, 3.798835399432083*^9, {3.7988355244459887`*^9, 3.798835550307968*^9}, 3.798835581827424*^9, {3.7988356894794703`*^9, 3.798835706941065*^9}, 3.7988357371766663`*^9, {3.798835820015416*^9, 3.798835850928832*^9}, 3.798835983757876*^9, 3.7988363291949244`*^9, 3.79883702192597*^9, 3.7988455471516314`*^9, 3.7988927405273314`*^9, 3.79889433594433*^9, 3.798894449798567*^9, 3.798903230756442*^9, 3.798917672292686*^9, {3.799057841151945*^9, 3.799057864540313*^9}, 3.799060642344378*^9, 3.799069058790928*^9, 3.799316673125186*^9, 3.799317343362514*^9, {3.799492231855769*^9, 3.799492237741416*^9}, 3.799492286994422*^9, 3.7995287630902777`*^9, 3.799530180434988*^9, 3.799532473793417*^9, 3.7995332910255404`*^9, 3.799578985388179*^9, 3.7995825813059263`*^9, 3.799609834400805*^9, 3.7996102642526608`*^9, 3.799663531214407*^9, 3.799666039663714*^9, {3.799679699993561*^9, 3.7996797072887774`*^9}, 3.7996998656045523`*^9, 3.7997039166681767`*^9, 3.799703972924129*^9, 3.799704031186764*^9, 3.799704179613926*^9, 3.799704320616682*^9, 3.799704355539317*^9, 3.799741848208898*^9, 3.79974309912189*^9, 3.7997454786131363`*^9, 3.799745530687022*^9, 3.799746468129097*^9, 3.799752697572822*^9, 3.799759729284191*^9, 3.800110431220436*^9, 3.80011058508027*^9, 3.80011102220877*^9, 3.8001115390772676`*^9, 3.8001134720518713`*^9, 3.800129887449542*^9, 3.8001338743458023`*^9, 3.800139042372766*^9, {3.80014122471564*^9, 3.8001412329463663`*^9}, 3.800213614311409*^9, 3.8002145237519293`*^9, 3.8002155256820097`*^9, 3.800216804356307*^9, 3.800217540520833*^9, 3.800357768973133*^9, 3.800365844034143*^9, 3.800365996334077*^9, 3.8003663318667*^9, 3.8003928417241793`*^9, 3.800396628341979*^9, 3.800446501702888*^9, 3.800448572891693*^9, 3.800448838886095*^9, 3.8004797929403257`*^9, 3.800482268783334*^9, 3.800529449277133*^9, 3.80053681830175*^9, 3.8007868918860903`*^9, 3.800809854149935*^9, 3.8261622957623787`*^9, 3.826162486816934*^9, 3.826163592458482*^9, 3.826163981027596*^9, 3.8293150281337495`*^9, 3.8458153933739767`*^9}, CellLabel->"Out[42]=",ExpressionUUID->"d6bf9601-34ae-4bf6-8711-348124a47950"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "2", "]"}], "[", "1", "]"}], "[", RowBox[{ RowBox[{"\[CurlyPhi]", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.795469612304517*^9, 3.795469621484922*^9}, { 3.79673368779849*^9, 3.796733691074539*^9}, {3.798822814673973*^9, 3.7988228417010736`*^9}}, CellLabel->"In[43]:=",ExpressionUUID->"dd7f571b-e32b-4901-9e20-9c70c7860c22"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Output", CellChangeTimes->{ 3.7954696219491777`*^9, 3.795470355067308*^9, 3.795529184511985*^9, 3.795700958217017*^9, 3.795701134478684*^9, 3.7957326953952303`*^9, 3.795805431776618*^9, 3.796314764862039*^9, 3.796325795180423*^9, 3.79632764719865*^9, 3.796423044495472*^9, 3.796482466306695*^9, 3.796490313836082*^9, 3.796572476246402*^9, 3.796575007216061*^9, 3.796656358264083*^9, 3.7966565380832977`*^9, 3.796679244072042*^9, 3.796730304454117*^9, 3.796732469675506*^9, {3.7967336988722363`*^9, 3.7967337089041862`*^9}, 3.796733760239587*^9, {3.796734995484908*^9, 3.796735021505492*^9}, 3.796736934410954*^9, 3.7967382554517612`*^9, 3.796739037903138*^9, 3.796751689063416*^9, 3.796816379840436*^9, 3.796816791358*^9, 3.796817414323306*^9, 3.796820725585569*^9, 3.796820904217104*^9, 3.796838351446898*^9, 3.797030204281754*^9, 3.797081547227556*^9, 3.798815331250566*^9, 3.7988228622062893`*^9, 3.798824358296872*^9, 3.798824462146566*^9, {3.79882452518848*^9, 3.798824538556396*^9}, 3.798824679789419*^9, 3.798825578649499*^9, 3.798825624607399*^9, 3.7988275583735733`*^9, 3.798827635233046*^9, 3.7988277825309877`*^9, 3.79882945905204*^9, 3.798829994274168*^9, 3.79883012646948*^9, 3.7988302302529984`*^9, {3.7988351916886177`*^9, 3.798835219050132*^9}, 3.798835270515011*^9, 3.798835399507183*^9, { 3.798835524592615*^9, 3.798835550431801*^9}, 3.798835581925301*^9, { 3.798835689535235*^9, 3.798835707001923*^9}, 3.798835737279214*^9, { 3.798835820141164*^9, 3.798835851046973*^9}, 3.7988359838543177`*^9, 3.798836329252638*^9, 3.798837022062854*^9, 3.798845547187525*^9, 3.798892740662067*^9, 3.798894335989978*^9, 3.798894449854042*^9, 3.798903230828491*^9, 3.798917672411841*^9, {3.799057841242928*^9, 3.799057864698989*^9}, 3.7990606424350557`*^9, 3.799069058952973*^9, 3.799316673204949*^9, 3.799317343471694*^9, {3.799492231955152*^9, 3.799492237785438*^9}, 3.7994922870747013`*^9, 3.799528763184676*^9, 3.7995301805130253`*^9, 3.799532473852085*^9, 3.79953329115132*^9, 3.799578985512877*^9, 3.799582581374989*^9, 3.799609834532957*^9, 3.799610264346259*^9, 3.799663531278152*^9, 3.799666039724432*^9, { 3.799679700146658*^9, 3.799679707359626*^9}, 3.7996998657122717`*^9, 3.7997039167432013`*^9, 3.799703972984878*^9, 3.7997040312542667`*^9, 3.799704179679528*^9, 3.799704320652081*^9, 3.799704355595372*^9, 3.799741848362564*^9, 3.79974309918405*^9, 3.79974547866407*^9, 3.799745530720872*^9, 3.799746468201832*^9, 3.79975269760676*^9, 3.7997597294002457`*^9, 3.8001104312674828`*^9, 3.800110585167447*^9, 3.800111022245163*^9, 3.8001115391313543`*^9, 3.800113472102976*^9, 3.800129887493775*^9, 3.800133874386752*^9, 3.800139042418366*^9, { 3.800141224743691*^9, 3.800141232982164*^9}, 3.8002136143177147`*^9, 3.800214523769267*^9, 3.8002155257010593`*^9, 3.800216804374309*^9, 3.8002175405417423`*^9, 3.800357768979802*^9, 3.800365844050682*^9, 3.800365996352304*^9, 3.800366331872971*^9, 3.800392841740657*^9, 3.800396628370655*^9, 3.800446501728092*^9, 3.800448572911366*^9, 3.800448838892589*^9, 3.800479792966063*^9, 3.800482268815715*^9, 3.8005294493255577`*^9, 3.8005368183384323`*^9, 3.8007868919075613`*^9, 3.800809854168192*^9, 3.8261622957791986`*^9, 3.82616248683644*^9, 3.8261635924906473`*^9, 3.8261639810605707`*^9, 3.8293150281962748`*^9, 3.845815393405221*^9}, CellLabel->"Out[43]=",ExpressionUUID->"e39c66f0-31d9-46df-8824-ea47461e6d7e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "1", "]"}], "[", "2", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"Bmn", "[", "1", "]"}], "[", RowBox[{"2", ",", "3"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.7954696406230583`*^9, 3.795469658052787*^9}, { 3.796733693326496*^9, 3.796733695180574*^9}, {3.798822817895916*^9, 3.798822839336521*^9}}, CellLabel->"In[44]:=",ExpressionUUID->"02ca1875-f947-46c0-9a7a-6fb4515678d7"], Cell[BoxData[ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output", CellChangeTimes->{ 3.795469659850636*^9, 3.795470355102759*^9, 3.795529184555914*^9, 3.7957009582676153`*^9, 3.7957011345370407`*^9, 3.7957326954544888`*^9, 3.795805431866057*^9, 3.7963147649007883`*^9, 3.7963257952297773`*^9, 3.796327647241499*^9, 3.7964230445446863`*^9, 3.796482466345475*^9, 3.7964903138872213`*^9, 3.796572476299819*^9, 3.796575007266765*^9, 3.7966563583040237`*^9, 3.796656538091381*^9, 3.7966792441171837`*^9, 3.796730304460904*^9, 3.79673246969405*^9, {3.7967336989208384`*^9, 3.7967337089117413`*^9}, 3.796733760244985*^9, {3.796734995490777*^9, 3.7967350215111103`*^9}, 3.7967369344168043`*^9, 3.796738255457734*^9, 3.796739037927318*^9, 3.7967516890733232`*^9, 3.7968163798471937`*^9, 3.7968167913906317`*^9, 3.7968174143288403`*^9, 3.796820725626132*^9, 3.796820904239353*^9, 3.796838351486568*^9, 3.79703020429016*^9, 3.7970815472397203`*^9, 3.798815331306608*^9, 3.7988228622172747`*^9, 3.79882435835012*^9, 3.798824462174988*^9, {3.7988245252262993`*^9, 3.798824538566937*^9}, 3.798824679811521*^9, 3.7988255786581984`*^9, 3.798825624615638*^9, 3.79882755838072*^9, 3.798827635240245*^9, 3.798827782538835*^9, 3.7988294590601254`*^9, 3.798829994330946*^9, 3.798830126477145*^9, 3.7988302302608232`*^9, {3.7988351917457848`*^9, 3.798835219139436*^9}, 3.798835270524036*^9, 3.7988353995744677`*^9, { 3.798835524679309*^9, 3.798835550438518*^9}, 3.798835581931171*^9, { 3.798835689542758*^9, 3.798835707053833*^9}, 3.798835737285987*^9, { 3.798835820269526*^9, 3.79883585105709*^9}, 3.798835983862883*^9, 3.7988363292982683`*^9, 3.798837022070423*^9, 3.798845547209023*^9, 3.7988927406698513`*^9, 3.798894335997987*^9, 3.7988944498635607`*^9, 3.7989032308620653`*^9, 3.798917672426622*^9, {3.799057841288378*^9, 3.7990578647096767`*^9}, 3.799060642446555*^9, 3.799069058974202*^9, 3.799316673250986*^9, 3.7993173434809723`*^9, {3.799492231962987*^9, 3.799492237792292*^9}, 3.799492287082155*^9, 3.799528763194055*^9, 3.799530180521652*^9, 3.799532473860319*^9, 3.7995332911611557`*^9, 3.799578985587955*^9, 3.799582581382654*^9, 3.799609834546289*^9, 3.799610264415142*^9, 3.799663531285076*^9, 3.799666039731038*^9, { 3.7996797001597033`*^9, 3.799679707369795*^9}, 3.799699865722939*^9, 3.7997039167512627`*^9, 3.799703972992415*^9, 3.799704031260151*^9, 3.799704179685048*^9, 3.799704320658472*^9, 3.799704355601346*^9, 3.799741848368843*^9, 3.799743099192919*^9, 3.799745478670102*^9, 3.799745530743702*^9, 3.799746468210993*^9, 3.799752697627408*^9, 3.799759729532658*^9, 3.8001104312733383`*^9, 3.800110585173707*^9, 3.80011102226794*^9, 3.8001115391380053`*^9, 3.800113472110433*^9, 3.8001298875021877`*^9, 3.80013387439428*^9, 3.800139042426539*^9, { 3.800141224752839*^9, 3.800141232991735*^9}, 3.8002136143407097`*^9, 3.800214523775797*^9, 3.800215525709051*^9, 3.8002168043815393`*^9, 3.800217540549457*^9, 3.8003577689969378`*^9, 3.800365844056984*^9, 3.80036599635923*^9, 3.8003663318907623`*^9, 3.800392841748879*^9, 3.800396628379525*^9, 3.800446501736636*^9, 3.800448572923307*^9, 3.8004488389114637`*^9, 3.8004797929773684`*^9, 3.800482268828705*^9, 3.8005294493385963`*^9, 3.800536818395246*^9, 3.8007868919142036`*^9, 3.800809854176979*^9, 3.826162295786027*^9, 3.826162486842053*^9, 3.826163592496665*^9, 3.826163981075017*^9, 3.8293150282587223`*^9, 3.8458153934364634`*^9}, CellLabel->"Out[44]=",ExpressionUUID->"1efe8021-c715-49dc-a41a-3120c4d0a20a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "1", "]"}], "[", "2", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.798822820887759*^9, 3.798822837643401*^9}}, CellLabel->"In[45]:=",ExpressionUUID->"afd6beaf-c26d-490c-b81c-6716f090d383"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CurlyPhi]", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"Bmn", "[", "1", "]"}], "[", RowBox[{"0", ",", "1"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"Bmn", "[", "1", "]"}], "[", RowBox[{"0", ",", "3"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"Bmn", "[", "1", "]"}], "[", RowBox[{"3", ",", "1"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]], "Output", CellChangeTimes->{ 3.79665653811679*^9, 3.7966792441264553`*^9, 3.796730304496245*^9, 3.796732469702635*^9, {3.796733698928014*^9, 3.796733708963113*^9}, 3.7967337602822123`*^9, {3.796734995533164*^9, 3.796735021554047*^9}, 3.796736934446443*^9, 3.796738255464902*^9, 3.796739037933033*^9, 3.7967516891000137`*^9, 3.79681637987075*^9, 3.79681679139703*^9, 3.7968174143357153`*^9, 3.796820725635034*^9, 3.7968209042472277`*^9, 3.7968383514969053`*^9, 3.79703020430505*^9, 3.797081547266287*^9, 3.7988153313189783`*^9, 3.79882286226567*^9, 3.7988243583601627`*^9, 3.798824462185195*^9, {3.798824525233912*^9, 3.798824538603813*^9}, 3.7988246798204203`*^9, 3.7988255786652718`*^9, 3.798825624650189*^9, 3.798827558415288*^9, 3.798827635301289*^9, 3.798827782597097*^9, 3.7988294590958767`*^9, 3.7988299943382053`*^9, 3.7988301265228558`*^9, 3.798830230316058*^9, {3.798835191826614*^9, 3.798835219150646*^9}, 3.798835270579567*^9, 3.7988353995814133`*^9, {3.79883552468594*^9, 3.798835550445608*^9}, 3.798835581968988*^9, {3.798835689581731*^9, 3.798835707060956*^9}, 3.798835737340218*^9, {3.798835820276363*^9, 3.798835851120778*^9}, 3.798835983906542*^9, 3.798836329307262*^9, 3.798837022077739*^9, 3.798845547215664*^9, 3.798892740709023*^9, 3.798894336025854*^9, 3.798894449886767*^9, 3.7989032308903837`*^9, 3.7989176724890738`*^9, {3.799057841306386*^9, 3.7990578647820053`*^9}, 3.799060642488291*^9, 3.799069059041051*^9, 3.799316673267561*^9, 3.7993173435375967`*^9, {3.799492232008767*^9, 3.79949223781056*^9}, 3.799492287088258*^9, 3.79952876323773*^9, 3.799530180555849*^9, 3.799532473886578*^9, 3.799533291212491*^9, 3.799578985603327*^9, 3.799582581411077*^9, 3.79960983460675*^9, 3.7996102645314207`*^9, 3.799663531313259*^9, 3.799666039759351*^9, {3.79967970027171*^9, 3.799679707401065*^9}, 3.7996998657711554`*^9, 3.799703916784874*^9, 3.799703973018838*^9, 3.799704031288692*^9, 3.799704179690679*^9, 3.799704320665505*^9, 3.799704355628305*^9, 3.799741848449071*^9, 3.799743099217286*^9, 3.799745478693872*^9, 3.799745530750042*^9, 3.7997464682515306`*^9, 3.799752697637288*^9, 3.799759729541795*^9, 3.800110431294405*^9, 3.800110585212638*^9, 3.800111022274551*^9, 3.800111539165965*^9, 3.800113472132639*^9, 3.8001298875202637`*^9, 3.800133874411416*^9, 3.800139042444508*^9, {3.8001412247833567`*^9, 3.800141233049675*^9}, 3.800213614348913*^9, 3.8002145237827797`*^9, 3.8002155257280407`*^9, 3.8002168044010267`*^9, 3.800217540572*^9, 3.8003577690049686`*^9, 3.800365844073983*^9, 3.800365996365878*^9, 3.800366331897093*^9, 3.800392841783401*^9, 3.8003966284080887`*^9, 3.800446501760726*^9, 3.800448572944014*^9, 3.800448838919305*^9, 3.80047979300159*^9, 3.800482268864963*^9, 3.800529449415353*^9, 3.800536818438987*^9, 3.800786891938805*^9, 3.800809854194992*^9, 3.826162295804088*^9, 3.826162486863307*^9, 3.8261635925259542`*^9, 3.826163981107524*^9, 3.8293150283212514`*^9, 3.8458153934520845`*^9}, CellLabel->"Out[45]=",ExpressionUUID->"a2cc1b96-2fdf-45ae-8aa9-76de073c3342"] }, Open ]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Vector Tensor, tilded transformation laws", "Section", CellChangeTimes->{{3.798821923568101*^9, 3.798821926018879*^9}, { 3.8312273264340086`*^9, 3.8312273328001585`*^9}},ExpressionUUID->"a0fec308-4d8f-4c4c-9bb7-\ 1e9a485f2207"], Cell[CellGroupData[{ Cell["A", "Subsection", CellChangeTimes->{{3.7988347910087357`*^9, 3.798834807788391*^9}},ExpressionUUID->"62738175-279d-4341-80e4-\ 0565a6afa92e"], Cell[BoxData[ RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{"A", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", "=", " ", RowBox[{"I", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "jj", "]"}], "[", "aa", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.798818245314842*^9, 3.7988183350991364`*^9}, { 3.79881848431872*^9, 3.7988184899436283`*^9}, {3.7988214227634077`*^9, 3.798821424911536*^9}, {3.798825810748547*^9, 3.79882586131664*^9}}, CellLabel->"In[46]:=",ExpressionUUID->"77209435-c016-4498-9d97-063de4713605"] }, Closed]], Cell[CellGroupData[{ Cell["B", "Subsection", CellChangeTimes->{{3.7988347910087357`*^9, 3.7988348192856503`*^9}},ExpressionUUID->"7c69fcb3-e42d-48ec-b634-\ dbc7952a2606"], Cell[BoxData[ RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{"B", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"-", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"\[Gamma]5", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "//", "Simplify"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.798818346606588*^9, 3.7988184022580233`*^9}, { 3.7988184418868303`*^9, 3.7988184822328377`*^9}, {3.798821439386671*^9, 3.7988214395087442`*^9}, {3.79882587772539*^9, 3.798825923605331*^9}, { 3.7988260086647263`*^9, 3.798826008808535*^9}}, CellLabel->"In[47]:=",ExpressionUUID->"d14b82f2-35c1-420e-80d3-e99599398ff0"] }, Closed]], Cell[CellGroupData[{ Cell["Avec", "Subsection", CellChangeTimes->{{3.7988347910087357`*^9, 3.798834807788391*^9}, { 3.798834842922842*^9, 3.7988348431773777`*^9}},ExpressionUUID->"8108bf76-9b13-4baa-9448-\ 14120973547b"], Cell[BoxData[ RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"Avec", "[", "0", "]"}], "[", "mu", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{ RowBox[{"\[Gamma]stdown", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}], "//", "Simplify"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.7988191640182877`*^9, 3.7988191647095623`*^9}, { 3.7988192196675577`*^9, 3.798819255528553*^9}, {3.7988193025540667`*^9, 3.798819307625489*^9}, {3.798821450739798*^9, 3.7988214511418037`*^9}, { 3.798822465299726*^9, 3.798822465968261*^9}, {3.798826422508811*^9, 3.7988264261298513`*^9}, {3.798826459099435*^9, 3.798826464420772*^9}, { 3.798836173350789*^9, 3.7988361899110117`*^9}, {3.7988362230011463`*^9, 3.79883622622749*^9}, 3.798836262759832*^9, {3.799532259369832*^9, 3.799532259861375*^9}, 3.799532300411553*^9, 3.799532504312937*^9, 3.799532538465214*^9}, CellLabel->"In[48]:=",ExpressionUUID->"507b2f05-6675-4724-970a-87410eb72b3d"] }, Closed]], Cell[CellGroupData[{ Cell["Psi", "Subsection", CellChangeTimes->{{3.7988347910087357`*^9, 3.798834807788391*^9}, { 3.798834868537681*^9, 3.7988348696102962`*^9}},ExpressionUUID->"7b0d2093-2da3-4544-89f9-\ 4a8c8cc3b19f"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"I", " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"(", RowBox[{"-", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], ")"}]}], "\[IndentingNewLine]", "-", " ", RowBox[{"I", " ", RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"A", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", " ", RowBox[{"I", " ", RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"\[CurlyPhi]", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "-", " ", RowBox[{ RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"\[Epsilon]downupupup", "[", RowBox[{"mu", ",", "nu", ",", "ap", ",", "bt"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Bmn", "[", "1", "]"}], "[", RowBox[{"ap", ",", "bt"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "nu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"ap", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"bt", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.798819467585432*^9, 3.7988197533049088`*^9}, { 3.79881992545691*^9, 3.798819928451456*^9}, {3.7988199723335447`*^9, 3.79882003965343*^9}, {3.798821460491375*^9, 3.7988214608036737`*^9}, { 3.798821650537098*^9, 3.798821703606093*^9}, {3.798821740360176*^9, 3.798821769794241*^9}, {3.798821845149036*^9, 3.798821849308669*^9}, 3.798822130089365*^9, {3.798826671386661*^9, 3.798826694625115*^9}, { 3.7988268142085543`*^9, 3.7988268365691013`*^9}, {3.798826922861834*^9, 3.798826951854052*^9}, {3.798827001290062*^9, 3.7988270055540743`*^9}, { 3.798827677346163*^9, 3.798827681883977*^9}, {3.7988353881228323`*^9, 3.798835397344118*^9}, {3.79883551609205*^9, 3.798835521094558*^9}, 3.8001409569862556`*^9}, CellLabel->"In[49]:=",ExpressionUUID->"95392961-334b-45af-87ac-a27c48cc6c0c"] }, Closed]], Cell[CellGroupData[{ Cell["Check that these laws run", "Subsection", CellChangeTimes->{{3.796656504100595*^9, 3.796656508593997*^9}},ExpressionUUID->"991590a5-93aa-496a-82bc-\ 8e5d0d291fc4"], Cell[BoxData[ RowBox[{"(*", RowBox[{"Run", " ", "supercovar", " ", "derive", " ", "to", " ", "check"}], "*)"}]], "Input", CellChangeTimes->{{3.796656412049549*^9, 3.796656432656111*^9}}, CellLabel->"In[50]:=",ExpressionUUID->"02d8d6e4-f513-4d6d-8661-5f6cba5fd745"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "1", "]"}], "[", RowBox[{ RowBox[{"A", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.7988201947922907`*^9, 3.798820225829571*^9}, { 3.798827699404091*^9, 3.798827699501534*^9}}, CellLabel->"In[51]:=",ExpressionUUID->"236b27c5-e826-4ba5-b5d0-de111f99c9fe"], Cell[BoxData[ RowBox[{"-", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output", CellChangeTimes->{ 3.796656538019363*^9, 3.796679243964514*^9, 3.796730304369523*^9, 3.7967324695952663`*^9, 3.79682505595348*^9, 3.7969051699851637`*^9, { 3.7988202195847816`*^9, 3.798820246352509*^9}, 3.798821470481536*^9, 3.798822372136101*^9, 3.798822861703827*^9, 3.798824461430047*^9, { 3.79882452455485*^9, 3.798824537891913*^9}, 3.798824679438958*^9, 3.798825577982662*^9, 3.798825622550115*^9, 3.798827558594768*^9, 3.7988276356227407`*^9, 3.7988277178559847`*^9, 3.7988277829986*^9, 3.7988294593250847`*^9, 3.79882999468301*^9, 3.7988301267640047`*^9, 3.7988302306806793`*^9, {3.79883519213511*^9, 3.7988352193957777`*^9}, 3.7988352708710337`*^9, 3.798835399984497*^9, {3.798835524929844*^9, 3.798835550652124*^9}, 3.79883558223842*^9, {3.7988356898262043`*^9, 3.7988357072891483`*^9}, 3.798835737596376*^9, {3.798835820512506*^9, 3.798835851435052*^9}, 3.798835984230934*^9, 3.798836329481329*^9, 3.798837022299294*^9, 3.798845547397072*^9, 3.798892740999341*^9, 3.79889433632588*^9, 3.79889445006903*^9, 3.7989032311325817`*^9, 3.7989176726931953`*^9, {3.799057841773274*^9, 3.799057865170437*^9}, 3.799060642663231*^9, 3.799069059619928*^9, 3.799316673448842*^9, 3.799317344031541*^9, {3.799492232517434*^9, 3.799492238232481*^9}, 3.79949228730284*^9, 3.7995287635088587`*^9, 3.799530180714232*^9, 3.799532474052299*^9, 3.799533291515717*^9, 3.799578985803754*^9, 3.799582581649667*^9, 3.7996098350340643`*^9, 3.799610264730441*^9, 3.799663531492672*^9, 3.799666040009013*^9, {3.799679700723781*^9, 3.7996797075724707`*^9}, 3.799699866043584*^9, 3.7997039171335506`*^9, 3.799703973237789*^9, 3.799704031547286*^9, 3.7997041799755497`*^9, 3.799704320825451*^9, 3.7997043558295183`*^9, 3.799741848676338*^9, 3.7997430993901367`*^9, 3.79974547884696*^9, 3.799745530898747*^9, 3.799746468451021*^9, 3.799752697824547*^9, 3.799759729801433*^9, 3.800110431457047*^9, 3.800110585491762*^9, 3.8001110224500723`*^9, 3.800111539343376*^9, 3.800113472290023*^9, 3.8001298877060633`*^9, 3.800133874554812*^9, 3.800139042592958*^9, {3.8001412283250628`*^9, 3.800141233255237*^9}, 3.800213614553459*^9, 3.8002145239095173`*^9, 3.8002155258584843`*^9, 3.8002168045256767`*^9, 3.8002175407065563`*^9, 3.8003577691374817`*^9, 3.800365844197053*^9, 3.800365996506832*^9, 3.800366332019979*^9, 3.800392841902914*^9, 3.800396628567391*^9, 3.800446501907939*^9, 3.800448573075224*^9, 3.800448839046006*^9, 3.800479793188566*^9, 3.800482269084074*^9, 3.800529449576881*^9, 3.800536818636092*^9, 3.8007868920856333`*^9, 3.800809854342533*^9, 3.826162295935894*^9, 3.826162486986743*^9, 3.826163592665124*^9, 3.826163981380707*^9, 3.8293150286023893`*^9, 3.8458153936469774`*^9}, CellLabel->"Out[51]=",ExpressionUUID->"a4c05993-6cb9-4f8c-a05b-9f38f4f527f7"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "3", "]"}], "[", RowBox[{ RowBox[{"B", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.798820198046708*^9, 3.7988201986015*^9}, { 3.798820229492302*^9, 3.798820230157256*^9}, {3.798827701175531*^9, 3.798827701280629*^9}}, CellLabel->"In[52]:=",ExpressionUUID->"b9b38aca-4ee1-4f73-ae88-fa63793b2b1f"], Cell[BoxData[ RowBox[{"-", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output", CellChangeTimes->{ 3.796656538026265*^9, 3.7966792440069323`*^9, 3.796730304374921*^9, 3.796732469623826*^9, 3.796825056022579*^9, 3.7969051699903107`*^9, { 3.798820219592596*^9, 3.7988202463640003`*^9}, 3.798821470490724*^9, 3.798822372143004*^9, 3.798822861715061*^9, 3.7988244614388742`*^9, { 3.798824524560742*^9, 3.798824537899887*^9}, 3.798824679446683*^9, 3.798825577991652*^9, 3.798825622557869*^9, 3.798827558602394*^9, 3.798827635630992*^9, 3.798827717863451*^9, 3.7988277830066547`*^9, 3.798829459334043*^9, 3.7988299946898823`*^9, 3.798830126770299*^9, 3.7988302307458067`*^9, {3.79883519214316*^9, 3.798835219402669*^9}, 3.798835270879746*^9, 3.79883540004624*^9, {3.798835524937149*^9, 3.798835550659812*^9}, 3.7988355822461977`*^9, {3.798835689833744*^9, 3.798835707296588*^9}, 3.798835737606498*^9, {3.798835820522387*^9, 3.798835851443865*^9}, 3.7988359842856417`*^9, 3.7988363294910603`*^9, 3.7988370223627787`*^9, 3.798845547403843*^9, 3.798892741014447*^9, 3.798894336333343*^9, 3.798894450074937*^9, 3.798903231141876*^9, 3.798917672702499*^9, {3.799057841814206*^9, 3.79905786518329*^9}, 3.799060642672195*^9, 3.7990690596485243`*^9, 3.799316673458124*^9, 3.7993173440948267`*^9, {3.799492232523836*^9, 3.799492238238647*^9}, 3.799492287311108*^9, 3.799528763520055*^9, 3.7995301807232847`*^9, 3.799532474059906*^9, 3.799533291529521*^9, 3.799578985817856*^9, 3.7995825816563272`*^9, 3.799609835078224*^9, 3.7996102647416677`*^9, 3.79966353149964*^9, 3.799666040014892*^9, {3.799679700740053*^9, 3.799679707578178*^9}, 3.799699866055025*^9, 3.799703917212983*^9, 3.7997039732451897`*^9, 3.799704031588526*^9, 3.799704180064435*^9, 3.7997043208325043`*^9, 3.7997043558356113`*^9, 3.79974184868274*^9, 3.799743099397284*^9, 3.799745478852553*^9, 3.799745530904339*^9, 3.799746468459117*^9, 3.799752697831861*^9, 3.799759729808572*^9, 3.8001104314626493`*^9, 3.8001105855221243`*^9, 3.8001110224571*^9, 3.800111539350388*^9, 3.800113472296385*^9, 3.8001298877155437`*^9, 3.800133874562367*^9, 3.800139042599931*^9, {3.800141228335865*^9, 3.800141233267627*^9}, 3.800213614565494*^9, 3.800214523916051*^9, 3.800215525865878*^9, 3.800216804532529*^9, 3.800217540713582*^9, 3.800357769145433*^9, 3.8003658442044573`*^9, 3.8003659965127583`*^9, 3.800366332026724*^9, 3.800392841910879*^9, 3.800396628578704*^9, 3.800446501918077*^9, 3.80044857308217*^9, 3.800448839052544*^9, 3.800479793198738*^9, 3.800482269096067*^9, 3.800529449588937*^9, 3.800536818648438*^9, 3.800786892092153*^9, 3.8008098543497458`*^9, 3.826162295942526*^9, 3.826162486992568*^9, 3.826163593307248*^9, 3.8261639814129667`*^9, 3.8293150286659756`*^9, 3.8458153936782317`*^9}, CellLabel->"Out[52]=",ExpressionUUID->"7577e8aa-282a-4ce5-95f1-01edf551507c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "2", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"Avec", "[", "0", "]"}], "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.7954696406230583`*^9, 3.795469658052787*^9}, { 3.798820212246702*^9, 3.7988202404767437`*^9}, {3.798827707875224*^9, 3.798827707956252*^9}}, CellLabel->"In[53]:=",ExpressionUUID->"258ef63b-eb39-4ee5-86ff-17500461e872"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Output", CellChangeTimes->{ 3.795469659850636*^9, 3.795470355102759*^9, 3.795529184555914*^9, 3.7957009582676153`*^9, 3.7957011345370407`*^9, 3.7957326954544888`*^9, 3.795805431866057*^9, 3.7963147649007883`*^9, 3.7963257952297773`*^9, 3.796327647241499*^9, 3.7964230445446863`*^9, 3.796482466345475*^9, 3.7964903138872213`*^9, 3.796572476299819*^9, 3.796575007266765*^9, 3.7966563583040237`*^9, 3.796656538091381*^9, 3.7966792441171837`*^9, 3.796730304460904*^9, 3.79673246969405*^9, 3.796825056191628*^9, 3.796905170094655*^9, {3.798820219705868*^9, 3.798820246470232*^9}, 3.798821470609683*^9, 3.798822372182626*^9, 3.798822861845427*^9, 3.798824461493675*^9, {3.798824524628289*^9, 3.798824537992442*^9}, 3.798824679510478*^9, 3.7988255780752707`*^9, 3.798825622647292*^9, 3.798827558689135*^9, 3.7988276356885357`*^9, 3.798827717978776*^9, 3.798827783154821*^9, 3.798829459437826*^9, 3.7988299948206873`*^9, 3.7988301269377937`*^9, 3.7988302309023542`*^9, {3.7988351922686*^9, 3.798835219530035*^9}, 3.79883527098981*^9, 3.7988354001837397`*^9, { 3.798835525073625*^9, 3.798835550780047*^9}, 3.7988355823840933`*^9, { 3.7988356899785852`*^9, 3.798835707408989*^9}, 3.7988357377115726`*^9, { 3.798835820645548*^9, 3.79883585155513*^9}, 3.7988359844194393`*^9, 3.798836329661398*^9, 3.7988370225179462`*^9, 3.798845547458768*^9, 3.798892741118795*^9, 3.7988943364014063`*^9, 3.798894450136313*^9, 3.79890323120765*^9, 3.798917672804459*^9, {3.799057841922608*^9, 3.799057865325809*^9}, 3.7990606427817574`*^9, 3.799069059853251*^9, 3.7993166735706587`*^9, 3.799317344275804*^9, {3.799492232619055*^9, 3.799492238287787*^9}, 3.799492287400276*^9, 3.799528763815222*^9, 3.799530180821007*^9, 3.79953247412663*^9, 3.799533291648177*^9, 3.7995789859497223`*^9, 3.799582581748361*^9, 3.7996098351950407`*^9, 3.799610264918808*^9, 3.799663531570512*^9, 3.7996660401022043`*^9, { 3.799679700972011*^9, 3.799679707706004*^9}, 3.799699866253065*^9, 3.79970391738206*^9, 3.799703973331072*^9, 3.7997040316604223`*^9, 3.799704180118928*^9, 3.799704320891631*^9, 3.799704355901277*^9, 3.7997418488428793`*^9, 3.7997430994617043`*^9, 3.799745478912627*^9, 3.799745530973179*^9, 3.799746468556594*^9, 3.799752697893408*^9, 3.799759729934249*^9, 3.800110431515077*^9, 3.800110585597682*^9, 3.8001110225174437`*^9, 3.800111539418285*^9, 3.800113472355307*^9, 3.800129887768813*^9, 3.800133874616283*^9, 3.800139042640005*^9, { 3.800141228369816*^9, 3.800141233297933*^9}, 3.8002136145900517`*^9, 3.800214523934567*^9, 3.8002155258876343`*^9, 3.8002168045512543`*^9, 3.800217540732108*^9, 3.8003577691641207`*^9, 3.80036584422093*^9, 3.800365996554058*^9, 3.80036633204327*^9, 3.80039284191684*^9, 3.8003966286043167`*^9, 3.800446501942008*^9, 3.800448573102686*^9, 3.800448839059207*^9, 3.8004797932212667`*^9, 3.8004822691432543`*^9, 3.800529449610849*^9, 3.8005368187528543`*^9, 3.80078689209864*^9, 3.800809854372117*^9, 3.826162295960466*^9, 3.826162487013112*^9, 3.8261635934443073`*^9, 3.826163981426634*^9, 3.829315028712878*^9, 3.8458153936938457`*^9}, CellLabel->"Out[53]=",ExpressionUUID->"1aa4cfcc-5c15-490e-90bd-4f46d8ad798f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "2", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "1", "]"}], "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.798820215327577*^9, 3.798820243284295*^9}, { 3.7988215017418127`*^9, 3.7988215046280613`*^9}, {3.798821540943738*^9, 3.798821549672701*^9}, {3.798821720369495*^9, 3.798821764272276*^9}, { 3.798827710103897*^9, 3.798827710230171*^9}}, CellLabel->"In[54]:=",ExpressionUUID->"d0eaa91b-b34e-4953-8b54-4043fbc10fba"], Cell[BoxData[ RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"\[CurlyPhi]", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"\[CurlyPhi]", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]], "Output",\ CellChangeTimes->{{3.798821635047181*^9, 3.798821664656163*^9}, { 3.798821708957131*^9, 3.7988217736256857`*^9}, 3.798821853788838*^9, 3.798822372191321*^9, 3.7988228618518333`*^9, 3.798824461535247*^9, { 3.798824524654664*^9, 3.7988245380335093`*^9}, 3.798824679530162*^9, 3.798825578113459*^9, 3.798825622684391*^9, 3.798827558722557*^9, 3.798827635707271*^9, 3.798827718050651*^9, 3.7988277832188272`*^9, 3.798829459479299*^9, 3.798829994876355*^9, 3.798830126946329*^9, 3.7988302309111137`*^9, {3.798835192331543*^9, 3.798835219588047*^9}, 3.798835270999146*^9, 3.7988354001944532`*^9, {3.798835525135187*^9, 3.7988355508316298`*^9}, 3.798835582439844*^9, {3.798835690034995*^9, 3.798835707454878*^9}, 3.79883573775429*^9, {3.798835820704751*^9, 3.798835851600154*^9}, 3.798835984427915*^9, 3.7988363296700478`*^9, 3.798837022527287*^9, 3.7988455474796*^9, 3.798892741153429*^9, 3.798894336427745*^9, 3.7988944501422863`*^9, 3.798903231215069*^9, 3.7989176728453903`*^9, {3.799057841935966*^9, 3.79905786536887*^9}, 3.799060642823045*^9, 3.7990690599391212`*^9, 3.7993166736134567`*^9, 3.799317344284597*^9, {3.7994922326602983`*^9, 3.799492238294092*^9}, 3.799492287406289*^9, 3.799528763826466*^9, 3.7995301808554363`*^9, 3.7995324741333857`*^9, 3.799533291696466*^9, 3.79957898599827*^9, 3.799582581782193*^9, 3.7996098352070513`*^9, 3.799610264982048*^9, 3.79966353159807*^9, 3.7996660401076183`*^9, {3.799679701017859*^9, 3.799679707733506*^9}, 3.7996998663088284`*^9, 3.799703917390984*^9, 3.799703973358507*^9, 3.799704031667326*^9, 3.799704180125448*^9, 3.799704320916119*^9, 3.7997043559289093`*^9, 3.799741848849422*^9, 3.799743099467346*^9, 3.799745478934548*^9, 3.799745530980893*^9, 3.799746468591309*^9, 3.799752697917762*^9, 3.799759729985147*^9, 3.800110431535139*^9, 3.800110585603754*^9, 3.800111022523891*^9, 3.8001115394271183`*^9, 3.800113472361977*^9, 3.80012988778601*^9, 3.800133874633519*^9, 3.800139042647972*^9, {3.800141228378956*^9, 3.800141233307955*^9}, 3.800213614602611*^9, 3.800214523941615*^9, 3.800215525895897*^9, 3.800216804559271*^9, 3.80021754074074*^9, 3.8003577691713676`*^9, 3.8003658442274942`*^9, 3.8003659965622673`*^9, 3.800366332049775*^9, 3.800392841933228*^9, 3.800396628613605*^9, 3.800446501953154*^9, 3.800448573111413*^9, 3.800448839078287*^9, 3.800479793231202*^9, 3.8004822691578093`*^9, 3.800529449624402*^9, 3.800536818768474*^9, 3.800786892128002*^9, 3.800809854379298*^9, 3.8261622959670362`*^9, 3.826162487019127*^9, 3.8261635934732*^9, 3.826163981458453*^9, 3.829315028775365*^9, 3.8458153937250843`*^9}, CellLabel->"Out[54]=",ExpressionUUID->"d94f068d-1d44-4118-8336-c741d43902e8"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "2", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "2", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input", CellChangeTimes->{ 3.798821631754362*^9, {3.798827711691186*^9, 3.7988277117718687`*^9}}, CellLabel->"In[55]:=",ExpressionUUID->"17bffc9d-c12d-40a8-bb48-f50a62382e47"], Cell[BoxData[ RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"A", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"B", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]], "Output", CellChangeTimes->{ 3.798821631781226*^9, 3.7988216670975933`*^9, 3.798821712005925*^9, 3.798821778429842*^9, 3.79882185704595*^9, 3.7988223722121964`*^9, 3.798822861895319*^9, 3.798824461542245*^9, {3.798824524661417*^9, 3.7988245380398293`*^9}, 3.798825578125217*^9, 3.79882562269273*^9, 3.7988275587350616`*^9, 3.7988276357157803`*^9, {3.7988277122541428`*^9, 3.798827718060911*^9}, 3.7988277832273808`*^9, 3.798829459532077*^9, 3.798829994883603*^9, 3.798830126992185*^9, 3.7988302309890833`*^9, { 3.798835192339046*^9, 3.7988352195952044`*^9}, 3.798835271047089*^9, 3.79883540025176*^9, {3.798835525148425*^9, 3.798835550839808*^9}, 3.798835582452029*^9, {3.798835690048319*^9, 3.798835707462702*^9}, 3.798835737766396*^9, {3.798835820715029*^9, 3.79883585160854*^9}, 3.798835984485861*^9, 3.7988363297150793`*^9, 3.798837022593707*^9, 3.798845547485718*^9, 3.798892741168927*^9, 3.798894336434746*^9, 3.798894450167183*^9, 3.7989032312400827`*^9, 3.798917672855583*^9, { 3.79905784198658*^9, 3.799057865378468*^9}, 3.799060642897757*^9, 3.7990690599565153`*^9, 3.799316673621871*^9, 3.799317344348132*^9, { 3.7994922326679163`*^9, 3.799492238299862*^9}, 3.799492287443372*^9, 3.799528763895351*^9, 3.799530180866316*^9, 3.799532474161804*^9, 3.7995332917027893`*^9, 3.799578986013402*^9, 3.7995825817886667`*^9, 3.7996098352548027`*^9, 3.799610264994234*^9, 3.7996635316064672`*^9, 3.7996660401139812`*^9, {3.7996797010284777`*^9, 3.799679707741087*^9}, 3.799699866325194*^9, 3.799703917427843*^9, 3.7997039733649693`*^9, 3.7997040316731663`*^9, 3.799704180160301*^9, 3.79970432092218*^9, 3.7997043559360933`*^9, 3.7997418488563223`*^9, 3.7997430994964437`*^9, 3.799745478942545*^9, 3.799745531003681*^9, 3.799746468604931*^9, 3.799752697924563*^9, 3.7997597299936323`*^9, 3.8001104315411263`*^9, 3.800110585609762*^9, 3.800111022532*^9, 3.800111539452527*^9, 3.8001134723896112`*^9, 3.800129887795631*^9, 3.80013387464003*^9, 3.8001390426789417`*^9, {3.800141228432951*^9, 3.800141233340651*^9}, 3.800213614626549*^9, 3.800214523958804*^9, 3.80021552668743*^9, 3.8002168045776987`*^9, 3.800217540758713*^9, 3.8003577691871233`*^9, 3.800365844244969*^9, 3.800365996580223*^9, 3.800366332056879*^9, 3.8003928426646013`*^9, 3.800396628640683*^9, 3.800446501973925*^9, 3.8004485731356153`*^9, 3.800448839961273*^9, 3.800479793253593*^9, 3.8004822691915293`*^9, 3.80052944964972*^9, 3.800536818807067*^9, 3.800786892134778*^9, 3.800809854401471*^9, 3.8261622959862833`*^9, 3.826162487024651*^9, 3.826163593479351*^9, 3.8261639814729557`*^9, 3.8293150288378143`*^9, 3.84581539375633*^9}, CellLabel->"Out[55]=",ExpressionUUID->"8feed8e9-8e21-4d63-9706-b10621ba121b"] }, Open ]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Tensor Vector", "Section", CellChangeTimes->{{3.79882193098674*^9, 3.798821933612712*^9}},ExpressionUUID->"32e27589-8786-491c-ad00-\ f202b143f20d"], Cell[CellGroupData[{ Cell["A", "Subsection", CellChangeTimes->{ 3.798838004570341*^9},ExpressionUUID->"e2bce7ae-2896-4c00-ae3b-\ 1917809c9597"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{"A", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"-", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", " ", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "jj", "]"}], "[", "aa", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", " ", RowBox[{"{", RowBox[{"jj", ",", " ", "1", ",", " ", "2"}], "}"}]}], "]"}]}], "//", "Simplify"}]}], ",", " ", RowBox[{"{", RowBox[{"ii", ",", " ", "1", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"aa", ",", " ", "1", ",", "4"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.796732973841866*^9, 3.796732980724893*^9}, { 3.7988226474072313`*^9, 3.7988226600946903`*^9}, {3.79882791889653*^9, 3.7988279189957647`*^9}, {3.798827990998825*^9, 3.798827996187726*^9}, { 3.7988351874607153`*^9, 3.798835212843918*^9}, {3.798835291019866*^9, 3.7988353068354607`*^9}, {3.798835367825013*^9, 3.798835368762124*^9}, 3.798835700833259*^9, {3.7995729666782722`*^9, 3.799572967082449*^9}}, CellLabel->"In[56]:=",ExpressionUUID->"094c1bcd-ec92-4f28-8c88-d5cb2c74d9e3"] }, Closed]], Cell[CellGroupData[{ Cell["B", "Subsection", CellChangeTimes->{{3.798838004570341*^9, 3.798838026516355*^9}},ExpressionUUID->"bab3ba58-6958-4586-ad0a-\ 732921eed4ab"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{"B", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"-", " ", "1"}], " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"\[Gamma]5", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}]}], ",", " ", RowBox[{"{", RowBox[{"ii", ",", " ", "1", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"aa", ",", " ", "1", ",", "4"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.79129504686681*^9, 3.791295108648192*^9}, 3.7912951644109173`*^9, {3.7988226670879*^9, 3.798822673287786*^9}, { 3.798827920031505*^9, 3.798827920173764*^9}, {3.7988280447125998`*^9, 3.798828066331534*^9}, {3.7988281647175817`*^9, 3.7988281664589453`*^9}, { 3.798835214886236*^9, 3.798835215693037*^9}, {3.798835265245391*^9, 3.798835297998581*^9}, {3.798835370102118*^9, 3.798835370281003*^9}, { 3.7988355766353283`*^9, 3.798835576816593*^9}, 3.798835701704586*^9}, CellLabel->"In[57]:=",ExpressionUUID->"c943ab9b-9da1-4454-a023-29e40962bd8f"] }, Closed]], Cell[CellGroupData[{ Cell["cphi", "Subsection", CellChangeTimes->{{3.798838004570341*^9, 3.798838032408711*^9}},ExpressionUUID->"547ebe90-de95-4cde-8aae-\ f18f74fcbcc7"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{"\[CurlyPhi]", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"1", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "jj", "]"}], "[", "aa", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "//", "Simplify"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"aa", ",", " ", "1", ",", "4"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.791295548450108*^9, 3.7912956145388327`*^9}, { 3.7918359137854643`*^9, 3.791835914182225*^9}, {3.7918404539721537`*^9, 3.79184045515401*^9}, {3.7988227006606703`*^9, 3.798822706404664*^9}, { 3.798827962947418*^9, 3.798827963088347*^9}, {3.798828302653328*^9, 3.798828305513508*^9}, {3.798835376326395*^9, 3.7988353768698587`*^9}, { 3.798835547555118*^9, 3.7988355477280684`*^9}, 3.798835705076167*^9}, CellLabel->"In[58]:=",ExpressionUUID->"fd893130-e710-4cc3-b0ae-a9cc7b1a9d78"] }, Closed]], Cell[CellGroupData[{ Cell["Bmn", "Subsection", CellChangeTimes->{{3.798838004570341*^9, 3.798838034463125*^9}},ExpressionUUID->"b4dd3fee-2f07-4216-868b-\ be73c50b968d"], Cell[BoxData[ RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"Bmn", "[", "1", "]"}], "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", "=", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{ RowBox[{"CommuteGammastdown", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "//", "Simplify"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.7912956938836107`*^9, 3.7912958823906527`*^9}, 3.79129616914073*^9, {3.7988227099467707`*^9, 3.7988227181352243`*^9}, { 3.798827964300602*^9, 3.7988279644544497`*^9}, {3.798829263118585*^9, 3.798829281874679*^9}, {3.7988293487090893`*^9, 3.798829355085497*^9}, { 3.798829403784471*^9, 3.7988294469332047`*^9}, {3.798829701423358*^9, 3.7988297115558*^9}, {3.798829795271471*^9, 3.7988298371321077`*^9}, 3.798829945512045*^9, {3.798829983193997*^9, 3.798829983964031*^9}, { 3.798830117360229*^9, 3.79883011812691*^9}, {3.798835382097597*^9, 3.798835382234872*^9}, {3.798835661926855*^9, 3.7988356864290133`*^9}, { 3.7988357271729383`*^9, 3.7988357273136673`*^9}, 3.79883576122056*^9, { 3.7988358492836123`*^9, 3.798835849410247*^9}, 3.798838015690754*^9}, CellLabel->"In[59]:=",ExpressionUUID->"06a2e7ca-2553-4a64-9bca-81f93348d7b4"] }, Closed]], Cell[CellGroupData[{ Cell["psi", "Subsection", CellChangeTimes->{ 3.798838004570341*^9, {3.798838037713834*^9, 3.798838038119759*^9}},ExpressionUUID->"90b58628-c744-4d56-90f8-\ 79967c2ccd45"], Cell[BoxData[ RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", " ", RowBox[{ RowBox[{ RowBox[{"I", " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"I", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"A", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", " ", "-", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], ")"}]}], "\[IndentingNewLine]", "-", RowBox[{ FractionBox["I", "4"], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{ RowBox[{"CommuteGammadown", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"Fmn", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], "//", "Simplify"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.798829558208672*^9, 3.798829558362481*^9}, { 3.798829618278619*^9, 3.7988296609550858`*^9}, {3.798829899534315*^9, 3.798829918339781*^9}, {3.79883034983642*^9, 3.79883034987144*^9}, { 3.798835981274891*^9, 3.798835981733818*^9}, 3.798836024147629*^9, { 3.7988361076961603`*^9, 3.7988361389930773`*^9}, {3.7993177018528547`*^9, 3.799317724147599*^9}, {3.799532762195682*^9, 3.799532762365377*^9}, { 3.800140983775937*^9, 3.800140989450642*^9}}, CellLabel->"In[60]:=",ExpressionUUID->"309c8104-bd27-490a-b47d-9182db537d20"] }, Open ]], Cell[CellGroupData[{ Cell["Check Laws Running", "Subsection", CellChangeTimes->{{3.796733676653544*^9, 3.7967336794181023`*^9}},ExpressionUUID->"30569ebb-1f37-451f-9ad2-\ 8a9d346fde31"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "1", "]"}], "[", RowBox[{ RowBox[{"A", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.798822807293371*^9, 3.798822807539197*^9}, { 3.798822855633209*^9, 3.798822855915237*^9}, {3.798824348827942*^9, 3.798824348875119*^9}, {3.798829494078486*^9, 3.798829494224783*^9}}, CellLabel->"In[61]:=",ExpressionUUID->"ece89890-d481-4cf6-afde-af9c1ffee2d5"], Cell[BoxData[ RowBox[{"-", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output", CellChangeTimes->{ 3.796656538019363*^9, 3.796679243964514*^9, 3.796730304369523*^9, 3.7967324695952663`*^9, {3.7967336987268047`*^9, 3.796733708786169*^9}, 3.796733760188148*^9, {3.7967349953911533`*^9, 3.796735021452573*^9}, 3.796736934331765*^9, 3.7967382554125433`*^9, 3.796739037836174*^9, 3.7967516890073643`*^9, 3.796816379784026*^9, 3.7968167912865877`*^9, 3.796817414208199*^9, 3.796820725480654*^9, 3.7968209041396112`*^9, 3.796838351253145*^9, 3.797030204224444*^9, 3.797081547150671*^9, 3.798815331117733*^9, 3.7988228620971518`*^9, 3.798824358158296*^9, 3.7988244620625134`*^9, {3.798824525097528*^9, 3.7988245384632*^9}, 3.7988246797197313`*^9, 3.7988255785934343`*^9, 3.798825624451666*^9, 3.798827558321295*^9, 3.798827635147897*^9, 3.7988277824016943`*^9, 3.7988294597745657`*^9, 3.798829506072783*^9, 3.798829673360073*^9, 3.798829951315968*^9, 3.798829995106043*^9, 3.798830127207715*^9, 3.798830231252705*^9, {3.798835192535822*^9, 3.798835219739818*^9}, 3.798835271256042*^9, 3.798835400573742*^9, {3.798835525491907*^9, 3.7988355510311327`*^9}, 3.7988355827130213`*^9, {3.798835690281845*^9, 3.798835707674096*^9}, 3.798835737938706*^9, {3.798835820878718*^9, 3.798835851762095*^9}, 3.7988359847791767`*^9, 3.7988363298691874`*^9, 3.7988370227742662`*^9, 3.798845547648221*^9, 3.798892741330163*^9, 3.79889433672335*^9, 3.7988944503057737`*^9, 3.7989032313815813`*^9, 3.798917673036529*^9, {3.799057842435782*^9, 3.7990578656279182`*^9}, 3.799060643055049*^9, 3.79906906032691*^9, 3.799316673833188*^9, 3.799317344602447*^9, {3.799492233546927*^9, 3.7994922387196217`*^9}, 3.799492287626832*^9, 3.799528764112781*^9, 3.7995301810089197`*^9, 3.799532474288183*^9, 3.799533291866475*^9, 3.799578986161957*^9, 3.799582581961742*^9, 3.799609835538271*^9, 3.79961026522112*^9, 3.79966353181281*^9, 3.7996660403391857`*^9, {3.799679701390408*^9, 3.79967970785772*^9}, 3.799699866543441*^9, 3.7997039177302637`*^9, 3.799703973605535*^9, 3.799704031848976*^9, 3.799704180347604*^9, 3.7997043210348577`*^9, 3.7997043561788177`*^9, 3.7997418490362062`*^9, 3.799743099641562*^9, 3.799745479074115*^9, 3.799745531125773*^9, 3.799746468942236*^9, 3.79975269809615*^9, 3.7997597301881227`*^9, 3.800110431703662*^9, 3.8001105857963037`*^9, 3.800111022671002*^9, 3.800111539598002*^9, 3.800113472530696*^9, 3.800129887938261*^9, 3.800133874784831*^9, 3.800139042791504*^9, 3.800141233487157*^9, 3.800213614743062*^9, 3.8002145240510902`*^9, 3.800215526977903*^9, 3.800216805567954*^9, 3.800217540853285*^9, 3.800357769415966*^9, 3.800365845264125*^9, 3.800365997502624*^9, 3.800366332150782*^9, 3.800392842897039*^9, 3.8003966287901907`*^9, 3.800446502088402*^9, 3.800448573237707*^9, 3.800448840205175*^9, 3.800479793394794*^9, 3.800482269373205*^9, 3.800529449769965*^9, 3.800536818940097*^9, 3.8007868923067503`*^9, 3.800809854514769*^9, 3.8261622960947247`*^9, 3.826162487122563*^9, 3.826163593586823*^9, 3.826163981665803*^9, 3.829315029025814*^9, 3.8458153939125404`*^9}, CellLabel->"Out[61]=",ExpressionUUID->"824ade10-3018-4e09-8529-51e9c65cb024"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "3", "]"}], "[", RowBox[{ RowBox[{"B", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.798822808968608*^9, 3.798822809486081*^9}, { 3.798822853170518*^9, 3.798822853677848*^9}, {3.79882435279076*^9, 3.798824352867476*^9}, {3.7988294957865257`*^9, 3.798829495883325*^9}}, CellLabel->"In[62]:=",ExpressionUUID->"f5ec2082-59ca-4a43-81ed-73c7b1f93b61"], Cell[BoxData[ RowBox[{"-", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "2", "]"}], "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output", CellChangeTimes->{ 3.796656538026265*^9, 3.7966792440069323`*^9, 3.796730304374921*^9, 3.796732469623826*^9, {3.796733698807015*^9, 3.796733708793426*^9}, 3.7967337601945953`*^9, {3.796734995431232*^9, 3.796735021457917*^9}, 3.796736934339919*^9, 3.796738255418401*^9, 3.796739037861907*^9, 3.796751689015719*^9, 3.796816379789031*^9, 3.796816791314958*^9, 3.796817414262439*^9, 3.796820725521006*^9, 3.796820904166665*^9, 3.796838351290592*^9, 3.7970302042408867`*^9, 3.7970815471567183`*^9, 3.7988153311738977`*^9, 3.798822862105898*^9, 3.798824358228889*^9, 3.798824462098319*^9, {3.798824525134128*^9, 3.798824538470808*^9}, 3.798824679742612*^9, 3.7988255786003447`*^9, 3.798825624486957*^9, 3.7988275583294497`*^9, 3.798827635155271*^9, 3.798827782409112*^9, 3.798829459781988*^9, 3.798829506129825*^9, 3.798829673368123*^9, 3.798829951373082*^9, 3.798829995161573*^9, 3.798830127269903*^9, 3.798830231317271*^9, {3.798835192593645*^9, 3.798835219796821*^9}, 3.7988352712642803`*^9, 3.79883540062291*^9, {3.798835525499077*^9, 3.7988355510391493`*^9}, 3.798835582773075*^9, {3.798835690332296*^9, 3.7988357076821117`*^9}, 3.798835737983893*^9, {3.7988358209313707`*^9, 3.798835851810877*^9}, 3.7988359848340693`*^9, 3.798836329919444*^9, 3.79883702283959*^9, 3.798845547671459*^9, 3.798892741351184*^9, 3.79889433674986*^9, 3.7988944503310633`*^9, 3.7989032314069967`*^9, 3.7989176730774384`*^9, {3.7990578424881897`*^9, 3.799057865667684*^9}, 3.799060643095314*^9, 3.7990690604091*^9, 3.7993166738739347`*^9, 3.799317344645357*^9, {3.799492233601173*^9, 3.799492238738954*^9}, 3.7994922876618977`*^9, 3.7995287641538067`*^9, 3.799530181041984*^9, 3.7995324743139277`*^9, 3.799533291914021*^9, 3.79957898621675*^9, 3.799582581992474*^9, 3.799609835612989*^9, 3.799610265284257*^9, 3.799663531848371*^9, 3.799666040372829*^9, {3.799679701403404*^9, 3.7996797078964376`*^9}, 3.799699866596147*^9, 3.799703917772297*^9, 3.799703973636787*^9, 3.7997040318759727`*^9, 3.7997041803876877`*^9, 3.7997043210676622`*^9, 3.799704356185094*^9, 3.79974184910765*^9, 3.799743099665011*^9, 3.799745479097302*^9, 3.799745531148365*^9, 3.799746469001732*^9, 3.7997526981244497`*^9, 3.799759730240973*^9, 3.80011043172925*^9, 3.800110585825782*^9, 3.800111022694703*^9, 3.800111539627784*^9, 3.8001134725517883`*^9, 3.800129887955147*^9, 3.800133874801477*^9, 3.800139042808957*^9, 3.800141233495623*^9, 3.800213614770308*^9, 3.800214524070436*^9, 3.80021552700198*^9, 3.800216805587163*^9, 3.800217540870657*^9, 3.8003577694323187`*^9, 3.8003658452833443`*^9, 3.8003659975209913`*^9, 3.800366332167575*^9, 3.800392842905611*^9, 3.800396628815278*^9, 3.8004465021103487`*^9, 3.8004485732572536`*^9, 3.8004488402247257`*^9, 3.800479793421735*^9, 3.800482269406138*^9, 3.800529449793215*^9, 3.800536818970502*^9, 3.8007868923344707`*^9, 3.8008098545345163`*^9, 3.826162296113617*^9, 3.8261624871422586`*^9, 3.826163593615922*^9, 3.826163981707365*^9, 3.8293150290726843`*^9, 3.8458153939281616`*^9}, CellLabel->"Out[62]=",ExpressionUUID->"4821cb85-4468-4ce5-af30-ce90ff856ab3"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "1", "]"}], "[", RowBox[{ RowBox[{"\[CurlyPhi]", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.795469612304517*^9, 3.795469621484922*^9}, { 3.79673368779849*^9, 3.796733691074539*^9}, {3.798822814673973*^9, 3.7988228417010736`*^9}, {3.798829500724462*^9, 3.798829500843453*^9}}, CellLabel->"In[63]:=",ExpressionUUID->"eea230e0-035c-4fba-8a19-61567b57efa7"], Cell[BoxData[ RowBox[{"-", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "2", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output", CellChangeTimes->{ 3.7954696219491777`*^9, 3.795470355067308*^9, 3.795529184511985*^9, 3.795700958217017*^9, 3.795701134478684*^9, 3.7957326953952303`*^9, 3.795805431776618*^9, 3.796314764862039*^9, 3.796325795180423*^9, 3.79632764719865*^9, 3.796423044495472*^9, 3.796482466306695*^9, 3.796490313836082*^9, 3.796572476246402*^9, 3.796575007216061*^9, 3.796656358264083*^9, 3.7966565380832977`*^9, 3.796679244072042*^9, 3.796730304454117*^9, 3.796732469675506*^9, {3.7967336988722363`*^9, 3.7967337089041862`*^9}, 3.796733760239587*^9, {3.796734995484908*^9, 3.796735021505492*^9}, 3.796736934410954*^9, 3.7967382554517612`*^9, 3.796739037903138*^9, 3.796751689063416*^9, 3.796816379840436*^9, 3.796816791358*^9, 3.796817414323306*^9, 3.796820725585569*^9, 3.796820904217104*^9, 3.796838351446898*^9, 3.797030204281754*^9, 3.797081547227556*^9, 3.798815331250566*^9, 3.7988228622062893`*^9, 3.798824358296872*^9, 3.798824462146566*^9, {3.79882452518848*^9, 3.798824538556396*^9}, 3.798824679789419*^9, 3.798825578649499*^9, 3.798825624607399*^9, 3.7988275583735733`*^9, 3.798827635233046*^9, 3.7988277825309877`*^9, 3.798829459858653*^9, 3.798829506195264*^9, 3.798829673493657*^9, 3.798829951454509*^9, 3.798829995235701*^9, 3.798830127350844*^9, 3.79883023140388*^9, {3.798835192673402*^9, 3.7988352198789387`*^9}, 3.798835271344693*^9, 3.798835400695244*^9, { 3.798835525592887*^9, 3.798835551099287*^9}, 3.798835582851159*^9, { 3.798835690402562*^9, 3.798835707808671*^9}, 3.798835738046009*^9, { 3.798835821003735*^9, 3.798835851875701*^9}, 3.798835984912753*^9, 3.798836329984941*^9, 3.798837022932602*^9, 3.7988455477086363`*^9, 3.79889274140261*^9, 3.798894336793035*^9, 3.79889445036926*^9, 3.798903231448578*^9, 3.798917673136684*^9, {3.799057842560375*^9, 3.7990578657297783`*^9}, 3.799060643174343*^9, 3.799069060531479*^9, 3.799316673961919*^9, 3.799317344712523*^9, {3.799492233667377*^9, 3.799492238769642*^9}, 3.799492287713819*^9, 3.799528764214821*^9, 3.799530181100686*^9, 3.7995324743561163`*^9, 3.799533291974704*^9, 3.799578986286927*^9, 3.799582582038978*^9, 3.7996098357017097`*^9, 3.7996102653682203`*^9, 3.799663531903925*^9, 3.799666040434024*^9, { 3.799679701472867*^9, 3.7996797079622803`*^9}, 3.799699866676694*^9, 3.7997039178390083`*^9, 3.799703973686825*^9, 3.7997040319166403`*^9, 3.799704180435911*^9, 3.7997043211042767`*^9, 3.7997043562430763`*^9, 3.7997418492002373`*^9, 3.799743099702423*^9, 3.7997454791773357`*^9, 3.799745531214244*^9, 3.799746469077269*^9, 3.799752698170248*^9, 3.799759730311192*^9, 3.800110431772071*^9, 3.800110585869749*^9, 3.800111022735437*^9, 3.800111539670299*^9, 3.800113472586854*^9, 3.800129887987344*^9, 3.800133874832429*^9, 3.800139042842145*^9, 3.800141233529804*^9, 3.800213614781911*^9, 3.800214524078309*^9, 3.800215527009474*^9, 3.800216805595778*^9, 3.800217540877441*^9, 3.8003577694416027`*^9, 3.8003658452908382`*^9, 3.8003659975290737`*^9, 3.800366332173739*^9, 3.800392842926875*^9, 3.8003966288238163`*^9, 3.80044650212302*^9, 3.8004485732653933`*^9, 3.800448840233767*^9, 3.800479793434433*^9, 3.8004822694304533`*^9, 3.800529449805378*^9, 3.800536818984008*^9, 3.80078689234159*^9, 3.800809854543103*^9, 3.82616229612086*^9, 3.8261624871506567`*^9, 3.82616359362187*^9, 3.8261639817196693`*^9, 3.829315029143848*^9, 3.8458153939594045`*^9}, CellLabel->"Out[63]=",ExpressionUUID->"724ee335-c1c2-4163-a601-f2ac75541cad"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "3", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"Bmn", "[", "1", "]"}], "[", RowBox[{"0", ",", "3"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.7954696406230583`*^9, 3.795469658052787*^9}, { 3.796733693326496*^9, 3.796733695180574*^9}, {3.798822817895916*^9, 3.798822839336521*^9}, {3.798829501937303*^9, 3.798829502298118*^9}, { 3.798830067416091*^9, 3.798830083533142*^9}}, CellLabel->"In[64]:=",ExpressionUUID->"b067fe88-d6cd-433f-9b8f-19e2d53ffce4"], Cell[BoxData[ RowBox[{ FractionBox["1", "2"], " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "1", "]"}], "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output", CellChangeTimes->{ 3.795469659850636*^9, 3.795470355102759*^9, 3.795529184555914*^9, 3.7957009582676153`*^9, 3.7957011345370407`*^9, 3.7957326954544888`*^9, 3.795805431866057*^9, 3.7963147649007883`*^9, 3.7963257952297773`*^9, 3.796327647241499*^9, 3.7964230445446863`*^9, 3.796482466345475*^9, 3.7964903138872213`*^9, 3.796572476299819*^9, 3.796575007266765*^9, 3.7966563583040237`*^9, 3.796656538091381*^9, 3.7966792441171837`*^9, 3.796730304460904*^9, 3.79673246969405*^9, {3.7967336989208384`*^9, 3.7967337089117413`*^9}, 3.796733760244985*^9, {3.796734995490777*^9, 3.7967350215111103`*^9}, 3.7967369344168043`*^9, 3.796738255457734*^9, 3.796739037927318*^9, 3.7967516890733232`*^9, 3.7968163798471937`*^9, 3.7968167913906317`*^9, 3.7968174143288403`*^9, 3.796820725626132*^9, 3.796820904239353*^9, 3.796838351486568*^9, 3.79703020429016*^9, 3.7970815472397203`*^9, 3.798815331306608*^9, 3.7988228622172747`*^9, 3.79882435835012*^9, 3.798824462174988*^9, {3.7988245252262993`*^9, 3.798824538566937*^9}, 3.798824679811521*^9, 3.7988255786581984`*^9, 3.798825624615638*^9, 3.79882755838072*^9, 3.798827635240245*^9, 3.798827782538835*^9, 3.798829459865377*^9, 3.7988295062475977`*^9, 3.7988296735025377`*^9, 3.798829951516281*^9, 3.798829995290206*^9, { 3.7988300679282846`*^9, 3.7988300837839327`*^9}, 3.79883012741745*^9, 3.798830231469364*^9, {3.798835192731077*^9, 3.798835219939733*^9}, 3.7988352713521967`*^9, 3.798835400742929*^9, {3.79883552560032*^9, 3.798835551108049*^9}, 3.7988355829137297`*^9, {3.798835690454644*^9, 3.798835707816763*^9}, 3.7988357380925293`*^9, {3.798835821059849*^9, 3.7988358519230413`*^9}, 3.7988359849675503`*^9, 3.798836330033511*^9, 3.7988370229989347`*^9, 3.798845547732554*^9, 3.798892741435739*^9, 3.798894336822229*^9, 3.798894450413763*^9, 3.798903231474534*^9, 3.7989176731769247`*^9, {3.7990578426024933`*^9, 3.7990578657677603`*^9}, 3.7990606432155523`*^9, 3.79906906061415*^9, 3.799316674009028*^9, 3.79931734476766*^9, {3.79949223371729*^9, 3.799492238775733*^9}, 3.799492287747837*^9, 3.799528764254987*^9, 3.79953018113376*^9, 3.799532474383665*^9, 3.799533292023744*^9, 3.7995789863355227`*^9, 3.799582582069995*^9, 3.799609835768797*^9, 3.799610265437451*^9, 3.799663531934188*^9, 3.799666040484058*^9, {3.7996797014804697`*^9, 3.799679707970475*^9}, 3.799699866734008*^9, 3.799703917875719*^9, 3.79970397372134*^9, 3.799704031943191*^9, 3.79970418044162*^9, 3.799704321126754*^9, 3.7997043562830772`*^9, 3.799741849269474*^9, 3.7997430997272778`*^9, 3.799745479183033*^9, 3.799745531220129*^9, 3.799746469135283*^9, 3.799752698197584*^9, 3.799759730365066*^9, 3.800110431802322*^9, 3.800110585875595*^9, 3.800111022758464*^9, 3.800111539693241*^9, 3.800113472593466*^9, 3.800129888006749*^9, 3.800133874838747*^9, 3.800139042849297*^9, 3.800141233538681*^9, 3.800213614808587*^9, 3.800214524096251*^9, 3.8002155270343323`*^9, 3.80021680561517*^9, 3.8002175408956747`*^9, 3.800357769458735*^9, 3.8003658452969017`*^9, 3.80036599754672*^9, 3.800366332190619*^9, 3.8003928429335117`*^9, 3.8003966288515177`*^9, 3.800446502161046*^9, 3.800448573288864*^9, 3.800448840895248*^9, 3.8004797934603167`*^9, 3.800482269470467*^9, 3.8005294498316593`*^9, 3.8005368190145884`*^9, 3.800786892369769*^9, 3.80080985456824*^9, 3.826162296144535*^9, 3.8261624871719093`*^9, 3.826163593651586*^9, 3.826163981753696*^9, 3.82931502915044*^9, 3.8458153939906473`*^9}, CellLabel->"Out[64]=",ExpressionUUID->"b70edf6d-4a0f-4af5-9bca-756679597982"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "2", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.798822820887759*^9, 3.798822837643401*^9}, { 3.798829503549343*^9, 3.798829503646544*^9}}, CellLabel->"In[65]:=",ExpressionUUID->"0c5184ed-0e73-41ed-9d0f-b00f4351a132"], Cell[BoxData[ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"A", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"B", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]], "Output",\ CellChangeTimes->{ 3.79665653811679*^9, 3.7966792441264553`*^9, 3.796730304496245*^9, 3.796732469702635*^9, {3.796733698928014*^9, 3.796733708963113*^9}, 3.7967337602822123`*^9, {3.796734995533164*^9, 3.796735021554047*^9}, 3.796736934446443*^9, 3.796738255464902*^9, 3.796739037933033*^9, 3.7967516891000137`*^9, 3.79681637987075*^9, 3.79681679139703*^9, 3.7968174143357153`*^9, 3.796820725635034*^9, 3.7968209042472277`*^9, 3.7968383514969053`*^9, 3.79703020430505*^9, 3.797081547266287*^9, 3.7988153313189783`*^9, 3.79882286226567*^9, 3.7988243583601627`*^9, 3.798824462185195*^9, {3.798824525233912*^9, 3.798824538603813*^9}, 3.7988246798204203`*^9, 3.7988255786652718`*^9, 3.798825624650189*^9, 3.798827558415288*^9, 3.798827635301289*^9, 3.798827782597097*^9, 3.798829459899725*^9, 3.798829506258198*^9, 3.7988296735588627`*^9, 3.798829951527389*^9, 3.798829995299342*^9, 3.798830127427289*^9, 3.798830231478464*^9, {3.798835192740428*^9, 3.798835219952242*^9}, 3.798835271388506*^9, 3.7988354007517223`*^9, {3.7988355256554127`*^9, 3.798835551162327*^9}, 3.798835582992712*^9, {3.798835690462916*^9, 3.79883570787621*^9}, 3.798835738100934*^9, {3.798835821069557*^9, 3.7988358519322567`*^9}, 3.798835984976619*^9, 3.798836330044585*^9, 3.798837023009143*^9, 3.798845547738531*^9, 3.7988927414511766`*^9, 3.798894336829921*^9, 3.798894450419896*^9, 3.798903231481617*^9, 3.798917673186791*^9, {3.7990578426132317`*^9, 3.799057865777225*^9}, 3.799060643224998*^9, 3.799069060717084*^9, 3.7993166740780888`*^9, 3.79931734478229*^9, {3.799492233729447*^9, 3.799492238794553*^9}, 3.7994922877540092`*^9, 3.7995287642644577`*^9, 3.799530181142708*^9, 3.799532474427022*^9, 3.799533292030155*^9, 3.799578986349826*^9, 3.799582582077433*^9, 3.799609835781427*^9, 3.7996102654511747`*^9, 3.799663531941043*^9, 3.79966604049745*^9, {3.7996797015048037`*^9, 3.799679707996275*^9}, 3.799699866746511*^9, 3.799703917884838*^9, 3.799703973728284*^9, 3.7997040319498587`*^9, 3.799704180448207*^9, 3.799704321134016*^9, 3.799704356289735*^9, 3.799741849280035*^9, 3.799743099734359*^9, 3.799745479188774*^9, 3.799745531244701*^9, 3.799746469144038*^9, 3.799752698206109*^9, 3.799759730378392*^9, 3.800110431808337*^9, 3.800110585906852*^9, 3.800111022766945*^9, 3.800111539701318*^9, 3.8001134726157207`*^9, 3.800129888017128*^9, 3.8001338748581142`*^9, 3.800139042867587*^9, 3.800141233572945*^9, 3.800213614817009*^9, 3.800214524107501*^9, 3.800215527636546*^9, 3.800216805623909*^9, 3.800217540905497*^9, 3.800357769465542*^9, 3.8003658453171062`*^9, 3.800365997553021*^9, 3.800366332197959*^9, 3.8003928429563923`*^9, 3.8003966288615007`*^9, 3.800446502170875*^9, 3.800448573297372*^9, 3.800448840905538*^9, 3.8004797934731827`*^9, 3.8004822694856033`*^9, 3.8005294498418093`*^9, 3.800536819025866*^9, 3.8007868923767357`*^9, 3.800809854576144*^9, 3.8261622961515007`*^9, 3.8261624871776323`*^9, 3.826163593658844*^9, 3.826163981764859*^9, 3.829315029212968*^9, 3.8458153940062685`*^9}, CellLabel->"Out[65]=",ExpressionUUID->"e60b748f-e52a-458d-b1fb-cf84d2f527f1"] }, Open ]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["\[CapitalLambda]", "Section", CellChangeTimes->{{3.79883957053372*^9, 3.7988395805125437`*^9}},ExpressionUUID->"f35c9592-93b4-42d2-8c75-\ 5b1a5218a5a1"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalLambda]TilTil", "[", RowBox[{"mu", ",", "aa", ",", "bb", ",", "ii", ",", "jj"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"2", "I", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{ RowBox[{"\[Gamma]down", "[", "al", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{ RowBox[{"Bmn", "[", "1", "]"}], "[", RowBox[{"al", ",", "mu"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"al", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", " ", RowBox[{"I", " ", RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"\[Gamma]stdowndown", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"A", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "\[IndentingNewLine]", "-", RowBox[{"I", " ", RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"\[Gamma]stdowndown", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"\[CurlyPhi]", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{"I", " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]stdowndown", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"B", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.798839583628993*^9, 3.7988396306264763`*^9}, { 3.798839674397427*^9, 3.79883988200106*^9}, {3.7988400632219276`*^9, 3.79884006565695*^9}, {3.799060633950932*^9, 3.799060635421505*^9}, { 3.799061093861916*^9, 3.799061099004196*^9}, {3.799610574977408*^9, 3.799610580173335*^9}, {3.799610791546974*^9, 3.799610808510435*^9}, { 3.7996109323947783`*^9, 3.799610932724989*^9}}, CellLabel->"In[66]:=",ExpressionUUID->"f34dbc8c-d5ef-4401-b74c-45d550d7e862"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalLambda]Til", "[", RowBox[{"mu", ",", "aa", ",", "bb", ",", "ii", ",", "jj"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "/", "2"}], ")"}], RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"CommuteGammastdownstupdown", "[", RowBox[{"mu", ",", "al"}], "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{ RowBox[{"Avec", "[", "0", "]"}], "[", "al", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"al", ",", "0", ",", "3"}], "}"}]}], "]"}]}], " ", "-", RowBox[{"I", " ", RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{ RowBox[{"\[Gamma]stdowndown", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"A", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{ RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]stdowndown", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"B", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.79906110185292*^9, 3.79906128208256*^9}, { 3.799069995835423*^9, 3.7990699962088537`*^9}, 3.7990700615521*^9}, CellLabel->"In[67]:=",ExpressionUUID->"220edda9-b91e-4b69-8e04-0ca85f5bc656"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"\[Lambda]Til", "[", RowBox[{"aa", ",", "bb", ",", "ii", ",", "jj"}], "]"}], "=", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"CommuteGammadown", "[", RowBox[{"al", ",", "be"}], "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{ RowBox[{"Bmn", "[", "1", "]"}], "[", RowBox[{"al", ",", "be"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"al", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"be", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "+", " ", RowBox[{"2", "I", " ", RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"Cmetric", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"A", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", " ", RowBox[{"2", "I", " ", RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"Cmetric", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"\[CurlyPhi]", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.799060857383657*^9, 3.799060966767696*^9}, { 3.7990610009367456`*^9, 3.799061082270071*^9}, {3.79906129944751*^9, 3.799061311012574*^9}, {3.799063389240369*^9, 3.799063397779376*^9}, { 3.799063460311185*^9, 3.799063481272653*^9}, {3.799317062179058*^9, 3.79931706250661*^9}, {3.7993173141266937`*^9, 3.799317322649563*^9}, { 3.7995329481905193`*^9, 3.799532976369281*^9}}, CellLabel->"In[68]:=",ExpressionUUID->"eb914634-8544-4eb8-8d5c-5806c2f3dd79"] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Algebra Checks", "Chapter", CellChangeTimes->{{3.798821898484429*^9, 3.79882190196446*^9}},ExpressionUUID->"bb7d37b1-1c19-4037-aaa6-\ 8562d9dbdc35"], Cell[CellGroupData[{ Cell["Z, for {D,D} on untilded Psi ", "Section", CellChangeTimes->{ 3.829312850393202*^9, {3.831227732807993*^9, 3.8312277544938335`*^9}},ExpressionUUID->"21ab06a0-535e-4bed-ad4f-\ 777478c7e8f5"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Z", "[", RowBox[{"ii_", ",", "jj_", ",", "kk_", ",", "ll_"}], "]"}], "[", RowBox[{"aa_", ",", "bb_", ",", "cc_", ",", "dd_"}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], RowBox[{"I", "/", "4"}]}], ")"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{"KroneckerDelta", "[", RowBox[{"kk", ",", "ll"}], "]"}], RowBox[{ RowBox[{"\[Gamma]down", "[", "al", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], " ", RowBox[{ RowBox[{"(", RowBox[{"\[Gamma]stdown", "[", "al", "]"}], ")"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"al", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "I"}], "/", "32"}], ")"}], " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{"KroneckerDelta", "[", RowBox[{"kk", ",", "ll"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"CommuteGammadown", "[", RowBox[{"al", ",", "nu"}], "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"(", RowBox[{"CommuteGammastdown", "[", RowBox[{"al", ",", "nu"}], "]"}], ")"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"al", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "I"}], "/", "4"}], ")"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}], RowBox[{ RowBox[{"\[Gamma]down", "[", "al", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"\[Gamma]stdown", "[", "al", "]"}], ")"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], ")"}]}], ",", RowBox[{"{", RowBox[{"al", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"I", "/", "32"}], ")"}], " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"CommuteGammadown", "[", RowBox[{"al", ",", "nu"}], "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"(", RowBox[{"CommuteGammastdown", "[", RowBox[{"al", ",", "nu"}], "]"}], ")"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"al", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"I", "/", "32"}], ")"}], " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"CommuteGammadown", "[", RowBox[{"al", ",", "nu"}], "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"(", RowBox[{"CommuteGammastdown", "[", RowBox[{"al", ",", "nu"}], "]"}], ")"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"al", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "I"}], "/", "4"}], ")"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}], RowBox[{ RowBox[{"\[Gamma]down", "[", "al", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"\[Gamma]stdown", "[", "al", "]"}], ")"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], ")"}]}], ",", RowBox[{"{", RowBox[{"al", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "I"}], "/", "4"}], ")"}], " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "al", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"\[Gamma]5\[Gamma]stdown", "[", "al", "]"}], ")"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], ")"}]}], ",", RowBox[{"{", RowBox[{"al", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], RowBox[{"I", "/", "4"}]}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}], RowBox[{"Cmetric", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"(", RowBox[{"KroneckerDelta", "[", RowBox[{"cc", ",", "dd"}], "]"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], RowBox[{"I", "/", "4"}]}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}], RowBox[{"\[Gamma]5down", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"(", RowBox[{"\[Gamma]5", "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], ")"}]}]}]}]], "Input", CellChangeTimes->{{3.829312853392051*^9, 3.8293128572006025`*^9}, { 3.829315036079959*^9, 3.8293151078554316`*^9}, {3.8293151402312574`*^9, 3.8293153126266236`*^9}, {3.829315345048482*^9, 3.8293154004114747`*^9}, { 3.829315432002395*^9, 3.8293154435276756`*^9}, {3.8293155546245065`*^9, 3.829315573999704*^9}}, CellLabel->"In[69]:=",ExpressionUUID->"23ea563b-67c0-4ad9-8948-9f927ab09617"] }, Open ]], Cell[CellGroupData[{ Cell["Vector 00: {D,D}", "Section", CellChangeTimes->{{3.798821906448997*^9, 3.7988219084342203`*^9}, { 3.798837384268985*^9, 3.79883738462739*^9}, {3.798838865009379*^9, 3.7988388654529257`*^9}, {3.8312275870013266`*^9, 3.8312275930563054`*^9}},ExpressionUUID->"e4deb937-062f-44bf-bed7-\ 7b2ed5a44612"], Cell[CellGroupData[{ Cell["A", "Subsection", CellChangeTimes->{{3.798836364100836*^9, 3.798836366153274*^9}, 3.8004488814675417`*^9},ExpressionUUID->"61b5ca81-a8e6-4997-a5a7-\ 35940922917c"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"AlgebraTil0", "[", RowBox[{ RowBox[{"A", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", "\[Equal]", " ", RowBox[{"UsualAlgebra", "[", RowBox[{ RowBox[{"A", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.7988219371504097`*^9, 3.798821958769195*^9}}, CellLabel->"In[70]:=",ExpressionUUID->"c899cd5b-d9dc-4c61-b774-05bcad0918de"], Cell[BoxData["True"], "Output", CellChangeTimes->{ 3.798821959071147*^9, {3.7988220045400677`*^9, 3.798822031154871*^9}, 3.7988223722206087`*^9, 3.798822862274929*^9, 3.798824462268401*^9, { 3.798824525304481*^9, 3.798824538675447*^9}, 3.798824679864254*^9, 3.7988255787366447`*^9, 3.798825624661592*^9, 3.798827558768857*^9, 3.7988276357358027`*^9, 3.798827783297847*^9, 3.798829459907837*^9, 3.7988299953536158`*^9, 3.798830127486352*^9, 3.798830231545279*^9, { 3.7988351928107567`*^9, 3.798835220030552*^9}, 3.798835271434072*^9, 3.798835400853259*^9, {3.7988355256715393`*^9, 3.798835551221949*^9}, 3.798835583068469*^9, {3.79883569052873*^9, 3.798835707945015*^9}, 3.79883573815657*^9, {3.798835821139983*^9, 3.798835851990551*^9}, 3.798835985045431*^9, 3.798836330099622*^9, 3.798837023078176*^9, 3.798838064478216*^9, 3.798845547767886*^9, 3.79889274148812*^9, 3.798894336931774*^9, 3.798894458401916*^9, 3.798917673232107*^9, { 3.799057842752091*^9, 3.799057865843247*^9}, 3.799060643275009*^9, 3.799069060858323*^9, 3.7993166816817493`*^9, 3.799317348621345*^9, 3.799492248272472*^9, 3.799492291389077*^9, 3.799528770219702*^9, 3.799530181199275*^9, 3.7995332921575537`*^9, 3.7995789865043163`*^9, 3.799610265556643*^9, 3.799699866880784*^9, 3.799741849410739*^9, 3.7997464832803383`*^9, 3.799752698279211*^9, 3.799759730705331*^9, 3.80011058597256*^9, 3.8001412441824408`*^9, 3.800480941558646*^9, 3.800482278051145*^9, 3.8005368191049557`*^9, 3.8008098546629143`*^9, 3.826162296236041*^9, 3.826163483359399*^9, 3.8293155857480087`*^9, 3.845815394084375*^9}, CellLabel->"Out[70]=",ExpressionUUID->"c879ddbe-4656-4537-87e9-8c03faa50bbd"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["B", "Subsection", CellChangeTimes->{{3.798836364100836*^9, 3.798836366153274*^9}, { 3.798836416200686*^9, 3.798836416547799*^9}, 3.800448878038884*^9},ExpressionUUID->"f903c2c1-2b38-40cc-8574-\ 2064dc3fff33"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"AlgebraTil0", "[", RowBox[{ RowBox[{"B", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", "\[Equal]", " ", RowBox[{"UsualAlgebra", "[", RowBox[{ RowBox[{"B", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.79882201895536*^9, 3.7988220207929773`*^9}}, CellLabel->"In[71]:=",ExpressionUUID->"c634b10b-b155-4bea-bdbf-82a9244e1aba"], Cell[BoxData["True"], "Output", CellChangeTimes->{ 3.798822031197668*^9, 3.7988223722465982`*^9, 3.7988228623267727`*^9, 3.798824462336198*^9, {3.798824525375012*^9, 3.798824538746825*^9}, 3.798824679902603*^9, 3.798825578805271*^9, 3.7988256246905937`*^9, 3.79882755877975*^9, 3.798827635741455*^9, 3.7988277833042727`*^9, 3.798829459942334*^9, 3.7988299953602667`*^9, 3.798830127493738*^9, 3.798830231552723*^9, {3.7988351928864117`*^9, 3.798835220099522*^9}, 3.798835271471573*^9, 3.7988354008640747`*^9, {3.7988355257175083`*^9, 3.7988355512671223`*^9}, 3.7988355831286716`*^9, {3.7988356905360193`*^9, 3.798835708005151*^9}, 3.798835738163431*^9, {3.798835821148913*^9, 3.79883585199824*^9}, 3.798835985052165*^9, 3.798836330148032*^9, 3.7988370230880413`*^9, 3.798838064540866*^9, 3.798845547790119*^9, 3.798892741517009*^9, 3.798894337033382*^9, 3.79889445845506*^9, 3.798917673274075*^9, {3.799057842918764*^9, 3.799057865885029*^9}, 3.799060643321213*^9, 3.7990690609235773`*^9, 3.799316681762506*^9, 3.799317348700433*^9, 3.799492248789657*^9, 3.799492291445805*^9, 3.799528770293209*^9, 3.799530181233645*^9, 3.799533292204341*^9, 3.799578986557803*^9, 3.799610265620137*^9, 3.799699866953511*^9, 3.799741849485895*^9, 3.7997464833425417`*^9, 3.799752698306142*^9, 3.799759730762732*^9, 3.800110586002348*^9, 3.800141244234272*^9, 3.800480941635747*^9, 3.80048227816416*^9, 3.8005368191423063`*^9, 3.8008098546865377`*^9, 3.826162296256145*^9, 3.826163483411776*^9, 3.829315585872979*^9, 3.8458153941156178`*^9}, CellLabel->"Out[71]=",ExpressionUUID->"abd51283-4a6a-4116-8764-cc2511e6f1e5"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Psi", "Subsection", CellChangeTimes->{{3.798836364100836*^9, 3.798836366153274*^9}, { 3.798836403106538*^9, 3.798836405346539*^9}},ExpressionUUID->"cc5b73b2-78e4-49e3-9545-\ d9f266056335"], Cell[BoxData[ RowBox[{ RowBox[{"psiVMAlg00", "=", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"2", "I"}], ")"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{ RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "kk", "]"}], "[", "cc", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], RowBox[{"I", "/", "4"}]}], ")"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{ RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"(", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Gamma]stdown", "[", "mu", "]"}], ".", RowBox[{"\[Gamma]", "[", "la", "]"}]}], ")"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "kk", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "I"}], "/", "32"}], ")"}], " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{"KroneckerDelta", "[", RowBox[{"kk", ",", "gg"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"CommuteGammadown", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"CommuteGammastdown", "[", RowBox[{"mu", ",", "nu"}], "]"}], ".", RowBox[{"\[Gamma]", "[", "la", "]"}]}], ")"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}]}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "gg", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"gg", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "I"}], "/", "4"}], ")"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "gg"}], "]"}], "]"}], RowBox[{ RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Gamma]stdown", "[", "mu", "]"}], ".", RowBox[{"\[Gamma]", "[", "la", "]"}]}], ")"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "gg", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"gg", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{"I", "/", "32"}], ")"}], " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "gg"}], "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"CommuteGammadown", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"CommuteGammastdown", "[", RowBox[{"mu", ",", "nu"}], "]"}], ".", RowBox[{"\[Gamma]", "[", "la", "]"}]}], ")"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}]}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "gg", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"gg", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{"I", "/", "32"}], ")"}], " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "gg"}], "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"CommuteGammadown", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"CommuteGammastdown", "[", RowBox[{"mu", ",", "nu"}], "]"}], ".", RowBox[{"\[Gamma]", "[", "la", "]"}]}], ")"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}]}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "gg", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"gg", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "I"}], "/", "4"}], ")"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "gg"}], "]"}], "]"}], RowBox[{ RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Gamma]stdown", "[", "mu", "]"}], ".", RowBox[{"\[Gamma]", "[", "la", "]"}]}], ")"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "gg", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"gg", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "I"}], "/", "4"}], ")"}], " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "gg"}], "]"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Gamma]5\[Gamma]stdown", "[", "mu", "]"}], ".", RowBox[{"\[Gamma]", "[", "la", "]"}]}], ")"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "gg", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"gg", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], RowBox[{"I", "/", "4"}]}], ")"}], " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "gg"}], "]"}], "]"}], RowBox[{"Cmetric", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"\[Gamma]", "[", "la", "]"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "gg", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"gg", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], RowBox[{"I", "/", "4"}]}], ")"}], " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "gg"}], "]"}], "]"}], RowBox[{"\[Gamma]5down", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"\[Gamma]5\[Gamma]", "[", "la", "]"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "gg", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"gg", ",", "1", ",", "2"}], "}"}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"cc", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"kk", ",", "1", ",", "2"}], "}"}]}], "]"}], "//", "Simplify"}]}], ";"}]], "Input", CellChangeTimes->{{3.798822176498242*^9, 3.798822210488779*^9}, { 3.800446710692615*^9, 3.800446725093809*^9}, {3.800446837814187*^9, 3.8004468828344383`*^9}, {3.800446947766377*^9, 3.8004469608686457`*^9}, { 3.800447042624888*^9, 3.800447145130622*^9}, {3.8004809530179873`*^9, 3.800481051049491*^9}, {3.8293160843120103`*^9, 3.8293160852663927`*^9}}, CellLabel->"In[72]:=",ExpressionUUID->"4718bd59-a2cb-4e0b-9d86-02adef4d8e70"], Cell[BoxData[ RowBox[{ RowBox[{"psiVMAlg00Paper", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"2", "I"}], ")"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{ RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "kk", "]"}], "[", "cc", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], " ", "+", RowBox[{"Sum", "[", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Z", "[", RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], "[", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "]"}], RowBox[{ RowBox[{"\[Gamma]", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"dd", ",", "ee"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "ll", "]"}], "[", "ee", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"ee", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"cc", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"kk", ",", "1", ",", "2"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.8293156017743983`*^9, 3.8293157904962606`*^9}, { 3.8293159467076874`*^9, 3.8293159585175266`*^9}}, CellLabel->"In[73]:=",ExpressionUUID->"810b3946-a0fd-4fbb-a7e2-6590a640b720"], Cell[BoxData[ RowBox[{ RowBox[{"psiVMAlg00Math", " ", "=", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "kk", "]"}], "[", "cc", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}], " ", "+", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "kk", "]"}], "[", "cc", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"cc", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"kk", ",", "1", ",", "2"}], "}"}]}], "]"}], "//", "Simplify"}]}], ";"}]], "Input", CellChangeTimes->{{3.800481022185748*^9, 3.800481040262321*^9}, { 3.829316090457815*^9, 3.8293160922265515`*^9}}, CellLabel->"In[74]:=",ExpressionUUID->"592a0573-e61f-4d8c-a4ff-c4dde3bcb61b"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"psiVMAlg00", "==", "psiVMAlg00Math"}], "//", "Simplify"}]], "Input",\ CellChangeTimes->{{3.800481060149829*^9, 3.800481064587253*^9}}, CellLabel->"In[75]:=",ExpressionUUID->"be33471f-0e09-4d1d-8cb8-18963e2b2116"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.800481091526308*^9, 3.8004822881171293`*^9, 3.800536833144931*^9, 3.80080986599967*^9, 3.8261623067822323`*^9, 3.826163493685404*^9, 3.826163615343515*^9, 3.8293155963647394`*^9, 3.8293161106773157`*^9, 3.845815420484509*^9}, CellLabel->"Out[75]=",ExpressionUUID->"93325827-03c6-4de6-8cb8-723bef16613e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"(", "psiVMAlg00Paper", ")"}], "==", "psiVMAlg00Math"}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.829315833100608*^9, 3.829315833492707*^9}, { 3.829315877944971*^9, 3.8293158791344028`*^9}, 3.829315917891101*^9, { 3.8293159625765038`*^9, 3.829315967628762*^9}, {3.829316124457026*^9, 3.8293161448088923`*^9}}, CellLabel->"In[76]:=",ExpressionUUID->"b813b29f-6227-46c3-b780-83f924fbcd70"], Cell[BoxData["True"], "Output", CellChangeTimes->{ 3.829315835353913*^9, {3.8293159105559397`*^9, 3.8293159398196774`*^9}, 3.829315978357505*^9, {3.8293161278519487`*^9, 3.8293161527042723`*^9}, 3.8458154206407547`*^9}, CellLabel->"Out[76]=",ExpressionUUID->"7b262a0a-02e5-4cb6-9097-1a4dd3039036"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Field Strength\t", "Subsection", CellChangeTimes->{{3.798836364100836*^9, 3.798836366153274*^9}, { 3.798836398880361*^9, 3.7988364015255404`*^9}},ExpressionUUID->"01ac1b05-3626-4c05-8c7a-\ f48ff96564d7"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"AlgebraTil0", "[", RowBox[{ RowBox[{"Fmn", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "\[Equal]", " ", RowBox[{"UsualAlgebra", "[", RowBox[{ RowBox[{"Fmn", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}]], "Input", CellChangeTimes->{{3.798822525085191*^9, 3.7988225759065247`*^9}}, CellLabel->"In[77]:=",ExpressionUUID->"6b3a69f0-5eb2-4efd-aa83-b97208458dda"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"True", "True", "True", "True"}, {"True", "True", "True", "True"}, {"True", "True", "True", "True"}, {"True", "True", "True", "True"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{{3.798822570645321*^9, 3.7988225764639683`*^9}, 3.798822862772093*^9, 3.798824464599967*^9, {3.798824527670569*^9, 3.798824540875493*^9}, 3.7988246805948*^9, 3.798825580971654*^9, 3.798825625345571*^9, 3.798827559892371*^9, 3.798827636416336*^9, 3.798827783742447*^9, 3.7988294602910013`*^9, 3.7988299957220716`*^9, 3.798830127911619*^9, 3.79883023195098*^9, {3.7988351933185472`*^9, 3.798835220626536*^9}, 3.798835271826158*^9, 3.798835401311454*^9, { 3.7988355261189203`*^9, 3.798835551673571*^9}, 3.798835583576023*^9, { 3.7988356909407377`*^9, 3.798835708504294*^9}, 3.7988357385866327`*^9, { 3.79883582158679*^9, 3.798835852368143*^9}, 3.798835985555874*^9, 3.798836330530892*^9, 3.798837023681897*^9, 3.7988380649371967`*^9, 3.7988455482811823`*^9, 3.7988927420601997`*^9, 3.798894339441574*^9, 3.798894458988813*^9, 3.798917673858842*^9, {3.799057846366344*^9, 3.799057866493347*^9}, 3.7990606437784967`*^9, 3.799069061619378*^9, 3.7993166823687057`*^9, 3.799317349165428*^9, {3.799492264499609*^9, 3.799492291950231*^9}, 3.799528770851883*^9, 3.799530181616045*^9, { 3.799532534972406*^9, 3.799532542175193*^9}, 3.799533292609981*^9, 3.799578987084173*^9, 3.799610266291053*^9, 3.7996998676253777`*^9, 3.799741850286077*^9, 3.7997464839001827`*^9, 3.7997526988190327`*^9, 3.799759731355459*^9, 3.8001105865882*^9, 3.800141245022807*^9, 3.800480951988558*^9, 3.8004822884169397`*^9, 3.800536834533525*^9, 3.80080986641401*^9, 3.826162307073057*^9, 3.826163494065583*^9, 3.8293155966459684`*^9, 3.845815421035865*^9}, CellLabel-> "Out[77]//MatrixForm=",ExpressionUUID->"06a69e0b-ce2d-4e1e-b7f2-\ c9513bb96076"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Vector", "Subsection", CellChangeTimes->{{3.79882231017908*^9, 3.798822311983996*^9}},ExpressionUUID->"8d9476b7-0761-4707-9cba-\ 2b322521d92f"], Cell[BoxData[ RowBox[{ RowBox[{"VecAlg00", " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"Table", "[", " ", RowBox[{ RowBox[{ RowBox[{"2", "I", " ", RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]down", "[", "nu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"Fmn", "[", RowBox[{"nu", ",", "mu"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "+", RowBox[{"2", " ", "I", " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"I", " ", RowBox[{"Cmetric", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"A", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], "-", RowBox[{ RowBox[{"\[Gamma]5down", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}]}], ")"}]}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}]}], ";"}]], "Input", CellChangeTimes->{{3.7988223165066967`*^9, 3.7988224438328114`*^9}, { 3.798822483317832*^9, 3.798822489385057*^9}, {3.798836590095545*^9, 3.798836615387534*^9}, 3.798837705956366*^9}, CellLabel->"In[78]:=",ExpressionUUID->"157c2657-5b66-4c74-a06b-5e328558910b"], Cell[BoxData[ RowBox[{ RowBox[{"VecAlg00Math", " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"Avec", "[", "0", "]"}], "[", "mu", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}], "+", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"Avec", "[", "0", "]"}], "[", "mu", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}]}], ";"}]], "Input", CellChangeTimes->{{3.798836568683968*^9, 3.7988365740582867`*^9}, { 3.798836618062851*^9, 3.798836625267126*^9}, {3.7988376408461*^9, 3.798837680672117*^9}}, CellLabel->"In[79]:=",ExpressionUUID->"4ec92f47-b6ba-40ba-847f-8c0cd9d3b432"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"VecAlg00", "\[Equal]", " ", "VecAlg00Math"}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.798836630235816*^9, 3.7988366443455772`*^9}}, CellLabel->"In[80]:=",ExpressionUUID->"37f289aa-352f-4e21-a2f1-2ad5d38ad0f2"], Cell[BoxData["True"], "Output", CellChangeTimes->{{3.798822436304056*^9, 3.79882244482066*^9}, { 3.7988224756360903`*^9, 3.798822489827742*^9}, 3.798822862832906*^9, 3.7988244650248537`*^9, {3.798824528075059*^9, 3.798824541275071*^9}, 3.7988246806699038`*^9, 3.798825581370029*^9, 3.798825625409926*^9, 3.7988275600298977`*^9, 3.798827636455614*^9, 3.79882778381273*^9, 3.798829460331995*^9, 3.798829995802002*^9, 3.7988301279982853`*^9, 3.7988302320062113`*^9, {3.7988351934025717`*^9, 3.798835220716095*^9}, 3.7988352718951893`*^9, 3.798835401399577*^9, {3.7988355262030354`*^9, 3.7988355517592163`*^9}, 3.798835583667191*^9, {3.7988356910204477`*^9, 3.7988357085952597`*^9}, 3.79883573867171*^9, {3.798835821662286*^9, 3.79883585244626*^9}, 3.798835985645542*^9, 3.798836330599094*^9, { 3.798836644746606*^9, 3.798836648633956*^9}, 3.798837023905397*^9, 3.79883770182012*^9, 3.7988380650030413`*^9, 3.7988455483539543`*^9, 3.7988927421499968`*^9, 3.798894339837303*^9, 3.798894459157213*^9, 3.798917673975814*^9, {3.799057847043591*^9, 3.799057866702198*^9}, 3.799060643868533*^9, 3.799063989707363*^9, 3.7990690617260027`*^9, 3.799316682490007*^9, 3.79931734922383*^9, {3.799492267981469*^9, 3.799492292065815*^9}, 3.799528770958963*^9, 3.79953018166971*^9, 3.7995325554546947`*^9, 3.79953329268817*^9, 3.79957898716626*^9, 3.79961026649156*^9, 3.799699867716886*^9, 3.79974185041253*^9, 3.799746483996111*^9, 3.799752698914839*^9, 3.799759731511306*^9, 3.800110586698476*^9, 3.800141245098991*^9, 3.800480952073792*^9, 3.800482288504221*^9, 3.800536834663143*^9, 3.8008098664971*^9, 3.826162307138386*^9, 3.826163494195611*^9, 3.8293155968098545`*^9, 3.845815421238943*^9}, CellLabel->"Out[80]=",ExpressionUUID->"e4afe285-3022-4e1c-9004-feba66a824f5"] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Tensor 00: {D,D}", "Section", CellChangeTimes->{{3.798821915864984*^9, 3.798821918323616*^9}, 3.7988373883778276`*^9, {3.798838861089156*^9, 3.798838861912866*^9}, { 3.831227601184295*^9, 3.8312276045122805`*^9}},ExpressionUUID->"1205901d-f22e-4e70-a882-\ 174b0b359490"], Cell[CellGroupData[{ Cell["A", "Subsection", CellChangeTimes->{ 3.798836859060895*^9},ExpressionUUID->"c4c318d8-c081-4e7b-8276-\ 6b33f69ba0cc"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"AlgebraTil0", "[", RowBox[{ RowBox[{"A", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "\[Equal]", RowBox[{"UsualAlgebra", "[", RowBox[{ RowBox[{"A", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.7988228933143387`*^9, 3.798822924668963*^9}}, CellLabel->"In[81]:=",ExpressionUUID->"4cd62952-03bf-476b-9fbd-0d231d374eb3"], Cell[BoxData["True"], "Output", CellChangeTimes->{ 3.798822925570175*^9, 3.798822961378519*^9, 3.798824465107603*^9, { 3.7988245281470003`*^9, 3.798824541346429*^9}, 3.79882468070619*^9, 3.798825581444055*^9, 3.798825625444974*^9, 3.7988275600418262`*^9, 3.798827636497037*^9, 3.798827783821451*^9, 3.798829460338592*^9, 3.798829995808545*^9, 3.798830128004582*^9, 3.798830232014876*^9, { 3.798835193471623*^9, 3.798835220787854*^9}, 3.798835271938483*^9, 3.798835401463324*^9, {3.798835526264358*^9, 3.798835551815963*^9}, 3.7988355837417307`*^9, {3.798835691079094*^9, 3.7988357086627913`*^9}, 3.7988357387308617`*^9, {3.79883582171861*^9, 3.798835852499433*^9}, 3.7988359857084093`*^9, 3.798836330649002*^9, 3.798837023973257*^9, 3.798838081117299*^9, 3.7988455483831367`*^9, 3.798892742172429*^9, 3.798894339912834*^9, 3.7988944764609537`*^9, 3.798917673993437*^9, { 3.799057847274302*^9, 3.7990578667780313`*^9}, 3.799060643879168*^9, 3.799069061791094*^9, 3.799316689842461*^9, 3.799317349262558*^9, 3.799492308150285*^9, 3.799528774066567*^9, 3.79953018170537*^9, 3.799533292738181*^9, 3.799578987182605*^9, 3.799610266505348*^9, 3.799699867758123*^9, 3.7997418504887867`*^9, 3.7997464840069847`*^9, 3.799752698942363*^9, 3.799759731592417*^9, 3.8001105867304983`*^9, 3.80014126029348*^9, 3.800481106870584*^9, 3.800482303100185*^9, 3.8005368346980886`*^9, 3.8008098665089617`*^9, 3.826162307159629*^9, 3.8261634942411413`*^9, 3.8293181258856983`*^9, 3.8458154213951564`*^9}, CellLabel->"Out[81]=",ExpressionUUID->"98b44cf3-9683-4a3f-a109-0e03f6b7ae81"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["B", "Subsection", CellChangeTimes->{{3.798836859060895*^9, 3.798836887120772*^9}},ExpressionUUID->"135974bd-4844-464e-98de-\ 8835567106cb"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"AlgebraTil0", "[", RowBox[{ RowBox[{"B", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "\[Equal]", RowBox[{"UsualAlgebra", "[", RowBox[{ RowBox[{"B", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.7988229299466352`*^9, 3.7988229584538183`*^9}}, CellLabel->"In[82]:=",ExpressionUUID->"8c00abac-64cd-4cd4-a267-feaa41a7809e"], Cell[BoxData["True"], "Output", CellChangeTimes->{ 3.7988229614288692`*^9, 3.798824465187417*^9, {3.7988245282298727`*^9, 3.798824541425972*^9}, 3.798824680745221*^9, 3.79882558152179*^9, 3.798825625488988*^9, 3.798827560093534*^9, 3.798827636529134*^9, 3.79882778389564*^9, 3.798829460375886*^9, 3.79882999585713*^9, 3.7988301280581207`*^9, 3.7988302320628433`*^9, {3.798835193528249*^9, 3.7988352208464203`*^9}, 3.798835271974332*^9, 3.798835401470064*^9, { 3.7988355263176937`*^9, 3.798835551861059*^9}, 3.798835583814116*^9, { 3.798835691129801*^9, 3.798835708727124*^9}, 3.7988357387818317`*^9, { 3.7988358217670107`*^9, 3.798835852543201*^9}, 3.798835985764247*^9, 3.79883633070247*^9, 3.798837023985919*^9, 3.798838081195079*^9, 3.7988455484375563`*^9, 3.7988927421853657`*^9, 3.798894339985878*^9, 3.798894476508206*^9, 3.798917674038507*^9, {3.799057847366068*^9, 3.799057866846599*^9}, 3.799060643926518*^9, 3.799069061851877*^9, 3.799316689929203*^9, 3.7993173493012457`*^9, 3.7994923082077637`*^9, 3.799528774136841*^9, 3.799530181742448*^9, 3.799533292786129*^9, 3.7995789872316713`*^9, 3.799610266549803*^9, 3.7996998678083363`*^9, 3.7997418505688257`*^9, 3.799746484045425*^9, 3.799752698971917*^9, 3.79975973164762*^9, 3.800110586742256*^9, 3.800141260352593*^9, 3.800481106939027*^9, 3.800482303176157*^9, 3.800536834734152*^9, 3.800809866530457*^9, 3.826162307182946*^9, 3.826163494295958*^9, 3.8293181259950466`*^9, 3.8458154217232056`*^9}, CellLabel->"Out[82]=",ExpressionUUID->"bb7639b0-7a2b-4300-990d-6b7de9c1c138"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["\[CurlyPhi]", "Subsection", CellChangeTimes->{ 3.798836859060895*^9, {3.798836890845826*^9, 3.7988368946150007`*^9}},ExpressionUUID->"c9403b2c-fe82-4571-9f3d-\ c14c474ee742"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"AlgebraTil0", "[", RowBox[{ RowBox[{"\[CurlyPhi]", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "\[Equal]", RowBox[{"UsualAlgebra", "[", RowBox[{ RowBox[{"\[CurlyPhi]", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.798822947204338*^9, 3.7988229522775183`*^9}}, CellLabel->"In[83]:=",ExpressionUUID->"cc99ecec-510b-494d-bf3d-22cbf7eb33f5"], Cell[BoxData["True"], "Output", CellChangeTimes->{ 3.798822961510446*^9, 3.7988244654965773`*^9, {3.798824528546198*^9, 3.7988245417330523`*^9}, 3.79882468092584*^9, 3.7988255818223248`*^9, 3.798825625653474*^9, 3.798827560233782*^9, 3.798827636600479*^9, 3.798827784039611*^9, 3.7988294604583197`*^9, 3.798829995966543*^9, 3.798830128202491*^9, 3.7988302321761*^9, {3.798835193668125*^9, 3.798835220987591*^9}, 3.798835272064547*^9, 3.798835401593309*^9, { 3.798835526440515*^9, 3.798835551970653*^9}, 3.798835584045094*^9, { 3.798835691242234*^9, 3.798835708868904*^9}, 3.798835738893731*^9, { 3.798835821889817*^9, 3.798835852652772*^9}, 3.798835985887765*^9, 3.7988363307959957`*^9, 3.79883702413944*^9, 3.798838081300419*^9, 3.7988455485055*^9, 3.7988927422515373`*^9, 3.7988943402747*^9, 3.798894476599779*^9, 3.798917674143976*^9, {3.7990578478165693`*^9, 3.7990578670445557`*^9}, 3.799060644036275*^9, 3.7990690620102158`*^9, 3.799316690055664*^9, 3.799317349395811*^9, 3.799492308298706*^9, 3.799528774248654*^9, 3.799530181875808*^9, 3.7995332928919563`*^9, 3.799578987341099*^9, 3.79961026667775*^9, 3.799699867947028*^9, 3.799741850822978*^9, 3.799746484172014*^9, 3.799752699073369*^9, 3.7997597317738333`*^9, 3.800110586852775*^9, 3.800141260362801*^9, 3.80048110695059*^9, 3.800482303185926*^9, 3.800536834773159*^9, 3.800809866540283*^9, 3.826162307190795*^9, 3.8261634943058434`*^9, 3.8293181260731125`*^9, 3.845815421863797*^9}, CellLabel->"Out[83]=",ExpressionUUID->"597c6039-a014-49d0-ba90-f480803d93e6"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ Psi, non off-shell closure zerms are referred to as Z-tilde in the paper\ \>", "Subsection", CellChangeTimes->{ 3.798836859060895*^9, {3.7988368968370047`*^9, 3.7988369164158278`*^9}, { 3.831229280940033*^9, 3.8312292866054516`*^9}},ExpressionUUID->"19243fff-2374-41a4-9606-\ dc29aab0ab5a"], Cell[BoxData[ RowBox[{ RowBox[{"psiTMAlg00", "=", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{"2", "I", " ", RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{ RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "kk", "]"}], "[", "cc", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}], "\[IndentingNewLine]", "-", RowBox[{ FractionBox["I", "2"], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{ RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Gamma]stdown", "[", "mu", "]"}], ".", RowBox[{"\[Gamma]", "[", "la", "]"}]}], ")"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "kk", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "-", RowBox[{ FractionBox["I", "2"], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "gg"}], "]"}], "]"}], RowBox[{ RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Gamma]stdown", "[", "mu", "]"}], ".", RowBox[{"\[Gamma]", "[", "la", "]"}]}], ")"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "gg", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"gg", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "-", RowBox[{ FractionBox["I", "2"], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "gg"}], "]"}], "]"}], RowBox[{ RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Gamma]stdown", "[", "mu", "]"}], ".", RowBox[{"\[Gamma]", "[", "la", "]"}]}], ")"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "gg", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"gg", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", " ", RowBox[{ FractionBox["I", "2"], " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "gg"}], "]"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Gamma]5\[Gamma]stdown", "[", "mu", "]"}], ".", RowBox[{"\[Gamma]", "[", "la", "]"}]}], ")"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "gg", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"gg", ",", "1", ",", "2"}], "}"}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"cc", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"kk", ",", "1", ",", "2"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}]}], ";"}]], "Input", CellChangeTimes->{{3.8004811204751*^9, 3.800481127597682*^9}}, CellLabel->"In[84]:=",ExpressionUUID->"a5bf6a4c-8414-4f90-ba81-58a50f257056"], Cell[BoxData[ RowBox[{ RowBox[{"psiTMAlg00Math", "=", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "kk", "]"}], "[", "cc", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}], " ", "+", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "kk", "]"}], "[", "cc", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"cc", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"kk", ",", "1", ",", "2"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}]}], ";"}]], "Input", CellChangeTimes->{{3.800481136305079*^9, 3.800481141983724*^9}}, CellLabel->"In[85]:=",ExpressionUUID->"402cee52-93c2-496c-9bf3-51b796e817b1"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"psiTMAlg00", "==", "psiTMAlg00Math"}], "//", "Simplify"}]], "Input",\ CellChangeTimes->{{3.8004811464015503`*^9, 3.8004811498695383`*^9}, { 3.8004811831629887`*^9, 3.8004811839024553`*^9}}, CellLabel->"In[86]:=",ExpressionUUID->"971a555a-80ef-4cc5-8e66-f2ab385060cb"], Cell[BoxData["True"], "Output", CellChangeTimes->{ 3.800448263893304*^9, 3.800481109353416*^9, {3.80048115834052*^9, 3.800481184311059*^9}, 3.800482305615818*^9, 3.800536837554247*^9, 3.800809869224785*^9, 3.826162309504414*^9, 3.826163496908175*^9, 3.829318128841875*^9, 3.8458154245858755`*^9}, CellLabel->"Out[86]=",ExpressionUUID->"31a08d41-006a-41cc-a775-b8289d855ac3"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Field Strength", "Subsection", CellChangeTimes->{ 3.798836859060895*^9, {3.7988369403141527`*^9, 3.798836943064349*^9}},ExpressionUUID->"765221a1-0f14-4ace-9c39-\ 4ae9bfcd4f86"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"AlgebraTil0", "[", RowBox[{ RowBox[{"Hmna", "[", RowBox[{"mu", ",", "nu", ",", "al"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "\[Equal]", " ", RowBox[{"UsualAlgebra", "[", RowBox[{ RowBox[{"Hmna", "[", RowBox[{"mu", ",", "nu", ",", "al"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"al", ",", "0", ",", "3"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}]], "Input", CellChangeTimes->{{3.798823857749464*^9, 3.798823876725635*^9}, { 3.798825635665222*^9, 3.798825640269891*^9}, {3.798836070161738*^9, 3.79883607077491*^9}}, CellLabel->"In[87]:=",ExpressionUUID->"8150451c-a190-4ff4-98af-73fce6a936fc"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"True"}, {"True"}, {"True"}, {"True"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"True"}, {"True"}, {"True"}, {"True"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"True"}, {"True"}, {"True"}, {"True"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"True"}, {"True"}, {"True"}, {"True"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}]}, { RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"True"}, {"True"}, {"True"}, {"True"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"True"}, {"True"}, {"True"}, {"True"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"True"}, {"True"}, {"True"}, {"True"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"True"}, {"True"}, {"True"}, {"True"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}]}, { RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"True"}, {"True"}, {"True"}, {"True"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"True"}, {"True"}, {"True"}, {"True"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"True"}, {"True"}, {"True"}, {"True"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"True"}, {"True"}, {"True"}, {"True"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}]}, { RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"True"}, {"True"}, {"True"}, {"True"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"True"}, {"True"}, {"True"}, {"True"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"True"}, {"True"}, {"True"}, {"True"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"True"}, {"True"}, {"True"}, {"True"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{{3.798823870193967*^9, 3.7988238770949907`*^9}, 3.798824466422287*^9, {3.798824529491372*^9, 3.79882454259795*^9}, 3.7988246812178783`*^9, 3.7988255827005873`*^9, {3.798825625914577*^9, 3.798825643246675*^9}, 3.79882756081443*^9, 3.798827637104854*^9, 3.798827784531748*^9, 3.798829460996916*^9, 3.798829996475471*^9, 3.798830128707582*^9, 3.798830232768224*^9, {3.79883519418292*^9, 3.798835221500476*^9}, 3.798835272562725*^9, 3.798835402133852*^9, { 3.7988355269452953`*^9, 3.7988355524846973`*^9}, 3.7988355845907583`*^9, { 3.79883569174903*^9, 3.7988357093870983`*^9}, 3.798835739417447*^9, { 3.7988358224711857`*^9, 3.798835853163025*^9}, 3.7988359864061747`*^9, 3.798836071875251*^9, 3.79883633158521*^9, 3.7988370249732323`*^9, 3.7988380820952053`*^9, 3.798845549372492*^9, 3.7988927431308603`*^9, 3.798894343454385*^9, 3.798894477432169*^9, 3.7989176750753*^9, 3.7990578680062237`*^9, 3.7990606449548273`*^9, 3.799069062925603*^9, 3.799316690995626*^9, 3.799317350371531*^9, 3.799492309163806*^9, 3.799528775130908*^9, 3.799530182770873*^9, 3.799533293819499*^9, 3.799578988312106*^9, 3.7996102676205273`*^9, 3.799699868856978*^9, 3.799741851754137*^9, 3.799746485169559*^9, 3.799752699974642*^9, 3.799759732722156*^9, 3.800110587791753*^9, 3.800141261522677*^9, 3.800481110183559*^9, 3.80048230635544*^9, 3.800536838589057*^9, 3.8008098700997877`*^9, 3.8261623102086487`*^9, 3.82616349778472*^9, 3.8293181295449076`*^9, 3.8458154253748713`*^9}, CellLabel-> "Out[87]//MatrixForm=",ExpressionUUID->"9c7b4ebb-79f0-4df0-9323-\ 15e17347d00c"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Bmn", "Subsection", CellChangeTimes->{ 3.798836859060895*^9, {3.7988369545714197`*^9, 3.798836955216799*^9}},ExpressionUUID->"d5fddaaf-390c-4720-9a5a-\ a6edcf31e708"], Cell[BoxData[ RowBox[{ RowBox[{"BmnAlg00", " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"Table", "[", " ", RowBox[{ RowBox[{ RowBox[{"2", "I", " ", RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]down", "[", "al", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"Hmna", "[", RowBox[{"al", ",", "mu", ",", "nu"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"al", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", " ", RowBox[{"I", " ", RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"\[Gamma]stdowndown", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"A", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "nu", "]"}]}], "]"}]}], "\[IndentingNewLine]", "-", " ", RowBox[{"I", " ", RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"\[Gamma]stdowndown", "[", "nu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"A", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], "\[IndentingNewLine]", "-", " ", RowBox[{"I", " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]stdowndown", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "nu", "]"}]}], "]"}]}], "\[IndentingNewLine]", "+", " ", RowBox[{"I", " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]stdowndown", "[", "nu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], "\[IndentingNewLine]", "-", " ", RowBox[{"I", " ", RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"\[Gamma]stdowndown", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"\[CurlyPhi]", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "nu", "]"}]}], "]"}]}], "\[IndentingNewLine]", "+", " ", RowBox[{"I", " ", RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"\[Gamma]stdowndown", "[", "nu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"\[CurlyPhi]", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}]}], ";"}]], "Input", CellChangeTimes->{{3.798823979347341*^9, 3.798823979621811*^9}, { 3.7988240189251738`*^9, 3.798824154493237*^9}, {3.798824732191197*^9, 3.798824776971231*^9}, {3.798824870336321*^9, 3.798824886648328*^9}, 3.7988250400913057`*^9, {3.798836963974161*^9, 3.7988369803740377`*^9}, 3.7988376334504147`*^9, {3.799530562474305*^9, 3.799530573669592*^9}, { 3.799610331757698*^9, 3.799610379469343*^9}, {3.7996104166977463`*^9, 3.799610420114843*^9}, {3.7996105227109833`*^9, 3.799610528331251*^9}, { 3.7996108472409782`*^9, 3.799610887796918*^9}, 3.799611219381796*^9}, CellLabel->"In[88]:=",ExpressionUUID->"8083a1c7-17a9-47ef-9144-af89008bd201"], Cell[BoxData[ RowBox[{ RowBox[{"BmnAlg00Math", " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"Bmn", "[", "1", "]"}], "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}], "+", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"Bmn", "[", "1", "]"}], "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}]}], ";"}]], "Input", CellChangeTimes->{{3.798836995153721*^9, 3.798837009409822*^9}, 3.79883762735531*^9, {3.799610430311509*^9, 3.799610433643303*^9}}, CellLabel->"In[89]:=",ExpressionUUID->"087151b4-060f-45af-b0ca-b2f5de660492"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"BmnAlg00Math", "\[Equal]", " ", "BmnAlg00"}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.798837015678911*^9, 3.7988370360127172`*^9}}, CellLabel->"In[90]:=",ExpressionUUID->"c453e359-7dc9-4b34-a546-26b28c64ff53"], Cell[BoxData["True"], "Output", CellChangeTimes->{ 3.798837038268826*^9, 3.798838082415875*^9, 3.798845549657159*^9, 3.798892743437181*^9, 3.798894345576223*^9, 3.798894477756237*^9, 3.798917675404298*^9, 3.799057868385038*^9, 3.799060645307255*^9, 3.799069063283424*^9, 3.799316691405437*^9, 3.799317350696765*^9, 3.79949230947549*^9, 3.799528775476392*^9, 3.799530183031219*^9, 3.799533294802143*^9, 3.799578989753194*^9, 3.7996102690844097`*^9, 3.799610385036408*^9, {3.7996104377707777`*^9, 3.799610459158122*^9}, 3.799610852477048*^9, 3.799610891934948*^9, 3.799611226639455*^9, 3.7996998691701202`*^9, 3.799741852099177*^9, 3.7997464854274817`*^9, 3.7997527002859077`*^9, 3.799759733134761*^9, 3.8001105881057463`*^9, 3.8001412618115683`*^9, 3.8004811104625273`*^9, 3.800481207739154*^9, 3.8004823066295547`*^9, 3.800536838939975*^9, 3.800809870404133*^9, 3.826162310471505*^9, 3.826163498108033*^9, 3.8293181300543256`*^9, 3.845815425796647*^9}, CellLabel->"Out[90]=",ExpressionUUID->"4c6bcd1e-27b9-4f5c-8679-bb4bf4011c3c"] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Vector 11: ", Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ OverscriptBox["D", "~"], ",", OverscriptBox["D", "~"]}]}], TraditionalForm]], FormatType->TraditionalForm,ExpressionUUID-> "bfd0093b-61e5-47b7-9e2e-3bf7f8bfa00e"], "}" }], "Section", CellChangeTimes->{{3.798821923568101*^9, 3.798821926018879*^9}, { 3.798837393519498*^9, 3.798837402315324*^9}, {3.798838857345957*^9, 3.798838857515265*^9}, {3.8312278037118516`*^9, 3.8312278136110516`*^9}},ExpressionUUID->"91fb63ac-29f4-439a-bdf9-\ 6aca8fcd1abe"], Cell[CellGroupData[{ Cell["A", "Subsection", CellChangeTimes->{ 3.798838004570341*^9, {3.798838140008236*^9, 3.798838140158546*^9}},ExpressionUUID->"d4663dae-74ea-4151-9cf4-\ d2251d761121"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"AlgebraTil1", "[", RowBox[{ RowBox[{"A", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", "\[Equal]", " ", RowBox[{"UsualAlgebra", "[", RowBox[{ RowBox[{"A", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], "//", "Simplify"}]], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, CellChangeTimes->{{3.7988219371504097`*^9, 3.798821958769195*^9}, { 3.798827531997343*^9, 3.798827532194694*^9}, 3.798835242956688*^9}, CellLabel->"In[91]:=",ExpressionUUID->"77a168a3-6f38-4fd5-a62d-e024003be243"], Cell[BoxData["True"], "Output", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, CellChangeTimes->{ 3.798821959071147*^9, {3.7988220045400677`*^9, 3.798822031154871*^9}, 3.7988223722206087`*^9, 3.798822862274929*^9, 3.798824462268401*^9, { 3.798824525304481*^9, 3.798824538675447*^9}, 3.798824679864254*^9, 3.7988255787366447`*^9, 3.798825624661592*^9, {3.798827533961506*^9, 3.7988275611014223`*^9}, 3.7988276373669243`*^9, {3.798827784757621*^9, 3.798827812403569*^9}, 3.798829461222975*^9, 3.7988299966835337`*^9, 3.798830128869891*^9, 3.7988302329899693`*^9, {3.798835194452074*^9, 3.798835272720437*^9}, 3.79883540240674*^9, {3.798835527215601*^9, 3.798835552681217*^9}, 3.7988355847741413`*^9, {3.798835692010433*^9, 3.7988357396266117`*^9}, {3.798835822747913*^9, 3.798835853361669*^9}, 3.798835986718487*^9, 3.798836331820636*^9, 3.798837026086192*^9, 3.798838161441904*^9, 3.798845549690139*^9, 3.7988927434514914`*^9, 3.798894345679391*^9, 3.79889449270273*^9, 3.7989176754485607`*^9, 3.79905786844692*^9, 3.799060645321332*^9, 3.7990690632988043`*^9, 3.7993167004821873`*^9, 3.7993173507083263`*^9, 3.799492319746191*^9, 3.799528785771441*^9, 3.799530183076371*^9, 3.799532354834783*^9, 3.799533294845826*^9, 3.79957898984737*^9, 3.799610269684413*^9, 3.7996998692650223`*^9, 3.799741852186726*^9, 3.79974648555921*^9, 3.799752700410677*^9, 3.799759733222587*^9, 3.800110588194624*^9, 3.800141274522417*^9, 3.80048126946382*^9, 3.800482317460177*^9, 3.8005368389841013`*^9, 3.800809870428281*^9, 3.826162310489274*^9, 3.826163498142334*^9, 3.8293181301324315`*^9, 3.845815425921619*^9}, CellLabel->"Out[91]=",ExpressionUUID->"d8819f15-84c8-4940-835d-8882930cfdba"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["B", "Subsection", CellChangeTimes->{ 3.798838004570341*^9, {3.7988381415076637`*^9, 3.798838141663158*^9}},ExpressionUUID->"ed7cd4cf-4e2c-4170-ac6f-\ 25f3f5496d2a"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"AlgebraTil1", "[", RowBox[{ RowBox[{"B", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", "\[Equal]", " ", RowBox[{"UsualAlgebra", "[", RowBox[{ RowBox[{"B", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], "//", "Simplify"}]], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, CellChangeTimes->{{3.79882201895536*^9, 3.7988220207929773`*^9}, { 3.798830158328662*^9, 3.798830158465117*^9}, 3.798835242956974*^9}, CellLabel->"In[92]:=",ExpressionUUID->"dc2e63ac-b83c-4e70-a985-6ddab4f91a91"], Cell[BoxData["True"], "Output", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, CellChangeTimes->{ 3.798822031197668*^9, 3.7988223722465982`*^9, 3.7988228623267727`*^9, 3.798824462336198*^9, {3.798824525375012*^9, 3.798824538746825*^9}, 3.798824679902603*^9, 3.798825578805271*^9, 3.7988256246905937`*^9, 3.7988275611155033`*^9, 3.798827637381542*^9, 3.798827784774537*^9, 3.798829461237536*^9, 3.798829996694868*^9, 3.798830128927614*^9, 3.798830160318205*^9, 3.798830233048596*^9, {3.798835194462031*^9, 3.798835272771948*^9}, 3.7988354024198847`*^9, {3.7988355272299023`*^9, 3.7988355527698393`*^9}, 3.798835584836104*^9, {3.7988356920250196`*^9, 3.798835709671886*^9}, 3.798835739705331*^9, {3.798835822762093*^9, 3.798835853376011*^9}, 3.7988359867901773`*^9, 3.798836331833768*^9, 3.7988370260967207`*^9, 3.798838161509495*^9, 3.7988455497004213`*^9, 3.798892743477104*^9, 3.798894345753931*^9, 3.798894492742919*^9, 3.798917675494989*^9, 3.799057868461854*^9, 3.799060645360993*^9, 3.799069063368726*^9, 3.79931670055083*^9, 3.7993173507520847`*^9, 3.799492319806891*^9, 3.799528785824188*^9, 3.799530183086845*^9, 3.7995323548867273`*^9, 3.7995332949084787`*^9, 3.79957898985786*^9, 3.79961026972589*^9, 3.799699869276394*^9, 3.7997418522685623`*^9, 3.799746485569022*^9, 3.7997527004409447`*^9, 3.799759733233058*^9, 3.800110588244307*^9, 3.80014127455732*^9, 3.800481269527363*^9, 3.8004823175322933`*^9, 3.800536839026469*^9, 3.8008098704503603`*^9, 3.8261623105071583`*^9, 3.82616349815449*^9, 3.8293181302179203`*^9, 3.84581542604659*^9}, CellLabel->"Out[92]=",ExpressionUUID->"5fed3731-7ba3-49bd-8074-53ab27f4542a"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ Psi, non off-shell closure zerms are referred to as caligraphic Z in the paper\ \>", "Subsection", CellChangeTimes->{ 3.798838004570341*^9, {3.798838147850589*^9, 3.798838148981176*^9}, { 3.831229245021197*^9, 3.831229270163953*^9}},ExpressionUUID->"cc4bdc11-56ac-4a92-99cc-\ 864f7385f49b"], Cell[BoxData[ RowBox[{ RowBox[{"psiVMAlg11", "=", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Sum", "[", " ", RowBox[{ RowBox[{"2", "I", " ", RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{ RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "kk", "]"}], "[", "cc", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}], "\[IndentingNewLine]", "-", RowBox[{ FractionBox["I", "2"], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{ RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Gamma]stdown", "[", "mu", "]"}], ".", RowBox[{"\[Gamma]", "[", "la", "]"}]}], ")"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "kk", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ FractionBox["I", "2"], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "gg"}], "]"}], "]"}], RowBox[{ RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Gamma]stdown", "[", "mu", "]"}], ".", RowBox[{"\[Gamma]", "[", "la", "]"}]}], ")"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "gg", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"gg", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ FractionBox["I", "2"], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "gg"}], "]"}], "]"}], RowBox[{ RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Gamma]stdown", "[", "mu", "]"}], ".", RowBox[{"\[Gamma]", "[", "la", "]"}]}], ")"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "gg", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"gg", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", " ", RowBox[{ FractionBox["I", "2"], " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "gg"}], "]"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Gamma]5\[Gamma]stdown", "[", "mu", "]"}], ".", RowBox[{"\[Gamma]", "[", "la", "]"}]}], ")"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "gg", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"gg", ",", "1", ",", "2"}], "}"}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"cc", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"kk", ",", "1", ",", "2"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}]}], ";"}]], "Input", CellChangeTimes->{{3.8004811204751*^9, 3.800481127597682*^9}, { 3.8261632426093073`*^9, 3.826163259138582*^9}, 3.826163454386751*^9}, CellLabel->"In[93]:=",ExpressionUUID->"70e9dfe5-cc90-4930-88bd-1720e6ce91df"], Cell[BoxData[ RowBox[{ RowBox[{"psiVMAlg11Math", "=", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "kk", "]"}], "[", "cc", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}], " ", "+", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "kk", "]"}], "[", "cc", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"cc", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"kk", ",", "1", ",", "2"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}]}], ";"}]], "Input", CellChangeTimes->{{3.800481136305079*^9, 3.800481141983724*^9}, { 3.8261632621376667`*^9, 3.8261632789331017`*^9}}, CellLabel->"In[94]:=",ExpressionUUID->"79b131ad-9f04-4db5-9334-f856a7f121de"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"psiVMAlg11", "==", "psiVMAlg11Math"}], "//", "Simplify"}]], "Input",\ CellChangeTimes->{{3.8004811464015503`*^9, 3.8004811498695383`*^9}, { 3.8004811831629887`*^9, 3.8004811839024553`*^9}, {3.826163284822826*^9, 3.826163288021927*^9}}, CellLabel->"In[95]:=",ExpressionUUID->"0f5f3e20-c78d-4c02-bf87-fc2ebd157c74"], Cell[BoxData["True"], "Output", CellChangeTimes->{ 3.800448263893304*^9, 3.800481109353416*^9, {3.80048115834052*^9, 3.800481184311059*^9}, 3.800482305615818*^9, 3.800536837554247*^9, 3.800809869224785*^9, 3.826162309504414*^9, 3.8261634627254753`*^9, 3.8261635006953917`*^9, 3.82931813289248*^9, 3.8458154286147127`*^9}, CellLabel->"Out[95]=",ExpressionUUID->"97224b29-8695-4b09-92dc-84e17cc7e433"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Field Strength", "Subsection", CellChangeTimes->{ 3.798838004570341*^9, {3.798838150031433*^9, 3.798838154793666*^9}},ExpressionUUID->"c4c54e1e-769d-48fb-9a84-\ e03d9014f5cc"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"AlgebraTil1", "[", RowBox[{ RowBox[{"Fmn", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "\[Equal]", " ", RowBox[{"UsualAlgebra", "[", RowBox[{ RowBox[{"Fmn", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}]], "Input", CellChangeTimes->{{3.798822525085191*^9, 3.7988225759065247`*^9}, { 3.798834510351439*^9, 3.798834510550014*^9}, {3.79953244759291*^9, 3.799532452189775*^9}}, CellLabel->"In[96]:=",ExpressionUUID->"571f3267-0f44-4584-ab02-6f268361c277"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"True", "True", "True", "True"}, {"True", "True", "True", "True"}, {"True", "True", "True", "True"}, {"True", "True", "True", "True"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{{3.798822570645321*^9, 3.7988225764639683`*^9}, 3.798822862772093*^9, 3.798824464599967*^9, {3.798824527670569*^9, 3.798824540875493*^9}, 3.7988246805948*^9, 3.798825580971654*^9, 3.798825625345571*^9, 3.798827561680223*^9, 3.798827638100688*^9, 3.798827785247733*^9, 3.798829461619156*^9, 3.79882999713374*^9, 3.798830129403001*^9, 3.798830233449884*^9, 3.798834516183914*^9, { 3.79883519525902*^9, 3.7988352226085033`*^9}, 3.798835273557419*^9, 3.798835403417337*^9, {3.79883552816199*^9, 3.798835553615646*^9}, 3.798835585716447*^9, {3.7988356928416367`*^9, 3.798835710456604*^9}, 3.7988357405661716`*^9, {3.798835823556341*^9, 3.7988358540641737`*^9}, 3.798835987524756*^9, 3.798836332358172*^9, 3.79883702651432*^9, 3.7988381619529943`*^9, 3.798845550093535*^9, 3.798892743868629*^9, 3.798894348179769*^9, 3.798894493106628*^9, 3.79891767609198*^9, 3.799057868923102*^9, 3.799060645847163*^9, 3.799069063893671*^9, 3.799316701042635*^9, 3.7993173512382803`*^9, 3.7994923202273703`*^9, 3.799528786226027*^9, 3.799530183463463*^9, 3.7995310097301893`*^9, 3.799532355549892*^9, {3.7995324485466747`*^9, 3.799532478309864*^9}, 3.799532508935*^9, 3.799533295357666*^9, 3.799578990351063*^9, 3.799610270177655*^9, 3.799699869777464*^9, 3.7997418530948057`*^9, 3.79974648603498*^9, 3.799752700969164*^9, 3.7997597336848803`*^9, 3.800110588875382*^9, 3.8001412750620127`*^9, 3.8004812698216343`*^9, 3.8004823177151546`*^9, 3.800529453930987*^9, 3.800536839277198*^9, 3.800809870712236*^9, 3.826162310674622*^9, 3.82616350099671*^9, 3.8293181331424227`*^9, 3.8458154288490334`*^9}, CellLabel-> "Out[96]//MatrixForm=",ExpressionUUID->"6c069bd7-9c6d-44e2-bcd0-\ 6af7c0cee475"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Vector", "Subsection", CellChangeTimes->{{3.79882231017908*^9, 3.798822311983996*^9}},ExpressionUUID->"5c599eff-88e7-40f2-a996-\ 8e122198f36e"], Cell[BoxData[ RowBox[{ RowBox[{"VecAlg11", " ", "=", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"2", "I", " ", RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]down", "[", "nu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"Fmn", "[", RowBox[{"nu", ",", "mu"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "+", RowBox[{ RowBox[{"-", " ", "2"}], " ", "I", " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"I", " ", RowBox[{"Cmetric", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"A", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], "-", " ", RowBox[{ RowBox[{"\[Gamma]5down", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}]}], ")"}]}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}]}], ";"}]], "Input", CellChangeTimes->{{3.798838741257917*^9, 3.798838772659133*^9}, { 3.799532368535076*^9, 3.799532393858769*^9}, 3.799532817262743*^9}, CellLabel->"In[97]:=",ExpressionUUID->"9f8a0ba7-e9b4-46c8-8ac7-a22501240fb3"], Cell[BoxData[ RowBox[{ RowBox[{"VecAlg11Math", " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"Avec", "[", "0", "]"}], "[", "mu", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}], "+", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"Avec", "[", "0", "]"}], "[", "mu", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}]}], ";"}]], "Input", CellChangeTimes->{{3.7988387841905107`*^9, 3.798838794339822*^9}}, CellLabel->"In[98]:=",ExpressionUUID->"25287cf2-7271-430d-8425-3c15a5b9fbee"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"VecAlg11Math", " ", "\[Equal]", " ", "VecAlg11"}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.798838801595295*^9, 3.79883881501054*^9}}, CellLabel->"In[99]:=",ExpressionUUID->"a1e8abb0-6c31-444c-95df-a03205d809f6"], Cell[BoxData["True"], "Output", CellChangeTimes->{ 3.798838818291245*^9, 3.798845550149416*^9, 3.7988927439212008`*^9, 3.798894348613927*^9, 3.798894493154505*^9, 3.79891767620219*^9, 3.799057869042055*^9, 3.799060645955667*^9, 3.7990639828033648`*^9, 3.799069064020824*^9, 3.7993167011893*^9, 3.799317351300243*^9, 3.799317736442245*^9, 3.799492320298324*^9, 3.799528786287025*^9, 3.799530183518306*^9, 3.799531017032586*^9, 3.799532355851976*^9, { 3.799532791705698*^9, 3.799532821590472*^9}, 3.799533295424518*^9, 3.799578990448392*^9, 3.799610270255075*^9, 3.799699869860929*^9, 3.7997418532068*^9, 3.799746486123589*^9, 3.799752701084632*^9, 3.799759733761648*^9, 3.800110589011978*^9, 3.8001412751185226`*^9, 3.800481269907198*^9, 3.800482317779517*^9, 3.80053683936145*^9, 3.800809870776539*^9, 3.826162310726062*^9, 3.82616350107808*^9, 3.8293181332814083`*^9, 3.845815429029127*^9}, CellLabel->"Out[99]=",ExpressionUUID->"5c175cb1-5fb5-4c4e-bf8d-893a1e1d5f44"] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Tensor 11: ", Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ OverscriptBox["D", "~"], ",", OverscriptBox["D", "~"]}]}], TraditionalForm]], FormatType->TraditionalForm,ExpressionUUID-> "a4b89ce6-6807-42ea-9b09-e13607ceb7a9"], "}" }], "Section", CellChangeTimes->{{3.79882193098674*^9, 3.798821933612712*^9}, { 3.7988374041853952`*^9, 3.7988374044729156`*^9}, {3.79883888689086*^9, 3.798838887079631*^9}, 3.831227817627737*^9},ExpressionUUID->"4722306a-3df5-4395-8629-\ 9b4b2d2d63eb"], Cell[CellGroupData[{ Cell["A", "Subsection", CellChangeTimes->{ 3.798838910714549*^9},ExpressionUUID->"726c0648-65d3-4485-b012-\ c3364b68777e"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"AlgebraTil1", "[", RowBox[{ RowBox[{"A", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "\[Equal]", " ", RowBox[{"UsualAlgebra", "[", RowBox[{ RowBox[{"A", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.798843645528124*^9, 3.798843992044964*^9}, { 3.7988440268568*^9, 3.798844221876567*^9}, {3.798845662326964*^9, 3.79884580411132*^9}, {3.7988458768024273`*^9, 3.798845878319406*^9}, { 3.7988928883358583`*^9, 3.798892907675687*^9}}, CellLabel-> "In[100]:=",ExpressionUUID->"99302175-6084-4539-9c74-f2fdeda25828"], Cell[BoxData["True"], "Output", CellChangeTimes->{ 3.798843695612774*^9, {3.798844170557487*^9, 3.7988442223933773`*^9}, 3.798845550249835*^9, 3.798845909025301*^9, 3.798892744017065*^9, 3.79889290810365*^9, 3.798892953582307*^9, 3.7988943489889097`*^9, 3.79889450757101*^9, 3.798917676254504*^9, 3.799057869148149*^9, 3.7990606460765038`*^9, 3.7990690641169357`*^9, 3.799316714850202*^9, 3.799317351337962*^9, 3.799492341032606*^9, 3.79952879038999*^9, 3.799530183562635*^9, 3.799533295475341*^9, 3.799578990511997*^9, 3.799610270303409*^9, 3.799679711567808*^9, 3.799699869939891*^9, 3.799703923322742*^9, 3.799741853287197*^9, 3.799746486186578*^9, 3.799752701159582*^9, 3.7997597338419847`*^9, 3.8001105890646143`*^9, 3.80014128550453*^9, 3.8004812811126432`*^9, 3.8004823469397783`*^9, 3.8005368393731127`*^9, 3.8008098707869253`*^9, 3.826162310732676*^9, 3.826163501088398*^9, 3.829318133375175*^9, 3.8458154291426134`*^9}, CellLabel-> "Out[100]=",ExpressionUUID->"f2b3d211-e309-472c-98cb-5f69479cd8d0"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["B", "Subsection", CellChangeTimes->{{3.798838910714549*^9, 3.7988389319520473`*^9}},ExpressionUUID->"f21334a5-7625-4a45-8c3d-\ 9e1b9cca6615"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"AlgebraTil1", "[", RowBox[{ RowBox[{"B", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "\[Equal]", " ", RowBox[{"UsualAlgebra", "[", RowBox[{ RowBox[{"B", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.7988459198857183`*^9, 3.798845997544641*^9}, { 3.798846027697057*^9, 3.798846035612103*^9}, {3.798846076204813*^9, 3.79884609733425*^9}, {3.798846128792933*^9, 3.798846142135014*^9}, { 3.7988462056922913`*^9, 3.798846259555892*^9}, {3.798892915330255*^9, 3.798892919390366*^9}}, CellLabel-> "In[101]:=",ExpressionUUID->"ac2330e3-b5d2-4feb-8327-7e97f28cb154"], Cell[BoxData["True"], "Output", CellChangeTimes->{{3.79884607424269*^9, 3.7988460981337748`*^9}, { 3.7988461310905247`*^9, 3.798846142807852*^9}, {3.7988462320625668`*^9, 3.798846260134398*^9}, 3.798892744087816*^9, 3.798892920496786*^9, 3.798892953645513*^9, 3.798894349064083*^9, 3.798894507614414*^9, 3.798917676299943*^9, 3.799057869219902*^9, 3.799060646087719*^9, 3.7990690641871643`*^9, 3.799316714950384*^9, 3.7993173513739443`*^9, 3.799492341116502*^9, 3.79952879044351*^9, 3.799530183596081*^9, 3.7995332954842377`*^9, 3.799578990571867*^9, 3.7996102703437967`*^9, 3.7996998699934473`*^9, 3.799741853360488*^9, 3.7997464862410088`*^9, 3.799752701200488*^9, 3.799759733886265*^9, 3.800110589076668*^9, 3.8001412855452414`*^9, 3.800481281179043*^9, 3.8004823469980373`*^9, 3.800536839417342*^9, 3.800809870806885*^9, 3.826162310749753*^9, 3.8261635011319304`*^9, 3.829318133460523*^9, 3.8458154292675858`*^9}, CellLabel-> "Out[101]=",ExpressionUUID->"4faafac7-5bc8-4d59-8847-dbfc7bf1b106"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["cphi", "Subsection", CellChangeTimes->{{3.798838910714549*^9, 3.7988389387938137`*^9}},ExpressionUUID->"473452b0-61c0-4aae-ae39-\ 6715f1ddb0e2"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"AlgebraTil1", "[", RowBox[{ RowBox[{"\[CurlyPhi]", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "\[Equal]", " ", RowBox[{"UsualAlgebra", "[", RowBox[{ RowBox[{"\[CurlyPhi]", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.798847027151009*^9, 3.798847152034542*^9}, { 3.798892940256235*^9, 3.798892946634686*^9}}, CellLabel-> "In[102]:=",ExpressionUUID->"1cfa0b4d-6f34-4d5c-a971-20918410353f"], Cell[BoxData["True"], "Output", CellChangeTimes->{{3.798847065791066*^9, 3.798847152414898*^9}, 3.798892746062172*^9, 3.798892953758561*^9, 3.798894349369329*^9, 3.798894507702394*^9, 3.798917676434997*^9, 3.799057869360515*^9, 3.7990606461928453`*^9, 3.7990690643300753`*^9, 3.799316715069816*^9, 3.7993173515582*^9, 3.7994923412566967`*^9, 3.799528790556332*^9, 3.799530183675527*^9, 3.799533295580052*^9, 3.7995789906937*^9, 3.7996102704486856`*^9, 3.799699870099526*^9, 3.799741853530511*^9, 3.799746486352673*^9, 3.799752701293806*^9, 3.799759733992559*^9, 3.8001105892221212`*^9, 3.8001412855551558`*^9, 3.800481281190195*^9, 3.8004823470340023`*^9, 3.800536839429043*^9, 3.8008098708202553`*^9, 3.826162310756744*^9, 3.826163501176276*^9, 3.829318133542844*^9, 3.8458154293769355`*^9}, CellLabel-> "Out[102]=",ExpressionUUID->"86ef4de5-5199-472e-8322-9f0b34703127"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ Psi, non off-shell closure zerms are referred to as caligraphic Z-tilde in \ the paper\ \>", "Subsection", CellChangeTimes->{ 3.798838910714549*^9, {3.798838942283606*^9, 3.7988389447385*^9}, { 3.831229174022004*^9, 3.83122922674813*^9}},ExpressionUUID->"bcd86353-b1ed-4f9a-a5b2-\ 0613fa1d3e31"], Cell[BoxData[ RowBox[{ RowBox[{"psiTMAlg11Math", "=", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "kk", "]"}], "[", "cc", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}], " ", "+", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "kk", "]"}], "[", "cc", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"cc", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"kk", ",", "1", ",", "2"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}]}], ";"}]], "Input", CellChangeTimes->{{3.800481343479065*^9, 3.8004813484699078`*^9}}, CellLabel-> "In[103]:=",ExpressionUUID->"84937f15-510e-4a65-9987-4721bcb7bd59"], Cell[BoxData[ RowBox[{ RowBox[{"psiTMAlg11", "=", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"2", "I"}], ")"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{ RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "kk", "]"}], "[", "cc", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], RowBox[{"I", "/", "4"}]}], ")"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{ RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"(", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Gamma]stdown", "[", "mu", "]"}], ".", RowBox[{"\[Gamma]", "[", "la", "]"}]}], ")"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "kk", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "I"}], "/", "32"}], ")"}], " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{"KroneckerDelta", "[", RowBox[{"kk", ",", "gg"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"CommuteGammadown", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"CommuteGammastdown", "[", RowBox[{"mu", ",", "nu"}], "]"}], ".", RowBox[{"\[Gamma]", "[", "la", "]"}]}], ")"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}]}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "gg", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"gg", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{"I", "/", "4"}], ")"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "gg"}], "]"}], "]"}], RowBox[{ RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Gamma]stdown", "[", "mu", "]"}], ".", RowBox[{"\[Gamma]", "[", "la", "]"}]}], ")"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "gg", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"gg", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "I"}], "/", "32"}], ")"}], " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "gg"}], "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"CommuteGammadown", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"CommuteGammastdown", "[", RowBox[{"mu", ",", "nu"}], "]"}], ".", RowBox[{"\[Gamma]", "[", "la", "]"}]}], ")"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}]}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "gg", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"gg", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "I"}], "/", "32"}], ")"}], " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "gg"}], "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"CommuteGammadown", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"CommuteGammastdown", "[", RowBox[{"mu", ",", "nu"}], "]"}], ".", RowBox[{"\[Gamma]", "[", "la", "]"}]}], ")"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}]}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "gg", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"gg", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{"I", "/", "4"}], ")"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "gg"}], "]"}], "]"}], RowBox[{ RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Gamma]stdown", "[", "mu", "]"}], ".", RowBox[{"\[Gamma]", "[", "la", "]"}]}], ")"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "gg", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"gg", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "I"}], "/", "4"}], ")"}], " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "gg"}], "]"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Gamma]5\[Gamma]stdown", "[", "mu", "]"}], ".", RowBox[{"\[Gamma]", "[", "la", "]"}]}], ")"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "gg", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"gg", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], RowBox[{"I", "/", "4"}]}], ")"}], " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "gg"}], "]"}], "]"}], RowBox[{"Cmetric", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"\[Gamma]", "[", "la", "]"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "gg", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"gg", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], RowBox[{"I", "/", "4"}]}], ")"}], " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "gg"}], "]"}], "]"}], RowBox[{"\[Gamma]5down", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"\[Gamma]5\[Gamma]", "[", "la", "]"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "gg", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"gg", ",", "1", ",", "2"}], "}"}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"cc", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"kk", ",", "1", ",", "2"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}]}], ";"}]], "Input", CellChangeTimes->{{3.800481319997205*^9, 3.800481336881781*^9}}, CellLabel-> "In[104]:=",ExpressionUUID->"e70d041f-aca9-42a6-b6e6-d0477408460a"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"psiTMAlg11", "==", "psiTMAlg11Math"}], "//", "Simplify"}]], "Input",\ CellChangeTimes->{{3.8004813603001738`*^9, 3.800481364487459*^9}}, CellLabel-> "In[105]:=",ExpressionUUID->"300f346b-f945-4045-8aac-89c8c7ec17f2"], Cell[BoxData["True"], "Output", CellChangeTimes->{ 3.7988229615533667`*^9, {3.798823020141959*^9, 3.798823024322309*^9}, 3.798824466218751*^9, {3.798824529267971*^9, 3.798824542395604*^9}, 3.798824681100841*^9, 3.7988255824898148`*^9, 3.798825625818143*^9, 3.798827560335897*^9, 3.798827636675763*^9, 3.798827784119643*^9, 3.798829460534212*^9, 3.798829996042902*^9, 3.798830128283724*^9, 3.79883023226935*^9, 3.798834648465888*^9, {3.798835196161518*^9, 3.79883522355864*^9}, 3.7988352747182293`*^9, 3.798835405152158*^9, { 3.798835529860942*^9, 3.798835555254718*^9}, 3.798835587432252*^9, { 3.7988356944487343`*^9, 3.798835711277595*^9}, 3.7988357413610163`*^9, { 3.7988358247406673`*^9, 3.7988358548533173`*^9}, 3.798835916403611*^9, 3.79883598828629*^9, 3.798836028683247*^9, {3.7988361131008253`*^9, 3.7988361435172167`*^9}, 3.798836179596402*^9, 3.798836230747263*^9, { 3.798836266125655*^9, 3.798836271219054*^9}, 3.7988363329407787`*^9, 3.798837026923106*^9, 3.798845550406905*^9, 3.798892746144217*^9, 3.798892953841607*^9, 3.798894350018474*^9, 3.798894507782645*^9, 3.7989060723197927`*^9, 3.7989176765361023`*^9, 3.7990578694482183`*^9, 3.799060646304297*^9, 3.799069064428055*^9, 3.799316715161993*^9, 3.799317351642988*^9, 3.7994923413389807`*^9, 3.799528790636611*^9, 3.799530183756531*^9, 3.799533295664296*^9, 3.799578990783416*^9, 3.799610270536381*^9, 3.799699870191984*^9, 3.799741853619553*^9, 3.799746486447073*^9, 3.799752701383182*^9, 3.799759734100659*^9, 3.800110589323762*^9, 3.800141285940987*^9, 3.8004471774724693`*^9, 3.8004473432524023`*^9, 3.800447472979946*^9, 3.8004475463545856`*^9, 3.800447577387464*^9, {3.8004476103687897`*^9, 3.800447741741702*^9}, 3.800447844791697*^9, 3.800447881145911*^9, 3.800447935596929*^9, 3.800481291097907*^9, {3.800481364969795*^9, 3.8004813890522213`*^9}, 3.800482357535234*^9, 3.800536850103476*^9, 3.8008098829488983`*^9, 3.826162320342417*^9, 3.826163511442049*^9, 3.8293181446101947`*^9, 3.8458154403800535`*^9}, CellLabel-> "Out[105]=",ExpressionUUID->"5656060d-0919-49ae-be39-99d74bdf2a56"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Bmn", "Subsection", CellChangeTimes->{ 3.798838910714549*^9, {3.798838968322612*^9, 3.798838970311405*^9}},ExpressionUUID->"0ac5e5b2-1de8-442a-a61c-\ afe2aaa467fb"], Cell[BoxData[ RowBox[{ RowBox[{"BmnAlg11", " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"Table", "[", " ", RowBox[{ RowBox[{ RowBox[{"2", " ", "I", " ", RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]down", "[", "al", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Bmn", "[", "1", "]"}], "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "al", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"al", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "-", RowBox[{"D", "[", RowBox[{ RowBox[{"\[CapitalLambda]TilTil", "[", RowBox[{"nu", ",", "aa", ",", "bb", ",", "ii", ",", "jj"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}], "+", RowBox[{"D", "[", RowBox[{ RowBox[{"\[CapitalLambda]TilTil", "[", RowBox[{"mu", ",", "aa", ",", "bb", ",", "ii", ",", "jj"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "nu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}]}], ";"}]], "Input", CellChangeTimes->{{3.798840149388376*^9, 3.798840167636957*^9}, { 3.799060659216208*^9, 3.79906066002379*^9}, {3.799060789771257*^9, 3.799060801717059*^9}}, CellLabel-> "In[106]:=",ExpressionUUID->"13e1a71f-989a-4995-b411-a40aadd669f8"], Cell[BoxData[ RowBox[{ RowBox[{"BmnAlg11Math", " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"Bmn", "[", "1", "]"}], "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}], "+", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"Bmn", "[", "1", "]"}], "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}]}], ";"}]], "Input", CellChangeTimes->{{3.798840174277672*^9, 3.798840202129045*^9}}, CellLabel-> "In[107]:=",ExpressionUUID->"f30bc7ec-e2cf-4cfb-9414-4fe598b72e0c"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"BmnAlg11Math", "\[Equal]", " ", "BmnAlg11"}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.798840184428688*^9, 3.798840190858244*^9}}, CellLabel-> "In[108]:=",ExpressionUUID->"b6ab794b-5639-429c-9489-333c8b9ee8c0"], Cell[BoxData["True"], "Output", CellChangeTimes->{{3.798840194886425*^9, 3.7988402056075687`*^9}, 3.7988455512181664`*^9, 3.79889274637391*^9, 3.798892954029889*^9, 3.798894352600699*^9, 3.7988945080353622`*^9, 3.79891767677322*^9, 3.7990578696566057`*^9, 3.7990606465481367`*^9, 3.799060764709648*^9, { 3.799060797180814*^9, 3.799060804059758*^9}, 3.799069064726572*^9, 3.799316715439268*^9, 3.7993173518514223`*^9, 3.799492341539138*^9, 3.7995287908533163`*^9, 3.7995301839555073`*^9, 3.799533295865395*^9, 3.7995789910675*^9, 3.79961027082801*^9, {3.799610926184615*^9, 3.799610938402253*^9}, 3.799699870403817*^9, 3.799741853850609*^9, 3.799746486791945*^9, 3.799752701634905*^9, 3.799759734308971*^9, 3.800110589551343*^9, 3.8001412861557093`*^9, 3.800481291376449*^9, 3.800482357746339*^9, 3.800536850511724*^9, 3.800809883265401*^9, 3.82616232053743*^9, 3.82616351173254*^9, 3.8293181448850956`*^9, 3.8458154406898594`*^9}, CellLabel-> "Out[108]=",ExpressionUUID->"97ba4659-2c6a-47a5-b756-fd587825ee69"] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Vector Cross: ", Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{"D", ",", OverscriptBox["D", "~"]}]}], TraditionalForm]], FormatType->TraditionalForm,ExpressionUUID-> "b8569d9d-4986-4177-a18e-d33d0d76f63a"], "}" }], "Section", CellChangeTimes->{{3.798840311398507*^9, 3.798840313583603*^9}, { 3.831227819425515*^9, 3.8312278226567965`*^9}},ExpressionUUID->"4cfdd76f-265a-43d6-a6b9-\ 57b2ba00352b"], Cell[CellGroupData[{ Cell["A", "Subsection", CellChangeTimes->{{3.798836364100836*^9, 3.798836366153274*^9}, 3.799757544507189*^9},ExpressionUUID->"ca1da7cb-eddf-4f29-9f60-\ 88e73b87dc9e"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2"}], "I", " ", RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"A", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{"2", "I", " ", RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"\[CurlyPhi]", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "\[Equal]", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{"A", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}], " ", "+", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{"A", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"aa", ",", " ", "1", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"bb", ",", " ", "1", ",", "4"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}], ";"}]], "Input", CellChangeTimes->{{3.799058018564783*^9, 3.799058090857354*^9}, 3.799528799605174*^9}, CellLabel-> "In[109]:=",ExpressionUUID->"10003eb0-1864-49d4-88bb-f490df09a9d1"], Cell[BoxData[ RowBox[{ RowBox[{"AVMAlgCrossMath", " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{"A", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}], " ", "+", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{"A", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"aa", ",", " ", "1", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"bb", ",", " ", "1", ",", "4"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}]}], ";"}]], "Input", CellChangeTimes->{{3.799057988865655*^9, 3.799058015369623*^9}, { 3.7990581457643623`*^9, 3.799058149615641*^9}}, CellLabel-> "In[110]:=",ExpressionUUID->"2a71a9cf-7ab8-44f7-8d23-0ccec4e03589"], Cell[BoxData[ RowBox[{ RowBox[{"AVMAlgCross", "=", " ", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2"}], "I", " ", RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"A", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{"2", "I", " ", RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"\[CurlyPhi]", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"aa", ",", " ", "1", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"bb", ",", " ", "1", ",", "4"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}]}], ";"}]], "Input", CellChangeTimes->{{3.7990581009745083`*^9, 3.799058120306069*^9}, 3.799058150998291*^9}, CellLabel-> "In[111]:=",ExpressionUUID->"1c1365d1-b0b5-4cfe-a38a-bf5fcf53877c"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"AVMAlgCrossMath", "\[Equal]", " ", "AVMAlgCross"}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.799058123560842*^9, 3.799058127681237*^9}}, CellLabel-> "In[112]:=",ExpressionUUID->"14c4fd2a-170e-4b6d-88ce-40a3a5bc7013"], Cell[BoxData["True"], "Output", CellChangeTimes->{{3.799058130562375*^9, 3.799058153476572*^9}, 3.7990606467056704`*^9, 3.799069064922347*^9, 3.799316748696184*^9, 3.799317351979887*^9, 3.7994923571779213`*^9, 3.799528793955464*^9, 3.799528848084285*^9, 3.799530184038658*^9, 3.7995311719357862`*^9, 3.7995328387188263`*^9, {3.799533276112952*^9, 3.7995332959955883`*^9}, 3.799578991194622*^9, 3.7996102709459133`*^9, 3.799699870511539*^9, 3.799741854016017*^9, 3.7997464869071302`*^9, 3.799752701771893*^9, 3.799759734448597*^9, 3.8001105896468763`*^9, 3.80014129634748*^9, 3.800479813873859*^9, 3.800481580762301*^9, 3.800482380171677*^9, 3.8005368505964746`*^9, 3.800809883323867*^9, 3.8261623205766687`*^9, 3.826163511795032*^9, 3.82931815197601*^9, 3.845815440830451*^9}, CellLabel-> "Out[112]=",ExpressionUUID->"9eebdefb-0fd0-4907-9873-ce2c1c5c888a"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["B", "Subsection", CellChangeTimes->{{3.798836364100836*^9, 3.798836366153274*^9}, { 3.798836416200686*^9, 3.798836416547799*^9}, 3.799058358287291*^9},ExpressionUUID->"46e6e915-c70a-4efa-baa8-\ aa3c69096736"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Table", "[", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"2", " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{"2", "/", "3"}], ")"}], "I", " ", RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"\[Epsilon]up", "[", RowBox[{"mu", ",", "nu", ",", "al", ",", "be"}], "]"}], RowBox[{ RowBox[{"\[Gamma]stdowndown", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"Hmna", "[", RowBox[{"nu", ",", "al", ",", "be"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"al", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"be", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "\[Equal]", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{"B", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}], " ", "+", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{"B", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"aa", ",", " ", "1", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"bb", ",", " ", "1", ",", "4"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}], ";"}]], "Input", CellChangeTimes->{{3.799058018564783*^9, 3.799058090857354*^9}, { 3.799058176232403*^9, 3.7990582876119223`*^9}, 3.799528812084601*^9, { 3.799576162410234*^9, 3.799576164418523*^9}}, CellLabel-> "In[113]:=",ExpressionUUID->"ce75cc3b-4a60-4f85-bb26-2f9720a77c9f"], Cell[BoxData[ RowBox[{ RowBox[{"BVMAlgCrossMath", " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{"B", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}], " ", "+", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{"B", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"aa", ",", " ", "1", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"bb", ",", " ", "1", ",", "4"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}]}], ";"}]], "Input", CellChangeTimes->{{3.799057988865655*^9, 3.799058015369623*^9}, { 3.7990581457643623`*^9, 3.799058149615641*^9}, {3.799058301975565*^9, 3.799058308098876*^9}}, CellLabel-> "In[114]:=",ExpressionUUID->"3b2378f7-0422-43fb-b19a-7a4d0eea1bd9"], Cell[BoxData[ RowBox[{ RowBox[{"BVMAlgCross", "=", " ", RowBox[{ RowBox[{ RowBox[{"Table", "[", " ", RowBox[{ RowBox[{ RowBox[{"2", " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{"2", "/", "3"}], ")"}], "I", " ", RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"\[Epsilon]up", "[", RowBox[{"mu", ",", "nu", ",", "al", ",", "be"}], "]"}], RowBox[{ RowBox[{"\[Gamma]stdowndown", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"Hmna", "[", RowBox[{"nu", ",", "al", ",", "be"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"al", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"be", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"aa", ",", " ", "1", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"bb", ",", " ", "1", ",", "4"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}]}], ";"}]], "Input", CellChangeTimes->{{3.7990581009745083`*^9, 3.799058120306069*^9}, 3.799058150998291*^9, {3.799058297265669*^9, 3.799058300851966*^9}}, CellLabel-> "In[115]:=",ExpressionUUID->"0ade9222-4dae-434f-bf2f-d3fdac7c470a"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"BVMAlgCrossMath", "\[Equal]", " ", "BVMAlgCross"}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.799058123560842*^9, 3.799058127681237*^9}, { 3.799058310852573*^9, 3.7990583122696047`*^9}}, CellLabel-> "In[116]:=",ExpressionUUID->"104ff427-e14b-448e-b958-880bb9207f2b"], Cell[BoxData["True"], "Output", CellChangeTimes->{{3.799058130562375*^9, 3.799058153476572*^9}, 3.799058317407853*^9, 3.799060646914279*^9, 3.799069065305224*^9, 3.799316748979479*^9, 3.799317352209764*^9, 3.7994923573531723`*^9, 3.799528794142293*^9, 3.799528848230247*^9, 3.799530184203726*^9, 3.799532841590026*^9, {3.799533276234962*^9, 3.799533296154704*^9}, 3.799578991326089*^9, 3.7996102711270323`*^9, 3.799699870649139*^9, 3.799741854168442*^9, 3.7997464870368137`*^9, 3.799752701953476*^9, 3.799759734658325*^9, 3.8001105897781343`*^9, 3.8001412964787483`*^9, 3.8004798140200033`*^9, 3.800481580885067*^9, 3.800482380318551*^9, 3.800536850771328*^9, 3.800809883486917*^9, 3.826162320704524*^9, 3.826163511923946*^9, 3.8293181611658864`*^9, 3.8458154410335283`*^9}, CellLabel-> "Out[116]=",ExpressionUUID->"99b39a79-24cd-449f-b407-3189879bd466"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Siew Psi with Better Gamma Basis", "Subsection", CellChangeTimes->{{3.800110225578562*^9, 3.800110226896809*^9}, { 3.80030750768155*^9, 3.800307511126584*^9}, {3.800348887424917*^9, 3.800348896110038*^9}},ExpressionUUID->"8e527b16-5f76-4bc9-bafe-\ b5f5d8b87fee"], Cell[CellGroupData[{ Cell["\<\ X: renamed 5-9 as 4-8 as there previously was no 4 Untilded X as in paper (hence the X1[0] for instance)\ \>", "Subsubsection", CellChangeTimes->{{3.800130363816936*^9, 3.800130367136668*^9}, { 3.8293181793978505`*^9, 3.829318189149131*^9}, {3.831228155838839*^9, 3.831228167694881*^9}},ExpressionUUID->"08c92e9c-da20-48be-b30d-\ 49e59daae423"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"X1", "[", "0", "]"}], "[", RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"I", "/", "4"}], ")"}], " ", RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "/", "4"}], ")"}], RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{"3", "/", "4"}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "I"}], "/", "4"}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"KroneckerDelta", "[", RowBox[{"kk", ",", "ll"}], "]"}]}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"ll", ",", "1", ",", "2"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.7996652510347357`*^9, 3.7996652627513514`*^9}, { 3.799665312176265*^9, 3.799665415860877*^9}, {3.7996688962254457`*^9, 3.79966892876335*^9}, {3.799668970297758*^9, 3.799668996919237*^9}, { 3.79966936661845*^9, 3.799669376211941*^9}, 3.7996694194644403`*^9, 3.7996695274905787`*^9, {3.7996696937892942`*^9, 3.799669695361713*^9}, { 3.799669865353406*^9, 3.7996698737971687`*^9}, {3.799670026165674*^9, 3.799670026458721*^9}, {3.799670663970121*^9, 3.799670671259778*^9}, { 3.799670768700727*^9, 3.799670779423319*^9}, {3.7996708916619368`*^9, 3.7996708945646544`*^9}, 3.79967183063323*^9, {3.799671875290814*^9, 3.7996718765944147`*^9}, 3.7996719112611217`*^9, {3.7996720346890163`*^9, 3.799672035401425*^9}, {3.7996724117741823`*^9, 3.799672425731805*^9}, { 3.799672599599312*^9, 3.7996726010631247`*^9}, {3.799672699752431*^9, 3.7996727139193*^9}, {3.799673080026394*^9, 3.799673080784636*^9}, { 3.7996731163064547`*^9, 3.799673138727139*^9}, {3.799674264316572*^9, 3.7996742739728727`*^9}, {3.799679827961631*^9, 3.799679828676334*^9}, { 3.7996799354508467`*^9, 3.7996799779879932`*^9}, {3.799681100664277*^9, 3.799681135447175*^9}, {3.7996814518964977`*^9, 3.799681453098822*^9}, { 3.799699938950777*^9, 3.7996999543280354`*^9}, {3.799707102047843*^9, 3.799707104427792*^9}, 3.7997421496043167`*^9, {3.799742344687454*^9, 3.799742353137207*^9}, {3.799742425119286*^9, 3.7997424265511713`*^9}, { 3.7997425333807497`*^9, 3.79974253389616*^9}, {3.7997426182329817`*^9, 3.79974265245472*^9}, {3.7997426901603527`*^9, 3.799742691526273*^9}, { 3.799743597400085*^9, 3.799743602560834*^9}, {3.799745965468335*^9, 3.799745986722908*^9}, {3.799746257495017*^9, 3.799746257909979*^9}, { 3.800110234835294*^9, 3.800110333917371*^9}, {3.800110447135627*^9, 3.80011045140107*^9}, {3.8001127566627007`*^9, 3.800112773380061*^9}, 3.8001128414179573`*^9, 3.800113032434372*^9, {3.800113249359889*^9, 3.800113256939803*^9}, {3.80011352143509*^9, 3.80011353067688*^9}, { 3.800129734058968*^9, 3.800129751777575*^9}, {3.800129816244417*^9, 3.800129818191153*^9}, {3.800130228898118*^9, 3.800130241844441*^9}, { 3.800130409901802*^9, 3.800130413713191*^9}, 3.800132251380665*^9, { 3.800132306472823*^9, 3.800132310047781*^9}, {3.800132477836877*^9, 3.8001324784234047`*^9}, 3.80013291222683*^9, {3.800133029880526*^9, 3.8001330486368103`*^9}, {3.800133087713871*^9, 3.800133120224462*^9}, { 3.800133643112492*^9, 3.800133653224915*^9}, {3.800133773934532*^9, 3.800133785766027*^9}, {3.800133890656115*^9, 3.8001339001548367`*^9}, { 3.800138128183538*^9, 3.8001382025783997`*^9}, {3.8003069374506073`*^9, 3.800306938169345*^9}, {3.800307538885254*^9, 3.800307546445533*^9}, { 3.8003491310667543`*^9, 3.800349131433249*^9}, {3.8003569190290623`*^9, 3.8003569277095947`*^9}, {3.800357526854577*^9, 3.800357538460176*^9}, { 3.800365573310143*^9, 3.8003655809633627`*^9}, {3.80044868891199*^9, 3.8004486889853773`*^9}, {3.800448730360215*^9, 3.800448746800536*^9}, { 3.800480402060977*^9, 3.800480408945923*^9}}, CellLabel-> "In[117]:=",ExpressionUUID->"a64e8053-c6b8-4d39-9811-cba9afa5e68f"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"X2", "[", "0", "]"}], "[", RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "I"}], "/", "8"}], ")"}], " ", RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "/", "8"}], ")"}], RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{"1", "/", "8"}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{"I", "/", "8"}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"KroneckerDelta", "[", RowBox[{"kk", ",", "ll"}], "]"}]}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"ll", ",", "1", ",", "2"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.800110363292152*^9, 3.800110389990699*^9}, { 3.800110455043022*^9, 3.8001104616285057`*^9}, 3.8001117981170263`*^9, 3.80011274537081*^9, 3.800112926723485*^9, 3.800113013680533*^9, 3.800113065674403*^9, {3.800129738373971*^9, 3.8001297393872137`*^9}, { 3.800130249651207*^9, 3.8001302596168337`*^9}, {3.800130416013686*^9, 3.80013042194765*^9}, 3.800132395100371*^9, {3.800132460284151*^9, 3.800132463281928*^9}, {3.800132533192268*^9, 3.800132533690661*^9}, { 3.80013271252822*^9, 3.800132713110586*^9}, {3.8001331222344437`*^9, 3.800133138285466*^9}, {3.800133423442689*^9, 3.800133437706676*^9}, { 3.800133593577133*^9, 3.800133607818359*^9}, {3.800133902276018*^9, 3.800133913015147*^9}, {3.800138229398325*^9, 3.800138235609268*^9}, { 3.8003069415037117`*^9, 3.800306941625657*^9}, {3.800307547852943*^9, 3.8003075551338787`*^9}, {3.800307590889777*^9, 3.800307591981887*^9}, { 3.800349133230133*^9, 3.800349133729011*^9}, {3.800356980607193*^9, 3.800356988865437*^9}, {3.800357539979629*^9, 3.800357548094481*^9}, { 3.800365610844468*^9, 3.8003656198488607`*^9}, {3.800448692159923*^9, 3.800448692256823*^9}, {3.800448747909058*^9, 3.800448755181797*^9}, { 3.800480412388277*^9, 3.800480439610158*^9}}, CellLabel-> "In[118]:=",ExpressionUUID->"c7856dd9-e483-476e-811e-543e9fc21f3f"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"X3", "[", "0", "]"}], "[", RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "I"}], "/", "16"}], ")"}], " ", RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{"3", "/", "16"}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "/", "16"}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{"5", RowBox[{"I", "/", "16"}]}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"KroneckerDelta", "[", RowBox[{"kk", ",", "ll"}], "]"}]}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"ll", ",", "1", ",", "2"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.800110393626577*^9, 3.800110395188344*^9}, { 3.800110466112854*^9, 3.8001104768546257`*^9}, 3.8001118330103903`*^9, 3.800112956601022*^9, 3.800112999763776*^9, 3.800113092946046*^9, 3.800113143409091*^9, {3.8001297611340446`*^9, 3.8001297612426443`*^9}, { 3.800130261643187*^9, 3.800130279213718*^9}, {3.8001304264321327`*^9, 3.8001304314667892`*^9}, {3.80013254812916*^9, 3.8001325510583*^9}, { 3.8001326036920958`*^9, 3.800132607003542*^9}, {3.8001328792051907`*^9, 3.800132880930582*^9}, {3.800133141413445*^9, 3.800133199529097*^9}, { 3.8001332551397657`*^9, 3.8001332713572598`*^9}, {3.8001339146818447`*^9, 3.80013393048846*^9}, {3.800138258725418*^9, 3.800138271697207*^9}, { 3.800306943081872*^9, 3.800306943192387*^9}, {3.80030759437507*^9, 3.800307602756695*^9}, {3.800348925708269*^9, 3.800348925814316*^9}, { 3.800357029882895*^9, 3.800357038924396*^9}, {3.800357552356814*^9, 3.800357560366818*^9}, {3.800365635313683*^9, 3.800365646376528*^9}, { 3.800448693873453*^9, 3.80044869395891*^9}, {3.8004487570962543`*^9, 3.800448766432028*^9}, {3.800480470877658*^9, 3.800480481214591*^9}}, CellLabel-> "In[119]:=",ExpressionUUID->"09a3695a-2031-4a9f-a5d2-8638da21137c"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"X4", "[", "0", "]"}], "[", RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "I"}], "/", "4"}], ")"}], " ", RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "/", "4"}], ")"}], RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{"1", "/", "4"}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{"I", "/", "4"}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"KroneckerDelta", "[", RowBox[{"kk", ",", "ll"}], "]"}]}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"ll", ",", "1", ",", "2"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.800110398283496*^9, 3.800110398462944*^9}, { 3.8001104872476892`*^9, 3.8001104945167007`*^9}, 3.800112804979659*^9, 3.800112918773007*^9, 3.800113076498694*^9, 3.8001131301072206`*^9, { 3.8001134493742447`*^9, 3.800113450773027*^9}, {3.800113495020145*^9, 3.8001135058933372`*^9}, {3.8001297659715*^9, 3.800129766104232*^9}, { 3.800130293975542*^9, 3.800130299224527*^9}, {3.800130440242423*^9, 3.800130447620881*^9}, {3.800132257881941*^9, 3.80013227037158*^9}, 3.800132419802051*^9, {3.8001324707076283`*^9, 3.800132471433772*^9}, { 3.800133955797564*^9, 3.8001339629269648`*^9}, {3.800138325288735*^9, 3.8001383339053392`*^9}, {3.800306946071735*^9, 3.800306946195368*^9}, { 3.800307605675214*^9, 3.8003076116074657`*^9}, {3.800348926599927*^9, 3.800348926686325*^9}, {3.800357044327593*^9, 3.800357058063589*^9}, { 3.800357562712772*^9, 3.800357572095798*^9}, {3.800365664870315*^9, 3.800365676842514*^9}, {3.800448695934497*^9, 3.800448695991438*^9}, { 3.800448768184552*^9, 3.800448776697461*^9}, {3.800480493519421*^9, 3.800480504126347*^9}, {3.8293181656433897`*^9, 3.8293181658152695`*^9}}, CellLabel-> "In[120]:=",ExpressionUUID->"c2fc67b5-dcc7-4469-808e-40e4f1b6622f"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"X5", "[", "0", "]"}], "[", RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"3", RowBox[{"I", "/", "16"}]}], ")"}], " ", RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "/", "16"}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{"1", "/", "16"}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{"I", "/", "16"}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"KroneckerDelta", "[", RowBox[{"kk", ",", "ll"}], "]"}]}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"ll", ",", "1", ",", "2"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.800110399768758*^9, 3.800110399912744*^9}, { 3.800110496515047*^9, 3.800110502571926*^9}, 3.800111824959324*^9, { 3.8001130025502853`*^9, 3.800113020277585*^9}, {3.800113146355151*^9, 3.800113159711175*^9}, {3.8001135088834753`*^9, 3.800113516200593*^9}, { 3.800129767136856*^9, 3.800129767226714*^9}, {3.8001303009744453`*^9, 3.800130307854059*^9}, {3.800130450524173*^9, 3.800130454296567*^9}, { 3.800132358722671*^9, 3.800132360274147*^9}, {3.800132400110808*^9, 3.800132410887569*^9}, {3.80013297598285*^9, 3.8001329773141203`*^9}, { 3.800133300811689*^9, 3.800133348191144*^9}, {3.8001333964443073`*^9, 3.800133406914687*^9}, {3.8001339686430264`*^9, 3.800133981531185*^9}, { 3.800138350395418*^9, 3.800138359898597*^9}, {3.800306947224265*^9, 3.800306947285892*^9}, {3.800307612753484*^9, 3.8003076219053698`*^9}, { 3.800348927843272*^9, 3.800348927921389*^9}, {3.80035710758165*^9, 3.800357116247851*^9}, {3.80035757480755*^9, 3.800357585399392*^9}, { 3.800365688045834*^9, 3.800365698817734*^9}, {3.800448697960472*^9, 3.800448698545712*^9}, {3.800448777827989*^9, 3.8004487858952417`*^9}, { 3.8004805499008017`*^9, 3.800480560476598*^9}, {3.829318167817218*^9, 3.8293181679421253`*^9}}, CellLabel-> "In[121]:=",ExpressionUUID->"6f2f03a7-a18f-4a25-a3e2-5ea29caf9444"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"X6", "[", "0", "]"}], "[", RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "9"}], RowBox[{"I", "/", "16"}]}], ")"}], " ", RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "/", "16"}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{"1", "/", "16"}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{"I", "/", "16"}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"KroneckerDelta", "[", RowBox[{"kk", ",", "ll"}], "]"}]}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"ll", ",", "1", ",", "2"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.800110401362487*^9, 3.800110401894199*^9}, { 3.800110505313815*^9, 3.800110513038578*^9}, 3.8001129529758*^9, 3.800112991658972*^9, 3.800113085138695*^9, 3.800113122954135*^9, { 3.800129768462413*^9, 3.800129768544305*^9}, {3.800130311458151*^9, 3.800130326211471*^9}, {3.800130458435046*^9, 3.8001304643233624`*^9}, { 3.800132317348967*^9, 3.800132319372428*^9}, {3.800132592672716*^9, 3.8001325952147913`*^9}, {3.800132941124516*^9, 3.800132950434721*^9}, { 3.8001339843776608`*^9, 3.80013399798744*^9}, {3.800138532499462*^9, 3.800138539982037*^9}, {3.8003069497227182`*^9, 3.8003069498833227`*^9}, { 3.800307623033832*^9, 3.800307632334342*^9}, {3.800348930134164*^9, 3.80034893024267*^9}, {3.800357139673963*^9, 3.8003571533756657`*^9}, { 3.8003575875878983`*^9, 3.800357592330689*^9}, {3.80035768795253*^9, 3.800357691536319*^9}, {3.800365734769834*^9, 3.800365749172505*^9}, { 3.800448699874365*^9, 3.800448700053403*^9}, {3.800448787278866*^9, 3.800448798369384*^9}, {3.8004805767639017`*^9, 3.8004805902717237`*^9}, { 3.8293181700247784`*^9, 3.8293181701028204`*^9}}, CellLabel-> "In[122]:=",ExpressionUUID->"1a8fcd05-171f-436e-8fee-a49a8ec1a47b"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"X7", "[", "0", "]"}], "[", RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"3", RowBox[{"I", "/", "16"}]}], ")"}], " ", RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "/", "16"}], ")"}], RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{"5", "/", "16"}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{"5", RowBox[{"I", "/", "16"}]}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"KroneckerDelta", "[", RowBox[{"kk", ",", "ll"}], "]"}]}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"ll", ",", "1", ",", "2"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.80011040443928*^9, 3.800110405104908*^9}, { 3.800110515421832*^9, 3.800110531188781*^9}, {3.80011293998602*^9, 3.8001129679833527`*^9}, 3.8001130517876472`*^9, 3.80011313727812*^9, { 3.800129770588353*^9, 3.800129770705511*^9}, {3.8001303295827637`*^9, 3.800130340779999*^9}, {3.8001304674932833`*^9, 3.80013047300598*^9}, { 3.8001324513109913`*^9, 3.8001324518429623`*^9}, {3.800132685013454*^9, 3.800132688538657*^9}, {3.800133003618589*^9, 3.8001330104023523`*^9}, { 3.800134000350552*^9, 3.80013401677057*^9}, {3.800138608471364*^9, 3.800138613875579*^9}, {3.80030695221751*^9, 3.800306952302923*^9}, { 3.800307633514153*^9, 3.800307642639271*^9}, {3.800348933019185*^9, 3.800348933132999*^9}, {3.8003571709805403`*^9, 3.800357185009897*^9}, { 3.800357694778092*^9, 3.800357702022806*^9}, {3.800365758860813*^9, 3.800365768808035*^9}, {3.8004487027242527`*^9, 3.800448702818119*^9}, { 3.800448800260828*^9, 3.800448809633465*^9}, {3.800480624199748*^9, 3.800480637769239*^9}, {3.829318172774996*^9, 3.829318172879134*^9}}, CellLabel-> "In[123]:=",ExpressionUUID->"80346c7d-75f0-4139-bdf8-062cb53264a3"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"X8", "[", "0", "]"}], "[", RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "I"}], "/", "128"}], ")"}], " ", RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "/", "128"}], ")"}], RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{"1", "/", "128"}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{"I", "/", "128"}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"KroneckerDelta", "[", RowBox[{"kk", ",", "ll"}], "]"}]}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"ll", ",", "1", ",", "2"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.8003069308017817`*^9, 3.800306954677063*^9}, { 3.800307644144287*^9, 3.800307655127385*^9}, {3.800348937317486*^9, 3.800348937490572*^9}, {3.800357214650063*^9, 3.8003572235315533`*^9}, { 3.8003577033792267`*^9, 3.800357723033798*^9}, {3.800365783235565*^9, 3.800365797963922*^9}, {3.800448705047255*^9, 3.800448707510803*^9}, { 3.800448811584923*^9, 3.800448831952756*^9}, {3.800480666472176*^9, 3.8004806771094437`*^9}, {3.829318176558997*^9, 3.8293181766550326`*^9}}, CellLabel-> "In[124]:=",ExpressionUUID->"3b9c5c37-cc54-425a-9f75-d73dc4345d57"] }, Open ]], Cell[CellGroupData[{ Cell["Calc Psi", "Subsubsection", CellChangeTimes->{{3.800309817774349*^9, 3.8003098275593157`*^9}, { 3.800357264788999*^9, 3.800357266573381*^9}},ExpressionUUID->"d2d660ac-3e70-49ed-95d4-\ acb49f9334d7"], Cell[BoxData[ RowBox[{ RowBox[{"psiVMAlgCross", "=", RowBox[{ RowBox[{ RowBox[{"Table", "[", " ", RowBox[{ RowBox[{ RowBox[{"2", "I", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"X1", "[", "0", "]"}], "[", RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], RowBox[{ RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "ll", "]"}], "[", "cc", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", " ", RowBox[{"2", "I", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"X2", "[", "0", "]"}], "[", RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], RowBox[{ RowBox[{"CommuteGammadown", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"\[Gamma]stdown", "[", "nu", "]"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "ll", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", " ", RowBox[{"2", "I", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"X3", "[", "0", "]"}], "[", RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], RowBox[{ RowBox[{"\[Gamma]stdowndown", "[", "nu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Gamma]", "[", "nu", "]"}], ".", RowBox[{"\[Gamma]", "[", "mu", "]"}]}], ")"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "ll", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", " ", RowBox[{"2", "I", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"X4", "[", "0", "]"}], "[", RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"\[Gamma]5", "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "ll", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", " ", RowBox[{"2", "I", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"X5", "[", "0", "]"}], "[", RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]stdowndown", "[", "nu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Gamma]5\[Gamma]", "[", "nu", "]"}], ".", RowBox[{"\[Gamma]", "[", "mu", "]"}]}], ")"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "ll", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", " ", RowBox[{"2", "I", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"X6", "[", "0", "]"}], "[", RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], RowBox[{"\[Gamma]5down", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "ll", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", " ", RowBox[{"2", "I", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"X7", "[", "0", "]"}], "[", RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], RowBox[{"Cmetric", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"\[Gamma]", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "ll", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", " ", RowBox[{"2", "I", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"X8", "[", "0", "]"}], "[", RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], RowBox[{ RowBox[{"CommuteGammadown", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"CommuteGammastdown", "[", RowBox[{"mu", ",", "nu"}], "]"}], ".", RowBox[{"\[Gamma]", "[", "la", "]"}]}], ")"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "ll", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"aa", ",", " ", "1", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"bb", ",", " ", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"cc", ",", "1", ",", "4"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}]}], ";"}]], "Input", CellChangeTimes->{{3.800481531727687*^9, 3.800481564434548*^9}, { 3.8293181981218348`*^9, 3.82931820940921*^9}}, CellLabel-> "In[125]:=",ExpressionUUID->"e7fe4ac0-a5a0-497d-a3ed-bd435c93fbc5"], Cell[BoxData[ RowBox[{ RowBox[{"psiVMAlgCrossMath", "=", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "kk", "]"}], "[", "cc", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}], " ", "+", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "kk", "]"}], "[", "cc", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"aa", ",", " ", "1", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"bb", ",", " ", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"cc", ",", "1", ",", "4"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}]}], ";"}]], "Input", CellChangeTimes->{{3.800481554661316*^9, 3.800481558571291*^9}}, CellLabel-> "In[126]:=",ExpressionUUID->"a3d847cc-1e9a-4670-a4e3-27cf90cf0e14"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"psiVMAlgCrossMath", "==", "psiVMAlgCross"}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.800481569365899*^9, 3.8004815726737423`*^9}}, CellLabel-> "In[127]:=",ExpressionUUID->"6de4d2d3-9324-4c0a-bd26-5aa720f6d127"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.800481590151678*^9, 3.8004823852681723`*^9, 3.80053685609593*^9, 3.800809888755501*^9, 3.826162325383136*^9, 3.826163516755728*^9, 3.829318216620571*^9, 3.845815446257039*^9}, CellLabel-> "Out[127]=",ExpressionUUID->"1517fa13-049b-42bc-a6d4-aa605717ff66"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Vector", "Subsection", CellChangeTimes->{{3.79882231017908*^9, 3.798822311983996*^9}},ExpressionUUID->"3baa1cb1-d2d8-47bf-a824-\ 8e1403c3a461"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}]}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"\[Gamma]5", ".", RowBox[{"CommuteGammastdowndown", "[", RowBox[{"mu", ",", "nu"}], "]"}]}], ")"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"UD", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "nu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "-", RowBox[{"2", " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"CommuteGammadown", "[", RowBox[{"al", ",", "be"}], "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Bmn", "[", "1", "]"}], "[", RowBox[{"be", ",", "mu"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "al", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"al", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"be", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "-", RowBox[{"D", "[", RowBox[{ RowBox[{"\[Lambda]Til", "[", RowBox[{"aa", ",", "bb", ",", "ii", ",", "jj"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], "\[IndentingNewLine]", "\[Equal]", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"Avec", "[", "0", "]"}], "[", "mu", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}], " ", "+", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"Avec", "[", "0", "]"}], "[", "mu", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"aa", ",", " ", "1", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"bb", ",", " ", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}], ";"}]], "Input", CellChangeTimes->{{3.799316926981617*^9, 3.799316987791828*^9}, { 3.799317097796335*^9, 3.799317294736978*^9}, {3.799317419874131*^9, 3.799317543086145*^9}, {3.7993175885958033`*^9, 3.799317602475203*^9}, { 3.799318688600691*^9, 3.799318803506078*^9}, {3.799318834412423*^9, 3.799319032551469*^9}, {3.799319070836706*^9, 3.799319170639615*^9}, 3.799528909165388*^9, {3.799532891811702*^9, 3.799532913880108*^9}, { 3.799533029696135*^9, 3.7995332051021557`*^9}, 3.79961124285238*^9, { 3.800141315678938*^9, 3.8001413267045937`*^9}}, CellLabel-> "In[128]:=",ExpressionUUID->"ded160fc-f819-47b5-acc3-0a1eed3b2340"], Cell[BoxData[ RowBox[{ RowBox[{"VecCrosAlg", " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}]}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"\[Gamma]5", ".", RowBox[{"CommuteGammastdowndown", "[", RowBox[{"mu", ",", "nu"}], "]"}]}], ")"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"UD", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "nu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "-", RowBox[{"2", " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"CommuteGammadown", "[", RowBox[{"al", ",", "be"}], "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Bmn", "[", "1", "]"}], "[", RowBox[{"be", ",", "mu"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "al", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"al", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"be", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "-", RowBox[{"D", "[", RowBox[{ RowBox[{"\[Lambda]Til", "[", RowBox[{"aa", ",", "bb", ",", "ii", ",", "jj"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"aa", ",", " ", "1", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"bb", ",", " ", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}]}], ";"}]], "Input", CellChangeTimes->{{3.7995288750386963`*^9, 3.7995288783072863`*^9}, { 3.79952891084678*^9, 3.799528935774371*^9}, {3.799533221604731*^9, 3.799533251903328*^9}, 3.800141343506991*^9}, CellLabel-> "In[129]:=",ExpressionUUID->"eb614365-6781-4e87-b80c-ccb557d6dc6b"], Cell[BoxData[ RowBox[{ RowBox[{"VecCrossAlgMath", " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"Avec", "[", "0", "]"}], "[", "mu", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}], " ", "+", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"Avec", "[", "0", "]"}], "[", "mu", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"aa", ",", " ", "1", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"bb", ",", " ", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}]}], ";"}]], "Input", CellChangeTimes->{{3.799528880305058*^9, 3.799528941902562*^9}}, CellLabel-> "In[130]:=",ExpressionUUID->"687446dd-429d-4b36-8a46-ae7abc6d7ad8"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"VecCrosAlg", "\[Equal]", " ", "VecCrossAlgMath"}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.799528889622203*^9, 3.799528902237937*^9}}, CellLabel-> "In[131]:=",ExpressionUUID->"4f45d5a2-ad32-4e75-9b04-765748699925"], Cell[BoxData["True"], "Output", CellChangeTimes->{ 3.799316988202299*^9, {3.7993172655932407`*^9, 3.799317296131208*^9}, { 3.799317326186289*^9, 3.799317360990625*^9}, 3.799317421113131*^9, 3.7993175550918217`*^9, 3.799317604156436*^9, 3.799318823360818*^9, { 3.7993189737563753`*^9, 3.7993190333553658`*^9}, {3.79931909571591*^9, 3.799319131351366*^9}, {3.7993191634509153`*^9, 3.7993191711981487`*^9}, { 3.7994923586242733`*^9, 3.799492369767803*^9}, 3.7995287954719067`*^9, 3.799528849319674*^9, 3.799528928308981*^9, 3.7995301853757753`*^9, 3.7995328850685387`*^9, {3.799533255212503*^9, 3.799533297457752*^9}, 3.799578992554639*^9, 3.7996102725128603`*^9, {3.799663514092001*^9, 3.7996635401806726`*^9}, 3.799699871887245*^9, 3.7997418554056873`*^9, 3.799746491591758*^9, 3.799752706480143*^9, 3.7997597392149487`*^9, 3.800110593862586*^9, {3.800141301059482*^9, 3.800141347038947*^9}, 3.8001910039400187`*^9, 3.800479831491342*^9, 3.800481590329116*^9, 3.800482385466674*^9, 3.800536856356803*^9, 3.800809888957315*^9, 3.826162325562615*^9, 3.826163516951626*^9, 3.829318222683482*^9, 3.845815446585118*^9}, CellLabel-> "Out[131]=",ExpressionUUID->"9a36fcbf-4c6a-4c35-a0fd-fe7e1645bbe5"] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Tensor Cross: ", Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{"D", ",", OverscriptBox["D", "~"]}]}], TraditionalForm]], FormatType->TraditionalForm,ExpressionUUID-> "3b56bc12-c47f-45d6-9ebc-5f338278819c"], "}" }], "Section", CellChangeTimes->{{3.798840311398507*^9, 3.798840320057704*^9}, 3.8312278271522017`*^9},ExpressionUUID->"21252ad1-1e47-47be-a2d8-\ 578e9d2d0676"], Cell[CellGroupData[{ Cell["A", "Subsection", CellChangeTimes->{ 3.798836859060895*^9},ExpressionUUID->"99c04251-b327-496d-9360-\ 32554c2868df"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2"}], "I", " ", RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"A", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "\[Equal]", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{"A", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}], " ", "+", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{"A", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"aa", ",", " ", "1", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"bb", ",", " ", "1", ",", "4"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}], ";"}]], "Input", CellChangeTimes->{{3.799528985244047*^9, 3.7995291996766243`*^9}, { 3.799533320593143*^9, 3.7995333479319973`*^9}, 3.7997469690738792`*^9, 3.800141111058909*^9}, CellLabel-> "In[132]:=",ExpressionUUID->"28fbba4f-d378-46f0-b20f-40c3003a61da"], Cell[BoxData[ RowBox[{ RowBox[{"ATMAlgCross", "=", " ", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"-", "2"}], "I", " ", RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"A", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"aa", ",", " ", "1", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"bb", ",", " ", "1", ",", "4"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}]}], ";"}]], "Input", CellChangeTimes->{{3.799746970608242*^9, 3.799747000478998*^9}, { 3.800141117159789*^9, 3.800141118329666*^9}}, CellLabel-> "In[133]:=",ExpressionUUID->"4d6520be-5570-43f1-bad1-3214791b3de2"], Cell[BoxData[ RowBox[{ RowBox[{"ATMAlgCrossMath", "=", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{"A", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}], " ", "+", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{"A", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"aa", ",", " ", "1", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"bb", ",", " ", "1", ",", "4"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}]}], ";"}]], "Input", CellChangeTimes->{{3.7997470073842907`*^9, 3.799747019942532*^9}}, CellLabel-> "In[134]:=",ExpressionUUID->"eceaa43e-e677-4e6a-a438-c8ba92a51831"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"ATMAlgCrossMath", "\[Equal]", " ", "ATMAlgCross"}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.7997470267994423`*^9, 3.799747031834147*^9}}, CellLabel-> "In[135]:=",ExpressionUUID->"42d63a78-fef6-4090-8eb5-7f679e7c8cc3"], Cell[BoxData["True"], "Output", CellChangeTimes->{ 3.7995291999688997`*^9, 3.799530185414473*^9, 3.799533297526087*^9, 3.799533348878599*^9, 3.799578992603508*^9, 3.799610272563236*^9, 3.7996998719331827`*^9, 3.799741855465412*^9, 3.799746491636119*^9, 3.799747036797448*^9, 3.799752706539446*^9, 3.799759739316065*^9, 3.800110593949325*^9, {3.800141351861041*^9, 3.800141356722591*^9}, 3.800481718186623*^9, 3.8005368565458393`*^9, 3.800809889005909*^9, 3.8261623256034603`*^9, 3.8261635170165043`*^9, 3.829318227699203*^9, 3.8458154467413006`*^9}, CellLabel-> "Out[135]=",ExpressionUUID->"a9ca2b79-5194-4cf9-94ae-d617cfaa58c0"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["B", "Subsection", CellChangeTimes->{{3.798836859060895*^9, 3.798836887120772*^9}},ExpressionUUID->"f532dae2-29b5-4141-b314-\ 2f92f75af895"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"2", " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{"1", "/", "2"}], ")"}], " ", RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"\[Gamma]5", ".", RowBox[{"CommuteGammadown", "[", RowBox[{"mu", ",", "nu"}], "]"}]}], ")"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"Fmn", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "\[Equal]", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{"B", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}], " ", "+", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{"B", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"aa", ",", " ", "1", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"bb", ",", " ", "1", ",", "4"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}], ";"}]], "Input", CellChangeTimes->{{3.7995292484219522`*^9, 3.7995293668701468`*^9}, { 3.799529397450314*^9, 3.79952943023726*^9}, {3.799533353425226*^9, 3.799533432834058*^9}, {3.799577042087235*^9, 3.799577047194916*^9}, 3.799747049496763*^9, 3.800141144461899*^9}, CellLabel-> "In[136]:=",ExpressionUUID->"f5708ebe-f98a-4dfe-9070-3750b6e26abb"], Cell[BoxData[ RowBox[{ RowBox[{"BTMAlgCross", "=", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"2", " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{"1", "/", "2"}], ")"}], " ", RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"\[Gamma]5", ".", RowBox[{"CommuteGammadown", "[", RowBox[{"mu", ",", "nu"}], "]"}]}], ")"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"Fmn", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"aa", ",", " ", "1", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"bb", ",", " ", "1", ",", "4"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}]}], ";"}]], "Input", CellChangeTimes->{{3.799747053134035*^9, 3.799747081390442*^9}, 3.8001411495388403`*^9}, CellLabel-> "In[137]:=",ExpressionUUID->"bac061ad-3adb-406d-a3d1-914a7d139340"], Cell[BoxData[ RowBox[{ RowBox[{"BTMAlgCrossMath", "=", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{"B", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}], " ", "+", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{"B", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"aa", ",", " ", "1", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"bb", ",", " ", "1", ",", "4"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}]}], ";"}]], "Input", CellChangeTimes->{{3.799747083653915*^9, 3.799747098907556*^9}}, CellLabel-> "In[138]:=",ExpressionUUID->"b24e051d-2afb-4fa5-9fb6-77cdb49c4595"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"BTMAlgCross", "==", "BTMAlgCrossMath"}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.799747101673132*^9, 3.799747105547244*^9}}, CellLabel-> "In[139]:=",ExpressionUUID->"c2a37675-bf30-4d85-b06f-4fb7f2e1094e"], Cell[BoxData["True"], "Output", CellChangeTimes->{{3.799529303485507*^9, 3.7995293671667643`*^9}, { 3.799529398109561*^9, 3.799529431528104*^9}, 3.7995301854528227`*^9, 3.799533297582613*^9, {3.7995334018730717`*^9, 3.799533433173636*^9}, { 3.7995770427948437`*^9, 3.799577048704006*^9}, 3.7995789926526527`*^9, 3.79961027264158*^9, 3.799699871986353*^9, 3.7997418555210333`*^9, 3.799746491693623*^9, 3.79974710918851*^9, 3.799752706639587*^9, 3.799759739399008*^9, 3.800110594045566*^9, {3.800141351971632*^9, 3.8001413568125067`*^9}, 3.800481720646985*^9, 3.800536856650984*^9, 3.8008098890728683`*^9, 3.826162325676512*^9, 3.826163517108139*^9, 3.82931823072904*^9, 3.8458154469448495`*^9}, CellLabel-> "Out[139]=",ExpressionUUID->"875cca62-fdd7-497d-bd3d-430a9b7593be"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["\[CurlyPhi]", "Subsection", CellChangeTimes->{ 3.798836859060895*^9, {3.798836890845826*^9, 3.7988368946150007`*^9}},ExpressionUUID->"05bcc1cd-3c8d-462a-ae93-\ fd38e0dc47f5"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Table", "[", " ", RowBox[{ RowBox[{ RowBox[{"2", "I", " ", RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"A", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "\[Equal]", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{"\[CurlyPhi]", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}], " ", "+", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{"\[CurlyPhi]", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"aa", ",", " ", "1", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"bb", ",", " ", "1", ",", "4"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}], ";"}]], "Input", CellChangeTimes->{{3.799529940327537*^9, 3.79953016618641*^9}, { 3.799533547011591*^9, 3.7995335472730913`*^9}, 3.7997473157134113`*^9, { 3.800141156516325*^9, 3.800141161859293*^9}}, CellLabel-> "In[140]:=",ExpressionUUID->"f3fb2581-c862-4307-8df8-3b9667987e56"], Cell[BoxData[ RowBox[{ RowBox[{"cphiAlgCross", "=", RowBox[{ RowBox[{ RowBox[{"Table", "[", " ", RowBox[{ RowBox[{"2", "I", " ", RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"A", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"aa", ",", " ", "1", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"bb", ",", " ", "1", ",", "4"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}]}], ";"}]], "Input", CellChangeTimes->{{3.7997473286980762`*^9, 3.799747354433496*^9}, { 3.800141167936119*^9, 3.8001411689917192`*^9}}, CellLabel-> "In[141]:=",ExpressionUUID->"f87a8753-0952-4c89-8941-ff48036796b6"], Cell[BoxData[ RowBox[{ RowBox[{"cphiAlgCrossMath", "=", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{"\[CurlyPhi]", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}], " ", "+", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{"\[CurlyPhi]", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"aa", ",", " ", "1", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"bb", ",", " ", "1", ",", "4"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}]}], ";"}]], "Input", CellChangeTimes->{{3.799747362246089*^9, 3.79974739757917*^9}}, CellLabel-> "In[142]:=",ExpressionUUID->"f6fc499b-1f3c-4603-8018-a757c43f8a25"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"cphiAlgCrossMath", "==", "cphiAlgCross"}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.799747372427268*^9, 3.799747378712929*^9}}, CellLabel-> "In[143]:=",ExpressionUUID->"a6f6808f-e58e-40b7-bb61-4eada56e8d6f"], Cell[BoxData["True"], "Output", CellChangeTimes->{{3.799529963690487*^9, 3.799529971074554*^9}, 3.799530005765881*^9, {3.799530114823246*^9, 3.799530185583735*^9}, 3.7995332978772173`*^9, 3.799533547816278*^9, 3.7995789928510237`*^9, 3.799610272930908*^9, 3.799699872277863*^9, 3.79970403452921*^9, 3.799741855737618*^9, 3.799746491898293*^9, {3.799747382942009*^9, 3.799747402514748*^9}, 3.7997527070457706`*^9, 3.7997597398987703`*^9, 3.800110594397867*^9, {3.800141352020844*^9, 3.800141356864017*^9}, 3.800481723238001*^9, 3.8005368567187138`*^9, 3.800809889121587*^9, 3.826162325714973*^9, 3.826163517175233*^9, 3.829318236711348*^9, 3.845815447094808*^9}, CellLabel-> "Out[143]=",ExpressionUUID->"00dead2b-bfb5-4114-b9e2-55c7d4614464"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Bmn", "Subsection", CellChangeTimes->{ 3.798836859060895*^9, {3.7988369545714197`*^9, 3.798836955216799*^9}},ExpressionUUID->"aeff22bd-2da0-41c4-a887-\ e531b5b7abdc"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "/", "2"}], ")"}], RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Gamma]5\[Gamma]", "[", "al", "]"}], ".", RowBox[{"CommuteGammastdowndown", "[", RowBox[{"mu", ",", "nu"}], "]"}]}], ")"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "al", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"al", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "-", RowBox[{ RowBox[{"(", RowBox[{"1", "/", "2"}], ")"}], RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"CommuteGammastdowndown", "[", RowBox[{"al", ",", "mu"}], "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"UD", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Avec", "[", "0", "]"}], "[", "nu", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "al", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"al", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{"1", "/", "2"}], ")"}], RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"CommuteGammastdowndown", "[", RowBox[{"al", ",", "nu"}], "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"UD", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Avec", "[", "0", "]"}], "[", "mu", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "al", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"al", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "-", RowBox[{"D", "[", RowBox[{ RowBox[{"\[CapitalLambda]Til", "[", RowBox[{"nu", ",", "aa", ",", "bb", ",", "ii", ",", "jj"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}], "\[IndentingNewLine]", "+", RowBox[{"D", "[", RowBox[{ RowBox[{"\[CapitalLambda]Til", "[", RowBox[{"mu", ",", "aa", ",", "bb", ",", "ii", ",", "jj"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "nu", "]"}]}], "]"}]}], "\[IndentingNewLine]", "\[Equal]", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"Bmn", "[", "1", "]"}], "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}], " ", "+", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"Bmn", "[", "1", "]"}], "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"aa", ",", " ", "1", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"bb", ",", " ", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}], ";"}]], "Input", CellChangeTimes->{{3.799521502915475*^9, 3.7995216768328037`*^9}, { 3.79952311636239*^9, 3.7995233151920223`*^9}, {3.799525072035104*^9, 3.799525084351247*^9}, {3.799525115175795*^9, 3.7995251241224213`*^9}, { 3.7995251546826344`*^9, 3.799525213949862*^9}, {3.7995252776415367`*^9, 3.79952532270234*^9}, {3.799525363647299*^9, 3.799525474813889*^9}, { 3.799533583737423*^9, 3.799533935574765*^9}, 3.799747425643324*^9, { 3.800141180480928*^9, 3.8001411838755217`*^9}}, CellLabel-> "In[144]:=",ExpressionUUID->"ba6c10a8-5a53-4e0e-8968-651d1b7cbb64"], Cell[BoxData[ RowBox[{ RowBox[{"BmnCrossAlg", "=", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "/", "2"}], ")"}], RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Gamma]5\[Gamma]", "[", "al", "]"}], ".", RowBox[{"CommuteGammastdowndown", "[", RowBox[{"mu", ",", "nu"}], "]"}]}], ")"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "al", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"al", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "-", RowBox[{ RowBox[{"(", RowBox[{"1", "/", "2"}], ")"}], RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"CommuteGammastdowndown", "[", RowBox[{"al", ",", "mu"}], "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"UD", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Avec", "[", "0", "]"}], "[", "nu", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "al", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"al", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{"1", "/", "2"}], ")"}], RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"CommuteGammastdowndown", "[", RowBox[{"al", ",", "nu"}], "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"UD", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Avec", "[", "0", "]"}], "[", "mu", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "al", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"al", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "-", RowBox[{"D", "[", RowBox[{ RowBox[{"\[CapitalLambda]Til", "[", RowBox[{"nu", ",", "aa", ",", "bb", ",", "ii", ",", "jj"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}], "\[IndentingNewLine]", "+", RowBox[{"D", "[", RowBox[{ RowBox[{"\[CapitalLambda]Til", "[", RowBox[{"mu", ",", "aa", ",", "bb", ",", "ii", ",", "jj"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "nu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"aa", ",", " ", "1", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"bb", ",", " ", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}]}], ";"}]], "Input", CellChangeTimes->{{3.799747429003619*^9, 3.7997474595366898`*^9}, 3.800141190456813*^9}, CellLabel-> "In[145]:=",ExpressionUUID->"ce77277b-0f19-4889-ae56-a711acd2ec77"], Cell[BoxData[ RowBox[{ RowBox[{"BmnCrossAlgMath", "=", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"Bmn", "[", "1", "]"}], "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}], " ", "+", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"Bmn", "[", "1", "]"}], "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"aa", ",", " ", "1", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"bb", ",", " ", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}]}], ";"}]], "Input", CellChangeTimes->{{3.7997474654672832`*^9, 3.799747483339929*^9}}, CellLabel-> "In[146]:=",ExpressionUUID->"81fc834d-57e9-491e-865c-ad43dcc2795a"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"BmnCrossAlgMath", "==", "BmnCrossAlg"}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.799747489044211*^9, 3.799747492088951*^9}}, CellLabel-> "In[147]:=",ExpressionUUID->"d06ba517-7454-4884-b553-c758df70b367"], Cell[BoxData["True"], "Output", CellChangeTimes->{ 3.799747423678421*^9, 3.799747497350724*^9, 3.799752707633238*^9, 3.7997597404597807`*^9, 3.800110594952117*^9, {3.80014135245083*^9, 3.800141357305106*^9}, 3.800481727427533*^9, 3.800536857388682*^9, 3.800809889607285*^9, 3.826162326175561*^9, 3.826163517626337*^9, 3.8293182402923946`*^9, 3.8458154476024094`*^9}, CellLabel-> "Out[147]=",ExpressionUUID->"e83d0a0c-d615-4db7-b83f-a7f5efb42d04"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Siew Psi with Better Gamma Basis", "Subsection", CellChangeTimes->{{3.800110225578562*^9, 3.800110226896809*^9}, { 3.80030750768155*^9, 3.800307511126584*^9}, {3.800348887424917*^9, 3.800348896110038*^9}},ExpressionUUID->"65f457a7-4879-4bf5-b790-\ fe8f14d14d9f"], Cell[CellGroupData[{ Cell["Tilded X (hence the X1[1] for instance)", "Subsubsection", CellChangeTimes->{{3.800130363816936*^9, 3.800130367136668*^9}, { 3.8312281821028166`*^9, 3.831228190445819*^9}},ExpressionUUID->"6fdc870c-d24e-456d-87b6-\ 741840a6acdc"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"X1", "[", "1", "]"}], "[", RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "I"}], "/", "4"}], ")"}], " ", RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "/", "4"}], ")"}], RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{"3", "/", "4"}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "I"}], "/", "4"}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"KroneckerDelta", "[", RowBox[{"kk", ",", "ll"}], "]"}]}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"ll", ",", "1", ",", "2"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.7996652510347357`*^9, 3.7996652627513514`*^9}, { 3.799665312176265*^9, 3.799665415860877*^9}, {3.7996688962254457`*^9, 3.79966892876335*^9}, {3.799668970297758*^9, 3.799668996919237*^9}, { 3.79966936661845*^9, 3.799669376211941*^9}, 3.7996694194644403`*^9, 3.7996695274905787`*^9, {3.7996696937892942`*^9, 3.799669695361713*^9}, { 3.799669865353406*^9, 3.7996698737971687`*^9}, {3.799670026165674*^9, 3.799670026458721*^9}, {3.799670663970121*^9, 3.799670671259778*^9}, { 3.799670768700727*^9, 3.799670779423319*^9}, {3.7996708916619368`*^9, 3.7996708945646544`*^9}, 3.79967183063323*^9, {3.799671875290814*^9, 3.7996718765944147`*^9}, 3.7996719112611217`*^9, {3.7996720346890163`*^9, 3.799672035401425*^9}, {3.7996724117741823`*^9, 3.799672425731805*^9}, { 3.799672599599312*^9, 3.7996726010631247`*^9}, {3.799672699752431*^9, 3.7996727139193*^9}, {3.799673080026394*^9, 3.799673080784636*^9}, { 3.7996731163064547`*^9, 3.799673138727139*^9}, {3.799674264316572*^9, 3.7996742739728727`*^9}, {3.799679827961631*^9, 3.799679828676334*^9}, { 3.7996799354508467`*^9, 3.7996799779879932`*^9}, {3.799681100664277*^9, 3.799681135447175*^9}, {3.7996814518964977`*^9, 3.799681453098822*^9}, { 3.799699938950777*^9, 3.7996999543280354`*^9}, {3.799707102047843*^9, 3.799707104427792*^9}, 3.7997421496043167`*^9, {3.799742344687454*^9, 3.799742353137207*^9}, {3.799742425119286*^9, 3.7997424265511713`*^9}, { 3.7997425333807497`*^9, 3.79974253389616*^9}, {3.7997426182329817`*^9, 3.79974265245472*^9}, {3.7997426901603527`*^9, 3.799742691526273*^9}, { 3.799743597400085*^9, 3.799743602560834*^9}, {3.799745965468335*^9, 3.799745986722908*^9}, {3.799746257495017*^9, 3.799746257909979*^9}, { 3.800110234835294*^9, 3.800110333917371*^9}, {3.800110447135627*^9, 3.80011045140107*^9}, {3.8001127566627007`*^9, 3.800112773380061*^9}, 3.8001128414179573`*^9, 3.800113032434372*^9, {3.800113249359889*^9, 3.800113256939803*^9}, {3.80011352143509*^9, 3.80011353067688*^9}, { 3.800129734058968*^9, 3.800129751777575*^9}, {3.800129816244417*^9, 3.800129818191153*^9}, {3.800130228898118*^9, 3.800130241844441*^9}, { 3.800130409901802*^9, 3.800130413713191*^9}, 3.800132251380665*^9, { 3.800132306472823*^9, 3.800132310047781*^9}, {3.800132477836877*^9, 3.8001324784234047`*^9}, 3.80013291222683*^9, {3.800133029880526*^9, 3.8001330486368103`*^9}, {3.800133087713871*^9, 3.800133120224462*^9}, { 3.800133643112492*^9, 3.800133653224915*^9}, {3.800133773934532*^9, 3.800133785766027*^9}, {3.800133890656115*^9, 3.8001339001548367`*^9}, { 3.800138128183538*^9, 3.8001382025783997`*^9}, {3.8003069374506073`*^9, 3.800306938169345*^9}, {3.800307538885254*^9, 3.800307546445533*^9}, { 3.8003491310667543`*^9, 3.800349131433249*^9}, {3.8003569190290623`*^9, 3.8003569277095947`*^9}, {3.800357526854577*^9, 3.800357538460176*^9}, { 3.800365573310143*^9, 3.8003655809633627`*^9}, {3.80044868891199*^9, 3.8004486889853773`*^9}, {3.800448730360215*^9, 3.800448746800536*^9}, { 3.80044904262479*^9, 3.800449042738302*^9}, {3.800481770640011*^9, 3.80048177472161*^9}, {3.8261636743153763`*^9, 3.82616368216823*^9}}, CellLabel-> "In[148]:=",ExpressionUUID->"99995248-d49a-4725-8c3c-bfd974d7547d"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"X2", "[", "1", "]"}], "[", RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"I", "/", "8"}], ")"}], " ", RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "/", "8"}], ")"}], RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{"1", "/", "8"}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{"I", "/", "8"}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"KroneckerDelta", "[", RowBox[{"kk", ",", "ll"}], "]"}]}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"ll", ",", "1", ",", "2"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.800110363292152*^9, 3.800110389990699*^9}, { 3.800110455043022*^9, 3.8001104616285057`*^9}, 3.8001117981170263`*^9, 3.80011274537081*^9, 3.800112926723485*^9, 3.800113013680533*^9, 3.800113065674403*^9, {3.800129738373971*^9, 3.8001297393872137`*^9}, { 3.800130249651207*^9, 3.8001302596168337`*^9}, {3.800130416013686*^9, 3.80013042194765*^9}, 3.800132395100371*^9, {3.800132460284151*^9, 3.800132463281928*^9}, {3.800132533192268*^9, 3.800132533690661*^9}, { 3.80013271252822*^9, 3.800132713110586*^9}, {3.8001331222344437`*^9, 3.800133138285466*^9}, {3.800133423442689*^9, 3.800133437706676*^9}, { 3.800133593577133*^9, 3.800133607818359*^9}, {3.800133902276018*^9, 3.800133913015147*^9}, {3.800138229398325*^9, 3.800138235609268*^9}, { 3.8003069415037117`*^9, 3.800306941625657*^9}, {3.800307547852943*^9, 3.8003075551338787`*^9}, {3.800307590889777*^9, 3.800307591981887*^9}, { 3.800349133230133*^9, 3.800349133729011*^9}, {3.800356980607193*^9, 3.800356988865437*^9}, {3.800357539979629*^9, 3.800357548094481*^9}, { 3.800365610844468*^9, 3.8003656198488607`*^9}, {3.800448692159923*^9, 3.800448692256823*^9}, {3.800448747909058*^9, 3.800448755181797*^9}, { 3.800449045478623*^9, 3.800449045622447*^9}, {3.8004821044731073`*^9, 3.800482128939191*^9}, {3.826163693621867*^9, 3.8261636997604923`*^9}}, CellLabel-> "In[149]:=",ExpressionUUID->"6d4dabd3-b230-4fc9-96c9-32b20037f050"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"X3", "[", "1", "]"}], "[", RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"I", "/", "16"}], ")"}], " ", RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{"3", "/", "16"}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "/", "16"}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{"5", RowBox[{"I", "/", "16"}]}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"KroneckerDelta", "[", RowBox[{"kk", ",", "ll"}], "]"}]}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"ll", ",", "1", ",", "2"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.800110393626577*^9, 3.800110395188344*^9}, { 3.800110466112854*^9, 3.8001104768546257`*^9}, 3.8001118330103903`*^9, 3.800112956601022*^9, 3.800112999763776*^9, 3.800113092946046*^9, 3.800113143409091*^9, {3.8001297611340446`*^9, 3.8001297612426443`*^9}, { 3.800130261643187*^9, 3.800130279213718*^9}, {3.8001304264321327`*^9, 3.8001304314667892`*^9}, {3.80013254812916*^9, 3.8001325510583*^9}, { 3.8001326036920958`*^9, 3.800132607003542*^9}, {3.8001328792051907`*^9, 3.800132880930582*^9}, {3.800133141413445*^9, 3.800133199529097*^9}, { 3.8001332551397657`*^9, 3.8001332713572598`*^9}, {3.8001339146818447`*^9, 3.80013393048846*^9}, {3.800138258725418*^9, 3.800138271697207*^9}, { 3.800306943081872*^9, 3.800306943192387*^9}, {3.80030759437507*^9, 3.800307602756695*^9}, {3.800348925708269*^9, 3.800348925814316*^9}, { 3.800357029882895*^9, 3.800357038924396*^9}, {3.800357552356814*^9, 3.800357560366818*^9}, {3.800365635313683*^9, 3.800365646376528*^9}, { 3.800448693873453*^9, 3.80044869395891*^9}, {3.8004487570962543`*^9, 3.800448766432028*^9}, {3.80044904675591*^9, 3.800449046902791*^9}, { 3.800482134796288*^9, 3.800482150727448*^9}, {3.82616372701124*^9, 3.826163734498843*^9}}, CellLabel-> "In[150]:=",ExpressionUUID->"bacb4941-1cf3-4474-a241-e14bb36b55d3"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"X4", "[", "1", "]"}], "[", RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "I"}], "/", "4"}], ")"}], " ", RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{"1", "/", "4"}], ")"}], RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "/", "4"}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "I"}], "/", "4"}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"KroneckerDelta", "[", RowBox[{"kk", ",", "ll"}], "]"}]}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"ll", ",", "1", ",", "2"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.800110398283496*^9, 3.800110398462944*^9}, { 3.8001104872476892`*^9, 3.8001104945167007`*^9}, 3.800112804979659*^9, 3.800112918773007*^9, 3.800113076498694*^9, 3.8001131301072206`*^9, { 3.8001134493742447`*^9, 3.800113450773027*^9}, {3.800113495020145*^9, 3.8001135058933372`*^9}, {3.8001297659715*^9, 3.800129766104232*^9}, { 3.800130293975542*^9, 3.800130299224527*^9}, {3.800130440242423*^9, 3.800130447620881*^9}, {3.800132257881941*^9, 3.80013227037158*^9}, 3.800132419802051*^9, {3.8001324707076283`*^9, 3.800132471433772*^9}, { 3.800133955797564*^9, 3.8001339629269648`*^9}, {3.800138325288735*^9, 3.8001383339053392`*^9}, {3.800306946071735*^9, 3.800306946195368*^9}, { 3.800307605675214*^9, 3.8003076116074657`*^9}, {3.800348926599927*^9, 3.800348926686325*^9}, {3.800357044327593*^9, 3.800357058063589*^9}, { 3.800357562712772*^9, 3.800357572095798*^9}, {3.800365664870315*^9, 3.800365676842514*^9}, {3.800448695934497*^9, 3.800448695991438*^9}, { 3.800448768184552*^9, 3.800448776697461*^9}, {3.800449048051423*^9, 3.80044904816859*^9}, {3.8004821596164503`*^9, 3.8004821727569637`*^9}, { 3.826163762844961*^9, 3.826163781770479*^9}, 3.8293182452259264`*^9}, CellLabel-> "In[151]:=",ExpressionUUID->"504c2890-62c4-4555-adb2-12161ab57c8e"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"X5", "[", "1", "]"}], "[", RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"3", RowBox[{"I", "/", "16"}]}], ")"}], " ", RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{"1", "/", "16"}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "/", "16"}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "I"}], "/", "16"}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"KroneckerDelta", "[", RowBox[{"kk", ",", "ll"}], "]"}]}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"ll", ",", "1", ",", "2"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.800110399768758*^9, 3.800110399912744*^9}, { 3.800110496515047*^9, 3.800110502571926*^9}, 3.800111824959324*^9, { 3.8001130025502853`*^9, 3.800113020277585*^9}, {3.800113146355151*^9, 3.800113159711175*^9}, {3.8001135088834753`*^9, 3.800113516200593*^9}, { 3.800129767136856*^9, 3.800129767226714*^9}, {3.8001303009744453`*^9, 3.800130307854059*^9}, {3.800130450524173*^9, 3.800130454296567*^9}, { 3.800132358722671*^9, 3.800132360274147*^9}, {3.800132400110808*^9, 3.800132410887569*^9}, {3.80013297598285*^9, 3.8001329773141203`*^9}, { 3.800133300811689*^9, 3.800133348191144*^9}, {3.8001333964443073`*^9, 3.800133406914687*^9}, {3.8001339686430264`*^9, 3.800133981531185*^9}, { 3.800138350395418*^9, 3.800138359898597*^9}, {3.800306947224265*^9, 3.800306947285892*^9}, {3.800307612753484*^9, 3.8003076219053698`*^9}, { 3.800348927843272*^9, 3.800348927921389*^9}, {3.80035710758165*^9, 3.800357116247851*^9}, {3.80035757480755*^9, 3.800357585399392*^9}, { 3.800365688045834*^9, 3.800365698817734*^9}, {3.800448697960472*^9, 3.800448698545712*^9}, {3.800448777827989*^9, 3.8004487858952417`*^9}, { 3.8004490496055593`*^9, 3.800449049697445*^9}, {3.8004821926327457`*^9, 3.80048219815387*^9}, {3.826163802965622*^9, 3.826163810268133*^9}, { 3.829318247926767*^9, 3.82931824803608*^9}}, CellLabel-> "In[152]:=",ExpressionUUID->"0c9418e8-d5e4-44e5-b02d-db8ccfd37e20"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"X6", "[", "1", "]"}], "[", RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "9"}], RowBox[{"I", "/", "16"}]}], ")"}], " ", RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{"1", "/", "16"}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "/", "16"}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "I"}], "/", "16"}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"KroneckerDelta", "[", RowBox[{"kk", ",", "ll"}], "]"}]}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"ll", ",", "1", ",", "2"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.800110401362487*^9, 3.800110401894199*^9}, { 3.800110505313815*^9, 3.800110513038578*^9}, 3.8001129529758*^9, 3.800112991658972*^9, 3.800113085138695*^9, 3.800113122954135*^9, { 3.800129768462413*^9, 3.800129768544305*^9}, {3.800130311458151*^9, 3.800130326211471*^9}, {3.800130458435046*^9, 3.8001304643233624`*^9}, { 3.800132317348967*^9, 3.800132319372428*^9}, {3.800132592672716*^9, 3.8001325952147913`*^9}, {3.800132941124516*^9, 3.800132950434721*^9}, { 3.8001339843776608`*^9, 3.80013399798744*^9}, {3.800138532499462*^9, 3.800138539982037*^9}, {3.8003069497227182`*^9, 3.8003069498833227`*^9}, { 3.800307623033832*^9, 3.800307632334342*^9}, {3.800348930134164*^9, 3.80034893024267*^9}, {3.800357139673963*^9, 3.8003571533756657`*^9}, { 3.8003575875878983`*^9, 3.800357592330689*^9}, {3.80035768795253*^9, 3.800357691536319*^9}, {3.800365734769834*^9, 3.800365749172505*^9}, { 3.800448699874365*^9, 3.800448700053403*^9}, {3.800448787278866*^9, 3.800448798369384*^9}, {3.800449051490147*^9, 3.800449051616252*^9}, { 3.800482205448354*^9, 3.800482213583707*^9}, {3.826163850276826*^9, 3.8261638574444227`*^9}, {3.82931825005846*^9, 3.8293182501524568`*^9}}, CellLabel-> "In[153]:=",ExpressionUUID->"68b0be9e-51f5-4271-83a5-d1a3d4e89fc9"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"X7", "[", "1", "]"}], "[", RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"3", RowBox[{"I", "/", "16"}]}], ")"}], " ", RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{"5", "/", "16"}], ")"}], RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "/", "16"}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], RowBox[{"I", "/", "16"}]}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"KroneckerDelta", "[", RowBox[{"kk", ",", "ll"}], "]"}]}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"ll", ",", "1", ",", "2"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.80011040443928*^9, 3.800110405104908*^9}, { 3.800110515421832*^9, 3.800110531188781*^9}, {3.80011293998602*^9, 3.8001129679833527`*^9}, 3.8001130517876472`*^9, 3.80011313727812*^9, { 3.800129770588353*^9, 3.800129770705511*^9}, {3.8001303295827637`*^9, 3.800130340779999*^9}, {3.8001304674932833`*^9, 3.80013047300598*^9}, { 3.8001324513109913`*^9, 3.8001324518429623`*^9}, {3.800132685013454*^9, 3.800132688538657*^9}, {3.800133003618589*^9, 3.8001330104023523`*^9}, { 3.800134000350552*^9, 3.80013401677057*^9}, {3.800138608471364*^9, 3.800138613875579*^9}, {3.80030695221751*^9, 3.800306952302923*^9}, { 3.800307633514153*^9, 3.800307642639271*^9}, {3.800348933019185*^9, 3.800348933132999*^9}, {3.8003571709805403`*^9, 3.800357185009897*^9}, { 3.800357694778092*^9, 3.800357702022806*^9}, {3.800365758860813*^9, 3.800365768808035*^9}, {3.8004487027242527`*^9, 3.800448702818119*^9}, { 3.800448800260828*^9, 3.800448809633465*^9}, {3.800449053544467*^9, 3.800449053661584*^9}, {3.8004822149473867`*^9, 3.800482221972443*^9}, { 3.826163866613778*^9, 3.826163874119081*^9}, {3.8293182524198837`*^9, 3.8293182524980087`*^9}}, CellLabel-> "In[154]:=",ExpressionUUID->"6ae788eb-cc13-49d3-b74c-f525accc2d23"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"X8", "[", "1", "]"}], "[", RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"I", "/", "128"}], ")"}], " ", RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "/", "128"}], ")"}], RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{"1", "/", "128"}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{"I", "/", "128"}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"KroneckerDelta", "[", RowBox[{"kk", ",", "ll"}], "]"}]}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"ll", ",", "1", ",", "2"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.8003069308017817`*^9, 3.800306954677063*^9}, { 3.800307644144287*^9, 3.800307655127385*^9}, {3.800348937317486*^9, 3.800348937490572*^9}, {3.800357214650063*^9, 3.8003572235315533`*^9}, { 3.8003577033792267`*^9, 3.800357723033798*^9}, {3.800365783235565*^9, 3.800365797963922*^9}, {3.800448705047255*^9, 3.800448707510803*^9}, { 3.800448811584923*^9, 3.800448831952756*^9}, {3.800449055474701*^9, 3.80044905560458*^9}, {3.8004822328561287`*^9, 3.80048224176153*^9}, { 3.826163901582596*^9, 3.826163918567746*^9}, {3.829318255016723*^9, 3.829318255167038*^9}}, CellLabel-> "In[155]:=",ExpressionUUID->"df4eb7f4-6200-4ed6-87a2-7124b56c05a7"] }, Open ]], Cell[CellGroupData[{ Cell["Calc Psi", "Subsubsection", CellChangeTimes->{{3.800309817774349*^9, 3.8003098275593157`*^9}, { 3.800357264788999*^9, 3.800357266573381*^9}},ExpressionUUID->"a5368445-104b-4818-b08c-\ 9315daa961dc"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Table", "[", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"2", "I", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"X1", "[", "1", "]"}], "[", RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], RowBox[{ RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "ll", "]"}], "[", "cc", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", " ", RowBox[{"2", "I", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"X2", "[", "1", "]"}], "[", RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], RowBox[{ RowBox[{"CommuteGammadown", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"\[Gamma]stdown", "[", "nu", "]"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "ll", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", " ", RowBox[{"2", "I", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"X3", "[", "1", "]"}], "[", RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], RowBox[{ RowBox[{"\[Gamma]stdowndown", "[", "nu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Gamma]", "[", "nu", "]"}], ".", RowBox[{"\[Gamma]", "[", "mu", "]"}]}], ")"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "ll", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", " ", RowBox[{"2", "I", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"X4", "[", "1", "]"}], "[", RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"\[Gamma]5", "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "ll", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", " ", RowBox[{"2", "I", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"X5", "[", "1", "]"}], "[", RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]stdowndown", "[", "nu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Gamma]5\[Gamma]", "[", "nu", "]"}], ".", RowBox[{"\[Gamma]", "[", "mu", "]"}]}], ")"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "ll", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", " ", RowBox[{"2", "I", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"X6", "[", "1", "]"}], "[", RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], RowBox[{"\[Gamma]5down", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "ll", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", " ", RowBox[{"2", "I", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"X7", "[", "1", "]"}], "[", RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], RowBox[{"Cmetric", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"\[Gamma]", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "ll", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", " ", RowBox[{"2", "I", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"X8", "[", "1", "]"}], "[", RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], RowBox[{ RowBox[{"CommuteGammadown", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"CommuteGammastdown", "[", RowBox[{"mu", ",", "nu"}], "]"}], ".", RowBox[{"\[Gamma]", "[", "la", "]"}]}], ")"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "ll", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "\[Equal]", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "kk", "]"}], "[", "cc", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}], " ", "+", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "kk", "]"}], "[", "cc", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"aa", ",", " ", "1", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"bb", ",", " ", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"cc", ",", "1", ",", "4"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}]], "Input", CellChangeTimes->{{3.799665430342388*^9, 3.79966543805836*^9}, { 3.799665807214375*^9, 3.7996658480604143`*^9}, {3.799665901639982*^9, 3.799665924849201*^9}, {3.799665954993039*^9, 3.7996659668965473`*^9}, { 3.799666082200243*^9, 3.799666086968349*^9}, {3.799666123120418*^9, 3.799666136635099*^9}, {3.7996661699984827`*^9, 3.799666238730455*^9}, { 3.79966627421465*^9, 3.7996663444359627`*^9}, {3.799666493357522*^9, 3.799666498599592*^9}, {3.7996665298336143`*^9, 3.799666554512801*^9}, { 3.799666586709858*^9, 3.7996665956016808`*^9}, {3.799666634621347*^9, 3.799666640906722*^9}, {3.799666672533422*^9, 3.799666682300786*^9}, { 3.79966672897077*^9, 3.79966673385183*^9}, {3.799666800558617*^9, 3.799667025616901*^9}, {3.799667119442486*^9, 3.799667128731614*^9}, { 3.799667189546833*^9, 3.799667225450939*^9}, {3.799667282123147*^9, 3.799667294010084*^9}, {3.7996673399597397`*^9, 3.799667346260728*^9}, { 3.7996674352701197`*^9, 3.799667471430389*^9}, {3.799667561222804*^9, 3.7996675670711203`*^9}, {3.799667637026087*^9, 3.799667702522922*^9}, { 3.7996677629093637`*^9, 3.7996677794032097`*^9}, {3.799667842434082*^9, 3.799667857194471*^9}, {3.7996679009906673`*^9, 3.799668391262459*^9}, { 3.7996684274722013`*^9, 3.799668489582037*^9}, {3.7996691564030867`*^9, 3.799669180635517*^9}, {3.799673758855599*^9, 3.799673813956582*^9}, { 3.799674012220592*^9, 3.799674027559526*^9}, {3.7996740586365643`*^9, 3.7996740701686277`*^9}, 3.799674111529831*^9, {3.7996749349933662`*^9, 3.799674935180553*^9}, {3.799680448082368*^9, 3.799680474211626*^9}, { 3.799680504245632*^9, 3.799680507779004*^9}, {3.7996805571915913`*^9, 3.799680593163108*^9}, {3.79968063818042*^9, 3.7996806583708897`*^9}, { 3.799680710756279*^9, 3.799680722963538*^9}, {3.799742549027727*^9, 3.799742558897811*^9}, {3.799742848637076*^9, 3.799742877547081*^9}, 3.79974968052695*^9, {3.800110408025049*^9, 3.800110423270626*^9}, 3.8001105801066637`*^9, {3.800113204589576*^9, 3.800113240658511*^9}, { 3.800113277365058*^9, 3.800113431628422*^9}, 3.8001138079198523`*^9, { 3.800129775525394*^9, 3.800129812330913*^9}, {3.800130347534215*^9, 3.800130347644684*^9}, {3.8001305561858673`*^9, 3.800130556255453*^9}, { 3.800133811207649*^9, 3.80013381327802*^9}, {3.8003068797664423`*^9, 3.8003069223509197`*^9}, {3.800306958597094*^9, 3.8003069741200237`*^9}, { 3.800307017634788*^9, 3.800307051356757*^9}, {3.800307118786977*^9, 3.800307131307004*^9}, {3.8003072495480824`*^9, 3.800307252440155*^9}, { 3.8003489462704763`*^9, 3.8003489699232273`*^9}, {3.800349383936224*^9, 3.800349386912991*^9}, {3.8004487140976667`*^9, 3.800448726072503*^9}, { 3.8004490575090103`*^9, 3.8004491021805162`*^9}, {3.8293182636346874`*^9, 3.8293182737861366`*^9}}, CellLabel-> "In[156]:=",ExpressionUUID->"ca1a835c-0ca3-4a19-9cc3-00175cbc071e"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"(", "\[NoBreak]", GridBox[{ {"True", "True", "True", "True"}, {"True", "True", "True", "True"}, {"True", "True", "True", "True"}, {"True", "True", "True", "True"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", GridBox[{ {"True", "True", "True", "True"}, {"True", "True", "True", "True"}, {"True", "True", "True", "True"}, {"True", "True", "True", "True"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", GridBox[{ {"True", "True", "True", "True"}, {"True", "True", "True", "True"}, {"True", "True", "True", "True"}, {"True", "True", "True", "True"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", GridBox[{ {"True", "True", "True", "True"}, {"True", "True", "True", "True"}, {"True", "True", "True", "True"}, {"True", "True", "True", "True"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}]}, { RowBox[{"(", "\[NoBreak]", GridBox[{ {"True", "True", "True", "True"}, {"True", "True", "True", "True"}, {"True", "True", "True", "True"}, {"True", "True", "True", "True"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", GridBox[{ {"True", "True", "True", "True"}, {"True", "True", "True", "True"}, {"True", "True", "True", "True"}, {"True", "True", "True", "True"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", GridBox[{ {"True", "True", "True", "True"}, {"True", "True", "True", "True"}, {"True", "True", "True", "True"}, {"True", "True", "True", "True"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", GridBox[{ {"True", "True", "True", "True"}, {"True", "True", "True", "True"}, {"True", "True", "True", "True"}, {"True", "True", "True", "True"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"(", "\[NoBreak]", GridBox[{ {"True", "True", "True", "True"}, {"True", "True", "True", "True"}, {"True", "True", "True", "True"}, {"True", "True", "True", "True"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", GridBox[{ {"True", "True", "True", "True"}, {"True", "True", "True", "True"}, {"True", "True", "True", "True"}, {"True", "True", "True", "True"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", GridBox[{ {"True", "True", "True", "True"}, {"True", "True", "True", "True"}, {"True", "True", "True", "True"}, {"True", "True", "True", "True"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", GridBox[{ {"True", "True", "True", "True"}, {"True", "True", "True", "True"}, {"True", "True", "True", "True"}, {"True", "True", "True", "True"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}]}, { RowBox[{"(", "\[NoBreak]", GridBox[{ {"True", "True", "True", "True"}, {"True", "True", "True", "True"}, {"True", "True", "True", "True"}, {"True", "True", "True", "True"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", GridBox[{ {"True", "True", "True", "True"}, {"True", "True", "True", "True"}, {"True", "True", "True", "True"}, {"True", "True", "True", "True"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", GridBox[{ {"True", "True", "True", "True"}, {"True", "True", "True", "True"}, {"True", "True", "True", "True"}, {"True", "True", "True", "True"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", GridBox[{ {"True", "True", "True", "True"}, {"True", "True", "True", "True"}, {"True", "True", "True", "True"}, {"True", "True", "True", "True"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}]}, { RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"(", "\[NoBreak]", GridBox[{ {"True", "True", "True", "True"}, {"True", "True", "True", "True"}, {"True", "True", "True", "True"}, {"True", "True", "True", "True"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", GridBox[{ {"True", "True", "True", "True"}, {"True", "True", "True", "True"}, {"True", "True", "True", "True"}, {"True", "True", "True", "True"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", GridBox[{ {"True", "True", "True", "True"}, {"True", "True", "True", "True"}, {"True", "True", "True", "True"}, {"True", "True", "True", "True"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", GridBox[{ {"True", "True", "True", "True"}, {"True", "True", "True", "True"}, {"True", "True", "True", "True"}, {"True", "True", "True", "True"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}]}, { RowBox[{"(", "\[NoBreak]", GridBox[{ {"True", "True", "True", "True"}, {"True", "True", "True", "True"}, {"True", "True", "True", "True"}, {"True", "True", "True", "True"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", GridBox[{ {"True", "True", "True", "True"}, {"True", "True", "True", "True"}, {"True", "True", "True", "True"}, {"True", "True", "True", "True"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", GridBox[{ {"True", "True", "True", "True"}, {"True", "True", "True", "True"}, {"True", "True", "True", "True"}, {"True", "True", "True", "True"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", GridBox[{ {"True", "True", "True", "True"}, {"True", "True", "True", "True"}, {"True", "True", "True", "True"}, {"True", "True", "True", "True"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"(", "\[NoBreak]", GridBox[{ {"True", "True", "True", "True"}, {"True", "True", "True", "True"}, {"True", "True", "True", "True"}, {"True", "True", "True", "True"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", GridBox[{ {"True", "True", "True", "True"}, {"True", "True", "True", "True"}, {"True", "True", "True", "True"}, {"True", "True", "True", "True"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", GridBox[{ {"True", "True", "True", "True"}, {"True", "True", "True", "True"}, {"True", "True", "True", "True"}, {"True", "True", "True", "True"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", GridBox[{ {"True", "True", "True", "True"}, {"True", "True", "True", "True"}, {"True", "True", "True", "True"}, {"True", "True", "True", "True"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}]}, { RowBox[{"(", "\[NoBreak]", GridBox[{ {"True", "True", "True", "True"}, {"True", "True", "True", "True"}, {"True", "True", "True", "True"}, {"True", "True", "True", "True"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", GridBox[{ {"True", "True", "True", "True"}, {"True", "True", "True", "True"}, {"True", "True", "True", "True"}, {"True", "True", "True", "True"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", GridBox[{ {"True", "True", "True", "True"}, {"True", "True", "True", "True"}, {"True", "True", "True", "True"}, {"True", "True", "True", "True"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", GridBox[{ {"True", "True", "True", "True"}, {"True", "True", "True", "True"}, {"True", "True", "True", "True"}, {"True", "True", "True", "True"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.800530772944848*^9, 3.800530851819811*^9, 3.800530936467722*^9, 3.800531003481907*^9, 3.800531065077841*^9, 3.8005311064570627`*^9, 3.800531186112052*^9, {3.800531255314127*^9, 3.800531274431028*^9}, 3.8005368626944647`*^9, 3.800809899400735*^9, 3.826162334408609*^9, { 3.826163525692699*^9, 3.82616356639515*^9}, 3.8261636575237007`*^9, 3.826163743684807*^9, 3.8261638208342237`*^9, {3.826163932108549*^9, 3.826163958974188*^9}, 3.829318279869957*^9, 3.8458154525014167`*^9}, CellLabel-> "Out[156]//MatrixForm=",ExpressionUUID->"4bc5ebca-6646-42f3-83e2-\ c80ed014cb2f"] }, Open ]] }, Open ]] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Holoraumy", "Chapter", CellChangeTimes->{{3.7988403669505777`*^9, 3.798840383841613*^9}},ExpressionUUID->"d5b4da9d-06df-42b4-9ed3-\ c3a8a7198c7b"], Cell[CellGroupData[{ Cell["Vector 00 ", "Section", CellChangeTimes->{{3.798821906448997*^9, 3.7988219084342203`*^9}, { 3.798837384268985*^9, 3.79883738462739*^9}, {3.798838865009379*^9, 3.7988388654529257`*^9}},ExpressionUUID->"db7067a3-3038-4346-ae16-\ 35f0ebb5d558"], Cell[CellGroupData[{ Cell["A", "Subsection", CellChangeTimes->{{3.798836364100836*^9, 3.798836366153274*^9}, 3.7988416612379713`*^9},ExpressionUUID->"2cac4fa9-4636-49cf-bbd4-\ 69bd68cc4464"], Cell[BoxData[ RowBox[{ RowBox[{"AVMHol00", " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2"}], RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{"(", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}], ")"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", FractionBox["1", "2"], ")"}], RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"CommuteGammadown", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Fmn", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}]}], ";"}]], "Input", CellChangeTimes->{{3.79665881060737*^9, 3.7966588343617153`*^9}, { 3.796658990845476*^9, 3.796658991577113*^9}, {3.798840641952181*^9, 3.798840669828863*^9}, 3.7988407246069813`*^9, {3.799751572301086*^9, 3.799751573250265*^9}, {3.800141569082149*^9, 3.800141577797751*^9}}, CellLabel-> "In[157]:=",ExpressionUUID->"8d9c7d7e-5b27-4f07-8124-3a2fffcefed2"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"HoloraumyTil0", "[", RowBox[{ RowBox[{"A", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "\[Equal]", " ", "AVMHol00"}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.798840681966331*^9, 3.79884070926488*^9}, { 3.7997515783145933`*^9, 3.79975157842902*^9}}, CellLabel-> "In[158]:=",ExpressionUUID->"9dd48f13-e22a-472c-aff3-0a544c81aab2"], Cell[BoxData["True"], "Output", CellChangeTimes->{{3.79884069819337*^9, 3.798840711161048*^9}, 3.798845551315284*^9, 3.79889274650767*^9, 3.798892997322013*^9, 3.7988943541264477`*^9, {3.7988945383925657`*^9, 3.798894545817864*^9}, 3.798903237581191*^9, 3.798917676885323*^9, 3.7990578697749166`*^9, 3.799060648178184*^9, 3.799069066664143*^9, 3.799316776501533*^9, 3.799492383488402*^9, 3.799530193132287*^9, 3.799533305946472*^9, 3.7995789932253227`*^9, 3.799610273252904*^9, 3.799699875648713*^9, 3.799741859224368*^9, 3.799746533025914*^9, 3.799751537370843*^9, 3.799751582574925*^9, 3.799752710518367*^9, 3.7997597435212*^9, 3.8001105979621887`*^9, 3.800141612103531*^9, 3.800213618615615*^9, 3.8002175438813553`*^9, 3.8003966313651333`*^9, 3.800396670589772*^9, 3.800536862895668*^9, 3.8007868948400593`*^9, 3.800809899556114*^9, 3.826162334464099*^9, 3.826163100643702*^9, 3.82616398582563*^9, 3.8293259934221935`*^9, 3.8458154529856896`*^9}, CellLabel-> "Out[158]=",ExpressionUUID->"b252ac81-18ca-4941-9d86-e55303f7765a"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["B", "Subsection", CellChangeTimes->{{3.798836364100836*^9, 3.798836366153274*^9}, { 3.798836416200686*^9, 3.798836416547799*^9}, 3.798841652952311*^9},ExpressionUUID->"0e39866f-63c5-47d5-8c0e-\ fed105c849b9"], Cell[BoxData[ RowBox[{ RowBox[{"BVMHol00", " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"2", RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{"(", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"A", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}], ")"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", FractionBox["I", "2"], ")"}], RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"\[Gamma]5", ".", RowBox[{"CommuteGammadown", "[", RowBox[{"mu", ",", "nu"}], "]"}]}], ")"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Fmn", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}]}], ";"}]], "Input", CellChangeTimes->{{3.798840767369033*^9, 3.7988407829659348`*^9}, { 3.798840815314221*^9, 3.798840822970796*^9}, {3.7997515859104023`*^9, 3.799751586021707*^9}, 3.8001416090008173`*^9}, CellLabel-> "In[159]:=",ExpressionUUID->"c3c83622-4743-4272-b0dd-cc02901115c6"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"HoloraumyTil0", "[", RowBox[{ RowBox[{"B", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "\[Equal]", " ", "BVMHol00"}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.7988407952265873`*^9, 3.798840797232782*^9}, { 3.7997515892890463`*^9, 3.799751589385982*^9}}, CellLabel-> "In[160]:=",ExpressionUUID->"b3d3baa1-8088-455c-b9da-88a3b4d78d8c"], Cell[BoxData["True"], "Output", CellChangeTimes->{{3.798840799658635*^9, 3.79884081808923*^9}, 3.7988455513655357`*^9, 3.798892746570017*^9, 3.798892997403509*^9, 3.798894354278399*^9, {3.7988945384538603`*^9, 3.798894545865869*^9}, 3.7989032376635723`*^9, 3.798917676942066*^9, 3.799057869879277*^9, 3.799060648245111*^9, 3.7990690667447*^9, 3.799316776581789*^9, 3.7994923835515842`*^9, 3.7995301931866417`*^9, 3.799533306011958*^9, 3.7995789932919683`*^9, 3.799610273312119*^9, 3.7996998757296352`*^9, 3.799741859325972*^9, 3.79974653309417*^9, 3.799751537426046*^9, 3.799751605338751*^9, 3.799752710578123*^9, 3.799759743619485*^9, 3.800110598053379*^9, 3.800141616985847*^9, 3.800213618660872*^9, 3.800217543922575*^9, 3.800396631435485*^9, 3.800396670630498*^9, 3.800536862960194*^9, 3.800786894894887*^9, 3.800809899591612*^9, 3.82616233449959*^9, 3.826163100692988*^9, 3.82616398591917*^9, 3.829325993538449*^9, 3.8458154532459393`*^9}, CellLabel-> "Out[160]=",ExpressionUUID->"d89b66f3-329e-4229-96af-a8b6e8f40b27"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ Psi, in the body of the paper is quoted the results upon actually enforcing \ the dirac equation. Below are also given the results including these Dirac \ Equation terms\ \>", "Subsection", CellChangeTimes->{{3.798836364100836*^9, 3.798836366153274*^9}, { 3.798836403106538*^9, 3.798836405346539*^9}, {3.829330813947666*^9, 3.829330846311722*^9}, 3.8293314764541154`*^9},ExpressionUUID->"4a865d48-a20d-423a-a5ee-\ 97ba75245210"], Cell[BoxData[ RowBox[{ RowBox[{"PsiVMHol00", "=", RowBox[{ RowBox[{"Table", "[", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"2", "I"}], ")"}], RowBox[{"Sum", "[", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "gg"}], "]"}], "]"}], RowBox[{ RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "gg", "]"}], "[", "cc", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"gg", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", StyleBox["+", "Code"], RowBox[{ StyleBox[ RowBox[{"(", RowBox[{"2", "I"}], ")"}], "Code"], RowBox[{"Sum", "[", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "gg"}], "]"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"(", RowBox[{"\[Gamma]5", "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "gg", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"gg", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"2", "I"}], ")"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "gg"}], "]"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"(", RowBox[{"\[Gamma]5", "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "gg", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"gg", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], RowBox[{"I", "/", "4"}]}], ")"}], " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "gg"}], "]"}], "]"}], RowBox[{ RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Gamma]stdown", "[", "mu", "]"}], ".", RowBox[{"\[Gamma]", "[", "la", "]"}]}], ")"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "gg", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"gg", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "I"}], "/", "32"}], ")"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "gg"}], "]"}], "]"}], RowBox[{ RowBox[{"CommuteGammadown", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"CommuteGammastdown", "[", RowBox[{"mu", ",", "nu"}], "]"}], ".", RowBox[{"\[Gamma]", "[", "la", "]"}]}], ")"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "gg", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"gg", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "I"}], "/", "4"}], ")"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{"KroneckerDelta", "[", RowBox[{"kk", ",", "gg"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Gamma]5\[Gamma]stdown", "[", "mu", "]"}], ".", RowBox[{"\[Gamma]", "[", "la", "]"}]}], ")"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "gg", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"gg", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], RowBox[{"I", "/", "4"}]}], ")"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{"KroneckerDelta", "[", RowBox[{"kk", ",", "gg"}], "]"}], RowBox[{"Cmetric", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"(", RowBox[{"(", RowBox[{ RowBox[{"\[Gamma]", "[", "la", "]"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], ")"}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "gg", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"gg", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], RowBox[{"I", "/", "4"}]}], ")"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{"KroneckerDelta", "[", RowBox[{"kk", ",", "gg"}], "]"}], RowBox[{"\[Gamma]5down", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"(", RowBox[{"(", RowBox[{ RowBox[{"\[Gamma]5\[Gamma]", "[", "la", "]"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], ")"}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "gg", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"gg", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], RowBox[{"I", "/", "4"}]}], ")"}], " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"gg", ",", "kk"}], "]"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Gamma]5\[Gamma]stdown", "[", "mu", "]"}], ".", RowBox[{"\[Gamma]", "[", "la", "]"}]}], ")"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "gg", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"gg", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"3", RowBox[{"I", "/", "4"}]}], ")"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "gg"}], "]"}], "]"}], RowBox[{"Cmetric", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"(", RowBox[{"(", RowBox[{ RowBox[{"\[Gamma]", "[", "la", "]"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], ")"}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "gg", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"gg", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{"3", RowBox[{"I", "/", "4"}]}], ")"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "gg"}], "]"}], "]"}], RowBox[{"\[Gamma]5down", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"(", RowBox[{"(", RowBox[{ RowBox[{"\[Gamma]5\[Gamma]", "[", "la", "]"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], ")"}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "gg", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"gg", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], RowBox[{"I", "/", "4"}]}], ")"}], " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"gg", ",", "kk"}], "]"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Gamma]5\[Gamma]stdown", "[", "mu", "]"}], ".", RowBox[{"\[Gamma]", "[", "la", "]"}]}], ")"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "gg", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"gg", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{"3", RowBox[{"I", "/", "4"}]}], ")"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "gg"}], "]"}], "]"}], RowBox[{"Cmetric", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"(", RowBox[{"(", RowBox[{ RowBox[{"\[Gamma]", "[", "la", "]"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], ")"}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "gg", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"gg", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{"3", RowBox[{"I", "/", "4"}]}], ")"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "gg"}], "]"}], "]"}], RowBox[{"\[Gamma]5down", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"(", RowBox[{"(", RowBox[{ RowBox[{"\[Gamma]5\[Gamma]", "[", "la", "]"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], ")"}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "gg", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"gg", ",", "1", ",", "2"}], "}"}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"cc", ",", "1", ",", "4"}], "}"}]}], "]"}], "//", "Simplify"}]}], ";"}]], "Input", CellChangeTimes->{{3.8002140319952917`*^9, 3.800214037545857*^9}, 3.8002143636457787`*^9, {3.80021765525688*^9, 3.8002176561444473`*^9}, { 3.800787270907477*^9, 3.8007873243275347`*^9}, {3.829329334749453*^9, 3.8293293359335413`*^9}}, CellLabel-> "In[297]:=",ExpressionUUID->"7e44f393-6da4-40a7-81b3-89e782fd95e4"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"cV1", "[", RowBox[{"VM", ",", "0", ",", "0"}], "]"}], "[", RowBox[{"ii_", ",", "jj_", ",", "kk_", ",", "ll_"}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"cV2", "[", RowBox[{"VM", ",", "0", ",", "0"}], "]"}], "[", RowBox[{"ii_", ",", "jj_", ",", "kk_", ",", "ll_"}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}]}]}]}], "Input", CellChangeTimes->{{3.829328584130349*^9, 3.8293285885259075`*^9}, { 3.8293292199364653`*^9, 3.829329305038985*^9}, {3.8293293554279704`*^9, 3.8293293563197727`*^9}, {3.8293302488438416`*^9, 3.829330249485343*^9}, { 3.82933043106215*^9, 3.829330432779889*^9}, {3.8293307854188824`*^9, 3.829330788703658*^9}, {3.845815862093577*^9, 3.845815907495451*^9}}, CellLabel-> "In[298]:=",ExpressionUUID->"54a7b2e7-0e21-479c-90d8-22b43e4ed91f"], Cell[BoxData[ RowBox[{ RowBox[{"PsiVMHol00Paper", " ", "=", RowBox[{"2", " ", "I", " ", RowBox[{"Table", "[", " ", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{"cV1", "[", RowBox[{"VM", ",", "0", ",", "0"}], "]"}], "[", RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], RowBox[{ RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"KroneckerDelta", "[", RowBox[{"cc", ",", "dd"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{ RowBox[{"cV2", "[", RowBox[{"VM", ",", "0", ",", "0"}], "]"}], "[", RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"\[Gamma]5", "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}]}]}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "ll", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}], " ", ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"cc", ",", "1", ",", "4"}], "}"}]}], "]"}]}]}], ";"}]], "Input",\ CellChangeTimes->{{3.829328334461603*^9, 3.8293285403785467`*^9}, 3.8293285738544903`*^9, 3.829329322832142*^9, {3.8293293604782352`*^9, 3.829329363481477*^9}, {3.829330018362094*^9, 3.829330020433*^9}, { 3.8293307521986647`*^9, 3.829330757953205*^9}, {3.8458159546797504`*^9, 3.845815965454909*^9}}, CellLabel-> "In[300]:=",ExpressionUUID->"b330ae0f-3118-496f-a5f8-fe4588b98fd6"], Cell[BoxData[ RowBox[{ RowBox[{"PsiVMHol00Math", " ", "=", " ", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "kk", "]"}], "[", "cc", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}], "-", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "kk", "]"}], "[", "cc", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"cc", ",", "1", ",", "4"}], "}"}]}], "]"}], "//", "Simplify"}]}], ";"}]], "Input", CellChangeTimes->{{3.7988415483773623`*^9, 3.798841551447006*^9}, { 3.798841603972681*^9, 3.798841616793243*^9}, {3.7997517518259573`*^9, 3.799751752189025*^9}, {3.8293293741454706`*^9, 3.829329376016464*^9}}, CellLabel-> "In[301]:=",ExpressionUUID->"d491ae73-5745-41cf-8d61-24c190269b43"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"PsiVMHol00", "==", "PsiVMHol00Math"}], "//", "Simplify"}]], "Input",\ CellChangeTimes->{{3.7988416097327538`*^9, 3.798841613087449*^9}, { 3.799751755955309*^9, 3.799751760033826*^9}, {3.800214020583148*^9, 3.800214020923943*^9}}, CellLabel-> "In[302]:=",ExpressionUUID->"4c08249a-ba4d-4133-9404-8c4f3c9e45af"], Cell[BoxData["True"], "Output", CellChangeTimes->{ 3.798841628032035*^9, 3.798845557801482*^9, 3.798892753098806*^9, 3.798893003950015*^9, 3.798894361129386*^9, {3.7988945450035133`*^9, 3.7988945521567307`*^9}, 3.798903244249564*^9, 3.798917683115699*^9, 3.799057876750783*^9, 3.799060654900738*^9, 3.7990690738329277`*^9, 3.7993167836010733`*^9, 3.79949239006674*^9, 3.7995301994106083`*^9, 3.799533312355159*^9, 3.799579000137525*^9, 3.7996102803110743`*^9, 3.799699882384398*^9, 3.79974186629212*^9, 3.7997465401069717`*^9, 3.799751544381958*^9, 3.79975176909289*^9, 3.799752717472624*^9, 3.799759750736472*^9, 3.800110604669684*^9, {3.800213560969955*^9, 3.800213587054772*^9}, {3.800213628302559*^9, 3.800213709537196*^9}, 3.800213742161241*^9, 3.800213773170004*^9, {3.800213862234108*^9, 3.800213955035883*^9}, 3.800214054696854*^9, 3.800214119656983*^9, 3.800214159383868*^9, 3.800214216684534*^9, 3.800214246907003*^9, 3.800214385802041*^9, 3.800217557065325*^9, 3.8002176753698072`*^9, 3.800396599432179*^9, 3.800396637841682*^9, 3.8003966770316877`*^9, 3.8005368698106327`*^9, 3.800786901614202*^9, 3.800787337259201*^9, 3.800809906722315*^9, 3.826162340686969*^9, 3.8261631075636263`*^9, 3.826163998831059*^9, 3.8293260010197988`*^9, 3.829329379666219*^9, 3.82933002713818*^9, {3.829330765399143*^9, 3.8293307945821667`*^9}, 3.8458154605005827`*^9, 3.8458160054053445`*^9}, CellLabel-> "Out[302]=",ExpressionUUID->"cf5b079a-fab0-4c47-98fd-b9d1e9e0bc84"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"PsiVMHol00Paper", "\[Equal]", "PsiVMHol00Math"}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.829329381654877*^9, 3.829329403569124*^9}}, CellLabel-> "In[303]:=",ExpressionUUID->"a1a3992a-6e35-4ef3-b670-113802a2f07b"], Cell[BoxData[ InterpretationBox[ TagBox[ FrameBox[GridBox[{ { ItemBox[ TagBox[ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "1", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "1", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "1", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "1", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "1", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "1", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "1", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "1", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "1", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "1", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "1", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "1", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{ TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", TemplateBox[{"5"}, "OutputSizeLimit`Skeleton"]}], ")"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], ")"}]}], ",", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "1", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "1", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "1", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "1", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "1", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "1", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], ",", "0"}], "}"}]}], "}"}], ",", TemplateBox[{"2"}, "OutputSizeLimit`Skeleton"], ",", RowBox[{"{", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], "}"}]}], "}"}], ",", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"]}], "}"}], ",", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"]}], "}"}], ",", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"]}], "}"}], "\[Equal]", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"]}], Short[#, 5]& ], BaseStyle->{Deployed -> False}, StripOnInput->False]}, {GridBox[{ { PaneBox[ TagBox[ TooltipBox[ StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource[ "FEStrings", "sizeBriefExplanation"], StandardForm], ImageSizeCache->{82., {4., 11.}}], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLText", StripOnInput->False], StyleBox[ DynamicBox[ ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"], StandardForm]], DynamicUpdating -> True, LineIndent -> 0, LinebreakAdjustments -> {1., 100, 0, 0, 0}, LineSpacing -> {1, 2}, StripOnInput -> False]], Annotation[#, Style[ Dynamic[ FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"]], DynamicUpdating -> True, LineIndent -> 0, LinebreakAdjustments -> {1., 100, 0, 0, 0}, LineSpacing -> {1, 2}], "Tooltip"]& ], Alignment->Center, BaselinePosition->Baseline, ImageSize->{Automatic, {25, Full}}], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], StandardForm], ImageSizeCache->{67., {1., 11.}}], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl", StripOnInput->False], True-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], StandardForm]], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive", StripOnInput->False]}, Dynamic[ CurrentValue["MouseOver"]], Alignment->Center, FrameMargins->0, ImageSize->{Automatic, {25, Full}}], Appearance->None, BaselinePosition->Baseline, ButtonFunction:>OutputSizeLimit`ButtonFunction[ OutputSizeLimit`Defer, 303, 21660477292722285316, 5/2], Enabled->True, Evaluator->Automatic, Method->"Queued"], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], StandardForm], ImageSizeCache->{78., {1., 11.}}], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl", StripOnInput->False], True-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], StandardForm]], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive", StripOnInput->False]}, Dynamic[ CurrentValue["MouseOver"]], Alignment->Center, FrameMargins->0, ImageSize->{Automatic, {25, Full}}], Appearance->None, BaselinePosition->Baseline, ButtonFunction:>OutputSizeLimit`ButtonFunction[ OutputSizeLimit`Defer, 303, 21660477292722285316, 5 2], Enabled->True, Evaluator->Automatic, Method->"Queued"], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], StandardForm], ImageSizeCache->{58., {1., 11.}}], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl", StripOnInput->False], True-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], StandardForm]], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive", StripOnInput->False]}, Dynamic[ CurrentValue["MouseOver"]], Alignment->Center, FrameMargins->0, ImageSize->{Automatic, {25, Full}}], Appearance->None, BaselinePosition->Baseline, ButtonFunction:>OutputSizeLimit`ButtonFunction[ OutputSizeLimit`Defer, 303, 21660477292722285316, Infinity], Enabled->True, Evaluator->Automatic, Method->"Queued"], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], StandardForm], ImageSizeCache->{99., {1., 11.}}], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl", StripOnInput->False], True-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], StandardForm]], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive", StripOnInput->False]}, Dynamic[ CurrentValue["MouseOver"]], Alignment->Center, FrameMargins->0, ImageSize->{Automatic, {25, Full}}], Appearance->None, BaselinePosition->Baseline, ButtonFunction:>FrontEndExecute[{ FrontEnd`SetOptions[ FrontEnd`$FrontEnd, FrontEnd`PreferencesSettings -> {"Page" -> "Advanced"}], FrontEnd`FrontEndToken["PreferencesDialog"]}], Evaluator->None, Method->"Preemptive"]} }, AutoDelete->False, FrameStyle->GrayLevel[0.85], GridBoxDividers->{"Columns" -> {False, {True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], Offset[1.2], { Offset[0.4]}, Offset[0.2]}}], BaseStyle->"OutputSizeLimit", FrameMargins->{{12, 12}, {0, 15}}, FrameStyle->GrayLevel[0.85], RoundingRadius->5, StripOnInput->False], Deploy, DefaultBaseStyle->"Deploy"], If[21660477292722285316 === $SessionID, Out[303], Message[ MessageName[Syntax, "noinfoker"]]; Missing["NotAvailable"]; Null]]], "Output", CellChangeTimes->{{3.8293293984700084`*^9, 3.829329409653529*^9}, 3.8293300317208443`*^9, 3.829330447119775*^9, {3.829330769963066*^9, 3.829330795087614*^9}, 3.8458154610498257`*^9, 3.845816005749016*^9}, CellLabel-> "Out[303]=",ExpressionUUID->"548313cd-6834-4988-9b3b-dea4b8622de2"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"DiracEquation\[CapitalPsi]", "[", "ti_", "]"}], "[", "ll_", "]"}], "[", "aa_", "]"}], ":=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]up", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "ti", "]"}], "[", "ll", "]"}], "[", "bb", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.8293294210212736`*^9, 3.8293295135683775`*^9}, { 3.829329701596834*^9, 3.8293297016969714`*^9}}, CellLabel-> "In[304]:=",ExpressionUUID->"e6d36faf-c7e4-4a67-a311-0fc7a53b0dae"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"EnforceDiracEquation", " ", "=", " ", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"DiracEquation\[CapitalPsi]", "[", "ti", "]"}], "[", "ll", "]"}], "[", "aa", "]"}], "\[Equal]", "0"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "ti", "]"}], "[", "ll", "]"}], "[", "aa", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "t"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"ti", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}], "//", "Flatten"}]}]], "Input", CellChangeTimes->{{3.829329516752368*^9, 3.829329528456372*^9}, { 3.829329559773484*^9, 3.829329577977012*^9}, {3.829329623992008*^9, 3.8293296242801733`*^9}, {3.8293296729031086`*^9, 3.829329800574537*^9}}, CellLabel-> "In[305]:=",ExpressionUUID->"59fb1907-f209-41c7-b05f-9e40de18c7c5"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "1", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "1", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "1", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "1", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "1", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "1", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "\[Rule]", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "1", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "1", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "1", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "\[Rule]", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "1", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "1", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "1", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "2", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "2", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "2", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "2", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "2", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "2", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "2", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "2", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "2", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "\[Rule]", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "2", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "2", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "2", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "2", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "\[Rule]", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "2", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "2", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "2", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "\[Rule]", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "\[Rule]", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "\[Rule]", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "\[Rule]", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]}], "}"}]], "Output", CellChangeTimes->{{3.8293297179659433`*^9, 3.829329744023131*^9}, 3.8293298014223485`*^9, 3.829330039166024*^9, {3.8293307757223797`*^9, 3.829330795298112*^9}, 3.845815461456476*^9, 3.84581600610319*^9}, CellLabel-> "Out[305]=",ExpressionUUID->"5ac47924-e1d1-421d-a2cd-6891dd5a477f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Collect", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"PsiVMHol00Paper", "==", "PsiVMHol00Math"}], ")"}], "//.", "EnforceDiracEquation"}], ",", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "_", "]"}], "[", "_", "]"}], "[", "_", "]"}], TagBox[ RowBox[{"(", RowBox[{"_", ",", "_", ",", "_", ",", "_"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "Simplify"}], "]"}]], "Input", CellChangeTimes->{{3.8293298119290857`*^9, 3.829329815132059*^9}, { 3.8293298521290927`*^9, 3.8293298656820908`*^9}, {3.8293300474102507`*^9, 3.8293301205527525`*^9}, {3.829330163452524*^9, 3.829330229937064*^9}, { 3.829330284048031*^9, 3.829330299577385*^9}, {3.829330456253538*^9, 3.829330533113747*^9}, {3.8293307997440743`*^9, 3.8293308048910913`*^9}}, CellLabel-> "In[306]:=",ExpressionUUID->"004cfac3-ff34-4735-870b-9e34ff4bc8be"], Cell[BoxData["True"], "Output", CellChangeTimes->{ 3.8293298254054365`*^9, 3.8293298667860155`*^9, {3.8293300440766077`*^9, 3.8293301212269545`*^9}, {3.829330164499998*^9, 3.8293302305462503`*^9}, { 3.829330265093914*^9, 3.8293303003588333`*^9}, 3.8293304518897934`*^9, { 3.8293304830783143`*^9, 3.8293305335331554`*^9}, {3.829330779209958*^9, 3.8293308057682467`*^9}, 3.8458154615814486`*^9, 3.8458160062593718`*^9}, CellLabel-> "Out[306]=",ExpressionUUID->"d0275931-87de-457b-b7fc-7e9188ba67e4"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Vector", "Subsection", CellChangeTimes->{{3.79882231017908*^9, 3.798822311983996*^9}},ExpressionUUID->"36173f54-ac68-4473-ba48-\ d64342dcab56"], Cell[BoxData[ RowBox[{ RowBox[{"AvecHol00", " ", "=", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"CommuteGammastdownstupdown", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"A", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", " ", RowBox[{"\[CapitalStigma]", "[", "nu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}], "+", " ", RowBox[{"I", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"\[Gamma]5", "[", RowBox[{"[", RowBox[{"aa", ",", "cc"}], "]"}], "]"}], RowBox[{ RowBox[{"CommuteGammastdownstupdown", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"[", RowBox[{"cc", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "nu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"cc", ",", "1", ",", "4"}], "}"}]}], "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"-", " ", RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}]}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"\[Epsilon]downupupup", "[", RowBox[{"mu", ",", "nu", ",", "al", ",", "be"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]stdowndown", "[", "nu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"Fmn", "[", RowBox[{"al", ",", "be"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"al", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"be", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}]}], ";"}]], "Input", CellChangeTimes->{{3.798841067957748*^9, 3.798841114378295*^9}, { 3.800141635044832*^9, 3.800141660345348*^9}}, CellLabel-> "In[171]:=",ExpressionUUID->"f3204092-902b-409c-8559-6af77912f8e5"], Cell[BoxData[ RowBox[{ RowBox[{"AvecHol00Math", "=", " ", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"Avec", "[", "0", "]"}], "[", "mu", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}], "-", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"Avec", "[", "0", "]"}], "[", "mu", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}]}], ";"}]], "Input", CellChangeTimes->{{3.798841127932019*^9, 3.798841192534717*^9}, { 3.7988412529701443`*^9, 3.7988412861370487`*^9}}, CellLabel-> "In[172]:=",ExpressionUUID->"84f174c5-c86b-4759-9d09-6980ddac3f4c"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"AvecHol00Math", "\[Equal]", " ", "AvecHol00"}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.798841141529367*^9, 3.7988411458808107`*^9}, 3.798841251490387*^9, 3.7988412823069963`*^9}, CellLabel-> "In[173]:=",ExpressionUUID->"23c27fec-d253-4679-bf88-79963b7c1d4a"], Cell[BoxData["True"], "Output", CellChangeTimes->{{3.798841150370398*^9, 3.7988411949922543`*^9}, { 3.798841282751026*^9, 3.7988412955318527`*^9}, 3.7988455579516077`*^9, 3.798892753257265*^9, 3.798893004062035*^9, 3.798894361870865*^9, { 3.798894545164426*^9, 3.7988945522507563`*^9}, 3.798903244408658*^9, 3.798917683256072*^9, 3.799057876913121*^9, 3.799060655023141*^9, 3.799064010967266*^9, 3.799069073979992*^9, 3.799316783759342*^9, 3.799492390226696*^9, 3.799530199563838*^9, 3.7995333124879093`*^9, 3.799579000270865*^9, 3.799610280498542*^9, 3.799699882549748*^9, 3.7997418664570847`*^9, 3.799746540269902*^9, 3.799751544519927*^9, 3.799752717666052*^9, 3.799759750897078*^9, 3.800110604837533*^9, { 3.800141640470662*^9, 3.8001416627185698`*^9}, 3.8002136284125757`*^9, 3.800217557216502*^9, 3.800396637999305*^9, 3.8003966771608753`*^9, 3.80053687000412*^9, 3.800786901750638*^9, 3.8008099068288813`*^9, 3.826162340817423*^9, 3.8261631077244883`*^9, 3.826163999098617*^9, 3.8293260012167845`*^9, 3.8458154619251184`*^9}, CellLabel-> "Out[173]=",ExpressionUUID->"59c47936-b1bc-4ec2-a145-bbe4f8041f74"] }, Open ]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Tensor 00 ", "Section", CellChangeTimes->{{3.798821915864984*^9, 3.798821918323616*^9}, 3.7988373883778276`*^9, {3.798838861089156*^9, 3.798838861912866*^9}},ExpressionUUID->"b51ecc25-3bf7-454e-8aa1-\ d07d3eb4a58f"], Cell[CellGroupData[{ Cell["A", "Subsection", CellChangeTimes->{ 3.798836859060895*^9},ExpressionUUID->"3664f4dc-40c1-4454-9cea-\ 7c2ecefe6b2b"], Cell[BoxData[ RowBox[{ RowBox[{"ATMHol00", " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"2", RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"(", RowBox[{"-", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], ")"}]}], "\[IndentingNewLine]", "+", RowBox[{"2", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"\[CurlyPhi]", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", " ", RowBox[{ FractionBox[ RowBox[{" ", "2"}], "3"], RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"\[Epsilon]downupupup", "[", RowBox[{"mu", ",", "nu", ",", "al", ",", "be"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"Hmna", "[", RowBox[{"nu", ",", "al", ",", "be"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"al", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"be", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}]}], ";"}]], "Input", CellChangeTimes->{{3.798841759889715*^9, 3.798841799596837*^9}, { 3.7988418391720123`*^9, 3.798841841612546*^9}, {3.7997518550777683`*^9, 3.79975185572827*^9}, 3.800141669943269*^9}, CellLabel-> "In[307]:=",ExpressionUUID->"d72bc789-a49c-49b4-b0cd-1751efea6000"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"ATMHol00", "\[Equal]", " ", RowBox[{"HoloraumyTil0", "[", RowBox[{ RowBox[{"A", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.798841801389038*^9, 3.798841817184757*^9}, { 3.799751858633217*^9, 3.799751859081285*^9}}, CellLabel-> "In[308]:=",ExpressionUUID->"aef2fc18-a9ad-425a-b24b-638f7c7801b3"], Cell[BoxData["True"], "Output", CellChangeTimes->{{3.798841819751739*^9, 3.798841844122018*^9}, 3.798845558041747*^9, 3.798892753347295*^9, 3.7988932233016644`*^9, 3.798894362091906*^9, 3.7988945523511887`*^9, 3.798917683358961*^9, 3.799057877025551*^9, 3.799060655124708*^9, 3.7990690741021*^9, 3.799316794109851*^9, 3.7994924023818274`*^9, 3.7995301996583033`*^9, 3.799533312579393*^9, 3.79957900037803*^9, 3.799610280634688*^9, 3.799699882655352*^9, 3.799741866564165*^9, 3.7997465403691263`*^9, 3.799751936991912*^9, 3.7997527177935047`*^9, 3.7997597509961443`*^9, 3.800110604944297*^9, 3.800141676384466*^9, 3.800217557330414*^9, 3.800396681132021*^9, 3.8005368701987867`*^9, 3.800803236231312*^9, 3.800809906916251*^9, 3.826162340898613*^9, 3.826163107846448*^9, 3.826163999319628*^9, 3.829326011427388*^9, 3.8458154622453203`*^9, 3.8458160506715894`*^9}, CellLabel-> "Out[308]=",ExpressionUUID->"9c2b93c9-f9d3-42c2-a1e0-71688c0b5f31"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["B", "Subsection", CellChangeTimes->{{3.798836859060895*^9, 3.798836887120772*^9}},ExpressionUUID->"ad1f77c9-dcb8-4133-99e2-\ f20b8fd24dc2"], Cell[BoxData[ RowBox[{ RowBox[{"BTMHol00", "=", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"2", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"A", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], "+", RowBox[{ RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"\[CurlyPhi]", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "-", " ", RowBox[{ FractionBox["2", "3"], RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"\[Epsilon]downupupup", "[", RowBox[{"mu", ",", "nu", ",", "al", ",", "be"}], "]"}], RowBox[{ RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"Hmna", "[", RowBox[{"nu", ",", "al", ",", "be"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"al", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"be", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}]}], ";"}]], "Input", CellChangeTimes->{{3.798841853094886*^9, 3.7988418880048923`*^9}, 3.798841993286139*^9, 3.798842059585662*^9, {3.799751863584154*^9, 3.79975186394028*^9}, {3.800141682941237*^9, 3.800141684710428*^9}}, CellLabel-> "In[309]:=",ExpressionUUID->"b17f6b05-b24d-4b74-b11f-f9c28bb643c7"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"BTMHol00", "\[Equal]", " ", RowBox[{"HoloraumyTil0", "[", RowBox[{ RowBox[{"B", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.7988418577780867`*^9, 3.798841859950241*^9}, { 3.7988420493314667`*^9, 3.798842053387269*^9}, {3.799751861426344*^9, 3.79975186182981*^9}}, CellLabel-> "In[310]:=",ExpressionUUID->"c79715c6-c4a7-4c16-9889-adc48e52af56"], Cell[BoxData["True"], "Output", CellChangeTimes->{ 3.7988418963577547`*^9, {3.7988420539573193`*^9, 3.7988420619585047`*^9}, 3.798845558130395*^9, 3.7988927534302893`*^9, 3.798893223393133*^9, 3.798894362288546*^9, 3.7988945524421377`*^9, 3.798917683450452*^9, 3.799057877121087*^9, 3.79906065521139*^9, 3.799069074203206*^9, 3.799316794258465*^9, 3.7994924024720583`*^9, 3.799530199743726*^9, 3.79953331266243*^9, 3.799579000472063*^9, 3.799610280729323*^9, 3.799699882752633*^9, 3.799741866662991*^9, 3.799746540462249*^9, 3.799751937074069*^9, 3.799752717940579*^9, 3.7997597510894136`*^9, 3.800110605032229*^9, 3.800141691607937*^9, 3.800217557440564*^9, 3.80039668121572*^9, 3.800536870305852*^9, 3.8008034924391403`*^9, 3.800809907007036*^9, 3.826162340977942*^9, 3.826163107959408*^9, 3.826163999477433*^9, 3.8293260115523224`*^9, 3.8458154625604277`*^9, 3.845816050765313*^9}, CellLabel-> "Out[310]=",ExpressionUUID->"9ec54d39-62d6-4c07-aa38-fe219fcc3b34"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["\[CurlyPhi]", "Subsection", CellChangeTimes->{ 3.798836859060895*^9, {3.798836890845826*^9, 3.7988368946150007`*^9}},ExpressionUUID->"e15cc4c4-2bee-4028-a3cb-\ 249b8dd4dab5"], Cell[BoxData[ RowBox[{ RowBox[{"cphiHol00", "=", " ", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"2", RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"(", RowBox[{"-", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], ")"}]}], "\[IndentingNewLine]", "-", RowBox[{"2", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"A", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "-", RowBox[{ FractionBox[ RowBox[{" ", "2"}], "3"], RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"\[Epsilon]downupupup", "[", RowBox[{"mu", ",", "nu", ",", "al", ",", "be"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"Hmna", "[", RowBox[{"nu", ",", "al", ",", "be"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"al", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"be", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}]}], ";"}]], "Input", CellChangeTimes->{{3.798842256613996*^9, 3.798842284935493*^9}, 3.798842318676242*^9, {3.799751884363339*^9, 3.799751886022773*^9}, 3.8001910566196423`*^9}, CellLabel-> "In[311]:=",ExpressionUUID->"248eabdb-2687-441a-9c91-ce23bef1e95f"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"cphiHol00", "\[Equal]", " ", RowBox[{"HoloraumyTil0", "[", RowBox[{ RowBox[{"\[CurlyPhi]", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.798842294472528*^9, 3.798842310488042*^9}, { 3.799751889614065*^9, 3.7997518908289003`*^9}}, CellLabel-> "In[312]:=",ExpressionUUID->"1871d004-399c-4c8e-818b-49a8e5cf29cb"], Cell[BoxData["True"], "Output", CellChangeTimes->{{3.7988423158622923`*^9, 3.798842322037119*^9}, 3.798845559919181*^9, 3.798892755272326*^9, 3.798893225073104*^9, 3.79889436444347*^9, 3.798894554292528*^9, 3.798917685259224*^9, 3.799057879042441*^9, 3.799060656999922*^9, 3.799069076120165*^9, 3.7993167964296722`*^9, 3.799492404162929*^9, 3.799530201450523*^9, 3.799533314492395*^9, 3.799579002324545*^9, 3.799610282594824*^9, 3.799699884560589*^9, 3.79974186855543*^9, 3.7997465424077377`*^9, 3.799751938958991*^9, 3.799752719889147*^9, 3.7997597529122467`*^9, 3.800110606815175*^9, {3.800191036708535*^9, 3.80019105899538*^9}, 3.8002175575316687`*^9, 3.80039668130228*^9, 3.8005368704621058`*^9, 3.8008037705982447`*^9, 3.800809907091161*^9, 3.826162341056983*^9, 3.826163108065878*^9, 3.826163999632003*^9, 3.829326011661685*^9, 3.845815462857233*^9, 3.8458160508590403`*^9}, CellLabel-> "Out[312]=",ExpressionUUID->"3519eae2-34f7-4715-b0ee-54c8a98fbc26"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ Psi, in the body of the paper is quoted the results upon actually enforcing \ the dirac equation. Below are also given the results including these Dirac \ Equation terms\ \>", "Subsection", CellChangeTimes->{ 3.798836859060895*^9, {3.7988368968370047`*^9, 3.7988369164158278`*^9}, 3.8458168475525227`*^9},ExpressionUUID->"1ce5678f-0fe1-4f09-b552-\ 57612234bc1e"], Cell[BoxData[ RowBox[{ RowBox[{"PsiTMHol00", " ", "=", " ", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"+", RowBox[{"(", RowBox[{"-", "I"}], ")"}]}], " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "gg"}], "]"}], "]"}], RowBox[{ RowBox[{"CommuteGammadown", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"(", RowBox[{"\[Gamma]stdown", "[", "mu", "]"}], ")"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "gg", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "nu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"gg", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{"2", "I"}], ")"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{"KroneckerDelta", "[", RowBox[{"kk", ",", "gg"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"(", "\[Gamma]5", ")"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "gg", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"gg", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{"I", "/", "2"}], ")"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "gg"}], "]"}], "]"}], RowBox[{ RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Gamma]stdown", "[", "mu", "]"}], ".", RowBox[{"\[Gamma]", "[", "la", "]"}]}], ")"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "gg", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"gg", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{"I", "/", "8"}], ")"}], " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "gg"}], "]"}], "]"}], RowBox[{ RowBox[{"CommuteGammadown", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"CommuteGammastdown", "[", RowBox[{"mu", ",", "nu"}], "]"}], ".", RowBox[{"\[Gamma]", "[", "la", "]"}]}], ")"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "gg", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"gg", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "I"}], "/", "2"}], ")"}], " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{"KroneckerDelta", "[", RowBox[{"kk", ",", "gg"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Gamma]5\[Gamma]stdown", "[", "mu", "]"}], ".", RowBox[{"\[Gamma]", "[", "la", "]"}]}], ")"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "gg", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"gg", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", "I", ")"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{"KroneckerDelta", "[", RowBox[{"kk", ",", "gg"}], "]"}], RowBox[{"Cmetric", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"(", RowBox[{"(", RowBox[{ RowBox[{"\[Gamma]", "[", "la", "]"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], ")"}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "gg", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"gg", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{"-", "I"}], ")"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{"KroneckerDelta", "[", RowBox[{"kk", ",", "gg"}], "]"}], RowBox[{"\[Gamma]5down", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"(", RowBox[{"(", RowBox[{ RowBox[{"\[Gamma]5\[Gamma]", "[", "la", "]"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], ")"}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "gg", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"gg", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "I"}], "/", "2"}], ")"}], " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"gg", ",", "kk"}], "]"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Gamma]5\[Gamma]stdown", "[", "mu", "]"}], ".", RowBox[{"\[Gamma]", "[", "la", "]"}]}], ")"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "gg", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"gg", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"-", "I"}], ")"}], " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "gg"}], "]"}], "]"}], RowBox[{"Cmetric", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"(", RowBox[{"(", RowBox[{ RowBox[{"\[Gamma]", "[", "la", "]"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], ")"}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "gg", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"gg", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", " ", RowBox[{ RowBox[{"(", "I", ")"}], " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "gg"}], "]"}], "]"}], RowBox[{"\[Gamma]5down", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"(", RowBox[{"(", RowBox[{ RowBox[{"\[Gamma]5\[Gamma]", "[", "la", "]"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], ")"}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "gg", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"gg", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "I"}], "/", "2"}], ")"}], " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"gg", ",", "kk"}], "]"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Gamma]5\[Gamma]stdown", "[", "mu", "]"}], ".", RowBox[{"\[Gamma]", "[", "la", "]"}]}], ")"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "gg", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"gg", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{"-", "I"}], ")"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "gg"}], "]"}], "]"}], RowBox[{"Cmetric", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"(", RowBox[{"(", RowBox[{ RowBox[{"\[Gamma]", "[", "la", "]"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], ")"}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "gg", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"gg", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", "I", ")"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "gg"}], "]"}], "]"}], RowBox[{"\[Gamma]5down", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"(", RowBox[{"(", RowBox[{ RowBox[{"\[Gamma]5\[Gamma]", "[", "la", "]"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], ")"}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "gg", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"gg", ",", "1", ",", "2"}], "}"}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"cc", ",", "1", ",", "4"}], "}"}]}], "]"}], "//", "Simplify"}]}], ";"}]], "Input", CellChangeTimes->{{3.798842639218479*^9, 3.798842667535831*^9}, { 3.798842716395967*^9, 3.798842780636742*^9}, {3.7988428581052523`*^9, 3.7988429142104187`*^9}, {3.7988429536935*^9, 3.798842954006106*^9}, 3.798843005106839*^9, {3.798911950709532*^9, 3.7989119515758*^9}, { 3.799751898638895*^9, 3.799751899423098*^9}, {3.800215244097946*^9, 3.800215319637998*^9}, {3.8002154193407*^9, 3.800215510098933*^9}, 3.800216752032683*^9, {3.8008043602544317`*^9, 3.80080439522576*^9}, 3.8458166812543554`*^9, 3.845818217999699*^9}, CellLabel-> "In[344]:=",ExpressionUUID->"d86a568a-35c9-4b64-b29b-9259118d7882"], Cell[BoxData[ RowBox[{ RowBox[{"PsiTMHol00Math", " ", "=", " ", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "kk", "]"}], "[", "cc", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}], "-", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "kk", "]"}], "[", "cc", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"cc", ",", "1", ",", "4"}], "}"}]}], "]"}], "//", "Simplify"}]}], ";"}]], "Input", CellChangeTimes->{{3.798842919961616*^9, 3.798842974857161*^9}, 3.79884300694757*^9, {3.799751904933632*^9, 3.799751905889503*^9}, { 3.8458166858553877`*^9, 3.8458166877519474`*^9}}, CellLabel-> "In[345]:=",ExpressionUUID->"36c5f55d-b39f-433c-9158-1c976596cdda"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"PsiTMHol00", "\[Equal]", " ", "PsiTMHol00Math"}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.798842967631521*^9, 3.798842989825513*^9}, { 3.799751909233589*^9, 3.799751911850464*^9}}, CellLabel-> "In[346]:=",ExpressionUUID->"a658f66d-014d-4e10-8a55-db84cf66303e"], Cell[BoxData["True"], "Output", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQAOKeu8e3bPd947iE3fw8iHbx974Mop8oneDfCaQ3fNOX vgCkQ3a9DQXRIps6n4BooR+Cf0B0zIt09ztAelvaht0Kfm8c5b8+FVMC0sYm wcZqQPqeQZbGfCC9yCTg+Rcg7f3iXTS7/xvHP2mCDzmA9A5PcQN5IL1utXqZ HpAOeB1jFgWkUx8mbcsD0klFy/4VAOkGZ4uFxUA6+s0ZphIgnfzoVWE5kI70 W3lIKQBo38Gi6WFAesPcvt8g+kXntsx1QPrMRfYiED1ZY8vTT0CaZd3GztLA N46XGjLNK4C0h1hu6OXGN45HFoRtBdE1fGtVrwBpId58iTvtQHfPPj7Vf/kb x/0/nO+D6CMZU/QCgPSKzsMfQDQAY6WmOw== "], CellLabel-> "Out[346]=",ExpressionUUID->"b672e204-552a-4797-bd7f-32061136596b"] }, Open ]], Cell[CellGroupData[{ Cell["Check Paper", "Subsubsection", CellChangeTimes->{{3.845816060202326*^9, 3.845816061589342*^9}},ExpressionUUID->"725292f1-0426-4c93-93ca-\ 213a072bceee"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"cV1", "[", RowBox[{"TM", ",", "0", ",", "0"}], "]"}], "[", RowBox[{"ii_", ",", "jj_", ",", "kk_", ",", "ll_"}], "]"}], ":=", RowBox[{ RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{"KroneckerDelta", "[", RowBox[{"kk", ",", "ll"}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"cV2", "[", RowBox[{"TM", ",", "0", ",", "0"}], "]"}], "[", RowBox[{"ii_", ",", "jj_", ",", "kk_", ",", "ll_"}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}]}]}], "Input", CellChangeTimes->{{3.8458161131239214`*^9, 3.845816140639987*^9}, { 3.8458162804302845`*^9, 3.8458163262906604`*^9}, 3.8458169000626373`*^9}, CellLabel-> "In[356]:=",ExpressionUUID->"62cce460-35e2-4952-bc55-7250bdc0438a"], Cell[BoxData[ RowBox[{ RowBox[{"PsiTMHol00Paper", " ", "=", " ", RowBox[{ RowBox[{"Table", "[", " ", RowBox[{ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{"2", " ", "I", " ", RowBox[{ RowBox[{"cV1", "[", RowBox[{"TM", ",", "0", ",", "0"}], "]"}], "[", RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"\[Gamma]5", "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "ll", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}], " ", "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{"I", " ", RowBox[{ RowBox[{"cV2", "[", RowBox[{"TM", ",", "0", ",", "0"}], "]"}], "[", RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], RowBox[{ RowBox[{"CommuteGammadown", "[", RowBox[{"mu", ",", "ld"}], "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"\[Gamma]stdown", "[", "ld", "]"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "ll", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"ld", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"cc", ",", "1", ",", "4"}], "}"}]}], "]"}], "//", "Simplify"}]}], ";"}]], "Input", CellChangeTimes->{{3.845816064746126*^9, 3.845816078418069*^9}, { 3.845816390133669*^9, 3.8458165372225733`*^9}, {3.8458166241346316`*^9, 3.845816673589799*^9}, {3.845816704000813*^9, 3.8458167510051827`*^9}, { 3.845817012861351*^9, 3.8458170134952707`*^9}, {3.845817074812883*^9, 3.845817078417838*^9}, {3.8458186332991114`*^9, 3.8458186356116147`*^9}}, CellLabel-> "In[358]:=",ExpressionUUID->"985e1094-17b9-48ff-a9b0-4d63cc8ccbc9"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PsiTMHol00Paper", "==", "PsiTMHol00Math"}]], "Input", CellChangeTimes->{{3.84581675510841*^9, 3.8458168067005014`*^9}, 3.8458168568856883`*^9}, CellLabel-> "In[359]:=",ExpressionUUID->"3e42a381-7bc5-4f50-b377-52e63553a6ad"], Cell[BoxData[ InterpretationBox[ TagBox[ FrameBox[GridBox[{ { ItemBox[ TagBox[ RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], "}"}], ",", RowBox[{"{", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], "}"}], ",", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{ TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{"(", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], ")"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], "}"}], ",", RowBox[{"{", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], "}"}], ",", RowBox[{"{", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}], ",", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"]}], "}"}]}], "}"}]}], "}"}], "\[Equal]", RowBox[{"{", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], "}"}]}], Short[#, 5]& ], BaseStyle->{Deployed -> False}, StripOnInput->False]}, {GridBox[{ { PaneBox[ TagBox[ TooltipBox[ StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource[ "FEStrings", "sizeBriefExplanation"], StandardForm], ImageSizeCache->{66., {3., 9.}}], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLText", StripOnInput->False], StyleBox[ DynamicBox[ ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"], StandardForm]], DynamicUpdating -> True, LineIndent -> 0, LinebreakAdjustments -> {1., 100, 0, 0, 0}, LineSpacing -> {1, 2}, StripOnInput -> False]], Annotation[#, Style[ Dynamic[ FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"]], DynamicUpdating -> True, LineIndent -> 0, LinebreakAdjustments -> {1., 100, 0, 0, 0}, LineSpacing -> {1, 2}], "Tooltip"]& ], Alignment->Center, BaselinePosition->Baseline, ImageSize->{Automatic, {25, Full}}], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], StandardForm], ImageSizeCache->{52., {0., 9.}}], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl", StripOnInput->False], True-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], StandardForm]], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive", StripOnInput->False]}, Dynamic[ CurrentValue["MouseOver"]], Alignment->Center, FrameMargins->0, ImageSize->{Automatic, {25, Full}}], Appearance->None, BaselinePosition->Baseline, ButtonFunction:>OutputSizeLimit`ButtonFunction[ OutputSizeLimit`Defer, 359, 21660477292722285316, 5/2], Enabled->True, Evaluator->Automatic, Method->"Queued"], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], StandardForm], ImageSizeCache->{62., {0., 9.}}], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl", StripOnInput->False], True-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], StandardForm]], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive", StripOnInput->False]}, Dynamic[ CurrentValue["MouseOver"]], Alignment->Center, FrameMargins->0, ImageSize->{Automatic, {25, Full}}], Appearance->None, BaselinePosition->Baseline, ButtonFunction:>OutputSizeLimit`ButtonFunction[ OutputSizeLimit`Defer, 359, 21660477292722285316, 5 2], Enabled->True, Evaluator->Automatic, Method->"Queued"], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], StandardForm], ImageSizeCache->{45., {0., 9.}}], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl", StripOnInput->False], True-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], StandardForm]], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive", StripOnInput->False]}, Dynamic[ CurrentValue["MouseOver"]], Alignment->Center, FrameMargins->0, ImageSize->{Automatic, {25, Full}}], Appearance->None, BaselinePosition->Baseline, ButtonFunction:>OutputSizeLimit`ButtonFunction[ OutputSizeLimit`Defer, 359, 21660477292722285316, Infinity], Enabled->True, Evaluator->Automatic, Method->"Queued"], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], StandardForm], ImageSizeCache->{79., {0., 9.}}], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl", StripOnInput->False], True-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], StandardForm]], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive", StripOnInput->False]}, Dynamic[ CurrentValue["MouseOver"]], Alignment->Center, FrameMargins->0, ImageSize->{Automatic, {25, Full}}], Appearance->None, BaselinePosition->Baseline, ButtonFunction:>FrontEndExecute[{ FrontEnd`SetOptions[ FrontEnd`$FrontEnd, FrontEnd`PreferencesSettings -> {"Page" -> "Advanced"}], FrontEnd`FrontEndToken["PreferencesDialog"]}], Evaluator->None, Method->"Preemptive"]} }, AutoDelete->False, FrameStyle->GrayLevel[0.85], GridBoxDividers->{"Columns" -> {False, {True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], Offset[1.2], { Offset[0.4]}, Offset[0.2]}}], BaseStyle->"OutputSizeLimit", FrameMargins->{{12, 12}, {0, 15}}, FrameStyle->GrayLevel[0.85], RoundingRadius->5, StripOnInput->False], Deploy, DefaultBaseStyle->"Deploy"], If[21660477292722285316 === $SessionID, Out[359], Message[ MessageName[Syntax, "noinfoker"]]; Missing["NotAvailable"]; Null]]], "Output", CellChangeTimes->{ 3.8458168580013504`*^9, 3.845816908632041*^9, {3.845816994976781*^9, 3.8458170185246644`*^9}, 3.8458185219517794`*^9, 3.8458186471715875`*^9}, CellLabel-> "Out[359]=",ExpressionUUID->"17c4c4ca-e644-48b7-a7af-ddc0f973dd0d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"PsiTMHol00Paper", "==", "PsiTMHol00Math"}], "//.", "EnforceDiracEquation"}], ")"}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.8458168596468625`*^9, 3.845816885412697*^9}, { 3.8458186093902607`*^9, 3.845818614665053*^9}}, CellLabel-> "In[360]:=",ExpressionUUID->"176cfeeb-3351-47bc-9a39-b3f68ca63837"], Cell[BoxData["True"], "Output", CellChangeTimes->{ 3.8458168753242297`*^9, 3.8458169129511166`*^9, {3.8458170016868105`*^9, 3.8458170225585747`*^9}, 3.845817274845868*^9, 3.8458185251656084`*^9, 3.845818617024748*^9, 3.8458186474374294`*^9}, CellLabel-> "Out[360]=",ExpressionUUID->"88b2ae8a-1434-480c-8325-f7e6a800e1ca"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Bmn", "Subsection", CellChangeTimes->{ 3.798836859060895*^9, {3.7988369545714197`*^9, 3.798836955216799*^9}},ExpressionUUID->"327174fc-0c0f-4fb0-831b-\ 3effcf78a8db"], Cell[BoxData[ RowBox[{ RowBox[{"BmnHol00", " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"(", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"\[Epsilon]downdownupup", "[", RowBox[{"mu", ",", "nu", ",", "de", ",", "la"}], "]"}], RowBox[{ RowBox[{"\[Gamma]stdowndown", "[", "de", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"de", ",", "0", ",", "3"}], "}"}]}], "]"}], ")"}]}], "+", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"\[Epsilon]downdownupup", "[", RowBox[{"mu", ",", "nu", ",", "de", ",", "la"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]stdowndown", "[", "de", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}]}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"A", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], "+", RowBox[{ RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"\[CurlyPhi]", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"de", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}]}], "]"}], "\[IndentingNewLine]", "-", RowBox[{ FractionBox["1", "3"], " ", RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"\[Epsilon]downupupup", "[", RowBox[{"mu", ",", "la", ",", "al", ",", "be"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]stdowndown", "[", "nu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"Hmna", "[", RowBox[{"la", ",", "al", ",", "be"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"al", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"be", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ FractionBox["1", "3"], RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"\[Epsilon]downupupup", "[", RowBox[{"nu", ",", "la", ",", "al", ",", "be"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]stdowndown", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"Hmna", "[", RowBox[{"la", ",", "al", ",", "be"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"al", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"be", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}]}], ";"}]], "Input", CellChangeTimes->{{3.7988423772811327`*^9, 3.798842380602344*^9}, { 3.7988424123204603`*^9, 3.798842427152864*^9}, 3.798842499538987*^9, { 3.800191070738532*^9, 3.8001910717333117`*^9}, {3.8008041116201344`*^9, 3.800804139832666*^9}}, CellLabel-> "In[316]:=",ExpressionUUID->"399de37d-c87f-44bf-9900-523bc1e71b41"], Cell[BoxData[ RowBox[{ RowBox[{"BmnHol00Math", " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"Bmn", "[", "1", "]"}], "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}], "-", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"Bmn", "[", "1", "]"}], "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}]}], ";"}]], "Input", CellChangeTimes->{{3.7988423996389008`*^9, 3.798842402648528*^9}, { 3.798842436674197*^9, 3.798842496225295*^9}}, CellLabel-> "In[317]:=",ExpressionUUID->"ef3e1de4-c30d-47d9-8cd3-64204e785d8d"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"BmnHol00Math", "\[Equal]", " ", "BmnHol00"}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.798842476867333*^9, 3.798842482469987*^9}}, CellLabel-> "In[318]:=",ExpressionUUID->"01e58c32-5b31-4823-ba58-e834b2cef5e6"], Cell[BoxData["True"], "Output", CellChangeTimes->{{3.7988424877862997`*^9, 3.7988425072532167`*^9}, 3.798892762226523*^9, 3.7988932320956573`*^9, 3.79889437787228*^9, 3.798894561309411*^9, 3.798917692018279*^9, 3.799057886271823*^9, 3.7990606639034357`*^9, 3.799069083403305*^9, 3.799316804159232*^9, 3.799492411235956*^9, 3.799530208196383*^9, 3.799533321238361*^9, 3.799579009483832*^9, 3.799610290019987*^9, 3.799699891661977*^9, 3.7997418758905573`*^9, 3.799746550008835*^9, 3.799751946520782*^9, 3.799752727221367*^9, 3.7997597601724443`*^9, 3.8001106140812283`*^9, 3.800191079614811*^9, 3.800217565169375*^9, 3.800396688980146*^9, 3.800536878435816*^9, 3.800803793907394*^9, {3.800804121017993*^9, 3.8008041456397552`*^9}, 3.8008099162122087`*^9, 3.826162348055532*^9, 3.8261631154033213`*^9, 3.8261640148032417`*^9, 3.8293260202231627`*^9, 3.8458154709875712`*^9, 3.8458160588653116`*^9}, CellLabel-> "Out[318]=",ExpressionUUID->"bbb68103-ca79-4e3d-9182-34f1c606ded0"] }, Open ]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Vector 11", "Section", CellChangeTimes->{{3.798821923568101*^9, 3.798821926018879*^9}, { 3.798837393519498*^9, 3.798837402315324*^9}, {3.798838857345957*^9, 3.798838857515265*^9}},ExpressionUUID->"7360fdfe-fa27-4f44-aff2-\ 75528d8c47d6"], Cell[CellGroupData[{ Cell["A", "Subsection", CellChangeTimes->{{3.798836364100836*^9, 3.798836366153274*^9}, 3.798843080632367*^9},ExpressionUUID->"828f101f-fcc0-49d0-8351-\ 575cd9ab081b"], Cell[BoxData[ RowBox[{ RowBox[{"AVMHolTil", " ", "=", RowBox[{ RowBox[{ RowBox[{"Table", "[", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], ")"}]}], "\[IndentingNewLine]", "-", RowBox[{ RowBox[{"(", RowBox[{"1", "/", "2"}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"CommuteGammadown", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"Fmn", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"aa", ",", " ", "1", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"bb", ",", " ", "1", ",", "4"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}]}], ";"}]], "Input", CellChangeTimes->{{3.798913971676564*^9, 3.7989139840045424`*^9}, { 3.79953397234972*^9, 3.7995339785769863`*^9}, 3.799583165352203*^9, { 3.799747850144802*^9, 3.799747886562561*^9}, {3.799747941228004*^9, 3.799747941743594*^9}, {3.800196973076442*^9, 3.800196982275717*^9}}, CellLabel-> "In[361]:=",ExpressionUUID->"edf5bba3-7795-4460-ba8f-2d35ed1c966b"], Cell[BoxData[ RowBox[{ RowBox[{"AVMHolTilMath", "=", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{"A", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}], " ", "-", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{"A", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"aa", ",", " ", "1", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"bb", ",", " ", "1", ",", "4"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}]}], ";"}]], "Input", CellChangeTimes->{{3.799747893617523*^9, 3.799747896155882*^9}, { 3.799747945776009*^9, 3.799747949938139*^9}}, CellLabel-> "In[362]:=",ExpressionUUID->"6f579136-943e-4bc9-8474-af4a3e787432"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"AVMHolTilMath", "==", "AVMHolTil"}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.799747955844088*^9, 3.799747960593643*^9}}, CellLabel-> "In[363]:=",ExpressionUUID->"12916cb8-cdf7-4463-b6da-6ec4c1d74a2a"], Cell[BoxData["True"], "Output", CellChangeTimes->{{3.798913817990716*^9, 3.798913835087007*^9}, { 3.798913974158573*^9, 3.7989139848871403`*^9}, 3.79891769210903*^9, 3.799057886377368*^9, 3.79906066398473*^9, 3.799069083514206*^9, 3.7993168215011997`*^9, 3.799492416610217*^9, 3.79953020825765*^9, 3.7995333212835293`*^9, {3.7995339651801662`*^9, 3.799533979000524*^9}, 3.799579009581703*^9, 3.799579782055518*^9, 3.7996102900934267`*^9, 3.79969989174056*^9, 3.799741875999461*^9, 3.7997465500450363`*^9, 3.799747964393857*^9, 3.7997520648994637`*^9, 3.799752727292572*^9, 3.7997597603268547`*^9, 3.800110614158189*^9, {3.800196976742625*^9, 3.800196989476679*^9}, 3.800217325408682*^9, 3.8002175652416162`*^9, 3.800396693733885*^9, 3.8004480080721693`*^9, 3.800536878573833*^9, 3.800804965292411*^9, 3.800805345950738*^9, 3.8008099162593107`*^9, 3.826162348106181*^9, 3.8261631154765987`*^9, 3.826164014926621*^9, 3.829326025475893*^9, 3.8458154711054335`*^9, 3.8458193649609623`*^9}, CellLabel-> "Out[363]=",ExpressionUUID->"cba9c700-752f-44af-8def-ef463171147b"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["B", "Subsection", CellChangeTimes->{{3.798836364100836*^9, 3.798836366153274*^9}, { 3.798836416200686*^9, 3.798836416547799*^9}, 3.7988430825765533`*^9},ExpressionUUID->"64bb8c7d-e746-4edf-b210-\ fb82e3f66dbf"], Cell[BoxData[ RowBox[{ RowBox[{"BVMHolTil", "=", RowBox[{ RowBox[{ RowBox[{"Table", "[", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{"(", RowBox[{"2", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"A", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], ")"}]}], "\[IndentingNewLine]", "-", " ", RowBox[{"I", RowBox[{"(", RowBox[{"1", "/", "2"}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"\[Gamma]5", ".", RowBox[{"CommuteGammadown", "[", RowBox[{"mu", ",", "nu"}], "]"}]}], ")"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"Fmn", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"aa", ",", " ", "1", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"bb", ",", " ", "1", ",", "4"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}]}], ";"}]], "Input", CellChangeTimes->{{3.799533984964294*^9, 3.799533985506688*^9}, { 3.79974797278759*^9, 3.79974799023429*^9}, {3.799748040027828*^9, 3.79974804046698*^9}, {3.800196958412737*^9, 3.800196960472115*^9}}, CellLabel-> "In[364]:=",ExpressionUUID->"e4169b5c-91d3-4270-aebf-0da9707be5be"], Cell[BoxData[ RowBox[{ RowBox[{"BVMHolTilMath", "=", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{"B", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}], " ", "-", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{"B", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"aa", ",", " ", "1", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"bb", ",", " ", "1", ",", "4"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}]}], ";"}]], "Input", CellChangeTimes->{{3.799748009796372*^9, 3.7997480243701*^9}}, CellLabel-> "In[365]:=",ExpressionUUID->"f368281d-cbeb-4538-ad1a-c21c06a87c9d"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"BVMHolTil", "==", "BVMHolTilMath"}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.799748027809023*^9, 3.79974803001153*^9}}, CellLabel-> "In[366]:=",ExpressionUUID->"9a5f2ca0-1d63-4f3b-8501-b9580b1a923b"], Cell[BoxData["True"], "Output", CellChangeTimes->{{3.7989138193879957`*^9, 3.798913836853228*^9}, 3.7989176921768217`*^9, 3.799057886439481*^9, 3.799060664035069*^9, 3.7990690835721483`*^9, 3.799316821596889*^9, 3.799492416681429*^9, 3.799530208293961*^9, 3.799533321363901*^9, {3.799533982511117*^9, 3.799533985947749*^9}, 3.799579009619025*^9, 3.799610290141356*^9, 3.799699891793449*^9, 3.7997418760805492`*^9, 3.7997465500818768`*^9, { 3.7997480326382637`*^9, 3.799748043524933*^9}, 3.799752064972266*^9, 3.799752727369739*^9, 3.7997597604274397`*^9, 3.800110614280993*^9, 3.800196963861945*^9, 3.800217325484088*^9, 3.8002175653142843`*^9, 3.800396693802848*^9, 3.8004480081344557`*^9, 3.800536878692828*^9, { 3.800805386353874*^9, 3.800805389315773*^9}, 3.8008099163021507`*^9, 3.826162348145399*^9, 3.826163115523942*^9, 3.826164015049515*^9, 3.8293260256165257`*^9, 3.8458154712147837`*^9, 3.8458193650234146`*^9}, CellLabel-> "Out[366]=",ExpressionUUID->"e5507b21-e80f-4551-b2cc-0420b259eb2e"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ Psi, in the body of the paper is quoted the results upon actually enforcing \ the dirac equation. Below are also given the results including these Dirac \ Equation terms\ \>", "Subsection", CellChangeTimes->{{3.798836364100836*^9, 3.798836366153274*^9}, { 3.798836403106538*^9, 3.798836405346539*^9}, 3.845821250500857*^9},ExpressionUUID->"71ad789e-2a97-4810-9869-\ 38b53eebf569"], Cell[BoxData[ RowBox[{ RowBox[{"psiVMHolTil", "=", RowBox[{ RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"-", "I"}], ")"}], " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "gg"}], "]"}], "]"}], RowBox[{ RowBox[{"CommuteGammadown", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"(", RowBox[{"\[Gamma]stdown", "[", "mu", "]"}], ")"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "gg", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "nu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"gg", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{"2", "I"}], ")"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{"KroneckerDelta", "[", RowBox[{"kk", ",", "gg"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"(", "\[Gamma]5", ")"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "gg", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"gg", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{"I", "/", "2"}], ")"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "gg"}], "]"}], "]"}], RowBox[{ RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Gamma]stdown", "[", "mu", "]"}], ".", RowBox[{"\[Gamma]", "[", "la", "]"}]}], ")"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "gg", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"gg", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{"I", "/", "8"}], ")"}], " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "gg"}], "]"}], "]"}], RowBox[{ RowBox[{"CommuteGammadown", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"CommuteGammastdown", "[", RowBox[{"mu", ",", "nu"}], "]"}], ".", RowBox[{"\[Gamma]", "[", "la", "]"}]}], ")"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "gg", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"gg", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "I"}], "/", "2"}], ")"}], " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{"KroneckerDelta", "[", RowBox[{"kk", ",", "gg"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Gamma]5\[Gamma]stdown", "[", "mu", "]"}], ".", RowBox[{"\[Gamma]", "[", "la", "]"}]}], ")"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "gg", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"gg", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", "I", ")"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{"KroneckerDelta", "[", RowBox[{"kk", ",", "gg"}], "]"}], RowBox[{"Cmetric", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"(", RowBox[{"(", RowBox[{ RowBox[{"\[Gamma]", "[", "la", "]"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], ")"}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "gg", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"gg", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{"-", "I"}], ")"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{"KroneckerDelta", "[", RowBox[{"kk", ",", "gg"}], "]"}], RowBox[{"\[Gamma]5down", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"(", RowBox[{"(", RowBox[{ RowBox[{"\[Gamma]5\[Gamma]", "[", "la", "]"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], ")"}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "gg", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"gg", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"I", "/", "2"}], ")"}], " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"gg", ",", "kk"}], "]"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Gamma]5\[Gamma]stdown", "[", "mu", "]"}], ".", RowBox[{"\[Gamma]", "[", "la", "]"}]}], ")"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "gg", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"gg", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", " ", RowBox[{ RowBox[{"(", "I", ")"}], " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "gg"}], "]"}], "]"}], RowBox[{"Cmetric", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"(", RowBox[{"(", RowBox[{ RowBox[{"\[Gamma]", "[", "la", "]"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], ")"}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "gg", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"gg", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"-", "I"}], ")"}], " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "gg"}], "]"}], "]"}], RowBox[{"\[Gamma]5down", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"(", RowBox[{"(", RowBox[{ RowBox[{"\[Gamma]5\[Gamma]", "[", "la", "]"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], ")"}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "gg", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"gg", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{"I", "/", "2"}], ")"}], " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"gg", ",", "kk"}], "]"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Gamma]5\[Gamma]stdown", "[", "mu", "]"}], ".", RowBox[{"\[Gamma]", "[", "la", "]"}]}], ")"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "gg", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"gg", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", "I", ")"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "gg"}], "]"}], "]"}], RowBox[{"Cmetric", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"(", RowBox[{"(", RowBox[{ RowBox[{"\[Gamma]", "[", "la", "]"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], ")"}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "gg", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"gg", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{"-", "I"}], ")"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "gg"}], "]"}], "]"}], RowBox[{"\[Gamma]5down", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"(", RowBox[{"(", RowBox[{ RowBox[{"\[Gamma]5\[Gamma]", "[", "la", "]"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], ")"}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "gg", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"gg", ",", "1", ",", "2"}], "}"}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"cc", ",", "1", ",", "4"}], "}"}]}], "]"}], "//", "Simplify"}]}], ";"}]], "Input", CellChangeTimes->{{3.796678187381914*^9, 3.796678309452413*^9}, { 3.7966783512039843`*^9, 3.796678352334971*^9}, {3.7966783985417633`*^9, 3.7966784287040863`*^9}, {3.7966784667686443`*^9, 3.7966784673919287`*^9}, {3.796678522447176*^9, 3.7966785459360437`*^9}, { 3.7966786046039248`*^9, 3.796678664874626*^9}, {3.796678737394437*^9, 3.7966788590487957`*^9}, {3.796678974582234*^9, 3.796678986254068*^9}, { 3.796679052848446*^9, 3.7966790587553864`*^9}, {3.796679212550877*^9, 3.796679222920023*^9}, {3.796679295961437*^9, 3.7966793669281807`*^9}, { 3.796679649928624*^9, 3.796679670555677*^9}, {3.7966797210635653`*^9, 3.796679726414796*^9}, {3.796679772422345*^9, 3.796679900694873*^9}, { 3.796680581113257*^9, 3.796680631077158*^9}, 3.796680669798671*^9, { 3.7966807265552063`*^9, 3.79668073014011*^9}, {3.7966808471318827`*^9, 3.796680856788085*^9}, 3.796680892912098*^9, {3.796680929292616*^9, 3.796681007980213*^9}, {3.7966810594015493`*^9, 3.7966810649805183`*^9}, { 3.796681105048197*^9, 3.7966811753363647`*^9}, 3.7966812065394583`*^9, { 3.796681269583859*^9, 3.7966814097151747`*^9}, {3.796681446830971*^9, 3.796681597551549*^9}, 3.796732335070043*^9, {3.796816905245493*^9, 3.796816980428287*^9}, {3.796817296411869*^9, 3.796817320239092*^9}, { 3.796817393671011*^9, 3.7968173942263308`*^9}, {3.796817442628924*^9, 3.796817443165403*^9}, {3.79681749206236*^9, 3.7968174959354143`*^9}, { 3.7968176415287647`*^9, 3.7968177147009287`*^9}, {3.7968177704339*^9, 3.796817857487422*^9}, {3.7968203652848263`*^9, 3.796820463298024*^9}, { 3.796835564099283*^9, 3.796835606860214*^9}, {3.7968356756778917`*^9, 3.796835757584651*^9}, {3.79683581508246*^9, 3.796835815893814*^9}, { 3.796835851669447*^9, 3.796835851874642*^9}, {3.7968360056980953`*^9, 3.796836051837112*^9}, {3.7968372213271313`*^9, 3.796837223689672*^9}, { 3.796837268087472*^9, 3.796837274181106*^9}, {3.796837341788125*^9, 3.796837342243669*^9}, {3.796837385346438*^9, 3.796837386504837*^9}, { 3.796837418280554*^9, 3.796837430099633*^9}, {3.796837645781865*^9, 3.796837691227294*^9}, {3.796837749101799*^9, 3.796837749422166*^9}, { 3.7968377824362507`*^9, 3.796837783318934*^9}, {3.796837817865223*^9, 3.7968378227992373`*^9}, {3.7968379417110853`*^9, 3.7968379944362383`*^9}, {3.7968380615686007`*^9, 3.796838084596389*^9}, 3.796838131203816*^9, {3.796838180386712*^9, 3.796838221113865*^9}, { 3.796838254227522*^9, 3.7968382544375887`*^9}, {3.7968383302746572`*^9, 3.79683833441998*^9}, {3.796838401217442*^9, 3.796838489363964*^9}, { 3.7968385289565067`*^9, 3.796838529868244*^9}, {3.796838573793947*^9, 3.796838605878189*^9}, {3.796838658139019*^9, 3.796838658600532*^9}, { 3.796838690547963*^9, 3.796838698430491*^9}, {3.7968387507615767`*^9, 3.7968387712473927`*^9}, {3.7968388135870256`*^9, 3.7968388167205887`*^9}, {3.796838847668997*^9, 3.796838897504694*^9}, { 3.796838936195188*^9, 3.796838985303039*^9}, 3.79683902864336*^9, { 3.796839493982457*^9, 3.7968396287964497`*^9}, {3.796839695443524*^9, 3.7968396972894783`*^9}, {3.7968397623550158`*^9, 3.7968398053046417`*^9}, {3.798911745829111*^9, 3.79891185553468*^9}, { 3.798911909563528*^9, 3.798911910875198*^9}, {3.7989119964430923`*^9, 3.798912007021308*^9}, {3.798912045088099*^9, 3.7989120478972597`*^9}, { 3.798912081143848*^9, 3.798912093731997*^9}, {3.798912135060834*^9, 3.798912178848502*^9}, {3.798912210289192*^9, 3.798912249959539*^9}, { 3.7989122982837048`*^9, 3.798912332853191*^9}, {3.7989123723751097`*^9, 3.798912373361931*^9}, {3.798912407843573*^9, 3.79891241006779*^9}, { 3.798912440188045*^9, 3.7989125294855747`*^9}, {3.7989125647242947`*^9, 3.798912565865589*^9}, {3.799588826603385*^9, 3.7995888667674913`*^9}, { 3.799589909522284*^9, 3.799589918464381*^9}, {3.799590007486514*^9, 3.79959002293189*^9}, 3.799590065833202*^9, 3.799590104343966*^9, { 3.799748385301764*^9, 3.7997484085600023`*^9}, {3.799748440151513*^9, 3.799748461623432*^9}, 3.8002174639860153`*^9, {3.8003968027591543`*^9, 3.800396803136881*^9}, {3.800805747675127*^9, 3.800805778995595*^9}, { 3.845819542989767*^9, 3.845819562298204*^9}}, CellLabel-> "In[538]:=",ExpressionUUID->"aa0f1fdf-820c-44eb-9a3e-38353dc46ed7"], Cell[BoxData[ RowBox[{ RowBox[{"psiVMHolTilMath", " ", "=", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "kk", "]"}], "[", "cc", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}], "-", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "kk", "]"}], "[", "cc", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"cc", ",", "1", ",", "4"}], "}"}]}], "]"}], "//", "Simplify"}]}], ";"}]], "Input", CellChangeTimes->{{3.7997483524283943`*^9, 3.799748384052075*^9}, { 3.8458195775694485`*^9, 3.8458195796392126`*^9}}, CellLabel-> "In[539]:=",ExpressionUUID->"fdacf05a-ec23-4229-8242-6c1ad611b19b"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"psiVMHolTilMath", "==", "psiVMHolTil"}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.799748415631679*^9, 3.799748419253624*^9}}, CellLabel-> "In[540]:=",ExpressionUUID->"5e1013ed-f705-41f5-9b4e-3c565c0884cc"], Cell[BoxData["True"], "Output", CellChangeTimes->{ 3.7997039873100863`*^9, 3.799741883466868*^9, 3.799746557385709*^9, 3.799748429322034*^9, 3.799752072412318*^9, 3.799752734804908*^9, 3.799759767827937*^9, 3.800110621485702*^9, 3.80019721682127*^9, 3.800217339642282*^9, 3.800217474126672*^9, 3.800217571774581*^9, 3.800396712723295*^9, 3.8003968120464067`*^9, 3.8004480146096478`*^9, 3.80053688600946*^9, 3.800805883910984*^9, 3.800809923590563*^9, 3.826162354555826*^9, 3.8261631222461033`*^9, 3.8261640289538507`*^9, 3.829326033387374*^9, 3.8458154785060744`*^9, 3.8458193725197825`*^9, { 3.845819585675102*^9, 3.845819589343298*^9}, 3.8458251619512043`*^9}, CellLabel-> "Out[540]=",ExpressionUUID->"f40d00d5-488e-4ca6-bebc-e5a9176586bc"] }, Open ]], Cell[CellGroupData[{ Cell["Check Paper", "Subsubsection", CellChangeTimes->{{3.845816060202326*^9, 3.845816061589342*^9}},ExpressionUUID->"1e36630f-20af-4d71-88ad-\ 9f4a9e34fa95"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"cV1", "[", RowBox[{"VM", ",", "1", ",", "1"}], "]"}], "[", RowBox[{"ii_", ",", "jj_", ",", "kk_", ",", "ll_"}], "]"}], ":=", RowBox[{ RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{"KroneckerDelta", "[", RowBox[{"kk", ",", "ll"}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"cV2", "[", RowBox[{"VM", ",", "1", ",", "1"}], "]"}], "[", RowBox[{"ii_", ",", "jj_", ",", "kk_", ",", "ll_"}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}]}]}], "Input", CellChangeTimes->{{3.8458161131239214`*^9, 3.845816140639987*^9}, { 3.8458162804302845`*^9, 3.8458163262906604`*^9}, 3.8458169000626373`*^9, { 3.845819374135563*^9, 3.8458193870107865`*^9}}, CellLabel-> "In[541]:=",ExpressionUUID->"ac21e655-94aa-4bc6-9fd3-aa5620a86249"], Cell[BoxData[ RowBox[{ RowBox[{"PsiVMHolTilPaper", " ", "=", " ", RowBox[{ RowBox[{"I", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", RowBox[{ RowBox[{"cV1", "[", RowBox[{"VM", ",", "1", ",", "1"}], "]"}], "[", RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"\[Gamma]5", "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}]}], "+", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"cV2", "[", RowBox[{"VM", ",", "1", ",", "1"}], "]"}], "[", RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], RowBox[{ RowBox[{"CommuteGammadown", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"\[Gamma]stdown", "[", "nu", "]"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "ll", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"ll", ",", "1", ",", "2"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"cc", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "//", "Simplify"}]}], ";"}]], "Input", CellChangeTimes->{{3.845816064746126*^9, 3.845816078418069*^9}, { 3.845816390133669*^9, 3.8458165372225733`*^9}, {3.8458166241346316`*^9, 3.845816673589799*^9}, {3.845816704000813*^9, 3.8458167510051827`*^9}, { 3.845817012861351*^9, 3.8458170134952707`*^9}, {3.845817074812883*^9, 3.845817078417838*^9}, {3.8458186332991114`*^9, 3.8458186356116147`*^9}, { 3.8458195288049517`*^9, 3.8458195338392324`*^9}, 3.8458195944691753`*^9, { 3.8458198208492107`*^9, 3.84581990852046*^9}, 3.8458199735101914`*^9, { 3.8458200094676743`*^9, 3.845820141061098*^9}, {3.8458251285613055`*^9, 3.845825129412449*^9}}, CellLabel-> "In[543]:=",ExpressionUUID->"94b07d00-3b4e-4ecc-85a4-3339d16d7c66"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PsiVMHolTilPaper", "==", "psiVMHolTilMath"}]], "Input", CellChangeTimes->{{3.84581675510841*^9, 3.8458168067005014`*^9}, 3.8458168568856883`*^9, {3.845820201994506*^9, 3.8458202078706827`*^9}, { 3.845825132900221*^9, 3.8458251389592905`*^9}, {3.8458251701087036`*^9, 3.845825170452397*^9}}, CellLabel-> "In[546]:=",ExpressionUUID->"46e31e10-a03e-4aef-b694-40a574aa77c0"], Cell[BoxData[ InterpretationBox[ TagBox[ FrameBox[GridBox[{ { ItemBox[ TagBox[ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], ",", RowBox[{"{", RowBox[{ RowBox[{"{", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], "}"}], ",", RowBox[{"{", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], ",", TemplateBox[{"2"}, "OutputSizeLimit`Skeleton"], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "1", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "1", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "1", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "1", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "1", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "1", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "1", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{ TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], TagBox[ TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", TemplateBox[{"2"}, "OutputSizeLimit`Skeleton"], ",", "z"}], "]"}]}], ")"}]}], ",", TemplateBox[{"2"}, "OutputSizeLimit`Skeleton"], ",", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"]}], "}"}], ",", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], ",", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"]}], "}"}]}], "}"}]}], "}"}], ",", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"]}], "}"}]}], "}"}], "\[Equal]", RowBox[{"{", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], "}"}]}], Short[#, 5]& ], BaseStyle->{Deployed -> False}, StripOnInput->False]}, {GridBox[{ { PaneBox[ TagBox[ TooltipBox[ StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource[ "FEStrings", "sizeBriefExplanation"], StandardForm], ImageSizeCache->{82., {4., 11.}}], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLText", StripOnInput->False], StyleBox[ DynamicBox[ ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"], StandardForm]], DynamicUpdating -> True, LineIndent -> 0, LinebreakAdjustments -> {1., 100, 0, 0, 0}, LineSpacing -> {1, 2}, StripOnInput -> False]], Annotation[#, Style[ Dynamic[ FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"]], DynamicUpdating -> True, LineIndent -> 0, LinebreakAdjustments -> {1., 100, 0, 0, 0}, LineSpacing -> {1, 2}], "Tooltip"]& ], Alignment->Center, BaselinePosition->Baseline, ImageSize->{Automatic, {25, Full}}], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], StandardForm], ImageSizeCache->{67., {1., 11.}}], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl", StripOnInput->False], True-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], StandardForm]], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive", StripOnInput->False]}, Dynamic[ CurrentValue["MouseOver"]], Alignment->Center, FrameMargins->0, ImageSize->{Automatic, {25, Full}}], Appearance->None, BaselinePosition->Baseline, ButtonFunction:>OutputSizeLimit`ButtonFunction[ OutputSizeLimit`Defer, 546, 21660477292722285316, 5/2], Enabled->True, Evaluator->Automatic, Method->"Queued"], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], StandardForm], ImageSizeCache->{78., {1., 11.}}], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl", StripOnInput->False], True-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], StandardForm]], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive", StripOnInput->False]}, Dynamic[ CurrentValue["MouseOver"]], Alignment->Center, FrameMargins->0, ImageSize->{Automatic, {25, Full}}], Appearance->None, BaselinePosition->Baseline, ButtonFunction:>OutputSizeLimit`ButtonFunction[ OutputSizeLimit`Defer, 546, 21660477292722285316, 5 2], Enabled->True, Evaluator->Automatic, Method->"Queued"], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], StandardForm], ImageSizeCache->{58., {1., 11.}}], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl", StripOnInput->False], True-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], StandardForm]], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive", StripOnInput->False]}, Dynamic[ CurrentValue["MouseOver"]], Alignment->Center, FrameMargins->0, ImageSize->{Automatic, {25, Full}}], Appearance->None, BaselinePosition->Baseline, ButtonFunction:>OutputSizeLimit`ButtonFunction[ OutputSizeLimit`Defer, 546, 21660477292722285316, Infinity], Enabled->True, Evaluator->Automatic, Method->"Queued"], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], StandardForm], ImageSizeCache->{99., {1., 11.}}], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl", StripOnInput->False], True-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], StandardForm]], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive", StripOnInput->False]}, Dynamic[ CurrentValue["MouseOver"]], Alignment->Center, FrameMargins->0, ImageSize->{Automatic, {25, Full}}], Appearance->None, BaselinePosition->Baseline, ButtonFunction:>FrontEndExecute[{ FrontEnd`SetOptions[ FrontEnd`$FrontEnd, FrontEnd`PreferencesSettings -> {"Page" -> "Advanced"}], FrontEnd`FrontEndToken["PreferencesDialog"]}], Evaluator->None, Method->"Preemptive"]} }, AutoDelete->False, FrameStyle->GrayLevel[0.85], GridBoxDividers->{"Columns" -> {False, {True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], Offset[1.2], { Offset[0.4]}, Offset[0.2]}}], BaseStyle->"OutputSizeLimit", FrameMargins->{{12, 12}, {0, 15}}, FrameStyle->GrayLevel[0.85], RoundingRadius->5, StripOnInput->False], Deploy, DefaultBaseStyle->"Deploy"], If[21660477292722285316 === $SessionID, Out[546], Message[ MessageName[Syntax, "noinfoker"]]; Missing["NotAvailable"]; Null]]], "Output", CellChangeTimes->{ 3.8458168580013504`*^9, 3.845816908632041*^9, {3.845816994976781*^9, 3.8458170185246644`*^9}, 3.8458185219517794`*^9, 3.8458186471715875`*^9, { 3.8458202104334135`*^9, 3.8458202291396523`*^9}, {3.8458251628576193`*^9, 3.84582517121769*^9}}, CellLabel-> "Out[546]=",ExpressionUUID->"266c6385-1360-4990-b9e3-c3a390ae5a42"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"PsiVMHolTilPaper", "==", "psiVMHolTilMath"}], "//.", "EnforceDiracEquation"}], ")"}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.8458168596468625`*^9, 3.845816885412697*^9}, { 3.8458186093902607`*^9, 3.845818614665053*^9}, {3.845820214545537*^9, 3.845820220282011*^9}, {3.845825142373663*^9, 3.8458251746057224`*^9}}, CellLabel-> "In[547]:=",ExpressionUUID->"25e6c71b-d92a-4a39-9210-ed8fa1923e6b"], Cell[BoxData["True"], "Output", CellChangeTimes->{ 3.8458168753242297`*^9, 3.8458169129511166`*^9, {3.8458170016868105`*^9, 3.8458170225585747`*^9}, 3.845817274845868*^9, 3.8458185251656084`*^9, 3.845818617024748*^9, 3.8458186474374294`*^9, {3.845820223376128*^9, 3.8458202292646303`*^9}, {3.8458251630763187`*^9, 3.8458251753248143`*^9}}, CellLabel-> "Out[547]=",ExpressionUUID->"5ccda5f6-0f86-4fdb-9f53-e1ab348db99b"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Vector", "Subsection", CellChangeTimes->{{3.79882231017908*^9, 3.798822311983996*^9}},ExpressionUUID->"a286f6ee-6b34-4dc6-baac-\ f4382ca972e0"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}]}], RowBox[{"(", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"CommuteGammastdownstupdown", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"A", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "nu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", " ", "I", ")"}], " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"\[Gamma]5", ".", RowBox[{"CommuteGammastdownstupdown", "[", RowBox[{"mu", ",", "nu"}], "]"}]}], ")"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "nu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], ")"}]}], "\[IndentingNewLine]", "-", " ", RowBox[{ RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"\[Epsilon]downupupup", "[", RowBox[{"mu", ",", "de", ",", "la", ",", "ka"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]stdowndown", "[", "de", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"Fmn", "[", RowBox[{"la", ",", "ka"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"ka", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"de", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "\[Equal]", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"Avec", "[", "0", "]"}], "[", "mu", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}], " ", "-", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"Avec", "[", "0", "]"}], "[", "mu", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"aa", ",", " ", "1", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"bb", ",", " ", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}], ";"}]], "Input", CellChangeTimes->{ 3.7989159196753807`*^9, {3.7989163846286097`*^9, 3.798916882744513*^9}, { 3.798916926695397*^9, 3.798916970755095*^9}, {3.798917030749213*^9, 3.7989170854070787`*^9}, {3.799534035629035*^9, 3.799534062490488*^9}, { 3.799584463971759*^9, 3.7995845315851803`*^9}, {3.799584568328586*^9, 3.7995845809712954`*^9}, {3.799584781136519*^9, 3.799584786182151*^9}, 3.799748472807468*^9, {3.8001973896590357`*^9, 3.800197400570155*^9}, { 3.800805627957364*^9, 3.80080564601147*^9}}, CellLabel-> "In[370]:=",ExpressionUUID->"44354c4a-d69d-4481-966d-38481b468581"], Cell[BoxData[ RowBox[{ RowBox[{"AvecHolTil", "=", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}]}], RowBox[{"(", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"CommuteGammastdownstupdown", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"A", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "nu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", " ", "I", ")"}], " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"\[Gamma]5", ".", RowBox[{"CommuteGammastdownstupdown", "[", RowBox[{"mu", ",", "nu"}], "]"}]}], ")"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "nu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], ")"}]}], "\[IndentingNewLine]", "-", " ", RowBox[{ RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"\[Epsilon]downupupup", "[", RowBox[{"mu", ",", "de", ",", "la", ",", "ka"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]stdowndown", "[", "de", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"Fmn", "[", RowBox[{"la", ",", "ka"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"ka", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"de", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"aa", ",", " ", "1", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"bb", ",", " ", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}]}], ";"}]], "Input", CellChangeTimes->{{3.799748476319726*^9, 3.799748518237419*^9}, 3.800197412040002*^9, {3.80080563817073*^9, 3.800805640931465*^9}}, CellLabel-> "In[371]:=",ExpressionUUID->"6af39772-1b37-4c1d-99d0-080cb4dabc06"], Cell[BoxData[ RowBox[{ RowBox[{"AvecHolTilMath", "=", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"Avec", "[", "0", "]"}], "[", "mu", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}], " ", "-", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"Avec", "[", "0", "]"}], "[", "mu", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"aa", ",", " ", "1", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"bb", ",", " ", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}]}], ";"}]], "Input", CellChangeTimes->{{3.799748483466817*^9, 3.799748497301052*^9}, { 3.799748541966784*^9, 3.79974854787116*^9}}, CellLabel-> "In[372]:=",ExpressionUUID->"68fd749a-fdf7-4092-90fd-33956e11bc0d"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"AvecHolTilMath", "==", "AvecHolTil"}], "//", "Simplify"}]], "Input",\ CellChangeTimes->{{3.799748550284368*^9, 3.799748570308997*^9}}, CellLabel-> "In[373]:=",ExpressionUUID->"d40022bf-cb89-4202-b8f5-d07ca72b1fec"], Cell[BoxData["True"], "Output", CellChangeTimes->{{3.798916822338216*^9, 3.798916883398572*^9}, { 3.798916966929963*^9, 3.798916971429529*^9}, {3.798917031723934*^9, 3.798917085913329*^9}, 3.798917698998808*^9, 3.799057893820594*^9, 3.7990606709303303`*^9, 3.799069091110037*^9, 3.799316829165451*^9, 3.799492423928812*^9, 3.7995302152462597`*^9, 3.799533328362012*^9, 3.7995340250346107`*^9, {3.799534056975856*^9, 3.799534062950268*^9}, 3.799579016679552*^9, {3.799584517254694*^9, 3.799584532462097*^9}, { 3.799584574384611*^9, 3.7995845815470133`*^9}, 3.799584786689427*^9, 3.799610298157976*^9, 3.799699898873082*^9, 3.7997418836800203`*^9, 3.799746557529038*^9, {3.799748557625744*^9, 3.799748571120761*^9}, 3.799752072609271*^9, 3.799752735061922*^9, 3.799759768090034*^9, 3.800110621735098*^9, 3.800197414935211*^9, 3.8002173399321327`*^9, 3.8002175719790897`*^9, 3.800396713055627*^9, 3.800448014822514*^9, 3.80053688627978*^9, 3.800805449257153*^9, 3.800809923783256*^9, 3.826162354743719*^9, 3.826163122473283*^9, 3.826164029360593*^9, 3.8293260337334805`*^9, 3.845815478724743*^9, 3.845819372879076*^9}, CellLabel-> "Out[373]=",ExpressionUUID->"2e341819-b2ae-48e2-946d-f5b6b0575f24"] }, Open ]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Tensor 11", "Section", CellChangeTimes->{{3.79882193098674*^9, 3.798821933612712*^9}, { 3.7988374041853952`*^9, 3.7988374044729156`*^9}, {3.79883888689086*^9, 3.798838887079631*^9}},ExpressionUUID->"0be7cbfe-38b8-49e8-a9f1-\ 71a835ff030a"], Cell[CellGroupData[{ Cell["A", "Subsection", CellChangeTimes->{ 3.798838910714549*^9},ExpressionUUID->"e3186dd6-d36f-4497-8588-\ a16be475d824"], Cell[BoxData[ RowBox[{ RowBox[{"ATMHolTil", " ", "=", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"(", RowBox[{"2", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], ")"}]}], "\[IndentingNewLine]", "+", RowBox[{"2", " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"\[CurlyPhi]", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ FractionBox["2", "3"], " ", RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"\[Epsilon]downupupup", "[", RowBox[{"mu", ",", "nu", ",", "al", ",", "be"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"Hmna", "[", RowBox[{"nu", ",", "al", ",", "be"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"al", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"be", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"aa", ",", " ", "1", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"bb", ",", " ", "1", ",", "4"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}]}], ";"}]], "Input", CellChangeTimes->{{3.799748623725677*^9, 3.7997486501105127`*^9}, 3.800197446592944*^9, {3.801047552181983*^9, 3.801047562791428*^9}}, CellLabel-> "In[432]:=",ExpressionUUID->"67212c06-19d0-4f3b-97e6-f5f45ae5b946"], Cell[BoxData[ RowBox[{ RowBox[{"ATMHolTilMath", "=", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{"A", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}], " ", "-", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{"A", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"aa", ",", " ", "1", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"bb", ",", " ", "1", ",", "4"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}]}], ";"}]], "Input", CellChangeTimes->{{3.798843645528124*^9, 3.798843992044964*^9}, { 3.7988440268568*^9, 3.798844221876567*^9}, {3.798845662326964*^9, 3.79884580411132*^9}, {3.7988458768024273`*^9, 3.798845878319406*^9}, { 3.799748587427085*^9, 3.799748599080625*^9}, {3.7997486560467854`*^9, 3.799748667483564*^9}}, CellLabel-> "In[433]:=",ExpressionUUID->"5541f375-10e4-4530-82ea-b96caacacf3f"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"ATMHolTilMath", "==", "ATMHolTil"}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.799748673511869*^9, 3.799748677555777*^9}}, CellLabel-> "In[434]:=",ExpressionUUID->"1b8d493b-7b2e-4185-b4d0-04eb2945d42c"], Cell[BoxData["True"], "Output", CellChangeTimes->{ 3.798843695612774*^9, {3.798844170557487*^9, 3.7988442223933773`*^9}, 3.798845550249835*^9, 3.798845909025301*^9, 3.798892744017065*^9, 3.798893250656537*^9, 3.798894378238312*^9, 3.798894561412291*^9, { 3.798903251836293*^9, 3.798903256618095*^9}, 3.7989176990801373`*^9, 3.799057893901639*^9, 3.799060671005355*^9, 3.799069091244515*^9, 3.799316843071126*^9, 3.799492429516665*^9, 3.79953021531324*^9, 3.799533328424548*^9, 3.799534075880816*^9, 3.799579016750514*^9, 3.799610298237515*^9, 3.7996998989640923`*^9, 3.799741883771365*^9, 3.7997465575988827`*^9, 3.799748681454832*^9, 3.799752735175466*^9, 3.799759768178432*^9, 3.800110621835952*^9, 3.800197451996931*^9, 3.800217572103176*^9, 3.800396816441613*^9, 3.8005368864237747`*^9, 3.800805965431089*^9, 3.800806179355299*^9, 3.800807264503503*^9, 3.800809923863599*^9, {3.801047559810618*^9, 3.801047569698048*^9}, 3.8261623548229218`*^9, 3.826163122576586*^9, 3.8261640295084867`*^9, 3.829326037945345*^9, 3.845815478834093*^9, 3.8458212679303293`*^9}, CellLabel-> "Out[434]=",ExpressionUUID->"a14d35ca-fed5-439b-92a1-535aad65339d"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["B", "Subsection", CellChangeTimes->{{3.798838910714549*^9, 3.7988389319520473`*^9}},ExpressionUUID->"0a880ce7-e0ac-4fa7-99b3-\ e88aa32b211f"], Cell[BoxData[ RowBox[{ RowBox[{"BTMHolTil", "=", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", " ", "2"}], " ", RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"\[CurlyPhi]", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "-", " ", RowBox[{"2", " ", RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"A", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ FractionBox["2", "3"], " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"\[Epsilon]downupupup", "[", RowBox[{"mu", ",", "nu", ",", "al", ",", "be"}], "]"}], RowBox[{ RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"Hmna", "[", RowBox[{"nu", ",", "al", ",", "be"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"al", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"be", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"aa", ",", " ", "1", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"bb", ",", " ", "1", ",", "4"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}]}], ";"}]], "Input", CellChangeTimes->{{3.7997487058716507`*^9, 3.799748734263411*^9}, { 3.8001974608600683`*^9, 3.8001974627320023`*^9}}, CellLabel-> "In[435]:=",ExpressionUUID->"574ab28b-3c11-4d22-a7a8-82238cd11919"], Cell[BoxData[ RowBox[{ RowBox[{"BTMHolTilMath", "=", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{"B", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}], " ", "-", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{"B", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"aa", ",", " ", "1", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"bb", ",", " ", "1", ",", "4"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}]}], ";"}]], "Input", CellChangeTimes->{{3.7997487400532827`*^9, 3.7997487517649307`*^9}}, CellLabel-> "In[436]:=",ExpressionUUID->"c0c783f7-bd27-4581-aec6-8b7097eb38e0"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"BTMHolTilMath", "==", "BTMHolTil"}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.799748757964198*^9, 3.799748761673644*^9}}, CellLabel-> "In[437]:=",ExpressionUUID->"a9a0b988-b1b0-4edc-bb77-af236ceb188a"], Cell[BoxData["True"], "Output", CellChangeTimes->{{3.79884607424269*^9, 3.7988460981337748`*^9}, { 3.7988461310905247`*^9, 3.798846142807852*^9}, {3.7988462320625668`*^9, 3.798846260134398*^9}, 3.798892744087816*^9, 3.798893253306157*^9, 3.798894378551715*^9, 3.79889456147826*^9, 3.7989032567305403`*^9, 3.7989176991555433`*^9, 3.799057893979653*^9, 3.799060671073855*^9, 3.799069091328244*^9, 3.799316843181571*^9, 3.7994924296153584`*^9, 3.799530215379987*^9, 3.7995333284929953`*^9, 3.799534075986968*^9, 3.799579016826415*^9, 3.799610298321951*^9, 3.799699899049404*^9, 3.799741883858656*^9, 3.7997465576715393`*^9, 3.7997487660099277`*^9, 3.7997527352907457`*^9, 3.799759768272088*^9, 3.800110621930236*^9, 3.800197466057488*^9, 3.8002175721904087`*^9, 3.80039681653533*^9, 3.800536886552637*^9, 3.800806542703122*^9, 3.8008072645793543`*^9, 3.800809923952787*^9, 3.801047559913267*^9, 3.826162354907566*^9, 3.826163122666801*^9, 3.826164029663199*^9, 3.829326038054428*^9, 3.845815479100031*^9, 3.8458212681646476`*^9}, CellLabel-> "Out[437]=",ExpressionUUID->"5c71426c-1200-469c-998e-daa862b08ed3"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["cphi", "Subsection", CellChangeTimes->{{3.798838910714549*^9, 3.7988389387938137`*^9}},ExpressionUUID->"022bf7b1-b278-4475-97ab-\ 439cf02ddb4a"], Cell[BoxData[ RowBox[{ RowBox[{"chpiHolTil", "=", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"(", " ", RowBox[{"2", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], ")"}]}], "\[IndentingNewLine]", "-", " ", RowBox[{"2", " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"A", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "-", RowBox[{ FractionBox["2", "3"], " ", RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"\[Epsilon]downupupup", "[", RowBox[{"mu", ",", "nu", ",", "al", ",", "be"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"Hmna", "[", RowBox[{"nu", ",", "al", ",", "be"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"al", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"be", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"aa", ",", " ", "1", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"bb", ",", " ", "1", ",", "4"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}]}], ";"}]], "Input", CellChangeTimes->{{3.798847027151009*^9, 3.798847152034542*^9}, { 3.799748946586282*^9, 3.799748951002275*^9}, 3.79974898291144*^9, { 3.7997490173536873`*^9, 3.7997490184148893`*^9}, 3.800197479334716*^9}, CellLabel-> "In[438]:=",ExpressionUUID->"21446d16-49c5-4aa4-8106-51c3bceae9fd"], Cell[BoxData[ RowBox[{ RowBox[{"chpiHolTilMath", "=", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{"\[CurlyPhi]", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}], " ", "-", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{"\[CurlyPhi]", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"aa", ",", " ", "1", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"bb", ",", " ", "1", ",", "4"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}]}], ";"}]], "Input", CellChangeTimes->{{3.799748960372657*^9, 3.7997489998562813`*^9}}, CellLabel-> "In[439]:=",ExpressionUUID->"b958d82d-ff31-4ed9-80be-36367ef4b22d"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"chpiHolTilMath", "==", "chpiHolTil"}], "//", "Simplify"}]], "Input",\ CellChangeTimes->{{3.799749026292964*^9, 3.799749029780047*^9}}, CellLabel-> "In[440]:=",ExpressionUUID->"26b607d2-bdb6-4ccd-b9fd-a26e8f7f80eb"], Cell[BoxData["True"], "Output", CellChangeTimes->{{3.798847065791066*^9, 3.798847152414898*^9}, 3.798892746062172*^9, 3.798893261761881*^9, 3.798894381909008*^9, 3.798894563399542*^9, 3.7989032587344933`*^9, 3.798917701061079*^9, 3.799057895968565*^9, 3.7990606729052773`*^9, 3.799069093305357*^9, 3.7993168452358503`*^9, 3.799492431530423*^9, 3.799530217194346*^9, 3.79953333032262*^9, 3.799534077949774*^9, 3.799579018742044*^9, 3.799610300349015*^9, 3.7996999009957457`*^9, 3.799741885913723*^9, 3.799746559716214*^9, 3.7997490335761137`*^9, 3.799752737425949*^9, 3.7997597704386053`*^9, 3.800110624107093*^9, 3.800197483027093*^9, 3.8002152247704973`*^9, 3.8002175722740803`*^9, 3.8003968166311502`*^9, 3.800536886657856*^9, 3.800806546417489*^9, 3.8008072646555634`*^9, 3.8008099240433083`*^9, 3.801047559998212*^9, 3.8261623549879713`*^9, 3.826163122752241*^9, 3.826164029812875*^9, 3.8293260381705704`*^9, 3.845815479327049*^9, 3.8458212683052435`*^9}, CellLabel-> "Out[440]=",ExpressionUUID->"f9ba139b-7ec4-4dbf-995c-00e094fcc0d2"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ Psi, in the body of the paper is quoted the results upon actually enforcing \ the dirac equation. Below are also given the results including these Dirac \ Equation terms\ \>", "Subsection", CellChangeTimes->{ 3.798836859060895*^9, {3.7988368968370047`*^9, 3.7988369164158278`*^9}, 3.845821259951475*^9},ExpressionUUID->"b338953b-0a2b-4b28-9c2f-\ 2e4ba66a7dcf"], Cell[BoxData[ RowBox[{ RowBox[{"PsiTMHolTil", " ", "=", RowBox[{ RowBox[{"Table", "[", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"2", "I"}], ")"}], RowBox[{"Sum", "[", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "gg"}], "]"}], "]"}], RowBox[{ RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "gg", "]"}], "[", "cc", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"gg", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", StyleBox["+", "Code"], RowBox[{ StyleBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "I"}], ")"}], "Code"], RowBox[{"Sum", "[", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "gg"}], "]"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"(", RowBox[{"\[Gamma]5", "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "gg", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"gg", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "I"}], ")"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "gg"}], "]"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"(", RowBox[{"\[Gamma]5", "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "gg", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"gg", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], RowBox[{"I", "/", "4"}]}], ")"}], " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "gg"}], "]"}], "]"}], RowBox[{ RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Gamma]stdown", "[", "mu", "]"}], ".", RowBox[{"\[Gamma]", "[", "la", "]"}]}], ")"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "gg", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"gg", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "I"}], "/", "32"}], ")"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "gg"}], "]"}], "]"}], RowBox[{ RowBox[{"CommuteGammadown", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"CommuteGammastdown", "[", RowBox[{"mu", ",", "nu"}], "]"}], ".", RowBox[{"\[Gamma]", "[", "la", "]"}]}], ")"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "gg", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"gg", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "I"}], "/", "4"}], ")"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{"KroneckerDelta", "[", RowBox[{"kk", ",", "gg"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Gamma]5\[Gamma]stdown", "[", "mu", "]"}], ".", RowBox[{"\[Gamma]", "[", "la", "]"}]}], ")"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "gg", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"gg", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], RowBox[{"I", "/", "4"}]}], ")"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{"KroneckerDelta", "[", RowBox[{"kk", ",", "gg"}], "]"}], RowBox[{"Cmetric", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"(", RowBox[{"(", RowBox[{ RowBox[{"\[Gamma]", "[", "la", "]"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], ")"}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "gg", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"gg", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], RowBox[{"I", "/", "4"}]}], ")"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{"KroneckerDelta", "[", RowBox[{"kk", ",", "gg"}], "]"}], RowBox[{"\[Gamma]5down", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"(", RowBox[{"(", RowBox[{ RowBox[{"\[Gamma]5\[Gamma]", "[", "la", "]"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], ")"}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "gg", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"gg", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{"3", RowBox[{"I", "/", "4"}]}], ")"}], " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"gg", ",", "kk"}], "]"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Gamma]5\[Gamma]stdown", "[", "mu", "]"}], ".", RowBox[{"\[Gamma]", "[", "la", "]"}]}], ")"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "gg", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"gg", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], RowBox[{"I", "/", "4"}]}], ")"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "gg"}], "]"}], "]"}], RowBox[{"Cmetric", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"(", RowBox[{"(", RowBox[{ RowBox[{"\[Gamma]", "[", "la", "]"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], ")"}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "gg", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"gg", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], RowBox[{"I", "/", "4"}]}], ")"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "gg"}], "]"}], "]"}], RowBox[{"\[Gamma]5down", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"(", RowBox[{"(", RowBox[{ RowBox[{"\[Gamma]5\[Gamma]", "[", "la", "]"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], ")"}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "gg", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"gg", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{"3", RowBox[{"I", "/", "4"}]}], ")"}], " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"gg", ",", "kk"}], "]"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Gamma]5\[Gamma]stdown", "[", "mu", "]"}], ".", RowBox[{"\[Gamma]", "[", "la", "]"}]}], ")"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "gg", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"gg", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], RowBox[{"I", "/", "4"}]}], ")"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "gg"}], "]"}], "]"}], RowBox[{"Cmetric", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"(", RowBox[{"(", RowBox[{ RowBox[{"\[Gamma]", "[", "la", "]"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], ")"}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "gg", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"gg", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], RowBox[{"I", "/", "4"}]}], ")"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "gg"}], "]"}], "]"}], RowBox[{"\[Gamma]5down", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"(", RowBox[{"(", RowBox[{ RowBox[{"\[Gamma]5\[Gamma]", "[", "la", "]"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], ")"}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "gg", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"gg", ",", "1", ",", "2"}], "}"}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"cc", ",", "1", ",", "4"}], "}"}]}], "]"}], "//", "Simplify"}]}], ";"}]], "Input", CellChangeTimes->{{3.796688298878528*^9, 3.7966883015456533`*^9}, { 3.796688413177371*^9, 3.796688646320394*^9}, 3.7967317678598223`*^9, { 3.798907797072052*^9, 3.798907810734171*^9}, {3.798907853407387*^9, 3.7989079537608137`*^9}, {3.798907983834111*^9, 3.798908240569311*^9}, { 3.7994924436587257`*^9, 3.799492450114275*^9}, {3.799592156453265*^9, 3.799592180199973*^9}, {3.799592533655637*^9, 3.799592552314208*^9}, { 3.799749054773774*^9, 3.799749082071954*^9}, 3.799749123512553*^9, { 3.7997491565555363`*^9, 3.799749176287838*^9}, {3.800214458357071*^9, 3.8002144594023113`*^9}, {3.800215195552874*^9, 3.800215201819219*^9}, { 3.800807280166449*^9, 3.800807287511012*^9}, {3.826163022637714*^9, 3.826163035373122*^9}, 3.845820277772255*^9, {3.8458203293006167`*^9, 3.8458203498729825`*^9}, {3.8458209318871*^9, 3.845820932262437*^9}, { 3.845821159713306*^9, 3.845821161740157*^9}}, CellLabel-> "In[441]:=",ExpressionUUID->"11e02b21-1ea2-4ca8-b3db-fd7188a7db96"], Cell[BoxData[ RowBox[{ RowBox[{"PsiTMHolTilMath", " ", "=", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "kk", "]"}], "[", "cc", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}], " ", "-", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "kk", "]"}], "[", "cc", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"cc", ",", "1", ",", "4"}], "}"}]}], "]"}], "//", "Simplify"}]}], ";"}]], "Input", CellChangeTimes->{{3.799749103453223*^9, 3.799749112711051*^9}, { 3.826163062970244*^9, 3.826163067477817*^9}, {3.845820335788498*^9, 3.8458203563822703`*^9}, {3.845820936788924*^9, 3.8458209369763556`*^9}, { 3.845821168460662*^9, 3.845821170907362*^9}}, CellLabel-> "In[442]:=",ExpressionUUID->"8e3f6f48-7a55-468d-9df3-1f240c5ce8d0"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"PsiTMHolTilMath", "==", "PsiTMHolTil"}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.799749135511647*^9, 3.799749138148642*^9}, { 3.845820339827856*^9, 3.8458203443166876`*^9}, {3.8458209411550093`*^9, 3.8458209581722097`*^9}}, CellLabel-> "In[443]:=",ExpressionUUID->"5ab3ede6-aac5-44a3-b736-c7e390d46dbf"], Cell[BoxData["True"], "Output", CellChangeTimes->{{3.7989079697433367`*^9, 3.798908024040094*^9}, { 3.798908055310829*^9, 3.798908248088732*^9}, 3.798917706962503*^9, 3.799057902333667*^9, 3.799060678844963*^9, 3.799069099293438*^9, 3.7993168515265017`*^9, {3.799492437670068*^9, 3.799492458346089*^9}, 3.7995302232083263`*^9, 3.799533336220661*^9, 3.799534083963203*^9, 3.799579025028277*^9, 3.7995921870324507`*^9, 3.7995925589783773`*^9, 3.799610307163706*^9, 3.799699907271235*^9, 3.7997418926429996`*^9, 3.799746566381053*^9, 3.79974915326301*^9, 3.799752743940125*^9, 3.799759776819063*^9, 3.8001106305768223`*^9, 3.800215212954705*^9, 3.8002175031022167`*^9, 3.800217578517034*^9, 3.800396823317642*^9, 3.800536893888236*^9, 3.800807271897875*^9, 3.8008099329841347`*^9, 3.801047567742814*^9, 3.8261623626692133`*^9, 3.826162928037599*^9, 3.826163077618904*^9, 3.82616312895017*^9, 3.826164043280325*^9, 3.8293260457451363`*^9, 3.8458154864208765`*^9, 3.8458202986522713`*^9, 3.845820361414239*^9, {3.8458209420453777`*^9, 3.8458209597568607`*^9}, 3.8458211770151677`*^9, 3.8458212754237003`*^9}, CellLabel-> "Out[443]=",ExpressionUUID->"c18f2636-fab3-4203-9eb4-58a409a1c1b3"] }, Open ]], Cell[CellGroupData[{ Cell["Check Paper", "Subsubsection", CellChangeTimes->{{3.845816060202326*^9, 3.845816061589342*^9}},ExpressionUUID->"1565af02-2f67-497b-acbe-\ 000fc824047c"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"cV1", "[", RowBox[{"TM", ",", "1", ",", "1"}], "]"}], "[", RowBox[{"ii_", ",", "jj_", ",", "kk_", ",", "ll_"}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"cV2", "[", RowBox[{"TM", ",", "1", ",", "1"}], "]"}], "[", RowBox[{"ii_", ",", "jj_", ",", "kk_", ",", "ll_"}], "]"}], ":=", RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}]}], ")"}]}]}]}], "Input", CellChangeTimes->{{3.8458161131239214`*^9, 3.845816140639987*^9}, { 3.8458162804302845`*^9, 3.8458163262906604`*^9}, 3.8458169000626373`*^9, { 3.845819374135563*^9, 3.8458193870107865`*^9}, {3.845820446577468*^9, 3.8458205020594063`*^9}}, CellLabel-> "In[444]:=",ExpressionUUID->"c6a44809-6a66-49f1-a8ba-215eadd20783"], Cell[BoxData[ RowBox[{ RowBox[{"PsiTMHolTilPaper", " ", "=", " ", RowBox[{ RowBox[{"2", " ", "I", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{"cV1", "[", RowBox[{"TM", ",", "1", ",", "1"}], "]"}], "[", RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], RowBox[{ RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"KroneckerDelta", "[", RowBox[{"cc", ",", "dd"}], "]"}]}], "+", RowBox[{ RowBox[{ RowBox[{"cV2", "[", RowBox[{"TM", ",", "1", ",", "1"}], "]"}], "[", RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"\[Gamma]5", "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}]}]}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "ll", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"ll", ",", "1", ",", "2"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"cc", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "//", "Simplify"}]}], ";"}]], "Input", CellChangeTimes->{{3.845816064746126*^9, 3.845816078418069*^9}, { 3.845816390133669*^9, 3.8458165372225733`*^9}, {3.8458166241346316`*^9, 3.845816673589799*^9}, {3.845816704000813*^9, 3.8458167510051827`*^9}, { 3.845817012861351*^9, 3.8458170134952707`*^9}, {3.845817074812883*^9, 3.845817078417838*^9}, {3.8458186332991114`*^9, 3.8458186356116147`*^9}, { 3.8458195288049517`*^9, 3.8458195338392324`*^9}, 3.8458195944691753`*^9, { 3.8458198208492107`*^9, 3.84581990852046*^9}, 3.8458199735101914`*^9, { 3.8458200094676743`*^9, 3.845820141061098*^9}, {3.845820598903084*^9, 3.845820660383747*^9}, {3.8458207230840673`*^9, 3.845820792263783*^9}, { 3.8458208626946487`*^9, 3.845820862819517*^9}, {3.8458208941043177`*^9, 3.8458208960126085`*^9}, {3.845820946480707*^9, 3.8458209486473875`*^9}}, CellLabel-> "In[446]:=",ExpressionUUID->"2f294f35-62d3-408e-90d7-b1fb09aa941d"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PsiTMHolTilPaper", "==", "PsiTMHolTilMath"}]], "Input", CellChangeTimes->{{3.84581675510841*^9, 3.8458168067005014`*^9}, 3.8458168568856883`*^9, {3.845820201994506*^9, 3.8458202078706827`*^9}, { 3.8458209005934114`*^9, 3.8458209114817085`*^9}, {3.8458209710845957`*^9, 3.845820991658119*^9}}, CellLabel-> "In[447]:=",ExpressionUUID->"7f7c8b38-1ade-49cf-9add-3d6e8169d6fb"], Cell[BoxData[ InterpretationBox[ TagBox[ FrameBox[GridBox[{ { ItemBox[ TagBox[ RowBox[{ TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], "\[Equal]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], ",", RowBox[{"{", RowBox[{ RowBox[{"{", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], "}"}], ",", RowBox[{"{", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], ",", RowBox[{"{", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], "}"}], ",", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{ TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{"(", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], ")"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], ")"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], ")"}]}]}], "}"}], ",", RowBox[{"{", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], "}"}]}], "}"}]}], "}"}], ",", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"]}], "}"}], ",", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"]}], "}"}]}], "}"}]}], Short[#, 5]& ], BaseStyle->{Deployed -> False}, StripOnInput->False]}, {GridBox[{ { PaneBox[ TagBox[ TooltipBox[ StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource[ "FEStrings", "sizeBriefExplanation"], StandardForm], ImageSizeCache->{82., {4., 11.}}], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLText", StripOnInput->False], StyleBox[ DynamicBox[ ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"], StandardForm]], DynamicUpdating -> True, LineIndent -> 0, LinebreakAdjustments -> {1., 100, 0, 0, 0}, LineSpacing -> {1, 2}, StripOnInput -> False]], Annotation[#, Style[ Dynamic[ FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"]], DynamicUpdating -> True, LineIndent -> 0, LinebreakAdjustments -> {1., 100, 0, 0, 0}, LineSpacing -> {1, 2}], "Tooltip"]& ], Alignment->Center, BaselinePosition->Baseline, ImageSize->{Automatic, {25, Full}}], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], StandardForm], ImageSizeCache->{67., {1., 11.}}], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl", StripOnInput->False], True-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], StandardForm]], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive", StripOnInput->False]}, Dynamic[ CurrentValue["MouseOver"]], Alignment->Center, FrameMargins->0, ImageSize->{Automatic, {25, Full}}], Appearance->None, BaselinePosition->Baseline, ButtonFunction:>OutputSizeLimit`ButtonFunction[ OutputSizeLimit`Defer, 447, 21660477292722285316, 5/2], Enabled->True, Evaluator->Automatic, Method->"Queued"], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], StandardForm], ImageSizeCache->{78., {1., 11.}}], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl", StripOnInput->False], True-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], StandardForm]], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive", StripOnInput->False]}, Dynamic[ CurrentValue["MouseOver"]], Alignment->Center, FrameMargins->0, ImageSize->{Automatic, {25, Full}}], Appearance->None, BaselinePosition->Baseline, ButtonFunction:>OutputSizeLimit`ButtonFunction[ OutputSizeLimit`Defer, 447, 21660477292722285316, 5 2], Enabled->True, Evaluator->Automatic, Method->"Queued"], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], StandardForm], ImageSizeCache->{58., {1., 11.}}], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl", StripOnInput->False], True-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], StandardForm]], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive", StripOnInput->False]}, Dynamic[ CurrentValue["MouseOver"]], Alignment->Center, FrameMargins->0, ImageSize->{Automatic, {25, Full}}], Appearance->None, BaselinePosition->Baseline, ButtonFunction:>OutputSizeLimit`ButtonFunction[ OutputSizeLimit`Defer, 447, 21660477292722285316, Infinity], Enabled->True, Evaluator->Automatic, Method->"Queued"], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], StandardForm], ImageSizeCache->{99., {1., 11.}}], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl", StripOnInput->False], True-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], StandardForm]], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive", StripOnInput->False]}, Dynamic[ CurrentValue["MouseOver"]], Alignment->Center, FrameMargins->0, ImageSize->{Automatic, {25, Full}}], Appearance->None, BaselinePosition->Baseline, ButtonFunction:>FrontEndExecute[{ FrontEnd`SetOptions[ FrontEnd`$FrontEnd, FrontEnd`PreferencesSettings -> {"Page" -> "Advanced"}], FrontEnd`FrontEndToken["PreferencesDialog"]}], Evaluator->None, Method->"Preemptive"]} }, AutoDelete->False, FrameStyle->GrayLevel[0.85], GridBoxDividers->{"Columns" -> {False, {True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], Offset[1.2], { Offset[0.4]}, Offset[0.2]}}], BaseStyle->"OutputSizeLimit", FrameMargins->{{12, 12}, {0, 15}}, FrameStyle->GrayLevel[0.85], RoundingRadius->5, StripOnInput->False], Deploy, DefaultBaseStyle->"Deploy"], If[21660477292722285316 === $SessionID, Out[447], Message[ MessageName[Syntax, "noinfoker"]]; Missing["NotAvailable"]; Null]]], "Output", CellChangeTimes->{ 3.8458168580013504`*^9, 3.845816908632041*^9, {3.845816994976781*^9, 3.8458170185246644`*^9}, 3.8458185219517794`*^9, 3.8458186471715875`*^9, { 3.8458202104334135`*^9, 3.8458202291396523`*^9}, 3.8458209989604464`*^9, 3.845821058816781*^9, {3.8458212011338873`*^9, 3.8458212220863934`*^9}, 3.845821276157872*^9}, CellLabel-> "Out[447]=",ExpressionUUID->"fe87d9ff-f71e-46c1-b3b3-f635c70ee3bf"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"PsiTMHolTilPaper", "==", "PsiTMHolTilMath"}], "//.", "EnforceDiracEquation"}], ")"}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.8458168596468625`*^9, 3.845816885412697*^9}, { 3.8458186093902607`*^9, 3.845818614665053*^9}, {3.845820214545537*^9, 3.845820220282011*^9}, {3.845821013585593*^9, 3.8458210267170286`*^9}}, CellLabel-> "In[448]:=",ExpressionUUID->"98b486f5-cd97-4d7d-8f05-30a98710ab89"], Cell[BoxData["True"], "Output", CellChangeTimes->{ 3.8458168753242297`*^9, 3.8458169129511166`*^9, {3.8458170016868105`*^9, 3.8458170225585747`*^9}, 3.845817274845868*^9, 3.8458185251656084`*^9, 3.845818617024748*^9, 3.8458186474374294`*^9, {3.845820223376128*^9, 3.8458202292646303`*^9}, {3.845821207003146*^9, 3.8458212222113314`*^9}, 3.845821276407814*^9}, CellLabel-> "Out[448]=",ExpressionUUID->"f4f03711-5294-4ba6-897a-83f44d63ac9d"] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Bmn", "Subsection", CellChangeTimes->{ 3.798836859060895*^9, {3.7988369545714197`*^9, 3.798836955216799*^9}},ExpressionUUID->"d2bdc0c9-bc88-4896-a972-\ b841fc175410"], Cell[BoxData[ RowBox[{ RowBox[{"BmnHolTil", "=", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}]}], RowBox[{"(", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"\[Epsilon]downdownupup", "[", RowBox[{"mu", ",", "nu", ",", "de", ",", "la"}], "]"}], RowBox[{ RowBox[{"\[Gamma]stdowndown", "[", "de", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", " ", RowBox[{ RowBox[{ RowBox[{"B", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"de", ",", "0", ",", "3"}], "}"}]}], "]"}], ")"}]}], "\[IndentingNewLine]", "-", " ", RowBox[{ RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"\[Epsilon]downdownupup", "[", RowBox[{"mu", ",", "nu", ",", "de", ",", "la"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]stdowndown", "[", "de", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"A", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"de", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", " ", RowBox[{ RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"\[Epsilon]downdownupup", "[", RowBox[{"mu", ",", "nu", ",", "de", ",", "la"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]stdowndown", "[", "de", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"\[CurlyPhi]", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"de", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "-", RowBox[{ FractionBox["1", "3"], " ", RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"\[Epsilon]downupupup", "[", RowBox[{"mu", ",", "ka", ",", "al", ",", "be"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]stdowndown", "[", "nu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"Hmna", "[", RowBox[{"ka", ",", "al", ",", "be"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"ka", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"al", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"be", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ FractionBox["1", "3"], " ", RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"\[Epsilon]downupupup", "[", RowBox[{"nu", ",", "ka", ",", "al", ",", "be"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]stdowndown", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"Hmna", "[", RowBox[{"ka", ",", "al", ",", "be"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"ka", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"al", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"be", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"aa", ",", " ", "1", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"bb", ",", " ", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}]}], ";"}]], "Input", CellChangeTimes->{{3.798893281313848*^9, 3.798893546378006*^9}, { 3.798893620936532*^9, 3.798893686336825*^9}, {3.798893725331979*^9, 3.798893760436063*^9}, {3.798893793500227*^9, 3.798893823000149*^9}, { 3.798893861362837*^9, 3.7988939453375998`*^9}, {3.798893978327161*^9, 3.798893997759643*^9}, {3.7995915655684967`*^9, 3.799591602270344*^9}, { 3.799749182067765*^9, 3.799749215546301*^9}, {3.8001975005376253`*^9, 3.800197500874782*^9}, {3.800806991390181*^9, 3.800807012429635*^9}}, CellLabel-> "In[449]:=",ExpressionUUID->"536202ba-54a2-45c7-837a-fcdc1f839785"], Cell[BoxData[ RowBox[{ RowBox[{"BmnHolTilMath", "=", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"Bmn", "[", "1", "]"}], "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}], " ", "-", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"Bmn", "[", "1", "]"}], "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"aa", ",", " ", "1", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"bb", ",", " ", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}]}], ";"}]], "Input", CellChangeTimes->{{3.79974920114291*^9, 3.799749207916918*^9}}, CellLabel-> "In[450]:=",ExpressionUUID->"4c0fb25f-d042-49d6-8b06-4da737306ae1"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"BmnHolTilMath", "==", "BmnHolTil"}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.799749221102178*^9, 3.799749223421048*^9}}, CellLabel-> "In[451]:=",ExpressionUUID->"a44104ce-1888-4e65-a5f7-4262a7251dad"], Cell[BoxData["True"], "Output", CellChangeTimes->{ 3.798893551600368*^9, {3.798893623672624*^9, 3.798893687526298*^9}, { 3.798893731384098*^9, 3.798893761360238*^9}, {3.7988938033532667`*^9, 3.798893824366497*^9}, {3.798893894641756*^9, 3.798893946402515*^9}, { 3.7988939864733057`*^9, 3.798893998832448*^9}, 3.798894404864112*^9, 3.798894580440209*^9, 3.7989032749140043`*^9, 3.798917707694911*^9, 3.799057903002924*^9, 3.7990606794571733`*^9, 3.799069099938163*^9, 3.799316852193839*^9, 3.799492438304201*^9, 3.799530223800083*^9, 3.7995333368205853`*^9, 3.7995340846312513`*^9, 3.799579025682501*^9, { 3.7995915835673037`*^9, 3.7995916030294*^9}, 3.79961030788069*^9, 3.799699907920271*^9, 3.799741893343281*^9, 3.799746567087858*^9, 3.7997492270417128`*^9, 3.7997527447036467`*^9, 3.799759777559401*^9, 3.8001106313437033`*^9, 3.800197508301586*^9, 3.800217579194865*^9, 3.800396824108963*^9, 3.8005368947077017`*^9, 3.800806683663611*^9, 3.800807015422861*^9, 3.80080727260126*^9, 3.800809933737137*^9, 3.80104756836871*^9, 3.826162363349131*^9, 3.826163129639461*^9, 3.826164044619314*^9, 3.829326046495222*^9, 3.845815487215164*^9, 3.84582127725189*^9}, CellLabel-> "Out[451]=",ExpressionUUID->"3fb9264a-7a2c-4a48-920f-7b5ee0d46923"] }, Open ]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Vector Cross", "Section", CellChangeTimes->{{3.798840311398507*^9, 3.798840313583603*^9}},ExpressionUUID->"ea0d3bd9-6773-4f78-b0b9-\ 3ea113fa5cd9"], Cell[CellGroupData[{ Cell["A\t", "Subsection", CellChangeTimes->{{3.798836364100836*^9, 3.798836366153274*^9}},ExpressionUUID->"4488e004-4d00-431d-b46e-\ 8f425e89452f"], Cell[BoxData[ RowBox[{ RowBox[{"AVMHolCross", "=", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"(", RowBox[{"2", "I", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], ")"}]}], "\[IndentingNewLine]", "-", RowBox[{ RowBox[{"(", RowBox[{"2", "/", "3"}], ")"}], " ", RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"\[Epsilon]downupupup", "[", RowBox[{"mu", ",", "nu", ",", "al", ",", "be"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"Hmna", "[", RowBox[{"nu", ",", "al", ",", "be"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"al", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"be", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"aa", ",", " ", "1", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"bb", ",", " ", "1", ",", "4"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}]}], ";"}]], "Input", CellChangeTimes->{{3.7995258614897623`*^9, 3.799526152310034*^9}, { 3.7995797578567123`*^9, 3.799579764398809*^9}, {3.7997492630233097`*^9, 3.7997492995263453`*^9}, {3.800197515813281*^9, 3.800197516366963*^9}}, CellLabel-> "In[214]:=",ExpressionUUID->"d269d7c6-cf5f-48e0-ad7a-c60ea0892525"], Cell[BoxData[ RowBox[{ RowBox[{"AVMHolCrossMath", "=", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{"A", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}], " ", "-", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{"A", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"aa", ",", " ", "1", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"bb", ",", " ", "1", ",", "4"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}]}], ";"}]], "Input", CellChangeTimes->{{3.799749274028228*^9, 3.7997493017701073`*^9}}, CellLabel-> "In[215]:=",ExpressionUUID->"1d33d41e-a69e-4e30-bc3c-94f5aa6c0ab5"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"AVMHolCrossMath", "==", "AVMHolCross"}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.799749290283351*^9, 3.799749292871292*^9}}, CellLabel-> "In[216]:=",ExpressionUUID->"6206dbbf-e34f-4e21-85d3-b3a6b329debd"], Cell[BoxData["True"], "Output", CellChangeTimes->{{3.799526142986329*^9, 3.799526152664515*^9}, 3.7995302238709593`*^9, 3.7995333368958197`*^9, 3.79953410041431*^9, 3.799579025752699*^9, 3.799579768211512*^9, 3.799610307952941*^9, 3.799699908013472*^9, 3.799741893424974*^9, 3.799746567157867*^9, { 3.799749295942034*^9, 3.7997493055070057`*^9}, 3.799752744829513*^9, 3.799759777711338*^9, 3.800110631490584*^9, 3.800112264515891*^9, 3.8001134762163486`*^9, 3.800130124977594*^9, 3.800197519066622*^9, 3.800217579328086*^9, {3.800396827925918*^9, 3.800396838454917*^9}, 3.800536894851123*^9, 3.8008077301337843`*^9, 3.800809933815681*^9, 3.826162363421382*^9, 3.826163129730645*^9, 3.826164044752817*^9, 3.829326050843401*^9, 3.8458154875193634`*^9}, CellLabel-> "Out[216]=",ExpressionUUID->"1228cdfb-4cf7-4eda-bdc7-c7fb7e668441"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["B\t", "Subsection", CellChangeTimes->{{3.798836364100836*^9, 3.798836366153274*^9}, { 3.798836416200686*^9, 3.798836416547799*^9}},ExpressionUUID->"3f3b987a-40bb-43e3-8edd-\ 17815de11735"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"A", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{"2", " ", RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"\[CurlyPhi]", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], "\[Equal]", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{"B", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}], " ", "-", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{"B", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"aa", ",", " ", "1", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"bb", ",", " ", "1", ",", "4"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}], ";"}]], "Input", CellChangeTimes->{{3.799526216678853*^9, 3.799526335222062*^9}, 3.799749333539291*^9, {3.800197528303647*^9, 3.800197539217977*^9}}, CellLabel-> "In[217]:=",ExpressionUUID->"b7510514-fe55-43ac-a133-98c3209643b7"], Cell[BoxData[ RowBox[{ RowBox[{"BVMHolCross", "=", " ", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"A", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{"2", " ", RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"\[CurlyPhi]", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"aa", ",", " ", "1", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"bb", ",", " ", "1", ",", "4"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}]}], ";"}]], "Input", CellChangeTimes->{{3.799749361504879*^9, 3.799749372472539*^9}, { 3.8001975440452757`*^9, 3.8001975473174887`*^9}}, CellLabel-> "In[218]:=",ExpressionUUID->"08ab0720-7e73-4c93-825e-d9c7329b0315"], Cell[BoxData[ RowBox[{ RowBox[{"BVMHolCrossMath", "=", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{"B", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}], " ", "-", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{"B", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"aa", ",", " ", "1", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"bb", ",", " ", "1", ",", "4"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}]}], ";"}]], "Input", CellChangeTimes->{{3.79974937825519*^9, 3.7997493870197783`*^9}}, CellLabel-> "In[219]:=",ExpressionUUID->"68320c96-8513-4871-87a4-f769d6380996"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"BVMHolCrossMath", "==", "BVMHolCross"}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.799749393228444*^9, 3.799749396010771*^9}}, CellLabel-> "In[220]:=",ExpressionUUID->"4e783282-1a3f-4f47-89e5-fe8d926db00a"], Cell[BoxData["True"], "Output", CellChangeTimes->{{3.7995262777856407`*^9, 3.799526335688815*^9}, 3.7995302239069567`*^9, 3.799533336932798*^9, 3.799534100477002*^9, 3.799579025785616*^9, 3.799610307988297*^9, 3.7996999080652857`*^9, 3.7997418935053463`*^9, 3.799746567188141*^9, 3.7997493983856783`*^9, 3.799752744901462*^9, 3.7997597778048353`*^9, 3.800110631572212*^9, 3.800112264600523*^9, 3.800113476284697*^9, 3.800130125038581*^9, 3.8001975501100187`*^9, 3.800217579410088*^9, {3.800396828002441*^9, 3.8003968385480003`*^9}, 3.800536894969907*^9, 3.800807846779529*^9, 3.800809933867486*^9, 3.8261623634627857`*^9, 3.826163129783227*^9, 3.8261640448698053`*^9, 3.829326050952711*^9, 3.845815487706829*^9}, CellLabel-> "Out[220]=",ExpressionUUID->"9ac12ef8-647f-498f-8156-ee510f041c4a"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Vector", "Subsection", CellChangeTimes->{{3.79882231017908*^9, 3.798822311983996*^9}, { 3.799749931302547*^9, 3.799749934111747*^9}},ExpressionUUID->"e68156a3-ab04-4eca-b10f-\ 61db694912a1"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"2", " ", RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{ RowBox[{"(", "\[Gamma]5down", ")"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{"I", " ", RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"CommuteGammastdownstupdown", "[", RowBox[{"mu", ",", "la"}], "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"A", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{"I", " ", RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"CommuteGammastdownstupdown", "[", RowBox[{"mu", ",", "la"}], "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"\[CurlyPhi]", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{"2", " ", RowBox[{"I", "/", "3"}]}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"\[Epsilon]downupupup", "[", RowBox[{"mu", ",", "nu", ",", "al", ",", "be"}], "]"}], RowBox[{ RowBox[{"(", "\[Gamma]5down", ")"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"Hmna", "[", RowBox[{"nu", ",", "al", ",", "be"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"al", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"be", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "\[Equal]", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"Avec", "[", "0", "]"}], "[", "mu", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}], " ", "-", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"Avec", "[", "0", "]"}], "[", "mu", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"aa", ",", " ", "1", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"bb", ",", " ", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}], ";"}]], "Input", CellChangeTimes->{{3.800197573767826*^9, 3.800197580644576*^9}}, CellLabel-> "In[221]:=",ExpressionUUID->"067d9818-1fbe-4f50-a531-270d655c5d68"], Cell[BoxData[ RowBox[{ RowBox[{"AvecHolCross", "=", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"2", " ", RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{ RowBox[{"(", "\[Gamma]5down", ")"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{"I", " ", RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"CommuteGammastdownstupdown", "[", RowBox[{"mu", ",", "la"}], "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"A", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{"I", " ", RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"CommuteGammastdownstupdown", "[", RowBox[{"mu", ",", "la"}], "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"\[CurlyPhi]", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{"2", " ", RowBox[{"I", "/", "3"}]}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"\[Epsilon]downupupup", "[", RowBox[{"mu", ",", "nu", ",", "al", ",", "be"}], "]"}], RowBox[{ RowBox[{"(", "\[Gamma]5down", ")"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"Hmna", "[", RowBox[{"nu", ",", "al", ",", "be"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"al", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"be", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"aa", ",", " ", "1", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"bb", ",", " ", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}]}], ";"}]], "Input", CellChangeTimes->{{3.7997498062620907`*^9, 3.79974983324035*^9}, { 3.800197585080778*^9, 3.8001975853955193`*^9}}, CellLabel-> "In[222]:=",ExpressionUUID->"b1d45164-221e-46cd-a4ea-f44f9ce4d26c"], Cell[BoxData[ RowBox[{ RowBox[{"AvecHolCrossMath", "=", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"Avec", "[", "0", "]"}], "[", "mu", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}], " ", "-", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"Avec", "[", "0", "]"}], "[", "mu", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"aa", ",", " ", "1", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"bb", ",", " ", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}]}], ";"}]], "Input", CellChangeTimes->{{3.799319302350932*^9, 3.799319451105864*^9}, { 3.799319485903077*^9, 3.7993196666416893`*^9}, {3.799534107075006*^9, 3.7995341251714582`*^9}, {3.7995809091706448`*^9, 3.799580962529376*^9}, { 3.799580999447173*^9, 3.799581005287903*^9}, {3.799581312821664*^9, 3.799581447822173*^9}, {3.7995814890520563`*^9, 3.799581529590783*^9}, { 3.7995816364398518`*^9, 3.799581682509389*^9}, {3.799581833221628*^9, 3.7995819068353357`*^9}, {3.799581938983794*^9, 3.799581939429604*^9}, { 3.7995819782886753`*^9, 3.7995820519279413`*^9}, {3.7995820833699293`*^9, 3.799582164428506*^9}, {3.799582219206561*^9, 3.799582487377264*^9}, { 3.7995825305047827`*^9, 3.799582544995819*^9}, {3.799582620051106*^9, 3.799582642864958*^9}, {3.7996017910860777`*^9, 3.799601806733137*^9}, { 3.799749795829804*^9, 3.799749840114455*^9}}, CellLabel-> "In[223]:=",ExpressionUUID->"130690af-3c17-4e4f-ab5d-45d5e5b8ecba"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"AvecHolCrossMath", "==", "AvecHolCross"}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.799749823622703*^9, 3.799749825863433*^9}}, CellLabel-> "In[224]:=",ExpressionUUID->"3adbe459-f1c4-4fc6-800b-c7386c430362"], Cell[BoxData["True"], "Output", CellChangeTimes->{{3.7995818971893044`*^9, 3.79958190737226*^9}, 3.799581941334052*^9, 3.7995819855673103`*^9, {3.7995820354095917`*^9, 3.7995820587246532`*^9}, {3.799582118149013*^9, 3.7995821648025093`*^9}, { 3.799582282912801*^9, 3.799582316745679*^9}, 3.79958254652176*^9, { 3.799582613947298*^9, 3.799582644029256*^9}, {3.799601797424403*^9, 3.799601818059804*^9}, 3.799610308209594*^9, 3.799699908367358*^9, 3.799741893866683*^9, 3.7997465702379503`*^9, 3.7997498433388233`*^9, 3.799752745407073*^9, 3.799759778319562*^9, 3.800110632035537*^9, 3.800112265128228*^9, 3.800113476746279*^9, 3.800130125501491*^9, 3.8001975883016577`*^9, 3.8002175796007566`*^9, {3.800396828204247*^9, 3.800396838731203*^9}, 3.800536895198929*^9, 3.8008082127277393`*^9, 3.8008099340584497`*^9, 3.826162363633018*^9, 3.8261631299608088`*^9, 3.826164045196499*^9, 3.829326051171454*^9, 3.8458154880973577`*^9}, CellLabel-> "Out[224]=",ExpressionUUID->"2e7c424d-ab49-40b9-879b-12cafa39f040"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ Siew Psi with Better Gamma Basis, in the body of the paper is quoted the \ results upon actually enforcing the dirac equation. Below are also given the \ results including these Dirac Equation terms\ \>", "Subsection", CellChangeTimes->{{3.800110225578562*^9, 3.800110226896809*^9}, { 3.80030750768155*^9, 3.800307511126584*^9}, {3.800348887424917*^9, 3.800348896110038*^9}, {3.845821294261114*^9, 3.8458213064364223`*^9}},ExpressionUUID->"1f7be7d4-c00d-443a-b109-\ df582b9b7ae0"], Cell[CellGroupData[{ Cell["X", "Subsubsection", CellChangeTimes->{{3.800130363816936*^9, 3.800130367136668*^9}},ExpressionUUID->"22a326fb-f415-4cf2-a556-\ 200c4819bad1"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"X1", "[", "6", "]"}], "[", RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"I", "/", "4"}], ")"}], " ", RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{"1", "/", "4"}], ")"}], RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "/", "4"}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "I"}], "/", "4"}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"KroneckerDelta", "[", RowBox[{"kk", ",", "ll"}], "]"}]}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"ll", ",", "1", ",", "2"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.7996652510347357`*^9, 3.7996652627513514`*^9}, { 3.799665312176265*^9, 3.799665415860877*^9}, {3.7996688962254457`*^9, 3.79966892876335*^9}, {3.799668970297758*^9, 3.799668996919237*^9}, { 3.79966936661845*^9, 3.799669376211941*^9}, 3.7996694194644403`*^9, 3.7996695274905787`*^9, {3.7996696937892942`*^9, 3.799669695361713*^9}, { 3.799669865353406*^9, 3.7996698737971687`*^9}, {3.799670026165674*^9, 3.799670026458721*^9}, {3.799670663970121*^9, 3.799670671259778*^9}, { 3.799670768700727*^9, 3.799670779423319*^9}, {3.7996708916619368`*^9, 3.7996708945646544`*^9}, 3.79967183063323*^9, {3.799671875290814*^9, 3.7996718765944147`*^9}, 3.7996719112611217`*^9, {3.7996720346890163`*^9, 3.799672035401425*^9}, {3.7996724117741823`*^9, 3.799672425731805*^9}, { 3.799672599599312*^9, 3.7996726010631247`*^9}, {3.799672699752431*^9, 3.7996727139193*^9}, {3.799673080026394*^9, 3.799673080784636*^9}, { 3.7996731163064547`*^9, 3.799673138727139*^9}, {3.799674264316572*^9, 3.7996742739728727`*^9}, {3.799679827961631*^9, 3.799679828676334*^9}, { 3.7996799354508467`*^9, 3.7996799779879932`*^9}, {3.799681100664277*^9, 3.799681135447175*^9}, {3.7996814518964977`*^9, 3.799681453098822*^9}, { 3.799699938950777*^9, 3.7996999543280354`*^9}, {3.799707102047843*^9, 3.799707104427792*^9}, 3.7997421496043167`*^9, {3.799742344687454*^9, 3.799742353137207*^9}, {3.799742425119286*^9, 3.7997424265511713`*^9}, { 3.7997425333807497`*^9, 3.79974253389616*^9}, {3.7997426182329817`*^9, 3.79974265245472*^9}, {3.7997426901603527`*^9, 3.799742691526273*^9}, { 3.799743597400085*^9, 3.799743602560834*^9}, {3.799745965468335*^9, 3.799745986722908*^9}, {3.799746257495017*^9, 3.799746257909979*^9}, { 3.800110234835294*^9, 3.800110333917371*^9}, {3.800110447135627*^9, 3.80011045140107*^9}, {3.8001127566627007`*^9, 3.800112773380061*^9}, 3.8001128414179573`*^9, 3.800113032434372*^9, {3.800113249359889*^9, 3.800113256939803*^9}, {3.80011352143509*^9, 3.80011353067688*^9}, { 3.800129734058968*^9, 3.800129751777575*^9}, {3.800129816244417*^9, 3.800129818191153*^9}, {3.800130228898118*^9, 3.800130241844441*^9}, { 3.800130409901802*^9, 3.800130413713191*^9}, 3.800132251380665*^9, { 3.800132306472823*^9, 3.800132310047781*^9}, {3.800132477836877*^9, 3.8001324784234047`*^9}, 3.80013291222683*^9, {3.800133029880526*^9, 3.8001330486368103`*^9}, {3.800133087713871*^9, 3.800133120224462*^9}, { 3.800133643112492*^9, 3.800133653224915*^9}, {3.800133773934532*^9, 3.800133785766027*^9}, {3.800133890656115*^9, 3.8001339001548367`*^9}, { 3.800138128183538*^9, 3.8001382025783997`*^9}, {3.8003069374506073`*^9, 3.800306938169345*^9}, {3.800307538885254*^9, 3.800307546445533*^9}, { 3.8003491310667543`*^9, 3.800349131433249*^9}, {3.8003569190290623`*^9, 3.8003569277095947`*^9}, {3.800357526854577*^9, 3.800357538460176*^9}, { 3.800365573310143*^9, 3.8003655809633627`*^9}}, CellLabel-> "In[493]:=",ExpressionUUID->"89ae2a0c-c8ee-4c8e-ba6b-688d75b5b62e"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"X2", "[", "6", "]"}], "[", RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"I", "/", "16"}], ")"}], " ", RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "/", "16"}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{"3", "/", "16"}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{"3", RowBox[{"I", "/", "16"}]}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"KroneckerDelta", "[", RowBox[{"kk", ",", "ll"}], "]"}]}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"ll", ",", "1", ",", "2"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.800110393626577*^9, 3.800110395188344*^9}, { 3.800110466112854*^9, 3.8001104768546257`*^9}, 3.8001118330103903`*^9, 3.800112956601022*^9, 3.800112999763776*^9, 3.800113092946046*^9, 3.800113143409091*^9, {3.8001297611340446`*^9, 3.8001297612426443`*^9}, { 3.800130261643187*^9, 3.800130279213718*^9}, {3.8001304264321327`*^9, 3.8001304314667892`*^9}, {3.80013254812916*^9, 3.8001325510583*^9}, { 3.8001326036920958`*^9, 3.800132607003542*^9}, {3.8001328792051907`*^9, 3.800132880930582*^9}, {3.800133141413445*^9, 3.800133199529097*^9}, { 3.8001332551397657`*^9, 3.8001332713572598`*^9}, {3.8001339146818447`*^9, 3.80013393048846*^9}, {3.800138258725418*^9, 3.800138271697207*^9}, { 3.800306943081872*^9, 3.800306943192387*^9}, {3.80030759437507*^9, 3.800307602756695*^9}, {3.800348925708269*^9, 3.800348925814316*^9}, { 3.800357029882895*^9, 3.800357038924396*^9}, {3.800357552356814*^9, 3.800357560366818*^9}, {3.800365635313683*^9, 3.800365646376528*^9}, { 3.800808847763864*^9, 3.800808847886324*^9}}, CellLabel-> "In[494]:=",ExpressionUUID->"c35f42ab-aa05-4b02-a292-22a7d68f46d9"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"X3", "[", "6", "]"}], "[", RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "I"}], "/", "8"}], ")"}], " ", RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "/", "8"}], ")"}], RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{"1", "/", "8"}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{"I", "/", "8"}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"KroneckerDelta", "[", RowBox[{"kk", ",", "ll"}], "]"}]}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"ll", ",", "1", ",", "2"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.800110363292152*^9, 3.800110389990699*^9}, { 3.800110455043022*^9, 3.8001104616285057`*^9}, 3.8001117981170263`*^9, 3.80011274537081*^9, 3.800112926723485*^9, 3.800113013680533*^9, 3.800113065674403*^9, {3.800129738373971*^9, 3.8001297393872137`*^9}, { 3.800130249651207*^9, 3.8001302596168337`*^9}, {3.800130416013686*^9, 3.80013042194765*^9}, 3.800132395100371*^9, {3.800132460284151*^9, 3.800132463281928*^9}, {3.800132533192268*^9, 3.800132533690661*^9}, { 3.80013271252822*^9, 3.800132713110586*^9}, {3.8001331222344437`*^9, 3.800133138285466*^9}, {3.800133423442689*^9, 3.800133437706676*^9}, { 3.800133593577133*^9, 3.800133607818359*^9}, {3.800133902276018*^9, 3.800133913015147*^9}, {3.800138229398325*^9, 3.800138235609268*^9}, { 3.8003069415037117`*^9, 3.800306941625657*^9}, {3.800307547852943*^9, 3.8003075551338787`*^9}, {3.800307590889777*^9, 3.800307591981887*^9}, { 3.800349133230133*^9, 3.800349133729011*^9}, {3.800356980607193*^9, 3.800356988865437*^9}, {3.800357539979629*^9, 3.800357548094481*^9}, { 3.800365610844468*^9, 3.8003656198488607`*^9}, {3.800808843397341*^9, 3.800808843599346*^9}}, CellLabel-> "In[495]:=",ExpressionUUID->"39c5e744-37e5-4a94-8cd0-c669933a3558"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"X4", "[", "6", "]"}], "[", RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], RowBox[{"I", "/", "128"}]}], ")"}], " ", RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "/", "128"}], ")"}], RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{"3", "/", "128"}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{"3", RowBox[{"I", "/", "128"}]}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"KroneckerDelta", "[", RowBox[{"kk", ",", "ll"}], "]"}]}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"ll", ",", "1", ",", "2"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.8003069308017817`*^9, 3.800306954677063*^9}, { 3.800307644144287*^9, 3.800307655127385*^9}, {3.800348937317486*^9, 3.800348937490572*^9}, {3.800357214650063*^9, 3.8003572235315533`*^9}, { 3.8003577033792267`*^9, 3.800357723033798*^9}, {3.800365783235565*^9, 3.800365797963922*^9}, {3.800808805028843*^9, 3.800808805068199*^9}}, CellLabel-> "In[496]:=",ExpressionUUID->"7ccc48f3-bfc9-4fb8-8bbe-c1a682ba5520"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"X5", "[", "6", "]"}], "[", RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"3", RowBox[{"I", "/", "4"}]}], ")"}], " ", RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "/", "4"}], ")"}], RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{"1", "/", "4"}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], RowBox[{"I", "/", "4"}]}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"KroneckerDelta", "[", RowBox[{"kk", ",", "ll"}], "]"}]}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"ll", ",", "1", ",", "2"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.800110398283496*^9, 3.800110398462944*^9}, { 3.8001104872476892`*^9, 3.8001104945167007`*^9}, 3.800112804979659*^9, 3.800112918773007*^9, 3.800113076498694*^9, 3.8001131301072206`*^9, { 3.8001134493742447`*^9, 3.800113450773027*^9}, {3.800113495020145*^9, 3.8001135058933372`*^9}, {3.8001297659715*^9, 3.800129766104232*^9}, { 3.800130293975542*^9, 3.800130299224527*^9}, {3.800130440242423*^9, 3.800130447620881*^9}, {3.800132257881941*^9, 3.80013227037158*^9}, 3.800132419802051*^9, {3.8001324707076283`*^9, 3.800132471433772*^9}, { 3.800133955797564*^9, 3.8001339629269648`*^9}, {3.800138325288735*^9, 3.8001383339053392`*^9}, {3.800306946071735*^9, 3.800306946195368*^9}, { 3.800307605675214*^9, 3.8003076116074657`*^9}, {3.800348926599927*^9, 3.800348926686325*^9}, {3.800357044327593*^9, 3.800357058063589*^9}, { 3.800357562712772*^9, 3.800357572095798*^9}, {3.800365664870315*^9, 3.800365676842514*^9}}, CellLabel-> "In[497]:=",ExpressionUUID->"052e53c0-c8aa-4b37-917d-5ea092ea106a"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"X6", "[", "6", "]"}], "[", RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], RowBox[{"I", "/", "16"}]}], ")"}], " ", RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{"1", "/", "16"}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "/", "16"}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{"7", RowBox[{"I", "/", "16"}]}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"KroneckerDelta", "[", RowBox[{"kk", ",", "ll"}], "]"}]}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"ll", ",", "1", ",", "2"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.800110399768758*^9, 3.800110399912744*^9}, { 3.800110496515047*^9, 3.800110502571926*^9}, 3.800111824959324*^9, { 3.8001130025502853`*^9, 3.800113020277585*^9}, {3.800113146355151*^9, 3.800113159711175*^9}, {3.8001135088834753`*^9, 3.800113516200593*^9}, { 3.800129767136856*^9, 3.800129767226714*^9}, {3.8001303009744453`*^9, 3.800130307854059*^9}, {3.800130450524173*^9, 3.800130454296567*^9}, { 3.800132358722671*^9, 3.800132360274147*^9}, {3.800132400110808*^9, 3.800132410887569*^9}, {3.80013297598285*^9, 3.8001329773141203`*^9}, { 3.800133300811689*^9, 3.800133348191144*^9}, {3.8001333964443073`*^9, 3.800133406914687*^9}, {3.8001339686430264`*^9, 3.800133981531185*^9}, { 3.800138350395418*^9, 3.800138359898597*^9}, {3.800306947224265*^9, 3.800306947285892*^9}, {3.800307612753484*^9, 3.8003076219053698`*^9}, { 3.800348927843272*^9, 3.800348927921389*^9}, {3.80035710758165*^9, 3.800357116247851*^9}, {3.80035757480755*^9, 3.800357585399392*^9}, { 3.800365688045834*^9, 3.800365698817734*^9}}, CellLabel-> "In[498]:=",ExpressionUUID->"f4d96829-c13e-47f5-beb9-f7dbd0018753"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"X7", "[", "6", "]"}], "[", RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], RowBox[{"I", "/", "16"}]}], ")"}], " ", RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{"5", "/", "16"}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "/", "16"}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], RowBox[{"I", "/", "16"}]}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"KroneckerDelta", "[", RowBox[{"kk", ",", "ll"}], "]"}]}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"ll", ",", "1", ",", "2"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.800110401362487*^9, 3.800110401894199*^9}, { 3.800110505313815*^9, 3.800110513038578*^9}, 3.8001129529758*^9, 3.800112991658972*^9, 3.800113085138695*^9, 3.800113122954135*^9, { 3.800129768462413*^9, 3.800129768544305*^9}, {3.800130311458151*^9, 3.800130326211471*^9}, {3.800130458435046*^9, 3.8001304643233624`*^9}, { 3.800132317348967*^9, 3.800132319372428*^9}, {3.800132592672716*^9, 3.8001325952147913`*^9}, {3.800132941124516*^9, 3.800132950434721*^9}, { 3.8001339843776608`*^9, 3.80013399798744*^9}, {3.800138532499462*^9, 3.800138539982037*^9}, {3.8003069497227182`*^9, 3.8003069498833227`*^9}, { 3.800307623033832*^9, 3.800307632334342*^9}, {3.800348930134164*^9, 3.80034893024267*^9}, {3.800357139673963*^9, 3.8003571533756657`*^9}, { 3.8003575875878983`*^9, 3.800357592330689*^9}, {3.80035768795253*^9, 3.800357691536319*^9}, {3.800365734769834*^9, 3.800365749172505*^9}}, CellLabel-> "In[499]:=",ExpressionUUID->"315d2caf-bc11-4e22-b29a-93d02a77162a"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"X8", "[", "6", "]"}], "[", RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"9", RowBox[{"I", "/", "16"}]}], ")"}], " ", RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{"1", "/", "16"}], ")"}], RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "/", "16"}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "I"}], "/", "16"}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"KroneckerDelta", "[", RowBox[{"kk", ",", "ll"}], "]"}]}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"ll", ",", "1", ",", "2"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.80011040443928*^9, 3.800110405104908*^9}, { 3.800110515421832*^9, 3.800110531188781*^9}, {3.80011293998602*^9, 3.8001129679833527`*^9}, 3.8001130517876472`*^9, 3.80011313727812*^9, { 3.800129770588353*^9, 3.800129770705511*^9}, {3.8001303295827637`*^9, 3.800130340779999*^9}, {3.8001304674932833`*^9, 3.80013047300598*^9}, { 3.8001324513109913`*^9, 3.8001324518429623`*^9}, {3.800132685013454*^9, 3.800132688538657*^9}, {3.800133003618589*^9, 3.8001330104023523`*^9}, { 3.800134000350552*^9, 3.80013401677057*^9}, {3.800138608471364*^9, 3.800138613875579*^9}, {3.80030695221751*^9, 3.800306952302923*^9}, { 3.800307633514153*^9, 3.800307642639271*^9}, {3.800348933019185*^9, 3.800348933132999*^9}, {3.8003571709805403`*^9, 3.800357185009897*^9}, { 3.800357694778092*^9, 3.800357702022806*^9}, {3.800365758860813*^9, 3.800365768808035*^9}}, CellLabel-> "In[500]:=",ExpressionUUID->"26dc0977-1877-4f6c-b6a0-f461a419232d"] }, Closed]], Cell[CellGroupData[{ Cell["Calc Psi", "Subsubsection", CellChangeTimes->{{3.800309817774349*^9, 3.8003098275593157`*^9}, { 3.800357264788999*^9, 3.800357266573381*^9}},ExpressionUUID->"ba87b9d5-a6df-4e37-b957-\ 552b1c719315"], Cell[BoxData[ RowBox[{ RowBox[{"psiVMHolCross", "=", RowBox[{ RowBox[{"Table", "[", " ", RowBox[{ RowBox[{ RowBox[{"2", "I", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"X1", "[", "6", "]"}], "[", RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], RowBox[{ RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "ll", "]"}], "[", "cc", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", " ", RowBox[{"2", "I", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"X2", "[", "6", "]"}], "[", RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], RowBox[{ RowBox[{"\[Gamma]stdowndown", "[", "nu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Gamma]", "[", "nu", "]"}], ".", RowBox[{"\[Gamma]", "[", "mu", "]"}]}], ")"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "ll", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", " ", RowBox[{"2", "I", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"X3", "[", "6", "]"}], "[", RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], RowBox[{ RowBox[{"CommuteGammadown", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"\[Gamma]stdown", "[", "nu", "]"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "ll", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", " ", RowBox[{"2", "I", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"X4", "[", "6", "]"}], "[", RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], RowBox[{ RowBox[{"CommuteGammadown", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"CommuteGammastdown", "[", RowBox[{"mu", ",", "nu"}], "]"}], ".", RowBox[{"\[Gamma]", "[", "la", "]"}]}], ")"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "ll", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", " ", RowBox[{"2", "I", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"X5", "[", "6", "]"}], "[", RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"\[Gamma]5", "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "ll", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", " ", RowBox[{"2", "I", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"X6", "[", "6", "]"}], "[", RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]stdowndown", "[", "nu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Gamma]5\[Gamma]", "[", "nu", "]"}], ".", RowBox[{"\[Gamma]", "[", "mu", "]"}]}], ")"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "ll", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", " ", RowBox[{"2", "I", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"X7", "[", "6", "]"}], "[", RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], RowBox[{"\[Gamma]5down", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "ll", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", " ", RowBox[{"2", "I", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"X8", "[", "6", "]"}], "[", RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], RowBox[{"Cmetric", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"\[Gamma]", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "ll", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"aa", ",", " ", "1", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"bb", ",", " ", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"cc", ",", "1", ",", "4"}], "}"}]}], "]"}], "//", "Simplify"}]}], ";"}]], "Input", CellChangeTimes->{{3.799665430342388*^9, 3.79966543805836*^9}, { 3.799665807214375*^9, 3.7996658480604143`*^9}, {3.799665901639982*^9, 3.799665924849201*^9}, {3.799665954993039*^9, 3.7996659668965473`*^9}, { 3.799666082200243*^9, 3.799666086968349*^9}, {3.799666123120418*^9, 3.799666136635099*^9}, {3.7996661699984827`*^9, 3.799666238730455*^9}, { 3.79966627421465*^9, 3.7996663444359627`*^9}, {3.799666493357522*^9, 3.799666498599592*^9}, {3.7996665298336143`*^9, 3.799666554512801*^9}, { 3.799666586709858*^9, 3.7996665956016808`*^9}, {3.799666634621347*^9, 3.799666640906722*^9}, {3.799666672533422*^9, 3.799666682300786*^9}, { 3.79966672897077*^9, 3.79966673385183*^9}, {3.799666800558617*^9, 3.799667025616901*^9}, {3.799667119442486*^9, 3.799667128731614*^9}, { 3.799667189546833*^9, 3.799667225450939*^9}, {3.799667282123147*^9, 3.799667294010084*^9}, {3.7996673399597397`*^9, 3.799667346260728*^9}, { 3.7996674352701197`*^9, 3.799667471430389*^9}, {3.799667561222804*^9, 3.7996675670711203`*^9}, {3.799667637026087*^9, 3.799667702522922*^9}, { 3.7996677629093637`*^9, 3.7996677794032097`*^9}, {3.799667842434082*^9, 3.799667857194471*^9}, {3.7996679009906673`*^9, 3.799668391262459*^9}, { 3.7996684274722013`*^9, 3.799668489582037*^9}, {3.7996691564030867`*^9, 3.799669180635517*^9}, {3.799673758855599*^9, 3.799673813956582*^9}, { 3.799674012220592*^9, 3.799674027559526*^9}, {3.7996740586365643`*^9, 3.7996740701686277`*^9}, 3.799674111529831*^9, {3.7996749349933662`*^9, 3.799674935180553*^9}, {3.799680448082368*^9, 3.799680474211626*^9}, { 3.799680504245632*^9, 3.799680507779004*^9}, {3.7996805571915913`*^9, 3.799680593163108*^9}, {3.79968063818042*^9, 3.7996806583708897`*^9}, { 3.799680710756279*^9, 3.799680722963538*^9}, {3.799742549027727*^9, 3.799742558897811*^9}, {3.799742848637076*^9, 3.799742877547081*^9}, 3.79974968052695*^9, {3.800110408025049*^9, 3.800110423270626*^9}, 3.8001105801066637`*^9, {3.800113204589576*^9, 3.800113240658511*^9}, { 3.800113277365058*^9, 3.800113431628422*^9}, 3.8001138079198523`*^9, { 3.800129775525394*^9, 3.800129812330913*^9}, {3.800130347534215*^9, 3.800130347644684*^9}, {3.8001305561858673`*^9, 3.800130556255453*^9}, { 3.800133811207649*^9, 3.80013381327802*^9}, {3.8003068797664423`*^9, 3.8003069223509197`*^9}, {3.800306958597094*^9, 3.8003069741200237`*^9}, { 3.800307017634788*^9, 3.800307051356757*^9}, {3.800307118786977*^9, 3.800307131307004*^9}, {3.8003072495480824`*^9, 3.800307252440155*^9}, { 3.8003489462704763`*^9, 3.8003489699232273`*^9}, {3.800349383936224*^9, 3.800349386912991*^9}, {3.800536934793931*^9, 3.800536954172895*^9}, { 3.80080879647657*^9, 3.800808803010633*^9}, {3.800808837587996*^9, 3.800808859067569*^9}, 3.8458235604795847`*^9}, CellLabel-> "In[501]:=",ExpressionUUID->"f6c4e2e3-c909-463b-857b-04bb9e708cf8"], Cell[BoxData[ RowBox[{ RowBox[{"psiVMHolCrossMath", "=", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "kk", "]"}], "[", "cc", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}], " ", "-", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "kk", "]"}], "[", "cc", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"aa", ",", " ", "1", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"bb", ",", " ", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"cc", ",", "1", ",", "4"}], "}"}]}], "]"}], "//", "Simplify"}]}], ";"}]], "Input", CellChangeTimes->{{3.800536959304438*^9, 3.800536963164241*^9}, 3.8458235674416485`*^9}, CellLabel-> "In[502]:=",ExpressionUUID->"067f2e3e-9446-4866-b3e7-fdac260805fd"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"psiVMHolCross", "==", "psiVMHolCrossMath"}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.800536967314884*^9, 3.800536970664496*^9}}, CellLabel-> "In[503]:=",ExpressionUUID->"a60584d3-c9d3-4d8b-926a-3708be41881c"], Cell[BoxData["True"], "Output", CellChangeTimes->{ 3.800133562101232*^9, 3.8001336254391603`*^9, 3.800133660464484*^9, { 3.8001336919270267`*^9, 3.800133714126458*^9}, {3.800133785594228*^9, 3.800133792620989*^9}, 3.800134068170862*^9, 3.800134118253359*^9, 3.800134184850374*^9, 3.800134275423997*^9, 3.800134328246372*^9, 3.8001343762530603`*^9, 3.800134419486759*^9, 3.800134479538082*^9, 3.8001345296538553`*^9, 3.800134588875307*^9, 3.800134682444293*^9, 3.8001347233356953`*^9, 3.800134768794746*^9, 3.800134811404929*^9, 3.800134858480082*^9, 3.800134902225745*^9, 3.8001349420307693`*^9, 3.8001349991960163`*^9, 3.8001350414579697`*^9, 3.8001350845961113`*^9, 3.800135165007958*^9, 3.8001352124901333`*^9, 3.800135260697338*^9, 3.800135293341732*^9, 3.800135339254479*^9, 3.800135380665269*^9, 3.800135424502532*^9, 3.800135459713029*^9, 3.8001354918765507`*^9, { 3.800135523465868*^9, 3.800135566539702*^9}, 3.80013813331748*^9, { 3.8001381840897617`*^9, 3.800138210900379*^9}, 3.8001382414340467`*^9, 3.8001382767458897`*^9, 3.800138307566225*^9, {3.800138339441984*^9, 3.8001383659238997`*^9}, 3.800138478353609*^9, 3.800138545385049*^9, 3.800138633581263*^9, 3.8001390561804123`*^9, 3.8003098723298807`*^9, 3.800309931646287*^9, 3.800309988433112*^9, 3.800310043905775*^9, 3.8003101050691357`*^9, 3.8003101668828297`*^9, 3.800310225553112*^9, 3.8003102768560534`*^9, 3.800310326372007*^9, 3.8003103834403543`*^9, 3.8003104340972*^9, 3.800310493266046*^9, 3.800310538233388*^9, 3.8003105821448927`*^9, 3.800310622069916*^9, 3.800310662221114*^9, 3.800310701758175*^9, 3.800310761237467*^9, 3.8003108059371967`*^9, 3.8003108476156483`*^9, 3.800310889993476*^9, 3.800310931888968*^9, 3.8003109770617323`*^9, 3.800345302911147*^9, 3.800345347573474*^9, 3.8003453955298023`*^9, 3.80034542709859*^9, 3.800345464451161*^9, 3.8003454949388037`*^9, {3.8003455303488817`*^9, 3.800345623454933*^9}, 3.800349074949326*^9, 3.8003494122874527`*^9, 3.800349454887846*^9, 3.80034951214093*^9, 3.800349567386416*^9, 3.8003496281948137`*^9, 3.800349681983057*^9, 3.800349739304591*^9, 3.800349793198574*^9, 3.80034984393614*^9, 3.8003498995776463`*^9, 3.800354137500568*^9, 3.8003542065897217`*^9, 3.800354255923153*^9, 3.8003543886079884`*^9, 3.800354435185916*^9, 3.800354473529665*^9, 3.800354518487212*^9, 3.8003545829258833`*^9, 3.8003546221436872`*^9, 3.800354668536326*^9, 3.800354700009696*^9, 3.800354747340498*^9, {3.800354904816413*^9, 3.800354933845563*^9}, 3.8003549691705303`*^9, 3.800355059932069*^9, 3.800355124905787*^9, 3.80035517480058*^9, {3.800355287348261*^9, 3.800355315351631*^9}, 3.800355384083112*^9, {3.800355415207958*^9, 3.800355438963935*^9}, 3.800355478290794*^9, 3.8003555640612288`*^9, 3.800355617590623*^9, 3.800355671276544*^9, 3.800355720335857*^9, 3.800355769071909*^9, {3.80035582327844*^9, 3.800355853104136*^9}, 3.8003559053068027`*^9, 3.800355961988504*^9, 3.8003560056354427`*^9, 3.800356112069335*^9, 3.800356160325787*^9, 3.8003561998739758`*^9, 3.800356248232596*^9, 3.800356286303472*^9, 3.800356325818963*^9, 3.8003563619418707`*^9, 3.800356411997446*^9, {3.800356466824182*^9, 3.8003565193752117`*^9}, 3.8003565516630163`*^9, {3.800356631301135*^9, 3.80035665884566*^9}, {3.800356697601541*^9, 3.8003567232435837`*^9}, { 3.8003567661352453`*^9, 3.800356844774809*^9}, {3.800356880188149*^9, 3.8003568997036133`*^9}, 3.80035700644497*^9, 3.80035706546224*^9, 3.800357161798643*^9, {3.800357194900704*^9, 3.800357199802761*^9}, 3.80035723108458*^9, 3.800363699673992*^9, 3.800363778749332*^9, 3.800363846793332*^9, 3.800363908349094*^9, 3.800363974486369*^9, 3.8003640264922857`*^9, 3.800364129417053*^9, 3.80036419690725*^9, 3.80036428725064*^9, 3.8003643463278522`*^9, 3.800364402618351*^9, 3.800364458553689*^9, 3.800364516168971*^9, 3.800364568179171*^9, 3.8003646262493763`*^9, 3.800364669317713*^9, 3.800364819545727*^9, 3.8003649357783403`*^9, 3.800364997362207*^9, 3.800365069040423*^9, 3.8003651076652117`*^9, 3.800365145153706*^9, 3.800365211137415*^9, 3.800365279531803*^9, 3.800365322630637*^9, 3.800365363016759*^9, 3.800365395703054*^9, 3.8003654373569202`*^9, 3.800365475811049*^9, { 3.80036550820794*^9, 3.800365555583024*^9}, 3.800365592705336*^9, 3.800365655769684*^9, 3.800365716901528*^9, 3.800365812342285*^9, { 3.800396832663764*^9, 3.8003968432838507`*^9}, 3.8005369001872187`*^9, 3.800536977871417*^9, 3.800808825696327*^9, 3.8008088672218447`*^9, 3.8008097149441547`*^9, 3.800809939046599*^9, 3.826162368200745*^9, 3.826163134709117*^9, 3.8261640553070173`*^9, 3.8293260568339715`*^9, 3.845815493287033*^9, 3.8458213575697527`*^9, 3.845821991621287*^9, 3.8458235799613724`*^9}, CellLabel-> "Out[503]=",ExpressionUUID->"2fa20120-b40a-4b79-8b5e-e4b84e28632c"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Check Paper", "Subsubsection", CellChangeTimes->{{3.845816060202326*^9, 3.845816061589342*^9}},ExpressionUUID->"488b4da0-8c6b-41e0-a114-\ aadb0439ec65"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"cV", "[", "xx_", "]"}], "[", RowBox[{"ii_", ",", "jj_", ",", "kk_", ",", "ll_"}], "]"}], ":=", " ", RowBox[{ RowBox[{ RowBox[{"ahat", "[", "xx", "]"}], RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"bhat", "[", "xx", "]"}], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"khat", "[", "xx", "]"}], RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{"KroneckerDelta", "[", RowBox[{"kk", ",", "ll"}], "]"}]}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"straightV", "[", "xx_", "]"}], "[", RowBox[{"ii_", ",", "jj_", ",", "kk_", ",", "ll_"}], "]"}], ":=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"I", " ", RowBox[{ RowBox[{"cV", "[", "xx", "]"}], "[", RowBox[{"ii", ",", "rr", ",", "kk", ",", "ll"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"rr", ",", "jj"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"rr", ",", "1", ",", "2"}], "}"}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.8458215498576746`*^9, 3.845821652440881*^9}, { 3.84582168250834*^9, 3.8458217357950325`*^9}, {3.845822604917403*^9, 3.84582263821844*^9}}, CellLabel-> "In[504]:=",ExpressionUUID->"47207c5c-15fd-4da2-be66-472234b33e49"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SetabkVM", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"ahat", "[", "1", "]"}], "->", " ", RowBox[{"1", "/", "4"}]}], ",", RowBox[{ RowBox[{"bhat", "[", "1", "]"}], "->", RowBox[{"1", "/", "4"}]}], ",", RowBox[{ RowBox[{"khat", "[", "1", "]"}], "->", RowBox[{ RowBox[{"-", "1"}], "/", "4"}]}], ",", RowBox[{ RowBox[{"ahat", "[", "2", "]"}], "->", RowBox[{ RowBox[{"-", "1"}], "/", "8"}]}], ",", RowBox[{ RowBox[{"bhat", "[", "2", "]"}], "->", RowBox[{ RowBox[{"-", "1"}], "/", "8"}]}], ",", RowBox[{ RowBox[{"khat", "[", "2", "]"}], "->", RowBox[{"1", "/", "8"}]}], ",", RowBox[{ RowBox[{"ahat", "[", "3", "]"}], "->", RowBox[{"3", "/", "4"}]}], ",", RowBox[{ RowBox[{"bhat", "[", "3", "]"}], "->", RowBox[{ RowBox[{"-", "1"}], "/", "4"}]}], ",", RowBox[{ RowBox[{"khat", "[", "3", "]"}], "->", RowBox[{ RowBox[{"-", "3"}], "/", "4"}]}]}], "}"}]}]], "Input", CellChangeTimes->{{3.8458161131239214`*^9, 3.845816140639987*^9}, { 3.8458162804302845`*^9, 3.8458163262906604`*^9}, 3.8458169000626373`*^9, { 3.845819374135563*^9, 3.8458193870107865`*^9}, {3.845820446577468*^9, 3.8458205020594063`*^9}, {3.84582150713344*^9, 3.8458215128483877`*^9}, { 3.8458217758037415`*^9, 3.845821838364437*^9}, {3.8458218752127094`*^9, 3.845821918044699*^9}}, CellLabel-> "In[506]:=",ExpressionUUID->"1b9d252d-49b3-4216-9e51-70c738f66ac4"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"ahat", "[", "1", "]"}], "\[Rule]", FractionBox["1", "4"]}], ",", RowBox[{ RowBox[{"bhat", "[", "1", "]"}], "\[Rule]", FractionBox["1", "4"]}], ",", RowBox[{ RowBox[{"khat", "[", "1", "]"}], "\[Rule]", RowBox[{"-", FractionBox["1", "4"]}]}], ",", RowBox[{ RowBox[{"ahat", "[", "2", "]"}], "\[Rule]", RowBox[{"-", FractionBox["1", "8"]}]}], ",", RowBox[{ RowBox[{"bhat", "[", "2", "]"}], "\[Rule]", RowBox[{"-", FractionBox["1", "8"]}]}], ",", RowBox[{ RowBox[{"khat", "[", "2", "]"}], "\[Rule]", FractionBox["1", "8"]}], ",", RowBox[{ RowBox[{"ahat", "[", "3", "]"}], "\[Rule]", FractionBox["3", "4"]}], ",", RowBox[{ RowBox[{"bhat", "[", "3", "]"}], "\[Rule]", RowBox[{"-", FractionBox["1", "4"]}]}], ",", RowBox[{ RowBox[{"khat", "[", "3", "]"}], "\[Rule]", RowBox[{"-", FractionBox["3", "4"]}]}]}], "}"}]], "Output", CellChangeTimes->{{3.84582190813958*^9, 3.8458219190517435`*^9}, 3.845823130038828*^9, 3.845823580093982*^9}, CellLabel-> "Out[506]=",ExpressionUUID->"13bfb716-3dc7-447f-83bc-e353b57f0837"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"PsiVMHolCrossPaper", " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{"2", " ", "I", " ", RowBox[{ RowBox[{"straightV", "[", "1", "]"}], "[", RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], RowBox[{ RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "ll", "]"}], "[", "cc", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"ll", ",", "1", ",", "2"}], "}"}]}], "]"}], "+", RowBox[{"2", " ", "I", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"straightV", "[", "2", "]"}], "[", RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], RowBox[{ RowBox[{"CommuteGammadown", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"\[Gamma]stdown", "[", "nu", "]"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}], "+", " ", RowBox[{ RowBox[{ RowBox[{"straightV", "[", "3", "]"}], "[", RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"\[Gamma]5", "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}]}]}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "ll", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"cc", ",", "1", ",", "4"}], "}"}]}], "]"}], "//.", "SetabkVM"}], "//", "Simplify"}]}], ";"}]], "Input", CellChangeTimes->{{3.845816064746126*^9, 3.845816078418069*^9}, { 3.845816390133669*^9, 3.8458165372225733`*^9}, {3.8458166241346316`*^9, 3.845816673589799*^9}, {3.845816704000813*^9, 3.8458167510051827`*^9}, { 3.845817012861351*^9, 3.8458170134952707`*^9}, {3.845817074812883*^9, 3.845817078417838*^9}, {3.8458186332991114`*^9, 3.8458186356116147`*^9}, { 3.8458195288049517`*^9, 3.8458195338392324`*^9}, 3.8458195944691753`*^9, { 3.8458198208492107`*^9, 3.84581990852046*^9}, 3.8458199735101914`*^9, { 3.8458200094676743`*^9, 3.845820141061098*^9}, {3.845820598903084*^9, 3.845820660383747*^9}, {3.8458207230840673`*^9, 3.845820792263783*^9}, { 3.8458208626946487`*^9, 3.845820862819517*^9}, {3.8458208941043177`*^9, 3.8458208960126085`*^9}, {3.845820946480707*^9, 3.8458209486473875`*^9}, { 3.845821932889984*^9, 3.8458219394083138`*^9}, {3.84582200527453*^9, 3.8458222392782326`*^9}, {3.8458223289697104`*^9, 3.845822338141605*^9}, { 3.845822372405175*^9, 3.845822401994685*^9}, {3.845822576010991*^9, 3.8458225785186386`*^9}}, CellLabel-> "In[507]:=",ExpressionUUID->"40938f7a-1978-4d0a-ae80-a66b28c1660a"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PsiVMHolCrossPaper", "==", "psiVMHolCrossMath"}]], "Input", CellChangeTimes->{{3.84581675510841*^9, 3.8458168067005014`*^9}, 3.8458168568856883`*^9, {3.845820201994506*^9, 3.8458202078706827`*^9}, { 3.8458209005934114`*^9, 3.8458209114817085`*^9}, {3.8458209710845957`*^9, 3.845820991658119*^9}, {3.845822458746891*^9, 3.8458224792021227`*^9}, { 3.8458225116257963`*^9, 3.8458225121403494`*^9}}, CellLabel-> "In[508]:=",ExpressionUUID->"227949bb-0ca8-455d-80cd-92487bd80b2d"], Cell[BoxData[ InterpretationBox[ TagBox[ FrameBox[GridBox[{ { ItemBox[ TagBox[ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], ",", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{"(", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], ")"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{"(", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], ")"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{"(", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], ")"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{"(", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], ")"}]}]}], "}"}], ",", RowBox[{"{", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], "}"}]}], "}"}], ",", TemplateBox[{"2"}, "OutputSizeLimit`Skeleton"], ",", RowBox[{"{", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], "}"}]}], "}"}], ",", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"]}], "}"}], ",", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"]}], "}"}]}], "}"}], "\[Equal]", RowBox[{"{", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], "}"}]}], Short[#, 5]& ], BaseStyle->{Deployed -> False}, StripOnInput->False]}, {GridBox[{ { PaneBox[ TagBox[ TooltipBox[ StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource[ "FEStrings", "sizeBriefExplanation"], StandardForm], ImageSizeCache->{82., {4., 11.}}], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLText", StripOnInput->False], StyleBox[ DynamicBox[ ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"], StandardForm]], DynamicUpdating -> True, LineIndent -> 0, LinebreakAdjustments -> {1., 100, 0, 0, 0}, LineSpacing -> {1, 2}, StripOnInput -> False]], Annotation[#, Style[ Dynamic[ FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"]], DynamicUpdating -> True, LineIndent -> 0, LinebreakAdjustments -> {1., 100, 0, 0, 0}, LineSpacing -> {1, 2}], "Tooltip"]& ], Alignment->Center, BaselinePosition->Baseline, ImageSize->{Automatic, {25, Full}}], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], StandardForm], ImageSizeCache->{67., {1., 11.}}], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl", StripOnInput->False], True-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], StandardForm]], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive", StripOnInput->False]}, Dynamic[ CurrentValue["MouseOver"]], Alignment->Center, FrameMargins->0, ImageSize->{Automatic, {25, Full}}], Appearance->None, BaselinePosition->Baseline, ButtonFunction:>OutputSizeLimit`ButtonFunction[ OutputSizeLimit`Defer, 508, 21660477292722285316, 5/2], Enabled->True, Evaluator->Automatic, Method->"Queued"], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], StandardForm], ImageSizeCache->{78., {1., 11.}}], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl", StripOnInput->False], True-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], StandardForm]], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive", StripOnInput->False]}, Dynamic[ CurrentValue["MouseOver"]], Alignment->Center, FrameMargins->0, ImageSize->{Automatic, {25, Full}}], Appearance->None, BaselinePosition->Baseline, ButtonFunction:>OutputSizeLimit`ButtonFunction[ OutputSizeLimit`Defer, 508, 21660477292722285316, 5 2], Enabled->True, Evaluator->Automatic, Method->"Queued"], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], StandardForm], ImageSizeCache->{58., {1., 11.}}], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl", StripOnInput->False], True-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], StandardForm]], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive", StripOnInput->False]}, Dynamic[ CurrentValue["MouseOver"]], Alignment->Center, FrameMargins->0, ImageSize->{Automatic, {25, Full}}], Appearance->None, BaselinePosition->Baseline, ButtonFunction:>OutputSizeLimit`ButtonFunction[ OutputSizeLimit`Defer, 508, 21660477292722285316, Infinity], Enabled->True, Evaluator->Automatic, Method->"Queued"], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], StandardForm], ImageSizeCache->{99., {1., 11.}}], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl", StripOnInput->False], True-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], StandardForm], ImageSizeCache->{99., {1., 11.}}], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive", StripOnInput->False]}, Dynamic[ CurrentValue["MouseOver"]], Alignment->Center, FrameMargins->0, ImageSize->{Automatic, {25, Full}}], Appearance->None, BaselinePosition->Baseline, ButtonFunction:>FrontEndExecute[{ FrontEnd`SetOptions[ FrontEnd`$FrontEnd, FrontEnd`PreferencesSettings -> {"Page" -> "Advanced"}], FrontEnd`FrontEndToken["PreferencesDialog"]}], Evaluator->None, Method->"Preemptive"]} }, AutoDelete->False, FrameStyle->GrayLevel[0.85], GridBoxDividers->{"Columns" -> {False, {True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], Offset[1.2], { Offset[0.4]}, Offset[0.2]}}], BaseStyle->"OutputSizeLimit", FrameMargins->{{12, 12}, {0, 15}}, FrameStyle->GrayLevel[0.85], RoundingRadius->5, StripOnInput->False], Deploy, DefaultBaseStyle->"Deploy"], If[21660477292722285316 === $SessionID, Out[508], Message[ MessageName[Syntax, "noinfoker"]]; Missing["NotAvailable"]; Null]]], "Output", CellChangeTimes->{ 3.8458168580013504`*^9, 3.845816908632041*^9, {3.845816994976781*^9, 3.8458170185246644`*^9}, 3.8458185219517794`*^9, 3.8458186471715875`*^9, { 3.8458202104334135`*^9, 3.8458202291396523`*^9}, 3.8458209989604464`*^9, 3.845821058816781*^9, {3.8458212011338873`*^9, 3.8458212220863934`*^9}, 3.845821276157872*^9, 3.845822527908856*^9, 3.8458225880585136`*^9, { 3.8458226240277987`*^9, 3.8458226440272074`*^9}, 3.845823132585782*^9, 3.8458235826008234`*^9}, CellLabel-> "Out[508]=",ExpressionUUID->"87b2ebf2-a54c-4d9f-81d2-208689238ac5"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"PsiVMHolCrossPaper", "==", "psiVMHolCrossMath"}], ")"}], "//.", "EnforceDiracEquation"}], ")"}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.8458168596468625`*^9, 3.845816885412697*^9}, { 3.8458186093902607`*^9, 3.845818614665053*^9}, {3.845820214545537*^9, 3.845820220282011*^9}, {3.845821013585593*^9, 3.8458210267170286`*^9}, 3.8458225401101313`*^9, {3.8458231035203857`*^9, 3.845823110114917*^9}}, CellLabel-> "In[509]:=",ExpressionUUID->"a980f591-f4e2-4c0e-8f15-2378d5116376"], Cell[BoxData["True"], "Output", CellChangeTimes->{ 3.8458168753242297`*^9, 3.8458169129511166`*^9, {3.8458170016868105`*^9, 3.8458170225585747`*^9}, 3.845817274845868*^9, 3.8458185251656084`*^9, 3.845818617024748*^9, 3.8458186474374294`*^9, {3.845820223376128*^9, 3.8458202292646303`*^9}, {3.845821207003146*^9, 3.8458212222113314`*^9}, 3.845821276407814*^9, 3.8458225653853283`*^9, 3.8458226498869133`*^9, { 3.845823111575773*^9, 3.845823132788866*^9}, 3.845823582694557*^9}, CellLabel-> "Out[509]=",ExpressionUUID->"36189280-769a-4ed7-888a-10cfcf8a712d"] }, Open ]] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Tensor Cross", "Section", CellChangeTimes->{{3.798840311398507*^9, 3.798840320057704*^9}},ExpressionUUID->"0837d2b9-a072-4599-98a8-\ 906d64bd2e1a"], Cell[CellGroupData[{ Cell["A", "Subsection", CellChangeTimes->{ 3.798836859060895*^9},ExpressionUUID->"20167298-1fda-450d-810d-\ 59583677205d"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"(", RowBox[{"2", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], ")"}]}], "\[IndentingNewLine]", "+", " ", RowBox[{"I", RowBox[{"(", RowBox[{"1", "/", "2"}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"CommuteGammadown", "[", RowBox[{"mu", ",", "nu"}], "]"}], ")"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"Fmn", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "\[Equal]", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{"A", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}], " ", "-", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{"A", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"aa", ",", " ", "1", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"bb", ",", " ", "1", ",", "4"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}], ";"}]], "Input", CellChangeTimes->{{3.799527195418233*^9, 3.799527458092018*^9}, { 3.799534174268488*^9, 3.7995342315614*^9}, {3.799750813855713*^9, 3.7997508260925083`*^9}, 3.8001976027514*^9}, CellLabel-> "In[236]:=",ExpressionUUID->"8c815176-8d6c-427d-9347-70e05f5705a5"], Cell[BoxData[ RowBox[{ RowBox[{"ATMHolCross", "=", " ", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"(", RowBox[{"2", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], ")"}]}], "\[IndentingNewLine]", "+", " ", RowBox[{"I", RowBox[{"(", RowBox[{"1", "/", "2"}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"CommuteGammadown", "[", RowBox[{"mu", ",", "nu"}], "]"}], ")"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"Fmn", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"aa", ",", " ", "1", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"bb", ",", " ", "1", ",", "4"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}]}], ";"}]], "Input", CellChangeTimes->{{3.799750817059278*^9, 3.799750829077044*^9}, { 3.79975086086576*^9, 3.7997508613233767`*^9}, {3.800197608170929*^9, 3.800197611687216*^9}}, CellLabel-> "In[237]:=",ExpressionUUID->"ee65d8b5-c080-41ef-b8b1-0b122be8cc5c"], Cell[BoxData[ RowBox[{ RowBox[{"ATMHolCrossMath", "=", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{"A", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}], " ", "-", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{"A", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"aa", ",", " ", "1", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"bb", ",", " ", "1", ",", "4"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}]}], ";"}]], "Input", CellChangeTimes->{{3.7997508364113293`*^9, 3.7997508698884706`*^9}}, CellLabel-> "In[238]:=",ExpressionUUID->"f7facd79-a356-49e1-9b44-83c01f4edc1a"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"ATMHolCrossMath", "==", "ATMHolCross"}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.799750874076056*^9, 3.7997508776972446`*^9}}, CellLabel-> "In[239]:=",ExpressionUUID->"773cfc4c-f318-4e92-86df-d04b877f64e9"], Cell[BoxData["True"], "Output", CellChangeTimes->{{3.799527416581333*^9, 3.7995274428278427`*^9}, 3.7995284882848873`*^9, 3.799530227221627*^9, 3.7995333406413383`*^9, { 3.799534167526558*^9, 3.799534231973928*^9}, 3.799579029638342*^9, 3.7996103082802143`*^9, 3.79969990844274*^9, 3.7997039958844013`*^9, 3.799741893928966*^9, 3.7997465702719517`*^9, 3.7997508803366003`*^9, 3.799752750726973*^9, 3.799759783646976*^9, 3.800110666888236*^9, 3.800138616538312*^9, 3.800197614420195*^9, 3.8001977129460697`*^9, 3.800217594328535*^9, 3.800394873162112*^9, 3.8003968466368723`*^9, 3.80053690043082*^9, 3.8008061241841707`*^9, 3.800809939096858*^9, 3.826162368256616*^9, 3.826163134774571*^9, 3.826164055438504*^9, 3.8293260744159794`*^9, 3.8458154935213223`*^9}, CellLabel-> "Out[239]=",ExpressionUUID->"bdc00fb8-5070-4c60-a622-42f86821a656"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["B", "Subsection", CellChangeTimes->{{3.798836859060895*^9, 3.798836887120772*^9}},ExpressionUUID->"7fd48bd0-9655-4991-b090-\ 3f101f06450a"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "I", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"A", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], ")"}]}], "\[IndentingNewLine]", "\[Equal]", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{"B", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}], " ", "-", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{"B", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"aa", ",", " ", "1", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"bb", ",", " ", "1", ",", "4"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}], ";"}]], "Input", CellChangeTimes->{{3.799527476701838*^9, 3.799527605478046*^9}, { 3.799527636905527*^9, 3.799527672681595*^9}, {3.799534184075768*^9, 3.799534197597212*^9}, 3.799750892549489*^9, 3.8001976220420027`*^9}, CellLabel-> "In[240]:=",ExpressionUUID->"017c7d9b-4285-4d00-ab3f-8af57d677a7c"], Cell[BoxData[ RowBox[{ RowBox[{"BTMHolCross", "=", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "I", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"A", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"aa", ",", " ", "1", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"bb", ",", " ", "1", ",", "4"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}]}], ";"}]], "Input", CellChangeTimes->{{3.7997508990935307`*^9, 3.79975091640362*^9}, { 3.800197628437303*^9, 3.800197629417623*^9}, {3.800217842584984*^9, 3.800217843232792*^9}}, CellLabel-> "In[241]:=",ExpressionUUID->"f0694447-8cdc-4564-8166-03ddabe25794"], Cell[BoxData[ RowBox[{ RowBox[{"BTMHolCrossMath", " ", "=", RowBox[{ RowBox[{ RowBox[{"Table", "[", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{"B", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}], " ", "-", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{"B", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"aa", ",", " ", "1", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"bb", ",", " ", "1", ",", "4"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}]}], ";"}]], "Input", CellChangeTimes->{{3.799750909722382*^9, 3.7997509186041822`*^9}, { 3.800217829692555*^9, 3.80021783263415*^9}}, CellLabel-> "In[242]:=",ExpressionUUID->"df3629c7-ca8e-4055-a5fa-ccf1f3cd3f47"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"BTMHolCrossMath", "==", "BTMHolCrossMath"}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.799750927267194*^9, 3.799750930209145*^9}}, CellLabel-> "In[243]:=",ExpressionUUID->"b46d271b-5258-40d3-af2c-d1930b245d54"], Cell[BoxData["True"], "Output", CellChangeTimes->{{3.7995275678869677`*^9, 3.7995276059230947`*^9}, { 3.799527646016713*^9, 3.799527672956396*^9}, 3.799530227260597*^9, 3.799533340692794*^9, {3.799534184390571*^9, 3.7995341979903803`*^9}, 3.7995790296697893`*^9, 3.7996103083236427`*^9, 3.7996999084865913`*^9, 3.7997039959656897`*^9, 3.799741893986455*^9, 3.799746570304964*^9, 3.79975093985147*^9, 3.7997527507934523`*^9, 3.79975978374119*^9, 3.800110666962591*^9, 3.800138616600461*^9, 3.800197635438087*^9, 3.800197713023342*^9, 3.8002175943944187`*^9, 3.800217846864398*^9, 3.8003948732496347`*^9, 3.800396846693492*^9, 3.800536900516465*^9, 3.8008083907248573`*^9, 3.800809939136832*^9, 3.82616236829749*^9, 3.826163134819901*^9, 3.826164055544911*^9, 3.82932607453753*^9, 3.8458154936619134`*^9}, CellLabel-> "Out[243]=",ExpressionUUID->"cfe8ed5a-3a9a-4a29-b191-25b9a219ab61"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["\[CurlyPhi]", "Subsection", CellChangeTimes->{ 3.798836859060895*^9, {3.798836890845826*^9, 3.7988368946150007`*^9}},ExpressionUUID->"79adc8a9-2402-4f94-9481-\ 8295c426d56b"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"-", " ", "2"}], " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], ")"}]}], "\[IndentingNewLine]", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"I", "/", "2"}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"CommuteGammadown", "[", RowBox[{"mu", ",", "nu"}], "]"}], ")"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"Fmn", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "\[Equal]", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{"\[CurlyPhi]", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}], " ", "-", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{"\[CurlyPhi]", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"aa", ",", " ", "1", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"bb", ",", " ", "1", ",", "4"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}], ";"}]], "Input", CellChangeTimes->{ 3.7995285214035273`*^9, {3.799528560862545*^9, 3.799528718198344*^9}, { 3.7995343442261457`*^9, 3.799534356380348*^9}, 3.799751145320814*^9, { 3.800197645464973*^9, 3.800197650474585*^9}}, CellLabel-> "In[244]:=",ExpressionUUID->"44cba68c-2865-494f-b9db-68cb762e938a"], Cell[BoxData[ RowBox[{ RowBox[{"cphiHolCross", "=", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"-", " ", "2"}], " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], ")"}]}], "\[IndentingNewLine]", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"I", "/", "2"}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"CommuteGammadown", "[", RowBox[{"mu", ",", "nu"}], "]"}], ")"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"Fmn", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"aa", ",", " ", "1", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"bb", ",", " ", "1", ",", "4"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}]}], ";"}]], "Input", CellChangeTimes->{{3.7997511906037416`*^9, 3.799751195328989*^9}, 3.800197658225794*^9, {3.8001976888138733`*^9, 3.800197690714301*^9}}, CellLabel-> "In[245]:=",ExpressionUUID->"414227af-5c97-433b-83af-7472e08dbbb2"], Cell[BoxData[ RowBox[{ RowBox[{"cphiHolCrossMath", "=", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{"\[CurlyPhi]", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}], " ", "-", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{"\[CurlyPhi]", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"aa", ",", " ", "1", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"bb", ",", " ", "1", ",", "4"}], "}"}]}], "]"}], "//", "Simplify"}], "//", "MatrixForm"}]}], ";"}]], "Input", CellChangeTimes->{{3.799751199869882*^9, 3.799751203458531*^9}, 3.800197680299101*^9}, CellLabel-> "In[246]:=",ExpressionUUID->"bd3ba9b0-44c5-4004-8872-71cf1a60ef55"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"cphiHolCrossMath", "==", "cphiHolCross"}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.799751208214304*^9, 3.7997512112967997`*^9}, { 3.800197764244257*^9, 3.800197767673744*^9}}, CellLabel-> "In[247]:=",ExpressionUUID->"ca40bf7c-cbb4-4c40-8015-9e0c0053a168"], Cell[BoxData["True"], "Output", CellChangeTimes->{{3.7995285825930233`*^9, 3.799528585700789*^9}, { 3.799528683070444*^9, 3.799528718700555*^9}, 3.7995302274695663`*^9, 3.7995333409842787`*^9, {3.799534349173829*^9, 3.799534356663065*^9}, 3.7995790298933573`*^9, 3.799610308574795*^9, 3.799699908745866*^9, 3.799703996237564*^9, 3.799741894288191*^9, 3.7997465705429287`*^9, 3.799751227602397*^9, 3.799752751308845*^9, 3.799759784529475*^9, 3.800110667474614*^9, 3.800138617222377*^9, {3.800197663628005*^9, 3.800197713100555*^9}, 3.800197768172658*^9, 3.800217594468733*^9, 3.8003948734388533`*^9, 3.800396846767704*^9, 3.800536900621325*^9, 3.800809939187112*^9, 3.826162368350274*^9, 3.826163134873995*^9, 3.8261640557245703`*^9, 3.8293260746802416`*^9, 3.845815493802506*^9}, CellLabel-> "Out[247]=",ExpressionUUID->"63e3c09d-329a-4276-9482-a342fb1a74fb"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Bmn", "Subsection", CellChangeTimes->{ 3.798836859060895*^9, {3.7988369545714197`*^9, 3.798836955216799*^9}},ExpressionUUID->"551874fd-8881-4530-b1e0-\ 954652cb3b49"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"\[Epsilon]downdownupup", "[", RowBox[{"mu", ",", "nu", ",", "de", ",", "la"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]stdowndown", "[", "de", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"A", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"de", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]5\[Gamma]stdowndown", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "nu", "]"}]}], "]"}]}], "-", RowBox[{ RowBox[{ RowBox[{"\[Gamma]5\[Gamma]stdowndown", "[", "nu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}]}], ")"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{"1", "/", "2"}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Gamma]stdown", "[", "mu", "]"}], ".", RowBox[{"\[Gamma]down", "[", "de", "]"}]}], ")"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"Fmn", "[", RowBox[{"nu", ",", "de"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"de", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "-", " ", RowBox[{ RowBox[{"(", RowBox[{"1", "/", "2"}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Gamma]stdown", "[", "nu", "]"}], ".", RowBox[{"\[Gamma]down", "[", "de", "]"}]}], ")"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"Fmn", "[", RowBox[{"mu", ",", "de"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"de", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{"I", "/", "2"}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"\[Epsilon]downdownupup", "[", RowBox[{"mu", ",", "nu", ",", "ka", ",", "de"}], "]"}], RowBox[{"\[Gamma]5down", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"Fmn", "[", RowBox[{"ka", ",", "de"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"ka", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"de", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", "-", RowBox[{ RowBox[{"(", RowBox[{"I", "/", "128"}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"\[Epsilon]downupupup", "[", RowBox[{"nu", ",", "ka", ",", "de", ",", "la"}], "]"}], RowBox[{ RowBox[{"(", RowBox[{"\[Gamma]5", ".", RowBox[{"CommuteGammastdowndown", "[", RowBox[{"la", ",", "mu"}], "]"}]}], ")"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"Fmn", "[", RowBox[{"ka", ",", "de"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"ka", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"de", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"al", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"be", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{"I", "/", "128"}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"\[Epsilon]downupupup", "[", RowBox[{"mu", ",", "ka", ",", "de", ",", "la"}], "]"}], RowBox[{ RowBox[{"(", RowBox[{"\[Gamma]5", ".", RowBox[{"CommuteGammastdowndown", "[", RowBox[{"la", ",", "nu"}], "]"}]}], ")"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"Fmn", "[", RowBox[{"ka", ",", "de"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"ka", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"de", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"al", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"be", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "\[Equal]", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"Bmn", "[", "1", "]"}], "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}], " ", "-", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"Bmn", "[", "1", "]"}], "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "2", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"aa", ",", " ", "1", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"bb", ",", " ", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}], "//", "Simplify"}]], "Input", CellChangeTimes->{ 3.800806047510854*^9, {3.800808635064015*^9, 3.80080864533608*^9}, 3.8293274145315266`*^9, 3.8293274730844765`*^9}, CellLabel-> "In[248]:=",ExpressionUUID->"ccb78b86-8938-4e9e-ba38-90c8e0f9bb02"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}], ",", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}], ",", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}], ",", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}], ",", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}], ",", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}], ",", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}], ",", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}], ",", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}], ",", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}], ",", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}], ",", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}], ",", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}], ",", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}], ",", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}], ",", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}], ",", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}], ",", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}], ",", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}], ",", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}], ",", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}], ",", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}], ",", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}], ",", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}], ",", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}], ",", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}], ",", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}], ",", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}], ",", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}], ",", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}], ",", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}], ",", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}], ",", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}], ",", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}], ",", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}], ",", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}], ",", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}], ",", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}], ",", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}], ",", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}], ",", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}], ",", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}], ",", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}], ",", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}], ",", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}], ",", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}], ",", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}], ",", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}], ",", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}]}], "}"}]}], "}"}]}], "}"}], "}"}], "}"}]], "Output", CellChangeTimes->{3.829327478142639*^9, 3.829328023666669*^9, 3.84581549830585*^9}, CellLabel-> "Out[248]=",ExpressionUUID->"0799c17f-ce6a-48dc-8740-73786dc7cadc"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"BmnHolCross", "=", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"\[Epsilon]downdownupup", "[", RowBox[{"mu", ",", "nu", ",", "de", ",", "la"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]stdowndown", "[", "de", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"A", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"de", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]5\[Gamma]stdowndown", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "nu", "]"}]}], "]"}]}], "-", RowBox[{ RowBox[{ RowBox[{"\[Gamma]5\[Gamma]stdowndown", "[", "nu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}]}], ")"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{"1", "/", "2"}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Gamma]stdown", "[", "mu", "]"}], ".", RowBox[{"\[Gamma]down", "[", "de", "]"}]}], ")"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"Fmn", "[", RowBox[{"nu", ",", "de"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"de", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "-", " ", RowBox[{ RowBox[{"(", RowBox[{"1", "/", "2"}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Gamma]stdown", "[", "nu", "]"}], ".", RowBox[{"\[Gamma]down", "[", "de", "]"}]}], ")"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"Fmn", "[", RowBox[{"mu", ",", "de"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"de", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{"I", "/", "2"}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"\[Epsilon]downdownupup", "[", RowBox[{"mu", ",", "nu", ",", "ka", ",", "de"}], "]"}], RowBox[{"\[Gamma]5down", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"Fmn", "[", RowBox[{"ka", ",", "de"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"ka", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"de", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "-", RowBox[{ RowBox[{"(", RowBox[{"I", "/", "128"}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"\[Epsilon]downupupup", "[", RowBox[{"nu", ",", "ka", ",", "de", ",", "la"}], "]"}], RowBox[{ RowBox[{"(", RowBox[{"\[Gamma]5", ".", RowBox[{"CommuteGammastdowndown", "[", RowBox[{"la", ",", "mu"}], "]"}]}], ")"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"Fmn", "[", RowBox[{"ka", ",", "de"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"ka", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"de", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"al", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"be", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{"I", "/", "128"}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"\[Epsilon]downupupup", "[", RowBox[{"mu", ",", "ka", ",", "de", ",", "la"}], "]"}], RowBox[{ RowBox[{"(", RowBox[{"\[Gamma]5", ".", RowBox[{"CommuteGammastdowndown", "[", RowBox[{"la", ",", "nu"}], "]"}]}], ")"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"Fmn", "[", RowBox[{"ka", ",", "de"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"ka", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"de", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"al", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"be", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "2", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"aa", ",", " ", "1", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"bb", ",", " ", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}], "//", "Simplify"}]}], ";"}]], "Input", CellChangeTimes->{{3.799751407510914*^9, 3.799751419893224*^9}, 3.829327419804783*^9}, CellLabel-> "In[249]:=",ExpressionUUID->"2b714fa0-9488-4b84-b5c5-dfcd553e3d4d"], Cell[BoxData[ RowBox[{ RowBox[{"BmnHolCrossPaper", " ", "=", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"\[Epsilon]downdownupup", "[", RowBox[{"mu", ",", "nu", ",", "de", ",", "la"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]stdowndown", "[", "de", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"A", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"de", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]5\[Gamma]stdowndown", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "nu", "]"}]}], "]"}]}], "-", RowBox[{ RowBox[{ RowBox[{"\[Gamma]5\[Gamma]stdowndown", "[", "nu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}]}], ")"}]}], "\[IndentingNewLine]", "+", " ", RowBox[{ RowBox[{"Cmetric", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"KroneckerDelta", "[", RowBox[{"mu", ",", "ro"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Avec", "[", "0", "]"}], "[", "ro", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "nu", "]"}]}], "]"}]}], "-", RowBox[{ RowBox[{"KroneckerDelta", "[", RowBox[{"nu", ",", "ro"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Avec", "[", "0", "]"}], "[", "ro", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"ro", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{"I", " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"\[Epsilon]downdownupup", "[", RowBox[{"mu", ",", "nu", ",", "la", ",", "ro"}], "]"}], RowBox[{"\[Gamma]5down", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Avec", "[", "0", "]"}], "[", "ro", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"ro", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "2", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"aa", ",", " ", "1", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"bb", ",", " ", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}], "//", "Simplify"}]}], ";"}]], "Input", CellChangeTimes->{{3.8293275798556256`*^9, 3.829327594526821*^9}, { 3.829327625647691*^9, 3.8293276834381866`*^9}, {3.8293277342741632`*^9, 3.8293278701673727`*^9}, {3.8293279311066694`*^9, 3.8293279461753583`*^9}}, CellLabel-> "In[250]:=",ExpressionUUID->"65a6c53b-d480-4e42-a7e2-005b388cbce3"], Cell[BoxData[ RowBox[{ RowBox[{"BmnHolCrossMath", " ", "=", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"Bmn", "[", "1", "]"}], "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}], " ", "-", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"Bmn", "[", "1", "]"}], "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "2", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"aa", ",", " ", "1", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"bb", ",", " ", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}], "//", "Simplify"}]}], ";"}]], "Input", CellChangeTimes->{{3.79932162765285*^9, 3.799321671657681*^9}, { 3.799330296628571*^9, 3.799330600235401*^9}, {3.7993306486256733`*^9, 3.799330666057569*^9}, {3.799330716676347*^9, 3.799331091857382*^9}, { 3.799331277998023*^9, 3.799331371823411*^9}, {3.79933141792516*^9, 3.799331456527967*^9}, {3.799331596757655*^9, 3.799331831643319*^9}, { 3.799332327445861*^9, 3.7993323793215218`*^9}, {3.7993324441854963`*^9, 3.799332468825325*^9}, {3.799332565227936*^9, 3.799332807264228*^9}, { 3.799332838260973*^9, 3.799332929362336*^9}, {3.799332999942823*^9, 3.7993330090559072`*^9}, {3.79933577476873*^9, 3.799335775551878*^9}, { 3.799492474424199*^9, 3.799492585067492*^9}, {3.799492620792591*^9, 3.7994929934140663`*^9}, {3.799520907370022*^9, 3.799521142602654*^9}, { 3.7995211780764093`*^9, 3.799521260998994*^9}, {3.799521326906279*^9, 3.799521403224684*^9}, {3.799521698379792*^9, 3.799521724777705*^9}, { 3.7995225571221113`*^9, 3.799522600371958*^9}, {3.7995227263328648`*^9, 3.799522961044312*^9}, {3.7995229951305723`*^9, 3.7995230970812674`*^9}, { 3.7995254913449583`*^9, 3.799525496596033*^9}, {3.7995344183818283`*^9, 3.799534424407641*^9}, {3.799534476444735*^9, 3.799534656838896*^9}, { 3.799580254921687*^9, 3.7995803632681303`*^9}, {3.799580429683011*^9, 3.799580741895381*^9}, {3.799604640305052*^9, 3.799604642956346*^9}, { 3.7996047182271757`*^9, 3.799604723827767*^9}, {3.799604911006102*^9, 3.799604922180607*^9}, {3.799605735084214*^9, 3.799605756724564*^9}, { 3.79960580070411*^9, 3.799605899824877*^9}, {3.799605965474791*^9, 3.79960597832756*^9}, 3.799751389692243*^9, {3.799751424538087*^9, 3.799751433559371*^9}, 3.829327424801407*^9}, CellLabel-> "In[251]:=",ExpressionUUID->"90f16a38-0a9b-4dcc-b121-859b14d3cebd"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"BmnHolCrossMath", "==", "BmnHolCross"}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.799751443195589*^9, 3.799751447817821*^9}}, CellLabel-> "In[252]:=",ExpressionUUID->"5d1f63e4-aee3-49f1-a72d-cca9906e320c"], Cell[BoxData["True"], "Output", CellChangeTimes->{{3.799751448418948*^9, 3.799751460757268*^9}, 3.799752765254952*^9, 3.7997597981748447`*^9, 3.8001106812967167`*^9, 3.8001386306745663`*^9, 3.8001977280685453`*^9, 3.800217609313683*^9, 3.800394882104847*^9, 3.80039685504948*^9, 3.8005369093617687`*^9, 3.800808647018249*^9, 3.8008099504664307`*^9, 3.826162376339458*^9, 3.82616314329251*^9, 3.826164072921406*^9, 3.82932608396933*^9, 3.829327429307925*^9, 3.8293280284967585`*^9, 3.845815503092134*^9}, CellLabel-> "Out[252]=",ExpressionUUID->"ab5e6ff0-ee8a-43ed-b45e-f5d0f3cb7291"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"BmnHolCrossPaper", " ", "\[Equal]", "BmnHolCrossMath"}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.82932795568528*^9, 3.8293279652794313`*^9}}, CellLabel-> "In[253]:=",ExpressionUUID->"eca59728-7e89-4019-8c6c-fb932428fcea"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.8293279661712694`*^9, 3.8293280285817165`*^9, 3.8458155032014575`*^9}, CellLabel-> "Out[253]=",ExpressionUUID->"25757c15-c24f-4bb8-93a2-88344157f523"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"BmnHolCrossPaper", " ", "\[Equal]", "BmnHolCross"}], "//", "Simplify"}]], "Input", CellChangeTimes->{3.8293280111451693`*^9}, CellLabel-> "In[254]:=",ExpressionUUID->"4ca623dc-3973-4f23-95cc-ef44afd86553"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.829328028691061*^9, 3.8458155032014575`*^9}, CellLabel-> "Out[254]=",ExpressionUUID->"fe9fe345-2046-48e2-8a79-09a4deb0eb32"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ Siew Psi with Better Gamma Basis, in the body of the paper is quoted the \ results upon actually enforcing the dirac equation. Below are also given the \ results including these Dirac Equation terms\ \>", "Subsection", CellChangeTimes->{{3.800110225578562*^9, 3.800110226896809*^9}, { 3.80030750768155*^9, 3.800307511126584*^9}, {3.800348887424917*^9, 3.800348896110038*^9}, 3.84582131763132*^9},ExpressionUUID->"8f490a1e-1ee2-48d9-a4e8-\ 0ee536b82612"], Cell[CellGroupData[{ Cell["X", "Subsubsection", CellChangeTimes->{{3.800130363816936*^9, 3.800130367136668*^9}},ExpressionUUID->"49f13add-83a1-4c4a-ad95-\ 09ab5c845876"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"X1", "[", "5", "]"}], "[", RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"I", "/", "4"}], ")"}], " ", RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "/", "4"}], ")"}], RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{"1", "/", "4"}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{"I", "/", "4"}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"KroneckerDelta", "[", RowBox[{"kk", ",", "ll"}], "]"}]}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"ll", ",", "1", ",", "2"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.7996652510347357`*^9, 3.7996652627513514`*^9}, { 3.799665312176265*^9, 3.799665415860877*^9}, {3.7996688962254457`*^9, 3.79966892876335*^9}, {3.799668970297758*^9, 3.799668996919237*^9}, { 3.79966936661845*^9, 3.799669376211941*^9}, 3.7996694194644403`*^9, 3.7996695274905787`*^9, {3.7996696937892942`*^9, 3.799669695361713*^9}, { 3.799669865353406*^9, 3.7996698737971687`*^9}, {3.799670026165674*^9, 3.799670026458721*^9}, {3.799670663970121*^9, 3.799670671259778*^9}, { 3.799670768700727*^9, 3.799670779423319*^9}, {3.7996708916619368`*^9, 3.7996708945646544`*^9}, 3.79967183063323*^9, {3.799671875290814*^9, 3.7996718765944147`*^9}, 3.7996719112611217`*^9, {3.7996720346890163`*^9, 3.799672035401425*^9}, {3.7996724117741823`*^9, 3.799672425731805*^9}, { 3.799672599599312*^9, 3.7996726010631247`*^9}, {3.799672699752431*^9, 3.7996727139193*^9}, {3.799673080026394*^9, 3.799673080784636*^9}, { 3.7996731163064547`*^9, 3.799673138727139*^9}, {3.799674264316572*^9, 3.7996742739728727`*^9}, {3.799679827961631*^9, 3.799679828676334*^9}, { 3.7996799354508467`*^9, 3.7996799779879932`*^9}, {3.799681100664277*^9, 3.799681135447175*^9}, {3.7996814518964977`*^9, 3.799681453098822*^9}, { 3.799699938950777*^9, 3.7996999543280354`*^9}, {3.799707102047843*^9, 3.799707104427792*^9}, 3.7997421496043167`*^9, {3.799742344687454*^9, 3.799742353137207*^9}, {3.799742425119286*^9, 3.7997424265511713`*^9}, { 3.7997425333807497`*^9, 3.79974253389616*^9}, {3.7997426182329817`*^9, 3.79974265245472*^9}, {3.7997426901603527`*^9, 3.799742691526273*^9}, { 3.799743597400085*^9, 3.799743602560834*^9}, {3.799745965468335*^9, 3.799745986722908*^9}, {3.799746257495017*^9, 3.799746257909979*^9}, { 3.800110234835294*^9, 3.800110333917371*^9}, {3.800110447135627*^9, 3.80011045140107*^9}, {3.8001127566627007`*^9, 3.800112773380061*^9}, 3.8001128414179573`*^9, 3.800113032434372*^9, {3.800113249359889*^9, 3.800113256939803*^9}, {3.80011352143509*^9, 3.80011353067688*^9}, { 3.800129734058968*^9, 3.800129751777575*^9}, {3.800129816244417*^9, 3.800129818191153*^9}, {3.800130228898118*^9, 3.800130241844441*^9}, { 3.800130409901802*^9, 3.800130413713191*^9}, 3.800132251380665*^9, { 3.800132306472823*^9, 3.800132310047781*^9}, {3.800132477836877*^9, 3.8001324784234047`*^9}, 3.80013291222683*^9, {3.800133029880526*^9, 3.8001330486368103`*^9}, {3.800133087713871*^9, 3.800133120224462*^9}, { 3.800133643112492*^9, 3.800133653224915*^9}, {3.800133773934532*^9, 3.800133785766027*^9}, {3.800133890656115*^9, 3.8001339001548367`*^9}, { 3.800138128183538*^9, 3.8001382025783997`*^9}, {3.8003069374506073`*^9, 3.800306938169345*^9}, {3.800307538885254*^9, 3.800307546445533*^9}, { 3.800348922803022*^9, 3.800348923049882*^9}, {3.80034901997783*^9, 3.800349034862591*^9}, {3.800349118901367*^9, 3.80034911899564*^9}, { 3.800357332730001*^9, 3.80035734350912*^9}, {3.800394596465948*^9, 3.8003946038194532`*^9}}, CellLabel-> "In[510]:=",ExpressionUUID->"4fc04fec-922e-4798-9f97-197be3d24929"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"X2", "[", "5", "]"}], "[", RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"I", "/", "16"}], ")"}], " ", RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{"3", "/", "16"}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "/", "16"}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], RowBox[{"I", "/", "16"}]}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"KroneckerDelta", "[", RowBox[{"kk", ",", "ll"}], "]"}]}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"ll", ",", "1", ",", "2"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.800110393626577*^9, 3.800110395188344*^9}, { 3.800110466112854*^9, 3.8001104768546257`*^9}, 3.8001118330103903`*^9, 3.800112956601022*^9, 3.800112999763776*^9, 3.800113092946046*^9, 3.800113143409091*^9, {3.8001297611340446`*^9, 3.8001297612426443`*^9}, { 3.800130261643187*^9, 3.800130279213718*^9}, {3.8001304264321327`*^9, 3.8001304314667892`*^9}, {3.80013254812916*^9, 3.8001325510583*^9}, { 3.8001326036920958`*^9, 3.800132607003542*^9}, {3.8001328792051907`*^9, 3.800132880930582*^9}, {3.800133141413445*^9, 3.800133199529097*^9}, { 3.8001332551397657`*^9, 3.8001332713572598`*^9}, {3.8001339146818447`*^9, 3.80013393048846*^9}, {3.800138258725418*^9, 3.800138271697207*^9}, { 3.800306943081872*^9, 3.800306943192387*^9}, {3.80030759437507*^9, 3.800307602756695*^9}, {3.8003491567380753`*^9, 3.800349163517647*^9}, { 3.800357379039756*^9, 3.80035739055541*^9}, {3.800394676019738*^9, 3.8003946865433493`*^9}, {3.800809755925694*^9, 3.800809756347006*^9}}, CellLabel-> "In[511]:=",ExpressionUUID->"e606362f-019f-4d7d-b898-e9f73a889354"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"X3", "[", "5", "]"}], "[", RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "I"}], "/", "8"}], ")"}], " ", RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{"1", "/", "8"}], ")"}], RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "/", "8"}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "I"}], "/", "8"}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"KroneckerDelta", "[", RowBox[{"kk", ",", "ll"}], "]"}]}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"ll", ",", "1", ",", "2"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.800110363292152*^9, 3.800110389990699*^9}, { 3.800110455043022*^9, 3.8001104616285057`*^9}, 3.8001117981170263`*^9, 3.80011274537081*^9, 3.800112926723485*^9, 3.800113013680533*^9, 3.800113065674403*^9, {3.800129738373971*^9, 3.8001297393872137`*^9}, { 3.800130249651207*^9, 3.8001302596168337`*^9}, {3.800130416013686*^9, 3.80013042194765*^9}, 3.800132395100371*^9, {3.800132460284151*^9, 3.800132463281928*^9}, {3.800132533192268*^9, 3.800132533690661*^9}, { 3.80013271252822*^9, 3.800132713110586*^9}, {3.8001331222344437`*^9, 3.800133138285466*^9}, {3.800133423442689*^9, 3.800133437706676*^9}, { 3.800133593577133*^9, 3.800133607818359*^9}, {3.800133902276018*^9, 3.800133913015147*^9}, {3.800138229398325*^9, 3.800138235609268*^9}, { 3.8003069415037117`*^9, 3.800306941625657*^9}, {3.800307547852943*^9, 3.8003075551338787`*^9}, {3.800307590889777*^9, 3.800307591981887*^9}, { 3.800348924466237*^9, 3.8003489247358303`*^9}, {3.800349047608383*^9, 3.800349060788583*^9}, {3.800349117192037*^9, 3.8003491173087883`*^9}, { 3.8003573457460327`*^9, 3.8003573766037703`*^9}, {3.800394637930441*^9, 3.800394657242198*^9}, {3.800809758169281*^9, 3.800809758242066*^9}}, CellLabel-> "In[512]:=",ExpressionUUID->"f9c7d4fc-27e8-4aec-a0fa-5114ac596aae"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"X4", "[", "5", "]"}], "[", RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], RowBox[{"I", "/", "128"}]}], ")"}], " ", RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{"3", "/", "128"}], ")"}], RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "/", "128"}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], RowBox[{"I", "/", "128"}]}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"KroneckerDelta", "[", RowBox[{"kk", ",", "ll"}], "]"}]}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"ll", ",", "1", ",", "2"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.8003069308017817`*^9, 3.800306954677063*^9}, { 3.800307644144287*^9, 3.800307655127385*^9}, {3.800349308184864*^9, 3.800349316317441*^9}, {3.8003574439283543`*^9, 3.800357458858169*^9}, { 3.800394852768821*^9, 3.800394865429326*^9}, {3.800809745729314*^9, 3.800809745814094*^9}}, CellLabel-> "In[513]:=",ExpressionUUID->"bdaf8619-7862-4138-ac90-a5cd74605173"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"X5", "[", "5", "]"}], "[", RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], RowBox[{"I", "/", "4"}]}], ")"}], " ", RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "/", "4"}], ")"}], RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{"1", "/", "4"}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], RowBox[{"I", "/", "4"}]}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"KroneckerDelta", "[", RowBox[{"kk", ",", "ll"}], "]"}]}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"ll", ",", "1", ",", "2"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.800110398283496*^9, 3.800110398462944*^9}, { 3.8001104872476892`*^9, 3.8001104945167007`*^9}, 3.800112804979659*^9, 3.800112918773007*^9, 3.800113076498694*^9, 3.8001131301072206`*^9, { 3.8001134493742447`*^9, 3.800113450773027*^9}, {3.800113495020145*^9, 3.8001135058933372`*^9}, {3.8001297659715*^9, 3.800129766104232*^9}, { 3.800130293975542*^9, 3.800130299224527*^9}, {3.800130440242423*^9, 3.800130447620881*^9}, {3.800132257881941*^9, 3.80013227037158*^9}, 3.800132419802051*^9, {3.8001324707076283`*^9, 3.800132471433772*^9}, { 3.800133955797564*^9, 3.8001339629269648`*^9}, {3.800138325288735*^9, 3.8001383339053392`*^9}, {3.800306946071735*^9, 3.800306946195368*^9}, { 3.800307605675214*^9, 3.8003076116074657`*^9}, {3.800349178259528*^9, 3.800349188033152*^9}, {3.80035739327699*^9, 3.800357401827064*^9}, { 3.800394717943944*^9, 3.800394726189021*^9}}, CellLabel-> "In[514]:=",ExpressionUUID->"24e35c50-eec6-4249-b84b-907c2259dd14"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"X6", "[", "5", "]"}], "[", RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"3", RowBox[{"I", "/", "16"}]}], ")"}], " ", RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{"1", "/", "16"}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "/", "16"}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{"7", RowBox[{"I", "/", "16"}]}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"KroneckerDelta", "[", RowBox[{"kk", ",", "ll"}], "]"}]}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"ll", ",", "1", ",", "2"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.800110399768758*^9, 3.800110399912744*^9}, { 3.800110496515047*^9, 3.800110502571926*^9}, 3.800111824959324*^9, { 3.8001130025502853`*^9, 3.800113020277585*^9}, {3.800113146355151*^9, 3.800113159711175*^9}, {3.8001135088834753`*^9, 3.800113516200593*^9}, { 3.800129767136856*^9, 3.800129767226714*^9}, {3.8001303009744453`*^9, 3.800130307854059*^9}, {3.800130450524173*^9, 3.800130454296567*^9}, { 3.800132358722671*^9, 3.800132360274147*^9}, {3.800132400110808*^9, 3.800132410887569*^9}, {3.80013297598285*^9, 3.8001329773141203`*^9}, { 3.800133300811689*^9, 3.800133348191144*^9}, {3.8001333964443073`*^9, 3.800133406914687*^9}, {3.8001339686430264`*^9, 3.800133981531185*^9}, { 3.800138350395418*^9, 3.800138359898597*^9}, {3.800306947224265*^9, 3.800306947285892*^9}, {3.800307612753484*^9, 3.8003076219053698`*^9}, { 3.800349214054989*^9, 3.800349225302134*^9}, {3.800357404419051*^9, 3.800357417034408*^9}, {3.800394740307414*^9, 3.800394750411331*^9}}, CellLabel-> "In[515]:=",ExpressionUUID->"07bd0a4f-191d-4bbc-9ff2-9214d18305d1"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"X7", "[", "5", "]"}], "[", RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"3", RowBox[{"I", "/", "16"}]}], ")"}], " ", RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{"5", "/", "16"}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "/", "16"}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], RowBox[{"I", "/", "16"}]}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"KroneckerDelta", "[", RowBox[{"kk", ",", "ll"}], "]"}]}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"ll", ",", "1", ",", "2"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.800110401362487*^9, 3.800110401894199*^9}, { 3.800110505313815*^9, 3.800110513038578*^9}, 3.8001129529758*^9, 3.800112991658972*^9, 3.800113085138695*^9, 3.800113122954135*^9, { 3.800129768462413*^9, 3.800129768544305*^9}, {3.800130311458151*^9, 3.800130326211471*^9}, {3.800130458435046*^9, 3.8001304643233624`*^9}, { 3.800132317348967*^9, 3.800132319372428*^9}, {3.800132592672716*^9, 3.8001325952147913`*^9}, {3.800132941124516*^9, 3.800132950434721*^9}, { 3.8001339843776608`*^9, 3.80013399798744*^9}, {3.800138532499462*^9, 3.800138539982037*^9}, {3.8003069497227182`*^9, 3.8003069498833227`*^9}, { 3.800307623033832*^9, 3.800307632334342*^9}, {3.800349249382728*^9, 3.800349258319029*^9}, {3.800357418596797*^9, 3.80035743062646*^9}, { 3.8003947796653137`*^9, 3.800394793438455*^9}}, CellLabel-> "In[516]:=",ExpressionUUID->"93912786-d6c8-486a-b245-bfe7a3fa6726"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"X8", "[", "5", "]"}], "[", RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], " ", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "9"}], RowBox[{"I", "/", "16"}]}], ")"}], " ", RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{"1", "/", "16"}], ")"}], RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "/", "16"}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "\[IndentingNewLine]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "I"}], "/", "16"}], ")"}], " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"KroneckerDelta", "[", RowBox[{"kk", ",", "ll"}], "]"}]}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"ll", ",", "1", ",", "2"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.80011040443928*^9, 3.800110405104908*^9}, { 3.800110515421832*^9, 3.800110531188781*^9}, {3.80011293998602*^9, 3.8001129679833527`*^9}, 3.8001130517876472`*^9, 3.80011313727812*^9, { 3.800129770588353*^9, 3.800129770705511*^9}, {3.8001303295827637`*^9, 3.800130340779999*^9}, {3.8001304674932833`*^9, 3.80013047300598*^9}, { 3.8001324513109913`*^9, 3.8001324518429623`*^9}, {3.800132685013454*^9, 3.800132688538657*^9}, {3.800133003618589*^9, 3.8001330104023523`*^9}, { 3.800134000350552*^9, 3.80013401677057*^9}, {3.800138608471364*^9, 3.800138613875579*^9}, {3.80030695221751*^9, 3.800306952302923*^9}, { 3.800307633514153*^9, 3.800307642639271*^9}, {3.800349282077137*^9, 3.8003492900594*^9}, {3.800357433470682*^9, 3.800357442304511*^9}, { 3.800394812213131*^9, 3.800394826352282*^9}}, CellLabel-> "In[517]:=",ExpressionUUID->"0de85c62-d1e3-4de3-a4df-2d52b7c52c2d"] }, Open ]], Cell[CellGroupData[{ Cell["Psi Calc", "Subsubsection", CellChangeTimes->{{3.7996689638833714`*^9, 3.7996689669126587`*^9}},ExpressionUUID->"9d8c72f7-05e1-48b6-a96b-\ 1e566e33391f"], Cell[BoxData[ RowBox[{ RowBox[{"psiTMHolCross", "=", RowBox[{ RowBox[{"Table", "[", " ", RowBox[{ RowBox[{ RowBox[{"2", "I", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"X1", "[", "5", "]"}], "[", RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], RowBox[{ RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "ll", "]"}], "[", "cc", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", " ", RowBox[{"2", "I", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"X2", "[", "5", "]"}], "[", RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], RowBox[{ RowBox[{"\[Gamma]stdowndown", "[", "nu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Gamma]", "[", "nu", "]"}], ".", RowBox[{"\[Gamma]", "[", "mu", "]"}]}], ")"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "ll", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", " ", RowBox[{"2", "I", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"X3", "[", "5", "]"}], "[", RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], RowBox[{ RowBox[{"CommuteGammadown", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"\[Gamma]stdown", "[", "nu", "]"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "ll", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", " ", RowBox[{"2", "I", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"X4", "[", "5", "]"}], "[", RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], RowBox[{ RowBox[{"CommuteGammadown", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"CommuteGammastdown", "[", RowBox[{"mu", ",", "nu"}], "]"}], ".", RowBox[{"\[Gamma]", "[", "la", "]"}]}], ")"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "ll", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "la", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"la", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", " ", RowBox[{"2", "I", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"X5", "[", "5", "]"}], "[", RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"\[Gamma]5", "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "ll", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", " ", RowBox[{"2", "I", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"X6", "[", "5", "]"}], "[", RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]stdowndown", "[", "nu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Gamma]5\[Gamma]", "[", "nu", "]"}], ".", RowBox[{"\[Gamma]", "[", "mu", "]"}]}], ")"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "ll", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", " ", RowBox[{"2", "I", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"X7", "[", "5", "]"}], "[", RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], RowBox[{"\[Gamma]5down", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "ll", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "+", " ", RowBox[{"2", "I", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"X8", "[", "5", "]"}], "[", RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], RowBox[{"Cmetric", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"\[Gamma]", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "ll", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"aa", ",", " ", "1", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"bb", ",", " ", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"cc", ",", "1", ",", "4"}], "}"}]}], "]"}], "//", "Simplify"}]}], ";"}]], "Input", CellChangeTimes->{{3.799665430342388*^9, 3.79966543805836*^9}, { 3.799665807214375*^9, 3.7996658480604143`*^9}, {3.799665901639982*^9, 3.799665924849201*^9}, {3.799665954993039*^9, 3.7996659668965473`*^9}, { 3.799666082200243*^9, 3.799666086968349*^9}, {3.799666123120418*^9, 3.799666136635099*^9}, {3.7996661699984827`*^9, 3.799666238730455*^9}, { 3.79966627421465*^9, 3.7996663444359627`*^9}, {3.799666493357522*^9, 3.799666498599592*^9}, {3.7996665298336143`*^9, 3.799666554512801*^9}, { 3.799666586709858*^9, 3.7996665956016808`*^9}, {3.799666634621347*^9, 3.799666640906722*^9}, {3.799666672533422*^9, 3.799666682300786*^9}, { 3.79966672897077*^9, 3.79966673385183*^9}, {3.799666800558617*^9, 3.799667025616901*^9}, {3.799667119442486*^9, 3.799667128731614*^9}, { 3.799667189546833*^9, 3.799667225450939*^9}, {3.799667282123147*^9, 3.799667294010084*^9}, {3.7996673399597397`*^9, 3.799667346260728*^9}, { 3.7996674352701197`*^9, 3.799667471430389*^9}, {3.799667561222804*^9, 3.7996675670711203`*^9}, {3.799667637026087*^9, 3.799667702522922*^9}, { 3.7996677629093637`*^9, 3.7996677794032097`*^9}, {3.799667842434082*^9, 3.799667857194471*^9}, {3.7996679009906673`*^9, 3.799668391262459*^9}, { 3.7996684274722013`*^9, 3.799668489582037*^9}, {3.7996691564030867`*^9, 3.799669180635517*^9}, {3.799673758855599*^9, 3.799673813956582*^9}, { 3.799674012220592*^9, 3.799674027559526*^9}, {3.7996740586365643`*^9, 3.7996740701686277`*^9}, 3.799674111529831*^9, {3.7996749349933662`*^9, 3.799674935180553*^9}, {3.799680448082368*^9, 3.799680474211626*^9}, { 3.799680504245632*^9, 3.799680507779004*^9}, {3.7996805571915913`*^9, 3.799680593163108*^9}, {3.79968063818042*^9, 3.7996806583708897`*^9}, { 3.799680710756279*^9, 3.799680722963538*^9}, {3.799742549027727*^9, 3.799742558897811*^9}, {3.799742848637076*^9, 3.799742877547081*^9}, 3.79974968052695*^9, {3.800110408025049*^9, 3.800110423270626*^9}, 3.8001105801066637`*^9, {3.800113204589576*^9, 3.800113240658511*^9}, { 3.800113277365058*^9, 3.800113431628422*^9}, 3.8001138079198523`*^9, { 3.800129775525394*^9, 3.800129812330913*^9}, {3.800130347534215*^9, 3.800130347644684*^9}, {3.8001305561858673`*^9, 3.800130556255453*^9}, { 3.800133811207649*^9, 3.80013381327802*^9}, {3.8003068797664423`*^9, 3.8003069223509197`*^9}, {3.800306958597094*^9, 3.8003069741200237`*^9}, { 3.800307017634788*^9, 3.800307051356757*^9}, {3.800307118786977*^9, 3.800307131307004*^9}, {3.8003072495480824`*^9, 3.800307252440155*^9}, { 3.8005369895582943`*^9, 3.800537020864747*^9}, {3.800809728224489*^9, 3.80080973667662*^9}, {3.800809768518928*^9, 3.800809778319013*^9}, 3.8458247021337957`*^9}, CellLabel-> "In[526]:=",ExpressionUUID->"ecb54d65-b3a8-44c7-bf26-254f6832efbb"], Cell[BoxData[ RowBox[{ RowBox[{"psiTMHolCrossMath", "=", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "kk", "]"}], "[", "cc", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}], " ", "-", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "kk", "]"}], "[", "cc", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"aa", ",", " ", "1", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"bb", ",", " ", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"cc", ",", "1", ",", "4"}], "}"}]}], "]"}], "//", "Simplify"}]}], ";"}]], "Input", CellChangeTimes->{{3.8005370093271637`*^9, 3.8005370170513477`*^9}, 3.8458247067822576`*^9}, CellLabel-> "In[527]:=",ExpressionUUID->"420b8e87-de4f-4dc8-b8f0-44a48d0f311e"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"psiTMHolCrossMath", "==", "psiTMHolCross"}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.8005370239776497`*^9, 3.800537026682918*^9}}, CellLabel-> "In[528]:=",ExpressionUUID->"ee2441b4-c504-4d4d-8929-d30d2c04334a"], Cell[BoxData["True"], "Output", CellChangeTimes->{ 3.800133562101232*^9, 3.8001336254391603`*^9, 3.800133660464484*^9, { 3.8001336919270267`*^9, 3.800133714126458*^9}, {3.800133785594228*^9, 3.800133792620989*^9}, 3.800134068170862*^9, 3.800134118253359*^9, 3.800134184850374*^9, 3.800134275423997*^9, 3.800134328246372*^9, 3.8001343762530603`*^9, 3.800134419486759*^9, 3.800134479538082*^9, 3.8001345296538553`*^9, 3.800134588875307*^9, 3.800134682444293*^9, 3.8001347233356953`*^9, 3.800134768794746*^9, 3.800134811404929*^9, 3.800134858480082*^9, 3.800134902225745*^9, 3.8001349420307693`*^9, 3.8001349991960163`*^9, 3.8001350414579697`*^9, 3.8001350845961113`*^9, 3.800135165007958*^9, 3.8001352124901333`*^9, 3.800135260697338*^9, 3.800135293341732*^9, 3.800135339254479*^9, 3.800135380665269*^9, 3.800135424502532*^9, 3.800135459713029*^9, 3.8001354918765507`*^9, { 3.800135523465868*^9, 3.800135566539702*^9}, 3.80013813331748*^9, { 3.8001381840897617`*^9, 3.800138210900379*^9}, 3.8001382414340467`*^9, 3.8001382767458897`*^9, 3.800138307566225*^9, {3.800138339441984*^9, 3.8001383659238997`*^9}, 3.800138478353609*^9, 3.800138545385049*^9, 3.800138633581263*^9, 3.8001390561804123`*^9, 3.8003098723298807`*^9, 3.800309931646287*^9, 3.800309988433112*^9, 3.800310043905775*^9, 3.8003101050691357`*^9, 3.8003101668828297`*^9, 3.800310225553112*^9, 3.8003102768560534`*^9, 3.800310326372007*^9, 3.8003103834403543`*^9, 3.8003104340972*^9, 3.800310493266046*^9, 3.800310538233388*^9, 3.8003105821448927`*^9, 3.800310622069916*^9, 3.800310662221114*^9, 3.800310701758175*^9, 3.800310761237467*^9, 3.8003108059371967`*^9, 3.8003108476156483`*^9, 3.800310889993476*^9, 3.800310931888968*^9, 3.8003109770617323`*^9, 3.800345302911147*^9, 3.800345347573474*^9, 3.8003453955298023`*^9, 3.80034542709859*^9, 3.800345464451161*^9, 3.8003454949388037`*^9, {3.8003455303488817`*^9, 3.800345623454933*^9}, 3.8003491279569683`*^9, 3.8003491968414183`*^9, 3.800349234369893*^9, 3.8003492664825974`*^9, 3.800349323395611*^9, 3.800365894653919*^9, 3.800365954630464*^9, 3.800366040274057*^9, 3.800366094756625*^9, 3.80036615631199*^9, 3.800366220527011*^9, 3.800366277776775*^9, 3.80036635986511*^9, 3.800366406910263*^9, 3.800366449600439*^9, 3.80036648658841*^9, 3.800366538735271*^9, 3.800366578632165*^9, 3.80036663701864*^9, 3.8003666901555567`*^9, 3.800366736790369*^9, 3.80036677572093*^9, 3.800366828451791*^9, 3.8003668619267406`*^9, { 3.800366904534336*^9, 3.800366933232059*^9}, 3.800366965289193*^9, { 3.8003669968925667`*^9, 3.8003670445687723`*^9}, {3.8003670837913027`*^9, 3.8003670992349577`*^9}, 3.800392783054818*^9, 3.800392887119156*^9, 3.800392976078895*^9, 3.800393271878113*^9, 3.800393310550786*^9, 3.800393369044785*^9, 3.8003934255108347`*^9, 3.800393478417173*^9, 3.8003935339250937`*^9, 3.800393584794428*^9, 3.8003936306555758`*^9, 3.8003936757538*^9, 3.800393720930964*^9, 3.80039381481041*^9, 3.800393864474936*^9, 3.8003939673640957`*^9, 3.800394022989834*^9, 3.800394064331917*^9, 3.800394105795933*^9, 3.8003941435858583`*^9, 3.800394177527061*^9, {3.800394208766822*^9, 3.8003942219902782`*^9}, 3.800394252781218*^9, 3.80039429411546*^9, 3.800394325081828*^9, 3.800394356405437*^9, {3.8003943918177757`*^9, 3.800394458562716*^9}, 3.8003946174281893`*^9, 3.800394667195086*^9, 3.8003947030608*^9, 3.800394758297566*^9, 3.800394835510326*^9, {3.800394872946663*^9, 3.8003948873199453`*^9}, 3.800396859496603*^9, 3.8005369143000717`*^9, 3.8005370350563297`*^9, 3.8008097864033413`*^9, 3.80080995602981*^9, 3.8261623807728777`*^9, 3.826163147966631*^9, 3.8261640824269114`*^9, 3.8293260893890605`*^9, 3.8458155084742365`*^9, 3.8458236328671536`*^9, 3.845824709715747*^9}, CellLabel-> "Out[528]=",ExpressionUUID->"6bb16cab-fd59-4abf-b0ae-35d36661a909"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Check Paper", "Subsubsection", CellChangeTimes->{{3.845816060202326*^9, 3.845816061589342*^9}},ExpressionUUID->"ae33ec0a-7653-45f7-8f0a-\ afe70444ee57"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"straightVt", "[", "xx_", "]"}], "[", RowBox[{"ii_", ",", "jj_", ",", "kk_", ",", "ll_"}], "]"}], ":=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"I", " ", RowBox[{ RowBox[{"cV", "[", "xx", "]"}], "[", RowBox[{"ii", ",", "rr", ",", "kk", ",", "ll"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"rr", ",", "jj"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"rr", ",", "1", ",", "2"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.8458215498576746`*^9, 3.845821652440881*^9}, { 3.84582168250834*^9, 3.8458217357950325`*^9}, {3.845822604917403*^9, 3.84582263821844*^9}, {3.8458244048600364`*^9, 3.845824407664528*^9}, { 3.84582445556784*^9, 3.845824472574922*^9}}, CellLabel-> "In[529]:=",ExpressionUUID->"aa327c30-d49b-4915-8536-6bbe4dc1c861"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SetabkTM", "=", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"ahat", "[", "1", "]"}], "->", " ", RowBox[{"1", "/", "4"}]}], ",", RowBox[{ RowBox[{"bhat", "[", "1", "]"}], "->", RowBox[{ RowBox[{"-", "1"}], "/", "4"}]}], ",", RowBox[{ RowBox[{"khat", "[", "1", "]"}], "->", RowBox[{"1", "/", "4"}]}], ",", RowBox[{ RowBox[{"ahat", "[", "3", "]"}], "->", RowBox[{ RowBox[{"-", "1"}], "/", "8"}]}], ",", RowBox[{ RowBox[{"bhat", "[", "3", "]"}], "->", RowBox[{"1", "/", "8"}]}], ",", RowBox[{ RowBox[{"khat", "[", "3", "]"}], "->", RowBox[{ RowBox[{"-", "1"}], "/", "8"}]}], ",", RowBox[{ RowBox[{"ahat", "[", "5", "]"}], "->", RowBox[{ RowBox[{"-", "3"}], "/", "4"}]}], ",", RowBox[{ RowBox[{"bhat", "[", "5", "]"}], "->", RowBox[{ RowBox[{"-", "1"}], "/", "4"}]}], ",", RowBox[{ RowBox[{"khat", "[", "5", "]"}], "->", RowBox[{ RowBox[{"-", "3"}], "/", "4"}]}]}], "}"}]}]], "Input", CellChangeTimes->{{3.8458161131239214`*^9, 3.845816140639987*^9}, { 3.8458162804302845`*^9, 3.8458163262906604`*^9}, 3.8458169000626373`*^9, { 3.845819374135563*^9, 3.8458193870107865`*^9}, {3.845820446577468*^9, 3.8458205020594063`*^9}, {3.84582150713344*^9, 3.8458215128483877`*^9}, { 3.8458217758037415`*^9, 3.845821838364437*^9}, {3.8458218752127094`*^9, 3.845821918044699*^9}, {3.845824498876443*^9, 3.845824542888981*^9}}, CellLabel-> "In[530]:=",ExpressionUUID->"040213a2-f3a5-416a-a3c1-7d2db07c0b0e"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"ahat", "[", "1", "]"}], "\[Rule]", FractionBox["1", "4"]}], ",", RowBox[{ RowBox[{"bhat", "[", "1", "]"}], "\[Rule]", RowBox[{"-", FractionBox["1", "4"]}]}], ",", RowBox[{ RowBox[{"khat", "[", "1", "]"}], "\[Rule]", FractionBox["1", "4"]}], ",", RowBox[{ RowBox[{"ahat", "[", "3", "]"}], "\[Rule]", RowBox[{"-", FractionBox["1", "8"]}]}], ",", RowBox[{ RowBox[{"bhat", "[", "3", "]"}], "\[Rule]", FractionBox["1", "8"]}], ",", RowBox[{ RowBox[{"khat", "[", "3", "]"}], "\[Rule]", RowBox[{"-", FractionBox["1", "8"]}]}], ",", RowBox[{ RowBox[{"ahat", "[", "5", "]"}], "\[Rule]", RowBox[{"-", FractionBox["3", "4"]}]}], ",", RowBox[{ RowBox[{"bhat", "[", "5", "]"}], "\[Rule]", RowBox[{"-", FractionBox["1", "4"]}]}], ",", RowBox[{ RowBox[{"khat", "[", "5", "]"}], "\[Rule]", RowBox[{"-", FractionBox["3", "4"]}]}]}], "}"}]], "Output", CellChangeTimes->{{3.84582190813958*^9, 3.8458219190517435`*^9}, 3.845823130038828*^9, 3.845823580093982*^9, 3.84582458330824*^9, { 3.8458246934604597`*^9, 3.8458247157159863`*^9}}, CellLabel-> "Out[530]=",ExpressionUUID->"3c030547-9937-457f-bf1c-d01d7b297009"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"PsiTMHolCrossPaper", " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{"2", " ", "I", " ", RowBox[{ RowBox[{"straightVt", "[", "1", "]"}], "[", RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], RowBox[{ RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "ll", "]"}], "[", "cc", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"ll", ",", "1", ",", "2"}], "}"}]}], "]"}], "+", RowBox[{"2", " ", "I", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"straightVt", "[", "3", "]"}], "[", RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], RowBox[{ RowBox[{"CommuteGammadown", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"\[Gamma]stdown", "[", "nu", "]"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}], "+", " ", RowBox[{ RowBox[{ RowBox[{"straightVt", "[", "5", "]"}], "[", RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"\[Gamma]5", "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}]}]}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "ll", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"cc", ",", "1", ",", "4"}], "}"}]}], "]"}], "//.", "SetabkTM"}], "//", "Simplify"}]}], ";"}]], "Input", CellChangeTimes->{{3.845816064746126*^9, 3.845816078418069*^9}, { 3.845816390133669*^9, 3.8458165372225733`*^9}, {3.8458166241346316`*^9, 3.845816673589799*^9}, {3.845816704000813*^9, 3.8458167510051827`*^9}, { 3.845817012861351*^9, 3.8458170134952707`*^9}, {3.845817074812883*^9, 3.845817078417838*^9}, {3.8458186332991114`*^9, 3.8458186356116147`*^9}, { 3.8458195288049517`*^9, 3.8458195338392324`*^9}, 3.8458195944691753`*^9, { 3.8458198208492107`*^9, 3.84581990852046*^9}, 3.8458199735101914`*^9, { 3.8458200094676743`*^9, 3.845820141061098*^9}, {3.845820598903084*^9, 3.845820660383747*^9}, {3.8458207230840673`*^9, 3.845820792263783*^9}, { 3.8458208626946487`*^9, 3.845820862819517*^9}, {3.8458208941043177`*^9, 3.8458208960126085`*^9}, {3.845820946480707*^9, 3.8458209486473875`*^9}, { 3.845821932889984*^9, 3.8458219394083138`*^9}, {3.84582200527453*^9, 3.8458222392782326`*^9}, {3.8458223289697104`*^9, 3.845822338141605*^9}, { 3.845822372405175*^9, 3.845822401994685*^9}, {3.845822576010991*^9, 3.8458225785186386`*^9}, {3.845824588155197*^9, 3.845824589123746*^9}, { 3.84582462036679*^9, 3.845824685976534*^9}}, CellLabel-> "In[531]:=",ExpressionUUID->"942eeb49-5f94-44db-a77d-7a5af683dfb8"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PsiTMHolCrossPaper", "==", "psiTMHolCrossMath"}]], "Input", CellChangeTimes->{{3.84581675510841*^9, 3.8458168067005014`*^9}, 3.8458168568856883`*^9, {3.845820201994506*^9, 3.8458202078706827`*^9}, { 3.8458209005934114`*^9, 3.8458209114817085`*^9}, {3.8458209710845957`*^9, 3.845820991658119*^9}, {3.845822458746891*^9, 3.8458224792021227`*^9}, { 3.8458225116257963`*^9, 3.8458225121403494`*^9}, {3.8458247213024893`*^9, 3.8458247259043393`*^9}}, CellLabel-> "In[532]:=",ExpressionUUID->"6f36b817-26b1-44a1-8cd6-7b6736b26896"], Cell[BoxData[ InterpretationBox[ TagBox[ FrameBox[GridBox[{ { ItemBox[ TagBox[ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "2", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "2", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "2", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "2", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "2", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "2", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"]}], ",", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "2", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "2", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "2", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "2", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "2", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "2", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", "0"}], "}"}]}], "}"}], ",", TemplateBox[{"2"}, "OutputSizeLimit`Skeleton"], ",", RowBox[{"{", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], "}"}]}], "}"}], ",", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"]}], "}"}], ",", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"]}], "}"}], ",", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"]}], "}"}], "\[Equal]", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"]}], Short[#, 5]& ], BaseStyle->{Deployed -> False}, StripOnInput->False]}, {GridBox[{ { PaneBox[ TagBox[ TooltipBox[ StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource[ "FEStrings", "sizeBriefExplanation"], StandardForm], ImageSizeCache->{82., {4., 11.}}], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLText", StripOnInput->False], StyleBox[ DynamicBox[ ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"], StandardForm]], DynamicUpdating -> True, LineIndent -> 0, LinebreakAdjustments -> {1., 100, 0, 0, 0}, LineSpacing -> {1, 2}, StripOnInput -> False]], Annotation[#, Style[ Dynamic[ FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"]], DynamicUpdating -> True, LineIndent -> 0, LinebreakAdjustments -> {1., 100, 0, 0, 0}, LineSpacing -> {1, 2}], "Tooltip"]& ], Alignment->Center, BaselinePosition->Baseline, ImageSize->{Automatic, {25, Full}}], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], StandardForm], ImageSizeCache->{67., {1., 11.}}], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl", StripOnInput->False], True-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], StandardForm]], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive", StripOnInput->False]}, Dynamic[ CurrentValue["MouseOver"]], Alignment->Center, FrameMargins->0, ImageSize->{Automatic, {25, Full}}], Appearance->None, BaselinePosition->Baseline, ButtonFunction:>OutputSizeLimit`ButtonFunction[ OutputSizeLimit`Defer, 532, 21660477292722285316, 5/2], Enabled->True, Evaluator->Automatic, Method->"Queued"], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], StandardForm], ImageSizeCache->{78., {1., 11.}}], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl", StripOnInput->False], True-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], StandardForm]], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive", StripOnInput->False]}, Dynamic[ CurrentValue["MouseOver"]], Alignment->Center, FrameMargins->0, ImageSize->{Automatic, {25, Full}}], Appearance->None, BaselinePosition->Baseline, ButtonFunction:>OutputSizeLimit`ButtonFunction[ OutputSizeLimit`Defer, 532, 21660477292722285316, 5 2], Enabled->True, Evaluator->Automatic, Method->"Queued"], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], StandardForm], ImageSizeCache->{58., {1., 11.}}], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl", StripOnInput->False], True-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], StandardForm]], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive", StripOnInput->False]}, Dynamic[ CurrentValue["MouseOver"]], Alignment->Center, FrameMargins->0, ImageSize->{Automatic, {25, Full}}], Appearance->None, BaselinePosition->Baseline, ButtonFunction:>OutputSizeLimit`ButtonFunction[ OutputSizeLimit`Defer, 532, 21660477292722285316, Infinity], Enabled->True, Evaluator->Automatic, Method->"Queued"], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], StandardForm], ImageSizeCache->{99., {1., 11.}}], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl", StripOnInput->False], True-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], StandardForm]], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive", StripOnInput->False]}, Dynamic[ CurrentValue["MouseOver"]], Alignment->Center, FrameMargins->0, ImageSize->{Automatic, {25, Full}}], Appearance->None, BaselinePosition->Baseline, ButtonFunction:>FrontEndExecute[{ FrontEnd`SetOptions[ FrontEnd`$FrontEnd, FrontEnd`PreferencesSettings -> {"Page" -> "Advanced"}], FrontEnd`FrontEndToken["PreferencesDialog"]}], Evaluator->None, Method->"Preemptive"]} }, AutoDelete->False, FrameStyle->GrayLevel[0.85], GridBoxDividers->{"Columns" -> {False, {True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], Offset[1.2], { Offset[0.4]}, Offset[0.2]}}], BaseStyle->"OutputSizeLimit", FrameMargins->{{12, 12}, {0, 15}}, FrameStyle->GrayLevel[0.85], RoundingRadius->5, StripOnInput->False], Deploy, DefaultBaseStyle->"Deploy"], If[21660477292722285316 === $SessionID, Out[532], Message[ MessageName[Syntax, "noinfoker"]]; Missing["NotAvailable"]; Null]]], "Output", CellChangeTimes->{ 3.8458168580013504`*^9, 3.845816908632041*^9, {3.845816994976781*^9, 3.8458170185246644`*^9}, 3.8458185219517794`*^9, 3.8458186471715875`*^9, { 3.8458202104334135`*^9, 3.8458202291396523`*^9}, 3.8458209989604464`*^9, 3.845821058816781*^9, {3.8458212011338873`*^9, 3.8458212220863934`*^9}, 3.845821276157872*^9, 3.845822527908856*^9, 3.8458225880585136`*^9, { 3.8458226240277987`*^9, 3.8458226440272074`*^9}, 3.845823132585782*^9, 3.8458235826008234`*^9, 3.8458247274745564`*^9}, CellLabel-> "Out[532]=",ExpressionUUID->"7c1bf8cf-f68a-458e-a362-11fb9b4b454c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"PsiTMHolCrossPaper", "==", "psiTMHolCrossMath"}], ")"}], "//.", "EnforceDiracEquation"}], ")"}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.8458168596468625`*^9, 3.845816885412697*^9}, { 3.8458186093902607`*^9, 3.845818614665053*^9}, {3.845820214545537*^9, 3.845820220282011*^9}, {3.845821013585593*^9, 3.8458210267170286`*^9}, 3.8458225401101313`*^9, {3.8458231035203857`*^9, 3.845823110114917*^9}, { 3.845824730164575*^9, 3.8458247394020452`*^9}}, CellLabel-> "In[533]:=",ExpressionUUID->"b36b51f6-ef9f-45a5-999f-f80bbca63694"], Cell[BoxData["True"], "Output", CellChangeTimes->{ 3.8458168753242297`*^9, 3.8458169129511166`*^9, {3.8458170016868105`*^9, 3.8458170225585747`*^9}, 3.845817274845868*^9, 3.8458185251656084`*^9, 3.845818617024748*^9, 3.8458186474374294`*^9, {3.845820223376128*^9, 3.8458202292646303`*^9}, {3.845821207003146*^9, 3.8458212222113314`*^9}, 3.845821276407814*^9, 3.8458225653853283`*^9, 3.8458226498869133`*^9, { 3.845823111575773*^9, 3.845823132788866*^9}, 3.845823582694557*^9, 3.845824742324259*^9}, CellLabel-> "Out[533]=",ExpressionUUID->"9f929ffc-6149-409c-91b0-341331387e35"] }, Open ]] }, Open ]] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Final Holoraumy Trues", "Chapter", CellChangeTimes->{{3.799747691512396*^9, 3.799747697889696*^9}},ExpressionUUID->"6b8357c4-98ec-4531-a723-\ 65cc42b1fdf9"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"HoloraumyTil0", "[", RowBox[{ RowBox[{"A", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "\[Equal]", " ", "AVMHol00"}], "//", "Simplify"}], "\n", RowBox[{ RowBox[{"AVMHolTilMath", "==", "AVMHolTil"}], "//", "Simplify"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ATMHolCrossMath", "==", "ATMHolCross"}], "//", "Simplify"}]}], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, CellChangeTimes->{{3.798840681966331*^9, 3.79884070926488*^9}, { 3.799751564768436*^9, 3.799751566712366*^9}, {3.799752120673628*^9, 3.799752135446015*^9}, {3.7997524184495487`*^9, 3.799752418713787*^9}}, CellLabel-> "In[266]:=",ExpressionUUID->"0802c993-38c4-439b-8140-746dcd3e4da7"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.800217772841351*^9, 3.8005369144017477`*^9, 3.800809956084353*^9, 3.8261623808054533`*^9, 3.826163199523528*^9, 3.826164082544303*^9, 3.845815508599199*^9}, CellLabel-> "Out[266]=",ExpressionUUID->"060682c3-d90b-4d91-8fc0-9f7d8ec18e20"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.800217772841351*^9, 3.8005369144017477`*^9, 3.800809956084353*^9, 3.8261623808054533`*^9, 3.826163199523528*^9, 3.826164082544303*^9, 3.845815508614821*^9}, CellLabel-> "Out[267]=",ExpressionUUID->"97623a37-ddd2-474b-b9b8-4d8b5ebfd397"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.800217772841351*^9, 3.8005369144017477`*^9, 3.800809956084353*^9, 3.8261623808054533`*^9, 3.826163199523528*^9, 3.826164082544303*^9, 3.845815508614821*^9}, CellLabel-> "Out[268]=",ExpressionUUID->"d3a6cf98-42e9-42eb-9944-cb4b340a58fb"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"HoloraumyTil0", "[", RowBox[{ RowBox[{"B", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "\[Equal]", " ", "BVMHol00"}], "//", "Simplify"}], "\n", RowBox[{ RowBox[{"BVMHolTilMath", "\[Equal]", "BVMHolTil"}], "//", "Simplify"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"BTMHolCrossMath", "\[Equal]", "BTMHolCross"}], "//", "Simplify"}]}], "Input", CellChangeTimes->{{3.7988407952265873`*^9, 3.798840797232782*^9}, { 3.7997515892890463`*^9, 3.799751589385982*^9}, 3.799752153049573*^9, { 3.799752424222312*^9, 3.799752430229611*^9}}, CellLabel-> "In[269]:=",ExpressionUUID->"9d57fc64-e049-4c14-92db-b0c63ddc2b05"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.8002177729551773`*^9, 3.800217854719116*^9, 3.800536914504274*^9, 3.800809956151146*^9, 3.8261623808537416`*^9, 3.82616319964815*^9, 3.826164082578926*^9, 3.8458155088022766`*^9}, CellLabel-> "Out[269]=",ExpressionUUID->"15f1c4ff-8b15-494a-a204-ef456f8f5d10"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.8002177729551773`*^9, 3.800217854719116*^9, 3.800536914504274*^9, 3.800809956151146*^9, 3.8261623808537416`*^9, 3.82616319964815*^9, 3.826164082578926*^9, 3.8458155088022766`*^9}, CellLabel-> "Out[270]=",ExpressionUUID->"71511f88-f8a9-436a-9531-33eb695d62ec"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.8002177729551773`*^9, 3.800217854719116*^9, 3.800536914504274*^9, 3.800809956151146*^9, 3.8261623808537416`*^9, 3.82616319964815*^9, 3.826164082578926*^9, 3.8458155088022766`*^9}, CellLabel-> "Out[271]=",ExpressionUUID->"ea236303-9b23-41ff-be6a-e190f344aede"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"PsiVMHol00", "==", "PsiVMHol00Math"}], "//", "Simplify"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"psiVMHolTilMath", "==", "psiVMHolTil"}], "//", "Simplify"}], "\n", RowBox[{ RowBox[{"psiVMHolCrossMath", "==", "psiVMHolCross"}], "//", "Simplify"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"PsiVMHol00Paper", "==", "PsiVMHol00Math"}], ")"}], "//.", "EnforceDiracEquation"}], "//", "Simplify"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"PsiVMHolTilPaper", "==", "psiVMHolTilMath"}], "//.", "EnforceDiracEquation"}], ")"}], "//", "Simplify"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"PsiVMHolCrossPaper", "==", "psiVMHolCrossMath"}], ")"}], "//.", "EnforceDiracEquation"}], ")"}], "//", "Simplify"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.7988416097327538`*^9, 3.798841613087449*^9}, { 3.799751755955309*^9, 3.799751760033826*^9}, {3.799752221356544*^9, 3.799752221652856*^9}, 3.7997525499022303`*^9, {3.8002176953677998`*^9, 3.800217705050976*^9}, 3.800537067051817*^9, 3.8458250002114925`*^9, { 3.8458250454686966`*^9, 3.8458250892510605`*^9}, {3.8458251857619257`*^9, 3.8458252041332054`*^9}}, CellLabel-> "In[553]:=",ExpressionUUID->"ad18bfcf-024b-471d-8df3-99340662b3c6"], Cell[BoxData["True"], "Output", CellChangeTimes->{ 3.799752770156131*^9, 3.79975979866823*^9, 3.800110681813496*^9, 3.800217634697873*^9, {3.8002176855526*^9, 3.800217706227277*^9}, 3.8002177732062693`*^9, 3.8005369148417253`*^9, 3.800537067724177*^9, 3.800809956332424*^9, 3.8261623810314007`*^9, 3.826163199900194*^9, 3.826164082901362*^9, 3.845815509005359*^9, 3.845825072503882*^9, { 3.845825187097269*^9, 3.845825204899171*^9}}, CellLabel-> "Out[553]=",ExpressionUUID->"42d61bd7-2863-442f-8808-1dfd8ea82de6"], Cell[BoxData["True"], "Output", CellChangeTimes->{ 3.799752770156131*^9, 3.79975979866823*^9, 3.800110681813496*^9, 3.800217634697873*^9, {3.8002176855526*^9, 3.800217706227277*^9}, 3.8002177732062693`*^9, 3.8005369148417253`*^9, 3.800537067724177*^9, 3.800809956332424*^9, 3.8261623810314007`*^9, 3.826163199900194*^9, 3.826164082901362*^9, 3.845815509005359*^9, 3.845825072503882*^9, { 3.845825187097269*^9, 3.8458252049616265`*^9}}, CellLabel-> "Out[554]=",ExpressionUUID->"e20ff66c-9e5e-48cc-90e4-2756e4b65a71"], Cell[BoxData["True"], "Output", CellChangeTimes->{ 3.799752770156131*^9, 3.79975979866823*^9, 3.800110681813496*^9, 3.800217634697873*^9, {3.8002176855526*^9, 3.800217706227277*^9}, 3.8002177732062693`*^9, 3.8005369148417253`*^9, 3.800537067724177*^9, 3.800809956332424*^9, 3.8261623810314007`*^9, 3.826163199900194*^9, 3.826164082901362*^9, 3.845815509005359*^9, 3.845825072503882*^9, { 3.845825187097269*^9, 3.8458252050084915`*^9}}, CellLabel-> "Out[555]=",ExpressionUUID->"397dd485-b1b7-4c9d-951a-c40f6dc67876"], Cell[BoxData["True"], "Output", CellChangeTimes->{ 3.799752770156131*^9, 3.79975979866823*^9, 3.800110681813496*^9, 3.800217634697873*^9, {3.8002176855526*^9, 3.800217706227277*^9}, 3.8002177732062693`*^9, 3.8005369148417253`*^9, 3.800537067724177*^9, 3.800809956332424*^9, 3.8261623810314007`*^9, 3.826163199900194*^9, 3.826164082901362*^9, 3.845815509005359*^9, 3.845825072503882*^9, { 3.845825187097269*^9, 3.8458252050710115`*^9}}, CellLabel-> "Out[556]=",ExpressionUUID->"fc58589d-4bdf-4787-ad97-959a3a512085"], Cell[BoxData["True"], "Output", CellChangeTimes->{ 3.799752770156131*^9, 3.79975979866823*^9, 3.800110681813496*^9, 3.800217634697873*^9, {3.8002176855526*^9, 3.800217706227277*^9}, 3.8002177732062693`*^9, 3.8005369148417253`*^9, 3.800537067724177*^9, 3.800809956332424*^9, 3.8261623810314007`*^9, 3.826163199900194*^9, 3.826164082901362*^9, 3.845815509005359*^9, 3.845825072503882*^9, { 3.845825187097269*^9, 3.8458252051491137`*^9}}, CellLabel-> "Out[557]=",ExpressionUUID->"b41fc070-6078-4075-b5bb-43ecddf50a80"], Cell[BoxData["True"], "Output", CellChangeTimes->{ 3.799752770156131*^9, 3.79975979866823*^9, 3.800110681813496*^9, 3.800217634697873*^9, {3.8002176855526*^9, 3.800217706227277*^9}, 3.8002177732062693`*^9, 3.8005369148417253`*^9, 3.800537067724177*^9, 3.800809956332424*^9, 3.8261623810314007`*^9, 3.826163199900194*^9, 3.826164082901362*^9, 3.845815509005359*^9, 3.845825072503882*^9, { 3.845825187097269*^9, 3.845825205274085*^9}}, CellLabel-> "Out[558]=",ExpressionUUID->"0343cbc2-b48a-4b2a-b2c5-886ede41b080"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"AvecHol00Math", "\[Equal]", " ", "AvecHol00"}], "//", "Simplify"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"AvecHolTilMath", "==", "AvecHolTil"}], "//", "Simplify"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"AvecHolCrossMath", "==", "AvecHolCross"}], "//", "Simplify"}]}], "Input", CellChangeTimes->{{3.798841141529367*^9, 3.7988411458808107`*^9}, 3.798841251490387*^9, 3.7988412823069963`*^9, {3.799752236048396*^9, 3.799752236403639*^9}, {3.799752519766048*^9, 3.799752520334193*^9}}, CellLabel-> "In[275]:=",ExpressionUUID->"cab3e4e7-e076-406a-b6ca-86e5220a7f36"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.799752770401466*^9, 3.7997597989278603`*^9, 3.800110682211649*^9, 3.800217774386765*^9, 3.800536915174594*^9, 3.800809956723875*^9, 3.8261623813737297`*^9, 3.826163200438384*^9, 3.826164083605977*^9, 3.8458155096245675`*^9}, CellLabel-> "Out[275]=",ExpressionUUID->"1b2345b3-88cf-417d-8dce-175b72ccd43e"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.799752770401466*^9, 3.7997597989278603`*^9, 3.800110682211649*^9, 3.800217774386765*^9, 3.800536915174594*^9, 3.800809956723875*^9, 3.8261623813737297`*^9, 3.826163200438384*^9, 3.826164083605977*^9, 3.845815509640189*^9}, CellLabel-> "Out[276]=",ExpressionUUID->"da10cd26-4896-4165-bcf5-a1417125015a"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.799752770401466*^9, 3.7997597989278603`*^9, 3.800110682211649*^9, 3.800217774386765*^9, 3.800536915174594*^9, 3.800809956723875*^9, 3.8261623813737297`*^9, 3.826163200438384*^9, 3.826164083605977*^9, 3.845815509640189*^9}, CellLabel-> "Out[277]=",ExpressionUUID->"fdb388f9-3619-4788-9e11-b371f355c4cb"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"ATMHol00", "\[Equal]", " ", RowBox[{"HoloraumyTil0", "[", RowBox[{ RowBox[{"A", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], "//", "Simplify"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ATMHolTilMath", "==", "ATMHolTil"}], "//", "Simplify"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ATMHolCrossMath", "==", "ATMHolCross"}], "//", "Simplify"}]}], "Input", CellChangeTimes->{{3.798841801389038*^9, 3.798841817184757*^9}, { 3.7997519661332808`*^9, 3.799751966483218*^9}, {3.7997522599272118`*^9, 3.799752260142376*^9}, {3.7997525861285343`*^9, 3.799752586438218*^9}}, CellLabel-> "In[278]:=",ExpressionUUID->"c857b214-3f6e-4ffd-964d-6a80d4b23f1a"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.799752770495154*^9, 3.799759799048065*^9, 3.800110682356742*^9, 3.8002177745061483`*^9, 3.800536915316959*^9, 3.800809956792507*^9, 3.826162381469159*^9, 3.826163200583796*^9, 3.8261640837122583`*^9, 3.845815509749539*^9}, CellLabel-> "Out[278]=",ExpressionUUID->"1c16bf3a-45e6-4c67-83fd-8e80d05abb70"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.799752770495154*^9, 3.799759799048065*^9, 3.800110682356742*^9, 3.8002177745061483`*^9, 3.800536915316959*^9, 3.800809956792507*^9, 3.826162381469159*^9, 3.826163200583796*^9, 3.8261640837122583`*^9, 3.8458155097651606`*^9}, CellLabel-> "Out[279]=",ExpressionUUID->"384a20a5-e3b7-445a-9ca3-668daa46f1b6"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.799752770495154*^9, 3.799759799048065*^9, 3.800110682356742*^9, 3.8002177745061483`*^9, 3.800536915316959*^9, 3.800809956792507*^9, 3.826162381469159*^9, 3.826163200583796*^9, 3.8261640837122583`*^9, 3.8458155097651606`*^9}, CellLabel-> "Out[280]=",ExpressionUUID->"4259a0a5-866a-4a45-8710-693bf5182fc4"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"BTMHol00", "\[Equal]", " ", RowBox[{"HoloraumyTil0", "[", RowBox[{ RowBox[{"B", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], "//", "Simplify"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"BTMHolTilMath", "==", "BTMHolTil"}], "//", "Simplify"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"BTMHolCrossMath", "\[Equal]", "BTMHolCross"}], "//", "Simplify"}]}], "Input", CellChangeTimes->{{3.7988418577780867`*^9, 3.798841859950241*^9}, { 3.7988420493314667`*^9, 3.798842053387269*^9}, {3.79975196841652*^9, 3.7997519714061604`*^9}, {3.799752275002284*^9, 3.7997522752245007`*^9}, { 3.7997525878268557`*^9, 3.7997525928696957`*^9}}, CellLabel-> "In[281]:=",ExpressionUUID->"2a690f3f-d932-4702-b6fe-9abcbbe17b79"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.799752770589047*^9, 3.7997597991418*^9, 3.8001106824136143`*^9, 3.800217774567086*^9, 3.8005369154957247`*^9, 3.80080995682668*^9, 3.826162381546372*^9, 3.826163200670401*^9, 3.826164083749126*^9, 3.8458155098728523`*^9}, CellLabel-> "Out[281]=",ExpressionUUID->"10be3486-6315-4e6c-b4fc-ed30bda1162c"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.799752770589047*^9, 3.7997597991418*^9, 3.8001106824136143`*^9, 3.800217774567086*^9, 3.8005369154957247`*^9, 3.80080995682668*^9, 3.826162381546372*^9, 3.826163200670401*^9, 3.826164083749126*^9, 3.8458155098884735`*^9}, CellLabel-> "Out[282]=",ExpressionUUID->"3bf9600d-769c-4cdf-9ad8-d26a4b2a2d6f"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.799752770589047*^9, 3.7997597991418*^9, 3.8001106824136143`*^9, 3.800217774567086*^9, 3.8005369154957247`*^9, 3.80080995682668*^9, 3.826162381546372*^9, 3.826163200670401*^9, 3.826164083749126*^9, 3.8458155098884735`*^9}, CellLabel-> "Out[283]=",ExpressionUUID->"b1865a8a-f0bb-4a64-85ca-4bbd3aa7ba27"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"cphiHol00", "\[Equal]", " ", RowBox[{"HoloraumyTil0", "[", RowBox[{ RowBox[{"\[CurlyPhi]", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], "//", "Simplify"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"chpiHolTilMath", "==", "chpiHolTil"}], "//", "Simplify"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"cphiHolCrossMath", "==", "cphiHolCross"}], "//", "Simplify"}]}], "Input", CellChangeTimes->{{3.798842294472528*^9, 3.798842310488042*^9}, { 3.799751889614065*^9, 3.7997518908289003`*^9}, {3.799752331430293*^9, 3.799752331647674*^9}, {3.799752645216846*^9, 3.799752645474197*^9}}, CellLabel-> "In[284]:=",ExpressionUUID->"72abc4e4-8c3e-45b6-b476-25233f6577af"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.7997527709344997`*^9, 3.799759799416358*^9, 3.8001106827647343`*^9, 3.8002177746132317`*^9, 3.80053691563647*^9, 3.8008099568616734`*^9, 3.8261623816036453`*^9, 3.82616320073033*^9, 3.826164083863338*^9, 3.8458155099978266`*^9}, CellLabel-> "Out[284]=",ExpressionUUID->"a1e0a8ce-007f-4a30-b32c-542745ab98a7"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.7997527709344997`*^9, 3.799759799416358*^9, 3.8001106827647343`*^9, 3.8002177746132317`*^9, 3.80053691563647*^9, 3.8008099568616734`*^9, 3.8261623816036453`*^9, 3.82616320073033*^9, 3.826164083863338*^9, 3.8458155099978266`*^9}, CellLabel-> "Out[285]=",ExpressionUUID->"9483854f-8374-476a-a3ff-cea8cdc987a5"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.7997527709344997`*^9, 3.799759799416358*^9, 3.8001106827647343`*^9, 3.8002177746132317`*^9, 3.80053691563647*^9, 3.8008099568616734`*^9, 3.8261623816036453`*^9, 3.82616320073033*^9, 3.826164083863338*^9, 3.8458155099978266`*^9}, CellLabel-> "Out[286]=",ExpressionUUID->"3fe69ea2-a4b7-4581-a076-7772125abc29"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"PsiTMHol00", "\[Equal]", " ", "PsiTMHol00Math"}], "//", "Simplify"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"PsiTMHolTilMath", "==", "PsiTMHolTil"}], "//", "Simplify"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"psiTMHolCrossMath", "==", "psiTMHolCross"}], "//", "Simplify"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"PsiTMHol00Paper", "==", "PsiTMHol00Math"}], ")"}], "//.", "EnforceDiracEquation"}], "//", "Simplify"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"PsiTMHolTilPaper", "==", "PsiTMHolTilMath"}], "//.", "EnforceDiracEquation"}], ")"}], "//", "Simplify"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"PsiTMHolCrossPaper", "==", "psiTMHolCrossMath"}], ")"}], "//.", "EnforceDiracEquation"}], ")"}], "//", "Simplify"}]}], "Input", CellChangeTimes->{{3.798842967631521*^9, 3.798842989825513*^9}, { 3.799751909233589*^9, 3.799751911850464*^9}, {3.799752347750471*^9, 3.799752348382489*^9}, {3.799752657689692*^9, 3.799752657933692*^9}, 3.800537058775743*^9, {3.8458252229429164`*^9, 3.8458252501006927`*^9}}, CellLabel-> "In[559]:=",ExpressionUUID->"4feeeaa7-8ce9-4ba5-a418-7b368b097f5b"], Cell[BoxData["True"], "Output", CellChangeTimes->{ 3.799752771172133*^9, 3.7997597996062803`*^9, 3.80011068298426*^9, { 3.800217766107082*^9, 3.80021777496*^9}, 3.800536916103593*^9, 3.800537041720785*^9, 3.800809957051311*^9, 3.82616238183947*^9, 3.826163201026976*^9, 3.826164084239421*^9, 3.845815510250139*^9, 3.845825252466804*^9}, CellLabel-> "Out[559]=",ExpressionUUID->"38c50b52-aace-4204-a5fd-2de92d1c5511"], Cell[BoxData["True"], "Output", CellChangeTimes->{ 3.799752771172133*^9, 3.7997597996062803`*^9, 3.80011068298426*^9, { 3.800217766107082*^9, 3.80021777496*^9}, 3.800536916103593*^9, 3.800537041720785*^9, 3.800809957051311*^9, 3.82616238183947*^9, 3.826163201026976*^9, 3.826164084239421*^9, 3.845815510250139*^9, 3.8458252525761213`*^9}, CellLabel-> "Out[560]=",ExpressionUUID->"cceb31b4-5376-487f-a83a-36ede29a5eea"], Cell[BoxData["True"], "Output", CellChangeTimes->{ 3.799752771172133*^9, 3.7997597996062803`*^9, 3.80011068298426*^9, { 3.800217766107082*^9, 3.80021777496*^9}, 3.800536916103593*^9, 3.800537041720785*^9, 3.800809957051311*^9, 3.82616238183947*^9, 3.826163201026976*^9, 3.826164084239421*^9, 3.845815510250139*^9, 3.8458252526703873`*^9}, CellLabel-> "Out[561]=",ExpressionUUID->"1622dc56-3f8d-4b68-a37e-bf8e439e0f2a"], Cell[BoxData["True"], "Output", CellChangeTimes->{ 3.799752771172133*^9, 3.7997597996062803`*^9, 3.80011068298426*^9, { 3.800217766107082*^9, 3.80021777496*^9}, 3.800536916103593*^9, 3.800537041720785*^9, 3.800809957051311*^9, 3.82616238183947*^9, 3.826163201026976*^9, 3.826164084239421*^9, 3.845815510250139*^9, 3.8458252528110123`*^9}, CellLabel-> "Out[562]=",ExpressionUUID->"484a3920-6d73-4810-ac45-20f4dc172693"], Cell[BoxData["True"], "Output", CellChangeTimes->{ 3.799752771172133*^9, 3.7997597996062803`*^9, 3.80011068298426*^9, { 3.800217766107082*^9, 3.80021777496*^9}, 3.800536916103593*^9, 3.800537041720785*^9, 3.800809957051311*^9, 3.82616238183947*^9, 3.826163201026976*^9, 3.826164084239421*^9, 3.845815510250139*^9, 3.8458252529359827`*^9}, CellLabel-> "Out[563]=",ExpressionUUID->"828a99a8-c2ab-4bb6-8001-4c18fc527a43"], Cell[BoxData["True"], "Output", CellChangeTimes->{ 3.799752771172133*^9, 3.7997597996062803`*^9, 3.80011068298426*^9, { 3.800217766107082*^9, 3.80021777496*^9}, 3.800536916103593*^9, 3.800537041720785*^9, 3.800809957051311*^9, 3.82616238183947*^9, 3.826163201026976*^9, 3.826164084239421*^9, 3.845815510250139*^9, 3.8458252530453596`*^9}, CellLabel-> "Out[564]=",ExpressionUUID->"b1d2ecd3-c1d4-4b3a-a913-6348bec4bfb3"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"BmnHol00Math", "\[Equal]", " ", "BmnHol00"}], "//", "Simplify"}], "\n", RowBox[{ RowBox[{"BmnHolTilMath", "==", "BmnHolTil"}], "//", "Simplify"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"BmnHolCrossMath", "==", "BmnHolCross"}], "//", "Simplify"}]}], "Input", CellChangeTimes->{{3.798842476867333*^9, 3.798842482469987*^9}, 3.799752379503921*^9, {3.799752664096703*^9, 3.799752664316687*^9}}, CellLabel-> "In[290]:=",ExpressionUUID->"40ebb5d7-09da-43bf-9253-8ac46ede29ec"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.799752771527234*^9, 3.7997597999619102`*^9, 3.800110683559556*^9, 3.800217776468408*^9, 3.800536916690947*^9, 3.800809958987981*^9, 3.826162383749601*^9, 3.826163201610346*^9, 3.826164085050568*^9, 3.8458155108437505`*^9}, CellLabel-> "Out[290]=",ExpressionUUID->"cc3fd007-be6f-4522-a148-692c52ba949c"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.799752771527234*^9, 3.7997597999619102`*^9, 3.800110683559556*^9, 3.800217776468408*^9, 3.800536916690947*^9, 3.800809958987981*^9, 3.826162383749601*^9, 3.826163201610346*^9, 3.826164085050568*^9, 3.8458155109530997`*^9}, CellLabel-> "Out[291]=",ExpressionUUID->"c5494039-92df-4d97-9a11-41e19b7e2940"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.799752771527234*^9, 3.7997597999619102`*^9, 3.800110683559556*^9, 3.800217776468408*^9, 3.800536916690947*^9, 3.800809958987981*^9, 3.826162383749601*^9, 3.826163201610346*^9, 3.826164085050568*^9, 3.8458155109530997`*^9}, CellLabel-> "Out[292]=",ExpressionUUID->"6f849d1d-971f-46f6-85b9-c53fd9f1ef06"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ Adinkra reduce the Fermionic, on-shell holoraumy to 1D The Paper versions go to zero upon enforcing the dirac equation (obviously). \ I see factors of 1 and 2 in the Holoraumy prior to enforcing DE, indicating a \ better place to find connections to SM-I through IV would be the \ \[OpenCurlyDoubleQuote]off-shell\[CloseCurlyDoubleQuote] holoraumy, which is \ really on shell anyway (just that the full off-shell multiplet that it is on \ shell from is not known).\ \>", "Chapter", CellChangeTimes->{{3.845825268647996*^9, 3.84582527816628*^9}, { 3.845826734721369*^9, 3.845826781525989*^9}, {3.845827252364732*^9, 3.8458272531772575`*^9}, {3.847470353474067*^9, 3.8474703950045576`*^9}},ExpressionUUID->"ba516240-f94c-49b2-9eb0-\ ac068af8a991"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"AdinkraReduce", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "tt_", "]"}], "[", "ii_", "]"}], "[", "aa_", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "->", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "tt", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "tt_", "]"}], "[", "ii_", "]"}], "[", "aa_", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "t"}], "]"}], "->", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "tt", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", "t", "]"}], ",", "t"}], "]"}]}], " ", ",", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "tt_", "]"}], "[", "ii_", "]"}], "[", "aa_", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "x"}], "]"}], "->", "0"}], " ", ",", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "tt_", "]"}], "[", "ii_", "]"}], "[", "aa_", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "y"}], "]"}], "->", "0"}], ",", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "tt_", "]"}], "[", "ii_", "]"}], "[", "aa_", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "z"}], "]"}], "->", "0"}]}], " ", "}"}]}]], "Input", CellChangeTimes->{{3.8458253464680243`*^9, 3.845825405476157*^9}, { 3.8458255152451553`*^9, 3.8458255171348066`*^9}, {3.8458256280738688`*^9, 3.8458256318563757`*^9}, {3.8458259510508223`*^9, 3.8458260451148725`*^9}}, CellLabel-> "In[586]:=",ExpressionUUID->"2cc8b8aa-9cac-4d5d-be45-921c7dfa69c1"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "tt_", "]"}], "[", "ii_", "]"}], "[", "aa_", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "\[Rule]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "tt", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "tt_", "]"}], "[", "ii_", "]"}], "[", "aa_", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "\[Rule]", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "tt", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "tt_", "]"}], "[", "ii_", "]"}], "[", "aa_", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "tt_", "]"}], "[", "ii_", "]"}], "[", "aa_", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "tt_", "]"}], "[", "ii_", "]"}], "[", "aa_", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "\[Rule]", "0"}]}], "}"}]], "Output", CellChangeTimes->{3.8458254060309954`*^9, 3.8458255185269036`*^9, 3.8458256506049023`*^9, 3.8458257412427607`*^9, 3.8458260212424045`*^9, 3.8458260539899273`*^9}, CellLabel-> "Out[586]=",ExpressionUUID->"076b9172-249f-42c2-a37e-242ced137fb6"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PsiTo16", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "1", "]"}], "[", "aa_", "]"}], "->", " ", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", "t", "}"}], ",", RowBox[{ RowBox[{"\[CapitalPsi]16", "[", "aa", "]"}], "[", "t", "]"}]}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "2", "]"}], "[", "aa_", "]"}], "->", " ", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", "t", "}"}], ",", RowBox[{ RowBox[{"\[CapitalPsi]16", "[", RowBox[{"4", "+", "aa"}], "]"}], "[", "t", "]"}]}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", "aa_", "]"}], "->", " ", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", "t", "}"}], ",", RowBox[{ RowBox[{"\[CapitalPsi]16", "[", RowBox[{"8", "+", "aa"}], "]"}], "[", "t", "]"}]}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], "[", "aa_", "]"}], "->", " ", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", "t", "}"}], ",", RowBox[{ RowBox[{"\[CapitalPsi]16", "[", RowBox[{"12", "+", "aa"}], "]"}], "[", "t", "]"}]}], "]"}]}]}], "}"}]}]], "Input", CellChangeTimes->{{3.8458264498292637`*^9, 3.845826594550092*^9}}, CellLabel-> "In[596]:=",ExpressionUUID->"621aac6c-0853-48d3-985f-c795fe831ac4"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "1", "]"}], "[", "aa_", "]"}], "\[Rule]", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", "t", "}"}], ",", RowBox[{ RowBox[{"\[CapitalPsi]16", "[", "aa", "]"}], "[", "t", "]"}]}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "0", "]"}], "[", "2", "]"}], "[", "aa_", "]"}], "\[Rule]", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", "t", "}"}], ",", RowBox[{ RowBox[{"\[CapitalPsi]16", "[", RowBox[{"4", "+", "aa"}], "]"}], "[", "t", "]"}]}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", "aa_", "]"}], "\[Rule]", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", "t", "}"}], ",", RowBox[{ RowBox[{"\[CapitalPsi]16", "[", RowBox[{"8", "+", "aa"}], "]"}], "[", "t", "]"}]}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], "[", "aa_", "]"}], "\[Rule]", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", "t", "}"}], ",", RowBox[{ RowBox[{"\[CapitalPsi]16", "[", RowBox[{"12", "+", "aa"}], "]"}], "[", "t", "]"}]}], "]"}]}]}], "}"}]], "Output", CellChangeTimes->{3.845826509718667*^9, 3.845826552436998*^9, 3.8458265951524935`*^9}, CellLabel-> "Out[596]=",ExpressionUUID->"f8ad925b-757e-4121-8039-776567c6bad8"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"PsiVMHol00Math", "//.", "AdinkraReduce"}], "//.", "PsiTo16"}]], "Input", CellChangeTimes->{{3.8458253147925124`*^9, 3.8458253358832135`*^9}, { 3.8458254091868258`*^9, 3.845825413508092*^9}, 3.845825462261863*^9, 3.845826122076458*^9, {3.8458263656530585`*^9, 3.845826371329022*^9}, { 3.845826516753426*^9, 3.845826519937952*^9}}, CellLabel-> "In[597]:=",ExpressionUUID->"6178488a-6763-47c9-a85e-1b5cd65c7f88"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0", ",", "0", ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0", ",", "0", ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0", ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0", ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0", ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0", ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0", ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0", ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0", ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0", ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}]}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0", ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0", ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0", ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0", ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0", ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0", ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0", ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0", ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0", ",", "0", ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0", ",", "0", ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], "}"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.845825342304514*^9, 3.845825454620675*^9, {3.8458261002784004`*^9, 3.8458261230993195`*^9}, 3.845826372680231*^9, 3.8458265226167107`*^9, 3.845826598933392*^9}, CellLabel-> "Out[597]=",ExpressionUUID->"9d346aa2-49b1-454b-8af5-f2a6452d585a"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"psiVMHolTilMath", "//.", "AdinkraReduce"}], "//.", "PsiTo16"}]], "Input", CellChangeTimes->{{3.84582664994046*^9, 3.845826676038787*^9}}, CellLabel-> "In[599]:=",ExpressionUUID->"3ade8a56-2de9-43db-b7ab-d814f0804ca1"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0", ",", "0", ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0", ",", "0", ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}]}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0", ",", "0", ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0", ",", "0", ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "6", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "5", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "8", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "7", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], "}"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.8458266588552175`*^9, 3.845826677122*^9}}, CellLabel-> "Out[599]=",ExpressionUUID->"94d97663-5757-4cfc-aa0a-973eab73a8ba"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"psiVMHolCrossMath", "//.", "AdinkraReduce"}], "//.", "PsiTo16"}]], "Input", CellChangeTimes->{{3.8458267000718184`*^9, 3.8458267144750137`*^9}}, CellLabel-> "In[601]:=",ExpressionUUID->"7b3d1bfc-f763-40a1-bd97-00cdd970768d"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "14", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "15", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "14", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "13", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "16", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "15", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "16", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "13", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "16", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "15", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "14", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "13", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "14", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "13", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0", ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "15", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "13", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0", ",", "0", ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "16", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "16", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "15", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "14", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "13", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "15", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "16", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0", ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "14", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "15", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0", ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "13", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "14", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "16", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "15", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "14", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "13", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "13", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0", ",", "0", ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "16", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "14", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0", ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "16", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "15", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "16", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "15", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "14", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "13", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "16", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "13", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "14", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "13", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "16", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "15", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "14", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "15", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0"}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "9", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "10", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "10", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "9", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "12", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "11", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "11", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0", ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "9", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "10", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "11", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0", ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "9", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "10", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "9", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "12", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "11", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "9", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "10", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "12", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0", ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "10", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "12", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "9", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "10", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "11", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "12", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "9", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "11", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0", ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "9", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "11", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "12", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "10", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "9", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "12", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "11", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "12", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0", ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "10", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "11", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "12", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0", ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "10", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "10", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "9", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "12", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "11", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "11", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "12", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "10", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "9", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "12", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "11", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "11", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "12", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "9", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "10", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "12", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0", ",", "0", ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "9", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "10", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "9", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "12", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "11", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "11", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "10", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "11", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "12", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "9", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "10", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "11", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "12", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "9", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "10", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "11", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "10", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "10", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "9", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "12", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "11", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "12", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0", ",", "0", ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "9", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "11", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "12", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "9", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "10", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "10", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "9", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "12", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "11", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "13", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0", ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "15", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "13", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "16", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "15", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "16", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "13", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "14", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "14", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "13", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "14", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0", ",", "0", ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "15", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "14", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0", ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "16", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "14", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "13", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "15", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "16", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "13", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "14", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "15", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "16", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "13", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "14", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "16", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "15", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "13", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0", ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "15", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "14", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0", ",", "0", ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "15", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "16", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "15", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "15", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "16", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "13", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "14", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "13", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "16", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "14", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0", ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "16", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}]}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "9", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0", ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "11", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "9", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "12", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "11", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "12", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "9", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "10", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "10", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "9", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "10", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0", ",", "0", ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "11", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "10", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0", ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "12", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "10", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "9", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "11", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "12", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "9", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "10", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "11", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "12", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "9", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "10", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "12", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "11", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "9", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0", ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "11", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "10", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0", ",", "0", ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "11", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "12", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "11", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "11", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "12", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "9", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "10", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "9", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "12", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "10", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0", ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "12", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "14", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "13", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "16", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "15", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "15", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "16", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "13", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "14", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "16", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0", ",", "0", ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "13", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "14", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "13", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "16", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "15", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "15", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "14", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "15", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "16", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "13", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "14", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "15", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "16", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "13", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "14", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "15", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "14", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "14", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "13", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "16", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "15", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "16", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0", ",", "0", ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "13", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "15", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "16", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "13", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "14", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "14", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "13", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "16", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "15", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "13", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "14", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "14", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "13", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "16", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "15", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "15", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0", ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "13", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "14", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "15", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0", ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "13", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "14", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "13", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "16", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "15", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "13", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "14", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "16", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0", ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "14", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "16", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "13", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "14", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "15", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "16", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "13", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "15", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0", ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "13", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "15", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "16", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "14", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "13", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "16", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "15", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "16", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0", ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "14", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "15", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "16", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0", ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "14", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "14", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "13", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "16", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "15", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "15", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "16", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "10", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "11", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "10", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "9", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "12", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "11", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "12", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "9", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "12", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "11", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "10", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "9", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "10", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "9", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0", ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "11", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "9", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0", ",", "0", ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "12", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "12", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "11", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "10", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "9", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "11", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "12", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0", ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "10", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "11", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0", ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "9", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "10", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "12", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "11", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "10", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "9", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "9", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0", ",", "0", ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "12", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "10", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0", ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "12", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "11", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "12", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "11", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "10", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "9", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "12", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "9", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "10", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "9", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "12", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "11", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "10", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[CapitalPsi]16", "[", "11", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", "0"}], "}"}]}], "}"}]}], "}"}]}], "}"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.8458267089983664`*^9, 3.8458267153389435`*^9}}, CellLabel-> "Out[601]=",ExpressionUUID->"451fd35d-9395-4049-8d5b-58049b6e923f"] }, Open ]] }, Closed]] }, Open ]] }, WindowSize->{1904, 981}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, TaggingRules->{"TryRealOnly" -> False}, Magnification:>1.25 Inherited, FrontEndVersion->"12.3 for Microsoft Windows (64-bit) (May 11, 2021)", StyleDefinitions->"Default.nb", ExpressionUUID->"63f6c805-87bb-4b8b-a827-d83389878049" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 494, 9, 277, "Title",ExpressionUUID->"62b7c42d-14e8-45fb-80e4-587b8a8a8c1e"], Cell[CellGroupData[{ Cell[1099, 35, 487, 8, 61, "Input",ExpressionUUID->"b0c48230-c0e5-427b-baca-1e7d9722ca5c"], Cell[1589, 45, 4190, 59, 41, "Output",ExpressionUUID->"7ea26fb5-81bc-4ecf-9e82-1aafb713c63d"] }, Open ]], Cell[CellGroupData[{ Cell[5816, 109, 269, 4, 84, "Section",ExpressionUUID->"bade0b7a-1279-4464-bccc-25383e507cf8"], Cell[6088, 115, 556, 10, 36, "Input",ExpressionUUID->"57f46897-b37f-465b-b292-77b187cc7a41"], Cell[6647, 127, 960, 24, 36, "Input",ExpressionUUID->"5341ab99-106a-4dac-8dd2-afec2a5263e5"], Cell[7610, 153, 172, 2, 36, "Input",ExpressionUUID->"9b443d38-0136-4c7c-aabb-70d7014d1802"], Cell[7785, 157, 879, 21, 36, "Input",ExpressionUUID->"bd6e3956-9dca-470f-8a8b-983bb88f19bd"], Cell[8667, 180, 2454, 69, 91, "Input",ExpressionUUID->"8c6e1004-a8c7-48ec-9a2d-4caa6a770490"], Cell[11124, 251, 1739, 44, 36, "Input",ExpressionUUID->"1a122ba6-526d-453c-93e2-e7adf4c18af7"], Cell[12866, 297, 1346, 38, 36, "Input",ExpressionUUID->"47cb50ec-14fd-468c-9027-9cbae02f6db7"], Cell[14215, 337, 1344, 38, 36, "Input",ExpressionUUID->"674a70bb-bbd3-4275-b082-f99854dfcf9c"], Cell[15562, 377, 1345, 38, 36, "Input",ExpressionUUID->"ef29599d-946c-49ea-969c-0a5633fa7d63"], Cell[16910, 417, 1347, 38, 36, "Input",ExpressionUUID->"972488c6-052b-4772-81b9-e930f8a36412"], Cell[18260, 457, 1489, 40, 36, "Input",ExpressionUUID->"a5812966-767b-471f-93e2-9ce314aaba32"], Cell[19752, 499, 1372, 35, 36, "Input",ExpressionUUID->"9d4ff78e-a3fe-4153-807c-45310f945a69"] }, Closed]], Cell[CellGroupData[{ Cell[21161, 539, 1069, 24, 425, "Chapter",ExpressionUUID->"afac25ed-2055-44a7-b871-3277536e67f7"], Cell[CellGroupData[{ Cell[22255, 567, 277, 4, 84, "Section",ExpressionUUID->"7e4c2489-7267-4a36-ad3a-70d356c68aa2"], Cell[CellGroupData[{ Cell[22557, 575, 127, 3, 67, "Subsection",ExpressionUUID->"d4c6fcc3-fbd3-45fd-80b9-2793e24c9d6c"], Cell[22687, 580, 989, 28, 36, "Input",ExpressionUUID->"a15136ce-e614-490c-82e4-9a8eb065c6d9"] }, Open ]], Cell[CellGroupData[{ Cell[23713, 613, 177, 4, 67, "Subsection",ExpressionUUID->"d4e2a98a-4c8c-4c0d-949a-789093e218b5"], Cell[23893, 619, 1362, 39, 35, "Input",ExpressionUUID->"afd0cc4f-e56a-451c-ae8d-b28f7d3ade2c"] }, Closed]], Cell[CellGroupData[{ Cell[25292, 663, 190, 4, 47, "Subsection",ExpressionUUID->"726560c4-9912-4e39-8fb8-39bad5dd14bb"], Cell[25485, 669, 1843, 50, 35, "Input",ExpressionUUID->"b5c4482d-cdf8-43c5-a389-e9f6ad24a315"], Cell[27331, 721, 1123, 29, 35, "Input",ExpressionUUID->"ae5c8779-8bbc-4849-8299-8f9556c53ad4"] }, Closed]], Cell[CellGroupData[{ Cell[28491, 755, 181, 4, 47, "Subsection",ExpressionUUID->"97cfb749-1ea4-4ed9-aa6c-f50156daa1b9"], Cell[28675, 761, 3694, 96, 118, "Input",ExpressionUUID->"53468097-67ce-4745-94a2-2cf69fb38755"] }, Open ]], Cell[CellGroupData[{ Cell[32406, 862, 173, 3, 67, "Subsection",ExpressionUUID->"29f2a0ec-86ca-4b05-ab35-9f6a93738a43"], Cell[32582, 867, 273, 5, 37, "Input",ExpressionUUID->"a9e99789-267f-4ce1-9fd3-e275fc35bc5d"], Cell[CellGroupData[{ Cell[32880, 876, 391, 9, 37, "Input",ExpressionUUID->"29137585-bcbd-4083-82de-13fddbc7211d"], Cell[33274, 887, 3071, 47, 87, "Output",ExpressionUUID->"c73e600a-f853-4c61-9ea8-db6767fcf359"] }, Open ]], Cell[CellGroupData[{ Cell[36382, 939, 436, 10, 37, "Input",ExpressionUUID->"0d744af5-8b41-4eec-9113-506c8f703fcb"], Cell[36821, 951, 3096, 48, 87, "Output",ExpressionUUID->"cf9e327d-0c5a-44c0-ae87-d31a3d7acf23"] }, Open ]], Cell[CellGroupData[{ Cell[39954, 1004, 475, 11, 37, "Input",ExpressionUUID->"66af73a8-6787-41e9-93a7-b5aec7d91b26"], Cell[40432, 1017, 3461, 52, 87, "Output",ExpressionUUID->"699d1984-2bed-4049-ab3e-1a7f782c791b"] }, Open ]], Cell[CellGroupData[{ Cell[43930, 1074, 615, 14, 37, "Input",ExpressionUUID->"95acf76f-2a17-4caa-8e83-28d2dd19ac9f"], Cell[44548, 1090, 3490, 62, 87, "Output",ExpressionUUID->"f91ac526-adaa-4d0e-bf34-96d9e93a1b4b"] }, Open ]], Cell[CellGroupData[{ Cell[48075, 1157, 443, 12, 37, "Input",ExpressionUUID->"237a7cbe-46f0-42f5-bd34-e3ed428cb94a"], Cell[48521, 1171, 3506, 64, 87, "Output",ExpressionUUID->"c72ac696-7f0b-4209-a76f-6571e8cebb2f"] }, Open ]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[52088, 1242, 276, 4, 65, "Section",ExpressionUUID->"8ef1db59-4722-4a19-b837-abc8d6d7c17d"], Cell[CellGroupData[{ Cell[52389, 1250, 127, 3, 67, "Subsection",ExpressionUUID->"24313bbf-4edc-42ea-ab2f-306b45f1b951"], Cell[52519, 1255, 1299, 36, 95, "Input",ExpressionUUID->"5dd1fac0-5bfe-435d-a43e-c28e37d269cb"] }, Closed]], Cell[CellGroupData[{ Cell[53855, 1296, 181, 4, 47, "Subsection",ExpressionUUID->"ab9a75f7-6f54-43b0-9fa3-85db399347ce"], Cell[54039, 1302, 1227, 34, 66, "Input",ExpressionUUID->"224e1e96-b4b9-4577-a1c6-a950de0142a6"] }, Closed]], Cell[CellGroupData[{ Cell[55303, 1341, 180, 4, 47, "Subsection",ExpressionUUID->"730c4424-a7bf-46a5-8821-1b5139b03878"], Cell[55486, 1347, 1352, 37, 40, "Input",ExpressionUUID->"507c1ce0-fd06-47ee-a0df-65924cc5f4bd"] }, Closed]], Cell[CellGroupData[{ Cell[56875, 1389, 181, 4, 47, "Subsection",ExpressionUUID->"82bcb9c1-c7ba-4220-8ae3-046928af714a"], Cell[57059, 1395, 1895, 53, 95, "Input",ExpressionUUID->"00fc33f2-faf7-4a2e-acd9-93b0d7d584d5"], Cell[CellGroupData[{ Cell[58979, 1452, 177, 3, 55, "Subsubsection",ExpressionUUID->"f4cadaa8-860f-4c20-a935-b66294b7a86b"], Cell[59159, 1457, 3732, 108, 200, "Input",ExpressionUUID->"2feef0f4-cfbc-465d-a8af-92224c28c2af"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[62940, 1571, 181, 4, 47, "Subsection",ExpressionUUID->"03df4c1d-4504-44cd-b38a-6eec301afdd8"], Cell[63124, 1577, 4747, 124, 87, "Input",ExpressionUUID->"b7b8a843-51e0-4b11-b13c-0d3e7afd56dd"] }, Open ]], Cell[CellGroupData[{ Cell[67908, 1706, 217, 4, 67, "Subsection",ExpressionUUID->"4803bb09-f3aa-46ed-a117-1a48cb90940f"], Cell[68128, 1712, 6569, 114, 75, "Text",ExpressionUUID->"6b430c6f-e8b1-435e-bb36-9e3154c8860a"], Cell[74700, 1828, 1680, 42, 60, "Input",ExpressionUUID->"7a8da8c5-0025-4199-90eb-8ffc25fa10c2"] }, Closed]], Cell[CellGroupData[{ Cell[76417, 1875, 168, 3, 47, "Subsection",ExpressionUUID->"0e421a0f-1f0c-4454-bd9a-961088359eef"], Cell[CellGroupData[{ Cell[76610, 1882, 487, 11, 37, "Input",ExpressionUUID->"7fa486d3-d758-4ec7-9a2b-9c4f580ae87c"], Cell[77100, 1895, 3419, 52, 87, "Output",ExpressionUUID->"dd15ee24-81e8-4a59-b7be-794140fe6beb"] }, Open ]], Cell[CellGroupData[{ Cell[80556, 1952, 486, 11, 37, "Input",ExpressionUUID->"94d427af-dc3d-467a-81ca-b104abe925c7"], Cell[81045, 1965, 3411, 52, 87, "Output",ExpressionUUID->"d6bf9601-34ae-4bf6-8711-348124a47950"] }, Open ]], Cell[CellGroupData[{ Cell[84493, 2022, 498, 11, 37, "Input",ExpressionUUID->"dd7f571b-e32b-4901-9e20-9c70c7860c22"], Cell[84994, 2035, 3757, 57, 87, "Output",ExpressionUUID->"e39c66f0-31d9-46df-8824-ea47461e6d7e"] }, Open ]], Cell[CellGroupData[{ Cell[88788, 2097, 546, 13, 37, "Input",ExpressionUUID->"02ca1875-f947-46c0-9a7a-6fb4515678d7"], Cell[89337, 2112, 3861, 60, 87, "Output",ExpressionUUID->"1efe8021-c715-49dc-a41a-3120c4d0a20a"] }, Open ]], Cell[CellGroupData[{ Cell[93235, 2177, 467, 12, 37, "Input",ExpressionUUID->"afd6beaf-c26d-490c-b81c-6716f090d383"], Cell[93705, 2191, 4702, 93, 87, "Output",ExpressionUUID->"a2cc1b96-2fdf-45ae-8aa9-76de073c3342"] }, Open ]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[98468, 2291, 239, 4, 65, "Section",ExpressionUUID->"a0fec308-4d8f-4c4c-9bb7-1e9a485f2207"], Cell[CellGroupData[{ Cell[98732, 2299, 151, 3, 67, "Subsection",ExpressionUUID->"62738175-279d-4341-80e4-0565a6afa92e"], Cell[98886, 2304, 1380, 38, 36, "Input",ExpressionUUID->"77209435-c016-4498-9d97-063de4713605"] }, Closed]], Cell[CellGroupData[{ Cell[100303, 2347, 153, 3, 47, "Subsection",ExpressionUUID->"7c69fcb3-e42d-48ec-b634-dbc7952a2606"], Cell[100459, 2352, 1684, 46, 95, "Input",ExpressionUUID->"d14b82f2-35c1-420e-80d3-e99599398ff0"] }, Closed]], Cell[CellGroupData[{ Cell[102180, 2403, 205, 4, 47, "Subsection",ExpressionUUID->"8108bf76-9b13-4baa-9448-14120973547b"], Cell[102388, 2409, 2082, 52, 95, "Input",ExpressionUUID->"507b2f05-6675-4724-970a-87410eb72b3d"] }, Closed]], Cell[CellGroupData[{ Cell[104507, 2466, 204, 4, 47, "Subsection",ExpressionUUID->"7b0d2093-2da3-4544-89f9-4a8c8cc3b19f"], Cell[104714, 2472, 5032, 129, 112, "Input",ExpressionUUID->"95392961-334b-45af-87ac-a27c48cc6c0c"] }, Closed]], Cell[CellGroupData[{ Cell[109783, 2606, 173, 3, 47, "Subsection",ExpressionUUID->"991590a5-93aa-496a-82bc-8e5d0d291fc4"], Cell[109959, 2611, 273, 5, 37, "Input",ExpressionUUID->"02d8d6e4-f513-4d6d-8661-5f6cba5fd745"], Cell[CellGroupData[{ Cell[110257, 2620, 440, 10, 37, "Input",ExpressionUUID->"236b27c5-e826-4ba5-b5d0-de111f99c9fe"], Cell[110700, 2632, 3125, 48, 87, "Output",ExpressionUUID->"a4c05993-6cb9-4f8c-a05b-9f38f4f527f7"] }, Open ]], Cell[CellGroupData[{ Cell[113862, 2685, 485, 11, 37, "Input",ExpressionUUID->"b9b38aca-4ee1-4f73-ae88-fa63793b2b1f"], Cell[114350, 2698, 3120, 48, 87, "Output",ExpressionUUID->"7577e8aa-282a-4ce5-95f1-01edf551507c"] }, Open ]], Cell[CellGroupData[{ Cell[117507, 2751, 524, 12, 37, "Input",ExpressionUUID->"258ef63b-eb39-4ee5-86ff-17500461e872"], Cell[118034, 2765, 3493, 53, 87, "Output",ExpressionUUID->"1aa4cfcc-5c15-490e-90bd-4f46d8ad798f"] }, Open ]], Cell[CellGroupData[{ Cell[121564, 2823, 664, 15, 37, "Input",ExpressionUUID->"d0eaa91b-b34e-4953-8b54-4043fbc10fba"], Cell[122231, 2840, 3511, 62, 87, "Output",ExpressionUUID->"d94f068d-1d44-4118-8336-c741d43902e8"] }, Open ]], Cell[CellGroupData[{ Cell[125779, 2907, 494, 13, 37, "Input",ExpressionUUID->"17bffc9d-c12d-40a8-bb48-f50a62382e47"], Cell[126276, 2922, 3471, 61, 87, "Output",ExpressionUUID->"8feed8e9-8e21-4d63-9706-b10621ba121b"] }, Open ]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[129808, 2990, 157, 3, 65, "Section",ExpressionUUID->"32e27589-8786-491c-ad00-f202b143f20d"], Cell[CellGroupData[{ Cell[129990, 2997, 125, 3, 67, "Subsection",ExpressionUUID->"e2bce7ae-2896-4c00-ae3b-1917809c9597"], Cell[130118, 3002, 1637, 41, 95, "Input",ExpressionUUID->"094c1bcd-ec92-4f28-8c88-d5cb2c74d9e3"] }, Closed]], Cell[CellGroupData[{ Cell[131792, 3048, 149, 3, 47, "Subsection",ExpressionUUID->"bab3ba58-6958-4586-ad0a-732921eed4ab"], Cell[131944, 3053, 1844, 46, 95, "Input",ExpressionUUID->"c943ab9b-9da1-4454-a023-29e40962bd8f"] }, Closed]], Cell[CellGroupData[{ Cell[133825, 3104, 152, 3, 47, "Subsection",ExpressionUUID->"547ebe90-de95-4cde-8aae-f18f74fcbcc7"], Cell[133980, 3109, 1617, 41, 40, "Input",ExpressionUUID->"fd893130-e710-4cc3-b0ae-a9cc7b1a9d78"] }, Closed]], Cell[CellGroupData[{ Cell[135634, 3155, 151, 3, 47, "Subsection",ExpressionUUID->"b4dd3fee-2f07-4216-868b-be73c50b968d"], Cell[135788, 3160, 2670, 65, 126, "Input",ExpressionUUID->"06a2e7ca-2553-4a64-9bca-81f93348d7b4"] }, Closed]], Cell[CellGroupData[{ Cell[138495, 3230, 177, 4, 47, "Subsection",ExpressionUUID->"90b58628-c744-4d56-90f8-79967c2ccd45"], Cell[138675, 3236, 3779, 97, 143, "Input",ExpressionUUID->"309c8104-bd27-490a-b47d-9182db537d20"] }, Open ]], Cell[CellGroupData[{ Cell[142491, 3338, 168, 3, 67, "Subsection",ExpressionUUID->"30569ebb-1f37-451f-9ad2-8a9d346fde31"], Cell[CellGroupData[{ Cell[142684, 3345, 533, 11, 37, "Input",ExpressionUUID->"ece89890-d481-4cf6-afde-af9c1ffee2d5"], Cell[143220, 3358, 3462, 53, 87, "Output",ExpressionUUID->"824ade10-3018-4e09-8529-51e9c65cb024"] }, Open ]], Cell[CellGroupData[{ Cell[146719, 3416, 534, 11, 37, "Input",ExpressionUUID->"f5ec2082-59ca-4a43-81ed-73c7b1f93b61"], Cell[147256, 3429, 3465, 53, 87, "Output",ExpressionUUID->"4821cb85-4468-4ce5-af30-ce90ff856ab3"] }, Open ]], Cell[CellGroupData[{ Cell[150758, 3487, 544, 11, 37, "Input",ExpressionUUID->"eea230e0-035c-4fba-8a19-61567b57efa7"], Cell[151305, 3500, 3822, 58, 87, "Output",ExpressionUUID->"724ee335-c1c2-4163-a601-f2ac75541cad"] }, Open ]], Cell[CellGroupData[{ Cell[155164, 3563, 641, 14, 37, "Input",ExpressionUUID->"b067fe88-d6cd-433f-9b8f-19e2d53ffce4"], Cell[155808, 3579, 3930, 60, 87, "Output",ExpressionUUID->"b70edf6d-4a0f-4af5-9bca-756679597982"] }, Open ]], Cell[CellGroupData[{ Cell[159775, 3644, 516, 13, 37, "Input",ExpressionUUID->"0c5184ed-0e73-41ed-9d0f-b00f4351a132"], Cell[160294, 3659, 3919, 69, 87, "Output",ExpressionUUID->"e60b748f-e52a-458d-b1fb-cf84d2f527f1"] }, Open ]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[164274, 3735, 162, 3, 65, "Section",ExpressionUUID->"f35c9592-93b4-42d2-8c75-5b1a5218a5a1"], Cell[164439, 3740, 3084, 80, 112, "Input",ExpressionUUID->"f34dbc8c-d5ef-4401-b74c-45d550d7e862"], Cell[167526, 3822, 2299, 62, 62, "Input",ExpressionUUID->"220edda9-b91e-4b69-8e04-0ca85f5bc656"], Cell[169828, 3886, 2535, 65, 62, "Input",ExpressionUUID->"eb914634-8544-4eb8-8d5c-5806c2f3dd79"] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[172412, 3957, 158, 3, 86, "Chapter",ExpressionUUID->"bb7d37b1-1c19-4037-aaa6-8562d9dbdc35"], Cell[CellGroupData[{ Cell[172595, 3964, 202, 4, 83, "Section",ExpressionUUID->"21ab06a0-535e-4bed-ad4f-777478c7e8f5"], Cell[172800, 3970, 8180, 245, 162, "Input",ExpressionUUID->"23ea563b-67c0-4ad9-8948-9f927ab09617"] }, Open ]], Cell[CellGroupData[{ Cell[181017, 4220, 312, 5, 83, "Section",ExpressionUUID->"e4deb937-062f-44bf-bed7-7b2ed5a44612"], Cell[CellGroupData[{ Cell[181354, 4229, 174, 3, 67, "Subsection",ExpressionUUID->"61b5ca81-a8e6-4997-a5a7-35940922917c"], Cell[CellGroupData[{ Cell[181553, 4236, 544, 14, 36, "Input",ExpressionUUID->"c899cd5b-d9dc-4c61-b774-05bcad0918de"], Cell[182100, 4252, 1735, 25, 87, "Output",ExpressionUUID->"c879ddbe-4656-4537-87e9-8c03faa50bbd"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[183884, 4283, 222, 4, 47, "Subsection",ExpressionUUID->"f903c2c1-2b38-40cc-8574-2064dc3fff33"], Cell[CellGroupData[{ Cell[184131, 4291, 543, 14, 36, "Input",ExpressionUUID->"c634b10b-b155-4bea-bdbf-82a9244e1aba"], Cell[184677, 4307, 1689, 24, 87, "Output",ExpressionUUID->"abd51283-4a6a-4116-8764-cc2511e6f1e5"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[186415, 4337, 200, 4, 47, "Subsection",ExpressionUUID->"cc5b73b2-78e4-49e3-9545-d9f266056335"], Cell[186618, 4343, 17201, 445, 262, "Input",ExpressionUUID->"4718bd59-a2cb-4e0b-9d86-02adef4d8e70"], Cell[203822, 4790, 2740, 71, 87, "Input",ExpressionUUID->"810b3946-a0fd-4fbb-a7e2-6590a640b720"], Cell[206565, 4863, 1936, 56, 36, "Input",ExpressionUUID->"592a0573-e61f-4d8c-a4ff-c4dde3bcb61b"], Cell[CellGroupData[{ Cell[208526, 4923, 250, 5, 36, "Input",ExpressionUUID->"be33471f-0e09-4d1d-8cb8-18963e2b2116"], Cell[208779, 4930, 366, 5, 87, "Output",ExpressionUUID->"93325827-03c6-4de6-8cb8-723bef16613e"] }, Open ]], Cell[CellGroupData[{ Cell[209182, 4940, 458, 9, 36, "Input",ExpressionUUID->"b813b29f-6227-46c3-b780-83f924fbcd70"], Cell[209643, 4951, 309, 5, 87, "Output",ExpressionUUID->"7b262a0a-02e5-4cb6-9097-1a4dd3039036"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[210001, 4962, 215, 4, 67, "Subsection",ExpressionUUID->"01ac1b05-3626-4c05-8c7a-f48ff96564d7"], Cell[CellGroupData[{ Cell[210241, 4970, 866, 23, 36, "Input",ExpressionUUID->"6b3a69f0-5eb2-4efd-aa83-b97208458dda"], Cell[211110, 4995, 2327, 43, 87, "Output",ExpressionUUID->"06a69e0b-ce2d-4e1e-b7f2-c9513bb96076"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[213486, 5044, 153, 3, 47, "Subsection",ExpressionUUID->"8d9476b7-0761-4707-9cba-2b322521d92f"], Cell[213642, 5049, 2610, 66, 87, "Input",ExpressionUUID->"157c2657-5b66-4c74-a06b-5e328558910b"], Cell[216255, 5117, 1861, 52, 36, "Input",ExpressionUUID->"4ec92f47-b6ba-40ba-847f-8c0cd9d3b432"], Cell[CellGroupData[{ Cell[218141, 5173, 260, 5, 36, "Input",ExpressionUUID->"37f289aa-352f-4e21-a2f1-2ad5d38ad0f2"], Cell[218404, 5180, 1853, 26, 87, "Output",ExpressionUUID->"e4afe285-3022-4e1c-9004-feba66a824f5"] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[220318, 5213, 288, 5, 83, "Section",ExpressionUUID->"1205901d-f22e-4e70-a882-174b0b359490"], Cell[CellGroupData[{ Cell[220631, 5222, 125, 3, 67, "Subsection",ExpressionUUID->"c4c318d8-c081-4e7b-8276-6b33f69ba0cc"], Cell[CellGroupData[{ Cell[220781, 5229, 530, 13, 35, "Input",ExpressionUUID->"4cd62952-03bf-476b-9fbd-0d231d374eb3"], Cell[221314, 5244, 1641, 23, 87, "Output",ExpressionUUID->"98b44cf3-9683-4a3f-a109-0e03f6b7ae81"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[223004, 5273, 149, 3, 47, "Subsection",ExpressionUUID->"135974bd-4844-464e-98de-8835567106cb"], Cell[CellGroupData[{ Cell[223178, 5280, 532, 13, 35, "Input",ExpressionUUID->"8c00abac-64cd-4cd4-a267-feaa41a7809e"], Cell[223713, 5295, 1618, 23, 87, "Output",ExpressionUUID->"bb7639b0-7a2b-4300-990d-6b7de9c1c138"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[225380, 5324, 187, 4, 47, "Subsection",ExpressionUUID->"c9403b2c-fe82-4571-9f3d-c14c474ee742"], Cell[CellGroupData[{ Cell[225592, 5332, 550, 13, 35, "Input",ExpressionUUID->"cc99ecec-510b-494d-bf3d-22cbf7eb33f5"], Cell[226145, 5347, 1605, 23, 87, "Output",ExpressionUUID->"597c6039-a014-49d0-ba90-f480803d93e6"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[227799, 5376, 310, 7, 47, "Subsection",ExpressionUUID->"19243fff-2374-41a4-9606-dc29aab0ab5a"], Cell[228112, 5385, 8169, 206, 275, "Input",ExpressionUUID->"a5bf6a4c-8414-4f90-ba81-58a50f257056"], Cell[236284, 5593, 1967, 56, 36, "Input",ExpressionUUID->"402cee52-93c2-496c-9bf3-51b796e817b1"], Cell[CellGroupData[{ Cell[238276, 5653, 307, 6, 36, "Input",ExpressionUUID->"971a555a-80ef-4cc5-8e66-f2ab385060cb"], Cell[238586, 5661, 390, 6, 87, "Output",ExpressionUUID->"31a08d41-006a-41cc-a775-b8289d855ac3"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[239025, 5673, 190, 4, 67, "Subsection",ExpressionUUID->"765221a1-0f14-4ace-9c39-4ae9bfcd4f86"], Cell[CellGroupData[{ Cell[239240, 5681, 1059, 27, 35, "Input",ExpressionUUID->"8150451c-a190-4ff4-98af-73fce6a936fc"], Cell[240302, 5710, 10751, 298, 87, "Output",ExpressionUUID->"9c7b4ebb-79f0-4df0-9323-15e17347d00c"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[251102, 6014, 179, 4, 47, "Subsection",ExpressionUUID->"d5fddaaf-390c-4720-9a5a-a6edcf31e708"], Cell[251284, 6020, 5806, 141, 178, "Input",ExpressionUUID->"8083a1c7-17a9-47ef-9144-af89008bd201"], Cell[257093, 6163, 1983, 55, 35, "Input",ExpressionUUID->"087151b4-060f-45af-b0ca-b2f5de660492"], Cell[CellGroupData[{ Cell[259101, 6222, 260, 5, 35, "Input",ExpressionUUID->"c453e359-7dc9-4b34-a546-26b28c64ff53"], Cell[259364, 6229, 1086, 16, 87, "Output",ExpressionUUID->"4c6bcd1e-27b9-4f5c-8679-bb4bf4011c3c"] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[260511, 6252, 560, 16, 88, "Section",ExpressionUUID->"91fb63ac-29f4-439a-bdf9-6aca8fcd1abe"], Cell[CellGroupData[{ Cell[261096, 6272, 175, 4, 67, "Subsection",ExpressionUUID->"d4663dae-74ea-4151-9cf4-d2251d761121"], Cell[CellGroupData[{ Cell[261296, 6280, 671, 16, 35, "Input",ExpressionUUID->"77a168a3-6f38-4fd5-a62d-e024003be243", CellGroupingRules->{"GroupTogetherGrouping", 10000.}], Cell[261970, 6298, 1768, 25, 87, "Output",ExpressionUUID->"d8819f15-84c8-4940-835d-8882930cfdba", CellGroupingRules->{"GroupTogetherGrouping", 10000.}] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[263787, 6329, 177, 4, 47, "Subsection",ExpressionUUID->"ed7cd4cf-4e2c-4170-ac6f-25f3f5496d2a"], Cell[CellGroupData[{ Cell[263989, 6337, 670, 16, 35, "Input",ExpressionUUID->"dc2e63ac-b83c-4e70-a985-6ddab4f91a91", CellGroupingRules->{"GroupTogetherGrouping", 10000.}], Cell[264662, 6355, 1724, 25, 87, "Output",ExpressionUUID->"5fed3731-7ba3-49bd-8074-53ab27f4542a", CellGroupingRules->{"GroupTogetherGrouping", 10000.}] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[266435, 6386, 310, 7, 47, "Subsection",ExpressionUUID->"cc4bdc11-56ac-4a92-99cc-864f7385f49b"], Cell[266748, 6395, 8248, 207, 275, "Input",ExpressionUUID->"70e9dfe5-cc90-4930-88bd-1720e6ce91df"], Cell[274999, 6604, 2020, 57, 36, "Input",ExpressionUUID->"79b131ad-9f04-4db5-9334-f856a7f121de"], Cell[CellGroupData[{ Cell[277044, 6665, 356, 7, 36, "Input",ExpressionUUID->"0f5f3e20-c78d-4c02-bf87-fc2ebd157c74"], Cell[277403, 6674, 415, 6, 87, "Output",ExpressionUUID->"97224b29-8695-4b09-92dc-84e17cc7e433"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[277867, 6686, 188, 4, 67, "Subsection",ExpressionUUID->"c4c54e1e-769d-48fb-9a84-e03d9014f5cc"], Cell[CellGroupData[{ Cell[278080, 6694, 964, 25, 36, "Input",ExpressionUUID->"571f3267-0f44-4584-ab02-6f268361c277"], Cell[279047, 6721, 2388, 44, 87, "Output",ExpressionUUID->"6c069bd7-9c6d-44e2-bcd0-6af7c0cee475"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[281484, 6771, 153, 3, 47, "Subsection",ExpressionUUID->"5c599eff-88e7-40f2-a996-8e122198f36e"], Cell[281640, 6776, 2593, 67, 87, "Input",ExpressionUUID->"9f8a0ba7-e9b4-46c8-8ac7-a22501240fb3"], Cell[284236, 6845, 1765, 50, 36, "Input",ExpressionUUID->"25287cf2-7271-430d-8425-3c15a5b9fbee"], Cell[CellGroupData[{ Cell[286026, 6899, 262, 5, 36, "Input",ExpressionUUID->"a1e8abb0-6c31-444c-95df-a03205d809f6"], Cell[286291, 6906, 1020, 15, 87, "Output",ExpressionUUID->"5c175cb1-5fb5-4c4e-bf8d-893a1e1d5f44"] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[287372, 6928, 537, 16, 88, "Section",ExpressionUUID->"4722306a-3df5-4395-8629-9b4b2d2d63eb"], Cell[CellGroupData[{ Cell[287934, 6948, 125, 3, 67, "Subsection",ExpressionUUID->"726c0648-65d3-4485-b012-c3364b68777e"], Cell[CellGroupData[{ Cell[288084, 6955, 735, 18, 35, "Input",ExpressionUUID->"99302175-6084-4539-9c74-f2fdeda25828"], Cell[288822, 6975, 1063, 16, 87, "Output",ExpressionUUID->"f2b3d211-e309-472c-98cb-5f69479cd8d0"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[289934, 6997, 151, 3, 47, "Subsection",ExpressionUUID->"f21334a5-7625-4a45-8c3d-9e1b9cca6615"], Cell[CellGroupData[{ Cell[290110, 7004, 786, 19, 35, "Input",ExpressionUUID->"ac2330e3-b5d2-4feb-8327-7e97f28cb154"], Cell[290899, 7025, 1048, 15, 87, "Output",ExpressionUUID->"4faafac7-5bc8-4d59-8847-dbfc7bf1b106"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[291996, 7046, 154, 3, 47, "Subsection",ExpressionUUID->"473452b0-61c0-4aae-ae39-6715f1ddb0e2"], Cell[CellGroupData[{ Cell[292175, 7053, 610, 16, 35, "Input",ExpressionUUID->"1cfa0b4d-6f34-4d5c-a971-20918410353f"], Cell[292788, 7071, 920, 14, 87, "Output",ExpressionUUID->"86ef4de5-5199-472e-8322-9f0b34703127"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[293757, 7091, 315, 8, 47, "Subsection",ExpressionUUID->"bcd86353-b1ed-4f9a-a5b2-0613fa1d3e31"], Cell[294075, 7101, 1973, 57, 36, "Input",ExpressionUUID->"84937f15-510e-4a65-9987-4721bcb7bd59"], Cell[296051, 7160, 17378, 443, 287, "Input",ExpressionUUID->"e70d041f-aca9-42a6-b6e6-d0477408460a"], Cell[CellGroupData[{ Cell[313454, 7607, 256, 6, 36, "Input",ExpressionUUID->"300f346b-f945-4045-8aac-89c8c7ec17f2"], Cell[313713, 7615, 2180, 32, 87, "Output",ExpressionUUID->"5656060d-0919-49ae-be39-99d74bdf2a56"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[315942, 7653, 177, 4, 67, "Subsection",ExpressionUUID->"0ac5e5b2-1de8-442a-a61c-afe2aaa467fb"], Cell[316122, 7659, 2304, 58, 62, "Input",ExpressionUUID->"13e1a71f-989a-4995-b411-a40aadd669f8"], Cell[318429, 7719, 1916, 55, 36, "Input",ExpressionUUID->"f30bc7ec-e2cf-4cfb-9414-4fe598b72e0c"], Cell[CellGroupData[{ Cell[320370, 7778, 262, 6, 36, "Input",ExpressionUUID->"b6ab794b-5639-429c-9489-333c8b9ee8c0"], Cell[320635, 7786, 1065, 16, 87, "Output",ExpressionUUID->"97ba4659-2c6a-47a5-b756-fd587825ee69"] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[321761, 7809, 440, 14, 88, "Section",ExpressionUUID->"4cfdd76f-265a-43d6-a6b9-57b2ba00352b"], Cell[CellGroupData[{ Cell[322226, 7827, 172, 3, 67, "Subsection",ExpressionUUID->"ca1da7cb-eddf-4f29-9f60-88e73b87dc9e"], Cell[322401, 7832, 3321, 92, 83, "Input",ExpressionUUID->"10003eb0-1864-49d4-88bb-f490df09a9d1"], Cell[325725, 7926, 1689, 48, 35, "Input",ExpressionUUID->"2a71a9cf-7ab8-44f7-8d23-0ccec4e03589"], Cell[327417, 7976, 2361, 62, 60, "Input",ExpressionUUID->"1c1365d1-b0b5-4cfe-a38a-bf5fcf53877c"], Cell[CellGroupData[{ Cell[329803, 8042, 268, 6, 35, "Input",ExpressionUUID->"14c4fd2a-170e-4b6d-88ce-40a3a5bc7013"], Cell[330074, 8050, 900, 13, 87, "Output",ExpressionUUID->"9eebdefb-0fd0-4907-9873-ce2c1c5c888a"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[331023, 8069, 222, 4, 47, "Subsection",ExpressionUUID->"46e6e915-c70a-4efa-baa8-aa3c69096736"], Cell[331248, 8075, 3679, 98, 87, "Input",ExpressionUUID->"ce75cc3b-4a60-4f85-bb26-2f9720a77c9f"], Cell[334930, 8175, 1738, 49, 36, "Input",ExpressionUUID->"3b2378f7-0422-43fb-b19a-7a4d0eea1bd9"], Cell[336671, 8226, 2667, 67, 62, "Input",ExpressionUUID->"0ade9222-4dae-434f-bf2f-d3fdac7c470a"], Cell[CellGroupData[{ Cell[339363, 8297, 319, 7, 36, "Input",ExpressionUUID->"104ff427-e14b-448e-b958-880bb9207f2b"], Cell[339685, 8306, 898, 13, 87, "Output",ExpressionUUID->"99b39a79-24cd-449f-b407-3189879bd466"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[340632, 8325, 274, 4, 47, "Subsection",ExpressionUUID->"8e527b16-5f76-4bc9-bafe-b5f5d8b87fee"], Cell[CellGroupData[{ Cell[340931, 8333, 360, 7, 88, "Subsubsection",ExpressionUUID->"08c92e9c-da20-48be-b30d-49e59daae423"], Cell[341294, 8342, 5153, 102, 112, "Input",ExpressionUUID->"a64e8053-c6b8-4d39-9811-cba9afa5e68f"], Cell[346450, 8446, 3283, 77, 112, "Input",ExpressionUUID->"c7856dd9-e483-476e-811e-543e9fc21f3f"], Cell[349736, 8525, 3198, 76, 112, "Input",ExpressionUUID->"09a3695a-2031-4a9f-a5d2-8638da21137c"], Cell[352937, 8603, 3167, 75, 112, "Input",ExpressionUUID->"c2fc67b5-dcc7-4469-808e-40e4f1b6622f"], Cell[356107, 8680, 3277, 77, 112, "Input",ExpressionUUID->"6f2f03a7-a18f-4a25-a3e2-5ea29caf9444"], Cell[359387, 8759, 3175, 76, 112, "Input",ExpressionUUID->"1a8fcd05-171f-436e-8fee-a49a8ec1a47b"], Cell[362565, 8837, 3117, 75, 112, "Input",ExpressionUUID->"80346c7d-75f0-4139-bdf8-062cb53264a3"], Cell[365685, 8914, 2507, 66, 112, "Input",ExpressionUUID->"3b9c5c37-cc54-425a-9f75-d73dc4345d57"] }, Open ]], Cell[CellGroupData[{ Cell[368229, 8985, 210, 4, 56, "Subsubsection",ExpressionUUID->"d2d660ac-3e70-49ed-95d4-acb49f9334d7"], Cell[368442, 8991, 11610, 284, 237, "Input",ExpressionUUID->"e7fe4ac0-a5a0-497d-a3ed-bd435c93fbc5"], Cell[380055, 9277, 1994, 57, 36, "Input",ExpressionUUID->"a3d847cc-1e9a-4670-a4e3-27cf90cf0e14"], Cell[CellGroupData[{ Cell[382074, 9338, 263, 6, 36, "Input",ExpressionUUID->"6de4d2d3-9324-4c0a-bd26-5aa720f6d127"], Cell[382340, 9346, 317, 5, 87, "Output",ExpressionUUID->"1517fa13-049b-42bc-a6d4-aa605717ff66"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[382718, 9358, 153, 3, 67, "Subsection",ExpressionUUID->"3baa1cb1-d2d8-47bf-a824-8e1403c3a461"], Cell[382874, 9363, 4456, 114, 107, "Input",ExpressionUUID->"ded160fc-f819-47b5-acc3-0a1eed3b2340"], Cell[387333, 9479, 3051, 77, 83, "Input",ExpressionUUID->"eb614365-6781-4e87-b80c-ccb557d6dc6b"], Cell[390387, 9558, 1800, 51, 35, "Input",ExpressionUUID->"687446dd-429d-4b36-8a46-ae7abc6d7ad8"], Cell[CellGroupData[{ Cell[392212, 9613, 267, 6, 35, "Input",ExpressionUUID->"4f45d5a2-ad32-4e75-9b04-765748699925"], Cell[392482, 9621, 1256, 19, 87, "Output",ExpressionUUID->"9a36fcbf-4c6a-4c35-a0fd-fe7e1645bbe5"] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[393799, 9647, 414, 13, 88, "Section",ExpressionUUID->"21252ad1-1e47-47be-a2d8-578e9d2d0676"], Cell[CellGroupData[{ Cell[394238, 9664, 125, 3, 67, "Subsection",ExpressionUUID->"99c04251-b327-496d-9360-32554c2868df"], Cell[394366, 9669, 2534, 71, 60, "Input",ExpressionUUID->"28fbba4f-d378-46f0-b20f-40c3003a61da"], Cell[396903, 9742, 1516, 40, 35, "Input",ExpressionUUID->"4d6520be-5570-43f1-bad1-3214791b3de2"], Cell[398422, 9784, 1630, 47, 35, "Input",ExpressionUUID->"eceaa43e-e677-4e6a-a438-c8ba92a51831"], Cell[CellGroupData[{ Cell[400077, 9835, 270, 6, 35, "Input",ExpressionUUID->"42d63a78-fef6-4090-8eb5-7f679e7c8cc3"], Cell[400350, 9843, 663, 11, 87, "Output",ExpressionUUID->"a9ca2b79-5194-4cf9-94ae-d617cfaa58c0"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[401062, 9860, 149, 3, 47, "Subsection",ExpressionUUID->"f532dae2-29b5-4141-b314-2f92f75af895"], Cell[401214, 9865, 3563, 96, 83, "Input",ExpressionUUID->"f5708ebe-f98a-4dfe-9070-3750b6e26abb"], Cell[404780, 9963, 2426, 64, 60, "Input",ExpressionUUID->"bac061ad-3adb-406d-a3d1-914a7d139340"], Cell[407209, 10029, 1628, 47, 35, "Input",ExpressionUUID->"b24e051d-2afb-4fa5-9fb6-77cdb49c4595"], Cell[CellGroupData[{ Cell[408862, 10080, 257, 6, 35, "Input",ExpressionUUID->"c2a37675-bf30-4d85-b06f-4fb7f2e1094e"], Cell[409122, 10088, 811, 12, 87, "Output",ExpressionUUID->"875cca62-fdd7-497d-bd3d-430a9b7593be"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[409982, 10106, 187, 4, 47, "Subsection",ExpressionUUID->"05bcc1cd-3c8d-462a-ae93-fd38e0dc47f5"], Cell[410172, 10112, 2556, 70, 60, "Input",ExpressionUUID->"f3fb2581-c862-4307-8df8-3b9667987e56"], Cell[412731, 10184, 1498, 39, 35, "Input",ExpressionUUID->"f87a8753-0952-4c89-8941-ff48036796b6"], Cell[414232, 10225, 1648, 47, 35, "Input",ExpressionUUID->"f6fc499b-1f3c-4603-8018-a757c43f8a25"], Cell[CellGroupData[{ Cell[415905, 10276, 259, 6, 35, "Input",ExpressionUUID->"a6f6808f-e58e-40b7-bb61-4eada56e8d6f"], Cell[416167, 10284, 781, 12, 87, "Output",ExpressionUUID->"00dead2b-bfb5-4114-b9e2-55c7d4614464"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[416997, 10302, 179, 4, 47, "Subsection",ExpressionUUID->"aeff22bd-2da0-41c4-a887-e531b5b7abdc"], Cell[417179, 10308, 5866, 152, 155, "Input",ExpressionUUID->"ba6c10a8-5a53-4e0e-8968-651d1b7cbb64"], Cell[423048, 10462, 4358, 113, 131, "Input",ExpressionUUID->"ce77277b-0f19-4889-ae56-a711acd2ec77"], Cell[427409, 10577, 1936, 55, 35, "Input",ExpressionUUID->"81fc834d-57e9-491e-865c-ad43dcc2795a"], Cell[CellGroupData[{ Cell[429370, 10636, 257, 6, 35, "Input",ExpressionUUID->"d06ba517-7454-4884-b553-c758df70b367"], Cell[429630, 10644, 468, 8, 87, "Output",ExpressionUUID->"e83d0a0c-d615-4db7-b83f-a7f5efb42d04"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[430147, 10658, 274, 4, 47, "Subsection",ExpressionUUID->"65f457a7-4879-4bf5-b790-fe8f14d14d9f"], Cell[CellGroupData[{ Cell[430446, 10666, 241, 4, 56, "Subsubsection",ExpressionUUID->"6fdc870c-d24e-456d-87b6-741840a6acdc"], Cell[430690, 10672, 5272, 104, 112, "Input",ExpressionUUID->"99995248-d49a-4725-8c3c-bfd974d7547d"], Cell[435965, 10778, 3359, 77, 112, "Input",ExpressionUUID->"6d4dabd3-b230-4fc9-96c9-32b20037f050"], Cell[439327, 10857, 3272, 77, 112, "Input",ExpressionUUID->"bacb4941-1cf3-4474-a241-e14bb36b55d3"], Cell[442602, 10936, 3264, 77, 112, "Input",ExpressionUUID->"504c2890-62c4-4555-adb2-12161ab57c8e"], Cell[445869, 11015, 3395, 79, 112, "Input",ExpressionUUID->"0c9418e8-d5e4-44e5-b02d-db8ccfd37e20"], Cell[449267, 11096, 3290, 78, 112, "Input",ExpressionUUID->"68b0be9e-51f5-4271-83a5-d1a3d4e89fc9"], Cell[452560, 11176, 3247, 78, 112, "Input",ExpressionUUID->"6ae788eb-cc13-49d3-b74c-f525accc2d23"], Cell[455810, 11256, 2577, 67, 112, "Input",ExpressionUUID->"df4eb7f4-6200-4ed6-87a2-7124b56c05a7"] }, Open ]], Cell[CellGroupData[{ Cell[458424, 11328, 210, 4, 56, "Subsubsection",ExpressionUUID->"a5368445-104b-4818-b08c-9315daa961dc"], Cell[CellGroupData[{ Cell[458659, 11336, 15177, 356, 262, "Input",ExpressionUUID->"ca1a835c-0ca3-4a19-9cc3-00175cbc071e"], Cell[473839, 11694, 23839, 586, 87, "Output",ExpressionUUID->"4bc5ebca-6646-42f3-83e2-c80ed014cb2f"] }, Open ]] }, Open ]] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[497763, 12289, 156, 3, 71, "Chapter",ExpressionUUID->"d5b4da9d-06df-42b4-9ed3-c3a8a7198c7b"], Cell[CellGroupData[{ Cell[497944, 12296, 253, 4, 84, "Section",ExpressionUUID->"db7067a3-3038-4346-ae16-35f0ebb5d558"], Cell[CellGroupData[{ Cell[498222, 12304, 174, 3, 67, "Subsection",ExpressionUUID->"2cac4fa9-4636-49cf-bbd4-69bd68cc4464"], Cell[498399, 12309, 2627, 67, 233, "Input",ExpressionUUID->"8d9c7d7e-5b27-4f07-8124-3a2fffcefed2"], Cell[CellGroupData[{ Cell[501051, 12380, 449, 11, 37, "Input",ExpressionUUID->"9dd48f13-e22a-472c-aff3-0a544c81aab2"], Cell[501503, 12393, 1085, 16, 87, "Output",ExpressionUUID->"b252ac81-18ca-4941-9d86-e55303f7765a"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[502637, 12415, 222, 4, 46, "Subsection",ExpressionUUID->"0e39866f-63c5-47d5-8c0e-fed105c849b9"], Cell[502862, 12421, 2590, 67, 130, "Input",ExpressionUUID->"c3c83622-4743-4272-b0dd-cc02901115c6"], Cell[CellGroupData[{ Cell[505477, 12492, 453, 11, 35, "Input",ExpressionUUID->"b3d3baa1-8088-455c-b9da-88a3b4d78d8c"], Cell[505933, 12505, 1080, 16, 87, "Output",ExpressionUUID->"d89b66f3-329e-4229-96af-a8b6e8f40b27"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[507062, 12527, 450, 9, 46, "Subsection",ExpressionUUID->"4a865d48-a20d-423a-a5ee-97ba75245210"], Cell[507515, 12538, 22871, 596, 541, "Input",ExpressionUUID->"7e44f393-6da4-40a7-81b3-89e782fd95e4"], Cell[530389, 13136, 1646, 45, 61, "Input",ExpressionUUID->"54a7b2e7-0e21-479c-90d8-22b43e4ed91f"], Cell[532038, 13183, 2743, 68, 85, "Input",ExpressionUUID->"b330ae0f-3118-496f-a5f8-fe4588b98fd6"], Cell[534784, 13253, 2034, 58, 61, "Input",ExpressionUUID->"d491ae73-5745-41cf-8d61-24c190269b43"], Cell[CellGroupData[{ Cell[536843, 13315, 354, 8, 36, "Input",ExpressionUUID->"4c08249a-ba4d-4133-9404-8c4f3c9e45af"], Cell[537200, 13325, 1547, 23, 41, "Output",ExpressionUUID->"cf5b079a-fab0-4c47-98fd-b9d1e9e0bc84"] }, Open ]], Cell[CellGroupData[{ Cell[538784, 13353, 266, 6, 36, "Input",ExpressionUUID->"a1a3992a-6e35-4ef3-b670-113802a2f07b"], Cell[539053, 13361, 25198, 602, 281, "Output",ExpressionUUID->"548313cd-6834-4988-9b3b-dea4b8622de2"] }, Open ]], Cell[564266, 13966, 1034, 29, 36, "Input",ExpressionUUID->"e6d36faf-c7e4-4a67-a311-0fc7a53b0dae"], Cell[CellGroupData[{ Cell[565325, 13999, 1215, 32, 36, "Input",ExpressionUUID->"59fb1907-f209-41c7-b05f-9e40de18c7c5"], Cell[566543, 14033, 25688, 816, 439, "Output",ExpressionUUID->"5ac47924-e1d1-421d-a2cd-6891dd5a477f"] }, Open ]], Cell[CellGroupData[{ Cell[592268, 14854, 1035, 26, 40, "Input",ExpressionUUID->"004cfac3-ff34-4735-870b-9e34ff4bc8be"], Cell[593306, 14882, 517, 8, 41, "Output",ExpressionUUID->"d0275931-87de-457b-b7fc-7e9188ba67e4"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[593872, 14896, 153, 3, 67, "Subsection",ExpressionUUID->"36173f54-ac68-4473-ba48-d64342dcab56"], Cell[594028, 14901, 3654, 92, 83, "Input",ExpressionUUID->"f3204092-902b-409c-8559-6af77912f8e5"], Cell[597685, 14995, 1816, 52, 35, "Input",ExpressionUUID->"84f174c5-c86b-4759-9d09-6980ddac3f4c"], Cell[CellGroupData[{ Cell[599526, 15051, 316, 7, 35, "Input",ExpressionUUID->"23c27fec-d253-4679-bf88-79963b7c1d4a"], Cell[599845, 15060, 1169, 17, 87, "Output",ExpressionUUID->"59c47936-b1bc-4ec2-a145-bbe4f8041f74"] }, Open ]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[601075, 15084, 230, 4, 65, "Section",ExpressionUUID->"b51ecc25-3bf7-454e-8aa1-d07d3eb4a58f"], Cell[CellGroupData[{ Cell[601330, 15092, 125, 3, 67, "Subsection",ExpressionUUID->"3664f4dc-40c1-4454-9cea-7c2ecefe6b2b"], Cell[601458, 15097, 3674, 94, 156, "Input",ExpressionUUID->"d72bc789-a49c-49b4-b0cd-1751efea6000"], Cell[CellGroupData[{ Cell[605157, 15195, 448, 11, 37, "Input",ExpressionUUID->"aef2fc18-a9ad-425a-b24b-638f7c7801b3"], Cell[605608, 15208, 993, 15, 87, "Output",ExpressionUUID->"9c2b93c9-f9d3-42c2-a1e0-71688c0b5f31"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[606650, 15229, 149, 3, 47, "Subsection",ExpressionUUID->"ad1f77c9-dcb8-4133-99e2-f20b8fd24dc2"], Cell[606802, 15234, 3367, 84, 131, "Input",ExpressionUUID->"b17f6b05-b24d-4b74-b11f-f9c28bb643c7"], Cell[CellGroupData[{ Cell[610194, 15322, 500, 12, 37, "Input",ExpressionUUID->"c79715c6-c4a7-4c16-9889-adc48e52af56"], Cell[610697, 15336, 1018, 16, 87, "Output",ExpressionUUID->"9ec54d39-62d6-4c07-aa38-fe219fcc3b34"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[611764, 15358, 187, 4, 47, "Subsection",ExpressionUUID->"e15cc4c4-2bee-4028-a3cb-249b8dd4dab5"], Cell[611954, 15364, 3630, 94, 341, "Input",ExpressionUUID->"248eabdb-2687-441a-9c91-ce23bef1e95f"], Cell[CellGroupData[{ Cell[615609, 15462, 461, 11, 37, "Input",ExpressionUUID->"1871d004-399c-4c8e-818b-49a8e5cf29cb"], Cell[616073, 15475, 1012, 15, 87, "Output",ExpressionUUID->"3519eae2-34f7-4715-b0ee-54c8a98fbc26"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[617134, 15496, 379, 8, 47, "Subsection",ExpressionUUID->"1ce5678f-0fe1-4f09-b552-57612234bc1e"], Cell[617516, 15506, 21470, 552, 337, "Input",ExpressionUUID->"d86a568a-35c9-4b64-b29b-9259118d7882"], Cell[638989, 16060, 2009, 58, 36, "Input",ExpressionUUID->"36c5f55d-b39f-433c-9158-1c976596cdda"], Cell[CellGroupData[{ Cell[641023, 16122, 315, 7, 36, "Input",ExpressionUUID->"a658f66d-014d-4e10-8a55-db84cf66303e"], Cell[641341, 16131, 560, 11, 41, "Output",ExpressionUUID->"b672e204-552a-4797-bd7f-32061136596b"] }, Open ]], Cell[CellGroupData[{ Cell[641938, 16147, 162, 3, 56, "Subsubsection",ExpressionUUID->"725292f1-0426-4c93-93ca-213a072bceee"], Cell[642103, 16152, 1032, 28, 62, "Input",ExpressionUUID->"62cce460-35e2-4952-bc55-7250bdc0438a"], Cell[643138, 16182, 3594, 88, 112, "Input",ExpressionUUID->"985e1094-17b9-48ff-a9b0-4d63cc8ccbc9"], Cell[CellGroupData[{ Cell[646757, 16274, 255, 5, 36, "Input",ExpressionUUID->"3e42a381-7bc5-4f50-b377-52e63553a6ad"], Cell[647015, 16281, 24690, 593, 231, "Output",ExpressionUUID->"17c4c4ca-e644-48b7-a7af-ddc0f973dd0d"] }, Open ]], Cell[CellGroupData[{ Cell[671742, 16879, 385, 9, 36, "Input",ExpressionUUID->"176cfeeb-3351-47bc-9a39-b3f68ca63837"], Cell[672130, 16890, 335, 6, 41, "Output",ExpressionUUID->"88b2ae8a-1434-480c-8325-f7e6a800e1ca"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[672526, 16903, 179, 4, 67, "Subsection",ExpressionUUID->"327174fc-0c0f-4fb0-831b-3effcf78a8db"], Cell[672708, 16909, 5685, 140, 191, "Input",ExpressionUUID->"399de37d-c87f-44bf-9900-523bc1e71b41"], Cell[678396, 17051, 1962, 56, 36, "Input",ExpressionUUID->"ef3e1de4-c30d-47d9-8cd3-64204e785d8d"], Cell[CellGroupData[{ Cell[680383, 17111, 262, 6, 36, "Input",ExpressionUUID->"01e58c32-5b31-4823-ba58-e834b2cef5e6"], Cell[680648, 17119, 1027, 15, 87, "Output",ExpressionUUID->"bbb68103-ca79-4e3d-9182-34f1c606ded0"] }, Open ]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[681736, 17141, 249, 4, 65, "Section",ExpressionUUID->"7360fdfe-fa27-4f44-aff2-75528d8c47d6"], Cell[CellGroupData[{ Cell[682010, 17149, 172, 3, 67, "Subsection",ExpressionUUID->"828f101f-fcc0-49d0-8351-575cd9ab081b"], Cell[682185, 17154, 2676, 68, 248, "Input",ExpressionUUID->"edf5bba3-7795-4460-ba8f-2d35ed1c966b"], Cell[684864, 17224, 1670, 48, 117, "Input",ExpressionUUID->"6f579136-943e-4bc9-8474-af4a3e787432"], Cell[CellGroupData[{ Cell[686559, 17276, 250, 5, 37, "Input",ExpressionUUID->"12916cb8-cdf7-4463-b6da-6ec4c1d74a2a"], Cell[686812, 17283, 1120, 16, 87, "Output",ExpressionUUID->"cba9c700-752f-44af-8def-ef463171147b"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[687981, 17305, 224, 4, 46, "Subsection",ExpressionUUID->"64bb8c7d-e746-4edf-b210-fb82e3f66dbf"], Cell[688208, 17311, 2655, 68, 222, "Input",ExpressionUUID->"e4169b5c-91d3-4270-aebf-0da9707be5be"], Cell[690866, 17381, 1619, 47, 117, "Input",ExpressionUUID->"f368281d-cbeb-4538-ad1a-c21c06a87c9d"], Cell[CellGroupData[{ Cell[692510, 17432, 249, 5, 37, "Input",ExpressionUUID->"9a5f2ca0-1d63-4f3b-8501-b9580b1a923b"], Cell[692762, 17439, 1052, 15, 87, "Output",ExpressionUUID->"e5507b21-e80f-4551-b2cc-0420b259eb2e"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[693863, 17460, 398, 8, 46, "Subsection",ExpressionUUID->"71ad789e-2a97-4810-9869-38b53eebf569"], Cell[694264, 17470, 25125, 600, 421, "Input",ExpressionUUID->"aa0f1fdf-820c-44eb-9a3e-38353dc46ed7"], Cell[719392, 18072, 1935, 57, 61, "Input",ExpressionUUID->"fdacf05a-ec23-4229-8242-6c1ad611b19b"], Cell[CellGroupData[{ Cell[721352, 18133, 257, 6, 36, "Input",ExpressionUUID->"5e1013ed-f705-41f5-9b4e-3c565c0884cc"], Cell[721612, 18141, 779, 12, 41, "Output",ExpressionUUID->"f40d00d5-488e-4ca6-bebc-e5a9176586bc"] }, Open ]], Cell[CellGroupData[{ Cell[722428, 18158, 162, 3, 56, "Subsubsection",ExpressionUUID->"1e36630f-20af-4d71-88ad-9f4a9e34fa95"], Cell[722593, 18163, 1084, 29, 61, "Input",ExpressionUUID->"ac21e655-94aa-4bc6-9fd3-aa5620a86249"], Cell[723680, 18194, 3433, 80, 85, "Input",ExpressionUUID->"94b07d00-3b4e-4ecc-85a4-3339d16d7c66"], Cell[CellGroupData[{ Cell[727138, 18278, 409, 7, 36, "Input",ExpressionUUID->"46e31e10-a03e-4aef-b694-40a574aa77c0"], Cell[727550, 18287, 17958, 443, 221, "Output",ExpressionUUID->"266c6385-1360-4990-b9e3-c3a390ae5a42"] }, Open ]], Cell[CellGroupData[{ Cell[745545, 18735, 484, 10, 36, "Input",ExpressionUUID->"25e6c71b-d92a-4a39-9210-ed8fa1923e6b"], Cell[746032, 18747, 439, 8, 41, "Output",ExpressionUUID->"5ccda5f6-0f86-4fdb-9f53-e1ab348db99b"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[746532, 18762, 153, 3, 67, "Subsection",ExpressionUUID->"a286f6ee-6b34-4dc6-baac-f4382ca972e0"], Cell[746688, 18767, 5061, 129, 112, "Input",ExpressionUUID->"44354c4a-d69d-4481-966d-38481b468581"], Cell[751752, 18898, 3643, 91, 87, "Input",ExpressionUUID->"6af39772-1b37-4c1d-99d0-080cb4dabc06"], Cell[755398, 18991, 1832, 52, 36, "Input",ExpressionUUID->"68fd749a-fdf7-4092-90fd-33956e11bc0d"], Cell[CellGroupData[{ Cell[757255, 19047, 254, 6, 36, "Input",ExpressionUUID->"d40022bf-cb89-4202-b8f5-d07ca72b1fec"], Cell[757512, 19055, 1257, 18, 41, "Output",ExpressionUUID->"2e341819-b2ae-48e2-946d-f5b6b0575f24"] }, Open ]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[758830, 19080, 251, 4, 65, "Section",ExpressionUUID->"0be7cbfe-38b8-49e8-a9f1-71a835ff030a"], Cell[CellGroupData[{ Cell[759106, 19088, 125, 3, 67, "Subsection",ExpressionUUID->"e3186dd6-d36f-4497-8588-a16be475d824"], Cell[759234, 19093, 3618, 92, 341, "Input",ExpressionUUID->"67212c06-19d0-4f3b-97e6-f5f45ae5b946"], Cell[762855, 19187, 1864, 51, 117, "Input",ExpressionUUID->"5541f375-10e4-4530-82ea-b96caacacf3f"], Cell[CellGroupData[{ Cell[764744, 19242, 250, 5, 37, "Input",ExpressionUUID->"1b8d493b-7b2e-4185-b4d0-04eb2945d42c"], Cell[764997, 19249, 1204, 18, 87, "Output",ExpressionUUID->"a14d35ca-fed5-439b-92a1-535aad65339d"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[766250, 19273, 151, 3, 46, "Subsection",ExpressionUUID->"0a880ce7-e0ac-4fa7-99b3-e88aa32b211f"], Cell[766404, 19278, 3534, 90, 341, "Input",ExpressionUUID->"574ab28b-3c11-4d22-a7a8-82238cd11919"], Cell[769941, 19370, 1625, 47, 117, "Input",ExpressionUUID->"c0c783f7-bd27-4581-aec6-8b7097eb38e0"], Cell[CellGroupData[{ Cell[771591, 19421, 250, 5, 37, "Input",ExpressionUUID->"a9a0b988-b1b0-4edc-bb77-af236ceb188a"], Cell[771844, 19428, 1165, 17, 87, "Output",ExpressionUUID->"5c71426c-1200-469c-998e-daa862b08ed3"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[773058, 19451, 154, 3, 46, "Subsection",ExpressionUUID->"022bf7b1-b278-4475-97ab-439cf02ddb4a"], Cell[773215, 19456, 3687, 93, 341, "Input",ExpressionUUID->"21446d16-49c5-4aa4-8106-51c3bceae9fd"], Cell[776905, 19551, 1644, 47, 117, "Input",ExpressionUUID->"b958d82d-ff31-4ed9-80be-36367ef4b22d"], Cell[CellGroupData[{ Cell[778574, 19602, 254, 6, 37, "Input",ExpressionUUID->"26b607d2-bdb6-4ccd-b9fd-a26e8f7f80eb"], Cell[778831, 19610, 1095, 16, 87, "Output",ExpressionUUID->"f9ba139b-7ec4-4dbf-995c-00e094fcc0d2"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[779975, 19632, 377, 8, 46, "Subsection",ExpressionUUID->"b338953b-0a2b-4b28-9c2f-2e4ba66a7dcf"], Cell[780355, 19642, 23549, 609, 421, "Input",ExpressionUUID->"11e02b21-1ea2-4ca8-b3db-fd7188a7db96"], Cell[803907, 20253, 2087, 59, 61, "Input",ExpressionUUID->"8e3f6f48-7a55-468d-9df3-1f240c5ce8d0"], Cell[CellGroupData[{ Cell[806019, 20316, 361, 8, 36, "Input",ExpressionUUID->"5ab3ede6-aac5-44a3-b736-c7e390d46dbf"], Cell[806383, 20326, 1246, 18, 41, "Output",ExpressionUUID->"c18f2636-fab3-4203-9eb4-58a409a1c1b3"] }, Open ]], Cell[CellGroupData[{ Cell[807666, 20349, 162, 3, 56, "Subsubsection",ExpressionUUID->"1565af02-2f67-497b-acbe-000fc824047c"], Cell[807831, 20354, 1611, 46, 61, "Input",ExpressionUUID->"c6a44809-6a66-49f1-a8ba-215eadd20783"], Cell[809445, 20402, 3331, 75, 85, "Input",ExpressionUUID->"2f294f35-62d3-408e-90d7-b1fb09aa941d"], Cell[CellGroupData[{ Cell[812801, 20481, 411, 7, 36, "Input",ExpressionUUID->"7f7c8b38-1ade-49cf-9add-3d6e8169d6fb"], Cell[813215, 20490, 24478, 589, 281, "Output",ExpressionUUID->"fe87d9ff-f71e-46c1-b3b3-f635c70ee3bf"] }, Open ]], Cell[CellGroupData[{ Cell[837730, 21084, 484, 10, 36, "Input",ExpressionUUID->"98b486f5-cd97-4d7d-8f05-30a98710ab89"], Cell[838217, 21096, 461, 8, 41, "Output",ExpressionUUID->"f4f03711-5294-4ba6-897a-83f44d63ac9d"] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[838739, 21111, 179, 4, 46, "Subsection",ExpressionUUID->"d2bdc0c9-bc88-4896-a972-b841fc175410"], Cell[838921, 21117, 6440, 153, 192, "Input",ExpressionUUID->"536202ba-54a2-45c7-837a-fcdc1f839785"], Cell[845364, 21272, 1926, 55, 36, "Input",ExpressionUUID->"4c0fb25f-d042-49d6-8b06-4da737306ae1"], Cell[CellGroupData[{ Cell[847315, 21331, 250, 5, 36, "Input",ExpressionUUID->"a44104ce-1888-4e65-a5f7-4262a7251dad"], Cell[847568, 21338, 1307, 20, 87, "Output",ExpressionUUID->"3fb9264a-7a2c-4a48-920f-7b5ee0d46923"] }, Open ]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[848936, 21365, 157, 3, 65, "Section",ExpressionUUID->"ea0d3bd9-6773-4f78-b0b9-3ea113fa5cd9"], Cell[CellGroupData[{ Cell[849118, 21372, 151, 3, 67, "Subsection",ExpressionUUID->"4488e004-4d00-431d-b46e-8f425e89452f"], Cell[849272, 21377, 2850, 71, 275, "Input",ExpressionUUID->"d269d7c6-cf5f-48e0-ad7a-c60ea0892525"], Cell[852125, 21450, 1630, 47, 117, "Input",ExpressionUUID->"1d33d41e-a69e-4e30-bc3c-94f5aa6c0ab5"], Cell[CellGroupData[{ Cell[853780, 21501, 257, 6, 37, "Input",ExpressionUUID->"6206dbbf-e34f-4e21-85d3-b3a6b329debd"], Cell[854040, 21509, 873, 13, 87, "Output",ExpressionUUID->"1228cdfb-4cf7-4eda-bdc7-c7fb7e668441"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[854962, 21528, 200, 4, 46, "Subsection",ExpressionUUID->"3f3b987a-40bb-43e3-8edd-17815de11735"], Cell[855165, 21534, 3352, 92, 222, "Input",ExpressionUUID->"b7510514-fe55-43ac-a133-98c3209643b7"], Cell[858520, 21628, 2394, 62, 196, "Input",ExpressionUUID->"08ab0720-7e73-4c93-825e-d9c7329b0315"], Cell[860917, 21692, 1629, 47, 117, "Input",ExpressionUUID->"68320c96-8513-4871-87a4-f769d6380996"], Cell[CellGroupData[{ Cell[862571, 21743, 257, 6, 37, "Input",ExpressionUUID->"4e783282-1a3f-4f47-89e5-fe8d926db00a"], Cell[862831, 21751, 832, 12, 87, "Output",ExpressionUUID->"9ac12ef8-647f-498f-8156-ee510f041c4a"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[863712, 21769, 202, 4, 46, "Subsection",ExpressionUUID->"e68156a3-ab04-4eca-b10f-61db694912a1"], Cell[863917, 21775, 5180, 138, 380, "Input",ExpressionUUID->"067d9818-1fbe-4f50-a531-270d655c5d68"], Cell[869100, 21915, 4185, 107, 353, "Input",ExpressionUUID->"b1d45164-221e-46cd-a4ea-f44f9ce4d26c"], Cell[873288, 22024, 2582, 62, 143, "Input",ExpressionUUID->"130690af-3c17-4e4f-ab5d-45d5e5b8ecba"], Cell[CellGroupData[{ Cell[875895, 22090, 259, 6, 37, "Input",ExpressionUUID->"3adbe459-f1c4-4fc6-800b-c7386c430362"], Cell[876157, 22098, 1056, 15, 87, "Output",ExpressionUUID->"2e7c424d-ab49-40b9-879b-12cafa39f040"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[877262, 22119, 499, 9, 80, "Subsection",ExpressionUUID->"1f7be7d4-c00d-443a-b109-df582b9b7ae0"], Cell[CellGroupData[{ Cell[877786, 22132, 152, 3, 56, "Subsubsection",ExpressionUUID->"22a326fb-f415-4cf2-a556-200c4819bad1"], Cell[877941, 22137, 5006, 100, 112, "Input",ExpressionUUID->"89ae2a0c-c8ee-4c8e-ba6b-688d75b5b62e"], Cell[882950, 22239, 3077, 74, 112, "Input",ExpressionUUID->"c35f42ab-aa05-4b02-a292-22a7d68f46d9"], Cell[886030, 22315, 3187, 76, 112, "Input",ExpressionUUID->"39c5e744-37e5-4a94-8cd0-c669933a3558"], Cell[889220, 22393, 2407, 66, 112, "Input",ExpressionUUID->"7ccc48f3-bfc9-4fb8-8bbe-c1a682ba5520"], Cell[891630, 22461, 3019, 75, 112, "Input",ExpressionUUID->"052e53c0-c8aa-4b37-917d-5ea092ea106a"], Cell[894652, 22538, 3123, 76, 112, "Input",ExpressionUUID->"f4d96829-c13e-47f5-beb9-f7dbd0018753"], Cell[897778, 22616, 3019, 75, 112, "Input",ExpressionUUID->"315d2caf-bc11-4e22-b29a-93d02a77162a"], Cell[900800, 22693, 2923, 73, 112, "Input",ExpressionUUID->"26dc0977-1877-4f6c-b6a0-f461a419232d"] }, Closed]], Cell[CellGroupData[{ Cell[903760, 22771, 210, 4, 45, "Subsubsection",ExpressionUUID->"ba87b9d5-a6df-4e37-b957-552b1c719315"], Cell[903973, 22777, 14075, 321, 253, "Input",ExpressionUUID->"f6c4e2e3-c909-463b-857b-04bb9e708cf8"], Cell[918051, 23100, 1935, 57, 61, "Input",ExpressionUUID->"067f2e3e-9446-4866-b3e7-fdac260805fd"], Cell[CellGroupData[{ Cell[920011, 23161, 261, 6, 36, "Input",ExpressionUUID->"a60584d3-c9d3-4d8b-926a-3708be41881c"], Cell[920275, 23169, 4990, 71, 41, "Output",ExpressionUUID->"2fa20120-b40a-4b79-8b5e-e4b84e28632c"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[925314, 23246, 162, 3, 56, "Subsubsection",ExpressionUUID->"488b4da0-8c6b-41e0-a114-aadb0439ec65"], Cell[925479, 23251, 2201, 64, 85, "Input",ExpressionUUID->"47207c5c-15fd-4da2-be66-472234b33e49"], Cell[CellGroupData[{ Cell[927705, 23319, 1556, 43, 36, "Input",ExpressionUUID->"1b9d252d-49b3-4216-9e51-70c738f66ac4"], Cell[929264, 23364, 1220, 38, 59, "Output",ExpressionUUID->"13bfb716-3dc7-447f-83bc-e353b57f0837"] }, Open ]], Cell[930499, 23405, 4916, 109, 109, "Input",ExpressionUUID->"40938f7a-1978-4d0a-ae80-a66b28c1660a"], Cell[CellGroupData[{ Cell[935440, 23518, 517, 8, 36, "Input",ExpressionUUID->"227949bb-0ca8-455d-80cd-92487bd80b2d"], Cell[935960, 23528, 18732, 455, 197, "Output",ExpressionUUID->"87b2ebf2-a54c-4d9f-81d2-208689238ac5"] }, Open ]], Cell[CellGroupData[{ Cell[954729, 23988, 592, 12, 36, "Input",ExpressionUUID->"a980f591-f4e2-4c0e-8f15-2378d5116376"], Cell[955324, 24002, 581, 9, 41, "Output",ExpressionUUID->"36189280-769a-4ed7-888a-10cfcf8a712d"] }, Open ]] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[955978, 24019, 157, 3, 65, "Section",ExpressionUUID->"0837d2b9-a072-4599-98a8-906d64bd2e1a"], Cell[CellGroupData[{ Cell[956160, 24026, 125, 3, 67, "Subsection",ExpressionUUID->"20167298-1fda-450d-810d-59583677205d"], Cell[956288, 24031, 3612, 99, 83, "Input",ExpressionUUID->"8c815176-8d6c-427d-9347-70e05f5705a5"], Cell[959903, 24132, 2629, 69, 83, "Input",ExpressionUUID->"ee65d8b5-c080-41ef-b8b1-0b122be8cc5c"], Cell[962535, 24203, 1632, 47, 60, "Input",ExpressionUUID->"f7facd79-a356-49e1-9b44-83c01f4edc1a"], Cell[CellGroupData[{ Cell[964192, 24254, 259, 6, 35, "Input",ExpressionUUID->"773cfc4c-f318-4e92-86df-d04b877f64e9"], Cell[964454, 24262, 882, 13, 87, "Output",ExpressionUUID->"bdc00fb8-5070-4c60-a622-42f86821a656"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[965385, 24281, 149, 3, 46, "Subsection",ExpressionUUID->"7fd48bd0-9655-4991-b090-3f101f06450a"], Cell[965537, 24286, 2665, 73, 196, "Input",ExpressionUUID->"017c7d9b-4285-4d00-ab3f-8af57d677a7c"], Cell[968205, 24361, 1659, 44, 143, "Input",ExpressionUUID->"f0694447-8cdc-4564-8166-03ddabe25794"], Cell[969867, 24407, 1688, 48, 117, "Input",ExpressionUUID->"df3629c7-ca8e-4055-a5fa-ccf1f3cd3f47"], Cell[CellGroupData[{ Cell[971580, 24459, 261, 6, 37, "Input",ExpressionUUID->"b46d271b-5258-40d3-af2c-d1930b245d54"], Cell[971844, 24467, 930, 14, 87, "Output",ExpressionUUID->"cfe8ed5a-3a9a-4a29-b191-25b9a219ab61"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[972823, 24487, 187, 4, 46, "Subsection",ExpressionUUID->"79adc8a9-2402-4f94-9481-8295c426d56b"], Cell[973013, 24493, 3691, 101, 275, "Input",ExpressionUUID->"44cba68c-2865-494f-b9db-68cb762e938a"], Cell[976707, 24596, 2630, 69, 248, "Input",ExpressionUUID->"414227af-5c97-433b-83af-7472e08dbbb2"], Cell[979340, 24667, 1675, 48, 117, "Input",ExpressionUUID->"bd3ba9b0-44c5-4004-8872-71cf1a60ef55"], Cell[CellGroupData[{ Cell[981040, 24719, 310, 7, 37, "Input",ExpressionUUID->"ca40bf7c-cbb4-4c40-8015-9e0c0053a168"], Cell[981353, 24728, 902, 13, 87, "Output",ExpressionUUID->"63e3c09d-329a-4276-9482-a342fb1a74fb"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[982304, 24747, 179, 4, 46, "Subsection",ExpressionUUID->"551874fd-8881-4530-b1e0-954652cb3b49"], Cell[CellGroupData[{ Cell[982508, 24755, 9111, 247, 237, "Input",ExpressionUUID->"ccb78b86-8938-4e9e-ba38-90c8e0f9bb02"], Cell[991622, 25004, 7933, 192, 217, "Output",ExpressionUUID->"0799c17f-ce6a-48dc-8740-73786dc7cadc"] }, Open ]], Cell[999570, 25199, 8223, 213, 212, "Input",ExpressionUUID->"2b714fa0-9488-4b84-b5c5-dfcd553e3d4d"], Cell[1007796, 25414, 5347, 134, 112, "Input",ExpressionUUID->"65a6c53b-d480-4e42-a7e2-005b388cbce3"], Cell[1013146, 25550, 3531, 77, 36, "Input",ExpressionUUID->"90f16a38-0a9b-4dcc-b121-859b14d3cebd"], Cell[CellGroupData[{ Cell[1016702, 25631, 257, 6, 36, "Input",ExpressionUUID->"5d1f63e4-aee3-49f1-a72d-cca9906e320c"], Cell[1016962, 25639, 611, 9, 41, "Output",ExpressionUUID->"ab5e6ff0-ee8a-43ed-b45e-f5d0f3cb7291"] }, Open ]], Cell[CellGroupData[{ Cell[1017610, 25653, 274, 6, 36, "Input",ExpressionUUID->"eca59728-7e89-4019-8c6c-fb932428fcea"], Cell[1017887, 25661, 209, 4, 41, "Output",ExpressionUUID->"25757c15-c24f-4bb8-93a2-88344157f523"] }, Open ]], Cell[CellGroupData[{ Cell[1018133, 25670, 247, 6, 36, "Input",ExpressionUUID->"4ca623dc-3973-4f23-95cc-ef44afd86553"], Cell[1018383, 25678, 180, 3, 41, "Output",ExpressionUUID->"fe9fe345-2046-48e2-8a79-09a4deb0eb32"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[1018612, 25687, 475, 9, 80, "Subsection",ExpressionUUID->"8f490a1e-1ee2-48d9-a4e8-0ee536b82612"], Cell[CellGroupData[{ Cell[1019112, 25700, 152, 3, 56, "Subsubsection",ExpressionUUID->"49f13add-83a1-4c4a-ad95-09ab5c845876"], Cell[1019267, 25705, 5023, 100, 109, "Input",ExpressionUUID->"4fc04fec-922e-4798-9f97-197be3d24929"], Cell[1024293, 25807, 3054, 74, 109, "Input",ExpressionUUID->"e606362f-019f-4d7d-b898-e9f73a889354"], Cell[1027350, 25883, 3263, 77, 109, "Input",ExpressionUUID->"f9c7d4fc-27e8-4aec-a0fa-5114ac596aae"], Cell[1030616, 25962, 2383, 67, 109, "Input",ExpressionUUID->"bdaf8619-7862-4138-ac90-a5cd74605173"], Cell[1033002, 26031, 2992, 75, 109, "Input",ExpressionUUID->"24e35c50-eec6-4249-b84b-907c2259dd14"], Cell[1035997, 26108, 3051, 74, 109, "Input",ExpressionUUID->"07bd0a4f-191d-4bbc-9ff2-9214d18305d1"], Cell[1039051, 26184, 2898, 73, 109, "Input",ExpressionUUID->"93912786-d6c8-486a-b245-bfe7a3fa6726"], Cell[1041952, 26259, 2893, 73, 109, "Input",ExpressionUUID->"0de85c62-d1e3-4de3-a4df-2d52b7c52c2d"] }, Open ]], Cell[CellGroupData[{ Cell[1044882, 26337, 163, 3, 56, "Subsubsection",ExpressionUUID->"9d8c72f7-05e1-48b6-a96b-1e566e33391f"], Cell[1045048, 26342, 13947, 319, 253, "Input",ExpressionUUID->"ecb54d65-b3a8-44c7-bf26-254f6832efbb"], Cell[1058998, 26663, 1939, 57, 61, "Input",ExpressionUUID->"420b8e87-de4f-4dc8-b8f0-44a48d0f311e"], Cell[CellGroupData[{ Cell[1060962, 26724, 263, 6, 36, "Input",ExpressionUUID->"ee2441b4-c504-4d4d-8929-d30d2c04334a"], Cell[1061228, 26732, 3985, 57, 41, "Output",ExpressionUUID->"6bb16cab-fd59-4abf-b0ae-35d36661a909"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1065262, 26795, 162, 3, 56, "Subsubsection",ExpressionUUID->"ae33ec0a-7653-45f7-8f0a-afe70444ee57"], Cell[1065427, 26800, 901, 22, 36, "Input",ExpressionUUID->"aa327c30-d49b-4915-8536-6bbe4dc1c861"], Cell[CellGroupData[{ Cell[1066353, 26826, 1619, 44, 36, "Input",ExpressionUUID->"040213a2-f3a5-416a-a3c1-7d2db07c0b0e"], Cell[1067975, 26872, 1316, 40, 59, "Output",ExpressionUUID->"3c030547-9937-457f-bf1c-d01d7b297009"] }, Open ]], Cell[1069306, 26915, 5014, 110, 109, "Input",ExpressionUUID->"942eeb49-5f94-44db-a77d-7a5af683dfb8"], Cell[CellGroupData[{ Cell[1074345, 27029, 571, 9, 36, "Input",ExpressionUUID->"6f36b817-26b1-44a1-8cd6-7b6736b26896"], Cell[1074919, 27040, 18760, 454, 197, "Output",ExpressionUUID->"7c1bf8cf-f68a-458e-a362-11fb9b4b454c"] }, Open ]], Cell[CellGroupData[{ Cell[1093716, 27499, 644, 13, 36, "Input",ExpressionUUID->"b36b51f6-ef9f-45a5-999f-f80bbca63694"], Cell[1094363, 27514, 607, 10, 41, "Output",ExpressionUUID->"9f929ffc-6149-409c-91b0-341331387e35"] }, Open ]] }, Open ]] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[1095055, 27533, 166, 3, 86, "Chapter",ExpressionUUID->"6b8357c4-98ec-4531-a723-65cc42b1fdf9"], Cell[1095224, 27538, 799, 19, 85, "Input",ExpressionUUID->"0802c993-38c4-439b-8140-746dcd3e4da7", CellGroupingRules->{"GroupTogetherGrouping", 10000.}], Cell[1096026, 27559, 298, 5, 41, "Output",ExpressionUUID->"060682c3-d90b-4d91-8fc0-9f7d8ec18e20"], Cell[1096327, 27566, 298, 5, 41, "Output",ExpressionUUID->"97623a37-ddd2-474b-b9b8-4d8b5ebfd397"], Cell[1096628, 27573, 298, 5, 41, "Output",ExpressionUUID->"d3a6cf98-42e9-42eb-9944-cb4b340a58fb"], Cell[CellGroupData[{ Cell[1096951, 27582, 737, 18, 85, "Input",ExpressionUUID->"9d57fc64-e049-4c14-92db-b0c63ddc2b05"], Cell[1097691, 27602, 321, 5, 41, "Output",ExpressionUUID->"15f1c4ff-8b15-494a-a204-ef456f8f5d10"], Cell[1098015, 27609, 321, 5, 41, "Output",ExpressionUUID->"71511f88-f8a9-436a-9531-33eb695d62ec"], Cell[1098339, 27616, 321, 5, 41, "Output",ExpressionUUID->"ea236303-9b23-41ff-be6a-e190f344aede"] }, Open ]], Cell[CellGroupData[{ Cell[1098697, 27626, 1408, 35, 181, "Input",ExpressionUUID->"ad18bfcf-024b-471d-8df3-99340662b3c6"], Cell[1100108, 27663, 538, 9, 41, "Output",ExpressionUUID->"42d61bd7-2863-442f-8808-1dfd8ea82de6"], Cell[1100649, 27674, 540, 9, 41, "Output",ExpressionUUID->"e20ff66c-9e5e-48cc-90e4-2756e4b65a71"], Cell[1101192, 27685, 540, 9, 41, "Output",ExpressionUUID->"397dd485-b1b7-4c9d-951a-c40f6dc67876"], Cell[1101735, 27696, 540, 9, 41, "Output",ExpressionUUID->"fc58589d-4bdf-4787-ad97-959a3a512085"], Cell[1102278, 27707, 540, 9, 41, "Output",ExpressionUUID->"b41fc070-6078-4075-b5bb-43ecddf50a80"], Cell[1102821, 27718, 538, 9, 41, "Output",ExpressionUUID->"0343cbc2-b48a-4b2a-b2c5-886ede41b080"] }, Open ]], Cell[CellGroupData[{ Cell[1103396, 27732, 632, 14, 85, "Input",ExpressionUUID->"cab3e4e7-e076-406a-b6ca-86e5220a7f36"], Cell[1104031, 27748, 369, 6, 41, "Output",ExpressionUUID->"1b2345b3-88cf-417d-8dce-175b72ccd43e"], Cell[1104403, 27756, 367, 6, 41, "Output",ExpressionUUID->"da10cd26-4896-4165-bcf5-a1417125015a"], Cell[1104773, 27764, 367, 6, 41, "Output",ExpressionUUID->"fdb388f9-3619-4788-9e11-b371f355c4cb"] }, Open ]], Cell[CellGroupData[{ Cell[1105177, 27775, 765, 18, 85, "Input",ExpressionUUID->"c857b214-3f6e-4ffd-964d-6a80d4b23f1a"], Cell[1105945, 27795, 367, 6, 41, "Output",ExpressionUUID->"1c16bf3a-45e6-4c67-83fd-8e80d05abb70"], Cell[1106315, 27803, 369, 6, 41, "Output",ExpressionUUID->"384a20a5-e3b7-445a-9ca3-668daa46f1b6"], Cell[1106687, 27811, 369, 6, 41, "Output",ExpressionUUID->"4259a0a5-866a-4a45-8710-693bf5182fc4"] }, Open ]], Cell[CellGroupData[{ Cell[1107093, 27822, 825, 19, 85, "Input",ExpressionUUID->"2a690f3f-d932-4702-b6fe-9abcbbe17b79"], Cell[1107921, 27843, 366, 6, 41, "Output",ExpressionUUID->"10be3486-6315-4e6c-b4fc-ed30bda1162c"], Cell[1108290, 27851, 366, 6, 41, "Output",ExpressionUUID->"3bf9600d-769c-4cdf-9ad8-d26a4b2a2d6f"], Cell[1108659, 27859, 366, 6, 41, "Output",ExpressionUUID->"b1865a8a-f0bb-4a64-85ca-4bbd3aa7ba27"] }, Open ]], Cell[CellGroupData[{ Cell[1109062, 27870, 776, 18, 85, "Input",ExpressionUUID->"72abc4e4-8c3e-45b6-b476-25233f6577af"], Cell[1109841, 27890, 373, 6, 41, "Output",ExpressionUUID->"a1e0a8ce-007f-4a30-b32c-542745ab98a7"], Cell[1110217, 27898, 373, 6, 41, "Output",ExpressionUUID->"9483854f-8374-476a-a3ff-cea8cdc987a5"], Cell[1110593, 27906, 373, 6, 41, "Output",ExpressionUUID->"3fe69ea2-a4b7-4581-a076-7772125abc29"] }, Open ]], Cell[CellGroupData[{ Cell[1111003, 27917, 1300, 32, 157, "Input",ExpressionUUID->"4feeeaa7-8ce9-4ba5-a418-7b368b097f5b"], Cell[1112306, 27951, 437, 8, 41, "Output",ExpressionUUID->"38c50b52-aace-4204-a5fd-2de92d1c5511"], Cell[1112746, 27961, 439, 8, 41, "Output",ExpressionUUID->"cceb31b4-5376-487f-a83a-36ede29a5eea"], Cell[1113188, 27971, 439, 8, 41, "Output",ExpressionUUID->"1622dc56-3f8d-4b68-a37e-bf8e439e0f2a"], Cell[1113630, 27981, 439, 8, 41, "Output",ExpressionUUID->"484a3920-6d73-4810-ac45-20f4dc172693"], Cell[1114072, 27991, 439, 8, 41, "Output",ExpressionUUID->"828a99a8-c2ab-4bb6-8001-4c18fc527a43"], Cell[1114514, 28001, 439, 8, 41, "Output",ExpressionUUID->"b1d2ecd3-c1d4-4b3a-a913-6348bec4bfb3"] }, Open ]], Cell[CellGroupData[{ Cell[1114990, 28014, 533, 13, 85, "Input",ExpressionUUID->"40ebb5d7-09da-43bf-9253-8ac46ede29ec"], Cell[1115526, 28029, 367, 6, 41, "Output",ExpressionUUID->"cc3fd007-be6f-4522-a148-692c52ba949c"], Cell[1115896, 28037, 367, 6, 41, "Output",ExpressionUUID->"c5494039-92df-4d97-9a11-41e19b7e2940"], Cell[1116266, 28045, 367, 6, 41, "Output",ExpressionUUID->"6f849d1d-971f-46f6-85b9-c53fd9f1ef06"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[1116682, 28057, 764, 13, 307, "Chapter",ExpressionUUID->"ba516240-f94c-49b2-9eb0-ac068af8a991"], Cell[CellGroupData[{ Cell[1117471, 28074, 2299, 67, 61, "Input",ExpressionUUID->"2cc8b8aa-9cac-4d5d-be45-921c7dfa69c1"], Cell[1119773, 28143, 2559, 81, 75, "Output",ExpressionUUID->"076b9172-249f-42c2-a37e-242ced137fb6"] }, Open ]], Cell[CellGroupData[{ Cell[1122369, 28229, 1677, 51, 36, "Input",ExpressionUUID->"621aac6c-0853-48d3-985f-c795fe831ac4"], Cell[1124049, 28282, 1616, 51, 41, "Output",ExpressionUUID->"f8ad925b-757e-4121-8039-776567c6bad8"] }, Open ]], Cell[CellGroupData[{ Cell[1125702, 28338, 461, 9, 36, "Input",ExpressionUUID->"6178488a-6763-47c9-a85e-1b5cd65c7f88"], Cell[1126166, 28349, 113679, 2604, 1248, "Output",ExpressionUUID->"9d346aa2-49b1-454b-8af5-f2a6452d585a"] }, Closed]], Cell[CellGroupData[{ Cell[1239882, 30958, 259, 6, 30, "Input",ExpressionUUID->"3ade8a56-2de9-43db-b7ab-d814f0804ca1"], Cell[1240144, 30966, 121991, 2769, 1248, "Output",ExpressionUUID->"94d97663-5757-4cfc-aa0a-973eab73a8ba"] }, Closed]], Cell[CellGroupData[{ Cell[1362172, 33740, 266, 6, 30, "Input",ExpressionUUID->"7b3d1bfc-f763-40a1-bd97-00cdd970768d"], Cell[1362441, 33748, 100293, 2321, 1052, "Output",ExpressionUUID->"451fd35d-9395-4049-8d5b-58049b6e923f"] }, Open ]] }, Closed]] }, Open ]] } ] *)