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

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

(* CreatedBy='Mathematica 11.2' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    804495,      20341]
NotebookOptionsPosition[    747153,      18908]
NotebookOutlinePosition[    747672,      18928]
CellTagsIndexPosition[    747629,      18925]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["N!=4.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}, {3.7567526585157413`*^9, 
   3.756752664050023*^9}},ExpressionUUID->"dfab12f3-523a-4891-ab6d-\
6353bcfa0aa5"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"$RecursionLimit", "=", "Infinity"}]], "Input",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.7567527653719616`*^9, 
   3.756753129071025*^9, 3.7567532398233433`*^9, 3.757002205389352*^9, 
   3.757002323256246*^9, 
   3.75700315985564*^9},ExpressionUUID->"a90e92ba-7117-481e-8736-\
6f247bae7094"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Import Adinkra package", "Section",
 CellChangeTimes->{{3.7108088373262444`*^9, 3.7108088416734924`*^9}, {
  3.742443794211779*^9, 3.7424437981540127`*^9}, {3.742447582747436*^9, 
  3.742447583928364*^9}, {3.7567334737765293`*^9, 
  3.7567334765110493`*^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.756733429820123*^9, 
  3.7567334324120774`*^9}},ExpressionUUID->"3ce86a4c-e50b-42b6-b6ba-\
cfca0898781a"],

Cell[CellGroupData[{

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

Cell[BoxData["181216"], "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.7567334173087854`*^9, 3.7567334461477823`*^9}, 
   3.7567527655549107`*^9, 3.7567531292538414`*^9, 3.756753240208358*^9, 
   3.7570022055105553`*^9, {3.757002301867374*^9, 3.75700232335045*^9}, 
   3.757003159930353*^9},ExpressionUUID->"b1ddad5a-fdd3-4aba-a306-\
88ee393fbcbf"]
}, 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},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.756752765650764*^9, 3.756753129290708*^9, 
   3.7567532402727304`*^9, 3.7570022055279083`*^9, {3.757002301897297*^9, 
   3.757002323375661*^9}, 
   3.757003159945302*^9},ExpressionUUID->"124f2a5f-3a80-4d2c-bf3f-\
1028b3cef6d5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FunctionList", "[", "GenerateLandR", "]"}]], "Input",
 CellChangeTimes->{{3.711385162397755*^9, 3.711385168130083*^9}, 
   3.737162730827726*^9, 
   3.742400996260387*^9},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.7567527656903534`*^9, 3.756753129328882*^9, 3.756753240314332*^9, 
   3.757002205542521*^9, {3.757002301923888*^9, 3.7570023234002647`*^9}, 
   3.757003159957469*^9},ExpressionUUID->"df78bff2-f32a-43cb-a699-\
565fd0037d40"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FunctionList", "[", "AdinkraEssentials", "]"}]], "Input",
 CellChangeTimes->{{3.7108090604950085`*^9, 
  3.710809067253395*^9}},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.7567527657357903`*^9, 3.7567531293532667`*^9, 3.7567532403445597`*^9, 
   3.757002205557149*^9, {3.757002301948392*^9, 3.757002323423058*^9}, 
   3.757003159970978*^9},ExpressionUUID->"b5e2d9c9-607b-4d89-a67e-\
b634a22818a7"]
}, 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},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_]\\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.7567527657709904`*^9, 3.7567531294033446`*^9, 3.7567532403798723`*^9, 
   3.757002205572659*^9, {3.757002301974008*^9, 3.757002323446012*^9}, 
   3.757003159983707*^9},ExpressionUUID->"b667f532-82b0-46de-a905-\
8424330c31f2"]
}, 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}},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.756752765814987*^9, 3.756753129437518*^9, 3.756753240412462*^9, 
   3.7570022055872726`*^9, {3.757002301998521*^9, 3.757002323468463*^9}, 
   3.757003159995852*^9},ExpressionUUID->"7ebb4285-49dc-4c90-a85a-\
8db244bca5fb"]
}, 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}},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[L], \
GraphAdinkra[L,BuildRules[list], \
ExportAdinkra[L,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.7567527658616276`*^9, 3.7567531294761515`*^9, 3.756753240444399*^9, 
   3.757002205601219*^9, {3.75700230202374*^9, 3.757002323490973*^9}, 
   3.757003160008877*^9},ExpressionUUID->"085bd823-eb87-4dc9-8053-\
3d1576fa05ac"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FunctionList", "[", "Adinkra", "]"}]], "Input",
 CellChangeTimes->{{3.7424465936653976`*^9, 
  3.742446599983512*^9}},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_]\\n\\nPrint Functions:\\n PrintSigmaProduct[Matrix], \
PrintBasis[Matrix], PrintLBasis[Rep][II], PrintRBasis[Rep][II], \
PrintGALRBasis[Rep][II,JJ], PrintGARLBasis[Rep][II,JJ], \
PrintVBasis[Rep][II,JJ], PrintVtildeBasis[Rep][II,JJ], \
PrintVPMBasis[pm][Rep][II,JJ], PrintVtildePMBasis[pm][Rep][II,JJ], \
PrintLSigmaProduct[Rep], \
PrintRSigmaProduct[Rep]\\n\\n*************************************************\
***************************************\\n************************************\
****************************************************\\n\\nBC4Tools:\\n\\\
nIndexRange[BC4Tools][Index], Index = n, a, \[Mu], A, II, or \
tt\\n\\nFunctions: \\nHPerm[a], H[[a]], S3Perm[\[Mu]], S3[[\[Mu]]], \
VierPerm[A], Vier[[A]], BC4[[n,a,\[Mu],A,II,JJ]] , \
BC4Perm[n,a,\[Mu],A][[II,JJ]], QuaternionTestIJK[Quat], \
QuaternionTestKJI[Quat], Digit[Num,Pow], ell[Rep][tt,a][II,JJ], \
kappa[Rep][ti,a][II,JJ], IellABColor[Rep][[a]], PrintIell[Rep][[a]], \
IellABCode[Rep][[a]], AntisymmetryCheck[Object1], BC4Color[n,a,\[Mu],A][L], \
BC4ColorPerm[n,a,\[Mu],A][L],BC4Boson[n,a,\[Mu],A][L],BC4BosonPerm[n,a,\[Mu],\
A][L], HList,S3List,VierList,PrintBC4Perm[n,a,\[Mu],A],PrintBC4BosonPerm[n,a,\
\[Mu],A],PrintBC4FermionPerm[n,a,\[Mu],A],PrintBC4ColorPerm[n,a,\[Mu],A],L[Q],\
L[Qtilde],L[RepCode]\\n\\n****************************************************\
************************************\\n***************************************\
*************************************************\\n\\nGraphingTools:\\\
nIndexRange[GraphingTools][list]\\n\\n AdinkraGreen, AdinkraViolet, \
AdinkraOrange, AdinkraRed, padLmatrix[L], adjacencyToEdge[mat,col], \
buildrules[list], Valise, GraphAdinkra[L], GraphAdinkra[L,BuildRules[list], \
ExportAdinkra[L,BuildRules[list],filename]\\n\\n******************************\
**********************************************************\\n*****************\
***********************************************************************\"\>"],\
 "Output",
 CellChangeTimes->{
  3.750003234323081*^9, 3.75000980275079*^9, 3.7500138150289526`*^9, 
   3.750013899349115*^9, 3.750013955681652*^9, 3.750017992917305*^9, 
   3.7500183321126304`*^9, 3.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.756752765903324*^9, 3.7567531295131617`*^9, 
   3.756753240474118*^9, 3.757002205615655*^9, {3.757002302048008*^9, 
   3.757002323514168*^9}, 
   3.757003160021674*^9},ExpressionUUID->"293dc883-3e57-411f-ba46-\
cf2064efd41c"]
}, 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}},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.7567527659378843`*^9, 3.7567531296019487`*^9, 3.7567532405004816`*^9, 
   3.757002205629949*^9, {3.7570023020750027`*^9, 3.757002323538829*^9}, 
   3.7570031600344543`*^9},ExpressionUUID->"ef46c4e0-db83-4c9e-b8b7-\
3d4ba76f2014"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["Cmetric"], "Input",
 CellChangeTimes->{{3.750003357600115*^9, 
  3.750003358566908*^9}},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.7567527659709067`*^9, 3.7567531296378355`*^9, 
   3.7567532405389447`*^9, 3.757002205644075*^9, {3.757002302097722*^9, 
   3.757002323561942*^9}, 
   3.757003160046702*^9},ExpressionUUID->"686cd180-6673-4802-9971-\
b67a6a4b1ad5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Lap", "[", 
  RowBox[{"SomeField", "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.7500034669181023`*^9, 
  3.750003479050886*^9}},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.756752766002836*^9, 3.7567531296875706`*^9, 
   3.7567532405747337`*^9, 3.7570022056716423`*^9, {3.7570023021424217`*^9, 
   3.757002323585855*^9}, 
   3.75700316006021*^9},ExpressionUUID->"dbae6250-d8d4-4497-bb0d-\
0f65b18f5cb6"]
}, 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}},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.75675276603555*^9, 3.7567531297267356`*^9, 3.7567532406101274`*^9, 
   3.757002205687193*^9, {3.7570023021474037`*^9, 3.757002323609069*^9}, 
   3.757003160073332*^9},ExpressionUUID->"a81bbe20-5995-4f4f-a1e1-\
489a2249cd85"]
}, Open  ]]
}, Closed]],

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}},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.7567527660618553`*^9, 3.7567531297585115`*^9, 
   3.7567532406563873`*^9, 3.757002205701098*^9, {3.757002302172264*^9, 
   3.75700232363275*^9}, 
   3.7570031600878572`*^9},ExpressionUUID->"efead78f-748e-4ec2-924e-\
eb5a6ed9e942"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FunctionList", "[", "AdinkraEssentials", "]"}]], "Input",
 CellChangeTimes->{{3.750375653396105*^9, 
  3.750375660115147*^9}},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.756752766090156*^9, 3.75675312978652*^9, 
   3.756753240682171*^9, 3.757002205715622*^9, {3.757002302195971*^9, 
   3.757002323655108*^9}, 
   3.757003160100729*^9},ExpressionUUID->"51244e5f-c815-4b30-9626-\
92ed2ec3c2f6"]
}, Open  ]]
}, Closed]]
}, Closed]]
}, 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}},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}},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}},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.7567527661856527`*^9, 3.756753129904071*^9, 3.756753240773037*^9, 
  3.757002205746253*^9, 3.75700232368591*^9, 3.757002384512206*^9, 
  3.757003160127448*^9},ExpressionUUID->"ee66a043-ae9e-4e07-90b6-\
5528ede1590b"]
}, 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}},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.7567527662256813`*^9, 3.7567531299557686`*^9, 3.756753240811225*^9, 
  3.757002205761724*^9, 3.7570023237094173`*^9, 3.757002384546438*^9, 
  3.757003160141158*^9},ExpressionUUID->"f7c377e5-81c2-4b99-b56a-\
8218dd8c5c7b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"GenerateAdinkraDataO", "[", "Rep", "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.738503308817802*^9, 3.73850331945341*^9}, {
  3.742435189165392*^9, 
  3.742435213715021*^9}},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.7567527662716312`*^9, 3.756753130006503*^9, 3.7567532408497486`*^9, 
  3.7570022057887573`*^9, 3.75700232374041*^9, 3.757002384576748*^9, 
  3.757003160155691*^9},ExpressionUUID->"036d3996-b585-461b-a96a-\
26268228efbe"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraHoloMonoReport", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.747772402977326*^9, 
  3.747772407130816*^9}},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.7567527663061485`*^9, 3.7567531300538244`*^9, 3.756753240922762*^9, 
  3.757002205806684*^9, 3.75700232376759*^9, 3.757002384606073*^9, 
  3.7570031601691647`*^9},ExpressionUUID->"60d47203-83fd-4c21-a9e5-\
5da53863a731"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraReport", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.7385033449278674`*^9, 3.7385033497241416`*^9}, 
   3.7503766713230934`*^9},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.7567527663534555`*^9, 3.7567531300918474`*^9, 3.756753240949996*^9, 
  3.757002205821643*^9, 3.7570023237914743`*^9, 3.757002384633564*^9, 
  3.757003160185671*^9},ExpressionUUID->"4de6ec76-351e-45f2-b180-\
40fed4e459b0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraFullReport", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.73850436548024*^9, 
  3.7385043711275625`*^9}},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.756752766468688*^9, 3.7567531302539053`*^9, 3.756753241039153*^9, 
  3.757002205853319*^9, 3.7570023238322773`*^9, 3.75700238466042*^9, 
  3.75700316021762*^9},ExpressionUUID->"6b889fde-3ca1-453c-8f71-948fd765232c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintAllGALR", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.7525873962713175`*^9, 
  3.752587404790073*^9}},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}}, "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", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "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", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "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[{
       {"2", "0", "0", "0"},
       {"0", "2", "0", "0"},
       {"0", "0", "2", "0"},
       {"0", "0", "0", "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", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "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[{
       {"2", "0", "0", "0"},
       {"0", "2", "0", "0"},
       {"0", "0", "2", "0"},
       {"0", "0", "0", "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$]]]}], "}"}]], "Output",
 CellChangeTimes->{3.752587405307886*^9, 3.753914258484931*^9, 
  3.756752766553259*^9, 3.7567531302866445`*^9, 3.756753241074642*^9, 
  3.7570022058699827`*^9, 3.757002323856703*^9, 3.7570023846899853`*^9, 
  3.7570031602325277`*^9},ExpressionUUID->"611c3e3e-c7ba-42dd-9ee0-\
9c9295009fa0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintAllGARL", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.752587408214884*^9, 
  3.752587411798048*^9}},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}}, "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", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "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", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "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[{
       {"2", "0", "0", "0"},
       {"0", "2", "0", "0"},
       {"0", "0", "2", "0"},
       {"0", "0", "0", "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", "0"},
       {"0", "0", "0", "0"},
       {"0", "0", "0", "0"},
       {"0", "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[{
       {"2", "0", "0", "0"},
       {"0", "2", "0", "0"},
       {"0", "0", "2", "0"},
       {"0", "0", "0", "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$]]]}], "}"}]], "Output",
 CellChangeTimes->{3.752587412208486*^9, 3.753914258500551*^9, 
  3.7567527666000967`*^9, 3.7567531303098307`*^9, 3.7567532411095967`*^9, 
  3.7570022058853083`*^9, 3.757002323880519*^9, 3.7570023847173967`*^9, 
  3.757003160246356*^9},ExpressionUUID->"bf6410ac-1843-4ee1-b4cf-\
c5c54a212967"]
}, 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},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}}, "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"},
       {
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "1", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "1", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"1", "0", "0", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"},
       {
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"1", "0", "0", "0"},
       {"0", "0", "0", "1"},
       {"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", "0", "0", "1"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"0", "1", "0", "0"},
       {
        RowBox[{"-", "1"}], "0", "0", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"},
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "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.756752766637517*^9, 
  3.7567531303546968`*^9, 3.756753241156947*^9, 3.757002205901319*^9, 
  3.7570023239045963`*^9, 3.7570023847445297`*^9, 
  3.7570031602588587`*^9},ExpressionUUID->"5d86a07e-e355-4bf2-ab0c-\
f74b1fa2a3cf"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintAllHoloraumy", "[", "ThreeHypercube", "]"}]], "Input",
 CellChangeTimes->{{3.7473997158533115`*^9, 
  3.747399715859302*^9}},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}}, "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"},
       {
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "1", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "1", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"1", "0", "0", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"},
       {
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"1", "0", "0", "0"},
       {"0", "0", "0", "1"},
       {"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", "0", "0", "1"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"0", "1", "0", "0"},
       {
        RowBox[{"-", "1"}], "0", "0", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"},
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "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.756752766668824*^9, 
  3.7567531303895426`*^9, 3.7567532411886654`*^9, 3.757002205917199*^9, 
  3.757002323929592*^9, 3.757002384773204*^9, 
  3.757003160266634*^9},ExpressionUUID->"cec8c751-4680-4a3d-9818-\
cc749e126712"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintAllMonodromy", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.7388847646742535`*^9, 3.7388847686639524`*^9}, 
   3.7473998071195755`*^9},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}}, "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"},
       {"1", "0", "0", "0"},
       {"0", "0", "0", "1"},
       {"0", "0", "1", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "1"},
       {"0", "0", "1", "0"},
       {"0", "1", "0", "0"},
       {"1", "0", "0", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"},
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"},
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "1", "0", "0"},
       {"1", "0", "0", "0"},
       {"0", "0", "0", "1"},
       {"0", "0", "1", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "1"},
       {"0", "0", "1", "0"},
       {"0", "1", "0", "0"},
       {"1", "0", "0", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"},
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "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.7567527667038417`*^9, 
  3.756753130437623*^9, 3.756753241226433*^9, 3.7570022059332123`*^9, 
  3.757002323954673*^9, 3.7570023848003607`*^9, 
  3.757003160281315*^9},ExpressionUUID->"4c4b92c5-3e7f-4fa6-866b-\
f1e662d94e74"]
}, 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}},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}},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}},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.7567527667920246`*^9, 
  3.756753130519244*^9, 3.7567532413270273`*^9, 3.757002205955226*^9, 
  3.7570023239844723`*^9, 3.757002384856078*^9, 
  3.757003160304051*^9},ExpressionUUID->"85d24c5c-1658-4281-9287-\
4c791ca694e5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"GenerateAdinkraDataO", "[", "Rep", "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.738503308817802*^9, 3.73850331945341*^9}, {
  3.742435189165392*^9, 
  3.742435213715021*^9}},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.7567527668266406`*^9, 
  3.7567531305531783`*^9, 3.756753241359932*^9, 3.7570022059723988`*^9, 
  3.757002324009673*^9, 3.757002384882814*^9, 
  3.757003160314129*^9},ExpressionUUID->"0cd55c72-c799-481f-86bd-\
9cfc0114a57d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraPreliminaryReport", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.7385033449278674`*^9, 3.7385033497241416`*^9}, {
  3.7424125166514177`*^9, 
  3.7424125218916388`*^9}},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.7567527668559237`*^9, 
  3.7567531305878773`*^9, 3.7567532413972907`*^9, 3.757002205988061*^9, 
  3.757002324034719*^9, 3.757002384909059*^9, 
  3.7570031603245087`*^9},ExpressionUUID->"738f6300-7bfb-4fba-aae5-\
fb5b9603b44c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraReport", "[", 
  RowBox[{"Rep", ",", "0"}], "]"}]], "Input",
 CellChangeTimes->{{3.750377714974767*^9, 
  3.750377728489605*^9}},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.7567527668875694`*^9, 
  3.756753130621039*^9, 3.756753241424611*^9, 3.757002206003497*^9, 
  3.7570023240588083`*^9, 3.7570023849365053`*^9, 
  3.757003160334861*^9},ExpressionUUID->"cf545477-8263-4f91-b1f8-\
3b55280aad30"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraReport", "[", 
  RowBox[{"Rep", ",", "1"}], "]"}]], "Input",
 CellChangeTimes->{{3.750377714974767*^9, 
  3.7503777398253336`*^9}},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.756752766917905*^9, 3.756753130661854*^9, 3.7567532414738884`*^9, 
   3.7570022060193243`*^9, 3.757002324084454*^9, 3.75700238496314*^9, 
   3.7570031603447533`*^9},ExpressionUUID->"418cdccd-4d8d-4064-85e3-\
d25d2ecd2a0a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraReport", "[", 
  RowBox[{"Rep", ",", "2"}], "]"}]], "Input",
 CellChangeTimes->{{3.750377714974767*^9, 
  3.7503777446284904`*^9}},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.756752766943926*^9, 3.7567531307043905`*^9, 3.756753241512769*^9, 
   3.7570022060361767`*^9, 3.7570023241095343`*^9, 3.757002384990601*^9, 
   3.757003160355365*^9},ExpressionUUID->"76fd83bd-9d19-497d-8d76-\
8930ed294478"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraReport", "[", 
  RowBox[{"Rep", ",", "3"}], "]"}]], "Input",
 CellChangeTimes->{{3.750377714974767*^9, 
  3.7503777516926093`*^9}},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.7567527669738035`*^9, 3.756753130736959*^9, 3.756753241552864*^9, 
   3.757002206053577*^9, 3.757002324136528*^9, 3.7570023850179243`*^9, 
   3.757003160365622*^9},ExpressionUUID->"82b7a45e-cd3d-48ad-b304-\
48a0fc329ac9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraReport", "[", 
  RowBox[{"Rep", ",", "4"}], "]"}]], "Input",
 CellChangeTimes->{{3.750377714974767*^9, 3.750377728489605*^9}, 
   3.7503777624927382`*^9},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.7567527670062785`*^9, 3.7567531307701597`*^9, 3.7567532415942554`*^9, 
  3.7570022060759687`*^9, 3.7570023241673403`*^9, 3.757002385044949*^9, 
  3.757003160379922*^9},ExpressionUUID->"79f6cb7a-5424-4ea6-a866-\
8aa819e4c186"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraReport", "[", 
  RowBox[{"Rep", ",", "5"}], "]"}]], "Input",
 CellChangeTimes->{{3.750377714974767*^9, 3.750377728489605*^9}, 
   3.7503777703925877`*^9},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.756752767041572*^9, 3.756753130804288*^9, 3.75675324166405*^9, 
  3.7570022060989733`*^9, 3.7570023241987057`*^9, 3.7570023850730143`*^9, 
  3.757003160400154*^9},ExpressionUUID->"dd71c6ee-4875-4e73-90e6-\
d3351fba6cd4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraReport", "[", 
  RowBox[{"Rep", ",", "6"}], "]"}]], "Input",
 CellChangeTimes->{{3.750377714974767*^9, 3.750377728489605*^9}, 
   3.7503777771575036`*^9},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.756752767101028*^9, 3.756753130837372*^9, 3.7567532417072873`*^9, 
  3.75700220612306*^9, 3.757002324231592*^9, 3.757002385100285*^9, 
  3.757003160420863*^9},ExpressionUUID->"f173c2a9-c5f7-4e56-9d49-\
ccbd821525eb"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraReport", "[", 
  RowBox[{"Rep", ",", "7"}], "]"}]], "Input",
 CellChangeTimes->{{3.750377714974767*^9, 3.750377728489605*^9}, 
   3.7503777815687428`*^9},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.756752767145338*^9, 3.7567531309036055`*^9, 3.756753241791614*^9, 
  3.757002206147348*^9, 3.757002324264614*^9, 3.75700238512717*^9, 
  3.757003160441751*^9},ExpressionUUID->"9b7ce7ef-5e98-45b7-a76c-\
914fc21fafc5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraReport", "[", 
  RowBox[{"Rep", ",", "8"}], "]"}]], "Input",
 CellChangeTimes->{{3.750377714974767*^9, 3.750377728489605*^9}, 
   3.750377785881216*^9},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.756752767226114*^9, 3.7567531309766083`*^9, 3.7567532419280095`*^9, 
  3.7570022061779346`*^9, 3.757002324335372*^9, 3.757002385155382*^9, 
  3.7570031604727793`*^9},ExpressionUUID->"b5d737cc-4d04-48ae-9cde-\
7eabfcfb3824"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraSummaryReport", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.7385033449278674`*^9, 
  3.7385033497241416`*^9}},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.756752767292035*^9, 
  3.7567531310359983`*^9, 3.7567532420723815`*^9, 3.757002206200719*^9, 
  3.757002324371003*^9, 3.757002385184329*^9, 
  3.757003160492709*^9},ExpressionUUID->"7b1caea3-152a-4dbf-9fd2-\
949244b55e76"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraFullReport", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.73850436548024*^9, 
  3.7385043711275625`*^9}},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.756752767358244*^9, 
  3.756753131112673*^9, 3.7567532421555667`*^9, 3.757002206231303*^9, 
  3.757002324413149*^9, 3.757002385212047*^9, 
  3.757003160522101*^9},ExpressionUUID->"9cc1d624-7c28-487f-86a5-\
1b099a58bd23"]
}, 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},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}}, "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", "1"},
       {
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "1", "0", "0"},
       {
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "1", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "1", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"1", "0", "0", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   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}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"1", "0", "0", "0"},
       {"0", "0", "0", "1"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"},
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "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.75675276738549*^9, 
  3.7567531312198343`*^9, 3.7567532422060256`*^9, 3.7570022062453403`*^9, 
  3.757002324437085*^9, 3.757002385240815*^9, 
  3.757003160535565*^9},ExpressionUUID->"6d012a6d-8a27-45f2-b690-\
4538fcf0d04e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintAllMonodromy", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.7388847646742535`*^9, 3.7388847686639524`*^9}, 
   3.747399809554245*^9},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}}, "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", "1"},
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "1", "0", "0"},
       {"1", "0", "0", "0"},
       {"0", "0", "0", "1"},
       {"0", "0", "1", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"},
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "1"},
       {"0", "0", "1", "0"},
       {"0", "1", "0", "0"},
       {"1", "0", "0", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"},
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "1", "0", "0"},
       {"1", "0", "0", "0"},
       {"0", "0", "0", "1"},
       {"0", "0", "1", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"},
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "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.7567527674363956`*^9, 
  3.7567531312530236`*^9, 3.756753242240284*^9, 3.757002206260133*^9, 
  3.757002324461096*^9, 3.757002385268074*^9, 
  3.757003160546261*^9},ExpressionUUID->"612af8f7-24b0-4fc8-b75c-\
f883c585292f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintHoloraumy", "[", "Rep", "]"}], "[", 
  RowBox[{"{", 
   RowBox[{"1", ",", "1", ",", "1"}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.747400027074361*^9, 
  3.7474000425468225`*^9}},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}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.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.756752767467887*^9, 
  3.7567531312777395`*^9, 3.756753242289245*^9, 3.757002206274515*^9, 
  3.757002324485301*^9, 3.7570023852726297`*^9, 
  3.757003160552085*^9},ExpressionUUID->"96c743f9-f81e-45fa-8031-\
1597f1d413eb"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintMonodromy", "[", "Rep", "]"}], "[", 
  RowBox[{"{", 
   RowBox[{"1", ",", "1", ",", "1"}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.747400027074361*^9, 
  3.7474000664823837`*^9}},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}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.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.7567527675046883`*^9, 
  3.756753131302783*^9, 3.756753242324375*^9, 3.757002206290423*^9, 
  3.7570023245089397`*^9, 3.7570023852992*^9, 
  3.757003160561962*^9},ExpressionUUID->"f9e7e879-c81c-4da2-9508-\
cf787957a7f4"]
}, 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}},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}},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}},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.7567527676531444`*^9, 
  3.756753131387089*^9, 3.7567532424137945`*^9, 3.7570022063128853`*^9, 
  3.757002324538877*^9, 3.7570023853381567`*^9, 
  3.757003160583786*^9},ExpressionUUID->"05f537b5-8926-426b-aa3d-\
ff8bc932c7f6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"GenerateAdinkraDataO", "[", "Rep", "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.738503308817802*^9, 3.73850331945341*^9}, {
  3.742435189165392*^9, 
  3.742435213715021*^9}},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.756752767686414*^9, 
  3.756753131419835*^9, 3.756753242450099*^9, 3.757002206328939*^9, 
  3.7570023245733423`*^9, 3.757002385365385*^9, 
  3.757003160593676*^9},ExpressionUUID->"920fad28-1fb6-417b-83a7-\
2b3ff41f4c31"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraPreliminaryReport", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.7385033449278674`*^9, 3.7385033497241416`*^9}, {
  3.7424125166514177`*^9, 
  3.7424125218916388`*^9}},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.756752767722658*^9, 
  3.756753131453096*^9, 3.756753242489116*^9, 3.757002206344172*^9, 
  3.757002324602096*^9, 3.757002385392433*^9, 
  3.757003160604742*^9},ExpressionUUID->"e9845ad4-ef4c-4527-b0af-\
fb72dec36210"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraReport", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.7385033449278674`*^9, 3.7385033497241416`*^9}, 
   3.750376674146546*^9},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.756752767768878*^9, 
  3.756753131504022*^9, 3.7567532425240803`*^9, 3.7570022063587418`*^9, 
  3.7570023246279593`*^9, 3.757002385420405*^9, 
  3.757003160614415*^9},ExpressionUUID->"17e94050-4d1b-4b69-ac7e-\
c2218256aa1e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraFullReport", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.73850436548024*^9, 
  3.7385043711275625`*^9}},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.7567527678523273`*^9, 
  3.75675313158825*^9, 3.7567532426228333`*^9, 3.757002206390818*^9, 
  3.757002324668812*^9, 3.757002385447344*^9, 
  3.7570031606384993`*^9},ExpressionUUID->"a756bcee-4bfb-4d6d-ae31-\
0991e28ceb58"]
}, 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},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}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "1"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"0", "1", "0", "0"},
       {
        RowBox[{"-", "1"}], "0", "0", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"1", "0", "0", "0"},
       {"0", "0", "0", "1"},
       {"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", "0", "1", "0"},
       {"0", "0", "0", "1"},
       {
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "1", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"1", "0", "0", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"},
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "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.7567527678844967`*^9, 
  3.7567531316207457`*^9, 3.7567532426559334`*^9, 3.757002206406352*^9, 
  3.757002324692305*^9, 3.75700238547433*^9, 
  3.7570031606523647`*^9},ExpressionUUID->"674f05a9-8928-4160-83f7-\
1bb41dc1d426"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintAllMonodromy", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.7388847646742535`*^9, 3.7388847686639524`*^9}, 
   3.747399811826265*^9},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}}, "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", "1"},
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "1"},
       {"0", "0", "1", "0"},
       {"0", "1", "0", "0"},
       {"1", "0", "0", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"},
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "1", "0", "0"},
       {"1", "0", "0", "0"},
       {"0", "0", "0", "1"},
       {"0", "0", "1", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"},
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "1"},
       {"0", "0", "1", "0"},
       {"0", "1", "0", "0"},
       {"1", "0", "0", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"},
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "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.756752767917861*^9, 
  3.7567531316541314`*^9, 3.756753242706257*^9, 3.75700220645223*^9, 
  3.75700232471812*^9, 3.757002385513385*^9, 
  3.757003160662961*^9},ExpressionUUID->"e6c730a8-dc28-4370-bc57-\
f34bf74d4147"]
}, 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}},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}},ExpressionUUID->"6966d13b-e33c-4fcf-9190-\
77ce8f71562d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintLSigmaProduct", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.738983651754552*^9, 
  3.738983656708165*^9}},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.7567527680351114`*^9, 
  3.7567531317702417`*^9, 3.756753242849408*^9, 3.757002206490732*^9, 
  3.757002324760487*^9, 3.757002385585865*^9, 
  3.7570031606947603`*^9},ExpressionUUID->"fbeb9b0b-120c-4e03-8f0a-\
e9b1c5bc4c27"]
}, 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},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.7567527681517973`*^9, 
  3.7567531318472424`*^9, 3.7567532429842715`*^9, 3.7570022065357924`*^9, 
  3.757002324811574*^9, 3.7570023856420927`*^9, 
  3.757003160735593*^9},ExpressionUUID->"62c56aad-abc2-4707-842d-\
9530d85e9d27"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraReport", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.7385033449278674`*^9, 3.7385033497241416`*^9}, 
   3.750376676162185*^9},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.7567527681735353`*^9, 
  3.756753131869525*^9, 3.7567532430599194`*^9, 3.757002206551262*^9, 
  3.757002324839551*^9, 3.7570023856709213`*^9, 
  3.757003160746921*^9},ExpressionUUID->"e7d6881f-456f-4239-8993-\
f5900a47e21f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraFullReport", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.73850436548024*^9, 
  3.7385043711275625`*^9}},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.756752770067703*^9, 
  3.7567531337133837`*^9, 3.756753244877236*^9, 3.757002207179942*^9, 
  3.7570023254877253`*^9, 3.757002386318165*^9, 
  3.757003161362586*^9},ExpressionUUID->"3a127dba-bf22-47ea-8a6c-\
b86c0218371c"]
}, 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},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}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "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}}, "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", "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}}, "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"},
       {
        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}}, "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", "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}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "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}}, "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", "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}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "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}}, "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", "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}}, "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", "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}}, "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", "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}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "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}}, "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", "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}}, "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", 
        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}}, "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", "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}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0", "0", "0", "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}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{3.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.756752770235585*^9, 
  3.756753133870056*^9, 3.756753245021319*^9, 3.757002207199869*^9, 
  3.757002325535054*^9, 3.757002386349854*^9, 
  3.757003161403234*^9},ExpressionUUID->"25566c19-2570-48f8-99bb-\
a39f88ad2213"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintAllMonodromy", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.7388847646742535`*^9, 3.7388847686639524`*^9}, 
   3.747399813928256*^9},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}}, "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", "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}}, "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", "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}}, "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"},
       {"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}}, "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", "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}}, "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", "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}}, "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", "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}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0", "0", "0", "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}}, "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", "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}}, "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", "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}}, "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", "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}}, "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"},
       {"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}}, "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", "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}}, "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", "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}}, "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", "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}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0", "0", "0", "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}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{3.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.756752770336725*^9, 
  3.756753133970387*^9, 3.7567532451039886`*^9, 3.757002207219448*^9, 
  3.7570023255692587`*^9, 3.757002386382778*^9, 
  3.757003161423525*^9},ExpressionUUID->"47d800ac-2ff9-4b14-8b1a-\
058dd9927568"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FunctionList", "[", "AdinkraEssentials", "]"}]], "Input",
 CellChangeTimes->{{3.7473999085422115`*^9, 
  3.7473999216988993`*^9}},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.7567527703795586`*^9, 
  3.756753134021308*^9, 3.756753245145114*^9, 3.75700220723374*^9, 
  3.757002325594953*^9, 3.757002386410686*^9, 
  3.757003161437002*^9},ExpressionUUID->"5c4806e1-1dcd-4927-94df-\
4062495f7e5c"]
}, 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}},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.756752770418702*^9, 
  3.756753134058504*^9, 3.756753245174458*^9, 3.7570022072476397`*^9, 
  3.757002325619547*^9, 3.7570023864391947`*^9, 
  3.757003161447418*^9},ExpressionUUID->"13695251-1683-46bf-9a6a-\
626ac73a8cfe"]
}, 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}},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.7567527704699535`*^9, 
  3.7567531341028266`*^9, 3.7567532452235084`*^9, 3.7570022072617893`*^9, 
  3.75700232564507*^9, 3.7570023864669733`*^9, 
  3.7570031614586277`*^9},ExpressionUUID->"ebc4f912-0895-4728-a283-\
271cac55c2b0"]
}, 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}},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}},ExpressionUUID->"9ad4bb50-a902-46e4-a452-\
650256eb12a3"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintLSigmaProduct", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.738983651754552*^9, 
  3.738983656708165*^9}},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.7567527706071773`*^9, 
  3.7567531342282085`*^9, 3.756753245356711*^9, 3.757002207295803*^9, 
  3.757002325686407*^9, 3.757002386538973*^9, 
  3.757003161492474*^9},ExpressionUUID->"2375873e-2cd5-4e38-ae86-\
d921f22aea9d"]
}, 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},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.7567527707168303`*^9, 
  3.7567531343323193`*^9, 3.7567532454557266`*^9, 3.757002207337658*^9, 
  3.7570023257365217`*^9, 3.7570023865992737`*^9, 
  3.757003161532414*^9},ExpressionUUID->"490a4dd7-a30d-414a-b7a2-\
43fb089ce743"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraReport", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.7385033449278674`*^9, 3.7385033497241416`*^9}, 
   3.7503766790035934`*^9},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.7567527707376647`*^9, 
  3.756753134367202*^9, 3.7567532454894547`*^9, 3.75700220735389*^9, 
  3.757002325761339*^9, 3.757002386629752*^9, 
  3.757003161543663*^9},ExpressionUUID->"3a69f551-780d-4160-82e5-\
4a70e52c64a8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraFullReport", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.73850436548024*^9, 
  3.7385043711275625`*^9}},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.756752772701971*^9, 
  3.756753136054318*^9, 3.7567532472289925`*^9, 3.7570022079865637`*^9, 
  3.757002326383937*^9, 3.75700238723696*^9, 
  3.7570031621994553`*^9},ExpressionUUID->"18288c83-a405-48f7-9c71-\
9a6872aec1da"]
}, 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},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}}, "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", "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}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "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}}, "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", "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}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "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}}, "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"},
       {
        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}}, "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", "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}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "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}}, "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", "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}}, "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", "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}}, "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", 
        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}}, "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", "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}}, "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", "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}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "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}}, "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", "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}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0", "0", "0", "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}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{3.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.756752772869134*^9, 
  3.7567531361870193`*^9, 3.7567532473551736`*^9, 3.757002208022108*^9, 
  3.757002326412818*^9, 3.757002387270104*^9, 
  3.757003162219327*^9},ExpressionUUID->"2e3a6e0b-7ad8-4246-9886-\
4298b218543f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintAllMonodromy", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.7388847646742535`*^9, 3.7388847686639524`*^9}, 
   3.747399816708432*^9},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}}, "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", "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}}, "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", "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}}, "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", "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}}, "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", "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}}, "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"},
       {"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}}, "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", "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}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0", "0", "0", "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}}, "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", "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}}, "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", "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}}, "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", "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}}, "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", "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}}, "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", "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}}, "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"},
       {"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}}, "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", "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}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0", "0", "0", "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}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{3.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.756752772967866*^9, 
  3.7567531362528152`*^9, 3.756753247433858*^9, 3.757002208044052*^9, 
  3.757002326444661*^9, 3.757002387304285*^9, 
  3.757003162238553*^9},ExpressionUUID->"962e3e6a-9c52-4058-8cce-\
892628fce6bd"]
}, 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}},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.7567527730055733`*^9, 
  3.756753136277144*^9, 3.7567532474758067`*^9, 3.757002208059752*^9, 
  3.757002326467753*^9, 3.7570023873352737`*^9, 
  3.7570031622523537`*^9},ExpressionUUID->"5ed61972-1aef-4bd2-bf5c-\
eeabc7baa3eb"]
}, 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},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.756752773033642*^9, 
  3.756753136319206*^9, 3.7567532475227013`*^9, 3.757002208074482*^9, 
  3.757002326491165*^9, 3.757002387366064*^9, 
  3.757003162265419*^9},ExpressionUUID->"f14144b9-72b7-4b54-aeeb-\
37d2f6f375ca"]
}, 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}},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}},ExpressionUUID->"63871af7-a73c-4128-a593-\
cb71690947e3"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintLSigmaProduct", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.738983651754552*^9, 
  3.738983656708165*^9}},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.756752773217865*^9, 
  3.7567531364378605`*^9, 3.7567532477247257`*^9, 3.757002208106903*^9, 
  3.757002326554735*^9, 3.7570023874208603`*^9, 
  3.75700316230249*^9},ExpressionUUID->"cade3d7a-8c4f-4b41-9936-861cc71e23ac"]
}, 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},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.7567527733173847`*^9, 
  3.7567531365144234`*^9, 3.7567532478753247`*^9, 3.7570022081480913`*^9, 
  3.7570023266110077`*^9, 3.757002387477622*^9, 
  3.757003162350276*^9},ExpressionUUID->"c573dca5-baff-4d25-b30e-\
68273ec7a8f4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraReport", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.7385033449278674`*^9, 3.7385033497241416`*^9}, 
   3.7503766804028206`*^9},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.756752773341987*^9, 
  3.756753136539189*^9, 3.756753247916988*^9, 3.757002208163157*^9, 
  3.757002326637404*^9, 3.7570023875073442`*^9, 
  3.757003162364952*^9},ExpressionUUID->"32df1654-b0d9-48c9-a43b-\
1339b68b40a8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraFullReport", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.73850436548024*^9, 
  3.7385043711275625`*^9}},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.7567527751030293`*^9, 
  3.7567531383219967`*^9, 3.756753250221654*^9, 3.75700220877925*^9, 
  3.757002327269755*^9, 3.75700238817446*^9, 
  3.757003162998114*^9},ExpressionUUID->"09ae24ab-c4a3-461a-b897-\
792638efaab0"]
}, 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},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}}, "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", "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}}, "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", "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}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "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}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "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}}, "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", "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}}, "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", "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}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "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}}, "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", 
        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}}, "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", "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}}, "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", "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}}, "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"},
       {
        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}}, "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", "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}}, "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", "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}}, "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", "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}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0", "0", "0", "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}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{3.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.756752775250677*^9, 
  3.756753138485635*^9, 3.756753250388834*^9, 3.757002208798765*^9, 
  3.757002327298539*^9, 3.757002388205398*^9, 
  3.7570031630356493`*^9},ExpressionUUID->"3b0858dc-bd92-4e26-8b63-\
d03c776b3686"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintAllMonodromy", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.7388847646742535`*^9, 3.7388847686639524`*^9}, 
   3.747399818508487*^9},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}}, "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", "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}}, "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", "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}}, "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"},
       {"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}}, "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", "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}}, "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", "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}}, "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", "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}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0", "0", "0", "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}}, "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", "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}}, "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", "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}}, "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", "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}}, "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"},
       {"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}}, "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", "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}}, "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", "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}}, "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", "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}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0", "0", "0", "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}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{3.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.75675277531822*^9, 
  3.7567531385937786`*^9, 3.756753250488147*^9, 3.757002208818296*^9, 
  3.757002327328196*^9, 3.757002388241695*^9, 
  3.757003163057893*^9},ExpressionUUID->"38dc5aea-187c-4a87-825f-\
73ad8dad8196"]
}, 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}},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.756752775342842*^9, 
  3.7567531386383877`*^9, 3.7567532505553064`*^9, 3.757002208832693*^9, 
  3.757002327352309*^9, 3.757002388271667*^9, 
  3.757003163072699*^9},ExpressionUUID->"349cf553-a7cb-4c9d-a275-\
71afb9bbf933"]
}, 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},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.7567527754013186`*^9, 
  3.756753138668888*^9, 3.756753250605298*^9, 3.757002208846397*^9, 
  3.7570023273763514`*^9, 3.757002388299856*^9, 
  3.7570031630867968`*^9},ExpressionUUID->"c6e73414-3f0c-4a05-828c-\
9e0275b61a8a"]
}, 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}},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}},ExpressionUUID->"c9e6bc9a-213a-46b9-9d8b-\
b419a12937ec"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintLSigmaProduct", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.7389836838511815`*^9, 
  3.7389836895238023`*^9}},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.7567527755032797`*^9, 
  3.7567531387706904`*^9, 3.7567532507214603`*^9, 3.757002208866748*^9, 
  3.7570023274062843`*^9, 3.7570023883409233`*^9, 
  3.757003163110805*^9},ExpressionUUID->"89662c05-0299-4d74-9945-\
61b6fe743ed1"]
}, Open  ]],

