(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 6.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 517539, 13766] NotebookOptionsPosition[ 492898, 13031] NotebookOutlinePosition[ 493303, 13048] CellTagsIndexPosition[ 493260, 13045] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Lie algebra calculations", "Title", CellChangeTimes->{{3.428101159955854*^9, 3.4281011714223423`*^9}, { 3.4281082256661763`*^9, 3.42810823136528*^9}, {3.45220437525616*^9, 3.4522043824765425`*^9}}], Cell["\<\ This book has basic calculations with the Lie algebra definitions\ \>", "Text", CellChangeTimes->{{3.429127252574168*^9, 3.4291272888963966`*^9}, { 3.4522041199190035`*^9, 3.452204132286787*^9}, {3.452204410817294*^9, 3.4522044216228323`*^9}}], Cell[CellGroupData[{ Cell["General Algebra", "Section", CellChangeTimes->{{3.4281011894382477`*^9, 3.4281012112596254`*^9}, { 3.4291092659052315`*^9, 3.429109267137384*^9}, {3.4522029983162174`*^9, 3.452203012426507*^9}, {3.4537236938383503`*^9, 3.4537236950844755`*^9}}], Cell[BoxData[""], "Input", CellChangeTimes->{{3.45373448029193*^9, 3.453734481568058*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"aa", "=", RowBox[{"TestJacobi", "[", RowBox[{ SubscriptBox["l", "g"], ",", RowBox[{"{", "}"}], ",", RowBox[{"GeneralAlgebraBasis", "[", RowBox[{"{", "i", "}"}], "]"}], ",", RowBox[{"GeneralAlgebraBasis", "[", RowBox[{"{", "j", "}"}], "]"}], ",", RowBox[{"GeneralAlgebraBasis", "[", RowBox[{"{", "k", "}"}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.452207455555413*^9, 3.4522076011848173`*^9}, { 3.4523463198570504`*^9, 3.452346337892985*^9}, {3.4535536248042326`*^9, 3.4535536526370153`*^9}, {3.453553934003241*^9, 3.453553935680241*^9}, { 3.453554415558305*^9, 3.453554490261774*^9}, {3.4535545355693045`*^9, 3.4535545769634438`*^9}, 3.453554938317187*^9, 3.453586697362*^9, { 3.4536449845181074`*^9, 3.453644998322488*^9}, {3.453645098967551*^9, 3.453645100135668*^9}, {3.4536552963711987`*^9, 3.453655300409603*^9}, { 3.453723914035368*^9, 3.4537239501879826`*^9}, {3.4537240258425474`*^9, 3.4537240490998735`*^9}, {3.4628067099415255`*^9, 3.4628067701145425`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ SubscriptBox["X", "i"], ",", SubscriptBox["X", "j"], ",", SubscriptBox["X", "k"], ",", RowBox[{ RowBox[{ SubscriptBox["X", "r"], " ", SubsuperscriptBox["c", RowBox[{"i", ",", "r"}], "r"], " ", SubsuperscriptBox["c", RowBox[{"j", ",", "k"}], "r"]}], "+", RowBox[{ SubscriptBox["X", "r"], " ", SubsuperscriptBox["c", RowBox[{"j", ",", "r"}], "r"], " ", SubsuperscriptBox["c", RowBox[{"k", ",", "i"}], "r"]}], "+", RowBox[{ SubscriptBox["X", "r"], " ", SubsuperscriptBox["c", RowBox[{"i", ",", "j"}], "r"], " ", SubsuperscriptBox["c", RowBox[{"k", ",", "r"}], "r"]}]}]}], "}"}], "}"}]], "Output", CellChangeTimes->{ 3.453724049799943*^9, 3.4537241006780305`*^9, 3.453762895179*^9, 3.455617712005498*^9, 3.462806574218177*^9, {3.462806702216753*^9, 3.462806771061637*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "General Linear ", Cell[BoxData[ FormBox[ RowBox[{"\[ScriptCapitalG]\[ScriptCapitalL]", "(", RowBox[{"n", ",", "\[DoubleStruckCapitalR]"}], ")"}], TraditionalForm]], "None", FormatType->"TraditionalForm"] }], "Section", CellChangeTimes->{{3.4281011894382477`*^9, 3.4281012112596254`*^9}, { 3.4291092659052315`*^9, 3.429109267137384*^9}, {3.4522029983162174`*^9, 3.452203012426507*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["l", "gl"], "[", RowBox[{ SubsuperscriptBox["\[CapitalEpsilon]", "i", "j"], ",", SubsuperscriptBox["\[CapitalEpsilon]", "l", "k"]}], "]"}]], "Input", CellChangeTimes->{{3.4522047091763134`*^9, 3.4522047464999824`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SubsuperscriptBox["\[Delta]", "l", "j"], " ", SubsuperscriptBox["\[CapitalEpsilon]", "i", "k"]}], "-", RowBox[{ SubsuperscriptBox["\[Delta]", "i", "k"], " ", SubsuperscriptBox["\[CapitalEpsilon]", "l", "j"]}]}]], "Output", CellChangeTimes->{ 3.453242348983621*^9, 3.4532423887876215`*^9, 3.453242464175621*^9, { 3.453483587819791*^9, 3.453483590550064*^9}, 3.4535532905668125`*^9, 3.453586592124*^9, 3.453645049709626*^9, 3.4556177127415714`*^9, 3.462806836390169*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TestJacobiReturn", "[", RowBox[{ SubscriptBox["l", "gl"], ",", RowBox[{"{", "}"}], ",", RowBox[{"GeneralLinearBasis", "[", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}], "]"}], ",", RowBox[{"GeneralLinearBasis", "[", RowBox[{"{", RowBox[{"k", ",", "l"}], "}"}], "]"}], ",", RowBox[{"GeneralLinearBasis", "[", RowBox[{"{", RowBox[{"m", ",", "n"}], "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.452207455555413*^9, 3.4522076011848173`*^9}, { 3.4523463198570504`*^9, 3.452346337892985*^9}, {3.462806849279458*^9, 3.4628068984693766`*^9}}], Cell[BoxData[ RowBox[{"{", "}"}]], "Output", CellChangeTimes->{{3.4628068400495353`*^9, 3.462806859546485*^9}, { 3.4628068928908186`*^9, 3.4628068996914988`*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Orthogonal", "Section", CellChangeTimes->{{3.4281011894382477`*^9, 3.4281012112596254`*^9}, { 3.4291092659052315`*^9, 3.429109267137384*^9}, {3.4522048876329217`*^9, 3.4522048976673503`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"orthogonalBasisRule", " ", "=", RowBox[{"{", RowBox[{ SubscriptBox["J", RowBox[{"i_", ",", "j_"}]], "\[RuleDelayed]", " ", RowBox[{ RowBox[{ SubscriptBox["\[Delta]", RowBox[{"j", ",", "m"}]], SubsuperscriptBox["\[CapitalEpsilon]", "i", "m"]}], "-", RowBox[{ SubscriptBox["\[Delta]", RowBox[{"i", ",", "m"}]], SubsuperscriptBox["\[CapitalEpsilon]", "j", "m"]}]}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.452204901342635*^9, 3.452205017639862*^9}, { 3.452205104334523*^9, 3.452205110243019*^9}, {3.452205198079322*^9, 3.4522052073025837`*^9}, {3.452205329057659*^9, 3.4522053342851763`*^9}, { 3.4522069041525345`*^9, 3.45220690965044*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"l", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["\[Delta]", RowBox[{"i", ",", "m"}]]}], SubsuperscriptBox["\[CapitalEpsilon]", "j", "m"]}], "+", RowBox[{ SubscriptBox["\[Delta]", RowBox[{"j", ",", "m"}]], SubsuperscriptBox["\[CapitalEpsilon]", "i", "m"]}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["\[Delta]", RowBox[{"k", ",", "n"}]]}], SubsuperscriptBox["\[CapitalEpsilon]", "l", "n"]}], "+", RowBox[{ SubscriptBox["\[Delta]", RowBox[{"l", ",", "n"}]], SubsuperscriptBox["\[CapitalEpsilon]", "k", "n"]}]}]}], "]"}], "//.", "GeneralLinearAlgebraRules"}]], "Input", CellChangeTimes->{{3.4522050371979856`*^9, 3.4522050769751825`*^9}, { 3.452205121208787*^9, 3.452205138723973*^9}, {3.452205172142026*^9, 3.4522051803938913`*^9}, {3.452205215864896*^9, 3.452205272967005*^9}, { 3.4522054403476863`*^9, 3.452205552128419*^9}, {3.452205608849981*^9, 3.4522056092004848`*^9}, {3.452205667133789*^9, 3.4522056759464607`*^9}, { 3.452205778574032*^9, 3.4522057950777636`*^9}, {3.4522069619256077`*^9, 3.452206971569475*^9}, {3.453484223348342*^9, 3.453484225335541*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", SubsuperscriptBox["\[CapitalEpsilon]", "l", "m"]}], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "m"}]], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "k"}]]}], "+", RowBox[{ SubsuperscriptBox["\[CapitalEpsilon]", "k", "m"], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "m"}]], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "l"}]]}], "+", RowBox[{ SubsuperscriptBox["\[CapitalEpsilon]", "l", "m"], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "m"}]]}], "-", RowBox[{ SubsuperscriptBox["\[CapitalEpsilon]", "k", "m"], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "l"}]], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "m"}]]}], "+", RowBox[{ SubsuperscriptBox["\[CapitalEpsilon]", "j", "n"], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "l"}]], " ", SubscriptBox["\[Delta]", RowBox[{"k", ",", "n"}]]}], "-", RowBox[{ SubsuperscriptBox["\[CapitalEpsilon]", "i", "n"], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "l"}]], " ", SubscriptBox["\[Delta]", RowBox[{"k", ",", "n"}]]}], "-", RowBox[{ SubsuperscriptBox["\[CapitalEpsilon]", "j", "n"], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]], " ", SubscriptBox["\[Delta]", RowBox[{"l", ",", "n"}]]}], "+", RowBox[{ SubsuperscriptBox["\[CapitalEpsilon]", "i", "n"], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "k"}]], " ", SubscriptBox["\[Delta]", RowBox[{"l", ",", "n"}]]}]}]], "Output", CellChangeTimes->{{3.4522052431841793`*^9, 3.4522052739584303`*^9}, { 3.452205342226595*^9, 3.4522053485757246`*^9}, {3.4522054769302893`*^9, 3.452205537577496*^9}, 3.4522056101718817`*^9, 3.452205678229744*^9, { 3.452205783451045*^9, 3.4522057959390016`*^9}, 3.4522067568907824`*^9, 3.4522069127448893`*^9, 3.4522069755552063`*^9, 3.452207065224144*^9, 3.452346207114935*^9, 3.4523464701731944`*^9, 3.4530657855760145`*^9, 3.4530658670832157`*^9, 3.453068975623077*^9, 3.453242247925621*^9, 3.4532424644616213`*^9, 3.4534835907080793`*^9, 3.4534842264116488`*^9, 3.4535532907168274`*^9, 3.453645049997655*^9, 3.4556177136506624`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["l", "so"], "[", RowBox[{ SubscriptBox["J", RowBox[{"i", ",", "j"}]], ",", SubscriptBox["J", RowBox[{"k", ",", "l"}]]}], "]"}]], "Input", CellChangeTimes->{{3.4522064444415026`*^9, 3.4522064677450113`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["J", RowBox[{"j", ",", "l"}]]}], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]]}], "+", RowBox[{ SubscriptBox["J", RowBox[{"j", ",", "k"}]], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "l"}]]}], "+", RowBox[{ SubscriptBox["J", RowBox[{"i", ",", "l"}]], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "k"}]]}], "-", RowBox[{ SubscriptBox["J", RowBox[{"i", ",", "k"}]], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "l"}]]}]}]], "Output", CellChangeTimes->{3.452206470519*^9, 3.452206756960883*^9, 3.452206912794962*^9, 3.452206975625307*^9, 3.452207065314274*^9, 3.452346207165007*^9, 3.4523464702232666`*^9, 3.453065785636101*^9, 3.453065867123274*^9, 3.45306897565312*^9, 3.453242248148621*^9, 3.453242464519621*^9, 3.4534835907490835`*^9, 3.4535532907618318`*^9, 3.453645050032658*^9, 3.4556177137826757`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["l", "so"], "[", RowBox[{ SubscriptBox["J", RowBox[{"i", ",", "j"}]], ",", SubscriptBox["J", RowBox[{"k", ",", "l"}]]}], "]"}], "//.", "orthogonalBasisRule"}], "//.", "generalRules"}]], "Input", CellChangeTimes->{{3.4522064444415026`*^9, 3.4522065220531025`*^9}, 3.452206616909499*^9, {3.4522066491758957`*^9, 3.4522066762948914`*^9}, { 3.452206762328602*^9, 3.4522067650825615`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", SubsuperscriptBox["\[CapitalEpsilon]", "l", "m"]}], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "m"}]], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "k"}]]}], "+", RowBox[{ SubsuperscriptBox["\[CapitalEpsilon]", "k", "m"], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "m"}]], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "l"}]]}], "+", RowBox[{ SubsuperscriptBox["\[CapitalEpsilon]", "l", "m"], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "m"}]]}], "-", RowBox[{ SubsuperscriptBox["\[CapitalEpsilon]", "k", "m"], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "l"}]], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "m"}]]}], "+", RowBox[{ SubsuperscriptBox["\[CapitalEpsilon]", "j", "m"], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "l"}]], " ", SubscriptBox["\[Delta]", RowBox[{"k", ",", "m"}]]}], "-", RowBox[{ SubsuperscriptBox["\[CapitalEpsilon]", "i", "m"], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "l"}]], " ", SubscriptBox["\[Delta]", RowBox[{"k", ",", "m"}]]}], "-", RowBox[{ SubsuperscriptBox["\[CapitalEpsilon]", "j", "m"], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]], " ", SubscriptBox["\[Delta]", RowBox[{"l", ",", "m"}]]}], "+", RowBox[{ SubsuperscriptBox["\[CapitalEpsilon]", "i", "m"], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "k"}]], " ", SubscriptBox["\[Delta]", RowBox[{"l", ",", "m"}]]}]}]], "Output", CellChangeTimes->{{3.4522064993104*^9, 3.452206522954398*^9}, 3.4522066179910545`*^9, {3.4522066554749537`*^9, 3.452206678397915*^9}, { 3.452206757010955*^9, 3.4522067659938717`*^9}, 3.452206912875077*^9, 3.4522069756853933`*^9, 3.4522070653843746`*^9, 3.4523462072150793`*^9, 3.452346470263324*^9, 3.4530657857062016`*^9, 3.4530658671733456`*^9, 3.453068975673149*^9, 3.4532422483676214`*^9, 3.453242464583621*^9, 3.4534835907870874`*^9, 3.4535532908358393`*^9, 3.4536450500656614`*^9, 3.4556177138726845`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["l", "l"], "[", RowBox[{ SubscriptBox["L", RowBox[{"a", ",", "b"}]], ",", SubscriptBox["L", RowBox[{"c", ",", "d"}]]}], "]"}]], "Input", CellChangeTimes->{{3.4522064444415026`*^9, 3.4522064677450113`*^9}, { 3.4522073219232593`*^9, 3.4522073310163345`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["L", RowBox[{"b", ",", "d"}]]}], " ", SubscriptBox["\[Eta]", RowBox[{"a", ",", "c"}]]}], "+", RowBox[{ SubscriptBox["L", RowBox[{"b", ",", "c"}]], " ", SubscriptBox["\[Eta]", RowBox[{"a", ",", "d"}]]}], "+", RowBox[{ SubscriptBox["L", RowBox[{"a", ",", "d"}]], " ", SubscriptBox["\[Eta]", RowBox[{"b", ",", "c"}]]}], "-", RowBox[{ SubscriptBox["L", RowBox[{"a", ",", "c"}]], " ", SubscriptBox["\[Eta]", RowBox[{"b", ",", "d"}]]}]}]], "Output", CellChangeTimes->{{3.4522073402295823`*^9, 3.4522073610695486`*^9}, 3.4523462072551365`*^9, 3.452346470303382*^9, 3.453065785736245*^9, 3.4530658672234173`*^9, 3.4530689757031918`*^9, 3.453242248623621*^9, 3.453242464647621*^9, 3.4534835908230915`*^9, 3.453553290906846*^9, 3.4536450500926642`*^9, 3.4556177139606934`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"gr", "=", RowBox[{"Flatten", "[", RowBox[{"{", RowBox[{"generalRules", ",", "OrthogonalSymmetryRules"}], "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.462807351160641*^9, 3.4628073868372087`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["l", "so"], "[", RowBox[{ RowBox[{ SubscriptBox["J", RowBox[{"i", ",", "j"}]], "\[CenterDot]", SubscriptBox["J", RowBox[{"m", ",", "i"}]]}], ",", SubscriptBox["J", RowBox[{"k", ",", "l"}]]}], "]"}], "//.", "gr"}]], "Input", CellChangeTimes->{{3.4522064444415026`*^9, 3.4522065220531025`*^9}, 3.452206616909499*^9, {3.4522066491758957`*^9, 3.4522066762948914`*^9}, { 3.452206762328602*^9, 3.4522067650825615`*^9}, {3.4628071802125483`*^9, 3.4628072034508715`*^9}, {3.462807260020528*^9, 3.4628072721497407`*^9}, { 3.462807306417167*^9, 3.462807329455471*^9}, 3.46280737225375*^9, { 3.46280741156813*^9, 3.46280742668913*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ SubscriptBox["J", RowBox[{"i", ",", "l"}]], "\[CenterDot]", SubscriptBox["J", RowBox[{"i", ",", "m"}]]}], ")"}]}], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "k"}]]}], "+", RowBox[{ RowBox[{ SubscriptBox["J", RowBox[{"i", ",", "k"}]], "\[CenterDot]", SubscriptBox["J", RowBox[{"i", ",", "m"}]]}], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "l"}]]}], "-", RowBox[{ RowBox[{ SubscriptBox["J", RowBox[{"i", ",", "j"}]], "\[CenterDot]", SubscriptBox["J", RowBox[{"i", ",", "l"}]]}], " ", SubscriptBox["\[Delta]", RowBox[{"k", ",", "m"}]]}], "+", RowBox[{ RowBox[{ SubscriptBox["J", RowBox[{"i", ",", "j"}]], "\[CenterDot]", SubscriptBox["J", RowBox[{"i", ",", "k"}]]}], " ", SubscriptBox["\[Delta]", RowBox[{"l", ",", "m"}]]}]}]], "Output", CellChangeTimes->{ 3.4628072062551517`*^9, 3.4628073324127665`*^9, {3.4628073760711317`*^9, 3.4628074277821302`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TestJacobi", "[", RowBox[{ SubscriptBox["l", "so"], ",", RowBox[{"{", "OrthogonalSymmetryRules", "}"}], ",", RowBox[{"OrthogonalBasis", "[", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}], "]"}], ",", RowBox[{"OrthogonalBasis", "[", RowBox[{"{", RowBox[{"k", ",", "l"}], "}"}], "]"}], ",", RowBox[{"OrthogonalBasis", "[", RowBox[{"{", RowBox[{"m", ",", "n"}], "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.452207455555413*^9, 3.4522075712417617`*^9}, { 3.4523464546208315`*^9, 3.4523464669986296`*^9}, 3.452346697406766*^9}], Cell[BoxData[ RowBox[{"{", "}"}]], "Output", CellChangeTimes->{3.4628069877153*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TestJacobi", "[", RowBox[{ SubscriptBox["l", "l"], ",", RowBox[{"{", "LorentzSymmetryRules", "}"}], ",", RowBox[{"LorentzBasis", "[", RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}], "]"}], ",", RowBox[{"LorentzBasis", "[", RowBox[{"{", RowBox[{"c", ",", "d"}], "}"}], "]"}], ",", RowBox[{"LorentzBasis", "[", RowBox[{"{", RowBox[{"e", ",", "f"}], "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.452207455555413*^9, 3.452207509743331*^9}, { 3.452346948902513*^9, 3.452346978775468*^9}}], Cell[BoxData[ RowBox[{"{", "}"}]], "Output", CellChangeTimes->{3.462806987844313*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Symplectic", "Section", CellChangeTimes->{{3.4281011894382477`*^9, 3.4281012112596254`*^9}, { 3.4291092659052315`*^9, 3.429109267137384*^9}, {3.4522048876329217`*^9, 3.4522048976673503`*^9}, {3.4522081455175295`*^9, 3.4522081474302797`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"symplecticBasisRule", " ", "=", RowBox[{"{", RowBox[{ SubscriptBox["W", RowBox[{"\[Alpha]_", ",", "\[Beta]_"}]], "\[RuleDelayed]", " ", RowBox[{ RowBox[{ SubscriptBox["\[Zeta]", RowBox[{"\[Alpha]", ",", "\[Gamma]"}]], SubsuperscriptBox["\[CapitalEpsilon]", "\[Beta]", "\[Gamma]"]}], "+", RowBox[{ SubscriptBox["\[Zeta]", RowBox[{"\[Beta]", ",", "\[Gamma]"}]], SubsuperscriptBox["\[CapitalEpsilon]", "\[Alpha]", "\[Gamma]"]}]}]}], " ", "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.452204901342635*^9, 3.452205017639862*^9}, { 3.452205104334523*^9, 3.452205110243019*^9}, {3.452205198079322*^9, 3.4522052073025837`*^9}, {3.452205329057659*^9, 3.4522053342851763`*^9}, { 3.4522069041525345`*^9, 3.45220690965044*^9}, {3.4522081597379775`*^9, 3.452208196230451*^9}, {3.452208231951816*^9, 3.4522082820338306`*^9}, 3.452209038691851*^9}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"symplecticBasist", "[", RowBox[{"\[Alpha]_", ",", "\[Beta]_", ",", "\[Gamma]_"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{ SubscriptBox["\[Zeta]", RowBox[{"\[Alpha]", ",", "\[Gamma]"}]], SubsuperscriptBox["\[CapitalEpsilon]", "\[Beta]", "\[Gamma]"]}], "+", RowBox[{ SubscriptBox["\[Zeta]", RowBox[{"\[Beta]", ",", "\[Gamma]"}]], SubsuperscriptBox["\[CapitalEpsilon]", "\[Alpha]", "\[Gamma]"]}]}]}], " ", ";"}]], "Input", CellChangeTimes->{{3.452204901342635*^9, 3.452205017639862*^9}, { 3.452205104334523*^9, 3.452205110243019*^9}, {3.452205198079322*^9, 3.4522052073025837`*^9}, {3.452205329057659*^9, 3.4522053342851763`*^9}, { 3.4522069041525345`*^9, 3.45220690965044*^9}, {3.4522081597379775`*^9, 3.452208196230451*^9}, {3.452208231951816*^9, 3.4522082820338306`*^9}, { 3.4522083243646994`*^9, 3.452208356651125*^9}, {3.452209041145379*^9, 3.452209043088173*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"l", "[", RowBox[{ RowBox[{"symplecticBasist", "[", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], "]"}], ",", RowBox[{"symplecticBasist", "[", RowBox[{"\[Kappa]", ",", "\[Delta]", ",", "\[Epsilon]"}], "]"}]}], "]"}], "//.", "GeneralLinearAlgebraRules"}], "//.", RowBox[{"{", RowBox[{"\[Epsilon]", "\[RuleDelayed]", "\[Gamma]"}], "}"}]}], "//.", RowBox[{"{", RowBox[{ SubscriptBox["\[Zeta]", RowBox[{"\[Gamma]", ",", "\[Alpha]_"}]], "\[RuleDelayed]", RowBox[{"-", SubscriptBox["\[Zeta]", RowBox[{"\[Alpha]", ",", "\[Gamma]"}]]}]}], "}"}]}]], "Input", CellChangeTimes->{{3.4522050371979856`*^9, 3.4522050769751825`*^9}, { 3.452205121208787*^9, 3.452205138723973*^9}, {3.452205172142026*^9, 3.4522051803938913`*^9}, {3.452205215864896*^9, 3.452205272967005*^9}, { 3.4522054403476863`*^9, 3.452205552128419*^9}, {3.452205608849981*^9, 3.4522056092004848`*^9}, {3.452205667133789*^9, 3.4522056759464607`*^9}, { 3.452205778574032*^9, 3.4522057950777636`*^9}, {3.4522069619256077`*^9, 3.452206971569475*^9}, {3.4522083776913795`*^9, 3.452208408425573*^9}, { 3.452210343287768*^9, 3.452210403844845*^9}, {3.453483658347843*^9, 3.4534836597109795`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SubsuperscriptBox["\[CapitalEpsilon]", "\[Kappa]", "\[Gamma]"], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Alpha]", ",", "\[Delta]"}]], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Beta]", ",", "\[Gamma]"}]]}], "+", RowBox[{ SubsuperscriptBox["\[CapitalEpsilon]", "\[Delta]", "\[Gamma]"], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Alpha]", ",", "\[Kappa]"}]], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Beta]", ",", "\[Gamma]"}]]}], "+", RowBox[{ SubsuperscriptBox["\[CapitalEpsilon]", "\[Kappa]", "\[Gamma]"], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Alpha]", ",", "\[Gamma]"}]], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Beta]", ",", "\[Delta]"}]]}], "+", RowBox[{ SubsuperscriptBox["\[CapitalEpsilon]", "\[Delta]", "\[Gamma]"], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Alpha]", ",", "\[Gamma]"}]], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Beta]", ",", "\[Kappa]"}]]}], "+", RowBox[{ SubsuperscriptBox["\[CapitalEpsilon]", "\[Beta]", "\[Gamma]"], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Alpha]", ",", "\[Kappa]"}]], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Delta]", ",", "\[Gamma]"}]]}], "+", RowBox[{ SubsuperscriptBox["\[CapitalEpsilon]", "\[Alpha]", "\[Gamma]"], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Beta]", ",", "\[Kappa]"}]], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Delta]", ",", "\[Gamma]"}]]}], "+", RowBox[{ SubsuperscriptBox["\[CapitalEpsilon]", "\[Beta]", "\[Gamma]"], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Alpha]", ",", "\[Delta]"}]], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Kappa]", ",", "\[Gamma]"}]]}], "+", RowBox[{ SubsuperscriptBox["\[CapitalEpsilon]", "\[Alpha]", "\[Gamma]"], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Beta]", ",", "\[Delta]"}]], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Kappa]", ",", "\[Gamma]"}]]}]}]], "Output", CellChangeTimes->{ 3.4522103938004017`*^9, 3.4523464707039576`*^9, 3.4530657923157053`*^9, 3.453065867513835*^9, 3.4530689759635663`*^9, 3.4532422497546215`*^9, 3.4532424652776213`*^9, 3.453483591254134*^9, {3.4534836609541035`*^9, 3.4534836689038982`*^9}, 3.453553291363892*^9, 3.453645051114766*^9, 3.4556177145027475`*^9}] }, Open ]], Cell["}", "TextNoIndent", CellChangeTimes->{3.4522103880921936`*^9}], Cell[BoxData[ RowBox[{ RowBox[{ SubsuperscriptBox["\[CapitalEpsilon]", "\[Kappa]", "\[Gamma]"], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Alpha]", ",", "\[Delta]"}]], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Beta]", ",", "\[Gamma]"}]]}], "+", RowBox[{ SubsuperscriptBox["\[CapitalEpsilon]", "\[Delta]", "\[Gamma]"], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Alpha]", ",", "\[Kappa]"}]], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Beta]", ",", "\[Gamma]"}]]}], "+", RowBox[{ SubsuperscriptBox["\[CapitalEpsilon]", "\[Kappa]", "\[Gamma]"], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Alpha]", ",", "\[Gamma]"}]], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Beta]", ",", "\[Delta]"}]]}], "+", RowBox[{ SubsuperscriptBox["\[CapitalEpsilon]", "\[Delta]", "\[Gamma]"], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Alpha]", ",", "\[Gamma]"}]], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Beta]", ",", "\[Kappa]"}]]}], "+", RowBox[{ SubsuperscriptBox["\[CapitalEpsilon]", "\[Beta]", "\[Epsilon]"], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Alpha]", ",", "\[Kappa]"}]], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Delta]", ",", "\[Epsilon]"}]]}], "+", RowBox[{ SubsuperscriptBox["\[CapitalEpsilon]", "\[Alpha]", "\[Epsilon]"], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Beta]", ",", "\[Kappa]"}]], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Delta]", ",", "\[Epsilon]"}]]}], "-", RowBox[{ SubsuperscriptBox["\[CapitalEpsilon]", "\[Beta]", "\[Epsilon]"], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Alpha]", ",", "\[Delta]"}]], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Epsilon]", ",", "\[Kappa]"}]]}], "-", RowBox[{ SubsuperscriptBox["\[CapitalEpsilon]", "\[Alpha]", "\[Epsilon]"], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Beta]", ",", "\[Delta]"}]], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Epsilon]", ",", "\[Kappa]"}]]}]}]], "Output", CellChangeTimes->{3.4522102390478783`*^9, 3.4522102801269474`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[Zeta]", RowBox[{"\[Alpha]", ",", "\[Delta]"}]], RowBox[{"(", RowBox[{ RowBox[{ SubsuperscriptBox["\[CapitalEpsilon]", "\[Kappa]", "\[Gamma]"], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Beta]", ",", "\[Gamma]"}]]}], "+", RowBox[{ SubsuperscriptBox["\[CapitalEpsilon]", "\[Beta]", "\[Epsilon]"], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Kappa]", ",", "\[Epsilon]"}]]}]}], ")"}]}], "+", RowBox[{ SubscriptBox["\[Zeta]", RowBox[{"\[Alpha]", ",", "\[Kappa]"}]], RowBox[{"(", RowBox[{ RowBox[{ SubsuperscriptBox["\[CapitalEpsilon]", "\[Delta]", "\[Gamma]"], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Beta]", ",", "\[Gamma]"}]]}], "+", RowBox[{ SubsuperscriptBox["\[CapitalEpsilon]", "\[Beta]", "\[Epsilon]"], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Delta]", ",", "\[Epsilon]"}]]}]}], ")"}]}], "+", RowBox[{ SubscriptBox["\[Zeta]", RowBox[{"\[Beta]", ",", "\[Delta]"}]], RowBox[{"(", RowBox[{ RowBox[{ SubsuperscriptBox["\[CapitalEpsilon]", "\[Kappa]", "\[Gamma]"], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Alpha]", ",", "\[Gamma]"}]]}], " ", "+", RowBox[{ SubsuperscriptBox["\[CapitalEpsilon]", "\[Alpha]", "\[Epsilon]"], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Kappa]", ",", "\[Epsilon]"}]]}]}], ")"}]}], "+", RowBox[{ SubscriptBox["\[Zeta]", RowBox[{"\[Beta]", ",", "\[Kappa]"}]], RowBox[{"(", RowBox[{ RowBox[{ SubsuperscriptBox["\[CapitalEpsilon]", "\[Delta]", "\[Gamma]"], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Alpha]", ",", "\[Gamma]"}]]}], " ", "+", RowBox[{ SubsuperscriptBox["\[CapitalEpsilon]", "\[Alpha]", "\[Epsilon]"], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Delta]", ",", "\[Epsilon]"}]]}]}], ")"}]}]}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.452209678962515*^9, 3.4522097016952033`*^9}, { 3.452209741903019*^9, 3.452209748011803*^9}, {3.452209779406947*^9, 3.452209800877821*^9}, {3.4522098343159027`*^9, 3.4522098379010572`*^9}, { 3.4522098683648624`*^9, 3.4522098836668653`*^9}, {3.452209943593035*^9, 3.4522099599465504`*^9}, {3.452210021675312*^9, 3.4522100456497855`*^9}, { 3.4522100854369965`*^9, 3.4522102217129517`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["\[Zeta]", RowBox[{"\[Beta]", ",", "\[Kappa]"}]], " ", RowBox[{"(", RowBox[{ RowBox[{ SubsuperscriptBox["\[CapitalEpsilon]", "\[Delta]", "\[Gamma]"], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Alpha]", ",", "\[Gamma]"}]]}], "+", RowBox[{ SubsuperscriptBox["\[CapitalEpsilon]", "\[Alpha]", "\[Epsilon]"], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Delta]", ",", "\[Epsilon]"}]]}]}], ")"}]}], "+", RowBox[{ SubscriptBox["\[Zeta]", RowBox[{"\[Alpha]", ",", "\[Kappa]"}]], " ", RowBox[{"(", RowBox[{ RowBox[{ SubsuperscriptBox["\[CapitalEpsilon]", "\[Delta]", "\[Gamma]"], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Beta]", ",", "\[Gamma]"}]]}], "+", RowBox[{ SubsuperscriptBox["\[CapitalEpsilon]", "\[Beta]", "\[Epsilon]"], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Delta]", ",", "\[Epsilon]"}]]}]}], ")"}]}], "+", RowBox[{ SubscriptBox["\[Zeta]", RowBox[{"\[Beta]", ",", "\[Delta]"}]], " ", RowBox[{"(", RowBox[{ RowBox[{ SubsuperscriptBox["\[CapitalEpsilon]", "\[Kappa]", "\[Gamma]"], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Alpha]", ",", "\[Gamma]"}]]}], "+", RowBox[{ SubsuperscriptBox["\[CapitalEpsilon]", "\[Alpha]", "\[Epsilon]"], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Kappa]", ",", "\[Epsilon]"}]]}]}], ")"}]}], "+", RowBox[{ SubscriptBox["\[Zeta]", RowBox[{"\[Alpha]", ",", "\[Delta]"}]], " ", RowBox[{"(", RowBox[{ RowBox[{ SubsuperscriptBox["\[CapitalEpsilon]", "\[Kappa]", "\[Gamma]"], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Beta]", ",", "\[Gamma]"}]]}], "+", RowBox[{ SubsuperscriptBox["\[CapitalEpsilon]", "\[Beta]", "\[Epsilon]"], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Kappa]", ",", "\[Epsilon]"}]]}]}], ")"}]}]}]], "Output", CellChangeTimes->{3.452210239138008*^9, 3.4522102802070627`*^9, 3.452346470744015*^9, 3.453065792375792*^9, 3.4530658675438786`*^9, 3.4530689759936094`*^9, 3.453242250170621*^9, 3.4532424653396215`*^9, 3.4534835912751365`*^9, 3.4534836689449024`*^9, 3.4535532914999056`*^9, 3.453645051274782*^9, 3.455617714735771*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["l", "sp"], "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Alpha]", ",", "\[Beta]"}]], ",", SubscriptBox["W", RowBox[{"\[Kappa]", ",", "\[Delta]"}]]}], "]"}]], "Input", CellChangeTimes->{{3.4522064444415026`*^9, 3.4522065220531025`*^9}, 3.452206616909499*^9, {3.4522066491758957`*^9, 3.4522066762948914`*^9}, { 3.452206762328602*^9, 3.4522067650825615`*^9}, {3.452208433952278*^9, 3.4522084693832254`*^9}, 3.452208512174757*^9, {3.4522085943829665`*^9, 3.4522086123588142`*^9}, {3.452208655861368*^9, 3.452208669791398*^9}, { 3.452208713594384*^9, 3.452208724880613*^9}, {3.4522087751829443`*^9, 3.4522087874706125`*^9}, 3.452209006545627*^9, {3.4522094895000815`*^9, 3.452209513915189*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["W", RowBox[{"\[Beta]", ",", "\[Kappa]"}]], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Alpha]", ",", "\[Delta]"}]]}], "+", RowBox[{ SubscriptBox["W", RowBox[{"\[Beta]", ",", "\[Delta]"}]], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Alpha]", ",", "\[Kappa]"}]]}], "+", RowBox[{ SubscriptBox["W", RowBox[{"\[Alpha]", ",", "\[Kappa]"}]], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Beta]", ",", "\[Delta]"}]]}], "+", RowBox[{ SubscriptBox["W", RowBox[{"\[Alpha]", ",", "\[Delta]"}]], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Beta]", ",", "\[Kappa]"}]]}]}]], "Output", CellChangeTimes->{{3.4522064993104*^9, 3.452206522954398*^9}, 3.4522066179910545`*^9, {3.4522066554749537`*^9, 3.452206678397915*^9}, { 3.452206757010955*^9, 3.4522067659938717`*^9}, 3.452206912875077*^9, 3.4522069756853933`*^9, 3.4522070653843746`*^9, {3.4522084870285983`*^9, 3.4522085132963696`*^9}, {3.452208564650213*^9, 3.4522085674141874`*^9}, { 3.45220860092237*^9, 3.452208613270125*^9}, {3.452208647519373*^9, 3.4522087255315485`*^9}, {3.452208783274579*^9, 3.452208790144458*^9}, { 3.452209002009104*^9, 3.4522090077473555`*^9}, 3.4522090489365826`*^9, 3.452209351762024*^9, 3.452209405639496*^9, 3.452209463202267*^9, { 3.452209502208355*^9, 3.4522095405134354`*^9}, 3.452209587300712*^9, 3.4522096302424593`*^9, 3.4522096614974017`*^9, 3.4522102392782097`*^9, 3.452210280377307*^9, 3.4523464707740583`*^9, 3.4530657924158497`*^9, 3.4530658675739217`*^9, 3.4530689760136385`*^9, 3.453242250394621*^9, 3.453242465399621*^9, 3.4534835912971387`*^9, 3.4534836689819064`*^9, 3.4535532915759134`*^9, 3.4536450513637915`*^9, 3.455617714882786*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["l", "sp"], "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Alpha]", ",", "\[Beta]"}]], ",", SubscriptBox["W", RowBox[{"\[Kappa]", ",", "\[Delta]"}]]}], "]"}], "//.", "symplecticBasisRule"}], "//.", "generalRules"}], "//.", RowBox[{"{", RowBox[{ SubscriptBox["\[Zeta]", RowBox[{"\[Gamma]", ",", "\[Alpha]_"}]], "\[RuleDelayed]", RowBox[{"-", SubscriptBox["\[Zeta]", RowBox[{"\[Alpha]", ",", "\[Gamma]"}]]}]}], "}"}]}]], "Input", CellChangeTimes->{{3.4522064444415026`*^9, 3.4522065220531025`*^9}, 3.452206616909499*^9, {3.4522066491758957`*^9, 3.4522066762948914`*^9}, { 3.452206762328602*^9, 3.4522067650825615`*^9}, {3.452208433952278*^9, 3.4522084693832254`*^9}, 3.4522104135888557`*^9}], Cell[BoxData[ RowBox[{ RowBox[{ SubsuperscriptBox["\[CapitalEpsilon]", "\[Kappa]", "\[Gamma]"], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Alpha]", ",", "\[Delta]"}]], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Beta]", ",", "\[Gamma]"}]]}], "+", RowBox[{ SubsuperscriptBox["\[CapitalEpsilon]", "\[Delta]", "\[Gamma]"], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Alpha]", ",", "\[Kappa]"}]], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Beta]", ",", "\[Gamma]"}]]}], "+", RowBox[{ SubsuperscriptBox["\[CapitalEpsilon]", "\[Kappa]", "\[Gamma]"], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Alpha]", ",", "\[Gamma]"}]], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Beta]", ",", "\[Delta]"}]]}], "+", RowBox[{ SubsuperscriptBox["\[CapitalEpsilon]", "\[Delta]", "\[Gamma]"], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Alpha]", ",", "\[Gamma]"}]], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Beta]", ",", "\[Kappa]"}]]}], "+", RowBox[{ SubsuperscriptBox["\[CapitalEpsilon]", "\[Beta]", "\[Gamma]"], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Alpha]", ",", "\[Kappa]"}]], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Delta]", ",", "\[Gamma]"}]]}], "+", RowBox[{ SubsuperscriptBox["\[CapitalEpsilon]", "\[Alpha]", "\[Gamma]"], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Beta]", ",", "\[Kappa]"}]], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Delta]", ",", "\[Gamma]"}]]}], "+", RowBox[{ SubsuperscriptBox["\[CapitalEpsilon]", "\[Beta]", "\[Gamma]"], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Alpha]", ",", "\[Delta]"}]], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Kappa]", ",", "\[Gamma]"}]]}], "+", RowBox[{ SubsuperscriptBox["\[CapitalEpsilon]", "\[Alpha]", "\[Gamma]"], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Beta]", ",", "\[Delta]"}]], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Kappa]", ",", "\[Gamma]"}]]}]}]], "Output", CellChangeTimes->{{3.4522064993104*^9, 3.452206522954398*^9}, 3.4522066179910545`*^9, {3.4522066554749537`*^9, 3.452206678397915*^9}, { 3.452206757010955*^9, 3.4522067659938717`*^9}, 3.452206912875077*^9, 3.4522069756853933`*^9, 3.4522070653843746`*^9, 3.4522084870285983`*^9, 3.4522087066944623`*^9, {3.4522090223984222`*^9, 3.4522090490367265`*^9}, 3.452209351852154*^9, 3.4522094057296257`*^9, 3.4522095405935507`*^9, 3.4522095873908415`*^9, 3.4522096303225746`*^9, 3.4522096615775166`*^9, 3.4522102393483105`*^9, 3.4522102804474077`*^9, 3.4522104153814335`*^9, 3.452346470814116*^9, 3.453065792455907*^9, 3.4530658676139793`*^9, 3.4530689760436816`*^9, 3.453242250620621*^9, 3.4532424654646215`*^9, 3.453483591323141*^9, 3.4534836690239105`*^9, 3.453553291736929*^9, 3.4536450514558*^9, 3.455617714971795*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"glceReduceRules", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubsuperscriptBox["\[Delta]", "j_", "r_"], " ", SuperscriptBox[ SubscriptBox["M", RowBox[{"i_", ",", "m_"}]], RowBox[{"j_", " ", ",", "s_", " "}]]}], ":>", SuperscriptBox[ SubscriptBox["M", RowBox[{"i", ",", "m"}]], RowBox[{"r", " ", ",", "s", " "}]]}], ",", RowBox[{ RowBox[{ SubsuperscriptBox["\[Delta]", "j_", "r_"], " ", SuperscriptBox[ SubscriptBox["M", RowBox[{"i_", ",", "m_"}]], RowBox[{"s_", ",", "j_", " "}]]}], ":>", SuperscriptBox[ SubscriptBox["M", RowBox[{"i", ",", "m"}]], RowBox[{"s", ",", "r", " "}]]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ SubsuperscriptBox["\[Delta]", "r_", "i_"], " ", SuperscriptBox[ SubscriptBox["M", RowBox[{"i_", ",", "m_"}]], RowBox[{"j_", " ", ",", "s_", " "}]]}], ":>", SuperscriptBox[ SubscriptBox["M", RowBox[{"r", ",", "m"}]], RowBox[{"j", " ", ",", "s", " "}]]}], ",", RowBox[{ RowBox[{ SubsuperscriptBox["\[Delta]", "r_", "m_"], " ", SuperscriptBox[ SubscriptBox["M", RowBox[{"i_", ",", "m_"}]], RowBox[{"s_", ",", "j_", " "}]]}], ":>", SuperscriptBox[ SubscriptBox["M", RowBox[{"i", ",", "r"}]], RowBox[{"s", ",", "j", " "}]]}], ",", "\[IndentingNewLine]", RowBox[{ SuperscriptBox[ SubscriptBox["M", RowBox[{"i_", ",", "m_"}]], RowBox[{"i_", " ", ",", "s_", " "}]], ":>", SuperscriptBox[ SubscriptBox["M1", "m"], RowBox[{"s", " "}]]}], ",", RowBox[{ SuperscriptBox[ SubscriptBox["M", RowBox[{"i_", ",", "m_"}]], RowBox[{"s_", " ", ",", "i_", " "}]], "\[RuleDelayed]", RowBox[{"-", SuperscriptBox[ SubscriptBox["M1", "m"], RowBox[{"s", " "}]]}]}], ",", "\[IndentingNewLine]", RowBox[{ SuperscriptBox[ SubscriptBox["M", RowBox[{"m_", ",", "i_"}]], RowBox[{"s_", ",", "i_", " "}]], ":>", SuperscriptBox[ SubscriptBox["M1", "m"], RowBox[{"s", " "}]]}], ",", RowBox[{ SuperscriptBox[ SubscriptBox["M", RowBox[{"m_", ",", "i_"}]], RowBox[{"i_", ",", "s_", " "}]], "\[RuleDelayed]", RowBox[{"-", SuperscriptBox[ SubscriptBox["M1", "m"], RowBox[{"s", " "}]]}]}]}], "\[IndentingNewLine]", "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubsuperscriptBox["\[Delta]", "j", "i"], RowBox[{"(", RowBox[{"aa", "[", RowBox[{"[", "1", "]"}], "]"}], ")"}]}], "//.", "generalRules"}], "//.", "glceReduceRules"}]}], "Input", CellChangeTimes->{{3.453586378631*^9, 3.453586578262*^9}, {3.45358661206*^9, 3.4535866945810003`*^9}, {3.453586725907*^9, 3.453586892199*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", SubsuperscriptBox["M1", "m", "l"]}], " ", SubsuperscriptBox["\[Delta]", "k", "n"]}], "+", RowBox[{ SubsuperscriptBox["M1", "k", "n"], " ", SubsuperscriptBox["\[Delta]", "m", "l"]}]}]], "Output", CellChangeTimes->{3.4536450515288076`*^9, 3.455617715065804*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TestJacobi", "[", RowBox[{ SubscriptBox["l", "sp"], ",", RowBox[{"{", "SymplecticSymmetryRules", "}"}], ",", RowBox[{"SymplecticBasis", "[", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}], "]"}], ",", RowBox[{"SymplecticBasis", "[", RowBox[{"{", RowBox[{"k", ",", "l"}], "}"}], "]"}], ",", RowBox[{"SymplecticBasis", "[", RowBox[{"{", RowBox[{"m", ",", "n"}], "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.452207455555413*^9, 3.4522075712417617`*^9}, { 3.452209061324395*^9, 3.4522090785992355`*^9}, {3.452347001898718*^9, 3.4523470149574957`*^9}, 3.452347058980798*^9}], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["W", RowBox[{"i", ",", "j"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["W", RowBox[{"k", ",", "l"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["W", RowBox[{"m", ",", "n"}]], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`W, $CellContext`i, $CellContext`j], ",", Subscript[$CellContext`W, $CellContext`k, $CellContext`l], ",", Subscript[$CellContext`W, $CellContext`m, $CellContext`n], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{3.453242465601621*^9, 3.4534835914481535`*^9, 3.453483669086917*^9, 3.453553291865942*^9, 3.4536450516788225`*^9, 3.455617715206818*^9}], Cell[BoxData["\<\"Done\"\>"], "Print", CellChangeTimes->{3.453242465601621*^9, 3.4534835914481535`*^9, 3.453483669086917*^9, 3.453553291865942*^9, 3.4536450516788225`*^9, 3.4556177152078185`*^9}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Unitary", "Section", CellChangeTimes->{{3.4281011894382477`*^9, 3.4281012112596254`*^9}, { 3.4291092659052315`*^9, 3.429109267137384*^9}}], Cell[CellGroupData[{ Cell["Unitary commutations relations from the orthogonal", "Subsection", CellChangeTimes->{{3.4534873918111567`*^9, 3.4534874073607116`*^9}}], Cell["\<\ These rules show how the unitary basis is given in terms of linear \ combinations of either the orthogonal or symplectic algebras and therefore is \ a subalgebra of both\ \>", "Text", CellChangeTimes->{{3.453487322555232*^9, 3.4534873621881948`*^9}}], Cell[BoxData[""], "Input", CellChangeTimes->{{3.4534873842444*^9, 3.4534873885378294`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"uOrules", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["L1", RowBox[{"a_", ",", "b_", " "}]], ":>", RowBox[{ SubscriptBox["L", RowBox[{"a", ",", "b"}]], "+", SubscriptBox["L", RowBox[{ OverscriptBox["a", "~"], ",", OverscriptBox["b", "~"]}]]}]}], ",", "\[IndentingNewLine]", RowBox[{ SubscriptBox["M", RowBox[{"a_", ",", "b_", " "}]], ":>", RowBox[{ SubscriptBox["L", RowBox[{ OverscriptBox["a", "~"], ",", "b"}]], "-", SubscriptBox["L", RowBox[{"a", ",", OverscriptBox["b", "~"]}]]}]}]}], "\[IndentingNewLine]", "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.4534842897209787`*^9, 3.4534843882238283`*^9}, { 3.453484808162818*^9, 3.4534848407240734`*^9}, {3.453484884113412*^9, 3.453484915034504*^9}, 3.453484991817181*^9, {3.453485199185916*^9, 3.4534852676697636`*^9}, {3.4534853896089563`*^9, 3.453485443578353*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"uOrules2", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ OverscriptBox["a_", "~"], "\[RuleDelayed]", RowBox[{"ta", "[", "a", "]"}]}], ",", RowBox[{ SubscriptBox["\[Eta]", RowBox[{ RowBox[{"ta", "[", "a_", "]"}], ",", RowBox[{"ta", "[", "c_", "]"}]}]], ":>", SubscriptBox["\[Eta]", RowBox[{"a", ",", "c"}]]}], ",", "\[IndentingNewLine]", RowBox[{ SubscriptBox["\[Eta]", RowBox[{"a_", ",", RowBox[{"ta", "[", "c_", "]"}]}]], " ", "\[RuleDelayed]", "0"}], ",", RowBox[{ SubscriptBox["\[Eta]", RowBox[{ RowBox[{"ta", "[", "c_", "]"}], ",", "a_"}]], " ", "\[RuleDelayed]", "0"}], ",", "\[IndentingNewLine]", RowBox[{ SubscriptBox["L", RowBox[{ RowBox[{"ta", "[", "b_", "]"}], ",", RowBox[{"ta", "[", "a_", "]"}]}]], "\[RuleDelayed]", RowBox[{ SubscriptBox["L1", RowBox[{"b", ",", "a"}]], "-", SubscriptBox["L", RowBox[{"b", ",", "a"}]]}]}], ",", "\[IndentingNewLine]", RowBox[{ SubscriptBox["L", RowBox[{ RowBox[{"ta", "[", "a_", "]"}], ",", "b_"}]], ":>", RowBox[{ SubscriptBox["M", RowBox[{"a", ",", "b", " "}]], "+", SubscriptBox["L", RowBox[{"a", ",", RowBox[{"ta", "[", "b", "]"}]}]]}]}]}], "\[IndentingNewLine]", "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.4534842897209787`*^9, 3.4534843882238283`*^9}, { 3.453484808162818*^9, 3.4534848407240734`*^9}, {3.453484884113412*^9, 3.453484915034504*^9}, 3.453484991817181*^9, {3.453485199185916*^9, 3.4534852676697636`*^9}, {3.4534853149324894`*^9, 3.4534853160596027`*^9}, {3.4534854057145667`*^9, 3.453485409426938*^9}, { 3.4534854991299076`*^9, 3.4534855478057747`*^9}, {3.453485624530446*^9, 3.453485648739867*^9}, {3.4534865995239363`*^9, 3.45348662396738*^9}, { 3.4534867090978923`*^9, 3.4534868462526064`*^9}, {3.453486878861867*^9, 3.4534869318571663`*^9}, {3.453486967573737*^9, 3.453486968677848*^9}, { 3.4534871436873465`*^9, 3.453487219347912*^9}, {3.453487268481825*^9, 3.453487271524129*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Simplify", "[", RowBox[{ RowBox[{ SubscriptBox["l", "l"], "[", RowBox[{ RowBox[{ SubscriptBox["L1", RowBox[{"a", ",", "b"}]], "//.", "uOrules"}], ",", RowBox[{ SubscriptBox["L1", RowBox[{"c", ",", "d"}]], "//.", "uOrules"}]}], "]"}], "//.", "uOrules2"}], "]"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{ 3.4534841549555035`*^9, {3.4534842506910763`*^9, 3.453484273570364*^9}, { 3.4534847288618884`*^9, 3.4534847445904613`*^9}, {3.4534853508560815`*^9, 3.453485351503146*^9}, {3.453485452474242*^9, 3.453485487326727*^9}, { 3.4534855320982037`*^9, 3.453485535523546*^9}, 3.4534855655795517`*^9, { 3.4534856624932423`*^9, 3.4534856631063037`*^9}, {3.4534857617511673`*^9, 3.4534857622412157`*^9}, {3.453486194980486*^9, 3.45348619622661*^9}, { 3.453486292723259*^9, 3.45348629753474*^9}, {3.453486511487133*^9, 3.453486513109295*^9}, 3.453486639048888*^9, {3.4534869816191416`*^9, 3.4534869853375134`*^9}, {3.4534870383628154`*^9, 3.453487069492928*^9}, { 3.453487232149192*^9, 3.453487248281805*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["L1", RowBox[{"b", ",", "d"}]]}], " ", SubscriptBox["\[Eta]", RowBox[{"a", ",", "c"}]]}], "+", RowBox[{ SubscriptBox["L1", RowBox[{"b", ",", "c"}]], " ", SubscriptBox["\[Eta]", RowBox[{"a", ",", "d"}]]}], "+", RowBox[{ SubscriptBox["L1", RowBox[{"a", ",", "d"}]], " ", SubscriptBox["\[Eta]", RowBox[{"b", ",", "c"}]]}], "-", RowBox[{ SubscriptBox["L1", RowBox[{"a", ",", "c"}]], " ", SubscriptBox["\[Eta]", RowBox[{"b", ",", "d"}]]}]}]], "Output", CellChangeTimes->{ 3.453486640026986*^9, 3.453486857396721*^9, 3.4534868882458053`*^9, { 3.4534869333853188`*^9, 3.4534869861865983`*^9}, {3.4534870407690563`*^9, 3.453487046446624*^9}, 3.453487076902669*^9, {3.453487234552432*^9, 3.4534872766726437`*^9}, 3.453553292101966*^9, 3.453645051939849*^9, 3.455617715453843*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Simplify", "[", RowBox[{ RowBox[{ SubscriptBox["l", "l"], "[", RowBox[{ RowBox[{ SubscriptBox["L1", RowBox[{"a", ",", "b"}]], "//.", "uOrules"}], ",", RowBox[{ SubscriptBox["M", RowBox[{"c", ",", "d"}]], "//.", "uOrules"}]}], "]"}], "//.", "uOrules2"}], "]"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{ 3.4534841549555035`*^9, {3.4534842506910763`*^9, 3.453484273570364*^9}, { 3.4534847288618884`*^9, 3.4534847445904613`*^9}, {3.4534853508560815`*^9, 3.453485351503146*^9}, {3.453485452474242*^9, 3.453485487326727*^9}, { 3.4534855320982037`*^9, 3.453485535523546*^9}, 3.4534855655795517`*^9, { 3.4534856624932423`*^9, 3.4534856631063037`*^9}, {3.4534857617511673`*^9, 3.4534857622412157`*^9}, 3.4534858108780794`*^9, 3.453487125998578*^9, { 3.453487282723249*^9, 3.4534872873407106`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["M", RowBox[{"b", ",", "d"}]]}], " ", SubscriptBox["\[Eta]", RowBox[{"a", ",", "c"}]]}], "-", RowBox[{ SubscriptBox["M", RowBox[{"b", ",", "c"}]], " ", SubscriptBox["\[Eta]", RowBox[{"a", ",", "d"}]]}], "+", RowBox[{ SubscriptBox["M", RowBox[{"a", ",", "d"}]], " ", SubscriptBox["\[Eta]", RowBox[{"b", ",", "c"}]]}], "+", RowBox[{ SubscriptBox["M", RowBox[{"a", ",", "c"}]], " ", SubscriptBox["\[Eta]", RowBox[{"b", ",", "d"}]]}]}]], "Output", CellChangeTimes->{ 3.4534858137053623`*^9, {3.45348712041602*^9, 3.4534871265096292`*^9}, { 3.4534872610220795`*^9, 3.453487287851762*^9}, 3.453553292182974*^9, 3.453645052088864*^9, 3.455617715546852*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Simplify", "[", RowBox[{ RowBox[{ SubscriptBox["l", "l"], "[", RowBox[{ RowBox[{ SubscriptBox["M", RowBox[{"a", ",", "b"}]], "//.", "uOrules"}], ",", RowBox[{ SubscriptBox["M", RowBox[{"c", ",", "d"}]], "//.", "uOrules"}]}], "]"}], "//.", "uOrules2"}], "]"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{ 3.4534841549555035`*^9, {3.4534842506910763`*^9, 3.453484273570364*^9}, { 3.4534847288618884`*^9, 3.4534847445904613`*^9}, {3.4534853508560815`*^9, 3.453485351503146*^9}, {3.453485452474242*^9, 3.453485487326727*^9}, { 3.4534855320982037`*^9, 3.453485535523546*^9}, 3.4534855655795517`*^9, { 3.4534856624932423`*^9, 3.4534856631063037`*^9}, {3.4534857617511673`*^9, 3.4534857622412157`*^9}, {3.4534858249034815`*^9, 3.4534858286548567`*^9}, {3.45348729703868*^9, 3.4534873066616426`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["L1", RowBox[{"b", ",", "d"}]]}], " ", SubscriptBox["\[Eta]", RowBox[{"a", ",", "c"}]]}], "-", RowBox[{ SubscriptBox["L1", RowBox[{"b", ",", "c"}]], " ", SubscriptBox["\[Eta]", RowBox[{"a", ",", "d"}]]}], "-", RowBox[{ SubscriptBox["L1", RowBox[{"a", ",", "d"}]], " ", SubscriptBox["\[Eta]", RowBox[{"b", ",", "c"}]]}], "-", RowBox[{ SubscriptBox["L1", RowBox[{"a", ",", "c"}]], " ", SubscriptBox["\[Eta]", RowBox[{"b", ",", "d"}]]}]}]], "Output", CellChangeTimes->{ 3.453485829867978*^9, {3.4534872986308393`*^9, 3.4534873072106977`*^9}, 3.453553292261982*^9, 3.453645052211876*^9, 3.4556177156388617`*^9}] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Unitary commutations relations from the symplectic", "Subsection", CellChangeTimes->{{3.4534873918111567`*^9, 3.4534874073607116`*^9}, { 3.4534874674777226`*^9, 3.4534874691338882`*^9}}], Cell["\<\ These rules show how the unitary basis is given in terms of linear \ combinations of either the orthogonal or symplectic algebras and therefore is \ a subalgebra of both. This is an exercize in on the fly calculations with \ rules.\ \>", "Text", CellChangeTimes->{{3.453487322555232*^9, 3.4534873621881948`*^9}, { 3.453488757812767*^9, 3.4534887713441195`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"uSprules", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["M", RowBox[{"a_", ",", "b_", " "}]], "\[RuleDelayed]", RowBox[{ SubscriptBox["W", RowBox[{"a", ",", "b"}]], "+", SubscriptBox["W", RowBox[{ OverscriptBox["a", "~"], ",", OverscriptBox["b", "~"]}]]}]}], ",", "\[IndentingNewLine]", RowBox[{ SubscriptBox["L", RowBox[{"a_", ",", "b_", " "}]], "\[RuleDelayed]", RowBox[{ SubscriptBox["W", RowBox[{ OverscriptBox["a", "~"], ",", "b"}]], "-", SubscriptBox["W", RowBox[{"a", ",", OverscriptBox["b", "~"]}]]}]}]}], "\[IndentingNewLine]", "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.4534842897209787`*^9, 3.4534843882238283`*^9}, { 3.453484808162818*^9, 3.4534848407240734`*^9}, {3.453484884113412*^9, 3.453484915034504*^9}, 3.453484991817181*^9, {3.453485199185916*^9, 3.4534852676697636`*^9}, {3.4534853896089563`*^9, 3.453485443578353*^9}, { 3.4534874736883435`*^9, 3.453487483801355*^9}, {3.4534875385448284`*^9, 3.4534875536803417`*^9}, {3.4534881647689114`*^9, 3.453488175060911*^9}, { 3.4534884331099114`*^9, 3.4534884391039114`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"uSprules2", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ OverscriptBox["a_", "~"], "\[RuleDelayed]", RowBox[{"ta", "[", "a", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ SubscriptBox["\[Zeta]", RowBox[{ RowBox[{"ta", "[", "a_", "]"}], ",", RowBox[{"ta", "[", "c_", "]"}]}]], "\[RuleDelayed]", "0"}], ",", "\[IndentingNewLine]", RowBox[{ SubscriptBox["\[Zeta]", RowBox[{"a_", ",", RowBox[{"ta", "[", "c_", "]"}]}]], " ", "\[RuleDelayed]", SubscriptBox["\[Eta]", RowBox[{"a", ",", "c"}]]}], ",", " ", RowBox[{ SubscriptBox["\[Zeta]", RowBox[{ RowBox[{"ta", "[", "a_", "]"}], ",", "c_"}]], " ", "\[RuleDelayed]", RowBox[{"-", SubscriptBox["\[Eta]", RowBox[{"a", ",", "c"}]]}]}], " ", ",", "\[IndentingNewLine]", RowBox[{ SubscriptBox["\[Zeta]", RowBox[{"a_", ",", "c_"}]], "\[RuleDelayed]", RowBox[{"0", " ", "/;", " ", RowBox[{ RowBox[{"AtomQ", "[", "a", "]"}], "&&", RowBox[{"AtomQ", "[", "c", "]"}]}]}]}], ",", "\[IndentingNewLine]", RowBox[{ SubscriptBox["W", RowBox[{ RowBox[{"ta", "[", "b_", "]"}], ",", RowBox[{"ta", "[", "a_", "]"}]}]], "\[RuleDelayed]", RowBox[{ RowBox[{"-", SubscriptBox["W", RowBox[{"b", ",", "a"}]]}], "+", SubscriptBox["M", RowBox[{"b", ",", "a"}]]}]}], ",", "\[IndentingNewLine]", RowBox[{ SubscriptBox["W", RowBox[{ RowBox[{"ta", "[", "a_", "]"}], ",", "b_"}]], "\[RuleDelayed]", RowBox[{ SubscriptBox["L", RowBox[{"a", ",", "b", " "}]], "+", SubscriptBox["W", RowBox[{"a", ",", RowBox[{"ta", "[", "b", "]"}]}]]}]}], ",", "\[IndentingNewLine]", RowBox[{ SubscriptBox["\[Eta]", RowBox[{"a_", ",", "b_"}]], "\[RuleDelayed]", RowBox[{ SubscriptBox["\[Eta]", RowBox[{"b", ",", "a"}]], " ", "/;", " ", RowBox[{"!", RowBox[{"OrderedQ", "[", RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}], "]"}]}]}]}]}], "\[IndentingNewLine]", "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.4534842897209787`*^9, 3.4534843882238283`*^9}, { 3.453484808162818*^9, 3.4534848407240734`*^9}, {3.453484884113412*^9, 3.453484915034504*^9}, 3.453484991817181*^9, {3.453485199185916*^9, 3.4534852676697636`*^9}, {3.4534853149324894`*^9, 3.4534853160596027`*^9}, {3.4534854057145667`*^9, 3.453485409426938*^9}, { 3.4534854991299076`*^9, 3.4534855478057747`*^9}, {3.453485624530446*^9, 3.453485648739867*^9}, {3.4534865995239363`*^9, 3.45348662396738*^9}, { 3.4534867090978923`*^9, 3.4534868462526064`*^9}, {3.453486878861867*^9, 3.4534869318571663`*^9}, {3.453486967573737*^9, 3.453486968677848*^9}, { 3.4534871436873465`*^9, 3.453487219347912*^9}, {3.453487268481825*^9, 3.453487271524129*^9}, {3.4534874778597608`*^9, 3.453487478834858*^9}, { 3.4534875614871225`*^9, 3.453487580545028*^9}, {3.4534876508880615`*^9, 3.453487695652538*^9}, {3.453487730230995*^9, 3.453487735224495*^9}, { 3.4534877679537673`*^9, 3.453487768510823*^9}, {3.45348787198138*^9, 3.4534879393679*^9}, {3.453488067358297*^9, 3.453488123081911*^9}, { 3.4534884581209116`*^9, 3.453488496956911*^9}, {3.453488529692911*^9, 3.4534885544489117`*^9}, {3.453488680084995*^9, 3.453488727151701*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Simplify", "[", RowBox[{ RowBox[{ SubscriptBox["l", "sp"], "[", RowBox[{ RowBox[{ SubscriptBox["L", RowBox[{"a", ",", "b"}]], "//.", "uSprules"}], ",", RowBox[{ SubscriptBox["L", RowBox[{"c", ",", "d"}]], "//.", "uSprules"}]}], "]"}], "//.", "uSprules2"}], "]"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{ 3.4534841549555035`*^9, {3.4534842506910763`*^9, 3.453484273570364*^9}, { 3.4534847288618884`*^9, 3.4534847445904613`*^9}, {3.4534853508560815`*^9, 3.453485351503146*^9}, {3.453485452474242*^9, 3.453485487326727*^9}, { 3.4534855320982037`*^9, 3.453485535523546*^9}, 3.4534855655795517`*^9, { 3.4534856624932423`*^9, 3.4534856631063037`*^9}, {3.4534857617511673`*^9, 3.4534857622412157`*^9}, {3.453486194980486*^9, 3.45348619622661*^9}, { 3.453486292723259*^9, 3.45348629753474*^9}, {3.453486511487133*^9, 3.453486513109295*^9}, 3.453486639048888*^9, {3.4534869816191416`*^9, 3.4534869853375134`*^9}, {3.4534870383628154`*^9, 3.453487069492928*^9}, { 3.453487232149192*^9, 3.453487248281805*^9}, {3.453487507894764*^9, 3.4534875089978743`*^9}, {3.4534875933143053`*^9, 3.453487599874961*^9}, { 3.4534878141649456`*^9, 3.453487824250928*^9}, {3.45348798920693*^9, 3.453487989810809*^9}, 3.4534887202020063`*^9}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["L", RowBox[{"b", ",", "d"}]]}], " ", SubscriptBox["\[Eta]", RowBox[{"a", ",", "c"}]]}], "+", RowBox[{ SubscriptBox["L", RowBox[{"b", ",", "c"}]], " ", SubscriptBox["\[Eta]", RowBox[{"a", ",", "d"}]]}], "+", RowBox[{ SubscriptBox["L", RowBox[{"a", ",", "d"}]], " ", SubscriptBox["\[Eta]", RowBox[{"b", ",", "c"}]]}], "-", RowBox[{ SubscriptBox["L", RowBox[{"a", ",", "c"}]], " ", SubscriptBox["\[Eta]", RowBox[{"b", ",", "d"}]]}]}]], "Output", CellChangeTimes->{{3.453488721263112*^9, 3.4534887306850543`*^9}, 3.453553292433999*^9, 3.4536450524298983`*^9, 3.455617715849882*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Simplify", "[", RowBox[{ RowBox[{ SubscriptBox["l", "sp"], "[", RowBox[{ RowBox[{ SubscriptBox["L", RowBox[{"a", ",", "b"}]], "//.", "uSprules"}], ",", RowBox[{ SubscriptBox["L", RowBox[{"c", ",", "d"}]], "//.", "uSprules"}]}], "]"}], "//.", "uSprules2"}], "]"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{ 3.4534841549555035`*^9, {3.4534842506910763`*^9, 3.453484273570364*^9}, { 3.4534847288618884`*^9, 3.4534847445904613`*^9}, {3.4534853508560815`*^9, 3.453485351503146*^9}, {3.453485452474242*^9, 3.453485487326727*^9}, { 3.4534855320982037`*^9, 3.453485535523546*^9}, 3.4534855655795517`*^9, { 3.4534856624932423`*^9, 3.4534856631063037`*^9}, {3.4534857617511673`*^9, 3.4534857622412157`*^9}, {3.453486194980486*^9, 3.45348619622661*^9}, { 3.453486292723259*^9, 3.45348629753474*^9}, {3.453486511487133*^9, 3.453486513109295*^9}, 3.453486639048888*^9, {3.4534869816191416`*^9, 3.4534869853375134`*^9}, {3.4534870383628154`*^9, 3.453487069492928*^9}, { 3.453487232149192*^9, 3.453487248281805*^9}, {3.453487507894764*^9, 3.4534875089978743`*^9}, {3.4534875933143053`*^9, 3.453487599874961*^9}, { 3.4534878141649456`*^9, 3.453487824250928*^9}, {3.45348798920693*^9, 3.453487989810809*^9}, 3.4534887374667325`*^9}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["L", RowBox[{"b", ",", "d"}]]}], " ", SubscriptBox["\[Eta]", RowBox[{"a", ",", "c"}]]}], "+", RowBox[{ SubscriptBox["L", RowBox[{"b", ",", "c"}]], " ", SubscriptBox["\[Eta]", RowBox[{"a", ",", "d"}]]}], "+", RowBox[{ SubscriptBox["L", RowBox[{"a", ",", "d"}]], " ", SubscriptBox["\[Eta]", RowBox[{"b", ",", "c"}]]}], "-", RowBox[{ SubscriptBox["L", RowBox[{"a", ",", "c"}]], " ", SubscriptBox["\[Eta]", RowBox[{"b", ",", "d"}]]}]}]], "Output", CellChangeTimes->{{3.453487747307703*^9, 3.4534877751677465`*^9}, { 3.4534878179891806`*^9, 3.4534878252717237`*^9}, 3.453487878938988*^9, 3.4534879562625203`*^9, 3.453487990693633*^9, 3.4534881315239115`*^9, { 3.4534881691029115`*^9, 3.4534881806919117`*^9}, 3.4534885119439116`*^9, 3.453488581581911*^9, 3.453488737951781*^9, 3.4535532925190077`*^9, 3.45364505254591*^9, 3.4556177159838963`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Simplify", "[", RowBox[{ RowBox[{ SubscriptBox["l", "sp"], "[", RowBox[{ RowBox[{ SubscriptBox["L", RowBox[{"a", ",", "b"}]], "//.", "uSprules"}], ",", RowBox[{ SubscriptBox["M", RowBox[{"c", ",", "d"}]], "//.", "uSprules"}]}], "]"}], "//.", "uSprules2"}], "]"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{ 3.4534841549555035`*^9, {3.4534842506910763`*^9, 3.453484273570364*^9}, { 3.4534847288618884`*^9, 3.4534847445904613`*^9}, {3.4534853508560815`*^9, 3.453485351503146*^9}, {3.453485452474242*^9, 3.453485487326727*^9}, { 3.4534855320982037`*^9, 3.453485535523546*^9}, 3.4534855655795517`*^9, { 3.4534856624932423`*^9, 3.4534856631063037`*^9}, {3.4534857617511673`*^9, 3.4534857622412157`*^9}, {3.453486194980486*^9, 3.45348619622661*^9}, { 3.453486292723259*^9, 3.45348629753474*^9}, {3.453486511487133*^9, 3.453486513109295*^9}, 3.453486639048888*^9, {3.4534869816191416`*^9, 3.4534869853375134`*^9}, {3.4534870383628154`*^9, 3.453487069492928*^9}, { 3.453487232149192*^9, 3.453487248281805*^9}, {3.453487507894764*^9, 3.4534875089978743`*^9}, {3.4534875933143053`*^9, 3.453487599874961*^9}, 3.453488569211911*^9, 3.4534886003229113`*^9, 3.4534887410480905`*^9}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["M", RowBox[{"b", ",", "d"}]]}], " ", SubscriptBox["\[Eta]", RowBox[{"a", ",", "c"}]]}], "-", RowBox[{ SubscriptBox["M", RowBox[{"b", ",", "c"}]], " ", SubscriptBox["\[Eta]", RowBox[{"a", ",", "d"}]]}], "+", RowBox[{ SubscriptBox["M", RowBox[{"a", ",", "d"}]], " ", SubscriptBox["\[Eta]", RowBox[{"b", ",", "c"}]]}], "+", RowBox[{ SubscriptBox["M", RowBox[{"a", ",", "c"}]], " ", SubscriptBox["\[Eta]", RowBox[{"b", ",", "d"}]]}]}]], "Output", CellChangeTimes->{ 3.453486640026986*^9, 3.453486857396721*^9, 3.4534868882458053`*^9, { 3.4534869333853188`*^9, 3.4534869861865983`*^9}, {3.4534870407690563`*^9, 3.453487046446624*^9}, 3.453487076902669*^9, {3.453487234552432*^9, 3.4534872766726437`*^9}, 3.4534876162115946`*^9, 3.4534877055585284`*^9, { 3.453488572251911*^9, 3.4534886018589115`*^9}, 3.4534887413481207`*^9, 3.453553292596015*^9, 3.4536450526429195`*^9, 3.455617716074905*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Simplify", "[", RowBox[{ RowBox[{ SubscriptBox["l", "sp"], "[", RowBox[{ RowBox[{ SubscriptBox["M", RowBox[{"a", ",", "b"}]], "//.", "uSprules"}], ",", RowBox[{ SubscriptBox["M", RowBox[{"c", ",", "d"}]], "//.", "uSprules"}]}], "]"}], "//.", "uSprules2"}], "]"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{ 3.4534841549555035`*^9, {3.4534842506910763`*^9, 3.453484273570364*^9}, { 3.4534847288618884`*^9, 3.4534847445904613`*^9}, {3.4534853508560815`*^9, 3.453485351503146*^9}, {3.453485452474242*^9, 3.453485487326727*^9}, { 3.4534855320982037`*^9, 3.453485535523546*^9}, 3.4534855655795517`*^9, { 3.4534856624932423`*^9, 3.4534856631063037`*^9}, {3.4534857617511673`*^9, 3.4534857622412157`*^9}, 3.4534858108780794`*^9, 3.453487125998578*^9, { 3.453487282723249*^9, 3.4534872873407106`*^9}, {3.4534875098309574`*^9, 3.4534875106780424`*^9}, {3.4534875962475986`*^9, 3.45348760366934*^9}, { 3.4534886096469116`*^9, 3.4534886147009115`*^9}, 3.453488744923478*^9}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["L", RowBox[{"b", ",", "d"}]]}], " ", SubscriptBox["\[Eta]", RowBox[{"a", ",", "c"}]]}], "-", RowBox[{ SubscriptBox["L", RowBox[{"b", ",", "c"}]], " ", SubscriptBox["\[Eta]", RowBox[{"a", ",", "d"}]]}], "-", RowBox[{ SubscriptBox["L", RowBox[{"a", ",", "d"}]], " ", SubscriptBox["\[Eta]", RowBox[{"b", ",", "c"}]]}], "-", RowBox[{ SubscriptBox["L", RowBox[{"a", ",", "c"}]], " ", SubscriptBox["\[Eta]", RowBox[{"b", ",", "d"}]]}]}]], "Output", CellChangeTimes->{ 3.4534858137053623`*^9, {3.45348712041602*^9, 3.4534871265096292`*^9}, { 3.4534872610220795`*^9, 3.453487287851762*^9}, 3.4534886194129114`*^9, 3.453488745811567*^9, 3.45355329274503*^9, 3.453645052736929*^9, 3.4556177161699142`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Complex Form Calcs", "Subsection", CellChangeTimes->{{3.4534873918111567`*^9, 3.4534874073607116`*^9}, { 3.4534874674777226`*^9, 3.4534874691338882`*^9}, {3.455535355569146*^9, 3.4555353660681963`*^9}, {3.460282649059996*^9, 3.460282650510458*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"ufromComplexRules", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ SubsuperscriptBox["Z", RowBox[{"a_", ",", "b_"}], "+"], "\[RuleDelayed]", RowBox[{ RowBox[{"(", RowBox[{"1", "/", "2"}], ")"}], RowBox[{"(", RowBox[{ SubscriptBox["M", RowBox[{"a", ",", "b"}]], "+", RowBox[{"\[ImaginaryI]", " ", SubscriptBox["L", RowBox[{"a", ",", "b"}]]}]}], ")"}]}]}], ",", "\[IndentingNewLine]", RowBox[{ SubsuperscriptBox["Z", RowBox[{"a_", ",", "b_"}], "-"], "\[RuleDelayed]", RowBox[{ RowBox[{"(", RowBox[{"1", "/", "2"}], ")"}], RowBox[{"(", RowBox[{ SubscriptBox["M", RowBox[{"a", ",", "b"}]], "-", RowBox[{"\[ImaginaryI]", " ", SubscriptBox["L", RowBox[{"a", ",", "b"}]]}]}], ")"}]}]}]}], "\[IndentingNewLine]", "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.455535369248514*^9, 3.4555354281894073`*^9}, { 3.455535462039792*^9, 3.4555355893825254`*^9}, {3.45553665139272*^9, 3.4555366518767686`*^9}, 3.455536900275606*^9, {3.4555381404806185`*^9, 3.455538147432314*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ SubsuperscriptBox["Z", RowBox[{"a", ",", "b"}], "+"], "==", RowBox[{ RowBox[{"(", RowBox[{"1", "/", "2"}], ")"}], RowBox[{"(", RowBox[{ SubscriptBox["M", RowBox[{"a", ",", "b"}]], "+", RowBox[{"\[ImaginaryI]", " ", SubscriptBox["L", RowBox[{"a", ",", "b"}]]}]}], ")"}]}]}], ",", "\[IndentingNewLine]", RowBox[{ SubsuperscriptBox["Z", RowBox[{"a", ",", "b"}], "-"], "==", RowBox[{ RowBox[{"(", RowBox[{"1", "/", "2"}], ")"}], RowBox[{"(", RowBox[{ SubscriptBox["M", RowBox[{"a", ",", "b"}]], "-", RowBox[{"\[ImaginaryI]", " ", SubscriptBox["L", RowBox[{"a", ",", "b"}]]}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["M", RowBox[{"a", ",", "b"}]], ",", SubscriptBox["L", RowBox[{"a", ",", "b"}]]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.4555381505216227`*^9, 3.4555382098095512`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["M", RowBox[{"a", ",", "b"}]], "\[Rule]", " ", RowBox[{ SuperscriptBox[ SubscriptBox["Z", RowBox[{"a", ",", "b"}]], "-"], " ", "+", " ", SuperscriptBox[ SubscriptBox["Z", RowBox[{"a", ",", "b"}]], "+"]}]}], " ", ",", RowBox[{ SubscriptBox["L", RowBox[{"a", ",", "b"}]], "\[Rule]", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", " ", RowBox[{ SuperscriptBox[ SubscriptBox["Z", RowBox[{"a", ",", "b"}]], "-"], " ", "-", " ", SuperscriptBox[ SubscriptBox["Z", RowBox[{"a", ",", "b"}]], "+"]}], " ", ")"}]}]}]}], "}"}], "}"}]], "Output", CellChangeTimes->{{3.455538189058476*^9, 3.455538227976368*^9}, 3.455617716362934*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"utoComplexRules", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["M", RowBox[{"a_", ",", "b_"}]], "\[Rule]", " ", RowBox[{ SuperscriptBox[ SubscriptBox["Z", RowBox[{"a", ",", "b"}]], "-"], " ", "+", " ", SuperscriptBox[ SubscriptBox["Z", RowBox[{"a", ",", "b"}]], "+"]}]}], " ", ",", "\[IndentingNewLine]", RowBox[{ SubscriptBox["L", RowBox[{"a_", ",", "b_"}]], "\[Rule]", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", " ", RowBox[{ SuperscriptBox[ SubscriptBox["Z", RowBox[{"a", ",", "b"}]], "-"], " ", "-", " ", SuperscriptBox[ SubscriptBox["Z", RowBox[{"a", ",", "b"}]], "+"]}], " ", ")"}]}]}]}], "\[IndentingNewLine]", "}"}]}], ";"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.455535689814567*^9, 3.455535690573643*^9}, { 3.4555357719937844`*^9, 3.455535805424127*^9}, {3.45553665428901*^9, 3.4555366550530863`*^9}, {3.455536707303311*^9, 3.455536736277208*^9}, 3.4555368889974785`*^9, {3.4555382187314434`*^9, 3.455538221343704*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["l", "uc"], "[", RowBox[{"A_", ",", "B_"}], "]"}], ":=", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"l", "[", RowBox[{"A", ",", "B"}], "]"}], "//.", "ufromComplexRules"}], "//.", "UnitaryALgebraReal4rules"}], "//.", "utoComplexRules"}], "//.", "generalRules"}]}]], "Input", CellChangeTimes->{{3.455536415884629*^9, 3.455536466136629*^9}, { 3.455536499469629*^9, 3.4555365321426287`*^9}, 3.4555366230308847`*^9, { 3.4555366574873295`*^9, 3.4555366607966604`*^9}, 3.45553682671325*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["l", "uc"], "[", RowBox[{ SubsuperscriptBox["Z", RowBox[{"a", ",", "b"}], "+"], ",", SubsuperscriptBox["Z", RowBox[{"c", ",", "d"}], "+"]}], "]"}]], "Input", CellChangeTimes->{{3.4555366007326546`*^9, 3.455536615917173*^9}, { 3.455536681418722*^9, 3.4555366820037813`*^9}, {3.455536762572837*^9, 3.4555367688734674`*^9}, {3.4555368293435135`*^9, 3.455536832675847*^9}, { 3.455536917038282*^9, 3.4555369183454127`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SubscriptBox["\[Eta]", RowBox[{"a", ",", "d"}]], " ", RowBox[{"(", " ", SuperscriptBox[ SubscriptBox["Z", RowBox[{"b", ",", "c"}]], "-"], " ", ")"}]}], "+", RowBox[{"\[ImaginaryI]", " ", SubscriptBox["\[Eta]", RowBox[{"b", ",", "c"}]], " ", RowBox[{"(", " ", SuperscriptBox[ SubscriptBox["Z", RowBox[{"a", ",", "d"}]], "+"], " ", ")"}]}]}]], "Output", CellChangeTimes->{{3.4555365916007414`*^9, 3.455536601944776*^9}, { 3.4555366640859895`*^9, 3.4555366861101913`*^9}, 3.455536741191699*^9, 3.4555367734739275`*^9, 3.4555368387064495`*^9, {3.455536904728051*^9, 3.455536919609539*^9}, 3.455538228033373*^9, 3.455617716534951*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"unitaryComplexBasis", "[", RowBox[{"{", RowBox[{"a_", ",", "b_"}], "}"}], "]"}], ":=", RowBox[{"{", RowBox[{ SubsuperscriptBox["Z", RowBox[{"a", ",", "b"}], "+"], ",", SubsuperscriptBox["Z", RowBox[{"a", ",", "b"}], "-"]}], "}"}]}]], "Input", CellChangeTimes->{{3.4555361690934906`*^9, 3.4555362245590363`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListCommutators", "[", RowBox[{ SubscriptBox["l", "uc"], ",", RowBox[{"unitaryComplexBasis", "[", RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}], "]"}], ",", " ", RowBox[{"unitaryComplexBasis", "[", RowBox[{"{", RowBox[{"c", ",", "d"}], "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.4523496979343147`*^9, 3.452349699346345*^9}, { 3.452349776647499*^9, 3.4523497909580765`*^9}, {3.4523510388453555`*^9, 3.4523510392058735`*^9}, {3.4530696478496914`*^9, 3.45306966823901*^9}, { 3.45348375877133*^9, 3.4534837636573305`*^9}, {3.455536258725453*^9, 3.455536333982629*^9}, 3.4555363868356285`*^9, {3.455536545968629*^9, 3.455536547131629*^9}, {3.455537924844057*^9, 3.4555379254141145`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"l", "[", " ", RowBox[{ SuperscriptBox[ SubscriptBox["Z", RowBox[{"a", ",", "b"}]], "+"], " ", ",", " ", SuperscriptBox[ SubscriptBox["Z", RowBox[{"c", ",", "d"}]], "+"]}], " ", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SubscriptBox["\[Eta]", RowBox[{"a", ",", "d"}]], " ", RowBox[{"(", " ", SuperscriptBox[ SubscriptBox["Z", RowBox[{"b", ",", "c"}]], "-"], " ", ")"}]}], "+", RowBox[{"\[ImaginaryI]", " ", SubscriptBox["\[Eta]", RowBox[{"b", ",", "c"}]], " ", RowBox[{"(", " ", SuperscriptBox[ SubscriptBox["Z", RowBox[{"a", ",", "d"}]], "+"], " ", ")"}]}]}]}], ",", RowBox[{ RowBox[{"l", "[", " ", RowBox[{ SuperscriptBox[ SubscriptBox["Z", RowBox[{"a", ",", "b"}]], "+"], " ", ",", " ", SuperscriptBox[ SubscriptBox["Z", RowBox[{"c", ",", "d"}]], "-"]}], " ", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SubscriptBox["\[Eta]", RowBox[{"a", ",", "c"}]], " ", RowBox[{"(", " ", SuperscriptBox[ SubscriptBox["Z", RowBox[{"b", ",", "d"}]], "-"], " ", ")"}]}], "+", RowBox[{"\[ImaginaryI]", " ", SubscriptBox["\[Eta]", RowBox[{"b", ",", "d"}]], " ", RowBox[{"(", " ", SuperscriptBox[ SubscriptBox["Z", RowBox[{"a", ",", "c"}]], "+"], " ", ")"}]}]}]}], ",", RowBox[{ RowBox[{"l", "[", " ", RowBox[{ SuperscriptBox[ SubscriptBox["Z", RowBox[{"a", ",", "b"}]], "-"], " ", ",", " ", SuperscriptBox[ SubscriptBox["Z", RowBox[{"c", ",", "d"}]], "-"]}], " ", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SubscriptBox["\[Eta]", RowBox[{"b", ",", "c"}]], " ", RowBox[{"(", " ", SuperscriptBox[ SubscriptBox["Z", RowBox[{"a", ",", "d"}]], "-"], " ", ")"}]}], "+", RowBox[{"\[ImaginaryI]", " ", SubscriptBox["\[Eta]", RowBox[{"a", ",", "d"}]], " ", RowBox[{"(", " ", SuperscriptBox[ SubscriptBox["Z", RowBox[{"b", ",", "c"}]], "+"], " ", ")"}]}]}]}]}], "}"}]], "Output", CellChangeTimes->{3.455537928030376*^9, 3.455538228080378*^9, 3.455617716860984*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Complex Form ", "Subsection", CellChangeTimes->{{3.4534873918111567`*^9, 3.4534874073607116`*^9}, { 3.4534874674777226`*^9, 3.4534874691338882`*^9}, {3.455535355569146*^9, 3.4555353660681963`*^9}, {3.460282649059996*^9, 3.460282668403825*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PrintCommutators", "[", RowBox[{ SubscriptBox["l", "uc3"], ",", RowBox[{"UnitaryComplex3basis", "[", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}], "]"}], ",", " ", RowBox[{"UnitaryComplex3basis", "[", RowBox[{"{", RowBox[{"k", ",", "l"}], "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.4523496979343147`*^9, 3.452349699346345*^9}, { 3.452349776647499*^9, 3.4523497909580765`*^9}, {3.4523510388453555`*^9, 3.4523510392058735`*^9}, {3.4530696478496914`*^9, 3.45306966823901*^9}, { 3.45348375877133*^9, 3.4534837636573305`*^9}, {3.460282677836834*^9, 3.460282686080825*^9}}], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SubscriptBox["Z", RowBox[{"i", ",", "j"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["Z", RowBox[{"k", ",", "l"}]], "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SubscriptBox["Z", RowBox[{"k", ",", "j"}]], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "l"}]]}], "+", RowBox[{"\[ImaginaryI]", " ", SubscriptBox["Z", RowBox[{"i", ",", "l"}]], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "k"}]]}]}]}], SequenceForm["[", Subscript[$CellContext`Z, $CellContext`i, $CellContext`j], ",", Subscript[$CellContext`Z, $CellContext`k, $CellContext`l], "] = ", Complex[0, -1] Subscript[$CellContext`Z, $CellContext`k, $CellContext`j] Subscript[$CellContext`\[Delta], $CellContext`i, $CellContext`l] + Complex[0, 1] Subscript[$CellContext`Z, $CellContext`i, $CellContext`l] Subscript[$CellContext`\[Delta], $CellContext`j, $CellContext`k]], Editable->False]], "Print", CellChangeTimes->{{3.4602826890047874`*^9, 3.460282717489128*^9}}], Cell[BoxData["\<\"Done\"\>"], "Print", CellChangeTimes->{{3.4602826890047874`*^9, 3.460282717506157*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TestJacobi", "[", RowBox[{ SubscriptBox["l", "uc3"], ",", RowBox[{"{", "}"}], ",", RowBox[{"UnitaryComplex3basis", "[", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}], "]"}], ",", RowBox[{"UnitaryComplex3basis", "[", RowBox[{"{", RowBox[{"k", ",", "l"}], "}"}], "]"}], ",", RowBox[{"UnitaryComplex3basis", "[", RowBox[{"{", RowBox[{"m", ",", "n"}], "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.452207455555413*^9, 3.4522075712417617`*^9}, { 3.452209061324395*^9, 3.4522090785992355`*^9}, {3.452347001898718*^9, 3.4523470149574957`*^9}, 3.452347058980798*^9, {3.4523502834061823`*^9, 3.4523503310446825`*^9}, {3.452351011055395*^9, 3.4523510157321205`*^9}, { 3.4523511317389297`*^9, 3.452351157666211*^9}, {3.4530697175198717`*^9, 3.4530697462511854`*^9}, {3.4602827338579082`*^9, 3.4602827432488456`*^9}}], Cell[BoxData[ RowBox[{"{", "}"}]], "Output", CellChangeTimes->{{3.4602827469821815`*^9, 3.4602827855606537`*^9}}] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Print rules, check Jacobi identites", "Subsection", CellChangeTimes->{{3.4534873918111567`*^9, 3.4534874073607116`*^9}, { 3.4534874507570505`*^9, 3.453487457229698*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PrintCommutators", "[", RowBox[{ SubscriptBox["l", "u3"], ",", RowBox[{"UnitaryReal3basis", "[", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}], "]"}], ",", " ", RowBox[{"UnitaryReal3basis", "[", RowBox[{"{", RowBox[{"k", ",", "l"}], "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.4523496979343147`*^9, 3.452349699346345*^9}, { 3.452349776647499*^9, 3.4523497909580765`*^9}, {3.4523510388453555`*^9, 3.4523510392058735`*^9}, {3.4530696478496914`*^9, 3.45306966823901*^9}, { 3.45348375877133*^9, 3.4534837636573305`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SubscriptBox["M", RowBox[{"i", ",", "j"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["M", RowBox[{"k", ",", "l"}]], "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["J", RowBox[{"j", ",", "l"}]]}], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]]}], "-", RowBox[{ SubscriptBox["J", RowBox[{"j", ",", "k"}]], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "l"}]]}], "-", RowBox[{ SubscriptBox["J", RowBox[{"i", ",", "l"}]], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "k"}]]}], "-", RowBox[{ SubscriptBox["J", RowBox[{"i", ",", "k"}]], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "l"}]]}]}]}], SequenceForm["[", Subscript[$CellContext`M, $CellContext`i, $CellContext`j], ",", Subscript[$CellContext`M, $CellContext`k, $CellContext`l], "] = ", -Subscript[$CellContext`J, $CellContext`j, $CellContext`l] Subscript[$CellContext`\[Delta], $CellContext`i, $CellContext`k] - Subscript[$CellContext`J, $CellContext`j, $CellContext`k] Subscript[$CellContext`\[Delta], $CellContext`i, $CellContext`l] - Subscript[$CellContext`J, $CellContext`i, $CellContext`l] Subscript[$CellContext`\[Delta], $CellContext`j, $CellContext`k] - Subscript[$CellContext`J, $CellContext`i, $CellContext`k] Subscript[$CellContext`\[Delta], $CellContext`j, $CellContext`l]], Editable->False]], "Print", CellChangeTimes->{3.453242465670621*^9, 3.4534835916371727`*^9, 3.4534837743773303`*^9, 3.453553292928048*^9, 3.4536450529539504`*^9, 3.455617717183016*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SubscriptBox["M", RowBox[{"i", ",", "j"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["J", RowBox[{"k", ",", "l"}]], "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{ SubscriptBox["M", RowBox[{"j", ",", "l"}]], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]]}], "-", RowBox[{ SubscriptBox["M", RowBox[{"j", ",", "k"}]], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "l"}]]}], "+", RowBox[{ SubscriptBox["M", RowBox[{"i", ",", "l"}]], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "k"}]]}], "-", RowBox[{ SubscriptBox["M", RowBox[{"i", ",", "k"}]], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "l"}]]}]}]}], SequenceForm["[", Subscript[$CellContext`M, $CellContext`i, $CellContext`j], ",", Subscript[$CellContext`J, $CellContext`k, $CellContext`l], "] = ", Subscript[$CellContext`M, $CellContext`j, $CellContext`l] Subscript[$CellContext`\[Delta], $CellContext`i, $CellContext`k] - Subscript[$CellContext`M, $CellContext`j, $CellContext`k] Subscript[$CellContext`\[Delta], $CellContext`i, $CellContext`l] + Subscript[$CellContext`M, $CellContext`i, $CellContext`l] Subscript[$CellContext`\[Delta], $CellContext`j, $CellContext`k] - Subscript[$CellContext`M, $CellContext`i, $CellContext`k] Subscript[$CellContext`\[Delta], $CellContext`j, $CellContext`l]], Editable->False]], "Print", CellChangeTimes->{3.453242465670621*^9, 3.4534835916371727`*^9, 3.4534837743773303`*^9, 3.453553292928048*^9, 3.4536450529539504`*^9, 3.4556177171850157`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SubscriptBox["J", RowBox[{"i", ",", "j"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["J", RowBox[{"k", ",", "l"}]], "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["J", RowBox[{"j", ",", "l"}]]}], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]]}], "+", RowBox[{ SubscriptBox["J", RowBox[{"j", ",", "k"}]], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "l"}]]}], "+", RowBox[{ SubscriptBox["J", RowBox[{"i", ",", "l"}]], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "k"}]]}], "-", RowBox[{ SubscriptBox["J", RowBox[{"i", ",", "k"}]], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "l"}]]}]}]}], SequenceForm["[", Subscript[$CellContext`J, $CellContext`i, $CellContext`j], ",", Subscript[$CellContext`J, $CellContext`k, $CellContext`l], "] = ", (-Subscript[$CellContext`J, $CellContext`j, $CellContext`l]) Subscript[$CellContext`\[Delta], $CellContext`i, $CellContext`k] + Subscript[$CellContext`J, $CellContext`j, $CellContext`k] Subscript[$CellContext`\[Delta], $CellContext`i, $CellContext`l] + Subscript[$CellContext`J, $CellContext`i, $CellContext`l] Subscript[$CellContext`\[Delta], $CellContext`j, $CellContext`k] - Subscript[$CellContext`J, $CellContext`i, $CellContext`k] Subscript[$CellContext`\[Delta], $CellContext`j, $CellContext`l]], Editable->False]], "Print", CellChangeTimes->{3.453242465670621*^9, 3.4534835916371727`*^9, 3.4534837743773303`*^9, 3.453553292928048*^9, 3.4536450529539504`*^9, 3.4556177171890163`*^9}], Cell[BoxData["\<\"Done\"\>"], "Print", CellChangeTimes->{3.453242465670621*^9, 3.4534835916371727`*^9, 3.4534837743773303`*^9, 3.453553292928048*^9, 3.4536450529539504`*^9, 3.455617717193017*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PrintCommutators", "[", RowBox[{ SubscriptBox["l", "u4"], ",", RowBox[{"UnitaryReal4basis", "[", RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}], "]"}], ",", " ", RowBox[{"UnitaryReal4basis", "[", RowBox[{"{", RowBox[{"c", ",", "d"}], "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.4523496979343147`*^9, 3.452349699346345*^9}, { 3.452349776647499*^9, 3.4523497909580765`*^9}, {3.4523510388453555`*^9, 3.4523510392058735`*^9}, {3.4530696478496914`*^9, 3.453069702237898*^9}, { 3.45348373959733*^9, 3.45348377180433*^9}}], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SubscriptBox["M", RowBox[{"a", ",", "b"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["M", RowBox[{"c", ",", "d"}]], "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["L", RowBox[{"b", ",", "d"}]]}], " ", SubscriptBox["\[Eta]", RowBox[{"a", ",", "c"}]]}], "-", RowBox[{ SubscriptBox["L", RowBox[{"b", ",", "c"}]], " ", SubscriptBox["\[Eta]", RowBox[{"a", ",", "d"}]]}], "-", RowBox[{ SubscriptBox["L", RowBox[{"a", ",", "d"}]], " ", SubscriptBox["\[Eta]", RowBox[{"b", ",", "c"}]]}], "-", RowBox[{ SubscriptBox["L", RowBox[{"a", ",", "c"}]], " ", SubscriptBox["\[Eta]", RowBox[{"b", ",", "d"}]]}]}]}], SequenceForm["[", Subscript[$CellContext`M, $CellContext`a, $CellContext`b], ",", Subscript[$CellContext`M, $CellContext`c, $CellContext`d], "] = ", -Subscript[$CellContext`L, $CellContext`b, $CellContext`d] Subscript[$CellContext`\[Eta], $CellContext`a, $CellContext`c] - Subscript[$CellContext`L, $CellContext`b, $CellContext`c] Subscript[$CellContext`\[Eta], $CellContext`a, $CellContext`d] - Subscript[$CellContext`L, $CellContext`a, $CellContext`d] Subscript[$CellContext`\[Eta], $CellContext`b, $CellContext`c] - Subscript[$CellContext`L, $CellContext`a, $CellContext`c] Subscript[$CellContext`\[Eta], $CellContext`b, $CellContext`d]], Editable->False]], "Print", CellChangeTimes->{ 3.453242465765621*^9, 3.453483591832192*^9, {3.45348374490833*^9, 3.45348377445333*^9}, 3.4535532930940647`*^9, 3.453645053391994*^9, 3.4556177173790355`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SubscriptBox["M", RowBox[{"a", ",", "b"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["L", RowBox[{"c", ",", "d"}]], "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{ SubscriptBox["M", RowBox[{"b", ",", "d"}]], " ", SubscriptBox["\[Eta]", RowBox[{"a", ",", "c"}]]}], "-", RowBox[{ SubscriptBox["M", RowBox[{"b", ",", "c"}]], " ", SubscriptBox["\[Eta]", RowBox[{"a", ",", "d"}]]}], "+", RowBox[{ SubscriptBox["M", RowBox[{"a", ",", "d"}]], " ", SubscriptBox["\[Eta]", RowBox[{"b", ",", "c"}]]}], "-", RowBox[{ SubscriptBox["M", RowBox[{"a", ",", "c"}]], " ", SubscriptBox["\[Eta]", RowBox[{"b", ",", "d"}]]}]}]}], SequenceForm["[", Subscript[$CellContext`M, $CellContext`a, $CellContext`b], ",", Subscript[$CellContext`L, $CellContext`c, $CellContext`d], "] = ", Subscript[$CellContext`M, $CellContext`b, $CellContext`d] Subscript[$CellContext`\[Eta], $CellContext`a, $CellContext`c] - Subscript[$CellContext`M, $CellContext`b, $CellContext`c] Subscript[$CellContext`\[Eta], $CellContext`a, $CellContext`d] + Subscript[$CellContext`M, $CellContext`a, $CellContext`d] Subscript[$CellContext`\[Eta], $CellContext`b, $CellContext`c] - Subscript[$CellContext`M, $CellContext`a, $CellContext`c] Subscript[$CellContext`\[Eta], $CellContext`b, $CellContext`d]], Editable->False]], "Print", CellChangeTimes->{ 3.453242465765621*^9, 3.453483591832192*^9, {3.45348374490833*^9, 3.45348377445333*^9}, 3.4535532930940647`*^9, 3.453645053391994*^9, 3.4556177173820353`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SubscriptBox["L", RowBox[{"a", ",", "b"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["L", RowBox[{"c", ",", "d"}]], "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["L", RowBox[{"b", ",", "d"}]]}], " ", SubscriptBox["\[Eta]", RowBox[{"a", ",", "c"}]]}], "+", RowBox[{ SubscriptBox["L", RowBox[{"b", ",", "c"}]], " ", SubscriptBox["\[Eta]", RowBox[{"a", ",", "d"}]]}], "+", RowBox[{ SubscriptBox["L", RowBox[{"a", ",", "d"}]], " ", SubscriptBox["\[Eta]", RowBox[{"b", ",", "c"}]]}], "-", RowBox[{ SubscriptBox["L", RowBox[{"a", ",", "c"}]], " ", SubscriptBox["\[Eta]", RowBox[{"b", ",", "d"}]]}]}]}], SequenceForm["[", Subscript[$CellContext`L, $CellContext`a, $CellContext`b], ",", Subscript[$CellContext`L, $CellContext`c, $CellContext`d], "] = ", -Subscript[$CellContext`L, $CellContext`b, $CellContext`d] Subscript[$CellContext`\[Eta], $CellContext`a, $CellContext`c] + Subscript[$CellContext`L, $CellContext`b, $CellContext`c] Subscript[$CellContext`\[Eta], $CellContext`a, $CellContext`d] + Subscript[$CellContext`L, $CellContext`a, $CellContext`d] Subscript[$CellContext`\[Eta], $CellContext`b, $CellContext`c] - Subscript[$CellContext`L, $CellContext`a, $CellContext`c] Subscript[$CellContext`\[Eta], $CellContext`b, $CellContext`d]], Editable->False]], "Print", CellChangeTimes->{ 3.453242465765621*^9, 3.453483591832192*^9, {3.45348374490833*^9, 3.45348377445333*^9}, 3.4535532930940647`*^9, 3.453645053391994*^9, 3.455617717385036*^9}], Cell[BoxData["\<\"Done\"\>"], "Print", CellChangeTimes->{ 3.453242465765621*^9, 3.453483591832192*^9, {3.45348374490833*^9, 3.45348377445333*^9}, 3.4535532930940647`*^9, 3.453645053391994*^9, 3.4556177173880367`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListCommutators", "[", RowBox[{ SubscriptBox["l", "u4"], ",", RowBox[{"UnitaryReal4basis", "[", RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}], "]"}], ",", " ", RowBox[{"UnitaryReal4basis", "[", RowBox[{"{", RowBox[{"c", ",", "d"}], "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.4523496979343147`*^9, 3.452349699346345*^9}, { 3.452349776647499*^9, 3.4523497909580765`*^9}, {3.4523510388453555`*^9, 3.4523510392058735`*^9}, {3.4530696478496914`*^9, 3.453069702237898*^9}, { 3.45348373959733*^9, 3.45348377180433*^9}, {3.453483984637473*^9, 3.453483988624872*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"a", ",", "b"}]], ",", SubscriptBox["M", RowBox[{"c", ",", "d"}]]}], "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["L", RowBox[{"b", ",", "d"}]]}], " ", SubscriptBox["\[Eta]", RowBox[{"a", ",", "c"}]]}], "-", RowBox[{ SubscriptBox["L", RowBox[{"b", ",", "c"}]], " ", SubscriptBox["\[Eta]", RowBox[{"a", ",", "d"}]]}], "-", RowBox[{ SubscriptBox["L", RowBox[{"a", ",", "d"}]], " ", SubscriptBox["\[Eta]", RowBox[{"b", ",", "c"}]]}], "-", RowBox[{ SubscriptBox["L", RowBox[{"a", ",", "c"}]], " ", SubscriptBox["\[Eta]", RowBox[{"b", ",", "d"}]]}]}]}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"a", ",", "b"}]], ",", SubscriptBox["L", RowBox[{"c", ",", "d"}]]}], "]"}], "\[Equal]", RowBox[{ RowBox[{ SubscriptBox["M", RowBox[{"b", ",", "d"}]], " ", SubscriptBox["\[Eta]", RowBox[{"a", ",", "c"}]]}], "-", RowBox[{ SubscriptBox["M", RowBox[{"b", ",", "c"}]], " ", SubscriptBox["\[Eta]", RowBox[{"a", ",", "d"}]]}], "+", RowBox[{ SubscriptBox["M", RowBox[{"a", ",", "d"}]], " ", SubscriptBox["\[Eta]", RowBox[{"b", ",", "c"}]]}], "-", RowBox[{ SubscriptBox["M", RowBox[{"a", ",", "c"}]], " ", SubscriptBox["\[Eta]", RowBox[{"b", ",", "d"}]]}]}]}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["L", RowBox[{"a", ",", "b"}]], ",", SubscriptBox["L", RowBox[{"c", ",", "d"}]]}], "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["L", RowBox[{"b", ",", "d"}]]}], " ", SubscriptBox["\[Eta]", RowBox[{"a", ",", "c"}]]}], "+", RowBox[{ SubscriptBox["L", RowBox[{"b", ",", "c"}]], " ", SubscriptBox["\[Eta]", RowBox[{"a", ",", "d"}]]}], "+", RowBox[{ SubscriptBox["L", RowBox[{"a", ",", "d"}]], " ", SubscriptBox["\[Eta]", RowBox[{"b", ",", "c"}]]}], "-", RowBox[{ SubscriptBox["L", RowBox[{"a", ",", "c"}]], " ", SubscriptBox["\[Eta]", RowBox[{"b", ",", "d"}]]}]}]}]}], "}"}]], "Output", CellChangeTimes->{3.4534839902510347`*^9, 3.4535532931810737`*^9, 3.453645055383193*^9, 3.4556177174780455`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TestJacobi", "[", RowBox[{ SubscriptBox["l", "u3"], ",", RowBox[{"{", "}"}], ",", RowBox[{"UnitaryReal3basis", "[", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}], "]"}], ",", RowBox[{"UnitaryReal3basis", "[", RowBox[{"{", RowBox[{"k", ",", "l"}], "}"}], "]"}], ",", RowBox[{"UnitaryReal3basis", "[", RowBox[{"{", RowBox[{"m", ",", "n"}], "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.452207455555413*^9, 3.4522075712417617`*^9}, { 3.452209061324395*^9, 3.4522090785992355`*^9}, {3.452347001898718*^9, 3.4523470149574957`*^9}, 3.452347058980798*^9, {3.4523502834061823`*^9, 3.4523503310446825`*^9}, {3.452351011055395*^9, 3.4523510157321205`*^9}, { 3.4523511317389297`*^9, 3.452351157666211*^9}, {3.4530697175198717`*^9, 3.4530697462511854`*^9}}], Cell[BoxData["\<\"Done\"\>"], "Print", CellChangeTimes->{3.453242466557621*^9, 3.453483592117221*^9, 3.45348377469433*^9, 3.453553293462102*^9, 3.4536450557262278`*^9, 3.4556177177760754`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TestJacobi", "[", RowBox[{ SubscriptBox["l", "u4"], ",", RowBox[{"{", "}"}], ",", RowBox[{"UnitaryReal4basis", "[", RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}], "]"}], ",", RowBox[{"UnitaryReal4basis", "[", RowBox[{"{", RowBox[{"c", ",", "d"}], "}"}], "]"}], ",", RowBox[{"UnitaryReal4basis", "[", RowBox[{"{", RowBox[{"e", ",", "f"}], "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.452207455555413*^9, 3.4522075712417617`*^9}, { 3.452209061324395*^9, 3.4522090785992355`*^9}, {3.452347001898718*^9, 3.4523470149574957`*^9}, 3.452347058980798*^9, {3.4523502834061823`*^9, 3.4523503310446825`*^9}, {3.452351011055395*^9, 3.4523510157321205`*^9}, { 3.4523511317389297`*^9, 3.452351157666211*^9}, {3.4530697175198717`*^9, 3.4530697908853664`*^9}}], Cell[BoxData["\<\"Done\"\>"], "Print", CellChangeTimes->{3.4532424680116215`*^9, 3.453483592569266*^9, 3.4534837750943303`*^9, 3.453553293911147*^9, 3.4536450562892838`*^9, 3.4556177182601233`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PrintCommutators", "[", RowBox[{ SubscriptBox["l", "u3"], ",", RowBox[{"UnitaryReal3basis", "[", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}], "]"}], ",", " ", RowBox[{"UnitaryReal3basis", "[", RowBox[{"{", RowBox[{"k", ",", "l"}], "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.4523496979343147`*^9, 3.452349699346345*^9}, { 3.452349776647499*^9, 3.4523497909580765`*^9}, {3.4523510388453555`*^9, 3.4523510392058735`*^9}, {3.4530696478496914`*^9, 3.45306966823901*^9}, { 3.45348375877133*^9, 3.4534837636573305`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SubscriptBox["M", RowBox[{"i", ",", "j"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["M", RowBox[{"k", ",", "l"}]], "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["J", RowBox[{"j", ",", "l"}]]}], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]]}], "-", RowBox[{ SubscriptBox["J", RowBox[{"j", ",", "k"}]], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "l"}]]}], "-", RowBox[{ SubscriptBox["J", RowBox[{"i", ",", "l"}]], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "k"}]]}], "-", RowBox[{ SubscriptBox["J", RowBox[{"i", ",", "k"}]], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "l"}]]}]}]}], SequenceForm["[", Subscript[$CellContext`M, $CellContext`i, $CellContext`j], ",", Subscript[$CellContext`M, $CellContext`k, $CellContext`l], "] = ", -Subscript[$CellContext`J, $CellContext`j, $CellContext`l] Subscript[$CellContext`\[Delta], $CellContext`i, $CellContext`k] - Subscript[$CellContext`J, $CellContext`j, $CellContext`k] Subscript[$CellContext`\[Delta], $CellContext`i, $CellContext`l] - Subscript[$CellContext`J, $CellContext`i, $CellContext`l] Subscript[$CellContext`\[Delta], $CellContext`j, $CellContext`k] - Subscript[$CellContext`J, $CellContext`i, $CellContext`k] Subscript[$CellContext`\[Delta], $CellContext`j, $CellContext`l]], Editable->False]], "Print", CellChangeTimes->{3.453242465670621*^9, 3.4534835916371727`*^9, 3.4534837743773303`*^9, 3.4535532953632917`*^9, 3.453645056478303*^9, 3.4556177185401516`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SubscriptBox["M", RowBox[{"i", ",", "j"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["J", RowBox[{"k", ",", "l"}]], "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{ SubscriptBox["M", RowBox[{"j", ",", "l"}]], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]]}], "-", RowBox[{ SubscriptBox["M", RowBox[{"j", ",", "k"}]], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "l"}]]}], "+", RowBox[{ SubscriptBox["M", RowBox[{"i", ",", "l"}]], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "k"}]]}], "-", RowBox[{ SubscriptBox["M", RowBox[{"i", ",", "k"}]], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "l"}]]}]}]}], SequenceForm["[", Subscript[$CellContext`M, $CellContext`i, $CellContext`j], ",", Subscript[$CellContext`J, $CellContext`k, $CellContext`l], "] = ", Subscript[$CellContext`M, $CellContext`j, $CellContext`l] Subscript[$CellContext`\[Delta], $CellContext`i, $CellContext`k] - Subscript[$CellContext`M, $CellContext`j, $CellContext`k] Subscript[$CellContext`\[Delta], $CellContext`i, $CellContext`l] + Subscript[$CellContext`M, $CellContext`i, $CellContext`l] Subscript[$CellContext`\[Delta], $CellContext`j, $CellContext`k] - Subscript[$CellContext`M, $CellContext`i, $CellContext`k] Subscript[$CellContext`\[Delta], $CellContext`j, $CellContext`l]], Editable->False]], "Print", CellChangeTimes->{3.453242465670621*^9, 3.4534835916371727`*^9, 3.4534837743773303`*^9, 3.4535532953632917`*^9, 3.453645056478303*^9, 3.4556177185421515`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SubscriptBox["J", RowBox[{"i", ",", "j"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["J", RowBox[{"k", ",", "l"}]], "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["J", RowBox[{"j", ",", "l"}]]}], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]]}], "+", RowBox[{ SubscriptBox["J", RowBox[{"j", ",", "k"}]], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "l"}]]}], "+", RowBox[{ SubscriptBox["J", RowBox[{"i", ",", "l"}]], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "k"}]]}], "-", RowBox[{ SubscriptBox["J", RowBox[{"i", ",", "k"}]], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "l"}]]}]}]}], SequenceForm["[", Subscript[$CellContext`J, $CellContext`i, $CellContext`j], ",", Subscript[$CellContext`J, $CellContext`k, $CellContext`l], "] = ", -Subscript[$CellContext`J, $CellContext`j, $CellContext`l] Subscript[$CellContext`\[Delta], $CellContext`i, $CellContext`k] + Subscript[$CellContext`J, $CellContext`j, $CellContext`k] Subscript[$CellContext`\[Delta], $CellContext`i, $CellContext`l] + Subscript[$CellContext`J, $CellContext`i, $CellContext`l] Subscript[$CellContext`\[Delta], $CellContext`j, $CellContext`k] - Subscript[$CellContext`J, $CellContext`i, $CellContext`k] Subscript[$CellContext`\[Delta], $CellContext`j, $CellContext`l]], Editable->False]], "Print", CellChangeTimes->{3.453242465670621*^9, 3.4534835916371727`*^9, 3.4534837743773303`*^9, 3.4535532953632917`*^9, 3.453645056478303*^9, 3.455617718546152*^9}], Cell[BoxData["\<\"Done\"\>"], "Print", CellChangeTimes->{3.453242465670621*^9, 3.4534835916371727`*^9, 3.4534837743773303`*^9, 3.4535532953632917`*^9, 3.453645056478303*^9, 3.4556177185491524`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PrintCommutators", "[", RowBox[{ SubscriptBox["l", "u4"], ",", RowBox[{"UnitaryReal4basis", "[", RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}], "]"}], ",", " ", RowBox[{"UnitaryReal4basis", "[", RowBox[{"{", RowBox[{"c", ",", "d"}], "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.4523496979343147`*^9, 3.452349699346345*^9}, { 3.452349776647499*^9, 3.4523497909580765`*^9}, {3.4523510388453555`*^9, 3.4523510392058735`*^9}, {3.4530696478496914`*^9, 3.453069702237898*^9}, { 3.45348373959733*^9, 3.45348377180433*^9}}], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SubscriptBox["M", RowBox[{"a", ",", "b"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["M", RowBox[{"c", ",", "d"}]], "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["L", RowBox[{"b", ",", "d"}]]}], " ", SubscriptBox["\[Eta]", RowBox[{"a", ",", "c"}]]}], "-", RowBox[{ SubscriptBox["L", RowBox[{"b", ",", "c"}]], " ", SubscriptBox["\[Eta]", RowBox[{"a", ",", "d"}]]}], "-", RowBox[{ SubscriptBox["L", RowBox[{"a", ",", "d"}]], " ", SubscriptBox["\[Eta]", RowBox[{"b", ",", "c"}]]}], "-", RowBox[{ SubscriptBox["L", RowBox[{"a", ",", "c"}]], " ", SubscriptBox["\[Eta]", RowBox[{"b", ",", "d"}]]}]}]}], SequenceForm["[", Subscript[$CellContext`M, $CellContext`a, $CellContext`b], ",", Subscript[$CellContext`M, $CellContext`c, $CellContext`d], "] = ", -Subscript[$CellContext`L, $CellContext`b, $CellContext`d] Subscript[$CellContext`\[Eta], $CellContext`a, $CellContext`c] - Subscript[$CellContext`L, $CellContext`b, $CellContext`c] Subscript[$CellContext`\[Eta], $CellContext`a, $CellContext`d] - Subscript[$CellContext`L, $CellContext`a, $CellContext`d] Subscript[$CellContext`\[Eta], $CellContext`b, $CellContext`c] - Subscript[$CellContext`L, $CellContext`a, $CellContext`c] Subscript[$CellContext`\[Eta], $CellContext`b, $CellContext`d]], Editable->False]], "Print", CellChangeTimes->{ 3.453242465765621*^9, 3.453483591832192*^9, {3.45348374490833*^9, 3.45348377445333*^9}, 3.4535532956003156`*^9, 3.4536450567153263`*^9, 3.455617718737171*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SubscriptBox["M", RowBox[{"a", ",", "b"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["L", RowBox[{"c", ",", "d"}]], "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{ SubscriptBox["M", RowBox[{"b", ",", "d"}]], " ", SubscriptBox["\[Eta]", RowBox[{"a", ",", "c"}]]}], "-", RowBox[{ SubscriptBox["M", RowBox[{"b", ",", "c"}]], " ", SubscriptBox["\[Eta]", RowBox[{"a", ",", "d"}]]}], "+", RowBox[{ SubscriptBox["M", RowBox[{"a", ",", "d"}]], " ", SubscriptBox["\[Eta]", RowBox[{"b", ",", "c"}]]}], "-", RowBox[{ SubscriptBox["M", RowBox[{"a", ",", "c"}]], " ", SubscriptBox["\[Eta]", RowBox[{"b", ",", "d"}]]}]}]}], SequenceForm["[", Subscript[$CellContext`M, $CellContext`a, $CellContext`b], ",", Subscript[$CellContext`L, $CellContext`c, $CellContext`d], "] = ", Subscript[$CellContext`M, $CellContext`b, $CellContext`d] Subscript[$CellContext`\[Eta], $CellContext`a, $CellContext`c] - Subscript[$CellContext`M, $CellContext`b, $CellContext`c] Subscript[$CellContext`\[Eta], $CellContext`a, $CellContext`d] + Subscript[$CellContext`M, $CellContext`a, $CellContext`d] Subscript[$CellContext`\[Eta], $CellContext`b, $CellContext`c] - Subscript[$CellContext`M, $CellContext`a, $CellContext`c] Subscript[$CellContext`\[Eta], $CellContext`b, $CellContext`d]], Editable->False]], "Print", CellChangeTimes->{ 3.453242465765621*^9, 3.453483591832192*^9, {3.45348374490833*^9, 3.45348377445333*^9}, 3.4535532956003156`*^9, 3.4536450567153263`*^9, 3.4556177187391715`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SubscriptBox["L", RowBox[{"a", ",", "b"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["L", RowBox[{"c", ",", "d"}]], "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["L", RowBox[{"b", ",", "d"}]]}], " ", SubscriptBox["\[Eta]", RowBox[{"a", ",", "c"}]]}], "+", RowBox[{ SubscriptBox["L", RowBox[{"b", ",", "c"}]], " ", SubscriptBox["\[Eta]", RowBox[{"a", ",", "d"}]]}], "+", RowBox[{ SubscriptBox["L", RowBox[{"a", ",", "d"}]], " ", SubscriptBox["\[Eta]", RowBox[{"b", ",", "c"}]]}], "-", RowBox[{ SubscriptBox["L", RowBox[{"a", ",", "c"}]], " ", SubscriptBox["\[Eta]", RowBox[{"b", ",", "d"}]]}]}]}], SequenceForm["[", Subscript[$CellContext`L, $CellContext`a, $CellContext`b], ",", Subscript[$CellContext`L, $CellContext`c, $CellContext`d], "] = ", -Subscript[$CellContext`L, $CellContext`b, $CellContext`d] Subscript[$CellContext`\[Eta], $CellContext`a, $CellContext`c] + Subscript[$CellContext`L, $CellContext`b, $CellContext`c] Subscript[$CellContext`\[Eta], $CellContext`a, $CellContext`d] + Subscript[$CellContext`L, $CellContext`a, $CellContext`d] Subscript[$CellContext`\[Eta], $CellContext`b, $CellContext`c] - Subscript[$CellContext`L, $CellContext`a, $CellContext`c] Subscript[$CellContext`\[Eta], $CellContext`b, $CellContext`d]], Editable->False]], "Print", CellChangeTimes->{ 3.453242465765621*^9, 3.453483591832192*^9, {3.45348374490833*^9, 3.45348377445333*^9}, 3.4535532956003156`*^9, 3.4536450567153263`*^9, 3.4556177187431717`*^9}], Cell[BoxData["\<\"Done\"\>"], "Print", CellChangeTimes->{ 3.453242465765621*^9, 3.453483591832192*^9, {3.45348374490833*^9, 3.45348377445333*^9}, 3.4535532956003156`*^9, 3.4536450567153263`*^9, 3.455617718746172*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListCommutators", "[", RowBox[{ SubscriptBox["l", "u4"], ",", RowBox[{"UnitaryReal4basis", "[", RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}], "]"}], ",", " ", RowBox[{"UnitaryReal4basis", "[", RowBox[{"{", RowBox[{"c", ",", "d"}], "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.4523496979343147`*^9, 3.452349699346345*^9}, { 3.452349776647499*^9, 3.4523497909580765`*^9}, {3.4523510388453555`*^9, 3.4523510392058735`*^9}, {3.4530696478496914`*^9, 3.453069702237898*^9}, { 3.45348373959733*^9, 3.45348377180433*^9}, {3.453483984637473*^9, 3.453483988624872*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"a", ",", "b"}]], ",", SubscriptBox["M", RowBox[{"c", ",", "d"}]]}], "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["L", RowBox[{"b", ",", "d"}]]}], " ", SubscriptBox["\[Eta]", RowBox[{"a", ",", "c"}]]}], "-", RowBox[{ SubscriptBox["L", RowBox[{"b", ",", "c"}]], " ", SubscriptBox["\[Eta]", RowBox[{"a", ",", "d"}]]}], "-", RowBox[{ SubscriptBox["L", RowBox[{"a", ",", "d"}]], " ", SubscriptBox["\[Eta]", RowBox[{"b", ",", "c"}]]}], "-", RowBox[{ SubscriptBox["L", RowBox[{"a", ",", "c"}]], " ", SubscriptBox["\[Eta]", RowBox[{"b", ",", "d"}]]}]}]}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"a", ",", "b"}]], ",", SubscriptBox["L", RowBox[{"c", ",", "d"}]]}], "]"}], "\[Equal]", RowBox[{ RowBox[{ SubscriptBox["M", RowBox[{"b", ",", "d"}]], " ", SubscriptBox["\[Eta]", RowBox[{"a", ",", "c"}]]}], "-", RowBox[{ SubscriptBox["M", RowBox[{"b", ",", "c"}]], " ", SubscriptBox["\[Eta]", RowBox[{"a", ",", "d"}]]}], "+", RowBox[{ SubscriptBox["M", RowBox[{"a", ",", "d"}]], " ", SubscriptBox["\[Eta]", RowBox[{"b", ",", "c"}]]}], "-", RowBox[{ SubscriptBox["M", RowBox[{"a", ",", "c"}]], " ", SubscriptBox["\[Eta]", RowBox[{"b", ",", "d"}]]}]}]}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["L", RowBox[{"a", ",", "b"}]], ",", SubscriptBox["L", RowBox[{"c", ",", "d"}]]}], "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["L", RowBox[{"b", ",", "d"}]]}], " ", SubscriptBox["\[Eta]", RowBox[{"a", ",", "c"}]]}], "+", RowBox[{ SubscriptBox["L", RowBox[{"b", ",", "c"}]], " ", SubscriptBox["\[Eta]", RowBox[{"a", ",", "d"}]]}], "+", RowBox[{ SubscriptBox["L", RowBox[{"a", ",", "d"}]], " ", SubscriptBox["\[Eta]", RowBox[{"b", ",", "c"}]]}], "-", RowBox[{ SubscriptBox["L", RowBox[{"a", ",", "c"}]], " ", SubscriptBox["\[Eta]", RowBox[{"b", ",", "d"}]]}]}]}]}], "}"}]], "Output", CellChangeTimes->{3.4534839902510347`*^9, 3.453553295690325*^9, 3.4536450576754227`*^9, 3.455617718837181*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TestJacobi", "[", RowBox[{ SubscriptBox["l", "u3"], ",", RowBox[{"{", "}"}], ",", RowBox[{"UnitaryReal3basis", "[", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}], "]"}], ",", RowBox[{"UnitaryReal3basis", "[", RowBox[{"{", RowBox[{"k", ",", "l"}], "}"}], "]"}], ",", RowBox[{"UnitaryReal3basis", "[", RowBox[{"{", RowBox[{"m", ",", "n"}], "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.452207455555413*^9, 3.4522075712417617`*^9}, { 3.452209061324395*^9, 3.4522090785992355`*^9}, {3.452347001898718*^9, 3.4523470149574957`*^9}, 3.452347058980798*^9, {3.4523502834061823`*^9, 3.4523503310446825`*^9}, {3.452351011055395*^9, 3.4523510157321205`*^9}, { 3.4523511317389297`*^9, 3.452351157666211*^9}, {3.4530697175198717`*^9, 3.4530697462511854`*^9}}], Cell[BoxData["\<\"Done\"\>"], "Print", CellChangeTimes->{3.453242466557621*^9, 3.453483592117221*^9, 3.45348377469433*^9, 3.453553297816537*^9, 3.453645058002455*^9, 3.45561771912721*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TestJacobi", "[", RowBox[{ SubscriptBox["l", "u4"], ",", RowBox[{"{", "}"}], ",", RowBox[{"UnitaryReal4basis", "[", RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}], "]"}], ",", RowBox[{"UnitaryReal4basis", "[", RowBox[{"{", RowBox[{"c", ",", "d"}], "}"}], "]"}], ",", RowBox[{"UnitaryReal4basis", "[", RowBox[{"{", RowBox[{"e", ",", "f"}], "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.452207455555413*^9, 3.4522075712417617`*^9}, { 3.452209061324395*^9, 3.4522090785992355`*^9}, {3.452347001898718*^9, 3.4523470149574957`*^9}, 3.452347058980798*^9, {3.4523502834061823`*^9, 3.4523503310446825`*^9}, {3.452351011055395*^9, 3.4523510157321205`*^9}, { 3.4523511317389297`*^9, 3.452351157666211*^9}, {3.4530697175198717`*^9, 3.4530697908853664`*^9}}], Cell[BoxData["\<\"Done\"\>"], "Print", CellChangeTimes->{3.4532424680116215`*^9, 3.453483592569266*^9, 3.4534837750943303`*^9, 3.4535532983705926`*^9, 3.4536450584655013`*^9, 3.455617719595257*^9}] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Abelian", "Section", CellChangeTimes->{{3.4281011894382477`*^9, 3.4281012112596254`*^9}, { 3.4530672150915565`*^9, 3.453067216603731*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PrintCommutators", "[", RowBox[{ SubscriptBox["l", "a"], ",", RowBox[{"AbelianBasis", "[", RowBox[{"{", "i", "}"}], "]"}], ",", RowBox[{"AbelianBasis", "[", RowBox[{"{", "j", "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.4523496979343147`*^9, 3.452349699346345*^9}, { 3.452349776647499*^9, 3.4523497909580765`*^9}, {3.4523510388453555`*^9, 3.4523510392058735`*^9}, {3.453066005362051*^9, 3.4530660540620785`*^9}, { 3.4530672209599953`*^9, 3.453067274687251*^9}}], Cell[BoxData["\<\"Done\"\>"], "Print", CellChangeTimes->{3.4532424683106213`*^9, 3.453483592943303*^9, 3.453553298483604*^9, 3.453645058585513*^9, 3.455617719758273*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TestJacobi", "[", RowBox[{ SubscriptBox["l", "a"], ",", RowBox[{"{", "}"}], ",", RowBox[{"AbelianBasis", "[", RowBox[{"{", "i", "}"}], "]"}], ",", RowBox[{"AbelianBasis", "[", RowBox[{"{", "j", "}"}], "]"}], ",", RowBox[{"AbelianBasis", "[", RowBox[{"{", "k", "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.452207455555413*^9, 3.4522075712417617`*^9}, { 3.452209061324395*^9, 3.4522090785992355`*^9}, {3.452347001898718*^9, 3.4523470149574957`*^9}, 3.452347058980798*^9, {3.4523502834061823`*^9, 3.4523503310446825`*^9}, {3.452351011055395*^9, 3.4523510157321205`*^9}, { 3.4523511317389297`*^9, 3.452351157666211*^9}, {3.4530672885872383`*^9, 3.4530673084457936`*^9}}], Cell[BoxData["\<\"Done\"\>"], "Print", CellChangeTimes->{3.453242468365621*^9, 3.4534835930163107`*^9, 3.4535532985576115`*^9, 3.453645058672522*^9, 3.455617719845282*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Inhomogeneous algebra", "Section", CellChangeTimes->{{3.4281011894382477`*^9, 3.4281012112596254`*^9}, { 3.452349482184081*^9, 3.4523494942914906`*^9}, {3.452349634042443*^9, 3.4523496414631133`*^9}, 3.4534887977457595`*^9, {3.453488838964881*^9, 3.453488842086193*^9}}], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"igl", "(", RowBox[{"n", ",", "\[DoubleStruckCapitalR]"}], ")"}], TraditionalForm]], "None", FormatType->"TraditionalForm"]], "Subsection", CellChangeTimes->{{3.4534888260685916`*^9, 3.45348886125311*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}], RowBox[{ RowBox[{"(", "n", ")"}], "/", "2"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{"n", "-", "2"}], ")"}], RowBox[{ RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}], "/", "2"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.453995944387*^9, 3.453995976659*^9}, { 3.4539960922869997`*^9, 3.4539960979709997`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"-", "1"}], "+", "n"}]], "Output", CellChangeTimes->{{3.4539959673710003`*^9, 3.453995977678*^9}, 3.4539961000880003`*^9, 3.455617720006298*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PrintCommutators", "[", RowBox[{ SubscriptBox["l", "igl"], ",", RowBox[{"IGLBasis", "[", RowBox[{"{", RowBox[{"\[Alpha]", ",", " ", "\[Beta]", ",", " ", "\[Gamma]"}], "}"}], "]"}], ",", " ", RowBox[{"IGLBasis", "[", RowBox[{"{", RowBox[{"\[Kappa]", ",", " ", "\[Rho]", ",", " ", "\[Epsilon]"}], "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.4523496979343147`*^9, 3.452349699346345*^9}, { 3.452349776647499*^9, 3.4523497909580765`*^9}, {3.4523510388453555`*^9, 3.4523510392058735`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SubsuperscriptBox["\[CapitalEpsilon]", "\[Alpha]", "\[Beta]"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubsuperscriptBox["\[CapitalEpsilon]", "\[Kappa]", "\[Rho]"], "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{ SubsuperscriptBox["\[Delta]", "\[Kappa]", "\[Beta]"], " ", SubsuperscriptBox["\[CapitalEpsilon]", "\[Alpha]", "\[Rho]"]}], "-", RowBox[{ SubsuperscriptBox["\[Delta]", "\[Alpha]", "\[Rho]"], " ", SubsuperscriptBox["\[CapitalEpsilon]", "\[Kappa]", "\[Beta]"]}]}]}], SequenceForm[ "[", Subscript[$CellContext`\[CapitalEpsilon], \ $CellContext`\[Alpha]]^$CellContext`\[Beta], ",", Subscript[$CellContext`\[CapitalEpsilon], \ $CellContext`\[Kappa]]^$CellContext`\[Rho], "] = ", Subscript[$CellContext`\[Delta], $CellContext`\[Kappa]]^$CellContext`\ \[Beta] Subscript[$CellContext`\[CapitalEpsilon], \ $CellContext`\[Alpha]]^$CellContext`\[Rho] - Subscript[$CellContext`\[Delta], \ $CellContext`\[Alpha]]^$CellContext`\[Rho] Subscript[$CellContext`\[CapitalEpsilon], \ $CellContext`\[Kappa]]^$CellContext`\[Beta]], Editable->False]], "Print", CellChangeTimes->{3.4532424681266212`*^9, 3.4534835927202806`*^9, 3.45355329874663*^9, 3.453645058897545*^9, 3.455617720280326*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SubsuperscriptBox["\[CapitalEpsilon]", "\[Alpha]", "\[Beta]"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["A", "\[Epsilon]"], "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", RowBox[{ SubscriptBox["A", "\[Alpha]"], " ", SubsuperscriptBox["\[Delta]", "\[Epsilon]", "\[Beta]"]}]}], SequenceForm[ "[", Subscript[$CellContext`\[CapitalEpsilon], \ $CellContext`\[Alpha]]^$CellContext`\[Beta], ",", Subscript[$CellContext`A, $CellContext`\[Epsilon]], "] = ", Subscript[$CellContext`A, $CellContext`\[Alpha]] Subscript[$CellContext`\[Delta], $CellContext`\[Epsilon]]^$CellContext`\ \[Beta]], Editable->False]], "Print", CellChangeTimes->{3.4532424681266212`*^9, 3.4534835927202806`*^9, 3.45355329874663*^9, 3.453645058897545*^9, 3.4556177202823257`*^9}], Cell[BoxData["\<\"Done\"\>"], "Print", CellChangeTimes->{3.4532424681266212`*^9, 3.4534835927202806`*^9, 3.45355329874663*^9, 3.453645058897545*^9, 3.455617720285326*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TestJacobi", "[", RowBox[{ SubscriptBox["l", "igl"], ",", RowBox[{"{", "}"}], ",", RowBox[{"IGLBasis", "[", RowBox[{"{", RowBox[{"\[Alpha]", ",", " ", "\[Beta]", ",", " ", "\[Gamma]"}], "}"}], "]"}], ",", RowBox[{"IGLBasis", "[", RowBox[{"{", RowBox[{"\[Kappa]", ",", " ", "\[Rho]", ",", " ", "\[Epsilon]"}], "}"}], "]"}], ",", RowBox[{"IGLBasis", "[", RowBox[{"{", RowBox[{"\[Iota]", ",", " ", "\[Mu]", ",", " ", "\[Nu]"}], "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.452207455555413*^9, 3.4522075712417617`*^9}, { 3.452209061324395*^9, 3.4522090785992355`*^9}, {3.452347001898718*^9, 3.4523470149574957`*^9}, 3.452347058980798*^9, {3.4523502834061823`*^9, 3.4523503310446825`*^9}, {3.452351011055395*^9, 3.4523510157321205`*^9}, { 3.4523511317389297`*^9, 3.452351157666211*^9}}], Cell[BoxData["\<\"Done\"\>"], "Print", CellChangeTimes->{3.453242468252621*^9, 3.453483592843293*^9, 3.4535532988826437`*^9, 3.4536450590485597`*^9, 3.4556177204683447`*^9}] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"iglce", "(", RowBox[{"n", ",", "\[DoubleStruckCapitalR]"}], ")"}], TraditionalForm]], "None"]], "Subsection", CellChangeTimes->{{3.4534888260685916`*^9, 3.45348886125311*^9}, { 3.455579048095296*^9, 3.4555790890663924`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListCommutators", "[", RowBox[{ SubscriptBox["l", "iglce"], ",", RowBox[{"IGLceBasis", "[", RowBox[{"{", RowBox[{"\[Alpha]", ",", " ", "\[Beta]", ",", " ", "\[Gamma]"}], "}"}], "]"}], ",", " ", RowBox[{"IGLceBasis", "[", RowBox[{"{", RowBox[{"\[Kappa]", ",", " ", "\[Rho]", ",", " ", "\[Epsilon]"}], "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.4523496979343147`*^9, 3.452349699346345*^9}, { 3.452349776647499*^9, 3.4523497909580765`*^9}, {3.4523510388453555`*^9, 3.4523510392058735`*^9}, {3.4555794326637487`*^9, 3.4555794375982423`*^9}, { 3.4555802646559396`*^9, 3.4555802655180264`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"l", "[", RowBox[{ SubsuperscriptBox["\[CapitalEpsilon]", "\[Alpha]", "\[Beta]"], ",", SubsuperscriptBox["\[CapitalEpsilon]", "\[Kappa]", "\[Rho]"]}], "]"}], "\[Equal]", RowBox[{ RowBox[{ SubsuperscriptBox["\[Delta]", "\[Kappa]", "\[Beta]"], " ", SubsuperscriptBox["\[CapitalEpsilon]", "\[Alpha]", "\[Rho]"]}], "-", RowBox[{ SubsuperscriptBox["\[Delta]", "\[Alpha]", "\[Rho]"], " ", SubsuperscriptBox["\[CapitalEpsilon]", "\[Kappa]", "\[Beta]"]}]}]}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubsuperscriptBox["\[CapitalEpsilon]", "\[Alpha]", "\[Beta]"], ",", SubscriptBox["P", "\[Epsilon]"]}], "]"}], "\[Equal]", RowBox[{ RowBox[{ SubscriptBox["P", "\[Alpha]"], " ", SubsuperscriptBox["\[Delta]", "\[Epsilon]", "\[Beta]"]}], "+", SubsuperscriptBox["M", RowBox[{"\[Alpha]", ",", "\[Epsilon]"}], "\[Beta]"]}]}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Gamma]"], ",", SubscriptBox["P", "\[Epsilon]"]}], "]"}], "\[Equal]", SubscriptBox["A", RowBox[{"\[Gamma]", ",", "\[Epsilon]"}]]}]}], "}"}]], "Output", CellChangeTimes->{3.4555802688473587`*^9, 3.4556177205893564`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TestJacobiReturn", "[", RowBox[{"l", ",", RowBox[{"{", "}"}], ",", RowBox[{"{", SubsuperscriptBox["\[CapitalEpsilon]", "\[Alpha]", "\[Beta]"], "\[InvisibleSpace]", "}"}], ",", RowBox[{"{", SubscriptBox["P", "\[Epsilon]"], "}"}], ",", RowBox[{"{", SubscriptBox["P", "\[Nu]"], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.452207455555413*^9, 3.4522075712417617`*^9}, { 3.452209061324395*^9, 3.4522090785992355`*^9}, {3.452347001898718*^9, 3.4523470149574957`*^9}, 3.452347058980798*^9, {3.4523502834061823`*^9, 3.4523503310446825`*^9}, {3.452351011055395*^9, 3.4523510157321205`*^9}, { 3.4523511317389297`*^9, 3.452351157666211*^9}, {3.45557982381686*^9, 3.4555798530157795`*^9}, {3.4555799274622235`*^9, 3.455579928082286*^9}, { 3.455579962069684*^9, 3.455579992582735*^9}, 3.455580040715548*^9, { 3.4555800865711327`*^9, 3.4555800899664726`*^9}, {3.4555804797774496`*^9, 3.4555805526537366`*^9}, {3.4555807821246815`*^9, 3.455580829644433*^9}, 3.455580876760912*^9, {3.4555809995859118`*^9, 3.4555810232659116`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Epsilon]"], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Nu]"], ",", SubsuperscriptBox["\[CapitalEpsilon]", "\[Alpha]", "\[Beta]"]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Nu]"], ",", RowBox[{"l", "[", RowBox[{ SubsuperscriptBox["\[CapitalEpsilon]", "\[Alpha]", "\[Beta]"], ",", SubscriptBox["P", "\[Epsilon]"]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubsuperscriptBox["\[CapitalEpsilon]", "\[Alpha]", "\[Beta]"], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Epsilon]"], ",", SubscriptBox["P", "\[Nu]"]}], "]"}]}], "]"}]}], "}"}]], "Output", CellChangeTimes->{ 3.455580553777849*^9, {3.4555808110795765`*^9, 3.455580832365705*^9}, { 3.4555810034149113`*^9, 3.4555810266489115`*^9}, 3.455617720678365*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TestJacobiReturn", "[", RowBox[{"l", ",", RowBox[{"{", "}"}], ",", RowBox[{"{", SubsuperscriptBox["\[CapitalEpsilon]", "\[Alpha]", "\[Beta]"], "\[InvisibleSpace]", "}"}], ",", RowBox[{"{", SubsuperscriptBox["\[CapitalEpsilon]", "\[Kappa]", "\[Rho]"], "\[InvisibleSpace]", "}"}], ",", RowBox[{"{", SubscriptBox["P", "\[Nu]"], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.452207455555413*^9, 3.4522075712417617`*^9}, { 3.452209061324395*^9, 3.4522090785992355`*^9}, {3.452347001898718*^9, 3.4523470149574957`*^9}, 3.452347058980798*^9, {3.4523502834061823`*^9, 3.4523503310446825`*^9}, {3.452351011055395*^9, 3.4523510157321205`*^9}, { 3.4523511317389297`*^9, 3.452351157666211*^9}, {3.45557982381686*^9, 3.4555798530157795`*^9}, {3.4555799274622235`*^9, 3.455579928082286*^9}, { 3.455579962069684*^9, 3.455579992582735*^9}, 3.455580040715548*^9, { 3.4555800865711327`*^9, 3.4555800899664726`*^9}, {3.4555804797774496`*^9, 3.4555805526537366`*^9}, {3.4555807821246815`*^9, 3.455580829644433*^9}, 3.455580876760912*^9, 3.4555809164749117`*^9, 3.455580951819912*^9, { 3.4555810997079115`*^9, 3.4555811125399113`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Nu]"], ",", RowBox[{"l", "[", RowBox[{ SubsuperscriptBox["\[CapitalEpsilon]", "\[Alpha]", "\[Beta]"], ",", SubsuperscriptBox["\[CapitalEpsilon]", "\[Kappa]", "\[Rho]"]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubsuperscriptBox["\[CapitalEpsilon]", "\[Alpha]", "\[Beta]"], ",", RowBox[{"l", "[", RowBox[{ SubsuperscriptBox["\[CapitalEpsilon]", "\[Kappa]", "\[Rho]"], ",", SubscriptBox["P", "\[Nu]"]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubsuperscriptBox["\[CapitalEpsilon]", "\[Kappa]", "\[Rho]"], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Nu]"], ",", SubsuperscriptBox["\[CapitalEpsilon]", "\[Alpha]", "\[Beta]"]}], "]"}]}], "]"}]}], "}"}]], "Output", CellChangeTimes->{3.4555811153249116`*^9, 3.4556177208113785`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TestJacobi", "[", RowBox[{ SubscriptBox["l", "iglce"], ",", RowBox[{"{", "}"}], ",", RowBox[{"IGLceBasis", "[", RowBox[{"{", RowBox[{"\[Alpha]", ",", " ", "\[Beta]", ",", " ", "\[Gamma]"}], "}"}], "]"}], ",", RowBox[{"IGLceBasis", "[", RowBox[{"{", RowBox[{"\[Kappa]", ",", " ", "\[Rho]", ",", " ", "\[Epsilon]"}], "}"}], "]"}], ",", RowBox[{"IGLceBasis", "[", RowBox[{"{", RowBox[{"\[Iota]", ",", " ", "\[Mu]", ",", " ", "\[Nu]"}], "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.452207455555413*^9, 3.4522075712417617`*^9}, { 3.452209061324395*^9, 3.4522090785992355`*^9}, {3.452347001898718*^9, 3.4523470149574957`*^9}, 3.452347058980798*^9, {3.4523502834061823`*^9, 3.4523503310446825`*^9}, {3.452351011055395*^9, 3.4523510157321205`*^9}, { 3.4523511317389297`*^9, 3.452351157666211*^9}, {3.45557982381686*^9, 3.4555798530157795`*^9}, {3.4555799274622235`*^9, 3.455579928082286*^9}, { 3.455579962069684*^9, 3.455579992582735*^9}, 3.455580040715548*^9, { 3.4555800865711327`*^9, 3.4555800899664726`*^9}, 3.4555809707399116`*^9}], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["P", "\[Gamma]"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubsuperscriptBox["\[CapitalEpsilon]", "\[Kappa]", "\[Rho]"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubsuperscriptBox["\[CapitalEpsilon]", "\[Iota]", "\[Mu]"], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{ SubsuperscriptBox["\[Delta]", "\[Kappa]", "\[Mu]"], " ", SubsuperscriptBox["M", RowBox[{"\[Iota]", ",", "\[Gamma]"}], "\[Rho]"]}], "-", RowBox[{ SubsuperscriptBox["\[Delta]", "\[Gamma]", "\[Rho]"], " ", SubsuperscriptBox["M", RowBox[{"\[Iota]", ",", "\[Kappa]"}], "\[Mu]"]}], "-", RowBox[{ SubsuperscriptBox["\[Delta]", "\[Iota]", "\[Rho]"], " ", SubsuperscriptBox["M", RowBox[{"\[Kappa]", ",", "\[Gamma]"}], "\[Mu]"]}], "+", RowBox[{ SubsuperscriptBox["\[Delta]", "\[Gamma]", "\[Mu]"], " ", SubsuperscriptBox["M", RowBox[{"\[Kappa]", ",", "\[Iota]"}], "\[Rho]"]}]}]}], SequenceForm["{", Subscript[$CellContext`P, $CellContext`\[Gamma]], ",", Subscript[$CellContext`\[CapitalEpsilon], \ $CellContext`\[Kappa]]^$CellContext`\[Rho], ",", Subscript[$CellContext`\[CapitalEpsilon], \ $CellContext`\[Iota]]^$CellContext`\[Mu], "} = ", Subscript[$CellContext`\[Delta], $CellContext`\[Kappa]]^$CellContext`\[Mu] Subscript[$CellContext`M, $CellContext`\[Iota], \ $CellContext`\[Gamma]]^$CellContext`\[Rho] - Subscript[$CellContext`\[Delta], \ $CellContext`\[Gamma]]^$CellContext`\[Rho] Subscript[$CellContext`M, $CellContext`\[Iota], \ $CellContext`\[Kappa]]^$CellContext`\[Mu] - Subscript[$CellContext`\[Delta], $CellContext`\[Iota]]^$CellContext`\[Rho] Subscript[$CellContext`M, $CellContext`\[Kappa], \ $CellContext`\[Gamma]]^$CellContext`\[Mu] + Subscript[$CellContext`\[Delta], $CellContext`\[Gamma]]^$CellContext`\[Mu] Subscript[$CellContext`M, $CellContext`\[Kappa], \ $CellContext`\[Iota]]^$CellContext`\[Rho]], Editable->False]], "Print", CellChangeTimes->{3.4555809742449117`*^9, 3.455617721118409*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubsuperscriptBox["\[CapitalEpsilon]", "\[Alpha]", "\[Beta]"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["P", "\[Epsilon]"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubsuperscriptBox["\[CapitalEpsilon]", "\[Iota]", "\[Mu]"], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{ SubsuperscriptBox["\[Delta]", "\[Iota]", "\[Beta]"], " ", SubsuperscriptBox["M", RowBox[{"\[Alpha]", ",", "\[Epsilon]"}], "\[Mu]"]}], "-", RowBox[{ SubsuperscriptBox["\[Delta]", "\[Epsilon]", "\[Mu]"], " ", SubsuperscriptBox["M", RowBox[{"\[Alpha]", ",", "\[Iota]"}], "\[Beta]"]}], "+", RowBox[{ SubsuperscriptBox["\[Delta]", "\[Epsilon]", "\[Beta]"], " ", SubsuperscriptBox["M", RowBox[{"\[Iota]", ",", "\[Alpha]"}], "\[Mu]"]}], "-", RowBox[{ SubsuperscriptBox["\[Delta]", "\[Alpha]", "\[Mu]"], " ", SubsuperscriptBox["M", RowBox[{"\[Iota]", ",", "\[Epsilon]"}], "\[Beta]"]}]}]}], SequenceForm[ "{", Subscript[$CellContext`\[CapitalEpsilon], \ $CellContext`\[Alpha]]^$CellContext`\[Beta], ",", Subscript[$CellContext`P, $CellContext`\[Epsilon]], ",", Subscript[$CellContext`\[CapitalEpsilon], \ $CellContext`\[Iota]]^$CellContext`\[Mu], "} = ", Subscript[$CellContext`\[Delta], \ $CellContext`\[Iota]]^$CellContext`\[Beta] Subscript[$CellContext`M, $CellContext`\[Alpha], \ $CellContext`\[Epsilon]]^$CellContext`\[Mu] - Subscript[$CellContext`\[Delta], $CellContext`\[Epsilon]]^$CellContext`\ \[Mu] Subscript[$CellContext`M, $CellContext`\[Alpha], \ $CellContext`\[Iota]]^$CellContext`\[Beta] + Subscript[$CellContext`\[Delta], $CellContext`\[Epsilon]]^$CellContext`\ \[Beta] Subscript[$CellContext`M, $CellContext`\[Iota], \ $CellContext`\[Alpha]]^$CellContext`\[Mu] - Subscript[$CellContext`\[Delta], $CellContext`\[Alpha]]^$CellContext`\[Mu] Subscript[$CellContext`M, $CellContext`\[Iota], \ $CellContext`\[Epsilon]]^$CellContext`\[Beta]], Editable->False]], "Print", CellChangeTimes->{3.4555809742449117`*^9, 3.4556177211214094`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["P", "\[Gamma]"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["P", "\[Epsilon]"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubsuperscriptBox["\[CapitalEpsilon]", "\[Iota]", "\[Mu]"], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{ RowBox[{"-", SubsuperscriptBox["\[Delta]", "\[Epsilon]", "\[Mu]"]}], " ", SubscriptBox["A", RowBox[{"\[Gamma]", ",", "\[Iota]"}]]}], "+", RowBox[{ SubsuperscriptBox["\[Delta]", "\[Gamma]", "\[Mu]"], " ", SubscriptBox["A", RowBox[{"\[Epsilon]", ",", "\[Iota]"}]]}]}]}], SequenceForm["{", Subscript[$CellContext`P, $CellContext`\[Gamma]], ",", Subscript[$CellContext`P, $CellContext`\[Epsilon]], ",", Subscript[$CellContext`\[CapitalEpsilon], \ $CellContext`\[Iota]]^$CellContext`\[Mu], "} = ", -Subscript[$CellContext`\[Delta], \ $CellContext`\[Epsilon]]^$CellContext`\[Mu] Subscript[$CellContext`A, $CellContext`\[Gamma], $CellContext`\[Iota]] + Subscript[$CellContext`\[Delta], $CellContext`\[Gamma]]^$CellContext`\[Mu] Subscript[$CellContext`A, $CellContext`\[Epsilon], $CellContext`\[Iota]]], Editable->False]], "Print", CellChangeTimes->{3.4555809742449117`*^9, 3.4556177211244097`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubsuperscriptBox["\[CapitalEpsilon]", "\[Alpha]", "\[Beta]"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubsuperscriptBox["\[CapitalEpsilon]", "\[Kappa]", "\[Rho]"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["P", "\[Nu]"], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{ SubsuperscriptBox["\[Delta]", "\[Nu]", "\[Rho]"], " ", SubsuperscriptBox["M", RowBox[{"\[Alpha]", ",", "\[Kappa]"}], "\[Beta]"]}], "-", RowBox[{ SubsuperscriptBox["\[Delta]", "\[Kappa]", "\[Beta]"], " ", SubsuperscriptBox["M", RowBox[{"\[Alpha]", ",", "\[Nu]"}], "\[Rho]"]}], "-", RowBox[{ SubsuperscriptBox["\[Delta]", "\[Nu]", "\[Beta]"], " ", SubsuperscriptBox["M", RowBox[{"\[Kappa]", ",", "\[Alpha]"}], "\[Rho]"]}], "+", RowBox[{ SubsuperscriptBox["\[Delta]", "\[Alpha]", "\[Rho]"], " ", SubsuperscriptBox["M", RowBox[{"\[Kappa]", ",", "\[Nu]"}], "\[Beta]"]}]}]}], SequenceForm[ "{", Subscript[$CellContext`\[CapitalEpsilon], \ $CellContext`\[Alpha]]^$CellContext`\[Beta], ",", Subscript[$CellContext`\[CapitalEpsilon], \ $CellContext`\[Kappa]]^$CellContext`\[Rho], ",", Subscript[$CellContext`P, $CellContext`\[Nu]], "} = ", Subscript[$CellContext`\[Delta], $CellContext`\[Nu]]^$CellContext`\[Rho] Subscript[$CellContext`M, $CellContext`\[Alpha], \ $CellContext`\[Kappa]]^$CellContext`\[Beta] - Subscript[$CellContext`\[Delta], $CellContext`\[Kappa]]^$CellContext`\ \[Beta] Subscript[$CellContext`M, $CellContext`\[Alpha], \ $CellContext`\[Nu]]^$CellContext`\[Rho] - Subscript[$CellContext`\[Delta], $CellContext`\[Nu]]^$CellContext`\[Beta] Subscript[$CellContext`M, $CellContext`\[Kappa], \ $CellContext`\[Alpha]]^$CellContext`\[Rho] + Subscript[$CellContext`\[Delta], \ $CellContext`\[Alpha]]^$CellContext`\[Rho] Subscript[$CellContext`M, $CellContext`\[Kappa], \ $CellContext`\[Nu]]^$CellContext`\[Beta]], Editable->False]], "Print", CellChangeTimes->{3.4555809742449117`*^9, 3.45561772112741*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["P", "\[Gamma]"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubsuperscriptBox["\[CapitalEpsilon]", "\[Kappa]", "\[Rho]"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["P", "\[Nu]"], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{ SubsuperscriptBox["\[Delta]", "\[Nu]", "\[Rho]"], " ", SubscriptBox["A", RowBox[{"\[Gamma]", ",", "\[Kappa]"}]]}], "-", RowBox[{ SubsuperscriptBox["\[Delta]", "\[Gamma]", "\[Rho]"], " ", SubscriptBox["A", RowBox[{"\[Nu]", ",", "\[Kappa]"}]]}]}]}], SequenceForm["{", Subscript[$CellContext`P, $CellContext`\[Gamma]], ",", Subscript[$CellContext`\[CapitalEpsilon], \ $CellContext`\[Kappa]]^$CellContext`\[Rho], ",", Subscript[$CellContext`P, $CellContext`\[Nu]], "} = ", Subscript[$CellContext`\[Delta], $CellContext`\[Nu]]^$CellContext`\[Rho] Subscript[$CellContext`A, $CellContext`\[Gamma], $CellContext`\[Kappa]] - Subscript[$CellContext`\[Delta], \ $CellContext`\[Gamma]]^$CellContext`\[Rho] Subscript[$CellContext`A, $CellContext`\[Nu], $CellContext`\[Kappa]]], Editable->False]], "Print", CellChangeTimes->{3.4555809742449117`*^9, 3.45561772113041*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubsuperscriptBox["\[CapitalEpsilon]", "\[Alpha]", "\[Beta]"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["P", "\[Epsilon]"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["P", "\[Nu]"], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{ RowBox[{"-", SubsuperscriptBox["\[Delta]", "\[Nu]", "\[Beta]"]}], " ", SubscriptBox["A", RowBox[{"\[Epsilon]", ",", "\[Alpha]"}]]}], "+", RowBox[{ SubsuperscriptBox["\[Delta]", "\[Epsilon]", "\[Beta]"], " ", SubscriptBox["A", RowBox[{"\[Nu]", ",", "\[Alpha]"}]]}]}]}], SequenceForm[ "{", Subscript[$CellContext`\[CapitalEpsilon], \ $CellContext`\[Alpha]]^$CellContext`\[Beta], ",", Subscript[$CellContext`P, $CellContext`\[Epsilon]], ",", Subscript[$CellContext`P, $CellContext`\[Nu]], "} = ", -Subscript[$CellContext`\[Delta], \ $CellContext`\[Nu]]^$CellContext`\[Beta] Subscript[$CellContext`A, $CellContext`\[Epsilon], $CellContext`\[Alpha]] + Subscript[$CellContext`\[Delta], $CellContext`\[Epsilon]]^$CellContext`\ \[Beta] Subscript[$CellContext`A, $CellContext`\[Nu], $CellContext`\[Alpha]]], Editable->False]], "Print", CellChangeTimes->{3.4555809742449117`*^9, 3.4556177211334105`*^9}], Cell[BoxData["\<\"Done\"\>"], "Print", CellChangeTimes->{3.4555809742449117`*^9, 3.455617721136411*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TestJacobiReturn", "[", RowBox[{ SubscriptBox["l", "iglce"], ",", RowBox[{"{", "}"}], ",", RowBox[{"IGLceBasis", "[", RowBox[{"{", RowBox[{"\[Alpha]", ",", " ", "\[Beta]", ",", " ", "\[Gamma]"}], "}"}], "]"}], ",", RowBox[{"IGLceBasis", "[", RowBox[{"{", RowBox[{"\[Kappa]", ",", " ", "\[Rho]", ",", " ", "\[Epsilon]"}], "}"}], "]"}], ",", RowBox[{"IGLceBasis", "[", RowBox[{"{", RowBox[{"\[Iota]", ",", " ", "\[Mu]", ",", " ", "\[Nu]"}], "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.452207455555413*^9, 3.4522075712417617`*^9}, { 3.452209061324395*^9, 3.4522090785992355`*^9}, {3.452347001898718*^9, 3.4523470149574957`*^9}, 3.452347058980798*^9, {3.4523502834061823`*^9, 3.4523503310446825`*^9}, {3.452351011055395*^9, 3.4523510157321205`*^9}, { 3.4523511317389297`*^9, 3.452351157666211*^9}, {3.45557982381686*^9, 3.4555798530157795`*^9}, {3.4555799274622235`*^9, 3.455579928082286*^9}, { 3.455579962069684*^9, 3.455579992582735*^9}, 3.455580040715548*^9, { 3.4555800865711327`*^9, 3.4555800899664726`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SubsuperscriptBox["\[Delta]", "\[Kappa]", "\[Mu]"], " ", SubsuperscriptBox["M", RowBox[{"\[Iota]", ",", "\[Gamma]"}], "\[Rho]"]}], "-", RowBox[{ SubsuperscriptBox["\[Delta]", "\[Gamma]", "\[Rho]"], " ", SubsuperscriptBox["M", RowBox[{"\[Iota]", ",", "\[Kappa]"}], "\[Mu]"]}], "-", RowBox[{ SubsuperscriptBox["\[Delta]", "\[Iota]", "\[Rho]"], " ", SubsuperscriptBox["M", RowBox[{"\[Kappa]", ",", "\[Gamma]"}], "\[Mu]"]}], "+", RowBox[{ SubsuperscriptBox["\[Delta]", "\[Gamma]", "\[Mu]"], " ", SubsuperscriptBox["M", RowBox[{"\[Kappa]", ",", "\[Iota]"}], "\[Rho]"]}]}], ",", RowBox[{ RowBox[{ SubsuperscriptBox["\[Delta]", "\[Iota]", "\[Beta]"], " ", SubsuperscriptBox["M", RowBox[{"\[Alpha]", ",", "\[Epsilon]"}], "\[Mu]"]}], "-", RowBox[{ SubsuperscriptBox["\[Delta]", "\[Epsilon]", "\[Mu]"], " ", SubsuperscriptBox["M", RowBox[{"\[Alpha]", ",", "\[Iota]"}], "\[Beta]"]}], "+", RowBox[{ SubsuperscriptBox["\[Delta]", "\[Epsilon]", "\[Beta]"], " ", SubsuperscriptBox["M", RowBox[{"\[Iota]", ",", "\[Alpha]"}], "\[Mu]"]}], "-", RowBox[{ SubsuperscriptBox["\[Delta]", "\[Alpha]", "\[Mu]"], " ", SubsuperscriptBox["M", RowBox[{"\[Iota]", ",", "\[Epsilon]"}], "\[Beta]"]}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", SubsuperscriptBox["\[Delta]", "\[Epsilon]", "\[Mu]"]}], " ", SubscriptBox["A", RowBox[{"\[Gamma]", ",", "\[Iota]"}]]}], "+", RowBox[{ SubsuperscriptBox["\[Delta]", "\[Gamma]", "\[Mu]"], " ", SubscriptBox["A", RowBox[{"\[Epsilon]", ",", "\[Iota]"}]]}]}], ",", RowBox[{ RowBox[{ SubsuperscriptBox["\[Delta]", "\[Nu]", "\[Rho]"], " ", SubsuperscriptBox["M", RowBox[{"\[Alpha]", ",", "\[Kappa]"}], "\[Beta]"]}], "-", RowBox[{ SubsuperscriptBox["\[Delta]", "\[Kappa]", "\[Beta]"], " ", SubsuperscriptBox["M", RowBox[{"\[Alpha]", ",", "\[Nu]"}], "\[Rho]"]}], "-", RowBox[{ SubsuperscriptBox["\[Delta]", "\[Nu]", "\[Beta]"], " ", SubsuperscriptBox["M", RowBox[{"\[Kappa]", ",", "\[Alpha]"}], "\[Rho]"]}], "+", RowBox[{ SubsuperscriptBox["\[Delta]", "\[Alpha]", "\[Rho]"], " ", SubsuperscriptBox["M", RowBox[{"\[Kappa]", ",", "\[Nu]"}], "\[Beta]"]}]}], ",", RowBox[{ RowBox[{ SubsuperscriptBox["\[Delta]", "\[Nu]", "\[Rho]"], " ", SubscriptBox["A", RowBox[{"\[Gamma]", ",", "\[Kappa]"}]]}], "-", RowBox[{ SubsuperscriptBox["\[Delta]", "\[Gamma]", "\[Rho]"], " ", SubscriptBox["A", RowBox[{"\[Nu]", ",", "\[Kappa]"}]]}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", SubsuperscriptBox["\[Delta]", "\[Nu]", "\[Beta]"]}], " ", SubscriptBox["A", RowBox[{"\[Epsilon]", ",", "\[Alpha]"}]]}], "+", RowBox[{ SubsuperscriptBox["\[Delta]", "\[Epsilon]", "\[Beta]"], " ", SubscriptBox["A", RowBox[{"\[Nu]", ",", "\[Alpha]"}]]}]}]}], "}"}]], "Output", CellChangeTimes->{3.455580093357812*^9, 3.455617721287426*^9}] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"iso", "(", "n", ")"}], TraditionalForm]], "None", FormatType->"TraditionalForm"]], "Subsection", CellChangeTimes->{{3.4534888260685916`*^9, 3.453488876139598*^9}, { 3.4534893210750875`*^9, 3.4534893223682165`*^9}, {3.4534906488538523`*^9, 3.453490649162883*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"ListCommutators", "[", RowBox[{ SubscriptBox["l", "iso"], ",", RowBox[{"ISOBasis", "[", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}], "]"}], ",", " ", RowBox[{"ISOBasis", "[", RowBox[{"{", RowBox[{"k", ",", "l"}], "}"}], "]"}]}], "]"}], "//.", RowBox[{"A", "\[RuleDelayed]", "P"}]}]], "Input", CellChangeTimes->{{3.4523496979343147`*^9, 3.452349699346345*^9}, { 3.452349776647499*^9, 3.4523497909580765`*^9}, {3.4523510388453555`*^9, 3.4523510392058735`*^9}, {3.453489335991579*^9, 3.4534893687818575`*^9}, { 3.4539893252871532`*^9, 3.453989325819154*^9}, {3.4539893830711536`*^9, 3.4539893878111534`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["J", RowBox[{"i", ",", "j"}]], ",", SubscriptBox["J", RowBox[{"k", ",", "l"}]]}], "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["J", RowBox[{"j", ",", "l"}]]}], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]]}], "+", RowBox[{ SubscriptBox["J", RowBox[{"j", ",", "k"}]], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "l"}]]}], "+", RowBox[{ SubscriptBox["J", RowBox[{"i", ",", "l"}]], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "k"}]]}], "-", RowBox[{ SubscriptBox["J", RowBox[{"i", ",", "k"}]], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "l"}]]}]}]}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["J", RowBox[{"i", ",", "j"}]], ",", SubscriptBox["P", "k"]}], "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["P", "j"]}], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]]}], "+", RowBox[{ SubscriptBox["P", "i"], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "k"}]]}]}]}]}], "}"}]], "Output", CellChangeTimes->{3.453989390812154*^9, 3.4556177214154387`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["J", RowBox[{"i", ",", "j"}]], ",", SubscriptBox["J", RowBox[{"k", ",", "l"}]]}], "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["J", RowBox[{"j", ",", "l"}]]}], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]]}], "+", RowBox[{ SubscriptBox["J", RowBox[{"j", ",", "k"}]], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "l"}]]}], "+", RowBox[{ SubscriptBox["J", RowBox[{"i", ",", "l"}]], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "k"}]]}], "-", RowBox[{ SubscriptBox["J", RowBox[{"i", ",", "k"}]], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "l"}]]}]}]}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["J", RowBox[{"i", ",", "j"}]], ",", SubscriptBox["A", "k"]}], "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["A", "j"]}], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]]}], "+", RowBox[{ SubscriptBox["A", "i"], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "k"}]]}]}]}]}], "}"}]], "Input", CellChangeTimes->{{3.4539893454411535`*^9, 3.4539893486701536`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["J", RowBox[{"i", ",", "j"}]], ",", SubscriptBox["J", RowBox[{"k", ",", "l"}]]}], "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["J", RowBox[{"j", ",", "l"}]]}], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]]}], "+", RowBox[{ SubscriptBox["J", RowBox[{"j", ",", "k"}]], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "l"}]]}], "+", RowBox[{ SubscriptBox["J", RowBox[{"i", ",", "l"}]], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "k"}]]}], "-", RowBox[{ SubscriptBox["J", RowBox[{"i", ",", "k"}]], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "l"}]]}]}]}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["J", RowBox[{"i", ",", "j"}]], ",", SubscriptBox["A", "k"]}], "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["A", "j"]}], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]]}], "+", RowBox[{ SubscriptBox["A", "i"], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "k"}]]}]}]}]}], "}"}]], "Output", CellChangeTimes->{3.4556177214724445`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TestJacobi", "[", RowBox[{ SubscriptBox["l", "iso"], ",", RowBox[{"{", "OrthogonalSymmetryRules", "}"}], ",", RowBox[{"ISOBasis", "[", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}], "]"}], ",", RowBox[{"ISOBasis", "[", RowBox[{"{", RowBox[{"k", ",", "l"}], "}"}], "]"}], ",", RowBox[{"ISOBasis", "[", RowBox[{"{", RowBox[{"m", ",", "r"}], "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.452207455555413*^9, 3.4522075712417617`*^9}, { 3.452209061324395*^9, 3.4522090785992355`*^9}, {3.452347001898718*^9, 3.4523470149574957`*^9}, 3.452347058980798*^9, {3.4523502834061823`*^9, 3.4523503310446825`*^9}, {3.452351011055395*^9, 3.4523510157321205`*^9}, { 3.4523511317389297`*^9, 3.452351157666211*^9}, {3.453489551150092*^9, 3.4534895773357105`*^9}, 3.45348961643262*^9, 3.4534899311360874`*^9}], Cell[BoxData[ RowBox[{"{", "}"}]], "Output", CellChangeTimes->{3.4628071249710245`*^9}] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{3.4534888023382187`*^9, 3.453488883233308*^9}] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"il", "(", RowBox[{"1", ",", "n"}], ")"}], TraditionalForm]], "None", FormatType->"TraditionalForm"]], "Subsection", CellChangeTimes->{{3.4534888260685916`*^9, 3.453488876139598*^9}, { 3.4534893210750875`*^9, 3.4534893223682165`*^9}, 3.4534901114301147`*^9, { 3.4534906423111973`*^9, 3.4534906455975266`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListCommutators", "[", RowBox[{ SubscriptBox["l", "il"], ",", RowBox[{"ILBasis", "[", RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}], "]"}], ",", " ", RowBox[{"ILBasis", "[", RowBox[{"{", RowBox[{"c", ",", "d"}], "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.4523496979343147`*^9, 3.452349699346345*^9}, { 3.452349776647499*^9, 3.4523497909580765`*^9}, {3.4523510388453555`*^9, 3.4523510392058735`*^9}, {3.453489335991579*^9, 3.4534893687818575`*^9}, { 3.4534901150274744`*^9, 3.4534901286168337`*^9}, {3.453491855294484*^9, 3.4534918558505397`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["L", RowBox[{"a", ",", "b"}]], ",", SubscriptBox["L", RowBox[{"c", ",", "d"}]]}], "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["L", RowBox[{"b", ",", "d"}]]}], " ", SubscriptBox["\[Eta]", RowBox[{"a", ",", "c"}]]}], "+", RowBox[{ SubscriptBox["L", RowBox[{"b", ",", "c"}]], " ", SubscriptBox["\[Eta]", RowBox[{"a", ",", "d"}]]}], "+", RowBox[{ SubscriptBox["L", RowBox[{"a", ",", "d"}]], " ", SubscriptBox["\[Eta]", RowBox[{"b", ",", "c"}]]}], "-", RowBox[{ SubscriptBox["L", RowBox[{"a", ",", "c"}]], " ", SubscriptBox["\[Eta]", RowBox[{"b", ",", "d"}]]}]}]}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["L", RowBox[{"a", ",", "b"}]], ",", SubscriptBox["A", "c"]}], "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["A", "b"]}], " ", SubscriptBox["\[Eta]", RowBox[{"a", ",", "c"}]]}], "+", RowBox[{ SubscriptBox["A", "a"], " ", SubscriptBox["\[Eta]", RowBox[{"b", ",", "c"}]]}]}]}]}], "}"}]], "Output", CellChangeTimes->{3.4534918571796722`*^9, 3.453553299637719*^9, 3.453645059801635*^9, 3.4556177220885067`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TestJacobi", "[", RowBox[{ SubscriptBox["l", "il"], ",", RowBox[{"{", "LorentzSymmetryRules", "}"}], ",", RowBox[{"ILBasis", "[", RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}], "]"}], ",", RowBox[{"ILBasis", "[", RowBox[{"{", RowBox[{"c", ",", "d"}], "}"}], "]"}], ",", RowBox[{"ILBasis", "[", RowBox[{"{", RowBox[{"e", ",", "f"}], "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.452207455555413*^9, 3.4522075712417617`*^9}, { 3.452209061324395*^9, 3.4522090785992355`*^9}, {3.452347001898718*^9, 3.4523470149574957`*^9}, 3.452347058980798*^9, {3.4523502834061823`*^9, 3.4523503310446825`*^9}, {3.452351011055395*^9, 3.4523510157321205`*^9}, { 3.4523511317389297`*^9, 3.452351157666211*^9}, {3.453489551150092*^9, 3.4534895773357105`*^9}, 3.45348961643262*^9, 3.4534899311360874`*^9, { 3.4534902120881796`*^9, 3.4534902370196724`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["L", RowBox[{"a", ",", "b"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["L", RowBox[{"c", ",", "d"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["L", RowBox[{"e", ",", "f"}]], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`L, $CellContext`a, $CellContext`b], ",", Subscript[$CellContext`L, $CellContext`c, $CellContext`d], ",", Subscript[$CellContext`L, $CellContext`e, $CellContext`f], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.453490240129984*^9, 3.453553299978753*^9, 3.4536450602036753`*^9, 3.4556177225005474`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["A", "a"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["L", RowBox[{"c", ",", "d"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["L", RowBox[{"e", ",", "f"}]], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`A, $CellContext`a], ",", Subscript[$CellContext`L, $CellContext`c, $CellContext`d], ",", Subscript[$CellContext`L, $CellContext`e, $CellContext`f], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.453490240129984*^9, 3.453553299978753*^9, 3.4536450602036753`*^9, 3.455617722501548*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["L", RowBox[{"a", ",", "b"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["A", "c"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["L", RowBox[{"e", ",", "f"}]], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`L, $CellContext`a, $CellContext`b], ",", Subscript[$CellContext`A, $CellContext`c], ",", Subscript[$CellContext`L, $CellContext`e, $CellContext`f], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.453490240129984*^9, 3.453553299978753*^9, 3.4536450602036753`*^9, 3.455617722505548*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["A", "a"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["A", "c"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["L", RowBox[{"e", ",", "f"}]], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`A, $CellContext`a], ",", Subscript[$CellContext`A, $CellContext`c], ",", Subscript[$CellContext`L, $CellContext`e, $CellContext`f], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.453490240129984*^9, 3.453553299978753*^9, 3.4536450602036753`*^9, 3.4556177225085487`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["L", RowBox[{"a", ",", "b"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["L", RowBox[{"c", ",", "d"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["A", "e"], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`L, $CellContext`a, $CellContext`b], ",", Subscript[$CellContext`L, $CellContext`c, $CellContext`d], ",", Subscript[$CellContext`A, $CellContext`e], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.453490240129984*^9, 3.453553299978753*^9, 3.4536450602036753`*^9, 3.4556177225115485`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["A", "a"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["L", RowBox[{"c", ",", "d"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["A", "e"], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`A, $CellContext`a], ",", Subscript[$CellContext`L, $CellContext`c, $CellContext`d], ",", Subscript[$CellContext`A, $CellContext`e], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.453490240129984*^9, 3.453553299978753*^9, 3.4536450602036753`*^9, 3.455617722514549*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["L", RowBox[{"a", ",", "b"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["A", "c"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["A", "e"], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`L, $CellContext`a, $CellContext`b], ",", Subscript[$CellContext`A, $CellContext`c], ",", Subscript[$CellContext`A, $CellContext`e], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.453490240129984*^9, 3.453553299978753*^9, 3.4536450602036753`*^9, 3.4556177225175495`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["A", "a"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["A", "c"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["A", "e"], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`A, $CellContext`a], ",", Subscript[$CellContext`A, $CellContext`c], ",", Subscript[$CellContext`A, $CellContext`e], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.453490240129984*^9, 3.453553299978753*^9, 3.4536450602036753`*^9, 3.45561772252055*^9}], Cell[BoxData["\<\"Done\"\>"], "Print", CellChangeTimes->{3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.453490240129984*^9, 3.453553299978753*^9, 3.4536450602036753`*^9, 3.45561772252355*^9}] }, Open ]] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{3.4534888023382187`*^9, 3.453488883233308*^9}] }, Closed]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"isp", "(", "n", ")"}], TraditionalForm]], "None", FormatType->"TraditionalForm"]], "Subsection", CellChangeTimes->{{3.4534888260685916`*^9, 3.453488876139598*^9}, { 3.4534893210750875`*^9, 3.4534893223682165`*^9}, 3.4534901114301147`*^9, { 3.4534906353605027`*^9, 3.4534906411520815`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListCommutators", "[", RowBox[{ SubscriptBox["l", "isp"], ",", RowBox[{"ISpBasis", "[", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]"}], "}"}], "]"}], ",", " ", RowBox[{"ISpBasis", "[", RowBox[{"{", RowBox[{"\[Kappa]", ",", "\[Delta]"}], "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.4523496979343147`*^9, 3.452349699346345*^9}, { 3.452349776647499*^9, 3.4523497909580765`*^9}, {3.4523510388453555`*^9, 3.4523510392058735`*^9}, {3.453489335991579*^9, 3.4534893687818575`*^9}, { 3.4534901150274744`*^9, 3.4534901286168337`*^9}, {3.4534906576497316`*^9, 3.453490679253892*^9}, {3.453491746166572*^9, 3.4534917466906247`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Alpha]", ",", "\[Beta]"}]], ",", SubscriptBox["W", RowBox[{"\[Kappa]", ",", "\[Delta]"}]]}], "]"}], "\[Equal]", RowBox[{ RowBox[{ SubscriptBox["W", RowBox[{"\[Beta]", ",", "\[Kappa]"}]], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Alpha]", ",", "\[Delta]"}]]}], "+", RowBox[{ SubscriptBox["W", RowBox[{"\[Beta]", ",", "\[Delta]"}]], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Alpha]", ",", "\[Kappa]"}]]}], "+", RowBox[{ SubscriptBox["W", RowBox[{"\[Alpha]", ",", "\[Kappa]"}]], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Beta]", ",", "\[Delta]"}]]}], "+", RowBox[{ SubscriptBox["W", RowBox[{"\[Alpha]", ",", "\[Delta]"}]], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Beta]", ",", "\[Kappa]"}]]}]}]}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Alpha]", ",", "\[Beta]"}]], ",", SubscriptBox["A", "\[Kappa]"]}], "]"}], "\[Equal]", RowBox[{ RowBox[{ SubscriptBox["A", "\[Beta]"], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Alpha]", ",", "\[Kappa]"}]]}], "+", RowBox[{ SubscriptBox["A", "\[Alpha]"], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Beta]", ",", "\[Kappa]"}]]}]}]}]}], "}"}]], "Output", CellChangeTimes->{3.4534917476587214`*^9, 3.4535533002197776`*^9, 3.4536450604266977`*^9, 3.4556177227025676`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TestJacobi", "[", RowBox[{ SubscriptBox["l", "isp"], ",", RowBox[{"{", "SymplecticSymmetryRules", "}"}], ",", RowBox[{"ISpBasis", "[", RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}], "]"}], ",", RowBox[{"ISpBasis", "[", RowBox[{"{", RowBox[{"c", ",", "d"}], "}"}], "]"}], ",", RowBox[{"ISpBasis", "[", RowBox[{"{", RowBox[{"e", ",", "f"}], "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.452207455555413*^9, 3.4522075712417617`*^9}, { 3.452209061324395*^9, 3.4522090785992355`*^9}, {3.452347001898718*^9, 3.4523470149574957`*^9}, 3.452347058980798*^9, {3.4523502834061823`*^9, 3.4523503310446825`*^9}, {3.452351011055395*^9, 3.4523510157321205`*^9}, { 3.4523511317389297`*^9, 3.452351157666211*^9}, {3.453489551150092*^9, 3.4534895773357105`*^9}, 3.45348961643262*^9, 3.4534899311360874`*^9, { 3.4534902120881796`*^9, 3.4534902370196724`*^9}, {3.4534906857315392`*^9, 3.453490706030569*^9}}], Cell[BoxData[ RowBox[{"{", "}"}]], "Output", CellChangeTimes->{3.4556373797061467`*^9}] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{3.4534888023382187`*^9, 3.453488883233308*^9}] }, Closed]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"ispce", "(", "n", ")"}], TraditionalForm]], "None"]], "Subsection", CellChangeTimes->{{3.4534888260685916`*^9, 3.453488876139598*^9}, { 3.4534893210750875`*^9, 3.4534893223682165`*^9}, 3.4534901114301147`*^9, { 3.4534906353605027`*^9, 3.4534906411520815`*^9}, {3.455618139827276*^9, 3.455618140292322*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PrintCommutators", "[", RowBox[{ SubscriptBox["l", "ispce"], ",", RowBox[{"ISpceBasis", "[", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], "}"}], "]"}], ",", " ", RowBox[{"ISpceBasis", "[", RowBox[{"{", RowBox[{"\[Kappa]", ",", "\[Delta]", ",", "\[Gamma]"}], "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.4523496979343147`*^9, 3.452349699346345*^9}, { 3.452349776647499*^9, 3.4523497909580765`*^9}, {3.4523510388453555`*^9, 3.4523510392058735`*^9}, {3.453489335991579*^9, 3.4534893687818575`*^9}, { 3.4534901150274744`*^9, 3.4534901286168337`*^9}, {3.4534906576497316`*^9, 3.453490679253892*^9}, {3.453491746166572*^9, 3.4534917466906247`*^9}, { 3.455618150917385*^9, 3.4556181820204945`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SubscriptBox["W", RowBox[{"\[Alpha]", ",", "\[Beta]"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["W", RowBox[{"\[Kappa]", ",", "\[Delta]"}]], "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{ SubscriptBox["W", RowBox[{"\[Beta]", ",", "\[Kappa]"}]], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Alpha]", ",", "\[Delta]"}]]}], "+", RowBox[{ SubscriptBox["W", RowBox[{"\[Beta]", ",", "\[Delta]"}]], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Alpha]", ",", "\[Kappa]"}]]}], "+", RowBox[{ SubscriptBox["W", RowBox[{"\[Alpha]", ",", "\[Kappa]"}]], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Beta]", ",", "\[Delta]"}]]}], "+", RowBox[{ SubscriptBox["W", RowBox[{"\[Alpha]", ",", "\[Delta]"}]], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Beta]", ",", "\[Kappa]"}]]}]}]}], SequenceForm["[", Subscript[$CellContext`W, $CellContext`\[Alpha], $CellContext`\[Beta]], ",", Subscript[$CellContext`W, $CellContext`\[Kappa], $CellContext`\[Delta]], "] = ", Subscript[$CellContext`W, $CellContext`\[Beta], $CellContext`\ \[Kappa]] Subscript[$CellContext`\[Zeta], $CellContext`\[Alpha], $CellContext`\ \[Delta]] + Subscript[$CellContext`W, $CellContext`\[Beta], $CellContext`\[Delta]] Subscript[$CellContext`\[Zeta], $CellContext`\[Alpha], $CellContext`\ \[Kappa]] + Subscript[$CellContext`W, $CellContext`\[Alpha], $CellContext`\[Kappa]] Subscript[$CellContext`\[Zeta], $CellContext`\[Beta], $CellContext`\ \[Delta]] + Subscript[$CellContext`W, $CellContext`\[Alpha], $CellContext`\[Delta]] Subscript[$CellContext`\[Zeta], $CellContext`\[Beta], $CellContext`\ \[Kappa]]], Editable->False]], "Print", CellChangeTimes->{3.455618183059599*^9, 3.4556182720713587`*^9, 3.455618392482316*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SubscriptBox["W", RowBox[{"\[Alpha]", ",", "\[Beta]"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["P", "\[Gamma]"], "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{ SubscriptBox["P", "\[Beta]"], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Alpha]", ",", "\[Gamma]"}]]}], "+", RowBox[{ SubscriptBox["P", "\[Alpha]"], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Beta]", ",", "\[Gamma]"}]]}], "+", SubscriptBox["M", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}]]}]}], SequenceForm["[", Subscript[$CellContext`W, $CellContext`\[Alpha], $CellContext`\[Beta]], ",", Subscript[$CellContext`P, $CellContext`\[Gamma]], "] = ", Subscript[$CellContext`P, $CellContext`\[Beta]] Subscript[$CellContext`\[Zeta], $CellContext`\[Alpha], $CellContext`\ \[Gamma]] + Subscript[$CellContext`P, $CellContext`\[Alpha]] Subscript[$CellContext`\[Zeta], $CellContext`\[Beta], $CellContext`\ \[Gamma]] + Subscript[$CellContext`M, $CellContext`\[Alpha], $CellContext`\[Beta], \ $CellContext`\[Gamma]]], Editable->False]], "Print", CellChangeTimes->{3.455618183059599*^9, 3.4556182720713587`*^9, 3.4556183924953146`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SubscriptBox["P", "\[Gamma]"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["P", "\[Gamma]"], "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", SubscriptBox["A", RowBox[{"\[Gamma]", ",", "\[Gamma]"}]]}], SequenceForm["[", Subscript[$CellContext`P, $CellContext`\[Gamma]], ",", Subscript[$CellContext`P, $CellContext`\[Gamma]], "] = ", Subscript[$CellContext`A, $CellContext`\[Gamma], $CellContext`\[Gamma]]], Editable->False]], "Print", CellChangeTimes->{3.455618183059599*^9, 3.4556182720713587`*^9, 3.4556183925063133`*^9}], Cell[BoxData["\<\"Done\"\>"], "Print", CellChangeTimes->{3.455618183059599*^9, 3.4556182720713587`*^9, 3.4556183925113134`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TestJacobiReturn", "[", RowBox[{"l", ",", RowBox[{"{", "SymplecticSymmetryRules", "}"}], ",", RowBox[{"{", SubscriptBox["P", "\[Gamma]"], "}"}], ",", RowBox[{"{", "\[InvisibleSpace]", SubscriptBox["W", RowBox[{"\[Kappa]", ",", "\[Delta]"}]], "}"}], ",", RowBox[{"{", SubscriptBox["P", "\[Mu]"], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.452207455555413*^9, 3.4522075712417617`*^9}, { 3.452209061324395*^9, 3.4522090785992355`*^9}, {3.452347001898718*^9, 3.4523470149574957`*^9}, 3.452347058980798*^9, {3.4523502834061823`*^9, 3.4523503310446825`*^9}, {3.452351011055395*^9, 3.4523510157321205`*^9}, { 3.4523511317389297`*^9, 3.452351157666211*^9}, {3.453489551150092*^9, 3.4534895773357105`*^9}, 3.45348961643262*^9, 3.4534899311360874`*^9, { 3.4534902120881796`*^9, 3.4534902370196724`*^9}, {3.4534906857315392`*^9, 3.453490706030569*^9}, {3.455618419199644*^9, 3.4556184914094224`*^9}, { 3.4556185574564314`*^9, 3.4556185617464314`*^9}, {3.455618623373431*^9, 3.455618676486431*^9}, {3.455618749667431*^9, 3.455618766248431*^9}, { 3.4556188473640366`*^9, 3.4556188563239326`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Gamma]"], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Delta]", ",", "\[Kappa]"}]], ",", SubscriptBox["P", "\[Mu]"]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Mu]"], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Gamma]"], ",", SubscriptBox["W", RowBox[{"\[Delta]", ",", "\[Kappa]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Delta]", ",", "\[Kappa]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Mu]"], ",", SubscriptBox["P", "\[Gamma]"]}], "]"}]}], "]"}]}], "}"}], "}"}]], "Output", CellChangeTimes->{3.4556188699122915`*^9}] }, Open ]], Cell[BoxData[ RowBox[{"TestJacobiReturn", "[", RowBox[{ SubscriptBox["l", "ispce"], ",", RowBox[{"{", "SymplecticSymmetryRules", "}"}], ",", RowBox[{"{", SubscriptBox["P", "\[Gamma]"], "}"}], ",", RowBox[{"{", "\[InvisibleSpace]", SubscriptBox["W", RowBox[{"\[Kappa]", ",", "\[Delta]"}]], "}"}], ",", RowBox[{"{", SubscriptBox["P", "\[Mu]"], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.452207455555413*^9, 3.4522075712417617`*^9}, { 3.452209061324395*^9, 3.4522090785992355`*^9}, {3.452347001898718*^9, 3.4523470149574957`*^9}, 3.452347058980798*^9, {3.4523502834061823`*^9, 3.4523503310446825`*^9}, {3.452351011055395*^9, 3.4523510157321205`*^9}, { 3.4523511317389297`*^9, 3.452351157666211*^9}, {3.453489551150092*^9, 3.4534895773357105`*^9}, 3.45348961643262*^9, 3.4534899311360874`*^9, { 3.4534902120881796`*^9, 3.4534902370196724`*^9}, {3.4534906857315392`*^9, 3.453490706030569*^9}, {3.455618419199644*^9, 3.4556184914094224`*^9}, { 3.4556185574564314`*^9, 3.4556185617464314`*^9}, {3.455618623373431*^9, 3.455618676486431*^9}, {3.455618749667431*^9, 3.455618766248431*^9}, 3.4556188473640366`*^9}], Cell[BoxData[ RowBox[{ RowBox[{ SuperscriptBox["\[Zeta]", RowBox[{"\[Mu]", ",", "\[Kappa]"}]], RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["A", RowBox[{"\[Mu]", ",", "\[Kappa]"}]], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Gamma]", ",", "\[Delta]"}]]}], "+", RowBox[{ SubscriptBox["A", RowBox[{"\[Mu]", ",", "\[Delta]"}]], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Gamma]", ",", "\[Kappa]"}]]}], "+", RowBox[{ SubscriptBox["A", RowBox[{"\[Gamma]", ",", "\[Kappa]"}]], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Delta]", ",", "\[Mu]"}]]}], "+", RowBox[{ SubscriptBox["A", RowBox[{"\[Gamma]", ",", "\[Delta]"}]], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Kappa]", ",", "\[Mu]"}]]}]}], ")"}]}], "//.", "generalRules"}]], "Input", CellChangeTimes->{{3.4556189967439733`*^9, 3.4556190541427126`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["A", RowBox[{"\[Mu]", ",", "\[Kappa]"}]], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Gamma]", ",", "\[Delta]"}]], " ", RowBox[{"(", " ", SuperscriptBox["\[Zeta]", RowBox[{ RowBox[{"\[Mu]", " ", ",", "\[Kappa]"}], " "}]], ")"}]}], "+", RowBox[{ SubscriptBox["A", RowBox[{"\[Mu]", ",", "\[Delta]"}]], " ", SubsuperscriptBox["\[Delta]", "\[Gamma]", "\[Mu]"]}], "-", RowBox[{ SubscriptBox["A", RowBox[{"\[Gamma]", ",", "\[Kappa]"}]], " ", SubsuperscriptBox["\[Delta]", "\[Delta]", "\[Kappa]"]}], " ", "+", RowBox[{ SubscriptBox["A", RowBox[{"\[Gamma]", ",", "\[Delta]"}]], " ", "n"}]}]], "Input", CellChangeTimes->{{3.4556190997472725`*^9, 3.45561917622992*^9}, { 3.4556192124795446`*^9, 3.455619232806577*^9}, {3.455619268381134*^9, 3.45561927423872*^9}, {3.455619411370432*^9, 3.455619412835578*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TestJacobiReturn", "[", RowBox[{"l", ",", RowBox[{"{", "SymplecticSymmetryRules", "}"}], ",", RowBox[{"{", SubscriptBox["P", "\[Gamma]"], "}"}], ",", RowBox[{"{", "\[InvisibleSpace]", SubscriptBox["W", RowBox[{"\[Kappa]", ",", "\[Delta]"}]], "}"}], ",", RowBox[{"{", SubscriptBox["W", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.452207455555413*^9, 3.4522075712417617`*^9}, { 3.452209061324395*^9, 3.4522090785992355`*^9}, {3.452347001898718*^9, 3.4523470149574957`*^9}, 3.452347058980798*^9, {3.4523502834061823`*^9, 3.4523503310446825`*^9}, {3.452351011055395*^9, 3.4523510157321205`*^9}, { 3.4523511317389297`*^9, 3.452351157666211*^9}, {3.453489551150092*^9, 3.4534895773357105`*^9}, 3.45348961643262*^9, 3.4534899311360874`*^9, { 3.4534902120881796`*^9, 3.4534902370196724`*^9}, {3.4534906857315392`*^9, 3.453490706030569*^9}, {3.455618419199644*^9, 3.4556184914094224`*^9}, { 3.4556185574564314`*^9, 3.4556185617464314`*^9}, {3.455618623373431*^9, 3.455618676486431*^9}, {3.455618733283431*^9, 3.455618756528431*^9}, { 3.455618863711671*^9, 3.455618864916792*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Gamma]"], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Delta]", ",", "\[Kappa]"}]], ",", SubscriptBox["W", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Delta]", ",", "\[Kappa]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]], ",", SubscriptBox["P", "\[Gamma]"]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Gamma]"], ",", SubscriptBox["W", RowBox[{"\[Delta]", ",", "\[Kappa]"}]]}], "]"}]}], "]"}]}], "}"}], "}"}]], "Output", CellChangeTimes->{3.4556188700843086`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"TestJacobiReturn", "[", RowBox[{ SubscriptBox["l", "ispce"], ",", RowBox[{"{", "SymplecticSymmetryRules", "}"}], ",", RowBox[{"{", SubscriptBox["P", "\[Gamma]"], "}"}], ",", RowBox[{"{", "\[InvisibleSpace]", SubscriptBox["W", RowBox[{"\[Kappa]", ",", "\[Delta]"}]], "}"}], ",", RowBox[{"{", SubscriptBox["W", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]], "}"}]}], "]"}], "//.", " ", RowBox[{"M", "\[RuleDelayed]", "A"}]}]], "Input", CellChangeTimes->{{3.452207455555413*^9, 3.4522075712417617`*^9}, { 3.452209061324395*^9, 3.4522090785992355`*^9}, {3.452347001898718*^9, 3.4523470149574957`*^9}, 3.452347058980798*^9, {3.4523502834061823`*^9, 3.4523503310446825`*^9}, {3.452351011055395*^9, 3.4523510157321205`*^9}, { 3.4523511317389297`*^9, 3.452351157666211*^9}, {3.453489551150092*^9, 3.4534895773357105`*^9}, 3.45348961643262*^9, 3.4534899311360874`*^9, { 3.4534902120881796`*^9, 3.4534902370196724`*^9}, {3.4534906857315392`*^9, 3.453490706030569*^9}, {3.455618419199644*^9, 3.4556184914094224`*^9}, { 3.4556185574564314`*^9, 3.4556185617464314`*^9}, {3.455618623373431*^9, 3.455618676486431*^9}, {3.455618733283431*^9, 3.455618756528431*^9}, { 3.4556200428165703`*^9, 3.4556200475170403`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"zetaRules", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["\[Zeta]", RowBox[{"\[Kappa]_", ",", "\[Epsilon]_"}]], SubscriptBox["A", RowBox[{"\[Kappa]_", ",", "\[Epsilon]_", ",", "\[Gamma]_"}]]}], "\[RuleDelayed]", "B"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ SuperscriptBox["\[Zeta]", RowBox[{"\[Kappa]_", ",", "\[Epsilon]_"}]], SubscriptBox["\[Zeta]", RowBox[{"\[Epsilon]_", ",", "\[Alpha]_"}]]}], "\[RuleDelayed]", SubsuperscriptBox["\[Delta]", "\[Alpha]", "\[Kappa]"]}], ",", RowBox[{ RowBox[{ SuperscriptBox["\[Zeta]", RowBox[{"\[Epsilon]_", ",", "\[Kappa]_"}]], SubscriptBox["\[Zeta]", RowBox[{"\[Epsilon]_", ",", "\[Alpha]_"}]]}], "\[RuleDelayed]", RowBox[{"-", SubsuperscriptBox["\[Delta]", "\[Alpha]", "\[Kappa]"]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ SuperscriptBox["\[Zeta]", RowBox[{"\[Kappa]_", ",", "\[Epsilon]_"}]], SubscriptBox["\[Zeta]", RowBox[{"\[Alpha]_", ",", "\[Epsilon]_"}]]}], "\[RuleDelayed]", RowBox[{"-", SubsuperscriptBox["\[Delta]", "\[Alpha]", "\[Kappa]"]}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["\[Zeta]", RowBox[{"\[Epsilon]_", ",", "\[Kappa]_"}]], SubscriptBox["\[Zeta]", RowBox[{"\[Alpha]_", ",", "\[Epsilon]_"}]]}], "\[RuleDelayed]", SubsuperscriptBox["\[Delta]", "\[Alpha]", "\[Kappa]"]}]}], "\[IndentingNewLine]", "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.455620426983983*^9, 3.4556205106763515`*^9}, { 3.455620566107894*^9, 3.4556206569459767`*^9}, 3.455620712822564*^9, { 3.4556207507833595`*^9, 3.4556208067979603`*^9}}], Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{"Expand", "[", " ", RowBox[{ SuperscriptBox["\[Zeta]", RowBox[{"\[Delta]", ",", "\[Epsilon]", " "}]], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["\[Zeta]", RowBox[{"\[Kappa]", ",", "\[Nu]"}]]}], " ", SubscriptBox["A", RowBox[{"\[Delta]", ",", "\[Epsilon]", ",", "\[Gamma]"}]]}], "+", RowBox[{ SubscriptBox["\[Zeta]", RowBox[{"\[Epsilon]", ",", "\[Kappa]"}]], " ", SubscriptBox["A", RowBox[{"\[Delta]", ",", "\[Nu]", ",", "\[Gamma]"}]]}], "+", RowBox[{ SubscriptBox["\[Zeta]", RowBox[{"\[Gamma]", ",", "\[Kappa]"}]], " ", SubscriptBox["A", RowBox[{"\[Epsilon]", ",", "\[Nu]", ",", "\[Delta]"}]]}], "+", RowBox[{ SubscriptBox["\[Zeta]", RowBox[{"\[Gamma]", ",", "\[Delta]"}]], " ", SubscriptBox["A", RowBox[{"\[Epsilon]", ",", "\[Nu]", ",", "\[Kappa]"}]]}], "-", RowBox[{ SubscriptBox["\[Zeta]", RowBox[{"\[Gamma]", ",", "\[Nu]"}]], " ", SubscriptBox["A", RowBox[{"\[Kappa]", ",", "\[Delta]", ",", "\[Epsilon]"}]]}], "-", RowBox[{ SubscriptBox["\[Zeta]", RowBox[{"\[Gamma]", ",", "\[Epsilon]"}]], " ", SubscriptBox["A", RowBox[{"\[Kappa]", ",", "\[Delta]", ",", "\[Nu]"}]]}], "-", RowBox[{ SubscriptBox["\[Zeta]", RowBox[{"\[Delta]", ",", "\[Nu]"}]], " ", SubscriptBox["A", RowBox[{"\[Kappa]", ",", "\[Epsilon]", ",", "\[Gamma]"}]]}], "-", RowBox[{ SubscriptBox["\[Zeta]", RowBox[{"\[Delta]", ",", "\[Epsilon]"}]], " ", SubscriptBox["A", RowBox[{"\[Kappa]", ",", "\[Nu]", ",", "\[Gamma]"}]]}]}], ")"}]}], "]"}], "//.", "zetaRules"}], "//.", "generalRules"}], "]"}]], "Input", CellChangeTimes->{{3.455620668993181*^9, 3.4556207358078623`*^9}, { 3.4556208359298735`*^9, 3.455620840006281*^9}, {3.4556208733486147`*^9, 3.4556208786971493`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", "B"}], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Kappa]", ",", "\[Nu]"}]]}], "+", SubscriptBox["A", RowBox[{"\[Gamma]", ",", "\[Nu]", ",", "\[Kappa]"}]], "+", SubscriptBox["A", RowBox[{"\[Kappa]", ",", "\[Gamma]", ",", "\[Nu]"}]], "+", RowBox[{"2", " ", SubscriptBox["A", RowBox[{"\[Kappa]", ",", "\[Nu]", ",", "\[Gamma]"}]]}], "+", RowBox[{"n\[Delta]", " ", SubscriptBox["A", RowBox[{"\[Kappa]", ",", "\[Nu]", ",", "\[Gamma]"}]]}], "+", RowBox[{ SubscriptBox["\[Zeta]", RowBox[{"\[Gamma]", ",", "\[Kappa]"}]], " ", SubscriptBox["A", RowBox[{"\[Nu]", ",", "\[Delta]", ",", "\[Epsilon]"}]], " ", RowBox[{"(", " ", SuperscriptBox["\[Zeta]", RowBox[{"\[Delta]", " ", ",", "\[Epsilon]", " "}]], ")"}]}], "-", RowBox[{ SubscriptBox["\[Zeta]", RowBox[{"\[Gamma]", ",", "\[Nu]"}]], " ", SubscriptBox["A", RowBox[{"\[Kappa]", ",", "\[Delta]", ",", "\[Epsilon]"}]], " ", RowBox[{"(", " ", SuperscriptBox["\[Zeta]", RowBox[{ RowBox[{"\[Delta]", " ", ",", "\[Epsilon]"}], " "}]], ")"}]}]}]], \ "Input", CellChangeTimes->{{3.455620955014781*^9, 3.4556209685471334`*^9}, { 3.455621001189398*^9, 3.45562103871815*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TestJacobiReturn", "[", RowBox[{"l", ",", RowBox[{"{", "SymplecticSymmetryRules", "}"}], ",", RowBox[{"ISpceBasis", "[", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], "}"}], "]"}], ",", RowBox[{"ISpceBasis", "[", RowBox[{"{", RowBox[{"\[Kappa]", ",", "\[Delta]", ",", "\[Gamma]"}], "}"}], "]"}], ",", RowBox[{"ISpceBasis", "[", RowBox[{"{", RowBox[{"\[Epsilon]", ",", "\[Nu]", ",", "\[Mu]"}], "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.452207455555413*^9, 3.4522075712417617`*^9}, { 3.452209061324395*^9, 3.4522090785992355`*^9}, {3.452347001898718*^9, 3.4523470149574957`*^9}, 3.452347058980798*^9, {3.4523502834061823`*^9, 3.4523503310446825`*^9}, {3.452351011055395*^9, 3.4523510157321205`*^9}, { 3.4523511317389297`*^9, 3.452351157666211*^9}, {3.453489551150092*^9, 3.4534895773357105`*^9}, 3.45348961643262*^9, 3.4534899311360874`*^9, { 3.4534902120881796`*^9, 3.4534902370196724`*^9}, {3.4534906857315392`*^9, 3.453490706030569*^9}, {3.455618419199644*^9, 3.4556184914094224`*^9}, { 3.455618773526431*^9, 3.455618774801431*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Alpha]", ",", "\[Beta]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Delta]", ",", "\[Kappa]"}]], ",", SubscriptBox["W", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Delta]", ",", "\[Kappa]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]], ",", SubscriptBox["W", RowBox[{"\[Alpha]", ",", "\[Beta]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Alpha]", ",", "\[Beta]"}]], ",", SubscriptBox["W", RowBox[{"\[Delta]", ",", "\[Kappa]"}]]}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Gamma]"], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Delta]", ",", "\[Kappa]"}]], ",", SubscriptBox["W", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Delta]", ",", "\[Kappa]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]], ",", SubscriptBox["P", "\[Gamma]"]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Gamma]"], ",", SubscriptBox["W", RowBox[{"\[Delta]", ",", "\[Kappa]"}]]}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Alpha]", ",", "\[Beta]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Delta]", ",", "\[Kappa]"}]], ",", SubscriptBox["W", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Delta]", ",", "\[Kappa]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]], ",", SubscriptBox["A", RowBox[{"\[Alpha]", ",", "\[Beta]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Alpha]", ",", "\[Beta]"}]], ",", SubscriptBox["W", RowBox[{"\[Delta]", ",", "\[Kappa]"}]]}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Delta]", ",", "\[Kappa]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]], ",", SubscriptBox["M", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}]], ",", SubscriptBox["W", RowBox[{"\[Delta]", ",", "\[Kappa]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Delta]", ",", "\[Kappa]"}]], ",", SubscriptBox["W", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]]}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Gamma]"], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]], ",", SubscriptBox["W", RowBox[{"\[Alpha]", ",", "\[Beta]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Alpha]", ",", "\[Beta]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Gamma]"], ",", SubscriptBox["W", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Alpha]", ",", "\[Beta]"}]], ",", SubscriptBox["P", "\[Gamma]"]}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Gamma]"], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Gamma]"], ",", SubscriptBox["W", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Gamma]"], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]], ",", SubscriptBox["P", "\[Gamma]"]}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Gamma]"], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]], ",", SubscriptBox["A", RowBox[{"\[Alpha]", ",", "\[Beta]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Alpha]", ",", "\[Beta]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Gamma]"], ",", SubscriptBox["W", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Alpha]", ",", "\[Beta]"}]], ",", SubscriptBox["P", "\[Gamma]"]}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Gamma]"], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]], ",", SubscriptBox["M", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}]], ",", SubscriptBox["P", "\[Gamma]"]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Gamma]"], ",", SubscriptBox["W", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]]}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Kappa]", ",", "\[Delta]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]], ",", SubscriptBox["W", RowBox[{"\[Alpha]", ",", "\[Beta]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Alpha]", ",", "\[Beta]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Kappa]", ",", "\[Delta]"}]], ",", SubscriptBox["W", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Alpha]", ",", "\[Beta]"}]], ",", SubscriptBox["A", RowBox[{"\[Kappa]", ",", "\[Delta]"}]]}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Gamma]"], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Kappa]", ",", "\[Delta]"}]], ",", SubscriptBox["W", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Kappa]", ",", "\[Delta]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]], ",", SubscriptBox["P", "\[Gamma]"]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Gamma]"], ",", SubscriptBox["A", RowBox[{"\[Kappa]", ",", "\[Delta]"}]]}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Alpha]", ",", "\[Beta]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Kappa]", ",", "\[Delta]"}]], ",", SubscriptBox["W", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Kappa]", ",", "\[Delta]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]], ",", SubscriptBox["A", RowBox[{"\[Alpha]", ",", "\[Beta]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Alpha]", ",", "\[Beta]"}]], ",", SubscriptBox["A", RowBox[{"\[Kappa]", ",", "\[Delta]"}]]}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Kappa]", ",", "\[Delta]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]], ",", SubscriptBox["M", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}]], ",", SubscriptBox["A", RowBox[{"\[Kappa]", ",", "\[Delta]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Kappa]", ",", "\[Delta]"}]], ",", SubscriptBox["W", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]]}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Alpha]", ",", "\[Beta]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Kappa]", ",", "\[Delta]", ",", "\[Gamma]"}]], ",", SubscriptBox["W", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Alpha]", ",", "\[Beta]"}]], ",", SubscriptBox["M", RowBox[{"\[Kappa]", ",", "\[Delta]", ",", "\[Gamma]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Kappa]", ",", "\[Delta]", ",", "\[Gamma]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]], ",", SubscriptBox["W", RowBox[{"\[Alpha]", ",", "\[Beta]"}]]}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Gamma]"], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Kappa]", ",", "\[Delta]", ",", "\[Gamma]"}]], ",", SubscriptBox["W", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Gamma]"], ",", SubscriptBox["M", RowBox[{"\[Kappa]", ",", "\[Delta]", ",", "\[Gamma]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Kappa]", ",", "\[Delta]", ",", "\[Gamma]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]], ",", SubscriptBox["P", "\[Gamma]"]}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Alpha]", ",", "\[Beta]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Kappa]", ",", "\[Delta]", ",", "\[Gamma]"}]], ",", SubscriptBox["W", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Alpha]", ",", "\[Beta]"}]], ",", SubscriptBox["M", RowBox[{"\[Kappa]", ",", "\[Delta]", ",", "\[Gamma]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Kappa]", ",", "\[Delta]", ",", "\[Gamma]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]], ",", SubscriptBox["A", RowBox[{"\[Alpha]", ",", "\[Beta]"}]]}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}]], ",", SubscriptBox["M", RowBox[{"\[Kappa]", ",", "\[Delta]", ",", "\[Gamma]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Kappa]", ",", "\[Delta]", ",", "\[Gamma]"}]], ",", SubscriptBox["W", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Kappa]", ",", "\[Delta]", ",", "\[Gamma]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]], ",", SubscriptBox["M", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}]]}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Mu]"], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Alpha]", ",", "\[Beta]"}]], ",", SubscriptBox["W", RowBox[{"\[Delta]", ",", "\[Kappa]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Alpha]", ",", "\[Beta]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Delta]", ",", "\[Kappa]"}]], ",", SubscriptBox["P", "\[Mu]"]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Delta]", ",", "\[Kappa]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Mu]"], ",", SubscriptBox["W", RowBox[{"\[Alpha]", ",", "\[Beta]"}]]}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Gamma]"], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Delta]", ",", "\[Kappa]"}]], ",", SubscriptBox["P", "\[Mu]"]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Mu]"], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Gamma]"], ",", SubscriptBox["W", RowBox[{"\[Delta]", ",", "\[Kappa]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Delta]", ",", "\[Kappa]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Mu]"], ",", SubscriptBox["P", "\[Gamma]"]}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Mu]"], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Alpha]", ",", "\[Beta]"}]], ",", SubscriptBox["W", RowBox[{"\[Delta]", ",", "\[Kappa]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Alpha]", ",", "\[Beta]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Delta]", ",", "\[Kappa]"}]], ",", SubscriptBox["P", "\[Mu]"]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Delta]", ",", "\[Kappa]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Mu]"], ",", SubscriptBox["A", RowBox[{"\[Alpha]", ",", "\[Beta]"}]]}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Mu]"], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}]], ",", SubscriptBox["W", RowBox[{"\[Delta]", ",", "\[Kappa]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Delta]", ",", "\[Kappa]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Mu]"], ",", SubscriptBox["M", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Delta]", ",", "\[Kappa]"}]], ",", SubscriptBox["P", "\[Mu]"]}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Gamma]"], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Mu]"], ",", SubscriptBox["W", RowBox[{"\[Alpha]", ",", "\[Beta]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Mu]"], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Alpha]", ",", "\[Beta]"}]], ",", SubscriptBox["P", "\[Gamma]"]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Alpha]", ",", "\[Beta]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Gamma]"], ",", SubscriptBox["P", "\[Mu]"]}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Gamma]"], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Gamma]"], ",", SubscriptBox["P", "\[Mu]"]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Gamma]"], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Mu]"], ",", SubscriptBox["P", "\[Gamma]"]}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Gamma]"], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Mu]"], ",", SubscriptBox["A", RowBox[{"\[Alpha]", ",", "\[Beta]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Mu]"], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Alpha]", ",", "\[Beta]"}]], ",", SubscriptBox["P", "\[Gamma]"]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Alpha]", ",", "\[Beta]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Gamma]"], ",", SubscriptBox["P", "\[Mu]"]}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Gamma]"], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Mu]"], ",", SubscriptBox["M", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Mu]"], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}]], ",", SubscriptBox["P", "\[Gamma]"]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Gamma]"], ",", SubscriptBox["P", "\[Mu]"]}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Mu]"], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Alpha]", ",", "\[Beta]"}]], ",", SubscriptBox["A", RowBox[{"\[Kappa]", ",", "\[Delta]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Kappa]", ",", "\[Delta]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Mu]"], ",", SubscriptBox["W", RowBox[{"\[Alpha]", ",", "\[Beta]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Alpha]", ",", "\[Beta]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Kappa]", ",", "\[Delta]"}]], ",", SubscriptBox["P", "\[Mu]"]}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Gamma]"], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Kappa]", ",", "\[Delta]"}]], ",", SubscriptBox["P", "\[Mu]"]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Mu]"], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Gamma]"], ",", SubscriptBox["A", RowBox[{"\[Kappa]", ",", "\[Delta]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Kappa]", ",", "\[Delta]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Mu]"], ",", SubscriptBox["P", "\[Gamma]"]}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Mu]"], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Alpha]", ",", "\[Beta]"}]], ",", SubscriptBox["A", RowBox[{"\[Kappa]", ",", "\[Delta]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Alpha]", ",", "\[Beta]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Kappa]", ",", "\[Delta]"}]], ",", SubscriptBox["P", "\[Mu]"]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Kappa]", ",", "\[Delta]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Mu]"], ",", SubscriptBox["A", RowBox[{"\[Alpha]", ",", "\[Beta]"}]]}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Mu]"], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}]], ",", SubscriptBox["A", RowBox[{"\[Kappa]", ",", "\[Delta]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Kappa]", ",", "\[Delta]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Mu]"], ",", SubscriptBox["M", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Kappa]", ",", "\[Delta]"}]], ",", SubscriptBox["P", "\[Mu]"]}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Mu]"], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Alpha]", ",", "\[Beta]"}]], ",", SubscriptBox["M", RowBox[{"\[Kappa]", ",", "\[Delta]", ",", "\[Gamma]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Alpha]", ",", "\[Beta]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Kappa]", ",", "\[Delta]", ",", "\[Gamma]"}]], ",", SubscriptBox["P", "\[Mu]"]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Kappa]", ",", "\[Delta]", ",", "\[Gamma]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Mu]"], ",", SubscriptBox["W", RowBox[{"\[Alpha]", ",", "\[Beta]"}]]}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Gamma]"], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Kappa]", ",", "\[Delta]", ",", "\[Gamma]"}]], ",", SubscriptBox["P", "\[Mu]"]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Mu]"], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Gamma]"], ",", SubscriptBox["M", RowBox[{"\[Kappa]", ",", "\[Delta]", ",", "\[Gamma]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Kappa]", ",", "\[Delta]", ",", "\[Gamma]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Mu]"], ",", SubscriptBox["P", "\[Gamma]"]}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Mu]"], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Alpha]", ",", "\[Beta]"}]], ",", SubscriptBox["M", RowBox[{"\[Kappa]", ",", "\[Delta]", ",", "\[Gamma]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Alpha]", ",", "\[Beta]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Kappa]", ",", "\[Delta]", ",", "\[Gamma]"}]], ",", SubscriptBox["P", "\[Mu]"]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Kappa]", ",", "\[Delta]", ",", "\[Gamma]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Mu]"], ",", SubscriptBox["A", RowBox[{"\[Alpha]", ",", "\[Beta]"}]]}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Mu]"], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}]], ",", SubscriptBox["M", RowBox[{"\[Kappa]", ",", "\[Delta]", ",", "\[Gamma]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Kappa]", ",", "\[Delta]", ",", "\[Gamma]"}]], ",", SubscriptBox["P", "\[Mu]"]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Kappa]", ",", "\[Delta]", ",", "\[Gamma]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Mu]"], ",", SubscriptBox["M", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}]]}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Alpha]", ",", "\[Beta]"}]], ",", SubscriptBox["W", RowBox[{"\[Delta]", ",", "\[Kappa]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Alpha]", ",", "\[Beta]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Delta]", ",", "\[Kappa]"}]], ",", SubscriptBox["A", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Delta]", ",", "\[Kappa]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]], ",", SubscriptBox["W", RowBox[{"\[Alpha]", ",", "\[Beta]"}]]}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Gamma]"], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Delta]", ",", "\[Kappa]"}]], ",", SubscriptBox["A", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Gamma]"], ",", SubscriptBox["W", RowBox[{"\[Delta]", ",", "\[Kappa]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Delta]", ",", "\[Kappa]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]], ",", SubscriptBox["P", "\[Gamma]"]}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Alpha]", ",", "\[Beta]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Delta]", ",", "\[Kappa]"}]], ",", SubscriptBox["A", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Alpha]", ",", "\[Beta]"}]], ",", SubscriptBox["W", RowBox[{"\[Delta]", ",", "\[Kappa]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Delta]", ",", "\[Kappa]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]], ",", SubscriptBox["A", RowBox[{"\[Alpha]", ",", "\[Beta]"}]]}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}]], ",", SubscriptBox["W", RowBox[{"\[Delta]", ",", "\[Kappa]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Delta]", ",", "\[Kappa]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]], ",", SubscriptBox["M", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Delta]", ",", "\[Kappa]"}]], ",", SubscriptBox["A", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]]}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Gamma]"], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]], ",", SubscriptBox["W", RowBox[{"\[Alpha]", ",", "\[Beta]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Alpha]", ",", "\[Beta]"}]], ",", SubscriptBox["P", "\[Gamma]"]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Alpha]", ",", "\[Beta]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Gamma]"], ",", SubscriptBox["A", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]]}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Gamma]"], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Gamma]"], ",", SubscriptBox["A", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Gamma]"], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]], ",", SubscriptBox["P", "\[Gamma]"]}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Gamma]"], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]], ",", SubscriptBox["A", RowBox[{"\[Alpha]", ",", "\[Beta]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Alpha]", ",", "\[Beta]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Gamma]"], ",", SubscriptBox["A", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Alpha]", ",", "\[Beta]"}]], ",", SubscriptBox["P", "\[Gamma]"]}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Gamma]"], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]], ",", SubscriptBox["M", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}]], ",", SubscriptBox["P", "\[Gamma]"]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Gamma]"], ",", SubscriptBox["A", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]]}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Alpha]", ",", "\[Beta]"}]], ",", SubscriptBox["A", RowBox[{"\[Kappa]", ",", "\[Delta]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Kappa]", ",", "\[Delta]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]], ",", SubscriptBox["W", RowBox[{"\[Alpha]", ",", "\[Beta]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Alpha]", ",", "\[Beta]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Kappa]", ",", "\[Delta]"}]], ",", SubscriptBox["A", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]]}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Gamma]"], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Kappa]", ",", "\[Delta]"}]], ",", SubscriptBox["A", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Gamma]"], ",", SubscriptBox["A", RowBox[{"\[Kappa]", ",", "\[Delta]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Kappa]", ",", "\[Delta]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]], ",", SubscriptBox["P", "\[Gamma]"]}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Alpha]", ",", "\[Beta]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Kappa]", ",", "\[Delta]"}]], ",", SubscriptBox["A", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Alpha]", ",", "\[Beta]"}]], ",", SubscriptBox["A", RowBox[{"\[Kappa]", ",", "\[Delta]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Kappa]", ",", "\[Delta]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]], ",", SubscriptBox["A", RowBox[{"\[Alpha]", ",", "\[Beta]"}]]}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}]], ",", SubscriptBox["A", RowBox[{"\[Kappa]", ",", "\[Delta]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Kappa]", ",", "\[Delta]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]], ",", SubscriptBox["M", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Kappa]", ",", "\[Delta]"}]], ",", SubscriptBox["A", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]]}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Alpha]", ",", "\[Beta]"}]], ",", SubscriptBox["M", RowBox[{"\[Kappa]", ",", "\[Delta]", ",", "\[Gamma]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Alpha]", ",", "\[Beta]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Kappa]", ",", "\[Delta]", ",", "\[Gamma]"}]], ",", SubscriptBox["A", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Kappa]", ",", "\[Delta]", ",", "\[Gamma]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]], ",", SubscriptBox["W", RowBox[{"\[Alpha]", ",", "\[Beta]"}]]}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Gamma]"], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Kappa]", ",", "\[Delta]", ",", "\[Gamma]"}]], ",", SubscriptBox["A", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Gamma]"], ",", SubscriptBox["M", RowBox[{"\[Kappa]", ",", "\[Delta]", ",", "\[Gamma]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Kappa]", ",", "\[Delta]", ",", "\[Gamma]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]], ",", SubscriptBox["P", "\[Gamma]"]}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Alpha]", ",", "\[Beta]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Kappa]", ",", "\[Delta]", ",", "\[Gamma]"}]], ",", SubscriptBox["A", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Alpha]", ",", "\[Beta]"}]], ",", SubscriptBox["M", RowBox[{"\[Kappa]", ",", "\[Delta]", ",", "\[Gamma]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Kappa]", ",", "\[Delta]", ",", "\[Gamma]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]], ",", SubscriptBox["A", RowBox[{"\[Alpha]", ",", "\[Beta]"}]]}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}]], ",", SubscriptBox["M", RowBox[{"\[Kappa]", ",", "\[Delta]", ",", "\[Gamma]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Kappa]", ",", "\[Delta]", ",", "\[Gamma]"}]], ",", SubscriptBox["A", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Kappa]", ",", "\[Delta]", ",", "\[Gamma]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Epsilon]", ",", "\[Nu]"}]], ",", SubscriptBox["M", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}]]}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Alpha]", ",", "\[Beta]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Delta]", ",", "\[Kappa]"}]], ",", SubscriptBox["M", RowBox[{"\[Epsilon]", ",", "\[Nu]", ",", "\[Mu]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Delta]", ",", "\[Kappa]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Epsilon]", ",", "\[Nu]", ",", "\[Mu]"}]], ",", SubscriptBox["W", RowBox[{"\[Alpha]", ",", "\[Beta]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Epsilon]", ",", "\[Nu]", ",", "\[Mu]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Alpha]", ",", "\[Beta]"}]], ",", SubscriptBox["W", RowBox[{"\[Delta]", ",", "\[Kappa]"}]]}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Gamma]"], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Delta]", ",", "\[Kappa]"}]], ",", SubscriptBox["M", RowBox[{"\[Epsilon]", ",", "\[Nu]", ",", "\[Mu]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Delta]", ",", "\[Kappa]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Epsilon]", ",", "\[Nu]", ",", "\[Mu]"}]], ",", SubscriptBox["P", "\[Gamma]"]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Epsilon]", ",", "\[Nu]", ",", "\[Mu]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Gamma]"], ",", SubscriptBox["W", RowBox[{"\[Delta]", ",", "\[Kappa]"}]]}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Alpha]", ",", "\[Beta]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Delta]", ",", "\[Kappa]"}]], ",", SubscriptBox["M", RowBox[{"\[Epsilon]", ",", "\[Nu]", ",", "\[Mu]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Delta]", ",", "\[Kappa]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Epsilon]", ",", "\[Nu]", ",", "\[Mu]"}]], ",", SubscriptBox["A", RowBox[{"\[Alpha]", ",", "\[Beta]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Epsilon]", ",", "\[Nu]", ",", "\[Mu]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Alpha]", ",", "\[Beta]"}]], ",", SubscriptBox["W", RowBox[{"\[Delta]", ",", "\[Kappa]"}]]}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Delta]", ",", "\[Kappa]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Epsilon]", ",", "\[Nu]", ",", "\[Mu]"}]], ",", SubscriptBox["M", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Delta]", ",", "\[Kappa]"}]], ",", SubscriptBox["M", RowBox[{"\[Epsilon]", ",", "\[Nu]", ",", "\[Mu]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Epsilon]", ",", "\[Nu]", ",", "\[Mu]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}]], ",", SubscriptBox["W", RowBox[{"\[Delta]", ",", "\[Kappa]"}]]}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Gamma]"], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Epsilon]", ",", "\[Nu]", ",", "\[Mu]"}]], ",", SubscriptBox["W", RowBox[{"\[Alpha]", ",", "\[Beta]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Alpha]", ",", "\[Beta]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Gamma]"], ",", SubscriptBox["M", RowBox[{"\[Epsilon]", ",", "\[Nu]", ",", "\[Mu]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Epsilon]", ",", "\[Nu]", ",", "\[Mu]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Alpha]", ",", "\[Beta]"}]], ",", SubscriptBox["P", "\[Gamma]"]}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Gamma]"], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Gamma]"], ",", SubscriptBox["M", RowBox[{"\[Epsilon]", ",", "\[Nu]", ",", "\[Mu]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Gamma]"], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Epsilon]", ",", "\[Nu]", ",", "\[Mu]"}]], ",", SubscriptBox["P", "\[Gamma]"]}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Gamma]"], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Epsilon]", ",", "\[Nu]", ",", "\[Mu]"}]], ",", SubscriptBox["A", RowBox[{"\[Alpha]", ",", "\[Beta]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Alpha]", ",", "\[Beta]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Gamma]"], ",", SubscriptBox["M", RowBox[{"\[Epsilon]", ",", "\[Nu]", ",", "\[Mu]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Epsilon]", ",", "\[Nu]", ",", "\[Mu]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Alpha]", ",", "\[Beta]"}]], ",", SubscriptBox["P", "\[Gamma]"]}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Gamma]"], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Epsilon]", ",", "\[Nu]", ",", "\[Mu]"}]], ",", SubscriptBox["M", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Gamma]"], ",", SubscriptBox["M", RowBox[{"\[Epsilon]", ",", "\[Nu]", ",", "\[Mu]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Epsilon]", ",", "\[Nu]", ",", "\[Mu]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}]], ",", SubscriptBox["P", "\[Gamma]"]}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Kappa]", ",", "\[Delta]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Epsilon]", ",", "\[Nu]", ",", "\[Mu]"}]], ",", SubscriptBox["W", RowBox[{"\[Alpha]", ",", "\[Beta]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Alpha]", ",", "\[Beta]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Kappa]", ",", "\[Delta]"}]], ",", SubscriptBox["M", RowBox[{"\[Epsilon]", ",", "\[Nu]", ",", "\[Mu]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Epsilon]", ",", "\[Nu]", ",", "\[Mu]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Alpha]", ",", "\[Beta]"}]], ",", SubscriptBox["A", RowBox[{"\[Kappa]", ",", "\[Delta]"}]]}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Gamma]"], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Kappa]", ",", "\[Delta]"}]], ",", SubscriptBox["M", RowBox[{"\[Epsilon]", ",", "\[Nu]", ",", "\[Mu]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Kappa]", ",", "\[Delta]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Epsilon]", ",", "\[Nu]", ",", "\[Mu]"}]], ",", SubscriptBox["P", "\[Gamma]"]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Epsilon]", ",", "\[Nu]", ",", "\[Mu]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Gamma]"], ",", SubscriptBox["A", RowBox[{"\[Kappa]", ",", "\[Delta]"}]]}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Alpha]", ",", "\[Beta]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Kappa]", ",", "\[Delta]"}]], ",", SubscriptBox["M", RowBox[{"\[Epsilon]", ",", "\[Nu]", ",", "\[Mu]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Kappa]", ",", "\[Delta]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Epsilon]", ",", "\[Nu]", ",", "\[Mu]"}]], ",", SubscriptBox["A", RowBox[{"\[Alpha]", ",", "\[Beta]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Epsilon]", ",", "\[Nu]", ",", "\[Mu]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Alpha]", ",", "\[Beta]"}]], ",", SubscriptBox["A", RowBox[{"\[Kappa]", ",", "\[Delta]"}]]}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Kappa]", ",", "\[Delta]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Epsilon]", ",", "\[Nu]", ",", "\[Mu]"}]], ",", SubscriptBox["M", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Kappa]", ",", "\[Delta]"}]], ",", SubscriptBox["M", RowBox[{"\[Epsilon]", ",", "\[Nu]", ",", "\[Mu]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Epsilon]", ",", "\[Nu]", ",", "\[Mu]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}]], ",", SubscriptBox["A", RowBox[{"\[Kappa]", ",", "\[Delta]"}]]}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Alpha]", ",", "\[Beta]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Kappa]", ",", "\[Delta]", ",", "\[Gamma]"}]], ",", SubscriptBox["M", RowBox[{"\[Epsilon]", ",", "\[Nu]", ",", "\[Mu]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Epsilon]", ",", "\[Nu]", ",", "\[Mu]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Alpha]", ",", "\[Beta]"}]], ",", SubscriptBox["M", RowBox[{"\[Kappa]", ",", "\[Delta]", ",", "\[Gamma]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Kappa]", ",", "\[Delta]", ",", "\[Gamma]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Epsilon]", ",", "\[Nu]", ",", "\[Mu]"}]], ",", SubscriptBox["W", RowBox[{"\[Alpha]", ",", "\[Beta]"}]]}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Gamma]"], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Kappa]", ",", "\[Delta]", ",", "\[Gamma]"}]], ",", SubscriptBox["M", RowBox[{"\[Epsilon]", ",", "\[Nu]", ",", "\[Mu]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Epsilon]", ",", "\[Nu]", ",", "\[Mu]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Gamma]"], ",", SubscriptBox["M", RowBox[{"\[Kappa]", ",", "\[Delta]", ",", "\[Gamma]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Kappa]", ",", "\[Delta]", ",", "\[Gamma]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Epsilon]", ",", "\[Nu]", ",", "\[Mu]"}]], ",", SubscriptBox["P", "\[Gamma]"]}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Alpha]", ",", "\[Beta]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Kappa]", ",", "\[Delta]", ",", "\[Gamma]"}]], ",", SubscriptBox["M", RowBox[{"\[Epsilon]", ",", "\[Nu]", ",", "\[Mu]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Epsilon]", ",", "\[Nu]", ",", "\[Mu]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Alpha]", ",", "\[Beta]"}]], ",", SubscriptBox["M", RowBox[{"\[Kappa]", ",", "\[Delta]", ",", "\[Gamma]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Kappa]", ",", "\[Delta]", ",", "\[Gamma]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Epsilon]", ",", "\[Nu]", ",", "\[Mu]"}]], ",", SubscriptBox["A", RowBox[{"\[Alpha]", ",", "\[Beta]"}]]}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Kappa]", ",", "\[Delta]", ",", "\[Gamma]"}]], ",", SubscriptBox["M", RowBox[{"\[Epsilon]", ",", "\[Nu]", ",", "\[Mu]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Epsilon]", ",", "\[Nu]", ",", "\[Mu]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}]], ",", SubscriptBox["M", RowBox[{"\[Kappa]", ",", "\[Delta]", ",", "\[Gamma]"}]]}], "]"}]}], "]"}], "+", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Kappa]", ",", "\[Delta]", ",", "\[Gamma]"}]], ",", RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Epsilon]", ",", "\[Nu]", ",", "\[Mu]"}]], ",", SubscriptBox["M", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}]]}], "]"}]}], "]"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.4556187805154314`*^9}] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TestJacobiReturn", "[", RowBox[{ SubscriptBox["l", "ispce"], ",", RowBox[{"{", "SymplecticSymmetryRules", "}"}], ",", RowBox[{"ISpceBasis", "[", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], "}"}], "]"}], ",", RowBox[{"ISpceBasis", "[", RowBox[{"{", RowBox[{"\[Kappa]", ",", "\[Delta]", ",", "\[Gamma]"}], "}"}], "]"}], ",", RowBox[{"ISpceBasis", "[", RowBox[{"{", RowBox[{"\[Epsilon]", ",", "\[Nu]", ",", "\[Mu]"}], "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.452207455555413*^9, 3.4522075712417617`*^9}, { 3.452209061324395*^9, 3.4522090785992355`*^9}, {3.452347001898718*^9, 3.4523470149574957`*^9}, 3.452347058980798*^9, {3.4523502834061823`*^9, 3.4523503310446825`*^9}, {3.452351011055395*^9, 3.4523510157321205`*^9}, { 3.4523511317389297`*^9, 3.452351157666211*^9}, {3.453489551150092*^9, 3.4534895773357105`*^9}, 3.45348961643262*^9, 3.4534899311360874`*^9, { 3.4534902120881796`*^9, 3.4534902370196724`*^9}, {3.4534906857315392`*^9, 3.453490706030569*^9}, {3.455618419199644*^9, 3.4556184914094224`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", "0", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["\[Zeta]", RowBox[{"\[Kappa]", ",", "\[Nu]"}]]}], " ", SubscriptBox["M", RowBox[{"\[Delta]", ",", "\[Epsilon]", ",", "\[Gamma]"}]]}], "+", RowBox[{ SubscriptBox["\[Zeta]", RowBox[{"\[Epsilon]", ",", "\[Kappa]"}]], " ", SubscriptBox["M", RowBox[{"\[Delta]", ",", "\[Nu]", ",", "\[Gamma]"}]]}], "+", RowBox[{ SubscriptBox["\[Zeta]", RowBox[{"\[Gamma]", ",", "\[Kappa]"}]], " ", SubscriptBox["M", RowBox[{"\[Epsilon]", ",", "\[Nu]", ",", "\[Delta]"}]]}], "+", RowBox[{ SubscriptBox["\[Zeta]", RowBox[{"\[Gamma]", ",", "\[Delta]"}]], " ", SubscriptBox["M", RowBox[{"\[Epsilon]", ",", "\[Nu]", ",", "\[Kappa]"}]]}], "-", RowBox[{ SubscriptBox["\[Zeta]", RowBox[{"\[Gamma]", ",", "\[Nu]"}]], " ", SubscriptBox["M", RowBox[{"\[Kappa]", ",", "\[Delta]", ",", "\[Epsilon]"}]]}], "-", RowBox[{ SubscriptBox["\[Zeta]", RowBox[{"\[Gamma]", ",", "\[Epsilon]"}]], " ", SubscriptBox["M", RowBox[{"\[Kappa]", ",", "\[Delta]", ",", "\[Nu]"}]]}], "-", RowBox[{ SubscriptBox["\[Zeta]", RowBox[{"\[Delta]", ",", "\[Nu]"}]], " ", SubscriptBox["M", RowBox[{"\[Kappa]", ",", "\[Epsilon]", ",", "\[Gamma]"}]]}], "-", RowBox[{ SubscriptBox["\[Zeta]", RowBox[{"\[Delta]", ",", "\[Epsilon]"}]], " ", SubscriptBox["M", RowBox[{"\[Kappa]", ",", "\[Nu]", ",", "\[Gamma]"}]]}]}], "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[Zeta]", RowBox[{"\[Gamma]", ",", "\[Nu]"}]], " ", SubscriptBox["M", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Epsilon]"}]]}], "+", RowBox[{ SubscriptBox["\[Zeta]", RowBox[{"\[Gamma]", ",", "\[Epsilon]"}]], " ", SubscriptBox["M", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Nu]"}]]}], "+", RowBox[{ SubscriptBox["\[Zeta]", RowBox[{"\[Beta]", ",", "\[Nu]"}]], " ", SubscriptBox["M", RowBox[{"\[Epsilon]", ",", "\[Alpha]", ",", "\[Gamma]"}]]}], "+", RowBox[{ SubscriptBox["\[Zeta]", RowBox[{"\[Alpha]", ",", "\[Nu]"}]], " ", SubscriptBox["M", RowBox[{"\[Epsilon]", ",", "\[Beta]", ",", "\[Gamma]"}]]}], "+", RowBox[{ SubscriptBox["\[Zeta]", RowBox[{"\[Beta]", ",", "\[Gamma]"}]], " ", SubscriptBox["M", RowBox[{"\[Epsilon]", ",", "\[Nu]", ",", "\[Alpha]"}]]}], "+", RowBox[{ SubscriptBox["\[Zeta]", RowBox[{"\[Alpha]", ",", "\[Gamma]"}]], " ", SubscriptBox["M", RowBox[{"\[Epsilon]", ",", "\[Nu]", ",", "\[Beta]"}]]}], "+", RowBox[{ SubscriptBox["\[Zeta]", RowBox[{"\[Beta]", ",", "\[Epsilon]"}]], " ", SubscriptBox["M", RowBox[{"\[Nu]", ",", "\[Alpha]", ",", "\[Gamma]"}]]}], "+", RowBox[{ SubscriptBox["\[Zeta]", RowBox[{"\[Alpha]", ",", "\[Epsilon]"}]], " ", SubscriptBox["M", RowBox[{"\[Nu]", ",", "\[Beta]", ",", "\[Gamma]"}]]}]}], "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[Zeta]", RowBox[{"\[Kappa]", ",", "\[Mu]"}]], " ", SubscriptBox["M", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Delta]"}]]}], "+", RowBox[{ SubscriptBox["\[Zeta]", RowBox[{"\[Delta]", ",", "\[Mu]"}]], " ", SubscriptBox["M", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Kappa]"}]]}], "-", RowBox[{ SubscriptBox["\[Zeta]", RowBox[{"\[Beta]", ",", "\[Kappa]"}]], " ", SubscriptBox["M", RowBox[{"\[Alpha]", ",", "\[Delta]", ",", "\[Mu]"}]]}], "-", RowBox[{ SubscriptBox["\[Zeta]", RowBox[{"\[Beta]", ",", "\[Delta]"}]], " ", SubscriptBox["M", RowBox[{"\[Alpha]", ",", "\[Kappa]", ",", "\[Mu]"}]]}], "-", RowBox[{ SubscriptBox["\[Zeta]", RowBox[{"\[Alpha]", ",", "\[Kappa]"}]], " ", SubscriptBox["M", RowBox[{"\[Beta]", ",", "\[Delta]", ",", "\[Mu]"}]]}], "-", RowBox[{ SubscriptBox["\[Zeta]", RowBox[{"\[Alpha]", ",", "\[Delta]"}]], " ", SubscriptBox["M", RowBox[{"\[Beta]", ",", "\[Kappa]", ",", "\[Mu]"}]]}], "-", RowBox[{ SubscriptBox["\[Zeta]", RowBox[{"\[Beta]", ",", "\[Mu]"}]], " ", SubscriptBox["M", RowBox[{"\[Kappa]", ",", "\[Delta]", ",", "\[Alpha]"}]]}], "-", RowBox[{ SubscriptBox["\[Zeta]", RowBox[{"\[Alpha]", ",", "\[Mu]"}]], " ", SubscriptBox["M", RowBox[{"\[Kappa]", ",", "\[Delta]", ",", "\[Beta]"}]]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["A", RowBox[{"\[Mu]", ",", "\[Kappa]"}]], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Gamma]", ",", "\[Delta]"}]]}], "+", RowBox[{ SubscriptBox["A", RowBox[{"\[Mu]", ",", "\[Delta]"}]], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Gamma]", ",", "\[Kappa]"}]]}], "+", RowBox[{ SubscriptBox["A", RowBox[{"\[Gamma]", ",", "\[Kappa]"}]], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Delta]", ",", "\[Mu]"}]]}], "+", RowBox[{ SubscriptBox["A", RowBox[{"\[Gamma]", ",", "\[Delta]"}]], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Kappa]", ",", "\[Mu]"}]]}]}], "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["A", RowBox[{"\[Mu]", ",", "\[Beta]"}]], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Alpha]", ",", "\[Gamma]"}]]}], "-", RowBox[{ SubscriptBox["A", RowBox[{"\[Gamma]", ",", "\[Beta]"}]], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Alpha]", ",", "\[Mu]"}]]}], "+", RowBox[{ SubscriptBox["A", RowBox[{"\[Mu]", ",", "\[Alpha]"}]], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Beta]", ",", "\[Gamma]"}]]}], "-", RowBox[{ SubscriptBox["A", RowBox[{"\[Gamma]", ",", "\[Alpha]"}]], " ", SubscriptBox["\[Zeta]", RowBox[{"\[Beta]", ",", "\[Mu]"}]]}]}], "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}]}], "}"}]], "Output", CellChangeTimes->{3.455618492772286*^9, 3.455618780676431*^9}] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"iu", "(", RowBox[{"1", ",", "n"}], ")"}], TraditionalForm]], "None"]], "Subsection", CellChangeTimes->{{3.4534888260685916`*^9, 3.453488876139598*^9}, { 3.4534893210750875`*^9, 3.4534893223682165`*^9}, 3.4534901114301147`*^9, { 3.4534906423111973`*^9, 3.4534906455975266`*^9}, 3.4534927797479296`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListCommutators", "[", RowBox[{ SubscriptBox["l", "iu"], ",", RowBox[{"IUBasis", "[", RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}], "]"}], ",", " ", RowBox[{"IUBasis", "[", RowBox[{"{", RowBox[{"c", ",", "d"}], "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.4523496979343147`*^9, 3.452349699346345*^9}, { 3.452349776647499*^9, 3.4523497909580765`*^9}, {3.4523510388453555`*^9, 3.4523510392058735`*^9}, {3.453489335991579*^9, 3.4534893687818575`*^9}, { 3.4534901150274744`*^9, 3.4534901286168337`*^9}, {3.453491855294484*^9, 3.4534918558505397`*^9}, {3.4534927836783223`*^9, 3.4534927997409286`*^9}, { 3.453493074003352*^9, 3.453493074921444*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["L", RowBox[{"a", ",", "b"}]], ",", SubscriptBox["L", RowBox[{"c", ",", "d"}]]}], "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["L", RowBox[{"b", ",", "d"}]]}], " ", SubscriptBox["\[Eta]", RowBox[{"a", ",", "c"}]]}], "+", RowBox[{ SubscriptBox["L", RowBox[{"b", ",", "c"}]], " ", SubscriptBox["\[Eta]", RowBox[{"a", ",", "d"}]]}], "+", RowBox[{ SubscriptBox["L", RowBox[{"a", ",", "d"}]], " ", SubscriptBox["\[Eta]", RowBox[{"b", ",", "c"}]]}], "-", RowBox[{ SubscriptBox["L", RowBox[{"a", ",", "c"}]], " ", SubscriptBox["\[Eta]", RowBox[{"b", ",", "d"}]]}]}]}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["L", RowBox[{"a", ",", "b"}]], ",", SubscriptBox["M", RowBox[{"c", ",", "d"}]]}], "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["M", RowBox[{"b", ",", "d"}]]}], " ", SubscriptBox["\[Eta]", RowBox[{"a", ",", "c"}]]}], "-", RowBox[{ SubscriptBox["M", RowBox[{"b", ",", "c"}]], " ", SubscriptBox["\[Eta]", RowBox[{"a", ",", "d"}]]}], "+", RowBox[{ SubscriptBox["M", RowBox[{"a", ",", "d"}]], " ", SubscriptBox["\[Eta]", RowBox[{"b", ",", "c"}]]}], "+", RowBox[{ SubscriptBox["M", RowBox[{"a", ",", "c"}]], " ", SubscriptBox["\[Eta]", RowBox[{"b", ",", "d"}]]}]}]}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"a", ",", "b"}]], ",", SubscriptBox["M", RowBox[{"c", ",", "d"}]]}], "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["L", RowBox[{"b", ",", "d"}]]}], " ", SubscriptBox["\[Eta]", RowBox[{"a", ",", "c"}]]}], "-", RowBox[{ SubscriptBox["L", RowBox[{"b", ",", "c"}]], " ", SubscriptBox["\[Eta]", RowBox[{"a", ",", "d"}]]}], "-", RowBox[{ SubscriptBox["L", RowBox[{"a", ",", "d"}]], " ", SubscriptBox["\[Eta]", RowBox[{"b", ",", "c"}]]}], "-", RowBox[{ SubscriptBox["L", RowBox[{"a", ",", "c"}]], " ", SubscriptBox["\[Eta]", RowBox[{"b", ",", "d"}]]}]}]}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["L", RowBox[{"a", ",", "b"}]], ",", SubscriptBox["X", "c"]}], "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["X", "b"]}], " ", SubscriptBox["\[Eta]", RowBox[{"a", ",", "c"}]]}], "+", RowBox[{ SubscriptBox["X", "a"], " ", SubscriptBox["\[Eta]", RowBox[{"b", ",", "c"}]]}]}]}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"a", ",", "b"}]], ",", SubscriptBox["X", "c"]}], "]"}], "\[Equal]", RowBox[{ RowBox[{ SubscriptBox["Y", "b"], " ", SubscriptBox["\[Eta]", RowBox[{"a", ",", "c"}]]}], "+", RowBox[{ SubscriptBox["Y", "a"], " ", SubscriptBox["\[Eta]", RowBox[{"b", ",", "c"}]]}]}]}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["L", RowBox[{"a", ",", "b"}]], ",", SubscriptBox["Y", "c"]}], "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["Y", "b"]}], " ", SubscriptBox["\[Eta]", RowBox[{"a", ",", "c"}]]}], "+", RowBox[{ SubscriptBox["Y", "a"], " ", SubscriptBox["\[Eta]", RowBox[{"b", ",", "c"}]]}]}]}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"a", ",", "b"}]], ",", SubscriptBox["Y", "c"]}], "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["X", "b"]}], " ", SubscriptBox["\[Eta]", RowBox[{"a", ",", "c"}]]}], "-", RowBox[{ SubscriptBox["X", "a"], " ", SubscriptBox["\[Eta]", RowBox[{"b", ",", "c"}]]}]}]}]}], "}"}]], "Output", CellChangeTimes->{3.45349307858181*^9, 3.4534931094528966`*^9, 3.4535533007308283`*^9, 3.453645061003755*^9, 3.4556177233316307`*^9}] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TestJacobi", "[", RowBox[{ SubscriptBox["l", "iu"], ",", RowBox[{"{", "UnitaryReal4SymmetryRules", "}"}], ",", RowBox[{"IUBasis", "[", RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}], "]"}], ",", RowBox[{"IUBasis", "[", RowBox[{"{", RowBox[{"c", ",", "d"}], "}"}], "]"}], ",", RowBox[{"IUBasis", "[", RowBox[{"{", RowBox[{"e", ",", "f"}], "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.452207455555413*^9, 3.4522075712417617`*^9}, { 3.452209061324395*^9, 3.4522090785992355`*^9}, {3.452347001898718*^9, 3.4523470149574957`*^9}, 3.452347058980798*^9, {3.4523502834061823`*^9, 3.4523503310446825`*^9}, {3.452351011055395*^9, 3.4523510157321205`*^9}, { 3.4523511317389297`*^9, 3.452351157666211*^9}, {3.453489551150092*^9, 3.4534895773357105`*^9}, 3.45348961643262*^9, 3.4534899311360874`*^9, { 3.4534902120881796`*^9, 3.4534902370196724`*^9}, {3.453493001645117*^9, 3.4534930377877307`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["L", RowBox[{"a", ",", "b"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["L", RowBox[{"c", ",", "d"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["L", RowBox[{"e", ",", "f"}]], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`L, $CellContext`a, $CellContext`b], ",", Subscript[$CellContext`L, $CellContext`c, $CellContext`d], ",", Subscript[$CellContext`L, $CellContext`e, $CellContext`f], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{ 3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.453490240129984*^9, {3.4534930215971117`*^9, 3.4534930389068427`*^9}, 3.4534931205090017`*^9, 3.4535533024830036`*^9, 3.4536450632109756`*^9, 3.4556177255808554`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["M", RowBox[{"a", ",", "b"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["L", RowBox[{"c", ",", "d"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["L", RowBox[{"e", ",", "f"}]], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`M, $CellContext`a, $CellContext`b], ",", Subscript[$CellContext`L, $CellContext`c, $CellContext`d], ",", Subscript[$CellContext`L, $CellContext`e, $CellContext`f], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{ 3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.453490240129984*^9, {3.4534930215971117`*^9, 3.4534930389068427`*^9}, 3.4534931205090017`*^9, 3.4535533024830036`*^9, 3.4536450632109756`*^9, 3.4556177255828557`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["X", "a"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["L", RowBox[{"c", ",", "d"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["L", RowBox[{"e", ",", "f"}]], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`X, $CellContext`a], ",", Subscript[$CellContext`L, $CellContext`c, $CellContext`d], ",", Subscript[$CellContext`L, $CellContext`e, $CellContext`f], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{ 3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.453490240129984*^9, {3.4534930215971117`*^9, 3.4534930389068427`*^9}, 3.4534931205090017`*^9, 3.4535533024830036`*^9, 3.4536450632109756`*^9, 3.455617725598857*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["Y", "a"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["L", RowBox[{"c", ",", "d"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["L", RowBox[{"e", ",", "f"}]], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`Y, $CellContext`a], ",", Subscript[$CellContext`L, $CellContext`c, $CellContext`d], ",", Subscript[$CellContext`L, $CellContext`e, $CellContext`f], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{ 3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.453490240129984*^9, {3.4534930215971117`*^9, 3.4534930389068427`*^9}, 3.4534931205090017`*^9, 3.4535533024830036`*^9, 3.4536450632109756`*^9, 3.4556177256018577`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["L", RowBox[{"a", ",", "b"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["M", RowBox[{"c", ",", "d"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["L", RowBox[{"e", ",", "f"}]], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`L, $CellContext`a, $CellContext`b], ",", Subscript[$CellContext`M, $CellContext`c, $CellContext`d], ",", Subscript[$CellContext`L, $CellContext`e, $CellContext`f], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{ 3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.453490240129984*^9, {3.4534930215971117`*^9, 3.4534930389068427`*^9}, 3.4534931205090017`*^9, 3.4535533024830036`*^9, 3.4536450632109756`*^9, 3.455617725605858*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["M", RowBox[{"a", ",", "b"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["M", RowBox[{"c", ",", "d"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["L", RowBox[{"e", ",", "f"}]], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`M, $CellContext`a, $CellContext`b], ",", Subscript[$CellContext`M, $CellContext`c, $CellContext`d], ",", Subscript[$CellContext`L, $CellContext`e, $CellContext`f], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{ 3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.453490240129984*^9, {3.4534930215971117`*^9, 3.4534930389068427`*^9}, 3.4534931205090017`*^9, 3.4535533024830036`*^9, 3.4536450632109756`*^9, 3.455617725608858*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["X", "a"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["M", RowBox[{"c", ",", "d"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["L", RowBox[{"e", ",", "f"}]], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`X, $CellContext`a], ",", Subscript[$CellContext`M, $CellContext`c, $CellContext`d], ",", Subscript[$CellContext`L, $CellContext`e, $CellContext`f], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{ 3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.453490240129984*^9, {3.4534930215971117`*^9, 3.4534930389068427`*^9}, 3.4534931205090017`*^9, 3.4535533024830036`*^9, 3.4536450632109756`*^9, 3.4556177256118584`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["Y", "a"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["M", RowBox[{"c", ",", "d"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["L", RowBox[{"e", ",", "f"}]], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`Y, $CellContext`a], ",", Subscript[$CellContext`M, $CellContext`c, $CellContext`d], ",", Subscript[$CellContext`L, $CellContext`e, $CellContext`f], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{ 3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.453490240129984*^9, {3.4534930215971117`*^9, 3.4534930389068427`*^9}, 3.4534931205090017`*^9, 3.4535533024830036`*^9, 3.4536450632109756`*^9, 3.4556177256148586`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["L", RowBox[{"a", ",", "b"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["X", "c"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["L", RowBox[{"e", ",", "f"}]], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`L, $CellContext`a, $CellContext`b], ",", Subscript[$CellContext`X, $CellContext`c], ",", Subscript[$CellContext`L, $CellContext`e, $CellContext`f], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{ 3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.453490240129984*^9, {3.4534930215971117`*^9, 3.4534930389068427`*^9}, 3.4534931205090017`*^9, 3.4535533024830036`*^9, 3.4536450632109756`*^9, 3.455617725617859*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["M", RowBox[{"a", ",", "b"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["X", "c"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["L", RowBox[{"e", ",", "f"}]], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`M, $CellContext`a, $CellContext`b], ",", Subscript[$CellContext`X, $CellContext`c], ",", Subscript[$CellContext`L, $CellContext`e, $CellContext`f], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{ 3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.453490240129984*^9, {3.4534930215971117`*^9, 3.4534930389068427`*^9}, 3.4534931205090017`*^9, 3.4535533024830036`*^9, 3.4536450632109756`*^9, 3.4556177256208596`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["X", "a"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["X", "c"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["L", RowBox[{"e", ",", "f"}]], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`X, $CellContext`a], ",", Subscript[$CellContext`X, $CellContext`c], ",", Subscript[$CellContext`L, $CellContext`e, $CellContext`f], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{ 3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.453490240129984*^9, {3.4534930215971117`*^9, 3.4534930389068427`*^9}, 3.4534931205090017`*^9, 3.4535533024830036`*^9, 3.4536450632109756`*^9, 3.45561772562386*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["Y", "a"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["X", "c"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["L", RowBox[{"e", ",", "f"}]], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`Y, $CellContext`a], ",", Subscript[$CellContext`X, $CellContext`c], ",", Subscript[$CellContext`L, $CellContext`e, $CellContext`f], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{ 3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.453490240129984*^9, {3.4534930215971117`*^9, 3.4534930389068427`*^9}, 3.4534931205090017`*^9, 3.4535533024830036`*^9, 3.4536450632109756`*^9, 3.4556177256268597`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["L", RowBox[{"a", ",", "b"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["Y", "c"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["L", RowBox[{"e", ",", "f"}]], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`L, $CellContext`a, $CellContext`b], ",", Subscript[$CellContext`Y, $CellContext`c], ",", Subscript[$CellContext`L, $CellContext`e, $CellContext`f], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{ 3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.453490240129984*^9, {3.4534930215971117`*^9, 3.4534930389068427`*^9}, 3.4534931205090017`*^9, 3.4535533024830036`*^9, 3.4536450632109756`*^9, 3.4556177256298604`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["M", RowBox[{"a", ",", "b"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["Y", "c"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["L", RowBox[{"e", ",", "f"}]], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`M, $CellContext`a, $CellContext`b], ",", Subscript[$CellContext`Y, $CellContext`c], ",", Subscript[$CellContext`L, $CellContext`e, $CellContext`f], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{ 3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.453490240129984*^9, {3.4534930215971117`*^9, 3.4534930389068427`*^9}, 3.4534931205090017`*^9, 3.4535533024830036`*^9, 3.4536450632109756`*^9, 3.455617725632861*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["X", "a"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["Y", "c"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["L", RowBox[{"e", ",", "f"}]], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`X, $CellContext`a], ",", Subscript[$CellContext`Y, $CellContext`c], ",", Subscript[$CellContext`L, $CellContext`e, $CellContext`f], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{ 3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.453490240129984*^9, {3.4534930215971117`*^9, 3.4534930389068427`*^9}, 3.4534931205090017`*^9, 3.4535533024830036`*^9, 3.4536450632109756`*^9, 3.455617725635861*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["Y", "a"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["Y", "c"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["L", RowBox[{"e", ",", "f"}]], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`Y, $CellContext`a], ",", Subscript[$CellContext`Y, $CellContext`c], ",", Subscript[$CellContext`L, $CellContext`e, $CellContext`f], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{ 3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.453490240129984*^9, {3.4534930215971117`*^9, 3.4534930389068427`*^9}, 3.4534931205090017`*^9, 3.4535533024830036`*^9, 3.4536450632109756`*^9, 3.455617725638861*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["L", RowBox[{"a", ",", "b"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["L", RowBox[{"c", ",", "d"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["M", RowBox[{"e", ",", "f"}]], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`L, $CellContext`a, $CellContext`b], ",", Subscript[$CellContext`L, $CellContext`c, $CellContext`d], ",", Subscript[$CellContext`M, $CellContext`e, $CellContext`f], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{ 3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.453490240129984*^9, {3.4534930215971117`*^9, 3.4534930389068427`*^9}, 3.4534931205090017`*^9, 3.4535533024830036`*^9, 3.4536450632109756`*^9, 3.455617725641862*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["M", RowBox[{"a", ",", "b"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["L", RowBox[{"c", ",", "d"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["M", RowBox[{"e", ",", "f"}]], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`M, $CellContext`a, $CellContext`b], ",", Subscript[$CellContext`L, $CellContext`c, $CellContext`d], ",", Subscript[$CellContext`M, $CellContext`e, $CellContext`f], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{ 3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.453490240129984*^9, {3.4534930215971117`*^9, 3.4534930389068427`*^9}, 3.4534931205090017`*^9, 3.4535533024830036`*^9, 3.4536450632109756`*^9, 3.455617725644862*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["X", "a"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["L", RowBox[{"c", ",", "d"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["M", RowBox[{"e", ",", "f"}]], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`X, $CellContext`a], ",", Subscript[$CellContext`L, $CellContext`c, $CellContext`d], ",", Subscript[$CellContext`M, $CellContext`e, $CellContext`f], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{ 3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.453490240129984*^9, {3.4534930215971117`*^9, 3.4534930389068427`*^9}, 3.4534931205090017`*^9, 3.4535533024830036`*^9, 3.4536450632109756`*^9, 3.4556177256478624`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["Y", "a"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["L", RowBox[{"c", ",", "d"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["M", RowBox[{"e", ",", "f"}]], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`Y, $CellContext`a], ",", Subscript[$CellContext`L, $CellContext`c, $CellContext`d], ",", Subscript[$CellContext`M, $CellContext`e, $CellContext`f], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{ 3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.453490240129984*^9, {3.4534930215971117`*^9, 3.4534930389068427`*^9}, 3.4534931205090017`*^9, 3.4535533024830036`*^9, 3.4536450632109756`*^9, 3.4556177256508627`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["L", RowBox[{"a", ",", "b"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["M", RowBox[{"c", ",", "d"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["M", RowBox[{"e", ",", "f"}]], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`L, $CellContext`a, $CellContext`b], ",", Subscript[$CellContext`M, $CellContext`c, $CellContext`d], ",", Subscript[$CellContext`M, $CellContext`e, $CellContext`f], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{ 3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.453490240129984*^9, {3.4534930215971117`*^9, 3.4534930389068427`*^9}, 3.4534931205090017`*^9, 3.4535533024830036`*^9, 3.4536450632109756`*^9, 3.455617725653863*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["M", RowBox[{"a", ",", "b"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["M", RowBox[{"c", ",", "d"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["M", RowBox[{"e", ",", "f"}]], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`M, $CellContext`a, $CellContext`b], ",", Subscript[$CellContext`M, $CellContext`c, $CellContext`d], ",", Subscript[$CellContext`M, $CellContext`e, $CellContext`f], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{ 3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.453490240129984*^9, {3.4534930215971117`*^9, 3.4534930389068427`*^9}, 3.4534931205090017`*^9, 3.4535533024830036`*^9, 3.4536450632109756`*^9, 3.455617725656863*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["X", "a"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["M", RowBox[{"c", ",", "d"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["M", RowBox[{"e", ",", "f"}]], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`X, $CellContext`a], ",", Subscript[$CellContext`M, $CellContext`c, $CellContext`d], ",", Subscript[$CellContext`M, $CellContext`e, $CellContext`f], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{ 3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.453490240129984*^9, {3.4534930215971117`*^9, 3.4534930389068427`*^9}, 3.4534931205090017`*^9, 3.4535533024830036`*^9, 3.4536450632109756`*^9, 3.4556177256598635`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["Y", "a"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["M", RowBox[{"c", ",", "d"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["M", RowBox[{"e", ",", "f"}]], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`Y, $CellContext`a], ",", Subscript[$CellContext`M, $CellContext`c, $CellContext`d], ",", Subscript[$CellContext`M, $CellContext`e, $CellContext`f], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{ 3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.453490240129984*^9, {3.4534930215971117`*^9, 3.4534930389068427`*^9}, 3.4534931205090017`*^9, 3.4535533024830036`*^9, 3.4536450632109756`*^9, 3.4556177256628637`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["L", RowBox[{"a", ",", "b"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["X", "c"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["M", RowBox[{"e", ",", "f"}]], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`L, $CellContext`a, $CellContext`b], ",", Subscript[$CellContext`X, $CellContext`c], ",", Subscript[$CellContext`M, $CellContext`e, $CellContext`f], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{ 3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.453490240129984*^9, {3.4534930215971117`*^9, 3.4534930389068427`*^9}, 3.4534931205090017`*^9, 3.4535533024830036`*^9, 3.4536450632109756`*^9, 3.455617725665864*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["M", RowBox[{"a", ",", "b"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["X", "c"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["M", RowBox[{"e", ",", "f"}]], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`M, $CellContext`a, $CellContext`b], ",", Subscript[$CellContext`X, $CellContext`c], ",", Subscript[$CellContext`M, $CellContext`e, $CellContext`f], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{ 3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.453490240129984*^9, {3.4534930215971117`*^9, 3.4534930389068427`*^9}, 3.4534931205090017`*^9, 3.4535533024830036`*^9, 3.4536450632109756`*^9, 3.4556177256688643`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["X", "a"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["X", "c"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["M", RowBox[{"e", ",", "f"}]], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`X, $CellContext`a], ",", Subscript[$CellContext`X, $CellContext`c], ",", Subscript[$CellContext`M, $CellContext`e, $CellContext`f], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{ 3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.453490240129984*^9, {3.4534930215971117`*^9, 3.4534930389068427`*^9}, 3.4534931205090017`*^9, 3.4535533024830036`*^9, 3.4536450632109756`*^9, 3.4556177256718645`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["Y", "a"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["X", "c"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["M", RowBox[{"e", ",", "f"}]], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`Y, $CellContext`a], ",", Subscript[$CellContext`X, $CellContext`c], ",", Subscript[$CellContext`M, $CellContext`e, $CellContext`f], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{ 3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.453490240129984*^9, {3.4534930215971117`*^9, 3.4534930389068427`*^9}, 3.4534931205090017`*^9, 3.4535533024830036`*^9, 3.4536450632109756`*^9, 3.455617725674865*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["L", RowBox[{"a", ",", "b"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["Y", "c"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["M", RowBox[{"e", ",", "f"}]], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`L, $CellContext`a, $CellContext`b], ",", Subscript[$CellContext`Y, $CellContext`c], ",", Subscript[$CellContext`M, $CellContext`e, $CellContext`f], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{ 3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.453490240129984*^9, {3.4534930215971117`*^9, 3.4534930389068427`*^9}, 3.4534931205090017`*^9, 3.4535533024830036`*^9, 3.4536450632109756`*^9, 3.4556177256788654`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["M", RowBox[{"a", ",", "b"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["Y", "c"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["M", RowBox[{"e", ",", "f"}]], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`M, $CellContext`a, $CellContext`b], ",", Subscript[$CellContext`Y, $CellContext`c], ",", Subscript[$CellContext`M, $CellContext`e, $CellContext`f], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{ 3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.453490240129984*^9, {3.4534930215971117`*^9, 3.4534930389068427`*^9}, 3.4534931205090017`*^9, 3.4535533024830036`*^9, 3.4536450632109756`*^9, 3.4556177256818657`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["X", "a"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["Y", "c"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["M", RowBox[{"e", ",", "f"}]], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`X, $CellContext`a], ",", Subscript[$CellContext`Y, $CellContext`c], ",", Subscript[$CellContext`M, $CellContext`e, $CellContext`f], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{ 3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.453490240129984*^9, {3.4534930215971117`*^9, 3.4534930389068427`*^9}, 3.4534931205090017`*^9, 3.4535533024830036`*^9, 3.4536450632109756`*^9, 3.455617725684866*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["Y", "a"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["Y", "c"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["M", RowBox[{"e", ",", "f"}]], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`Y, $CellContext`a], ",", Subscript[$CellContext`Y, $CellContext`c], ",", Subscript[$CellContext`M, $CellContext`e, $CellContext`f], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{ 3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.453490240129984*^9, {3.4534930215971117`*^9, 3.4534930389068427`*^9}, 3.4534931205090017`*^9, 3.4535533024830036`*^9, 3.4536450632109756`*^9, 3.455617725687866*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["L", RowBox[{"a", ",", "b"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["L", RowBox[{"c", ",", "d"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["X", "e"], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`L, $CellContext`a, $CellContext`b], ",", Subscript[$CellContext`L, $CellContext`c, $CellContext`d], ",", Subscript[$CellContext`X, $CellContext`e], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{ 3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.453490240129984*^9, {3.4534930215971117`*^9, 3.4534930389068427`*^9}, 3.4534931205090017`*^9, 3.4535533024830036`*^9, 3.4536450632109756`*^9, 3.4556177256908665`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["M", RowBox[{"a", ",", "b"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["L", RowBox[{"c", ",", "d"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["X", "e"], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`M, $CellContext`a, $CellContext`b], ",", Subscript[$CellContext`L, $CellContext`c, $CellContext`d], ",", Subscript[$CellContext`X, $CellContext`e], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{ 3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.453490240129984*^9, {3.4534930215971117`*^9, 3.4534930389068427`*^9}, 3.4534931205090017`*^9, 3.4535533024830036`*^9, 3.4536450632109756`*^9, 3.4556177256938667`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["X", "a"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["L", RowBox[{"c", ",", "d"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["X", "e"], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`X, $CellContext`a], ",", Subscript[$CellContext`L, $CellContext`c, $CellContext`d], ",", Subscript[$CellContext`X, $CellContext`e], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{ 3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.453490240129984*^9, {3.4534930215971117`*^9, 3.4534930389068427`*^9}, 3.4534931205090017`*^9, 3.4535533024830036`*^9, 3.4536450632109756`*^9, 3.455617725696867*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["Y", "a"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["L", RowBox[{"c", ",", "d"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["X", "e"], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`Y, $CellContext`a], ",", Subscript[$CellContext`L, $CellContext`c, $CellContext`d], ",", Subscript[$CellContext`X, $CellContext`e], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{ 3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.453490240129984*^9, {3.4534930215971117`*^9, 3.4534930389068427`*^9}, 3.4534931205090017`*^9, 3.4535533024830036`*^9, 3.4536450632109756`*^9, 3.4556177256998672`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["L", RowBox[{"a", ",", "b"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["M", RowBox[{"c", ",", "d"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["X", "e"], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`L, $CellContext`a, $CellContext`b], ",", Subscript[$CellContext`M, $CellContext`c, $CellContext`d], ",", Subscript[$CellContext`X, $CellContext`e], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{ 3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.453490240129984*^9, {3.4534930215971117`*^9, 3.4534930389068427`*^9}, 3.4534931205090017`*^9, 3.4535533024830036`*^9, 3.4536450632109756`*^9, 3.4556177257028675`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["M", RowBox[{"a", ",", "b"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["M", RowBox[{"c", ",", "d"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["X", "e"], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`M, $CellContext`a, $CellContext`b], ",", Subscript[$CellContext`M, $CellContext`c, $CellContext`d], ",", Subscript[$CellContext`X, $CellContext`e], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{ 3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.453490240129984*^9, {3.4534930215971117`*^9, 3.4534930389068427`*^9}, 3.4534931205090017`*^9, 3.4535533024830036`*^9, 3.4536450632109756`*^9, 3.455617725705868*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["X", "a"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["M", RowBox[{"c", ",", "d"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["X", "e"], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`X, $CellContext`a], ",", Subscript[$CellContext`M, $CellContext`c, $CellContext`d], ",", Subscript[$CellContext`X, $CellContext`e], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{ 3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.453490240129984*^9, {3.4534930215971117`*^9, 3.4534930389068427`*^9}, 3.4534931205090017`*^9, 3.4535533024830036`*^9, 3.4536450632109756`*^9, 3.4556177257088685`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["Y", "a"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["M", RowBox[{"c", ",", "d"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["X", "e"], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`Y, $CellContext`a], ",", Subscript[$CellContext`M, $CellContext`c, $CellContext`d], ",", Subscript[$CellContext`X, $CellContext`e], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{ 3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.453490240129984*^9, {3.4534930215971117`*^9, 3.4534930389068427`*^9}, 3.4534931205090017`*^9, 3.4535533024830036`*^9, 3.4536450632109756`*^9, 3.4556177257118683`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["L", RowBox[{"a", ",", "b"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["X", "c"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["X", "e"], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`L, $CellContext`a, $CellContext`b], ",", Subscript[$CellContext`X, $CellContext`c], ",", Subscript[$CellContext`X, $CellContext`e], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{ 3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.453490240129984*^9, {3.4534930215971117`*^9, 3.4534930389068427`*^9}, 3.4534931205090017`*^9, 3.4535533024830036`*^9, 3.4536450632109756`*^9, 3.4556177257148685`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["M", RowBox[{"a", ",", "b"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["X", "c"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["X", "e"], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`M, $CellContext`a, $CellContext`b], ",", Subscript[$CellContext`X, $CellContext`c], ",", Subscript[$CellContext`X, $CellContext`e], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{ 3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.453490240129984*^9, {3.4534930215971117`*^9, 3.4534930389068427`*^9}, 3.4534931205090017`*^9, 3.4535533024830036`*^9, 3.4536450632109756`*^9, 3.4556177257178693`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["X", "a"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["X", "c"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["X", "e"], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`X, $CellContext`a], ",", Subscript[$CellContext`X, $CellContext`c], ",", Subscript[$CellContext`X, $CellContext`e], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{ 3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.453490240129984*^9, {3.4534930215971117`*^9, 3.4534930389068427`*^9}, 3.4534931205090017`*^9, 3.4535533024830036`*^9, 3.4536450632109756`*^9, 3.4556177257208695`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["Y", "a"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["X", "c"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["X", "e"], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`Y, $CellContext`a], ",", Subscript[$CellContext`X, $CellContext`c], ",", Subscript[$CellContext`X, $CellContext`e], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{ 3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.453490240129984*^9, {3.4534930215971117`*^9, 3.4534930389068427`*^9}, 3.4534931205090017`*^9, 3.4535533024830036`*^9, 3.4536450632109756`*^9, 3.45561772572387*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["L", RowBox[{"a", ",", "b"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["Y", "c"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["X", "e"], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`L, $CellContext`a, $CellContext`b], ",", Subscript[$CellContext`Y, $CellContext`c], ",", Subscript[$CellContext`X, $CellContext`e], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{ 3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.453490240129984*^9, {3.4534930215971117`*^9, 3.4534930389068427`*^9}, 3.4534931205090017`*^9, 3.4535533024830036`*^9, 3.4536450632109756`*^9, 3.45561772572787*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["M", RowBox[{"a", ",", "b"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["Y", "c"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["X", "e"], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`M, $CellContext`a, $CellContext`b], ",", Subscript[$CellContext`Y, $CellContext`c], ",", Subscript[$CellContext`X, $CellContext`e], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{ 3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.453490240129984*^9, {3.4534930215971117`*^9, 3.4534930389068427`*^9}, 3.4534931205090017`*^9, 3.4535533024830036`*^9, 3.4536450632109756`*^9, 3.4556177257308702`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["X", "a"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["Y", "c"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["X", "e"], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`X, $CellContext`a], ",", Subscript[$CellContext`Y, $CellContext`c], ",", Subscript[$CellContext`X, $CellContext`e], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{ 3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.453490240129984*^9, {3.4534930215971117`*^9, 3.4534930389068427`*^9}, 3.4534931205090017`*^9, 3.4535533024830036`*^9, 3.4536450632109756`*^9, 3.4556177257338705`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["Y", "a"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["Y", "c"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["X", "e"], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`Y, $CellContext`a], ",", Subscript[$CellContext`Y, $CellContext`c], ",", Subscript[$CellContext`X, $CellContext`e], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{ 3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.453490240129984*^9, {3.4534930215971117`*^9, 3.4534930389068427`*^9}, 3.4534931205090017`*^9, 3.4535533024830036`*^9, 3.4536450632109756`*^9, 3.4556177257368712`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["L", RowBox[{"a", ",", "b"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["L", RowBox[{"c", ",", "d"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["Y", "e"], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`L, $CellContext`a, $CellContext`b], ",", Subscript[$CellContext`L, $CellContext`c, $CellContext`d], ",", Subscript[$CellContext`Y, $CellContext`e], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{ 3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.453490240129984*^9, {3.4534930215971117`*^9, 3.4534930389068427`*^9}, 3.4534931205090017`*^9, 3.4535533024830036`*^9, 3.4536450632109756`*^9, 3.4556177257398715`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["M", RowBox[{"a", ",", "b"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["L", RowBox[{"c", ",", "d"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["Y", "e"], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`M, $CellContext`a, $CellContext`b], ",", Subscript[$CellContext`L, $CellContext`c, $CellContext`d], ",", Subscript[$CellContext`Y, $CellContext`e], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{ 3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.453490240129984*^9, {3.4534930215971117`*^9, 3.4534930389068427`*^9}, 3.4534931205090017`*^9, 3.4535533024830036`*^9, 3.4536450632109756`*^9, 3.4556177257428713`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["X", "a"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["L", RowBox[{"c", ",", "d"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["Y", "e"], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`X, $CellContext`a], ",", Subscript[$CellContext`L, $CellContext`c, $CellContext`d], ",", Subscript[$CellContext`Y, $CellContext`e], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{ 3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.453490240129984*^9, {3.4534930215971117`*^9, 3.4534930389068427`*^9}, 3.4534931205090017`*^9, 3.4535533024830036`*^9, 3.4536450632109756`*^9, 3.455617725745872*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["Y", "a"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["L", RowBox[{"c", ",", "d"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["Y", "e"], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`Y, $CellContext`a], ",", Subscript[$CellContext`L, $CellContext`c, $CellContext`d], ",", Subscript[$CellContext`Y, $CellContext`e], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{ 3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.453490240129984*^9, {3.4534930215971117`*^9, 3.4534930389068427`*^9}, 3.4534931205090017`*^9, 3.4535533024830036`*^9, 3.4536450632109756`*^9, 3.4556177257488728`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["L", RowBox[{"a", ",", "b"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["M", RowBox[{"c", ",", "d"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["Y", "e"], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`L, $CellContext`a, $CellContext`b], ",", Subscript[$CellContext`M, $CellContext`c, $CellContext`d], ",", Subscript[$CellContext`Y, $CellContext`e], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{ 3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.453490240129984*^9, {3.4534930215971117`*^9, 3.4534930389068427`*^9}, 3.4534931205090017`*^9, 3.4535533024830036`*^9, 3.4536450632109756`*^9, 3.4556177257518725`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["M", RowBox[{"a", ",", "b"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["M", RowBox[{"c", ",", "d"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["Y", "e"], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`M, $CellContext`a, $CellContext`b], ",", Subscript[$CellContext`M, $CellContext`c, $CellContext`d], ",", Subscript[$CellContext`Y, $CellContext`e], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{ 3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.453490240129984*^9, {3.4534930215971117`*^9, 3.4534930389068427`*^9}, 3.4534931205090017`*^9, 3.4535533024830036`*^9, 3.4536450632109756`*^9, 3.455617725754873*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["X", "a"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["M", RowBox[{"c", ",", "d"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["Y", "e"], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`X, $CellContext`a], ",", Subscript[$CellContext`M, $CellContext`c, $CellContext`d], ",", Subscript[$CellContext`Y, $CellContext`e], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{ 3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.453490240129984*^9, {3.4534930215971117`*^9, 3.4534930389068427`*^9}, 3.4534931205090017`*^9, 3.4535533024830036`*^9, 3.4536450632109756`*^9, 3.4556177257578735`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["Y", "a"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["M", RowBox[{"c", ",", "d"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["Y", "e"], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`Y, $CellContext`a], ",", Subscript[$CellContext`M, $CellContext`c, $CellContext`d], ",", Subscript[$CellContext`Y, $CellContext`e], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{ 3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.453490240129984*^9, {3.4534930215971117`*^9, 3.4534930389068427`*^9}, 3.4534931205090017`*^9, 3.4535533024830036`*^9, 3.4536450632109756`*^9, 3.455617725760874*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["L", RowBox[{"a", ",", "b"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["X", "c"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["Y", "e"], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`L, $CellContext`a, $CellContext`b], ",", Subscript[$CellContext`X, $CellContext`c], ",", Subscript[$CellContext`Y, $CellContext`e], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{ 3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.453490240129984*^9, {3.4534930215971117`*^9, 3.4534930389068427`*^9}, 3.4534931205090017`*^9, 3.4535533024830036`*^9, 3.4536450632109756`*^9, 3.455617725764874*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["M", RowBox[{"a", ",", "b"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["X", "c"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["Y", "e"], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`M, $CellContext`a, $CellContext`b], ",", Subscript[$CellContext`X, $CellContext`c], ",", Subscript[$CellContext`Y, $CellContext`e], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{ 3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.453490240129984*^9, {3.4534930215971117`*^9, 3.4534930389068427`*^9}, 3.4534931205090017`*^9, 3.4535533024830036`*^9, 3.4536450632109756`*^9, 3.4556177257678742`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["X", "a"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["X", "c"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["Y", "e"], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`X, $CellContext`a], ",", Subscript[$CellContext`X, $CellContext`c], ",", Subscript[$CellContext`Y, $CellContext`e], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{ 3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.453490240129984*^9, {3.4534930215971117`*^9, 3.4534930389068427`*^9}, 3.4534931205090017`*^9, 3.4535533024830036`*^9, 3.4536450632109756`*^9, 3.4556177257708745`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["Y", "a"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["X", "c"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["Y", "e"], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`Y, $CellContext`a], ",", Subscript[$CellContext`X, $CellContext`c], ",", Subscript[$CellContext`Y, $CellContext`e], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{ 3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.453490240129984*^9, {3.4534930215971117`*^9, 3.4534930389068427`*^9}, 3.4534931205090017`*^9, 3.4535533024830036`*^9, 3.4536450632109756`*^9, 3.4556177257738748`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["L", RowBox[{"a", ",", "b"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["Y", "c"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["Y", "e"], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`L, $CellContext`a, $CellContext`b], ",", Subscript[$CellContext`Y, $CellContext`c], ",", Subscript[$CellContext`Y, $CellContext`e], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{ 3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.453490240129984*^9, {3.4534930215971117`*^9, 3.4534930389068427`*^9}, 3.4534931205090017`*^9, 3.4535533024830036`*^9, 3.4536450632109756`*^9, 3.4556177257768755`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["M", RowBox[{"a", ",", "b"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["Y", "c"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["Y", "e"], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`M, $CellContext`a, $CellContext`b], ",", Subscript[$CellContext`Y, $CellContext`c], ",", Subscript[$CellContext`Y, $CellContext`e], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{ 3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.453490240129984*^9, {3.4534930215971117`*^9, 3.4534930389068427`*^9}, 3.4534931205090017`*^9, 3.4535533024830036`*^9, 3.4536450632109756`*^9, 3.4556177257798758`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["X", "a"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["Y", "c"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["Y", "e"], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`X, $CellContext`a], ",", Subscript[$CellContext`Y, $CellContext`c], ",", Subscript[$CellContext`Y, $CellContext`e], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{ 3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.453490240129984*^9, {3.4534930215971117`*^9, 3.4534930389068427`*^9}, 3.4534931205090017`*^9, 3.4535533024830036`*^9, 3.4536450632109756`*^9, 3.4556177257828755`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["Y", "a"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["Y", "c"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["Y", "e"], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`Y, $CellContext`a], ",", Subscript[$CellContext`Y, $CellContext`c], ",", Subscript[$CellContext`Y, $CellContext`e], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{ 3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.453490240129984*^9, {3.4534930215971117`*^9, 3.4534930389068427`*^9}, 3.4534931205090017`*^9, 3.4535533024830036`*^9, 3.4536450632109756`*^9, 3.4556177257858763`*^9}], Cell[BoxData["\<\"Done\"\>"], "Print", CellChangeTimes->{ 3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.453490240129984*^9, {3.4534930215971117`*^9, 3.4534930389068427`*^9}, 3.4534931205090017`*^9, 3.4535533024830036`*^9, 3.4536450632109756`*^9, 3.4556177257888765`*^9}] }, Open ]] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{3.4534888023382187`*^9, 3.453488883233308*^9}] }, Closed]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"ie", "(", "n", ")"}], TraditionalForm]], "None"]], "Subsection", CellChangeTimes->{{3.4534888260685916`*^9, 3.453488876139598*^9}, { 3.4534893210750875`*^9, 3.4534893223682165`*^9}, {3.4534906488538523`*^9, 3.453490649162883*^9}, 3.453491362964256*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PrintCommutators", "[", RowBox[{ SubscriptBox["l", "ie"], ",", RowBox[{"IEBasis", "[", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}], "]"}], ",", " ", RowBox[{"IEBasis", "[", RowBox[{"{", RowBox[{"k", ",", "l"}], "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.4523496979343147`*^9, 3.452349699346345*^9}, { 3.452349776647499*^9, 3.4523497909580765`*^9}, {3.4523510388453555`*^9, 3.4523510392058735`*^9}, {3.453489335991579*^9, 3.4534893687818575`*^9}, { 3.453491364972457*^9, 3.4534913704830074`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SubscriptBox["J", RowBox[{"i", ",", "j"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["J", RowBox[{"k", ",", "l"}]], "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["J", RowBox[{"j", ",", "l"}]]}], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]]}], "+", RowBox[{ SubscriptBox["J", RowBox[{"j", ",", "k"}]], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "l"}]]}], "+", RowBox[{ SubscriptBox["J", RowBox[{"i", ",", "l"}]], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "k"}]]}], "-", RowBox[{ SubscriptBox["J", RowBox[{"i", ",", "k"}]], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "l"}]]}]}]}], SequenceForm["[", Subscript[$CellContext`J, $CellContext`i, $CellContext`j], ",", Subscript[$CellContext`J, $CellContext`k, $CellContext`l], "] = ", -Subscript[$CellContext`J, $CellContext`j, $CellContext`l] Subscript[$CellContext`\[Delta], $CellContext`i, $CellContext`k] + Subscript[$CellContext`J, $CellContext`j, $CellContext`k] Subscript[$CellContext`\[Delta], $CellContext`i, $CellContext`l] + Subscript[$CellContext`J, $CellContext`i, $CellContext`l] Subscript[$CellContext`\[Delta], $CellContext`j, $CellContext`k] - Subscript[$CellContext`J, $CellContext`i, $CellContext`k] Subscript[$CellContext`\[Delta], $CellContext`j, $CellContext`l]], Editable->False]], "Print", CellChangeTimes->{{3.453489350675047*^9, 3.4534893719241714`*^9}, 3.453489455537532*^9, 3.4534895311600933`*^9, 3.453491373242284*^9, 3.4534914192758865`*^9, 3.453491587339691*^9, 3.4535533030200577`*^9, 3.4536450637150264`*^9, 3.455617726096907*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SubscriptBox["J", RowBox[{"i", ",", "j"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["G", "k"], "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["G", "j"]}], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]]}], "+", RowBox[{ SubscriptBox["G", "i"], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "k"}]]}]}]}], SequenceForm["[", Subscript[$CellContext`J, $CellContext`i, $CellContext`j], ",", Subscript[$CellContext`G, $CellContext`k], "] = ", -Subscript[$CellContext`G, $CellContext`j] Subscript[$CellContext`\[Delta], $CellContext`i, $CellContext`k] + Subscript[$CellContext`G, $CellContext`i] Subscript[$CellContext`\[Delta], $CellContext`j, $CellContext`k]], Editable->False]], "Print", CellChangeTimes->{{3.453489350675047*^9, 3.4534893719241714`*^9}, 3.453489455537532*^9, 3.4534895311600933`*^9, 3.453491373242284*^9, 3.4534914192758865`*^9, 3.453491587339691*^9, 3.4535533030200577`*^9, 3.4536450637150264`*^9, 3.4556177260999074`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SubscriptBox["J", RowBox[{"i", ",", "j"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["P", "k"], "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["P", "j"]}], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]]}], "+", RowBox[{ SubscriptBox["P", "i"], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "k"}]]}]}]}], SequenceForm["[", Subscript[$CellContext`J, $CellContext`i, $CellContext`j], ",", Subscript[$CellContext`P, $CellContext`k], "] = ", -Subscript[$CellContext`P, $CellContext`j] Subscript[$CellContext`\[Delta], $CellContext`i, $CellContext`k] + Subscript[$CellContext`P, $CellContext`i] Subscript[$CellContext`\[Delta], $CellContext`j, $CellContext`k]], Editable->False]], "Print", CellChangeTimes->{{3.453489350675047*^9, 3.4534893719241714`*^9}, 3.453489455537532*^9, 3.4534895311600933`*^9, 3.453491373242284*^9, 3.4534914192758865`*^9, 3.453491587339691*^9, 3.4535533030200577`*^9, 3.4536450637150264`*^9, 3.4556177261029077`*^9}], Cell[BoxData["\<\"Done\"\>"], "Print", CellChangeTimes->{{3.453489350675047*^9, 3.4534893719241714`*^9}, 3.453489455537532*^9, 3.4534895311600933`*^9, 3.453491373242284*^9, 3.4534914192758865`*^9, 3.453491587339691*^9, 3.4535533030200577`*^9, 3.4536450637150264`*^9, 3.455617726105908*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TestJacobi", "[", RowBox[{ SubscriptBox["l", "ie"], ",", RowBox[{"{", "OrthogonalSymmetryRules", "}"}], ",", RowBox[{"IEBasis", "[", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}], "]"}], ",", RowBox[{"IEBasis", "[", RowBox[{"{", RowBox[{"k", ",", "l"}], "}"}], "]"}], ",", RowBox[{"IEBasis", "[", RowBox[{"{", RowBox[{"m", ",", "r"}], "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.452207455555413*^9, 3.4522075712417617`*^9}, { 3.452209061324395*^9, 3.4522090785992355`*^9}, {3.452347001898718*^9, 3.4523470149574957`*^9}, 3.452347058980798*^9, {3.4523502834061823`*^9, 3.4523503310446825`*^9}, {3.452351011055395*^9, 3.4523510157321205`*^9}, { 3.4523511317389297`*^9, 3.452351157666211*^9}, {3.453489551150092*^9, 3.4534895773357105`*^9}, 3.45348961643262*^9, 3.4534899311360874`*^9, { 3.4534914398179407`*^9, 3.453491450415*^9}}], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["J", RowBox[{"i", ",", "j"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["J", RowBox[{"k", ",", "l"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["J", RowBox[{"m", ",", "r"}]], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`J, $CellContext`i, $CellContext`j], ",", Subscript[$CellContext`J, $CellContext`k, $CellContext`l], ",", Subscript[$CellContext`J, $CellContext`m, $CellContext`r], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.4534914535423126`*^9, 3.4534916904039965`*^9, 3.4535533048692427`*^9, 3.453645065902245*^9, 3.4556177284161386`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["G", "i"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["J", RowBox[{"k", ",", "l"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["J", RowBox[{"m", ",", "r"}]], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`G, $CellContext`i], ",", Subscript[$CellContext`J, $CellContext`k, $CellContext`l], ",", Subscript[$CellContext`J, $CellContext`m, $CellContext`r], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.4534914535423126`*^9, 3.4534916904039965`*^9, 3.4535533048692427`*^9, 3.453645065902245*^9, 3.4556177284181395`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["P", "i"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["J", RowBox[{"k", ",", "l"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["J", RowBox[{"m", ",", "r"}]], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`P, $CellContext`i], ",", Subscript[$CellContext`J, $CellContext`k, $CellContext`l], ",", Subscript[$CellContext`J, $CellContext`m, $CellContext`r], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.4534914535423126`*^9, 3.4534916904039965`*^9, 3.4535533048692427`*^9, 3.453645065902245*^9, 3.455617728443142*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", "\[CapitalEpsilon]", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["J", RowBox[{"k", ",", "l"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["J", RowBox[{"m", ",", "r"}]], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", $CellContext`\[CapitalEpsilon], ",", Subscript[$CellContext`J, $CellContext`k, $CellContext`l], ",", Subscript[$CellContext`J, $CellContext`m, $CellContext`r], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.4534914535423126`*^9, 3.4534916904039965`*^9, 3.4535533048692427`*^9, 3.453645065902245*^9, 3.455617728446142*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["J", RowBox[{"i", ",", "j"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["G", "k"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["J", RowBox[{"m", ",", "r"}]], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`J, $CellContext`i, $CellContext`j], ",", Subscript[$CellContext`G, $CellContext`k], ",", Subscript[$CellContext`J, $CellContext`m, $CellContext`r], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.4534914535423126`*^9, 3.4534916904039965`*^9, 3.4535533048692427`*^9, 3.453645065902245*^9, 3.4556177284501424`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["G", "i"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["G", "k"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["J", RowBox[{"m", ",", "r"}]], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`G, $CellContext`i], ",", Subscript[$CellContext`G, $CellContext`k], ",", Subscript[$CellContext`J, $CellContext`m, $CellContext`r], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.4534914535423126`*^9, 3.4534916904039965`*^9, 3.4535533048692427`*^9, 3.453645065902245*^9, 3.455617728453143*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["P", "i"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["G", "k"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["J", RowBox[{"m", ",", "r"}]], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`P, $CellContext`i], ",", Subscript[$CellContext`G, $CellContext`k], ",", Subscript[$CellContext`J, $CellContext`m, $CellContext`r], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.4534914535423126`*^9, 3.4534916904039965`*^9, 3.4535533048692427`*^9, 3.453645065902245*^9, 3.4556177284571433`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", "\[CapitalEpsilon]", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["G", "k"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["J", RowBox[{"m", ",", "r"}]], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", $CellContext`\[CapitalEpsilon], ",", Subscript[$CellContext`G, $CellContext`k], ",", Subscript[$CellContext`J, $CellContext`m, $CellContext`r], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.4534914535423126`*^9, 3.4534916904039965`*^9, 3.4535533048692427`*^9, 3.453645065902245*^9, 3.4556177284611435`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["J", RowBox[{"i", ",", "j"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["P", "k"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["J", RowBox[{"m", ",", "r"}]], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`J, $CellContext`i, $CellContext`j], ",", Subscript[$CellContext`P, $CellContext`k], ",", Subscript[$CellContext`J, $CellContext`m, $CellContext`r], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.4534914535423126`*^9, 3.4534916904039965`*^9, 3.4535533048692427`*^9, 3.453645065902245*^9, 3.4556177284641438`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["G", "i"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["P", "k"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["J", RowBox[{"m", ",", "r"}]], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`G, $CellContext`i], ",", Subscript[$CellContext`P, $CellContext`k], ",", Subscript[$CellContext`J, $CellContext`m, $CellContext`r], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.4534914535423126`*^9, 3.4534916904039965`*^9, 3.4535533048692427`*^9, 3.453645065902245*^9, 3.4556177284681444`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["P", "i"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["P", "k"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["J", RowBox[{"m", ",", "r"}]], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`P, $CellContext`i], ",", Subscript[$CellContext`P, $CellContext`k], ",", Subscript[$CellContext`J, $CellContext`m, $CellContext`r], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.4534914535423126`*^9, 3.4534916904039965`*^9, 3.4535533048692427`*^9, 3.453645065902245*^9, 3.4556177284711447`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", "\[CapitalEpsilon]", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["P", "k"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["J", RowBox[{"m", ",", "r"}]], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", $CellContext`\[CapitalEpsilon], ",", Subscript[$CellContext`P, $CellContext`k], ",", Subscript[$CellContext`J, $CellContext`m, $CellContext`r], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.4534914535423126`*^9, 3.4534916904039965`*^9, 3.4535533048692427`*^9, 3.453645065902245*^9, 3.455617728475145*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["J", RowBox[{"i", ",", "j"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "\[CapitalEpsilon]", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["J", RowBox[{"m", ",", "r"}]], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`J, $CellContext`i, $CellContext`j], ",", $CellContext`\[CapitalEpsilon], ",", Subscript[$CellContext`J, $CellContext`m, $CellContext`r], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.4534914535423126`*^9, 3.4534916904039965`*^9, 3.4535533048692427`*^9, 3.453645065902245*^9, 3.455617728478145*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["G", "i"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "\[CapitalEpsilon]", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["J", RowBox[{"m", ",", "r"}]], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`G, $CellContext`i], ",", $CellContext`\[CapitalEpsilon], ",", Subscript[$CellContext`J, $CellContext`m, $CellContext`r], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.4534914535423126`*^9, 3.4534916904039965`*^9, 3.4535533048692427`*^9, 3.453645065902245*^9, 3.4556177284821453`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["P", "i"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "\[CapitalEpsilon]", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["J", RowBox[{"m", ",", "r"}]], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`P, $CellContext`i], ",", $CellContext`\[CapitalEpsilon], ",", Subscript[$CellContext`J, $CellContext`m, $CellContext`r], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.4534914535423126`*^9, 3.4534916904039965`*^9, 3.4535533048692427`*^9, 3.453645065902245*^9, 3.455617728485146*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", "\[CapitalEpsilon]", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "\[CapitalEpsilon]", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["J", RowBox[{"m", ",", "r"}]], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm[ "{", $CellContext`\[CapitalEpsilon], ",", $CellContext`\[CapitalEpsilon], ",", Subscript[$CellContext`J, $CellContext`m, $CellContext`r], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.4534914535423126`*^9, 3.4534916904039965`*^9, 3.4535533048692427`*^9, 3.453645065902245*^9, 3.455617728489146*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["J", RowBox[{"i", ",", "j"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["J", RowBox[{"k", ",", "l"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["G", "m"], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`J, $CellContext`i, $CellContext`j], ",", Subscript[$CellContext`J, $CellContext`k, $CellContext`l], ",", Subscript[$CellContext`G, $CellContext`m], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.4534914535423126`*^9, 3.4534916904039965`*^9, 3.4535533048692427`*^9, 3.453645065902245*^9, 3.4556177284921465`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["G", "i"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["J", RowBox[{"k", ",", "l"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["G", "m"], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`G, $CellContext`i], ",", Subscript[$CellContext`J, $CellContext`k, $CellContext`l], ",", Subscript[$CellContext`G, $CellContext`m], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.4534914535423126`*^9, 3.4534916904039965`*^9, 3.4535533048692427`*^9, 3.453645065902245*^9, 3.455617728496147*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["P", "i"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["J", RowBox[{"k", ",", "l"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["G", "m"], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`P, $CellContext`i], ",", Subscript[$CellContext`J, $CellContext`k, $CellContext`l], ",", Subscript[$CellContext`G, $CellContext`m], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.4534914535423126`*^9, 3.4534916904039965`*^9, 3.4535533048692427`*^9, 3.453645065902245*^9, 3.4556177284991474`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", "\[CapitalEpsilon]", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["J", RowBox[{"k", ",", "l"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["G", "m"], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", $CellContext`\[CapitalEpsilon], ",", Subscript[$CellContext`J, $CellContext`k, $CellContext`l], ",", Subscript[$CellContext`G, $CellContext`m], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.4534914535423126`*^9, 3.4534916904039965`*^9, 3.4535533048692427`*^9, 3.453645065902245*^9, 3.4556177285031476`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["J", RowBox[{"i", ",", "j"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["G", "k"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["G", "m"], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`J, $CellContext`i, $CellContext`j], ",", Subscript[$CellContext`G, $CellContext`k], ",", Subscript[$CellContext`G, $CellContext`m], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.4534914535423126`*^9, 3.4534916904039965`*^9, 3.4535533048692427`*^9, 3.453645065902245*^9, 3.455617728507148*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["G", "i"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["G", "k"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["G", "m"], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`G, $CellContext`i], ",", Subscript[$CellContext`G, $CellContext`k], ",", Subscript[$CellContext`G, $CellContext`m], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.4534914535423126`*^9, 3.4534916904039965`*^9, 3.4535533048692427`*^9, 3.453645065902245*^9, 3.455617728510148*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["P", "i"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["G", "k"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["G", "m"], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`P, $CellContext`i], ",", Subscript[$CellContext`G, $CellContext`k], ",", Subscript[$CellContext`G, $CellContext`m], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.4534914535423126`*^9, 3.4534916904039965`*^9, 3.4535533048692427`*^9, 3.453645065902245*^9, 3.4556177285141487`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", "\[CapitalEpsilon]", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["G", "k"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["G", "m"], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", $CellContext`\[CapitalEpsilon], ",", Subscript[$CellContext`G, $CellContext`k], ",", Subscript[$CellContext`G, $CellContext`m], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.4534914535423126`*^9, 3.4534916904039965`*^9, 3.4535533048692427`*^9, 3.453645065902245*^9, 3.455617728517149*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["J", RowBox[{"i", ",", "j"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["P", "k"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["G", "m"], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`J, $CellContext`i, $CellContext`j], ",", Subscript[$CellContext`P, $CellContext`k], ",", Subscript[$CellContext`G, $CellContext`m], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.4534914535423126`*^9, 3.4534916904039965`*^9, 3.4535533048692427`*^9, 3.453645065902245*^9, 3.4556177285211496`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["G", "i"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["P", "k"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["G", "m"], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`G, $CellContext`i], ",", Subscript[$CellContext`P, $CellContext`k], ",", Subscript[$CellContext`G, $CellContext`m], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.4534914535423126`*^9, 3.4534916904039965`*^9, 3.4535533048692427`*^9, 3.453645065902245*^9, 3.45561772852415*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["P", "i"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["P", "k"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["G", "m"], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`P, $CellContext`i], ",", Subscript[$CellContext`P, $CellContext`k], ",", Subscript[$CellContext`G, $CellContext`m], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.4534914535423126`*^9, 3.4534916904039965`*^9, 3.4535533048692427`*^9, 3.453645065902245*^9, 3.45561772852815*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", "\[CapitalEpsilon]", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["P", "k"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["G", "m"], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", $CellContext`\[CapitalEpsilon], ",", Subscript[$CellContext`P, $CellContext`k], ",", Subscript[$CellContext`G, $CellContext`m], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.4534914535423126`*^9, 3.4534916904039965`*^9, 3.4535533048692427`*^9, 3.453645065902245*^9, 3.4556177285311503`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["J", RowBox[{"i", ",", "j"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "\[CapitalEpsilon]", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["G", "m"], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`J, $CellContext`i, $CellContext`j], ",", $CellContext`\[CapitalEpsilon], ",", Subscript[$CellContext`G, $CellContext`m], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.4534914535423126`*^9, 3.4534916904039965`*^9, 3.4535533048692427`*^9, 3.453645065902245*^9, 3.4556177285351505`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["G", "i"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "\[CapitalEpsilon]", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["G", "m"], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`G, $CellContext`i], ",", $CellContext`\[CapitalEpsilon], ",", Subscript[$CellContext`G, $CellContext`m], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.4534914535423126`*^9, 3.4534916904039965`*^9, 3.4535533048692427`*^9, 3.453645065902245*^9, 3.4556177285381513`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["P", "i"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "\[CapitalEpsilon]", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["G", "m"], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`P, $CellContext`i], ",", $CellContext`\[CapitalEpsilon], ",", Subscript[$CellContext`G, $CellContext`m], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.4534914535423126`*^9, 3.4534916904039965`*^9, 3.4535533048692427`*^9, 3.453645065902245*^9, 3.4556177285421515`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", "\[CapitalEpsilon]", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "\[CapitalEpsilon]", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["G", "m"], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm[ "{", $CellContext`\[CapitalEpsilon], ",", $CellContext`\[CapitalEpsilon], ",", Subscript[$CellContext`G, $CellContext`m], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.4534914535423126`*^9, 3.4534916904039965`*^9, 3.4535533048692427`*^9, 3.453645065902245*^9, 3.4556177285451517`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["J", RowBox[{"i", ",", "j"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["J", RowBox[{"k", ",", "l"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["P", "m"], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`J, $CellContext`i, $CellContext`j], ",", Subscript[$CellContext`J, $CellContext`k, $CellContext`l], ",", Subscript[$CellContext`P, $CellContext`m], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.4534914535423126`*^9, 3.4534916904039965`*^9, 3.4535533048692427`*^9, 3.453645065902245*^9, 3.4556177285491524`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["G", "i"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["J", RowBox[{"k", ",", "l"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["P", "m"], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`G, $CellContext`i], ",", Subscript[$CellContext`J, $CellContext`k, $CellContext`l], ",", Subscript[$CellContext`P, $CellContext`m], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.4534914535423126`*^9, 3.4534916904039965`*^9, 3.4535533048692427`*^9, 3.453645065902245*^9, 3.4556177285521526`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["P", "i"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["J", RowBox[{"k", ",", "l"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["P", "m"], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`P, $CellContext`i], ",", Subscript[$CellContext`J, $CellContext`k, $CellContext`l], ",", Subscript[$CellContext`P, $CellContext`m], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.4534914535423126`*^9, 3.4534916904039965`*^9, 3.4535533048692427`*^9, 3.453645065902245*^9, 3.4556177285561533`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", "\[CapitalEpsilon]", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["J", RowBox[{"k", ",", "l"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["P", "m"], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", $CellContext`\[CapitalEpsilon], ",", Subscript[$CellContext`J, $CellContext`k, $CellContext`l], ",", Subscript[$CellContext`P, $CellContext`m], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.4534914535423126`*^9, 3.4534916904039965`*^9, 3.4535533048692427`*^9, 3.453645065902245*^9, 3.4556177285591536`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["J", RowBox[{"i", ",", "j"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["G", "k"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["P", "m"], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`J, $CellContext`i, $CellContext`j], ",", Subscript[$CellContext`G, $CellContext`k], ",", Subscript[$CellContext`P, $CellContext`m], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.4534914535423126`*^9, 3.4534916904039965`*^9, 3.4535533048692427`*^9, 3.453645065902245*^9, 3.4556177285631533`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["G", "i"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["G", "k"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["P", "m"], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`G, $CellContext`i], ",", Subscript[$CellContext`G, $CellContext`k], ",", Subscript[$CellContext`P, $CellContext`m], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.4534914535423126`*^9, 3.4534916904039965`*^9, 3.4535533048692427`*^9, 3.453645065902245*^9, 3.455617728566154*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["P", "i"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["G", "k"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["P", "m"], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`P, $CellContext`i], ",", Subscript[$CellContext`G, $CellContext`k], ",", Subscript[$CellContext`P, $CellContext`m], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.4534914535423126`*^9, 3.4534916904039965`*^9, 3.4535533048692427`*^9, 3.453645065902245*^9, 3.455617728570154*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", "\[CapitalEpsilon]", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["G", "k"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["P", "m"], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", $CellContext`\[CapitalEpsilon], ",", Subscript[$CellContext`G, $CellContext`k], ",", Subscript[$CellContext`P, $CellContext`m], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.4534914535423126`*^9, 3.4534916904039965`*^9, 3.4535533048692427`*^9, 3.453645065902245*^9, 3.4556177285731544`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["J", RowBox[{"i", ",", "j"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["P", "k"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["P", "m"], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`J, $CellContext`i, $CellContext`j], ",", Subscript[$CellContext`P, $CellContext`k], ",", Subscript[$CellContext`P, $CellContext`m], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.4534914535423126`*^9, 3.4534916904039965`*^9, 3.4535533048692427`*^9, 3.453645065902245*^9, 3.455617728577155*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["G", "i"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["P", "k"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["P", "m"], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`G, $CellContext`i], ",", Subscript[$CellContext`P, $CellContext`k], ",", Subscript[$CellContext`P, $CellContext`m], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.4534914535423126`*^9, 3.4534916904039965`*^9, 3.4535533048692427`*^9, 3.453645065902245*^9, 3.455617728581156*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["P", "i"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["P", "k"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["P", "m"], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`P, $CellContext`i], ",", Subscript[$CellContext`P, $CellContext`k], ",", Subscript[$CellContext`P, $CellContext`m], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.4534914535423126`*^9, 3.4534916904039965`*^9, 3.4535533048692427`*^9, 3.453645065902245*^9, 3.455617728584156*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", "\[CapitalEpsilon]", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["P", "k"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["P", "m"], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", $CellContext`\[CapitalEpsilon], ",", Subscript[$CellContext`P, $CellContext`k], ",", Subscript[$CellContext`P, $CellContext`m], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.4534914535423126`*^9, 3.4534916904039965`*^9, 3.4535533048692427`*^9, 3.453645065902245*^9, 3.455617728588156*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["J", RowBox[{"i", ",", "j"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "\[CapitalEpsilon]", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["P", "m"], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`J, $CellContext`i, $CellContext`j], ",", $CellContext`\[CapitalEpsilon], ",", Subscript[$CellContext`P, $CellContext`m], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.4534914535423126`*^9, 3.4534916904039965`*^9, 3.4535533048692427`*^9, 3.453645065902245*^9, 3.4556177285911565`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["G", "i"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "\[CapitalEpsilon]", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["P", "m"], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`G, $CellContext`i], ",", $CellContext`\[CapitalEpsilon], ",", Subscript[$CellContext`P, $CellContext`m], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.4534914535423126`*^9, 3.4534916904039965`*^9, 3.4535533048692427`*^9, 3.453645065902245*^9, 3.4556177285951567`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["P", "i"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "\[CapitalEpsilon]", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["P", "m"], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`P, $CellContext`i], ",", $CellContext`\[CapitalEpsilon], ",", Subscript[$CellContext`P, $CellContext`m], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.4534914535423126`*^9, 3.4534916904039965`*^9, 3.4535533048692427`*^9, 3.453645065902245*^9, 3.455617728598157*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", "\[CapitalEpsilon]", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "\[CapitalEpsilon]", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["P", "m"], "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm[ "{", $CellContext`\[CapitalEpsilon], ",", $CellContext`\[CapitalEpsilon], ",", Subscript[$CellContext`P, $CellContext`m], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.4534914535423126`*^9, 3.4534916904039965`*^9, 3.4535533048692427`*^9, 3.453645065902245*^9, 3.4556177286021576`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["J", RowBox[{"i", ",", "j"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["J", RowBox[{"k", ",", "l"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "\[CapitalEpsilon]", "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`J, $CellContext`i, $CellContext`j], ",", Subscript[$CellContext`J, $CellContext`k, $CellContext`l], ",", $CellContext`\[CapitalEpsilon], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.4534914535423126`*^9, 3.4534916904039965`*^9, 3.4535533048692427`*^9, 3.453645065902245*^9, 3.455617728605158*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["G", "i"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["J", RowBox[{"k", ",", "l"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "\[CapitalEpsilon]", "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`G, $CellContext`i], ",", Subscript[$CellContext`J, $CellContext`k, $CellContext`l], ",", $CellContext`\[CapitalEpsilon], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.4534914535423126`*^9, 3.4534916904039965`*^9, 3.4535533048692427`*^9, 3.453645065902245*^9, 3.4556177286091585`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["P", "i"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["J", RowBox[{"k", ",", "l"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "\[CapitalEpsilon]", "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`P, $CellContext`i], ",", Subscript[$CellContext`J, $CellContext`k, $CellContext`l], ",", $CellContext`\[CapitalEpsilon], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.4534914535423126`*^9, 3.4534916904039965`*^9, 3.4535533048692427`*^9, 3.453645065902245*^9, 3.455617728612159*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", "\[CapitalEpsilon]", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["J", RowBox[{"k", ",", "l"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "\[CapitalEpsilon]", "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", $CellContext`\[CapitalEpsilon], ",", Subscript[$CellContext`J, $CellContext`k, $CellContext`l], ",", $CellContext`\[CapitalEpsilon], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.4534914535423126`*^9, 3.4534916904039965`*^9, 3.4535533048692427`*^9, 3.453645065902245*^9, 3.455617728616159*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["J", RowBox[{"i", ",", "j"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["G", "k"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "\[CapitalEpsilon]", "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`J, $CellContext`i, $CellContext`j], ",", Subscript[$CellContext`G, $CellContext`k], ",", $CellContext`\[CapitalEpsilon], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.4534914535423126`*^9, 3.4534916904039965`*^9, 3.4535533048692427`*^9, 3.453645065902245*^9, 3.455617728619159*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["G", "i"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["G", "k"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "\[CapitalEpsilon]", "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`G, $CellContext`i], ",", Subscript[$CellContext`G, $CellContext`k], ",", $CellContext`\[CapitalEpsilon], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.4534914535423126`*^9, 3.4534916904039965`*^9, 3.4535533048692427`*^9, 3.453645065902245*^9, 3.4556177286231594`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["P", "i"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["G", "k"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "\[CapitalEpsilon]", "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`P, $CellContext`i], ",", Subscript[$CellContext`G, $CellContext`k], ",", $CellContext`\[CapitalEpsilon], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.4534914535423126`*^9, 3.4534916904039965`*^9, 3.4535533048692427`*^9, 3.453645065902245*^9, 3.45561772862716*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", "\[CapitalEpsilon]", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["G", "k"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "\[CapitalEpsilon]", "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", $CellContext`\[CapitalEpsilon], ",", Subscript[$CellContext`G, $CellContext`k], ",", $CellContext`\[CapitalEpsilon], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.4534914535423126`*^9, 3.4534916904039965`*^9, 3.4535533048692427`*^9, 3.453645065902245*^9, 3.4556177286301603`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["J", RowBox[{"i", ",", "j"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["P", "k"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "\[CapitalEpsilon]", "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`J, $CellContext`i, $CellContext`j], ",", Subscript[$CellContext`P, $CellContext`k], ",", $CellContext`\[CapitalEpsilon], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.4534914535423126`*^9, 3.4534916904039965`*^9, 3.4535533048692427`*^9, 3.453645065902245*^9, 3.455617728634161*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["G", "i"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["P", "k"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "\[CapitalEpsilon]", "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`G, $CellContext`i], ",", Subscript[$CellContext`P, $CellContext`k], ",", $CellContext`\[CapitalEpsilon], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.4534914535423126`*^9, 3.4534916904039965`*^9, 3.4535533048692427`*^9, 3.453645065902245*^9, 3.4556177286371613`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["P", "i"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["P", "k"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "\[CapitalEpsilon]", "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`P, $CellContext`i], ",", Subscript[$CellContext`P, $CellContext`k], ",", $CellContext`\[CapitalEpsilon], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.4534914535423126`*^9, 3.4534916904039965`*^9, 3.4535533048692427`*^9, 3.453645065902245*^9, 3.455617728641162*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", "\[CapitalEpsilon]", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["P", "k"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "\[CapitalEpsilon]", "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", $CellContext`\[CapitalEpsilon], ",", Subscript[$CellContext`P, $CellContext`k], ",", $CellContext`\[CapitalEpsilon], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.4534914535423126`*^9, 3.4534916904039965`*^9, 3.4535533048692427`*^9, 3.453645065902245*^9, 3.4556177286441617`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["J", RowBox[{"i", ",", "j"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "\[CapitalEpsilon]", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "\[CapitalEpsilon]", "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`J, $CellContext`i, $CellContext`j], ",", $CellContext`\[CapitalEpsilon], ",", $CellContext`\[CapitalEpsilon], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.4534914535423126`*^9, 3.4534916904039965`*^9, 3.4535533048692427`*^9, 3.453645065902245*^9, 3.455617728648162*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["G", "i"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "\[CapitalEpsilon]", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "\[CapitalEpsilon]", "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`G, $CellContext`i], ",", $CellContext`\[CapitalEpsilon], ",", $CellContext`\[CapitalEpsilon], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.4534914535423126`*^9, 3.4534916904039965`*^9, 3.4535533048692427`*^9, 3.453645065902245*^9, 3.455617728651162*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", SubscriptBox["P", "i"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "\[CapitalEpsilon]", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "\[CapitalEpsilon]", "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm["{", Subscript[$CellContext`P, $CellContext`i], ",", $CellContext`\[CapitalEpsilon], ",", $CellContext`\[CapitalEpsilon], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.4534914535423126`*^9, 3.4534916904039965`*^9, 3.4535533048692427`*^9, 3.453645065902245*^9, 3.455617728655163*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"{\"\>", "\[InvisibleSpace]", "\[CapitalEpsilon]", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "\[CapitalEpsilon]", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "\[CapitalEpsilon]", "\[InvisibleSpace]", "\<\"} = \"\>", "\[InvisibleSpace]", RowBox[{"{", "0", "}"}]}], SequenceForm[ "{", $CellContext`\[CapitalEpsilon], ",", $CellContext`\[CapitalEpsilon], ",", $CellContext`\[CapitalEpsilon], "} = ", {0}], Editable->False]], "Print", CellChangeTimes->{3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.4534914535423126`*^9, 3.4534916904039965`*^9, 3.4535533048692427`*^9, 3.453645065902245*^9, 3.4556177286591635`*^9}], Cell[BoxData["\<\"Done\"\>"], "Print", CellChangeTimes->{3.453489578688846*^9, 3.4534896194209185`*^9, 3.45348985955393*^9, 3.45348989296327*^9, 3.453489936605634*^9, 3.453490004909464*^9, 3.4534900562445965`*^9, 3.4534914535423126`*^9, 3.4534916904039965`*^9, 3.4535533048692427`*^9, 3.453645065902245*^9, 3.4556177286621637`*^9}] }, Open ]] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{3.4534888023382187`*^9, 3.453488883233308*^9}] }, Closed]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"iece", "(", "n", ")"}], TraditionalForm]], "None"]], "Subsection", CellChangeTimes->{{3.4534888260685916`*^9, 3.453488876139598*^9}, { 3.4534893210750875`*^9, 3.4534893223682165`*^9}, {3.4534906488538523`*^9, 3.453490649162883*^9}, 3.453491362964256*^9, {3.455625022649527*^9, 3.4556250229755597`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"IEceBasis", "[", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}], "]"}]], "Input", CellChangeTimes->{3.455630061706396*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", SubscriptBox["J", RowBox[{"i", ",", "j"}]], ",", SubscriptBox["P", "i"], ",", SubscriptBox["G", "i"], ",", SubscriptBox["A", RowBox[{"i", ",", "j"}]], ",", SubscriptBox["B", "i"], ",", SubscriptBox["F", "i"]}], "}"}]], "Output", CellChangeTimes->{3.4556300631775436`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["l", "iece"], "[", RowBox[{"\[CapitalEpsilon]", ",", SubscriptBox["F", "i"]}], "]"}]], "Input", CellChangeTimes->{{3.4556300758478107`*^9, 3.4556300948287086`*^9}, { 3.4556302647857027`*^9, 3.455630266302854*^9}}], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.455630096235849*^9, {3.4556302584140654`*^9, 3.4556302694161654`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PrintCommutators", "[", RowBox[{ SubscriptBox["l", "iece"], ",", RowBox[{"IEceBasis", "[", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}], "]"}], ",", " ", RowBox[{"IEceBasis", "[", RowBox[{"{", RowBox[{"k", ",", "l"}], "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.4523496979343147`*^9, 3.452349699346345*^9}, { 3.452349776647499*^9, 3.4523497909580765`*^9}, {3.4523510388453555`*^9, 3.4523510392058735`*^9}, {3.453489335991579*^9, 3.4534893687818575`*^9}, { 3.453491364972457*^9, 3.4534913704830074`*^9}, {3.455625036169879*^9, 3.4556250440326653`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SubscriptBox["J", RowBox[{"i", ",", "j"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["J", RowBox[{"k", ",", "l"}]], "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["J", RowBox[{"j", ",", "l"}]]}], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]]}], "+", RowBox[{ SubscriptBox["J", RowBox[{"j", ",", "k"}]], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "l"}]]}], "+", RowBox[{ SubscriptBox["J", RowBox[{"i", ",", "l"}]], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "k"}]]}], "-", RowBox[{ SubscriptBox["J", RowBox[{"i", ",", "k"}]], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "l"}]]}]}]}], SequenceForm["[", Subscript[$CellContext`J, $CellContext`i, $CellContext`j], ",", Subscript[$CellContext`J, $CellContext`k, $CellContext`l], "] = ", -Subscript[$CellContext`J, $CellContext`j, $CellContext`l] Subscript[$CellContext`\[Delta], $CellContext`i, $CellContext`k] + Subscript[$CellContext`J, $CellContext`j, $CellContext`k] Subscript[$CellContext`\[Delta], $CellContext`i, $CellContext`l] + Subscript[$CellContext`J, $CellContext`i, $CellContext`l] Subscript[$CellContext`\[Delta], $CellContext`j, $CellContext`k] - Subscript[$CellContext`J, $CellContext`i, $CellContext`k] Subscript[$CellContext`\[Delta], $CellContext`j, $CellContext`l]], Editable->False]], "Print", CellChangeTimes->{{3.453489350675047*^9, 3.4534893719241714`*^9}, 3.453489455537532*^9, 3.4534895311600933`*^9, 3.453491373242284*^9, 3.4534914192758865`*^9, 3.453491587339691*^9, 3.4535533030200577`*^9, 3.4536450637150264`*^9, 3.455617726096907*^9, {3.4556250332985916`*^9, 3.455625046902952*^9}, {3.4556251453427954`*^9, 3.455625171234384*^9}, 3.4556252985131106`*^9, 3.4556253526155205`*^9, {3.4556280814003763`*^9, 3.4556281109373293`*^9}, 3.455628160166252*^9, 3.4556284980128736`*^9, 3.4556287759278736`*^9, {3.455629918800107*^9, 3.455629943688596*^9}, 3.4556300513583612`*^9, 3.455630305854809*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", "\[CapitalEpsilon]", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["P", "k"], "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", RowBox[{"-", SubscriptBox["B", "k"]}]}], SequenceForm["[", $CellContext`\[CapitalEpsilon], ",", Subscript[$CellContext`P, $CellContext`k], "] = ", - Subscript[$CellContext`B, $CellContext`k]], Editable->False]], "Print", CellChangeTimes->{{3.453489350675047*^9, 3.4534893719241714`*^9}, 3.453489455537532*^9, 3.4534895311600933`*^9, 3.453491373242284*^9, 3.4534914192758865`*^9, 3.453491587339691*^9, 3.4535533030200577`*^9, 3.4536450637150264`*^9, 3.455617726096907*^9, {3.4556250332985916`*^9, 3.455625046902952*^9}, {3.4556251453427954`*^9, 3.455625171234384*^9}, 3.4556252985131106`*^9, 3.4556253526155205`*^9, {3.4556280814003763`*^9, 3.4556281109373293`*^9}, 3.455628160166252*^9, 3.4556284980128736`*^9, 3.4556287759278736`*^9, {3.455629918800107*^9, 3.455629943688596*^9}, 3.4556300513583612`*^9, 3.45563030586681*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SubscriptBox["J", RowBox[{"i", ",", "j"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["P", "k"], "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["P", "j"]}], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]]}], "+", RowBox[{ SubscriptBox["P", "i"], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "k"}]]}]}]}], SequenceForm["[", Subscript[$CellContext`J, $CellContext`i, $CellContext`j], ",", Subscript[$CellContext`P, $CellContext`k], "] = ", -Subscript[$CellContext`P, $CellContext`j] Subscript[$CellContext`\[Delta], $CellContext`i, $CellContext`k] + Subscript[$CellContext`P, $CellContext`i] Subscript[$CellContext`\[Delta], $CellContext`j, $CellContext`k]], Editable->False]], "Print", CellChangeTimes->{{3.453489350675047*^9, 3.4534893719241714`*^9}, 3.453489455537532*^9, 3.4534895311600933`*^9, 3.453491373242284*^9, 3.4534914192758865`*^9, 3.453491587339691*^9, 3.4535533030200577`*^9, 3.4536450637150264`*^9, 3.455617726096907*^9, {3.4556250332985916`*^9, 3.455625046902952*^9}, {3.4556251453427954`*^9, 3.455625171234384*^9}, 3.4556252985131106`*^9, 3.4556253526155205`*^9, {3.4556280814003763`*^9, 3.4556281109373293`*^9}, 3.455628160166252*^9, 3.4556284980128736`*^9, 3.4556287759278736`*^9, {3.455629918800107*^9, 3.455629943688596*^9}, 3.4556300513583612`*^9, 3.4556303058778114`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", "\[CapitalEpsilon]", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["G", "k"], "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", RowBox[{"-", SubscriptBox["F", "k"]}]}], SequenceForm["[", $CellContext`\[CapitalEpsilon], ",", Subscript[$CellContext`G, $CellContext`k], "] = ", - Subscript[$CellContext`F, $CellContext`k]], Editable->False]], "Print", CellChangeTimes->{{3.453489350675047*^9, 3.4534893719241714`*^9}, 3.453489455537532*^9, 3.4534895311600933`*^9, 3.453491373242284*^9, 3.4534914192758865`*^9, 3.453491587339691*^9, 3.4535533030200577`*^9, 3.4536450637150264`*^9, 3.455617726096907*^9, {3.4556250332985916`*^9, 3.455625046902952*^9}, {3.4556251453427954`*^9, 3.455625171234384*^9}, 3.4556252985131106`*^9, 3.4556253526155205`*^9, {3.4556280814003763`*^9, 3.4556281109373293`*^9}, 3.455628160166252*^9, 3.4556284980128736`*^9, 3.4556287759278736`*^9, {3.455629918800107*^9, 3.455629943688596*^9}, 3.4556300513583612`*^9, 3.4556303058808117`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SubscriptBox["J", RowBox[{"i", ",", "j"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["G", "k"], "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["G", "j"]}], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]]}], "+", RowBox[{ SubscriptBox["G", "i"], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "k"}]]}]}]}], SequenceForm["[", Subscript[$CellContext`J, $CellContext`i, $CellContext`j], ",", Subscript[$CellContext`G, $CellContext`k], "] = ", -Subscript[$CellContext`G, $CellContext`j] Subscript[$CellContext`\[Delta], $CellContext`i, $CellContext`k] + Subscript[$CellContext`G, $CellContext`i] Subscript[$CellContext`\[Delta], $CellContext`j, $CellContext`k]], Editable->False]], "Print", CellChangeTimes->{{3.453489350675047*^9, 3.4534893719241714`*^9}, 3.453489455537532*^9, 3.4534895311600933`*^9, 3.453491373242284*^9, 3.4534914192758865`*^9, 3.453491587339691*^9, 3.4535533030200577`*^9, 3.4536450637150264`*^9, 3.455617726096907*^9, {3.4556250332985916`*^9, 3.455625046902952*^9}, {3.4556251453427954`*^9, 3.455625171234384*^9}, 3.4556252985131106`*^9, 3.4556253526155205`*^9, {3.4556280814003763`*^9, 3.4556281109373293`*^9}, 3.455628160166252*^9, 3.4556284980128736`*^9, 3.4556287759278736`*^9, {3.455629918800107*^9, 3.455629943688596*^9}, 3.4556300513583612`*^9, 3.455630305884812*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SubscriptBox["P", "i"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["G", "k"], "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", SubscriptBox["A", RowBox[{"k", ",", "i"}]]}], SequenceForm["[", Subscript[$CellContext`P, $CellContext`i], ",", Subscript[$CellContext`G, $CellContext`k], "] = ", Subscript[$CellContext`A, $CellContext`k, $CellContext`i]], Editable->False]], "Print", CellChangeTimes->{{3.453489350675047*^9, 3.4534893719241714`*^9}, 3.453489455537532*^9, 3.4534895311600933`*^9, 3.453491373242284*^9, 3.4534914192758865`*^9, 3.453491587339691*^9, 3.4535533030200577`*^9, 3.4536450637150264`*^9, 3.455617726096907*^9, {3.4556250332985916`*^9, 3.455625046902952*^9}, {3.4556251453427954`*^9, 3.455625171234384*^9}, 3.4556252985131106`*^9, 3.4556253526155205`*^9, {3.4556280814003763`*^9, 3.4556281109373293`*^9}, 3.455628160166252*^9, 3.4556284980128736`*^9, 3.4556287759278736`*^9, {3.455629918800107*^9, 3.455629943688596*^9}, 3.4556300513583612`*^9, 3.4556303059038134`*^9}], Cell[BoxData["\<\"Done\"\>"], "Print", CellChangeTimes->{{3.453489350675047*^9, 3.4534893719241714`*^9}, 3.453489455537532*^9, 3.4534895311600933`*^9, 3.453491373242284*^9, 3.4534914192758865`*^9, 3.453491587339691*^9, 3.4535533030200577`*^9, 3.4536450637150264`*^9, 3.455617726096907*^9, {3.4556250332985916`*^9, 3.455625046902952*^9}, {3.4556251453427954`*^9, 3.455625171234384*^9}, 3.4556252985131106`*^9, 3.4556253526155205`*^9, {3.4556280814003763`*^9, 3.4556281109373293`*^9}, 3.455628160166252*^9, 3.4556284980128736`*^9, 3.4556287759278736`*^9, {3.455629918800107*^9, 3.455629943688596*^9}, 3.4556300513583612`*^9, 3.4556303059238157`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TestJacobiReturn", "[", RowBox[{ SubscriptBox["l", "iece"], ",", RowBox[{"{", "OrthogonalSymmetryRules", "}"}], ",", RowBox[{"IEceBasis", "[", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}], "]"}], ",", RowBox[{"IEceBasis", "[", RowBox[{"{", RowBox[{"k", ",", "l"}], "}"}], "]"}], ",", RowBox[{"IEceBasis", "[", RowBox[{"{", RowBox[{"m", ",", "r"}], "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.452207455555413*^9, 3.4522075712417617`*^9}, { 3.452209061324395*^9, 3.4522090785992355`*^9}, {3.452347001898718*^9, 3.4523470149574957`*^9}, 3.452347058980798*^9, {3.4523502834061823`*^9, 3.4523503310446825`*^9}, {3.452351011055395*^9, 3.4523510157321205`*^9}, { 3.4523511317389297`*^9, 3.452351157666211*^9}, {3.453489551150092*^9, 3.4534895773357105`*^9}, 3.45348961643262*^9, 3.4534899311360874`*^9, { 3.4534914398179407`*^9, 3.453491450415*^9}, {3.4556253584711056`*^9, 3.4556253726755257`*^9}, {3.4556259929715495`*^9, 3.4556259942946815`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["J", RowBox[{"i", ",", "j"}]], ",", SubscriptBox["J", RowBox[{"k", ",", "l"}]], ",", "\[CapitalEpsilon]", ",", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["H", RowBox[{"j", ",", "l"}]], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]]}], "-", RowBox[{ SubscriptBox["H", RowBox[{"j", ",", "k"}]], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "l"}]]}], "-", RowBox[{ SubscriptBox["H", RowBox[{"i", ",", "l"}]], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "k"}]]}], "+", RowBox[{ SubscriptBox["H", RowBox[{"i", ",", "k"}]], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "l"}]]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["P", "i"], ",", SubscriptBox["J", RowBox[{"k", ",", "l"}]], ",", "\[CapitalEpsilon]", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["B", "l"]}], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]]}], "+", RowBox[{ SubscriptBox["B", "k"], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "l"}]]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["G", "i"], ",", SubscriptBox["J", RowBox[{"k", ",", "l"}]], ",", "\[CapitalEpsilon]", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["F", "l"]}], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]]}], "+", RowBox[{ SubscriptBox["F", "k"], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "l"}]]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["J", RowBox[{"i", ",", "j"}]], ",", SubscriptBox["P", "k"], ",", "\[CapitalEpsilon]", ",", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["B", "j"], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]]}], "-", RowBox[{ SubscriptBox["B", "i"], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "k"}]]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["J", RowBox[{"i", ",", "j"}]], ",", SubscriptBox["G", "k"], ",", "\[CapitalEpsilon]", ",", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["F", "j"], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]]}], "-", RowBox[{ SubscriptBox["F", "i"], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "k"}]]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["J", RowBox[{"i", ",", "j"}]], ",", "\[CapitalEpsilon]", ",", SubscriptBox["J", RowBox[{"m", ",", "r"}]], ",", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["H", RowBox[{"r", ",", "j"}]], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "m"}]]}], "-", RowBox[{ SubscriptBox["H", RowBox[{"m", ",", "j"}]], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "r"}]]}], "-", RowBox[{ SubscriptBox["H", RowBox[{"r", ",", "i"}]], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "m"}]]}], "+", RowBox[{ SubscriptBox["H", RowBox[{"m", ",", "i"}]], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "r"}]]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["P", "i"], ",", "\[CapitalEpsilon]", ",", SubscriptBox["J", RowBox[{"m", ",", "r"}]], ",", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["B", "r"], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "m"}]]}], "-", RowBox[{ SubscriptBox["B", "m"], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "r"}]]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["G", "i"], ",", "\[CapitalEpsilon]", ",", SubscriptBox["J", RowBox[{"m", ",", "r"}]], ",", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["F", "r"], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "m"}]]}], "-", RowBox[{ SubscriptBox["F", "m"], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "r"}]]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", SubscriptBox["J", RowBox[{"k", ",", "l"}]], ",", SubscriptBox["J", RowBox[{"m", ",", "r"}]], ",", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["H", RowBox[{"l", ",", "r"}]], " ", SubscriptBox["\[Delta]", RowBox[{"k", ",", "m"}]]}], "-", RowBox[{ SubscriptBox["H", RowBox[{"l", ",", "m"}]], " ", SubscriptBox["\[Delta]", RowBox[{"k", ",", "r"}]]}], "-", RowBox[{ SubscriptBox["H", RowBox[{"k", ",", "r"}]], " ", SubscriptBox["\[Delta]", RowBox[{"l", ",", "m"}]]}], "+", RowBox[{ SubscriptBox["H", RowBox[{"k", ",", "m"}]], " ", SubscriptBox["\[Delta]", RowBox[{"l", ",", "r"}]]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", SubscriptBox["P", "k"], ",", SubscriptBox["J", RowBox[{"m", ",", "r"}]], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["B", "r"]}], " ", SubscriptBox["\[Delta]", RowBox[{"k", ",", "m"}]]}], "+", RowBox[{ SubscriptBox["B", "m"], " ", SubscriptBox["\[Delta]", RowBox[{"k", ",", "r"}]]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["G", "i"], ",", SubscriptBox["P", "k"], ",", SubscriptBox["J", RowBox[{"m", ",", "r"}]], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["A", RowBox[{"r", ",", "k"}]]}], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "m"}]]}], "+", RowBox[{ SubscriptBox["A", RowBox[{"m", ",", "k"}]], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "r"}]]}], "+", RowBox[{ SubscriptBox["A", RowBox[{"i", ",", "r"}]], " ", SubscriptBox["\[Delta]", RowBox[{"k", ",", "m"}]]}], "-", RowBox[{ SubscriptBox["A", RowBox[{"i", ",", "m"}]], " ", SubscriptBox["\[Delta]", RowBox[{"k", ",", "r"}]]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", SubscriptBox["G", "k"], ",", SubscriptBox["J", RowBox[{"m", ",", "r"}]], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["F", "r"]}], " ", SubscriptBox["\[Delta]", RowBox[{"k", ",", "m"}]]}], "+", RowBox[{ SubscriptBox["F", "m"], " ", SubscriptBox["\[Delta]", RowBox[{"k", ",", "r"}]]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["P", "i"], ",", SubscriptBox["G", "k"], ",", SubscriptBox["J", RowBox[{"m", ",", "r"}]], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["A", RowBox[{"k", ",", "r"}]]}], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "m"}]]}], "+", RowBox[{ SubscriptBox["A", RowBox[{"k", ",", "m"}]], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "r"}]]}], "+", RowBox[{ SubscriptBox["A", RowBox[{"r", ",", "i"}]], " ", SubscriptBox["\[Delta]", RowBox[{"k", ",", "m"}]]}], "-", RowBox[{ SubscriptBox["A", RowBox[{"m", ",", "i"}]], " ", SubscriptBox["\[Delta]", RowBox[{"k", ",", "r"}]]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["J", RowBox[{"i", ",", "j"}]], ",", "\[CapitalEpsilon]", ",", SubscriptBox["P", "m"], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["B", "j"]}], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "m"}]]}], "+", RowBox[{ SubscriptBox["B", "i"], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "m"}]]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", SubscriptBox["J", RowBox[{"k", ",", "l"}]], ",", SubscriptBox["P", "m"], ",", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["B", "l"], " ", SubscriptBox["\[Delta]", RowBox[{"k", ",", "m"}]]}], "-", RowBox[{ SubscriptBox["B", "k"], " ", SubscriptBox["\[Delta]", RowBox[{"l", ",", "m"}]]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["G", "i"], ",", SubscriptBox["J", RowBox[{"k", ",", "l"}]], ",", SubscriptBox["P", "m"], ",", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["A", RowBox[{"l", ",", "m"}]], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]]}], "-", RowBox[{ SubscriptBox["A", RowBox[{"k", ",", "m"}]], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "l"}]]}], "-", RowBox[{ SubscriptBox["A", RowBox[{"i", ",", "l"}]], " ", SubscriptBox["\[Delta]", RowBox[{"k", ",", "m"}]]}], "+", RowBox[{ SubscriptBox["A", RowBox[{"i", ",", "k"}]], " ", SubscriptBox["\[Delta]", RowBox[{"l", ",", "m"}]]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["J", RowBox[{"i", ",", "j"}]], ",", SubscriptBox["G", "k"], ",", SubscriptBox["P", "m"], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["A", RowBox[{"j", ",", "m"}]]}], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]]}], "+", RowBox[{ SubscriptBox["A", RowBox[{"k", ",", "j"}]], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "m"}]]}], "+", RowBox[{ SubscriptBox["A", RowBox[{"i", ",", "m"}]], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "k"}]]}], "-", RowBox[{ SubscriptBox["A", RowBox[{"k", ",", "i"}]], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "m"}]]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["J", RowBox[{"i", ",", "j"}]], ",", "\[CapitalEpsilon]", ",", SubscriptBox["G", "m"], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["F", "j"]}], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "m"}]]}], "+", RowBox[{ SubscriptBox["F", "i"], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "m"}]]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", SubscriptBox["J", RowBox[{"k", ",", "l"}]], ",", SubscriptBox["G", "m"], ",", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["F", "l"], " ", SubscriptBox["\[Delta]", RowBox[{"k", ",", "m"}]]}], "-", RowBox[{ SubscriptBox["F", "k"], " ", SubscriptBox["\[Delta]", RowBox[{"l", ",", "m"}]]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["P", "i"], ",", SubscriptBox["J", RowBox[{"k", ",", "l"}]], ",", SubscriptBox["G", "m"], ",", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["A", RowBox[{"m", ",", "l"}]], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]]}], "-", RowBox[{ SubscriptBox["A", RowBox[{"m", ",", "k"}]], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "l"}]]}], "-", RowBox[{ SubscriptBox["A", RowBox[{"l", ",", "i"}]], " ", SubscriptBox["\[Delta]", RowBox[{"k", ",", "m"}]]}], "+", RowBox[{ SubscriptBox["A", RowBox[{"k", ",", "i"}]], " ", SubscriptBox["\[Delta]", RowBox[{"l", ",", "m"}]]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["J", RowBox[{"i", ",", "j"}]], ",", SubscriptBox["P", "k"], ",", SubscriptBox["G", "m"], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["A", RowBox[{"m", ",", "j"}]]}], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]]}], "+", RowBox[{ SubscriptBox["A", RowBox[{"j", ",", "k"}]], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "m"}]]}], "+", RowBox[{ SubscriptBox["A", RowBox[{"m", ",", "i"}]], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "k"}]]}], "-", RowBox[{ SubscriptBox["A", RowBox[{"i", ",", "k"}]], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "m"}]]}]}], "}"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.4556284380628734`*^9, 3.4556287819518733`*^9, 3.455630311507374*^9, 3.4556310594976654`*^9}] }, Closed]], Cell[BoxData[ RowBox[{ RowBox[{"Distribute", "[", RowBox[{ SuperscriptBox["\[Delta]", RowBox[{"r", ",", "k"}]], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["A", RowBox[{"r", ",", "k"}]]}], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "m"}]]}], "+", RowBox[{ SubscriptBox["A", RowBox[{"m", ",", "k"}]], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "r"}]]}], "+", RowBox[{ SubscriptBox["A", RowBox[{"i", ",", "r"}]], " ", SubscriptBox["\[Delta]", RowBox[{"k", ",", "m"}]]}], "-", RowBox[{ SubscriptBox["A", RowBox[{"i", ",", "m"}]], " ", SubscriptBox["\[Delta]", RowBox[{"k", ",", "r"}]]}]}], ")"}]}], "]"}], "//.", "generalRules"}]], "Input", CellChangeTimes->{{3.4556261732315736`*^9, 3.4556261937416244`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", "A"}], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "m"}]]}], " ", "-", RowBox[{ SubscriptBox["A", RowBox[{"i", ",", "m"}]], " ", "n"}]}]], "Input", CellChangeTimes->{{3.455626284548704*^9, 3.455626345643813*^9}}], Cell[BoxData[""], "Input", CellChangeTimes->{3.4534888023382187`*^9, 3.453488883233308*^9}] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Weyl-Heisenberg", "Section", CellChangeTimes->{{3.4281011894382477`*^9, 3.4281012112596254`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PrintCommutators", "[", RowBox[{ SubscriptBox["l", "wh3"], ",", RowBox[{"WeylHeisenberg3basis", "[", RowBox[{"{", "i", "}"}], "]"}], ",", RowBox[{"WeylHeisenberg3basis", "[", RowBox[{"{", "j", "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.4523496979343147`*^9, 3.452349699346345*^9}, { 3.452349776647499*^9, 3.4523497909580765`*^9}, {3.4523510388453555`*^9, 3.4523510392058735`*^9}, {3.453066005362051*^9, 3.4530660540620785`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SubscriptBox["P", "i"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["Q", "j"], "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", RowBox[{"\[CapitalIota]", " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "j"}]]}]}], SequenceForm["[", Subscript[$CellContext`P, $CellContext`i], ",", Subscript[$CellContext`Q, $CellContext`j], "] = ", $CellContext`\[CapitalIota] Subscript[$CellContext`\[Delta], $CellContext`i, $CellContext`j]], Editable->False]], "Print", CellChangeTimes->{3.453242468423621*^9, 3.453483593143323*^9, 3.453553305355291*^9, 3.453645066342289*^9, 3.455617728906188*^9}], Cell[BoxData["\<\"Done\"\>"], "Print", CellChangeTimes->{3.453242468423621*^9, 3.453483593143323*^9, 3.453553305355291*^9, 3.453645066342289*^9, 3.455617728908188*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PrintCommutators", "[", RowBox[{ SubscriptBox["l", "whc3"], ",", RowBox[{"WeylHeisenbergComplex3basis", "[", RowBox[{"{", "i", "}"}], "]"}], ",", RowBox[{"WeylHeisenbergComplex3basis", "[", RowBox[{"{", "j", "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.4523496979343147`*^9, 3.452349699346345*^9}, { 3.452349776647499*^9, 3.4523497909580765`*^9}, {3.4523510388453555`*^9, 3.4523510392058735`*^9}, {3.453066005362051*^9, 3.4530660540620785`*^9}, { 3.4602830875504427`*^9, 3.460283093729765*^9}}], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", " ", SuperscriptBox[ SubscriptBox["A", "i"], "+"], " ", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", " ", SuperscriptBox[ SubscriptBox["A", "j"], "-"], " ", "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", RowBox[{"\[ImaginaryI]", " ", "\[CapitalIota]", " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "j"}]]}]}], SequenceForm["[", $CellContext`superplus[ Subscript[$CellContext`A, $CellContext`i]], ",", $CellContext`superminus[ Subscript[$CellContext`A, $CellContext`j]], "] = ", Complex[0, 1] $CellContext`\[CapitalIota] Subscript[$CellContext`\[Delta], $CellContext`i, $CellContext`j]], Editable->False]], "Print", CellChangeTimes->{3.453242468423621*^9, 3.453483593143323*^9, 3.453553305355291*^9, 3.453645066342289*^9, 3.455617728906188*^9, 3.4602830960583944`*^9}], Cell[BoxData["\<\"Done\"\>"], "Print", CellChangeTimes->{3.453242468423621*^9, 3.453483593143323*^9, 3.453553305355291*^9, 3.453645066342289*^9, 3.455617728906188*^9, 3.4602830960663996`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PrintCommutators", "[", RowBox[{ SubscriptBox["l", "wh4"], ",", RowBox[{"WeylHeisenberg4basis", "[", RowBox[{"{", "i", "}"}], "]"}], ",", RowBox[{"WeylHeisenberg4basis", "[", RowBox[{"{", "j", "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.4523496979343147`*^9, 3.452349699346345*^9}, { 3.452349776647499*^9, 3.4523497909580765`*^9}, {3.4523510388453555`*^9, 3.4523510392058735`*^9}, {3.453066005362051*^9, 3.4530660540620785`*^9}, { 3.453067429209443*^9, 3.4530674348775935`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SubscriptBox["Y", "i"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["X", "j"], "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", RowBox[{"\[CapitalIota]", " ", SubscriptBox["\[Eta]", RowBox[{"i", ",", "j"}]]}]}], SequenceForm["[", Subscript[$CellContext`Y, $CellContext`i], ",", Subscript[$CellContext`X, $CellContext`j], "] = ", $CellContext`\[CapitalIota] Subscript[$CellContext`\[Eta], $CellContext`i, $CellContext`j]], Editable->False]], "Print", CellChangeTimes->{3.4532424684926214`*^9, 3.453483593248334*^9, 3.453553305461302*^9, 3.453645066464301*^9, 3.4556177290282*^9}], Cell[BoxData["\<\"Done\"\>"], "Print", CellChangeTimes->{3.4532424684926214`*^9, 3.453483593248334*^9, 3.453553305461302*^9, 3.453645066464301*^9, 3.4556177290302005`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PrintCommutators", "[", RowBox[{ SubscriptBox["l", "wh8"], ",", RowBox[{"WeylHeisenberg8basis", "[", RowBox[{"{", "i", "}"}], "]"}], ",", RowBox[{"WeylHeisenberg8basis", "[", RowBox[{"{", "j", "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.4523496979343147`*^9, 3.452349699346345*^9}, { 3.452349776647499*^9, 3.4523497909580765`*^9}, {3.4523510388453555`*^9, 3.4523510392058735`*^9}, {3.453066005362051*^9, 3.4530660540620785`*^9}, { 3.4530675192689424`*^9, 3.453067523955682*^9}}], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SubscriptBox["A", "i"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["A", "j"], "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", RowBox[{"\[CapitalIota]", " ", SubscriptBox["\[Zeta]", RowBox[{"i", ",", "j"}]]}]}], SequenceForm["[", Subscript[$CellContext`A, $CellContext`i], ",", Subscript[$CellContext`A, $CellContext`j], "] = ", $CellContext`\[CapitalIota] Subscript[$CellContext`\[Zeta], $CellContext`i, $CellContext`j]], Editable->False]], "Print", CellChangeTimes->{3.453242468562621*^9, 3.453483593351344*^9, 3.453553305565312*^9, 3.4536450665873137`*^9, 3.4556177291512127`*^9}], Cell[BoxData["\<\"Done\"\>"], "Print", CellChangeTimes->{3.453242468562621*^9, 3.453483593351344*^9, 3.453553305565312*^9, 3.4536450665873137`*^9, 3.4556177291532125`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TestJacobi", "[", RowBox[{ SubscriptBox["l", "wh3"], ",", RowBox[{"{", "}"}], ",", RowBox[{"WeylHeisenberg3basis", "[", RowBox[{"{", "i", "}"}], "]"}], ",", RowBox[{"WeylHeisenberg3basis", "[", RowBox[{"{", "j", "}"}], "]"}], ",", RowBox[{"WeylHeisenberg3basis", "[", RowBox[{"{", "k", "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.452207455555413*^9, 3.4522075712417617`*^9}, { 3.452209061324395*^9, 3.4522090785992355`*^9}, {3.452347001898718*^9, 3.4523470149574957`*^9}, 3.452347058980798*^9, {3.4523502834061823`*^9, 3.4523503310446825`*^9}, {3.452351011055395*^9, 3.4523510157321205`*^9}, { 3.4523511317389297`*^9, 3.452351157666211*^9}, {3.4530672885872383`*^9, 3.4530673395605345`*^9}}], Cell[BoxData["\<\"Done\"\>"], "Print", CellChangeTimes->{3.453242468675621*^9, 3.4534835934423532`*^9, 3.453553305664322*^9, 3.453645066690324*^9, 3.455617729259223*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TestJacobi", "[", RowBox[{ SubscriptBox["l", "wh4"], ",", RowBox[{"{", "}"}], ",", RowBox[{"WeylHeisenberg4basis", "[", RowBox[{"{", "i", "}"}], "]"}], ",", RowBox[{"WeylHeisenberg4basis", "[", RowBox[{"{", "j", "}"}], "]"}], ",", RowBox[{"WeylHeisenberg4basis", "[", RowBox[{"{", "k", "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.452207455555413*^9, 3.4522075712417617`*^9}, { 3.452209061324395*^9, 3.4522090785992355`*^9}, {3.452347001898718*^9, 3.4523470149574957`*^9}, 3.452347058980798*^9, {3.4523502834061823`*^9, 3.4523503310446825`*^9}, {3.452351011055395*^9, 3.4523510157321205`*^9}, { 3.4523511317389297`*^9, 3.452351157666211*^9}, {3.4530672885872383`*^9, 3.4530673395605345`*^9}, {3.4530675414608526`*^9, 3.453067567778696*^9}}], Cell[BoxData["\<\"Done\"\>"], "Print", CellChangeTimes->{3.453242468772621*^9, 3.453483593531362*^9, 3.4535533057543306`*^9, 3.4536450667903337`*^9, 3.4556177293612337`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TestJacobi", "[", RowBox[{ SubscriptBox["l", "wh8"], ",", RowBox[{"{", "}"}], ",", RowBox[{"WeylHeisenberg8basis", "[", RowBox[{"{", "i", "}"}], "]"}], ",", RowBox[{"WeylHeisenberg8basis", "[", RowBox[{"{", "j", "}"}], "]"}], ",", RowBox[{"WeylHeisenberg8basis", "[", RowBox[{"{", "k", "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.452207455555413*^9, 3.4522075712417617`*^9}, { 3.452209061324395*^9, 3.4522090785992355`*^9}, {3.452347001898718*^9, 3.4523470149574957`*^9}, 3.452347058980798*^9, {3.4523502834061823`*^9, 3.4523503310446825`*^9}, {3.452351011055395*^9, 3.4523510157321205`*^9}, { 3.4523511317389297`*^9, 3.452351157666211*^9}, {3.4530672885872383`*^9, 3.4530673395605345`*^9}, {3.4530675439944963`*^9, 3.453067564243613*^9}}], Cell[BoxData["\<\"Done\"\>"], "Print", CellChangeTimes->{3.453242468832621*^9, 3.45348359360837*^9, 3.4535533058333387`*^9, 3.4536450668783426`*^9, 3.455617729452243*^9}] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Hamilton", "Section", CellChangeTimes->{{3.4281011894382477`*^9, 3.4281012112596254`*^9}, { 3.455636314879675*^9, 3.4556363169778843`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Habasis", "[", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"Habasis", "[", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}], "]"}]], "Output", CellChangeTimes->{3.455636611921376*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PrintCommutators", "[", RowBox[{ SubscriptBox["l", "ha"], ",", RowBox[{"HaBasis", "[", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}], "]"}], ",", RowBox[{"HaBasis", "[", RowBox[{"{", RowBox[{"k", ",", "l"}], "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.4523496979343147`*^9, 3.452349699346345*^9}, { 3.452349776647499*^9, 3.4523497909580765`*^9}, {3.4523510388453555`*^9, 3.4523510392058735`*^9}, {3.453066005362051*^9, 3.4530660540620785`*^9}, { 3.4556363631425004`*^9, 3.4556363656937556`*^9}, {3.4556364236375494`*^9, 3.4556364380979953`*^9}, {3.455636595790763*^9, 3.4556366352237062`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SubscriptBox["J", RowBox[{"i", ",", "j"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["J", RowBox[{"k", ",", "l"}]], "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["J", RowBox[{"j", ",", "l"}]]}], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]]}], "+", RowBox[{ SubscriptBox["J", RowBox[{"j", ",", "k"}]], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "l"}]]}], "+", RowBox[{ SubscriptBox["J", RowBox[{"i", ",", "l"}]], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "k"}]]}], "-", RowBox[{ SubscriptBox["J", RowBox[{"i", ",", "k"}]], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "l"}]]}]}]}], SequenceForm["[", Subscript[$CellContext`J, $CellContext`i, $CellContext`j], ",", Subscript[$CellContext`J, $CellContext`k, $CellContext`l], "] = ", -Subscript[$CellContext`J, $CellContext`j, $CellContext`l] Subscript[$CellContext`\[Delta], $CellContext`i, $CellContext`k] + Subscript[$CellContext`J, $CellContext`j, $CellContext`k] Subscript[$CellContext`\[Delta], $CellContext`i, $CellContext`l] + Subscript[$CellContext`J, $CellContext`i, $CellContext`l] Subscript[$CellContext`\[Delta], $CellContext`j, $CellContext`k] - Subscript[$CellContext`J, $CellContext`i, $CellContext`k] Subscript[$CellContext`\[Delta], $CellContext`j, $CellContext`l]], Editable->False]], "Print", CellChangeTimes->{3.453242468423621*^9, 3.453483593143323*^9, 3.453553305355291*^9, 3.453645066342289*^9, 3.455617728906188*^9, 3.4556364413183174`*^9, 3.4556366041766014`*^9, 3.455636640884272*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SubscriptBox["J", RowBox[{"i", ",", "j"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["G", "k"], "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["G", "j"]}], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]]}], "+", RowBox[{ SubscriptBox["G", "i"], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "k"}]]}]}]}], SequenceForm["[", Subscript[$CellContext`J, $CellContext`i, $CellContext`j], ",", Subscript[$CellContext`G, $CellContext`k], "] = ", -Subscript[$CellContext`G, $CellContext`j] Subscript[$CellContext`\[Delta], $CellContext`i, $CellContext`k] + Subscript[$CellContext`G, $CellContext`i] Subscript[$CellContext`\[Delta], $CellContext`j, $CellContext`k]], Editable->False]], "Print", CellChangeTimes->{3.453242468423621*^9, 3.453483593143323*^9, 3.453553305355291*^9, 3.453645066342289*^9, 3.455617728906188*^9, 3.4556364413183174`*^9, 3.4556366041766014`*^9, 3.455636640894273*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SubscriptBox["J", RowBox[{"i", ",", "j"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["F", "k"], "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["F", "j"]}], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]]}], "+", RowBox[{ SubscriptBox["F", "i"], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "k"}]]}]}]}], SequenceForm["[", Subscript[$CellContext`J, $CellContext`i, $CellContext`j], ",", Subscript[$CellContext`F, $CellContext`k], "] = ", -Subscript[$CellContext`F, $CellContext`j] Subscript[$CellContext`\[Delta], $CellContext`i, $CellContext`k] + Subscript[$CellContext`F, $CellContext`i] Subscript[$CellContext`\[Delta], $CellContext`j, $CellContext`k]], Editable->False]], "Print", CellChangeTimes->{3.453242468423621*^9, 3.453483593143323*^9, 3.453553305355291*^9, 3.453645066342289*^9, 3.455617728906188*^9, 3.4556364413183174`*^9, 3.4556366041766014`*^9, 3.455636640905274*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SubscriptBox["G", "i"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["F", "k"], "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", RowBox[{"R", " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]]}]}], SequenceForm["[", Subscript[$CellContext`G, $CellContext`i], ",", Subscript[$CellContext`F, $CellContext`k], "] = ", $CellContext`R Subscript[$CellContext`\[Delta], $CellContext`i, $CellContext`k]], Editable->False]], "Print", CellChangeTimes->{3.453242468423621*^9, 3.453483593143323*^9, 3.453553305355291*^9, 3.453645066342289*^9, 3.455617728906188*^9, 3.4556364413183174`*^9, 3.4556366041766014`*^9, 3.4556366409492784`*^9}], Cell[BoxData["\<\"Done\"\>"], "Print", CellChangeTimes->{3.453242468423621*^9, 3.453483593143323*^9, 3.453553305355291*^9, 3.453645066342289*^9, 3.455617728906188*^9, 3.4556364413183174`*^9, 3.4556366041766014`*^9, 3.45563664096628*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TestJacobiReturn", "[", RowBox[{ SubscriptBox["l", "ha"], ",", RowBox[{"{", "OrthogonalSymmetryRules", "}"}], ",", RowBox[{"HaBasis", "[", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}], "]"}], ",", RowBox[{"HaBasis", "[", RowBox[{"{", RowBox[{"k", ",", "l"}], "}"}], "]"}], ",", RowBox[{"HaBasis", "[", RowBox[{"{", RowBox[{"m", ",", "n"}], "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.452207455555413*^9, 3.4522075712417617`*^9}, { 3.452209061324395*^9, 3.4522090785992355`*^9}, {3.452347001898718*^9, 3.4523470149574957`*^9}, 3.452347058980798*^9, {3.4523502834061823`*^9, 3.4523503310446825`*^9}, {3.452351011055395*^9, 3.4523510157321205`*^9}, { 3.4523511317389297`*^9, 3.452351157666211*^9}, {3.4530672885872383`*^9, 3.4530673395605345`*^9}, {3.455636663960579*^9, 3.4556366926964526`*^9}, { 3.4556369759947796`*^9, 3.455637003629543*^9}, 3.4556370700051794`*^9, { 3.4556371575529337`*^9, 3.455637165576736*^9}}], Cell[BoxData[ RowBox[{"{", "}"}]], "Output", CellChangeTimes->{3.4556372802522025`*^9}] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"\[ScriptCapitalI]\[ScriptCapitalH]\[ScriptA]", "(", "n", ")"}], TraditionalForm]], "None", FormatType->"TraditionalForm"]], "Section", CellChangeTimes->{{3.4281011894382477`*^9, 3.4281012112596254`*^9}, { 3.455636314879675*^9, 3.4556363169778843`*^9}, {3.4556374358847637`*^9, 3.455637447292905*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PrintCommutators", "[", RowBox[{ SubscriptBox["l", "iha"], ",", RowBox[{"IHaBasis", "[", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}], "]"}], ",", RowBox[{"IHaBasis", "[", RowBox[{"{", RowBox[{"k", ",", "l"}], "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.4523496979343147`*^9, 3.452349699346345*^9}, { 3.452349776647499*^9, 3.4523497909580765`*^9}, {3.4523510388453555`*^9, 3.4523510392058735`*^9}, {3.453066005362051*^9, 3.4530660540620785`*^9}, { 3.4556363631425004`*^9, 3.4556363656937556`*^9}, {3.4556364236375494`*^9, 3.4556364380979953`*^9}, {3.455636595790763*^9, 3.4556366352237062`*^9}, { 3.4556557009371805`*^9, 3.4556557055086374`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SubscriptBox["J", RowBox[{"i", ",", "j"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["J", RowBox[{"k", ",", "l"}]], "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["J", RowBox[{"j", ",", "l"}]]}], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]]}], "+", RowBox[{ SubscriptBox["J", RowBox[{"j", ",", "k"}]], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "l"}]]}], "+", RowBox[{ SubscriptBox["J", RowBox[{"i", ",", "l"}]], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "k"}]]}], "-", RowBox[{ SubscriptBox["J", RowBox[{"i", ",", "k"}]], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "l"}]]}]}]}], SequenceForm["[", Subscript[$CellContext`J, $CellContext`i, $CellContext`j], ",", Subscript[$CellContext`J, $CellContext`k, $CellContext`l], "] = ", -Subscript[$CellContext`J, $CellContext`j, $CellContext`l] Subscript[$CellContext`\[Delta], $CellContext`i, $CellContext`k] + Subscript[$CellContext`J, $CellContext`j, $CellContext`k] Subscript[$CellContext`\[Delta], $CellContext`i, $CellContext`l] + Subscript[$CellContext`J, $CellContext`i, $CellContext`l] Subscript[$CellContext`\[Delta], $CellContext`j, $CellContext`k] - Subscript[$CellContext`J, $CellContext`i, $CellContext`k] Subscript[$CellContext`\[Delta], $CellContext`j, $CellContext`l]], Editable->False]], "Print", CellChangeTimes->{3.4556557423283195`*^9, 3.455655801220208*^9, 3.4556558363077164`*^9, 3.4556562473688183`*^9, 3.4556563561336937`*^9, 3.455656434595539*^9, 3.4556565156676455`*^9, 3.455656561979276*^9, 3.455656668157893*^9, 3.455657563849453*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SubscriptBox["J", RowBox[{"i", ",", "j"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["G", "k"], "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["G", "j"]}], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]]}], "+", RowBox[{ SubscriptBox["G", "i"], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "k"}]]}]}]}], SequenceForm["[", Subscript[$CellContext`J, $CellContext`i, $CellContext`j], ",", Subscript[$CellContext`G, $CellContext`k], "] = ", -Subscript[$CellContext`G, $CellContext`j] Subscript[$CellContext`\[Delta], $CellContext`i, $CellContext`k] + Subscript[$CellContext`G, $CellContext`i] Subscript[$CellContext`\[Delta], $CellContext`j, $CellContext`k]], Editable->False]], "Print", CellChangeTimes->{3.4556557423283195`*^9, 3.455655801220208*^9, 3.4556558363077164`*^9, 3.4556562473688183`*^9, 3.4556563561336937`*^9, 3.455656434595539*^9, 3.4556565156676455`*^9, 3.455656561979276*^9, 3.455656668157893*^9, 3.4556575638574543`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SubscriptBox["J", RowBox[{"i", ",", "j"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["F", "k"], "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["F", "j"]}], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]]}], "+", RowBox[{ SubscriptBox["F", "i"], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "k"}]]}]}]}], SequenceForm["[", Subscript[$CellContext`J, $CellContext`i, $CellContext`j], ",", Subscript[$CellContext`F, $CellContext`k], "] = ", -Subscript[$CellContext`F, $CellContext`j] Subscript[$CellContext`\[Delta], $CellContext`i, $CellContext`k] + Subscript[$CellContext`F, $CellContext`i] Subscript[$CellContext`\[Delta], $CellContext`j, $CellContext`k]], Editable->False]], "Print", CellChangeTimes->{3.4556557423283195`*^9, 3.455655801220208*^9, 3.4556558363077164`*^9, 3.4556562473688183`*^9, 3.4556563561336937`*^9, 3.455656434595539*^9, 3.4556565156676455`*^9, 3.455656561979276*^9, 3.455656668157893*^9, 3.455657563863455*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SubscriptBox["G", "i"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["F", "k"], "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", RowBox[{"R", " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]]}]}], SequenceForm["[", Subscript[$CellContext`G, $CellContext`i], ",", Subscript[$CellContext`F, $CellContext`k], "] = ", $CellContext`R Subscript[$CellContext`\[Delta], $CellContext`i, $CellContext`k]], Editable->False]], "Print", CellChangeTimes->{3.4556557423283195`*^9, 3.455655801220208*^9, 3.4556558363077164`*^9, 3.4556562473688183`*^9, 3.4556563561336937`*^9, 3.455656434595539*^9, 3.4556565156676455`*^9, 3.455656561979276*^9, 3.455656668157893*^9, 3.4556575638694553`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SubscriptBox["J", RowBox[{"i", ",", "j"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["P", "k"], "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["P", "j"]}], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]]}], "+", RowBox[{ SubscriptBox["P", "i"], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "k"}]]}]}]}], SequenceForm["[", Subscript[$CellContext`J, $CellContext`i, $CellContext`j], ",", Subscript[$CellContext`P, $CellContext`k], "] = ", -Subscript[$CellContext`P, $CellContext`j] Subscript[$CellContext`\[Delta], $CellContext`i, $CellContext`k] + Subscript[$CellContext`P, $CellContext`i] Subscript[$CellContext`\[Delta], $CellContext`j, $CellContext`k]], Editable->False]], "Print", CellChangeTimes->{3.4556557423283195`*^9, 3.455655801220208*^9, 3.4556558363077164`*^9, 3.4556562473688183`*^9, 3.4556563561336937`*^9, 3.455656434595539*^9, 3.4556565156676455`*^9, 3.455656561979276*^9, 3.455656668157893*^9, 3.4556575638744555`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SubscriptBox["F", "i"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["P", "k"], "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", RowBox[{"T", " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]]}]}], SequenceForm["[", Subscript[$CellContext`F, $CellContext`i], ",", Subscript[$CellContext`P, $CellContext`k], "] = ", $CellContext`T Subscript[$CellContext`\[Delta], $CellContext`i, $CellContext`k]], Editable->False]], "Print", CellChangeTimes->{3.4556557423283195`*^9, 3.455655801220208*^9, 3.4556558363077164`*^9, 3.4556562473688183`*^9, 3.4556563561336937`*^9, 3.455656434595539*^9, 3.4556565156676455`*^9, 3.455656561979276*^9, 3.455656668157893*^9, 3.4556575638804564`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SubscriptBox["J", RowBox[{"i", ",", "j"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["Q", "k"], "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["Q", "j"]}], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]]}], "+", RowBox[{ SubscriptBox["Q", "i"], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "k"}]]}]}]}], SequenceForm["[", Subscript[$CellContext`J, $CellContext`i, $CellContext`j], ",", Subscript[$CellContext`Q, $CellContext`k], "] = ", -Subscript[$CellContext`Q, $CellContext`j] Subscript[$CellContext`\[Delta], $CellContext`i, $CellContext`k] + Subscript[$CellContext`Q, $CellContext`i] Subscript[$CellContext`\[Delta], $CellContext`j, $CellContext`k]], Editable->False]], "Print", CellChangeTimes->{3.4556557423283195`*^9, 3.455655801220208*^9, 3.4556558363077164`*^9, 3.4556562473688183`*^9, 3.4556563561336937`*^9, 3.455656434595539*^9, 3.4556565156676455`*^9, 3.455656561979276*^9, 3.455656668157893*^9, 3.4556575638864565`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SubscriptBox["G", "i"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["Q", "k"], "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", RowBox[{"T", " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]]}]}], SequenceForm["[", Subscript[$CellContext`G, $CellContext`i], ",", Subscript[$CellContext`Q, $CellContext`k], "] = ", $CellContext`T Subscript[$CellContext`\[Delta], $CellContext`i, $CellContext`k]], Editable->False]], "Print", CellChangeTimes->{3.4556557423283195`*^9, 3.455655801220208*^9, 3.4556558363077164`*^9, 3.4556562473688183`*^9, 3.4556563561336937`*^9, 3.455656434595539*^9, 3.4556565156676455`*^9, 3.455656561979276*^9, 3.455656668157893*^9, 3.4556575638914576`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SubscriptBox["G", "i"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "\[CapitalEpsilon]", "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", SubscriptBox["P", "i"]}], SequenceForm["[", Subscript[$CellContext`G, $CellContext`i], ",", $CellContext`\[CapitalEpsilon], "] = ", Subscript[$CellContext`P, $CellContext`i]], Editable->False]], "Print", CellChangeTimes->{3.4556557423283195`*^9, 3.455655801220208*^9, 3.4556558363077164`*^9, 3.4556562473688183`*^9, 3.4556563561336937`*^9, 3.455656434595539*^9, 3.4556565156676455`*^9, 3.455656561979276*^9, 3.455656668157893*^9, 3.455657563897458*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SubscriptBox["F", "i"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "\[CapitalEpsilon]", "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", RowBox[{"-", SubscriptBox["Q", "i"]}]}], SequenceForm["[", Subscript[$CellContext`F, $CellContext`i], ",", $CellContext`\[CapitalEpsilon], "] = ", - Subscript[$CellContext`Q, $CellContext`i]], Editable->False]], "Print", CellChangeTimes->{3.4556557423283195`*^9, 3.455655801220208*^9, 3.4556558363077164`*^9, 3.4556562473688183`*^9, 3.4556563561336937`*^9, 3.455656434595539*^9, 3.4556565156676455`*^9, 3.455656561979276*^9, 3.455656668157893*^9, 3.455657563902458*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", "R", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "\[CapitalEpsilon]", "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{"-", "2"}], " ", "T"}]}], SequenceForm[ "[", $CellContext`R, ",", $CellContext`\[CapitalEpsilon], "] = ", (-2) $CellContext`T], Editable->False]], "Print", CellChangeTimes->{3.4556557423283195`*^9, 3.455655801220208*^9, 3.4556558363077164`*^9, 3.4556562473688183`*^9, 3.4556563561336937`*^9, 3.455656434595539*^9, 3.4556565156676455`*^9, 3.455656561979276*^9, 3.455656668157893*^9, 3.455657563908459*^9}], Cell[BoxData["\<\"Done\"\>"], "Print", CellChangeTimes->{3.4556557423283195`*^9, 3.455655801220208*^9, 3.4556558363077164`*^9, 3.4556562473688183`*^9, 3.4556563561336937`*^9, 3.455656434595539*^9, 3.4556565156676455`*^9, 3.455656561979276*^9, 3.455656668157893*^9, 3.45565756391346*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["l", "iha"], "[", RowBox[{"\[CapitalEpsilon]", ",", "T"}], "]"}]], "Input", CellChangeTimes->{{3.4556571260896816`*^9, 3.455657130994172*^9}, { 3.455657239191991*^9, 3.4556572612401953`*^9}}], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.4556571325633287`*^9, 3.455657204436516*^9, {3.455657235866658*^9, 3.4556572642114925`*^9}, {3.4556574255666265`*^9, 3.4556574476428337`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TestJacobiReturn", "[", RowBox[{ SubscriptBox["l", "iha"], ",", RowBox[{"{", "OrthogonalSymmetryRules", "}"}], ",", RowBox[{"IHaBasis", "[", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}], "]"}], ",", RowBox[{"IHaBasis", "[", RowBox[{"{", RowBox[{"k", ",", "l"}], "}"}], "]"}], ",", RowBox[{"IHaBasis", "[", RowBox[{"{", RowBox[{"m", ",", "n"}], "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.452207455555413*^9, 3.4522075712417617`*^9}, { 3.452209061324395*^9, 3.4522090785992355`*^9}, {3.452347001898718*^9, 3.4523470149574957`*^9}, 3.452347058980798*^9, {3.4523502834061823`*^9, 3.4523503310446825`*^9}, {3.452351011055395*^9, 3.4523510157321205`*^9}, { 3.4523511317389297`*^9, 3.452351157666211*^9}, {3.4530672885872383`*^9, 3.4530673395605345`*^9}, {3.455636663960579*^9, 3.4556366926964526`*^9}, { 3.4556369759947796`*^9, 3.455637003629543*^9}, 3.4556370700051794`*^9, { 3.4556371575529337`*^9, 3.455637165576736*^9}, {3.4556566835584326`*^9, 3.4556566923383107`*^9}}], Cell[BoxData[ RowBox[{"{", "}"}]], "Output", CellChangeTimes->{ 3.4556372802522025`*^9, 3.4556566972418013`*^9, {3.455656859625038*^9, 3.45565688335441*^9}, 3.455656923885463*^9, 3.4556570067587495`*^9, { 3.4556570496350365`*^9, 3.4556570715602293`*^9}, 3.4556572285329247`*^9, 3.4556573061776886`*^9, 3.455657451852255*^9, 3.4556575750775757`*^9}] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"\[ScriptCapitalH]\[ScriptCapitalH]\[ScriptA]", "(", "n", ")"}], TraditionalForm]], "None", FormatType->"TraditionalForm"]], "Section", CellChangeTimes->{{3.4281011894382477`*^9, 3.4281012112596254`*^9}, { 3.455636314879675*^9, 3.4556363169778843`*^9}, {3.4556374358847637`*^9, 3.455637447292905*^9}, {3.4556579839624605`*^9, 3.4556579877848425`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PrintCommutators", "[", RowBox[{ SubscriptBox["l", "hha"], ",", RowBox[{"HHaBasis", "[", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}], "]"}], ",", RowBox[{"HHaBasis", "[", RowBox[{"{", RowBox[{"k", ",", "l"}], "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.4523496979343147`*^9, 3.452349699346345*^9}, { 3.452349776647499*^9, 3.4523497909580765`*^9}, {3.4523510388453555`*^9, 3.4523510392058735`*^9}, {3.453066005362051*^9, 3.4530660540620785`*^9}, { 3.4556363631425004`*^9, 3.4556363656937556`*^9}, {3.4556364236375494`*^9, 3.4556364380979953`*^9}, {3.455636595790763*^9, 3.4556366352237062`*^9}, { 3.4556557009371805`*^9, 3.4556557055086374`*^9}, {3.4556579954956136`*^9, 3.45565800086215*^9}, {3.455658201762238*^9, 3.4556582025453167`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SubscriptBox["J", RowBox[{"i", ",", "j"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["J", RowBox[{"k", ",", "l"}]], "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["J", RowBox[{"j", ",", "l"}]]}], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]]}], "+", RowBox[{ SubscriptBox["J", RowBox[{"j", ",", "k"}]], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "l"}]]}], "+", RowBox[{ SubscriptBox["J", RowBox[{"i", ",", "l"}]], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "k"}]]}], "-", RowBox[{ SubscriptBox["J", RowBox[{"i", ",", "k"}]], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "l"}]]}]}]}], SequenceForm["[", Subscript[$CellContext`J, $CellContext`i, $CellContext`j], ",", Subscript[$CellContext`J, $CellContext`k, $CellContext`l], "] = ", -Subscript[$CellContext`J, $CellContext`j, $CellContext`l] Subscript[$CellContext`\[Delta], $CellContext`i, $CellContext`k] + Subscript[$CellContext`J, $CellContext`j, $CellContext`k] Subscript[$CellContext`\[Delta], $CellContext`i, $CellContext`l] + Subscript[$CellContext`J, $CellContext`i, $CellContext`l] Subscript[$CellContext`\[Delta], $CellContext`j, $CellContext`k] - Subscript[$CellContext`J, $CellContext`i, $CellContext`k] Subscript[$CellContext`\[Delta], $CellContext`j, $CellContext`l]], Editable->False]], "Print", CellChangeTimes->{3.4556557423283195`*^9, 3.455655801220208*^9, 3.4556558363077164`*^9, 3.4556562473688183`*^9, 3.4556563561336937`*^9, 3.455656434595539*^9, 3.4556565156676455`*^9, 3.455656561979276*^9, 3.455656668157893*^9, 3.455657563849453*^9, 3.455658019055969*^9, 3.455658068006864*^9, 3.455658207830845*^9, 3.455658242475309*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SubscriptBox["J", RowBox[{"i", ",", "j"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["G", "k"], "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["G", "j"]}], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]]}], "+", RowBox[{ SubscriptBox["G", "i"], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "k"}]]}]}]}], SequenceForm["[", Subscript[$CellContext`J, $CellContext`i, $CellContext`j], ",", Subscript[$CellContext`G, $CellContext`k], "] = ", -Subscript[$CellContext`G, $CellContext`j] Subscript[$CellContext`\[Delta], $CellContext`i, $CellContext`k] + Subscript[$CellContext`G, $CellContext`i] Subscript[$CellContext`\[Delta], $CellContext`j, $CellContext`k]], Editable->False]], "Print", CellChangeTimes->{3.4556557423283195`*^9, 3.455655801220208*^9, 3.4556558363077164`*^9, 3.4556562473688183`*^9, 3.4556563561336937`*^9, 3.455656434595539*^9, 3.4556565156676455`*^9, 3.455656561979276*^9, 3.455656668157893*^9, 3.455657563849453*^9, 3.455658019055969*^9, 3.455658068006864*^9, 3.455658207830845*^9, 3.4556582424833097`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SubscriptBox["J", RowBox[{"i", ",", "j"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["F", "k"], "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["F", "j"]}], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]]}], "+", RowBox[{ SubscriptBox["F", "i"], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "k"}]]}]}]}], SequenceForm["[", Subscript[$CellContext`J, $CellContext`i, $CellContext`j], ",", Subscript[$CellContext`F, $CellContext`k], "] = ", -Subscript[$CellContext`F, $CellContext`j] Subscript[$CellContext`\[Delta], $CellContext`i, $CellContext`k] + Subscript[$CellContext`F, $CellContext`i] Subscript[$CellContext`\[Delta], $CellContext`j, $CellContext`k]], Editable->False]], "Print", CellChangeTimes->{3.4556557423283195`*^9, 3.455655801220208*^9, 3.4556558363077164`*^9, 3.4556562473688183`*^9, 3.4556563561336937`*^9, 3.455656434595539*^9, 3.4556565156676455`*^9, 3.455656561979276*^9, 3.455656668157893*^9, 3.455657563849453*^9, 3.455658019055969*^9, 3.455658068006864*^9, 3.455658207830845*^9, 3.455658242493311*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SubscriptBox["G", "i"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["F", "k"], "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", RowBox[{"R", " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]]}]}], SequenceForm["[", Subscript[$CellContext`G, $CellContext`i], ",", Subscript[$CellContext`F, $CellContext`k], "] = ", $CellContext`R Subscript[$CellContext`\[Delta], $CellContext`i, $CellContext`k]], Editable->False]], "Print", CellChangeTimes->{3.4556557423283195`*^9, 3.455655801220208*^9, 3.4556558363077164`*^9, 3.4556562473688183`*^9, 3.4556563561336937`*^9, 3.455656434595539*^9, 3.4556565156676455`*^9, 3.455656561979276*^9, 3.455656668157893*^9, 3.455657563849453*^9, 3.455658019055969*^9, 3.455658068006864*^9, 3.455658207830845*^9, 3.455658242535315*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SubscriptBox["J", RowBox[{"i", ",", "j"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["P", "k"], "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["P", "j"]}], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]]}], "+", RowBox[{ SubscriptBox["P", "i"], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "k"}]]}]}]}], SequenceForm["[", Subscript[$CellContext`J, $CellContext`i, $CellContext`j], ",", Subscript[$CellContext`P, $CellContext`k], "] = ", -Subscript[$CellContext`P, $CellContext`j] Subscript[$CellContext`\[Delta], $CellContext`i, $CellContext`k] + Subscript[$CellContext`P, $CellContext`i] Subscript[$CellContext`\[Delta], $CellContext`j, $CellContext`k]], Editable->False]], "Print", CellChangeTimes->{3.4556557423283195`*^9, 3.455655801220208*^9, 3.4556558363077164`*^9, 3.4556562473688183`*^9, 3.4556563561336937`*^9, 3.455656434595539*^9, 3.4556565156676455`*^9, 3.455656561979276*^9, 3.455656668157893*^9, 3.455657563849453*^9, 3.455658019055969*^9, 3.455658068006864*^9, 3.455658207830845*^9, 3.4556582425543165`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SubscriptBox["G", "i"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["P", "k"], "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", RowBox[{"M", " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]]}]}], SequenceForm["[", Subscript[$CellContext`G, $CellContext`i], ",", Subscript[$CellContext`P, $CellContext`k], "] = ", $CellContext`M Subscript[$CellContext`\[Delta], $CellContext`i, $CellContext`k]], Editable->False]], "Print", CellChangeTimes->{3.4556557423283195`*^9, 3.455655801220208*^9, 3.4556558363077164`*^9, 3.4556562473688183`*^9, 3.4556563561336937`*^9, 3.455656434595539*^9, 3.4556565156676455`*^9, 3.455656561979276*^9, 3.455656668157893*^9, 3.455657563849453*^9, 3.455658019055969*^9, 3.455658068006864*^9, 3.455658207830845*^9, 3.455658242572319*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SubscriptBox["F", "i"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["P", "k"], "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", RowBox[{"T", " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]]}]}], SequenceForm["[", Subscript[$CellContext`F, $CellContext`i], ",", Subscript[$CellContext`P, $CellContext`k], "] = ", $CellContext`T Subscript[$CellContext`\[Delta], $CellContext`i, $CellContext`k]], Editable->False]], "Print", CellChangeTimes->{3.4556557423283195`*^9, 3.455655801220208*^9, 3.4556558363077164`*^9, 3.4556562473688183`*^9, 3.4556563561336937`*^9, 3.455656434595539*^9, 3.4556565156676455`*^9, 3.455656561979276*^9, 3.455656668157893*^9, 3.455657563849453*^9, 3.455658019055969*^9, 3.455658068006864*^9, 3.455658207830845*^9, 3.4556582425913205`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SubscriptBox["J", RowBox[{"i", ",", "j"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["Q", "k"], "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["Q", "j"]}], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]]}], "+", RowBox[{ SubscriptBox["Q", "i"], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "k"}]]}]}]}], SequenceForm["[", Subscript[$CellContext`J, $CellContext`i, $CellContext`j], ",", Subscript[$CellContext`Q, $CellContext`k], "] = ", -Subscript[$CellContext`Q, $CellContext`j] Subscript[$CellContext`\[Delta], $CellContext`i, $CellContext`k] + Subscript[$CellContext`Q, $CellContext`i] Subscript[$CellContext`\[Delta], $CellContext`j, $CellContext`k]], Editable->False]], "Print", CellChangeTimes->{3.4556557423283195`*^9, 3.455655801220208*^9, 3.4556558363077164`*^9, 3.4556562473688183`*^9, 3.4556563561336937`*^9, 3.455656434595539*^9, 3.4556565156676455`*^9, 3.455656561979276*^9, 3.455656668157893*^9, 3.455657563849453*^9, 3.455658019055969*^9, 3.455658068006864*^9, 3.455658207830845*^9, 3.4556582426093225`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SubscriptBox["G", "i"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["Q", "k"], "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", RowBox[{"T", " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]]}]}], SequenceForm["[", Subscript[$CellContext`G, $CellContext`i], ",", Subscript[$CellContext`Q, $CellContext`k], "] = ", $CellContext`T Subscript[$CellContext`\[Delta], $CellContext`i, $CellContext`k]], Editable->False]], "Print", CellChangeTimes->{3.4556557423283195`*^9, 3.455655801220208*^9, 3.4556558363077164`*^9, 3.4556562473688183`*^9, 3.4556563561336937`*^9, 3.455656434595539*^9, 3.4556565156676455`*^9, 3.455656561979276*^9, 3.455656668157893*^9, 3.455657563849453*^9, 3.455658019055969*^9, 3.455658068006864*^9, 3.455658207830845*^9, 3.4556582426283245`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SubscriptBox["F", "i"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["Q", "k"], "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", RowBox[{"A", " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]]}]}], SequenceForm["[", Subscript[$CellContext`F, $CellContext`i], ",", Subscript[$CellContext`Q, $CellContext`k], "] = ", $CellContext`A Subscript[$CellContext`\[Delta], $CellContext`i, $CellContext`k]], Editable->False]], "Print", CellChangeTimes->{3.4556557423283195`*^9, 3.455655801220208*^9, 3.4556558363077164`*^9, 3.4556562473688183`*^9, 3.4556563561336937`*^9, 3.455656434595539*^9, 3.4556565156676455`*^9, 3.455656561979276*^9, 3.455656668157893*^9, 3.455657563849453*^9, 3.455658019055969*^9, 3.455658068006864*^9, 3.455658207830845*^9, 3.4556582426473265`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SubscriptBox["P", "i"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["Q", "k"], "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", RowBox[{"\[CapitalIota]", " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]]}]}], SequenceForm["[", Subscript[$CellContext`P, $CellContext`i], ",", Subscript[$CellContext`Q, $CellContext`k], "] = ", $CellContext`\[CapitalIota] Subscript[$CellContext`\[Delta], $CellContext`i, $CellContext`k]], Editable->False]], "Print", CellChangeTimes->{3.4556557423283195`*^9, 3.455655801220208*^9, 3.4556558363077164`*^9, 3.4556562473688183`*^9, 3.4556563561336937`*^9, 3.455656434595539*^9, 3.4556565156676455`*^9, 3.455656561979276*^9, 3.455656668157893*^9, 3.455657563849453*^9, 3.455658019055969*^9, 3.455658068006864*^9, 3.455658207830845*^9, 3.4556582426693287`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SubscriptBox["G", "i"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "\[CapitalEpsilon]", "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", SubscriptBox["P", "i"]}], SequenceForm["[", Subscript[$CellContext`G, $CellContext`i], ",", $CellContext`\[CapitalEpsilon], "] = ", Subscript[$CellContext`P, $CellContext`i]], Editable->False]], "Print", CellChangeTimes->{3.4556557423283195`*^9, 3.455655801220208*^9, 3.4556558363077164`*^9, 3.4556562473688183`*^9, 3.4556563561336937`*^9, 3.455656434595539*^9, 3.4556565156676455`*^9, 3.455656561979276*^9, 3.455656668157893*^9, 3.455657563849453*^9, 3.455658019055969*^9, 3.455658068006864*^9, 3.455658207830845*^9, 3.4556582426883307`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SubscriptBox["F", "i"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "\[CapitalEpsilon]", "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", RowBox[{"-", SubscriptBox["Q", "i"]}]}], SequenceForm["[", Subscript[$CellContext`F, $CellContext`i], ",", $CellContext`\[CapitalEpsilon], "] = ", - Subscript[$CellContext`Q, $CellContext`i]], Editable->False]], "Print", CellChangeTimes->{3.4556557423283195`*^9, 3.455655801220208*^9, 3.4556558363077164`*^9, 3.4556562473688183`*^9, 3.4556563561336937`*^9, 3.455656434595539*^9, 3.4556565156676455`*^9, 3.455656561979276*^9, 3.455656668157893*^9, 3.455657563849453*^9, 3.455658019055969*^9, 3.455658068006864*^9, 3.455658207830845*^9, 3.4556582427093325`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", "R", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "\[CapitalEpsilon]", "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{"-", "2"}], " ", "T"}]}], SequenceForm[ "[", $CellContext`R, ",", $CellContext`\[CapitalEpsilon], "] = ", (-2) $CellContext`T], Editable->False]], "Print", CellChangeTimes->{3.4556557423283195`*^9, 3.455655801220208*^9, 3.4556558363077164`*^9, 3.4556562473688183`*^9, 3.4556563561336937`*^9, 3.455656434595539*^9, 3.4556565156676455`*^9, 3.455656561979276*^9, 3.455656668157893*^9, 3.455657563849453*^9, 3.455658019055969*^9, 3.455658068006864*^9, 3.455658207830845*^9, 3.4556582427283344`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", "\[CapitalEpsilon]", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "T", "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", RowBox[{"-", "\[CapitalIota]"}]}], SequenceForm[ "[", $CellContext`\[CapitalEpsilon], ",", $CellContext`T, "] = ", -$CellContext`\[CapitalIota]], Editable->False]], "Print", CellChangeTimes->{3.4556557423283195`*^9, 3.455655801220208*^9, 3.4556558363077164`*^9, 3.4556562473688183`*^9, 3.4556563561336937`*^9, 3.455656434595539*^9, 3.4556565156676455`*^9, 3.455656561979276*^9, 3.455656668157893*^9, 3.455657563849453*^9, 3.455658019055969*^9, 3.455658068006864*^9, 3.455658207830845*^9, 3.4556582427473364`*^9}], Cell[BoxData["\<\"Done\"\>"], "Print", CellChangeTimes->{3.4556557423283195`*^9, 3.455655801220208*^9, 3.4556558363077164`*^9, 3.4556562473688183`*^9, 3.4556563561336937`*^9, 3.455656434595539*^9, 3.4556565156676455`*^9, 3.455656561979276*^9, 3.455656668157893*^9, 3.455657563849453*^9, 3.455658019055969*^9, 3.455658068006864*^9, 3.455658207830845*^9, 3.455658242768338*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TestJacobiReturn", "[", RowBox[{ SubscriptBox["l", "hha"], ",", RowBox[{"{", "OrthogonalSymmetryRules", "}"}], ",", RowBox[{"HHaBasis", "[", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}], "]"}], ",", RowBox[{"HHaBasis", "[", RowBox[{"{", RowBox[{"k", ",", "l"}], "}"}], "]"}], ",", RowBox[{"HHaBasis", "[", RowBox[{"{", RowBox[{"m", ",", "n"}], "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.452207455555413*^9, 3.4522075712417617`*^9}, { 3.452209061324395*^9, 3.4522090785992355`*^9}, {3.452347001898718*^9, 3.4523470149574957`*^9}, 3.452347058980798*^9, {3.4523502834061823`*^9, 3.4523503310446825`*^9}, {3.452351011055395*^9, 3.4523510157321205`*^9}, { 3.4523511317389297`*^9, 3.452351157666211*^9}, {3.4530672885872383`*^9, 3.4530673395605345`*^9}, {3.455636663960579*^9, 3.4556366926964526`*^9}, { 3.4556369759947796`*^9, 3.455637003629543*^9}, 3.4556370700051794`*^9, { 3.4556371575529337`*^9, 3.455637165576736*^9}, {3.4556566835584326`*^9, 3.4556566923383107`*^9}, {3.455658262100271*^9, 3.4556582717242336`*^9}}], Cell[BoxData[ RowBox[{"{", "}"}]], "Output", CellChangeTimes->{ 3.4556372802522025`*^9, 3.4556566972418013`*^9, {3.455656859625038*^9, 3.45565688335441*^9}, 3.455656923885463*^9, 3.4556570067587495`*^9, { 3.4556570496350365`*^9, 3.4556570715602293`*^9}, 3.4556572285329247`*^9, 3.4556573061776886`*^9, 3.455657451852255*^9, 3.4556575750775757`*^9, 3.455658277637825*^9}] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["La", "Section", CellChangeTimes->{{3.4281011894382477`*^9, 3.4281012112596254`*^9}, { 3.4291092659052315`*^9, 3.429109267137384*^9}, {3.4530695347670865`*^9, 3.453069535027461*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PrintCommutators", "[", RowBox[{ SubscriptBox["l", "la4"], ",", RowBox[{"LaReal4basis", "[", RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}], "]"}], ",", " ", RowBox[{"LaReal4basis", "[", RowBox[{"{", RowBox[{"c", ",", "d"}], "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.4523496979343147`*^9, 3.452349699346345*^9}, { 3.452349776647499*^9, 3.4523497909580765`*^9}, {3.4523510388453555`*^9, 3.4523510392058735`*^9}, {3.4530696478496914`*^9, 3.453069702237898*^9}, { 3.4530698197068095`*^9, 3.4530698549374685`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SubscriptBox["M", RowBox[{"a", ",", "b"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["L", RowBox[{"c", ",", "d"}]], "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{ SubscriptBox["M", RowBox[{"b", ",", "d"}]], " ", SubscriptBox["\[Eta]", RowBox[{"a", ",", "c"}]]}], "-", RowBox[{ SubscriptBox["M", RowBox[{"b", ",", "c"}]], " ", SubscriptBox["\[Eta]", RowBox[{"a", ",", "d"}]]}], "+", RowBox[{ SubscriptBox["M", RowBox[{"a", ",", "d"}]], " ", SubscriptBox["\[Eta]", RowBox[{"b", ",", "c"}]]}], "-", RowBox[{ SubscriptBox["M", RowBox[{"a", ",", "c"}]], " ", SubscriptBox["\[Eta]", RowBox[{"b", ",", "d"}]]}]}]}], SequenceForm["[", Subscript[$CellContext`M, $CellContext`a, $CellContext`b], ",", Subscript[$CellContext`L, $CellContext`c, $CellContext`d], "] = ", Subscript[$CellContext`M, $CellContext`b, $CellContext`d] Subscript[$CellContext`\[Eta], $CellContext`a, $CellContext`c] - Subscript[$CellContext`M, $CellContext`b, $CellContext`c] Subscript[$CellContext`\[Eta], $CellContext`a, $CellContext`d] + Subscript[$CellContext`M, $CellContext`a, $CellContext`d] Subscript[$CellContext`\[Eta], $CellContext`b, $CellContext`c] - Subscript[$CellContext`M, $CellContext`a, $CellContext`c] Subscript[$CellContext`\[Eta], $CellContext`b, $CellContext`d]], Editable->False]], "Print", CellChangeTimes->{3.453242468894621*^9, 3.453483593759385*^9, 3.453553305986354*^9, 3.453645067064361*^9, 3.4556177296372614`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SubscriptBox["L", RowBox[{"a", ",", "b"}]], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["L", RowBox[{"c", ",", "d"}]], "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["L", RowBox[{"b", ",", "d"}]]}], " ", SubscriptBox["\[Eta]", RowBox[{"a", ",", "c"}]]}], "+", RowBox[{ SubscriptBox["L", RowBox[{"b", ",", "c"}]], " ", SubscriptBox["\[Eta]", RowBox[{"a", ",", "d"}]]}], "+", RowBox[{ SubscriptBox["L", RowBox[{"a", ",", "d"}]], " ", SubscriptBox["\[Eta]", RowBox[{"b", ",", "c"}]]}], "-", RowBox[{ SubscriptBox["L", RowBox[{"a", ",", "c"}]], " ", SubscriptBox["\[Eta]", RowBox[{"b", ",", "d"}]]}]}]}], SequenceForm["[", Subscript[$CellContext`L, $CellContext`a, $CellContext`b], ",", Subscript[$CellContext`L, $CellContext`c, $CellContext`d], "] = ", -Subscript[$CellContext`L, $CellContext`b, $CellContext`d] Subscript[$CellContext`\[Eta], $CellContext`a, $CellContext`c] + Subscript[$CellContext`L, $CellContext`b, $CellContext`c] Subscript[$CellContext`\[Eta], $CellContext`a, $CellContext`d] + Subscript[$CellContext`L, $CellContext`a, $CellContext`d] Subscript[$CellContext`\[Eta], $CellContext`b, $CellContext`c] - Subscript[$CellContext`L, $CellContext`a, $CellContext`c] Subscript[$CellContext`\[Eta], $CellContext`b, $CellContext`d]], Editable->False]], "Print", CellChangeTimes->{3.453242468894621*^9, 3.453483593759385*^9, 3.453553305986354*^9, 3.453645067064361*^9, 3.4556177296402617`*^9}], Cell[BoxData["\<\"Done\"\>"], "Print", CellChangeTimes->{3.453242468894621*^9, 3.453483593759385*^9, 3.453553305986354*^9, 3.453645067064361*^9, 3.455617729643262*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TestJacobiReturn", "[", RowBox[{ SubscriptBox["l", "la4"], ",", RowBox[{"{", "}"}], ",", RowBox[{"LaReal4basis", "[", RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}], "]"}], ",", RowBox[{"LaReal4basis", "[", RowBox[{"{", RowBox[{"c", ",", "d"}], "}"}], "]"}], ",", RowBox[{"LaReal4basis", "[", RowBox[{"{", RowBox[{"e", ",", "f"}], "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.452207455555413*^9, 3.4522075712417617`*^9}, { 3.452209061324395*^9, 3.4522090785992355`*^9}, {3.452347001898718*^9, 3.4523470149574957`*^9}, 3.452347058980798*^9, {3.4523502834061823`*^9, 3.4523503310446825`*^9}, {3.452351011055395*^9, 3.4523510157321205`*^9}, { 3.4523511317389297`*^9, 3.452351157666211*^9}, {3.4530697175198717`*^9, 3.4530697462511854`*^9}, {3.4530698659733377`*^9, 3.4530698830979614`*^9}, {3.455637300981275*^9, 3.4556373021853952`*^9}}], Cell[BoxData[ RowBox[{"{", "}"}]], "Output", CellChangeTimes->{3.455637305296706*^9}] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Oscillator Algebra", "Section", CellChangeTimes->{{3.4281011894382477`*^9, 3.4281012112596254`*^9}, { 3.428104597220191*^9, 3.428104601035677*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PrintCommutators", "[", RowBox[{ SubscriptBox["l", "os3"], ",", RowBox[{"Oscillator3basis", "[", RowBox[{"{", "i", "}"}], "]"}], ",", RowBox[{"Oscillator3basis", "[", RowBox[{"{", "j", "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.4523496979343147`*^9, 3.452349699346345*^9}, { 3.452349776647499*^9, 3.4523497909580765`*^9}, {3.4523510388453555`*^9, 3.4523510392058735`*^9}, {3.453066005362051*^9, 3.4530660540620785`*^9}, { 3.453067736421192*^9, 3.4530677542468243`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SubscriptBox["P", "i"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", SubscriptBox["Q", "j"], "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", RowBox[{"\[CapitalIota]", " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "j"}]]}]}], SequenceForm["[", Subscript[$CellContext`P, $CellContext`i], ",", Subscript[$CellContext`Q, $CellContext`j], "] = ", $CellContext`\[CapitalIota] Subscript[$CellContext`\[Delta], $CellContext`i, $CellContext`j]], Editable->False]], "Print", CellChangeTimes->{3.453242469927621*^9, 3.4534835942544346`*^9, 3.4535533065324087`*^9, 3.453645067626417*^9, 3.4556177302073183`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SubscriptBox["P", "i"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "U", "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", RowBox[{"-", SubscriptBox["Q", "i"]}]}], SequenceForm["[", Subscript[$CellContext`P, $CellContext`i], ",", $CellContext`U, "] = ", - Subscript[$CellContext`Q, $CellContext`i]], Editable->False]], "Print", CellChangeTimes->{3.453242469927621*^9, 3.4534835942544346`*^9, 3.4535533065324087`*^9, 3.453645067626417*^9, 3.455617730209318*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SubscriptBox["Q", "i"], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "U", "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", SubscriptBox["P", "i"]}], SequenceForm["[", Subscript[$CellContext`Q, $CellContext`i], ",", $CellContext`U, "] = ", Subscript[$CellContext`P, $CellContext`i]], Editable->False]], "Print", CellChangeTimes->{3.453242469927621*^9, 3.4534835942544346`*^9, 3.4535533065324087`*^9, 3.453645067626417*^9, 3.455617730213319*^9}], Cell[BoxData["\<\"Done\"\>"], "Print", CellChangeTimes->{3.453242469927621*^9, 3.4534835942544346`*^9, 3.4535533065324087`*^9, 3.453645067626417*^9, 3.4556177302173195`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TestJacobi", "[", RowBox[{ SubscriptBox["l", "os3"], ",", RowBox[{"{", "}"}], ",", RowBox[{"Oscillator3basis", "[", RowBox[{"{", "i", "}"}], "]"}], ",", RowBox[{"Oscillator3basis", "[", RowBox[{"{", "j", "}"}], "]"}], ",", RowBox[{"Oscillator3basis", "[", RowBox[{"{", "k", "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.452207455555413*^9, 3.4522075712417617`*^9}, { 3.452209061324395*^9, 3.4522090785992355`*^9}, {3.452347001898718*^9, 3.4523470149574957`*^9}, 3.452347058980798*^9, {3.4523502834061823`*^9, 3.4523503310446825`*^9}, {3.452351011055395*^9, 3.4523510157321205`*^9}, { 3.4523511317389297`*^9, 3.452351157666211*^9}, {3.4530672885872383`*^9, 3.4530673395605345`*^9}, {3.4530675439944963`*^9, 3.453067564243613*^9}, { 3.4530677583126707`*^9, 3.453067763560216*^9}}], Cell[BoxData["\<\"Done\"\>"], "Print", CellChangeTimes->{3.4532424701056213`*^9, 3.453483594370446*^9, 3.45355330664742*^9, 3.4536450677564306`*^9, 3.455617730339331*^9}] }, Open ]] }, Closed]] }, Open ]] }, WindowSize->{1264, 958}, WindowMargins->{{-84, Automatic}, {Automatic, -15}}, ShowSelection->True, Magnification->2.0999999046325684`, FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (February 18, 2009)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[567, 22, 209, 3, 171, "Title"], Cell[779, 27, 260, 6, 94, "Text"], Cell[CellGroupData[{ Cell[1064, 37, 256, 3, 147, "Section"], Cell[1323, 42, 91, 1, 60, "Input"], Cell[CellGroupData[{ Cell[1439, 47, 1078, 20, 129, "Input"], Cell[2520, 69, 980, 29, 92, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[3549, 104, 424, 11, 147, "Section"], Cell[CellGroupData[{ Cell[3998, 119, 268, 6, 95, "Input"], Cell[4269, 127, 534, 12, 92, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4840, 144, 626, 16, 129, "Input"], Cell[5469, 162, 166, 3, 87, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[5684, 171, 203, 3, 147, "Section"], Cell[5890, 176, 780, 20, 64, "Input"], Cell[CellGroupData[{ Cell[6695, 200, 1278, 31, 64, "Input"], Cell[7976, 233, 2332, 59, 104, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[10345, 297, 266, 8, 63, "Input"], Cell[10614, 307, 986, 28, 63, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[11637, 340, 489, 13, 63, "Input"], Cell[12129, 355, 2206, 58, 104, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[14372, 418, 318, 9, 60, "Input"], Cell[14693, 429, 927, 27, 62, "Output"] }, Open ]], Cell[15635, 459, 258, 7, 87, "Input"], Cell[CellGroupData[{ Cell[15918, 470, 737, 17, 90, "Input"], Cell[16658, 489, 1101, 38, 90, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[17796, 532, 612, 15, 125, "Input"], Cell[18411, 549, 85, 2, 87, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[18533, 556, 570, 15, 125, "Input"], Cell[19106, 573, 87, 2, 87, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[19242, 581, 253, 3, 147, "Section"], Cell[19498, 586, 981, 22, 64, "Input"], Cell[20482, 610, 990, 22, 62, "Input"], Cell[CellGroupData[{ Cell[21497, 636, 1318, 28, 101, "Input"], Cell[22818, 666, 2303, 55, 101, "Output"] }, Open ]], Cell[25136, 724, 69, 1, 45, "TextNoIndent"], Cell[25208, 727, 2042, 50, 102, "Output"], Cell[CellGroupData[{ Cell[27275, 781, 2474, 61, 139, "Input"], Cell[29752, 844, 2300, 58, 104, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[32089, 907, 773, 15, 62, "Input"], Cell[32865, 924, 1785, 36, 62, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[34687, 965, 850, 22, 102, "Input"], Cell[35540, 989, 2816, 61, 101, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[38393, 1055, 3100, 93, 350, "Input"], Cell[41496, 1150, 330, 9, 60, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[41863, 1164, 662, 16, 102, "Input"], Cell[CellGroupData[{ Cell[42550, 1184, 872, 20, 48, "Print"], Cell[43425, 1206, 202, 3, 45, "Print"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[43688, 1216, 147, 2, 147, "Section"], Cell[CellGroupData[{ Cell[43860, 1222, 142, 1, 75, "Subsection"], Cell[44005, 1225, 261, 5, 25095719, "Text"], Cell[44269, 1232, 92, 1, 16243549, "Input"], Cell[44364, 1235, 1063, 29, 59989819, "Input"], Cell[45430, 1266, 2243, 55, 75437072, "Input"], Cell[CellGroupData[{ Cell[47698, 1325, 1149, 24, 33435686, "Input"], Cell[48850, 1351, 932, 28, 26203, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[49819, 1384, 928, 21, 33435686, "Input"], Cell[50750, 1407, 803, 26, 26203, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[51590, 1438, 930, 21, 33435686, "Input"], Cell[52523, 1461, 758, 25, 26203, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[53330, 1492, 195, 2, 54, "Subsection"], Cell[53528, 1496, 374, 7, 129, "Text"], Cell[53905, 1505, 1295, 32, 220, "Input"], Cell[55203, 1539, 3537, 82, 379, "Input"], Cell[CellGroupData[{ Cell[58765, 1625, 1376, 27, 100, "Input"], Cell[60144, 1654, 727, 24, 62, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[60908, 1683, 1376, 27, 100, "Input"], Cell[62287, 1712, 1004, 28, 62, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[63328, 1745, 1325, 26, 100, "Input"], Cell[64656, 1773, 1054, 29, 62, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[65747, 1807, 1108, 23, 100, "Input"], Cell[66858, 1832, 854, 27, 62, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[67761, 1865, 260, 3, 75, "Subsection"], Cell[68024, 1870, 1267, 36, 189, "Input"], Cell[CellGroupData[{ Cell[69316, 1910, 1164, 38, 102, "Input"], Cell[70483, 1950, 865, 28, 62, "Output"] }, Open ]], Cell[71363, 1981, 1256, 32, 219, "Input"], Cell[72622, 2015, 590, 15, 135, "Input"], Cell[CellGroupData[{ Cell[73237, 2034, 485, 11, 63, "Input"], Cell[73725, 2047, 779, 20, 62, "Output"] }, Open ]], Cell[74519, 2070, 384, 11, 63, "Input"], Cell[CellGroupData[{ Cell[74928, 2085, 770, 15, 98, "Input"], Cell[75701, 2102, 2524, 79, 138, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[78274, 2187, 255, 3, 75, "Subsection"], Cell[CellGroupData[{ Cell[78554, 2194, 648, 14, 2423, "Input"], Cell[CellGroupData[{ Cell[79227, 2212, 1226, 29, 919, "Print"], Cell[80456, 2243, 106, 1, 867, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[80611, 2250, 909, 19, 2423, "Input"], Cell[81523, 2271, 115, 2, 1684, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[81687, 2279, 178, 2, 54, "Subsection"], Cell[CellGroupData[{ Cell[81890, 2285, 592, 13, 1894, "Input"], Cell[CellGroupData[{ Cell[82507, 2302, 1809, 45, 919, "Print"], Cell[84319, 2349, 1788, 44, 919, "Print"], Cell[86110, 2395, 1815, 45, 919, "Print"], Cell[87928, 2442, 202, 3, 867, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[88179, 2451, 590, 13, 1894, "Input"], Cell[CellGroupData[{ Cell[88794, 2468, 1818, 46, 902, "Print"], Cell[90615, 2516, 1795, 45, 902, "Print"], Cell[92413, 2563, 1818, 46, 902, "Print"], Cell[94234, 2611, 227, 4, 867, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[94510, 2621, 638, 14, 1894, "Input"], Cell[95151, 2637, 2636, 90, 2671, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[97824, 2732, 849, 19, 1894, "Input"], Cell[98676, 2753, 199, 3, 867, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[98912, 2761, 849, 19, 1894, "Input"], Cell[99764, 2782, 204, 3, 867, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[100005, 2790, 592, 13, 1894, "Input"], Cell[CellGroupData[{ Cell[100622, 2807, 1811, 45, 919, "Print"], Cell[102436, 2854, 1788, 44, 919, "Print"], Cell[104227, 2900, 1811, 45, 919, "Print"], Cell[106041, 2947, 204, 3, 867, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[106294, 2956, 590, 13, 1894, "Input"], Cell[CellGroupData[{ Cell[106909, 2973, 1818, 46, 902, "Print"], Cell[108730, 3021, 1797, 45, 902, "Print"], Cell[110530, 3068, 1822, 46, 902, "Print"], Cell[112355, 3116, 227, 4, 867, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[112631, 3126, 638, 14, 1894, "Input"], Cell[113272, 3142, 2634, 90, 2671, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[115943, 3237, 849, 19, 1894, "Input"], Cell[116795, 3258, 194, 3, 867, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[117026, 3266, 849, 19, 1894, "Input"], Cell[117878, 3287, 204, 3, 867, "Print"] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[118143, 3297, 147, 2, 147, "Section"], Cell[CellGroupData[{ Cell[118315, 3303, 526, 11, 60, "Input"], Cell[118844, 3316, 173, 2, 45, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[119054, 3323, 755, 16, 98, "Input"], Cell[119812, 3341, 175, 2, 45, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[120036, 3349, 288, 4, 147, "Section"], Cell[CellGroupData[{ Cell[120349, 3357, 262, 6, 75, "Subsection"], Cell[CellGroupData[{ Cell[120636, 3367, 466, 15, 32743, "Input"], Cell[121105, 3384, 183, 4, 32743, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[121325, 3393, 569, 14, 33753, "Input"], Cell[CellGroupData[{ Cell[121919, 3411, 1379, 28, 16850, "Print"], Cell[123301, 3441, 909, 19, 16850, "Print"], Cell[124213, 3462, 174, 2, 16850, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[124436, 3470, 899, 21, 48495, "Input"], Cell[125338, 3493, 177, 2, 16850, "Print"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[125564, 3501, 283, 6, 54, "Subsection"], Cell[CellGroupData[{ Cell[125872, 3511, 677, 15, 33753, "Input"], Cell[126552, 3528, 1327, 35, 34374, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[127916, 3568, 1114, 20, 34687, "Input"], Cell[129033, 3590, 988, 27, 34374, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[130058, 3622, 1219, 22, 34687, "Input"], Cell[131280, 3646, 981, 26, 34374, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[132298, 3677, 1156, 24, 48495, "Input"], Cell[CellGroupData[{ Cell[133479, 3705, 2191, 46, 18314, "Print"], Cell[135673, 3753, 2217, 46, 18314, "Print"], Cell[137893, 3801, 1393, 30, 18314, "Print"], Cell[139289, 3833, 2187, 46, 18314, "Print"], Cell[141479, 3881, 1348, 29, 18314, "Print"], Cell[142830, 3912, 1389, 30, 17537, "Print"], Cell[144222, 3944, 104, 1, 16850, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[144375, 3951, 1138, 24, 48495, "Input"], Cell[145516, 3977, 3197, 83, 64556, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[148762, 4066, 318, 6, 54, "Subsection"], Cell[CellGroupData[{ Cell[149105, 4076, 698, 16, 98, "Input"], Cell[149806, 4094, 1408, 48, 104, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[151251, 4147, 1411, 48, 102, "Input"], Cell[152665, 4197, 1386, 48, 104, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[154088, 4250, 893, 19, 125, "Input"], Cell[154984, 4271, 89, 2, 87, "Output"] }, Open ]], Cell[155088, 4276, 92, 1, 60, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[155217, 4282, 369, 7, 75, "Subsection"], Cell[CellGroupData[{ Cell[155611, 4293, 626, 14, 32743, "Input"], Cell[156240, 4309, 1445, 49, 47812, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[157722, 4363, 940, 20, 47115, "Input"], Cell[CellGroupData[{ Cell[158687, 4387, 987, 21, 17537, "Print"], Cell[159677, 4410, 944, 20, 17537, "Print"], Cell[160624, 4432, 944, 20, 17537, "Print"], Cell[161571, 4454, 905, 19, 17537, "Print"], Cell[162479, 4475, 946, 20, 17537, "Print"], Cell[163428, 4497, 903, 19, 17537, "Print"], Cell[164334, 4518, 905, 19, 17537, "Print"], Cell[165242, 4539, 861, 18, 16850, "Print"], Cell[166106, 4559, 312, 4, 16850, "Print"] }, Open ]] }, Open ]], Cell[166445, 4567, 92, 1, 32743, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[166574, 4573, 346, 6, 54, "Subsection"], Cell[CellGroupData[{ Cell[166945, 4583, 704, 14, 33753, "Input"], Cell[167652, 4599, 1603, 47, 47812, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[169292, 4651, 999, 21, 48495, "Input"], Cell[170294, 4674, 89, 2, 32743, "Output"] }, Open ]], Cell[170398, 4679, 92, 1, 32743, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[170527, 4685, 366, 6, 54, "Subsection"], Cell[CellGroupData[{ Cell[170918, 4695, 803, 17, 33753, "Input"], Cell[CellGroupData[{ Cell[171746, 4716, 1991, 49, 17537, "Print"], Cell[173740, 4767, 1346, 33, 17537, "Print"], Cell[175089, 4802, 679, 15, 17537, "Print"], Cell[175771, 4819, 131, 2, 16850, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[175951, 4827, 1187, 21, 47115, "Input"], Cell[177141, 4850, 911, 29, 33381, "Output"] }, Open ]], Cell[178067, 4882, 1188, 22, 48495, "Input"], Cell[179258, 4906, 949, 28, 32743, InheritFromParent], Cell[180210, 4936, 929, 24, 23715, InheritFromParent], Cell[CellGroupData[{ Cell[181164, 4964, 1218, 22, 47115, "Input"], Cell[182385, 4988, 1026, 32, 33381, "Output"] }, Open ]], Cell[183426, 5023, 1326, 25, 48495, "Input"], Cell[184755, 5050, 1861, 46, 93966, "Input"], Cell[186619, 5098, 2188, 54, 77741, InheritFromParent], Cell[188810, 5154, 1281, 35, 39511, InheritFromParent], Cell[CellGroupData[{ Cell[190116, 5193, 1179, 23, 47115, "Input"], Cell[191298, 5218, 65325, 1960, 1125801, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[256660, 7183, 1156, 23, 42256, "Input"], Cell[257819, 7208, 8362, 233, 203979, "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[266230, 7447, 361, 6, 54, "Subsection"], Cell[CellGroupData[{ Cell[266616, 7457, 725, 15, 32743, "Input"], Cell[267344, 7474, 4446, 154, 91051, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[271827, 7633, 997, 21, 40613, "Input"], Cell[CellGroupData[{ Cell[272849, 7658, 1073, 23, 17537, "Print"], Cell[273925, 7683, 1073, 23, 17537, "Print"], Cell[275001, 7708, 1030, 22, 17537, "Print"], Cell[276034, 7732, 1032, 22, 17537, "Print"], Cell[277069, 7756, 1071, 23, 17537, "Print"], Cell[278143, 7781, 1071, 23, 17537, "Print"], Cell[279217, 7806, 1032, 22, 17537, "Print"], Cell[280252, 7830, 1032, 22, 17537, "Print"], Cell[281287, 7854, 1030, 22, 17537, "Print"], Cell[282320, 7878, 1032, 22, 17537, "Print"], Cell[283355, 7902, 988, 21, 17537, "Print"], Cell[284346, 7925, 991, 21, 17537, "Print"], Cell[285340, 7948, 1032, 22, 17537, "Print"], Cell[286375, 7972, 1030, 22, 17537, "Print"], Cell[287408, 7996, 989, 21, 17537, "Print"], Cell[288400, 8019, 989, 21, 17537, "Print"], Cell[289392, 8042, 1071, 23, 17537, "Print"], Cell[290466, 8067, 1071, 23, 17537, "Print"], Cell[291540, 8092, 1032, 22, 17537, "Print"], Cell[292575, 8116, 1032, 22, 17537, "Print"], Cell[293610, 8140, 1071, 23, 17537, "Print"], Cell[294684, 8165, 1071, 23, 17537, "Print"], Cell[295758, 8190, 1032, 22, 17537, "Print"], Cell[296793, 8214, 1032, 22, 17537, "Print"], Cell[297828, 8238, 1030, 22, 17537, "Print"], Cell[298861, 8262, 1032, 22, 17537, "Print"], Cell[299896, 8286, 991, 21, 17537, "Print"], Cell[300890, 8309, 989, 21, 17537, "Print"], Cell[301882, 8332, 1032, 22, 17537, "Print"], Cell[302917, 8356, 1032, 22, 17537, "Print"], Cell[303952, 8380, 989, 21, 17537, "Print"], Cell[304944, 8403, 989, 21, 17537, "Print"], Cell[305936, 8426, 1032, 22, 17537, "Print"], Cell[306971, 8450, 1032, 22, 17537, "Print"], Cell[308006, 8474, 989, 21, 17537, "Print"], Cell[308998, 8497, 991, 21, 17537, "Print"], Cell[309992, 8520, 1032, 22, 17537, "Print"], Cell[311027, 8544, 1030, 22, 17537, "Print"], Cell[312060, 8568, 991, 21, 17537, "Print"], Cell[313054, 8591, 991, 21, 17537, "Print"], Cell[314048, 8614, 991, 21, 17537, "Print"], Cell[315042, 8637, 991, 21, 17537, "Print"], Cell[316036, 8660, 950, 20, 16850, "Print"], Cell[316989, 8682, 947, 20, 16850, "Print"], Cell[317939, 8704, 988, 21, 17537, "Print"], Cell[318930, 8727, 991, 21, 17537, "Print"], Cell[319924, 8750, 950, 20, 16850, "Print"], Cell[320877, 8772, 950, 20, 16850, "Print"], Cell[321830, 8794, 1032, 22, 17537, "Print"], Cell[322865, 8818, 1032, 22, 17537, "Print"], Cell[323900, 8842, 989, 21, 17537, "Print"], Cell[324892, 8865, 991, 21, 17537, "Print"], Cell[325886, 8888, 1032, 22, 17537, "Print"], Cell[326921, 8912, 1030, 22, 17537, "Print"], Cell[327954, 8936, 991, 21, 17537, "Print"], Cell[328948, 8959, 989, 21, 17537, "Print"], Cell[329940, 8982, 989, 21, 17537, "Print"], Cell[330932, 9005, 991, 21, 17537, "Print"], Cell[331926, 9028, 950, 20, 16850, "Print"], Cell[332879, 9050, 950, 20, 16850, "Print"], Cell[333832, 9072, 991, 21, 17537, "Print"], Cell[334826, 9095, 991, 21, 17537, "Print"], Cell[335820, 9118, 950, 20, 16850, "Print"], Cell[336773, 9140, 950, 20, 16850, "Print"], Cell[337726, 9162, 401, 6, 16850, "Print"] }, Open ]] }, Open ]], Cell[338154, 9172, 92, 1, 32743, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[338283, 9178, 309, 5, 54, "Subsection"], Cell[CellGroupData[{ Cell[338617, 9187, 574, 13, 32743, "Input"], Cell[CellGroupData[{ Cell[339216, 9204, 1911, 46, 17858, "Print"], Cell[341130, 9252, 1226, 29, 17858, "Print"], Cell[342359, 9283, 1226, 29, 17858, "Print"], Cell[343588, 9314, 302, 4, 16850, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[343939, 9324, 938, 20, 47115, "Input"], Cell[CellGroupData[{ Cell[344902, 9348, 1016, 22, 17858, "Print"], Cell[345921, 9372, 975, 21, 17537, "Print"], Cell[346899, 9395, 973, 21, 17537, "Print"], Cell[347875, 9418, 951, 19, 17537, "Print"], Cell[348829, 9439, 975, 21, 17858, "Print"], Cell[349807, 9462, 932, 20, 17537, "Print"], Cell[350742, 9484, 934, 20, 17537, "Print"], Cell[351679, 9506, 912, 18, 17537, "Print"], Cell[352594, 9526, 975, 21, 17858, "Print"], Cell[353572, 9549, 934, 20, 17537, "Print"], Cell[354509, 9571, 934, 20, 17537, "Print"], Cell[355446, 9593, 910, 18, 17537, "Print"], Cell[356359, 9613, 955, 20, 17858, "Print"], Cell[357317, 9635, 916, 19, 17537, "Print"], Cell[358236, 9656, 914, 19, 17537, "Print"], Cell[359153, 9677, 895, 18, 17537, "Print"], Cell[360051, 9697, 975, 21, 17858, "Print"], Cell[361029, 9720, 932, 20, 17537, "Print"], Cell[361964, 9742, 934, 20, 17537, "Print"], Cell[362901, 9764, 912, 18, 17537, "Print"], Cell[363816, 9784, 932, 20, 17858, "Print"], Cell[364751, 9806, 891, 19, 16850, "Print"], Cell[365645, 9827, 893, 19, 16850, "Print"], Cell[366541, 9848, 869, 17, 16850, "Print"], Cell[367413, 9867, 934, 20, 17858, "Print"], Cell[368350, 9889, 890, 19, 16850, "Print"], Cell[369243, 9910, 890, 19, 16850, "Print"], Cell[370136, 9931, 871, 17, 16850, "Print"], Cell[371010, 9950, 916, 19, 17858, "Print"], Cell[371929, 9971, 875, 18, 16850, "Print"], Cell[372807, 9991, 875, 18, 16850, "Print"], Cell[373685, 10011, 856, 17, 16850, "Print"], Cell[374544, 10030, 975, 21, 17858, "Print"], Cell[375522, 10053, 934, 20, 17537, "Print"], Cell[376459, 10075, 934, 20, 17537, "Print"], Cell[377396, 10097, 912, 18, 17537, "Print"], Cell[378311, 10117, 934, 20, 17858, "Print"], Cell[379248, 10139, 891, 19, 16850, "Print"