(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.3' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 375132, 9540] NotebookOptionsPosition[ 348562, 9080] NotebookOutlinePosition[ 348919, 9096] CellTagsIndexPosition[ 348876, 9093] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["\<\ HYMNS.nb The HYMNs for GR(2,2) and GR(4,4) as in arXiv:XXXX.XXXXX [hep-th] Complete Check of GR(2,2), random check of GR(4,4)\ \>", "Title", CellChangeTimes->{{3.7578539405211678`*^9, 3.7578539505529766`*^9}, { 3.763045182144661*^9, 3.763045203527885*^9}, {3.7630545522146*^9, 3.7630545810463963`*^9}, {3.7630546177031393`*^9, 3.763054618849512*^9}},ExpressionUUID->"46e08a2a-81cb-4715-9090-\ cbb021a0eb10"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"$RecursionLimit", "=", "Infinity"}]], "Input", CellLabel->"In[1]:=",ExpressionUUID->"70613118-1d48-47dc-bd78-d12aaea7e038"], Cell[BoxData["\[Infinity]"], "Output", CellChangeTimes->{ 3.712096149785945*^9, 3.7371539348173323`*^9, 3.7371594314090385`*^9, 3.7371627611447787`*^9, 3.737168382483601*^9, 3.7372082052819543`*^9, 3.737209179167657*^9, 3.7372893206158895`*^9, 3.7378072366540413`*^9, 3.737914429069895*^9, 3.737976806636208*^9, 3.737977755232465*^9, 3.7464545663852806`*^9, 3.75008390446955*^9, 3.750084129490266*^9, { 3.7500842500158234`*^9, 3.750084268872366*^9}, 3.750084407354647*^9, 3.750098648963484*^9, 3.7500988787293816`*^9, 3.750101844435627*^9, 3.7578545877033443`*^9, 3.7578550380041685`*^9, 3.757855438334279*^9, 3.757869989987184*^9, 3.757872783718161*^9, 3.7578750945419693`*^9, 3.759622762685352*^9, 3.7602923123538847`*^9, 3.7602958492721157`*^9, 3.762967583768503*^9, 3.7630544230496693`*^9}, CellLabel->"Out[1]=",ExpressionUUID->"9c42e746-cd78-42db-9164-c2ba38bd856f"] }, Open ]], Cell[CellGroupData[{ Cell["Import the Adinkra package", "Section", CellChangeTimes->{{3.7108088373262444`*^9, 3.7108088416734924`*^9}, { 3.742443794211779*^9, 3.7424437981540127`*^9}, {3.742447582747436*^9, 3.742447583928364*^9}, {3.763045215198578*^9, 3.763045223457448*^9}},ExpressionUUID->"6f2b1cc3-3be9-49ee-9e81-\ 65594109def2"], Cell[BoxData[ RowBox[{"<<", "Adinkra`"}]], "Input", CellChangeTimes->{{3.742443803362287*^9, 3.742443804715487*^9}, { 3.742446558681669*^9, 3.742446563370216*^9}, {3.7578540980027184`*^9, 3.757854099385389*^9}}, CellLabel->"In[2]:=",ExpressionUUID->"a32ff42f-b046-4599-b649-39316755a471"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BuildDate", "[", "Adinkra", "]"}]], "Input", CellChangeTimes->{{3.746549445600609*^9, 3.746549448047648*^9}}, CellLabel->"In[3]:=",ExpressionUUID->"078e5a08-8c52-4a8e-b43e-e82e1274152f"], Cell[BoxData["190304"], "Output", CellChangeTimes->{ 3.750003189196753*^9, 3.7500098016448317`*^9, 3.750013814908918*^9, 3.75001389921817*^9, 3.750013955565403*^9, 3.7500179927402325`*^9, 3.750018331921175*^9, 3.7500841296871347`*^9, {3.750084250214221*^9, 3.7500842690168095`*^9}, 3.750084407552178*^9, 3.7500986491415896`*^9, 3.750098878807456*^9, {3.750101844607485*^9, 3.750101859075189*^9}, 3.757854600429717*^9, 3.7578550381058474`*^9, 3.75785543843596*^9, 3.7578699901171274`*^9, 3.757872783837201*^9, 3.7578750947435265`*^9, 3.759622762875469*^9, 3.7602923125617933`*^9, 3.7602958493718896`*^9, 3.762967583986678*^9, 3.7630452267149267`*^9, 3.763054423174244*^9}, CellLabel->"Out[3]=",ExpressionUUID->"fb0f066a-d70b-4bcb-bfd8-7d9309a6da07"] }, Open ]], Cell[CellGroupData[{ Cell["Function Lists", "Subsection", CellChangeTimes->{{3.746556066750236*^9, 3.746556069037942*^9}},ExpressionUUID->"1aa7220b-a0af-4f51-859d-\ 273ba713241b"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FunctionList", "[", "Adinkra", "]"}]], "Input", CellChangeTimes->{{3.7424465936653976`*^9, 3.742446599983512*^9}}, CellLabel->"In[4]:=",ExpressionUUID->"b3a96abe-d5d8-4e01-a2cd-34a41587ee31"], Cell[BoxData["\<\"SpaceTime:\\nIndexRange[SpaceTime][Index], Index = mu, a, \ or RaiseCode\\n\\ncoordinates, \[CapitalStigma][mu], \[Eta][mu,nu], \ Cmetric[[a,b]], InverseCmetric[[a,b]], UD[Field,\[CapitalStigma][mu]] , \ Lap[Field], UP, DOWN, \ RaiseSTIndex[Field,RaiseCode1,RaiseCode2,...,RaiseCoden], \ RaiseFermionIndex[Field]\\n\\n************************************************\ ****************************************\\n***********************************\ *****************************************************\\n\\nGenerateLandR:\\\ nNColors[D,Phi,Psi], LTable[DColor,Phi,Psi], \ RTable[DColor,Phi,Psi],GenerateLandR[DColor,Phi,Psi,Rep]\\n\\n****************\ ************************************************************************\\n***\ ******************************************************************************\ *******\\n\\nAdinkraEssentials:\\nIndexRange[AdinkraEssentials][Index], Index \ = p1, II, ReportLevel, or pm\\n\\n***IMPORTANT****: Default Settings are \ VScaleFactor = VtildeScaleFactor = -I, VsoNScaleFactor = -I/(2 \ VsoNScaleFactor), VtildesoNScaleFactor = -I/(2 \ VtildesoNScaleFactor)\\n\\nReports: AdinkraReport[Rep,ReportLevel], \ AdinkraPreliminaryReport[L,R], AdinkraPreliminaryReport[Rep], \ AdinkraPreliminaryReportO[Rep], AdinkraHoloMonoReport[Rep], \ AdinkraSummaryReport[Rep], AdinkraFullReport[Rep]\\n\\nBasic Functions: \ nMatrices[Matrices], nRows[Matrices], nColumns[Matrices], \ Commute[Matrix1,Matrix2], NColors[Rep], NColors[L,R], dmin[N], dbosons[Rep], \ dbosons[L,R], dfermions[Rep], dfermions[L,R], \ WordW[{p1,p2,...,pN}]\\n\\nIntense Calculations: Gadget[Rep1,Rep2], \ BosonGadget[Rep1,Rep2], ListOfIdenticalMonoOrHolo[MonoOrHolo,Rep], \ NumDistinctHoloOrMono[HoloOrMono,Rep]\\n\\nPrint Functions: PrintL[Rep][II], \ PrintR[Rep][II], PrintGALR[Rep][II,JJ], PrintGARL[Rep][II,JJ], \ PrintV[Rep][II,JJ], PrintVtilde[Rep][II,JJ], PrintZetaGen[Rep][II], \ PrintHoloraumy[Rep][{p1,p2,...,pN}], \ PrintMonodromy[Rep][{p1,p2,...,pN}],PrintZetatildeGen[Rep][II], \ PrintHoloraumytilde[Rep][{p1,p2,...,pN}], \ PrintMonodromytilde[Rep][{p1,p2,...,pN}], PrintVtildePM[pm][Rep][II,JJ], \ PrintVtildePM[pm][Rep][II,JJ], PrintAllL[Rep], PrintAllR[Rep], \ PrintAllGALR[Rep], PrintAllGARL[Rep], PrintAllV[Rep], PrintAllVtilde[Rep], \ PrintAllZetaGen[Rep], PrintAllHoloraumy[Rep], \ PrintAllMonodromy[Rep],PrintAllZetatildeGen[Rep], \ PrintAllHoloraumytilde[Rep], PrintAllMonodromytilde[Rep], \ PrintAllVtildePM[pm][Rep], PrintAllVtildePM[pm][Rep], \ ,PrintSigmaProduct[Matrix], PrintLSigmaProduct[Rep], \ PrintRSigmaProduct[Rep]\\n\\nTest Functions: CorrectDimensions[Rep], \ CorrectDimensions[L,R], TransposeTest[Rep], TransposeTest[L,R], \ InverseTest[Rep], InverseTest[L,R], RO[Rep], Chi0Report[L,R], GATest[Rep], \ GATest[L,R], soNTest[Matrices], su2Test[MgenPM[pm]][Rep], \ MutuallyCommuteTest[M1,M2], LinearlyIndependent[Mgen]\\n\\nData generated by \ GenerateAdinkraData[Rep], GenerateAdinkraData[Rep,Orthogonal], \ GenerateAdinkraDataO[Rep], GenerateAdinkraData[Rep,L], or \ GenerateAdinkraData[Rep,L,R]:\\nL[Rep], R[Rep], GALR[Rep], GARL[Rep], \ chi0[Rep], ncis[Rep], ntrans[Rep], V[Rep], Vtilde[Rep], VsoN[Rep], \ VtildesoN[Rep], ZetaGen[Rep], Holoraumy[Rep], Monodromy[Rep], \ ZetatildeGen[Rep], Holoraumytilde[Rep], Monodromytilde[Rep], VPM[pm][Rep], \ VtildePM[pm][Rep], VsoNPM[pm][Rep], VtildesoNPM[pm][Rep] cSoln[V[Rep]], \ cSoln[Vtilde[Rep]]\\n\\n******************************************************\ **********************************\\n*****************************************\ ***********************************************\\n\\nBasisDecomposition:\\\ nIndexRange[BasisDecomposition][Index], Index = mu, ahat, a, d, or \ n\\n\\nGeneral Matrix Tools:\\nsigma[mu], \[Alpha]matrix[ahat], \ \[Beta]matrix[ahat], SigmaProduct[mu1,mu2,...,mun], \ SigmaProductMF[mu1,mu2,...,mun], SigmaMatrixProduct[mu,AnyMatrix], \ \[Rho]matrix[mu,nu], \[Omega]matrix[n][a], Basis[d][a,mu,nu], TestOrthogonal\ \[Sigma], Test\[Rho]Orthogonal, Test\[Omega]Orthogonal[n], \ TestBasisOrthogonal[d], Coeffs[d][Matrix][a,mu,nu]\\n\\nGenerateCoeffs[Rep] \ generates adinkra representation specific functions:\\nLCoeffs[Rep][II], \ CheckLCoeffs[Rep], RCoeffs[Rep][II], CheckRCoeffs[Rep], VCoeffs[Rep][II,JJ], \ CheckVCoeffs[Rep], VtildeCoeffs[Rep][II,JJ], CheckVtildeCoeffs[Rep], \ VPMCoeffs[pm][Rep][II,JJ], CheckVPMCoeffs[pm][Rep], \ VtildePMCoeffs[pm][Rep][II,JJ], CheckVtildePMCoeffs[pm][Rep], \ NumberNonZero[LCoeffsMat], CoeffsSummaryReport[Rep], CoeffsFullReport[Rep], \ CMessage[Rep][mi,si]\\n\\nPrint Functions:\\n PrintSigmaProduct[Matrix], \ PrintBasis[Matrix], PrintLBasis[Rep][II], PrintRBasis[Rep][II], \ PrintGALRBasis[Rep][II,JJ], PrintGARLBasis[Rep][II,JJ], \ PrintVBasis[Rep][II,JJ], PrintVtildeBasis[Rep][II,JJ], \ PrintVPMBasis[pm][Rep][II,JJ], PrintVtildePMBasis[pm][Rep][II,JJ], \ PrintLSigmaProduct[Rep], \ PrintRSigmaProduct[Rep]\\n\\n*************************************************\ ***************************************\\n************************************\ ****************************************************\\n\\nBC4Tools:\\n\\\ nIndexRange[BC4Tools][Index], Index = n, a, \[Mu], A, II, or \ tt\\n\\nFunctions: \\nHPerm[a], H[[a]], S3Perm[\[Mu]], S3[[\[Mu]]], \ VierPerm[A], Vier[[A]], BC4[[n,a,\[Mu],A,II,JJ]] , \ BC4Perm[n,a,\[Mu],A][[II,JJ]], QuaternionTestIJK[Quat], \ QuaternionTestKJI[Quat], Digit[Num,Pow], ell[Rep][tt,a][II,JJ], \ kappa[Rep][ti,a][II,JJ], IellABColor[Rep][[a]], PrintIell[Rep][[a]], \ IellABCode[Rep][[a]], AntisymmetryCheck[Object1], BC4Color[n,a,\[Mu],A][L], \ BC4ColorPerm[n,a,\[Mu],A][L],BC4Boson[n,a,\[Mu],A][L],BC4BosonPerm[n,a,\[Mu],\ A][L], HList,S3List,VierList,PrintBC4Perm[n,a,\[Mu],A],PrintBC4BosonPerm[n,a,\ \[Mu],A],PrintBC4FermionPerm[n,a,\[Mu],A],PrintBC4ColorPerm[n,a,\[Mu],A],L[Q],\ L[Qtilde],L[RepCode]\\n\\n****************************************************\ ************************************\\n***************************************\ *************************************************\\n\\nGraphingTools:\\\ nIndexRange[GraphingTools][list]\\n\\n AdinkraGreen, AdinkraViolet, \ AdinkraOrange, AdinkraRed, padLmatrix[L], adjacencyToEdge[mat,col], \ buildrules[list], Valise, GraphAdinkra[L], GraphAdinkra[L,BuildRules[list], \ ExportAdinkra[L,BuildRules[list],filename]\\n\\n******************************\ **********************************************************\\n*****************\ ***********************************************************************\"\>"],\ "Output", CellChangeTimes->{ 3.750003234323081*^9, 3.75000980275079*^9, 3.7500138150289526`*^9, 3.750013899349115*^9, 3.750013955681652*^9, 3.750017992917305*^9, 3.7500183321126304`*^9, 3.7500841297026377`*^9, {3.750084250225629*^9, 3.7500842690421057`*^9}, 3.750084407570532*^9, 3.7500986491572113`*^9, 3.750098878823106*^9, 3.750101859097068*^9, 3.7578546042167983`*^9, 3.7578550381616344`*^9, 3.7578554384711795`*^9, 3.757869990163679*^9, 3.7578727838714247`*^9, 3.757875094775764*^9, 3.759622762891102*^9, 3.760292312626179*^9, 3.760295849395937*^9, 3.762967584089921*^9, 3.763045226798132*^9, 3.763054423262744*^9}, CellLabel->"Out[4]=",ExpressionUUID->"c9e47033-72db-4fda-aabc-db442542005f"] }, Open ]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Elements of BC2", "Section", CellChangeTimes->{{3.709000276966671*^9, 3.709000298542905*^9}, { 3.710246776410243*^9, 3.710246820664774*^9}, {3.7102470137768197`*^9, 3.7102470638316827`*^9}, {3.7102470956004996`*^9, 3.7102470993237123`*^9}, { 3.710247306361554*^9, 3.7102473071886015`*^9}, {3.7102480199823713`*^9, 3.7102480508951397`*^9}, {3.710269365104596*^9, 3.7102694244939933`*^9}, { 3.7102694757259235`*^9, 3.710269479288127*^9}, {3.710269549546146*^9, 3.7102695913385363`*^9}, {3.710331274571721*^9, 3.710331503668824*^9}, { 3.7103317117077236`*^9, 3.710331757257329*^9}, {3.710332652524535*^9, 3.7103326598709555`*^9}, {3.710332718376302*^9, 3.710332730977022*^9}, { 3.7148660708008394`*^9, 3.7148660747890673`*^9}, {3.714866191818761*^9, 3.7148662096427803`*^9}, {3.757854648114051*^9, 3.75785465651338*^9}},ExpressionUUID->"44e7d03e-a2aa-4c5d-aa86-\ 8c0a0987d766"], Cell[CellGroupData[{ Cell[TextData[{ "HPerm1[a] := ", Cell[BoxData[ FormBox[ OverscriptBox["a", "_"], TraditionalForm]],ExpressionUUID-> "dc967283-ab9a-419d-a43d-bf632786613d"], " with a = 0, 1 ", StyleBox[" where ", FontSize->18], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"(", OverscriptBox["1", "_"], ")"}], " ", "=", " "}], TraditionalForm]], ExpressionUUID->"0f404f6f-12be-44ac-866d-7a67e282d77e"], StyleBox[" ", FontSize->18], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", "1"}], "0"}, {"0", "1"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], CellChangeTimes->{{3.708999541221589*^9, 3.7089995444637737`*^9}}, ExpressionUUID->"97968a96-0d42-4de8-8f86-f3e72b290461"], ", ", Cell[BoxData[ FormBox[ RowBox[{"(", OverscriptBox["0", "_"]}], TraditionalForm]],ExpressionUUID-> "6dbf39b3-736a-43fd-bf49-6d262fc8c6e8"], ") := ()= Identity\nH1[[a]] := ", Cell[BoxData[ FormBox[ SuperscriptBox["H", "a"], TraditionalForm]],ExpressionUUID-> "678e2c10-f6d8-44ee-81b0-ac0dc2c70295"], " = { ", Cell[BoxData[ RowBox[{ RowBox[{"(", ")"}], ",", " ", RowBox[{"(", OverscriptBox["1", "_"], ")"}]}]], CellChangeTimes->{{3.679159519021302*^9, 3.6791596028728476`*^9}, { 3.679159641398695*^9, 3.6791596817102113`*^9}, {3.679159742737025*^9, 3.6791597428307767`*^9}, {3.7063673888364067`*^9, 3.7063674981596603`*^9}, {3.7063676620070314`*^9, 3.7063676738287077`*^9}, {3.707491272742512*^9, 3.7074913395503335`*^9}, { 3.7078264715672827`*^9, 3.7078264724313316`*^9}},ExpressionUUID-> "b550237e-cade-4b86-9c27-2376f990fbd1"], "} (* //First probably needs to be added if HPerm1, S2Perm, etc. are saved \ in a .m file *)" }], "Subsection", CellChangeTimes->{{3.707680183801072*^9, 3.7076802402002983`*^9}, { 3.7076923265560427`*^9, 3.7076923465841885`*^9}, {3.707700370731143*^9, 3.7077003792456303`*^9}, 3.7077004204169855`*^9, {3.707826638123809*^9, 3.7078266809572587`*^9}, {3.7078267185984116`*^9, 3.707826803870289*^9}, { 3.7087832292381763`*^9, 3.7087833713283033`*^9}, 3.7087834078273907`*^9, { 3.7087851516129*^9, 3.7087852227139664`*^9}, {3.7087853420357914`*^9, 3.7087853451669703`*^9}, {3.7087854495959435`*^9, 3.7087854519070754`*^9}, {3.7089990458342543`*^9, 3.708999051161559*^9}, { 3.7089993156226854`*^9, 3.708999470123522*^9}, {3.7089995490150347`*^9, 3.708999616322884*^9}, {3.708999661562472*^9, 3.7089997028558335`*^9}, { 3.708999760820149*^9, 3.7089997657134285`*^9}, {3.7095842996007714`*^9, 3.709584309613344*^9}, {3.7102480921244974`*^9, 3.7102481441074705`*^9}, { 3.7102481852808256`*^9, 3.710248305062677*^9}, {3.710248335320408*^9, 3.710248350608282*^9}, {3.710248395429846*^9, 3.7102484406584325`*^9}, { 3.7102485844926596`*^9, 3.7102486835243235`*^9}, {3.710248730805028*^9, 3.710248751033185*^9}, {3.7102488022071123`*^9, 3.710248842432413*^9}, { 3.710268439533657*^9, 3.7102684536194625`*^9}, {3.7102685373302507`*^9, 3.7102685516180677`*^9}, {3.7102687543306623`*^9, 3.710268809053792*^9}, { 3.710268979201524*^9, 3.710269004079947*^9}, {3.7102690521486964`*^9, 3.71026906199426*^9}, {3.7102692099647226`*^9, 3.7102692440486727`*^9}, { 3.710269630131755*^9, 3.71026973966402*^9}, {3.710269877097881*^9, 3.7102698903986416`*^9}, {3.710269930608941*^9, 3.7102700509948273`*^9}, { 3.710270123311963*^9, 3.710270137297763*^9}, {3.7102701735078344`*^9, 3.710270220909546*^9}, {3.7102702873443456`*^9, 3.710270335407095*^9}, { 3.7103309075217266`*^9, 3.710330910922921*^9}, {3.7103310060043592`*^9, 3.7103310234873595`*^9}, {3.71033108417183*^9, 3.710331107787181*^9}, { 3.710331220083604*^9, 3.710331246913139*^9}, {3.71033179102426*^9, 3.7103320440157304`*^9}, {3.710332076295577*^9, 3.7103321411732874`*^9}, { 3.7103322314064484`*^9, 3.7103322317414675`*^9}, {3.7103322707757006`*^9, 3.7103322927029543`*^9}, {3.7103326270940804`*^9, 3.710332640752862*^9}, { 3.757854666985684*^9, 3.757854676594079*^9}, {3.757854918427384*^9, 3.7578549823215623`*^9}, {3.757855572449476*^9, 3.757855600777751*^9}},ExpressionUUID->"6e52171b-b45f-47ab-b549-\ ab794c63772e"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"HPerm1", "[", "0", "]"}], " ", "=", " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0"}, {"0", "1"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"HPerm1", "[", "1", "]"}], " ", "=", " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", "1"}], "0"}, {"0", "1"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"HPerm1MatrixForm", "[", "ai_", "]"}], ":=", RowBox[{ RowBox[{"HPerm1", "[", "ai", "]"}], "//", "MatrixForm"}]}]}], "Input", CellChangeTimes->{{3.708999647983695*^9, 3.708999682247655*^9}, { 3.708999735709713*^9, 3.7089998523353834`*^9}, {3.7095843649025064`*^9, 3.7095843822675*^9}, {3.7102457614501905`*^9, 3.7102458469790826`*^9}, { 3.7102461198996925`*^9, 3.7102461407318845`*^9}, {3.7102481521849327`*^9, 3.710248167484808*^9}, {3.7103321583742714`*^9, 3.710332188832013*^9}, { 3.7103323017604723`*^9, 3.7103323072547865`*^9}, {3.7103341545764475`*^9, 3.7103341723974667`*^9}, {3.714869726561937*^9, 3.7148697274469876`*^9}, { 3.714870458581806*^9, 3.7148704787019567`*^9}, {3.7148706442854276`*^9, 3.714870645477496*^9}, {3.7148708310611105`*^9, 3.71487086024078*^9}, { 3.7578547010105753`*^9, 3.7578547553215313`*^9}, {3.7578549890749393`*^9, 3.757855008865646*^9}, {3.757855042331297*^9, 3.757855046506089*^9}}, CellLabel->"In[5]:=",ExpressionUUID->"f151b63c-0b9a-4e22-879d-5d604b7cbbde"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"HPerm1MatrixForm", "[", "0", "]"}]], "Input", CellChangeTimes->{{3.710334174713599*^9, 3.710334194034704*^9}, 3.7578547208635206`*^9, {3.75785501129117*^9, 3.7578550113693027`*^9}}, CellLabel->"In[8]:=",ExpressionUUID->"3610b59c-9f37-4e9a-8b0f-f2f7d687e229"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0"}, {"0", "1"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.7148215161475596`*^9, 3.714866026485305*^9, 3.714867460613332*^9, 3.714867504946868*^9, 3.7154683762917213`*^9, {3.7578547736107616`*^9, 3.757854782212652*^9}, {3.757855038188409*^9, 3.757855048835021*^9}, 3.757855606243046*^9, 3.7578699901988955`*^9, 3.7578727839006925`*^9, 3.757875094809931*^9, 3.75962277274086*^9, 3.760292312677168*^9, 3.760295849442841*^9, 3.762967584214013*^9, 3.7630452335675287`*^9, 3.76305442335924*^9}, CellLabel-> "Out[8]//MatrixForm=",ExpressionUUID->"1c237957-5cd1-4981-a09c-\ 7ba476500421"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"H1List", " ", "=", " ", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.7102484537391806`*^9, 3.7102484694010763`*^9}, { 3.7103321939383054`*^9, 3.7103321966674614`*^9}, {3.7103323173733654`*^9, 3.710332324693784*^9}, {3.7578548229860845`*^9, 3.7578548261136045`*^9}, { 3.7578550608255887`*^9, 3.7578550654176116`*^9}}, CellLabel->"In[9]:=",ExpressionUUID->"077d76b6-520d-4697-9f1b-cdc72440f943"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"H1", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"HPerm1", "[", RowBox[{"H1List", "[", RowBox[{"[", "ai", "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"ai", ",", "1", ",", "2"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.7102484710521708`*^9, 3.7102484895242276`*^9}, { 3.7102485336617517`*^9, 3.7102485380180016`*^9}, {3.7103322000656557`*^9, 3.710332203840872*^9}, 3.757854721636368*^9, 3.757855026663293*^9, { 3.7578550696574364`*^9, 3.7578550797780256`*^9}}, CellLabel->"In[10]:=",ExpressionUUID->"fab2ea4a-abe3-4ac3-8621-752459235669"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.714821516163181*^9, 3.714866026507306*^9, 3.7148674606463337`*^9, 3.7148675049778695`*^9, 3.7154683763207235`*^9, {3.757855076974828*^9, 3.757855080132265*^9}, 3.757855606283719*^9, 3.7578699902335796`*^9, 3.757872783936324*^9, 3.757875094873922*^9, 3.759622772761182*^9, 3.7602923127151203`*^9, 3.760295849474084*^9, 3.762967584317123*^9, 3.763045233671434*^9, 3.7630544234592247`*^9}, CellLabel->"Out[10]=",ExpressionUUID->"45605596-c48a-44b4-8115-2d3694d8ad04"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"H1", "[", RowBox[{"[", "1", "]"}], "]"}]], "Input", CellChangeTimes->{{3.7103324551302447`*^9, 3.710332458071413*^9}, 3.7578550967070713`*^9}, CellLabel->"In[11]:=",ExpressionUUID->"1aaa6795-926f-4c44-9668-7938219d791a"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.714821516163181*^9, 3.7148660265183067`*^9, 3.714867460662335*^9, 3.7148675049928703`*^9, 3.715468376338724*^9, {3.7578550842180786`*^9, 3.757855097795841*^9}, 3.7578556063020697`*^9, 3.7578699902494516`*^9, 3.7578727839566584`*^9, 3.757875094888838*^9, 3.7596227727708483`*^9, 3.7602923127307405`*^9, 3.760295849489708*^9, 3.762967584386888*^9, 3.7630452337719173`*^9, 3.763054423544156*^9}, CellLabel->"Out[11]=",ExpressionUUID->"90245b42-9d6f-46ff-a519-733ff462167c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"H1MatrixForm", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"H1", "[", RowBox[{"[", "ai", "]"}], "]"}], "//", "MatrixForm"}], ",", RowBox[{"{", RowBox[{"ai", ",", "1", ",", "2"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.71024850548014*^9, 3.7102485446293793`*^9}, { 3.7103322112612963`*^9, 3.710332214946507*^9}, {3.7578551009695816`*^9, 3.7578551284343195`*^9}}, CellLabel->"In[12]:=",ExpressionUUID->"8e267c62-e59c-43e3-bcdb-4e766ba8eb02"], Cell[BoxData[ RowBox[{"{", RowBox[{ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0"}, {"0", "1"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", "1"}], "0"}, {"0", "1"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "}"}]], "Output", CellChangeTimes->{3.714821516178789*^9, 3.714866026531307*^9, 3.714867460681336*^9, 3.7148675050128717`*^9, 3.7154683763537254`*^9, 3.757855132117618*^9, 3.7578556063243914`*^9, 3.7578699902663155`*^9, 3.7578727839765506`*^9, 3.75787509490816*^9, 3.7596227727829475`*^9, 3.7602923127463617`*^9, 3.7602958495053277`*^9, 3.762967584471879*^9, 3.763045233872066*^9, 3.763054423627824*^9}, CellLabel->"Out[12]=",ExpressionUUID->"921b1ddd-f27b-4137-9d7a-55c6ecec34a7"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "S2Perm[\[Mu]] := (\[Mu]) two element permutation group, \[Mu] = 0, 12 \ with (0) := ()\nS2[[\[Mu]]] := ", Cell[BoxData[ FormBox[ SubsuperscriptBox["S", "2", "\[Mu]"], TraditionalForm]],ExpressionUUID-> "8db08208-6806-43ee-8719-cfd9972a5287"], " = {(), (12)}" }], "Subsection", CellChangeTimes->{{3.7102460850346985`*^9, 3.71024608522571*^9}, { 3.7102461553107185`*^9, 3.7102461742828035`*^9}, {3.710247452081889*^9, 3.710247457982227*^9}, {3.710248851235916*^9, 3.710248858097309*^9}, { 3.7103323635070043`*^9, 3.7103324134078584`*^9}, {3.710332482790827*^9, 3.710332484255911*^9}, {3.7103326136883135`*^9, 3.710332617842551*^9}, { 3.7578551355067997`*^9, 3.7578551558833513`*^9}, 3.757855609889824*^9},ExpressionUUID->"35486548-69c0-4bc3-89e9-\ a4fbcdb9cf25"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"S2Perm", "[", "0", "]"}], " ", "=", " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0"}, {"0", "1"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"S2Perm", "[", "12", "]"}], " ", "=", " ", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "1"}, {"1", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], ";"}]}], "Input", CellChangeTimes->{{3.7102461772919755`*^9, 3.7102462837350636`*^9}, { 3.7103324292147627`*^9, 3.710332430813854*^9}, {3.7148705025833225`*^9, 3.714870505188472*^9}, {3.757855171615288*^9, 3.757855172567746*^9}, { 3.757855293498059*^9, 3.7578553512184753`*^9}}, CellLabel->"In[13]:=",ExpressionUUID->"4c97b92f-708f-4634-884c-7ace6a1deed0"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"S2PermMatrixForm", "[", "mu_", "]"}], ":=", RowBox[{ RowBox[{"S2Perm", "[", "mu", "]"}], "//", "MatrixForm"}]}], ";"}]], "Input", CellChangeTimes->{{3.710246300081999*^9, 3.7102463031901765`*^9}, 3.710332432745964*^9, {3.710334201668141*^9, 3.710334291536281*^9}, 3.7148705067565613`*^9, {3.7578551727818747`*^9, 3.757855173567748*^9}, { 3.757855317905594*^9, 3.757855355289711*^9}}, CellLabel->"In[15]:=",ExpressionUUID->"418562d6-5696-49f0-9ee4-e89c6a554a46"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"S2PermMatrixForm", "[", "0", "]"}]], "Input", CellChangeTimes->{{3.710334297265609*^9, 3.710334320454935*^9}, 3.7578551739736395`*^9, {3.7578553277454095`*^9, 3.7578553282732954`*^9}, { 3.757855360769799*^9, 3.7578553640575705`*^9}}, CellLabel->"In[16]:=",ExpressionUUID->"4eb7d3e1-98b4-46f6-bdec-4e5a69e03ec7"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0"}, {"0", "1"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.714821516194415*^9, 3.714866026561309*^9, 3.714867460723338*^9, 3.714867505052874*^9, 3.7154683763957276`*^9, {3.7578553612084484`*^9, 3.757855364492115*^9}, 3.757855615007016*^9, 3.75786999030285*^9, 3.757872784013876*^9, 3.7578750949627647`*^9, 3.759622772801123*^9, 3.760292312793191*^9, 3.760295849562728*^9, 3.762967584581512*^9, 3.76304523403482*^9, 3.763054423742107*^9}, CellLabel-> "Out[16]//MatrixForm=",ExpressionUUID->"ca8eb34e-42b3-492a-afc7-\ 263c6e39a51d"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"S2List", " ", "=", " ", RowBox[{"{", RowBox[{"0", ",", "12"}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.71024761171402*^9, 3.7102476208715434`*^9}, 3.7578551746676397`*^9, 3.757855370505626*^9}, CellLabel->"In[17]:=",ExpressionUUID->"ed222dad-0230-406d-b631-6350a0129b4c"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"S2", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"S2Perm", "[", RowBox[{"S2List", "[", RowBox[{"[", "mu", "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"mu", ",", "1", ",", "2"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.710247753129108*^9, 3.7102477655128164`*^9}, { 3.7103324394793496`*^9, 3.710332440243393*^9}, {3.710332505411121*^9, 3.7103325057811418`*^9}, {3.757855175021697*^9, 3.757855175768069*^9}, { 3.7578553735937777`*^9, 3.757855373698803*^9}}, CellLabel->"In[18]:=",ExpressionUUID->"f73ded17-b972-4bc8-9aea-b305063b3009"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.7148215162100396`*^9, 3.71486602658331*^9, 3.71486746075134*^9, 3.714867505081876*^9, 3.715468376421729*^9, 3.757855374116967*^9, 3.757855615033811*^9, 3.7578699903320627`*^9, 3.7578727840332613`*^9, 3.757875094995457*^9, 3.759622772825609*^9, 3.760292312824435*^9, 3.7602958495939693`*^9, 3.762967584671921*^9, 3.7630452342055807`*^9, 3.763054423839219*^9}, CellLabel->"Out[18]=",ExpressionUUID->"e8c6bf91-8c10-4a62-aad2-0712dd7f344f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"S2", "[", RowBox[{"[", "2", "]"}], "]"}], "//", "MatrixForm"}]], "Input", CellChangeTimes->{{3.7102477832418303`*^9, 3.710247809700344*^9}, { 3.71033251187549*^9, 3.7103325125575294`*^9}, 3.7578551762883663`*^9, { 3.7578553784675083`*^9, 3.757855378738865*^9}}, CellLabel->"In[19]:=",ExpressionUUID->"59495317-f9f0-4e46-b8c5-acdc1350e870"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "1"}, {"1", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.7148215162256927`*^9, 3.714866026593311*^9, 3.7148674607663407`*^9, 3.7148675050978765`*^9, 3.71546837643573*^9, 3.7578553790257187`*^9, 3.757855615058015*^9, 3.7578699903509083`*^9, 3.757872784062005*^9, 3.7578750950222826`*^9, 3.7596227728352137`*^9, 3.7602923128556786`*^9, 3.7602958496096244`*^9, 3.7629675847553167`*^9, 3.763045234301202*^9, 3.7630544242157383`*^9}, CellLabel-> "Out[19]//MatrixForm=",ExpressionUUID->"e26a0b47-468c-4ed2-9c1e-\ 789633de10b6"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"S2MatrixForm", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"S2", "[", RowBox[{"[", "mu", "]"}], "]"}], "//", "MatrixForm"}], ",", RowBox[{"{", RowBox[{"mu", ",", "1", ",", "2"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.7102476250717835`*^9, 3.7102476637819977`*^9}, 3.7102477585164165`*^9, {3.7102478371319127`*^9, 3.710247841519164*^9}, { 3.710332515222682*^9, 3.7103325284174366`*^9}, {3.7578551768797255`*^9, 3.757855177156375*^9}, {3.757855619243409*^9, 3.757855619322404*^9}}, CellLabel->"In[20]:=",ExpressionUUID->"22a752e8-d7eb-404a-9665-452e027ef74d"], Cell[BoxData[ RowBox[{"{", RowBox[{ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0"}, {"0", "1"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "1"}, {"1", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "}"}]], "Output", CellChangeTimes->{ 3.7148215162256927`*^9, 3.7148660266053114`*^9, 3.714867460784342*^9, 3.7148675051148777`*^9, 3.715468376452731*^9, {3.757855615154239*^9, 3.75785561969947*^9}, 3.757869990367774*^9, 3.757872784073415*^9, 3.757875095041133*^9, 3.759622772840745*^9, 3.760292312871332*^9, 3.760295849625248*^9, 3.762967584840349*^9, 3.7630452344057207`*^9, 3.763054424342704*^9}, CellLabel->"Out[20]=",ExpressionUUID->"287af338-94a5-4bbc-90aa-52f3734f02a0"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"BC2", "[", RowBox[{"[", RowBox[{"n", ",", "a", ",", "\[Mu]"}], "]"}], "]"}], " ", ":=", " ", RowBox[{ SuperscriptBox[ RowBox[{"(", "-", ")"}], "n"], SuperscriptBox[ SubscriptBox[ RowBox[{"(", SubsuperscriptBox["H", "1", "a"], ")"}], "I"], "K"], SuperscriptBox[ SubscriptBox[ RowBox[{"(", SubsuperscriptBox["S", "2", "\[Mu]"], ")"}], "K"], "J"]}]}], TraditionalForm]],ExpressionUUID->"996ba05a-06d8-465c-9fe8-43a9eb26ca3c"], ", n = 1,2; a = 1,2; \[Mu] = 1,2\nBC2Perm[n,a,\[Mu]][[I,J]] = ", Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", "-", ")"}], "n"], SuperscriptBox[ SubscriptBox[ RowBox[{"(", OverscriptBox["a", "_"], ")"}], "I"], "K"], SuperscriptBox[ SubscriptBox[ RowBox[{"(", "\[Mu]", ")"}], "K"], "J"]}], TraditionalForm]], ExpressionUUID->"eb3dd239-7faf-4fd2-a18a-4568d7089d44"], ", n = integers; ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"a", " ", "=", " ", "0"}], ",", RowBox[{"1", ";"}], " "}], TraditionalForm]],ExpressionUUID-> "d022d8fb-5e15-4359-8931-602b87aa1be2"], "\[Mu] =0,12" }], "Subsection", CellChangeTimes->{{3.7088118624625874`*^9, 3.7088119994934254`*^9}, { 3.708999950396992*^9, 3.7090000421842422`*^9}, {3.7090000870698094`*^9, 3.709000103639757*^9}, {3.7102488803465815`*^9, 3.710248881164628*^9}, { 3.710333291925107*^9, 3.710333306207924*^9}, {3.714790779460594*^9, 3.7147907836418333`*^9}, {3.7148661785900044`*^9, 3.7148661886805816`*^9}, { 3.7148680435796757`*^9, 3.71486804522377*^9}, {3.714868435772108*^9, 3.7148684358361115`*^9}, {3.714874208809307*^9, 3.7148742189408865`*^9}, { 3.714874353005554*^9, 3.7148743564717526`*^9}, {3.757855191954412*^9, 3.7578552715779505`*^9}, {3.757855807762944*^9, 3.7578558217942877`*^9}},ExpressionUUID->"48ca3084-f6f8-405e-81b8-\ cd81836330d6"], Cell[BoxData[{ RowBox[{ RowBox[{"BC2Perm", "[", RowBox[{"ni_", ",", "ai_", ",", "mu_"}], "]"}], " ", ":=", " ", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "ni"], RowBox[{ RowBox[{"HPerm1", "[", "ai", "]"}], ".", RowBox[{"S2Perm", "[", "mu", "]"}]}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"BC2PermMatrixForm", "[", RowBox[{"ni_", ",", "ai_", ",", "mu_"}], "]"}], " ", ":=", " ", RowBox[{ RowBox[{"BC2Perm", "[", RowBox[{"ni", ",", "ai", ",", "mu"}], "]"}], "//", "MatrixForm"}]}]}], "Input", CellChangeTimes->{{3.708811992982053*^9, 3.708812078274931*^9}, { 3.709000068826766*^9, 3.709000077103239*^9}, {3.7090001119572325`*^9, 3.709000173784769*^9}, {3.709002178149412*^9, 3.7090021795294914`*^9}, { 3.7103333297702713`*^9, 3.7103334371574135`*^9}, {3.7103337907776394`*^9, 3.7103338366702642`*^9}, {3.71487422530125*^9, 3.7148742255962667`*^9}, 3.7578547234758153`*^9, 3.757855027215053*^9, 3.757855177517906*^9, { 3.7578552803076067`*^9, 3.757855281240014*^9}, {3.757868676748932*^9, 3.757868682915844*^9}}, CellLabel->"In[21]:=",ExpressionUUID->"43a87770-9517-4089-b574-ea819a52f222"], Cell[BoxData[{ RowBox[{ RowBox[{"BC2", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"BC2Perm", "[", RowBox[{"ni", ",", RowBox[{"H1List", "[", RowBox[{"[", "ai", "]"}], "]"}], ",", RowBox[{"S2List", "[", RowBox[{"[", "mu", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"ni", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"ai", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "1", ",", "2"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"BC2MatrixForm", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"BC2", "[", RowBox[{"[", RowBox[{"ni", ",", "ai", ",", "mu"}], "]"}], "]"}], "//", "MatrixForm"}], ",", RowBox[{"{", RowBox[{"ni", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"ai", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "1", ",", "2"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.7103339127996187`*^9, 3.7103340493784304`*^9}, 3.7578551781500826`*^9, {3.757855281621891*^9, 3.7578552831007843`*^9}, { 3.757855630618634*^9, 3.7578556506101775`*^9}, 3.7578688761177998`*^9}, CellLabel->"In[23]:=",ExpressionUUID->"08b65fcc-8f43-481b-a745-ef8d99cdb3b3"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ BC2Color[n,a,\[Mu]][L]:= Flips and Flops the colors of the adinkra matrices L \ according to BC2[[n,a,\[Mu]]] BC2ColorPerm[n,a,\[Mu]]:= Flips and Flops the colors of the adinkra matrices \ L according to BC2Perm[n,a,\[Mu]] (permutation notation)\ \>", "Subsection", CellChangeTimes->{{3.714866234247188*^9, 3.7148663603364*^9}, { 3.7148664133764334`*^9, 3.7148664159355803`*^9}, {3.757856545755759*^9, 3.757856559074096*^9}, {3.7578630733554564`*^9, 3.7578630881076455`*^9}, { 3.757869369452458*^9, 3.7578693700603304`*^9}},ExpressionUUID->"eac0907e-c9b4-493d-8450-\ fc3974c83d8b"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"BC2Color", "[", RowBox[{"ni_", ",", "ai_", ",", "mu_"}], "]"}], "[", "L_", "]"}], ":=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"BC2", "[", RowBox[{"[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"EvenQ", "[", "ni", "]"}], ",", "2", ",", "1"}], "]"}], ",", "ai", ",", "mu"}], "]"}], "]"}], "[", RowBox[{"[", RowBox[{"Ii", ",", "Ji"}], "]"}], "]"}], RowBox[{"L", "[", RowBox[{"[", RowBox[{"Ji", ",", "ii", ",", "jhat"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"Ji", ",", "1", ",", "2"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"Ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jhat", ",", "1", ",", "2"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.714866374873231*^9, 3.71486646558842*^9}, { 3.7148740505192533`*^9, 3.714874053381417*^9}, 3.715730523110341*^9, { 3.757856546582075*^9, 3.757856546800542*^9}, {3.7578630956674185`*^9, 3.757863118051902*^9}}, CellLabel->"In[25]:=",ExpressionUUID->"0d7e9010-2ad1-430d-b6cb-8db2964d09ec"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"BC2ColorPerm", "[", RowBox[{"ni_", ",", "ai_", ",", "mu_"}], "]"}], "[", "L_", "]"}], ":=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"BC2Perm", "[", RowBox[{"ni", ",", "ai", ",", "mu"}], "]"}], "[", RowBox[{"[", RowBox[{"Ii", ",", "Ji"}], "]"}], "]"}], RowBox[{"L", "[", RowBox[{"[", RowBox[{"Ji", ",", "ii", ",", "jhat"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"Ji", ",", "1", ",", "2"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"Ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jhat", ",", "1", ",", "2"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.714866491576906*^9, 3.7148665052376876`*^9}, { 3.7148740447039204`*^9, 3.7148740474780793`*^9}, {3.757856547126253*^9, 3.7578565473460693`*^9}, {3.7578631423311443`*^9, 3.757863158707465*^9}, 3.7578682348694324`*^9}, CellLabel->"In[26]:=",ExpressionUUID->"5f574836-c58b-4f50-ba19-d8f1a7002db5"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ BC2Boson[n,a,\[Mu]][L]:= Flips and Flops the bosons of the adinkra matrices L \ according to BC2[[n,a,\[Mu]]] BC2BosonPerm[n,a,\[Mu]]:= Flips and Flops the bosons of the adinkra matrices \ L according to BC2Perm[n,a,\[Mu]] (permutation notation)\ \>", "Subsection", CellChangeTimes->{{3.714866234247188*^9, 3.7148663603364*^9}, { 3.7148664133764334`*^9, 3.7148664159355803`*^9}, {3.714874610796299*^9, 3.714874624724096*^9}, {3.7578565476300974`*^9, 3.757856548151006*^9}, { 3.757863165715168*^9, 3.757863175011714*^9}},ExpressionUUID->"dff8ffd3-f9f4-4ee5-8942-\ 4063aca34e0e"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"BC2Boson", "[", RowBox[{"ni_", ",", "ai_", ",", "mu_"}], "]"}], "[", "L_", "]"}], ":=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"BC2", "[", RowBox[{"[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"EvenQ", "[", "ni", "]"}], ",", "2", ",", "1"}], "]"}], ",", "ai", ",", "mu"}], "]"}], "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "ji"}], "]"}], "]"}], RowBox[{"L", "[", RowBox[{"[", RowBox[{"Ii", ",", "ji", ",", "jhat"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"ji", ",", "1", ",", "2"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"Ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jhat", ",", "1", ",", "2"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.714866374873231*^9, 3.71486646558842*^9}, { 3.7148740505192533`*^9, 3.714874053381417*^9}, {3.7148746275892596`*^9, 3.714874674638951*^9}, {3.715730386268895*^9, 3.7157304024736075`*^9}, { 3.757856548317198*^9, 3.757856548506632*^9}, {3.7578631785721064`*^9, 3.7578631860912333`*^9}, {3.757868269848883*^9, 3.7578682709243803`*^9}}, CellLabel->"In[27]:=",ExpressionUUID->"4caf032b-173a-4418-8df1-c58166646c0a"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"BC2BosonPerm", "[", RowBox[{"ni_", ",", "ai_", ",", "mu_"}], "]"}], "[", "L_", "]"}], ":=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"BC2Perm", "[", RowBox[{"ni", ",", "ai", ",", "mu"}], "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "ji"}], "]"}], "]"}], RowBox[{"L", "[", RowBox[{"[", RowBox[{"Ii", ",", "ji", ",", "jhat"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"ji", ",", "1", ",", "2"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"Ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jhat", ",", "1", ",", "2"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.714866491576906*^9, 3.7148665052376876`*^9}, { 3.7148740447039204`*^9, 3.7148740474780793`*^9}, {3.714874631929508*^9, 3.7148746801742673`*^9}, {3.757856548751554*^9, 3.7578565489331446`*^9}, { 3.7578682508087482`*^9, 3.757868288874123*^9}}, CellLabel->"In[28]:=",ExpressionUUID->"cede759e-5bb6-46d5-8660-a1f534d2d844"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ BC2Fermion[n,a,\[Mu],A][L]:= Flips and Flops the fermions of the adinkra \ matrices L according to BC2[[n,a,\[Mu],A]] BC2FermionPerm[n,a,\[Mu],A]:= Flips and Flops the fermions of the adinkra \ matrices L according to BC2Perm[n,a,\[Mu],A] (permutation notation)\ \>", "Subsection", CellChangeTimes->{{3.714866234247188*^9, 3.7148663603364*^9}, { 3.7148664133764334`*^9, 3.7148664159355803`*^9}, {3.714874610796299*^9, 3.714874624724096*^9}, {3.7157306443844395`*^9, 3.7157306628669853`*^9}, { 3.757856549145897*^9, 3.7578565497134385`*^9}},ExpressionUUID->"2c263bca-8aba-4d9f-9f4f-\ 0fd4dca97646"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"BC2Fermion", "[", RowBox[{"ni_", ",", "ai_", ",", "mu_"}], "]"}], "[", "L_", "]"}], ":=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"BC2", "[", RowBox[{"[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"EvenQ", "[", "ni", "]"}], ",", "2", ",", "1"}], "]"}], ",", "ai", ",", "mu"}], "]"}], "]"}], "[", RowBox[{"[", RowBox[{"jhat", ",", "khat"}], "]"}], "]"}], RowBox[{"L", "[", RowBox[{"[", RowBox[{"Ii", ",", "ii", ",", "khat"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"khat", ",", "1", ",", "2"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"Ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jhat", ",", "1", ",", "2"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.714866374873231*^9, 3.71486646558842*^9}, { 3.7148740505192533`*^9, 3.714874053381417*^9}, {3.7148746275892596`*^9, 3.714874674638951*^9}, {3.715730386268895*^9, 3.7157304024736075`*^9}, { 3.715730667867589*^9, 3.7157306720240555`*^9}, {3.715730725618203*^9, 3.7157307549648685`*^9}, {3.757856549877554*^9, 3.757856550069691*^9}, { 3.757868251576067*^9, 3.7578682895812674`*^9}}, CellLabel->"In[29]:=",ExpressionUUID->"cf4e08e8-7acf-4adc-8967-c993a81d4036"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"BC2FermionPerm", "[", RowBox[{"ni_", ",", "ai_", ",", "mu_"}], "]"}], "[", "L_", "]"}], ":=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"BC2Perm", "[", RowBox[{"ni", ",", "ai", ",", "mu"}], "]"}], "[", RowBox[{"[", RowBox[{"jhat", ",", "khat"}], "]"}], "]"}], RowBox[{"L", "[", RowBox[{"[", RowBox[{"Ii", ",", "ii", ",", "khat"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"khat", ",", "1", ",", "2"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"Ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jhat", ",", "1", ",", "2"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.714866491576906*^9, 3.7148665052376876`*^9}, { 3.7148740447039204`*^9, 3.7148740474780793`*^9}, {3.714874631929508*^9, 3.7148746801742673`*^9}, {3.7157306748682346`*^9, 3.715730676837201*^9}, 3.7157307751840525`*^9, {3.7578565502560196`*^9, 3.7578565504394865`*^9}, { 3.757868252404519*^9, 3.75786827481439*^9}}, CellLabel->"In[30]:=",ExpressionUUID->"df909857-e77b-43b7-ac63-6ddb5af50266"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[{ FormBox[ RowBox[{ RowBox[{ RowBox[{"L", "[", "RepNumber", "]"}], "[", RowBox[{"[", RowBox[{"i", ",", "jhat"}], "]"}], "]"}], ":=", RowBox[{ SuperscriptBox[ SubscriptBox[ RowBox[{"(", SubsuperscriptBox["L", "I", "sa\[Mu]\[Nu]"], ")"}], "i"], OverscriptBox["j", "^"]], "=", " ", RowBox[{ SuperscriptBox[ RowBox[{"(", "-", ")"}], "n"], SuperscriptBox[ SubscriptBox[ RowBox[{"(", SubsuperscriptBox["H", "1", "a"], ")"}], "i"], "j"], SuperscriptBox[ SubscriptBox[ RowBox[{"(", SubsuperscriptBox["S", "2", "\[Mu]"], ")"}], "j"], "k"], SuperscriptBox[ SubscriptBox[ RowBox[{"(", SubsuperscriptBox["S", "2", "\[Nu]"], ")"}], "I"], "J"], SuperscriptBox[ SubscriptBox[ RowBox[{"(", SubsuperscriptBox["L", "J", RowBox[{"(", "0", ")"}]], ")"}], "k"], OverscriptBox["j", "^"]]}]}]}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{ RowBox[{"L", "[", "GR220", "]"}], ":=", RowBox[{ SuperscriptBox[ SubscriptBox[ RowBox[{"(", SubsuperscriptBox["L", "J", RowBox[{"(", "0", ")"}]], ")"}], "k"], OverscriptBox["j", "^"]], " ", "=", " ", TagBox[ RowBox[{"{", RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0"}, {"0", "1"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}]}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}]}], ",", TagBox[ RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{"-", "1"}]}, {"1", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], "}"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{"RepNumber", " ", "=", " ", "sa\[Mu]\[Nu]"}], ",", " ", RowBox[{ RowBox[{"s", " ", "=", " ", RowBox[{"\[PlusMinus]", "1"}]}], ";", " ", "a"}], " ", ",", " ", "\[Mu]", ",", RowBox[{"\[Nu]", "=", "1"}], ",", RowBox[{"2", ";", " ", RowBox[{"n", "=", " ", RowBox[{ RowBox[{"1", " ", "for", " ", "s"}], " ", "=", " ", RowBox[{"-", "1"}]}]}]}], ",", " ", RowBox[{ RowBox[{"2", " ", "for", " ", "s"}], "=", RowBox[{"+", "1"}]}]}], TraditionalForm]}], FormatType-> "TraditionalForm",ExpressionUUID->"4eef3545-e21c-4548-bd67-0f91e4ae1fa6"]], \ "Section", CellChangeTimes->{{3.7578557191211295`*^9, 3.7578557927702136`*^9}, { 3.757855838037718*^9, 3.7578560609633255`*^9}, {3.7578560936849685`*^9, 3.7578560936849685`*^9}, {3.757856578506708*^9, 3.7578566069465*^9}, { 3.7578690793412085`*^9, 3.7578691064209986`*^9}, {3.7578691390694704`*^9, 3.7578691970449505`*^9}},ExpressionUUID->"9396c1ac-709c-4c71-b250-\ f143f43d14e7"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"L", "[", "GR220", "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.7578561023527513`*^9, 3.7578561474663672`*^9}, { 3.7578562286695995`*^9, 3.7578562509137754`*^9}, {3.7578689371169844`*^9, 3.7578689379481745`*^9}}, CellLabel->"In[31]:=",ExpressionUUID->"d0a2c9ec-521a-439b-be20-8b4a295cb148"], Cell[BoxData[ RowBox[{ RowBox[{"FillL2", "[", "RepNumber_", "]"}], " ", ":=", " ", RowBox[{ RowBox[{"BC2Boson", "[", RowBox[{ RowBox[{"NegToOnePosToTwo", "[", "RepNumber", "]"}], ",", RowBox[{"Digit", "[", RowBox[{ RowBox[{"Abs", "[", "RepNumber", "]"}], ",", "2"}], "]"}], ",", RowBox[{"Digit", "[", RowBox[{ RowBox[{"Abs", "[", "RepNumber", "]"}], ",", "1"}], "]"}]}], "]"}], "[", RowBox[{ RowBox[{"BC2Color", "[", RowBox[{"2", ",", "1", ",", RowBox[{"Digit", "[", RowBox[{ RowBox[{"Abs", "[", "RepNumber", "]"}], ",", "0"}], "]"}]}], "]"}], "[", RowBox[{"L", "[", "GR220", "]"}], "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.757856286135379*^9, 3.757856304857933*^9}, { 3.757856435744181*^9, 3.757856464122446*^9}, 3.757856550666041*^9, 3.7578682757687297`*^9, {3.7578684470923214`*^9, 3.757868447956207*^9}, { 3.7578685160201807`*^9, 3.7578685454654913`*^9}, {3.7578686135801163`*^9, 3.757868635132139*^9}, 3.757868942396351*^9, {3.7578699994218454`*^9, 3.7578700016123905`*^9}}, CellLabel->"In[32]:=",ExpressionUUID->"4a33dbbc-43b6-41d2-ad3c-42c166ea6050"], Cell[BoxData[ RowBox[{ RowBox[{"RepNumberList", " ", "=", " ", RowBox[{"{", RowBox[{ "111", ",", "112", ",", "121", ",", "122", ",", "211", ",", "212", ",", "221", ",", "222", ",", RowBox[{"-", "111"}], ",", RowBox[{"-", "112"}], ",", RowBox[{"-", "121"}], ",", RowBox[{"-", "122"}], ",", RowBox[{"-", "211"}], ",", RowBox[{"-", "212"}], ",", RowBox[{"-", "221"}], ",", RowBox[{"-", "222"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.757872823167256*^9, 3.757872831316801*^9}}, CellLabel->"In[33]:=",ExpressionUUID->"bac5f0b1-1276-4f1f-8040-c9edbdb08af4"], Cell[BoxData[ RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"L", "[", "RepNumber", "]"}], " ", "=", " ", RowBox[{"FillL2", "[", "RepNumber", "]"}]}], ",", RowBox[{"{", RowBox[{"RepNumber", ",", RowBox[{"{", RowBox[{ "111", ",", "112", ",", "121", ",", "122", ",", "211", ",", "212", ",", "221", ",", "222", ",", RowBox[{"-", "111"}], ",", RowBox[{"-", "112"}], ",", RowBox[{"-", "121"}], ",", RowBox[{"-", "122"}], ",", RowBox[{"-", "211"}], ",", RowBox[{"-", "212"}], ",", RowBox[{"-", "221"}], ",", RowBox[{"-", "222"}]}], "}"}]}], "}"}]}], "]"}], ";"}]], "Input", CellChangeTimes->{{3.757869946064211*^9, 3.7578699479083986`*^9}, { 3.7578700058123646`*^9, 3.7578700892449284`*^9}}, CellLabel->"In[34]:=",ExpressionUUID->"fc5e2629-0dbb-4347-a2ba-027080c0dc59"], Cell[BoxData[ RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"R", "[", "RepNumber", "]"}], "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Transpose", "[", RowBox[{ RowBox[{"L", "[", "RepNumber", "]"}], "[", RowBox[{"[", "II", "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"II", ",", "1", ",", "2"}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"RepNumber", ",", RowBox[{"{", RowBox[{ "111", ",", "112", ",", "121", ",", "122", ",", "211", ",", "212", ",", "221", ",", "222", ",", RowBox[{"-", "111"}], ",", RowBox[{"-", "112"}], ",", RowBox[{"-", "121"}], ",", RowBox[{"-", "122"}], ",", RowBox[{"-", "211"}], ",", RowBox[{"-", "212"}], ",", RowBox[{"-", "221"}], ",", RowBox[{"-", "222"}]}], "}"}]}], "}"}]}], "]"}], ";"}]], "Input", CellChangeTimes->{{3.757872485910781*^9, 3.757872516950058*^9}, { 3.7578725556143403`*^9, 3.757872568286466*^9}}, CellLabel->"In[35]:=",ExpressionUUID->"b0c75365-e1b0-4713-b95c-6f7c7163c4db"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GenerateAdinkraData", "[", "111", "]"}]], "Input", CellChangeTimes->{{3.7578726126551666`*^9, 3.7578726193809333`*^9}}, CellLabel->"In[36]:=",ExpressionUUID->"bcf1040b-53ab-4beb-bd4d-fa5279a88789"], Cell[BoxData["\<\"L, R, GALR, GARL, V, Vtilde, ZetaGen, Holoraumy[Rep], \ Monodromy[Rep], ZetatildeGen, Holoraumytilde[Rep], Monodromytilde[Rep], \ cSoln[V], cSoln[Vtilde] are loaded for Rep = 111\"\>"], "Print", CellChangeTimes->{3.7578726205918846`*^9, 3.757872784209317*^9, 3.757875095236513*^9, 3.759622789261797*^9, 3.7602923131458955`*^9, 3.76029585080244*^9, 3.762967585100294*^9, 3.763045265468071*^9, 3.7630544245107603`*^9}, CellLabel-> "During evaluation of \ In[36]:=",ExpressionUUID->"b0b8332c-9d41-4672-bf8f-961c84b32581"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"AdinkraReport", "[", RowBox[{"111", ",", "8"}], "]"}]], "Input", CellChangeTimes->{{3.7578725286392736`*^9, 3.757872534253087*^9}, { 3.7578725757422476`*^9, 3.757872575820676*^9}, {3.7578726344465637`*^9, 3.7578726466703367`*^9}}, CellLabel->"In[37]:=",ExpressionUUID->"a7a56ee8-80e3-492e-bf7c-92d7e4fb1242"], Cell[BoxData[ TagBox[GridBox[{ { TagBox[GridBox[{ { TagBox[GridBox[{ { TagBox[GridBox[{ { TagBox[GridBox[{ {"\<\"N = 2\"\>"}, {"\<\"dbosons x dfermions = 2 \[Times] 2\"\>"}, {"\<\"GATest = True\"\>"}, {"\<\"InverseTest = True\"\>"}, {"\<\"TransposeTest = True\"\>"} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{ "Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}], "Column"]}, {"\<\"LinearlyIndependent[V] = True\"\>"}, {"\<\"LinearlyIndependent[Vtilde] = True\"\>"} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{ "Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}], "Column"]}, {"\<\"\\!\\(\\*SuperscriptBox[TagBox[\\\"2\\\", HoldForm], \ \\\"N\\\"]\\) distinct \\!\\(\\*SubscriptBox[\\(\[Zeta]\\), \\(I\\)]\\); \ \\!\\(\\*SuperscriptBox[TagBox[\\\"2\\\", HoldForm], \ RowBox[{RowBox[{\\\"-\\\", \\\"1\\\"}], \\\"+\\\", \\\"N\\\"}]]\\) distinct |\ \\!\\(\\*SubscriptBox[OverscriptBox[\\(\[Zeta]\\), \\(~\\)], \ \\(I\\)]\\)|\"\>"}, {"\<\"\\!\\(\\*SuperscriptBox[TagBox[\\\"2\\\", HoldForm], \ \\\"N\\\"]\\) distinct \\!\\(\\*SubscriptBox[OverscriptBox[\\(\[Zeta]\\), \ \\(~\\)], \\(I\\)]\\); \\!\\(\\*SuperscriptBox[TagBox[\\\"2\\\", \ HoldForm], RowBox[{RowBox[{\\\"-\\\", \\\"1\\\"}], \\\"+\\\", \\\"N\\\"}]]\\) \ distinct |\\!\\(\\*SubscriptBox[OverscriptBox[\\(\[Zeta]\\), \\(~\\)], \ \\(I\\)]\\)|\"\>"}, {"\<\"\\!\\(\\*SubscriptBox[\\(\[Zeta]\\), \\(I\\)]\\) \[Alpha] \ \\!\\(\\*SubscriptBox[\\(V\\), \\(1 I\\)]\\) = True; \ \\!\\(\\*SubscriptBox[OverscriptBox[\\(\[Zeta]\\), \\(~\\)], \\(I\\)]\\) \ \[Alpha] \\!\\(\\*SubscriptBox[OverscriptBox[\\(V\\), \\(~\\)], \\(1 \ I\\)]\\) = True\"\>"} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}], "Column"]}, {"\<\"AllsoNTest = True\"\>"} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}], "Column"]}, {"\<\"soNTest[VsoN] = True\"\>"}, {"\<\"soNTest[VtildesoN] = True\"\>"} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}], "Column"]], "Output", CellChangeTimes->{ 3.7578725362683496`*^9, {3.7578725713246975`*^9, 3.7578725762241554`*^9}, { 3.7578726233104725`*^9, 3.7578726469247255`*^9}, 3.7578727842609015`*^9, 3.757875095258339*^9, 3.7596227893408346`*^9, 3.7602923131908293`*^9, 3.760295850855247*^9, 3.7629675851628447`*^9, 3.763045265617744*^9, 3.763054424555331*^9}, CellLabel->"Out[37]=",ExpressionUUID->"24e476ea-7764-4b93-876d-670e7a1dca10"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"V", "[", "111", "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.75787258889497*^9, 3.7578726042925777`*^9}}, CellLabel->"In[38]:=",ExpressionUUID->"ab465f31-026b-42b8-a44f-0bbc1fc99a1f"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "\[ImaginaryI]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[ImaginaryI]", ",", "0"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.757872597252006*^9, 3.7578726253092594`*^9}, 3.757872784277776*^9, 3.757875095274211*^9, 3.7596227893511343`*^9, 3.7602923132101*^9, 3.760295850870887*^9, 3.762967585240005*^9, 3.763045265721903*^9, 3.763054424627347*^9}, CellLabel->"Out[38]=",ExpressionUUID->"485c2f52-60f6-4bd8-a605-38589fe4cdb9"] }, Open ]], Cell[CellGroupData[{ Cell["Some Tests of L[RepNumber]: seems to be working", "Subsection", CellChangeTimes->{{3.7578693480759897`*^9, 3.7578693504278235`*^9}, { 3.757869710908194*^9, 3.757869724612299*^9}, {3.757869865459984*^9, 3.757869885427783*^9}, {3.7578701022678647`*^9, 3.7578701026681013`*^9}},ExpressionUUID->"cd496fba-52e8-4543-9dac-\ e98b27534e24"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"L", "[", "111", "]"}], "\[Equal]", RowBox[{"L", "[", "GR220", "]"}]}]], "Input", CellChangeTimes->{{3.7578693109536343`*^9, 3.757869333148929*^9}}, CellLabel->"In[39]:=",ExpressionUUID->"33882d06-b549-4299-9d34-b3e177e422c4"], Cell[BoxData["True"], "Output", CellChangeTimes->{{3.7578693156229043`*^9, 3.757869333656803*^9}, 3.7578700962221527`*^9, 3.7578727843025827`*^9, 3.757875095306449*^9, 3.7596227893752775`*^9, 3.7602923132475557`*^9, 3.76029585091184*^9, 3.7629675853363323`*^9, 3.763045265842762*^9, 3.763054424742152*^9}, CellLabel->"Out[39]=",ExpressionUUID->"f0599b44-3a2a-4297-9d30-5cdccabcd085"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"L", "[", RowBox[{"-", "111"}], "]"}], " ", "\[Equal]", " ", RowBox[{"-", " ", RowBox[{"L", "[", "GR220", "]"}]}]}]], "Input", CellChangeTimes->{{3.7578693356580515`*^9, 3.7578693405721073`*^9}}, CellLabel->"In[40]:=",ExpressionUUID->"7626ca6e-e76a-430a-b5b9-063ac7912c82"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.7578693411738253`*^9, 3.7578700963074646`*^9, 3.757872784315986*^9, 3.757875095321825*^9, 3.759622789380796*^9, 3.760292313264388*^9, 3.760295850929016*^9, 3.762967585422329*^9, 3.7630452659317923`*^9, 3.763054424826498*^9}, CellLabel->"Out[40]=",ExpressionUUID->"ddc7de0c-b699-4cff-a9c7-3788a4bf2fab"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"HPerm1", "[", "1", "]"}]], "Input", CellLabel->"In[41]:=",ExpressionUUID->"a5ab8efb-c440-4201-b47d-a0e7f5bbaa28"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.757869534805498*^9, 3.757870096335737*^9, 3.7578727843293657`*^9, 3.757875095337201*^9, 3.7596227893948936`*^9, 3.760292313280012*^9, 3.7602958509459543`*^9, 3.762967585571005*^9, 3.7630452660199137`*^9, 3.7630544249703817`*^9}, CellLabel->"Out[41]=",ExpressionUUID->"6552e2ae-e95e-4c31-b830-8e2a7818794c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"L", "[", RowBox[{"-", "221"}], "]"}], "\[Equal]", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"HPerm1", "[", "1", "]"}], ".", RowBox[{"S2Perm", "[", "12", "]"}], ".", RowBox[{ RowBox[{"L", "[", "GR220", "]"}], "[", RowBox[{"[", "II", "]"}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"II", ",", "1", ",", "2"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.757869407906273*^9, 3.757869577924522*^9}, { 3.7578696417297535`*^9, 3.757869646461195*^9}}, CellLabel->"In[42]:=",ExpressionUUID->"48ef642f-b7fa-4c0c-b7a3-0571b67a8dd2"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.7578695799062343`*^9, 3.7578696475180483`*^9, 3.7578700963521543`*^9, 3.7578727849236937`*^9, 3.757875095351585*^9, 3.759622789400926*^9, 3.760292313295634*^9, 3.760295850962964*^9, 3.762967585805064*^9, 3.763045266101301*^9, 3.76305442690908*^9}, CellLabel->"Out[42]=",ExpressionUUID->"7df68f54-e58b-48a8-b0fd-9822b016eaa7"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"L", "[", "212", "]"}], "\[Equal]", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"HPerm1", "[", "1", "]"}], ".", RowBox[{"S2Perm", "[", "0", "]"}], ".", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"S2Perm", "[", "12", "]"}], "[", RowBox[{"[", RowBox[{"II", ",", "JJ"}], "]"}], "]"}], RowBox[{ RowBox[{"L", "[", "GR220", "]"}], "[", RowBox[{"[", "JJ", "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"JJ", ",", "1", ",", "2"}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"II", ",", "1", ",", "2"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.757869407906273*^9, 3.757869577924522*^9}, { 3.7578696417297535`*^9, 3.757869700812859*^9}}, CellLabel->"In[43]:=",ExpressionUUID->"a6696083-8fa2-4ce8-930a-2c09aa745268"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.7578695799062343`*^9, 3.7578696475180483`*^9, 3.75786970395829*^9, 3.757870096368026*^9, 3.7578727850427303`*^9, 3.7578750953659687`*^9, 3.7596227894109263`*^9, 3.7602923133112926`*^9, 3.7602958509751196`*^9, 3.762967586075173*^9, 3.763045266185006*^9, 3.763054426997333*^9}, CellLabel->"Out[43]=",ExpressionUUID->"e5912f58-a266-4f3b-ad9b-40f329a11154"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"L", "[", RowBox[{"-", "111111"}], "]"}]], "Input", CellChangeTimes->{{3.7578697287427216`*^9, 3.7578697342278724`*^9}}, CellLabel->"In[44]:=",ExpressionUUID->"3161ebb8-99eb-4a54-a8ac-c5dde26738e5"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", RowBox[{"-", "1"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"-", "1"}], ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.757869734736478*^9, 3.757870096387866*^9, 3.7578727850615983`*^9, 3.757875095382388*^9, 3.759622789424614*^9, 3.7602923133425527`*^9, 3.7602958559146233`*^9, 3.762967586475539*^9, 3.763045266324017*^9, 3.763054427071631*^9}, CellLabel->"Out[44]=",ExpressionUUID->"f200a801-7e9f-4909-a0a4-aaaf4dcc40da"] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "HYMNS, LRaised[Node][Rep][[I]] := ", Cell[BoxData[ FormBox[ RowBox[{"M", " ", SubscriptBox["L", "I"]}], TraditionalForm]],ExpressionUUID-> "44bdd441-7352-48ef-b5a0-ed20be2793f4"], ", RRaised[Node][Rep][[II]]:= ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["R", "I"], SuperscriptBox["M", RowBox[{"-", "1"}]]}], TraditionalForm]], FormatType->"TraditionalForm",ExpressionUUID-> "f10b6bd6-f86b-41a9-b2b9-f64d2eabdd5c"], "\nLRaised and RRaised satisfy GR(2,2)" }], "Section", CellChangeTimes->{{3.7578698974122505`*^9, 3.757869898140072*^9}, { 3.7578752853972845`*^9, 3.7578753901669893`*^9}, {3.7578754315573397`*^9, 3.7578754377572765`*^9}, {3.7602926066817703`*^9, 3.760292647510888*^9}},ExpressionUUID->"be429d5e-34cf-4590-b611-\ 11920ccdee5e"], Cell[CellGroupData[{ Cell["Raising Operator: RaiseOpM[m,word]", "Subsection", CellChangeTimes->{{3.7596245443738956`*^9, 3.7596245556397014`*^9}},ExpressionUUID->"2624b753-61dd-4fe0-9996-\ 8e0df1efec3c"], Cell[BoxData[ RowBox[{ RowBox[{"RaiseOpM", "[", RowBox[{"m_", ",", "word_"}], "]"}], ":=", " ", RowBox[{"(", "\[NoBreak]", GridBox[{ { SuperscriptBox["m", RowBox[{ RowBox[{"IntegerDigits", "[", RowBox[{"word", ",", "2", ",", "2"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]], "0"}, {"0", SuperscriptBox["m", RowBox[{ RowBox[{"IntegerDigits", "[", RowBox[{"word", ",", "2", ",", "2"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}]}]], "Input", CellChangeTimes->{{3.7578711404653416`*^9, 3.757871246972503*^9}, { 3.75787324365494*^9, 3.757873254556776*^9}, {3.759622880870636*^9, 3.759622927391048*^9}, {3.759623224770714*^9, 3.759623310170678*^9}, { 3.7596234859502463`*^9, 3.759623497090431*^9}, 3.7596235350004587`*^9, { 3.7596238364599843`*^9, 3.759623862209779*^9}, {3.7596239278200827`*^9, 3.7596239285402966`*^9}, {3.763045280630157*^9, 3.763045284212359*^9}}, CellLabel->"In[45]:=",ExpressionUUID->"c85aeb82-181a-4afd-a1cb-a567cfdf2582"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"LRaised", "[", "Rep_", "]"}], "[", RowBox[{"m_", ",", "word_"}], "]"}], ":=", RowBox[{"Table", "[", " ", RowBox[{ RowBox[{ RowBox[{"RaiseOpM", "[", RowBox[{"m", ",", "word"}], "]"}], ".", RowBox[{ RowBox[{"L", "[", "Rep", "]"}], "[", RowBox[{"[", "II", "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"II", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"RRaised", "[", "Rep_", "]"}], "[", RowBox[{"mu_", ",", "word_"}], "]"}], " ", ":=", RowBox[{"Table", "[", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"R", "[", "Rep", "]"}], "[", RowBox[{"[", "II", "]"}], "]"}], ".", RowBox[{"Inverse", "[", RowBox[{"RaiseOpM", "[", RowBox[{"mu", ",", "word"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"II", ",", "1", ",", "2"}], "}"}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.7578748902001057`*^9, 3.7578749798777447`*^9}, { 3.7578750118732033`*^9, 3.7578750173588123`*^9}, {3.759623968040013*^9, 3.759624055330027*^9}, {3.7596241012999115`*^9, 3.759624114279927*^9}}, CellLabel->"In[46]:=",ExpressionUUID->"a9d5e0bf-d3e2-4760-83e2-64ff9208f2e1"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"RRaised", "[", RowBox[{"-", "212"}], "]"}], "[", RowBox[{"\[Mu]", ",", "1"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]], "Input", CellChangeTimes->{{3.757874985327688*^9, 3.757875025718549*^9}, { 3.759624137719934*^9, 3.75962417589968*^9}}, CellLabel->"In[48]:=",ExpressionUUID->"98e47ab0-31e8-44d5-90ae-691ad36e09d9"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ FractionBox["1", "\[Mu]"], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "1"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.7578749888859034`*^9, 3.7578750260501194`*^9}, 3.7578750954403715`*^9, {3.7596241479891434`*^9, 3.759624176665412*^9}, 3.760292313405066*^9, 3.7602925844740167`*^9, 3.76029266621881*^9, 3.760295856045947*^9, 3.762967586618085*^9, {3.763045326812399*^9, 3.763045350169427*^9}, 3.763054427169083*^9}, CellLabel->"Out[48]=",ExpressionUUID->"83fbab7d-0ca1-489d-8278-c3c6a47c398a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GATest", "[", RowBox[{ RowBox[{ RowBox[{"LRaised", "[", RowBox[{"-", "212"}], "]"}], "[", RowBox[{"m", ",", "3"}], "]"}], ",", RowBox[{ RowBox[{"RRaised", "[", RowBox[{"-", "212"}], "]"}], "[", RowBox[{"m", ",", "3"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.7578750983520713`*^9, 3.7578751118454638`*^9}, { 3.75962419399998*^9, 3.75962421377377*^9}}, CellLabel->"In[49]:=",ExpressionUUID->"bc3dfb24-1e9d-471d-b7a7-b806c0359e6b"], Cell[BoxData["True"], "Output", CellChangeTimes->{ 3.7602923134206047`*^9, 3.760292584489678*^9, 3.76029266625002*^9, 3.760295856061611*^9, 3.762967586698962*^9, {3.763045326920354*^9, 3.763045350286783*^9}, 3.763054427218173*^9}, CellLabel->"Out[49]=",ExpressionUUID->"ae00081f-87d0-47c2-9fe1-16d1af8aa571"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GATest", "[", RowBox[{ RowBox[{ RowBox[{"LRaised", "[", RowBox[{"-", "212"}], "]"}], "[", RowBox[{"m", ",", "3"}], "]"}], ",", RowBox[{ RowBox[{"RRaised", "[", RowBox[{"-", "212"}], "]"}], "[", RowBox[{ RowBox[{"m", "/", "\[Rho]"}], ",", "3"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.7578750983520713`*^9, 3.7578751118454638`*^9}, { 3.75962419399998*^9, 3.7596242249099803`*^9}, {3.763045330028389*^9, 3.763045335104951*^9}}, CellLabel->"In[50]:=",ExpressionUUID->"d9937067-8452-4fe4-bad1-6226f27be0ae"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[Rho]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"2", " ", "\[Rho]"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[Rho]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"2", " ", "\[Rho]"}]}], "}"}]}], "}"}]}], "}"}]}], "}"}], "\[Equal]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "2"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "2"}], "}"}]}], "}"}]}], "}"}]}], "}"}]}], "&&", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[Rho]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"2", " ", "\[Rho]"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[Rho]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"2", " ", "\[Rho]"}]}], "}"}]}], "}"}]}], "}"}]}], "}"}], "\[Equal]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "2"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "2"}], "}"}]}], "}"}]}], "}"}]}], "}"}]}]}]], "Output", CellChangeTimes->{ 3.757875112857037*^9, {3.7596242153888316`*^9, 3.7596242254801292`*^9}, 3.760292313451894*^9, 3.7602925845245256`*^9, 3.7602926662656755`*^9, 3.76029585607723*^9, 3.762967586871768*^9, {3.763045327032353*^9, 3.7630453504035873`*^9}, 3.763054427287417*^9}, CellLabel->"Out[50]=",ExpressionUUID->"4303e3a7-6ce9-484e-85a5-5790c8eeb4f5"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "/.", RowBox[{"\[Rho]", "\[Rule]", " ", "1"}]}]], "Input", CellChangeTimes->{{3.759624233489869*^9, 3.7596242388199434`*^9}, { 3.763045339138241*^9, 3.76304534715693*^9}}, CellLabel->"In[51]:=",ExpressionUUID->"ba0b13f9-bd2a-4307-9d33-d4de51f48ab2"], Cell[BoxData["True"], "Output", CellChangeTimes->{ 3.7596242392698812`*^9, 3.7602923134675074`*^9, 3.7602925845591354`*^9, 3.760292666299773*^9, 3.7602958560928497`*^9, 3.762967587227168*^9, { 3.763045327136902*^9, 3.763045350517275*^9}, 3.763054427372115*^9}, CellLabel->"Out[51]=",ExpressionUUID->"7686a6a9-9fff-4cb6-a473-c3163202693b"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ Use Yangrui\[CloseCurlyQuote]s definitions: B1 = L1*R1, B2 = L2*R1, B3 = \ R1*L1, B4 = R1*L2, B5 = R2*L1, B6 = R2*L2\ \>", "Subsection", CellChangeTimes->{{3.7596244387889414`*^9, 3.7596244662396107`*^9}, { 3.7596245195620623`*^9, 3.7596245202796116`*^9}},ExpressionUUID->"ffe0ecfc-89c9-401b-8542-\ ae295a1b5419"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"B", "[", "1", "]"}], "[", "Rep_", "]"}], "[", "word_", "]"}], ":=", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"LRaised", "[", "Rep", "]"}], "[", RowBox[{"m", ",", "word"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ".", RowBox[{ RowBox[{ RowBox[{"RRaised", "[", "Rep", "]"}], "[", RowBox[{ RowBox[{"m", "/", "\[Rho]"}], ",", "word"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"B", "[", "2", "]"}], "[", "Rep_", "]"}], "[", "word_", "]"}], ":=", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"LRaised", "[", "Rep", "]"}], "[", RowBox[{"m", ",", "word"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], ".", RowBox[{ RowBox[{ RowBox[{"RRaised", "[", "Rep", "]"}], "[", RowBox[{ RowBox[{"m", "/", "\[Rho]"}], ",", "word"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"B", "[", "3", "]"}], "[", "Rep_", "]"}], "[", "word_", "]"}], ":=", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"RRaised", "[", "Rep", "]"}], "[", RowBox[{ RowBox[{"m", "/", "\[Rho]"}], ",", "word"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ".", RowBox[{ RowBox[{ RowBox[{"LRaised", "[", "Rep", "]"}], "[", RowBox[{"m", ",", "word"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"B", "[", "4", "]"}], "[", "Rep_", "]"}], "[", "word_", "]"}], ":=", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"RRaised", "[", "Rep", "]"}], "[", RowBox[{ RowBox[{"m", "/", "\[Rho]"}], ",", "word"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ".", RowBox[{ RowBox[{ RowBox[{"LRaised", "[", "Rep", "]"}], "[", RowBox[{"m", ",", "word"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"B", "[", "5", "]"}], "[", "Rep_", "]"}], "[", "word_", "]"}], ":=", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"RRaised", "[", "Rep", "]"}], "[", RowBox[{ RowBox[{"m", "/", "\[Rho]"}], ",", "word"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], ".", RowBox[{ RowBox[{ RowBox[{"LRaised", "[", "Rep", "]"}], "[", RowBox[{"m", ",", "word"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"B", "[", "6", "]"}], "[", "Rep_", "]"}], "[", "word_", "]"}], ":=", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"RRaised", "[", "Rep", "]"}], "[", RowBox[{ RowBox[{"m", "/", "\[Rho]"}], ",", "word"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], ".", RowBox[{ RowBox[{ RowBox[{"LRaised", "[", "Rep", "]"}], "[", RowBox[{"m", ",", "word"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}]}]}], "Input", CellChangeTimes->{{3.759624567703635*^9, 3.7596247286595206`*^9}, { 3.759624803169368*^9, 3.7596248496887465`*^9}, {3.763045355741127*^9, 3.763045372917449*^9}}, CellLabel->"In[52]:=",ExpressionUUID->"f76ecb84-d897-4c85-9f2d-666ed0751706"] }, Closed]], Cell[CellGroupData[{ Cell["zero nodes raised: w = 0", "Subsection", CellChangeTimes->{{3.7596252186690226`*^9, 3.759625229509034*^9}, { 3.763045903503067*^9, 3.763045908951254*^9}, {3.763046466097885*^9, 3.763046466895091*^9}},ExpressionUUID->"17d4775d-f8e1-4c36-b370-\ 408f4feb06f3"], Cell[BoxData[{ RowBox[{ RowBox[{"LocalWord", " ", "=", " ", "0"}], ";", " ", RowBox[{"(*", "Valise", " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"BEigens", "[", "1", "]"}], "[", RowBox[{"LocalWord", ",", "2", ",", "2"}], "]"}], " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"RepCounter", ",", "1", ",", "16"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"BEigens", "[", "2", "]"}], "[", RowBox[{"LocalWord", ",", "2", ",", "2"}], "]"}], " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"I", ",", RowBox[{"-", "I"}]}], "}"}], ",", RowBox[{"{", RowBox[{"RepCounter", ",", "1", ",", "16"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"BEigens", "[", "3", "]"}], "[", RowBox[{"LocalWord", ",", "2", ",", "2"}], "]"}], " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"RepCounter", ",", "1", ",", "16"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"BEigens", "[", "4", "]"}], "[", RowBox[{"LocalWord", ",", "2", ",", "2"}], "]"}], " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"I", ",", RowBox[{"-", "I"}]}], "}"}], ",", RowBox[{"{", RowBox[{"RepCounter", ",", "1", ",", "16"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"BEigens", "[", "5", "]"}], "[", RowBox[{"LocalWord", ",", "2", ",", "2"}], "]"}], " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"I", ",", RowBox[{"-", "I"}]}], "}"}], ",", RowBox[{"{", RowBox[{"RepCounter", ",", "1", ",", "16"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"BEigens", "[", "6", "]"}], "[", RowBox[{"LocalWord", ",", "2", ",", "2"}], "]"}], " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"RepCounter", ",", "1", ",", "16"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.76304540869704*^9, 3.763045434956308*^9}, { 3.763045676232058*^9, 3.76304571537681*^9}, {3.763045752621044*^9, 3.763045832033525*^9}, {3.763045961488976*^9, 3.76304611288383*^9}, { 3.763046474471003*^9, 3.763046499183346*^9}}, CellLabel->"In[58]:=",ExpressionUUID->"7ab506e9-b09d-4064-a72e-e7edcb021f3c"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"LocalBEigens", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Eigenvalues", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "Bindex", "]"}], "[", RowBox[{"RepNumberList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}], "[", "LocalWord", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"Bindex", ",", "1", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"RepNo", ",", "1", ",", "16"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"LocalBEigens", " ", "==", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"BEigens", "[", "Bindex", "]"}], "[", RowBox[{"LocalWord", ",", "2", ",", "2"}], "]"}], ",", RowBox[{"{", RowBox[{"Bindex", ",", "1", ",", "6"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "LocalWord", "\[IndentingNewLine]", RowBox[{"Clear", "[", RowBox[{"LocalBEigens", ",", "LocalWord"}], "]"}]}], "Input", CellChangeTimes->{{3.7596247762483854`*^9, 3.7596247973492837`*^9}, { 3.759624862428567*^9, 3.7596249467393703`*^9}, {3.7596249996393104`*^9, 3.7596249997389007`*^9}, {3.759625126019148*^9, 3.7596251717189445`*^9}, { 3.759625246288945*^9, 3.7596252491288996`*^9}, {3.763045845475657*^9, 3.763045900831832*^9}, {3.763046009980217*^9, 3.76304601878785*^9}, { 3.763046067175521*^9, 3.7630460829683437`*^9}, {3.76304611370175*^9, 3.763046115830962*^9}, {3.763046500184552*^9, 3.763046531446299*^9}}, CellLabel->"In[64]:=",ExpressionUUID->"644479e5-7bd5-4096-9e30-e8ddd9a774e6"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[ImaginaryI]", ",", RowBox[{"-", "\[ImaginaryI]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[ImaginaryI]", ",", RowBox[{"-", "\[ImaginaryI]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[ImaginaryI]", ",", RowBox[{"-", "\[ImaginaryI]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[ImaginaryI]", ",", RowBox[{"-", "\[ImaginaryI]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[ImaginaryI]", ",", RowBox[{"-", "\[ImaginaryI]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[ImaginaryI]", ",", RowBox[{"-", "\[ImaginaryI]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[ImaginaryI]", ",", RowBox[{"-", "\[ImaginaryI]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[ImaginaryI]", ",", RowBox[{"-", "\[ImaginaryI]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[ImaginaryI]", ",", RowBox[{"-", "\[ImaginaryI]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[ImaginaryI]", ",", RowBox[{"-", "\[ImaginaryI]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[ImaginaryI]", ",", RowBox[{"-", "\[ImaginaryI]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[ImaginaryI]", ",", RowBox[{"-", "\[ImaginaryI]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[ImaginaryI]", ",", RowBox[{"-", "\[ImaginaryI]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[ImaginaryI]", ",", RowBox[{"-", "\[ImaginaryI]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[ImaginaryI]", ",", RowBox[{"-", "\[ImaginaryI]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[ImaginaryI]", ",", RowBox[{"-", "\[ImaginaryI]"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[ImaginaryI]", ",", RowBox[{"-", "\[ImaginaryI]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[ImaginaryI]", ",", RowBox[{"-", "\[ImaginaryI]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[ImaginaryI]", ",", RowBox[{"-", "\[ImaginaryI]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[ImaginaryI]", ",", RowBox[{"-", "\[ImaginaryI]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[ImaginaryI]", ",", RowBox[{"-", "\[ImaginaryI]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[ImaginaryI]", ",", RowBox[{"-", "\[ImaginaryI]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[ImaginaryI]", ",", RowBox[{"-", "\[ImaginaryI]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[ImaginaryI]", ",", RowBox[{"-", "\[ImaginaryI]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[ImaginaryI]", ",", RowBox[{"-", "\[ImaginaryI]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[ImaginaryI]", ",", RowBox[{"-", "\[ImaginaryI]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[ImaginaryI]", ",", RowBox[{"-", "\[ImaginaryI]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[ImaginaryI]", ",", RowBox[{"-", "\[ImaginaryI]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[ImaginaryI]", ",", RowBox[{"-", "\[ImaginaryI]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[ImaginaryI]", ",", RowBox[{"-", "\[ImaginaryI]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[ImaginaryI]", ",", RowBox[{"-", "\[ImaginaryI]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[ImaginaryI]", ",", RowBox[{"-", "\[ImaginaryI]"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[ImaginaryI]", ",", RowBox[{"-", "\[ImaginaryI]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[ImaginaryI]", ",", RowBox[{"-", "\[ImaginaryI]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[ImaginaryI]", ",", RowBox[{"-", "\[ImaginaryI]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[ImaginaryI]", ",", RowBox[{"-", "\[ImaginaryI]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[ImaginaryI]", ",", RowBox[{"-", "\[ImaginaryI]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[ImaginaryI]", ",", RowBox[{"-", "\[ImaginaryI]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[ImaginaryI]", ",", RowBox[{"-", "\[ImaginaryI]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[ImaginaryI]", ",", RowBox[{"-", "\[ImaginaryI]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[ImaginaryI]", ",", RowBox[{"-", "\[ImaginaryI]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[ImaginaryI]", ",", RowBox[{"-", "\[ImaginaryI]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[ImaginaryI]", ",", RowBox[{"-", "\[ImaginaryI]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[ImaginaryI]", ",", RowBox[{"-", "\[ImaginaryI]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[ImaginaryI]", ",", RowBox[{"-", "\[ImaginaryI]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[ImaginaryI]", ",", RowBox[{"-", "\[ImaginaryI]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[ImaginaryI]", ",", RowBox[{"-", "\[ImaginaryI]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[ImaginaryI]", ",", RowBox[{"-", "\[ImaginaryI]"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.759624872169362*^9, 3.759624878768899*^9}, { 3.7596249187193003`*^9, 3.7596249475591917`*^9}, 3.7596249999892406`*^9, 3.759625172292762*^9, 3.759625250308663*^9, 3.7602923135466948`*^9, 3.7602925846082525`*^9, 3.7602926664022503`*^9, 3.760295856202198*^9, 3.762967588055868*^9, 3.763045350710292*^9, 3.763045388716611*^9, { 3.763045894043848*^9, 3.7630459126461277`*^9}, 3.7630461318103237`*^9, 3.763046538208836*^9, 3.763054427492292*^9}, CellLabel->"Out[64]=",ExpressionUUID->"78279a66-faa0-4d3e-8873-e48402cca14b"], Cell[BoxData["True"], "Output", CellChangeTimes->{{3.759624872169362*^9, 3.759624878768899*^9}, { 3.7596249187193003`*^9, 3.7596249475591917`*^9}, 3.7596249999892406`*^9, 3.759625172292762*^9, 3.759625250308663*^9, 3.7602923135466948`*^9, 3.7602925846082525`*^9, 3.7602926664022503`*^9, 3.760295856202198*^9, 3.762967588055868*^9, 3.763045350710292*^9, 3.763045388716611*^9, { 3.763045894043848*^9, 3.7630459126461277`*^9}, 3.7630461318103237`*^9, 3.763046538208836*^9, 3.763054427507071*^9}, CellLabel->"Out[65]=",ExpressionUUID->"f99c5699-7ba6-4321-a6b1-ce6788588f68"], Cell[BoxData["0"], "Output", CellChangeTimes->{{3.759624872169362*^9, 3.759624878768899*^9}, { 3.7596249187193003`*^9, 3.7596249475591917`*^9}, 3.7596249999892406`*^9, 3.759625172292762*^9, 3.759625250308663*^9, 3.7602923135466948`*^9, 3.7602925846082525`*^9, 3.7602926664022503`*^9, 3.760295856202198*^9, 3.762967588055868*^9, 3.763045350710292*^9, 3.763045388716611*^9, { 3.763045894043848*^9, 3.7630459126461277`*^9}, 3.7630461318103237`*^9, 3.763046538208836*^9, 3.763054427515317*^9}, CellLabel->"Out[66]=",ExpressionUUID->"d41e2d75-318b-4817-9d38-f744741e298e"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["node one raised: w =1", "Subsection", CellChangeTimes->{{3.7596252186690226`*^9, 3.759625229509034*^9}, { 3.759625312938773*^9, 3.759625325448737*^9}, {3.763046569038501*^9, 3.763046569816451*^9}},ExpressionUUID->"44650daf-0c45-4b10-93ed-\ 6a02a9ee457b"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"LocalWord", " ", "=", " ", "1"}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"BEigens", "[", "1", "]"}], "[", RowBox[{"LocalWord", ",", "2", ",", "2"}], "]"}], " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"RepCounter", ",", "1", ",", "16"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"BEigens", "[", "2", "]"}], "[", RowBox[{"LocalWord", ",", "2", ",", "2"}], "]"}], " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "I"}], SqrtBox["\[Rho]"]}], ",", RowBox[{"I", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{"RepCounter", ",", "1", ",", "16"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"BEigens", "[", "3", "]"}], "[", RowBox[{"LocalWord", ",", "2", ",", "2"}], "]"}], " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"RepCounter", ",", "1", ",", "16"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"BEigens", "[", "4", "]"}], "[", RowBox[{"LocalWord", ",", "2", ",", "2"}], "]"}], " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "I"}], SqrtBox["\[Rho]"]}], ",", RowBox[{"I", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{"RepCounter", ",", "1", ",", "16"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"BEigens", "[", "5", "]"}], "[", RowBox[{"LocalWord", ",", "2", ",", "2"}], "]"}], " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "I"}], SqrtBox["\[Rho]"]}], ",", RowBox[{"I", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{"RepCounter", ",", "1", ",", "16"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"BEigens", "[", "6", "]"}], "[", RowBox[{"LocalWord", ",", "2", ",", "2"}], "]"}], " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"RepCounter", ",", "1", ",", "16"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.76304540869704*^9, 3.763045434956308*^9}, { 3.763045676232058*^9, 3.76304571537681*^9}, {3.763045752621044*^9, 3.763045832033525*^9}, {3.763045961488976*^9, 3.76304611288383*^9}, { 3.763046177649984*^9, 3.763046178716967*^9}, {3.763046220591392*^9, 3.763046300394401*^9}, {3.763046502523778*^9, 3.763046503996882*^9}, { 3.763046558962323*^9, 3.763046560533421*^9}, 3.763046966769721*^9}, CellLabel->"In[68]:=",ExpressionUUID->"03be95b6-9678-4f72-ab93-cbc859d785cf"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"LocalBEigens", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Eigenvalues", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "Bindex", "]"}], "[", RowBox[{"RepNumberList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}], "[", "LocalWord", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"Bindex", ",", "1", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"RepNo", ",", "1", ",", "16"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"LocalBEigens", " ", "==", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"BEigens", "[", "Bindex", "]"}], "[", RowBox[{"LocalWord", ",", "2", ",", "2"}], "]"}], ",", RowBox[{"{", RowBox[{"Bindex", ",", "1", ",", "6"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "LocalWord", "\[IndentingNewLine]", RowBox[{"Clear", "[", RowBox[{"LocalBEigens", ",", "LocalWord"}], "]"}]}], "Input", CellChangeTimes->{{3.7596247762483854`*^9, 3.7596247973492837`*^9}, { 3.759624862428567*^9, 3.7596249467393703`*^9}, {3.7596249996393104`*^9, 3.7596249997389007`*^9}, {3.759625126019148*^9, 3.7596251717189445`*^9}, { 3.759625246288945*^9, 3.7596252491288996`*^9}, {3.763045845475657*^9, 3.763045900831832*^9}, {3.763046009980217*^9, 3.76304601878785*^9}, { 3.763046067175521*^9, 3.7630460829683437`*^9}, {3.76304611370175*^9, 3.763046115830962*^9}, 3.763046173514946*^9, {3.763046504372922*^9, 3.763046505514284*^9}, {3.76304654680308*^9, 3.763046551665328*^9}}, CellLabel->"In[75]:=",ExpressionUUID->"70659b3d-6cca-495d-8265-f32a15f27d02"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.759624872169362*^9, 3.759624878768899*^9}, { 3.7596249187193003`*^9, 3.7596249475591917`*^9}, 3.7596249999892406`*^9, 3.759625172292762*^9, 3.759625250308663*^9, 3.7602923135466948`*^9, 3.7602925846082525`*^9, 3.7602926664022503`*^9, 3.760295856202198*^9, 3.762967588055868*^9, 3.763045350710292*^9, 3.763045388716611*^9, { 3.763045894043848*^9, 3.7630459126461277`*^9}, 3.7630461318103237`*^9, 3.76304620203374*^9, 3.763046305249353*^9, 3.7630465637515373`*^9, 3.763054427604142*^9}, CellLabel->"Out[75]=",ExpressionUUID->"b5fa1350-c408-4110-b679-7de1e4521363"], Cell[BoxData["True"], "Output", CellChangeTimes->{{3.759624872169362*^9, 3.759624878768899*^9}, { 3.7596249187193003`*^9, 3.7596249475591917`*^9}, 3.7596249999892406`*^9, 3.759625172292762*^9, 3.759625250308663*^9, 3.7602923135466948`*^9, 3.7602925846082525`*^9, 3.7602926664022503`*^9, 3.760295856202198*^9, 3.762967588055868*^9, 3.763045350710292*^9, 3.763045388716611*^9, { 3.763045894043848*^9, 3.7630459126461277`*^9}, 3.7630461318103237`*^9, 3.76304620203374*^9, 3.763046305249353*^9, 3.7630465637515373`*^9, 3.763054427617519*^9}, CellLabel->"Out[76]=",ExpressionUUID->"491fcd4e-2e4c-4511-b89b-71b334975438"], Cell[BoxData["1"], "Output", CellChangeTimes->{{3.759624872169362*^9, 3.759624878768899*^9}, { 3.7596249187193003`*^9, 3.7596249475591917`*^9}, 3.7596249999892406`*^9, 3.759625172292762*^9, 3.759625250308663*^9, 3.7602923135466948`*^9, 3.7602925846082525`*^9, 3.7602926664022503`*^9, 3.760295856202198*^9, 3.762967588055868*^9, 3.763045350710292*^9, 3.763045388716611*^9, { 3.763045894043848*^9, 3.7630459126461277`*^9}, 3.7630461318103237`*^9, 3.76304620203374*^9, 3.763046305249353*^9, 3.7630465637515373`*^9, 3.763054427625555*^9}, CellLabel->"Out[77]=",ExpressionUUID->"4ecabd05-a5cd-4232-bee3-fcd96ba3c40c"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["node two raised: w =2", "Subsection", CellChangeTimes->{{3.7596252186690226`*^9, 3.759625229509034*^9}, { 3.759625312938773*^9, 3.759625325448737*^9}, {3.7596253745385275`*^9, 3.759625375498519*^9}, {3.763046575563055*^9, 3.7630465761661987`*^9}},ExpressionUUID->"c57554df-6374-4b74-8231-\ b1f3c4b4e8d1"], Cell[BoxData[{ RowBox[{ RowBox[{"LocalWord", " ", "=", " ", "2"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"BEigens", "[", "1", "]"}], "[", RowBox[{"LocalWord", ",", "2", ",", "2"}], "]"}], " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"RepCounter", ",", "1", ",", "16"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"BEigens", "[", "2", "]"}], "[", RowBox[{"LocalWord", ",", "2", ",", "2"}], "]"}], " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "I"}], SqrtBox["\[Rho]"]}], ",", RowBox[{"I", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{"RepCounter", ",", "1", ",", "16"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"BEigens", "[", "3", "]"}], "[", RowBox[{"LocalWord", ",", "2", ",", "2"}], "]"}], " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"RepCounter", ",", "1", ",", "16"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"BEigens", "[", "4", "]"}], "[", RowBox[{"LocalWord", ",", "2", ",", "2"}], "]"}], " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "I"}], SqrtBox["\[Rho]"]}], ",", RowBox[{"I", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{"RepCounter", ",", "1", ",", "16"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"BEigens", "[", "5", "]"}], "[", RowBox[{"LocalWord", ",", "2", ",", "2"}], "]"}], " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "I"}], SqrtBox["\[Rho]"]}], ",", RowBox[{"I", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{"RepCounter", ",", "1", ",", "16"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"BEigens", "[", "6", "]"}], "[", RowBox[{"LocalWord", ",", "2", ",", "2"}], "]"}], " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"RepCounter", ",", "1", ",", "16"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.76304540869704*^9, 3.763045434956308*^9}, { 3.763045676232058*^9, 3.76304571537681*^9}, {3.763045752621044*^9, 3.763045832033525*^9}, {3.763045961488976*^9, 3.76304611288383*^9}, { 3.763046177649984*^9, 3.763046178716967*^9}, {3.763046220591392*^9, 3.763046300394401*^9}, {3.763046443353862*^9, 3.763046446867556*^9}, { 3.7630465061137877`*^9, 3.7630465072479*^9}, {3.763046578711574*^9, 3.763046579540421*^9}, 3.763046973096517*^9}, CellLabel->"In[79]:=",ExpressionUUID->"67d1a661-db9b-436e-b743-2034168bbfc1"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"LocalBEigens", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Eigenvalues", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "Bindex", "]"}], "[", RowBox[{"RepNumberList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}], "[", "LocalWord", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"Bindex", ",", "1", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"RepNo", ",", "1", ",", "16"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"LocalBEigens", " ", "==", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"BEigens", "[", "Bindex", "]"}], "[", RowBox[{"LocalWord", ",", "2", ",", "2"}], "]"}], ",", RowBox[{"{", RowBox[{"Bindex", ",", "1", ",", "6"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "LocalWord", "\[IndentingNewLine]", RowBox[{"Clear", "[", RowBox[{"LocalBEigens", ",", "LocalWord"}], "]"}]}], "Input", CellChangeTimes->{{3.7596247762483854`*^9, 3.7596247973492837`*^9}, { 3.759624862428567*^9, 3.7596249467393703`*^9}, {3.7596249996393104`*^9, 3.7596249997389007`*^9}, {3.759625126019148*^9, 3.7596251717189445`*^9}, { 3.759625246288945*^9, 3.7596252491288996`*^9}, {3.763045845475657*^9, 3.763045900831832*^9}, {3.763046009980217*^9, 3.76304601878785*^9}, { 3.763046067175521*^9, 3.7630460829683437`*^9}, {3.76304611370175*^9, 3.763046115830962*^9}, 3.763046173514946*^9, 3.76304634660847*^9, { 3.763046507433218*^9, 3.7630465089068613`*^9}, {3.7630465819526587`*^9, 3.763046583341271*^9}}, CellLabel->"In[86]:=",ExpressionUUID->"11dbf708-aa45-424c-b4ba-a85fd9a1c16a"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SqrtBox["\[Rho]"]}], ",", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Rho]"]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Rho]"}], "}"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.759624872169362*^9, 3.759624878768899*^9}, { 3.7596249187193003`*^9, 3.7596249475591917`*^9}, 3.7596249999892406`*^9, 3.759625172292762*^9, 3.759625250308663*^9, 3.7602923135466948`*^9, 3.7602925846082525`*^9, 3.7602926664022503`*^9, 3.760295856202198*^9, 3.762967588055868*^9, 3.763045350710292*^9, 3.763045388716611*^9, { 3.763045894043848*^9, 3.7630459126461277`*^9}, 3.7630461318103237`*^9, 3.76304620203374*^9, 3.763046305249353*^9, 3.763046587084487*^9, 3.763054427742277*^9}, CellLabel->"Out[86]=",ExpressionUUID->"7e4ace35-8952-4e9a-90e7-de22923bf9ff"], Cell[BoxData["True"], "Output", CellChangeTimes->{{3.759624872169362*^9, 3.759624878768899*^9}, { 3.7596249187193003`*^9, 3.7596249475591917`*^9}, 3.7596249999892406`*^9, 3.759625172292762*^9, 3.759625250308663*^9, 3.7602923135466948`*^9, 3.7602925846082525`*^9, 3.7602926664022503`*^9, 3.760295856202198*^9, 3.762967588055868*^9, 3.763045350710292*^9, 3.763045388716611*^9, { 3.763045894043848*^9, 3.7630459126461277`*^9}, 3.7630461318103237`*^9, 3.76304620203374*^9, 3.763046305249353*^9, 3.763046587084487*^9, 3.763054427756186*^9}, CellLabel->"Out[87]=",ExpressionUUID->"504450ce-a611-4649-958f-46470ecc6dcb"], Cell[BoxData["2"], "Output", CellChangeTimes->{{3.759624872169362*^9, 3.759624878768899*^9}, { 3.7596249187193003`*^9, 3.7596249475591917`*^9}, 3.7596249999892406`*^9, 3.759625172292762*^9, 3.759625250308663*^9, 3.7602923135466948`*^9, 3.7602925846082525`*^9, 3.7602926664022503`*^9, 3.760295856202198*^9, 3.762967588055868*^9, 3.763045350710292*^9, 3.763045388716611*^9, { 3.763045894043848*^9, 3.7630459126461277`*^9}, 3.7630461318103237`*^9, 3.76304620203374*^9, 3.763046305249353*^9, 3.763046587084487*^9, 3.763054427764264*^9}, CellLabel->"Out[88]=",ExpressionUUID->"19339cbf-5334-4b35-ab08-35cd22dccfa6"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["both nodes raised: w =3", "Subsection", CellChangeTimes->{{3.7596252186690226`*^9, 3.759625229509034*^9}, { 3.759625312938773*^9, 3.759625325448737*^9}, {3.7596253745385275`*^9, 3.759625375498519*^9}, {3.763046575563055*^9, 3.7630466044293737`*^9}},ExpressionUUID->"aac7eb45-5fd9-4dbe-8ba5-\ 1d691972aa06"], Cell[BoxData[{ RowBox[{ RowBox[{"LocalWord", " ", "=", " ", "3"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"BEigens", "[", "1", "]"}], "[", RowBox[{"LocalWord", ",", "2", ",", "2"}], "]"}], " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"\[Rho]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"RepCounter", ",", "1", ",", "16"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"BEigens", "[", "2", "]"}], "[", RowBox[{"LocalWord", ",", "2", ",", "2"}], "]"}], " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"I", " ", "\[Rho]"}], ",", RowBox[{ RowBox[{"-", "I"}], " ", "\[Rho]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"RepCounter", ",", "1", ",", "16"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"BEigens", "[", "3", "]"}], "[", RowBox[{"LocalWord", ",", "2", ",", "2"}], "]"}], " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"\[Rho]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"RepCounter", ",", "1", ",", "16"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"BEigens", "[", "4", "]"}], "[", RowBox[{"LocalWord", ",", "2", ",", "2"}], "]"}], " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"I", " ", "\[Rho]"}], ",", RowBox[{ RowBox[{"-", "I"}], " ", "\[Rho]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"RepCounter", ",", "1", ",", "16"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"BEigens", "[", "5", "]"}], "[", RowBox[{"LocalWord", ",", "2", ",", "2"}], "]"}], " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"I", " ", "\[Rho]"}], ",", RowBox[{ RowBox[{"-", "I"}], " ", "\[Rho]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"RepCounter", ",", "1", ",", "16"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"BEigens", "[", "6", "]"}], "[", RowBox[{"LocalWord", ",", "2", ",", "2"}], "]"}], " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"\[Rho]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"RepCounter", ",", "1", ",", "16"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.76304540869704*^9, 3.763045434956308*^9}, { 3.763045676232058*^9, 3.76304571537681*^9}, {3.763045752621044*^9, 3.763045832033525*^9}, {3.763045961488976*^9, 3.76304611288383*^9}, { 3.763046177649984*^9, 3.763046178716967*^9}, {3.763046220591392*^9, 3.763046300394401*^9}, {3.763046443353862*^9, 3.763046446867556*^9}, { 3.7630465061137877`*^9, 3.7630465072479*^9}, {3.763046578711574*^9, 3.763046667467066*^9}, {3.763046698624318*^9, 3.763046706738546*^9}, 3.763046980239479*^9}, CellLabel->"In[90]:=",ExpressionUUID->"6fe0fed9-9113-49f1-bd31-7584c656ac71"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"LocalBEigens", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Eigenvalues", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "Bindex", "]"}], "[", RowBox[{"RepNumberList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}], "[", "LocalWord", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"Bindex", ",", "1", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"RepNo", ",", "1", ",", "16"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"LocalBEigens", " ", "==", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"BEigens", "[", "Bindex", "]"}], "[", RowBox[{"LocalWord", ",", "2", ",", "2"}], "]"}], ",", RowBox[{"{", RowBox[{"Bindex", ",", "1", ",", "6"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "LocalWord", "\[IndentingNewLine]", RowBox[{"Clear", "[", RowBox[{"LocalBEigens", ",", "LocalWord"}], "]"}]}], "Input", CellChangeTimes->{{3.7596247762483854`*^9, 3.7596247973492837`*^9}, { 3.759624862428567*^9, 3.7596249467393703`*^9}, {3.7596249996393104`*^9, 3.7596249997389007`*^9}, {3.759625126019148*^9, 3.7596251717189445`*^9}, { 3.759625246288945*^9, 3.7596252491288996`*^9}, {3.763045845475657*^9, 3.763045900831832*^9}, {3.763046009980217*^9, 3.76304601878785*^9}, { 3.763046067175521*^9, 3.7630460829683437`*^9}, {3.76304611370175*^9, 3.763046115830962*^9}, 3.763046173514946*^9, 3.76304634660847*^9, { 3.763046507433218*^9, 3.7630465089068613`*^9}, {3.7630465819526587`*^9, 3.763046583341271*^9}}, CellLabel->"In[97]:=",ExpressionUUID->"91e81b56-0e3f-4401-80bf-43055ea7f14f"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[Rho]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Rho]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Rho]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Rho]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Rho]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Rho]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Rho]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Rho]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Rho]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Rho]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Rho]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Rho]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Rho]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Rho]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Rho]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Rho]", ",", "\[Rho]"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", "\[Rho]"}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Rho]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", "\[Rho]"}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Rho]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", "\[Rho]"}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Rho]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", "\[Rho]"}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Rho]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", "\[Rho]"}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Rho]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", "\[Rho]"}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Rho]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", "\[Rho]"}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Rho]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", "\[Rho]"}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Rho]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", "\[Rho]"}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Rho]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", "\[Rho]"}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Rho]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", "\[Rho]"}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Rho]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", "\[Rho]"}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Rho]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", "\[Rho]"}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Rho]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", "\[Rho]"}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Rho]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", "\[Rho]"}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Rho]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", "\[Rho]"}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Rho]"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[Rho]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Rho]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Rho]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Rho]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Rho]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Rho]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Rho]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Rho]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Rho]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Rho]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Rho]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Rho]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Rho]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Rho]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Rho]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Rho]", ",", "\[Rho]"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", "\[Rho]"}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Rho]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", "\[Rho]"}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Rho]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", "\[Rho]"}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Rho]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", "\[Rho]"}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Rho]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", "\[Rho]"}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Rho]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", "\[Rho]"}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Rho]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", "\[Rho]"}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Rho]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", "\[Rho]"}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Rho]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", "\[Rho]"}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Rho]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", "\[Rho]"}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Rho]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", "\[Rho]"}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Rho]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", "\[Rho]"}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Rho]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", "\[Rho]"}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Rho]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", "\[Rho]"}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Rho]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", "\[Rho]"}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Rho]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", "\[Rho]"}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Rho]"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", "\[Rho]"}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Rho]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", "\[Rho]"}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Rho]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", "\[Rho]"}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Rho]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", "\[Rho]"}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Rho]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", "\[Rho]"}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Rho]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", "\[Rho]"}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Rho]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", "\[Rho]"}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Rho]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", "\[Rho]"}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Rho]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", "\[Rho]"}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Rho]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", "\[Rho]"}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Rho]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", "\[Rho]"}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Rho]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", "\[Rho]"}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Rho]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", "\[Rho]"}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Rho]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", "\[Rho]"}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Rho]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", "\[Rho]"}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Rho]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", "\[Rho]"}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Rho]"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[Rho]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Rho]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Rho]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Rho]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Rho]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Rho]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Rho]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Rho]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Rho]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Rho]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Rho]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Rho]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Rho]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Rho]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Rho]", ",", "\[Rho]"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Rho]", ",", "\[Rho]"}], "}"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.759624872169362*^9, 3.759624878768899*^9}, { 3.7596249187193003`*^9, 3.7596249475591917`*^9}, 3.7596249999892406`*^9, 3.759625172292762*^9, 3.759625250308663*^9, 3.7602923135466948`*^9, 3.7602925846082525`*^9, 3.7602926664022503`*^9, 3.760295856202198*^9, 3.762967588055868*^9, 3.763045350710292*^9, 3.763045388716611*^9, { 3.763045894043848*^9, 3.7630459126461277`*^9}, 3.7630461318103237`*^9, 3.76304620203374*^9, 3.763046305249353*^9, 3.763046587084487*^9, 3.763046678444758*^9, 3.7630467109604893`*^9, 3.7630544279035683`*^9}, CellLabel->"Out[97]=",ExpressionUUID->"55150a1f-675e-4670-9152-673d239957b6"], Cell[BoxData["True"], "Output", CellChangeTimes->{{3.759624872169362*^9, 3.759624878768899*^9}, { 3.7596249187193003`*^9, 3.7596249475591917`*^9}, 3.7596249999892406`*^9, 3.759625172292762*^9, 3.759625250308663*^9, 3.7602923135466948`*^9, 3.7602925846082525`*^9, 3.7602926664022503`*^9, 3.760295856202198*^9, 3.762967588055868*^9, 3.763045350710292*^9, 3.763045388716611*^9, { 3.763045894043848*^9, 3.7630459126461277`*^9}, 3.7630461318103237`*^9, 3.76304620203374*^9, 3.763046305249353*^9, 3.763046587084487*^9, 3.763046678444758*^9, 3.7630467109604893`*^9, 3.763054427916912*^9}, CellLabel->"Out[98]=",ExpressionUUID->"2fd8d3a5-40a0-46c9-834a-993595926423"], Cell[BoxData["3"], "Output", CellChangeTimes->{{3.759624872169362*^9, 3.759624878768899*^9}, { 3.7596249187193003`*^9, 3.7596249475591917`*^9}, 3.7596249999892406`*^9, 3.759625172292762*^9, 3.759625250308663*^9, 3.7602923135466948`*^9, 3.7602925846082525`*^9, 3.7602926664022503`*^9, 3.760295856202198*^9, 3.762967588055868*^9, 3.763045350710292*^9, 3.763045388716611*^9, { 3.763045894043848*^9, 3.7630459126461277`*^9}, 3.7630461318103237`*^9, 3.76304620203374*^9, 3.763046305249353*^9, 3.763046587084487*^9, 3.763046678444758*^9, 3.7630467109604893`*^9, 3.763054427925161*^9}, CellLabel->"Out[99]=",ExpressionUUID->"bda33c59-dca3-4059-abbd-188109b95e23"] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ GR(4,4) Checking Yangrui\[CloseCurlyQuote]s Python results by selecting 100 random \ reps to save time. For full check over all 36,864, change LocalRandomRepList \ -> 1 to 36864\ \>", "Section", CellChangeTimes->{{3.760292430361801*^9, 3.760292431786686*^9}, { 3.76305030375989*^9, 3.763050305225133*^9}},ExpressionUUID->"51f57fc7-c236-4716-a624-\ 21e3237b210e"], Cell[CellGroupData[{ Cell["Explaining the Rep Code", "Subsection", CellChangeTimes->{{3.7602931951147957`*^9, 3.7602932010664515`*^9}},ExpressionUUID->"4a23e5c4-43cc-4559-89c4-\ da0e3e78fb83"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"GraphAdinkra", "[", "Q", "]"}], "\[IndentingNewLine]", RowBox[{"PrintAllL", "[", "Q", "]"}]}], "Input", CellChangeTimes->{{3.7602932724888725`*^9, 3.760293281265193*^9}}, CellLabel-> "In[101]:=",ExpressionUUID->"0eda332b-4b37-4b93-b4b1-1bb31b7a1268"], Cell[BoxData[ GraphicsBox[ TagBox[{{ {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[0.007], LineBox[{{-1.5, -1.}, {-1.5, -2.}}]}, {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[0.007], LineBox[{{-1.5, -1.}, {-0.5, -2.}}]}, {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[0.007], LineBox[{{-1.5, -1.}, {0.5, -2.}}]}, {RGBColor[0.78431374, 0, 0.12156863], Thickness[0.007], LineBox[{{-1.5, -1.}, {1.5, -2.}}]}, {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[0.007], Dashing[ 0.03], LineBox[{{-0.5, -1.}, {-1.5, -2.}}]}, {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[0.007], LineBox[{{-0.5, -1.}, {-0.5, -2.}}]}, {RGBColor[0.78431374, 0, 0.12156863], Thickness[0.007], LineBox[{{-0.5, -1.}, {0.5, -2.}}]}, {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[0.007], Dashing[ 0.03], LineBox[{{-0.5, -1.}, {1.5, -2.}}]}, {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[0.007], Dashing[ 0.03], LineBox[{{0.5, -1.}, {-1.5, -2.}}]}, {RGBColor[0.78431374, 0, 0.12156863], Thickness[0.007], Dashing[0.03], LineBox[{{0.5, -1.}, {-0.5, -2.}}]}, {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[0.007], LineBox[{{0.5, -1.}, {0.5, -2.}}]}, {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[0.007], LineBox[{{0.5, -1.}, {1.5, -2.}}]}, {RGBColor[0.78431374, 0, 0.12156863], Thickness[0.007], Dashing[0.03], LineBox[{{1.5, -1.}, {-1.5, -2.}}]}, {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[0.007], LineBox[{{1.5, -1.}, {-0.5, -2.}}]}, {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[0.007], Dashing[ 0.03], LineBox[{{1.5, -1.}, {0.5, -2.}}]}, {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[0.007], LineBox[{{1.5, -1.}, {1.5, -2.}}]}}, {InsetBox[ GraphicsBox[ {GrayLevel[0], EdgeForm[GrayLevel[0]], DiskBox[{0, 0}, 0.05], {GrayLevel[1], InsetBox[ StyleBox["1", StripOnInput->False, FontSize->Larger, FontWeight->Bold], {0, 0}]}}, ImageSize->30], {-1.5, -1.}], InsetBox[ GraphicsBox[ {GrayLevel[1], EdgeForm[GrayLevel[0]], DiskBox[{0, 0}, 0.05], {GrayLevel[0], InsetBox[ StyleBox["1", StripOnInput->False, FontSize->Larger, FontWeight->Bold], {0, 0}]}}, ImageSize->30], {-1.5, -2.}], InsetBox[ GraphicsBox[ {GrayLevel[1], EdgeForm[GrayLevel[0]], DiskBox[{0, 0}, 0.05], {GrayLevel[0], InsetBox[ StyleBox["2", StripOnInput->False, FontSize->Larger, FontWeight->Bold], {0, 0}]}}, ImageSize->30], {-0.5, -2.}], InsetBox[ GraphicsBox[ {GrayLevel[1], EdgeForm[GrayLevel[0]], DiskBox[{0, 0}, 0.05], {GrayLevel[0], InsetBox[ StyleBox["3", StripOnInput->False, FontSize->Larger, FontWeight->Bold], {0, 0}]}}, ImageSize->30], {0.5, -2.}], InsetBox[ GraphicsBox[ {GrayLevel[1], EdgeForm[GrayLevel[0]], DiskBox[{0, 0}, 0.05], {GrayLevel[0], InsetBox[ StyleBox["4", StripOnInput->False, FontSize->Larger, FontWeight->Bold], {0, 0}]}}, ImageSize->30], {1.5, -2.}], InsetBox[ GraphicsBox[ {GrayLevel[0], EdgeForm[GrayLevel[0]], DiskBox[{0, 0}, 0.05], {GrayLevel[1], InsetBox[ StyleBox["2", StripOnInput->False, FontSize->Larger, FontWeight->Bold], {0, 0}]}}, ImageSize->30], {-0.5, -1.}], InsetBox[ GraphicsBox[ {GrayLevel[0], EdgeForm[GrayLevel[0]], DiskBox[{0, 0}, 0.05], {GrayLevel[1], InsetBox[ StyleBox["3", StripOnInput->False, FontSize->Larger, FontWeight->Bold], {0, 0}]}}, ImageSize->30], {0.5, -1.}], InsetBox[ GraphicsBox[ {GrayLevel[0], EdgeForm[GrayLevel[0]], DiskBox[{0, 0}, 0.05], {GrayLevel[1], InsetBox[ StyleBox["4", StripOnInput->False, FontSize->Larger, FontWeight->Bold], {0, 0}]}}, ImageSize->30], {1.5, -1.}]}}, Annotation[#, VertexCoordinateRules -> {{-1.5, -1.}, {-1.5, -2.}, {-0.5, -2.}, { 0.5, -2.}, {1.5, -2.}, {-0.5, -1.}, {0.5, -1.}, {1.5, -1.}}]& ], AspectRatio->Automatic, FrameTicks->None, PlotRange->All, PlotRangePadding->Scaled[0.1]]], "Output", CellChangeTimes->{3.760293282093366*^9, 3.7602958567279825`*^9, 3.762967589010936*^9, 3.763054428138831*^9}, CellLabel-> "Out[101]=",ExpressionUUID->"4e36ddbc-e176-4bdb-9ae9-ef7163549adf"], Cell[BoxData[ RowBox[{"{", RowBox[{ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0", "0", "0"}, {"0", "1", "0", "0"}, {"0", "0", "1", "0"}, {"0", "0", "0", "1"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{"-", "1"}], "0", "0"}, {"1", "0", "0", "0"}, {"0", "0", "0", RowBox[{"-", "1"}]}, {"0", "0", "1", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", RowBox[{"-", "1"}], "0"}, {"0", "0", "0", "1"}, {"1", "0", "0", "0"}, {"0", RowBox[{"-", "1"}], "0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "0", RowBox[{"-", "1"}]}, {"0", "0", RowBox[{"-", "1"}], "0"}, {"0", "1", "0", "0"}, {"1", "0", "0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "}"}]], "Output", CellChangeTimes->{3.760293282093366*^9, 3.7602958567279825`*^9, 3.762967589010936*^9, 3.763054428152585*^9}, CellLabel-> "Out[102]=",ExpressionUUID->"f1e57627-4ab8-4dcb-ac7b-49f562b50f48"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"LocalRep", " ", "=", " ", RowBox[{"-", "111751"}]}], ";"}]], "Input", CellChangeTimes->{{3.76029322686802*^9, 3.760293235005686*^9}, { 3.760293312715046*^9, 3.7602933131327796`*^9}}, CellLabel-> "In[103]:=",ExpressionUUID->"0a75177d-a7d6-4ca9-b9cc-2accca0e5092"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"GraphAdinkra", "[", "LocalRep", "]"}], "\[IndentingNewLine]", RowBox[{"PrintAllL", "[", "LocalRep", "]"}]}], "Input", CellChangeTimes->{{3.7602932062411923`*^9, 3.7602932597063546`*^9}}, CellLabel-> "In[104]:=",ExpressionUUID->"5e3daa6b-10e2-4ff1-a122-3e05909b36a7"], Cell[BoxData[ GraphicsBox[ TagBox[{{ {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[0.007], Dashing[ 0.03], LineBox[{{-1.5, -1.}, {-1.5, -2.}}]}, {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[0.007], LineBox[{{-1.5, -1.}, {-0.5, -2.}}]}, {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[0.007], Dashing[ 0.03], LineBox[{{-1.5, -1.}, {0.5, -2.}}]}, {RGBColor[0.78431374, 0, 0.12156863], Thickness[0.007], Dashing[0.03], LineBox[{{-1.5, -1.}, {1.5, -2.}}]}, {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[0.007], Dashing[ 0.03], LineBox[{{-0.5, -1.}, {-1.5, -2.}}]}, {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[0.007], Dashing[ 0.03], LineBox[{{-0.5, -1.}, {-0.5, -2.}}]}, {RGBColor[0.78431374, 0, 0.12156863], Thickness[0.007], Dashing[0.03], LineBox[{{-0.5, -1.}, {0.5, -2.}}]}, {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[0.007], LineBox[{{-0.5, -1.}, {1.5, -2.}}]}, {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[0.007], LineBox[{{0.5, -1.}, {-1.5, -2.}}]}, {RGBColor[0.78431374, 0, 0.12156863], Thickness[0.007], LineBox[{{0.5, -1.}, {-0.5, -2.}}]}, {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[0.007], Dashing[ 0.03], LineBox[{{0.5, -1.}, {0.5, -2.}}]}, {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[0.007], LineBox[{{0.5, -1.}, {1.5, -2.}}]}, {RGBColor[0.78431374, 0, 0.12156863], Thickness[0.007], LineBox[{{1.5, -1.}, {-1.5, -2.}}]}, {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[0.007], Dashing[ 0.03], LineBox[{{1.5, -1.}, {-0.5, -2.}}]}, {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[0.007], Dashing[ 0.03], LineBox[{{1.5, -1.}, {0.5, -2.}}]}, {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[0.007], Dashing[ 0.03], LineBox[{{1.5, -1.}, {1.5, -2.}}]}}, {InsetBox[ GraphicsBox[ {GrayLevel[0], EdgeForm[GrayLevel[0]], DiskBox[{0, 0}, 0.05], {GrayLevel[1], InsetBox[ StyleBox["1", StripOnInput->False, FontSize->Larger, FontWeight->Bold], {0, 0}]}}, ImageSize->30], {-1.5, -1.}], InsetBox[ GraphicsBox[ {GrayLevel[1], EdgeForm[GrayLevel[0]], DiskBox[{0, 0}, 0.05], {GrayLevel[0], InsetBox[ StyleBox["1", StripOnInput->False, FontSize->Larger, FontWeight->Bold], {0, 0}]}}, ImageSize->30], {-1.5, -2.}], InsetBox[ GraphicsBox[ {GrayLevel[1], EdgeForm[GrayLevel[0]], DiskBox[{0, 0}, 0.05], {GrayLevel[0], InsetBox[ StyleBox["2", StripOnInput->False, FontSize->Larger, FontWeight->Bold], {0, 0}]}}, ImageSize->30], {-0.5, -2.}], InsetBox[ GraphicsBox[ {GrayLevel[1], EdgeForm[GrayLevel[0]], DiskBox[{0, 0}, 0.05], {GrayLevel[0], InsetBox[ StyleBox["3", StripOnInput->False, FontSize->Larger, FontWeight->Bold], {0, 0}]}}, ImageSize->30], {0.5, -2.}], InsetBox[ GraphicsBox[ {GrayLevel[1], EdgeForm[GrayLevel[0]], DiskBox[{0, 0}, 0.05], {GrayLevel[0], InsetBox[ StyleBox["4", StripOnInput->False, FontSize->Larger, FontWeight->Bold], {0, 0}]}}, ImageSize->30], {1.5, -2.}], InsetBox[ GraphicsBox[ {GrayLevel[0], EdgeForm[GrayLevel[0]], DiskBox[{0, 0}, 0.05], {GrayLevel[1], InsetBox[ StyleBox["2", StripOnInput->False, FontSize->Larger, FontWeight->Bold], {0, 0}]}}, ImageSize->30], {-0.5, -1.}], InsetBox[ GraphicsBox[ {GrayLevel[0], EdgeForm[GrayLevel[0]], DiskBox[{0, 0}, 0.05], {GrayLevel[1], InsetBox[ StyleBox["3", StripOnInput->False, FontSize->Larger, FontWeight->Bold], {0, 0}]}}, ImageSize->30], {0.5, -1.}], InsetBox[ GraphicsBox[ {GrayLevel[0], EdgeForm[GrayLevel[0]], DiskBox[{0, 0}, 0.05], {GrayLevel[1], InsetBox[ StyleBox["4", StripOnInput->False, FontSize->Larger, FontWeight->Bold], {0, 0}]}}, ImageSize->30], {1.5, -1.}]}}, Annotation[#, VertexCoordinateRules -> {{-1.5, -1.}, {-1.5, -2.}, {-0.5, -2.}, { 0.5, -2.}, {1.5, -2.}, {-0.5, -1.}, {0.5, -1.}, {1.5, -1.}}]& ], AspectRatio->Automatic, FrameTicks->None, PlotRange->All, PlotRangePadding->Scaled[0.1]]], "Output", CellChangeTimes->{3.7602932622880974`*^9, 3.7602933232751045`*^9, 3.760295856839653*^9, 3.762967589154372*^9, 3.763054428271093*^9}, CellLabel-> "Out[104]=",ExpressionUUID->"f7c5f280-480b-40e0-b9c8-3e0a7be99532"], Cell[BoxData[ RowBox[{"{", RowBox[{ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "1", "0"}, {"0", "0", "0", RowBox[{"-", "1"}]}, { RowBox[{"-", "1"}], "0", "0", "0"}, {"0", "1", "0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", "1"}], "0", "0", "0"}, {"0", RowBox[{"-", "1"}], "0", "0"}, {"0", "0", RowBox[{"-", "1"}], "0"}, {"0", "0", "0", RowBox[{"-", "1"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{"-", "1"}], "0", "0"}, {"1", "0", "0", "0"}, {"0", "0", "0", RowBox[{"-", "1"}]}, {"0", "0", "1", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "0", "1"}, {"0", "0", "1", "0"}, {"0", RowBox[{"-", "1"}], "0", "0"}, { RowBox[{"-", "1"}], "0", "0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "}"}]], "Output", CellChangeTimes->{3.7602932622880974`*^9, 3.7602933232751045`*^9, 3.760295856839653*^9, 3.762967589154372*^9, 3.763054428285468*^9}, CellLabel-> "Out[105]=",ExpressionUUID->"f37c3640-3715-406b-9c23-f4c1433f869d"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.76029322686802*^9, 3.760293235005686*^9}, { 3.760293312715046*^9, 3.7602933131327796`*^9}, {3.7602935069109926`*^9, 3.76029351290057*^9}}, CellLabel-> "In[106]:=",ExpressionUUID->"67af082b-c9f2-4026-ab65-75d31be3dc79"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"LocalRep", " ", "=", " ", RowBox[{"-", "441751"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"GraphAdinkra", "[", "LocalRep", "]"}], "\[IndentingNewLine]", RowBox[{"PrintAllL", "[", "LocalRep", "]"}], "\[IndentingNewLine]", RowBox[{"Clear", "[", "LocalRep", "]"}]}], "Input", CellChangeTimes->{{3.7602932062411923`*^9, 3.7602932597063546`*^9}, { 3.7602935142643766`*^9, 3.7602935201494884`*^9}}, CellLabel-> "In[107]:=",ExpressionUUID->"18553c93-82e8-4857-852c-44a6e16cdb10"], Cell[BoxData[ GraphicsBox[ TagBox[{{ {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[0.007], Dashing[ 0.03], LineBox[{{-1.5, -1.}, {-1.5, -2.}}]}, {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[0.007], LineBox[{{-1.5, -1.}, {-0.5, -2.}}]}, {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[0.007], Dashing[ 0.03], LineBox[{{-1.5, -1.}, {0.5, -2.}}]}, {RGBColor[0.78431374, 0, 0.12156863], Thickness[0.007], Dashing[0.03], LineBox[{{-1.5, -1.}, {1.5, -2.}}]}, {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[0.007], Dashing[ 0.03], LineBox[{{-0.5, -1.}, {-1.5, -2.}}]}, {RGBColor[0.78431374, 0, 0.12156863], Thickness[0.007], LineBox[{{-0.5, -1.}, {-0.5, -2.}}]}, {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[0.007], LineBox[{{-0.5, -1.}, {0.5, -2.}}]}, {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[0.007], LineBox[{{-0.5, -1.}, {1.5, -2.}}]}, {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[0.007], LineBox[{{0.5, -1.}, {-1.5, -2.}}]}, {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[0.007], LineBox[{{0.5, -1.}, {-0.5, -2.}}]}, {RGBColor[0.78431374, 0, 0.12156863], Thickness[0.007], Dashing[0.03], LineBox[{{0.5, -1.}, {0.5, -2.}}]}, {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[0.007], LineBox[{{0.5, -1.}, {1.5, -2.}}]}, {RGBColor[0.78431374, 0, 0.12156863], Thickness[0.007], LineBox[{{1.5, -1.}, {-1.5, -2.}}]}, {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[0.007], LineBox[{{1.5, -1.}, {-0.5, -2.}}]}, {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[0.007], LineBox[{{1.5, -1.}, {0.5, -2.}}]}, {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[0.007], Dashing[ 0.03], LineBox[{{1.5, -1.}, {1.5, -2.}}]}}, {InsetBox[ GraphicsBox[ {GrayLevel[0], EdgeForm[GrayLevel[0]], DiskBox[{0, 0}, 0.05], {GrayLevel[1], InsetBox[ StyleBox["1", StripOnInput->False, FontSize->Larger, FontWeight->Bold], {0, 0}]}}, ImageSize->30], {-1.5, -1.}], InsetBox[ GraphicsBox[ {GrayLevel[1], EdgeForm[GrayLevel[0]], DiskBox[{0, 0}, 0.05], {GrayLevel[0], InsetBox[ StyleBox["1", StripOnInput->False, FontSize->Larger, FontWeight->Bold], {0, 0}]}}, ImageSize->30], {-1.5, -2.}], InsetBox[ GraphicsBox[ {GrayLevel[1], EdgeForm[GrayLevel[0]], DiskBox[{0, 0}, 0.05], {GrayLevel[0], InsetBox[ StyleBox["2", StripOnInput->False, FontSize->Larger, FontWeight->Bold], {0, 0}]}}, ImageSize->30], {-0.5, -2.}], InsetBox[ GraphicsBox[ {GrayLevel[1], EdgeForm[GrayLevel[0]], DiskBox[{0, 0}, 0.05], {GrayLevel[0], InsetBox[ StyleBox["3", StripOnInput->False, FontSize->Larger, FontWeight->Bold], {0, 0}]}}, ImageSize->30], {0.5, -2.}], InsetBox[ GraphicsBox[ {GrayLevel[1], EdgeForm[GrayLevel[0]], DiskBox[{0, 0}, 0.05], {GrayLevel[0], InsetBox[ StyleBox["4", StripOnInput->False, FontSize->Larger, FontWeight->Bold], {0, 0}]}}, ImageSize->30], {1.5, -2.}], InsetBox[ GraphicsBox[ {GrayLevel[0], EdgeForm[GrayLevel[0]], DiskBox[{0, 0}, 0.05], {GrayLevel[1], InsetBox[ StyleBox["2", StripOnInput->False, FontSize->Larger, FontWeight->Bold], {0, 0}]}}, ImageSize->30], {-0.5, -1.}], InsetBox[ GraphicsBox[ {GrayLevel[0], EdgeForm[GrayLevel[0]], DiskBox[{0, 0}, 0.05], {GrayLevel[1], InsetBox[ StyleBox["3", StripOnInput->False, FontSize->Larger, FontWeight->Bold], {0, 0}]}}, ImageSize->30], {0.5, -1.}], InsetBox[ GraphicsBox[ {GrayLevel[0], EdgeForm[GrayLevel[0]], DiskBox[{0, 0}, 0.05], {GrayLevel[1], InsetBox[ StyleBox["4", StripOnInput->False, FontSize->Larger, FontWeight->Bold], {0, 0}]}}, ImageSize->30], {1.5, -1.}]}}, Annotation[#, VertexCoordinateRules -> {{-1.5, -1.}, {-1.5, -2.}, {-0.5, -2.}, { 0.5, -2.}, {1.5, -2.}, {-0.5, -1.}, {0.5, -1.}, {1.5, -1.}}]& ], AspectRatio->Automatic, FrameTicks->None, PlotRange->All, PlotRangePadding->Scaled[0.1]]], "Output", CellChangeTimes->{3.7602932622880974`*^9, 3.7602933232751045`*^9, 3.76029352524455*^9, 3.7602958569489994`*^9, 3.762967589304762*^9, 3.7630544283861*^9}, CellLabel-> "Out[108]=",ExpressionUUID->"21003c12-3e0c-4770-aa8f-803b684cba03"], Cell[BoxData[ RowBox[{"{", RowBox[{ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "1", "0"}, {"1", "0", "0", "0"}, {"0", "0", "0", "1"}, {"0", "1", "0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", "1"}], "0", "0", "0"}, {"0", "0", "1", "0"}, {"0", "1", "0", "0"}, {"0", "0", "0", RowBox[{"-", "1"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{"-", "1"}], "0", "0"}, {"0", "0", "0", "1"}, { RowBox[{"-", "1"}], "0", "0", "0"}, {"0", "0", "1", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "0", "1"}, {"0", "1", "0", "0"}, {"0", "0", RowBox[{"-", "1"}], "0"}, { RowBox[{"-", "1"}], "0", "0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "}"}]], "Output", CellChangeTimes->{3.7602932622880974`*^9, 3.7602933232751045`*^9, 3.76029352524455*^9, 3.7602958569489994`*^9, 3.762967589304762*^9, 3.763054428399199*^9}, CellLabel-> "Out[109]=",ExpressionUUID->"026da156-a28b-4b37-81f9-4776fdc62352"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"LocalRep", " ", "=", " ", RowBox[{"-", "442751"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"GraphAdinkra", "[", "LocalRep", "]"}], "\[IndentingNewLine]", RowBox[{"PrintAllL", "[", "LocalRep", "]"}], "\[IndentingNewLine]", RowBox[{"Clear", "[", "LocalRep", "]"}]}], "Input", CellChangeTimes->{{3.7602932062411923`*^9, 3.7602932597063546`*^9}, { 3.7602935142643766`*^9, 3.7602935201494884`*^9}, {3.760293626876501*^9, 3.7602936269858594`*^9}}, CellLabel-> "In[111]:=",ExpressionUUID->"02cabd86-1308-442d-8881-c5aff46d529c"], Cell[BoxData[ GraphicsBox[ TagBox[{{ {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[0.007], LineBox[{{-1.5, -1.}, {-1.5, -2.}}]}, {RGBColor[0.78431374, 0, 0.12156863], Thickness[0.007], LineBox[{{-1.5, -1.}, {-0.5, -2.}}]}, {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[0.007], LineBox[{{-1.5, -1.}, {0.5, -2.}}]}, {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[0.007], Dashing[ 0.03], LineBox[{{-1.5, -1.}, {1.5, -2.}}]}, {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[0.007], Dashing[ 0.03], LineBox[{{-0.5, -1.}, {-1.5, -2.}}]}, {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[0.007], Dashing[ 0.03], LineBox[{{-0.5, -1.}, {-0.5, -2.}}]}, {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[0.007], LineBox[{{-0.5, -1.}, {0.5, -2.}}]}, {RGBColor[0.78431374, 0, 0.12156863], Thickness[0.007], Dashing[0.03], LineBox[{{-0.5, -1.}, {1.5, -2.}}]}, {RGBColor[0.78431374, 0, 0.12156863], Thickness[0.007], LineBox[{{0.5, -1.}, {-1.5, -2.}}]}, {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[0.007], Dashing[ 0.03], LineBox[{{0.5, -1.}, {-0.5, -2.}}]}, {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[0.007], Dashing[ 0.03], LineBox[{{0.5, -1.}, {0.5, -2.}}]}, {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[0.007], Dashing[ 0.03], LineBox[{{0.5, -1.}, {1.5, -2.}}]}, {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[0.007], Dashing[ 0.03], LineBox[{{1.5, -1.}, {-1.5, -2.}}]}, {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[0.007], LineBox[{{1.5, -1.}, {-0.5, -2.}}]}, {RGBColor[0.78431374, 0, 0.12156863], Thickness[0.007], Dashing[0.03], LineBox[{{1.5, -1.}, {0.5, -2.}}]}, {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[0.007], Dashing[ 0.03], LineBox[{{1.5, -1.}, {1.5, -2.}}]}}, {InsetBox[ GraphicsBox[ {GrayLevel[0], EdgeForm[GrayLevel[0]], DiskBox[{0, 0}, 0.05], {GrayLevel[1], InsetBox[ StyleBox["1", StripOnInput->False, FontSize->Larger, FontWeight->Bold], {0, 0}]}}, ImageSize->30], {-1.5, -1.}], InsetBox[ GraphicsBox[ {GrayLevel[1], EdgeForm[GrayLevel[0]], DiskBox[{0, 0}, 0.05], {GrayLevel[0], InsetBox[ StyleBox["1", StripOnInput->False, FontSize->Larger, FontWeight->Bold], {0, 0}]}}, ImageSize->30], {-1.5, -2.}], InsetBox[ GraphicsBox[ {GrayLevel[1], EdgeForm[GrayLevel[0]], DiskBox[{0, 0}, 0.05], {GrayLevel[0], InsetBox[ StyleBox["2", StripOnInput->False, FontSize->Larger, FontWeight->Bold], {0, 0}]}}, ImageSize->30], {-0.5, -2.}], InsetBox[ GraphicsBox[ {GrayLevel[1], EdgeForm[GrayLevel[0]], DiskBox[{0, 0}, 0.05], {GrayLevel[0], InsetBox[ StyleBox["3", StripOnInput->False, FontSize->Larger, FontWeight->Bold], {0, 0}]}}, ImageSize->30], {0.5, -2.}], InsetBox[ GraphicsBox[ {GrayLevel[1], EdgeForm[GrayLevel[0]], DiskBox[{0, 0}, 0.05], {GrayLevel[0], InsetBox[ StyleBox["4", StripOnInput->False, FontSize->Larger, FontWeight->Bold], {0, 0}]}}, ImageSize->30], {1.5, -2.}], InsetBox[ GraphicsBox[ {GrayLevel[0], EdgeForm[GrayLevel[0]], DiskBox[{0, 0}, 0.05], {GrayLevel[1], InsetBox[ StyleBox["2", StripOnInput->False, FontSize->Larger, FontWeight->Bold], {0, 0}]}}, ImageSize->30], {-0.5, -1.}], InsetBox[ GraphicsBox[ {GrayLevel[0], EdgeForm[GrayLevel[0]], DiskBox[{0, 0}, 0.05], {GrayLevel[1], InsetBox[ StyleBox["3", StripOnInput->False, FontSize->Larger, FontWeight->Bold], {0, 0}]}}, ImageSize->30], {0.5, -1.}], InsetBox[ GraphicsBox[ {GrayLevel[0], EdgeForm[GrayLevel[0]], DiskBox[{0, 0}, 0.05], {GrayLevel[1], InsetBox[ StyleBox["4", StripOnInput->False, FontSize->Larger, FontWeight->Bold], {0, 0}]}}, ImageSize->30], {1.5, -1.}]}}, Annotation[#, VertexCoordinateRules -> {{-1.5, -1.}, {-1.5, -2.}, {-0.5, -2.}, { 0.5, -2.}, {1.5, -2.}, {-0.5, -1.}, {0.5, -1.}, {1.5, -1.}}]& ], AspectRatio->Automatic, FrameTicks->None, PlotRange->All, PlotRangePadding->Scaled[0.1]]], "Output", CellChangeTimes->{3.7602932622880974`*^9, 3.7602933232751045`*^9, 3.76029352524455*^9, 3.760293839701249*^9, 3.760295857064989*^9, 3.7629675895064096`*^9, 3.763054428501749*^9}, CellLabel-> "Out[112]=",ExpressionUUID->"8bcfb7d1-edea-4716-8dce-cead885e2028"], Cell[BoxData[ RowBox[{"{", RowBox[{ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "0", RowBox[{"-", "1"}]}, {"0", RowBox[{"-", "1"}], "0", "0"}, {"0", "0", RowBox[{"-", "1"}], "0"}, { RowBox[{"-", "1"}], "0", "0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{"-", "1"}], "0", "0"}, {"0", "0", "0", "1"}, {"1", "0", "0", "0"}, {"0", "0", RowBox[{"-", "1"}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0", "0", "0"}, {"0", "0", RowBox[{"-", "1"}], "0"}, {"0", "1", "0", "0"}, {"0", "0", "0", RowBox[{"-", "1"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "1", "0"}, {"1", "0", "0", "0"}, {"0", "0", "0", RowBox[{"-", "1"}]}, {"0", RowBox[{"-", "1"}], "0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "}"}]], "Output", CellChangeTimes->{3.7602932622880974`*^9, 3.7602933232751045`*^9, 3.76029352524455*^9, 3.760293839701249*^9, 3.760295857064989*^9, 3.7629675895064096`*^9, 3.763054428516265*^9}, CellLabel-> "Out[113]=",ExpressionUUID->"9e0056df-1088-4577-ae52-a61912f612af"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Raising Operator: RaiseOpM4[m,word]", "Subsection", CellChangeTimes->{{3.7596245443738956`*^9, 3.7596245556397014`*^9}, 3.7602925168069067`*^9},ExpressionUUID->"ace307d1-e757-4f9f-aea7-\ 8ac9d255a1a9"], Cell[BoxData[ RowBox[{ RowBox[{"RaiseOpM4", "[", RowBox[{"m_", ",", "word_"}], "]"}], ":=", RowBox[{"(", "\[NoBreak]", GridBox[{ { SuperscriptBox["m", RowBox[{ RowBox[{"IntegerDigits", "[", RowBox[{"word", ",", "2", ",", "4"}], "]"}], "[", RowBox[{"[", "4", "]"}], "]"}]], "0", "0", "0"}, {"0", SuperscriptBox["m", RowBox[{ RowBox[{"IntegerDigits", "[", RowBox[{"word", ",", "2", ",", "4"}], "]"}], "[", RowBox[{"[", "3", "]"}], "]"}]], "0", "0"}, {"0", "0", SuperscriptBox["m", RowBox[{ RowBox[{"IntegerDigits", "[", RowBox[{"word", ",", "2", ",", "4"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]], "0"}, {"0", "0", "0", SuperscriptBox["m", RowBox[{ RowBox[{"IntegerDigits", "[", RowBox[{"word", ",", "2", ",", "4"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], " "}]], "Input", CellChangeTimes->{{3.7578711404653416`*^9, 3.757871246972503*^9}, { 3.75787324365494*^9, 3.757873254556776*^9}, {3.759622880870636*^9, 3.759622927391048*^9}, {3.759623224770714*^9, 3.759623310170678*^9}, { 3.7596234859502463`*^9, 3.759623497090431*^9}, 3.7596235350004587`*^9, { 3.7596238364599843`*^9, 3.759623862209779*^9}, {3.7596239278200827`*^9, 3.7596239285402966`*^9}, {3.760292529475359*^9, 3.760292578130412*^9}, { 3.7602927320113583`*^9, 3.760292753107733*^9}, {3.7602927941890345`*^9, 3.7602928063973064`*^9}, {3.7630467392413807`*^9, 3.763046747288044*^9}}, CellLabel-> "In[115]:=",ExpressionUUID->"4413c74d-356d-4bd0-be27-ed2038399c0f"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"RaiseOpM4", "[", RowBox[{"m", ",", "wordnum"}], "]"}], "//", "MatrixForm"}], ",", RowBox[{"{", RowBox[{"wordnum", ",", "0", ",", "15"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.76029257330894*^9, 3.76029257557348*^9}, { 3.760292676002365*^9, 3.760292707277631*^9}, {3.7602927737982316`*^9, 3.7602927744414277`*^9}, {3.7602928146758738`*^9, 3.7602928690533752`*^9}}, CellLabel-> "In[116]:=",ExpressionUUID->"a72c4e8d-85b0-44eb-952e-8db9ad3b3993"], Cell[BoxData[ RowBox[{"{", RowBox[{ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0", "0", "0"}, {"0", "1", "0", "0"}, {"0", "0", "1", "0"}, {"0", "0", "0", "1"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"m", "0", "0", "0"}, {"0", "1", "0", "0"}, {"0", "0", "1", "0"}, {"0", "0", "0", "1"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0", "0", "0"}, {"0", "m", "0", "0"}, {"0", "0", "1", "0"}, {"0", "0", "0", "1"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"m", "0", "0", "0"}, {"0", "m", "0", "0"}, {"0", "0", "1", "0"}, {"0", "0", "0", "1"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0", "0", "0"}, {"0", "1", "0", "0"}, {"0", "0", "m", "0"}, {"0", "0", "0", "1"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"m", "0", "0", "0"}, {"0", "1", "0", "0"}, {"0", "0", "m", "0"}, {"0", "0", "0", "1"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0", "0", "0"}, {"0", "m", "0", "0"}, {"0", "0", "m", "0"}, {"0", "0", "0", "1"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"m", "0", "0", "0"}, {"0", "m", "0", "0"}, {"0", "0", "m", "0"}, {"0", "0", "0", "1"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0", "0", "0"}, {"0", "1", "0", "0"}, {"0", "0", "1", "0"}, {"0", "0", "0", "m"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"m", "0", "0", "0"}, {"0", "1", "0", "0"}, {"0", "0", "1", "0"}, {"0", "0", "0", "m"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0", "0", "0"}, {"0", "m", "0", "0"}, {"0", "0", "1", "0"}, {"0", "0", "0", "m"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"m", "0", "0", "0"}, {"0", "m", "0", "0"}, {"0", "0", "1", "0"}, {"0", "0", "0", "m"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0", "0", "0"}, {"0", "1", "0", "0"}, {"0", "0", "m", "0"}, {"0", "0", "0", "m"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"m", "0", "0", "0"}, {"0", "1", "0", "0"}, {"0", "0", "m", "0"}, {"0", "0", "0", "m"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0", "0", "0"}, {"0", "m", "0", "0"}, {"0", "0", "m", "0"}, {"0", "0", "0", "m"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"m", "0", "0", "0"}, {"0", "m", "0", "0"}, {"0", "0", "m", "0"}, {"0", "0", "0", "m"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], "}"}]], "Output", CellChangeTimes->{{3.7602926909153495`*^9, 3.760292708167832*^9}, 3.7602927763081765`*^9, {3.7602928113861837`*^9, 3.7602928699958324`*^9}, 3.7602958566256213`*^9, 3.762967588858563*^9, 3.763046762901216*^9, 3.763054428637094*^9}, CellLabel-> "Out[116]=",ExpressionUUID->"0f106f99-eec3-4dc1-91be-d666d38e8d1f"] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"LRaised4", "[", "Rep_", "]"}], "[", RowBox[{"m_", ",", "word_"}], "]"}], ":=", RowBox[{"Table", "[", " ", RowBox[{ RowBox[{ RowBox[{"RaiseOpM4", "[", RowBox[{"m", ",", "word"}], "]"}], ".", RowBox[{ RowBox[{"L", "[", "Rep", "]"}], "[", RowBox[{"[", "II", "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"II", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"RRaised4", "[", "Rep_", "]"}], "[", RowBox[{"mu_", ",", "word_"}], "]"}], " ", ":=", RowBox[{"Table", "[", " ", RowBox[{ RowBox[{ RowBox[{"Transpose", "[", RowBox[{ RowBox[{"L", "[", "Rep", "]"}], "[", RowBox[{"[", "II", "]"}], "]"}], "]"}], ".", RowBox[{"Inverse", "[", RowBox[{"RaiseOpM4", "[", RowBox[{"mu", ",", "word"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"II", ",", "1", ",", "4"}], "}"}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.7578748902001057`*^9, 3.7578749798777447`*^9}, { 3.7578750118732033`*^9, 3.7578750173588123`*^9}, {3.759623968040013*^9, 3.759624055330027*^9}, {3.7596241012999115`*^9, 3.759624114279927*^9}, { 3.760292883745082*^9, 3.7602928931856203`*^9}, {3.760292959841209*^9, 3.7602929737322435`*^9}}, CellLabel-> "In[117]:=",ExpressionUUID->"2ae5a96e-6c9d-42fa-81ce-01390cd69375"], Cell[CellGroupData[{ Cell["Test on the Rep = -864861", "Subsubsection", CellChangeTimes->{{3.7602930195480633`*^9, 3.760293024880555*^9}},ExpressionUUID->"5f0c5eaa-4cb0-4a8f-964d-\ 9e2c951c246e"], Cell[BoxData[ RowBox[{ RowBox[{"LocalRep", " ", "=", " ", RowBox[{"-", "864861"}]}], ";"}]], "Input", CellChangeTimes->{{3.760293026228185*^9, 3.760293037488862*^9}}, CellLabel-> "In[119]:=",ExpressionUUID->"f951ae54-8b6a-46a6-afea-68004ac4750d"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"RRaised4", "[", "LocalRep", "]"}], "[", RowBox[{ RowBox[{"m", "/", "\[Rho]"}], ",", "1"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]], "Input", CellChangeTimes->{{3.757874985327688*^9, 3.757875025718549*^9}, { 3.759624137719934*^9, 3.75962417589968*^9}, {3.7602929091005564`*^9, 3.7602929418089943`*^9}, 3.7602930648902693`*^9, {3.763046780136879*^9, 3.763046782657877*^9}}, CellLabel-> "In[120]:=",ExpressionUUID->"5c277646-58e0-4796-a9a1-8d031a6228ec"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["\[Rho]", "m"]}], ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.7578749888859034`*^9, 3.7578750260501194`*^9}, 3.7578750954403715`*^9, {3.7596241479891434`*^9, 3.759624176665412*^9}, 3.760292313405066*^9, {3.7602929229289675`*^9, 3.7602929431938114`*^9}, 3.760292984958768*^9, 3.7602930762700977`*^9, 3.760295857096219*^9, 3.7629675896535587`*^9, {3.763046796782967*^9, 3.763046810900197*^9}, 3.763054428771469*^9}, CellLabel-> "Out[120]=",ExpressionUUID->"80a45761-9501-4db1-94b8-839139ed4887"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"LRaised4", "[", "LocalRep", "]"}], "[", RowBox[{"m", ",", "1"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "//", "MatrixForm"}]], "Input", CellChangeTimes->{{3.7602929876864023`*^9, 3.760292995170223*^9}, 3.7602930654910245`*^9, {3.760293159868205*^9, 3.760293161702612*^9}}, CellLabel-> "In[121]:=",ExpressionUUID->"7733ece7-a557-44a2-8592-6b55ead87d1b"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", "m"}], "0", "0", "0"}, {"0", "0", "0", RowBox[{"-", "1"}]}, {"0", "1", "0", "0"}, {"0", "0", RowBox[{"-", "1"}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.7602929959041395`*^9, 3.760293078081351*^9, 3.760293162348158*^9, 3.7602958571118426`*^9, 3.762967589743105*^9, {3.763046796930801*^9, 3.763046811082717*^9}, 3.763054428870743*^9}, CellLabel-> "Out[121]//MatrixForm=",ExpressionUUID->"4814fe54-42db-4908-a278-\ 17e9455dc1b1"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GATest", "[", RowBox[{ RowBox[{ RowBox[{"LRaised4", "[", "LocalRep", "]"}], "[", RowBox[{"m", ",", "3"}], "]"}], ",", RowBox[{ RowBox[{"RRaised4", "[", "LocalRep", "]"}], "[", RowBox[{"m", ",", "3"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.7578750983520713`*^9, 3.7578751118454638`*^9}, { 3.75962419399998*^9, 3.75962421377377*^9}, {3.7602930105516825`*^9, 3.760293012415474*^9}, {3.7602957895909986`*^9, 3.7602957948584814`*^9}}, CellLabel-> "In[122]:=",ExpressionUUID->"84922bf5-486d-4e17-811d-7b513e3223bc"], Cell[BoxData["True"], "Output", CellChangeTimes->{ 3.7602958571274595`*^9, 3.7629675898430967`*^9, {3.763046797067464*^9, 3.763046811261797*^9}, 3.763054428971784*^9}, CellLabel-> "Out[122]=",ExpressionUUID->"713d5064-fdd8-4fa5-ba0e-be3709bf508b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"GATest", "[", RowBox[{ RowBox[{ RowBox[{"LRaised4", "[", "LocalRep", "]"}], "[", RowBox[{"m", ",", "3"}], "]"}], ",", RowBox[{ RowBox[{"RRaised4", "[", "LocalRep", "]"}], "[", RowBox[{ RowBox[{"m", "/", "\[Rho]"}], ",", "3"}], "]"}]}], "]"}], "/.", RowBox[{"\[Rho]", "\[Rule]", " ", "1"}]}]], "Input", CellChangeTimes->{{3.7578750983520713`*^9, 3.7578751118454638`*^9}, { 3.75962419399998*^9, 3.7596242249099803`*^9}, {3.7602930831440735`*^9, 3.760293111716216*^9}, {3.7630467887906513`*^9, 3.7630468074189463`*^9}}, CellLabel-> "In[123]:=",ExpressionUUID->"3aa457fb-e82d-483b-b48d-06427c90fb8a"], Cell[BoxData["True"], "Output", CellChangeTimes->{ 3.757875112857037*^9, {3.7596242153888316`*^9, 3.7596242254801292`*^9}, 3.760292313451894*^9, {3.76029309159933*^9, 3.7602931124680414`*^9}, 3.760295857205568*^9, 3.762967589939164*^9, {3.763046797195508*^9, 3.7630468114461718`*^9}, 3.763054429155377*^9}, CellLabel-> "Out[123]=",ExpressionUUID->"1aaee260-e763-4516-a810-259030f86f24"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", "LocalRep", "]"}]], "Input", CellChangeTimes->{{3.7629678398910837`*^9, 3.7629678419311647`*^9}}, CellLabel-> "In[124]:=",ExpressionUUID->"d34a6b3a-550f-4094-a24a-c42688e0c2e4"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["BL = L4.R3.L2.R1 and BR = R4.L3.R2.L1", "Subsection", CellChangeTimes->{{3.762967959512315*^9, 3.762967979479589*^9}},ExpressionUUID->"0f331b5e-6e36-47dd-bedb-\ e2fa682662d0"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"B", "[", "L", "]"}], "[", "Rep_", "]"}], "[", "word_", "]"}], ":=", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"LRaised4", "[", "Rep", "]"}], "[", RowBox[{"m", ",", "word"}], "]"}], "[", RowBox[{"[", "4", "]"}], "]"}], ".", RowBox[{ RowBox[{ RowBox[{"RRaised4", "[", "Rep", "]"}], "[", RowBox[{ RowBox[{"m", "/", "\[Rho]"}], ",", "word"}], "]"}], "[", RowBox[{"[", "3", "]"}], "]"}], ".", RowBox[{ RowBox[{ RowBox[{"LRaised4", "[", "Rep", "]"}], "[", RowBox[{"m", ",", "word"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], ".", RowBox[{ RowBox[{ RowBox[{"RRaised4", "[", "Rep", "]"}], "[", RowBox[{ RowBox[{"m", "/", "\[Rho]"}], ",", "word"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"B", "[", "R", "]"}], "[", "Rep_", "]"}], "[", "word_", "]"}], ":=", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"RRaised4", "[", "Rep", "]"}], "[", RowBox[{ RowBox[{"m", "/", "\[Rho]"}], ",", "word"}], "]"}], "[", RowBox[{"[", "4", "]"}], "]"}], ".", RowBox[{ RowBox[{ RowBox[{"LRaised4", "[", "Rep", "]"}], "[", RowBox[{"m", ",", "word"}], "]"}], "[", RowBox[{"[", "3", "]"}], "]"}], ".", RowBox[{ RowBox[{ RowBox[{"RRaised4", "[", "Rep", "]"}], "[", RowBox[{ RowBox[{"m", "/", "\[Rho]"}], ",", "word"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], ".", RowBox[{ RowBox[{ RowBox[{"LRaised4", "[", "Rep", "]"}], "[", RowBox[{"m", ",", "word"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}]}]}], "Input", CellChangeTimes->{{3.762967989748124*^9, 3.762968037134424*^9}, { 3.7629681127798777`*^9, 3.7629681312417107`*^9}, {3.7629682475916777`*^9, 3.7629683234397593`*^9}, {3.762968368652731*^9, 3.762968383761985*^9}, { 3.7629692030111933`*^9, 3.76296922364054*^9}, {3.76296926542059*^9, 3.7629693564062557`*^9}, {3.7630468314846907`*^9, 3.763046849012931*^9}, { 3.763046880825786*^9, 3.763046885426629*^9}, {3.7630496507558613`*^9, 3.763049650855547*^9}}, CellLabel-> "In[125]:=",ExpressionUUID->"42f6af81-a907-4b08-b7ba-c95def7a8e98"], Cell[BoxData[ RowBox[{ RowBox[{"\[Chi]0", "[", "Rep_", "]"}], " ", ":=", RowBox[{"CalculateChi0", "[", RowBox[{ RowBox[{"L", "[", "Rep", "]"}], ",", RowBox[{"RO", "[", "Rep", "]"}]}], "]"}], " ", RowBox[{"(*", " ", RowBox[{ RowBox[{ "Calculation", " ", "of", " ", "chi0", " ", "without", " ", "need", " ", "of", " ", "generating", " ", "R", " ", "matrices"}], ",", " ", RowBox[{ RowBox[{ "assumes", " ", "orthogonal", " ", "adinkra", " ", "matrices", " ", "L"}], " ", "=", " ", RowBox[{"R", "^", "T"}]}]}], "*)"}]}]], "Input", CellChangeTimes->{{3.763047228384891*^9, 3.763047276495038*^9}}, CellLabel-> "In[127]:=",ExpressionUUID->"9fb6dd3c-293e-479f-bf07-a6d825198820"], Cell[BoxData[ RowBox[{ RowBox[{"GR44RepList", " ", "=", " ", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "p1"], "*", RowBox[{"(", RowBox[{ RowBox[{"aa", "*", SuperscriptBox["10", "5"]}], "+", RowBox[{"mu", "*", SuperscriptBox["10", "4"]}], "+", RowBox[{"AA", "*", SuperscriptBox["10", "3"]}], "+", RowBox[{"bb", "*", SuperscriptBox["10", "2"]}], "+", RowBox[{"nu", "*", SuperscriptBox["10", "1"]}], "+", "tt"}], ")"}]}], ",", RowBox[{"{", RowBox[{"p1", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "1", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"AA", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "1", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"tt", ",", "1", ",", "2"}], "}"}]}], "]"}], "//", "Flatten"}]}], ";", " ", RowBox[{"(*", " ", RowBox[{ "List", " ", "of", " ", "all", " ", "Rep", " ", "Codes", " ", "for", " ", "the", " ", "GR44", " ", "valise", " ", "adinkras", " ", "as", " ", "in"}], " ", "*)"}]}]], "Input", CellChangeTimes->{{3.763047469230855*^9, 3.763047472486972*^9}, { 3.763047543698688*^9, 3.763047793257536*^9}}, CellLabel-> "In[128]:=",ExpressionUUID->"ef7b47f1-94b7-4944-bcf1-7ac74cad2f11"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Dimensions", "[", "GR44RepList", "]"}]], "Input", CellChangeTimes->{{3.763047736214704*^9, 3.763047741726869*^9}}, CellLabel-> "In[129]:=",ExpressionUUID->"b681698c-5e29-411b-9ed5-44f2117aec63"], Cell[BoxData[ RowBox[{"{", "36864", "}"}]], "Output", CellChangeTimes->{{3.763047742481319*^9, 3.763047768161024*^9}, 3.763049654769244*^9, 3.7630544293051167`*^9}, CellLabel-> "Out[129]=",ExpressionUUID->"94971301-a0ba-4b93-9e16-d082b0181673"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"B", "[", "L", "]"}], "[", RowBox[{"-", "111111"}], "]"}], "[", "1", "]"}]], "Input", CellChangeTimes->{{3.762968393305485*^9, 3.762968409285461*^9}, { 3.762969364998536*^9, 3.762969378756997*^9}, {3.7630468964107857`*^9, 3.763046904072454*^9}}, CellLabel-> "In[130]:=",ExpressionUUID->"19d8124c-749d-48b8-8edd-b43000218861"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "\[Rho]"}], ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "\[Rho]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", RowBox[{"-", "1"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.762968410800997*^9, 3.762969233725636*^9, 3.7629693151225224`*^9, { 3.762969348795706*^9, 3.76296937953545*^9}, {3.763046890308103*^9, 3.763046908675074*^9}, 3.763049654869417*^9, 3.763054429369832*^9}, CellLabel-> "Out[130]=",ExpressionUUID->"dc81c3ce-1b57-45dc-9a83-3008210f2e63"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[Chi]0", "[", RowBox[{"-", "111111"}], "]"}]], "Input", CellChangeTimes->{{3.763047031256652*^9, 3.763047058869563*^9}, { 3.763047295997444*^9, 3.763047318449135*^9}}, CellLabel-> "In[131]:=",ExpressionUUID->"23844055-3fa8-4269-a399-cd1be8b1013c"], Cell[BoxData[ RowBox[{"-", "1"}]], "Output", CellChangeTimes->{{3.7630470399336033`*^9, 3.763047053344298*^9}, { 3.763047300975889*^9, 3.763047319225958*^9}, 3.7630496549738503`*^9, 3.7630544294733257`*^9}, CellLabel-> "Out[131]=",ExpressionUUID->"f443a3c1-886f-407a-ad82-279119adad87"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"RepNo", " ", "=", " ", "5891"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Chi]0", "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}], RowBox[{"Eigenvalues", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "R", "]"}], "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}], "[", "15", "]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{"Clear", "[", "RepNo", "]"}]}], "Input", CellChangeTimes->{{3.763048124997291*^9, 3.763048268096854*^9}}, CellLabel-> "In[132]:=",ExpressionUUID->"62d35477-4324-423c-bb16-145bf0ddbbdf"], Cell[BoxData["5891"], "Output", CellChangeTimes->{{3.763048142844953*^9, 3.763048147803567*^9}, 3.763048204989504*^9, {3.763048236572568*^9, 3.763048268515934*^9}, 3.7630496550853853`*^9, 3.763054429570665*^9}, CellLabel-> "Out[132]=",ExpressionUUID->"d8dca772-f8ff-4267-a065-c5902191b7ba"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", SuperscriptBox["\[Rho]", "2"]}], ",", RowBox[{"-", SuperscriptBox["\[Rho]", "2"]}], ",", RowBox[{"-", SuperscriptBox["\[Rho]", "2"]}], ",", RowBox[{"-", SuperscriptBox["\[Rho]", "2"]}]}], "}"}]], "Output", CellChangeTimes->{{3.763048142844953*^9, 3.763048147803567*^9}, 3.763048204989504*^9, {3.763048236572568*^9, 3.763048268515934*^9}, 3.7630496550853853`*^9, 3.763054429583064*^9}, CellLabel-> "Out[133]=",ExpressionUUID->"abdcb9de-084c-453c-ac9c-b1df1ea29c4c"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "zero nodes raised: w = 0\nPrints True/False whether the eigenvalues of ", Cell[BoxData[ FormBox[ SubscriptBox["B", "L"], TraditionalForm]], FormatType->"TraditionalForm",ExpressionUUID-> "86a6c084-898a-4b7a-88b9-d455928261cb"], " are correct or not and True/False whether the eigenvalues of ", Cell[BoxData[ FormBox[ SubscriptBox["B", "R"], TraditionalForm]], FormatType->"TraditionalForm",ExpressionUUID-> "753fa671-28f4-4291-8844-48f78ca57493"], " are correct or not" }], "Subsection", CellChangeTimes->{{3.7596252186690226`*^9, 3.759625229509034*^9}, { 3.763045903503067*^9, 3.763045908951254*^9}, {3.763046466097885*^9, 3.763046466895091*^9}, {3.763050017886567*^9, 3.763050059697647*^9}, { 3.763050153594616*^9, 3.763050187217669*^9}, {3.7630502895947113`*^9, 3.763050302012877*^9}, {3.76305046931472*^9, 3.763050559341703*^9}},ExpressionUUID->"5e1da141-f0de-429a-b605-\ 7c18e9d150e1"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"LocalNumReps", " ", "=", " ", "100"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"LocalRandomRepList", " ", "=", RowBox[{"RandomInteger", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "36864"}], "}"}], ",", "LocalNumReps"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"LocalWord", " ", "=", " ", "0"}], ";"}], " ", RowBox[{"(*", "Valise", " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"BEigens", "[", "L", "]"}], "[", RowBox[{"LocalWord", ",", "4", ",", "4"}], "]"}], " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"\[Chi]0", "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}], "*", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "}"}]}], ",", RowBox[{"{", RowBox[{"RepNo", ",", "LocalRandomRepList"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"BEigens", "[", "R", "]"}], "[", RowBox[{"LocalWord", ",", "4", ",", "4"}], "]"}], " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"\[Chi]0", "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}], "*", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"RepNo", ",", "LocalRandomRepList"}], "}"}]}], "]"}]}], ";", RowBox[{ RowBox[{ RowBox[{"BEigens", "[", "L", "]"}], "[", RowBox[{"LocalWord", ",", "4", ",", "4"}], "]"}], "==", RowBox[{"Table", "[", RowBox[{ RowBox[{"Eigenvalues", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "L", "]"}], "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}], "[", "LocalWord", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"RepNo", ",", "LocalRandomRepList"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"BEigens", "[", "R", "]"}], "[", RowBox[{"LocalWord", ",", "4", ",", "4"}], "]"}], "==", RowBox[{"Table", "[", RowBox[{ RowBox[{"Eigenvalues", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "R", "]"}], "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}], "[", "LocalWord", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"RepNo", ",", "LocalRandomRepList"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"StringJoin", "[", RowBox[{"\"\\"", ",", " ", RowBox[{"ToString", "[", "LocalWord", "]"}]}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"StringJoin", "[", RowBox[{"\"\\"", ",", " ", RowBox[{"ToString", "[", "LocalRandomRepList", "]"}]}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{"Clear", "[", RowBox[{"LocalWord", ",", "LocalRandomRepList", ",", "LocalNumReps"}], "]"}]}], "Input", CellChangeTimes->{{3.7596247762483854`*^9, 3.7596247973492837`*^9}, { 3.759624862428567*^9, 3.7596249467393703`*^9}, {3.7596249996393104`*^9, 3.7596249997389007`*^9}, {3.759625126019148*^9, 3.7596251717189445`*^9}, { 3.759625246288945*^9, 3.7596252491288996`*^9}, {3.763045845475657*^9, 3.763045900831832*^9}, {3.763046009980217*^9, 3.76304601878785*^9}, { 3.763046067175521*^9, 3.7630460829683437`*^9}, {3.76304611370175*^9, 3.763046115830962*^9}, {3.763046500184552*^9, 3.763046531446299*^9}, { 3.763048748086976*^9, 3.7630488655600233`*^9}, {3.7630489013793783`*^9, 3.763048913725868*^9}, {3.763049004749578*^9, 3.763049026257161*^9}, { 3.763049293990444*^9, 3.763049305738947*^9}, {3.763049698447546*^9, 3.763049703736127*^9}, {3.763050001438801*^9, 3.763050005013592*^9}, { 3.7630502195723667`*^9, 3.763050251604858*^9}, {3.763050334050603*^9, 3.763050337979888*^9}, {3.763050370088377*^9, 3.763050452402713*^9}, { 3.763050533149123*^9, 3.763050535493803*^9}, 3.763050582880835*^9}, CellLabel-> "In[135]:=",ExpressionUUID->"af7fdbbb-9536-4e03-a8ca-284b7559463d"], Cell[BoxData["True"], "Output", CellChangeTimes->{{3.759624872169362*^9, 3.759624878768899*^9}, { 3.7596249187193003`*^9, 3.7596249475591917`*^9}, 3.7596249999892406`*^9, 3.759625172292762*^9, 3.759625250308663*^9, 3.7602923135466948`*^9, 3.7602925846082525`*^9, 3.7602926664022503`*^9, 3.760295856202198*^9, 3.762967588055868*^9, 3.763045350710292*^9, 3.763045388716611*^9, { 3.763045894043848*^9, 3.7630459126461277`*^9}, 3.7630461318103237`*^9, 3.763046538208836*^9, {3.763049018016876*^9, 3.763049040742711*^9}, { 3.763049182537252*^9, 3.763049214495669*^9}, {3.763049314031332*^9, 3.763049317454749*^9}, 3.7630494750418863`*^9, {3.763049689307949*^9, 3.763049732449902*^9}, 3.76305020950592*^9, {3.763050260135955*^9, 3.763050280816101*^9}, 3.7630503461412582`*^9, {3.7630504103273783`*^9, 3.763050420777594*^9}, 3.7630504556014347`*^9, {3.763050566930152*^9, 3.763050588769443*^9}, 3.763054432310993*^9}, CellLabel-> "Out[139]=",ExpressionUUID->"c7b983ed-d673-4250-9254-11aba187411f"], Cell[BoxData["True"], "Output", CellChangeTimes->{{3.759624872169362*^9, 3.759624878768899*^9}, { 3.7596249187193003`*^9, 3.7596249475591917`*^9}, 3.7596249999892406`*^9, 3.759625172292762*^9, 3.759625250308663*^9, 3.7602923135466948`*^9, 3.7602925846082525`*^9, 3.7602926664022503`*^9, 3.760295856202198*^9, 3.762967588055868*^9, 3.763045350710292*^9, 3.763045388716611*^9, { 3.763045894043848*^9, 3.7630459126461277`*^9}, 3.7630461318103237`*^9, 3.763046538208836*^9, {3.763049018016876*^9, 3.763049040742711*^9}, { 3.763049182537252*^9, 3.763049214495669*^9}, {3.763049314031332*^9, 3.763049317454749*^9}, 3.7630494750418863`*^9, {3.763049689307949*^9, 3.763049732449902*^9}, 3.76305020950592*^9, {3.763050260135955*^9, 3.763050280816101*^9}, 3.7630503461412582`*^9, {3.7630504103273783`*^9, 3.763050420777594*^9}, 3.7630504556014347`*^9, {3.763050566930152*^9, 3.763050588769443*^9}, 3.763054433769809*^9}, CellLabel-> "Out[140]=",ExpressionUUID->"53758f77-93ad-4fad-8167-ae83e857942d"], Cell[CellGroupData[{ Cell[BoxData["\<\"Word = 0\"\>"], "Print", CellChangeTimes->{{3.7630504117822227`*^9, 3.763050422245468*^9}, 3.763050457060657*^9, {3.7630505683806887`*^9, 3.763050590212371*^9}, 3.763054433776801*^9}, CellLabel-> "During evaluation of \ In[135]:=",ExpressionUUID->"5832af1a-aa73-4d38-afd9-a2d3c47ea348"], Cell[BoxData["\<\"Reps Randomly Checked are {1217, 16063, 12038, 20728, \ 35894, 13936, 2991, 27991, 23310, 17193, 8779, 18185, 25574, 11080, 31218, \ 26656, 26643, 18685, 33002, 26914, 20309, 9566, 22092, 25272, 15824, 5755, \ 20335, 6055, 19657, 11552, 36221, 23272, 16392, 35581, 17684, 34958, 15407, \ 9678, 5592, 34223, 27987, 10238, 33989, 27840, 18558, 9082, 9752, 175, 4980, \ 7861, 35776, 9138, 20112, 17685, 27164, 30093, 32063, 7133, 15719, 18470, \ 15201, 29712, 29840, 34293, 16741, 24220, 22499, 13780, 7371, 24409, 19625, \ 22546, 25384, 4303, 26659, 33747, 14009, 7244, 16779, 8939, 36333, 17112, \ 17649, 1281, 19552, 2039, 31036, 20097, 27126, 21233, 27023, 3837, 20599, \ 34423, 31517, 22460, 27328, 17617, 16560, 2771}\"\>"], "Print", CellChangeTimes->{{3.7630504117822227`*^9, 3.763050422245468*^9}, 3.763050457060657*^9, {3.7630505683806887`*^9, 3.763050590212371*^9}, 3.763054433783003*^9}, CellLabel-> "During evaluation of \ In[135]:=",ExpressionUUID->"6c572d49-0261-4d1d-89af-7dfa8d4994e1"] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "One Nodes Raised: w = 1,2,4,8\nPrints True/False whether the eigenvalues of \ ", Cell[BoxData[ FormBox[ SubscriptBox["B", "L"], TraditionalForm]], FormatType->"TraditionalForm",ExpressionUUID-> "818af588-daf5-4d43-b581-cfb920589de9"], " are correct or not and True/False whether the eigenvalues of ", Cell[BoxData[ FormBox[ SubscriptBox["B", "R"], TraditionalForm]], FormatType->"TraditionalForm",ExpressionUUID-> "c68b11db-b42f-4804-9fe8-84bed3e907b3"], " are correct or not" }], "Subsection", CellChangeTimes->{{3.7630539618483257`*^9, 3.7630539671468678`*^9}, { 3.763054022304677*^9, 3.763054022516675*^9}},ExpressionUUID->"9826164c-4999-44cf-8855-\ 50112a2bb375"], Cell[CellGroupData[{ Cell["one node raised: w = 1", "Subsubsection", CellChangeTimes->{{3.7596252186690226`*^9, 3.759625229509034*^9}, { 3.763045903503067*^9, 3.763045908951254*^9}, {3.763046466097885*^9, 3.763046466895091*^9}, {3.763050017886567*^9, 3.763050059697647*^9}, { 3.763050153594616*^9, 3.763050187217669*^9}, {3.7630502895947113`*^9, 3.763050302012877*^9}, {3.76305046931472*^9, 3.763050559341703*^9}, { 3.763050596464254*^9, 3.763050596556622*^9}, {3.763050679369999*^9, 3.763050680197473*^9}, {3.763054028977543*^9, 3.7630540291677856`*^9}},ExpressionUUID->"014c2bb7-5d92-4891-a44d-\ ec2fd623ddf2"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"LocalNumReps", " ", "=", " ", "100"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"LocalRandomRepList", " ", "=", RowBox[{"RandomInteger", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "36864"}], "}"}], ",", "LocalNumReps"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"LocalWord", " ", "=", " ", "1"}], ";", " ", RowBox[{"(*", " ", RowBox[{"First", " ", "node", " ", "raised"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"BEigens", "[", "L", "]"}], "[", RowBox[{"LocalWord", ",", "4", ",", "4"}], "]"}], " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"\[Chi]0", "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}], "*", RowBox[{"{", RowBox[{"1", ",", "1", ",", "\[Rho]", ",", "\[Rho]"}], "}"}]}], ",", RowBox[{"{", RowBox[{"RepNo", ",", "LocalRandomRepList"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"BEigens", "[", "R", "]"}], "[", RowBox[{"LocalWord", ",", "4", ",", "4"}], "]"}], " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"\[Chi]0", "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}], "*", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "\[Rho]"}], ",", RowBox[{"-", "\[Rho]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"RepNo", ",", "LocalRandomRepList"}], "}"}]}], "]"}]}], ";", RowBox[{ RowBox[{ RowBox[{"BEigens", "[", "L", "]"}], "[", RowBox[{"LocalWord", ",", "4", ",", "4"}], "]"}], "==", RowBox[{"Table", "[", RowBox[{ RowBox[{"Eigenvalues", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "L", "]"}], "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}], "[", "LocalWord", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"RepNo", ",", "LocalRandomRepList"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"BEigens", "[", "R", "]"}], "[", RowBox[{"LocalWord", ",", "4", ",", "4"}], "]"}], "==", RowBox[{"Table", "[", RowBox[{ RowBox[{"Eigenvalues", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "R", "]"}], "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}], "[", "LocalWord", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"RepNo", ",", "LocalRandomRepList"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"StringJoin", "[", RowBox[{"\"\\"", ",", " ", RowBox[{"ToString", "[", "LocalWord", "]"}]}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"StringJoin", "[", RowBox[{"\"\\"", ",", " ", RowBox[{"ToString", "[", "LocalRandomRepList", "]"}]}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{"Clear", "[", RowBox[{"LocalWord", ",", "LocalRandomRepList", ",", "LocalNumReps"}], "]"}]}], "Input", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmViYGAQA2IQfewTu+crpjeOobqrvUH0pW1ng0H0mxXhcSDauvRL CogWXvodTN+Zc6AERM9gLK8C0Vz2J5tB9Cd5lRYQPdVi/a4CzjeOcfNmHQTR H2Ltz4NoQbPICyD63tzUayB6zZ+4GyB6T4nZHRBtN70KTN963spTCKRFPfIE QHTTiSbVIiC97bWhCYi+p7zGAkQHWJlbgejuP9NdQfQqKw8PEL1j4/5MEF2y 1DwbRPsE+c0B0VF938H0Ci69QyA6In8BmL4SUHQXRP+PKn4IorvmHXwNou2i 7d+A6D+XnT6AaLbHPb9A9LyjS1iKgbTN2fdg+qz+HS4Q/eOuOS+IvnizQRBE G2lNkADRAMYcqck= "], CellLabel-> "In[144]:=",ExpressionUUID->"d57b14cf-c990-4d50-a40e-2c38177e5b18"], Cell[BoxData["True"], "Output", CellChangeTimes->{{3.759624872169362*^9, 3.759624878768899*^9}, { 3.7596249187193003`*^9, 3.7596249475591917`*^9}, 3.7596249999892406`*^9, 3.759625172292762*^9, 3.759625250308663*^9, 3.7602923135466948`*^9, 3.7602925846082525`*^9, 3.7602926664022503`*^9, 3.760295856202198*^9, 3.762967588055868*^9, 3.763045350710292*^9, 3.763045388716611*^9, { 3.763045894043848*^9, 3.7630459126461277`*^9}, 3.7630461318103237`*^9, 3.763046538208836*^9, {3.763049018016876*^9, 3.763049040742711*^9}, { 3.763049182537252*^9, 3.763049214495669*^9}, {3.763049314031332*^9, 3.763049317454749*^9}, 3.7630494750418863`*^9, {3.763049689307949*^9, 3.763049732449902*^9}, 3.76305020950592*^9, {3.763050260135955*^9, 3.763050280816101*^9}, 3.7630503461412582`*^9, {3.7630504103273783`*^9, 3.763050420777594*^9}, 3.7630504556014347`*^9, {3.763050566930152*^9, 3.763050588769443*^9}, 3.763050666672117*^9, 3.763054436700392*^9}, CellLabel-> "Out[147]=",ExpressionUUID->"5b3b6b97-c853-4869-9e0b-598ddadc40da"], Cell[BoxData["True"], "Output", CellChangeTimes->{{3.759624872169362*^9, 3.759624878768899*^9}, { 3.7596249187193003`*^9, 3.7596249475591917`*^9}, 3.7596249999892406`*^9, 3.759625172292762*^9, 3.759625250308663*^9, 3.7602923135466948`*^9, 3.7602925846082525`*^9, 3.7602926664022503`*^9, 3.760295856202198*^9, 3.762967588055868*^9, 3.763045350710292*^9, 3.763045388716611*^9, { 3.763045894043848*^9, 3.7630459126461277`*^9}, 3.7630461318103237`*^9, 3.763046538208836*^9, {3.763049018016876*^9, 3.763049040742711*^9}, { 3.763049182537252*^9, 3.763049214495669*^9}, {3.763049314031332*^9, 3.763049317454749*^9}, 3.7630494750418863`*^9, {3.763049689307949*^9, 3.763049732449902*^9}, 3.76305020950592*^9, {3.763050260135955*^9, 3.763050280816101*^9}, 3.7630503461412582`*^9, {3.7630504103273783`*^9, 3.763050420777594*^9}, 3.7630504556014347`*^9, {3.763050566930152*^9, 3.763050588769443*^9}, 3.763050666672117*^9, 3.763054438302182*^9}, CellLabel-> "Out[148]=",ExpressionUUID->"da356c12-66c3-4346-b54d-babcc708e7b0"], Cell[CellGroupData[{ Cell[BoxData["\<\"Word = 1\"\>"], "Print", CellChangeTimes->{{3.7630504117822227`*^9, 3.763050422245468*^9}, 3.763050457060657*^9, {3.7630505683806887`*^9, 3.763050590212371*^9}, 3.763050668203898*^9, 3.763054438309532*^9}, CellLabel-> "During evaluation of \ In[144]:=",ExpressionUUID->"79866f6a-d157-43e3-ac44-97e2c085e849"], Cell[BoxData["\<\"Reps Randomly Checked are {17222, 26935, 3534, 25431, \ 19520, 11554, 3810, 27591, 20712, 23221, 26307, 35537, 20246, 9068, 24396, \ 14656, 19926, 21919, 22805, 5056, 3922, 31260, 31394, 35585, 26858, 4147, \ 27217, 2785, 12633, 7125, 18274, 33128, 13647, 22967, 22572, 13185, 211, \ 5819, 5685, 13089, 34151, 5728, 7838, 28005, 4912, 19881, 24523, 29474, \ 27769, 12922, 9707, 31595, 30645, 31964, 27817, 24788, 9452, 33858, 7972, \ 35595, 5472, 10370, 34699, 34063, 28176, 14788, 12196, 30601, 1444, 30498, \ 30876, 1142, 9318, 20624, 31785, 18773, 3459, 14466, 36249, 27477, 15131, \ 9137, 17879, 18762, 30666, 34162, 22056, 1791, 18802, 28612, 12793, 2636, \ 11707, 27358, 16599, 26218, 35663, 2699, 13108, 27025}\"\>"], "Print", CellChangeTimes->{{3.7630504117822227`*^9, 3.763050422245468*^9}, 3.763050457060657*^9, {3.7630505683806887`*^9, 3.763050590212371*^9}, 3.763050668203898*^9, 3.763054438315658*^9}, CellLabel-> "During evaluation of \ In[144]:=",ExpressionUUID->"a42149c0-7a29-435e-aa0a-2a1a1136d369"] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["one node raised: w = 2", "Subsubsection", CellChangeTimes->{{3.7596252186690226`*^9, 3.759625229509034*^9}, { 3.763045903503067*^9, 3.763045908951254*^9}, {3.763046466097885*^9, 3.763046466895091*^9}, {3.763050017886567*^9, 3.763050059697647*^9}, { 3.763050153594616*^9, 3.763050187217669*^9}, {3.7630502895947113`*^9, 3.763050302012877*^9}, {3.76305046931472*^9, 3.763050559341703*^9}, { 3.763050596464254*^9, 3.763050596556622*^9}, {3.763050675849996*^9, 3.763050701993865*^9}, {3.763054034041387*^9, 3.7630540350105667`*^9}},ExpressionUUID->"82168772-50d6-4407-8ff3-\ fe5f6cb44020"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"LocalNumReps", " ", "=", " ", "100"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"LocalRandomRepList", " ", "=", RowBox[{"RandomInteger", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "36864"}], "}"}], ",", "LocalNumReps"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"LocalWord", " ", "=", " ", "2"}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"BEigens", "[", "L", "]"}], "[", RowBox[{"LocalWord", ",", "4", ",", "4"}], "]"}], " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"\[Chi]0", "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}], "*", RowBox[{"{", RowBox[{"1", ",", "1", ",", "\[Rho]", ",", "\[Rho]"}], "}"}]}], ",", RowBox[{"{", RowBox[{"RepNo", ",", "LocalRandomRepList"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"BEigens", "[", "R", "]"}], "[", RowBox[{"LocalWord", ",", "4", ",", "4"}], "]"}], " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"\[Chi]0", "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}], "*", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "\[Rho]"}], ",", RowBox[{"-", "\[Rho]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"RepNo", ",", "LocalRandomRepList"}], "}"}]}], "]"}]}], ";", RowBox[{ RowBox[{ RowBox[{"BEigens", "[", "L", "]"}], "[", RowBox[{"LocalWord", ",", "4", ",", "4"}], "]"}], "==", RowBox[{"Table", "[", RowBox[{ RowBox[{"Eigenvalues", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "L", "]"}], "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}], "[", "LocalWord", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"RepNo", ",", "LocalRandomRepList"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"BEigens", "[", "R", "]"}], "[", RowBox[{"LocalWord", ",", "4", ",", "4"}], "]"}], "==", RowBox[{"Table", "[", RowBox[{ RowBox[{"Eigenvalues", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "R", "]"}], "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}], "[", "LocalWord", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"RepNo", ",", "LocalRandomRepList"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"StringJoin", "[", RowBox[{"\"\\"", ",", " ", RowBox[{"ToString", "[", "LocalWord", "]"}]}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"StringJoin", "[", RowBox[{"\"\\"", ",", " ", RowBox[{"ToString", "[", "LocalRandomRepList", "]"}]}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{"Clear", "[", RowBox[{"LocalWord", ",", "LocalRandomRepList", ",", "LocalNumReps"}], "]"}]}], "Input", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmViYGAQB2IQfewTu+crpjeOobqrvUH0pW1ng0H0mxXhcSDauvRL CogWXvodTN+Zc6AERM9gLK8C0Vz2J5tB9Cd5lRYQPdVi/a4CzjeOcfNmHQTR H2Ltz4NoQbPICyD63tzUayB6zZ+4GyB6T4nZHRBtN70KTN963spTCKRFPfIE QHTTiSbVIiC97bWhCYi+p7zGAkQHWJlbgejuP9NdQfQqKw8PEL1j4/5MEF2y 1DwbRPsE+c0B0VF938H0Ci69QyA6In8BmL4SUHQXRP+PKn4IorvmHXwNou2i 7d+A6D+XnT6AaLbHPb9A9LyjS1iKgbTN2fdg+qz+HS4Q/eOuOS+IvnizQRBE W+hFi4BorohqKRC9pus3mAYAk3mwLw== "], CellLabel-> "In[152]:=",ExpressionUUID->"27322ae2-dba3-4221-a72b-f0f433a25fb5"], Cell[BoxData["True"], "Output", CellChangeTimes->{{3.759624872169362*^9, 3.759624878768899*^9}, { 3.7596249187193003`*^9, 3.7596249475591917`*^9}, 3.7596249999892406`*^9, 3.759625172292762*^9, 3.759625250308663*^9, 3.7602923135466948`*^9, 3.7602925846082525`*^9, 3.7602926664022503`*^9, 3.760295856202198*^9, 3.762967588055868*^9, 3.763045350710292*^9, 3.763045388716611*^9, { 3.763045894043848*^9, 3.7630459126461277`*^9}, 3.7630461318103237`*^9, 3.763046538208836*^9, {3.763049018016876*^9, 3.763049040742711*^9}, { 3.763049182537252*^9, 3.763049214495669*^9}, {3.763049314031332*^9, 3.763049317454749*^9}, 3.7630494750418863`*^9, {3.763049689307949*^9, 3.763049732449902*^9}, 3.76305020950592*^9, {3.763050260135955*^9, 3.763050280816101*^9}, 3.7630503461412582`*^9, {3.7630504103273783`*^9, 3.763050420777594*^9}, 3.7630504556014347`*^9, {3.763050566930152*^9, 3.763050588769443*^9}, 3.763050666672117*^9, 3.763050719527597*^9, 3.763054441206688*^9}, CellLabel-> "Out[156]=",ExpressionUUID->"78919c92-7177-4598-862f-40ae2a0df6e4"], Cell[BoxData["True"], "Output", CellChangeTimes->{{3.759624872169362*^9, 3.759624878768899*^9}, { 3.7596249187193003`*^9, 3.7596249475591917`*^9}, 3.7596249999892406`*^9, 3.759625172292762*^9, 3.759625250308663*^9, 3.7602923135466948`*^9, 3.7602925846082525`*^9, 3.7602926664022503`*^9, 3.760295856202198*^9, 3.762967588055868*^9, 3.763045350710292*^9, 3.763045388716611*^9, { 3.763045894043848*^9, 3.7630459126461277`*^9}, 3.7630461318103237`*^9, 3.763046538208836*^9, {3.763049018016876*^9, 3.763049040742711*^9}, { 3.763049182537252*^9, 3.763049214495669*^9}, {3.763049314031332*^9, 3.763049317454749*^9}, 3.7630494750418863`*^9, {3.763049689307949*^9, 3.763049732449902*^9}, 3.76305020950592*^9, {3.763050260135955*^9, 3.763050280816101*^9}, 3.7630503461412582`*^9, {3.7630504103273783`*^9, 3.763050420777594*^9}, 3.7630504556014347`*^9, {3.763050566930152*^9, 3.763050588769443*^9}, 3.763050666672117*^9, 3.763050719527597*^9, 3.7630544428374357`*^9}, CellLabel-> "Out[157]=",ExpressionUUID->"fbcd4d5f-d1e9-4f44-87c2-4a7645f3ac5f"], Cell[CellGroupData[{ Cell[BoxData["\<\"Word = 2\"\>"], "Print", CellChangeTimes->{{3.7630504117822227`*^9, 3.763050422245468*^9}, 3.763050457060657*^9, {3.7630505683806887`*^9, 3.763050590212371*^9}, 3.763050668203898*^9, 3.7630507210363398`*^9, 3.7630544428455687`*^9}, CellLabel-> "During evaluation of \ In[152]:=",ExpressionUUID->"6499bfd2-8f12-49d2-bcb6-074042790655"], Cell[BoxData["\<\"Reps Randomly Checked are {4700, 23744, 19340, 5727, \ 30460, 28739, 5756, 36307, 34868, 33079, 4644, 17898, 20570, 3624, 16654, \ 25941, 30327, 26520, 3178, 31397, 7827, 14774, 7909, 21161, 32406, 33557, \ 32735, 22019, 18012, 4318, 3730, 14944, 29472, 3203, 20438, 34063, 4648, 175, \ 34183, 20488, 17067, 21955, 13093, 36520, 22953, 13924, 30447, 20798, 407, \ 10819, 6376, 31371, 31909, 23439, 1349, 13905, 4220, 11037, 30106, 21704, \ 7392, 17211, 19195, 30634, 11739, 20358, 13557, 22686, 25054, 29427, 29544, \ 2994, 5590, 14813, 26646, 12731, 24229, 9985, 5412, 33137, 33198, 14086, \ 18244, 21559, 14179, 33763, 10168, 9148, 11645, 20515, 22293, 23112, 26151, \ 1273, 24824, 10128, 36591, 14808, 33060, 14320}\"\>"], "Print", CellChangeTimes->{{3.7630504117822227`*^9, 3.763050422245468*^9}, 3.763050457060657*^9, {3.7630505683806887`*^9, 3.763050590212371*^9}, 3.763050668203898*^9, 3.7630507210363398`*^9, 3.763054442851405*^9}, CellLabel-> "During evaluation of \ In[152]:=",ExpressionUUID->"4814ea3b-3490-44ff-bac9-4734fc5fadec"] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["one node raised: w = 4", "Subsubsection", CellChangeTimes->{{3.7596252186690226`*^9, 3.759625229509034*^9}, { 3.763045903503067*^9, 3.763045908951254*^9}, {3.763046466097885*^9, 3.763046466895091*^9}, {3.763050017886567*^9, 3.763050059697647*^9}, { 3.763050153594616*^9, 3.763050187217669*^9}, {3.7630502895947113`*^9, 3.763050302012877*^9}, {3.76305046931472*^9, 3.763050559341703*^9}, { 3.763050596464254*^9, 3.763050596556622*^9}, {3.763050675849996*^9, 3.763050744467217*^9}, {3.7630540411351023`*^9, 3.763054041452354*^9}},ExpressionUUID->"df076dc4-24e0-44e1-9855-\ 922d514b1a70"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"LocalNumReps", " ", "=", " ", "100"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"LocalRandomRepList", " ", "=", RowBox[{"RandomInteger", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "36864"}], "}"}], ",", "LocalNumReps"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"LocalWord", " ", "=", " ", "4"}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"BEigens", "[", "L", "]"}], "[", RowBox[{"LocalWord", ",", "4", ",", "4"}], "]"}], " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"\[Chi]0", "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}], "*", RowBox[{"{", RowBox[{"1", ",", "1", ",", "\[Rho]", ",", "\[Rho]"}], "}"}]}], ",", RowBox[{"{", RowBox[{"RepNo", ",", "LocalRandomRepList"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"BEigens", "[", "R", "]"}], "[", RowBox[{"LocalWord", ",", "4", ",", "4"}], "]"}], " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"\[Chi]0", "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}], "*", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "\[Rho]"}], ",", RowBox[{"-", "\[Rho]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"RepNo", ",", "LocalRandomRepList"}], "}"}]}], "]"}]}], ";", RowBox[{ RowBox[{ RowBox[{"BEigens", "[", "L", "]"}], "[", RowBox[{"LocalWord", ",", "4", ",", "4"}], "]"}], "==", RowBox[{"Table", "[", RowBox[{ RowBox[{"Eigenvalues", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "L", "]"}], "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}], "[", "LocalWord", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"RepNo", ",", "LocalRandomRepList"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"BEigens", "[", "R", "]"}], "[", RowBox[{"LocalWord", ",", "4", ",", "4"}], "]"}], "==", RowBox[{"Table", "[", RowBox[{ RowBox[{"Eigenvalues", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "R", "]"}], "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}], "[", "LocalWord", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"RepNo", ",", "LocalRandomRepList"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"StringJoin", "[", RowBox[{"\"\\"", ",", " ", RowBox[{"ToString", "[", "LocalWord", "]"}]}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"StringJoin", "[", RowBox[{"\"\\"", ",", " ", RowBox[{"ToString", "[", "LocalRandomRepList", "]"}]}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{"Clear", "[", RowBox[{"LocalWord", ",", "LocalRandomRepList", ",", "LocalNumReps"}], "]"}]}], "Input", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmViYGAQB2IQfewTu+crpjeOobqrvUH0pW1ng0H0mxXhcSDauvRL CogWXvodTN+Zc6AERM9gLK8C0Vz2J5tB9Cd5lRYQPdVi/a4CzjeOcfNmHQTR H2Ltz4NoQbPICyD63tzUayB6zZ+4GyB6T4nZHRBtN70KTN963spTCKRFPfIE QHTTiSbVIiC97bWhCYi+p7zGAkQHWJlbgejuP9NdQfQqKw8PEL1j4/5MEF2y 1DwbRPsE+c0B0VF938H0Ci69QyA6In8BmL4SUHQXRP+PKn4IorvmHXwNou2i 7d+A6D+XnT6AaLbHPb9A9LyjS1iKgbTN2fdg+qz+HS4Q/eOuOS+IvnizQRBE W+hFi4BorohqKRDt4hMvD6IBiviu8g== "], CellLabel-> "In[161]:=",ExpressionUUID->"f324c291-90b5-43a3-952c-0d381de26e48"], Cell[BoxData["True"], "Output", CellChangeTimes->{{3.759624872169362*^9, 3.759624878768899*^9}, { 3.7596249187193003`*^9, 3.7596249475591917`*^9}, 3.7596249999892406`*^9, 3.759625172292762*^9, 3.759625250308663*^9, 3.7602923135466948`*^9, 3.7602925846082525`*^9, 3.7602926664022503`*^9, 3.760295856202198*^9, 3.762967588055868*^9, 3.763045350710292*^9, 3.763045388716611*^9, { 3.763045894043848*^9, 3.7630459126461277`*^9}, 3.7630461318103237`*^9, 3.763046538208836*^9, {3.763049018016876*^9, 3.763049040742711*^9}, { 3.763049182537252*^9, 3.763049214495669*^9}, {3.763049314031332*^9, 3.763049317454749*^9}, 3.7630494750418863`*^9, {3.763049689307949*^9, 3.763049732449902*^9}, 3.76305020950592*^9, {3.763050260135955*^9, 3.763050280816101*^9}, 3.7630503461412582`*^9, {3.7630504103273783`*^9, 3.763050420777594*^9}, 3.7630504556014347`*^9, {3.763050566930152*^9, 3.763050588769443*^9}, 3.763050666672117*^9, {3.763050719527597*^9, 3.76305075088982*^9}, 3.7630544457192087`*^9}, CellLabel-> "Out[165]=",ExpressionUUID->"761f2ee6-a7ef-47a6-9cb3-7ad9aab4a7ed"], Cell[BoxData["True"], "Output", CellChangeTimes->{{3.759624872169362*^9, 3.759624878768899*^9}, { 3.7596249187193003`*^9, 3.7596249475591917`*^9}, 3.7596249999892406`*^9, 3.759625172292762*^9, 3.759625250308663*^9, 3.7602923135466948`*^9, 3.7602925846082525`*^9, 3.7602926664022503`*^9, 3.760295856202198*^9, 3.762967588055868*^9, 3.763045350710292*^9, 3.763045388716611*^9, { 3.763045894043848*^9, 3.7630459126461277`*^9}, 3.7630461318103237`*^9, 3.763046538208836*^9, {3.763049018016876*^9, 3.763049040742711*^9}, { 3.763049182537252*^9, 3.763049214495669*^9}, {3.763049314031332*^9, 3.763049317454749*^9}, 3.7630494750418863`*^9, {3.763049689307949*^9, 3.763049732449902*^9}, 3.76305020950592*^9, {3.763050260135955*^9, 3.763050280816101*^9}, 3.7630503461412582`*^9, {3.7630504103273783`*^9, 3.763050420777594*^9}, 3.7630504556014347`*^9, {3.763050566930152*^9, 3.763050588769443*^9}, 3.763050666672117*^9, {3.763050719527597*^9, 3.76305075088982*^9}, 3.763054447289135*^9}, CellLabel-> "Out[166]=",ExpressionUUID->"8628c6a1-4cca-407f-876f-6541e0cd6020"], Cell[CellGroupData[{ Cell[BoxData["\<\"Word = 4\"\>"], "Print", CellChangeTimes->{{3.7630504117822227`*^9, 3.763050422245468*^9}, 3.763050457060657*^9, {3.7630505683806887`*^9, 3.763050590212371*^9}, 3.763050668203898*^9, {3.7630507210363398`*^9, 3.763050752395742*^9}, 3.763054447296548*^9}, CellLabel-> "During evaluation of \ In[161]:=",ExpressionUUID->"457030fd-4241-4a31-9444-e5d01365e782"], Cell[BoxData["\<\"Reps Randomly Checked are {29872, 22039, 2399, 13752, \ 13707, 32484, 3130, 1319, 6490, 8902, 29830, 28696, 14955, 7493, 10841, 6458, \ 26710, 18829, 6657, 30865, 26006, 16426, 18525, 4538, 19749, 23325, 34287, \ 25543, 26549, 1178, 35334, 23448, 3421, 7729, 864, 30397, 7167, 18897, 32714, \ 575, 24616, 29707, 36290, 15291, 30766, 4986, 23729, 20213, 26582, 1432, \ 22899, 31904, 22413, 7579, 12115, 18727, 8486, 3340, 19039, 12363, 22176, \ 35933, 11728, 4532, 34298, 32743, 8781, 18493, 12805, 10006, 25077, 26811, \ 30295, 24577, 1641, 419, 8610, 31868, 5215, 20114, 13233, 18689, 24173, \ 28982, 8774, 29548, 23601, 29649, 904, 4962, 36672, 860, 10884, 14453, 28322, \ 1020, 12483, 27625, 31089, 4036}\"\>"], "Print", CellChangeTimes->{{3.7630504117822227`*^9, 3.763050422245468*^9}, 3.763050457060657*^9, {3.7630505683806887`*^9, 3.763050590212371*^9}, 3.763050668203898*^9, {3.7630507210363398`*^9, 3.763050752395742*^9}, 3.763054447301697*^9}, CellLabel-> "During evaluation of \ In[161]:=",ExpressionUUID->"b122c721-a105-4f3b-9df3-b2b470a1314c"] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["one node raised: w = 8", "Subsubsection", CellChangeTimes->{{3.7596252186690226`*^9, 3.759625229509034*^9}, { 3.763045903503067*^9, 3.763045908951254*^9}, {3.763046466097885*^9, 3.763046466895091*^9}, {3.763050017886567*^9, 3.763050059697647*^9}, { 3.763050153594616*^9, 3.763050187217669*^9}, {3.7630502895947113`*^9, 3.763050302012877*^9}, {3.76305046931472*^9, 3.763050559341703*^9}, { 3.763050596464254*^9, 3.763050596556622*^9}, {3.763050675849996*^9, 3.763050762179748*^9}, {3.763054046311356*^9, 3.763054046548761*^9}},ExpressionUUID->"49d78bdb-8305-4677-b058-\ 805c8014be13"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"LocalNumReps", " ", "=", " ", "100"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"LocalRandomRepList", " ", "=", RowBox[{"RandomInteger", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "36864"}], "}"}], ",", "LocalNumReps"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"LocalWord", " ", "=", " ", "8"}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"BEigens", "[", "L", "]"}], "[", RowBox[{"LocalWord", ",", "4", ",", "4"}], "]"}], " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"\[Chi]0", "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}], "*", RowBox[{"{", RowBox[{"1", ",", "1", ",", "\[Rho]", ",", "\[Rho]"}], "}"}]}], ",", RowBox[{"{", RowBox[{"RepNo", ",", "LocalRandomRepList"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"BEigens", "[", "R", "]"}], "[", RowBox[{"LocalWord", ",", "4", ",", "4"}], "]"}], " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"\[Chi]0", "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}], "*", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "\[Rho]"}], ",", RowBox[{"-", "\[Rho]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"RepNo", ",", "LocalRandomRepList"}], "}"}]}], "]"}]}], ";", RowBox[{ RowBox[{ RowBox[{"BEigens", "[", "L", "]"}], "[", RowBox[{"LocalWord", ",", "4", ",", "4"}], "]"}], "==", RowBox[{"Table", "[", RowBox[{ RowBox[{"Eigenvalues", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "L", "]"}], "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}], "[", "LocalWord", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"RepNo", ",", "LocalRandomRepList"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"BEigens", "[", "R", "]"}], "[", RowBox[{"LocalWord", ",", "4", ",", "4"}], "]"}], "==", RowBox[{"Table", "[", RowBox[{ RowBox[{"Eigenvalues", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "R", "]"}], "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}], "[", "LocalWord", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"RepNo", ",", "LocalRandomRepList"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"StringJoin", "[", RowBox[{"\"\\"", ",", " ", RowBox[{"ToString", "[", "LocalWord", "]"}]}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"StringJoin", "[", RowBox[{"\"\\"", ",", " ", RowBox[{"ToString", "[", "LocalRandomRepList", "]"}]}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{"Clear", "[", RowBox[{"LocalWord", ",", "LocalRandomRepList", ",", "LocalNumReps"}], "]"}]}], "Input", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmViYGAQB2IQfewTu+crpjeOobqrvUH0pW1ng0H0mxXhcSDauvRL CogWXvodTN+Zc6AERM9gLK8C0Vz2J5tB9Cd5lRYQPdVi/a4CzjeOcfNmHQTR H2Ltz4NoQbPICyD63tzUayB6zZ+4GyB6T4nZHRBtN70KTN963spTCKRFPfIE QHTTiSbVIiC97bWhCYi+p7zGAkQHWJlbgejuP9NdQfQqKw8PEL1j4/5MEF2y 1DwbRPsE+c0B0VF938H0Ci69QyA6In8BmL4SUHQXRP+PKn4IorvmHXwNou2i 7d+A6D+XnT6AaLbHPb9A9LyjS1iKgbTN2fdg+qz+HS4Q/eOuOS+IvnizQRBE W+hFi4BorohqKRCtZLRQEUQDAIrIrvo= "], CellLabel-> "In[170]:=",ExpressionUUID->"69ec148d-99a1-4f32-addd-c1b1d754a57e"], Cell[BoxData["True"], "Output", CellChangeTimes->{{3.759624872169362*^9, 3.759624878768899*^9}, { 3.7596249187193003`*^9, 3.7596249475591917`*^9}, 3.7596249999892406`*^9, 3.759625172292762*^9, 3.759625250308663*^9, 3.7602923135466948`*^9, 3.7602925846082525`*^9, 3.7602926664022503`*^9, 3.760295856202198*^9, 3.762967588055868*^9, 3.763045350710292*^9, 3.763045388716611*^9, { 3.763045894043848*^9, 3.7630459126461277`*^9}, 3.7630461318103237`*^9, 3.763046538208836*^9, {3.763049018016876*^9, 3.763049040742711*^9}, { 3.763049182537252*^9, 3.763049214495669*^9}, {3.763049314031332*^9, 3.763049317454749*^9}, 3.7630494750418863`*^9, {3.763049689307949*^9, 3.763049732449902*^9}, 3.76305020950592*^9, {3.763050260135955*^9, 3.763050280816101*^9}, 3.7630503461412582`*^9, {3.7630504103273783`*^9, 3.763050420777594*^9}, 3.7630504556014347`*^9, {3.763050566930152*^9, 3.763050588769443*^9}, 3.763050666672117*^9, {3.763050719527597*^9, 3.763050771026909*^9}, {3.7630508021029673`*^9, 3.7630508108201017`*^9}, 3.763054450185264*^9}, CellLabel-> "Out[174]=",ExpressionUUID->"3ade2c9b-4498-495d-8c34-a412f67c9a6c"], Cell[BoxData["True"], "Output", CellChangeTimes->{{3.759624872169362*^9, 3.759624878768899*^9}, { 3.7596249187193003`*^9, 3.7596249475591917`*^9}, 3.7596249999892406`*^9, 3.759625172292762*^9, 3.759625250308663*^9, 3.7602923135466948`*^9, 3.7602925846082525`*^9, 3.7602926664022503`*^9, 3.760295856202198*^9, 3.762967588055868*^9, 3.763045350710292*^9, 3.763045388716611*^9, { 3.763045894043848*^9, 3.7630459126461277`*^9}, 3.7630461318103237`*^9, 3.763046538208836*^9, {3.763049018016876*^9, 3.763049040742711*^9}, { 3.763049182537252*^9, 3.763049214495669*^9}, {3.763049314031332*^9, 3.763049317454749*^9}, 3.7630494750418863`*^9, {3.763049689307949*^9, 3.763049732449902*^9}, 3.76305020950592*^9, {3.763050260135955*^9, 3.763050280816101*^9}, 3.7630503461412582`*^9, {3.7630504103273783`*^9, 3.763050420777594*^9}, 3.7630504556014347`*^9, {3.763050566930152*^9, 3.763050588769443*^9}, 3.763050666672117*^9, {3.763050719527597*^9, 3.763050771026909*^9}, {3.7630508021029673`*^9, 3.7630508108201017`*^9}, 3.763054451836316*^9}, CellLabel-> "Out[175]=",ExpressionUUID->"14877ae3-b10f-41f9-b1d9-ee3b0ebd3bd0"], Cell[CellGroupData[{ Cell[BoxData["\<\"Word = 8\"\>"], "Print", CellChangeTimes->{{3.7630504117822227`*^9, 3.763050422245468*^9}, 3.763050457060657*^9, {3.7630505683806887`*^9, 3.763050590212371*^9}, 3.763050668203898*^9, {3.7630507210363398`*^9, 3.763050772521323*^9}, { 3.763050803620109*^9, 3.763050812325554*^9}, 3.763054451842658*^9}, CellLabel-> "During evaluation of \ In[170]:=",ExpressionUUID->"3d472431-ba9f-4675-af7f-a3ef32f9a306"], Cell[BoxData["\<\"Reps Randomly Checked are {2655, 32241, 11525, 30794, \ 9913, 12569, 178, 24918, 2821, 10842, 22446, 11840, 14317, 14782, 36633, \ 5936, 32647, 35854, 24808, 28217, 1826, 6968, 22333, 14860, 27510, 22524, \ 4612, 4635, 18091, 1044, 19054, 5833, 14481, 6107, 5074, 6844, 26632, 31871, \ 14029, 32362, 23967, 30459, 21409, 12329, 2401, 335, 1346, 28744, 6367, \ 35941, 23264, 17224, 32319, 12561, 30109, 36017, 20819, 32699, 2444, 18711, \ 12620, 12736, 5293, 53, 36862, 24905, 25562, 741, 2346, 28624, 4610, 32130, \ 30003, 17181, 8, 13077, 15300, 15588, 35155, 27058, 30475, 5235, 22491, \ 15189, 4657, 21469, 15391, 32964, 19758, 15044, 8931, 19993, 12380, 24131, \ 32613, 31228, 33753, 29001, 18832, 20660}\"\>"], "Print", CellChangeTimes->{{3.7630504117822227`*^9, 3.763050422245468*^9}, 3.763050457060657*^9, {3.7630505683806887`*^9, 3.763050590212371*^9}, 3.763050668203898*^9, {3.7630507210363398`*^9, 3.763050772521323*^9}, { 3.763050803620109*^9, 3.763050812325554*^9}, 3.76305445184795*^9}, CellLabel-> "During evaluation of \ In[170]:=",ExpressionUUID->"a526406d-66fe-4701-9def-c6cfd746e05e"] }, Open ]] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Two Nodes Raised, (w,15-w) = (3,12),(5,10),(6,9) Prints a singleTrue/False \ if the Eigenvalue Equivalence Classes are paired as (w,15-w) or not and if \ they fall into one of the three Eigenvalue Equivalence classes for ", Cell[BoxData[ FormBox[ SubscriptBox["B", "L"], TraditionalForm]], FormatType->"TraditionalForm",ExpressionUUID-> "bca426b5-f4d3-4c3c-bd31-3197527994ed"], " and ", Cell[BoxData[ FormBox[ SubscriptBox["B", "R"], TraditionalForm]], FormatType->"TraditionalForm",ExpressionUUID-> "fb9b36c1-1fe3-4188-82b8-985ebea41162"], " or not" }], "Subsection", CellChangeTimes->{{3.763053930174876*^9, 3.763053935141152*^9}, { 3.7630540069110622`*^9, 3.763054012622733*^9}, {3.763054050336535*^9, 3.763054106071343*^9}, {3.763054223277516*^9, 3.763054226871167*^9}, { 3.763054280057432*^9, 3.763054304358139*^9}},ExpressionUUID->"f6fe2dfc-d930-457a-bfe7-\ 9e26a4713594"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"BEigensPair", "[", "1", "]"}], "[", "L", "]"}], "[", "Rep_", "]"}], ":=", " ", RowBox[{ RowBox[{"\[Chi]0", "[", "Rep", "]"}], "*", RowBox[{"{", RowBox[{"\[Rho]", ",", "\[Rho]", ",", "\[Rho]", ",", "\[Rho]"}], "}"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"BEigensPair", "[", "1", "]"}], "[", "R", "]"}], "[", "Rep_", "]"}], ":=", " ", RowBox[{ RowBox[{"\[Chi]0", "[", "Rep", "]"}], "*", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"-", SuperscriptBox["\[Rho]", "2"]}], ",", RowBox[{"-", SuperscriptBox["\[Rho]", "2"]}]}], "}"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"BEigensPair", "[", "2", "]"}], "[", "L", "]"}], "[", "Rep_", "]"}], ":=", " ", RowBox[{ RowBox[{"\[Chi]0", "[", "Rep", "]"}], "*", RowBox[{"{", RowBox[{"1", ",", "1", ",", SuperscriptBox["\[Rho]", "2"], ",", SuperscriptBox["\[Rho]", "2"]}], "}"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"BEigensPair", "[", "2", "]"}], "[", "R", "]"}], "[", "Rep_", "]"}], ":=", " ", RowBox[{ RowBox[{"\[Chi]0", "[", "Rep", "]"}], "*", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Rho]"}], ",", RowBox[{"-", "\[Rho]"}], ",", RowBox[{"-", "\[Rho]"}], ",", RowBox[{"-", "\[Rho]"}]}], "}"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"BEigensPair", "[", "3", "]"}], "[", "L", "]"}], "[", "Rep_", "]"}], ":=", " ", RowBox[{ RowBox[{"\[Chi]0", "[", "Rep", "]"}], "*", RowBox[{"{", RowBox[{"\[Rho]", ",", "\[Rho]", ",", "\[Rho]", ",", "\[Rho]"}], "}"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"BEigensPair", "[", "3", "]"}], "[", "R", "]"}], "[", "Rep_", "]"}], ":=", " ", RowBox[{ RowBox[{"\[Chi]0", "[", "Rep", "]"}], "*", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Rho]"}], ",", RowBox[{"-", "\[Rho]"}], ",", RowBox[{"-", "\[Rho]"}], ",", RowBox[{"-", "\[Rho]"}]}], "}"}]}]}]}], "Input", CellChangeTimes->{{3.763051338406579*^9, 3.763051541091361*^9}, { 3.7630518522869883`*^9, 3.7630519324893*^9}, {3.763052072814822*^9, 3.763052105640374*^9}, 3.7630538384235373`*^9}, CellLabel-> "In[179]:=",ExpressionUUID->"3c91ee8d-1e0d-4b01-b416-af037a82dca4"], Cell[CellGroupData[{ Cell["two nodes raised: (w,15-w) = (3,12) ", "Subsubsection", CellChangeTimes->{{3.7596252186690226`*^9, 3.759625229509034*^9}, { 3.763045903503067*^9, 3.763045908951254*^9}, {3.763046466097885*^9, 3.763046466895091*^9}, {3.763050017886567*^9, 3.763050059697647*^9}, { 3.763050153594616*^9, 3.763050187217669*^9}, {3.7630502895947113`*^9, 3.763050302012877*^9}, {3.76305046931472*^9, 3.763050559341703*^9}, { 3.763050596464254*^9, 3.763050596556622*^9}, {3.763050675849996*^9, 3.763050762179748*^9}, {3.763050826762517*^9, 3.7630508319954*^9}, { 3.763051199746483*^9, 3.763051202877472*^9}, {3.763051562028122*^9, 3.763051599037237*^9}, {3.7630541152690496`*^9, 3.763054133404241*^9}},ExpressionUUID->"b3afcda7-7f9d-47e5-8d29-\ 0c165fd7adec"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"LocalNumReps", " ", "=", " ", "100"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"LocalRandomRepList", " ", "=", RowBox[{"RandomInteger", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "36864"}], "}"}], ",", "LocalNumReps"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"LocalWord", " ", "=", " ", "3"}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Eigenvalues", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "L", "]"}], "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}], "[", "LocalWord", "]"}], "]"}], "==", RowBox[{"Eigenvalues", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "L", "]"}], "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}], "[", RowBox[{"15", "-", "LocalWord"}], "]"}], "]"}]}], "&&", RowBox[{ RowBox[{"Eigenvalues", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "R", "]"}], "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}], "[", "LocalWord", "]"}], "]"}], "==", RowBox[{"Eigenvalues", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "R", "]"}], "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}], "[", RowBox[{"15", "-", "LocalWord"}], "]"}], "]"}]}], "&&", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Eigenvalues", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "L", "]"}], "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}], "[", "LocalWord", "]"}], "]"}], "==", RowBox[{ RowBox[{ RowBox[{"BEigensPair", "[", "1", "]"}], "[", "L", "]"}], "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}]}], "&&", RowBox[{ RowBox[{"Eigenvalues", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "R", "]"}], "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}], "[", "LocalWord", "]"}], "]"}], "==", RowBox[{ RowBox[{ RowBox[{"BEigensPair", "[", "1", "]"}], "[", "R", "]"}], "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}]}]}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Eigenvalues", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "L", "]"}], "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}], "[", "LocalWord", "]"}], "]"}], "==", RowBox[{ RowBox[{ RowBox[{"BEigensPair", "[", "2", "]"}], "[", "L", "]"}], "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}]}], "&&", RowBox[{ RowBox[{"Eigenvalues", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "R", "]"}], "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}], "[", "LocalWord", "]"}], "]"}], "==", RowBox[{ RowBox[{ RowBox[{"BEigensPair", "[", "2", "]"}], "[", "R", "]"}], "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}]}]}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Eigenvalues", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "L", "]"}], "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}], "[", "LocalWord", "]"}], "]"}], "==", RowBox[{ RowBox[{ RowBox[{"BEigensPair", "[", "3", "]"}], "[", "L", "]"}], "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}]}], "&&", RowBox[{ RowBox[{"Eigenvalues", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "R", "]"}], "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}], "[", "LocalWord", "]"}], "]"}], "==", RowBox[{ RowBox[{ RowBox[{"BEigensPair", "[", "3", "]"}], "[", "R", "]"}], "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}]}]}], ")"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"RepNo", ",", "LocalRandomRepList"}], "}"}]}], "]"}], "\[Equal]", RowBox[{"Table", "[", RowBox[{"True", ",", RowBox[{"{", RowBox[{"RepNo", ",", "LocalRandomRepList"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{ RowBox[{"StringJoin", "[", RowBox[{"\"\\"", ",", " ", RowBox[{"ToString", "[", "LocalWord", "]"}]}], "]"}], ",", " ", "\"\<, \>\"", ",", " ", RowBox[{"ToString", "[", RowBox[{"15", "-", "LocalWord"}], "]"}], ",", " ", "\"\<)\>\""}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"StringJoin", "[", RowBox[{"\"\\"", ",", " ", RowBox[{"ToString", "[", "LocalRandomRepList", "]"}]}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{"Clear", "[", RowBox[{"LocalWord", ",", "LocalRandomRepList", ",", "LocalNumReps"}], "]"}]}], "Input", CellChangeTimes->{{3.76305338509835*^9, 3.7630534487034597`*^9}, { 3.7630535032469597`*^9, 3.763053522758326*^9}, {3.7630535604582148`*^9, 3.763053783116276*^9}, {3.763053866596733*^9, 3.763053897192498*^9}}, CellLabel-> "In[185]:=",ExpressionUUID->"aedd7584-304c-4ead-a785-00700e5bc81a"], Cell[BoxData["True"], "Output", CellChangeTimes->{{3.763053413731237*^9, 3.76305345196771*^9}, 3.763053514544785*^9, 3.7630535895429153`*^9, {3.76305363526326*^9, 3.763053686260704*^9}, {3.763053718740294*^9, 3.763053791211422*^9}, { 3.763053869288704*^9, 3.7630539127363234`*^9}, 3.7630544671482887`*^9}, CellLabel-> "Out[188]=",ExpressionUUID->"50af1a72-fe4c-4f66-8316-cdb236f5e1a8"], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Equivalence Word Pair = (3\"\>", "\[InvisibleSpace]", "\<\", \"\>", "\[InvisibleSpace]", "\<\"12\"\>", "\[InvisibleSpace]", "\<\")\"\>"}], SequenceForm["Equivalence Word Pair = (3", ", ", "12", ")"], Editable->False]], "Print", CellChangeTimes->{ 3.7630537912233543`*^9, {3.7630538693025827`*^9, 3.7630539127500753`*^9}, 3.763054467162582*^9}, CellLabel-> "During evaluation of \ In[185]:=",ExpressionUUID->"ec9b39c0-05cd-4f53-82cb-3d91673562da"], Cell[BoxData["\<\"Reps Randomly Checked are {29593, 17307, 23199, 33751, \ 28349, 14320, 9349, 9692, 7510, 2484, 6220, 8410, 20571, 11348, 15794, 28422, \ 16793, 33662, 12884, 12608, 21720, 4868, 1739, 14018, 9774, 24922, 29431, \ 13700, 15149, 612, 16217, 20475, 31821, 5278, 7913, 30617, 1436, 27134, \ 28948, 35, 17244, 8376, 26559, 31702, 18705, 8674, 24378, 15075, 11476, \ 11958, 8629, 6815, 22014, 21728, 21484, 20286, 2832, 20261, 14701, 29360, \ 2264, 36762, 30460, 13466, 1978, 19038, 1342, 24212, 3526, 25219, 31246, \ 23395, 5666, 1389, 10798, 32888, 19277, 24761, 10446, 28663, 31357, 32384, \ 35845, 17039, 11165, 24172, 4142, 30582, 14878, 26821, 15690, 1003, 18175, \ 17021, 29214, 29099, 22284, 15985, 16221, 16371}\"\>"], "Print", CellChangeTimes->{ 3.7630537912233543`*^9, {3.7630538693025827`*^9, 3.7630539127500753`*^9}, 3.76305446717161*^9}, CellLabel-> "During evaluation of \ In[185]:=",ExpressionUUID->"2b070ca4-b9ee-4b53-9c10-e103b03fdc64"] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["two nodes raised: (w,15-w) = (5,10) ", "Subsubsection", CellChangeTimes->{{3.7596252186690226`*^9, 3.759625229509034*^9}, { 3.763045903503067*^9, 3.763045908951254*^9}, {3.763046466097885*^9, 3.763046466895091*^9}, {3.763050017886567*^9, 3.763050059697647*^9}, { 3.763050153594616*^9, 3.763050187217669*^9}, {3.7630502895947113`*^9, 3.763050302012877*^9}, {3.76305046931472*^9, 3.763050559341703*^9}, { 3.763050596464254*^9, 3.763050596556622*^9}, {3.763050675849996*^9, 3.763050762179748*^9}, {3.763050826762517*^9, 3.7630508319954*^9}, { 3.763051199746483*^9, 3.763051202877472*^9}, {3.763051562028122*^9, 3.763051599037237*^9}, {3.7630541152690496`*^9, 3.763054133404241*^9}, { 3.7630543133883*^9, 3.763054314830861*^9}},ExpressionUUID->"003fdaaa-6388-40ed-9c9d-\ 2be81c48c42a"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"LocalNumReps", " ", "=", " ", "100"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"LocalRandomRepList", " ", "=", RowBox[{"RandomInteger", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "36864"}], "}"}], ",", "LocalNumReps"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"LocalWord", " ", "=", " ", "5"}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Eigenvalues", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "L", "]"}], "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}], "[", "LocalWord", "]"}], "]"}], "==", RowBox[{"Eigenvalues", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "L", "]"}], "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}], "[", RowBox[{"15", "-", "LocalWord"}], "]"}], "]"}]}], "&&", RowBox[{ RowBox[{"Eigenvalues", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "R", "]"}], "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}], "[", "LocalWord", "]"}], "]"}], "==", RowBox[{"Eigenvalues", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "R", "]"}], "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}], "[", RowBox[{"15", "-", "LocalWord"}], "]"}], "]"}]}], "&&", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Eigenvalues", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "L", "]"}], "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}], "[", "LocalWord", "]"}], "]"}], "==", RowBox[{ RowBox[{ RowBox[{"BEigensPair", "[", "1", "]"}], "[", "L", "]"}], "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}]}], "&&", RowBox[{ RowBox[{"Eigenvalues", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "R", "]"}], "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}], "[", "LocalWord", "]"}], "]"}], "==", RowBox[{ RowBox[{ RowBox[{"BEigensPair", "[", "1", "]"}], "[", "R", "]"}], "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}]}]}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Eigenvalues", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "L", "]"}], "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}], "[", "LocalWord", "]"}], "]"}], "==", RowBox[{ RowBox[{ RowBox[{"BEigensPair", "[", "2", "]"}], "[", "L", "]"}], "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}]}], "&&", RowBox[{ RowBox[{"Eigenvalues", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "R", "]"}], "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}], "[", "LocalWord", "]"}], "]"}], "==", RowBox[{ RowBox[{ RowBox[{"BEigensPair", "[", "2", "]"}], "[", "R", "]"}], "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}]}]}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Eigenvalues", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "L", "]"}], "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}], "[", "LocalWord", "]"}], "]"}], "==", RowBox[{ RowBox[{ RowBox[{"BEigensPair", "[", "3", "]"}], "[", "L", "]"}], "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}]}], "&&", RowBox[{ RowBox[{"Eigenvalues", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "R", "]"}], "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}], "[", "LocalWord", "]"}], "]"}], "==", RowBox[{ RowBox[{ RowBox[{"BEigensPair", "[", "3", "]"}], "[", "R", "]"}], "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}]}]}], ")"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"RepNo", ",", "LocalRandomRepList"}], "}"}]}], "]"}], "\[Equal]", RowBox[{"Table", "[", RowBox[{"True", ",", RowBox[{"{", RowBox[{"RepNo", ",", "LocalRandomRepList"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{ RowBox[{"StringJoin", "[", RowBox[{"\"\\"", ",", " ", RowBox[{"ToString", "[", "LocalWord", "]"}]}], "]"}], ",", " ", "\"\<, \>\"", ",", " ", RowBox[{"ToString", "[", RowBox[{"15", "-", "LocalWord"}], "]"}], ",", " ", "\"\<)\>\""}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"StringJoin", "[", RowBox[{"\"\\"", ",", " ", RowBox[{"ToString", "[", "LocalRandomRepList", "]"}]}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{"Clear", "[", RowBox[{"LocalWord", ",", "LocalRandomRepList", ",", "LocalNumReps"}], "]"}]}], "Input", CellChangeTimes->{{3.76305338509835*^9, 3.7630534487034597`*^9}, { 3.7630535032469597`*^9, 3.763053522758326*^9}, {3.7630535604582148`*^9, 3.763053783116276*^9}, {3.763053866596733*^9, 3.763053897192498*^9}, { 3.7630543172554703`*^9, 3.763054317361741*^9}}, CellLabel-> "In[192]:=",ExpressionUUID->"5a4958cc-c559-48cd-843c-952a7b7949a5"], Cell[BoxData["True"], "Output", CellChangeTimes->{{3.763053413731237*^9, 3.76305345196771*^9}, 3.763053514544785*^9, 3.7630535895429153`*^9, {3.76305363526326*^9, 3.763053686260704*^9}, {3.763053718740294*^9, 3.763053791211422*^9}, { 3.763053869288704*^9, 3.7630539127363234`*^9}, 3.763054336046053*^9, 3.763054482093505*^9}, CellLabel-> "Out[195]=",ExpressionUUID->"caab49ca-94bc-421a-94fb-818f12032259"], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Equivalence Word Pair = (5\"\>", "\[InvisibleSpace]", "\<\", \"\>", "\[InvisibleSpace]", "\<\"10\"\>", "\[InvisibleSpace]", "\<\")\"\>"}], SequenceForm["Equivalence Word Pair = (5", ", ", "10", ")"], Editable->False]], "Print", CellChangeTimes->{ 3.7630537912233543`*^9, {3.7630538693025827`*^9, 3.7630539127500753`*^9}, 3.76305433606046*^9, 3.7630544821077547`*^9}, CellLabel-> "During evaluation of \ In[192]:=",ExpressionUUID->"c03fadc4-9ee3-46b7-8e86-e811b7c8ff70"], Cell[BoxData["\<\"Reps Randomly Checked are {649, 18123, 33342, 25259, 6800, \ 2306, 17668, 11139, 11580, 13567, 7999, 1508, 13948, 34486, 1372, 18020, \ 13975, 28754, 26520, 5540, 30135, 16687, 3366, 30757, 12310, 11220, 21532, \ 25176, 558, 4234, 13290, 3388, 19364, 26577, 3124, 24525, 34915, 1986, 26931, \ 27373, 14276, 21302, 12786, 2093, 27052, 23376, 36154, 28178, 34297, 24031, \ 25059, 28393, 24752, 5911, 9510, 14063, 17651, 34913, 2816, 6772, 26440, \ 28300, 32287, 12059, 8388, 1709, 29743, 25079, 18134, 17532, 23108, 29930, \ 15414, 13760, 32323, 36186, 34798, 31328, 28285, 30169, 9507, 15063, 18520, \ 7732, 17516, 23446, 18394, 13630, 33498, 15163, 1377, 16008, 6991, 12414, \ 35647, 7167, 11152, 7538, 16085, 7665}\"\>"], "Print", CellChangeTimes->{ 3.7630537912233543`*^9, {3.7630538693025827`*^9, 3.7630539127500753`*^9}, 3.76305433606046*^9, 3.76305448211666*^9}, CellLabel-> "During evaluation of \ In[192]:=",ExpressionUUID->"089652f7-dc71-4a8c-957d-7a7a39d6256b"] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["two nodes raised: (w,15-w) = (6,9) ", "Subsubsection", CellChangeTimes->{{3.7596252186690226`*^9, 3.759625229509034*^9}, { 3.763045903503067*^9, 3.763045908951254*^9}, {3.763046466097885*^9, 3.763046466895091*^9}, {3.763050017886567*^9, 3.763050059697647*^9}, { 3.763050153594616*^9, 3.763050187217669*^9}, {3.7630502895947113`*^9, 3.763050302012877*^9}, {3.76305046931472*^9, 3.763050559341703*^9}, { 3.763050596464254*^9, 3.763050596556622*^9}, {3.763050675849996*^9, 3.763050762179748*^9}, {3.763050826762517*^9, 3.7630508319954*^9}, { 3.763051199746483*^9, 3.763051202877472*^9}, {3.763051562028122*^9, 3.763051599037237*^9}, {3.7630541152690496`*^9, 3.763054133404241*^9}, { 3.7630543133883*^9, 3.763054314830861*^9}, {3.763054345790073*^9, 3.763054347397193*^9}},ExpressionUUID->"158d7ab2-130b-4bfb-a410-\ 3c9a5811f06e"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"LocalNumReps", " ", "=", " ", "100"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"LocalRandomRepList", " ", "=", RowBox[{"RandomInteger", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "36864"}], "}"}], ",", "LocalNumReps"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"LocalWord", " ", "=", " ", "6"}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Eigenvalues", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "L", "]"}], "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}], "[", "LocalWord", "]"}], "]"}], "==", RowBox[{"Eigenvalues", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "L", "]"}], "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}], "[", RowBox[{"15", "-", "LocalWord"}], "]"}], "]"}]}], "&&", RowBox[{ RowBox[{"Eigenvalues", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "R", "]"}], "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}], "[", "LocalWord", "]"}], "]"}], "==", RowBox[{"Eigenvalues", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "R", "]"}], "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}], "[", RowBox[{"15", "-", "LocalWord"}], "]"}], "]"}]}], "&&", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Eigenvalues", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "L", "]"}], "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}], "[", "LocalWord", "]"}], "]"}], "==", RowBox[{ RowBox[{ RowBox[{"BEigensPair", "[", "1", "]"}], "[", "L", "]"}], "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}]}], "&&", RowBox[{ RowBox[{"Eigenvalues", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "R", "]"}], "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}], "[", "LocalWord", "]"}], "]"}], "==", RowBox[{ RowBox[{ RowBox[{"BEigensPair", "[", "1", "]"}], "[", "R", "]"}], "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}]}]}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Eigenvalues", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "L", "]"}], "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}], "[", "LocalWord", "]"}], "]"}], "==", RowBox[{ RowBox[{ RowBox[{"BEigensPair", "[", "2", "]"}], "[", "L", "]"}], "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}]}], "&&", RowBox[{ RowBox[{"Eigenvalues", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "R", "]"}], "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}], "[", "LocalWord", "]"}], "]"}], "==", RowBox[{ RowBox[{ RowBox[{"BEigensPair", "[", "2", "]"}], "[", "R", "]"}], "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}]}]}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Eigenvalues", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "L", "]"}], "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}], "[", "LocalWord", "]"}], "]"}], "==", RowBox[{ RowBox[{ RowBox[{"BEigensPair", "[", "3", "]"}], "[", "L", "]"}], "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}]}], "&&", RowBox[{ RowBox[{"Eigenvalues", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "R", "]"}], "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}], "[", "LocalWord", "]"}], "]"}], "==", RowBox[{ RowBox[{ RowBox[{"BEigensPair", "[", "3", "]"}], "[", "R", "]"}], "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}]}]}], ")"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"RepNo", ",", "LocalRandomRepList"}], "}"}]}], "]"}], "\[Equal]", RowBox[{"Table", "[", RowBox[{"True", ",", RowBox[{"{", RowBox[{"RepNo", ",", "LocalRandomRepList"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{ RowBox[{"StringJoin", "[", RowBox[{"\"\\"", ",", " ", RowBox[{"ToString", "[", "LocalWord", "]"}]}], "]"}], ",", " ", "\"\<, \>\"", ",", " ", RowBox[{"ToString", "[", RowBox[{"15", "-", "LocalWord"}], "]"}], ",", " ", "\"\<)\>\""}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"StringJoin", "[", RowBox[{"\"\\"", ",", " ", RowBox[{"ToString", "[", "LocalRandomRepList", "]"}]}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{"Clear", "[", RowBox[{"LocalWord", ",", "LocalRandomRepList", ",", "LocalNumReps"}], "]"}]}], "Input", CellChangeTimes->{{3.76305338509835*^9, 3.7630534487034597`*^9}, { 3.7630535032469597`*^9, 3.763053522758326*^9}, {3.7630535604582148`*^9, 3.763053783116276*^9}, {3.763053866596733*^9, 3.763053897192498*^9}, { 3.7630543172554703`*^9, 3.763054317361741*^9}, {3.763054372805684*^9, 3.763054372913581*^9}}, CellLabel-> "In[199]:=",ExpressionUUID->"77dfa4a7-1a92-4a8a-8712-4f04cefa616b"], Cell[BoxData["True"], "Output", CellChangeTimes->{{3.763053413731237*^9, 3.76305345196771*^9}, 3.763053514544785*^9, 3.7630535895429153`*^9, {3.76305363526326*^9, 3.763053686260704*^9}, {3.763053718740294*^9, 3.763053791211422*^9}, { 3.763053869288704*^9, 3.7630539127363234`*^9}, {3.763054336046053*^9, 3.763054390694289*^9}, 3.763054496688183*^9}, CellLabel-> "Out[202]=",ExpressionUUID->"c284659b-9a8f-4a17-bc5a-e3a7806e74cd"], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Equivalence Word Pair = (6\"\>", "\[InvisibleSpace]", "\<\", \"\>", "\[InvisibleSpace]", "\<\"9\"\>", "\[InvisibleSpace]", "\<\")\"\>"}], SequenceForm["Equivalence Word Pair = (6", ", ", "9", ")"], Editable->False]], "Print", CellChangeTimes->{ 3.7630537912233543`*^9, {3.7630538693025827`*^9, 3.7630539127500753`*^9}, { 3.76305433606046*^9, 3.763054390708229*^9}, 3.7630544967020397`*^9}, CellLabel-> "During evaluation of \ In[199]:=",ExpressionUUID->"0d0bd95a-3894-4ace-919d-a61dff7e0ab4"], Cell[BoxData["\<\"Reps Randomly Checked are {1625, 8772, 17363, 18489, \ 23998, 18777, 16812, 19583, 34229, 34249, 1177, 29829, 24890, 8273, 8107, \ 12525, 30587, 457, 7460, 32698, 35300, 15637, 8656, 917, 2436, 16944, 17550, \ 23880, 9603, 1540, 29286, 17566, 13976, 17150, 14447, 27113, 13189, 20740, \ 29509, 4783, 10166, 14738, 31331, 16963, 24397, 21998, 16798, 2114, 218, \ 7128, 32158, 7450, 14735, 26535, 18305, 15089, 5236, 22461, 2948, 25942, \ 11960, 22201, 32293, 27515, 5061, 2650, 32131, 26647, 10843, 15765, 11953, \ 1330, 23165, 8982, 15701, 12947, 6922, 31134, 30734, 27812, 23912, 11123, \ 500, 18006, 25560, 33965, 17542, 16369, 25642, 27158, 388, 21038, 13461, \ 4871, 27864, 26946, 7101, 5991, 22970, 9512}\"\>"], "Print", CellChangeTimes->{ 3.7630537912233543`*^9, {3.7630538693025827`*^9, 3.7630539127500753`*^9}, { 3.76305433606046*^9, 3.763054390708229*^9}, 3.763054496711635*^9}, CellLabel-> "During evaluation of \ In[199]:=",ExpressionUUID->"404eb23c-caca-4541-9edb-c795d589ab5c"] }, Open ]] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "three nodes raised: w = 7,11,13,14\nPrints True/False whether the \ eigenvalues of ", Cell[BoxData[ FormBox[ SubscriptBox["B", "L"], TraditionalForm]], FormatType->"TraditionalForm",ExpressionUUID-> "d2ce8777-c3fa-4e14-bd63-b630445169c9"], " are correct or not and True/False whether the eigenvalues of ", Cell[BoxData[ FormBox[ SubscriptBox["B", "R"], TraditionalForm]], FormatType->"TraditionalForm",ExpressionUUID-> "f3692e1a-ba17-4ea0-96ff-0927d2ab20e6"], " are correct or not" }], "Subsection", CellChangeTimes->{{3.7596252186690226`*^9, 3.759625229509034*^9}, { 3.763045903503067*^9, 3.763045908951254*^9}, {3.763046466097885*^9, 3.763046466895091*^9}, {3.763050017886567*^9, 3.763050059697647*^9}, { 3.763050153594616*^9, 3.763050187217669*^9}, {3.7630502895947113`*^9, 3.763050302012877*^9}, {3.76305046931472*^9, 3.763050559341703*^9}, { 3.763050596464254*^9, 3.763050596556622*^9}, {3.763050675849996*^9, 3.763050762179748*^9}, {3.763050826762517*^9, 3.7630508319954*^9}, { 3.763051004848422*^9, 3.763051011570899*^9}, {3.763054161920753*^9, 3.76305416375875*^9}},ExpressionUUID->"c5619eb3-334a-44e7-8715-\ 711fa8eb7354"], Cell[CellGroupData[{ Cell["three nodes raised: w = 7", "Subsubsection", CellChangeTimes->{ 3.763054159989664*^9},ExpressionUUID->"f52734ea-13d2-4c2e-948b-\ b6149e5793ca"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"LocalNumReps", " ", "=", " ", "100"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"LocalRandomRepList", " ", "=", RowBox[{"RandomInteger", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "36864"}], "}"}], ",", "LocalNumReps"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"LocalWord", " ", "=", " ", "7"}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"BEigens", "[", "L", "]"}], "[", RowBox[{"LocalWord", ",", "4", ",", "4"}], "]"}], " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"\[Chi]0", "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}], "*", RowBox[{"{", RowBox[{"\[Rho]", ",", "\[Rho]", ",", SuperscriptBox["\[Rho]", "2"], ",", SuperscriptBox["\[Rho]", "2"]}], "}"}]}], ",", RowBox[{"{", RowBox[{"RepNo", ",", "LocalRandomRepList"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"BEigens", "[", "R", "]"}], "[", RowBox[{"LocalWord", ",", "4", ",", "4"}], "]"}], " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"\[Chi]0", "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}], "*", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Rho]"}], ",", RowBox[{"-", "\[Rho]"}], ",", RowBox[{"-", SuperscriptBox["\[Rho]", "2"]}], ",", RowBox[{"-", SuperscriptBox["\[Rho]", "2"]}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"RepNo", ",", "LocalRandomRepList"}], "}"}]}], "]"}]}], ";", RowBox[{ RowBox[{ RowBox[{"BEigens", "[", "L", "]"}], "[", RowBox[{"LocalWord", ",", "4", ",", "4"}], "]"}], "==", RowBox[{"Table", "[", RowBox[{ RowBox[{"Eigenvalues", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "L", "]"}], "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}], "[", "LocalWord", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"RepNo", ",", "LocalRandomRepList"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"BEigens", "[", "R", "]"}], "[", RowBox[{"LocalWord", ",", "4", ",", "4"}], "]"}], "==", RowBox[{"Table", "[", RowBox[{ RowBox[{"Eigenvalues", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "R", "]"}], "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}], "[", "LocalWord", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"RepNo", ",", "LocalRandomRepList"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"StringJoin", "[", RowBox[{"\"\\"", ",", " ", RowBox[{"ToString", "[", "LocalWord", "]"}]}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"StringJoin", "[", RowBox[{"\"\\"", ",", " ", RowBox[{"ToString", "[", "LocalRandomRepList", "]"}]}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{"Clear", "[", RowBox[{"LocalWord", ",", "LocalRandomRepList", ",", "LocalNumReps"}], "]"}]}], "Input", CellChangeTimes->CompressedData[" 1:eJwdxV0oAwEAB/BZol3EhQdeNB8vahNpdx1tbUUTaU2yj+xB9iBlbCd1HmhI IW+aNIuyWqzkZUkrpoiHy2dCt5U8kF1ZS01acf97+PVTD3usbqVCoaiW4Its cfenUjQOaPZ78F2M78diZNCF26e+R3BFOCcvBE9ZvFEwzWHCcDWPs7UNC3id PjieUIlGV2gzgTNDhmtM6uw3OLXlfsTRvOsJx1mdgPUBTv7lfbFkUrrKPF6O /Zf+Rq90LN3ShlP1URpbGIrBK/lAJ95jzGZ8dHgyitkwNYZ7rX1B7FjLyUcI 7Rm2ebblHyzeJP5z+F7xciiRxnqnQcT5e1MGF72t/uLQ+W6hT7qD/5LnmwUC /ySpUnz7PEdiWuusxIRtpgbXte6ocbzM1oTtKo0Wc7OkEZuWPrrwPydKuuw= "], CellLabel-> "In[206]:=",ExpressionUUID->"b06bfedb-2a8b-466e-820d-a563f3583d9d"], Cell[BoxData["True"], "Output", CellChangeTimes->{{3.759624872169362*^9, 3.759624878768899*^9}, { 3.7596249187193003`*^9, 3.7596249475591917`*^9}, 3.7596249999892406`*^9, 3.759625172292762*^9, 3.759625250308663*^9, 3.7602923135466948`*^9, 3.7602925846082525`*^9, 3.7602926664022503`*^9, 3.760295856202198*^9, 3.762967588055868*^9, 3.763045350710292*^9, 3.763045388716611*^9, { 3.763045894043848*^9, 3.7630459126461277`*^9}, 3.7630461318103237`*^9, 3.763046538208836*^9, {3.763049018016876*^9, 3.763049040742711*^9}, { 3.763049182537252*^9, 3.763049214495669*^9}, {3.763049314031332*^9, 3.763049317454749*^9}, 3.7630494750418863`*^9, {3.763049689307949*^9, 3.763049732449902*^9}, 3.76305020950592*^9, {3.763050260135955*^9, 3.763050280816101*^9}, 3.7630503461412582`*^9, {3.7630504103273783`*^9, 3.763050420777594*^9}, 3.7630504556014347`*^9, {3.763050566930152*^9, 3.763050588769443*^9}, 3.763050666672117*^9, {3.763050719527597*^9, 3.763050771026909*^9}, {3.7630508021029673`*^9, 3.7630508108201017`*^9}, 3.7630508783704777`*^9, 3.7630510729796133`*^9, 3.76305449959265*^9}, CellLabel-> "Out[210]=",ExpressionUUID->"b5f6843f-26b2-4b6d-9e2a-87e26ce76a6c"], Cell[BoxData["True"], "Output", CellChangeTimes->{{3.759624872169362*^9, 3.759624878768899*^9}, { 3.7596249187193003`*^9, 3.7596249475591917`*^9}, 3.7596249999892406`*^9, 3.759625172292762*^9, 3.759625250308663*^9, 3.7602923135466948`*^9, 3.7602925846082525`*^9, 3.7602926664022503`*^9, 3.760295856202198*^9, 3.762967588055868*^9, 3.763045350710292*^9, 3.763045388716611*^9, { 3.763045894043848*^9, 3.7630459126461277`*^9}, 3.7630461318103237`*^9, 3.763046538208836*^9, {3.763049018016876*^9, 3.763049040742711*^9}, { 3.763049182537252*^9, 3.763049214495669*^9}, {3.763049314031332*^9, 3.763049317454749*^9}, 3.7630494750418863`*^9, {3.763049689307949*^9, 3.763049732449902*^9}, 3.76305020950592*^9, {3.763050260135955*^9, 3.763050280816101*^9}, 3.7630503461412582`*^9, {3.7630504103273783`*^9, 3.763050420777594*^9}, 3.7630504556014347`*^9, {3.763050566930152*^9, 3.763050588769443*^9}, 3.763050666672117*^9, {3.763050719527597*^9, 3.763050771026909*^9}, {3.7630508021029673`*^9, 3.7630508108201017`*^9}, 3.7630508783704777`*^9, 3.7630510729796133`*^9, 3.76305450124516*^9}, CellLabel-> "Out[211]=",ExpressionUUID->"ea026ce9-a9d4-42c7-8289-ae85f6a80f63"], Cell[CellGroupData[{ Cell[BoxData["\<\"Word = 7\"\>"], "Print", CellChangeTimes->{{3.7630504117822227`*^9, 3.763050422245468*^9}, 3.763050457060657*^9, {3.7630505683806887`*^9, 3.763050590212371*^9}, 3.763050668203898*^9, {3.7630507210363398`*^9, 3.763050772521323*^9}, { 3.763050803620109*^9, 3.763050812325554*^9}, 3.7630508799246073`*^9, 3.7630510745236197`*^9, 3.763054501255146*^9}, CellLabel-> "During evaluation of \ In[206]:=",ExpressionUUID->"f648857d-8bee-4ccf-a5ba-26eeca1273fe"], Cell[BoxData["\<\"Reps Randomly Checked are {29755, 24181, 22519, 32510, \ 6457, 15350, 28860, 3891, 34286, 33806, 23792, 22976, 30580, 31894, 30308, \ 10673, 1537, 31333, 26167, 35176, 33999, 15117, 775, 30447, 24771, 30929, \ 13146, 29307, 5741, 16636, 648, 17727, 17583, 15620, 21610, 25379, 17776, \ 4615, 19317, 34416, 2767, 27440, 14735, 2785, 13907, 25439, 13018, 3974, \ 18427, 31366, 12176, 21464, 5106, 14257, 3470, 19538, 26465, 18193, 14206, \ 17241, 29032, 26807, 32953, 31378, 3131, 28539, 2785, 10726, 25204, 9450, \ 3080, 30659, 9914, 34089, 8589, 21987, 32364, 35606, 18924, 29184, 8605, \ 15619, 15215, 17726, 34042, 20770, 24849, 33487, 35791, 12648, 471, 2936, \ 21574, 27420, 6762, 18211, 734, 33566, 7683, 11935}\"\>"], "Print", CellChangeTimes->{{3.7630504117822227`*^9, 3.763050422245468*^9}, 3.763050457060657*^9, {3.7630505683806887`*^9, 3.763050590212371*^9}, 3.763050668203898*^9, {3.7630507210363398`*^9, 3.763050772521323*^9}, { 3.763050803620109*^9, 3.763050812325554*^9}, 3.7630508799246073`*^9, 3.7630510745236197`*^9, 3.763054501263179*^9}, CellLabel-> "During evaluation of \ In[206]:=",ExpressionUUID->"fe822974-6562-47b1-83c5-11de2b245306"] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["three nodes raised: w = 11", "Subsubsection", CellChangeTimes->{{3.7596252186690226`*^9, 3.759625229509034*^9}, { 3.763045903503067*^9, 3.763045908951254*^9}, {3.763046466097885*^9, 3.763046466895091*^9}, {3.763050017886567*^9, 3.763050059697647*^9}, { 3.763050153594616*^9, 3.763050187217669*^9}, {3.7630502895947113`*^9, 3.763050302012877*^9}, {3.76305046931472*^9, 3.763050559341703*^9}, { 3.763050596464254*^9, 3.763050596556622*^9}, {3.763050675849996*^9, 3.763050762179748*^9}, {3.763050826762517*^9, 3.7630508319954*^9}, { 3.763051004848422*^9, 3.763051011570899*^9}, {3.7630510895510807`*^9, 3.763051090023631*^9}, 3.76305417136668*^9},ExpressionUUID->"30fe30e6-0979-4d5e-a7cc-\ a43b3c8104c0"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"LocalNumReps", " ", "=", " ", "100"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"LocalRandomRepList", " ", "=", RowBox[{"RandomInteger", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "36864"}], "}"}], ",", "LocalNumReps"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"LocalWord", " ", "=", "11"}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"BEigens", "[", "L", "]"}], "[", RowBox[{"LocalWord", ",", "4", ",", "4"}], "]"}], " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"\[Chi]0", "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}], "*", RowBox[{"{", RowBox[{"\[Rho]", ",", "\[Rho]", ",", SuperscriptBox["\[Rho]", "2"], ",", SuperscriptBox["\[Rho]", "2"]}], "}"}]}], ",", RowBox[{"{", RowBox[{"RepNo", ",", "LocalRandomRepList"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"BEigens", "[", "R", "]"}], "[", RowBox[{"LocalWord", ",", "4", ",", "4"}], "]"}], " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"\[Chi]0", "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}], "*", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Rho]"}], ",", RowBox[{"-", "\[Rho]"}], ",", RowBox[{"-", SuperscriptBox["\[Rho]", "2"]}], ",", RowBox[{"-", SuperscriptBox["\[Rho]", "2"]}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"RepNo", ",", "LocalRandomRepList"}], "}"}]}], "]"}]}], ";", RowBox[{ RowBox[{ RowBox[{"BEigens", "[", "L", "]"}], "[", RowBox[{"LocalWord", ",", "4", ",", "4"}], "]"}], "==", RowBox[{"Table", "[", RowBox[{ RowBox[{"Eigenvalues", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "L", "]"}], "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}], "[", "LocalWord", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"RepNo", ",", "LocalRandomRepList"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"BEigens", "[", "R", "]"}], "[", RowBox[{"LocalWord", ",", "4", ",", "4"}], "]"}], "==", RowBox[{"Table", "[", RowBox[{ RowBox[{"Eigenvalues", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "R", "]"}], "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}], "[", "LocalWord", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"RepNo", ",", "LocalRandomRepList"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"StringJoin", "[", RowBox[{"\"\\"", ",", " ", RowBox[{"ToString", "[", "LocalWord", "]"}]}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"StringJoin", "[", RowBox[{"\"\\"", ",", " ", RowBox[{"ToString", "[", "LocalRandomRepList", "]"}]}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{"Clear", "[", RowBox[{"LocalWord", ",", "LocalRandomRepList", ",", "LocalNumReps"}], "]"}]}], "Input", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmViYGCQBGIQfewTu+crpjeOobqrvUH0pW1ng0H0mxXhcSDauvRL CogWXvodTN+Zc6AERM9gLK8C0Vz2J5tB9Cd5lRYQPdVi/a4CzjeOcfNmHQTR H2Ltz4NoQbPICyD63tzUayB6zZ+4GyB6T4nZHRBtN70KTN963spTCKRFPfIE QHTTiSbVIiC97bWhCYi+p7zGAkQHWJlbgejuP9NdQfQqKw8PEL1j4/5MEF2y 1DwbRPsE+c0B0VF938H0Ci69QyA6In8BmL4SUHQXRP+PKn4IorvmHXwNou2i 7d+A6D+XnT6AaLbHPb9A9LyjS1iKgbTN2fdg+qz+HS4Q/eOuOS+IvnizQRBE W+hFi4BorohqKRCtZLRQEUTv4Y/QAtGRnLp6ILqqXtARRM871OsFogEpubss "], CellLabel-> "In[215]:=",ExpressionUUID->"4b77ce7a-8a6d-48c9-a892-0b5206ea856b"], Cell[BoxData["True"], "Output", CellChangeTimes->{{3.759624872169362*^9, 3.759624878768899*^9}, { 3.7596249187193003`*^9, 3.7596249475591917`*^9}, 3.7596249999892406`*^9, 3.759625172292762*^9, 3.759625250308663*^9, 3.7602923135466948`*^9, 3.7602925846082525`*^9, 3.7602926664022503`*^9, 3.760295856202198*^9, 3.762967588055868*^9, 3.763045350710292*^9, 3.763045388716611*^9, { 3.763045894043848*^9, 3.7630459126461277`*^9}, 3.7630461318103237`*^9, 3.763046538208836*^9, {3.763049018016876*^9, 3.763049040742711*^9}, { 3.763049182537252*^9, 3.763049214495669*^9}, {3.763049314031332*^9, 3.763049317454749*^9}, 3.7630494750418863`*^9, {3.763049689307949*^9, 3.763049732449902*^9}, 3.76305020950592*^9, {3.763050260135955*^9, 3.763050280816101*^9}, 3.7630503461412582`*^9, {3.7630504103273783`*^9, 3.763050420777594*^9}, 3.7630504556014347`*^9, {3.763050566930152*^9, 3.763050588769443*^9}, 3.763050666672117*^9, {3.763050719527597*^9, 3.763050771026909*^9}, {3.7630508021029673`*^9, 3.7630508108201017`*^9}, 3.7630508783704777`*^9, {3.7630510729796133`*^9, 3.7630510961684237`*^9}, 3.7630545041686277`*^9}, CellLabel-> "Out[219]=",ExpressionUUID->"617161dd-6ede-4cee-9f67-e2c249f70746"], Cell[BoxData["True"], "Output", CellChangeTimes->{{3.759624872169362*^9, 3.759624878768899*^9}, { 3.7596249187193003`*^9, 3.7596249475591917`*^9}, 3.7596249999892406`*^9, 3.759625172292762*^9, 3.759625250308663*^9, 3.7602923135466948`*^9, 3.7602925846082525`*^9, 3.7602926664022503`*^9, 3.760295856202198*^9, 3.762967588055868*^9, 3.763045350710292*^9, 3.763045388716611*^9, { 3.763045894043848*^9, 3.7630459126461277`*^9}, 3.7630461318103237`*^9, 3.763046538208836*^9, {3.763049018016876*^9, 3.763049040742711*^9}, { 3.763049182537252*^9, 3.763049214495669*^9}, {3.763049314031332*^9, 3.763049317454749*^9}, 3.7630494750418863`*^9, {3.763049689307949*^9, 3.763049732449902*^9}, 3.76305020950592*^9, {3.763050260135955*^9, 3.763050280816101*^9}, 3.7630503461412582`*^9, {3.7630504103273783`*^9, 3.763050420777594*^9}, 3.7630504556014347`*^9, {3.763050566930152*^9, 3.763050588769443*^9}, 3.763050666672117*^9, {3.763050719527597*^9, 3.763050771026909*^9}, {3.7630508021029673`*^9, 3.7630508108201017`*^9}, 3.7630508783704777`*^9, {3.7630510729796133`*^9, 3.7630510961684237`*^9}, 3.763054505851573*^9}, CellLabel-> "Out[220]=",ExpressionUUID->"914b7609-613e-475d-b678-362f840e34a3"], Cell[CellGroupData[{ Cell[BoxData["\<\"Word = 11\"\>"], "Print", CellChangeTimes->{{3.7630504117822227`*^9, 3.763050422245468*^9}, 3.763050457060657*^9, {3.7630505683806887`*^9, 3.763050590212371*^9}, 3.763050668203898*^9, {3.7630507210363398`*^9, 3.763050772521323*^9}, { 3.763050803620109*^9, 3.763050812325554*^9}, 3.7630508799246073`*^9, { 3.7630510745236197`*^9, 3.763051097722501*^9}, 3.763054505861508*^9}, CellLabel-> "During evaluation of \ In[215]:=",ExpressionUUID->"e296f867-6ea1-4b70-93c7-733ce5a2b681"], Cell[BoxData["\<\"Reps Randomly Checked are {3376, 16573, 14473, 2815, \ 19889, 11628, 8599, 20278, 14077, 8958, 10330, 30190, 17391, 8255, 30034, \ 16649, 35896, 20501, 36799, 13646, 12266, 19661, 22957, 27172, 31909, 11345, \ 18479, 10052, 13339, 18379, 35912, 35943, 5145, 34741, 20637, 23184, 23209, \ 17677, 22761, 14675, 2997, 29386, 10275, 32202, 26341, 27605, 23047, 16791, \ 27921, 34450, 31425, 34108, 7703, 5789, 15353, 14656, 30040, 8333, 23734, \ 18274, 7716, 16547, 30898, 23171, 3192, 14820, 31408, 20235, 28554, 8910, \ 19367, 27794, 20262, 33468, 1611, 21951, 19292, 25850, 35691, 6364, 32353, \ 28319, 22171, 15272, 21073, 27622, 25399, 18782, 15250, 1477, 10715, 17656, \ 14546, 29255, 33021, 34930, 28164, 3275, 18944, 13351}\"\>"], "Print", CellChangeTimes->{{3.7630504117822227`*^9, 3.763050422245468*^9}, 3.763050457060657*^9, {3.7630505683806887`*^9, 3.763050590212371*^9}, 3.763050668203898*^9, {3.7630507210363398`*^9, 3.763050772521323*^9}, { 3.763050803620109*^9, 3.763050812325554*^9}, 3.7630508799246073`*^9, { 3.7630510745236197`*^9, 3.763051097722501*^9}, 3.763054505869103*^9}, CellLabel-> "During evaluation of \ In[215]:=",ExpressionUUID->"1757acdf-f645-4fb9-93d8-5dfda31deae0"] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["three nodes raised: w = 13", "Subsubsection", CellChangeTimes->{{3.7596252186690226`*^9, 3.759625229509034*^9}, { 3.763045903503067*^9, 3.763045908951254*^9}, {3.763046466097885*^9, 3.763046466895091*^9}, {3.763050017886567*^9, 3.763050059697647*^9}, { 3.763050153594616*^9, 3.763050187217669*^9}, {3.7630502895947113`*^9, 3.763050302012877*^9}, {3.76305046931472*^9, 3.763050559341703*^9}, { 3.763050596464254*^9, 3.763050596556622*^9}, {3.763050675849996*^9, 3.763050762179748*^9}, {3.763050826762517*^9, 3.7630508319954*^9}, { 3.763051004848422*^9, 3.763051011570899*^9}, {3.7630510895510807`*^9, 3.763051105583004*^9}, 3.763054176083456*^9},ExpressionUUID->"eb8af6e6-9d9a-4cb1-954d-\ f08d1b5e66d0"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"LocalNumReps", " ", "=", " ", "100"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"LocalRandomRepList", " ", "=", RowBox[{"RandomInteger", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "36864"}], "}"}], ",", "LocalNumReps"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"LocalWord", " ", "=", "13"}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"BEigens", "[", "L", "]"}], "[", RowBox[{"LocalWord", ",", "4", ",", "4"}], "]"}], " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"\[Chi]0", "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}], "*", RowBox[{"{", RowBox[{"\[Rho]", ",", "\[Rho]", ",", SuperscriptBox["\[Rho]", "2"], ",", SuperscriptBox["\[Rho]", "2"]}], "}"}]}], ",", RowBox[{"{", RowBox[{"RepNo", ",", "LocalRandomRepList"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"BEigens", "[", "R", "]"}], "[", RowBox[{"LocalWord", ",", "4", ",", "4"}], "]"}], " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"\[Chi]0", "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}], "*", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Rho]"}], ",", RowBox[{"-", "\[Rho]"}], ",", RowBox[{"-", SuperscriptBox["\[Rho]", "2"]}], ",", RowBox[{"-", SuperscriptBox["\[Rho]", "2"]}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"RepNo", ",", "LocalRandomRepList"}], "}"}]}], "]"}]}], ";", RowBox[{ RowBox[{ RowBox[{"BEigens", "[", "L", "]"}], "[", RowBox[{"LocalWord", ",", "4", ",", "4"}], "]"}], "==", RowBox[{"Table", "[", RowBox[{ RowBox[{"Eigenvalues", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "L", "]"}], "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}], "[", "LocalWord", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"RepNo", ",", "LocalRandomRepList"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"BEigens", "[", "R", "]"}], "[", RowBox[{"LocalWord", ",", "4", ",", "4"}], "]"}], "==", RowBox[{"Table", "[", RowBox[{ RowBox[{"Eigenvalues", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "R", "]"}], "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}], "[", "LocalWord", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"RepNo", ",", "LocalRandomRepList"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"StringJoin", "[", RowBox[{"\"\\"", ",", " ", RowBox[{"ToString", "[", "LocalWord", "]"}]}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"StringJoin", "[", RowBox[{"\"\\"", ",", " ", RowBox[{"ToString", "[", "LocalRandomRepList", "]"}]}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{"Clear", "[", RowBox[{"LocalWord", ",", "LocalRandomRepList", ",", "LocalNumReps"}], "]"}]}], "Input", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmViYGCQBGIQfewTu+crpjeOobqrvUH0pW1ng0H0mxXhcSDauvRL CogWXvodTN+Zc6AERM9gLK8C0Vz2J5tB9Cd5lRYQPdVi/a4CzjeOcfNmHQTR H2Ltz4NoQbPICyD63tzUayB6zZ+4GyB6T4nZHRBtN70KTN963spTCKRFPfIE QHTTiSbVIiC97bWhCYi+p7zGAkQHWJlbgejuP9NdQfQqKw8PEL1j4/5MEF2y 1DwbRPsE+c0B0VF938H0Ci69QyA6In8BmL4SUHQXRP+PKn4IorvmHXwNou2i 7d+A6D+XnT6AaLbHPb9A9LyjS1iKgbTN2fdg+qz+HS4Q/eOuOS+IvnizQRBE W+hFi4BorohqKRCtZLRQEUTv4Y/QAtGRnLp6ILqqXtARRO/43+oDogEsDrt9 "], CellLabel-> "In[224]:=",ExpressionUUID->"a5f8c849-f1ca-4b1a-86ab-7be6fc3eb027"], Cell[BoxData["True"], "Output", CellChangeTimes->{{3.759624872169362*^9, 3.759624878768899*^9}, { 3.7596249187193003`*^9, 3.7596249475591917`*^9}, 3.7596249999892406`*^9, 3.759625172292762*^9, 3.759625250308663*^9, 3.7602923135466948`*^9, 3.7602925846082525`*^9, 3.7602926664022503`*^9, 3.760295856202198*^9, 3.762967588055868*^9, 3.763045350710292*^9, 3.763045388716611*^9, { 3.763045894043848*^9, 3.7630459126461277`*^9}, 3.7630461318103237`*^9, 3.763046538208836*^9, {3.763049018016876*^9, 3.763049040742711*^9}, { 3.763049182537252*^9, 3.763049214495669*^9}, {3.763049314031332*^9, 3.763049317454749*^9}, 3.7630494750418863`*^9, {3.763049689307949*^9, 3.763049732449902*^9}, 3.76305020950592*^9, {3.763050260135955*^9, 3.763050280816101*^9}, 3.7630503461412582`*^9, {3.7630504103273783`*^9, 3.763050420777594*^9}, 3.7630504556014347`*^9, {3.763050566930152*^9, 3.763050588769443*^9}, 3.763050666672117*^9, {3.763050719527597*^9, 3.763050771026909*^9}, {3.7630508021029673`*^9, 3.7630508108201017`*^9}, 3.7630508783704777`*^9, {3.7630510729796133`*^9, 3.763051111564658*^9}, 3.763054508829797*^9}, CellLabel-> "Out[228]=",ExpressionUUID->"c9e94203-b00b-409c-913a-e81bb423920c"], Cell[BoxData["True"], "Output", CellChangeTimes->{{3.759624872169362*^9, 3.759624878768899*^9}, { 3.7596249187193003`*^9, 3.7596249475591917`*^9}, 3.7596249999892406`*^9, 3.759625172292762*^9, 3.759625250308663*^9, 3.7602923135466948`*^9, 3.7602925846082525`*^9, 3.7602926664022503`*^9, 3.760295856202198*^9, 3.762967588055868*^9, 3.763045350710292*^9, 3.763045388716611*^9, { 3.763045894043848*^9, 3.7630459126461277`*^9}, 3.7630461318103237`*^9, 3.763046538208836*^9, {3.763049018016876*^9, 3.763049040742711*^9}, { 3.763049182537252*^9, 3.763049214495669*^9}, {3.763049314031332*^9, 3.763049317454749*^9}, 3.7630494750418863`*^9, {3.763049689307949*^9, 3.763049732449902*^9}, 3.76305020950592*^9, {3.763050260135955*^9, 3.763050280816101*^9}, 3.7630503461412582`*^9, {3.7630504103273783`*^9, 3.763050420777594*^9}, 3.7630504556014347`*^9, {3.763050566930152*^9, 3.763050588769443*^9}, 3.763050666672117*^9, {3.763050719527597*^9, 3.763050771026909*^9}, {3.7630508021029673`*^9, 3.7630508108201017`*^9}, 3.7630508783704777`*^9, {3.7630510729796133`*^9, 3.763051111564658*^9}, 3.763054510459467*^9}, CellLabel-> "Out[229]=",ExpressionUUID->"1f34d705-a61a-483b-8f0d-bbb80fdc6968"], Cell[CellGroupData[{ Cell[BoxData["\<\"Word = 13\"\>"], "Print", CellChangeTimes->{{3.7630504117822227`*^9, 3.763050422245468*^9}, 3.763050457060657*^9, {3.7630505683806887`*^9, 3.763050590212371*^9}, 3.763050668203898*^9, {3.7630507210363398`*^9, 3.763050772521323*^9}, { 3.763050803620109*^9, 3.763050812325554*^9}, 3.7630508799246073`*^9, { 3.7630510745236197`*^9, 3.763051113108501*^9}, 3.763054510468923*^9}, CellLabel-> "During evaluation of \ In[224]:=",ExpressionUUID->"37082c96-ed68-464a-950e-119c02617a6e"], Cell[BoxData["\<\"Reps Randomly Checked are {6914, 21861, 3106, 32124, \ 26215, 31569, 16771, 24194, 12358, 26281, 19254, 707, 6516, 21228, 4874, 626, \ 5803, 24297, 24687, 35401, 6145, 29552, 23008, 34951, 16763, 15168, 21885, \ 5981, 23386, 20185, 20677, 288, 23177, 2459, 15578, 7321, 11634, 12053, \ 29132, 9113, 1463, 12513, 791, 30434, 21032, 21193, 20344, 10388, 28721, \ 4397, 26600, 21886, 23250, 8248, 1344, 30679, 21046, 8549, 28119, 20776, \ 28899, 23717, 35939, 5852, 3310, 32677, 11332, 17274, 9624, 14692, 20367, \ 31501, 18990, 35034, 36021, 3280, 17348, 10949, 12063, 26465, 24629, 16363, \ 736, 30877, 35795, 20017, 5172, 3494, 9932, 33656, 32509, 7185, 419, 14891, \ 12432, 6301, 14845, 27644, 22045, 15565}\"\>"], "Print", CellChangeTimes->{{3.7630504117822227`*^9, 3.763050422245468*^9}, 3.763050457060657*^9, {3.7630505683806887`*^9, 3.763050590212371*^9}, 3.763050668203898*^9, {3.7630507210363398`*^9, 3.763050772521323*^9}, { 3.763050803620109*^9, 3.763050812325554*^9}, 3.7630508799246073`*^9, { 3.7630510745236197`*^9, 3.763051113108501*^9}, 3.763054510476921*^9}, CellLabel-> "During evaluation of \ In[224]:=",ExpressionUUID->"f9d934f0-77f3-4f60-8420-04cc214a2826"] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["three nodes raised: w = 14", "Subsubsection", CellChangeTimes->{{3.7596252186690226`*^9, 3.759625229509034*^9}, { 3.763045903503067*^9, 3.763045908951254*^9}, {3.763046466097885*^9, 3.763046466895091*^9}, {3.763050017886567*^9, 3.763050059697647*^9}, { 3.763050153594616*^9, 3.763050187217669*^9}, {3.7630502895947113`*^9, 3.763050302012877*^9}, {3.76305046931472*^9, 3.763050559341703*^9}, { 3.763050596464254*^9, 3.763050596556622*^9}, {3.763050675849996*^9, 3.763050762179748*^9}, {3.763050826762517*^9, 3.7630508319954*^9}, { 3.763051004848422*^9, 3.763051011570899*^9}, {3.7630510895510807`*^9, 3.7630511197887783`*^9}, 3.763054179423174*^9},ExpressionUUID->"6c4e5144-66a6-4626-9f0b-\ 56def5baae0e"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"LocalNumReps", " ", "=", " ", "100"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"LocalRandomRepList", " ", "=", RowBox[{"RandomInteger", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "36864"}], "}"}], ",", "LocalNumReps"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"LocalWord", " ", "=", "14"}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"BEigens", "[", "L", "]"}], "[", RowBox[{"LocalWord", ",", "4", ",", "4"}], "]"}], " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"\[Chi]0", "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}], "*", RowBox[{"{", RowBox[{"\[Rho]", ",", "\[Rho]", ",", SuperscriptBox["\[Rho]", "2"], ",", SuperscriptBox["\[Rho]", "2"]}], "}"}]}], ",", RowBox[{"{", RowBox[{"RepNo", ",", "LocalRandomRepList"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"BEigens", "[", "R", "]"}], "[", RowBox[{"LocalWord", ",", "4", ",", "4"}], "]"}], " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"\[Chi]0", "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}], "*", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Rho]"}], ",", RowBox[{"-", "\[Rho]"}], ",", RowBox[{"-", SuperscriptBox["\[Rho]", "2"]}], ",", RowBox[{"-", SuperscriptBox["\[Rho]", "2"]}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"RepNo", ",", "LocalRandomRepList"}], "}"}]}], "]"}]}], ";", RowBox[{ RowBox[{ RowBox[{"BEigens", "[", "L", "]"}], "[", RowBox[{"LocalWord", ",", "4", ",", "4"}], "]"}], "==", RowBox[{"Table", "[", RowBox[{ RowBox[{"Eigenvalues", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "L", "]"}], "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}], "[", "LocalWord", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"RepNo", ",", "LocalRandomRepList"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"BEigens", "[", "R", "]"}], "[", RowBox[{"LocalWord", ",", "4", ",", "4"}], "]"}], "==", RowBox[{"Table", "[", RowBox[{ RowBox[{"Eigenvalues", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "R", "]"}], "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}], "[", "LocalWord", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"RepNo", ",", "LocalRandomRepList"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"StringJoin", "[", RowBox[{"\"\\"", ",", " ", RowBox[{"ToString", "[", "LocalWord", "]"}]}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"StringJoin", "[", RowBox[{"\"\\"", ",", " ", RowBox[{"ToString", "[", "LocalRandomRepList", "]"}]}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{"Clear", "[", RowBox[{"LocalWord", ",", "LocalRandomRepList", ",", "LocalNumReps"}], "]"}]}], "Input", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmViYGCQBGIQfewTu+crpjeOobqrvUH0pW1ng0H0mxXhcSDauvRL CogWXvodTN+Zc6AERM9gLK8C0Vz2J5tB9Cd5lRYQPdVi/a4CzjeOcfNmHQTR H2Ltz4NoQbPICyD63tzUayB6zZ+4GyB6T4nZHRBtN70KTN963spTCKRFPfIE QHTTiSbVIiC97bWhCYi+p7zGAkQHWJlbgejuP9NdQfQqKw8PEL1j4/5MEF2y 1DwbRPsE+c0B0VF938H0Ci69QyA6In8BmL4SUHQXRP+PKn4IorvmHXwNou2i 7d+A6D+XnT6AaLbHPb9A9LyjS1iKgbTN2fdg+qz+HS4Q/eOuOS+IvnizQRBE W+hFi4BorohqKRCtZLRQEUTv4Y/QAtGRnLp6ILqqXtARRG9ys/ID0QAlF7p1 "], CellLabel-> "In[233]:=",ExpressionUUID->"551925c2-6c25-4768-8a71-de23a4e6aeb6"], Cell[BoxData["True"], "Output", CellChangeTimes->{{3.759624872169362*^9, 3.759624878768899*^9}, { 3.7596249187193003`*^9, 3.7596249475591917`*^9}, 3.7596249999892406`*^9, 3.759625172292762*^9, 3.759625250308663*^9, 3.7602923135466948`*^9, 3.7602925846082525`*^9, 3.7602926664022503`*^9, 3.760295856202198*^9, 3.762967588055868*^9, 3.763045350710292*^9, 3.763045388716611*^9, { 3.763045894043848*^9, 3.7630459126461277`*^9}, 3.7630461318103237`*^9, 3.763046538208836*^9, {3.763049018016876*^9, 3.763049040742711*^9}, { 3.763049182537252*^9, 3.763049214495669*^9}, {3.763049314031332*^9, 3.763049317454749*^9}, 3.7630494750418863`*^9, {3.763049689307949*^9, 3.763049732449902*^9}, 3.76305020950592*^9, {3.763050260135955*^9, 3.763050280816101*^9}, 3.7630503461412582`*^9, {3.7630504103273783`*^9, 3.763050420777594*^9}, 3.7630504556014347`*^9, {3.763050566930152*^9, 3.763050588769443*^9}, 3.763050666672117*^9, {3.763050719527597*^9, 3.763050771026909*^9}, {3.7630508021029673`*^9, 3.7630508108201017`*^9}, 3.7630508783704777`*^9, {3.7630510729796133`*^9, 3.7630510961684237`*^9}, 3.7630511276664677`*^9, 3.763054513404295*^9}, CellLabel-> "Out[237]=",ExpressionUUID->"83fc9146-7216-443e-b661-a3c20e22618d"], Cell[BoxData["True"], "Output", CellChangeTimes->{{3.759624872169362*^9, 3.759624878768899*^9}, { 3.7596249187193003`*^9, 3.7596249475591917`*^9}, 3.7596249999892406`*^9, 3.759625172292762*^9, 3.759625250308663*^9, 3.7602923135466948`*^9, 3.7602925846082525`*^9, 3.7602926664022503`*^9, 3.760295856202198*^9, 3.762967588055868*^9, 3.763045350710292*^9, 3.763045388716611*^9, { 3.763045894043848*^9, 3.7630459126461277`*^9}, 3.7630461318103237`*^9, 3.763046538208836*^9, {3.763049018016876*^9, 3.763049040742711*^9}, { 3.763049182537252*^9, 3.763049214495669*^9}, {3.763049314031332*^9, 3.763049317454749*^9}, 3.7630494750418863`*^9, {3.763049689307949*^9, 3.763049732449902*^9}, 3.76305020950592*^9, {3.763050260135955*^9, 3.763050280816101*^9}, 3.7630503461412582`*^9, {3.7630504103273783`*^9, 3.763050420777594*^9}, 3.7630504556014347`*^9, {3.763050566930152*^9, 3.763050588769443*^9}, 3.763050666672117*^9, {3.763050719527597*^9, 3.763050771026909*^9}, {3.7630508021029673`*^9, 3.7630508108201017`*^9}, 3.7630508783704777`*^9, {3.7630510729796133`*^9, 3.7630510961684237`*^9}, 3.7630511276664677`*^9, 3.763054515158976*^9}, CellLabel-> "Out[238]=",ExpressionUUID->"c154f085-6660-40d9-8658-aca39c159529"], Cell[CellGroupData[{ Cell[BoxData["\<\"Word = 14\"\>"], "Print", CellChangeTimes->{{3.7630504117822227`*^9, 3.763050422245468*^9}, 3.763050457060657*^9, {3.7630505683806887`*^9, 3.763050590212371*^9}, 3.763050668203898*^9, {3.7630507210363398`*^9, 3.763050772521323*^9}, { 3.763050803620109*^9, 3.763050812325554*^9}, 3.7630508799246073`*^9, { 3.7630510745236197`*^9, 3.763051097722501*^9}, 3.763051129213385*^9, 3.763054515168942*^9}, CellLabel-> "During evaluation of \ In[233]:=",ExpressionUUID->"456384f5-3a15-4dbf-9475-88b5fe217844"], Cell[BoxData["\<\"Reps Randomly Checked are {741, 3204, 1154, 24289, 6475, \ 19662, 12615, 11578, 17887, 5792, 10554, 27286, 35432, 25554, 21337, 33889, \ 30895, 3557, 27627, 21846, 1626, 10547, 4859, 15653, 12765, 16047, 35599, \ 5586, 27818, 29268, 16314, 13928, 9351, 13166, 10860, 8296, 4733, 13451, \ 10375, 32781, 5622, 9033, 17007, 777, 8940, 26986, 6034, 30319, 27673, 4597, \ 16448, 11190, 28443, 23173, 26478, 13050, 20520, 32954, 14030, 33917, 29742, \ 20322, 5362, 8957, 3143, 28544, 4894, 30286, 35786, 21514, 3008, 23595, \ 12032, 1245, 5573, 13254, 31637, 11097, 31060, 6876, 13118, 22980, 11291, \ 23378, 15280, 30122, 16581, 2552, 5454, 35431, 2244, 32272, 13381, 7656, \ 16438, 4940, 16552, 21784, 14440, 23185}\"\>"], "Print", CellChangeTimes->{{3.7630504117822227`*^9, 3.763050422245468*^9}, 3.763050457060657*^9, {3.7630505683806887`*^9, 3.763050590212371*^9}, 3.763050668203898*^9, {3.7630507210363398`*^9, 3.763050772521323*^9}, { 3.763050803620109*^9, 3.763050812325554*^9}, 3.7630508799246073`*^9, { 3.7630510745236197`*^9, 3.763051097722501*^9}, 3.763051129213385*^9, 3.76305451517702*^9}, CellLabel-> "During evaluation of \ In[233]:=",ExpressionUUID->"d2592bf7-07dd-4875-a396-c8e6f7d7fd0d"] }, Open ]] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "all four nodes raised: w = 15\nPrints True/False whether the eigenvalues of \ ", Cell[BoxData[ FormBox[ SubscriptBox["B", "L"], TraditionalForm]], FormatType->"TraditionalForm",ExpressionUUID-> "8fbd5993-d41c-4552-97e1-b7e07381b182"], " are correct or not and True/False whether the eigenvalues of ", Cell[BoxData[ FormBox[ SubscriptBox["B", "R"], TraditionalForm]], FormatType->"TraditionalForm",ExpressionUUID-> "4960710f-8e77-4c32-aac1-c649573ef9e8"], " are correct or not" }], "Subsection", CellChangeTimes->{{3.7596252186690226`*^9, 3.759625229509034*^9}, { 3.763045903503067*^9, 3.763045908951254*^9}, {3.763046466097885*^9, 3.763046466895091*^9}, {3.763050017886567*^9, 3.763050059697647*^9}, { 3.763050153594616*^9, 3.763050187217669*^9}, {3.7630502895947113`*^9, 3.763050302012877*^9}, {3.76305046931472*^9, 3.763050559341703*^9}, { 3.763050596464254*^9, 3.763050596556622*^9}, {3.763050675849996*^9, 3.763050762179748*^9}, {3.763050826762517*^9, 3.7630508319954*^9}, { 3.763051004848422*^9, 3.763051011570899*^9}, {3.7630510895510807`*^9, 3.763051090023631*^9}, {3.763051135659257*^9, 3.763051140286924*^9}},ExpressionUUID->"53c4e60d-f20f-4baa-bf3a-\ 2f74cfe16c9b"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"LocalNumReps", " ", "=", " ", "100"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"LocalRandomRepList", " ", "=", RowBox[{"RandomInteger", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "36864"}], "}"}], ",", "LocalNumReps"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"LocalWord", " ", "=", "15"}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"BEigens", "[", "L", "]"}], "[", RowBox[{"LocalWord", ",", "4", ",", "4"}], "]"}], " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"\[Chi]0", "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}], "*", RowBox[{"{", RowBox[{ SuperscriptBox["\[Rho]", "2"], ",", SuperscriptBox["\[Rho]", "2"], ",", SuperscriptBox["\[Rho]", "2"], ",", SuperscriptBox["\[Rho]", "2"]}], "}"}]}], ",", RowBox[{"{", RowBox[{"RepNo", ",", "LocalRandomRepList"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"BEigens", "[", "R", "]"}], "[", RowBox[{"LocalWord", ",", "4", ",", "4"}], "]"}], " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"\[Chi]0", "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}], "*", RowBox[{"{", RowBox[{ RowBox[{"-", SuperscriptBox["\[Rho]", "2"]}], ",", RowBox[{"-", SuperscriptBox["\[Rho]", "2"]}], ",", RowBox[{"-", SuperscriptBox["\[Rho]", "2"]}], ",", RowBox[{"-", SuperscriptBox["\[Rho]", "2"]}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"RepNo", ",", "LocalRandomRepList"}], "}"}]}], "]"}]}], ";", RowBox[{ RowBox[{ RowBox[{"BEigens", "[", "L", "]"}], "[", RowBox[{"LocalWord", ",", "4", ",", "4"}], "]"}], "==", RowBox[{"Table", "[", RowBox[{ RowBox[{"Eigenvalues", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "L", "]"}], "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}], "[", "LocalWord", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"RepNo", ",", "LocalRandomRepList"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"BEigens", "[", "R", "]"}], "[", RowBox[{"LocalWord", ",", "4", ",", "4"}], "]"}], "==", RowBox[{"Table", "[", RowBox[{ RowBox[{"Eigenvalues", "[", RowBox[{ RowBox[{ RowBox[{"B", "[", "R", "]"}], "[", RowBox[{"GR44RepList", "[", RowBox[{"[", "RepNo", "]"}], "]"}], "]"}], "[", "LocalWord", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"RepNo", ",", "LocalRandomRepList"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"StringJoin", "[", RowBox[{"\"\\"", ",", " ", RowBox[{"ToString", "[", "LocalWord", "]"}]}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"StringJoin", "[", RowBox[{"\"\\"", ",", " ", RowBox[{"ToString", "[", "LocalRandomRepList", "]"}]}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{"Clear", "[", RowBox[{"LocalWord", ",", "LocalRandomRepList", ",", "LocalNumReps"}], "]"}]}], "Input", CellChangeTimes->CompressedData[" 1:eJwdxU0oQwEAB/BZor2IFy67aD4usom0rdFeU2pDmi3ZR3aQHZYytknNgYbL fNw0aV6U1WIllyWt2Io4LJ8Jva2Wg7JX1lKTXvH+7/DrJ5twm5xikUgk5eGr YqXhU8zqRuVHg/ghnjZjNjrmwD1z35O4LlISZsIXPrxdNu/HBHWzjIuNLSt4 S318NiNhdQ56J4kL49QtJpXWO5zddT7jGOd4wQmfksHakF/47WO1apa/QT9d iwPXgVYPfzzf2Y2zzTE1NmpUGrzGhfrxoUavx6cn5y7si6im8JBpOIxtmyXh KKFIYYt7T/jJ6MngP5s3h4N0Mo+1dorF3GNfAVe8r/9i+vKg3Mvfm/4STncw BP7JqKrx/esSidUKez0mLAtS3NS1L8OJGksbtkrkCuxfJHWYTm0M4BxHjOD2 oMGM/wEeFcIJ "], CellLabel-> "In[242]:=",ExpressionUUID->"59dab070-6295-4b75-a72e-095e8e7edec1"], Cell[BoxData["True"], "Output", CellChangeTimes->{{3.759624872169362*^9, 3.759624878768899*^9}, { 3.7596249187193003`*^9, 3.7596249475591917`*^9}, 3.7596249999892406`*^9, 3.759625172292762*^9, 3.759625250308663*^9, 3.7602923135466948`*^9, 3.7602925846082525`*^9, 3.7602926664022503`*^9, 3.760295856202198*^9, 3.762967588055868*^9, 3.763045350710292*^9, 3.763045388716611*^9, { 3.763045894043848*^9, 3.7630459126461277`*^9}, 3.7630461318103237`*^9, 3.763046538208836*^9, {3.763049018016876*^9, 3.763049040742711*^9}, { 3.763049182537252*^9, 3.763049214495669*^9}, {3.763049314031332*^9, 3.763049317454749*^9}, 3.7630494750418863`*^9, {3.763049689307949*^9, 3.763049732449902*^9}, 3.76305020950592*^9, {3.763050260135955*^9, 3.763050280816101*^9}, 3.7630503461412582`*^9, {3.7630504103273783`*^9, 3.763050420777594*^9}, 3.7630504556014347`*^9, {3.763050566930152*^9, 3.763050588769443*^9}, 3.763050666672117*^9, {3.763050719527597*^9, 3.763050771026909*^9}, {3.7630508021029673`*^9, 3.7630508108201017`*^9}, 3.7630508783704777`*^9, {3.7630510729796133`*^9, 3.7630510961684237`*^9}, 3.763051170409491*^9, 3.76305451833782*^9}, CellLabel-> "Out[246]=",ExpressionUUID->"a8f8422f-a607-4f2e-b158-233ff2a96ff8"], Cell[BoxData["True"], "Output", CellChangeTimes->{{3.759624872169362*^9, 3.759624878768899*^9}, { 3.7596249187193003`*^9, 3.7596249475591917`*^9}, 3.7596249999892406`*^9, 3.759625172292762*^9, 3.759625250308663*^9, 3.7602923135466948`*^9, 3.7602925846082525`*^9, 3.7602926664022503`*^9, 3.760295856202198*^9, 3.762967588055868*^9, 3.763045350710292*^9, 3.763045388716611*^9, { 3.763045894043848*^9, 3.7630459126461277`*^9}, 3.7630461318103237`*^9, 3.763046538208836*^9, {3.763049018016876*^9, 3.763049040742711*^9}, { 3.763049182537252*^9, 3.763049214495669*^9}, {3.763049314031332*^9, 3.763049317454749*^9}, 3.7630494750418863`*^9, {3.763049689307949*^9, 3.763049732449902*^9}, 3.76305020950592*^9, {3.763050260135955*^9, 3.763050280816101*^9}, 3.7630503461412582`*^9, {3.7630504103273783`*^9, 3.763050420777594*^9}, 3.7630504556014347`*^9, {3.763050566930152*^9, 3.763050588769443*^9}, 3.763050666672117*^9, {3.763050719527597*^9, 3.763050771026909*^9}, {3.7630508021029673`*^9, 3.7630508108201017`*^9}, 3.7630508783704777`*^9, {3.7630510729796133`*^9, 3.7630510961684237`*^9}, 3.763051170409491*^9, 3.763054519953106*^9}, CellLabel-> "Out[247]=",ExpressionUUID->"235a8525-3371-4f26-86ce-bda39489a5e0"], Cell[CellGroupData[{ Cell[BoxData["\<\"Word = 15\"\>"], "Print", CellChangeTimes->{{3.7630504117822227`*^9, 3.763050422245468*^9}, 3.763050457060657*^9, {3.7630505683806887`*^9, 3.763050590212371*^9}, 3.763050668203898*^9, {3.7630507210363398`*^9, 3.763050772521323*^9}, { 3.763050803620109*^9, 3.763050812325554*^9}, 3.7630508799246073`*^9, { 3.7630510745236197`*^9, 3.763051097722501*^9}, 3.763051171948636*^9, 3.763054519991242*^9}, CellLabel-> "During evaluation of \ In[242]:=",ExpressionUUID->"ddf995f6-020e-49a3-b0f7-65606c6fddf9"], Cell[BoxData["\<\"Reps Randomly Checked are {31926, 24920, 2055, 29716, \ 3724, 12017, 12331, 18136, 3966, 32242, 9938, 28417, 29971, 30024, 15851, \ 9192, 9863, 33532, 10162, 27042, 19399, 10348, 12973, 21312, 5893, 24242, \ 34684, 11016, 10917, 14421, 34363, 5611, 32037, 28841, 36334, 4311, 13785, \ 13352, 26452, 33468, 29838, 13153, 27916, 26738, 5002, 14808, 20055, 27083, \ 35865, 15429, 2592, 24229, 2790, 1075, 2550, 11914, 14482, 36273, 25093, \ 25128, 15992, 17463, 6787, 3343, 25209, 26750, 15026, 36645, 34796, 24975, \ 12951, 26179, 23904, 12706, 26472, 25014, 28433, 8731, 36273, 12942, 6482, \ 18925, 17695, 6175, 27754, 17682, 33360, 14037, 35448, 30441, 24543, 29735, \ 13567, 12543, 26846, 16145, 26584, 19883, 11950, 2897}\"\>"], "Print", CellChangeTimes->{{3.7630504117822227`*^9, 3.763050422245468*^9}, 3.763050457060657*^9, {3.7630505683806887`*^9, 3.763050590212371*^9}, 3.763050668203898*^9, {3.7630507210363398`*^9, 3.763050772521323*^9}, { 3.763050803620109*^9, 3.763050812325554*^9}, 3.7630508799246073`*^9, { 3.7630510745236197`*^9, 3.763051097722501*^9}, 3.763051171948636*^9, 3.7630545199948883`*^9}, CellLabel-> "During evaluation of \ In[242]:=",ExpressionUUID->"1e731cc2-4db7-48d4-8022-5439fe770cd0"] }, Open ]] }, Open ]] }, Closed]] }, Open ]] }, Open ]] }, WindowSize->{Full, Full}, WindowMargins->{{Automatic, 140}, {Automatic, 55}}, FrontEndVersion->"11.3 for Mac OS X x86 (32-bit, 64-bit Kernel) (March 5, \ 2018)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 426, 9, 222, "Title",ExpressionUUID->"46e08a2a-81cb-4715-9090-cbb021a0eb10"], Cell[CellGroupData[{ Cell[1031, 35, 148, 2, 30, "Input",ExpressionUUID->"70613118-1d48-47dc-bd78-d12aaea7e038"], Cell[1182, 39, 914, 13, 34, "Output",ExpressionUUID->"9c42e746-cd78-42db-9164-c2ba38bd856f"] }, Open ]], Cell[CellGroupData[{ Cell[2133, 57, 321, 5, 67, "Section",ExpressionUUID->"6f2b1cc3-3be9-49ee-9e81-65594109def2"], Cell[2457, 64, 296, 5, 30, "Input",ExpressionUUID->"a32ff42f-b046-4599-b649-39316755a471"], Cell[CellGroupData[{ Cell[2778, 73, 212, 3, 30, "Input",ExpressionUUID->"078e5a08-8c52-4a8e-b43e-e82e1274152f"], Cell[2993, 78, 784, 11, 70, "Output",ExpressionUUID->"fb0f066a-d70b-4bcb-bfd8-7d9309a6da07"] }, Open ]], Cell[CellGroupData[{ Cell[3814, 94, 162, 3, 54, "Subsection",ExpressionUUID->"1aa7220b-a0af-4f51-859d-273ba713241b"], Cell[CellGroupData[{ Cell[4001, 101, 217, 3, 30, "Input",ExpressionUUID->"b3a96abe-d5d8-4e01-a2cd-34a41587ee31"], Cell[4221, 106, 7220, 106, 70, "Output",ExpressionUUID->"c9e47033-72db-4fda-aabc-db442542005f"] }, Open ]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[11502, 219, 909, 13, 53, "Section",ExpressionUUID->"44e7d03e-a2aa-4c5d-aa86-8c0a0987d766"], Cell[CellGroupData[{ Cell[12436, 236, 4665, 98, 104, "Subsection",ExpressionUUID->"6e52171b-b45f-47ab-b549-ab794c63772e"], Cell[17104, 336, 2494, 57, 105, "Input",ExpressionUUID->"f151b63c-0b9a-4e22-879d-5d604b7cbbde"], Cell[CellGroupData[{ Cell[19623, 397, 288, 4, 30, "Input",ExpressionUUID->"3610b59c-9f37-4e9a-8b0f-f2f7d687e229"], Cell[19914, 403, 1159, 28, 70, "Output",ExpressionUUID->"1c237957-5cd1-4981-a09c-7ba476500421"] }, Open ]], Cell[21088, 434, 486, 9, 30, "Input",ExpressionUUID->"077d76b6-520d-4697-9f1b-cdc72440f943"], Cell[CellGroupData[{ Cell[21599, 447, 630, 13, 30, "Input",ExpressionUUID->"fab2ea4a-abe3-4ac3-8621-752459235669"], Cell[22232, 462, 916, 23, 70, "Output",ExpressionUUID->"45605596-c48a-44b4-8115-2d3694d8ad04"] }, Open ]], Cell[CellGroupData[{ Cell[23185, 490, 253, 5, 30, "Input",ExpressionUUID->"1aaa6795-926f-4c44-9668-7938219d791a"], Cell[23441, 497, 687, 14, 70, "Output",ExpressionUUID->"90245b42-9d6f-46ff-a519-733ff462167c"] }, Open ]], Cell[CellGroupData[{ Cell[24165, 516, 533, 12, 30, "Input",ExpressionUUID->"8e267c62-e59c-43e3-bcdb-4e766ba8eb02"], Cell[24701, 530, 1760, 44, 70, "Output",ExpressionUUID->"921b1ddd-f27b-4137-9d7a-55c6ecec34a7"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[26510, 580, 814, 16, 81, "Subsection",ExpressionUUID->"35486548-69c0-4bc3-89e9-a4fbcdb9cf25"], Cell[27327, 598, 1757, 45, 82, "Input",ExpressionUUID->"4c97b92f-708f-4634-884c-7ace6a1deed0"], Cell[29087, 645, 532, 11, 30, "Input",ExpressionUUID->"418562d6-5696-49f0-9ee4-e89c6a554a46"], Cell[CellGroupData[{ Cell[29644, 660, 344, 5, 30, "Input",ExpressionUUID->"4eb7d3e1-98b4-46f6-bdec-4e5a69e03ec7"], Cell[29991, 667, 1104, 27, 70, "Output",ExpressionUUID->"ca8eb34e-42b3-492a-afc7-263c6e39a51d"] }, Open ]], Cell[31110, 697, 328, 7, 30, "Input",ExpressionUUID->"ed222dad-0230-406d-b631-6350a0129b4c"], Cell[CellGroupData[{ Cell[31463, 708, 623, 13, 30, "Input",ExpressionUUID->"f73ded17-b972-4bc8-9aea-b305063b3009"], Cell[32089, 723, 857, 21, 70, "Output",ExpressionUUID->"e8c6bf91-8c10-4a62-aad2-0712dd7f344f"] }, Open ]], Cell[CellGroupData[{ Cell[32983, 749, 386, 7, 30, "Input",ExpressionUUID->"59495317-f9f0-4e46-b8c5-acdc1350e870"], Cell[33372, 758, 1089, 26, 70, "Output",ExpressionUUID->"e26a0b47-468c-4ed2-9c1e-789633de10b6"] }, Open ]], Cell[CellGroupData[{ Cell[34498, 789, 658, 13, 30, "Input",ExpressionUUID->"22a752e8-d7eb-404a-9665-452e027ef74d"], Cell[35159, 804, 1738, 44, 70, "Output",ExpressionUUID->"287af338-94a5-4bbc-90aa-52f3734f02a0"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[36946, 854, 1993, 52, 86, "Subsection",ExpressionUUID->"48ca3084-f6f8-405e-81b8-cd81836330d6"], Cell[38942, 908, 1201, 26, 53, "Input",ExpressionUUID->"43a87770-9517-4089-b574-ea819a52f222"], Cell[40146, 936, 1373, 36, 52, "Input",ExpressionUUID->"08b65fcc-8f43-481b-a745-ef8d99cdb3b3"] }, Open ]], Cell[CellGroupData[{ Cell[41556, 977, 602, 11, 81, "Subsection",ExpressionUUID->"eac0907e-c9b4-493d-8450-fc3974c83d8b"], Cell[42161, 990, 1341, 36, 30, "Input",ExpressionUUID->"0d7e9010-2ad1-430d-b6cb-8db2964d09ec"], Cell[43505, 1028, 1191, 31, 30, "Input",ExpressionUUID->"5f574836-c58b-4f50-ba19-d8f1a7002db5"] }, Open ]], Cell[CellGroupData[{ Cell[44733, 1064, 598, 11, 81, "Subsection",ExpressionUUID->"dff8ffd3-f9f4-4ee5-8942-4063aca34e0e"], Cell[45334, 1077, 1465, 37, 30, "Input",ExpressionUUID->"4caf032b-173a-4418-8df1-c58166646c0a"], Cell[46802, 1116, 1212, 31, 30, "Input",ExpressionUUID->"cede759e-5bb6-46d5-8660-a1f534d2d844"] }, Open ]], Cell[CellGroupData[{ Cell[48051, 1152, 618, 11, 81, "Subsection",ExpressionUUID->"2c263bca-8aba-4d9f-9f4f-0fd4dca97646"], Cell[48672, 1165, 1522, 38, 30, "Input",ExpressionUUID->"cf4e08e8-7acf-4adc-8967-c993a81d4036"], Cell[50197, 1205, 1298, 32, 30, "Input",ExpressionUUID->"df909857-e77b-43b7-ac63-6ddb5af50266"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[51544, 1243, 3726, 106, 207, "Section",ExpressionUUID->"9396c1ac-709c-4c71-b250-f143f43d14e7"], Cell[55273, 1351, 763, 22, 30, "Input",ExpressionUUID->"d0a2c9ec-521a-439b-be20-8b4a295cb148"], Cell[56039, 1375, 1193, 28, 30, "Input",ExpressionUUID->"4a33dbbc-43b6-41d2-ad3c-42c166ea6050"], Cell[57235, 1405, 634, 16, 30, "Input",ExpressionUUID->"bac5f0b1-1276-4f1f-8040-c9edbdb08af4"], Cell[57872, 1423, 910, 23, 30, "Input",ExpressionUUID->"fc5e2629-0dbb-4347-a2ba-027080c0dc59"], Cell[58785, 1448, 1136, 30, 30, "Input",ExpressionUUID->"b0c75365-e1b0-4713-b95c-6f7c7163c4db"], Cell[CellGroupData[{ Cell[59946, 1482, 223, 3, 30, "Input",ExpressionUUID->"bcf1040b-53ab-4beb-bd4d-fa5279a88789"], Cell[60172, 1487, 549, 9, 70, "Print",ExpressionUUID->"b0b8332c-9d41-4672-bf8f-961c84b32581"] }, Open ]], Cell[CellGroupData[{ Cell[60758, 1501, 342, 6, 30, "Input",ExpressionUUID->"a7a56ee8-80e3-492e-bf7c-92d7e4fb1242"], Cell[61103, 1509, 3819, 83, 70, "Output",ExpressionUUID->"24e476ea-7764-4b93-876d-670e7a1dca10"] }, Open ]], Cell[CellGroupData[{ Cell[64959, 1597, 277, 6, 30, "Input",ExpressionUUID->"ab465f31-026b-42b8-a44f-0bbc1fc99a1f"], Cell[65239, 1605, 551, 12, 70, "Output",ExpressionUUID->"485c2f52-60f6-4bd8-a605-38589fe4cdb9"] }, Open ]], Cell[CellGroupData[{ Cell[65827, 1622, 347, 5, 54, "Subsection",ExpressionUUID->"cd496fba-52e8-4543-9dac-e98b27534e24"], Cell[CellGroupData[{ Cell[66199, 1631, 265, 5, 30, "Input",ExpressionUUID->"33882d06-b549-4299-9d34-b3e177e422c4"], Cell[66467, 1638, 397, 5, 70, "Output",ExpressionUUID->"f0599b44-3a2a-4297-9d30-5cdccabcd085"] }, Open ]], Cell[CellGroupData[{ Cell[66901, 1648, 320, 7, 30, "Input",ExpressionUUID->"7626ca6e-e76a-430a-b5b9-063ac7912c82"], Cell[67224, 1657, 365, 5, 70, "Output",ExpressionUUID->"ddc7de0c-b699-4cff-a9c7-3788a4bf2fab"] }, Open ]], Cell[CellGroupData[{ Cell[67626, 1667, 138, 2, 30, "Input",ExpressionUUID->"a5ab8efb-c440-4201-b47d-a0e7f5bbaa28"], Cell[67767, 1671, 530, 12, 70, "Output",ExpressionUUID->"6552e2ae-e95e-4c31-b830-8e2a7818794c"] }, Open ]], Cell[CellGroupData[{ Cell[68334, 1688, 653, 17, 30, "Input",ExpressionUUID->"48ef642f-b7fa-4c0c-b7a3-0571b67a8dd2"], Cell[68990, 1707, 388, 5, 70, "Output",ExpressionUUID->"7df68f54-e58b-48a8-b0fd-9822b016eaa7"] }, Open ]], Cell[CellGroupData[{ Cell[69415, 1717, 905, 24, 30, "Input",ExpressionUUID->"a6696083-8fa2-4ce8-930a-2c09aa745268"], Cell[70323, 1743, 419, 6, 70, "Output",ExpressionUUID->"e5912f58-a266-4f3b-ad9b-40f329a11154"] }, Open ]], Cell[CellGroupData[{ Cell[70779, 1754, 226, 4, 30, "Input",ExpressionUUID->"3161ebb8-99eb-4a54-a8ac-c5dde26738e5"], Cell[71008, 1760, 2104, 58, 70, "Output",ExpressionUUID->"f200a801-7e9f-4909-a0a4-aaaf4dcc40da"] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[73173, 1825, 815, 22, 92, "Section",ExpressionUUID->"be429d5e-34cf-4590-b611-11920ccdee5e"], Cell[CellGroupData[{ Cell[74013, 1851, 186, 3, 54, "Subsection",ExpressionUUID->"2624b753-61dd-4fe0-9996-8e0df1efec3c"], Cell[74202, 1856, 1492, 34, 53, "Input",ExpressionUUID->"c85aeb82-181a-4afd-a1cb-a567cfdf2582"], Cell[75697, 1892, 1260, 34, 52, "Input",ExpressionUUID->"a9d5e0bf-d3e2-4760-83e2-64ff9208f2e1"], Cell[CellGroupData[{ Cell[76982, 1930, 383, 9, 30, "Input",ExpressionUUID->"98e47ab0-31e8-44d5-90ae-691ad36e09d9"], Cell[77368, 1941, 636, 14, 70, "Output",ExpressionUUID->"83fbab7d-0ca1-489d-8278-c3c6a47c398a"] }, Open ]], Cell[CellGroupData[{ Cell[78041, 1960, 504, 13, 30, "Input",ExpressionUUID->"bc3dfb24-1e9d-471d-b7a7-b806c0359e6b"], Cell[78548, 1975, 320, 5, 70, "Output",ExpressionUUID->"ae00081f-87d0-47c2-9fe1-16d1af8aa571"] }, Open ]], Cell[CellGroupData[{ Cell[78905, 1985, 587, 15, 30, "Input",ExpressionUUID->"d9937067-8452-4fe4-bad1-6226f27be0ae"], Cell[79495, 2002, 4273, 140, 70, "Output",ExpressionUUID->"4303e3a7-6ce9-484e-85a5-5790c8eeb4f5"] }, Open ]], Cell[CellGroupData[{ Cell[83805, 2147, 284, 5, 30, "Input",ExpressionUUID->"ba0b13f9-bd2a-4307-9d33-d4de51f48ab2"], Cell[84092, 2154, 349, 5, 70, "Output",ExpressionUUID->"7686a6a9-9fff-4cb6-a473-c3163202693b"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[84490, 2165, 329, 7, 38, "Subsection",ExpressionUUID->"ffe0ecfc-89c9-401b-8542-ae295a1b5419"], Cell[84822, 2174, 3320, 106, 136, "Input",ExpressionUUID->"f76ecb84-d897-4c85-9f2d-666ed0751706"] }, Closed]], Cell[CellGroupData[{ Cell[88179, 2285, 269, 4, 38, "Subsection",ExpressionUUID->"17d4775d-f8e1-4c36-b370-408f4feb06f3"], Cell[88451, 2291, 2785, 82, 178, "Input",ExpressionUUID->"7ab506e9-b09d-4064-a72e-e7edcb021f3c"], Cell[CellGroupData[{ Cell[91261, 2377, 1549, 34, 94, "Input",ExpressionUUID->"644479e5-7bd5-4096-9e30-e8ddd9a774e6"], Cell[92813, 2413, 9154, 262, 140, "Output",ExpressionUUID->"78279a66-faa0-4d3e-8873-e48402cca14b"], Cell[101970, 2677, 594, 8, 34, "Output",ExpressionUUID->"f99c5699-7ba6-4321-a6b1-ce6788588f68"], Cell[102567, 2687, 591, 8, 34, "Output",ExpressionUUID->"d41e2d75-318b-4817-9d38-f744741e298e"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[103207, 2701, 266, 4, 38, "Subsection",ExpressionUUID->"44650daf-0c45-4b10-93ed-6a02a9ee457b"], Cell[103476, 2707, 3239, 98, 199, "Input",ExpressionUUID->"03be95b6-9678-4f72-ab93-cbc859d785cf"], Cell[CellGroupData[{ Cell[106740, 2809, 1626, 35, 94, "Input",ExpressionUUID->"70659b3d-6cca-495d-8265-f32a15f27d02"], Cell[108369, 2846, 14387, 455, 175, "Output",ExpressionUUID->"b5fa1350-c408-4110-b679-7de1e4521363"], Cell[122759, 3303, 643, 9, 34, "Output",ExpressionUUID->"491fcd4e-2e4c-4511-b89b-71b334975438"], Cell[123405, 3314, 640, 9, 34, "Output",ExpressionUUID->"4ecabd05-a5cd-4232-bee3-fcd96ba3c40c"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[124094, 3329, 319, 5, 38, "Subsection",ExpressionUUID->"c57554df-6374-4b74-8231-b1f3c4b4e8d1"], Cell[124416, 3336, 3267, 97, 199, "Input",ExpressionUUID->"67d1a661-db9b-436e-b743-2034168bbfc1"], Cell[CellGroupData[{ Cell[127708, 3437, 1656, 36, 94, "Input",ExpressionUUID->"11dbf708-aa45-424c-b4ba-a85fd9a1c16a"], Cell[129367, 3475, 14385, 455, 175, "Output",ExpressionUUID->"7e4ace35-8952-4e9a-90e7-de22923bf9ff"], Cell[143755, 3932, 641, 9, 34, "Output",ExpressionUUID->"504450ce-a611-4649-958f-46470ecc6dcb"], Cell[144399, 3943, 638, 9, 34, "Output",ExpressionUUID->"19339cbf-5334-4b35-ab08-35cd22dccfa6"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[145086, 3958, 321, 5, 38, "Subsection",ExpressionUUID->"aac7eb45-5fd9-4dbe-8ba5-1d691972aa06"], Cell[145410, 3965, 3254, 92, 178, "Input",ExpressionUUID->"6fe0fed9-9113-49f1-bd31-7584c656ac71"], Cell[CellGroupData[{ Cell[148689, 4061, 1656, 36, 94, "Input",ExpressionUUID->"91e81b56-0e3f-4401-80bf-43055ea7f14f"], Cell[150348, 4099, 12957, 362, 140, "Output",ExpressionUUID->"55150a1f-675e-4670-9152-673d239957b6"], Cell[163308, 4463, 687, 9, 34, "Output",ExpressionUUID->"2fd8d3a5-40a0-46c9-834a-993595926423"], Cell[163998, 4474, 684, 9, 34, "Output",ExpressionUUID->"bda33c59-dca3-4059-abbd-188109b95e23"] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[164743, 4490, 378, 9, 143, "Section",ExpressionUUID->"51f57fc7-c236-4716-a624-21e3237b210e"], Cell[CellGroupData[{ Cell[165146, 4503, 175, 3, 54, "Subsection",ExpressionUUID->"4a23e5c4-43cc-4559-89c4-da0e3e78fb83"], Cell[CellGroupData[{ Cell[165346, 4510, 281, 5, 52, "Input",ExpressionUUID->"0eda332b-4b37-4b93-b4b1-1bb31b7a1268"], Cell[165630, 4517, 4752, 109, 70, "Output",ExpressionUUID->"4e36ddbc-e176-4bdb-9ae9-ef7163549adf"], Cell[170385, 4628, 3109, 88, 70, "Output",ExpressionUUID->"f1e57627-4ab8-4dcb-ac7b-49f562b50f48"] }, Open ]], Cell[173509, 4719, 307, 7, 30, "Input",ExpressionUUID->"0a75177d-a7d6-4ca9-b9cc-2accca0e5092"], Cell[CellGroupData[{ Cell[173841, 4730, 297, 5, 52, "Input",ExpressionUUID->"5e3daa6b-10e2-4ff1-a122-3e05909b36a7"], Cell[174141, 4737, 4836, 109, 70, "Output",ExpressionUUID->"f7c5f280-480b-40e0-b9c8-3e0a7be99532"], Cell[178980, 4848, 3229, 92, 70, "Output",ExpressionUUID->"f37c3640-3715-406b-9c23-f4c1433f869d"] }, Open ]], Cell[182224, 4943, 275, 5, 30, "Input",ExpressionUUID->"67af082b-c9f2-4026-ab65-75d31be3dc79"], Cell[CellGroupData[{ Cell[182524, 4952, 525, 10, 94, "Input",ExpressionUUID->"18553c93-82e8-4857-852c-44a6e16cdb10"], Cell[183052, 4964, 4800, 110, 70, "Output",ExpressionUUID->"21003c12-3e0c-4770-aa8f-803b684cba03"], Cell[187855, 5076, 3159, 89, 70, "Output",ExpressionUUID->"026da156-a28b-4b37-81f9-4776fdc62352"] }, Open ]], Cell[CellGroupData[{ Cell[191051, 5170, 576, 11, 94, "Input",ExpressionUUID->"02cabd86-1308-442d-8881-c5aff46d529c"], Cell[191630, 5183, 4884, 110, 70, "Output",ExpressionUUID->"8bcfb7d1-edea-4716-8dce-cead885e2028"], Cell[196517, 5295, 3277, 93, 70, "Output",ExpressionUUID->"9e0056df-1088-4577-ae52-a61912f612af"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[199843, 5394, 212, 3, 38, "Subsection",ExpressionUUID->"ace307d1-e757-4f9f-aea7-8ac9d255a1a9"], Cell[200058, 5399, 2086, 50, 95, "Input",ExpressionUUID->"4413c74d-356d-4bd0-be27-ed2038399c0f"], Cell[CellGroupData[{ Cell[202169, 5453, 550, 12, 30, "Input",ExpressionUUID->"a72c4e8d-85b0-44eb-952e-8db9ad3b3993"], Cell[202722, 5467, 11244, 312, 70, "Output",ExpressionUUID->"0f106f99-eec3-4dc1-91be-d666d38e8d1f"] }, Open ]], Cell[213981, 5782, 1412, 38, 52, "Input",ExpressionUUID->"2ae5a96e-6c9d-42fa-81ce-01390cd69375"], Cell[CellGroupData[{ Cell[215418, 5824, 178, 3, 45, "Subsubsection",ExpressionUUID->"5f0c5eaa-4cb0-4a8f-964d-9e2c951c246e"], Cell[215599, 5829, 257, 6, 30, "Input",ExpressionUUID->"f951ae54-8b6a-46a6-afea-68004ac4750d"], Cell[CellGroupData[{ Cell[215881, 5839, 528, 12, 30, "Input",ExpressionUUID->"5c277646-58e0-4796-a9a1-8d031a6228ec"], Cell[216412, 5853, 943, 23, 70, "Output",ExpressionUUID->"80a45761-9501-4db1-94b8-839139ed4887"] }, Open ]], Cell[CellGroupData[{ Cell[217392, 5881, 434, 10, 30, "Input",ExpressionUUID->"7733ece7-a557-44a2-8592-6b55ead87d1b"], Cell[217829, 5893, 1035, 29, 70, "Output",ExpressionUUID->"4814fe54-42db-4908-a278-17e9455dc1b1"] }, Open ]], Cell[CellGroupData[{ Cell[218901, 5927, 579, 13, 30, "Input",ExpressionUUID->"84922bf5-486d-4e17-811d-7b513e3223bc"], Cell[219483, 5942, 257, 5, 70, "Output",ExpressionUUID->"713d5064-fdd8-4fa5-ba0e-be3709bf508b"] }, Open ]], Cell[CellGroupData[{ Cell[219777, 5952, 684, 16, 30, "Input",ExpressionUUID->"3aa457fb-e82d-483b-b48d-06427c90fb8a"], Cell[220464, 5970, 404, 7, 70, "Output",ExpressionUUID->"1aaee260-e763-4516-a810-259030f86f24"] }, Open ]], Cell[220883, 5980, 218, 4, 30, "Input",ExpressionUUID->"d34a6b3a-550f-4094-a24a-c42688e0c2e4"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[221150, 5990, 185, 3, 38, "Subsection",ExpressionUUID->"0f331b5e-6e36-47dd-bedb-e2fa682662d0"], Cell[221338, 5995, 2294, 65, 52, "Input",ExpressionUUID->"42f6af81-a907-4b08-b7ba-c95def7a8e98"], Cell[223635, 6062, 743, 19, 30, "Input",ExpressionUUID->"9fb6dd3c-293e-479f-bf07-a6d825198820"], Cell[224381, 6083, 1649, 45, 54, "Input",ExpressionUUID->"ef7b47f1-94b7-4944-bcf1-7ac74cad2f11"], Cell[CellGroupData[{ Cell[226055, 6132, 222, 4, 30, "Input",ExpressionUUID->"b681698c-5e29-411b-9ed5-44f2117aec63"], Cell[226280, 6138, 253, 5, 70, "Output",ExpressionUUID->"94971301-a0ba-4b93-9e16-d082b0181673"] }, Open ]], Cell[CellGroupData[{ Cell[226570, 6148, 384, 9, 30, "Input",ExpressionUUID->"19d8124c-749d-48b8-8edd-b43000218861"], Cell[226957, 6159, 780, 20, 70, "Output",ExpressionUUID->"dc81c3ce-1b57-45dc-9a83-3008210f2e63"] }, Open ]], Cell[CellGroupData[{ Cell[227774, 6184, 281, 6, 30, "Input",ExpressionUUID->"23844055-3fa8-4269-a399-cd1be8b1013c"], Cell[228058, 6192, 298, 6, 70, "Output",ExpressionUUID->"f443a3c1-886f-407a-ad82-279119adad87"] }, Open ]], Cell[CellGroupData[{ Cell[228393, 6203, 632, 16, 73, "Input",ExpressionUUID->"62d35477-4324-423c-bb16-145bf0ddbbdf"], Cell[229028, 6221, 302, 5, 70, "Output",ExpressionUUID->"d8dca772-f8ff-4267-a065-c5902191b7ba"], Cell[229333, 6228, 564, 15, 70, "Output",ExpressionUUID->"abdcb9de-084c-453c-ac9c-b1df1ea29c4c"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[229946, 6249, 944, 21, 65, "Subsection",ExpressionUUID->"5e1da141-f0de-429a-b605-7c18e9d150e1"], Cell[CellGroupData[{ Cell[230915, 6274, 4294, 110, 220, "Input",ExpressionUUID->"af7fdbbb-9536-4e03-a8ca-284b7559463d"], Cell[235212, 6386, 1039, 15, 34, "Output",ExpressionUUID->"c7b983ed-d673-4250-9254-11aba187411f"], Cell[236254, 6403, 1039, 15, 34, "Output",ExpressionUUID->"53758f77-93ad-4fad-8167-ae83e857942d"], Cell[CellGroupData[{ Cell[237318, 6422, 316, 6, 24, "Print",ExpressionUUID->"5832af1a-aa73-4d38-afd9-a2d3c47ea348"], Cell[237637, 6430, 1029, 15, 82, "Print",ExpressionUUID->"6c572d49-0261-4d1d-89af-7dfa8d4994e1"] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[238727, 6452, 713, 19, 65, "Subsection",ExpressionUUID->"9826164c-4999-44cf-8855-50112a2bb375"], Cell[CellGroupData[{ Cell[239465, 6475, 610, 9, 45, "Subsubsection",ExpressionUUID->"014c2bb7-5d92-4891-a44d-ec2fd623ddf2"], Cell[CellGroupData[{ Cell[240100, 6488, 3729, 105, 220, "Input",ExpressionUUID->"d57b14cf-c990-4d50-a40e-2c38177e5b18"], Cell[243832, 6595, 1061, 15, 34, "Output",ExpressionUUID->"5b3b6b97-c853-4869-9e0b-598ddadc40da"], Cell[244896, 6612, 1061, 15, 34, "Output",ExpressionUUID->"da356c12-66c3-4346-b54d-babcc708e7b0"], Cell[CellGroupData[{ Cell[245982, 6631, 338, 6, 24, "Print",ExpressionUUID->"79866f6a-d157-43e3-ac44-97e2c085e849"], Cell[246323, 6639, 1048, 15, 82, "Print",ExpressionUUID->"a42149c0-7a29-435e-aa0a-2a1a1136d369"] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[247432, 6661, 610, 9, 37, "Subsubsection",ExpressionUUID->"82168772-50d6-4407-8ff3-fe5f6cb44020"], Cell[CellGroupData[{ Cell[248067, 6674, 3685, 105, 220, "Input",ExpressionUUID->"27322ae2-dba3-4221-a72b-f0f433a25fb5"], Cell[251755, 6781, 1087, 16, 34, "Output",ExpressionUUID->"78919c92-7177-4598-862f-40ae2a0df6e4"], Cell[252845, 6799, 1089, 16, 34, "Output",ExpressionUUID->"fbcd4d5f-d1e9-4f44-87c2-4a7645f3ac5f"], Cell[CellGroupData[{ Cell[253959, 6819, 364, 6, 24, "Print",ExpressionUUID->"6499bfd2-8f12-49d2-bcb6-074042790655"], Cell[254326, 6827, 1073, 15, 82, "Print",ExpressionUUID->"4814ea3b-3490-44ff-bac9-4734fc5fadec"] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[255460, 6849, 610, 9, 37, "Subsubsection",ExpressionUUID->"df076dc4-24e0-44e1-9855-922d514b1a70"], Cell[CellGroupData[{ Cell[256095, 6862, 3685, 105, 220, "Input",ExpressionUUID->"f324c291-90b5-43a3-952c-0d381de26e48"], Cell[259783, 6969, 1112, 16, 34, "Output",ExpressionUUID->"761f2ee6-a7ef-47a6-9cb3-7ad9aab4a7ed"], Cell[260898, 6987, 1110, 16, 34, "Output",ExpressionUUID->"8628c6a1-4cca-407f-876f-6541e0cd6020"], Cell[CellGroupData[{ Cell[262033, 7007, 390, 7, 24, "Print",ExpressionUUID->"457030fd-4241-4a31-9444-e5d01365e782"], Cell[262426, 7016, 1090, 16, 82, "Print",ExpressionUUID->"b122c721-a105-4f3b-9df3-b2b470a1314c"] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[263577, 7039, 608, 9, 37, "Subsubsection",ExpressionUUID->"49d78bdb-8305-4677-b058-805c8014be13"], Cell[CellGroupData[{ Cell[264210, 7052, 3685, 105, 220, "Input",ExpressionUUID->"69ec148d-99a1-4f32-addd-c1b1d754a57e"], Cell[267898, 7159, 1165, 17, 34, "Output",ExpressionUUID->"3ade2c9b-4498-495d-8c34-a412f67c9a6c"], Cell[269066, 7178, 1165, 17, 34, "Output",ExpressionUUID->"14877ae3-b10f-41f9-b1d9-ee3b0ebd3bd0"], Cell[CellGroupData[{ Cell[270256, 7199, 436, 7, 24, "Print",ExpressionUUID->"3d472431-ba9f-4675-af7f-a3ef32f9a306"], Cell[270695, 7208, 1136, 16, 82, "Print",ExpressionUUID->"a526406d-66fe-4701-9def-c6cfd746e05e"] }, Open ]] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[271904, 7232, 929, 22, 81, "Subsection",ExpressionUUID->"f6fe2dfc-d930-457a-bfe7-9e26a4713594"], Cell[272836, 7256, 2480, 77, 140, "Input",ExpressionUUID->"3c91ee8d-1e0d-4b01-b416-af037a82dca4"], Cell[CellGroupData[{ Cell[275341, 7337, 766, 11, 45, "Subsubsection",ExpressionUUID->"b3afcda7-7f9d-47e5-8d29-0c165fd7adec"], Cell[CellGroupData[{ Cell[276132, 7352, 6121, 164, 283, "Input",ExpressionUUID->"aedd7584-304c-4ead-a785-00700e5bc81a"], Cell[282256, 7518, 400, 6, 34, "Output",ExpressionUUID->"50af1a72-fe4c-4f66-8316-cdb236f5e1a8"], Cell[CellGroupData[{ Cell[282681, 7528, 517, 12, 24, "Print",ExpressionUUID->"ec9b39c0-05cd-4f53-82cb-3d91673562da"], Cell[283201, 7542, 977, 15, 82, "Print",ExpressionUUID->"2b070ca4-b9ee-4b53-9c10-e103b03fdc64"] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[284239, 7564, 813, 12, 37, "Subsubsection",ExpressionUUID->"003fdaaa-6388-40ed-9c9d-2be81c48c42a"], Cell[CellGroupData[{ Cell[285077, 7580, 6172, 165, 283, "Input",ExpressionUUID->"5a4958cc-c559-48cd-843c-952a7b7949a5"], Cell[291252, 7747, 424, 7, 34, "Output",ExpressionUUID->"caab49ca-94bc-421a-94fb-818f12032259"], Cell[CellGroupData[{ Cell[291701, 7758, 540, 12, 24, "Print",ExpressionUUID->"c03fadc4-9ee3-46b7-8e86-e811b7c8ff70"], Cell[292244, 7772, 999, 15, 82, "Print",ExpressionUUID->"089652f7-dc71-4a8c-957d-7a7a39d6256b"] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[293304, 7794, 858, 12, 37, "Subsubsection",ExpressionUUID->"158d7ab2-130b-4bfb-a410-3c9a5811f06e"], Cell[CellGroupData[{ Cell[294187, 7810, 6221, 166, 283, "Input",ExpressionUUID->"77dfa4a7-1a92-4a8a-8712-4f04cefa616b"], Cell[300411, 7978, 448, 7, 34, "Output",ExpressionUUID->"c284659b-9a8f-4a17-bc5a-e3a7806e74cd"], Cell[CellGroupData[{ Cell[300884, 7989, 562, 12, 24, "Print",ExpressionUUID->"0d0bd95a-3894-4ace-919d-a61dff7e0ab4"], Cell[301449, 8003, 1018, 15, 82, "Print",ExpressionUUID->"404eb23c-caca-4541-9edb-c795d589ab5c"] }, Open ]] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[302540, 8026, 1192, 25, 81, "Subsection",ExpressionUUID->"c5619eb3-334a-44e7-8715-711fa8eb7354"], Cell[CellGroupData[{ Cell[303757, 8055, 152, 3, 45, "Subsubsection",ExpressionUUID->"f52734ea-13d2-4c2e-948b-b6149e5793ca"], Cell[CellGroupData[{ Cell[303934, 8062, 3856, 110, 224, "Input",ExpressionUUID->"b06bfedb-2a8b-466e-820d-a563f3583d9d"], Cell[307793, 8174, 1212, 17, 34, "Output",ExpressionUUID->"b5f6843f-26b2-4b6d-9e2a-87e26ce76a6c"], Cell[309008, 8193, 1212, 17, 34, "Output",ExpressionUUID->"ea026ce9-a9d4-42c7-8289-ae85f6a80f63"], Cell[CellGroupData[{ Cell[310245, 8214, 488, 8, 24, "Print",ExpressionUUID->"f648857d-8bee-4ccf-a5ba-26eeca1273fe"], Cell[310736, 8224, 1197, 17, 82, "Print",ExpressionUUID->"fe822974-6562-47b1-83c5-11de2b245306"] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[311994, 8248, 740, 11, 37, "Subsubsection",ExpressionUUID->"30fe30e6-0979-4d5e-a7cc-a43b3c8104c0"], Cell[CellGroupData[{ Cell[312759, 8263, 3849, 109, 224, "Input",ExpressionUUID->"4b77ce7a-8a6d-48c9-a892-0b5206ea856b"], Cell[316611, 8374, 1245, 18, 34, "Output",ExpressionUUID->"617161dd-6ede-4cee-9f67-e2c249f70746"], Cell[317859, 8394, 1243, 18, 34, "Output",ExpressionUUID->"914b7609-613e-475d-b678-362f840e34a3"], Cell[CellGroupData[{ Cell[319127, 8416, 513, 8, 24, "Print",ExpressionUUID->"e296f867-6ea1-4b70-93c7-733ce5a2b681"], Cell[319643, 8426, 1232, 17, 82, "Print",ExpressionUUID->"1757acdf-f645-4fb9-93d8-5dfda31deae0"] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[320936, 8450, 741, 11, 37, "Subsubsection",ExpressionUUID->"eb8af6e6-9d9a-4cb1-954d-f08d1b5e66d0"], Cell[CellGroupData[{ Cell[321702, 8465, 3849, 109, 224, "Input",ExpressionUUID->"a5f8c849-f1ca-4b1a-86ab-7be6fc3eb027"], Cell[325554, 8576, 1241, 18, 34, "Output",ExpressionUUID->"c9e94203-b00b-409c-913a-e81bb423920c"], Cell[326798, 8596, 1241, 18, 34, "Output",ExpressionUUID->"1f34d705-a61a-483b-8f0d-bbb80fdc6968"], Cell[CellGroupData[{ Cell[328064, 8618, 513, 8, 24, "Print",ExpressionUUID->"37082c96-ed68-464a-950e-119c02617a6e"], Cell[328580, 8628, 1213, 17, 82, "Print",ExpressionUUID->"f9d934f0-77f3-4f60-8420-04cc214a2826"] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[329854, 8652, 743, 11, 37, "Subsubsection",ExpressionUUID->"6c4e5144-66a6-4626-9f0b-56def5baae0e"], Cell[CellGroupData[{ Cell[330622, 8667, 3849, 109, 224, "Input",ExpressionUUID->"551925c2-6c25-4768-8a71-de23a4e6aeb6"], Cell[334474, 8778, 1267, 18, 34, "Output",ExpressionUUID->"83fc9146-7216-443e-b661-a3c20e22618d"], Cell[335744, 8798, 1267, 18, 34, "Output",ExpressionUUID->"c154f085-6660-40d9-8658-aca39c159529"], Cell[CellGroupData[{ Cell[337036, 8820, 539, 9, 24, "Print",ExpressionUUID->"456384f5-3a15-4dbf-9475-88b5fe217844"], Cell[337578, 8831, 1241, 18, 82, "Print",ExpressionUUID->"d2592bf7-07dd-4875-a396-c8e6f7d7fd0d"] }, Open ]] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[338892, 8857, 1239, 26, 81, "Subsection",ExpressionUUID->"53c4e60d-f20f-4baa-bf3a-2f74cfe16c9b"], Cell[CellGroupData[{ Cell[340156, 8887, 3983, 113, 224, "Input",ExpressionUUID->"59dab070-6295-4b75-a72e-095e8e7edec1"], Cell[344142, 9002, 1264, 18, 34, "Output",ExpressionUUID->"a8f8422f-a607-4f2e-b158-233ff2a96ff8"], Cell[345409, 9022, 1265, 18, 34, "Output",ExpressionUUID->"235a8525-3371-4f26-86ce-bda39489a5e0"], Cell[CellGroupData[{ Cell[346699, 9044, 539, 9, 24, "Print",ExpressionUUID->"ddf995f6-020e-49a3-b0f7-65606c6fddf9"], Cell[347241, 9055, 1257, 18, 82, "Print",ExpressionUUID->"1e731cc2-4db7-48d4-8022-5439fe770cd0"] }, Open ]] }, Open ]] }, Closed]] }, Open ]] }, Open ]] } ] *)