Cell[CellGroupData[{

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

Cell[BoxData[
 TemplateBox[{
  "Solve","svars",
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"",2,
   331,88,24554975953154944330,"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.756752775601914*^9, 
  3.7567531388586473`*^9, 3.756753250840959*^9, 3.7570022088938007`*^9, 
  3.757002327443941*^9, 3.757002388371134*^9, 
  3.7570031631316957`*^9},ExpressionUUID->"db95d36c-11ed-40f6-ac69-\
df55bf882cff"],

Cell[BoxData[
 TemplateBox[{
  "Solve","svars",
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"",2,
   331,89,24554975953154944330,"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.756752775601914*^9, 
  3.7567531388586473`*^9, 3.756753250840959*^9, 3.7570022088938007`*^9, 
  3.757002327443941*^9, 3.757002388371134*^9, 
  3.757003163140649*^9},ExpressionUUID->"55b4a442-3c44-4193-aba4-\
b87a563a7364"],

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.756752775626469*^9, 
  3.7567531388680058`*^9, 3.756753250869111*^9, 3.757002208912977*^9, 
  3.757002327460561*^9, 3.757002388395767*^9, 
  3.7570031631512327`*^9},ExpressionUUID->"91c0bbf3-d6a3-4241-871f-\
fc291cda3426"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraReport", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.7385033449278674`*^9, 3.7385033497241416`*^9}, 
   3.750376681507894*^9},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.756752775651716*^9, 
  3.7567531389008512`*^9, 3.756753250895308*^9, 3.757002208927137*^9, 
  3.757002327483712*^9, 3.7570023884223623`*^9, 
  3.7570031631629763`*^9},ExpressionUUID->"ce7fe84d-9428-4393-8275-\
59b81edbf9c7"]
}, Open  ]],

Cell[CellGroupData[{

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

Cell[BoxData[
 TemplateBox[{
  "Solve","svars",
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"",2,
   333,90,24554975953154944330,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7503776556822405`*^9, 3.750378026179805*^9, 
  3.752520827829013*^9, 3.753914262876295*^9, 3.7567527756808386`*^9, 
  3.7567531389293036`*^9, 3.7567532509711213`*^9, 3.757002208941578*^9, 
  3.7570023275072317`*^9, 3.757002388450918*^9, 
  3.757003163178207*^9},ExpressionUUID->"b3a31c51-2473-4ae7-baee-\
998087a2c8cf"],

Cell[BoxData[
 TemplateBox[{
  "Solve","svars",
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"",2,
   333,91,24554975953154944330,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7503776556822405`*^9, 3.750378026179805*^9, 
  3.752520827829013*^9, 3.753914262876295*^9, 3.7567527756808386`*^9, 
  3.7567531389293036`*^9, 3.7567532509711213`*^9, 3.757002208941578*^9, 
  3.7570023275072317`*^9, 3.757002388450918*^9, 
  3.7570031631876917`*^9},ExpressionUUID->"b085e442-6404-485e-803a-\
523ad2816988"],

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.756752776286066*^9, 
  3.75675313944141*^9, 3.7567532514857783`*^9, 3.757002209136195*^9, 
  3.757002327688438*^9, 3.7570023886364603`*^9, 
  3.757003163373499*^9},ExpressionUUID->"644559a6-9200-4ebf-acd1-\
c3d0d6e8654e"]
}, 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},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}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"1", "0", "0", "0"},
       {"0", "0", "0", "1"},
       {"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"},
       {
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "1", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "1", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"1", "0", "0", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"},
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "1", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"1", "0", "0", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   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}}, "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"},
       {
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "1", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"1", "0", "0", "0"},
       {"0", "0", "0", "1"},
       {"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", "0", "1", "0"},
       {"0", "0", "0", "1"},
       {
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "1"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"0", "1", "0", "0"},
       {
        RowBox[{"-", "1"}], "0", "0", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"},
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "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.7567527763699636`*^9, 
  3.7567531395402236`*^9, 3.7567532516077642`*^9, 3.7570022091763897`*^9, 
  3.7570023277309303`*^9, 3.757002388685055*^9, 
  3.757003163388253*^9},ExpressionUUID->"0d7a7e3d-8ddc-4b48-9486-\
8fadc76a0ead"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintAllMonodromy", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.7388847646742535`*^9, 3.7388847686639524`*^9}, 
   3.747399821144726*^9},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}}, "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", "1"},
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "1", "0", "0"},
       {"1", "0", "0", "0"},
       {"0", "0", "0", "1"},
       {"0", "0", "1", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "1", "0", "0"},
       {"1", "0", "0", "0"},
       {"0", "0", "0", "1"},
       {"0", "0", "1", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"},
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "1"},
       {"0", "0", "1", "0"},
       {"0", "1", "0", "0"},
       {"1", "0", "0", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"},
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"},
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "1"},
       {"0", "0", "1", "0"},
       {"0", "1", "0", "0"},
       {"1", "0", "0", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"},
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "1", "0", "0"},
       {"1", "0", "0", "0"},
       {"0", "0", "0", "1"},
       {"0", "0", "1", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "1", "0", "0"},
       {"1", "0", "0", "0"},
       {"0", "0", "0", "1"},
       {"0", "0", "1", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"},
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "1"},
       {"0", "0", "1", "0"},
       {"0", "1", "0", "0"},
       {"1", "0", "0", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"},
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"},
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "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.7567527764176445`*^9, 
  3.756753139601979*^9, 3.7567532516713133`*^9, 3.7570022091971292`*^9, 
  3.757002327762067*^9, 3.7570023887203197`*^9, 
  3.757003163403717*^9},ExpressionUUID->"cd8b47f6-7070-4266-b596-\
046caffaa6b8"]
}, 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}},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}},ExpressionUUID->"dbbff176-bf95-48dc-8119-\
3bcc82044ed4"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintLSigmaProduct", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.7389836838511815`*^9, 
  3.7389836895238023`*^9}},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.7567527768694715`*^9, 
  3.756753140022732*^9, 3.7567532521581893`*^9, 3.757002209375799*^9, 
  3.757002327935689*^9, 3.7570023889079237`*^9, 
  3.75700316357096*^9},ExpressionUUID->"2bb06eef-c6aa-43cf-a234-b74b77f07cda"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"GenerateAdinkraDataO", "[", "Rep", "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.738503308817802*^9, 3.73850331945341*^9}, {
  3.742441820138199*^9, 
  3.7424418348743057`*^9}},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.756752776963526*^9, 
  3.756753140110118*^9, 3.7567532523052607`*^9, 3.7570022094351683`*^9, 
  3.757002327994879*^9, 3.757002388972715*^9, 
  3.757003163618594*^9},ExpressionUUID->"83b7b937-a97f-423e-a5ae-\
b8fd32bf84f0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraReport", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.7385033449278674`*^9, 3.7385033497241416`*^9}, 
   3.750376683419756*^9},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.756752776990872*^9, 
  3.7567531401419673`*^9, 3.7567532523558445`*^9, 3.75700220945331*^9, 
  3.75700232802306*^9, 3.757002389009447*^9, 
  3.757003163635268*^9},ExpressionUUID->"6e390408-1c22-41c6-8752-\
3737243d2295"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraFullReport", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.73850436548024*^9, 
  3.7385043711275625`*^9}},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.75675278003351*^9, 
  3.756753143146738*^9, 3.7567532554699492`*^9, 3.7570022104498463`*^9, 
  3.757002329014847*^9, 3.757002390014235*^9, 
  3.7570031646292143`*^9},ExpressionUUID->"7540047b-c5e9-4885-8c4b-\
a6da1867d78a"]
}, 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}},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}},ExpressionUUID->"651be2dc-bfa6-4abb-81e3-\
713c288ebb32"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintLSigmaProduct", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.7389836838511815`*^9, 
  3.7389836895238023`*^9}},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.7567527805013037`*^9, 
  3.7567531437859707`*^9, 3.756753256029784*^9, 3.757002210642212*^9, 
  3.757002329209923*^9, 3.757002390217752*^9, 
  3.757003164816045*^9},ExpressionUUID->"0fa714b8-6a9c-405a-ae4c-\
ba16f7fd0fc9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"GenerateAdinkraDataO", "[", "Rep", "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.738503308817802*^9, 3.73850331945341*^9}, {
  3.742441820138199*^9, 
  3.7424418348743057`*^9}},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.756752780625328*^9, 
  3.756753143923983*^9, 3.756753256163541*^9, 3.75700221070142*^9, 
  3.7570023292696466`*^9, 3.757002390295315*^9, 
  3.757003164866181*^9},ExpressionUUID->"a963c421-5639-4191-8eb3-\
160c39140c86"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraReport", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.7385033449278674`*^9, 3.7385033497241416`*^9}, 
   3.750376684668418*^9},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.7567527806536903`*^9, 
  3.7567531439523187`*^9, 3.7567532561890917`*^9, 3.7570022107221622`*^9, 
  3.757002329297882*^9, 3.757002390334159*^9, 
  3.75700316488243*^9},ExpressionUUID->"78738c1b-dcbb-4fe5-ad16-ecfed05b1478"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraFullReport", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.73850436548024*^9, 
  3.7385043711275625`*^9}},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.7567527838679986`*^9, 
  3.7567531469569497`*^9, 3.7567532592190523`*^9, 3.7570022117125597`*^9, 
  3.7570023302956333`*^9, 3.757002391412039*^9, 
  3.757003165872038*^9},ExpressionUUID->"57633c97-c771-4f9b-970b-\
11a6e8e14925"]
}, Open  ]]
}, Open  ]]
}, Closed]],

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}},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}},ExpressionUUID->"8e857dff-f89b-4bb1-a3cb-\
4fd43f303b77"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintLSigmaProduct", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.7389836838511815`*^9, 
  3.7389836895238023`*^9}},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.7567527844015727`*^9, 
  3.75675314753936*^9, 3.7567532598196206`*^9, 3.757002211897447*^9, 
  3.7570023304876432`*^9, 3.7570023916203814`*^9, 
  3.757003166058365*^9},ExpressionUUID->"38df6367-58fa-435e-aa9f-\
6b6f249a1923"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"GenerateAdinkraDataO", "[", "Rep", "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.738503308817802*^9, 3.73850331945341*^9}, {
  3.742441820138199*^9, 
  3.7424418348743057`*^9}},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.756752784546462*^9, 
  3.7567531476813717`*^9, 3.7567532599581585`*^9, 3.7570022119484673`*^9, 
  3.7570023305465*^9, 3.757002391683531*^9, 
  3.757003166113448*^9},ExpressionUUID->"c4dcd2f3-f61a-4f17-b46d-\
1f076092678b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraReport", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.7385033449278674`*^9, 3.7385033497241416`*^9}, 
   3.750376685572004*^9},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.756752784583085*^9, 
  3.7567531477198954`*^9, 3.7567532600031967`*^9, 3.757002211966872*^9, 
  3.757002330573126*^9, 3.757002391716096*^9, 
  3.757003166130994*^9},ExpressionUUID->"0a9f3aa9-667d-443b-9990-\
b08ba136ec56"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraFullReport", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.73850436548024*^9, 
  3.7385043711275625`*^9}},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.7567527877159786`*^9, 
  3.7567531507288513`*^9, 3.756753263053538*^9, 3.757002212958151*^9, 
  3.757002331572413*^9, 3.757002392714673*^9, 
  3.757003167127767*^9},ExpressionUUID->"78e01366-2ef0-4e5f-8e77-\
69aafb19ae67"]
}, 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}},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}},ExpressionUUID->"16566c01-9f3c-4cd7-9bcf-\
912b41c7c78d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintLSigmaProduct", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.7389836838511815`*^9, 
  3.7389836895238023`*^9}},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.756752787919614*^9, 
  3.7567531509334564`*^9, 3.756753263286595*^9, 3.75700221301674*^9, 
  3.7570023316371317`*^9, 3.7570023927854652`*^9, 
  3.757003167182866*^9},ExpressionUUID->"22b312f7-1a07-495a-8adc-\
91ffeea0157d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"GenerateAdinkraDataO", "[", "Rep", "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.738503308817802*^9, 3.73850331945341*^9}, {
  3.742441850271452*^9, 
  3.742441864174684*^9}},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.7567527879825754`*^9, 
  3.7567531509954157`*^9, 3.7567532633724213`*^9, 3.757002213049765*^9, 
  3.757002331678854*^9, 3.757002392832987*^9, 
  3.7570031672132263`*^9},ExpressionUUID->"9c98152b-5d0e-4c9a-b855-\
a12ede09c741"]
}, 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},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.7567527880064*^9, 
  3.756753151026268*^9, 3.7567532634055743`*^9, 3.7570022130659924`*^9, 
  3.757002331702689*^9, 3.757002392865343*^9, 
  3.757003167227158*^9},ExpressionUUID->"53809b04-ac5c-4152-b877-\
b68d8b6ac59e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraFullReport", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.73850436548024*^9, 
  3.7385043711275625`*^9}},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.756752788783882*^9, 
  3.7567531518459897`*^9, 3.7567532642238812`*^9, 3.7570022133578453`*^9, 
  3.757002332004994*^9, 3.757002393164544*^9, 
  3.757003167522592*^9},ExpressionUUID->"ebf5e2ca-468e-46b6-a30c-\
372d46b2a307"]
}, 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}},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}},ExpressionUUID->"f5c86845-c67c-4942-868e-\
c7adc97f3767"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintLSigmaProduct", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.7389836838511815`*^9, 
  3.7389836895238023`*^9}},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.756752788996851*^9, 
  3.7567531520172596`*^9, 3.756753264469066*^9, 3.757002213391971*^9, 
  3.7570023320470543`*^9, 3.7570023932160397`*^9, 
  3.757003167559979*^9},ExpressionUUID->"69b77371-c886-4dc0-9fdb-\
591c481fa98d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"GenerateAdinkraDataO", "[", "Rep", "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.738503308817802*^9, 3.73850331945341*^9}, {
  3.742441850271452*^9, 
  3.742441864174684*^9}},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.75675278906445*^9, 
  3.7567531520863595`*^9, 3.7567532645722485`*^9, 3.7570022134225683`*^9, 
  3.7570023320876923`*^9, 3.757002393260713*^9, 
  3.757003167588366*^9},ExpressionUUID->"b3f2b1d8-cece-43c8-9779-\
196f33d3e8c1"]
}, 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},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.7567527890894775`*^9, 
  3.7567531521210814`*^9, 3.756753264612134*^9, 3.757002213438116*^9, 
  3.7570023321156893`*^9, 3.757002393290413*^9, 
  3.757003167601822*^9},ExpressionUUID->"5f10ca4c-5a6f-46d2-99f3-\
eebe78390e38"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraFullReport", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.73850436548024*^9, 
  3.7385043711275625`*^9}},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.756752789848369*^9, 
  3.7567531530002728`*^9, 3.7567532654689045`*^9, 3.75700221373027*^9, 
  3.7570023324154253`*^9, 3.75700239361465*^9, 
  3.757003167897387*^9},ExpressionUUID->"4201d50a-dbce-4e83-a683-\
617d52c97052"]
}, 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}},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}},ExpressionUUID->"ca1601db-17ba-4670-bb2b-\
460e32ddae10"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintLSigmaProduct", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.7389836838511815`*^9, 
  3.7389836895238023`*^9}},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.7567527900346675`*^9, 
  3.75675315320236*^9, 3.756753265687481*^9, 3.757002213764387*^9, 
  3.757002332463558*^9, 3.757002393666875*^9, 
  3.7570031679329023`*^9},ExpressionUUID->"f3c0f3f8-7652-4f97-9437-\
adae15953caf"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"GenerateAdinkraDataO", "[", "Rep", "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.738503308817802*^9, 3.73850331945341*^9}, {
  3.742441850271452*^9, 
  3.742441864174684*^9}},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.7567527901075077`*^9, 
  3.7567531532754717`*^9, 3.7567532657809677`*^9, 3.757002213796234*^9, 
  3.757002332504047*^9, 3.7570023937111*^9, 
  3.7570031679627333`*^9},ExpressionUUID->"35b52518-fa11-48b6-8903-\
84cb93c757bc"]
}, 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},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.756752790135395*^9, 
  3.7567531533058004`*^9, 3.756753265825356*^9, 3.7570022138115273`*^9, 
  3.757002332527767*^9, 3.757002393740082*^9, 
  3.757003167976645*^9},ExpressionUUID->"3d8a5694-2329-419e-becd-\
536c328603b0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AdinkraFullReport", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.73850436548024*^9, 
  3.7385043711275625`*^9}},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.7567527909593463`*^9, 
  3.7567531540345793`*^9, 3.7567532667584944`*^9, 3.757002214103403*^9, 
  3.75700233283386*^9, 3.757002394071309*^9, 
  3.757003168272374*^9},ExpressionUUID->"ac63f5d1-a291-4538-b65e-\
4069a1da54e4"]
}, Open  ]]
}, Open  ]]
}, Closed]]
}, Open  ]],

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}, {
  3.7567528723701153`*^9, 3.7567529015664673`*^9}, {3.7567530009460864`*^9, 
  3.7567530109789915`*^9}},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.756752791049719*^9, {3.7567528534789495`*^9, 
   3.756752903308418*^9}, 3.756752978765984*^9, 3.756753011562029*^9, 
   3.756753154165986*^9, 3.7567532668576603`*^9, 3.7570022141335573`*^9, {
   3.757002294876754*^9, 3.757002332877059*^9}, {3.7570023714712667`*^9, 
   3.757002396669366*^9}, 
   3.757003168300453*^9},ExpressionUUID->"fa2644cd-f7a1-4a97-8574-\
495e05de95cd"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Gadget", "[", 
  RowBox[{"51", ",", "YetAnother51"}], "]"}]], "Input",
 CellChangeTimes->{{3.7474002969302783`*^9, 
  3.7474003033869166`*^9}},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.7567527910825067`*^9, 
  3.7567531542228117`*^9, 3.7567532669078965`*^9, 3.757002214150239*^9, 
  3.757002332894197*^9, 3.757002399422715*^9, 
  3.757003168314308*^9},ExpressionUUID->"4ddd8ac1-a034-43ed-9e8d-\
00cbd32d13cb"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Gadget", "[", 
  RowBox[{"Another51", ",", "YetAnother51"}], "]"}]], "Input",
 CellChangeTimes->{{3.7474003107067738`*^9, 
  3.7474003255309887`*^9}},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.756752791132475*^9, 
  3.756753154276243*^9, 3.756753266956769*^9, 3.7570022141670933`*^9, 
  3.757002332911035*^9, 3.7570024007554493`*^9, 
  3.757003168327512*^9},ExpressionUUID->"5da3f716-9448-46e7-8789-\
d3048433ce36"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Gadget", "[", 
  RowBox[{"ThreeHypercube", ",", "AnotherThreeHypercube"}], "]"}]], "Input",
 CellChangeTimes->{{3.756753037817172*^9, 
  3.7567530469161863`*^9}},ExpressionUUID->"7d80de94-7ca9-4cd1-9515-\
279b75c45ef0"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.7567530475586247`*^9, 3.756753154330429*^9, 
  3.7567532669887576`*^9, 3.757002214183769*^9, 3.7570023329280367`*^9, 
  3.757002402019836*^9, 
  3.757003168340949*^9},ExpressionUUID->"f541d7dc-0725-4b7a-8174-\
7402dabac04c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Gadget", "[", 
  RowBox[{"ThreeHypercube", ",", "YetAnotherThreeHypercube"}], "]"}]], "Input",\

 CellChangeTimes->{{3.756753063607276*^9, 
  3.756753064183322*^9}},ExpressionUUID->"87954781-06cd-4f22-9c6d-\
2afe8799e92a"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox["1", "3"]}]], "Output",
 CellChangeTimes->{3.7567530652850904`*^9, 3.7567531543839893`*^9, 
  3.756753267046986*^9, 3.757002214200883*^9, 3.757002332944606*^9, 
  3.75700240378668*^9, 
  3.757003168354477*^9},ExpressionUUID->"a4589c85-538a-4ba9-b735-\
6b0b48566bf3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Gadget", "[", 
  RowBox[{"AnotherThreeHypercube", ",", "YetAnotherThreeHypercube"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.75675307864636*^9, 
  3.7567530831627684`*^9}},ExpressionUUID->"2fb7790e-c918-4a07-93be-\
472b9d0b3878"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox["1", "3"]}]], "Output",
 CellChangeTimes->{3.7567530840457087`*^9, 3.7567531544357443`*^9, 
  3.756753267097461*^9, 3.757002214217717*^9, 3.757002332961918*^9, 
  3.757002405179481*^9, 
  3.757003168367958*^9},ExpressionUUID->"e3ad7de5-9073-4df4-8fe0-\
acad3ae00613"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Gadget", "[", 
  RowBox[{"FiveHypercube", ",", "AnotherFiveHypercube"}], "]"}]], "Input",
 CellChangeTimes->{{3.747400668853811*^9, 
  3.747400676722763*^9}},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.7567527911720037`*^9, 
  3.7567531544713593`*^9, 3.756753267135952*^9, 3.757002214240374*^9, 
  3.757002332981641*^9, 3.7570024070795507`*^9, 
  3.757003168382985*^9},ExpressionUUID->"d21f02a5-a678-48a8-9c71-\
92485d2d1b05"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Gadget", "[", 
  RowBox[{"FiveHypercube", ",", "YetAnotherFiveHypercube"}], "]"}]], "Input",
 CellChangeTimes->{{3.7474006781648493`*^9, 
  3.747400685786297*^9}},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.7567527912253647`*^9, 
  3.756753154522476*^9, 3.75675326719773*^9, 3.7570022142579937`*^9, 
  3.757002332999708*^9, 3.757002408234357*^9, 
  3.757003168397209*^9},ExpressionUUID->"d499b73f-bfe7-4edc-8c19-\
43c83b601436"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Gadget", "[", 
  RowBox[{"AnotherFiveHypercube", ",", "YetAnotherFiveHypercube"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.74740068742925*^9, 
  3.7474006960028577`*^9}},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.756752791266374*^9, 
  3.756753154554783*^9, 3.7567532672401953`*^9, 3.757002214275447*^9, 
  3.757002333019474*^9, 3.757002409447403*^9, 
  3.757003168410845*^9},ExpressionUUID->"4c5212f9-e599-4c7d-b7da-\
2b71bf5b0fbc"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Gadget", "[", 
  RowBox[{"Tesseract", ",", "AnotherTesseract"}], "]"}]], "Input",
 CellChangeTimes->{{3.7474006213831673`*^9, 
  3.7474006302827396`*^9}},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.7567532672881603`*^9, 
  3.7570022142805367`*^9, 3.757002333026173*^9, 3.7570024107130003`*^9, 
  3.75700316842461*^9},ExpressionUUID->"73e63109-29cf-4ea5-aae6-fdd4619ea266"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Gadget", "[", 
  RowBox[{"Tesseract", ",", "YetAnotherTesseract"}], "]"}]], "Input",
 CellChangeTimes->{{3.7474006319266005`*^9, 
  3.747400641802844*^9}},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.756753267342176*^9, 
  3.757002214299986*^9, 3.7570023330450287`*^9, 3.757002411994018*^9, 
  3.757003168438891*^9},ExpressionUUID->"c9b4170e-4c38-40c5-88a7-\
5fbea29413dc"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Gadget", "[", 
  RowBox[{"AnotherTesseract", ",", "YetAnotherTesseract"}], "]"}]], "Input",
 CellChangeTimes->{{3.747400645627695*^9, 
  3.7474006550188217`*^9}},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.756753267386363*^9, 
  3.7570022143206863`*^9, 3.7570023330646152`*^9, 3.757002413302957*^9, 
  3.7570031684518137`*^9},ExpressionUUID->"2db251fa-0771-4bf3-a402-\
597804a4f9f4"]
}, 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", "[", "41", "]"}], "\[IndentingNewLine]", 
 RowBox[{"PrintAllL", "[", "41", "]"}]}], "Input",
 CellChangeTimes->{{3.750685363345089*^9, 3.750685365358283*^9}, {
  3.7506853981506767`*^9, 3.750685400718255*^9}, {3.75700273947138*^9, 
  3.757002743906288*^9}},ExpressionUUID->"cf2c547c-31bf-4573-b20e-\
9b9e969d6b4a"],

Cell[BoxData[
 GraphicsBox[
  TagBox[{{
     {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[0.007], 
      LineBox[{{-1.5, -1.}, {-1.5, -2.}}]}, 
     {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[0.007], Dashing[
      0.03], LineBox[{{-1.5, -1.}, {-0.5, -2.}}]}, 
     {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[0.007], 
      LineBox[{{-1.5, -1.}, {0.5, -2.}}]}, 
     {RGBColor[0.78431374, 0, 0.12156863], Thickness[0.007], Dashing[0.03], 
      LineBox[{{-1.5, -1.}, {1.5, -2.}}]}, 
     {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[0.007], 
      LineBox[{{-0.5, -1.}, {-1.5, -2.}}]}, 
     {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[0.007], 
      LineBox[{{-0.5, -1.}, {-0.5, -2.}}]}, 
     {RGBColor[0.78431374, 0, 0.12156863], Thickness[0.007], 
      LineBox[{{-0.5, -1.}, {0.5, -2.}}]}, 
     {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[0.007], 
      LineBox[{{-0.5, -1.}, {1.5, -2.}}]}, 
     {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[0.007], Dashing[
      0.03], LineBox[{{0.5, -1.}, {-1.5, -2.}}]}, 
     {RGBColor[0.78431374, 0, 0.12156863], Thickness[0.007], Dashing[0.03], 
      LineBox[{{0.5, -1.}, {-0.5, -2.}}]}, 
     {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[0.007], 
      LineBox[{{0.5, -1.}, {0.5, -2.}}]}, 
     {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[0.007], 
      LineBox[{{0.5, -1.}, {1.5, -2.}}]}, 
     {RGBColor[0.78431374, 0, 0.12156863], Thickness[0.007], 
      LineBox[{{1.5, -1.}, {-1.5, -2.}}]}, 
     {RGBColor[0.89803922, 0.57647061, 0.27450982], Thickness[0.007], Dashing[
      0.03], LineBox[{{1.5, -1.}, {-0.5, -2.}}]}, 
     {RGBColor[0.42352942, 0.15294118, 0.4509804], Thickness[0.007], Dashing[
      0.03], LineBox[{{1.5, -1.}, {0.5, -2.}}]}, 
     {RGBColor[0.10196079, 0.61176473, 0.21960784], Thickness[0.007], 
      LineBox[{{1.5, -1.}, {1.5, -2.}}]}}, {InsetBox[
      GraphicsBox[
       {GrayLevel[0], EdgeForm[GrayLevel[0]], DiskBox[{0, 0}, 0.05], 
        {GrayLevel[1], InsetBox[
          StyleBox["1",
           StripOnInput->False,
           FontSize->Larger,
           FontWeight->Bold], {0, 0}]}},
       ImageSize->30], {-1.5, -1.}], InsetBox[
      GraphicsBox[
       {GrayLevel[1], EdgeForm[GrayLevel[0]], DiskBox[{0, 0}, 0.05], 
        {GrayLevel[0], InsetBox[
          StyleBox["1",
           StripOnInput->False,
           FontSize->Larger,
           FontWeight->Bold], {0, 0}]}},
       ImageSize->30], {-1.5, -2.}], InsetBox[
      GraphicsBox[
       {GrayLevel[1], EdgeForm[GrayLevel[0]], DiskBox[{0, 0}, 0.05], 
        {GrayLevel[0], InsetBox[
          StyleBox["2",
           StripOnInput->False,
           FontSize->Larger,
           FontWeight->Bold], {0, 0}]}},
       ImageSize->30], {-0.5, -2.}], InsetBox[
      GraphicsBox[
       {GrayLevel[1], EdgeForm[GrayLevel[0]], DiskBox[{0, 0}, 0.05], 
        {GrayLevel[0], InsetBox[
          StyleBox["3",
           StripOnInput->False,
           FontSize->Larger,
           FontWeight->Bold], {0, 0}]}},
       ImageSize->30], {0.5, -2.}], InsetBox[
      GraphicsBox[
       {GrayLevel[1], EdgeForm[GrayLevel[0]], DiskBox[{0, 0}, 0.05], 
        {GrayLevel[0], InsetBox[
          StyleBox["4",
           StripOnInput->False,
           FontSize->Larger,
           FontWeight->Bold], {0, 0}]}},
       ImageSize->30], {1.5, -2.}], InsetBox[
      GraphicsBox[
       {GrayLevel[0], EdgeForm[GrayLevel[0]], DiskBox[{0, 0}, 0.05], 
        {GrayLevel[1], InsetBox[
          StyleBox["2",
           StripOnInput->False,
           FontSize->Larger,
           FontWeight->Bold], {0, 0}]}},
       ImageSize->30], {-0.5, -1.}], InsetBox[
      GraphicsBox[
       {GrayLevel[0], EdgeForm[GrayLevel[0]], DiskBox[{0, 0}, 0.05], 
        {GrayLevel[1], InsetBox[
          StyleBox["3",
           StripOnInput->False,
           FontSize->Larger,
           FontWeight->Bold], {0, 0}]}},
       ImageSize->30], {0.5, -1.}], InsetBox[
      GraphicsBox[
       {GrayLevel[0], EdgeForm[GrayLevel[0]], DiskBox[{0, 0}, 0.05], 
        {GrayLevel[1], InsetBox[
          StyleBox["4",
           StripOnInput->False,
           FontSize->Larger,
           FontWeight->Bold], {0, 0}]}},
       ImageSize->30], {1.5, -1.}]}},
   Annotation[#, 
    VertexCoordinateRules -> {{-1.5, -1.}, {-1.5, -2.}, {-0.5, -2.}, {
     0.5, -2.}, {1.5, -2.}, {-0.5, -1.}, {0.5, -1.}, {1.5, -1.}}]& ],
  AspectRatio->Automatic,
  FrameTicks->None,
  PlotRange->All,
  PlotRangePadding->Scaled[0.1]]], "Output",
 CellChangeTimes->{3.757002687344746*^9, 3.7570027459025927`*^9, 
  3.757002896604567*^9, 
  3.757003168477544*^9},ExpressionUUID->"6576f327-2acb-4ac3-9637-\
c77ade5b1fb8"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"},
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "1", "0", "0"},
       {
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "1", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "1"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"0", "1", "0", "0"},
       {
        RowBox[{"-", "1"}], "0", "0", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{3.757002687344746*^9, 3.7570027459025927`*^9, 
  3.757002896604567*^9, 
  3.7570031684803247`*^9},ExpressionUUID->"bc0e770b-b9a1-4dfb-8e18-\
d80648c103c2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Rep", " ", "=", " ", "41"}]], "Input",
 CellChangeTimes->{{3.7466374664455338`*^9, 3.74663746864881*^9}, {
  3.750685343175045*^9, 3.7506853437344837`*^9}, {3.757002880447152*^9, 
  3.75700288623808*^9}},ExpressionUUID->"40913594-7483-4f42-926d-\
841a855a91c8"],

