(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[   1554180,      38584]
NotebookOptionsPosition[   1430681,      36517]
NotebookOutlinePosition[   1431260,      36538]
CellTagsIndexPosition[   1431217,      36535]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["AdinkraTutorial.nb", "Title",
 CellChangeTimes->{{3.431643447359375*^9, 3.43164348528125*^9}, {
   3.4332803471875*^9, 3.4332803938125*^9}, {3.439841647921875*^9, 
   3.439841676265625*^9}, {3.4399946617855*^9, 3.43999466687925*^9}, {
   3.44088192175*^9, 3.440881923578125*^9}, {3.4423479416875*^9, 
   3.442347948953125*^9}, {3.442980454609375*^9, 3.442980483234375*^9}, {
   3.443704482140625*^9, 3.443704510671875*^9}, {3.443704683796875*^9, 
   3.443704691203125*^9}, {3.44372638084375*^9, 3.443726451640625*^9}, {
   3.45355300203125*^9, 3.453553002890625*^9}, {3.454246287921875*^9, 
   3.454246303546875*^9}, {3.454246379453125*^9, 3.4542464184375*^9}, {
   3.454246473484375*^9, 3.454246483109375*^9}, {3.4544147554375*^9, 
   3.454414815859375*^9}, {3.454852671*^9, 3.4548527046875*^9}, {
   3.454856728203125*^9, 3.45485673075*^9}, {3.454926202984375*^9, 
   3.454926295546875*^9}, {3.455015384*^9, 3.455015392609375*^9}, {
   3.455015444671875*^9, 3.455015446890625*^9}, {3.455015517421875*^9, 
   3.455015519890625*^9}, {3.4550155711875*^9, 3.455015606859375*^9}, {
   3.455016320453125*^9, 3.45501632865625*^9}, {3.455042848390625*^9, 
   3.455042857671875*^9}, {3.455043636234375*^9, 3.4550436771875*^9}, {
   3.511555277628312*^9, 3.5115553207117767`*^9}, {3.511625771375633*^9, 
   3.5116258752865763`*^9}, {3.5116411679872684`*^9, 3.511641221284317*^9}, {
   3.5199454008058896`*^9, 3.5199454666306543`*^9}, {3.5199455739987955`*^9, 
   3.519945622294558*^9}, {3.5206458956356697`*^9, 3.520645943704419*^9}, {
   3.523718893836775*^9, 3.523718923873493*^9}, {3.536715674278531*^9, 
   3.5367157073544226`*^9}, {3.53853389765368*^9, 3.538533899967812*^9}, {
   3.538942345864266*^9, 3.538942357964958*^9}, {3.5389474299050565`*^9, 
   3.538947485150216*^9}, {3.5390845827297893`*^9, 3.5390846106083837`*^9}, {
   3.53908510341057*^9, 3.5390851199535165`*^9}, {3.539086064745556*^9, 
   3.5390861577368746`*^9}, {3.5451459061807747`*^9, 3.545145907619857*^9}, {
   3.54514596135293*^9, 3.5451460262956448`*^9}, {3.548677365614721*^9, 
   3.548677420252846*^9}, {3.5486904482318554`*^9, 3.5486904831498528`*^9}, {
   3.5507964280028415`*^9, 3.550796434750227*^9}, {3.5516981864105062`*^9, 
   3.5516981873125577`*^9}, {3.5517063670611444`*^9, 3.551706375990655*^9}, {
   3.5517143798937216`*^9, 3.5517143832039113`*^9}, {3.5517286202182903`*^9, 
   3.5517286597495513`*^9}, {3.5517928905442033`*^9, 3.551792917464743*^9}, {
   3.5521354453831377`*^9, 3.5521354853424234`*^9}, {3.552135534200218*^9, 
   3.552135558024581*^9}, {3.5521356059203205`*^9, 3.552135681027616*^9}, {
   3.5521357231810274`*^9, 3.5521357548318377`*^9}, {3.55231422706569*^9, 
   3.5523142637937903`*^9}, {3.552314318528921*^9, 3.552314318928944*^9}, {
   3.552314384905718*^9, 3.552314430815344*^9}, {3.552314502398438*^9, 
   3.5523146413143835`*^9}, {3.552473196132519*^9, 3.5524732208799343`*^9}, 
   3.5528371122703466`*^9, 3.5528444571634464`*^9, {3.5528449407701073`*^9, 
   3.5528450003105125`*^9}, {3.552866910465884*^9, 3.5528670764143763`*^9}, {
   3.5528755049588575`*^9, 3.552875669883291*^9}, {3.5528757974815893`*^9, 
   3.5528759485802317`*^9}, {3.552876032727044*^9, 3.5528760646078677`*^9}, 
   3.5528770280839753`*^9, {3.552905728992181*^9, 3.5529057870398817`*^9}, {
   3.552924313800542*^9, 3.552924357451039*^9}, {3.5529244139042673`*^9, 
   3.5529245023153243`*^9}, {3.5529245516931486`*^9, 3.552924613397678*^9}, {
   3.552928164005761*^9, 3.552928186311037*^9}, {3.5529298153452125`*^9, 
   3.5529298409716783`*^9}, {3.5532932040039682`*^9, 
   3.5532932496185775`*^9}, {3.553293282659467*^9, 3.553293292302019*^9}, {
   3.553293383011207*^9, 3.553293411333827*^9}, {3.5532981370511494`*^9, 
   3.553298408108653*^9}, {3.553298441734576*^9, 3.5532987180763826`*^9}, {
   3.5532987757606816`*^9, 3.5532988306618223`*^9}, {3.5533029743948298`*^9, 
   3.5533030195604134`*^9}, {3.553306886924614*^9, 3.5533068932679768`*^9}, {
   3.553311679995762*^9, 3.553311730478649*^9}, {3.553311805864961*^9, 
   3.5533118710006866`*^9}, {3.5533120465167255`*^9, 3.553312046787741*^9}, {
   3.5533122428069525`*^9, 3.5533122428069525`*^9}, {3.553312319318329*^9, 
   3.553312332850103*^9}, {3.5533123656929817`*^9, 3.5533123938585925`*^9}, 
   3.5533125753399725`*^9, {3.5533162583976316`*^9, 3.5533162749975805`*^9}, 
   3.5533163117066803`*^9, {3.5533163518819785`*^9, 3.5533164029468994`*^9}, {
   3.553357870429034*^9, 3.55335793120451*^9}, {3.553360423158042*^9, 
   3.553360477275137*^9}, {3.5533605162343655`*^9, 3.553360605248457*^9}, {
   3.55336064149253*^9, 3.5533607117395477`*^9}, {3.553360769712864*^9, 
   3.553360790017025*^9}, {3.553360827712181*^9, 3.5533608685515165`*^9}, {
   3.5533609116069794`*^9, 3.553360984719161*^9}, {3.553361035631073*^9, 
   3.5533610708610888`*^9}, {3.5533611506446514`*^9, 3.553361152577762*^9}, {
   3.553361571282711*^9, 3.553361617443351*^9}, {3.553362021762477*^9, 
   3.5533621970635033`*^9}, {3.55336225609488*^9, 3.553362258462015*^9}, {
   3.553362402136233*^9, 3.5533624518330755`*^9}, {3.553362520950029*^9, 
   3.5533625853667135`*^9}, {3.5533635314808273`*^9, 
   3.5533635853299074`*^9}, {3.553363685328627*^9, 3.553363698002352*^9}, {
   3.553363909535451*^9, 3.5533639144157305`*^9}, 3.553364219200163*^9, 
   3.5533644938708735`*^9, {3.553364575184524*^9, 3.553364599654924*^9}, {
   3.55336466183048*^9, 3.5533646655966954`*^9}, {3.553365137488686*^9, 
   3.553365145141124*^9}, {3.5533656688530784`*^9, 3.5533657248882837`*^9}, 
   3.553366821643014*^9, {3.5533671012070045`*^9, 3.5533671132246914`*^9}, {
   3.553367256017859*^9, 3.5533672954111123`*^9}, {3.5533673936717324`*^9, 
   3.553367442797542*^9}, {3.553393155762641*^9, 3.5533933527619085`*^9}, {
   3.5533934025587573`*^9, 3.55339343250747*^9}, {3.553393466195397*^9, 
   3.5533934799451838`*^9}, {3.5533936057913814`*^9, 3.553393621924304*^9}, {
   3.5533936651637774`*^9, 3.553393696448567*^9}, {3.5533938357385335`*^9, 
   3.5533938415228643`*^9}, {3.55339396837212*^9, 3.553393970315231*^9}, {
   3.553394007223342*^9, 3.5533940655636787`*^9}, {3.5533948267242146`*^9, 
   3.553394871172757*^9}, 3.5533949827821407`*^9, {3.553395879210414*^9, 
   3.55339590415384*^9}, {3.5533960192464232`*^9, 3.553396052167306*^9}, {
   3.5534453110074387`*^9, 3.5534453210730143`*^9}, {3.5543978769816384`*^9, 
   3.5543979153068304`*^9}, {3.5543979522839456`*^9, 3.554398051165597*^9}, {
   3.559413579039064*^9, 3.559414031602949*^9}, {3.5594140643608227`*^9, 
   3.559414824354292*^9}, {3.5594148673047485`*^9, 3.5594148697598886`*^9}, 
   3.559434854871258*^9, {3.5594361459001007`*^9, 3.5594361488202677`*^9}, {
   3.5594362074236193`*^9, 3.5594362074236193`*^9}, {3.5594413332417994`*^9, 
   3.559441339224142*^9}, {3.5594800125024767`*^9, 3.5594800206869445`*^9}, 
   3.55949611087125*^9, {3.5594961446901846`*^9, 3.5594963728392344`*^9}, {
   3.5594967272045026`*^9, 3.559496732893828*^9}, {3.559496827283227*^9, 
   3.559496972989561*^9}, {3.559498343667959*^9, 3.5594984776456223`*^9}, {
   3.5594985619584446`*^9, 3.5594986885086827`*^9}, {3.559504207814369*^9, 
   3.5595043347686305`*^9}, {3.5610849081423254`*^9, 3.561084919991003*^9}, {
   3.674997609869558*^9, 3.6749976403446026`*^9}, {3.7095691177887754`*^9, 
   3.7095692232638083`*^9}, {3.709569416628868*^9, 3.709569447700645*^9}, {
   3.709570025775709*^9, 3.7095700822929416`*^9}, {3.7095701212661705`*^9, 
   3.7095701302756863`*^9}, {3.7095701635905914`*^9, 
   3.7095701953544083`*^9}, {3.709570238234861*^9, 3.7095703996370926`*^9}, {
   3.7095705169488025`*^9, 3.709570536260907*^9}, {3.709570570671875*^9, 
   3.7095707000022726`*^9}, {3.7095707414556437`*^9, 3.709570911927394*^9}, {
   3.7095709420471168`*^9, 3.7095709556628957`*^9}, {3.709571091599671*^9, 
   3.7095711396634197`*^9}, {3.7095711775595875`*^9, 3.709571198140764*^9}, {
   3.709573470067711*^9, 3.7095735804760265`*^9}, {3.70957367197526*^9, 
   3.709573673761362*^9}, {3.709575309022894*^9, 3.7095753967389107`*^9}, {
   3.7108085535310116`*^9, 3.710808698160284*^9}, {3.7117169877149534`*^9, 
   3.71171700584299*^9}, {3.711843921222666*^9, 3.711843950188323*^9}, {
   3.7120954091535835`*^9, 3.712095410524662*^9}, {3.737153557144597*^9, 
   3.7371535573632975`*^9}, {3.737153660538913*^9, 3.737153677384055*^9}, {
   3.737289276440363*^9, 3.7372892764413633`*^9}, {3.7379791370084977`*^9, 
   3.7379791561145906`*^9}, {3.7379792255395613`*^9, 3.737979267044935*^9}, {
   3.738580160531347*^9, 3.7385801752121863`*^9}, {3.7422187903728733`*^9, 
   3.742218794232212*^9}, {3.74239600783539*^9, 3.742396031273322*^9}, {
   3.742396076391885*^9, 3.7423960771785297`*^9}, {3.74244271196679*^9, 
   3.74244273700751*^9}, {3.742443757095769*^9, 3.742443769730857*^9}, {
   3.7474009412101183`*^9, 
   3.7474009449538765`*^9}},ExpressionUUID->"dfab12f3-523a-4891-ab6d-\
6353bcfa0aa5"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"$RecursionLimit", "=", "Infinity"}]], "Input",
 CellLabel->"In[1]:=",ExpressionUUID->"65e9b759-d921-4a12-9e52-b3e8b17f8777"],

Cell[BoxData["\[Infinity]"], "Output",
 CellChangeTimes->{
  3.75000980146104*^9, 3.750013814734825*^9, 3.7500138991313705`*^9, 
   3.750013955464712*^9, 3.750017992642973*^9, 3.7500183270220547`*^9, 
   3.7501575184969435`*^9, 3.7503401677111044`*^9, 3.750375395139457*^9, {
   3.750375531335409*^9, 3.7503755526374416`*^9}, 3.750375767846264*^9, 
   3.750376418753233*^9, 3.7503767284595356`*^9, 3.750377366066451*^9, 
   3.750377518685463*^9, 3.7503775713806267`*^9, 3.750377994341915*^9, 
   3.7506852649086094`*^9, 3.752425226183292*^9, 3.7525149478152847`*^9, 
   3.752519673386527*^9, 3.7525197282480564`*^9, 3.7525200520073175`*^9, 
   3.752520461359535*^9, 3.752520511125148*^9, 3.7525206938160768`*^9, 
   3.752586920158411*^9, 3.7525871649052706`*^9, 3.7525874602936306`*^9, 
   3.7525884157214108`*^9, 3.7525888345725064`*^9, 3.7525900270455775`*^9, 
   3.7539142033886743`*^9, 3.7543340494756317`*^9, 3.80183114238756*^9},
 CellLabel->"Out[1]=",ExpressionUUID->"94531f8a-ae4d-4329-af14-c1d84e0c4401"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Import Adinkra.wl", "Section",
 CellChangeTimes->{{3.7108088373262444`*^9, 3.7108088416734924`*^9}, {
  3.742443794211779*^9, 3.7424437981540127`*^9}, {3.742447582747436*^9, 
  3.742447583928364*^9}},ExpressionUUID->"8ce62cfa-2467-4484-bfab-\
5a2bb7149ea5"],

Cell[BoxData[
 RowBox[{"<<", "Adinkra`"}]], "Input",
 CellChangeTimes->{{3.742443803362287*^9, 3.742443804715487*^9}, {
  3.742446558681669*^9, 3.742446563370216*^9}, {3.801831144669129*^9, 
  3.801831146847103*^9}},
 CellLabel->"In[2]:=",ExpressionUUID->"3ce86a4c-e50b-42b6-b6ba-cfca0898781a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BuildDate", "[", "Adinkra", "]"}]], "Input",
 CellChangeTimes->{{3.746549445600609*^9, 3.746549448047648*^9}},
 CellLabel->"In[3]:=",ExpressionUUID->"335154d1-1580-4631-8a3e-4170890b8e5c"],

Cell[BoxData["200622"], "Output",
 CellChangeTimes->{
  3.750003189196753*^9, 3.7500098016448317`*^9, 3.750013814908918*^9, 
   3.75001389921817*^9, 3.750013955565403*^9, 3.7500179927402325`*^9, 
   3.750018331921175*^9, 3.7501575186621485`*^9, 3.750340167867319*^9, 
   3.750375395294075*^9, {3.7503755315168867`*^9, 3.750375552798994*^9}, 
   3.7503757680556803`*^9, 3.750376418895879*^9, 3.750376728596168*^9, 
   3.750377366258939*^9, 3.750377518843042*^9, 3.750377571592062*^9, 
   3.7503779945404234`*^9, 3.7506852650941105`*^9, 3.752425233016388*^9, 
   3.752514947948928*^9, 3.7525196735692577`*^9, 3.7525197283786964`*^9, 
   3.752520052204206*^9, 3.752520461494176*^9, 3.7525205112508554`*^9, 
   3.752520694045436*^9, {3.752586924711528*^9, 3.752586934194687*^9}, 
   3.7525871650227795`*^9, 3.7525874604261837`*^9, 3.7525884159278603`*^9, 
   3.7525888347989383`*^9, 3.7525900272108307`*^9, 3.7539142355958705`*^9, 
   3.754334049631844*^9, 3.8018311510506077`*^9},
 CellLabel->"Out[3]=",ExpressionUUID->"480d4191-e11f-43fb-8ae4-177f54b34482"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Function Lists", "Subsection",
 CellChangeTimes->{{3.746556066750236*^9, 
  3.746556069037942*^9}},ExpressionUUID->"9032bd95-7de1-4377-8cd7-\
b7fd291e0e1f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FunctionList", "[", "SpaceTime", "]"}]], "Input",
 CellChangeTimes->{{3.7113871307973413`*^9, 3.7113871345915585`*^9}, {
   3.737153856684306*^9, 3.7371538843584447`*^9}, 3.737153921314643*^9, 
   3.74240099428962*^9},
 CellLabel->"In[4]:=",ExpressionUUID->"433cc145-fb86-450b-9648-f7c5cbb57d74"],

Cell[BoxData["\<\"IndexRange[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***********************************\
*****************************************************\"\>"], "Output",
 CellChangeTimes->{
  3.750009801786179*^9, 3.7500138149342546`*^9, 3.7500138992479305`*^9, 
   3.7500139555887327`*^9, 3.7500179927804065`*^9, 3.750018331968354*^9, 
   3.7501575186974063`*^9, 3.7503401679141855`*^9, 3.7503753953349686`*^9, {
   3.7503755315618215`*^9, 3.75037555284092*^9}, 3.750375768112529*^9, 
   3.750376418950735*^9, 3.7503767292444353`*^9, 3.75037736628088*^9, 
   3.750377518871966*^9, 3.750377571621002*^9, 3.75037799457335*^9, 
   3.750685265138276*^9, 3.752425239693218*^9, 3.75251494798088*^9, 
   3.752519673586209*^9, 3.7525197283966484`*^9, 3.752520052225191*^9, 
   3.752520461518112*^9, 3.7525205112688055`*^9, 3.752520694062445*^9, {
   3.7525869247929115`*^9, 3.75258693421083*^9}, 3.75258716505398*^9, 
   3.7525874604666224`*^9, 3.7525884159926853`*^9, 3.752588834853798*^9, 
   3.752590027253207*^9, 3.7539142502379885`*^9, {3.7543340444270935`*^9, 
   3.754334049647436*^9}, 3.801831155053858*^9},
 CellLabel->"Out[4]=",ExpressionUUID->"ca6577bc-cb1f-4f6f-8a0c-550e1483944e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FunctionList", "[", "GenerateLandR", "]"}]], "Input",
 CellChangeTimes->{{3.711385162397755*^9, 3.711385168130083*^9}, 
   3.737162730827726*^9, 3.742400996260387*^9},
 CellLabel->"In[5]:=",ExpressionUUID->"5ab02646-7eb8-4bc6-9cc6-8c4ac39583d4"],

Cell[BoxData["\<\"NColors[D,Phi,Psi], LTable[DColor,Phi,Psi], \
RTable[DColor,Phi,Psi],GenerateLandR[DColor,Phi,Psi,Rep]\\n\\n****************\
************************************************************************\\n***\
******************************************************************************\
*******\"\>"], "Output",
 CellChangeTimes->{
  3.750009801905787*^9, 3.7500138149466596`*^9, 3.750013899264798*^9, 
   3.750013955600634*^9, 3.7500179928017387`*^9, 3.7500183319975586`*^9, 
   3.7501575187151823`*^9, 3.750340167929804*^9, 3.750375395352887*^9, {
   3.7503755315857334`*^9, 3.750375552859831*^9}, 3.7503757681394634`*^9, 
   3.7503764189746404`*^9, 3.7503767292683716`*^9, 3.7503773662908525`*^9, 
   3.750377518884977*^9, 3.7503775716329217`*^9, 3.7503779945873213`*^9, 
   3.750685265154149*^9, 3.752425239757814*^9, 3.75251494801182*^9, 
   3.752519673609151*^9, 3.7525197284126034`*^9, 3.75252005225607*^9, 
   3.7525204615370607`*^9, 3.7525205112847676`*^9, 3.752520694094326*^9, {
   3.752586924827161*^9, 3.752586934247032*^9}, 3.7525871650696373`*^9, 
   3.7525874604822693`*^9, 3.752588416012754*^9, 3.7525888348776903`*^9, 
   3.7525900272736697`*^9, 3.7539142502692013`*^9, 3.754334049663089*^9, 
   3.8018311551366796`*^9},
 CellLabel->"Out[5]=",ExpressionUUID->"5f5fe19b-7d45-4c60-b34b-c2941dbce154"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FunctionList", "[", "AdinkraEssentials", "]"}]], "Input",
 CellChangeTimes->{{3.7108090604950085`*^9, 3.710809067253395*^9}},
 CellLabel->"In[6]:=",ExpressionUUID->"f2152041-3457-4816-9e34-ccfb12c93d8a"],

Cell[BoxData["\<\"IndexRange[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*****************************************\
***********************************************\"\>"], "Output",
 CellChangeTimes->{
  3.750009801970381*^9, 3.7500138149615355`*^9, 3.7500138992806654`*^9, 
   3.7500139556205807`*^9, 3.75001799282302*^9, 3.7500183320129957`*^9, 
   3.750157518735022*^9, 3.7503401679453945`*^9, 3.7503753953708725`*^9, {
   3.750375531604685*^9, 3.750375552882778*^9}, 3.750375768162423*^9, 
   3.7503764189956193`*^9, 3.750376729290313*^9, 3.7503773663008275`*^9, 
   3.7503775188979397`*^9, 3.750377571644926*^9, 3.750377994601222*^9, 
   3.750685265169029*^9, 3.75242523978398*^9, 3.7525149480337396`*^9, 
   3.7525196736261096`*^9, 3.752519728428563*^9, 3.7525200522711067`*^9, 
   3.7525204615699744`*^9, 3.752520511300723*^9, 3.752520694110281*^9, {
   3.7525869248533316`*^9, 3.752586934279681*^9}, 3.7525871650852227`*^9, 
   3.7525874604978805`*^9, 3.7525884160537853`*^9, 3.7525888349046583`*^9, 
   3.7525900272757683`*^9, 3.7539142502692013`*^9, 3.754334049663089*^9, 
   3.80183115514515*^9},
 CellLabel->"Out[6]=",ExpressionUUID->"0b92f844-b7ac-46ef-8807-7be25d09706d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FunctionList", "[", "BasisDecomposition", "]"}]], "Input",
 CellChangeTimes->{{3.7108090693605156`*^9, 3.710809079103073*^9}, {
   3.738580277883059*^9, 3.738580278195077*^9}, 3.7465494655188327`*^9},
 CellLabel->"In[7]:=",ExpressionUUID->"cd131f93-6eb8-4ba3-b71c-6c9265945b1e"],

Cell[BoxData["\<\"IndexRange[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************************************\
****************************************************\"\>"], "Output",
 CellChangeTimes->{
  3.7500098020361147`*^9, 3.7500138149783974`*^9, 3.7500138992925706`*^9, 
   3.750013955629508*^9, 3.7500179928493567`*^9, 3.7500183320347586`*^9, 
   3.750157518760458*^9, 3.750340167976637*^9, 3.7503753953927803`*^9, {
   3.750375531625595*^9, 3.750375552900722*^9}, 3.7503757681883574`*^9, 
   3.7503764190195208`*^9, 3.75037672931326*^9, 3.7503773663098125`*^9, 
   3.750377518910918*^9, 3.7503775716568923`*^9, 3.7503779946161823`*^9, 
   3.750685265185398*^9, 3.752425239838821*^9, 3.752514948063665*^9, 
   3.7525196736430597`*^9, 3.7525197284455175`*^9, 3.7525200522900515`*^9, 
   3.7525204615849333`*^9, 3.752520511316683*^9, 3.7525206941302643`*^9, {
   3.7525869248689504`*^9, 3.752586934304495*^9}, 3.7525871651184587`*^9, 
   3.7525874605291185`*^9, 3.7525884160737314`*^9, 3.752588834925612*^9, 
   3.7525900273070145`*^9, 3.7539142502848067`*^9, 3.754334049678707*^9, 
   3.8018311552089233`*^9},
 CellLabel->"Out[7]=",ExpressionUUID->"606f7da8-6e35-4af0-aa7e-2a34b3472cfd"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FunctionList", "[", "BC4Tools", "]"}]], "Input",
 CellChangeTimes->{{3.7108090693605156`*^9, 3.710809079103073*^9}, {
  3.738580277883059*^9, 3.738580278195077*^9}, {3.7423962019662447`*^9, 
  3.742396207751975*^9}},
 CellLabel->"In[8]:=",ExpressionUUID->"5cf8981a-5985-4a6c-861a-8b771458a158"],

Cell[BoxData["\<\"\\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***************************************\
*************************************************\"\>"], "Output",
 CellChangeTimes->{
  3.75000980210111*^9, 3.7500138149947767`*^9, 3.750013899313898*^9, 
   3.7500139556484213`*^9, 3.750017992871176*^9, 3.750018332065054*^9, 
   3.7501575187807837`*^9, 3.7503401679922633`*^9, 3.750375395415719*^9, {
   3.750375531645573*^9, 3.7503755529206696`*^9}, 3.75037576821329*^9, 
   3.7503764190464487`*^9, 3.75037672933619*^9, 3.750377366320773*^9, 
   3.7503775189228287`*^9, 3.7503775716698236`*^9, 3.7503779946302032`*^9, 
   3.750685265204742*^9, 3.752425239888069*^9, 3.752514948089549*^9, 
   3.7525196736599607`*^9, 3.752519728461475*^9, 3.752520052318905*^9, 
   3.7525204616038823`*^9, 3.7525205113316393`*^9, 3.7525206941561956`*^9, {
   3.7525869249088345`*^9, 3.752586934320157*^9}, 3.7525871651395087`*^9, 
   3.7525874605447397`*^9, 3.7525884161098127`*^9, 3.7525888349555674`*^9, 
   3.752590027322673*^9, 3.7539142503004117`*^9, 3.75433404969433*^9, 
   3.801831155219853*^9},
 CellLabel->"Out[8]=",ExpressionUUID->"26b8f369-9ec3-4975-9c55-fc64c978d117"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FunctionList", "[", "GraphingTools", "]"}]], "Input",
 CellChangeTimes->{{3.7108090693605156`*^9, 3.710809079103073*^9}, {
  3.738580277883059*^9, 3.738580278195077*^9}, {3.7423962019662447`*^9, 
  3.742396232829598*^9}},
 CellLabel->"In[9]:=",ExpressionUUID->"8a453f50-9c25-4910-84fc-5bfae4aaeae8"],

Cell[BoxData["\<\"IndexRange[GraphingTools][list]\\n\\n AdinkraGreen, \
AdinkraViolet, AdinkraOrange, AdinkraRed, padLmatrix[L], \
adjacencyToEdge[mat,col], buildrules[list], Valise, GraphAdinkra[Rep], \
GraphAdinkra[Rep,BuildRules[list], \
ExportAdinkra[Rep,BuildRules[list],filename]\\n\\n****************************\
************************************************************\\n***************\
*************************************************************************\"\>\
"], "Output",
 CellChangeTimes->{
  3.750009802500476*^9, 3.7500138150111*^9, 3.7500138993262973`*^9, 
   3.750013955664786*^9, 3.7500179928954735`*^9, 3.7500183320838623`*^9, 
   3.750157518800626*^9, 3.750340168007908*^9, 3.750375395433671*^9, {
   3.750375531664525*^9, 3.7503755529416122`*^9}, 3.750375768238224*^9, 
   3.750376419617952*^9, 3.750376729363118*^9, 3.75037736632975*^9, 
   3.750377518936838*^9, 3.750377571685807*^9, 3.7503779946471367`*^9, 
   3.7506852652210875`*^9, 3.752425239939026*^9, 3.752514948112524*^9, 
   3.7525196736769605`*^9, 3.7525197284784293`*^9, 3.7525200523348913`*^9, 
   3.752520461636795*^9, 3.752520511347597*^9, 3.752520694176916*^9, {
   3.752586924933112*^9, 3.752586934343094*^9}, 3.7525871651551676`*^9, 
   3.7525874605603557`*^9, 3.752588416134202*^9, 3.7525888349868526`*^9, 
   3.752590027338292*^9, 3.7539142503004117`*^9, 3.75433404969433*^9, 
   3.801831155277253*^9},
 CellLabel->"Out[9]=",ExpressionUUID->"e0ada7c4-e2db-404e-86e1-c72835753860"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FunctionList", "[", "Adinkra", "]"}]], "Input",
 CellChangeTimes->{{3.7424465936653976`*^9, 3.742446599983512*^9}},
 CellLabel->"In[10]:=",ExpressionUUID->"157db393-0dff-4169-adae-289b23a3d1a9"],

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[Rep], \
GraphAdinkra[Rep,BuildRules[list], \
ExportAdinkra[Rep,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.7501575188215227`*^9, 3.750340168039153*^9, 
   3.7503753954526205`*^9, {3.750375531686447*^9, 3.7503755529615936`*^9}, 
   3.750375768264124*^9, 3.7503764196398926`*^9, 3.7503767293890715`*^9, 
   3.7503773663397207`*^9, 3.750377518948786*^9, 3.750377571702735*^9, 
   3.7503779946630898`*^9, 3.750685265233983*^9, 3.752425239986079*^9, 
   3.7525149481414127`*^9, 3.7525196736938677`*^9, 3.7525197284963818`*^9, 
   3.752520052353868*^9, 3.752520461651754*^9, 3.7525205113635545`*^9, 
   3.7525206942038417`*^9, {3.7525869249628134`*^9, 3.752586934363202*^9}, 
   3.752587165170752*^9, 3.7525874605759697`*^9, 3.7525884161571417`*^9, 
   3.752588835011074*^9, 3.7525900273539147`*^9, 3.753914250316063*^9, 
   3.7543340497099547`*^9, 3.801831155286995*^9},
 CellLabel->"Out[10]=",ExpressionUUID->"3fec9b9b-331a-4e20-ba11-7baa52acb098"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Introduction to some of these functions", "Subsection",
 CellChangeTimes->{{3.750007903453146*^9, 
  3.750007917274867*^9}},ExpressionUUID->"d2a6411a-95d2-4892-9744-\
45cbf8b5fc2e"],

Cell[CellGroupData[{

Cell["Within FunctionList[SpaceTime]", "Subsubsection",
 CellChangeTimes->{{3.7500079523883343`*^9, 
  3.750007982323703*^9}},ExpressionUUID->"6d43e65b-1220-4dd0-ac77-\
fbe7c15c929c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{" ", 
  RowBox[{"\[Eta]", "[", 
   RowBox[{"1", ",", "1"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.750003335953824*^9, 3.750003350132477*^9}},
 CellLabel->"In[11]:=",ExpressionUUID->"696619bb-4bda-4abd-a3d7-6c21086107ae"],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{{3.750003343025764*^9, 3.7500033508829517`*^9}, 
   3.750009802862823*^9, 3.75001381504631*^9, 3.750013899363499*^9, 
   3.750013955696086*^9, 3.7500179929415627`*^9, {3.7500183321349883`*^9, 
   3.75001835178246*^9}, 3.750157518845323*^9, 3.7503401680547748`*^9, 
   3.750375395471613*^9, {3.750375531705413*^9, 3.7503755529845285`*^9}, 
   3.7503757682920485`*^9, 3.750376419665824*^9, 3.750376729416974*^9, 
   3.7503773663516903`*^9, 3.7503775189617386`*^9, 3.750377571716712*^9, 
   3.7503779946780186`*^9, 3.7506852652538233`*^9, 3.7524252400330143`*^9, 
   3.752514948165385*^9, 3.7525196737118225`*^9, 3.7525197285143337`*^9, 
   3.7525200523737955`*^9, 3.7525204616717014`*^9, 3.7525205113785377`*^9, 
   3.7525206942277355`*^9, {3.7525869249850807`*^9, 3.7525869343988266`*^9}, 
   3.752587165189828*^9, 3.7525874605915937`*^9, 3.7525884161930447`*^9, 
   3.752588835060896*^9, 3.7525900273695655`*^9, 3.753914250316063*^9, 
   3.8018311618663473`*^9},
 CellLabel->"Out[11]=",ExpressionUUID->"7690b538-749c-43b8-a877-72a3e2556d37"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["Cmetric"], "Input",
 CellChangeTimes->{{3.750003357600115*^9, 3.750003358566908*^9}},
 CellLabel->"In[12]:=",ExpressionUUID->"da336974-8655-41e2-a289-74fb778d736c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", 
     RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", 
     RowBox[{"-", "1"}], ",", "0"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.750003365689596*^9, 3.750009802939212*^9, 3.750013815078054*^9, 
   3.7500138993758984`*^9, 3.7500139557158766`*^9, 3.7500179929638824`*^9, {
   3.750018332165206*^9, 3.7500183518988466`*^9}, 3.7501575188740916`*^9, 
   3.750340168086319*^9, 3.750375395491563*^9, {3.750375531726327*^9, 
   3.750375553004445*^9}, 3.750375768314019*^9, 3.75037641968777*^9, 
   3.7503767294399433`*^9, 3.7503773663616624`*^9, 3.750377518974719*^9, 
   3.7503775717316575`*^9, 3.750377994694973*^9, 3.7506852652687025`*^9, 
   3.752425240066082*^9, 3.752514948195306*^9, 3.7525196737298193`*^9, 
   3.752519728531288*^9, 3.752520052399719*^9, 3.752520461703616*^9, 
   3.7525205113944755`*^9, 3.752520694244728*^9, {3.75258692499885*^9, 
   3.7525869344144855`*^9}, 3.7525871652087803`*^9, 3.75258746060723*^9, 
   3.7525884162148633`*^9, 3.752588835081374*^9, 3.7525900274008017`*^9, 
   3.7539142503316793`*^9, 3.8018311619540977`*^9},
 CellLabel->"Out[12]=",ExpressionUUID->"aa2e85ca-ecf5-4fef-8540-115eed6be654"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Lap", "[", 
  RowBox[{"SomeField", "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.7500034669181023`*^9, 3.750003479050886*^9}},
 CellLabel->"In[13]:=",ExpressionUUID->"61551fc0-f96c-4eff-a43f-a97ce806d229"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["SomeField", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
  RowBox[{
   SuperscriptBox["SomeField", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
  RowBox[{
   SuperscriptBox["SomeField", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
  RowBox[{
   SuperscriptBox["SomeField", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output",
 CellChangeTimes->{
  3.750003488229455*^9, 3.750009803018718*^9, 3.7500138151365843`*^9, 
   3.75001389939882*^9, 3.7500139557327404`*^9, 3.750017992986738*^9, {
   3.7500183321830654`*^9, 3.7500183519211645`*^9}, 3.7501575189375515`*^9, 
   3.750340168101942*^9, 3.750375395563324*^9, {3.75037553174531*^9, 
   3.7503755530253887`*^9}, 3.750375768338923*^9, 3.750376419709677*^9, 
   3.750376729467882*^9, 3.7503773663756285`*^9, 3.7503775189886513`*^9, 
   3.750377571745674*^9, 3.7503779947119412`*^9, 3.750685265302696*^9, 
   3.75242524010464*^9, 3.752514948224227*^9, 3.75251967375497*^9, 
   3.7525197285552254`*^9, 3.7525200524226227`*^9, 3.75252046172057*^9, 
   3.7525205114113965`*^9, 3.752520694270265*^9, {3.75258692501451*^9, 
   3.7525869344300747`*^9}, 3.752587165217142*^9, 3.7525874606384573`*^9, 
   3.7525884162350707`*^9, 3.7525888351027527`*^9, 3.752590027416399*^9, 
   3.7539142503472767`*^9, 3.8018311620230713`*^9},
 CellLabel->"Out[13]=",ExpressionUUID->"4280837b-91ff-4818-b23a-557868b4694b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Lap", "[", 
  RowBox[{
   RowBox[{"A", "[", "2", "]"}], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.7500035060951433`*^9, 3.750003529986573*^9}, {
  3.7500035602709618`*^9, 3.7500035666779737`*^9}},
 CellLabel->"In[14]:=",ExpressionUUID->"a623415f-9142-4544-adfe-1e00582a4797"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox[
    RowBox[{"A", "[", "2", "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"A", "[", "2", "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"A", "[", "2", "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"A", "[", "2", "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output",
 CellChangeTimes->{{3.750003537354557*^9, 3.750003567032598*^9}, 
   3.750009803085595*^9, 3.750013815158944*^9, 3.750013899410226*^9, 
   3.7500139557446423`*^9, 3.7500179930120573`*^9, {3.7500183322049456`*^9, 
   3.75001835194501*^9}, 3.750157518964362*^9, 3.75034016813321*^9, 
   3.7503753955823183`*^9, {3.7503755323097973`*^9, 3.750375553047329*^9}, 
   3.750375768362888*^9, 3.750376419732647*^9, 3.7503767294937677`*^9, 
   3.7503773663875947`*^9, 3.7503775190016184`*^9, 3.75037757176061*^9, 
   3.750377994731873*^9, 3.750685265320287*^9, 3.752425240152581*^9, 
   3.752514948246206*^9, 3.7525196737759123`*^9, 3.7525197285761685`*^9, 
   3.7525200524386196`*^9, 3.752520461737526*^9, 3.75252051142739*^9, 
   3.7525206942872205`*^9, {3.752586925030137*^9, 3.752586934474908*^9}, 
   3.7525871652469015`*^9, 3.75258746065409*^9, 3.752588416256015*^9, 
   3.7525888351246524`*^9, 3.752590027432023*^9, 3.7539142503629274`*^9, 
   3.801831162033272*^9},
 CellLabel->"Out[14]=",ExpressionUUID->"1a53403d-efb7-4e2b-be78-777baabe3f3c"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Within FunctionList[AdinkraEssentials]", "Subsubsection",
 CellChangeTimes->{{3.7500079523883343`*^9, 3.750007982323703*^9}, {
  3.750375799279215*^9, 
  3.750375803055151*^9}},ExpressionUUID->"9e6f5328-f24c-43bd-9942-\
c8f1da8f8655"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"IndexRange", "[", "AdinkraEssentials", "]"}], "[", "ReportLevel", 
  "]"}]], "Input",
 CellChangeTimes->{{3.7503756086626616`*^9, 3.750375645171093*^9}, {
  3.7503757778285875`*^9, 3.750375781507756*^9}},
 CellLabel->"In[15]:=",ExpressionUUID->"5fb3bfd5-b3f1-4920-94ac-b5a0e529a661"],

Cell[BoxData["\<\"1, 2, 3, 4, 5, 6, 7, 8\"\>"], "Output",
 CellChangeTimes->{{3.7503756176127295`*^9, 3.7503756456637745`*^9}, {
   3.750375768386795*^9, 3.750375782018355*^9}, 3.7503764197545867`*^9, 
   3.750376729610488*^9, 3.750377366396571*^9, 3.7503775190146165`*^9, 
   3.7503775717745743`*^9, 3.750377994748828*^9, 3.7506852653366575`*^9, 
   3.752425240204514*^9, 3.7525149482671585`*^9, 3.752519673793867*^9, 
   3.7525197285941205`*^9, 3.752520052469499*^9, 3.7525204617525234`*^9, 
   3.7525205114443045`*^9, 3.7525206943031874`*^9, {3.7525869250457535`*^9, 
   3.7525869344938946`*^9}, 3.752587165781597*^9, 3.7525874606697006`*^9, 
   3.752588416276959*^9, 3.7525888351466293`*^9, 3.7525900274476433`*^9, 
   3.7539142503629274`*^9, 3.8018311621022453`*^9},
 CellLabel->"Out[15]=",ExpressionUUID->"6c3dce2a-c4a1-4d07-b876-c20dffa3e92c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FunctionList", "[", "AdinkraEssentials", "]"}]], "Input",
 CellChangeTimes->{{3.750375653396105*^9, 3.750375660115147*^9}},
 CellLabel->"In[16]:=",ExpressionUUID->"d3176023-b48b-47c7-a647-5e2098481ea2"],

Cell[BoxData["\<\"IndexRange[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*****************************************\
***********************************************\"\>"], "Output",
 CellChangeTimes->{
  3.750375660705533*^9, 3.7503757684137545`*^9, 3.75037641977853*^9, 
   3.7503767296364317`*^9, 3.750377366405547*^9, 3.750377519027564*^9, 
   3.7503775717934923`*^9, 3.7503779947637873`*^9, 3.7506852653515344`*^9, 
   3.752425240252656*^9, 3.752514948286109*^9, 3.7525196738107758`*^9, 
   3.7525197286111193`*^9, 3.7525200524854927`*^9, 3.752520461767445*^9, 
   3.752520511461256*^9, 3.75252069431817*^9, {3.7525869250770087`*^9, 
   3.7525869345130053`*^9}, 3.7525871658128376`*^9, 3.7525874612771053`*^9, 
   3.7525884162969055`*^9, 3.752588835166541*^9, 3.7525900274632635`*^9, 
   3.753914250378519*^9, 3.801831162108882*^9},
 CellLabel->"Out[16]=",ExpressionUUID->"2a75d620-bd8e-4dea-bb4f-8efaeed2a04c"]
}, Open  ]]
}, Open  ]]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["N=4, Various Representations",
 FontColor->RGBColor[
  0.7607843137254902, 0.29411764705882354`, 0.08235294117647059]]], "Section",\

 CellChangeTimes->{{3.742396291909527*^9, 3.742396293325151*^9}, 
   3.7465271510659533`*^9, {3.7465558866745725`*^9, 3.7465558889163904`*^9}, {
   3.7473986994427776`*^9, 3.7473987070024285`*^9}, {3.747398886490423*^9, 
   3.747398887962513*^9}},ExpressionUUID->"447f1ce8-877b-4368-9754-\
63eb8153e296"],

Cell[CellGroupData[{

Cell["\<\
ONshellCM,  and a non-adinkraic representation to test catches\
\>", "Subsection",
 CellChangeTimes->{{3.74655544533514*^9, 3.7465554816347265`*^9}, 
   3.747075227449226*^9, 
   3.750018291755823*^9},ExpressionUUID->"2756e45b-4ebc-4d30-977b-\
f2a5395a9f5a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"L", "[", "OnShellCM", "]"}], " ", "=", 
  RowBox[{"{", 
   RowBox[{
    TagBox[
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {"1", "0", "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", "1", "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", "1", "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", "1"},
        {"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$]]]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.7390120862723722`*^9, 3.739012089346548*^9}, {
  3.742396382604764*^9, 3.74239639818524*^9}, {3.742396431011025*^9, 
  3.742396449582019*^9}},
 CellLabel->"In[17]:=",ExpressionUUID->"7fbb4825-1a12-4f37-bed9-5073449fde59"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "0", ",", 
       RowBox[{"-", "1"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", 
       RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.750004234654961*^9, {3.750009809053625*^9, 3.7500098138758307`*^9}, 
   3.750013842699332*^9, 3.7500138994280825`*^9, 3.750013955763033*^9, 
   3.750017816913121*^9, 3.7500179930358467`*^9, 3.750018355950646*^9, 
   3.7501575189891677`*^9, 3.7503401775090513`*^9, 3.7503753956022205`*^9, 
   3.7503758135580435`*^9, 3.7503764413807907`*^9, 3.750376729662318*^9, 
   3.7503775262901344`*^9, 3.7503775797412457`*^9, {3.7503779947817707`*^9, 
   3.7503780065821943`*^9}, 3.750685265373967*^9, 3.752426543762229*^9, 
   3.752514953017888*^9, 3.7525197363722377`*^9, 3.752520052519366*^9, 
   3.7525204617873917`*^9, 3.752520511481244*^9, 3.752520694337099*^9, 
   3.752520782018092*^9, 3.7525869384658003`*^9, 3.752587165828498*^9, 
   3.752588421673788*^9, 3.752588835187992*^9, 3.7525900379067535`*^9, 
   3.753914250394144*^9, 3.8018311767432957`*^9},
 CellLabel->"Out[17]=",ExpressionUUID->"901de45f-c111-42a5-92ba-b42969d8c086"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"R", "[", "OnShellCM", "]"}], " ", "=", " ", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"Transpose", "[", 
     RowBox[{
      RowBox[{"L", "[", "OnShellCM", "]"}], "[", 
      RowBox[{"[", "Ii", "]"}], "]"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"Ii", ",", "1", ",", "4"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.742396821447927*^9, 3.742396851488645*^9}},
 CellLabel->"In[18]:=",ExpressionUUID->"98deace6-d4d3-4214-8b04-3585778e7b5a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", 
       RowBox[{"-", "1"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", 
       RowBox[{"-", "1"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "0"}], "}"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.750004263664543*^9, {3.750009809224574*^9, 3.7500098139886713`*^9}, 
   3.750013842827757*^9, 3.75001389944693*^9, 3.7500139557818413`*^9, 
   3.7500178170336494`*^9, 3.7500179930591154`*^9, 3.7500183560027895`*^9, 
   3.7501575190134296`*^9, 3.7503401775871325`*^9, 3.750375395623164*^9, 
   3.7503758136318436`*^9, 3.750376441477485*^9, 3.7503767296872888`*^9, 
   3.7503775265115423`*^9, 3.7503775798360276`*^9, {3.7503779947977314`*^9, 
   3.750378006696888*^9}, 3.750685265388344*^9, 3.752426543847714*^9, 
   3.7525149531291666`*^9, 3.752519736460047*^9, 3.7525200525413074`*^9, 
   3.7525204618053436`*^9, 3.75252051150121*^9, 3.752520694356037*^9, 
   3.752520782069017*^9, 3.7525869385949326`*^9, 3.752587165864998*^9, 
   3.7525884217346263`*^9, 3.7525888352139416`*^9, 3.752590037953657*^9, 
   3.7539142504097614`*^9, 3.8018311769450083`*^9},
 CellLabel->"Out[18]=",ExpressionUUID->"fe70ecec-5fe6-49f1-aecf-40ccd921123d"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"L", "[", "ID", "]"}], " ", "=", " ", 
   RowBox[{"L", "[", "OnShellCM", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"R", "[", "ID", "]"}], " ", "=", " ", 
   RowBox[{"L", "[", "Q", "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.74242789839351*^9, 3.742427919886945*^9}},
 CellLabel->"In[19]:=",ExpressionUUID->"1f0f9057-f9e2-46dd-b919-369b6d7e310e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GenerateAdinkraData", "[", "OnShellCM", "]"}]], "Input",
 CellChangeTimes->{{3.7525149678893876`*^9, 3.7525149759805064`*^9}},
 CellLabel->"In[21]:=",ExpressionUUID->"76df3058-4335-4fdf-a614-46ade077bf55"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    21, 1, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7539142504410048`*^9, 3.8018311770580473`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"415c2bd0-f9bd-44c5-a5c1-bec324c6d3a9"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    21, 2, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7539142504410048`*^9, 3.801831177075279*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"9a4fedfb-7409-4e50-ad01-e377791aae3d"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    21, 3, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7539142504410048`*^9, 3.801831177170576*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"307cf318-fdff-495c-a29e-2068e47a08f5"],

Cell[BoxData[
 TemplateBox[{
  "General", "stop", 
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Solve\\\", \\\"::\\\", \
\\\"svars\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"", 2, 21, 4, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7539142504410048`*^9, 3.8018311771782627`*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"82e6ca68-5358-4145-a4b3-7d70326e7933"],

Cell[BoxData["\<\"chi0, ncis, ntrans, VPM[pm], VtildePM[pm], L, R, GALR, \
GARL, V, Vtilde, ZetaGen, Holoraumy[Rep], Monodromy[Rep], ZetatildeGen, \
Holoraumytilde[Rep], Monodromytilde[Rep], cSoln[V], cSoln[Vtilde] are loaded \
for Rep = OnShellCM\"\>"], "Print",
 CellChangeTimes->{3.7525149769565973`*^9, 3.752519736497952*^9, 
  3.75252005267301*^9, 3.7525204619369926`*^9, 3.752520512122999*^9, 
  3.752520694496848*^9, 3.7525207821474123`*^9, 3.7525869387171183`*^9, 
  3.7525871660154147`*^9, 3.752588421832364*^9, 3.7525888353157473`*^9, 
  3.752590038031525*^9, 3.753914250472246*^9, 3.801831177193346*^9},
 CellLabel->
  "During evaluation of \
In[21]:=",ExpressionUUID->"9e9abd7c-29c1-4577-8ce5-113cab078e59"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GenerateCoeffs", "[", "OnShellCM", "]"}]], "Input",
 CellChangeTimes->{{3.752515005048765*^9, 3.7525150104285045`*^9}},
 CellLabel->"In[22]:=",ExpressionUUID->"d71f570e-2eb5-4252-9972-5c4de2e692ed"],

Cell[BoxData[
 RowBox[{"{", "\<\"GARLCoeffs, VtildeCoeffs, VtildePMCoeffs and \
CMessage[Rep][mi,si] are loaded for Rep = OnShellCM\"\>", "}"}]], "Output",
 CellChangeTimes->{3.7525150124269533`*^9, 3.752519739171055*^9, 
  3.752520056244007*^9, 3.7525201101622953`*^9, 3.7525204620197706`*^9, 
  3.7525205121678777`*^9, 3.7525206945157704`*^9, 3.752520782170373*^9, 
  3.7525869387327814`*^9, 3.752587166173684*^9, 3.7525884218543053`*^9, 
  3.752588835337723*^9, 3.7525900380557566`*^9, 3.753914250487899*^9, 
  3.801831177284115*^9},
 CellLabel->"Out[22]=",ExpressionUUID->"fb2a403c-2240-43f7-ba0e-81d1d5069329"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintAllGARL", "[", "OnShellCM", "]"}]], "Input",
 CellChangeTimes->{{3.75258854199996*^9, 3.7525885496689425`*^9}},
 CellLabel->"In[23]:=",ExpressionUUID->"d3611cb2-5214-411e-b6d2-21ace8d49aa2"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"2", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "2"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "1", "0", "0"},
       {"1", "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", 
        RowBox[{"-", "1"}], "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"},
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0"},
       {"0", "2", "0", "0"},
       {"0", "0", "2", "0"},
       {"0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"},
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0"},
       {"0", "2", "0", "0"},
       {"0", "0", "2", "0"},
       {"0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", 
        RowBox[{"-", "1"}], "0", "0"},
       {
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", "0", "0", "1"},
       {"0", "0", "1", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"2", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "2"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{3.752588550109933*^9, 3.752588835482566*^9, 
  3.7525900588603363`*^9, 3.7539142505035152`*^9, 3.8018311773789577`*^9},
 CellLabel->"Out[23]=",ExpressionUUID->"31d0c13e-223a-488e-933c-325c9b656f6e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintGARLBasis", "[", "OnShellCM", "]"}], "[", 
  RowBox[{"1", ",", "1"}], "]"}]], "Input",
 CellChangeTimes->{{3.7525884374242067`*^9, 3.7525884801881447`*^9}},
 CellLabel->"In[24]:=",ExpressionUUID->"eedb2992-f3a3-4b78-90cf-8162f292bb4d"],

Cell[BoxData[
 RowBox[{
  SubscriptBox["\<\"I\"\>", "4"], "+", 
  RowBox[{
   SubscriptBox["\[Alpha]", "1"], " ", 
   SubscriptBox["\[Beta]", "1"]}]}]], "Output",
 CellChangeTimes->{{3.7525884549246054`*^9, 3.7525884807841773`*^9}, 
   3.752590062043197*^9, 3.7539142505191097`*^9, 3.80183117738943*^9},
 CellLabel->"Out[24]=",ExpressionUUID->"30bbde84-c062-4c87-b537-cbeb4c5fb0c3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintGARLBasis", "[", "OnShellCM", "]"}], "[", 
  RowBox[{"3", ",", "3"}], "]"}]], "Input",
 CellChangeTimes->{{3.7525900676730723`*^9, 3.75259009575495*^9}},
 CellLabel->"In[25]:=",ExpressionUUID->"da3fa3e8-10d9-496d-8b41-9d1bd6d6f3e4"],

Cell[BoxData[
 RowBox[{
  SubscriptBox["\<\"I\"\>", "4"], "-", 
  RowBox[{
   SubscriptBox["\[Alpha]", "1"], " ", 
   SubscriptBox["\[Beta]", "1"]}]}]], "Output",
 CellChangeTimes->{{3.752590076474223*^9, 3.752590096535793*^9}, 
   3.7539142505347304`*^9, 3.801831177485099*^9},
 CellLabel->"Out[25]=",ExpressionUUID->"34e57293-c49c-44ea-9e4d-ebabc1756f2b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintAllVtilde", "[", "OnShellCM", "]"}]], "Input",
 CellChangeTimes->{{3.752515027615687*^9, 3.7525150383956947`*^9}},
 CellLabel->"In[26]:=",ExpressionUUID->"a8dbf69d-8668-4000-99c7-e5cf67acd0ec"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", 
        RowBox[{"-", 
         FractionBox["\[ImaginaryI]", "2"]}], "0", "0"},
       {
        FractionBox["\[ImaginaryI]", "2"], "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", 
         FractionBox["\[ImaginaryI]", "2"]}]},
       {"0", "0", 
        FractionBox["\[ImaginaryI]", "2"], "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", 
        RowBox[{"-", 
         FractionBox["\[ImaginaryI]", "2"]}], "0"},
       {"0", "0", "0", 
        FractionBox["\[ImaginaryI]", "2"]},
       {
        FractionBox["\[ImaginaryI]", "2"], "0", "0", "0"},
       {"0", 
        RowBox[{"-", 
         FractionBox["\[ImaginaryI]", "2"]}], "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", 
        RowBox[{"-", "\[ImaginaryI]"}]},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"\[ImaginaryI]", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0"},
       {"0", "0", 
        RowBox[{"-", "\[ImaginaryI]"}], "0"},
       {"0", "\[ImaginaryI]", "0", "0"},
       {"0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", 
        FractionBox["\[ImaginaryI]", "2"], "0"},
       {"0", "0", "0", 
        RowBox[{"-", 
         FractionBox["\[ImaginaryI]", "2"]}]},
       {
        RowBox[{"-", 
         FractionBox["\[ImaginaryI]", "2"]}], "0", "0", "0"},
       {"0", 
        FractionBox["\[ImaginaryI]", "2"], "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", 
        RowBox[{"-", 
         FractionBox["\[ImaginaryI]", "2"]}], "0", "0"},
       {
        FractionBox["\[ImaginaryI]", "2"], "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", 
         FractionBox["\[ImaginaryI]", "2"]}]},
       {"0", "0", 
        FractionBox["\[ImaginaryI]", "2"], "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{{3.7525150356306515`*^9, 3.7525150387029653`*^9}, 
   3.752519760426504*^9, 3.7525201125021453`*^9, 3.7525204620457015`*^9, 
   3.7525205123264647`*^9, 3.7525206945387125`*^9, 3.7525207821943254`*^9, 
   3.7525869387483683`*^9, 3.752587166203888*^9, 3.752588421888216*^9, 
   3.7525901094389124`*^9, 3.7539142505503597`*^9, 3.801831177494142*^9},
 CellLabel->"Out[26]=",ExpressionUUID->"956dad1f-02c1-4f2e-ab99-39af59da437e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintVtildeBasis", "[", "OnShellCM", "]"}], "[", 
  RowBox[{"3", ",", "4"}], "]"}]], "Input",
 CellChangeTimes->{{3.752515039752596*^9, 3.752515060044013*^9}},
 CellLabel->"In[27]:=",ExpressionUUID->"d09c85f4-6ba8-4b46-9d85-f56926d19f6b"],

Cell[BoxData[
 FractionBox[
  SubscriptBox["\[Alpha]", "2"], "2"]], "Output",
 CellChangeTimes->{{3.752515045878479*^9, 3.7525150603269157`*^9}, 
   3.7525197660534673`*^9, 3.752520114945059*^9, 3.752520462063654*^9, 
   3.752520512348363*^9, 3.7525206945566244`*^9, 3.752520782215212*^9, 
   3.752586938779643*^9, 3.752587166244788*^9, 3.7525884219270964`*^9, 
   3.7525901155083466`*^9, 3.753914250565976*^9, 3.801831177589423*^9},
 CellLabel->"Out[27]=",ExpressionUUID->"89d8b357-fd2d-4a01-b97e-2dbbfdc4184d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintRBasis", "[", "OnShellCM", "]"}], "[", "1", "]"}]], "Input",
 CellChangeTimes->{{3.7525197689793234`*^9, 3.7525197738244066`*^9}, {
  3.752520121353429*^9, 3.7525201529368553`*^9}, {3.752520730466034*^9, 
  3.752520746994523*^9}},
 CellLabel->"In[28]:=",ExpressionUUID->"cf9a005e-b4e4-4310-9334-5d8d4c1526d1"],

Cell[BoxData["\<\"\\!\\(\\*SubscriptBox[\\(R\\), \\(I\\)]\\) are not 4n x 4n \
square matrices\"\>"], "Output",
 CellChangeTimes->{
  3.7525197742559185`*^9, {3.7525201172680473`*^9, 3.7525201538494215`*^9}, {
   3.752520706091405*^9, 3.7525207473281183`*^9}, 3.7525207822431784`*^9, 
   3.752586938799255*^9, 3.752587166269972*^9, 3.752588421954589*^9, 
   3.7525901155744724`*^9, 3.753914250581621*^9, 3.801831177597406*^9},
 CellLabel->"Out[28]=",ExpressionUUID->"50813578-b58f-4476-a3e7-aba44de0a822"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"GALR", "[", "OnShellCM", "]"}], "[", 
  RowBox[{"[", 
   RowBox[{"1", ",", "1"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.7525869428223877`*^9, 3.752586956188757*^9}},
 CellLabel->"In[29]:=",ExpressionUUID->"1649ae08-c940-490d-91c1-4192a30f875a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"2", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "2"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.752586949622515*^9, 3.752586956561534*^9}, 
   3.752587166301275*^9, 3.7525884219894958`*^9, 3.75259011560365*^9, 
   3.753914250581621*^9, 3.8018311776945868`*^9},
 CellLabel->"Out[29]=",ExpressionUUID->"db380cff-8d47-42bd-8652-4b7b6f1e8859"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintGALR", "[", "OnShellCM", "]"}], "[", 
  RowBox[{"1", ",", "1"}], "]"}]], "Input",
 CellChangeTimes->{{3.7525869574899645`*^9, 3.7525869645620165`*^9}},
 CellLabel->"In[30]:=",ExpressionUUID->"a942ae6b-e71b-4e79-b4c0-7562136856cb"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"2", "0"},
     {"0", "2"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.75258696492194*^9, 3.752587166337024*^9, 
  3.752588422010439*^9, 3.752590115665985*^9, 3.7539142505972166`*^9, 
  3.8018311777089853`*^9},
 CellLabel->
  "Out[30]//MatrixForm=",ExpressionUUID->"2c06ca26-91e2-454f-b178-\
9b177bc033ef"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintAllGALR", "[", "OnShellCM", "]"}]], "Input",
 CellChangeTimes->{{3.7525869667966995`*^9, 3.7525869767800493`*^9}},
 CellLabel->"In[31]:=",ExpressionUUID->"e42cefe2-cd7b-4151-9ec6-67f4b0d7f1f8"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"2", "0"},
       {"0", "2"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0"},
       {"0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0"},
       {"0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0"},
       {"0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"2", "0"},
       {"0", "2"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0"},
       {"0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0"},
       {"0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"2", "0"},
       {"0", "2"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0"},
       {"0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"2", "0"},
       {"0", "2"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{3.7525869777354217`*^9, 3.752587166361021*^9, 
  3.7525884220543213`*^9, 3.7525901156955166`*^9, 3.753914250612869*^9, 
  3.8018311778067503`*^9},
 CellLabel->"Out[31]=",ExpressionUUID->"6cdec395-f67f-4ebc-852d-4a5210f659c8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintAllGARL", "[", "OnShellCM", "]"}]], "Input",
 CellChangeTimes->{{3.7525869834558063`*^9, 3.752586984522726*^9}},
 CellLabel->"In[32]:=",ExpressionUUID->"4d7353e0-d4da-44cf-afe2-7b8a75984f2e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"2", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "2"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "1", "0", "0"},
       {"1", "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", 
        RowBox[{"-", "1"}], "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"},
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0"},
       {"0", "2", "0", "0"},
       {"0", "0", "2", "0"},
       {"0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"},
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0"},
       {"0", "2", "0", "0"},
       {"0", "0", "2", "0"},
       {"0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", 
        RowBox[{"-", "1"}], "0", "0"},
       {
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", "0", "0", "1"},
       {"0", "0", "1", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"2", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "2"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{3.752586985427557*^9, 3.7525871692561407`*^9, 
  3.7525884220812497`*^9, 3.75259011573216*^9, 3.7539142506285057`*^9, 
  3.801831177934732*^9},
 CellLabel->"Out[32]=",ExpressionUUID->"277463b2-0fd3-452e-b83b-eee2c481252e"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Q: a base representation built in to Adinkra.m\n",
 Cell[BoxData[{
  RowBox[{
   RowBox[{
    SuperscriptBox[
     SubscriptBox[
      RowBox[{"(", 
       SubscriptBox["Q", "I"], ")"}], "i"], 
     OverscriptBox["j", "^"]], "=", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"(", ")"}], ",", " ", 
      RowBox[{
       RowBox[{"(", 
        OverscriptBox["13", "_"], ")"}], 
       RowBox[{"(", "12", ")"}], 
       RowBox[{"(", "34", ")"}]}], ",", " ", 
      RowBox[{
       RowBox[{"(", 
        OverscriptBox["14", "_"], ")"}], 
       RowBox[{"(", "13", ")"}], 
       RowBox[{"(", "24", ")"}]}], ",", " ", 
      RowBox[{
       RowBox[{"(", 
        OverscriptBox["12", "_"], ")"}], 
       RowBox[{"(", "14", ")"}], 
       RowBox[{"(", "23", ")"}]}]}], "}"}]}], " "}], "\[IndentingNewLine]", 
  RowBox[{"            ", 
   RowBox[{"=", " ", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"I", ",", " ", 
       RowBox[{
        RowBox[{"-", "i"}], " ", 
        SuperscriptBox["\[Alpha]", "2"]}], ",", " ", 
       RowBox[{
        RowBox[{"-", "i"}], " ", 
        SuperscriptBox["\[Alpha]", "3"]}], ",", " ", 
       RowBox[{
        RowBox[{"-", "i"}], " ", 
        SuperscriptBox["\[Alpha]", "1"]}]}], "}"}], " ", "=", " ", 
     RowBox[{"{", 
      RowBox[{"I", ",", " ", "i", ",", " ", "j", ",", " ", "k"}], 
      "}"}]}]}]}]}], "Subsection",ExpressionUUID->
  "ad30510b-ea62-4202-bd6a-1071a4541a59"]
}], "Subsection",
 CellChangeTimes->{{3.6751650493689566`*^9, 3.6751650495564604`*^9}, 
   3.7470763507210283`*^9, {3.7499945955805492`*^9, 3.749994606179023*^9}, {
   3.7499978617741537`*^9, 3.749998015880698*^9}, {3.749998096887281*^9, 
   3.7499981194490137`*^9}},ExpressionUUID->"a6fbfda7-d918-417e-b169-\
ab83862e364c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintAllL", "[", "Q", "]"}]], "Input",
 CellChangeTimes->{{3.7470769531413164`*^9, 3.747076957814863*^9}, {
  3.74707698913101*^9, 3.747076989488611*^9}},
 CellLabel->"In[33]:=",ExpressionUUID->"b4572ed4-6db3-4a7b-8bba-aaeb9cc16c14"],

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}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   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}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   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}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   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}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{
  3.750004412600779*^9, 3.750009822427411*^9, 3.7500138429507647`*^9, 
   3.7500138995397983`*^9, 3.750013955883093*^9, 3.750017817150747*^9, 
   3.7500179931424427`*^9, 3.750018356042469*^9, 3.7501575190838614`*^9, 
   3.750340177634025*^9, 3.750375819274781*^9, 3.7503764415223956`*^9, 
   3.750376729735123*^9, 3.750377526541462*^9, 3.750377579864915*^9, {
   3.7503779948236275`*^9, 3.750378006726839*^9}, 3.7506852654200907`*^9, 
   3.752425293817677*^9, 3.75242654391406*^9, {3.7525207564710045`*^9, 
   3.7525207822611246`*^9}, 3.752587034995582*^9, 3.7525871693498325`*^9, 
   3.752588707616145*^9, 3.7525888445361853`*^9, 3.752590131526477*^9, 
   3.753914250644107*^9, 3.801831178038505*^9},
 CellLabel->"Out[33]=",ExpressionUUID->"c6ed2cc9-73aa-4229-b9e4-acda87e7633e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"MatrixPower", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"L", "[", "Q", "]"}], "[", 
     RowBox[{"[", "2", "]"}], "]"}], ",", "2"}], "]"}], "//", 
  "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.750004470213832*^9, 3.750004491140377*^9}, {
  3.75000453740804*^9, 3.750004572293253*^9}},
 CellLabel->"In[34]:=",ExpressionUUID->"9d493756-fe06-4e7e-b279-fe5c62586558"],

Cell[BoxData[
 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}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.7500044749433317`*^9, 3.750004491892324*^9}, {
   3.750004555893762*^9, 3.7500045760578623`*^9}, 3.750009822503901*^9, 
   3.7500138429964314`*^9, 3.7500138995695934`*^9, 3.7500139558984704`*^9, 
   3.750017817183483*^9, 3.7500179931692266`*^9, 3.7500183560657835`*^9, 
   3.7501575191141586`*^9, 3.750340177649619*^9, 3.750375819336625*^9, 
   3.7503764415483108`*^9, 3.750376729777043*^9, 3.750377526569388*^9, 
   3.7503775798818703`*^9, {3.7503779948385873`*^9, 3.750378006743802*^9}, 
   3.750685265438441*^9, 3.752425498600215*^9, 3.752426543962429*^9, {
   3.75252075653051*^9, 3.7525207822820816`*^9}, 3.7525870351079297`*^9, 
   3.752587169381113*^9, 3.752588707672962*^9, 3.7525888446030483`*^9, 
   3.7525901315890107`*^9, 3.753914250644107*^9, 3.80183117804663*^9},
 CellLabel->
  "Out[34]//MatrixForm=",ExpressionUUID->"58570f84-a55b-47f0-8f80-\
1edd13d11f3a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"L", "[", "Q", "]"}], "[", 
    RowBox[{"[", "3", "]"}], "]"}], ".", 
   RowBox[{"(", 
    RowBox[{"-", 
     RowBox[{"Transpose", "[", 
      RowBox[{
       RowBox[{"L", "[", "Q", "]"}], "[", 
       RowBox[{"[", "3", "]"}], "]"}], "]"}]}], ")"}]}], "//", 
  "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.7524255906243553`*^9, 3.752425644625807*^9}},
 CellLabel->"In[35]:=",ExpressionUUID->"acc2aa95-6259-4832-a3a2-8d5503b233c5"],

Cell[BoxData[
 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}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.752425609219927*^9, 3.752425645326622*^9}, 
   3.75242654401011*^9, {3.75252075655945*^9, 3.7525207823150244`*^9}, 
   3.752587035139916*^9, 3.7525871694206347`*^9, 3.7525887077014685`*^9, 
   3.7525888446259828`*^9, 3.7525901316188765`*^9, 3.753914250659703*^9, 
   3.8018311781359587`*^9},
 CellLabel->
  "Out[35]//MatrixForm=",ExpressionUUID->"086d3a7f-1179-4e7e-8cad-\
896cb6a378c8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"L", "[", "Q", "]"}], "[", 
    RowBox[{"[", "3", "]"}], "]"}], ".", 
   RowBox[{
    RowBox[{"L", "[", "Q", "]"}], "[", 
    RowBox[{"[", "2", "]"}], "]"}]}], "\[Equal]", " ", 
  RowBox[{"-", 
   RowBox[{
    RowBox[{"L", "[", "Q", "]"}], "[", 
    RowBox[{"[", "4", "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.750004675057474*^9, 3.7500046844144287`*^9}, {
  3.750004738486369*^9, 3.750004792570808*^9}},
 CellLabel->"In[36]:=",ExpressionUUID->"8e08800c-8170-4b40-a3ad-9416071d21ca"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{{3.750004767140394*^9, 3.7500047966987257`*^9}, 
   3.7500098226053267`*^9, 3.750013843024659*^9, 3.7500138996146946`*^9, 
   3.750013955925748*^9, 3.750017817231059*^9, 3.750017993886423*^9, 
   3.750018356116932*^9, 3.7501575191999917`*^9, 3.7503401776964817`*^9, 
   3.7503758193854737`*^9, 3.750376441602152*^9, 3.7503767330901556`*^9, 
   3.750377526608286*^9, 3.7503775799128017`*^9, {3.750377994869505*^9, 
   3.7503780067747145`*^9}, 3.7506852655256915`*^9, 3.752425671549412*^9, 
   3.752426544059902*^9, {3.7525207565813313`*^9, 3.7525207823329315`*^9}, 
   3.7525870351663656`*^9, 3.7525871694493937`*^9, 3.752588707734345*^9, 
   3.752588844654499*^9, 3.752590131631752*^9, 3.7539142506753564`*^9, 
   3.801831178145658*^9},
 CellLabel->"Out[36]=",ExpressionUUID->"07586e17-d238-44f6-ab19-c6238986dad9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintAllL", "[", "Q", "]"}]], "Input",
 CellChangeTimes->{{3.7500048108473387`*^9, 3.750004813508547*^9}},
 CellLabel->"In[37]:=",ExpressionUUID->"62ea11d1-bad6-4718-9398-e7ae2e763f69"],

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}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   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}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   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}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   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}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{
  3.750004814151713*^9, 3.750009822655109*^9, 3.7500138430450974`*^9, 
   3.7500138996280856`*^9, 3.7500139559495564`*^9, 3.750017817250897*^9, 
   3.7500179939156866`*^9, 3.75001835613623*^9, 3.7501575192268696`*^9, 
   3.7503401777277527`*^9, 3.750375819411421*^9, 3.7503764416301117`*^9, 
   3.750376733127083*^9, 3.7503775266232452`*^9, 3.750377579927747*^9, {
   3.7503779948864603`*^9, 3.750378006792631*^9}, 3.7506852655440454`*^9, 
   3.7524256779970922`*^9, 3.752426544114128*^9, {3.752520756598319*^9, 
   3.752520782361874*^9}, 3.7525870351913385`*^9, 3.7525871694820824`*^9, 
   3.752588707765259*^9, 3.752588844690405*^9, 3.7525901316630325`*^9, 
   3.753914250690975*^9, 3.8018311782208014`*^9},
 CellLabel->"Out[37]=",ExpressionUUID->"d36df617-66ab-4ac1-9a0c-0bbbbeffca40"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GraphAdinkra", "[", "Q", "]"}]], "Input",
 CellChangeTimes->{{3.7470757027520566`*^9, 3.747075713489316*^9}, {
   3.747076080474271*^9, 3.747076088664357*^9}, {3.747076124916252*^9, 
   3.747076126624976*^9}, 3.747076359338893*^9},
 CellLabel->"In[38]:=",ExpressionUUID->"3c86b485-8d62-483d-be31-c4dab6af2292"],

Cell[BoxData[
 GraphicsBox[{
   {Hue[0.6, 0.7, 0.5], Opacity[0.7], 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {-1.5, -2.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {-0.5, -2.}}]}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {0.5, -2.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {1.5, -2.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -2.}, {-0.5, -1.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -2.}, {0.5, -1.}}]}}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{-0.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-0.5, -2.}, {0.5, -1.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     LineBox[{{-0.5, -2.}, {1.5, -1.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     LineBox[{{0.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{0.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{0.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{1.5, -2.}, {-0.5, -1.}}]}}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     LineBox[{{1.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{1.5, -2.}, {1.5, -1.}}]}}, 
   {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 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.}]}},
  FormatType->TraditionalForm,
  FrameTicks->None]], "Output",
 CellChangeTimes->{
  3.75000441943544*^9, 3.750009822719098*^9, 3.750013843142807*^9, 
   3.7500138996826468`*^9, 3.750013956002629*^9, 3.7500178172841296`*^9, 
   3.7500179939866524`*^9, 3.750018356233446*^9, 3.7501575192953157`*^9, 
   3.7503401778214526`*^9, 3.750375819488189*^9, 3.7503764417118587`*^9, 
   3.750376733232774*^9, 3.7503775266401987`*^9, 3.750377579994568*^9, {
   3.750377994941344*^9, 3.7503780068155975`*^9}, 3.7506852656110773`*^9, 
   3.752425681458396*^9, 3.752426544161915*^9, {3.7525207566890984`*^9, 
   3.752520782389781*^9}, 3.752587035269489*^9, 3.752587169544568*^9, 
   3.7525887078663025`*^9, 3.752588844810047*^9, 3.7525901317775908`*^9, 
   3.7539142507378387`*^9, 3.801831178369461*^9},
 CellLabel->"Out[38]=",ExpressionUUID->"d47d751f-6c66-4f83-9eee-a69a4964d09d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GraphAdinkra", "[", 
  RowBox[{"Q", ",", 
   RowBox[{"buildrules", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", "8", "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"5", ",", "6", ",", "7"}], "}"}]}], "}"}], "]"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.75000982374405*^9, 3.7500098810736427`*^9}, {
  3.750009968452538*^9, 3.7500101252655497`*^9}, {3.750010913225862*^9, 
  3.750010924576037*^9}},
 CellLabel->"In[39]:=",ExpressionUUID->"030d1ca8-0a9a-4411-8d56-0700f74f5b28"],

Cell[BoxData[
 GraphicsBox[{
   {Hue[0.6, 0.7, 0.5], Opacity[0.7], 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{-1.5, -2.}, {-1., -3.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     LineBox[{{-1.5, -2.}, {0., -3.}}]}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     LineBox[{{-1.5, -2.}, {1., -3.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     LineBox[{{-1.5, -2.}, {0., -1.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1., -3.}, {-0.5, -2.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1., -3.}, {0.5, -2.}}]}}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1., -3.}, {1.5, -2.}}]}}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{0., -3.}, {-0.5, -2.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{0., -3.}, {0.5, -2.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     LineBox[{{0., -3.}, {1.5, -2.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     LineBox[{{1., -3.}, {-0.5, -2.}}]}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{1., -3.}, {0.5, -2.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{1., -3.}, {1.5, -2.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{0., -1.}, {-0.5, -2.}}]}}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     LineBox[{{0., -1.}, {0.5, -2.}}]}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{0., -1.}, {1.5, -2.}}]}}, 
   {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 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, -2.}], 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., -3.}], 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., -3.}], 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], {1., -3.}], 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], {0., -1.}], 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, -2.}], 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, -2.}], 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, -2.}]}},
  FormatType->TraditionalForm,
  FrameTicks->None]], "Output",
 CellChangeTimes->{{3.750010043957746*^9, 3.750010125738082*^9}, 
   3.7500109256012707`*^9, 3.750013843197367*^9, 3.750013899713892*^9, 
   3.7500139560368567`*^9, 3.750017817315444*^9, 3.750017994039687*^9, 
   3.7500183563098326`*^9, 3.7501575194297333`*^9, 3.750340177852722*^9, 
   3.7503758195211024`*^9, 3.750376441746764*^9, 3.75037673327569*^9, 
   3.750377526666129*^9, 3.7503775800593944`*^9, {3.7503779949792423`*^9, 
   3.750378006863474*^9}, 3.7506852656507916`*^9, 3.752426544225914*^9, {
   3.7525207567269907`*^9, 3.7525207824167094`*^9}, 3.7525870353007307`*^9, 
   3.7525871695757685`*^9, 3.7525887079021645`*^9, 3.752588844856922*^9, 
   3.7525901318088245`*^9, 3.753914250753458*^9, 3.801831178464529*^9},
 CellLabel->"Out[39]=",ExpressionUUID->"e0369f7e-d68a-4108-addd-57db796dafbd"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GraphAdinkra", "[", 
  RowBox[{"Q", ",", 
   RowBox[{"buildrules", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"5", ",", "6"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"7", ",", "8"}], "}"}]}], "}"}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.75000982374405*^9, 3.7500098810736427`*^9}, {
  3.750009968452538*^9, 3.7500101252655497`*^9}, {3.750010913225862*^9, 
  3.750010964304557*^9}},
 CellLabel->"In[40]:=",ExpressionUUID->"6f8d3591-0bca-49b8-847a-5582c8468b33"],

Cell[BoxData[
 GraphicsBox[{
   {Hue[0.6, 0.7, 0.5], Opacity[0.7], 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{-1.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     LineBox[{{-1.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     LineBox[{{-1.5, -2.}, {-0.5, -3.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     LineBox[{{-1.5, -2.}, {0.5, -3.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-0.5, -1.}, {-0.5, -2.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-0.5, -1.}, {0.5, -2.}}]}}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-0.5, -1.}, {1.5, -2.}}]}}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{0.5, -1.}, {-0.5, -2.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{0.5, -1.}, {0.5, -2.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     LineBox[{{0.5, -1.}, {1.5, -2.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     LineBox[{{-0.5, -3.}, {-0.5, -2.}}]}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{-0.5, -3.}, {0.5, -2.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-0.5, -3.}, {1.5, -2.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{0.5, -3.}, {-0.5, -2.}}]}}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     LineBox[{{0.5, -3.}, {0.5, -2.}}]}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{0.5, -3.}, {1.5, -2.}}]}}, 
   {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 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, -2.}], 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], {-0.5, -1.}], 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, -1.}], 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, -3.}], 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], {0.5, -3.}], 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, -2.}], 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, -2.}], 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, -2.}]}},
  FormatType->TraditionalForm,
  FrameTicks->None]], "Output",
 CellChangeTimes->{{3.750010043957746*^9, 3.750010125738082*^9}, {
   3.7500109256012707`*^9, 3.750010965134623*^9}, 3.750013843229607*^9, 
   3.7500138997382374`*^9, 3.7500139560657005`*^9, 3.7500178173476486`*^9, 
   3.7500179940763907`*^9, 3.750018356382246*^9, 3.7501575195865746`*^9, 
   3.7503401778839693`*^9, 3.750375819558002*^9, 3.750376441778714*^9, 
   3.7503767333125615`*^9, 3.7503775266870747`*^9, 3.7503775801232553`*^9, {
   3.750377995017112*^9, 3.750378006906329*^9}, 3.750685265677122*^9, 
   3.752426544278687*^9, {3.752520756757893*^9, 3.7525207824586086`*^9}, 
   3.7525870353334312`*^9, 3.752587169591391*^9, 3.752588707935079*^9, 
   3.7525888448878794`*^9, 3.7525901318411126`*^9, 3.7539142507847037`*^9, 
   3.801831178565333*^9},
 CellLabel->"Out[40]=",ExpressionUUID->"51d0ab99-a533-4937-b933-3f62e347d032"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GenerateAdinkraData", "[", 
  RowBox[{"Q", ",", "Orthogonal"}], "]"}]], "Input",
 CellChangeTimes->{{3.752587064616284*^9, 3.752587073709222*^9}},
 CellLabel->"In[41]:=",ExpressionUUID->"62e2bdbe-3bec-498b-a132-ab1799f3e227"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    41, 5, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7539142508002987`*^9, 3.801831178653487*^9},
 CellLabel->
  "During evaluation of \
In[41]:=",ExpressionUUID->"8964cd0c-4508-474f-81e2-1f5177173777"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    41, 6, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7539142508002987`*^9, 3.801831178661549*^9},
 CellLabel->
  "During evaluation of \
In[41]:=",ExpressionUUID->"f853dd84-b0d3-4ea3-8625-5167abc04c39"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    41, 7, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7539142508002987`*^9, 3.801831178668154*^9},
 CellLabel->
  "During evaluation of \
In[41]:=",ExpressionUUID->"7d0ddb12-a8e4-461b-92aa-4e2c8fcaab30"],

Cell[BoxData[
 TemplateBox[{
  "General", "stop", 
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Solve\\\", \\\"::\\\", \
\\\"svars\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"", 2, 41, 8, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7539142508002987`*^9, 3.801831178676258*^9},
 CellLabel->
  "During evaluation of \
In[41]:=",ExpressionUUID->"31474c45-4d07-4dec-a764-aa082a65f889"],

Cell[BoxData["\<\"chi0, ncis, ntrans, VPM[pm], VtildePM[pm], L, R, GALR, \
GARL, V, Vtilde, ZetaGen, Holoraumy[Rep], Monodromy[Rep], ZetatildeGen, \
Holoraumytilde[Rep], Monodromytilde[Rep], cSoln[V], cSoln[Vtilde] are loaded \
for Rep = Q\"\>"], "Print",
 CellChangeTimes->{3.752587074916999*^9, 3.7525871696538754`*^9, 
  3.752588708018897*^9, 3.75258884495969*^9, 3.7525901318723183`*^9, 
  3.753914250831798*^9, 3.801831178682493*^9},
 CellLabel->
  "During evaluation of \
In[41]:=",ExpressionUUID->"6b542ac2-7292-4df9-ac49-038a7f023d90"],

Cell[BoxData[
 RowBox[{"{", "Null", "}"}]], "Output",
 CellChangeTimes->{3.752587074932627*^9, 3.7525871696694965`*^9, 
  3.752588708021974*^9, 3.752588844962676*^9, 3.7525901318723183`*^9, 
  3.753914250831798*^9, 3.801831178685608*^9},
 CellLabel->"Out[41]=",ExpressionUUID->"25ab2ecb-3eff-4a63-8a54-d9eebbec272a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintAllGALR", "[", "Q", "]"}]], "Input",
 CellChangeTimes->{{3.752587038216032*^9, 3.7525870450891943`*^9}},
 CellLabel->"In[42]:=",ExpressionUUID->"f35439a3-a049-4191-92e7-c2f9e45d0c04"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"2", "0", "0", "0"},
       {"0", "2", "0", "0"},
       {"0", "0", "2", "0"},
       {"0", "0", "0", "2"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"2", "0", "0", "0"},
       {"0", "2", "0", "0"},
       {"0", "0", "2", "0"},
       {"0", "0", "0", "2"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"2", "0", "0", "0"},
       {"0", "2", "0", "0"},
       {"0", "0", "2", "0"},
       {"0", "0", "0", "2"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"2", "0", "0", "0"},
       {"0", "2", "0", "0"},
       {"0", "0", "2", "0"},
       {"0", "0", "0", "2"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{3.7525870467631807`*^9, 3.752587077409436*^9, 
  3.7525871696851587`*^9, 3.752588708046549*^9, 3.7525888450191483`*^9, 
  3.7525901318879814`*^9, 3.753914250831798*^9, 3.801831178694508*^9},
 CellLabel->"Out[42]=",ExpressionUUID->"b63cf1ec-bafc-46b6-8926-1c5a47d1c6e8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintAllGARL", "[", "Q", "]"}]], "Input",
 CellChangeTimes->{{3.752587079635417*^9, 3.752587084857927*^9}},
 CellLabel->"In[43]:=",ExpressionUUID->"b4e62dc7-55c5-46f9-b233-0b93f2ca9647"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"2", "0", "0", "0"},
       {"0", "2", "0", "0"},
       {"0", "0", "2", "0"},
       {"0", "0", "0", "2"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"2", "0", "0", "0"},
       {"0", "2", "0", "0"},
       {"0", "0", "2", "0"},
       {"0", "0", "0", "2"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"2", "0", "0", "0"},
       {"0", "2", "0", "0"},
       {"0", "0", "2", "0"},
       {"0", "0", "0", "2"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"2", "0", "0", "0"},
       {"0", "2", "0", "0"},
       {"0", "0", "2", "0"},
       {"0", "0", "0", "2"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{3.75258708537034*^9, 3.7525871697164035`*^9, 
  3.752588708076441*^9, 3.75258884506124*^9, 3.752590131919221*^9, 
  3.753914250863059*^9, 3.801831178762027*^9},
 CellLabel->"Out[43]=",ExpressionUUID->"7b4820ce-a16b-4967-9376-2eb296f87eef"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GenerateCoeffs", "[", "Q", "]"}]], "Input",
 CellChangeTimes->{{3.752588718384161*^9, 3.752588721525685*^9}},
 CellLabel->"In[44]:=",ExpressionUUID->"0a0b4645-cce9-4fad-bd01-2036b52a875c"],

Cell[BoxData[
 RowBox[{"{", "\<\"LCoeffs, RCoeffs, GALRCoeffs, GARLCoeffs, VCoeffs, \
VtildeCoeffs, VPMCoeffs, VtildePMCoeffs and CMessage[Rep][mi,si] are loaded \
for Rep = Q\"\>", "}"}]], "Output",
 CellChangeTimes->{3.75258872197444*^9, 3.7525888450957756`*^9, 
  3.7525901320129104`*^9, 3.7539142508943176`*^9, 3.8018311788416843`*^9},
 CellLabel->"Out[44]=",ExpressionUUID->"10572660-40ee-48f6-b13e-0254a4012f49"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintGALRBasis", "[", "Q", "]"}], "[", 
  RowBox[{"1", ",", "1"}], "]"}]], "Input",
 CellChangeTimes->{{3.752588725741746*^9, 3.752588732636911*^9}},
 CellLabel->"In[45]:=",ExpressionUUID->"321ed327-5cf1-468b-89cc-326ad29f72e5"],

Cell[BoxData[
 RowBox[{"2", " ", 
  SubscriptBox["\<\"I\"\>", "4"]}]], "Output",
 CellChangeTimes->{3.7525887331614723`*^9, 3.752588850266593*^9, 
  3.752590132044193*^9, 3.753914250909938*^9, 3.801831178961124*^9},
 CellLabel->"Out[45]=",ExpressionUUID->"cf37fe6a-a0a1-472f-9e05-f5433e56eda9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintVtildeBasis", "[", "Q", "]"}], "[", 
  RowBox[{"1", ",", "2"}], "]"}]], "Input",
 CellChangeTimes->{{3.75258873698147*^9, 3.7525887417080975`*^9}},
 CellLabel->"In[46]:=",ExpressionUUID->"9780583b-5b88-4570-919e-1fd445397f41"],

Cell[BoxData[
 RowBox[{"-", 
  SubscriptBox["\[Alpha]", "2"]}]], "Output",
 CellChangeTimes->{3.752588742165493*^9, 3.752590148339614*^9, 
  3.753914250909938*^9, 3.801831178974792*^9},
 CellLabel->"Out[46]=",ExpressionUUID->"c3245196-5d26-428d-a420-2ac1315d0fb0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintGALRBasis", "[", "Q", "]"}], "[", 
  RowBox[{"1", ",", "2"}], "]"}]], "Input",
 CellChangeTimes->{{3.7525901500384383`*^9, 3.7525901602785726`*^9}},
 CellLabel->"In[47]:=",ExpressionUUID->"d5284cd4-0960-438d-bf11-faea2f9c484f"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.7525901607620134`*^9, 3.753914250925558*^9, 
  3.801831179054775*^9},
 CellLabel->"Out[47]=",ExpressionUUID->"db6326f7-fa09-4a41-a8b1-c7e13072dc1a"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   OverscriptBox["Q", "~"], TraditionalForm]],ExpressionUUID->
  "232d50a5-74fb-4627-8363-bb3972cb73ea"],
 ": a base representation built in to Adinkra.m \n",
 Cell[BoxData[{
  RowBox[{
   SuperscriptBox[
    SubscriptBox[
     RowBox[{"(", 
      SubscriptBox[
       OverscriptBox["Q", "~"], "I"], ")"}], "i"], 
    OverscriptBox["j", "^"]], "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"(", ")"}], ",", " ", 
     RowBox[{
      RowBox[{"(", 
       OverscriptBox["23", "_"], ")"}], 
      RowBox[{"(", "12", ")"}], 
      RowBox[{"(", "34", ")"}]}], ",", " ", 
     RowBox[{
      RowBox[{"(", 
       OverscriptBox["12", "_"], ")"}], 
      RowBox[{"(", "13", ")"}], 
      RowBox[{"(", "24", ")"}]}], ",", " ", 
     RowBox[{
      RowBox[{"(", 
       OverscriptBox["13", "_"], ")"}], 
      RowBox[{"(", "14", ")"}], 
      RowBox[{"(", "23", ")"}]}]}], "}"}]}], "\[IndentingNewLine]", 
  RowBox[{"            ", 
   RowBox[{"=", " ", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"I", ",", " ", 
       RowBox[{"i", " ", 
        SuperscriptBox["\[Beta]", "3"]}], ",", " ", 
       RowBox[{
        RowBox[{"-", "i"}], " ", 
        SuperscriptBox["\[Beta]", "2"]}], ",", " ", 
       RowBox[{
        RowBox[{"-", "i"}], " ", 
        SuperscriptBox["\[Beta]", "1"]}]}], "}"}], "  ", "=", " ", 
     RowBox[{"{", 
      RowBox[{"I", ",", " ", 
       OverscriptBox["i", "~"], ",", " ", 
       OverscriptBox["j", "~"], ",", " ", 
       OverscriptBox["k", "~"]}], "}"}]}]}]}]}],ExpressionUUID->
  "ca5d7d05-7de9-487b-8719-6f27e37c0e07"]
}], "Subsection",
 CellChangeTimes->{{3.6751650493689566`*^9, 3.6751650495564604`*^9}, {
  3.7470763507210283`*^9, 3.747076366178664*^9}, {3.7499978526829967`*^9, 
  3.7499978591507463`*^9}, {3.749998056487281*^9, 3.749998070005722*^9}, {
  3.7499981371440783`*^9, 3.749998137144285*^9}, {3.7499981931759*^9, 
  3.74999819379676*^9}},ExpressionUUID->"502ea1bb-1af8-427a-929e-\
fdc66f3b950f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintAllL", "[", "Qtilde", "]"}]], "Input",
 CellChangeTimes->{{3.7470769964850616`*^9, 3.747077000824252*^9}},
 CellLabel->"In[48]:=",ExpressionUUID->"9dd5b988-f0f9-4e26-af36-a65e806b875a"],

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}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "1", "0", "0"},
       {
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "1", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "1", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"1", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{
  3.7500138432469673`*^9, 3.750013899755601*^9, 3.750013956079588*^9, 
   3.7500178173694696`*^9, 3.750017994105694*^9, 3.750018356405062*^9, 
   3.7501575197277007`*^9, 3.750340177915181*^9, 3.750375824253455*^9, 
   3.750376441805608*^9, 3.7503767333474736`*^9, 3.7503775267040267`*^9, 
   3.7503775801431866`*^9, {3.7503779950330677`*^9, 3.750378006923318*^9}, 
   3.7506852657048984`*^9, 3.752426544351534*^9, {3.752520766732879*^9, 
   3.752520782495578*^9}, 3.7525871012056575`*^9, 3.7525871697432275`*^9, 
   3.75391425094118*^9, 3.801831179066687*^9},
 CellLabel->"Out[48]=",ExpressionUUID->"f736d94f-80ac-438a-8945-d6e2128f33c3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GraphAdinkra", "[", "Qtilde", "]"}]], "Input",
 CellChangeTimes->{{3.7470757027520566`*^9, 3.747075713489316*^9}, {
  3.747076080474271*^9, 3.747076088664357*^9}, {3.747076124916252*^9, 
  3.747076126624976*^9}, {3.747076359338893*^9, 3.747076372057274*^9}},
 CellLabel->"In[49]:=",ExpressionUUID->"a5db4e79-e39b-4422-b26c-f0642c0e8a24"],

Cell[BoxData[
 GraphicsBox[{
   {Hue[0.6, 0.7, 0.5], Opacity[0.7], 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {-1.5, -2.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -1.}, {-0.5, -2.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {0.5, -2.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {1.5, -2.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     LineBox[{{-1.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -2.}, {0.5, -1.}}]}}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{-0.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     LineBox[{{-0.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-0.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{0.5, -2.}, {-0.5, -1.}}]}}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{0.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{0.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     LineBox[{{1.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     LineBox[{{1.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{1.5, -2.}, {1.5, -1.}}]}}, 
   {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 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.}]}},
  FormatType->TraditionalForm,
  FrameTicks->None]], "Output",
 CellChangeTimes->{
  3.7500138433645215`*^9, 3.7500138997972655`*^9, 3.7500139561203012`*^9, 
   3.7500178173942704`*^9, 3.7500179941567497`*^9, 3.750018356436843*^9, 
   3.7501575198283205`*^9, 3.7503401779464254`*^9, 3.750375824329248*^9, 
   3.7503764418345304`*^9, 3.75037673338437*^9, 3.75037752671799*^9, 
   3.750377580194071*^9, {3.7503779950779734`*^9, 3.7503780069711885`*^9}, 
   3.750685265735223*^9, 3.7524265444145203`*^9, {3.7525207668316307`*^9, 
   3.7525207825245004`*^9}, 3.7525871012525225`*^9, 3.7525871697744703`*^9, 
   3.753914250972428*^9, 3.801831179176549*^9},
 CellLabel->"Out[49]=",ExpressionUUID->"6b9ae059-b4a3-4a29-a1aa-5bfc77f7c261"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["CM", "Subsection",
 CellChangeTimes->{{3.6751650493689566`*^9, 
  3.6751650495564604`*^9}},ExpressionUUID->"af569c8d-9a84-4d4e-9d9d-\
30021d4d88c8"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"L", "[", "CM", "]"}], "=", 
   RowBox[{"{", " ", 
    RowBox[{
     TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
         {"1", "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$]]], ",", 
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {"0", "1", "0", "0"},
        {"0", "0", "1", "0"},
        {
         RowBox[{"-", "1"}], "0", "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]", ")"}], ",", 
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {"0", "0", "1", "0"},
        {"0", 
         RowBox[{"-", "1"}], "0", "0"},
        {"0", "0", "0", 
         RowBox[{"-", "1"}]},
        {"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]", ")"}], ",", 
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {"0", "0", "0", "1"},
        {"1", "0", "0", "0"},
        {"0", "0", "1", "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]", ")"}]}], 
    "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.5744663017556753`*^9, 3.5744664381779146`*^9}, {
  3.5744665012612257`*^9, 3.5744665056604333`*^9}, {3.5744670683222218`*^9, 
  3.574467071957028*^9}, {3.5744671149975033`*^9, 3.5744671774756136`*^9}, {
  3.5744673057390385`*^9, 3.5744673158478565`*^9}, {3.574467466294521*^9, 
  3.5744674719573307`*^9}, {3.675165176837956*^9, 3.675165179353591*^9}, {
  3.7465370744282227`*^9, 3.746537095517496*^9}},
 CellLabel->"In[50]:=",ExpressionUUID->"417c8ff5-f868-4ee0-ac9e-4a391d72a9c8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"L", "[", "CM", "]"}], " ", "\[Equal]", " ", 
  RowBox[{"L", "[", "362511", "]"}]}]], "Input",
 CellChangeTimes->{{3.74707528790318*^9, 3.7470752914965343`*^9}, {
  3.7470753631614137`*^9, 3.747075384649576*^9}},
 CellLabel->"In[51]:=",ExpressionUUID->"bf173063-c67b-4ec0-a5ab-7391e521accf"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.7500138433883266`*^9, 3.750013899832436*^9, 3.750013956150581*^9, 
   3.7500178174240303`*^9, 3.7500179941875453`*^9, 3.75001835647355*^9, 
   3.75015751986205*^9, 3.7503401779933186`*^9, 3.7503758409807587`*^9, 
   3.7503764418754206`*^9, 3.750376733448224*^9, 3.7503775267479115`*^9, 
   3.750377580220001*^9, {3.75037799510787*^9, 3.750378007000077*^9}, 
   3.7506852657660084`*^9, 3.752426467682867*^9, 3.752426544473378*^9, {
   3.752520770480195*^9, 3.752520782558447*^9}, 3.752587104063755*^9, 
   3.7525871698057137`*^9, 3.7539142509880447`*^9, 3.801831179191554*^9},
 CellLabel->"Out[51]=",ExpressionUUID->"67ec544c-fa5b-48a7-a73e-f8756fc6858e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GraphAdinkra", "[", "CM", "]"}]], "Input",
 CellChangeTimes->{{3.7470757027520566`*^9, 3.747075713489316*^9}, {
  3.747076080474271*^9, 3.747076088664357*^9}, {3.747076124916252*^9, 
  3.747076126624976*^9}},
 CellLabel->"In[52]:=",ExpressionUUID->"640eefaa-a15f-4c29-bc8d-1d9437b5e162"],

Cell[BoxData[
 GraphicsBox[{
   {Hue[0.6, 0.7, 0.5], Opacity[0.7], 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {-1.5, -2.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {-0.5, -2.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -1.}, {0.5, -2.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {1.5, -2.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     LineBox[{{-1.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     LineBox[{{-1.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     LineBox[{{-1.5, -2.}, {1.5, -1.}}]}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-0.5, -2.}, {-0.5, -1.}}]}}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     LineBox[{{-0.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-0.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{0.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     LineBox[{{0.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{0.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     LineBox[{{1.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{1.5, -2.}, {0.5, -1.}}]}}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{1.5, -2.}, {1.5, -1.}}]}}}, 
   {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 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.}]}},
  FormatType->TraditionalForm,
  FrameTicks->None]], "Output",
 CellChangeTimes->{
  3.750013843481082*^9, 3.7500139003875012`*^9, 3.750013956201108*^9, 
   3.750017817454286*^9, 3.75001799422374*^9, 3.750018356506742*^9, 
   3.7501575199701767`*^9, 3.7503401780245605`*^9, 3.7503758410116515`*^9, 
   3.7503764419023485`*^9, 3.750376733487121*^9, 3.750377526764874*^9, 
   3.7503775802738523`*^9, {3.750377995154743*^9, 3.7503780070459847`*^9}, 
   3.750685265793252*^9, 3.752426467735512*^9, 3.7524265445297537`*^9, {
   3.7525207705061255`*^9, 3.7525207825843735`*^9}, 3.752587104126191*^9, 
   3.7525871698399696`*^9, 3.7539142510192885`*^9, 3.801831179294518*^9},
 CellLabel->"Out[52]=",ExpressionUUID->"82fe5b2f-3eef-41bf-b8f9-df660d031f5e"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["TM", "Subsection",
 CellChangeTimes->{{3.6751653929039516`*^9, 
  3.6751653932164526`*^9}},ExpressionUUID->"57de3791-14b9-46df-a925-\
bec5d3dcfa62"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"L", "[", "TM", "]"}], "=", 
   RowBox[{"{", " ", 
    RowBox[{
     TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
         {"1", "0", "0", "0"},
         {"0", "0", 
          RowBox[{"-", "1"}], "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$]]], ",", 
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {"0", "1", "0", "0"},
        {"0", "0", "0", "1"},
        {"0", "0", 
         RowBox[{"-", "1"}], "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" -> {}}], ")"}], ",", 
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {"0", "0", "1", "0"},
        {"1", "0", "0", "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]", ")"}], ",", 
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {"0", "0", "0", "1"},
        {"0", 
         RowBox[{"-", "1"}], "0", "0"},
        {"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]", ")"}]}], 
    "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7465375373079896`*^9, 3.746537560133827*^9}},
 CellLabel->"In[53]:=",ExpressionUUID->"d829bbd7-18df-49ee-a3f0-1df8af3e330b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"L", "[", "TM", "]"}], " ", "==", " ", 
  RowBox[{"L", "[", "553212", "]"}]}]], "Input",
 CellChangeTimes->{{3.747075398047571*^9, 3.7470754134732904`*^9}},
 CellLabel->"In[54]:=",ExpressionUUID->"c4e744ed-cc06-4bcd-865e-e0d9ab351870"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.750013843513859*^9, 3.7500139005596485`*^9, 3.7500139568207035`*^9, 
   3.7500178174875183`*^9, 3.750017994258001*^9, 3.7500183565489573`*^9, 
   3.7501575199984517`*^9, 3.750340178055803*^9, 3.750375841057564*^9, 
   3.750376441944276*^9, 3.7503767335399523`*^9, 3.7503775268038034`*^9, 
   3.7503775803067646`*^9, {3.750377995183702*^9, 3.7503780070759063`*^9}, 
   3.7506852658374367`*^9, 3.752426544614726*^9, 3.7525207826312647`*^9, 
   3.752587108669031*^9, 3.752587169874439*^9, 3.753914251050524*^9, 
   3.80183117933486*^9},
 CellLabel->"Out[54]=",ExpressionUUID->"5ffdb164-44cc-43c0-b031-f4479e6f0abd"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GraphAdinkra", "[", "TM", "]"}]], "Input",
 CellChangeTimes->{{3.7470757210794334`*^9, 3.74707572388993*^9}, 
   3.7470760995688405`*^9, {3.7470761496493387`*^9, 3.747076149881236*^9}},
 CellLabel->"In[55]:=",ExpressionUUID->"0ae1a47d-1e90-4459-9134-c55af5e4fdc6"],

Cell[BoxData[
 GraphicsBox[{
   {Hue[0.6, 0.7, 0.5], Opacity[0.7], 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {-1.5, -2.}}]}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {-0.5, -2.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {0.5, -2.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {1.5, -2.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     LineBox[{{-1.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     LineBox[{{-1.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     LineBox[{{-1.5, -2.}, {1.5, -1.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-0.5, -2.}, {-0.5, -1.}}]}}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-0.5, -2.}, {0.5, -1.}}]}}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     LineBox[{{-0.5, -2.}, {1.5, -1.}}]}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     LineBox[{{0.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{0.5, -2.}, {0.5, -1.}}]}}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{0.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{1.5, -2.}, {-0.5, -1.}}]}}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     LineBox[{{1.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{1.5, -2.}, {1.5, -1.}}]}}}, 
   {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 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.}]}},
  FormatType->TraditionalForm,
  FrameTicks->None]], "Output",
 CellChangeTimes->{
  3.7500138435976825`*^9, 3.7500139005874243`*^9, 3.7500139568852324`*^9, 
   3.750017817509342*^9, 3.75001799429066*^9, 3.7500183565707626`*^9, 
   3.7501575200991383`*^9, 3.750340178087338*^9, 3.7503758410834904`*^9, 
   3.7503764419711957`*^9, 3.7503767335748854`*^9, 3.7503775268197603`*^9, 
   3.750377580331668*^9, {3.7503779952295675`*^9, 3.7503780070988445`*^9}, 
   3.7506852658795967`*^9, 3.7524265446571617`*^9, 3.75252078266218*^9, 
   3.7525871086942873`*^9, 3.7525871698900185`*^9, 3.7539142510817413`*^9, 
   3.801831179441148*^9},
 CellLabel->"Out[55]=",ExpressionUUID->"8b8b41e8-dd70-46d4-bcfc-36bc8519d3f1"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["VM", "Subsection",
 CellChangeTimes->{{3.6751653929039516`*^9, 3.6751653932164526`*^9}, {
  3.746537586619601*^9, 
  3.746537587227968*^9}},ExpressionUUID->"bb014953-bc14-42bd-9022-\
e008a72a5659"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"L", "[", "VM", "]"}], "=", 
   RowBox[{"{", " ", 
    RowBox[{
     TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
         {"0", "1", "0", "0"},
         {"0", "0", "0", 
          RowBox[{"-", "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$]]], ",", 
     RowBox[{"(", "\[NoBreak]", "\[NoBreak]", GridBox[{
        {"1", "0", "0", "0"},
        {"0", "0", "1", "0"},
        {"0", 
         RowBox[{"-", "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" -> {}}], ")"}], ",", 
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {"0", "0", "0", "1"},
        {"0", "1", "0", "0"},
        {"0", "0", "1", "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]", ")"}], ",", 
     RowBox[{"(", GridBox[{
        {"0", "0", "1", "0"},
        {
         RowBox[{"-", "1"}], "0", "0", "0"},
        {"0", "0", "0", 
         RowBox[{"-", "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]", ")"}]}], 
    "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7465375373079896`*^9, 3.746537560133827*^9}, {
  3.7465375917326717`*^9, 3.746537612277258*^9}},
 CellLabel->"In[56]:=",ExpressionUUID->"825662cb-cfb3-4f77-ba17-fbd33cc274a7"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"L", "[", "VM", "]"}], " ", "\[Equal]", " ", 
  RowBox[{"L", "[", 
   RowBox[{"-", "342412"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7470754868073406`*^9, 3.74707549706595*^9}},
 CellLabel->"In[57]:=",ExpressionUUID->"27af16b4-e380-4378-990e-c2c2d92246f4"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.750013843629424*^9, 3.750013900606332*^9, 3.7500139569055567`*^9, 
   3.7500178175391045`*^9, 3.750017997456131*^9, 3.7500183566183424`*^9, 
   3.7501575201279583`*^9, 3.750340178118583*^9, 3.7503758411283703`*^9, 
   3.7503764420120544`*^9, 3.7503767336247253`*^9, 3.7503775268556213`*^9, 
   3.7503775803556347`*^9, {3.750377995261489*^9, 3.750378007127736*^9}, 
   3.7506852659167976`*^9, 3.752426544682993*^9, 3.752520782701643*^9, 
   3.752587108747203*^9, 3.7525871699212604`*^9, 3.7539142510973625`*^9, 
   3.801831179482953*^9},
 CellLabel->"Out[57]=",ExpressionUUID->"9b959218-a7c2-4647-980c-a77c8ae850e2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GraphAdinkra", "[", "VM", "]"}]], "Input",
 CellChangeTimes->{{3.747075732968481*^9, 3.7470757365532103`*^9}, 
   3.7470761006764307`*^9, {3.7470761548168383`*^9, 3.747076154992784*^9}},
 CellLabel->"In[58]:=",ExpressionUUID->"a4e25464-0de6-49f8-b8cf-1666af5a5722"],

Cell[BoxData[
 GraphicsBox[{
   {Hue[0.6, 0.7, 0.5], Opacity[0.7], 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {-1.5, -2.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -1.}, {-0.5, -2.}}]}}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {0.5, -2.}}]}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {1.5, -2.}}]}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{-1.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     LineBox[{{-1.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     LineBox[{{-1.5, -2.}, {1.5, -1.}}]}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     LineBox[{{-0.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     LineBox[{{-0.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-0.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{0.5, -2.}, {-0.5, -1.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     LineBox[{{0.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{0.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     LineBox[{{1.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{1.5, -2.}, {0.5, -1.}}]}}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{1.5, -2.}, {1.5, -1.}}]}}}, 
   {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 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.}]}},
  FormatType->TraditionalForm,
  FrameTicks->None]], "Output",
 CellChangeTimes->{
  3.7500138437147384`*^9, 3.750013900668769*^9, 3.750013956939289*^9, 
   3.750017817563902*^9, 3.7500179974903555`*^9, 3.7500183566402035`*^9, 
   3.7501575201546893`*^9, 3.7503401781498528`*^9, 3.750375841157299*^9, 
   3.7503764420449667`*^9, 3.7503767336556444`*^9, 3.7503775268725777`*^9, 
   3.750377580405471*^9, {3.750377995284396*^9, 3.750378007173648*^9}, 
   3.7506852659430857`*^9, 3.7524265447238007`*^9, 3.752520782732599*^9, 
   3.7525871087775497`*^9, 3.7525871699605284`*^9, 3.753914251128612*^9, 
   3.801831179646221*^9},
 CellLabel->"Out[58]=",ExpressionUUID->"d975fb2a-a892-40e5-b08b-ad42807b7c48"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["VM1", "Subsection",
 CellChangeTimes->{{3.6751650493689566`*^9, 3.6751650495564604`*^9}, {
  3.7501576463294687`*^9, 
  3.750157646729456*^9}},ExpressionUUID->"60f76665-2797-422c-9187-\
4677e7bea113"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"L", "[", "CM", "]"}], "=", 
   RowBox[{"{", " ", 
    RowBox[{
     TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
         {"1", "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$]]], ",", 
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {"0", "1", "0", "0"},
        {"0", "0", "1", "0"},
        {
         RowBox[{"-", "1"}], "0", "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]", ")"}], ",", 
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {"0", "0", "1", "0"},
        {"0", 
         RowBox[{"-", "1"}], "0", "0"},
        {"0", "0", "0", 
         RowBox[{"-", "1"}]},
        {"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]", ")"}], ",", 
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {"0", "0", "0", "1"},
        {"1", "0", "0", "0"},
        {"0", "0", "1", "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]", ")"}]}], 
    "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.5744663017556753`*^9, 3.5744664381779146`*^9}, {
  3.5744665012612257`*^9, 3.5744665056604333`*^9}, {3.5744670683222218`*^9, 
  3.574467071957028*^9}, {3.5744671149975033`*^9, 3.5744671774756136`*^9}, {
  3.5744673057390385`*^9, 3.5744673158478565`*^9}, {3.574467466294521*^9, 
  3.5744674719573307`*^9}, {3.675165176837956*^9, 3.675165179353591*^9}, {
  3.7465370744282227`*^9, 3.746537095517496*^9}},
 CellLabel->"In[59]:=",ExpressionUUID->"8875f94e-688c-4c9c-90ef-1aa17fca68a6"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"L", "[", "CM", "]"}], " ", "\[Equal]", " ", 
  RowBox[{"L", "[", "362511", "]"}]}]], "Input",
 CellChangeTimes->{{3.74707528790318*^9, 3.7470752914965343`*^9}, {
  3.7470753631614137`*^9, 3.747075384649576*^9}},
 CellLabel->"In[60]:=",ExpressionUUID->"8f055c5e-b97c-455e-8a35-fbb70a353b22"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.7500138433883266`*^9, 3.750013899832436*^9, 3.750013956150581*^9, 
   3.7500178174240303`*^9, 3.7500179941875453`*^9, 3.75001835647355*^9, 
   3.75015751986205*^9, 3.7503401781810675`*^9, 3.7503758412031393`*^9, 
   3.7503764420858583`*^9, 3.7503767337075033`*^9, 3.7503775269174566`*^9, 
   3.7503775804323983`*^9, {3.750377995314316*^9, 3.75037800720358*^9}, 
   3.750685266021454*^9, 3.752426544756013*^9, 3.752520782784092*^9, 
   3.7525871088277435`*^9, 3.752587169983893*^9, 3.7539142511442523`*^9, 
   3.801831179686554*^9},
 CellLabel->"Out[60]=",ExpressionUUID->"fc61f396-2a9f-4e21-985b-167f85024f9b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GraphAdinkra", "[", "CM", "]"}]], "Input",
 CellChangeTimes->{{3.7470757027520566`*^9, 3.747075713489316*^9}, {
  3.747076080474271*^9, 3.747076088664357*^9}, {3.747076124916252*^9, 
  3.747076126624976*^9}},
 CellLabel->"In[61]:=",ExpressionUUID->"070984e0-1055-4be5-9598-836abebbc5ee"],

Cell[BoxData[
 GraphicsBox[{
   {Hue[0.6, 0.7, 0.5], Opacity[0.7], 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {-1.5, -2.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {-0.5, -2.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -1.}, {0.5, -2.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {1.5, -2.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     LineBox[{{-1.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     LineBox[{{-1.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     LineBox[{{-1.5, -2.}, {1.5, -1.}}]}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-0.5, -2.}, {-0.5, -1.}}]}}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     LineBox[{{-0.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-0.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{0.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     LineBox[{{0.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{0.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     LineBox[{{1.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{1.5, -2.}, {0.5, -1.}}]}}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{1.5, -2.}, {1.5, -1.}}]}}}, 
   {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 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.}]}},
  FormatType->TraditionalForm,
  FrameTicks->None]], "Output",
 CellChangeTimes->{
  3.750013843481082*^9, 3.7500139003875012`*^9, 3.750013956201108*^9, 
   3.750017817454286*^9, 3.75001799422374*^9, 3.750018356506742*^9, 
   3.7501575199701767`*^9, 3.75034017821231*^9, 3.750375841236051*^9, 
   3.7503764421147804`*^9, 3.7503767337404256`*^9, 3.750377526933414*^9, 
   3.750377580486293*^9, {3.75037799535923*^9, 3.750378007251436*^9}, 
   3.7506852660502214`*^9, 3.752426544796783*^9, 3.7525207828119555`*^9, 
   3.75258710885201*^9, 3.7525871700151772`*^9, 3.7539142511911163`*^9, 
   3.801831179773158*^9},
 CellLabel->"Out[61]=",ExpressionUUID->"0b6ebda8-b9a6-41a7-abf2-d19c868641ba"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["cis adinkra", "Subsection",
 CellChangeTimes->{{3.747075624568725*^9, 
  3.74707562560905*^9}},ExpressionUUID->"2bba39ba-b100-4a39-b2ee-\
db5a968d1e05"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"L", "[", "cis", "]"}], " ", "=", " ", 
   RowBox[{"L", "[", "111712", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.747075627344021*^9, 3.7470756352975206`*^9}},
 CellLabel->"In[62]:=",ExpressionUUID->"f14ef698-ed73-43eb-9815-6264edc16e58"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintAllL", "[", "cis", "]"}]], "Input",
 CellChangeTimes->{{3.7470770153716326`*^9, 3.7470770174331803`*^9}},
 CellLabel->"In[63]:=",ExpressionUUID->"5727d3eb-9321-4943-88af-185134d9c811"],

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}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "1", "0", "0"},
       {
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "1", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"},
       {
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "1", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"1", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{
  3.7500138438407803`*^9, 3.7500139007030287`*^9, 3.7500139569580956`*^9, 
   3.750017817589694*^9, 3.750017997520612*^9, 3.7500183566872864`*^9, 
   3.7501575201928825`*^9, 3.750340178259206*^9, 3.750375841280962*^9, 
   3.750376442164647*^9, 3.750376733793276*^9, 3.7503775269623365`*^9, 
   3.7503775805141788`*^9, {3.750377995433996*^9, 3.750378007280328*^9}, 
   3.750685266085447*^9, 3.752426544860746*^9, 3.7525207828588324`*^9, 
   3.7525871089342904`*^9, 3.7525871700431356`*^9, 3.7539142512067127`*^9, 
   3.801831179787902*^9},
 CellLabel->"Out[63]=",ExpressionUUID->"4d84ef9b-4ac7-4c42-a53d-76d25c906da9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GraphAdinkra", "[", "cis", "]"}]], "Input",
 CellChangeTimes->{{3.747075693135504*^9, 3.7470756968495655`*^9}, 
   3.7470761012235785`*^9, {3.747076158872593*^9, 3.7470761590885*^9}},
 CellLabel->"In[64]:=",ExpressionUUID->"97074876-ff8d-4930-b2ab-bbe716a2c6f0"],

Cell[BoxData[
 GraphicsBox[{
   {Hue[0.6, 0.7, 0.5], Opacity[0.7], 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {-1.5, -2.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -1.}, {-0.5, -2.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -1.}, {0.5, -2.}}]}}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {1.5, -2.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     LineBox[{{-1.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     LineBox[{{-1.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{-0.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     LineBox[{{-0.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     LineBox[{{-0.5, -2.}, {1.5, -1.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{0.5, -2.}, {-0.5, -1.}}]}}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{0.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{0.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{1.5, -2.}, {-0.5, -1.}}]}}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     LineBox[{{1.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{1.5, -2.}, {1.5, -1.}}]}}, 
   {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 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.}]}},
  FormatType->TraditionalForm,
  FrameTicks->None]], "Output",
 CellChangeTimes->{
  3.75001384386961*^9, 3.7500139007297773`*^9, 3.7500139569914308`*^9, 
   3.7500178176115184`*^9, 3.750017997550371*^9, 3.7500183567101393`*^9, 
   3.7501575202186728`*^9, 3.750340178290452*^9, 3.75037584130789*^9, 
   3.7503764421915755`*^9, 3.750376733827184*^9, 3.7503775269792905`*^9, 
   3.7503775805650673`*^9, {3.7503779954798975`*^9, 3.7503780073272343`*^9}, 
   3.7506852661092463`*^9, 3.7524265449057913`*^9, 3.7525207828848057`*^9, 
   3.7525871089509926`*^9, 3.7525871700780115`*^9, 3.7539142512536087`*^9, 
   3.801831179868347*^9},
 CellLabel->"Out[64]=",ExpressionUUID->"0005076c-5a34-462d-9ee4-3ce7dc21e187"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["trans- adinkra", "Subsection",
 CellChangeTimes->{{3.747075624568725*^9, 3.74707562560905*^9}, 
   3.7470762147301307`*^9},ExpressionUUID->"d819d99e-4d59-45bb-b20f-\
1f206f5f978c"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"L", "[", "trans", "]"}], " ", "=", " ", 
   RowBox[{"L", "[", "111112", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.747075627344021*^9, 3.7470756352975206`*^9}, {
  3.747076215415352*^9, 3.7470762394007244`*^9}},
 CellLabel->"In[65]:=",ExpressionUUID->"b0c0627b-fc83-4ba0-9292-b5586f236a43"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintAllL", "[", "trans", "]"}]], "Input",
 CellChangeTimes->{{3.7470770204681697`*^9, 3.747077022769272*^9}},
 CellLabel->"In[66]:=",ExpressionUUID->"f29c0f3d-af6b-4459-9039-ce4c093436ec"],

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}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "1", "0", "0"},
       {
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "1", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "1", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"1", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{
  3.750013843897373*^9, 3.750013900747691*^9, 3.7500139570172205`*^9, 
   3.7500178176392937`*^9, 3.750017997579635*^9, 3.7500183567492857`*^9, 
   3.750157520244627*^9, 3.750340178337282*^9, 3.7503758413517437`*^9, 
   3.750376442233495*^9, 3.750376733879077*^9, 3.750377527008215*^9, 
   3.7503775805880127`*^9, {3.750377995507831*^9, 3.7503780073541403`*^9}, 
   3.7506852661355343`*^9, 3.7524265449358263`*^9, 3.7525207829397087`*^9, 
   3.752587108982237*^9, 3.75258717011895*^9, 3.7539142513004713`*^9, 
   3.801831179901699*^9},
 CellLabel->"Out[66]=",ExpressionUUID->"36d08038-e1c0-4c5e-af46-deedd144a645"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GraphAdinkra", "[", "trans", "]"}]], "Input",
 CellChangeTimes->{{3.747075693135504*^9, 3.7470756968495655`*^9}, 
   3.7470761012235785`*^9, {3.747076158872593*^9, 3.7470761590885*^9}, {
   3.747076216863682*^9, 3.7470762466500025`*^9}},
 CellLabel->"In[67]:=",ExpressionUUID->"cb7b96dd-4389-414b-b53c-1f1449379d28"],

Cell[BoxData[
 GraphicsBox[{
   {Hue[0.6, 0.7, 0.5], Opacity[0.7], 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {-1.5, -2.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -1.}, {-0.5, -2.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {0.5, -2.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {1.5, -2.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     LineBox[{{-1.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -2.}, {0.5, -1.}}]}}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{-0.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     LineBox[{{-0.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-0.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{0.5, -2.}, {-0.5, -1.}}]}}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{0.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{0.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     LineBox[{{1.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     LineBox[{{1.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{1.5, -2.}, {1.5, -1.}}]}}, 
   {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 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.}]}},
  FormatType->TraditionalForm,
  FrameTicks->None]], "Output",
 CellChangeTimes->{
  3.750013843970934*^9, 3.750013900771947*^9, 3.7500139571015415`*^9, 
   3.7500178176611185`*^9, 3.7500179976069155`*^9, 3.750018356771606*^9, 
   3.7501575203492737`*^9, 3.750340178352928*^9, 3.7503758413786707`*^9, 
   3.7503764422623863`*^9, 3.7503767339169445`*^9, 3.750377527026173*^9, 
   3.750377580639877*^9, {3.750377995534771*^9, 3.750378007377102*^9}, 
   3.750685266180173*^9, 3.7524265449764214`*^9, 3.752520782963649*^9, 
   3.7525871090219316`*^9, 3.7525871701443796`*^9, 3.753914251331683*^9, 
   3.8018311799819803`*^9},
 CellLabel->"Out[67]=",ExpressionUUID->"b2ad51d7-2760-4e1c-af01-56d5c986c486"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["L[-734262]", "Subsection",
 CellChangeTimes->{{3.747075624568725*^9, 3.74707562560905*^9}, 
   3.7470762147301307`*^9, {3.7470762725364532`*^9, 
   3.7470762789767785`*^9}},ExpressionUUID->"8a76e9b1-3aa1-42f4-ac7b-\
043e4a1b6d1d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintAllL", "[", 
  RowBox[{"-", "734262"}], "]"}]], "Input",
 CellChangeTimes->{{3.7470762974448905`*^9, 3.747076299712626*^9}, {
  3.80183180172615*^9, 3.801831802927764*^9}},
 CellLabel->
  "In[533]:=",ExpressionUUID->"235a0649-56d8-4710-a813-c63eb11ca8f7"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"0", "1", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"1", "0", "0", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"0", "0", "0", "1"},
       {
        RowBox[{"-", "1"}], "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"0", "1", "0", "0"},
       {"1", "0", "0", "0"},
       {"0", "0", "0", "1"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{
  3.750013843995678*^9, 3.7500139007828484`*^9, 3.75001395711493*^9, 
   3.7500178176779823`*^9, 3.750017997625763*^9, 3.7500183567949204`*^9, 
   3.750157520366094*^9, 3.7503401783841767`*^9, 3.7503758414076233`*^9, 
   3.7503764422893143`*^9, 3.7503767339478636`*^9, 3.750377527042143*^9, 
   3.7503775806558313`*^9, {3.7503779955507145`*^9, 3.750378007403003*^9}, 
   3.750685266203486*^9, 3.752426545001567*^9, 3.752520782986532*^9, 
   3.7525871090364904`*^9, 3.752587170166767*^9, 3.753914251347313*^9, 
   3.801831179992682*^9, 3.801831804945682*^9},
 CellLabel->
  "Out[533]=",ExpressionUUID->"efc224ea-f011-4a32-a869-72c9e24a79b5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GraphAdinkra", "[", 
  RowBox[{"-", "734262"}], "]"}]], "Input",
 CellChangeTimes->{{3.747075693135504*^9, 3.7470756968495655`*^9}, 
   3.7470761012235785`*^9, {3.747076158872593*^9, 3.7470761590885*^9}, {
   3.747076216863682*^9, 3.7470762466500025`*^9}, {3.7470762893216558`*^9, 
   3.7470762909847965`*^9}},
 CellLabel->"In[69]:=",ExpressionUUID->"c2654a93-32e4-4d8c-9af2-826129eb88ad"],

Cell[BoxData[
 GraphicsBox[{
   {Hue[0.6, 0.7, 0.5], Opacity[0.7], 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -1.}, {-1.5, -2.}}]}}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {-0.5, -2.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {0.5, -2.}}]}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -1.}, {1.5, -2.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -2.}, {-0.5, -1.}}]}}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -2.}, {0.5, -1.}}]}}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     LineBox[{{-0.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-0.5, -2.}, {0.5, -1.}}]}}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-0.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{0.5, -2.}, {-0.5, -1.}}]}}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{0.5, -2.}, {0.5, -1.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     LineBox[{{0.5, -2.}, {1.5, -1.}}]}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{1.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{1.5, -2.}, {0.5, -1.}}]}}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     LineBox[{{1.5, -2.}, {1.5, -1.}}]}}, 
   {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 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.}]}},
  FormatType->TraditionalForm,
  FrameTicks->None]], "Output",
 CellChangeTimes->{
  3.750013844070075*^9, 3.7500139008662324`*^9, 3.750013957201733*^9, 
   3.7500178177414703`*^9, 3.7500179976620116`*^9, 3.750018356844518*^9, 
   3.750157520463931*^9, 3.7503401784154186`*^9, 3.750375841435543*^9, 
   3.75037644231927*^9, 3.7503767339867573`*^9, 3.7503775270600758`*^9, 
   3.750377580712674*^9, {3.7503779955965605`*^9, 3.7503780074509125`*^9}, 
   3.7506852662332454`*^9, 3.752426545043696*^9, 3.7525207830164948`*^9, 
   3.752587109067768*^9, 3.752587170193342*^9, 3.753914251394168*^9, 
   3.8018311803952208`*^9},
 CellLabel->"Out[69]=",ExpressionUUID->"8e3054b6-e07e-4c78-accf-04f4bad28edb"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GenerateAdinkraData", "[", 
  RowBox[{
   RowBox[{"-", "734262"}], ",", "Orthogonal"}], "]"}]], "Input",
 CellChangeTimes->{{3.7525871152024093`*^9, 3.7525871433901014`*^9}},
 CellLabel->"In[70]:=",ExpressionUUID->"d1989760-b6d6-43c7-a51b-5f66c1410764"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    70, 9, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.752587130457325*^9, 3.752587170537318*^9, 
  3.7539142518003473`*^9, 3.8018311808218803`*^9},
 CellLabel->
  "During evaluation of \
In[70]:=",ExpressionUUID->"3af312d8-e90f-4651-9d27-09950e1fa2fa"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    70, 10, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.752587130457325*^9, 3.752587170537318*^9, 
  3.7539142518003473`*^9, 3.801831180830482*^9},
 CellLabel->
  "During evaluation of \
In[70]:=",ExpressionUUID->"b292eaff-c077-4dfc-8657-2437f348b88b"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    70, 11, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.752587130457325*^9, 3.752587170537318*^9, 
  3.7539142518003473`*^9, 3.80183118088706*^9},
 CellLabel->
  "During evaluation of \
In[70]:=",ExpressionUUID->"88bc542a-e269-4081-8ae1-13f2bf5053fc"],

Cell[BoxData[
 TemplateBox[{
  "General", "stop", 
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Solve\\\", \\\"::\\\", \
\\\"svars\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"", 2, 70, 12, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.752587130457325*^9, 3.752587170537318*^9, 
  3.7539142518003473`*^9, 3.80183118089193*^9},
 CellLabel->
  "During evaluation of \
In[70]:=",ExpressionUUID->"101b6f17-a0a9-4701-af98-8d9a85b521af"],

Cell[BoxData["\<\"chi0, ncis, ntrans, VPM[pm], VtildePM[pm], L, R, GALR, \
GARL, V, Vtilde, ZetaGen, Holoraumy[Rep], Monodromy[Rep], ZetatildeGen, \
Holoraumytilde[Rep], Monodromytilde[Rep], cSoln[V], cSoln[Vtilde] are loaded \
for Rep = -734262\"\>"], "Print",
 CellChangeTimes->{3.752587170584141*^9, 3.75391425184757*^9, 
  3.8018311808973417`*^9},
 CellLabel->
  "During evaluation of \
In[70]:=",ExpressionUUID->"cc707873-061e-4315-b74e-f644129d6406"],

Cell[BoxData[
 RowBox[{"{", "Null", "}"}]], "Output",
 CellChangeTimes->{3.752587170584141*^9, 3.75391425184757*^9, 
  3.8018311808985233`*^9},
 CellLabel->"Out[70]=",ExpressionUUID->"4404b2d6-4a3f-420f-9347-278c071038ea"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintAllGALR", "[", 
  RowBox[{"-", "734262"}], "]"}]], "Input",
 CellChangeTimes->{{3.752587174454526*^9, 3.7525871837553854`*^9}},
 CellLabel->"In[71]:=",ExpressionUUID->"fea4cd1a-03c8-4133-9e3b-3542fc3f1c88"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"2", "0", "0", "0"},
       {"0", "2", "0", "0"},
       {"0", "0", "2", "0"},
       {"0", "0", "0", "2"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"2", "0", "0", "0"},
       {"0", "2", "0", "0"},
       {"0", "0", "2", "0"},
       {"0", "0", "0", "2"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"2", "0", "0", "0"},
       {"0", "2", "0", "0"},
       {"0", "0", "2", "0"},
       {"0", "0", "0", "2"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"2", "0", "0", "0"},
       {"0", "2", "0", "0"},
       {"0", "0", "2", "0"},
       {"0", "0", "0", "2"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{3.752587184198674*^9, 3.7539142518788095`*^9, 
  3.8018311809876223`*^9},
 CellLabel->"Out[71]=",ExpressionUUID->"5ef43c8f-586f-4b9f-90c9-4fe35f27c27f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintAllGARL", "[", 
  RowBox[{"-", "734262"}], "]"}]], "Input",
 CellChangeTimes->{{3.752587185167113*^9, 3.752587193210477*^9}},
 CellLabel->"In[72]:=",ExpressionUUID->"72d6dcc9-5774-42f7-9263-5fd63f9dcbaf"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"2", "0", "0", "0"},
       {"0", "2", "0", "0"},
       {"0", "0", "2", "0"},
       {"0", "0", "0", "2"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"2", "0", "0", "0"},
       {"0", "2", "0", "0"},
       {"0", "0", "2", "0"},
       {"0", "0", "0", "2"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"2", "0", "0", "0"},
       {"0", "2", "0", "0"},
       {"0", "0", "2", "0"},
       {"0", "0", "0", "2"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"2", "0", "0", "0"},
       {"0", "2", "0", "0"},
       {"0", "0", "2", "0"},
       {"0", "0", "0", "2"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{3.7525871937396927`*^9, 3.7539142518943944`*^9, 
  3.801831181055252*^9},
 CellLabel->"Out[72]=",ExpressionUUID->"30f1214e-e0b1-446e-8aa9-89220ec3a24c"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
AdinkraPreliminaryReport[Rep] prints preliminary data to see if we want to \
proceed with analysis\
\>", "Subsection",
 CellChangeTimes->{{3.7503758506827993`*^9, 
  3.750375876878773*^9}},ExpressionUUID->"7df1dc7e-377b-4bb3-86fd-\
f7c96af9335e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GraphAdinkra", "[", "CM", "]"}]], "Input",
 CellChangeTimes->{{3.7524267022736273`*^9, 3.7524267056569977`*^9}},
 CellLabel->"In[73]:=",ExpressionUUID->"b5ba2c7c-65b5-4dc4-98d5-ca55ce3e468e"],

Cell[BoxData[
 GraphicsBox[{
   {Hue[0.6, 0.7, 0.5], Opacity[0.7], 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {-1.5, -2.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {-0.5, -2.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -1.}, {0.5, -2.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {1.5, -2.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     LineBox[{{-1.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     LineBox[{{-1.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     LineBox[{{-1.5, -2.}, {1.5, -1.}}]}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-0.5, -2.}, {-0.5, -1.}}]}}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     LineBox[{{-0.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-0.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{0.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     LineBox[{{0.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{0.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     LineBox[{{1.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{1.5, -2.}, {0.5, -1.}}]}}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{1.5, -2.}, {1.5, -1.}}]}}}, 
   {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 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.}]}},
  FormatType->TraditionalForm,
  FrameTicks->None]], "Output",
 CellChangeTimes->{3.75242670637151*^9, 3.7525207830383916`*^9, 
  3.752587109109411*^9, 3.75258729288103*^9, 3.7539142519412837`*^9, 
  3.801831181133333*^9},
 CellLabel->"Out[73]=",ExpressionUUID->"510b5717-ec6f-4770-aa1b-f779cf2b6153"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GenerateAdinkraData", "[", 
  RowBox[{"CM", ",", "Orthogonal"}], "]"}]], "Input",
 CellChangeTimes->{{3.752426637122752*^9, 3.7524266600394*^9}},
 CellLabel->"In[74]:=",ExpressionUUID->"049c48d3-8e12-4de4-8994-70ff19eb257a"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    74, 13, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7524266607113132`*^9, 3.7524267312128687`*^9, 
  3.7525207830833354`*^9, 3.7525871091343813`*^9, 3.7525872950448647`*^9, 
  3.753914251988126*^9, 3.8018311811657343`*^9},
 CellLabel->
  "During evaluation of \
In[74]:=",ExpressionUUID->"681d1900-3665-4553-9b02-f8cc1bf77576"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    74, 14, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7524266607113132`*^9, 3.7524267312128687`*^9, 
  3.7525207830833354`*^9, 3.7525871091343813`*^9, 3.7525872950448647`*^9, 
  3.753914251988126*^9, 3.801831181173665*^9},
 CellLabel->
  "During evaluation of \
In[74]:=",ExpressionUUID->"332310b1-7fb4-4014-8174-9d13968c1b75"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    74, 15, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7524266607113132`*^9, 3.7524267312128687`*^9, 
  3.7525207830833354`*^9, 3.7525871091343813`*^9, 3.7525872950448647`*^9, 
  3.753914251988126*^9, 3.80183118118461*^9},
 CellLabel->
  "During evaluation of \
In[74]:=",ExpressionUUID->"663c2025-5b3c-4c03-b6e6-37f112386b66"],

Cell[BoxData[
 TemplateBox[{
  "General", "stop", 
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Solve\\\", \\\"::\\\", \
\\\"svars\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"", 2, 74, 16, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7524266607113132`*^9, 3.7524267312128687`*^9, 
  3.7525207830833354`*^9, 3.7525871091343813`*^9, 3.7525872950448647`*^9, 
  3.753914251988126*^9, 3.801831181244402*^9},
 CellLabel->
  "During evaluation of \
In[74]:=",ExpressionUUID->"b6d52d72-07e4-4a62-ad6c-94056b71cc31"],

Cell[BoxData["\<\"chi0, ncis, ntrans, VPM[pm], VtildePM[pm], L, R, GALR, \
GARL, V, Vtilde, ZetaGen, Holoraumy[Rep], Monodromy[Rep], ZetatildeGen, \
Holoraumytilde[Rep], Monodromytilde[Rep], cSoln[V], cSoln[Vtilde] are loaded \
for Rep = CM\"\>"], "Print",
 CellChangeTimes->{3.752426660735083*^9, 3.75242673125082*^9, 
  3.752520783119219*^9, 3.752587109155201*^9, 3.7525872950776577`*^9, 
  3.753914251988126*^9, 3.80183118125079*^9},
 CellLabel->
  "During evaluation of \
In[74]:=",ExpressionUUID->"0123c80a-166c-4e4f-bbb4-fd2f379295a0"],

Cell[BoxData[
 RowBox[{"{", "Null", "}"}]], "Output",
 CellChangeTimes->{3.7524266607417173`*^9, 3.75242673125704*^9, 
  3.752520783121211*^9, 3.752587109155201*^9, 3.7525872950776577`*^9, 
  3.753914251988126*^9, 3.8018311812530212`*^9},
 CellLabel->"Out[74]=",ExpressionUUID->"a0ecca3a-6ac3-4db9-a5ef-d629c8bc062f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintAllGARL", "[", "CM", "]"}]], "Input",
 CellChangeTimes->{{3.7525872988408394`*^9, 3.7525873029724197`*^9}},
 CellLabel->"In[75]:=",ExpressionUUID->"41de5047-4afb-4090-b376-266508a4f226"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"2", "0", "0", "0"},
       {"0", "2", "0", "0"},
       {"0", "0", "2", "0"},
       {"0", "0", "0", "2"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"2", "0", "0", "0"},
       {"0", "2", "0", "0"},
       {"0", "0", "2", "0"},
       {"0", "0", "0", "2"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"2", "0", "0", "0"},
       {"0", "2", "0", "0"},
       {"0", "0", "2", "0"},
       {"0", "0", "0", "2"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"2", "0", "0", "0"},
       {"0", "2", "0", "0"},
       {"0", "0", "2", "0"},
       {"0", "0", "0", "2"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{3.7525873036323547`*^9, 3.753914252003768*^9, 
  3.801831181261241*^9},
 CellLabel->"Out[75]=",ExpressionUUID->"59f37cc0-1218-4461-87c3-9d913967bca2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraReport", "[", 
  RowBox[{"CM", ",", "1"}], "]"}]], "Input",
 CellChangeTimes->{{3.7524266692601767`*^9, 3.752426671580011*^9}, {
  3.7524270370179367`*^9, 3.752427039221733*^9}},
 CellLabel->"In[76]:=",ExpressionUUID->"de7f5276-2328-4d88-ba23-a92e14c98917"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    76, 17, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.752427041897608*^9, 3.752520783150128*^9, 
  3.752587109186405*^9, 3.7525873072110686`*^9, 3.7539142520350113`*^9, 
  3.801831181327867*^9},
 CellLabel->
  "During evaluation of \
In[76]:=",ExpressionUUID->"e06ee378-5afe-4eea-9d58-96687f872b71"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    76, 18, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.752427041897608*^9, 3.752520783150128*^9, 
  3.752587109186405*^9, 3.7525873072110686`*^9, 3.7539142520350113`*^9, 
  3.801831181335415*^9},
 CellLabel->
  "During evaluation of \
In[76]:=",ExpressionUUID->"f31e2ed5-cee9-4ff4-b1db-4a4fa781aa7f"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    76, 19, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.752427041897608*^9, 3.752520783150128*^9, 
  3.752587109186405*^9, 3.7525873072110686`*^9, 3.7539142520350113`*^9, 
  3.801831181341524*^9},
 CellLabel->
  "During evaluation of \
In[76]:=",ExpressionUUID->"068d83d9-ab38-45ca-a284-e8f8700c8af6"],

Cell[BoxData[
 TemplateBox[{
  "General", "stop", 
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Solve\\\", \\\"::\\\", \
\\\"svars\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"", 2, 76, 20, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.752427041897608*^9, 3.752520783150128*^9, 
  3.752587109186405*^9, 3.7525873072110686`*^9, 3.7539142520350113`*^9, 
  3.8018311813473577`*^9},
 CellLabel->
  "During evaluation of \
In[76]:=",ExpressionUUID->"5a5f52ed-6ca3-4fdf-8eea-df77ab3a4621"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     TagBox[GridBox[{
        {"\<\"N = 4\"\>"},
        {"\<\"dbosons x dfermions = 4 \[Times] 4\"\>"},
        {"\<\"GATest = True\"\>"},
        {"\<\"InverseTest = True\"\>"},
        {"\<\"TransposeTest = True\"\>"},
        {"\<\"chi0 = \\!\\(\\*RowBox[{\\\"1\\\"}]\\), (ncis = \
\\!\\(\\*RowBox[{\\\"1\\\"}]\\), ntrans = \
\\!\\(\\*RowBox[{\\\"0\\\"}]\\))\"\>"}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
       
       GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
      "Column"]},
    {"\<\"LinearlyIndependent[V] = {{c[1, 2], c[1, 3], c[1, 4]}, {c[1, 4], \
-c[1, 3]}, {c[1, 2]}} == {{0, 0, 0}, {0, 0}, {0}}\"\>"},
    {"\<\"LinearlyIndependent[Vtilde] = {{c[1, 2], c[1, 3], c[1, 4]}, {-c[1, \
4], c[1, 3]}, {-c[1, 2]}} == {{0, 0, 0}, {0, 0}, {0}}\"\>"}
   },
   DefaultBaseStyle->"Column",
   GridBoxAlignment->{"Columns" -> {{Left}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
  "Column"]], "Output",
 CellChangeTimes->{3.752426672126565*^9, 3.7524267442874928`*^9, 
  3.7524270419224567`*^9, 3.7525207831850524`*^9, 3.752587109217684*^9, 
  3.752587307261237*^9, 3.7539142520506077`*^9, 3.801831181355015*^9},
 CellLabel->"Out[76]=",ExpressionUUID->"340c18b7-b0b9-454f-af68-23cea4f7b973"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraPreliminaryReport", "[", "OnShellCM", "]"}]], "Input",
 CellChangeTimes->{{3.746541548633738*^9, 3.7465415763160086`*^9}},
 CellLabel->"In[77]:=",ExpressionUUID->"7c6d1469-e65f-47e7-9608-0d952823e8db"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"Rep = OnShellCM\"\>"},
    {
     TagBox[GridBox[{
        {"\<\"N = 4\"\>"},
        {"\<\"dbosons x dfermions = 2 \[Times] 4\"\>"},
        {"\<\"GATest = False\"\>"},
        {"\<\"InverseTest = R is not a square matrix\"\>"},
        {"\<\"TransposeTest = True\"\>"},
        {"\<\"chi0 = \\!\\(\\*RowBox[{\\\"0\\\"}]\\), (ncis = \
\\!\\(\\*FractionBox[\\\"1\\\", \\\"4\\\"]\\), ntrans = \\!\\(\\*FractionBox[\
\\\"1\\\", \\\"4\\\"]\\))\"\>"}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
       
       GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
      "Column"]}
   },
   DefaultBaseStyle->"Column",
   GridBoxAlignment->{"Columns" -> {{Left}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
  "Column"]], "Output",
 CellChangeTimes->{
  3.7500138440983496`*^9, 3.7500139008816037`*^9, 3.7500139572195873`*^9, 
   3.7500178177573423`*^9, 3.7500179976867704`*^9, 3.750018356898732*^9, 
   3.7501575205670977`*^9, 3.7503401784310093`*^9, 3.750375888553584*^9, 
   3.75037644234317*^9, 3.7503767340146837`*^9, 3.7503775270770516`*^9, 
   3.7503775807286077`*^9, {3.7503779956165085`*^9, 3.7503780074658318`*^9}, 
   3.750685266269454*^9, 3.752520783203992*^9, 3.752587109233305*^9, 
   3.752587310779063*^9, 3.7539142520506077`*^9, 3.801831181363193*^9},
 CellLabel->"Out[77]=",ExpressionUUID->"a3aeefaf-9567-44b9-98cf-1afe070848aa"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraReport", "[", 
  RowBox[{"trans", ",", "0"}], "]"}]], "Input",
 CellChangeTimes->{{3.7506852877054853`*^9, 3.750685292487167*^9}},
 CellLabel->"In[78]:=",ExpressionUUID->"956bcd9b-b969-4924-84b8-f269fa828e8d"],

Cell[BoxData[
 TemplateBox[{
  "Part", "partd", 
   "\"Part specification \\!\\(\\*RowBox[{RowBox[{\\\"R\\\", \\\"[\\\", \
\\\"trans\\\", \\\"]\\\"}], \\\"\[LeftDoubleBracket]\\\", RowBox[{\\\"1\\\", \
\\\",\\\", \\\"1\\\"}], \\\"\[RightDoubleBracket]\\\"}]\\) is longer than \
depth of object.\"", 2, 78, 21, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7525207832239637`*^9, 3.7525871092707605`*^9, 
  3.752587313212493*^9, 3.7539142520975027`*^9, 3.801831181423091*^9},
 CellLabel->
  "During evaluation of \
In[78]:=",ExpressionUUID->"540f9d6b-09fb-40e6-a717-0243f3896da3"],

Cell[CellGroupData[{

Cell[BoxData["\<\"N = 4\"\>"], "Print",
 CellChangeTimes->{3.7525207832458744`*^9, 3.7525871092864203`*^9, 
  3.752587313228119*^9, 3.7539142520975027`*^9, 3.8018311814307747`*^9},
 CellLabel->
  "During evaluation of \
In[78]:=",ExpressionUUID->"9ccfe77f-64c1-47cc-a3b0-4b5c413225a8"],

Cell[BoxData["\<\"dbosons x dfermions = 4 \[Times] 4\"\>"], "Print",
 CellChangeTimes->{3.7525207832458744`*^9, 3.7525871092864203`*^9, 
  3.752587313228119*^9, 3.7539142520975027`*^9, 3.8018311814326878`*^9},
 CellLabel->
  "During evaluation of \
In[78]:=",ExpressionUUID->"6503a396-7fb9-48a5-b5cb-bfc510d70d9a"],

Cell[BoxData["\<\"Incorrect Dimensions\"\>"], "Print",
 CellChangeTimes->{3.7525207832458744`*^9, 3.7525871092864203`*^9, 
  3.752587313228119*^9, 3.7539142520975027`*^9, 3.801831181443618*^9},
 CellLabel->
  "During evaluation of \
In[78]:=",ExpressionUUID->"2e464a44-1a84-4f5a-96cf-4696a86f0b75"]
}, Open  ]],

Cell[BoxData["$Aborted"], "Output",
 CellChangeTimes->{3.7506852932281933`*^9, 3.752520783256848*^9, 
  3.7525871093020353`*^9, 3.75258731324374*^9, 3.7539142521131*^9, 
  3.801831181446603*^9},
 CellLabel->"Out[78]=",ExpressionUUID->"d3181d81-52ee-4e8f-9b0b-b93a16286a82"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraPreliminaryReportO", "[", "cis", "]"}]], "Input",
 CellChangeTimes->{{3.7503758970019755`*^9, 3.750375904771243*^9}},
 CellLabel->"In[79]:=",ExpressionUUID->"f43bfb41-6771-4303-81c6-bedc21618fe2"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"Rep = cis\"\>"},
    {
     TagBox[GridBox[{
        {"\<\"N = 4\"\>"},
        {"\<\"dbosons x dfermions = 4 \[Times] 4\"\>"},
        {"\<\"GATest = True\"\>"},
        {"\<\"InverseTest = True\"\>"},
        {"\<\"TransposeTest = True\"\>"},
        {"\<\"chi0 = \\!\\(\\*RowBox[{\\\"1\\\"}]\\), (ncis = \
\\!\\(\\*RowBox[{\\\"1\\\"}]\\), ntrans = \
\\!\\(\\*RowBox[{\\\"0\\\"}]\\))\"\>"}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
       
       GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
      "Column"]}
   },
   DefaultBaseStyle->"Column",
   GridBoxAlignment->{"Columns" -> {{Left}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
  "Column"]], "Output",
 CellChangeTimes->{
  3.750375905342717*^9, 3.750376442371127*^9, 3.7503767340904818`*^9, 
   3.7503775270919905`*^9, 3.7503775807465763`*^9, {3.7503779956325235`*^9, 
   3.7503780074817886`*^9}, 3.750685266291278*^9, 3.7525207832807455`*^9, 
   3.7525871093176565`*^9, 3.752587315680451*^9, 3.7539142521287155`*^9, 
   3.801831181463361*^9},
 CellLabel->"Out[79]=",ExpressionUUID->"3618a942-b7e6-4e94-afc9-52eba055a1a9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraPreliminaryReport", "[", 
  RowBox[{"-", "734262"}], "]"}]], "Input",
 CellChangeTimes->{{3.7503759068017783`*^9, 3.7503759241115046`*^9}},
 CellLabel->"In[80]:=",ExpressionUUID->"7092c46a-3c86-46c0-bb32-a830684b254d"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"Rep = -734262\"\>"},
    {
     TagBox[GridBox[{
        {"\<\"N = 4\"\>"},
        {"\<\"dbosons x dfermions = 4 \[Times] 4\"\>"},
        {"\<\"GATest = True\"\>"},
        {"\<\"InverseTest = True\"\>"},
        {"\<\"TransposeTest = True\"\>"},
        {"\<\"chi0 = \\!\\(\\*RowBox[{\\\"-\\\", \\\"1\\\"}]\\), (ncis = \
\\!\\(\\*RowBox[{\\\"0\\\"}]\\), ntrans = \
\\!\\(\\*RowBox[{\\\"1\\\"}]\\))\"\>"}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
       
       GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
      "Column"]}
   },
   DefaultBaseStyle->"Column",
   GridBoxAlignment->{"Columns" -> {{Left}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
  "Column"]], "Output",
 CellChangeTimes->{
  3.750375914049408*^9, 3.7503764424399433`*^9, 3.7503767341712847`*^9, 
   3.750377527108947*^9, 3.750377580833373*^9, {3.75037799571826*^9, 
   3.750378007499772*^9}, 3.7506852664392796`*^9, 3.752520783332656*^9, 
   3.7525871093645253`*^9, 3.7525873176105814`*^9, 3.753914252144335*^9, 
   3.80183118152318*^9},
 CellLabel->"Out[80]=",ExpressionUUID->"dd720eed-43e6-41b1-b535-325defd9bbde"]
}, Open  ]],

Cell["\<\
Need to use AdinkraPreliminaryReportO[-734262] as never stored the R matrices \
for this Rep\
\>", "Text",
 CellChangeTimes->{{3.7503759393427877`*^9, 
  3.750375955459737*^9}},ExpressionUUID->"335e126e-28d6-4f60-8c2b-\
a4dfa163ebfc"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraPreliminaryReportO", "[", 
  RowBox[{"-", "734262"}], "]"}]], "Input",
 CellChangeTimes->{{3.7503759068017783`*^9, 3.75037593153566*^9}},
 CellLabel->"In[81]:=",ExpressionUUID->"543582c0-bd09-438d-abaf-0f3d98218d8b"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"Rep = -734262\"\>"},
    {
     TagBox[GridBox[{
        {"\<\"N = 4\"\>"},
        {"\<\"dbosons x dfermions = 4 \[Times] 4\"\>"},
        {"\<\"GATest = True\"\>"},
        {"\<\"InverseTest = True\"\>"},
        {"\<\"TransposeTest = True\"\>"},
        {"\<\"chi0 = \\!\\(\\*RowBox[{\\\"-\\\", \\\"1\\\"}]\\), (ncis = \
\\!\\(\\*RowBox[{\\\"0\\\"}]\\), ntrans = \
\\!\\(\\*RowBox[{\\\"1\\\"}]\\))\"\>"}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
       
       GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
      "Column"]}
   },
   DefaultBaseStyle->"Column",
   GridBoxAlignment->{"Columns" -> {{Left}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
  "Column"]], "Output",
 CellChangeTimes->{{3.750375914049408*^9, 3.7503759325539713`*^9}, 
   3.7503764425007496`*^9, 3.7503767342032127`*^9, 3.7503775271249037`*^9, 
   3.7503775809131565`*^9, {3.7503779957371855`*^9, 3.7503780075187163`*^9}, 
   3.750685266497861*^9, 3.7525207833565917`*^9, 3.752587109395767*^9, 
   3.752587323928383*^9, 3.7539142521599865`*^9, 3.801831181598714*^9},
 CellLabel->"Out[81]=",ExpressionUUID->"81bebad7-113e-4ad6-a789-aceb382e7023"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["GenerateData", "Subsection",
 CellChangeTimes->{{3.7465467019326925`*^9, 3.7465467038850803`*^9}, {
  3.7466372036514473`*^9, 
  3.746637205151452*^9}},ExpressionUUID->"e03573b4-78bb-43be-b928-\
1a439be2cfc5"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GenerateAdinkraData", "[", 
  RowBox[{"Q", ",", "Orthogonal"}], "]"}]], "Input",
 CellChangeTimes->{{3.7465415799618587`*^9, 3.7465415877247562`*^9}, {
  3.750375967509491*^9, 3.750375971075992*^9}},
 CellLabel->"In[82]:=",ExpressionUUID->"11d861ca-5bf8-40dc-aa07-b502f593aedf"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    82, 22, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7503775809699607`*^9, {3.750377995798023*^9, 3.7503780075695906`*^9}, 
   3.750685266563348*^9, 3.75252078339548*^9, 3.7525873405780563`*^9, 
   3.7539142522068453`*^9, 3.801831181667157*^9},
 CellLabel->
  "During evaluation of \
In[82]:=",ExpressionUUID->"8c66d16a-e0e8-4d3b-aa09-3c6373cd5215"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    82, 23, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7503775809699607`*^9, {3.750377995798023*^9, 3.7503780075695906`*^9}, 
   3.750685266563348*^9, 3.75252078339548*^9, 3.7525873405780563`*^9, 
   3.7539142522068453`*^9, 3.801831181668302*^9},
 CellLabel->
  "During evaluation of \
In[82]:=",ExpressionUUID->"a13994fe-93b1-49a4-9cd7-e7c2f15153c8"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    82, 24, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7503775809699607`*^9, {3.750377995798023*^9, 3.7503780075695906`*^9}, 
   3.750685266563348*^9, 3.75252078339548*^9, 3.7525873405780563`*^9, 
   3.7539142522068453`*^9, 3.801831181674963*^9},
 CellLabel->
  "During evaluation of \
In[82]:=",ExpressionUUID->"6648d8b7-5dcb-4a0a-a773-a408c65b8fc9"],

Cell[BoxData[
 TemplateBox[{
  "General", "stop", 
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Solve\\\", \\\"::\\\", \
\\\"svars\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"", 2, 82, 25, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7503775809699607`*^9, {3.750377995798023*^9, 3.7503780075695906`*^9}, 
   3.750685266563348*^9, 3.75252078339548*^9, 3.7525873405780563`*^9, 
   3.7539142522068453`*^9, 3.80183118168052*^9},
 CellLabel->
  "During evaluation of \
In[82]:=",ExpressionUUID->"392caaa7-0f64-4e43-8904-4dfff58f047b"],

Cell[BoxData["\<\"chi0, ncis, ntrans, VPM[pm], VtildePM[pm], L, R, GALR, \
GARL, V, Vtilde, ZetaGen, Holoraumy[Rep], Monodromy[Rep], ZetatildeGen, \
Holoraumytilde[Rep], Monodromytilde[Rep], cSoln[V], cSoln[Vtilde] are loaded \
for Rep = Q\"\>"], "Print",
 CellChangeTimes->{
  3.7503775810049*^9, {3.7503779958109894`*^9, 3.7503780075755424`*^9}, 
   3.750685266567266*^9, 3.7525207834134235`*^9, 3.7525873406322603`*^9, 
   3.7539142522224646`*^9, 3.8018311816879272`*^9},
 CellLabel->
  "During evaluation of \
In[82]:=",ExpressionUUID->"694ecaa4-545d-4e68-9963-637453072470"],

Cell[BoxData[
 RowBox[{"{", "Null", "}"}]], "Output",
 CellChangeTimes->{
  3.7500138441990356`*^9, 3.750013904138338*^9, 3.750013960426721*^9, 
   3.750017817817856*^9, 3.750017997770099*^9, 3.7500183569973927`*^9, 
   3.7501575207427053`*^9, 3.7503401785560107`*^9, 3.750375977371128*^9, 
   3.7503764425855255`*^9, 3.750376734286955*^9, 3.7503775271408896`*^9, 
   3.750377581007859*^9, {3.750377995813013*^9, 3.7503780075775323`*^9}, 
   3.7506852665682573`*^9, 3.752520783416423*^9, 3.752587340635252*^9, 
   3.7539142522224646`*^9, 3.801831181690238*^9},
 CellLabel->"Out[82]=",ExpressionUUID->"0efee4d9-ff0c-4b72-a8e2-188d9cd2078d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GenerateCoeffs", "[", "Q", "]"}]], "Input",
 CellChangeTimes->{{3.7466372576407504`*^9, 3.7466372607661467`*^9}},
 CellLabel->"In[83]:=",ExpressionUUID->"40af9dd1-4a5e-4aad-925e-53e75fcd41fe"],

Cell[BoxData[
 RowBox[{"{", "\<\"LCoeffs, RCoeffs, GALRCoeffs, GARLCoeffs, VCoeffs, \
VtildeCoeffs, VPMCoeffs, VtildePMCoeffs and CMessage[Rep][mi,si] are loaded \
for Rep = Q\"\>", "}"}]], "Output",
 CellChangeTimes->{
  3.750013844270032*^9, 3.7500139041988893`*^9, 3.7500139605169935`*^9, 
   3.750017817864975*^9, 3.750017997816723*^9, 3.7500183570926657`*^9, 
   3.7501575209069257`*^9, 3.750340178634117*^9, 3.7503759812856946`*^9, 
   3.750376442636411*^9, 3.7503767343517823`*^9, 3.75037752715886*^9, 
   3.750377581052779*^9, {3.7503779958588905`*^9, 3.750378007623418*^9}, 
   3.75068526662435*^9, 3.752520783438376*^9, 3.752587340741117*^9, 
   3.753914252269331*^9, 3.801831181748519*^9},
 CellLabel->"Out[83]=",ExpressionUUID->"61e2c61f-3376-4f77-ab54-e10e6c83545f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GenerateAdinkraData", "[", 
  RowBox[{"Qtilde", ",", "Orthogonal"}], "]"}]], "Input",
 CellChangeTimes->{{3.747400544052637*^9, 3.7474005523957186`*^9}, {
  3.7503759835775623`*^9, 3.7503759873754196`*^9}},
 CellLabel->"In[84]:=",ExpressionUUID->"8e6616e1-659f-44c6-8b48-cc370e0423b6"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    84, 26, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7503775810996265`*^9, {3.7503779959007473`*^9, 3.7503780076872816`*^9}, 
   3.7506852666778736`*^9, 3.7525207834842496`*^9, 3.7525873407567368`*^9, 
   3.7539142523161697`*^9, 3.801831181816379*^9},
 CellLabel->
  "During evaluation of \
In[84]:=",ExpressionUUID->"321328f0-96ba-4280-9e2b-87b5f67d035e"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    84, 27, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7503775810996265`*^9, {3.7503779959007473`*^9, 3.7503780076872816`*^9}, 
   3.7506852666778736`*^9, 3.7525207834842496`*^9, 3.7525873407567368`*^9, 
   3.7539142523161697`*^9, 3.8018311818175173`*^9},
 CellLabel->
  "During evaluation of \
In[84]:=",ExpressionUUID->"05e1f208-f4e3-4337-83ba-81e658e14fe0"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    84, 28, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7503775810996265`*^9, {3.7503779959007473`*^9, 3.7503780076872816`*^9}, 
   3.7506852666778736`*^9, 3.7525207834842496`*^9, 3.7525873407567368`*^9, 
   3.7539142523161697`*^9, 3.801831181823052*^9},
 CellLabel->
  "During evaluation of \
In[84]:=",ExpressionUUID->"be7e8a80-f006-4281-ac45-42ae8323f72a"],

Cell[BoxData[
 TemplateBox[{
  "General", "stop", 
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Solve\\\", \\\"::\\\", \
\\\"svars\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"", 2, 84, 29, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7503775810996265`*^9, {3.7503779959007473`*^9, 3.7503780076872816`*^9}, 
   3.7506852666778736`*^9, 3.7525207834842496`*^9, 3.7525873407567368`*^9, 
   3.7539142523161697`*^9, 3.801831181828491*^9},
 CellLabel->
  "During evaluation of \
In[84]:=",ExpressionUUID->"0c836a50-5b05-455b-a99a-e5695105db53"],

Cell[BoxData["\<\"chi0, ncis, ntrans, VPM[pm], VtildePM[pm], L, R, GALR, \
GARL, V, Vtilde, ZetaGen, Holoraumy[Rep], Monodromy[Rep], ZetatildeGen, \
Holoraumytilde[Rep], Monodromytilde[Rep], cSoln[V], cSoln[Vtilde] are loaded \
for Rep = Qtilde\"\>"], "Print",
 CellChangeTimes->{
  3.750377581135519*^9, {3.750377995903783*^9, 3.750378007692227*^9}, 
   3.7506852666869183`*^9, 3.752520783488249*^9, 3.752587340803601*^9, 
   3.7539142523474383`*^9, 3.8018311818341722`*^9},
 CellLabel->
  "During evaluation of \
In[84]:=",ExpressionUUID->"c24a4353-cb59-4eea-86da-07887710b45b"],

Cell[BoxData[
 RowBox[{"{", "Null", "}"}]], "Output",
 CellChangeTimes->{
  3.750013844344364*^9, 3.7500139042519283`*^9, 3.750013960587921*^9, 
   3.7500178179240417`*^9, 3.7500179978876514`*^9, 3.750018357195339*^9, 
   3.750157521056221*^9, 3.750340178712225*^9, 3.7503759881323614`*^9, 
   3.750376442706199*^9, 3.7503767344305973`*^9, 3.7503775271747694`*^9, 
   3.7503775811375136`*^9, {3.750377995905746*^9, 3.7503780076942525`*^9}, 
   3.750685266687909*^9, 3.752520783489236*^9, 3.752587340803601*^9, 
   3.7539142523474383`*^9, 3.801831181836985*^9},
 CellLabel->"Out[84]=",ExpressionUUID->"ccc7559e-688a-4d3c-92b5-10345bd0dc27"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GenerateCoeffs", "[", "Qtilde", "]"}]], "Input",
 CellChangeTimes->{{3.7474005543425474`*^9, 3.7474005619064236`*^9}},
 CellLabel->"In[85]:=",ExpressionUUID->"de94e08e-ce17-4179-abc0-6325203d8a8f"],

Cell[BoxData[
 RowBox[{"{", "\<\"LCoeffs, RCoeffs, GALRCoeffs, GARLCoeffs, VCoeffs, \
VtildeCoeffs, VPMCoeffs, VtildePMCoeffs and CMessage[Rep][mi,si] are loaded \
for Rep = Qtilde\"\>", "}"}]], "Output",
 CellChangeTimes->{
  3.7500138444048758`*^9, 3.7500139042842107`*^9, 3.7500139606449614`*^9, 
   3.75001781799245*^9, 3.7500179979342756`*^9, 3.7500183572484093`*^9, 
   3.7501575211475167`*^9, 3.7503401787434673`*^9, 3.7503759916998243`*^9, 
   3.750376442761084*^9, 3.750376734459496*^9, 3.750377527189728*^9, 
   3.7503775811824265`*^9, {3.7503779959436584`*^9, 3.75037800773512*^9}, 
   3.750685266742469*^9, 3.752520783533148*^9, 3.7525873408192215`*^9, 
   3.753914252394308*^9, 3.801831181895402*^9},
 CellLabel->"Out[85]=",ExpressionUUID->"30d4fb08-afd4-415d-9d1a-39175fb50317"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GenerateAdinkraData", "[", 
  RowBox[{"CM", ",", "Orthogonal"}], "]"}]], "Input",
 CellChangeTimes->{{3.746541592059282*^9, 3.746541599884307*^9}, {
  3.750375993889007*^9, 3.7503759972958994`*^9}},
 CellLabel->"In[86]:=",ExpressionUUID->"ee72204d-86a8-4ca6-87d3-d141c3495048"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    86, 30, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.750377581232295*^9, {3.7503779959875164`*^9, 3.7503780077789936`*^9}, 
   3.7506852667985163`*^9, 3.752520783579002*^9, 3.752587340855014*^9, 
   3.7539142524255495`*^9, 3.801831181963488*^9},
 CellLabel->
  "During evaluation of \
In[86]:=",ExpressionUUID->"d858709d-6082-428e-9695-fade868917c2"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    86, 31, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.750377581232295*^9, {3.7503779959875164`*^9, 3.7503780077789936`*^9}, 
   3.7506852667985163`*^9, 3.752520783579002*^9, 3.752587340855014*^9, 
   3.7539142524255495`*^9, 3.801831181964829*^9},
 CellLabel->
  "During evaluation of \
In[86]:=",ExpressionUUID->"be272b37-4070-4c00-9f58-503b6a78d5bf"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    86, 32, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.750377581232295*^9, {3.7503779959875164`*^9, 3.7503780077789936`*^9}, 
   3.7506852667985163`*^9, 3.752520783579002*^9, 3.752587340855014*^9, 
   3.7539142524255495`*^9, 3.801831181970655*^9},
 CellLabel->
  "During evaluation of \
In[86]:=",ExpressionUUID->"c564770c-fb39-43ea-ac11-34af5defcbf6"],

Cell[BoxData[
 TemplateBox[{
  "General", "stop", 
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Solve\\\", \\\"::\\\", \
\\\"svars\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"", 2, 86, 33, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.750377581232295*^9, {3.7503779959875164`*^9, 3.7503780077789936`*^9}, 
   3.7506852667985163`*^9, 3.752520783579002*^9, 3.752587340855014*^9, 
   3.7539142524255495`*^9, 3.801831181978138*^9},
 CellLabel->
  "During evaluation of \
In[86]:=",ExpressionUUID->"d94d20b0-26ed-4e22-81ae-1c839de80f5b"],

Cell[BoxData["\<\"chi0, ncis, ntrans, VPM[pm], VtildePM[pm], L, R, GALR, \
GARL, V, Vtilde, ZetaGen, Holoraumy[Rep], Monodromy[Rep], ZetatildeGen, \
Holoraumytilde[Rep], Monodromytilde[Rep], cSoln[V], cSoln[Vtilde] are loaded \
for Rep = CM\"\>"], "Print",
 CellChangeTimes->{
  3.750377581268194*^9, {3.7503779959915366`*^9, 3.7503780077839813`*^9}, 
   3.7506852668025227`*^9, 3.7525207835820045`*^9, 3.7525873408802013`*^9, 
   3.753914252441166*^9, 3.801831181985345*^9},
 CellLabel->
  "During evaluation of \
In[86]:=",ExpressionUUID->"90a14450-f5d2-4fbd-8d17-ced11ae71f10"],

Cell[BoxData[
 RowBox[{"{", "Null", "}"}]], "Output",
 CellChangeTimes->{
  3.750013844477787*^9, 3.7500139043531065`*^9, 3.7500139607332487`*^9, 
   3.750017818051504*^9, 3.750017997990323*^9, 3.750018357362288*^9, 
   3.7501575212755284`*^9, 3.7503401788215723`*^9, 3.750375997952111*^9, 
   3.7503764428268785`*^9, 3.7503767345372868`*^9, 3.750377527204692*^9, 
   3.7503775812711563`*^9, {3.750377995993502*^9, 3.7503780077859764`*^9}, 
   3.750685266804016*^9, 3.75252078358397*^9, 3.7525873408802013`*^9, 
   3.753914252441166*^9, 3.801831181986867*^9},
 CellLabel->"Out[86]=",ExpressionUUID->"834e65eb-9538-4b83-a208-d41ceb832370"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GenerateCoeffs", "[", "CM", "]"}]], "Input",
 CellChangeTimes->{{3.7466372675013714`*^9, 3.7466372712514753`*^9}},
 CellLabel->"In[87]:=",ExpressionUUID->"dff4906c-6364-4489-8830-d50abdb8dc43"],

Cell[BoxData[
 RowBox[{"{", "\<\"LCoeffs, RCoeffs, GALRCoeffs, GARLCoeffs, VCoeffs, \
VtildeCoeffs, VPMCoeffs, VtildePMCoeffs and CMessage[Rep][mi,si] are loaded \
for Rep = CM\"\>", "}"}]], "Output",
 CellChangeTimes->{
  3.7500138445378036`*^9, 3.750013904386876*^9, 3.750013960790785*^9, 
   3.7500178181006813`*^9, 3.750017998035996*^9, 3.7500183573925476`*^9, 
   3.750157521362854*^9, 3.7503401788684072`*^9, 3.7503760011246605`*^9, 
   3.7503764428966904`*^9, 3.7503767345871525`*^9, 3.7503775272196493`*^9, 
   3.750377581316036*^9, {3.7503779960334253`*^9, 3.7503780078278646`*^9}, 
   3.7506852668401794`*^9, 3.752520783626862*^9, 3.7525873409583545`*^9, 
   3.753914252488031*^9, 3.80183118209566*^9},
 CellLabel->"Out[87]=",ExpressionUUID->"18a58090-07f3-4b9e-9d65-d82d8ae365af"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GenerateAdinkraData", "[", 
  RowBox[{"TM", ",", "Orthogonal"}], "]"}]], "Input",
 CellChangeTimes->{{3.746541592059282*^9, 3.7465416089889097`*^9}, {
  3.750376012741575*^9, 3.750376016283109*^9}},
 CellLabel->"In[88]:=",ExpressionUUID->"aaaba27f-a7f9-4a62-ad1e-e8d113ceaa13"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    88, 34, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7503775813629417`*^9, {3.7503779960742846`*^9, 3.7503780078737574`*^9}, 
   3.750685266877392*^9, 3.7525207836497993`*^9, 3.7525873409895577`*^9, 
   3.7539142525250654`*^9, 3.801831182155326*^9},
 CellLabel->
  "During evaluation of \
In[88]:=",ExpressionUUID->"0001df0f-79d0-459b-90ea-62356731cf9b"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    88, 35, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7503775813629417`*^9, {3.7503779960742846`*^9, 3.7503780078737574`*^9}, 
   3.750685266877392*^9, 3.7525207836497993`*^9, 3.7525873409895577`*^9, 
   3.7539142525250654`*^9, 3.80183118215648*^9},
 CellLabel->
  "During evaluation of \
In[88]:=",ExpressionUUID->"0970b349-97ad-4d1b-bb29-845f9779cf4b"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    88, 36, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7503775813629417`*^9, {3.7503779960742846`*^9, 3.7503780078737574`*^9}, 
   3.750685266877392*^9, 3.7525207836497993`*^9, 3.7525873409895577`*^9, 
   3.7539142525250654`*^9, 3.801831182161272*^9},
 CellLabel->
  "During evaluation of \
In[88]:=",ExpressionUUID->"796500d2-3a1e-4cc2-a40d-4c40da27d329"],

Cell[BoxData[
 TemplateBox[{
  "General", "stop", 
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Solve\\\", \\\"::\\\", \
\\\"svars\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"", 2, 88, 37, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7503775813629417`*^9, {3.7503779960742846`*^9, 3.7503780078737574`*^9}, 
   3.750685266877392*^9, 3.7525207836497993`*^9, 3.7525873409895577`*^9, 
   3.7539142525250654`*^9, 3.801831182165797*^9},
 CellLabel->
  "During evaluation of \
In[88]:=",ExpressionUUID->"747c1efb-95d1-45f6-bfd2-78b5d44829b6"],

Cell[BoxData["\<\"chi0, ncis, ntrans, VPM[pm], VtildePM[pm], L, R, GALR, \
GARL, V, Vtilde, ZetaGen, Holoraumy[Rep], Monodromy[Rep], ZetatildeGen, \
Holoraumytilde[Rep], Monodromytilde[Rep], cSoln[V], cSoln[Vtilde] are loaded \
for Rep = TM\"\>"], "Print",
 CellChangeTimes->{
  3.750377581402856*^9, {3.75037799607832*^9, 3.7503780078787284`*^9}, 
   3.7506852668808527`*^9, 3.7525207836657515`*^9, 3.7525873410207944`*^9, 
   3.7539142525450273`*^9, 3.801831182171056*^9},
 CellLabel->
  "During evaluation of \
In[88]:=",ExpressionUUID->"bcac0730-c935-4444-9511-ad38742565d9"],

Cell[BoxData[
 RowBox[{"{", "Null", "}"}]], "Output",
 CellChangeTimes->{
  3.7500138446027794`*^9, 3.7500139044314747`*^9, 3.750013960882049*^9, 
   3.750017818160694*^9, 3.750017998106883*^9, 3.750018357469917*^9, 
   3.7501575214968224`*^9, 3.750340178946538*^9, 3.7503764429625463`*^9, 
   3.750376734661954*^9, 3.7503775272356052`*^9, 3.7503775814057965`*^9, {
   3.750377996080274*^9, 3.7503780078807774`*^9}, 3.7506852668823404`*^9, 
   3.7525207836667747`*^9, 3.7525873410207944`*^9, 3.7539142525450273`*^9, 
   3.8018311821751413`*^9},
 CellLabel->"Out[88]=",ExpressionUUID->"0ca3ef7b-066a-49f2-86f7-42c25fe3eec1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GenerateCoeffs", "[", "TM", "]"}]], "Input",
 CellChangeTimes->{{3.7466372776428823`*^9, 3.746637280986852*^9}},
 CellLabel->"In[89]:=",ExpressionUUID->"5fbb09ed-0f46-4853-bd12-598cc37935c3"],

Cell[BoxData[
 RowBox[{"{", "\<\"LCoeffs, RCoeffs, GALRCoeffs, GARLCoeffs, VCoeffs, \
VtildeCoeffs, VPMCoeffs, VtildePMCoeffs and CMessage[Rep][mi,si] are loaded \
for Rep = TM\"\>", "}"}]], "Output",
 CellChangeTimes->{
  3.7500138446667624`*^9, 3.7500139044647064`*^9, 3.750013960939089*^9, 
   3.7500178182108*^9, 3.7500179981510267`*^9, 3.750018357519026*^9, 
   3.750157521584256*^9, 3.7503401789777555`*^9, 3.750376442991437*^9, 
   3.7503767347367797`*^9, 3.7503775272506046`*^9, 3.7503775814516735`*^9, {
   3.750377996120187*^9, 3.750378007925634*^9}, 3.7506852669553814`*^9, 
   3.752520783710638*^9, 3.75258734109896*^9, 3.753914252576296*^9, 
   3.801831182239223*^9},
 CellLabel->"Out[89]=",ExpressionUUID->"c22adda7-608e-408d-be3f-0d3904b1eaa3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GenerateAdinkraData", "[", 
  RowBox[{"VM", ",", "Orthogonal"}], "]"}]], "Input",
 CellChangeTimes->{{3.746541592059282*^9, 3.746541613452518*^9}, {
  3.750376021805379*^9, 3.7503760272119255`*^9}},
 CellLabel->"In[90]:=",ExpressionUUID->"fa582384-d837-4bcc-a682-3a7290c5147a"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    90, 38, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.750377581500567*^9, {3.750377996163048*^9, 3.7503780079704833`*^9}, 
   3.7506852670184097`*^9, 3.7525207837555323`*^9, 3.752587341138921*^9, 
   3.7539142526075134`*^9, 3.801831182317725*^9},
 CellLabel->
  "During evaluation of \
In[90]:=",ExpressionUUID->"fd1b21d2-e70e-463c-a8d7-5a902b66606a"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    90, 39, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.750377581500567*^9, {3.750377996163048*^9, 3.7503780079704833`*^9}, 
   3.7506852670184097`*^9, 3.7525207837555323`*^9, 3.752587341138921*^9, 
   3.7539142526075134`*^9, 3.801831182319648*^9},
 CellLabel->
  "During evaluation of \
In[90]:=",ExpressionUUID->"5e0fa6d2-717f-4583-ac29-9e2bf71cc1c0"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    90, 40, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.750377581500567*^9, {3.750377996163048*^9, 3.7503780079704833`*^9}, 
   3.7506852670184097`*^9, 3.7525207837555323`*^9, 3.752587341138921*^9, 
   3.7539142526075134`*^9, 3.801831182326174*^9},
 CellLabel->
  "During evaluation of \
In[90]:=",ExpressionUUID->"e3340937-ba28-4452-a143-70012267a89b"],

Cell[BoxData[
 TemplateBox[{
  "General", "stop", 
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Solve\\\", \\\"::\\\", \
\\\"svars\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"", 2, 90, 41, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.750377581500567*^9, {3.750377996163048*^9, 3.7503780079704833`*^9}, 
   3.7506852670184097`*^9, 3.7525207837555323`*^9, 3.752587341138921*^9, 
   3.7539142526075134`*^9, 3.8018311823328047`*^9},
 CellLabel->
  "During evaluation of \
In[90]:=",ExpressionUUID->"db2a3eb2-8301-4269-95b5-02683aec2583"],

Cell[BoxData["\<\"chi0, ncis, ntrans, VPM[pm], VtildePM[pm], L, R, GALR, \
GARL, V, Vtilde, ZetaGen, Holoraumy[Rep], Monodromy[Rep], ZetatildeGen, \
Holoraumytilde[Rep], Monodromytilde[Rep], cSoln[V], cSoln[Vtilde] are loaded \
for Rep = VM\"\>"], "Print",
 CellChangeTimes->{
  3.75037758153747*^9, {3.7503779961670694`*^9, 3.750378007976466*^9}, 
   3.75068526702234*^9, 3.752520783759522*^9, 3.752587341172456*^9, 
   3.7539142526387787`*^9, 3.8018311823394327`*^9},
 CellLabel->
  "During evaluation of \
In[90]:=",ExpressionUUID->"459341bd-1a14-4e7b-92ca-31bebb3a95c1"],

Cell[BoxData[
 RowBox[{"{", "Null", "}"}]], "Output",
 CellChangeTimes->{
  3.7500138447456264`*^9, 3.750013904509899*^9, 3.7500139610258884`*^9, 
   3.750017818269355*^9, 3.7500179982329216`*^9, 3.7500183576271124`*^9, 
   3.7501575217186766`*^9, 3.750340179055893*^9, 3.750376443056295*^9, 
   3.750376734812577*^9, 3.750377527265527*^9, 3.7503775815404387`*^9, {
   3.750377996169077*^9, 3.750378007977498*^9}, 3.750685267023331*^9, 
   3.752520783760514*^9, 3.752587341175448*^9, 3.7539142526387787`*^9, 
   3.801831182341548*^9},
 CellLabel->"Out[90]=",ExpressionUUID->"786eb50b-c910-4bde-a581-b896451ae218"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GenerateCoeffs", "[", "VM", "]"}]], "Input",
 CellChangeTimes->{{3.746637290284279*^9, 3.746637290831521*^9}},
 CellLabel->"In[91]:=",ExpressionUUID->"f7988676-7091-4c94-b213-f868799abcca"],

Cell[BoxData[
 RowBox[{"{", "\<\"LCoeffs, RCoeffs, GALRCoeffs, GARLCoeffs, VCoeffs, \
VtildeCoeffs, VPMCoeffs, VtildePMCoeffs and CMessage[Rep][mi,si] are loaded \
for Rep = VM\"\>", "}"}]], "Output",
 CellChangeTimes->{
  3.7500138448244915`*^9, 3.750013904531666*^9, 3.750013961086401*^9, 
   3.7500178183174305`*^9, 3.7500179982789955`*^9, 3.7500183576707973`*^9, 
   3.7501575218084583`*^9, 3.750340179087385*^9, 3.750376443107129*^9, 
   3.750376734869398*^9, 3.750377527281486*^9, 3.750377581584347*^9, {
   3.750377996208949*^9, 3.7503780080193515`*^9}, 3.750685267126664*^9, 
   3.752520783804426*^9, 3.7525873411922503`*^9, 3.753914252685621*^9, 
   3.8018311824017982`*^9},
 CellLabel->"Out[91]=",ExpressionUUID->"2ae3aeab-61e2-45a1-b2fc-75585241db52"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GenerateAdinkraData", "[", "ID", "]"}]], "Input",
 CellChangeTimes->{{3.746541592059282*^9, 3.7465416434290323`*^9}},
 CellLabel->"In[92]:=",ExpressionUUID->"479642ec-04be-4fb6-b543-3d805b0aecfa"],

Cell[BoxData["\<\"IncorrectDimensions, No Data Generated\"\>"], "Output",
 CellChangeTimes->{
  3.7500138448453655`*^9, 3.7500139045411386`*^9, 3.7500139611052485`*^9, 
   3.7500178183347893`*^9, 3.750017998302811*^9, 3.7500183576971025`*^9, 
   3.750157521898715*^9, 3.7503401791030083`*^9, 3.7503764431300917`*^9, 
   3.750376734898321*^9, 3.750377527294486*^9, 3.7503775815992794`*^9, {
   3.7503779962248993`*^9, 3.750378008035372*^9}, 3.7506852671435285`*^9, 
   3.7525207838223453`*^9, 3.7525873412078714`*^9, 3.7539142527012644`*^9, 
   3.801831182411641*^9},
 CellLabel->"Out[92]=",ExpressionUUID->"8adf886d-e61c-4d95-a997-e7f59c42c4f3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"GenerateCoeffs", "[", "ID", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"Need", " ", "to", " ", "fix", " ", "this"}], ",", " ", 
    RowBox[{
     RowBox[{"shouldn", "'"}], "t", " ", "generate", " ", "anything"}]}], " ",
    "*)"}]}]], "Input",
 CellChangeTimes->{{3.7466372989728503`*^9, 3.746637317724862*^9}},
 CellLabel->"In[93]:=",ExpressionUUID->"113168d3-3871-44ec-9397-44d52170786d"],

Cell[BoxData[
 TemplateBox[{
  "Outer", "heads", 
   "\"Heads \\!\\(\\*RowBox[{\\\"List\\\"}]\\) and \\!\\(\\*RowBox[{\\\"\
\[Omega]matrix\\\", \\\"[\\\", FractionBox[\\\"1\\\", \\\"2\\\"], \\\"]\\\"}]\
\\) at positions \\!\\(\\*RowBox[{\\\"3\\\"}]\\) and \\!\\(\\*RowBox[{\\\"2\\\
\"}]\\) are expected to be the same.\"", 2, 93, 42, 22685316216058037060, 
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.752520783839287*^9, 3.752587341259776*^9, 
  3.7539142527168627`*^9, 3.801831182492241*^9},
 CellLabel->
  "During evaluation of \
In[93]:=",ExpressionUUID->"3cd52ae9-74fd-4868-ab7c-2e6850f4c090"],

Cell[BoxData[
 TemplateBox[{
  "ArrayFlatten", "depth", 
   "\"The ArrayDepth of the expression at position 1 of \
\\!\\(\\*RowBox[{\\\"ArrayFlatten\\\", \\\"[\\\", RowBox[{\\\"Outer\\\", \
\\\"[\\\", RowBox[{\\\"Times\\\", \\\",\\\", \
RowBox[{RowBox[{\\\"\[Omega]matrix\\\", \\\"[\\\", FractionBox[\\\"1\\\", \
\\\"2\\\"], \\\"]\\\"}], \\\"[\\\", \\\"1\\\", \\\"]\\\"}], \\\",\\\", \
RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"{\\\", RowBox[{\\\"\[ImaginaryI]\\\", \
\\\",\\\", \\\"0\\\", \\\",\\\", \\\"0\\\", \\\",\\\", \\\"0\\\"}], \
\\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"0\\\", \\\",\\\", \
RowBox[{\\\"-\\\", \\\"\[ImaginaryI]\\\"}], \\\",\\\", \\\"0\\\", \\\",\\\", \
\\\"0\\\"}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"0\\\", \\\
\",\\\", \\\"0\\\", \\\",\\\", RowBox[{\\\"-\\\", \\\"\[ImaginaryI]\\\"}], \\\
\",\\\", \\\"0\\\"}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \
RowBox[{\\\"0\\\", \\\",\\\", \\\"0\\\", \\\",\\\", \\\"0\\\", \\\",\\\", \
\\\"\[ImaginaryI]\\\"}], \\\"}\\\"}]}], \\\"}\\\"}]}], \\\"]\\\"}], \
\\\"]\\\"}]\\) must be at least equal to the specified rank \\!\\(\\*RowBox[{\
\\\"2\\\"}]\\). (The rank is given by the optional second argument, which \
defaults to 2.)\"", 2, 93, 43, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.752520783839287*^9, 3.752587341259776*^9, 
  3.7539142527168627`*^9, 3.8018311824936953`*^9},
 CellLabel->
  "During evaluation of \
In[93]:=",ExpressionUUID->"83065537-c266-4b64-979b-423f1136b6f7"],

Cell[BoxData[
 TemplateBox[{
  "Outer", "heads", 
   "\"Heads \\!\\(\\*RowBox[{\\\"List\\\"}]\\) and \\!\\(\\*RowBox[{\\\"\
\[Omega]matrix\\\", \\\"[\\\", FractionBox[\\\"1\\\", \\\"2\\\"], \\\"]\\\"}]\
\\) at positions \\!\\(\\*RowBox[{\\\"3\\\"}]\\) and \\!\\(\\*RowBox[{\\\"2\\\
\"}]\\) are expected to be the same.\"", 2, 93, 44, 22685316216058037060, 
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.752520783839287*^9, 3.752587341259776*^9, 
  3.7539142527168627`*^9, 3.801831182507779*^9},
 CellLabel->
  "During evaluation of \
In[93]:=",ExpressionUUID->"e94619e8-5463-40b8-9b43-30a306dbcffc"],

Cell[BoxData[
 TemplateBox[{
  "ArrayFlatten", "depth", 
   "\"The ArrayDepth of the expression at position 1 of \
\\!\\(\\*RowBox[{\\\"ArrayFlatten\\\", \\\"[\\\", RowBox[{\\\"Outer\\\", \
\\\"[\\\", RowBox[{\\\"Times\\\", \\\",\\\", \
RowBox[{RowBox[{\\\"\[Omega]matrix\\\", \\\"[\\\", FractionBox[\\\"1\\\", \
\\\"2\\\"], \\\"]\\\"}], \\\"[\\\", \\\"1\\\", \\\"]\\\"}], \\\",\\\", \
RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"{\\\", RowBox[{\\\"0\\\", \\\",\\\", \
\\\"\[ImaginaryI]\\\", \\\",\\\", \\\"0\\\", \\\",\\\", \\\"0\\\"}], \
\\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"\[ImaginaryI]\\\", \
\\\",\\\", \\\"0\\\", \\\",\\\", \\\"0\\\", \\\",\\\", \\\"0\\\"}], \
\\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"0\\\", \\\",\\\", \
\\\"0\\\", \\\",\\\", \\\"0\\\", \\\",\\\", \\\"\[ImaginaryI]\\\"}], \
\\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"0\\\", \\\",\\\", \
\\\"0\\\", \\\",\\\", \\\"\[ImaginaryI]\\\", \\\",\\\", \\\"0\\\"}], \
\\\"}\\\"}]}], \\\"}\\\"}]}], \\\"]\\\"}], \\\"]\\\"}]\\) must be at least \
equal to the specified rank \\!\\(\\*RowBox[{\\\"2\\\"}]\\). (The rank is \
given by the optional second argument, which defaults to 2.)\"", 2, 93, 45, 
   22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.752520783839287*^9, 3.752587341259776*^9, 
  3.7539142527168627`*^9, 3.801831182514453*^9},
 CellLabel->
  "During evaluation of \
In[93]:=",ExpressionUUID->"665af2f6-7a9f-4e64-89a5-e85776610af8"],

Cell[BoxData[
 TemplateBox[{
  "Outer", "heads", 
   "\"Heads \\!\\(\\*RowBox[{\\\"List\\\"}]\\) and \\!\\(\\*RowBox[{\\\"\
\[Omega]matrix\\\", \\\"[\\\", FractionBox[\\\"1\\\", \\\"2\\\"], \\\"]\\\"}]\
\\) at positions \\!\\(\\*RowBox[{\\\"3\\\"}]\\) and \\!\\(\\*RowBox[{\\\"2\\\
\"}]\\) are expected to be the same.\"", 2, 93, 46, 22685316216058037060, 
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.752520783839287*^9, 3.752587341259776*^9, 
  3.7539142527168627`*^9, 3.801831182522407*^9},
 CellLabel->
  "During evaluation of \
In[93]:=",ExpressionUUID->"4f5126ac-ffe5-46b2-9ba0-6a09e370b03e"],

Cell[BoxData[
 TemplateBox[{
  "General", "stop", 
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Outer\\\", \\\"::\\\", \
\\\"heads\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"", 2, 93, 47, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.752520783839287*^9, 3.752587341259776*^9, 
  3.7539142527168627`*^9, 3.801831182528925*^9},
 CellLabel->
  "During evaluation of \
In[93]:=",ExpressionUUID->"453b61bf-ba7c-4dd3-90dc-c50dad49e305"],

Cell[BoxData[
 TemplateBox[{
  "ArrayFlatten", "depth", 
   "\"The ArrayDepth of the expression at position 1 of \
\\!\\(\\*RowBox[{\\\"ArrayFlatten\\\", \\\"[\\\", RowBox[{\\\"Outer\\\", \
\\\"[\\\", RowBox[{\\\"Times\\\", \\\",\\\", \
RowBox[{RowBox[{\\\"\[Omega]matrix\\\", \\\"[\\\", FractionBox[\\\"1\\\", \
\\\"2\\\"], \\\"]\\\"}], \\\"[\\\", \\\"1\\\", \\\"]\\\"}], \\\",\\\", \
RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"{\\\", RowBox[{\\\"0\\\", \\\",\\\", \
\\\"0\\\", \\\",\\\", RowBox[{\\\"-\\\", \\\"\[ImaginaryI]\\\"}], \\\",\\\", \
\\\"0\\\"}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"0\\\", \\\
\",\\\", \\\"0\\\", \\\",\\\", \\\"0\\\", \\\",\\\", \\\"\[ImaginaryI]\\\"}], \
\\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"-\\\", \\\"\
\[ImaginaryI]\\\"}], \\\",\\\", \\\"0\\\", \\\",\\\", \\\"0\\\", \\\",\\\", \
\\\"0\\\"}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"0\\\", \\\
\",\\\", \\\"\[ImaginaryI]\\\", \\\",\\\", \\\"0\\\", \\\",\\\", \\\"0\\\"}], \
\\\"}\\\"}]}], \\\"}\\\"}]}], \\\"]\\\"}], \\\"]\\\"}]\\) must be at least \
equal to the specified rank \\!\\(\\*RowBox[{\\\"2\\\"}]\\). (The rank is \
given by the optional second argument, which defaults to 2.)\"", 2, 93, 48, 
   22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.752520783839287*^9, 3.752587341259776*^9, 
  3.7539142527168627`*^9, 3.8018311825350027`*^9},
 CellLabel->
  "During evaluation of \
In[93]:=",ExpressionUUID->"3a9f7885-64bb-4e15-b438-38210c4907f6"],

Cell[BoxData[
 TemplateBox[{
  "General", "stop", 
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"ArrayFlatten\\\", \
\\\"::\\\", \\\"depth\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"", 2, 93, 49, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.752520783839287*^9, 3.752587341259776*^9, 
  3.7539142527168627`*^9, 3.801831182541778*^9},
 CellLabel->
  "During evaluation of \
In[93]:=",ExpressionUUID->"0a74b6d9-bd1e-4b9e-9faa-74d232b3c322"],

Cell[BoxData[
 TemplateBox[{
  "Part", "partd", 
   "\"Part specification \\!\\(\\*RowBox[{RowBox[{\\\"GARL\\\", \\\"[\\\", \\\
\"ID\\\", \\\"]\\\"}], \\\"\[LeftDoubleBracket]\\\", RowBox[{\\\"1\\\", \\\",\
\\\", \\\"1\\\"}], \\\"\[RightDoubleBracket]\\\"}]\\) is longer than depth of \
object.\"", 2, 93, 50, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.752520783839287*^9, 3.752587341259776*^9, 
  3.7539142527168627`*^9, 3.801831182547789*^9},
 CellLabel->
  "During evaluation of \
In[93]:=",ExpressionUUID->"2573d737-3fba-41e0-9ca0-defccaf76320"],

Cell[BoxData[
 TemplateBox[{
  "Part", "partd", 
   "\"Part specification \\!\\(\\*RowBox[{RowBox[{\\\"GARL\\\", \\\"[\\\", \\\
\"ID\\\", \\\"]\\\"}], \\\"\[LeftDoubleBracket]\\\", RowBox[{\\\"1\\\", \\\",\
\\\", \\\"1\\\"}], \\\"\[RightDoubleBracket]\\\"}]\\) is longer than depth of \
object.\"", 2, 93, 51, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.752520783839287*^9, 3.752587341259776*^9, 
  3.7539142527168627`*^9, 3.801831182552586*^9},
 CellLabel->
  "During evaluation of \
In[93]:=",ExpressionUUID->"6f93983d-b828-4c6d-8968-40b273c3a1a7"],

Cell[BoxData[
 TemplateBox[{
  "Part", "partd", 
   "\"Part specification \\!\\(\\*RowBox[{RowBox[{\\\"GARL\\\", \\\"[\\\", \\\
\"ID\\\", \\\"]\\\"}], \\\"\[LeftDoubleBracket]\\\", RowBox[{\\\"1\\\", \\\",\
\\\", \\\"1\\\"}], \\\"\[RightDoubleBracket]\\\"}]\\) is longer than depth of \
object.\"", 2, 93, 52, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.752520783839287*^9, 3.752587341259776*^9, 
  3.7539142527168627`*^9, 3.8018311825575657`*^9},
 CellLabel->
  "During evaluation of \
In[93]:=",ExpressionUUID->"1d9306d8-25ab-447c-af0d-ece72b588dcd"],

Cell[BoxData[
 TemplateBox[{
  "General", "stop", 
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Part\\\", \\\"::\\\", \
\\\"partd\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"", 2, 93, 53, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.752520783839287*^9, 3.752587341259776*^9, 
  3.7539142527168627`*^9, 3.80183118256229*^9},
 CellLabel->
  "During evaluation of \
In[93]:=",ExpressionUUID->"ec9833b8-2c74-4000-a061-b41e858101d8"],

Cell[BoxData[
 TemplateBox[{
  "Part", "partw", 
   "\"Part \\!\\(\\*RowBox[{\\\"2\\\"}]\\) of \\!\\(\\*RowBox[{\\\"GARL\\\", \
\\\"[\\\", \\\"ID\\\", \\\"]\\\"}]\\) does not exist.\"", 2, 93, 54, 
   22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.752520783839287*^9, 3.752587341259776*^9, 
  3.7539142527168627`*^9, 3.801831182567316*^9},
 CellLabel->
  "During evaluation of \
In[93]:=",ExpressionUUID->"35c0c1e4-11d7-4ec6-acee-7e4d9003af17"],

Cell[BoxData[
 TemplateBox[{
  "Part", "partw", 
   "\"Part \\!\\(\\*RowBox[{\\\"2\\\"}]\\) of \\!\\(\\*RowBox[{\\\"GARL\\\", \
\\\"[\\\", \\\"ID\\\", \\\"]\\\"}]\\) does not exist.\"", 2, 93, 55, 
   22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.752520783839287*^9, 3.752587341259776*^9, 
  3.7539142527168627`*^9, 3.801831182572216*^9},
 CellLabel->
  "During evaluation of \
In[93]:=",ExpressionUUID->"20206e09-8628-4560-b4ee-c8a807434b49"],

Cell[BoxData[
 TemplateBox[{
  "Part", "partw", 
   "\"Part \\!\\(\\*RowBox[{\\\"2\\\"}]\\) of \\!\\(\\*RowBox[{\\\"GARL\\\", \
\\\"[\\\", \\\"ID\\\", \\\"]\\\"}]\\) does not exist.\"", 2, 93, 56, 
   22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.752520783839287*^9, 3.752587341259776*^9, 
  3.7539142527168627`*^9, 3.801831182577396*^9},
 CellLabel->
  "During evaluation of \
In[93]:=",ExpressionUUID->"6ebec11a-7eb7-4348-8759-60ff226695c4"],

Cell[BoxData[
 TemplateBox[{
  "General", "stop", 
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Part\\\", \\\"::\\\", \
\\\"partw\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"", 2, 93, 57, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.752520783839287*^9, 3.752587341259776*^9, 
  3.7539142527168627`*^9, 3.801831182582457*^9},
 CellLabel->
  "During evaluation of \
In[93]:=",ExpressionUUID->"ab33bfe8-12ff-4460-ad87-a7a8ef6912a0"],

Cell[BoxData[
 RowBox[{"{", "\<\"RCoeffs, GARLCoeffs, VtildeCoeffs, VtildePMCoeffs and \
CMessage[Rep][mi,si] are loaded for Rep = ID\"\>", "}"}]], "Output",
 CellChangeTimes->{
  3.750013844862229*^9, 3.7500139045505524`*^9, 3.7500139611156654`*^9, 
   3.7500178183496704`*^9, 3.7500179983221846`*^9, 3.7500183577158966`*^9, 
   3.7501575219166107`*^9, 3.7503401791342525`*^9, 3.750376443153036*^9, 
   3.7503767349282603`*^9, 3.7503775273094096`*^9, 3.7503775816122856`*^9, {
   3.7503779962408705`*^9, 3.7503780080502696`*^9}, 3.750685267160391*^9, 
   3.7525207839340353`*^9, 3.752587341521425*^9, 3.7539142528574543`*^9, 
   3.801831182661869*^9},
 CellLabel->"Out[93]=",ExpressionUUID->"2aadd2d5-e9fe-405a-b602-c00ef98697f1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GenerateAdinkraData", "[", "OnShellCM", "]"}]], "Input",
 CellChangeTimes->{{3.7470755822440777`*^9, 3.7470755875531797`*^9}},
 CellLabel->"In[94]:=",ExpressionUUID->"4d43d35d-4ae9-41da-9113-febc59e5dccb"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    94, 58, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7503775816272416`*^9, {3.750377996257823*^9, 3.750378008064231*^9}, 
   3.7506852671767607`*^9, 3.752520783953994*^9, 3.7525873415370455`*^9, 
   3.7539142528887353`*^9, 3.8018311826759777`*^9},
 CellLabel->
  "During evaluation of \
In[94]:=",ExpressionUUID->"539fa803-6a77-4889-bfcb-99b8721e98e8"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    94, 59, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7503775816272416`*^9, {3.750377996257823*^9, 3.750378008064231*^9}, 
   3.7506852671767607`*^9, 3.752520783953994*^9, 3.7525873415370455`*^9, 
   3.7539142528887353`*^9, 3.801831182745348*^9},
 CellLabel->
  "During evaluation of \
In[94]:=",ExpressionUUID->"bdb53ebc-af12-4eaf-b5f1-5debb9b5090c"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    94, 60, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7503775816272416`*^9, {3.750377996257823*^9, 3.750378008064231*^9}, 
   3.7506852671767607`*^9, 3.752520783953994*^9, 3.7525873415370455`*^9, 
   3.7539142528887353`*^9, 3.801831182750453*^9},
 CellLabel->
  "During evaluation of \
In[94]:=",ExpressionUUID->"9f575167-aa19-4754-9b92-4c03fd745fd0"],

Cell[BoxData[
 TemplateBox[{
  "General", "stop", 
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Solve\\\", \\\"::\\\", \
\\\"svars\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"", 2, 94, 61, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7503775816272416`*^9, {3.750377996257823*^9, 3.750378008064231*^9}, 
   3.7506852671767607`*^9, 3.752520783953994*^9, 3.7525873415370455`*^9, 
   3.7539142528887353`*^9, 3.801831182755921*^9},
 CellLabel->
  "During evaluation of \
In[94]:=",ExpressionUUID->"8a81dc68-d692-4482-a33b-49132539c917"],

Cell[BoxData["\<\"chi0, ncis, ntrans, VPM[pm], VtildePM[pm], L, R, GALR, \
GARL, V, Vtilde, ZetaGen, Holoraumy[Rep], Monodromy[Rep], ZetatildeGen, \
Holoraumytilde[Rep], Monodromytilde[Rep], cSoln[V], cSoln[Vtilde] are loaded \
for Rep = OnShellCM\"\>"], "Print",
 CellChangeTimes->{
  3.75037758166713*^9, {3.750377996280744*^9, 3.7503780080891714`*^9}, 
   3.75068526719065*^9, 3.752520783970942*^9, 3.752587341568324*^9, 
   3.753914252904349*^9, 3.801831182761345*^9},
 CellLabel->
  "During evaluation of \
In[94]:=",ExpressionUUID->"2d5dd9e3-1803-437e-96b3-2bf59182fc7f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GenerateAdinkraData", "[", 
  RowBox[{"cis", ",", "Orthogonal"}], "]"}]], "Input",
 CellChangeTimes->{{3.7474004168359222`*^9, 3.7474004210986795`*^9}, {
  3.7503760331809626`*^9, 3.750376035939622*^9}},
 CellLabel->"In[95]:=",ExpressionUUID->"76aafec9-5a53-44b1-b25f-4979008d9699"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    95, 62, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.750377581723981*^9, {3.7503779963216543`*^9, 3.7503780081320524`*^9}, 
   3.750685267228387*^9, 3.752520784014823*^9, 3.7525873415839105`*^9, 
   3.7539142529199405`*^9, 3.801831182833651*^9},
 CellLabel->
  "During evaluation of \
In[95]:=",ExpressionUUID->"a5a3cfcd-3774-4d24-bde7-31cefb85b5a0"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    95, 63, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.750377581723981*^9, {3.7503779963216543`*^9, 3.7503780081320524`*^9}, 
   3.750685267228387*^9, 3.752520784014823*^9, 3.7525873415839105`*^9, 
   3.7539142529199405`*^9, 3.801831182834878*^9},
 CellLabel->
  "During evaluation of \
In[95]:=",ExpressionUUID->"4b7fa236-aebd-4a51-afef-f4153227b558"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    95, 64, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.750377581723981*^9, {3.7503779963216543`*^9, 3.7503780081320524`*^9}, 
   3.750685267228387*^9, 3.752520784014823*^9, 3.7525873415839105`*^9, 
   3.7539142529199405`*^9, 3.80183118284015*^9},
 CellLabel->
  "During evaluation of \
In[95]:=",ExpressionUUID->"60e18177-37af-4776-9984-5a520572d7ff"],

Cell[BoxData[
 TemplateBox[{
  "General", "stop", 
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Solve\\\", \\\"::\\\", \
\\\"svars\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"", 2, 95, 65, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.750377581723981*^9, {3.7503779963216543`*^9, 3.7503780081320524`*^9}, 
   3.750685267228387*^9, 3.752520784014823*^9, 3.7525873415839105`*^9, 
   3.7539142529199405`*^9, 3.801831182845893*^9},
 CellLabel->
  "During evaluation of \
In[95]:=",ExpressionUUID->"551e19f7-9541-4eb9-86dc-973385fb54bf"],

Cell[BoxData["\<\"chi0, ncis, ntrans, VPM[pm], VtildePM[pm], L, R, GALR, \
GARL, V, Vtilde, ZetaGen, Holoraumy[Rep], Monodromy[Rep], ZetatildeGen, \
Holoraumytilde[Rep], Monodromytilde[Rep], cSoln[V], cSoln[Vtilde] are loaded \
for Rep = cis\"\>"], "Print",
 CellChangeTimes->{
  3.750377581760878*^9, {3.7503779963276076`*^9, 3.750378008137046*^9}, 
   3.7506852672353373`*^9, 3.752520784018855*^9, 3.752587341617341*^9, 
   3.753914252951182*^9, 3.801831182851142*^9},
 CellLabel->
  "During evaluation of \
In[95]:=",ExpressionUUID->"a99de2a5-9c96-423c-880c-e0ab6d1c2993"],

Cell[BoxData[
 RowBox[{"{", "Null", "}"}]], "Output",
 CellChangeTimes->{
  3.7500138561977696`*^9, 3.7500139160240364`*^9, 3.750013972736944*^9, 
   3.7500178304500914`*^9, 3.7500180101528883`*^9, 3.750018357851838*^9, 
   3.7501575221901035`*^9, 3.7503401792436314`*^9, 3.750376443275708*^9, 
   3.750376735068865*^9, 3.7503775273622684`*^9, 3.7503775817638397`*^9, {
   3.7503779963286047`*^9, 3.7503780081380663`*^9}, 3.75068526723682*^9, 
   3.7525207840198107`*^9, 3.752587341632962*^9, 3.753914252951182*^9, 
   3.801831182855381*^9},
 CellLabel->"Out[95]=",ExpressionUUID->"cc3cc6fe-be5b-428f-8743-3520ab901894"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GenerateCoeffs", "[", "cis", "]"}]], "Input",
 CellChangeTimes->{{3.7474004943416567`*^9, 3.747400497322253*^9}},
 CellLabel->"In[96]:=",ExpressionUUID->"20291b62-487c-4263-b0bf-a791bcac3329"],

Cell[BoxData[
 RowBox[{"{", "\<\"LCoeffs, RCoeffs, GALRCoeffs, GARLCoeffs, VCoeffs, \
VtildeCoeffs, VPMCoeffs, VtildePMCoeffs and CMessage[Rep][mi,si] are loaded \
for Rep = cis\"\>", "}"}]], "Output",
 CellChangeTimes->{
  3.7500138562523537`*^9, 3.7500139160453124`*^9, 3.7500139727820807`*^9, 
   3.7500178304981966`*^9, 3.7500180101915383`*^9, 3.7500183578870535`*^9, 
   3.75015752228433*^9, 3.750340179274847*^9, 3.7503764433345203`*^9, 
   3.7503767351456604`*^9, 3.750377527376232*^9, 3.7503775818137364`*^9, {
   3.7503779963705187`*^9, 3.7503780081839633`*^9}, 3.7506852673015127`*^9, 
   3.752520784064692*^9, 3.7525873416485844`*^9, 3.7539142529980736`*^9, 
   3.801831182924469*^9},
 CellLabel->"Out[96]=",ExpressionUUID->"de4e4fb3-36bc-4d79-8cee-33e403ec3697"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GenerateAdinkraData", "[", 
  RowBox[{"trans", ",", "Orthogonal"}], "]"}]], "Input",
 CellChangeTimes->{{3.747400423860153*^9, 3.747400427738363*^9}, {
  3.750376043241104*^9, 3.7503760466639547`*^9}},
 CellLabel->"In[97]:=",ExpressionUUID->"1ba8cf33-3bfe-4172-82f0-89e5b1a6f22b"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    97, 66, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.750377581870553*^9, {3.750377996417371*^9, 3.7503780082268286`*^9}, 
   3.7506852673654985`*^9, 3.752520784174444*^9, 3.7525873417074594`*^9, 
   3.753914253029294*^9, 3.8018311830062933`*^9},
 CellLabel->
  "During evaluation of \
In[97]:=",ExpressionUUID->"f4828367-5ffa-4031-a0eb-d9fff9ebd7d8"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    97, 67, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.750377581870553*^9, {3.750377996417371*^9, 3.7503780082268286`*^9}, 
   3.7506852673654985`*^9, 3.752520784174444*^9, 3.7525873417074594`*^9, 
   3.753914253029294*^9, 3.801831183007472*^9},
 CellLabel->
  "During evaluation of \
In[97]:=",ExpressionUUID->"968a1a05-0370-4e4b-aa36-e2f881af1089"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    97, 68, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.750377581870553*^9, {3.750377996417371*^9, 3.7503780082268286`*^9}, 
   3.7506852673654985`*^9, 3.752520784174444*^9, 3.7525873417074594`*^9, 
   3.753914253029294*^9, 3.801831183012579*^9},
 CellLabel->
  "During evaluation of \
In[97]:=",ExpressionUUID->"253a63c6-3fb5-479e-bbd8-adc85fcb5a5c"],

Cell[BoxData[
 TemplateBox[{
  "General", "stop", 
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Solve\\\", \\\"::\\\", \
\\\"svars\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"", 2, 97, 69, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.750377581870553*^9, {3.750377996417371*^9, 3.7503780082268286`*^9}, 
   3.7506852673654985`*^9, 3.752520784174444*^9, 3.7525873417074594`*^9, 
   3.753914253029294*^9, 3.801831183018565*^9},
 CellLabel->
  "During evaluation of \
In[97]:=",ExpressionUUID->"c096c751-79e9-4997-9dab-d345ace92837"],

Cell[BoxData["\<\"chi0, ncis, ntrans, VPM[pm], VtildePM[pm], L, R, GALR, \
GARL, V, Vtilde, ZetaGen, Holoraumy[Rep], Monodromy[Rep], ZetatildeGen, \
Holoraumytilde[Rep], Monodromytilde[Rep], cSoln[V], cSoln[Vtilde] are loaded \
for Rep = trans\"\>"], "Print",
 CellChangeTimes->{
  3.750377581907466*^9, {3.750377996421357*^9, 3.750378008230819*^9}, 
   3.750685267369505*^9, 3.7525207841784515`*^9, 3.7525873417410746`*^9, 
   3.7539142530605307`*^9, 3.80183118302559*^9},
 CellLabel->
  "During evaluation of \
In[97]:=",ExpressionUUID->"a72b54ee-6779-49d0-a95c-a87d33a7c71c"],

Cell[BoxData[
 RowBox[{"{", "Null", "}"}]], "Output",
 CellChangeTimes->{
  3.750013856314361*^9, 3.750013916098881*^9, 3.7500139728520546`*^9, 
   3.750017830569124*^9, 3.750018010235218*^9, 3.7500183579475284`*^9, 
   3.7501575224193325`*^9, 3.750340179368602*^9, 3.7503764434033365`*^9, 
   3.750376735218465*^9, 3.7503775273901944`*^9, 3.750377581910447*^9, {
   3.750377996422354*^9, 3.750378008232782*^9}, 3.7506852673709526`*^9, 
   3.7525207841794353`*^9, 3.752587341743069*^9, 3.7539142530605307`*^9, 
   3.801831183027932*^9},
 CellLabel->"Out[97]=",ExpressionUUID->"f465777e-c1d1-4cf5-847b-1ff9ceb39ae9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GenerateCoeffs", "[", "trans", "]"}]], "Input",
 CellChangeTimes->{{3.7474004943416567`*^9, 3.7474005060579643`*^9}},
 CellLabel->"In[98]:=",ExpressionUUID->"799109d4-bdff-4f8b-975c-318c40e6e601"],

Cell[BoxData[
 RowBox[{"{", "\<\"LCoeffs, RCoeffs, GALRCoeffs, GARLCoeffs, VCoeffs, \
VtildeCoeffs, VPMCoeffs, VtildePMCoeffs and CMessage[Rep][mi,si] are loaded \
for Rep = trans\"\>", "}"}]], "Output",
 CellChangeTimes->{
  3.7500138563629713`*^9, 3.7500139161222377`*^9, 3.7500139728941965`*^9, 
   3.7500178306132684`*^9, 3.750018010317522*^9, 3.7500183580075445`*^9, 
   3.7501575225175123`*^9, 3.750340179415435*^9, 3.7503764434302936`*^9, 
   3.7503767352483854`*^9, 3.750377527405154*^9, 3.750377581985247*^9, {
   3.7503779964881935`*^9, 3.750378008275667*^9}, 3.7506852674318323`*^9, 
   3.752520784203949*^9, 3.7525873417904963`*^9, 3.7539142530917745`*^9, 
   3.8018311831902323`*^9},
 CellLabel->"Out[98]=",ExpressionUUID->"35ba6118-b722-4295-b651-17b0584c4d06"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GenerateAdinkraData", "[", 
  RowBox[{
   RowBox[{"-", "734262"}], ",", "Orthogonal"}], "]"}]], "Input",
 CellChangeTimes->{{3.747400429379917*^9, 3.7474004320110784`*^9}, {
  3.747400462546682*^9, 3.747400485875621*^9}, {3.750376051410262*^9, 
  3.7503760558314486`*^9}},
 CellLabel->"In[99]:=",ExpressionUUID->"6cb7573f-c5ff-4560-8e20-5b11562898d0"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    99, 70, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.750377582378203*^9, {3.7503779968791323`*^9, 3.750378008666621*^9}, 
   3.7506852678192277`*^9, 3.7525207845370207`*^9, 3.7525873421389484`*^9, 
   3.7539142535292015`*^9, 3.801831183645074*^9},
 CellLabel->
  "During evaluation of \
In[99]:=",ExpressionUUID->"e37fa8f2-01a5-48fa-ae54-1fb77137fb5c"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    99, 71, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.750377582378203*^9, {3.7503779968791323`*^9, 3.750378008666621*^9}, 
   3.7506852678192277`*^9, 3.7525207845370207`*^9, 3.7525873421389484`*^9, 
   3.7539142535292015`*^9, 3.801831183651763*^9},
 CellLabel->
  "During evaluation of \
In[99]:=",ExpressionUUID->"2b015b6b-1cd2-4ec5-a2ee-799d9e2516f7"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    99, 72, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.750377582378203*^9, {3.7503779968791323`*^9, 3.750378008666621*^9}, 
   3.7506852678192277`*^9, 3.7525207845370207`*^9, 3.7525873421389484`*^9, 
   3.7539142535292015`*^9, 3.801831183710663*^9},
 CellLabel->
  "During evaluation of \
In[99]:=",ExpressionUUID->"d49c235f-bfb7-4bc2-847c-c4db69692990"],

Cell[BoxData[
 TemplateBox[{
  "General", "stop", 
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Solve\\\", \\\"::\\\", \
\\\"svars\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"", 2, 99, 73, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.750377582378203*^9, {3.7503779968791323`*^9, 3.750378008666621*^9}, 
   3.7506852678192277`*^9, 3.7525207845370207`*^9, 3.7525873421389484`*^9, 
   3.7539142535292015`*^9, 3.801831183717103*^9},
 CellLabel->
  "During evaluation of \
In[99]:=",ExpressionUUID->"f65ec9e4-6cb1-4b30-bbad-d19c38321d97"],

Cell[BoxData["\<\"chi0, ncis, ntrans, VPM[pm], VtildePM[pm], L, R, GALR, \
GARL, V, Vtilde, ZetaGen, Holoraumy[Rep], Monodromy[Rep], ZetatildeGen, \
Holoraumytilde[Rep], Monodromytilde[Rep], cSoln[V], cSoln[Vtilde] are loaded \
for Rep = -734262\"\>"], "Print",
 CellChangeTimes->{
  3.7503775824519997`*^9, {3.750377996930995*^9, 3.750378008719482*^9}, 
   3.7506852678231955`*^9, 3.7525207846058702`*^9, 3.752587342201434*^9, 
   3.753914253578575*^9, 3.801831183723441*^9},
 CellLabel->
  "During evaluation of \
In[99]:=",ExpressionUUID->"194b049d-b1b7-4ef5-869d-900d52d3f07a"],

Cell[BoxData[
 RowBox[{"{", "Null", "}"}]], "Output",
 CellChangeTimes->{
  3.7500138567647285`*^9, 3.7500139165181923`*^9, 3.7500139733093295`*^9, 
   3.7500178310279245`*^9, 3.750018010742612*^9, 3.7500183584222*^9, 
   3.75015752293962*^9, 3.750340179868454*^9, 3.750376443887043*^9, 
   3.7503767358627434`*^9, 3.7503775274201136`*^9, 3.750377582455989*^9, {
   3.750377996932988*^9, 3.750378008721489*^9}, 3.7506852678252172`*^9, 
   3.752520784609857*^9, 3.752587342201434*^9, 3.753914253578575*^9, 
   3.8018311837256727`*^9},
 CellLabel->"Out[99]=",ExpressionUUID->"beb6693c-35fa-4887-8b4f-301ef62a5830"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GenerateCoeffs", "[", 
  RowBox[{"-", "734262"}], "]"}]], "Input",
 CellChangeTimes->{{3.7474004943416567`*^9, 3.7474005175761123`*^9}},
 CellLabel->
  "In[100]:=",ExpressionUUID->"576e1b5d-5fda-4c56-8575-e0a278eea541"],

Cell[BoxData[
 RowBox[{"{", "\<\"LCoeffs, RCoeffs, GALRCoeffs, GARLCoeffs, VCoeffs, \
VtildeCoeffs, VPMCoeffs, VtildePMCoeffs and CMessage[Rep][mi,si] are loaded \
for Rep = -734262\"\>", "}"}]], "Output",
 CellChangeTimes->{
  3.7500138573341365`*^9, 3.750013917066236*^9, 3.7500139738727846`*^9, 
   3.750017831581503*^9, 3.7500180113095393`*^9, 3.750018358969288*^9, 
   3.7501575234921513`*^9, 3.750340180524883*^9, 3.7503764446031604`*^9, 
   3.750376736672588*^9, 3.75037752743607*^9, 3.750377583119246*^9, {
   3.7503779975892344`*^9, 3.750378009410632*^9}, 3.7506852683733215`*^9, 
   3.7525207851696734`*^9, 3.752587342712288*^9, 3.7539142546720686`*^9, 
   3.801831184886923*^9},
 CellLabel->
  "Out[100]=",ExpressionUUID->"5766e25a-09f7-461e-95ed-ce44767df03b"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Reports", "Subsection",
 CellChangeTimes->{{3.7470770614487476`*^9, 
  3.7470770643362465`*^9}},ExpressionUUID->"aaa70124-41a5-4005-9140-\
8bbdc6c1c158"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraReport", "[", 
  RowBox[{"ID", ",", "3"}], "]"}]], "Input",
 CellChangeTimes->{{3.7424113527727633`*^9, 3.742411360224362*^9}, {
  3.750376467241642*^9, 3.7503764723400197`*^9}},
 CellLabel->
  "In[101]:=",ExpressionUUID->"2759e437-fc1b-4020-965b-dbddade31cd0"],

Cell[CellGroupData[{

Cell[BoxData["\<\"N = 4\"\>"], "Print",
 CellChangeTimes->{
  3.7503775831501637`*^9, {3.7503779976241417`*^9, 3.7503780094255924`*^9}, 
   3.7506852684412518`*^9, 3.752520785215619*^9, {3.7525873324429717`*^9, 
   3.7525873526125946`*^9}, 3.753914254718932*^9, 3.801831184962329*^9},
 CellLabel->
  "During evaluation of \
In[101]:=",ExpressionUUID->"6b971b18-dec2-42ac-8d67-af47e0fbe548"],

Cell[BoxData["\<\"dbosons x dfermions = 2 \[Times] 4\"\>"], "Print",
 CellChangeTimes->{
  3.7503775831501637`*^9, {3.7503779976241417`*^9, 3.7503780094255924`*^9}, 
   3.7506852684412518`*^9, 3.752520785215619*^9, {3.7525873324429717`*^9, 
   3.7525873526125946`*^9}, 3.753914254718932*^9, 3.8018311849658527`*^9},
 CellLabel->
  "During evaluation of \
In[101]:=",ExpressionUUID->"6228eb87-480d-4888-bb44-a86f904d211e"],

Cell[BoxData["\<\"Incorrect Dimensions\"\>"], "Print",
 CellChangeTimes->{
  3.7503775831501637`*^9, {3.7503779976241417`*^9, 3.7503780094255924`*^9}, 
   3.7506852684412518`*^9, 3.752520785215619*^9, {3.7525873324429717`*^9, 
   3.7525873526125946`*^9}, 3.753914254718932*^9, 3.801831184976404*^9},
 CellLabel->
  "During evaluation of \
In[101]:=",ExpressionUUID->"8cf20a1d-ddff-4101-a291-1d7f86e7ddb3"]
}, Open  ]],

Cell[BoxData["$Aborted"], "Output",
 CellChangeTimes->{
  3.750013857413623*^9, 3.750013917117324*^9, 3.750013973950238*^9, 
   3.75001783166436*^9, 3.750018011373027*^9, 3.7500183590139728`*^9, 
   3.750157523546711*^9, 3.7503401805561295`*^9, {3.7503764446270957`*^9, 
   3.7503764728356757`*^9}, 3.7503767367494*^9, 3.7503775274520307`*^9, 
   3.750377583162103*^9, {3.75037799763612*^9, 3.7503780094445615`*^9}, 
   3.750685268464072*^9, 3.752520785229595*^9, {3.7525873324585924`*^9, 
   3.7525873526136007`*^9}, 3.7539142547345843`*^9, 3.8018311849786377`*^9},
 CellLabel->
  "Out[101]=",ExpressionUUID->"329bbbfc-9f44-4495-abbb-d21185d916b8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraReport", "[", 
  RowBox[{"Q", ",", "3"}], "]"}]], "Input",
 CellChangeTimes->{{3.747774551494289*^9, 3.747774556704021*^9}, {
  3.750376481452654*^9, 3.7503764861082077`*^9}},
 CellLabel->
  "In[102]:=",ExpressionUUID->"45766bba-6a75-4ad3-95bc-c6bac0f4c879"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    102, 74, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.750377583210996*^9, {3.7503779976610427`*^9, 3.750378009488426*^9}, 
   3.750685268528011*^9, 3.7525207853113637`*^9, 3.7525873545840845`*^9, 
   3.7539142547970395`*^9, 3.801831185052981*^9},
 CellLabel->
  "During evaluation of \
In[102]:=",ExpressionUUID->"66689a74-732a-475d-972e-b86d12753021"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    102, 75, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.750377583210996*^9, {3.7503779976610427`*^9, 3.750378009488426*^9}, 
   3.750685268528011*^9, 3.7525207853113637`*^9, 3.7525873545840845`*^9, 
   3.7539142547970395`*^9, 3.801831185063436*^9},
 CellLabel->
  "During evaluation of \
In[102]:=",ExpressionUUID->"5577c0d5-84cd-4cc8-8c7f-95f27f1f70ac"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    102, 76, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.750377583210996*^9, {3.7503779976610427`*^9, 3.750378009488426*^9}, 
   3.750685268528011*^9, 3.7525207853113637`*^9, 3.7525873545840845`*^9, 
   3.7539142547970395`*^9, 3.801831185069511*^9},
 CellLabel->
  "During evaluation of \
In[102]:=",ExpressionUUID->"126012a6-de90-48af-9b04-74195dc2584e"],

Cell[BoxData[
 TemplateBox[{
  "General", "stop", 
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Solve\\\", \\\"::\\\", \
\\\"svars\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"", 2, 102, 77, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.750377583210996*^9, {3.7503779976610427`*^9, 3.750378009488426*^9}, 
   3.750685268528011*^9, 3.7525207853113637`*^9, 3.7525873545840845`*^9, 
   3.7539142547970395`*^9, 3.8018311850764027`*^9},
 CellLabel->
  "During evaluation of \
In[102]:=",ExpressionUUID->"e80d28b9-4539-4bba-8967-623ab7fb003e"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     TagBox[GridBox[{
        {
         TagBox[GridBox[{
            {"\<\"N = 4\"\>"},
            {"\<\"dbosons x dfermions = 4 \[Times] 4\"\>"},
            {"\<\"GATest = True\"\>"},
            {"\<\"InverseTest = True\"\>"},
            {"\<\"TransposeTest = True\"\>"},
            {"\<\"chi0 = \\!\\(\\*RowBox[{\\\"-\\\", \\\"1\\\"}]\\), (ncis = \
\\!\\(\\*RowBox[{\\\"0\\\"}]\\), ntrans = \
\\!\\(\\*RowBox[{\\\"1\\\"}]\\))\"\>"}
           },
           DefaultBaseStyle->"Column",
           GridBoxAlignment->{"Columns" -> {{Left}}},
           
           GridBoxItemSize->{
            "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
           GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
          "Column"]},
        {"\<\"LinearlyIndependent[V] = {{c[1, 2], c[1, 3], c[1, 4]}, {-c[1, \
4], c[1, 3]}, {-c[1, 2]}} == {{0, 0, 0}, {0, 0}, {0}}\"\>"},
        {"\<\"LinearlyIndependent[Vtilde] = {{c[1, 2], c[1, 3], c[1, 4]}, \
{c[1, 4], -c[1, 3]}, {c[1, 2]}} == {{0, 0, 0}, {0, 0}, {0}}\"\>"}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
       
       GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
      "Column"]},
    {"\<\"\\!\\(\\*SuperscriptBox[TagBox[\\\"2\\\", HoldForm], \
RowBox[{RowBox[{\\\"-\\\", \\\"1\\\"}], \\\"+\\\", \\\"N\\\"}]]\\) distinct \
\\!\\(\\*SubscriptBox[\\(\[Zeta]\\), \\(I\\)]\\);    \
\\!\\(\\*SuperscriptBox[TagBox[\\\"2\\\", HoldForm], \
RowBox[{RowBox[{\\\"-\\\", \\\"2\\\"}], \\\"+\\\", \\\"N\\\"}]]\\) distinct |\
\\!\\(\\*SubscriptBox[OverscriptBox[\\(\[Zeta]\\), \\(~\\)], \
\\(I\\)]\\)|\"\>"},
    {"\<\"\\!\\(\\*SuperscriptBox[TagBox[\\\"2\\\", HoldForm], \
RowBox[{RowBox[{\\\"-\\\", \\\"1\\\"}], \\\"+\\\", \\\"N\\\"}]]\\) distinct \
\\!\\(\\*SubscriptBox[OverscriptBox[\\(\[Zeta]\\), \\(~\\)], \\(I\\)]\\);    \
\\!\\(\\*SuperscriptBox[TagBox[\\\"2\\\", HoldForm], \
RowBox[{RowBox[{\\\"-\\\", \\\"2\\\"}], \\\"+\\\", \\\"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"]], "Output",
 CellChangeTimes->{
  3.7500138575108385`*^9, 3.7500139171481185`*^9, 3.7500139739973583`*^9, 
   3.7500178317104278`*^9, 3.750018011399315*^9, 3.7500183590883284`*^9, 
   3.750157523639529*^9, 3.750340180587376*^9, 3.750376444651002*^9, 
   3.7503764864771895`*^9, 3.7503767368211803`*^9, 3.750377527467987*^9, 
   3.7503775832479024`*^9, {3.7503779977029305`*^9, 3.750378009529316*^9}, 
   3.750685268572651*^9, 3.752520785348258*^9, 3.752587354615328*^9, 
   3.7539142548442454`*^9, 3.801831185083743*^9},
 CellLabel->
  "Out[102]=",ExpressionUUID->"adf5251b-04e0-44f2-9f0c-898f2d6b636f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraReport", "[", 
  RowBox[{"Q", ",", "3"}], "]"}]], "Input",
 CellChangeTimes->{{3.7424350075123367`*^9, 3.74243501389749*^9}, {
  3.7503764919924793`*^9, 3.750376495671644*^9}},
 CellLabel->
  "In[103]:=",ExpressionUUID->"1ce9955e-bc36-4923-bdb6-4b7aa900b00a"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    103, 78, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7503775832987623`*^9, {3.7503779977268653`*^9, 3.750378009570237*^9}, 
   3.7506852686108427`*^9, 3.7525207853741865`*^9, 3.7525873572336273`*^9, 
   3.753914254953597*^9, 3.801831185154674*^9},
 CellLabel->
  "During evaluation of \
In[103]:=",ExpressionUUID->"87953999-55d0-45b5-9891-0d3fc5bc9140"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    103, 79, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7503775832987623`*^9, {3.7503779977268653`*^9, 3.750378009570237*^9}, 
   3.7506852686108427`*^9, 3.7525207853741865`*^9, 3.7525873572336273`*^9, 
   3.753914254953597*^9, 3.801831185163436*^9},
 CellLabel->
  "During evaluation of \
In[103]:=",ExpressionUUID->"c275ebbf-4362-4ecf-8331-7bec9fe4316c"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    103, 80, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7503775832987623`*^9, {3.7503779977268653`*^9, 3.750378009570237*^9}, 
   3.7506852686108427`*^9, 3.7525207853741865`*^9, 3.7525873572336273`*^9, 
   3.753914254953597*^9, 3.8018311851705217`*^9},
 CellLabel->
  "During evaluation of \
In[103]:=",ExpressionUUID->"ab59aed9-001b-4175-b164-46793e5b5482"],

Cell[BoxData[
 TemplateBox[{
  "General", "stop", 
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Solve\\\", \\\"::\\\", \
\\\"svars\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"", 2, 103, 81, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7503775832987623`*^9, {3.7503779977268653`*^9, 3.750378009570237*^9}, 
   3.7506852686108427`*^9, 3.7525207853741865`*^9, 3.7525873572336273`*^9, 
   3.753914254953597*^9, 3.801831185177412*^9},
 CellLabel->
  "During evaluation of \
In[103]:=",ExpressionUUID->"09d96430-9a49-4db7-b679-ba78db64c479"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     TagBox[GridBox[{
        {
         TagBox[GridBox[{
            {"\<\"N = 4\"\>"},
            {"\<\"dbosons x dfermions = 4 \[Times] 4\"\>"},
            {"\<\"GATest = True\"\>"},
            {"\<\"InverseTest = True\"\>"},
            {"\<\"TransposeTest = True\"\>"},
            {"\<\"chi0 = \\!\\(\\*RowBox[{\\\"-\\\", \\\"1\\\"}]\\), (ncis = \
\\!\\(\\*RowBox[{\\\"0\\\"}]\\), ntrans = \
\\!\\(\\*RowBox[{\\\"1\\\"}]\\))\"\>"}
           },
           DefaultBaseStyle->"Column",
           GridBoxAlignment->{"Columns" -> {{Left}}},
           
           GridBoxItemSize->{
            "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
           GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
          "Column"]},
        {"\<\"LinearlyIndependent[V] = {{c[1, 2], c[1, 3], c[1, 4]}, {-c[1, \
4], c[1, 3]}, {-c[1, 2]}} == {{0, 0, 0}, {0, 0}, {0}}\"\>"},
        {"\<\"LinearlyIndependent[Vtilde] = {{c[1, 2], c[1, 3], c[1, 4]}, \
{c[1, 4], -c[1, 3]}, {c[1, 2]}} == {{0, 0, 0}, {0, 0}, {0}}\"\>"}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
       
       GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
      "Column"]},
    {"\<\"\\!\\(\\*SuperscriptBox[TagBox[\\\"2\\\", HoldForm], \
RowBox[{RowBox[{\\\"-\\\", \\\"1\\\"}], \\\"+\\\", \\\"N\\\"}]]\\) distinct \
\\!\\(\\*SubscriptBox[\\(\[Zeta]\\), \\(I\\)]\\);    \
\\!\\(\\*SuperscriptBox[TagBox[\\\"2\\\", HoldForm], \
RowBox[{RowBox[{\\\"-\\\", \\\"2\\\"}], \\\"+\\\", \\\"N\\\"}]]\\) distinct |\
\\!\\(\\*SubscriptBox[OverscriptBox[\\(\[Zeta]\\), \\(~\\)], \
\\(I\\)]\\)|\"\>"},
    {"\<\"\\!\\(\\*SuperscriptBox[TagBox[\\\"2\\\", HoldForm], \
RowBox[{RowBox[{\\\"-\\\", \\\"1\\\"}], \\\"+\\\", \\\"N\\\"}]]\\) distinct \
\\!\\(\\*SubscriptBox[OverscriptBox[\\(\[Zeta]\\), \\(~\\)], \\(I\\)]\\);    \
\\!\\(\\*SuperscriptBox[TagBox[\\\"2\\\", HoldForm], \
RowBox[{RowBox[{\\\"-\\\", \\\"2\\\"}], \\\"+\\\", \\\"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"]], "Output",
 CellChangeTimes->{
  3.750013857649223*^9, 3.750013917313245*^9, 3.7500139741749687`*^9, 
   3.7500178318810434`*^9, 3.7500180115491066`*^9, 3.750018359262958*^9, 
   3.750157523778927*^9, 3.7503401807592044`*^9, 3.7503764446749706`*^9, 
   3.750376496115478*^9, 3.7503767368909936`*^9, 3.750377527483948*^9, 
   3.7503775833356676`*^9, {3.750377997763768*^9, 3.750378009612095*^9}, 
   3.750685268648538*^9, 3.7525207854100876`*^9, 3.7525873572648697`*^9, 
   3.7539142550004916`*^9, 3.801831185188567*^9},
 CellLabel->
  "Out[103]=",ExpressionUUID->"9bf8d36b-585d-49cb-b67b-45bbfd302806"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraReport", "[", 
  RowBox[{"Q", ",", "8"}], "]"}]], "Input",
 CellChangeTimes->{{3.742441342827816*^9, 3.742441346399424*^9}, {
  3.750376504568858*^9, 3.7503765071679125`*^9}},
 CellLabel->
  "In[104]:=",ExpressionUUID->"44968e93-07c3-41d1-bb38-8190e0718252"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    104, 82, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7503775833875237`*^9, {3.7503779977887*^9, 3.7503780096560187`*^9}, 
   3.7506852686684284`*^9, 3.7525207854340377`*^9, 3.752587360122075*^9, 
   3.75391425503174*^9, 3.80183118525683*^9},
 CellLabel->
  "During evaluation of \
In[104]:=",ExpressionUUID->"77463ba4-86b0-4e11-93a0-5f5af3c7d24d"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    104, 83, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7503775833875237`*^9, {3.7503779977887*^9, 3.7503780096560187`*^9}, 
   3.7506852686684284`*^9, 3.7525207854340377`*^9, 3.752587360122075*^9, 
   3.75391425503174*^9, 3.8018311852685823`*^9},
 CellLabel->
  "During evaluation of \
In[104]:=",ExpressionUUID->"6931ed5f-1cda-447d-b965-75a627c42d72"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    104, 84, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7503775833875237`*^9, {3.7503779977887*^9, 3.7503780096560187`*^9}, 
   3.7506852686684284`*^9, 3.7525207854340377`*^9, 3.752587360122075*^9, 
   3.75391425503174*^9, 3.801831185275897*^9},
 CellLabel->
  "During evaluation of \
In[104]:=",ExpressionUUID->"7eef9590-f290-4f74-a295-95c341bc490c"],

Cell[BoxData[
 TemplateBox[{
  "General", "stop", 
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Solve\\\", \\\"::\\\", \
\\\"svars\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"", 2, 104, 85, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7503775833875237`*^9, {3.7503779977887*^9, 3.7503780096560187`*^9}, 
   3.7506852686684284`*^9, 3.7525207854340377`*^9, 3.752587360122075*^9, 
   3.75391425503174*^9, 3.8018311852834663`*^9},
 CellLabel->
  "During evaluation of \
In[104]:=",ExpressionUUID->"b9ce040d-268d-42d3-acb7-b368f51b2b58"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     TagBox[GridBox[{
        {
         TagBox[GridBox[{
            {
             TagBox[GridBox[{
                {
                 TagBox[GridBox[{
                    {"\<\"N = 4\"\>"},
                    {"\<\"dbosons x dfermions = 4 \[Times] 4\"\>"},
                    {"\<\"GATest = True\"\>"},
                    {"\<\"InverseTest = True\"\>"},
                    {"\<\"TransposeTest = True\"\>"},
                    {"\<\"chi0 = \\!\\(\\*RowBox[{\\\"-\\\", \\\"1\\\"}]\\), \
(ncis = \\!\\(\\*RowBox[{\\\"0\\\"}]\\), ntrans = \
\\!\\(\\*RowBox[{\\\"1\\\"}]\\))\"\>"}
                   },
                   DefaultBaseStyle->"Column",
                   GridBoxAlignment->{"Columns" -> {{Left}}},
                   
                   GridBoxItemSize->{
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
                   
                   GridBoxSpacings->{
                    "Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
                  "Column"]},
                {"\<\"LinearlyIndependent[V] = {{c[1, 2], c[1, 3], c[1, 4]}, \
{-c[1, 4], c[1, 3]}, {-c[1, 2]}} == {{0, 0, 0}, {0, 0}, {0}}\"\>"},
                {"\<\"LinearlyIndependent[Vtilde] = {{c[1, 2], c[1, 3], c[1, \
4]}, {c[1, 4], -c[1, 3]}, {c[1, 2]}} == {{0, 0, 0}, {0, 0}, {0}}\"\>"}
               },
               DefaultBaseStyle->"Column",
               GridBoxAlignment->{"Columns" -> {{Left}}},
               
               GridBoxItemSize->{
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
               
               GridBoxSpacings->{
                "Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
              "Column"]},
            {"\<\"\\!\\(\\*SuperscriptBox[TagBox[\\\"2\\\", HoldForm], \
RowBox[{RowBox[{\\\"-\\\", \\\"1\\\"}], \\\"+\\\", \\\"N\\\"}]]\\) distinct \
\\!\\(\\*SubscriptBox[\\(\[Zeta]\\), \\(I\\)]\\);    \
\\!\\(\\*SuperscriptBox[TagBox[\\\"2\\\", HoldForm], \
RowBox[{RowBox[{\\\"-\\\", \\\"2\\\"}], \\\"+\\\", \\\"N\\\"}]]\\) distinct |\
\\!\\(\\*SubscriptBox[OverscriptBox[\\(\[Zeta]\\), \\(~\\)], \
\\(I\\)]\\)|\"\>"},
            {"\<\"\\!\\(\\*SuperscriptBox[TagBox[\\\"2\\\", HoldForm], \
RowBox[{RowBox[{\\\"-\\\", \\\"1\\\"}], \\\"+\\\", \\\"N\\\"}]]\\) distinct \
\\!\\(\\*SubscriptBox[OverscriptBox[\\(\[Zeta]\\), \\(~\\)], \\(I\\)]\\);    \
\\!\\(\\*SuperscriptBox[TagBox[\\\"2\\\", HoldForm], \
RowBox[{RowBox[{\\\"-\\\", \\\"2\\\"}], \\\"+\\\", \\\"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\"\>"},
        {"\<\"Allsu2MutuallyCommute = True\"\>"}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
       
       GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
      "Column"]},
    {"\<\"soNTest[VsoN] = True\"\>"},
    {"\<\"soNTest[VtildesoN] = True\"\>"},
    {"\<\"soNTest[VsoNPM[-1]] = True\"\>"},
    {"\<\"soNTest[VsoNPM[1]] = True\"\>"},
    {"\<\"soNTest[VtildesoNPM[-1]] = True\"\>"},
    {"\<\"soNTest[VtildesoNPM[1]] = True\"\>"},
    {"\<\"su2Test[VsoNPM[-1]] = True\"\>"},
    {"\<\"su2Test[VsoNPM[1]] = True\"\>"},
    {"\<\"VPM[1] and VPM[-1] mutually commute = True\"\>"},
    {"\<\"su2Test[VtildesoNPM[-1]] = True\"\>"},
    {"\<\"su2Test[VtildesoNPM[1]] = True\"\>"},
    {"\<\"VtildePM[1] and VtildePM[-1] mutually commute = True\"\>"}
   },
   DefaultBaseStyle->"Column",
   GridBoxAlignment->{"Columns" -> {{Left}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
  "Column"]], "Output",
 CellChangeTimes->{
  3.750376444775702*^9, 3.7503765080525227`*^9, 3.750376737189227*^9, 
   3.750377527499934*^9, 3.7503775836318703`*^9, {3.750377998048008*^9, 
   3.7503780099083033`*^9}, 3.7506852688980703`*^9, 3.752520785644102*^9, 
   3.752587360321431*^9, 3.7539142552972655`*^9, 3.8018311855500307`*^9},
 CellLabel->
  "Out[104]=",ExpressionUUID->"728a2ac7-367c-4d47-bc2f-93227424aed7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraReport", "[", "OnShellCM", "]"}]], "Input",
 CellChangeTimes->{{3.7424350075123367`*^9, 3.74243501389749*^9}, {
   3.7424351571853113`*^9, 3.742435165660544*^9}, 3.7503766675811243`*^9},
 CellLabel->
  "In[105]:=",ExpressionUUID->"6eb4da52-0cc9-4ff9-9ef4-90aea96f6cb7"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"N = 4\"\>"},
    {"\<\"dbosons x dfermions = 2 \[Times] 4\"\>"},
    {"\<\"GATest = False\"\>"},
    {"\<\"InverseTest = R is not a square matrix\"\>"},
    {"\<\"TransposeTest = True\"\>"},
    {"\<\"chi0 = \\!\\(\\*RowBox[{\\\"0\\\"}]\\), (ncis = \
\\!\\(\\*FractionBox[\\\"1\\\", \\\"4\\\"]\\), ntrans = \\!\\(\\*FractionBox[\
\\\"1\\\", \\\"4\\\"]\\))\"\>"}
   },
   DefaultBaseStyle->"Column",
   GridBoxAlignment->{"Columns" -> {{Left}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
  "Column"]], "Output",
 CellChangeTimes->{
  3.7503767372171316`*^9, 3.7503775275178633`*^9, 3.7503775836478043`*^9, {
   3.750377998064994*^9, 3.7503780099442387`*^9}, 3.750685268914891*^9, 
   3.7525207856679964`*^9, 3.752587363754836*^9, 3.7539142553909936`*^9, 
   3.801831185563727*^9},
 CellLabel->
  "Out[105]=",ExpressionUUID->"6d8768c9-daea-45d5-96d0-2652fe2f3ff9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraReport", "[", "OnShellCM", "]"}]], "Input",
 CellChangeTimes->{{3.7503766679291997`*^9, 3.750376667937179*^9}},
 CellLabel->
  "In[106]:=",ExpressionUUID->"c76c08d0-5600-4c2a-907f-e8f279cc1715"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"N = 4\"\>"},
    {"\<\"dbosons x dfermions = 2 \[Times] 4\"\>"},
    {"\<\"GATest = False\"\>"},
    {"\<\"InverseTest = R is not a square matrix\"\>"},
    {"\<\"TransposeTest = True\"\>"},
    {"\<\"chi0 = \\!\\(\\*RowBox[{\\\"0\\\"}]\\), (ncis = \
\\!\\(\\*FractionBox[\\\"1\\\", \\\"4\\\"]\\), ntrans = \\!\\(\\*FractionBox[\
\\\"1\\\", \\\"4\\\"]\\))\"\>"}
   },
   DefaultBaseStyle->"Column",
   GridBoxAlignment->{"Columns" -> {{Left}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
  "Column"]], "Output",
 CellChangeTimes->{
  3.750376737245048*^9, 3.7503775836637926`*^9, {3.750377998082946*^9, 
   3.7503780099621906`*^9}, 3.7506852689352446`*^9, 3.752520785688984*^9, 
   3.752587366116356*^9, 3.7539142554691024`*^9, 3.801831185636014*^9},
 CellLabel->
  "Out[106]=",ExpressionUUID->"5e2f5b4a-cdac-47bd-b716-ae759e558299"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraFullReport", "[", "OnShellCM", "]"}]], "Input",
 CellChangeTimes->{{3.7424408312471457`*^9, 3.7424408357316837`*^9}},
 CellLabel->
  "In[107]:=",ExpressionUUID->"917ad97a-8b02-4f24-9213-de525efb51e6"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    107, 86, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.75037758368075*^9, {3.75037799810386*^9, 3.750378009983103*^9}, 
   3.75068526895161*^9, 3.7525207857119226`*^9, 3.752587368317811*^9, 
   3.7539142555315857`*^9, 3.801831185710243*^9},
 CellLabel->
  "During evaluation of \
In[107]:=",ExpressionUUID->"f8175125-8e15-4927-b8d5-e7490aa579d8"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    107, 87, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.75037758368075*^9, {3.75037799810386*^9, 3.750378009983103*^9}, 
   3.75068526895161*^9, 3.7525207857119226`*^9, 3.752587368317811*^9, 
   3.7539142555315857`*^9, 3.801831185719232*^9},
 CellLabel->
  "During evaluation of \
In[107]:=",ExpressionUUID->"53fc856c-b261-41ca-8bf9-bbe436f80e20"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    107, 88, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.75037758368075*^9, {3.75037799810386*^9, 3.750378009983103*^9}, 
   3.75068526895161*^9, 3.7525207857119226`*^9, 3.752587368317811*^9, 
   3.7539142555315857`*^9, 3.801831185726713*^9},
 CellLabel->
  "During evaluation of \
In[107]:=",ExpressionUUID->"f6ed4371-cd4b-422d-8153-2feecf50acb5"],

Cell[BoxData[
 TemplateBox[{
  "General", "stop", 
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Solve\\\", \\\"::\\\", \
\\\"svars\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"", 2, 107, 89, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.75037758368075*^9, {3.75037799810386*^9, 3.750378009983103*^9}, 
   3.75068526895161*^9, 3.7525207857119226`*^9, 3.752587368317811*^9, 
   3.7539142555315857`*^9, 3.8018311857329483`*^9},
 CellLabel->
  "During evaluation of \
In[107]:=",ExpressionUUID->"6e7df9c0-bdc7-4b04-b714-0180c771e5d7"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     TagBox[GridBox[{
        {
         TagBox[GridBox[{
            {
             TagBox[GridBox[{
                {
                 TagBox[GridBox[{
                    {"\<\"N = 4\"\>"},
                    {"\<\"dbosons x dfermions = 2 \[Times] 4\"\>"},
                    {"\<\"GATest = False\"\>"},
                    {"\<\"InverseTest = R is not a square matrix\"\>"},
                    {"\<\"TransposeTest = True\"\>"},
                    {"\<\"chi0 = \\!\\(\\*RowBox[{\\\"0\\\"}]\\), (ncis = \\!\
\\(\\*FractionBox[\\\"1\\\", \\\"4\\\"]\\), ntrans = \
\\!\\(\\*FractionBox[\\\"1\\\", \\\"4\\\"]\\))\"\>"}
                   },
                   DefaultBaseStyle->"Column",
                   GridBoxAlignment->{"Columns" -> {{Left}}},
                   
                   GridBoxItemSize->{
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
                   
                   GridBoxSpacings->{
                    "Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
                  "Column"]},
                {"\<\"LinearlyIndependent[V] = {{c[1, 2], c[1, 3], c[1, 4]}, \
{c[1, 4], c[2, 4]}, {c[3, 4]}} == {{0, 0, 0}, {0, 0}, {0}}\"\>"},
                {"\<\"LinearlyIndependent[Vtilde] = {{c[1, 2], c[1, 3], 0}, \
{0, c[1, 3]}, {-c[1, 2]}} == {{0, 0, 0}, {0, 0}, {0}}\"\>"}
               },
               DefaultBaseStyle->"Column",
               GridBoxAlignment->{"Columns" -> {{Left}}},
               
               GridBoxItemSize->{
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
               
               GridBoxSpacings->{
                "Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
              "Column"]},
            {"\<\"ZetaGen has singular elements\"\>"},
            {"\<\"ZetatildeGen has singular elements\"\>"},
            {"\<\"\\!\\(\\*SubscriptBox[\\(\[Zeta]\\), \\(I\\)]\\) \[Alpha] \
\\!\\(\\*SubscriptBox[\\(V\\), \\(1  I\\)]\\) = True;        \
\\!\\(\\*SubscriptBox[OverscriptBox[\\(\[Zeta]\\), \\(~\\)], \\(I\\)]\\) \
\[Alpha] \\!\\(\\*SubscriptBox[OverscriptBox[\\(V\\), \\(~\\)], \\(1  \
I\\)]\\) = False\"\>"}
           },
           DefaultBaseStyle->"Column",
           GridBoxAlignment->{"Columns" -> {{Left}}},
           
           GridBoxItemSize->{
            "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
           GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
          "Column"]},
        {"\<\"AllsoNTest = False\"\>"},
        {"\<\"Allsu2MutuallyCommute = False\"\>"}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
       
       GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
      "Column"]},
    {"\<\"soNTest[VsoN] = False\"\>"},
    {"\<\"soNTest[VtildesoN] = False\"\>"},
    {"\<\"soNTest[VsoNPM[-1]] = False\"\>"},
    {"\<\"soNTest[VsoNPM[1]] = True\"\>"},
    {"\<\"soNTest[VtildesoNPM[-1]] = False\"\>"},
    {"\<\"soNTest[VtildesoNPM[1]] = False\"\>"},
    {"\<\"su2Test[VsoNPM[-1]] = False\"\>"},
    {"\<\"su2Test[VsoNPM[1]] = True\"\>"},
    {"\<\"VPM[1] and VPM[-1] mutually commute = True\"\>"},
    {"\<\"su2Test[VtildesoNPM[-1]] = False\"\>"},
    {"\<\"su2Test[VtildesoNPM[1]] = False\"\>"},
    {"\<\"VtildePM[1] and VtildePM[-1] mutually commute = True\"\>"}
   },
   DefaultBaseStyle->"Column",
   GridBoxAlignment->{"Columns" -> {{Left}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
  "Column"]], "Output",
 CellChangeTimes->{
  3.7500138581310215`*^9, 3.750013917793374*^9, 3.750013974655968*^9, 
   3.750017832360179*^9, 3.750018012037239*^9, 3.75001835982092*^9, 
   3.750157524449675*^9, 3.75034018127497*^9, 3.750376444855487*^9, 
   3.7503767372730136`*^9, 3.7503775276435165`*^9, 3.75037758380641*^9, {
   3.750377998226574*^9, 3.7503780101087666`*^9}, 3.750685269055273*^9, 
   3.7525207858281946`*^9, 3.752587368412201*^9, 3.753914255640935*^9, 
   3.801831185806394*^9},
 CellLabel->
  "Out[107]=",ExpressionUUID->"9b381d62-1f1d-4056-a4ea-ae7d9b25efc1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraFullReport", "[", "TM", "]"}]], "Input",
 CellChangeTimes->{{3.750158318833742*^9, 3.750158337217256*^9}, {
  3.7501587528910036`*^9, 3.750158766761106*^9}},
 CellLabel->
  "In[108]:=",ExpressionUUID->"acc25732-7fbc-4df5-b701-aec82c6fd82b"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    108, 90, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.750377583852255*^9, {3.7503779982484717`*^9, 3.7503780101516523`*^9}, 
   3.750685269085145*^9, 3.7525207858557177`*^9, 3.752587371185094*^9, 
   3.753914255734663*^9, 3.80183118587811*^9},
 CellLabel->
  "During evaluation of \
In[108]:=",ExpressionUUID->"2357c704-48b2-4b6a-a6b2-dd0350a4a63e"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    108, 91, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.750377583852255*^9, {3.7503779982484717`*^9, 3.7503780101516523`*^9}, 
   3.750685269085145*^9, 3.7525207858557177`*^9, 3.752587371185094*^9, 
   3.753914255734663*^9, 3.8018311858857813`*^9},
 CellLabel->
  "During evaluation of \
In[108]:=",ExpressionUUID->"52aaa3dc-88cf-4fdb-b47c-1e05bcd0a3eb"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    108, 92, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.750377583852255*^9, {3.7503779982484717`*^9, 3.7503780101516523`*^9}, 
   3.750685269085145*^9, 3.7525207858557177`*^9, 3.752587371185094*^9, 
   3.753914255734663*^9, 3.8018311858919573`*^9},
 CellLabel->
  "During evaluation of \
In[108]:=",ExpressionUUID->"2ed4cb85-ada1-4d96-9939-456fb0e0876c"],

Cell[BoxData[
 TemplateBox[{
  "General", "stop", 
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Solve\\\", \\\"::\\\", \
\\\"svars\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"", 2, 108, 93, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.750377583852255*^9, {3.7503779982484717`*^9, 3.7503780101516523`*^9}, 
   3.750685269085145*^9, 3.7525207858557177`*^9, 3.752587371185094*^9, 
   3.753914255734663*^9, 3.8018311858985167`*^9},
 CellLabel->
  "During evaluation of \
In[108]:=",ExpressionUUID->"06484ffa-9474-4f95-b1c9-069d9846cebf"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     TagBox[GridBox[{
        {
         TagBox[GridBox[{
            {
             TagBox[GridBox[{
                {
                 TagBox[GridBox[{
                    {"\<\"N = 4\"\>"},
                    {"\<\"dbosons x dfermions = 4 \[Times] 4\"\>"},
                    {"\<\"GATest = True\"\>"},
                    {"\<\"InverseTest = True\"\>"},
                    {"\<\"TransposeTest = True\"\>"},
                    {"\<\"chi0 = \\!\\(\\*RowBox[{\\\"-\\\", \\\"1\\\"}]\\), \
(ncis = \\!\\(\\*RowBox[{\\\"0\\\"}]\\), ntrans = \
\\!\\(\\*RowBox[{\\\"1\\\"}]\\))\"\>"}
                   },
                   DefaultBaseStyle->"Column",
                   GridBoxAlignment->{"Columns" -> {{Left}}},
                   
                   GridBoxItemSize->{
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
                   
                   GridBoxSpacings->{
                    "Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
                  "Column"]},
                {"\<\"LinearlyIndependent[V] = {{c[1, 2], c[1, 3], c[1, 4]}, \
{-c[1, 4], c[1, 3]}, {-c[1, 2]}} == {{0, 0, 0}, {0, 0}, {0}}\"\>"},
                {"\<\"LinearlyIndependent[Vtilde] = {{c[1, 2], c[1, 3], c[1, \
4]}, {c[1, 4], -c[1, 3]}, {c[1, 2]}} == {{0, 0, 0}, {0, 0}, {0}}\"\>"}
               },
               DefaultBaseStyle->"Column",
               GridBoxAlignment->{"Columns" -> {{Left}}},
               
               GridBoxItemSize->{
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
               
               GridBoxSpacings->{
                "Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
              "Column"]},
            {"\<\"\\!\\(\\*SuperscriptBox[TagBox[\\\"2\\\", HoldForm], \
RowBox[{RowBox[{\\\"-\\\", \\\"1\\\"}], \\\"+\\\", \\\"N\\\"}]]\\) distinct \
\\!\\(\\*SubscriptBox[\\(\[Zeta]\\), \\(I\\)]\\);    \
\\!\\(\\*SuperscriptBox[TagBox[\\\"2\\\", HoldForm], \
RowBox[{RowBox[{\\\"-\\\", \\\"2\\\"}], \\\"+\\\", \\\"N\\\"}]]\\) distinct |\
\\!\\(\\*SubscriptBox[OverscriptBox[\\(\[Zeta]\\), \\(~\\)], \
\\(I\\)]\\)|\"\>"},
            {"\<\"\\!\\(\\*SuperscriptBox[TagBox[\\\"2\\\", HoldForm], \
RowBox[{RowBox[{\\\"-\\\", \\\"1\\\"}], \\\"+\\\", \\\"N\\\"}]]\\) distinct \
\\!\\(\\*SubscriptBox[OverscriptBox[\\(\[Zeta]\\), \\(~\\)], \\(I\\)]\\);    \
\\!\\(\\*SuperscriptBox[TagBox[\\\"2\\\", HoldForm], \
RowBox[{RowBox[{\\\"-\\\", \\\"2\\\"}], \\\"+\\\", \\\"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\"\>"},
        {"\<\"Allsu2MutuallyCommute = True\"\>"}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
       
       GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
      "Column"]},
    {"\<\"soNTest[VsoN] = True\"\>"},
    {"\<\"soNTest[VtildesoN] = True\"\>"},
    {"\<\"soNTest[VsoNPM[-1]] = True\"\>"},
    {"\<\"soNTest[VsoNPM[1]] = True\"\>"},
    {"\<\"soNTest[VtildesoNPM[-1]] = True\"\>"},
    {"\<\"soNTest[VtildesoNPM[1]] = True\"\>"},
    {"\<\"su2Test[VsoNPM[-1]] = True\"\>"},
    {"\<\"su2Test[VsoNPM[1]] = True\"\>"},
    {"\<\"VPM[1] and VPM[-1] mutually commute = True\"\>"},
    {"\<\"su2Test[VtildesoNPM[-1]] = True\"\>"},
    {"\<\"su2Test[VtildesoNPM[1]] = True\"\>"},
    {"\<\"VtildePM[1] and VtildePM[-1] mutually commute = True\"\>"}
   },
   DefaultBaseStyle->"Column",
   GridBoxAlignment->{"Columns" -> {{Left}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
  "Column"]], "Output",
 CellChangeTimes->{{3.750158322923591*^9, 3.750158338222294*^9}, {
   3.7501587549895725`*^9, 3.750158767257883*^9}, 3.7503401815718*^9, 
   3.7503764448814163`*^9, 3.750376737297906*^9, 3.750377527675431*^9, 
   3.7503775840886545`*^9, {3.7503779985147595`*^9, 3.7503780104039907`*^9}, 
   3.750685269297921*^9, 3.75252078612558*^9, 3.75258737137566*^9, 
   3.753914255922502*^9, 3.801831186133172*^9},
 CellLabel->
  "Out[108]=",ExpressionUUID->"7302f1f2-0d74-487b-ad66-c2d22fd658cc"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"V", "[", "VM", "]"}], "[", 
   RowBox[{"[", 
    RowBox[{"1", ",", "2"}], "]"}], "]"}], "\[Equal]", 
  RowBox[{
   RowBox[{"V", "[", "VM", "]"}], "[", 
   RowBox[{"[", 
    RowBox[{"3", ",", "4"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7501587867802114`*^9, 3.7501588674335933`*^9}},
 CellLabel->
  "In[109]:=",ExpressionUUID->"96c9ac9e-8cc8-4997-8812-fa639fdfd491"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{{3.7501587965043573`*^9, 3.7501588678130407`*^9}, 
   3.7503401815873966`*^9, 3.7503764449073153`*^9, 3.750376737324834*^9, 
   3.7503775277292876`*^9, 3.7503775841055794`*^9, {3.750377998531714*^9, 
   3.7503780104219303`*^9}, 3.750685269318259*^9, 3.7525207861504765`*^9, 
   3.753914256016206*^9, 3.801831186213791*^9},
 CellLabel->
  "Out[109]=",ExpressionUUID->"d99180e5-d0cc-4b55-be85-e6782a3d5ac4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"V", "[", "VM", "]"}], "[", 
   RowBox[{"[", 
    RowBox[{"1", ",", "2"}], "]"}], "]"}], " ", "\[Equal]", " ", 
  RowBox[{"2", 
   RowBox[{
    RowBox[{"VsoN", "[", "VM", "]"}], "[", 
    RowBox[{"[", 
     RowBox[{"1", ",", "2"}], "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.7503402233309774`*^9, 3.750340243973652*^9}},
 CellLabel->
  "In[110]:=",ExpressionUUID->"bb6cdb74-5c33-4499-ac28-4d1a1f974867"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{{3.7503402353790503`*^9, 3.750340244895519*^9}, 
   3.750376444963192*^9, 3.7503767373527904`*^9, 3.7503775277861547`*^9, 
   3.7503775841195726`*^9, {3.750377998548669*^9, 3.7503780104388847`*^9}, 
   3.750685269335123*^9, 3.752520786173461*^9, 3.7539142560318575`*^9, 
   3.801831186224666*^9},
 CellLabel->
  "Out[110]=",ExpressionUUID->"64b07acc-eb16-461c-ba21-b3b279eb62e7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FunctionList", "[", "AdinkraEssentials", "]"}]], "Input",
 CellChangeTimes->{{3.7501584701028347`*^9, 3.7501584769621105`*^9}},
 CellLabel->
  "In[111]:=",ExpressionUUID->"4a1b75f3-7b46-4baf-ad6f-e08c59899301"],

Cell[BoxData["\<\"IndexRange[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*****************************************\
***********************************************\"\>"], "Output",
 CellChangeTimes->{
  3.750158477278768*^9, 3.75034018161867*^9, 3.750376444987133*^9, 
   3.750376737382705*^9, 3.750377527801095*^9, 3.7503775841335545`*^9, {
   3.750377998564658*^9, 3.750378010454841*^9}, 3.750685269351492*^9, 
   3.75252078619436*^9, 3.753914256047479*^9, 3.8018311862948933`*^9},
 CellLabel->
  "Out[111]=",ExpressionUUID->"c426a707-47a8-4a4b-911c-93bcbc840bd1"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
When the LinearlyIndependent function does not give True, the output below is \
read as follows: 
VPM[-1][CM][[2,3]] + VPM[-1][CM][[1,4]]   =  0   =>   VPM[-1][CM][[2,3]] = - \
VPM[-1][CM][[1,4]] 
VPM[-1][CM][[2,4]] -  VPM[-1][CM][[1,3]]  =  0   =>     VPM[-1][CM][[2,4]] = \
VPM[-1][CM][[1,3]]
VPM[-1][CM][[3,4]] + VPM[-1][CM][[1,2]]  =  0   =>     VPM[-1][CM][[3,4]] = - \
VPM[-1][CM][[1,2]] \
\>", "Subsubsection",
 CellChangeTimes->{{3.7501590997692633`*^9, 
  3.750159404400781*^9}},ExpressionUUID->"ee58ef16-ceea-4c38-acd7-\
0a7aab1f531c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LinearlyIndependent", "[", 
  RowBox[{
   RowBox[{"VPM", "[", 
    RowBox[{"-", "1"}], "]"}], "[", "CM", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.7501584876939173`*^9, 3.7501585046020327`*^9}, {
   3.7501585652993155`*^9, 3.7501585964027877`*^9}, 3.7501586584748487`*^9, {
   3.7501586999549065`*^9, 3.7501587335706453`*^9}, 3.750158985658811*^9, {
   3.7501590554989276`*^9, 3.7501590738254747`*^9}},
 CellLabel->
  "In[112]:=",ExpressionUUID->"8cdcde60-cd92-49c7-903f-c20c1e1557fc"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    112, 94, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7503775841604624`*^9, {3.7503779985836067`*^9, 3.750378010473793*^9}, 
   3.7506852693738184`*^9, 3.7525207862392797`*^9, 3.753914256141176*^9, 
   3.801831186374875*^9},
 CellLabel->
  "During evaluation of \
In[112]:=",ExpressionUUID->"11524093-9189-4a90-9a08-434122d5a5ff"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    112, 95, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7503775841604624`*^9, {3.7503779985836067`*^9, 3.750378010473793*^9}, 
   3.7506852693738184`*^9, 3.7525207862392797`*^9, 3.753914256141176*^9, 
   3.801831186376698*^9},
 CellLabel->
  "During evaluation of \
In[112]:=",ExpressionUUID->"d413fed6-80a2-4ba3-adc0-c617b3492bb0"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    112, 96, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7503775841604624`*^9, {3.7503779985836067`*^9, 3.750378010473793*^9}, 
   3.7506852693738184`*^9, 3.7525207862392797`*^9, 3.753914256141176*^9, 
   3.801831186384735*^9},
 CellLabel->
  "During evaluation of \
In[112]:=",ExpressionUUID->"2900a5bd-32d0-48ad-9d84-4aa99e1766ea"],

Cell[BoxData[
 TemplateBox[{
  "General", "stop", 
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Solve\\\", \\\"::\\\", \
\\\"svars\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"", 2, 112, 97, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7503775841604624`*^9, {3.7503779985836067`*^9, 3.750378010473793*^9}, 
   3.7506852693738184`*^9, 3.7525207862392797`*^9, 3.753914256141176*^9, 
   3.801831186390719*^9},
 CellLabel->
  "During evaluation of \
In[112]:=",ExpressionUUID->"05b3a21f-8476-4d8f-9981-fdae53f05280"],

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"c", "[", 
       RowBox[{"1", ",", "2"}], "]"}], ",", 
      RowBox[{"c", "[", 
       RowBox[{"1", ",", "3"}], "]"}], ",", 
      RowBox[{"c", "[", 
       RowBox[{"1", ",", "4"}], "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"c", "[", 
       RowBox[{"1", ",", "4"}], "]"}], ",", 
      RowBox[{"-", 
       RowBox[{"c", "[", 
        RowBox[{"1", ",", "3"}], "]"}]}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"c", "[", 
      RowBox[{"1", ",", "2"}], "]"}], "}"}]}], "}"}], "\[Equal]", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0"}], "}"}], ",", 
    RowBox[{"{", "0", "}"}]}], "}"}]}]], "Output",
 CellChangeTimes->{
  3.7501585068582573`*^9, {3.7501585670061193`*^9, 3.750158597404104*^9}, 
   3.750158659539651*^9, {3.7501587011933928`*^9, 3.7501587337445755`*^9}, 
   3.750159003661592*^9, {3.750159056569522*^9, 3.7501590743052635`*^9}, 
   3.750340181649884*^9, 3.750376445017023*^9, 3.7503767374226036`*^9, 
   3.7503775278210855`*^9, 3.7503775841644216`*^9, {3.750377998587597*^9, 
   3.7503780104768133`*^9}, 3.750685269377282*^9, 3.7525207862422676`*^9, 
   3.753914256141176*^9, 3.801831186398426*^9},
 CellLabel->
  "Out[112]=",ExpressionUUID->"0e6328af-3810-44e0-afd3-421db972e71c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintAllVPM", "[", 
   RowBox[{"-", "1"}], "]"}], "[", "CM", "]"}]], "Input",
 CellChangeTimes->{{3.7501586004320936`*^9, 3.7501586487063713`*^9}, {
  3.750158692826818*^9, 3.7501587355307703`*^9}, {3.750158989658481*^9, 
  3.7501589963377604`*^9}, {3.7501590467144513`*^9, 3.7501590674269657`*^9}},
 CellLabel->
  "In[113]:=",ExpressionUUID->"1ceb3d63-05c6-4253-ad74-3fed6d910acf"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "\[ImaginaryI]", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "\[ImaginaryI]"}]},
       {
        RowBox[{"-", "\[ImaginaryI]"}], "0", "0", "0"},
       {"0", "\[ImaginaryI]", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", 
        RowBox[{"-", "\[ImaginaryI]"}]},
       {"0", "0", 
        RowBox[{"-", "\[ImaginaryI]"}], "0"},
       {"0", "\[ImaginaryI]", "0", "0"},
       {"\[ImaginaryI]", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "\[ImaginaryI]", "0", "0"},
       {
        RowBox[{"-", "\[ImaginaryI]"}], "0", "0", "0"},
       {"0", "0", "0", "\[ImaginaryI]"},
       {"0", "0", 
        RowBox[{"-", "\[ImaginaryI]"}], "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{{3.750158607979596*^9, 3.750158614860387*^9}, {
   3.7501586449821205`*^9, 3.7501586490644436`*^9}, {3.75015869325372*^9, 
   3.7501587358555045`*^9}, {3.75015899171064*^9, 3.7501589966180773`*^9}, {
   3.7501590488533287`*^9, 3.7501590678798018`*^9}, 3.750340181665534*^9, 
   3.7503764450379667`*^9, 3.750376737449501*^9, 3.750377527838993*^9, 
   3.750377584176422*^9, {3.750377998611532*^9, 3.750378010500745*^9}, 
   3.750685269391768*^9, 3.752520786275198*^9, 3.75391425617245*^9, 
   3.801831186413656*^9},
 CellLabel->
  "Out[113]=",ExpressionUUID->"d72f7396-0748-4e0d-ab41-7b041e1adb39"]
}, Open  ]]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Define\nBC4ColorPerm[n,a,\[Mu],A]:=",
 Cell[BoxData[
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"-", "1"}], ")"}], "n"], 
   SuperscriptBox[
    SubscriptBox[
     RowBox[{"(", 
      SuperscriptBox["H", "a"], ")"}], "I"], "K"], 
   SuperscriptBox[
    SubscriptBox[
     RowBox[{"(", 
      SubsuperscriptBox["S", "3", "\[Mu]"], ")"}], "K"], "L"], 
   SuperscriptBox[
    SubscriptBox[
     RowBox[{"(", 
      SuperscriptBox["\[ScriptCapitalV]", "A"], ")"}], "L"], "J"]}]],
  ExpressionUUID->"717753dc-8379-4898-8f31-3e18e30e269e"],
 "\n",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["H", "a"], "=", " ", 
    RowBox[{"{", " ", 
     RowBox[{
      RowBox[{"(", ")"}], ",", 
      RowBox[{"(", 
       OverscriptBox["12", "_"], ")"}], ",", 
      RowBox[{"(", 
       OverscriptBox["13", "_"], ")"}], ",", 
      RowBox[{"(", 
       OverscriptBox["23", "_"], ")"}], " ", ",", 
      RowBox[{"(", 
       OverscriptBox["1", "_"], ")"}], ",", 
      RowBox[{"(", 
       OverscriptBox["2", "_"], ")"}], ",", 
      RowBox[{"(", 
       OverscriptBox["3", "_"], ")"}], ",", 
      RowBox[{"(", 
       OverscriptBox["123", "_"], ")"}]}], "}"}], " "}], TraditionalForm]],
  ExpressionUUID->"5db3274d-f08c-4197-b5a0-d5fe78ddde8c"],
 ",  sign flips on three elements\n",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["S", "\[Mu]"], TraditionalForm]],ExpressionUUID->
  "b37afbb1-cc56-4d96-aa31-8c8f2c7a20f1"],
 " = ",
 Cell[BoxData[
  RowBox[{"{", " ", 
   RowBox[{
    RowBox[{"(", ")"}], ",", " ", 
    RowBox[{"(", "12", ")"}], ",", " ", 
    RowBox[{"(", "13", ")"}], ",", " ", 
    RowBox[{"(", "23", ")"}], ",", " ", 
    RowBox[{"(", "123", ")"}], ",", " ", 
    RowBox[{"(", "132", ")"}]}], " ", "}"}]],ExpressionUUID->
  "132014ac-5368-4e21-b8cf-b038ca72a9ea"],
 ":,  ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["S", "3"], TraditionalForm]],ExpressionUUID->
  "87114814-2d0b-43f2-9e7e-53ff75bb6ba4"],
 " permutation group:\n",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["\[ScriptCapitalV]", "A"], "=", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"(", ")"}], ",", " ", 
      RowBox[{
       RowBox[{"(", "12", ")"}], 
       RowBox[{"(", "34", ")"}]}], ",", " ", 
      RowBox[{
       RowBox[{"(", "13", ")"}], 
       RowBox[{"(", "24", ")"}]}], ",", " ", 
      RowBox[{
       RowBox[{"(", "14", ")"}], 
       RowBox[{"(", "23", ")"}]}]}], " ", "}"}]}], TraditionalForm]],
  ExpressionUUID->"bb4cfd6f-07ff-45b7-9a5d-2b5e33dc674d"],
 ", the vierergruppe:"
}], "Subsection",
 CellChangeTimes->{{3.749999947560832*^9, 3.750000041447462*^9}, {
  3.7500008849510117`*^9, 3.750000944417148*^9}, {3.750001002728612*^9, 
  3.750001013769676*^9}, {3.750015481276161*^9, 
  3.750015552003019*^9}},ExpressionUUID->"4a154674-503d-48d8-9ecc-\
878f00a63093"],

Cell[CellGroupData[{

Cell["\<\
Here we are using the BC4Tools package, so lets display the function list to \
see what we have to use\
\>", "Subsubsection",
 CellChangeTimes->{{3.750014032179188*^9, 
  3.750014056962703*^9}},ExpressionUUID->"96ea9552-b63e-4765-982b-\
a52486deebed"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FunctionList", "[", "BC4Tools", "]"}]], "Input",
 CellChangeTimes->{{3.750014002064106*^9, 3.75001402001188*^9}},
 CellLabel->
  "In[114]:=",ExpressionUUID->"a6c86e3a-c60d-46df-a772-a01aff82286d"],

Cell[BoxData["\<\"\\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***************************************\
*************************************************\"\>"], "Output",
 CellChangeTimes->{
  3.750014020814904*^9, 3.75001783908007*^9, 3.75001801878638*^9, 
   3.7500183598453994`*^9, 3.7501575244679937`*^9, 3.7503401816967793`*^9, 
   3.750376445058941*^9, 3.7503767374764614`*^9, 3.750377527854005*^9, 
   3.7503775841893854`*^9, {3.7503779986513968`*^9, 3.750378010514713*^9}, 
   3.750685269427499*^9, 3.7525207862950916`*^9, 3.753914256188041*^9, 
   3.801831186479032*^9},
 CellLabel->
  "Out[114]=",ExpressionUUID->"a3e96417-e1d5-46ca-8911-13c8a866e982"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Use Index Range to display the valid ranges for a given type of index listed \
in the FunctionList\
\>", "Subsubsection",
 CellChangeTimes->{{3.750014074403391*^9, 
  3.7500140981791344`*^9}},ExpressionUUID->"b820d536-8904-490c-b9ba-\
8f32750d48ba"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"IndexRange", "[", "BC4Tools", "]"}], "[", "n", "]"}]], "Input",
 CellChangeTimes->{{3.7500140218217583`*^9, 3.750014023436365*^9}, {
   3.7500141012672977`*^9, 3.7500141077557707`*^9}, 3.7500141676683145`*^9},
 CellLabel->
  "In[115]:=",ExpressionUUID->"6606af04-10ef-45ac-b57b-43580835c3f3"],

Cell[BoxData["\<\"1,2 for Table, Integers for Perm\"\>"], "Output",
 CellChangeTimes->{{3.750014102202908*^9, 3.7500141081904545`*^9}, 
   3.750014168052933*^9, 3.750017839099971*^9, 3.7500179587362003`*^9, 
   3.750018018807144*^9, 3.7500183598667336`*^9, 3.750157524485351*^9, 
   3.750340181712397*^9, 3.750376445081849*^9, 3.7503767375043545`*^9, 
   3.7503775278729343`*^9, 3.7503775842053432`*^9, {3.7503779986683803`*^9, 
   3.750378010533635*^9}, 3.750685269451313*^9, 3.7525207863180304`*^9, 
   3.7539142562036657`*^9, 3.801831186490369*^9},
 CellLabel->
  "Out[115]=",ExpressionUUID->"9332a26e-e6bd-4b82-a052-eb3f7d556bc8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"IndexRange", "[", "BC4Tools", "]"}], "[", "a", "]"}]], "Input",
 CellChangeTimes->{{3.7500141881474175`*^9, 3.750014188507263*^9}},
 CellLabel->
  "In[116]:=",ExpressionUUID->"05bb1dc4-46f8-4ca6-b7ab-c3a4b7f09611"],

Cell[BoxData["\<\"1,2,3,4,5,6,7,8 for Table, 0,12,13,23,1,2,3,123 for \
Perm\"\>"], "Output",
 CellChangeTimes->{
  3.7500141893267555`*^9, 3.750017839125206*^9, 3.7500179587857943`*^9, 
   3.7500180188335094`*^9, 3.750018359887063*^9, 3.7501575244997845`*^9, 
   3.7503401817279873`*^9, 3.750376445106807*^9, 3.7503767375323286`*^9, 
   3.750377527890855*^9, 3.7503775842203045`*^9, {3.75037799868334*^9, 
   3.7503780105506115`*^9}, 3.7506852694712725`*^9, 3.7525207863400154`*^9, 
   3.753914256219284*^9, 3.801831186563999*^9},
 CellLabel->
  "Out[116]=",ExpressionUUID->"3aecec2b-eded-4927-b48f-a13100120108"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"IndexRange", "[", "BC4Tools", "]"}], "[", "\[Mu]", "]"}]], "Input",\

 CellChangeTimes->{{3.7500141881474175`*^9, 3.7500142107078857`*^9}},
 CellLabel->
  "In[117]:=",ExpressionUUID->"2992988f-1a2f-4213-b83e-7c4836a2d4f1"],

Cell[BoxData["\<\"1,2,3,4,5,6 for Table, 0,12,13,23,123,132 for Perm\"\>"], \
"Output",
 CellChangeTimes->{{3.7500141893267555`*^9, 3.75001421131201*^9}, 
   3.7500178391480217`*^9, 3.7500179588036127`*^9, 3.750018018853811*^9, 
   3.750018359915373*^9, 3.750157524514677*^9, 3.7503401817592616`*^9, 
   3.750376445130718*^9, 3.7503767375592327`*^9, 3.7503775279078093`*^9, 
   3.7503775842372265`*^9, {3.750377998700265*^9, 3.7503780105675406`*^9}, 
   3.750685269489092*^9, 3.7525207863629103`*^9, 3.753914256219284*^9, 
   3.801831186574286*^9},
 CellLabel->
  "Out[117]=",ExpressionUUID->"512a6f83-38e2-458d-9caf-7fc9c58eae85"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"IndexRange", "[", "BC4Tools", "]"}], "[", "A", "]"}]], "Input",
 CellChangeTimes->{{3.7500141881474175`*^9, 3.750014237731307*^9}},
 CellLabel->
  "In[118]:=",ExpressionUUID->"846acae4-f2dd-4c0a-bcf7-91c2f650a304"],

Cell[BoxData["\<\"1,2,3,4 for Table, 0,1234,1324,1423 for Perm\"\>"], "Output",
 CellChangeTimes->{{3.7500141893267555`*^9, 3.750014240626133*^9}, 
   3.7500178391638937`*^9, 3.7500179588311853`*^9, 3.7500180188726606`*^9, 
   3.7500183599321995`*^9, 3.7501575245285683`*^9, 3.750340181774883*^9, 
   3.7503764451546793`*^9, 3.7503767375861473`*^9, 3.7503775279247646`*^9, 
   3.750377584252223*^9, {3.7503779987162466`*^9, 3.7503780105844955`*^9}, 
   3.7506852695069475`*^9, 3.752520786382857*^9, 3.753914256234928*^9, 
   3.801831186645048*^9},
 CellLabel->
  "Out[118]=",ExpressionUUID->"02d94d40-ba7c-4986-967e-841f34f6942c"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Some Permutation Matrices", "Subsubsection",
 CellChangeTimes->{{3.7500174612663383`*^9, 
  3.7500174646982107`*^9}},ExpressionUUID->"0f62e0c9-c086-4929-8a27-\
0433e1e30a4c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"S3Perm", "[", "123", "]"}], ".", 
   RowBox[{"VierPerm", "[", "1423", "]"}]}], "//", "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.7500155818982797`*^9, 3.7500156224751034`*^9}},
 CellLabel->
  "In[119]:=",ExpressionUUID->"aac279cd-503d-4c79-bfa6-28407b5aaa0a"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "1", "0", "0"},
     {"0", "0", "0", "1"},
     {"0", "0", "1", "0"},
     {"1", "0", "0", "0"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.750015618195195*^9, 3.750015622842891*^9}, 
   3.750017839183276*^9, 3.750017958849986*^9, 3.7500180188993998`*^9, 
   3.750018359954023*^9, 3.7501575245451093`*^9, 3.750340181806125*^9, 
   3.750376445178625*^9, 3.7503767376150894`*^9, 3.750377527943714*^9, 
   3.750377584269142*^9, {3.7503779987331767`*^9, 3.750378010602447*^9}, 
   3.750685269525796*^9, 3.752520786406836*^9, 3.7539142562505608`*^9, 
   3.8018311866604023`*^9},
 CellLabel->
  "Out[119]//MatrixForm=",ExpressionUUID->"c644a3f4-0d15-433b-adf0-\
41648f7d848b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"BC4Perm", "[", 
   RowBox[{"0", ",", "12", ",", "123", ",", "1423"}], "]"}], "//", 
  "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.750015900811403*^9, 3.750015931172264*^9}},
 CellLabel->
  "In[120]:=",ExpressionUUID->"4692b2b7-c5d4-4c67-929e-db7662bacfca"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", 
      RowBox[{"-", "1"}], "0", "0"},
     {"0", "0", "0", 
      RowBox[{"-", "1"}]},
     {"0", "0", "1", "0"},
     {"1", "0", "0", "0"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.7500159315049467`*^9, 3.7500178392031403`*^9, 3.7500179588713007`*^9, 
   3.750018018918289*^9, 3.7500183599808073`*^9, 3.7501575245613694`*^9, 
   3.7503401818217463`*^9, 3.7503764452035246`*^9, 3.7503767376440115`*^9, 
   3.7503775279606996`*^9, 3.750377584285099*^9, {3.7503779987491646`*^9, 
   3.7503780106203995`*^9}, 3.7506852695442066`*^9, 3.7525207864277363`*^9, 
   3.753914256266148*^9, 3.801831186727759*^9},
 CellLabel->
  "Out[120]//MatrixForm=",ExpressionUUID->"e26d60e9-007c-4f0b-8ff2-\
2f10bb5fbc80"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"BC4Perm", "[", 
    RowBox[{"0", ",", "12", ",", "123", ",", "1423"}], "]"}], "[", 
   RowBox[{"[", 
    RowBox[{"1", ",", "2"}], "]"}], "]"}], 
  RowBox[{
   RowBox[{"L", "[", "Q", "]"}], "[", 
   RowBox[{"[", "2", "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7500160868759623`*^9, 3.75001610462731*^9}},
 CellLabel->
  "In[121]:=",ExpressionUUID->"96fb22ab-0047-4d12-88a8-c540582a209d"],

Cell[BoxData[
 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"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.7500161007637815`*^9, 3.7500161054409175`*^9}, 
   3.7500178392317095`*^9, 3.7500179589244747`*^9, 3.7500180189421015`*^9, 
   3.750018360002142*^9, 3.750157524577737*^9, 3.7503401818529587`*^9, 
   3.750376445227491*^9, 3.75037673767395*^9, 3.750377528015552*^9, 
   3.750377584302087*^9, {3.750377998769081*^9, 3.7503780106393747`*^9}, 
   3.7506852695641108`*^9, 3.752520786448679*^9, 3.753914256281803*^9, 
   3.801831186749058*^9},
 CellLabel->
  "Out[121]=",ExpressionUUID->"5c9c9dc6-a2cc-4948-b2db-624097dcaeef"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"S3Perm", "[", "132", "]"}], "//", "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.750016619559681*^9, 3.7500166277544127`*^9}},
 CellLabel->
  "In[122]:=",ExpressionUUID->"d42e7543-27d8-4e37-ad2d-d5f194b0f6df"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "1", "0", "0"},
     {"0", "0", "1", "0"},
     {"1", "0", "0", "0"},
     {"0", "0", "0", "1"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.750016628205491*^9, 3.7500178392475815`*^9, 3.7500179589428654`*^9, 
   3.7500180189703283`*^9, 3.7500183600314064`*^9, 3.7501575245920773`*^9, 
   3.7503401818686185`*^9, 3.7503764452504334`*^9, 3.7503767377018704`*^9, 
   3.750377528031479*^9, 3.750377584318048*^9, {3.750377998786068*^9, 
   3.750378010656305*^9}, 3.7506852695879135`*^9, 3.752520786473647*^9, 
   3.7539142562974215`*^9, 3.801831186821107*^9},
 CellLabel->
  "Out[122]//MatrixForm=",ExpressionUUID->"f0ee8e99-3632-4e7a-8b1c-\
31aafeba57ca"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
We are using BC4ColorPerm, rather than BC4Color so use the appropriate indices\
\>", "Subsubsection",
 CellChangeTimes->{{3.75001411812313*^9, 
  3.7500141437626095`*^9}},ExpressionUUID->"c9e06f9b-a484-4f08-8fee-\
bda10fcbeeac"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"L", "[", "NewQ", "]"}], "=", 
   RowBox[{
    RowBox[{"BC4ColorPerm", "[", 
     RowBox[{
      RowBox[{"-", "1"}], ",", "12", ",", "123", ",", "1423"}], "]"}], "[", 
    RowBox[{"L", "[", "Q", "]"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.750000268725576*^9, 3.750000315640018*^9}, {
   3.750000440446885*^9, 3.750000543858657*^9}, {3.750000621455657*^9, 
   3.750000634964435*^9}, {3.7500008447009172`*^9, 3.750000852547243*^9}, {
   3.750014150964014*^9, 3.750014196603547*^9}, {3.7500142293474565`*^9, 
   3.7500142457314053`*^9}, {3.750015218404468*^9, 3.750015218723035*^9}, 
   3.7500167397004137`*^9, {3.7500168078997326`*^9, 3.75001681669881*^9}, {
   3.750016902044376*^9, 3.750016908842754*^9}, {3.7500172679000907`*^9, 
   3.7500172683067026`*^9}},
 CellLabel->
  "In[123]:=",ExpressionUUID->"b648f6ac-8c86-42db-9bb9-e99adaabad45"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintAllL", "[", "NewQ", "]"}]], "Input",
 CellChangeTimes->{{3.75000054595352*^9, 3.750000560372361*^9}, {
  3.750000627683613*^9, 3.750000627794695*^9}, {3.750014250372919*^9, 
  3.75001425089917*^9}},
 CellLabel->
  "In[124]:=",ExpressionUUID->"bab3c4b3-8dc7-4d62-a3b3-b12ba7ab0849"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   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}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   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}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   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}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   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}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{
  3.750014251294922*^9, 3.7500152241780815`*^9, 3.750016745338088*^9, 
   3.750016819329509*^9, 3.750016913467269*^9, 3.7500172726086035`*^9, 
   3.7500178392823014`*^9, 3.750017959167018*^9, 3.7500180190060773`*^9, 
   3.750018360067135*^9, 3.7501575246174393`*^9, 3.750340181915475*^9, 
   3.750340259685613*^9, 3.7503764452923174`*^9, 3.750376737790621*^9, 
   3.750377528060402*^9, 3.7503775843459697`*^9, {3.7503779988179827`*^9, 
   3.750378010688245*^9}, 3.7506852696237087`*^9, 3.7525207865125647`*^9, 
   3.7539142563130426`*^9, 3.801831186897469*^9},
 CellLabel->
  "Out[124]=",ExpressionUUID->"3d4642e1-95f7-4db2-98a9-197734271c71"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GraphAdinkra", "[", "NewQ", "]"}]], "Input",
 CellChangeTimes->{{3.750000564048297*^9, 3.750000571833108*^9}, {
   3.750000666074736*^9, 3.750000666208561*^9}, 3.750014254795973*^9},
 CellLabel->
  "In[125]:=",ExpressionUUID->"2dc396aa-87c3-4819-bb34-5c1374f71a20"],

Cell[BoxData[
 GraphicsBox[{
   {Hue[0.6, 0.7, 0.5], Opacity[0.7], 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -1.}, {-1.5, -2.}}]}}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {-0.5, -2.}}]}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -1.}, {0.5, -2.}}]}}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {1.5, -2.}}]}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -2.}, {-0.5, -1.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     LineBox[{{-1.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-0.5, -2.}, {-0.5, -1.}}]}}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-0.5, -2.}, {0.5, -1.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-0.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     LineBox[{{0.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{0.5, -2.}, {0.5, -1.}}]}}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{0.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     LineBox[{{1.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{1.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{1.5, -2.}, {1.5, -1.}}]}}}, 
   {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 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.}]}},
  FormatType->TraditionalForm,
  FrameTicks->None]], "Output",
 CellChangeTimes->{
  3.750014256065813*^9, 3.7500152242525234`*^9, 3.750016747789217*^9, 
   3.750016821113964*^9, 3.750016913494052*^9, 3.750017272637409*^9, 
   3.7500178393115654`*^9, 3.750017959219594*^9, 3.750018019036792*^9, 
   3.7500183600978627`*^9, 3.7501575246575885`*^9, 3.750340181946717*^9, 
   3.750340259716889*^9, 3.75037644532121*^9, 3.750376737824498*^9, 
   3.7503775280803537`*^9, 3.750377584375887*^9, {3.7503779988459063`*^9, 
   3.750378010717173*^9}, 3.750685269649803*^9, 3.7525207865415373`*^9, 
   3.7539142563286595`*^9, 3.80183118710244*^9},
 CellLabel->
  "Out[125]=",ExpressionUUID->"617b6a1b-ae00-41c0-b573-7e9a1ae7c8c3"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Compare to Q, the above is a permutation of the colors as encoded in \
PrintBC4ColorPerm below read right to left:\nthen flopping (swapping) colors \
1 and 4 and 2 and 3:  (14)(23)\nthen flopping color 1 to 2 to 3 to 1:  (123)\n\
--->    (142)\n1 to 4 (green to red, as in what was green in Q is now red in \
NewQ),\n4 to 2 (red to becomes purple)\n2 to 1  (purple becomes green)\n\
orange stays orange\nthe flipping (switching the sign of) colors 3 and 4 \
(orange and red):  ",
 Cell[BoxData[
  RowBox[{"(", 
   OverscriptBox["34", "_"], ")"}]],
  CellChangeTimes->{3.750014344176687*^9, 3.7500152461888013`*^9, 
   3.750017285438963*^9},ExpressionUUID->
  "817871d0-9243-4c63-91a0-72051a495834"]
}], "Subsubsection",
 CellChangeTimes->{{3.750014265490833*^9, 3.7500144527709923`*^9}, {
  3.750014593403341*^9, 3.750014612890901*^9}, {3.750017046971337*^9, 
  3.750017241466543*^9}, {3.750017301482544*^9, 
  3.7500173211385994`*^9}},ExpressionUUID->"a73a47a9-34b2-4a71-b6c6-\
9f8e7dafde8d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintBC4ColorPerm", "[", 
  RowBox[{
   RowBox[{"-", "1"}], ",", "12", ",", "123", ",", "1423"}], "]"}]], "Input",
 CellChangeTimes->{{3.7500143299924393`*^9, 3.750014343323606*^9}, 
   3.750015242228219*^9, {3.7500172762761445`*^9, 3.7500172765947866`*^9}},
 CellLabel->
  "In[126]:=",ExpressionUUID->"32d5a6eb-aad7-4676-8424-9cff34121559"],

Cell[BoxData[
 RowBox[{"\<\"((\"\>", "**", 
  OverscriptBox["34", "_"], "**", "\<\")\"\>", 
  "**", "\<\"(123)(14)(23)\\!\\(\\*SuperscriptBox[SubscriptBox[\\()\\), \
\\(I\\)], \\(J\\)]\\)\"\>"}]], "Output",
 CellChangeTimes->{
  3.750014344176687*^9, 3.7500152461888013`*^9, 3.750017285438963*^9, 
   3.7500178393329306`*^9, 3.7500179592429066`*^9, 3.75001801905564*^9, 
   3.7500183601256804`*^9, 3.750157524677387*^9, 3.7503401819623337`*^9, 
   3.75034026349858*^9, 3.7503764453481445`*^9, 3.7503767378534527`*^9, 
   3.7503775280992985`*^9, 3.750377584394847*^9, {3.750377998872834*^9, 
   3.750378010735124*^9}, 3.7506852696721697`*^9, 3.752520786565424*^9, 
   3.7539142563442855`*^9, 3.801831187120129*^9},
 CellLabel->
  "Out[126]=",ExpressionUUID->"3c1aa68e-031d-4c67-adfd-4dab191c8f8d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GraphAdinkra", "[", "Q", "]"}]], "Input",
 CellChangeTimes->{{3.750000576182727*^9, 3.750000581319821*^9}},
 CellLabel->
  "In[127]:=",ExpressionUUID->"9e2c9c72-9674-4ce4-940c-07f6be939b89"],

Cell[BoxData[
 GraphicsBox[{
   {Hue[0.6, 0.7, 0.5], Opacity[0.7], 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {-1.5, -2.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {-0.5, -2.}}]}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {0.5, -2.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {1.5, -2.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -2.}, {-0.5, -1.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -2.}, {0.5, -1.}}]}}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{-0.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-0.5, -2.}, {0.5, -1.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     LineBox[{{-0.5, -2.}, {1.5, -1.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     LineBox[{{0.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{0.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{0.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{1.5, -2.}, {-0.5, -1.}}]}}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     LineBox[{{1.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{1.5, -2.}, {1.5, -1.}}]}}, 
   {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 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.}]}},
  FormatType->TraditionalForm,
  FrameTicks->None]], "Output",
 CellChangeTimes->{
  3.7500142596149564`*^9, 3.75001524626469*^9, 3.7500172855331755`*^9, 
   3.7500178393567433`*^9, 3.7500179594656105`*^9, 3.750018019087425*^9, 
   3.750018360199046*^9, 3.7501575247220726`*^9, 3.750340181993576*^9, 
   3.7503402635610714`*^9, 3.750376445384041*^9, 3.7503767378903227`*^9, 
   3.750377528125247*^9, 3.7503775844496856`*^9, {3.7503779989027567`*^9, 
   3.7503780107859898`*^9}, 3.7506852697027717`*^9, 3.7525207866063766`*^9, 
   3.753914256437982*^9, 3.801831187209148*^9},
 CellLabel->
  "Out[127]=",ExpressionUUID->"e2fb68ab-83aa-44ff-aa96-2f9884f28789"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GraphAdinkra", "[", "NewQ", "]"}]], "Input",
 CellChangeTimes->{{3.750000564048297*^9, 3.750000571833108*^9}, {
   3.750000666074736*^9, 3.750000666208561*^9}, 3.750014254795973*^9},
 CellLabel->
  "In[128]:=",ExpressionUUID->"c8da0cc3-083a-48b0-b7e7-3f00fd96f98b"],

Cell[BoxData[
 GraphicsBox[{
   {Hue[0.6, 0.7, 0.5], Opacity[0.7], 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -1.}, {-1.5, -2.}}]}}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {-0.5, -2.}}]}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -1.}, {0.5, -2.}}]}}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {1.5, -2.}}]}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -2.}, {-0.5, -1.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     LineBox[{{-1.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-0.5, -2.}, {-0.5, -1.}}]}}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-0.5, -2.}, {0.5, -1.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-0.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     LineBox[{{0.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{0.5, -2.}, {0.5, -1.}}]}}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{0.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     LineBox[{{1.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{1.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{1.5, -2.}, {1.5, -1.}}]}}}, 
   {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 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.}]}},
  FormatType->TraditionalForm,
  FrameTicks->None]], "Output",
 CellChangeTimes->{
  3.750014256065813*^9, 3.7500152242525234`*^9, 3.750016747789217*^9, 
   3.750016821113964*^9, 3.750016913494052*^9, 3.750017272637409*^9, 
   3.750017839392909*^9, 3.7500179595479465`*^9, 3.75001801911516*^9, 
   3.750018360232321*^9, 3.7501575248302064`*^9, 3.7503401820248013`*^9, 
   3.750340263576663*^9, 3.750376445416999*^9, 3.7503767379272585`*^9, 
   3.750377528144178*^9, 3.7503775844825954`*^9, {3.750377998951625*^9, 
   3.7503780108268485`*^9}, 3.7506852697459655`*^9, 3.752520786640258*^9, 
   3.75391425646924*^9, 3.8018311873076687`*^9},
 CellLabel->
  "Out[128]=",ExpressionUUID->"15cac824-1992-4db4-9756-53aaa0968960"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "In terms of the Table indices:\nBC4Color[n,a,\[Mu],A][L[Rep]] := ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox[
    SubscriptBox[
     RowBox[{"(", 
      SubsuperscriptBox["BC", "4", "mb\[Nu]B"], ")"}], "I"], "J"], 
   TraditionalForm]],ExpressionUUID->"c68454b7-c5c0-4136-bc3c-eaa39d8a6584"],
 Cell[BoxData[
  FormBox[
   SuperscriptBox[
    SubscriptBox[
     RowBox[{"(", 
      SubsuperscriptBox["L", "J", 
       RowBox[{"(", "Rep", ")"}]], ")"}], "i"], 
    OverscriptBox["j", "^"]], TraditionalForm]],ExpressionUUID->
  "624d39e6-0dde-417e-93fd-2a8101b0f1e6"],
 "= ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"-", "1"}], ")"}], "m"], 
    SuperscriptBox[
     SubscriptBox[
      RowBox[{"(", 
       SuperscriptBox["H", "b"], ")"}], "I"], "K"], 
    SuperscriptBox[
     SubscriptBox[
      RowBox[{"(", 
       SubsuperscriptBox["S", "3", "\[Nu]"], ")"}], "K"], "L"], 
    SuperscriptBox[
     SubscriptBox[
      RowBox[{"(", 
       SuperscriptBox["\[ScriptCapitalV]", "B"], ")"}], "L"], "J"]}], 
   TraditionalForm]],ExpressionUUID->"97a13568-49a9-4b41-b596-6fb1591a7534"],
 Cell[BoxData[
  FormBox[
   SuperscriptBox[
    SubscriptBox[
     RowBox[{"(", 
      SubsuperscriptBox["L", "J", 
       RowBox[{"(", "Rep", ")"}]], ")"}], "i"], 
    OverscriptBox["j", "^"]], TraditionalForm]],ExpressionUUID->
  "303cecff-5b5d-4d2f-b1a8-40e07dd020f0"],
 "\nBC4Boson[n,a,\[Mu],A][L[Rep]] := ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox[
    SubscriptBox[
     RowBox[{"(", 
      SubsuperscriptBox["BC", "4", "mb\[Nu]B"], ")"}], "i"], "j"], 
   TraditionalForm]],ExpressionUUID->"37a71d45-8ae1-42f0-8bd5-5c5a30442e7c"],
 Cell[BoxData[
  FormBox[
   SuperscriptBox[
    SubscriptBox[
     RowBox[{"(", 
      SubsuperscriptBox["L", "I", 
       RowBox[{"(", "Rep", ")"}]], ")"}], "j"], 
    OverscriptBox["j", "^"]], TraditionalForm]],ExpressionUUID->
  "270716b2-51f6-4c18-8751-7b47e8ba64f3"],
 "= ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"-", "1"}], ")"}], "m"], 
    SuperscriptBox[
     SubscriptBox[
      RowBox[{"(", 
       SuperscriptBox["H", "b"], ")"}], "i"], "k"], 
    SuperscriptBox[
     SubscriptBox[
      RowBox[{"(", 
       SubsuperscriptBox["S", "3", "\[Nu]"], ")"}], "k"], "p"], 
    SuperscriptBox[
     SubscriptBox[
      RowBox[{"(", 
       SuperscriptBox["\[ScriptCapitalV]", "B"], ")"}], "p"], "j"]}], 
   TraditionalForm]],ExpressionUUID->"ce539c91-73a0-44b8-8d95-e2f6fd95d294"],
 Cell[BoxData[
  FormBox[
   SuperscriptBox[
    SubscriptBox[
     RowBox[{"(", 
      SubsuperscriptBox["L", "I", 
       RowBox[{"(", "Rep", ")"}]], ")"}], "j"], 
    OverscriptBox["j", "^"]], TraditionalForm]],ExpressionUUID->
  "1c6fbca6-2094-41f5-be87-fa5dcddfe256"],
 "\nfor n = 1 we have the minus sign\nb=2 is the sign flip  ",
 Cell[BoxData[
  RowBox[{"(", 
   OverscriptBox["12", "_"], ")"}]],
  CellChangeTimes->{3.750014344176687*^9, 3.7500152461888013`*^9, 
   3.750017285438963*^9},ExpressionUUID->
  "f92c0a60-3150-4c88-9de3-ff65c148de05"],
 ", so put these together we have  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"-", 
    RowBox[{"(", 
     OverscriptBox["12", "_"], ")"}]}], "=", 
   RowBox[{"(", 
    OverscriptBox["34", "_"], ")"}]}]],
  CellChangeTimes->{3.750014344176687*^9, 3.7500152461888013`*^9, 
   3.750017285438963*^9},ExpressionUUID->
  "9667e389-f9fe-4056-8a0b-7dee01929cdf"],
 "\n\[Mu]=5 is the Permutation (123)\nA=4 is the Vierergruppe element \
(14)(23)\nso we should use BC4Color[1,2,5,4]"
}], "Subsection",
 CellChangeTimes->{
  3.7499989947064333`*^9, {3.749999053189328*^9, 3.749999175091531*^9}, {
   3.749999284913878*^9, 3.7499992924498587`*^9}, {3.749999844329859*^9, 
   3.749999855426215*^9}, {3.7499998927457333`*^9, 3.749999907174493*^9}, {
   3.7500000639612703`*^9, 3.7500001469113073`*^9}, {3.7500174068186426`*^9, 
   3.750017414819168*^9}, {3.750017565114824*^9, 
   3.7500177077311554`*^9}},ExpressionUUID->"6d256aa4-69fc-4b23-b060-\
18289227fe6a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"IndexRange", "[", "BC4Tools", "]"}], "[", "n", "]"}]], "Input",
 CellChangeTimes->{{3.750017494438775*^9, 3.7500175014027157`*^9}},
 CellLabel->
  "In[129]:=",ExpressionUUID->"806069d3-7b1a-4b72-9888-118fa65eb950"],

Cell[BoxData["\<\"1,2 for Table, Integers for Perm\"\>"], "Output",
 CellChangeTimes->{
  3.7500175026935105`*^9, 3.7500177642847404`*^9, 3.750017839410307*^9, 
   3.7500179595717945`*^9, 3.7500180191489363`*^9, 3.75001836025212*^9, 
   3.7501575248534813`*^9, 3.7503401820560637`*^9, 3.7503764454448795`*^9, 
   3.7503767379571753`*^9, 3.750377528164158*^9, 3.750377584499539*^9, {
   3.750377998969578*^9, 3.7503780108457975`*^9}, 3.7506852697643185`*^9, 
   3.7525207866651554`*^9, 3.75391425648488*^9, 3.801831187321602*^9},
 CellLabel->
  "Out[129]=",ExpressionUUID->"e22eae60-1fde-4c2a-852c-85354a492868"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"IndexRange", "[", "BC4Tools", "]"}], "[", "a", "]"}]], "Input",
 CellChangeTimes->{{3.7500175370850344`*^9, 3.7500175429625587`*^9}},
 CellLabel->
  "In[130]:=",ExpressionUUID->"e60d3cd6-b22b-493e-a7fe-0d78b7c9dd66"],

Cell[BoxData["\<\"1,2,3,4,5,6,7,8 for Table, 0,12,13,23,1,2,3,123 for \
Perm\"\>"], "Output",
 CellChangeTimes->{
  3.750017543457904*^9, 3.7500177643686852`*^9, 3.7500178394256444`*^9, 
   3.750017959591146*^9, 3.750018019168273*^9, 3.750018360277481*^9, 
   3.750157524878281*^9, 3.750340182118852*^9, 3.7503764454708405`*^9, 
   3.750376737987095*^9, 3.7503775282149963`*^9, 3.750377584517504*^9, {
   3.750377998988494*^9, 3.7503780108617845`*^9}, 3.750685269787634*^9, 
   3.7525207866941195`*^9, 3.7539142565161147`*^9, 3.8018311873872967`*^9},
 CellLabel->
  "Out[130]=",ExpressionUUID->"b01473af-c187-4d1c-8c21-a37f9bc318af"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"IndexRange", "[", "BC4Tools", "]"}], "[", "\[Mu]", "]"}]], "Input",\

 CellChangeTimes->{{3.7500175370850344`*^9, 3.7500175429625587`*^9}, {
  3.750017645907188*^9, 3.750017647186825*^9}},
 CellLabel->
  "In[131]:=",ExpressionUUID->"fb47236a-6c90-419d-b702-b47ad6072bfd"],

Cell[BoxData["\<\"1,2,3,4,5,6 for Table, 0,12,13,23,123,132 for Perm\"\>"], \
"Output",
 CellChangeTimes->{
  3.750017543457904*^9, 3.7500176477211275`*^9, 3.750017764394477*^9, 
   3.7500178394405713`*^9, 3.7500179596193705`*^9, 3.7500180191891055`*^9, 
   3.750018360298276*^9, 3.7501575248951473`*^9, 3.7503401821345134`*^9, 
   3.7503764454957743`*^9, 3.750376738016018*^9, 3.750377528231943*^9, 
   3.750377584532437*^9, {3.750377999004482*^9, 3.750378010879738*^9}, 
   3.7506852698025103`*^9, 3.7525207867150235`*^9, 3.753914256531741*^9, 
   3.801831187399579*^9},
 CellLabel->
  "Out[131]=",ExpressionUUID->"50c41191-bff9-476d-987d-e973a83692e5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"IndexRange", "[", "BC4Tools", "]"}], "[", "A", "]"}]], "Input",
 CellChangeTimes->{{3.7500175370850344`*^9, 3.7500175429625587`*^9}, {
  3.750017645907188*^9, 3.7500176777542143`*^9}},
 CellLabel->
  "In[132]:=",ExpressionUUID->"1d653cf1-e98f-4714-a01a-a7f51058519a"],

Cell[BoxData["\<\"1,2,3,4 for Table, 0,1234,1324,1423 for Perm\"\>"], "Output",
 CellChangeTimes->{
  3.750017543457904*^9, 3.7500176477211275`*^9, 3.7500176781556616`*^9, 
   3.750017764414317*^9, 3.750017839456396*^9, 3.750017959637269*^9, 
   3.750018019216383*^9, 3.7500183603151402`*^9, 3.750157524907586*^9, 
   3.7503401821657476`*^9, 3.7503764455216737`*^9, 3.750376738045907*^9, 
   3.7503775282488985`*^9, 3.7503775845474358`*^9, {3.7503779990214367`*^9, 
   3.75037801089769*^9}, 3.7506852698193746`*^9, 3.7525207867330103`*^9, 
   3.753914256531741*^9, 3.801831187465994*^9},
 CellLabel->
  "Out[132]=",ExpressionUUID->"2bc1c811-d694-4401-9444-a0386b5e51d8"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"L", "[", "NewQTable", "]"}], "=", 
   RowBox[{
    RowBox[{"BC4Color", "[", 
     RowBox[{"1", ",", "2", ",", "5", ",", "4"}], "]"}], "[", 
    RowBox[{"L", "[", "Q", "]"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.750000268725576*^9, 3.750000315640018*^9}, {
  3.750000440446885*^9, 3.750000543858657*^9}, {3.750000621455657*^9, 
  3.750000634964435*^9}, {3.750017424219775*^9, 3.7500174280426617`*^9}, {
  3.750017716075425*^9, 3.7500177193864174`*^9}},
 CellLabel->
  "In[133]:=",ExpressionUUID->"b92b62bb-c6cc-4436-8f04-c7c5bb524cd2"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintAllL", "[", "NewQTable", "]"}]], "Input",
 CellChangeTimes->{{3.75000054595352*^9, 3.750000560372361*^9}, {
   3.750000627683613*^9, 3.750000627794695*^9}, 3.7500177281958485`*^9},
 CellLabel->
  "In[134]:=",ExpressionUUID->"94985629-5d87-4acc-a1da-c9afad58c0a3"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   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}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   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}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   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}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   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}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{
  3.7500177644495335`*^9, 3.7500178394837213`*^9, 3.7500179599011374`*^9, 
   3.7500180192511196`*^9, 3.750018360349859*^9, 3.750157524944249*^9, 
   3.7503401822126055`*^9, 3.7503764455655823`*^9, 3.7503767380968018`*^9, 
   3.7503775282778206`*^9, 3.7503775845753355`*^9, {3.7503779990523233`*^9, 
   3.7503780109295726`*^9}, 3.750685269853015*^9, 3.752520786774922*^9, 
   3.753914256562979*^9, 3.8018311875401793`*^9},
 CellLabel->
  "Out[134]=",ExpressionUUID->"f538ba74-e519-4958-a7b8-2ef3fb101f8c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"L", "[", "NewQTable", "]"}], "\[Equal]", 
  RowBox[{"L", "[", "NewQ", "]"}]}]], "Input",
 CellChangeTimes->{{3.750017775925014*^9, 3.7500177814433603`*^9}},
 CellLabel->
  "In[135]:=",ExpressionUUID->"4d11f607-324f-4c46-ab48-c0ea7a954d1a"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.7500177821569757`*^9, 3.7500178394996605`*^9, 3.750017960085166*^9, 
   3.750018019274428*^9, 3.750018360378134*^9, 3.7501575249616094`*^9, 
   3.7503401822438226`*^9, 3.7503764455914993`*^9, 3.750376738125725*^9, 
   3.750377528293809*^9, 3.750377584595271*^9, {3.7503779990713053`*^9, 
   3.75037801096747*^9}, 3.750685269868432*^9, 3.752520786795846*^9, 
   3.753914256578574*^9, 3.8018311875544024`*^9},
 CellLabel->
  "Out[135]=",ExpressionUUID->"4e2fb642-6ea0-4bc1-9ffa-c4ab6ea5f879"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GraphAdinkra", "[", "NewQTable", "]"}]], "Input",
 CellChangeTimes->{{3.750000564048297*^9, 3.750000571833108*^9}, {
   3.750000666074736*^9, 3.750000666208561*^9}, 3.750017730147251*^9},
 CellLabel->
  "In[257]:=",ExpressionUUID->"9d5076e4-2978-43b2-bfbb-1c8c5188b86d"],

Cell[BoxData[
 GraphicsBox[{
   {Hue[0.6, 0.7, 0.5], Opacity[0.7], 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -1.}, {-1.5, -2.}}]}}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {-0.5, -2.}}]}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -1.}, {0.5, -2.}}]}}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {1.5, -2.}}]}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -2.}, {-0.5, -1.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     LineBox[{{-1.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-0.5, -2.}, {-0.5, -1.}}]}}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-0.5, -2.}, {0.5, -1.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-0.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     LineBox[{{0.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{0.5, -2.}, {0.5, -1.}}]}}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{0.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     LineBox[{{1.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{1.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{1.5, -2.}, {1.5, -1.}}]}}}, 
   {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 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.}]}},
  FormatType->TraditionalForm,
  FrameTicks->None]], "Output",
 CellChangeTimes->{
  3.750017764472391*^9, 3.7500178395249567`*^9, 3.7500179601357083`*^9, 
   3.750018019311187*^9, 3.750018360404916*^9, 3.7501575250310497`*^9, 
   3.7503401822750683`*^9, 3.7503764456214404`*^9, 3.750376738160619*^9, 
   3.7503775283147535`*^9, 3.7503775846212015`*^9, {3.7503779990982313`*^9, 
   3.7503780109944296`*^9}, 3.750685269894678*^9, 3.7525207868238077`*^9, 
   3.753914256672333*^9, 3.801831187708528*^9, 3.801831252321679*^9},
 CellLabel->
  "Out[257]=",ExpressionUUID->"306daa73-5e0b-48ce-8759-67ac37e30a6c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GraphAdinkra", "[", "Q", "]"}]], "Input",
 CellChangeTimes->{{3.750000576182727*^9, 3.750000581319821*^9}},
 CellLabel->
  "In[137]:=",ExpressionUUID->"748ffe75-eff7-4cb9-b4aa-728c9508db37"],

Cell[BoxData[
 GraphicsBox[{
   {Hue[0.6, 0.7, 0.5], Opacity[0.7], 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {-1.5, -2.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {-0.5, -2.}}]}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {0.5, -2.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {1.5, -2.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -2.}, {-0.5, -1.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -2.}, {0.5, -1.}}]}}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{-0.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-0.5, -2.}, {0.5, -1.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     LineBox[{{-0.5, -2.}, {1.5, -1.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     LineBox[{{0.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{0.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{0.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{1.5, -2.}, {-0.5, -1.}}]}}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     LineBox[{{1.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{1.5, -2.}, {1.5, -1.}}]}}, 
   {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 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.}]}},
  FormatType->TraditionalForm,
  FrameTicks->None]], "Output",
 CellChangeTimes->{
  3.7500177645100875`*^9, 3.7500178395621977`*^9, 3.750017960351424*^9, 
   3.750018019342888*^9, 3.75001836043666*^9, 3.750157525116499*^9, 
   3.7503401823063097`*^9, 3.7503764456533546`*^9, 3.7503767381965685`*^9, 
   3.75037752834966*^9, 3.7503775846730933`*^9, {3.7503779991271286`*^9, 
   3.750378011043298*^9}, 3.750685269936355*^9, 3.7525207868557262`*^9, 
   3.753914256703576*^9, 3.801831187781476*^9},
 CellLabel->
  "Out[137]=",ExpressionUUID->"04aa83bf-7218-4b2e-bfc5-7e069d2289b2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"GraphAdinkra", "[", "NewQTable", "]"}], "\[IndentingNewLine]", 
 RowBox[{"GraphAdinkra", "[", "NewQ", "]"}]}], "Input",
 CellChangeTimes->{{3.750017740773785*^9, 3.750017758571004*^9}},
 CellLabel->
  "In[138]:=",ExpressionUUID->"2231d3af-f242-4aa4-ad3e-d70f2df535ba"],

Cell[BoxData[
 GraphicsBox[{
   {Hue[0.6, 0.7, 0.5], Opacity[0.7], 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -1.}, {-1.5, -2.}}]}}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {-0.5, -2.}}]}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -1.}, {0.5, -2.}}]}}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {1.5, -2.}}]}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -2.}, {-0.5, -1.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     LineBox[{{-1.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-0.5, -2.}, {-0.5, -1.}}]}}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-0.5, -2.}, {0.5, -1.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-0.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     LineBox[{{0.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{0.5, -2.}, {0.5, -1.}}]}}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{0.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     LineBox[{{1.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{1.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{1.5, -2.}, {1.5, -1.}}]}}}, 
   {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 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.}]}},
  FormatType->TraditionalForm,
  FrameTicks->None]], "Output",
 CellChangeTimes->{
  3.750017764535342*^9, 3.7500178395899324`*^9, 3.7500179604352474`*^9, 
   3.7500180193756237`*^9, 3.7500183604748883`*^9, 3.7501575252157073`*^9, 
   3.750340182337575*^9, 3.7503764456882277`*^9, 3.7503767382344465`*^9, 
   3.750377528370604*^9, 3.7503775847050023`*^9, {3.750377999158043*^9, 
   3.750378011077188*^9}, 3.750685269977528*^9, 3.7525207868885984`*^9, 
   3.7539142567973003`*^9, 3.80183118784862*^9},
 CellLabel->
  "Out[138]=",ExpressionUUID->"f94b6c85-0a01-40a2-a62e-cd3ee3c38f52"],

Cell[BoxData[
 GraphicsBox[{
   {Hue[0.6, 0.7, 0.5], Opacity[0.7], 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -1.}, {-1.5, -2.}}]}}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {-0.5, -2.}}]}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -1.}, {0.5, -2.}}]}}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {1.5, -2.}}]}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -2.}, {-0.5, -1.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     LineBox[{{-1.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-0.5, -2.}, {-0.5, -1.}}]}}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-0.5, -2.}, {0.5, -1.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-0.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     LineBox[{{0.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{0.5, -2.}, {0.5, -1.}}]}}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{0.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     LineBox[{{1.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{1.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{1.5, -2.}, {1.5, -1.}}]}}}, 
   {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 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.}]}},
  FormatType->TraditionalForm,
  FrameTicks->None]], "Output",
 CellChangeTimes->{
  3.750017764535342*^9, 3.7500178395899324`*^9, 3.7500179604352474`*^9, 
   3.7500180193756237`*^9, 3.7500183604748883`*^9, 3.7501575252157073`*^9, 
   3.750340182337575*^9, 3.7503764456882277`*^9, 3.7503767382344465`*^9, 
   3.750377528370604*^9, 3.7503775847050023`*^9, {3.750377999158043*^9, 
   3.750378011077188*^9}, 3.750685269977528*^9, 3.7525207868885984`*^9, 
   3.7539142567973003`*^9, 3.801831187892725*^9},
 CellLabel->
  "Out[139]=",ExpressionUUID->"f7df66b6-5ee8-42b3-90f7-451705842b31"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Isometry BC4Color and BC4Boson transformations on Q", "Subsection",
 CellChangeTimes->{{3.7148737257556777`*^9, 3.714873755119357*^9}, {
  3.7150190615039544`*^9, 
  3.7150190628080287`*^9}},ExpressionUUID->"aaee731e-3898-4efb-9e56-\
e3b4ccb356a3"],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[
 FormBox[
  SubscriptBox["Q", "I"], 
  TraditionalForm]],ExpressionUUID->"27238dfa-c91e-40fb-8f6c-ad9c2eb538de"]], \
"Subsubsection",
 CellChangeTimes->{{3.7094072981142626`*^9, 3.709407322272644*^9}, {
  3.7094073532224145`*^9, 3.70940735454449*^9}, {3.709408230412587*^9, 
  3.7094082312066326`*^9}},ExpressionUUID->"46e30a59-939e-428b-b1e7-\
7c9b5c8eded0"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LBP", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LCP", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"L", "[", "Local", "]"}], " ", "=", " ", 
   RowBox[{
    RowBox[{"BC4BosonPerm", "[", 
     RowBox[{
      RowBox[{"LBP", "[", 
       RowBox[{"[", "1", "]"}], "]"}], ",", 
      RowBox[{"LBP", "[", 
       RowBox[{"[", "2", "]"}], "]"}], ",", 
      RowBox[{"LBP", "[", 
       RowBox[{"[", "3", "]"}], "]"}], ",", 
      RowBox[{"LBP", "[", 
       RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "[", 
    RowBox[{
     RowBox[{"BC4ColorPerm", "[", 
      RowBox[{
       RowBox[{"LCP", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{"LCP", "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", 
       RowBox[{"LCP", "[", 
        RowBox[{"[", "3", "]"}], "]"}], ",", 
       RowBox[{"LCP", "[", 
        RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "[", 
     RowBox[{"L", "[", "Q", "]"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"GraphAdinkra", "[", "Local", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"L", "[", "Local", "]"}], " ", "\[Equal]", " ", 
  RowBox[{"L", "[", "Q", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"PrintBC4BosonPerm", "[", 
   RowBox[{
    RowBox[{"LBP", "[", 
     RowBox[{"[", "1", "]"}], "]"}], ",", 
    RowBox[{"LBP", "[", 
     RowBox[{"[", "2", "]"}], "]"}], ",", 
    RowBox[{"LBP", "[", 
     RowBox[{"[", "3", "]"}], "]"}], ",", 
    RowBox[{"LBP", "[", 
     RowBox[{"[", "4", "]"}], "]"}]}], "]"}], 
  RowBox[{"PrintBC4ColorPerm", "[", 
   RowBox[{
    RowBox[{"LCP", "[", 
     RowBox[{"[", "1", "]"}], "]"}], ",", 
    RowBox[{"LCP", "[", 
     RowBox[{"[", "2", "]"}], "]"}], ",", 
    RowBox[{"LCP", "[", 
     RowBox[{"[", "3", "]"}], "]"}], ",", 
    RowBox[{"LCP", "[", 
     RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.7094039013309774`*^9, 3.7094039138136916`*^9}, {
   3.7094044562677183`*^9, 3.7094044647322025`*^9}, {3.7094049724722433`*^9, 
   3.709404984724944*^9}, {3.709405453467755*^9, 3.7094054685566177`*^9}, {
   3.7094055063167777`*^9, 3.7094055076468534`*^9}, {3.7094055481201687`*^9, 
   3.709405675978482*^9}, {3.7094057446334085`*^9, 3.709405752020831*^9}, {
   3.7094071402432327`*^9, 3.709407176262293*^9}, {3.709407255326815*^9, 
   3.709407271982768*^9}, {3.7094082444943924`*^9, 3.709408244576397*^9}, {
   3.7095849305768614`*^9, 3.709584981646782*^9}, {3.714829435369877*^9, 
   3.7148294760468426`*^9}, {3.7148296420624914`*^9, 
   3.7148296599222927`*^9}, {3.7148297090223927`*^9, 
   3.7148297122727222`*^9}, {3.714874444460785*^9, 3.7148745018840694`*^9}, 
   3.714874545855585*^9, {3.714874721983659*^9, 3.7148747441659274`*^9}, {
   3.7148747765467796`*^9, 3.7148748382013063`*^9}, {3.7148748844889536`*^9, 
   3.7148749143556614`*^9}, {3.7150191266666813`*^9, 3.715019132469013*^9}, {
   3.7150195503779163`*^9, 3.7150195653337717`*^9}, {3.7154511812428513`*^9, 
   3.7154512442684565`*^9}, {3.7154521650631227`*^9, 
   3.7154522001531296`*^9}, {3.715452329242513*^9, 3.715452344031359*^9}, {
   3.7154523962273445`*^9, 3.715452453283608*^9}, {3.71547254083792*^9, 
   3.7154725433810654`*^9}, 3.749999482443261*^9, {3.749999585516108*^9, 
   3.749999605118332*^9}},
 CellLabel->
  "In[140]:=",ExpressionUUID->"3342bd6a-8921-4294-aa54-393fcda5b0e2"],

Cell[BoxData[
 GraphicsBox[{
   {Hue[0.6, 0.7, 0.5], Opacity[0.7], 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {-1.5, -2.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {-0.5, -2.}}]}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {0.5, -2.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {1.5, -2.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -2.}, {-0.5, -1.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -2.}, {0.5, -1.}}]}}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{-0.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-0.5, -2.}, {0.5, -1.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     LineBox[{{-0.5, -2.}, {1.5, -1.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     LineBox[{{0.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{0.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{0.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{1.5, -2.}, {-0.5, -1.}}]}}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     LineBox[{{1.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{1.5, -2.}, {1.5, -1.}}]}}, 
   {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 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.}]}},
  FormatType->TraditionalForm,
  FrameTicks->None]], "Output",
 CellChangeTimes->{
  3.750017794720547*^9, 3.7500178396405735`*^9, 3.7500179606931686`*^9, 
   3.7500180194366736`*^9, 3.750018360534372*^9, 3.7501575253174314`*^9, 
   3.7503401823844137`*^9, 3.7503764457361293`*^9, 3.7503767382852974`*^9, 
   3.7503775284194756`*^9, 3.750377584772826*^9, {3.750377999224878*^9, 
   3.750378011139013*^9}, 3.7506852700365906`*^9, 3.7525207869355536`*^9, 
   3.753914256922529*^9, 3.801831187997919*^9},
 CellLabel->
  "Out[143]=",ExpressionUUID->"1229a951-fc67-409c-ac1b-ec352d3ee483"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.750017794720547*^9, 3.7500178396405735`*^9, 3.7500179606931686`*^9, 
   3.7500180194366736`*^9, 3.750018360534372*^9, 3.7501575253174314`*^9, 
   3.7503401823844137`*^9, 3.7503764457361293`*^9, 3.7503767382852974`*^9, 
   3.7503775284194756`*^9, 3.750377584772826*^9, {3.750377999224878*^9, 
   3.750378011139013*^9}, 3.7506852700365906`*^9, 3.7525207869355536`*^9, 
   3.753914256922529*^9, 3.801831188005887*^9},
 CellLabel->
  "Out[144]=",ExpressionUUID->"4fcec15e-4249-4519-a986-a1091ff39007"],

Cell[BoxData[
 RowBox[{"\<\"(\\!\\(\\*SuperscriptBox[SubscriptBox[\\()\\), \\(i\\)], \
\\(j\\)]\\)\"\>", 
  " ", "\<\"(\\!\\(\\*SuperscriptBox[SubscriptBox[\\()\\), \\(I\\)], \\(J\\)]\
\\)\"\>"}]], "Output",
 CellChangeTimes->{
  3.750017794720547*^9, 3.7500178396405735`*^9, 3.7500179606931686`*^9, 
   3.7500180194366736`*^9, 3.750018360534372*^9, 3.7501575253174314`*^9, 
   3.7503401823844137`*^9, 3.7503764457361293`*^9, 3.7503767382852974`*^9, 
   3.7503775284194756`*^9, 3.750377584772826*^9, {3.750377999224878*^9, 
   3.750378011139013*^9}, 3.7506852700365906`*^9, 3.7525207869355536`*^9, 
   3.753914256922529*^9, 3.801831188011306*^9},
 CellLabel->
  "Out[145]=",ExpressionUUID->"06846540-f60a-4d10-9178-2f6102b0d572"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "BC4Boson: ",
 Cell[BoxData[
  FormBox[
   RowBox[{"(", 
    OverscriptBox["1234", "_"]}], TraditionalForm]],ExpressionUUID->
  "4e06dd56-c95f-4920-8408-e857bfbe330b"],
 "); BC4Color: ",
 Cell[BoxData[
  FormBox[
   RowBox[{"(", 
    OverscriptBox["1234", "_"]}], TraditionalForm]],ExpressionUUID->
  "2c759e7a-3b2a-4f8d-9ef7-eac8828ffb05"],
 ")"
}], "Subsubsection",
 CellChangeTimes->{{3.7094072981142626`*^9, 3.70940734667404*^9}, {
   3.70940823798602*^9, 3.709408239453104*^9}, 3.7150192642195487`*^9, 
   3.7154418662508683`*^9, {3.7154727887390995`*^9, 
   3.715472798120636*^9}},ExpressionUUID->"5e53d461-bb4a-49bb-9d2f-\
2d45eb0bca87"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LBP", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "0"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LCP", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "0"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"L", "[", "Local", "]"}], " ", "=", " ", 
   RowBox[{
    RowBox[{"BC4BosonPerm", "[", 
     RowBox[{
      RowBox[{"LBP", "[", 
       RowBox[{"[", "1", "]"}], "]"}], ",", 
      RowBox[{"LBP", "[", 
       RowBox[{"[", "2", "]"}], "]"}], ",", 
      RowBox[{"LBP", "[", 
       RowBox[{"[", "3", "]"}], "]"}], ",", 
      RowBox[{"LBP", "[", 
       RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "[", 
    RowBox[{
     RowBox[{"BC4ColorPerm", "[", 
      RowBox[{
       RowBox[{"LCP", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{"LCP", "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", 
       RowBox[{"LCP", "[", 
        RowBox[{"[", "3", "]"}], "]"}], ",", 
       RowBox[{"LCP", "[", 
        RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "[", 
     RowBox[{"L", "[", "Q", "]"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"GraphAdinkra", "[", "Local", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"L", "[", "Local", "]"}], " ", "\[Equal]", " ", 
  RowBox[{"L", "[", "Q", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"PrintBC4BosonPerm", "[", 
   RowBox[{
    RowBox[{"LBP", "[", 
     RowBox[{"[", "1", "]"}], "]"}], ",", 
    RowBox[{"LBP", "[", 
     RowBox[{"[", "2", "]"}], "]"}], ",", 
    RowBox[{"LBP", "[", 
     RowBox[{"[", "3", "]"}], "]"}], ",", 
    RowBox[{"LBP", "[", 
     RowBox[{"[", "4", "]"}], "]"}]}], "]"}], 
  RowBox[{"PrintBC4ColorPerm", "[", 
   RowBox[{
    RowBox[{"LCP", "[", 
     RowBox[{"[", "1", "]"}], "]"}], ",", 
    RowBox[{"LCP", "[", 
     RowBox[{"[", "2", "]"}], "]"}], ",", 
    RowBox[{"LCP", "[", 
     RowBox[{"[", "3", "]"}], "]"}], ",", 
    RowBox[{"LCP", "[", 
     RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"PrintBC4BosonPerm", "[", 
    RowBox[{
     RowBox[{"LBP", "[", 
      RowBox[{"[", "1", "]"}], "]"}], ",", 
     RowBox[{"LBP", "[", 
      RowBox[{"[", "2", "]"}], "]"}], ",", 
     RowBox[{"LBP", "[", 
      RowBox[{"[", "3", "]"}], "]"}], ",", 
     RowBox[{"LBP", "[", 
      RowBox[{"[", "4", "]"}], "]"}]}], "]"}], 
   RowBox[{"PrintBC4ColorPerm", "[", 
    RowBox[{
     RowBox[{"LCP", "[", 
      RowBox[{"[", "1", "]"}], "]"}], ",", 
     RowBox[{"LCP", "[", 
      RowBox[{"[", "2", "]"}], "]"}], ",", 
     RowBox[{"LCP", "[", 
      RowBox[{"[", "3", "]"}], "]"}], ",", 
     RowBox[{"LCP", "[", 
      RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}], "//", "TeXForm"}]}], "Input",\

 CellChangeTimes->{{3.7094039013309774`*^9, 3.7094039138136916`*^9}, {
   3.7094044562677183`*^9, 3.7094044647322025`*^9}, {3.7094049724722433`*^9, 
   3.709404984724944*^9}, {3.709405453467755*^9, 3.7094054685566177`*^9}, {
   3.7094055063167777`*^9, 3.7094055076468534`*^9}, {3.7094055481201687`*^9, 
   3.709405675978482*^9}, {3.7094057446334085`*^9, 3.709405752020831*^9}, {
   3.7094071402432327`*^9, 3.709407176262293*^9}, {3.709407255326815*^9, 
   3.709407271982768*^9}, {3.7094082444943924`*^9, 3.709408244576397*^9}, {
   3.7095849305768614`*^9, 3.709584981646782*^9}, {3.714829435369877*^9, 
   3.7148294760468426`*^9}, {3.7148296420624914`*^9, 
   3.7148296599222927`*^9}, {3.7148297090223927`*^9, 
   3.7148297122727222`*^9}, {3.714874444460785*^9, 3.7148745018840694`*^9}, 
   3.714874545855585*^9, {3.714874721983659*^9, 3.7148747441659274`*^9}, {
   3.7148747765467796`*^9, 3.7148748382013063`*^9}, {3.7148748844889536`*^9, 
   3.7148749143556614`*^9}, {3.7150191266666813`*^9, 3.715019132469013*^9}, {
   3.7150195503779163`*^9, 3.7150195653337717`*^9}, {3.7154511812428513`*^9, 
   3.7154512442684565`*^9}, {3.7154521650631227`*^9, 
   3.7154522001531296`*^9}, {3.715452329242513*^9, 3.715452344031359*^9}, {
   3.7154523962273445`*^9, 3.715452453283608*^9}, {3.749999322843626*^9, 
   3.7499993278281717`*^9}, 3.74999948246591*^9, 3.7499997188863373`*^9},
 CellLabel->
  "In[146]:=",ExpressionUUID->"39de8219-fd73-418d-bbf8-c96911a59fcd"],

Cell[BoxData[
 GraphicsBox[{
   {Hue[0.6, 0.7, 0.5], Opacity[0.7], 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {-1.5, -2.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {-0.5, -2.}}]}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {0.5, -2.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {1.5, -2.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -2.}, {-0.5, -1.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -2.}, {0.5, -1.}}]}}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{-0.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-0.5, -2.}, {0.5, -1.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     LineBox[{{-0.5, -2.}, {1.5, -1.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     LineBox[{{0.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{0.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{0.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{1.5, -2.}, {-0.5, -1.}}]}}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     LineBox[{{1.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{1.5, -2.}, {1.5, -1.}}]}}, 
   {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 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.}]}},
  FormatType->TraditionalForm,
  FrameTicks->None]], "Output",
 CellChangeTimes->{
  3.7500177948271923`*^9, 3.750017839686652*^9, 3.750017960778998*^9, 
   3.7500180195040903`*^9, 3.7500183605869484`*^9, 3.7501575253997927`*^9, 
   3.7503401824468985`*^9, 3.750376445791951*^9, 3.7503767383351336`*^9, 
   3.7503775284503603`*^9, 3.7503775848366613`*^9, {3.7503779992847395`*^9, 
   3.750378011201894*^9}, 3.750685270108015*^9, 3.752520786981393*^9, 
   3.753914257000637*^9, 3.8018311881180763`*^9},
 CellLabel->
  "Out[149]=",ExpressionUUID->"4e9f4d96-c6d0-4447-88f0-64f7c0a13fba"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.7500177948271923`*^9, 3.750017839686652*^9, 3.750017960778998*^9, 
   3.7500180195040903`*^9, 3.7500183605869484`*^9, 3.7501575253997927`*^9, 
   3.7503401824468985`*^9, 3.750376445791951*^9, 3.7503767383351336`*^9, 
   3.7503775284503603`*^9, 3.7503775848366613`*^9, {3.7503779992847395`*^9, 
   3.750378011201894*^9}, 3.750685270108015*^9, 3.752520786981393*^9, 
   3.753914257000637*^9, 3.801831188121007*^9},
 CellLabel->
  "Out[150]=",ExpressionUUID->"091f0bdd-b285-4bc0-9079-b810e2ac947d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\<\"(\"\>", "**", 
   OverscriptBox["1234", "_"], 
   "**", "\<\"\\!\\(\\*SuperscriptBox[SubscriptBox[\\()\\), \\(i\\)], \
\\(j\\)]\\)\"\>"}], " ", 
  RowBox[{"\<\"(\"\>", "**", 
   OverscriptBox["1234", "_"], 
   "**", "\<\"\\!\\(\\*SuperscriptBox[SubscriptBox[\\()\\), \\(I\\)], \
\\(J\\)]\\)\"\>"}]}]], "Output",
 CellChangeTimes->{
  3.7500177948271923`*^9, 3.750017839686652*^9, 3.750017960778998*^9, 
   3.7500180195040903`*^9, 3.7500183605869484`*^9, 3.7501575253997927`*^9, 
   3.7503401824468985`*^9, 3.750376445791951*^9, 3.7503767383351336`*^9, 
   3.7503775284503603`*^9, 3.7503775848366613`*^9, {3.7503779992847395`*^9, 
   3.750378011201894*^9}, 3.750685270108015*^9, 3.752520786981393*^9, 
   3.753914257000637*^9, 3.801831188123596*^9},
 CellLabel->
  "Out[151]=",ExpressionUUID->"5f6a66d5-ecc5-45b1-bbd3-a386006b4683"],

Cell["\<\
(\\text{**}\\overline{1234}\\text{**})_i{}^j \
(\\text{**}\\overline{1234}\\text{**})_I{}^J\
\>", "Output",
 CellChangeTimes->{
  3.7500177948271923`*^9, 3.750017839686652*^9, 3.750017960778998*^9, 
   3.7500180195040903`*^9, 3.7500183605869484`*^9, 3.7501575253997927`*^9, 
   3.7503401824468985`*^9, 3.750376445791951*^9, 3.7503767383351336`*^9, 
   3.7503775284503603`*^9, 3.7503775848366613`*^9, {3.7503779992847395`*^9, 
   3.750378011201894*^9}, 3.750685270108015*^9, 3.752520786981393*^9, 
   3.753914257000637*^9, 3.801831188205512*^9},
 CellLabel->
  "Out[152]//TeXForm=",ExpressionUUID->"56ddb24f-3c65-40df-b08d-026f5e549000"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "BC4Boson: ",
 Cell[BoxData[
  FormBox[
   RowBox[{"(", 
    OverscriptBox["13", "_"], ")"}], TraditionalForm]],ExpressionUUID->
  "ae2619eb-788d-413f-ba2d-afadb4617500"],
 "(12)(34); BC4Color: ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"(", 
     OverscriptBox["13", "_"], ")"}], 
    RowBox[{"(", "12", ")"}], 
    RowBox[{"(", "34", ")"}]}], TraditionalForm]],ExpressionUUID->
  "0090a831-0d3e-413c-b53b-6d1829de2ceb"]
}], "Subsubsection",
 CellChangeTimes->{{3.7094072981142626`*^9, 3.70940734667404*^9}, {
  3.7094074243794847`*^9, 3.7094074364241734`*^9}, {3.7094074747113633`*^9, 
  3.7094074824408054`*^9}, {3.709407530829573*^9, 3.709407599237486*^9}, {
  3.709407657803836*^9, 3.7094076703095512`*^9}, {3.7094089335558043`*^9, 
  3.709408953910969*^9}, {3.7150193687745295`*^9, 
  3.715019377057003*^9}},ExpressionUUID->"2b297e5a-8f96-4233-b0a1-\
6eebc6c41008"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LBP", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"0", ",", "13", ",", "0", ",", "1234"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LCP", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"0", ",", "13", ",", "0", ",", "1234"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"L", "[", "Local", "]"}], " ", "=", " ", 
   RowBox[{
    RowBox[{"BC4BosonPerm", "[", 
     RowBox[{
      RowBox[{"LBP", "[", 
       RowBox[{"[", "1", "]"}], "]"}], ",", 
      RowBox[{"LBP", "[", 
       RowBox[{"[", "2", "]"}], "]"}], ",", 
      RowBox[{"LBP", "[", 
       RowBox[{"[", "3", "]"}], "]"}], ",", 
      RowBox[{"LBP", "[", 
       RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "[", 
    RowBox[{
     RowBox[{"BC4ColorPerm", "[", 
      RowBox[{
       RowBox[{"LCP", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{"LCP", "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", 
       RowBox[{"LCP", "[", 
        RowBox[{"[", "3", "]"}], "]"}], ",", 
       RowBox[{"LCP", "[", 
        RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "[", 
     RowBox[{"L", "[", "Q", "]"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"GraphAdinkra", "[", "Local", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"L", "[", "Local", "]"}], " ", "\[Equal]", " ", 
  RowBox[{"L", "[", "Q", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"PrintBC4BosonPerm", "[", 
   RowBox[{
    RowBox[{"LBP", "[", 
     RowBox[{"[", "1", "]"}], "]"}], ",", 
    RowBox[{"LBP", "[", 
     RowBox[{"[", "2", "]"}], "]"}], ",", 
    RowBox[{"LBP", "[", 
     RowBox[{"[", "3", "]"}], "]"}], ",", 
    RowBox[{"LBP", "[", 
     RowBox[{"[", "4", "]"}], "]"}]}], "]"}], 
  RowBox[{"PrintBC4ColorPerm", "[", 
   RowBox[{
    RowBox[{"LCP", "[", 
     RowBox[{"[", "1", "]"}], "]"}], ",", 
    RowBox[{"LCP", "[", 
     RowBox[{"[", "2", "]"}], "]"}], ",", 
    RowBox[{"LCP", "[", 
     RowBox[{"[", "3", "]"}], "]"}], ",", 
    RowBox[{"LCP", "[", 
     RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"PrintBC4BosonPerm", "[", 
    RowBox[{
     RowBox[{"LBP", "[", 
      RowBox[{"[", "1", "]"}], "]"}], ",", 
     RowBox[{"LBP", "[", 
      RowBox[{"[", "2", "]"}], "]"}], ",", 
     RowBox[{"LBP", "[", 
      RowBox[{"[", "3", "]"}], "]"}], ",", 
     RowBox[{"LBP", "[", 
      RowBox[{"[", "4", "]"}], "]"}]}], "]"}], 
   RowBox[{"PrintBC4ColorPerm", "[", 
    RowBox[{
     RowBox[{"LCP", "[", 
      RowBox[{"[", "1", "]"}], "]"}], ",", 
     RowBox[{"LCP", "[", 
      RowBox[{"[", "2", "]"}], "]"}], ",", 
     RowBox[{"LCP", "[", 
      RowBox[{"[", "3", "]"}], "]"}], ",", 
     RowBox[{"LCP", "[", 
      RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}], "//", "TeXForm"}]}], "Input",\

 CellChangeTimes->{{3.7094039013309774`*^9, 3.7094039138136916`*^9}, {
   3.7094044562677183`*^9, 3.7094044647322025`*^9}, {3.7094049724722433`*^9, 
   3.709404984724944*^9}, {3.709405453467755*^9, 3.7094054685566177`*^9}, {
   3.7094055063167777`*^9, 3.7094055076468534`*^9}, {3.7094055481201687`*^9, 
   3.709405675978482*^9}, {3.7094057446334085`*^9, 3.709405752020831*^9}, {
   3.7094071402432327`*^9, 3.709407176262293*^9}, {3.709407255326815*^9, 
   3.709407271982768*^9}, {3.7094082444943924`*^9, 3.709408244576397*^9}, {
   3.7095849305768614`*^9, 3.709584981646782*^9}, {3.714829435369877*^9, 
   3.7148294760468426`*^9}, {3.7148296420624914`*^9, 
   3.7148296599222927`*^9}, {3.7148297090223927`*^9, 
   3.7148297122727222`*^9}, {3.714874444460785*^9, 3.7148745018840694`*^9}, 
   3.714874545855585*^9, {3.714874721983659*^9, 3.7148747441659274`*^9}, {
   3.7148747765467796`*^9, 3.7148748382013063`*^9}, {3.7148748844889536`*^9, 
   3.7148749143556614`*^9}, {3.7150191266666813`*^9, 3.715019132469013*^9}, {
   3.7150195503779163`*^9, 3.7150195653337717`*^9}, {3.7154511812428513`*^9, 
   3.7154512442684565`*^9}, {3.7154521650631227`*^9, 
   3.7154522001531296`*^9}, {3.715452329242513*^9, 3.715452344031359*^9}, {
   3.7154523962273445`*^9, 3.715452453283608*^9}, {3.715472665006022*^9, 
   3.7154726802318926`*^9}, {3.715472835933799*^9, 3.715472838172927*^9}, 
   3.7499994824730663`*^9, 3.749999718893489*^9},
 CellLabel->
  "In[153]:=",ExpressionUUID->"1ac5a336-6791-4e0e-9e5c-bca1bce8510f"],

Cell[BoxData[
 GraphicsBox[{
   {Hue[0.6, 0.7, 0.5], Opacity[0.7], 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {-1.5, -2.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {-0.5, -2.}}]}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {0.5, -2.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {1.5, -2.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -2.}, {-0.5, -1.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -2.}, {0.5, -1.}}]}}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{-0.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-0.5, -2.}, {0.5, -1.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     LineBox[{{-0.5, -2.}, {1.5, -1.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     LineBox[{{0.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{0.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{0.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{1.5, -2.}, {-0.5, -1.}}]}}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     LineBox[{{1.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{1.5, -2.}, {1.5, -1.}}]}}, 
   {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 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.}]}},
  FormatType->TraditionalForm,
  FrameTicks->None]], "Output",
 CellChangeTimes->{
  3.750017794902585*^9, 3.750017839731327*^9, 3.7500179609923363`*^9, 
   3.7500180195700555`*^9, 3.750018360667346*^9, 3.7501575254802184`*^9, 
   3.7503401825406713`*^9, 3.7503764458697433`*^9, 3.750376738401987*^9, 
   3.7503775284912496`*^9, 3.7503775848994837`*^9, {3.7503779993406024`*^9, 
   3.750378011257699*^9}, 3.750685270168602*^9, 3.7525207870502424`*^9, 
   3.753914257110012*^9, 3.801831188387925*^9},
 CellLabel->
  "Out[156]=",ExpressionUUID->"230b0350-d39c-415d-aaf1-29a65050a57c"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.750017794902585*^9, 3.750017839731327*^9, 3.7500179609923363`*^9, 
   3.7500180195700555`*^9, 3.750018360667346*^9, 3.7501575254802184`*^9, 
   3.7503401825406713`*^9, 3.7503764458697433`*^9, 3.750376738401987*^9, 
   3.7503775284912496`*^9, 3.7503775848994837`*^9, {3.7503779993406024`*^9, 
   3.750378011257699*^9}, 3.750685270168602*^9, 3.7525207870502424`*^9, 
   3.753914257110012*^9, 3.801831188397236*^9},
 CellLabel->
  "Out[157]=",ExpressionUUID->"f6b65873-9065-4e31-9aaf-064f6e885ae9"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\<\"((\"\>", "**", 
   OverscriptBox["13", "_"], "**", "\<\")\"\>", 
   "**", "\<\"(12)(34)\\!\\(\\*SuperscriptBox[SubscriptBox[\\()\\), \\(i\\)], \
\\(j\\)]\\)\"\>"}], " ", 
  RowBox[{"\<\"((\"\>", "**", 
   OverscriptBox["13", "_"], "**", "\<\")\"\>", 
   "**", "\<\"(12)(34)\\!\\(\\*SuperscriptBox[SubscriptBox[\\()\\), \\(I\\)], \
\\(J\\)]\\)\"\>"}]}]], "Output",
 CellChangeTimes->{
  3.750017794902585*^9, 3.750017839731327*^9, 3.7500179609923363`*^9, 
   3.7500180195700555`*^9, 3.750018360667346*^9, 3.7501575254802184`*^9, 
   3.7503401825406713`*^9, 3.7503764458697433`*^9, 3.750376738401987*^9, 
   3.7503775284912496`*^9, 3.7503775848994837`*^9, {3.7503779993406024`*^9, 
   3.750378011257699*^9}, 3.750685270168602*^9, 3.7525207870502424`*^9, 
   3.753914257110012*^9, 3.801831188402237*^9},
 CellLabel->
  "Out[158]=",ExpressionUUID->"d1abf3a9-809c-46da-a01e-c78121618997"],

Cell["\<\
\\text{((}\\text{**}\\overline{13}\\text{**})\\text{**}\\text{(12)(34)})_i{}^\
j \\text{((}\\text{**}\\overline{13}\\text{**})\\text{**}\\text{(12)(34)})_I{}\
^J\
\>", "Output",
 CellChangeTimes->{
  3.750017794902585*^9, 3.750017839731327*^9, 3.7500179609923363`*^9, 
   3.7500180195700555`*^9, 3.750018360667346*^9, 3.7501575254802184`*^9, 
   3.7503401825406713`*^9, 3.7503764458697433`*^9, 3.750376738401987*^9, 
   3.7503775284912496`*^9, 3.7503775848994837`*^9, {3.7503779993406024`*^9, 
   3.750378011257699*^9}, 3.750685270168602*^9, 3.7525207870502424`*^9, 
   3.753914257110012*^9, 3.801831188407421*^9},
 CellLabel->
  "Out[159]//TeXForm=",ExpressionUUID->"b574cbd0-f65e-4134-a64e-77e83bc18609"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "BC4Boson: ",
 Cell[BoxData[
  FormBox[
   RowBox[{"(", 
    OverscriptBox["24", "_"], ")"}], TraditionalForm]],ExpressionUUID->
  "6c105c5c-fbee-45a7-87ac-12248089bf28"],
 "(12)(34); BC4Color: ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"(", 
     OverscriptBox["24", "_"], ")"}], 
    RowBox[{"(", "12", ")"}], 
    RowBox[{"(", "34", ")"}]}], TraditionalForm]],ExpressionUUID->
  "ccc83588-9783-44e3-9245-b6915ca5616a"]
}], "Subsubsection",
 CellChangeTimes->{{3.7094072981142626`*^9, 3.70940734667404*^9}, {
  3.7094074243794847`*^9, 3.7094074364241734`*^9}, {3.7094074747113633`*^9, 
  3.7094074824408054`*^9}, {3.709407530829573*^9, 3.709407599237486*^9}, {
  3.709408303567771*^9, 3.709408320347731*^9}, {3.7094085126567307`*^9, 
  3.709408559833429*^9}, {3.709408628166337*^9, 3.709408635274744*^9}, {
  3.7094088650188847`*^9, 3.7094088925804605`*^9}, {3.7150192666956906`*^9, 
  3.715019343158064*^9}},ExpressionUUID->"bee525b1-0e50-4342-a5a9-\
221fbd439ee3"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LBP", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", "13", ",", "0", ",", "1234"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LCP", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", "13", ",", "0", ",", "1234"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"L", "[", "Local", "]"}], " ", "=", " ", 
   RowBox[{
    RowBox[{"BC4BosonPerm", "[", 
     RowBox[{
      RowBox[{"LBP", "[", 
       RowBox[{"[", "1", "]"}], "]"}], ",", 
      RowBox[{"LBP", "[", 
       RowBox[{"[", "2", "]"}], "]"}], ",", 
      RowBox[{"LBP", "[", 
       RowBox[{"[", "3", "]"}], "]"}], ",", 
      RowBox[{"LBP", "[", 
       RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "[", 
    RowBox[{
     RowBox[{"BC4ColorPerm", "[", 
      RowBox[{
       RowBox[{"LCP", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{"LCP", "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", 
       RowBox[{"LCP", "[", 
        RowBox[{"[", "3", "]"}], "]"}], ",", 
       RowBox[{"LCP", "[", 
        RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "[", 
     RowBox[{"L", "[", "Q", "]"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"GraphAdinkra", "[", "Local", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"L", "[", "Local", "]"}], " ", "\[Equal]", " ", 
  RowBox[{"L", "[", "Q", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"PrintBC4BosonPerm", "[", 
   RowBox[{
    RowBox[{"LBP", "[", 
     RowBox[{"[", "1", "]"}], "]"}], ",", 
    RowBox[{"LBP", "[", 
     RowBox[{"[", "2", "]"}], "]"}], ",", 
    RowBox[{"LBP", "[", 
     RowBox[{"[", "3", "]"}], "]"}], ",", 
    RowBox[{"LBP", "[", 
     RowBox[{"[", "4", "]"}], "]"}]}], "]"}], 
  RowBox[{"PrintBC4ColorPerm", "[", 
   RowBox[{
    RowBox[{"LCP", "[", 
     RowBox[{"[", "1", "]"}], "]"}], ",", 
    RowBox[{"LCP", "[", 
     RowBox[{"[", "2", "]"}], "]"}], ",", 
    RowBox[{"LCP", "[", 
     RowBox[{"[", "3", "]"}], "]"}], ",", 
    RowBox[{"LCP", "[", 
     RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"PrintBC4BosonPerm", "[", 
    RowBox[{
     RowBox[{"LBP", "[", 
      RowBox[{"[", "1", "]"}], "]"}], ",", 
     RowBox[{"LBP", "[", 
      RowBox[{"[", "2", "]"}], "]"}], ",", 
     RowBox[{"LBP", "[", 
      RowBox[{"[", "3", "]"}], "]"}], ",", 
     RowBox[{"LBP", "[", 
      RowBox[{"[", "4", "]"}], "]"}]}], "]"}], 
   RowBox[{"PrintBC4ColorPerm", "[", 
    RowBox[{
     RowBox[{"LCP", "[", 
      RowBox[{"[", "1", "]"}], "]"}], ",", 
     RowBox[{"LCP", "[", 
      RowBox[{"[", "2", "]"}], "]"}], ",", 
     RowBox[{"LCP", "[", 
      RowBox[{"[", "3", "]"}], "]"}], ",", 
     RowBox[{"LCP", "[", 
      RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}], "//", "TeXForm"}]}], "Input",\

 CellChangeTimes->{{3.7094039013309774`*^9, 3.7094039138136916`*^9}, {
   3.7094044562677183`*^9, 3.7094044647322025`*^9}, {3.7094049724722433`*^9, 
   3.709404984724944*^9}, {3.709405453467755*^9, 3.7094054685566177`*^9}, {
   3.7094055063167777`*^9, 3.7094055076468534`*^9}, {3.7094055481201687`*^9, 
   3.709405675978482*^9}, {3.7094057446334085`*^9, 3.709405752020831*^9}, {
   3.7094071402432327`*^9, 3.709407176262293*^9}, {3.709407255326815*^9, 
   3.709407271982768*^9}, {3.7094082444943924`*^9, 3.709408244576397*^9}, {
   3.7095849305768614`*^9, 3.709584981646782*^9}, {3.714829435369877*^9, 
   3.7148294760468426`*^9}, {3.7148296420624914`*^9, 
   3.7148296599222927`*^9}, {3.7148297090223927`*^9, 
   3.7148297122727222`*^9}, {3.714874444460785*^9, 3.7148745018840694`*^9}, 
   3.714874545855585*^9, {3.714874721983659*^9, 3.7148747441659274`*^9}, {
   3.7148747765467796`*^9, 3.7148748382013063`*^9}, {3.7148748844889536`*^9, 
   3.7148749143556614`*^9}, {3.7150191266666813`*^9, 3.715019132469013*^9}, {
   3.7150195503779163`*^9, 3.7150195653337717`*^9}, {3.7154511812428513`*^9, 
   3.7154512442684565`*^9}, {3.7154521650631227`*^9, 
   3.7154522001531296`*^9}, {3.715452329242513*^9, 3.715452344031359*^9}, {
   3.7154523962273445`*^9, 3.715452453283608*^9}, {3.715472665006022*^9, 
   3.7154726802318926`*^9}, 3.749999482479496*^9, 3.7499997188996897`*^9},
 CellLabel->
  "In[160]:=",ExpressionUUID->"5d04e078-e772-4ab3-9919-65d9f828755f"],

Cell[BoxData[
 GraphicsBox[{
   {Hue[0.6, 0.7, 0.5], Opacity[0.7], 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {-1.5, -2.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {-0.5, -2.}}]}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {0.5, -2.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {1.5, -2.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -2.}, {-0.5, -1.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -2.}, {0.5, -1.}}]}}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{-0.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-0.5, -2.}, {0.5, -1.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     LineBox[{{-0.5, -2.}, {1.5, -1.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     LineBox[{{0.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{0.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{0.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{1.5, -2.}, {-0.5, -1.}}]}}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     LineBox[{{1.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{1.5, -2.}, {1.5, -1.}}]}}, 
   {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 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.}]}},
  FormatType->TraditionalForm,
  FrameTicks->None]], "Output",
 CellChangeTimes->{
  3.75001779499087*^9, 3.7500178397834125`*^9, 3.7500179612412863`*^9, 
   3.7500180196370163`*^9, 3.750018360726368*^9, 3.75015752556063*^9, 
   3.7503401826031427`*^9, 3.7503764459345703`*^9, 3.750376738453817*^9, 
   3.750377528522167*^9, 3.7503775849653177`*^9, {3.7503779994053807`*^9, 
   3.7503780113235593`*^9}, 3.7506852702346*^9, 3.752520787142027*^9, 
   3.7539142571724977`*^9, 3.801831188705154*^9},
 CellLabel->
  "Out[163]=",ExpressionUUID->"bd76d6ef-a538-4791-bb18-25c724a369c7"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.75001779499087*^9, 3.7500178397834125`*^9, 3.7500179612412863`*^9, 
   3.7500180196370163`*^9, 3.750018360726368*^9, 3.75015752556063*^9, 
   3.7503401826031427`*^9, 3.7503764459345703`*^9, 3.750376738453817*^9, 
   3.750377528522167*^9, 3.7503775849653177`*^9, {3.7503779994053807`*^9, 
   3.7503780113235593`*^9}, 3.7506852702346*^9, 3.752520787142027*^9, 
   3.7539142571724977`*^9, 3.801831188712953*^9},
 CellLabel->
  "Out[164]=",ExpressionUUID->"7d6eac7e-6e12-4582-98de-ec6c919cf486"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\<\"((\"\>", "**", 
   OverscriptBox["24", "_"], "**", "\<\")\"\>", 
   "**", "\<\"(12)(34)\\!\\(\\*SuperscriptBox[SubscriptBox[\\()\\), \\(i\\)], \
\\(j\\)]\\)\"\>"}], " ", 
  RowBox[{"\<\"((\"\>", "**", 
   OverscriptBox["24", "_"], "**", "\<\")\"\>", 
   "**", "\<\"(12)(34)\\!\\(\\*SuperscriptBox[SubscriptBox[\\()\\), \\(I\\)], \
\\(J\\)]\\)\"\>"}]}]], "Output",
 CellChangeTimes->{
  3.75001779499087*^9, 3.7500178397834125`*^9, 3.7500179612412863`*^9, 
   3.7500180196370163`*^9, 3.750018360726368*^9, 3.75015752556063*^9, 
   3.7503401826031427`*^9, 3.7503764459345703`*^9, 3.750376738453817*^9, 
   3.750377528522167*^9, 3.7503775849653177`*^9, {3.7503779994053807`*^9, 
   3.7503780113235593`*^9}, 3.7506852702346*^9, 3.752520787142027*^9, 
   3.7539142571724977`*^9, 3.80183118871841*^9},
 CellLabel->
  "Out[165]=",ExpressionUUID->"da6e7f08-5620-4f98-9257-075180199257"],

Cell["\<\
\\text{((}\\text{**}\\overline{24}\\text{**})\\text{**}\\text{(12)(34)})_i{}^\
j \\text{((}\\text{**}\\overline{24}\\text{**})\\text{**}\\text{(12)(34)})_I{}\
^J\
\>", "Output",
 CellChangeTimes->{
  3.75001779499087*^9, 3.7500178397834125`*^9, 3.7500179612412863`*^9, 
   3.7500180196370163`*^9, 3.750018360726368*^9, 3.75015752556063*^9, 
   3.7503401826031427`*^9, 3.7503764459345703`*^9, 3.750376738453817*^9, 
   3.750377528522167*^9, 3.7503775849653177`*^9, {3.7503779994053807`*^9, 
   3.7503780113235593`*^9}, 3.7506852702346*^9, 3.752520787142027*^9, 
   3.7539142571724977`*^9, 3.801831188724284*^9},
 CellLabel->
  "Out[166]//TeXForm=",ExpressionUUID->"1d6f50a2-ff57-4738-b4bc-4cd3ee03ae76"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "BC4Boson: ",
 Cell[BoxData[
  FormBox[
   RowBox[{"(", 
    OverscriptBox["23", "_"], ")"}], TraditionalForm]],ExpressionUUID->
  "5468e0ca-14cc-4024-8e13-1a2212975597"],
 "(13)(24); BC4Color: ",
 Cell[BoxData[
  FormBox[
   RowBox[{"(", 
    OverscriptBox["23", "_"], ")"}], TraditionalForm]],ExpressionUUID->
  "0ab4ce60-de68-4626-ad23-47c484ce0d06"],
 "(13)(24)"
}], "Subsubsection",
 CellChangeTimes->{{3.7094072981142626`*^9, 3.70940734667404*^9}, {
  3.7094074243794847`*^9, 3.7094074364241734`*^9}, {3.7094074747113633`*^9, 
  3.7094074824408054`*^9}, {3.709407530829573*^9, 3.709407599237486*^9}, {
  3.7094077217584934`*^9, 3.7094077512721815`*^9}, {3.7094078101635504`*^9, 
  3.7094078230572877`*^9}, {3.7094089946582994`*^9, 3.709409043468091*^9}, {
  3.709409209351579*^9, 3.709409216141968*^9}, {3.7150194154722*^9, 
  3.715019454429428*^9}},ExpressionUUID->"5b3acd83-a9e1-4a0d-8e88-\
3bbc87b51a38"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LBP", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"0", ",", "23", ",", "0", ",", "1324"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LCP", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"0", ",", "23", ",", "0", ",", "1324"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"L", "[", "Local", "]"}], " ", "=", " ", 
   RowBox[{
    RowBox[{"BC4BosonPerm", "[", 
     RowBox[{
      RowBox[{"LBP", "[", 
       RowBox[{"[", "1", "]"}], "]"}], ",", 
      RowBox[{"LBP", "[", 
       RowBox[{"[", "2", "]"}], "]"}], ",", 
      RowBox[{"LBP", "[", 
       RowBox[{"[", "3", "]"}], "]"}], ",", 
      RowBox[{"LBP", "[", 
       RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "[", 
    RowBox[{
     RowBox[{"BC4ColorPerm", "[", 
      RowBox[{
       RowBox[{"LCP", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{"LCP", "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", 
       RowBox[{"LCP", "[", 
        RowBox[{"[", "3", "]"}], "]"}], ",", 
       RowBox[{"LCP", "[", 
        RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "[", 
     RowBox[{"L", "[", "Q", "]"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"GraphAdinkra", "[", "Local", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"L", "[", "Local", "]"}], " ", "\[Equal]", " ", 
  RowBox[{"L", "[", "Q", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"PrintBC4BosonPerm", "[", 
   RowBox[{
    RowBox[{"LBP", "[", 
     RowBox[{"[", "1", "]"}], "]"}], ",", 
    RowBox[{"LBP", "[", 
     RowBox[{"[", "2", "]"}], "]"}], ",", 
    RowBox[{"LBP", "[", 
     RowBox[{"[", "3", "]"}], "]"}], ",", 
    RowBox[{"LBP", "[", 
     RowBox[{"[", "4", "]"}], "]"}]}], "]"}], 
  RowBox[{"PrintBC4ColorPerm", "[", 
   RowBox[{
    RowBox[{"LCP", "[", 
     RowBox[{"[", "1", "]"}], "]"}], ",", 
    RowBox[{"LCP", "[", 
     RowBox[{"[", "2", "]"}], "]"}], ",", 
    RowBox[{"LCP", "[", 
     RowBox[{"[", "3", "]"}], "]"}], ",", 
    RowBox[{"LCP", "[", 
     RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"PrintBC4BosonPerm", "[", 
    RowBox[{
     RowBox[{"LBP", "[", 
      RowBox[{"[", "1", "]"}], "]"}], ",", 
     RowBox[{"LBP", "[", 
      RowBox[{"[", "2", "]"}], "]"}], ",", 
     RowBox[{"LBP", "[", 
      RowBox[{"[", "3", "]"}], "]"}], ",", 
     RowBox[{"LBP", "[", 
      RowBox[{"[", "4", "]"}], "]"}]}], "]"}], 
   RowBox[{"PrintBC4ColorPerm", "[", 
    RowBox[{
     RowBox[{"LCP", "[", 
      RowBox[{"[", "1", "]"}], "]"}], ",", 
     RowBox[{"LCP", "[", 
      RowBox[{"[", "2", "]"}], "]"}], ",", 
     RowBox[{"LCP", "[", 
      RowBox[{"[", "3", "]"}], "]"}], ",", 
     RowBox[{"LCP", "[", 
      RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}], "//", "TeXForm"}]}], "Input",\

 CellChangeTimes->{{3.7094039013309774`*^9, 3.7094039138136916`*^9}, {
   3.7094044562677183`*^9, 3.7094044647322025`*^9}, {3.7094049724722433`*^9, 
   3.709404984724944*^9}, {3.709405453467755*^9, 3.7094054685566177`*^9}, {
   3.7094055063167777`*^9, 3.7094055076468534`*^9}, {3.7094055481201687`*^9, 
   3.709405675978482*^9}, {3.7094057446334085`*^9, 3.709405752020831*^9}, {
   3.7094071402432327`*^9, 3.709407176262293*^9}, {3.709407255326815*^9, 
   3.709407271982768*^9}, {3.7094082444943924`*^9, 3.709408244576397*^9}, {
   3.7095849305768614`*^9, 3.709584981646782*^9}, {3.714829435369877*^9, 
   3.7148294760468426`*^9}, {3.7148296420624914`*^9, 
   3.7148296599222927`*^9}, {3.7148297090223927`*^9, 
   3.7148297122727222`*^9}, {3.714874444460785*^9, 3.7148745018840694`*^9}, 
   3.714874545855585*^9, {3.714874721983659*^9, 3.7148747441659274`*^9}, {
   3.7148747765467796`*^9, 3.7148748382013063`*^9}, {3.7148748844889536`*^9, 
   3.7148749143556614`*^9}, {3.7150191266666813`*^9, 3.715019132469013*^9}, {
   3.7150195503779163`*^9, 3.7150195653337717`*^9}, {3.7154511812428513`*^9, 
   3.7154512442684565`*^9}, {3.7154521650631227`*^9, 
   3.7154522001531296`*^9}, {3.715452329242513*^9, 3.715452344031359*^9}, {
   3.7154523962273445`*^9, 3.715452453283608*^9}, {3.715472665006022*^9, 
   3.7154726802318926`*^9}, {3.715472835933799*^9, 3.715472838172927*^9}, {
   3.715472896637271*^9, 3.715472937900631*^9}, {3.715472969933463*^9, 
   3.715472971880574*^9}, 3.74999948248592*^9, 3.749999718905735*^9},
 CellLabel->
  "In[167]:=",ExpressionUUID->"5f632ca7-ff43-4de3-811d-ba651f3994a2"],

Cell[BoxData[
 GraphicsBox[{
   {Hue[0.6, 0.7, 0.5], Opacity[0.7], 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {-1.5, -2.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {-0.5, -2.}}]}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {0.5, -2.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {1.5, -2.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -2.}, {-0.5, -1.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -2.}, {0.5, -1.}}]}}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{-0.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-0.5, -2.}, {0.5, -1.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     LineBox[{{-0.5, -2.}, {1.5, -1.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     LineBox[{{0.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{0.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{0.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{1.5, -2.}, {-0.5, -1.}}]}}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     LineBox[{{1.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{1.5, -2.}, {1.5, -1.}}]}}, 
   {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 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.}]}},
  FormatType->TraditionalForm,
  FrameTicks->None]], "Output",
 CellChangeTimes->{
  3.7500177950374928`*^9, 3.750017839834956*^9, 3.7500179614724274`*^9, 
   3.7500180197044716`*^9, 3.7500183608151083`*^9, 3.7501575256338425`*^9, 
   3.750340182681245*^9, 3.750376446042282*^9, 3.7503767385057087`*^9, 
   3.750377528554082*^9, 3.750377585042076*^9, {3.7503779994722276`*^9, 
   3.7503780113883486`*^9}, 3.7506852703009386`*^9, 3.752520787232445*^9, 
   3.7539142572193685`*^9, 3.801831188834*^9},
 CellLabel->
  "Out[170]=",ExpressionUUID->"fc3be45a-7d01-4502-afe1-a4d8510b624e"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.7500177950374928`*^9, 3.750017839834956*^9, 3.7500179614724274`*^9, 
   3.7500180197044716`*^9, 3.7500183608151083`*^9, 3.7501575256338425`*^9, 
   3.750340182681245*^9, 3.750376446042282*^9, 3.7503767385057087`*^9, 
   3.750377528554082*^9, 3.750377585042076*^9, {3.7503779994722276`*^9, 
   3.7503780113883486`*^9}, 3.7506852703009386`*^9, 3.752520787232445*^9, 
   3.7539142572193685`*^9, 3.801831188842609*^9},
 CellLabel->
  "Out[171]=",ExpressionUUID->"0b40a17d-e642-4ecf-90f6-4ac135b2bc53"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\<\"((\"\>", "**", 
   OverscriptBox["23", "_"], "**", "\<\")\"\>", 
   "**", "\<\"(13)(24)\\!\\(\\*SuperscriptBox[SubscriptBox[\\()\\), \\(i\\)], \
\\(j\\)]\\)\"\>"}], " ", 
  RowBox[{"\<\"((\"\>", "**", 
   OverscriptBox["23", "_"], "**", "\<\")\"\>", 
   "**", "\<\"(13)(24)\\!\\(\\*SuperscriptBox[SubscriptBox[\\()\\), \\(I\\)], \
\\(J\\)]\\)\"\>"}]}]], "Output",
 CellChangeTimes->{
  3.7500177950374928`*^9, 3.750017839834956*^9, 3.7500179614724274`*^9, 
   3.7500180197044716`*^9, 3.7500183608151083`*^9, 3.7501575256338425`*^9, 
   3.750340182681245*^9, 3.750376446042282*^9, 3.7503767385057087`*^9, 
   3.750377528554082*^9, 3.750377585042076*^9, {3.7503779994722276`*^9, 
   3.7503780113883486`*^9}, 3.7506852703009386`*^9, 3.752520787232445*^9, 
   3.7539142572193685`*^9, 3.8018311888470297`*^9},
 CellLabel->
  "Out[172]=",ExpressionUUID->"bb771870-5390-420d-bd3c-d9f97821a20b"],

Cell["\<\
\\text{((}\\text{**}\\overline{23}\\text{**})\\text{**}\\text{(13)(24)})_i{}^\
j \\text{((}\\text{**}\\overline{23}\\text{**})\\text{**}\\text{(13)(24)})_I{}\
^J\
\>", "Output",
 CellChangeTimes->{
  3.7500177950374928`*^9, 3.750017839834956*^9, 3.7500179614724274`*^9, 
   3.7500180197044716`*^9, 3.7500183608151083`*^9, 3.7501575256338425`*^9, 
   3.750340182681245*^9, 3.750376446042282*^9, 3.7503767385057087`*^9, 
   3.750377528554082*^9, 3.750377585042076*^9, {3.7503779994722276`*^9, 
   3.7503780113883486`*^9}, 3.7506852703009386`*^9, 3.752520787232445*^9, 
   3.7539142572193685`*^9, 3.8018311888514137`*^9},
 CellLabel->
  "Out[173]//TeXForm=",ExpressionUUID->"b7a1606e-21a5-4717-b950-915b5eb2673c"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "BC4Boson: ",
 Cell[BoxData[
  FormBox[
   RowBox[{"(", 
    OverscriptBox["14", "_"], ")"}], TraditionalForm]],ExpressionUUID->
  "27f12f45-a210-498f-bb61-23d6167806ce"],
 "(13)(24); BC4Color: ",
 Cell[BoxData[
  FormBox[
   RowBox[{"(", 
    OverscriptBox["14", "_"], ")"}], TraditionalForm]],ExpressionUUID->
  "c1164eee-559d-4aa7-b679-07d96b5f4196"],
 "(13)(24)"
}], "Subsubsection",
 CellChangeTimes->{{3.7094072981142626`*^9, 3.70940734667404*^9}, {
  3.7094074243794847`*^9, 3.7094074364241734`*^9}, {3.7094074747113633`*^9, 
  3.7094074824408054`*^9}, {3.709407530829573*^9, 3.709407599237486*^9}, {
  3.7094077217584934`*^9, 3.7094077512721815`*^9}, {3.7094078101635504`*^9, 
  3.7094078230572877`*^9}, {3.7094089946582994`*^9, 3.709409043468091*^9}, {
  3.709409133733254*^9, 3.709409165532073*^9}, {3.7150193834963713`*^9, 
  3.715019408096778*^9}},ExpressionUUID->"0c1daf03-4a69-4f3f-b1ff-\
f6e52bba5833"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LBP", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", "23", ",", "0", ",", "1324"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LCP", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", "23", ",", "0", ",", "1324"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"L", "[", "Local", "]"}], " ", "=", " ", 
   RowBox[{
    RowBox[{"BC4BosonPerm", "[", 
     RowBox[{
      RowBox[{"LBP", "[", 
       RowBox[{"[", "1", "]"}], "]"}], ",", 
      RowBox[{"LBP", "[", 
       RowBox[{"[", "2", "]"}], "]"}], ",", 
      RowBox[{"LBP", "[", 
       RowBox[{"[", "3", "]"}], "]"}], ",", 
      RowBox[{"LBP", "[", 
       RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "[", 
    RowBox[{
     RowBox[{"BC4ColorPerm", "[", 
      RowBox[{
       RowBox[{"LCP", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{"LCP", "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", 
       RowBox[{"LCP", "[", 
        RowBox[{"[", "3", "]"}], "]"}], ",", 
       RowBox[{"LCP", "[", 
        RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "[", 
     RowBox[{"L", "[", "Q", "]"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"GraphAdinkra", "[", "Local", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"L", "[", "Local", "]"}], " ", "\[Equal]", " ", 
  RowBox[{"L", "[", "Q", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"PrintBC4BosonPerm", "[", 
   RowBox[{
    RowBox[{"LBP", "[", 
     RowBox[{"[", "1", "]"}], "]"}], ",", 
    RowBox[{"LBP", "[", 
     RowBox[{"[", "2", "]"}], "]"}], ",", 
    RowBox[{"LBP", "[", 
     RowBox[{"[", "3", "]"}], "]"}], ",", 
    RowBox[{"LBP", "[", 
     RowBox[{"[", "4", "]"}], "]"}]}], "]"}], 
  RowBox[{"PrintBC4ColorPerm", "[", 
   RowBox[{
    RowBox[{"LCP", "[", 
     RowBox[{"[", "1", "]"}], "]"}], ",", 
    RowBox[{"LCP", "[", 
     RowBox[{"[", "2", "]"}], "]"}], ",", 
    RowBox[{"LCP", "[", 
     RowBox[{"[", "3", "]"}], "]"}], ",", 
    RowBox[{"LCP", "[", 
     RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"PrintBC4BosonPerm", "[", 
    RowBox[{
     RowBox[{"LBP", "[", 
      RowBox[{"[", "1", "]"}], "]"}], ",", 
     RowBox[{"LBP", "[", 
      RowBox[{"[", "2", "]"}], "]"}], ",", 
     RowBox[{"LBP", "[", 
      RowBox[{"[", "3", "]"}], "]"}], ",", 
     RowBox[{"LBP", "[", 
      RowBox[{"[", "4", "]"}], "]"}]}], "]"}], 
   RowBox[{"PrintBC4ColorPerm", "[", 
    RowBox[{
     RowBox[{"LCP", "[", 
      RowBox[{"[", "1", "]"}], "]"}], ",", 
     RowBox[{"LCP", "[", 
      RowBox[{"[", "2", "]"}], "]"}], ",", 
     RowBox[{"LCP", "[", 
      RowBox[{"[", "3", "]"}], "]"}], ",", 
     RowBox[{"LCP", "[", 
      RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}], "//", "TeXForm"}]}], "Input",\

 CellChangeTimes->{{3.7094039013309774`*^9, 3.7094039138136916`*^9}, {
   3.7094044562677183`*^9, 3.7094044647322025`*^9}, {3.7094049724722433`*^9, 
   3.709404984724944*^9}, {3.709405453467755*^9, 3.7094054685566177`*^9}, {
   3.7094055063167777`*^9, 3.7094055076468534`*^9}, {3.7094055481201687`*^9, 
   3.709405675978482*^9}, {3.7094057446334085`*^9, 3.709405752020831*^9}, {
   3.7094071402432327`*^9, 3.709407176262293*^9}, {3.709407255326815*^9, 
   3.709407271982768*^9}, {3.7094082444943924`*^9, 3.709408244576397*^9}, {
   3.7095849305768614`*^9, 3.709584981646782*^9}, {3.714829435369877*^9, 
   3.7148294760468426`*^9}, {3.7148296420624914`*^9, 
   3.7148296599222927`*^9}, {3.7148297090223927`*^9, 
   3.7148297122727222`*^9}, {3.714874444460785*^9, 3.7148745018840694`*^9}, 
   3.714874545855585*^9, {3.714874721983659*^9, 3.7148747441659274`*^9}, {
   3.7148747765467796`*^9, 3.7148748382013063`*^9}, {3.7148748844889536`*^9, 
   3.7148749143556614`*^9}, {3.7150191266666813`*^9, 3.715019132469013*^9}, {
   3.7150195503779163`*^9, 3.7150195653337717`*^9}, {3.7154511812428513`*^9, 
   3.7154512442684565`*^9}, {3.7154521650631227`*^9, 
   3.7154522001531296`*^9}, {3.715452329242513*^9, 3.715452344031359*^9}, {
   3.7154523962273445`*^9, 3.715452453283608*^9}, {3.715472665006022*^9, 
   3.7154726802318926`*^9}, {3.715472835933799*^9, 3.715472838172927*^9}, {
   3.715472896637271*^9, 3.715472937900631*^9}, 3.749999482492517*^9, 
   3.749999718911722*^9},
 CellLabel->
  "In[174]:=",ExpressionUUID->"38c79645-6350-444c-bd57-b5ef922205d8"],

Cell[BoxData[
 GraphicsBox[{
   {Hue[0.6, 0.7, 0.5], Opacity[0.7], 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {-1.5, -2.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {-0.5, -2.}}]}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {0.5, -2.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {1.5, -2.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -2.}, {-0.5, -1.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -2.}, {0.5, -1.}}]}}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{-0.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-0.5, -2.}, {0.5, -1.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     LineBox[{{-0.5, -2.}, {1.5, -1.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     LineBox[{{0.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{0.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{0.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{1.5, -2.}, {-0.5, -1.}}]}}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     LineBox[{{1.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{1.5, -2.}, {1.5, -1.}}]}}, 
   {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 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.}]}},
  FormatType->TraditionalForm,
  FrameTicks->None]], "Output",
 CellChangeTimes->{
  3.750017795110408*^9, 3.7500178398945265`*^9, 3.750017961698599*^9, 
   3.7500180197699437`*^9, 3.7500183608999243`*^9, 3.750157525730112*^9, 
   3.7503401827593527`*^9, 3.7503764461061115`*^9, 3.750376738555546*^9, 
   3.7503775285849996`*^9, 3.750377585120865*^9, {3.7503779995410194`*^9, 
   3.750378011449217*^9}, 3.750685270367403*^9, 3.7525207873471212`*^9, 
   3.7539142573130937`*^9, 3.801831188958433*^9},
 CellLabel->
  "Out[177]=",ExpressionUUID->"73a220b0-f792-4c22-9f38-a0ff49539ef6"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.750017795110408*^9, 3.7500178398945265`*^9, 3.750017961698599*^9, 
   3.7500180197699437`*^9, 3.7500183608999243`*^9, 3.750157525730112*^9, 
   3.7503401827593527`*^9, 3.7503764461061115`*^9, 3.750376738555546*^9, 
   3.7503775285849996`*^9, 3.750377585120865*^9, {3.7503779995410194`*^9, 
   3.750378011449217*^9}, 3.750685270367403*^9, 3.7525207873471212`*^9, 
   3.7539142573130937`*^9, 3.801831188967806*^9},
 CellLabel->
  "Out[178]=",ExpressionUUID->"9bf036c9-f4d2-4f57-b746-aa7b3bbc933a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\<\"((\"\>", "**", 
   OverscriptBox["14", "_"], "**", "\<\")\"\>", 
   "**", "\<\"(13)(24)\\!\\(\\*SuperscriptBox[SubscriptBox[\\()\\), \\(i\\)], \
\\(j\\)]\\)\"\>"}], " ", 
  RowBox[{"\<\"((\"\>", "**", 
   OverscriptBox["14", "_"], "**", "\<\")\"\>", 
   "**", "\<\"(13)(24)\\!\\(\\*SuperscriptBox[SubscriptBox[\\()\\), \\(I\\)], \
\\(J\\)]\\)\"\>"}]}]], "Output",
 CellChangeTimes->{
  3.750017795110408*^9, 3.7500178398945265`*^9, 3.750017961698599*^9, 
   3.7500180197699437`*^9, 3.7500183608999243`*^9, 3.750157525730112*^9, 
   3.7503401827593527`*^9, 3.7503764461061115`*^9, 3.750376738555546*^9, 
   3.7503775285849996`*^9, 3.750377585120865*^9, {3.7503779995410194`*^9, 
   3.750378011449217*^9}, 3.750685270367403*^9, 3.7525207873471212`*^9, 
   3.7539142573130937`*^9, 3.801831188972637*^9},
 CellLabel->
  "Out[179]=",ExpressionUUID->"9a4781d0-9a1b-442d-8181-501c3b93c242"],

Cell["\<\
\\text{((}\\text{**}\\overline{14}\\text{**})\\text{**}\\text{(13)(24)})_i{}^\
j \\text{((}\\text{**}\\overline{14}\\text{**})\\text{**}\\text{(13)(24)})_I{}\
^J\
\>", "Output",
 CellChangeTimes->{
  3.750017795110408*^9, 3.7500178398945265`*^9, 3.750017961698599*^9, 
   3.7500180197699437`*^9, 3.7500183608999243`*^9, 3.750157525730112*^9, 
   3.7503401827593527`*^9, 3.7503764461061115`*^9, 3.750376738555546*^9, 
   3.7503775285849996`*^9, 3.750377585120865*^9, {3.7503779995410194`*^9, 
   3.750378011449217*^9}, 3.750685270367403*^9, 3.7525207873471212`*^9, 
   3.7539142573130937`*^9, 3.801831188978064*^9},
 CellLabel->
  "Out[180]//TeXForm=",ExpressionUUID->"23bd1312-25ca-45ce-8acf-4b289e928982"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "BC4Boson: ",
 Cell[BoxData[
  FormBox[
   RowBox[{"(", 
    OverscriptBox["12", "_"], ")"}], TraditionalForm]],ExpressionUUID->
  "ff144512-7a76-4096-8a1b-26448bcde67c"],
 "(14)(23); BC4Color: ",
 Cell[BoxData[
  FormBox[
   RowBox[{"(", 
    OverscriptBox["12", "_"], ")"}], TraditionalForm]],ExpressionUUID->
  "d3f1da58-c5cc-4014-8472-fbced4193c73"],
 "(14)(23)"
}], "Subsubsection",
 CellChangeTimes->{{3.7094072981142626`*^9, 3.70940734667404*^9}, {
  3.7094074243794847`*^9, 3.7094074364241734`*^9}, {3.7094074747113633`*^9, 
  3.7094074824408054`*^9}, {3.709407530829573*^9, 3.709407599237486*^9}, {
  3.7094077217584934`*^9, 3.7094077512721815`*^9}, {3.7094078101635504`*^9, 
  3.7094078230572877`*^9}, {3.7094089946582994`*^9, 3.709409043468091*^9}, {
  3.7094090786881056`*^9, 3.7094090836333885`*^9}, {3.7094092691650004`*^9, 
  3.7094092767474337`*^9}, {3.715019463427943*^9, 
  3.715019483081067*^9}},ExpressionUUID->"7d252322-3662-42a5-a4b1-\
5c7192687e8e"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LBP", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"0", ",", "12", ",", "0", ",", "1423"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LCP", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"0", ",", "12", ",", "0", ",", "1423"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"L", "[", "Local", "]"}], " ", "=", " ", 
   RowBox[{
    RowBox[{"BC4BosonPerm", "[", 
     RowBox[{
      RowBox[{"LBP", "[", 
       RowBox[{"[", "1", "]"}], "]"}], ",", 
      RowBox[{"LBP", "[", 
       RowBox[{"[", "2", "]"}], "]"}], ",", 
      RowBox[{"LBP", "[", 
       RowBox[{"[", "3", "]"}], "]"}], ",", 
      RowBox[{"LBP", "[", 
       RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "[", 
    RowBox[{
     RowBox[{"BC4ColorPerm", "[", 
      RowBox[{
       RowBox[{"LCP", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{"LCP", "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", 
       RowBox[{"LCP", "[", 
        RowBox[{"[", "3", "]"}], "]"}], ",", 
       RowBox[{"LCP", "[", 
        RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "[", 
     RowBox[{"L", "[", "Q", "]"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"GraphAdinkra", "[", "Local", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"L", "[", "Local", "]"}], " ", "\[Equal]", " ", 
  RowBox[{"L", "[", "Q", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"PrintBC4BosonPerm", "[", 
   RowBox[{
    RowBox[{"LBP", "[", 
     RowBox[{"[", "1", "]"}], "]"}], ",", 
    RowBox[{"LBP", "[", 
     RowBox[{"[", "2", "]"}], "]"}], ",", 
    RowBox[{"LBP", "[", 
     RowBox[{"[", "3", "]"}], "]"}], ",", 
    RowBox[{"LBP", "[", 
     RowBox[{"[", "4", "]"}], "]"}]}], "]"}], 
  RowBox[{"PrintBC4ColorPerm", "[", 
   RowBox[{
    RowBox[{"LCP", "[", 
     RowBox[{"[", "1", "]"}], "]"}], ",", 
    RowBox[{"LCP", "[", 
     RowBox[{"[", "2", "]"}], "]"}], ",", 
    RowBox[{"LCP", "[", 
     RowBox[{"[", "3", "]"}], "]"}], ",", 
    RowBox[{"LCP", "[", 
     RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"PrintBC4BosonPerm", "[", 
    RowBox[{
     RowBox[{"LBP", "[", 
      RowBox[{"[", "1", "]"}], "]"}], ",", 
     RowBox[{"LBP", "[", 
      RowBox[{"[", "2", "]"}], "]"}], ",", 
     RowBox[{"LBP", "[", 
      RowBox[{"[", "3", "]"}], "]"}], ",", 
     RowBox[{"LBP", "[", 
      RowBox[{"[", "4", "]"}], "]"}]}], "]"}], 
   RowBox[{"PrintBC4ColorPerm", "[", 
    RowBox[{
     RowBox[{"LCP", "[", 
      RowBox[{"[", "1", "]"}], "]"}], ",", 
     RowBox[{"LCP", "[", 
      RowBox[{"[", "2", "]"}], "]"}], ",", 
     RowBox[{"LCP", "[", 
      RowBox[{"[", "3", "]"}], "]"}], ",", 
     RowBox[{"LCP", "[", 
      RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}], "//", "TeXForm"}]}], "Input",\

 CellChangeTimes->{{3.7094039013309774`*^9, 3.7094039138136916`*^9}, {
   3.7094044562677183`*^9, 3.7094044647322025`*^9}, {3.7094049724722433`*^9, 
   3.709404984724944*^9}, {3.709405453467755*^9, 3.7094054685566177`*^9}, {
   3.7094055063167777`*^9, 3.7094055076468534`*^9}, {3.7094055481201687`*^9, 
   3.709405675978482*^9}, {3.7094057446334085`*^9, 3.709405752020831*^9}, {
   3.7094071402432327`*^9, 3.709407176262293*^9}, {3.709407255326815*^9, 
   3.709407271982768*^9}, {3.7094082444943924`*^9, 3.709408244576397*^9}, {
   3.7095849305768614`*^9, 3.709584981646782*^9}, {3.714829435369877*^9, 
   3.7148294760468426`*^9}, {3.7148296420624914`*^9, 
   3.7148296599222927`*^9}, {3.7148297090223927`*^9, 
   3.7148297122727222`*^9}, {3.714874444460785*^9, 3.7148745018840694`*^9}, 
   3.714874545855585*^9, {3.714874721983659*^9, 3.7148747441659274`*^9}, {
   3.7148747765467796`*^9, 3.7148748382013063`*^9}, {3.7148748844889536`*^9, 
   3.7148749143556614`*^9}, {3.7150191266666813`*^9, 3.715019132469013*^9}, {
   3.7150195503779163`*^9, 3.7150195653337717`*^9}, {3.7154511812428513`*^9, 
   3.7154512442684565`*^9}, {3.7154521650631227`*^9, 
   3.7154522001531296`*^9}, {3.715452329242513*^9, 3.715452344031359*^9}, {
   3.7154523962273445`*^9, 3.715452453283608*^9}, {3.715472665006022*^9, 
   3.7154726802318926`*^9}, {3.715472835933799*^9, 3.715472838172927*^9}, {
   3.715472896637271*^9, 3.715472937900631*^9}, {3.7154730056815076`*^9, 
   3.715473017277171*^9}, 3.74999948249894*^9, 3.7499997189176598`*^9},
 CellLabel->
  "In[181]:=",ExpressionUUID->"5688336a-8404-4650-8968-abf8843faee4"],

Cell[BoxData[
 GraphicsBox[{
   {Hue[0.6, 0.7, 0.5], Opacity[0.7], 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {-1.5, -2.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {-0.5, -2.}}]}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {0.5, -2.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {1.5, -2.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -2.}, {-0.5, -1.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -2.}, {0.5, -1.}}]}}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{-0.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-0.5, -2.}, {0.5, -1.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     LineBox[{{-0.5, -2.}, {1.5, -1.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     LineBox[{{0.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{0.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{0.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{1.5, -2.}, {-0.5, -1.}}]}}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     LineBox[{{1.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{1.5, -2.}, {1.5, -1.}}]}}, 
   {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 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.}]}},
  FormatType->TraditionalForm,
  FrameTicks->None]], "Output",
 CellChangeTimes->{
  3.7500177951932583`*^9, 3.7500178399485826`*^9, 3.750017961921361*^9, 
   3.750018019872616*^9, 3.750018360996148*^9, 3.750157525814183*^9, 
   3.7503401828218374`*^9, 3.750376446178948*^9, 3.750376738623394*^9, 
   3.7503775286179395`*^9, 3.7503775851877*^9, {3.7503779996108675`*^9, 
   3.7503780115010757`*^9}, 3.750685270434935*^9, 3.7525207874339347`*^9, 
   3.7539142574068165`*^9, 3.801831189084873*^9},
 CellLabel->
  "Out[184]=",ExpressionUUID->"596eb9e3-3330-41e9-ac04-1a7038c7d54c"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.7500177951932583`*^9, 3.7500178399485826`*^9, 3.750017961921361*^9, 
   3.750018019872616*^9, 3.750018360996148*^9, 3.750157525814183*^9, 
   3.7503401828218374`*^9, 3.750376446178948*^9, 3.750376738623394*^9, 
   3.7503775286179395`*^9, 3.7503775851877*^9, {3.7503779996108675`*^9, 
   3.7503780115010757`*^9}, 3.750685270434935*^9, 3.7525207874339347`*^9, 
   3.7539142574068165`*^9, 3.801831189094101*^9},
 CellLabel->
  "Out[185]=",ExpressionUUID->"d5420b91-16ee-4e47-b21c-7e5b2fc650eb"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\<\"((\"\>", "**", 
   OverscriptBox["12", "_"], "**", "\<\")\"\>", 
   "**", "\<\"(14)(23)\\!\\(\\*SuperscriptBox[SubscriptBox[\\()\\), \\(i\\)], \
\\(j\\)]\\)\"\>"}], " ", 
  RowBox[{"\<\"((\"\>", "**", 
   OverscriptBox["12", "_"], "**", "\<\")\"\>", 
   "**", "\<\"(14)(23)\\!\\(\\*SuperscriptBox[SubscriptBox[\\()\\), \\(I\\)], \
\\(J\\)]\\)\"\>"}]}]], "Output",
 CellChangeTimes->{
  3.7500177951932583`*^9, 3.7500178399485826`*^9, 3.750017961921361*^9, 
   3.750018019872616*^9, 3.750018360996148*^9, 3.750157525814183*^9, 
   3.7503401828218374`*^9, 3.750376446178948*^9, 3.750376738623394*^9, 
   3.7503775286179395`*^9, 3.7503775851877*^9, {3.7503779996108675`*^9, 
   3.7503780115010757`*^9}, 3.750685270434935*^9, 3.7525207874339347`*^9, 
   3.7539142574068165`*^9, 3.801831189099337*^9},
 CellLabel->
  "Out[186]=",ExpressionUUID->"ca751d89-7abc-4c1c-ba4d-b88d152396ac"],

Cell["\<\
\\text{((}\\text{**}\\overline{12}\\text{**})\\text{**}\\text{(14)(23)})_i{}^\
j \\text{((}\\text{**}\\overline{12}\\text{**})\\text{**}\\text{(14)(23)})_I{}\
^J\
\>", "Output",
 CellChangeTimes->{
  3.7500177951932583`*^9, 3.7500178399485826`*^9, 3.750017961921361*^9, 
   3.750018019872616*^9, 3.750018360996148*^9, 3.750157525814183*^9, 
   3.7503401828218374`*^9, 3.750376446178948*^9, 3.750376738623394*^9, 
   3.7503775286179395`*^9, 3.7503775851877*^9, {3.7503779996108675`*^9, 
   3.7503780115010757`*^9}, 3.750685270434935*^9, 3.7525207874339347`*^9, 
   3.7539142574068165`*^9, 3.801831189104395*^9},
 CellLabel->
  "Out[187]//TeXForm=",ExpressionUUID->"3972cecb-4ad9-4b76-bfa4-f1d930b03026"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "BC4Boson: ",
 Cell[BoxData[
  FormBox[
   RowBox[{"(", 
    OverscriptBox["34", "_"], ")"}], TraditionalForm]],ExpressionUUID->
  "b4610d7e-e4e6-4693-bac0-a6d9ea7d18c0"],
 "(14)(23); BC4Color: ",
 Cell[BoxData[
  FormBox[
   RowBox[{"(", 
    OverscriptBox["34", "_"], ")"}], TraditionalForm]],ExpressionUUID->
  "002450bb-99b8-46ec-a9b8-cafe21daa1ec"],
 "(14)(23)"
}], "Subsubsection",
 CellChangeTimes->{{3.7094072981142626`*^9, 3.70940734667404*^9}, {
  3.7094074243794847`*^9, 3.7094074364241734`*^9}, {3.7094074747113633`*^9, 
  3.7094074824408054`*^9}, {3.709407530829573*^9, 3.709407599237486*^9}, {
  3.7094077217584934`*^9, 3.7094077512721815`*^9}, {3.7094078101635504`*^9, 
  3.7094078230572877`*^9}, {3.7094089946582994`*^9, 3.709409043468091*^9}, {
  3.7094090786881056`*^9, 3.7094090836333885`*^9}, {3.7094092934963923`*^9, 
  3.7094092992617216`*^9}, {3.715019494858741*^9, 
  3.715019499441003*^9}},ExpressionUUID->"79923201-e450-4129-b56c-\
8430280b8ced"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LBP", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", "12", ",", "0", ",", "1423"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LCP", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", "12", ",", "0", ",", "1423"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"L", "[", "Local", "]"}], " ", "=", " ", 
   RowBox[{
    RowBox[{"BC4BosonPerm", "[", 
     RowBox[{
      RowBox[{"LBP", "[", 
       RowBox[{"[", "1", "]"}], "]"}], ",", 
      RowBox[{"LBP", "[", 
       RowBox[{"[", "2", "]"}], "]"}], ",", 
      RowBox[{"LBP", "[", 
       RowBox[{"[", "3", "]"}], "]"}], ",", 
      RowBox[{"LBP", "[", 
       RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "[", 
    RowBox[{
     RowBox[{"BC4ColorPerm", "[", 
      RowBox[{
       RowBox[{"LCP", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{"LCP", "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", 
       RowBox[{"LCP", "[", 
        RowBox[{"[", "3", "]"}], "]"}], ",", 
       RowBox[{"LCP", "[", 
        RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "[", 
     RowBox[{"L", "[", "Q", "]"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"GraphAdinkra", "[", "Local", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"L", "[", "Local", "]"}], " ", "\[Equal]", " ", 
  RowBox[{"L", "[", "Q", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"PrintBC4BosonPerm", "[", 
   RowBox[{
    RowBox[{"LBP", "[", 
     RowBox[{"[", "1", "]"}], "]"}], ",", 
    RowBox[{"LBP", "[", 
     RowBox[{"[", "2", "]"}], "]"}], ",", 
    RowBox[{"LBP", "[", 
     RowBox[{"[", "3", "]"}], "]"}], ",", 
    RowBox[{"LBP", "[", 
     RowBox[{"[", "4", "]"}], "]"}]}], "]"}], 
  RowBox[{"PrintBC4ColorPerm", "[", 
   RowBox[{
    RowBox[{"LCP", "[", 
     RowBox[{"[", "1", "]"}], "]"}], ",", 
    RowBox[{"LCP", "[", 
     RowBox[{"[", "2", "]"}], "]"}], ",", 
    RowBox[{"LCP", "[", 
     RowBox[{"[", "3", "]"}], "]"}], ",", 
    RowBox[{"LCP", "[", 
     RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"PrintBC4BosonPerm", "[", 
    RowBox[{
     RowBox[{"LBP", "[", 
      RowBox[{"[", "1", "]"}], "]"}], ",", 
     RowBox[{"LBP", "[", 
      RowBox[{"[", "2", "]"}], "]"}], ",", 
     RowBox[{"LBP", "[", 
      RowBox[{"[", "3", "]"}], "]"}], ",", 
     RowBox[{"LBP", "[", 
      RowBox[{"[", "4", "]"}], "]"}]}], "]"}], 
   RowBox[{"PrintBC4ColorPerm", "[", 
    RowBox[{
     RowBox[{"LCP", "[", 
      RowBox[{"[", "1", "]"}], "]"}], ",", 
     RowBox[{"LCP", "[", 
      RowBox[{"[", "2", "]"}], "]"}], ",", 
     RowBox[{"LCP", "[", 
      RowBox[{"[", "3", "]"}], "]"}], ",", 
     RowBox[{"LCP", "[", 
      RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}], "//", "TeXForm"}]}], "Input",\

 CellChangeTimes->{{3.7094039013309774`*^9, 3.7094039138136916`*^9}, {
   3.7094044562677183`*^9, 3.7094044647322025`*^9}, {3.7094049724722433`*^9, 
   3.709404984724944*^9}, {3.709405453467755*^9, 3.7094054685566177`*^9}, {
   3.7094055063167777`*^9, 3.7094055076468534`*^9}, {3.7094055481201687`*^9, 
   3.709405675978482*^9}, {3.7094057446334085`*^9, 3.709405752020831*^9}, {
   3.7094071402432327`*^9, 3.709407176262293*^9}, {3.709407255326815*^9, 
   3.709407271982768*^9}, {3.7094082444943924`*^9, 3.709408244576397*^9}, {
   3.7095849305768614`*^9, 3.709584981646782*^9}, {3.714829435369877*^9, 
   3.7148294760468426`*^9}, {3.7148296420624914`*^9, 
   3.7148296599222927`*^9}, {3.7148297090223927`*^9, 
   3.7148297122727222`*^9}, {3.714874444460785*^9, 3.7148745018840694`*^9}, 
   3.714874545855585*^9, {3.714874721983659*^9, 3.7148747441659274`*^9}, {
   3.7148747765467796`*^9, 3.7148748382013063`*^9}, {3.7148748844889536`*^9, 
   3.7148749143556614`*^9}, {3.7150191266666813`*^9, 3.715019132469013*^9}, {
   3.7150195503779163`*^9, 3.7150195653337717`*^9}, {3.7154511812428513`*^9, 
   3.7154512442684565`*^9}, {3.7154521650631227`*^9, 
   3.7154522001531296`*^9}, {3.715452329242513*^9, 3.715452344031359*^9}, {
   3.7154523962273445`*^9, 3.715452453283608*^9}, {3.715472665006022*^9, 
   3.7154726802318926`*^9}, {3.715472835933799*^9, 3.715472838172927*^9}, {
   3.715472896637271*^9, 3.715472937900631*^9}, {3.7154730056815076`*^9, 
   3.7154730375153284`*^9}, 3.749999482505414*^9, 3.74999971892345*^9},
 CellLabel->
  "In[188]:=",ExpressionUUID->"71ac2ec2-35ee-4771-8859-595d9f4f01cf"],

Cell[BoxData[
 GraphicsBox[{
   {Hue[0.6, 0.7, 0.5], Opacity[0.7], 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {-1.5, -2.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {-0.5, -2.}}]}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {0.5, -2.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {1.5, -2.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -2.}, {-0.5, -1.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -2.}, {0.5, -1.}}]}}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{-0.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-0.5, -2.}, {0.5, -1.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     LineBox[{{-0.5, -2.}, {1.5, -1.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     LineBox[{{0.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{0.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{0.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{1.5, -2.}, {-0.5, -1.}}]}}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     LineBox[{{1.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{1.5, -2.}, {1.5, -1.}}]}}, 
   {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 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.}]}},
  FormatType->TraditionalForm,
  FrameTicks->None]], "Output",
 CellChangeTimes->{
  3.750017795272704*^9, 3.750017840002604*^9, 3.7500179621454945`*^9, 
   3.750018019937096*^9, 3.7500183610571976`*^9, 3.750157525896205*^9, 
   3.7503401828999257`*^9, 3.7503764462487345`*^9, 3.75037673867323*^9, 
   3.7503775286498375`*^9, 3.7503775852874193`*^9, {3.7503779997165475`*^9, 
   3.7503780115579185`*^9}, 3.750685270527688*^9, 3.7525207875256996`*^9, 
   3.7539142575005627`*^9, 3.801831189210511*^9},
 CellLabel->
  "Out[191]=",ExpressionUUID->"96fc1713-4b9e-44cd-b9f5-8c6ccfd63953"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.750017795272704*^9, 3.750017840002604*^9, 3.7500179621454945`*^9, 
   3.750018019937096*^9, 3.7500183610571976`*^9, 3.750157525896205*^9, 
   3.7503401828999257`*^9, 3.7503764462487345`*^9, 3.75037673867323*^9, 
   3.7503775286498375`*^9, 3.7503775852874193`*^9, {3.7503779997165475`*^9, 
   3.7503780115579185`*^9}, 3.750685270527688*^9, 3.7525207875256996`*^9, 
   3.7539142575005627`*^9, 3.801831189219846*^9},
 CellLabel->
  "Out[192]=",ExpressionUUID->"94c49df9-193a-4f3f-ab6e-73b08752a8d4"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\<\"((\"\>", "**", 
   OverscriptBox["34", "_"], "**", "\<\")\"\>", 
   "**", "\<\"(14)(23)\\!\\(\\*SuperscriptBox[SubscriptBox[\\()\\), \\(i\\)], \
\\(j\\)]\\)\"\>"}], " ", 
  RowBox[{"\<\"((\"\>", "**", 
   OverscriptBox["34", "_"], "**", "\<\")\"\>", 
   "**", "\<\"(14)(23)\\!\\(\\*SuperscriptBox[SubscriptBox[\\()\\), \\(I\\)], \
\\(J\\)]\\)\"\>"}]}]], "Output",
 CellChangeTimes->{
  3.750017795272704*^9, 3.750017840002604*^9, 3.7500179621454945`*^9, 
   3.750018019937096*^9, 3.7500183610571976`*^9, 3.750157525896205*^9, 
   3.7503401828999257`*^9, 3.7503764462487345`*^9, 3.75037673867323*^9, 
   3.7503775286498375`*^9, 3.7503775852874193`*^9, {3.7503779997165475`*^9, 
   3.7503780115579185`*^9}, 3.750685270527688*^9, 3.7525207875256996`*^9, 
   3.7539142575005627`*^9, 3.801831189224148*^9},
 CellLabel->
  "Out[193]=",ExpressionUUID->"53d1f6b5-da37-4dcf-a9c9-25ca228e7b0c"],

Cell["\<\
\\text{((}\\text{**}\\overline{34}\\text{**})\\text{**}\\text{(14)(23)})_i{}^\
j \\text{((}\\text{**}\\overline{34}\\text{**})\\text{**}\\text{(14)(23)})_I{}\
^J\
\>", "Output",
 CellChangeTimes->{
  3.750017795272704*^9, 3.750017840002604*^9, 3.7500179621454945`*^9, 
   3.750018019937096*^9, 3.7500183610571976`*^9, 3.750157525896205*^9, 
   3.7503401828999257`*^9, 3.7503764462487345`*^9, 3.75037673867323*^9, 
   3.7503775286498375`*^9, 3.7503775852874193`*^9, {3.7503779997165475`*^9, 
   3.7503780115579185`*^9}, 3.750685270527688*^9, 3.7525207875256996`*^9, 
   3.7539142575005627`*^9, 3.801831189229005*^9},
 CellLabel->
  "Out[194]//TeXForm=",ExpressionUUID->"180cb54b-312c-4067-9b6c-562cba8f7b82"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Isometry BC4Color and BC4Boson transformations on ",
 Cell[BoxData[
  FormBox[
   OverscriptBox["Q", "~"], TraditionalForm]],ExpressionUUID->
  "a61e8039-14d6-46ed-8e44-271f232126e1"]
}], "Subsection",
 CellChangeTimes->{{3.7148737257556777`*^9, 3.714873755119357*^9}, {
  3.7150190615039544`*^9, 
  3.7150190728576035`*^9}},ExpressionUUID->"f97e2963-3fc4-4159-b11d-\
bf2255d3075b"],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[
 FormBox[
  SubscriptBox[
   OverscriptBox["Q", "~"], "I"], 
  TraditionalForm]],ExpressionUUID->"1628ba58-6e44-4283-a514-4cb00445f518"]], \
"Subsubsection",
 CellChangeTimes->{{3.7094072981142626`*^9, 3.709407322272644*^9}, {
  3.7094073532224145`*^9, 3.70940735454449*^9}, {3.709408230412587*^9, 
  3.7094082312066326`*^9}, {3.715019244021394*^9, 
  3.7150192449814487`*^9}},ExpressionUUID->"bcf5e642-0a97-42b0-adcb-\
35d4653cfed7"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LBP", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LCP", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"L", "[", "Local", "]"}], " ", "=", " ", 
   RowBox[{
    RowBox[{"BC4BosonPerm", "[", 
     RowBox[{
      RowBox[{"LBP", "[", 
       RowBox[{"[", "1", "]"}], "]"}], ",", 
      RowBox[{"LBP", "[", 
       RowBox[{"[", "2", "]"}], "]"}], ",", 
      RowBox[{"LBP", "[", 
       RowBox[{"[", "3", "]"}], "]"}], ",", 
      RowBox[{"LBP", "[", 
       RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "[", 
    RowBox[{
     RowBox[{"BC4ColorPerm", "[", 
      RowBox[{
       RowBox[{"LCP", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{"LCP", "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", 
       RowBox[{"LCP", "[", 
        RowBox[{"[", "3", "]"}], "]"}], ",", 
       RowBox[{"LCP", "[", 
        RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "[", 
     RowBox[{"L", "[", "Qtilde", "]"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"GraphAdinkra", "[", "Local", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"L", "[", "Local", "]"}], " ", "\[Equal]", " ", 
  RowBox[{"L", "[", "Qtilde", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"PrintBC4BosonPerm", "[", 
   RowBox[{
    RowBox[{"LBP", "[", 
     RowBox[{"[", "1", "]"}], "]"}], ",", 
    RowBox[{"LBP", "[", 
     RowBox[{"[", "2", "]"}], "]"}], ",", 
    RowBox[{"LBP", "[", 
     RowBox[{"[", "3", "]"}], "]"}], ",", 
    RowBox[{"LBP", "[", 
     RowBox[{"[", "4", "]"}], "]"}]}], "]"}], 
  RowBox[{"PrintBC4ColorPerm", "[", 
   RowBox[{
    RowBox[{"LCP", "[", 
     RowBox[{"[", "1", "]"}], "]"}], ",", 
    RowBox[{"LCP", "[", 
     RowBox[{"[", "2", "]"}], "]"}], ",", 
    RowBox[{"LCP", "[", 
     RowBox[{"[", "3", "]"}], "]"}], ",", 
    RowBox[{"LCP", "[", 
     RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"PrintBC4BosonPerm", "[", 
    RowBox[{
     RowBox[{"LBP", "[", 
      RowBox[{"[", "1", "]"}], "]"}], ",", 
     RowBox[{"LBP", "[", 
      RowBox[{"[", "2", "]"}], "]"}], ",", 
     RowBox[{"LBP", "[", 
      RowBox[{"[", "3", "]"}], "]"}], ",", 
     RowBox[{"LBP", "[", 
      RowBox[{"[", "4", "]"}], "]"}]}], "]"}], 
   RowBox[{"PrintBC4ColorPerm", "[", 
    RowBox[{
     RowBox[{"LCP", "[", 
      RowBox[{"[", "1", "]"}], "]"}], ",", 
     RowBox[{"LCP", "[", 
      RowBox[{"[", "2", "]"}], "]"}], ",", 
     RowBox[{"LCP", "[", 
      RowBox[{"[", "3", "]"}], "]"}], ",", 
     RowBox[{"LCP", "[", 
      RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}], "//", "TeXForm"}]}], "Input",\

 CellChangeTimes->{{3.7094039013309774`*^9, 3.7094039138136916`*^9}, {
   3.7094044562677183`*^9, 3.7094044647322025`*^9}, {3.7094049724722433`*^9, 
   3.709404984724944*^9}, {3.709405453467755*^9, 3.7094054685566177`*^9}, {
   3.7094055063167777`*^9, 3.7094055076468534`*^9}, {3.7094055481201687`*^9, 
   3.709405675978482*^9}, {3.7094057446334085`*^9, 3.709405752020831*^9}, {
   3.7094071402432327`*^9, 3.709407176262293*^9}, {3.709407255326815*^9, 
   3.709407271982768*^9}, {3.7094082444943924`*^9, 3.709408244576397*^9}, {
   3.7095849305768614`*^9, 3.709584981646782*^9}, {3.714829435369877*^9, 
   3.7148294760468426`*^9}, {3.7148296420624914`*^9, 
   3.7148296599222927`*^9}, {3.7148297090223927`*^9, 
   3.7148297122727222`*^9}, {3.714874444460785*^9, 3.7148745018840694`*^9}, 
   3.714874545855585*^9, {3.714874721983659*^9, 3.7148747441659274`*^9}, {
   3.7148747765467796`*^9, 3.7148748382013063`*^9}, {3.7148748844889536`*^9, 
   3.7148749143556614`*^9}, {3.7150191266666813`*^9, 3.715019132469013*^9}, {
   3.7150195503779163`*^9, 3.7150195653337717`*^9}, {3.7154511812428513`*^9, 
   3.7154512442684565`*^9}, {3.7154521650631227`*^9, 
   3.7154522001531296`*^9}, {3.715452329242513*^9, 3.715452344031359*^9}, {
   3.7154523962273445`*^9, 3.715452453283608*^9}, {3.71547254083792*^9, 
   3.7154725433810654`*^9}, {3.715473265373361*^9, 3.715473271421707*^9}, 
   3.749999482511668*^9, 3.749999718929199*^9},
 CellLabel->
  "In[195]:=",ExpressionUUID->"926d4d47-3dd2-4eb4-a5db-08bf1eab372b"],

Cell[BoxData[
 GraphicsBox[{
   {Hue[0.6, 0.7, 0.5], Opacity[0.7], 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {-1.5, -2.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -1.}, {-0.5, -2.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {0.5, -2.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {1.5, -2.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     LineBox[{{-1.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -2.}, {0.5, -1.}}]}}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{-0.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     LineBox[{{-0.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-0.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{0.5, -2.}, {-0.5, -1.}}]}}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{0.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{0.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     LineBox[{{1.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     LineBox[{{1.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{1.5, -2.}, {1.5, -1.}}]}}, 
   {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 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.}]}},
  FormatType->TraditionalForm,
  FrameTicks->None]], "Output",
 CellChangeTimes->{
  3.7500178009068356`*^9, 3.7500178400537357`*^9, 3.7500179622675095`*^9, 
   3.7500180200045757`*^9, 3.7500183611519346`*^9, 3.7501575259680786`*^9, 
   3.750340182962431*^9, 3.7503764462956038`*^9, 3.7503767387211013`*^9, 
   3.7503775286827393`*^9, 3.750377585352274*^9, {3.750377999774393*^9, 
   3.7503780116097846`*^9}, 3.750685270591258*^9, 3.7525207876104755`*^9, 
   3.7539142575786257`*^9, 3.801831189339085*^9},
 CellLabel->
  "Out[198]=",ExpressionUUID->"0b0e72e2-8b82-4413-a50a-ad28e71dc617"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.7500178009068356`*^9, 3.7500178400537357`*^9, 3.7500179622675095`*^9, 
   3.7500180200045757`*^9, 3.7500183611519346`*^9, 3.7501575259680786`*^9, 
   3.750340182962431*^9, 3.7503764462956038`*^9, 3.7503767387211013`*^9, 
   3.7503775286827393`*^9, 3.750377585352274*^9, {3.750377999774393*^9, 
   3.7503780116097846`*^9}, 3.750685270591258*^9, 3.7525207876104755`*^9, 
   3.7539142575786257`*^9, 3.8018311893421183`*^9},
 CellLabel->
  "Out[199]=",ExpressionUUID->"2582dd15-e6d0-4e10-9150-3a5365c19513"],

Cell[BoxData[
 RowBox[{"\<\"(\\!\\(\\*SuperscriptBox[SubscriptBox[\\()\\), \\(i\\)], \
\\(j\\)]\\)\"\>", 
  " ", "\<\"(\\!\\(\\*SuperscriptBox[SubscriptBox[\\()\\), \\(I\\)], \\(J\\)]\
\\)\"\>"}]], "Output",
 CellChangeTimes->{
  3.7500178009068356`*^9, 3.7500178400537357`*^9, 3.7500179622675095`*^9, 
   3.7500180200045757`*^9, 3.7500183611519346`*^9, 3.7501575259680786`*^9, 
   3.750340182962431*^9, 3.7503764462956038`*^9, 3.7503767387211013`*^9, 
   3.7503775286827393`*^9, 3.750377585352274*^9, {3.750377999774393*^9, 
   3.7503780116097846`*^9}, 3.750685270591258*^9, 3.7525207876104755`*^9, 
   3.7539142575786257`*^9, 3.801831189344822*^9},
 CellLabel->
  "Out[200]=",ExpressionUUID->"a092bd37-5f56-404d-b892-874e5179beaa"],

Cell["\\left()_i{}^j\\right. \\left()_I{}^J\\right.", "Output",
 CellChangeTimes->{
  3.7500178009068356`*^9, 3.7500178400537357`*^9, 3.7500179622675095`*^9, 
   3.7500180200045757`*^9, 3.7500183611519346`*^9, 3.7501575259680786`*^9, 
   3.750340182962431*^9, 3.7503764462956038`*^9, 3.7503767387211013`*^9, 
   3.7503775286827393`*^9, 3.750377585352274*^9, {3.750377999774393*^9, 
   3.7503780116097846`*^9}, 3.750685270591258*^9, 3.7525207876104755`*^9, 
   3.7539142575786257`*^9, 3.801831189348599*^9},
 CellLabel->
  "Out[201]//TeXForm=",ExpressionUUID->"4992b2c1-25ed-4b71-b7ea-ad5c1be161a8"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "BC4Boson: ",
 Cell[BoxData[
  FormBox[
   RowBox[{"(", 
    OverscriptBox["1234", "_"]}], TraditionalForm]],ExpressionUUID->
  "1aec6dee-c016-432d-abda-4fb24e6b414c"],
 "); BC4Color: ",
 Cell[BoxData[
  FormBox[
   RowBox[{"(", 
    OverscriptBox["1234", "_"]}], TraditionalForm]],ExpressionUUID->
  "db16babf-9016-4827-b4dd-c5e842674be4"],
 ")"
}], "Subsubsection",
 CellChangeTimes->{{3.7094072981142626`*^9, 3.70940734667404*^9}, {
   3.70940823798602*^9, 3.709408239453104*^9}, 3.7150192642195487`*^9, 
   3.7154418662508683`*^9, {3.7154727887390995`*^9, 
   3.715472798120636*^9}},ExpressionUUID->"645195e6-a28d-4cfb-91ce-\
1b1e35792384"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LBP", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "0"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LCP", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "0"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"L", "[", "Local", "]"}], " ", "=", " ", 
   RowBox[{
    RowBox[{"BC4BosonPerm", "[", 
     RowBox[{
      RowBox[{"LBP", "[", 
       RowBox[{"[", "1", "]"}], "]"}], ",", 
      RowBox[{"LBP", "[", 
       RowBox[{"[", "2", "]"}], "]"}], ",", 
      RowBox[{"LBP", "[", 
       RowBox[{"[", "3", "]"}], "]"}], ",", 
      RowBox[{"LBP", "[", 
       RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "[", 
    RowBox[{
     RowBox[{"BC4ColorPerm", "[", 
      RowBox[{
       RowBox[{"LCP", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{"LCP", "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", 
       RowBox[{"LCP", "[", 
        RowBox[{"[", "3", "]"}], "]"}], ",", 
       RowBox[{"LCP", "[", 
        RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "[", 
     RowBox[{"L", "[", "Qtilde", "]"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"GraphAdinkra", "[", "Local", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"L", "[", "Local", "]"}], " ", "\[Equal]", " ", 
  RowBox[{"L", "[", "Qtilde", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"PrintBC4BosonPerm", "[", 
   RowBox[{
    RowBox[{"LBP", "[", 
     RowBox[{"[", "1", "]"}], "]"}], ",", 
    RowBox[{"LBP", "[", 
     RowBox[{"[", "2", "]"}], "]"}], ",", 
    RowBox[{"LBP", "[", 
     RowBox[{"[", "3", "]"}], "]"}], ",", 
    RowBox[{"LBP", "[", 
     RowBox[{"[", "4", "]"}], "]"}]}], "]"}], 
  RowBox[{"PrintBC4ColorPerm", "[", 
   RowBox[{
    RowBox[{"LCP", "[", 
     RowBox[{"[", "1", "]"}], "]"}], ",", 
    RowBox[{"LCP", "[", 
     RowBox[{"[", "2", "]"}], "]"}], ",", 
    RowBox[{"LCP", "[", 
     RowBox[{"[", "3", "]"}], "]"}], ",", 
    RowBox[{"LCP", "[", 
     RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"PrintBC4BosonPerm", "[", 
    RowBox[{
     RowBox[{"LBP", "[", 
      RowBox[{"[", "1", "]"}], "]"}], ",", 
     RowBox[{"LBP", "[", 
      RowBox[{"[", "2", "]"}], "]"}], ",", 
     RowBox[{"LBP", "[", 
      RowBox[{"[", "3", "]"}], "]"}], ",", 
     RowBox[{"LBP", "[", 
      RowBox[{"[", "4", "]"}], "]"}]}], "]"}], 
   RowBox[{"PrintBC4ColorPerm", "[", 
    RowBox[{
     RowBox[{"LCP", "[", 
      RowBox[{"[", "1", "]"}], "]"}], ",", 
     RowBox[{"LCP", "[", 
      RowBox[{"[", "2", "]"}], "]"}], ",", 
     RowBox[{"LCP", "[", 
      RowBox[{"[", "3", "]"}], "]"}], ",", 
     RowBox[{"LCP", "[", 
      RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}], "//", "TeXForm"}]}], "Input",\

 CellChangeTimes->{{3.7094039013309774`*^9, 3.7094039138136916`*^9}, {
   3.7094044562677183`*^9, 3.7094044647322025`*^9}, {3.7094049724722433`*^9, 
   3.709404984724944*^9}, {3.709405453467755*^9, 3.7094054685566177`*^9}, {
   3.7094055063167777`*^9, 3.7094055076468534`*^9}, {3.7094055481201687`*^9, 
   3.709405675978482*^9}, {3.7094057446334085`*^9, 3.709405752020831*^9}, {
   3.7094071402432327`*^9, 3.709407176262293*^9}, {3.709407255326815*^9, 
   3.709407271982768*^9}, {3.7094082444943924`*^9, 3.709408244576397*^9}, {
   3.7095849305768614`*^9, 3.709584981646782*^9}, {3.714829435369877*^9, 
   3.7148294760468426`*^9}, {3.7148296420624914`*^9, 
   3.7148296599222927`*^9}, {3.7148297090223927`*^9, 
   3.7148297122727222`*^9}, {3.714874444460785*^9, 3.7148745018840694`*^9}, 
   3.714874545855585*^9, {3.714874721983659*^9, 3.7148747441659274`*^9}, {
   3.7148747765467796`*^9, 3.7148748382013063`*^9}, {3.7148748844889536`*^9, 
   3.7148749143556614`*^9}, {3.7150191266666813`*^9, 3.715019132469013*^9}, {
   3.7150195503779163`*^9, 3.7150195653337717`*^9}, {3.7154511812428513`*^9, 
   3.7154512442684565`*^9}, {3.7154521650631227`*^9, 
   3.7154522001531296`*^9}, {3.715452329242513*^9, 3.715452344031359*^9}, {
   3.7154523962273445`*^9, 3.715452453283608*^9}, {3.71547254083792*^9, 
   3.7154725433810654`*^9}, {3.715473265373361*^9, 3.715473271421707*^9}, {
   3.7154736513134356`*^9, 3.715473653089537*^9}, 3.7499994825181503`*^9, 
   3.749999718934883*^9},
 CellLabel->
  "In[202]:=",ExpressionUUID->"89c20cd9-e4d2-4d95-9cf8-3633696038de"],

Cell[BoxData[
 GraphicsBox[{
   {Hue[0.6, 0.7, 0.5], Opacity[0.7], 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {-1.5, -2.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -1.}, {-0.5, -2.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {0.5, -2.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {1.5, -2.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     LineBox[{{-1.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -2.}, {0.5, -1.}}]}}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{-0.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     LineBox[{{-0.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-0.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{0.5, -2.}, {-0.5, -1.}}]}}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{0.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{0.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     LineBox[{{1.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     LineBox[{{1.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{1.5, -2.}, {1.5, -1.}}]}}, 
   {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 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.}]}},
  FormatType->TraditionalForm,
  FrameTicks->None]], "Output",
 CellChangeTimes->{
  3.750017801026987*^9, 3.7500178401197557`*^9, 3.7500179623469133`*^9, 
   3.750018020058617*^9, 3.750018361268487*^9, 3.750157526046447*^9, 
   3.750340183040556*^9, 3.7503764463355293`*^9, 3.7503767387998905`*^9, 
   3.750377528711695*^9, 3.7503775854131365`*^9, {3.750377999830276*^9, 
   3.7503780116636105`*^9}, 3.750685270651561*^9, 3.75252078769625*^9, 
   3.7539142576723824`*^9, 3.80183118952814*^9},
 CellLabel->
  "Out[205]=",ExpressionUUID->"a173a331-69c1-4c6d-9f7c-d0aba2711b96"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.750017801026987*^9, 3.7500178401197557`*^9, 3.7500179623469133`*^9, 
   3.750018020058617*^9, 3.750018361268487*^9, 3.750157526046447*^9, 
   3.750340183040556*^9, 3.7503764463355293`*^9, 3.7503767387998905`*^9, 
   3.750377528711695*^9, 3.7503775854131365`*^9, {3.750377999830276*^9, 
   3.7503780116636105`*^9}, 3.750685270651561*^9, 3.75252078769625*^9, 
   3.7539142576723824`*^9, 3.8018311895333767`*^9},
 CellLabel->
  "Out[206]=",ExpressionUUID->"12ee26d7-5ad5-4322-87a5-95cfdb4c1017"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\<\"(\"\>", "**", 
   OverscriptBox["1234", "_"], 
   "**", "\<\"\\!\\(\\*SuperscriptBox[SubscriptBox[\\()\\), \\(i\\)], \
\\(j\\)]\\)\"\>"}], " ", 
  RowBox[{"\<\"(\"\>", "**", 
   OverscriptBox["1234", "_"], 
   "**", "\<\"\\!\\(\\*SuperscriptBox[SubscriptBox[\\()\\), \\(I\\)], \
\\(J\\)]\\)\"\>"}]}]], "Output",
 CellChangeTimes->{
  3.750017801026987*^9, 3.7500178401197557`*^9, 3.7500179623469133`*^9, 
   3.750018020058617*^9, 3.750018361268487*^9, 3.750157526046447*^9, 
   3.750340183040556*^9, 3.7503764463355293`*^9, 3.7503767387998905`*^9, 
   3.750377528711695*^9, 3.7503775854131365`*^9, {3.750377999830276*^9, 
   3.7503780116636105`*^9}, 3.750685270651561*^9, 3.75252078769625*^9, 
   3.7539142576723824`*^9, 3.801831189536963*^9},
 CellLabel->
  "Out[207]=",ExpressionUUID->"e58049a0-008b-4e6d-a006-6d00c2808c38"],

Cell["\<\
(\\text{**}\\overline{1234}\\text{**})_i{}^j \
(\\text{**}\\overline{1234}\\text{**})_I{}^J\
\>", "Output",
 CellChangeTimes->{
  3.750017801026987*^9, 3.7500178401197557`*^9, 3.7500179623469133`*^9, 
   3.750018020058617*^9, 3.750018361268487*^9, 3.750157526046447*^9, 
   3.750340183040556*^9, 3.7503764463355293`*^9, 3.7503767387998905`*^9, 
   3.750377528711695*^9, 3.7503775854131365`*^9, {3.750377999830276*^9, 
   3.7503780116636105`*^9}, 3.750685270651561*^9, 3.75252078769625*^9, 
   3.7539142576723824`*^9, 3.8018311895412893`*^9},
 CellLabel->
  "Out[208]//TeXForm=",ExpressionUUID->"b76d3638-762b-4a6d-9d27-67890504ff87"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "BC4Boson: ",
 Cell[BoxData[
  FormBox[
   RowBox[{"(", 
    OverscriptBox["23", "_"]}], TraditionalForm]],ExpressionUUID->
  "55bf7613-0bcd-4de0-b216-186547c78466"],
 ")(12)(34); BC4Color: ",
 Cell[BoxData[
  FormBox[
   RowBox[{"(", 
    OverscriptBox["13", "_"]}], TraditionalForm]],ExpressionUUID->
  "e85e5bc1-4881-4150-90bb-b65812eaa53a"],
 ")(12)(34)"
}], "Subsubsection",
 CellChangeTimes->{{3.7094072981142626`*^9, 3.70940734667404*^9}, {
  3.7094074243794847`*^9, 3.7094074364241734`*^9}, {3.7094074747113633`*^9, 
  3.7094074824408054`*^9}, {3.709407530829573*^9, 3.709407599237486*^9}, {
  3.709408303567771*^9, 3.709408320347731*^9}, {3.7094085126567307`*^9, 
  3.709408559833429*^9}, {3.709408628166337*^9, 3.709408635274744*^9}, {
  3.7094088650188847`*^9, 3.7094088925804605`*^9}, {3.7150191574694433`*^9, 
  3.7150191916013956`*^9}, {3.7150195816647058`*^9, 3.715019581760711*^9}, {
  3.7150199722600465`*^9, 
  3.7150199781133814`*^9}},ExpressionUUID->"9926076d-f6a3-4e4f-af77-\
21bc1a738ed2"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LBP", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"0", ",", "23", ",", "0", ",", "1234"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LCP", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"0", ",", "13", ",", "0", ",", "1234"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"L", "[", "Local", "]"}], " ", "=", " ", 
   RowBox[{
    RowBox[{"BC4BosonPerm", "[", 
     RowBox[{
      RowBox[{"LBP", "[", 
       RowBox[{"[", "1", "]"}], "]"}], ",", 
      RowBox[{"LBP", "[", 
       RowBox[{"[", "2", "]"}], "]"}], ",", 
      RowBox[{"LBP", "[", 
       RowBox[{"[", "3", "]"}], "]"}], ",", 
      RowBox[{"LBP", "[", 
       RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "[", 
    RowBox[{
     RowBox[{"BC4ColorPerm", "[", 
      RowBox[{
       RowBox[{"LCP", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{"LCP", "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", 
       RowBox[{"LCP", "[", 
        RowBox[{"[", "3", "]"}], "]"}], ",", 
       RowBox[{"LCP", "[", 
        RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "[", 
     RowBox[{"L", "[", "Qtilde", "]"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"GraphAdinkra", "[", "Local", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"L", "[", "Local", "]"}], " ", "\[Equal]", " ", 
  RowBox[{"L", "[", "Qtilde", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"PrintBC4BosonPerm", "[", 
   RowBox[{
    RowBox[{"LBP", "[", 
     RowBox[{"[", "1", "]"}], "]"}], ",", 
    RowBox[{"LBP", "[", 
     RowBox[{"[", "2", "]"}], "]"}], ",", 
    RowBox[{"LBP", "[", 
     RowBox[{"[", "3", "]"}], "]"}], ",", 
    RowBox[{"LBP", "[", 
     RowBox[{"[", "4", "]"}], "]"}]}], "]"}], 
  RowBox[{"PrintBC4ColorPerm", "[", 
   RowBox[{
    RowBox[{"LCP", "[", 
     RowBox[{"[", "1", "]"}], "]"}], ",", 
    RowBox[{"LCP", "[", 
     RowBox[{"[", "2", "]"}], "]"}], ",", 
    RowBox[{"LCP", "[", 
     RowBox[{"[", "3", "]"}], "]"}], ",", 
    RowBox[{"LCP", "[", 
     RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"PrintBC4BosonPerm", "[", 
    RowBox[{
     RowBox[{"LBP", "[", 
      RowBox[{"[", "1", "]"}], "]"}], ",", 
     RowBox[{"LBP", "[", 
      RowBox[{"[", "2", "]"}], "]"}], ",", 
     RowBox[{"LBP", "[", 
      RowBox[{"[", "3", "]"}], "]"}], ",", 
     RowBox[{"LBP", "[", 
      RowBox[{"[", "4", "]"}], "]"}]}], "]"}], 
   RowBox[{"PrintBC4ColorPerm", "[", 
    RowBox[{
     RowBox[{"LCP", "[", 
      RowBox[{"[", "1", "]"}], "]"}], ",", 
     RowBox[{"LCP", "[", 
      RowBox[{"[", "2", "]"}], "]"}], ",", 
     RowBox[{"LCP", "[", 
      RowBox[{"[", "3", "]"}], "]"}], ",", 
     RowBox[{"LCP", "[", 
      RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}], "//", "TeXForm"}]}], "Input",\

 CellChangeTimes->{{3.7094039013309774`*^9, 3.7094039138136916`*^9}, {
   3.7094044562677183`*^9, 3.7094044647322025`*^9}, {3.7094049724722433`*^9, 
   3.709404984724944*^9}, {3.709405453467755*^9, 3.7094054685566177`*^9}, {
   3.7094055063167777`*^9, 3.7094055076468534`*^9}, {3.7094055481201687`*^9, 
   3.709405675978482*^9}, {3.7094057446334085`*^9, 3.709405752020831*^9}, {
   3.7094071402432327`*^9, 3.709407176262293*^9}, {3.709407255326815*^9, 
   3.709407271982768*^9}, {3.7094082444943924`*^9, 3.709408244576397*^9}, {
   3.7095849305768614`*^9, 3.709584981646782*^9}, {3.714829435369877*^9, 
   3.7148294760468426`*^9}, {3.7148296420624914`*^9, 
   3.7148296599222927`*^9}, {3.7148297090223927`*^9, 
   3.7148297122727222`*^9}, {3.714874444460785*^9, 3.7148745018840694`*^9}, 
   3.714874545855585*^9, {3.714874721983659*^9, 3.7148747441659274`*^9}, {
   3.7148747765467796`*^9, 3.7148748382013063`*^9}, {3.7148748844889536`*^9, 
   3.7148749143556614`*^9}, {3.7150191266666813`*^9, 3.715019132469013*^9}, {
   3.7150195503779163`*^9, 3.7150195653337717`*^9}, {3.7154511812428513`*^9, 
   3.7154512442684565`*^9}, {3.7154521650631227`*^9, 
   3.7154522001531296`*^9}, {3.715452329242513*^9, 3.715452344031359*^9}, {
   3.7154523962273445`*^9, 3.7154524023096924`*^9}, {3.715473718121257*^9, 
   3.715473721528452*^9}, 3.749999482526866*^9, 3.749999718940756*^9},
 CellLabel->
  "In[209]:=",ExpressionUUID->"522099e7-c863-4ec4-8301-dc5c7110e7e9"],

Cell[BoxData[
 GraphicsBox[{
   {Hue[0.6, 0.7, 0.5], Opacity[0.7], 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {-1.5, -2.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -1.}, {-0.5, -2.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {0.5, -2.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {1.5, -2.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     LineBox[{{-1.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -2.}, {0.5, -1.}}]}}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{-0.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     LineBox[{{-0.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-0.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{0.5, -2.}, {-0.5, -1.}}]}}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{0.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{0.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     LineBox[{{1.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     LineBox[{{1.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{1.5, -2.}, {1.5, -1.}}]}}, 
   {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 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.}]}},
  FormatType->TraditionalForm,
  FrameTicks->None]], "Output",
 CellChangeTimes->{
  3.7500178011043496`*^9, 3.7500178401594815`*^9, 3.7500179624277534`*^9, 
   3.7500180201369886`*^9, 3.7500183613483076`*^9, 3.750157526129775*^9, 
   3.7503401831032887`*^9, 3.750376446378383*^9, 3.7503767388398113`*^9, 
   3.750377528743606*^9, 3.7503775854759474`*^9, {3.7503779998861275`*^9, 
   3.750378011718507*^9}, 3.750685270709569*^9, 3.752520787750044*^9, 
   3.753914257750464*^9, 3.801831189802821*^9},
 CellLabel->
  "Out[212]=",ExpressionUUID->"3aeb60e4-7de9-4a20-87a0-7e811a2ba8f0"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.7500178011043496`*^9, 3.7500178401594815`*^9, 3.7500179624277534`*^9, 
   3.7500180201369886`*^9, 3.7500183613483076`*^9, 3.750157526129775*^9, 
   3.7503401831032887`*^9, 3.750376446378383*^9, 3.7503767388398113`*^9, 
   3.750377528743606*^9, 3.7503775854759474`*^9, {3.7503779998861275`*^9, 
   3.750378011718507*^9}, 3.750685270709569*^9, 3.752520787750044*^9, 
   3.753914257750464*^9, 3.801831189806522*^9},
 CellLabel->
  "Out[213]=",ExpressionUUID->"0689f7ee-df7f-4e45-aab1-c1f0ed06a0f4"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\<\"((\"\>", "**", 
   OverscriptBox["13", "_"], "**", "\<\")\"\>", 
   "**", "\<\"(12)(34)\\!\\(\\*SuperscriptBox[SubscriptBox[\\()\\), \\(I\\)], \
\\(J\\)]\\)\"\>"}], " ", 
  RowBox[{"\<\"((\"\>", "**", 
   OverscriptBox["23", "_"], "**", "\<\")\"\>", 
   "**", "\<\"(12)(34)\\!\\(\\*SuperscriptBox[SubscriptBox[\\()\\), \\(i\\)], \
\\(j\\)]\\)\"\>"}]}]], "Output",
 CellChangeTimes->{
  3.7500178011043496`*^9, 3.7500178401594815`*^9, 3.7500179624277534`*^9, 
   3.7500180201369886`*^9, 3.7500183613483076`*^9, 3.750157526129775*^9, 
   3.7503401831032887`*^9, 3.750376446378383*^9, 3.7503767388398113`*^9, 
   3.750377528743606*^9, 3.7503775854759474`*^9, {3.7503779998861275`*^9, 
   3.750378011718507*^9}, 3.750685270709569*^9, 3.752520787750044*^9, 
   3.753914257750464*^9, 3.801831189809265*^9},
 CellLabel->
  "Out[214]=",ExpressionUUID->"29ca5cab-4eb7-4989-8aaa-8fb8c3f3b9e2"],

Cell["\<\
\\text{((}\\text{**}\\overline{23}\\text{**})\\text{**}\\text{(12)(34)})_i{}^\
j \\text{((}\\text{**}\\overline{13}\\text{**})\\text{**}\\text{(12)(34)})_I{}\
^J\
\>", "Output",
 CellChangeTimes->{
  3.7500178011043496`*^9, 3.7500178401594815`*^9, 3.7500179624277534`*^9, 
   3.7500180201369886`*^9, 3.7500183613483076`*^9, 3.750157526129775*^9, 
   3.7503401831032887`*^9, 3.750376446378383*^9, 3.7503767388398113`*^9, 
   3.750377528743606*^9, 3.7503775854759474`*^9, {3.7503779998861275`*^9, 
   3.750378011718507*^9}, 3.750685270709569*^9, 3.752520787750044*^9, 
   3.753914257750464*^9, 3.801831189812619*^9},
 CellLabel->
  "Out[215]//TeXForm=",ExpressionUUID->"dffb3c1f-95a8-4754-9ce0-be1f93353e15"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "BC4Boson: ",
 Cell[BoxData[
  FormBox[
   RowBox[{"(", 
    OverscriptBox["14", "_"]}], TraditionalForm]],ExpressionUUID->
  "3c6b94f4-6fb2-4eca-b4df-47c017ca6f39"],
 ")(12)(34); BC4Color: ",
 Cell[BoxData[
  FormBox[
   RowBox[{"(", 
    OverscriptBox["24", "_"]}], TraditionalForm]],ExpressionUUID->
  "ec3800aa-83dd-488d-81ce-c24edcb72a08"],
 ")(12)(34)"
}], "Subsubsection",
 CellChangeTimes->{{3.7094072981142626`*^9, 3.70940734667404*^9}, {
  3.7094074243794847`*^9, 3.7094074364241734`*^9}, {3.7094074747113633`*^9, 
  3.7094074824408054`*^9}, {3.709407530829573*^9, 3.709407599237486*^9}, {
  3.709408303567771*^9, 3.709408320347731*^9}, {3.7094085126567307`*^9, 
  3.709408559833429*^9}, {3.709408628166337*^9, 3.709408635274744*^9}, {
  3.7094088650188847`*^9, 3.7094088925804605`*^9}, {3.7150191574694433`*^9, 
  3.7150191916013956`*^9}, {3.7150195816647058`*^9, 
  3.715019581760711*^9}},ExpressionUUID->"31b674e0-6fef-4e3a-9812-\
834e581c826f"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LBP", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", "23", ",", "0", ",", "1234"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LCP", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", "13", ",", "0", ",", "1234"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"L", "[", "Local", "]"}], " ", "=", " ", 
   RowBox[{
    RowBox[{"BC4BosonPerm", "[", 
     RowBox[{
      RowBox[{"LBP", "[", 
       RowBox[{"[", "1", "]"}], "]"}], ",", 
      RowBox[{"LBP", "[", 
       RowBox[{"[", "2", "]"}], "]"}], ",", 
      RowBox[{"LBP", "[", 
       RowBox[{"[", "3", "]"}], "]"}], ",", 
      RowBox[{"LBP", "[", 
       RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "[", 
    RowBox[{
     RowBox[{"BC4ColorPerm", "[", 
      RowBox[{
       RowBox[{"LCP", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{"LCP", "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", 
       RowBox[{"LCP", "[", 
        RowBox[{"[", "3", "]"}], "]"}], ",", 
       RowBox[{"LCP", "[", 
        RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "[", 
     RowBox[{"L", "[", "Qtilde", "]"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"GraphAdinkra", "[", "Local", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"L", "[", "Local", "]"}], " ", "\[Equal]", " ", 
  RowBox[{"L", "[", "Qtilde", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"PrintBC4BosonPerm", "[", 
   RowBox[{
    RowBox[{"LBP", "[", 
     RowBox[{"[", "1", "]"}], "]"}], ",", 
    RowBox[{"LBP", "[", 
     RowBox[{"[", "2", "]"}], "]"}], ",", 
    RowBox[{"LBP", "[", 
     RowBox[{"[", "3", "]"}], "]"}], ",", 
    RowBox[{"LBP", "[", 
     RowBox[{"[", "4", "]"}], "]"}]}], "]"}], 
  RowBox[{"PrintBC4ColorPerm", "[", 
   RowBox[{
    RowBox[{"LCP", "[", 
     RowBox[{"[", "1", "]"}], "]"}], ",", 
    RowBox[{"LCP", "[", 
     RowBox[{"[", "2", "]"}], "]"}], ",", 
    RowBox[{"LCP", "[", 
     RowBox[{"[", "3", "]"}], "]"}], ",", 
    RowBox[{"LCP", "[", 
     RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"PrintBC4BosonPerm", "[", 
    RowBox[{
     RowBox[{"LBP", "[", 
      RowBox[{"[", "1", "]"}], "]"}], ",", 
     RowBox[{"LBP", "[", 
      RowBox[{"[", "2", "]"}], "]"}], ",", 
     RowBox[{"LBP", "[", 
      RowBox[{"[", "3", "]"}], "]"}], ",", 
     RowBox[{"LBP", "[", 
      RowBox[{"[", "4", "]"}], "]"}]}], "]"}], 
   RowBox[{"PrintBC4ColorPerm", "[", 
    RowBox[{
     RowBox[{"LCP", "[", 
      RowBox[{"[", "1", "]"}], "]"}], ",", 
     RowBox[{"LCP", "[", 
      RowBox[{"[", "2", "]"}], "]"}], ",", 
     RowBox[{"LCP", "[", 
      RowBox[{"[", "3", "]"}], "]"}], ",", 
     RowBox[{"LCP", "[", 
      RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}], "//", "TeXForm"}]}], "Input",\

 CellChangeTimes->{{3.7094039013309774`*^9, 3.7094039138136916`*^9}, {
   3.7094044562677183`*^9, 3.7094044647322025`*^9}, {3.7094049724722433`*^9, 
   3.709404984724944*^9}, {3.709405453467755*^9, 3.7094054685566177`*^9}, {
   3.7094055063167777`*^9, 3.7094055076468534`*^9}, {3.7094055481201687`*^9, 
   3.709405675978482*^9}, {3.7094057446334085`*^9, 3.709405752020831*^9}, {
   3.7094071402432327`*^9, 3.709407176262293*^9}, {3.709407255326815*^9, 
   3.709407271982768*^9}, {3.7094082444943924`*^9, 3.709408244576397*^9}, {
   3.7095849305768614`*^9, 3.709584981646782*^9}, {3.714829435369877*^9, 
   3.7148294760468426`*^9}, {3.7148296420624914`*^9, 
   3.7148296599222927`*^9}, {3.7148297090223927`*^9, 
   3.7148297122727222`*^9}, {3.714874444460785*^9, 3.7148745018840694`*^9}, 
   3.714874545855585*^9, {3.714874721983659*^9, 3.7148747441659274`*^9}, {
   3.7148747765467796`*^9, 3.7148748382013063`*^9}, {3.7148748844889536`*^9, 
   3.7148749143556614`*^9}, {3.7150191266666813`*^9, 3.715019132469013*^9}, {
   3.7150195503779163`*^9, 3.7150195653337717`*^9}, {3.7154511812428513`*^9, 
   3.7154512442684565`*^9}, {3.7154521650631227`*^9, 
   3.7154522001531296`*^9}, {3.715452329242513*^9, 3.715452344031359*^9}, {
   3.7154523962273445`*^9, 3.7154524023096924`*^9}, 3.749999482534424*^9, 
   3.749999718946658*^9},
 CellLabel->
  "In[216]:=",ExpressionUUID->"9716045e-7289-4f97-a2d6-4a519339eb86"],

Cell[BoxData[
 GraphicsBox[{
   {Hue[0.6, 0.7, 0.5], Opacity[0.7], 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {-1.5, -2.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -1.}, {-0.5, -2.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {0.5, -2.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {1.5, -2.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     LineBox[{{-1.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -2.}, {0.5, -1.}}]}}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{-0.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     LineBox[{{-0.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-0.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{0.5, -2.}, {-0.5, -1.}}]}}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{0.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{0.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     LineBox[{{1.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     LineBox[{{1.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{1.5, -2.}, {1.5, -1.}}]}}, 
   {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 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.}]}},
  FormatType->TraditionalForm,
  FrameTicks->None]], "Output",
 CellChangeTimes->{
  3.7500178011876774`*^9, 3.7500178401996117`*^9, 3.75001796251303*^9, 
   3.7500180201925354`*^9, 3.75001836143174*^9, 3.750157526244919*^9, 
   3.750340183197023*^9, 3.750376446422305*^9, 3.7503767388797035`*^9, 
   3.7503775287735004`*^9, 3.7503775855417776`*^9, {3.7503779999469347`*^9, 
   3.7503780117713537`*^9}, 3.7506852707726684`*^9, 3.7525207878095584`*^9, 
   3.753914257828599*^9, 3.8018311899181347`*^9},
 CellLabel->
  "Out[219]=",ExpressionUUID->"c96f25a9-629a-4a90-b1df-daa7504d1a6d"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.7500178011876774`*^9, 3.7500178401996117`*^9, 3.75001796251303*^9, 
   3.7500180201925354`*^9, 3.75001836143174*^9, 3.750157526244919*^9, 
   3.750340183197023*^9, 3.750376446422305*^9, 3.7503767388797035`*^9, 
   3.7503775287735004`*^9, 3.7503775855417776`*^9, {3.7503779999469347`*^9, 
   3.7503780117713537`*^9}, 3.7506852707726684`*^9, 3.7525207878095584`*^9, 
   3.753914257828599*^9, 3.801831189923094*^9},
 CellLabel->
  "Out[220]=",ExpressionUUID->"69fd02d7-1c35-4edc-97ec-14ae2abe2f74"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\<\"((\"\>", "**", 
   OverscriptBox["14", "_"], "**", "\<\")\"\>", 
   "**", "\<\"(12)(34)\\!\\(\\*SuperscriptBox[SubscriptBox[\\()\\), \\(i\\)], \
\\(j\\)]\\)\"\>"}], " ", 
  RowBox[{"\<\"((\"\>", "**", 
   OverscriptBox["24", "_"], "**", "\<\")\"\>", 
   "**", "\<\"(12)(34)\\!\\(\\*SuperscriptBox[SubscriptBox[\\()\\), \\(I\\)], \
\\(J\\)]\\)\"\>"}]}]], "Output",
 CellChangeTimes->{
  3.7500178011876774`*^9, 3.7500178401996117`*^9, 3.75001796251303*^9, 
   3.7500180201925354`*^9, 3.75001836143174*^9, 3.750157526244919*^9, 
   3.750340183197023*^9, 3.750376446422305*^9, 3.7503767388797035`*^9, 
   3.7503775287735004`*^9, 3.7503775855417776`*^9, {3.7503779999469347`*^9, 
   3.7503780117713537`*^9}, 3.7506852707726684`*^9, 3.7525207878095584`*^9, 
   3.753914257828599*^9, 3.801831189926515*^9},
 CellLabel->
  "Out[221]=",ExpressionUUID->"55c08163-e43f-4f30-8786-8a497f12e2a9"],

Cell["\<\
\\text{((}\\text{**}\\overline{14}\\text{**})\\text{**}\\text{(12)(34)})_i{}^\
j \\text{((}\\text{**}\\overline{24}\\text{**})\\text{**}\\text{(12)(34)})_I{}\
^J\
\>", "Output",
 CellChangeTimes->{
  3.7500178011876774`*^9, 3.7500178401996117`*^9, 3.75001796251303*^9, 
   3.7500180201925354`*^9, 3.75001836143174*^9, 3.750157526244919*^9, 
   3.750340183197023*^9, 3.750376446422305*^9, 3.7503767388797035`*^9, 
   3.7503775287735004`*^9, 3.7503775855417776`*^9, {3.7503779999469347`*^9, 
   3.7503780117713537`*^9}, 3.7506852707726684`*^9, 3.7525207878095584`*^9, 
   3.753914257828599*^9, 3.801831189930522*^9},
 CellLabel->
  "Out[222]//TeXForm=",ExpressionUUID->"d8f6f2b1-a3d6-4862-bb60-24f8471d72eb"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "BC4Boson: ",
 Cell[BoxData[
  FormBox[
   RowBox[{"(", 
    OverscriptBox["12", "_"]}], TraditionalForm]],ExpressionUUID->
  "f4af5fd7-fc4a-4d93-a0a8-1860b68ce405"],
 ")(13)(24); BC4Color: ",
 Cell[BoxData[
  FormBox[
   RowBox[{"(", 
    OverscriptBox["14", "_"]}], TraditionalForm]],ExpressionUUID->
  "889d764f-117a-4985-ab36-c2cff2571ef9"],
 ")(13)(24)"
}], "Subsubsection",
 CellChangeTimes->{{3.7094072981142626`*^9, 3.70940734667404*^9}, {
  3.7094074243794847`*^9, 3.7094074364241734`*^9}, {3.7094074747113633`*^9, 
  3.7094074824408054`*^9}, {3.709407530829573*^9, 3.709407599237486*^9}, {
  3.709408303567771*^9, 3.709408320347731*^9}, {3.7094085126567307`*^9, 
  3.709408559833429*^9}, {3.709408628166337*^9, 3.709408635274744*^9}, {
  3.7094088650188847`*^9, 3.7094088925804605`*^9}, {3.7150191574694433`*^9, 
  3.7150191916013956`*^9}, {3.7150195816647058`*^9, 3.715019581760711*^9}, {
  3.7150199941082964`*^9, 3.7150200195247498`*^9}, {3.715020051239564*^9, 
  3.7150200664194317`*^9}, {3.7150201124950676`*^9, 
  3.715020130035071*^9}},ExpressionUUID->"d4912641-cc43-4000-bb7c-\
4debd4a8a997"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LBP", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"0", ",", "12", ",", "0", ",", "1324"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LCP", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", "23", ",", "0", ",", "1324"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"L", "[", "Local", "]"}], " ", "=", " ", 
   RowBox[{
    RowBox[{"BC4BosonPerm", "[", 
     RowBox[{
      RowBox[{"LBP", "[", 
       RowBox[{"[", "1", "]"}], "]"}], ",", 
      RowBox[{"LBP", "[", 
       RowBox[{"[", "2", "]"}], "]"}], ",", 
      RowBox[{"LBP", "[", 
       RowBox[{"[", "3", "]"}], "]"}], ",", 
      RowBox[{"LBP", "[", 
       RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "[", 
    RowBox[{
     RowBox[{"BC4ColorPerm", "[", 
      RowBox[{
       RowBox[{"LCP", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{"LCP", "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", 
       RowBox[{"LCP", "[", 
        RowBox[{"[", "3", "]"}], "]"}], ",", 
       RowBox[{"LCP", "[", 
        RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "[", 
     RowBox[{"L", "[", "Qtilde", "]"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"GraphAdinkra", "[", "Local", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"L", "[", "Local", "]"}], " ", "\[Equal]", " ", 
  RowBox[{"L", "[", "Qtilde", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"PrintBC4BosonPerm", "[", 
   RowBox[{
    RowBox[{"LBP", "[", 
     RowBox[{"[", "1", "]"}], "]"}], ",", 
    RowBox[{"LBP", "[", 
     RowBox[{"[", "2", "]"}], "]"}], ",", 
    RowBox[{"LBP", "[", 
     RowBox[{"[", "3", "]"}], "]"}], ",", 
    RowBox[{"LBP", "[", 
     RowBox[{"[", "4", "]"}], "]"}]}], "]"}], 
  RowBox[{"PrintBC4ColorPerm", "[", 
   RowBox[{
    RowBox[{"LCP", "[", 
     RowBox[{"[", "1", "]"}], "]"}], ",", 
    RowBox[{"LCP", "[", 
     RowBox[{"[", "2", "]"}], "]"}], ",", 
    RowBox[{"LCP", "[", 
     RowBox[{"[", "3", "]"}], "]"}], ",", 
    RowBox[{"LCP", "[", 
     RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"PrintBC4BosonPerm", "[", 
    RowBox[{
     RowBox[{"LBP", "[", 
      RowBox[{"[", "1", "]"}], "]"}], ",", 
     RowBox[{"LBP", "[", 
      RowBox[{"[", "2", "]"}], "]"}], ",", 
     RowBox[{"LBP", "[", 
      RowBox[{"[", "3", "]"}], "]"}], ",", 
     RowBox[{"LBP", "[", 
      RowBox[{"[", "4", "]"}], "]"}]}], "]"}], 
   RowBox[{"PrintBC4ColorPerm", "[", 
    RowBox[{
     RowBox[{"LCP", "[", 
      RowBox[{"[", "1", "]"}], "]"}], ",", 
     RowBox[{"LCP", "[", 
      RowBox[{"[", "2", "]"}], "]"}], ",", 
     RowBox[{"LCP", "[", 
      RowBox[{"[", "3", "]"}], "]"}], ",", 
     RowBox[{"LCP", "[", 
      RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}], "//", "TeXForm"}]}], "Input",\

 CellChangeTimes->{{3.7094039013309774`*^9, 3.7094039138136916`*^9}, {
   3.7094044562677183`*^9, 3.7094044647322025`*^9}, {3.7094049724722433`*^9, 
   3.709404984724944*^9}, {3.709405453467755*^9, 3.7094054685566177`*^9}, {
   3.7094055063167777`*^9, 3.7094055076468534`*^9}, {3.7094055481201687`*^9, 
   3.709405675978482*^9}, {3.7094057446334085`*^9, 3.709405752020831*^9}, {
   3.7094071402432327`*^9, 3.709407176262293*^9}, {3.709407255326815*^9, 
   3.709407271982768*^9}, {3.7094082444943924`*^9, 3.709408244576397*^9}, {
   3.7095849305768614`*^9, 3.709584981646782*^9}, {3.714829435369877*^9, 
   3.7148294760468426`*^9}, {3.7148296420624914`*^9, 
   3.7148296599222927`*^9}, {3.7148297090223927`*^9, 
   3.7148297122727222`*^9}, {3.714874444460785*^9, 3.7148745018840694`*^9}, 
   3.714874545855585*^9, {3.714874721983659*^9, 3.7148747441659274`*^9}, {
   3.7148747765467796`*^9, 3.7148748382013063`*^9}, {3.7148748844889536`*^9, 
   3.7148749143556614`*^9}, {3.7150191266666813`*^9, 3.715019132469013*^9}, {
   3.7150195503779163`*^9, 3.7150195653337717`*^9}, {3.7154511812428513`*^9, 
   3.7154512442684565`*^9}, {3.7154521650631227`*^9, 
   3.7154522001531296`*^9}, {3.715452329242513*^9, 3.715452344031359*^9}, {
   3.7154523962273445`*^9, 3.7154524023096924`*^9}, {3.715473790489396*^9, 
   3.715473804509198*^9}, 3.749999482542111*^9, 3.7499997189524612`*^9},
 CellLabel->
  "In[223]:=",ExpressionUUID->"2ee748ce-bad2-4a8b-981a-de5279b64ede"],

Cell[BoxData[
 GraphicsBox[{
   {Hue[0.6, 0.7, 0.5], Opacity[0.7], 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {-1.5, -2.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -1.}, {-0.5, -2.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {0.5, -2.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {1.5, -2.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     LineBox[{{-1.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -2.}, {0.5, -1.}}]}}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{-0.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     LineBox[{{-0.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-0.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{0.5, -2.}, {-0.5, -1.}}]}}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{0.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{0.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     LineBox[{{1.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     LineBox[{{1.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{1.5, -2.}, {1.5, -1.}}]}}, 
   {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 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.}]}},
  FormatType->TraditionalForm,
  FrameTicks->None]], "Output",
 CellChangeTimes->{
  3.7500178012729907`*^9, 3.7500178402403336`*^9, 3.7500179625968904`*^9, 
   3.7500180202704077`*^9, 3.750018361476832*^9, 3.75015752631635*^9, 
   3.7503401832751236`*^9, 3.7503764464781504`*^9, 3.7503767389235606`*^9, 
   3.750377528804413*^9, 3.750377585602603*^9, {3.750378000003817*^9, 
   3.750378011826208*^9}, 3.75068527083479*^9, 3.752520787853406*^9, 
   3.753914257891344*^9, 3.8018311900305977`*^9},
 CellLabel->
  "Out[226]=",ExpressionUUID->"c168d499-c0e4-4516-a79c-245e42526fff"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.7500178012729907`*^9, 3.7500178402403336`*^9, 3.7500179625968904`*^9, 
   3.7500180202704077`*^9, 3.750018361476832*^9, 3.75015752631635*^9, 
   3.7503401832751236`*^9, 3.7503764464781504`*^9, 3.7503767389235606`*^9, 
   3.750377528804413*^9, 3.750377585602603*^9, {3.750378000003817*^9, 
   3.750378011826208*^9}, 3.75068527083479*^9, 3.752520787853406*^9, 
   3.753914257891344*^9, 3.80183119003403*^9},
 CellLabel->
  "Out[227]=",ExpressionUUID->"bd7a345a-3130-471a-9511-ef10a52c9829"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\<\"((\"\>", "**", 
   OverscriptBox["12", "_"], "**", "\<\")\"\>", 
   "**", "\<\"(13)(24)\\!\\(\\*SuperscriptBox[SubscriptBox[\\()\\), \\(i\\)], \
\\(j\\)]\\)\"\>"}], " ", 
  RowBox[{"\<\"((\"\>", "**", 
   OverscriptBox["14", "_"], "**", "\<\")\"\>", 
   "**", "\<\"(13)(24)\\!\\(\\*SuperscriptBox[SubscriptBox[\\()\\), \\(I\\)], \
\\(J\\)]\\)\"\>"}]}]], "Output",
 CellChangeTimes->{
  3.7500178012729907`*^9, 3.7500178402403336`*^9, 3.7500179625968904`*^9, 
   3.7500180202704077`*^9, 3.750018361476832*^9, 3.75015752631635*^9, 
   3.7503401832751236`*^9, 3.7503764464781504`*^9, 3.7503767389235606`*^9, 
   3.750377528804413*^9, 3.750377585602603*^9, {3.750378000003817*^9, 
   3.750378011826208*^9}, 3.75068527083479*^9, 3.752520787853406*^9, 
   3.753914257891344*^9, 3.80183119003607*^9},
 CellLabel->
  "Out[228]=",ExpressionUUID->"cc28abf2-c1f8-4f3f-8ed4-ed1bc25a5a83"],

Cell["\<\
\\text{((}\\text{**}\\overline{12}\\text{**})\\text{**}\\text{(13)(24)})_i{}^\
j \\text{((}\\text{**}\\overline{14}\\text{**})\\text{**}\\text{(13)(24)})_I{}\
^J\
\>", "Output",
 CellChangeTimes->{
  3.7500178012729907`*^9, 3.7500178402403336`*^9, 3.7500179625968904`*^9, 
   3.7500180202704077`*^9, 3.750018361476832*^9, 3.75015752631635*^9, 
   3.7503401832751236`*^9, 3.7503764464781504`*^9, 3.7503767389235606`*^9, 
   3.750377528804413*^9, 3.750377585602603*^9, {3.750378000003817*^9, 
   3.750378011826208*^9}, 3.75068527083479*^9, 3.752520787853406*^9, 
   3.753914257891344*^9, 3.801831190038418*^9},
 CellLabel->
  "Out[229]//TeXForm=",ExpressionUUID->"6bab99ea-bbda-4405-917c-b8ae561beb12"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "BC4Boson: ",
 Cell[BoxData[
  FormBox[
   RowBox[{"(", 
    OverscriptBox["34", "_"]}], TraditionalForm]],ExpressionUUID->
  "8714819d-1bb5-47b2-9e93-ceebcbbe4722"],
 ")(13)(24); BC4Color: ",
 Cell[BoxData[
  FormBox[
   RowBox[{"(", 
    OverscriptBox["23", "_"]}], TraditionalForm]],ExpressionUUID->
  "124e532f-60cf-4b1d-8749-f17fac24ec14"],
 ")(13)(24)"
}], "Subsubsection",
 CellChangeTimes->{{3.7094072981142626`*^9, 3.70940734667404*^9}, {
  3.7094074243794847`*^9, 3.7094074364241734`*^9}, {3.7094074747113633`*^9, 
  3.7094074824408054`*^9}, {3.709407530829573*^9, 3.709407599237486*^9}, {
  3.709408303567771*^9, 3.709408320347731*^9}, {3.7094085126567307`*^9, 
  3.709408559833429*^9}, {3.709408628166337*^9, 3.709408635274744*^9}, {
  3.7094088650188847`*^9, 3.7094088925804605`*^9}, {3.7150191574694433`*^9, 
  3.7150191916013956`*^9}, {3.7150195816647058`*^9, 3.715019581760711*^9}, {
  3.7150199941082964`*^9, 3.7150200195247498`*^9}, {3.715020051239564*^9, 
  3.7150200664194317`*^9}, {3.7150201124950676`*^9, 
  3.7150201138881474`*^9}},ExpressionUUID->"0adc2f19-e33e-45cb-8dd1-\
c2d7e01d0c82"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LBP", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", "12", ",", "0", ",", "1324"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LCP", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"0", ",", "23", ",", "0", ",", "1324"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"L", "[", "Local", "]"}], " ", "=", " ", 
   RowBox[{
    RowBox[{"BC4BosonPerm", "[", 
     RowBox[{
      RowBox[{"LBP", "[", 
       RowBox[{"[", "1", "]"}], "]"}], ",", 
      RowBox[{"LBP", "[", 
       RowBox[{"[", "2", "]"}], "]"}], ",", 
      RowBox[{"LBP", "[", 
       RowBox[{"[", "3", "]"}], "]"}], ",", 
      RowBox[{"LBP", "[", 
       RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "[", 
    RowBox[{
     RowBox[{"BC4ColorPerm", "[", 
      RowBox[{
       RowBox[{"LCP", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{"LCP", "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", 
       RowBox[{"LCP", "[", 
        RowBox[{"[", "3", "]"}], "]"}], ",", 
       RowBox[{"LCP", "[", 
        RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "[", 
     RowBox[{"L", "[", "Qtilde", "]"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"GraphAdinkra", "[", "Local", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"L", "[", "Local", "]"}], " ", "\[Equal]", " ", 
  RowBox[{"L", "[", "Qtilde", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"PrintBC4BosonPerm", "[", 
   RowBox[{
    RowBox[{"LBP", "[", 
     RowBox[{"[", "1", "]"}], "]"}], ",", 
    RowBox[{"LBP", "[", 
     RowBox[{"[", "2", "]"}], "]"}], ",", 
    RowBox[{"LBP", "[", 
     RowBox[{"[", "3", "]"}], "]"}], ",", 
    RowBox[{"LBP", "[", 
     RowBox[{"[", "4", "]"}], "]"}]}], "]"}], 
  RowBox[{"PrintBC4ColorPerm", "[", 
   RowBox[{
    RowBox[{"LCP", "[", 
     RowBox[{"[", "1", "]"}], "]"}], ",", 
    RowBox[{"LCP", "[", 
     RowBox[{"[", "2", "]"}], "]"}], ",", 
    RowBox[{"LCP", "[", 
     RowBox[{"[", "3", "]"}], "]"}], ",", 
    RowBox[{"LCP", "[", 
     RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"PrintBC4BosonPerm", "[", 
    RowBox[{
     RowBox[{"LBP", "[", 
      RowBox[{"[", "1", "]"}], "]"}], ",", 
     RowBox[{"LBP", "[", 
      RowBox[{"[", "2", "]"}], "]"}], ",", 
     RowBox[{"LBP", "[", 
      RowBox[{"[", "3", "]"}], "]"}], ",", 
     RowBox[{"LBP", "[", 
      RowBox[{"[", "4", "]"}], "]"}]}], "]"}], 
   RowBox[{"PrintBC4ColorPerm", "[", 
    RowBox[{
     RowBox[{"LCP", "[", 
      RowBox[{"[", "1", "]"}], "]"}], ",", 
     RowBox[{"LCP", "[", 
      RowBox[{"[", "2", "]"}], "]"}], ",", 
     RowBox[{"LCP", "[", 
      RowBox[{"[", "3", "]"}], "]"}], ",", 
     RowBox[{"LCP", "[", 
      RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}], "//", "TeXForm"}]}], "Input",\

 CellChangeTimes->{{3.7094039013309774`*^9, 3.7094039138136916`*^9}, {
   3.7094044562677183`*^9, 3.7094044647322025`*^9}, {3.7094049724722433`*^9, 
   3.709404984724944*^9}, {3.709405453467755*^9, 3.7094054685566177`*^9}, {
   3.7094055063167777`*^9, 3.7094055076468534`*^9}, {3.7094055481201687`*^9, 
   3.709405675978482*^9}, {3.7094057446334085`*^9, 3.709405752020831*^9}, {
   3.7094071402432327`*^9, 3.709407176262293*^9}, {3.709407255326815*^9, 
   3.709407271982768*^9}, {3.7094082444943924`*^9, 3.709408244576397*^9}, {
   3.7095849305768614`*^9, 3.709584981646782*^9}, {3.714829435369877*^9, 
   3.7148294760468426`*^9}, {3.7148296420624914`*^9, 
   3.7148296599222927`*^9}, {3.7148297090223927`*^9, 
   3.7148297122727222`*^9}, {3.714874444460785*^9, 3.7148745018840694`*^9}, 
   3.714874545855585*^9, {3.714874721983659*^9, 3.7148747441659274`*^9}, {
   3.7148747765467796`*^9, 3.7148748382013063`*^9}, {3.7148748844889536`*^9, 
   3.7148749143556614`*^9}, {3.7150191266666813`*^9, 3.715019132469013*^9}, {
   3.7150195503779163`*^9, 3.7150195653337717`*^9}, {3.7154511812428513`*^9, 
   3.7154512442684565`*^9}, {3.7154521650631227`*^9, 
   3.7154522001531296`*^9}, {3.715452329242513*^9, 3.715452344031359*^9}, {
   3.7154523962273445`*^9, 3.7154524023096924`*^9}, {3.715473790489396*^9, 
   3.7154738334488535`*^9}, 3.749999482549624*^9, 3.749999718958247*^9},
 CellLabel->
  "In[230]:=",ExpressionUUID->"58ab5cb8-4982-4179-8bbd-a579f93dc677"],

Cell[BoxData[
 GraphicsBox[{
   {Hue[0.6, 0.7, 0.5], Opacity[0.7], 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {-1.5, -2.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -1.}, {-0.5, -2.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {0.5, -2.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {1.5, -2.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     LineBox[{{-1.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -2.}, {0.5, -1.}}]}}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{-0.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     LineBox[{{-0.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-0.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{0.5, -2.}, {-0.5, -1.}}]}}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{0.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{0.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     LineBox[{{1.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     LineBox[{{1.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{1.5, -2.}, {1.5, -1.}}]}}, 
   {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 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.}]}},
  FormatType->TraditionalForm,
  FrameTicks->None]], "Output",
 CellChangeTimes->{
  3.750017801355325*^9, 3.750017840290382*^9, 3.7500179626841497`*^9, 
   3.750018020326952*^9, 3.7500183615651217`*^9, 3.7501575263962107`*^9, 
   3.750340183337618*^9, 3.7503764465200057`*^9, 3.750376738967492*^9, 
   3.7503775288363585`*^9, 3.7503775856604304`*^9, {3.7503780000636206`*^9, 
   3.75037801188805*^9}, 3.750685270892289*^9, 3.752520787936183*^9, 
   3.753914257953835*^9, 3.801831190137145*^9},
 CellLabel->
  "Out[233]=",ExpressionUUID->"2a868213-4b78-4478-a936-130344a111fc"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.750017801355325*^9, 3.750017840290382*^9, 3.7500179626841497`*^9, 
   3.750018020326952*^9, 3.7500183615651217`*^9, 3.7501575263962107`*^9, 
   3.750340183337618*^9, 3.7503764465200057`*^9, 3.750376738967492*^9, 
   3.7503775288363585`*^9, 3.7503775856604304`*^9, {3.7503780000636206`*^9, 
   3.75037801188805*^9}, 3.750685270892289*^9, 3.752520787936183*^9, 
   3.753914257953835*^9, 3.8018311901408377`*^9},
 CellLabel->
  "Out[234]=",ExpressionUUID->"c6358754-89ef-437f-8b51-83e99d4dd11f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\<\"((\"\>", "**", 
   OverscriptBox["23", "_"], "**", "\<\")\"\>", 
   "**", "\<\"(13)(24)\\!\\(\\*SuperscriptBox[SubscriptBox[\\()\\), \\(I\\)], \
\\(J\\)]\\)\"\>"}], " ", 
  RowBox[{"\<\"((\"\>", "**", 
   OverscriptBox["34", "_"], "**", "\<\")\"\>", 
   "**", "\<\"(13)(24)\\!\\(\\*SuperscriptBox[SubscriptBox[\\()\\), \\(i\\)], \
\\(j\\)]\\)\"\>"}]}]], "Output",
 CellChangeTimes->{
  3.750017801355325*^9, 3.750017840290382*^9, 3.7500179626841497`*^9, 
   3.750018020326952*^9, 3.7500183615651217`*^9, 3.7501575263962107`*^9, 
   3.750340183337618*^9, 3.7503764465200057`*^9, 3.750376738967492*^9, 
   3.7503775288363585`*^9, 3.7503775856604304`*^9, {3.7503780000636206`*^9, 
   3.75037801188805*^9}, 3.750685270892289*^9, 3.752520787936183*^9, 
   3.753914257953835*^9, 3.8018311901436453`*^9},
 CellLabel->
  "Out[235]=",ExpressionUUID->"5f5c90ee-694d-4fa3-b569-138724ff8709"],

Cell["\<\
\\text{((}\\text{**}\\overline{34}\\text{**})\\text{**}\\text{(13)(24)})_i{}^\
j \\text{((}\\text{**}\\overline{23}\\text{**})\\text{**}\\text{(13)(24)})_I{}\
^J\
\>", "Output",
 CellChangeTimes->{
  3.750017801355325*^9, 3.750017840290382*^9, 3.7500179626841497`*^9, 
   3.750018020326952*^9, 3.7500183615651217`*^9, 3.7501575263962107`*^9, 
   3.750340183337618*^9, 3.7503764465200057`*^9, 3.750376738967492*^9, 
   3.7503775288363585`*^9, 3.7503775856604304`*^9, {3.7503780000636206`*^9, 
   3.75037801188805*^9}, 3.750685270892289*^9, 3.752520787936183*^9, 
   3.753914257953835*^9, 3.801831190147326*^9},
 CellLabel->
  "Out[236]//TeXForm=",ExpressionUUID->"a65e3a27-0a8d-4eef-ae44-1f53ec30e2da"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "BC4Boson: ",
 Cell[BoxData[
  FormBox[
   RowBox[{"(", 
    OverscriptBox["13", "_"]}], TraditionalForm]],ExpressionUUID->
  "8c23e5b2-4735-4c56-9e88-91d99dcd3c4f"],
 ")(14)(23); BC4Color: ",
 Cell[BoxData[
  FormBox[
   RowBox[{"(", 
    OverscriptBox["12", "_"]}], TraditionalForm]],ExpressionUUID->
  "156237ec-114b-4923-b553-03148fd5334c"],
 ")(14)(23)"
}], "Subsubsection",
 CellChangeTimes->{{3.7094072981142626`*^9, 3.70940734667404*^9}, {
  3.7094074243794847`*^9, 3.7094074364241734`*^9}, {3.7094074747113633`*^9, 
  3.7094074824408054`*^9}, {3.709407530829573*^9, 3.709407599237486*^9}, {
  3.709408303567771*^9, 3.709408320347731*^9}, {3.7094085126567307`*^9, 
  3.709408559833429*^9}, {3.709408628166337*^9, 3.709408635274744*^9}, {
  3.7094088650188847`*^9, 3.7094088925804605`*^9}, {3.7150191574694433`*^9, 
  3.7150191916013956`*^9}, {3.7150195816647058`*^9, 3.715019581760711*^9}, {
  3.7150199941082964`*^9, 3.7150200195247498`*^9}, {3.715020051239564*^9, 
  3.7150200664194317`*^9}, {3.7150201124950676`*^9, 3.715020130035071*^9}, {
  3.715020164621049*^9, 3.7150201698603487`*^9}, {3.7150202356961145`*^9, 
  3.7150202389442997`*^9}},ExpressionUUID->"e806f5d3-acbe-4c1a-9a1e-\
3a74543b0333"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LBP", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"0", ",", "13", ",", "0", ",", "1423"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LCP", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"0", ",", "12", ",", "0", ",", "1423"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"L", "[", "Local", "]"}], " ", "=", " ", 
   RowBox[{
    RowBox[{"BC4BosonPerm", "[", 
     RowBox[{
      RowBox[{"LBP", "[", 
       RowBox[{"[", "1", "]"}], "]"}], ",", 
      RowBox[{"LBP", "[", 
       RowBox[{"[", "2", "]"}], "]"}], ",", 
      RowBox[{"LBP", "[", 
       RowBox[{"[", "3", "]"}], "]"}], ",", 
      RowBox[{"LBP", "[", 
       RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "[", 
    RowBox[{
     RowBox[{"BC4ColorPerm", "[", 
      RowBox[{
       RowBox[{"LCP", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{"LCP", "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", 
       RowBox[{"LCP", "[", 
        RowBox[{"[", "3", "]"}], "]"}], ",", 
       RowBox[{"LCP", "[", 
        RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "[", 
     RowBox[{"L", "[", "Qtilde", "]"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"GraphAdinkra", "[", "Local", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"L", "[", "Local", "]"}], " ", "\[Equal]", " ", 
  RowBox[{"L", "[", "Qtilde", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"PrintBC4BosonPerm", "[", 
   RowBox[{
    RowBox[{"LBP", "[", 
     RowBox[{"[", "1", "]"}], "]"}], ",", 
    RowBox[{"LBP", "[", 
     RowBox[{"[", "2", "]"}], "]"}], ",", 
    RowBox[{"LBP", "[", 
     RowBox[{"[", "3", "]"}], "]"}], ",", 
    RowBox[{"LBP", "[", 
     RowBox[{"[", "4", "]"}], "]"}]}], "]"}], 
  RowBox[{"PrintBC4ColorPerm", "[", 
   RowBox[{
    RowBox[{"LCP", "[", 
     RowBox[{"[", "1", "]"}], "]"}], ",", 
    RowBox[{"LCP", "[", 
     RowBox[{"[", "2", "]"}], "]"}], ",", 
    RowBox[{"LCP", "[", 
     RowBox[{"[", "3", "]"}], "]"}], ",", 
    RowBox[{"LCP", "[", 
     RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"PrintBC4BosonPerm", "[", 
    RowBox[{
     RowBox[{"LBP", "[", 
      RowBox[{"[", "1", "]"}], "]"}], ",", 
     RowBox[{"LBP", "[", 
      RowBox[{"[", "2", "]"}], "]"}], ",", 
     RowBox[{"LBP", "[", 
      RowBox[{"[", "3", "]"}], "]"}], ",", 
     RowBox[{"LBP", "[", 
      RowBox[{"[", "4", "]"}], "]"}]}], "]"}], 
   RowBox[{"PrintBC4ColorPerm", "[", 
    RowBox[{
     RowBox[{"LCP", "[", 
      RowBox[{"[", "1", "]"}], "]"}], ",", 
     RowBox[{"LCP", "[", 
      RowBox[{"[", "2", "]"}], "]"}], ",", 
     RowBox[{"LCP", "[", 
      RowBox[{"[", "3", "]"}], "]"}], ",", 
     RowBox[{"LCP", "[", 
      RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}], "//", "TeXForm"}]}], "Input",\

 CellChangeTimes->{{3.7094039013309774`*^9, 3.7094039138136916`*^9}, {
   3.7094044562677183`*^9, 3.7094044647322025`*^9}, {3.7094049724722433`*^9, 
   3.709404984724944*^9}, {3.709405453467755*^9, 3.7094054685566177`*^9}, {
   3.7094055063167777`*^9, 3.7094055076468534`*^9}, {3.7094055481201687`*^9, 
   3.709405675978482*^9}, {3.7094057446334085`*^9, 3.709405752020831*^9}, {
   3.7094071402432327`*^9, 3.709407176262293*^9}, {3.709407255326815*^9, 
   3.709407271982768*^9}, {3.7094082444943924`*^9, 3.709408244576397*^9}, {
   3.7095849305768614`*^9, 3.709584981646782*^9}, {3.714829435369877*^9, 
   3.7148294760468426`*^9}, {3.7148296420624914`*^9, 
   3.7148296599222927`*^9}, {3.7148297090223927`*^9, 
   3.7148297122727222`*^9}, {3.714874444460785*^9, 3.7148745018840694`*^9}, 
   3.714874545855585*^9, {3.714874721983659*^9, 3.7148747441659274`*^9}, {
   3.7148747765467796`*^9, 3.7148748382013063`*^9}, {3.7148748844889536`*^9, 
   3.7148749143556614`*^9}, {3.7150191266666813`*^9, 3.715019132469013*^9}, {
   3.7150195503779163`*^9, 3.7150195653337717`*^9}, {3.7154511812428513`*^9, 
   3.7154512442684565`*^9}, {3.7154521650631227`*^9, 
   3.7154522001531296`*^9}, {3.715452329242513*^9, 3.715452344031359*^9}, {
   3.7154523962273445`*^9, 3.7154524023096924`*^9}, {3.715473790489396*^9, 
   3.7154738334488535`*^9}, {3.7154739092261877`*^9, 3.7154739255571213`*^9}, 
   3.749999482557109*^9, 3.7499997189639683`*^9},
 CellLabel->
  "In[237]:=",ExpressionUUID->"cdfe006a-3371-41ac-a0c6-77754628367b"],

Cell[BoxData[
 GraphicsBox[{
   {Hue[0.6, 0.7, 0.5], Opacity[0.7], 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {-1.5, -2.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -1.}, {-0.5, -2.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {0.5, -2.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {1.5, -2.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     LineBox[{{-1.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -2.}, {0.5, -1.}}]}}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{-0.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     LineBox[{{-0.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-0.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{0.5, -2.}, {-0.5, -1.}}]}}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{0.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{0.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     LineBox[{{1.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     LineBox[{{1.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{1.5, -2.}, {1.5, -1.}}]}}, 
   {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 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.}]}},
  FormatType->TraditionalForm,
  FrameTicks->None]], "Output",
 CellChangeTimes->{
  3.750017801437165*^9, 3.750017840341016*^9, 3.750017962765041*^9, 
   3.7500180204033365`*^9, 3.7500183616490955`*^9, 3.750157526462669*^9, 
   3.750340183415721*^9, 3.7503764465609264`*^9, 3.7503767390103545`*^9, 
   3.750377528867282*^9, 3.750377585724283*^9, {3.75037800012549*^9, 
   3.7503780119418945`*^9}, 3.7506852709607363`*^9, 3.7525207880129385`*^9, 
   3.75391425801632*^9, 3.801831190250362*^9},
 CellLabel->
  "Out[240]=",ExpressionUUID->"bc4913a9-9062-40d5-a6c4-d80c322fe6f7"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.750017801437165*^9, 3.750017840341016*^9, 3.750017962765041*^9, 
   3.7500180204033365`*^9, 3.7500183616490955`*^9, 3.750157526462669*^9, 
   3.750340183415721*^9, 3.7503764465609264`*^9, 3.7503767390103545`*^9, 
   3.750377528867282*^9, 3.750377585724283*^9, {3.75037800012549*^9, 
   3.7503780119418945`*^9}, 3.7506852709607363`*^9, 3.7525207880129385`*^9, 
   3.75391425801632*^9, 3.801831190253043*^9},
 CellLabel->
  "Out[241]=",ExpressionUUID->"bbad594b-c74e-4305-b1ec-e4f114cae0c6"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\<\"((\"\>", "**", 
   OverscriptBox["12", "_"], "**", "\<\")\"\>", 
   "**", "\<\"(14)(23)\\!\\(\\*SuperscriptBox[SubscriptBox[\\()\\), \\(I\\)], \
\\(J\\)]\\)\"\>"}], " ", 
  RowBox[{"\<\"((\"\>", "**", 
   OverscriptBox["13", "_"], "**", "\<\")\"\>", 
   "**", "\<\"(14)(23)\\!\\(\\*SuperscriptBox[SubscriptBox[\\()\\), \\(i\\)], \
\\(j\\)]\\)\"\>"}]}]], "Output",
 CellChangeTimes->{
  3.750017801437165*^9, 3.750017840341016*^9, 3.750017962765041*^9, 
   3.7500180204033365`*^9, 3.7500183616490955`*^9, 3.750157526462669*^9, 
   3.750340183415721*^9, 3.7503764465609264`*^9, 3.7503767390103545`*^9, 
   3.750377528867282*^9, 3.750377585724283*^9, {3.75037800012549*^9, 
   3.7503780119418945`*^9}, 3.7506852709607363`*^9, 3.7525207880129385`*^9, 
   3.75391425801632*^9, 3.801831190255149*^9},
 CellLabel->
  "Out[242]=",ExpressionUUID->"de6446a4-84a8-43d7-99db-07d3fc3f5554"],

Cell["\<\
\\text{((}\\text{**}\\overline{13}\\text{**})\\text{**}\\text{(14)(23)})_i{}^\
j \\text{((}\\text{**}\\overline{12}\\text{**})\\text{**}\\text{(14)(23)})_I{}\
^J\
\>", "Output",
 CellChangeTimes->{
  3.750017801437165*^9, 3.750017840341016*^9, 3.750017962765041*^9, 
   3.7500180204033365`*^9, 3.7500183616490955`*^9, 3.750157526462669*^9, 
   3.750340183415721*^9, 3.7503764465609264`*^9, 3.7503767390103545`*^9, 
   3.750377528867282*^9, 3.750377585724283*^9, {3.75037800012549*^9, 
   3.7503780119418945`*^9}, 3.7506852709607363`*^9, 3.7525207880129385`*^9, 
   3.75391425801632*^9, 3.801831190257477*^9},
 CellLabel->
  "Out[243]//TeXForm=",ExpressionUUID->"dc9e8eff-a545-4c36-9da8-9bdfdef48f21"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "BC4Boson: ",
 Cell[BoxData[
  FormBox[
   RowBox[{"(", 
    OverscriptBox["24", "_"]}], TraditionalForm]],ExpressionUUID->
  "3de937de-8cab-4f57-8e10-7e73d96e6086"],
 ")(14)(23); BC4Color: ",
 Cell[BoxData[
  FormBox[
   RowBox[{"(", 
    OverscriptBox["34", "_"]}], TraditionalForm]],ExpressionUUID->
  "5fea3bb8-b856-4525-8fd4-47e81d1dea37"],
 ")(14)(23)"
}], "Subsubsection",
 CellChangeTimes->{{3.7094072981142626`*^9, 3.70940734667404*^9}, {
  3.7094074243794847`*^9, 3.7094074364241734`*^9}, {3.7094074747113633`*^9, 
  3.7094074824408054`*^9}, {3.709407530829573*^9, 3.709407599237486*^9}, {
  3.709408303567771*^9, 3.709408320347731*^9}, {3.7094085126567307`*^9, 
  3.709408559833429*^9}, {3.709408628166337*^9, 3.709408635274744*^9}, {
  3.7094088650188847`*^9, 3.7094088925804605`*^9}, {3.7150191574694433`*^9, 
  3.7150191916013956`*^9}, {3.7150195816647058`*^9, 3.715019581760711*^9}, {
  3.7150199941082964`*^9, 3.7150200195247498`*^9}, {3.715020051239564*^9, 
  3.7150200664194317`*^9}, {3.7150201124950676`*^9, 3.715020130035071*^9}, {
  3.715020164621049*^9, 3.7150201698603487`*^9}, {3.7150202356961145`*^9, 
  3.715020256789321*^9}},ExpressionUUID->"73123d5f-e8d8-4fa2-88db-\
d1e046a729f0"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LBP", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", "13", ",", "0", ",", "1423"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LCP", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", "12", ",", "0", ",", "1423"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"L", "[", "Local", "]"}], " ", "=", " ", 
   RowBox[{
    RowBox[{"BC4BosonPerm", "[", 
     RowBox[{
      RowBox[{"LBP", "[", 
       RowBox[{"[", "1", "]"}], "]"}], ",", 
      RowBox[{"LBP", "[", 
       RowBox[{"[", "2", "]"}], "]"}], ",", 
      RowBox[{"LBP", "[", 
       RowBox[{"[", "3", "]"}], "]"}], ",", 
      RowBox[{"LBP", "[", 
       RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "[", 
    RowBox[{
     RowBox[{"BC4ColorPerm", "[", 
      RowBox[{
       RowBox[{"LCP", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{"LCP", "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", 
       RowBox[{"LCP", "[", 
        RowBox[{"[", "3", "]"}], "]"}], ",", 
       RowBox[{"LCP", "[", 
        RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "[", 
     RowBox[{"L", "[", "Qtilde", "]"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"GraphAdinkra", "[", "Local", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"L", "[", "Local", "]"}], " ", "\[Equal]", " ", 
  RowBox[{"L", "[", "Qtilde", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"PrintBC4BosonPerm", "[", 
   RowBox[{
    RowBox[{"LBP", "[", 
     RowBox[{"[", "1", "]"}], "]"}], ",", 
    RowBox[{"LBP", "[", 
     RowBox[{"[", "2", "]"}], "]"}], ",", 
    RowBox[{"LBP", "[", 
     RowBox[{"[", "3", "]"}], "]"}], ",", 
    RowBox[{"LBP", "[", 
     RowBox[{"[", "4", "]"}], "]"}]}], "]"}], 
  RowBox[{"PrintBC4ColorPerm", "[", 
   RowBox[{
    RowBox[{"LCP", "[", 
     RowBox[{"[", "1", "]"}], "]"}], ",", 
    RowBox[{"LCP", "[", 
     RowBox[{"[", "2", "]"}], "]"}], ",", 
    RowBox[{"LCP", "[", 
     RowBox[{"[", "3", "]"}], "]"}], ",", 
    RowBox[{"LCP", "[", 
     RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"PrintBC4BosonPerm", "[", 
    RowBox[{
     RowBox[{"LBP", "[", 
      RowBox[{"[", "1", "]"}], "]"}], ",", 
     RowBox[{"LBP", "[", 
      RowBox[{"[", "2", "]"}], "]"}], ",", 
     RowBox[{"LBP", "[", 
      RowBox[{"[", "3", "]"}], "]"}], ",", 
     RowBox[{"LBP", "[", 
      RowBox[{"[", "4", "]"}], "]"}]}], "]"}], 
   RowBox[{"PrintBC4ColorPerm", "[", 
    RowBox[{
     RowBox[{"LCP", "[", 
      RowBox[{"[", "1", "]"}], "]"}], ",", 
     RowBox[{"LCP", "[", 
      RowBox[{"[", "2", "]"}], "]"}], ",", 
     RowBox[{"LCP", "[", 
      RowBox[{"[", "3", "]"}], "]"}], ",", 
     RowBox[{"LCP", "[", 
      RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}], "//", "TeXForm"}]}], "Input",\

 CellChangeTimes->{{3.7094039013309774`*^9, 3.7094039138136916`*^9}, {
   3.7094044562677183`*^9, 3.7094044647322025`*^9}, {3.7094049724722433`*^9, 
   3.709404984724944*^9}, {3.709405453467755*^9, 3.7094054685566177`*^9}, {
   3.7094055063167777`*^9, 3.7094055076468534`*^9}, {3.7094055481201687`*^9, 
   3.709405675978482*^9}, {3.7094057446334085`*^9, 3.709405752020831*^9}, {
   3.7094071402432327`*^9, 3.709407176262293*^9}, {3.709407255326815*^9, 
   3.709407271982768*^9}, {3.7094082444943924`*^9, 3.709408244576397*^9}, {
   3.7095849305768614`*^9, 3.709584981646782*^9}, {3.714829435369877*^9, 
   3.7148294760468426`*^9}, {3.7148296420624914`*^9, 
   3.7148296599222927`*^9}, {3.7148297090223927`*^9, 
   3.7148297122727222`*^9}, {3.714874444460785*^9, 3.7148745018840694`*^9}, 
   3.714874545855585*^9, {3.714874721983659*^9, 3.7148747441659274`*^9}, {
   3.7148747765467796`*^9, 3.7148748382013063`*^9}, {3.7148748844889536`*^9, 
   3.7148749143556614`*^9}, {3.7150191266666813`*^9, 3.715019132469013*^9}, {
   3.7150195503779163`*^9, 3.7150195653337717`*^9}, {3.7154511812428513`*^9, 
   3.7154512442684565`*^9}, {3.7154521650631227`*^9, 
   3.7154522001531296`*^9}, {3.715452329242513*^9, 3.715452344031359*^9}, {
   3.7154523962273445`*^9, 3.7154524023096924`*^9}, {3.715473790489396*^9, 
   3.7154738334488535`*^9}, {3.7154739092261877`*^9, 
   3.7154739255571213`*^9}, {3.7154739559298587`*^9, 3.715473957808966*^9}, 
   3.74999948256466*^9, 3.749999718969748*^9},
 CellLabel->
  "In[244]:=",ExpressionUUID->"fce1a9c6-f172-473f-85a3-d059798901ee"],

Cell[BoxData[
 GraphicsBox[{
   {Hue[0.6, 0.7, 0.5], Opacity[0.7], 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {-1.5, -2.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -1.}, {-0.5, -2.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {0.5, -2.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {1.5, -2.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     LineBox[{{-1.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -2.}, {0.5, -1.}}]}}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{-0.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     LineBox[{{-0.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-0.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{0.5, -2.}, {-0.5, -1.}}]}}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{0.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{0.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     LineBox[{{1.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     LineBox[{{1.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{1.5, -2.}, {1.5, -1.}}]}}, 
   {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 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.}]}},
  FormatType->TraditionalForm,
  FrameTicks->None]], "Output",
 CellChangeTimes->{
  3.7500178015244617`*^9, 3.750017840390606*^9, 3.750017962845411*^9, 
   3.750018020458892*^9, 3.7500183617046056`*^9, 3.7501575265476975`*^9, 
   3.750340183478201*^9, 3.7503764466197376`*^9, 3.7503767390542107`*^9, 
   3.7503775289001884`*^9, 3.750377585787115*^9, {3.750378000181306*^9, 
   3.75037801201866*^9}, 3.75068527103144*^9, 3.7525207880917635`*^9, 
   3.7539142581256385`*^9, 3.801831190351303*^9},
 CellLabel->
  "Out[247]=",ExpressionUUID->"5bec8909-44fb-4e6e-96db-1249b91b0a7d"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.7500178015244617`*^9, 3.750017840390606*^9, 3.750017962845411*^9, 
   3.750018020458892*^9, 3.7500183617046056`*^9, 3.7501575265476975`*^9, 
   3.750340183478201*^9, 3.7503764466197376`*^9, 3.7503767390542107`*^9, 
   3.7503775289001884`*^9, 3.750377585787115*^9, {3.750378000181306*^9, 
   3.75037801201866*^9}, 3.75068527103144*^9, 3.7525207880917635`*^9, 
   3.7539142581256385`*^9, 3.801831190354574*^9},
 CellLabel->
  "Out[248]=",ExpressionUUID->"ef1f895d-db48-4967-9800-75957e00798c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\<\"((\"\>", "**", 
   OverscriptBox["24", "_"], "**", "\<\")\"\>", 
   "**", "\<\"(14)(23)\\!\\(\\*SuperscriptBox[SubscriptBox[\\()\\), \\(i\\)], \
\\(j\\)]\\)\"\>"}], " ", 
  RowBox[{"\<\"((\"\>", "**", 
   OverscriptBox["34", "_"], "**", "\<\")\"\>", 
   "**", "\<\"(14)(23)\\!\\(\\*SuperscriptBox[SubscriptBox[\\()\\), \\(I\\)], \
\\(J\\)]\\)\"\>"}]}]], "Output",
 CellChangeTimes->{
  3.7500178015244617`*^9, 3.750017840390606*^9, 3.750017962845411*^9, 
   3.750018020458892*^9, 3.7500183617046056`*^9, 3.7501575265476975`*^9, 
   3.750340183478201*^9, 3.7503764466197376`*^9, 3.7503767390542107`*^9, 
   3.7503775289001884`*^9, 3.750377585787115*^9, {3.750378000181306*^9, 
   3.75037801201866*^9}, 3.75068527103144*^9, 3.7525207880917635`*^9, 
   3.7539142581256385`*^9, 3.801831190357799*^9},
 CellLabel->
  "Out[249]=",ExpressionUUID->"87bc1b79-dec3-4071-90c1-93482b85bf72"],

Cell["\<\
\\text{((}\\text{**}\\overline{24}\\text{**})\\text{**}\\text{(14)(23)})_i{}^\
j \\text{((}\\text{**}\\overline{34}\\text{**})\\text{**}\\text{(14)(23)})_I{}\
^J\
\>", "Output",
 CellChangeTimes->{
  3.7500178015244617`*^9, 3.750017840390606*^9, 3.750017962845411*^9, 
   3.750018020458892*^9, 3.7500183617046056`*^9, 3.7501575265476975`*^9, 
   3.750340183478201*^9, 3.7503764466197376`*^9, 3.7503767390542107`*^9, 
   3.7503775289001884`*^9, 3.750377585787115*^9, {3.750378000181306*^9, 
   3.75037801201866*^9}, 3.75068527103144*^9, 3.7525207880917635`*^9, 
   3.7539142581256385`*^9, 3.8018311903609858`*^9},
 CellLabel->
  "Out[250]//TeXForm=",ExpressionUUID->"a24f9a05-e6ba-4b59-9be1-cd7772774685"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"96", "*", "384"}]], "Input",
 CellChangeTimes->{{3.7154755766365576`*^9, 3.7154755859840927`*^9}},
 CellLabel->
  "In[251]:=",ExpressionUUID->"d5da99bf-bb82-4393-a0ae-0e6110a87a39"],

Cell[BoxData["36864"], "Output",
 CellChangeTimes->{
  3.7500178015677524`*^9, 3.7500178404123955`*^9, 3.7500179628806057`*^9, 
   3.7500180204995985`*^9, 3.75001836173372*^9, 3.75015752656954*^9, 
   3.750340183509449*^9, 3.750376446647663*^9, 3.750376739090116*^9, 
   3.7503775289240923`*^9, 3.7503775858070307`*^9, {3.7503780002042446`*^9, 
   3.750378012043622*^9}, 3.750685271054777*^9, 3.7525207881236844`*^9, 
   3.753914258203771*^9, 3.801831190371883*^9},
 CellLabel->
  "Out[251]=",ExpressionUUID->"a0f4ad1f-e3dc-4914-a1e6-a441153dc492"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"48", "*", "8"}]], "Input",
 CellChangeTimes->{{3.7154767225390997`*^9, 3.7154767278804054`*^9}},
 CellLabel->
  "In[252]:=",ExpressionUUID->"f490c8ec-9297-43dc-ba69-72b1cd2fdf2b"],

Cell[BoxData["384"], "Output",
 CellChangeTimes->{
  3.7500178015895414`*^9, 3.750017840427828*^9, 3.7500179629028864`*^9, 
   3.7500180205233707`*^9, 3.750018361755048*^9, 3.750157526579998*^9, 
   3.75034018352507*^9, 3.750376446669622*^9, 3.7503767391160464`*^9, 
   3.7503775289410477`*^9, 3.750377585820008*^9, {3.750378000223194*^9, 
   3.750378012058585*^9}, 3.7506852710666857`*^9, 3.7525207881445875`*^9, 
   3.7539142582194*^9, 3.801831190448494*^9},
 CellLabel->
  "Out[252]=",ExpressionUUID->"2fe8f597-0819-4eb7-901c-a0b067e63b93"]
}, Open  ]]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "All 36864 N=4, d=4 valise adinkras\n",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox[
     SubscriptBox[
      RowBox[{"(", 
       SubsuperscriptBox["L", "I", 
        RowBox[{"\[PlusMinus]", "a\[Mu]Ab\[Nu]"}]], ")"}], "i"], 
     OverscriptBox["j", "^"]], ":=", 
    RowBox[{
     RowBox[{
      SuperscriptBox[
       SubscriptBox[
        RowBox[{"(", 
         SubsuperscriptBox["BC", "4", 
          RowBox[{"\[PlusMinus]", "a\[Mu]A"}]], ")"}], "i"], "j"], 
      SuperscriptBox[
       SubscriptBox[
        RowBox[{"(", 
         SubsuperscriptBox["L", "I", "b\[Nu]"], ")"}], "j"], 
       OverscriptBox["j", "^"]]}], "=", 
     RowBox[{
      SuperscriptBox[
       SubscriptBox[
        RowBox[{"(", 
         SubsuperscriptBox["BC", "4", 
          RowBox[{"\[PlusMinus]", "a\[Mu]A"}]], ")"}], "i"], "j"], 
      SuperscriptBox[
       SubscriptBox[
        RowBox[{"(", 
         SubsuperscriptBox["HS", "3", "b\[Nu]"], ")"}], "I"], "J"], " ", 
      SuperscriptBox[
       SubscriptBox[
        RowBox[{"(", 
         SubscriptBox["Q", "J"], ")"}], "j"], 
       OverscriptBox["j", "^"]]}]}]}], TraditionalForm]],ExpressionUUID->
  "2bdf564d-8ad1-4c57-b783-551adc27e135"],
 "  ,  ",
 Cell[BoxData[
  FormBox[
   SubscriptBox[
    OverscriptBox["V", "~"], "IJ"], TraditionalForm]],ExpressionUUID->
  "0a5652a2-0545-4462-bc60-b73f990c404c"],
 "~\[Alpha]  (\[ScriptL]-equivalence classes)\n",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox[
     SubscriptBox[
      RowBox[{"(", 
       SubsuperscriptBox[
        OverscriptBox["L", "~"], "I", 
        RowBox[{"\[PlusMinus]", "a\[Mu]Ab\[Nu]"}]], ")"}], "i"], 
     OverscriptBox["j", "^"]], ":=", " ", 
    RowBox[{
     RowBox[{
      SuperscriptBox[
       SubscriptBox[
        RowBox[{"(", 
         SubsuperscriptBox["BC", "4", 
          RowBox[{"\[PlusMinus]", "a\[Mu]A"}]], ")"}], "i"], "j"], 
      SuperscriptBox[
       SubscriptBox[
        RowBox[{"(", 
         SubsuperscriptBox[
          OverscriptBox["L", "~"], "I", "b\[Nu]"], ")"}], "j"], 
       OverscriptBox["j", "^"]]}], "=", 
     RowBox[{
      SuperscriptBox[
       SubscriptBox[
        RowBox[{"(", 
         SubsuperscriptBox["BC", "4", 
          RowBox[{"\[PlusMinus]", "a\[Mu]A"}]], ")"}], "i"], "j"], 
      SuperscriptBox[
       SubscriptBox[
        RowBox[{"(", 
         SubsuperscriptBox["HS", "3", "b\[Nu]"], ")"}], "I"], "J"], " ", 
      SuperscriptBox[
       SubscriptBox[
        RowBox[{"(", 
         SubscriptBox[
          OverscriptBox["Q", "~"], "J"], ")"}], "j"], 
       OverscriptBox["j", "^"]]}]}]}], TraditionalForm]],ExpressionUUID->
  "9ae08672-6291-41e2-a059-d51d9e9c6963"],
 " ,  ",
 Cell[BoxData[
  FormBox[
   SubscriptBox[
    OverscriptBox["V", "~"], "IJ"], TraditionalForm]],ExpressionUUID->
  "c41ed77e-1dae-4e84-8a87-b77e0f07916a"],
 "~\[Beta]  ",
 Cell[BoxData[
  FormBox[
   RowBox[{"(", 
    RowBox[{
     OverscriptBox["\[ScriptL]", "~"], "-", 
     RowBox[{"equivalence", " ", "classes"}]}], ")"}], TraditionalForm]],
  ExpressionUUID->"f9eb8669-c27d-4f3c-b3cb-c816fc26eac5"],
 "\nL[RepCode] := ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox[
    SubscriptBox[
     RowBox[{"(", 
      SubsuperscriptBox["L", "I", 
       RowBox[{"\[PlusMinus]", "a\[Mu]Ab\[Nu]"}]], ")"}], "i"], 
    OverscriptBox["j", "^"]], TraditionalForm]],ExpressionUUID->
  "b5b6b228-ae34-4995-b77b-e8b4f49f820d"],
 " for RepCode = \[PlusMinus]a\[Mu]Ab\[Nu]1, ",
 Cell[BoxData[
  SuperscriptBox[
   SubscriptBox[
    RowBox[{"(", 
     SubsuperscriptBox[
      OverscriptBox["L", "~"], "I", 
      RowBox[{"\[PlusMinus]", "a\[Mu]Ab\[Nu]"}]], ")"}], "i"], 
   OverscriptBox["j", "^"]]],ExpressionUUID->
  "c5053c6c-1414-4ccd-8fc9-6ff358d24543"],
 "for RepCode= \[PlusMinus]a\[Mu]Ab\[Nu]2"
}], "Subsection",
 CellChangeTimes->{{3.70636661052089*^9, 3.7063666636439285`*^9}, {
   3.706367555250925*^9, 3.706367558179093*^9}, {3.7078260686172347`*^9, 
   3.707826127762618*^9}, {3.7078262304184895`*^9, 3.7078264613866997`*^9}, {
   3.707826494696605*^9, 3.707826593145236*^9}, {3.708782845840247*^9, 
   3.7087830297257648`*^9}, {3.7087830696580486`*^9, 3.708783090385234*^9}, {
   3.708868773876795*^9, 3.7088687814472275`*^9}, {3.708869010574333*^9, 
   3.7088691404407606`*^9}, {3.7088691758157845`*^9, 
   3.7088693417572756`*^9}, {3.7088694026997614`*^9, 
   3.7088696632466636`*^9}, {3.7088731641060295`*^9, 
   3.7088731661781483`*^9}, {3.708880970306734*^9, 3.708881040839769*^9}, {
   3.7088810730056086`*^9, 3.7088811100927296`*^9}, {3.708881151549101*^9, 
   3.7088811695711317`*^9}, {3.7088822087075667`*^9, 
   3.7088822518610353`*^9}, {3.7088822920303326`*^9, 3.70888247625987*^9}, {
   3.70888252276153*^9, 3.70888252311455*^9}, {3.7088825808168507`*^9, 
   3.708882736084731*^9}, {3.708882768254571*^9, 3.708882826887925*^9}, {
   3.7088984455028877`*^9, 3.708898462174841*^9}, {3.7088985102365904`*^9, 
   3.7088986273792906`*^9}, {3.7088986853236046`*^9, 3.708898685324605*^9}, {
   3.7088987295561347`*^9, 3.7088988331820617`*^9}, {3.7088990683465123`*^9, 
   3.7088992003910646`*^9}, {3.708899247025732*^9, 3.7088993319495897`*^9}, {
   3.7088994364435663`*^9, 3.708899454842619*^9}, {3.708899573860426*^9, 
   3.7088996061482725`*^9}, {3.708899638904146*^9, 3.7088996577032213`*^9}, {
   3.708900024737215*^9, 3.7089000668046207`*^9}, {3.7089001349315176`*^9, 
   3.7089002181182756`*^9}, 3.708900464258354*^9, {3.7089006011611843`*^9, 
   3.7089008840883665`*^9}, {3.7089009200404234`*^9, 
   3.7089009720443974`*^9}, {3.708901321222369*^9, 3.7089013251875963`*^9}, {
   3.7089013812738037`*^9, 3.7089014450224504`*^9}, {3.7089015124113045`*^9, 
   3.7089015130573416`*^9}, {3.7089700903798*^9, 3.7089702045293283`*^9}, {
   3.7089702520920486`*^9, 3.7089703071461983`*^9}, {3.7089930072017064`*^9, 
   3.7089930354753237`*^9}, {3.7089930719104075`*^9, 3.708993072195424*^9}, {
   3.708994555850284*^9, 3.708994562125643*^9}, {3.708998283091628*^9, 
   3.708998391933853*^9}, {3.708998783560253*^9, 3.7089989110755463`*^9}, {
   3.708998981931599*^9, 3.70899898910701*^9}, {3.709006984118298*^9, 
   3.7090070327170773`*^9}, {3.709007182486644*^9, 3.7090072398129225`*^9}, {
   3.709007284942504*^9, 3.7090072857775517`*^9}, {3.7090073164713078`*^9, 
   3.7090073226286592`*^9}, {3.7090073832381268`*^9, 
   3.7090074574883733`*^9}, {3.7090075122315044`*^9, 3.709007573978036*^9}, {
   3.7090076159294357`*^9, 3.709007626253026*^9}, {3.709584197071907*^9, 
   3.7095842056293964`*^9}, {3.7097489204395924`*^9, 3.70974893525844*^9}, {
   3.71024285900718*^9, 3.7102428896939354`*^9}, {3.710242932028357*^9, 
   3.7102429947679453`*^9}, {3.710243365826169*^9, 3.710243455328288*^9}, {
   3.710243501792946*^9, 3.710243517184826*^9}, {3.71024402568091*^9, 
   3.7102440330533323`*^9}, {3.7104176191970806`*^9, 
   3.7104178146812615`*^9}, {3.710417846804099*^9, 3.710418105086872*^9}, {
   3.7104181438790903`*^9, 3.7104181476723075`*^9}, {3.7147872468005376`*^9, 
   3.714787261441375*^9}, {3.7147873064659505`*^9, 3.714787312611302*^9}, {
   3.714787608179207*^9, 3.7147876087032375`*^9}, {3.71478774582508*^9, 
   3.714787751029378*^9}, {3.7147878040294094`*^9, 3.714787833917119*^9}, {
   3.7147878872201676`*^9, 3.7147879068842926`*^9}, {3.7147891662283225`*^9, 
   3.7147892247346687`*^9}, {3.7147892757815886`*^9, 
   3.7147895413147764`*^9}, {3.714789574211658*^9, 3.71478986482028*^9}, {
   3.7147903547183003`*^9, 3.7147903893372803`*^9}, {3.7157311281220474`*^9, 
   3.71573121020469*^9}, {3.7227922411025443`*^9, 3.7227923073265266`*^9}, {
   3.74999783181384*^9, 3.749997832586464*^9}, {3.749998622548502*^9, 
   3.749998686785317*^9}, {3.749998727185334*^9, 3.749998768142551*^9}, {
   3.7499988340105467`*^9, 3.749998848117107*^9}, {3.749998913467862*^9, 
   3.749998952418141*^9}, 3.7499989845149727`*^9, {3.750000197459298*^9, 
   3.750000229604733*^9}},ExpressionUUID->"89e8c74f-2d36-4c6d-81b0-\
28d1369e4cc2"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintAllL", "[", "CM", "]"}]], "Input",
 CellChangeTimes->{{3.5744663017556753`*^9, 3.5744664381779146`*^9}, {
   3.5744665012612257`*^9, 3.5744665056604333`*^9}, {3.5744670683222218`*^9, 
   3.574467071957028*^9}, {3.5744671149975033`*^9, 3.5744671774756136`*^9}, {
   3.5744673057390385`*^9, 3.5744673158478565`*^9}, {3.574467466294521*^9, 
   3.5744674719573307`*^9}, {3.675165176837956*^9, 3.675165179353591*^9}, {
   3.7465370744282227`*^9, 3.746537095517496*^9}, 3.749998264815874*^9, {
   3.7499984285266037`*^9, 3.749998440979971*^9}},
 CellLabel->
  "In[253]:=",ExpressionUUID->"cb114878-fb36-4c09-b518-bfa8d5d732eb"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "1", "0", "0"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "1", "0", "0"},
       {"0", "0", "1", "0"},
       {
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "1", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"1", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "1"},
       {"1", "0", "0", "0"},
       {"0", "0", "1", "0"},
       {"0", "1", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{{3.750017813040697*^9, 3.750017840445174*^9}, 
   3.750017962917813*^9, 3.750018020543704*^9, 3.750018361782029*^9, 
   3.7501575265928516`*^9, 3.7503401835563087`*^9, 3.7503764466935406`*^9, 
   3.750376739145*^9, 3.7503775289570155`*^9, 3.75037758583399*^9, {
   3.750378000240185*^9, 3.750378012076532*^9}, 3.7506852710845556`*^9, 
   3.7525207881675596`*^9, 3.753914258234993*^9, 3.801831190458198*^9},
 CellLabel->
  "Out[253]=",ExpressionUUID->"3637b3e1-64ca-4164-af6b-92d23d9da62f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"L", "[", "CM", "]"}], " ", "\[Equal]", " ", 
  RowBox[{"L", "[", "362511", "]"}]}]], "Input",
 CellChangeTimes->{{3.74707528790318*^9, 3.7470752914965343`*^9}, {
  3.7470753631614137`*^9, 3.747075384649576*^9}},
 CellLabel->
  "In[254]:=",ExpressionUUID->"dc7cce8a-15b2-4344-bb41-f441ca64eef1"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{{3.7500178130808735`*^9, 3.7500178404620314`*^9}, 
   3.750017962939142*^9, 3.7500180205704875`*^9, 3.750018361798849*^9, 
   3.7501575266067905`*^9, 3.750340183587573*^9, 3.750376446719471*^9, 
   3.7503767391729207`*^9, 3.75037752898493*^9, 3.750377585853905*^9, {
   3.7503780002640843`*^9, 3.750378012096484*^9}, 3.7506852711009235`*^9, 
   3.7525207881934586`*^9, 3.7539142582506104`*^9, 3.801831190547509*^9},
 CellLabel->
  "Out[254]=",ExpressionUUID->"6419b488-e27d-4a82-a446-71717b10ec7d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GraphAdinkra", "[", "CM", "]"}]], "Input",
 CellChangeTimes->{{3.7470757027520566`*^9, 3.747075713489316*^9}, {
   3.747076080474271*^9, 3.747076088664357*^9}, {3.747076124916252*^9, 
   3.747076126624976*^9}, 3.749999482572488*^9},
 CellLabel->
  "In[532]:=",ExpressionUUID->"91a15366-d0bc-4a01-8c93-18a1ffb0021c"],

Cell[BoxData[
 GraphicsBox[{
   {Hue[0.6, 0.7, 0.5], Opacity[0.7], 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {-1.5, -2.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {-0.5, -2.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -1.}, {0.5, -2.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {1.5, -2.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     LineBox[{{-1.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     LineBox[{{-1.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     LineBox[{{-1.5, -2.}, {1.5, -1.}}]}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-0.5, -2.}, {-0.5, -1.}}]}}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     LineBox[{{-0.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-0.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{0.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     LineBox[{{0.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{0.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     LineBox[{{1.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{1.5, -2.}, {0.5, -1.}}]}}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{1.5, -2.}, {1.5, -1.}}]}}}, 
   {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 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.}]}},
  FormatType->TraditionalForm,
  FrameTicks->None]], "Output",
 CellChangeTimes->{{3.750017813103689*^9, 3.7500178404862995`*^9}, 
   3.750017963149444*^9, 3.750018020600755*^9, 3.750018361832084*^9, 
   3.750157526679691*^9, 3.7503401836031723`*^9, 3.7503764467583804`*^9, 
   3.7503767392058487`*^9, 3.750377529001918*^9, 3.7503775859097567`*^9, {
   3.7503780002950325`*^9, 3.750378012137358*^9}, 3.750685271126796*^9, 
   3.7525207882234173`*^9, 3.753914258313094*^9, {3.8018311907969427`*^9, 
   3.801831209420621*^9}, 3.801831758159628*^9},
 CellLabel->
  "Out[532]=",ExpressionUUID->"db120c3e-e1fa-49b3-91fe-74cac8e162e8"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["N\[NotEqual]4, Various Representations", "Section",
 CellChangeTimes->{{3.747398897298127*^9, 
  3.7473989043144636`*^9}},ExpressionUUID->"c02196b5-2233-4c25-943c-\
b731f22bef07"],

Cell[CellGroupData[{

Cell[TextData[StyleBox["3-cube",
 FontColor->RGBColor[
  0.7607843137254902, 0.29411764705882354`, 
   0.08235294117647059]]], "Subsection",
 CellChangeTimes->{{3.738887200254696*^9, 3.738887203811822*^9}, {
  3.7388872512260284`*^9, 3.7388872512885003`*^9}, {3.7389367742219706`*^9, 
  3.738936774961013*^9}},ExpressionUUID->"1905aa93-7351-461c-b7af-\
8455c660b0dc"],

Cell[CellGroupData[{

Cell["Generating the Adinkras", "Subsubsection",
 CellChangeTimes->{{3.738941150466277*^9, 3.738941154815526*^9}, {
  3.750018060386717*^9, 
  3.7500180623778553`*^9}},ExpressionUUID->"2f39c62b-6525-4504-ba74-\
c377cd029a84"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Rep", " ", "=", " ", "ThreeHypercube"}], ";"}]], "Input",
 CellChangeTimes->{{3.738887287385569*^9, 3.7388872924023685`*^9}},
 CellLabel->
  "In[258]:=",ExpressionUUID->"8f6915c5-fea2-498e-b90f-2d9132f83477"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"L", "[", "Rep", "]"}], "=", 
   RowBox[{"{", 
    RowBox[{
     TagBox[
      RowBox[{
       RowBox[{"IdentityMatrix", "[", "4", "]"}], "\[NoBreak]"}],
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]], ",", 
     RowBox[{"I", " ", 
      RowBox[{"SigmaProduct", "[", 
       RowBox[{"3", ",", "2"}], "]"}]}], ",", 
     RowBox[{
      RowBox[{"-", "I"}], " ", 
      RowBox[{"SigmaProduct", "[", 
       RowBox[{"2", ",", "0"}], "]"}]}]}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7389366170009775`*^9, 3.738936625580468*^9}, {
  3.7389649718480606`*^9, 3.738965053042102*^9}, {3.738965147435832*^9, 
  3.738965157250601*^9}},
 CellLabel->
  "In[259]:=",ExpressionUUID->"33ccb116-3149-4cbb-a280-81fedd0655ca"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintLSigmaProduct", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.7389828624809933`*^9, 3.7389828700288744`*^9}, {
  3.738983626842681*^9, 3.7389836321558495`*^9}},
 CellLabel->
  "In[260]:=",ExpressionUUID->"05e36c69-c6ae-4ab3-9cae-f12ef1cb18e0"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\<\"I\"\>", "\[CircleTimes]", "\<\"I\"\>"}], ",", 
   RowBox[{"\[ImaginaryI]", " ", 
    RowBox[{
     SubscriptBox["\[Sigma]", "3"], "\[CircleTimes]", 
     SubscriptBox["\[Sigma]", "2"]}]}], ",", 
   RowBox[{
    RowBox[{"-", "\[ImaginaryI]"}], " ", 
    RowBox[{
     SubscriptBox["\[Sigma]", "2"], "\[CircleTimes]", "\<\"I\"\>"}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.750017858903267*^9, 3.7500180210354695`*^9, 
  3.7500183807527604`*^9, 3.750157527178383*^9, 3.7503403107858763`*^9, 
  3.7503767392786427`*^9, 3.7503776513827314`*^9, 3.7503780217117867`*^9, 
  3.752520823659726*^9, 3.7525873935586996`*^9, 3.7539142583443384`*^9, 
  3.80183135584671*^9},
 CellLabel->
  "Out[260]=",ExpressionUUID->"5dcadd45-793a-41ec-9fb8-2e55aa988f05"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraPreliminaryReportO", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.7385033449278674`*^9, 3.7385033497241416`*^9}, {
  3.7424125166514177`*^9, 3.7424125218916388`*^9}, {3.747402388971391*^9, 
  3.747402398051972*^9}},
 CellLabel->
  "In[261]:=",ExpressionUUID->"edcbe6ac-051a-402c-881d-d92bcef627e2"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"Rep = ThreeHypercube\"\>"},
    {
     TagBox[GridBox[{
        {"\<\"N = 3\"\>"},
        {"\<\"dbosons x dfermions = 4 \[Times] 4\"\>"},
        {"\<\"GATest = True\"\>"},
        {"\<\"InverseTest = True\"\>"},
        {"\<\"TransposeTest = True\"\>"}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
       
       GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
      "Column"]}
   },
   DefaultBaseStyle->"Column",
   GridBoxAlignment->{"Columns" -> {{Left}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
  "Column"]], "Output",
 CellChangeTimes->{3.7500178589250913`*^9, 3.7500180210543175`*^9, 
  3.750018380777522*^9, 3.7501575271942883`*^9, 3.750340310801512*^9, 
  3.750376739305583*^9, 3.75037765140168*^9, 3.7503780217287493`*^9, 
  3.752520823683655*^9, 3.752587393581918*^9, 3.753914258359967*^9, 
  3.801831355914399*^9},
 CellLabel->
  "Out[261]=",ExpressionUUID->"3d830d96-8af6-4319-bbb0-65b25c6edd25"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"GenerateAdinkraDataO", "[", "Rep", "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.738503308817802*^9, 3.73850331945341*^9}, {
  3.742435189165392*^9, 3.742435213715021*^9}},
 CellLabel->
  "In[262]:=",ExpressionUUID->"634c672e-399b-47d4-bb95-ca1ea6c2bf1c"],

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 = ThreeHypercube\"\>"], "Print",
 CellChangeTimes->{3.750017858946477*^9, 3.750018021075188*^9, 
  3.7500183807958736`*^9, 3.750157527215548*^9, 3.75034031083274*^9, 
  3.75037673933247*^9, 3.75037765142165*^9, 3.7503780217446613`*^9, 
  3.752520823712577*^9, 3.752587393598547*^9, 3.7539142583755827`*^9, 
  3.801831355926982*^9},
 CellLabel->
  "During evaluation of \
In[262]:=",ExpressionUUID->"877525b2-d76c-43bc-bd74-d436b7fcc278"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraHoloMonoReport", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.747772402977326*^9, 3.747772407130816*^9}},
 CellLabel->
  "In[263]:=",ExpressionUUID->"fd69f98f-d8db-436d-b44c-a6ad23bfd240"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     TagBox[GridBox[{
        {"\<\"N = 3\"\>"},
        {"\<\"dbosons x dfermions = 4 \[Times] 4\"\>"},
        {"\<\"GATest = True\"\>"},
        {"\<\"InverseTest = True\"\>"},
        {"\<\"TransposeTest = 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"]], "Output",
 CellChangeTimes->{3.750017858967823*^9, 3.750018021098461*^9, 
  3.750018380820284*^9, 3.750157527235936*^9, 3.7503403108483505`*^9, 
  3.7503767393583975`*^9, 3.7503776514406085`*^9, 3.7503780217596207`*^9, 
  3.752520823735515*^9, 3.7525873936364775`*^9, 3.753914258391202*^9, 
  3.8018313559989777`*^9},
 CellLabel->
  "Out[263]=",ExpressionUUID->"eff6b402-6d70-46df-8fb2-cf8194a1cfcf"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraReport", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.7385033449278674`*^9, 3.7385033497241416`*^9}, 
   3.7503766713230934`*^9},
 CellLabel->
  "In[264]:=",ExpressionUUID->"c2a38179-4057-4fb4-8711-8127a03132e9"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"N = 3\"\>"},
    {"\<\"dbosons x dfermions = 4 \[Times] 4\"\>"},
    {"\<\"GATest = True\"\>"},
    {"\<\"InverseTest = True\"\>"},
    {"\<\"TransposeTest = True\"\>"}
   },
   DefaultBaseStyle->"Column",
   GridBoxAlignment->{"Columns" -> {{Left}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
  "Column"]], "Output",
 CellChangeTimes->{3.7500178589961977`*^9, 3.75001802112227*^9, 
  3.7500183808480597`*^9, 3.7501575273003798`*^9, 3.7503403108796253`*^9, 
  3.750376739384363*^9, 3.7503776514555387`*^9, 3.7503780217765756`*^9, 
  3.7525208237610264`*^9, 3.7525873936618977`*^9, 3.753914258406855*^9, 
  3.801831356067381*^9},
 CellLabel->
  "Out[264]=",ExpressionUUID->"e3d881f7-668e-446a-9789-9ff80ef14ea7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraFullReport", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.73850436548024*^9, 3.7385043711275625`*^9}},
 CellLabel->
  "In[265]:=",ExpressionUUID->"0b648bb2-824c-4778-a10f-6f7ccc5fb4be"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     TagBox[GridBox[{
        {
         TagBox[GridBox[{
            {
             TagBox[GridBox[{
                {
                 TagBox[GridBox[{
                    {"\<\"N = 3\"\>"},
                    {"\<\"dbosons x dfermions = 4 \[Times] 4\"\>"},
                    {"\<\"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.750017859054231*^9, 3.7500180211703815`*^9, 
  3.750018380925521*^9, 3.750157527372796*^9, 3.750340310926458*^9, 
  3.750376739415277*^9, 3.750377651515378*^9, 3.750378021830432*^9, 
  3.7525208238278475`*^9, 3.7525873936871567`*^9, 3.753914258469308*^9, 
  3.8018313561368847`*^9},
 CellLabel->
  "Out[265]=",ExpressionUUID->"0c1fa5f5-f7df-44d4-9de5-ee41f70a2a0c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintAllGALR", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.7525873962713175`*^9, 3.752587404790073*^9}},
 CellLabel->
  "In[266]:=",ExpressionUUID->"556e636b-1dd4-421c-be1d-df480602d654"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"2", "0", "0", "0"},
       {"0", "2", "0", "0"},
       {"0", "0", "2", "0"},
       {"0", "0", "0", "2"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"2", "0", "0", "0"},
       {"0", "2", "0", "0"},
       {"0", "0", "2", "0"},
       {"0", "0", "0", "2"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"2", "0", "0", "0"},
       {"0", "2", "0", "0"},
       {"0", "0", "2", "0"},
       {"0", "0", "0", "2"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{3.752587405307886*^9, 3.753914258484931*^9, 
  3.801831356153132*^9},
 CellLabel->
  "Out[266]=",ExpressionUUID->"805c6eb1-3b23-4a61-86c6-2d22c9e42188"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintAllGARL", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.752587408214884*^9, 3.752587411798048*^9}},
 CellLabel->
  "In[267]:=",ExpressionUUID->"0c85efbf-dbee-4f68-ab5e-4b83d9aa7fe7"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"2", "0", "0", "0"},
       {"0", "2", "0", "0"},
       {"0", "0", "2", "0"},
       {"0", "0", "0", "2"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"2", "0", "0", "0"},
       {"0", "2", "0", "0"},
       {"0", "0", "2", "0"},
       {"0", "0", "0", "2"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"2", "0", "0", "0"},
       {"0", "2", "0", "0"},
       {"0", "0", "2", "0"},
       {"0", "0", "0", "2"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{3.752587412208486*^9, 3.753914258500551*^9, 
  3.801831356220303*^9},
 CellLabel->
  "Out[267]=",ExpressionUUID->"d7eac98d-9205-4182-a35b-47dd14e3e579"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Holoraumy: 8 distinct elements, Monodromy: 4 distinct elements\
\>", "Subsubsection",
 CellChangeTimes->{{3.7385043281361036`*^9, 3.7385043312612824`*^9}, {
  3.738884756215666*^9, 3.738884757357658*^9}, {3.738887143801999*^9, 
  3.7388871508689747`*^9}, {3.738887437311467*^9, 3.738887437397829*^9}, {
  3.738887513868467*^9, 3.7388875139778323`*^9}, {3.7388880839558983`*^9, 
  3.738888084040279*^9}, {3.738936698635647*^9, 
  3.738936711922407*^9}},ExpressionUUID->"a62e9f3b-2b24-4274-88f0-\
1f7c95f22b42"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintAllHoloraumy", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.738884741567878*^9, 3.7388847464140472`*^9}, 
   3.7473997155262127`*^9},
 CellLabel->
  "In[268]:=",ExpressionUUID->"596f42e6-7cdd-4dae-a0a8-80fbb7f30290"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "1", "0", "0"},
       {
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "1", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "1", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"1", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   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}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"},
       {
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"1", "0", "0", "0"},
       {"0", "0", "0", "1"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "1"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"0", "1", "0", "0"},
       {
        RowBox[{"-", "1"}], "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"},
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{3.7500178590829983`*^9, 3.750018021193693*^9, 
  3.750018380949822*^9, 3.7501575273941755`*^9, 3.7503403109577303`*^9, 
  3.7503767394461637`*^9, 3.7503776515363197`*^9, 3.750378021849434*^9, 
  3.752520823853776*^9, 3.7539142585317955`*^9, 3.801831356237393*^9},
 CellLabel->
  "Out[268]=",ExpressionUUID->"30cbe117-75cb-4eca-b7bd-8f948c0d526e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintAllHoloraumy", "[", "ThreeHypercube", "]"}]], "Input",
 CellChangeTimes->{{3.7473997158533115`*^9, 3.747399715859302*^9}},
 CellLabel->
  "In[269]:=",ExpressionUUID->"caf7708a-b27a-4170-af80-e18f0e94e1c6"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "1", "0", "0"},
       {
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "1", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "1", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"1", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   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}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"},
       {
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"1", "0", "0", "0"},
       {"0", "0", "0", "1"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "1"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"0", "1", "0", "0"},
       {
        RowBox[{"-", "1"}], "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"},
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{3.7500178591142464`*^9, 3.7500180212231007`*^9, 
  3.750018380981677*^9, 3.750157527410983*^9, 3.7503403109733524`*^9, 
  3.750376739476115*^9, 3.7503776515543103`*^9, 3.750378021868367*^9, 
  3.752520823881703*^9, 3.7539142585474463`*^9, 3.801831356302384*^9},
 CellLabel->
  "Out[269]=",ExpressionUUID->"848389aa-55bb-4b60-b03d-698de7bada29"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintAllMonodromy", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.7388847646742535`*^9, 3.7388847686639524`*^9}, 
   3.7473998071195755`*^9},
 CellLabel->
  "In[270]:=",ExpressionUUID->"0a1ccce2-0021-470d-9d4d-2a1f66bf0647"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"},
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "1", "0", "0"},
       {"1", "0", "0", "0"},
       {"0", "0", "0", "1"},
       {"0", "0", "1", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "1"},
       {"0", "0", "1", "0"},
       {"0", "1", "0", "0"},
       {"1", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"},
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"},
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "1", "0", "0"},
       {"1", "0", "0", "0"},
       {"0", "0", "0", "1"},
       {"0", "0", "1", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "1"},
       {"0", "0", "1", "0"},
       {"0", "1", "0", "0"},
       {"1", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"},
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{3.750017859146489*^9, 3.750018021248937*^9, 
  3.7500183810010204`*^9, 3.750157527427911*^9, 3.7503403110045967`*^9, 
  3.750376739506029*^9, 3.7503776515722246`*^9, 3.7503780218883004`*^9, 
  3.7525208239106326`*^9, 3.7539142585630674`*^9, 3.8018313563214808`*^9},
 CellLabel->
  "Out[270]=",ExpressionUUID->"5216161b-ae0f-4a59-9959-ecf08a1d0d22"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Another 3-cube",
 FontColor->RGBColor[
  0.7607843137254902, 0.29411764705882354`, 
   0.08235294117647059]]], "Subsection",
 CellChangeTimes->{{3.738887200254696*^9, 3.738887203811822*^9}, {
  3.7388872512260284`*^9, 3.7388872512885003`*^9}, {3.7389367742219706`*^9, 
  3.738936774961013*^9}, {3.7473994304584107`*^9, 
  3.7473994310980625`*^9}},ExpressionUUID->"397936b2-ab70-43b0-80f6-\
0d930a959463"],

Cell[CellGroupData[{

Cell["Generating the Adinkra", "Subsubsection",
 CellChangeTimes->{{3.738941150466277*^9, 
  3.738941154815526*^9}},ExpressionUUID->"2613a12b-f190-4744-9d98-\
69b04e3f19e0"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Rep", " ", "=", " ", "AnotherThreeHypercube"}], ";"}]], "Input",
 CellChangeTimes->{{3.738887287385569*^9, 3.7388872924023685`*^9}, {
  3.7473994359950523`*^9, 3.7473994365619955`*^9}},
 CellLabel->
  "In[271]:=",ExpressionUUID->"f5233de6-fd7b-4cbf-90a4-c970f089a482"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"L", "[", "Rep", "]"}], "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"L", "[", "ThreeHypercube", "]"}], "[", 
      RowBox[{"[", "3", "]"}], "]"}], ",", 
     RowBox[{
      RowBox[{"L", "[", "ThreeHypercube", "]"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}], ",", 
     RowBox[{
      RowBox[{"L", "[", "ThreeHypercube", "]"}], "[", 
      RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7389366170009775`*^9, 3.738936625580468*^9}, {
  3.7389649718480606`*^9, 3.738965053042102*^9}, {3.738965147435832*^9, 
  3.738965157250601*^9}, {3.7473994426348376`*^9, 3.74739946129169*^9}},
 CellLabel->
  "In[272]:=",ExpressionUUID->"83ef1628-a1d1-4824-978a-1b5b18014cd4"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintLSigmaProduct", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.7389828624809933`*^9, 3.7389828700288744`*^9}, {
  3.738983626842681*^9, 3.7389836321558495`*^9}},
 CellLabel->
  "In[273]:=",ExpressionUUID->"5ce4b490-561a-43a3-9654-37a37bcd7e07"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"-", "\[ImaginaryI]"}], " ", 
    RowBox[{
     SubscriptBox["\[Sigma]", "2"], "\[CircleTimes]", "\<\"I\"\>"}]}], ",", 
   RowBox[{"\<\"I\"\>", "\[CircleTimes]", "\<\"I\"\>"}], ",", 
   RowBox[{"\[ImaginaryI]", " ", 
    RowBox[{
     SubscriptBox["\[Sigma]", "3"], "\[CircleTimes]", 
     SubscriptBox["\[Sigma]", "2"]}]}]}], "}"}]], "Output",
 CellChangeTimes->{3.7500178591995583`*^9, 3.7500180212915487`*^9, 
  3.7500183810486445`*^9, 3.750157527461624*^9, 3.7503403110514603`*^9, 
  3.750376739576847*^9, 3.750377651609125*^9, 3.7503780219331875`*^9, 
  3.7525208239594994`*^9, 3.7539142585942807`*^9, 3.801831356404763*^9},
 CellLabel->
  "Out[273]=",ExpressionUUID->"6ae51024-0a2b-4eca-898e-a811f5e2dda1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"GenerateAdinkraDataO", "[", "Rep", "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.738503308817802*^9, 3.73850331945341*^9}, {
  3.742435189165392*^9, 3.742435213715021*^9}},
 CellLabel->
  "In[274]:=",ExpressionUUID->"8a077ae5-8305-4122-b342-44e584fc4abb"],

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 = AnotherThreeHypercube\"\>"], \
"Print",
 CellChangeTimes->{3.7500178592204123`*^9, 3.750018021316845*^9, 
  3.7500183810714607`*^9, 3.750157527478973*^9, 3.7503403110827017`*^9, 
  3.7503767396047463`*^9, 3.750377651627117*^9, 3.7503780219541388`*^9, 
  3.752520823978449*^9, 3.7539142585942807`*^9, 3.801831356421884*^9},
 CellLabel->
  "During evaluation of \
In[274]:=",ExpressionUUID->"039536a0-d980-4830-aded-1cdbf3fed109"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraPreliminaryReport", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.7385033449278674`*^9, 3.7385033497241416`*^9}, {
  3.7424125166514177`*^9, 3.7424125218916388`*^9}},
 CellLabel->
  "In[275]:=",ExpressionUUID->"79ad44e1-71a3-457d-98e7-3b263a5c0c4f"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"Rep = AnotherThreeHypercube\"\>"},
    {
     TagBox[GridBox[{
        {"\<\"N = 3\"\>"},
        {"\<\"dbosons x dfermions = 4 \[Times] 4\"\>"},
        {"\<\"GATest = True\"\>"},
        {"\<\"InverseTest = True\"\>"},
        {"\<\"TransposeTest = True\"\>"}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
       
       GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
      "Column"]}
   },
   DefaultBaseStyle->"Column",
   GridBoxAlignment->{"Columns" -> {{Left}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
  "Column"]], "Output",
 CellChangeTimes->{3.750017859241701*^9, 3.7500180213342047`*^9, 
  3.7500183810927906`*^9, 3.750157527544409*^9, 3.7503403110983353`*^9, 
  3.7503767396277094`*^9, 3.7503776516460543`*^9, 3.7503780219710913`*^9, 
  3.7525208239964037`*^9, 3.7539142586099014`*^9, 3.801831356479889*^9},
 CellLabel->
  "Out[275]=",ExpressionUUID->"4fbe9a52-5e0a-42db-9cb0-d2fd2a8e32b0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraReport", "[", 
  RowBox[{"Rep", ",", "0"}], "]"}]], "Input",
 CellChangeTimes->{{3.750377714974767*^9, 3.750377728489605*^9}},
 CellLabel->
  "In[276]:=",ExpressionUUID->"844e12fa-be38-4aff-bbfd-f958e84b0ee3"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"N = 3\"\>"},
    {"\<\"dbosons x dfermions = 4 \[Times] 4\"\>"},
    {"\<\"GATest = True\"\>"},
    {"\<\"InverseTest = True\"\>"},
    {"\<\"TransposeTest = True\"\>"}
   },
   DefaultBaseStyle->"Column",
   GridBoxAlignment->{"Columns" -> {{Left}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
  "Column"]], "Output",
 CellChangeTimes->{3.750377729830022*^9, 3.750378021989032*^9, 
  3.7525208240153513`*^9, 3.753914258625552*^9, 3.801831356491454*^9},
 CellLabel->
  "Out[276]=",ExpressionUUID->"5d23d1b6-b6f6-45c2-83d0-6056e743584b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraReport", "[", 
  RowBox[{"Rep", ",", "1"}], "]"}]], "Input",
 CellChangeTimes->{{3.750377714974767*^9, 3.7503777398253336`*^9}},
 CellLabel->
  "In[277]:=",ExpressionUUID->"f07e75cd-51cb-4afb-9070-bc5198ec9be4"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     TagBox[GridBox[{
        {"\<\"N = 3\"\>"},
        {"\<\"dbosons x dfermions = 4 \[Times] 4\"\>"},
        {"\<\"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"]], "Output",
 CellChangeTimes->{{3.750377729830022*^9, 3.750377740824667*^9}, 
   3.7503780220089855`*^9, 3.7525208240352993`*^9, 3.753914258641144*^9, 
   3.801831356557025*^9},
 CellLabel->
  "Out[277]=",ExpressionUUID->"e45c4494-c4e8-4a3f-8596-37a27420b88b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraReport", "[", 
  RowBox[{"Rep", ",", "2"}], "]"}]], "Input",
 CellChangeTimes->{{3.750377714974767*^9, 3.7503777446284904`*^9}},
 CellLabel->
  "In[278]:=",ExpressionUUID->"2270983c-1a88-458f-9380-37bd2cab9655"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     TagBox[GridBox[{
        {"\<\"N = 3\"\>"},
        {"\<\"dbosons x dfermions = 4 \[Times] 4\"\>"},
        {"\<\"GATest = True\"\>"},
        {"\<\"InverseTest = True\"\>"},
        {"\<\"TransposeTest = 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"]], "Output",
 CellChangeTimes->{{3.750377729830022*^9, 3.75037774544827*^9}, 
   3.750378022029929*^9, 3.752520824056242*^9, 3.7539142586567655`*^9, 
   3.801831356569994*^9},
 CellLabel->
  "Out[278]=",ExpressionUUID->"3f97794e-b413-4f3d-b73d-952dc02f17a4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraReport", "[", 
  RowBox[{"Rep", ",", "3"}], "]"}]], "Input",
 CellChangeTimes->{{3.750377714974767*^9, 3.7503777516926093`*^9}},
 CellLabel->
  "In[279]:=",ExpressionUUID->"5d1b6029-49a0-4898-b16e-fa9bab0d71a8"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     TagBox[GridBox[{
        {
         TagBox[GridBox[{
            {"\<\"N = 3\"\>"},
            {"\<\"dbosons x dfermions = 4 \[Times] 4\"\>"},
            {"\<\"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"]], "Output",
 CellChangeTimes->{{3.750377729830022*^9, 3.7503777527637453`*^9}, 
   3.750378022053835*^9, 3.7525208240757113`*^9, 3.7539142586724*^9, 
   3.801831356633481*^9},
 CellLabel->
  "Out[279]=",ExpressionUUID->"426cfb90-7bc0-4574-8dda-14cf9f49ebd4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraReport", "[", 
  RowBox[{"Rep", ",", "4"}], "]"}]], "Input",
 CellChangeTimes->{{3.750377714974767*^9, 3.750377728489605*^9}, 
   3.7503777624927382`*^9},
 CellLabel->
  "In[280]:=",ExpressionUUID->"47e8ede8-db82-4389-bad5-31f8dc3e1a15"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     TagBox[GridBox[{
        {"\<\"N = 3\"\>"},
        {"\<\"dbosons x dfermions = 4 \[Times] 4\"\>"},
        {"\<\"GATest = True\"\>"},
        {"\<\"InverseTest = True\"\>"},
        {"\<\"TransposeTest = 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"]], "Output",
 CellChangeTimes->{3.750377729830022*^9, 3.750377763511017*^9, 
  3.7503780220778017`*^9, 3.7525208240946617`*^9, 3.753914258703659*^9, 
  3.801831356705965*^9},
 CellLabel->
  "Out[280]=",ExpressionUUID->"a5639c8a-74a8-4195-b2ad-f630d6945615"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraReport", "[", 
  RowBox[{"Rep", ",", "5"}], "]"}]], "Input",
 CellChangeTimes->{{3.750377714974767*^9, 3.750377728489605*^9}, 
   3.7503777703925877`*^9},
 CellLabel->
  "In[281]:=",ExpressionUUID->"b38fbacd-2223-4e12-b804-d90ec5013ce0"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     TagBox[GridBox[{
        {
         TagBox[GridBox[{
            {"\<\"N = 3\"\>"},
            {"\<\"dbosons x dfermions = 4 \[Times] 4\"\>"},
            {"\<\"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"]},
    {"\<\"AllsoNTest = True\"\>"}
   },
   DefaultBaseStyle->"Column",
   GridBoxAlignment->{"Columns" -> {{Left}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
  "Column"]], "Output",
 CellChangeTimes->{3.750377729830022*^9, 3.7503777708623314`*^9, 
  3.7503780221097155`*^9, 3.752520824114609*^9, 3.753914258719302*^9, 
  3.801831356771612*^9},
 CellLabel->
  "Out[281]=",ExpressionUUID->"18ca394a-b4fd-4baf-b83b-5429258529ab"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraReport", "[", 
  RowBox[{"Rep", ",", "6"}], "]"}]], "Input",
 CellChangeTimes->{{3.750377714974767*^9, 3.750377728489605*^9}, 
   3.7503777771575036`*^9},
 CellLabel->
  "In[282]:=",ExpressionUUID->"1be91ea0-a2db-4b4e-abbf-335845a84665"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     TagBox[GridBox[{
        {
         TagBox[GridBox[{
            {"\<\"N = 3\"\>"},
            {"\<\"dbosons x dfermions = 4 \[Times] 4\"\>"},
            {"\<\"GATest = True\"\>"},
            {"\<\"InverseTest = True\"\>"},
            {"\<\"TransposeTest = 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"]], "Output",
 CellChangeTimes->{3.750377729830022*^9, 3.7503777779424047`*^9, 
  3.7503780221376104`*^9, 3.752520824135551*^9, 3.7539142587973557`*^9, 
  3.801831356915475*^9},
 CellLabel->
  "Out[282]=",ExpressionUUID->"0b6b2d88-3ae4-4b8e-b251-a501f8994d3e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraReport", "[", 
  RowBox[{"Rep", ",", "7"}], "]"}]], "Input",
 CellChangeTimes->{{3.750377714974767*^9, 3.750377728489605*^9}, 
   3.7503777815687428`*^9},
 CellLabel->
  "In[283]:=",ExpressionUUID->"97f0e1d4-6540-44c2-a901-4b612be6d4ca"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     TagBox[GridBox[{
        {
         TagBox[GridBox[{
            {
             TagBox[GridBox[{
                {"\<\"N = 3\"\>"},
                {"\<\"dbosons x dfermions = 4 \[Times] 4\"\>"},
                {"\<\"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"]], "Output",
 CellChangeTimes->{3.750377729830022*^9, 3.750377781921767*^9, 
  3.750378022181494*^9, 3.752520824156495*^9, 3.7539142588914843`*^9, 
  3.801831356988002*^9},
 CellLabel->
  "Out[283]=",ExpressionUUID->"6587aa0d-500d-48df-baa9-4fb1c2a4e4ca"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraReport", "[", 
  RowBox[{"Rep", ",", "8"}], "]"}]], "Input",
 CellChangeTimes->{{3.750377714974767*^9, 3.750377728489605*^9}, 
   3.750377785881216*^9},
 CellLabel->
  "In[284]:=",ExpressionUUID->"004c7122-af4e-4075-ad53-2242bdfc42bf"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     TagBox[GridBox[{
        {
         TagBox[GridBox[{
            {
             TagBox[GridBox[{
                {
                 TagBox[GridBox[{
                    {"\<\"N = 3\"\>"},
                    {"\<\"dbosons x dfermions = 4 \[Times] 4\"\>"},
                    {"\<\"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.750377729830022*^9, 3.7503777861604366`*^9, 
  3.750378022219393*^9, 3.7525208242218294`*^9, 3.753914258969591*^9, 
  3.80183135705249*^9},
 CellLabel->
  "Out[284]=",ExpressionUUID->"28115a95-2f34-4491-96ff-dabd621c76c4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraSummaryReport", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.7385033449278674`*^9, 3.7385033497241416`*^9}},
 CellLabel->
  "In[285]:=",ExpressionUUID->"9cebb8cc-16b8-44b6-898c-0a994a448723"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     TagBox[GridBox[{
        {
         TagBox[GridBox[{
            {"\<\"N = 3\"\>"},
            {"\<\"dbosons x dfermions = 4 \[Times] 4\"\>"},
            {"\<\"GATest = True\"\>"},
            {"\<\"InverseTest = True\"\>"},
            {"\<\"TransposeTest = 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"]], "Output",
 CellChangeTimes->{3.750017859266042*^9, 3.7500180213565245`*^9, 
  3.7500183811186175`*^9, 3.7501575276085052`*^9, 3.7503403111298676`*^9, 
  3.750376739652669*^9, 3.750377651673995*^9, 3.7503780222603188`*^9, 
  3.7525208242407794`*^9, 3.7539142590476637`*^9, 3.801831357125264*^9},
 CellLabel->
  "Out[285]=",ExpressionUUID->"3ae69ca1-6cbe-49b5-b0e6-01b62412e823"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraFullReport", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.73850436548024*^9, 3.7385043711275625`*^9}},
 CellLabel->
  "In[286]:=",ExpressionUUID->"cb0e7d2a-4034-4356-a09f-62198c1a9cb0"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     TagBox[GridBox[{
        {
         TagBox[GridBox[{
            {
             TagBox[GridBox[{
                {
                 TagBox[GridBox[{
                    {"\<\"N = 3\"\>"},
                    {"\<\"dbosons x dfermions = 4 \[Times] 4\"\>"},
                    {"\<\"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.7500178593190784`*^9, 3.7500180214031487`*^9, 
  3.7500183811926107`*^9, 3.750157527672619*^9, 3.7503403111923857`*^9, 
  3.75037673967758*^9, 3.7503776517218647`*^9, 3.7503780223021708`*^9, 
  3.7525208242901587`*^9, 3.75391425912581*^9, 3.801831357197753*^9},
 CellLabel->
  "Out[286]=",ExpressionUUID->"bf6467e0-fd49-4963-bd5b-99be3f421c1e"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Holoraumy: 8 distinct elements, Monodromy: 4 distinct elements\
\>", "Subsubsection",
 CellChangeTimes->{{3.7385043281361036`*^9, 3.7385043312612824`*^9}, {
  3.738884756215666*^9, 3.738884757357658*^9}, {3.738887143801999*^9, 
  3.7388871508689747`*^9}, {3.738887437311467*^9, 3.738887437397829*^9}, {
  3.738887513868467*^9, 3.7388875139778323`*^9}, {3.7388880839558983`*^9, 
  3.738888084040279*^9}, {3.738936698635647*^9, 
  3.738936711922407*^9}},ExpressionUUID->"5a20db39-46e2-433b-9ac0-\
0967cc76508a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintAllHoloraumy", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.738884741567878*^9, 3.7388847464140472`*^9}, 
   3.747399717086635*^9},
 CellLabel->
  "In[287]:=",ExpressionUUID->"1d2f0da6-5bf7-4781-baef-d2a228ce4e03"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "1"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"0", "1", "0", "0"},
       {
        RowBox[{"-", "1"}], "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"},
       {
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "1", "0", "0"},
       {
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "1", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   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}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "1", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"1", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"1", "0", "0", "0"},
       {"0", "0", "0", "1"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"},
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{3.750017859346854*^9, 3.750018021423981*^9, 
  3.750018381216872*^9, 3.7501575276949787`*^9, 3.750340311208*^9, 
  3.7503767397074957`*^9, 3.7503776517467885`*^9, 3.7503780223221474`*^9, 
  3.7525208243130956`*^9, 3.7539142591414213`*^9, 3.801831357209383*^9},
 CellLabel->
  "Out[287]=",ExpressionUUID->"c7afd4db-d2c4-461f-b0c0-911b7317a97c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintAllMonodromy", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.7388847646742535`*^9, 3.7388847686639524`*^9}, 
   3.747399809554245*^9},
 CellLabel->
  "In[288]:=",ExpressionUUID->"dc4ca61b-7d01-45ee-9b02-6ffaaefa0b9a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "1"},
       {"0", "0", "1", "0"},
       {"0", "1", "0", "0"},
       {"1", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"},
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "1", "0", "0"},
       {"1", "0", "0", "0"},
       {"0", "0", "0", "1"},
       {"0", "0", "1", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"},
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "1"},
       {"0", "0", "1", "0"},
       {"0", "1", "0", "0"},
       {"1", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"},
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "1", "0", "0"},
       {"1", "0", "0", "0"},
       {"0", "0", "0", "1"},
       {"0", "0", "1", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"},
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{3.7500178593681936`*^9, 3.750018021457709*^9, 
  3.7500183812467537`*^9, 3.7501575277108107`*^9, 3.75034031123925*^9, 
  3.7503767397354217`*^9, 3.750377651771691*^9, 3.7503780223460846`*^9, 
  3.7525208243360367`*^9, 3.7539142591570435`*^9, 3.801831357279994*^9},
 CellLabel->
  "Out[288]=",ExpressionUUID->"99302836-02e0-40c4-9c0d-f489530be0e7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintHoloraumy", "[", "Rep", "]"}], "[", 
  RowBox[{"{", 
   RowBox[{"1", ",", "1", ",", "1"}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.747400027074361*^9, 3.7474000425468225`*^9}},
 CellLabel->
  "In[289]:=",ExpressionUUID->"bd01e09c-79ca-4c97-a7a4-c17b2c7d96a2"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", 
      RowBox[{"-", "1"}], "0", "0"},
     {"1", "0", "0", "0"},
     {"0", "0", "0", "1"},
     {"0", "0", 
      RowBox[{"-", "1"}], "0"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.750017859388516*^9, 3.750018021475565*^9, 
  3.7500183812690725`*^9, 3.7501575277276754`*^9, 3.750340311254871*^9, 
  3.7503767398002176`*^9, 3.7503776517936587`*^9, 3.7503780223700247`*^9, 
  3.7525208243559837`*^9, 3.7539142592351437`*^9, 3.801831357294924*^9},
 CellLabel->
  "Out[289]//MatrixForm=",ExpressionUUID->"0be24e95-4381-4cf7-a4d8-\
96dfd21a8250"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintMonodromy", "[", "Rep", "]"}], "[", 
  RowBox[{"{", 
   RowBox[{"1", ",", "1", ",", "1"}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.747400027074361*^9, 3.7474000664823837`*^9}},
 CellLabel->
  "In[290]:=",ExpressionUUID->"a6c41fef-92d4-4a13-beaa-7dc68a2b9480"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "1", "0", "0"},
     {"1", "0", "0", "0"},
     {"0", "0", "0", "1"},
     {"0", "0", "1", "0"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.75001785940986*^9, 3.750018021501853*^9, 
  3.750018381292384*^9, 3.750157527744549*^9, 3.7503403112704954`*^9, 
  3.750376739827171*^9, 3.7503776518126154`*^9, 3.7503780223909345`*^9, 
  3.752520824373935*^9, 3.75391425925074*^9, 3.8018313573599653`*^9},
 CellLabel->
  "Out[290]//MatrixForm=",ExpressionUUID->"ca068eda-9609-4b8e-8cb2-\
d5a4fa3fd630"]
}, Open  ]]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Yet Another 3-cube",
 FontColor->RGBColor[
  0.7607843137254902, 0.29411764705882354`, 
   0.08235294117647059]]], "Subsection",
 CellChangeTimes->{{3.738887200254696*^9, 3.738887203811822*^9}, {
  3.7388872512260284`*^9, 3.7388872512885003`*^9}, {3.7389367742219706`*^9, 
  3.738936774961013*^9}, {3.7473994304584107`*^9, 3.7473994310980625`*^9}, {
  3.7473994884096637`*^9, 
  3.7473994887863483`*^9}},ExpressionUUID->"d88f5302-a79a-4452-b8bb-\
f03407efacfc"],

Cell[CellGroupData[{

Cell["Generating the Adinkra", "Subsubsection",
 CellChangeTimes->{{3.738941150466277*^9, 
  3.738941154815526*^9}},ExpressionUUID->"865524d6-f3c0-4547-9dbc-\
f6cf58db755f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Rep", " ", "=", " ", "YetAnotherThreeHypercube"}], ";"}]], "Input",\

 CellChangeTimes->{{3.738887287385569*^9, 3.7388872924023685`*^9}, {
  3.7473994359950523`*^9, 3.7473994365619955`*^9}, {3.7473994939148197`*^9, 
  3.747399495834816*^9}},
 CellLabel->
  "In[291]:=",ExpressionUUID->"ec82dbfb-2d57-4ed5-89f7-f35943e28d0d"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"L", "[", "Rep", "]"}], "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"L", "[", "ThreeHypercube", "]"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}], ",", 
     RowBox[{
      RowBox[{"L", "[", "ThreeHypercube", "]"}], "[", 
      RowBox[{"[", "3", "]"}], "]"}], ",", 
     RowBox[{
      RowBox[{"L", "[", "ThreeHypercube", "]"}], "[", 
      RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7389366170009775`*^9, 3.738936625580468*^9}, {
  3.7389649718480606`*^9, 3.738965053042102*^9}, {3.738965147435832*^9, 
  3.738965157250601*^9}, {3.7473994426348376`*^9, 3.74739946129169*^9}, {
  3.747399499235862*^9, 3.747399501843957*^9}},
 CellLabel->
  "In[292]:=",ExpressionUUID->"cb3c9160-e412-402f-8b7c-a5f5fea9948d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintLSigmaProduct", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.7389828624809933`*^9, 3.7389828700288744`*^9}, {
  3.738983626842681*^9, 3.7389836321558495`*^9}},
 CellLabel->
  "In[293]:=",ExpressionUUID->"04270c6f-e151-4ed4-9f79-00bfede3d96e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\<\"I\"\>", "\[CircleTimes]", "\<\"I\"\>"}], ",", 
   RowBox[{
    RowBox[{"-", "\[ImaginaryI]"}], " ", 
    RowBox[{
     SubscriptBox["\[Sigma]", "2"], "\[CircleTimes]", "\<\"I\"\>"}]}], ",", 
   RowBox[{"\[ImaginaryI]", " ", 
    RowBox[{
     SubscriptBox["\[Sigma]", "3"], "\[CircleTimes]", 
     SubscriptBox["\[Sigma]", "2"]}]}]}], "}"}]], "Output",
 CellChangeTimes->{3.7500178594614267`*^9, 3.750018021545005*^9, 
  3.7500183813375206`*^9, 3.7501575277788258`*^9, 3.7503403113329773`*^9, 
  3.750376739895994*^9, 3.7503776518544693`*^9, 3.7503780224358435`*^9, 
  3.752520824422803*^9, 3.753914259282014*^9, 3.801831357490543*^9},
 CellLabel->
  "Out[293]=",ExpressionUUID->"e38dfb20-fa58-4592-a313-0b2f106e6526"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"GenerateAdinkraDataO", "[", "Rep", "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.738503308817802*^9, 3.73850331945341*^9}, {
  3.742435189165392*^9, 3.742435213715021*^9}},
 CellLabel->
  "In[294]:=",ExpressionUUID->"6dade608-68b8-4218-9895-57fd98bbd6d7"],

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 = YetAnotherThreeHypercube\"\>"], \
"Print",
 CellChangeTimes->{3.750017859483794*^9, 3.7500180215673246`*^9, 
  3.7500183813647995`*^9, 3.750157527801159*^9, 3.750340311348571*^9, 
  3.750376739924884*^9, 3.7503776518744164`*^9, 3.7503780224557705`*^9, 
  3.7525208244407554`*^9, 3.753914259282014*^9, 3.80183135758121*^9},
 CellLabel->
  "During evaluation of \
In[294]:=",ExpressionUUID->"a82b98fc-f5e3-42d0-be10-fb6d6b5beb52"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraPreliminaryReport", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.7385033449278674`*^9, 3.7385033497241416`*^9}, {
  3.7424125166514177`*^9, 3.7424125218916388`*^9}},
 CellLabel->
  "In[295]:=",ExpressionUUID->"40fd652b-98ba-4c16-9c99-8c95eb9f966b"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"Rep = YetAnotherThreeHypercube\"\>"},
    {
     TagBox[GridBox[{
        {"\<\"N = 3\"\>"},
        {"\<\"dbosons x dfermions = 4 \[Times] 4\"\>"},
        {"\<\"GATest = True\"\>"},
        {"\<\"InverseTest = True\"\>"},
        {"\<\"TransposeTest = True\"\>"}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
       
       GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
      "Column"]}
   },
   DefaultBaseStyle->"Column",
   GridBoxAlignment->{"Columns" -> {{Left}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
  "Column"]], "Output",
 CellChangeTimes->{3.7500178595041237`*^9, 3.750018021585676*^9, 
  3.7500183813856344`*^9, 3.7501575278631473`*^9, 3.750340311379811*^9, 
  3.750376739950858*^9, 3.7503776518913946`*^9, 3.750378022472748*^9, 
  3.752520824458708*^9, 3.7539142592976284`*^9, 3.801831357596414*^9},
 CellLabel->
  "Out[295]=",ExpressionUUID->"c7c7038c-bec6-4dd4-bae0-d1ae6e15c22b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraReport", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.7385033449278674`*^9, 3.7385033497241416`*^9}, 
   3.750376674146546*^9},
 CellLabel->
  "In[296]:=",ExpressionUUID->"62ebb1f5-498e-4f5d-93bf-75265e48a993"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"N = 3\"\>"},
    {"\<\"dbosons x dfermions = 4 \[Times] 4\"\>"},
    {"\<\"GATest = True\"\>"},
    {"\<\"InverseTest = True\"\>"},
    {"\<\"TransposeTest = True\"\>"}
   },
   DefaultBaseStyle->"Column",
   GridBoxAlignment->{"Columns" -> {{Left}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
  "Column"]], "Output",
 CellChangeTimes->{3.750017859531967*^9, 3.7500180216089897`*^9, 
  3.750018381410434*^9, 3.7501575279271297`*^9, 3.750340311395465*^9, 
  3.750376739977768*^9, 3.750377651909354*^9, 3.7503780224916945`*^9, 
  3.7525208244786615`*^9, 3.7539142593132257`*^9, 3.801831357684033*^9},
 CellLabel->
  "Out[296]=",ExpressionUUID->"f2c93ea6-e553-492c-b37e-821bb56ca45a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraFullReport", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.73850436548024*^9, 3.7385043711275625`*^9}},
 CellLabel->
  "In[297]:=",ExpressionUUID->"222a4122-716c-409b-9404-bfbfc085df04"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     TagBox[GridBox[{
        {
         TagBox[GridBox[{
            {
             TagBox[GridBox[{
                {
                 TagBox[GridBox[{
                    {"\<\"N = 3\"\>"},
                    {"\<\"dbosons x dfermions = 4 \[Times] 4\"\>"},
                    {"\<\"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.750017859590565*^9, 3.750018021656643*^9, 
  3.7500183814912815`*^9, 3.7501575279965715`*^9, 3.750340311442296*^9, 
  3.750376740004671*^9, 3.7503776519472227`*^9, 3.7503780225315886`*^9, 
  3.752520824534506*^9, 3.7539142593757114`*^9, 3.8018313577714252`*^9},
 CellLabel->
  "Out[297]=",ExpressionUUID->"d9af6d97-e372-441a-a7e5-6ee49fa56444"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Holoraumy: 8 distinct elements, Monodromy: 4 distinct elements\
\>", "Subsubsection",
 CellChangeTimes->{{3.7385043281361036`*^9, 3.7385043312612824`*^9}, {
  3.738884756215666*^9, 3.738884757357658*^9}, {3.738887143801999*^9, 
  3.7388871508689747`*^9}, {3.738887437311467*^9, 3.738887437397829*^9}, {
  3.738887513868467*^9, 3.7388875139778323`*^9}, {3.7388880839558983`*^9, 
  3.738888084040279*^9}, {3.738936698635647*^9, 
  3.738936711922407*^9}},ExpressionUUID->"af95e205-e375-42d4-b9ea-\
959347f752b2"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintAllHoloraumy", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.738884741567878*^9, 3.7388847464140472`*^9}, 
   3.747399721178748*^9},
 CellLabel->
  "In[298]:=",ExpressionUUID->"9cdd5fe4-e7fc-4088-8804-25c4d6940970"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "1", "0", "0"},
       {
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "1", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "1"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"0", "1", "0", "0"},
       {
        RowBox[{"-", "1"}], "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   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}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"1", "0", "0", "0"},
       {"0", "0", "0", "1"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"},
       {
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "1", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"1", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"},
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{3.7500178596154127`*^9, 3.750018021690835*^9, 
  3.750018381516577*^9, 3.7501575280154595`*^9, 3.750340311473596*^9, 
  3.750376740035617*^9, 3.7503776519711576`*^9, 3.7503780225545216`*^9, 
  3.7525208245604343`*^9, 3.753914259391364*^9, 3.80183135779452*^9},
 CellLabel->
  "Out[298]=",ExpressionUUID->"04daeb8b-1dc6-418b-99a7-11afdcf2d17d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintAllMonodromy", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.7388847646742535`*^9, 3.7388847686639524`*^9}, 
   3.747399811826265*^9},
 CellLabel->
  "In[299]:=",ExpressionUUID->"5d22be30-e09e-4611-9fdf-738f50fa681f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "1", "0", "0"},
       {"1", "0", "0", "0"},
       {"0", "0", "0", "1"},
       {"0", "0", "1", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"},
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "1"},
       {"0", "0", "1", "0"},
       {"0", "1", "0", "0"},
       {"1", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"},
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "1", "0", "0"},
       {"1", "0", "0", "0"},
       {"0", "0", "0", "1"},
       {"0", "0", "1", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"},
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "1"},
       {"0", "0", "1", "0"},
       {"0", "1", "0", "0"},
       {"1", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"},
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{3.7500178596391764`*^9, 3.7500180217191086`*^9, 
  3.7500183815468345`*^9, 3.750157528032305*^9, 3.7503403114891605`*^9, 
  3.750376740064511*^9, 3.7503776519970875`*^9, 3.750378022578432*^9, 
  3.752520824583373*^9, 3.7539142594226065`*^9, 3.80183135788205*^9},
 CellLabel->
  "Out[299]=",ExpressionUUID->"65e5a715-812d-4340-9ffd-aec308040ae4"]
}, Open  ]]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["The Tesseract or the 4-Hypercube", "Subsection",
 CellChangeTimes->{{3.7385031508417664`*^9, 3.7385031536739283`*^9}, {
  3.7389367686626525`*^9, 
  3.7389367720058436`*^9}},ExpressionUUID->"a533c7d1-b372-44bf-99df-\
f38659be5ac0"],

Cell[CellGroupData[{

Cell["Generating the Adinkra", "Subsubsection",
 CellChangeTimes->{{3.738941150466277*^9, 
  3.738941154815526*^9}},ExpressionUUID->"baab48d3-2845-44c2-b87c-\
95ff34dded25"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Rep", " ", "=", " ", "Tesseract"}], ";"}]], "Input",
 CellChangeTimes->{{3.7385026188993406`*^9, 3.738502621711502*^9}},
 CellLabel->
  "In[300]:=",ExpressionUUID->"5ae8aa72-0e71-4833-aae6-f6d1b3fd4839"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"L", "[", "Rep", "]"}], "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"IdentityMatrix", "[", "8", "]"}], ",", 
     RowBox[{"SigmaMatrixProduct", "[", 
      RowBox[{"0", ",", 
       RowBox[{
        RowBox[{"L", "[", "ThreeHypercube", "]"}], "[", 
        RowBox[{"[", "2", "]"}], "]"}]}], "]"}], ",", 
     RowBox[{"SigmaMatrixProduct", "[", 
      RowBox[{"3", ",", 
       RowBox[{
        RowBox[{"L", "[", "ThreeHypercube", "]"}], "[", 
        RowBox[{"[", "3", "]"}], "]"}]}], "]"}], ",", 
     RowBox[{"SigmaMatrixProduct", "[", 
      RowBox[{"1", ",", 
       RowBox[{
        RowBox[{"L", "[", "ThreeHypercube", "]"}], "[", 
        RowBox[{"[", "3", "]"}], "]"}]}], "]"}]}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7389700752609224`*^9, 3.7389702038043575`*^9}, 
   3.7389702365408983`*^9, {3.7389702677115917`*^9, 3.738970267840222*^9}, {
   3.7389703952587185`*^9, 3.738970406729064*^9}, {3.738970460507343*^9, 
   3.7389704653224735`*^9}, {3.7389706128681464`*^9, 3.7389706159828043`*^9}},
 
 CellLabel->
  "In[301]:=",ExpressionUUID->"6966d13b-e33c-4fcf-9190-77ce8f71562d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintLSigmaProduct", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.738983651754552*^9, 3.738983656708165*^9}},
 CellLabel->
  "In[302]:=",ExpressionUUID->"11a74408-3459-40bd-b09c-acdcc6b3ae1b"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\<\"I\"\>", "\[CircleTimes]", "\<\"I\"\>", 
    "\[CircleTimes]", "\<\"I\"\>"}], ",", 
   RowBox[{"\[ImaginaryI]", " ", 
    RowBox[{"\<\"I\"\>", "\[CircleTimes]", 
     SubscriptBox["\[Sigma]", "3"], "\[CircleTimes]", 
     SubscriptBox["\[Sigma]", "2"]}]}], ",", 
   RowBox[{
    RowBox[{"-", "\[ImaginaryI]"}], " ", 
    RowBox[{
     SubscriptBox["\[Sigma]", "3"], "\[CircleTimes]", 
     SubscriptBox["\[Sigma]", "2"], "\[CircleTimes]", "\<\"I\"\>"}]}], ",", 
   RowBox[{
    RowBox[{"-", "\[ImaginaryI]"}], " ", 
    RowBox[{
     SubscriptBox["\[Sigma]", "1"], "\[CircleTimes]", 
     SubscriptBox["\[Sigma]", "2"], "\[CircleTimes]", "\<\"I\"\>"}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.750017859704152*^9, 3.750018021787053*^9, 
  3.7500183816499996`*^9, 3.75015752807353*^9, 3.7503403115516453`*^9, 
  3.7503767401363177`*^9, 3.750377652060952*^9, 3.750378022641301*^9, 
  3.752520824661167*^9, 3.7539142594850903`*^9, 3.801831358043971*^9},
 CellLabel->
  "Out[302]=",ExpressionUUID->"d3a4da79-2e95-4f0e-824d-4776ef86054c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"GenerateAdinkraDataO", "[", "Rep", "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.738503308817802*^9, 3.73850331945341*^9}, {
   3.742435457143194*^9, 3.742435462346158*^9}, 3.74244146053371*^9},
 CellLabel->
  "In[303]:=",ExpressionUUID->"68fe6666-7be0-4e5f-99a3-db1574f1b44f"],

Cell[BoxData["\<\"chi0, ncis, ntrans, VPM[pm], VtildePM[pm], L, R, GALR, \
GARL, V, Vtilde, ZetaGen, Holoraumy[Rep], Monodromy[Rep], ZetatildeGen, \
Holoraumytilde[Rep], Monodromytilde[Rep], cSoln[V], cSoln[Vtilde] are loaded \
for Rep = Tesseract\"\>"], "Print",
 CellChangeTimes->{3.750017859751768*^9, 3.7500180218322334`*^9, 
  3.7500183817299185`*^9, 3.750157528150886*^9, 3.7503403115985403`*^9, 
  3.750376740183193*^9, 3.750377652108819*^9, 3.7503780226881714`*^9, 
  3.752520824716019*^9, 3.753914259547592*^9, 3.801831358123333*^9},
 CellLabel->
  "During evaluation of \
In[303]:=",ExpressionUUID->"81e08c28-4729-49ac-855f-7a3aa8fef0f6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraReport", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.7385033449278674`*^9, 3.7385033497241416`*^9}, 
   3.750376676162185*^9},
 CellLabel->
  "In[304]:=",ExpressionUUID->"3d30964c-f82c-4eab-9873-a12759d18a9c"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"N = 4\"\>"},
    {"\<\"dbosons x dfermions = 8 \[Times] 8\"\>"},
    {"\<\"GATest = True\"\>"},
    {"\<\"InverseTest = True\"\>"},
    {"\<\"TransposeTest = True\"\>"},
    {"\<\"chi0 = \\!\\(\\*RowBox[{\\\"0\\\"}]\\), (ncis = \\!\\(\\*RowBox[{\\\
\"1\\\"}]\\), ntrans = \\!\\(\\*RowBox[{\\\"1\\\"}]\\))\"\>"}
   },
   DefaultBaseStyle->"Column",
   GridBoxAlignment->{"Columns" -> {{Left}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
  "Column"]], "Output",
 CellChangeTimes->{3.7500178601272373`*^9, 3.750018022203693*^9, 
  3.750018382128642*^9, 3.750157528501072*^9, 3.7503403120359373`*^9, 
  3.7503767402071624`*^9, 3.750377652126742*^9, 3.7503780227260685`*^9, 
  3.7525208247339716`*^9, 3.7539142595631995`*^9, 3.8018313581357403`*^9},
 CellLabel->
  "Out[304]=",ExpressionUUID->"6a165051-1ba2-4fe9-8839-f932304ac72f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraFullReport", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.73850436548024*^9, 3.7385043711275625`*^9}},
 CellLabel->
  "In[305]:=",ExpressionUUID->"3368ac4f-3889-4dc8-bd4e-039417cc434c"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     TagBox[GridBox[{
        {
         TagBox[GridBox[{
            {
             TagBox[GridBox[{
                {
                 TagBox[GridBox[{
                    {"\<\"N = 4\"\>"},
                    {"\<\"dbosons x dfermions = 8 \[Times] 8\"\>"},
                    {"\<\"GATest = True\"\>"},
                    {"\<\"InverseTest = True\"\>"},
                    {"\<\"TransposeTest = True\"\>"},
                    {"\<\"chi0 = \\!\\(\\*RowBox[{\\\"0\\\"}]\\), (ncis = \\!\
\\(\\*RowBox[{\\\"1\\\"}]\\), ntrans = \\!\\(\\*RowBox[{\\\"1\\\"}]\\))\"\>"}
                   },
                   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\"\>"},
        {"\<\"Allsu2MutuallyCommute = True\"\>"}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
       
       GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
      "Column"]},
    {"\<\"soNTest[VsoN] = True\"\>"},
    {"\<\"soNTest[VtildesoN] = True\"\>"},
    {"\<\"soNTest[VsoNPM[-1]] = True\"\>"},
    {"\<\"soNTest[VsoNPM[1]] = True\"\>"},
    {"\<\"soNTest[VtildesoNPM[-1]] = True\"\>"},
    {"\<\"soNTest[VtildesoNPM[1]] = True\"\>"},
    {"\<\"su2Test[VsoNPM[-1]] = True\"\>"},
    {"\<\"su2Test[VsoNPM[1]] = True\"\>"},
    {"\<\"VPM[1] and VPM[-1] mutually commute = True\"\>"},
    {"\<\"su2Test[VtildesoNPM[-1]] = True\"\>"},
    {"\<\"su2Test[VtildesoNPM[1]] = True\"\>"},
    {"\<\"VtildePM[1] and VtildePM[-1] mutually commute = True\"\>"}
   },
   DefaultBaseStyle->"Column",
   GridBoxAlignment->{"Columns" -> {{Left}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
  "Column"]], "Output",
 CellChangeTimes->{3.750017860949606*^9, 3.750018022942274*^9, 
  3.75001838283792*^9, 3.750157529245558*^9, 3.7503403128485546`*^9, 
  3.7503767402340565`*^9, 3.7503776530103793`*^9, 3.750378023572774*^9, 
  3.752520825450063*^9, 3.7539142603445797`*^9, 3.801831359090909*^9},
 CellLabel->
  "Out[305]=",ExpressionUUID->"903d4e76-00f2-41a0-b01b-63027532ab51"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Holoraumy: 16 distinct elements, Monodromy 8 distinct elements\
\>", "Subsubsection",
 CellChangeTimes->{{3.7385043281361036`*^9, 3.7385043312612824`*^9}, {
  3.738884756215666*^9, 3.738884757357658*^9}, {3.738887143801999*^9, 
  3.7388871508689747`*^9}, {3.7389361285370393`*^9, 
  3.738936165627161*^9}},ExpressionUUID->"e52b8a1a-71c9-404f-be1d-\
1e8ec4e3ab61"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintAllHoloraumy", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.738884741567878*^9, 3.7388847464140472`*^9}, 
   3.7473997240126443`*^9},
 CellLabel->
  "In[306]:=",ExpressionUUID->"5509f0a4-c608-4b92-add6-e0abd8371369"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1"},
       {"0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "1", "0", "0", "0", "0", "0", "0"},
       {
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "0", "0", "0", "0", "1", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1"},
       {"0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1"},
       {"0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0"},
       {
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0"},
       {"0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1"},
       {"0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0"},
       {
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0"},
       {
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1"},
       {
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1"},
       {"0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0", "0", "0", "0", "1"},
       {"0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0"},
       {
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "1", "0", "0", "0", "0"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0"},
       {
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{3.7500178609828377`*^9, 3.7500180229769564`*^9, 
  3.7500183828994584`*^9, 3.7501575293149986`*^9, 3.750340312879797*^9, 
  3.7503767402749796`*^9, 3.7503776530762033`*^9, 3.750378023605717*^9, 
  3.752520825491955*^9, 3.7539142604226866`*^9, 3.8018313592590218`*^9},
 CellLabel->
  "Out[306]=",ExpressionUUID->"d5c287f5-d940-4145-8c17-c59d25824c01"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintAllMonodromy", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.7388847646742535`*^9, 3.7388847686639524`*^9}, 
   3.747399813928256*^9},
 CellLabel->
  "In[307]:=",ExpressionUUID->"a32a8b1f-029a-43d4-bbd2-34bad504a41f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1"},
       {"0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1"},
       {"0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1"},
       {"1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "1", "0", "0", "0", "0", "0", "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1"},
       {"0", "0", "0", "0", "0", "0", "1", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0", "0", "0", "0", "1"},
       {"0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "1", "0", "0", "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1"},
       {"0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1"},
       {"0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1"},
       {"0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1"},
       {"0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1"},
       {"1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "1", "0", "0", "0", "0", "0", "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1"},
       {"0", "0", "0", "0", "0", "0", "1", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0", "0", "0", "0", "1"},
       {"0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "1", "0", "0", "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1"},
       {"0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1"},
       {"0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{3.7500178610131006`*^9, 3.7500180230172462`*^9, 
  3.7500183829327173`*^9, 3.7501575293467393`*^9, 3.750340312926647*^9, 
  3.75037674031188*^9, 3.75037765311611*^9, 3.750378023642618*^9, 
  3.752520825528991*^9, 3.753914260453972*^9, 3.801831359352293*^9},
 CellLabel->
  "Out[307]=",ExpressionUUID->"3c65002e-247c-4c3e-be7a-02bb4e3ff019"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FunctionList", "[", "AdinkraEssentials", "]"}]], "Input",
 CellChangeTimes->{{3.7473999085422115`*^9, 3.7473999216988993`*^9}},
 CellLabel->
  "In[308]:=",ExpressionUUID->"b46a3d01-b960-4381-a85d-22f9db7fce52"],

Cell[BoxData["\<\"IndexRange[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*****************************************\
***********************************************\"\>"], "Output",
 CellChangeTimes->{3.7500178610314445`*^9, 3.75001802303411*^9, 
  3.7500183829534903`*^9, 3.750157529360593*^9, 3.7503403129422774`*^9, 
  3.750376740338808*^9, 3.750377653146017*^9, 3.7503780236695156`*^9, 
  3.7525208255518413`*^9, 3.7539142604695807`*^9, 3.80183135936473*^9},
 CellLabel->
  "Out[308]=",ExpressionUUID->"d1571963-c51e-4f51-b8b4-11da0ab3d2c7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListOfIdenticalMonoOrHolo", "[", 
  RowBox[{"Holoraumy", ",", "Rep"}], "]"}]], "Input",
 CellChangeTimes->{{3.7389407099250793`*^9, 3.7389407184885693`*^9}, {
  3.738940757591806*^9, 3.7389407601369514`*^9}, {3.7473998970682507`*^9, 
  3.7473999020422926`*^9}, {3.7473999430585403`*^9, 3.747399957682172*^9}},
 CellLabel->
  "In[309]:=",ExpressionUUID->"a4a2b29f-f199-4821-8278-04bea415fbe2"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6", ",", "6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"7", ",", "7"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"8", ",", "8"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"9", ",", "9"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"10", ",", "10"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"11", ",", "11"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"12", ",", "12"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"13", ",", "13"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"14", ",", "14"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"15", ",", "15"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"16", ",", "16"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.750017861052313*^9, 3.750018023055973*^9, 
  3.750018382978287*^9, 3.750157529374529*^9, 3.7503403129579053`*^9, 
  3.7503767403657365`*^9, 3.7503776531669655`*^9, 3.7503780236894627`*^9, 
  3.7525208255767756`*^9, 3.7539142604851723`*^9, 3.801831359430451*^9},
 CellLabel->
  "Out[309]=",ExpressionUUID->"6812baf6-db2e-4587-984d-db135ee49edd"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListOfIdenticalMonoOrHolo", "[", 
  RowBox[{"Monodromy", ",", "Rep"}], "]"}]], "Input",
 CellChangeTimes->{{3.7389407283641343`*^9, 3.7389407311662946`*^9}, {
  3.738940763172125*^9, 3.7389407652492437`*^9}, {3.7473999669630346`*^9, 
  3.747399984091304*^9}},
 CellLabel->
  "In[310]:=",ExpressionUUID->"d2573cb9-61c1-4cae-a6c3-2065fa949c3f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "9"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "10"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "11"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "12"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "13"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6", ",", "6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6", ",", "14"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"7", ",", "7"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"7", ",", "15"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"8", ",", "8"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"8", ",", "16"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"9", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"9", ",", "9"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"10", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"10", ",", "10"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"11", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"11", ",", "11"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"12", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"12", ",", "12"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"13", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"13", ",", "13"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"14", ",", "6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"14", ",", "14"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"15", ",", "7"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"15", ",", "15"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"16", ",", "8"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"16", ",", "16"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.7500178610785646`*^9, 3.7500180230842085`*^9, 
  3.750018383001104*^9, 3.750157529394869*^9, 3.750340312989147*^9, 
  3.7503767403966255`*^9, 3.7503776531889052`*^9, 3.7503780237114353`*^9, 
  3.752520825600711*^9, 3.7539142605007944`*^9, 3.801831359439537*^9},
 CellLabel->
  "Out[310]=",ExpressionUUID->"cfb46a09-8199-45a2-8a55-e66d5f82e0de"]
}, Open  ]]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Another Tesseract or the 4-Hypercube", "Subsection",
 CellChangeTimes->{{3.7385031508417664`*^9, 3.7385031536739283`*^9}, {
  3.7389367686626525`*^9, 3.7389367720058436`*^9}, {3.7473994732096*^9, 
  3.7473994753700376`*^9}},ExpressionUUID->"23e93f90-151c-4f76-bbc7-\
93670522d291"],

Cell[CellGroupData[{

Cell["Generating the Adinkra", "Subsubsection",
 CellChangeTimes->{{3.738941150466277*^9, 
  3.738941154815526*^9}},ExpressionUUID->"d8f42185-b436-45ed-81b7-\
f2be69001d8b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Rep", " ", "=", " ", "AnotherTesseract"}], ";"}]], "Input",
 CellChangeTimes->{{3.7385026188993406`*^9, 3.738502621711502*^9}, {
  3.7473995136671143`*^9, 3.7473995142105002`*^9}},
 CellLabel->
  "In[311]:=",ExpressionUUID->"924a6fa6-9e26-4b81-b72e-446d8827f319"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"L", "[", "Rep", "]"}], "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"L", "[", "Tesseract", "]"}], "[", 
      RowBox[{"[", "4", "]"}], "]"}], ",", 
     RowBox[{
      RowBox[{"L", "[", "Tesseract", "]"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}], ",", 
     RowBox[{
      RowBox[{"L", "[", "Tesseract", "]"}], "[", 
      RowBox[{"[", "2", "]"}], "]"}], ",", 
     RowBox[{
      RowBox[{"L", "[", "Tesseract", "]"}], "[", 
      RowBox[{"[", "3", "]"}], "]"}]}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7389700752609224`*^9, 3.7389702038043575`*^9}, 
   3.7389702365408983`*^9, {3.7389702677115917`*^9, 3.738970267840222*^9}, {
   3.7389703952587185`*^9, 3.738970406729064*^9}, {3.738970460507343*^9, 
   3.7389704653224735`*^9}, {3.7389706128681464`*^9, 
   3.7389706159828043`*^9}, {3.7473995185155478`*^9, 3.7473995356352367`*^9}},
 
 CellLabel->
  "In[312]:=",ExpressionUUID->"9ad4bb50-a902-46e4-a452-650256eb12a3"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintLSigmaProduct", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.738983651754552*^9, 3.738983656708165*^9}},
 CellLabel->
  "In[313]:=",ExpressionUUID->"1c9a9023-0798-4c84-97fe-bd4341e06e40"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"-", "\[ImaginaryI]"}], " ", 
    RowBox[{
     SubscriptBox["\[Sigma]", "1"], "\[CircleTimes]", 
     SubscriptBox["\[Sigma]", "2"], "\[CircleTimes]", "\<\"I\"\>"}]}], ",", 
   RowBox[{"\<\"I\"\>", "\[CircleTimes]", "\<\"I\"\>", 
    "\[CircleTimes]", "\<\"I\"\>"}], ",", 
   RowBox[{"\[ImaginaryI]", " ", 
    RowBox[{"\<\"I\"\>", "\[CircleTimes]", 
     SubscriptBox["\[Sigma]", "3"], "\[CircleTimes]", 
     SubscriptBox["\[Sigma]", "2"]}]}], ",", 
   RowBox[{
    RowBox[{"-", "\[ImaginaryI]"}], " ", 
    RowBox[{
     SubscriptBox["\[Sigma]", "3"], "\[CircleTimes]", 
     SubscriptBox["\[Sigma]", "2"], "\[CircleTimes]", "\<\"I\"\>"}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.7500178611450324`*^9, 3.750018023153206*^9, 
  3.750018383104769*^9, 3.750157529443427*^9, 3.7503403130516324`*^9, 
  3.7503767404684563`*^9, 3.750377653256774*^9, 3.7503780237892323`*^9, 
  3.752520825689473*^9, 3.7539142605476885`*^9, 3.801831359591221*^9},
 CellLabel->
  "Out[313]=",ExpressionUUID->"ed10ee9c-9470-480e-814c-4b5eb1108a94"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"GenerateAdinkraDataO", "[", "Rep", "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.738503308817802*^9, 3.73850331945341*^9}, {
   3.742435457143194*^9, 3.742435462346158*^9}, 3.74244146053371*^9},
 CellLabel->
  "In[314]:=",ExpressionUUID->"ed179336-fd70-425c-a94e-737fc3d7d433"],

Cell[BoxData["\<\"chi0, ncis, ntrans, VPM[pm], VtildePM[pm], L, R, GALR, \
GARL, V, Vtilde, ZetaGen, Holoraumy[Rep], Monodromy[Rep], ZetatildeGen, \
Holoraumytilde[Rep], Monodromytilde[Rep], cSoln[V], cSoln[Vtilde] are loaded \
for Rep = AnotherTesseract\"\>"], "Print",
 CellChangeTimes->{3.7500178612438383`*^9, 3.750018023214772*^9, 
  3.750018383182145*^9, 3.7501575295198603`*^9, 3.750340313161215*^9, 
  3.7503767405283055`*^9, 3.750377653307623*^9, 3.7503780238380904`*^9, 
  3.752520825749312*^9, 3.753914260610143*^9, 3.8018313596686707`*^9},
 CellLabel->
  "During evaluation of \
In[314]:=",ExpressionUUID->"dfaf7585-d71f-4593-a2ae-581579e5d995"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraReport", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.7385033449278674`*^9, 3.7385033497241416`*^9}, 
   3.7503766790035934`*^9},
 CellLabel->
  "In[315]:=",ExpressionUUID->"9fb26d5a-9dc4-4eb7-8860-e61bd2b77ce9"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"N = 4\"\>"},
    {"\<\"dbosons x dfermions = 8 \[Times] 8\"\>"},
    {"\<\"GATest = True\"\>"},
    {"\<\"InverseTest = True\"\>"},
    {"\<\"TransposeTest = True\"\>"},
    {"\<\"chi0 = \\!\\(\\*RowBox[{\\\"0\\\"}]\\), (ncis = \\!\\(\\*RowBox[{\\\
\"1\\\"}]\\), ntrans = \\!\\(\\*RowBox[{\\\"1\\\"}]\\))\"\>"}
   },
   DefaultBaseStyle->"Column",
   GridBoxAlignment->{"Columns" -> {{Left}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
  "Column"]], "Output",
 CellChangeTimes->{3.7500178616322527`*^9, 3.750018023616041*^9, 
  3.7500183835551357`*^9, 3.7501575299002895`*^9, 3.7503403135830207`*^9, 
  3.7503767405522375`*^9, 3.750377653324567*^9, 3.750378023855019*^9, 
  3.7525208257772474`*^9, 3.7539142606257896`*^9, 3.801831359748703*^9},
 CellLabel->
  "Out[315]=",ExpressionUUID->"8c745c4c-559d-4ff9-a115-f141a26204a7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraFullReport", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.73850436548024*^9, 3.7385043711275625`*^9}},
 CellLabel->
  "In[316]:=",ExpressionUUID->"25b2fe9b-6e56-4c92-8169-e785349b2277"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     TagBox[GridBox[{
        {
         TagBox[GridBox[{
            {
             TagBox[GridBox[{
                {
                 TagBox[GridBox[{
                    {"\<\"N = 4\"\>"},
                    {"\<\"dbosons x dfermions = 8 \[Times] 8\"\>"},
                    {"\<\"GATest = True\"\>"},
                    {"\<\"InverseTest = True\"\>"},
                    {"\<\"TransposeTest = True\"\>"},
                    {"\<\"chi0 = \\!\\(\\*RowBox[{\\\"0\\\"}]\\), (ncis = \\!\
\\(\\*RowBox[{\\\"1\\\"}]\\), ntrans = \\!\\(\\*RowBox[{\\\"1\\\"}]\\))\"\>"}
                   },
                   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\"\>"},
        {"\<\"Allsu2MutuallyCommute = True\"\>"}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
       
       GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
      "Column"]},
    {"\<\"soNTest[VsoN] = True\"\>"},
    {"\<\"soNTest[VtildesoN] = True\"\>"},
    {"\<\"soNTest[VsoNPM[-1]] = True\"\>"},
    {"\<\"soNTest[VsoNPM[1]] = True\"\>"},
    {"\<\"soNTest[VtildesoNPM[-1]] = True\"\>"},
    {"\<\"soNTest[VtildesoNPM[1]] = True\"\>"},
    {"\<\"su2Test[VsoNPM[-1]] = True\"\>"},
    {"\<\"su2Test[VsoNPM[1]] = True\"\>"},
    {"\<\"VPM[1] and VPM[-1] mutually commute = True\"\>"},
    {"\<\"su2Test[VtildesoNPM[-1]] = True\"\>"},
    {"\<\"su2Test[VtildesoNPM[1]] = True\"\>"},
    {"\<\"VtildePM[1] and VtildePM[-1] mutually commute = True\"\>"}
   },
   DefaultBaseStyle->"Column",
   GridBoxAlignment->{"Columns" -> {{Left}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
  "Column"]], "Output",
 CellChangeTimes->{3.7500178623494225`*^9, 3.750018024320356*^9, 
  3.7500183842659035`*^9, 3.75015753058076*^9, 3.7503403143644176`*^9, 
  3.7503767405791354`*^9, 3.75037765420319*^9, 3.7503780246948056`*^9, 
  3.7525208264970493`*^9, 3.7539142613915677`*^9, 3.801831360776312*^9},
 CellLabel->
  "Out[316]=",ExpressionUUID->"9c1fa7d8-eb7b-4ef0-84e2-3d7791fc34cf"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Holoraumy: 16 distinct elements, Monodromy 8 distinct elements\
\>", "Subsubsection",
 CellChangeTimes->{{3.7385043281361036`*^9, 3.7385043312612824`*^9}, {
  3.738884756215666*^9, 3.738884757357658*^9}, {3.738887143801999*^9, 
  3.7388871508689747`*^9}, {3.7389361285370393`*^9, 
  3.738936165627161*^9}},ExpressionUUID->"dbbe9470-4c76-434a-943a-\
032a3153baec"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintAllHoloraumy", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.738884741567878*^9, 3.7388847464140472`*^9}, 
   3.7473997263126264`*^9},
 CellLabel->
  "In[317]:=",ExpressionUUID->"899be617-1393-4ddc-819a-5ebda990ce2c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1"},
       {
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0", "0", "0", "0", "1"},
       {"0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0"},
       {
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1"},
       {"0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1"},
       {"0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0"},
       {
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1"},
       {"0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "1", "0", "0", "0", "0", "0", "0"},
       {
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "0", "0", "0", "0", "1", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0"},
       {"0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "1", "0", "0", "0", "0"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0"},
       {
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0"},
       {
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1"},
       {"0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1"},
       {"0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0"},
       {
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{3.7500178624040194`*^9, 3.7500180243739233`*^9, 
  3.7500183843840613`*^9, 3.750157530664628*^9, 3.7503403144269094`*^9, 
  3.750376740618063*^9, 3.750377654269015*^9, 3.750378024731707*^9, 
  3.7525208265360084`*^9, 3.753914261485297*^9, 3.801831360882732*^9},
 CellLabel->
  "Out[317]=",ExpressionUUID->"9a64598a-4738-46f0-839a-84040a000d41"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintAllMonodromy", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.7388847646742535`*^9, 3.7388847686639524`*^9}, 
   3.747399816708432*^9},
 CellLabel->
  "In[318]:=",ExpressionUUID->"5afff6cf-2f84-4514-bb37-0a653a825abb"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1"},
       {"1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0", "0", "0", "0", "1"},
       {"0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "1", "0", "0", "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1"},
       {"0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1"},
       {"0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1"},
       {"0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "1", "0", "0", "0", "0", "0", "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1"},
       {"0", "0", "0", "0", "0", "0", "1", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1"},
       {"0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1"},
       {"1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0", "0", "0", "0", "1"},
       {"0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "1", "0", "0", "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1"},
       {"0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1"},
       {"0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1"},
       {"0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "1", "0", "0", "0", "0", "0", "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1"},
       {"0", "0", "0", "0", "0", "0", "1", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1"},
       {"0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{3.750017862434735*^9, 3.7500180244051867`*^9, 
  3.7500183844178314`*^9, 3.750157530694381*^9, 3.750340314458153*^9, 
  3.750376740656958*^9, 3.7503776543099055`*^9, 3.7503780247875576`*^9, 
  3.7525208265778737`*^9, 3.7539142615165415`*^9, 3.801831360958967*^9},
 CellLabel->
  "Out[318]=",ExpressionUUID->"4f6f1a71-e710-4489-bd1a-3858903fda3f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListOfIdenticalMonoOrHolo", "[", 
  RowBox[{"Holoraumy", ",", "Rep"}], "]"}]], "Input",
 CellChangeTimes->{{3.7389407099250793`*^9, 3.7389407184885693`*^9}, {
  3.738940757591806*^9, 3.7389407601369514`*^9}, {3.7474001078912926`*^9, 
  3.7474001099017224`*^9}},
 CellLabel->
  "In[319]:=",ExpressionUUID->"caf7e3be-d694-4595-8617-f95c0cfb1866"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6", ",", "6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"7", ",", "7"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"8", ",", "8"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"9", ",", "9"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"10", ",", "10"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"11", ",", "11"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"12", ",", "12"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"13", ",", "13"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"14", ",", "14"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"15", ",", "15"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"16", ",", "16"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.750017862462014*^9, 3.7500180244230275`*^9, 
  3.750018384442754*^9, 3.7501575307112722`*^9, 3.750340314489395*^9, 
  3.750376740683854*^9, 3.750377654335836*^9, 3.750378024813488*^9, 
  3.752520826602768*^9, 3.7539142615321364`*^9, 3.801831360970962*^9},
 CellLabel->
  "Out[319]=",ExpressionUUID->"7f48f33f-ad75-420f-957d-2884706507da"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListOfIdenticalMonoOrHolo", "[", 
  RowBox[{"Monodromy", ",", "Rep"}], "]"}]], "Input",
 CellChangeTimes->{{3.7389407283641343`*^9, 3.7389407311662946`*^9}, {
   3.738940763172125*^9, 3.7389407652492437`*^9}, 3.7474001312357984`*^9},
 CellLabel->
  "In[320]:=",ExpressionUUID->"7ab110a9-662e-439d-9502-311cbb40c897"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "9"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "10"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "11"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "12"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "13"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6", ",", "6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6", ",", "14"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"7", ",", "7"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"7", ",", "15"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"8", ",", "8"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"8", ",", "16"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"9", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"9", ",", "9"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"10", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"10", ",", "10"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"11", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"11", ",", "11"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"12", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"12", ",", "12"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"13", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"13", ",", "13"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"14", ",", "6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"14", ",", "14"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"15", ",", "7"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"15", ",", "15"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"16", ",", "8"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"16", ",", "16"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.750017862483403*^9, 3.750018024450346*^9, 
  3.750018384464576*^9, 3.7501575307291164`*^9, 3.750340314505015*^9, 
  3.750376740712778*^9, 3.750377654355815*^9, 3.750378024836396*^9, 
  3.7525208266284533`*^9, 3.753914261547783*^9, 3.8018313610503197`*^9},
 CellLabel->
  "Out[320]=",ExpressionUUID->"72113c94-6b31-41c5-811a-828d23b51db3"]
}, Open  ]]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["YetAnother Tesseract or the 4-Hypercube", "Subsection",
 CellChangeTimes->{{3.7385031508417664`*^9, 3.7385031536739283`*^9}, {
  3.7389367686626525`*^9, 3.7389367720058436`*^9}, {3.7473994732096*^9, 
  3.7473994753700376`*^9}, {3.7473995462503557`*^9, 
  3.7473995469542704`*^9}},ExpressionUUID->"0e005124-899f-4c98-87a5-\
8caa259be770"],

Cell[CellGroupData[{

Cell["Generating the Adinkra", "Subsubsection",
 CellChangeTimes->{{3.738941150466277*^9, 
  3.738941154815526*^9}},ExpressionUUID->"278964cf-eec5-43fa-a0c2-\
2f140d055a61"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Rep", " ", "=", " ", "YetAnotherTesseract"}], ";"}]], "Input",
 CellChangeTimes->{{3.7385026188993406`*^9, 3.738502621711502*^9}, {
  3.7473995136671143`*^9, 3.7473995142105002`*^9}, {3.7473995556823406`*^9, 
  3.747399555978488*^9}},
 CellLabel->
  "In[321]:=",ExpressionUUID->"8ec23522-1ca7-4924-bf3a-796ac987da6d"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"L", "[", "Rep", "]"}], "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"L", "[", "Tesseract", "]"}], "[", 
      RowBox[{"[", "2", "]"}], "]"}], ",", 
     RowBox[{
      RowBox[{"L", "[", "Tesseract", "]"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}], ",", 
     RowBox[{
      RowBox[{"L", "[", "Tesseract", "]"}], "[", 
      RowBox[{"[", "4", "]"}], "]"}], ",", 
     RowBox[{
      RowBox[{"L", "[", "Tesseract", "]"}], "[", 
      RowBox[{"[", "3", "]"}], "]"}]}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7389700752609224`*^9, 3.7389702038043575`*^9}, 
   3.7389702365408983`*^9, {3.7389702677115917`*^9, 3.738970267840222*^9}, {
   3.7389703952587185`*^9, 3.738970406729064*^9}, {3.738970460507343*^9, 
   3.7389704653224735`*^9}, {3.7389706128681464`*^9, 
   3.7389706159828043`*^9}, {3.7473995185155478`*^9, 3.747399562044187*^9}},
 CellLabel->
  "In[322]:=",ExpressionUUID->"63871af7-a73c-4128-a593-cb71690947e3"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintLSigmaProduct", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.738983651754552*^9, 3.738983656708165*^9}},
 CellLabel->
  "In[323]:=",ExpressionUUID->"67482dc2-7aba-4421-9634-f1d0ca679604"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\[ImaginaryI]", " ", 
    RowBox[{"\<\"I\"\>", "\[CircleTimes]", 
     SubscriptBox["\[Sigma]", "3"], "\[CircleTimes]", 
     SubscriptBox["\[Sigma]", "2"]}]}], ",", 
   RowBox[{"\<\"I\"\>", "\[CircleTimes]", "\<\"I\"\>", 
    "\[CircleTimes]", "\<\"I\"\>"}], ",", 
   RowBox[{
    RowBox[{"-", "\[ImaginaryI]"}], " ", 
    RowBox[{
     SubscriptBox["\[Sigma]", "1"], "\[CircleTimes]", 
     SubscriptBox["\[Sigma]", "2"], "\[CircleTimes]", "\<\"I\"\>"}]}], ",", 
   RowBox[{
    RowBox[{"-", "\[ImaginaryI]"}], " ", 
    RowBox[{
     SubscriptBox["\[Sigma]", "3"], "\[CircleTimes]", 
     SubscriptBox["\[Sigma]", "2"], "\[CircleTimes]", "\<\"I\"\>"}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.7500178625478225`*^9, 3.750018024513339*^9, 
  3.750018384569503*^9, 3.7501575308129964`*^9, 3.7503403145674715`*^9, 
  3.7503767408214946`*^9, 3.7503776544236317`*^9, 3.750378024904247*^9, 
  3.7525208267077703`*^9, 3.753914261625894*^9, 3.801831361229665*^9},
 CellLabel->
  "Out[323]=",ExpressionUUID->"62ae1ce5-4254-4d67-8028-6084a437ecb6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"GenerateAdinkraDataO", "[", "Rep", "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.738503308817802*^9, 3.73850331945341*^9}, {
   3.742435457143194*^9, 3.742435462346158*^9}, 3.74244146053371*^9},
 CellLabel->
  "In[324]:=",ExpressionUUID->"6ef7fce0-0c1c-4cd8-809b-1c5d86f776e9"],

Cell[BoxData["\<\"chi0, ncis, ntrans, VPM[pm], VtildePM[pm], L, R, GALR, \
GARL, V, Vtilde, ZetaGen, Holoraumy[Rep], Monodromy[Rep], ZetatildeGen, \
Holoraumytilde[Rep], Monodromytilde[Rep], cSoln[V], cSoln[Vtilde] are loaded \
for Rep = YetAnotherTesseract\"\>"], "Print",
 CellChangeTimes->{3.7500178626033745`*^9, 3.750018024581789*^9, 
  3.750018384648863*^9, 3.750157530896836*^9, 3.7503403146143675`*^9, 
  3.7503767408683925`*^9, 3.7503776544724717`*^9, 3.750378024960065*^9, 
  3.7525208267726*^9, 3.753914261688374*^9, 3.801831361310484*^9},
 CellLabel->
  "During evaluation of \
In[324]:=",ExpressionUUID->"62e058c7-10f0-43da-9c1b-190d626067b2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraReport", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.7385033449278674`*^9, 3.7385033497241416`*^9}, 
   3.7503766804028206`*^9},
 CellLabel->
  "In[325]:=",ExpressionUUID->"cbfcb9aa-ac39-48c6-bba4-a43fac7c82bc"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"N = 4\"\>"},
    {"\<\"dbosons x dfermions = 8 \[Times] 8\"\>"},
    {"\<\"GATest = True\"\>"},
    {"\<\"InverseTest = True\"\>"},
    {"\<\"TransposeTest = True\"\>"},
    {"\<\"chi0 = \\!\\(\\*RowBox[{\\\"0\\\"}]\\), (ncis = \\!\\(\\*RowBox[{\\\
\"1\\\"}]\\), ntrans = \\!\\(\\*RowBox[{\\\"1\\\"}]\\))\"\>"}
   },
   DefaultBaseStyle->"Column",
   GridBoxAlignment->{"Columns" -> {{Left}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
  "Column"]], "Output",
 CellChangeTimes->{3.7500178629793773`*^9, 3.7500180249748025`*^9, 
  3.7500183850228453`*^9, 3.7501575312524557`*^9, 3.7503403150517635`*^9, 
  3.750376740893326*^9, 3.750377654489456*^9, 3.7503780249770193`*^9, 
  3.752520826797534*^9, 3.7539142617508297`*^9, 3.801831361382897*^9},
 CellLabel->
  "Out[325]=",ExpressionUUID->"660a868d-e095-42ce-9ba5-ab5e67df05f3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraFullReport", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.73850436548024*^9, 3.7385043711275625`*^9}},
 CellLabel->
  "In[326]:=",ExpressionUUID->"e5fa3cb8-03ac-4ec8-8014-4232930f16e5"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     TagBox[GridBox[{
        {
         TagBox[GridBox[{
            {
             TagBox[GridBox[{
                {
                 TagBox[GridBox[{
                    {"\<\"N = 4\"\>"},
                    {"\<\"dbosons x dfermions = 8 \[Times] 8\"\>"},
                    {"\<\"GATest = True\"\>"},
                    {"\<\"InverseTest = True\"\>"},
                    {"\<\"TransposeTest = True\"\>"},
                    {"\<\"chi0 = \\!\\(\\*RowBox[{\\\"0\\\"}]\\), (ncis = \\!\
\\(\\*RowBox[{\\\"1\\\"}]\\), ntrans = \\!\\(\\*RowBox[{\\\"1\\\"}]\\))\"\>"}
                   },
                   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\"\>"},
        {"\<\"Allsu2MutuallyCommute = True\"\>"}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
       
       GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
      "Column"]},
    {"\<\"soNTest[VsoN] = True\"\>"},
    {"\<\"soNTest[VtildesoN] = True\"\>"},
    {"\<\"soNTest[VsoNPM[-1]] = True\"\>"},
    {"\<\"soNTest[VsoNPM[1]] = True\"\>"},
    {"\<\"soNTest[VtildesoNPM[-1]] = True\"\>"},
    {"\<\"soNTest[VtildesoNPM[1]] = True\"\>"},
    {"\<\"su2Test[VsoNPM[-1]] = True\"\>"},
    {"\<\"su2Test[VsoNPM[1]] = True\"\>"},
    {"\<\"VPM[1] and VPM[-1] mutually commute = True\"\>"},
    {"\<\"su2Test[VtildesoNPM[-1]] = True\"\>"},
    {"\<\"su2Test[VtildesoNPM[1]] = True\"\>"},
    {"\<\"VtildePM[1] and VtildePM[-1] mutually commute = True\"\>"}
   },
   DefaultBaseStyle->"Column",
   GridBoxAlignment->{"Columns" -> {{Left}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
  "Column"]], "Output",
 CellChangeTimes->{3.750017863701084*^9, 3.7500180257083855`*^9, 
  3.750018385737129*^9, 3.7501575319632177`*^9, 3.750340315848731*^9, 
  3.750376740918229*^9, 3.7503776553491273`*^9, 3.750378025835724*^9, 
  3.7525208275136423`*^9, 3.753914262501068*^9, 3.8018313623735323`*^9},
 CellLabel->
  "Out[326]=",ExpressionUUID->"b5da5a34-38b1-4bf9-a819-f696b7f1609c"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Holoraumy: 16 distinct elements, Monodromy 8 distinct elements\
\>", "Subsubsection",
 CellChangeTimes->{{3.7385043281361036`*^9, 3.7385043312612824`*^9}, {
  3.738884756215666*^9, 3.738884757357658*^9}, {3.738887143801999*^9, 
  3.7388871508689747`*^9}, {3.7389361285370393`*^9, 
  3.738936165627161*^9}},ExpressionUUID->"e3f38332-56de-4974-9e9e-\
06b12a3373cd"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintAllHoloraumy", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.738884741567878*^9, 3.7388847464140472`*^9}, 
   3.7473997282264223`*^9},
 CellLabel->
  "In[327]:=",ExpressionUUID->"5d9e4a9e-f9b8-4bd2-bc81-3fd15ec343d2"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1"},
       {"0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1"},
       {
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1"},
       {"0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1"},
       {"0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1"},
       {"0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0"},
       {
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0"},
       {"0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "1", "0", "0", "0", "0"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0"},
       {
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0", "0", "0", "0", "1"},
       {"0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0"},
       {
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "1", "0", "0", "0", "0", "0", "0"},
       {
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "0", "0", "0", "0", "1", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0"},
       {
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1"},
       {"0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0"},
       {
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{3.7500178637828617`*^9, 3.750018025768444*^9, 
  3.7500183858494835`*^9, 3.750157532030676*^9, 3.7503403159112353`*^9, 
  3.750376740961139*^9, 3.750377655419939*^9, 3.750378025888583*^9, 
  3.7525208275545726`*^9, 3.7539142625947948`*^9, 3.801831362464219*^9},
 CellLabel->
  "Out[327]=",ExpressionUUID->"64e35048-db0b-4fc7-8d44-0e62dcae7b87"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintAllMonodromy", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.7388847646742535`*^9, 3.7388847686639524`*^9}, 
   3.747399818508487*^9},
 CellLabel->
  "In[328]:=",ExpressionUUID->"07f78801-dc0e-47f9-9b57-d6e09d131cf7"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "1", "0", "0", "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1"},
       {"0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0", "0", "0", "0", "1"},
       {"0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1"},
       {"1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "1", "0", "0", "0", "0", "0", "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1"},
       {"0", "0", "0", "0", "0", "0", "1", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1"},
       {"0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1"},
       {"0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1"},
       {"0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "1", "0", "0", "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1"},
       {"0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0", "0", "0", "0", "1"},
       {"0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1"},
       {"1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "1", "0", "0", "0", "0", "0", "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1"},
       {"0", "0", "0", "0", "0", "0", "1", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1"},
       {"0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1"},
       {"0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1"},
       {"0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{3.750017863816094*^9, 3.750018025800145*^9, 
  3.7500183858832054`*^9, 3.750157532061922*^9, 3.7503403159424834`*^9, 
  3.750376741000046*^9, 3.750377655461864*^9, 3.750378025926502*^9, 
  3.752520827595423*^9, 3.753914262657283*^9, 3.80183136253448*^9},
 CellLabel->
  "Out[328]=",ExpressionUUID->"5c9ac53c-05bd-4893-b88d-4625f5b5d4ca"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListOfIdenticalMonoOrHolo", "[", 
  RowBox[{"Holoraumy", ",", "Rep"}], "]"}]], "Input",
 CellChangeTimes->{{3.7389407099250793`*^9, 3.7389407184885693`*^9}, {
  3.738940757591806*^9, 3.7389407601369514`*^9}, {3.747400153435173*^9, 
  3.7474001592983947`*^9}},
 CellLabel->
  "In[329]:=",ExpressionUUID->"078edd3a-7428-4503-a556-9d18e249056c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6", ",", "6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"7", ",", "7"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"8", ",", "8"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"9", ",", "9"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"10", ",", "10"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"11", ",", "11"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"12", ",", "12"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"13", ",", "13"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"14", ",", "14"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"15", ",", "15"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"16", ",", "16"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.75001786383792*^9, 3.7500180258180017`*^9, 
  3.750018385909989*^9, 3.7501575320753126`*^9, 3.7503403159737215`*^9, 
  3.750376741027966*^9, 3.7503776554887877`*^9, 3.7503780259574304`*^9, 
  3.7525208276193576`*^9, 3.753914262672925*^9, 3.801831362548315*^9},
 CellLabel->
  "Out[329]=",ExpressionUUID->"b481f793-d942-47c9-ad47-2c37018c4eea"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListOfIdenticalMonoOrHolo", "[", 
  RowBox[{"Monodromy", ",", "Rep"}], "]"}]], "Input",
 CellChangeTimes->{{3.7389407283641343`*^9, 3.7389407311662946`*^9}, {
   3.738940763172125*^9, 3.7389407652492437`*^9}, 3.747400164652076*^9},
 CellLabel->
  "In[330]:=",ExpressionUUID->"684cd099-6559-4208-b8c9-d93cd1022f9f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "9"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "10"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "11"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "12"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "13"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6", ",", "6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6", ",", "14"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"7", ",", "7"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"7", ",", "15"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"8", ",", "8"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"8", ",", "16"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"9", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"9", ",", "9"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"10", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"10", ",", "10"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"11", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"11", ",", "11"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"12", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"12", ",", "12"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"13", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"13", ",", "13"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"14", ",", "6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"14", ",", "14"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"15", ",", "7"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"15", ",", "15"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"16", ",", "8"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"16", ",", "16"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.750017863860734*^9, 3.7500180258393297`*^9, 
  3.7500183859362793`*^9, 3.7501575320965996`*^9, 3.750340315989337*^9, 
  3.7503767410598803`*^9, 3.750377655508731*^9, 3.7503780259823637`*^9, 
  3.7525208276462903`*^9, 3.7539142626885242`*^9, 3.801831362612486*^9},
 CellLabel->
  "Out[330]=",ExpressionUUID->"bdab02ad-003f-4b5f-8e14-ecb247a08309"]
}, Open  ]]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["(4,1) Adinkra", "Subsection",
 CellChangeTimes->{{3.7385031508417664`*^9, 3.7385031536739283`*^9}, {
  3.738885135476967*^9, 
  3.7388851378951063`*^9}},ExpressionUUID->"3bd121dc-4fd5-4ec3-a424-\
9b70822ae3c6"],

Cell[CellGroupData[{

Cell["Generating the Adinkra", "Subsubsection",
 CellChangeTimes->{{3.738941150466277*^9, 
  3.738941154815526*^9}},ExpressionUUID->"6caa12bb-cf3e-47d6-8d5c-\
b200365b1787"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Rep", " ", "=", " ", "41"}], ";"}]], "Input",
 CellChangeTimes->{{3.7388862164349103`*^9, 3.738886218385022*^9}},
 CellLabel->
  "In[331]:=",ExpressionUUID->"f4b68ee1-5762-46c5-84e3-eedf4f1e2da9"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"L", "[", "Rep", "]"}], " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"L", "[", "ThreeHypercube", "]"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}], ",", 
     RowBox[{
      RowBox[{"L", "[", "ThreeHypercube", "]"}], "[", 
      RowBox[{"[", "2", "]"}], "]"}], ",", 
     RowBox[{
      RowBox[{"L", "[", "ThreeHypercube", "]"}], "[", 
      RowBox[{"[", "3", "]"}], "]"}], ",", 
     RowBox[{"I", " ", 
      RowBox[{"SigmaProduct", "[", 
       RowBox[{"1", ",", "2"}], "]"}]}]}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7389706628864517`*^9, 3.738970665045682*^9}, {
  3.738971373386629*^9, 3.7389714438293715`*^9}, {3.738971530708213*^9, 
  3.7389715439308805`*^9}},
 CellLabel->
  "In[332]:=",ExpressionUUID->"c9e6bc9a-213a-46b9-9d8b-b419a12937ec"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintLSigmaProduct", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.7389836838511815`*^9, 3.7389836895238023`*^9}},
 CellLabel->
  "In[333]:=",ExpressionUUID->"d50fa066-e7c3-4f54-bf3a-fcd3410feea6"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\<\"I\"\>", "\[CircleTimes]", "\<\"I\"\>"}], ",", 
   RowBox[{"\[ImaginaryI]", " ", 
    RowBox[{
     SubscriptBox["\[Sigma]", "3"], "\[CircleTimes]", 
     SubscriptBox["\[Sigma]", "2"]}]}], ",", 
   RowBox[{
    RowBox[{"-", "\[ImaginaryI]"}], " ", 
    RowBox[{
     SubscriptBox["\[Sigma]", "2"], "\[CircleTimes]", "\<\"I\"\>"}]}], ",", 
   RowBox[{"\[ImaginaryI]", " ", 
    RowBox[{
     SubscriptBox["\[Sigma]", "1"], "\[CircleTimes]", 
     SubscriptBox["\[Sigma]", "2"]}]}]}], "}"}]], "Output",
 CellChangeTimes->{3.7500178639133224`*^9, 3.750018025887975*^9, 
  3.750018385986375*^9, 3.7501575321292715`*^9, 3.7503403160518284`*^9, 
  3.7503767411306868`*^9, 3.75037765555757*^9, 3.7503780260312333`*^9, 
  3.752520827726593*^9, 3.753914262719736*^9, 3.801831362694833*^9},
 CellLabel->
  "Out[333]=",ExpressionUUID->"4498de60-03c5-4506-b1f8-0d301a816d50"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"GenerateAdinkraDataO", "[", "Rep", "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.738503308817802*^9, 3.73850331945341*^9}, {
  3.74243865632836*^9, 3.742438664845175*^9}},
 CellLabel->
  "In[334]:=",ExpressionUUID->"c2b4b6bd-b94c-42b6-a075-d86d259875c9"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    334, 98, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.75001786395051*^9, 3.7500180259469624`*^9, 
  3.7500183860746613`*^9, 3.750157532200165*^9, 3.7503403160830407`*^9, 
  3.7503767411675615`*^9, 3.750377655596466*^9, 3.75037802608011*^9, 
  3.7525208277575026`*^9, 3.7539142627822204`*^9, 3.801831362765497*^9},
 CellLabel->
  "During evaluation of \
In[334]:=",ExpressionUUID->"a40a99ef-080c-4859-ba27-d8d2b78df583"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    334, 99, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.75001786395051*^9, 3.7500180259469624`*^9, 
  3.7500183860746613`*^9, 3.750157532200165*^9, 3.7503403160830407`*^9, 
  3.7503767411675615`*^9, 3.750377655596466*^9, 3.75037802608011*^9, 
  3.7525208277575026`*^9, 3.7539142627822204`*^9, 3.8018313627670603`*^9},
 CellLabel->
  "During evaluation of \
In[334]:=",ExpressionUUID->"ad304d36-d07c-440d-8576-20bee3a252f6"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    334, 100, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.75001786395051*^9, 3.7500180259469624`*^9, 
  3.7500183860746613`*^9, 3.750157532200165*^9, 3.7503403160830407`*^9, 
  3.7503767411675615`*^9, 3.750377655596466*^9, 3.75037802608011*^9, 
  3.7525208277575026`*^9, 3.7539142627822204`*^9, 3.80183136277498*^9},
 CellLabel->
  "During evaluation of \
In[334]:=",ExpressionUUID->"6a5c0d10-2056-4511-a726-92dc9899cbc8"],

Cell[BoxData[
 TemplateBox[{
  "General", "stop", 
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Solve\\\", \\\"::\\\", \
\\\"svars\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"", 2, 334, 101, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.75001786395051*^9, 3.7500180259469624`*^9, 
  3.7500183860746613`*^9, 3.750157532200165*^9, 3.7503403160830407`*^9, 
  3.7503767411675615`*^9, 3.750377655596466*^9, 3.75037802608011*^9, 
  3.7525208277575026`*^9, 3.7539142627822204`*^9, 3.801831362781671*^9},
 CellLabel->
  "During evaluation of \
In[334]:=",ExpressionUUID->"d4247538-299a-46de-8ad5-ec4f8085676e"],

Cell[BoxData["\<\"chi0, ncis, ntrans, VPM[pm], VtildePM[pm], L, R, GALR, \
GARL, V, Vtilde, ZetaGen, Holoraumy[Rep], Monodromy[Rep], ZetatildeGen, \
Holoraumytilde[Rep], Monodromytilde[Rep], cSoln[V], cSoln[Vtilde] are loaded \
for Rep = 41\"\>"], "Print",
 CellChangeTimes->{3.750017863963406*^9, 3.7500180259603558`*^9, 
  3.750018386089082*^9, 3.7501575322091365`*^9, 3.7503403160986924`*^9, 
  3.750376741191497*^9, 3.7503776556333675`*^9, 3.750378026120967*^9, 
  3.752520827772463*^9, 3.7539142627978735`*^9, 3.80183136278962*^9},
 CellLabel->
  "During evaluation of \
In[334]:=",ExpressionUUID->"d057174c-9302-4d3f-a26f-276ec39dacc9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraReport", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.7385033449278674`*^9, 3.7385033497241416`*^9}, 
   3.750376681507894*^9},
 CellLabel->
  "In[335]:=",ExpressionUUID->"bc727701-2518-43fa-a686-5342c7a9a90f"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"N = 4\"\>"},
    {"\<\"dbosons x dfermions = 4 \[Times] 4\"\>"},
    {"\<\"GATest = True\"\>"},
    {"\<\"InverseTest = True\"\>"},
    {"\<\"TransposeTest = True\"\>"},
    {"\<\"chi0 = \\!\\(\\*RowBox[{\\\"1\\\"}]\\), (ncis = \\!\\(\\*RowBox[{\\\
\"1\\\"}]\\), ntrans = \\!\\(\\*RowBox[{\\\"0\\\"}]\\))\"\>"}
   },
   DefaultBaseStyle->"Column",
   GridBoxAlignment->{"Columns" -> {{Left}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
  "Column"]], "Output",
 CellChangeTimes->{3.7500178641181583`*^9, 3.750018026119073*^9, 
  3.750018386269102*^9, 3.750157532397112*^9, 3.750340316270866*^9, 
  3.750376741215433*^9, 3.7503776556493263`*^9, 3.750378026136953*^9, 
  3.7525208278000903`*^9, 3.7539142627978735`*^9, 3.801831362799191*^9},
 CellLabel->
  "Out[335]=",ExpressionUUID->"05969b6f-3a52-4ff3-b657-c6c7b302c893"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraFullReport", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.73850436548024*^9, 3.7385043711275625`*^9}},
 CellLabel->
  "In[336]:=",ExpressionUUID->"8d08e2cb-d8df-4a71-9bc4-8345c00f8747"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    336, 102, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7503776556822405`*^9, 3.750378026179805*^9, 
  3.752520827829013*^9, 3.753914262876295*^9, 3.801831362860689*^9},
 CellLabel->
  "During evaluation of \
In[336]:=",ExpressionUUID->"1503694d-da9f-4247-9935-03f0000eecfd"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    336, 103, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7503776556822405`*^9, 3.750378026179805*^9, 
  3.752520827829013*^9, 3.753914262876295*^9, 3.801831362863475*^9},
 CellLabel->
  "During evaluation of \
In[336]:=",ExpressionUUID->"9286e95e-cb88-47af-9fc3-ce9d58120e7c"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    336, 104, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7503776556822405`*^9, 3.750378026179805*^9, 
  3.752520827829013*^9, 3.753914262876295*^9, 3.801831362871567*^9},
 CellLabel->
  "During evaluation of \
In[336]:=",ExpressionUUID->"f8a4b862-03d4-478d-93b9-851ac95a212a"],

Cell[BoxData[
 TemplateBox[{
  "General", "stop", 
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Solve\\\", \\\"::\\\", \
\\\"svars\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"", 2, 336, 105, 22685316216058037060, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7503776556822405`*^9, 3.750378026179805*^9, 
  3.752520827829013*^9, 3.753914262876295*^9, 3.80183136287788*^9},
 CellLabel->
  "During evaluation of \
In[336]:=",ExpressionUUID->"47d621dd-3241-4c0d-a586-afd2f3ea12c4"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     TagBox[GridBox[{
        {
         TagBox[GridBox[{
            {
             TagBox[GridBox[{
                {
                 TagBox[GridBox[{
                    {"\<\"N = 4\"\>"},
                    {"\<\"dbosons x dfermions = 4 \[Times] 4\"\>"},
                    {"\<\"GATest = True\"\>"},
                    {"\<\"InverseTest = True\"\>"},
                    {"\<\"TransposeTest = True\"\>"},
                    {"\<\"chi0 = \\!\\(\\*RowBox[{\\\"1\\\"}]\\), (ncis = \\!\
\\(\\*RowBox[{\\\"1\\\"}]\\), ntrans = \\!\\(\\*RowBox[{\\\"0\\\"}]\\))\"\>"}
                   },
                   DefaultBaseStyle->"Column",
                   GridBoxAlignment->{"Columns" -> {{Left}}},
                   
                   GridBoxItemSize->{
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
                   
                   GridBoxSpacings->{
                    "Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
                  "Column"]},
                {"\<\"LinearlyIndependent[V] = {{c[1, 2], c[1, 3], c[1, 4]}, \
{c[1, 4], -c[1, 3]}, {c[1, 2]}} == {{0, 0, 0}, {0, 0}, {0}}\"\>"},
                {"\<\"LinearlyIndependent[Vtilde] = {{c[1, 2], c[1, 3], c[1, \
4]}, {-c[1, 4], c[1, 3]}, {-c[1, 2]}} == {{0, 0, 0}, {0, 0}, {0}}\"\>"}
               },
               DefaultBaseStyle->"Column",
               GridBoxAlignment->{"Columns" -> {{Left}}},
               
               GridBoxItemSize->{
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
               
               GridBoxSpacings->{
                "Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
              "Column"]},
            {"\<\"\\!\\(\\*SuperscriptBox[TagBox[\\\"2\\\", HoldForm], \
RowBox[{RowBox[{\\\"-\\\", \\\"1\\\"}], \\\"+\\\", \\\"N\\\"}]]\\) distinct \
\\!\\(\\*SubscriptBox[\\(\[Zeta]\\), \\(I\\)]\\);    \
\\!\\(\\*SuperscriptBox[TagBox[\\\"2\\\", HoldForm], \
RowBox[{RowBox[{\\\"-\\\", \\\"2\\\"}], \\\"+\\\", \\\"N\\\"}]]\\) distinct |\
\\!\\(\\*SubscriptBox[OverscriptBox[\\(\[Zeta]\\), \\(~\\)], \
\\(I\\)]\\)|\"\>"},
            {"\<\"\\!\\(\\*SuperscriptBox[TagBox[\\\"2\\\", HoldForm], \
RowBox[{RowBox[{\\\"-\\\", \\\"1\\\"}], \\\"+\\\", \\\"N\\\"}]]\\) distinct \
\\!\\(\\*SubscriptBox[OverscriptBox[\\(\[Zeta]\\), \\(~\\)], \\(I\\)]\\);    \
\\!\\(\\*SuperscriptBox[TagBox[\\\"2\\\", HoldForm], \
RowBox[{RowBox[{\\\"-\\\", \\\"2\\\"}], \\\"+\\\", \\\"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\"\>"},
        {"\<\"Allsu2MutuallyCommute = True\"\>"}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
       
       GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
      "Column"]},
    {"\<\"soNTest[VsoN] = True\"\>"},
    {"\<\"soNTest[VtildesoN] = True\"\>"},
    {"\<\"soNTest[VsoNPM[-1]] = True\"\>"},
    {"\<\"soNTest[VsoNPM[1]] = True\"\>"},
    {"\<\"soNTest[VtildesoNPM[-1]] = True\"\>"},
    {"\<\"soNTest[VtildesoNPM[1]] = True\"\>"},
    {"\<\"su2Test[VsoNPM[-1]] = True\"\>"},
    {"\<\"su2Test[VsoNPM[1]] = True\"\>"},
    {"\<\"VPM[1] and VPM[-1] mutually commute = True\"\>"},
    {"\<\"su2Test[VtildesoNPM[-1]] = True\"\>"},
    {"\<\"su2Test[VtildesoNPM[1]] = True\"\>"},
    {"\<\"VtildePM[1] and VtildePM[-1] mutually commute = True\"\>"}
   },
   DefaultBaseStyle->"Column",
   GridBoxAlignment->{"Columns" -> {{Left}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
  "Column"]], "Output",
 CellChangeTimes->{3.7500178643802*^9, 3.7500180263785396`*^9, 
  3.7500183865384207`*^9, 3.7501575326476502`*^9, 3.75034031655204*^9, 
  3.7503767412453794`*^9, 3.750377655934563*^9, 3.750378026435156*^9, 
  3.7525208280304737`*^9, 3.7539142630793715`*^9, 3.801831363118545*^9},
 CellLabel->
  "Out[336]=",ExpressionUUID->"88ce9ac1-5f5c-44b9-be07-512afa1ea55a"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Holoraumy for (4,1):  only 8 distinct elements, Monodromy 4 distinct elements\
\
\>", "Subsubsection",
 CellChangeTimes->{{3.7385043281361036`*^9, 3.7385043312612824`*^9}, {
  3.738884756215666*^9, 3.738884757357658*^9}, {3.738887095072544*^9, 
  3.738887132070123*^9}, {3.738936511699955*^9, 
  3.738936531616094*^9}},ExpressionUUID->"6529487d-bea6-476f-8714-\
1c74e28ab9d8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintAllHoloraumy", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.738884741567878*^9, 3.7388847464140472`*^9}, 
   3.747399730956647*^9},
 CellLabel->
  "In[337]:=",ExpressionUUID->"b22b99c4-4079-4db6-9b19-3fcef68f510f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "1"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"0", "1", "0", "0"},
       {
        RowBox[{"-", "1"}], "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"1", "0", "0", "0"},
       {"0", "0", "0", "1"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "1", "0", "0"},
       {
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "1", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "1", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"1", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"},
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   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}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "1", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"1", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"},
       {
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "1", "0", "0"},
       {
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "1", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"1", "0", "0", "0"},
       {"0", "0", "0", "1"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"},
       {
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "1"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"0", "1", "0", "0"},
       {
        RowBox[{"-", "1"}], "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   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}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"},
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{3.750017864413882*^9, 3.7500180264043136`*^9, 
  3.7500183865696707`*^9, 3.750157532670431*^9, 3.7503403165676374`*^9, 
  3.7503767412792945`*^9, 3.7503776559614906`*^9, 3.7503780264630733`*^9, 
  3.7525208280604324`*^9, 3.7539142630949993`*^9, 3.801831363184538*^9},
 CellLabel->
  "Out[337]=",ExpressionUUID->"879c1cb3-2270-4fa8-ae9b-a213967228e5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintAllMonodromy", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.7388847646742535`*^9, 3.7388847686639524`*^9}, 
   3.747399821144726*^9},
 CellLabel->
  "In[338]:=",ExpressionUUID->"ca417ed4-da6d-40ae-bf49-47d9f82da5d0"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "1"},
       {"0", "0", "1", "0"},
       {"0", "1", "0", "0"},
       {"1", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"},
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "1", "0", "0"},
       {"1", "0", "0", "0"},
       {"0", "0", "0", "1"},
       {"0", "0", "1", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "1", "0", "0"},
       {"1", "0", "0", "0"},
       {"0", "0", "0", "1"},
       {"0", "0", "1", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"},
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "1"},
       {"0", "0", "1", "0"},
       {"0", "1", "0", "0"},
       {"1", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"},
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"},
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "1"},
       {"0", "0", "1", "0"},
       {"0", "1", "0", "0"},
       {"1", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"},
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "1", "0", "0"},
       {"1", "0", "0", "0"},
       {"0", "0", "0", "1"},
       {"0", "0", "1", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "1", "0", "0"},
       {"1", "0", "0", "0"},
       {"0", "0", "0", "1"},
       {"0", "0", "1", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"},
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "1"},
       {"0", "0", "1", "0"},
       {"0", "1", "0", "0"},
       {"1", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"},
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"},
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{3.750017864441658*^9, 3.7500180264266305`*^9, 
  3.750018386599989*^9, 3.7501575326953855`*^9, 3.7503403165989103`*^9, 
  3.750376741310211*^9, 3.7503776559924335`*^9, 3.750378026494993*^9, 
  3.7525208280863724`*^9, 3.7539142631106205`*^9, 3.801831363261139*^9},
 CellLabel->
  "Out[338]=",ExpressionUUID->"4e610905-1a63-484c-8b19-d079c308324d"]
}, Open  ]]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["5-Hypercube", "Subsection",
 CellChangeTimes->{{3.7388881014501004`*^9, 3.738888110236972*^9}, {
  3.738936760856206*^9, 
  3.7389367801573095`*^9}},ExpressionUUID->"2b28d6ca-98e0-4cf0-a117-\
48d0c6664e05"],

Cell[CellGroupData[{

Cell["Generating the Adinkra", "Subsubsection",
 CellChangeTimes->{{3.738941150466277*^9, 
  3.738941154815526*^9}},ExpressionUUID->"2b941598-37f0-4583-bd32-\
c58d671bce79"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Rep", " ", "=", " ", "FiveHypercube"}], ";"}]], "Input",
 CellChangeTimes->{{3.738888199240271*^9, 3.738888201725648*^9}, {
  3.73888864908943*^9, 3.738888656896983*^9}, {3.7389367839835286`*^9, 
  3.7389367880957637`*^9}},
 CellLabel->
  "In[339]:=",ExpressionUUID->"fb060f33-f6d0-4c71-a732-0925e24b4faa"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"L", "[", "Rep", "]"}], "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"IdentityMatrix", "[", 
      SuperscriptBox["2", "4"], "]"}], ",", 
     RowBox[{"SigmaMatrixProduct", "[", 
      RowBox[{"0", ",", 
       RowBox[{
        RowBox[{"L", "[", "Tesseract", "]"}], "[", 
        RowBox[{"[", "2", "]"}], "]"}]}], "]"}], ",", 
     RowBox[{"SigmaMatrixProduct", "[", 
      RowBox[{"0", ",", 
       RowBox[{
        RowBox[{"L", "[", "Tesseract", "]"}], "[", 
        RowBox[{"[", "3", "]"}], "]"}]}], "]"}], ",", 
     RowBox[{"SigmaMatrixProduct", "[", 
      RowBox[{"3", ",", 
       RowBox[{
        RowBox[{"L", "[", "Tesseract", "]"}], "[", 
        RowBox[{"[", "4", "]"}], "]"}]}], "]"}], ",", 
     RowBox[{"SigmaMatrixProduct", "[", 
      RowBox[{"1", ",", 
       RowBox[{
        RowBox[{"L", "[", "Tesseract", "]"}], "[", 
        RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.738970685509021*^9, 3.738970727850836*^9}, {
  3.738970923174856*^9, 3.738971009180006*^9}},
 CellLabel->
  "In[340]:=",ExpressionUUID->"dbbff176-bf95-48dc-8119-3bcc82044ed4"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintLSigmaProduct", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.7389836838511815`*^9, 3.7389836895238023`*^9}},
 CellLabel->
  "In[341]:=",ExpressionUUID->"a2cf0296-c1f9-4477-ba48-51aa9546b728"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\<\"I\"\>", "\[CircleTimes]", "\<\"I\"\>", 
    "\[CircleTimes]", "\<\"I\"\>", "\[CircleTimes]", "\<\"I\"\>"}], ",", 
   RowBox[{"\[ImaginaryI]", " ", 
    RowBox[{"\<\"I\"\>", "\[CircleTimes]", "\<\"I\"\>", "\[CircleTimes]", 
     SubscriptBox["\[Sigma]", "3"], "\[CircleTimes]", 
     SubscriptBox["\[Sigma]", "2"]}]}], ",", 
   RowBox[{
    RowBox[{"-", "\[ImaginaryI]"}], " ", 
    RowBox[{"\<\"I\"\>", "\[CircleTimes]", 
     SubscriptBox["\[Sigma]", "3"], "\[CircleTimes]", 
     SubscriptBox["\[Sigma]", "2"], "\[CircleTimes]", "\<\"I\"\>"}]}], ",", 
   RowBox[{
    RowBox[{"-", "\[ImaginaryI]"}], " ", 
    RowBox[{
     SubscriptBox["\[Sigma]", "3"], "\[CircleTimes]", 
     SubscriptBox["\[Sigma]", "1"], "\[CircleTimes]", 
     SubscriptBox["\[Sigma]", "2"], "\[CircleTimes]", "\<\"I\"\>"}]}], ",", 
   RowBox[{
    RowBox[{"-", "\[ImaginaryI]"}], " ", 
    RowBox[{
     SubscriptBox["\[Sigma]", "1"], "\[CircleTimes]", 
     SubscriptBox["\[Sigma]", "1"], "\[CircleTimes]", 
     SubscriptBox["\[Sigma]", "2"], "\[CircleTimes]", "\<\"I\"\>"}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.750017864667363*^9, 3.750018026657233*^9, 
  3.750018386832549*^9, 3.7501575329176254`*^9, 3.750340316833235*^9, 
  3.7503767415804567`*^9, 3.750377656237753*^9, 3.750378026743332*^9, 
  3.7525208283496246`*^9, 3.7539142633293133`*^9, 3.8018313635469027`*^9},
 CellLabel->
  "Out[341]=",ExpressionUUID->"7081e4f7-9107-4c8a-8748-71327962f307"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"GenerateAdinkraDataO", "[", "Rep", "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.738503308817802*^9, 3.73850331945341*^9}, {
  3.742441820138199*^9, 3.7424418348743057`*^9}},
 CellLabel->
  "In[342]:=",ExpressionUUID->"8149db97-2dc8-455c-980d-d3e208d1c98e"],

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 = FiveHypercube\"\>"], "Print",
 CellChangeTimes->{3.7500178647373004`*^9, 3.75001802671725*^9, 
  3.750018386971963*^9, 3.7501575329965243`*^9, 3.7503403168800955`*^9, 
  3.750376741643297*^9, 3.7503776562926054`*^9, 3.750378026812155*^9, 
  3.7525208284234285`*^9, 3.753914263391799*^9, 3.8018313636741323`*^9},
 CellLabel->
  "During evaluation of \
In[342]:=",ExpressionUUID->"d7375e94-cd43-4733-8c53-125f2b61e600"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraReport", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.7385033449278674`*^9, 3.7385033497241416`*^9}, 
   3.750376683419756*^9},
 CellLabel->
  "In[343]:=",ExpressionUUID->"d722bf1b-6a56-4ef1-b2ca-2b203c82bc44"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"N = 5\"\>"},
    {"\<\"dbosons x dfermions = 16 \[Times] 16\"\>"},
    {"\<\"GATest = True\"\>"},
    {"\<\"InverseTest = True\"\>"},
    {"\<\"TransposeTest = True\"\>"}
   },
   DefaultBaseStyle->"Column",
   GridBoxAlignment->{"Columns" -> {{Left}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
  "Column"]], "Output",
 CellChangeTimes->{3.7500178653980865`*^9, 3.750018027372064*^9, 
  3.7500183875884523`*^9, 3.750157533654185*^9, 3.7503403176147127`*^9, 
  3.75037674166922*^9, 3.7503776563106155`*^9, 3.750378026829069*^9, 
  3.7525208284643183`*^9, 3.75391426345426*^9, 3.8018313637356853`*^9},
 CellLabel->
  "Out[343]=",ExpressionUUID->"5f70c312-a12c-482e-925e-88dc120ee0ce"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraFullReport", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.73850436548024*^9, 3.7385043711275625`*^9}},
 CellLabel->
  "In[344]:=",ExpressionUUID->"6b9027e5-5657-4f60-8c8e-5cbdee5082db"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     TagBox[GridBox[{
        {
         TagBox[GridBox[{
            {
             TagBox[GridBox[{
                {
                 TagBox[GridBox[{
                    {"\<\"N = 5\"\>"},
                    {"\<\"dbosons x dfermions = 16 \[Times] 16\"\>"},
                    {"\<\"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.7500178665894804`*^9, 3.750018028588752*^9, 
  3.7500183887694287`*^9, 3.750157534746873*^9, 3.7503403189116545`*^9, 
  3.7503767416941853`*^9, 3.7503776577237864`*^9, 3.7503780282602434`*^9, 
  3.7525208296338015`*^9, 3.7539142647512064`*^9, 3.801831365329481*^9},
 CellLabel->
  "Out[344]=",ExpressionUUID->"24bd7611-a118-4099-a397-031e375fa9a6"]
}, Open  ]]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Another 5-Hypercube", "Subsection",
 CellChangeTimes->{{3.7388881014501004`*^9, 3.738888110236972*^9}, {
  3.738936760856206*^9, 3.7389367801573095`*^9}, {3.7473995790420914`*^9, 
  3.7473995799305506`*^9}},ExpressionUUID->"b7c58709-aac6-4df7-a7b6-\
71259bbae721"],

Cell[CellGroupData[{

Cell["Generating the Adinkra", "Subsubsection",
 CellChangeTimes->{{3.738941150466277*^9, 
  3.738941154815526*^9}},ExpressionUUID->"f11bf957-2337-422c-8c01-\
2c112d840bc2"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Rep", " ", "=", " ", "AnotherFiveHypercube"}], ";"}]], "Input",
 CellChangeTimes->{{3.738888199240271*^9, 3.738888201725648*^9}, {
  3.73888864908943*^9, 3.738888656896983*^9}, {3.7389367839835286`*^9, 
  3.7389367880957637`*^9}, {3.747399583402976*^9, 3.7473995839386177`*^9}},
 CellLabel->
  "In[345]:=",ExpressionUUID->"eb34367e-e244-452e-9419-d0e4013968c1"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"L", "[", "Rep", "]"}], "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"L", "[", "FiveHypercube", "]"}], "[", 
      RowBox[{"[", "5", "]"}], "]"}], ",", 
     RowBox[{
      RowBox[{"L", "[", "FiveHypercube", "]"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}], ",", 
     RowBox[{
      RowBox[{"L", "[", "FiveHypercube", "]"}], "[", 
      RowBox[{"[", "2", "]"}], "]"}], ",", 
     RowBox[{
      RowBox[{"L", "[", "FiveHypercube", "]"}], "[", 
      RowBox[{"[", "3", "]"}], "]"}], ",", 
     RowBox[{
      RowBox[{"L", "[", "FiveHypercube", "]"}], "[", 
      RowBox[{"[", "4", "]"}], "]"}]}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.738970685509021*^9, 3.738970727850836*^9}, {
  3.738970923174856*^9, 3.738971009180006*^9}, {3.747399588395458*^9, 
  3.747399618851061*^9}},
 CellLabel->
  "In[346]:=",ExpressionUUID->"651be2dc-bfa6-4abb-81e3-713c288ebb32"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintLSigmaProduct", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.7389836838511815`*^9, 3.7389836895238023`*^9}},
 CellLabel->
  "In[347]:=",ExpressionUUID->"f7b84d11-8956-4451-9c37-f429e32aa6b0"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"-", "\[ImaginaryI]"}], " ", 
    RowBox[{
     SubscriptBox["\[Sigma]", "1"], "\[CircleTimes]", 
     SubscriptBox["\[Sigma]", "1"], "\[CircleTimes]", 
     SubscriptBox["\[Sigma]", "2"], "\[CircleTimes]", "\<\"I\"\>"}]}], ",", 
   RowBox[{"\<\"I\"\>", "\[CircleTimes]", "\<\"I\"\>", 
    "\[CircleTimes]", "\<\"I\"\>", "\[CircleTimes]", "\<\"I\"\>"}], ",", 
   RowBox[{"\[ImaginaryI]", " ", 
    RowBox[{"\<\"I\"\>", "\[CircleTimes]", "\<\"I\"\>", "\[CircleTimes]", 
     SubscriptBox["\[Sigma]", "3"], "\[CircleTimes]", 
     SubscriptBox["\[Sigma]", "2"]}]}], ",", 
   RowBox[{
    RowBox[{"-", "\[ImaginaryI]"}], " ", 
    RowBox[{"\<\"I\"\>", "\[CircleTimes]", 
     SubscriptBox["\[Sigma]", "3"], "\[CircleTimes]", 
     SubscriptBox["\[Sigma]", "2"], "\[CircleTimes]", "\<\"I\"\>"}]}], ",", 
   RowBox[{
    RowBox[{"-", "\[ImaginaryI]"}], " ", 
    RowBox[{
     SubscriptBox["\[Sigma]", "3"], "\[CircleTimes]", 
     SubscriptBox["\[Sigma]", "1"], "\[CircleTimes]", 
     SubscriptBox["\[Sigma]", "2"], "\[CircleTimes]", "\<\"I\"\>"}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.7500178669020195`*^9, 3.750018028831335*^9, 
  3.75001838909039*^9, 3.7501575350281053`*^9, 3.750340319161915*^9, 
  3.750376741949503*^9, 3.7503776579721155`*^9, 3.7503780285315485`*^9, 
  3.752520829892709*^9, 3.753914265032717*^9, 3.801831365643005*^9},
 CellLabel->
  "Out[347]=",ExpressionUUID->"1f688913-4a86-4b41-a8ff-0f597954cca6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"GenerateAdinkraDataO", "[", "Rep", "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.738503308817802*^9, 3.73850331945341*^9}, {
  3.742441820138199*^9, 3.7424418348743057`*^9}},
 CellLabel->
  "In[348]:=",ExpressionUUID->"74443955-6845-40a5-b935-70219bf58752"],

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 = AnotherFiveHypercube\"\>"], \
"Print",
 CellChangeTimes->{3.7500178669818134`*^9, 3.7500180288873444`*^9, 
  3.7500183891870604`*^9, 3.7501575351064715`*^9, 3.7503403192244186`*^9, 
  3.7503767420432515`*^9, 3.7503776580299845`*^9, 3.7503780286083126`*^9, 
  3.7525208299515543`*^9, 3.7539142651108246`*^9, 3.801831365707719*^9},
 CellLabel->
  "During evaluation of \
In[348]:=",ExpressionUUID->"f8efaeef-8238-4d5a-8061-81e8929b5702"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraReport", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.7385033449278674`*^9, 3.7385033497241416`*^9}, 
   3.750376684668418*^9},
 CellLabel->
  "In[349]:=",ExpressionUUID->"ab4cf837-02ad-4916-bc18-90206a637573"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"N = 5\"\>"},
    {"\<\"dbosons x dfermions = 16 \[Times] 16\"\>"},
    {"\<\"GATest = True\"\>"},
    {"\<\"InverseTest = True\"\>"},
    {"\<\"TransposeTest = True\"\>"}
   },
   DefaultBaseStyle->"Column",
   GridBoxAlignment->{"Columns" -> {{Left}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
  "Column"]], "Output",
 CellChangeTimes->{3.7500178676042943`*^9, 3.7500180295331936`*^9, 
  3.7500183898006525`*^9, 3.750157535692257*^9, 3.750340319880509*^9, 
  3.750376742069168*^9, 3.750377658060881*^9, 3.7503780286262856`*^9, 
  3.7525208299814763`*^9, 3.753914265157694*^9, 3.801831365766876*^9},
 CellLabel->
  "Out[349]=",ExpressionUUID->"417a27f0-2d1d-49e4-809e-a39e6a3884f0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraFullReport", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.73850436548024*^9, 3.7385043711275625`*^9}},
 CellLabel->
  "In[350]:=",ExpressionUUID->"78cea3e9-42da-4366-b541-de62969cb559"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     TagBox[GridBox[{
        {
         TagBox[GridBox[{
            {
             TagBox[GridBox[{
                {
                 TagBox[GridBox[{
                    {"\<\"N = 5\"\>"},
                    {"\<\"dbosons x dfermions = 16 \[Times] 16\"\>"},
                    {"\<\"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.7500178688155274`*^9, 3.7500180307245703`*^9, 
  3.7500183910629687`*^9, 3.7501575367908883`*^9, 3.7503403211933403`*^9, 
  3.750376742096111*^9, 3.750377659482078*^9, 3.750378030075407*^9, 
  3.752520831168274*^9, 3.7539142665015235`*^9, 3.801831367394251*^9},
 CellLabel->
  "Out[350]=",ExpressionUUID->"1865329a-506c-4fe6-ae55-cca5f1b04d5e"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Yet Another 5-Hypercube", "Subsection",
 CellChangeTimes->{{3.7388881014501004`*^9, 3.738888110236972*^9}, {
  3.738936760856206*^9, 3.7389367801573095`*^9}, {3.7473995790420914`*^9, 
  3.7473995799305506`*^9}, {3.7473996439542985`*^9, 
  3.74739964439415*^9}},ExpressionUUID->"a43496d3-adc6-4b20-852d-\
8a994709f149"],

Cell[CellGroupData[{

Cell["Generating the Adinkra", "Subsubsection",
 CellChangeTimes->{{3.738941150466277*^9, 
  3.738941154815526*^9}},ExpressionUUID->"1bd39f07-ddba-4331-abf4-\
1fd7de549a80"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Rep", " ", "=", " ", "YetAnotherFiveHypercube"}], ";"}]], "Input",
 CellChangeTimes->{{3.738888199240271*^9, 3.738888201725648*^9}, {
  3.73888864908943*^9, 3.738888656896983*^9}, {3.7389367839835286`*^9, 
  3.7389367880957637`*^9}, {3.747399583402976*^9, 3.7473995839386177`*^9}, {
  3.7473996408021994`*^9, 3.7473996410660486`*^9}},
 CellLabel->
  "In[351]:=",ExpressionUUID->"2706686f-e663-4b38-801f-d90f82ccef40"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"L", "[", "Rep", "]"}], "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"L", "[", "FiveHypercube", "]"}], "[", 
      RowBox[{"[", "5", "]"}], "]"}], ",", 
     RowBox[{
      RowBox[{"L", "[", "FiveHypercube", "]"}], "[", 
      RowBox[{"[", "4", "]"}], "]"}], ",", 
     RowBox[{
      RowBox[{"L", "[", "FiveHypercube", "]"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}], ",", 
     RowBox[{
      RowBox[{"L", "[", "FiveHypercube", "]"}], "[", 
      RowBox[{"[", "2", "]"}], "]"}], ",", 
     RowBox[{
      RowBox[{"L", "[", "FiveHypercube", "]"}], "[", 
      RowBox[{"[", "3", "]"}], "]"}]}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.738970685509021*^9, 3.738970727850836*^9}, {
  3.738970923174856*^9, 3.738971009180006*^9}, {3.747399588395458*^9, 
  3.747399636051634*^9}},
 CellLabel->
  "In[352]:=",ExpressionUUID->"8e857dff-f89b-4bb1-a3cb-4fd43f303b77"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintLSigmaProduct", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.7389836838511815`*^9, 3.7389836895238023`*^9}},
 CellLabel->
  "In[353]:=",ExpressionUUID->"37208b65-8e67-4cad-8138-44c6a0b2c8d3"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"-", "\[ImaginaryI]"}], " ", 
    RowBox[{
     SubscriptBox["\[Sigma]", "1"], "\[CircleTimes]", 
     SubscriptBox["\[Sigma]", "1"], "\[CircleTimes]", 
     SubscriptBox["\[Sigma]", "2"], "\[CircleTimes]", "\<\"I\"\>"}]}], ",", 
   RowBox[{
    RowBox[{"-", "\[ImaginaryI]"}], " ", 
    RowBox[{
     SubscriptBox["\[Sigma]", "3"], "\[CircleTimes]", 
     SubscriptBox["\[Sigma]", "1"], "\[CircleTimes]", 
     SubscriptBox["\[Sigma]", "2"], "\[CircleTimes]", "\<\"I\"\>"}]}], ",", 
   RowBox[{"\<\"I\"\>", "\[CircleTimes]", "\<\"I\"\>", 
    "\[CircleTimes]", "\<\"I\"\>", "\[CircleTimes]", "\<\"I\"\>"}], ",", 
   RowBox[{"\[ImaginaryI]", " ", 
    RowBox[{"\<\"I\"\>", "\[CircleTimes]", "\<\"I\"\>", "\[CircleTimes]", 
     SubscriptBox["\[Sigma]", "3"], "\[CircleTimes]", 
     SubscriptBox["\[Sigma]", "2"]}]}], ",", 
   RowBox[{
    RowBox[{"-", "\[ImaginaryI]"}], " ", 
    RowBox[{"\<\"I\"\>", "\[CircleTimes]", 
     SubscriptBox["\[Sigma]", "3"], "\[CircleTimes]", 
     SubscriptBox["\[Sigma]", "2"], "\[CircleTimes]", "\<\"I\"\>"}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.7500178690893264`*^9, 3.750018030984538*^9, 
  3.750018391370491*^9, 3.7501575370637054`*^9, 3.750340321443304*^9, 
  3.7503767423513975`*^9, 3.7503776597513895`*^9, 3.7503780303397207`*^9, 
  3.752520831439642*^9, 3.75391426675147*^9, 3.8018313676933613`*^9},
 CellLabel->
  "Out[353]=",ExpressionUUID->"ed9a67a0-958c-4080-a47e-a230c5263d90"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"GenerateAdinkraDataO", "[", "Rep", "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.738503308817802*^9, 3.73850331945341*^9}, {
  3.742441820138199*^9, 3.7424418348743057`*^9}},
 CellLabel->
  "In[354]:=",ExpressionUUID->"b11db2e1-392f-4305-8108-5b78ef0b5c59"],

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 = YetAnotherFiveHypercube\"\>"], \
"Print",
 CellChangeTimes->{3.7500178691490045`*^9, 3.7500180310435605`*^9, 
  3.7500183914667187`*^9, 3.750157537139698*^9, 3.7503403214901447`*^9, 
  3.750376742421241*^9, 3.7503776598082385`*^9, 3.750378030418474*^9, 
  3.752520831525922*^9, 3.7539142667982984`*^9, 3.801831367757801*^9},
 CellLabel->
  "During evaluation of \
In[354]:=",ExpressionUUID->"097dcebe-41c4-4800-91bb-d076133550d9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraReport", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.7385033449278674`*^9, 3.7385033497241416`*^9}, 
   3.750376685572004*^9},
 CellLabel->
  "In[355]:=",ExpressionUUID->"004a887a-14c4-4457-9a6f-ce00af7ecdcc"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"N = 5\"\>"},
    {"\<\"dbosons x dfermions = 16 \[Times] 16\"\>"},
    {"\<\"GATest = True\"\>"},
    {"\<\"InverseTest = True\"\>"},
    {"\<\"TransposeTest = True\"\>"}
   },
   DefaultBaseStyle->"Column",
   GridBoxAlignment->{"Columns" -> {{Left}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
  "Column"]], "Output",
 CellChangeTimes->{3.7500178697694597`*^9, 3.750018031672985*^9, 
  3.750018392076798*^9, 3.7501575377170424`*^9, 3.7503403221622267`*^9, 
  3.7503767424461746`*^9, 3.750377659827185*^9, 3.7503780304354277`*^9, 
  3.7525208315997257`*^9, 3.7539142668295727`*^9, 3.8018313678284616`*^9},
 CellLabel->
  "Out[355]=",ExpressionUUID->"0d6e7379-dad7-494b-b6df-fb28baffd6db"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraFullReport", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.73850436548024*^9, 3.7385043711275625`*^9}},
 CellLabel->
  "In[356]:=",ExpressionUUID->"6bc27208-8f85-4014-96aa-1ee1fc2b839d"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     TagBox[GridBox[{
        {
         TagBox[GridBox[{
            {
             TagBox[GridBox[{
                {
                 TagBox[GridBox[{
                    {"\<\"N = 5\"\>"},
                    {"\<\"dbosons x dfermions = 16 \[Times] 16\"\>"},
                    {"\<\"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.750017870954403*^9, 3.750018032873802*^9, 
  3.750018393328699*^9, 3.7501575388042307`*^9, 3.750340323443512*^9, 
  3.7503767424741*^9, 3.750377661247359*^9, 3.7503780318656054`*^9, 
  3.752520832780575*^9, 3.75391426815806*^9, 3.801831369518279*^9},
 CellLabel->
  "Out[356]=",ExpressionUUID->"16960152-28b8-401f-8515-83c78eeb7529"]
}, Open  ]]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["(5,1) Adinkra", "Subsection",
 CellChangeTimes->{{3.7385031508417664`*^9, 3.7385031536739283`*^9}, {
  3.738885135476967*^9, 3.7388851378951063`*^9}, {3.738937949671202*^9, 
  3.7389379497532067`*^9}},ExpressionUUID->"3c53f165-0eb6-469b-b335-\
fc435f887714"],

Cell[CellGroupData[{

Cell["Generating the Adinkra", "Subsubsection",
 CellChangeTimes->{{3.738941150466277*^9, 
  3.738941154815526*^9}},ExpressionUUID->"08bee410-d416-4b16-866d-\
be25cd3d185a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Rep", " ", "=", " ", "51"}], ";"}]], "Input",
 CellChangeTimes->{{3.7388862164349103`*^9, 3.738886218385022*^9}, {
  3.7389379799429336`*^9, 3.7389379800109377`*^9}},
 CellLabel->
  "In[357]:=",ExpressionUUID->"f4aef561-9105-4e1d-9f91-e32445ad18e1"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"L", "[", "Rep", "]"}], " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"SigmaMatrixProduct", "[", 
      RowBox[{"0", ",", 
       RowBox[{
        RowBox[{"L", "[", "41", "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], "]"}], ",", 
     RowBox[{"SigmaMatrixProduct", "[", 
      RowBox[{"0", ",", 
       RowBox[{
        RowBox[{"L", "[", "41", "]"}], "[", 
        RowBox[{"[", "2", "]"}], "]"}]}], "]"}], ",", 
     RowBox[{"SigmaMatrixProduct", "[", 
      RowBox[{"0", ",", 
       RowBox[{
        RowBox[{"L", "[", "41", "]"}], "[", 
        RowBox[{"[", "3", "]"}], "]"}]}], "]"}], ",", 
     RowBox[{"SigmaMatrixProduct", "[", 
      RowBox[{"3", ",", 
       RowBox[{
        RowBox[{"L", "[", "41", "]"}], "[", 
        RowBox[{"[", "4", "]"}], "]"}]}], "]"}], ",", 
     RowBox[{"SigmaMatrixProduct", "[", 
      RowBox[{"1", ",", 
       RowBox[{
        RowBox[{"L", "[", "41", "]"}], "[", 
        RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7389716208931646`*^9, 3.7389716574744315`*^9}, {
  3.738971729267559*^9, 3.7389718766237516`*^9}},
 CellLabel->
  "In[358]:=",ExpressionUUID->"16566c01-9f3c-4cd7-9bcf-912b41c7c78d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintLSigmaProduct", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.7389836838511815`*^9, 3.7389836895238023`*^9}},
 CellLabel->
  "In[359]:=",ExpressionUUID->"b7eeed80-4a40-4864-b436-f4ad342f6bb1"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\<\"I\"\>", "\[CircleTimes]", "\<\"I\"\>", 
    "\[CircleTimes]", "\<\"I\"\>"}], ",", 
   RowBox[{"\[ImaginaryI]", " ", 
    RowBox[{"\<\"I\"\>", "\[CircleTimes]", 
     SubscriptBox["\[Sigma]", "3"], "\[CircleTimes]", 
     SubscriptBox["\[Sigma]", "2"]}]}], ",", 
   RowBox[{
    RowBox[{"-", "\[ImaginaryI]"}], " ", 
    RowBox[{"\<\"I\"\>", "\[CircleTimes]", 
     SubscriptBox["\[Sigma]", "2"], "\[CircleTimes]", "\<\"I\"\>"}]}], ",", 
   RowBox[{"\[ImaginaryI]", " ", 
    RowBox[{
     SubscriptBox["\[Sigma]", "3"], "\[CircleTimes]", 
     SubscriptBox["\[Sigma]", "1"], "\[CircleTimes]", 
     SubscriptBox["\[Sigma]", "2"]}]}], ",", 
   RowBox[{"\[ImaginaryI]", " ", 
    RowBox[{
     SubscriptBox["\[Sigma]", "1"], "\[CircleTimes]", 
     SubscriptBox["\[Sigma]", "1"], "\[CircleTimes]", 
     SubscriptBox["\[Sigma]", "2"]}]}]}], "}"}]], "Output",
 CellChangeTimes->{3.7500178710407066`*^9, 3.750018032992346*^9, 
  3.7500183934829574`*^9, 3.750157538914493*^9, 3.750340323552861*^9, 
  3.750376742549897*^9, 3.7503776613321333`*^9, 3.7503780319832907`*^9, 
  3.752520832924732*^9, 3.7539142682205777`*^9, 3.801831369635166*^9},
 CellLabel->
  "Out[359]=",ExpressionUUID->"7c7dd676-b7df-442f-b34b-1008649df5ec"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"GenerateAdinkraDataO", "[", "Rep", "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.738503308817802*^9, 3.73850331945341*^9}, {
  3.742441850271452*^9, 3.742441864174684*^9}},
 CellLabel->
  "In[360]:=",ExpressionUUID->"fe7bf428-30de-4d23-b71c-3b30eaf8c371"],

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 = 51\"\>"], "Print",
 CellChangeTimes->{3.7500178710953646`*^9, 3.750018033070752*^9, 
  3.750018393585545*^9, 3.7501575389889765`*^9, 3.750340323599727*^9, 
  3.7503767425767946`*^9, 3.7503776613670406`*^9, 3.750378032059088*^9, 
  3.7525208330045195`*^9, 3.753914268251788*^9, 3.8018313696972*^9},
 CellLabel->
  "During evaluation of \
In[360]:=",ExpressionUUID->"3f4c2064-f071-46c9-82c3-6726dc66048f"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Reports", "Subsubsection",
 CellChangeTimes->{{3.7474008074973526`*^9, 
  3.7474008082099667`*^9}},ExpressionUUID->"615ddb29-57f0-4a5d-ba7e-\
48ea20fac9da"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraReport", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.7385033449278674`*^9, 3.7385033497241416`*^9}, 
   3.750376686509529*^9},
 CellLabel->
  "In[361]:=",ExpressionUUID->"d65f718d-5a5e-41d4-b3c6-435fbfbbff6e"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"N = 5\"\>"},
    {"\<\"dbosons x dfermions = 8 \[Times] 8\"\>"},
    {"\<\"GATest = True\"\>"},
    {"\<\"InverseTest = True\"\>"},
    {"\<\"TransposeTest = True\"\>"}
   },
   DefaultBaseStyle->"Column",
   GridBoxAlignment->{"Columns" -> {{Left}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
  "Column"]], "Output",
 CellChangeTimes->{3.7500178712848425`*^9, 3.7500180332582417`*^9, 
  3.7500183937735276`*^9, 3.7501575391725063`*^9, 3.7503403238027964`*^9, 
  3.7503767426207085`*^9, 3.7503776613890147`*^9, 3.7503780320770707`*^9, 
  3.752520833031453*^9, 3.753914268283066*^9, 3.801831369767247*^9},
 CellLabel->
  "Out[361]=",ExpressionUUID->"88dfd088-b4a0-48c6-af4f-6c58c2c5bc1e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraFullReport", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.73850436548024*^9, 3.7385043711275625`*^9}},
 CellLabel->
  "In[362]:=",ExpressionUUID->"815d49a2-c0ec-45a2-99e2-502a6d20c83b"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     TagBox[GridBox[{
        {
         TagBox[GridBox[{
            {
             TagBox[GridBox[{
                {
                 TagBox[GridBox[{
                    {"\<\"N = 5\"\>"},
                    {"\<\"dbosons x dfermions = 8 \[Times] 8\"\>"},
                    {"\<\"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[{\\\"-\\\", \\\"2\\\"}], \\\"+\\\", \\\"N\\\"}]]\\) distinct |\
\\!\\(\\*SubscriptBox[OverscriptBox[\\(\[Zeta]\\), \\(~\\)], \
\\(I\\)]\\)|\"\>"},
            {"\<\"\\!\\(\\*SuperscriptBox[TagBox[\\\"2\\\", HoldForm], \
\\\"N\\\"]\\) distinct \\!\\(\\*SubscriptBox[OverscriptBox[\\(\[Zeta]\\), \
\\(~\\)], \\(I\\)]\\);    \\!\\(\\*SuperscriptBox[TagBox[\\\"2\\\", \
HoldForm], RowBox[{RowBox[{\\\"-\\\", \\\"2\\\"}], \\\"+\\\", \\\"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.750017871618149*^9, 3.7500180335920477`*^9, 
  3.7500183941127915`*^9, 3.7501575394889507`*^9, 3.750340324162429*^9, 
  3.7503767426476355`*^9, 3.750377661780934*^9, 3.7503780324789643`*^9, 
  3.75252083336458*^9, 3.753914268642353*^9, 3.801831370196418*^9},
 CellLabel->
  "Out[362]=",ExpressionUUID->"f6297128-d2c4-4b92-a454-a6b8b9b2ee6b"]
}, Open  ]]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Another (5,1) Adinkra", "Subsection",
 CellChangeTimes->{{3.7385031508417664`*^9, 3.7385031536739283`*^9}, {
  3.738885135476967*^9, 3.7388851378951063`*^9}, {3.738937949671202*^9, 
  3.7389379497532067`*^9}, {3.747399314857816*^9, 
  3.747399319881838*^9}},ExpressionUUID->"06cb9985-c448-4667-8fe0-\
8e8e6d5abe85"],

Cell[CellGroupData[{

Cell["Generating the Adinkra", "Subsubsection",
 CellChangeTimes->{{3.738941150466277*^9, 
  3.738941154815526*^9}},ExpressionUUID->"ea8a5760-e455-4da7-80e1-\
5b85d7e23b62"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Rep", " ", "=", " ", "Another51"}], ";"}]], "Input",
 CellChangeTimes->{{3.7388862164349103`*^9, 3.738886218385022*^9}, {
  3.7389379799429336`*^9, 3.7389379800109377`*^9}, {3.747399330635307*^9, 
  3.74739933372206*^9}},
 CellLabel->
  "In[363]:=",ExpressionUUID->"54fd10ef-c57e-4001-8c72-9be65a201594"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"L", "[", "Rep", "]"}], " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"L", "[", "51", "]"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}], ",", 
     RowBox[{
      RowBox[{"L", "[", "51", "]"}], "[", 
      RowBox[{"[", "2", "]"}], "]"}], ",", 
     RowBox[{
      RowBox[{"L", "[", "51", "]"}], "[", 
      RowBox[{"[", "3", "]"}], "]"}], ",", 
     RowBox[{
      RowBox[{"L", "[", "51", "]"}], "[", 
      RowBox[{"[", "5", "]"}], "]"}], ",", 
     RowBox[{
      RowBox[{"L", "[", "51", "]"}], "[", 
      RowBox[{"[", "4", "]"}], "]"}]}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7389716208931646`*^9, 3.7389716574744315`*^9}, {
  3.738971729267559*^9, 3.7389718766237516`*^9}, {3.747399342851808*^9, 
  3.747399364771392*^9}},
 CellLabel->
  "In[364]:=",ExpressionUUID->"f5c86845-c67c-4942-868e-c7adc97f3767"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintLSigmaProduct", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.7389836838511815`*^9, 3.7389836895238023`*^9}},
 CellLabel->
  "In[365]:=",ExpressionUUID->"1868dfd3-3d87-428f-8ecd-c6d140196579"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\<\"I\"\>", "\[CircleTimes]", "\<\"I\"\>", 
    "\[CircleTimes]", "\<\"I\"\>"}], ",", 
   RowBox[{"\[ImaginaryI]", " ", 
    RowBox[{"\<\"I\"\>", "\[CircleTimes]", 
     SubscriptBox["\[Sigma]", "3"], "\[CircleTimes]", 
     SubscriptBox["\[Sigma]", "2"]}]}], ",", 
   RowBox[{
    RowBox[{"-", "\[ImaginaryI]"}], " ", 
    RowBox[{"\<\"I\"\>", "\[CircleTimes]", 
     SubscriptBox["\[Sigma]", "2"], "\[CircleTimes]", "\<\"I\"\>"}]}], ",", 
   RowBox[{"\[ImaginaryI]", " ", 
    RowBox[{
     SubscriptBox["\[Sigma]", "1"], "\[CircleTimes]", 
     SubscriptBox["\[Sigma]", "1"], "\[CircleTimes]", 
     SubscriptBox["\[Sigma]", "2"]}]}], ",", 
   RowBox[{"\[ImaginaryI]", " ", 
    RowBox[{
     SubscriptBox["\[Sigma]", "3"], "\[CircleTimes]", 
     SubscriptBox["\[Sigma]", "1"], "\[CircleTimes]", 
     SubscriptBox["\[Sigma]", "2"]}]}]}], "}"}]], "Output",
 CellChangeTimes->{3.750017871711892*^9, 3.750018033686301*^9, 
  3.7500183942432404`*^9, 3.7501575395858135`*^9, 3.7503403242405396`*^9, 
  3.7503767427273912`*^9, 3.7503776618377824`*^9, 3.750378032576703*^9, 
  3.752520833431405*^9, 3.753914268704838*^9, 3.801831370285509*^9},
 CellLabel->
  "Out[365]=",ExpressionUUID->"0fbc5a2d-2583-4d83-8dc5-d236e763d145"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"GenerateAdinkraDataO", "[", "Rep", "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.738503308817802*^9, 3.73850331945341*^9}, {
  3.742441850271452*^9, 3.742441864174684*^9}},
 CellLabel->
  "In[366]:=",ExpressionUUID->"dc224476-1b38-4970-8838-70323b562918"],

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 = Another51\"\>"], "Print",
 CellChangeTimes->{3.7500178717575254`*^9, 3.7500180337408085`*^9, 
  3.7500183943379803`*^9, 3.7501575396587644`*^9, 3.750340324287401*^9, 
  3.750376742757312*^9, 3.7503776618726892`*^9, 3.750378032656493*^9, 
  3.752520833511192*^9, 3.753914268736081*^9, 3.801831370346043*^9},
 CellLabel->
  "During evaluation of \
In[366]:=",ExpressionUUID->"7332d34e-47af-4f27-a4be-376cc5939613"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Reports", "Subsubsection",
 CellChangeTimes->{{3.7474008074973526`*^9, 
  3.7474008082099667`*^9}},ExpressionUUID->"a2a9d7ce-5067-4b7d-b079-\
0ba7a0db435b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraReport", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.7385033449278674`*^9, 3.7385033497241416`*^9}, 
   3.7503766873403077`*^9},
 CellLabel->
  "In[367]:=",ExpressionUUID->"11e7ca2a-bff7-4ee5-b498-303a2dc97d17"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"N = 5\"\>"},
    {"\<\"dbosons x dfermions = 8 \[Times] 8\"\>"},
    {"\<\"GATest = True\"\>"},
    {"\<\"InverseTest = True\"\>"},
    {"\<\"TransposeTest = True\"\>"}
   },
   DefaultBaseStyle->"Column",
   GridBoxAlignment->{"Columns" -> {{Left}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
  "Column"]], "Output",
 CellChangeTimes->{3.750017871973284*^9, 3.7500180339273057`*^9, 
  3.750018394526455*^9, 3.7501575398462524`*^9, 3.750340324490477*^9, 
  3.7503767427802825`*^9, 3.7503776618906536`*^9, 3.7503780326734457`*^9, 
  3.752520833534133*^9, 3.753914268751672*^9, 3.80183137041192*^9},
 CellLabel->
  "Out[367]=",ExpressionUUID->"fecd2604-813f-4688-a6eb-3753c2576dfa"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraFullReport", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.73850436548024*^9, 3.7385043711275625`*^9}},
 CellLabel->
  "In[368]:=",ExpressionUUID->"77793f71-fa57-49e9-9fe9-d91809d16df0"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     TagBox[GridBox[{
        {
         TagBox[GridBox[{
            {
             TagBox[GridBox[{
                {
                 TagBox[GridBox[{
                    {"\<\"N = 5\"\>"},
                    {"\<\"dbosons x dfermions = 8 \[Times] 8\"\>"},
                    {"\<\"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[{\\\"-\\\", \\\"2\\\"}], \\\"+\\\", \\\"N\\\"}]]\\) distinct |\
\\!\\(\\*SubscriptBox[OverscriptBox[\\(\[Zeta]\\), \\(~\\)], \
\\(I\\)]\\)|\"\>"},
            {"\<\"\\!\\(\\*SuperscriptBox[TagBox[\\\"2\\\", HoldForm], \
\\\"N\\\"]\\) distinct \\!\\(\\*SubscriptBox[OverscriptBox[\\(\[Zeta]\\), \
\\(~\\)], \\(I\\)]\\);    \\!\\(\\*SuperscriptBox[TagBox[\\\"2\\\", \
HoldForm], RowBox[{RowBox[{\\\"-\\\", \\\"2\\\"}], \\\"+\\\", \\\"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.7500178723602037`*^9, 3.7500180342879333`*^9, 
  3.7500183949402823`*^9, 3.750157540220732*^9, 3.7503403248653913`*^9, 
  3.7503767428062124`*^9, 3.7503776622935624`*^9, 3.7503780330624046`*^9, 
  3.7525208338647575`*^9, 3.7539142691269445`*^9, 3.80183137084621*^9},
 CellLabel->
  "Out[368]=",ExpressionUUID->"55892624-a610-46ed-8b7e-41dc704f8e09"]
}, Open  ]]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Yet Another (5,1) Adinkra", "Subsection",
 CellChangeTimes->{{3.7385031508417664`*^9, 3.7385031536739283`*^9}, {
  3.738885135476967*^9, 3.7388851378951063`*^9}, {3.738937949671202*^9, 
  3.7389379497532067`*^9}, {3.747399314857816*^9, 3.747399319881838*^9}, {
  3.747399375026543*^9, 
  3.747399375658119*^9}},ExpressionUUID->"ca014a6a-47df-4d21-b71a-\
588defc88370"],

Cell[CellGroupData[{

Cell["Generating the Adinkra", "Subsubsection",
 CellChangeTimes->{{3.738941150466277*^9, 
  3.738941154815526*^9}},ExpressionUUID->"4dad7f00-ea4e-462c-8a3a-\
195976273eb1"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Rep", " ", "=", " ", "YetAnother51"}], ";"}]], "Input",
 CellChangeTimes->{{3.7388862164349103`*^9, 3.738886218385022*^9}, {
  3.7389379799429336`*^9, 3.7389379800109377`*^9}, {3.747399330635307*^9, 
  3.74739933372206*^9}, {3.747399381442154*^9, 3.747399381722722*^9}},
 CellLabel->
  "In[369]:=",ExpressionUUID->"20c2186b-3989-45ce-8b8d-ac7af1ed72c0"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"L", "[", "Rep", "]"}], " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"L", "[", "51", "]"}], "[", 
      RowBox[{"[", "5", "]"}], "]"}], ",", 
     RowBox[{
      RowBox[{"L", "[", "51", "]"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}], ",", 
     RowBox[{
      RowBox[{"L", "[", "51", "]"}], "[", 
      RowBox[{"[", "2", "]"}], "]"}], ",", 
     RowBox[{
      RowBox[{"L", "[", "51", "]"}], "[", 
      RowBox[{"[", "3", "]"}], "]"}], ",", 
     RowBox[{
      RowBox[{"L", "[", "51", "]"}], "[", 
      RowBox[{"[", "4", "]"}], "]"}]}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7389716208931646`*^9, 3.7389716574744315`*^9}, {
  3.738971729267559*^9, 3.7389718766237516`*^9}, {3.747399342851808*^9, 
  3.747399364771392*^9}, {3.747399399043603*^9, 3.747399410852359*^9}},
 CellLabel->
  "In[370]:=",ExpressionUUID->"ca1601db-17ba-4670-bb2b-460e32ddae10"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintLSigmaProduct", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.7389836838511815`*^9, 3.7389836895238023`*^9}},
 CellLabel->
  "In[371]:=",ExpressionUUID->"9414313d-2dbc-4a87-8607-9c726c010944"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\[ImaginaryI]", " ", 
    RowBox[{
     SubscriptBox["\[Sigma]", "1"], "\[CircleTimes]", 
     SubscriptBox["\[Sigma]", "1"], "\[CircleTimes]", 
     SubscriptBox["\[Sigma]", "2"]}]}], ",", 
   RowBox[{"\<\"I\"\>", "\[CircleTimes]", "\<\"I\"\>", 
    "\[CircleTimes]", "\<\"I\"\>"}], ",", 
   RowBox[{"\[ImaginaryI]", " ", 
    RowBox[{"\<\"I\"\>", "\[CircleTimes]", 
     SubscriptBox["\[Sigma]", "3"], "\[CircleTimes]", 
     SubscriptBox["\[Sigma]", "2"]}]}], ",", 
   RowBox[{
    RowBox[{"-", "\[ImaginaryI]"}], " ", 
    RowBox[{"\<\"I\"\>", "\[CircleTimes]", 
     SubscriptBox["\[Sigma]", "2"], "\[CircleTimes]", "\<\"I\"\>"}]}], ",", 
   RowBox[{"\[ImaginaryI]", " ", 
    RowBox[{
     SubscriptBox["\[Sigma]", "3"], "\[CircleTimes]", 
     SubscriptBox["\[Sigma]", "1"], "\[CircleTimes]", 
     SubscriptBox["\[Sigma]", "2"]}]}]}], "}"}]], "Output",
 CellChangeTimes->{3.750017872467059*^9, 3.7500180343846164`*^9, 
  3.7500183950573387`*^9, 3.7501575403145943`*^9, 3.7503403249434924`*^9, 
  3.750376742879984*^9, 3.750377662364374*^9, 3.75037803317311*^9, 
  3.75252083401437*^9, 3.753914269189453*^9, 3.80183137095242*^9},
 CellLabel->
  "Out[371]=",ExpressionUUID->"5bf58aed-32b4-4e87-997a-30e5e83b5ea4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"GenerateAdinkraDataO", "[", "Rep", "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.738503308817802*^9, 3.73850331945341*^9}, {
  3.742441850271452*^9, 3.742441864174684*^9}},
 CellLabel->
  "In[372]:=",ExpressionUUID->"bb2c105f-c196-47b6-9e6f-6b28b685fa1a"],

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 = YetAnother51\"\>"], "Print",
 CellChangeTimes->{3.7500178725335293`*^9, 3.7500180344710364`*^9, 
  3.750018395152077*^9, 3.7501575403875055`*^9, 3.7503403249747105`*^9, 
  3.750376742909904*^9, 3.750377662399313*^9, 3.7503780332528963`*^9, 
  3.7525208340931587`*^9, 3.753914269236271*^9, 3.801831371021579*^9},
 CellLabel->
  "During evaluation of \
In[372]:=",ExpressionUUID->"49b9bcc0-2157-4ce2-87e8-c0ecb853fb17"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Reports", "Subsubsection",
 CellChangeTimes->{{3.7474008074973526`*^9, 
  3.7474008082099667`*^9}},ExpressionUUID->"3330c5e6-5131-4183-9ff0-\
801d1bbf4259"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraReport", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.7385033449278674`*^9, 3.7385033497241416`*^9}, 
   3.7503766880374117`*^9},
 CellLabel->
  "In[373]:=",ExpressionUUID->"d3f13d72-b7f7-4f3a-862a-f69b022f635f"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"N = 5\"\>"},
    {"\<\"dbosons x dfermions = 8 \[Times] 8\"\>"},
    {"\<\"GATest = True\"\>"},
    {"\<\"InverseTest = True\"\>"},
    {"\<\"TransposeTest = True\"\>"}
   },
   DefaultBaseStyle->"Column",
   GridBoxAlignment->{"Columns" -> {{Left}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
  "Column"]], "Output",
 CellChangeTimes->{3.750017872750275*^9, 3.750018034659551*^9, 
  3.7500183953351107`*^9, 3.7501575405735064`*^9, 3.750340325162525*^9, 
  3.75037674293384*^9, 3.7503776624272056`*^9, 3.750378033272869*^9, 
  3.7525208341270685`*^9, 3.7539142692675114`*^9, 3.801831371031299*^9},
 CellLabel->
  "Out[373]=",ExpressionUUID->"c339749a-5bad-4f51-bd8c-93946ab08a86"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraFullReport", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.73850436548024*^9, 3.7385043711275625`*^9}},
 CellLabel->
  "In[374]:=",ExpressionUUID->"627d7485-9d95-4308-bdef-f0dd15b997a6"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     TagBox[GridBox[{
        {
         TagBox[GridBox[{
            {
             TagBox[GridBox[{
                {
                 TagBox[GridBox[{
                    {"\<\"N = 5\"\>"},
                    {"\<\"dbosons x dfermions = 8 \[Times] 8\"\>"},
                    {"\<\"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[{\\\"-\\\", \\\"2\\\"}], \\\"+\\\", \\\"N\\\"}]]\\) distinct |\
\\!\\(\\*SubscriptBox[OverscriptBox[\\(\[Zeta]\\), \\(~\\)], \
\\(I\\)]\\)|\"\>"},
            {"\<\"\\!\\(\\*SuperscriptBox[TagBox[\\\"2\\\", HoldForm], \
\\\"N\\\"]\\) distinct \\!\\(\\*SubscriptBox[OverscriptBox[\\(\[Zeta]\\), \
\\(~\\)], \\(I\\)]\\);    \\!\\(\\*SuperscriptBox[TagBox[\\\"2\\\", \
HoldForm], RowBox[{RowBox[{\\\"-\\\", \\\"2\\\"}], \\\"+\\\", \\\"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.750017873088003*^9, 3.7500180349998093`*^9, 
  3.7500183956689053`*^9, 3.7501575408944645`*^9, 3.7503403255374575`*^9, 
  3.750376742959804*^9, 3.7503776628291574`*^9, 3.750378033683776*^9, 
  3.752520834454707*^9, 3.7539142696580696`*^9, 3.801831371456767*^9},
 CellLabel->
  "Out[374]=",ExpressionUUID->"9b627010-0a30-4d5a-ac3c-c54e2daccfb7"]
}, Open  ]]
}, Open  ]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Gadgets", "Section",
 CellChangeTimes->{{3.747399052546365*^9, 
  3.747399053378085*^9}},ExpressionUUID->"6f47be2c-6d5d-4fac-a105-\
750497aeced9"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Gadget", "[", 
  RowBox[{"51", ",", "Another51"}], "]"}]], "Input",
 CellChangeTimes->{{3.7474002859453278`*^9, 3.7474002916585765`*^9}},
 CellLabel->
  "In[375]:=",ExpressionUUID->"08818bf8-1ae6-4165-87d4-2d5ee2edf905"],

Cell[BoxData[
 FractionBox["1", "5"]], "Output",
 CellChangeTimes->{3.750017883987932*^9, 3.7500180350379615`*^9, 
  3.750018399515728*^9, 3.750157540967829*^9, 3.75037674302362*^9, 
  3.7503780633046*^9, 3.7539142696580696`*^9, 3.801831381972679*^9},
 CellLabel->
  "Out[375]=",ExpressionUUID->"64bc60b5-692d-4452-8914-7074843f606f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Gadget", "[", 
  RowBox[{"51", ",", "YetAnother51"}], "]"}]], "Input",
 CellChangeTimes->{{3.7474002969302783`*^9, 3.7474003033869166`*^9}},
 CellLabel->
  "In[376]:=",ExpressionUUID->"251d4d35-9261-41c6-bf63-55c5bc68d623"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.7500178840568285`*^9, 3.750018035059823*^9, 
  3.7500183995653257`*^9, 3.7501575409807415`*^9, 3.750376743049531*^9, 
  3.7503780633474464`*^9, 3.753914269673667*^9, 3.801831382080777*^9},
 CellLabel->
  "Out[376]=",ExpressionUUID->"44a16fcc-42ef-475e-8aaf-837bdb9c7433"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Gadget", "[", 
  RowBox[{"Another51", ",", "YetAnother51"}], "]"}]], "Input",
 CellChangeTimes->{{3.7474003107067738`*^9, 3.7474003255309887`*^9}},
 CellLabel->
  "In[377]:=",ExpressionUUID->"c42f0037-2e84-415d-a0fc-3c9cbd84cf9d"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.7500178840836124`*^9, 3.7500180350875607`*^9, 
  3.750018399598061*^9, 3.7501575409951077`*^9, 3.7503767430754614`*^9, 
  3.7503780633693876`*^9, 3.753914269689289*^9, 3.801831382180654*^9},
 CellLabel->
  "Out[377]=",ExpressionUUID->"ebd8bc25-e38f-4c4b-adc2-5be7a630cc2f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Gadget", "[", 
  RowBox[{"FiveHypercube", ",", "AnotherFiveHypercube"}], "]"}]], "Input",
 CellChangeTimes->{{3.747400668853811*^9, 3.747400676722763*^9}},
 CellLabel->
  "In[378]:=",ExpressionUUID->"56591e8a-da2e-4189-92df-6e49e30a5b3e"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.750017884103948*^9, 3.7500180351093855`*^9, 
  3.750018399621869*^9, 3.7501575410114756`*^9, 3.7503767431014233`*^9, 
  3.7503780633903475`*^9, 3.75391426970494*^9, 3.80183138219199*^9},
 CellLabel->
  "Out[378]=",ExpressionUUID->"3d187f6c-6977-4e75-8716-9cecc11f45b2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Gadget", "[", 
  RowBox[{"FiveHypercube", ",", "YetAnotherFiveHypercube"}], "]"}]], "Input",
 CellChangeTimes->{{3.7474006781648493`*^9, 3.747400685786297*^9}},
 CellLabel->
  "In[379]:=",ExpressionUUID->"69dba37c-d688-4595-9f1f-80eee4ff7fb4"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox["1", "5"]}]], "Output",
 CellChangeTimes->{3.7500178841312284`*^9, 3.7500180351371613`*^9, 
  3.750018399647675*^9, 3.750157541028842*^9, 3.7503767431283507`*^9, 
  3.7503780634102783`*^9, 3.75391426970494*^9, 3.8018313822858*^9},
 CellLabel->
  "Out[379]=",ExpressionUUID->"d6790563-91d8-405b-8504-ddfd6b975bba"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Gadget", "[", 
  RowBox[{"AnotherFiveHypercube", ",", "YetAnotherFiveHypercube"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.74740068742925*^9, 3.7474006960028577`*^9}},
 CellLabel->
  "In[380]:=",ExpressionUUID->"3fa55e42-cd83-4356-ab5f-cafc5e327a75"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.7500178841520605`*^9, 3.7500180351594806`*^9, 
  3.750018399679635*^9, 3.7501575410447493`*^9, 3.750376743155279*^9, 
  3.750378063431222*^9, 3.7539142697205324`*^9, 3.801831382296835*^9},
 CellLabel->
  "Out[380]=",ExpressionUUID->"555a67d2-8e83-4ef7-9ba5-06fa68322b7e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintAllL", "[", "cis", "]"}]], "Input",
 CellChangeTimes->{{3.7474003684774055`*^9, 3.747400385233845*^9}},
 CellLabel->
  "In[381]:=",ExpressionUUID->"f6bfeb8e-fd13-4230-9eeb-d1640b857630"],

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}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "1", "0", "0"},
       {
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "1", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"},
       {
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "1", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"1", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{3.7500178841743803`*^9, 3.7500180351882873`*^9, 
  3.7500183997060194`*^9, 3.750157541062564*^9, 3.7503767431832066`*^9, 
  3.7503780634531636`*^9, 3.7539142697361517`*^9, 3.801831382386877*^9},
 CellLabel->
  "Out[381]=",ExpressionUUID->"8f414027-2ef2-4afb-87d0-8292a5fb192a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Gadget", "[", 
  RowBox[{"41", ",", "cis"}], "]"}]], "Input",
 CellChangeTimes->{{3.747400336449875*^9, 3.7474003492821918`*^9}},
 CellLabel->
  "In[382]:=",ExpressionUUID->"f86a4c1a-9a3c-4d33-ae75-e99b7b25c65e"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox["1", "3"]}]], "Output",
 CellChangeTimes->{3.750017884196204*^9, 3.750018035206601*^9, 
  3.750018399734307*^9, 3.750157541077939*^9, 3.7503767432101326`*^9, 
  3.7503780634731345`*^9, 3.753914269751774*^9, 3.801831382397976*^9},
 CellLabel->
  "Out[382]=",ExpressionUUID->"7221a2b7-0410-4577-9c8a-136c6391cb44"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Gadget", "[", 
  RowBox[{"cis", ",", "trans"}], "]"}]], "Input",
 CellChangeTimes->{{3.7474006166066914`*^9, 3.747400619794275*^9}},
 CellLabel->
  "In[383]:=",ExpressionUUID->"06ae5fec-acad-4ae8-92b8-fd504ea3b1ef"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.750017884229436*^9, 3.750018035235879*^9, 
  3.7500183997645626`*^9, 3.7501575410953636`*^9, 3.7503767432360635`*^9, 
  3.750378063493057*^9, 3.753914269751774*^9, 3.80183138249476*^9},
 CellLabel->
  "Out[383]=",ExpressionUUID->"e1e68bb2-d9f0-4977-a5d6-df77aa3d37eb"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Gadget", "[", 
  RowBox[{"Tesseract", ",", "AnotherTesseract"}], "]"}]], "Input",
 CellChangeTimes->{{3.7474006213831673`*^9, 3.7474006302827396`*^9}},
 CellLabel->
  "In[384]:=",ExpressionUUID->"66b65996-5fc1-4da0-b4dd-89128c7aee36"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.7500178842532463`*^9, 3.7500180352571926`*^9, 
  3.7500183997878757`*^9, 3.7501575411117663`*^9, 3.7503767432619934`*^9, 
  3.750378063513004*^9, 3.7539142697674246`*^9, 3.801831382505187*^9},
 CellLabel->
  "Out[384]=",ExpressionUUID->"c8c23349-8a0c-49b1-9c28-bf3e00c7b3aa"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Gadget", "[", 
  RowBox[{"Tesseract", ",", "YetAnotherTesseract"}], "]"}]], "Input",
 CellChangeTimes->{{3.7474006319266005`*^9, 3.747400641802844*^9}},
 CellLabel->
  "In[385]:=",ExpressionUUID->"fd0c3784-7973-4c9b-99c3-71b351b47a3d"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox["2", "3"]}]], "Output",
 CellChangeTimes->{3.750017884280549*^9, 3.7500180352834806`*^9, 
  3.7500183998216023`*^9, 3.7501575411286316`*^9, 3.750376743290886*^9, 
  3.7503780635349474`*^9, 3.753914269783016*^9, 3.8018313826020107`*^9},
 CellLabel->
  "Out[385]=",ExpressionUUID->"7861efd5-8e57-489b-b574-080d8a3cec38"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Gadget", "[", 
  RowBox[{"AnotherTesseract", ",", "YetAnotherTesseract"}], "]"}]], "Input",
 CellChangeTimes->{{3.747400645627695*^9, 3.7474006550188217`*^9}},
 CellLabel->
  "In[386]:=",ExpressionUUID->"8b5899cd-2b45-46fc-a115-64d7cbb7b2a2"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.7500178842998686`*^9, 3.7500180353008404`*^9, 
  3.750018399849874*^9, 3.75015754114546*^9, 3.750376743316848*^9, 
  3.750378063553895*^9, 3.753914269798642*^9, 3.801831382613284*^9},
 CellLabel->
  "Out[386]=",ExpressionUUID->"ad2a50c1-32f8-482e-b9ee-dc2451b9b2cf"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Gadget", "[", 
  RowBox[{"41", ",", "Q"}], "]"}]], "Input",
 CellChangeTimes->{{3.7474008834213376`*^9, 3.747400885954572*^9}},
 CellLabel->
  "In[387]:=",ExpressionUUID->"a2f97d8e-32e9-4404-89e5-eeb082b547d0"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.750017884321196*^9, 3.7500180353221693`*^9, 
  3.7500183998811226`*^9, 3.7501575411613894`*^9, 3.750376743346759*^9, 
  3.750378063573866*^9, 3.7539142698142986`*^9, 3.801831382712042*^9},
 CellLabel->
  "Out[387]=",ExpressionUUID->"ef0eb93b-0ec1-45a3-bc9a-3bc03a678e51"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Gadget", "[", 
  RowBox[{"Q", ",", "Qtilde"}], "]"}]], "Input",
 CellChangeTimes->{{3.7474008965720754`*^9, 3.7474009058421307`*^9}},
 CellLabel->
  "In[388]:=",ExpressionUUID->"157fd99c-cfc4-4890-9180-a6eaa18e68ba"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.7500178843514524`*^9, 3.750018035343524*^9, 
  3.7500183999049306`*^9, 3.7501575411727514`*^9, 3.7503767433756847`*^9, 
  3.750378063593816*^9, 3.7539142698298807`*^9, 3.801831382722877*^9},
 CellLabel->
  "Out[388]=",ExpressionUUID->"05852731-e7d5-4cae-a9ae-fddcf62f9cf3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Gadget", "[", 
  RowBox[{"Qtilde", ",", "41"}], "]"}]], "Input",
 CellChangeTimes->{{3.7474009107010317`*^9, 3.747400914938616*^9}},
 CellLabel->
  "In[389]:=",ExpressionUUID->"185710fd-9229-4dcf-a6b1-e9c70dff1d70"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.750017884377739*^9, 3.750018035371811*^9, 
  3.7500183999361787`*^9, 3.750157541195105*^9, 3.7503767434095955`*^9, 
  3.7503780636127567`*^9, 3.7539142698457932`*^9, 3.8018313828172083`*^9},
 CellLabel->
  "Out[389]=",ExpressionUUID->"6c37f112-9cbd-4eab-bd80-4a854b9f1cba"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Gadget", "[", 
  RowBox[{"Qtilde", ",", "trans"}], "]"}]], "Input",
 CellChangeTimes->{{3.7474009196615615`*^9, 3.747400923706619*^9}},
 CellLabel->
  "In[390]:=",ExpressionUUID->"8ea2535f-28ef-4cd3-bb6b-1675ce64587d"],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{3.750017884400556*^9, 3.7500180353906183`*^9, 
  3.7500183999649467`*^9, 3.75015754120647*^9, 3.750376743438491*^9, 
  3.75037806363069*^9, 3.7539142698614206`*^9, 3.801831382829009*^9},
 CellLabel->
  "Out[390]=",ExpressionUUID->"3c857ed6-f89c-4027-903a-9a72e40a6e5b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Gadget", "[", 
  RowBox[{"Qtilde", ",", "cis"}], "]"}]], "Input",
 CellChangeTimes->{{3.747400925230764*^9, 3.7474009285066004`*^9}},
 CellLabel->
  "In[391]:=",ExpressionUUID->"d982b267-f442-4dbd-8dee-bad84320ade1"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.750017884430813*^9, 3.750018035419882*^9, 
  3.7500183999877625`*^9, 3.750157541228372*^9, 3.7503767434644217`*^9, 
  3.750378063649665*^9, 3.7539142698614206`*^9, 3.8018313829261007`*^9},
 CellLabel->
  "Out[391]=",ExpressionUUID->"5cf956a5-f457-46f2-add0-eee2ae85717a"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Print Functions: choose Rep to be anything from the \
previous sections",
 FontColor->RGBColor[
  0.7803921568627451, 0.4235294117647059, 0.1607843137254902]]], "Section",
 CellChangeTimes->{{3.7466372370920277`*^9, 3.746637237810922*^9}, {
   3.747398733187386*^9, 3.747398779018255*^9}, 
   3.750018453370364*^9},ExpressionUUID->"3472ce41-f7df-40a6-af31-\
aa9f600de450"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"GraphAdinkra", "[", "cis", "]"}], "\[IndentingNewLine]", 
 RowBox[{"PrintAllL", "[", "cis", "]"}]}], "Input",
 CellChangeTimes->{{3.750685363345089*^9, 3.750685365358283*^9}, {
  3.7506853981506767`*^9, 3.750685400718255*^9}},
 CellLabel->
  "In[392]:=",ExpressionUUID->"cf2c547c-31bf-4573-b20e-9b9e969d6b4a"],

Cell[BoxData[
 GraphicsBox[{
   {Hue[0.6, 0.7, 0.5], Opacity[0.7], 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {-1.5, -2.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -1.}, {-0.5, -2.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -1.}, {0.5, -2.}}]}}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {1.5, -2.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     LineBox[{{-1.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     LineBox[{{-1.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{-0.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     LineBox[{{-0.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     LineBox[{{-0.5, -2.}, {1.5, -1.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{0.5, -2.}, {-0.5, -1.}}]}}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{0.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{0.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{1.5, -2.}, {-0.5, -1.}}]}}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     LineBox[{{1.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{1.5, -2.}, {1.5, -1.}}]}}, 
   {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 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.}]}},
  FormatType->TraditionalForm,
  FrameTicks->None]], "Output",
 CellChangeTimes->{3.7506853659412546`*^9, 3.7506854013762217`*^9, 
  3.752520851152053*^9, 3.75391426989266*^9, 3.801831387161735*^9},
 CellLabel->
  "Out[392]=",ExpressionUUID->"3c43577e-f2be-4d58-9d01-addc149faf2f"],

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}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "1", "0", "0"},
       {
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "1", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"},
       {
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "1", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"1", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{3.7506853659412546`*^9, 3.7506854013762217`*^9, 
  3.752520851152053*^9, 3.75391426989266*^9, 3.801831387170615*^9},
 CellLabel->
  "Out[393]=",ExpressionUUID->"bce355be-227f-439e-bc97-7148b694f39e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"GraphAdinkra", "[", "trans", "]"}], "\[IndentingNewLine]", 
 RowBox[{"PrintAllL", "[", "trans", "]"}]}], "Input",
 CellChangeTimes->{{3.7506853552679005`*^9, 3.7506853827421837`*^9}},
 CellLabel->
  "In[394]:=",ExpressionUUID->"b2803c2b-186e-455b-b9b8-acba3a078552"],

Cell[BoxData[
 GraphicsBox[{
   {Hue[0.6, 0.7, 0.5], Opacity[0.7], 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {-1.5, -2.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -1.}, {-0.5, -2.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {0.5, -2.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     LineBox[{{-1.5, -1.}, {1.5, -2.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     LineBox[{{-1.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -2.}, {0.5, -1.}}]}}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-1.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{-0.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     LineBox[{{-0.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{-0.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.78431374, 0, 0.12156863], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{0.5, -2.}, {-0.5, -1.}}]}}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{0.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     {Dashing[{0.03, 0.01}], CapForm["Butt"], 
      LineBox[{{0.5, -2.}, {1.5, -1.}}]}}, 
    {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[Large], 
     LineBox[{{1.5, -2.}, {-0.5, -1.}}]}, 
    {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[Large], 
     LineBox[{{1.5, -2.}, {0.5, -1.}}]}, 
    {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[Large], 
     LineBox[{{1.5, -2.}, {1.5, -1.}}]}}, 
   {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 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.}]}},
  FormatType->TraditionalForm,
  FrameTicks->None]], "Output",
 CellChangeTimes->{{3.750685360409712*^9, 3.750685383301398*^9}, 
   3.7525208512029157`*^9, 3.7539142699395227`*^9, 3.80183138730816*^9},
 CellLabel->
  "Out[394]=",ExpressionUUID->"8f1cd6c0-fcc1-43e0-9e37-239f41e6942f"],

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}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "1", "0", "0"},
       {
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "1", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "1", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"1", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{{3.750685360409712*^9, 3.750685383301398*^9}, 
   3.7525208512029157`*^9, 3.7539142699395227`*^9, 3.801831387316784*^9},
 CellLabel->
  "Out[395]=",ExpressionUUID->"bd9579bf-9cc9-44ee-b50d-84143d47ccfb"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Rep", " ", "=", " ", "trans"}], ";"}]], "Input",
 CellChangeTimes->{{3.7466374664455338`*^9, 3.74663746864881*^9}, {
  3.750685343175045*^9, 3.7506853437344837`*^9}},
 CellLabel->
  "In[396]:=",ExpressionUUID->"40913594-7483-4f42-926d-841a855a91c8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintL", "[", "Rep", "]"}], "[", "1", "]"}]], "Input",
 CellChangeTimes->{{3.7465563389081297`*^9, 3.7465563516500273`*^9}, {
  3.746635662668645*^9, 3.746635664340598*^9}, {3.746637476133726*^9, 
  3.746637501289909*^9}},
 CellLabel->
  "In[397]:=",ExpressionUUID->"bd471ecd-bab0-4fc6-b365-2b012afee4ca"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "0", "0", "0"},
     {"0", "1", "0", "0"},
     {"0", "0", "1", "0"},
     {"0", "0", "0", "1"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.7500178844625564`*^9, 3.750018035472954*^9, {3.750018405669503*^9, 
   3.750018438992603*^9}, 3.750157541255572*^9, 3.750340292454588*^9, 
   3.7503767435502234`*^9, 3.7503780706848307`*^9, 3.7506853471936607`*^9, 
   3.7525208512778654`*^9, 3.7539142699708014`*^9, 3.8018313874008627`*^9},
 CellLabel->
  "Out[397]//MatrixForm=",ExpressionUUID->"54425ead-7df9-4662-bd4a-\
ea2f00599cef"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintAllL", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.746635666872222*^9, 3.746635670341158*^9}, {
  3.7466374764932914`*^9, 3.746637501633769*^9}},
 CellLabel->
  "In[398]:=",ExpressionUUID->"516600ae-b28c-47c0-a160-17837ee4d125"],

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}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "1", "0", "0"},
       {
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "1", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "1", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"1", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{
  3.7500178844814205`*^9, 3.7500180355002356`*^9, {3.750018405698233*^9, 
   3.750018439018891*^9}, 3.7501575412754517`*^9, 3.7503402924858303`*^9, 
   3.7503767435781183`*^9, 3.7503780707067733`*^9, 3.7506853472180805`*^9, 
   3.752520851300806*^9, 3.7539142699863977`*^9, 3.801831387480448*^9},
 CellLabel->
  "Out[398]=",ExpressionUUID->"cb7283f8-9c4a-4149-a3cd-aa256c841a73"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintR", "[", "Rep", "]"}], "[", "2", "]"}]], "Input",
 CellChangeTimes->{{3.7465563536745133`*^9, 3.7465563574651155`*^9}, {
  3.746635675435429*^9, 3.746635675670105*^9}, {3.7466374766807175`*^9, 
  3.7466375017899895`*^9}},
 CellLabel->
  "In[399]:=",ExpressionUUID->"b1ce8c6f-aeba-486b-b3b3-973233d820d8"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", 
      RowBox[{"-", "1"}], "0", "0"},
     {"1", "0", "0", "0"},
     {"0", "0", "0", "1"},
     {"0", "0", 
      RowBox[{"-", "1"}], "0"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.7500178845052447`*^9, 3.7500180355210648`*^9, {3.7500184057274923`*^9, 
   3.750018439047659*^9}, 3.7501575412907877`*^9, 3.7503402925014772`*^9, 
   3.7503767436040487`*^9, 3.7503780707277174`*^9, 3.75068534723594*^9, 
   3.752520851316764*^9, 3.753914270002012*^9, 3.801831387492758*^9},
 CellLabel->
  "Out[399]//MatrixForm=",ExpressionUUID->"a8057463-fa95-496c-a3e8-\
b411db6d95a3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintAllR", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.7466356771387634`*^9, 3.7466356802015977`*^9}, {
  3.746637477274478*^9, 3.746637502336838*^9}},
 CellLabel->
  "In[400]:=",ExpressionUUID->"4e5873a0-236e-4237-9556-b37acf45b814"],

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}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"1", "0", "0", "0"},
       {"0", "0", "0", "1"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"},
       {
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "1"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"0", "1", "0", "0"},
       {
        RowBox[{"-", "1"}], "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{
  3.750017884533517*^9, 3.75001803553896*^9, {3.750018405756266*^9, 
   3.7500184390704746`*^9}, 3.7501575413076515`*^9, 3.750340292517104*^9, 
   3.7503767436300125`*^9, 3.7503780707506824`*^9, 3.7506853472578*^9, 
   3.7525208513471947`*^9, 3.753914270017646*^9, 3.801831387571722*^9},
 CellLabel->
  "Out[400]=",ExpressionUUID->"81d5cf87-c2de-43d8-9805-fe34c7732f14"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintAllV", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.7500184188781123`*^9, 3.750018435034566*^9}},
 CellLabel->
  "In[401]:=",ExpressionUUID->"28637e25-3c6e-4c0b-a15c-03c8bc9b4803"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "\[ImaginaryI]", "0", "0"},
       {
        RowBox[{"-", "\[ImaginaryI]"}], "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "\[ImaginaryI]"}]},
       {"0", "0", "\[ImaginaryI]", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", 
        RowBox[{"-", "\[ImaginaryI]"}], "0"},
       {"0", "0", "0", 
        RowBox[{"-", "\[ImaginaryI]"}]},
       {"\[ImaginaryI]", "0", "0", "0"},
       {"0", "\[ImaginaryI]", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", 
        RowBox[{"-", "\[ImaginaryI]"}]},
       {"0", "0", "\[ImaginaryI]", "0"},
       {"0", 
        RowBox[{"-", "\[ImaginaryI]"}], "0", "0"},
       {"\[ImaginaryI]", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", 
        RowBox[{"-", "\[ImaginaryI]"}]},
       {"0", "0", "\[ImaginaryI]", "0"},
       {"0", 
        RowBox[{"-", "\[ImaginaryI]"}], "0", "0"},
       {"\[ImaginaryI]", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "\[ImaginaryI]", "0"},
       {"0", "0", "0", "\[ImaginaryI]"},
       {
        RowBox[{"-", "\[ImaginaryI]"}], "0", "0", "0"},
       {"0", 
        RowBox[{"-", "\[ImaginaryI]"}], "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "\[ImaginaryI]", "0", "0"},
       {
        RowBox[{"-", "\[ImaginaryI]"}], "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "\[ImaginaryI]"}]},
       {"0", "0", "\[ImaginaryI]", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{{3.750018427120862*^9, 3.7500184390977545`*^9}, 
   3.750157541325508*^9, 3.75034029254834*^9, 3.750376743658901*^9, 
   3.750378070773594*^9, 3.7506853472801228`*^9, 3.752520851382104*^9, 
   3.753914270033252*^9, 3.801831387589362*^9},
 CellLabel->
  "Out[401]=",ExpressionUUID->"6c8070bc-3111-4996-ab21-33ba4f89616f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"PrintV", "[", "Rep", "]"}], "[", 
     RowBox[{"Ii", ",", "Ji"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"Ii", ",", "1", ",", "4"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"Ji", ",", "1", ",", "4"}], "}"}]}], "]"}], " ", "\[Equal]", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"V", "[", "Rep", "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"Ii", ",", "Ji"}], "]"}], "]"}], "//", "MatrixForm"}], ",", 
    RowBox[{"{", 
     RowBox[{"Ii", ",", "1", ",", "4"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"Ji", ",", "1", ",", "4"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7465563589971447`*^9, 3.7465563825673532`*^9}, {
  3.7466356879054136`*^9, 3.746635752130352*^9}, {3.7466374780871277`*^9, 
  3.746637503493491*^9}},
 CellLabel->
  "In[402]:=",ExpressionUUID->"e7f74b26-2ad5-490e-91d9-9a5b3c22bf2d"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.7500178845607963`*^9, 3.750018035559754*^9, {3.750018405784541*^9, 
   3.7500184391235905`*^9}, 3.7501575413413796`*^9, 3.7503402925639687`*^9, 
   3.750376743683836*^9, 3.750378070792591*^9, 3.7506853473039303`*^9, 
   3.7525208514100256`*^9, 3.7539142700488763`*^9, 3.801831387674336*^9},
 CellLabel->
  "Out[402]=",ExpressionUUID->"1994bdee-efbd-49f8-b33f-b41cead54b47"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintAllVtildePM", "[", "1", "]"}], "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.746635757412065*^9, 3.7466357609436674`*^9}, {
  3.746635795431345*^9, 3.746635796962932*^9}, {3.746635888871069*^9, 
  3.746635900887822*^9}, {3.7466374790089607`*^9, 3.7466375036809397`*^9}},
 CellLabel->
  "In[403]:=",ExpressionUUID->"3ab87185-7013-4994-a7d8-7ec3d1cbcf9c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{
  3.7500178845841084`*^9, 3.7500180355870323`*^9, {3.7500184058177643`*^9, 
   3.7500184391464148`*^9}, 3.7501575413622117`*^9, 3.7503402925952144`*^9, 
   3.750376743710764*^9, 3.750378070811493*^9, 3.750685347323906*^9, 
   3.7525208514349604`*^9, 3.7539142700645494`*^9, 3.801831387686213*^9},
 CellLabel->
  "Out[403]=",ExpressionUUID->"f29ce304-c179-4c83-8904-78ca95cee097"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintAllHoloraumytilde", "[", "Rep", "]"}], "[", 
  RowBox[{"{", 
   RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.74663596840971*^9, 3.746636009757779*^9}, {
   3.746636071060401*^9, 3.74663608004576*^9}, {3.746637479587294*^9, 
   3.7466375038683743`*^9}, 3.747399733820478*^9},
 CellLabel->
  "In[404]:=",ExpressionUUID->"2437f3b0-e8d7-4aef-948b-755c2a754cd1"],

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    TagBox[
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {"0", "0", "0", "1"},
        {"0", "0", 
         RowBox[{"-", "1"}], "0"},
        {"0", "1", "0", "0"},
        {
         RowBox[{"-", "1"}], "0", "0", "0"}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}], "\[NoBreak]", ")"}],
     Function[BoxForm`e$, 
      MatrixForm[BoxForm`e$]]], ",", 
    TagBox[
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {"0", "0", "1", "0"},
        {"0", "0", "0", "1"},
        {
         RowBox[{"-", "1"}], "0", "0", "0"},
        {"0", 
         RowBox[{"-", "1"}], "0", "0"}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}], "\[NoBreak]", ")"}],
     Function[BoxForm`e$, 
      MatrixForm[BoxForm`e$]]], ",", 
    TagBox[
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {"0", "1", "0", "0"},
        {
         RowBox[{"-", "1"}], "0", "0", "0"},
        {"0", "0", "0", 
         RowBox[{"-", "1"}]},
        {"0", "0", "1", "0"}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}], "\[NoBreak]", ")"}],
     Function[BoxForm`e$, 
      MatrixForm[BoxForm`e$]]], ",", 
    TagBox[
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {"0", 
         RowBox[{"-", "1"}], "0", "0"},
        {"1", "0", "0", "0"},
        {"0", "0", "0", "1"},
        {"0", "0", 
         RowBox[{"-", "1"}], "0"}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}], "\[NoBreak]", ")"}],
     Function[BoxForm`e$, 
      MatrixForm[BoxForm`e$]]], ",", 
    TagBox[
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {"0", "0", "1", "0"},
        {"0", "0", "0", "1"},
        {
         RowBox[{"-", "1"}], "0", "0", "0"},
        {"0", 
         RowBox[{"-", "1"}], "0", "0"}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}], "\[NoBreak]", ")"}],
     Function[BoxForm`e$, 
      MatrixForm[BoxForm`e$]]], ",", 
    TagBox[
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {"0", "0", "0", 
         RowBox[{"-", "1"}]},
        {"0", "0", "1", "0"},
        {"0", 
         RowBox[{"-", "1"}], "0", "0"},
        {"1", "0", "0", "0"}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}], "\[NoBreak]", ")"}],
     Function[BoxForm`e$, 
      MatrixForm[BoxForm`e$]]], ",", 
    TagBox[
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {"1", "0", "0", "0"},
        {"0", "1", "0", "0"},
        {"0", "0", "1", "0"},
        {"0", "0", "0", "1"}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}], "\[NoBreak]", ")"}],
     Function[BoxForm`e$, 
      MatrixForm[BoxForm`e$]]], ",", 
    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}}, "Rows" -> {{Baseline}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}], "\[NoBreak]", ")"}],
     Function[BoxForm`e$, 
      MatrixForm[BoxForm`e$]]], ",", 
    TagBox[
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {"0", "0", "0", 
         RowBox[{"-", "1"}]},
        {"0", "0", "1", "0"},
        {"0", 
         RowBox[{"-", "1"}], "0", "0"},
        {"1", "0", "0", "0"}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}], "\[NoBreak]", ")"}],
     Function[BoxForm`e$, 
      MatrixForm[BoxForm`e$]]], ",", 
    TagBox[
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {"0", "0", 
         RowBox[{"-", "1"}], "0"},
        {"0", "0", "0", 
         RowBox[{"-", "1"}]},
        {"1", "0", "0", "0"},
        {"0", "1", "0", "0"}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}], "\[NoBreak]", ")"}],
     Function[BoxForm`e$, 
      MatrixForm[BoxForm`e$]]], ",", 
    TagBox[
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {"0", 
         RowBox[{"-", "1"}], "0", "0"},
        {"1", "0", "0", "0"},
        {"0", "0", "0", "1"},
        {"0", "0", 
         RowBox[{"-", "1"}], "0"}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}], "\[NoBreak]", ")"}],
     Function[BoxForm`e$, 
      MatrixForm[BoxForm`e$]]], ",", 
    TagBox[
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {"0", "1", "0", "0"},
        {
         RowBox[{"-", "1"}], "0", "0", "0"},
        {"0", "0", "0", 
         RowBox[{"-", "1"}]},
        {"0", "0", "1", "0"}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}], "\[NoBreak]", ")"}],
     Function[BoxForm`e$, 
      MatrixForm[BoxForm`e$]]], ",", 
    TagBox[
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {"0", "0", 
         RowBox[{"-", "1"}], "0"},
        {"0", "0", "0", 
         RowBox[{"-", "1"}]},
        {"1", "0", "0", "0"},
        {"0", "1", "0", "0"}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}], "\[NoBreak]", ")"}],
     Function[BoxForm`e$, 
      MatrixForm[BoxForm`e$]]], ",", 
    TagBox[
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {"0", "0", "0", "1"},
        {"0", "0", 
         RowBox[{"-", "1"}], "0"},
        {"0", "1", "0", "0"},
        {
         RowBox[{"-", "1"}], "0", "0", "0"}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}], "\[NoBreak]", ")"}],
     Function[BoxForm`e$, 
      MatrixForm[BoxForm`e$]]], ",", 
    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}}, "Rows" -> {{Baseline}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}], "\[NoBreak]", ")"}],
     Function[BoxForm`e$, 
      MatrixForm[BoxForm`e$]]], ",", 
    TagBox[
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {"1", "0", "0", "0"},
        {"0", "1", "0", "0"},
        {"0", "0", "1", "0"},
        {"0", "0", "0", "1"}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}], "\[NoBreak]", ")"}],
     Function[BoxForm`e$, 
      MatrixForm[BoxForm`e$]]]}], "}"}], "[", 
  RowBox[{"{", 
   RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "}"}], "]"}]], "Output",
 CellChangeTimes->{
  3.750017884606428*^9, 3.750018035614313*^9, {3.7500184058495083`*^9, 
   3.7500184391870723`*^9}, 3.7501575413825483`*^9, 3.7503402926264534`*^9, 
   3.7503767437417126`*^9, 3.750378070839449*^9, 3.7506853473471975`*^9, 
   3.752520851466873*^9, 3.753914270080135*^9, 3.80183138777008*^9},
 CellLabel->
  "Out[404]=",ExpressionUUID->"a405f6b3-bec6-4b4c-8e6c-9fb1a8272f69"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Holoraumytilde", "[", "Rep", "]"}], "[", 
   RowBox[{"[", "15", "]"}], "]"}], "//", "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.746636020868125*^9, 3.746636083545944*^9}, {
  3.7466374803844175`*^9, 3.7466375040714717`*^9}},
 CellLabel->
  "In[405]:=",ExpressionUUID->"17924563-1a14-453f-a287-5bfac41cd007"],

Cell[BoxData[
 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}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.750017884633711*^9, 3.7500180356341543`*^9, {3.7500184058757963`*^9, 
   3.750018439205956*^9}, 3.750157541413229*^9, 3.7503402926420455`*^9, 
   3.750376743767612*^9, 3.7503780708663816`*^9, 3.7506853473759837`*^9, 
   3.752520851500786*^9, 3.7539142700957365`*^9, 3.801831387786468*^9},
 CellLabel->
  "Out[405]//MatrixForm=",ExpressionUUID->"13de13ff-b62a-4a66-ae83-\
04035ed4149a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintZetaGen", "[", "Rep", "]"}], "[", "4", "]"}]], "Input",
 CellChangeTimes->{{3.7466360919375286`*^9, 3.746636131285016*^9}, {
  3.7466374810559983`*^9, 3.7466375045090322`*^9}},
 CellLabel->
  "In[406]:=",ExpressionUUID->"7822df4f-f325-4c0f-89e4-1fa7033f27dc"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "0", "0", 
      RowBox[{"-", "1"}]},
     {"0", "0", "1", "0"},
     {"0", 
      RowBox[{"-", "1"}], "0", "0"},
     {"1", "0", "0", "0"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.750017884656588*^9, 3.7500180356554813`*^9, {3.7500184059025803`*^9, 
   3.75001843923579*^9}, 3.750157541425668*^9, 3.750340292673317*^9, 
   3.7503767437945395`*^9, 3.750378070887325*^9, 3.75068534739536*^9, 
   3.752520851532742*^9, 3.7539142701113906`*^9, 3.801831387866261*^9},
 CellLabel->
  "Out[406]//MatrixForm=",ExpressionUUID->"3861cccb-9c28-40fb-9e42-\
a0a1b13cafc7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintAllZetaGen", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.7466361056418924`*^9, 3.746636110189152*^9}, {
  3.7466374816344976`*^9, 3.7466375049309626`*^9}},
 CellLabel->
  "In[407]:=",ExpressionUUID->"3db7967d-fec2-46dc-8979-6c53db4947fe"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "1", "0", "0"},
       {
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "1", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "1", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"1", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{
  3.7500178846833296`*^9, 3.7500180356782966`*^9, {3.75001840592986*^9, 
   3.750018439264556*^9}, 3.750157541441614*^9, 3.750340292688938*^9, 
   3.750376743820471*^9, 3.7503780709092627`*^9, 3.750685347424304*^9, 
   3.7525208515656137`*^9, 3.7539142701270094`*^9, 3.8018313878784237`*^9},
 CellLabel->
  "Out[407]=",ExpressionUUID->"9fab07c9-83cd-4660-95c7-f5e1a64a6339"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"PrintAllHoloraumy", "[", "Rep", "]"}], "[", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "}"}], "]"}], "\[Equal]", 
  RowBox[{
   RowBox[{"PrintAllHoloraumy", "[", "Rep", "]"}], "[", 
   RowBox[{"[", "15", "]"}], "]"}], "\[Equal]", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", 
     RowBox[{
      RowBox[{
       RowBox[{"ZetaGen", "[", "Rep", "]"}], "[", 
       RowBox[{"[", "2", "]"}], "]"}], ".", 
      RowBox[{
       RowBox[{"ZetaGen", "[", "Rep", "]"}], "[", 
       RowBox[{"[", "3", "]"}], "]"}], ".", 
      RowBox[{
       RowBox[{"ZetaGen", "[", "Rep", "]"}], "[", 
       RowBox[{"[", "4", "]"}], "]"}]}]}], "//", "MatrixForm"}], 
   ")"}]}]], "Input",
 CellChangeTimes->{{3.7466361722972746`*^9, 3.746636217395177*^9}, {
   3.746636257274149*^9, 3.746636453723756*^9}, {3.7466374824001684`*^9, 
   3.746637506571703*^9}, {3.746637537482489*^9, 3.7466376214279356`*^9}, 
   3.7473997362843432`*^9},
 CellLabel->
  "In[408]:=",ExpressionUUID->"ad380638-d123-4c9c-92e0-023bdbb3048c"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
         {"0", "0", "0", 
          RowBox[{"-", "1"}]},
         {"0", "0", "1", "0"},
         {"0", 
          RowBox[{"-", "1"}], "0", "0"},
         {"1", "0", "0", "0"}
        },
        GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.7]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}], "\[NoBreak]", ")"}],
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]], ",", 
     TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
         {"0", "0", 
          RowBox[{"-", "1"}], "0"},
         {"0", "0", "0", 
          RowBox[{"-", "1"}]},
         {"1", "0", "0", "0"},
         {"0", "1", "0", "0"}
        },
        GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.7]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}], "\[NoBreak]", ")"}],
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]], ",", 
     TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
         {"0", "1", "0", "0"},
         {
          RowBox[{"-", "1"}], "0", "0", "0"},
         {"0", "0", "0", 
          RowBox[{"-", "1"}]},
         {"0", "0", "1", "0"}
        },
        GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.7]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}], "\[NoBreak]", ")"}],
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]], ",", 
     TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
         {"0", "1", "0", "0"},
         {
          RowBox[{"-", "1"}], "0", "0", "0"},
         {"0", "0", "0", 
          RowBox[{"-", "1"}]},
         {"0", "0", "1", "0"}
        },
        GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.7]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}], "\[NoBreak]", ")"}],
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]], ",", 
     TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
         {"0", "0", "1", "0"},
         {"0", "0", "0", "1"},
         {
          RowBox[{"-", "1"}], "0", "0", "0"},
         {"0", 
          RowBox[{"-", "1"}], "0", "0"}
        },
        GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.7]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}], "\[NoBreak]", ")"}],
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]], ",", 
     TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
         {"0", "0", "0", 
          RowBox[{"-", "1"}]},
         {"0", "0", "1", "0"},
         {"0", 
          RowBox[{"-", "1"}], "0", "0"},
         {"1", "0", "0", "0"}
        },
        GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.7]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}], "\[NoBreak]", ")"}],
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]], ",", 
     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}}, "Rows" -> {{Baseline}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.7]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}], "\[NoBreak]", ")"}],
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]], ",", 
     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}}, "Rows" -> {{Baseline}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.7]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}], "\[NoBreak]", ")"}],
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]], ",", 
     TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
         {"0", "0", "0", "1"},
         {"0", "0", 
          RowBox[{"-", "1"}], "0"},
         {"0", "1", "0", "0"},
         {
          RowBox[{"-", "1"}], "0", "0", "0"}
        },
        GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.7]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}], "\[NoBreak]", ")"}],
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]], ",", 
     TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
         {"0", "0", "1", "0"},
         {"0", "0", "0", "1"},
         {
          RowBox[{"-", "1"}], "0", "0", "0"},
         {"0", 
          RowBox[{"-", "1"}], "0", "0"}
        },
        GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.7]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}], "\[NoBreak]", ")"}],
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]], ",", 
     TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
         {"0", 
          RowBox[{"-", "1"}], "0", "0"},
         {"1", "0", "0", "0"},
         {"0", "0", "0", "1"},
         {"0", "0", 
          RowBox[{"-", "1"}], "0"}
        },
        GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.7]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}], "\[NoBreak]", ")"}],
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]], ",", 
     TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
         {"0", 
          RowBox[{"-", "1"}], "0", "0"},
         {"1", "0", "0", "0"},
         {"0", "0", "0", "1"},
         {"0", "0", 
          RowBox[{"-", "1"}], "0"}
        },
        GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.7]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}], "\[NoBreak]", ")"}],
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]], ",", 
     TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
         {"0", "0", 
          RowBox[{"-", "1"}], "0"},
         {"0", "0", "0", 
          RowBox[{"-", "1"}]},
         {"1", "0", "0", "0"},
         {"0", "1", "0", "0"}
        },
        GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.7]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}], "\[NoBreak]", ")"}],
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]], ",", 
     TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
         {"0", "0", "0", "1"},
         {"0", "0", 
          RowBox[{"-", "1"}], "0"},
         {"0", "1", "0", "0"},
         {
          RowBox[{"-", "1"}], "0", "0", "0"}
        },
        GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.7]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}], "\[NoBreak]", ")"}],
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]], ",", 
     TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
         {"1", "0", "0", "0"},
         {"0", "1", "0", "0"},
         {"0", "0", "1", "0"},
         {"0", "0", "0", "1"}
        },
        GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.7]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}], "\[NoBreak]", ")"}],
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]], ",", 
     TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
         {"1", "0", "0", "0"},
         {"0", "1", "0", "0"},
         {"0", "0", "1", "0"},
         {"0", "0", "0", "1"}
        },
        GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.7]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}], "\[NoBreak]", ")"}],
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]]}], "}"}], "[", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "}"}], "]"}], "\[Equal]", 
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {"1", "0", "0", "0"},
      {"0", "1", "0", "0"},
      {"0", "0", "1", "0"},
      {"0", "0", "0", "1"}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], "\[Equal]", 
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {"1", "0", "0", "0"},
      {"0", "1", "0", "0"},
      {"0", "0", "1", "0"},
      {"0", "0", "0", "1"}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]]}]], "Output",
 CellChangeTimes->{
  3.7500178847121058`*^9, 3.7500180357219906`*^9, {3.7500184059676027`*^9, 
   3.750018439301715*^9}, 3.750157541466916*^9, 3.750340292735772*^9, 
   3.7503767438524156`*^9, 3.7503780709371905`*^9, 3.750685347456153*^9, 
   3.752520851600016*^9, 3.753914270142603*^9, 3.8018313879626293`*^9},
 CellLabel->
  "Out[408]=",ExpressionUUID->"ee044b0e-5aa5-421e-b7a8-7d8823d94e11"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"WordW", "[", 
  RowBox[{"{", 
   RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.746636245851265*^9, 3.7466362654467783`*^9}},
 CellLabel->
  "In[409]:=",ExpressionUUID->"9941fc89-b217-47aa-9d66-bae5927bd22c"],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{
  3.7500178847363997`*^9, 3.750018035738809*^9, {3.750018405998373*^9, 
   3.750018439332963*^9}, 3.7501575414912214`*^9, 3.750340292751424*^9, 
   3.750376743879313*^9, 3.750378070962121*^9, 3.7506853474796567`*^9, 
   3.752520851631892*^9, 3.753914270158258*^9, 3.801831387976379*^9},
 CellLabel->
  "Out[409]=",ExpressionUUID->"1de3ae2c-4bca-47f9-b390-315f9e7e4e94"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintAllHoloraumytilde", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.746636161397277*^9, 3.746636166319648*^9}, {
  3.7466374841033516`*^9, 3.746637508181059*^9}},
 CellLabel->
  "In[410]:=",ExpressionUUID->"45b50dbf-3d7a-456f-8fa9-9fbf53b8a871"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "1"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"0", "1", "0", "0"},
       {
        RowBox[{"-", "1"}], "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"},
       {
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "1", "0", "0"},
       {
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "1", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"1", "0", "0", "0"},
       {"0", "0", "0", "1"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"},
       {
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "1", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"1", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"},
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   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}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "1", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"1", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"1", "0", "0", "0"},
       {"0", "0", "0", "1"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "1", "0", "0"},
       {
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "1", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "1"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"0", "1", "0", "0"},
       {
        RowBox[{"-", "1"}], "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   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}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"},
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{
  3.7500178847641745`*^9, 3.750018035767081*^9, {3.750018406030117*^9, 
   3.750018439368675*^9}, 3.7501575415110607`*^9, 3.7503402927826605`*^9, 
   3.750376743912225*^9, 3.750378070987056*^9, 3.750685347506441*^9, 
   3.7525208516648035`*^9, 3.753914270173869*^9, 3.801831388061716*^9},
 CellLabel->
  "Out[410]=",ExpressionUUID->"a63b01ef-f416-46f2-8a2c-1ea6bffef4a5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintAllMonodromytilde", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.7466361442237477`*^9, 3.7466361516151896`*^9}, {
  3.746637484650447*^9, 3.746637508821839*^9}},
 CellLabel->
  "In[411]:=",ExpressionUUID->"a6af1e4a-eabd-49c6-838a-ad3303828a74"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "1"},
       {"0", "0", "1", "0"},
       {"0", "1", "0", "0"},
       {"1", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"},
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "1", "0", "0"},
       {"1", "0", "0", "0"},
       {"0", "0", "0", "1"},
       {"0", "0", "1", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "1", "0", "0"},
       {"1", "0", "0", "0"},
       {"0", "0", "0", "1"},
       {"0", "0", "1", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"},
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "1"},
       {"0", "0", "1", "0"},
       {"0", "1", "0", "0"},
       {"1", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"},
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"},
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "1"},
       {"0", "0", "1", "0"},
       {"0", "1", "0", "0"},
       {"1", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"},
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "1", "0", "0"},
       {"1", "0", "0", "0"},
       {"0", "0", "0", "1"},
       {"0", "0", "1", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "1", "0", "0"},
       {"1", "0", "0", "0"},
       {"0", "0", "0", "1"},
       {"0", "0", "1", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"},
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "1"},
       {"0", "0", "1", "0"},
       {"0", "1", "0", "0"},
       {"1", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"},
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"},
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{
  3.750017884792447*^9, 3.7500180357894573`*^9, {3.7500184060633492`*^9, 
   3.750018439401411*^9}, 3.7501575415462823`*^9, 3.7503402928295317`*^9, 
   3.750376743943173*^9, 3.7503780710179415`*^9, 3.750685347539177*^9, 
   3.752520851694235*^9, 3.7539142701894894`*^9, 3.801831388076582*^9},
 CellLabel->
  "Out[411]=",ExpressionUUID->"956a4918-b793-4615-a7f9-30751ba0ed6e"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["12x12 decomposition", "Section",
 CellChangeTimes->{{3.7465555739399495`*^9, 
  3.7465555782456956`*^9}},ExpressionUUID->"f8540c94-bc4d-45c3-a939-\
8a1e93482b61"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"L", "[", "Test12", "]"}], " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
         {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
         {"0", "0", "0", 
          RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0"},
         {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
         {"0", "0", 
          RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0"},
         {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0"},
         {"0", "0", "0", "0", "0", "0", 
          RowBox[{"-", "1"}], "0", "0", "0", "0", "0"},
         {"0", "0", "0", "0", "0", "0", "0", 
          RowBox[{"-", "1"}], "0", "0", "0", "0"},
         {"0", "0", "0", "0", "0", 
          RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0"},
         {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0"},
         {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
          RowBox[{"-", "1"}]},
         {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0"},
         {"0", "0", "0", "0", "0", "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[{
         {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
         {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
         {
          RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", 
          "0", "0"},
         {"0", "0", "0", 
          RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0"},
         {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0"},
         {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0"},
         {"0", "0", "0", "0", "0", "0", 
          RowBox[{"-", "1"}], "0", "0", "0", "0", "0"},
         {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0"},
         {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0"},
         {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0"},
         {"0", "0", "0", "0", "0", "0", "0", "0", "0", 
          RowBox[{"-", "1"}], "0", "0"},
         {"0", "0", "0", "0", "0", "0", "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", "0", "0", "0", "0", "0", "0", "0", "0"},
         {"0", 
          RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", 
          "0"},
         {"0", "0", "0", 
          RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0"},
         {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
         {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0"},
         {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0"},
         {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0"},
         {"0", "0", "0", "0", "0", "0", "0", 
          RowBox[{"-", "1"}], "0", "0", "0", "0"},
         {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1"},
         {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0"},
         {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0"},
         {"0", "0", "0", "0", "0", "0", "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$]]], ",", 
     TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
         {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0"},
         {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
         {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
         {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
         {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0"},
         {"0", "0", "0", "0", "0", 
          RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0"},
         {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0"},
         {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0"},
         {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0"},
         {"0", "0", "0", "0", "0", "0", "0", "0", 
          RowBox[{"-", "1"}], "0", "0", "0"},
         {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
          RowBox[{"-", "1"}]},
         {"0", "0", "0", "0", "0", "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$]]]}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7465559856906395`*^9, 3.746555989167933*^9}},
 CellLabel->
  "In[412]:=",ExpressionUUID->"95dcbb44-510f-4b6f-b127-78a994f6943b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"AdinkraPreliminaryReportO", "[", "Test12", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "Report", " ", "to", " ", "check", " ", "to", " ", "see", " ", "if", " ", 
     "it", " ", "is", " ", "satisfies", " ", "the", " ", "garden", " ", 
     "algebra"}], ",", 
    RowBox[{"etc", "."}]}], " ", "*)"}]}]], "Input",
 CellChangeTimes->{{3.746547171720808*^9, 3.746547184967613*^9}, {
  3.746556146255709*^9, 3.7465562487166567`*^9}},
 CellLabel->
  "In[413]:=",ExpressionUUID->"281298c2-6e7d-4dff-93c5-225b813a9802"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"Rep = Test12\"\>"},
    {
     TagBox[GridBox[{
        {"\<\"N = 4\"\>"},
        {"\<\"dbosons x dfermions = 12 \[Times] 12\"\>"},
        {"\<\"GATest = True\"\>"},
        {"\<\"InverseTest = True\"\>"},
        {"\<\"TransposeTest = True\"\>"},
        {"\<\"chi0 = \\!\\(\\*RowBox[{\\\"-\\\", \\\"1\\\"}]\\), (ncis = \
\\!\\(\\*RowBox[{\\\"1\\\"}]\\), ntrans = \
\\!\\(\\*RowBox[{\\\"2\\\"}]\\))\"\>"}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
       
       GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
      "Column"]}
   },
   DefaultBaseStyle->"Column",
   GridBoxAlignment->{"Columns" -> {{Left}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
  "Column"]], "Output",
 CellChangeTimes->{3.7500178848336143`*^9, 3.75001803582313*^9, 
  3.7503780817602243`*^9, 3.7525208571467547`*^9, 3.7525874648864765`*^9, 
  3.752590198444011*^9, 3.7539142702675724`*^9, 3.801831454692017*^9},
 CellLabel->
  "Out[413]=",ExpressionUUID->"16f946a9-6e70-4710-84cc-da30a1c5dc38"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"GenerateAdinkraDataO", "[", "Test12", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"Generating", " ", "the", " ", "following", " ", "data"}], " ", 
   "*)"}]}]], "Input",
 CellChangeTimes->{{3.746547208864091*^9, 3.746547216990381*^9}, {
  3.746556256755542*^9, 3.7465562794402256`*^9}},
 CellLabel->
  "In[414]:=",ExpressionUUID->"b3382722-42b8-4faa-a8d4-783b9e60048e"],

Cell[BoxData["\<\"chi0, ncis, ntrans, VPM[pm], VtildePM[pm], L, R, GALR, \
GARL, V, Vtilde, ZetaGen, Holoraumy[Rep], Monodromy[Rep], ZetatildeGen, \
Holoraumytilde[Rep], Monodromytilde[Rep], cSoln[V], cSoln[Vtilde] are loaded \
for Rep = Test12\"\>"], "Print",
 CellChangeTimes->{3.750017884905039*^9, 3.750018035915882*^9, 
  3.750378081845028*^9, 3.7525208572410145`*^9, 3.7525874649592714`*^9, 
  3.752590198574579*^9, 3.753914270330082*^9, 3.801831454815576*^9},
 CellLabel->
  "During evaluation of \
In[414]:=",ExpressionUUID->"a39c5488-7ac4-4d12-a833-8c1d618fba5f"],

Cell[BoxData[
 RowBox[{"{", "Null", "}"}]], "Output",
 CellChangeTimes->{3.7500178849115925`*^9, 3.7500180359278884`*^9, 
  3.7503780818489933`*^9, 3.7525208572450013`*^9, 3.752587464963519*^9, 
  3.7525901985901995`*^9, 3.753914270330082*^9, 3.8018314548196363`*^9},
 CellLabel->
  "Out[414]=",ExpressionUUID->"0768cd01-b383-4c91-97e5-871190aa9332"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"AdinkraReport", "[", "Test12", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"Report", " ", "on", " ", "the", " ", "generated", " ", "data"}], 
   " ", "*)"}]}]], "Input",
 CellChangeTimes->{{3.746541672109398*^9, 3.7465417199247775`*^9}, {
   3.746547225158803*^9, 3.7465472514607143`*^9}, {3.7465562818640842`*^9, 
   3.746556288511335*^9}, 3.750376689316991*^9},
 CellLabel->
  "In[415]:=",ExpressionUUID->"cfae1bd3-c028-464c-b999-e8602eb4aded"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"N = 4\"\>"},
    {"\<\"dbosons x dfermions = 12 \[Times] 12\"\>"},
    {"\<\"GATest = True\"\>"},
    {"\<\"InverseTest = True\"\>"},
    {"\<\"TransposeTest = True\"\>"},
    {"\<\"chi0 = \\!\\(\\*RowBox[{\\\"-\\\", \\\"1\\\"}]\\), (ncis = \
\\!\\(\\*RowBox[{\\\"1\\\"}]\\), ntrans = \
\\!\\(\\*RowBox[{\\\"2\\\"}]\\))\"\>"}
   },
   DefaultBaseStyle->"Column",
   GridBoxAlignment->{"Columns" -> {{Left}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
  "Column"]], "Output",
 CellChangeTimes->{3.750017885611945*^9, 3.750018036613857*^9, 
  3.7503780818669395`*^9, 3.752520857269934*^9, 3.75258746498862*^9, 
  3.752590198605813*^9, 3.7539142703612986`*^9, 3.801831454894916*^9},
 CellLabel->
  "Out[415]=",ExpressionUUID->"1610a489-5115-4f6d-94a0-03e5e17ab0c0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintL", "[", "Test12", "]"}], "[", "1", "]"}]], "Input",
 CellChangeTimes->{{3.7465563389081297`*^9, 3.7465563516500273`*^9}, {
  3.746637080636923*^9, 3.7466370812933664`*^9}},
 CellLabel->
  "In[416]:=",ExpressionUUID->"39b2ad7a-b54c-4be8-bbfb-3355ede25df4"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}]},
     {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.7500178856560884`*^9, 3.75001803665796*^9, 
  3.7503780818888807`*^9, 3.7525208573008533`*^9, 3.7525874650261908`*^9, 
  3.7525901986370673`*^9, 3.753914270376952*^9, 3.801831454910927*^9},
 CellLabel->
  "Out[416]//MatrixForm=",ExpressionUUID->"e2aa3724-21d5-472e-ae50-\
ef53f28fd13a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintR", "[", "Test12", "]"}], "[", "2", "]"}]], "Input",
 CellChangeTimes->{{3.7465563536745133`*^9, 3.7465563574651155`*^9}, {
  3.7466370867184753`*^9, 3.746637086999811*^9}},
 CellLabel->
  "In[417]:=",ExpressionUUID->"95d19041-ddcd-4a1c-b75d-82fe7d41df77"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.750017885683366*^9, 3.750018036685232*^9, 
  3.75037808191185*^9, 3.7525208573327665`*^9, 3.752587465054422*^9, 
  3.7525901986682997`*^9, 3.753914270392573*^9, 3.801831454990646*^9},
 CellLabel->
  "Out[417]//MatrixForm=",ExpressionUUID->"d1911e93-55b7-4317-9c45-\
f63cfec28ae4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"PrintVtilde", "[", "Test12", "]"}], "[", 
   RowBox[{"1", ",", "2"}], "]"}], " "}]], "Input",
 CellChangeTimes->{{3.7465563589971447`*^9, 3.7465563825673532`*^9}, {
  3.7466370911719723`*^9, 3.7466370955788207`*^9}},
 CellLabel->
  "In[418]:=",ExpressionUUID->"73ff7be1-0dff-4433-ab8b-7af5e71914cf"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", 
      RowBox[{"-", "\[ImaginaryI]"}], "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"\[ImaginaryI]", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0"},
     {"0", "0", "0", 
      RowBox[{"-", "\[ImaginaryI]"}], "0", "0", "0", "0", "0", "0", "0", 
      "0"},
     {"0", "0", "\[ImaginaryI]", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0"},
     {"0", "0", "0", "0", "0", 
      RowBox[{"-", "\[ImaginaryI]"}], "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "\[ImaginaryI]", "0", "0", "0", "0", "0", "0", 
      "0"},
     {"0", "0", "0", "0", "0", "0", "0", "\[ImaginaryI]", "0", "0", "0", 
      "0"},
     {"0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "\[ImaginaryI]"}], "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "\[ImaginaryI]", "0", 
      "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "\[ImaginaryI]"}], "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "\[ImaginaryI]"}]},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\[ImaginaryI]", "0"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.750017885713622*^9, 3.7500180367050724`*^9, 
  3.75037808193777*^9, 3.752520857360692*^9, 3.7525874650700855`*^9, 
  3.7525901987026253`*^9, 3.753914270408164*^9, 3.80183145501123*^9},
 CellLabel->
  "Out[418]//MatrixForm=",ExpressionUUID->"ca4d3987-4bd3-4420-bbf6-\
bdc918ddc02c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "12 x 12 basis elements  ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["c", "0"], "I"}], TraditionalForm]],ExpressionUUID->
  "065f7249-382b-4e6d-9adc-a1b85bd36a6e"],
 " +",
 Cell[BoxData[
  FormBox[
   RowBox[{" ", 
    RowBox[{
     SubscriptBox["c", "ai"], 
     SubsuperscriptBox["\[Omega]", "a", "3"]}]}], TraditionalForm]],
  ExpressionUUID->"534e307f-00cf-4b51-86ec-e45f546d44ab"],
 Cell[BoxData[
  RowBox[{"\[CircleTimes]", 
   SubscriptBox["\[Alpha]", "i"], " "}]],
  CellChangeTimes->{{3.746555598004504*^9, 3.7465556052329865`*^9}, 
    3.746555662934346*^9},ExpressionUUID->
  "36d55e3d-8392-4b06-bf05-d4f0c8d63f37"],
 "+ ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["c", "ai"], 
    SubsuperscriptBox["\[Omega]", "a", "3"]}], TraditionalForm]],
  ExpressionUUID->"3feca4c3-e64c-474f-ab4d-f312e9f41165"],
 Cell[BoxData[
  RowBox[{"\[CircleTimes]", 
   SubscriptBox["\[Beta]", "i"]}]],
  CellChangeTimes->{{3.746555598004504*^9, 3.7465556052329865`*^9}, 
    3.746555662934346*^9},ExpressionUUID->
  "b9f0377e-d909-4bb5-9a55-5f0f72b44492"],
 "+...\nnz[3] is a normalization that can be chose later"
}], "Subsection",
 CellChangeTimes->{{3.7465563941049843`*^9, 3.7465563988456526`*^9}, {
  3.746556439946031*^9, 3.7465565430829563`*^9}, {3.7465565766604166`*^9, 
  3.746556581093696*^9}, {3.7465566343310738`*^9, 
  3.746556651932103*^9}},ExpressionUUID->"003bb3b7-9851-44b5-8026-\
25b78d5323fb"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"\[Omega]matrix", "[", "3", "]"}], "[", "slnindex", "]"}], "//", 
    "MatrixForm"}], ",", 
   RowBox[{"{", 
    RowBox[{"slnindex", ",", "0", ",", "8"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7465557444621553`*^9, 3.746555780390791*^9}},
 CellLabel->
  "In[419]:=",ExpressionUUID->"206a9a39-188b-4929-b455-05ae4c0c7a7a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        FractionBox["1", 
         RowBox[{"3", " ", 
          RowBox[{"nz", "[", "3", "]"}]}]], "0", "0"},
       {"0", 
        FractionBox["1", 
         RowBox[{"3", " ", 
          RowBox[{"nz", "[", "3", "]"}]}]], "0"},
       {"0", "0", 
        FractionBox["1", 
         RowBox[{"3", " ", 
          RowBox[{"nz", "[", "3", "]"}]}]]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", 
        FractionBox["1", 
         RowBox[{"2", " ", 
          RowBox[{"nz", "[", "3", "]"}]}]], "0"},
       {
        FractionBox["1", 
         RowBox[{"2", " ", 
          RowBox[{"nz", "[", "3", "]"}]}]], "0", "0"},
       {"0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", 
        RowBox[{"-", 
         FractionBox["1", 
          RowBox[{"2", " ", 
           RowBox[{"nz", "[", "3", "]"}]}]]}], "0"},
       {
        FractionBox["1", 
         RowBox[{"2", " ", 
          RowBox[{"nz", "[", "3", "]"}]}]], "0", "0"},
       {"0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        FractionBox["1", 
         RowBox[{"2", " ", 
          RowBox[{"nz", "[", "3", "]"}]}]], "0", "0"},
       {"0", 
        RowBox[{"-", 
         FractionBox["1", 
          RowBox[{"2", " ", 
           RowBox[{"nz", "[", "3", "]"}]}]]}], "0"},
       {"0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", 
        FractionBox["1", 
         RowBox[{"2", " ", 
          RowBox[{"nz", "[", "3", "]"}]}]]},
       {"0", "0", "0"},
       {
        FractionBox["1", 
         RowBox[{"2", " ", 
          RowBox[{"nz", "[", "3", "]"}]}]], "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", 
        RowBox[{"-", 
         FractionBox["1", 
          RowBox[{"2", " ", 
           RowBox[{"nz", "[", "3", "]"}]}]]}]},
       {"0", "0", "0"},
       {
        FractionBox["1", 
         RowBox[{"2", " ", 
          RowBox[{"nz", "[", "3", "]"}]}]], "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0"},
       {"0", "0", 
        FractionBox["1", 
         RowBox[{"2", " ", 
          RowBox[{"nz", "[", "3", "]"}]}]]},
       {"0", 
        FractionBox["1", 
         RowBox[{"2", " ", 
          RowBox[{"nz", "[", "3", "]"}]}]], "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0"},
       {"0", "0", 
        RowBox[{"-", 
         FractionBox["1", 
          RowBox[{"2", " ", 
           RowBox[{"nz", "[", "3", "]"}]}]]}]},
       {"0", 
        FractionBox["1", 
         RowBox[{"2", " ", 
          RowBox[{"nz", "[", "3", "]"}]}]], "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        FractionBox["1", 
         RowBox[{"6", " ", 
          RowBox[{"nz", "[", "3", "]"}]}]], "0", "0"},
       {"0", 
        FractionBox["1", 
         RowBox[{"6", " ", 
          RowBox[{"nz", "[", "3", "]"}]}]], "0"},
       {"0", "0", 
        RowBox[{"-", 
         FractionBox["1", 
          RowBox[{"3", " ", 
           RowBox[{"nz", "[", "3", "]"}]}]]}]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{3.7500178857374387`*^9, 3.750018036753197*^9, 
  3.750378081988614*^9, 3.7525208574125586`*^9, 3.7525874651398425`*^9, 
  3.7525902041938505`*^9, 3.753914270423816*^9, 3.801831455099264*^9},
 CellLabel->
  "Out[419]=",ExpressionUUID->"472ed179-5baa-46a9-996c-5839310aa17b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"\[Alpha]matrix", "[", "ihat", "]"}], "//", "MatrixForm"}], ",", 
   RowBox[{"{", 
    RowBox[{"ihat", ",", "1", ",", "3"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.746555791607403*^9, 3.7465558056780405`*^9}},
 CellLabel->
  "In[420]:=",ExpressionUUID->"a84501e6-5251-453d-9cba-f8d92b21f6af"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", 
        RowBox[{"-", "\[ImaginaryI]"}]},
       {"0", "0", 
        RowBox[{"-", "\[ImaginaryI]"}], "0"},
       {"0", "\[ImaginaryI]", "0", "0"},
       {"\[ImaginaryI]", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", 
        RowBox[{"-", "\[ImaginaryI]"}], "0", "0"},
       {"\[ImaginaryI]", "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "\[ImaginaryI]"}]},
       {"0", "0", "\[ImaginaryI]", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", 
        RowBox[{"-", "\[ImaginaryI]"}], "0"},
       {"0", "0", "0", "\[ImaginaryI]"},
       {"\[ImaginaryI]", "0", "0", "0"},
       {"0", 
        RowBox[{"-", "\[ImaginaryI]"}], "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{3.750017885762231*^9, 3.750018036771536*^9, 
  3.7503780820215263`*^9, 3.7525208574444714`*^9, 3.7525874651755686`*^9, 
  3.752590204261039*^9, 3.7539142704394073`*^9, 3.8018314551208973`*^9},
 CellLabel->
  "Out[420]=",ExpressionUUID->"5d4ea336-fb1e-4576-a646-aa97e2157433"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"\[Beta]matrix", "[", "ihat", "]"}], "//", "MatrixForm"}], ",", 
   RowBox[{"{", 
    RowBox[{"ihat", ",", "1", ",", "3"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.746555808258834*^9, 3.746555818599439*^9}},
 CellLabel->
  "In[421]:=",ExpressionUUID->"362eda8d-0c29-4ef3-8d9f-8beb8bc37cf7"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", 
        RowBox[{"-", "\[ImaginaryI]"}]},
       {"0", "0", "\[ImaginaryI]", "0"},
       {"0", 
        RowBox[{"-", "\[ImaginaryI]"}], "0", "0"},
       {"\[ImaginaryI]", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", 
        RowBox[{"-", "\[ImaginaryI]"}], "0"},
       {"0", "0", "0", 
        RowBox[{"-", "\[ImaginaryI]"}]},
       {"\[ImaginaryI]", "0", "0", "0"},
       {"0", "\[ImaginaryI]", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", 
        RowBox[{"-", "\[ImaginaryI]"}], "0", "0"},
       {"\[ImaginaryI]", "0", "0", "0"},
       {"0", "0", "0", "\[ImaginaryI]"},
       {"0", "0", 
        RowBox[{"-", "\[ImaginaryI]"}], "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{3.7500178857831087`*^9, 3.7500180368008013`*^9, 
  3.7503780820475035`*^9, 3.7525208574733963`*^9, 3.752587465202505*^9, 
  3.752590204291168*^9, 3.7539142704550605`*^9, 3.8018314551861267`*^9},
 CellLabel->
  "Out[421]=",ExpressionUUID->"580b7e76-0e6b-49b3-a469-19da38c4ac03"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"PrintSigmaProduct", "[", 
    RowBox[{"\[Alpha]matrix", "[", "ihat", "]"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"ihat", ",", "1", ",", "3"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.746555822482809*^9, 3.74655585363414*^9}},
 CellLabel->
  "In[422]:=",ExpressionUUID->"b112ccc1-9bde-4372-ab55-445ae0e0228c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    SubscriptBox["\[Sigma]", "2"], "\[CircleTimes]", 
    SubscriptBox["\[Sigma]", "1"]}], ",", 
   RowBox[{"\<\"I\"\>", "\[CircleTimes]", 
    SubscriptBox["\[Sigma]", "2"]}], ",", 
   RowBox[{
    SubscriptBox["\[Sigma]", "2"], "\[CircleTimes]", 
    SubscriptBox["\[Sigma]", "3"]}]}], "}"}]], "Output",
 CellChangeTimes->{3.7500178858049097`*^9, 3.75001803681816*^9, 
  3.7503780820714254`*^9, 3.752520857496332*^9, 3.7525874652204046`*^9, 
  3.7525902043163977`*^9, 3.7539142704706793`*^9, 3.8018314552098427`*^9},
 CellLabel->
  "Out[422]=",ExpressionUUID->"e2c46ec8-b985-44fb-b9bc-a7ddc6e8cdaf"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"PrintSigmaProduct", "[", 
    RowBox[{"\[Beta]matrix", "[", "ihat", "]"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"ihat", ",", "1", ",", "3"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.746555822482809*^9, 3.7465558617671824`*^9}},
 CellLabel->
  "In[423]:=",ExpressionUUID->"9c013452-754c-4d25-b9a5-0dfbeffa50be"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    SubscriptBox["\[Sigma]", "1"], "\[CircleTimes]", 
    SubscriptBox["\[Sigma]", "2"]}], ",", 
   RowBox[{
    SubscriptBox["\[Sigma]", "2"], "\[CircleTimes]", "\<\"I\"\>"}], ",", 
   RowBox[{
    SubscriptBox["\[Sigma]", "3"], "\[CircleTimes]", 
    SubscriptBox["\[Sigma]", "2"]}]}], "}"}]], "Output",
 CellChangeTimes->{3.7500178858326626`*^9, 3.750018036839488*^9, 
  3.7503780820923367`*^9, 3.7525208575272512`*^9, 3.752587465236018*^9, 
  3.752590204347686*^9, 3.7539142704863005`*^9, 3.8018314552698727`*^9},
 CellLabel->
  "Out[423]=",ExpressionUUID->"442f9762-862b-46e1-a914-81e984ac7fbb"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "expanding in terms of 12 x 12 basis elements  ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["c", "0"], "I"}], TraditionalForm]],ExpressionUUID->
  "bdca68b2-f4d7-4654-884c-bc0c0d302671"],
 " +",
 Cell[BoxData[
  FormBox[
   RowBox[{" ", 
    RowBox[{
     SubscriptBox["c", "ai"], 
     SubsuperscriptBox["\[Omega]", "a", "3"]}]}], TraditionalForm]],
  ExpressionUUID->"3565001c-6628-4762-a4d0-1f245b57b9d8"],
 Cell[BoxData[
  RowBox[{"\[CircleTimes]", 
   SubscriptBox["\[Alpha]", "i"], " "}]],
  CellChangeTimes->{{3.746555598004504*^9, 3.7465556052329865`*^9}, 
    3.746555662934346*^9},ExpressionUUID->
  "dd2a914d-6d4e-4439-af5b-cea154e10aee"],
 "+ ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["c", "ai"], 
    SubsuperscriptBox["\[Omega]", "a", "3"]}], TraditionalForm]],
  ExpressionUUID->"7c7d1a6b-b761-432c-a230-e29748c70b7d"],
 Cell[BoxData[
  RowBox[{"\[CircleTimes]", 
   SubscriptBox["\[Beta]", "i"]}]],
  CellChangeTimes->{{3.746555598004504*^9, 3.7465556052329865`*^9}, 
    3.746555662934346*^9},ExpressionUUID->
  "20c7f9d7-e509-47e7-9ce2-a8fe098f475a"],
 "+..."
}], "Subsection",
 CellChangeTimes->{{3.7465563941049843`*^9, 3.7465563988456526`*^9}, {
  3.746556439946031*^9, 3.7465565430829563`*^9}, {3.7465565766604166`*^9, 
  3.7465566038064103`*^9}},ExpressionUUID->"17e0418f-509b-4dd5-a5cd-\
9e486746208f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"GenerateCoeffs", "[", "Test12", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"Generating", " ", "basis", " ", "coefficients"}], " ", 
   "*)"}]}]], "Input",
 CellChangeTimes->{{3.7465556532473745`*^9, 3.7465556575703325`*^9}, {
  3.746556293560301*^9, 3.746556318152347*^9}, {3.746556404271696*^9, 
  3.746556408674828*^9}},
 CellLabel->
  "In[424]:=",ExpressionUUID->"395fc01c-eb72-4334-9cd3-ad5e8bb81117"],

Cell[BoxData[
 RowBox[{"{", "\<\"LCoeffs, RCoeffs, GALRCoeffs, GARLCoeffs, VCoeffs, \
VtildeCoeffs, VPMCoeffs, VtildePMCoeffs and CMessage[Rep][mi,si] are loaded \
for Rep = Test12\"\>", "}"}]], "Output",
 CellChangeTimes->{3.7500178872998304`*^9, 3.750018038253584*^9, 
  3.7503780838177247`*^9, 3.752520858945222*^9, 3.7525874666001415`*^9, 
  3.752590213338933*^9, 3.753914273189727*^9, 3.801831458735969*^9},
 CellLabel->
  "Out[424]=",ExpressionUUID->"0da4dab5-f5f0-4c91-bf7f-c42bc850c52b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintLBasis", "[", "Test12", "]"}], "[", "1", "]"}]], "Input",
 CellChangeTimes->{{3.7465555931573954`*^9, 3.7465556044157343`*^9}},
 CellLabel->
  "In[425]:=",ExpressionUUID->"9aa1aa92-a654-42fa-a51d-ee35e77d8f98"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "0", "3"], "\[CircleTimes]", 
    SubscriptBox["\<\"I\"\>", "4"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "0", "3"], "\[CircleTimes]", 
    SubscriptBox["\[Alpha]", "1"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "0", "3"], "\[CircleTimes]", 
    SubscriptBox["\[Alpha]", "2"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "0", "3"], "\[CircleTimes]", 
    SubscriptBox["\[Beta]", "1"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "0", "3"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "1"], " ", 
      SubscriptBox["\[Beta]", "1"]}], ")"}]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "0", "3"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "2"], " ", 
      SubscriptBox["\[Beta]", "1"]}], ")"}]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "-", 
  RowBox[{
   RowBox[{
    SubsuperscriptBox["\[Omega]", "0", "3"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "3"], " ", 
      SubscriptBox["\[Beta]", "1"]}], ")"}]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "0", "3"], "\[CircleTimes]", 
    SubscriptBox["\[Beta]", "2"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "0", "3"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "1"], " ", 
      SubscriptBox["\[Beta]", "2"]}], ")"}]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "0", "3"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "3"], " ", 
      SubscriptBox["\[Beta]", "2"]}], ")"}]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "-", 
  RowBox[{
   RowBox[{
    SubsuperscriptBox["\[Omega]", "0", "3"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "1"], " ", 
      SubscriptBox["\[Beta]", "3"]}], ")"}]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "0", "3"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "2"], " ", 
      SubscriptBox["\[Beta]", "3"]}], ")"}]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "3", "3"], "\[CircleTimes]", 
    SubscriptBox["\[Alpha]", "2"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "3", "3"], "\[CircleTimes]", 
    SubscriptBox["\[Alpha]", "3"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "3", "3"], "\[CircleTimes]", 
    SubscriptBox["\[Beta]", "2"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "3", "3"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "2"], " ", 
      SubscriptBox["\[Beta]", "2"]}], ")"}]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "3", "3"], "\[CircleTimes]", 
    SubscriptBox["\[Beta]", "3"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "3", "3"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "3"], " ", 
      SubscriptBox["\[Beta]", "3"]}], ")"}]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "8", "3"], "\[CircleTimes]", 
    SubscriptBox["\<\"I\"\>", "4"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "8", "3"], "\[CircleTimes]", 
    SubscriptBox["\[Alpha]", "1"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "8", "3"], "\[CircleTimes]", 
    SubscriptBox["\[Alpha]", "2"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "8", "3"], "\[CircleTimes]", 
    SubscriptBox["\[Beta]", "1"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "8", "3"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "1"], " ", 
      SubscriptBox["\[Beta]", "1"]}], ")"}]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "8", "3"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "2"], " ", 
      SubscriptBox["\[Beta]", "1"]}], ")"}]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "8", "3"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "3"], " ", 
      SubscriptBox["\[Beta]", "1"]}], ")"}]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "8", "3"], "\[CircleTimes]", 
    SubscriptBox["\[Beta]", "2"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "8", "3"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "1"], " ", 
      SubscriptBox["\[Beta]", "2"]}], ")"}]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "8", "3"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "3"], " ", 
      SubscriptBox["\[Beta]", "2"]}], ")"}]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "8", "3"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "1"], " ", 
      SubscriptBox["\[Beta]", "3"]}], ")"}]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "8", "3"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "2"], " ", 
      SubscriptBox["\[Beta]", "3"]}], ")"}]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}]}]], "Output",
 CellChangeTimes->{3.750017887400518*^9, 3.7500180383032694`*^9, 
  3.750378083894539*^9, 3.7525208590106688`*^9, 3.752587466669504*^9, 
  3.7525902134174585`*^9, 3.7539142732365603`*^9, 3.801831458993279*^9},
 CellLabel->
  "Out[425]=",ExpressionUUID->"943d8fc7-9a14-4837-8816-c2e30035870a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintLBasis", "[", "Test12", "]"}], "[", "2", "]"}]], "Input",
 CellChangeTimes->{{3.7465555931573954`*^9, 3.7465556044157343`*^9}, {
  3.74655567557169*^9, 3.746555675638878*^9}},
 CellLabel->
  "In[426]:=",ExpressionUUID->"d6012992-7b5e-41aa-ad30-ac3163a28cf7"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", 
    FractionBox["1", "2"]}], " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "0", "3"], "\[CircleTimes]", 
    SubscriptBox["\<\"I\"\>", "4"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "0", "3"], "\[CircleTimes]", 
    SubscriptBox["\[Alpha]", "1"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "0", "3"], "\[CircleTimes]", 
    SubscriptBox["\[Alpha]", "2"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "0", "3"], "\[CircleTimes]", 
    SubscriptBox["\[Beta]", "1"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "0", "3"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "3"], " ", 
      SubscriptBox["\[Beta]", "1"]}], ")"}]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "0", "3"], "\[CircleTimes]", 
    SubscriptBox["\[Beta]", "2"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "0", "3"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "1"], " ", 
      SubscriptBox["\[Beta]", "2"]}], ")"}]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "0", "3"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "3"], " ", 
      SubscriptBox["\[Beta]", "2"]}], ")"}]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "0", "3"], "\[CircleTimes]", 
    SubscriptBox["\[Beta]", "3"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "0", "3"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "1"], " ", 
      SubscriptBox["\[Beta]", "3"]}], ")"}]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "+", 
  RowBox[{
   RowBox[{
    SubsuperscriptBox["\[Omega]", "0", "3"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "2"], " ", 
      SubscriptBox["\[Beta]", "3"]}], ")"}]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "0", "3"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "3"], " ", 
      SubscriptBox["\[Beta]", "3"]}], ")"}]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "3", "3"], "\[CircleTimes]", 
    SubscriptBox["\[Alpha]", "1"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "3", "3"], "\[CircleTimes]", 
    SubscriptBox["\[Alpha]", "3"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "3", "3"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "1"], " ", 
      SubscriptBox["\[Beta]", "1"]}], ")"}]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "3", "3"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "2"], " ", 
      SubscriptBox["\[Beta]", "1"]}], ")"}]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "3", "3"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "2"], " ", 
      SubscriptBox["\[Beta]", "2"]}], ")"}]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "3", "3"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "3"], " ", 
      SubscriptBox["\[Beta]", "2"]}], ")"}]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "8", "3"], "\[CircleTimes]", 
    SubscriptBox["\<\"I\"\>", "4"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "8", "3"], "\[CircleTimes]", 
    SubscriptBox["\[Alpha]", "1"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "8", "3"], "\[CircleTimes]", 
    SubscriptBox["\[Alpha]", "2"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "8", "3"], "\[CircleTimes]", 
    SubscriptBox["\[Beta]", "1"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "8", "3"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "3"], " ", 
      SubscriptBox["\[Beta]", "1"]}], ")"}]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "8", "3"], "\[CircleTimes]", 
    SubscriptBox["\[Beta]", "2"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "8", "3"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "1"], " ", 
      SubscriptBox["\[Beta]", "2"]}], ")"}]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "-", 
  RowBox[{
   RowBox[{
    SubsuperscriptBox["\[Omega]", "8", "3"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "3"], " ", 
      SubscriptBox["\[Beta]", "2"]}], ")"}]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "8", "3"], "\[CircleTimes]", 
    SubscriptBox["\[Beta]", "3"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "8", "3"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "1"], " ", 
      SubscriptBox["\[Beta]", "3"]}], ")"}]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "8", "3"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "2"], " ", 
      SubscriptBox["\[Beta]", "3"]}], ")"}]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "8", "3"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "3"], " ", 
      SubscriptBox["\[Beta]", "3"]}], ")"}]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}]}]], "Output",
 CellChangeTimes->{3.7500178874273024`*^9, 3.7500180383335247`*^9, 
  3.7503780839284596`*^9, 3.7525208590455985`*^9, 3.7525874667041035`*^9, 
  3.7539142732834625`*^9, 3.801831459012617*^9},
 CellLabel->
  "Out[426]=",ExpressionUUID->"44c50e15-f590-4e0b-9a5c-a28a83f809bf"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintLBasis", "[", "Test12", "]"}], "[", "3", "]"}]], "Input",
 CellChangeTimes->{{3.7465555931573954`*^9, 3.7465556044157343`*^9}, {
  3.74655567557169*^9, 3.746555683104106*^9}},
 CellLabel->
  "In[427]:=",ExpressionUUID->"478033e6-ecf2-4c2f-b15a-52049245f57c"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", 
    FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "0", "3"], "\[CircleTimes]", 
    SubscriptBox["\[Alpha]", "1"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "0", "3"], "\[CircleTimes]", 
    SubscriptBox["\[Alpha]", "2"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "0", "3"], "\[CircleTimes]", 
    SubscriptBox["\[Alpha]", "3"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "0", "3"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "1"], " ", 
      SubscriptBox["\[Beta]", "1"]}], ")"}]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "0", "3"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "2"], " ", 
      SubscriptBox["\[Beta]", "1"]}], ")"}]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "0", "3"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "3"], " ", 
      SubscriptBox["\[Beta]", "1"]}], ")"}]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "0", "3"], "\[CircleTimes]", 
    SubscriptBox["\[Beta]", "2"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "0", "3"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "2"], " ", 
      SubscriptBox["\[Beta]", "2"]}], ")"}]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "0", "3"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "3"], " ", 
      SubscriptBox["\[Beta]", "2"]}], ")"}]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "0", "3"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "1"], " ", 
      SubscriptBox["\[Beta]", "3"]}], ")"}]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "+", 
  RowBox[{
   RowBox[{
    SubsuperscriptBox["\[Omega]", "0", "3"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "3"], " ", 
      SubscriptBox["\[Beta]", "3"]}], ")"}]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "3", "3"], "\[CircleTimes]", 
    SubscriptBox["\[Beta]", "1"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "3", "3"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "1"], " ", 
      SubscriptBox["\[Beta]", "1"]}], ")"}]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "3", "3"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "1"], " ", 
      SubscriptBox["\[Beta]", "2"]}], ")"}]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "3", "3"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "2"], " ", 
      SubscriptBox["\[Beta]", "2"]}], ")"}]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "3", "3"], "\[CircleTimes]", 
    SubscriptBox["\[Beta]", "3"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "3", "3"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "2"], " ", 
      SubscriptBox["\[Beta]", "3"]}], ")"}]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "-", 
  RowBox[{
   FractionBox["3", "2"], " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "8", "3"], "\[CircleTimes]", 
    SubscriptBox["\<\"I\"\>", "4"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "8", "3"], "\[CircleTimes]", 
    SubscriptBox["\[Alpha]", "1"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "8", "3"], "\[CircleTimes]", 
    SubscriptBox["\[Alpha]", "2"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "8", "3"], "\[CircleTimes]", 
    SubscriptBox["\[Alpha]", "3"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "+", 
  RowBox[{
   RowBox[{
    SubsuperscriptBox["\[Omega]", "8", "3"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "1"], " ", 
      SubscriptBox["\[Beta]", "1"]}], ")"}]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "8", "3"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "2"], " ", 
      SubscriptBox["\[Beta]", "1"]}], ")"}]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "8", "3"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "3"], " ", 
      SubscriptBox["\[Beta]", "1"]}], ")"}]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "8", "3"], "\[CircleTimes]", 
    SubscriptBox["\[Beta]", "2"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "+", 
  RowBox[{
   RowBox[{
    SubsuperscriptBox["\[Omega]", "8", "3"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "2"], " ", 
      SubscriptBox["\[Beta]", "2"]}], ")"}]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "8", "3"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "3"], " ", 
      SubscriptBox["\[Beta]", "2"]}], ")"}]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "8", "3"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "1"], " ", 
      SubscriptBox["\[Beta]", "3"]}], ")"}]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "8", "3"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "3"], " ", 
      SubscriptBox["\[Beta]", "3"]}], ")"}]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}]}]], "Output",
 CellChangeTimes->{3.7500178874565663`*^9, 3.750018038358324*^9, 
  3.7503780839623384`*^9, 3.7525208590804863`*^9, 3.752587466735324*^9, 
  3.7539142733146706`*^9, 3.8018314591600447`*^9},
 CellLabel->
  "Out[427]=",ExpressionUUID->"16664dfa-e516-407d-bed5-b967349f1755"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintLBasis", "[", "Test12", "]"}], "[", "4", "]"}]], "Input",
 CellChangeTimes->{{3.7465555931573954`*^9, 3.7465556044157343`*^9}, {
  3.74655567557169*^9, 3.7465556866132946`*^9}},
 CellLabel->
  "In[428]:=",ExpressionUUID->"b5814ae7-8cee-457e-86d1-ce421fd78bb5"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "0", "3"], "\[CircleTimes]", 
    SubscriptBox["\[Alpha]", "1"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "0", "3"], "\[CircleTimes]", 
    SubscriptBox["\[Alpha]", "2"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "0", "3"], "\[CircleTimes]", 
    SubscriptBox["\[Alpha]", "3"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "0", "3"], "\[CircleTimes]", 
    SubscriptBox["\[Beta]", "1"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "+", 
  RowBox[{
   RowBox[{
    SubsuperscriptBox["\[Omega]", "0", "3"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "2"], " ", 
      SubscriptBox["\[Beta]", "1"]}], ")"}]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "0", "3"], "\[CircleTimes]", 
    SubscriptBox["\[Beta]", "2"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "0", "3"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "2"], " ", 
      SubscriptBox["\[Beta]", "2"]}], ")"}]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "0", "3"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "3"], " ", 
      SubscriptBox["\[Beta]", "2"]}], ")"}]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "0", "3"], "\[CircleTimes]", 
    SubscriptBox["\[Beta]", "3"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "0", "3"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "2"], " ", 
      SubscriptBox["\[Beta]", "3"]}], ")"}]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "0", "3"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "3"], " ", 
      SubscriptBox["\[Beta]", "3"]}], ")"}]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "3", "3"], "\[CircleTimes]", 
    SubscriptBox["\<\"I\"\>", "4"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "3", "3"], "\[CircleTimes]", 
    SubscriptBox["\[Alpha]", "3"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "3", "3"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "1"], " ", 
      SubscriptBox["\[Beta]", "1"]}], ")"}]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "3", "3"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "3"], " ", 
      SubscriptBox["\[Beta]", "1"]}], ")"}]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "3", "3"], "\[CircleTimes]", 
    SubscriptBox["\[Beta]", "3"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "3", "3"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "1"], " ", 
      SubscriptBox["\[Beta]", "3"]}], ")"}]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "8", "3"], "\[CircleTimes]", 
    SubscriptBox["\[Alpha]", "1"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "8", "3"], "\[CircleTimes]", 
    SubscriptBox["\[Alpha]", "2"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "8", "3"], "\[CircleTimes]", 
    SubscriptBox["\[Alpha]", "3"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "8", "3"], "\[CircleTimes]", 
    SubscriptBox["\[Beta]", "1"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "8", "3"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "2"], " ", 
      SubscriptBox["\[Beta]", "1"]}], ")"}]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "8", "3"], "\[CircleTimes]", 
    SubscriptBox["\[Beta]", "2"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "+", 
  RowBox[{
   FractionBox["3", "2"], " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "8", "3"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "1"], " ", 
      SubscriptBox["\[Beta]", "2"]}], ")"}]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "8", "3"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "2"], " ", 
      SubscriptBox["\[Beta]", "2"]}], ")"}]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "8", "3"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "3"], " ", 
      SubscriptBox["\[Beta]", "2"]}], ")"}]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "8", "3"], "\[CircleTimes]", 
    SubscriptBox["\[Beta]", "3"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "8", "3"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "2"], " ", 
      SubscriptBox["\[Beta]", "3"]}], ")"}]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "8", "3"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "3"], " ", 
      SubscriptBox["\[Beta]", "3"]}], ")"}]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}]}]], "Output",
 CellChangeTimes->{3.750017887496519*^9, 3.7500180383907785`*^9, 
  3.7503780839942856`*^9, 3.7525208591133575`*^9, 3.752587466779955*^9, 
  3.753914273345916*^9, 3.801831459177804*^9},
 CellLabel->
  "Out[428]=",ExpressionUUID->"e200fec8-d044-46a2-9357-377c1472a790"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintGALRBasis", "[", "Test12", "]"}], "[", 
  RowBox[{"1", ",", "1"}], "]"}]], "Input",
 CellChangeTimes->{{3.7525902212739415`*^9, 3.7525902307747*^9}},
 CellLabel->
  "In[429]:=",ExpressionUUID->"98c3b2ff-c150-4640-b97f-3d32c5329751"],

Cell[BoxData[
 RowBox[{"6", " ", 
  RowBox[{
   SubsuperscriptBox["\[Omega]", "0", "3"], "\[CircleTimes]", 
   SubscriptBox["\<\"I\"\>", "4"]}], " ", 
  RowBox[{"nz", "[", "3", "]"}]}]], "Output",
 CellChangeTimes->{3.7525902314664154`*^9, 3.7539142733927746`*^9, 
  3.801831459302823*^9},
 CellLabel->
  "Out[429]=",ExpressionUUID->"ab4e9a0c-29af-4163-90fd-ba53f887e5f5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Omega]matrix", "[", "3", "]"}], "[", "0", "]"}]], "Input",
 CellChangeTimes->{{3.752590251131626*^9, 3.7525902546262956`*^9}},
 CellLabel->
  "In[430]:=",ExpressionUUID->"0c8ce384-5857-4a95-bd62-8d1ccf9b0664"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     FractionBox["1", 
      RowBox[{"3", " ", 
       RowBox[{"nz", "[", "3", "]"}]}]], ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", 
     FractionBox["1", 
      RowBox[{"3", " ", 
       RowBox[{"nz", "[", "3", "]"}]}]], ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", 
     FractionBox["1", 
      RowBox[{"3", " ", 
       RowBox[{"nz", "[", "3", "]"}]}]]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.752590255956707*^9, 3.7539142734084253`*^9, 
  3.80183145932016*^9},
 CellLabel->
  "Out[430]=",ExpressionUUID->"683eb654-1f9a-4890-9a7e-2cbaf6064f59"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintGALRBasis", "[", "Test12", "]"}], "[", 
  RowBox[{"1", ",", "2"}], "]"}]], "Input",
 CellChangeTimes->{{3.7525902212739415`*^9, 3.7525902391100254`*^9}},
 CellLabel->
  "In[431]:=",ExpressionUUID->"e68f6314-d44f-4f6e-96b2-5a495f6439f8"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{{3.7525902314664154`*^9, 3.752590239432992*^9}, 
   3.753914273439638*^9, 3.801831459422781*^9},
 CellLabel->
  "Out[431]=",ExpressionUUID->"545cfdbe-e15f-41f8-9375-e0e9e7f26531"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintGALRBasis", "[", "Test12", "]"}], "[", 
  RowBox[{"1", ",", "1"}], "]"}]], "Input",
 CellChangeTimes->{{3.7525902212739415`*^9, 3.7525902307747*^9}},
 CellLabel->
  "In[432]:=",ExpressionUUID->"f5ea814b-d2e5-45dd-9c29-cfc94028ab70"],

Cell[BoxData[
 RowBox[{"6", " ", 
  RowBox[{
   SubsuperscriptBox["\[Omega]", "0", "3"], "\[CircleTimes]", 
   SubscriptBox["\<\"I\"\>", "4"]}], " ", 
  RowBox[{"nz", "[", "3", "]"}]}]], "Output",
 CellChangeTimes->{3.7525902314664154`*^9, 3.7539142734708805`*^9, 
  3.8018314594345617`*^9},
 CellLabel->
  "Out[432]=",ExpressionUUID->"932031c9-29c3-436b-bec1-8518f84eb9c9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintGALRBasis", "[", "Test12", "]"}], "[", 
  RowBox[{"2", ",", "3"}], "]"}]], "Input",
 CellChangeTimes->{{3.7525902212739415`*^9, 3.7525902307747*^9}, {
  3.752590284839676*^9, 3.7525902982153416`*^9}},
 CellLabel->
  "In[433]:=",ExpressionUUID->"c1fec85d-d4d1-4f56-9ecf-1bf2dc472407"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{
  3.7525902314664154`*^9, {3.7525902957042503`*^9, 3.7525902990374017`*^9}, 
   3.753914273502124*^9, 3.801831459525077*^9},
 CellLabel->
  "Out[433]=",ExpressionUUID->"33957cef-ce2b-46f9-a306-ec15d257cf9f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintGALRBasis", "[", "Test12", "]"}], "[", 
  RowBox[{"4", ",", "4"}], "]"}]], "Input",
 CellChangeTimes->{{3.7525902212739415`*^9, 3.7525902307747*^9}, {
  3.752590303013462*^9, 3.7525903118875003`*^9}},
 CellLabel->
  "In[434]:=",ExpressionUUID->"74b5b5b9-de58-4fdb-ad5a-1050d804f2ae"],

Cell[BoxData[
 RowBox[{"6", " ", 
  RowBox[{
   SubsuperscriptBox["\[Omega]", "0", "3"], "\[CircleTimes]", 
   SubscriptBox["\<\"I\"\>", "4"]}], " ", 
  RowBox[{"nz", "[", "3", "]"}]}]], "Output",
 CellChangeTimes->{
  3.7525902314664154`*^9, {3.752590308469961*^9, 3.7525903126685104`*^9}, 
   3.753914273517767*^9, 3.8018314595371647`*^9},
 CellLabel->
  "Out[434]=",ExpressionUUID->"589b72ed-1985-4917-b8bd-303483bc5d1e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintVtildeBasis", "[", "Test12", "]"}], "[", 
  RowBox[{"1", ",", "2"}], "]"}]], "Input",
 CellChangeTimes->{{3.7465556948940125`*^9, 3.746555712403555*^9}},
 CellLabel->
  "In[435]:=",ExpressionUUID->"c81b81cb-fd61-49cb-b944-18f38b20fa0f"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    SubsuperscriptBox["\[Omega]", "0", "3"], "\[CircleTimes]", 
    SubscriptBox["\[Alpha]", "2"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "+", 
  RowBox[{
   RowBox[{
    SubsuperscriptBox["\[Omega]", "3", "3"], "\[CircleTimes]", 
    SubscriptBox["\[Alpha]", "2"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "-", 
  RowBox[{
   RowBox[{
    SubsuperscriptBox["\[Omega]", "3", "3"], "\[CircleTimes]", 
    SubscriptBox["\[Beta]", "3"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "+", 
  RowBox[{
   RowBox[{
    SubsuperscriptBox["\[Omega]", "8", "3"], "\[CircleTimes]", 
    SubscriptBox["\[Alpha]", "2"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "+", 
  RowBox[{"3", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "8", "3"], "\[CircleTimes]", 
    SubscriptBox["\[Beta]", "3"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}]}]], "Output",
 CellChangeTimes->{3.7500178875198293`*^9, 3.750018038408176*^9, 
  3.7503780840221972`*^9, 3.752520859144275*^9, 3.752587466810622*^9, 
  3.7539142735646086`*^9, 3.801831459622541*^9},
 CellLabel->
  "Out[435]=",ExpressionUUID->"1d02e256-7ec6-400c-808e-f6da0d1f9c95"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintVtildeBasis", "[", "Test12", "]"}], "[", 
  RowBox[{"1", ",", "3"}], "]"}]], "Input",
 CellChangeTimes->{{3.7465556948940125`*^9, 3.746555719223196*^9}},
 CellLabel->
  "In[436]:=",ExpressionUUID->"d006dc26-4a21-4914-97b3-3067e79961e0"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    SubsuperscriptBox["\[Omega]", "0", "3"], "\[CircleTimes]", 
    SubscriptBox["\[Alpha]", "3"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "0", "3"], "\[CircleTimes]", 
    SubscriptBox["\[Beta]", "2"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "+", 
  RowBox[{
   RowBox[{
    SubsuperscriptBox["\[Omega]", "3", "3"], "\[CircleTimes]", 
    SubscriptBox["\[Alpha]", "3"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "-", 
  RowBox[{
   RowBox[{
    SubsuperscriptBox["\[Omega]", "3", "3"], "\[CircleTimes]", 
    SubscriptBox["\[Beta]", "2"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "+", 
  RowBox[{
   RowBox[{
    SubsuperscriptBox["\[Omega]", "8", "3"], "\[CircleTimes]", 
    SubscriptBox["\[Alpha]", "3"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "-", 
  RowBox[{
   RowBox[{
    SubsuperscriptBox["\[Omega]", "8", "3"], "\[CircleTimes]", 
    SubscriptBox["\[Beta]", "2"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}]}]], "Output",
 CellChangeTimes->{3.750017887544631*^9, 3.750018038435979*^9, 
  3.750378084044119*^9, 3.7525208591712074`*^9, 3.752587466841902*^9, 
  3.7539142736270943`*^9, 3.8018314596334333`*^9},
 CellLabel->
  "Out[436]=",ExpressionUUID->"65271c56-cc44-4baa-b927-f4d4151c6cfc"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintVtildeBasis", "[", "Test12", "]"}], "[", 
  RowBox[{"1", ",", "4"}], "]"}]], "Input",
 CellChangeTimes->{{3.7465556948940125`*^9, 3.746555722466285*^9}},
 CellLabel->
  "In[437]:=",ExpressionUUID->"d0c7cd8e-d114-46de-9f95-7abfb4e45842"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    SubsuperscriptBox["\[Omega]", "0", "3"], "\[CircleTimes]", 
    SubscriptBox["\[Alpha]", "1"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "+", 
  RowBox[{
   RowBox[{
    SubsuperscriptBox["\[Omega]", "3", "3"], "\[CircleTimes]", 
    SubscriptBox["\[Alpha]", "1"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "-", 
  RowBox[{
   RowBox[{
    SubsuperscriptBox["\[Omega]", "3", "3"], "\[CircleTimes]", 
    SubscriptBox["\[Beta]", "1"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "+", 
  RowBox[{
   RowBox[{
    SubsuperscriptBox["\[Omega]", "8", "3"], "\[CircleTimes]", 
    SubscriptBox["\[Alpha]", "1"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "+", 
  RowBox[{"3", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "8", "3"], "\[CircleTimes]", 
    SubscriptBox["\[Beta]", "1"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}]}]], "Output",
 CellChangeTimes->{3.7500178875679436`*^9, 3.750018038456746*^9, 
  3.7503780840670877`*^9, 3.752520859195143*^9, 3.752587466873143*^9, 
  3.7539142737208586`*^9, 3.801831459721427*^9},
 CellLabel->
  "Out[437]=",ExpressionUUID->"dbe96cb1-7840-487e-9fd0-b7417615794f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintVtildeBasis", "[", "Test12", "]"}], "[", 
  RowBox[{"2", ",", "3"}], "]"}]], "Input",
 CellChangeTimes->{{3.7465556948940125`*^9, 3.746555726262475*^9}},
 CellLabel->
  "In[438]:=",ExpressionUUID->"76216aac-d519-49f6-bae6-5ff57857bec9"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    SubsuperscriptBox["\[Omega]", "0", "3"], "\[CircleTimes]", 
    SubscriptBox["\[Alpha]", "1"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "+", 
  RowBox[{
   RowBox[{
    SubsuperscriptBox["\[Omega]", "3", "3"], "\[CircleTimes]", 
    SubscriptBox["\[Alpha]", "1"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "+", 
  RowBox[{
   RowBox[{
    SubsuperscriptBox["\[Omega]", "3", "3"], "\[CircleTimes]", 
    SubscriptBox["\[Beta]", "1"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "+", 
  RowBox[{
   RowBox[{
    SubsuperscriptBox["\[Omega]", "8", "3"], "\[CircleTimes]", 
    SubscriptBox["\[Alpha]", "1"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "-", 
  RowBox[{"3", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "8", "3"], "\[CircleTimes]", 
    SubscriptBox["\[Beta]", "1"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}]}]], "Output",
 CellChangeTimes->{3.750017887597262*^9, 3.7500180384800587`*^9, 
  3.750378084088036*^9, 3.752520859221077*^9, 3.752587466904353*^9, 
  3.753914273798929*^9, 3.8018314597351217`*^9},
 CellLabel->
  "Out[438]=",ExpressionUUID->"7f5e37fd-f624-4cc4-b047-1abb3e8ec798"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintVtildeBasis", "[", "Test12", "]"}], "[", 
  RowBox[{"2", ",", "4"}], "]"}]], "Input",
 CellChangeTimes->{{3.7465556948940125`*^9, 3.746555733250712*^9}},
 CellLabel->
  "In[439]:=",ExpressionUUID->"b99883f9-3b4f-4f68-be7f-c821cbf5d940"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", 
    RowBox[{"(", 
     RowBox[{
      SubsuperscriptBox["\[Omega]", "0", "3"], "\[CircleTimes]", 
      SubscriptBox["\[Alpha]", "3"]}], ")"}]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "0", "3"], "\[CircleTimes]", 
    SubscriptBox["\[Beta]", "2"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "-", 
  RowBox[{
   RowBox[{
    SubsuperscriptBox["\[Omega]", "3", "3"], "\[CircleTimes]", 
    SubscriptBox["\[Alpha]", "3"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "-", 
  RowBox[{
   RowBox[{
    SubsuperscriptBox["\[Omega]", "3", "3"], "\[CircleTimes]", 
    SubscriptBox["\[Beta]", "2"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "-", 
  RowBox[{
   RowBox[{
    SubsuperscriptBox["\[Omega]", "8", "3"], "\[CircleTimes]", 
    SubscriptBox["\[Alpha]", "3"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "-", 
  RowBox[{
   RowBox[{
    SubsuperscriptBox["\[Omega]", "8", "3"], "\[CircleTimes]", 
    SubscriptBox["\[Beta]", "2"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}]}]], "Output",
 CellChangeTimes->{3.750017887621013*^9, 3.7500180385048513`*^9, 
  3.7503780841099434`*^9, 3.7525208592500105`*^9, 3.7525874669513907`*^9, 
  3.753914273846124*^9, 3.801831459820002*^9},
 CellLabel->
  "Out[439]=",ExpressionUUID->"7a8df6a5-3e88-4c72-9757-81de313d7ff0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintVtildeBasis", "[", "Test12", "]"}], "[", 
  RowBox[{"3", ",", "4"}], "]"}]], "Input",
 CellChangeTimes->{{3.7465556948940125`*^9, 3.7465557373775005`*^9}},
 CellLabel->
  "In[440]:=",ExpressionUUID->"83cd5c03-c7a8-4b3c-9a89-b01c7a4f7947"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    SubsuperscriptBox["\[Omega]", "0", "3"], "\[CircleTimes]", 
    SubscriptBox["\[Alpha]", "2"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "+", 
  RowBox[{
   RowBox[{
    SubsuperscriptBox["\[Omega]", "3", "3"], "\[CircleTimes]", 
    SubscriptBox["\[Alpha]", "2"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "+", 
  RowBox[{
   RowBox[{
    SubsuperscriptBox["\[Omega]", "3", "3"], "\[CircleTimes]", 
    SubscriptBox["\[Beta]", "3"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "+", 
  RowBox[{
   RowBox[{
    SubsuperscriptBox["\[Omega]", "8", "3"], "\[CircleTimes]", 
    SubscriptBox["\[Alpha]", "2"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}], "-", 
  RowBox[{"3", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "8", "3"], "\[CircleTimes]", 
    SubscriptBox["\[Beta]", "3"]}], " ", 
   RowBox[{"nz", "[", "3", "]"}]}]}]], "Output",
 CellChangeTimes->{3.750017887645815*^9, 3.7500180385217557`*^9, 
  3.750378084133913*^9, 3.752520859281933*^9, 3.7525874669826975`*^9, 
  3.753914273908611*^9, 3.801831459963688*^9},
 CellLabel->
  "Out[440]=",ExpressionUUID->"80eb165e-29d3-4f67-8c41-559817d7ceef"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Looks like nz[3] = 1 works pretty well for Vtilde:",
 FontColor->RGBColor[
  0.7803921568627451, 0.4235294117647059, 0.1607843137254902]]], "Subsection",\

 CellChangeTimes->{{3.7465566680931*^9, 
  3.7465566774044733`*^9}},ExpressionUUID->"d5b194b9-82a8-460b-9ed5-\
cff5d974521b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"PrintVtildeBasis", "[", "Test12", "]"}], "[", 
       RowBox[{"Ii", ",", "Ji"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"Ii", ",", "1", ",", 
        RowBox[{
         RowBox[{"NColors", "[", "Test12", "]"}], "-", "1"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Ji", ",", 
        RowBox[{"Ii", "+", "1"}], ",", 
        RowBox[{"NColors", "[", "Test12", "]"}]}], "}"}]}], "]"}], "/.", 
    RowBox[{
     RowBox[{"nz", "[", "3", "]"}], "\[Rule]", "1"}]}], "//", "Flatten"}], "//",
   "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.7465556948940125`*^9, 3.746555712403555*^9}, {
  3.746556692669898*^9, 3.746556726622799*^9}, {3.7465568233847094`*^9, 
  3.746556845175023*^9}},
 CellLabel->
  "In[441]:=",ExpressionUUID->"f20f083e-2f33-4223-8690-26cf235b713f"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", 
   TagBox[GridBox[{
      {
       RowBox[{
        RowBox[{
         SubsuperscriptBox["\[Omega]", "0", "3"], "\[CircleTimes]", 
         SubscriptBox["\[Alpha]", "2"]}], "+", 
        RowBox[{
         SubsuperscriptBox["\[Omega]", "3", "3"], "\[CircleTimes]", 
         SubscriptBox["\[Alpha]", "2"]}], "-", 
        RowBox[{
         SubsuperscriptBox["\[Omega]", "3", "3"], "\[CircleTimes]", 
         SubscriptBox["\[Beta]", "3"]}], "+", 
        RowBox[{
         SubsuperscriptBox["\[Omega]", "8", "3"], "\[CircleTimes]", 
         SubscriptBox["\[Alpha]", "2"]}], "+", 
        RowBox[{"3", " ", 
         RowBox[{
          SubsuperscriptBox["\[Omega]", "8", "3"], "\[CircleTimes]", 
          SubscriptBox["\[Beta]", "3"]}]}]}]},
      {
       RowBox[{
        RowBox[{
         SubsuperscriptBox["\[Omega]", "0", "3"], "\[CircleTimes]", 
         SubscriptBox["\[Alpha]", "3"]}], "+", 
        RowBox[{"2", " ", 
         RowBox[{
          SubsuperscriptBox["\[Omega]", "0", "3"], "\[CircleTimes]", 
          SubscriptBox["\[Beta]", "2"]}]}], "+", 
        RowBox[{
         SubsuperscriptBox["\[Omega]", "3", "3"], "\[CircleTimes]", 
         SubscriptBox["\[Alpha]", "3"]}], "-", 
        RowBox[{
         SubsuperscriptBox["\[Omega]", "3", "3"], "\[CircleTimes]", 
         SubscriptBox["\[Beta]", "2"]}], "+", 
        RowBox[{
         SubsuperscriptBox["\[Omega]", "8", "3"], "\[CircleTimes]", 
         SubscriptBox["\[Alpha]", "3"]}], "-", 
        RowBox[{
         SubsuperscriptBox["\[Omega]", "8", "3"], "\[CircleTimes]", 
         SubscriptBox["\[Beta]", "2"]}]}]},
      {
       RowBox[{
        RowBox[{
         SubsuperscriptBox["\[Omega]", "0", "3"], "\[CircleTimes]", 
         SubscriptBox["\[Alpha]", "1"]}], "+", 
        RowBox[{
         SubsuperscriptBox["\[Omega]", "3", "3"], "\[CircleTimes]", 
         SubscriptBox["\[Alpha]", "1"]}], "-", 
        RowBox[{
         SubsuperscriptBox["\[Omega]", "3", "3"], "\[CircleTimes]", 
         SubscriptBox["\[Beta]", "1"]}], "+", 
        RowBox[{
         SubsuperscriptBox["\[Omega]", "8", "3"], "\[CircleTimes]", 
         SubscriptBox["\[Alpha]", "1"]}], "+", 
        RowBox[{"3", " ", 
         RowBox[{
          SubsuperscriptBox["\[Omega]", "8", "3"], "\[CircleTimes]", 
          SubscriptBox["\[Beta]", "1"]}]}]}]},
      {
       RowBox[{
        RowBox[{
         SubsuperscriptBox["\[Omega]", "0", "3"], "\[CircleTimes]", 
         SubscriptBox["\[Alpha]", "1"]}], "+", 
        RowBox[{
         SubsuperscriptBox["\[Omega]", "3", "3"], "\[CircleTimes]", 
         SubscriptBox["\[Alpha]", "1"]}], "+", 
        RowBox[{
         SubsuperscriptBox["\[Omega]", "3", "3"], "\[CircleTimes]", 
         SubscriptBox["\[Beta]", "1"]}], "+", 
        RowBox[{
         SubsuperscriptBox["\[Omega]", "8", "3"], "\[CircleTimes]", 
         SubscriptBox["\[Alpha]", "1"]}], "-", 
        RowBox[{"3", " ", 
         RowBox[{
          SubsuperscriptBox["\[Omega]", "8", "3"], "\[CircleTimes]", 
          SubscriptBox["\[Beta]", "1"]}]}]}]},
      {
       RowBox[{
        RowBox[{"-", 
         RowBox[{"(", 
          RowBox[{
           SubsuperscriptBox["\[Omega]", "0", "3"], "\[CircleTimes]", 
           SubscriptBox["\[Alpha]", "3"]}], ")"}]}], "+", 
        RowBox[{"2", " ", 
         RowBox[{
          SubsuperscriptBox["\[Omega]", "0", "3"], "\[CircleTimes]", 
          SubscriptBox["\[Beta]", "2"]}]}], "-", 
        RowBox[{
         SubsuperscriptBox["\[Omega]", "3", "3"], "\[CircleTimes]", 
         SubscriptBox["\[Alpha]", "3"]}], "-", 
        RowBox[{
         SubsuperscriptBox["\[Omega]", "3", "3"], "\[CircleTimes]", 
         SubscriptBox["\[Beta]", "2"]}], "-", 
        RowBox[{
         SubsuperscriptBox["\[Omega]", "8", "3"], "\[CircleTimes]", 
         SubscriptBox["\[Alpha]", "3"]}], "-", 
        RowBox[{
         SubsuperscriptBox["\[Omega]", "8", "3"], "\[CircleTimes]", 
         SubscriptBox["\[Beta]", "2"]}]}]},
      {
       RowBox[{
        RowBox[{
         SubsuperscriptBox["\[Omega]", "0", "3"], "\[CircleTimes]", 
         SubscriptBox["\[Alpha]", "2"]}], "+", 
        RowBox[{
         SubsuperscriptBox["\[Omega]", "3", "3"], "\[CircleTimes]", 
         SubscriptBox["\[Alpha]", "2"]}], "+", 
        RowBox[{
         SubsuperscriptBox["\[Omega]", "3", "3"], "\[CircleTimes]", 
         SubscriptBox["\[Beta]", "3"]}], "+", 
        RowBox[{
         SubsuperscriptBox["\[Omega]", "8", "3"], "\[CircleTimes]", 
         SubscriptBox["\[Alpha]", "2"]}], "-", 
        RowBox[{"3", " ", 
         RowBox[{
          SubsuperscriptBox["\[Omega]", "8", "3"], "\[CircleTimes]", 
          SubscriptBox["\[Beta]", "3"]}]}]}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}],
    Column], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.750017887675573*^9, 3.7500180385544963`*^9, 
  3.7503780841757793`*^9, 3.7525208593108554`*^9, 3.752587467013883*^9, 
  3.7539142739710956`*^9, 3.801831460055108*^9},
 CellLabel->
  "Out[441]//MatrixForm=",ExpressionUUID->"b1ce731c-53ac-4422-af9d-\
4e5c1ecb1314"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"\[Omega]matrix", "[", "3", "]"}], "[", "slnindex", "]"}], "//",
      "MatrixForm"}], ",", 
    RowBox[{"{", 
     RowBox[{"slnindex", ",", "0", ",", "8"}], "}"}]}], "]"}], "/.", 
  RowBox[{
   RowBox[{"nz", "[", "3", "]"}], "\[Rule]", "1"}]}]], "Input",
 CellChangeTimes->{{3.7465557444621553`*^9, 3.746555780390791*^9}, {
  3.7466196863374815`*^9, 3.7466196887286625`*^9}},
 CellLabel->
  "In[442]:=",ExpressionUUID->"6fde7a67-1440-4701-8eab-e767ff58e07c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        FractionBox["1", "3"], "0", "0"},
       {"0", 
        FractionBox["1", "3"], "0"},
       {"0", "0", 
        FractionBox["1", "3"]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", 
        FractionBox["1", "2"], "0"},
       {
        FractionBox["1", "2"], "0", "0"},
       {"0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", 
        RowBox[{"-", 
         FractionBox["1", "2"]}], "0"},
       {
        FractionBox["1", "2"], "0", "0"},
       {"0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        FractionBox["1", "2"], "0", "0"},
       {"0", 
        RowBox[{"-", 
         FractionBox["1", "2"]}], "0"},
       {"0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", 
        FractionBox["1", "2"]},
       {"0", "0", "0"},
       {
        FractionBox["1", "2"], "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", 
        RowBox[{"-", 
         FractionBox["1", "2"]}]},
       {"0", "0", "0"},
       {
        FractionBox["1", "2"], "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0"},
       {"0", "0", 
        FractionBox["1", "2"]},
       {"0", 
        FractionBox["1", "2"], "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0"},
       {"0", "0", 
        RowBox[{"-", 
         FractionBox["1", "2"]}]},
       {"0", 
        FractionBox["1", "2"], "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        FractionBox["1", "6"], "0", "0"},
       {"0", 
        FractionBox["1", "6"], "0"},
       {"0", "0", 
        RowBox[{"-", 
         FractionBox["1", "3"]}]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{3.750017887714807*^9, 3.7500180385737953`*^9, 
  3.750378084200729*^9, 3.752520859350752*^9, 3.752587467045127*^9, 
  3.7539142740335817`*^9, 3.80183146007405*^9},
 CellLabel->
  "Out[442]=",ExpressionUUID->"2ae576b9-6e57-441a-b4d3-dea98b9c1a01"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"PrintVtildeBasis", "[", "Test12", "]"}], "[", 
   RowBox[{"1", ",", "2"}], "]"}], "/.", 
  RowBox[{
   RowBox[{"nz", "[", "3", "]"}], "\[Rule]", "1"}]}]], "Input",
 CellChangeTimes->{{3.7466201306473207`*^9, 3.746620144648775*^9}, {
  3.7466203734015837`*^9, 3.746620417952921*^9}, {3.7466204569570236`*^9, 
  3.7466204580664515`*^9}},
 CellLabel->
  "In[443]:=",ExpressionUUID->"6b032907-9c20-47bd-b1fa-6b13362a0e91"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SubsuperscriptBox["\[Omega]", "0", "3"], "\[CircleTimes]", 
   SubscriptBox["\[Alpha]", "2"]}], "+", 
  RowBox[{
   SubsuperscriptBox["\[Omega]", "3", "3"], "\[CircleTimes]", 
   SubscriptBox["\[Alpha]", "2"]}], "-", 
  RowBox[{
   SubsuperscriptBox["\[Omega]", "3", "3"], "\[CircleTimes]", 
   SubscriptBox["\[Beta]", "3"]}], "+", 
  RowBox[{
   SubsuperscriptBox["\[Omega]", "8", "3"], "\[CircleTimes]", 
   SubscriptBox["\[Alpha]", "2"]}], "+", 
  RowBox[{"3", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "8", "3"], "\[CircleTimes]", 
    SubscriptBox["\[Beta]", "3"]}]}]}]], "Output",
 CellChangeTimes->{3.7500178877385654`*^9, 3.7500180386005793`*^9, 
  3.7503780842236395`*^9, 3.752520859378184*^9, 3.7525874670763664`*^9, 
  3.7539142740960684`*^9, 3.801831460161104*^9},
 CellLabel->
  "Out[443]=",ExpressionUUID->"c29de5bb-de94-495d-b2b0-8f728259005a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Checking that the code is working right. ",
 FontColor->RGBColor[
  0.7137254901960784, 0.21568627450980393`, 
   0.03137254901960784]]], "Subsubsection",
 CellChangeTimes->{{3.746620895302933*^9, 3.746620962044154*^9}, 
   3.746637138567107*^9},ExpressionUUID->"fae1a020-86e8-4014-b405-\
9d4b5f41a9ec"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintVtilde", "[", "Test12", "]"}], "[", 
  RowBox[{"1", ",", "2"}], "]"}]], "Input",
 CellChangeTimes->{{3.7466195377734947`*^9, 3.746619546430602*^9}, {
  3.746620009399982*^9, 3.746620011619213*^9}, {3.7466202080922947`*^9, 
  3.746620208701872*^9}, {3.7466202659555206`*^9, 3.746620294816154*^9}, {
  3.746620328678726*^9, 3.7466203555249043`*^9}, {3.7466204284852695`*^9, 
  3.746620432548216*^9}, {3.7466371259721503`*^9, 3.746637127831703*^9}},
 CellLabel->
  "In[444]:=",ExpressionUUID->"61b859a5-06c8-4ea6-bbcc-5992631a02d9"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", 
      RowBox[{"-", "\[ImaginaryI]"}], "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"\[ImaginaryI]", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0"},
     {"0", "0", "0", 
      RowBox[{"-", "\[ImaginaryI]"}], "0", "0", "0", "0", "0", "0", "0", 
      "0"},
     {"0", "0", "\[ImaginaryI]", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0"},
     {"0", "0", "0", "0", "0", 
      RowBox[{"-", "\[ImaginaryI]"}], "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "\[ImaginaryI]", "0", "0", "0", "0", "0", "0", 
      "0"},
     {"0", "0", "0", "0", "0", "0", "0", "\[ImaginaryI]", "0", "0", "0", 
      "0"},
     {"0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "\[ImaginaryI]"}], "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "\[ImaginaryI]", "0", 
      "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "\[ImaginaryI]"}], "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "\[ImaginaryI]"}]},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\[ImaginaryI]", "0"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.7500178877967143`*^9, 3.750018038621949*^9, 
  3.7503780842485733`*^9, 3.7525208593991327`*^9, 3.7525874671270466`*^9, 
  3.753914274142931*^9, 3.801831460265077*^9},
 CellLabel->
  "Out[444]//MatrixForm=",ExpressionUUID->"59787de8-24eb-42ec-b755-\
ff13cbb7f96d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Vtilde", "[", "Test12", "]"}], "[", 
   RowBox[{"[", 
    RowBox[{"1", ",", "2"}], "]"}], "]"}], "//", "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.7466203007385435`*^9, 3.746620317287016*^9}, {
  3.7466204430181446`*^9, 3.746620447549659*^9}},
 CellLabel->
  "In[445]:=",ExpressionUUID->"e3e83549-a4bf-4066-8218-787cc43b0ccf"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", 
      RowBox[{"-", "\[ImaginaryI]"}], "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"\[ImaginaryI]", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0"},
     {"0", "0", "0", 
      RowBox[{"-", "\[ImaginaryI]"}], "0", "0", "0", "0", "0", "0", "0", 
      "0"},
     {"0", "0", "\[ImaginaryI]", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0"},
     {"0", "0", "0", "0", "0", 
      RowBox[{"-", "\[ImaginaryI]"}], "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "\[ImaginaryI]", "0", "0", "0", "0", "0", "0", 
      "0"},
     {"0", "0", "0", "0", "0", "0", "0", "\[ImaginaryI]", "0", "0", "0", 
      "0"},
     {"0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "\[ImaginaryI]"}], "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "\[ImaginaryI]", "0", 
      "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "\[ImaginaryI]"}], "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "\[ImaginaryI]"}]},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\[ImaginaryI]", "0"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.75001788781953*^9, 3.750018038641288*^9, 
  3.7503780842725463`*^9, 3.7525208594310555`*^9, 3.752587467155733*^9, 
  3.7539142742054167`*^9, 3.8018314603650017`*^9},
 CellLabel->
  "Out[445]//MatrixForm=",ExpressionUUID->"e602739e-ad8a-4471-80aa-\
be064dd372b4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintAllVtildePM", "[", "1", "]"}], "[", "Test12", "]"}]], "Input",\

 CellChangeTimes->{{3.746637142129855*^9, 3.7466371608661747`*^9}},
 CellLabel->
  "In[446]:=",ExpressionUUID->"bb87e401-91c1-4aaa-9de3-ae8246640c57"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", 
        RowBox[{"-", "\[ImaginaryI]"}], "0", "0", "0", "0", "0", "0", "0", 
        "0", "0", "0"},
       {"\[ImaginaryI]", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0"},
       {"0", "0", "0", 
        RowBox[{"-", "\[ImaginaryI]"}], "0", "0", "0", "0", "0", "0", "0", 
        "0"},
       {"0", "0", "\[ImaginaryI]", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", 
        RowBox[{"-", "\[ImaginaryI]"}], "0", "0", "0", "0", "0", "0", "0", 
        "0", "0"},
       {"0", "0", "0", "\[ImaginaryI]", "0", "0", "0", "0", "0", "0", "0", 
        "0"},
       {"\[ImaginaryI]", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0"},
       {"0", 
        RowBox[{"-", "\[ImaginaryI]"}], "0", "0", "0", "0", "0", "0", "0", 
        "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", 
        RowBox[{"-", "\[ImaginaryI]"}], "0", "0", "0", "0", "0", "0", "0", 
        "0"},
       {"0", "0", 
        RowBox[{"-", "\[ImaginaryI]"}], "0", "0", "0", "0", "0", "0", "0", 
        "0", "0"},
       {"0", "\[ImaginaryI]", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0"},
       {"\[ImaginaryI]", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{3.750017887842841*^9, 3.750018038665636*^9, 
  3.750378084301462*^9, 3.7525208594559746`*^9, 3.7525874671870084`*^9, 
  3.7539142742679043`*^9, 3.801831460378642*^9},
 CellLabel->
  "Out[446]=",ExpressionUUID->"cc2c143a-dff6-4a55-b333-4ffdf9ebd9cd"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"\[Omega]matrix", "[", "3", "]"}], "[", "3", "]"}], "/.", 
   RowBox[{
    RowBox[{"nz", "[", "3", "]"}], "\[Rule]", "1"}]}], "//", 
  "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.7466205626710963`*^9, 3.746620597065299*^9}},
 CellLabel->
  "In[447]:=",ExpressionUUID->"2604af49-235a-49bd-87e4-e516178f7516"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      FractionBox["1", "2"], "0", "0"},
     {"0", 
      RowBox[{"-", 
       FractionBox["1", "2"]}], "0"},
     {"0", "0", "0"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.7500178878631763`*^9, 3.75001803868746*^9, 
  3.7503780843263645`*^9, 3.7525208594809103`*^9, 3.7525874672182198`*^9, 
  3.753914274330387*^9, 3.8018314604619083`*^9},
 CellLabel->
  "Out[447]//MatrixForm=",ExpressionUUID->"82e69992-0e18-4548-9fc1-\
2156d818cdea"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   RowBox[{"\[Beta]matrix", "[", "3", "]"}]}], "//", "MatrixForm"}]], "Input",\

 CellChangeTimes->{{3.74662004982628*^9, 3.7466200867209005`*^9}, {
  3.7466204769590282`*^9, 3.7466204957733817`*^9}},
 CellLabel->
  "In[448]:=",ExpressionUUID->"40b02709-21e7-4d20-bdf9-6d410af9796c"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "\[ImaginaryI]", "0", "0"},
     {
      RowBox[{"-", "\[ImaginaryI]"}], "0", "0", "0"},
     {"0", "0", "0", 
      RowBox[{"-", "\[ImaginaryI]"}]},
     {"0", "0", "\[ImaginaryI]", "0"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.750017887885498*^9, 3.7500180387082915`*^9, 
  3.7503780843513393`*^9, 3.752520859503848*^9, 3.752587467249462*^9, 
  3.7539142743616295`*^9, 3.801831460478018*^9},
 CellLabel->
  "Out[448]//MatrixForm=",ExpressionUUID->"71d071fb-d3bc-4ce9-81fb-\
0f6c8b677a8a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Alpha]matrix", "[", "2", "]"}], "//", "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.746620090439768*^9, 3.7466200945811305`*^9}, {
  3.7466204831313076`*^9, 3.7466204845531816`*^9}, {3.746620539809311*^9, 
  3.7466205399342813`*^9}},
 CellLabel->
  "In[449]:=",ExpressionUUID->"3182e19f-a91a-41f4-a409-b7a96a73889f"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", 
      RowBox[{"-", "\[ImaginaryI]"}], "0", "0"},
     {"\[ImaginaryI]", "0", "0", "0"},
     {"0", "0", "0", 
      RowBox[{"-", "\[ImaginaryI]"}]},
     {"0", "0", "\[ImaginaryI]", "0"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.7500178879137707`*^9, 3.7500180387350764`*^9, 
  3.750378084374237*^9, 3.7525208595337696`*^9, 3.752587467289405*^9, 
  3.753914274392873*^9, 3.801831460556669*^9},
 CellLabel->
  "Out[449]//MatrixForm=",ExpressionUUID->"d686a746-0bb2-4db5-9755-\
b52d8c0c10cc"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"Outer", "[", 
       RowBox[{"Times", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
        RowBox[{"\[Alpha]matrix", "[", "2", "]"}]}], "]"}], "+", 
      RowBox[{"Outer", "[", 
       RowBox[{"Times", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
        RowBox[{"\[Beta]matrix", "[", "3", "]"}]}], "]"}], "+", 
      RowBox[{"Outer", "[", 
       RowBox[{"Times", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "0", ",", 
            RowBox[{"-", "1"}]}], "}"}]}], "}"}], ",", 
        RowBox[{"\[Beta]matrix", "[", "3", "]"}]}], "]"}]}], ")"}], "//", 
    "ArrayFlatten"}], ")"}], "\[Equal]", 
  RowBox[{
   RowBox[{"Vtilde", "[", "Test12", "]"}], "[", 
   RowBox[{"[", 
    RowBox[{"1", ",", "2"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.74662070795662*^9, 3.746620874769898*^9}},
 CellLabel->
  "In[450]:=",ExpressionUUID->"79cc22c1-3585-49b2-a4a0-e7567b8a3af8"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.7500178879365845`*^9, 3.750018038756477*^9, 
  3.750378084397177*^9, 3.7525208595537148`*^9, 3.752587467316161*^9, 
  3.7539142744397373`*^9, 3.801831460584824*^9},
 CellLabel->
  "Out[450]=",ExpressionUUID->"428f4a57-c666-4dd8-8916-9c4eb0c9edff"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Print Tests",
 FontColor->RGBColor[
  0.7803921568627451, 0.4235294117647059, 0.1607843137254902]]], "Subsection",\

 CellChangeTimes->{{3.7465376787959557`*^9, 3.746537683675426*^9}, {
  3.746636560405731*^9, 
  3.7466365657033415`*^9}},ExpressionUUID->"61926675-847b-4737-aa2d-\
39a258be38c5"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintL", "[", "Test12", "]"}], "[", "1", "]"}]], "Input",
 CellChangeTimes->{{3.7465563389081297`*^9, 3.7465563516500273`*^9}, {
  3.746635662668645*^9, 3.746635664340598*^9}},
 CellLabel->
  "In[451]:=",ExpressionUUID->"9d7cbf0a-7184-405d-8575-bb969db36dbc"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}]},
     {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.750017887960393*^9, 3.750018038783759*^9, 
  3.750378084426098*^9, 3.7525208595906167`*^9, 3.7525874673317933`*^9, 
  3.7539142744709787`*^9, 3.8018314606697073`*^9},
 CellLabel->
  "Out[451]//MatrixForm=",ExpressionUUID->"316ca747-adba-41d2-ad62-\
f0fe37edda27"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintAllL", "[", "Test12", "]"}]], "Input",
 CellChangeTimes->{{3.746635666872222*^9, 3.746635670341158*^9}},
 CellLabel->
  "In[452]:=",ExpressionUUID->"798f0aea-a945-4b86-a1ca-0f1c70070896"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{3.750017887985729*^9, 3.7500180388081026`*^9, 
  3.7503780844600077`*^9, 3.752520859620535*^9, 3.752587467363071*^9, 
  3.753914274517845*^9, 3.801831460701303*^9},
 CellLabel->
  "Out[452]=",ExpressionUUID->"99d8e352-e8b7-4d88-a345-c26f58f4ad99"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintR", "[", "Test12", "]"}], "[", "2", "]"}]], "Input",
 CellChangeTimes->{{3.7465563536745133`*^9, 3.7465563574651155`*^9}, {
  3.746635675435429*^9, 3.746635675670105*^9}},
 CellLabel->
  "In[453]:=",ExpressionUUID->"ecdce4a6-e3d5-482d-b297-322659106705"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.7500178880140047`*^9, 3.750018038826458*^9, 
  3.750378084483945*^9, 3.7525208596504545`*^9, 3.7525874673786883`*^9, 
  3.753914274564709*^9, 3.80183146081991*^9},
 CellLabel->
  "Out[453]//MatrixForm=",ExpressionUUID->"347898bb-f0cf-430a-bd93-\
ae23bcc66f04"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintAllR", "[", "Test12", "]"}]], "Input",
 CellChangeTimes->{{3.7466356771387634`*^9, 3.7466356802015977`*^9}},
 CellLabel->
  "In[454]:=",ExpressionUUID->"37ce1756-ab92-42d0-a888-b84bd3ca3434"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{3.750017888041278*^9, 3.750018038859187*^9, 
  3.7503780845119*^9, 3.7525208596773825`*^9, 3.75258746740993*^9, 
  3.75391427459595*^9, 3.801831460841159*^9},
 CellLabel->
  "Out[454]=",ExpressionUUID->"94ec3182-9404-4437-92cf-058acdc350d0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintAllGALR", "[", "Test12", "]"}]], "Input",
 CellChangeTimes->{{3.752587472391282*^9, 3.7525874816204076`*^9}},
 CellLabel->
  "In[455]:=",ExpressionUUID->"a960c55a-5d4c-402b-815f-19ccab219e00"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"2", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "2", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "2", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "2", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "2", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "2", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "2", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "2", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "2", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "2", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"2", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "2", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "2", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "2", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "2", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "2", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "2", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "2", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "2", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "2", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"2", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "2", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "2", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "2", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "2", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "2", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "2", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "2", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "2", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "2", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"2", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "2", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "2", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "2", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "2", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "2", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "2", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "2", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "2", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "2", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{3.752587481988941*^9, 3.7539142746584673`*^9, 
  3.801831461025402*^9},
 CellLabel->
  "Out[455]=",ExpressionUUID->"7509e7e9-5dd4-421c-a3ea-e52ac577f0d0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintAllGARL", "[", "Test12", "]"}]], "Input",
 CellChangeTimes->{{3.752587472391282*^9, 3.752587504124601*^9}},
 CellLabel->
  "In[456]:=",ExpressionUUID->"59a9f5ba-c70f-4b30-8b1f-a5e1dba146d8"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"2", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "2", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "2", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "2", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "2", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "2", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "2", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "2", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "2", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "2", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"2", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "2", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "2", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "2", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "2", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "2", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "2", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "2", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "2", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "2", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"2", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "2", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "2", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "2", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "2", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "2", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "2", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "2", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "2", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "2", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"2", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "2", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "2", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "2", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "2", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "2", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "2", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "2", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "2", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "2", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{{3.752587481988941*^9, 3.75258750485065*^9}, 
   3.753914274705331*^9, 3.801831461113163*^9},
 CellLabel->
  "Out[456]=",ExpressionUUID->"27e7174f-a636-49bc-91d1-f463d0a9be29"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"PrintV", "[", "Test12", "]"}], "[", 
     RowBox[{"Ii", ",", "Ji"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"Ii", ",", "1", ",", "4"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"Ji", ",", "1", ",", "4"}], "}"}]}], "]"}], " ", "\[Equal]", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"V", "[", "Test12", "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"Ii", ",", "Ji"}], "]"}], "]"}], "//", "MatrixForm"}], ",", 
    RowBox[{"{", 
     RowBox[{"Ii", ",", "1", ",", "4"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"Ji", ",", "1", ",", "4"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7465563589971447`*^9, 3.7465563825673532`*^9}, {
  3.7466356879054136`*^9, 3.746635752130352*^9}},
 CellLabel->
  "In[457]:=",ExpressionUUID->"d7a26b50-9406-4df4-ae03-0bb19c167ea4"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.7500178880625677`*^9, 3.750018038876015*^9, 
  3.7503780845348415`*^9, 3.7525208597013206`*^9, 3.7525874674255543`*^9, 
  3.7539142747521687`*^9, 3.801831461130636*^9},
 CellLabel->
  "Out[457]=",ExpressionUUID->"65947862-8f3a-4018-abf1-bb713b1f1402"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintAllVtildePM", "[", "1", "]"}], "[", "Test12", "]"}]], "Input",\

 CellChangeTimes->{{3.746635757412065*^9, 3.7466357609436674`*^9}, {
  3.746635795431345*^9, 3.746635796962932*^9}, {3.746635888871069*^9, 
  3.746635900887822*^9}},
 CellLabel->
  "In[458]:=",ExpressionUUID->"8f99d152-9c75-4748-9eb2-a43c1c74d135"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", 
        RowBox[{"-", "\[ImaginaryI]"}], "0", "0", "0", "0", "0", "0", "0", 
        "0", "0", "0"},
       {"\[ImaginaryI]", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0"},
       {"0", "0", "0", 
        RowBox[{"-", "\[ImaginaryI]"}], "0", "0", "0", "0", "0", "0", "0", 
        "0"},
       {"0", "0", "\[ImaginaryI]", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", 
        RowBox[{"-", "\[ImaginaryI]"}], "0", "0", "0", "0", "0", "0", "0", 
        "0", "0"},
       {"0", "0", "0", "\[ImaginaryI]", "0", "0", "0", "0", "0", "0", "0", 
        "0"},
       {"\[ImaginaryI]", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0"},
       {"0", 
        RowBox[{"-", "\[ImaginaryI]"}], "0", "0", "0", "0", "0", "0", "0", 
        "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", 
        RowBox[{"-", "\[ImaginaryI]"}], "0", "0", "0", "0", "0", "0", "0", 
        "0"},
       {"0", "0", 
        RowBox[{"-", "\[ImaginaryI]"}], "0", "0", "0", "0", "0", "0", "0", 
        "0", "0"},
       {"0", "\[ImaginaryI]", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0"},
       {"\[ImaginaryI]", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{3.7500178880888577`*^9, 3.7500180389033375`*^9, 
  3.7503780845617666`*^9, 3.7525208597302427`*^9, 3.7525874674657454`*^9, 
  3.7539142747834063`*^9, 3.8018314612155943`*^9},
 CellLabel->
  "Out[458]=",ExpressionUUID->"6888435b-e255-4deb-af83-28f7d8efc18c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintHoloraumytilde", "[", "Test12", "]"}], "[", 
  RowBox[{"{", 
   RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.74663596840971*^9, 3.746636009757779*^9}, {
  3.746636071060401*^9, 3.74663608004576*^9}},
 CellLabel->
  "In[459]:=",ExpressionUUID->"eac561a1-d2ce-44b8-a4a9-6f099ef35076"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.7500178881176243`*^9, 3.7500180389221535`*^9, 
  3.750378084586704*^9, 3.752520859755175*^9, 3.752587467487027*^9, 
  3.7539142748302703`*^9, 3.8018314612326813`*^9},
 CellLabel->
  "Out[459]//MatrixForm=",ExpressionUUID->"c13d9ad9-1f7a-42b6-87d7-\
c8d036a2567c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Holoraumytilde", "[", "Test12", "]"}], "[", 
   RowBox[{"[", "15", "]"}], "]"}], "//", "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.746636020868125*^9, 3.746636083545944*^9}},
 CellLabel->
  "In[460]:=",ExpressionUUID->"ca31b530-b3c1-4191-9067-b3773089e96b"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.7500178881478825`*^9, 3.7500180389444633`*^9, 
  3.7503780846106434`*^9, 3.7525208597821083`*^9, 3.7525874675037565`*^9, 
  3.753914274861805*^9, 3.8018314613107567`*^9},
 CellLabel->
  "Out[460]//MatrixForm=",ExpressionUUID->"94c753d3-e8de-4f55-a7a4-\
82854f17ea1c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintZetaGen", "[", "Test12", "]"}], "[", "4", "]"}]], "Input",
 CellChangeTimes->{{3.7466360919375286`*^9, 3.746636131285016*^9}},
 CellLabel->
  "In[461]:=",ExpressionUUID->"51c20e8c-e8ad-40cc-b3d0-6f72f4e9a6a5"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}]},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"-", "1"}], "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.750017888171194*^9, 3.7500180389718075`*^9, 
  3.7503780846355586`*^9, 3.7525208598120236`*^9, 3.7525874675193806`*^9, 
  3.7539142749086685`*^9, 3.80183146132701*^9},
 CellLabel->
  "Out[461]//MatrixForm=",ExpressionUUID->"fb93cd19-cac2-4547-94d7-\
867ee998408c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintAllZetaGen", "[", "Test12", "]"}]], "Input",
 CellChangeTimes->{{3.7466361056418924`*^9, 3.746636110189152*^9}},
 CellLabel->
  "In[462]:=",ExpressionUUID->"c5b3d862-5c4f-42d1-babc-b0c9e19f3753"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0"},
       {
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{3.7500178881960745`*^9, 3.7500180389975376`*^9, 
  3.750378084662497*^9, 3.7525208598379545`*^9, 3.752587467553794*^9, 
  3.7539142749555626`*^9, 3.801831461403709*^9},
 CellLabel->
  "Out[462]=",ExpressionUUID->"4cd2120b-56b2-4bc6-a9f4-ce20a0a55e45"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"PrintHoloraumytilde", "[", "Test12", "]"}], "[", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "1", ",", "0"}], "}"}], "]"}], "\[Equal]", 
  RowBox[{
   RowBox[{"PrintAllHoloraumytilde", "[", "Test12", "]"}], "[", 
   RowBox[{"[", "14", "]"}], "]"}], "\[Equal]", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", 
     RowBox[{
      RowBox[{
       RowBox[{"ZetatildeGen", "[", "Test12", "]"}], "[", 
       RowBox[{"[", "2", "]"}], "]"}], ".", 
      RowBox[{
       RowBox[{"ZetatildeGen", "[", "Test12", "]"}], "[", 
       RowBox[{"[", "3", "]"}], "]"}]}]}], "//", "MatrixForm"}], 
   ")"}]}]], "Input",
 CellChangeTimes->{{3.7466361722972746`*^9, 3.746636217395177*^9}, {
  3.746636257274149*^9, 3.746636453723756*^9}},
 CellLabel->
  "In[463]:=",ExpressionUUID->"4be63e3e-217a-4e63-b58c-44787a3fe6f6"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.7500178882257524`*^9, 3.750018039017377*^9, 
  3.750378084685439*^9, 3.7525208598648825`*^9, 3.752587467569454*^9, 
  3.7539142749711547`*^9, 3.80183146142605*^9},
 CellLabel->
  "Out[463]=",ExpressionUUID->"fe1c43f4-7f98-464e-b029-ea19073a9c0d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"WordW", "[", 
  RowBox[{"{", 
   RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.746636245851265*^9, 3.7466362654467783`*^9}},
 CellLabel->
  "In[464]:=",ExpressionUUID->"8bbd3fd2-6015-4259-bbf9-ed9d803c0ae2"],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{3.7500178882545643`*^9, 3.750018039038207*^9, 
  3.750378084707389*^9, 3.752520859887824*^9, 3.7525874675850763`*^9, 
  3.7539142749711547`*^9, 3.8018314615155563`*^9},
 CellLabel->
  "Out[464]=",ExpressionUUID->"f924c1ce-0b0a-463c-aa79-9f3fd2678745"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintAllHoloraumytilde", "[", "Test12", "]"}]], "Input",
 CellChangeTimes->{{3.746636161397277*^9, 3.746636166319648*^9}},
 CellLabel->
  "In[465]:=",ExpressionUUID->"53249811-2916-4e1e-b042-695fa47ce42d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0"},
       {"0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0"},
       {
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0"},
       {
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0"},
       {
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0"},
       {"0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1"},
       {"0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0"},
       {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0"},
       {"0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1"},
       {"0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0"},
       {
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        "0"},
       {"0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
        RowBox[{"-", "1"}]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{3.750017888303624*^9, 3.7500180390903244`*^9, 
  3.750378084760242*^9, 3.752520859946663*^9, 3.75258746763564*^9, 
  3.7539142750492887`*^9, 3.801831461603525*^9},
 CellLabel->
  "Out[465]=",ExpressionUUID->"308b8341-4b71-4c4b-a938-c545a28139d0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintAllMonodromytilde", "[", "Test12", "]"}]], "Input",
 CellChangeTimes->{{3.7466361442237477`*^9, 3.7466361516151896`*^9}},
 CellLabel->
  "In[466]:=",ExpressionUUID->"d32eee49-7bf6-4165-879c-c761c7c92a45"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{3.750017888349753*^9, 3.750018039138444*^9, 
  3.75037808482008*^9, 3.752520859998563*^9, 3.752587467720024*^9, 
  3.75391427514302*^9, 3.801831461713806*^9},
 CellLabel->
  "Out[466]=",ExpressionUUID->"5384066a-2213-434f-ad5c-f847a27a016c"]
}, Open  ]]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["N=4 dWvH 20x20 multiplet: time consuming", "Section",
 CellChangeTimes->{{3.7500181262342625`*^9, 3.7500181390179353`*^9}, {
  3.750018300019224*^9, 
  3.7500183035222254`*^9}},ExpressionUUID->"2fb23409-bc0a-47c5-9c33-\
11d0ddad943d"],

Cell[CellGroupData[{

Cell["Matrices", "Subsection",
 CellChangeTimes->{{3.7500181890900517`*^9, 
  3.7500181900661182`*^9}},ExpressionUUID->"9f946feb-30e0-44ec-93b5-\
32ecb4fa22a3"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"L", "[", "Test20", "]"}], " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
         {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
          "0", "0", "0", "0", "0", "0", "0"},
         {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", 
          "0", "0", "0", "0", "0", "0", "0"},
         {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", 
          "0", "0", "0", "0", "0", "0", "0"},
         {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
          RowBox[{"-", "1"}], "0", "0", 
          FractionBox["1", "2"], "0", "0", "0"},
         {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
          "0", 
          RowBox[{"-", "1"}], "0", "0", "0", "0", 
          FractionBox["1", "2"]},
         {"0", "0", "0", 
          RowBox[{"-", "1"}], "0", 
          RowBox[{"-", "1"}], "0", "0", "0", "0", 
          RowBox[{"-", "1"}], "0", "0", "0", "1", "0", "0", "0", "0", 
          FractionBox["1", "2"]},
         {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
          RowBox[{"-", "1"}], "0", "0", "0", "0", 
          RowBox[{"-", 
           FractionBox["1", "2"]}], "0", "0"},
         {"0", "0", "0", "0", "0", "0", "0", 
          RowBox[{"-", "1"}], "1", "0", "0", "0", 
          RowBox[{"-", "1"}], "0", "0", "0", "0", 
          FractionBox["1", "2"], "0", "0"},
         {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "1", "0", "0", 
          "0", 
          RowBox[{"-", "1"}], "0", "0", "0", "0", 
          RowBox[{"-", 
           FractionBox["1", "2"]}]},
         {
          RowBox[{"-", "1"}], "0", "0", "0", "0", "0", 
          RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "1", "0", "0", 
          FractionBox["1", "2"], "0", "0", "0"},
         {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
          "0", "0", "1", "0", "0", 
          FractionBox["1", "2"], "0"},
         {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "1", "0", 
          "0", "0", "1", "0", "0", 
          RowBox[{"-", 
           FractionBox["1", "2"]}], "0"},
         {
          RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "1", 
          "0", "0", "0", "1", "0", "0", 
          FractionBox["1", "2"], "0", "0", "0"},
         {"0", "0", "0", 
          RowBox[{"-", "1"}], "0", 
          RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "1", 
          "0", "0", "0", "0", 
          FractionBox["1", "2"]},
         {"2", "0", "0", "0", "0", "0", "1", "0", "0", 
          RowBox[{"-", "1"}], "0", "0", "0", 
          RowBox[{"-", "1"}], "0", "0", 
          RowBox[{"-", 
           FractionBox["1", "2"]}], "0", "0", "0"},
         {"0", "0", 
          RowBox[{"-", "1"}], "0", "2", "0", "0", "0", "0", "0", "0", "1", 
          "0", "0", "0", "1", "0", "0", 
          RowBox[{"-", 
           FractionBox["1", "2"]}], "0"},
         {"0", "1", "0", "0", "0", "0", "0", 
          RowBox[{"-", "1"}], "2", "0", "0", "0", 
          RowBox[{"-", "1"}], "0", "0", "0", "0", 
          FractionBox["1", "2"], "0", "0"},
         {"0", "0", "1", "0", 
          RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", 
          "0", 
          RowBox[{"-", "1"}], "0", "0", 
          FractionBox["1", "2"], "0"},
         {"0", "0", "0", "0", "0", 
          RowBox[{"-", "1"}], "0", "0", "0", "0", 
          RowBox[{"-", "1"}], "0", "0", "0", "1", "0", "0", "0", "0", 
          FractionBox["1", "2"]},
         {"0", "1", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", 
          RowBox[{"-", "1"}], "0", "0", "0", "0", 
          FractionBox["1", "2"], "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", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
          "0", "0", "0", "0", "0", "0", "0"},
         {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", 
          "0", "0", "0", "0", "0", "0", "0"},
         {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", 
          "0", "0", "0", "0", "0", "0", "0"},
         {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", 
          "0", "0", "0", "0", 
          FractionBox["1", "2"], "0", "0"},
         {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
          "0", "0", 
          RowBox[{"-", "1"}], "0", "0", 
          RowBox[{"-", 
           FractionBox["1", "2"]}], "0"},
         {"0", "0", 
          RowBox[{"-", "1"}], "0", "1", "0", "0", "0", "0", "0", "0", "1", 
          "0", "0", "0", "1", "0", "0", 
          RowBox[{"-", 
           FractionBox["1", "2"]}], "0"},
         {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
          RowBox[{"-", "1"}], "0", "0", 
          FractionBox["1", "2"], "0", "0", "0"},
         {"0", "0", "0", "0", "0", "0", 
          RowBox[{"-", "1"}], "0", "0", "1", "0", "0", "0", "1", "0", "0", 
          FractionBox["1", "2"], "0", "0", "0"},
         {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", 
          RowBox[{"-", "1"}], "0", "0", "0", 
          RowBox[{"-", "1"}], "0", "0", 
          FractionBox["1", "2"], "0"},
         {"0", 
          RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "1", "0", "0", "0", 
          "0", "1", "0", "0", "0", "0", 
          RowBox[{"-", 
           FractionBox["1", "2"]}], "0", "0"},
         {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
          "0", 
          RowBox[{"-", "1"}], "0", "0", "0", "0", 
          FractionBox["1", "2"]},
         {"0", "0", "0", "0", "0", 
          RowBox[{"-", "1"}], "0", "0", "0", "0", 
          RowBox[{"-", "1"}], "0", "0", "0", "1", "0", "0", "0", "0", 
          FractionBox["1", "2"]},
         {"0", "1", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", 
          RowBox[{"-", "1"}], "0", "0", "0", "0", 
          FractionBox["1", "2"], "0", "0"},
         {"0", "0", "1", "0", 
          RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", 
          "0", 
          RowBox[{"-", "1"}], "0", "0", 
          FractionBox["1", "2"], "0"},
         {"0", "2", "0", "0", "0", "0", "0", 
          RowBox[{"-", "1"}], "1", "0", "0", "0", 
          RowBox[{"-", "1"}], "0", "0", "0", "0", 
          FractionBox["1", "2"], "0", "0"},
         {"0", "0", "0", "1", "0", "2", "0", "0", "0", "0", "1", "0", "0", 
          "0", 
          RowBox[{"-", "1"}], "0", "0", "0", "0", 
          RowBox[{"-", 
           FractionBox["1", "2"]}]},
         {
          RowBox[{"-", "1"}], "0", "0", "0", "0", "0", 
          RowBox[{"-", "1"}], "0", "0", "2", "0", "0", "0", "1", "0", "0", 
          FractionBox["1", "2"], "0", "0", "0"},
         {"0", "0", "0", "1", "0", "1", "0", "0", "0", "0", "0", "0", "0", 
          "0", 
          RowBox[{"-", "1"}], "0", "0", "0", "0", 
          RowBox[{"-", 
           FractionBox["1", "2"]}]},
         {"0", "0", "0", "0", 
          RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", 
          RowBox[{"-", "1"}], "0", "0", "0", 
          RowBox[{"-", "1"}], "0", "0", 
          FractionBox["1", "2"], "0"},
         {"1", "0", "0", "0", "0", "0", "0", "0", "0", 
          RowBox[{"-", "1"}], "0", "0", "0", 
          RowBox[{"-", "1"}], "0", "0", 
          RowBox[{"-", 
           FractionBox["1", "2"]}], "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", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
          "0", "0", "0", "0", "0", "0", "0"},
         {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", 
          "0", "0", "0", "0", "0", "0", "0"},
         {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", 
          "0", "0", "0", "0", "0", "0", "0"},
         {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
          "0", "0", "1", "0", "0", 
          FractionBox["1", "2"], "0"},
         {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", 
          "0", "0", "0", "0", 
          FractionBox["1", "2"], "0", "0"},
         {"0", "1", "0", "0", "0", "0", "0", 
          RowBox[{"-", "1"}], "1", "0", "0", "0", 
          RowBox[{"-", "1"}], "0", "0", "0", "0", 
          FractionBox["1", "2"], "0", "0"},
         {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
          "0", 
          RowBox[{"-", "1"}], "0", "0", "0", "0", 
          FractionBox["1", "2"]},
         {"0", "0", "0", "0", "0", 
          RowBox[{"-", "1"}], "0", "0", "0", "0", 
          RowBox[{"-", "1"}], "0", "0", "0", "1", "0", "0", "0", "0", 
          FractionBox["1", "2"]},
         {"0", "1", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", 
          RowBox[{"-", "1"}], "0", "0", "0", "0", 
          FractionBox["1", "2"], "0", "0"},
         {"0", "0", "1", "0", 
          RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", 
          "0", 
          RowBox[{"-", "1"}], "0", "0", 
          FractionBox["1", "2"], "0"},
         {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
          "1", "0", "0", 
          RowBox[{"-", 
           FractionBox["1", "2"]}], "0", "0", "0"},
         {"0", "0", "0", "0", "0", "0", "1", "0", "0", 
          RowBox[{"-", "1"}], "0", "0", "0", 
          RowBox[{"-", "1"}], "0", "0", 
          RowBox[{"-", 
           FractionBox["1", "2"]}], "0", "0", "0"},
         {"0", "0", 
          RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "1", 
          "0", "0", "0", "1", "0", "0", 
          RowBox[{"-", 
           FractionBox["1", "2"]}], "0"},
         {"0", "1", "0", "0", "0", "0", "0", 
          RowBox[{"-", "1"}], "0", "0", "0", "0", 
          RowBox[{"-", "1"}], "0", "0", "0", "0", 
          FractionBox["1", "2"], "0", "0"},
         {"0", "0", "2", "0", 
          RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", 
          RowBox[{"-", "1"}], "0", "0", "0", 
          RowBox[{"-", "1"}], "0", "0", 
          FractionBox["1", "2"], "0"},
         {"1", "0", "0", "0", "0", "0", "2", "0", "0", 
          RowBox[{"-", "1"}], "0", "0", "0", 
          RowBox[{"-", "1"}], "0", "0", 
          RowBox[{"-", 
           FractionBox["1", "2"]}], "0", "0", "0"},
         {"0", "0", "0", "1", "0", "1", "0", "0", "0", "0", "2", "0", "0", 
          "0", 
          RowBox[{"-", "1"}], "0", "0", "0", "0", 
          RowBox[{"-", 
           FractionBox["1", "2"]}]},
         {"1", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", 
          RowBox[{"-", "1"}], "0", "0", 
          RowBox[{"-", 
           FractionBox["1", "2"]}], "0", "0", "0"},
         {"0", "0", "0", "0", "0", "0", "0", "1", 
          RowBox[{"-", "1"}], "0", "0", "0", "1", "0", "0", "0", "0", 
          RowBox[{"-", 
           FractionBox["1", "2"]}], "0", "0"},
         {"0", "0", "0", 
          RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", 
          RowBox[{"-", "1"}], "0", "0", "0", "1", "0", "0", "0", "0", 
          FractionBox["1", "2"]}
        },
        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", "0", "0", "0", "0", "0", "0", "0", 
          "0", "0", "0", "0", "0", "0", "0"},
         {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", 
          "0", "0", "0", "0", "0", "0", "0"},
         {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", 
          "0", "0", "0", "0", "0", "0", "0"},
         {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
          "0", 
          RowBox[{"-", "1"}], "0", "0", "0", "0", 
          FractionBox["1", "2"]},
         {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
          "1", "0", "0", 
          RowBox[{"-", 
           FractionBox["1", "2"]}], "0", "0", "0"},
         {"1", "0", "0", "0", "0", "0", "1", "0", "0", 
          RowBox[{"-", "1"}], "0", "0", "0", 
          RowBox[{"-", "1"}], "0", "0", 
          RowBox[{"-", 
           FractionBox["1", "2"]}], "0", "0", "0"},
         {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
          "0", "0", 
          RowBox[{"-", "1"}], "0", "0", 
          RowBox[{"-", 
           FractionBox["1", "2"]}], "0"},
         {"0", "0", "0", "0", 
          RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", 
          RowBox[{"-", "1"}], "0", "0", "0", 
          RowBox[{"-", "1"}], "0", "0", 
          FractionBox["1", "2"], "0"},
         {"1", "0", "0", "0", "0", "0", "0", "0", "0", 
          RowBox[{"-", "1"}], "0", "0", "0", 
          RowBox[{"-", "1"}], "0", "0", 
          RowBox[{"-", 
           FractionBox["1", "2"]}], "0", "0", "0"},
         {"0", "0", "0", "1", "0", "1", "0", "0", "0", "0", "0", "0", "0", 
          "0", 
          RowBox[{"-", "1"}], "0", "0", "0", "0", 
          RowBox[{"-", 
           FractionBox["1", "2"]}]},
         {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
          RowBox[{"-", "1"}], "0", "0", "0", "0", 
          RowBox[{"-", 
           FractionBox["1", "2"]}], "0", "0"},
         {"0", "0", "0", "0", "0", "0", "0", 
          RowBox[{"-", "1"}], "1", "0", "0", "0", 
          RowBox[{"-", "1"}], "0", "0", "0", "0", 
          FractionBox["1", "2"], "0", "0"},
         {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "1", "0", "0", 
          "0", 
          RowBox[{"-", "1"}], "0", "0", "0", "0", 
          RowBox[{"-", 
           FractionBox["1", "2"]}]},
         {
          RowBox[{"-", "1"}], "0", "0", "0", "0", "0", 
          RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "1", "0", "0", 
          FractionBox["1", "2"], "0", "0", "0"},
         {"0", "0", "0", "2", "0", "1", "0", "0", "0", "0", "1", "0", "0", 
          "0", 
          RowBox[{"-", "1"}], "0", "0", "0", "0", 
          RowBox[{"-", 
           FractionBox["1", "2"]}]},
         {"0", 
          RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "2", 
          RowBox[{"-", "1"}], "0", "0", "0", "1", "0", "0", "0", "0", 
          RowBox[{"-", 
           FractionBox["1", "2"]}], "0", "0"},
         {"0", "0", 
          RowBox[{"-", "1"}], "0", "1", "0", "0", "0", "0", "0", "0", "2", 
          "0", "0", "0", "1", "0", "0", 
          RowBox[{"-", 
           FractionBox["1", "2"]}], "0"},
         {"0", "1", "0", "0", "0", "0", "0", 
          RowBox[{"-", "1"}], "0", "0", "0", "0", 
          RowBox[{"-", "1"}], "0", "0", "0", "0", 
          FractionBox["1", "2"], "0", "0"},
         {"0", "0", "0", "0", "0", "0", "1", "0", "0", 
          RowBox[{"-", "1"}], "0", "0", "0", 
          RowBox[{"-", "1"}], "0", "0", 
          RowBox[{"-", 
           FractionBox["1", "2"]}], "0", "0", "0"},
         {"0", "0", 
          RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "0", "0", "0", "1", 
          "0", "0", "0", "1", "0", "0", 
          RowBox[{"-", 
           FractionBox["1", "2"]}], "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.746527009937995*^9, 3.7465270209509954`*^9}, 
   3.7465270545928154`*^9},
 CellLabel->
  "In[467]:=",ExpressionUUID->"42bab655-7ecc-4988-b084-9c339c7293ef"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"R", "[", "Test20", "]"}], " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Inverse", "[", 
      RowBox[{
       RowBox[{"L", "[", "Test20", "]"}], "[", 
       RowBox[{"[", "Ii", "]"}], "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"Ii", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7465270300614233`*^9, 3.7465270512495923`*^9}},
 CellLabel->
  "In[468]:=",ExpressionUUID->"39e5bef6-09df-49a0-84bf-db3403fe7f43"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Generating Adinkra Data", "Subsection",
 CellChangeTimes->{{3.7500182102662334`*^9, 
  3.7500182127377496`*^9}},ExpressionUUID->"bcfa7ec4-eeca-4149-932b-\
83c5c7afd313"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GenerateAdinkraData", "[", "Test20", "]"}]], "Input",
 CellChangeTimes->{{3.746541659076851*^9, 3.746541665524192*^9}},
 CellLabel->
  "In[469]:=",ExpressionUUID->"a2004ebf-2cfb-47d7-a9fb-124698879621"],

Cell[BoxData["\<\"chi0, ncis, ntrans, VPM[pm], VtildePM[pm], L, R, GALR, \
GARL, V, Vtilde, ZetaGen, Holoraumy[Rep], Monodromy[Rep], ZetatildeGen, \
Holoraumytilde[Rep], Monodromytilde[Rep], cSoln[V], cSoln[Vtilde] are loaded \
for Rep = Test20\"\>"], "Print",
 CellChangeTimes->{3.7500138451315155`*^9, 3.7500139047885947`*^9, 
  3.7500139613894567`*^9, 3.7500178185852704`*^9, 3.7500179985760994`*^9, 
  3.7503780990141*^9, 3.7525208694237614`*^9, 3.753914275439828*^9, 
  3.801831484893136*^9},
 CellLabel->
  "During evaluation of \
In[469]:=",ExpressionUUID->"17f5e365-fae8-470a-8395-cf4ac9d580bd"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GenerateCoeffs", "[", "Test20", "]"}]], "Input",
 CellChangeTimes->{{3.74663732546001*^9, 3.7466373270693407`*^9}},
 CellLabel->
  "In[470]:=",ExpressionUUID->"74df9a62-7f94-4351-a14a-73b655456fbf"],

Cell[BoxData[
 RowBox[{"{", "\<\"LCoeffs, RCoeffs, GALRCoeffs, GARLCoeffs, VCoeffs, \
VtildeCoeffs, VPMCoeffs, VtildePMCoeffs and CMessage[Rep][mi,si] are loaded \
for Rep = Test20\"\>", "}"}]], "Output",
 CellChangeTimes->{3.750013856115929*^9, 3.7500139159461126`*^9, 
  3.750013972648655*^9, 3.750017830350885*^9, 3.7500180100396495`*^9, 
  3.750378112572895*^9, 3.7525208805038834`*^9, 3.7539142963168592`*^9, 
  3.80183151055785*^9},
 CellLabel->
  "Out[470]=",ExpressionUUID->"78c99736-9ca1-48fb-ae87-2e4ab37bcce1"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Reports", "Subsection",
 CellChangeTimes->{{3.7500181977865815`*^9, 
  3.750018198593959*^9}},ExpressionUUID->"3ede90bb-c37a-4bbe-8f7c-\
c78c9f06c0d4"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"AdinkraReport", "[", 
   RowBox[{"Test20", ",", "0"}], "]"}], "//", "AbsoluteTiming"}]], "Input",
 CellChangeTimes->{{3.750378131272897*^9, 3.7503781450041585`*^9}},
 CellLabel->
  "In[471]:=",ExpressionUUID->"28598ba7-3999-422b-8f29-7424ed41abdc"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.06539`", ",", 
   TagBox[GridBox[{
      {"\<\"N = 4\"\>"},
      {"\<\"dbosons x dfermions = 20 \[Times] 20\"\>"},
      {"\<\"GATest = True\"\>"},
      {"\<\"InverseTest = True\"\>"},
      {"\<\"TransposeTest = False\"\>"},
      {"\<\"chi0 = \\!\\(\\*RowBox[{\\\"3\\\"}]\\), (ncis = \\!\\(\\*RowBox[{\
\\\"4\\\"}]\\), ntrans = \\!\\(\\*RowBox[{\\\"1\\\"}]\\))\"\>"}
     },
     DefaultBaseStyle->"Column",
     GridBoxAlignment->{"Columns" -> {{Left}}},
     GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
     GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
    "Column"]}], "}"}]], "Output",
 CellChangeTimes->{{3.7503781369816036`*^9, 3.750378145583639*^9}, 
   3.7525208806341496`*^9, 3.7539142964105883`*^9, 3.8018315106944313`*^9},
 CellLabel->
  "Out[471]=",ExpressionUUID->"edee2b15-2a02-454c-a3a7-85dae4d023b3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"AdinkraReport", "[", 
   RowBox[{"Test20", ",", "1"}], "]"}], "//", "AbsoluteTiming"}]], "Input",
 CellChangeTimes->{{3.750378131272897*^9, 3.750378151912724*^9}},
 CellLabel->
  "In[472]:=",ExpressionUUID->"faae5f51-bcb7-4afd-ac06-0d2e509a3e8e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.063524`", ",", 
   TagBox[GridBox[{
      {
       TagBox[GridBox[{
          {"\<\"N = 4\"\>"},
          {"\<\"dbosons x dfermions = 20 \[Times] 20\"\>"},
          {"\<\"GATest = True\"\>"},
          {"\<\"InverseTest = True\"\>"},
          {"\<\"TransposeTest = False\"\>"},
          {"\<\"chi0 = \\!\\(\\*RowBox[{\\\"3\\\"}]\\), (ncis = \
\\!\\(\\*RowBox[{\\\"4\\\"}]\\), ntrans = \
\\!\\(\\*RowBox[{\\\"1\\\"}]\\))\"\>"}
         },
         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"]}], "}"}]], "Output",
 CellChangeTimes->{{3.7503781369816036`*^9, 3.7503781533558655`*^9}, 
   3.752520880708949*^9, 3.753914296488695*^9, 3.8018315107690887`*^9},
 CellLabel->
  "Out[472]=",ExpressionUUID->"5f42b0f7-5f8b-433c-8b35-dd589921cc00"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"AdinkraReport", "[", 
   RowBox[{"Test20", ",", "2"}], "]"}], "//", "AbsoluteTiming"}]], "Input",
 CellChangeTimes->{{3.750378131272897*^9, 3.7503781577451315`*^9}},
 CellLabel->
  "In[473]:=",ExpressionUUID->"f17e5aca-c337-407c-878f-af8ac3a1ac06"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.08971`", ",", 
   TagBox[GridBox[{
      {
       TagBox[GridBox[{
          {"\<\"N = 4\"\>"},
          {"\<\"dbosons x dfermions = 20 \[Times] 20\"\>"},
          {"\<\"GATest = True\"\>"},
          {"\<\"InverseTest = True\"\>"},
          {"\<\"TransposeTest = False\"\>"},
          {"\<\"chi0 = \\!\\(\\*RowBox[{\\\"3\\\"}]\\), (ncis = \
\\!\\(\\*RowBox[{\\\"4\\\"}]\\), ntrans = \
\\!\\(\\*RowBox[{\\\"1\\\"}]\\))\"\>"}
         },
         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[{\\\"4\\\", \\\"+\
\\\", \\\"N\\\", \\\"-\\\", FractionBox[RowBox[{\\\"Log\\\", \\\"[\\\", \
\\\"56\\\", \\\"]\\\"}], RowBox[{\\\"Log\\\", \\\"[\\\", \\\"2\\\", \
\\\"]\\\"}]]}]]\\) 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"]}], "}"}]], "Output",
 CellChangeTimes->{{3.7503781369816036`*^9, 3.7503781625622215`*^9}, 
   3.7525208807947197`*^9, 3.7539142965824227`*^9, 3.801831510878983*^9},
 CellLabel->
  "Out[473]=",ExpressionUUID->"809c0724-7f3e-436d-8f63-8f3f9187a652"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"AdinkraReport", "[", 
   RowBox[{"Test20", ",", "3"}], "]"}], "//", "AbsoluteTiming"}]], "Input",
 CellChangeTimes->{{3.750378131272897*^9, 3.750378167168938*^9}},
 CellLabel->
  "In[474]:=",ExpressionUUID->"a89a384c-67a0-4367-af2c-f851eb87f15e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.123696`", ",", 
   TagBox[GridBox[{
      {
       TagBox[GridBox[{
          {
           TagBox[GridBox[{
              {"\<\"N = 4\"\>"},
              {"\<\"dbosons x dfermions = 20 \[Times] 20\"\>"},
              {"\<\"GATest = True\"\>"},
              {"\<\"InverseTest = True\"\>"},
              {"\<\"TransposeTest = False\"\>"},
              {"\<\"chi0 = \\!\\(\\*RowBox[{\\\"3\\\"}]\\), (ncis = \
\\!\\(\\*RowBox[{\\\"4\\\"}]\\), ntrans = \
\\!\\(\\*RowBox[{\\\"1\\\"}]\\))\"\>"}
             },
             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[{\\\"4\\\", \\\"+\
\\\", \\\"N\\\", \\\"-\\\", FractionBox[RowBox[{\\\"Log\\\", \\\"[\\\", \
\\\"56\\\", \\\"]\\\"}], RowBox[{\\\"Log\\\", \\\"[\\\", \\\"2\\\", \
\\\"]\\\"}]]}]]\\) 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"]}], "}"}]], "Output",
 CellChangeTimes->{{3.7503781369816036`*^9, 3.750378168075506*^9}, 
   3.7525208808946943`*^9, 3.7539142966761866`*^9, 3.801831511019657*^9},
 CellLabel->
  "Out[474]=",ExpressionUUID->"768f696b-9d6a-4f72-b2d1-74a9d96377ae"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"AdinkraReport", "[", 
   RowBox[{"Test20", ",", "4"}], "]"}], "//", "AbsoluteTiming"}]], "Input",
 CellChangeTimes->{{3.750378131272897*^9, 3.750378173753311*^9}},
 CellLabel->
  "In[475]:=",ExpressionUUID->"1d43d2d5-ddbc-46ca-bf6c-11a37d5087d9"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"3.535591`", ",", 
   TagBox[GridBox[{
      {
       TagBox[GridBox[{
          {"\<\"N = 4\"\>"},
          {"\<\"dbosons x dfermions = 20 \[Times] 20\"\>"},
          {"\<\"GATest = True\"\>"},
          {"\<\"InverseTest = True\"\>"},
          {"\<\"TransposeTest = False\"\>"},
          {"\<\"chi0 = \\!\\(\\*RowBox[{\\\"3\\\"}]\\), (ncis = \
\\!\\(\\*RowBox[{\\\"4\\\"}]\\), ntrans = \
\\!\\(\\*RowBox[{\\\"1\\\"}]\\))\"\>"}
         },
         DefaultBaseStyle->"Column",
         GridBoxAlignment->{"Columns" -> {{Left}}},
         GridBoxItemSize->{
          "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
         GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
        "Column"]},
      {"\<\"AllsoNTest = True\"\>"},
      {"\<\"Allsu2MutuallyCommute = True\"\>"}
     },
     DefaultBaseStyle->"Column",
     GridBoxAlignment->{"Columns" -> {{Left}}},
     GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
     GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
    "Column"]}], "}"}]], "Output",
 CellChangeTimes->{{3.7503781369816036`*^9, 3.750378145583639*^9}, 
   3.7503781774364576`*^9, 3.752520883059108*^9, 3.753914299176551*^9, 
   3.801831514574504*^9},
 CellLabel->
  "Out[475]=",ExpressionUUID->"40754e91-a779-4d7a-8b72-e63021ff482d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"AdinkraReport", "[", 
   RowBox[{"Test20", ",", "5"}], "]"}], "//", "AbsoluteTiming"}]], "Input",
 CellChangeTimes->{{3.750378131272897*^9, 3.7503781450041585`*^9}, 
   3.750378185809077*^9},
 CellLabel->
  "In[476]:=",ExpressionUUID->"f8f95162-2753-4e62-8c25-b3ce98b19a0c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"3.39358`", ",", 
   TagBox[GridBox[{
      {
       TagBox[GridBox[{
          {
           TagBox[GridBox[{
              {"\<\"N = 4\"\>"},
              {"\<\"dbosons x dfermions = 20 \[Times] 20\"\>"},
              {"\<\"GATest = True\"\>"},
              {"\<\"InverseTest = True\"\>"},
              {"\<\"TransposeTest = False\"\>"},
              {"\<\"chi0 = \\!\\(\\*RowBox[{\\\"3\\\"}]\\), (ncis = \
\\!\\(\\*RowBox[{\\\"4\\\"}]\\), ntrans = \
\\!\\(\\*RowBox[{\\\"1\\\"}]\\))\"\>"}
             },
             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"]},
      {"\<\"AllsoNTest = True\"\>"},
      {"\<\"Allsu2MutuallyCommute = True\"\>"}
     },
     DefaultBaseStyle->"Column",
     GridBoxAlignment->{"Columns" -> {{Left}}},
     GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
     GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
    "Column"]}], "}"}]], "Output",
 CellChangeTimes->{{3.7503781369816036`*^9, 3.750378145583639*^9}, 
   3.7503781889646397`*^9, 3.752520885247078*^9, 3.7539143016766424`*^9, 
   3.801831518042952*^9},
 CellLabel->
  "Out[476]=",ExpressionUUID->"9c82be4f-63b1-472d-b142-45b6967ee3c7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"AdinkraReport", "[", 
   RowBox[{"Test20", ",", "6"}], "]"}], "//", "AbsoluteTiming"}]], "Input",
 CellChangeTimes->{{3.750378131272897*^9, 3.7503781450041585`*^9}, 
   3.750378195204991*^9},
 CellLabel->
  "In[477]:=",ExpressionUUID->"92d57110-2e25-4cd0-b909-3687ee26aec5"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"3.325706`", ",", 
   TagBox[GridBox[{
      {
       TagBox[GridBox[{
          {
           TagBox[GridBox[{
              {"\<\"N = 4\"\>"},
              {"\<\"dbosons x dfermions = 20 \[Times] 20\"\>"},
              {"\<\"GATest = True\"\>"},
              {"\<\"InverseTest = True\"\>"},
              {"\<\"TransposeTest = False\"\>"},
              {"\<\"chi0 = \\!\\(\\*RowBox[{\\\"3\\\"}]\\), (ncis = \
\\!\\(\\*RowBox[{\\\"4\\\"}]\\), ntrans = \
\\!\\(\\*RowBox[{\\\"1\\\"}]\\))\"\>"}
             },
             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[{\\\"4\\\", \\\"+\
\\\", \\\"N\\\", \\\"-\\\", FractionBox[RowBox[{\\\"Log\\\", \\\"[\\\", \
\\\"56\\\", \\\"]\\\"}], RowBox[{\\\"Log\\\", \\\"[\\\", \\\"2\\\", \
\\\"]\\\"}]]}]]\\) 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\"\>"},
      {"\<\"Allsu2MutuallyCommute = True\"\>"}
     },
     DefaultBaseStyle->"Column",
     GridBoxAlignment->{"Columns" -> {{Left}}},
     GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
     GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
    "Column"]}], "}"}]], "Output",
 CellChangeTimes->{{3.7503781369816036`*^9, 3.750378145583639*^9}, 
   3.7503781982976904`*^9, 3.7525208874562273`*^9, 3.7539143040208845`*^9, 
   3.801831521430934*^9},
 CellLabel->
  "Out[477]=",ExpressionUUID->"f382d37b-cb59-44da-8ca2-b8232f4445d7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"AdinkraReport", "[", 
   RowBox[{"Test20", ",", "7"}], "]"}], "//", "AbsoluteTiming"}]], "Input",
 CellChangeTimes->{{3.750378131272897*^9, 3.7503781450041585`*^9}, 
   3.750378203125809*^9},
 CellLabel->
  "In[478]:=",ExpressionUUID->"e04282b1-6463-4149-8596-5ba893ba6654"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"3.369577`", ",", 
   TagBox[GridBox[{
      {
       TagBox[GridBox[{
          {
           TagBox[GridBox[{
              {
               TagBox[GridBox[{
                  {"\<\"N = 4\"\>"},
                  {"\<\"dbosons x dfermions = 20 \[Times] 20\"\>"},
                  {"\<\"GATest = True\"\>"},
                  {"\<\"InverseTest = True\"\>"},
                  {"\<\"TransposeTest = False\"\>"},
                  {"\<\"chi0 = \\!\\(\\*RowBox[{\\\"3\\\"}]\\), (ncis = \
\\!\\(\\*RowBox[{\\\"4\\\"}]\\), ntrans = \
\\!\\(\\*RowBox[{\\\"1\\\"}]\\))\"\>"}
                 },
                 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[{\\\"4\\\", \\\"+\
\\\", \\\"N\\\", \\\"-\\\", FractionBox[RowBox[{\\\"Log\\\", \\\"[\\\", \
\\\"56\\\", \\\"]\\\"}], RowBox[{\\\"Log\\\", \\\"[\\\", \\\"2\\\", \
\\\"]\\\"}]]}]]\\) 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\"\>"},
      {"\<\"Allsu2MutuallyCommute = True\"\>"}
     },
     DefaultBaseStyle->"Column",
     GridBoxAlignment->{"Columns" -> {{Left}}},
     GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
     GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
    "Column"]}], "}"}]], "Output",
 CellChangeTimes->{{3.7503781369816036`*^9, 3.750378145583639*^9}, 
   3.7503782065256944`*^9, 3.752520889656249*^9, 3.753914306458497*^9, 
   3.801831524865967*^9},
 CellLabel->
  "Out[478]=",ExpressionUUID->"c62bb9dd-3ee1-4fbd-b0b1-3b168c1863a7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"AdinkraReport", "[", 
   RowBox[{"Test20", ",", "8"}], "]"}], "//", "AbsoluteTiming"}]], "Input",
 CellChangeTimes->{{3.750378131272897*^9, 3.7503781450041585`*^9}, 
   3.750378211765718*^9},
 CellLabel->
  "In[479]:=",ExpressionUUID->"df373cb2-d187-49fb-82ed-cc96c8336e48"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"6.357502`", ",", 
   TagBox[GridBox[{
      {
       TagBox[GridBox[{
          {
           TagBox[GridBox[{
              {
               TagBox[GridBox[{
                  {
                   TagBox[GridBox[{
                    {"\<\"N = 4\"\>"},
                    {"\<\"dbosons x dfermions = 20 \[Times] 20\"\>"},
                    {"\<\"GATest = True\"\>"},
                    {"\<\"InverseTest = True\"\>"},
                    {"\<\"TransposeTest = False\"\>"},
                    {"\<\"chi0 = \\!\\(\\*RowBox[{\\\"3\\\"}]\\), (ncis = \\!\
\\(\\*RowBox[{\\\"4\\\"}]\\), ntrans = \\!\\(\\*RowBox[{\\\"1\\\"}]\\))\"\>"}
                    },
                    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[{\\\"4\\\", \\\"+\
\\\", \\\"N\\\", \\\"-\\\", FractionBox[RowBox[{\\\"Log\\\", \\\"[\\\", \
\\\"56\\\", \\\"]\\\"}], RowBox[{\\\"Log\\\", \\\"[\\\", \\\"2\\\", \
\\\"]\\\"}]]}]]\\) 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\"\>"},
          {"\<\"Allsu2MutuallyCommute = True\"\>"}
         },
         DefaultBaseStyle->"Column",
         GridBoxAlignment->{"Columns" -> {{Left}}},
         GridBoxItemSize->{
          "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
         GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
        "Column"]},
      {"\<\"soNTest[VsoN] = True\"\>"},
      {"\<\"soNTest[VtildesoN] = True\"\>"},
      {"\<\"soNTest[VsoNPM[-1]] = True\"\>"},
      {"\<\"soNTest[VsoNPM[1]] = True\"\>"},
      {"\<\"soNTest[VtildesoNPM[-1]] = True\"\>"},
      {"\<\"soNTest[VtildesoNPM[1]] = True\"\>"},
      {"\<\"su2Test[VsoNPM[-1]] = True\"\>"},
      {"\<\"su2Test[VsoNPM[1]] = True\"\>"},
      {"\<\"VPM[1] and VPM[-1] mutually commute = True\"\>"},
      {"\<\"su2Test[VtildesoNPM[-1]] = True\"\>"},
      {"\<\"su2Test[VtildesoNPM[1]] = True\"\>"},
      {"\<\"VtildePM[1] and VtildePM[-1] mutually commute = True\"\>"}
     },
     DefaultBaseStyle->"Column",
     GridBoxAlignment->{"Columns" -> {{Left}}},
     GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
     GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
    "Column"]}], "}"}]], "Output",
 CellChangeTimes->{{3.7503781369816036`*^9, 3.750378145583639*^9}, 
   3.7503782175242944`*^9, 3.752520893919452*^9, 3.75391431186567*^9, 
   3.8018315312923813`*^9},
 CellLabel->
  "Out[479]=",ExpressionUUID->"b7199252-f54f-42b7-879e-a43cfeb731ab"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraHoloMonoReport", "[", "Test20", "]"}]], "Input",
 CellChangeTimes->{{3.747774660274452*^9, 3.747774671719208*^9}, 
   3.750013931348769*^9},
 CellLabel->
  "In[480]:=",ExpressionUUID->"5d5170b4-aed6-470f-96ce-00d27097b52f"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     TagBox[GridBox[{
        {"\<\"N = 4\"\>"},
        {"\<\"dbosons x dfermions = 20 \[Times] 20\"\>"},
        {"\<\"GATest = True\"\>"},
        {"\<\"InverseTest = True\"\>"},
        {"\<\"TransposeTest = False\"\>"},
        {"\<\"chi0 = \\!\\(\\*RowBox[{\\\"3\\\"}]\\), (ncis = \
\\!\\(\\*RowBox[{\\\"4\\\"}]\\), ntrans = \
\\!\\(\\*RowBox[{\\\"1\\\"}]\\))\"\>"}
       },
       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[{\\\"4\\\", \\\"+\
\\\", \\\"N\\\", \\\"-\\\", FractionBox[RowBox[{\\\"Log\\\", \\\"[\\\", \
\\\"56\\\", \\\"]\\\"}], RowBox[{\\\"Log\\\", \\\"[\\\", \\\"2\\\", \
\\\"]\\\"}]]}]]\\) 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"]], "Output",
 CellChangeTimes->{3.750013858227292*^9, 3.7500139178841877`*^9, 
  3.7500139747576485`*^9, 3.7500178324579725`*^9, 3.7500180121369257`*^9, 
  3.7503781127025075`*^9, 3.752520894045106*^9, 3.7539143119593678`*^9, 
  3.801831531540022*^9},
 CellLabel->
  "Out[480]=",ExpressionUUID->"b3b23767-186d-4042-8bac-e9b37f312d57"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraReport", "[", "Test20", "]"}]], "Input",
 CellChangeTimes->{{3.747774677867815*^9, 3.7477746965969143`*^9}, 
   3.750013934076501*^9, 3.750376690123867*^9},
 CellLabel->
  "In[481]:=",ExpressionUUID->"149d154a-6cf5-48a3-bf00-2bc31a9e74db"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"N = 4\"\>"},
    {"\<\"dbosons x dfermions = 20 \[Times] 20\"\>"},
    {"\<\"GATest = True\"\>"},
    {"\<\"InverseTest = True\"\>"},
    {"\<\"TransposeTest = False\"\>"},
    {"\<\"chi0 = \\!\\(\\*RowBox[{\\\"3\\\"}]\\), (ncis = \\!\\(\\*RowBox[{\\\
\"4\\\"}]\\), ntrans = \\!\\(\\*RowBox[{\\\"1\\\"}]\\))\"\>"}
   },
   DefaultBaseStyle->"Column",
   GridBoxAlignment->{"Columns" -> {{Left}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
  "Column"]], "Output",
 CellChangeTimes->{3.7500138604180765`*^9, 3.7500139183706217`*^9, 
  3.750013976944063*^9, 3.750017834699895*^9, 3.750018014354553*^9, 
  3.7503781127653427`*^9, 3.7525208941219006`*^9, 3.753914312021853*^9, 
  3.8018315316725693`*^9},
 CellLabel->
  "Out[481]=",ExpressionUUID->"a4e68710-121e-40cc-9cc7-2a2d31f7731c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraFullReport", "[", "Test20", "]"}]], "Input",
 CellChangeTimes->{{3.747774704604574*^9, 3.747774711513562*^9}, 
   3.750013937204404*^9},
 CellLabel->
  "In[482]:=",ExpressionUUID->"53a691a2-4eca-4511-ab5b-73acd7cc0761"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     TagBox[GridBox[{
        {
         TagBox[GridBox[{
            {
             TagBox[GridBox[{
                {
                 TagBox[GridBox[{
                    {"\<\"N = 4\"\>"},
                    {"\<\"dbosons x dfermions = 20 \[Times] 20\"\>"},
                    {"\<\"GATest = True\"\>"},
                    {"\<\"InverseTest = True\"\>"},
                    {"\<\"TransposeTest = False\"\>"},
                    {"\<\"chi0 = \\!\\(\\*RowBox[{\\\"3\\\"}]\\), (ncis = \\!\
\\(\\*RowBox[{\\\"4\\\"}]\\), ntrans = \\!\\(\\*RowBox[{\\\"1\\\"}]\\))\"\>"}
                   },
                   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[{\\\"4\\\", \\\"+\
\\\", \\\"N\\\", \\\"-\\\", FractionBox[RowBox[{\\\"Log\\\", \\\"[\\\", \
\\\"56\\\", \\\"]\\\"}], RowBox[{\\\"Log\\\", \\\"[\\\", \\\"2\\\", \
\\\"]\\\"}]]}]]\\) 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\"\>"},
        {"\<\"Allsu2MutuallyCommute = True\"\>"}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
       
       GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
      "Column"]},
    {"\<\"soNTest[VsoN] = True\"\>"},
    {"\<\"soNTest[VtildesoN] = True\"\>"},
    {"\<\"soNTest[VsoNPM[-1]] = True\"\>"},
    {"\<\"soNTest[VsoNPM[1]] = True\"\>"},
    {"\<\"soNTest[VtildesoNPM[-1]] = True\"\>"},
    {"\<\"soNTest[VtildesoNPM[1]] = True\"\>"},
    {"\<\"su2Test[VsoNPM[-1]] = True\"\>"},
    {"\<\"su2Test[VsoNPM[1]] = True\"\>"},
    {"\<\"VPM[1] and VPM[-1] mutually commute = True\"\>"},
    {"\<\"su2Test[VtildesoNPM[-1]] = True\"\>"},
    {"\<\"su2Test[VtildesoNPM[1]] = True\"\>"},
    {"\<\"VtildePM[1] and VtildePM[-1] mutually commute = True\"\>"}
   },
   DefaultBaseStyle->"Column",
   GridBoxAlignment->{"Columns" -> {{Left}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{1.5}}}],
  "Column"]], "Output",
 CellChangeTimes->{3.750013864725805*^9, 3.750013981356433*^9, 
  3.750017839036422*^9, 3.7500180187422028`*^9, 3.750378118004334*^9, 
  3.7525208983656754`*^9, 3.753914316788867*^9, 3.801831538480975*^9},
 CellLabel->
  "Out[482]=",ExpressionUUID->"bc8d75bd-2c0b-4b2d-a523-a6f008a252ef"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"PrintVtildeBasis", "[", "Test20", "]"}], "[", 
   RowBox[{"1", ",", "2"}], "]"}], "/.", 
  RowBox[{
   RowBox[{"nz", "[", "5", "]"}], "\[Rule]", "2"}]}]], "Input",
 CellChangeTimes->{{3.7539143263682613`*^9, 3.7539143560436473`*^9}},
 CellLabel->
  "In[483]:=",ExpressionUUID->"7e9da081-eddc-4fe2-995c-f3f326aae9cb"],

Cell[BoxData[
 RowBox[{
  RowBox[{"10", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "0", "5"], "\[CircleTimes]", 
    SubscriptBox["\[Beta]", "3"]}]}], "-", 
  RowBox[{"4", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "2", "5"], "\[CircleTimes]", 
    SubscriptBox["\[Alpha]", "1"]}]}], "-", 
  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "2", "5"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "3"], " ", 
      SubscriptBox["\[Beta]", "3"]}], ")"}]}]}], "-", 
  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "5", "5"], "\[CircleTimes]", 
    SubscriptBox["\<\"I\"\>", "4"]}]}], "+", 
  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "5", "5"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "2"], " ", 
      SubscriptBox["\[Beta]", "3"]}], ")"}]}]}], "+", 
  RowBox[{"4", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "7", "5"], "\[CircleTimes]", 
    SubscriptBox["\[Alpha]", "3"]}]}], "-", 
  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "7", "5"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "1"], " ", 
      SubscriptBox["\[Beta]", "3"]}], ")"}]}]}], "+", 
  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "9", "5"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "1"], " ", 
      SubscriptBox["\[Beta]", "1"]}], ")"}]}]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "9", "5"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "3"], " ", 
      SubscriptBox["\[Beta]", "2"]}], ")"}]}]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "10", "5"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "3"], " ", 
      SubscriptBox["\[Beta]", "2"]}], ")"}]}]}], "+", 
  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "11", "5"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "2"], " ", 
      SubscriptBox["\[Beta]", "1"]}], ")"}]}]}], "+", 
  RowBox[{"4", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "11", "5"], "\[CircleTimes]", 
    SubscriptBox["\[Beta]", "2"]}]}], "+", 
  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "13", "5"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "3"], " ", 
      SubscriptBox["\[Beta]", "1"]}], ")"}]}]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "13", "5"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "1"], " ", 
      SubscriptBox["\[Beta]", "2"]}], ")"}]}]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "14", "5"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "1"], " ", 
      SubscriptBox["\[Beta]", "2"]}], ")"}]}]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "16", "5"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "3"], " ", 
      SubscriptBox["\[Beta]", "1"]}], ")"}]}]}], "-", 
  RowBox[{"5", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "16", "5"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "1"], " ", 
      SubscriptBox["\[Beta]", "2"]}], ")"}]}]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "17", "5"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "3"], " ", 
      SubscriptBox["\[Beta]", "1"]}], ")"}]}]}], "-", 
  RowBox[{"3", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "17", "5"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "1"], " ", 
      SubscriptBox["\[Beta]", "2"]}], ")"}]}]}], "+", 
  RowBox[{"5", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "18", "5"], "\[CircleTimes]", 
    SubscriptBox["\[Beta]", "1"]}]}], "-", 
  RowBox[{"5", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "18", "5"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "2"], " ", 
      SubscriptBox["\[Beta]", "2"]}], ")"}]}]}], "+", 
  RowBox[{"3", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "19", "5"], "\[CircleTimes]", 
    SubscriptBox["\[Beta]", "1"]}]}], "-", 
  RowBox[{"3", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "19", "5"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "2"], " ", 
      SubscriptBox["\[Beta]", "2"]}], ")"}]}]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "20", "5"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "1"], " ", 
      SubscriptBox["\[Beta]", "1"]}], ")"}]}]}], "-", 
  RowBox[{"5", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "20", "5"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "3"], " ", 
      SubscriptBox["\[Beta]", "2"]}], ")"}]}]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "21", "5"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "1"], " ", 
      SubscriptBox["\[Beta]", "1"]}], ")"}]}]}], "-", 
  RowBox[{"3", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "21", "5"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "3"], " ", 
      SubscriptBox["\[Beta]", "2"]}], ")"}]}]}], "+", 
  RowBox[{"3", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "22", "5"], "\[CircleTimes]", 
    SubscriptBox["\<\"I\"\>", "4"]}]}], "-", 
  RowBox[{"3", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "22", "5"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "2"], " ", 
      SubscriptBox["\[Beta]", "3"]}], ")"}]}]}], "+", 
  RowBox[{"5", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "23", "5"], "\[CircleTimes]", 
    SubscriptBox["\<\"I\"\>", "4"]}]}], "-", 
  RowBox[{"5", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubsuperscriptBox["\[Omega]", "23", "5"], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Alpha]", "2"], " ", 
      SubscriptBox["\[Beta]", "3"]}], ")"}]}]}]}]], "Output",
 CellChangeTimes->{{3.75391433408799*^9, 3.7539143573248076`*^9}, 
   3.801831538585278*^9},
 CellLabel->
  "Out[483]=",ExpressionUUID->"6d423bcd-6546-4311-9ec1-5dfb0d4370a8"]
}, Open  ]]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Testing 4D space-time", "Section",
 CellChangeTimes->{{3.742447433567292*^9, 
  3.742447441559691*^9}},ExpressionUUID->"867351f9-5484-4126-a47d-\
d94d902b177f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[Gamma]5\[Gamma]", "[", "0", "]"}]], "Input",
 CellChangeTimes->{{3.742447443968371*^9, 3.742447464250478*^9}},
 CellLabel->
  "In[484]:=",ExpressionUUID->"c96a094c-792b-4f3b-b88a-257150e53b4d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "\[ImaginaryI]", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0", ",", "\[ImaginaryI]"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "\[ImaginaryI]"}], ",", "0", ",", "0", ",", "0"}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", 
     RowBox[{"-", "\[ImaginaryI]"}], ",", "0", ",", "0"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.7500178883983603`*^9, 3.7500180391567507`*^9, 
  3.7539143168200808`*^9, 3.8018315615064487`*^9},
 CellLabel->
  "Out[484]=",ExpressionUUID->"815d118e-e5e2-48dd-9196-8cef603f7089"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Gamma]5", ".", 
   RowBox[{"CommuteGammastdownstupdown", "[", 
    RowBox[{"0", ",", "1"}], "]"}]}], "//", "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.742447474748006*^9, 3.742447501328562*^9}},
 CellLabel->
  "In[485]:=",ExpressionUUID->"a4728552-95a4-4d02-ad9f-2afcc771ffe9"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "0", 
      RowBox[{"2", " ", "\[ImaginaryI]"}], "0"},
     {"0", "0", "0", 
      RowBox[{
       RowBox[{"-", "2"}], " ", "\[ImaginaryI]"}]},
     {
      RowBox[{"2", " ", "\[ImaginaryI]"}], "0", "0", "0"},
     {"0", 
      RowBox[{
       RowBox[{"-", "2"}], " ", "\[ImaginaryI]"}], "0", "0"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.750017888430106*^9, 3.750018039183539*^9, 
  3.753914316835702*^9, 3.801831561634574*^9},
 CellLabel->
  "Out[485]//MatrixForm=",ExpressionUUID->"687f4a85-5482-4ef7-bfe5-\
66ff1dedde2d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Cmetric", "//", "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.7424475072807207`*^9, 3.742447518890211*^9}},
 CellLabel->
  "In[486]:=",ExpressionUUID->"bfc853bc-7a80-4bb2-a9bb-b155863bcc13"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", 
      RowBox[{"-", "1"}], "0", "0"},
     {"1", "0", "0", "0"},
     {"0", "0", "0", "1"},
     {"0", "0", 
      RowBox[{"-", "1"}], "0"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.750017888452923*^9, 3.750018039200981*^9, 
  3.753914316867279*^9, 3.801831561648978*^9},
 CellLabel->
  "Out[486]//MatrixForm=",ExpressionUUID->"ad05c26f-3398-40c2-8c00-\
8ffa206125fa"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"UD", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"\[Psi]", "[", "1", "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "t"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.742447525747052*^9, 3.742447549380886*^9}},
 CellLabel->
  "In[487]:=",ExpressionUUID->"6c686fac-1ff8-4172-a22d-fb357e80d4bd"],

Cell[BoxData[
 RowBox[{"-", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"\[Psi]", "[", "1", "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output",
 CellChangeTimes->{3.750017888480817*^9, 3.7500180392218127`*^9, 
  3.753914316882896*^9, 3.8018315617136993`*^9},
 CellLabel->
  "Out[487]=",ExpressionUUID->"59e488f2-beff-4c12-9b3e-4453a8566eb7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Lap", "[", 
  RowBox[{
   RowBox[{"\[Psi]", "[", "1", "]"}], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.74244753811308*^9, 3.742447556028775*^9}},
 CellLabel->
  "In[488]:=",ExpressionUUID->"21a4a468-1f8e-47b4-bdd3-f2f33af9260e"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox[
    RowBox[{"\[Psi]", "[", "1", "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"\[Psi]", "[", "1", "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"\[Psi]", "[", "1", "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"\[Psi]", "[", "1", "]"}], 
    TagBox[
     RowBox[{"(", 
      RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output",
 CellChangeTimes->{3.750017888504695*^9, 3.750018039255045*^9, 
  3.7539143169141383`*^9, 3.801831561726616*^9},
 CellLabel->
  "Out[488]=",ExpressionUUID->"43af47e4-f58c-4932-a1f4-b2d826a7027c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"\[Alpha]matrix", "[", "ahat", "]"}], "//", "MatrixForm"}], ",", 
   RowBox[{"{", 
    RowBox[{"ahat", ",", "1", ",", "3"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7465532875418015`*^9, 3.74655330581242*^9}},
 CellLabel->
  "In[489]:=",ExpressionUUID->"8caf2543-ffc1-4d3e-9df4-54fd14da029f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", 
        RowBox[{"-", "\[ImaginaryI]"}]},
       {"0", "0", 
        RowBox[{"-", "\[ImaginaryI]"}], "0"},
       {"0", "\[ImaginaryI]", "0", "0"},
       {"\[ImaginaryI]", "0", "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", 
        RowBox[{"-", "\[ImaginaryI]"}], "0", "0"},
       {"\[ImaginaryI]", "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "\[ImaginaryI]"}]},
       {"0", "0", "\[ImaginaryI]", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", 
        RowBox[{"-", "\[ImaginaryI]"}], "0"},
       {"0", "0", "0", "\[ImaginaryI]"},
       {"\[ImaginaryI]", "0", "0", "0"},
       {"0", 
        RowBox[{"-", "\[ImaginaryI]"}], "0", "0"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{3.7500178885291276`*^9, 3.7500180392738924`*^9, 
  3.7539143169297924`*^9, 3.801831561809704*^9},
 CellLabel->
  "Out[489]=",ExpressionUUID->"a29add8c-7740-4f3e-bc93-dceb2249a4bb"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[Gamma]", "[", "2", "]"}], ".", 
   RowBox[{"\[Gamma]", "[", "3", "]"}]}], "\[Equal]", 
  RowBox[{"I", " ", 
   RowBox[{"\[Alpha]matrix", "[", "1", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.746553271891163*^9, 3.746553326863762*^9}},
 CellLabel->
  "In[490]:=",ExpressionUUID->"5274f2db-86e4-43eb-a73b-f53200b8d399"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.750017888549961*^9, 3.7500180393220415`*^9, 
  3.7539143169610033`*^9, 3.801831561822714*^9},
 CellLabel->
  "Out[490]=",ExpressionUUID->"c1f70cbf-a0a6-43fe-8b91-80af5cd9ebf7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[Gamma]", "[", "3", "]"}], ".", 
   RowBox[{"\[Gamma]", "[", "1", "]"}]}], "\[Equal]", 
  RowBox[{"I", " ", 
   RowBox[{"\[Alpha]matrix", "[", "2", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.7465533358248234`*^9, 3.746553347618163*^9}},
 CellLabel->
  "In[491]:=",ExpressionUUID->"b8ae2771-fb67-4561-8e3b-579c20e20adf"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.75001788857228*^9, 3.750018039338373*^9, 
  3.753914316976641*^9, 3.801831561919943*^9},
 CellLabel->
  "Out[491]=",ExpressionUUID->"6bb81749-2a83-42d7-b3bd-2679a48e28a7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[Gamma]", "[", "1", "]"}], ".", 
   RowBox[{"\[Gamma]", "[", "2", "]"}]}], " ", "\[Equal]", " ", 
  RowBox[{"I", " ", 
   RowBox[{"\[Alpha]matrix", "[", "3", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.746553349802328*^9, 3.746553359755376*^9}},
 CellLabel->
  "In[492]:=",ExpressionUUID->"a149c725-3af3-4104-8fa6-7b2cf6150a28"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.750017888600552*^9, 3.7500180393592043`*^9, 
  3.7539143169922757`*^9, 3.801831561936522*^9},
 CellLabel->
  "Out[492]=",ExpressionUUID->"ae369c54-6783-42f0-9adf-3dc86470893c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Gamma]", "[", "0", "]"}], "\[Equal]", 
  RowBox[{"I", " ", 
   RowBox[{"\[Beta]matrix", "[", "3", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.7465533698404846`*^9, 3.746553380109207*^9}, {
  3.746553415042225*^9, 3.7465534539419336`*^9}},
 CellLabel->
  "In[493]:=",ExpressionUUID->"9c39496b-3e3f-4eef-b547-02d2378c0c24"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.750017888628691*^9, 3.7500180393880177`*^9, 
  3.753914317023488*^9, 3.801831562042945*^9},
 CellLabel->
  "Out[493]=",ExpressionUUID->"f131022c-c7b1-47e8-a691-2ea4a4337343"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["\[Gamma]5"], "Input",
 CellChangeTimes->{{3.7465535251987753`*^9, 3.7465535257683296`*^9}},
 CellLabel->
  "In[494]:=",ExpressionUUID->"883fb1e8-7e4c-4dd5-ad61-591e4577dcfa"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0", ",", "\[ImaginaryI]"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", 
     RowBox[{"-", "\[ImaginaryI]"}], ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "\[ImaginaryI]", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "\[ImaginaryI]"}], ",", "0", ",", "0", ",", "0"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.75001788865047*^9, 3.7500180394043407`*^9, 
  3.7539143170391407`*^9, 3.8018315620592337`*^9},
 CellLabel->
  "Out[494]=",ExpressionUUID->"4b740ae4-047d-42c4-a464-ec420ed89be5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[Gamma]5", " ", "\[Equal]", " ", 
  RowBox[{"-", 
   RowBox[{"\[Beta]matrix", "[", "1", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.746553461783628*^9, 3.746553496803726*^9}, {
  3.7465535463352723`*^9, 3.74655356213838*^9}},
 CellLabel->
  "In[495]:=",ExpressionUUID->"9e894f20-26c5-41a7-938c-5eeb0c8ef40e"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.7500178886732874`*^9, 3.750018039424181*^9, 
  3.7539143170391407`*^9, 3.80183156217922*^9},
 CellLabel->
  "Out[495]=",ExpressionUUID->"353b237a-c88f-4fcb-926e-d77f6915ed61"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[Gamma]", "[", "0", "]"}], ".", "\[Gamma]5"}], " ", "\[Equal]", 
  " ", 
  RowBox[{"\[Beta]matrix", "[", "2", "]"}]}]], "Input",
 CellChangeTimes->{{3.746553581046234*^9, 3.746553596891637*^9}},
 CellLabel->
  "In[496]:=",ExpressionUUID->"cf4d0370-c174-456e-8b40-c9ceb56bae7f"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.750017888700566*^9, 3.750018039449973*^9, 
  3.7539143170547547`*^9, 3.8018315621961803`*^9},
 CellLabel->
  "Out[496]=",ExpressionUUID->"04b3202b-99a6-41b0-b0f9-538d91c9d841"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"su2matrix", "[", 
  RowBox[{"1", ",", "1"}], "]"}]], "Input",
 CellChangeTimes->{{3.709237241493265*^9, 3.7092372437973967`*^9}},
 CellLabel->
  "In[497]:=",ExpressionUUID->"17e1c53e-a51c-42df-a1f6-ec76bc17dcc4"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0", ",", 
     RowBox[{"-", "\[ImaginaryI]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", 
     RowBox[{"-", "\[ImaginaryI]"}], ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "\[ImaginaryI]", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[ImaginaryI]", ",", "0", ",", "0", ",", "0"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.750017888722887*^9, 3.7500180394688206`*^9, 
  3.7539143170547547`*^9, 3.801831562322801*^9},
 CellLabel->
  "Out[497]=",ExpressionUUID->"5d9a78be-e0de-4897-9407-e8092907a047"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[Alpha]matrix", "[", "1", "]"}]], "Input",
 CellChangeTimes->{{3.7092372459275184`*^9, 3.709237247628616*^9}},
 CellLabel->
  "In[498]:=",ExpressionUUID->"82b5b273-9d7b-4fbe-b2a4-0bdca6a9309a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0", ",", 
     RowBox[{"-", "\[ImaginaryI]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", 
     RowBox[{"-", "\[ImaginaryI]"}], ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "\[ImaginaryI]", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[ImaginaryI]", ",", "0", ",", "0", ",", "0"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.750017888754675*^9, 3.750018039489652*^9, 
  3.753914317070376*^9, 3.801831562336211*^9},
 CellLabel->
  "Out[498]=",ExpressionUUID->"f59f815b-04db-459c-b76e-fa53185babc7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AntiCommuteGamma", "[", 
  RowBox[{"2", ",", "2"}], "]"}]], "Input",
 CellChangeTimes->{{3.5744657884825735`*^9, 3.574465807701807*^9}},
 CellLabel->
  "In[499]:=",ExpressionUUID->"c99bfc8b-bca3-4464-b0fc-b05befb48c8c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"2", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "2", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "2", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0", ",", "2"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.7500178887839346`*^9, 3.750018039516437*^9, 
  3.753914317070376*^9, 3.801831562462638*^9},
 CellLabel->
  "Out[499]=",ExpressionUUID->"82fb246a-c455-441f-adf7-4f1791888b87"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[Gamma]5", " ", "==", " ", 
  RowBox[{"(", 
   RowBox[{"-", 
    RowBox[{"SigmaProduct", "[", 
     RowBox[{"1", ",", "2"}], "]"}]}], ")"}]}]], "Input",
 CellChangeTimes->{{3.5744658375134597`*^9, 3.5744658573878946`*^9}, {
  3.80183160360427*^9, 3.801831628009172*^9}},
 CellLabel->
  "In[520]:=",ExpressionUUID->"a30636f3-1032-4db1-80a6-5d8033af4392"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.7500178888067093`*^9, 3.7500180395388064`*^9, 3.7539143170860014`*^9, 
   3.801831562477416*^9, {3.801831604410754*^9, 3.801831632399817*^9}},
 CellLabel->
  "Out[520]=",ExpressionUUID->"733c214c-3dd6-46e3-b65e-7dedc4f712e0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Sig", "[", 
   RowBox[{"1", ",", "2"}], "]"}], " ", "=", " ", 
  RowBox[{
   RowBox[{"-", " ", "I"}], " ", 
   FractionBox["1", "2"], 
   RowBox[{
    RowBox[{"\[Gamma]", "[", "1", "]"}], ".", 
    RowBox[{"\[Gamma]", "[", "2", "]"}]}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Sig", "[", 
   RowBox[{"2", ",", "3"}], "]"}], " ", "=", " ", 
  RowBox[{
   RowBox[{"-", "I"}], " ", 
   FractionBox["1", "2"], 
   RowBox[{
    RowBox[{"\[Gamma]", "[", "2", "]"}], ".", 
    RowBox[{"\[Gamma]", "[", "3", "]"}]}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Sig", "[", 
   RowBox[{"3", ",", "1"}], "]"}], " ", "=", " ", 
  RowBox[{
   RowBox[{"-", "I"}], " ", 
   FractionBox["1", "2"], 
   RowBox[{
    RowBox[{"\[Gamma]", "[", "3", "]"}], ".", 
    RowBox[{"\[Gamma]", "[", "1", "]"}]}]}]}]}], "Input",
 CellChangeTimes->{{3.574465865733909*^9, 3.5744659064499807`*^9}},
 CellLabel->
  "In[501]:=",ExpressionUUID->"0955fa9e-d286-4100-b7ce-41ef90bd0b58"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", 
     RowBox[{"-", 
      FractionBox["\[ImaginaryI]", "2"]}], ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0", ",", 
     FractionBox["\[ImaginaryI]", "2"]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["\[ImaginaryI]", "2"], ",", "0", ",", "0", ",", "0"}], "}"}],
    ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", 
     RowBox[{"-", 
      FractionBox["\[ImaginaryI]", "2"]}], ",", "0", ",", "0"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.7500178888325515`*^9, 3.750018039557109*^9, 
  3.7539143171172256`*^9, 3.801831562596671*^9},
 CellLabel->
  "Out[501]=",ExpressionUUID->"c73cf21a-b5ac-4a74-8401-93442cbad18e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0", ",", 
     RowBox[{"-", 
      FractionBox["\[ImaginaryI]", "2"]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", 
     RowBox[{"-", 
      FractionBox["\[ImaginaryI]", "2"]}], ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", 
     FractionBox["\[ImaginaryI]", "2"], ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["\[ImaginaryI]", "2"], ",", "0", ",", "0", ",", "0"}], 
    "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.7500178888325515`*^9, 3.750018039557109*^9, 
  3.7539143171172256`*^9, 3.80183156260509*^9},
 CellLabel->
  "Out[502]=",ExpressionUUID->"eef9e5a3-effb-4cdf-af41-cc4dac1d3097"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", 
     RowBox[{"-", 
      FractionBox["\[ImaginaryI]", "2"]}], ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["\[ImaginaryI]", "2"], ",", "0", ",", "0", ",", "0"}], "}"}],
    ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0", ",", 
     RowBox[{"-", 
      FractionBox["\[ImaginaryI]", "2"]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", 
     FractionBox["\[ImaginaryI]", "2"], ",", "0"}], "}"}]}], "}"}]], "Output",\

 CellChangeTimes->{3.7500178888325515`*^9, 3.750018039557109*^9, 
  3.7539143171172256`*^9, 3.80183156261512*^9},
 CellLabel->
  "Out[503]=",ExpressionUUID->"5273d0ac-4215-4882-81d8-204e3d75b2b7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Gamma]", "[", "0", "]"}], " ", "\[Equal]", " ", 
  RowBox[{"I", " ", 
   RowBox[{"\[Beta]matrix", "[", "3", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.5744659455592494`*^9, 3.5744659526104617`*^9}},
 CellLabel->
  "In[504]:=",ExpressionUUID->"05309d17-70a0-41fe-bc88-bffbf00b4967"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.7500178888588467`*^9, 3.7500180395930343`*^9, 
  3.7539143171328373`*^9, 3.801831562802301*^9},
 CellLabel->
  "Out[504]=",ExpressionUUID->"6ce96e06-e8b5-4866-b7af-df74de67d56d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Gamma]", "[", "1", "]"}], " ", "\[Equal]", " ", 
  RowBox[{
   RowBox[{"\[Alpha]matrix", "[", "1", "]"}], ".", 
   RowBox[{"\[Beta]matrix", "[", "2", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.574465954576065*^9, 3.574465974809301*^9}},
 CellLabel->
  "In[505]:=",ExpressionUUID->"92ff637e-9a92-4d25-8ecb-2014ee0dd28f"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.750017888876646*^9, 3.750018039622299*^9, 
  3.7539143171328373`*^9, 3.8018315628146467`*^9},
 CellLabel->
  "Out[505]=",ExpressionUUID->"8258c771-d908-4ee8-9b23-4dba753db04a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Gamma]", "[", "2", "]"}], " ", "\[Equal]", " ", 
  RowBox[{
   RowBox[{"\[Alpha]matrix", "[", "2", "]"}], ".", 
   RowBox[{"\[Beta]matrix", "[", "2", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.574465978085306*^9, 3.574465986509321*^9}},
 CellLabel->
  "In[506]:=",ExpressionUUID->"c7d0aea9-b659-45b4-bf5e-42c77570b423"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.7500178888949976`*^9, 3.750018039639164*^9, 
  3.75391431714849*^9, 3.801831562924571*^9},
 CellLabel->
  "Out[506]=",ExpressionUUID->"e8709a58-41f3-4d10-b8ad-eef2a7862a91"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Gamma]", "[", "3", "]"}], " ", "\[Equal]", " ", 
  RowBox[{
   RowBox[{"\[Alpha]matrix", "[", "3", "]"}], ".", 
   RowBox[{"\[Beta]matrix", "[", "2", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.574465989800927*^9, 3.5744659983341417`*^9}},
 CellLabel->
  "In[507]:=",ExpressionUUID->"5bca0d8d-df29-485c-bf87-7dfd120487f2"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.750017888913847*^9, 3.7500180396601057`*^9, 
  3.75391431714849*^9, 3.801831562937873*^9},
 CellLabel->
  "Out[507]=",ExpressionUUID->"a69adca2-0ea0-4c29-bfec-5e59c23a590f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Sig", "[", 
   RowBox[{"1", ",", "2"}], "]"}], " ", "\[Equal]", " ", 
  RowBox[{
   FractionBox["1", "2"], 
   RowBox[{"\[Alpha]matrix", "[", "3", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.5744660048393536`*^9, 3.5744660143397703`*^9}},
 CellLabel->
  "In[508]:=",ExpressionUUID->"aeec6083-d8a5-434f-94d2-608ca41c27e2"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.7500178889336853`*^9, 3.750018039686328*^9, 
  3.7539143171640806`*^9, 3.801831563055434*^9},
 CellLabel->
  "Out[508]=",ExpressionUUID->"0ab6643b-51b7-4942-9dd7-ae9df03cac5a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Sig", "[", 
   RowBox[{"2", ",", "3"}], "]"}], " ", "\[Equal]", " ", 
  RowBox[{
   FractionBox["1", "2"], 
   RowBox[{"\[Alpha]matrix", "[", "1", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.5744660171945753`*^9, 3.5744660254469895`*^9}},
 CellLabel->
  "In[509]:=",ExpressionUUID->"adc5e456-2849-4fe9-b839-30751fb2c4c0"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.750017888953528*^9, 3.7500180397071595`*^9, 
  3.7539143171797028`*^9, 3.801831563071266*^9},
 CellLabel->
  "Out[509]=",ExpressionUUID->"782ed23a-554a-49e8-86e9-6c1350120c64"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Sig", "[", 
   RowBox[{"3", ",", "1"}], "]"}], " ", "\[Equal]", " ", 
  RowBox[{
   FractionBox["1", "2"], 
   RowBox[{"\[Alpha]matrix", "[", "2", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.574466028364195*^9, 3.5744660366946096`*^9}},
 CellLabel->
  "In[510]:=",ExpressionUUID->"d1248931-0bcd-432f-a3b7-c213060bf5ea"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.75001788897287*^9, 3.750018039734439*^9, 
  3.7539143171953325`*^9, 3.801831563183593*^9},
 CellLabel->
  "Out[510]=",ExpressionUUID->"bd804761-db76-4dbf-a051-4a70b9f4b591"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[Gamma]5", " ", "\[Equal]", " ", 
  RowBox[{"-", " ", 
   RowBox[{"\[Beta]matrix", "[", "1", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.57446604865983*^9, 3.574466055165042*^9}, {
  3.801831587694873*^9, 3.8018315881994963`*^9}},
 CellLabel->
  "In[516]:=",ExpressionUUID->"0e85c406-eb86-4fa9-b535-02113968e8e4"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.7500178889922523`*^9, 3.7500180397563066`*^9, 3.7539143172265673`*^9, {
   3.8018315631982107`*^9, 3.801831588753209*^9}},
 CellLabel->
  "Out[516]=",ExpressionUUID->"b740d000-5cbb-4497-b7e8-6ef3e78f64ca"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", "I"}], " ", 
   FractionBox["1", "2"], 
   RowBox[{"\[Gamma]", "[", "0", "]"}]}], " ", "\[Equal]", " ", 
  RowBox[{
   FractionBox["1", "2"], 
   RowBox[{"\[Beta]matrix", "[", "3", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.5744660650086594`*^9, 3.57446608224669*^9}},
 CellLabel->
  "In[512]:=",ExpressionUUID->"38bbcc65-9f61-4711-9543-7389979f2041"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.750017889011103*^9, 3.7500180397841015`*^9, 
  3.7539143172421865`*^9, 3.801831563309708*^9},
 CellLabel->
  "Out[512]=",ExpressionUUID->"3f90640d-6b92-4a61-8b6c-01a5ff75f731"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox[
    RowBox[{"-", "1"}], "2"], "\[Gamma]5"}], " ", "\[Equal]", " ", 
  RowBox[{
   FractionBox["1", "2"], 
   RowBox[{"\[Beta]matrix", "[", "1", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.5744660850078945`*^9, 3.5744660952727127`*^9}, {
  3.801831591294428*^9, 3.8018315917886057`*^9}},
 CellLabel->
  "In[517]:=",ExpressionUUID->"6606803d-38e9-4702-8331-3899340c9527"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.750017889031399*^9, 3.750018039802413*^9, 3.75391431727343*^9, {
   3.801831563321361*^9, 3.8018315922331533`*^9}},
 CellLabel->
  "Out[517]=",ExpressionUUID->"b5823ecc-cba0-4a9d-af18-e8bcdfee148c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox["1", "2"], 
   RowBox[{
    RowBox[{"\[Gamma]", "[", "0", "]"}], ".", "\[Gamma]5"}]}], " ", 
  "\[Equal]", " ", 
  RowBox[{
   FractionBox["1", "2"], 
   RowBox[{"\[Beta]matrix", "[", "2", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.574466098798319*^9, 3.5744661104827394`*^9}, {
  3.801831594720286*^9, 3.801831595307411*^9}},
 CellLabel->
  "In[518]:=",ExpressionUUID->"1d457f2e-cfbe-4e62-b6a5-f3d147c6784a"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.7500178890532236`*^9, 3.7500180398262863`*^9, 
  3.753914317304734*^9, 3.801831563436405*^9, 3.8018315958017597`*^9},
 CellLabel->
  "Out[518]=",ExpressionUUID->"57665bcf-8e37-4abb-98e5-ac90d660f300"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Beta]matrix", "[", "2", "]"}], "//", "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.574466315296499*^9, 3.5744663243289146`*^9}},
 CellLabel->
  "In[515]:=",ExpressionUUID->"b803c677-ffb6-408a-b191-fa965c007516"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "0", 
      RowBox[{"-", "\[ImaginaryI]"}], "0"},
     {"0", "0", "0", 
      RowBox[{"-", "\[ImaginaryI]"}]},
     {"\[ImaginaryI]", "0", "0", "0"},
     {"0", "\[ImaginaryI]", "0", "0"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.7500178890745955`*^9, 3.7500180398545866`*^9, 
  3.7539143173202934`*^9, 3.8018315634492197`*^9},
 CellLabel->
  "Out[515]//MatrixForm=",ExpressionUUID->"43c617cb-3b0a-4b09-af93-\
0938e091afcb"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Testing BC4Tools", "Section",
 CellChangeTimes->{{3.74655491747103*^9, 
  3.7465549233801327`*^9}},ExpressionUUID->"0a815dc9-c93d-40ff-a58e-\
1643e437a5e8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FunctionList", "[", "BC4Tools", "]"}]], "Input",
 CellChangeTimes->{{3.746554673222618*^9, 3.7465546782762775`*^9}},
 CellLabel->
  "In[521]:=",ExpressionUUID->"6f0b492b-2cea-44dd-9be7-cd8c7bfb353f"],

Cell[BoxData["\<\"\\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***************************************\
*************************************************\"\>"], "Output",
 CellChangeTimes->{3.7500178890948853`*^9, 3.750018039876382*^9, 
  3.753914317351567*^9, 3.801831714301117*^9},
 CellLabel->
  "Out[521]=",ExpressionUUID->"5514da41-3e2d-4742-85c7-36eb02ad26d3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["Rep"], "Input",
 CellChangeTimes->{{3.746554699845025*^9, 3.7465547000687284`*^9}},
 CellLabel->
  "In[522]:=",ExpressionUUID->"3ae0ec75-9032-4a98-b6de-8f803ec6d77b"],

Cell[BoxData["trans"], "Output",
 CellChangeTimes->{3.750017889114727*^9, 3.7500180399006867`*^9, 
  3.753914317367158*^9, 3.801831714433764*^9},
 CellLabel->
  "Out[522]=",ExpressionUUID->"724542ee-8047-4f24-9ae6-5f1722e7cb2f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintIell", "[", "Q", "]"}]], "Input",
 CellChangeTimes->{{3.746554790680175*^9, 3.7465547929871655`*^9}},
 CellLabel->
  "In[523]:=",ExpressionUUID->"edccc53c-7770-43f9-9046-39cba6c4d2b5"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\<\"\\!\\(\\*SuperscriptBox[\\(\[Beta]\\), \\(1\\)]\\)\"\>", 
     ",", "\<\"\\!\\(\\*SuperscriptBox[\\(\[Beta]\\), \\(3\\)]\\)\"\>", 
     ",", "\<\"\\!\\(\\*SuperscriptBox[\\(\[Beta]\\), \\(2\\)]\\)\"\>"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.7500178891345673`*^9, 3.750018039918046*^9, 
  3.7539143173827815`*^9, 3.801831714518017*^9},
 CellLabel->
  "Out[523]=",ExpressionUUID->"619fca11-4f59-42c3-9128-5907bf18d25d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintIell", "[", "CM", "]"}]], "Input",
 CellChangeTimes->{{3.7465551400416923`*^9, 3.7465551435768433`*^9}},
 CellLabel->
  "In[524]:=",ExpressionUUID->"079887a2-9b33-4225-891c-9e8e417a2ae6"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
     "-", "\<\"\\!\\(\\*SuperscriptBox[\\(\[Alpha]\\), \\(1\\)]\\)\"\>"}], 
     ",", 
     RowBox[{
     "-", "\<\"\\!\\(\\*SuperscriptBox[\\(\[Alpha]\\), \\(2\\)]\\)\"\>"}], 
     ",", 
     RowBox[{
     "-", "\<\"\\!\\(\\*SuperscriptBox[\\(\[Alpha]\\), \\(3\\)]\\)\"\>"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.7500178891549463`*^9, 3.7500180399398723`*^9, 
  3.7539143174140215`*^9, 3.8018317146023808`*^9},
 CellLabel->
  "Out[524]=",ExpressionUUID->"c2ed69ef-c5b3-409b-abb0-0a8fee998ae5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintIell", "[", "VM", "]"}]], "Input",
 CellChangeTimes->{{3.746555144712572*^9, 3.746555147838951*^9}},
 CellLabel->
  "In[525]:=",ExpressionUUID->"a4a37eef-ecc9-44f2-9840-b699fb635370"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"\\!\\(\\*SuperscriptBox[\\(\[Beta]\\), \\(1\\)]\\)\"\>", ",", 
     RowBox[{
     "-", "\<\"\\!\\(\\*SuperscriptBox[\\(\[Beta]\\), \\(2\\)]\\)\"\>"}], 
     ",", "\<\"\\!\\(\\*SuperscriptBox[\\(\[Beta]\\), \\(3\\)]\\)\"\>"}], 
    "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.7500178891752415`*^9, 3.7500180399681416`*^9, 
  3.7539143174296694`*^9, 3.8018317146872177`*^9},
 CellLabel->
  "Out[525]=",ExpressionUUID->"fa0d28b0-44ea-43a0-bbb8-f3bd9db34b3c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintIell", "[", "TM", "]"}]], "Input",
 CellChangeTimes->{{3.7465551489344945`*^9, 3.7465551518577385`*^9}},
 CellLabel->
  "In[526]:=",ExpressionUUID->"6562d0bf-d9d3-4d8b-9264-6671e7700a9a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
     "-", "\<\"\\!\\(\\*SuperscriptBox[\\(\[Beta]\\), \\(1\\)]\\)\"\>"}], ",", 
     RowBox[{
     "-", "\<\"\\!\\(\\*SuperscriptBox[\\(\[Beta]\\), \\(2\\)]\\)\"\>"}], ",", 
     RowBox[{
     "-", "\<\"\\!\\(\\*SuperscriptBox[\\(\[Beta]\\), \\(3\\)]\\)\"\>"}]}], 
    "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.7500178891945815`*^9, 3.7500180399889736`*^9, 
  3.753914317460888*^9, 3.801831714769899*^9},
 CellLabel->
  "Out[526]=",ExpressionUUID->"f85a56e9-74e5-4e36-a0ce-49c60332aa60"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintIell", "[", "41", "]"}]], "Input",
 CellChangeTimes->{{3.7465552771197867`*^9, 3.746555279312566*^9}},
 CellLabel->
  "In[527]:=",ExpressionUUID->"b73e0040-d8ce-47c0-9320-ab33ba4c0207"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
     "-", "\<\"\\!\\(\\*SuperscriptBox[\\(\[Alpha]\\), \\(1\\)]\\)\"\>"}], 
     ",", "\<\"\\!\\(\\*SuperscriptBox[\\(\[Alpha]\\), \\(3\\)]\\)\"\>", ",", 
     
     RowBox[{
     "-", "\<\"\\!\\(\\*SuperscriptBox[\\(\[Alpha]\\), \\(2\\)]\\)\"\>"}]}], 
    "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.7500178892149625`*^9, 3.7500180400103393`*^9, 
  3.753914317476536*^9, 3.801831714852977*^9},
 CellLabel->
  "Out[527]=",ExpressionUUID->"551565a1-e656-4573-bfcb-345f79123fe8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"ell", "[", "Q", "]"}], "[", 
   RowBox[{"1", ",", "1"}], "]"}], "[", 
  RowBox[{"1", ",", "2"}], "]"}]], "Input",
 CellChangeTimes->{{3.746554813034173*^9, 3.7465548167897077`*^9}},
 CellLabel->
  "In[528]:=",ExpressionUUID->"1d9e9401-e5b0-4f53-9a65-993e9a862db0"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.7500178892342615`*^9, 3.7500180400380898`*^9, 
  3.75391431750775*^9, 3.801831714863124*^9},
 CellLabel->
  "Out[528]=",ExpressionUUID->"eebe581e-3a7d-4fee-9272-8309b09fbe67"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"IellABCode", "[", "Q", "]"}]], "Input",
 CellChangeTimes->{{3.746554796093377*^9, 3.746554801292162*^9}},
 CellLabel->
  "In[529]:=",ExpressionUUID->"f078f6bc-2ea3-4b9e-844d-c7b67f541b06"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"4", ",", "6", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.7500178892541027`*^9, 3.750018040059909*^9, 
  3.753914317523372*^9, 3.8018317149454603`*^9},
 CellLabel->
  "Out[529]=",ExpressionUUID->"ddfa02b7-0cd8-4b42-9341-8ceefff55c93"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Vtilde", "[", "Q", "]"}]], "Input",
 CellChangeTimes->{{3.7465546852148046`*^9, 3.7465547513652325`*^9}},
 CellLabel->
  "In[530]:=",ExpressionUUID->"345766e9-51cc-475f-8320-979548908e62"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "\[ImaginaryI]", ",", "0", ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "\[ImaginaryI]"}], ",", "0", ",", "0", ",", "0"}], 
        "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "0", ",", "\[ImaginaryI]"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", 
         RowBox[{"-", "\[ImaginaryI]"}], ",", "0"}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "\[ImaginaryI]", ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "0", ",", 
         RowBox[{"-", "\[ImaginaryI]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "\[ImaginaryI]"}], ",", "0", ",", "0", ",", "0"}], 
        "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "\[ImaginaryI]", ",", "0", ",", "0"}], "}"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "0", ",", "\[ImaginaryI]"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "\[ImaginaryI]", ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", 
         RowBox[{"-", "\[ImaginaryI]"}], ",", "0", ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "\[ImaginaryI]"}], ",", "0", ",", "0", ",", "0"}], 
        "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", 
         RowBox[{"-", "\[ImaginaryI]"}], ",", "0", ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\[ImaginaryI]", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "0", ",", 
         RowBox[{"-", "\[ImaginaryI]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "\[ImaginaryI]", ",", "0"}], "}"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "0", ",", 
         RowBox[{"-", "\[ImaginaryI]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", 
         RowBox[{"-", "\[ImaginaryI]"}], ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "\[ImaginaryI]", ",", "0", ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\[ImaginaryI]", ",", "0", ",", "0", ",", "0"}], "}"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "\[ImaginaryI]", ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "0", ",", 
         RowBox[{"-", "\[ImaginaryI]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "\[ImaginaryI]"}], ",", "0", ",", "0", ",", "0"}], 
        "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "\[ImaginaryI]", ",", "0", ",", "0"}], "}"}]}], 
      "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", 
         RowBox[{"-", "\[ImaginaryI]"}], ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "0", ",", "\[ImaginaryI]"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\[ImaginaryI]", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", 
         RowBox[{"-", "\[ImaginaryI]"}], ",", "0", ",", "0"}], "}"}]}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "0", ",", "\[ImaginaryI]"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "\[ImaginaryI]", ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", 
         RowBox[{"-", "\[ImaginaryI]"}], ",", "0", ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "\[ImaginaryI]"}], ",", "0", ",", "0", ",", "0"}], 
        "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", 
         RowBox[{"-", "\[ImaginaryI]"}], ",", "0", ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\[ImaginaryI]", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "0", ",", 
         RowBox[{"-", "\[ImaginaryI]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "\[ImaginaryI]", ",", "0"}], "}"}]}], 
      "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "0", ",", 
         RowBox[{"-", "\[ImaginaryI]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", 
         RowBox[{"-", "\[ImaginaryI]"}], ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "\[ImaginaryI]", ",", "0", ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\[ImaginaryI]", ",", "0", ",", "0", ",", "0"}], "}"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", 
         RowBox[{"-", "\[ImaginaryI]"}], ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "0", ",", "\[ImaginaryI]"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\[ImaginaryI]", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", 
         RowBox[{"-", "\[ImaginaryI]"}], ",", "0", ",", "0"}], "}"}]}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "\[ImaginaryI]", ",", "0", ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "\[ImaginaryI]"}], ",", "0", ",", "0", ",", "0"}], 
        "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "0", ",", "\[ImaginaryI]"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", 
         RowBox[{"-", "\[ImaginaryI]"}], ",", "0"}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], 
    "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.7500178892828693`*^9, 3.750018040101071*^9, 
  3.753914317554614*^9, 3.80183171495956*^9},
 CellLabel->
  "Out[530]=",ExpressionUUID->"3343bf72-2b2b-45cd-9299-4bc0d602071c"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["sl(5) basis", "Section",
 CellChangeTimes->{{3.750161754784645*^9, 
  3.7501617589849277`*^9}},ExpressionUUID->"0e006476-0dbc-459b-89be-\
cf00ba45e3a9"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"\[Omega]matrix", "[", "5", "]"}], "[", "8", "]"}], "/.", 
     RowBox[{
      RowBox[{"nz", "[", "5", "]"}], "\[Rule]", "2"}]}], ")"}], "*", "12"}], "//",
   "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.7501617616230464`*^9, 3.75016188876143*^9}, {
   3.7501619250848646`*^9, 3.7501620042740817`*^9}, {3.750162285555451*^9, 
   3.750162298297239*^9}, {3.7501623832590313`*^9, 3.75016239170518*^9}, 
   3.750162435697972*^9, {3.750162512250209*^9, 3.7501625343387794`*^9}, 
   3.7501630006746497`*^9, {3.7501630461223474`*^9, 3.75016323126486*^9}, {
   3.7501633657545443`*^9, 3.7501633988658276`*^9}},
 CellLabel->
  "In[531]:=",ExpressionUUID->"85c29528-2de7-4ed7-92bf-8cf1e2fe30bc"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "0", "0", "0", "0"},
     {"0", "1", "0", "0", "0"},
     {"0", "0", 
      RowBox[{"-", "2"}], "0", "0"},
     {"0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.7501617664939365`*^9, 3.7501618890775995`*^9}, {
   3.7501619254236736`*^9, 3.750162005078275*^9}, {3.7501622890173535`*^9, 
   3.750162299351815*^9}, {3.7501623840163784`*^9, 3.7501623921198645`*^9}, 
   3.7501624364528055`*^9, {3.750162512913198*^9, 3.7501625350432825`*^9}, 
   3.7501630027289457`*^9, {3.7501630465358753`*^9, 3.750163231593099*^9}, {
   3.750163366511984*^9, 3.750163399422928*^9}, 3.753914317570237*^9, 
   3.801831721437649*^9},
 CellLabel->
  "Out[531]//MatrixForm=",ExpressionUUID->"4719fe98-d29d-49d3-a3cf-\
558690651028"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{Full, Full},
WindowMargins->{{-8, Automatic}, {Automatic, 0}},
PrintingCopies->1,
PrintingPageRange->{Automatic, Automatic},
PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}},
ShowSelection->True,
CellContext->Notebook,
FrontEndVersion->"12.1 for Mac OS X x86 (64-bit) (March 18, 2020)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"13072489-01ff-4b94-9abf-a1f853f37bda"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 8852, 120, 98, "Title",ExpressionUUID->"dfab12f3-523a-4891-ab6d-6353bcfa0aa5"],
Cell[CellGroupData[{
Cell[9456, 146, 148, 2, 30, "Input",ExpressionUUID->"65e9b759-d921-4a12-9e52-b3e8b17f8777"],
Cell[9607, 150, 1013, 14, 34, "Output",ExpressionUUID->"94531f8a-ae4d-4329-af14-c1d84e0c4401"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10657, 169, 263, 4, 67, "Section",ExpressionUUID->"8ce62cfa-2467-4484-bfab-5a2bb7149ea5"],
Cell[10923, 175, 294, 5, 30, "Input",ExpressionUUID->"3ce86a4c-e50b-42b6-b6ba-cfca0898781a"],
Cell[CellGroupData[{
Cell[11242, 184, 212, 3, 30, "Input",ExpressionUUID->"335154d1-1580-4631-8a3e-4170890b8e5c"],
Cell[11457, 189, 1055, 15, 34, "Output",ExpressionUUID->"480d4191-e11f-43fb-8ae4-177f54b34482"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12549, 209, 162, 3, 54, "Subsection",ExpressionUUID->"9032bd95-7de1-4377-8cd7-b7fd291e0e1f"],
Cell[CellGroupData[{
Cell[12736, 216, 320, 5, 30, "Input",ExpressionUUID->"433cc145-fb86-450b-9648-f7c5cbb57d74"],
Cell[13059, 223, 1540, 22, 140, "Output",ExpressionUUID->"ca6577bc-cb1f-4f6f-8a0c-550e1483944e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[14636, 250, 269, 4, 30, "Input",ExpressionUUID->"5ab02646-7eb8-4bc6-9cc6-8c4ac39583d4"],
Cell[14908, 256, 1333, 19, 98, "Output",ExpressionUUID->"5f5fe19b-7d45-4c60-b34b-c2941dbce154"]
}, Open  ]],
Cell[CellGroupData[{
Cell[16278, 280, 227, 3, 30, "Input",ExpressionUUID->"f2152041-3457-4816-9e34-ccfb12c93d8a"],
Cell[16508, 285, 3760, 55, 581, "Output",ExpressionUUID->"0b92f844-b7ac-46ef-8807-7be25d09706d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[20305, 345, 302, 4, 30, "Input",ExpressionUUID->"cd131f93-6eb8-4ba3-b71c-6c9265945b1e"],
Cell[20610, 351, 2506, 36, 350, "Output",ExpressionUUID->"606f7da8-6e35-4af0-aa7e-2a34b3472cfd"]
}, Open  ]],
Cell[CellGroupData[{
Cell[23153, 392, 318, 5, 30, "Input",ExpressionUUID->"5cf8981a-5985-4a6c-861a-8b771458a158"],
Cell[23474, 399, 1944, 27, 245, "Output",ExpressionUUID->"26b8f369-9ec3-4975-9c55-fc64c978d117"]
}, Open  ]],
Cell[CellGroupData[{
Cell[25455, 431, 323, 5, 30, "Input",ExpressionUUID->"8a453f50-9c25-4910-84fc-5bfae4aaeae8"],
Cell[25781, 438, 1482, 22, 161, "Output",ExpressionUUID->"e0ada7c4-e2db-404e-86e1-c72835753860"]
}, Open  ]],
Cell[CellGroupData[{
Cell[27300, 465, 218, 3, 30, "Input",ExpressionUUID->"157db393-0dff-4169-adae-289b23a3d1a9"],
Cell[27521, 470, 7531, 111, 1736, "Output",ExpressionUUID->"3fec9b9b-331a-4e20-ba11-7baa52acb098"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[35101, 587, 187, 3, 38, "Subsection",ExpressionUUID->"d2a6411a-95d2-4892-9744-45cbf8b5fc2e"],
Cell[CellGroupData[{
Cell[35313, 594, 183, 3, 45, "Subsubsection",ExpressionUUID->"6d43e65b-1220-4dd0-ac77-fbe7c15c929c"],
Cell[CellGroupData[{
Cell[35521, 601, 246, 5, 30, "Input",ExpressionUUID->"696619bb-4bda-4abd-a3d7-6c21086107ae"],
Cell[35770, 608, 1089, 15, 34, "Output",ExpressionUUID->"7690b538-749c-43b8-a877-72a3e2556d37"]
}, Open  ]],
Cell[CellGroupData[{
Cell[36896, 628, 178, 2, 30, "Input",ExpressionUUID->"da336974-8655-41e2-a289-74fb778d736c"],
Cell[37077, 632, 1434, 27, 34, "Output",ExpressionUUID->"aa2e85ca-ecf5-4fef-8540-115eed6be654"]
}, Open  ]],
Cell[CellGroupData[{
Cell[38548, 664, 283, 5, 30, "Input",ExpressionUUID->"61551fc0-f96c-4eff-a43f-a97ce806d229"],
Cell[38834, 671, 2040, 48, 34, "Output",ExpressionUUID->"4280837b-91ff-4818-b23a-557868b4694b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[40911, 724, 357, 7, 30, "Input",ExpressionUUID->"a623415f-9142-4544-adfe-1e00582a4797"],
Cell[41271, 733, 2148, 52, 34, "Output",ExpressionUUID->"1a53403d-efb7-4e2b-be78-777baabe3f3c"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[43468, 791, 240, 4, 45, "Subsubsection",ExpressionUUID->"9e6f5328-f24c-43bd-9942-c8f1da8f8655"],
Cell[CellGroupData[{
Cell[43733, 799, 318, 6, 30, "Input",ExpressionUUID->"5fb3bfd5-b3f1-4920-94ac-b5a0e529a661"],
Cell[44054, 807, 850, 11, 34, "Output",ExpressionUUID->"6c3dce2a-c4a1-4d07-b876-c20dffa3e92c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[44941, 823, 226, 3, 30, "Input",ExpressionUUID->"d3176023-b48b-47c7-a647-5e2098481ea2"],
Cell[45170, 828, 3490, 51, 581, "Output",ExpressionUUID->"2a75d620-bd8e-4dea-bb4f-8efaeed2a04c"]
}, Open  ]]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[48733, 887, 462, 8, 67, "Section",ExpressionUUID->"447f1ce8-877b-4368-9754-63eb8153e296"],
Cell[CellGroupData[{
Cell[49220, 899, 268, 6, 54, "Subsection",ExpressionUUID->"2756e45b-4ebc-4d30-977b-f2a5395a9f5a"],
Cell[CellGroupData[{
Cell[49513, 909, 2963, 78, 45, "Input",ExpressionUUID->"7fbb4825-1a12-4f37-bed9-5073449fde59"],
Cell[52479, 989, 1876, 43, 34, "Output",ExpressionUUID->"901de45f-c111-42a5-92ba-b42969d8c086"]
}, Open  ]],
Cell[CellGroupData[{
Cell[54392, 1037, 495, 12, 30, "Input",ExpressionUUID->"98deace6-d4d3-4214-8b04-3585778e7b5a"],
Cell[54890, 1051, 2221, 58, 34, "Output",ExpressionUUID->"fe70ecec-5fe6-49f1-aecf-40ccd921123d"]
}, Open  ]],
Cell[57126, 1112, 427, 10, 52, "Input",ExpressionUUID->"1f0f9057-f9e2-46dd-b919-369b6d7e310e"],
Cell[CellGroupData[{
Cell[57578, 1126, 229, 3, 30, "Input",ExpressionUUID->"76df3058-4335-4fdf-a614-46ade077bf55"],
Cell[57810, 1131, 385, 9, 24, "Message",ExpressionUUID->"415c2bd0-f9bd-44c5-a5c1-bec324c6d3a9"],
Cell[58198, 1142, 383, 9, 24, "Message",ExpressionUUID->"9a4fedfb-7409-4e50-ad01-e377791aae3d"],
Cell[58584, 1153, 383, 9, 24, "Message",ExpressionUUID->"307cf318-fdff-495c-a29e-2068e47a08f5"],
Cell[58970, 1164, 476, 10, 24, "Message",ExpressionUUID->"82e6ca68-5358-4145-a4b3-7d70326e7933"],
Cell[59449, 1176, 719, 11, 44, "Print",ExpressionUUID->"9e9abd7c-29c1-4577-8ce5-113cab078e59"]
}, Open  ]],
Cell[CellGroupData[{
Cell[60205, 1192, 222, 3, 30, "Input",ExpressionUUID->"d71f570e-2eb5-4252-9972-5c4de2e692ed"],
Cell[60430, 1197, 615, 9, 34, "Output",ExpressionUUID->"fb2a403c-2240-43f7-ba0e-81d1d5069329"]
}, Open  ]],
Cell[CellGroupData[{
Cell[61082, 1211, 219, 3, 30, "Input",ExpressionUUID->"d3611cb2-5214-411e-b6d2-21ace8d49aa2"],
Cell[61304, 1216, 6087, 179, 83, "Output",ExpressionUUID->"31d0c13e-223a-488e-933c-325c9b656f6e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[67428, 1400, 275, 5, 30, "Input",ExpressionUUID->"eedb2992-f3a3-4b78-90cf-8162f292bb4d"],
Cell[67706, 1407, 382, 8, 34, "Output",ExpressionUUID->"30bbde84-c062-4c87-b537-cbeb4c5fb0c3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[68125, 1420, 272, 5, 30, "Input",ExpressionUUID->"da3fa3e8-10d9-496d-8b41-9d1bd6d6f3e4"],
Cell[68400, 1427, 357, 8, 34, "Output",ExpressionUUID->"34e57293-c49c-44ea-9e4d-ebabc1756f2b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[68794, 1440, 222, 3, 30, "Input",ExpressionUUID->"a8dbf69d-8668-4000-99c7-e5cf67acd0ec"],
Cell[69019, 1445, 4850, 136, 115, "Output",ExpressionUUID->"956dad1f-02c1-4f2e-ab99-39af59da437e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[73906, 1586, 273, 5, 30, "Input",ExpressionUUID->"d09c85f4-6ba8-4b46-9d85-f56926d19f6b"],
Cell[74182, 1593, 512, 8, 47, "Output",ExpressionUUID->"89d8b357-fd2d-4a01-b97e-2dbbfdc4184d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[74731, 1606, 349, 6, 30, "Input",ExpressionUUID->"cf9a005e-b4e4-4310-9334-5d8d4c1526d1"],
Cell[75083, 1614, 505, 7, 34, "Output",ExpressionUUID->"50813578-b58f-4476-a3e7-aba44de0a822"]
}, Open  ]],
Cell[CellGroupData[{
Cell[75625, 1626, 287, 6, 30, "Input",ExpressionUUID->"1649ae08-c940-490d-91c1-4192a30f875a"],
Cell[75915, 1634, 437, 10, 34, "Output",ExpressionUUID->"db380cff-8d47-42bd-8652-4b7b6f1e8859"]
}, Open  ]],
Cell[CellGroupData[{
Cell[76389, 1649, 270, 5, 30, "Input",ExpressionUUID->"a942ae6b-e71b-4e79-b4c0-7562136856cb"],
Cell[76662, 1656, 739, 21, 60, "Output",ExpressionUUID->"2c06ca26-91e2-454f-b178-9b177bc033ef"]
}, Open  ]],
Cell[CellGroupData[{
Cell[77438, 1682, 222, 3, 30, "Input",ExpressionUUID->"e42cefe2-cd7b-4151-9ec6-67f4b0d7f1f8"],
Cell[77663, 1687, 5238, 156, 49, "Output",ExpressionUUID->"6cdec395-f67f-4ebc-852d-4a5210f659c8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[82938, 1848, 220, 3, 30, "Input",ExpressionUUID->"4d7353e0-d4da-44cf-afe2-7b8a75984f2e"],
Cell[83161, 1853, 6111, 180, 83, "Output",ExpressionUUID->"277463b2-0fd3-452e-b83b-eee2c481252e"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[89321, 2039, 1768, 51, 124, "Subsection",ExpressionUUID->"a6fbfda7-d918-417e-b169-ab83862e364c"],
Cell[CellGroupData[{
Cell[91114, 2094, 257, 4, 30, "Input",ExpressionUUID->"b4572ed4-6db3-4a7b-8bba-aaeb9cc16c14"],
Cell[91374, 2100, 3286, 88, 83, "Output",ExpressionUUID->"c6ed2cc9-73aa-4229-b9e4-acda87e7633e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[94697, 2193, 404, 10, 30, "Input",ExpressionUUID->"9d493756-fe06-4e7e-b279-fe5c62586558"],
Cell[95104, 2205, 1540, 35, 94, "Output",ExpressionUUID->"58570f84-a55b-47f0-8f80-1edd13d11f3a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[96681, 2245, 492, 14, 30, "Input",ExpressionUUID->"acc2aa95-6259-4832-a3a2-8d5503b233c5"],
Cell[97176, 2261, 1054, 29, 94, "Output",ExpressionUUID->"086d3a7f-1179-4e7e-8cad-896cb6a378c8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[98267, 2295, 550, 15, 30, "Input",ExpressionUUID->"8e08800c-8170-4b40-a3ad-9416071d21ca"],
Cell[98820, 2312, 866, 12, 34, "Output",ExpressionUUID->"07586e17-d238-44f6-ab19-c6238986dad9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[99723, 2329, 209, 3, 30, "Input",ExpressionUUID->"62ea11d1-bad6-4718-9398-e7ae2e763f69"],
Cell[99935, 2334, 3294, 88, 83, "Output",ExpressionUUID->"d36df617-66ab-4ac1-9a0c-0bbbbeffca40"]
}, Open  ]],
Cell[CellGroupData[{
Cell[103266, 2427, 334, 5, 30, "Input",ExpressionUUID->"3c86b485-8d62-483d-be31-c4dab6af2292"],
Cell[103603, 2434, 5356, 119, 157, "Output",ExpressionUUID->"d47d751f-6c66-4f83-9eee-a69a4964d09d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[108996, 2558, 603, 15, 30, "Input",ExpressionUUID->"030d1ca8-0a9a-4411-8d56-0700f74f5b28"],
Cell[109602, 2575, 5332, 118, 266, "Output",ExpressionUUID->"e0369f7e-d68a-4108-addd-57db796dafbd"]
}, Open  ]],
Cell[CellGroupData[{
Cell[114971, 2698, 618, 15, 30, "Input",ExpressionUUID->"6f8d3591-0bca-49b8-847a-5582c8468b33"],
Cell[115592, 2715, 5388, 119, 266, "Output",ExpressionUUID->"51d0ab99-a533-4937-b933-3f62e347d032"]
}, Open  ]],
Cell[CellGroupData[{
Cell[121017, 2839, 249, 4, 30, "Input",ExpressionUUID->"62e2bdbe-3bec-498b-a132-ab1799f3e227"],
Cell[121269, 2845, 383, 9, 24, "Message",ExpressionUUID->"8964cd0c-4508-474f-81e2-1f5177173777"],
Cell[121655, 2856, 383, 9, 24, "Message",ExpressionUUID->"f853dd84-b0d3-4ea3-8625-5167abc04c39"],
Cell[122041, 2867, 383, 9, 24, "Message",ExpressionUUID->"7d0ddb12-a8e4-461b-92aa-4e2c8fcaab30"],
Cell[122427, 2878, 474, 10, 24, "Message",ExpressionUUID->"31474c45-4d07-4dec-a764-aa082a65f889"],
Cell[122904, 2890, 543, 9, 24, "Print",ExpressionUUID->"6b542ac2-7292-4df9-ac49-038a7f023d90"],
Cell[123450, 2901, 316, 5, 34, "Output",ExpressionUUID->"25ab2ecb-3eff-4a63-8a54-d9eebbec272a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[123803, 2911, 212, 3, 30, "Input",ExpressionUUID->"f35439a3-a049-4191-92e7-c2f9e45d0c04"],
Cell[124018, 2916, 6062, 176, 83, "Output",ExpressionUUID->"b63cf1ec-bafc-46b6-8926-1c5a47d1c6e8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[130117, 3097, 210, 3, 30, "Input",ExpressionUUID->"b4e62dc7-55c5-46f9-b233-0b93f2ca9647"],
Cell[130330, 3102, 6032, 176, 83, "Output",ExpressionUUID->"7b4820ce-a16b-4967-9376-2eb296f87eef"]
}, Open  ]],
Cell[CellGroupData[{
Cell[136399, 3283, 212, 3, 30, "Input",ExpressionUUID->"0a0b4645-cce9-4fad-bd01-2036b52a875c"],
Cell[136614, 3288, 418, 6, 34, "Output",ExpressionUUID->"10572660-40ee-48f6-b13e-0254a4012f49"]
}, Open  ]],
Cell[CellGroupData[{
Cell[137069, 3299, 263, 5, 30, "Input",ExpressionUUID->"321ed327-5cf1-468b-89cc-326ad29f72e5"],
Cell[137335, 3306, 294, 5, 34, "Output",ExpressionUUID->"cf37fe6a-a0a1-472f-9e05-f5433e56eda9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[137666, 3316, 266, 5, 30, "Input",ExpressionUUID->"9780583b-5b88-4570-919e-1fd445397f41"],
Cell[137935, 3323, 264, 5, 34, "Output",ExpressionUUID->"c3245196-5d26-428d-a420-2ac1315d0fb0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[138236, 3333, 267, 5, 30, "Input",ExpressionUUID->"d5284cd4-0960-438d-bf11-faea2f9c484f"],
Cell[138506, 3340, 198, 3, 34, "Output",ExpressionUUID->"db6326f7-fa09-4a41-a8b1-c7e13072dc1a"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[138753, 3349, 1990, 57, 130, "Subsection",ExpressionUUID->"502ea1bb-1af8-427a-929e-fdc66f3b950f"],
Cell[CellGroupData[{
Cell[140768, 3410, 214, 3, 30, "Input",ExpressionUUID->"9dd5b988-f0f9-4e26-af36-a65e806b875a"],
Cell[140985, 3415, 3144, 86, 83, "Output",ExpressionUUID->"f736d94f-80ac-438a-8945-d6e2128f33c3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[144166, 3506, 361, 5, 30, "Input",ExpressionUUID->"a5db4e79-e39b-4422-b26c-f0642c0e8a24"],
Cell[144530, 3513, 5219, 117, 157, "Output",ExpressionUUID->"6b9ae059-b4a3-4a29-a1aa-5bfc77f7c261"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[149798, 3636, 154, 3, 54, "Subsection",ExpressionUUID->"af569c8d-9a84-4d4e-9d9d-30021d4d88c8"],
Cell[149955, 3641, 3401, 87, 79, "Input",ExpressionUUID->"417c8ff5-f868-4ee0-ac9e-4a391d72a9c8"],
Cell[CellGroupData[{
Cell[153381, 3732, 325, 6, 30, "Input",ExpressionUUID->"bf173063-c67b-4ec0-a5ab-7391e521accf"],
Cell[153709, 3740, 710, 10, 34, "Output",ExpressionUUID->"67ec544c-fa5b-48a7-a73e-f8756fc6858e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[154456, 3755, 311, 5, 30, "Input",ExpressionUUID->"640eefaa-a15f-4c29-bc8d-1d9437b5e162"],
Cell[154770, 3762, 5236, 117, 157, "Output",ExpressionUUID->"82fe5b2f-3eef-41bf-b8f9-df660d031f5e"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[160055, 3885, 154, 3, 54, "Subsection",ExpressionUUID->"57de3791-14b9-46df-a925-bec5d3dcfa62"],
Cell[160212, 3890, 3031, 82, 79, "Input",ExpressionUUID->"d829bbd7-18df-49ee-a3f0-1df8af3e330b"],
Cell[CellGroupData[{
Cell[163268, 3976, 269, 5, 30, "Input",ExpressionUUID->"c4e744ed-cc06-4bcd-865e-e0d9ab351870"],
Cell[163540, 3983, 668, 10, 34, "Output",ExpressionUUID->"5ffdb164-44cc-43c0-b031-f4479e6f0abd"]
}, Open  ]],
Cell[CellGroupData[{
Cell[164245, 3998, 288, 4, 30, "Input",ExpressionUUID->"0ae1a47d-1e90-4459-9134-c55af5e4fdc6"],
Cell[164536, 4004, 5197, 117, 157, "Output",ExpressionUUID->"8b8b41e8-dd70-46d4-bcfc-36bc8519d3f1"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[169782, 4127, 203, 4, 54, "Subsection",ExpressionUUID->"bb014953-bc14-42bd-9022-e008a72a5659"],
Cell[169988, 4133, 3081, 83, 79, "Input",ExpressionUUID->"825662cb-cfb3-4f77-ba17-fbd33cc274a7"],
Cell[CellGroupData[{
Cell[173094, 4220, 293, 6, 30, "Input",ExpressionUUID->"27af16b4-e380-4378-990e-c2c2d92246f4"],
Cell[173390, 4228, 671, 10, 34, "Output",ExpressionUUID->"9b959218-a7c2-4647-980c-a77c8ae850e2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[174098, 4243, 289, 4, 30, "Input",ExpressionUUID->"a4e25464-0de6-49f8-b8cf-1666af5a5722"],
Cell[174390, 4249, 5191, 117, 157, "Output",ExpressionUUID->"d975fb2a-a892-40e5-b08b-ad42807b7c48"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[179630, 4372, 206, 4, 54, "Subsection",ExpressionUUID->"60f76665-2797-422c-9187-4677e7bea113"],
Cell[179839, 4378, 3401, 87, 1248, "Input",ExpressionUUID->"8875f94e-688c-4c9c-90ef-1aa17fca68a6"],
Cell[CellGroupData[{
Cell[183265, 4469, 325, 6, 448, "Input",ExpressionUUID->"8f055c5e-b97c-455e-8a35-fbb70a353b22"],
Cell[183593, 4477, 666, 10, 70, "Output",ExpressionUUID->"fc61f396-2a9f-4e21-985b-167f85024f9b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[184296, 4492, 311, 5, 448, "Input",ExpressionUUID->"070984e0-1055-4be5-9598-836abebbc5ee"],
Cell[184610, 4499, 5179, 117, 70, "Output",ExpressionUUID->"0b6ebda8-b9a6-41a7-abf2-d19c868641ba"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[189838, 4622, 158, 3, 38, "Subsection",ExpressionUUID->"2bba39ba-b100-4a39-b2ee-db5a968d1e05"],
Cell[189999, 4627, 289, 6, 28, "Input",ExpressionUUID->"f14ef698-ed73-43eb-9815-6264edc16e58"],
Cell[CellGroupData[{
Cell[190313, 4637, 213, 3, 28, "Input",ExpressionUUID->"5727d3eb-9321-4943-88af-185134d9c811"],
Cell[190529, 4642, 3123, 86, 70, "Output",ExpressionUUID->"4d84ef9b-4ac7-4c42-a53d-76d25c906da9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[193689, 4733, 286, 4, 28, "Input",ExpressionUUID->"97074876-ff8d-4930-b2ab-bbe716a2c6f0"],
Cell[193978, 4739, 5197, 117, 70, "Output",ExpressionUUID->"0005076c-5a34-462d-9ee4-3ce7dc21e187"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[199224, 4862, 186, 3, 38, "Subsection",ExpressionUUID->"d819d99e-4d59-45bb-b20f-1f206f5f978c"],
Cell[199413, 4867, 342, 7, 448, "Input",ExpressionUUID->"b0c0627b-fc83-4ba0-9292-b5586f236a43"],
Cell[CellGroupData[{
Cell[199780, 4878, 213, 3, 448, "Input",ExpressionUUID->"f29c0f3d-af6b-4459-9039-ce4c093436ec"],
Cell[199996, 4883, 3120, 86, 70, "Output",ExpressionUUID->"36d08038-e1c0-4c5e-af46-deedd144a645"]
}, Open  ]],
Cell[CellGroupData[{
Cell[203153, 4974, 340, 5, 448, "Input",ExpressionUUID->"cb7b96dd-4389-414b-b53c-1f1449379d28"],
Cell[203496, 4981, 5189, 117, 70, "Output",ExpressionUUID->"b2ad51d7-2760-4e1c-af01-56d5c986c486"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[208734, 5104, 236, 4, 38, "Subsection",ExpressionUUID->"8a76e9b1-3aa1-42f4-ac7b-043e4a1b6d1d"],
Cell[CellGroupData[{
Cell[208995, 5112, 284, 6, 30, "Input",ExpressionUUID->"235a0649-56d8-4710-a813-c63eb11ca8f7"],
Cell[209282, 5120, 3242, 91, 106, "Output",ExpressionUUID->"efc224ea-f011-4a32-a869-72c9e24a79b5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[212561, 5216, 413, 7, 30, "Input",ExpressionUUID->"c2654a93-32e4-4d8c-9af2-826129eb88ad"],
Cell[212977, 5225, 5384, 121, 157, "Output",ExpressionUUID->"8e3054b6-e07e-4c78-accf-04f4bad28edb"]
}, Open  ]],
Cell[CellGroupData[{
Cell[218398, 5351, 277, 5, 30, "Input",ExpressionUUID->"d1989760-b6d6-43c7-a51b-5f66c1410764"],
Cell[218678, 5358, 432, 10, 24, "Message",ExpressionUUID->"3af312d8-e90f-4651-9d27-09950e1fa2fa"],
Cell[219113, 5370, 431, 10, 24, "Message",ExpressionUUID->"b292eaff-c077-4dfc-8657-2437f348b88b"],
Cell[219547, 5382, 430, 10, 24, "Message",ExpressionUUID->"88bc542a-e269-4081-8ae1-13f2bf5053fc"],
Cell[219980, 5394, 521, 11, 24, "Message",ExpressionUUID->"101b6f17-a0a9-4701-af98-8d9a85b521af"],
Cell[220504, 5407, 456, 8, 44, "Print",ExpressionUUID->"cc707873-061e-4315-b74e-f644129d6406"],
Cell[220963, 5417, 222, 4, 34, "Output",ExpressionUUID->"4404b2d6-4a3f-420f-9347-278c071038ea"]
}, Open  ]],
Cell[CellGroupData[{
Cell[221222, 5426, 235, 4, 30, "Input",ExpressionUUID->"fea4cd1a-03c8-4133-9e3b-3542fc3f1c88"],
Cell[221460, 5432, 5945, 175, 83, "Output",ExpressionUUID->"5ef43c8f-586f-4b9f-90c9-4fe35f27c27f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[227442, 5612, 233, 4, 30, "Input",ExpressionUUID->"72d6dcc9-5774-42f7-9263-5fd63f9dcbaf"],
Cell[227678, 5618, 5945, 175, 83, "Output",ExpressionUUID->"30f1214e-e0b1-446e-8aa9-89220ec3a24c"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[233672, 5799, 256, 6, 54, "Subsection",ExpressionUUID->"7df1dc7e-377b-4bb3-86fd-f7c96af9335e"],
Cell[CellGroupData[{
Cell[233953, 5809, 215, 3, 30, "Input",ExpressionUUID->"b5ba2c7c-65b5-4dc4-98d5-ca55ce3e468e"],
Cell[234171, 5814, 4790, 111, 157, "Output",ExpressionUUID->"510b5717-ec6f-4770-aa1b-f779cf2b6153"]
}, Open  ]],
Cell[CellGroupData[{
Cell[238998, 5930, 248, 4, 30, "Input",ExpressionUUID->"049c48d3-8e12-4de4-8994-70ff19eb257a"],
Cell[239249, 5936, 510, 11, 24, "Message",ExpressionUUID->"681d1900-3665-4553-9b02-f8cc1bf77576"],
Cell[239762, 5949, 508, 11, 24, "Message",ExpressionUUID->"332310b1-7fb4-4014-8174-9d13968c1b75"],
Cell[240273, 5962, 507, 11, 24, "Message",ExpressionUUID->"663c2025-5b3c-4c03-b6e6-37f112386b66"],
Cell[240783, 5975, 599, 12, 24, "Message",ExpressionUUID->"b6d52d72-07e4-4a62-ad6c-94056b71cc31"],
Cell[241385, 5989, 541, 9, 24, "Print",ExpressionUUID->"0123c80a-166c-4e4f-bbb4-fd2f379295a0"],
Cell[241929, 6000, 317, 5, 34, "Output",ExpressionUUID->"a0ecca3a-6ac3-4db9-a5ef-d629c8bc062f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[242283, 6010, 215, 3, 30, "Input",ExpressionUUID->"41de5047-4afb-4090-b376-266508a4f226"],
Cell[242501, 6015, 5943, 175, 83, "Output",ExpressionUUID->"59f37cc0-1218-4461-87c3-9d913967bca2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[248481, 6195, 288, 5, 30, "Input",ExpressionUUID->"de7f5276-2328-4d88-ba23-a92e14c98917"],
Cell[248772, 6202, 480, 11, 24, "Message",ExpressionUUID->"e06ee378-5afe-4eea-9d58-96687f872b71"],
Cell[249255, 6215, 480, 11, 24, "Message",ExpressionUUID->"f31e2ed5-cee9-4ff4-b1db-4a4fa781aa7f"],
Cell[249738, 6228, 480, 11, 24, "Message",ExpressionUUID->"068d83d9-ab38-45ca-a284-e8f8700c8af6"],
Cell[250221, 6241, 573, 12, 24, "Message",ExpressionUUID->"5a5f52ed-6ca3-4fdf-8eea-df77ab3a4621"],
Cell[250797, 6255, 1494, 32, 261, "Output",ExpressionUUID->"340c18b7-b0b9-454f-af68-23cea4f7b973"]
}, Open  ]],
Cell[CellGroupData[{
Cell[252328, 6292, 232, 3, 30, "Input",ExpressionUUID->"7c6d1469-e65f-47e7-9608-0d952823e8db"],
Cell[252563, 6297, 1628, 34, 237, "Output",ExpressionUUID->"a3aeefaf-9567-44b9-98cf-1afe070848aa"]
}, Open  ]],
Cell[CellGroupData[{
Cell[254228, 6336, 240, 4, 30, "Input",ExpressionUUID->"956bcd9b-b969-4924-84b8-f269fa828e8d"],
Cell[254471, 6342, 626, 12, 24, "Message",ExpressionUUID->"540f9d6b-09fb-40e6-a717-0243f3896da3"],
Cell[CellGroupData[{
Cell[255122, 6358, 285, 5, 24, "Print",ExpressionUUID->"9ccfe77f-64c1-47cc-a3b0-4b5c413225a8"],
Cell[255410, 6365, 314, 5, 24, "Print",ExpressionUUID->"6503a396-7fb9-48a5-b5cb-bfc510d70d9a"],
Cell[255727, 6372, 298, 5, 24, "Print",ExpressionUUID->"2e464a44-1a84-4f5a-96cf-4696a86f0b75"]
}, Open  ]],
Cell[256040, 6380, 273, 4, 34, "Output",ExpressionUUID->"d3181d81-52ee-4e8f-9b0b-b93a16286a82"]
}, Open  ]],
Cell[CellGroupData[{
Cell[256350, 6389, 227, 3, 30, "Input",ExpressionUUID->"f43bfb41-6771-4303-81c6-bedc21618fe2"],
Cell[256580, 6394, 1380, 32, 229, "Output",ExpressionUUID->"3618a942-b7e6-4e94-afc9-52eba055a1a9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[257997, 6431, 249, 4, 30, "Input",ExpressionUUID->"7092c46a-3c86-46c0-bb32-a830684b254d"],
Cell[258249, 6437, 1387, 32, 229, "Output",ExpressionUUID->"dd720eed-43e6-41b1-b535-325defd9bbde"]
}, Open  ]],
Cell[259651, 6472, 244, 6, 35, "Text",ExpressionUUID->"335e126e-28d6-4f60-8c2b-a4dfa163ebfc"],
Cell[CellGroupData[{
Cell[259920, 6482, 247, 4, 30, "Input",ExpressionUUID->"543582c0-bd09-438d-abaf-0f3d98218d8b"],
Cell[260170, 6488, 1418, 31, 229, "Output",ExpressionUUID->"81bebad7-113e-4ad6-a789-aceb382e7023"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[261637, 6525, 215, 4, 54, "Subsection",ExpressionUUID->"e03573b4-78bb-43be-b928-1a439be2cfc5"],
Cell[CellGroupData[{
Cell[261877, 6533, 302, 5, 28, "Input",ExpressionUUID->"11d861ca-5bf8-40dc-aa07-b502f593aedf"],
Cell[262182, 6540, 534, 12, 70, "Message",ExpressionUUID->"8c66d16a-e0e8-4d3b-aa09-3c6373cd5215"],
Cell[262719, 6554, 534, 12, 70, "Message",ExpressionUUID->"a13994fe-93b1-49a4-9cd7-e7c2f15153c8"],
Cell[263256, 6568, 534, 12, 70, "Message",ExpressionUUID->"6648d8b7-5dcb-4a0a-a773-a408c65b8fc9"],
Cell[263793, 6582, 624, 13, 70, "Message",ExpressionUUID->"392caaa7-0f64-4e43-8904-4dfff58f047b"],
Cell[264420, 6597, 579, 10, 70, "Print",ExpressionUUID->"694ecaa4-545d-4e68-9963-637453072470"],
Cell[265002, 6609, 639, 10, 70, "Output",ExpressionUUID->"0efee4d9-ff0c-4b72-a8e2-188d9cd2078d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[265678, 6624, 216, 3, 28, "Input",ExpressionUUID->"40af9dd1-4a5e-4aad-925e-53e75fcd41fe"],
Cell[265897, 6629, 779, 12, 70, "Output",ExpressionUUID->"61e2c61f-3376-4f77-ab54-e10e6c83545f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[266713, 6646, 309, 5, 28, "Input",ExpressionUUID->"8e6616e1-659f-44c6-8b48-cc370e0423b6"],
Cell[267025, 6653, 541, 12, 70, "Message",ExpressionUUID->"321328f0-96ba-4280-9e2b-87b5f67d035e"],
Cell[267569, 6667, 543, 12, 70, "Message",ExpressionUUID->"05e1f208-f4e3-4337-83ba-81e658e14fe0"],
Cell[268115, 6681, 541, 12, 70, "Message",ExpressionUUID->"be7e8a80-f006-4281-ac45-42ae8323f72a"],
Cell[268659, 6695, 632, 13, 70, "Message",ExpressionUUID->"0c836a50-5b05-455b-a99a-e5695105db53"],
Cell[269294, 6710, 580, 10, 70, "Print",ExpressionUUID->"c24a4353-cb59-4eea-86da-07887710b45b"],
Cell[269877, 6722, 639, 10, 70, "Output",ExpressionUUID->"ccc7559e-688a-4d3c-92b5-10345bd0dc27"]
}, Open  ]],
Cell[CellGroupData[{
Cell[270553, 6737, 221, 3, 28, "Input",ExpressionUUID->"de94e08e-ce17-4179-abc0-6325203d8a8f"],
Cell[270777, 6742, 792, 12, 70, "Output",ExpressionUUID->"30d4fb08-afd4-415d-9d1a-39175fb50317"]
}, Open  ]],
Cell[CellGroupData[{
Cell[271606, 6759, 301, 5, 28, "Input",ExpressionUUID->"ee72204d-86a8-4ca6-87d3-d141c3495048"],
Cell[271910, 6766, 535, 12, 70, "Message",ExpressionUUID->"d858709d-6082-428e-9695-fade868917c2"],
Cell[272448, 6780, 535, 12, 70, "Message",ExpressionUUID->"be272b37-4070-4c00-9f58-503b6a78d5bf"],
Cell[272986, 6794, 535, 12, 70, "Message",ExpressionUUID->"c564770c-fb39-43ea-ac11-34af5defcbf6"],
Cell[273524, 6808, 626, 13, 70, "Message",ExpressionUUID->"d94d20b0-26ed-4e22-81ae-1c839de80f5b"],
Cell[274153, 6823, 580, 10, 70, "Print",ExpressionUUID->"90a14450-f5d2-4fbd-8d17-ced11ae71f10"],
Cell[274736, 6835, 638, 10, 70, "Output",ExpressionUUID->"834e65eb-9538-4b83-a208-d41ceb832370"]
}, Open  ]],
Cell[CellGroupData[{
Cell[275411, 6850, 217, 3, 28, "Input",ExpressionUUID->"dff4906c-6364-4489-8830-d50abdb8dc43"],
Cell[275631, 6855, 791, 12, 70, "Output",ExpressionUUID->"18a58090-07f3-4b9e-9d65-d82d8ae365af"]
}, Open  ]],
Cell[CellGroupData[{
Cell[276459, 6872, 301, 5, 28, "Input",ExpressionUUID->"aaaba27f-a7f9-4a62-ad1e-e8d113ceaa13"],
Cell[276763, 6879, 539, 12, 70, "Message",ExpressionUUID->"0001df0f-79d0-459b-90ea-62356731cf9b"],
Cell[277305, 6893, 538, 12, 70, "Message",ExpressionUUID->"0970b349-97ad-4d1b-bb29-845f9779cf4b"],
Cell[277846, 6907, 539, 12, 70, "Message",ExpressionUUID->"796500d2-3a1e-4cc2-a40d-4c40da27d329"],
Cell[278388, 6921, 630, 13, 70, "Message",ExpressionUUID->"747c1efb-95d1-45f6-bfd2-78b5d44829b6"],
Cell[279021, 6936, 579, 10, 70, "Print",ExpressionUUID->"bcac0730-c935-4444-9511-ad38742565d9"],
Cell[279603, 6948, 623, 10, 70, "Output",ExpressionUUID->"0ca3ef7b-066a-49f2-86f7-42c25fe3eec1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[280263, 6963, 215, 3, 28, "Input",ExpressionUUID->"5fbb09ed-0f46-4853-bd12-598cc37935c3"],
Cell[280481, 6968, 759, 12, 70, "Output",ExpressionUUID->"c22adda7-608e-408d-be3f-0d3904b1eaa3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[281277, 6985, 301, 5, 28, "Input",ExpressionUUID->"fa582384-d837-4bcc-a682-3a7290c5147a"],
Cell[281581, 6992, 535, 12, 70, "Message",ExpressionUUID->"fd1b21d2-e70e-463c-a8d7-5a902b66606a"],
Cell[282119, 7006, 535, 12, 70, "Message",ExpressionUUID->"5e0fa6d2-717f-4583-ac29-9e2bf71cc1c0"],
Cell[282657, 7020, 535, 12, 70, "Message",ExpressionUUID->"e3340937-ba28-4452-a143-70012267a89b"],
Cell[283195, 7034, 628, 13, 70, "Message",ExpressionUUID->"db2a3eb2-8301-4269-95b5-02683aec2583"],
Cell[283826, 7049, 574, 10, 70, "Print",ExpressionUUID->"459341bd-1a14-4e7b-92ca-31bebb3a95c1"],
Cell[284403, 7061, 613, 10, 70, "Output",ExpressionUUID->"786eb50b-c910-4bde-a581-b896451ae218"]
}, Open  ]],
Cell[CellGroupData[{
Cell[285053, 7076, 213, 3, 28, "Input",ExpressionUUID->"f7988676-7091-4c94-b213-f868799abcca"],
Cell[285269, 7081, 762, 12, 70, "Output",ExpressionUUID->"2ae3aeab-61e2-45a1-b2fc-75585241db52"]
}, Open  ]],
Cell[CellGroupData[{
Cell[286068, 7098, 220, 3, 28, "Input",ExpressionUUID->"479642ec-04be-4fb6-b543-3d805b0aecfa"],
Cell[286291, 7103, 645, 9, 70, "Output",ExpressionUUID->"8adf886d-e61c-4d95-a997-e7f59c42c4f3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[286973, 7117, 441, 10, 28, "Input",ExpressionUUID->"113168d3-3871-44ec-9397-44d52170786d"],
Cell[287417, 7129, 628, 13, 70, "Message",ExpressionUUID->"3cd52ae9-74fd-4868-ab7c-2e6850f4c090"],
Cell[288048, 7144, 1538, 25, 70, "Message",ExpressionUUID->"83065537-c266-4b64-979b-423f1136b6f7"],
Cell[289589, 7171, 628, 13, 70, "Message",ExpressionUUID->"e94619e8-5463-40b8-9b43-30a306dbcffc"],
Cell[290220, 7186, 1496, 25, 70, "Message",ExpressionUUID->"665af2f6-7a9f-4e64-89a5-e85776610af8"],
Cell[291719, 7213, 628, 13, 70, "Message",ExpressionUUID->"4f5126ac-ffe5-46b2-9ba0-6a09e370b03e"],
Cell[292350, 7228, 522, 11, 70, "Message",ExpressionUUID->"453b61bf-ba7c-4dd3-90dc-c50dad49e305"],
Cell[292875, 7241, 1540, 25, 70, "Message",ExpressionUUID->"3a9f7885-64bb-4e15-b438-38210c4907f6"],
Cell[294418, 7268, 529, 11, 70, "Message",ExpressionUUID->"0a74b6d9-bd1e-4b9e-9faa-74d232b3c322"],
Cell[294950, 7281, 600, 12, 70, "Message",ExpressionUUID->"2573d737-3fba-41e0-9ca0-defccaf76320"],
Cell[295553, 7295, 600, 12, 70, "Message",ExpressionUUID->"6f93983d-b828-4c6d-8968-40b273c3a1a7"],
Cell[296156, 7309, 602, 12, 70, "Message",ExpressionUUID->"1d9306d8-25ab-447c-af0d-ece72b588dcd"],
Cell[296761, 7323, 520, 11, 70, "Message",ExpressionUUID->"ec9833b8-2c74-4000-a061-b41e858101d8"],
Cell[297284, 7336, 491, 11, 70, "Message",ExpressionUUID->"35c0c1e4-11d7-4ec6-acee-7e4d9003af17"],
Cell[297778, 7349, 491, 11, 70, "Message",ExpressionUUID->"20206e09-8628-4560-b4ee-c8a807434b49"],
Cell[298272, 7362, 491, 11, 70, "Message",ExpressionUUID->"6ebec11a-7eb7-4348-8759-60ff226695c4"],
Cell[298766, 7375, 521, 11, 70, "Message",ExpressionUUID->"ab33bfe8-12ff-4460-ad87-a7a8ef6912a0"],
Cell[299290, 7388, 731, 11, 70, "Output",ExpressionUUID->"2aadd2d5-e9fe-405a-b602-c00ef98697f1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[300058, 7404, 229, 3, 28, "Input",ExpressionUUID->"4d43d35d-4ae9-41da-9113-febc59e5dccb"],
Cell[300290, 7409, 537, 12, 70, "Message",ExpressionUUID->"539fa803-6a77-4889-bfcb-99b8721e98e8"],
Cell[300830, 7423, 535, 12, 70, "Message",ExpressionUUID->"bdb53ebc-af12-4eaf-b5f1-5debb9b5090c"],
Cell[301368, 7437, 535, 12, 70, "Message",ExpressionUUID->"9f575167-aa19-4754-9b92-4c03fd745fd0"],
Cell[301906, 7451, 626, 13, 70, "Message",ExpressionUUID->"8a81dc68-d692-4482-a33b-49132539c917"],
Cell[302535, 7466, 577, 10, 70, "Print",ExpressionUUID->"2d5dd9e3-1803-437e-96b3-2bf59182fc7f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[303149, 7481, 306, 5, 28, "Input",ExpressionUUID->"76aafec9-5a53-44b1-b25f-4979008d9699"],
Cell[303458, 7488, 535, 12, 70, "Message",ExpressionUUID->"a5a3cfcd-3774-4d24-bde7-31cefb85b5a0"],
Cell[303996, 7502, 535, 12, 70, "Message",ExpressionUUID->"4b7fa236-aebd-4a51-afef-f4153227b558"],
Cell[304534, 7516, 534, 12, 70, "Message",ExpressionUUID->"60e18177-37af-4776-9984-5a520572d7ff"],
Cell[305071, 7530, 626, 13, 70, "Message",ExpressionUUID->"551e19f7-9541-4eb9-86dc-973385fb54bf"],
Cell[305700, 7545, 575, 10, 70, "Print",ExpressionUUID->"a99de2a5-9c96-423c-880c-e0ab6d1c2993"],
Cell[306278, 7557, 620, 10, 70, "Output",ExpressionUUID->"cc3cc6fe-be5b-428f-8743-3520ab901894"]
}, Open  ]],
Cell[CellGroupData[{
Cell[306935, 7572, 216, 3, 28, "Input",ExpressionUUID->"20291b62-487c-4263-b0bf-a791bcac3329"],
Cell[307154, 7577, 774, 12, 70, "Output",ExpressionUUID->"de4e4fb3-36bc-4d79-8cee-33e403ec3697"]
}, Open  ]],
Cell[CellGroupData[{
Cell[307965, 7594, 304, 5, 28, "Input",ExpressionUUID->"1ba8cf33-3bfe-4172-82f0-89e5b1a6f22b"],
Cell[308272, 7601, 535, 12, 70, "Message",ExpressionUUID->"f4828367-5ffa-4031-a0eb-d9fff9ebd7d8"],
Cell[308810, 7615, 533, 12, 70, "Message",ExpressionUUID->"968a1a05-0370-4e4b-aa36-e2f881af1089"],
Cell[309346, 7629, 533, 12, 70, "Message",ExpressionUUID->"253a63c6-3fb5-479e-bbd8-adc85fcb5a5c"],
Cell[309882, 7643, 624, 13, 70, "Message",ExpressionUUID->"c096c751-79e9-4997-9dab-d345ace92837"],
Cell[310509, 7658, 578, 10, 70, "Print",ExpressionUUID->"a72b54ee-6779-49d0-a95c-a87d33a7c71c"],
Cell[311090, 7670, 615, 10, 70, "Output",ExpressionUUID->"f465777e-c1d1-4cf5-847b-1ff9ceb39ae9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[311742, 7685, 220, 3, 28, "Input",ExpressionUUID->"799109d4-bdff-4f8b-975c-318c40e6e601"],
Cell[311965, 7690, 775, 12, 70, "Output",ExpressionUUID->"35ba6118-b722-4295-b651-17b0584c4d06"]
}, Open  ]],
Cell[CellGroupData[{
Cell[312777, 7707, 375, 7, 28, "Input",ExpressionUUID->"6cb7573f-c5ff-4560-8e20-5b11562898d0"],
Cell[313155, 7716, 537, 12, 70, "Message",ExpressionUUID->"e37fa8f2-01a5-48fa-ae54-1fb77137fb5c"],
Cell[313695, 7730, 537, 12, 70, "Message",ExpressionUUID->"2b015b6b-1cd2-4ec5-a2ee-799d9e2516f7"],
Cell[314235, 7744, 537, 12, 70, "Message",ExpressionUUID->"d49c235f-bfb7-4bc2-847c-c4db69692990"],
Cell[314775, 7758, 628, 13, 70, "Message",ExpressionUUID->"f65ec9e4-6cb1-4b30-bbad-d19c38321d97"],
Cell[315406, 7773, 581, 10, 70, "Print",ExpressionUUID->"194b049d-b1b7-4ef5-869d-900d52d3f07a"],
Cell[315990, 7785, 612, 10, 70, "Output",ExpressionUUID->"beb6693c-35fa-4887-8b4f-301ef62a5830"]
}, Open  ]],
Cell[CellGroupData[{
Cell[316639, 7800, 243, 5, 28, "Input",ExpressionUUID->"576e1b5d-5fda-4c56-8575-e0a278eea541"],
Cell[316885, 7807, 772, 13, 70, "Output",ExpressionUUID->"5766e25a-09f7-461e-95ed-ce44767df03b"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[317706, 7826, 159, 3, 38, "Subsection",ExpressionUUID->"aaa70124-41a5-4005-9140-8bbdc6c1c158"],
Cell[CellGroupData[{
Cell[317890, 7833, 292, 6, 30, "Input",ExpressionUUID->"2759e437-fc1b-4020-965b-dbddade31cd0"],
Cell[CellGroupData[{
Cell[318207, 7843, 390, 7, 24, "Print",ExpressionUUID->"6b971b18-dec2-42ac-8d67-af47e0fbe548"],
Cell[318600, 7852, 421, 7, 24, "Print",ExpressionUUID->"6228eb87-480d-4888-bb44-a86f904d211e"],
Cell[319024, 7861, 405, 7, 24, "Print",ExpressionUUID->"8cf20a1d-ddff-4101-a291-1d7f86e7ddb3"]
}, Open  ]],
Cell[319444, 7871, 649, 10, 34, "Output",ExpressionUUID->"329bbbfc-9f44-4495-abbb-d21185d916b8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[320130, 7886, 289, 6, 30, "Input",ExpressionUUID->"45766bba-6a75-4ad3-95bc-c6bac0f4c879"],
Cell[320422, 7894, 537, 12, 24, "Message",ExpressionUUID->"66689a74-732a-475d-972e-b86d12753021"],
Cell[320962, 7908, 537, 12, 24, "Message",ExpressionUUID->"5577c0d5-84cd-4cc8-8c7f-95f27f1f70ac"],
Cell[321502, 7922, 537, 12, 24, "Message",ExpressionUUID->"126012a6-de90-48af-9b04-74195dc2584e"],
Cell[322042, 7936, 630, 13, 24, "Message",ExpressionUUID->"e80d28b9-4539-4bba-8967-623ab7fb003e"],
Cell[322675, 7951, 3347, 67, 373, "Output",ExpressionUUID->"adf5251b-04e0-44f2-9f0c-898f2d6b636f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[326059, 8023, 290, 6, 30, "Input",ExpressionUUID->"1ce9955e-bc36-4923-bdb6-4b7aa900b00a"],
Cell[326352, 8031, 539, 12, 24, "Message",ExpressionUUID->"87953999-55d0-45b5-9891-0d3fc5bc9140"],
Cell[326894, 8045, 539, 12, 24, "Message",ExpressionUUID->"c275ebbf-4362-4ecf-8331-7bec9fe4316c"],
Cell[327436, 8059, 541, 12, 24, "Message",ExpressionUUID->"ab59aed9-001b-4175-b164-46793e5b5482"],
Cell[327980, 8073, 630, 13, 24, "Message",ExpressionUUID->"09d96430-9a49-4db7-b679-ba78db64c479"],
Cell[328613, 8088, 3347, 67, 373, "Output",ExpressionUUID->"9bf8d36b-585d-49cb-b67b-45bbfd302806"]
}, Open  ]],
Cell[CellGroupData[{
Cell[331997, 8160, 289, 6, 30, "Input",ExpressionUUID->"44968e93-07c3-41d1-bb38-8190e0718252"],
Cell[332289, 8168, 533, 12, 24, "Message",ExpressionUUID->"77463ba4-86b0-4e11-93a0-5f5af3c7d24d"],
Cell[332825, 8182, 536, 12, 24, "Message",ExpressionUUID->"6931ed5f-1cda-447d-b965-75a627c42d72"],
Cell[333364, 8196, 534, 12, 24, "Message",ExpressionUUID->"7eef9590-f290-4f74-a295-95c341bc490c"],
Cell[333901, 8210, 627, 13, 24, "Message",ExpressionUUID->"b9ce040d-268d-42d3-acb7-b368f51b2b58"],
Cell[334531, 8225, 4801, 102, 837, "Output",ExpressionUUID->"728a2ac7-367c-4d47-bc2f-93227424aed7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[339369, 8332, 300, 5, 30, "Input",ExpressionUUID->"6eb4da52-0cc9-4ff9-9ef4-90aea96f6cb7"],
Cell[339672, 8339, 1007, 22, 203, "Output",ExpressionUUID->"6d8768c9-daea-45d5-96d0-2652fe2f3ff9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[340716, 8366, 225, 4, 30, "Input",ExpressionUUID->"c76c08d0-5600-4c2a-907f-e8f279cc1715"],
Cell[340944, 8372, 977, 21, 203, "Output",ExpressionUUID->"5e2f5b4a-cdac-47bd-b716-ae759e558299"]
}, Open  ]],
Cell[CellGroupData[{
Cell[341958, 8398, 231, 4, 30, "Input",ExpressionUUID->"917ad97a-8b02-4f24-9213-de525efb51e6"],
Cell[342192, 8404, 530, 12, 24, "Message",ExpressionUUID->"f8175125-8e15-4927-b8d5-e7490aa579d8"],
Cell[342725, 8418, 530, 12, 24, "Message",ExpressionUUID->"53fc856c-b261-41ca-8bf9-bbe436f80e20"],
Cell[343258, 8432, 530, 12, 24, "Message",ExpressionUUID->"f6ed4371-cd4b-422d-8153-2feecf50acb5"],
Cell[343791, 8446, 623, 13, 24, "Message",ExpressionUUID->"6e7df9c0-bdc7-4b04-b714-0180c771e5d7"],
Cell[344417, 8461, 4242, 93, 839, "Output",ExpressionUUID->"9b381d62-1f1d-4056-a4ea-ae7d9b25efc1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[348696, 8559, 271, 5, 30, "Input",ExpressionUUID->"acc25732-7fbc-4df5-b701-aec82c6fd82b"],
Cell[348970, 8566, 534, 12, 24, "Message",ExpressionUUID->"2357c704-48b2-4b6a-a6b2-dd0350a4a63e"],
Cell[349507, 8580, 537, 12, 24, "Message",ExpressionUUID->"52aaa3dc-88cf-4fdb-b47c-1e05bcd0a3eb"],
Cell[350047, 8594, 537, 12, 24, "Message",ExpressionUUID->"2ed4cb85-ada1-4d96-9939-456fb0e0876c"],
Cell[350587, 8608, 628, 13, 24, "Message",ExpressionUUID->"06484ffa-9474-4f95-b1c9-069d9846cebf"],
Cell[351218, 8623, 4892, 103, 837, "Output",ExpressionUUID->"7302f1f2-0d74-487b-ad66-c2d22fd658cc"]
}, Open  ]],
Cell[CellGroupData[{
Cell[356147, 8731, 423, 12, 30, "Input",ExpressionUUID->"96c9ac9e-8cc8-4997-8812-fa639fdfd491"],
Cell[356573, 8745, 456, 7, 34, "Output",ExpressionUUID->"d99180e5-d0cc-4b55-be85-e6782a3d5ac4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[357066, 8757, 456, 13, 30, "Input",ExpressionUUID->"bb6cdb74-5c33-4499-ac28-4d1a1f974867"],
Cell[357525, 8772, 430, 7, 34, "Output",ExpressionUUID->"64b07acc-eb16-461c-ba21-b3b279eb62e7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[357992, 8784, 234, 4, 30, "Input",ExpressionUUID->"4a1b75f3-7b46-4baf-ad6f-e08c59899301"],
Cell[358229, 8790, 3142, 47, 581, "Output",ExpressionUUID->"c426a707-47a8-4a4b-911c-93bcbc840bd1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[361408, 8842, 555, 12, 123, "Subsubsection",ExpressionUUID->"ee58ef16-ceea-4c38-acd7-0a7aab1f531c"],
Cell[CellGroupData[{
Cell[361988, 8858, 513, 10, 448, "Input",ExpressionUUID->"8cdcde60-cd92-49c7-903f-c20c1e1557fc"],
Cell[362504, 8870, 515, 12, 70, "Message",ExpressionUUID->"11524093-9189-4a90-9a08-434122d5a5ff"],
Cell[363022, 8884, 515, 12, 70, "Message",ExpressionUUID->"d413fed6-80a2-4ba3-adc0-c617b3492bb0"],
Cell[363540, 8898, 515, 12, 70, "Message",ExpressionUUID->"2900a5bd-32d0-48ad-9d84-4aa99e1766ea"],
Cell[364058, 8912, 606, 13, 70, "Message",ExpressionUUID->"05b3a21f-8476-4d8f-9981-fdae53f05280"],
Cell[364667, 8927, 1425, 38, 70, "Output",ExpressionUUID->"0e6328af-3810-44e0-afd3-421db972e71c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[366129, 8970, 417, 8, 448, "Input",ExpressionUUID->"1ceb3d63-05c6-4253-ad74-3fed6d910acf"],
Cell[366549, 8980, 2673, 69, 70, "Output",ExpressionUUID->"d72f7396-0748-4e0d-ab41-7b041e1adb39"]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[369283, 9056, 2825, 88, 172, "Subsection",ExpressionUUID->"4a154674-503d-48d8-9ecc-878f00a63093"],
Cell[CellGroupData[{
Cell[372133, 9148, 261, 6, 45, "Subsubsection",ExpressionUUID->"96ea9552-b63e-4765-982b-a52486deebed"],
Cell[CellGroupData[{
Cell[372419, 9158, 220, 4, 30, "Input",ExpressionUUID->"a6c86e3a-c60d-46df-a772-a01aff82286d"],
Cell[372642, 9164, 1435, 21, 245, "Output",ExpressionUUID->"a3e96417-e1d5-46ca-8911-13c8a866e982"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[374126, 9191, 259, 6, 45, "Subsubsection",ExpressionUUID->"b820d536-8904-490c-b9ba-8f32750d48ba"],
Cell[CellGroupData[{
Cell[374410, 9201, 327, 6, 30, "Input",ExpressionUUID->"6606af04-10ef-45ac-b57b-43580835c3f3"],
Cell[374740, 9209, 634, 9, 34, "Output",ExpressionUUID->"9332a26e-e6bd-4b82-a052-eb3f7d556bc8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[375411, 9223, 249, 5, 30, "Input",ExpressionUUID->"05bb1dc4-46f8-4ca6-b7ab-c3a4b7f09611"],
Cell[375663, 9230, 614, 10, 34, "Output",ExpressionUUID->"3aecec2b-eded-4927-b48f-a13100120108"]
}, Open  ]],
Cell[CellGroupData[{
Cell[376314, 9245, 257, 6, 30, "Input",ExpressionUUID->"2992988f-1a2f-4213-b83e-7c4836a2d4f1"],
Cell[376574, 9253, 631, 10, 34, "Output",ExpressionUUID->"512a6f83-38e2-458d-9caf-7fc9c58eae85"]
}, Open  ]],
Cell[CellGroupData[{
Cell[377242, 9268, 249, 5, 30, "Input",ExpressionUUID->"846acae4-f2dd-4c0a-bcf7-91c2f650a304"],
Cell[377494, 9275, 630, 9, 34, "Output",ExpressionUUID->"02d94d40-ba7c-4986-967e-841f34f6942c"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[378173, 9290, 180, 3, 45, "Subsubsection",ExpressionUUID->"0f62e0c9-c086-4929-8a27-0433e1e30a4c"],
Cell[CellGroupData[{
Cell[378378, 9297, 310, 7, 30, "Input",ExpressionUUID->"aac279cd-503d-4c79-bfa6-28407b5aaa0a"],
Cell[378691, 9306, 1109, 27, 94, "Output",ExpressionUUID->"c644a3f4-0d15-433b-adf0-41648f7d848b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[379837, 9338, 295, 7, 30, "Input",ExpressionUUID->"4692b2b7-c5d4-4c67-929e-db7662bacfca"],
Cell[380135, 9347, 1142, 29, 94, "Output",ExpressionUUID->"e26d60e9-007c-4f0b-8ff2-2f10bb5fbc80"]
}, Open  ]],
Cell[CellGroupData[{
Cell[381314, 9381, 438, 12, 30, "Input",ExpressionUUID->"96fb22ab-0047-4d12-88a8-c540582a209d"],
Cell[381755, 9395, 953, 21, 34, "Output",ExpressionUUID->"5c9c9dc6-a2cc-4948-b2db-624097dcaeef"]
}, Open  ]],
Cell[CellGroupData[{
Cell[382745, 9421, 245, 5, 30, "Input",ExpressionUUID->"d42e7543-27d8-4e37-ad2d-d5f194b0f6df"],
Cell[382993, 9428, 1092, 27, 94, "Output",ExpressionUUID->"f0ee8e99-3632-4e7a-8b1c-31aafeba57ca"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[384134, 9461, 238, 5, 45, "Subsubsection",ExpressionUUID->"c9e06f9b-a484-4f08-8fee-bda10fcbeeac"],
Cell[384375, 9468, 899, 18, 30, "Input",ExpressionUUID->"b648f6ac-8c86-42db-9bb9-e99adaabad45"],
Cell[CellGroupData[{
Cell[385299, 9490, 310, 6, 30, "Input",ExpressionUUID->"bab3c4b3-8dc7-4d62-a3b3-b12ba7ab0849"],
Cell[385612, 9498, 3245, 91, 83, "Output",ExpressionUUID->"3d4642e1-95f7-4db2-98a9-197734271c71"]
}, Open  ]],
Cell[CellGroupData[{
Cell[388894, 9594, 289, 5, 30, "Input",ExpressionUUID->"2dc396aa-87c3-4819-bb34-5c1374f71a20"],
Cell[389186, 9601, 5403, 122, 157, "Output",ExpressionUUID->"617b6a1b-ae00-41c0-b573-7e9a1ae7c8c3"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[394638, 9729, 1011, 19, 253, "Subsubsection",ExpressionUUID->"a73a47a9-34b2-4a71-b6c6-9f8e7dafde8d"],
Cell[CellGroupData[{
Cell[395674, 9752, 365, 7, 30, "Input",ExpressionUUID->"32d5a6eb-aad7-4676-8424-9cff34121559"],
Cell[396042, 9761, 796, 14, 34, "Output",ExpressionUUID->"3c1aa68e-031d-4c67-adfd-4dab191c8f8d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[396875, 9780, 214, 4, 30, "Input",ExpressionUUID->"9e2c9c72-9674-4ce4-940c-07f6be939b89"],
Cell[397092, 9786, 5146, 117, 157, "Output",ExpressionUUID->"e2fb68ab-83aa-44ff-aa96-2f9884f28789"]
}, Open  ]],
Cell[CellGroupData[{
Cell[402275, 9908, 289, 5, 30, "Input",ExpressionUUID->"c8da0cc3-083a-48b0-b7e7-3f00fd96f98b"],
Cell[402567, 9915, 5405, 122, 157, "Output",ExpressionUUID->"15cac824-1992-4db4-9756-53aaa0968960"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[408033, 10044, 4044, 121, 284, "Subsection",ExpressionUUID->"6d256aa4-69fc-4b23-b060-18289227fe6a"],
Cell[CellGroupData[{
Cell[412102, 10169, 249, 5, 30, "Input",ExpressionUUID->"806069d3-7b1a-4b72-9888-118fa65eb950"],
Cell[412354, 10176, 611, 9, 34, "Output",ExpressionUUID->"e22eae60-1fde-4c2a-852c-85354a492868"]
}, Open  ]],
Cell[CellGroupData[{
Cell[413002, 10190, 251, 5, 30, "Input",ExpressionUUID->"e60d3cd6-b22b-493e-a7fe-0d78b7c9dd66"],
Cell[413256, 10197, 633, 10, 34, "Output",ExpressionUUID->"b01473af-c187-4d1c-8c21-a37f9bc318af"]
}, Open  ]],
Cell[CellGroupData[{
Cell[413926, 10212, 306, 7, 30, "Input",ExpressionUUID->"fb47236a-6c90-419d-b702-b47ad6072bfd"],
Cell[414235, 10221, 655, 11, 34, "Output",ExpressionUUID->"50c41191-bff9-476d-987d-e973a83692e5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[414927, 10237, 302, 6, 30, "Input",ExpressionUUID->"1d653cf1-e98f-4714-a01a-a7f51058519a"],
Cell[415232, 10245, 670, 10, 34, "Output",ExpressionUUID->"2bc1c811-d694-4401-9444-a0386b5e51d8"]
}, Open  ]],
Cell[415917, 10258, 592, 13, 30, "Input",ExpressionUUID->"b92b62bb-c6cc-4436-8f04-c7c5bb524cd2"],
Cell[CellGroupData[{
Cell[416534, 10275, 292, 5, 30, "Input",ExpressionUUID->"94985629-5d87-4acc-a1da-c9afad58c0a3"],
Cell[416829, 10282, 3107, 89, 83, "Output",ExpressionUUID->"f538ba74-e519-4958-a7b8-2ef3fb101f8c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[419973, 10376, 274, 6, 30, "Input",ExpressionUUID->"4d11f607-324f-4c46-ab48-c0ea7a954d1a"],
Cell[420250, 10384, 546, 9, 34, "Output",ExpressionUUID->"4e2fb642-6ea0-4bc1-9ffa-c4ab6ea5f879"]
}, Open  ]],
Cell[CellGroupData[{
Cell[420833, 10398, 294, 5, 30, "Input",ExpressionUUID->"9d5076e4-2978-43b2-bfbb-1c8c5188b86d"],
Cell[421130, 10405, 5291, 120, 157, "Output",ExpressionUUID->"306daa73-5e0b-48ce-8759-67ac37e30a6c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[426458, 10530, 214, 4, 30, "Input",ExpressionUUID->"748ffe75-eff7-4cb9-b4aa-728c9508db37"],
Cell[426675, 10536, 5067, 116, 157, "Output",ExpressionUUID->"04aa83bf-7218-4b2e-bfc5-7e069d2289b2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[431779, 10657, 293, 5, 52, "Input",ExpressionUUID->"2231d3af-f242-4aa4-ad3e-d70f2df535ba"],
Cell[432075, 10664, 5268, 120, 157, "Output",ExpressionUUID->"f94b6c85-0a01-40a2-a62e-cd3ee3c38f52"],
Cell[437346, 10786, 5269, 120, 157, "Output",ExpressionUUID->"f7df66b6-5ee8-42b3-90f7-451705842b31"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[442664, 10912, 254, 4, 54, "Subsection",ExpressionUUID->"aaee731e-3898-4efb-9e56-e3b4ccb356a3"],
Cell[CellGroupData[{
Cell[442943, 10920, 387, 8, 44, "Subsubsection",ExpressionUUID->"46e30a59-939e-428b-b1e7-7c9b5c8eded0"],
Cell[CellGroupData[{
Cell[443355, 10932, 3555, 84, 136, "Input",ExpressionUUID->"3342bd6a-8921-4294-aa54-393fcda5b0e2"],
Cell[446913, 11018, 5073, 116, 157, "Output",ExpressionUUID->"1229a951-fc67-409c-ac1b-ec352d3ee483"],
Cell[451989, 11136, 553, 9, 34, "Output",ExpressionUUID->"4fcec15e-4249-4519-a986-a1091ff39007"],
Cell[452545, 11147, 729, 13, 35, "Output",ExpressionUUID->"06846540-f60a-4d10-9178-2f6102b0d572"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[453323, 11166, 661, 19, 45, "Subsubsection",ExpressionUUID->"5e53d461-bb4a-49bb-9d2f-2d45eb0bca87"],
Cell[CellGroupData[{
Cell[454009, 11189, 4308, 108, 2512, "Input",ExpressionUUID->"39de8219-fd73-418d-bbf8-c96911a59fcd"],
Cell[458320, 11299, 5073, 116, 70, "Output",ExpressionUUID->"4e9f4d96-c6d0-4447-88f0-64f7c0a13fba"],
Cell[463396, 11417, 551, 9, 70, "Output",ExpressionUUID->"091f0bdd-b285-4bc0-9079-b810e2ac947d"],
Cell[463950, 11428, 870, 18, 70, "Output",ExpressionUUID->"5f6a66d5-ecc5-45b1-bbd3-a386006b4683"],
Cell[464823, 11448, 646, 12, 70, "Output",ExpressionUUID->"56ddb24f-3c65-40df-b08d-026f5e549000"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[465518, 11466, 898, 23, 37, "Subsubsection",ExpressionUUID->"2b297e5a-8f96-4233-b0a1-6eebc6c41008"],
Cell[CellGroupData[{
Cell[466441, 11493, 4325, 107, 157, "Input",ExpressionUUID->"1ac5a336-6791-4e0e-9e5c-bca1bce8510f"],
Cell[470769, 11602, 5071, 116, 157, "Output",ExpressionUUID->"230b0350-d39c-415d-aaf1-29a65050a57c"],
Cell[475843, 11720, 551, 9, 34, "Output",ExpressionUUID->"f6b65873-9065-4e31-9aaf-064f6e885ae9"],
Cell[476397, 11731, 922, 18, 35, "Output",ExpressionUUID->"d1abf3a9-809c-46da-a01e-c78121618997"],
Cell[477322, 11751, 716, 13, 45, "Output",ExpressionUUID->"b574cbd0-f65e-4134-a64e-77e83bc18609"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[478087, 11770, 995, 24, 45, "Subsubsection",ExpressionUUID->"bee525b1-0e50-4342-a5a9-221fbd439ee3"],
Cell[CellGroupData[{
Cell[479107, 11798, 4317, 108, 157, "Input",ExpressionUUID->"5d04e078-e772-4ab3-9919-65d9f828755f"],
Cell[483427, 11908, 5067, 116, 157, "Output",ExpressionUUID->"bd76d6ef-a538-4791-bb18-25c724a369c7"],
Cell[488497, 12026, 547, 9, 34, "Output",ExpressionUUID->"7d6eac7e-6e12-4582-98de-ec6c919cf486"],
Cell[489047, 12037, 917, 18, 35, "Output",ExpressionUUID->"da6e7f08-5620-4f98-9257-075180199257"],
Cell[489967, 12057, 712, 13, 45, "Output",ExpressionUUID->"1d6f50a2-ff57-4738-b4bc-4cd3ee03ae76"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[490728, 12076, 930, 22, 45, "Subsubsection",ExpressionUUID->"5b3acd83-a9e1-4a0d-8e88-3bbc87b51a38"],
Cell[CellGroupData[{
Cell[491683, 12102, 4418, 108, 157, "Input",ExpressionUUID->"5f632ca7-ff43-4de3-811d-ba651f3994a2"],
Cell[496104, 12212, 5070, 116, 157, "Output",ExpressionUUID->"fc3be45a-7d01-4502-afe1-a4d8510b624e"],
Cell[501177, 12330, 553, 9, 34, "Output",ExpressionUUID->"0b40a17d-e642-4ecf-90f6-4ac135b2bc53"],
Cell[501733, 12341, 926, 18, 35, "Output",ExpressionUUID->"bb771870-5390-420d-bd3c-d9f97821a20b"],
Cell[502662, 12361, 720, 13, 45, "Output",ExpressionUUID->"b7a1606e-21a5-4717-b950-915b5eb2673c"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[503431, 12380, 934, 22, 45, "Subsubsection",ExpressionUUID->"0c1daf03-4a69-4f3f-b1ff-f6e52bba5833"],
Cell[CellGroupData[{
Cell[504390, 12406, 4415, 110, 157, "Input",ExpressionUUID->"38c79645-6350-444c-bd57-b5ef922205d8"],
Cell[508808, 12518, 5071, 116, 157, "Output",ExpressionUUID->"73a220b0-f792-4c22-9f38-a0ff49539ef6"],
Cell[513882, 12636, 551, 9, 34, "Output",ExpressionUUID->"9bf036c9-f4d2-4f57-b746-aa7b3bbc933a"],
Cell[514436, 12647, 922, 18, 35, "Output",ExpressionUUID->"9a4781d0-9a1b-442d-8181-501c3b93c242"],
Cell[515361, 12667, 716, 13, 45, "Output",ExpressionUUID->"23bd1312-25ca-45ce-8acf-4b289e928982"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[516126, 12686, 989, 23, 45, "Subsubsection",ExpressionUUID->"7d252322-3662-42a5-a4b1-5c7192687e8e"],
Cell[CellGroupData[{
Cell[517140, 12713, 4422, 108, 157, "Input",ExpressionUUID->"5688336a-8404-4650-8968-abf8843faee4"],
Cell[521565, 12823, 5067, 116, 157, "Output",ExpressionUUID->"596eb9e3-3330-41e9-ac04-1a7038c7d54c"],
Cell[526635, 12941, 547, 9, 34, "Output",ExpressionUUID->"d5420b91-16ee-4e47-b21c-7e5b2fc650eb"],
Cell[527185, 12952, 918, 18, 35, "Output",ExpressionUUID->"ca751d89-7abc-4c1c-ba4d-b88d152396ac"],
Cell[528106, 12972, 712, 13, 45, "Output",ExpressionUUID->"3972cecb-4ad9-4b76-bfa4-f1d930b03026"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[528867, 12991, 989, 23, 45, "Subsubsection",ExpressionUUID->"79923201-e450-4129-b56c-8430280b8ced"],
Cell[CellGroupData[{
Cell[529881, 13018, 4464, 110, 157, "Input",ExpressionUUID->"71ac2ec2-35ee-4771-8859-595d9f4f01cf"],
Cell[534348, 13130, 5072, 116, 157, "Output",ExpressionUUID->"96fc1713-4b9e-44cd-b9f5-8c6ccfd63953"],
Cell[539423, 13248, 552, 9, 34, "Output",ExpressionUUID->"94c49df9-193a-4f3f-ab6e-73b08752a8d4"],
Cell[539978, 13259, 923, 18, 35, "Output",ExpressionUUID->"53d1f6b5-da37-4dcf-a9c9-25ca228e7b0c"],
Cell[540904, 13279, 717, 13, 45, "Output",ExpressionUUID->"180cb54b-312c-4067-9b6c-562cba8f7b82"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[541682, 13299, 400, 10, 54, "Subsection",ExpressionUUID->"f97e2963-3fc4-4159-b11d-bf2255d3075b"],
Cell[CellGroupData[{
Cell[542107, 13313, 462, 10, 44, "Subsubsection",ExpressionUUID->"bcf5e642-0a97-42b0-adcb-35d4653cfed7"],
Cell[CellGroupData[{
Cell[542594, 13327, 4324, 107, 11840, "Input",ExpressionUUID->"926d4d47-3dd2-4eb4-a5db-08bf1eab372b"],
Cell[546921, 13436, 5077, 116, 70, "Output",ExpressionUUID->"0b0e72e2-8b82-4413-a50a-ad28e71dc617"],
Cell[552001, 13554, 559, 9, 70, "Output",ExpressionUUID->"2582dd15-e6d0-4e10-9150-3a5365c19513"],
Cell[552563, 13565, 733, 13, 70, "Output",ExpressionUUID->"a092bd37-5f56-404d-b892-874e5179beaa"],
Cell[553299, 13580, 598, 9, 70, "Output",ExpressionUUID->"4992b2c1-25ed-4b71-b7ea-ad5c1be161a8"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[553946, 13595, 661, 19, 37, "Subsubsection",ExpressionUUID->"645195e6-a28d-4cfb-91ce-1b1e35792384"],
Cell[CellGroupData[{
Cell[554632, 13618, 4420, 110, 11840, "Input",ExpressionUUID->"89c20cd9-e4d2-4d95-9cf8-3633696038de"],
Cell[559055, 13730, 5065, 116, 70, "Output",ExpressionUUID->"a173a331-69c1-4c6d-9f7c-d0aba2711b96"],
Cell[564123, 13848, 548, 9, 70, "Output",ExpressionUUID->"12ee26d7-5ad5-4322-87a5-95cfdb4c1017"],
Cell[564674, 13859, 865, 18, 70, "Output",ExpressionUUID->"e58049a0-008b-4e6d-a006-6d00c2808c38"],
Cell[565542, 13879, 643, 12, 70, "Output",ExpressionUUID->"b76d3638-762b-4a6d-9d27-67890504ff87"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[566234, 13897, 1028, 24, 37, "Subsubsection",ExpressionUUID->"9926076d-f6a3-4e4f-af77-21bc1a738ed2"],
Cell[CellGroupData[{
Cell[567287, 13925, 4283, 106, 11840, "Input",ExpressionUUID->"522099e7-c863-4ec4-8301-dc5c7110e7e9"],
Cell[571573, 14033, 5071, 116, 70, "Output",ExpressionUUID->"3aeb60e4-7de9-4a20-87a0-7e811a2ba8f0"],
Cell[576647, 14151, 551, 9, 70, "Output",ExpressionUUID->"0689f7ee-df7f-4e45-aab1-c1f0ed06a0f4"],
Cell[577201, 14162, 922, 18, 70, "Output",ExpressionUUID->"29ca5cab-4eb7-4989-8aaa-8fb8c3f3b9e2"],
Cell[578126, 14182, 716, 13, 70, "Output",ExpressionUUID->"dffb3c1f-95a8-4754-9ce0-be1f93353e15"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[578891, 14201, 975, 23, 37, "Subsubsection",ExpressionUUID->"31b674e0-6fef-4e3a-9812-834e581c826f"],
Cell[CellGroupData[{
Cell[579891, 14228, 4279, 108, 11840, "Input",ExpressionUUID->"9716045e-7289-4f97-a2d6-4a519339eb86"],
Cell[584173, 14338, 5073, 116, 70, "Output",ExpressionUUID->"c96f25a9-629a-4a90-b1df-daa7504d1a6d"],
Cell[589249, 14456, 551, 9, 70, "Output",ExpressionUUID->"69fd02d7-1c35-4edc-97ec-14ae2abe2f74"],
Cell[589803, 14467, 922, 18, 70, "Output",ExpressionUUID->"55c08163-e43f-4f30-8786-8a497f12e2a9"],
Cell[590728, 14487, 716, 13, 70, "Output",ExpressionUUID->"d8f6f2b1-a3d6-4862-bb60-24f8471d72eb"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[591493, 14506, 1127, 25, 37, "Subsubsection",ExpressionUUID->"d4912641-cc43-4000-bb7c-4debd4a8a997"],
Cell[CellGroupData[{
Cell[592645, 14535, 4306, 107, 11840, "Input",ExpressionUUID->"2ee748ce-bad2-4a8b-981a-de5279b64ede"],
Cell[596954, 14644, 5067, 116, 70, "Output",ExpressionUUID->"c168d499-c0e4-4516-a79c-245e42526fff"],
Cell[602024, 14762, 544, 9, 70, "Output",ExpressionUUID->"bd7a345a-3130-471a-9511-ef10a52c9829"],
Cell[602571, 14773, 915, 18, 70, "Output",ExpressionUUID->"cc28abf2-c1f8-4f3f-8ed4-ed1bc25a5a83"],
Cell[603489, 14793, 710, 13, 70, "Output",ExpressionUUID->"6bab99ea-bbda-4405-917c-b8ae561beb12"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[604248, 14812, 1129, 25, 37, "Subsubsection",ExpressionUUID->"0adc2f19-e33e-45cb-8dd1-c2d7e01d0c82"],
Cell[CellGroupData[{
Cell[605402, 14841, 4306, 107, 2288, "Input",ExpressionUUID->"58ab5cb8-4982-4179-8bbd-a579f93dc677"],
Cell[609711, 14950, 5066, 116, 70, "Output",ExpressionUUID->"2a868213-4b78-4478-a936-130344a111fc"],
Cell[614780, 15068, 548, 9, 70, "Output",ExpressionUUID->"c6358754-89ef-437f-8b51-83e99d4dd11f"],
Cell[615331, 15079, 919, 18, 70, "Output",ExpressionUUID->"5f5c90ee-694d-4fa3-b569-138724ff8709"],
Cell[616253, 15099, 711, 13, 70, "Output",ExpressionUUID->"a65e3a27-0a8d-4eef-ae44-1f53ec30e2da"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[617013, 15118, 1228, 26, 37, "Subsubsection",ExpressionUUID->"e806f5d3-acbe-4c1a-9a1e-3a74543b0333"],
Cell[CellGroupData[{
Cell[618266, 15148, 4341, 107, 11840, "Input",ExpressionUUID->"cdfe006a-3371-41ac-a0c6-77754628367b"],
Cell[622610, 15257, 5065, 116, 70, "Output",ExpressionUUID->"bc4913a9-9062-40d5-a6c4-d80c322fe6f7"],
Cell[627678, 15375, 545, 9, 70, "Output",ExpressionUUID->"bbad594b-c74e-4305-b1ec-e4f114cae0c6"],
Cell[628226, 15386, 916, 18, 70, "Output",ExpressionUUID->"de6446a4-84a8-43d7-99db-07d3fc3f5554"],
Cell[629145, 15406, 710, 13, 70, "Output",ExpressionUUID->"dc9e8eff-a545-4c36-9da8-9bdfdef48f21"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[629904, 15425, 1226, 26, 37, "Subsubsection",ExpressionUUID->"73123d5f-e8d8-4fa2-88db-d1e046a729f0"],
Cell[CellGroupData[{
Cell[631155, 15455, 4432, 110, 11840, "Input",ExpressionUUID->"fce1a9c6-f172-473f-85a3-d059798901ee"],
Cell[635590, 15567, 5067, 116, 70, "Output",ExpressionUUID->"5bec8909-44fb-4e6e-96db-1249b91b0a7d"],
Cell[640660, 15685, 547, 9, 70, "Output",ExpressionUUID->"ef1f895d-db48-4967-9800-75957e00798c"],
Cell[641210, 15696, 918, 18, 70, "Output",ExpressionUUID->"87bc1b79-dec3-4071-90c1-93482b85bf72"],
Cell[642131, 15716, 714, 13, 70, "Output",ExpressionUUID->"a24f9a05-e6ba-4b59-9be1-cd7772774685"]
}, Open  ]],
Cell[CellGroupData[{
Cell[642882, 15734, 205, 4, 2416, "Input",ExpressionUUID->"d5da99bf-bb82-4393-a0ae-0e6110a87a39"],
Cell[643090, 15740, 548, 9, 70, "Output",ExpressionUUID->"a0f4ad1f-e3dc-4914-a1e6-a441153dc492"]
}, Open  ]],
Cell[CellGroupData[{
Cell[643675, 15754, 203, 4, 2416, "Input",ExpressionUUID->"f490c8ec-9297-43dc-ba69-72b1cd2fdf2b"],
Cell[643881, 15760, 543, 9, 70, "Output",ExpressionUUID->"2fe8f597-0819-4eb7-901c-a0b067e63b93"]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[644485, 15776, 7941, 179, 193, "Subsection",ExpressionUUID->"89e8c74f-2d36-4c6d-81b0-28d1369e4cc2"],
Cell[CellGroupData[{
Cell[652451, 15959, 650, 10, 30, "Input",ExpressionUUID->"cb114878-fb36-4c09-b518-bfa8d5d732eb"],
Cell[653104, 15971, 2994, 84, 83, "Output",ExpressionUUID->"3637b3e1-64ca-4164-af6b-92d23d9da62f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[656135, 16060, 329, 7, 30, "Input",ExpressionUUID->"dc7cce8a-15b2-4344-bb41-f441ca64eef1"],
Cell[656467, 16069, 549, 8, 34, "Output",ExpressionUUID->"6419b488-e27d-4a82-a446-71717b10ec7d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[657053, 16082, 339, 6, 30, "Input",ExpressionUUID->"91a15366-d0bc-4a01-8c93-18a1ffb0021c"],
Cell[657395, 16090, 5118, 116, 180, "Output",ExpressionUUID->"db120c3e-e1fa-49b3-91fe-74cac8e162e8"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[662574, 16213, 185, 3, 67, "Section",ExpressionUUID->"c02196b5-2233-4c25-943c-b731f22bef07"],
Cell[CellGroupData[{
Cell[662784, 16220, 367, 7, 54, "Subsection",ExpressionUUID->"1905aa93-7351-461c-b7af-8455c660b0dc"],
Cell[CellGroupData[{
Cell[663176, 16231, 225, 4, 45, "Subsubsection",ExpressionUUID->"2f39c62b-6525-4504-ba74-c377cd029a84"],
Cell[663404, 16237, 243, 5, 30, "Input",ExpressionUUID->"8f6915c5-fea2-498e-b90f-2d9132f83477"],
Cell[663650, 16244, 775, 22, 30, "Input",ExpressionUUID->"33ccb116-3149-4cbb-a280-81fedd0655ca"],
Cell[CellGroupData[{
Cell[664450, 16270, 277, 5, 30, "Input",ExpressionUUID->"05e36c69-c6ae-4ab3-9cae-f12ef1cb18e0"],
Cell[664730, 16277, 805, 19, 34, "Output",ExpressionUUID->"5dcadd45-793a-41ec-9fb8-2e55aa988f05"]
}, Open  ]],
Cell[CellGroupData[{
Cell[665572, 16301, 335, 6, 30, "Input",ExpressionUUID->"edcbe6ac-051a-402c-881d-d92bcef627e2"],
Cell[665910, 16309, 1207, 29, 195, "Output",ExpressionUUID->"3d830d96-8af6-4319-bbb0-65b25c6edd25"]
}, Open  ]],
Cell[CellGroupData[{
Cell[667154, 16343, 290, 6, 30, "Input",ExpressionUUID->"634c672e-399b-47d4-bb95-ca1ea6c2bf1c"],
Cell[667447, 16351, 628, 10, 24, "Print",ExpressionUUID->"877525b2-d76c-43bc-bd74-d436b7fcc278"]
}, Open  ]],
Cell[CellGroupData[{
Cell[668112, 16366, 225, 4, 30, "Input",ExpressionUUID->"fd69f98f-d8db-436d-b44c-a6ad23bfd240"],
Cell[668340, 16372, 2221, 45, 273, "Output",ExpressionUUID->"eff6b402-6d70-46df-8fb2-cf8194a1cfcf"]
}, Open  ]],
Cell[CellGroupData[{
Cell[670598, 16422, 249, 5, 30, "Input",ExpressionUUID->"c2a38179-4057-4fb4-8711-8127a03132e9"],
Cell[670850, 16429, 856, 19, 161, "Output",ExpressionUUID->"e3d881f7-668e-446a-9789-9ff80ef14ea7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[671743, 16453, 222, 4, 30, "Input",ExpressionUUID->"0b648bb2-824c-4778-a10f-6f7ccc5fb4be"],
Cell[671968, 16459, 3788, 84, 441, "Output",ExpressionUUID->"0c1fa5f5-f7df-44d4-9de5-ee41f70a2a0c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[675793, 16548, 218, 4, 30, "Input",ExpressionUUID->"556e636b-1dd4-421c-be1d-df480602d654"],
Cell[676014, 16554, 3657, 108, 83, "Output",ExpressionUUID->"805c6eb1-3b23-4a61-86c6-2d22c9e42188"]
}, Open  ]],
Cell[CellGroupData[{
Cell[679708, 16667, 216, 4, 30, "Input",ExpressionUUID->"0c85efbf-dbee-4f68-ab5e-4b83d9aa7fe7"],
Cell[679927, 16673, 3657, 108, 83, "Output",ExpressionUUID->"d7eac98d-9205-4182-a35b-47dd14e3e579"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[683633, 16787, 519, 9, 45, "Subsubsection",ExpressionUUID->"a62e9f3b-2b24-4274-88f0-1f7c95f22b42"],
Cell[CellGroupData[{
Cell[684177, 16800, 251, 5, 30, "Input",ExpressionUUID->"596f42e6-7cdd-4dae-a0a8-80fbb7f30290"],
Cell[684431, 16807, 5379, 160, 83, "Output",ExpressionUUID->"30cbe117-75cb-4eca-b7bd-8f948c0d526e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[689847, 16972, 234, 4, 30, "Input",ExpressionUUID->"caf7708a-b27a-4170-af80-e18f0e94e1c6"],
Cell[690084, 16978, 5377, 160, 83, "Output",ExpressionUUID->"848389aa-55bb-4b60-b03d-698de7bada29"]
}, Open  ]],
Cell[CellGroupData[{
Cell[695498, 17143, 253, 5, 30, "Input",ExpressionUUID->"0a1ccce2-0021-470d-9d4d-2a1f66bf0647"],
Cell[695754, 17150, 4997, 144, 83, "Output",ExpressionUUID->"5216161b-ae0f-4a59-9959-ecf08a1d0d22"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[700812, 17301, 428, 8, 54, "Subsection",ExpressionUUID->"397936b2-ab70-43b0-80f6-0d930a959463"],
Cell[CellGroupData[{
Cell[701265, 17313, 173, 3, 704, "Subsubsection",ExpressionUUID->"2613a12b-f190-4744-9d98-69b04e3f19e0"],
Cell[701441, 17318, 303, 6, 448, "Input",ExpressionUUID->"f5233de6-fd7b-4cbf-90a4-c970f089a482"],
Cell[701747, 17326, 764, 19, 448, "Input",ExpressionUUID->"83ef1628-a1d1-4824-978a-1b5b18014cd4"],
Cell[CellGroupData[{
Cell[702536, 17349, 277, 5, 448, "Input",ExpressionUUID->"5ce4b490-561a-43a3-9654-37a37bcd7e07"],
Cell[702816, 17356, 776, 17, 70, "Output",ExpressionUUID->"6ae51024-0a2b-4eca-898e-a811f5e2dda1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[703629, 17378, 290, 6, 448, "Input",ExpressionUUID->"8a077ae5-8305-4122-b342-44e584fc4abb"],
Cell[703922, 17386, 621, 10, 70, "Print",ExpressionUUID->"039536a0-d980-4830-aded-1cdbf3fed109"]
}, Open  ]],
Cell[CellGroupData[{
Cell[704580, 17401, 285, 5, 448, "Input",ExpressionUUID->"79ad44e1-71a3-457d-98e7-3b263a5c0c4f"],
Cell[704868, 17408, 1198, 28, 70, "Output",ExpressionUUID->"4fbe9a52-5e0a-42db-9cb0-d2fd2a8e32b0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[706103, 17441, 240, 5, 448, "Input",ExpressionUUID->"844e12fa-be38-4aff-bbfd-f958e84b0ee3"],
Cell[706346, 17448, 680, 16, 70, "Output",ExpressionUUID->"5d23d1b6-b6f6-45c2-83d0-6056e743584b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[707063, 17469, 242, 5, 448, "Input",ExpressionUUID->"f07e75cd-51cb-4afb-9070-bc5198ec9be4"],
Cell[707308, 17476, 1131, 28, 70, "Output",ExpressionUUID->"e45c4494-c4e8-4a3f-8596-37a27420b88b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[708476, 17509, 242, 5, 448, "Input",ExpressionUUID->"2270983c-1a88-458f-9380-37bd2cab9655"],
Cell[708721, 17516, 2076, 43, 70, "Output",ExpressionUUID->"3f97794e-b413-4f3d-b73d-952dc02f17a4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[710834, 17564, 242, 5, 448, "Input",ExpressionUUID->"5d1b6029-49a0-4898-b16e-fa9bab0d71a8"],
Cell[711079, 17571, 2554, 55, 70, "Output",ExpressionUUID->"426cfb90-7bc0-4574-8dda-14cf9f49ebd4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[713670, 17631, 268, 6, 448, "Input",ExpressionUUID->"47e8ede8-db82-4389-bad5-31f8dc3e1a15"],
Cell[713941, 17639, 1063, 27, 70, "Output",ExpressionUUID->"a5639c8a-74a8-4195-b2ad-f630d6945615"]
}, Open  ]],
Cell[CellGroupData[{
Cell[715041, 17671, 268, 6, 448, "Input",ExpressionUUID->"b38fbacd-2223-4e12-b804-d90ec5013ce0"],
Cell[715312, 17679, 1540, 39, 70, "Output",ExpressionUUID->"18ca394a-b4fd-4baf-b83b-5429258529ab"]
}, Open  ]],
Cell[CellGroupData[{
Cell[716889, 17723, 268, 6, 448, "Input",ExpressionUUID->"1be91ea0-a2db-4b4e-abbf-335845a84665"],
Cell[717160, 17731, 2494, 54, 70, "Output",ExpressionUUID->"0b6b2d88-3ae4-4b8e-b251-a501f8994d3e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[719691, 17790, 268, 6, 448, "Input",ExpressionUUID->"97f0e1d4-6540-44c2-a901-4b612be6d4ca"],
Cell[719962, 17798, 3048, 68, 70, "Output",ExpressionUUID->"6587aa0d-500d-48df-baa9-4fb1c2a4e4ca"]
}, Open  ]],
Cell[CellGroupData[{
Cell[723047, 17871, 266, 6, 448, "Input",ExpressionUUID->"004c7122-af4e-4075-ad53-2242bdfc42bf"],
Cell[723316, 17879, 3645, 82, 70, "Output",ExpressionUUID->"28115a95-2f34-4491-96ff-dabd621c76c4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[726998, 17966, 228, 4, 448, "Input",ExpressionUUID->"9cebb8cc-16b8-44b6-898c-0a994a448723"],
Cell[727229, 17972, 2615, 55, 70, "Output",ExpressionUUID->"3ae69ca1-6cbe-49b5-b0e6-01b62412e823"]
}, Open  ]],
Cell[CellGroupData[{
Cell[729881, 18032, 222, 4, 448, "Input",ExpressionUUID->"cb0e7d2a-4034-4356-a09f-62198c1a9cb0"],
Cell[730106, 18038, 3767, 83, 70, "Output",ExpressionUUID->"bf6467e0-fd49-4963-bd5b-99be3f421c1e"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[733922, 18127, 519, 9, 704, "Subsubsection",ExpressionUUID->"5a20db39-46e2-433b-9ac0-0967cc76508a"],
Cell[CellGroupData[{
Cell[734466, 18140, 249, 5, 448, "Input",ExpressionUUID->"1d2f0da6-5bf7-4781-baef-d2a228ce4e03"],
Cell[734718, 18147, 5376, 160, 70, "Output",ExpressionUUID->"c7afd4db-d2c4-461f-b0c0-911b7317a97c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[740131, 18312, 251, 5, 448, "Input",ExpressionUUID->"dc4ca61b-7d01-45ee-9b02-6ffaaefa0b9a"],
Cell[740385, 18319, 4996, 144, 70, "Output",ExpressionUUID->"99302836-02e0-40c4-9c0d-f489530be0e7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[745418, 18468, 305, 7, 448, "Input",ExpressionUUID->"bd01e09c-79ca-4c97-a7a4-c17b2c7d96a2"],
Cell[745726, 18477, 982, 26, 70, "Output",ExpressionUUID->"0be24e95-4381-4cf7-a4d8-96dfd21a8250"]
}, Open  ]],
Cell[CellGroupData[{
Cell[746745, 18508, 305, 7, 448, "Input",ExpressionUUID->"a6c41fef-92d4-4a13-beaa-7dc68a2b9480"],
Cell[747053, 18517, 930, 24, 70, "Output",ExpressionUUID->"ca068eda-9609-4b8e-8cb2-d5a4fa3fd630"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[748044, 18548, 485, 9, 38, "Subsection",ExpressionUUID->"d88f5302-a79a-4452-b8bb-f03407efacfc"],
Cell[CellGroupData[{
Cell[748554, 18561, 173, 3, 704, "Subsubsection",ExpressionUUID->"865524d6-f3c0-4547-9dbc-f6cf58db755f"],
Cell[748730, 18566, 359, 8, 448, "Input",ExpressionUUID->"ec82dbfb-2d57-4ed5-89f7-f35943e28d0d"],
Cell[749092, 18576, 813, 20, 448, "Input",ExpressionUUID->"cb3c9160-e412-402f-8b7c-a5f5fea9948d"],
Cell[CellGroupData[{
Cell[749930, 18600, 277, 5, 448, "Input",ExpressionUUID->"04270c6f-e151-4ed4-9f79-00bfede3d96e"],
Cell[750210, 18607, 774, 17, 70, "Output",ExpressionUUID->"e38dfb20-fa58-4592-a313-0b2f106e6526"]
}, Open  ]],
Cell[CellGroupData[{
Cell[751021, 18629, 290, 6, 448, "Input",ExpressionUUID->"6dade608-68b8-4218-9895-57fd98bbd6d7"],
Cell[751314, 18637, 621, 10, 70, "Print",ExpressionUUID->"a82b98fc-f5e3-42d0-be10-fb6d6b5beb52"]
}, Open  ]],
Cell[CellGroupData[{
Cell[751972, 18652, 285, 5, 448, "Input",ExpressionUUID->"40fd652b-98ba-4c16-9c99-8c95eb9f966b"],
Cell[752260, 18659, 1195, 28, 70, "Output",ExpressionUUID->"c7c7038c-bec6-4dd4-bae0-d1ae6e15c22b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[753492, 18692, 247, 5, 448, "Input",ExpressionUUID->"62ebb1f5-498e-4f5d-93bf-75265e48a993"],
Cell[753742, 18699, 826, 18, 70, "Output",ExpressionUUID->"f2c93ea6-e553-492c-b37e-821bb56ca45a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[754605, 18722, 222, 4, 448, "Input",ExpressionUUID->"222a4122-716c-409b-9404-bfbfc085df04"],
Cell[754830, 18728, 3767, 83, 70, "Output",ExpressionUUID->"d9af6d97-e372-441a-a7e5-6ee49fa56444"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[758646, 18817, 519, 9, 704, "Subsubsection",ExpressionUUID->"af95e205-e375-42d4-b9ea-959347f752b2"],
Cell[CellGroupData[{
Cell[759190, 18830, 249, 5, 448, "Input",ExpressionUUID->"9cdd5fe4-e7fc-4088-8804-25c4d6940970"],
Cell[759442, 18837, 5376, 160, 70, "Output",ExpressionUUID->"04daeb8b-1dc6-418b-99a7-11afdcf2d17d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[764855, 19002, 251, 5, 448, "Input",ExpressionUUID->"5d22be30-e09e-4611-9fdf-738f50fa681f"],
Cell[765109, 19009, 4994, 144, 70, "Output",ExpressionUUID->"65e5a715-812d-4340-9ffd-aec308040ae4"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[770164, 19160, 237, 4, 38, "Subsection",ExpressionUUID->"a533c7d1-b372-44bf-99df-f38659be5ac0"],
Cell[CellGroupData[{
Cell[770426, 19168, 173, 3, 704, "Subsubsection",ExpressionUUID->"baab48d3-2845-44c2-b87c-95ff34dded25"],
Cell[770602, 19173, 238, 5, 448, "Input",ExpressionUUID->"5ae8aa72-0e71-4833-aae6-f6d1b3fd4839"],
Cell[770843, 19180, 1148, 28, 768, "Input",ExpressionUUID->"6966d13b-e33c-4fcf-9190-77ce8f71562d"],
Cell[CellGroupData[{
Cell[772016, 19212, 222, 4, 448, "Input",ExpressionUUID->"11a74408-3459-40bd-b09c-acdcc6b3ae1b"],
Cell[772241, 19218, 1093, 25, 70, "Output",ExpressionUUID->"d3a4da79-2e95-4f0e-824d-4776ef86054c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[773371, 19248, 312, 6, 448, "Input",ExpressionUUID->"68fe6666-7be0-4e5f-99a3-db1574f1b44f"],
Cell[773686, 19256, 648, 10, 70, "Print",ExpressionUUID->"81e08c28-4729-49ac-855f-7a3aa8fef0f6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[774371, 19271, 247, 5, 448, "Input",ExpressionUUID->"3d30964c-f82c-4eab-9873-a12759d18a9c"],
Cell[774621, 19278, 972, 20, 70, "Output",ExpressionUUID->"6a165051-1ba2-4fe9-8839-f932304ac72f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[775630, 19303, 222, 4, 448, "Input",ExpressionUUID->"3368ac4f-3889-4dc8-bd4e-039417cc434c"],
Cell[775855, 19309, 4468, 96, 70, "Output",ExpressionUUID->"903d4e76-00f2-41a0-b01b-63027532ab51"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[780372, 19411, 373, 7, 704, "Subsubsection",ExpressionUUID->"e52b8a1a-71c9-404f-be1d-1e8ec4e3ab61"],
Cell[CellGroupData[{
Cell[780770, 19422, 251, 5, 448, "Input",ExpressionUUID->"5509f0a4-c608-4b92-add6-e0abd8371369"],
Cell[781024, 19429, 15527, 408, 70, "Output",ExpressionUUID->"d5c287f5-d940-4145-8c17-c59d25824c01"]
}, Open  ]],
Cell[CellGroupData[{
Cell[796588, 19842, 251, 5, 448, "Input",ExpressionUUID->"a32a8b1f-029a-43d4-bbd2-34bad504a41f"],
Cell[796842, 19849, 13981, 344, 70, "Output",ExpressionUUID->"3c65002e-247c-4c3e-be7a-02bb4e3ff019"]
}, Open  ]],
Cell[CellGroupData[{
Cell[810860, 20198, 234, 4, 448, "Input",ExpressionUUID->"b46a3d01-b960-4381-a85d-22f9db7fce52"],
Cell[811097, 20204, 3120, 46, 70, "Output",ExpressionUUID->"d1571963-c51e-4f51-b8b4-11da0ab3d2c7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[814254, 20255, 416, 7, 448, "Input",ExpressionUUID->"a4a2b29f-f199-4821-8278-04bea415fbe2"],
Cell[814673, 20264, 1377, 40, 70, "Output",ExpressionUUID->"6812baf6-db2e-4587-984d-db135ee49edd"]
}, Open  ]],
Cell[CellGroupData[{
Cell[816087, 20309, 366, 7, 448, "Input",ExpressionUUID->"d2573cb9-61c1-4cae-a6c3-2065fa949c3f"],
Cell[816456, 20318, 2335, 72, 70, "Output",ExpressionUUID->"cfb46a09-8199-45a2-8a55-e66d5f82e0de"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[818852, 20397, 287, 4, 38, "Subsection",ExpressionUUID->"23e93f90-151c-4f76-bbc7-93670522d291"],
Cell[CellGroupData[{
Cell[819164, 20405, 173, 3, 704, "Subsubsection",ExpressionUUID->"d8f42185-b436-45ed-81b7-f2be69001d8b"],
Cell[819340, 20410, 298, 6, 448, "Input",ExpressionUUID->"924a6fa6-9e26-4b81-b72e-446d8827f319"],
Cell[819641, 20418, 998, 25, 448, "Input",ExpressionUUID->"9ad4bb50-a902-46e4-a452-650256eb12a3"],
Cell[CellGroupData[{
Cell[820664, 20447, 222, 4, 448, "Input",ExpressionUUID->"1c9a9023-0798-4c84-97fe-bd4341e06e40"],
Cell[820889, 20453, 1096, 25, 70, "Output",ExpressionUUID->"ed10ee9c-9470-480e-814c-4b5eb1108a94"]
}, Open  ]],
Cell[CellGroupData[{
Cell[822022, 20483, 312, 6, 448, "Input",ExpressionUUID->"ed179336-fd70-425c-a94e-737fc3d7d433"],
Cell[822337, 20491, 657, 10, 70, "Print",ExpressionUUID->"dfaf7585-d71f-4593-a2ae-581579e5d995"]
}, Open  ]],
Cell[CellGroupData[{
Cell[823031, 20506, 249, 5, 448, "Input",ExpressionUUID->"9fb26d5a-9dc4-4eb7-8860-e61bd2b77ce9"],
Cell[823283, 20513, 972, 20, 70, "Output",ExpressionUUID->"8c745c4c-559d-4ff9-a115-f141a26204a7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[824292, 20538, 222, 4, 448, "Input",ExpressionUUID->"25b2fe9b-6e56-4c92-8169-e785349b2277"],
Cell[824517, 20544, 4473, 96, 70, "Output",ExpressionUUID->"9c1fa7d8-eb7b-4ef0-84e2-3d7791fc34cf"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[829039, 20646, 373, 7, 704, "Subsubsection",ExpressionUUID->"dbbe9470-4c76-434a-943a-032a3153baec"],
Cell[CellGroupData[{
Cell[829437, 20657, 251, 5, 448, "Input",ExpressionUUID->"899be617-1393-4ddc-819a-5ebda990ce2c"],
Cell[829691, 20664, 15521, 408, 70, "Output",ExpressionUUID->"9a64598a-4738-46f0-839a-84040a000d41"]
}, Open  ]],
Cell[CellGroupData[{
Cell[845249, 21077, 251, 5, 448, "Input",ExpressionUUID->"5afff6cf-2f84-4514-bb37-0a653a825abb"],
Cell[845503, 21084, 13987, 344, 70, "Output",ExpressionUUID->"4f6f1a71-e710-4489-bd1a-3858903fda3f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[859527, 21433, 368, 7, 448, "Input",ExpressionUUID->"caf7e3be-d694-4595-8617-f95c0cfb1866"],
Cell[859898, 21442, 1371, 40, 70, "Output",ExpressionUUID->"7f48f33f-ad75-420f-957d-2884706507da"]
}, Open  ]],
Cell[CellGroupData[{
Cell[861306, 21487, 340, 6, 448, "Input",ExpressionUUID->"7ab110a9-662e-439d-9502-311cbb40c897"],
Cell[861649, 21495, 2329, 72, 70, "Output",ExpressionUUID->"72113c94-6b31-41c5-811a-828d23b51db3"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[864039, 21574, 343, 5, 38, "Subsection",ExpressionUUID->"0e005124-899f-4c98-87a5-8caa259be770"],
Cell[CellGroupData[{
Cell[864407, 21583, 173, 3, 704, "Subsubsection",ExpressionUUID->"278964cf-eec5-43fa-a0c2-2f140d055a61"],
Cell[864583, 21588, 352, 7, 448, "Input",ExpressionUUID->"8ec23522-1ca7-4924-bf3a-796ac987da6d"],
Cell[864938, 21597, 994, 24, 448, "Input",ExpressionUUID->"63871af7-a73c-4128-a593-cb71690947e3"],
Cell[CellGroupData[{
Cell[865957, 21625, 222, 4, 448, "Input",ExpressionUUID->"67482dc2-7aba-4421-9634-f1d0ca679604"],
Cell[866182, 21631, 1098, 25, 70, "Output",ExpressionUUID->"62ae1ce5-4254-4d67-8028-6084a437ecb6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[867317, 21661, 312, 6, 448, "Input",ExpressionUUID->"6ef7fce0-0c1c-4cd8-809b-1c5d86f776e9"],
Cell[867632, 21669, 656, 10, 70, "Print",ExpressionUUID->"62e058c7-10f0-43da-9c1b-190d626067b2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[868325, 21684, 249, 5, 448, "Input",ExpressionUUID->"cbfcb9aa-ac39-48c6-bba4-a43fac7c82bc"],
Cell[868577, 21691, 972, 20, 70, "Output",ExpressionUUID->"660a868d-e095-42ce-9ba5-ab5e67df05f3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[869586, 21716, 222, 4, 448, "Input",ExpressionUUID->"e5fa3cb8-03ac-4ec8-8014-4232930f16e5"],
Cell[869811, 21722, 4471, 96, 70, "Output",ExpressionUUID->"b5da5a34-38b1-4bf9-a819-f696b7f1609c"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[874331, 21824, 373, 7, 704, "Subsubsection",ExpressionUUID->"e3f38332-56de-4974-9e9e-06b12a3373cd"],
Cell[CellGroupData[{
Cell[874729, 21835, 251, 5, 448, "Input",ExpressionUUID->"5d9e4a9e-f9b8-4bd2-bc81-3fd15ec343d2"],
Cell[874983, 21842, 15521, 408, 70, "Output",ExpressionUUID->"64e35048-db0b-4fc7-8d44-0e62dcae7b87"]
}, Open  ]],
Cell[CellGroupData[{
Cell[890541, 22255, 251, 5, 448, "Input",ExpressionUUID->"07f78801-dc0e-47f9-9b57-d6e09d131cf7"],
Cell[890795, 22262, 13978, 344, 70, "Output",ExpressionUUID->"5c9ac53c-05bd-4893-b88d-4625f5b5d4ca"]
}, Open  ]],
Cell[CellGroupData[{
Cell[904810, 22611, 366, 7, 448, "Input",ExpressionUUID->"078edd3a-7428-4503-a556-9d18e249056c"],
Cell[905179, 22620, 1376, 40, 70, "Output",ExpressionUUID->"b481f793-d942-47c9-ad47-2c37018c4eea"]
}, Open  ]],
Cell[CellGroupData[{
Cell[906592, 22665, 338, 6, 448, "Input",ExpressionUUID->"684cd099-6559-4208-b8c9-d93cd1022f9f"],
Cell[906933, 22673, 2337, 72, 70, "Output",ExpressionUUID->"bdab02ad-003f-4b5f-8e14-ecb247a08309"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[909331, 22752, 216, 4, 38, "Subsection",ExpressionUUID->"3bd121dc-4fd5-4ec3-a424-9b70822ae3c6"],
Cell[CellGroupData[{
Cell[909572, 22760, 173, 3, 704, "Subsubsection",ExpressionUUID->"6caa12bb-cf3e-47d6-8d5c-b200365b1787"],
Cell[909748, 22765, 231, 5, 448, "Input",ExpressionUUID->"f4b68ee1-5762-46c5-84e3-eedf4f1e2da9"],
Cell[909982, 22772, 836, 22, 448, "Input",ExpressionUUID->"c9e6bc9a-213a-46b9-9d8b-b419a12937ec"],
Cell[CellGroupData[{
Cell[910843, 22798, 226, 4, 448, "Input",ExpressionUUID->"d50fa066-e7c3-4f54-bf3a-fcd3410feea6"],
Cell[911072, 22804, 919, 21, 70, "Output",ExpressionUUID->"4498de60-03c5-4506-b1f8-0d301a816d50"]
}, Open  ]],
Cell[CellGroupData[{
Cell[912028, 22830, 289, 6, 448, "Input",ExpressionUUID->"c2b4b6bd-b94c-42b6-a075-d86d259875c9"],
Cell[912320, 22838, 601, 12, 70, "Message",ExpressionUUID->"a40a99ef-080c-4859-ba27-d8d2b78df583"],
Cell[912924, 22852, 603, 12, 70, "Message",ExpressionUUID->"ad304d36-d07c-440d-8576-20bee3a252f6"],
Cell[913530, 22866, 601, 12, 70, "Message",ExpressionUUID->"6a5c0d10-2056-4511-a726-92dc9899cbc8"],
Cell[914134, 22880, 693, 13, 70, "Message",ExpressionUUID->"d4247538-299a-46de-8ad5-ec4f8085676e"],
Cell[914830, 22895, 642, 10, 70, "Print",ExpressionUUID->"d057174c-9302-4d3f-a26f-276ec39dacc9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[915509, 22910, 247, 5, 448, "Input",ExpressionUUID->"bc727701-2518-43fa-a686-5342c7a9a90f"],
Cell[915759, 22917, 966, 20, 70, "Output",ExpressionUUID->"05969b6f-3a52-4ff3-b657-c6c7b302c893"]
}, Open  ]],
Cell[CellGroupData[{
Cell[916762, 22942, 222, 4, 448, "Input",ExpressionUUID->"8d08e2cb-d8df-4a71-9bc4-8345c00f8747"],
Cell[916987, 22948, 456, 10, 70, "Message",ExpressionUUID->"1503694d-da9f-4247-9935-03f0000eecfd"],
Cell[917446, 22960, 456, 10, 70, "Message",ExpressionUUID->"9286e95e-cb88-47af-9fc3-ce9d58120e7c"],
Cell[917905, 22972, 456, 10, 70, "Message",ExpressionUUID->"f8a4b862-03d4-478d-93b9-851ac95a212a"],
Cell[918364, 22984, 546, 11, 70, "Message",ExpressionUUID->"47d621dd-3241-4c0d-a586-afd2f3ea12c4"],
Cell[918913, 22997, 4755, 100, 70, "Output",ExpressionUUID->"88ce9ac1-5f5c-44b9-be07-512afa1ea55a"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[923717, 23103, 386, 8, 704, "Subsubsection",ExpressionUUID->"6529487d-bea6-476f-8714-1c74e28ab9d8"],
Cell[CellGroupData[{
Cell[924128, 23115, 249, 5, 448, "Input",ExpressionUUID->"b22b99c4-4079-4db6-9b19-3fcef68f510f"],
Cell[924380, 23122, 10343, 312, 70, "Output",ExpressionUUID->"879c1cb3-2270-4fa8-ae9b-a213967228e5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[934760, 23439, 251, 5, 448, "Input",ExpressionUUID->"ca417ed4-da6d-40ae-bf49-47d9f82da5d0"],
Cell[935014, 23446, 9571, 280, 70, "Output",ExpressionUUID->"4e610905-1a63-484c-8b19-d079c308324d"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[944646, 23733, 212, 4, 38, "Subsection",ExpressionUUID->"2b28d6ca-98e0-4cf0-a117-48d0c6664e05"],
Cell[CellGroupData[{
Cell[944883, 23741, 173, 3, 704, "Subsubsection",ExpressionUUID->"2b941598-37f0-4583-bd32-c58d671bce79"],
Cell[945059, 23746, 341, 7, 448, "Input",ExpressionUUID->"fb060f33-f6d0-4c71-a732-0925e24b4faa"],
Cell[945403, 23755, 1163, 31, 880, "Input",ExpressionUUID->"dbbff176-bf95-48dc-8119-3bcc82044ed4"],
Cell[CellGroupData[{
Cell[946591, 23790, 226, 4, 448, "Input",ExpressionUUID->"a2cf0296-c1f9-4477-ba48-51aa9546b728"],
Cell[946820, 23796, 1498, 32, 70, "Output",ExpressionUUID->"7081e4f7-9107-4c8a-8748-71327962f307"]
}, Open  ]],
Cell[CellGroupData[{
Cell[948355, 23833, 292, 6, 448, "Input",ExpressionUUID->"8149db97-2dc8-455c-980d-d3e208d1c98e"],
Cell[948650, 23841, 610, 9, 70, "Print",ExpressionUUID->"d7375e94-cd43-4733-8c53-125f2b61e600"]
}, Open  ]],
Cell[CellGroupData[{
Cell[949297, 23855, 247, 5, 448, "Input",ExpressionUUID->"d722bf1b-6a56-4ef1-b2ca-2b203c82bc44"],
Cell[949547, 23862, 828, 18, 70, "Output",ExpressionUUID->"5f70c312-a12c-482e-925e-88dc120ee0ce"]
}, Open  ]],
Cell[CellGroupData[{
Cell[950412, 23885, 222, 4, 448, "Input",ExpressionUUID->"6b9027e5-5657-4f60-8c8e-5cbdee5082db"],
Cell[950637, 23891, 3773, 83, 70, "Output",ExpressionUUID->"24bd7611-a118-4099-a397-031e375fa9a6"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[954471, 23981, 270, 4, 38, "Subsection",ExpressionUUID->"b7c58709-aac6-4df7-a7b6-71259bbae721"],
Cell[CellGroupData[{
Cell[954766, 23989, 173, 3, 45, "Subsubsection",ExpressionUUID->"f11bf957-2337-422c-8c01-2c112d840bc2"],
Cell[954942, 23994, 396, 7, 30, "Input",ExpressionUUID->"eb34367e-e244-452e-9419-d0e4013968c1"],
Cell[955341, 24003, 934, 25, 30, "Input",ExpressionUUID->"651be2dc-bfa6-4abb-81e3-713c288ebb32"],
Cell[CellGroupData[{
Cell[956300, 24032, 226, 4, 30, "Input",ExpressionUUID->"f7b84d11-8956-4451-9c37-f429e32aa6b0"],
Cell[956529, 24038, 1495, 32, 34, "Output",ExpressionUUID->"1f688913-4a86-4b41-a8ff-0f597954cca6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[958061, 24075, 292, 6, 30, "Input",ExpressionUUID->"74443955-6845-40a5-b935-70219bf58752"],
Cell[958356, 24083, 628, 10, 24, "Print",ExpressionUUID->"f8efaeef-8238-4d5a-8061-81e8929b5702"]
}, Open  ]],
Cell[CellGroupData[{
Cell[959021, 24098, 247, 5, 30, "Input",ExpressionUUID->"ab4cf837-02ad-4916-bc18-90206a637573"],
Cell[959271, 24105, 828, 18, 161, "Output",ExpressionUUID->"417a27f0-2d1d-49e4-809e-a39e6a3884f0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[960136, 24128, 222, 4, 30, "Input",ExpressionUUID->"78cea3e9-42da-4366-b541-de62969cb559"],
Cell[960361, 24134, 3769, 83, 441, "Output",ExpressionUUID->"1865329a-506c-4fe6-ae55-cca5f1b04d5e"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[964191, 24224, 324, 5, 54, "Subsection",ExpressionUUID->"a43496d3-adc6-4b20-852d-8a994709f149"],
Cell[CellGroupData[{
Cell[964540, 24233, 173, 3, 704, "Subsubsection",ExpressionUUID->"1bd39f07-ddba-4331-abf4-1fd7de549a80"],
Cell[964716, 24238, 452, 8, 448, "Input",ExpressionUUID->"2706686f-e663-4b38-801f-d90f82ccef40"],
Cell[965171, 24248, 934, 25, 448, "Input",ExpressionUUID->"8e857dff-f89b-4bb1-a3cb-4fd43f303b77"],
Cell[CellGroupData[{
Cell[966130, 24277, 226, 4, 448, "Input",ExpressionUUID->"37208b65-8e67-4cad-8138-44c6a0b2c8d3"],
Cell[966359, 24283, 1499, 32, 70, "Output",ExpressionUUID->"ed9a67a0-958c-4080-a47e-a230c5263d90"]
}, Open  ]],
Cell[CellGroupData[{
Cell[967895, 24320, 292, 6, 448, "Input",ExpressionUUID->"b11db2e1-392f-4305-8108-5b78ef0b5c59"],
Cell[968190, 24328, 623, 10, 70, "Print",ExpressionUUID->"097dcebe-41c4-4800-91bb-d076133550d9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[968850, 24343, 247, 5, 448, "Input",ExpressionUUID->"004a887a-14c4-4457-9a6f-ce00af7ecdcc"],
Cell[969100, 24350, 834, 18, 70, "Output",ExpressionUUID->"0d6e7379-dad7-494b-b6df-fb28baffd6db"]
}, Open  ]],
Cell[CellGroupData[{
Cell[969971, 24373, 222, 4, 448, "Input",ExpressionUUID->"6bc27208-8f85-4014-96aa-1ee1fc2b839d"],
Cell[970196, 24379, 3758, 83, 70, "Output",ExpressionUUID->"16960152-28b8-401f-8515-83c78eeb7529"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[974015, 24469, 264, 4, 38, "Subsection",ExpressionUUID->"3c53f165-0eb6-469b-b335-fc435f887714"],
Cell[CellGroupData[{
Cell[974304, 24477, 173, 3, 704, "Subsubsection",ExpressionUUID->"08bee410-d416-4b16-866d-be25cd3d185a"],
Cell[974480, 24482, 284, 6, 448, "Input",ExpressionUUID->"f4aef561-9105-4e1d-9f91-e32445ad18e1"],
Cell[974767, 24490, 1251, 34, 768, "Input",ExpressionUUID->"16566c01-9f3c-4cd7-9bcf-912b41c7c78d"],
Cell[CellGroupData[{
Cell[976043, 24528, 226, 4, 448, "Input",ExpressionUUID->"b7eeed80-4a40-4864-b436-f4ad342f6bb1"],
Cell[976272, 24534, 1276, 28, 70, "Output",ExpressionUUID->"7c7dd676-b7df-442f-b34b-1008649df5ec"]
}, Open  ]],
Cell[CellGroupData[{
Cell[977585, 24567, 290, 6, 448, "Input",ExpressionUUID->"fe7bf428-30de-4d23-b71c-3b30eaf8c371"],
Cell[977878, 24575, 596, 9, 70, "Print",ExpressionUUID->"3f4c2064-f071-46c9-82c3-6726dc66048f"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[978523, 24590, 162, 3, 704, "Subsubsection",ExpressionUUID->"615ddb29-57f0-4a5d-ba7e-48ea20fac9da"],
Cell[CellGroupData[{
Cell[978710, 24597, 247, 5, 448, "Input",ExpressionUUID->"d65f718d-5a5e-41d4-b3c6-435fbfbbff6e"],
Cell[978960, 24604, 832, 18, 70, "Output",ExpressionUUID->"88dfd088-b4a0-48c6-af4f-6c58c2c5bc1e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[979829, 24627, 222, 4, 448, "Input",ExpressionUUID->"815d49a2-c0ec-45a2-99e2-502a6d20c83b"],
Cell[980054, 24633, 3764, 83, 70, "Output",ExpressionUUID->"f6297128-d2c4-4b92-a454-a6b8b9b2ee6b"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[983879, 24723, 321, 5, 38, "Subsection",ExpressionUUID->"06cb9985-c448-4667-8fe0-8e8e6d5abe85"],
Cell[CellGroupData[{
Cell[984225, 24732, 173, 3, 704, "Subsubsection",ExpressionUUID->"ea8a5760-e455-4da7-80e1-5b85d7e23b62"],
Cell[984401, 24737, 339, 7, 448, "Input",ExpressionUUID->"54fd10ef-c57e-4001-8c72-9be65a201594"],
Cell[984743, 24746, 895, 25, 448, "Input",ExpressionUUID->"f5c86845-c67c-4942-868e-c7adc97f3767"],
Cell[CellGroupData[{
Cell[985663, 24775, 226, 4, 448, "Input",ExpressionUUID->"1868dfd3-3d87-428f-8ecd-c6d140196579"],
Cell[985892, 24781, 1276, 28, 70, "Output",ExpressionUUID->"0fbc5a2d-2583-4d83-8dc5-d236e763d145"]
}, Open  ]],
Cell[CellGroupData[{
Cell[987205, 24814, 290, 6, 448, "Input",ExpressionUUID->"dc224476-1b38-4970-8838-70323b562918"],
Cell[987498, 24822, 605, 9, 70, "Print",ExpressionUUID->"7332d34e-47af-4f27-a4be-376cc5939613"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[988152, 24837, 162, 3, 704, "Subsubsection",ExpressionUUID->"a2a9d7ce-5067-4b7d-b079-0ba7a0db435b"],
Cell[CellGroupData[{
Cell[988339, 24844, 249, 5, 448, "Input",ExpressionUUID->"11e7ca2a-bff7-4ee5-b498-303a2dc97d17"],
Cell[988591, 24851, 825, 18, 70, "Output",ExpressionUUID->"fecd2604-813f-4688-a6eb-3753c2576dfa"]
}, Open  ]],
Cell[CellGroupData[{
Cell[989453, 24874, 222, 4, 448, "Input",ExpressionUUID->"77793f71-fa57-49e9-9fe9-d91809d16df0"],
Cell[989678, 24880, 3772, 83, 70, "Output",ExpressionUUID->"55892624-a610-46ed-8b7e-41dc704f8e09"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[993511, 24970, 374, 6, 38, "Subsection",ExpressionUUID->"ca014a6a-47df-4d21-b71a-588defc88370"],
Cell[CellGroupData[{
Cell[993910, 24980, 173, 3, 45, "Subsubsection",ExpressionUUID->"4dad7f00-ea4e-462c-8a3a-195976273eb1"],
Cell[994086, 24985, 388, 7, 30, "Input",ExpressionUUID->"20c2186b-3989-45ce-8b8d-ac7af1ed72c0"],
Cell[994477, 24994, 941, 25, 30, "Input",ExpressionUUID->"ca1601db-17ba-4670-bb2b-460e32ddae10"],
Cell[CellGroupData[{
Cell[995443, 25023, 226, 4, 30, "Input",ExpressionUUID->"9414313d-2dbc-4a87-8607-9c726c010944"],
Cell[995672, 25029, 1271, 28, 34, "Output",ExpressionUUID->"5bf58aed-32b4-4e87-997a-30e5e83b5ea4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[996980, 25062, 290, 6, 30, "Input",ExpressionUUID->"bb2c105f-c196-47b6-9e6f-6b28b685fa1a"],
Cell[997273, 25070, 610, 9, 24, "Print",ExpressionUUID->"49b9bcc0-2157-4ce2-87e8-c0ecb853fb17"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[997932, 25085, 162, 3, 45, "Subsubsection",ExpressionUUID->"3330c5e6-5131-4183-9ff0-801d1bbf4259"],
Cell[CellGroupData[{
Cell[998119, 25092, 249, 5, 30, "Input",ExpressionUUID->"d3f13d72-b7f7-4f3a-862a-f69b022f635f"],
Cell[998371, 25099, 825, 18, 161, "Output",ExpressionUUID->"c339749a-5bad-4f51-bd8c-93946ab08a86"]
}, Open  ]],
Cell[CellGroupData[{
Cell[999233, 25122, 222, 4, 30, "Input",ExpressionUUID->"627d7485-9d95-4308-bdef-f0dd15b997a6"],
Cell[999458, 25128, 3767, 83, 441, "Output",ExpressionUUID->"9b627010-0a30-4d5a-ac3c-c54e2daccfb7"]
}, Open  ]]
}, Open  ]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[1003298, 25219, 152, 3, 53, "Section",ExpressionUUID->"6f47be2c-6d5d-4fac-a105-750497aeced9"],
Cell[CellGroupData[{
Cell[1003475, 25226, 244, 5, 30, "Input",ExpressionUUID->"08818bf8-1ae6-4165-87d4-2d5ee2edf905"],
Cell[1003722, 25233, 334, 6, 51, "Output",ExpressionUUID->"64bc60b5-692d-4452-8914-7074843f606f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1004093, 25244, 247, 5, 30, "Input",ExpressionUUID->"251d4d35-9261-41c6-bf63-55c5bc68d623"],
Cell[1004343, 25251, 321, 5, 34, "Output",ExpressionUUID->"44a16fcc-42ef-475e-8aaf-837bdb9c7433"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1004701, 25261, 254, 5, 30, "Input",ExpressionUUID->"c42f0037-2e84-415d-a0fc-3c9cbd84cf9d"],
Cell[1004958, 25268, 323, 5, 34, "Output",ExpressionUUID->"ebd8bc25-e38f-4c4b-adc2-5be7a630cc2f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1005318, 25278, 262, 5, 30, "Input",ExpressionUUID->"56591e8a-da2e-4189-92df-6e49e30a5b3e"],
Cell[1005583, 25285, 319, 5, 34, "Output",ExpressionUUID->"3d187f6c-6977-4e75-8716-9cecc11f45b2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1005939, 25295, 267, 5, 30, "Input",ExpressionUUID->"69dba37c-d688-4595-9f1f-80eee4ff7fb4"],
Cell[1006209, 25302, 356, 7, 51, "Output",ExpressionUUID->"d6790563-91d8-405b-8504-ddfd6b975bba"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1006602, 25314, 276, 6, 30, "Input",ExpressionUUID->"3fa55e42-cd83-4356-ab5f-cafc5e327a75"],
Cell[1006881, 25322, 321, 5, 34, "Output",ExpressionUUID->"555a67d2-8e83-4ef7-9ba5-06fa68322b7e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1007239, 25332, 215, 4, 30, "Input",ExpressionUUID->"f6bfeb8e-fd13-4230-9eeb-d1640b857630"],
Cell[1007457, 25338, 2782, 81, 83, "Output",ExpressionUUID->"8f414027-2ef2-4afb-87d0-8292a5fb192a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1010276, 25424, 236, 5, 30, "Input",ExpressionUUID->"f86a4c1a-9a3c-4d33-ae75-e99b7b25c65e"],
Cell[1010515, 25431, 355, 7, 51, "Output",ExpressionUUID->"7221a2b7-0410-4577-9c8a-136c6391cb44"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1010907, 25443, 239, 5, 30, "Input",ExpressionUUID->"06ae5fec-acad-4ae8-92b8-fd504ea3b1ef"],
Cell[1011149, 25450, 318, 5, 34, "Output",ExpressionUUID->"e1e68bb2-d9f0-4977-a5d6-df77aa3d37eb"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1011504, 25460, 258, 5, 30, "Input",ExpressionUUID->"66b65996-5fc1-4da0-b4dd-89128c7aee36"],
Cell[1011765, 25467, 325, 5, 34, "Output",ExpressionUUID->"c8c23349-8a0c-49b1-9c28-bf3e00c7b3aa"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1012127, 25477, 259, 5, 30, "Input",ExpressionUUID->"fd0c3784-7973-4c9b-99c3-71b351b47a3d"],
Cell[1012389, 25484, 361, 7, 51, "Output",ExpressionUUID->"7861efd5-8e57-489b-b574-080d8a3cec38"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1012787, 25496, 266, 5, 30, "Input",ExpressionUUID->"8b5899cd-2b45-46fc-a115-64d7cbb7b2a2"],
Cell[1013056, 25503, 316, 5, 34, "Output",ExpressionUUID->"ad2a50c1-32f8-482e-b9ee-dc2451b9b2cf"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1013409, 25513, 234, 5, 30, "Input",ExpressionUUID->"a2f97d8e-32e9-4404-89e5-eeb082b547d0"],
Cell[1013646, 25520, 321, 5, 34, "Output",ExpressionUUID->"ef0eb93b-0ec1-45a3-bc9a-3bc03a678e51"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1014004, 25530, 240, 5, 30, "Input",ExpressionUUID->"157fd99c-cfc4-4890-9180-a6eaa18e68ba"],
Cell[1014247, 25537, 323, 5, 34, "Output",ExpressionUUID->"05852731-e7d5-4cae-a9ae-fddcf62f9cf3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1014607, 25547, 239, 5, 30, "Input",ExpressionUUID->"185710fd-9229-4dcf-a6b1-e9c70dff1d70"],
Cell[1014849, 25554, 323, 5, 34, "Output",ExpressionUUID->"6c37f112-9cbd-4eab-bd80-4a854b9f1cba"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1015209, 25564, 242, 5, 30, "Input",ExpressionUUID->"8ea2535f-28ef-4cd3-bb6b-1675ce64587d"],
Cell[1015454, 25571, 317, 5, 34, "Output",ExpressionUUID->"3c857ed6-f89c-4027-903a-9a72e40a6e5b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1015808, 25581, 240, 5, 30, "Input",ExpressionUUID->"d982b267-f442-4dbd-8dee-bad84320ade1"],
Cell[1016051, 25588, 321, 5, 34, "Output",ExpressionUUID->"5cf956a5-f457-46f2-add0-eee2ae85717a"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[1016421, 25599, 396, 7, 53, "Section",ExpressionUUID->"3472ce41-f7df-40a6-af31-aa9f600de450"],
Cell[CellGroupData[{
Cell[1016842, 25610, 334, 6, 52, "Input",ExpressionUUID->"cf2c547c-31bf-4573-b20e-9b9e969d6b4a"],
Cell[1017179, 25618, 4770, 111, 157, "Output",ExpressionUUID->"3c43577e-f2be-4d58-9d01-addc149faf2f"],
Cell[1021952, 25731, 2704, 80, 83, "Output",ExpressionUUID->"bce355be-227f-439e-bc97-7148b694f39e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1024693, 25816, 291, 5, 52, "Input",ExpressionUUID->"b2803c2b-186e-455b-b9b8-acba3a078552"],
Cell[1024987, 25823, 4773, 111, 157, "Output",ExpressionUUID->"8f1cd6c0-fcc1-43e0-9e37-239f41e6942f"],
Cell[1029763, 25936, 2708, 80, 83, "Output",ExpressionUUID->"bd9579bf-9cc9-44ee-b50d-84143d47ccfb"]
}, Open  ]],
Cell[1032486, 26019, 284, 6, 30, "Input",ExpressionUUID->"40913594-7483-4f42-926d-841a855a91c8"],
Cell[CellGroupData[{
Cell[1032795, 26029, 340, 7, 30, "Input",ExpressionUUID->"bd471ecd-bab0-4fc6-b365-2b012afee4ca"],
Cell[1033138, 26038, 968, 25, 94, "Output",ExpressionUUID->"54425ead-7df9-4662-bd4a-ea2f00599cef"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1034143, 26068, 264, 5, 30, "Input",ExpressionUUID->"516600ae-b28c-47c0-a160-17837ee4d125"],
Cell[1034410, 26075, 2885, 83, 83, "Output",ExpressionUUID->"cb7283f8-9c4a-4149-a3cd-aa256c841a73"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1037332, 26163, 344, 7, 30, "Input",ExpressionUUID->"b1ce8c6f-aeba-486b-b3b3-973233d820d8"],
Cell[1037679, 26172, 1011, 27, 94, "Output",ExpressionUUID->"a8057463-fa95-496c-a3e8-b411db6d95a3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1038727, 26204, 266, 5, 30, "Input",ExpressionUUID->"4e5873a0-236e-4237-9556-b37acf45b814"],
Cell[1038996, 26211, 2876, 83, 83, "Output",ExpressionUUID->"81d5cf87-c2de-43d8-9805-fe34c7732f14"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1041909, 26299, 215, 4, 30, "Input",ExpressionUUID->"28637e25-3c6e-4c0b-a15c-03c8bc9b4803"],
Cell[1042127, 26305, 4401, 122, 83, "Output",ExpressionUUID->"6c8070bc-3111-4996-ab21-33ba4f89616f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1046565, 26432, 949, 26, 30, "Input",ExpressionUUID->"e7f74b26-2ad5-490e-91d9-9a5b3c22bf2d"],
Cell[1047517, 26460, 429, 7, 34, "Output",ExpressionUUID->"1994bdee-efbd-49f8-b33f-b41cead54b47"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1047983, 26472, 398, 7, 30, "Input",ExpressionUUID->"3ab87185-7013-4994-a7d8-7ec3d1cbcf9c"],
Cell[1048384, 26481, 2169, 60, 83, "Output",ExpressionUUID->"f29ce304-c179-4c83-8904-78ca95cee097"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1050590, 26546, 443, 9, 30, "Input",ExpressionUUID->"2437f3b0-e8d7-4aef-948b-755c2a754cd1"],
Cell[1051036, 26557, 10768, 316, 162, "Output",ExpressionUUID->"a405f6b3-bec6-4b4c-8e6c-9fb1a8272f69"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1061841, 26878, 358, 8, 30, "Input",ExpressionUUID->"17924563-1a14-453f-a287-5bfac41cd007"],
Cell[1062202, 26888, 1054, 29, 94, "Output",ExpressionUUID->"13de13ff-b62a-4a66-ae83-04035ed4149a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1063293, 26922, 299, 6, 30, "Input",ExpressionUUID->"7822df4f-f325-4c0f-89e4-1fa7033f27dc"],
Cell[1063595, 26930, 1004, 27, 94, "Output",ExpressionUUID->"3861cccb-9c28-40fb-9e42-a0a1b13cafc7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1064636, 26962, 274, 5, 30, "Input",ExpressionUUID->"3db7967d-fec2-46dc-8979-6c53db4947fe"],
Cell[1064913, 26969, 2308, 66, 83, "Output",ExpressionUUID->"9fab07c9-83cd-4660-95c7-f5e1a64a6339"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1067258, 27040, 1066, 28, 30, "Input",ExpressionUUID->"ad380638-d123-4c9c-92e0-023bdbb3048c"],
Cell[1068327, 27070, 12214, 351, 162, "Output",ExpressionUUID->"ee044b0e-5aa5-421e-b7a8-7d8823d94e11"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1080578, 27426, 276, 6, 30, "Input",ExpressionUUID->"9941fc89-b217-47aa-9d66-bae5927bd22c"],
Cell[1080857, 27434, 418, 7, 34, "Output",ExpressionUUID->"1de3ae2c-4bca-47f9-b390-315f9e7e4e94"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1081312, 27446, 277, 5, 30, "Input",ExpressionUUID->"45b50dbf-3d7a-456f-8fa9-9fbf53b8a871"],
Cell[1081592, 27453, 10365, 313, 162, "Output",ExpressionUUID->"a63b01ef-f416-46f2-8a2c-1ea6bffef4a5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1091994, 27771, 279, 5, 30, "Input",ExpressionUUID->"a6af1e4a-eabd-49c6-838a-ad3303828a74"],
Cell[1092276, 27778, 9601, 281, 83, "Output",ExpressionUUID->"956a4918-b793-4615-a7f9-30751ba0ed6e"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[1101926, 28065, 168, 3, 53, "Section",ExpressionUUID->"f8540c94-bc4d-45c3-a939-8a1e93482b61"],
Cell[1102097, 28070, 6605, 140, 215, "Input",ExpressionUUID->"95dcbb44-510f-4b6f-b127-78a994f6943b"],
Cell[CellGroupData[{
Cell[1108727, 28214, 566, 13, 30, "Input",ExpressionUUID->"281298c2-6e7d-4dff-93c5-225b813a9802"],
Cell[1109296, 28229, 1268, 30, 229, "Output",ExpressionUUID->"16f946a9-6e70-4710-84cc-da30a1c5dc38"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1110601, 28264, 406, 9, 30, "Input",ExpressionUUID->"b3382722-42b8-4faa-a8d4-783b9e60048e"],
Cell[1111010, 28275, 572, 9, 44, "Print",ExpressionUUID->"a39c5488-7ac4-4d12-a833-8c1d618fba5f"],
Cell[1111585, 28286, 350, 6, 34, "Output",ExpressionUUID->"0768cd01-b383-4c91-97e5-871190aa9332"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1111972, 28297, 483, 10, 30, "Input",ExpressionUUID->"cfae1bd3-c028-464c-b999-e8602eb4aded"],
Cell[1112458, 28309, 907, 20, 195, "Output",ExpressionUUID->"1610a489-5115-4f6d-94a0-03e5e17ab0c0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1113402, 28334, 296, 6, 30, "Input",ExpressionUUID->"39b2ad7a-b54c-4be8-bbfb-3355ede25df4"],
Cell[1113701, 28342, 1714, 38, 230, "Output",ExpressionUUID->"e2aa3724-21d5-472e-ae50-ef53f28fd13a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1115452, 28385, 296, 6, 30, "Input",ExpressionUUID->"95d19041-ddcd-4a1c-b75d-82fe7d41df77"],
Cell[1115751, 28393, 1664, 36, 230, "Output",ExpressionUUID->"d1911e93-55b7-4317-9c45-f63cfec28ae4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1117452, 28434, 346, 8, 30, "Input",ExpressionUUID->"73ff7be1-0dff-4433-ab8b-7af5e71914cf"],
Cell[1117801, 28444, 1880, 44, 230, "Output",ExpressionUUID->"ca4d3987-4bd3-4420-bbf6-bdc918ddc02c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1119718, 28493, 1449, 40, 84, "Subsection",ExpressionUUID->"003bb3b7-9851-44b5-8026-25b78d5323fb"],
Cell[CellGroupData[{
Cell[1121192, 28537, 418, 11, 30, "Input",ExpressionUUID->"206a9a39-188b-4929-b455-05ae4c0c7a7a"],
Cell[1121613, 28550, 7113, 216, 95, "Output",ExpressionUUID->"472ed179-5baa-46a9-996c-5839310aa17b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1128763, 28771, 374, 9, 30, "Input",ExpressionUUID->"a84501e6-5251-453d-9cba-f8d92b21f6af"],
Cell[1129140, 28782, 2352, 64, 83, "Output",ExpressionUUID->"5d4ea336-fb1e-4576-a646-aa97e2157433"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1131529, 28851, 371, 9, 30, "Input",ExpressionUUID->"362eda8d-0c29-4ef3-8d9f-8beb8bc37cf7"],
Cell[1131903, 28862, 2354, 64, 83, "Output",ExpressionUUID->"580b7e76-0e6b-49b3-a469-19da38c4ac03"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1134294, 28931, 382, 9, 30, "Input",ExpressionUUID->"b112ccc1-9bde-4372-ab55-445ae0e0228c"],
Cell[1134679, 28942, 653, 15, 34, "Output",ExpressionUUID->"e2c46ec8-b985-44fb-b9bc-a7ddc6e8cdaf"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1135369, 28962, 384, 9, 30, "Input",ExpressionUUID->"9c013452-754c-4d25-b9a5-0dfbeffa50be"],
Cell[1135756, 28973, 652, 15, 34, "Output",ExpressionUUID->"442f9762-862b-46e1-a914-81e984ac7fbb"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[1136457, 28994, 1372, 39, 57, "Subsection",ExpressionUUID->"17e0418f-509b-4dd5-a5cd-9e486746208f"],
Cell[CellGroupData[{
Cell[1137854, 29037, 443, 10, 30, "Input",ExpressionUUID->"395fc01c-eb72-4334-9cd3-ad5e8bb81117"],
Cell[1138300, 29049, 495, 8, 34, "Output",ExpressionUUID->"0da4dab5-f5f0-4c91-bf7f-c42bc850c52b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1138832, 29062, 250, 5, 30, "Input",ExpressionUUID->"9aa1aa92-a654-42fa-a51d-ee35e77d8f98"],
Cell[1139085, 29069, 7935, 230, 126, "Output",ExpressionUUID->"943d8fc7-9a14-4837-8816-c2e30035870a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1147057, 29304, 298, 6, 30, "Input",ExpressionUUID->"d6012992-7b5e-41aa-ad30-ac3163a28cf7"],
Cell[1147358, 29312, 7937, 231, 126, "Output",ExpressionUUID->"44c50e15-f590-4e0b-9a5c-a28a83f809bf"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1155332, 29548, 298, 6, 30, "Input",ExpressionUUID->"478033e6-ecf2-4c2f-b15a-52049245f57c"],
Cell[1155633, 29556, 7890, 232, 126, "Output",ExpressionUUID->"16664dfa-e516-407d-bed5-b967349f1755"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1163560, 29793, 300, 6, 30, "Input",ExpressionUUID->"b5814ae7-8cee-457e-86d1-ce421fd78bb5"],
Cell[1163863, 29801, 7611, 219, 126, "Output",ExpressionUUID->"e200fec8-d044-46a2-9357-377c1472a790"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1171511, 30025, 272, 6, 30, "Input",ExpressionUUID->"98c3b2ff-c150-4640-b97f-3d32c5329751"],
Cell[1171786, 30033, 372, 9, 36, "Output",ExpressionUUID->"ab4e9a0c-29af-4163-90fd-ba53f887e5f5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1172195, 30047, 246, 5, 30, "Input",ExpressionUUID->"0c8ce384-5857-4a95-bd62-8d1ccf9b0664"],
Cell[1172444, 30054, 688, 21, 52, "Output",ExpressionUUID->"683eb654-1f9a-4890-9a7e-2cbaf6064f59"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1173169, 30080, 276, 6, 30, "Input",ExpressionUUID->"e68f6314-d44f-4f6e-96b2-5a495f6439f8"],
Cell[1173448, 30088, 227, 4, 34, "Output",ExpressionUUID->"545cfdbe-e15f-41f8-9375-e0e9e7f26531"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1173712, 30097, 272, 6, 30, "Input",ExpressionUUID->"f5ea814b-d2e5-45dd-9c29-cfc94028ab70"],
Cell[1173987, 30105, 374, 9, 36, "Output",ExpressionUUID->"932031c9-29c3-436b-bec1-8518f84eb9c9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1174398, 30119, 323, 7, 30, "Input",ExpressionUUID->"c1fec85d-d4d1-4f56-9ecf-1bf2dc472407"],
Cell[1174724, 30128, 256, 5, 34, "Output",ExpressionUUID->"33957cef-ce2b-46f9-a306-ec15d257cf9f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1175017, 30138, 323, 7, 30, "Input",ExpressionUUID->"74b5b5b9-de58-4fdb-ad5a-1050d804f2ae"],
Cell[1175343, 30147, 424, 10, 36, "Output",ExpressionUUID->"589b72ed-1985-4917-b8bd-303483bc5d1e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1175804, 30162, 276, 6, 30, "Input",ExpressionUUID->"c81b81cb-fd61-49cb-b944-18f38b20fa0f"],
Cell[1176083, 30170, 1167, 31, 36, "Output",ExpressionUUID->"1d02e256-7ec6-400c-808e-f6da0d1f9c95"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1177287, 30206, 276, 6, 30, "Input",ExpressionUUID->"d006dc26-4a21-4914-97b3-3067e79961e0"],
Cell[1177566, 30214, 1338, 36, 36, "Output",ExpressionUUID->"65271c56-cc44-4baa-b927-f4d4151c6cfc"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1178941, 30255, 276, 6, 30, "Input",ExpressionUUID->"d0c7cd8e-d114-46de-9f95-7abfb4e45842"],
Cell[1179220, 30263, 1167, 31, 36, "Output",ExpressionUUID->"dbe96cb1-7840-487e-9fd0-b7417615794f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1180424, 30299, 276, 6, 30, "Input",ExpressionUUID->"76216aac-d519-49f6-bae6-5ff57857bec9"],
Cell[1180703, 30307, 1165, 31, 36, "Output",ExpressionUUID->"7f5e37fd-f624-4cc4-b047-1abb3e8ec798"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1181905, 30343, 276, 6, 30, "Input",ExpressionUUID->"b99883f9-3b4f-4f68-be7f-c821cbf5d940"],
Cell[1182184, 30351, 1390, 38, 37, "Output",ExpressionUUID->"7a8df6a5-3e88-4c72-9757-81de313d7ff0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1183611, 30394, 278, 6, 30, "Input",ExpressionUUID->"83cd5c03-c7a8-4b3c-9a89-b01c7a4f7947"],
Cell[1183892, 30402, 1165, 31, 36, "Output",ExpressionUUID->"80eb165e-29d3-4f67-8c41-559817d7ceef"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[1185106, 30439, 305, 6, 54, "Subsection",ExpressionUUID->"d5b194b9-82a8-460b-9ed5-cff5d974521b"],
Cell[CellGroupData[{
Cell[1185436, 30449, 898, 24, 30, "Input",ExpressionUUID->"f20f083e-2f33-4223-8690-26cf235b713f"],
Cell[1186337, 30475, 5433, 137, 154, "Output",ExpressionUUID->"b1ce731c-53ac-4422-af9d-4e5c1ecb1314"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1191807, 30617, 561, 15, 30, "Input",ExpressionUUID->"6fde7a67-1440-4701-8eab-e767ff58e07c"],
Cell[1192371, 30634, 5736, 176, 89, "Output",ExpressionUUID->"2ae576b9-6e57-441a-b4d3-dea98b9c1a01"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1198144, 30815, 465, 11, 30, "Input",ExpressionUUID->"6b032907-9c20-47bd-b1fa-6b13362a0e91"],
Cell[1198612, 30828, 907, 22, 36, "Output",ExpressionUUID->"c29de5bb-de94-495d-b2b0-8f728259005a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1199556, 30855, 327, 6, 45, "Subsubsection",ExpressionUUID->"fae1a020-86e8-4014-b405-9d4b5f41a9ec"],
Cell[CellGroupData[{
Cell[1199908, 30865, 569, 10, 30, "Input",ExpressionUUID->"61b859a5-06c8-4ea6-bbcc-5992631a02d9"],
Cell[1200480, 30877, 1862, 44, 230, "Output",ExpressionUUID->"59787de8-24eb-42ec-b755-ff13cbb7f96d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1202379, 30926, 377, 9, 30, "Input",ExpressionUUID->"e3e83549-a4bf-4066-8218-787cc43b0ccf"],
Cell[1202759, 30937, 1861, 44, 230, "Output",ExpressionUUID->"e602739e-ad8a-4471-80aa-be064dd372b4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1204657, 30986, 255, 6, 30, "Input",ExpressionUUID->"bb87e401-91c1-4aaa-9de3-ae8246640c57"],
Cell[1204915, 30994, 4570, 100, 219, "Output",ExpressionUUID->"cc2c143a-dff6-4a55-b333-4ffdf9ebd9cd"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1209522, 31099, 370, 10, 30, "Input",ExpressionUUID->"2604af49-235a-49bd-87e4-e516178f7516"],
Cell[1209895, 31111, 873, 25, 92, "Output",ExpressionUUID->"82e69992-0e18-4548-9fc1-2156d818cdea"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1210805, 31141, 323, 8, 30, "Input",ExpressionUUID->"40b02709-21e7-4d20-bdf9-6d410af9796c"],
Cell[1211131, 31151, 931, 25, 94, "Output",ExpressionUUID->"71d071fb-d3bc-4ce9-81fb-0f6c8b677a8a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1212099, 31181, 355, 7, 30, "Input",ExpressionUUID->"3182e19f-a91a-41f4-a409-b7a96a73889f"],
Cell[1212457, 31190, 931, 25, 94, "Output",ExpressionUUID->"d686a746-0bb2-4db5-9755-b52d8c0c10cc"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1213425, 31220, 1710, 47, 52, "Input",ExpressionUUID->"79cc22c1-3585-49b2-a4a0-e7567b8a3af8"],
Cell[1215138, 31269, 300, 5, 34, "Output",ExpressionUUID->"428f4a57-c666-4dd8-8916-9c4eb0c9edff"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[1215499, 31281, 319, 7, 54, "Subsection",ExpressionUUID->"61926675-847b-4737-aa2d-39a258be38c5"],
Cell[CellGroupData[{
Cell[1215843, 31292, 294, 6, 30, "Input",ExpressionUUID->"9d7cbf0a-7184-405d-8575-bb969db36dbc"],
Cell[1216140, 31300, 1691, 38, 230, "Output",ExpressionUUID->"316ca747-adba-41d2-ad62-f0fe37edda27"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1217868, 31343, 216, 4, 30, "Input",ExpressionUUID->"798f0aea-a945-4b86-a1ca-0f1c70070896"],
Cell[1218087, 31349, 5906, 127, 219, "Output",ExpressionUUID->"99d8e352-e8b7-4d88-a345-c26f58f4ad99"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1224030, 31481, 294, 6, 30, "Input",ExpressionUUID->"ecdce4a6-e3d5-482d-b297-322659106705"],
Cell[1224327, 31489, 1644, 36, 230, "Output",ExpressionUUID->"347898bb-f0cf-430a-bd93-ae23bcc66f04"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1226008, 31530, 220, 4, 30, "Input",ExpressionUUID->"37ce1756-ab92-42d0-a888-b84bd3ca3434"],
Cell[1226231, 31536, 5900, 127, 219, "Output",ExpressionUUID->"94ec3182-9404-4437-92cf-058acdc350d0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1232168, 31668, 221, 4, 30, "Input",ExpressionUUID->"a960c55a-5d4c-402b-815f-19ccab219e00"],
Cell[1232392, 31674, 13067, 256, 451, "Output",ExpressionUUID->"7509e7e9-5dd4-421c-a3ea-e52ac577f0d0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1245496, 31935, 219, 4, 30, "Input",ExpressionUUID->"59a9f5ba-c70f-4b30-8b1f-a5e1dba146d8"],
Cell[1245718, 31941, 13089, 256, 451, "Output",ExpressionUUID->"27e7174f-a636-49bc-91d1-f463d0a9be29"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1258844, 32202, 904, 25, 30, "Input",ExpressionUUID->"d7a26b50-9406-4df4-ae03-0bb19c167ea4"],
Cell[1259751, 32229, 304, 5, 34, "Output",ExpressionUUID->"65947862-8f3a-4018-abf1-bb713b1f1402"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1260092, 32239, 353, 8, 30, "Input",ExpressionUUID->"8f99d152-9c75-4748-9eb2-a43c1c74d135"],
Cell[1260448, 32249, 4578, 100, 219, "Output",ExpressionUUID->"6888435b-e255-4deb-af83-28f7d8efc18c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1265063, 32354, 368, 8, 30, "Input",ExpressionUUID->"eac561a1-d2ce-44b8-a4a9-6f099ef35076"],
Cell[1265434, 32364, 1713, 39, 230, "Output",ExpressionUUID->"c13d9ad9-1f7a-42b6-87d7-c8d036a2567c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1267184, 32408, 308, 7, 30, "Input",ExpressionUUID->"ca31b530-b3c1-4191-9067-b3773089e96b"],
Cell[1267495, 32417, 1717, 39, 230, "Output",ExpressionUUID->"94c753d3-e8de-4f55-a7a4-82854f17ea1c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1269249, 32461, 249, 5, 30, "Input",ExpressionUUID->"51c20e8c-e8ad-40cc-b3d0-6f72f4e9a6a5"],
Cell[1269501, 32468, 1670, 37, 230, "Output",ExpressionUUID->"fb93cd19-cac2-4547-94d7-867ee998408c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1271208, 32510, 224, 4, 30, "Input",ExpressionUUID->"c5b3d862-5c4f-42d1-babc-b0c9e19f3753"],
Cell[1271435, 32516, 4626, 102, 219, "Output",ExpressionUUID->"4cd2120b-56b2-4bc6-a9f4-ce20a0a55e45"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1276098, 32623, 855, 23, 30, "Input",ExpressionUUID->"4be63e3e-217a-4e63-b58c-44787a3fe6f6"],
Cell[1276956, 32648, 299, 5, 34, "Output",ExpressionUUID->"fe1c43f4-7f98-464e-b029-ea19073a9c0d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1277292, 32658, 276, 6, 30, "Input",ExpressionUUID->"8bbd3fd2-6015-4259-bbf9-ed9d803c0ae2"],
Cell[1277571, 32666, 299, 5, 34, "Output",ExpressionUUID->"f924c1ce-0b0a-463c-aa79-9f3fd2678745"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1277907, 32676, 229, 4, 30, "Input",ExpressionUUID->"53249811-2916-4e1e-b042-695fa47ce42d"],
Cell[1278139, 32682, 23311, 519, 915, "Output",ExpressionUUID->"308b8341-4b71-4c4b-a938-c545a28139d0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1301487, 33206, 233, 4, 30, "Input",ExpressionUUID->"d32eee49-7bf6-4165-879c-c761c7c92a45"],
Cell[1301723, 33212, 20858, 407, 683, "Output",ExpressionUUID->"5384066a-2213-434f-ad5c-f847a27a016c"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[1322642, 33626, 240, 4, 53, "Section",ExpressionUUID->"2fb23409-bc0a-47c5-9c33-11d0ddad943d"],
Cell[CellGroupData[{
Cell[1322907, 33634, 160, 3, 54, "Subsection",ExpressionUUID->"9f946feb-30e0-44ec-93b5-32ecb4fa22a3"],
Cell[1323070, 33639, 17366, 390, 1024, "Input",ExpressionUUID->"42bab655-7ecc-4988-b084-9c339c7293ef"],
Cell[1340439, 34031, 522, 14, 30, "Input",ExpressionUUID->"39e5bef6-09df-49a0-84bf-db3403fe7f43"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1340998, 34050, 175, 3, 54, "Subsection",ExpressionUUID->"bcfa7ec4-eeca-4149-932b-83c5c7afd313"],
Cell[CellGroupData[{
Cell[1341198, 34057, 226, 4, 30, "Input",ExpressionUUID->"a2004ebf-2cfb-47d7-a9fb-124698879621"],
Cell[1341427, 34063, 603, 10, 44, "Print",ExpressionUUID->"17f5e365-fae8-470a-8395-cf4ac9d580bd"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1342067, 34078, 222, 4, 30, "Input",ExpressionUUID->"74df9a62-7f94-4351-a14a-73b655456fbf"],
Cell[1342292, 34084, 521, 9, 34, "Output",ExpressionUUID->"78c99736-9ca1-48fb-ae87-2e4ab37bcce1"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[1342862, 34099, 157, 3, 54, "Subsection",ExpressionUUID->"3ede90bb-c37a-4bbe-8f7c-c78c9f06c0d4"],
Cell[CellGroupData[{
Cell[1343044, 34106, 283, 6, 30, "Input",ExpressionUUID->"28598ba7-3999-422b-8f29-7424ed41abdc"],
Cell[1343330, 34114, 912, 20, 195, "Output",ExpressionUUID->"edee2b15-2a02-454c-a3a7-85dae4d023b3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1344279, 34139, 281, 6, 30, "Input",ExpressionUUID->"faae5f51-bcb7-4afd-ac06-0d2e509a3e8e"],
Cell[1344563, 34147, 1360, 32, 261, "Output",ExpressionUUID->"5f42b0f7-5f8b-433c-8b35-dd589921cc00"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1345960, 34184, 283, 6, 30, "Input",ExpressionUUID->"f17e5aca-c337-407c-878f-af8ac3a1ac06"],
Cell[1346246, 34192, 2431, 49, 315, "Output",ExpressionUUID->"809c0724-7f3e-436d-8f63-8f3f9187a652"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1348714, 34246, 281, 6, 30, "Input",ExpressionUUID->"a89a384c-67a0-4367-af2c-f851eb87f15e"],
Cell[1348998, 34254, 2935, 61, 381, "Output",ExpressionUUID->"768f696b-9d6a-4f72-b2d1-74a9d96377ae"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1351970, 34320, 281, 6, 30, "Input",ExpressionUUID->"1d43d2d5-ddbc-46ca-bf6c-11a37d5087d9"],
Cell[1352254, 34328, 1366, 33, 261, "Output",ExpressionUUID->"40754e91-a779-4d7a-8b72-e63021ff482d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1353657, 34366, 309, 7, 30, "Input",ExpressionUUID->"f8f95162-2753-4e62-8c25-b3ce98b19a0c"],
Cell[1353969, 34375, 1872, 45, 329, "Output",ExpressionUUID->"9c82be4f-63b1-472d-b142-45b6967ee3c7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1355878, 34425, 309, 7, 30, "Input",ExpressionUUID->"92d57110-2e25-4cd0-b909-3687ee26aec5"],
Cell[1356190, 34434, 2949, 62, 381, "Output",ExpressionUUID->"f382d37b-cb59-44da-8ca2-b8232f4445d7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1359176, 34501, 309, 7, 30, "Input",ExpressionUUID->"e04282b1-6463-4149-8596-5ba893ba6654"],
Cell[1359488, 34510, 3535, 76, 449, "Output",ExpressionUUID->"c62bb9dd-3ee1-4fbd-b0b1-3b168c1863a7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1363060, 34591, 309, 7, 30, "Input",ExpressionUUID->"df373cb2-d187-49fb-82ed-cc96c8336e48"],
Cell[1363372, 34600, 4661, 99, 845, "Output",ExpressionUUID->"b7199252-f54f-42b7-879e-a43cfeb731ab"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1368070, 34704, 254, 5, 30, "Input",ExpressionUUID->"5d5170b4-aed6-470f-96ce-00d27097b52f"],
Cell[1368327, 34711, 2423, 49, 315, "Output",ExpressionUUID->"b3b23767-186d-4042-8bac-e9b37f312d57"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1370787, 34765, 270, 5, 30, "Input",ExpressionUUID->"149d154a-6cf5-48a3-bf00-2bc31a9e74db"],
Cell[1371060, 34772, 927, 20, 195, "Output",ExpressionUUID->"a4e68710-121e-40cc-9cc7-2a2d31f7731c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1372024, 34797, 250, 5, 30, "Input",ExpressionUUID->"53a691a2-4eca-4511-ab5b-73acd7cc0761"],
Cell[1372277, 34804, 4519, 97, 845, "Output",ExpressionUUID->"bc8d75bd-2c0b-4b2d-a523-a6f008a252ef"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1376833, 34906, 363, 9, 30, "Input",ExpressionUUID->"7e9da081-eddc-4fe2-995c-f3f326aae9cb"],
Cell[1377199, 34917, 7010, 195, 78, "Output",ExpressionUUID->"6d423bcd-6546-4311-9ec1-5dfb0d4370a8"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[1384270, 35119, 166, 3, 53, "Section",ExpressionUUID->"867351f9-5484-4126-a47d-d94d902b177f"],
Cell[CellGroupData[{
Cell[1384461, 35126, 219, 4, 30, "Input",ExpressionUUID->"c96a094c-792b-4f3b-b88a-257150e53b4d"],
Cell[1384683, 35132, 668, 18, 34, "Output",ExpressionUUID->"815d118e-e5e2-48dd-9196-8cef603f7089"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1385388, 35155, 318, 7, 30, "Input",ExpressionUUID->"a4728552-95a4-4d02-ad9f-2afcc771ffe9"],
Cell[1385709, 35164, 966, 28, 94, "Output",ExpressionUUID->"687f4a85-5482-4ef7-bfe5-66ff1dedde2d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1386712, 35197, 216, 4, 30, "Input",ExpressionUUID->"bfc853bc-7a80-4bb2-a9bb-b155863bcc13"],
Cell[1386931, 35203, 808, 24, 94, "Output",ExpressionUUID->"ad05c26f-3398-40c2-8c00-8ffa206125fa"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1387776, 35232, 339, 9, 30, "Input",ExpressionUUID->"6c686fac-1ff8-4172-a22d-fb357e80d4bd"],
Cell[1388118, 35243, 507, 14, 34, "Output",ExpressionUUID->"59e488f2-beff-4c12-9b3e-4453a8566eb7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1388662, 35262, 310, 7, 30, "Input",ExpressionUUID->"21a4a468-1f8e-47b4-bdd3-f2f33af9260e"],
Cell[1388975, 35271, 1322, 41, 34, "Output",ExpressionUUID->"43af47e4-f58c-4932-a1f4-b2d826a7027c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1390334, 35317, 373, 9, 30, "Input",ExpressionUUID->"8caf2543-ffc1-4d3e-9df4-54fd14da029f"],
Cell[1390710, 35328, 2257, 63, 83, "Output",ExpressionUUID->"a29add8c-7740-4f3e-bc93-dceb2249a4bb"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1393004, 35396, 365, 9, 30, "Input",ExpressionUUID->"5274f2db-86e4-43eb-a73b-f53200b8d399"],
Cell[1393372, 35407, 229, 4, 34, "Output",ExpressionUUID->"c1f70cbf-a0a6-43fe-8b91-80af5cd9ebf7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1393638, 35416, 367, 9, 30, "Input",ExpressionUUID->"b8ae2771-fb67-4561-8e3b-579c20e20adf"],
Cell[1394008, 35427, 224, 4, 34, "Output",ExpressionUUID->"6bb81749-2a83-42d7-b3bd-2679a48e28a7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1394269, 35436, 375, 9, 30, "Input",ExpressionUUID->"a149c725-3af3-4104-8fa6-7b2cf6150a28"],
Cell[1394647, 35447, 229, 4, 34, "Output",ExpressionUUID->"ae369c54-6783-42f0-9adf-3dc86470893c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1394913, 35456, 357, 8, 30, "Input",ExpressionUUID->"9c39496b-3e3f-4eef-b547-02d2378c0c24"],
Cell[1395273, 35466, 227, 4, 34, "Output",ExpressionUUID->"f131022c-c7b1-47e8-a691-2ea4a4337343"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1395537, 35475, 188, 3, 30, "Input",ExpressionUUID->"883fb1e8-7e4c-4dd5-ad61-591e4577dcfa"],
Cell[1395728, 35480, 661, 17, 34, "Output",ExpressionUUID->"4b740ae4-047d-42c4-a464-ec420ed89be5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1396426, 35502, 332, 7, 30, "Input",ExpressionUUID->"9e894f20-26c5-41a7-938c-5eeb0c8ef40e"],
Cell[1396761, 35511, 228, 4, 34, "Output",ExpressionUUID->"353b237a-c88f-4fcb-926e-d77f6915ed61"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1397026, 35520, 325, 8, 30, "Input",ExpressionUUID->"cf4d0370-c174-456e-8b40-c9ceb56bae7f"],
Cell[1397354, 35530, 229, 4, 34, "Output",ExpressionUUID->"04b3202b-99a6-41b0-b0f9-538d91c9d841"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1397620, 35539, 236, 5, 30, "Input",ExpressionUUID->"17e1c53e-a51c-42df-a1f6-ec76bc17dcc4"],
Cell[1397859, 35546, 660, 17, 34, "Output",ExpressionUUID->"5d9a78be-e0de-4897-9407-e8092907a047"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1398556, 35568, 218, 4, 30, "Input",ExpressionUUID->"82b5b273-9d7b-4fbe-b2a4-0bdca6a9309a"],
Cell[1398777, 35574, 656, 17, 34, "Output",ExpressionUUID->"f59f815b-04db-459c-b76e-fa53185babc7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1399470, 35596, 243, 5, 30, "Input",ExpressionUUID->"c99bfc8b-bca3-4464-b0fc-b05befb48c8c"],
Cell[1399716, 35603, 565, 14, 34, "Output",ExpressionUUID->"82fb246a-c455-441f-adf7-4f1791888b87"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1400318, 35622, 378, 9, 30, "Input",ExpressionUUID->"a30636f3-1032-4db1-80a6-5d8033af4392"],
Cell[1400699, 35633, 281, 5, 57, "Output",ExpressionUUID->"733c214c-3dd6-46e3-b65e-7dedc4f712e0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1401017, 35643, 1000, 30, 125, "Input",ExpressionUUID->"0955fa9e-d286-4100-b7ce-41ef90bd0b58"],
Cell[1402020, 35675, 762, 22, 50, "Output",ExpressionUUID->"c73cf21a-b5ac-4a74-8401-93442cbad18e"],
Cell[1402785, 35699, 759, 21, 50, "Output",ExpressionUUID->"eef9e5a3-effb-4cdf-af41-cc4dac1d3097"],
Cell[1403547, 35722, 760, 22, 50, "Output",ExpressionUUID->"5273d0ac-4215-4882-81d8-204e3d75b2b7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1404344, 35749, 318, 7, 30, "Input",ExpressionUUID->"05309d17-70a0-41fe-bc88-bffbf00b4967"],
Cell[1404665, 35758, 231, 4, 34, "Output",ExpressionUUID->"6ce96e06-e8b5-4866-b7af-df74de67d56d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1404933, 35767, 356, 8, 30, "Input",ExpressionUUID->"92ff637e-9a92-4d25-8ecb-2014ee0dd28f"],
Cell[1405292, 35777, 229, 4, 34, "Output",ExpressionUUID->"8258c771-d908-4ee8-9b23-4dba753db04a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1405558, 35786, 356, 8, 30, "Input",ExpressionUUID->"c7d0aea9-b659-45b4-bf5e-42c77570b423"],
Cell[1405917, 35796, 226, 4, 34, "Output",ExpressionUUID->"e8709a58-41f3-4d10-b8ad-eef2a7862a91"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1406180, 35805, 358, 8, 30, "Input",ExpressionUUID->"5bca0d8d-df29-485c-bf87-7dfd120487f2"],
Cell[1406541, 35815, 226, 4, 34, "Output",ExpressionUUID->"a69adca2-0ea0-4c29-bfec-5e59c23a590f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1406804, 35824, 355, 9, 47, "Input",ExpressionUUID->"aeec6083-d8a5-434f-94d2-608ca41c27e2"],
Cell[1407162, 35835, 229, 4, 34, "Output",ExpressionUUID->"0ab6643b-51b7-4942-9dd7-ae9df03cac5a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1407428, 35844, 355, 9, 47, "Input",ExpressionUUID->"adc5e456-2849-4fe9-b839-30751fb2c4c0"],
Cell[1407786, 35855, 229, 4, 34, "Output",ExpressionUUID->"782ed23a-554a-49e8-86e9-6c1350120c64"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1408052, 35864, 353, 9, 47, "Input",ExpressionUUID->"d1248931-0bcd-432f-a3b7-c213060bf5ea"],
Cell[1408408, 35875, 226, 4, 34, "Output",ExpressionUUID->"bd804761-db76-4dbf-a051-4a70b9f4b591"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1408671, 35884, 337, 7, 30, "Input",ExpressionUUID->"0e85c406-eb86-4fa9-b535-02113968e8e4"],
Cell[1409011, 35893, 261, 5, 34, "Output",ExpressionUUID->"b740d000-5cbb-4497-b7e8-6ef3e78f64ca"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1409309, 35903, 402, 11, 47, "Input",ExpressionUUID->"38bbcc65-9f61-4711-9543-7389979f2041"],
Cell[1409714, 35916, 229, 4, 34, "Output",ExpressionUUID->"3f90640d-6b92-4a61-8b6c-01a5ff75f731"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1409980, 35925, 419, 11, 47, "Input",ExpressionUUID->"6606803d-38e9-4702-8331-3899340c9527"],
Cell[1410402, 35938, 254, 5, 34, "Output",ExpressionUUID->"b5823ecc-cba0-4a9d-af18-e8bcdfee148c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1410693, 35948, 459, 13, 47, "Input",ExpressionUUID->"1d457f2e-cfbe-4e62-b6a5-f3d147c6784a"],
Cell[1411155, 35963, 253, 4, 34, "Output",ExpressionUUID->"57665bcf-8e37-4abb-98e5-ac90d660f300"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1411445, 35972, 250, 5, 30, "Input",ExpressionUUID->"b803c677-ffb6-408a-b191-fa965c007516"],
Cell[1411698, 35979, 864, 24, 94, "Output",ExpressionUUID->"43c617cb-3b0a-4b09-af93-0938e091afcb"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[1412611, 36009, 162, 3, 53, "Section",ExpressionUUID->"0a815dc9-c93d-40ff-a58e-1643e437a5e8"],
Cell[CellGroupData[{
Cell[1412798, 36016, 223, 4, 30, "Input",ExpressionUUID->"6f0b492b-2cea-44dd-9be7-cd8c7bfb353f"],
Cell[1413024, 36022, 1139, 16, 245, "Output",ExpressionUUID->"5514da41-3e2d-4742-85c7-36eb02ad26d3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1414200, 36043, 180, 3, 30, "Input",ExpressionUUID->"3ae0ec75-9032-4a98-b6de-8f803ec6d77b"],
Cell[1414383, 36048, 228, 4, 34, "Output",ExpressionUUID->"724542ee-8047-4f24-9ae6-5f1722e7cb2f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1414648, 36057, 213, 4, 30, "Input",ExpressionUUID->"edccc53c-7770-43f9-9046-39cba6c4d2b5"],
Cell[1414864, 36063, 577, 13, 37, "Output",ExpressionUUID->"619fca11-4f59-42c3-9128-5907bf18d25d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1415478, 36081, 216, 4, 30, "Input",ExpressionUUID->"079887a2-9b33-4225-891c-9e8e417a2ae6"],
Cell[1415697, 36087, 665, 19, 37, "Output",ExpressionUUID->"c2ed69ef-c5b3-409b-abb0-0a8fee998ae5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1416399, 36111, 212, 4, 30, "Input",ExpressionUUID->"a4a37eef-ecc9-44f2-9840-b699fb635370"],
Cell[1416614, 36117, 602, 14, 37, "Output",ExpressionUUID->"fa0d28b0-44ea-43a0-bbb8-f3bd9db34b3c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1417253, 36136, 216, 4, 30, "Input",ExpressionUUID->"6562d0bf-d9d3-4d8b-9264-6671e7700a9a"],
Cell[1417472, 36142, 646, 17, 37, "Output",ExpressionUUID->"f85a56e9-74e5-4e36-a0ce-49c60332aa60"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1418155, 36164, 214, 4, 30, "Input",ExpressionUUID->"b73e0040-d8ce-47c0-9320-ab33ba4c0207"],
Cell[1418372, 36170, 634, 17, 37, "Output",ExpressionUUID->"551565a1-e656-4573-bfcb-345f79123fe8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1419043, 36192, 311, 8, 30, "Input",ExpressionUUID->"1d9e9401-e5b0-4f53-9a65-993e9a862db0"],
Cell[1419357, 36202, 225, 4, 34, "Output",ExpressionUUID->"eebe581e-3a7d-4fee-9272-8309b09fbe67"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1419619, 36211, 212, 4, 30, "Input",ExpressionUUID->"f078f6bc-2ea3-4b9e-844d-c7b67f541b06"],
Cell[1419834, 36217, 389, 10, 34, "Output",ExpressionUUID->"ddfa02b7-0cd8-4b42-9341-8ceefff55c93"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1420260, 36232, 212, 4, 30, "Input",ExpressionUUID->"345766e9-51cc-475f-8320-979548908e62"],
Cell[1420475, 36238, 7949, 213, 140, "Output",ExpressionUUID->"3343bf72-2b2b-45cd-9299-4bc0d602071c"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[1428473, 36457, 158, 3, 53, "Section",ExpressionUUID->"0e006476-0dbc-459b-89be-cf00ba45e3a9"],
Cell[CellGroupData[{
Cell[1428656, 36464, 781, 17, 30, "Input",ExpressionUUID->"85c29528-2de7-4ed7-92bf-8cf1e2fe30bc"],
Cell[1429440, 36483, 1201, 29, 110, "Output",ExpressionUUID->"4719fe98-d29d-49d3-a3cf-558690651028"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)