(* 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[ 354466, 8672] NotebookOptionsPosition[ 342660, 8334] NotebookOutlinePosition[ 343064, 8351] CellTagsIndexPosition[ 343021, 8348] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Specific Lie algebra definition rules", "Title", CellChangeTimes->{{3.428101159955854*^9, 3.4281011714223423`*^9}, { 3.4281082256661763`*^9, 3.42810823136528*^9}, {3.453242192069621*^9, 3.453242193498621*^9}}], Cell["\<\ This book defines the Lie algebra for groups in course notes\ \>", "Text", CellChangeTimes->{{3.429127252574168*^9, 3.4291272888963966`*^9}, { 3.4522041199190035`*^9, 3.452204132286787*^9}}], Cell[CellGroupData[{ Cell["Utilities", "Section", CellChangeTimes->{{3.4281011894382477`*^9, 3.4281012112596254`*^9}, { 3.4291092659052315`*^9, 3.429109267137384*^9}, {3.4292270956369796`*^9, 3.429227096778553*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\n", RowBox[{ RowBox[{ RowBox[{"genRules", "[", RowBox[{ "rules_", ",", "auxrules_", ",", "basis_", ",", "b1_", ",", "b2_", ",", "b3_", ",", "b4_", ",", "A_", ",", "B_"}], "]"}], " ", ":=", " ", RowBox[{"Dispatch", "[", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Thread", "[", RowBox[{"tempFunction", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"Outer", "[", RowBox[{"l", ",", RowBox[{"basis", "[", "b3", "]"}], ",", RowBox[{"basis", "[", "b4", "]"}]}], "]"}], "]"}], ",", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"Outer", "[", RowBox[{"l", ",", RowBox[{"basis", "[", "b1", "]"}], ",", RowBox[{"basis", "[", "b2", "]"}]}], "]"}], "]"}], "//.", RowBox[{"Flatten", "[", RowBox[{"{", RowBox[{"rules", ",", "generalRules"}], "}"}], "]"}]}]}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Thread", "[", RowBox[{"tempFunction", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"A___", "\[CenterDot]", RowBox[{"Outer", "[", RowBox[{"l", ",", RowBox[{"basis", "[", "b3", "]"}], ",", RowBox[{"basis", "[", "b4", "]"}]}], "]"}], "\[CenterDot]", "B___"}], "]"}], ",", RowBox[{ RowBox[{"A", "\[CenterDot]", RowBox[{"Flatten", "[", RowBox[{"Outer", "[", RowBox[{"l", ",", RowBox[{"basis", "[", "b1", "]"}], ",", RowBox[{"basis", "[", "b2", "]"}]}], "]"}], "]"}], "\[CenterDot]", "B"}], "//.", RowBox[{"Flatten", "[", RowBox[{"{", RowBox[{"rules", ",", "generalRules"}], "}"}], "]"}]}]}], "]"}], "]"}], ",", "auxrules"}], "}"}], "\[IndentingNewLine]", "//.", RowBox[{"tempFunction", ":>", "RuleDelayed"}]}], "]"}], "]"}]}], ";"}]}]], "Input", CellChangeTimes->{{3.429227126008835*^9, 3.429227142311301*^9}, { 3.429227200351286*^9, 3.429227401409552*^9}, {3.429227493203376*^9, 3.4292275795392427`*^9}, {3.429227834460885*^9, 3.429227842001879*^9}, { 3.4292278917544117`*^9, 3.4292278972023544`*^9}, {3.4292281179441676`*^9, 3.4292281896086454`*^9}, {3.429228222376416*^9, 3.4292283402282295`*^9}, { 3.429228404101348*^9, 3.4292284505090046`*^9}, {3.429228497507522*^9, 3.4292285994060774`*^9}, {3.4292287537210484`*^9, 3.429228907204808*^9}, { 3.4292291143968678`*^9, 3.4292291220680513`*^9}, {3.429229182626337*^9, 3.4292292070920053`*^9}, {3.429229285366119*^9, 3.429229289922762*^9}, { 3.429229396367945*^9, 3.4292294386395717`*^9}, 3.429229560587356*^9, 3.4292296123227797`*^9, {3.4292296919588785`*^9, 3.4292297423122873`*^9}, { 3.429229886352279*^9, 3.429229896096485*^9}, {3.4292300010595074`*^9, 3.4292300213791313`*^9}, 3.4292300763292413`*^9, {3.429230173480876*^9, 3.4292301917775497`*^9}, {3.4292302220917444`*^9, 3.4292302748586717`*^9}, 3.4292303269345913`*^9, 3.429230392480149*^9, {3.4633143304526196`*^9, 3.4633143423351836`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"RuleDelayed", "::", "\<\"rhs\"\>"}], RowBox[{ ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Pattern \\\\\\\"\\\", \\\"MT\ \\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(A___\\), \ \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" appears on the \ right-hand side of rule \\\\\\\"\\\", \ \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(\\(\\(genRules[\\(\\(rules_, \ auxrules_, basis_, b1_, b2_, b3_, b4_, A_, B_\\)\\)]\\)\\) \[RuleDelayed] \\(\ \\(Dispatch[\\(\\(Flatten[\\(\\(\\(\\({\\(\\(Thread[\\(\\(tempFunction[\\(\\(\ \\(\\(Flatten[\\(\\(\[LeftSkeleton] 1 \[RightSkeleton]\\)\\)]\\)\\), \ \\(\\(ReplaceRepeated[\\(\\(\[LeftSkeleton] 2 \ \[RightSkeleton]\\)\\)]\\)\\)\\)\\)]\\)\\)]\\)\\), \ \\(\\(Thread[\\(\\(tempFunction[\\(\\(\\(\\(Flatten[\\(\\(\[LeftSkeleton] 1 \ \[RightSkeleton]\\)\\)]\\)\\), \\(\\(ReplaceRepeated[\\(\\(\[LeftSkeleton] 2 \ \[RightSkeleton]\\)\\)]\\)\\)\\)\\)]\\)\\)]\\)\\), auxrules}\\)\\)//.\ \[InvisibleSpace] \\(\\(tempFunction \[RuleDelayed] \ RuleDelayed\\)\\)\\)\\)]\\)\\)]\\)\\)\\), \ \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\".\\\\\\\"\\\", \\\"MT\\\ \"]\\) \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \ ButtonStyle->\\\"Link\\\", ButtonFrame->None, \ ButtonData:>\\\"paclet:ref/message/RuleDelayed/rhs\\\", ButtonNote -> \ \\\"RuleDelayed::rhs\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{ 3.429230825020737*^9, 3.429231020625904*^9, {3.429273944447576*^9, 3.429273949695122*^9}, 3.4293701186910596`*^9, 3.429383519575008*^9, 3.4293837326856956`*^9, 3.4293837720230446`*^9, {3.429401205720334*^9, 3.4294012291945567`*^9}, 3.4294016683047233`*^9, 3.429402083129484*^9, 3.4294873772900753`*^9, 3.4294876934910555`*^9, 3.4294883442597933`*^9, 3.429488451295838*^9, 3.4296625936705055`*^9, 3.4296651280687222`*^9, 3.4297377794010468`*^9, 3.4299852894180546`*^9, 3.4301531184669824`*^9, 3.4301546424683886`*^9, 3.4301548813518867`*^9, 3.430327299743553*^9, 3.4309198118530655`*^9, 3.430920100448045*^9, 3.4310401669801445`*^9, 3.4321526182221537`*^9, 3.4354230526277122`*^9, 3.4423356010713415`*^9, 3.44233634189739*^9, 3.4423428729970727`*^9, 3.4424506248778048`*^9, 3.442525194078375*^9, 3.4426158937254047`*^9, 3.4426627637818174`*^9, 3.442662833121523*^9, 3.4427084819086485`*^9, 3.4427110719260206`*^9, { 3.4427700198546114`*^9, 3.4427700427291*^9}, 3.442771322849167*^9, 3.442771493526501*^9, 3.442771572295263*^9, 3.442772615968834*^9, 3.4427730164826975`*^9, 3.4427731926583223`*^9, 3.442777203550657*^9, 3.442795621339737*^9, 3.44287150856252*^9, 3.442970003801956*^9, 3.4430630152264752`*^9, 3.44321947412123*^9, 3.4444145389723277`*^9, 3.444415722035512*^9, 3.444415777007847*^9, 3.4522045496569357`*^9, 3.4523461602775865`*^9, 3.4530657094665747`*^9, 3.4530665013752832`*^9, 3.4532421975666213`*^9, 3.4532423122966213`*^9, 3.4535532769274483`*^9, 3.4535541197127233`*^9, 3.4535541962813797`*^9, 3.453586332199*^9, 3.4536450413207874`*^9, 3.4537237317221384`*^9, 3.453762881582*^9, 3.4539892714101534`*^9, 3.4555772814096355`*^9, 3.4556176890782056`*^9, 3.4556364729654818`*^9, 3.455658363707431*^9, 3.460157909352*^9, 3.460158045547*^9, 3.460217514766447*^9, 3.460246042000871*^9, 3.460282522067607*^9, 3.4603105377292943`*^9, 3.4633143478498373`*^9, 3.4633158248911667`*^9, 3.464303423266*^9}], Cell[BoxData[ RowBox[{ RowBox[{"RuleDelayed", "::", "\<\"rhs\"\>"}], RowBox[{ ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Pattern \\\\\\\"\\\", \\\"MT\ \\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(B___\\), \ \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" appears on the \ right-hand side of rule \\\\\\\"\\\", \ \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(\\(\\(genRules[\\(\\(rules_, \ auxrules_, basis_, b1_, b2_, b3_, b4_, A_, B_\\)\\)]\\)\\) \[RuleDelayed] \\(\ \\(Dispatch[\\(\\(Flatten[\\(\\(\\(\\({\\(\\(Thread[\\(\\(tempFunction[\\(\\(\ \\(\\(Flatten[\\(\\(\[LeftSkeleton] 1 \[RightSkeleton]\\)\\)]\\)\\), \ \\(\\(ReplaceRepeated[\\(\\(\[LeftSkeleton] 2 \ \[RightSkeleton]\\)\\)]\\)\\)\\)\\)]\\)\\)]\\)\\), \ \\(\\(Thread[\\(\\(tempFunction[\\(\\(\\(\\(Flatten[\\(\\(\[LeftSkeleton] 1 \ \[RightSkeleton]\\)\\)]\\)\\), \\(\\(ReplaceRepeated[\\(\\(\[LeftSkeleton] 2 \ \[RightSkeleton]\\)\\)]\\)\\)\\)\\)]\\)\\)]\\)\\), auxrules}\\)\\)//.\ \[InvisibleSpace] \\(\\(tempFunction \[RuleDelayed] \ RuleDelayed\\)\\)\\)\\)]\\)\\)]\\)\\)\\), \ \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\".\\\\\\\"\\\", \\\"MT\\\ \"]\\) \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \ ButtonStyle->\\\"Link\\\", ButtonFrame->None, \ ButtonData:>\\\"paclet:ref/message/RuleDelayed/rhs\\\", ButtonNote -> \ \\\"RuleDelayed::rhs\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{ 3.429230825020737*^9, 3.429231020625904*^9, {3.429273944447576*^9, 3.429273949695122*^9}, 3.4293701186910596`*^9, 3.429383519575008*^9, 3.4293837326856956`*^9, 3.4293837720230446`*^9, {3.429401205720334*^9, 3.4294012291945567`*^9}, 3.4294016683047233`*^9, 3.429402083129484*^9, 3.4294873772900753`*^9, 3.4294876934910555`*^9, 3.4294883442597933`*^9, 3.429488451295838*^9, 3.4296625936705055`*^9, 3.4296651280687222`*^9, 3.4297377794010468`*^9, 3.4299852894180546`*^9, 3.4301531184669824`*^9, 3.4301546424683886`*^9, 3.4301548813518867`*^9, 3.430327299743553*^9, 3.4309198118530655`*^9, 3.430920100448045*^9, 3.4310401669801445`*^9, 3.4321526182221537`*^9, 3.4354230526277122`*^9, 3.4423356010713415`*^9, 3.44233634189739*^9, 3.4423428729970727`*^9, 3.4424506248778048`*^9, 3.442525194078375*^9, 3.4426158937254047`*^9, 3.4426627637818174`*^9, 3.442662833121523*^9, 3.4427084819086485`*^9, 3.4427110719260206`*^9, { 3.4427700198546114`*^9, 3.4427700427291*^9}, 3.442771322849167*^9, 3.442771493526501*^9, 3.442771572295263*^9, 3.442772615968834*^9, 3.4427730164826975`*^9, 3.4427731926583223`*^9, 3.442777203550657*^9, 3.442795621339737*^9, 3.44287150856252*^9, 3.442970003801956*^9, 3.4430630152264752`*^9, 3.44321947412123*^9, 3.4444145389723277`*^9, 3.444415722035512*^9, 3.444415777007847*^9, 3.4522045496569357`*^9, 3.4523461602775865`*^9, 3.4530657094665747`*^9, 3.4530665013752832`*^9, 3.4532421975666213`*^9, 3.4532423122966213`*^9, 3.4535532769274483`*^9, 3.4535541197127233`*^9, 3.4535541962813797`*^9, 3.453586332199*^9, 3.4536450413207874`*^9, 3.4537237317221384`*^9, 3.453762881582*^9, 3.4539892714101534`*^9, 3.4555772814096355`*^9, 3.4556176890782056`*^9, 3.4556364729654818`*^9, 3.455658363707431*^9, 3.460157909352*^9, 3.460158045547*^9, 3.460217514766447*^9, 3.460246042000871*^9, 3.460282522067607*^9, 3.4603105377292943`*^9, 3.4633143478498373`*^9, 3.4633158248911667`*^9, 3.4643034232790003`*^9}] }, Open ]] }, Open ]], 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.452206010988227*^9, 3.452206013511856*^9}, 3.453723378480818*^9}], Cell[CellGroupData[{ Cell["Algebra ", "Subsection", CellChangeTimes->{{3.4522059142691517`*^9, 3.4522060032170525`*^9}, 3.4535533252932844`*^9, 3.4537233909540653`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"GeneralAlgebraBasis", "[", RowBox[{"{", "i_", "}"}], "]"}], ":=", RowBox[{"{", SubscriptBox["X", "i"], "}"}]}]], "Input", CellChangeTimes->{{3.4281012253398714`*^9, 3.428101225480073*^9}, { 3.428101276503441*^9, 3.428101321187694*^9}, {3.4281013552266397`*^9, 3.4281013671137323`*^9}, 3.4281013984287615`*^9, {3.4281014351415515`*^9, 3.4281014528169675`*^9}, {3.4291096599252367`*^9, 3.429109727003697*^9}, 3.4291099804156656`*^9, {3.4291101247074633`*^9, 3.4291101659780416`*^9}, { 3.4292286527238073`*^9, 3.4292286559585233`*^9}, {3.4522030331162577`*^9, 3.452203090859288*^9}, {3.4522031254590397`*^9, 3.4522031267909555`*^9}, 3.452203923166086*^9, 3.4522039714154654`*^9, {3.452204754922093*^9, 3.4522047697834625`*^9}, {3.453723395086478*^9, 3.4537234003120008`*^9}, { 3.453723469449914*^9, 3.4537234712340927`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"GeneralAlgebraRulesa", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["X", "i_"], ",", SubscriptBox["X", "j_"]}], "]"}], "\[RuleDelayed]", RowBox[{ SubsuperscriptBox["c", RowBox[{"i", ",", "j"}], "r"], SubscriptBox["X", "r"]}]}], "\[IndentingNewLine]", "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.4291113088326263`*^9, 3.429111321710759*^9}, { 3.4291118535626483`*^9, 3.4291118990790057`*^9}, {3.4291119606187224`*^9, 3.4291119635930586`*^9}, 3.4291120198050084`*^9, {3.4291273268710012`*^9, 3.4291273302158113`*^9}, {3.4292305194452477`*^9, 3.429230520166299*^9}, 3.429230762229195*^9, {3.4522031153344817`*^9, 3.4522031627126083`*^9}, { 3.4522038071292334`*^9, 3.4522038689381104`*^9}, 3.452204579179387*^9, 3.452204611075251*^9, {3.4522047760424623`*^9, 3.452204784895192*^9}, { 3.4530665641255136`*^9, 3.4530665654674435`*^9}, {3.4537234043874083`*^9, 3.4537234524842176`*^9}, {3.4537240853885016`*^9, 3.453724087722735*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"GeneralAlgebraRules", " ", "=", RowBox[{"genRules", "[", RowBox[{"GeneralAlgebraRulesa", ",", RowBox[{"{", "generalRules", "}"}], ",", "GeneralAlgebraBasis", ",", RowBox[{"{", "i", "}"}], ",", RowBox[{"{", "j", "}"}], ",", RowBox[{"{", "i_", "}"}], ",", RowBox[{"{", "j_", "}"}], ",", "A", ",", "B"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.429227589413638*^9, 3.4292275901146603`*^9}, { 3.42922766522416*^9, 3.4292276971306753`*^9}, {3.4292277976271863`*^9, 3.4292277988289385`*^9}, {3.4292289196629705`*^9, 3.4292290081319466`*^9}, {3.429229143208872*^9, 3.4292291441302147`*^9}, { 3.429229266678875*^9, 3.429229268751897*^9}, {3.4292293099820056`*^9, 3.4292293216990876`*^9}, 3.4292294659493856`*^9, 3.4292295217607517`*^9, { 3.4292303451611633`*^9, 3.4292303709287295`*^9}, 3.429230446048244*^9, { 3.4292309880083523`*^9, 3.4292309970415215`*^9}, {3.4522039324794784`*^9, 3.452203949974635*^9}, 3.4522039831924*^9, {3.4522040290783806`*^9, 3.452204030159936*^9}, 3.4522046210195503`*^9, 3.452350618958683*^9, 3.4523508932747655`*^9, {3.4530665677807693`*^9, 3.4530665693430157`*^9}, { 3.453242374160621*^9, 3.4532423764646215`*^9}, {3.453723455590528*^9, 3.4537234956385326`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["l", "g"], "[", RowBox[{"A_", ",", "B_"}], "]"}], ":=", " ", RowBox[{ RowBox[{"l", "[", RowBox[{"A", ",", "B"}], "]"}], "//.", "GeneralAlgebraRules"}]}]], "Input", CellChangeTimes->{{3.4281034785636935`*^9, 3.428103487176078*^9}, { 3.4281035197228775`*^9, 3.428103555834804*^9}, {3.428104383272549*^9, 3.4281043834127507`*^9}, {3.4291102830597935`*^9, 3.4291103035067472`*^9}, { 3.4291113936420393`*^9, 3.429111417155146*^9}, {3.429112330948675*^9, 3.4291123323308277`*^9}, {3.4522040579198527`*^9, 3.452204068434973*^9}, { 3.453066575381699*^9, 3.4530665769940176`*^9}, {3.4537234799869676`*^9, 3.4537235008370523`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Candidate CE \ \>", "Subsection", CellChangeTimes->{{3.453553310937849*^9, 3.45355335894865*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"GeneralAlgebraCEBasis", "[", RowBox[{"{", RowBox[{"i_", ",", "a_", ",", "b_"}], "}"}], "]"}], ":=", RowBox[{"{", RowBox[{ SubscriptBox["X", "i"], ",", SubscriptBox["M", RowBox[{"a", ",", "b"}]]}], "}"}]}]], "Input", CellChangeTimes->{{3.4281012253398714`*^9, 3.428101225480073*^9}, { 3.428101276503441*^9, 3.428101321187694*^9}, {3.4281013552266397`*^9, 3.4281013671137323`*^9}, 3.4281013984287615`*^9, {3.4281014351415515`*^9, 3.4281014528169675`*^9}, {3.4291096599252367`*^9, 3.429109727003697*^9}, 3.4291099804156656`*^9, {3.4291101247074633`*^9, 3.4291101659780416`*^9}, { 3.4292286527238073`*^9, 3.4292286559585233`*^9}, {3.4522030331162577`*^9, 3.452203090859288*^9}, {3.4522031254590397`*^9, 3.4522031267909555`*^9}, 3.452203923166086*^9, 3.4522039714154654`*^9, {3.452204754922093*^9, 3.4522047697834625`*^9}, {3.453723395086478*^9, 3.4537234003120008`*^9}, { 3.453723469449914*^9, 3.4537234712340927`*^9}, {3.45372384084905*^9, 3.4537238464396095`*^9}, {3.4537238879307575`*^9, 3.453723888290794*^9}, { 3.45374498193398*^9, 3.4537449955493417`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"GeneralAlgebraCERulesa", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["X", "i_"], ",", SubscriptBox["X", "j_"]}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{ SubsuperscriptBox["c", RowBox[{"i", ",", "j"}], "r"], SubscriptBox["X", "r"]}], "+", RowBox[{ SubsuperscriptBox["d", RowBox[{"i", ",", "j"}], "s"], SubscriptBox["M", "s"]}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["X", "i_"], ",", SubscriptBox["M", "a_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", " ", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["M", "a_"], ",", SubscriptBox["X", "i_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", "\[IndentingNewLine]", " ", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["M", "a_"], ",", SubscriptBox["M", "b_"]}], "]"}], "\[RuleDelayed]", "0"}]}], "\[IndentingNewLine]", "}"}]}], ";"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.4291113088326263`*^9, 3.429111321710759*^9}, { 3.4291118535626483`*^9, 3.4291118990790057`*^9}, {3.4291119606187224`*^9, 3.4291119635930586`*^9}, 3.4291120198050084`*^9, {3.4291273268710012`*^9, 3.4291273302158113`*^9}, {3.4292305194452477`*^9, 3.429230520166299*^9}, 3.429230762229195*^9, {3.4522031153344817`*^9, 3.4522031627126083`*^9}, { 3.4522038071292334`*^9, 3.4522038689381104`*^9}, 3.452204579179387*^9, 3.452204611075251*^9, {3.4522047760424623`*^9, 3.452204784895192*^9}, { 3.4530665641255136`*^9, 3.4530665654674435`*^9}, {3.4537234043874083`*^9, 3.4537234524842176`*^9}, {3.4537235193509035`*^9, 3.4537235978977575`*^9}, {3.4537240741873817`*^9, 3.4537240834183044`*^9}, {3.4537447458943787`*^9, 3.4537447671255016`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"GeneralAlgebraCERulesa", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["X", "i_"], ",", SubscriptBox["X", "j_"]}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{ SubsuperscriptBox["c", RowBox[{"i", ",", "j"}], "r"], SubscriptBox["X", "r"]}], "+", SubscriptBox["M", RowBox[{"i", ",", "j"}]]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["X", "i_"], ",", SubscriptBox["M", RowBox[{"a_", ",", "b_"}]]}], "]"}], "\[RuleDelayed]", "0"}], ",", " ", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"a_", ",", "b_"}]], ",", SubscriptBox["X", "i_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", "\[IndentingNewLine]", " ", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"a_", ",", "c_"}]], ",", SubscriptBox["M", RowBox[{"b_", ",", "d_"}]]}], "]"}], "\[RuleDelayed]", "0"}]}], "\[IndentingNewLine]", "}"}]}], ";"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.4291113088326263`*^9, 3.429111321710759*^9}, { 3.4291118535626483`*^9, 3.4291118990790057`*^9}, {3.4291119606187224`*^9, 3.4291119635930586`*^9}, 3.4291120198050084`*^9, {3.4291273268710012`*^9, 3.4291273302158113`*^9}, {3.4292305194452477`*^9, 3.429230520166299*^9}, 3.429230762229195*^9, {3.4522031153344817`*^9, 3.4522031627126083`*^9}, { 3.4522038071292334`*^9, 3.4522038689381104`*^9}, 3.452204579179387*^9, 3.452204611075251*^9, {3.4522047760424623`*^9, 3.452204784895192*^9}, { 3.4530665641255136`*^9, 3.4530665654674435`*^9}, {3.4537234043874083`*^9, 3.4537234524842176`*^9}, {3.4537235193509035`*^9, 3.4537235978977575`*^9}, {3.4537240741873817`*^9, 3.4537240834183044`*^9}, {3.4537447458943787`*^9, 3.4537448242972183`*^9}, 3.453744904255213*^9}], Cell[BoxData[ RowBox[{ RowBox[{"GeneralAlgebraCERules", " ", "=", RowBox[{"genRules", "[", RowBox[{"GeneralAlgebraCERulesa", ",", RowBox[{"{", "generalRules", "}"}], ",", "GeneralAlgebraCEBasis", ",", RowBox[{"{", RowBox[{"i", ",", "a", ",", "c"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "b", ",", "d"}], "}"}], ",", RowBox[{"{", RowBox[{"i_", ",", "a_", ",", "c_"}], "}"}], ",", RowBox[{"{", RowBox[{"j_", ",", "b_", ",", "d_"}], "}"}], ",", "A", ",", "B"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.429227589413638*^9, 3.4292275901146603`*^9}, { 3.42922766522416*^9, 3.4292276971306753`*^9}, {3.4292277976271863`*^9, 3.4292277988289385`*^9}, {3.4292289196629705`*^9, 3.4292290081319466`*^9}, {3.429229143208872*^9, 3.4292291441302147`*^9}, { 3.429229266678875*^9, 3.429229268751897*^9}, {3.4292293099820056`*^9, 3.4292293216990876`*^9}, 3.4292294659493856`*^9, 3.4292295217607517`*^9, { 3.4292303451611633`*^9, 3.4292303709287295`*^9}, 3.429230446048244*^9, { 3.4292309880083523`*^9, 3.4292309970415215`*^9}, {3.4522039324794784`*^9, 3.452203949974635*^9}, 3.4522039831924*^9, {3.4522040290783806`*^9, 3.452204030159936*^9}, 3.4522046210195503`*^9, 3.452350618958683*^9, 3.4523508932747655`*^9, {3.4530665677807693`*^9, 3.4530665693430157`*^9}, { 3.453242374160621*^9, 3.4532423764646215`*^9}, {3.453723455590528*^9, 3.4537234956385326`*^9}, {3.4537236019391613`*^9, 3.4537236051394815`*^9}, {3.453723718685835*^9, 3.453723718988865*^9}, { 3.4537238510990753`*^9, 3.453723859859951*^9}, {3.4537449992087073`*^9, 3.4537450178485713`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["l", "gce"], "[", RowBox[{"A_", ",", "B_"}], "]"}], ":=", " ", RowBox[{ RowBox[{"l", "[", RowBox[{"A", ",", "B"}], "]"}], "//.", "GeneralAlgebraCERules"}]}]], "Input", CellChangeTimes->{{3.4281034785636935`*^9, 3.428103487176078*^9}, { 3.4281035197228775`*^9, 3.428103555834804*^9}, {3.428104383272549*^9, 3.4281043834127507`*^9}, {3.4291102830597935`*^9, 3.4291103035067472`*^9}, { 3.4291113936420393`*^9, 3.429111417155146*^9}, {3.429112330948675*^9, 3.4291123323308277`*^9}, {3.4522040579198527`*^9, 3.452204068434973*^9}, { 3.453066575381699*^9, 3.4530665769940176`*^9}, {3.4537234799869676`*^9, 3.4537235008370523`*^9}, {3.45372360842481*^9, 3.4537236124572134`*^9}}] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["General Linear algebra", "Section", CellChangeTimes->{{3.4281011894382477`*^9, 3.4281012112596254`*^9}, { 3.4291092659052315`*^9, 3.429109267137384*^9}, {3.4522029983162174`*^9, 3.452203012426507*^9}, {3.452206010988227*^9, 3.452206013511856*^9}}], Cell[CellGroupData[{ Cell[TextData[{ "Algebra for ", Cell[BoxData[ FormBox[ RowBox[{"\[ScriptCapitalG]\[ScriptCapitalL]", "(", RowBox[{"n", ",", "\[DoubleStruckCapitalR]"}], ")"}], TraditionalForm]]], ", ", Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[ScriptCapitalG]\[ScriptCapitalL]", "+"], "(", RowBox[{"n", ",", "\[DoubleStruckCapitalR]"}], ")"}], TraditionalForm]]], " , ", Cell[BoxData[ FormBox[ RowBox[{"\[ScriptCapitalS]\[ScriptCapitalL]", "(", RowBox[{"n", ",", "\[DoubleStruckCapitalR]"}], ")"}], TraditionalForm]]] }], "Subsection", CellChangeTimes->{{3.4522059142691517`*^9, 3.4522060032170525`*^9}, 3.4535533252932844`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"GeneralLinearBasis", "[", RowBox[{"{", RowBox[{"i_", ",", "j_"}], "}"}], "]"}], ":=", RowBox[{"{", SubsuperscriptBox["\[CapitalEpsilon]", "i", "j"], "}"}]}]], "Input", CellChangeTimes->{{3.4281012253398714`*^9, 3.428101225480073*^9}, { 3.428101276503441*^9, 3.428101321187694*^9}, {3.4281013552266397`*^9, 3.4281013671137323`*^9}, 3.4281013984287615`*^9, {3.4281014351415515`*^9, 3.4281014528169675`*^9}, {3.4291096599252367`*^9, 3.429109727003697*^9}, 3.4291099804156656`*^9, {3.4291101247074633`*^9, 3.4291101659780416`*^9}, { 3.4292286527238073`*^9, 3.4292286559585233`*^9}, {3.4522030331162577`*^9, 3.452203090859288*^9}, {3.4522031254590397`*^9, 3.4522031267909555`*^9}, 3.452203923166086*^9, 3.4522039714154654`*^9, {3.452204754922093*^9, 3.4522047697834625`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"GeneralLinearAlgebraRulesa", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubsuperscriptBox["\[CapitalEpsilon]", "i_", "j_"], ",", SubsuperscriptBox["\[CapitalEpsilon]", "l_", "k_"]}], "]"}], ":>", RowBox[{ RowBox[{ SubsuperscriptBox["\[Delta]", "l", "j"], SubsuperscriptBox["\[CapitalEpsilon]", "i", "k"]}], "-", RowBox[{ SubsuperscriptBox["\[Delta]", "i", "k"], SubsuperscriptBox["\[CapitalEpsilon]", "l", "j"]}]}]}], "\[IndentingNewLine]", "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.4291113088326263`*^9, 3.429111321710759*^9}, { 3.4291118535626483`*^9, 3.4291118990790057`*^9}, {3.4291119606187224`*^9, 3.4291119635930586`*^9}, 3.4291120198050084`*^9, {3.4291273268710012`*^9, 3.4291273302158113`*^9}, {3.4292305194452477`*^9, 3.429230520166299*^9}, 3.429230762229195*^9, {3.4522031153344817`*^9, 3.4522031627126083`*^9}, { 3.4522038071292334`*^9, 3.4522038689381104`*^9}, 3.452204579179387*^9, 3.452204611075251*^9, {3.4522047760424623`*^9, 3.452204784895192*^9}, { 3.4530665641255136`*^9, 3.4530665654674435`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"GeneralLinearAlgebraRules", " ", "=", RowBox[{"genRules", "[", RowBox[{"GeneralLinearAlgebraRulesa", ",", RowBox[{"{", "generalRules", "}"}], ",", "GeneralLinearBasis", ",", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "l"}], "}"}], ",", RowBox[{"{", RowBox[{"i_", ",", "j_"}], "}"}], ",", RowBox[{"{", RowBox[{"k_", ",", "l_"}], "}"}], ",", "A", ",", "B"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.429227589413638*^9, 3.4292275901146603`*^9}, { 3.42922766522416*^9, 3.4292276971306753`*^9}, {3.4292277976271863`*^9, 3.4292277988289385`*^9}, {3.4292289196629705`*^9, 3.4292290081319466`*^9}, {3.429229143208872*^9, 3.4292291441302147`*^9}, { 3.429229266678875*^9, 3.429229268751897*^9}, {3.4292293099820056`*^9, 3.4292293216990876`*^9}, 3.4292294659493856`*^9, 3.4292295217607517`*^9, { 3.4292303451611633`*^9, 3.4292303709287295`*^9}, 3.429230446048244*^9, { 3.4292309880083523`*^9, 3.4292309970415215`*^9}, {3.4522039324794784`*^9, 3.452203949974635*^9}, 3.4522039831924*^9, {3.4522040290783806`*^9, 3.452204030159936*^9}, 3.4522046210195503`*^9, 3.452350618958683*^9, 3.4523508932747655`*^9, {3.4530665677807693`*^9, 3.4530665693430157`*^9}, { 3.453242374160621*^9, 3.4532423764646215`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["l", "gl"], "[", RowBox[{"A_", ",", "B_"}], "]"}], ":=", " ", RowBox[{ RowBox[{"l", "[", RowBox[{"A", ",", "B"}], "]"}], "//.", "GeneralLinearAlgebraRules"}]}]], "Input", CellChangeTimes->{{3.4281034785636935`*^9, 3.428103487176078*^9}, { 3.4281035197228775`*^9, 3.428103555834804*^9}, {3.428104383272549*^9, 3.4281043834127507`*^9}, {3.4291102830597935`*^9, 3.4291103035067472`*^9}, { 3.4291113936420393`*^9, 3.429111417155146*^9}, {3.429112330948675*^9, 3.4291123323308277`*^9}, {3.4522040579198527`*^9, 3.452204068434973*^9}, { 3.453066575381699*^9, 3.4530665769940176`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Candidate CE \ \>", "Subsection", CellChangeTimes->{{3.453553310937849*^9, 3.45355335894865*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"GeneralLinearCEBasis", "[", RowBox[{"{", RowBox[{"i_", ",", "j_", ",", "k_", ",", "l_"}], "}"}], "]"}], ":=", RowBox[{"{", RowBox[{ SubsuperscriptBox["\[CapitalEpsilon]", "i", "j"], ",", SubsuperscriptBox["M", RowBox[{"i", ",", "l"}], RowBox[{"j", ",", "k"}]]}], "}"}]}]], "Input", CellChangeTimes->{{3.4281012253398714`*^9, 3.428101225480073*^9}, { 3.428101276503441*^9, 3.428101321187694*^9}, {3.4281013552266397`*^9, 3.4281013671137323`*^9}, 3.4281013984287615`*^9, {3.4281014351415515`*^9, 3.4281014528169675`*^9}, {3.4291096599252367`*^9, 3.429109727003697*^9}, 3.4291099804156656`*^9, {3.4291101247074633`*^9, 3.4291101659780416`*^9}, { 3.4292286527238073`*^9, 3.4292286559585233`*^9}, {3.4522030331162577`*^9, 3.452203090859288*^9}, {3.4522031254590397`*^9, 3.4522031267909555`*^9}, 3.452203923166086*^9, 3.4522039714154654`*^9, {3.452204754922093*^9, 3.4522047697834625`*^9}, {3.4535535176495185`*^9, 3.4535535448202353`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"GeneralLinearAlgebraCERulesa", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"l", "[", RowBox[{ SubsuperscriptBox["\[CapitalEpsilon]", "i_", "j_"], ",", SubsuperscriptBox["\[CapitalEpsilon]", "l_", "k_"]}], "]"}], ":>", RowBox[{ RowBox[{ SubsuperscriptBox["\[Delta]", "l", "j"], SubsuperscriptBox["\[CapitalEpsilon]", "i", "k"]}], "-", RowBox[{ SubsuperscriptBox["\[Delta]", "i", "k"], SubsuperscriptBox["\[CapitalEpsilon]", "l", "j"]}], "+", SubsuperscriptBox["M", RowBox[{"i", ",", "l"}], RowBox[{"j", ",", "k"}]]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubsuperscriptBox["M", RowBox[{"i_", ",", "l_"}], RowBox[{"j_", ",", "k_"}]], ",", SubsuperscriptBox["\[CapitalEpsilon]", "n_", "m_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubsuperscriptBox["\[CapitalEpsilon]", "n_", "m_"], ",", SubsuperscriptBox["M", RowBox[{"i_", ",", "l_"}], RowBox[{"j_", ",", "k_"}]]}], "]"}], "\[RuleDelayed]", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubsuperscriptBox["M", RowBox[{"i_", ",", "l_"}], RowBox[{"j_", ",", "k_"}]], ",", SubsuperscriptBox["M", RowBox[{"n_", ",", "q_"}], RowBox[{"m_", ",", "p_"}]]}], "]"}], "\[RuleDelayed]", "0"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ SubsuperscriptBox["M", RowBox[{"i_", ",", "l_"}], RowBox[{"j_", ",", "k_"}]], "\[RuleDelayed]", RowBox[{ RowBox[{"-", SubsuperscriptBox["M", RowBox[{"l", ",", "i"}], RowBox[{"j", ",", "k"}]]}], "/;", " ", RowBox[{"!", RowBox[{"OrderedQ", "[", RowBox[{"{", RowBox[{"i", ",", "l"}], "}"}], "]"}]}]}]}], ",", "\[IndentingNewLine]", RowBox[{ SubsuperscriptBox["M", RowBox[{"i_", ",", "l_"}], RowBox[{"j_", ",", "k_"}]], "\[RuleDelayed]", RowBox[{ RowBox[{"-", SubsuperscriptBox["M", RowBox[{"i", ",", "l"}], RowBox[{"k", ",", "j"}]]}], "/;", " ", RowBox[{"!", RowBox[{"OrderedQ", "[", RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], "]"}]}]}]}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.4291113088326263`*^9, 3.429111321710759*^9}, { 3.4291118535626483`*^9, 3.4291118990790057`*^9}, {3.4291119606187224`*^9, 3.4291119635930586`*^9}, 3.4291120198050084`*^9, {3.4291273268710012`*^9, 3.4291273302158113`*^9}, {3.4292305194452477`*^9, 3.429230520166299*^9}, 3.429230762229195*^9, {3.4522031153344817`*^9, 3.4522031627126083`*^9}, { 3.4522038071292334`*^9, 3.4522038689381104`*^9}, 3.452204579179387*^9, 3.452204611075251*^9, {3.4522047760424623`*^9, 3.452204784895192*^9}, { 3.4530665641255136`*^9, 3.4530665654674435`*^9}, {3.453553373596114*^9, 3.453553484442198*^9}, {3.4535537656853194`*^9, 3.453553835172241*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"GeneralLinearAlgebraCERules", " ", "=", RowBox[{"genRules", "[", RowBox[{"GeneralLinearAlgebraCERulesa", ",", RowBox[{"{", "generalRules", "}"}], ",", "GeneralLinearCEBasis", ",", RowBox[{"{", RowBox[{"i", ",", "j", ",", "k", ",", "l"}], "}"}], ",", RowBox[{"{", RowBox[{"m", ",", "n", ",", "p", ",", "q"}], "}"}], ",", RowBox[{"{", RowBox[{"i_", ",", "j_", ",", "k_", ",", "l_"}], "}"}], ",", RowBox[{"{", RowBox[{"m_", ",", "n_", ",", "p_", ",", "q_"}], "}"}], ",", "A", ",", "B"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.429227589413638*^9, 3.4292275901146603`*^9}, { 3.42922766522416*^9, 3.4292276971306753`*^9}, {3.4292277976271863`*^9, 3.4292277988289385`*^9}, {3.4292289196629705`*^9, 3.4292290081319466`*^9}, {3.429229143208872*^9, 3.4292291441302147`*^9}, { 3.429229266678875*^9, 3.429229268751897*^9}, {3.4292293099820056`*^9, 3.4292293216990876`*^9}, 3.4292294659493856`*^9, 3.4292295217607517`*^9, { 3.4292303451611633`*^9, 3.4292303709287295`*^9}, 3.429230446048244*^9, { 3.4292309880083523`*^9, 3.4292309970415215`*^9}, {3.4522039324794784`*^9, 3.452203949974635*^9}, 3.4522039831924*^9, {3.4522040290783806`*^9, 3.452204030159936*^9}, 3.4522046210195503`*^9, 3.452350618958683*^9, 3.4523508932747655`*^9, {3.4530665677807693`*^9, 3.4530665693430157`*^9}, { 3.453242374160621*^9, 3.4532423764646215`*^9}, {3.453553376719427*^9, 3.4535533770144563`*^9}, {3.453553498171571*^9, 3.453553502627016*^9}, { 3.4535535548462377`*^9, 3.453553580920845*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["l", "glce"], "[", RowBox[{"A_", ",", "B_"}], "]"}], ":=", " ", RowBox[{ RowBox[{"l", "[", RowBox[{"A", ",", "B"}], "]"}], "//.", "GeneralLinearAlgebraCERules"}]}]], "Input", CellChangeTimes->{{3.4281034785636935`*^9, 3.428103487176078*^9}, { 3.4281035197228775`*^9, 3.428103555834804*^9}, {3.428104383272549*^9, 3.4281043834127507`*^9}, {3.4291102830597935`*^9, 3.4291103035067472`*^9}, { 3.4291113936420393`*^9, 3.429111417155146*^9}, {3.429112330948675*^9, 3.4291123323308277`*^9}, {3.4522040579198527`*^9, 3.452204068434973*^9}, { 3.453066575381699*^9, 3.4530665769940176`*^9}, {3.453553584765229*^9, 3.453553592461999*^9}}] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Orthogonal algebra", "Section", CellChangeTimes->{{3.4281011894382477`*^9, 3.4281012112596254`*^9}, { 3.4291092659052315`*^9, 3.429109267137384*^9}, {3.45220588642912*^9, 3.452205909792715*^9}, {3.4522060184689837`*^9, 3.4522060208924685`*^9}}], Cell[TextData[{ "\nAlgebra for ", Cell[BoxData[ FormBox[ RowBox[{"\[ScriptCapitalO]", "(", "n", ")"}], TraditionalForm]], FormatType->"TraditionalForm"], ", ", Cell[BoxData[ FormBox[ RowBox[{"\[ScriptCapitalS]\[ScriptCapitalO]", "(", "n", ")"}], TraditionalForm]], FormatType->"TraditionalForm"], " , ", Cell[BoxData[ FormBox[ RowBox[{"\[ScriptCapitalO]", "(", RowBox[{"m", ",", "n"}], ")"}], TraditionalForm]], FormatType->"TraditionalForm"], ", ", Cell[BoxData[ FormBox[ RowBox[{"\[ScriptCapitalS]\[ScriptCapitalO]", "(", RowBox[{"m", ",", "n"}], ")"}], TraditionalForm]], FormatType->"TraditionalForm"], " , ", Cell[BoxData[ FormBox[ RowBox[{"\[ScriptCapitalL]", "(", RowBox[{"1", ",", "n"}], ")"}], TraditionalForm]], FormatType->"TraditionalForm"], ", ", Cell[BoxData[ FormBox[ RowBox[{"\[ScriptCapitalS]\[ScriptCapitalL]", "(", RowBox[{"2", ",", "\[DoubleStruckCapitalC]"}], ")"}], TraditionalForm]], FormatType->"TraditionalForm"] }], "TextNoIndent", CellChangeTimes->{{3.4522059142691517`*^9, 3.4522060032170525`*^9}, { 3.452206042553616*^9, 3.452206115838995*^9}}], Cell[CellGroupData[{ Cell["Orthogonal algebra in 3 real form", "Subsection", CellChangeTimes->{{3.4099583378836594`*^9, 3.409958347877432*^9}, 3.453067901929181*^9, {3.4530687623864574`*^9, 3.453068765150432*^9}, { 3.4530688675877295`*^9, 3.453068872454728*^9}, {3.453068933272179*^9, 3.4530689349746275`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"OrthogonalBasis", "[", RowBox[{"{", RowBox[{"i_", ",", "j_"}], "}"}], "]"}], ":=", RowBox[{"{", SubscriptBox["J", RowBox[{"i", ",", "j"}]], "}"}]}]], "Input", CellChangeTimes->{{3.4281012253398714`*^9, 3.428101225480073*^9}, { 3.428101276503441*^9, 3.428101321187694*^9}, {3.4281013552266397`*^9, 3.4281013671137323`*^9}, 3.4281013984287615`*^9, {3.4281014351415515`*^9, 3.4281014528169675`*^9}, {3.4291096599252367`*^9, 3.429109727003697*^9}, 3.4291099804156656`*^9, {3.4291101247074633`*^9, 3.4291101659780416`*^9}, { 3.4292286527238073`*^9, 3.4292286559585233`*^9}, {3.4522030331162577`*^9, 3.452203090859288*^9}, {3.4522031254590397`*^9, 3.4522031267909555`*^9}, 3.452203923166086*^9, 3.4522039714154654`*^9, {3.452204754922093*^9, 3.4522047697834625`*^9}, {3.452206154885141*^9, 3.4522061651699295`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"OrthogonalAlgebraRulesa", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["J", RowBox[{"i_", ",", "j_"}]], ",", SubscriptBox["J", RowBox[{"k_", ",", "l_"}]]}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{ SubscriptBox["\[Delta]", RowBox[{"i", ",", "l"}]], SubscriptBox["J", RowBox[{"j", ",", "k"}]]}], "+", RowBox[{ SubscriptBox["\[Delta]", RowBox[{"j", ",", "k"}]], SubscriptBox["J", RowBox[{"i", ",", "l"}]]}], "-", RowBox[{ SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]], SubscriptBox["J", RowBox[{"j", ",", "l"}]]}], "-", RowBox[{ SubscriptBox["\[Delta]", RowBox[{"j", ",", "l"}]], SubscriptBox["J", RowBox[{"i", ",", "k"}]]}]}]}], "\[IndentingNewLine]", "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.4291113088326263`*^9, 3.429111321710759*^9}, { 3.4291118535626483`*^9, 3.4291118990790057`*^9}, {3.4291119606187224`*^9, 3.4291119635930586`*^9}, 3.4291120198050084`*^9, {3.4291273268710012`*^9, 3.4291273302158113`*^9}, {3.4292305194452477`*^9, 3.429230520166299*^9}, 3.429230762229195*^9, {3.4522031153344817`*^9, 3.4522031627126083`*^9}, { 3.4522038071292334`*^9, 3.4522038689381104`*^9}, 3.452204579179387*^9, 3.452204611075251*^9, {3.4522047760424623`*^9, 3.452204784895192*^9}, { 3.4522062044664354`*^9, 3.452206314554734*^9}, 3.45220639199609*^9, 3.452206748268384*^9, {3.4530665944791603`*^9, 3.4530665958711615`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"OrthogonalSymmetryRules", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["J", RowBox[{"i_", ",", "j_"}]], "\[RuleDelayed]", RowBox[{ RowBox[{"-", SubscriptBox["J", RowBox[{"j", ",", "i"}]]}], "/;", " ", RowBox[{"!", RowBox[{"OrderedQ", "[", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}], "]"}]}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"A__", "\[CenterDot]", SubscriptBox["J", RowBox[{"i_", ",", "j_"}]], "\[CenterDot]", "B__"}], "\[RuleDelayed]", RowBox[{ RowBox[{ RowBox[{"-", "A"}], "\[CenterDot]", SubscriptBox["J", RowBox[{"j", ",", "i"}]], "\[CenterDot]", "B"}], "/;", " ", RowBox[{"!", RowBox[{"OrderedQ", "[", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}], "]"}]}]}]}]}], "\[IndentingNewLine]", "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.4523466332500353`*^9, 3.4523466850381174`*^9}, { 3.4523467664408503`*^9, 3.4523467683437195`*^9}, 3.4523469387479115`*^9, { 3.452347587120225*^9, 3.4523475956124363`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"OrthogonalAlgebraRules", " ", "=", RowBox[{"genRules", "[", RowBox[{"OrthogonalAlgebraRulesa", ",", RowBox[{"{", RowBox[{"generalRules", ",", "OrthogonalSymmetryRules"}], "}"}], ",", "OrthogonalBasis", ",", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "l"}], "}"}], ",", RowBox[{"{", RowBox[{"i_", ",", "j_"}], "}"}], ",", RowBox[{"{", RowBox[{"k_", ",", "l_"}], "}"}], ",", "A", ",", "B"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.429227589413638*^9, 3.4292275901146603`*^9}, { 3.42922766522416*^9, 3.4292276971306753`*^9}, {3.4292277976271863`*^9, 3.4292277988289385`*^9}, {3.4292289196629705`*^9, 3.4292290081319466`*^9}, {3.429229143208872*^9, 3.4292291441302147`*^9}, { 3.429229266678875*^9, 3.429229268751897*^9}, {3.4292293099820056`*^9, 3.4292293216990876`*^9}, 3.4292294659493856`*^9, 3.4292295217607517`*^9, { 3.4292303451611633`*^9, 3.4292303709287295`*^9}, 3.429230446048244*^9, { 3.4292309880083523`*^9, 3.4292309970415215`*^9}, {3.4522039324794784`*^9, 3.452203949974635*^9}, 3.4522039831924*^9, {3.4522040290783806`*^9, 3.452204030159936*^9}, 3.4522046210195503`*^9, {3.4522063251499696`*^9, 3.452206365848491*^9}, 3.452206423140874*^9, 3.4523506224537086`*^9, 3.4523508964196324`*^9, {3.453066583893939*^9, 3.453066592936942*^9}, { 3.463315055740259*^9, 3.463315061468832*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["l", "so"], "[", RowBox[{"A_", ",", "B_"}], "]"}], ":=", " ", RowBox[{ RowBox[{"l", "[", RowBox[{"A", ",", "B"}], "]"}], "//.", "OrthogonalAlgebraRules"}]}]], "Input", CellChangeTimes->{{3.4281034785636935`*^9, 3.428103487176078*^9}, { 3.4281035197228775`*^9, 3.428103555834804*^9}, {3.428104383272549*^9, 3.4281043834127507`*^9}, {3.4291102830597935`*^9, 3.4291103035067472`*^9}, {3.4291113936420393`*^9, 3.429111417155146*^9}, { 3.429112330948675*^9, 3.4291123323308277`*^9}, {3.4522040579198527`*^9, 3.452204068434973*^9}, {3.452206346731002*^9, 3.4522063703850145`*^9}, 3.4530666012689233`*^9}] }, Open ]], Cell[CellGroupData[{ Cell["Lorentz algebra in 3 real form", "Subsection", CellChangeTimes->{{3.4099583378836594`*^9, 3.409958347877432*^9}, 3.453067901929181*^9, {3.4530687623864574`*^9, 3.453068765150432*^9}, { 3.4530688675877295`*^9, 3.453068872454728*^9}, {3.453068933272179*^9, 3.4530689507473073`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"LorentzBasis", "[", RowBox[{"{", RowBox[{"a_", ",", "b_"}], "}"}], "]"}], ":=", RowBox[{"{", SubscriptBox["L", RowBox[{"a", ",", "b"}]], "}"}]}]], "Input", CellChangeTimes->{{3.4281012253398714`*^9, 3.428101225480073*^9}, { 3.428101276503441*^9, 3.428101321187694*^9}, {3.4281013552266397`*^9, 3.4281013671137323`*^9}, 3.4281013984287615`*^9, {3.4281014351415515`*^9, 3.4281014528169675`*^9}, {3.4291096599252367`*^9, 3.429109727003697*^9}, 3.4291099804156656`*^9, {3.4291101247074633`*^9, 3.4291101659780416`*^9}, { 3.4292286527238073`*^9, 3.4292286559585233`*^9}, {3.4522030331162577`*^9, 3.452203090859288*^9}, {3.4522031254590397`*^9, 3.4522031267909555`*^9}, 3.452203923166086*^9, 3.4522039714154654`*^9, {3.452204754922093*^9, 3.4522047697834625`*^9}, {3.452206154885141*^9, 3.452206198618026*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"LorentzAlgebraRulesa", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["L", RowBox[{"a_", ",", "b_"}]], ",", SubscriptBox["L", RowBox[{"c_", ",", "d_"}]]}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{ SubscriptBox["\[Eta]", RowBox[{"a", ",", "d"}]], SubscriptBox["L", RowBox[{"b", ",", "c"}]]}], "+", RowBox[{ SubscriptBox["\[Eta]", RowBox[{"b", ",", "c"}]], SubscriptBox["L", RowBox[{"a", ",", "d"}]]}], "-", RowBox[{ SubscriptBox["\[Eta]", RowBox[{"a", ",", "c"}]], SubscriptBox["L", RowBox[{"b", ",", "d"}]]}], "-", RowBox[{ SubscriptBox["\[Eta]", RowBox[{"b", ",", "d"}]], SubscriptBox["L", RowBox[{"a", ",", "c"}]]}]}]}], "\[IndentingNewLine]", "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.4291113088326263`*^9, 3.429111321710759*^9}, { 3.4291118535626483`*^9, 3.4291118990790057`*^9}, {3.4291119606187224`*^9, 3.4291119635930586`*^9}, 3.4291120198050084`*^9, {3.4291273268710012`*^9, 3.4291273302158113`*^9}, {3.4292305194452477`*^9, 3.429230520166299*^9}, 3.429230762229195*^9, {3.4522031153344817`*^9, 3.4522031627126083`*^9}, { 3.4522038071292334`*^9, 3.4522038689381104`*^9}, 3.452204579179387*^9, 3.452204611075251*^9, {3.4522047760424623`*^9, 3.452204784895192*^9}, { 3.4522062044664354`*^9, 3.452206314554734*^9}, 3.45220639199609*^9, 3.452206748268384*^9, {3.452207149825795*^9, 3.452207238573408*^9}, { 3.4522073499936223`*^9, 3.452207350274026*^9}, 3.452207629565627*^9, { 3.4522076915347347`*^9, 3.452207694428896*^9}, {3.4530666041730995`*^9, 3.453066605394856*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"LorentzAlgebraRules", " ", "=", RowBox[{"genRules", "[", RowBox[{"LorentzAlgebraRulesa", ",", RowBox[{"{", "generalRules", "}"}], ",", "LorentzBasis", ",", RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}], ",", RowBox[{"{", RowBox[{"c", ",", "d"}], "}"}], ",", RowBox[{"{", RowBox[{"a_", ",", "b_"}], "}"}], ",", RowBox[{"{", RowBox[{"c_", ",", "d_"}], "}"}], ",", "A", ",", "B"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.429227589413638*^9, 3.4292275901146603`*^9}, { 3.42922766522416*^9, 3.4292276971306753`*^9}, {3.4292277976271863`*^9, 3.4292277988289385`*^9}, {3.4292289196629705`*^9, 3.4292290081319466`*^9}, {3.429229143208872*^9, 3.4292291441302147`*^9}, { 3.429229266678875*^9, 3.429229268751897*^9}, {3.4292293099820056`*^9, 3.4292293216990876`*^9}, 3.4292294659493856`*^9, 3.4292295217607517`*^9, { 3.4292303451611633`*^9, 3.4292303709287295`*^9}, 3.429230446048244*^9, { 3.4292309880083523`*^9, 3.4292309970415215`*^9}, {3.4522039324794784`*^9, 3.452203949974635*^9}, 3.4522039831924*^9, {3.4522040290783806`*^9, 3.452204030159936*^9}, 3.4522046210195503`*^9, {3.4522063251499696`*^9, 3.452206365848491*^9}, 3.452206423140874*^9, {3.4522072537952957`*^9, 3.452207286912917*^9}, 3.4523506250474377`*^9, 3.4523508996245923`*^9, { 3.453066610722517*^9, 3.4530666135966496`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"LorentzSymmetryRules", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["L", RowBox[{"a_", ",", "b_"}]], "\[RuleDelayed]", RowBox[{ RowBox[{"-", SubscriptBox["L", RowBox[{"b", ",", "a"}]]}], "/;", " ", RowBox[{"!", RowBox[{"OrderedQ", "[", RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}], "]"}]}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"A__", "\[CenterDot]", SubscriptBox["L", RowBox[{"a_", ",", "b_"}]], "\[CenterDot]", "B__"}], "\[RuleDelayed]", RowBox[{ RowBox[{ RowBox[{"-", "A"}], "\[CenterDot]", SubscriptBox["L", RowBox[{"b", ",", "a"}]], "\[CenterDot]", "B"}], "/;", " ", RowBox[{"!", RowBox[{"OrderedQ", "[", RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}], "]"}]}]}]}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.4523466332500353`*^9, 3.4523466850381174`*^9}, { 3.4523467664408503`*^9, 3.4523467683437195`*^9}, {3.4523468850096188`*^9, 3.4523469412515116`*^9}, {3.4523475410139275`*^9, 3.452347565539193*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["l", "l"], "[", RowBox[{"A_", ",", "B_"}], "]"}], ":=", " ", RowBox[{ RowBox[{"l", "[", RowBox[{"A", ",", "B"}], "]"}], "//.", "LorentzAlgebraRules"}]}]], "Input", CellChangeTimes->{{3.4281034785636935`*^9, 3.428103487176078*^9}, { 3.4281035197228775`*^9, 3.428103555834804*^9}, {3.428104383272549*^9, 3.4281043834127507`*^9}, {3.4291102830597935`*^9, 3.4291103035067472`*^9}, {3.4291113936420393`*^9, 3.429111417155146*^9}, { 3.429112330948675*^9, 3.4291123323308277`*^9}, {3.4522040579198527`*^9, 3.452204068434973*^9}, {3.452206346731002*^9, 3.4522063703850145`*^9}, { 3.452207291890074*^9, 3.452207297177677*^9}, 3.453066619815592*^9}] }, Open ]], Cell["\<\ Candidate CE \ \>", "Subsection", CellChangeTimes->{{3.453553310937849*^9, 3.45355335894865*^9}}], Cell[CellGroupData[{ Cell["Lorentz algebra in 3 real form", "Subsection", CellChangeTimes->{{3.4099583378836594`*^9, 3.409958347877432*^9}, 3.453067901929181*^9, {3.4530687623864574`*^9, 3.453068765150432*^9}, { 3.4530688675877295`*^9, 3.453068872454728*^9}, {3.453068933272179*^9, 3.4530689507473073`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"LorentzCEBasis", "[", RowBox[{"{", RowBox[{"a_", ",", "b_", ",", "c_", ",", "d_"}], "}"}], "]"}], ":=", RowBox[{"{", RowBox[{ SubscriptBox["L", RowBox[{"a", ",", "b"}]], ",", SubscriptBox["M", RowBox[{"a", ",", "b", ",", "c", ",", "d"}]]}], "}"}]}]], "Input", CellChangeTimes->{{3.4281012253398714`*^9, 3.428101225480073*^9}, { 3.428101276503441*^9, 3.428101321187694*^9}, {3.4281013552266397`*^9, 3.4281013671137323`*^9}, 3.4281013984287615`*^9, {3.4281014351415515`*^9, 3.4281014528169675`*^9}, {3.4291096599252367`*^9, 3.429109727003697*^9}, 3.4291099804156656`*^9, {3.4291101247074633`*^9, 3.4291101659780416`*^9}, { 3.4292286527238073`*^9, 3.4292286559585233`*^9}, {3.4522030331162577`*^9, 3.452203090859288*^9}, {3.4522031254590397`*^9, 3.4522031267909555`*^9}, 3.452203923166086*^9, 3.4522039714154654`*^9, {3.452204754922093*^9, 3.4522047697834625`*^9}, {3.452206154885141*^9, 3.452206198618026*^9}, { 3.45358704427*^9, 3.4535870803050003`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"LorentzAlgebraCERulesa", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["L", RowBox[{"a_", ",", "b_"}]], ",", SubscriptBox["L", RowBox[{"c_", ",", "d_"}]]}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{ SubscriptBox["\[Eta]", RowBox[{"a", ",", "d"}]], SubscriptBox["L", RowBox[{"b", ",", "c"}]]}], "+", RowBox[{ SubscriptBox["\[Eta]", RowBox[{"b", ",", "c"}]], SubscriptBox["L", RowBox[{"a", ",", "d"}]]}], "-", RowBox[{ SubscriptBox["\[Eta]", RowBox[{"a", ",", "c"}]], SubscriptBox["L", RowBox[{"b", ",", "d"}]]}], "-", RowBox[{ SubscriptBox["\[Eta]", RowBox[{"b", ",", "d"}]], SubscriptBox["L", RowBox[{"a", ",", "c"}]]}], "+", SubscriptBox["M", RowBox[{"a", ",", "b", ",", "c", ",", "d"}]]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"i_", ",", "j_", ",", "k_", ",", "l_"}]], ",", SubscriptBox["L", RowBox[{"a_", ",", "b_"}]]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["L", RowBox[{"a_", ",", "b_"}]], ",", SubscriptBox["M", RowBox[{"i_", ",", "j_", ",", "k_", ",", "l_"}]]}], "]"}], "\[RuleDelayed]", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"i_", ",", "j_", ",", "k_", ",", "l_"}]], ",", SubscriptBox["M", RowBox[{"a_", ",", "b_", ",", "c_", ",", "d_"}]]}], "]"}], "\[RuleDelayed]", "0"}]}], "\[IndentingNewLine]", "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.4291113088326263`*^9, 3.429111321710759*^9}, { 3.4291118535626483`*^9, 3.4291118990790057`*^9}, {3.4291119606187224`*^9, 3.4291119635930586`*^9}, 3.4291120198050084`*^9, {3.4291273268710012`*^9, 3.4291273302158113`*^9}, {3.4292305194452477`*^9, 3.429230520166299*^9}, 3.429230762229195*^9, {3.4522031153344817`*^9, 3.4522031627126083`*^9}, { 3.4522038071292334`*^9, 3.4522038689381104`*^9}, 3.452204579179387*^9, 3.452204611075251*^9, {3.4522047760424623`*^9, 3.452204784895192*^9}, { 3.4522062044664354`*^9, 3.452206314554734*^9}, 3.45220639199609*^9, 3.452206748268384*^9, {3.452207149825795*^9, 3.452207238573408*^9}, { 3.4522073499936223`*^9, 3.452207350274026*^9}, 3.452207629565627*^9, { 3.4522076915347347`*^9, 3.452207694428896*^9}, {3.4530666041730995`*^9, 3.453066605394856*^9}, {3.4535870944*^9, 3.453587104558*^9}, { 3.453587526392*^9, 3.453587619828*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"LorentzAlgebraCERules", " ", "=", RowBox[{"genRules", "[", RowBox[{"LorentzAlgebraCERulesa", ",", RowBox[{"{", "generalRules", "}"}], ",", "LorentzCEBasis", ",", RowBox[{"{", RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", RowBox[{"{", RowBox[{"e", ",", "f", ",", "g", ",", "h"}], "}"}], ",", RowBox[{"{", RowBox[{"a_", ",", "b_", ",", "c_", ",", "d_"}], "}"}], ",", RowBox[{"{", RowBox[{"e_", ",", "f_", ",", "g_", ",", "h_"}], "}"}], ",", "A", ",", "B"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.429227589413638*^9, 3.4292275901146603`*^9}, { 3.42922766522416*^9, 3.4292276971306753`*^9}, {3.4292277976271863`*^9, 3.4292277988289385`*^9}, {3.4292289196629705`*^9, 3.4292290081319466`*^9}, {3.429229143208872*^9, 3.4292291441302147`*^9}, { 3.429229266678875*^9, 3.429229268751897*^9}, {3.4292293099820056`*^9, 3.4292293216990876`*^9}, 3.4292294659493856`*^9, 3.4292295217607517`*^9, { 3.4292303451611633`*^9, 3.4292303709287295`*^9}, 3.429230446048244*^9, { 3.4292309880083523`*^9, 3.4292309970415215`*^9}, {3.4522039324794784`*^9, 3.452203949974635*^9}, 3.4522039831924*^9, {3.4522040290783806`*^9, 3.452204030159936*^9}, 3.4522046210195503`*^9, {3.4522063251499696`*^9, 3.452206365848491*^9}, 3.452206423140874*^9, {3.4522072537952957`*^9, 3.452207286912917*^9}, 3.4523506250474377`*^9, 3.4523508996245923`*^9, { 3.453066610722517*^9, 3.4530666135966496`*^9}, {3.453587110191*^9, 3.4535871502939997`*^9}, 3.453587200675*^9}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["l", "lce"], "[", RowBox[{"A_", ",", "B_"}], "]"}], ":=", " ", RowBox[{ RowBox[{"l", "[", RowBox[{"A", ",", "B"}], "]"}], "//.", "LorentzAlgebraCERules"}]}]], "Input", CellChangeTimes->{{3.4281034785636935`*^9, 3.428103487176078*^9}, { 3.4281035197228775`*^9, 3.428103555834804*^9}, {3.428104383272549*^9, 3.4281043834127507`*^9}, {3.4291102830597935`*^9, 3.4291103035067472`*^9}, {3.4291113936420393`*^9, 3.429111417155146*^9}, { 3.429112330948675*^9, 3.4291123323308277`*^9}, {3.4522040579198527`*^9, 3.452204068434973*^9}, {3.452206346731002*^9, 3.4522063703850145`*^9}, { 3.452207291890074*^9, 3.452207297177677*^9}, 3.453066619815592*^9, { 3.453587163723*^9, 3.453587171672*^9}}] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Symplectic algebra", "Section", CellChangeTimes->{{3.4281011894382477`*^9, 3.4281012112596254`*^9}, { 3.4291092659052315`*^9, 3.429109267137384*^9}, {3.45220588642912*^9, 3.452205909792715*^9}, {3.4522060184689837`*^9, 3.4522060208924685`*^9}, { 3.4522077943025074`*^9, 3.4522077961952286`*^9}}], Cell[TextData[{ "\nAlgebra for ", Cell[BoxData[ FormBox[ RowBox[{"\[ScriptCapitalS]\[ScriptP]", "(", RowBox[{"2", "n"}], ")"}], TraditionalForm]]] }], "TextNoIndent", CellChangeTimes->{{3.4522059142691517`*^9, 3.4522060032170525`*^9}, { 3.452206042553616*^9, 3.452206115838995*^9}, {3.4522077989692173`*^9, 3.452207819979429*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"SymplecticBasis", "[", RowBox[{"{", RowBox[{"\[Alpha]_", ",", "\[Beta]_"}], "}"}], "]"}], ":=", RowBox[{"{", SubscriptBox["W", RowBox[{"\[Alpha]", ",", "\[Beta]"}]], "}"}]}]], "Input", CellChangeTimes->{{3.4281012253398714`*^9, 3.428101225480073*^9}, { 3.428101276503441*^9, 3.428101321187694*^9}, {3.4281013552266397`*^9, 3.4281013671137323`*^9}, 3.4281013984287615`*^9, {3.4281014351415515`*^9, 3.4281014528169675`*^9}, {3.4291096599252367`*^9, 3.429109727003697*^9}, 3.4291099804156656`*^9, {3.4291101247074633`*^9, 3.4291101659780416`*^9}, { 3.4292286527238073`*^9, 3.4292286559585233`*^9}, {3.4522030331162577`*^9, 3.452203090859288*^9}, {3.4522031254590397`*^9, 3.4522031267909555`*^9}, 3.452203923166086*^9, 3.4522039714154654`*^9, {3.452204754922093*^9, 3.4522047697834625`*^9}, {3.452206154885141*^9, 3.4522061651699295`*^9}, { 3.452207823534541*^9, 3.452207839207077*^9}, {3.4522089778844147`*^9, 3.452208981579728*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"SymplecticAlgebraRulesa", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Alpha]_", ",", "\[Beta]_"}]], ",", SubscriptBox["W", RowBox[{"\[Kappa]_", ",", "\[Delta]_"}]]}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{ SubscriptBox["\[Zeta]", RowBox[{"\[Alpha]", ",", "\[Delta]"}]], SubscriptBox["W", RowBox[{"\[Beta]", ",", "\[Kappa]"}]]}], "+", RowBox[{ SubscriptBox["\[Zeta]", RowBox[{"\[Beta]", ",", "\[Kappa]"}]], SubscriptBox["W", RowBox[{"\[Alpha]", ",", "\[Delta]"}]]}], "+", RowBox[{ SubscriptBox["\[Zeta]", RowBox[{"\[Alpha]", ",", "\[Kappa]"}]], SubscriptBox["W", RowBox[{"\[Beta]", ",", "\[Delta]"}]]}], "+", RowBox[{ SubscriptBox["\[Zeta]", RowBox[{"\[Beta]", ",", "\[Delta]"}]], SubscriptBox["W", RowBox[{"\[Alpha]", ",", "\[Kappa]"}]]}]}]}], "\[IndentingNewLine]", "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.4291113088326263`*^9, 3.429111321710759*^9}, { 3.4291118535626483`*^9, 3.4291118990790057`*^9}, {3.4291119606187224`*^9, 3.4291119635930586`*^9}, 3.4291120198050084`*^9, {3.4291273268710012`*^9, 3.4291273302158113`*^9}, {3.4292305194452477`*^9, 3.429230520166299*^9}, 3.429230762229195*^9, {3.4522031153344817`*^9, 3.4522031627126083`*^9}, { 3.4522038071292334`*^9, 3.4522038689381104`*^9}, 3.452204579179387*^9, 3.452204611075251*^9, {3.4522047760424623`*^9, 3.452204784895192*^9}, { 3.4522062044664354`*^9, 3.452206314554734*^9}, 3.45220639199609*^9, 3.452206748268384*^9, {3.452207848450368*^9, 3.4522079888222127`*^9}, 3.452208683350896*^9, 3.452209340445752*^9, {3.452209575313475*^9, 3.452209608681456*^9}, {3.4522096458048368`*^9, 3.4522096481682353`*^9}, 3.452210270933728*^9, {3.4523470862299805`*^9, 3.452347103044158*^9}, { 3.453066632934456*^9, 3.4530666342763853`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"SymplecticAlgebraRules", " ", "=", RowBox[{"genRules", "[", RowBox[{"SymplecticAlgebraRulesa", ",", RowBox[{"{", "generalRules", "}"}], ",", "SymplecticBasis", ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Kappa]", ",", "\[Delta]"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Alpha]_", ",", "\[Beta]_"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Kappa]_", ",", "\[Delta]_"}], "}"}], ",", "A", ",", "B"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.429227589413638*^9, 3.4292275901146603`*^9}, { 3.42922766522416*^9, 3.4292276971306753`*^9}, {3.4292277976271863`*^9, 3.4292277988289385`*^9}, {3.4292289196629705`*^9, 3.4292290081319466`*^9}, {3.429229143208872*^9, 3.4292291441302147`*^9}, { 3.429229266678875*^9, 3.429229268751897*^9}, {3.4292293099820056`*^9, 3.4292293216990876`*^9}, 3.4292294659493856`*^9, 3.4292295217607517`*^9, { 3.4292303451611633`*^9, 3.4292303709287295`*^9}, 3.429230446048244*^9, { 3.4292309880083523`*^9, 3.4292309970415215`*^9}, {3.4522039324794784`*^9, 3.452203949974635*^9}, 3.4522039831924*^9, {3.4522040290783806`*^9, 3.452204030159936*^9}, 3.4522046210195503`*^9, {3.4522063251499696`*^9, 3.452206365848491*^9}, 3.452206423140874*^9, {3.4522079973745103`*^9, 3.4522080449829683`*^9}, {3.45220862887256*^9, 3.452208636102957*^9}, 3.45220953176085*^9, 3.452350627981657*^9, 3.4523509027293973`*^9, { 3.453066638121915*^9, 3.453066640585458*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"SymplecticSymmetryRules", "=", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["W", RowBox[{"a_", ",", "b_"}]], "\[RuleDelayed]", RowBox[{ SubscriptBox["W", RowBox[{"b", ",", "a"}]], " ", "/;", " ", RowBox[{"!", RowBox[{"OrderedQ", "[", RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}], "]"}]}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"A__", "\[CenterDot]", SubscriptBox["W", RowBox[{"a_", ",", "b_"}]], "\[CenterDot]", "B__"}], "\[RuleDelayed]", RowBox[{ RowBox[{"A", "\[CenterDot]", SubscriptBox["W", RowBox[{"b", ",", "a"}]], "\[CenterDot]", "B"}], "/;", " ", RowBox[{"!", RowBox[{"OrderedQ", "[", RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}], "]"}]}]}]}]}], "\[IndentingNewLine]", "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.4523466332500353`*^9, 3.4523466850381174`*^9}, { 3.4523467664408503`*^9, 3.4523467683437195`*^9}, {3.4523468850096188`*^9, 3.4523469412515116`*^9}, {3.4523470411751947`*^9, 3.4523470482653894`*^9}, { 3.452347477232214*^9, 3.452347533222724*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["l", "sp"], "[", RowBox[{"A_", ",", "B_"}], "]"}], ":=", " ", RowBox[{ RowBox[{"l", "[", RowBox[{"A", ",", "B"}], "]"}], "//.", "SymplecticAlgebraRules"}]}]], "Input", CellChangeTimes->{{3.4281034785636935`*^9, 3.428103487176078*^9}, { 3.4281035197228775`*^9, 3.428103555834804*^9}, {3.428104383272549*^9, 3.4281043834127507`*^9}, {3.4291102830597935`*^9, 3.4291103035067472`*^9}, { 3.4291113936420393`*^9, 3.429111417155146*^9}, {3.429112330948675*^9, 3.4291123323308277`*^9}, {3.4522040579198527`*^9, 3.452204068434973*^9}, { 3.452206346731002*^9, 3.4522063703850145`*^9}, {3.45220804803736*^9, 3.4522080546869216`*^9}, {3.4530666427685966`*^9, 3.4530666440404253`*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Unitary", "Section", CellChangeTimes->{{3.4281011894382477`*^9, 3.4281012112596254`*^9}, { 3.4291092659052315`*^9, 3.429109267137384*^9}}], Cell[TextData[{ "\nAlgebra for ", Cell[BoxData[ FormBox[ RowBox[{"\[ScriptCapitalU]", "(", "n", ")"}], TraditionalForm]]] }], "TextNoIndent", CellChangeTimes->{{3.4522059142691517`*^9, 3.4522060032170525`*^9}, { 3.452206042553616*^9, 3.452206115838995*^9}, {3.452351220346341*^9, 3.452351230060309*^9}}], Cell[CellGroupData[{ Cell["Unitary algebra in 3 real form", "Subsection", CellChangeTimes->{{3.4099583378836594`*^9, 3.409958347877432*^9}, 3.453067901929181*^9, {3.4530687623864574`*^9, 3.453068765150432*^9}, { 3.4530688675877295`*^9, 3.453068872454728*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"UnitaryReal3basis", "[", RowBox[{"{", RowBox[{"i_", ",", "j_"}], "}"}], "]"}], ":=", RowBox[{"{", RowBox[{ SubscriptBox["M", RowBox[{"i", ",", "j"}]], ",", SubscriptBox["J", RowBox[{"i", ",", "j"}]]}], "}"}]}]], "Input", CellChangeTimes->{{3.4281012253398714`*^9, 3.428101225480073*^9}, { 3.428101276503441*^9, 3.428101321187694*^9}, {3.4281013552266397`*^9, 3.4281013671137323`*^9}, 3.4281013984287615`*^9, {3.4281014351415515`*^9, 3.4281014528169675`*^9}, {3.4291096599252367`*^9, 3.429109727003697*^9}, 3.4291099804156656`*^9, {3.4291101247074633`*^9, 3.4291101659780416`*^9}, { 3.4292286527238073`*^9, 3.4292286559585233`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"UnitaryAlgebraReal3rulesa", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["J", RowBox[{"i_", ",", "j_"}]], ",", SubscriptBox["J", RowBox[{"k_", ",", "l_"}]]}], "]"}], "\[RuleDelayed]", 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"}]]}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["J", RowBox[{"i_", ",", "j_"}]], ",", SubscriptBox["M", RowBox[{"k_", ",", "l_"}]]}], "]"}], "\[RuleDelayed]", RowBox[{ 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"}]]}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"i_", ",", "j_"}]], ",", SubscriptBox["J", RowBox[{"k_", ",", "l_"}]]}], "]"}], "\[RuleDelayed]", 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"}]]}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"i_", ",", "j_"}]], ",", SubscriptBox["M", RowBox[{"k_", ",", "l_"}]]}], "]"}], "\[RuleDelayed]", 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"}]]}]}]}]}], "\[IndentingNewLine]", "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.4291113088326263`*^9, 3.429111321710759*^9}, { 3.4291118535626483`*^9, 3.4291118990790057`*^9}, {3.4291119606187224`*^9, 3.4291119635930586`*^9}, 3.4291120198050084`*^9, {3.4291273268710012`*^9, 3.4291273302158113`*^9}, {3.4292305194452477`*^9, 3.429230520166299*^9}, 3.429230762229195*^9, {3.4530657164866686`*^9, 3.453065724097613*^9}, { 3.453066479824294*^9, 3.453066481546771*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"UnitaryReal3SymmetryRules", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["J", RowBox[{"i_", ",", "j_"}]], "\[RuleDelayed]", RowBox[{ RowBox[{"-", SubscriptBox["J", RowBox[{"j", ",", "i"}]]}], "/;", " ", RowBox[{"!", RowBox[{"OrderedQ", "[", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}], "]"}]}]}]}], ",", "\[IndentingNewLine]", RowBox[{ SubscriptBox["M", RowBox[{"i_", ",", "j_"}]], "\[RuleDelayed]", RowBox[{ SubscriptBox["M", RowBox[{"j", ",", "i"}]], "/;", " ", RowBox[{"!", RowBox[{"OrderedQ", "[", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}], "]"}]}]}]}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"A__", "\[CenterDot]", SubscriptBox["J", RowBox[{"i_", ",", "j_"}]], "\[CenterDot]", "B__"}], "\[RuleDelayed]", RowBox[{ RowBox[{ RowBox[{"-", "A"}], "\[CenterDot]", SubscriptBox["J", RowBox[{"j", ",", "i"}]], "\[CenterDot]", "B"}], "/;", " ", RowBox[{"!", RowBox[{"OrderedQ", "[", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}], "]"}]}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"A__", "\[CenterDot]", SubscriptBox["M", RowBox[{"i_", ",", "j_"}]], "\[CenterDot]", "B__"}], "\[RuleDelayed]", RowBox[{ RowBox[{"A", "\[CenterDot]", SubscriptBox["M", RowBox[{"j", ",", "i"}]], "\[CenterDot]", "B"}], " ", "/;", " ", RowBox[{"!", RowBox[{"OrderedQ", "[", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}], "]"}]}]}]}]}], "\[IndentingNewLine]", "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.4291955062449293`*^9, 3.429195670991824*^9}, { 3.429195722736229*^9, 3.4291957319695053`*^9}, 3.4291957988256397`*^9, { 3.4291958422280493`*^9, 3.429195855176669*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"UnitaryAlgebraReal3rules", " ", "=", RowBox[{"genRules", "[", RowBox[{"UnitaryAlgebraReal3rulesa", ",", RowBox[{"{", RowBox[{"UnitaryReal3SymmetryRules", ",", "generalRules"}], "}"}], ",", "UnitaryReal3basis", ",", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "l"}], "}"}], ",", RowBox[{"{", RowBox[{"i_", ",", "j_"}], "}"}], ",", RowBox[{"{", RowBox[{"k_", ",", "l_"}], "}"}], ",", "A", ",", "B"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.429227589413638*^9, 3.4292275901146603`*^9}, { 3.42922766522416*^9, 3.4292276971306753`*^9}, {3.4292277976271863`*^9, 3.4292277988289385`*^9}, {3.4292289196629705`*^9, 3.4292290081319466`*^9}, {3.429229143208872*^9, 3.4292291441302147`*^9}, { 3.429229266678875*^9, 3.429229268751897*^9}, {3.4292293099820056`*^9, 3.4292293216990876`*^9}, 3.4292294659493856`*^9, 3.4292295217607517`*^9, { 3.4292303451611633`*^9, 3.4292303709287295`*^9}, 3.429230446048244*^9, { 3.4292309880083523`*^9, 3.4292309970415215`*^9}, {3.4523506345911613`*^9, 3.4523506352220683`*^9}, {3.4523509123442774`*^9, 3.452350912574634*^9}, { 3.4530664558398066`*^9, 3.4530664588441267`*^9}, {3.4530666906975155`*^9, 3.4530666983084593`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["l", "u3"], "[", RowBox[{"A_", ",", "B_"}], "]"}], ":=", " ", RowBox[{ RowBox[{"l", "[", RowBox[{"A", ",", "B"}], "]"}], "//.", "UnitaryAlgebraReal3rules", " "}]}]], "Input", CellChangeTimes->{{3.4281034785636935`*^9, 3.428103487176078*^9}, { 3.4281035197228775`*^9, 3.428103555834804*^9}, {3.428104383272549*^9, 3.4281043834127507`*^9}, {3.4291102830597935`*^9, 3.4291103035067472`*^9}, { 3.4291113936420393`*^9, 3.429111417155146*^9}, {3.429112330948675*^9, 3.4291123323308277`*^9}, {3.4530664404977455`*^9, 3.4530664503919725`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Unitary algebra in 3 complex form", "Subsection", CellChangeTimes->{{3.4099583378836594`*^9, 3.409958347877432*^9}, 3.453067901929181*^9, {3.4530687623864574`*^9, 3.453068765150432*^9}, { 3.4530688675877295`*^9, 3.453068872454728*^9}, {3.4602822461907625`*^9, 3.460282247572363*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"UnitaryComplex3basis", "[", RowBox[{"{", RowBox[{"i_", ",", "j_"}], "}"}], "]"}], ":=", RowBox[{"{", SubscriptBox["Z", RowBox[{"i", ",", "j"}]], "}"}]}]], "Input", CellChangeTimes->{{3.4281012253398714`*^9, 3.428101225480073*^9}, { 3.428101276503441*^9, 3.428101321187694*^9}, {3.4281013552266397`*^9, 3.4281013671137323`*^9}, 3.4281013984287615`*^9, {3.4281014351415515`*^9, 3.4281014528169675`*^9}, {3.4291096599252367`*^9, 3.429109727003697*^9}, 3.4291099804156656`*^9, {3.4291101247074633`*^9, 3.4291101659780416`*^9}, { 3.4292286527238073`*^9, 3.4292286559585233`*^9}, {3.4602822512650027`*^9, 3.460282258951723*^9}}], Cell[BoxData[ RowBox[{"UnitaryComplex3nbasis", ":=", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ SubscriptBox["Z", RowBox[{"i", ",", "j"}]], ",", RowBox[{"{", RowBox[{"i", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "2"}], "}"}]}], "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.4281012253398714`*^9, 3.428101225480073*^9}, { 3.428101276503441*^9, 3.428101321187694*^9}, {3.4281013552266397`*^9, 3.4281013671137323`*^9}, 3.4281013984287615`*^9, {3.4281014351415515`*^9, 3.4281014528169675`*^9}, {3.4291096599252367`*^9, 3.429109727003697*^9}, 3.4291099804156656`*^9, {3.4291101247074633`*^9, 3.4291101659780416`*^9}, { 3.4292286527238073`*^9, 3.4292286559585233`*^9}, {3.4602822512650027`*^9, 3.460282258951723*^9}, {3.4602847049072375`*^9, 3.4602847362883754`*^9}, { 3.4602848480105467`*^9, 3.460284852618007*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"UnitaryAlgebraComplex3rulesa", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["Z", RowBox[{"i_", ",", "j_"}]], ",", SubscriptBox["Z", RowBox[{"k_", ",", "l_"}]]}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{"\[ImaginaryI]", " ", SubscriptBox["Z", RowBox[{"i", ",", "l"}]], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "k"}]]}], "-", RowBox[{"\[ImaginaryI]", " ", SubscriptBox["Z", RowBox[{"k", ",", "j"}]], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "l"}]]}]}]}], "\[IndentingNewLine]", "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.4291113088326263`*^9, 3.429111321710759*^9}, { 3.4291118535626483`*^9, 3.4291118990790057`*^9}, {3.4291119606187224`*^9, 3.4291119635930586`*^9}, 3.4291120198050084`*^9, {3.4291273268710012`*^9, 3.4291273302158113`*^9}, {3.4292305194452477`*^9, 3.429230520166299*^9}, 3.429230762229195*^9, {3.4530657164866686`*^9, 3.453065724097613*^9}, { 3.453066479824294*^9, 3.453066481546771*^9}, {3.4602822637144747`*^9, 3.4602823171597867`*^9}, {3.4602825580682917`*^9, 3.4602825589488735`*^9}, {3.460282761488801*^9, 3.4602827778906364`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"UnitaryComplex3SymmetryRules", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["Z", RowBox[{"i_", ",", "j_"}]], "\[RuleDelayed]", RowBox[{ RowBox[{"Conjugate", "[", SubscriptBox["Z", RowBox[{"j", ",", "i"}]], "]"}], "/;", " ", RowBox[{"!", RowBox[{"OrderedQ", "[", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}], "]"}]}]}]}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"A__", "\[CenterDot]", SubscriptBox["Z", RowBox[{"i_", ",", "j_"}]], "\[CenterDot]", "B__"}], "\[RuleDelayed]", RowBox[{ RowBox[{"A", "\[CenterDot]", RowBox[{"Conjugate", "[", SubscriptBox["Z", RowBox[{"j", ",", "i"}]], "]"}], "\[CenterDot]", "B"}], "/;", " ", RowBox[{"!", RowBox[{"OrderedQ", "[", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}], "]"}]}]}]}]}], "\[IndentingNewLine]", "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.4291955062449293`*^9, 3.429195670991824*^9}, { 3.429195722736229*^9, 3.4291957319695053`*^9}, 3.4291957988256397`*^9, { 3.4291958422280493`*^9, 3.429195855176669*^9}, {3.4602823261648045`*^9, 3.460282419730776*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"UnitaryAlgebraComplex3rules", " ", "=", RowBox[{"genRules", "[", RowBox[{"UnitaryAlgebraComplex3rulesa", ",", RowBox[{"{", "generalRules", "}"}], ",", "UnitaryComplex3basis", ",", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "l"}], "}"}], ",", RowBox[{"{", RowBox[{"i_", ",", "j_"}], "}"}], ",", RowBox[{"{", RowBox[{"k_", ",", "l_"}], "}"}], ",", "A", ",", "B"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.429227589413638*^9, 3.4292275901146603`*^9}, { 3.42922766522416*^9, 3.4292276971306753`*^9}, {3.4292277976271863`*^9, 3.4292277988289385`*^9}, {3.4292289196629705`*^9, 3.4292290081319466`*^9}, {3.429229143208872*^9, 3.4292291441302147`*^9}, { 3.429229266678875*^9, 3.429229268751897*^9}, {3.4292293099820056`*^9, 3.4292293216990876`*^9}, 3.4292294659493856`*^9, 3.4292295217607517`*^9, { 3.4292303451611633`*^9, 3.4292303709287295`*^9}, 3.429230446048244*^9, { 3.4292309880083523`*^9, 3.4292309970415215`*^9}, {3.4523506345911613`*^9, 3.4523506352220683`*^9}, {3.4523509123442774`*^9, 3.452350912574634*^9}, { 3.4530664558398066`*^9, 3.4530664588441267`*^9}, {3.4530666906975155`*^9, 3.4530666983084593`*^9}, {3.460282431915985*^9, 3.460282446296683*^9}, { 3.460282707540244*^9, 3.4602827084868507`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["l", "uc3"], "[", RowBox[{"A_", ",", "B_"}], "]"}], ":=", " ", RowBox[{ RowBox[{"l", "[", RowBox[{"A", ",", "B"}], "]"}], "//.", "UnitaryAlgebraComplex3rules", " "}]}]], "Input", CellChangeTimes->{{3.4281034785636935`*^9, 3.428103487176078*^9}, { 3.4281035197228775`*^9, 3.428103555834804*^9}, {3.428104383272549*^9, 3.4281043834127507`*^9}, {3.4291102830597935`*^9, 3.4291103035067472`*^9}, { 3.4291113936420393`*^9, 3.429111417155146*^9}, {3.429112330948675*^9, 3.4291123323308277`*^9}, {3.4530664404977455`*^9, 3.4530664503919725`*^9}, { 3.4602824524490733`*^9, 3.4602824622880745`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Unitary algebra in 4 real form", "Subsection", CellChangeTimes->{{3.4099583378836594`*^9, 3.409958347877432*^9}, 3.453067901929181*^9, {3.4530687623864574`*^9, 3.453068765150432*^9}, { 3.4530688675877295`*^9, 3.453068879815312*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"UnitaryReal4basis", "[", RowBox[{"{", RowBox[{"a_", ",", "b_"}], "}"}], "]"}], ":=", RowBox[{"{", RowBox[{ SubscriptBox["M", RowBox[{"a", ",", "b"}]], ",", SubscriptBox["L", RowBox[{"a", ",", "b"}]]}], "}"}]}]], "Input", CellChangeTimes->{{3.4281012253398714`*^9, 3.428101225480073*^9}, { 3.428101276503441*^9, 3.428101321187694*^9}, {3.4281013552266397`*^9, 3.4281013671137323`*^9}, 3.4281013984287615`*^9, {3.4281014351415515`*^9, 3.4281014528169675`*^9}, {3.4291096599252367`*^9, 3.429109727003697*^9}, 3.4291099804156656`*^9, {3.4291101247074633`*^9, 3.4291101376664853`*^9}, { 3.429230957423764*^9, 3.4292309599173994`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"UnitaryAlgebraReal4rulesa", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["L", RowBox[{"a_", ",", "b_"}]], ",", SubscriptBox["L", RowBox[{"c_", ",", "d_"}]]}], "]"}], "\[RuleDelayed]", 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"}]]}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["L", RowBox[{"a_", ",", "b_"}]], ",", SubscriptBox["M", RowBox[{"c_", ",", "d_"}]]}], "]"}], "\[RuleDelayed]", 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"}]]}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"a_", ",", "b_"}]], ",", SubscriptBox["L", RowBox[{"c_", ",", "d_"}]]}], "]"}], "\[RuleDelayed]", 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"}]]}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"a_", ",", "b_"}]], ",", SubscriptBox["M", RowBox[{"c_", ",", "d_"}]]}], "]"}], "\[RuleDelayed]", 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"}]]}]}]}]}], "\[IndentingNewLine]", "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.4291098368248973`*^9, 3.4291098695929956`*^9}, 3.429109952544756*^9, {3.42911080509908*^9, 3.429110806811577*^9}, { 3.4291108433548517`*^9, 3.429110869573075*^9}, {3.4291119061593275`*^9, 3.4291119379857264`*^9}, 3.4291119974223776`*^9, 3.4291122069077806`*^9, { 3.429112272453337*^9, 3.429112286904405*^9}, {3.4292309742382774`*^9, 3.4292309747790656`*^9}, 3.4292311898520474`*^9, {3.453066470651104*^9, 3.453066474947282*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"UnitaryReal4SymmetryRules", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["L", RowBox[{"i_", ",", "j_"}]], "\[RuleDelayed]", RowBox[{ RowBox[{"-", SubscriptBox["L", RowBox[{"j", ",", "i"}]]}], "/;", " ", RowBox[{"!", RowBox[{"OrderedQ", "[", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}], "]"}]}]}]}], ",", "\[IndentingNewLine]", RowBox[{ SubscriptBox["M", RowBox[{"i_", ",", "j_"}]], "\[RuleDelayed]", RowBox[{ SubscriptBox["M", RowBox[{"j", ",", "i"}]], "/;", " ", RowBox[{"!", RowBox[{"OrderedQ", "[", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}], "]"}]}]}]}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"A__", "\[CenterDot]", SubscriptBox["L", RowBox[{"i_", ",", "j_"}]], "\[CenterDot]", "B__"}], "\[RuleDelayed]", RowBox[{ RowBox[{ RowBox[{"-", "A"}], "\[CenterDot]", SubscriptBox["L", RowBox[{"j", ",", "i"}]], "\[CenterDot]", "B"}], "/;", " ", RowBox[{"!", RowBox[{"OrderedQ", "[", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}], "]"}]}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"A__", "\[CenterDot]", SubscriptBox["M", RowBox[{"i_", ",", "j_"}]], "\[CenterDot]", "B__"}], "\[RuleDelayed]", RowBox[{ RowBox[{"A", "\[CenterDot]", SubscriptBox["M", RowBox[{"j", ",", "i"}]], "\[CenterDot]", "B"}], " ", "/;", " ", RowBox[{"!", RowBox[{"OrderedQ", "[", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}], "]"}]}]}]}]}], "\[IndentingNewLine]", "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.4291955062449293`*^9, 3.429195670991824*^9}, { 3.429195722736229*^9, 3.4291957319695053`*^9}, 3.4291957988256397`*^9, { 3.4291958422280493`*^9, 3.429195855176669*^9}, {3.4291959795755453`*^9, 3.4291959987731504`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"UnitaryALgebraReal4rules", " ", "=", RowBox[{"genRules", "[", RowBox[{"UnitaryAlgebraReal4rulesa", ",", RowBox[{"{", RowBox[{"UnitaryReal4SymmetryRules", ",", "generalRules"}], "}"}], ",", "UnitaryReal4basis", ",", RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}], ",", RowBox[{"{", RowBox[{"c", ",", "d"}], "}"}], ",", RowBox[{"{", RowBox[{"a_", ",", "b_"}], "}"}], ",", RowBox[{"{", RowBox[{"c_", ",", "d_"}], "}"}], ",", "A", ",", "B"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.428103356327927*^9, 3.428103372651399*^9}, { 3.4281034109364505`*^9, 3.428103419438676*^9}, {3.4281034524060807`*^9, 3.428103464203044*^9}, {3.4281043509060087`*^9, 3.428104352928917*^9}, { 3.429110273475832*^9, 3.4291102765303154`*^9}, {3.429111377529352*^9, 3.4291114267085977`*^9}, {3.4291119855350475`*^9, 3.4291120054741163`*^9}, {3.429112120241432*^9, 3.429112120842308*^9}, 3.429112291380931*^9, {3.429196004271056*^9, 3.4291960054327264`*^9}, { 3.4292310464435434`*^9, 3.4292310723913717`*^9}, {3.4292311111078157`*^9, 3.4292311159849253`*^9}, 3.4292311740095177`*^9, {3.452350637545409*^9, 3.452350638016086*^9}, {3.4523509151586328`*^9, 3.4523509153689585`*^9}, { 3.4530664321357217`*^9, 3.453066436822461*^9}, 3.4530667009722896`*^9}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["l", "u4"], "[", RowBox[{"A_", ",", "B_"}], "]"}], ":=", " ", RowBox[{ RowBox[{"l", "[", RowBox[{"A", ",", "B"}], "]"}], "//.", "UnitaryALgebraReal4rules", " "}]}]], "Input", CellChangeTimes->{{3.4281034785636935`*^9, 3.428103487176078*^9}, { 3.4281035197228775`*^9, 3.428103555834804*^9}, {3.428104383272549*^9, 3.4281043834127507`*^9}, {3.4291102830597935`*^9, 3.4291103035067472`*^9}, { 3.4291113936420393`*^9, 3.4291114298930817`*^9}, {3.4291123252503085`*^9, 3.429112327363389*^9}, {3.4530664227121716`*^9, 3.453066426387456*^9}}] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Abelian algebra", "Section", CellChangeTimes->{{3.4281011894382477`*^9, 3.4281012112596254`*^9}, { 3.4291092659052315`*^9, 3.429109267137384*^9}, {3.4523472053412538`*^9, 3.452347227533164*^9}}], Cell[TextData[{ "\nAlgebra for ", Cell[BoxData[ FormBox[ RowBox[{"\[ScriptCapitalA]", "(", "n", ")"}], TraditionalForm]]] }], "TextNoIndent", CellChangeTimes->{{3.4522059142691517`*^9, 3.4522060032170525`*^9}, { 3.452206042553616*^9, 3.452206115838995*^9}, {3.4522077989692173`*^9, 3.452207819979429*^9}, {3.452347339924775*^9, 3.4523473432595706`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"AbelianBasis", "[", RowBox[{"{", "\[Alpha]_", "}"}], "]"}], ":=", RowBox[{"{", SubscriptBox["A", "\[Alpha]"], "}"}]}]], "Input", CellChangeTimes->{{3.4281012253398714`*^9, 3.428101225480073*^9}, { 3.428101276503441*^9, 3.428101321187694*^9}, {3.4281013552266397`*^9, 3.4281013671137323`*^9}, 3.4281013984287615`*^9, {3.4281014351415515`*^9, 3.4281014528169675`*^9}, {3.4291096599252367`*^9, 3.429109727003697*^9}, 3.4291099804156656`*^9, {3.4291101247074633`*^9, 3.4291101659780416`*^9}, { 3.4292286527238073`*^9, 3.4292286559585233`*^9}, {3.4522030331162577`*^9, 3.452203090859288*^9}, {3.4522031254590397`*^9, 3.4522031267909555`*^9}, 3.452203923166086*^9, 3.4522039714154654`*^9, {3.452204754922093*^9, 3.4522047697834625`*^9}, {3.452206154885141*^9, 3.4522061651699295`*^9}, { 3.452207823534541*^9, 3.452207839207077*^9}, {3.4522089778844147`*^9, 3.452208981579728*^9}, {3.4523472332714157`*^9, 3.4523472417536125`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"AbelianAlgebraRulesa", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["A", "\[Alpha]_"], ",", SubscriptBox["A", "\[Beta]_"]}], "]"}], "\[RuleDelayed]", "0"}], "\[IndentingNewLine]", "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.4291113088326263`*^9, 3.429111321710759*^9}, { 3.4291118535626483`*^9, 3.4291118990790057`*^9}, {3.4291119606187224`*^9, 3.4291119635930586`*^9}, 3.4291120198050084`*^9, {3.4291273268710012`*^9, 3.4291273302158113`*^9}, {3.4292305194452477`*^9, 3.429230520166299*^9}, 3.429230762229195*^9, {3.4522031153344817`*^9, 3.4522031627126083`*^9}, { 3.4522038071292334`*^9, 3.4522038689381104`*^9}, 3.452204579179387*^9, 3.452204611075251*^9, {3.4522047760424623`*^9, 3.452204784895192*^9}, { 3.4522062044664354`*^9, 3.452206314554734*^9}, 3.45220639199609*^9, 3.452206748268384*^9, {3.452207848450368*^9, 3.4522079888222127`*^9}, 3.452208683350896*^9, 3.452209340445752*^9, {3.452209575313475*^9, 3.452209608681456*^9}, {3.4522096458048368`*^9, 3.4522096481682353`*^9}, 3.452210270933728*^9, {3.4523470862299805`*^9, 3.452347103044158*^9}, { 3.452347245649214*^9, 3.4523472704949403`*^9}, 3.4530663789893007`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"AbelianAlgebraRules", " ", "=", RowBox[{"genRules", "[", RowBox[{"AbelianAlgebraRulesa", ",", RowBox[{"{", "generalRules", "}"}], ",", "AbelianBasis", ",", RowBox[{"{", "\[Alpha]", "}"}], ",", RowBox[{"{", "\[Beta]", "}"}], ",", RowBox[{"{", "\[Alpha]_", "}"}], ",", RowBox[{"{", "\[Beta]_", "}"}], ",", "B", ",", "C"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.429227589413638*^9, 3.4292275901146603`*^9}, { 3.42922766522416*^9, 3.4292276971306753`*^9}, {3.4292277976271863`*^9, 3.4292277988289385`*^9}, {3.4292289196629705`*^9, 3.4292290081319466`*^9}, {3.429229143208872*^9, 3.4292291441302147`*^9}, { 3.429229266678875*^9, 3.429229268751897*^9}, {3.4292293099820056`*^9, 3.4292293216990876`*^9}, 3.4292294659493856`*^9, 3.4292295217607517`*^9, { 3.4292303451611633`*^9, 3.4292303709287295`*^9}, 3.429230446048244*^9, { 3.4292309880083523`*^9, 3.4292309970415215`*^9}, {3.4522039324794784`*^9, 3.452203949974635*^9}, 3.4522039831924*^9, {3.4522040290783806`*^9, 3.452204030159936*^9}, 3.4522046210195503`*^9, {3.4522063251499696`*^9, 3.452206365848491*^9}, 3.452206423140874*^9, {3.4522079973745103`*^9, 3.4522080449829683`*^9}, {3.45220862887256*^9, 3.452208636102957*^9}, 3.45220953176085*^9, {3.452347282081601*^9, 3.452347314528257*^9}, 3.4523499617336397`*^9, 3.4523506431234303`*^9, 3.452350924833606*^9, { 3.4530663823341103`*^9, 3.4530663979565744`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["l", "a"], "[", RowBox[{"A_", ",", "B_"}], "]"}], ":=", " ", RowBox[{ RowBox[{"l", "[", RowBox[{"A", ",", "B"}], "]"}], "//.", "AbelianAlgebraRules"}]}]], "Input", CellChangeTimes->{{3.4281034785636935`*^9, 3.428103487176078*^9}, { 3.4281035197228775`*^9, 3.428103555834804*^9}, {3.428104383272549*^9, 3.4281043834127507`*^9}, {3.4291102830597935`*^9, 3.4291103035067472`*^9}, { 3.4291113936420393`*^9, 3.429111417155146*^9}, {3.429112330948675*^9, 3.4291123323308277`*^9}, {3.4522040579198527`*^9, 3.452204068434973*^9}, { 3.452206346731002*^9, 3.4522063703850145`*^9}, {3.45220804803736*^9, 3.4522080546869216`*^9}, {3.452347326225076*^9, 3.4523473317630396`*^9}, { 3.4530664032942495`*^9, 3.4530664048164387`*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Inhomogeneous General Linear algebra", "Section", CellChangeTimes->{{3.4281011894382477`*^9, 3.4281012112596254`*^9}, { 3.4291092659052315`*^9, 3.429109267137384*^9}, {3.4523472053412538`*^9, 3.452347227533164*^9}, {3.452347678782028*^9, 3.45234769018843*^9}}], Cell[TextData[{ "\nAlgebra for ", Cell[BoxData[ FormBox[ RowBox[{"\[ScriptCapitalI]\[ScriptCapitalG]\[ScriptCapitalL]", "(", RowBox[{"n", ",", "\[DoubleStruckCapitalR]"}], ")"}], TraditionalForm]]] }], "TextNoIndent", CellChangeTimes->{{3.4522059142691517`*^9, 3.4522060032170525`*^9}, { 3.452206042553616*^9, 3.452206115838995*^9}, {3.4522077989692173`*^9, 3.452207819979429*^9}, {3.452347339924775*^9, 3.4523473432595706`*^9}, { 3.4523476969181066`*^9, 3.4523477117394185`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"IGLBasis", "[", RowBox[{"{", RowBox[{"\[Alpha]_", ",", "\[Beta]_", ",", "\[Gamma]_"}], "}"}], "]"}], ":=", RowBox[{"{", RowBox[{ SubsuperscriptBox["\[CapitalEpsilon]", "\[Alpha]", "\[Beta]"], ",", SubscriptBox["A", "\[Gamma]"]}], "}"}]}]], "Input", CellChangeTimes->{{3.4281012253398714`*^9, 3.428101225480073*^9}, { 3.428101276503441*^9, 3.428101321187694*^9}, {3.4281013552266397`*^9, 3.4281013671137323`*^9}, 3.4281013984287615`*^9, {3.4281014351415515`*^9, 3.4281014528169675`*^9}, {3.4291096599252367`*^9, 3.429109727003697*^9}, 3.4291099804156656`*^9, {3.4291101247074633`*^9, 3.4291101659780416`*^9}, { 3.4292286527238073`*^9, 3.4292286559585233`*^9}, {3.4522030331162577`*^9, 3.452203090859288*^9}, {3.4522031254590397`*^9, 3.4522031267909555`*^9}, 3.452203923166086*^9, 3.4522039714154654`*^9, {3.452204754922093*^9, 3.4522047697834625`*^9}, {3.452206154885141*^9, 3.4522061651699295`*^9}, { 3.452207823534541*^9, 3.452207839207077*^9}, {3.4522089778844147`*^9, 3.452208981579728*^9}, {3.4523472332714157`*^9, 3.4523472417536125`*^9}, { 3.4523491005352974`*^9, 3.452349178136883*^9}, {3.4523492872637997`*^9, 3.4523493033569403`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"IGLAlgebraRulesa", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"l", "[", RowBox[{ SubsuperscriptBox["\[CapitalEpsilon]", "\[Alpha]_", "\[Beta]_"], ",", SubscriptBox["A", "\[Gamma]_"]}], "]"}], "\[RuleDelayed]", RowBox[{ SubsuperscriptBox["\[Delta]", "\[Gamma]", "\[Beta]"], SubscriptBox["A", "\[Alpha]"]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["A", "\[Gamma]_"], ",", SubsuperscriptBox["\[CapitalEpsilon]", "\[Alpha]_", "\[Beta]_"]}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{"-", SubsuperscriptBox["\[Delta]", "\[Gamma]", "\[Beta]"]}], SubscriptBox["A", "\[Alpha]"]}]}]}], "\[IndentingNewLine]", "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.4291113088326263`*^9, 3.429111321710759*^9}, { 3.4291118535626483`*^9, 3.4291118990790057`*^9}, {3.4291119606187224`*^9, 3.4291119635930586`*^9}, 3.4291120198050084`*^9, {3.4291273268710012`*^9, 3.4291273302158113`*^9}, {3.4292305194452477`*^9, 3.429230520166299*^9}, 3.429230762229195*^9, {3.4522031153344817`*^9, 3.4522031627126083`*^9}, { 3.4522038071292334`*^9, 3.4522038689381104`*^9}, 3.452204579179387*^9, 3.452204611075251*^9, {3.4522047760424623`*^9, 3.452204784895192*^9}, { 3.4522062044664354`*^9, 3.452206314554734*^9}, 3.45220639199609*^9, 3.452206748268384*^9, {3.452207848450368*^9, 3.4522079888222127`*^9}, 3.452208683350896*^9, 3.452209340445752*^9, {3.452209575313475*^9, 3.452209608681456*^9}, {3.4522096458048368`*^9, 3.4522096481682353`*^9}, 3.452210270933728*^9, {3.4523470862299805`*^9, 3.452347103044158*^9}, { 3.452347245649214*^9, 3.4523472704949403`*^9}, {3.452349037274332*^9, 3.4523490394474573`*^9}, {3.452349091111747*^9, 3.452349093094598*^9}, { 3.4523491871899004`*^9, 3.4523492596140413`*^9}, {3.4523492907287817`*^9, 3.4523493112482877`*^9}, 3.452349435687222*^9, {3.453066357718715*^9, 3.453066360242344*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"IGLAlgebraRules", " ", "=", RowBox[{"genRules", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"{", RowBox[{ "IGLAlgebraRulesa", ",", "AbelianAlgebraRulesa", ",", "GeneralLinearAlgebraRulesa"}], "}"}], "]"}], ",", RowBox[{"{", "generalRules", "}"}], ",", "IGLBasis", ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Kappa]", ",", " ", "\[Iota]", ",", " ", "\[Epsilon]"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Alpha]_", ",", "\[Beta]_", ",", "\[Gamma]_"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Kappa]_", ",", " ", "\[Iota]_", ",", " ", "\[Epsilon]_"}], "}"}], ",", "B", ",", "C"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.429227589413638*^9, 3.4292275901146603`*^9}, { 3.42922766522416*^9, 3.4292276971306753`*^9}, {3.4292277976271863`*^9, 3.4292277988289385`*^9}, {3.4292289196629705`*^9, 3.4292290081319466`*^9}, {3.429229143208872*^9, 3.4292291441302147`*^9}, { 3.429229266678875*^9, 3.429229268751897*^9}, {3.4292293099820056`*^9, 3.4292293216990876`*^9}, 3.4292294659493856`*^9, 3.4292295217607517`*^9, { 3.4292303451611633`*^9, 3.4292303709287295`*^9}, 3.429230446048244*^9, { 3.4292309880083523`*^9, 3.4292309970415215`*^9}, {3.4522039324794784`*^9, 3.452203949974635*^9}, 3.4522039831924*^9, {3.4522040290783806`*^9, 3.452204030159936*^9}, 3.4522046210195503`*^9, {3.4522063251499696`*^9, 3.452206365848491*^9}, 3.452206423140874*^9, {3.4522079973745103`*^9, 3.4522080449829683`*^9}, {3.45220862887256*^9, 3.452208636102957*^9}, 3.45220953176085*^9, {3.452347282081601*^9, 3.452347314528257*^9}, { 3.452349267445302*^9, 3.4523493360839996`*^9}, 3.452349417981763*^9, { 3.4523498338998237`*^9, 3.452349836914158*^9}, {3.452349910369782*^9, 3.4523499484445305`*^9}, {3.452349980971302*^9, 3.452350002682521*^9}, { 3.452350244770627*^9, 3.452350249367236*^9}, {3.452350407464569*^9, 3.4523504603105583`*^9}, {3.4523506590363116`*^9, 3.452350674598689*^9}, 3.452350755341299*^9, 3.452350928459217*^9, {3.45235106755664*^9, 3.452351092332266*^9}, {3.4530663396527376`*^9, 3.4530663703869314`*^9}, { 3.4530665216544433`*^9, 3.4530665323197794`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["l", "igl"], "[", RowBox[{"A_", ",", "B_"}], "]"}], ":=", " ", RowBox[{ RowBox[{"l", "[", RowBox[{"A", ",", "B"}], "]"}], "//.", "IGLAlgebraRules"}]}]], "Input", CellChangeTimes->{{3.4281034785636935`*^9, 3.428103487176078*^9}, { 3.4281035197228775`*^9, 3.428103555834804*^9}, {3.428104383272549*^9, 3.4281043834127507`*^9}, {3.4291102830597935`*^9, 3.4291103035067472`*^9}, { 3.4291113936420393`*^9, 3.429111417155146*^9}, {3.429112330948675*^9, 3.4291123323308277`*^9}, {3.4522040579198527`*^9, 3.452204068434973*^9}, { 3.452206346731002*^9, 3.4522063703850145`*^9}, {3.45220804803736*^9, 3.4522080546869216`*^9}, {3.452347326225076*^9, 3.4523473317630396`*^9}, { 3.45234939783279*^9, 3.4523494062649145`*^9}, {3.453066409082573*^9, 3.4530664104044733`*^9}}], Cell[CellGroupData[{ Cell["Central extension", "Subsection", CellChangeTimes->{{3.4555791431478*^9, 3.4555791476832533`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"IGLceBasis", "[", RowBox[{"{", RowBox[{"\[Alpha]_", ",", "\[Beta]_", ",", "\[Gamma]_"}], "}"}], "]"}], ":=", RowBox[{"{", RowBox[{ SubsuperscriptBox["\[CapitalEpsilon]", "\[Alpha]", "\[Beta]"], ",", SubscriptBox["P", "\[Gamma]"], ",", SubscriptBox["A", RowBox[{"\[Alpha]", ",", "\[Beta]"}]], ",", SubsuperscriptBox["M", RowBox[{"\[Alpha]", ",", "\[Gamma]"}], "\[Beta]"]}], "}"}]}]], "Input", CellChangeTimes->{{3.4281012253398714`*^9, 3.428101225480073*^9}, { 3.428101276503441*^9, 3.428101321187694*^9}, {3.4281013552266397`*^9, 3.4281013671137323`*^9}, 3.4281013984287615`*^9, {3.4281014351415515`*^9, 3.4281014528169675`*^9}, {3.4291096599252367`*^9, 3.429109727003697*^9}, 3.4291099804156656`*^9, {3.4291101247074633`*^9, 3.4291101659780416`*^9}, { 3.4292286527238073`*^9, 3.4292286559585233`*^9}, {3.4522030331162577`*^9, 3.452203090859288*^9}, {3.4522031254590397`*^9, 3.4522031267909555`*^9}, 3.452203923166086*^9, 3.4522039714154654`*^9, {3.452204754922093*^9, 3.4522047697834625`*^9}, {3.452206154885141*^9, 3.4522061651699295`*^9}, { 3.452207823534541*^9, 3.452207839207077*^9}, {3.4522089778844147`*^9, 3.452208981579728*^9}, {3.4523472332714157`*^9, 3.4523472417536125`*^9}, { 3.4523491005352974`*^9, 3.452349178136883*^9}, {3.4523492872637997`*^9, 3.4523493033569403`*^9}, {3.455579178803365*^9, 3.4555792635578403`*^9}, { 3.455579329138397*^9, 3.4555793295114346`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"IGLceAlgebraRulesa", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"l", "[", RowBox[{ SubsuperscriptBox["\[CapitalEpsilon]", "\[Alpha]_", "\[Beta]_"], ",", SubscriptBox["P", "\[Gamma]_"]}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{ SubsuperscriptBox["\[Delta]", "\[Gamma]", "\[Beta]"], SubscriptBox["P", "\[Alpha]"]}], " ", "+", SubsuperscriptBox["M", RowBox[{"\[Alpha]", ",", "\[Gamma]"}], "\[Beta]"]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Gamma]_"], ",", SubsuperscriptBox["\[CapitalEpsilon]", "\[Alpha]_", "\[Beta]_"]}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{ RowBox[{"-", SubsuperscriptBox["\[Delta]", "\[Gamma]", "\[Beta]"]}], SubscriptBox["P", "\[Alpha]"]}], "-", SubsuperscriptBox["M", RowBox[{"\[Alpha]", ",", "\[Gamma]"}], "\[Beta]"]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Alpha]_"], ",", SubscriptBox["P", "\[Beta]_"]}], "]"}], "\[RuleDelayed]", SubscriptBox["A", RowBox[{"\[Alpha]", ",", "\[Beta]"}]]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubsuperscriptBox["\[CapitalEpsilon]", "\[Alpha]_", "\[Beta]_"], ",", SubsuperscriptBox["M", RowBox[{"\[Delta]_", ",", "\[Kappa]_"}], "\[Gamma]_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubsuperscriptBox["M", RowBox[{"\[Delta]_", ",", "\[Kappa]_"}], "\[Gamma]_"], ",", SubsuperscriptBox["\[CapitalEpsilon]", "\[Alpha]_", "\[Beta]_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Alpha]_"], ",", SubsuperscriptBox["M", RowBox[{"\[Delta]_", ",", "\[Kappa]_"}], "\[Gamma]_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubsuperscriptBox["M", RowBox[{"\[Delta]_", ",", "\[Kappa]_"}], "\[Gamma]_"], ",", SubscriptBox["P", "\[Alpha]_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubsuperscriptBox["\[CapitalEpsilon]", "\[Alpha]_", "\[Beta]_"], ",", SubscriptBox["A", RowBox[{"\[Delta]_", ",", "\[Kappa]_"}]]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Delta]_", ",", "\[Kappa]_"}]], ",", SubsuperscriptBox["\[CapitalEpsilon]", "\[Alpha]_", "\[Beta]_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Alpha]_"], ",", SubscriptBox["A", RowBox[{"\[Delta]_", ",", "\[Kappa]_"}]]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Delta]_", ",", "\[Kappa]_"}]], ",", SubscriptBox["P", "\[Alpha]_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubsuperscriptBox["M", RowBox[{"\[Beta]_", ",", "\[Gamma]_"}], "\[Alpha]_"], ",", SubscriptBox["A", RowBox[{"\[Delta]_", ",", "\[Kappa]_"}]]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Delta]_", ",", "\[Kappa]_"}]], ",", SubsuperscriptBox["M", RowBox[{"\[Beta]_", ",", "\[Gamma]_"}], "\[Alpha]_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Beta]_", ",", "\[Gamma]_"}]], ",", SubscriptBox["A", RowBox[{"\[Delta]_", ",", "\[Kappa]_"}]]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubsuperscriptBox["M", RowBox[{"\[Delta]_", ",", "\[Kappa]_"}], "\[Sigma]_"], ",", SubsuperscriptBox["M", RowBox[{"\[Beta]_", ",", "\[Gamma]_"}], "\[Alpha]_"]}], "]"}], "\[RuleDelayed]", "0"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.4291113088326263`*^9, 3.429111321710759*^9}, { 3.4291118535626483`*^9, 3.4291118990790057`*^9}, {3.4291119606187224`*^9, 3.4291119635930586`*^9}, 3.4291120198050084`*^9, {3.4291273268710012`*^9, 3.4291273302158113`*^9}, {3.4292305194452477`*^9, 3.429230520166299*^9}, 3.429230762229195*^9, {3.4522031153344817`*^9, 3.4522031627126083`*^9}, { 3.4522038071292334`*^9, 3.4522038689381104`*^9}, 3.452204579179387*^9, 3.452204611075251*^9, {3.4522047760424623`*^9, 3.452204784895192*^9}, { 3.4522062044664354`*^9, 3.452206314554734*^9}, 3.45220639199609*^9, 3.452206748268384*^9, {3.452207848450368*^9, 3.4522079888222127`*^9}, 3.452208683350896*^9, 3.452209340445752*^9, {3.452209575313475*^9, 3.452209608681456*^9}, {3.4522096458048368`*^9, 3.4522096481682353`*^9}, 3.452210270933728*^9, {3.4523470862299805`*^9, 3.452347103044158*^9}, { 3.452347245649214*^9, 3.4523472704949403`*^9}, {3.452349037274332*^9, 3.4523490394474573`*^9}, {3.452349091111747*^9, 3.452349093094598*^9}, { 3.4523491871899004`*^9, 3.4523492596140413`*^9}, {3.4523492907287817`*^9, 3.4523493112482877`*^9}, 3.452349435687222*^9, {3.453066357718715*^9, 3.453066360242344*^9}, {3.4555791811796026`*^9, 3.455579192744759*^9}, { 3.4555792276952543`*^9, 3.4555792325497394`*^9}, {3.4555792683403177`*^9, 3.455579313145798*^9}, {3.4555794721226945`*^9, 3.4555796621666965`*^9}, { 3.455579702072687*^9, 3.455579793322811*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"IGLceAlgebraRules", " ", "=", RowBox[{"genRules", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"{", RowBox[{"IGLceAlgebraRulesa", ",", "GeneralLinearAlgebraRulesa"}], "}"}], "]"}], ",", RowBox[{"{", "generalRules", "}"}], ",", "IGLceBasis", ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Kappa]", ",", " ", "\[Iota]", ",", " ", "\[Epsilon]"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Alpha]_", ",", "\[Beta]_", ",", "\[Gamma]_"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Kappa]_", ",", " ", "\[Iota]_", ",", " ", "\[Epsilon]_"}], "}"}], ",", "B", ",", "D"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.429227589413638*^9, 3.4292275901146603`*^9}, { 3.42922766522416*^9, 3.4292276971306753`*^9}, {3.4292277976271863`*^9, 3.4292277988289385`*^9}, {3.4292289196629705`*^9, 3.4292290081319466`*^9}, {3.429229143208872*^9, 3.4292291441302147`*^9}, { 3.429229266678875*^9, 3.429229268751897*^9}, {3.4292293099820056`*^9, 3.4292293216990876`*^9}, 3.4292294659493856`*^9, 3.4292295217607517`*^9, { 3.4292303451611633`*^9, 3.4292303709287295`*^9}, 3.429230446048244*^9, { 3.4292309880083523`*^9, 3.4292309970415215`*^9}, {3.4522039324794784`*^9, 3.452203949974635*^9}, 3.4522039831924*^9, {3.4522040290783806`*^9, 3.452204030159936*^9}, 3.4522046210195503`*^9, {3.4522063251499696`*^9, 3.452206365848491*^9}, 3.452206423140874*^9, {3.4522079973745103`*^9, 3.4522080449829683`*^9}, {3.45220862887256*^9, 3.452208636102957*^9}, 3.45220953176085*^9, {3.452347282081601*^9, 3.452347314528257*^9}, { 3.452349267445302*^9, 3.4523493360839996`*^9}, 3.452349417981763*^9, { 3.4523498338998237`*^9, 3.452349836914158*^9}, {3.452349910369782*^9, 3.4523499484445305`*^9}, {3.452349980971302*^9, 3.452350002682521*^9}, { 3.452350244770627*^9, 3.452350249367236*^9}, {3.452350407464569*^9, 3.4523504603105583`*^9}, {3.4523506590363116`*^9, 3.452350674598689*^9}, 3.452350755341299*^9, 3.452350928459217*^9, {3.45235106755664*^9, 3.452351092332266*^9}, {3.4530663396527376`*^9, 3.4530663703869314`*^9}, { 3.4530665216544433`*^9, 3.4530665323197794`*^9}, {3.4555793328287663`*^9, 3.455579388533336*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["l", "iglce"], "[", RowBox[{"A_", ",", "B_"}], "]"}], ":=", " ", RowBox[{ RowBox[{"l", "[", RowBox[{"A", ",", "B"}], "]"}], "//.", "IGLceAlgebraRules"}]}]], "Input", CellChangeTimes->{{3.4281034785636935`*^9, 3.428103487176078*^9}, { 3.4281035197228775`*^9, 3.428103555834804*^9}, {3.428104383272549*^9, 3.4281043834127507`*^9}, {3.4291102830597935`*^9, 3.4291103035067472`*^9}, { 3.4291113936420393`*^9, 3.429111417155146*^9}, {3.429112330948675*^9, 3.4291123323308277`*^9}, {3.4522040579198527`*^9, 3.452204068434973*^9}, { 3.452206346731002*^9, 3.4522063703850145`*^9}, {3.45220804803736*^9, 3.4522080546869216`*^9}, {3.452347326225076*^9, 3.4523473317630396`*^9}, { 3.45234939783279*^9, 3.4523494062649145`*^9}, {3.453066409082573*^9, 3.4530664104044733`*^9}, {3.4555793989093733`*^9, 3.455579408363319*^9}}], Cell[BoxData["\[Congruent]"], "Input", EmphasizeSyntaxErrors->True] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Inhomogeneous orthogonal and Lorentz", "Section", CellChangeTimes->{{3.4281011894382477`*^9, 3.4281012112596254`*^9}, { 3.4291092659052315`*^9, 3.429109267137384*^9}, {3.4523472053412538`*^9, 3.452347227533164*^9}, {3.452347678782028*^9, 3.45234769018843*^9}, { 3.4534889382288065`*^9, 3.45348894456544*^9}}], Cell[TextData[{ "\nAlgebra for ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[ScriptCapitalI]O", "(", "n", ")"}], ",", " ", RowBox[{"\[ScriptCapitalI]\[ScriptCapitalL]", "(", RowBox[{"1", ",", "n"}], ")"}], ",", "..."}], TraditionalForm]]] }], "TextNoIndent", CellChangeTimes->{{3.4522059142691517`*^9, 3.4522060032170525`*^9}, { 3.452206042553616*^9, 3.452206115838995*^9}, {3.4522077989692173`*^9, 3.452207819979429*^9}, {3.452347339924775*^9, 3.4523473432595706`*^9}, { 3.4523476969181066`*^9, 3.4523477117394185`*^9}, {3.453489057317714*^9, 3.4534890716091433`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"ISOBasis", "[", RowBox[{"{", RowBox[{"i_", ",", "j_"}], "}"}], "]"}], ":=", RowBox[{"{", RowBox[{ SubscriptBox["J", RowBox[{"i", ",", "j"}]], ",", SubscriptBox["A", "i"]}], "}"}]}]], "Input", CellChangeTimes->{{3.4281012253398714`*^9, 3.428101225480073*^9}, { 3.428101276503441*^9, 3.428101321187694*^9}, {3.4281013552266397`*^9, 3.4281013671137323`*^9}, 3.4281013984287615`*^9, {3.4281014351415515`*^9, 3.4281014528169675`*^9}, {3.4291096599252367`*^9, 3.429109727003697*^9}, 3.4291099804156656`*^9, {3.4291101247074633`*^9, 3.4291101659780416`*^9}, { 3.4292286527238073`*^9, 3.4292286559585233`*^9}, {3.4522030331162577`*^9, 3.452203090859288*^9}, {3.4522031254590397`*^9, 3.4522031267909555`*^9}, 3.452203923166086*^9, 3.4522039714154654`*^9, {3.452204754922093*^9, 3.4522047697834625`*^9}, {3.452206154885141*^9, 3.4522061651699295`*^9}, { 3.452207823534541*^9, 3.452207839207077*^9}, {3.4522089778844147`*^9, 3.452208981579728*^9}, {3.4523472332714157`*^9, 3.4523472417536125`*^9}, { 3.4523491005352974`*^9, 3.452349178136883*^9}, {3.4523492872637997`*^9, 3.4523493033569403`*^9}, {3.453488953824366*^9, 3.4534889755115347`*^9}, { 3.453489023920375*^9, 3.453489029642947*^9}, {3.4534891961765985`*^9, 3.4534892164626274`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"ISOAlgebraRulesa", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["J", RowBox[{"i_", ",", "j_"}]], ",", SubscriptBox["A", "k_"]}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]]}], SubscriptBox["A", "j"]}], "+", RowBox[{ SubscriptBox["\[Delta]", RowBox[{"j", ",", "k"}]], SubscriptBox["A", "i"]}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["A", "k_"], ",", SubscriptBox["J", RowBox[{"i_", ",", "j_"}]]}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{ SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]], SubscriptBox["A", "j"]}], "-", RowBox[{ SubscriptBox["\[Delta]", RowBox[{"j", ",", "k"}]], SubscriptBox["A", "i"]}]}]}]}], "\[IndentingNewLine]", "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.4291113088326263`*^9, 3.429111321710759*^9}, { 3.4291118535626483`*^9, 3.4291118990790057`*^9}, {3.4291119606187224`*^9, 3.4291119635930586`*^9}, 3.4291120198050084`*^9, {3.4291273268710012`*^9, 3.4291273302158113`*^9}, {3.4292305194452477`*^9, 3.429230520166299*^9}, 3.429230762229195*^9, {3.4522031153344817`*^9, 3.4522031627126083`*^9}, { 3.4522038071292334`*^9, 3.4522038689381104`*^9}, 3.452204579179387*^9, 3.452204611075251*^9, {3.4522047760424623`*^9, 3.452204784895192*^9}, { 3.4522062044664354`*^9, 3.452206314554734*^9}, 3.45220639199609*^9, 3.452206748268384*^9, {3.452207848450368*^9, 3.4522079888222127`*^9}, 3.452208683350896*^9, 3.452209340445752*^9, {3.452209575313475*^9, 3.452209608681456*^9}, {3.4522096458048368`*^9, 3.4522096481682353`*^9}, 3.452210270933728*^9, {3.4523470862299805`*^9, 3.452347103044158*^9}, { 3.452347245649214*^9, 3.4523472704949403`*^9}, {3.452349037274332*^9, 3.4523490394474573`*^9}, {3.452349091111747*^9, 3.452349093094598*^9}, { 3.4523491871899004`*^9, 3.4523492596140413`*^9}, {3.4523492907287817`*^9, 3.4523493112482877`*^9}, 3.452349435687222*^9, {3.453066357718715*^9, 3.453066360242344*^9}, {3.4534890048734703`*^9, 3.4534890126372466`*^9}, { 3.453489046715654*^9, 3.4534890481237946`*^9}, {3.4534890945284348`*^9, 3.4534891598419657`*^9}, {3.453489639466923*^9, 3.453489668157792*^9}, { 3.453489878476822*^9, 3.4534898822612004`*^9}, {3.453489989355909*^9, 3.4534899932062936`*^9}, {3.4534900350344763`*^9, 3.453490043355308*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"ISOAlgebraRules", " ", "=", RowBox[{"genRules", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"{", RowBox[{ "ISOAlgebraRulesa", ",", "OrthogonalAlgebraRulesa", ",", "AbelianAlgebraRulesa"}], "}"}], "]"}], ",", RowBox[{"{", "generalRules", "}"}], ",", "ISOBasis", ",", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", " ", "l"}], "}"}], ",", RowBox[{"{", RowBox[{"i_", ",", "j_"}], "}"}], ",", RowBox[{"{", RowBox[{"k_", ",", " ", "l_"}], "}"}], ",", "D", ",", "C"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.429227589413638*^9, 3.4292275901146603`*^9}, { 3.42922766522416*^9, 3.4292276971306753`*^9}, {3.4292277976271863`*^9, 3.4292277988289385`*^9}, {3.4292289196629705`*^9, 3.4292290081319466`*^9}, {3.429229143208872*^9, 3.4292291441302147`*^9}, { 3.429229266678875*^9, 3.429229268751897*^9}, {3.4292293099820056`*^9, 3.4292293216990876`*^9}, 3.4292294659493856`*^9, 3.4292295217607517`*^9, { 3.4292303451611633`*^9, 3.4292303709287295`*^9}, 3.429230446048244*^9, { 3.4292309880083523`*^9, 3.4292309970415215`*^9}, {3.4522039324794784`*^9, 3.452203949974635*^9}, 3.4522039831924*^9, {3.4522040290783806`*^9, 3.452204030159936*^9}, 3.4522046210195503`*^9, {3.4522063251499696`*^9, 3.452206365848491*^9}, 3.452206423140874*^9, {3.4522079973745103`*^9, 3.4522080449829683`*^9}, {3.45220862887256*^9, 3.452208636102957*^9}, 3.45220953176085*^9, {3.452347282081601*^9, 3.452347314528257*^9}, { 3.452349267445302*^9, 3.4523493360839996`*^9}, 3.452349417981763*^9, { 3.4523498338998237`*^9, 3.452349836914158*^9}, {3.452349910369782*^9, 3.4523499484445305`*^9}, {3.452349980971302*^9, 3.452350002682521*^9}, { 3.452350244770627*^9, 3.452350249367236*^9}, {3.452350407464569*^9, 3.4523504603105583`*^9}, {3.4523506590363116`*^9, 3.452350674598689*^9}, 3.452350755341299*^9, 3.452350928459217*^9, {3.45235106755664*^9, 3.452351092332266*^9}, {3.4530663396527376`*^9, 3.4530663703869314`*^9}, { 3.4530665216544433`*^9, 3.4530665323197794`*^9}, {3.453489040944077*^9, 3.453489041342117*^9}, {3.453489185352516*^9, 3.453489188081789*^9}, { 3.453489221971178*^9, 3.4534892617011504`*^9}, {3.453489295371517*^9, 3.453489295818562*^9}, {3.4534894375847373`*^9, 3.4534894382808065`*^9}, { 3.453489495949573*^9, 3.4534895113821163`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["l", "iso"], "[", RowBox[{"A_", ",", "B_"}], "]"}], ":=", " ", RowBox[{ RowBox[{"l", "[", RowBox[{"A", ",", "B"}], "]"}], "//.", "ISOAlgebraRules"}]}]], "Input", CellChangeTimes->{{3.4281034785636935`*^9, 3.428103487176078*^9}, { 3.4281035197228775`*^9, 3.428103555834804*^9}, {3.428104383272549*^9, 3.4281043834127507`*^9}, {3.4291102830597935`*^9, 3.4291103035067472`*^9}, { 3.4291113936420393`*^9, 3.429111417155146*^9}, {3.429112330948675*^9, 3.4291123323308277`*^9}, {3.4522040579198527`*^9, 3.452204068434973*^9}, { 3.452206346731002*^9, 3.4522063703850145`*^9}, {3.45220804803736*^9, 3.4522080546869216`*^9}, {3.452347326225076*^9, 3.4523473317630396`*^9}, { 3.45234939783279*^9, 3.4523494062649145`*^9}, {3.453066409082573*^9, 3.4530664104044733`*^9}, {3.4534889930752907`*^9, 3.4534889933743205`*^9}, { 3.453489269156896*^9, 3.4534892700269833`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"ILBasis", "[", RowBox[{"{", RowBox[{"a_", ",", "b_"}], "}"}], "]"}], ":=", RowBox[{"{", RowBox[{ SubscriptBox["L", RowBox[{"a", ",", "b"}]], ",", SubscriptBox["A", "a"]}], "}"}]}]], "Input", CellChangeTimes->{{3.4281012253398714`*^9, 3.428101225480073*^9}, { 3.428101276503441*^9, 3.428101321187694*^9}, {3.4281013552266397`*^9, 3.4281013671137323`*^9}, 3.4281013984287615`*^9, {3.4281014351415515`*^9, 3.4281014528169675`*^9}, {3.4291096599252367`*^9, 3.429109727003697*^9}, 3.4291099804156656`*^9, {3.4291101247074633`*^9, 3.4291101659780416`*^9}, { 3.4292286527238073`*^9, 3.4292286559585233`*^9}, {3.4522030331162577`*^9, 3.452203090859288*^9}, {3.4522031254590397`*^9, 3.4522031267909555`*^9}, 3.452203923166086*^9, 3.4522039714154654`*^9, {3.452204754922093*^9, 3.4522047697834625`*^9}, {3.452206154885141*^9, 3.4522061651699295`*^9}, { 3.452207823534541*^9, 3.452207839207077*^9}, {3.4522089778844147`*^9, 3.452208981579728*^9}, {3.4523472332714157`*^9, 3.4523472417536125`*^9}, { 3.4523491005352974`*^9, 3.452349178136883*^9}, {3.4523492872637997`*^9, 3.4523493033569403`*^9}, {3.453488953824366*^9, 3.4534889755115347`*^9}, { 3.453489023920375*^9, 3.453489029642947*^9}, {3.4534891961765985`*^9, 3.4534892164626274`*^9}, {3.4534897039783735`*^9, 3.4534897216671424`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"ILAlgebraRulesa", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["L", RowBox[{"a_", ",", "b_"}]], ",", SubscriptBox["A", "c_"]}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["\[Eta]", RowBox[{"a", ",", "c"}]]}], SubscriptBox["A", "b"]}], "+", RowBox[{ SubscriptBox["\[Eta]", RowBox[{"b", ",", "c"}]], SubscriptBox["A", "a"]}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["A", "c_"], ",", SubscriptBox["L", RowBox[{"a_", ",", "b_"}]]}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{ SubscriptBox["\[Eta]", RowBox[{"a", ",", "c"}]], SubscriptBox["A", "b"]}], "-", RowBox[{ SubscriptBox["\[Eta]", RowBox[{"b", ",", "c"}]], SubscriptBox["A", "a"]}]}]}]}], "\[IndentingNewLine]", "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.4291113088326263`*^9, 3.429111321710759*^9}, { 3.4291118535626483`*^9, 3.4291118990790057`*^9}, {3.4291119606187224`*^9, 3.4291119635930586`*^9}, 3.4291120198050084`*^9, {3.4291273268710012`*^9, 3.4291273302158113`*^9}, {3.4292305194452477`*^9, 3.429230520166299*^9}, 3.429230762229195*^9, {3.4522031153344817`*^9, 3.4522031627126083`*^9}, { 3.4522038071292334`*^9, 3.4522038689381104`*^9}, 3.452204579179387*^9, 3.452204611075251*^9, {3.4522047760424623`*^9, 3.452204784895192*^9}, { 3.4522062044664354`*^9, 3.452206314554734*^9}, 3.45220639199609*^9, 3.452206748268384*^9, {3.452207848450368*^9, 3.4522079888222127`*^9}, 3.452208683350896*^9, 3.452209340445752*^9, {3.452209575313475*^9, 3.452209608681456*^9}, {3.4522096458048368`*^9, 3.4522096481682353`*^9}, 3.452210270933728*^9, {3.4523470862299805`*^9, 3.452347103044158*^9}, { 3.452347245649214*^9, 3.4523472704949403`*^9}, {3.452349037274332*^9, 3.4523490394474573`*^9}, {3.452349091111747*^9, 3.452349093094598*^9}, { 3.4523491871899004`*^9, 3.4523492596140413`*^9}, {3.4523492907287817`*^9, 3.4523493112482877`*^9}, 3.452349435687222*^9, {3.453066357718715*^9, 3.453066360242344*^9}, {3.4534890048734703`*^9, 3.4534890126372466`*^9}, { 3.453489046715654*^9, 3.4534890481237946`*^9}, {3.4534890945284348`*^9, 3.4534891598419657`*^9}, {3.453489639466923*^9, 3.453489668157792*^9}, { 3.4534897255935354`*^9, 3.453489801638139*^9}, {3.453490072664239*^9, 3.45349008148012*^9}, {3.4534901893609076`*^9, 3.4534901937923503`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"ILAlgebraRules", " ", "=", RowBox[{"genRules", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"{", RowBox[{ "ILAlgebraRulesa", ",", "LorentzAlgebraRulesa", ",", "AbelianAlgebraRulesa"}], "}"}], "]"}], ",", RowBox[{"{", "generalRules", "}"}], ",", "ILBasis", ",", RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}], ",", RowBox[{"{", RowBox[{"c", ",", " ", "d"}], "}"}], ",", RowBox[{"{", RowBox[{"a_", ",", "b_"}], "}"}], ",", RowBox[{"{", RowBox[{"c_", ",", " ", "d_"}], "}"}], ",", "D", ",", "C"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.429227589413638*^9, 3.4292275901146603`*^9}, { 3.42922766522416*^9, 3.4292276971306753`*^9}, {3.4292277976271863`*^9, 3.4292277988289385`*^9}, {3.4292289196629705`*^9, 3.4292290081319466`*^9}, {3.429229143208872*^9, 3.4292291441302147`*^9}, { 3.429229266678875*^9, 3.429229268751897*^9}, {3.4292293099820056`*^9, 3.4292293216990876`*^9}, 3.4292294659493856`*^9, 3.4292295217607517`*^9, { 3.4292303451611633`*^9, 3.4292303709287295`*^9}, 3.429230446048244*^9, { 3.4292309880083523`*^9, 3.4292309970415215`*^9}, {3.4522039324794784`*^9, 3.452203949974635*^9}, 3.4522039831924*^9, {3.4522040290783806`*^9, 3.452204030159936*^9}, 3.4522046210195503`*^9, {3.4522063251499696`*^9, 3.452206365848491*^9}, 3.452206423140874*^9, {3.4522079973745103`*^9, 3.4522080449829683`*^9}, {3.45220862887256*^9, 3.452208636102957*^9}, 3.45220953176085*^9, {3.452347282081601*^9, 3.452347314528257*^9}, { 3.452349267445302*^9, 3.4523493360839996`*^9}, 3.452349417981763*^9, { 3.4523498338998237`*^9, 3.452349836914158*^9}, {3.452349910369782*^9, 3.4523499484445305`*^9}, {3.452349980971302*^9, 3.452350002682521*^9}, { 3.452350244770627*^9, 3.452350249367236*^9}, {3.452350407464569*^9, 3.4523504603105583`*^9}, {3.4523506590363116`*^9, 3.452350674598689*^9}, 3.452350755341299*^9, 3.452350928459217*^9, {3.45235106755664*^9, 3.452351092332266*^9}, {3.4530663396527376`*^9, 3.4530663703869314`*^9}, { 3.4530665216544433`*^9, 3.4530665323197794`*^9}, {3.453489040944077*^9, 3.453489041342117*^9}, {3.453489185352516*^9, 3.453489188081789*^9}, { 3.453489221971178*^9, 3.4534892617011504`*^9}, {3.453489295371517*^9, 3.453489295818562*^9}, {3.4534894375847373`*^9, 3.4534894382808065`*^9}, { 3.453489495949573*^9, 3.4534895113821163`*^9}, {3.4534898047264476`*^9, 3.4534898286358385`*^9}, {3.4534901437873507`*^9, 3.453490168347806*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["l", "il"], "[", RowBox[{"A_", ",", "B_"}], "]"}], ":=", " ", RowBox[{ RowBox[{"l", "[", RowBox[{"A", ",", "B"}], "]"}], "//.", "ILAlgebraRules"}]}]], "Input", CellChangeTimes->{{3.4281034785636935`*^9, 3.428103487176078*^9}, { 3.4281035197228775`*^9, 3.428103555834804*^9}, {3.428104383272549*^9, 3.4281043834127507`*^9}, {3.4291102830597935`*^9, 3.4291103035067472`*^9}, { 3.4291113936420393`*^9, 3.429111417155146*^9}, {3.429112330948675*^9, 3.4291123323308277`*^9}, {3.4522040579198527`*^9, 3.452204068434973*^9}, { 3.452206346731002*^9, 3.4522063703850145`*^9}, {3.45220804803736*^9, 3.4522080546869216`*^9}, {3.452347326225076*^9, 3.4523473317630396`*^9}, { 3.45234939783279*^9, 3.4523494062649145`*^9}, {3.453066409082573*^9, 3.4530664104044733`*^9}, {3.4534889930752907`*^9, 3.4534889933743205`*^9}, { 3.453489269156896*^9, 3.4534892700269833`*^9}, {3.453489832373212*^9, 3.453489835472522*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Inhomogeneous symplectic", "Section", CellChangeTimes->{{3.4281011894382477`*^9, 3.4281012112596254`*^9}, { 3.4291092659052315`*^9, 3.429109267137384*^9}, {3.4523472053412538`*^9, 3.452347227533164*^9}, {3.452347678782028*^9, 3.45234769018843*^9}, { 3.4534889382288065`*^9, 3.45348894456544*^9}, {3.453490357576727*^9, 3.4534903609090605`*^9}, {3.4556177831826153`*^9, 3.455617786619959*^9}}], Cell[TextData[{ "\nAlgebra for ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[ScriptCapitalI]\[ScriptCapitalS]\[ScriptP]", "(", RowBox[{"2", "n"}], ")"}], ",", "..."}], TraditionalForm]]] }], "TextNoIndent", CellChangeTimes->{{3.4522059142691517`*^9, 3.4522060032170525`*^9}, { 3.452206042553616*^9, 3.452206115838995*^9}, {3.4522077989692173`*^9, 3.452207819979429*^9}, {3.452347339924775*^9, 3.4523473432595706`*^9}, { 3.4523476969181066`*^9, 3.4523477117394185`*^9}, {3.453489057317714*^9, 3.4534890716091433`*^9}, {3.4534903715671263`*^9, 3.453490387529722*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"ISpBasis", "[", RowBox[{"{", RowBox[{"i_", ",", "j_"}], "}"}], "]"}], ":=", RowBox[{"{", RowBox[{ SubscriptBox["W", RowBox[{"i", ",", "j"}]], ",", SubscriptBox["A", "i"]}], "}"}]}]], "Input", CellChangeTimes->{{3.4281012253398714`*^9, 3.428101225480073*^9}, { 3.428101276503441*^9, 3.428101321187694*^9}, {3.4281013552266397`*^9, 3.4281013671137323`*^9}, 3.4281013984287615`*^9, {3.4281014351415515`*^9, 3.4281014528169675`*^9}, {3.4291096599252367`*^9, 3.429109727003697*^9}, 3.4291099804156656`*^9, {3.4291101247074633`*^9, 3.4291101659780416`*^9}, { 3.4292286527238073`*^9, 3.4292286559585233`*^9}, {3.4522030331162577`*^9, 3.452203090859288*^9}, {3.4522031254590397`*^9, 3.4522031267909555`*^9}, 3.452203923166086*^9, 3.4522039714154654`*^9, {3.452204754922093*^9, 3.4522047697834625`*^9}, {3.452206154885141*^9, 3.4522061651699295`*^9}, { 3.452207823534541*^9, 3.452207839207077*^9}, {3.4522089778844147`*^9, 3.452208981579728*^9}, {3.4523472332714157`*^9, 3.4523472417536125`*^9}, { 3.4523491005352974`*^9, 3.452349178136883*^9}, {3.4523492872637997`*^9, 3.4523493033569403`*^9}, {3.453488953824366*^9, 3.4534889755115347`*^9}, { 3.453489023920375*^9, 3.453489029642947*^9}, {3.4534891961765985`*^9, 3.4534892164626274`*^9}, 3.4534905382347913`*^9, 3.453490598178785*^9}], Cell[BoxData[ RowBox[{ RowBox[{"ISpAlgebraRulesa", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"i_", ",", "j_"}]], ",", SubscriptBox["A", "k_"]}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{ SubscriptBox["\[Zeta]", RowBox[{"i", ",", "k"}]], SubscriptBox["A", "j"]}], "+", RowBox[{ SubscriptBox["\[Zeta]", RowBox[{"j", ",", "k"}]], SubscriptBox["A", "i"]}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["A", "k_"], ",", SubscriptBox["W", RowBox[{"i_", ",", "j_"}]]}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["\[Zeta]", RowBox[{"i", ",", "k"}]]}], SubscriptBox["A", "j"]}], "-", RowBox[{ SubscriptBox["\[Zeta]", RowBox[{"j", ",", "k"}]], SubscriptBox["A", "i"]}]}]}]}], "\[IndentingNewLine]", "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.4291113088326263`*^9, 3.429111321710759*^9}, { 3.4291118535626483`*^9, 3.4291118990790057`*^9}, {3.4291119606187224`*^9, 3.4291119635930586`*^9}, 3.4291120198050084`*^9, {3.4291273268710012`*^9, 3.4291273302158113`*^9}, {3.4292305194452477`*^9, 3.429230520166299*^9}, 3.429230762229195*^9, {3.4522031153344817`*^9, 3.4522031627126083`*^9}, { 3.4522038071292334`*^9, 3.4522038689381104`*^9}, 3.452204579179387*^9, 3.452204611075251*^9, {3.4522047760424623`*^9, 3.452204784895192*^9}, { 3.4522062044664354`*^9, 3.452206314554734*^9}, 3.45220639199609*^9, 3.452206748268384*^9, {3.452207848450368*^9, 3.4522079888222127`*^9}, 3.452208683350896*^9, 3.452209340445752*^9, {3.452209575313475*^9, 3.452209608681456*^9}, {3.4522096458048368`*^9, 3.4522096481682353`*^9}, 3.452210270933728*^9, {3.4523470862299805`*^9, 3.452347103044158*^9}, { 3.452347245649214*^9, 3.4523472704949403`*^9}, {3.452349037274332*^9, 3.4523490394474573`*^9}, {3.452349091111747*^9, 3.452349093094598*^9}, { 3.4523491871899004`*^9, 3.4523492596140413`*^9}, {3.4523492907287817`*^9, 3.4523493112482877`*^9}, 3.452349435687222*^9, {3.453066357718715*^9, 3.453066360242344*^9}, {3.4534890048734703`*^9, 3.4534890126372466`*^9}, { 3.453489046715654*^9, 3.4534890481237946`*^9}, {3.4534890945284348`*^9, 3.4534891598419657`*^9}, {3.453489639466923*^9, 3.453489668157792*^9}, { 3.453489878476822*^9, 3.4534898822612004`*^9}, {3.453489989355909*^9, 3.4534899932062936`*^9}, {3.4534900350344763`*^9, 3.453490043355308*^9}, { 3.453490539530921*^9, 3.453490594418409*^9}, {3.4534907899779625`*^9, 3.4534907930322685`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"ISpAlgebraRules", " ", "=", RowBox[{"genRules", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"{", RowBox[{ "ISpAlgebraRulesa", ",", "SymplecticAlgebraRulesa", ",", "AbelianAlgebraRulesa"}], "}"}], "]"}], ",", RowBox[{"{", "generalRules", "}"}], ",", "ISpBasis", ",", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", " ", "l"}], "}"}], ",", RowBox[{"{", RowBox[{"i_", ",", "j_"}], "}"}], ",", RowBox[{"{", RowBox[{"k_", ",", " ", "l_"}], "}"}], ",", "D", ",", "C"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.429227589413638*^9, 3.4292275901146603`*^9}, { 3.42922766522416*^9, 3.4292276971306753`*^9}, {3.4292277976271863`*^9, 3.4292277988289385`*^9}, {3.4292289196629705`*^9, 3.4292290081319466`*^9}, {3.429229143208872*^9, 3.4292291441302147`*^9}, { 3.429229266678875*^9, 3.429229268751897*^9}, {3.4292293099820056`*^9, 3.4292293216990876`*^9}, 3.4292294659493856`*^9, 3.4292295217607517`*^9, { 3.4292303451611633`*^9, 3.4292303709287295`*^9}, 3.429230446048244*^9, { 3.4292309880083523`*^9, 3.4292309970415215`*^9}, {3.4522039324794784`*^9, 3.452203949974635*^9}, 3.4522039831924*^9, {3.4522040290783806`*^9, 3.452204030159936*^9}, 3.4522046210195503`*^9, {3.4522063251499696`*^9, 3.452206365848491*^9}, 3.452206423140874*^9, {3.4522079973745103`*^9, 3.4522080449829683`*^9}, {3.45220862887256*^9, 3.452208636102957*^9}, 3.45220953176085*^9, {3.452347282081601*^9, 3.452347314528257*^9}, { 3.452349267445302*^9, 3.4523493360839996`*^9}, 3.452349417981763*^9, { 3.4523498338998237`*^9, 3.452349836914158*^9}, {3.452349910369782*^9, 3.4523499484445305`*^9}, {3.452349980971302*^9, 3.452350002682521*^9}, { 3.452350244770627*^9, 3.452350249367236*^9}, {3.452350407464569*^9, 3.4523504603105583`*^9}, {3.4523506590363116`*^9, 3.452350674598689*^9}, 3.452350755341299*^9, 3.452350928459217*^9, {3.45235106755664*^9, 3.452351092332266*^9}, {3.4530663396527376`*^9, 3.4530663703869314`*^9}, { 3.4530665216544433`*^9, 3.4530665323197794`*^9}, {3.453489040944077*^9, 3.453489041342117*^9}, {3.453489185352516*^9, 3.453489188081789*^9}, { 3.453489221971178*^9, 3.4534892617011504`*^9}, {3.453489295371517*^9, 3.453489295818562*^9}, {3.4534894375847373`*^9, 3.4534894382808065`*^9}, { 3.453489495949573*^9, 3.4534895113821163`*^9}, {3.4534905415511227`*^9, 3.4534905564846163`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["l", "isp"], "[", RowBox[{"A_", ",", "B_"}], "]"}], ":=", " ", RowBox[{ RowBox[{"l", "[", RowBox[{"A", ",", "B"}], "]"}], "//.", "ISpAlgebraRules"}]}]], "Input", CellChangeTimes->{{3.4281034785636935`*^9, 3.428103487176078*^9}, { 3.4281035197228775`*^9, 3.428103555834804*^9}, {3.428104383272549*^9, 3.4281043834127507`*^9}, {3.4291102830597935`*^9, 3.4291103035067472`*^9}, {3.4291113936420393`*^9, 3.429111417155146*^9}, { 3.429112330948675*^9, 3.4291123323308277`*^9}, {3.4522040579198527`*^9, 3.452204068434973*^9}, {3.452206346731002*^9, 3.4522063703850145`*^9}, { 3.45220804803736*^9, 3.4522080546869216`*^9}, {3.452347326225076*^9, 3.4523473317630396`*^9}, {3.45234939783279*^9, 3.4523494062649145`*^9}, { 3.453066409082573*^9, 3.4530664104044733`*^9}, {3.4534889930752907`*^9, 3.4534889933743205`*^9}, {3.453489269156896*^9, 3.4534892700269833`*^9}, 3.4534905608680544`*^9, 3.453490744023368*^9}], Cell[CellGroupData[{ Cell["Central extension", "Subsection", CellChangeTimes->{{3.4555791431478*^9, 3.4555791476832533`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"ISpceBasis", "[", RowBox[{"{", RowBox[{"\[Alpha]_", ",", "\[Beta]_", ",", "\[Gamma]_"}], "}"}], "]"}], ":=", RowBox[{"{", RowBox[{ SubscriptBox["W", RowBox[{"\[Alpha]", ",", "\[Beta]"}]], ",", SubscriptBox["P", "\[Gamma]"], ",", SubscriptBox["A", RowBox[{"\[Alpha]", ",", "\[Beta]"}]], ",", SubscriptBox["M", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}]]}], "}"}]}]], "Input", CellChangeTimes->{{3.4281012253398714`*^9, 3.428101225480073*^9}, { 3.428101276503441*^9, 3.428101321187694*^9}, {3.4281013552266397`*^9, 3.4281013671137323`*^9}, 3.4281013984287615`*^9, {3.4281014351415515`*^9, 3.4281014528169675`*^9}, {3.4291096599252367`*^9, 3.429109727003697*^9}, 3.4291099804156656`*^9, {3.4291101247074633`*^9, 3.4291101659780416`*^9}, { 3.4292286527238073`*^9, 3.4292286559585233`*^9}, {3.4522030331162577`*^9, 3.452203090859288*^9}, {3.4522031254590397`*^9, 3.4522031267909555`*^9}, 3.452203923166086*^9, 3.4522039714154654`*^9, {3.452204754922093*^9, 3.4522047697834625`*^9}, {3.452206154885141*^9, 3.4522061651699295`*^9}, { 3.452207823534541*^9, 3.452207839207077*^9}, {3.4522089778844147`*^9, 3.452208981579728*^9}, {3.4523472332714157`*^9, 3.4523472417536125`*^9}, { 3.4523491005352974`*^9, 3.452349178136883*^9}, {3.4523492872637997`*^9, 3.4523493033569403`*^9}, {3.455579178803365*^9, 3.4555792635578403`*^9}, { 3.455579329138397*^9, 3.4555793295114346`*^9}, {3.4556178163979363`*^9, 3.4556178409953957`*^9}, {3.4556179683011255`*^9, 3.45561796965526*^9}, { 3.455618239376628*^9, 3.45561824415615*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"ISpceAlgebraRulesa", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"i_", ",", "j_"}]], ",", SubscriptBox["P", "k_"]}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{ SubscriptBox["\[Zeta]", RowBox[{"i", ",", "k"}]], SubscriptBox["P", "j"]}], "+", RowBox[{ SubscriptBox["\[Zeta]", RowBox[{"j", ",", "k"}]], SubscriptBox["P", "i"]}], "+", SubscriptBox["M", RowBox[{"i", ",", "j", ",", "k"}]]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "k_"], ",", SubscriptBox["W", RowBox[{"i_", ",", "j_"}]]}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["\[Zeta]", RowBox[{"i", ",", "k"}]]}], SubscriptBox["P", "j"]}], "-", RowBox[{ SubscriptBox["\[Zeta]", RowBox[{"j", ",", "k"}]], SubscriptBox["P", "i"]}], "-", SubscriptBox["M", RowBox[{"i", ",", "j", ",", "k"}]]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Alpha]_"], ",", SubscriptBox["P", "\[Beta]_"]}], "]"}], "\[RuleDelayed]", SubscriptBox["A", RowBox[{"\[Alpha]", ",", "\[Beta]"}]]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Alpha]_", ",", "\[Beta]_"}]], ",", SubscriptBox["M", RowBox[{"\[Delta]_", ",", "\[Kappa]_", ",", "\[Gamma]_"}]]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Delta]_", ",", "\[Kappa]_", ",", "\[Gamma]_"}]], ",", SubscriptBox["W", RowBox[{"\[Alpha]_", ",", "\[Beta]_"}]]}], "]"}], "\[RuleDelayed]", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Alpha]_"], ",", SubscriptBox["M", RowBox[{"\[Delta]_", ",", "\[Kappa]_", ",", "\[Gamma]_"}]]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Delta]_", ",", "\[Kappa]_", ",", "\[Gamma]_"}]], ",", SubscriptBox["P", "\[Alpha]_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["W", RowBox[{"\[Alpha]_", ",", "\[Beta]_"}]], ",", SubscriptBox["A", RowBox[{"\[Delta]_", ",", "\[Kappa]_"}]]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Delta]_", ",", "\[Kappa]_"}]], ",", SubscriptBox["W", RowBox[{"\[Alpha]_", ",", "\[Beta]_"}]]}], "]"}], "\[RuleDelayed]", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Alpha]_"], ",", SubscriptBox["A", RowBox[{"\[Delta]_", ",", "\[Kappa]_"}]]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Delta]_", ",", "\[Kappa]_"}]], ",", SubscriptBox["P", "\[Alpha]_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Alpha]_", ",", "\[Beta]_", ",", "\[Gamma]_"}]], ",", SubscriptBox["A", RowBox[{"\[Delta]_", ",", "\[Kappa]_"}]]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Delta]_", ",", "\[Kappa]_"}]], ",", SubscriptBox["M", RowBox[{"\[Alpha]_", ",", "\[Beta]_", ",", "\[Gamma]_"}]]}], "]"}], "\[RuleDelayed]", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Beta]_", ",", "\[Gamma]_"}]], ",", SubscriptBox["A", RowBox[{"\[Delta]_", ",", "\[Kappa]_"}]]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"\[Delta]_", ",", "\[Kappa]_", ",", "\[Sigma]_"}]], ",", SubscriptBox["M", RowBox[{"\[Alpha]_", ",", "\[Beta]_", ",", "\[Gamma]_"}]]}], "]"}], "\[RuleDelayed]", "0"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.4291113088326263`*^9, 3.429111321710759*^9}, { 3.4291118535626483`*^9, 3.4291118990790057`*^9}, {3.4291119606187224`*^9, 3.4291119635930586`*^9}, 3.4291120198050084`*^9, {3.4291273268710012`*^9, 3.4291273302158113`*^9}, {3.4292305194452477`*^9, 3.429230520166299*^9}, 3.429230762229195*^9, {3.4522031153344817`*^9, 3.4522031627126083`*^9}, { 3.4522038071292334`*^9, 3.4522038689381104`*^9}, 3.452204579179387*^9, 3.452204611075251*^9, {3.4522047760424623`*^9, 3.452204784895192*^9}, { 3.4522062044664354`*^9, 3.452206314554734*^9}, 3.45220639199609*^9, 3.452206748268384*^9, {3.452207848450368*^9, 3.4522079888222127`*^9}, 3.452208683350896*^9, 3.452209340445752*^9, {3.452209575313475*^9, 3.452209608681456*^9}, {3.4522096458048368`*^9, 3.4522096481682353`*^9}, 3.452210270933728*^9, {3.4523470862299805`*^9, 3.452347103044158*^9}, { 3.452347245649214*^9, 3.4523472704949403`*^9}, {3.452349037274332*^9, 3.4523490394474573`*^9}, {3.452349091111747*^9, 3.452349093094598*^9}, { 3.4523491871899004`*^9, 3.4523492596140413`*^9}, {3.4523492907287817`*^9, 3.4523493112482877`*^9}, 3.452349435687222*^9, {3.453066357718715*^9, 3.453066360242344*^9}, {3.4555791811796026`*^9, 3.455579192744759*^9}, { 3.4555792276952543`*^9, 3.4555792325497394`*^9}, {3.4555792683403177`*^9, 3.455579313145798*^9}, {3.4555794721226945`*^9, 3.4555796621666965`*^9}, { 3.455579702072687*^9, 3.455579793322811*^9}, {3.455617889755271*^9, 3.4556179619824934`*^9}, {3.4556182032322426`*^9, 3.455618261531412*^9}, { 3.455618293011264*^9, 3.455618365648*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"ISpceAlgebraRules", " ", "=", RowBox[{"genRules", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"{", RowBox[{"ISpceAlgebraRulesa", ",", "SymplecticAlgebraRulesa"}], "}"}], "]"}], ",", RowBox[{"{", "generalRules", "}"}], ",", "ISpceBasis", ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Kappa]", ",", " ", "\[Iota]", ",", " ", "\[Epsilon]"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Alpha]_", ",", "\[Beta]_", ",", "\[Gamma]_"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Kappa]_", ",", " ", "\[Iota]_", ",", " ", "\[Epsilon]_"}], "}"}], ",", "B", ",", "D"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.429227589413638*^9, 3.4292275901146603`*^9}, { 3.42922766522416*^9, 3.4292276971306753`*^9}, {3.4292277976271863`*^9, 3.4292277988289385`*^9}, {3.4292289196629705`*^9, 3.4292290081319466`*^9}, {3.429229143208872*^9, 3.4292291441302147`*^9}, { 3.429229266678875*^9, 3.429229268751897*^9}, {3.4292293099820056`*^9, 3.4292293216990876`*^9}, 3.4292294659493856`*^9, 3.4292295217607517`*^9, { 3.4292303451611633`*^9, 3.4292303709287295`*^9}, 3.429230446048244*^9, { 3.4292309880083523`*^9, 3.4292309970415215`*^9}, {3.4522039324794784`*^9, 3.452203949974635*^9}, 3.4522039831924*^9, {3.4522040290783806`*^9, 3.452204030159936*^9}, 3.4522046210195503`*^9, {3.4522063251499696`*^9, 3.452206365848491*^9}, 3.452206423140874*^9, {3.4522079973745103`*^9, 3.4522080449829683`*^9}, {3.45220862887256*^9, 3.452208636102957*^9}, 3.45220953176085*^9, {3.452347282081601*^9, 3.452347314528257*^9}, { 3.452349267445302*^9, 3.4523493360839996`*^9}, 3.452349417981763*^9, { 3.4523498338998237`*^9, 3.452349836914158*^9}, {3.452349910369782*^9, 3.4523499484445305`*^9}, {3.452349980971302*^9, 3.452350002682521*^9}, { 3.452350244770627*^9, 3.452350249367236*^9}, {3.452350407464569*^9, 3.4523504603105583`*^9}, {3.4523506590363116`*^9, 3.452350674598689*^9}, 3.452350755341299*^9, 3.452350928459217*^9, {3.45235106755664*^9, 3.452351092332266*^9}, {3.4530663396527376`*^9, 3.4530663703869314`*^9}, { 3.4530665216544433`*^9, 3.4530665323197794`*^9}, {3.4555793328287663`*^9, 3.455579388533336*^9}, {3.455617978020097*^9, 3.455617999743269*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["l", "ispce"], "[", RowBox[{"A_", ",", "B_"}], "]"}], ":=", " ", RowBox[{ RowBox[{"l", "[", RowBox[{"A", ",", "B"}], "]"}], "//.", "ISpceAlgebraRules"}]}]], "Input", CellChangeTimes->{{3.4281034785636935`*^9, 3.428103487176078*^9}, { 3.4281035197228775`*^9, 3.428103555834804*^9}, {3.428104383272549*^9, 3.4281043834127507`*^9}, {3.4291102830597935`*^9, 3.4291103035067472`*^9}, { 3.4291113936420393`*^9, 3.429111417155146*^9}, {3.429112330948675*^9, 3.4291123323308277`*^9}, {3.4522040579198527`*^9, 3.452204068434973*^9}, { 3.452206346731002*^9, 3.4522063703850145`*^9}, {3.45220804803736*^9, 3.4522080546869216`*^9}, {3.452347326225076*^9, 3.4523473317630396`*^9}, { 3.45234939783279*^9, 3.4523494062649145`*^9}, {3.453066409082573*^9, 3.4530664104044733`*^9}, {3.4555793989093733`*^9, 3.455579408363319*^9}, { 3.455618002501545*^9, 3.4556180080290976`*^9}}] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Inhomogeneous Unitary", "Section", CellChangeTimes->{{3.4281011894382477`*^9, 3.4281012112596254`*^9}, { 3.4291092659052315`*^9, 3.429109267137384*^9}, {3.4523472053412538`*^9, 3.452347227533164*^9}, {3.452347678782028*^9, 3.45234769018843*^9}, { 3.4534889382288065`*^9, 3.45348894456544*^9}, {3.453490357576727*^9, 3.4534903609090605`*^9}, {3.453490827312696*^9, 3.453490829110876*^9}, { 3.4534919939684916`*^9, 3.4534919947764916`*^9}, 3.4534921032314916`*^9}], Cell[TextData[{ "\nAlgebra for ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[ScriptCapitalI]\[ScriptCapitalU]", "(", RowBox[{"2", "n"}], ")"}], ",", "..."}], TraditionalForm]]] }], "TextNoIndent", CellChangeTimes->{{3.4522059142691517`*^9, 3.4522060032170525`*^9}, { 3.452206042553616*^9, 3.452206115838995*^9}, {3.4522077989692173`*^9, 3.452207819979429*^9}, {3.452347339924775*^9, 3.4523473432595706`*^9}, { 3.4523476969181066`*^9, 3.4523477117394185`*^9}, {3.453489057317714*^9, 3.4534890716091433`*^9}, {3.4534903715671263`*^9, 3.453490387529722*^9}, { 3.453491190240985*^9, 3.4534911934863095`*^9}, {3.4534919645744915`*^9, 3.4534919664564915`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"IUBasis", "[", RowBox[{"{", RowBox[{"a_", ",", "b_"}], "}"}], "]"}], ":=", RowBox[{"{", RowBox[{ SubscriptBox["L", RowBox[{"a", ",", "b"}]], ",", SubscriptBox["M", RowBox[{"a", ",", "b"}]], ",", SubscriptBox["X", "a"], ",", " ", SubscriptBox["Y", "a"]}], "}"}]}]], "Input", CellChangeTimes->{{3.4281012253398714`*^9, 3.428101225480073*^9}, { 3.428101276503441*^9, 3.428101321187694*^9}, {3.4281013552266397`*^9, 3.4281013671137323`*^9}, 3.4281013984287615`*^9, {3.4281014351415515`*^9, 3.4281014528169675`*^9}, {3.4291096599252367`*^9, 3.429109727003697*^9}, 3.4291099804156656`*^9, {3.4291101247074633`*^9, 3.4291101659780416`*^9}, { 3.4292286527238073`*^9, 3.4292286559585233`*^9}, {3.4522030331162577`*^9, 3.452203090859288*^9}, {3.4522031254590397`*^9, 3.4522031267909555`*^9}, 3.452203923166086*^9, 3.4522039714154654`*^9, {3.452204754922093*^9, 3.4522047697834625`*^9}, {3.452206154885141*^9, 3.4522061651699295`*^9}, { 3.452207823534541*^9, 3.452207839207077*^9}, {3.4522089778844147`*^9, 3.452208981579728*^9}, {3.4523472332714157`*^9, 3.4523472417536125`*^9}, { 3.4523491005352974`*^9, 3.452349178136883*^9}, {3.4523492872637997`*^9, 3.4523493033569403`*^9}, {3.453488953824366*^9, 3.4534889755115347`*^9}, { 3.453489023920375*^9, 3.453489029642947*^9}, {3.4534891961765985`*^9, 3.4534892164626274`*^9}, 3.4534905382347913`*^9, 3.453490598178785*^9, { 3.453490835814546*^9, 3.4534908501479793`*^9}, {3.4534909119601603`*^9, 3.4534909448094444`*^9}, {3.4534911011040726`*^9, 3.4534911020671687`*^9}, 3.4534911887698383`*^9, {3.453491997252492*^9, 3.4534920162494917`*^9}, 3.4534921889634914`*^9, {3.4534930969686484`*^9, 3.45349310108506*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"IUAlgebraRulesa", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["L", RowBox[{"a_", ",", "b_"}]], ",", SubscriptBox["X", "c_"]}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["\[Eta]", RowBox[{"a", ",", "c"}]]}], SubscriptBox["X", "b"]}], "+", RowBox[{ SubscriptBox["\[Eta]", RowBox[{"b", ",", "c"}]], SubscriptBox["X", "a"]}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["L", RowBox[{"a_", ",", "b_"}]], ",", SubscriptBox["Y", "c_"]}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["\[Eta]", RowBox[{"a", ",", "c"}]]}], SubscriptBox["Y", "b"]}], "+", RowBox[{ SubscriptBox["\[Eta]", RowBox[{"b", ",", "c"}]], SubscriptBox["Y", "a"]}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"a_", ",", "b_"}]], ",", SubscriptBox["X", "c_"]}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{ SubscriptBox["\[Eta]", RowBox[{"a", ",", "c"}]], SubscriptBox["Y", "b"]}], "+", RowBox[{ SubscriptBox["\[Eta]", RowBox[{"b", ",", "c"}]], SubscriptBox["Y", "a"]}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"a_", ",", "b_"}]], ",", SubscriptBox["Y", "c_"]}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["\[Eta]", RowBox[{"a", ",", "c"}]]}], SubscriptBox["X", "b"]}], "-", RowBox[{ SubscriptBox["\[Eta]", RowBox[{"b", ",", "c"}]], SubscriptBox["X", "a"]}]}]}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["X", "c_"], ",", SubscriptBox["L", RowBox[{"a_", ",", "b_"}]]}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{ SubscriptBox["\[Eta]", RowBox[{"a", ",", "c"}]], SubscriptBox["X", "b"]}], "-", RowBox[{ SubscriptBox["\[Eta]", RowBox[{"b", ",", "c"}]], SubscriptBox["X", "a"]}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["Y", "c_"], ",", SubscriptBox["L", RowBox[{"a_", ",", "b_"}]]}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{ SubscriptBox["\[Eta]", RowBox[{"a", ",", "c"}]], SubscriptBox["Y", "b"]}], "-", RowBox[{ SubscriptBox["\[Eta]", RowBox[{"b", ",", "c"}]], SubscriptBox["Y", "a"]}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["X", "c_"], ",", SubscriptBox["M", RowBox[{"a_", ",", "b_"}]]}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["\[Eta]", RowBox[{"a", ",", "c"}]]}], SubscriptBox["Y", "b"]}], "-", RowBox[{ SubscriptBox["\[Eta]", RowBox[{"b", ",", "c"}]], SubscriptBox["Y", "a"]}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["Y", "c_"], ",", SubscriptBox["M", RowBox[{"a_", ",", "b_"}]]}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{ SubscriptBox["\[Eta]", RowBox[{"a", ",", "c"}]], SubscriptBox["X", "b"]}], "+", RowBox[{ SubscriptBox["\[Eta]", RowBox[{"b", ",", "c"}]], SubscriptBox["X", "a"]}]}]}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["X", "a_"], ",", SubscriptBox["Y", "b_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["Y", "a_"], ",", SubscriptBox["X", "b_"]}], "]"}], "\[RuleDelayed]", "0"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.4291113088326263`*^9, 3.429111321710759*^9}, { 3.4291118535626483`*^9, 3.4291118990790057`*^9}, {3.4291119606187224`*^9, 3.4291119635930586`*^9}, 3.4291120198050084`*^9, {3.4291273268710012`*^9, 3.4291273302158113`*^9}, {3.4292305194452477`*^9, 3.429230520166299*^9}, 3.429230762229195*^9, {3.4522031153344817`*^9, 3.4522031627126083`*^9}, { 3.4522038071292334`*^9, 3.4522038689381104`*^9}, 3.452204579179387*^9, 3.452204611075251*^9, {3.4522047760424623`*^9, 3.452204784895192*^9}, { 3.4522062044664354`*^9, 3.452206314554734*^9}, 3.45220639199609*^9, 3.452206748268384*^9, {3.452207848450368*^9, 3.4522079888222127`*^9}, 3.452208683350896*^9, 3.452209340445752*^9, {3.452209575313475*^9, 3.452209608681456*^9}, {3.4522096458048368`*^9, 3.4522096481682353`*^9}, 3.452210270933728*^9, {3.4523470862299805`*^9, 3.452347103044158*^9}, { 3.452347245649214*^9, 3.4523472704949403`*^9}, {3.452349037274332*^9, 3.4523490394474573`*^9}, {3.452349091111747*^9, 3.452349093094598*^9}, { 3.4523491871899004`*^9, 3.4523492596140413`*^9}, {3.4523492907287817`*^9, 3.4523493112482877`*^9}, 3.452349435687222*^9, {3.453066357718715*^9, 3.453066360242344*^9}, {3.4534890048734703`*^9, 3.4534890126372466`*^9}, { 3.453489046715654*^9, 3.4534890481237946`*^9}, {3.4534890945284348`*^9, 3.4534891598419657`*^9}, {3.453489639466923*^9, 3.453489668157792*^9}, { 3.453489878476822*^9, 3.4534898822612004`*^9}, {3.453489989355909*^9, 3.4534899932062936`*^9}, {3.4534900350344763`*^9, 3.453490043355308*^9}, { 3.453490539530921*^9, 3.453490594418409*^9}, {3.4534907899779625`*^9, 3.4534907930322685`*^9}, 3.453490884433408*^9, {3.453491096838646*^9, 3.453491210633024*^9}, {3.4534920333704915`*^9, 3.4534920719554915`*^9}, { 3.4534921060604916`*^9, 3.453492191386492*^9}, {3.4534926971356688`*^9, 3.45349274755171*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"IUAlgebraRules", " ", "=", RowBox[{"genRules", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"{", RowBox[{"IUAlgebraRulesa", ",", "UnitaryAlgebraReal4rulesa", ",", RowBox[{"AbelianAlgebraRulesa", "//.", RowBox[{"A", "\[RuleDelayed]", "X"}]}], ",", RowBox[{"AbelianAlgebraRulesa", "//.", RowBox[{"A", "\[RuleDelayed]", "Y"}]}]}], "}"}], "]"}], ",", RowBox[{"{", "generalRules", "}"}], ",", "IUBasis", ",", RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}], ",", RowBox[{"{", RowBox[{"c", ",", " ", "d"}], "}"}], ",", RowBox[{"{", RowBox[{"a_", ",", "b_"}], "}"}], ",", RowBox[{"{", RowBox[{"c_", ",", " ", "d_"}], "}"}], ",", "D", ",", "C"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.453491024428406*^9, 3.4534910921351757`*^9}, 3.4534912288418446`*^9, {3.453491338736833*^9, 3.4534913398299427`*^9}, { 3.453491395379497*^9, 3.4534913960955687`*^9}, {3.453491658026759*^9, 3.45349166013297*^9}, {3.4534921786824913`*^9, 3.4534921954154916`*^9}, { 3.4534922849814916`*^9, 3.4534923867174916`*^9}, 3.453492825837538*^9, { 3.4534929295459075`*^9, 3.453492943762329*^9}, 3.4534929744333963`*^9}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["l", "iu"], "[", RowBox[{"A_", ",", "B_"}], "]"}], ":=", " ", RowBox[{ RowBox[{"l", "[", RowBox[{"A", ",", "B"}], "]"}], "//.", "IUAlgebraRules"}]}]], "Input", CellChangeTimes->{{3.4281034785636935`*^9, 3.428103487176078*^9}, { 3.4281035197228775`*^9, 3.428103555834804*^9}, {3.428104383272549*^9, 3.4281043834127507`*^9}, {3.4291102830597935`*^9, 3.4291103035067472`*^9}, {3.4291113936420393`*^9, 3.429111417155146*^9}, { 3.429112330948675*^9, 3.4291123323308277`*^9}, {3.4522040579198527`*^9, 3.452204068434973*^9}, {3.452206346731002*^9, 3.4522063703850145`*^9}, { 3.45220804803736*^9, 3.4522080546869216`*^9}, {3.452347326225076*^9, 3.4523473317630396`*^9}, {3.45234939783279*^9, 3.4523494062649145`*^9}, { 3.453066409082573*^9, 3.4530664104044733`*^9}, {3.4534889930752907`*^9, 3.4534889933743205`*^9}, {3.453489269156896*^9, 3.4534892700269833`*^9}, 3.4534905608680544`*^9, 3.453490744023368*^9, {3.4534911774287043`*^9, 3.453491182510212*^9}, {3.4534921972884912`*^9, 3.4534921982084913`*^9}, 3.4534922792094917`*^9}] }, Closed]], Cell[CellGroupData[{ Cell["Inhomogeneous Euclidean", "Section", CellChangeTimes->{{3.4281011894382477`*^9, 3.4281012112596254`*^9}, { 3.4291092659052315`*^9, 3.429109267137384*^9}, {3.4523472053412538`*^9, 3.452347227533164*^9}, {3.452347678782028*^9, 3.45234769018843*^9}, { 3.4534889382288065`*^9, 3.45348894456544*^9}, {3.453490357576727*^9, 3.4534903609090605`*^9}, {3.453490827312696*^9, 3.453490829110876*^9}}], Cell[TextData[{ "\nAlgebra for ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[ScriptCapitalI]\[ScriptCapitalE]", "(", RowBox[{"2", "n"}], ")"}], ",", "..."}], TraditionalForm]]] }], "TextNoIndent", CellChangeTimes->{{3.4522059142691517`*^9, 3.4522060032170525`*^9}, { 3.452206042553616*^9, 3.452206115838995*^9}, {3.4522077989692173`*^9, 3.452207819979429*^9}, {3.452347339924775*^9, 3.4523473432595706`*^9}, { 3.4523476969181066`*^9, 3.4523477117394185`*^9}, {3.453489057317714*^9, 3.4534890716091433`*^9}, {3.4534903715671263`*^9, 3.453490387529722*^9}, { 3.453491190240985*^9, 3.4534911934863095`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"IEBasis", "[", RowBox[{"{", RowBox[{"i_", ",", "j_"}], "}"}], "]"}], ":=", RowBox[{"{", RowBox[{ SubscriptBox["J", RowBox[{"i", ",", "j"}]], ",", SubscriptBox["G", "i"], ",", " ", SubscriptBox["P", "i"], ",", "\[CapitalEpsilon]"}], "}"}]}]], "Input", CellChangeTimes->{{3.4281012253398714`*^9, 3.428101225480073*^9}, { 3.428101276503441*^9, 3.428101321187694*^9}, {3.4281013552266397`*^9, 3.4281013671137323`*^9}, 3.4281013984287615`*^9, {3.4281014351415515`*^9, 3.4281014528169675`*^9}, {3.4291096599252367`*^9, 3.429109727003697*^9}, 3.4291099804156656`*^9, {3.4291101247074633`*^9, 3.4291101659780416`*^9}, { 3.4292286527238073`*^9, 3.4292286559585233`*^9}, {3.4522030331162577`*^9, 3.452203090859288*^9}, {3.4522031254590397`*^9, 3.4522031267909555`*^9}, 3.452203923166086*^9, 3.4522039714154654`*^9, {3.452204754922093*^9, 3.4522047697834625`*^9}, {3.452206154885141*^9, 3.4522061651699295`*^9}, { 3.452207823534541*^9, 3.452207839207077*^9}, {3.4522089778844147`*^9, 3.452208981579728*^9}, {3.4523472332714157`*^9, 3.4523472417536125`*^9}, { 3.4523491005352974`*^9, 3.452349178136883*^9}, {3.4523492872637997`*^9, 3.4523493033569403`*^9}, {3.453488953824366*^9, 3.4534889755115347`*^9}, { 3.453489023920375*^9, 3.453489029642947*^9}, {3.4534891961765985`*^9, 3.4534892164626274`*^9}, 3.4534905382347913`*^9, 3.453490598178785*^9, { 3.453490835814546*^9, 3.4534908501479793`*^9}, {3.4534909119601603`*^9, 3.4534909448094444`*^9}, {3.4534911011040726`*^9, 3.4534911020671687`*^9}, 3.4534911887698383`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"IEAlgebraRulesa", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"l", "[", RowBox[{"B_", ",", "\[CapitalEpsilon]"}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{"\[CapitalEpsilon]", ",", "B_"}], "]"}], "\[RuleDelayed]", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["G", "k_"], ",", SubscriptBox["P", "i_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "i_"], ",", SubscriptBox["G", "k_"]}], "]"}], "\[RuleDelayed]", "0"}]}], "\[IndentingNewLine]", "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.4291113088326263`*^9, 3.429111321710759*^9}, { 3.4291118535626483`*^9, 3.4291118990790057`*^9}, {3.4291119606187224`*^9, 3.4291119635930586`*^9}, 3.4291120198050084`*^9, {3.4291273268710012`*^9, 3.4291273302158113`*^9}, {3.4292305194452477`*^9, 3.429230520166299*^9}, 3.429230762229195*^9, {3.4522031153344817`*^9, 3.4522031627126083`*^9}, { 3.4522038071292334`*^9, 3.4522038689381104`*^9}, 3.452204579179387*^9, 3.452204611075251*^9, {3.4522047760424623`*^9, 3.452204784895192*^9}, { 3.4522062044664354`*^9, 3.452206314554734*^9}, 3.45220639199609*^9, 3.452206748268384*^9, {3.452207848450368*^9, 3.4522079888222127`*^9}, 3.452208683350896*^9, 3.452209340445752*^9, {3.452209575313475*^9, 3.452209608681456*^9}, {3.4522096458048368`*^9, 3.4522096481682353`*^9}, 3.452210270933728*^9, {3.4523470862299805`*^9, 3.452347103044158*^9}, { 3.452347245649214*^9, 3.4523472704949403`*^9}, {3.452349037274332*^9, 3.4523490394474573`*^9}, {3.452349091111747*^9, 3.452349093094598*^9}, { 3.4523491871899004`*^9, 3.4523492596140413`*^9}, {3.4523492907287817`*^9, 3.4523493112482877`*^9}, 3.452349435687222*^9, {3.453066357718715*^9, 3.453066360242344*^9}, {3.4534890048734703`*^9, 3.4534890126372466`*^9}, { 3.453489046715654*^9, 3.4534890481237946`*^9}, {3.4534890945284348`*^9, 3.4534891598419657`*^9}, {3.453489639466923*^9, 3.453489668157792*^9}, { 3.453489878476822*^9, 3.4534898822612004`*^9}, {3.453489989355909*^9, 3.4534899932062936`*^9}, {3.4534900350344763`*^9, 3.453490043355308*^9}, { 3.453490539530921*^9, 3.453490594418409*^9}, {3.4534907899779625`*^9, 3.4534907930322685`*^9}, 3.453490884433408*^9, {3.453491096838646*^9, 3.453491210633024*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"IEAlgebraRules", " ", "=", RowBox[{"genRules", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"{", RowBox[{"IEAlgebraRulesa", ",", RowBox[{"ISOAlgebraRulesa", "//.", RowBox[{"{", RowBox[{"A", "\[RuleDelayed]", "P"}], "}"}]}], ",", RowBox[{"ISOAlgebraRulesa", "//.", RowBox[{"{", RowBox[{"A", "\[RuleDelayed]", "G"}], "}"}]}], ",", "OrthogonalAlgebraRulesa", ",", RowBox[{"AbelianAlgebraRulesa", "//.", RowBox[{"A", "\[RuleDelayed]", "P"}]}], ",", RowBox[{"AbelianAlgebraRulesa", "//.", RowBox[{"A", "\[RuleDelayed]", "G"}]}]}], "}"}], "]"}], ",", RowBox[{"{", "generalRules", "}"}], ",", "IEBasis", ",", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", " ", "l"}], "}"}], ",", RowBox[{"{", RowBox[{"i_", ",", "j_"}], "}"}], ",", RowBox[{"{", RowBox[{"k_", ",", " ", "l_"}], "}"}], ",", "D", ",", "C"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.453491024428406*^9, 3.4534910921351757`*^9}, 3.4534912288418446`*^9, {3.453491338736833*^9, 3.4534913398299427`*^9}, { 3.453491395379497*^9, 3.4534913960955687`*^9}, {3.453491658026759*^9, 3.45349166013297*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["l", "ie"], "[", RowBox[{"A_", ",", "B_"}], "]"}], ":=", " ", RowBox[{ RowBox[{"l", "[", RowBox[{"A", ",", "B"}], "]"}], "//.", "IEAlgebraRules"}]}]], "Input", CellChangeTimes->{{3.4281034785636935`*^9, 3.428103487176078*^9}, { 3.4281035197228775`*^9, 3.428103555834804*^9}, {3.428104383272549*^9, 3.4281043834127507`*^9}, {3.4291102830597935`*^9, 3.4291103035067472`*^9}, {3.4291113936420393`*^9, 3.429111417155146*^9}, { 3.429112330948675*^9, 3.4291123323308277`*^9}, {3.4522040579198527`*^9, 3.452204068434973*^9}, {3.452206346731002*^9, 3.4522063703850145`*^9}, { 3.45220804803736*^9, 3.4522080546869216`*^9}, {3.452347326225076*^9, 3.4523473317630396`*^9}, {3.45234939783279*^9, 3.4523494062649145`*^9}, { 3.453066409082573*^9, 3.4530664104044733`*^9}, {3.4534889930752907`*^9, 3.4534889933743205`*^9}, {3.453489269156896*^9, 3.4534892700269833`*^9}, 3.4534905608680544`*^9, 3.453490744023368*^9, {3.4534911774287043`*^9, 3.453491182510212*^9}}], Cell[CellGroupData[{ Cell["Central extension", "Subsection", CellChangeTimes->{{3.4555791431478*^9, 3.4555791476832533`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"IEceBasis", "[", RowBox[{"{", RowBox[{"\[Alpha]_", ",", "\[Beta]_"}], "}"}], "]"}], ":=", RowBox[{"{", RowBox[{"\[CapitalEpsilon]", ",", SubscriptBox["J", RowBox[{"\[Alpha]", ",", "\[Beta]"}]], ",", SubscriptBox["P", "\[Alpha]"], ",", SubscriptBox["G", "\[Alpha]"], ",", SubscriptBox["A", RowBox[{"\[Alpha]", ",", "\[Beta]"}]], ",", SubscriptBox["B", "\[Alpha]"], ",", SubscriptBox["F", "\[Alpha]"], ",", SubscriptBox["H", RowBox[{"\[Alpha]", ",", "\[Beta]"}]]}], "}"}]}]], "Input", CellChangeTimes->{{3.4281012253398714`*^9, 3.428101225480073*^9}, { 3.428101276503441*^9, 3.428101321187694*^9}, {3.4281013552266397`*^9, 3.4281013671137323`*^9}, 3.4281013984287615`*^9, {3.4281014351415515`*^9, 3.4281014528169675`*^9}, {3.4291096599252367`*^9, 3.429109727003697*^9}, 3.4291099804156656`*^9, {3.4291101247074633`*^9, 3.4291101659780416`*^9}, { 3.4292286527238073`*^9, 3.4292286559585233`*^9}, {3.4522030331162577`*^9, 3.452203090859288*^9}, {3.4522031254590397`*^9, 3.4522031267909555`*^9}, 3.452203923166086*^9, 3.4522039714154654`*^9, {3.452204754922093*^9, 3.4522047697834625`*^9}, {3.452206154885141*^9, 3.4522061651699295`*^9}, { 3.452207823534541*^9, 3.452207839207077*^9}, {3.4522089778844147`*^9, 3.452208981579728*^9}, {3.4523472332714157`*^9, 3.4523472417536125`*^9}, { 3.4523491005352974`*^9, 3.452349178136883*^9}, {3.4523492872637997`*^9, 3.4523493033569403`*^9}, {3.455579178803365*^9, 3.4555792635578403`*^9}, { 3.455579329138397*^9, 3.4555793295114346`*^9}, {3.4556178163979363`*^9, 3.4556178409953957`*^9}, {3.4556179683011255`*^9, 3.45561796965526*^9}, { 3.455618239376628*^9, 3.45561824415615*^9}, {3.45562484936029*^9, 3.4556248837442904`*^9}, {3.4556251323764987`*^9, 3.4556251556688275`*^9}, {3.4556280926535015`*^9, 3.455628095224758*^9}, { 3.4556283809633293`*^9, 3.4556283827105045`*^9}, {3.4556284734298735`*^9, 3.4556284766558733`*^9}, {3.4556298988131084`*^9, 3.4556299011033373`*^9}, {3.4556310443726654`*^9, 3.4556310474386654`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"IEceAlgebraRulesa", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Alpha]_"], ",", "\[CapitalEpsilon]"}], "]"}], "\[RuleDelayed]", SubscriptBox["B", "\[Alpha]"]}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{"\[CapitalEpsilon]", ",", SubscriptBox["P", "\[Alpha]_"]}], "]"}], "\[RuleDelayed]", RowBox[{"-", SubscriptBox["B", "\[Alpha]"]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["G", "\[Alpha]_"], ",", "\[CapitalEpsilon]"}], "]"}], "\[RuleDelayed]", SubscriptBox["F", "\[Alpha]"]}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{"\[CapitalEpsilon]", ",", SubscriptBox["G", "\[Alpha]_"]}], "]"}], "\[RuleDelayed]", RowBox[{"-", SubscriptBox["F", "\[Alpha]"]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["J", RowBox[{"\[Alpha]_", ",", "\[Beta]_"}]], ",", "\[CapitalEpsilon]"}], "]"}], "\[RuleDelayed]", SubscriptBox["H", RowBox[{"\[Alpha]", ",", "\[Beta]"}]]}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{"\[CapitalEpsilon]", ",", SubscriptBox["J", RowBox[{"\[Alpha]_", ",", "\[Beta]_"}]]}], "]"}], "\[RuleDelayed]", RowBox[{"-", SubscriptBox["H", RowBox[{"\[Alpha]", ",", "\[Beta]"}]]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["G", "\[Alpha]_"], ",", "\[CapitalEpsilon]"}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{"\[CapitalEpsilon]", ",", SubscriptBox["G", "\[Alpha]_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["J", RowBox[{"\[Alpha]_", ",", "\[Beta]_"}]], ",", "\[CapitalEpsilon]"}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{"\[CapitalEpsilon]", ",", SubscriptBox["J", RowBox[{"\[Alpha]_", ",", "\[Beta]_"}]]}], "]"}], "\[RuleDelayed]", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["G", "\[Alpha]_"], ",", SubscriptBox["P", "\[Beta]_"]}], "]"}], "\[RuleDelayed]", SubscriptBox["A", RowBox[{"\[Alpha]", ",", "\[Beta]"}]]}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Beta]_"], ",", SubscriptBox["G", "\[Alpha]_"]}], "]"}], "\[RuleDelayed]", SubscriptBox["A", RowBox[{"\[Alpha]", ",", "\[Beta]"}]]}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Alpha]_"], ",", SubscriptBox["A", RowBox[{"\[Delta]_", ",", "\[Kappa]_"}]]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Delta]_", ",", "\[Kappa]_"}]], ",", SubscriptBox["P", "\[Alpha]_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["G", "\[Alpha]_"], ",", SubscriptBox["A", RowBox[{"\[Delta]_", ",", "\[Kappa]_"}]]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Delta]_", ",", "\[Kappa]_"}]], ",", SubscriptBox["G", "\[Alpha]_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{"\[CapitalEpsilon]", ",", SubscriptBox["A", RowBox[{"\[Delta]_", ",", "\[Kappa]_"}]]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Delta]_", ",", "\[Kappa]_"}]], ",", "\[CapitalEpsilon]"}], "]"}], "\[RuleDelayed]", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["J", RowBox[{"\[Alpha]_", ",", "\[Beta]_"}]], ",", SubscriptBox["A", RowBox[{"\[Delta]_", ",", "\[Kappa]_"}]]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Delta]_", ",", "\[Kappa]_"}]], ",", SubscriptBox["J", RowBox[{"\[Alpha]_", ",", "\[Beta]_"}]]}], "]"}], "\[RuleDelayed]", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Beta]_", ",", "\[Gamma]_"}]], ",", SubscriptBox["A", RowBox[{"\[Delta]_", ",", "\[Kappa]_"}]]}], "]"}], "\[RuleDelayed]", "0"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Alpha]_"], ",", SubscriptBox["B", "\[Delta]_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["B", "\[Delta]_"], ",", SubscriptBox["P", "\[Alpha]_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["G", "\[Alpha]_"], ",", SubscriptBox["B", "\[Delta]_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["B", "\[Delta]_"], ",", SubscriptBox["G", "\[Alpha]_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{"\[CapitalEpsilon]", ",", SubscriptBox["B", "\[Delta]_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["B", "\[Delta]_"], ",", "\[CapitalEpsilon]"}], "]"}], "\[RuleDelayed]", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["J", RowBox[{"\[Alpha]_", ",", "\[Beta]_"}]], ",", SubscriptBox["B", "\[Delta]_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["B", "\[Delta]_"], ",", SubscriptBox["J", RowBox[{"\[Alpha]_", ",", "\[Beta]_"}]]}], "]"}], "\[RuleDelayed]", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Beta]_", ",", "\[Gamma]_"}]], ",", SubscriptBox["B", "\[Delta]_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["B", "\[Delta]_"], ",", SubscriptBox["A", RowBox[{"\[Beta]_", ",", "\[Gamma]_"}]]}], "]"}], "\[RuleDelayed]", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["B", "\[Beta]_"], ",", SubscriptBox["B", "\[Delta]_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["B", "\[Beta]_"], ",", SubscriptBox["F", "\[Delta]_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["F", "\[Beta]_"], ",", SubscriptBox["B", "\[Delta]_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Alpha]_"], ",", SubscriptBox["F", "\[Delta]_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["F", "\[Delta]_"], ",", SubscriptBox["P", "\[Alpha]_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["G", "\[Alpha]_"], ",", SubscriptBox["F", "\[Delta]_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["F", "\[Delta]_"], ",", SubscriptBox["G", "\[Alpha]_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{"\[CapitalEpsilon]", ",", SubscriptBox["F", "\[Delta]_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["F", "\[Delta]_"], ",", "\[CapitalEpsilon]"}], "]"}], "\[RuleDelayed]", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["J", RowBox[{"\[Alpha]_", ",", "\[Beta]_"}]], ",", SubscriptBox["F", "\[Delta]_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["F", "\[Delta]_"], ",", SubscriptBox["J", RowBox[{"\[Alpha]_", ",", "\[Beta]_"}]]}], "]"}], "\[RuleDelayed]", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Beta]_", ",", "\[Gamma]_"}]], ",", SubscriptBox["F", "\[Delta]_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["F", "\[Delta]_"], ",", SubscriptBox["A", RowBox[{"\[Beta]_", ",", "\[Gamma]_"}]]}], "]"}], "\[RuleDelayed]", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["F", "\[Beta]_"], ",", SubscriptBox["F", "\[Delta]_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Alpha]_"], ",", SubscriptBox["H", RowBox[{"\[Delta]_", ",", "\[Kappa]_"}]]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["H", RowBox[{"\[Delta]_", ",", "\[Kappa]_"}]], ",", SubscriptBox["P", "\[Alpha]_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["G", "\[Alpha]_"], ",", SubscriptBox["H", RowBox[{"\[Delta]_", ",", "\[Kappa]_"}]]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["H", RowBox[{"\[Delta]_", ",", "\[Kappa]_"}]], ",", SubscriptBox["G", "\[Alpha]_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{"\[CapitalEpsilon]", ",", SubscriptBox["H", RowBox[{"\[Delta]_", ",", "\[Kappa]_"}]]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["H", RowBox[{"\[Delta]_", ",", "\[Kappa]_"}]], ",", "\[CapitalEpsilon]"}], "]"}], "\[RuleDelayed]", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["J", RowBox[{"\[Alpha]_", ",", "\[Beta]_"}]], ",", SubscriptBox["H", RowBox[{"\[Delta]_", ",", "\[Kappa]_"}]]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["H", RowBox[{"\[Delta]_", ",", "\[Kappa]_"}]], ",", SubscriptBox["J", RowBox[{"\[Alpha]_", ",", "\[Beta]_"}]]}], "]"}], "\[RuleDelayed]", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["H", RowBox[{"\[Beta]_", ",", "\[Gamma]_"}]], ",", SubscriptBox["H", RowBox[{"\[Delta]_", ",", "\[Kappa]_"}]]}], "]"}], "\[RuleDelayed]", "0"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["H", RowBox[{"\[Beta]_", ",", "\[Gamma]_"}]], ",", SubscriptBox["A", RowBox[{"\[Delta]_", ",", "\[Kappa]_"}]]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Beta]_", ",", "\[Gamma]_"}]], ",", SubscriptBox["H", RowBox[{"\[Delta]_", ",", "\[Kappa]_"}]]}], "]"}], "\[RuleDelayed]", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["H", RowBox[{"\[Beta]_", ",", "\[Gamma]_"}]], ",", SubscriptBox["B", "\[Delta]_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["B", "\[Beta]_"], ",", SubscriptBox["H", RowBox[{"\[Delta]_", ",", "\[Kappa]_"}]]}], "]"}], "\[RuleDelayed]", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["H", RowBox[{"\[Beta]_", ",", "\[Gamma]_"}]], ",", SubscriptBox["F", "\[Delta]_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["F", "\[Beta]_"], ",", SubscriptBox["H", RowBox[{"\[Delta]_", ",", "\[Kappa]_"}]]}], "]"}], "\[RuleDelayed]", "0"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.4291113088326263`*^9, 3.429111321710759*^9}, { 3.4291118535626483`*^9, 3.4291118990790057`*^9}, {3.4291119606187224`*^9, 3.4291119635930586`*^9}, 3.4291120198050084`*^9, {3.4291273268710012`*^9, 3.4291273302158113`*^9}, {3.4292305194452477`*^9, 3.429230520166299*^9}, 3.429230762229195*^9, {3.4522031153344817`*^9, 3.4522031627126083`*^9}, { 3.4522038071292334`*^9, 3.4522038689381104`*^9}, 3.452204579179387*^9, 3.452204611075251*^9, {3.4522047760424623`*^9, 3.452204784895192*^9}, { 3.4522062044664354`*^9, 3.452206314554734*^9}, 3.45220639199609*^9, 3.452206748268384*^9, {3.452207848450368*^9, 3.4522079888222127`*^9}, 3.452208683350896*^9, 3.452209340445752*^9, {3.452209575313475*^9, 3.452209608681456*^9}, {3.4522096458048368`*^9, 3.4522096481682353`*^9}, 3.452210270933728*^9, {3.4523470862299805`*^9, 3.452347103044158*^9}, { 3.452347245649214*^9, 3.4523472704949403`*^9}, {3.452349037274332*^9, 3.4523490394474573`*^9}, {3.452349091111747*^9, 3.452349093094598*^9}, { 3.4523491871899004`*^9, 3.4523492596140413`*^9}, {3.4523492907287817`*^9, 3.4523493112482877`*^9}, 3.452349435687222*^9, {3.453066357718715*^9, 3.453066360242344*^9}, {3.4555791811796026`*^9, 3.455579192744759*^9}, { 3.4555792276952543`*^9, 3.4555792325497394`*^9}, {3.4555792683403177`*^9, 3.455579313145798*^9}, {3.4555794721226945`*^9, 3.4555796621666965`*^9}, { 3.455579702072687*^9, 3.455579793322811*^9}, {3.455617889755271*^9, 3.4556179619824934`*^9}, {3.4556182032322426`*^9, 3.455618261531412*^9}, { 3.455618293011264*^9, 3.455618365648*^9}, {3.45562473776129*^9, 3.45562476438929*^9}, {3.45562480054029*^9, 3.45562483738929*^9}, 3.45562489226129*^9, {3.4556253157238317`*^9, 3.455625340734332*^9}, { 3.4556258932315764`*^9, 3.455625893804634*^9}, {3.455627762497489*^9, 3.455627809460185*^9}, {3.4556278499292316`*^9, 3.4556280533355703`*^9}, { 3.4556281286851044`*^9, 3.4556281434005756`*^9}, {3.4556282196401987`*^9, 3.455628318810115*^9}, {3.4556283881570487`*^9, 3.4556283914773808`*^9}, { 3.4556297999212203`*^9, 3.455629880711299*^9}, {3.455630210845309*^9, 3.4556302417834024`*^9}, {3.4556302918704104`*^9, 3.4556302952907524`*^9}, {3.455630801185665*^9, 3.455630890006665*^9}, { 3.4556309277956653`*^9, 3.455631006980665*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"IEceAlgebraRules", " ", "=", RowBox[{"genRules", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"{", RowBox[{"IEceAlgebraRulesa", ",", RowBox[{"ISOAlgebraRulesa", "//.", RowBox[{"{", RowBox[{"A", "\[RuleDelayed]", "P"}], "}"}]}], ",", RowBox[{"ISOAlgebraRulesa", "//.", RowBox[{"{", RowBox[{"A", "\[RuleDelayed]", "G"}], "}"}]}], ",", "OrthogonalAlgebraRulesa", ",", RowBox[{"AbelianAlgebraRulesa", "//.", RowBox[{"A", "\[RuleDelayed]", "P"}]}], ",", RowBox[{"AbelianAlgebraRulesa", "//.", RowBox[{"A", "\[RuleDelayed]", "G"}]}]}], "}"}], "]"}], ",", RowBox[{"{", "generalRules", "}"}], ",", "IEceBasis", ",", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", " ", "l"}], "}"}], ",", RowBox[{"{", RowBox[{"i_", ",", "j_"}], "}"}], ",", RowBox[{"{", RowBox[{"k_", ",", " ", "l_"}], "}"}], ",", "D", ",", "C"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.453491024428406*^9, 3.4534910921351757`*^9}, 3.4534912288418446`*^9, {3.453491338736833*^9, 3.4534913398299427`*^9}, { 3.453491395379497*^9, 3.4534913960955687`*^9}, {3.453491658026759*^9, 3.45349166013297*^9}, {3.4556252343816977`*^9, 3.4556252395972195`*^9}, { 3.4556252772509847`*^9, 3.455625277633023*^9}, 3.4556287012298737`*^9}], Cell[CellGroupData[{ Cell[BoxData["IEceAlgebraRulesa"], "Input", CellChangeTimes->{3.4556310196176653`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Alpha]_"], ",", "\[CapitalEpsilon]"}], "]"}], "\[RuleDelayed]", SubscriptBox["B", "\[Alpha]"]}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{"\[CapitalEpsilon]", ",", SubscriptBox["P", "\[Alpha]_"]}], "]"}], "\[RuleDelayed]", RowBox[{"-", SubscriptBox["B", "\[Alpha]"]}]}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["G", "\[Alpha]_"], ",", "\[CapitalEpsilon]"}], "]"}], "\[RuleDelayed]", SubscriptBox["F", "\[Alpha]"]}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{"\[CapitalEpsilon]", ",", SubscriptBox["G", "\[Alpha]_"]}], "]"}], "\[RuleDelayed]", RowBox[{"-", SubscriptBox["F", "\[Alpha]"]}]}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["J", RowBox[{"\[Alpha]_", ",", "\[Beta]_"}]], ",", "\[CapitalEpsilon]"}], "]"}], "\[RuleDelayed]", SubscriptBox["H", RowBox[{"\[Alpha]", ",", "\[Beta]"}]]}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{"\[CapitalEpsilon]", ",", SubscriptBox["J", RowBox[{"\[Alpha]_", ",", "\[Beta]_"}]]}], "]"}], "\[RuleDelayed]", RowBox[{"-", SubscriptBox["H", RowBox[{"\[Alpha]", ",", "\[Beta]"}]]}]}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["G", "\[Alpha]_"], ",", "\[CapitalEpsilon]"}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{"\[CapitalEpsilon]", ",", SubscriptBox["G", "\[Alpha]_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["J", RowBox[{"\[Alpha]_", ",", "\[Beta]_"}]], ",", "\[CapitalEpsilon]"}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{"\[CapitalEpsilon]", ",", SubscriptBox["J", RowBox[{"\[Alpha]_", ",", "\[Beta]_"}]]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["G", "\[Alpha]_"], ",", SubscriptBox["P", "\[Beta]_"]}], "]"}], "\[RuleDelayed]", SubscriptBox["A", RowBox[{"\[Alpha]", ",", "\[Beta]"}]]}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Beta]_"], ",", SubscriptBox["G", "\[Alpha]_"]}], "]"}], "\[RuleDelayed]", SubscriptBox["A", RowBox[{"\[Alpha]", ",", "\[Beta]"}]]}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Alpha]_"], ",", SubscriptBox["A", RowBox[{"\[Delta]_", ",", "\[Kappa]_"}]]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Delta]_", ",", "\[Kappa]_"}]], ",", SubscriptBox["P", "\[Alpha]_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["G", "\[Alpha]_"], ",", SubscriptBox["A", RowBox[{"\[Delta]_", ",", "\[Kappa]_"}]]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Delta]_", ",", "\[Kappa]_"}]], ",", SubscriptBox["G", "\[Alpha]_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{"\[CapitalEpsilon]", ",", SubscriptBox["A", RowBox[{"\[Delta]_", ",", "\[Kappa]_"}]]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Delta]_", ",", "\[Kappa]_"}]], ",", "\[CapitalEpsilon]"}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["J", RowBox[{"\[Alpha]_", ",", "\[Beta]_"}]], ",", SubscriptBox["A", RowBox[{"\[Delta]_", ",", "\[Kappa]_"}]]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Delta]_", ",", "\[Kappa]_"}]], ",", SubscriptBox["J", RowBox[{"\[Alpha]_", ",", "\[Beta]_"}]]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Beta]_", ",", "\[Gamma]_"}]], ",", SubscriptBox["A", RowBox[{"\[Delta]_", ",", "\[Kappa]_"}]]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Alpha]_"], ",", SubscriptBox["B", "\[Delta]_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["B", "\[Delta]_"], ",", SubscriptBox["P", "\[Alpha]_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["G", "\[Alpha]_"], ",", SubscriptBox["B", "\[Delta]_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["B", "\[Delta]_"], ",", SubscriptBox["G", "\[Alpha]_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{"\[CapitalEpsilon]", ",", SubscriptBox["B", "\[Delta]_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["B", "\[Delta]_"], ",", "\[CapitalEpsilon]"}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["J", RowBox[{"\[Alpha]_", ",", "\[Beta]_"}]], ",", SubscriptBox["B", "\[Delta]_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["B", "\[Delta]_"], ",", SubscriptBox["J", RowBox[{"\[Alpha]_", ",", "\[Beta]_"}]]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Beta]_", ",", "\[Gamma]_"}]], ",", SubscriptBox["B", "\[Delta]_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["B", "\[Delta]_"], ",", SubscriptBox["A", RowBox[{"\[Beta]_", ",", "\[Gamma]_"}]]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["B", "\[Beta]_"], ",", SubscriptBox["B", "\[Delta]_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["B", "\[Beta]_"], ",", SubscriptBox["F", "\[Delta]_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["F", "\[Beta]_"], ",", SubscriptBox["B", "\[Delta]_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Alpha]_"], ",", SubscriptBox["F", "\[Delta]_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["F", "\[Delta]_"], ",", SubscriptBox["P", "\[Alpha]_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["G", "\[Alpha]_"], ",", SubscriptBox["F", "\[Delta]_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["F", "\[Delta]_"], ",", SubscriptBox["G", "\[Alpha]_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{"\[CapitalEpsilon]", ",", SubscriptBox["F", "\[Delta]_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["F", "\[Delta]_"], ",", "\[CapitalEpsilon]"}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["J", RowBox[{"\[Alpha]_", ",", "\[Beta]_"}]], ",", SubscriptBox["F", "\[Delta]_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["F", "\[Delta]_"], ",", SubscriptBox["J", RowBox[{"\[Alpha]_", ",", "\[Beta]_"}]]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Beta]_", ",", "\[Gamma]_"}]], ",", SubscriptBox["F", "\[Delta]_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["F", "\[Delta]_"], ",", SubscriptBox["A", RowBox[{"\[Beta]_", ",", "\[Gamma]_"}]]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["F", "\[Beta]_"], ",", SubscriptBox["F", "\[Delta]_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "\[Alpha]_"], ",", SubscriptBox["H", RowBox[{"\[Delta]_", ",", "\[Kappa]_"}]]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["H", RowBox[{"\[Delta]_", ",", "\[Kappa]_"}]], ",", SubscriptBox["P", "\[Alpha]_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["G", "\[Alpha]_"], ",", SubscriptBox["H", RowBox[{"\[Delta]_", ",", "\[Kappa]_"}]]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["H", RowBox[{"\[Delta]_", ",", "\[Kappa]_"}]], ",", SubscriptBox["G", "\[Alpha]_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{"\[CapitalEpsilon]", ",", SubscriptBox["H", RowBox[{"\[Delta]_", ",", "\[Kappa]_"}]]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["H", RowBox[{"\[Delta]_", ",", "\[Kappa]_"}]], ",", "\[CapitalEpsilon]"}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["J", RowBox[{"\[Alpha]_", ",", "\[Beta]_"}]], ",", SubscriptBox["H", RowBox[{"\[Delta]_", ",", "\[Kappa]_"}]]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["H", RowBox[{"\[Delta]_", ",", "\[Kappa]_"}]], ",", SubscriptBox["J", RowBox[{"\[Alpha]_", ",", "\[Beta]_"}]]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["H", RowBox[{"\[Beta]_", ",", "\[Gamma]_"}]], ",", SubscriptBox["H", RowBox[{"\[Delta]_", ",", "\[Kappa]_"}]]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["H", RowBox[{"\[Beta]_", ",", "\[Gamma]_"}]], ",", SubscriptBox["A", RowBox[{"\[Delta]_", ",", "\[Kappa]_"}]]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["A", RowBox[{"\[Beta]_", ",", "\[Gamma]_"}]], ",", SubscriptBox["H", RowBox[{"\[Delta]_", ",", "\[Kappa]_"}]]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["H", RowBox[{"\[Beta]_", ",", "\[Gamma]_"}]], ",", SubscriptBox["B", "\[Delta]_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["B", "\[Beta]_"], ",", SubscriptBox["H", RowBox[{"\[Delta]_", ",", "\[Kappa]_"}]]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["H", RowBox[{"\[Beta]_", ",", "\[Gamma]_"}]], ",", SubscriptBox["F", "\[Delta]_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["F", "\[Beta]_"], ",", SubscriptBox["H", RowBox[{"\[Delta]_", ",", "\[Kappa]_"}]]}], "]"}], "\[RuleDelayed]", "0"}]}], "}"}]], "Output", CellChangeTimes->{ 3.455630038308057*^9, 3.4556301364798727`*^9, 3.4556302466938934`*^9, 3.4556302998192053`*^9, {3.4556310076696653`*^9, 3.455631051423665*^9}, 3.4556364735635414`*^9, 3.4556583644935093`*^9, 3.4602460472573967`*^9, 3.46031054458998*^9, 3.46331435002549*^9, 3.4633158275224295`*^9, 3.464303431355*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["l", "iece"], "[", RowBox[{"A_", ",", "B_"}], "]"}], ":=", " ", RowBox[{ RowBox[{"l", "[", RowBox[{"A", ",", "B"}], "]"}], "//.", "IEceAlgebraRules"}]}]], "Input", CellChangeTimes->{{3.4281034785636935`*^9, 3.428103487176078*^9}, { 3.4281035197228775`*^9, 3.428103555834804*^9}, {3.428104383272549*^9, 3.4281043834127507`*^9}, {3.4291102830597935`*^9, 3.4291103035067472`*^9}, { 3.4291113936420393`*^9, 3.429111417155146*^9}, {3.429112330948675*^9, 3.4291123323308277`*^9}, {3.4522040579198527`*^9, 3.452204068434973*^9}, { 3.452206346731002*^9, 3.4522063703850145`*^9}, {3.45220804803736*^9, 3.4522080546869216`*^9}, {3.452347326225076*^9, 3.4523473317630396`*^9}, { 3.45234939783279*^9, 3.4523494062649145`*^9}, {3.453066409082573*^9, 3.4530664104044733`*^9}, {3.4555793989093733`*^9, 3.455579408363319*^9}, { 3.455618002501545*^9, 3.4556180080290976`*^9}, {3.45562492360429*^9, 3.45562493011329*^9}}] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Weyl-Heisenberg", "Section", CellChangeTimes->{{3.4281011894382477`*^9, 3.4281012112596254`*^9}, 3.453066819252368*^9}], Cell[CellGroupData[{ Cell["Weyl-Heisenberg algebra in 3 form", "Subsection", CellChangeTimes->{{3.4099583378836594`*^9, 3.409958347877432*^9}, 3.453067901929181*^9, {3.4530687623864574`*^9, 3.453068784678512*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"WeylHeisenberg3basis", "[", RowBox[{"{", "i_", "}"}], "]"}], ":=", RowBox[{"{", RowBox[{ SubscriptBox["P", "i"], ",", SubscriptBox["Q", "i"], ",", "\[CapitalIota]"}], "}"}]}]], "Input", CellChangeTimes->{{3.4281012253398714`*^9, 3.428101225480073*^9}, { 3.428101276503441*^9, 3.428101321187694*^9}, {3.4281013552266397`*^9, 3.4281013671137323`*^9}, 3.4281013984287615`*^9, {3.4281014559915323`*^9, 3.4281014569929724`*^9}, 3.429110241258542*^9, {3.4530660722682576`*^9, 3.4530660747718573`*^9}, 3.453066819252368*^9}], Cell[BoxData[ RowBox[{ RowBox[{"WeylHeisenbergAlgebra3rulesa", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["Q", "i_"], ",", SubscriptBox["P", "k_"]}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{"-", "\[CapitalIota]"}], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]]}]}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "i_"], ",", SubscriptBox["Q", "k_"]}], "]"}], "\[RuleDelayed]", RowBox[{"\[CapitalIota]", " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["Q", "i_"], ",", SubscriptBox["Q", "k_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "i_"], ",", SubscriptBox["P", "k_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["Q", "i_"], ",", "\[CapitalIota]"}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{"\[CapitalIota]", ",", SubscriptBox["Q", "i_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "i_"], ",", "\[CapitalIota]"}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{"\[CapitalIota]", ",", SubscriptBox["P", "i_"]}], "]"}], "\[RuleDelayed]", "0"}]}], "\[IndentingNewLine]", "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.4291111710225496`*^9, 3.429111218912367*^9}, 3.4530661301014175`*^9, 3.4530668192623825`*^9, {3.4530668553743086`*^9, 3.453066857657592*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"WeylHeisenbergAlgebra3rules", " ", "=", RowBox[{"genRules", "[", RowBox[{ RowBox[{"{", RowBox[{ "WeylHeisenbergAlgebra3rulesa", ",", "UnitaryAlgebraReal3rulesa"}], "}"}], ",", RowBox[{"{", "generalRules", "}"}], ",", "WeylHeisenberg3basis", ",", RowBox[{"{", "i", "}"}], ",", RowBox[{"{", "j", "}"}], ",", RowBox[{"{", "i_", "}"}], ",", RowBox[{"{", "j_", "}"}], ",", "B", ",", "C"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.429227589413638*^9, 3.4292275901146603`*^9}, { 3.42922766522416*^9, 3.4292276971306753`*^9}, {3.4292277976271863`*^9, 3.4292277988289385`*^9}, {3.4292289196629705`*^9, 3.4292290081319466`*^9}, {3.429229143208872*^9, 3.4292291441302147`*^9}, { 3.429229266678875*^9, 3.429229268751897*^9}, {3.4292293099820056`*^9, 3.4292293216990876`*^9}, 3.4292294659493856`*^9, 3.4292295217607517`*^9, { 3.4292303451611633`*^9, 3.4292303709287295`*^9}, 3.429230446048244*^9, { 3.4292309880083523`*^9, 3.4292309970415215`*^9}, {3.4522039324794784`*^9, 3.452203949974635*^9}, 3.4522039831924*^9, {3.4522040290783806`*^9, 3.452204030159936*^9}, 3.4522046210195503`*^9, {3.4522063251499696`*^9, 3.452206365848491*^9}, 3.452206423140874*^9, {3.4522079973745103`*^9, 3.4522080449829683`*^9}, {3.45220862887256*^9, 3.452208636102957*^9}, 3.45220953176085*^9, {3.452347282081601*^9, 3.452347314528257*^9}, 3.4523499617336397`*^9, 3.4523506431234303`*^9, 3.452350924833606*^9, { 3.453066162828477*^9, 3.453066216455589*^9}, {3.4530662990944176`*^9, 3.45306632959828*^9}, 3.453066819272397*^9, {3.453066917643848*^9, 3.4530669535655007`*^9}, 3.4530670485120273`*^9, 3.4530671628063745`*^9, { 3.4602837481905756`*^9, 3.4602837914058967`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["l", "wh3"], "[", RowBox[{"A_", ",", "B_"}], "]"}], ":=", " ", RowBox[{ RowBox[{"l", "[", RowBox[{"A", ",", "B"}], "]"}], "//.", "WeylHeisenbergAlgebra3rules", " "}]}]], "Input", CellChangeTimes->{{3.4281034785636935`*^9, 3.428103487176078*^9}, { 3.4281035197228775`*^9, 3.428103555834804*^9}, {3.428104383272549*^9, 3.4281043834127507`*^9}, {3.4291102830597935`*^9, 3.4291103035067472`*^9}, {3.4291123613460207`*^9, 3.4291123630687037`*^9}, 3.453066819272397*^9, 3.453067111873136*^9}] }, Open ]], Cell[CellGroupData[{ Cell["Weyl-Heisenberg algebra in complex 3 form", "Subsection", CellChangeTimes->{{3.4099583378836594`*^9, 3.409958347877432*^9}, 3.453067901929181*^9, {3.4530687623864574`*^9, 3.453068784678512*^9}, { 3.4602828650465503`*^9, 3.4602828661444135`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"WeylHeisenbergComplex3basis", "[", RowBox[{"{", "i_", "}"}], "]"}], ":=", RowBox[{"{", RowBox[{ SubsuperscriptBox["A", "i", "+"], ",", SubsuperscriptBox["A", "i", "-"], ",", "\[CapitalIota]"}], "}"}]}]], "Input", CellChangeTimes->{{3.4281012253398714`*^9, 3.428101225480073*^9}, { 3.428101276503441*^9, 3.428101321187694*^9}, {3.4281013552266397`*^9, 3.4281013671137323`*^9}, 3.4281013984287615`*^9, {3.4281014559915323`*^9, 3.4281014569929724`*^9}, 3.429110241258542*^9, {3.4530660722682576`*^9, 3.4530660747718573`*^9}, 3.453066819252368*^9, {3.460282880197263*^9, 3.4602829172323036`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"WeylHeisenbergAlgebraComplex3rulesa", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"l", "[", RowBox[{ SubsuperscriptBox["A", "i_", "+"], ",", SubsuperscriptBox["A", "j_", "-"]}], "]"}], "\[RuleDelayed]", RowBox[{"\[ImaginaryI]", " ", "\[CapitalIota]", " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "j"}]]}]}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubsuperscriptBox["A", "i_", "-"], ",", SubsuperscriptBox["A", "j_", "+"]}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "\[CapitalIota]", " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "j"}]]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubsuperscriptBox["A", "i_", "-"], ",", SubsuperscriptBox["A", "j_", "-"]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubsuperscriptBox["A", "i_", "+"], ",", SubsuperscriptBox["A", "j_", "+"]}], "]"}], "\[RuleDelayed]", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubsuperscriptBox["A", "j_", "-"], ",", "\[CapitalIota]"}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{"\[CapitalIota]", ",", SubsuperscriptBox["A", "j_", "-"]}], "]"}], "\[RuleDelayed]", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubsuperscriptBox["A", "i_", "+"], ",", "\[CapitalIota]"}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{"\[CapitalIota]", ",", SubsuperscriptBox["A", "i_", "+"]}], "]"}], "\[RuleDelayed]", "0"}]}], "\[IndentingNewLine]", "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.4291111710225496`*^9, 3.429111218912367*^9}, 3.4530661301014175`*^9, 3.4530668192623825`*^9, {3.4530668553743086`*^9, 3.453066857657592*^9}, {3.460282928544216*^9, 3.4602830202343545`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"WeylHeisenbergAlgebraComplex3rules", " ", "=", RowBox[{"genRules", "[", RowBox[{"WeylHeisenbergAlgebraComplex3rulesa", ",", RowBox[{"{", "generalRules", "}"}], ",", "WeylHeisenbergComplex3basis", ",", RowBox[{"{", "i", "}"}], ",", RowBox[{"{", "j", "}"}], ",", RowBox[{"{", "i_", "}"}], ",", RowBox[{"{", "j_", "}"}], ",", "B", ",", "C"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.429227589413638*^9, 3.4292275901146603`*^9}, { 3.42922766522416*^9, 3.4292276971306753`*^9}, {3.4292277976271863`*^9, 3.4292277988289385`*^9}, {3.4292289196629705`*^9, 3.4292290081319466`*^9}, {3.429229143208872*^9, 3.4292291441302147`*^9}, { 3.429229266678875*^9, 3.429229268751897*^9}, {3.4292293099820056`*^9, 3.4292293216990876`*^9}, 3.4292294659493856`*^9, 3.4292295217607517`*^9, { 3.4292303451611633`*^9, 3.4292303709287295`*^9}, 3.429230446048244*^9, { 3.4292309880083523`*^9, 3.4292309970415215`*^9}, {3.4522039324794784`*^9, 3.452203949974635*^9}, 3.4522039831924*^9, {3.4522040290783806`*^9, 3.452204030159936*^9}, 3.4522046210195503`*^9, {3.4522063251499696`*^9, 3.452206365848491*^9}, 3.452206423140874*^9, {3.4522079973745103`*^9, 3.4522080449829683`*^9}, {3.45220862887256*^9, 3.452208636102957*^9}, 3.45220953176085*^9, {3.452347282081601*^9, 3.452347314528257*^9}, 3.4523499617336397`*^9, 3.4523506431234303`*^9, 3.452350924833606*^9, { 3.453066162828477*^9, 3.453066216455589*^9}, {3.4530662990944176`*^9, 3.45306632959828*^9}, 3.453066819272397*^9, {3.453066917643848*^9, 3.4530669535655007`*^9}, 3.4530670485120273`*^9, 3.4530671628063745`*^9, { 3.460283022694075*^9, 3.4602830342511597`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["l", "whc3"], "[", RowBox[{"A_", ",", "B_"}], "]"}], ":=", " ", RowBox[{ RowBox[{"l", "[", RowBox[{"A", ",", "B"}], "]"}], "//.", "WeylHeisenbergAlgebraComplex3rules", " "}]}]], "Input", CellChangeTimes->{{3.4281034785636935`*^9, 3.428103487176078*^9}, { 3.4281035197228775`*^9, 3.428103555834804*^9}, {3.428104383272549*^9, 3.4281043834127507`*^9}, {3.4291102830597935`*^9, 3.4291103035067472`*^9}, {3.4291123613460207`*^9, 3.4291123630687037`*^9}, 3.453066819272397*^9, 3.453067111873136*^9, {3.4602830374353867`*^9, 3.4602830412140303`*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Weyl-Heisenberg algebra in 4 form", "Subsection", CellChangeTimes->{{3.4099583378836594`*^9, 3.409958347877432*^9}, 3.453067901929181*^9, {3.4530687623864574`*^9, 3.4530687987587585`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"WeylHeisenberg4basis", "[", RowBox[{"{", "a_", "}"}], "]"}], ":=", RowBox[{"{", RowBox[{ SubscriptBox["Y", "a"], ",", SubscriptBox["X", "a"], ",", "\[CapitalIota]"}], "}"}]}]], "Input", CellChangeTimes->{{3.4281012253398714`*^9, 3.428101225480073*^9}, { 3.428101276503441*^9, 3.428101321187694*^9}, {3.4281013552266397`*^9, 3.4281013671137323`*^9}, 3.4281013984287615`*^9, {3.4281014559915323`*^9, 3.4281014569929724`*^9}, 3.429110241258542*^9, {3.4291961121061153`*^9, 3.4291961415885086`*^9}, {3.453066077916379*^9, 3.4530660815215635`*^9}, 3.453066819252368*^9}], Cell[BoxData[ RowBox[{ RowBox[{"WeylHeisenbergAlgebra4rulesa", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["X", "a_"], ",", SubscriptBox["Y", "c_"]}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{"-", "\[CapitalIota]"}], " ", SubscriptBox["\[Eta]", RowBox[{"a", ",", "c"}]]}]}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["Y", "a_"], ",", SubscriptBox["X", "c_"]}], "]"}], "\[RuleDelayed]", RowBox[{"\[CapitalIota]", " ", SubscriptBox["\[Eta]", RowBox[{"a", ",", "c"}]]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["X", "a_"], ",", SubscriptBox["X", "c_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["Y", "a_"], ",", SubscriptBox["Y", "c_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["X", "a_"], ",", "\[CapitalIota]"}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{"\[CapitalIota]", ",", SubscriptBox["X", "a_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["Y", "a_"], ",", "\[CapitalIota]"}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{"\[CapitalIota]", ",", SubscriptBox["Y", "a_"]}], "]"}], "\[RuleDelayed]", "0"}]}], "\[IndentingNewLine]", "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.429110465269994*^9, 3.4291105849280987`*^9}, { 3.4291109175530233`*^9, 3.4291110119907017`*^9}, 3.4530661327051616`*^9, 3.4530668192623825`*^9, {3.453067357506339*^9, 3.4530673601200976`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"WeylHeisenbergAlgebra4rules", " ", "=", RowBox[{"genRules", "[", RowBox[{"WeylHeisenbergAlgebra4rulesa", ",", RowBox[{"{", "generalRules", "}"}], ",", "WeylHeisenberg4basis", ",", RowBox[{"{", "i", "}"}], ",", RowBox[{"{", "j", "}"}], ",", RowBox[{"{", "i_", "}"}], ",", RowBox[{"{", "j_", "}"}], ",", "B", ",", "C"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.429227589413638*^9, 3.4292275901146603`*^9}, { 3.42922766522416*^9, 3.4292276971306753`*^9}, {3.4292277976271863`*^9, 3.4292277988289385`*^9}, {3.4292289196629705`*^9, 3.4292290081319466`*^9}, {3.429229143208872*^9, 3.4292291441302147`*^9}, { 3.429229266678875*^9, 3.429229268751897*^9}, {3.4292293099820056`*^9, 3.4292293216990876`*^9}, 3.4292294659493856`*^9, 3.4292295217607517`*^9, { 3.4292303451611633`*^9, 3.4292303709287295`*^9}, 3.429230446048244*^9, { 3.4292309880083523`*^9, 3.4292309970415215`*^9}, {3.4522039324794784`*^9, 3.452203949974635*^9}, 3.4522039831924*^9, {3.4522040290783806`*^9, 3.452204030159936*^9}, 3.4522046210195503`*^9, {3.4522063251499696`*^9, 3.452206365848491*^9}, 3.452206423140874*^9, {3.4522079973745103`*^9, 3.4522080449829683`*^9}, {3.45220862887256*^9, 3.452208636102957*^9}, 3.45220953176085*^9, {3.452347282081601*^9, 3.452347314528257*^9}, 3.4523499617336397`*^9, 3.4523506431234303`*^9, 3.452350924833606*^9, { 3.453066162828477*^9, 3.453066216455589*^9}, {3.4530662990944176`*^9, 3.45306632959828*^9}, 3.453066819272397*^9, {3.453066917643848*^9, 3.4530669535655007`*^9}, 3.4530670485120273`*^9, 3.4530671628063745`*^9, { 3.453067382161792*^9, 3.4530673847455072`*^9}, 3.453067490167096*^9}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["l", "wh4"], "[", RowBox[{"A_", ",", "B_"}], "]"}], ":=", " ", RowBox[{ RowBox[{"l", "[", RowBox[{"A", ",", "B"}], "]"}], "//.", "WeylHeisenbergAlgebra4rules", " "}]}]], "Input", CellChangeTimes->{{3.4281034785636935`*^9, 3.428103487176078*^9}, { 3.4281035197228775`*^9, 3.428103555834804*^9}, {3.428104383272549*^9, 3.4281043834127507`*^9}, {3.4291102830597935`*^9, 3.4291103035067472`*^9}, {3.429110610365183*^9, 3.429110615382498*^9}, { 3.4291123658730717`*^9, 3.4291123675757236`*^9}, 3.453066819272397*^9, 3.45306738812036*^9}] }, Closed]], Cell[CellGroupData[{ Cell["Weyl-Heisenberg algebra in 8 form", "Subsection", CellChangeTimes->{{3.4099583378836594`*^9, 3.409958347877432*^9}, 3.453067901929181*^9, {3.4530687623864574`*^9, 3.453068801542762*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"WeylHeisenberg8basis", "[", RowBox[{"{", "\[Alpha]_", "}"}], "]"}], ":=", RowBox[{"{", RowBox[{ SubscriptBox["A", "\[Alpha]"], ",", "\[CapitalIota]"}], "}"}]}]], "Input", CellChangeTimes->{{3.4281012253398714`*^9, 3.428101225480073*^9}, { 3.428101276503441*^9, 3.428101321187694*^9}, {3.4281013552266397`*^9, 3.4281013671137323`*^9}, 3.4281013984287615`*^9, {3.4281014351415515`*^9, 3.4281014528169675`*^9}, 3.4291102445133195`*^9, {3.4530660990267344`*^9, 3.453066103242797*^9}, 3.453066819252368*^9}], Cell[BoxData[ RowBox[{ RowBox[{"WeylHeisenbergAlgebra8rulesa", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["A", "\[Alpha]_"], ",", SubscriptBox["A", "\[Beta]_"]}], "]"}], "\[RuleDelayed]", RowBox[{ SubscriptBox["\[Zeta]", RowBox[{"\[Alpha]", ",", "\[Beta]"}]], "\[CapitalIota]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["A", "\[Alpha]_"], ",", "\[CapitalIota]"}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{"\[CapitalIota]", ",", SubscriptBox["A", "\[Alpha]_"]}], "]"}], "\[RuleDelayed]", "0"}]}], " ", "\[IndentingNewLine]", "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.428101493655691*^9, 3.4281015579681673`*^9}, { 3.428102808079585*^9, 3.428102992725092*^9}, {3.4281030714783335`*^9, 3.4281030994685817`*^9}, {3.428103426398684*^9, 3.4281034292427735`*^9}, { 3.428104343405223*^9, 3.4281043455883617`*^9}, 3.4291101854766626`*^9, { 3.4291102626399264`*^9, 3.4291102687789373`*^9}, 3.4530661355893087`*^9, 3.4530668192623825`*^9, 3.4530673660886803`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"WeylHeisenbergAlgebra8rules", " ", "=", RowBox[{"genRules", "[", RowBox[{"WeylHeisenbergAlgebra8rulesa", ",", RowBox[{"{", "generalRules", "}"}], ",", "WeylHeisenberg8basis", ",", RowBox[{"{", "i", "}"}], ",", RowBox[{"{", "j", "}"}], ",", RowBox[{"{", "i_", "}"}], ",", RowBox[{"{", "j_", "}"}], ",", "B", ",", "C"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.429227589413638*^9, 3.4292275901146603`*^9}, { 3.42922766522416*^9, 3.4292276971306753`*^9}, {3.4292277976271863`*^9, 3.4292277988289385`*^9}, {3.4292289196629705`*^9, 3.4292290081319466`*^9}, {3.429229143208872*^9, 3.4292291441302147`*^9}, { 3.429229266678875*^9, 3.429229268751897*^9}, {3.4292293099820056`*^9, 3.4292293216990876`*^9}, 3.4292294659493856`*^9, 3.4292295217607517`*^9, { 3.4292303451611633`*^9, 3.4292303709287295`*^9}, 3.429230446048244*^9, { 3.4292309880083523`*^9, 3.4292309970415215`*^9}, {3.4522039324794784`*^9, 3.452203949974635*^9}, 3.4522039831924*^9, {3.4522040290783806`*^9, 3.452204030159936*^9}, 3.4522046210195503`*^9, {3.4522063251499696`*^9, 3.452206365848491*^9}, 3.452206423140874*^9, {3.4522079973745103`*^9, 3.4522080449829683`*^9}, {3.45220862887256*^9, 3.452208636102957*^9}, 3.45220953176085*^9, {3.452347282081601*^9, 3.452347314528257*^9}, 3.4523499617336397`*^9, 3.4523506431234303`*^9, 3.452350924833606*^9, { 3.453066162828477*^9, 3.453066216455589*^9}, {3.4530662990944176`*^9, 3.45306632959828*^9}, 3.453066819272397*^9, {3.453066917643848*^9, 3.4530669535655007`*^9}, 3.4530670485120273`*^9, 3.4530671628063745`*^9, { 3.453067382161792*^9, 3.453067408960326*^9}, 3.453067494423216*^9}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["l", "wh8"], "[", RowBox[{"A_", ",", "B_"}], "]"}], ":=", " ", RowBox[{ RowBox[{"l", "[", RowBox[{"A", ",", "B"}], "]"}], "//.", "WeylHeisenbergAlgebra8rules", " "}]}]], "Input", CellChangeTimes->{{3.4281034785636935`*^9, 3.428103487176078*^9}, { 3.4281035197228775`*^9, 3.428103555834804*^9}, {3.428104383272549*^9, 3.4281043834127507`*^9}, {3.4291102830597935`*^9, 3.4291103003325634`*^9}, {3.4291123763193426`*^9, 3.4291123779518857`*^9}, 3.453066819282411*^9, 3.4530674129360433`*^9}] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Hamilton", "Section", CellChangeTimes->{{3.4281011894382477`*^9, 3.4281012112596254`*^9}, 3.453066819252368*^9, {3.4556361002472134`*^9, 3.4556361021164007`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"HaBasis", "[", RowBox[{"{", RowBox[{"i_", ",", "j_"}], "}"}], "]"}], ":=", RowBox[{"{", RowBox[{ SubscriptBox["J", RowBox[{"i", ",", "j"}]], ",", SubscriptBox["G", "i"], ",", " ", SubscriptBox["F", "i"], ",", "R"}], "}"}]}]], "Input", CellChangeTimes->{{3.4281012253398714`*^9, 3.428101225480073*^9}, { 3.428101276503441*^9, 3.428101321187694*^9}, {3.4281013552266397`*^9, 3.4281013671137323`*^9}, 3.4281013984287615`*^9, {3.4281014351415515`*^9, 3.4281014528169675`*^9}, {3.4291096599252367`*^9, 3.429109727003697*^9}, 3.4291099804156656`*^9, {3.4291101247074633`*^9, 3.4291101659780416`*^9}, { 3.4292286527238073`*^9, 3.4292286559585233`*^9}, {3.4522030331162577`*^9, 3.452203090859288*^9}, {3.4522031254590397`*^9, 3.4522031267909555`*^9}, 3.452203923166086*^9, 3.4522039714154654`*^9, {3.452204754922093*^9, 3.4522047697834625`*^9}, {3.452206154885141*^9, 3.4522061651699295`*^9}, { 3.452207823534541*^9, 3.452207839207077*^9}, {3.4522089778844147`*^9, 3.452208981579728*^9}, {3.4523472332714157`*^9, 3.4523472417536125`*^9}, { 3.4523491005352974`*^9, 3.452349178136883*^9}, {3.4523492872637997`*^9, 3.4523493033569403`*^9}, {3.453488953824366*^9, 3.4534889755115347`*^9}, { 3.453489023920375*^9, 3.453489029642947*^9}, {3.4534891961765985`*^9, 3.4534892164626274`*^9}, 3.4534905382347913`*^9, 3.453490598178785*^9, { 3.453490835814546*^9, 3.4534908501479793`*^9}, {3.4534909119601603`*^9, 3.4534909448094444`*^9}, {3.4534911011040726`*^9, 3.4534911020671687`*^9}, 3.4534911887698383`*^9, {3.4556361382220106`*^9, 3.455636151255314*^9}, 3.4556363769408803`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"HaAlgebraRulesa", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"l", "[", RowBox[{"B_", ",", "R"}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{"R", ",", "B_"}], "]"}], "\[RuleDelayed]", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["G", "k_"], ",", SubscriptBox["F", "i_"]}], "]"}], "\[RuleDelayed]", RowBox[{ SubscriptBox["\[Delta]", RowBox[{"k", ",", "i"}]], "R"}]}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["F", "i_"], ",", SubscriptBox["G", "k_"]}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{"-", SubscriptBox["\[Delta]", RowBox[{"k", ",", "i"}]]}], "R"}]}]}], "\[IndentingNewLine]", "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.4291113088326263`*^9, 3.429111321710759*^9}, { 3.4291118535626483`*^9, 3.4291118990790057`*^9}, {3.4291119606187224`*^9, 3.4291119635930586`*^9}, 3.4291120198050084`*^9, {3.4291273268710012`*^9, 3.4291273302158113`*^9}, {3.4292305194452477`*^9, 3.429230520166299*^9}, 3.429230762229195*^9, {3.4522031153344817`*^9, 3.4522031627126083`*^9}, { 3.4522038071292334`*^9, 3.4522038689381104`*^9}, 3.452204579179387*^9, 3.452204611075251*^9, {3.4522047760424623`*^9, 3.452204784895192*^9}, { 3.4522062044664354`*^9, 3.452206314554734*^9}, 3.45220639199609*^9, 3.452206748268384*^9, {3.452207848450368*^9, 3.4522079888222127`*^9}, 3.452208683350896*^9, 3.452209340445752*^9, {3.452209575313475*^9, 3.452209608681456*^9}, {3.4522096458048368`*^9, 3.4522096481682353`*^9}, 3.452210270933728*^9, {3.4523470862299805`*^9, 3.452347103044158*^9}, { 3.452347245649214*^9, 3.4523472704949403`*^9}, {3.452349037274332*^9, 3.4523490394474573`*^9}, {3.452349091111747*^9, 3.452349093094598*^9}, { 3.4523491871899004`*^9, 3.4523492596140413`*^9}, {3.4523492907287817`*^9, 3.4523493112482877`*^9}, 3.452349435687222*^9, {3.453066357718715*^9, 3.453066360242344*^9}, {3.4534890048734703`*^9, 3.4534890126372466`*^9}, { 3.453489046715654*^9, 3.4534890481237946`*^9}, {3.4534890945284348`*^9, 3.4534891598419657`*^9}, {3.453489639466923*^9, 3.453489668157792*^9}, { 3.453489878476822*^9, 3.4534898822612004`*^9}, {3.453489989355909*^9, 3.4534899932062936`*^9}, {3.4534900350344763`*^9, 3.453490043355308*^9}, { 3.453490539530921*^9, 3.453490594418409*^9}, {3.4534907899779625`*^9, 3.4534907930322685`*^9}, 3.453490884433408*^9, {3.453491096838646*^9, 3.453491210633024*^9}, {3.455636154793668*^9, 3.455636216809869*^9}, 3.455636379006087*^9}], Cell[BoxData[ RowBox[{ RowBox[{"HaAlgebraRules", " ", "=", RowBox[{"genRules", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"{", RowBox[{"HaAlgebraRulesa", ",", RowBox[{"ISOAlgebraRulesa", "//.", RowBox[{"{", RowBox[{"A", "\[RuleDelayed]", "F"}], "}"}]}], ",", RowBox[{"ISOAlgebraRulesa", "//.", RowBox[{"{", RowBox[{"A", "\[RuleDelayed]", "G"}], "}"}]}], ",", "OrthogonalAlgebraRulesa", ",", RowBox[{"AbelianAlgebraRulesa", "//.", RowBox[{"A", "\[RuleDelayed]", "F"}]}], ",", RowBox[{"AbelianAlgebraRulesa", "//.", RowBox[{"A", "\[RuleDelayed]", "G"}]}]}], "}"}], "]"}], ",", RowBox[{"{", "generalRules", "}"}], ",", "HaBasis", ",", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", " ", "l"}], "}"}], ",", RowBox[{"{", RowBox[{"i_", ",", "j_"}], "}"}], ",", RowBox[{"{", RowBox[{"k_", ",", " ", "l_"}], "}"}], ",", "D", ",", "C"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.453491024428406*^9, 3.4534910921351757`*^9}, 3.4534912288418446`*^9, {3.453491338736833*^9, 3.4534913398299427`*^9}, { 3.453491395379497*^9, 3.4534913960955687`*^9}, {3.453491658026759*^9, 3.45349166013297*^9}, {3.4556362202812157`*^9, 3.455636275056693*^9}, { 3.455636340468233*^9, 3.4556363413723235`*^9}, {3.455636381458332*^9, 3.455636409850171*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["l", "ha"], "[", RowBox[{"A_", ",", "B_"}], "]"}], ":=", " ", RowBox[{ RowBox[{"l", "[", RowBox[{"A", ",", "B"}], "]"}], "//.", "HaAlgebraRules"}]}]], "Input", CellChangeTimes->{{3.4281034785636935`*^9, 3.428103487176078*^9}, { 3.4281035197228775`*^9, 3.428103555834804*^9}, {3.428104383272549*^9, 3.4281043834127507`*^9}, {3.4291102830597935`*^9, 3.4291103035067472`*^9}, {3.4291113936420393`*^9, 3.429111417155146*^9}, { 3.429112330948675*^9, 3.4291123323308277`*^9}, {3.4522040579198527`*^9, 3.452204068434973*^9}, {3.452206346731002*^9, 3.4522063703850145`*^9}, { 3.45220804803736*^9, 3.4522080546869216`*^9}, {3.452347326225076*^9, 3.4523473317630396`*^9}, {3.45234939783279*^9, 3.4523494062649145`*^9}, { 3.453066409082573*^9, 3.4530664104044733`*^9}, {3.4534889930752907`*^9, 3.4534889933743205`*^9}, {3.453489269156896*^9, 3.4534892700269833`*^9}, 3.4534905608680544`*^9, 3.453490744023368*^9, {3.4534911774287043`*^9, 3.453491182510212*^9}, {3.45563633353354*^9, 3.455636337656952*^9}, { 3.455636394233609*^9, 3.4556364004522314`*^9}}] }, 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}, {3.4556374987550507`*^9, 3.4556375087870536`*^9}, 3.4556576517912464`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"IHaBasis", "[", RowBox[{"{", RowBox[{"i_", ",", "j_"}], "}"}], "]"}], ":=", RowBox[{"{", RowBox[{ SubscriptBox["J", RowBox[{"i", ",", "j"}]], ",", SubscriptBox["G", "i"], ",", " ", SubscriptBox["F", "i"], ",", "R", ",", " ", SubscriptBox["P", "i"], ",", SubscriptBox["Q", "i"], ",", "\[CapitalEpsilon]", ",", "T"}], "}"}]}]], "Input", CellChangeTimes->{{3.4281012253398714`*^9, 3.428101225480073*^9}, { 3.428101276503441*^9, 3.428101321187694*^9}, {3.4281013552266397`*^9, 3.4281013671137323`*^9}, 3.4281013984287615`*^9, {3.4281014351415515`*^9, 3.4281014528169675`*^9}, {3.4291096599252367`*^9, 3.429109727003697*^9}, 3.4291099804156656`*^9, {3.4291101247074633`*^9, 3.4291101659780416`*^9}, { 3.4292286527238073`*^9, 3.4292286559585233`*^9}, {3.4522030331162577`*^9, 3.452203090859288*^9}, {3.4522031254590397`*^9, 3.4522031267909555`*^9}, 3.452203923166086*^9, 3.4522039714154654`*^9, {3.452204754922093*^9, 3.4522047697834625`*^9}, {3.452206154885141*^9, 3.4522061651699295`*^9}, { 3.452207823534541*^9, 3.452207839207077*^9}, {3.4522089778844147`*^9, 3.452208981579728*^9}, {3.4523472332714157`*^9, 3.4523472417536125`*^9}, { 3.4523491005352974`*^9, 3.452349178136883*^9}, {3.4523492872637997`*^9, 3.4523493033569403`*^9}, {3.453488953824366*^9, 3.4534889755115347`*^9}, { 3.453489023920375*^9, 3.453489029642947*^9}, {3.4534891961765985`*^9, 3.4534892164626274`*^9}, 3.4534905382347913`*^9, 3.453490598178785*^9, { 3.453490835814546*^9, 3.4534908501479793`*^9}, {3.4534909119601603`*^9, 3.4534909448094444`*^9}, {3.4534911011040726`*^9, 3.4534911020671687`*^9}, 3.4534911887698383`*^9, {3.4556361382220106`*^9, 3.455636151255314*^9}, 3.4556363769408803`*^9, {3.455637528887063*^9, 3.4556375451786923`*^9}, { 3.455655812923378*^9, 3.455655814369523*^9}, {3.4556573379178624`*^9, 3.455657338981969*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"HHaBasis", "[", RowBox[{"{", RowBox[{"i_", ",", "j_"}], "}"}], "]"}], ":=", RowBox[{"{", RowBox[{ SubscriptBox["J", RowBox[{"i", ",", "j"}]], ",", SubscriptBox["G", "i"], ",", " ", SubscriptBox["F", "i"], ",", "R", ",", " ", SubscriptBox["P", "i"], ",", SubscriptBox["Q", "i"], ",", "\[CapitalEpsilon]", ",", "T", ",", "\[CapitalIota]"}], "}"}]}]], "Input", CellChangeTimes->{{3.4281012253398714`*^9, 3.428101225480073*^9}, { 3.428101276503441*^9, 3.428101321187694*^9}, {3.4281013552266397`*^9, 3.4281013671137323`*^9}, 3.4281013984287615`*^9, {3.4281014351415515`*^9, 3.4281014528169675`*^9}, {3.4291096599252367`*^9, 3.429109727003697*^9}, 3.4291099804156656`*^9, {3.4291101247074633`*^9, 3.4291101659780416`*^9}, { 3.4292286527238073`*^9, 3.4292286559585233`*^9}, {3.4522030331162577`*^9, 3.452203090859288*^9}, {3.4522031254590397`*^9, 3.4522031267909555`*^9}, 3.452203923166086*^9, 3.4522039714154654`*^9, {3.452204754922093*^9, 3.4522047697834625`*^9}, {3.452206154885141*^9, 3.4522061651699295`*^9}, { 3.452207823534541*^9, 3.452207839207077*^9}, {3.4522089778844147`*^9, 3.452208981579728*^9}, {3.4523472332714157`*^9, 3.4523472417536125`*^9}, { 3.4523491005352974`*^9, 3.452349178136883*^9}, {3.4523492872637997`*^9, 3.4523493033569403`*^9}, {3.453488953824366*^9, 3.4534889755115347`*^9}, { 3.453489023920375*^9, 3.453489029642947*^9}, {3.4534891961765985`*^9, 3.4534892164626274`*^9}, 3.4534905382347913`*^9, 3.453490598178785*^9, { 3.453490835814546*^9, 3.4534908501479793`*^9}, {3.4534909119601603`*^9, 3.4534909448094444`*^9}, {3.4534911011040726`*^9, 3.4534911020671687`*^9}, 3.4534911887698383`*^9, {3.4556361382220106`*^9, 3.455636151255314*^9}, 3.4556363769408803`*^9, {3.455637528887063*^9, 3.4556375589080653`*^9}, { 3.455655816801766*^9, 3.4556558183089166`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"IHaAlgebraRulesa", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["J", RowBox[{"i_", ",", "j_"}]], ",", SubscriptBox["Q", "k_"]}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["Q", "j"]}], SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]]}], "+", RowBox[{ SubscriptBox["Q", "i"], SubscriptBox["\[Delta]", RowBox[{"j", ",", "k"}]]}]}]}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["Q", "k_"], ",", SubscriptBox["J", RowBox[{"i_", ",", "j_"}]]}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{ SubscriptBox["Q", "j"], SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]]}], "-", RowBox[{ SubscriptBox["Q", "i"], SubscriptBox["\[Delta]", RowBox[{"j", ",", "k"}]]}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["J", RowBox[{"i_", ",", "j_"}]], ",", SubscriptBox["P", "k_"]}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["P", "j"]}], SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]]}], "+", RowBox[{ SubscriptBox["P", "i"], SubscriptBox["\[Delta]", RowBox[{"j", ",", "k"}]]}]}]}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "k_"], ",", SubscriptBox["J", RowBox[{"i_", ",", "j_"}]]}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{ SubscriptBox["P", "j"], SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]]}], "-", RowBox[{ SubscriptBox["P", "i"], SubscriptBox["\[Delta]", RowBox[{"j", ",", "k"}]]}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["G", "i_"], ",", SubscriptBox["Q", "k_"]}], "]"}], "\[RuleDelayed]", RowBox[{ SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]], "T"}]}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["Q", "k_"], ",", SubscriptBox["G", "i_"]}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{"-", SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]]}], "T"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["F", "i_"], ",", SubscriptBox["P", "k_"]}], "]"}], "\[RuleDelayed]", RowBox[{ SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]], "T"}]}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "k_"], ",", SubscriptBox["F", "i_"]}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{"-", SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]]}], "T"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["G", "i_"], ",", "\[CapitalEpsilon]"}], "]"}], "\[RuleDelayed]", SubscriptBox["P", "i"]}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{"\[CapitalEpsilon]", ",", SubscriptBox["G", "i_"]}], "]"}], "\[RuleDelayed]", RowBox[{"-", SubscriptBox["P", "i"]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["F", "i_"], ",", "\[CapitalEpsilon]"}], "]"}], "\[RuleDelayed]", RowBox[{"-", SubscriptBox["Q", "i"]}]}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{"\[CapitalEpsilon]", ",", SubscriptBox["F", "i_"]}], "]"}], "\[RuleDelayed]", SubscriptBox["Q", "i"]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{"\[CapitalEpsilon]", ",", "R"}], "]"}], "\[RuleDelayed]", RowBox[{"2", " ", "T"}]}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{"R", ",", "\[CapitalEpsilon]"}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{"-", "2"}], " ", "T"}]}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["G", "i_"], ",", SubscriptBox["P", "k_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "k_"], ",", SubscriptBox["G", "i_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["F", "i_"], ",", SubscriptBox["Q", "k_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["Q", "k_"], ",", SubscriptBox["F", "i_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{"\[CapitalEpsilon]", ",", SubscriptBox["P", "i_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "i_"], ",", "\[CapitalEpsilon]"}], "]"}], "\[RuleDelayed]", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{"\[CapitalEpsilon]", ",", SubscriptBox["Q", "i_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["Q", "i_"], ",", "\[CapitalEpsilon]"}], "]"}], "\[RuleDelayed]", "0"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{"T", ",", SubscriptBox["P", "i_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "i_"], ",", "T"}], "]"}], "\[RuleDelayed]", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{"T", ",", SubscriptBox["Q", "i_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["Q", "i_"], ",", "T"}], "]"}], "\[RuleDelayed]", "0"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{"R", ",", SubscriptBox["P", "i_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "i_"], ",", "R"}], "]"}], "\[RuleDelayed]", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{"R", ",", SubscriptBox["Q", "i_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["Q", "i_"], ",", "R"}], "]"}], "\[RuleDelayed]", "0"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["J", RowBox[{"i_", ",", "j_"}]], ",", "T"}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{"T", ",", SubscriptBox["J", RowBox[{"i_", ",", "j_"}]]}], "]"}], "\[RuleDelayed]", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["J", RowBox[{"i_", ",", "j_"}]], ",", "\[CapitalEpsilon]"}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{"\[CapitalEpsilon]", ",", SubscriptBox["J", RowBox[{"i_", ",", "j_"}]]}], "]"}], "\[RuleDelayed]", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["G", "i_"], ",", "T"}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{"T", ",", SubscriptBox["G", "i_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["F", "i_"], ",", "T"}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{"T", ",", SubscriptBox["F", "i_"]}], "]"}], "\[RuleDelayed]", "0"}]}], "\[IndentingNewLine]", "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.4291113088326263`*^9, 3.429111321710759*^9}, { 3.4291118535626483`*^9, 3.4291118990790057`*^9}, {3.4291119606187224`*^9, 3.4291119635930586`*^9}, 3.4291120198050084`*^9, {3.4291273268710012`*^9, 3.4291273302158113`*^9}, {3.4292305194452477`*^9, 3.429230520166299*^9}, 3.429230762229195*^9, {3.4522031153344817`*^9, 3.4522031627126083`*^9}, { 3.4522038071292334`*^9, 3.4522038689381104`*^9}, 3.452204579179387*^9, 3.452204611075251*^9, {3.4522047760424623`*^9, 3.452204784895192*^9}, { 3.4522062044664354`*^9, 3.452206314554734*^9}, 3.45220639199609*^9, 3.452206748268384*^9, {3.452207848450368*^9, 3.4522079888222127`*^9}, 3.452208683350896*^9, 3.452209340445752*^9, {3.452209575313475*^9, 3.452209608681456*^9}, {3.4522096458048368`*^9, 3.4522096481682353`*^9}, 3.452210270933728*^9, {3.4523470862299805`*^9, 3.452347103044158*^9}, { 3.452347245649214*^9, 3.4523472704949403`*^9}, {3.452349037274332*^9, 3.4523490394474573`*^9}, {3.452349091111747*^9, 3.452349093094598*^9}, { 3.4523491871899004`*^9, 3.4523492596140413`*^9}, {3.4523492907287817`*^9, 3.4523493112482877`*^9}, 3.452349435687222*^9, {3.453066357718715*^9, 3.453066360242344*^9}, {3.4534890048734703`*^9, 3.4534890126372466`*^9}, { 3.453489046715654*^9, 3.4534890481237946`*^9}, {3.4534890945284348`*^9, 3.4534891598419657`*^9}, {3.453489639466923*^9, 3.453489668157792*^9}, { 3.453489878476822*^9, 3.4534898822612004`*^9}, {3.453489989355909*^9, 3.4534899932062936`*^9}, {3.4534900350344763`*^9, 3.453490043355308*^9}, { 3.453490539530921*^9, 3.453490594418409*^9}, {3.4534907899779625`*^9, 3.4534907930322685`*^9}, 3.453490884433408*^9, {3.453491096838646*^9, 3.453491210633024*^9}, {3.455636154793668*^9, 3.455636216809869*^9}, 3.455636379006087*^9, 3.455637593298504*^9, {3.4556549346825533`*^9, 3.4556550949767447`*^9}, {3.4556551269497447`*^9, 3.4556553389247446`*^9}, {3.455655372427745*^9, 3.455655550994745*^9}, { 3.4556555826727448`*^9, 3.4556556614427447`*^9}, {3.4556557699160776`*^9, 3.455655775668653*^9}, {3.455656392691349*^9, 3.4556564236014395`*^9}, { 3.4556564595780373`*^9, 3.455656503442423*^9}, {3.45565654581966*^9, 3.4556565544425225`*^9}, {3.455656814982574*^9, 3.4556568185919347`*^9}, 3.455656915633638*^9, {3.455656959127987*^9, 3.45565698616269*^9}, { 3.4556575331183805`*^9, 3.4556575487539434`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"IHaAlgebraRulesb", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"l", "[", RowBox[{"T", ",", "\[CapitalEpsilon]"}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{"\[CapitalEpsilon]", ",", "T"}], "]"}], "\[RuleDelayed]", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "k_"], ",", SubscriptBox["Q", "i_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["Q", "i_"], ",", SubscriptBox["P", "k_"]}], "]"}], "\[RuleDelayed]", "0"}]}], "\[IndentingNewLine]", "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.45565598836392*^9, 3.4556560061546993`*^9}, { 3.455656528701949*^9, 3.4556565337684555`*^9}, {3.455656656887766*^9, 3.4556566596910467`*^9}, {3.455657031783252*^9, 3.455657036052679*^9}, { 3.455657144358508*^9, 3.455657148204893*^9}, {3.455657277726844*^9, 3.4556572914532166`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"IHaAlgebraRulesb", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"l", "[", RowBox[{"T", ",", "\[CapitalEpsilon]"}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{"\[CapitalEpsilon]", ",", "T"}], "]"}], "\[RuleDelayed]", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "k_"], ",", SubscriptBox["Q", "i_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["Q", "i_"], ",", SubscriptBox["P", "k_"]}], "]"}], "\[RuleDelayed]", "0"}]}], "\[IndentingNewLine]", "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.45565598836392*^9, 3.4556560061546993`*^9}, { 3.455656528701949*^9, 3.4556565337684555`*^9}, {3.455656656887766*^9, 3.4556566596910467`*^9}, {3.455657031783252*^9, 3.455657036052679*^9}, { 3.455657144358508*^9, 3.455657148204893*^9}, {3.455657277726844*^9, 3.4556572914532166`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"IHaAlgebraRules", " ", "=", RowBox[{"genRules", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"{", RowBox[{ "IHaAlgebraRulesa", ",", "IHaAlgebraRulesb", ",", "HaAlgebraRulesa", ",", RowBox[{"ISOAlgebraRulesa", "//.", RowBox[{"{", RowBox[{"A", "\[RuleDelayed]", "F"}], "}"}]}], ",", RowBox[{"ISOAlgebraRulesa", "//.", RowBox[{"{", RowBox[{"A", "\[RuleDelayed]", "G"}], "}"}]}], ",", "OrthogonalAlgebraRulesa", ",", RowBox[{"AbelianAlgebraRulesa", "//.", RowBox[{"A", "\[RuleDelayed]", "F"}]}], ",", RowBox[{"AbelianAlgebraRulesa", "//.", RowBox[{"{", RowBox[{"A", "\[RuleDelayed]", "G"}], "}"}]}], ",", RowBox[{"AbelianAlgebraRulesa", "//.", RowBox[{"{", RowBox[{"A", "\[RuleDelayed]", "P"}], "}"}]}], ",", RowBox[{"AbelianAlgebraRulesa", "//.", RowBox[{"{", RowBox[{"A", "\[RuleDelayed]", "Q"}], "}"}]}]}], "}"}], "]"}], ",", RowBox[{"{", "generalRules", "}"}], ",", "IHaBasis", ",", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", " ", "l"}], "}"}], ",", RowBox[{"{", RowBox[{"i_", ",", "j_"}], "}"}], ",", RowBox[{"{", RowBox[{"k_", ",", " ", "l_"}], "}"}], ",", "D", ",", "C"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.453491024428406*^9, 3.4534910921351757`*^9}, 3.4534912288418446`*^9, {3.453491338736833*^9, 3.4534913398299427`*^9}, { 3.453491395379497*^9, 3.4534913960955687`*^9}, {3.453491658026759*^9, 3.45349166013297*^9}, {3.4556362202812157`*^9, 3.455636275056693*^9}, { 3.455636340468233*^9, 3.4556363413723235`*^9}, {3.455636381458332*^9, 3.455636409850171*^9}, 3.455637605408715*^9, {3.4556552906397448`*^9, 3.455655292095745*^9}, {3.455655559052745*^9, 3.4556555626797447`*^9}, 3.455655885087594*^9, 3.4556562292160034`*^9, {3.455656292552336*^9, 3.4556563428023605`*^9}, 3.4556571614522176`*^9, 3.455657382511321*^9, { 3.4556574338364534`*^9, 3.455657435934663*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["l", "iha"], "[", RowBox[{"A_", ",", "B_"}], "]"}], ":=", " ", RowBox[{ RowBox[{"l", "[", RowBox[{"A", ",", "B"}], "]"}], "//.", "IHaAlgebraRules"}]}]], "Input", CellChangeTimes->{{3.4281034785636935`*^9, 3.428103487176078*^9}, { 3.4281035197228775`*^9, 3.428103555834804*^9}, {3.428104383272549*^9, 3.4281043834127507`*^9}, {3.4291102830597935`*^9, 3.4291103035067472`*^9}, {3.4291113936420393`*^9, 3.429111417155146*^9}, { 3.429112330948675*^9, 3.4291123323308277`*^9}, {3.4522040579198527`*^9, 3.452204068434973*^9}, {3.452206346731002*^9, 3.4522063703850145`*^9}, { 3.45220804803736*^9, 3.4522080546869216`*^9}, {3.452347326225076*^9, 3.4523473317630396`*^9}, {3.45234939783279*^9, 3.4523494062649145`*^9}, { 3.453066409082573*^9, 3.4530664104044733`*^9}, {3.4534889930752907`*^9, 3.4534889933743205`*^9}, {3.453489269156896*^9, 3.4534892700269833`*^9}, 3.4534905608680544`*^9, 3.453490744023368*^9, {3.4534911774287043`*^9, 3.453491182510212*^9}, {3.45563633353354*^9, 3.455636337656952*^9}, { 3.455636394233609*^9, 3.4556364004522314`*^9}, {3.455657186358708*^9, 3.455657189281*^9}}] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ OverscriptBox["\[ScriptCapitalI]\[ScriptCapitalH]\[ScriptA]", "\[Hacek]"], "(", "n", ")"}], TraditionalForm]], "None"], " " }], "Section", CellChangeTimes->{{3.4281011894382477`*^9, 3.4281012112596254`*^9}, { 3.455636314879675*^9, 3.4556363169778843`*^9}, {3.4556374358847637`*^9, 3.455637447292905*^9}, {3.4556374987550507`*^9, 3.4556375087870536`*^9}, 3.4556576517912464`*^9, {3.4556577136384306`*^9, 3.455657721501217*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"HHaBasis", "[", RowBox[{"{", RowBox[{"i_", ",", "j_"}], "}"}], "]"}], ":=", RowBox[{"{", RowBox[{ SubscriptBox["J", RowBox[{"i", ",", "j"}]], ",", SubscriptBox["G", "i"], ",", " ", SubscriptBox["F", "i"], ",", "R", ",", " ", SubscriptBox["P", "i"], ",", SubscriptBox["Q", "i"], ",", "\[CapitalEpsilon]", ",", "T", ",", "\[CapitalIota]", ",", "M", ",", "A"}], "}"}]}]], "Input", CellChangeTimes->{{3.4281012253398714`*^9, 3.428101225480073*^9}, { 3.428101276503441*^9, 3.428101321187694*^9}, {3.4281013552266397`*^9, 3.4281013671137323`*^9}, 3.4281013984287615`*^9, {3.4281014351415515`*^9, 3.4281014528169675`*^9}, {3.4291096599252367`*^9, 3.429109727003697*^9}, 3.4291099804156656`*^9, {3.4291101247074633`*^9, 3.4291101659780416`*^9}, { 3.4292286527238073`*^9, 3.4292286559585233`*^9}, {3.4522030331162577`*^9, 3.452203090859288*^9}, {3.4522031254590397`*^9, 3.4522031267909555`*^9}, 3.452203923166086*^9, 3.4522039714154654`*^9, {3.452204754922093*^9, 3.4522047697834625`*^9}, {3.452206154885141*^9, 3.4522061651699295`*^9}, { 3.452207823534541*^9, 3.452207839207077*^9}, {3.4522089778844147`*^9, 3.452208981579728*^9}, {3.4523472332714157`*^9, 3.4523472417536125`*^9}, { 3.4523491005352974`*^9, 3.452349178136883*^9}, {3.4523492872637997`*^9, 3.4523493033569403`*^9}, {3.453488953824366*^9, 3.4534889755115347`*^9}, { 3.453489023920375*^9, 3.453489029642947*^9}, {3.4534891961765985`*^9, 3.4534892164626274`*^9}, 3.4534905382347913`*^9, 3.453490598178785*^9, { 3.453490835814546*^9, 3.4534908501479793`*^9}, {3.4534909119601603`*^9, 3.4534909448094444`*^9}, {3.4534911011040726`*^9, 3.4534911020671687`*^9}, 3.4534911887698383`*^9, {3.4556361382220106`*^9, 3.455636151255314*^9}, 3.4556363769408803`*^9, {3.455637528887063*^9, 3.4556375451786923`*^9}, { 3.455655812923378*^9, 3.455655814369523*^9}, {3.4556573379178624`*^9, 3.455657338981969*^9}, {3.4556577340014668`*^9, 3.455657745917658*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"HHaAlgebraRulesa", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["J", RowBox[{"i_", ",", "j_"}]], ",", SubscriptBox["Q", "k_"]}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["Q", "j"]}], SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]]}], "+", RowBox[{ SubscriptBox["Q", "i"], SubscriptBox["\[Delta]", RowBox[{"j", ",", "k"}]]}]}]}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["Q", "k_"], ",", SubscriptBox["J", RowBox[{"i_", ",", "j_"}]]}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{ SubscriptBox["Q", "j"], SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]]}], "-", RowBox[{ SubscriptBox["Q", "i"], SubscriptBox["\[Delta]", RowBox[{"j", ",", "k"}]]}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["J", RowBox[{"i_", ",", "j_"}]], ",", SubscriptBox["P", "k_"]}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["P", "j"]}], SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]]}], "+", RowBox[{ SubscriptBox["P", "i"], SubscriptBox["\[Delta]", RowBox[{"j", ",", "k"}]]}]}]}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "k_"], ",", SubscriptBox["J", RowBox[{"i_", ",", "j_"}]]}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{ SubscriptBox["P", "j"], SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]]}], "-", RowBox[{ SubscriptBox["P", "i"], SubscriptBox["\[Delta]", RowBox[{"j", ",", "k"}]]}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["G", "i_"], ",", SubscriptBox["Q", "k_"]}], "]"}], "\[RuleDelayed]", RowBox[{ SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]], "T"}]}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["Q", "k_"], ",", SubscriptBox["G", "i_"]}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{"-", SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]]}], "T"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["F", "i_"], ",", SubscriptBox["P", "k_"]}], "]"}], "\[RuleDelayed]", RowBox[{ SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]], "T"}]}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "k_"], ",", SubscriptBox["F", "i_"]}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{"-", SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]]}], "T"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["G", "i_"], ",", "\[CapitalEpsilon]"}], "]"}], "\[RuleDelayed]", SubscriptBox["P", "i"]}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{"\[CapitalEpsilon]", ",", SubscriptBox["G", "i_"]}], "]"}], "\[RuleDelayed]", RowBox[{"-", SubscriptBox["P", "i"]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["F", "i_"], ",", "\[CapitalEpsilon]"}], "]"}], "\[RuleDelayed]", RowBox[{"-", SubscriptBox["Q", "i"]}]}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{"\[CapitalEpsilon]", ",", SubscriptBox["F", "i_"]}], "]"}], "\[RuleDelayed]", SubscriptBox["Q", "i"]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{"\[CapitalEpsilon]", ",", "R"}], "]"}], "\[RuleDelayed]", RowBox[{"2", " ", "T"}]}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{"R", ",", "\[CapitalEpsilon]"}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{"-", "2"}], " ", "T"}]}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["G", "i_"], ",", SubscriptBox["P", "k_"]}], "]"}], "\[RuleDelayed]", RowBox[{ SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]], "M"}]}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "k_"], ",", SubscriptBox["G", "i_"]}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{"-", SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]]}], "M"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["F", "i_"], ",", SubscriptBox["Q", "k_"]}], "]"}], "\[RuleDelayed]", RowBox[{ SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]], "A"}]}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["Q", "k_"], ",", SubscriptBox["F", "i_"]}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{"-", SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]]}], "A"}]}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{"\[CapitalEpsilon]", ",", SubscriptBox["P", "i_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "i_"], ",", "\[CapitalEpsilon]"}], "]"}], "\[RuleDelayed]", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{"\[CapitalEpsilon]", ",", SubscriptBox["Q", "i_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["Q", "i_"], ",", "\[CapitalEpsilon]"}], "]"}], "\[RuleDelayed]", "0"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{"T", ",", SubscriptBox["P", "i_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "i_"], ",", "T"}], "]"}], "\[RuleDelayed]", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{"T", ",", SubscriptBox["Q", "i_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["Q", "i_"], ",", "T"}], "]"}], "\[RuleDelayed]", "0"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{"R", ",", SubscriptBox["P", "i_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "i_"], ",", "R"}], "]"}], "\[RuleDelayed]", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{"R", ",", SubscriptBox["Q", "i_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["Q", "i_"], ",", "R"}], "]"}], "\[RuleDelayed]", "0"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["J", RowBox[{"i_", ",", "j_"}]], ",", "T"}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{"T", ",", SubscriptBox["J", RowBox[{"i_", ",", "j_"}]]}], "]"}], "\[RuleDelayed]", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["J", RowBox[{"i_", ",", "j_"}]], ",", "\[CapitalEpsilon]"}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{"\[CapitalEpsilon]", ",", SubscriptBox["J", RowBox[{"i_", ",", "j_"}]]}], "]"}], "\[RuleDelayed]", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["G", "i_"], ",", "T"}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{"T", ",", SubscriptBox["G", "i_"]}], "]"}], "\[RuleDelayed]", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["F", "i_"], ",", "T"}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{"T", ",", SubscriptBox["F", "i_"]}], "]"}], "\[RuleDelayed]", "0"}]}], "\[IndentingNewLine]", "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.4291113088326263`*^9, 3.429111321710759*^9}, { 3.4291118535626483`*^9, 3.4291118990790057`*^9}, {3.4291119606187224`*^9, 3.4291119635930586`*^9}, 3.4291120198050084`*^9, {3.4291273268710012`*^9, 3.4291273302158113`*^9}, {3.4292305194452477`*^9, 3.429230520166299*^9}, 3.429230762229195*^9, {3.4522031153344817`*^9, 3.4522031627126083`*^9}, { 3.4522038071292334`*^9, 3.4522038689381104`*^9}, 3.452204579179387*^9, 3.452204611075251*^9, {3.4522047760424623`*^9, 3.452204784895192*^9}, { 3.4522062044664354`*^9, 3.452206314554734*^9}, 3.45220639199609*^9, 3.452206748268384*^9, {3.452207848450368*^9, 3.4522079888222127`*^9}, 3.452208683350896*^9, 3.452209340445752*^9, {3.452209575313475*^9, 3.452209608681456*^9}, {3.4522096458048368`*^9, 3.4522096481682353`*^9}, 3.452210270933728*^9, {3.4523470862299805`*^9, 3.452347103044158*^9}, { 3.452347245649214*^9, 3.4523472704949403`*^9}, {3.452349037274332*^9, 3.4523490394474573`*^9}, {3.452349091111747*^9, 3.452349093094598*^9}, { 3.4523491871899004`*^9, 3.4523492596140413`*^9}, {3.4523492907287817`*^9, 3.4523493112482877`*^9}, 3.452349435687222*^9, {3.453066357718715*^9, 3.453066360242344*^9}, {3.4534890048734703`*^9, 3.4534890126372466`*^9}, { 3.453489046715654*^9, 3.4534890481237946`*^9}, {3.4534890945284348`*^9, 3.4534891598419657`*^9}, {3.453489639466923*^9, 3.453489668157792*^9}, { 3.453489878476822*^9, 3.4534898822612004`*^9}, {3.453489989355909*^9, 3.4534899932062936`*^9}, {3.4534900350344763`*^9, 3.453490043355308*^9}, { 3.453490539530921*^9, 3.453490594418409*^9}, {3.4534907899779625`*^9, 3.4534907930322685`*^9}, 3.453490884433408*^9, {3.453491096838646*^9, 3.453491210633024*^9}, {3.455636154793668*^9, 3.455636216809869*^9}, 3.455636379006087*^9, 3.455637593298504*^9, {3.4556549346825533`*^9, 3.4556550949767447`*^9}, {3.4556551269497447`*^9, 3.4556553389247446`*^9}, {3.455655372427745*^9, 3.455655550994745*^9}, { 3.4556555826727448`*^9, 3.4556556614427447`*^9}, {3.4556557699160776`*^9, 3.455655775668653*^9}, {3.455656392691349*^9, 3.4556564236014395`*^9}, { 3.4556564595780373`*^9, 3.455656503442423*^9}, {3.45565654581966*^9, 3.4556565544425225`*^9}, {3.455656814982574*^9, 3.4556568185919347`*^9}, 3.455656915633638*^9, {3.455656959127987*^9, 3.45565698616269*^9}, { 3.4556575331183805`*^9, 3.4556575487539434`*^9}, {3.4556577546215286`*^9, 3.4556577928743534`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"HHaAlgebraRulesb", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"l", "[", RowBox[{"T", ",", "\[CapitalEpsilon]"}], "]"}], "\[RuleDelayed]", "\[CapitalIota]"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{"\[CapitalEpsilon]", ",", "T"}], "]"}], "\[RuleDelayed]", RowBox[{"-", "\[CapitalIota]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "k_"], ",", SubscriptBox["Q", "i_"]}], "]"}], "\[RuleDelayed]", RowBox[{ SubscriptBox["\[Delta]", RowBox[{"k", ",", "i"}]], "\[CapitalIota]"}]}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["Q", "i_"], ",", SubscriptBox["P", "k_"]}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{"-", SubscriptBox["\[Delta]", RowBox[{"k", ",", "i"}]]}], "\[CapitalIota]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{"A", ",", "Z__"}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{"Z__", ",", "A"}], "]"}], "\[RuleDelayed]", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{"M", ",", "Z__"}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{"Z__", ",", "M"}], "]"}], "\[RuleDelayed]", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{"\[CapitalIota]", ",", "Z__"}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{"Z__", ",", "\[CapitalIota]"}], "]"}], "\[RuleDelayed]", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{"A", ",", SubscriptBox["Z_", RowBox[{" ", "i_"}]]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["Z_", StyleBox[ RowBox[{" ", "i_"}], FontSlant->"Italic"]], ",", "A"}], "]"}], "\[RuleDelayed]", "0"}]}], "\[IndentingNewLine]", "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.45565598836392*^9, 3.4556560061546993`*^9}, { 3.455656528701949*^9, 3.4556565337684555`*^9}, {3.455656656887766*^9, 3.4556566596910467`*^9}, {3.455657031783252*^9, 3.455657036052679*^9}, { 3.455657144358508*^9, 3.455657148204893*^9}, {3.455657277726844*^9, 3.4556572914532166`*^9}, {3.45565782764283*^9, 3.455657940048069*^9}, { 3.4556580402180853`*^9, 3.455658120134076*^9}, {3.4556581648735495`*^9, 3.4556581794670086`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"HHaAlgebraRules", " ", "=", RowBox[{"genRules", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"{", RowBox[{ "HHaAlgebraRulesa", ",", "HHaAlgebraRulesb", ",", "HaAlgebraRulesa", ",", RowBox[{"ISOAlgebraRulesa", "//.", RowBox[{"{", RowBox[{"A", "\[RuleDelayed]", "F"}], "}"}]}], ",", RowBox[{"ISOAlgebraRulesa", "//.", RowBox[{"{", RowBox[{"A", "\[RuleDelayed]", "G"}], "}"}]}], ",", "OrthogonalAlgebraRulesa", ",", RowBox[{"AbelianAlgebraRulesa", "//.", RowBox[{"A", "\[RuleDelayed]", "F"}]}], ",", RowBox[{"AbelianAlgebraRulesa", "//.", RowBox[{"{", RowBox[{"A", "\[RuleDelayed]", "G"}], "}"}]}], ",", RowBox[{"AbelianAlgebraRulesa", "//.", RowBox[{"{", RowBox[{"A", "\[RuleDelayed]", "P"}], "}"}]}], ",", RowBox[{"AbelianAlgebraRulesa", "//.", RowBox[{"{", RowBox[{"A", "\[RuleDelayed]", "Q"}], "}"}]}]}], "}"}], "]"}], ",", RowBox[{"{", "generalRules", "}"}], ",", "HHaBasis", ",", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", " ", "l"}], "}"}], ",", RowBox[{"{", RowBox[{"i_", ",", "j_"}], "}"}], ",", RowBox[{"{", RowBox[{"k_", ",", " ", "l_"}], "}"}], ",", "D", ",", "C"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.453491024428406*^9, 3.4534910921351757`*^9}, 3.4534912288418446`*^9, {3.453491338736833*^9, 3.4534913398299427`*^9}, { 3.453491395379497*^9, 3.4534913960955687`*^9}, {3.453491658026759*^9, 3.45349166013297*^9}, {3.4556362202812157`*^9, 3.455636275056693*^9}, { 3.455636340468233*^9, 3.4556363413723235`*^9}, {3.455636381458332*^9, 3.455636409850171*^9}, 3.455637605408715*^9, {3.4556552906397448`*^9, 3.455655292095745*^9}, {3.455655559052745*^9, 3.4556555626797447`*^9}, 3.455655885087594*^9, 3.4556562292160034`*^9, {3.455656292552336*^9, 3.4556563428023605`*^9}, 3.4556571614522176`*^9, 3.455657382511321*^9, { 3.4556574338364534`*^9, 3.455657435934663*^9}, {3.4556579312511897`*^9, 3.4556579466867332`*^9}, 3.4556582245475163`*^9}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["l", "hha"], "[", RowBox[{"A_", ",", "B_"}], "]"}], ":=", " ", RowBox[{ RowBox[{"l", "[", RowBox[{"A", ",", "B"}], "]"}], "//.", "HHaAlgebraRules"}]}]], "Input", CellChangeTimes->{{3.4281034785636935`*^9, 3.428103487176078*^9}, { 3.4281035197228775`*^9, 3.428103555834804*^9}, {3.428104383272549*^9, 3.4281043834127507`*^9}, {3.4291102830597935`*^9, 3.4291103035067472`*^9}, {3.4291113936420393`*^9, 3.429111417155146*^9}, { 3.429112330948675*^9, 3.4291123323308277`*^9}, {3.4522040579198527`*^9, 3.452204068434973*^9}, {3.452206346731002*^9, 3.4522063703850145`*^9}, { 3.45220804803736*^9, 3.4522080546869216`*^9}, {3.452347326225076*^9, 3.4523473317630396`*^9}, {3.45234939783279*^9, 3.4523494062649145`*^9}, { 3.453066409082573*^9, 3.4530664104044733`*^9}, {3.4534889930752907`*^9, 3.4534889933743205`*^9}, {3.453489269156896*^9, 3.4534892700269833`*^9}, 3.4534905608680544`*^9, 3.453490744023368*^9, {3.4534911774287043`*^9, 3.453491182510212*^9}, {3.45563633353354*^9, 3.455636337656952*^9}, { 3.455636394233609*^9, 3.4556364004522314`*^9}, {3.455657186358708*^9, 3.455657189281*^9}, {3.455657954142479*^9, 3.4556579591049747`*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["\[ScriptCapitalL]a", "Section", CellChangeTimes->{{3.4281011894382477`*^9, 3.4281012112596254`*^9}, { 3.4291092659052315`*^9, 3.429109267137384*^9}, {3.4530693652032657`*^9, 3.453069382558221*^9}}], Cell[TextData[{ "\nAlgebra for ", Cell[BoxData[ FormBox[ RowBox[{"\[ScriptCapitalO]a", "(", RowBox[{"1", ",", "n"}], ")"}], TraditionalForm]]], ", ", Cell[BoxData[ FormBox[ RowBox[{"\[ScriptCapitalL]a", "(", RowBox[{"1", ",", "n"}], ")"}], TraditionalForm]]] }], "TextNoIndent", CellChangeTimes->{{3.4522059142691517`*^9, 3.4522060032170525`*^9}, { 3.452206042553616*^9, 3.452206115838995*^9}, {3.452351220346341*^9, 3.452351230060309*^9}, {3.453069370250523*^9, 3.4530693979303246`*^9}}], Cell[CellGroupData[{ Cell["Unitary algebra in 4 real form", "Subsection", CellChangeTimes->{{3.4099583378836594`*^9, 3.409958347877432*^9}, 3.453067901929181*^9, {3.4530687623864574`*^9, 3.453068765150432*^9}, { 3.4530688675877295`*^9, 3.453068879815312*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"LaReal4basis", "[", RowBox[{"{", RowBox[{"a_", ",", "b_"}], "}"}], "]"}], ":=", RowBox[{"{", RowBox[{ SubscriptBox["M", RowBox[{"a", ",", "b"}]], ",", SubscriptBox["L", RowBox[{"a", ",", "b"}]]}], "}"}]}]], "Input", CellChangeTimes->{{3.4281012253398714`*^9, 3.428101225480073*^9}, { 3.428101276503441*^9, 3.428101321187694*^9}, {3.4281013552266397`*^9, 3.4281013671137323`*^9}, 3.4281013984287615`*^9, {3.4281014351415515`*^9, 3.4281014528169675`*^9}, {3.4291096599252367`*^9, 3.429109727003697*^9}, 3.4291099804156656`*^9, {3.4291101247074633`*^9, 3.4291101376664853`*^9}, { 3.429230957423764*^9, 3.4292309599173994`*^9}, {3.4530694749110174`*^9, 3.453069477795165*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"LaAlgebraReal4rulesa", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["L", RowBox[{"a_", ",", "b_"}]], ",", SubscriptBox["L", RowBox[{"c_", ",", "d_"}]]}], "]"}], "\[RuleDelayed]", 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"}]]}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["L", RowBox[{"a_", ",", "b_"}]], ",", SubscriptBox["M", RowBox[{"c_", ",", "d_"}]]}], "]"}], "\[RuleDelayed]", 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"}]]}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"a_", ",", "b_"}]], ",", SubscriptBox["L", RowBox[{"c_", ",", "d_"}]]}], "]"}], "\[RuleDelayed]", 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"}]]}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"a_", ",", "b_"}]], ",", SubscriptBox["M", RowBox[{"c_", ",", "d_"}]]}], "]"}], "\[RuleDelayed]", "0"}]}], "\[IndentingNewLine]", "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.4291098368248973`*^9, 3.4291098695929956`*^9}, 3.429109952544756*^9, {3.42911080509908*^9, 3.429110806811577*^9}, { 3.4291108433548517`*^9, 3.429110869573075*^9}, {3.4291119061593275`*^9, 3.4291119379857264`*^9}, 3.4291119974223776`*^9, 3.4291122069077806`*^9, { 3.429112272453337*^9, 3.429112286904405*^9}, {3.4292309742382774`*^9, 3.4292309747790656`*^9}, 3.4292311898520474`*^9, {3.453066470651104*^9, 3.453066474947282*^9}, 3.453069426671653*^9, {3.45306948154055*^9, 3.4530694816707373`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"LaReal4SymmetryRules", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["L", RowBox[{"i_", ",", "j_"}]], "\[RuleDelayed]", RowBox[{ RowBox[{"-", SubscriptBox["L", RowBox[{"j", ",", "i"}]]}], "/;", " ", RowBox[{"!", RowBox[{"OrderedQ", "[", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}], "]"}]}]}]}], ",", "\[IndentingNewLine]", RowBox[{ SubscriptBox["M", RowBox[{"i_", ",", "j_"}]], "\[RuleDelayed]", RowBox[{ SubscriptBox["M", RowBox[{"j", ",", "i"}]], "/;", " ", RowBox[{"!", RowBox[{"OrderedQ", "[", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}], "]"}]}]}]}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"A__", "\[CenterDot]", SubscriptBox["L", RowBox[{"i_", ",", "j_"}]], "\[CenterDot]", "B__"}], "\[RuleDelayed]", RowBox[{ RowBox[{ RowBox[{"-", "A"}], "\[CenterDot]", SubscriptBox["L", RowBox[{"j", ",", "i"}]], "\[CenterDot]", "B"}], "/;", " ", RowBox[{"!", RowBox[{"OrderedQ", "[", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}], "]"}]}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"A__", "\[CenterDot]", SubscriptBox["M", RowBox[{"i_", ",", "j_"}]], "\[CenterDot]", "B__"}], "\[RuleDelayed]", RowBox[{ RowBox[{"A", "\[CenterDot]", SubscriptBox["M", RowBox[{"j", ",", "i"}]], "\[CenterDot]", "B"}], " ", "/;", " ", RowBox[{"!", RowBox[{"OrderedQ", "[", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}], "]"}]}]}]}]}], "\[IndentingNewLine]", "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.4291955062449293`*^9, 3.429195670991824*^9}, { 3.429195722736229*^9, 3.4291957319695053`*^9}, 3.4291957988256397`*^9, { 3.4291958422280493`*^9, 3.429195855176669*^9}, {3.4291959795755453`*^9, 3.4291959987731504`*^9}, {3.4530694860670595`*^9, 3.4530694861772175`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"LaALgebraReal4rules", " ", "=", RowBox[{"genRules", "[", RowBox[{"LaAlgebraReal4rulesa", ",", RowBox[{"{", RowBox[{"UnitaryReal4SymmetryRules", ",", "generalRules"}], "}"}], ",", "LaReal4basis", ",", RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}], ",", RowBox[{"{", RowBox[{"c", ",", "d"}], "}"}], ",", RowBox[{"{", RowBox[{"a_", ",", "b_"}], "}"}], ",", RowBox[{"{", RowBox[{"c_", ",", "d_"}], "}"}], ",", "A", ",", "B"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.428103356327927*^9, 3.428103372651399*^9}, { 3.4281034109364505`*^9, 3.428103419438676*^9}, {3.4281034524060807`*^9, 3.428103464203044*^9}, {3.4281043509060087`*^9, 3.428104352928917*^9}, { 3.429110273475832*^9, 3.4291102765303154`*^9}, {3.429111377529352*^9, 3.4291114267085977`*^9}, {3.4291119855350475`*^9, 3.4291120054741163`*^9}, {3.429112120241432*^9, 3.429112120842308*^9}, 3.429112291380931*^9, {3.429196004271056*^9, 3.4291960054327264`*^9}, { 3.4292310464435434`*^9, 3.4292310723913717`*^9}, {3.4292311111078157`*^9, 3.4292311159849253`*^9}, 3.4292311740095177`*^9, {3.452350637545409*^9, 3.452350638016086*^9}, {3.4523509151586328`*^9, 3.4523509153689585`*^9}, { 3.4530664321357217`*^9, 3.453066436822461*^9}, 3.4530667009722896`*^9, { 3.453069491775267*^9, 3.453069501228861*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["l", "la4"], "[", RowBox[{"A_", ",", "B_"}], "]"}], ":=", " ", RowBox[{ RowBox[{"l", "[", RowBox[{"A", ",", "B"}], "]"}], "//.", "LaALgebraReal4rules", " "}]}]], "Input", CellChangeTimes->{{3.4281034785636935`*^9, 3.428103487176078*^9}, { 3.4281035197228775`*^9, 3.428103555834804*^9}, {3.428104383272549*^9, 3.4281043834127507`*^9}, {3.4291102830597935`*^9, 3.4291103035067472`*^9}, { 3.4291113936420393`*^9, 3.4291114298930817`*^9}, {3.4291123252503085`*^9, 3.429112327363389*^9}, {3.4530664227121716`*^9, 3.453066426387456*^9}, { 3.453069457415861*^9, 3.4530694607606707`*^9}, {3.4530695053347645`*^9, 3.4530695055751104`*^9}}] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Oscillator Algebra", "Section", CellChangeTimes->{{3.4281011894382477`*^9, 3.4281012112596254`*^9}, { 3.428104597220191*^9, 3.428104601035677*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Oscillator8basis", "[", RowBox[{"{", "\[Alpha]_", "}"}], "]"}], ":=", RowBox[{"{", RowBox[{ SubscriptBox["A", "\[Alpha]"], ",", "U", ",", "\[CapitalIota]"}], "}"}]}]], "Input", CellChangeTimes->{{3.4281012253398714`*^9, 3.428101225480073*^9}, { 3.428101276503441*^9, 3.428101321187694*^9}, {3.4281013552266397`*^9, 3.4281013671137323`*^9}, 3.4281013984287615`*^9, {3.4281014351415515`*^9, 3.4281014528169675`*^9}, {3.4281046049713364`*^9, 3.428104606263194*^9}, { 3.4281047075588503`*^9, 3.4281047082198005`*^9}, 3.4291963556963806`*^9, { 3.453067772442989*^9, 3.453067776148317*^9}}], Cell[CellGroupData[{ Cell["Oscillator algebra in 3 form", "Subsection", CellChangeTimes->{{3.4099583378836594`*^9, 3.409958347877432*^9}, 3.453067901929181*^9, {3.4530687623864574`*^9, 3.453068765150432*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Oscillator3basis", "[", RowBox[{"{", "i_", "}"}], "]"}], ":=", RowBox[{"{", RowBox[{ SubscriptBox["P", "i"], ",", SubscriptBox["Q", "i"], ",", "U", ",", "\[CapitalIota]"}], "}"}]}]], "Input", CellChangeTimes->{{3.4281012253398714`*^9, 3.428101225480073*^9}, { 3.428101276503441*^9, 3.428101321187694*^9}, {3.4281013552266397`*^9, 3.4281013671137323`*^9}, 3.4281013984287615`*^9, {3.4281014559915323`*^9, 3.4281014569929724`*^9}, {3.4281046144049015`*^9, 3.4281046157969027`*^9}, {3.428104719205597*^9, 3.428104719465972*^9}, 3.429196352291485*^9, {3.4530677787019887`*^9, 3.4530677810653872`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"OscillatorAlgebra3rulesa", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"l", "[", RowBox[{"U", ",", SubscriptBox["P", "k_"]}], "]"}], "\[RuleDelayed]", SubscriptBox["Q", "k"]}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "k_"], ",", "U"}], "]"}], "\[RuleDelayed]", RowBox[{"-", SubscriptBox["Q", "k"]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{"U", ",", SubscriptBox["Q", "k_"]}], "]"}], "\[RuleDelayed]", RowBox[{"-", SubscriptBox["P", "k"]}]}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["Q", "k_"], ",", "U"}], "]"}], "\[RuleDelayed]", SubscriptBox["P", "k"]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{"U", ",", "\[CapitalIota]"}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{"\[CapitalIota]", ",", "U"}], "]"}], "\[RuleDelayed]", "0"}]}], "\[IndentingNewLine]", "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.428101493655691*^9, 3.4281015579681673`*^9}, { 3.428102808079585*^9, 3.428102992725092*^9}, {3.4281030714783335`*^9, 3.4281030994685817`*^9}, {3.428103426398684*^9, 3.4281034292427735`*^9}, { 3.428104343405223*^9, 3.4281043455883617`*^9}, {3.4281046192819138`*^9, 3.428104621455039*^9}, {3.4281046928276677`*^9, 3.4281047878342805`*^9}, 3.428104839819031*^9, {3.4281052731321044`*^9, 3.4281052760462947`*^9}, { 3.428105321361455*^9, 3.428105345255813*^9}, 3.4291963617273035`*^9, { 3.4291964139247603`*^9, 3.4291965022967834`*^9}, {3.4291967933759704`*^9, 3.429196854886258*^9}, {3.429196901094084*^9, 3.4291969091859612`*^9}, { 3.429196943245956*^9, 3.429196943906926*^9}, 3.4291977298679795`*^9, 3.429274072000989*^9}], Cell[BoxData[ RowBox[{ RowBox[{"OscillatorALgebra3rules", " ", "=", RowBox[{"genRules", "[", RowBox[{ RowBox[{"{", RowBox[{ "OscillatorAlgebra3rulesa", ",", "WeylHeisenbergAlgebra3rulesa"}], "}"}], ",", RowBox[{"{", "generalRules", "}"}], ",", "Oscillator3basis", ",", RowBox[{"{", "i", "}"}], ",", RowBox[{"{", "j", "}"}], ",", RowBox[{"{", "i_", "}"}], ",", RowBox[{"{", "j_", "}"}], ",", "A", ",", "B"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.429227589413638*^9, 3.4292275901146603`*^9}, { 3.42922766522416*^9, 3.4292276971306753`*^9}, {3.4292277976271863`*^9, 3.4292277988289385`*^9}, {3.4292289196629705`*^9, 3.4292290081319466`*^9}, {3.429229143208872*^9, 3.4292291441302147`*^9}, { 3.429229266678875*^9, 3.429229268751897*^9}, {3.4292293099820056`*^9, 3.4292293216990876`*^9}, 3.4292294659493856`*^9, 3.4292295217607517`*^9, { 3.4292303451611633`*^9, 3.4292303709287295`*^9}, 3.429230446048244*^9, { 3.4292309880083523`*^9, 3.4292309970415215`*^9}, {3.429274055216854*^9, 3.429274134270528*^9}, 3.429311528195773*^9, {3.4293115779673405`*^9, 3.4293116072394323`*^9}, {3.453067612492992*^9, 3.4530677000789347`*^9}}], Cell[BoxData[ RowBox[{"Oscillator3rules", ";"}]], "Input", CellChangeTimes->{3.4293701257513523`*^9}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["l", "os3"], "[", RowBox[{"A_", ",", "B_"}], "]"}], ":=", " ", RowBox[{ RowBox[{"l", "[", RowBox[{"A", ",", "B"}], "]"}], "//.", "OscillatorALgebra3rules", " "}]}]], "Input", CellChangeTimes->{{3.4281034785636935`*^9, 3.428103487176078*^9}, { 3.4281035197228775`*^9, 3.428103555834804*^9}, {3.428104383272549*^9, 3.4281043834127507`*^9}, {3.4281046564253235`*^9, 3.428104669434029*^9}, { 3.4291965227297373`*^9, 3.4291965265973315`*^9}, 3.429196564128067*^9, 3.453067826200288*^9}] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Quaplectic Algebra Rules", "Section", CellChangeTimes->{{3.409958280734903*^9, 3.4099582920605106`*^9}, { 3.4291126228333054`*^9, 3.4291126232339296`*^9}}], Cell[CellGroupData[{ Cell["Quaplectic algebra in 3 form", "Subsection", CellChangeTimes->{{3.4099583378836594`*^9, 3.409958347877432*^9}, 3.453067901929181*^9}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"quaplecticReal3Basis", "[", RowBox[{"{", RowBox[{"i_", ",", "j_"}], "}"}], "]"}], "=", RowBox[{"{", RowBox[{ SubscriptBox["J", RowBox[{"i", ",", "j"}]], ",", SubscriptBox["M", RowBox[{"i", ",", "j"}]], ",", SubscriptBox["Q", "i"], ",", SubscriptBox["P", "j"], ",", "\[CapitalIota]"}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.4291098873490586`*^9, 3.429109903192314*^9}, 3.42911039066164*^9, {3.4291126583458323`*^9, 3.4291127154090233`*^9}, { 3.4294861945958595`*^9, 3.4294861986217284`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"quaplecticReal3Basis", "[", RowBox[{"{", RowBox[{"i", ",", " ", "j"}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.4530685950157905`*^9, 3.453068596558008*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ SubscriptBox["J", RowBox[{"i", ",", "j"}]], ",", SubscriptBox["M", RowBox[{"i", ",", "j"}]], ",", SubscriptBox["Q", "i"], ",", SubscriptBox["P", "j"], ",", "\[CapitalIota]"}], "}"}]], "Output", CellChangeTimes->{3.45306859769965*^9, 3.453068687308501*^9, 3.453068972198152*^9, 3.4532422045406213`*^9, 3.453242320324621*^9, 3.4535532811068664`*^9, 3.4535541202737794`*^9, 3.4535541968874397`*^9, 3.4535863413900003`*^9, 3.453645047471402*^9, 3.4537628849119997`*^9, 3.453989277003154*^9, 3.4555772859620905`*^9, 3.4556176955858564`*^9, 3.4556364737325583`*^9, 3.4556583650005603`*^9, 3.460157916388*^9, 3.460158016547*^9, 3.460246051000771*^9, 3.46028400185594*^9, 3.460310547121234*^9, 3.463314351265862*^9, 3.4633158300506825`*^9, 3.464303436826*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"QuaplecticAlgebra3Rulesa", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["J", RowBox[{"i_", ",", "j_"}]], ",", SubscriptBox["Q", "k_"]}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["Q", "j"]}], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]]}], "+", RowBox[{ SubscriptBox["Q", "i"], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "k"}]]}]}]}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["J", RowBox[{"i_", ",", "j_"}]], ",", SubscriptBox["P", "k_"]}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["P", "j"]}], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]]}], "+", RowBox[{ SubscriptBox["P", "i"], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "k"}]]}]}]}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"i_", ",", "j_"}]], ",", SubscriptBox["J", RowBox[{"k_", ",", "l_"}]]}], "]"}], "\[RuleDelayed]", 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"}]]}]}]}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"i_", ",", "j_"}]], ",", SubscriptBox["M", RowBox[{"k_", ",", "l_"}]]}], "]"}], "\[RuleDelayed]", 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["M", RowBox[{"i_", ",", "j_"}]], ",", SubscriptBox["Q", "k_"]}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{ SubscriptBox["P", "j"], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]]}], "+", RowBox[{ SubscriptBox["P", "i"], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "k"}]]}]}]}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"i_", ",", "j_"}]], ",", SubscriptBox["P", "k_"]}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["Q", "j"]}], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]]}], "-", RowBox[{ SubscriptBox["Q", "i"], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "k"}]]}]}]}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["Q", "i_"], ",", SubscriptBox["J", RowBox[{"k_", ",", "l_"}]]}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{ SubscriptBox["Q", "l"], " ", SubscriptBox["\[Delta]", RowBox[{"k", ",", "i"}]]}], "-", RowBox[{ SubscriptBox["Q", "k"], " ", SubscriptBox["\[Delta]", RowBox[{"l", ",", "i"}]]}]}]}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["Q", "i_"], ",", SubscriptBox["M", RowBox[{"k_", ",", "l_"}]]}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["P", "l"]}], " ", SubscriptBox["\[Delta]", RowBox[{"k", ",", "i"}]]}], "-", RowBox[{ SubscriptBox["P", "k"], " ", SubscriptBox["\[Delta]", RowBox[{"l", ",", "i"}]]}]}]}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "i_"], ",", SubscriptBox["J", RowBox[{"k_", ",", "l_"}]]}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{ SubscriptBox["P", "l"], " ", SubscriptBox["\[Delta]", RowBox[{"k", ",", "i"}]]}], "-", RowBox[{ SubscriptBox["P", "k"], " ", SubscriptBox["\[Delta]", RowBox[{"l", ",", "i"}]]}]}]}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["P", "k_"], ",", SubscriptBox["M", RowBox[{"i_", ",", "j_"}]]}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{ SubscriptBox["Q", "j"], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]]}], "+", RowBox[{ SubscriptBox["Q", "i"], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "k"}]]}]}]}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{"\[CapitalIota]", ",", SubscriptBox["J", RowBox[{"k_", ",", "l_"}]]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["J", RowBox[{"i_", ",", "j_"}]], ",", "\[CapitalIota]"}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{"\[CapitalIota]", ",", SubscriptBox["M", RowBox[{"k_", ",", "l_"}]]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"i_", ",", "j_"}]], ",", "\[CapitalIota]"}], "]"}], "\[RuleDelayed]", "0"}]}], "\[IndentingNewLine]", "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.429112877415207*^9, 3.429112882051967*^9}, 3.4291961714013777`*^9, {3.429485712472986*^9, 3.4294857181913223`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"QuaplecticAlgebra3Rules", " ", "=", RowBox[{"genRules", "[", RowBox[{ RowBox[{"{", RowBox[{ "QuaplecticAlgebra3Rulesa", ",", "WeylHeisenbergAlgebra3rules", ",", "UnitaryAlgebraReal3rules"}], "}"}], ",", RowBox[{"{", RowBox[{"UnitaryReal3SymmetryRules", ",", "generalRules"}], "}"}], ",", "quaplecticReal3Basis", ",", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "l"}], "}"}], ",", RowBox[{"{", RowBox[{"i_", ",", "j_"}], "}"}], ",", RowBox[{"{", RowBox[{"k_", ",", "l_"}], "}"}], ",", "A", ",", "B"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.429227589413638*^9, 3.4292275901146603`*^9}, { 3.42922766522416*^9, 3.4292276971306753`*^9}, {3.4292277976271863`*^9, 3.4292277988289385`*^9}, {3.4292289196629705`*^9, 3.4292290081319466`*^9}, {3.429229143208872*^9, 3.4292291441302147`*^9}, { 3.429229266678875*^9, 3.429229268751897*^9}, {3.4292293099820056`*^9, 3.4292293216990876`*^9}, 3.4292294659493856`*^9, 3.4292295217607517`*^9, { 3.4292303451611633`*^9, 3.4292303709287295`*^9}, 3.429230446048244*^9, { 3.4292309880083523`*^9, 3.4292309970415215`*^9}, {3.429274055216854*^9, 3.429274134270528*^9}, 3.429311528195773*^9, {3.4293115779673405`*^9, 3.4293116072394323`*^9}, {3.429486126095995*^9, 3.4294861866042085`*^9}, { 3.429486262605008*^9, 3.429486264357563*^9}, 3.429486341980727*^9, { 3.453068037664358*^9, 3.4530680598662834`*^9}, 3.453068406314451*^9, { 3.453068677224*^9, 3.4530686775144176`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"SimplifyQuaplecticAlgebra3", "[", "A_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"A", "//.", "lieRules"}], "//.", "QuaplecticAlgebra3Rules"}], "//.", "generalRules"}], "//.", "orderedRules"}], "//.", "QuaplecticAlgebra3Rules"}], "//.", "generalRules"}], "//.", "orderedRules"}], "//.", "QuaplecticAlgebra3Rules"}], "//.", "generalRules"}]}]], "Input", CellChangeTimes->{ 3.403128394427578*^9, {3.409958434536857*^9, 3.4099584669014587`*^9}, { 3.409958522668311*^9, 3.4099585397618675`*^9}, {3.429112400296689*^9, 3.42911246432642*^9}, {3.429112945494458*^9, 3.4291129581028395`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["l", "q3"], "[", RowBox[{"a_", ",", "b_"}], "]"}], " ", ":=", " ", RowBox[{"SimplifyQuaplecticAlgebra3", "[", RowBox[{"l", "[", RowBox[{"a", ",", "b"}], "]"}], "]"}]}]], "Input", CellChangeTimes->{ 3.403128394427578*^9, {3.409958419936737*^9, 3.4099584294498467`*^9}, { 3.4291124465587454`*^9, 3.429112471437496*^9}, {3.429112973014579*^9, 3.429112979624215*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Quaplectic algebra in complex 3 form", "Subsection", CellChangeTimes->{{3.4099583378836594`*^9, 3.409958347877432*^9}, 3.453067901929181*^9, {3.4601574328789997`*^9, 3.4601574343789997`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"quaplecticComplex3Basis", "[", RowBox[{"{", RowBox[{"i_", ",", "j_"}], "}"}], "]"}], "=", RowBox[{"{", RowBox[{"R", ",", SubsuperscriptBox["A", "i", "+"], ",", SubsuperscriptBox["A", "i", "-"], ",", "\[CapitalIota]"}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.4291098873490586`*^9, 3.429109903192314*^9}, 3.42911039066164*^9, {3.4291126583458323`*^9, 3.4291127154090233`*^9}, { 3.4294861945958595`*^9, 3.4294861986217284`*^9}, {3.460157451626*^9, 3.4601575009449997`*^9}, 3.46015832456*^9, {3.460158695084*^9, 3.460158696179*^9}, {3.46015879599*^9, 3.460158797557*^9}, { 3.460159878508*^9, 3.460159879421*^9}, 3.4601600166689997`*^9}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"quaplecticComplex3Basis", "[", RowBox[{"{", RowBox[{"i_", ",", "j_"}], "}"}], "]"}], "=", RowBox[{"{", RowBox[{"R", ",", " ", SubscriptBox["Z", RowBox[{"i", ",", "j"}]], ",", SubsuperscriptBox["A", "i", "+"], ",", SubsuperscriptBox["A", "i", "-"], ",", "\[CapitalIota]"}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.4291098873490586`*^9, 3.429109903192314*^9}, 3.42911039066164*^9, {3.4291126583458323`*^9, 3.4291127154090233`*^9}, { 3.4294861945958595`*^9, 3.4294861986217284`*^9}, {3.460157451626*^9, 3.4601575009449997`*^9}, 3.460283703722129*^9, {3.4603114617976923`*^9, 3.4603114624517574`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"QuaplecticAlgebraComplex3Rulesa", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["Z", RowBox[{"i_", ",", "j_"}]], ",", SubsuperscriptBox["A", "k_", "+"]}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]], SubsuperscriptBox["A", "j", "+"]}]}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubsuperscriptBox["A", "k_", "+"], ",", SubscriptBox["Z", RowBox[{"i_", ",", "j_"}]]}], "]"}], "\[RuleDelayed]", RowBox[{"\[ImaginaryI]", " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]], SubsuperscriptBox["A", "j", "+"]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["Z", RowBox[{"i_", ",", "j_"}]], ",", SubsuperscriptBox["A", "k_", "-"]}], "]"}], "\[RuleDelayed]", RowBox[{"\[ImaginaryI]", " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "k"}]], SubsuperscriptBox["A", "i", "-"]}]}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubsuperscriptBox["A", "k_", "-"], ",", SubscriptBox["Z", RowBox[{"i_", ",", "j_"}]]}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "k"}]], SubsuperscriptBox["A", "i", "-"]}]}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{"\[CapitalIota]", ",", SubscriptBox["Z", RowBox[{"i_", ",", "j_"}]]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["Z", RowBox[{"i_", ",", "j_"}]], ",", "\[CapitalIota]"}], "]"}], "\[RuleDelayed]", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{"R", ",", SubscriptBox["Z", RowBox[{"i_", ",", "j_"}]]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["Z", RowBox[{"i_", ",", "j_"}]], ",", "R"}], "]"}], "\[RuleDelayed]", "0"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{"R", ",", SubsuperscriptBox["A", "j_", "-"]}], "]"}], "\[RuleDelayed]", RowBox[{"\[ImaginaryI]", " ", SubsuperscriptBox["A", "j", "-"]}]}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{"R", ",", SubsuperscriptBox["A", "j_", "+"]}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SubsuperscriptBox["A", "j", "+"]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubsuperscriptBox["A", "j_", "-"], ",", "R"}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SubsuperscriptBox["A", "j", "-"]}]}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubsuperscriptBox["A", "j_", "+"], ",", "R"}], "]"}], "\[RuleDelayed]", RowBox[{"\[ImaginaryI]", " ", SubsuperscriptBox["A", "j", "+"]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{"\[CapitalIota]", ",", "R"}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{"R", ",", "\[CapitalIota]"}], "]"}], "\[RuleDelayed]", "0"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.429112877415207*^9, 3.429112882051967*^9}, 3.4291961714013777`*^9, {3.429485712472986*^9, 3.4294857181913223`*^9}, { 3.460157537604*^9, 3.460157587701*^9}, {3.46015763076*^9, 3.460157631099*^9}, {3.460157687385*^9, 3.460157723704*^9}, { 3.460158368875*^9, 3.460158427863*^9}, {3.4601585885889997`*^9, 3.4601587579049997`*^9}, {3.460158803153*^9, 3.460158816609*^9}, { 3.460159125149*^9, 3.460159131649*^9}, {3.4601600198710003`*^9, 3.460160032051*^9}, 3.460283240437462*^9, {3.4602834197212305`*^9, 3.4602834723960285`*^9}, {3.460283505496956*^9, 3.4602835802199135`*^9}, { 3.460283628522572*^9, 3.4602836810858655`*^9}, {3.460311681913701*^9, 3.460311697390249*^9}, {3.460311874299938*^9, 3.460311881367645*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"QsimplifyRules", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox[ SubscriptBox["A", "i_"], "+"], "\[CenterDot]", " ", SuperscriptBox[ SubscriptBox["A", "i_"], "-"]}], " ", "\[RuleDelayed]", " ", RowBox[{"R", "+", RowBox[{ RowBox[{"(", RowBox[{"\[ImaginaryI]", "/", "2"}], ")"}], " ", "n\[Delta]", " ", "\[CapitalIota]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ SuperscriptBox[ SubscriptBox["A", "i_"], "-"], "\[CenterDot]", " ", SuperscriptBox[ SubscriptBox["A", "i_"], "+"]}], " ", "\[RuleDelayed]", " ", RowBox[{"R", "-", RowBox[{ RowBox[{"(", RowBox[{"\[ImaginaryI]", "/", "2"}], ")"}], "n\[Delta]", " ", "\[CapitalIota]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"F___", "\[CenterDot]", SuperscriptBox[ SubscriptBox["A", "i_"], "+"], "\[CenterDot]", " ", SuperscriptBox[ SubscriptBox["A", "i_"], "-"], " ", "\[CenterDot]", "G___"}], "\[RuleDelayed]", " ", RowBox[{ RowBox[{"F", "\[CenterDot]", "R", "\[CenterDot]", "G"}], "+", RowBox[{ RowBox[{"(", RowBox[{"\[ImaginaryI]", "/", "2"}], ")"}], " ", "n\[Delta]", " ", RowBox[{ "\[CapitalIota]", "\[CenterDot]", "F", "\[CenterDot]", "G"}]}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"F___", "\[CenterDot]", SuperscriptBox[ SubscriptBox["A", "i_"], "-"], "\[CenterDot]", " ", SuperscriptBox[ SubscriptBox["A", "i_"], "+"], " ", "\[CenterDot]", "G___"}], "\[RuleDelayed]", " ", RowBox[{ RowBox[{"F", "\[CenterDot]", "R", "\[CenterDot]", "G"}], "-", RowBox[{ RowBox[{"(", RowBox[{"\[ImaginaryI]", "/", "2"}], ")"}], " ", "n\[Delta]", " ", RowBox[{ "\[CapitalIota]", "\[CenterDot]", "F", "\[CenterDot]", "G"}]}]}]}]}], "\[IndentingNewLine]", "}"}]}], ";"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.460160160115*^9, 3.460160382071*^9}, {3.460160508472*^9, 3.460160516458*^9}, {3.460160581804*^9, 3.460160639858*^9}, { 3.4601610824*^9, 3.460161123538*^9}, {3.4603117088653965`*^9, 3.4603117225987697`*^9}}], Cell[CellGroupData[{ Cell[BoxData["QuaplecticAlgebraComplex3Rulesa"], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["Z", RowBox[{"i_", ",", "j_"}]], ",", " ", SuperscriptBox[ SubscriptBox["A", "k_"], "+"]}], " ", "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]], " ", RowBox[{"(", " ", SuperscriptBox[ SubscriptBox["A", "j"], "+"], " ", ")"}]}]}], ",", RowBox[{ RowBox[{"l", "[", " ", RowBox[{ SuperscriptBox[ SubscriptBox["A", "k_"], "+"], " ", ",", SubscriptBox["Z", RowBox[{"i_", ",", "j_"}]]}], "]"}], "\[RuleDelayed]", RowBox[{"\[ImaginaryI]", " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]], " ", RowBox[{"(", " ", SuperscriptBox[ SubscriptBox["A", "j"], "+"], " ", ")"}]}]}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["Z", RowBox[{"i_", ",", "j_"}]], ",", " ", SuperscriptBox[ SubscriptBox["A", "k_"], "-"]}], " ", "]"}], "\[RuleDelayed]", RowBox[{"\[ImaginaryI]", " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "k"}]], " ", RowBox[{"(", " ", SuperscriptBox[ SubscriptBox["A", "i"], "-"], " ", ")"}]}]}], ",", RowBox[{ RowBox[{"l", "[", " ", RowBox[{ SuperscriptBox[ SubscriptBox["A", "k_"], "-"], " ", ",", SubscriptBox["Z", RowBox[{"i_", ",", "j_"}]]}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "k"}]], " ", RowBox[{"(", " ", SuperscriptBox[ SubscriptBox["A", "i"], "-"], " ", ")"}]}]}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{"\[CapitalIota]", ",", SubscriptBox["Z", RowBox[{"i_", ",", "j_"}]]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["Z", RowBox[{"i_", ",", "j_"}]], ",", "\[CapitalIota]"}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{"R", ",", SubscriptBox["Z", RowBox[{"i_", ",", "j_"}]]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["Z", RowBox[{"i_", ",", "j_"}]], ",", "R"}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{"R", ",", " ", SuperscriptBox[ SubscriptBox["A", "j_"], "-"]}], " ", "]"}], "\[RuleDelayed]", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", " ", SuperscriptBox[ SubscriptBox["A", "j"], "-"], " ", ")"}]}]}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{"R", ",", " ", SuperscriptBox[ SubscriptBox["A", "j_"], "+"]}], " ", "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{"(", " ", SuperscriptBox[ SubscriptBox["A", "j"], "+"], " ", ")"}]}]}], ",", RowBox[{ RowBox[{"l", "[", " ", RowBox[{ SuperscriptBox[ SubscriptBox["A", "j_"], "-"], " ", ",", "R"}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{"(", " ", SuperscriptBox[ SubscriptBox["A", "j"], "-"], " ", ")"}]}]}], ",", RowBox[{ RowBox[{"l", "[", " ", RowBox[{ SuperscriptBox[ SubscriptBox["A", "j_"], "+"], " ", ",", "R"}], "]"}], "\[RuleDelayed]", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", " ", SuperscriptBox[ SubscriptBox["A", "j"], "+"], " ", ")"}]}]}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{"\[CapitalIota]", ",", "R"}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{"R", ",", "\[CapitalIota]"}], "]"}], "\[RuleDelayed]", "0"}]}], "}"}]], "Output", CellChangeTimes->{ 3.460158086969*^9, 3.460158125085*^9, 3.460158330127*^9, { 3.4601584135880003`*^9, 3.4601584315369997`*^9}, 3.460158699528*^9, { 3.460158736017*^9, 3.460158770426*^9}, 3.4601588211359997`*^9, 3.460159141308*^9, {3.460159857791*^9, 3.460159883284*^9}, 3.4601600361549997`*^9, 3.460161128369*^9, 3.460217524618432*^9, 3.4602460520238733`*^9, 3.460283688657623*^9, 3.460283879682723*^9, 3.4602840021989737`*^9, 3.460310547739295*^9, 3.460311488400352*^9, 3.4603115255700684`*^9, 3.4603117327187815`*^9, 3.460311887747283*^9, 3.4633143515949607`*^9, 3.463315830594737*^9, 3.464303437818*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"QuaplecticAlgebraComplex3Rules", " ", "=", RowBox[{"genRules", "[", RowBox[{ RowBox[{"{", RowBox[{ "QuaplecticAlgebraComplex3Rulesa", ",", "WeylHeisenbergAlgebraComplex3rulesa", ",", "UnitaryAlgebraComplex3rulesa"}], "}"}], ",", RowBox[{"{", "generalRules", "}"}], ",", "quaplecticComplex3Basis", ",", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "l"}], "}"}], ",", RowBox[{"{", RowBox[{"i_", ",", "j_"}], "}"}], ",", RowBox[{"{", RowBox[{"k_", ",", "l_"}], "}"}], ",", "F", ",", "G"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.429227589413638*^9, 3.4292275901146603`*^9}, { 3.42922766522416*^9, 3.4292276971306753`*^9}, {3.4292277976271863`*^9, 3.4292277988289385`*^9}, {3.4292289196629705`*^9, 3.4292290081319466`*^9}, {3.429229143208872*^9, 3.4292291441302147`*^9}, { 3.429229266678875*^9, 3.429229268751897*^9}, {3.4292293099820056`*^9, 3.4292293216990876`*^9}, 3.4292294659493856`*^9, 3.4292295217607517`*^9, { 3.4292303451611633`*^9, 3.4292303709287295`*^9}, 3.429230446048244*^9, { 3.4292309880083523`*^9, 3.4292309970415215`*^9}, {3.429274055216854*^9, 3.429274134270528*^9}, 3.429311528195773*^9, {3.4293115779673405`*^9, 3.4293116072394323`*^9}, {3.429486126095995*^9, 3.4294861866042085`*^9}, { 3.429486262605008*^9, 3.429486264357563*^9}, 3.429486341980727*^9, { 3.453068037664358*^9, 3.4530680598662834`*^9}, 3.453068406314451*^9, { 3.453068677224*^9, 3.4530686775144176`*^9}, {3.46015759516*^9, 3.460157637582*^9}, {3.460158005176*^9, 3.460158012211*^9}, { 3.460158098696*^9, 3.460158119354*^9}, {3.460158285637*^9, 3.46015828642*^9}, {3.4602837152672834`*^9, 3.4602837350392604`*^9}, { 3.460283824953251*^9, 3.460283897469502*^9}, {3.4602839563113856`*^9, 3.460283993168071*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Qsimplify", "[", "A_", "]"}], ":=", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"A", "//.", "generalRules"}], "//.", "QsimplifyRules"}], "//.", "orderedRules"}], "//.", "QuaplecticAlgebraComplex3Rules"}], "//.", "generalRules"}], "//.", "QsimplifyRules"}], "//.", "orderedRules"}], "//.", "QuaplecticAlgebraComplex3Rules"}], "//.", "generalRules"}]}]], "Input", CellChangeTimes->{{3.460160770737*^9, 3.4601607988970003`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"SimplifyQuaplecticComplexAlgebra3", "[", "A_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"A", "//.", "lieRules"}], "//.", "QuaplecticAlgebraComplex3Rules"}], "//.", "generalRules"}], "//.", "orderedRules"}], "//.", "QuaplecticAlgebraComplex3Rules"}], "//.", "generalRules"}], "//.", "orderedRules"}], "//.", "QuaplecticAlgebraComplex3Rules"}], "//.", "generalRules"}]}]], "Input", CellChangeTimes->{ 3.403128394427578*^9, {3.409958434536857*^9, 3.4099584669014587`*^9}, { 3.409958522668311*^9, 3.4099585397618675`*^9}, {3.429112400296689*^9, 3.42911246432642*^9}, {3.429112945494458*^9, 3.4291129581028395`*^9}, { 3.460157626708*^9, 3.460157662281*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["l", "qc3"], "[", RowBox[{"a_", ",", "b_"}], "]"}], " ", ":=", " ", RowBox[{"SimplifyQuaplecticComplexAlgebra3", "[", RowBox[{"l", "[", RowBox[{"a", ",", "b"}], "]"}], "]"}]}]], "Input", CellChangeTimes->{ 3.403128394427578*^9, {3.409958419936737*^9, 3.4099584294498467`*^9}, { 3.4291124465587454`*^9, 3.429112471437496*^9}, {3.429112973014579*^9, 3.429112979624215*^9}, {3.4601576649709997`*^9, 3.460157671775*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Quaplectic representation algebra in complex 3 form", "Subsection", CellChangeTimes->{{3.4099583378836594`*^9, 3.409958347877432*^9}, 3.453067901929181*^9, {3.4601574328789997`*^9, 3.4601574343789997`*^9}, { 3.460311603850896*^9, 3.460311607370248*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"quaplecticComplex3Basis", "[", RowBox[{"{", RowBox[{"i_", ",", "j_"}], "}"}], "]"}], "=", RowBox[{"{", RowBox[{"R", ",", SubsuperscriptBox["A", "i", "+"], ",", SubsuperscriptBox["A", "i", "-"], ",", "\[CapitalIota]"}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.4291098873490586`*^9, 3.429109903192314*^9}, 3.42911039066164*^9, {3.4291126583458323`*^9, 3.4291127154090233`*^9}, { 3.4294861945958595`*^9, 3.4294861986217284`*^9}, {3.460157451626*^9, 3.4601575009449997`*^9}, 3.46015832456*^9, {3.460158695084*^9, 3.460158696179*^9}, {3.46015879599*^9, 3.460158797557*^9}, { 3.460159878508*^9, 3.460159879421*^9}, 3.4601600166689997`*^9}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"quaplecticComplex3Basis", "[", RowBox[{"{", RowBox[{"i_", ",", "j_"}], "}"}], "]"}], "=", RowBox[{"{", RowBox[{"R", ",", " ", SubscriptBox["Z", RowBox[{"i", ",", "j"}]], ",", SubsuperscriptBox["A", "i", "+"], ",", SubsuperscriptBox["A", "i", "-"], ",", "\[CapitalIota]"}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.4291098873490586`*^9, 3.429109903192314*^9}, 3.42911039066164*^9, {3.4291126583458323`*^9, 3.4291127154090233`*^9}, { 3.4294861945958595`*^9, 3.4294861986217284`*^9}, {3.460157451626*^9, 3.4601575009449997`*^9}, 3.460283703722129*^9, {3.4603114617976923`*^9, 3.4603114624517574`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"QuaplecticAlgebraComplex3Rulesa", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["Z", RowBox[{"i_", ",", "j_"}]], ",", SubsuperscriptBox["A", "k_", "+"]}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]], SubsuperscriptBox["A", "j", "+"]}]}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubsuperscriptBox["A", "k_", "+"], ",", SubscriptBox["Z", RowBox[{"i_", ",", "j_"}]]}], "]"}], "\[RuleDelayed]", RowBox[{"\[ImaginaryI]", " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]], SubsuperscriptBox["A", "j", "+"]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["Z", RowBox[{"i_", ",", "j_"}]], ",", SubsuperscriptBox["A", "k_", "-"]}], "]"}], "\[RuleDelayed]", RowBox[{"\[ImaginaryI]", " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "k"}]], SubsuperscriptBox["A", "i", "-"]}]}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubsuperscriptBox["A", "k_", "-"], ",", SubscriptBox["Z", RowBox[{"i_", ",", "j_"}]]}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "k"}]], SubsuperscriptBox["A", "i", "-"]}]}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{"\[CapitalIota]", ",", SubscriptBox["Z", RowBox[{"i_", ",", "j_"}]]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["Z", RowBox[{"i_", ",", "j_"}]], ",", "\[CapitalIota]"}], "]"}], "\[RuleDelayed]", "0"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{"R", ",", SubsuperscriptBox["A", "j_", "-"]}], "]"}], "\[RuleDelayed]", SubsuperscriptBox["A", "j", "-"]}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{"R", ",", SubsuperscriptBox["A", "j_", "+"]}], "]"}], "\[RuleDelayed]", RowBox[{"-", SubsuperscriptBox["A", "j", "+"]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubsuperscriptBox["A", "j_", "-"], ",", "R"}], "]"}], "\[RuleDelayed]", RowBox[{"-", SubsuperscriptBox["A", "j", "-"]}]}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubsuperscriptBox["A", "j_", "+"], ",", "R"}], "]"}], "\[RuleDelayed]", SubsuperscriptBox["A", "j", "+"]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{"\[CapitalIota]", ",", "R"}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{"R", ",", "\[CapitalIota]"}], "]"}], "\[RuleDelayed]", "0"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.429112877415207*^9, 3.429112882051967*^9}, 3.4291961714013777`*^9, {3.429485712472986*^9, 3.4294857181913223`*^9}, { 3.460157537604*^9, 3.460157587701*^9}, {3.46015763076*^9, 3.460157631099*^9}, {3.460157687385*^9, 3.460157723704*^9}, { 3.460158368875*^9, 3.460158427863*^9}, {3.4601585885889997`*^9, 3.4601587579049997`*^9}, {3.460158803153*^9, 3.460158816609*^9}, { 3.460159125149*^9, 3.460159131649*^9}, {3.4601600198710003`*^9, 3.460160032051*^9}, 3.460283240437462*^9, {3.4602834197212305`*^9, 3.4602834723960285`*^9}, {3.460283505496956*^9, 3.4602835802199135`*^9}, { 3.460283628522572*^9, 3.4602836810858655`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"QsimplifyRules", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox[ SubscriptBox["A", "i_"], "+"], "\[CenterDot]", " ", SuperscriptBox[ SubscriptBox["A", "i_"], "-"]}], " ", "\[RuleDelayed]", " ", RowBox[{"R", "+", RowBox[{ RowBox[{"(", RowBox[{"1", "/", "2"}], ")"}], " ", "n\[Delta]", " ", "\[CapitalIota]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ SuperscriptBox[ SubscriptBox["A", "i_"], "-"], "\[CenterDot]", " ", SuperscriptBox[ SubscriptBox["A", "i_"], "+"]}], " ", "\[RuleDelayed]", " ", RowBox[{"R", "-", RowBox[{ RowBox[{"(", RowBox[{"1", "/", "2"}], ")"}], "n\[Delta]", " ", "\[CapitalIota]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"F___", "\[CenterDot]", SuperscriptBox[ SubscriptBox["A", "i_"], "+"], "\[CenterDot]", " ", SuperscriptBox[ SubscriptBox["A", "i_"], "-"], " ", "\[CenterDot]", "G___"}], "\[RuleDelayed]", " ", RowBox[{ RowBox[{"F", "\[CenterDot]", "R", "\[CenterDot]", "G"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "/", "2"}], ")"}], " ", "n\[Delta]", " ", RowBox[{ "\[CapitalIota]", "\[CenterDot]", "F", "\[CenterDot]", "G"}]}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"F___", "\[CenterDot]", SuperscriptBox[ SubscriptBox["A", "i_"], "-"], "\[CenterDot]", " ", SuperscriptBox[ SubscriptBox["A", "i_"], "+"], " ", "\[CenterDot]", "G___"}], "\[RuleDelayed]", " ", RowBox[{ RowBox[{"F", "\[CenterDot]", "R", "\[CenterDot]", "G"}], "-", RowBox[{ RowBox[{"(", RowBox[{"1", "/", "2"}], ")"}], " ", "n\[Delta]", " ", RowBox[{ "\[CapitalIota]", "\[CenterDot]", "F", "\[CenterDot]", "G"}]}]}]}]}], "\[IndentingNewLine]", "}"}]}], ";"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.460160160115*^9, 3.460160382071*^9}, {3.460160508472*^9, 3.460160516458*^9}, {3.460160581804*^9, 3.460160639858*^9}, { 3.4601610824*^9, 3.460161123538*^9}}], Cell[CellGroupData[{ Cell[BoxData["QuaplecticAlgebraComplex3Rulesa"], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["Z", RowBox[{"i_", ",", "j_"}]], ",", " ", SuperscriptBox[ SubscriptBox["A", "k_"], "+"]}], " ", "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]], " ", RowBox[{"(", " ", SuperscriptBox[ SubscriptBox["A", "j"], "+"], " ", ")"}]}]}], ",", RowBox[{ RowBox[{"l", "[", " ", RowBox[{ SuperscriptBox[ SubscriptBox["A", "k_"], "+"], " ", ",", SubscriptBox["Z", RowBox[{"i_", ",", "j_"}]]}], "]"}], "\[RuleDelayed]", RowBox[{"\[ImaginaryI]", " ", SubscriptBox["\[Delta]", RowBox[{"i", ",", "k"}]], " ", RowBox[{"(", " ", SuperscriptBox[ SubscriptBox["A", "j"], "+"], " ", ")"}]}]}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["Z", RowBox[{"i_", ",", "j_"}]], ",", " ", SuperscriptBox[ SubscriptBox["A", "k_"], "-"]}], " ", "]"}], "\[RuleDelayed]", RowBox[{"\[ImaginaryI]", " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "k"}]], " ", RowBox[{"(", " ", SuperscriptBox[ SubscriptBox["A", "i"], "-"], " ", ")"}]}]}], ",", RowBox[{ RowBox[{"l", "[", " ", RowBox[{ SuperscriptBox[ SubscriptBox["A", "k_"], "-"], " ", ",", SubscriptBox["Z", RowBox[{"i_", ",", "j_"}]]}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SubscriptBox["\[Delta]", RowBox[{"j", ",", "k"}]], " ", RowBox[{"(", " ", SuperscriptBox[ SubscriptBox["A", "i"], "-"], " ", ")"}]}]}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{"\[CapitalIota]", ",", SubscriptBox["Z", RowBox[{"i_", ",", "j_"}]]}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["Z", RowBox[{"i_", ",", "j_"}]], ",", "\[CapitalIota]"}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{"R", ",", " ", SuperscriptBox[ SubscriptBox["A", "j_"], "-"]}], " ", "]"}], "\[RuleDelayed]", " ", SuperscriptBox[ SubscriptBox["A", "j"], "-"]}], " ", ",", RowBox[{ RowBox[{"l", "[", RowBox[{"R", ",", " ", SuperscriptBox[ SubscriptBox["A", "j_"], "+"]}], " ", "]"}], "\[RuleDelayed]", RowBox[{"-", RowBox[{"(", " ", SuperscriptBox[ SubscriptBox["A", "j"], "+"], " ", ")"}]}]}], ",", RowBox[{ RowBox[{"l", "[", " ", RowBox[{ SuperscriptBox[ SubscriptBox["A", "j_"], "-"], " ", ",", "R"}], "]"}], "\[RuleDelayed]", RowBox[{"-", RowBox[{"(", " ", SuperscriptBox[ SubscriptBox["A", "j"], "-"], " ", ")"}]}]}], ",", RowBox[{ RowBox[{"l", "[", " ", RowBox[{ SuperscriptBox[ SubscriptBox["A", "j_"], "+"], " ", ",", "R"}], "]"}], "\[RuleDelayed]", " ", SuperscriptBox[ SubscriptBox["A", "j"], "+"]}], " ", ",", RowBox[{ RowBox[{"l", "[", RowBox[{"\[CapitalIota]", ",", "R"}], "]"}], "\[RuleDelayed]", "0"}], ",", RowBox[{ RowBox[{"l", "[", RowBox[{"R", ",", "\[CapitalIota]"}], "]"}], "\[RuleDelayed]", "0"}]}], "}"}]], "Output", CellChangeTimes->{ 3.460158086969*^9, 3.460158125085*^9, 3.460158330127*^9, { 3.4601584135880003`*^9, 3.4601584315369997`*^9}, 3.460158699528*^9, { 3.460158736017*^9, 3.460158770426*^9}, 3.4601588211359997`*^9, 3.460159141308*^9, {3.460159857791*^9, 3.460159883284*^9}, 3.4601600361549997`*^9, 3.460161128369*^9, 3.460217524618432*^9, 3.4602460520238733`*^9, 3.460283688657623*^9, 3.460283879682723*^9, 3.4602840021989737`*^9, 3.460310547739295*^9, 3.460311488400352*^9, 3.4603115255700684`*^9, 3.463314351829031*^9, 3.4633158311507926`*^9, 3.464303438961*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"QuaplecticAlgebraComplex3Rules", " ", "=", RowBox[{"genRules", "[", RowBox[{ RowBox[{"{", RowBox[{ "QuaplecticAlgebraComplex3Rulesa", ",", "WeylHeisenbergAlgebraComplex3rulesa", ",", "UnitaryAlgebraComplex3rulesa"}], "}"}], ",", RowBox[{"{", "generalRules", "}"}], ",", "quaplecticComplex3Basis", ",", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "l"}], "}"}], ",", RowBox[{"{", RowBox[{"i_", ",", "j_"}], "}"}], ",", RowBox[{"{", RowBox[{"k_", ",", "l_"}], "}"}], ",", "F", ",", "G"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.429227589413638*^9, 3.4292275901146603`*^9}, { 3.42922766522416*^9, 3.4292276971306753`*^9}, {3.4292277976271863`*^9, 3.4292277988289385`*^9}, {3.4292289196629705`*^9, 3.4292290081319466`*^9}, {3.429229143208872*^9, 3.4292291441302147`*^9}, { 3.429229266678875*^9, 3.429229268751897*^9}, {3.4292293099820056`*^9, 3.4292293216990876`*^9}, 3.4292294659493856`*^9, 3.4292295217607517`*^9, { 3.4292303451611633`*^9, 3.4292303709287295`*^9}, 3.429230446048244*^9, { 3.4292309880083523`*^9, 3.4292309970415215`*^9}, {3.429274055216854*^9, 3.429274134270528*^9}, 3.429311528195773*^9, {3.4293115779673405`*^9, 3.4293116072394323`*^9}, {3.429486126095995*^9, 3.4294861866042085`*^9}, { 3.429486262605008*^9, 3.429486264357563*^9}, 3.429486341980727*^9, { 3.453068037664358*^9, 3.4530680598662834`*^9}, 3.453068406314451*^9, { 3.453068677224*^9, 3.4530686775144176`*^9}, {3.46015759516*^9, 3.460157637582*^9}, {3.460158005176*^9, 3.460158012211*^9}, { 3.460158098696*^9, 3.460158119354*^9}, {3.460158285637*^9, 3.46015828642*^9}, {3.4602837152672834`*^9, 3.4602837350392604`*^9}, { 3.460283824953251*^9, 3.460283897469502*^9}, {3.4602839563113856`*^9, 3.460283993168071*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Qsimplify", "[", "A_", "]"}], ":=", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"A", "//.", "generalRules"}], "//.", "QsimplifyRules"}], "//.", "orderedRules"}], "//.", "QuaplecticAlgebraComplex3Rules"}], "//.", "generalRules"}], "//.", "QsimplifyRules"}], "//.", "orderedRules"}], "//.", "QuaplecticAlgebraComplex3Rules"}], "//.", "generalRules"}]}]], "Input", CellChangeTimes->{{3.460160770737*^9, 3.4601607988970003`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"SimplifyQuaplecticComplexAlgebra3", "[", "A_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"A", "//.", "lieRules"}], "//.", "QuaplecticAlgebraComplex3Rules"}], "//.", "generalRules"}], "//.", "orderedRules"}], "//.", "QuaplecticAlgebraComplex3Rules"}], "//.", "generalRules"}], "//.", "orderedRules"}], "//.", "QuaplecticAlgebraComplex3Rules"}], "//.", "generalRules"}]}]], "Input", CellChangeTimes->{ 3.403128394427578*^9, {3.409958434536857*^9, 3.4099584669014587`*^9}, { 3.409958522668311*^9, 3.4099585397618675`*^9}, {3.429112400296689*^9, 3.42911246432642*^9}, {3.429112945494458*^9, 3.4291129581028395`*^9}, { 3.460157626708*^9, 3.460157662281*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["l", "qc3"], "[", RowBox[{"a_", ",", "b_"}], "]"}], " ", ":=", " ", RowBox[{"SimplifyQuaplecticComplexAlgebra3", "[", RowBox[{"l", "[", RowBox[{"a", ",", "b"}], "]"}], "]"}]}]], "Input", CellChangeTimes->{ 3.403128394427578*^9, {3.409958419936737*^9, 3.4099584294498467`*^9}, { 3.4291124465587454`*^9, 3.429112471437496*^9}, {3.429112973014579*^9, 3.429112979624215*^9}, {3.4601576649709997`*^9, 3.460157671775*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Quaplectic algebra in 4 form", "Subsection", CellChangeTimes->{{3.4099583378836594`*^9, 3.409958347877432*^9}, { 3.453067901929181*^9, 3.4530679134457407`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"quaplecticReal4Basis", "[", RowBox[{"{", RowBox[{"a_", ",", "b_"}], "}"}], "]"}], "=", RowBox[{"{", RowBox[{ SubscriptBox["L", RowBox[{"a", ",", "b"}]], ",", SubscriptBox["M", RowBox[{"a", ",", "b"}]], ",", SubscriptBox["X", "a"], ",", SubscriptBox["Y", "a"], ",", "\[CapitalIota]"}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.4291098873490586`*^9, 3.429109903192314*^9}, 3.42911039066164*^9, 3.429112656593277*^9, {3.4294862011253786`*^9, 3.4294862044402113`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"QuaplecticAlgebra4Rulesa", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["L", RowBox[{"a_", ",", "b_"}]], ",", SubscriptBox["X", "c_"]}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["X", "b"]}], " ", SubscriptBox["\[Eta]", RowBox[{"a", ",", "c"}]]}], "+", RowBox[{ SubscriptBox["X", "a"], " ", SubscriptBox["\[Eta]", RowBox[{"b", ",", "c"}]]}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["L", RowBox[{"a_", ",", "b_"}]], ",", SubscriptBox["Y", "c_"]}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["Y", "b"]}], " ", SubscriptBox["\[Eta]", RowBox[{"a", ",", "c"}]]}], "+", RowBox[{ SubscriptBox["Y", "a"], " ", SubscriptBox["\[Eta]", RowBox[{"b", ",", "c"}]]}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"a_", ",", "b_"}]], ",", SubscriptBox["L", RowBox[{"c_", ",", "d_"}]]}], "]"}], "\[RuleDelayed]", 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"}]]}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"a_", ",", "b_"}]], ",", SubscriptBox["M", RowBox[{"c_", ",", "d_"}]]}], "]"}], "\[RuleDelayed]", 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"}]]}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"a_", ",", "b_"}]], ",", SubscriptBox["X", "c_"]}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{ SubscriptBox["Y", "b"], " ", SubscriptBox["\[Eta]", RowBox[{"a", ",", "c"}]]}], "+", RowBox[{ SubscriptBox["Y", "a"], " ", SubscriptBox["\[Eta]", RowBox[{"b", ",", "c"}]]}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"a_", ",", "b_"}]], ",", SubscriptBox["Y", "c_"]}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["X", "b"]}], " ", SubscriptBox["\[Eta]", RowBox[{"a", ",", "c"}]]}], "-", RowBox[{ SubscriptBox["X", "a"], " ", SubscriptBox["\[Eta]", RowBox[{"b", ",", "c"}]]}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["X", "a_"], ",", SubscriptBox["L", RowBox[{"c_", ",", "d_"}]]}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{ SubscriptBox["X", "d"], " ", SubscriptBox["\[Eta]", RowBox[{"c", ",", "a"}]]}], "-", RowBox[{ SubscriptBox["X", "c"], " ", SubscriptBox["\[Eta]", RowBox[{"d", ",", "a"}]]}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["X", "a_"], ",", SubscriptBox["M", RowBox[{"c_", ",", "d_"}]]}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["Y", "d"]}], " ", SubscriptBox["\[Eta]", RowBox[{"c", ",", "a"}]]}], "-", RowBox[{ SubscriptBox["Y", "c"], " ", SubscriptBox["\[Eta]", RowBox[{"d", ",", "a"}]]}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["Y", "a_"], ",", SubscriptBox["L", RowBox[{"c_", ",", "d_"}]]}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{ SubscriptBox["Y", "d"], " ", SubscriptBox["\[Eta]", RowBox[{"c", ",", "a"}]]}], "-", RowBox[{ SubscriptBox["Y", "c"], " ", SubscriptBox["\[Eta]", RowBox[{"d", ",", "a"}]]}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["Y", "c_"], ",", SubscriptBox["M", RowBox[{"a_", ",", "b_"}]]}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{ SubscriptBox["X", "b"], " ", SubscriptBox["\[Eta]", RowBox[{"a", ",", "c"}]]}], "+", RowBox[{ SubscriptBox["X", "a"], " ", SubscriptBox["\[Eta]", RowBox[{"b", ",", "c"}]]}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{"\[CapitalIota]", ",", SubscriptBox["L", RowBox[{"c_", ",", "d_"}]]}], "]"}], "\[RuleDelayed]", "0"}], ",", " ", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["L", RowBox[{"a_", ",", "b_"}]], ",", "\[CapitalIota]"}], "]"}], "\[RuleDelayed]", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "[", RowBox[{"\[CapitalIota]", ",", SubscriptBox["M", RowBox[{"c_", ",", "d_"}]]}], "]"}], "\[RuleDelayed]", "0"}], ",", " ", RowBox[{ RowBox[{"l", "[", RowBox[{ SubscriptBox["M", RowBox[{"a_", ",", "b_"}]], ",", "\[CapitalIota]"}], "]"}], "\[RuleDelayed]", "0"}]}], "\[IndentingNewLine]", "}"}]}], ";"}]], "Input", CellChangeTimes->{ 3.403128394427578*^9, 3.409534562075712*^9, {3.4095346007775993`*^9, 3.4095346554019747`*^9}, {3.409534714303134*^9, 3.409534818481988*^9}, { 3.4095348502466497`*^9, 3.4095349147698736`*^9}, 3.4099582706309786`*^9, 3.4099607921045713`*^9, {3.4099608871030664`*^9, 3.4099609052895803`*^9}, 3.409960937626724*^9, {3.429109913968131*^9, 3.4291099144989104`*^9}, { 3.42911065975719*^9, 3.429110677593193*^9}, 3.4291107920700855`*^9, 3.4291108356936827`*^9, {3.429111464471769*^9, 3.429111571822921*^9}, 3.4291116071534157`*^9, 3.4291125849943686`*^9, 3.4291128397302675`*^9, { 3.4294860834337993`*^9, 3.4294860876699753`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"QuaplecticAlgebra4Rules", "=", RowBox[{"Dispatch", "[", RowBox[{"Flatten", "[", RowBox[{"{", RowBox[{ "QuaplecticAlgebra4Rulesa", ",", " ", "WeylHeisenberg4rules", ",", "UnitaryReal4rules"}], "}"}], "]"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.4291116324903536`*^9, 3.4291116935293407`*^9}, { 3.429112557371344*^9, 3.4291125582627325`*^9}, 3.4291126064277525`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"SimplifyQuaplecticAlgebra4", "[", "A_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"A", "//.", "lieRules"}], "//.", "QuaplecticAlgebra4Rules"}], "//.", "generalRules"}], "//.", "orderedRules"}], "//.", "QuaplecticAlgebra4Rules"}], "//.", "generalRules"}], "//.", "orderedRules"}], "//.", "QuaplecticAlgebra4Rules"}], "//.", "generalRules"}]}]], "Input", CellChangeTimes->{ 3.403128394427578*^9, {3.409958434536857*^9, 3.4099584669014587`*^9}, { 3.409958522668311*^9, 3.4099585397618675`*^9}, {3.429112400296689*^9, 3.42911246432642*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["l", "q4"], "[", RowBox[{"a_", ",", "b_"}], "]"}], " ", ":=", " ", RowBox[{"SimplifyQuaplecticAlgebra4", "[", RowBox[{"l", "[", RowBox[{"a", ",", "b"}], "]"}], "]"}]}]], "Input", CellChangeTimes->{ 3.403128394427578*^9, {3.409958419936737*^9, 3.4099584294498467`*^9}, { 3.4291124465587454`*^9, 3.429112471437496*^9}}] }, Closed]] }, Open ]] }, Open ]] }, WindowSize->{1138, 903}, WindowMargins->{{83, Automatic}, {Automatic, -29}}, ShowSelection->True, Magnification->1.2999999523162842`, 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, 221, 3, 106, "Title"], Cell[791, 27, 204, 5, 60, "Text"], Cell[CellGroupData[{ Cell[1020, 36, 200, 3, 91, "Section"], Cell[CellGroupData[{ Cell[1245, 43, 3386, 70, 245, "Input"], Cell[4634, 115, 3412, 52, 102, "Message"], Cell[8049, 169, 3417, 52, 102, "Message"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[11515, 227, 281, 4, 91, "Section"], Cell[CellGroupData[{ Cell[11821, 235, 152, 2, 46, "Subsection"], Cell[11976, 239, 901, 15, 37, "Input"], Cell[12880, 256, 1106, 22, 96, "Input"], Cell[13989, 280, 1310, 22, 61, "Input"], Cell[15302, 304, 703, 14, 37, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[16042, 323, 108, 4, 69, "Subsection"], Cell[16153, 329, 1165, 21, 37, "Input"], Cell[17321, 352, 2027, 47, 173, "Input"], Cell[19351, 401, 2123, 51, 173, "Input"], Cell[21477, 454, 1679, 30, 61, "Input"], Cell[23159, 486, 758, 15, 37, "Input"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[23966, 507, 259, 3, 50, "Section"], Cell[CellGroupData[{ Cell[24250, 514, 665, 19, 609, "Subsection"], Cell[24918, 535, 852, 15, 594, "Input"], Cell[25773, 552, 1207, 24, 1596, "Input"], Cell[26983, 578, 1382, 26, 820, "Input"], Cell[28368, 606, 661, 14, 487, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[29066, 625, 108, 4, 924, "Subsection"], Cell[29177, 631, 1037, 19, 594, "Input"], Cell[30217, 652, 3325, 83, 4456, "Input"], Cell[33545, 737, 1625, 28, 820, "Input"], Cell[35173, 767, 714, 15, 487, "Input"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[35936, 788, 256, 3, 50, "Section"], Cell[36195, 793, 1154, 38, 50, "TextNoIndent"], Cell[CellGroupData[{ Cell[37374, 835, 301, 4, 46, "Subsection"], Cell[37678, 841, 896, 16, 37, "Input"], Cell[38577, 859, 1661, 41, 96, "Input"], Cell[40241, 902, 1217, 33, 120, "Input"], Cell[41461, 937, 1498, 29, 61, "Input"], Cell[42962, 968, 691, 15, 37, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[43690, 988, 298, 4, 46, "Subsection"], Cell[43991, 994, 891, 16, 37, "Input"], Cell[44885, 1012, 1824, 44, 96, "Input"], Cell[46712, 1058, 1438, 27, 61, "Input"], Cell[48153, 1087, 1261, 33, 142, "Input"], Cell[49417, 1122, 727, 14, 48, "Input"] }, Open ]], Cell[50159, 1139, 108, 4, 89, "Subsection"], Cell[CellGroupData[{ Cell[50292, 1147, 298, 4, 45, "Subsection"], Cell[50593, 1153, 1059, 20, 48, "Input"], Cell[51655, 1175, 2878, 72, 194, "Input"], Cell[54536, 1249, 1599, 28, 79, "Input"], Cell[56138, 1279, 779, 16, 48, "Input"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[56966, 1301, 309, 4, 50, "Section"], Cell[57278, 1307, 348, 9, 509, "TextNoIndent"], Cell[57629, 1318, 1024, 18, 375, "Input"], Cell[58656, 1338, 2066, 45, 1003, "Input"], Cell[60725, 1385, 1571, 28, 631, "Input"], Cell[62299, 1415, 1248, 32, 1253, "Input"], Cell[63550, 1449, 758, 15, 375, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[64345, 1469, 147, 2, 50, "Section"], Cell[64495, 1473, 316, 8, 83, "TextNoIndent"], Cell[CellGroupData[{ Cell[64836, 1485, 246, 3, 76, "Subsection"], Cell[65085, 1490, 722, 16, 62, "Input"], Cell[65810, 1508, 4262, 126, 298, "Input"], Cell[70075, 1636, 2061, 57, 324, "Input"], Cell[72139, 1695, 1346, 27, 141, "Input"], Cell[73488, 1724, 616, 13, 62, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[74141, 1742, 301, 4, 76, "Subsection"], Cell[74445, 1748, 701, 14, 62, "Input"], Cell[75149, 1764, 914, 18, 62, "Input"], Cell[76066, 1784, 1323, 30, 161, "Input"], Cell[77392, 1816, 1326, 34, 240, "Input"], Cell[78721, 1852, 1396, 26, 102, "Input"], Cell[80120, 1880, 673, 14, 62, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[80830, 1899, 246, 3, 76, "Subsection"], Cell[81079, 1904, 720, 16, 133, "Input"], Cell[81802, 1922, 4277, 127, 653, "Input"], Cell[86082, 2051, 2115, 58, 711, "Input"], Cell[88200, 2111, 1383, 27, 308, "Input"], Cell[89586, 2140, 616, 13, 133, "Input"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[90251, 2159, 206, 3, 50, "Section"], Cell[90460, 2164, 366, 8, 661, "TextNoIndent"], Cell[90829, 2174, 1008, 16, 487, "Input"], Cell[91840, 2192, 1299, 22, 1303, "Input"], Cell[93142, 2216, 1500, 25, 487, "Input"], Cell[94645, 2243, 801, 15, 487, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[95483, 2263, 272, 3, 50, "Section"], Cell[95758, 2268, 500, 10, 509, "TextNoIndent"], Cell[96261, 2280, 1248, 21, 436, "Input"], Cell[97512, 2303, 2096, 40, 1596, "Input"], Cell[99611, 2345, 2339, 41, 631, "Input"], Cell[101953, 2388, 847, 16, 375, "Input"], Cell[CellGroupData[{ Cell[102825, 2408, 105, 1, 469, "Subsection"], Cell[102933, 2411, 1513, 26, 436, "Input"], Cell[104449, 2439, 6194, 146, 4430, "Input"], Cell[110646, 2587, 2359, 41, 631, "Input"], Cell[113008, 2630, 899, 16, 375, "Input"], Cell[113910, 2648, 68, 1, 375, "Input"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[114027, 2655, 322, 4, 50, "Section"], Cell[114352, 2661, 602, 13, 50, "TextNoIndent"], Cell[114957, 2676, 1349, 24, 37, "Input"], Cell[116309, 2702, 2704, 57, 123, "Input"], Cell[119016, 2761, 2489, 44, 84, "Input"], Cell[121508, 2807, 948, 17, 37, "Input"], Cell[122459, 2826, 1398, 24, 37, "Input"], Cell[123860, 2852, 2694, 57, 123, "Input"], Cell[126557, 2911, 2585, 45, 61, "Input"], Cell[129145, 2958, 995, 18, 37, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[130177, 2981, 409, 5, 91, "Section"], Cell[130589, 2988, 593, 12, 509, "TextNoIndent"], Cell[131185, 3002, 1395, 24, 375, "Input"], Cell[132583, 3028, 2804, 59, 1285, "Input"], Cell[135390, 3089, 2543, 45, 631, "Input"], Cell[137936, 3136, 1007, 18, 375, "Input"], Cell[CellGroupData[{ Cell[138968, 3158, 105, 1, 469, "Subsection"], Cell[139076, 3161, 1667, 30, 375, "Input"], Cell[140746, 3193, 6507, 161, 3772, "Input"], Cell[147256, 3356, 2401, 41, 631, "Input"], Cell[149660, 3399, 950, 17, 375, "Input"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[150659, 3422, 486, 6, 50, "Section"], Cell[151148, 3430, 687, 14, 509, "TextNoIndent"], Cell[151838, 3446, 1800, 31, 375, "Input"], Cell[153641, 3479, 6398, 167, 3994, "Input"], Cell[160042, 3648, 1271, 27, 876, "Input"], Cell[161316, 3677, 1135, 20, 375, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[162488, 3702, 406, 5, 50, "Section"], Cell[162897, 3709, 634, 13, 509, "TextNoIndent"], Cell[163534, 3724, 1643, 28, 375, "Input"], Cell[165180, 3754, 2541, 47, 1237, "Input"], Cell[167724, 3803, 1336, 32, 1116, "Input"], Cell[169063, 3837, 1057, 19, 375, "Input"], Cell[CellGroupData[{ Cell[170145, 3860, 105, 1, 469, "Subsection"], Cell[170253, 3863, 2141, 37, 375, "Input"], Cell[172397, 3902, 16244, 420, 10988, "Input"], Cell[188644, 4324, 1468, 33, 1116, "Input"], Cell[CellGroupData[{ Cell[190137, 4361, 87, 1, 375, "Input"], Cell[190227, 4364, 12475, 379, 70, "Output"] }, Open ]], Cell[202717, 4746, 995, 18, 375, "Input"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[203761, 4770, 130, 2, 50, "Section"], Cell[CellGroupData[{ Cell[203916, 4776, 197, 2, 165, "Subsection"], Cell[204116, 4780, 588, 12, 133, "Input"], Cell[204707, 4794, 1942, 55, 653, "Input"], Cell[206652, 4851, 1809, 31, 222, "Input"], Cell[208464, 4884, 572, 13, 133, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[209073, 4902, 259, 3, 165, "Subsection"], Cell[209335, 4907, 671, 14, 133, "Input"], Cell[210009, 4923, 2167, 56, 682, "Input"], Cell[212179, 4981, 1743, 28, 308, "Input"], Cell[213925, 5011, 634, 14, 133, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[214596, 5030, 199, 2, 126, "Subsection"], Cell[214798, 5034, 640, 13, 375, "Input"], Cell[215441, 5049, 1988, 55, 1861, "Input"], Cell[217432, 5106, 1738, 27, 631, "Input"], Cell[219173, 5135, 621, 14, 375, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[219831, 5154, 197, 2, 126, "Subsection"], Cell[220031, 5158, 568, 11, 6694, "Input"], Cell[220602, 5171, 1248, 29, 22987, "Input"], Cell[221853, 5202, 1736, 27, 11278, "Input"], Cell[223592, 5231, 574, 13, 6694, "Input"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[224215, 5250, 173, 2, 50, "Section"], Cell[224391, 5254, 1703, 29, 375, "Input"], Cell[226097, 5285, 2768, 54, 1237, "Input"], Cell[228868, 5341, 1486, 34, 1116, "Input"], Cell[230357, 5377, 1154, 20, 375, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[231548, 5402, 454, 11, 50, "Section"], Cell[232005, 5415, 1967, 34, 375, "Input"], Cell[233975, 5451, 1941, 33, 375, "Input"], Cell[235919, 5486, 10923, 288, 7279, "Input"], Cell[246845, 5776, 1098, 28, 1237, "Input"], Cell[247946, 5806, 1098, 28, 1237, "Input"], Cell[249047, 5836, 2176, 47, 1359, "Input"], Cell[251226, 5885, 1203, 21, 375, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[252466, 5911, 502, 11, 56, "Section"], Cell[252971, 5924, 2059, 34, 375, "Input"], Cell[255033, 5960, 11361, 302, 7279, "Input"], Cell[266397, 6264, 2703, 72, 2468, "Input"], Cell[269103, 6338, 2254, 48, 1359, "Input"], Cell[271360, 6388, 1251, 21, 375, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[272648, 6414, 209, 3, 50, "Section"], Cell[272860, 6419, 518, 14, 509, "TextNoIndent"], Cell[CellGroupData[{ Cell[273403, 6437, 246, 3, 469, "Subsection"], Cell[273652, 6442, 767, 17, 375, "Input"], Cell[274422, 6461, 3678, 106, 1861, "Input"], Cell[278103, 6569, 2160, 58, 2029, "Input"], Cell[280266, 6629, 1418, 28, 631, "Input"], Cell[281687, 6659, 716, 15, 375, "Input"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[282452, 6680, 156, 2, 50, "Section"], Cell[282611, 6684, 656, 13, 133, "Input"], Cell[CellGroupData[{ Cell[283292, 6701, 192, 2, 165, "Subsection"], Cell[283487, 6705, 676, 14, 133, "Input"], Cell[284166, 6721, 1946, 45, 535, "Input"], Cell[286115, 6768, 1231, 23, 222, "Input"], Cell[287349, 6793, 103, 2, 133, "Input"], Cell[287455, 6797, 566, 13, 133, "Input"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[288070, 6816, 165, 2, 50, "Section"], Cell[CellGroupData[{ Cell[288260, 6822, 144, 2, 46, "Subsection"], Cell[288407, 6826, 611, 16, 289, "Input"], Cell[CellGroupData[{ Cell[289043, 6846, 193, 4, 289, "Input"], Cell[289239, 6852, 841, 17, 70, "Output"] }, Open ]], Cell[290095, 6872, 6674, 210, 1870, "Input"], Cell[296772, 7084, 1633, 33, 859, "Input"], Cell[298408, 7119, 767, 19, 859, "Input"], Cell[299178, 7140, 440, 11, 289, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[299655, 7156, 202, 2, 35, "Subsection"], Cell[299860, 7160, 741, 16, 37, "Input"], Cell[300604, 7178, 715, 17, 37, "Input"], Cell[301322, 7197, 4538, 116, 331, "Input"], Cell[305863, 7315, 2446, 61, 193, "Input"], Cell[CellGroupData[{ Cell[308334, 7380, 57, 0, 37, "Input"], Cell[308394, 7382, 4573, 136, 115, "Output"] }, Open ]], Cell[312982, 7521, 1935, 37, 107, "Input"], Cell[314920, 7560, 580, 15, 107, "Input"], Cell[315503, 7577, 839, 20, 107, "Input"], Cell[316345, 7599, 493, 11, 37, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[316875, 7615, 267, 3, 46, "Subsection"], Cell[317145, 7620, 741, 16, 103, "Input"], Cell[317889, 7638, 715, 17, 103, "Input"], Cell[318607, 7657, 3920, 101, 865, "Input"], Cell[322530, 7760, 2345, 60, 547, "Input"], Cell[CellGroupData[{ Cell[324900, 7824, 57, 0, 103, "Input"], Cell[324960, 7826, 3995, 119, 70, "Output"] }, Open ]], Cell[328970, 7948, 1935, 37, 302, "Input"], Cell[330908, 7987, 580, 15, 302, "Input"], Cell[331491, 8004, 839, 20, 302, "Input"], Cell[332333, 8026, 493, 11, 103, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[332863, 8042, 169, 2, 35, "Subsection"], Cell[333035, 8046, 583, 16, 6694, "Input"], Cell[333621, 8064, 7433, 220, 74239, "Input"], Cell[341057, 8286, 448, 10, 11278, "Input"], Cell[341508, 8298, 719, 19, 15668, "Input"], Cell[342230, 8319, 390, 10, 6694, "Input"] }, Closed]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)