Cell[BoxData["41"], "Output",
 CellChangeTimes->{3.757002896641946*^9, 
  3.757003168493517*^9},ExpressionUUID->"2507bc82-c070-4021-9628-\
cd2d6c716c0b"]
}, Open  ]],

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}},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}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.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.757002896665659*^9, 
   3.757003168507605*^9},ExpressionUUID->"a9d3e361-3ffa-4819-af1e-\
dfc7cd082712"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintAllL", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.746635666872222*^9, 3.746635670341158*^9}, {
  3.7466374764932914`*^9, 
  3.746637501633769*^9}},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}}, "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"},
       {
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "1", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "1"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"0", "1", "0", "0"},
       {
        RowBox[{"-", "1"}], "0", "0", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{
  3.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.757002896688561*^9, 
   3.7570031685222597`*^9},ExpressionUUID->"3b1a712d-3d8f-4f58-82a5-\
2a17240a8145"]
}, 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}},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}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.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.757002896710619*^9, 
   3.75700316853633*^9},ExpressionUUID->"d522e194-288e-4ba7-a971-\
3664ed173198"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintAllR", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.7466356771387634`*^9, 3.7466356802015977`*^9}, {
  3.746637477274478*^9, 
  3.746637502336838*^9}},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}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"1", "0", "0", "0"},
       {"0", "0", "0", "1"},
       {"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", "0", "1", "0"},
       {"0", "0", "0", "1"},
       {
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "1", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"1", "0", "0", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{
  3.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.757002896734253*^9, 
   3.757003168550786*^9},ExpressionUUID->"3eceffa6-1d9f-4cf1-aeb2-\
b8c040889448"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintAllV", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.7500184188781123`*^9, 
  3.750018435034566*^9}},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}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", 
        RowBox[{"-", "\[ImaginaryI]"}], "0"},
       {"0", "0", "0", 
        RowBox[{"-", "\[ImaginaryI]"}]},
       {"\[ImaginaryI]", "0", "0", "0"},
       {"0", "\[ImaginaryI]", "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", "\[ImaginaryI]"},
       {"0", "0", 
        RowBox[{"-", "\[ImaginaryI]"}], "0"},
       {"0", "\[ImaginaryI]", "0", "0"},
       {
        RowBox[{"-", "\[ImaginaryI]"}], "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", 
        RowBox[{"-", "\[ImaginaryI]"}]},
       {"0", "0", "\[ImaginaryI]", "0"},
       {"0", 
        RowBox[{"-", "\[ImaginaryI]"}], "0", "0"},
       {"\[ImaginaryI]", "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", 
        RowBox[{"-", "\[ImaginaryI]"}], "0"},
       {"0", "0", "0", 
        RowBox[{"-", "\[ImaginaryI]"}]},
       {"\[ImaginaryI]", "0", "0", "0"},
       {"0", "\[ImaginaryI]", "0", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", 
        RowBox[{"-", "\[ImaginaryI]"}], "0", "0"},
       {"\[ImaginaryI]", "0", "0", "0"},
       {"0", "0", "0", "\[ImaginaryI]"},
       {"0", "0", 
        RowBox[{"-", "\[ImaginaryI]"}], "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{{3.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.757002896760117*^9, 
   3.757003168565193*^9},ExpressionUUID->"ffb0773d-483c-49f3-bf15-\
35efff8d1443"]
}, 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}},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.757002896766102*^9, 
   3.757003168570487*^9},ExpressionUUID->"242b5ca6-41b4-4d00-80e4-\
6d7a2a44baea"]
}, 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}},ExpressionUUID->"3ab87185-7013-4994-a7d8-\
7ec3d1cbcf9c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   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}}, "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", "\[ImaginaryI]", "0"},
       {"0", "0", "0", "\[ImaginaryI]"},
       {
        RowBox[{"-", "\[ImaginaryI]"}], "0", "0", "0"},
       {"0", 
        RowBox[{"-", "\[ImaginaryI]"}], "0", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", 
        RowBox[{"-", "\[ImaginaryI]"}]},
       {"0", "0", "\[ImaginaryI]", "0"},
       {"0", 
        RowBox[{"-", "\[ImaginaryI]"}], "0", "0"},
       {"\[ImaginaryI]", "0", "0", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{
  3.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.757002896790195*^9, 
   3.757003168584392*^9},ExpressionUUID->"991ca4ba-81af-4e4d-aee3-\
e88f2d9d9736"]
}, 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},ExpressionUUID->"2437f3b0-e8d7-4aef-948b-\
755c2a754cd1"],

Cell[BoxData[
 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}}, "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", "1"},
        {
         RowBox[{"-", "1"}], "0", "0", "0"},
        {"0", 
         RowBox[{"-", "1"}], "0", "0"}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
     Function[BoxForm`e$, 
      MatrixForm[BoxForm`e$]]], ",", 
    TagBox[
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {"0", 
         RowBox[{"-", "1"}], "0", "0"},
        {"1", "0", "0", "0"},
        {"0", "0", "0", "1"},
        {"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", 
         RowBox[{"-", "1"}], "0", "0"},
        {"1", "0", "0", "0"},
        {"0", "0", "0", "1"},
        {"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", "0", 
         RowBox[{"-", "1"}], "0"},
        {"0", "0", "0", 
         RowBox[{"-", "1"}]},
        {"1", "0", "0", "0"},
        {"0", "1", "0", "0"}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
     Function[BoxForm`e$, 
      MatrixForm[BoxForm`e$]]], ",", 
    TagBox[
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {"0", "0", "0", 
         RowBox[{"-", "1"}]},
        {"0", "0", "1", "0"},
        {"0", 
         RowBox[{"-", "1"}], "0", "0"},
        {"1", "0", "0", "0"}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
     Function[BoxForm`e$, 
      MatrixForm[BoxForm`e$]]], ",", 
    TagBox[
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {
         RowBox[{"-", "1"}], "0", "0", "0"},
        {"0", 
         RowBox[{"-", "1"}], "0", "0"},
        {"0", "0", 
         RowBox[{"-", "1"}], "0"},
        {"0", "0", "0", 
         RowBox[{"-", "1"}]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
     Function[BoxForm`e$, 
      MatrixForm[BoxForm`e$]]], ",", 
    TagBox[
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {
         RowBox[{"-", "1"}], "0", "0", "0"},
        {"0", 
         RowBox[{"-", "1"}], "0", "0"},
        {"0", "0", 
         RowBox[{"-", "1"}], "0"},
        {"0", "0", "0", 
         RowBox[{"-", "1"}]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
     Function[BoxForm`e$, 
      MatrixForm[BoxForm`e$]]], ",", 
    TagBox[
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {"0", "0", "0", "1"},
        {"0", "0", 
         RowBox[{"-", "1"}], "0"},
        {"0", "1", "0", "0"},
        {
         RowBox[{"-", "1"}], "0", "0", "0"}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
     Function[BoxForm`e$, 
      MatrixForm[BoxForm`e$]]], ",", 
    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}}, "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"},
        {
         RowBox[{"-", "1"}], "0", "0", "0"},
        {"0", "0", "0", 
         RowBox[{"-", "1"}]},
        {"0", "0", "1", "0"}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
     Function[BoxForm`e$, 
      MatrixForm[BoxForm`e$]]], ",", 
    TagBox[
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {"0", "1", "0", "0"},
        {
         RowBox[{"-", "1"}], "0", "0", "0"},
        {"0", "0", "0", 
         RowBox[{"-", "1"}]},
        {"0", "0", "1", "0"}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
     Function[BoxForm`e$, 
      MatrixForm[BoxForm`e$]]], ",", 
    TagBox[
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {"0", "0", "1", "0"},
        {"0", "0", "0", "1"},
        {
         RowBox[{"-", "1"}], "0", "0", "0"},
        {"0", 
         RowBox[{"-", "1"}], "0", "0"}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
     Function[BoxForm`e$, 
      MatrixForm[BoxForm`e$]]], ",", 
    TagBox[
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {"0", "0", "0", "1"},
        {"0", "0", 
         RowBox[{"-", "1"}], "0"},
        {"0", "1", "0", "0"},
        {
         RowBox[{"-", "1"}], "0", "0", "0"}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
     Function[BoxForm`e$, 
      MatrixForm[BoxForm`e$]]], ",", 
    TagBox[
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {"1", "0", "0", "0"},
        {"0", "1", "0", "0"},
        {"0", "0", "1", "0"},
        {"0", "0", "0", "1"}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
     Function[BoxForm`e$, 
      MatrixForm[BoxForm`e$]]], ",", 
    TagBox[
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {"1", "0", "0", "0"},
        {"0", "1", "0", "0"},
        {"0", "0", "1", "0"},
        {"0", "0", "0", "1"}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
     Function[BoxForm`e$, 
      MatrixForm[BoxForm`e$]]]}], "}"}], "[", 
  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.7570028968169737`*^9, 
   3.757003168602974*^9},ExpressionUUID->"5cb6cdc0-c5b5-461a-ae46-\
3d8f440f2730"]
}, 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}},ExpressionUUID->"17924563-1a14-453f-a287-\
5bfac41cd007"],

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}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.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.757002896844342*^9, 
   3.757003168617413*^9},ExpressionUUID->"9fec9979-aad8-428a-811b-\
0f374a50b012"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintZetaGen", "[", "Rep", "]"}], "[", "4", "]"}]], "Input",
 CellChangeTimes->{{3.7466360919375286`*^9, 3.746636131285016*^9}, {
  3.7466374810559983`*^9, 
  3.7466375045090322`*^9}},ExpressionUUID->"7822df4f-f325-4c0f-89e4-\
1fa7033f27dc"],

Cell[BoxData[
 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}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.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.7570028968711967`*^9, 
   3.7570031686316137`*^9},ExpressionUUID->"c15eec3d-96d7-440e-a8e2-\
5cd5e34809f9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintAllZetaGen", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.7466361056418924`*^9, 3.746636110189152*^9}, {
  3.7466374816344976`*^9, 
  3.7466375049309626`*^9}},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}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "1"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"0", "1", "0", "0"},
       {
        RowBox[{"-", "1"}], "0", "0", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{
  3.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.7570028968976507`*^9, 
   3.757003168645626*^9},ExpressionUUID->"3f56cdc8-825e-4210-ac3d-\
b00ebc61aa40"]
}, 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},ExpressionUUID->"ad380638-d123-4c9c-92e0-\
023bdbb3048c"],

Cell[BoxData[
 RowBox[{
  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}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.7]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]], ",", 
     TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
         {"0", "0", 
          RowBox[{"-", "1"}], "0"},
         {"0", "0", "0", 
          RowBox[{"-", "1"}]},
         {"1", "0", "0", "0"},
         {"0", "1", "0", "0"}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.7]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]], ",", 
     TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
         {"0", 
          RowBox[{"-", "1"}], "0", "0"},
         {"1", "0", "0", "0"},
         {"0", "0", "0", "1"},
         {"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"},
         {
          RowBox[{"-", "1"}], "0", "0", "0"},
         {"0", "0", "0", 
          RowBox[{"-", "1"}]},
         {"0", "0", "1", "0"}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.7]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]], ",", 
     TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
         {"0", "0", 
          RowBox[{"-", "1"}], "0"},
         {"0", "0", "0", 
          RowBox[{"-", "1"}]},
         {"1", "0", "0", "0"},
         {"0", "1", "0", "0"}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.7]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]], ",", 
     TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
         {"0", "0", "0", 
          RowBox[{"-", "1"}]},
         {"0", "0", "1", "0"},
         {"0", 
          RowBox[{"-", "1"}], "0", "0"},
         {"1", "0", "0", "0"}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.7]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]], ",", 
     TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
         {"1", "0", "0", "0"},
         {"0", "1", "0", "0"},
         {"0", "0", "1", "0"},
         {"0", "0", "0", "1"}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.7]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]], ",", 
     TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
         {
          RowBox[{"-", "1"}], "0", "0", "0"},
         {"0", 
          RowBox[{"-", "1"}], "0", "0"},
         {"0", "0", 
          RowBox[{"-", "1"}], "0"},
         {"0", "0", "0", 
          RowBox[{"-", "1"}]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.7]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]], ",", 
     TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
         {"0", "0", "0", 
          RowBox[{"-", "1"}]},
         {"0", "0", "1", "0"},
         {"0", 
          RowBox[{"-", "1"}], "0", "0"},
         {"1", "0", "0", "0"}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.7]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]], ",", 
     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}}, "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"},
         {
          RowBox[{"-", "1"}], "0", "0", "0"},
         {"0", "0", "0", 
          RowBox[{"-", "1"}]},
         {"0", "0", "1", "0"}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.7]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]], ",", 
     TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
         {"0", 
          RowBox[{"-", "1"}], "0", "0"},
         {"1", "0", "0", "0"},
         {"0", "0", "0", "1"},
         {"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", "0", "1", "0"},
         {"0", "0", "0", "1"},
         {
          RowBox[{"-", "1"}], "0", "0", "0"},
         {"0", 
          RowBox[{"-", "1"}], "0", "0"}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.7]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]], ",", 
     TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
         {"0", "0", "0", "1"},
         {"0", "0", 
          RowBox[{"-", "1"}], "0"},
         {"0", "1", "0", "0"},
         {
          RowBox[{"-", "1"}], "0", "0", "0"}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.7]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]], ",", 
     TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
         {
          RowBox[{"-", "1"}], "0", "0", "0"},
         {"0", 
          RowBox[{"-", "1"}], "0", "0"},
         {"0", "0", 
          RowBox[{"-", "1"}], "0"},
         {"0", "0", "0", 
          RowBox[{"-", "1"}]}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.7]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]], ",", 
     TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
         {"1", "0", "0", "0"},
         {"0", "1", "0", "0"},
         {"0", "0", "1", "0"},
         {"0", "0", "0", "1"}
        },
        GridBoxAlignment->{
         "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.7]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]]}], "}"}], "[", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "}"}], "]"}], "\[Equal]", 
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"-", "1"}], "0", "0", "0"},
      {"0", 
       RowBox[{"-", "1"}], "0", "0"},
      {"0", "0", 
       RowBox[{"-", "1"}], "0"},
      {"0", "0", "0", 
       RowBox[{"-", "1"}]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
        "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], "\[Equal]", 
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"-", "1"}], "0", "0", "0"},
      {"0", 
       RowBox[{"-", "1"}], "0", "0"},
      {"0", "0", 
       RowBox[{"-", "1"}], "0"},
      {"0", "0", "0", 
       RowBox[{"-", "1"}]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
        "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]]}]], "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.75700289692834*^9, 
   3.7570031686638317`*^9},ExpressionUUID->"b1bacf8f-c034-4e1c-b7a0-\
eb52d99551df"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"WordW", "[", 
  RowBox[{"{", 
   RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.746636245851265*^9, 
  3.7466362654467783`*^9}},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.7570028969570007`*^9, 
   3.757003168677696*^9},ExpressionUUID->"45fb7349-757e-49a3-9940-\
7086a045314c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintAllHoloraumytilde", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.746636161397277*^9, 3.746636166319648*^9}, {
  3.7466374841033516`*^9, 
  3.746637508181059*^9}},ExpressionUUID->"45b50dbf-3d7a-456f-8fa9-\
9fbf53b8a871"],

Cell[BoxData[
 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}}, "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", "1"},
       {
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"1", "0", "0", "0"},
       {"0", "0", "0", "1"},
       {"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", 
        RowBox[{"-", "1"}], "0", "0"},
       {"1", "0", "0", "0"},
       {"0", "0", "0", "1"},
       {"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", "0", 
        RowBox[{"-", "1"}], "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "1", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"1", "0", "0", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "1"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"0", "1", "0", "0"},
       {
        RowBox[{"-", "1"}], "0", "0", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   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}}, "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"},
       {
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "1", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "1", "0", "0"},
       {
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "1"}]},
       {"0", "0", "1", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"},
       {
        RowBox[{"-", "1"}], "0", "0", "0"},
       {"0", 
        RowBox[{"-", "1"}], "0", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "1"},
       {"0", "0", 
        RowBox[{"-", "1"}], "0"},
       {"0", "1", "0", "0"},
       {
        RowBox[{"-", "1"}], "0", "0", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"},
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"},
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "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.75700289698796*^9, 
   3.757003168695176*^9},ExpressionUUID->"f7bd6803-b26e-4f5b-9b92-\
e2f7f02d20de"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintAllMonodromytilde", "[", "Rep", "]"}]], "Input",
 CellChangeTimes->{{3.7466361442237477`*^9, 3.7466361516151896`*^9}, {
  3.746637484650447*^9, 
  3.746637508821839*^9}},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}}, "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", "1"},
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "1", "0", "0"},
       {"1", "0", "0", "0"},
       {"0", "0", "0", "1"},
       {"0", "0", "1", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "1", "0", "0"},
       {"1", "0", "0", "0"},
       {"0", "0", "0", "1"},
       {"0", "0", "1", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"},
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "1"},
       {"0", "0", "1", "0"},
       {"0", "1", "0", "0"},
       {"1", "0", "0", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"},
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"},
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "1"},
       {"0", "0", "1", "0"},
       {"0", "1", "0", "0"},
       {"1", "0", "0", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"},
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "1", "0", "0"},
       {"1", "0", "0", "0"},
       {"0", "0", "0", "1"},
       {"0", "0", "1", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "1", "0", "0"},
       {"1", "0", "0", "0"},
       {"0", "0", "0", "1"},
       {"0", "0", "1", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"},
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "1"},
       {"0", "0", "1", "0"},
       {"0", "1", "0", "0"},
       {"1", "0", "0", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"},
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0"},
       {"0", "1", "0", "0"},
       {"0", "0", "1", "0"},
       {"0", "0", "0", "1"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "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.7570028970188017`*^9, 
   3.757003168712257*^9},ExpressionUUID->"54a5e54b-210f-4709-ae13-\
732e19f15eb6"]
}, 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}},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}},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.757002922400127*^9, 
  3.7570031687363234`*^9},ExpressionUUID->"e0adbf1c-b8b6-4150-9109-\
1d78afc76186"]
}, 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}},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.757002922525299*^9, 
  3.7570031688028183`*^9},ExpressionUUID->"9a9f78a5-202e-4231-b2eb-\
2f4958f3ee01"],

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.7570029225265207`*^9, 
  3.757003168803525*^9},ExpressionUUID->"f8091080-b607-48a8-a719-\
020bb2412541"]
}, 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},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.757002922554371*^9, 
  3.757003168818376*^9},ExpressionUUID->"1fa04d9b-837f-4d65-98bc-\
55cc5e24fb33"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintL", "[", "Test12", "]"}], "[", "1", "]"}]], "Input",
 CellChangeTimes->{{3.7465563389081297`*^9, 3.7465563516500273`*^9}, {
  3.746637080636923*^9, 
  3.7466370812933664`*^9}},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}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.7500178856560884`*^9, 3.75001803665796*^9, 
  3.7503780818888807`*^9, 3.7525208573008533`*^9, 3.7525874650261908`*^9, 
  3.7525901986370673`*^9, 3.753914270376952*^9, 3.7570029225759983`*^9, 
  3.7570031688334227`*^9},ExpressionUUID->"c89e9996-18d1-4722-a94b-\
435f5ff289b0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintR", "[", "Test12", "]"}], "[", "2", "]"}]], "Input",
 CellChangeTimes->{{3.7465563536745133`*^9, 3.7465563574651155`*^9}, {
  3.7466370867184753`*^9, 
  3.746637086999811*^9}},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}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.750017885683366*^9, 3.750018036685232*^9, 
  3.75037808191185*^9, 3.7525208573327665`*^9, 3.752587465054422*^9, 
  3.7525901986682997`*^9, 3.753914270392573*^9, 3.757002922594717*^9, 
  3.757003168847844*^9},ExpressionUUID->"13d42f59-e241-43dc-891a-\
a223524625db"]
}, 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}},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}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.750017885713622*^9, 3.7500180367050724`*^9, 
  3.75037808193777*^9, 3.752520857360692*^9, 3.7525874650700855`*^9, 
  3.7525901987026253`*^9, 3.753914270408164*^9, 3.757002922613151*^9, 
  3.757003168862102*^9},ExpressionUUID->"9d640160-f80b-4571-9140-\
64f62313bfea"]
}, 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}},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}}, "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", 
        FractionBox["1", 
         RowBox[{"2", " ", 
          RowBox[{"nz", "[", "3", "]"}]}]], "0"},
       {
        FractionBox["1", 
         RowBox[{"2", " ", 
          RowBox[{"nz", "[", "3", "]"}]}]], "0", "0"},
       {"0", "0", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", 
        RowBox[{"-", 
         FractionBox["1", 
          RowBox[{"2", " ", 
           RowBox[{"nz", "[", "3", "]"}]}]]}], "0"},
       {
        FractionBox["1", 
         RowBox[{"2", " ", 
          RowBox[{"nz", "[", "3", "]"}]}]], "0", "0"},
       {"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[{
       {
        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}}, "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", 
        FractionBox["1", 
         RowBox[{"2", " ", 
          RowBox[{"nz", "[", "3", "]"}]}]]},
       {"0", "0", "0"},
       {
        FractionBox["1", 
         RowBox[{"2", " ", 
          RowBox[{"nz", "[", "3", "]"}]}]], "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", 
        RowBox[{"-", 
         FractionBox["1", 
          RowBox[{"2", " ", 
           RowBox[{"nz", "[", "3", "]"}]}]]}]},
       {"0", "0", "0"},
       {
        FractionBox["1", 
         RowBox[{"2", " ", 
          RowBox[{"nz", "[", "3", "]"}]}]], "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"},
       {"0", "0", 
        FractionBox["1", 
         RowBox[{"2", " ", 
          RowBox[{"nz", "[", "3", "]"}]}]]},
       {"0", 
        FractionBox["1", 
         RowBox[{"2", " ", 
          RowBox[{"nz", "[", "3", "]"}]}]], "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"},
       {"0", "0", 
        RowBox[{"-", 
         FractionBox["1", 
          RowBox[{"2", " ", 
           RowBox[{"nz", "[", "3", "]"}]}]]}]},
       {"0", 
        FractionBox["1", 
         RowBox[{"2", " ", 
          RowBox[{"nz", "[", "3", "]"}]}]], "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[{
       {
        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}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{3.7500178857374387`*^9, 3.750018036753197*^9, 
  3.750378081988614*^9, 3.7525208574125586`*^9, 3.7525874651398425`*^9, 
  3.7525902041938505`*^9, 3.753914270423816*^9, 3.757002922830274*^9, 
  3.75700316888063*^9},ExpressionUUID->"7a199c51-e179-44ed-9cc5-2b0e4980a42f"]
}, 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}},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}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", 
        RowBox[{"-", "\[ImaginaryI]"}], "0", "0"},
       {"\[ImaginaryI]", "0", "0", "0"},
       {"0", "0", "0", 
        RowBox[{"-", "\[ImaginaryI]"}]},
       {"0", "0", "\[ImaginaryI]", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", 
        RowBox[{"-", "\[ImaginaryI]"}], "0"},
       {"0", "0", "0", "\[ImaginaryI]"},
       {"\[ImaginaryI]", "0", "0", "0"},
       {"0", 
        RowBox[{"-", "\[ImaginaryI]"}], "0", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{3.750017885762231*^9, 3.750018036771536*^9, 
  3.7503780820215263`*^9, 3.7525208574444714`*^9, 3.7525874651755686`*^9, 
  3.752590204261039*^9, 3.7539142704394073`*^9, 3.757002922849498*^9, 
  3.757003168894405*^9},ExpressionUUID->"a53f053d-005f-4429-afc3-\
817795507bae"]
}, 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}},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}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", 
        RowBox[{"-", "\[ImaginaryI]"}], "0"},
       {"0", "0", "0", 
        RowBox[{"-", "\[ImaginaryI]"}]},
       {"\[ImaginaryI]", "0", "0", "0"},
       {"0", "\[ImaginaryI]", "0", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", 
        RowBox[{"-", "\[ImaginaryI]"}], "0", "0"},
       {"\[ImaginaryI]", "0", "0", "0"},
       {"0", "0", "0", "\[ImaginaryI]"},
       {"0", "0", 
        RowBox[{"-", "\[ImaginaryI]"}], "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{3.7500178857831087`*^9, 3.7500180368008013`*^9, 
  3.7503780820475035`*^9, 3.7525208574733963`*^9, 3.752587465202505*^9, 
  3.752590204291168*^9, 3.7539142704550605`*^9, 3.7570029228558064`*^9, 
  3.757003168908359*^9},ExpressionUUID->"764a8e36-c495-4713-944a-\
b7945dcd05e1"]
}, 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}},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.7570029228754177`*^9, 
  3.7570031689227753`*^9},ExpressionUUID->"93d489c1-9373-4080-9794-\
24c1e9dd7ad5"]
}, 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}},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.757002922897606*^9, 
  3.757003168937407*^9},ExpressionUUID->"1f98dbfb-a3cc-4557-b9bf-\
b06326e4bb2c"]
}, 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}},ExpressionUUID->"395fc01c-eb72-4334-9cd3-\
ad5e8bb81117"],

Cell[BoxData[
 RowBox[{"{", "\<\"LCoeffs, RCoeffs, GALRCoeffs, GARLCoeffs, VCoeffs, \
VtildeCoeffs, VPMCoeffs, and VtildePMCoeffs 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.7570029251654167`*^9, 
  3.757003170909856*^9},ExpressionUUID->"37dbb652-8eed-4893-80b4-\
12a866057177"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintLBasis", "[", "Test12", "]"}], "[", "1", "]"}]], "Input",
 CellChangeTimes->{{3.7465555931573954`*^9, 
  3.7465556044157343`*^9}},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.7570029252143784`*^9, 
  3.757003170942089*^9},ExpressionUUID->"af8b776f-e9be-441c-827f-\
8050434e719a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintLBasis", "[", "Test12", "]"}], "[", "2", "]"}]], "Input",
 CellChangeTimes->{{3.7465555931573954`*^9, 3.7465556044157343`*^9}, {
  3.74655567557169*^9, 
  3.746555675638878*^9}},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.757002925252062*^9, 
  3.757003170959229*^9},ExpressionUUID->"757d99f8-513e-43f4-9335-\
4e33a2145295"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintLBasis", "[", "Test12", "]"}], "[", "3", "]"}]], "Input",
 CellChangeTimes->{{3.7465555931573954`*^9, 3.7465556044157343`*^9}, {
  3.74655567557169*^9, 
  3.746555683104106*^9}},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.7570029252821608`*^9, 
  3.757003170976774*^9},ExpressionUUID->"c4218bf8-7d9d-439c-ab9f-\
2f75c0833c46"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintLBasis", "[", "Test12", "]"}], "[", "4", "]"}]], "Input",
 CellChangeTimes->{{3.7465555931573954`*^9, 3.7465556044157343`*^9}, {
  3.74655567557169*^9, 
  3.7465556866132946`*^9}},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.757002925312042*^9, 
  3.757003170994254*^9},ExpressionUUID->"af4b0c5c-fd19-48fb-b508-\
b4919f77f38c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintGALRBasis", "[", "Test12", "]"}], "[", 
  RowBox[{"1", ",", "1"}], "]"}]], "Input",
 CellChangeTimes->{{3.7525902212739415`*^9, 
  3.7525902307747*^9}},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.757002925341367*^9, 
  3.757003171009293*^9},ExpressionUUID->"dd61e295-e5e0-4698-bacc-\
c1b46526f3c4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Omega]matrix", "[", "3", "]"}], "[", "0", "]"}]], "Input",
 CellChangeTimes->{{3.752590251131626*^9, 
  3.7525902546262956`*^9}},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.757002925348349*^9, 
  3.757003171023336*^9},ExpressionUUID->"63d4fe0f-ec38-426e-b381-\
1671911a4824"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintGALRBasis", "[", "Test12", "]"}], "[", 
  RowBox[{"1", ",", "2"}], "]"}]], "Input",
 CellChangeTimes->{{3.7525902212739415`*^9, 
  3.7525902391100254`*^9}},ExpressionUUID->"e68f6314-d44f-4f6e-96b2-\
5a495f6439f8"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{{3.7525902314664154`*^9, 3.752590239432992*^9}, 
   3.753914273439638*^9, 3.757002925379837*^9, 
   3.757003171038457*^9},ExpressionUUID->"04a11a01-6f6b-4251-87e0-\
852d7cc5c414"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintGALRBasis", "[", "Test12", "]"}], "[", 
  RowBox[{"1", ",", "1"}], "]"}]], "Input",
 CellChangeTimes->{{3.7525902212739415`*^9, 
  3.7525902307747*^9}},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.757002925408188*^9, 
  3.757003171053597*^9},ExpressionUUID->"6137793c-abac-477d-a0d1-\
ce58668fa835"]
}, 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}},ExpressionUUID->"c1fec85d-d4d1-4f56-9ecf-\
1bf2dc472407"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{
  3.7525902314664154`*^9, {3.7525902957042503`*^9, 3.7525902990374017`*^9}, 
   3.753914273502124*^9, 3.7570029254371653`*^9, 
   3.757003171068428*^9},ExpressionUUID->"60771fc6-461d-49ef-8f70-\
c85794e21e1b"]
}, 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}},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.757002925476419*^9, 
   3.7570031710835447`*^9},ExpressionUUID->"6d39dcaf-963c-44df-aca2-\
38b5653fde21"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintVtildeBasis", "[", "Test12", "]"}], "[", 
  RowBox[{"1", ",", "2"}], "]"}]], "Input",
 CellChangeTimes->{{3.7465556948940125`*^9, 
  3.746555712403555*^9}},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.757002925502734*^9, 
  3.757003171099804*^9},ExpressionUUID->"c4bda9d7-a00d-4662-9c11-\
ad9d0f4ed290"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintVtildeBasis", "[", "Test12", "]"}], "[", 
  RowBox[{"1", ",", "3"}], "]"}]], "Input",
 CellChangeTimes->{{3.7465556948940125`*^9, 
  3.746555719223196*^9}},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.757002925524802*^9, 
  3.757003171116426*^9},ExpressionUUID->"c35ea4cc-32db-4cd5-b217-\
49495b5a3276"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintVtildeBasis", "[", "Test12", "]"}], "[", 
  RowBox[{"1", ",", "4"}], "]"}]], "Input",
 CellChangeTimes->{{3.7465556948940125`*^9, 
  3.746555722466285*^9}},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.7570029255477324`*^9, 
  3.7570031711333513`*^9},ExpressionUUID->"1f74a79d-f44d-4618-9cb7-\
eb6b1ca97d33"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintVtildeBasis", "[", "Test12", "]"}], "[", 
  RowBox[{"2", ",", "3"}], "]"}]], "Input",
 CellChangeTimes->{{3.7465556948940125`*^9, 
  3.746555726262475*^9}},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.757002925570531*^9, 
  3.757003171149972*^9},ExpressionUUID->"6c423862-b095-49ca-977d-\
021f30a0ffb3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintVtildeBasis", "[", "Test12", "]"}], "[", 
  RowBox[{"2", ",", "4"}], "]"}]], "Input",
 CellChangeTimes->{{3.7465556948940125`*^9, 
  3.746555733250712*^9}},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.757002925592567*^9, 
  3.757003171166581*^9},ExpressionUUID->"bb88023e-4a71-4516-9ddf-\
c0bd547fba55"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintVtildeBasis", "[", "Test12", "]"}], "[", 
  RowBox[{"3", ",", "4"}], "]"}]], "Input",
 CellChangeTimes->{{3.7465556948940125`*^9, 
  3.7465557373775005`*^9}},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.757002925614769*^9, 
  3.757003171183229*^9},ExpressionUUID->"0ce9e481-49d5-449f-85d1-\
0b3862c7b534"]
}, 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}},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}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
        "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    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.757002925637998*^9, 
  3.757003171212789*^9},ExpressionUUID->"64e66ffd-3877-4bb7-bb33-\
ed98b3c7b49a"]
}, 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}},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}}, "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", 
        FractionBox["1", "2"], "0"},
       {
        FractionBox["1", "2"], "0", "0"},
       {"0", "0", "0"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", 
        RowBox[{"-", 
         FractionBox["1", "2"]}], "0"},
       {
        FractionBox["1", "2"], "0", "0"},
       {"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[{
       {
        FractionBox["1", "2"], "0", "0"},
       {"0", 
        RowBox[{"-", 
         FractionBox["1", "2"]}], "0"},
       {"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", 
        FractionBox["1", "2"]},
       {"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", "0", 
        RowBox[{"-", 
         FractionBox["1", "2"]}]},
       {"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", "0", "0"},
       {"0", "0", 
        FractionBox["1", "2"]},
       {"0", 
        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$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0"},
       {"0", "0", 
        RowBox[{"-", 
         FractionBox["1", "2"]}]},
       {"0", 
        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$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        FractionBox["1", "6"], "0", "0"},
       {"0", 
        FractionBox["1", "6"], "0"},
       {"0", "0", 
        RowBox[{"-", 
         FractionBox["1", "3"]}]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{3.750017887714807*^9, 3.7500180385737953`*^9, 
  3.750378084200729*^9, 3.752520859350752*^9, 3.752587467045127*^9, 
  3.7539142740335817`*^9, 3.757002925661129*^9, 
  3.7570031712282953`*^9},ExpressionUUID->"7b92998d-5112-402a-b58b-\
67759849d1f5"]
}, 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}},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.7570029256845837`*^9, 
  3.7570031712437057`*^9},ExpressionUUID->"41fc1cef-b0ed-41ab-84f4-\
7edb10e9d945"]
}, 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}},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}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.7500178877967143`*^9, 3.750018038621949*^9, 
  3.7503780842485733`*^9, 3.7525208593991327`*^9, 3.7525874671270466`*^9, 
  3.753914274142931*^9, 3.75700292569106*^9, 
  3.757003171258136*^9},ExpressionUUID->"c2e760de-9c09-42c2-81f1-\
542b5d7b335e"]
}, 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}},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}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.75001788781953*^9, 3.750018038641288*^9, 
  3.7503780842725463`*^9, 3.7525208594310555`*^9, 3.752587467155733*^9, 
  3.7539142742054167`*^9, 3.757002925713551*^9, 
  3.757003171273116*^9},ExpressionUUID->"18abcfe3-8196-4b50-8d00-\
75c9e018e019"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintAllVtildePM", "[", "1", "]"}], "[", "Test12", "]"}]], "Input",\

 CellChangeTimes->{{3.746637142129855*^9, 
  3.7466371608661747`*^9}},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}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", 
        RowBox[{"-", "\[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}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", 
        RowBox[{"-", "\[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}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{3.750017887842841*^9, 3.750018038665636*^9, 
  3.750378084301462*^9, 3.7525208594559746`*^9, 3.7525874671870084`*^9, 
  3.7539142742679043`*^9, 3.757002925739223*^9, 
  3.757003171290721*^9},ExpressionUUID->"62895177-91c7-4bf6-bc04-\
8eefe4f5171e"]
}, 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}},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}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.7500178878631763`*^9, 3.75001803868746*^9, 
  3.7503780843263645`*^9, 3.7525208594809103`*^9, 3.7525874672182198`*^9, 
  3.753914274330387*^9, 3.757002925745571*^9, 
  3.757003171297632*^9},ExpressionUUID->"66d3d775-e307-43ff-a832-\
d5f98972ac6c"]
}, 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}},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}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.750017887885498*^9, 3.7500180387082915`*^9, 
  3.7503780843513393`*^9, 3.752520859503848*^9, 3.752587467249462*^9, 
  3.7539142743616295`*^9, 3.757002925769656*^9, 
  3.757003171312232*^9},ExpressionUUID->"33a555c7-f89c-4ea7-9a62-\
f5a384c14297"]
}, 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}},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}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.7500178879137707`*^9, 3.7500180387350764`*^9, 
  3.750378084374237*^9, 3.7525208595337696`*^9, 3.752587467289405*^9, 
  3.753914274392873*^9, 3.757002925792157*^9, 
  3.7570031713259277`*^9},ExpressionUUID->"f464346b-be04-4230-a4b0-\
2aab80b691b0"]
}, 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}},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.7570029258182993`*^9, 
  3.7570031713411293`*^9},ExpressionUUID->"4c27b107-0427-41b5-83a8-\
4da3d9d176a6"]
}, 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}},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}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.750017887960393*^9, 3.750018038783759*^9, 
  3.750378084426098*^9, 3.7525208595906167`*^9, 3.7525874673317933`*^9, 
  3.7539142744709787`*^9, 3.757002925824094*^9, 
  3.757003171356082*^9},ExpressionUUID->"29b98c4e-20e1-4500-8011-\
13083a2185f9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintAllL", "[", "Test12", "]"}]], "Input",
 CellChangeTimes->{{3.746635666872222*^9, 
  3.746635670341158*^9}},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}}, "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$]]]}], "}"}]], "Output",
 CellChangeTimes->{3.750017887985729*^9, 3.7500180388081026`*^9, 
  3.7503780844600077`*^9, 3.752520859620535*^9, 3.752587467363071*^9, 
  3.753914274517845*^9, 3.757002925848749*^9, 
  3.757003171372752*^9},ExpressionUUID->"dc036f96-594a-4f4e-933f-\
fb20d60f14df"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintR", "[", "Test12", "]"}], "[", "2", "]"}]], "Input",
 CellChangeTimes->{{3.7465563536745133`*^9, 3.7465563574651155`*^9}, {
  3.746635675435429*^9, 
  3.746635675670105*^9}},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}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.7500178880140047`*^9, 3.750018038826458*^9, 
  3.750378084483945*^9, 3.7525208596504545`*^9, 3.7525874673786883`*^9, 
  3.753914274564709*^9, 3.757002925854567*^9, 
  3.75700317138799*^9},ExpressionUUID->"cab98cac-84dc-4011-af76-8b83494f1eec"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintAllR", "[", "Test12", "]"}]], "Input",
 CellChangeTimes->{{3.7466356771387634`*^9, 
  3.7466356802015977`*^9}},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}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "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}}, "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", 
        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}}, "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", "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}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{3.750017888041278*^9, 3.750018038859187*^9, 
  3.7503780845119*^9, 3.7525208596773825`*^9, 3.75258746740993*^9, 
  3.75391427459595*^9, 3.7570029258791103`*^9, 
  3.757003171403884*^9},ExpressionUUID->"cc23db3d-d897-4e8d-8ace-\
b002cd678f4f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintAllGALR", "[", "Test12", "]"}]], "Input",
 CellChangeTimes->{{3.752587472391282*^9, 
  3.7525874816204076`*^9}},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}}, "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", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"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}}, "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", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"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}}, "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", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"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}}, "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[{
       {"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}}, "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", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"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}}, "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", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"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}}, "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[{
       {"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}}, "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", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"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}}, "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[{
       {"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}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{3.752587481988941*^9, 3.7539142746584673`*^9, 
  3.757002925903027*^9, 
  3.757003171424567*^9},ExpressionUUID->"e72a3373-2cda-4188-be2e-\
d2af2f7a5674"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintAllGARL", "[", "Test12", "]"}]], "Input",
 CellChangeTimes->{{3.752587472391282*^9, 
  3.752587504124601*^9}},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}}, "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", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"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}}, "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", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"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}}, "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", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"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}}, "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[{
       {"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}}, "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", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"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}}, "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", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"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}}, "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[{
       {"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}}, "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", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
       {"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}}, "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[{
       {"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}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{{3.752587481988941*^9, 3.75258750485065*^9}, 
   3.753914274705331*^9, 3.757002925926573*^9, 
   3.757003171446471*^9},ExpressionUUID->"89412b12-cd6c-4dbc-a33a-\
6b6bf3ea04e1"]
}, 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}},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.7570029259334173`*^9, 
  3.757003171460794*^9},ExpressionUUID->"65ab64f5-419d-4d8e-bd5c-\
25b6330a121e"]
}, 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}},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}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", 
        RowBox[{"-", "\[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}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", 
        RowBox[{"-", "\[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}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{3.7500178880888577`*^9, 3.7500180389033375`*^9, 
  3.7503780845617666`*^9, 3.7525208597302427`*^9, 3.7525874674657454`*^9, 
  3.7539142747834063`*^9, 3.757002925957213*^9, 
  3.757003171475905*^9},ExpressionUUID->"917f2028-8f0c-4cdb-a6c4-\
87b2d9b46db0"]
}, 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}},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}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.7500178881176243`*^9, 3.7500180389221535`*^9, 
  3.750378084586704*^9, 3.752520859755175*^9, 3.752587467487027*^9, 
  3.7539142748302703`*^9, 3.7570029259628773`*^9, 
  3.757003171490403*^9},ExpressionUUID->"a9e4dd0a-e82e-4b3c-991d-\
aecfe4228771"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Holoraumytilde", "[", "Test12", "]"}], "[", 
   RowBox[{"[", "15", "]"}], "]"}], "//", "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.746636020868125*^9, 
  3.746636083545944*^9}},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}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.7500178881478825`*^9, 3.7500180389444633`*^9, 
  3.7503780846106434`*^9, 3.7525208597821083`*^9, 3.7525874675037565`*^9, 
  3.753914274861805*^9, 3.757002925984682*^9, 
  3.757003171505234*^9},ExpressionUUID->"497a3a90-d347-4cc2-8ad0-\
d4fc3406e06d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"PrintZetaGen", "[", "Test12", "]"}], "[", "4", "]"}]], "Input",
 CellChangeTimes->{{3.7466360919375286`*^9, 
  3.746636131285016*^9}},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}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.750017888171194*^9, 3.7500180389718075`*^9, 
  3.7503780846355586`*^9, 3.7525208598120236`*^9, 3.7525874675193806`*^9, 
  3.7539142749086685`*^9, 3.7570029260062304`*^9, 
  3.757003171520257*^9},ExpressionUUID->"2c35e379-7e44-43ed-9924-\
ed6897bb4753"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintAllZetaGen", "[", "Test12", "]"}]], "Input",
 CellChangeTimes->{{3.7466361056418924`*^9, 
  3.746636110189152*^9}},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}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "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}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "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}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{3.7500178881960745`*^9, 3.7500180389975376`*^9, 
  3.750378084662497*^9, 3.7525208598379545`*^9, 3.752587467553794*^9, 
  3.7539142749555626`*^9, 3.757002926030367*^9, 
  3.757003171535182*^9},ExpressionUUID->"9d974eb2-cc3e-44b4-b74c-\
59111d67e4fe"]
}, 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}},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.757002926036747*^9, 
  3.7570031715494843`*^9},ExpressionUUID->"e5be87cc-b41f-4a30-bf6b-\
16881ca0aa77"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"WordW", "[", 
  RowBox[{"{", 
   RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.746636245851265*^9, 
  3.7466362654467783`*^9}},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.757002926057549*^9, 
  3.757003171565167*^9},ExpressionUUID->"6c05088c-fda1-4823-9bdb-\
25e37d0edee3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintAllHoloraumytilde", "[", "Test12", "]"}]], "Input",
 CellChangeTimes->{{3.746636161397277*^9, 
  3.746636166319648*^9}},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}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "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}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "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}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "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}}, "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", 
        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}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", 
        RowBox[{"-", "1"}], "0", "0", "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}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "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}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        RowBox[{"-", "1"}], "0", "0", "0", "0", "0", "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}}, "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", "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}}, "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", 
        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}}, "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"},
       {
        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}}, "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"},
       {
        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}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", 
        RowBox[{"-", "1"}], "0", "0", "0", "0", "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}}, "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", "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}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0", "0", "0", "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}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0", "0", "0", "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}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{3.750017888303624*^9, 3.7500180390903244`*^9, 
  3.750378084760242*^9, 3.752520859946663*^9, 3.75258746763564*^9, 
  3.7539142750492887`*^9, 3.757002926090085*^9, 
  3.757003171590692*^9},ExpressionUUID->"1978e70d-1950-40e3-8d0a-\
2c5bdc53b2e4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrintAllMonodromytilde", "[", "Test12", "]"}]], "Input",
 CellChangeTimes->{{3.7466361442237477`*^9, 
  3.7466361516151896`*^9}},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}}, "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", "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}}, "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"},
       {"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}}, "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"},
       {"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}}, "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", "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}}, "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", "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}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0", "0", "0", "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}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0", "0", "0", "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}}, "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", "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}}, "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", "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}}, "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"},
       {"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}}, "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"},
       {"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}}, "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", "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}}, "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", "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}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0", "0", "0", "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}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"1", "0", "0", "0", "0", "0", "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}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{3.750017888349753*^9, 3.750018039138444*^9, 
  3.75037808482008*^9, 3.752520859998563*^9, 3.752587467720024*^9, 
  3.75391427514302*^9, 3.757002926125452*^9, 
  3.757003171616395*^9},ExpressionUUID->"42a16c5a-9ab5-43bf-8105-\
a0a0270a84e1"]
}, Open  ]]
}, Closed]]
}, 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}},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}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.757003171727209*^9, 
  3.757003224373417*^9},ExpressionUUID->"c187f41f-62e7-4f57-9956-\
f3d7ba631117"]
}, Open  ]]
}, Closed]]
}, Open  ]]
},
WindowSize->{1352, 853},
WindowMargins->{{0, Automatic}, {Automatic, 60}},
PrintingCopies->1,
PrintingPageRange->{Automatic, Automatic},
PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}},
ShowSelection->True,
CellContext->Notebook,
FrontEndVersion->"11.1 for Linux x86 (64-bit) (April 18, 2017)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 8889, 120, 94, "Title", "ExpressionUUID" -> \
"dfab12f3-523a-4891-ab6d-6353bcfa0aa5"],
Cell[CellGroupData[{
Cell[9494, 146, 125, 1, 33, "Input", "ExpressionUUID" -> \
"65e9b759-d921-4a12-9e52-b3e8b17f8777"],
Cell[9622, 149, 1118, 17, 33, "Output", "ExpressionUUID" -> \
"a90e92ba-7117-481e-8736-6f247bae7094"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10777, 171, 321, 5, 66, "Section", "ExpressionUUID" -> \
"8ce62cfa-2467-4484-bfab-5a2bb7149ea5"],
Cell[11101, 178, 275, 5, 33, "Input", "ExpressionUUID" -> \
"3ce86a4c-e50b-42b6-b6ba-cfca0898781a"],
Cell[CellGroupData[{
Cell[11401, 187, 194, 4, 33, "Input", "ExpressionUUID" -> \
"335154d1-1580-4631-8a3e-4170890b8e5c"],
Cell[11598, 193, 1233, 18, 33, "Output", "ExpressionUUID" -> \
"b1ddad5a-fdd3-4aba-a306-88ee393fbcbf"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12868, 216, 162, 3, 46, "Subsection", "ExpressionUUID" -> \
"9032bd95-7de1-4377-8cd7-b7fd291e0e1f"],
Cell[CellGroupData[{
Cell[13055, 223, 299, 5, 28, "Input", "ExpressionUUID" -> \
"433cc145-fb86-450b-9648-f7c5cbb57d74"],
Cell[13357, 230, 1669, 25, 70, "Output", "ExpressionUUID" -> \
"124f2a5f-3a80-4d2c-bf3f-1028b3cef6d5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15063, 260, 252, 5, 28, "Input", "ExpressionUUID" -> \
"5ab02646-7eb8-4bc6-9cc6-8c4ac39583d4"],
Cell[15318, 267, 1456, 21, 70, "Output", "ExpressionUUID" -> \
"df78bff2-f32a-43cb-a699-565fd0037d40"]
}, Open  ]],
Cell[CellGroupData[{
Cell[16811, 293, 209, 4, 28, "Input", "ExpressionUUID" -> \
"f2152041-3457-4816-9e34-ccfb12c93d8a"],
Cell[17023, 299, 3888, 57, 70, "Output", "ExpressionUUID" -> \
"b5e2d9c9-607b-4d89-a67e-b634a22818a7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[20948, 361, 285, 5, 70, "Input", "ExpressionUUID" -> \
"cd131f93-6eb8-4ba3-b71c-6c9265945b1e"],
Cell[21236, 368, 2610, 38, 70, "Output", "ExpressionUUID" -> \
"b667f532-82b0-46de-a905-8424330c31f2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[23883, 411, 297, 5, 70, "Input", "ExpressionUUID" -> \
"5cf8981a-5985-4a6c-861a-8b771458a158"],
Cell[24183, 418, 2067, 29, 70, "Output", "ExpressionUUID" -> \
"7ebb4285-49dc-4c90-a85a-8db244bca5fb"]
}, Open  ]],
Cell[CellGroupData[{
Cell[26287, 452, 302, 5, 70, "Input", "ExpressionUUID" -> \
"8a453f50-9c25-4910-84fc-5bfae4aaeae8"],
Cell[26592, 459, 1600, 24, 70, "Output", "ExpressionUUID" -> \
"085bd823-eb87-4dc9-8053-3d1576fa05ac"]
}, Open  ]],
Cell[CellGroupData[{
Cell[28229, 488, 199, 4, 70, "Input", "ExpressionUUID" -> \
"157db393-0dff-4169-adae-289b23a3d1a9"],
Cell[28431, 494, 7628, 113, 70, "Output", "ExpressionUUID" -> \
"293dc883-3e57-411f-ba46-cf2064efd41c"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[36108, 613, 187, 3, 38, "Subsection", "ExpressionUUID" -> \
"d2a6411a-95d2-4892-9744-45cbf8b5fc2e"],
Cell[CellGroupData[{
Cell[36320, 620, 183, 3, 70, "Subsubsection", "ExpressionUUID" -> \
"6d43e65b-1220-4dd0-ac77-fbe7c15c929c"],
Cell[CellGroupData[{
Cell[36528, 627, 227, 6, 70, "Input", "ExpressionUUID" -> \
"696619bb-4bda-4abd-a3d7-6c21086107ae"],
Cell[36758, 635, 1217, 17, 70, "Output", "ExpressionUUID" -> \
"ef46c4e0-db83-4c9e-b8b7-3d4ba76f2014"]
}, Open  ]],
Cell[CellGroupData[{
Cell[38012, 657, 159, 3, 70, "Input", "ExpressionUUID" -> \
"da336974-8655-41e2-a289-74fb778d736c"],
Cell[38174, 662, 1562, 30, 70, "Output", "ExpressionUUID" -> \
"686cd180-6673-4802-9971-b67a6a4b1ad5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[39773, 697, 264, 6, 70, "Input", "ExpressionUUID" -> \
"61551fc0-f96c-4eff-a43f-a97ce806d229"],
Cell[40040, 705, 2169, 51, 70, "Output", "ExpressionUUID" -> \
"dbae6250-d8d4-4497-bb0d-0f65b18f5cb6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[42246, 761, 338, 8, 70, "Input", "ExpressionUUID" -> \
"a623415f-9142-4544-adfe-1e00582a4797"],
Cell[42587, 771, 2273, 54, 70, "Output", "ExpressionUUID" -> \
"a81bbe20-5995-4f4f-a1e1-489a2249cd85"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[44909, 831, 240, 4, 70, "Subsubsection", "ExpressionUUID" -> \
"9e6f5328-f24c-43bd-9942-c8f1da8f8655"],
Cell[CellGroupData[{
Cell[45174, 839, 299, 7, 70, "Input", "ExpressionUUID" -> \
"5fb3bfd5-b3f1-4920-94ac-b5a0e529a661"],
Cell[45476, 848, 979, 14, 70, "Output", "ExpressionUUID" -> \
"efead78f-748e-4ec2-924e-eb5a6ed9e942"]
}, Open  ]],
Cell[CellGroupData[{
Cell[46492, 867, 207, 4, 70, "Input", "ExpressionUUID" -> \
"d3176023-b48b-47c7-a647-5e2098481ea2"],
Cell[46702, 873, 3613, 54, 70, "Output", "ExpressionUUID" -> \
"51244e5f-c815-4b30-9626-92ed2ec3c2f6"]
}, Open  ]]
}, Closed]]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[50388, 935, 185, 3, 66, "Section", "ExpressionUUID" -> \
"c02196b5-2233-4c25-943c-b731f22bef07"],
Cell[CellGroupData[{
Cell[50598, 942, 367, 7, 46, "Subsection", "ExpressionUUID" -> \
"1905aa93-7351-461c-b7af-8455c660b0dc"],
Cell[CellGroupData[{
Cell[50990, 953, 225, 4, 37, "Subsubsection", "ExpressionUUID" -> \
"2f39c62b-6525-4504-ba74-c377cd029a84"],
Cell[51218, 959, 220, 5, 35, "Input", "ExpressionUUID" -> \
"8f6915c5-fea2-498e-b90f-2d9132f83477"],
Cell[51441, 966, 749, 21, 35, "Input", "ExpressionUUID" -> \
"33ccb116-3149-4cbb-a280-81fedd0655ca"],
Cell[CellGroupData[{
Cell[52215, 991, 254, 5, 33, "Input", "ExpressionUUID" -> \
"05e36c69-c6ae-4ab3-9cae-f12ef1cb18e0"],
Cell[52472, 998, 919, 20, 35, "Output", "ExpressionUUID" -> \
"ee66a043-ae9e-4e07-90b6-5528ede1590b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[53428, 1023, 309, 5, 33, "Input", "ExpressionUUID" -> \
"edcbe6ac-051a-402c-881d-d92bcef627e2"],
Cell[53740, 1030, 1325, 30, 202, "Output", "ExpressionUUID" -> \
"f7c377e5-81c2-4b99-b56a-8218dd8c5c7b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[55102, 1065, 267, 6, 35, "Input", "ExpressionUUID" -> \
"634c672e-399b-47d4-bb95-ca1ea6c2bf1c"],
Cell[55372, 1073, 722, 10, 50, "Print", "ExpressionUUID" -> \
"036d3996-b585-461b-a96a-26268228efbe"]
}, Open  ]],
Cell[CellGroupData[{
Cell[56131, 1088, 202, 4, 33, "Input", "ExpressionUUID" -> \
"fd69f98f-d8db-436d-b44c-a6ad23bfd240"],
Cell[56336, 1094, 2336, 46, 285, "Output", "ExpressionUUID" -> \
"60d47203-83fd-4c21-a9e5-5da53863a731"]
}, Open  ]],
Cell[CellGroupData[{
Cell[58709, 1145, 223, 4, 33, "Input", "ExpressionUUID" -> \
"c2a38179-4057-4fb4-8711-8127a03132e9"],
Cell[58935, 1151, 974, 20, 167, "Output", "ExpressionUUID" -> \
"4de6ec76-351e-45f2-b180-40fed4e459b0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[59946, 1176, 199, 4, 33, "Input", "ExpressionUUID" -> \
"0b648bb2-824c-4778-a10f-6f7ccc5fb4be"],
Cell[60148, 1182, 3898, 84, 456, "Output", "ExpressionUUID" -> \
"6b889fde-3ca1-453c-8f71-948fd765232c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[64083, 1271, 195, 4, 33, "Input", "ExpressionUUID" -> \
"556e636b-1dd4-421c-be1d-df480602d654"],
Cell[64281, 1277, 4419, 121, 88, "Output", "ExpressionUUID" -> \
"611c3e3e-c7ba-42dd-9ee0-9c9295009fa0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[68737, 1403, 193, 4, 33, "Input", "ExpressionUUID" -> \
"0c85efbf-dbee-4f68-ab5e-4b83d9aa7fe7"],
Cell[68933, 1409, 4421, 121, 88, "Output", "ExpressionUUID" -> \
"bf6410ac-1843-4ee1-b4cf-c5c54a212967"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[73403, 1536, 519, 9, 37, "Subsubsection", "ExpressionUUID" -> \
"a62e9f3b-2b24-4274-88f0-1f7c95f22b42"],
Cell[CellGroupData[{
Cell[73947, 1549, 225, 4, 33, "Input", "ExpressionUUID" -> \
"596f42e6-7cdd-4dae-a0a8-80fbb7f30290"],
Cell[74175, 1555, 6358, 178, 88, "Output", "ExpressionUUID" -> \
"5d86a07e-e355-4bf2-ab0c-f74b1fa2a3cf"]
}, Open  ]],
Cell[CellGroupData[{
Cell[80570, 1738, 211, 4, 33, "Input", "ExpressionUUID" -> \
"caf7708a-b27a-4170-af80-e18f0e94e1c6"],
Cell[80784, 1744, 6352, 178, 88, "Output", "ExpressionUUID" -> \
"cec8c751-4680-4a3d-9818-cc749e126712"]
}, Open  ]],
Cell[CellGroupData[{
Cell[87173, 1927, 227, 4, 33, "Input", "ExpressionUUID" -> \
"0a1ccce2-0021-470d-9d4d-2a1f66bf0647"],
Cell[87403, 1933, 5972, 162, 88, "Output", "ExpressionUUID" -> \
"4c4b92c5-3e7f-4fa6-866b-f1e662d94e74"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[93436, 2102, 428, 8, 46, "Subsection", "ExpressionUUID" -> \
"397936b2-ab70-43b0-80f6-0d930a959463"],
Cell[CellGroupData[{
Cell[93889, 2114, 173, 3, 70, "Subsubsection", "ExpressionUUID" -> \
"2613a12b-f190-4744-9d98-69b04e3f19e0"],
Cell[94065, 2119, 280, 6, 70, "Input", "ExpressionUUID" -> \
"f5233de6-fd7b-4cbf-90a4-c970f089a482"],
Cell[94348, 2127, 741, 19, 70, "Input", "ExpressionUUID" -> \
"83ef1628-a1d1-4824-978a-1b5b18014cd4"],
Cell[CellGroupData[{
Cell[95114, 2150, 254, 5, 70, "Input", "ExpressionUUID" -> \
"5ce4b490-561a-43a3-9654-37a37bcd7e07"],
Cell[95371, 2157, 897, 19, 70, "Output", "ExpressionUUID" -> \
"85d24c5c-1658-4281-9287-4c791ca694e5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[96305, 2181, 267, 6, 70, "Input", "ExpressionUUID" -> \
"8a077ae5-8305-4122-b342-44e584fc4abb"],
Cell[96575, 2189, 719, 11, 70, "Print", "ExpressionUUID" -> \
"0cd55c72-c799-481f-86bd-9cfc0114a57d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[97331, 2205, 262, 5, 70, "Input", "ExpressionUUID" -> \
"79ad44e1-71a3-457d-98e7-3b263a5c0c4f"],
Cell[97596, 2212, 1321, 30, 70, "Output", "ExpressionUUID" -> \
"738f6300-7bfb-4fba-aae5-fb5b9603b44c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[98954, 2247, 217, 5, 70, "Input", "ExpressionUUID" -> \
"844e12fa-be38-4aff-bbfd-f958e84b0ee3"],
Cell[99174, 2254, 801, 18, 70, "Output", "ExpressionUUID" -> \
"cf545477-8263-4f91-b1f8-3b55280aad30"]
}, Open  ]],
Cell[CellGroupData[{
Cell[100012, 2277, 219, 5, 70, "Input", "ExpressionUUID" -> \
"f07e75cd-51cb-4afb-9070-bc5198ec9be4"],
Cell[100234, 2284, 1250, 29, 70, "Output", "ExpressionUUID" -> \
"418cdccd-4d8d-4064-85e3-d25d2ecd2a0a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[101521, 2318, 219, 5, 70, "Input", "ExpressionUUID" -> \
"2270983c-1a88-458f-9380-37bd2cab9655"],
Cell[101743, 2325, 2196, 44, 70, "Output", "ExpressionUUID" -> \
"76fd83bd-9d19-497d-8d76-8930ed294478"]
}, Open  ]],
Cell[CellGroupData[{
Cell[103976, 2374, 219, 5, 70, "Input", "ExpressionUUID" -> \
"5d1b6029-49a0-4898-b16e-fa9bab0d71a8"],
Cell[104198, 2381, 2672, 56, 70, "Output", "ExpressionUUID" -> \
"82b7a45e-cd3d-48ad-b304-48a0fc329ac9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[106907, 2442, 242, 5, 70, "Input", "ExpressionUUID" -> \
"47e8ede8-db82-4389-bad5-31f8dc3e1a15"],
Cell[107152, 2449, 1185, 28, 70, "Output", "ExpressionUUID" -> \
"79f6cb7a-5424-4ea6-a866-8aa819e4c186"]
}, Open  ]],
Cell[CellGroupData[{
Cell[108374, 2482, 242, 5, 70, "Input", "ExpressionUUID" -> \
"b38fbacd-2223-4e12-b804-d90ec5013ce0"],
Cell[108619, 2489, 1657, 40, 70, "Output", "ExpressionUUID" -> \
"dd71c6ee-4875-4e73-90e6-d3351fba6cd4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[110313, 2534, 242, 5, 70, "Input", "ExpressionUUID" -> \
"1be91ea0-a2db-4b4e-abbf-335845a84665"],
Cell[110558, 2541, 2607, 55, 70, "Output", "ExpressionUUID" -> \
"f173c2a9-c5f7-4e56-9d49-ccbd821525eb"]
}, Open  ]],
Cell[CellGroupData[{
Cell[113202, 2601, 242, 5, 70, "Input", "ExpressionUUID" -> \
"97f0e1d4-6540-44c2-a901-4b612be6d4ca"],
Cell[113447, 2608, 3161, 69, 70, "Output", "ExpressionUUID" -> \
"9b7ce7ef-5e98-45b7-a76c-914fc21fafc5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[116645, 2682, 240, 5, 70, "Input", "ExpressionUUID" -> \
"004c7122-af4e-4075-ad53-2242bdfc42bf"],
Cell[116888, 2689, 3766, 83, 70, "Output", "ExpressionUUID" -> \
"b5d737cc-4d04-48ae-9cde-7eabfcfb3824"]
}, Open  ]],
Cell[CellGroupData[{
Cell[120691, 2777, 205, 4, 70, "Input", "ExpressionUUID" -> \
"9cebb8cc-16b8-44b6-898c-0a994a448723"],
Cell[120899, 2783, 2734, 57, 70, "Output", "ExpressionUUID" -> \
"7b1caea3-152a-4dbf-9fd2-949244b55e76"]
}, Open  ]],
Cell[CellGroupData[{
Cell[123670, 2845, 199, 4, 70, "Input", "ExpressionUUID" -> \
"cb0e7d2a-4034-4356-a09f-62198c1a9cb0"],
Cell[123872, 2851, 3884, 85, 70, "Output", "ExpressionUUID" -> \
"9cc1d624-7c28-487f-86a5-1b099a58bd23"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[127805, 2942, 519, 9, 70, "Subsubsection", "ExpressionUUID" -> \
"5a20db39-46e2-433b-9ac0-0967cc76508a"],
Cell[CellGroupData[{
Cell[128349, 2955, 223, 4, 70, "Input", "ExpressionUUID" -> \
"1d2f0da6-5bf7-4781-baef-d2a228ce4e03"],
Cell[128575, 2961, 6352, 178, 70, "Output", "ExpressionUUID" -> \
"6d012a6d-8a27-45f2-b690-4538fcf0d04e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[134964, 3144, 225, 4, 70, "Input", "ExpressionUUID" -> \
"dc4ca61b-7d01-45ee-9b02-6ffaaefa0b9a"],
Cell[135192, 3150, 5971, 162, 70, "Output", "ExpressionUUID" -> \
"612af8f7-24b0-4fc8-b75c-f883c585292f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[141200, 3317, 282, 7, 70, "Input", "ExpressionUUID" -> \
"bd01e09c-79ca-4c97-a7a4-c17b2c7d96a2"],
Cell[141485, 3326, 1190, 29, 70, "Output", "ExpressionUUID" -> \
"96c743f9-f81e-45fa-8031-1597f1d413eb"]
}, Open  ]],
Cell[CellGroupData[{
Cell[142712, 3360, 282, 7, 70, "Input", "ExpressionUUID" -> \
"a6c41fef-92d4-4a13-beaa-7dc68a2b9480"],
Cell[142997, 3369, 1134, 27, 70, "Output", "ExpressionUUID" -> \
"f9e7e879-c81c-4da2-9508-cf787957a7f4"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[144192, 3403, 485, 9, 38, "Subsection", "ExpressionUUID" -> \
"d88f5302-a79a-4452-b8bb-f03407efacfc"],
Cell[CellGroupData[{
Cell[144702, 3416, 173, 3, 70, "Subsubsection", "ExpressionUUID" -> \
"865524d6-f3c0-4547-9dbc-f6cf58db755f"],
Cell[144878, 3421, 333, 7, 70, "Input", "ExpressionUUID" -> \
"ec82dbfb-2d57-4ed5-89f7-f35943e28d0d"],
Cell[145214, 3430, 790, 20, 70, "Input", "ExpressionUUID" -> \
"cb3c9160-e412-402f-8b7c-a5f5fea9948d"],
Cell[CellGroupData[{
Cell[146029, 3454, 254, 5, 70, "Input", "ExpressionUUID" -> \
"04270c6f-e151-4ed4-9f79-00bfede3d96e"],
Cell[146286, 3461, 897, 19, 70, "Output", "ExpressionUUID" -> \
"05f537b5-8926-426b-aa3d-ff8bc932c7f6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[147220, 3485, 267, 6, 70, "Input", "ExpressionUUID" -> \
"6dade608-68b8-4218-9895-57fd98bbd6d7"],
Cell[147490, 3493, 716, 11, 70, "Print", "ExpressionUUID" -> \
"920fad28-1fb6-417b-83a7-2b3ff41f4c31"]
}, Open  ]],
Cell[CellGroupData[{
Cell[148243, 3509, 262, 5, 70, "Input", "ExpressionUUID" -> \
"40fd652b-98ba-4c16-9c99-8c95eb9f966b"],
Cell[148508, 3516, 1310, 30, 70, "Output", "ExpressionUUID" -> \
"e9845ad4-ef4c-4527-b0af-fb72dec36210"]
}, Open  ]],
Cell[CellGroupData[{
Cell[149855, 3551, 221, 4, 70, "Input", "ExpressionUUID" -> \
"62ebb1f5-498e-4f5d-93bf-75265e48a993"],
Cell[150079, 3557, 947, 20, 70, "Output", "ExpressionUUID" -> \
"17e94050-4d1b-4b69-ac7e-c2218256aa1e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[151063, 3582, 199, 4, 70, "Input", "ExpressionUUID" -> \
"222a4122-716c-409b-9404-bfbfc085df04"],
Cell[151265, 3588, 3885, 85, 70, "Output", "ExpressionUUID" -> \
"a756bcee-4bfb-4d6d-ae31-0991e28ceb58"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[155199, 3679, 519, 9, 70, "Subsubsection", "ExpressionUUID" -> \
"af95e205-e375-42d4-b9ea-959347f752b2"],
Cell[CellGroupData[{
Cell[155743, 3692, 223, 4, 70, "Input", "ExpressionUUID" -> \
"9cdd5fe4-e7fc-4088-8804-25c4d6940970"],
Cell[155969, 3698, 6355, 178, 70, "Output", "ExpressionUUID" -> \
"674f05a9-8928-4160-83f7-1bb41dc1d426"]
}, Open  ]],
Cell[CellGroupData[{
Cell[162361, 3881, 225, 4, 70, "Input", "ExpressionUUID" -> \
"5d22be30-e09e-4611-9fdf-738f50fa681f"],
Cell[162589, 3887, 5966, 162, 70, "Output", "ExpressionUUID" -> \
"e6c730a8-dc28-4370-bc57-f34bf74d4147"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[168616, 4056, 237, 4, 38, "Subsection", "ExpressionUUID" -> \
"a533c7d1-b372-44bf-99df-f38659be5ac0"],
Cell[CellGroupData[{
Cell[168878, 4064, 173, 3, 70, "Subsubsection", "ExpressionUUID" -> \
"baab48d3-2845-44c2-b87c-95ff34dded25"],
Cell[169054, 4069, 215, 5, 70, "Input", "ExpressionUUID" -> \
"5ae8aa72-0e71-4833-aae6-f6d1b3fd4839"],
Cell[169272, 4076, 1124, 27, 70, "Input", "ExpressionUUID" -> \
"6966d13b-e33c-4fcf-9190-77ce8f71562d"],
Cell[CellGroupData[{
Cell[170421, 4107, 199, 4, 70, "Input", "ExpressionUUID" -> \
"11a74408-3459-40bd-b09c-acdcc6b3ae1b"],
Cell[170623, 4113, 1214, 27, 70, "Output", "ExpressionUUID" -> \
"fbeb9b0b-120c-4e03-8f0a-e9b1c5bc4c27"]
}, Open  ]],
Cell[CellGroupData[{
Cell[171874, 4145, 290, 6, 70, "Input", "ExpressionUUID" -> \
"68fe6666-7be0-4e5f-99a3-db1574f1b44f"],
Cell[172167, 4153, 750, 11, 70, "Print", "ExpressionUUID" -> \
"62c56aad-abc2-4707-842d-9530d85e9d27"]
}, Open  ]],
Cell[CellGroupData[{
Cell[172954, 4169, 221, 4, 70, "Input", "ExpressionUUID" -> \
"3d30964c-f82c-4eab-9873-a12759d18a9c"],
Cell[173178, 4175, 1091, 22, 70, "Output", "ExpressionUUID" -> \
"e7d6881f-456f-4239-8993-f5900a47e21f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[174306, 4202, 199, 4, 70, "Input", "ExpressionUUID" -> \
"3368ac4f-3889-4dc8-bd4e-039417cc434c"],
Cell[174508, 4208, 4587, 98, 70, "Output", "ExpressionUUID" -> \
"3a127dba-bf22-47ea-8a6c-b86c0218371c"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[179144, 4312, 373, 7, 70, "Subsubsection", "ExpressionUUID" -> \
"e52b8a1a-71c9-404f-be1d-1e8ec4e3ab61"],
Cell[CellGroupData[{
Cell[179542, 4323, 225, 4, 70, "Input", "ExpressionUUID" -> \
"5509f0a4-c608-4b92-add6-e0abd8371369"],
Cell[179770, 4329, 17352, 442, 70, "Output", "ExpressionUUID" -> \
"25566c19-2570-48f8-99bb-a39f88ad2213"]
}, Open  ]],
Cell[CellGroupData[{
Cell[197159, 4776, 225, 4, 70, "Input", "ExpressionUUID" -> \
"a32a8b1f-029a-43d4-bbd2-34bad504a41f"],
Cell[197387, 4782, 15812, 378, 70, "Output", "ExpressionUUID" -> \
"47d800ac-2ff9-4b14-8b1a-058dd9927568"]
}, Open  ]],
Cell[CellGroupData[{
Cell[213236, 5165, 211, 4, 70, "Input", "ExpressionUUID" -> \
"b46a3d01-b960-4381-a85d-22f9db7fce52"],
Cell[213450, 5171, 3237, 48, 70, "Output", "ExpressionUUID" -> \
"5c4806e1-1dcd-4927-94df-4062495f7e5c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[216724, 5224, 393, 7, 70, "Input", "ExpressionUUID" -> \
"a4a2b29f-f199-4821-8278-04bea415fbe2"],
Cell[217120, 5233, 1496, 42, 70, "Output", "ExpressionUUID" -> \
"13695251-1683-46bf-9a6a-626ac73a8cfe"]
}, Open  ]],
Cell[CellGroupData[{
Cell[218653, 5280, 340, 6, 70, "Input", "ExpressionUUID" -> \
"d2573cb9-61c1-4cae-a6c3-2065fa949c3f"],
Cell[218996, 5288, 2461, 74, 70, "Output", "ExpressionUUID" -> \
"ebc4f912-0895-4728-a283-271cac55c2b0"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[221518, 5369, 287, 4, 38, "Subsection", "ExpressionUUID" -> \
"23e93f90-151c-4f76-bbc7-93670522d291"],
Cell[CellGroupData[{
Cell[221830, 5377, 173, 3, 70, "Subsubsection", "ExpressionUUID" -> \
"d8f42185-b436-45ed-81b7-f2be69001d8b"],
Cell[222006, 5382, 275, 6, 70, "Input", "ExpressionUUID" -> \
"924a6fa6-9e26-4b81-b72e-446d8827f319"],
Cell[222284, 5390, 974, 24, 70, "Input", "ExpressionUUID" -> \
"9ad4bb50-a902-46e4-a452-650256eb12a3"],
Cell[CellGroupData[{
Cell[223283, 5418, 199, 4, 70, "Input", "ExpressionUUID" -> \
"1c9a9023-0798-4c84-97fe-bd4341e06e40"],
Cell[223485, 5424, 1215, 27, 70, "Output", "ExpressionUUID" -> \
"2375873e-2cd5-4e38-ae86-d921f22aea9d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[224737, 5456, 290, 6, 70, "Input", "ExpressionUUID" -> \
"ed179336-fd70-425c-a94e-737fc3d7d433"],
Cell[225030, 5464, 757, 11, 70, "Print", "ExpressionUUID" -> \
"490a4dd7-a30d-414a-b7a2-43fb089ce743"]
}, Open  ]],
Cell[CellGroupData[{
Cell[225824, 5480, 223, 4, 70, "Input", "ExpressionUUID" -> \
"9fb26d5a-9dc4-4eb7-8860-e61bd2b77ce9"],
Cell[226050, 5486, 1090, 22, 70, "Output", "ExpressionUUID" -> \
"3a69f551-780d-4160-82e5-4a70e52c64a8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[227177, 5513, 199, 4, 70, "Input", "ExpressionUUID" -> \
"25b2fe9b-6e56-4c92-8169-e785349b2277"],
Cell[227379, 5519, 4593, 98, 70, "Output", "ExpressionUUID" -> \
"18288c83-a405-48f7-9c71-9a6872aec1da"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[232021, 5623, 373, 7, 70, "Subsubsection", "ExpressionUUID" -> \
"dbbe9470-4c76-434a-943a-032a3153baec"],
Cell[CellGroupData[{
Cell[232419, 5634, 225, 4, 70, "Input", "ExpressionUUID" -> \
"899be617-1393-4ddc-819a-5ebda990ce2c"],
Cell[232647, 5640, 17352, 442, 70, "Output", "ExpressionUUID" -> \
"2e3a6e0b-7ad8-4246-9886-4298b218543f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[250036, 6087, 225, 4, 70, "Input", "ExpressionUUID" -> \
"5afff6cf-2f84-4514-bb37-0a653a825abb"],
Cell[250264, 6093, 15816, 378, 70, "Output", "ExpressionUUID" -> \
"962e3e6a-9c52-4058-8cce-892628fce6bd"]
}, Open  ]],
Cell[CellGroupData[{
Cell[266117, 6476, 342, 6, 70, "Input", "ExpressionUUID" -> \
"caf7e3be-d694-4595-8617-f95c0cfb1866"],
Cell[266462, 6484, 1494, 42, 70, "Output", "ExpressionUUID" -> \
"5ed61972-1aef-4bd2-bf5c-eeabc7baa3eb"]
}, Open  ]],
Cell[CellGroupData[{
Cell[267993, 6531, 318, 6, 70, "Input", "ExpressionUUID" -> \
"7ab110a9-662e-439d-9502-311cbb40c897"],
Cell[268314, 6539, 2444, 74, 70, "Output", "ExpressionUUID" -> \
"f14144b9-72b7-4b54-aeeb-37d2f6f375ca"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[270819, 6620, 343, 5, 38, "Subsection", "ExpressionUUID" -> \
"0e005124-899f-4c98-87a5-8caa259be770"],
Cell[CellGroupData[{
Cell[271187, 6629, 173, 3, 70, "Subsubsection", "ExpressionUUID" -> \
"278964cf-eec5-43fa-a0c2-2f140d055a61"],
Cell[271363, 6634, 326, 6, 70, "Input", "ExpressionUUID" -> \
"8ec23522-1ca7-4924-bf3a-796ac987da6d"],
Cell[271692, 6642, 972, 24, 70, "Input", "ExpressionUUID" -> \
"63871af7-a73c-4128-a593-cb71690947e3"],
Cell[CellGroupData[{
Cell[272689, 6670, 199, 4, 70, "Input", "ExpressionUUID" -> \
"67482dc2-7aba-4421-9634-f1d0ca679604"],
Cell[272891, 6676, 1216, 26, 70, "Output", "ExpressionUUID" -> \
"cade3d7a-8c4f-4b41-9936-861cc71e23ac"]
}, Open  ]],
Cell[CellGroupData[{
Cell[274144, 6707, 290, 6, 70, "Input", "ExpressionUUID" -> \
"6ef7fce0-0c1c-4cd8-809b-1c5d86f776e9"],
Cell[274437, 6715, 758, 11, 70, "Print", "ExpressionUUID" -> \
"c573dca5-baff-4d25-b30e-68273ec7a8f4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[275232, 6731, 223, 4, 70, "Input", "ExpressionUUID" -> \
"cbfcb9aa-ac39-48c6-bba4-a43fac7c82bc"],
Cell[275458, 6737, 1089, 22, 70, "Output", "ExpressionUUID" -> \
"32df1654-b0d9-48c9-a43b-1339b68b40a8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[276584, 6764, 199, 4, 70, "Input", "ExpressionUUID" -> \
"e5fa3cb8-03ac-4ec8-8014-4232930f16e5"],
Cell[276786, 6770, 4586, 98, 70, "Output", "ExpressionUUID" -> \
"09ae24ab-c4a3-461a-b897-792638efaab0"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[281421, 6874, 373, 7, 70, "Subsubsection", "ExpressionUUID" -> \
"e3f38332-56de-4974-9e9e-06b12a3373cd"],
Cell[CellGroupData[{
Cell[281819, 6885, 225, 4, 70, "Input", "ExpressionUUID" -> \
"5d9e4a9e-f9b8-4bd2-bc81-3fd15ec343d2"],
Cell[282047, 6891, 17350, 442, 70, "Output", "ExpressionUUID" -> \
"3b0858dc-bd92-4e26-8b63-d03c776b3686"]
}, Open  ]],
Cell[CellGroupData[{
Cell[299434, 7338, 225, 4, 70, "Input", "ExpressionUUID" -> \
"07f78801-dc0e-47f9-9b57-d6e09d131cf7"],
Cell[299662, 7344, 15807, 378, 70, "Output", "ExpressionUUID" -> \
"38dc5aea-187c-4a87-825f-73ad8dad8196"]
}, Open  ]],
Cell[CellGroupData[{
Cell[315506, 7727, 340, 6, 70, "Input", "ExpressionUUID" -> \
"078edd3a-7428-4503-a556-9d18e249056c"],
Cell[315849, 7735, 1495, 42, 70, "Output", "ExpressionUUID" -> \
"349cf553-a7cb-4c9d-a275-71afb9bbf933"]
}, Open  ]],
Cell[CellGroupData[{
Cell[317381, 7782, 316, 6, 70, "Input", "ExpressionUUID" -> \
"684cd099-6559-4208-b8c9-d93cd1022f9f"],
Cell[317700, 7790, 2458, 74, 70, "Output", "ExpressionUUID" -> \
"c6e73414-3f0c-4a05-828c-9e0275b61a8a"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[320219, 7871, 216, 4, 38, "Subsection", "ExpressionUUID" -> \
"3bd121dc-4fd5-4ec3-a424-9b70822ae3c6"],
Cell[CellGroupData[{
Cell[320460, 7879, 173, 3, 37, "Subsubsection", "ExpressionUUID" -> \
"6caa12bb-cf3e-47d6-8d5c-b200365b1787"],
Cell[320636, 7884, 208, 5, 35, "Input", "ExpressionUUID" -> \
"f4b68ee1-5762-46c5-84e3-eedf4f1e2da9"],
Cell[320847, 7891, 810, 21, 35, "Input", "ExpressionUUID" -> \
"c9e6bc9a-213a-46b9-9d8b-b419a12937ec"],
Cell[CellGroupData[{
Cell[321682, 7916, 203, 4, 33, "Input", "ExpressionUUID" -> \
"d50fa066-e7c3-4f54-bf3a-fcd3410feea6"],
Cell[321888, 7922, 1044, 23, 70, "Output", "ExpressionUUID" -> \
"89662c05-0299-4d74-9945-61b6fe743ed1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[322969, 7950, 266, 6, 35, "Input", "ExpressionUUID" -> \
"c2b4b6bd-b94c-42b6-a075-d86d259875c9"],
Cell[323238, 7958, 692, 13, 70, "Message", "ExpressionUUID" -> \
"db95d36c-11ed-40f6-ac69-df55bf882cff"],
Cell[323933, 7973, 690, 13, 70, "Message", "ExpressionUUID" -> \
"55b4a442-3c44-4193-aba4-b87a563a7364"],
Cell[324626, 7988, 739, 11, 70, "Print", "ExpressionUUID" -> \
"91c0bbf3-d6a3-4241-871f-fc291cda3426"]
}, Open  ]],
Cell[CellGroupData[{
Cell[325402, 8004, 221, 4, 33, "Input", "ExpressionUUID" -> \
"bc727701-2518-43fa-a686-5342c7a9a90f"],
Cell[325626, 8010, 1087, 22, 70, "Output", "ExpressionUUID" -> \
"ce7fe84d-9428-4393-8275-59b81edbf9c7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[326750, 8037, 199, 4, 33, "Input", "ExpressionUUID" -> \
"8d08e2cb-d8df-4a71-9bc4-8345c00f8747"],
Cell[326952, 8043, 548, 11, 70, "Message", "ExpressionUUID" -> \
"b3a31c51-2473-4ae7-baee-998087a2c8cf"],
Cell[327503, 8056, 550, 11, 70, "Message", "ExpressionUUID" -> \
"b085e442-6404-485e-803a-523ad2816988"],
Cell[328056, 8069, 4873, 102, 70, "Output", "ExpressionUUID" -> \
"644559a6-9200-4ebf-acd1-c3d0d6e8654e"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[332978, 8177, 386, 8, 37, "Subsubsection", "ExpressionUUID" -> \
"6529487d-bea6-476f-8714-1c74e28ab9d8"],
Cell[CellGroupData[{
Cell[333389, 8189, 223, 4, 33, "Input", "ExpressionUUID" -> \
"b22b99c4-4079-4db6-9b19-3fcef68f510f"],
Cell[333615, 8195, 12180, 346, 70, "Output", "ExpressionUUID" -> \
"0d7a7e3d-8ddc-4b48-9486-8fadc76a0ead"]
}, Open  ]],
Cell[CellGroupData[{
Cell[345832, 8546, 225, 4, 33, "Input", "ExpressionUUID" -> \
"ca417ed4-da6d-40ae-bf49-47d9f82da5d0"],
Cell[346060, 8552, 11406, 314, 70, "Output", "ExpressionUUID" -> \
"cd8b47f6-7070-4266-b596-046caffaa6b8"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[357527, 8873, 212, 4, 38, "Subsection", "ExpressionUUID" -> \
"2b28d6ca-98e0-4cf0-a117-48d0c6664e05"],
Cell[CellGroupData[{
Cell[357764, 8881, 173, 3, 70, "Subsubsection", "ExpressionUUID" -> \
"2b941598-37f0-4583-bd32-c58d671bce79"],
Cell[357940, 8886, 315, 6, 70, "Input", "ExpressionUUID" -> \
"fb060f33-f6d0-4c71-a732-0925e24b4faa"],
Cell[358258, 8894, 1140, 31, 70, "Input", "ExpressionUUID" -> \
"dbbff176-bf95-48dc-8119-3bcc82044ed4"],
Cell[CellGroupData[{
Cell[359423, 8929, 203, 4, 70, "Input", "ExpressionUUID" -> \
"a2cf0296-c1f9-4477-ba48-51aa9546b728"],
Cell[359629, 8935, 1614, 33, 70, "Output", "ExpressionUUID" -> \
"2bb06eef-c6aa-43cf-a234-b74b77f07cda"]
}, Open  ]],
Cell[CellGroupData[{
Cell[361280, 8973, 269, 6, 70, "Input", "ExpressionUUID" -> \
"8149db97-2dc8-455c-980d-d3e208d1c98e"],
Cell[361552, 8981, 704, 10, 70, "Print", "ExpressionUUID" -> \
"83b7b937-a97f-423e-a5ae-b8fd32bf84f0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[362293, 8996, 221, 4, 70, "Input", "ExpressionUUID" -> \
"d722bf1b-6a56-4ef1-b2ca-2b203c82bc44"],
Cell[362517, 9002, 943, 20, 70, "Output", "ExpressionUUID" -> \
"6e390408-1c22-41c6-8752-3737243d2295"]
}, Open  ]],
Cell[CellGroupData[{
Cell[363497, 9027, 199, 4, 70, "Input", "ExpressionUUID" -> \
"6b9027e5-5657-4f60-8c8e-5cbdee5082db"],
Cell[363699, 9033, 3893, 85, 70, "Output", "ExpressionUUID" -> \
"7540047b-c5e9-4885-8c4b-a6da1867d78a"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[367653, 9125, 270, 4, 38, "Subsection", "ExpressionUUID" -> \
"b7c58709-aac6-4df7-a7b6-71259bbae721"],
Cell[CellGroupData[{
Cell[367948, 9133, 173, 3, 37, "Subsubsection", "ExpressionUUID" -> \
"f11bf957-2337-422c-8c01-2c112d840bc2"],
Cell[368124, 9138, 373, 7, 35, "Input", "ExpressionUUID" -> \
"eb34367e-e244-452e-9419-d0e4013968c1"],
Cell[368500, 9147, 908, 24, 35, "Input", "ExpressionUUID" -> \
"651be2dc-bfa6-4abb-81e3-713c288ebb32"],
Cell[CellGroupData[{
Cell[369433, 9175, 203, 4, 33, "Input", "ExpressionUUID" -> \
"f7b84d11-8956-4451-9c37-f429e32aa6b0"],
Cell[369639, 9181, 1614, 34, 70, "Output", "ExpressionUUID" -> \
"0fa714b8-6a9c-405a-ae4c-ba16f7fd0fc9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[371290, 9220, 269, 6, 35, "Input", "ExpressionUUID" -> \
"74443955-6845-40a5-b935-70219bf58752"],
Cell[371562, 9228, 721, 11, 70, "Print", "ExpressionUUID" -> \
"a963c421-5639-4191-8eb3-160c39140c86"]
}, Open  ]],
Cell[CellGroupData[{
Cell[372320, 9244, 221, 4, 33, "Input", "ExpressionUUID" -> \
"ab4cf837-02ad-4916-bc18-90206a637573"],
Cell[372544, 9250, 948, 19, 70, "Output", "ExpressionUUID" -> \
"78738c1b-dcbb-4fe5-ad16-ecfed05b1478"]
}, Open  ]],
Cell[CellGroupData[{
Cell[373529, 9274, 199, 4, 33, "Input", "ExpressionUUID" -> \
"78cea3e9-42da-4366-b541-de62969cb559"],
Cell[373731, 9280, 3894, 85, 70, "Output", "ExpressionUUID" -> \
"57633c97-c771-4f9b-970b-11a6e8e14925"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[377686, 9372, 324, 5, 38, "Subsection", "ExpressionUUID" -> \
"a43496d3-adc6-4b20-852d-8a994709f149"],
Cell[CellGroupData[{
Cell[378035, 9381, 173, 3, 70, "Subsubsection", "ExpressionUUID" -> \
"1bd39f07-ddba-4331-abf4-1fd7de549a80"],
Cell[378211, 9386, 429, 8, 70, "Input", "ExpressionUUID" -> \
"2706686f-e663-4b38-801f-d90f82ccef40"],
Cell[378643, 9396, 908, 24, 70, "Input", "ExpressionUUID" -> \
"8e857dff-f89b-4bb1-a3cb-4fd43f303b77"],
Cell[CellGroupData[{
Cell[379576, 9424, 203, 4, 70, "Input", "ExpressionUUID" -> \
"37208b65-8e67-4cad-8138-44c6a0b2c8d3"],
Cell[379782, 9430, 1619, 34, 70, "Output", "ExpressionUUID" -> \
"38df6367-58fa-435e-aa9f-6b6f249a1923"]
}, Open  ]],
Cell[CellGroupData[{
Cell[381438, 9469, 269, 6, 70, "Input", "ExpressionUUID" -> \
"b11db2e1-392f-4305-8108-5b78ef0b5c59"],
Cell[381710, 9477, 719, 11, 70, "Print", "ExpressionUUID" -> \
"c4dcd2f3-f61a-4f17-b46d-1f076092678b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[382466, 9493, 221, 4, 70, "Input", "ExpressionUUID" -> \
"004a887a-14c4-4457-9a6f-ce00af7ecdcc"],
Cell[382690, 9499, 951, 20, 70, "Output", "ExpressionUUID" -> \
"0a9f3aa9-667d-443b-9990-b08ba136ec56"]
}, Open  ]],
Cell[CellGroupData[{
Cell[383678, 9524, 199, 4, 70, "Input", "ExpressionUUID" -> \
"6bc27208-8f85-4014-96aa-1ee1fc2b839d"],
Cell[383880, 9530, 3877, 85, 70, "Output", "ExpressionUUID" -> \
"78e01366-2ef0-4e5f-8e77-69aafb19ae67"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[387818, 9622, 264, 4, 38, "Subsection", "ExpressionUUID" -> \
"3c53f165-0eb6-469b-b335-fc435f887714"],
Cell[CellGroupData[{
Cell[388107, 9630, 173, 3, 70, "Subsubsection", "ExpressionUUID" -> \
"08bee410-d416-4b16-866d-be25cd3d185a"],
Cell[388283, 9635, 261, 6, 70, "Input", "ExpressionUUID" -> \
"f4aef561-9105-4e1d-9f91-e32445ad18e1"],
Cell[388547, 9643, 1228, 34, 70, "Input", "ExpressionUUID" -> \
"16566c01-9f3c-4cd7-9bcf-912b41c7c78d"],
Cell[CellGroupData[{
Cell[389800, 9681, 203, 4, 70, "Input", "ExpressionUUID" -> \
"b7eeed80-4a40-4864-b436-f4ad342f6bb1"],
Cell[390006, 9687, 1396, 30, 70, "Output", "ExpressionUUID" -> \
"22b312f7-1a07-495a-8adc-91ffeea0157d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[391439, 9722, 267, 6, 70, "Input", "ExpressionUUID" -> \
"fe7bf428-30de-4d23-b71c-3b30eaf8c371"],
Cell[391709, 9730, 698, 10, 70, "Print", "ExpressionUUID" -> \
"9c98152b-5d0e-4c9a-b855-a12ede09c741"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[392456, 9746, 162, 3, 70, "Subsubsection", "ExpressionUUID" -> \
"615ddb29-57f0-4a5d-ba7e-48ea20fac9da"],
Cell[CellGroupData[{
Cell[392643, 9753, 221, 4, 70, "Input", "ExpressionUUID" -> \
"d65f718d-5a5e-41d4-b3c6-435fbfbbff6e"],
Cell[392867, 9759, 949, 20, 70, "Output", "ExpressionUUID" -> \
"53809b04-ac5c-4152-b877-b68d8b6ac59e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[393853, 9784, 199, 4, 70, "Input", "ExpressionUUID" -> \
"815d49a2-c0ec-45a2-99e2-502a6d20c83b"],
Cell[394055, 9790, 3885, 85, 70, "Output", "ExpressionUUID" -> \
"ebf5e2ca-468e-46b6-a30c-372d46b2a307"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[398001, 9882, 321, 5, 38, "Subsection", "ExpressionUUID" -> \
"06cb9985-c448-4667-8fe0-8e8e6d5abe85"],
Cell[CellGroupData[{
Cell[398347, 9891, 173, 3, 70, "Subsubsection", "ExpressionUUID" -> \
"ea8a5760-e455-4da7-80e1-5b85d7e23b62"],
Cell[398523, 9896, 313, 6, 70, "Input", "ExpressionUUID" -> \
"54fd10ef-c57e-4001-8c72-9be65a201594"],
Cell[398839, 9904, 869, 24, 70, "Input", "ExpressionUUID" -> \
"f5c86845-c67c-4942-868e-c7adc97f3767"],
Cell[CellGroupData[{
Cell[399733, 9932, 203, 4, 70, "Input", "ExpressionUUID" -> \
"1868dfd3-3d87-428f-8ecd-c6d140196579"],
Cell[399939, 9938, 1397, 30, 70, "Output", "ExpressionUUID" -> \
"69b77371-c886-4dc0-9fdb-591c481fa98d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[401373, 9973, 267, 6, 70, "Input", "ExpressionUUID" -> \
"dc224476-1b38-4970-8838-70323b562918"],
Cell[401643, 9981, 704, 10, 70, "Print", "ExpressionUUID" -> \
"b3f2b1d8-cece-43c8-9779-196f33d3e8c1"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[402396, 9997, 162, 3, 70, "Subsubsection", "ExpressionUUID" -> \
"a2a9d7ce-5067-4b7d-b079-0ba7a0db435b"],
Cell[CellGroupData[{
Cell[402583, 10004, 223, 4, 70, "Input", "ExpressionUUID" -> \
"11e7ca2a-bff7-4ee5-b498-303a2dc97d17"],
Cell[402809, 10010, 947, 20, 70, "Output", "ExpressionUUID" -> \
"5f10ca4c-5a6f-46d2-99f3-eebe78390e38"]
}, Open  ]],
Cell[CellGroupData[{
Cell[403793, 10035, 199, 4, 70, "Input", "ExpressionUUID" -> \
"77793f71-fa57-49e9-9fe9-d91809d16df0"],
Cell[403995, 10041, 3892, 85, 70, "Output", "ExpressionUUID" -> \
"4201d50a-dbce-4e83-a683-617d52c97052"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[407948, 10133, 374, 6, 38, "Subsection", "ExpressionUUID" -> \
"ca014a6a-47df-4d21-b71a-588defc88370"],
Cell[CellGroupData[{
Cell[408347, 10143, 173, 3, 37, "Subsubsection", "ExpressionUUID" -> \
"4dad7f00-ea4e-462c-8a3a-195976273eb1"],
Cell[408523, 10148, 365, 7, 35, "Input", "ExpressionUUID" -> \
"20c2186b-3989-45ce-8b8d-ac7af1ed72c0"],
Cell[408891, 10157, 918, 25, 35, "Input", "ExpressionUUID" -> \
"ca1601db-17ba-4670-bb2b-460e32ddae10"],
Cell[CellGroupData[{
Cell[409834, 10186, 203, 4, 33, "Input", "ExpressionUUID" -> \
"9414313d-2dbc-4a87-8607-9c726c010944"],
Cell[410040, 10192, 1390, 30, 70, "Output", "ExpressionUUID" -> \
"f3c0f3f8-7652-4f97-9437-adae15953caf"]
}, Open  ]],
Cell[CellGroupData[{
Cell[411467, 10227, 267, 6, 35, "Input", "ExpressionUUID" -> \
"bb2c105f-c196-47b6-9e6f-6b28b685fa1a"],
Cell[411737, 10235, 708, 10, 70, "Print", "ExpressionUUID" -> \
"35b52518-fa11-48b6-8903-84cb93c757bc"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[412494, 10251, 162, 3, 37, "Subsubsection", "ExpressionUUID" -> \
"3330c5e6-5131-4183-9ff0-801d1bbf4259"],
Cell[CellGroupData[{
Cell[412681, 10258, 223, 4, 33, "Input", "ExpressionUUID" -> \
"d3f13d72-b7f7-4f3a-862a-f69b022f635f"],
Cell[412907, 10264, 944, 20, 70, "Output", "ExpressionUUID" -> \
"3d8a5694-2329-419e-becd-536c328603b0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[413888, 10289, 199, 4, 33, "Input", "ExpressionUUID" -> \
"627d7485-9d95-4308-bdef-f0dd15b997a6"],
Cell[414090, 10295, 3887, 85, 70, "Output", "ExpressionUUID" -> \
"ac63f5d1-a291-4538-b65e-4069a1da54e4"]
}, Open  ]]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[418050, 10388, 152, 3, 66, "Section", "ExpressionUUID" -> \
"6f47be2c-6d5d-4fac-a105-750497aeced9"],
Cell[CellGroupData[{
Cell[418227, 10395, 324, 6, 35, "Input", "ExpressionUUID" -> \
"08818bf8-1ae6-4165-87d4-2d5ee2edf905"],
Cell[418554, 10403, 611, 11, 70, "Output", "ExpressionUUID" -> \
"fa2644cd-f7a1-4a97-8574-495e05de95cd"]
}, Open  ]],
Cell[CellGroupData[{
Cell[419202, 10419, 224, 5, 35, "Input", "ExpressionUUID" -> \
"251d4d35-9261-41c6-bf63-55c5bc68d623"],
Cell[419429, 10426, 442, 7, 70, "Output", "ExpressionUUID" -> \
"4ddd8ac1-a034-43ed-9e8d-00cbd32d13cb"]
}, Open  ]],
Cell[CellGroupData[{
Cell[419908, 10438, 231, 5, 35, "Input", "ExpressionUUID" -> \
"c42f0037-2e84-415d-a0fc-3c9cbd84cf9d"],
Cell[420142, 10445, 442, 7, 70, "Output", "ExpressionUUID" -> \
"5da3f716-9448-46e7-8789-d3048433ce36"]
}, Open  ]],
Cell[CellGroupData[{
Cell[420621, 10457, 243, 5, 35, "Input", "ExpressionUUID" -> \
"7d80de94-7ca9-4cd1-9515-279b75c45ef0"],
Cell[420867, 10464, 274, 5, 70, "Output", "ExpressionUUID" -> \
"f541d7dc-0725-4b7a-8174-7402dabac04c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[421178, 10474, 246, 6, 35, "Input", "ExpressionUUID" -> \
"87954781-06cd-4f22-9c6d-2afe8799e92a"],
Cell[421427, 10482, 309, 7, 70, "Output", "ExpressionUUID" -> \
"a4589c85-538a-4ba9-b735-6b0b48566bf3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[421773, 10494, 255, 6, 35, "Input", "ExpressionUUID" -> \
"2fb7790e-c918-4a07-93be-472b9d0b3878"],
Cell[422031, 10502, 310, 7, 70, "Output", "ExpressionUUID" -> \
"e3ad7de5-9073-4df4-8fe0-acad3ae00613"]
}, Open  ]],
Cell[CellGroupData[{
Cell[422378, 10514, 239, 5, 35, "Input", "ExpressionUUID" -> \
"56591e8a-da2e-4189-92df-6e49e30a5b3e"],
Cell[422620, 10521, 441, 7, 70, "Output", "ExpressionUUID" -> \
"d21f02a5-a678-48a8-9c71-92485d2d1b05"]
}, Open  ]],
Cell[CellGroupData[{
Cell[423098, 10533, 244, 5, 35, "Input", "ExpressionUUID" -> \
"69dba37c-d688-4595-9f1f-80eee4ff7fb4"],
Cell[423345, 10540, 476, 9, 70, "Output", "ExpressionUUID" -> \
"d499b73f-bfe7-4edc-8c19-43c83b601436"]
}, Open  ]],
Cell[CellGroupData[{
Cell[423858, 10554, 253, 6, 35, "Input", "ExpressionUUID" -> \
"3fa55e42-cd83-4356-ab5f-cafc5e327a75"],
Cell[424114, 10562, 438, 7, 70, "Output", "ExpressionUUID" -> \
"4c5212f9-e599-4c7d-b7da-2b71bf5b0fbc"]
}, Open  ]],
Cell[CellGroupData[{
Cell[424589, 10574, 235, 5, 35, "Input", "ExpressionUUID" -> \
"66b65996-5fc1-4da0-b4dd-89128c7aee36"],
Cell[424827, 10581, 396, 5, 70, "Output", "ExpressionUUID" -> \
"73e63109-29cf-4ea5-aae6-fdd4619ea266"]
}, Open  ]],
Cell[CellGroupData[{
Cell[425260, 10591, 236, 5, 35, "Input", "ExpressionUUID" -> \
"fd0c3784-7973-4c9b-99c3-71b351b47a3d"],
Cell[425499, 10598, 429, 8, 70, "Output", "ExpressionUUID" -> \
"c9b4170e-4c38-40c5-88a7-5fbea29413dc"]
}, Open  ]],
Cell[CellGroupData[{
Cell[425965, 10611, 243, 5, 35, "Input", "ExpressionUUID" -> \
"8b5899cd-2b45-46fc-a115-64d7cbb7b2a2"],
Cell[426211, 10618, 390, 6, 70, "Output", "ExpressionUUID" -> \
"2db251fa-0771-4bf3-a402-597804a4f9f4"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[426650, 10630, 396, 7, 52, "Section", "ExpressionUUID" -> \
"3472ce41-f7df-40a6-af31-aa9f600de450"],
Cell[CellGroupData[{
Cell[427071, 10641, 354, 6, 57, "Input", "ExpressionUUID" -> \
"cf2c547c-31bf-4573-b20e-9b9e969d6b4a"],
Cell[427428, 10649, 4729, 109, 70, "Output", "ExpressionUUID" -> \
"6576f327-2acb-4ac3-9637-c77ade5b1fb8"],
Cell[432160, 10760, 3088, 88, 70, "Output", "ExpressionUUID" -> \
"bc0e770b-b9a1-4dfb-8e18-d80648c103c2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[435285, 10853, 285, 5, 33, "Input", "ExpressionUUID" -> \
"40913594-7483-4f42-926d-841a855a91c8"],
Cell[435573, 10860, 153, 3, 70, "Output", "ExpressionUUID" -> \
"2507bc82-c070-4021-9628-cd2d6c716c0b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[435763, 10868, 314, 6, 33, "Input", "ExpressionUUID" -> \
"bd471ecd-bab0-4fc6-b365-2b012afee4ca"],
Cell[436080, 10876, 1055, 26, 70, "Output", "ExpressionUUID" -> \
"a9d3e361-3ffa-4819-af1e-dfc7cd082712"]
}, Open  ]],
Cell[CellGroupData[{
Cell[437172, 10907, 241, 5, 33, "Input", "ExpressionUUID" -> \
"516600ae-b28c-47c0-a160-17837ee4d125"],
Cell[437416, 10914, 3315, 91, 70, "Output", "ExpressionUUID" -> \
"3b1a712d-3d8f-4f58-82a5-2a17240a8145"]
}, Open  ]],
Cell[CellGroupData[{
Cell[440768, 11010, 318, 6, 33, "Input", "ExpressionUUID" -> \
"b1ce8c6f-aeba-486b-b3b3-973233d820d8"],
Cell[441089, 11018, 1099, 28, 70, "Output", "ExpressionUUID" -> \
"d522e194-288e-4ba7-a971-3664ed173198"]
}, Open  ]],
Cell[CellGroupData[{
Cell[442225, 11051, 243, 5, 33, "Input", "ExpressionUUID" -> \
"4e5873a0-236e-4237-9556-b37acf45b814"],
Cell[442471, 11058, 3304, 91, 70, "Output", "ExpressionUUID" -> \
"3eceffa6-1d9f-4cf1-aeb2-b8c040889448"]
}, Open  ]],
Cell[CellGroupData[{
Cell[445812, 11154, 192, 4, 33, "Input", "ExpressionUUID" -> \
"28637e25-3c6e-4c0b-a15c-03c8bc9b4803"],
Cell[446007, 11160, 5043, 134, 70, "Output", "ExpressionUUID" -> \
"ffb0773d-483c-49f3-bf15-35efff8d1443"]
}, Open  ]],
Cell[CellGroupData[{
Cell[451087, 11299, 923, 25, 35, "Input", "ExpressionUUID" -> \
"e7f74b26-2ad5-490e-91d9-9a5b3c22bf2d"],
Cell[452013, 11326, 429, 7, 70, "Output", "ExpressionUUID" -> \
"242b5ca6-41b4-4d00-80e4-6d7a2a44baea"]
}, Open  ]],
Cell[CellGroupData[{
Cell[452479, 11338, 375, 7, 33, "Input", "ExpressionUUID" -> \
"3ab87185-7013-4994-a7d8-7ec3d1cbcf9c"],
Cell[452857, 11347, 2778, 72, 70, "Output", "ExpressionUUID" -> \
"991ca4ba-81af-4e4d-aee3-e88f2d9d9736"]
}, Open  ]],
Cell[CellGroupData[{
Cell[455672, 11424, 421, 9, 35, "Input", "ExpressionUUID" -> \
"2437f3b0-e8d7-4aef-948b-755c2a754cd1"],
Cell[456096, 11435, 12515, 348, 70, "Output", "ExpressionUUID" -> \
"5cb6cdc0-c5b5-461a-ae46-3d8f440f2730"]
}, Open  ]],
Cell[CellGroupData[{
Cell[468648, 11788, 335, 8, 33, "Input", "ExpressionUUID" -> \
"17924563-1a14-453f-a287-5bfac41cd007"],
Cell[468986, 11798, 1055, 26, 70, "Output", "ExpressionUUID" -> \
"9fec9979-aad8-428a-811b-0f374a50b012"]
}, Open  ]],
Cell[CellGroupData[{
Cell[470078, 11829, 276, 6, 33, "Input", "ExpressionUUID" -> \
"7822df4f-f325-4c0f-89e4-1fa7033f27dc"],
Cell[470357, 11837, 1097, 28, 70, "Output", "ExpressionUUID" -> \
"c15eec3d-96d7-440e-a8e2-5cd5e34809f9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[471491, 11870, 251, 5, 33, "Input", "ExpressionUUID" -> \
"3db7967d-fec2-46dc-8979-6c53db4947fe"],
Cell[471745, 11877, 2629, 72, 70, "Output", "ExpressionUUID" -> \
"3f56cdc8-825e-4210-ac3d-b00ebc61aa40"]
}, Open  ]],
Cell[CellGroupData[{
Cell[474411, 11954, 1040, 27, 35, "Input", "ExpressionUUID" -> \
"ad380638-d123-4c9c-92e0-023bdbb3048c"],
Cell[475454, 11983, 14559, 411, 70, "Output", "ExpressionUUID" -> \
"b1bacf8f-c034-4e1c-b7a0-eb52d99551df"]
}, Open  ]],
Cell[CellGroupData[{
Cell[490050, 12399, 253, 6, 35, "Input", "ExpressionUUID" -> \
"9941fc89-b217-47aa-9d66-bae5927bd22c"],
Cell[490306, 12407, 420, 7, 70, "Output", "ExpressionUUID" -> \
"45fb7349-757e-49a3-9940-7086a045314c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[490763, 12419, 254, 5, 33, "Input", "ExpressionUUID" -> \
"45b50dbf-3d7a-456f-8fa9-9fbf53b8a871"],
Cell[491020, 12426, 12076, 345, 70, "Output", "ExpressionUUID" -> \
"f7bd6803-b26e-4f5b-9b92-e2f7f02d20de"]
}, Open  ]],
Cell[CellGroupData[{
Cell[503133, 12776, 256, 5, 33, "Input", "ExpressionUUID" -> \
"a6af1e4a-eabd-49c6-838a-ad3303828a74"],
Cell[503392, 12783, 11315, 313, 70, "Output", "ExpressionUUID" -> \
"54a5e54b-210f-4709-ae13-732e19f15eb6"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[514756, 13102, 168, 3, 52, "Section", "ExpressionUUID" -> \
"f8540c94-bc4d-45c3-a939-8a1e93482b61"],
Cell[514927, 13107, 6582, 140, 240, "Input", "ExpressionUUID" -> \
"95dcbb44-510f-4b6f-b127-78a994f6943b"],
Cell[CellGroupData[{
Cell[521534, 13251, 543, 13, 35, "Input", "ExpressionUUID" -> \
"281298c2-6e7d-4dff-93c5-225b813a9802"],
Cell[522080, 13266, 1269, 30, 70, "Output", "ExpressionUUID" -> \
"e0adbf1c-b8b6-4150-9109-1d78afc76186"]
}, Open  ]],
Cell[CellGroupData[{
Cell[523386, 13301, 383, 9, 33, "Input", "ExpressionUUID" -> \
"b3382722-42b8-4faa-a8d4-783b9e60048e"],
Cell[523772, 13312, 550, 8, 70, "Print", "ExpressionUUID" -> \
"9a9f78a5-202e-4231-b2eb-2f4958f3ee01"],
Cell[524325, 13322, 349, 6, 70, "Output", "ExpressionUUID" -> \
"f8091080-b607-48a8-a719-020bb2412541"]
}, Open  ]],
Cell[CellGroupData[{
Cell[524711, 13333, 461, 10, 33, "Input", "ExpressionUUID" -> \
"cfae1bd3-c028-464c-b999-e8602eb4aded"],
Cell[525175, 13345, 906, 20, 70, "Output", "ExpressionUUID" -> \
"1fa04d9b-837f-4d65-98bc-55cc5e24fb33"]
}, Open  ]],
Cell[CellGroupData[{
Cell[526118, 13370, 273, 6, 33, "Input", "ExpressionUUID" -> \
"39b2ad7a-b54c-4be8-bbfb-3355ede25df4"],
Cell[526394, 13378, 1806, 39, 70, "Output", "ExpressionUUID" -> \
"c89e9996-18d1-4722-a94b-435f5ff289b0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[528237, 13422, 273, 6, 33, "Input", "ExpressionUUID" -> \
"95d19041-ddcd-4a1c-b75d-82fe7d41df77"],
Cell[528513, 13430, 1752, 37, 70, "Output", "ExpressionUUID" -> \
"13d42f59-e241-43dc-891a-a223524625db"]
}, Open  ]],
Cell[CellGroupData[{
Cell[530302, 13472, 323, 8, 35, "Input", "ExpressionUUID" -> \
"73ff7be1-0dff-4433-ab8b-7af5e71914cf"],
Cell[530628, 13482, 1969, 45, 70, "Output", "ExpressionUUID" -> \
"9d640160-f80b-4571-9140-64f62313bfea"]
}, Open  ]],
Cell[CellGroupData[{
Cell[532634, 13532, 1449, 40, 76, "Subsection", "ExpressionUUID" -> \
"003bb3b7-9851-44b5-8026-25b78d5323fb"],
Cell[CellGroupData[{
Cell[534108, 13576, 395, 11, 35, "Input", "ExpressionUUID" -> \
"206a9a39-188b-4929-b455-05ae4c0c7a7a"],
Cell[534506, 13589, 8072, 233, 70, "Output", "ExpressionUUID" -> \
"7a199c51-e179-44ed-9cc5-2b0e4980a42f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[542615, 13827, 351, 9, 35, "Input", "ExpressionUUID" -> \
"a84501e6-5251-453d-9cba-f8d92b21f6af"],
Cell[542969, 13838, 2670, 70, 70, "Output", "ExpressionUUID" -> \
"a53f053d-005f-4429-afc3-817795507bae"]
}, Open  ]],
Cell[CellGroupData[{
Cell[545676, 13913, 348, 9, 35, "Input", "ExpressionUUID" -> \
"362eda8d-0c29-4ef3-8d9f-8beb8bc37cf7"],
Cell[546027, 13924, 2674, 70, 70, "Output", "ExpressionUUID" -> \
"764a8e36-c495-4713-944a-b7945dcd05e1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[548738, 13999, 359, 9, 35, "Input", "ExpressionUUID" -> \
"b112ccc1-9bde-4372-ab55-445ae0e0228c"],
Cell[549100, 14010, 654, 15, 70, "Output", "ExpressionUUID" -> \
"93d489c1-9373-4080-9794-24c1e9dd7ad5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[549791, 14030, 361, 9, 35, "Input", "ExpressionUUID" -> \
"9c013452-754c-4d25-b9a5-0dfbeffa50be"],
Cell[550155, 14041, 649, 15, 70, "Output", "ExpressionUUID" -> \
"1f98dbfb-a3cc-4557-b9bf-b06326e4bb2c"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[550853, 14062, 1372, 39, 49, "Subsection", "ExpressionUUID" -> \
"17e0418f-509b-4dd5-a5cd-9e486746208f"],
Cell[CellGroupData[{
Cell[552250, 14105, 417, 9, 33, "Input", "ExpressionUUID" -> \
"395fc01c-eb72-4334-9cd3-ad5e8bb81117"],
Cell[552670, 14116, 476, 8, 70, "Output", "ExpressionUUID" -> \
"37dbb652-8eed-4893-80b4-12a866057177"]
}, Open  ]],
Cell[CellGroupData[{
Cell[553183, 14129, 227, 5, 33, "Input", "ExpressionUUID" -> \
"9aa1aa92-a654-42fa-a51d-ee35e77d8f98"],
Cell[553413, 14136, 7936, 230, 70, "Output", "ExpressionUUID" -> \
"af8b776f-e9be-441c-827f-8050434e719a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[561386, 14371, 275, 6, 33, "Input", "ExpressionUUID" -> \
"d6012992-7b5e-41aa-ad30-ac3163a28cf7"],
Cell[561664, 14379, 7936, 231, 70, "Output", "ExpressionUUID" -> \
"757d99f8-513e-43f4-9335-4e33a2145295"]
}, Open  ]],
Cell[CellGroupData[{
Cell[569637, 14615, 275, 6, 33, "Input", "ExpressionUUID" -> \
"478033e6-ecf2-4c2f-b15a-52049245f57c"],
Cell[569915, 14623, 7889, 232, 70, "Output", "ExpressionUUID" -> \
"c4218bf8-7d9d-439c-ab9f-2f75c0833c46"]
}, Open  ]],
Cell[CellGroupData[{
Cell[577841, 14860, 277, 6, 33, "Input", "ExpressionUUID" -> \
"b5814ae7-8cee-457e-86d1-ce421fd78bb5"],
Cell[578121, 14868, 7610, 219, 70, "Output", "ExpressionUUID" -> \
"af4b0c5c-fd19-48fb-b508-b4919f77f38c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[585768, 15092, 247, 5, 35, "Input", "ExpressionUUID" -> \
"98c3b2ff-c150-4640-b97f-3d32c5329751"],
Cell[586018, 15099, 371, 9, 70, "Output", "ExpressionUUID" -> \
"dd61e295-e5e0-4698-bacc-c1b46526f3c4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[586426, 15113, 223, 5, 33, "Input", "ExpressionUUID" -> \
"0c8ce384-5857-4a95-bd62-8d1ccf9b0664"],
Cell[586652, 15120, 688, 21, 70, "Output", "ExpressionUUID" -> \
"63d4fe0f-ec38-426e-b381-1671911a4824"]
}, Open  ]],
Cell[CellGroupData[{
Cell[587377, 15146, 253, 6, 35, "Input", "ExpressionUUID" -> \
"e68f6314-d44f-4f6e-96b2-5a495f6439f8"],
Cell[587633, 15154, 227, 4, 70, "Output", "ExpressionUUID" -> \
"04a11a01-6f6b-4251-87e0-852d7cc5c414"]
}, Open  ]],
Cell[CellGroupData[{
Cell[587897, 15163, 247, 5, 35, "Input", "ExpressionUUID" -> \
"f5ea814b-d2e5-45dd-9c29-cfc94028ab70"],
Cell[588147, 15170, 371, 9, 70, "Output", "ExpressionUUID" -> \
"6137793c-abac-477d-a0d1-ce58668fa835"]
}, Open  ]],
Cell[CellGroupData[{
Cell[588555, 15184, 300, 7, 35, "Input", "ExpressionUUID" -> \
"c1fec85d-d4d1-4f56-9ecf-1bf2dc472407"],
Cell[588858, 15193, 258, 5, 70, "Output", "ExpressionUUID" -> \
"60771fc6-461d-49ef-8f70-c85794e21e1b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[589153, 15203, 300, 7, 35, "Input", "ExpressionUUID" -> \
"74b5b5b9-de58-4fdb-ad5a-1050d804f2ae"],
Cell[589456, 15212, 424, 10, 70, "Output", "ExpressionUUID" -> \
"6d39dcaf-963c-44df-aca2-38b5653fde21"]
}, Open  ]],
Cell[CellGroupData[{
Cell[589917, 15227, 253, 6, 35, "Input", "ExpressionUUID" -> \
"c81b81cb-fd61-49cb-b944-18f38b20fa0f"],
Cell[590173, 15235, 1166, 31, 70, "Output", "ExpressionUUID" -> \
"c4bda9d7-a00d-4662-9c11-ad9d0f4ed290"]
}, Open  ]],
Cell[CellGroupData[{
Cell[591376, 15271, 253, 6, 35, "Input", "ExpressionUUID" -> \
"d006dc26-4a21-4914-97b3-3067e79961e0"],
Cell[591632, 15279, 1335, 36, 70, "Output", "ExpressionUUID" -> \
"c35ea4cc-32db-4cd5-b217-49495b5a3276"]
}, Open  ]],
Cell[CellGroupData[{
Cell[593004, 15320, 253, 6, 35, "Input", "ExpressionUUID" -> \
"d0c7cd8e-d114-46de-9f95-7abfb4e45842"],
Cell[593260, 15328, 1170, 31, 70, "Output", "ExpressionUUID" -> \
"1f74a79d-f44d-4618-9cb7-eb6b1ca97d33"]
}, Open  ]],
Cell[CellGroupData[{
Cell[594467, 15364, 253, 6, 35, "Input", "ExpressionUUID" -> \
"76216aac-d519-49f6-bae6-5ff57857bec9"],
Cell[594723, 15372, 1162, 31, 70, "Output", "ExpressionUUID" -> \
"6c423862-b095-49ca-977d-021f30a0ffb3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[595922, 15408, 253, 6, 35, "Input", "ExpressionUUID" -> \
"b99883f9-3b4f-4f68-be7f-c821cbf5d940"],
Cell[596178, 15416, 1389, 38, 70, "Output", "ExpressionUUID" -> \
"bb88023e-4a71-4516-9ddf-c0bd547fba55"]
}, Open  ]],
Cell[CellGroupData[{
Cell[597604, 15459, 255, 6, 35, "Input", "ExpressionUUID" -> \
"83cd5c03-c7a8-4b3c-9a89-b01c7a4f7947"],
Cell[597862, 15467, 1164, 31, 70, "Output", "ExpressionUUID" -> \
"0ce9e481-49d5-449f-85d1-0b3862c7b534"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[599075, 15504, 305, 6, 46, "Subsection", "ExpressionUUID" -> \
"d5b194b9-82a8-460b-9ed5-cff5d974521b"],
Cell[CellGroupData[{
Cell[599405, 15514, 872, 23, 35, "Input", "ExpressionUUID" -> \
"f20f083e-2f33-4223-8690-26cf235b713f"],
Cell[600280, 15539, 5523, 138, 70, "Output", "ExpressionUUID" -> \
"64e66ffd-3877-4bb7-bb33-ed98b3c7b49a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[605840, 15682, 538, 15, 35, "Input", "ExpressionUUID" -> \
"6fde7a67-1440-4701-8eab-e767ff58e07c"],
Cell[606381, 15699, 6701, 194, 70, "Output", "ExpressionUUID" -> \
"7b92998d-5112-402a-b58b-67759849d1f5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[613119, 15898, 439, 10, 35, "Input", "ExpressionUUID" -> \
"6b032907-9c20-47bd-b1fa-6b13362a0e91"],
Cell[613561, 15910, 910, 22, 70, "Output", "ExpressionUUID" -> \
"41fc1cef-b0ed-41ab-84f4-7edb10e9d945"]
}, Open  ]],
Cell[CellGroupData[{
Cell[614508, 15937, 327, 6, 37, "Subsubsection", "ExpressionUUID" -> \
"fae1a020-86e8-4014-b405-9d4b5f41a9ec"],
Cell[CellGroupData[{
Cell[614860, 15947, 546, 10, 35, "Input", "ExpressionUUID" -> \
"61b859a5-06c8-4ea6-bbcc-5992631a02d9"],
Cell[615409, 15959, 1949, 45, 70, "Output", "ExpressionUUID" -> \
"c2e760de-9c09-42c2-81f1-542b5d7b335e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[617395, 16009, 354, 9, 35, "Input", "ExpressionUUID" -> \
"e3e83549-a4bf-4066-8218-787cc43b0ccf"],
Cell[617752, 16020, 1947, 45, 70, "Output", "ExpressionUUID" -> \
"18abcfe3-8196-4b50-8d00-75c9e018e019"]
}, Open  ]],
Cell[CellGroupData[{
Cell[619736, 16070, 232, 6, 33, "Input", "ExpressionUUID" -> \
"bb87e401-91c1-4aaa-9de3-ae8246640c57"],
Cell[619971, 16078, 4890, 106, 70, "Output", "ExpressionUUID" -> \
"62895177-91c7-4bf6-bc04-8eefe4f5171e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[624898, 16189, 347, 10, 33, "Input", "ExpressionUUID" -> \
"2604af49-235a-49bd-87e4-e516178f7516"],
Cell[625248, 16201, 959, 26, 70, "Output", "ExpressionUUID" -> \
"66d3d775-e307-43ff-a832-d5f98972ac6c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[626244, 16232, 300, 8, 33, "Input", "ExpressionUUID" -> \
"40b02709-21e7-4d20-bdf9-6d410af9796c"],
Cell[626547, 16242, 1019, 26, 70, "Output", "ExpressionUUID" -> \
"33a555c7-f89c-4ea7-9a62-f5a384c14297"]
}, Open  ]],
Cell[CellGroupData[{
Cell[627603, 16273, 329, 6, 33, "Input", "ExpressionUUID" -> \
"3182e19f-a91a-41f4-a409-b7a96a73889f"],
Cell[627935, 16281, 1021, 26, 70, "Output", "ExpressionUUID" -> \
"f464346b-be04-4230-a4b0-2aab80b691b0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[628993, 16312, 1687, 47, 59, "Input", "ExpressionUUID" -> \
"79cc22c1-3585-49b2-a4a0-e7567b8a3af8"],
Cell[630683, 16361, 303, 5, 70, "Output", "ExpressionUUID" -> \
"4c27b107-0427-41b5-83a8-4da3d9d176a6"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[631047, 16373, 319, 7, 46, "Subsection", "ExpressionUUID" -> \
"61926675-847b-4737-aa2d-39a258be38c5"],
Cell[CellGroupData[{
Cell[631391, 16384, 271, 6, 28, "Input", "ExpressionUUID" -> \
"9d7cbf0a-7184-405d-8575-bb969db36dbc"],
Cell[631665, 16392, 1777, 39, 70, "Output", "ExpressionUUID" -> \
"29b98c4e-20e1-4500-8011-13083a2185f9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[633479, 16436, 193, 4, 28, "Input", "ExpressionUUID" -> \
"798f0aea-a945-4b86-a1ca-0f1c70070896"],
Cell[633675, 16442, 6333, 135, 70, "Output", "ExpressionUUID" -> \
"dc036f96-594a-4f4e-933f-fb20d60f14df"]
}, Open  ]],
Cell[CellGroupData[{
Cell[640045, 16582, 271, 6, 28, "Input", "ExpressionUUID" -> \
"ecdce4a6-e3d5-482d-b297-322659106705"],
Cell[640319, 16590, 1730, 36, 70, "Output", "ExpressionUUID" -> \
"cab98cac-84dc-4011-af76-8b83494f1eec"]
}, Open  ]],
Cell[CellGroupData[{
Cell[642086, 16631, 197, 4, 28, "Input", "ExpressionUUID" -> \
"37ce1756-ab92-42d0-a888-b84bd3ca3434"],
Cell[642286, 16637, 6329, 135, 70, "Output", "ExpressionUUID" -> \
"cc23db3d-d897-4e8d-8ace-b002cd678f4f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[648652, 16777, 198, 4, 28, "Input", "ExpressionUUID" -> \
"a960c55a-5d4c-402b-815f-19ccab219e00"],
Cell[648853, 16783, 14136, 276, 70, "Output", "ExpressionUUID" -> \
"e72a3373-2cda-4188-be2e-d2af2f7a5674"]
}, Open  ]],
Cell[CellGroupData[{
Cell[663026, 17064, 196, 4, 28, "Input", "ExpressionUUID" -> \
"59a9f5ba-c70f-4b30-8b1f-a5e1dba146d8"],
Cell[663225, 17070, 14159, 276, 70, "Output", "ExpressionUUID" -> \
"89412b12-cd6c-4dbc-a33a-6b6bf3ea04e1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[677421, 17351, 881, 25, 28, "Input", "ExpressionUUID" -> \
"d7a26b50-9406-4df4-ae03-0bb19c167ea4"],
Cell[678305, 17378, 305, 5, 70, "Output", "ExpressionUUID" -> \
"65ab64f5-419d-4d8e-bd5c-25b6330a121e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[678647, 17388, 327, 7, 28, "Input", "ExpressionUUID" -> \
"8f99d152-9c75-4748-9eb2-a43c1c74d135"],
Cell[678977, 17397, 4896, 106, 70, "Output", "ExpressionUUID" -> \
"917f2028-8f0c-4cdb-a6c4-87b2d9b46db0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[683910, 17508, 345, 8, 28, "Input", "ExpressionUUID" -> \
"eac561a1-d2ce-44b8-a4a9-6f099ef35076"],
Cell[684258, 17518, 1801, 40, 70, "Output", "ExpressionUUID" -> \
"a9e4dd0a-e82e-4b3c-991d-aecfe4228771"]
}, Open  ]],
Cell[CellGroupData[{
Cell[686096, 17563, 285, 7, 28, "Input", "ExpressionUUID" -> \
"ca31b530-b3c1-4191-9067-b3773089e96b"],
Cell[686384, 17572, 1803, 40, 70, "Output", "ExpressionUUID" -> \
"497a3a90-d347-4cc2-8ad0-d4fc3406e06d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[688224, 17617, 226, 5, 28, "Input", "ExpressionUUID" -> \
"51c20e8c-e8ad-40cc-b3d0-6f72f4e9a6a5"],
Cell[688453, 17624, 1761, 38, 70, "Output", "ExpressionUUID" -> \
"2c35e379-7e44-43ed-9924-ed6897bb4753"]
}, Open  ]],
Cell[CellGroupData[{
Cell[690251, 17667, 201, 4, 28, "Input", "ExpressionUUID" -> \
"c5b3d862-5c4f-42d1-babc-b0c9e19f3753"],
Cell[690455, 17673, 4946, 108, 70, "Output", "ExpressionUUID" -> \
"9d974eb2-cc3e-44b4-b74c-59111d67e4fe"]
}, Open  ]],
Cell[CellGroupData[{
Cell[695438, 17786, 832, 23, 28, "Input", "ExpressionUUID" -> \
"4be63e3e-217a-4e63-b58c-44787a3fe6f6"],
Cell[696273, 17811, 301, 5, 70, "Output", "ExpressionUUID" -> \
"e5be87cc-b41f-4a30-bf6b-16881ca0aa77"]
}, Open  ]],
Cell[CellGroupData[{
Cell[696611, 17821, 253, 6, 28, "Input", "ExpressionUUID" -> \
"8bbd3fd2-6015-4259-bbf9-ed9d803c0ae2"],
Cell[696867, 17829, 296, 5, 70, "Output", "ExpressionUUID" -> \
"6c05088c-fda1-4823-9bdb-25e37d0edee3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[697200, 17839, 206, 4, 28, "Input", "ExpressionUUID" -> \
"53249811-2916-4e1e-b042-695fa47ce42d"],
Cell[697409, 17845, 25022, 551, 70, "Output", "ExpressionUUID" -> \
"1978e70d-1950-40e3-8d0a-2c5bdc53b2e4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[722468, 18401, 210, 4, 28, "Input", "ExpressionUUID" -> \
"d32eee49-7bf6-4165-879c-c761c7c92a45"],
Cell[722681, 18407, 22569, 439, 70, "Output", "ExpressionUUID" -> \
"42a16c5a-9ab5-43bf-8105-a0a0270a84e1"]
}, Open  ]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[745311, 18853, 158, 3, 52, "Section", "ExpressionUUID" -> \
"0e006476-0dbc-459b-89be-cf00ba45e3a9"],
Cell[CellGroupData[{
Cell[745494, 18860, 759, 17, 33, "Input", "ExpressionUUID" -> \
"85c29528-2de7-4ed7-92bf-8cf1e2fe30bc"],
Cell[746256, 18879, 857, 24, 123, "Output", "ExpressionUUID" -> \
"c187f41f-62e7-4f57-9956-f3d7ba631117"]
}, Open  ]]
}, Closed]]
}, Open  ]]
}
]
*)