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

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

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[    941971,      26088]
NotebookOptionsPosition[    903349,      25468]
NotebookOutlinePosition[    903906,      25489]
CellTagsIndexPosition[    903863,      25486]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
4D N=4 TV Specific GL2R Central Charges.nb
Requires N4TVUpToTildeTilde.m that includes
BosonSolutions[tt1,tt2][ss]: all possible ways of closing the Tilde-Tilde \
Tensor and Tilde-Tilde Vector algebra as shown in 4D N=4 TV No Closure
1) Among the BosonSolutions[tt1,tt2][ss], selects the solution as reported in \
1812.04236
3) Calculates the central charges for this particular solution. These are the \
central charges reported in 1812.04236\
\>", "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.7424478775638*^9, {3.74594526221448*^9, 
   3.745945264539792*^9}, {3.745945483092791*^9, 3.745945486075135*^9}, {
   3.7494109754965134`*^9, 3.749410982912364*^9}, {3.749411030768349*^9, 
   3.7494110324242716`*^9}, {3.7604716966764717`*^9, 3.760471703996976*^9}, {
   3.7604718399412527`*^9, 3.760471842751381*^9}, {3.7604719249240355`*^9, 
   3.7604722081230555`*^9}},ExpressionUUID->"dfab12f3-523a-4891-ab6d-\
6353bcfa0aa5"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"$RecursionLimit", "=", "Infinity"}]], "Input",
 CellLabel->"In[1]:=",ExpressionUUID->"8e4673ca-9eef-4883-a43b-511bdd0767b0"],

Cell[BoxData["\[Infinity]"], "Output",
 CellChangeTimes->{3.749499971473157*^9, 3.749557117249257*^9, 
  3.7495600685613365`*^9, 3.7498418373173075`*^9, 3.7498580053780212`*^9, 
  3.7604715042704525`*^9},
 CellLabel->"Out[1]=",ExpressionUUID->"7c5824c1-b56b-46f6-ab6e-1de5a9f1b951"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Load Data from the Save Point of 4D N=4 TV No Closure", "Section",
 CellChangeTimes->{{3.749398830658264*^9, 3.7493988342339287`*^9}, {
  3.7604685398335247`*^9, 
  3.760468555817895*^9}},ExpressionUUID->"edb43e4c-6e9c-449d-8a2b-\
28a0eff747b5"],

Cell[BoxData[
 RowBox[{
  RowBox[{"SetDirectory", "[", 
   RowBox[{"NotebookDirectory", "[", "]"}], "]"}], ";"}]], "Input",
 CellLabel->"In[2]:=",ExpressionUUID->"086316f7-7ddb-472b-933a-e697b1994792"],

Cell[BoxData[
 RowBox[{
  RowBox[{"<<", "N4TVUpToTildeTilde.m"}], ";"}]], "Input",
 CellChangeTimes->{{3.742447734672681*^9, 3.742447736272915*^9}, 
   3.7493988868760805`*^9, {3.749399491515788*^9, 3.7493994932985024`*^9}, {
   3.749399830467062*^9, 3.74939984305057*^9}, 3.7493998825557117`*^9},
 CellLabel->"In[3]:=",ExpressionUUID->"c25483dd-b5ce-44ca-9cb2-cad2a8f692c5"],

Cell[CellGroupData[{

Cell["\<\
Lagrangian is Satisfied, untilded and tilded algebras are separably satisfied\
\
\>", "Subsection",
 CellChangeTimes->{{3.7494000204258566`*^9, 
  3.749400043881895*^9}},ExpressionUUID->"28187006-d255-4a9e-8716-\
d9688eb25e3c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"DLFinal", "[", "1", "]"}], "\[Equal]", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"DLFinal", "[", "2", "]"}], "/.", "LagrangianParameters"}], ")"}],
   "==", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}]], "Input",
 CellLabel->"In[4]:=",ExpressionUUID->"cd92a870-cc89-4569-8ad6-b3793f408796"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.749399952526571*^9, 3.7494005226716604`*^9, 
  3.749402315326106*^9, 3.7494072262561054`*^9, 3.749482066027239*^9, 
  3.749482376332136*^9, 3.749482465354785*^9, 3.7494975079014587`*^9, 
  3.7494995194476604`*^9, 3.749499696600588*^9, 3.7494999730187783`*^9, 
  3.7495571187834806`*^9, 3.74956007001511*^9, 3.7498393930092735`*^9, 
  3.749840435444636*^9, 3.749841838906992*^9, 3.749858007087495*^9, 
  3.7604715057604895`*^9},
 CellLabel->"Out[4]=",ExpressionUUID->"f53f797a-a790-430d-a108-983e599dfd9e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"AlgebraDDResult", "[", 
      RowBox[{"1", ",", "1"}], "]"}], "[", "Index", "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"Index", ",", "1", ",", "14"}], "}"}]}], "]"}], "\[Equal]", 
  RowBox[{"Table", "[", 
   RowBox[{"True", ",", 
    RowBox[{"{", 
     RowBox[{"Index", ",", "1", ",", "14"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.746844857362361*^9, 3.7468448795383835`*^9}, 
   3.7474860644092245`*^9, 3.7493830656655216`*^9, {3.7493833451039195`*^9, 
   3.7493833528869457`*^9}, {3.7493999945262117`*^9, 3.7494000031303625`*^9}},
 
 CellLabel->"In[5]:=",ExpressionUUID->"e9b343ff-d5ff-4c6d-93fa-5ec8bf44dc7e"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.749400005675207*^9, 3.749400522693488*^9, 
  3.7494023153384976`*^9, 3.7494072262719355`*^9, 3.7494820660381503`*^9, 
  3.749482376345069*^9, 3.7494824653711987`*^9, 3.7494975079133625`*^9, 
  3.749499519460556*^9, 3.7494996966150107`*^9, 3.7494999730311785`*^9, 
  3.7495571187978263`*^9, 3.7495600700270166`*^9, 3.749839393020224*^9, 
  3.7498404354595146`*^9, 3.7498418389208746`*^9, 3.749858007157745*^9, 
  3.7604715057746305`*^9},
 CellLabel->"Out[5]=",ExpressionUUID->"1428e491-b848-431a-a765-e448c855fcb8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"ClosureResult", "[", 
    RowBox[{"2", ",", "2"}], "]"}], "[", "1", "]"}], " ", "\[Equal]", " ", 
  RowBox[{
   RowBox[{"ClosureResult", "[", 
    RowBox[{"2", ",", "2"}], "]"}], "[", "2", "]"}], " ", "\[Equal]", " ", 
  "True"}]], "Input",
 CellChangeTimes->{{3.7493982716239796`*^9, 3.7493982885147495`*^9}, {
  3.7493999287308226`*^9, 3.7493999358584585`*^9}},
 CellLabel->"In[6]:=",ExpressionUUID->"dc07e443-9b83-44a3-ab71-f68b1f74f390"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.7493999374939404`*^9, 3.7494005227182484`*^9, 
  3.749402315351391*^9, 3.749407226287314*^9, 3.7494820660500546`*^9, 
  3.749482376355982*^9, 3.7494824653830566`*^9, 3.749497507925763*^9, 
  3.7494995194739485`*^9, 3.7494996966308436`*^9, 3.749499973044073*^9, 
  3.749557118813204*^9, 3.749560070035986*^9, 3.7498393930331163`*^9, 
  3.749840435475883*^9, 3.7498418389372425`*^9, 3.74985800724076*^9, 
  3.7604715057847385`*^9},
 CellLabel->"Out[6]=",ExpressionUUID->"ac374728-517f-4d96-81db-8023762227b8"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Solutions are ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{"BosonSolutions", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "ss", "]"}], "[", 
   RowBox[{"[", "1", "]"}], "]"}]], "Input",
  CellChangeTimes->{{3.7494002451912274`*^9, 3.749400268379819*^9}},
  ExpressionUUID->"cbcb7359-8438-4c85-ae42-b2e9c7bc00de"]
}], "Subsection",
 CellChangeTimes->{{3.749400293321888*^9, 
  3.7494003166180077`*^9}},ExpressionUUID->"62946acd-2bb4-4ad3-a75b-\
335edd44bb5a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"BosonSolutions", "[", 
    RowBox[{"2", ",", "2"}], "]"}], "[", "2", "]"}], "[", 
  RowBox[{"[", "1", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.7494002451912274`*^9, 3.749400268379819*^9}},
 CellLabel->"In[7]:=",ExpressionUUID->"8f3f0f1c-157b-4744-9bf7-7d072359e037"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"cv", "[", "7", "]"}], "[", "0", "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"cv", "[", "7", "]"}], "[", "1", "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", "\[ImaginaryI]"}], " ", 
     RowBox[{
      RowBox[{"cv", "[", "12", "]"}], "[", "3", "]"}]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"cv", "[", "7", "]"}], "[", "2", "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"cv", "[", "7", "]"}], "[", "3", "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", "\[ImaginaryI]"}], " ", 
     SqrtBox[
      RowBox[{
       RowBox[{"-", "1"}], "-", 
       SuperscriptBox[
        RowBox[{
         RowBox[{"cv", "[", "12", "]"}], "[", "3", "]"}], "2"]}]]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"cv", "[", "8", "]"}], "[", "0", "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"cv", "[", "8", "]"}], "[", "1", "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", "\[ImaginaryI]"}], " ", 
     RowBox[{
      RowBox[{"cv", "[", "12", "]"}], "[", "3", "]"}]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"cv", "[", "8", "]"}], "[", "2", "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"cv", "[", "8", "]"}], "[", "3", "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", "\[ImaginaryI]"}], " ", 
     SqrtBox[
      RowBox[{
       RowBox[{"-", "1"}], "-", 
       SuperscriptBox[
        RowBox[{
         RowBox[{"cv", "[", "12", "]"}], "[", "3", "]"}], "2"]}]]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"cv", "[", "9", "]"}], "[", "0", "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"cv", "[", "9", "]"}], "[", "1", "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", "\[ImaginaryI]"}], " ", 
     RowBox[{
      RowBox[{"cv", "[", "12", "]"}], "[", "3", "]"}]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"cv", "[", "9", "]"}], "[", "2", "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"cv", "[", "9", "]"}], "[", "3", "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", "\[ImaginaryI]"}], " ", 
     SqrtBox[
      RowBox[{
       RowBox[{"-", "1"}], "-", 
       SuperscriptBox[
        RowBox[{
         RowBox[{"cv", "[", "12", "]"}], "[", "3", "]"}], "2"]}]]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"cv", "[", "10", "]"}], "[", "1", "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"cv", "[", "10", "]"}], "[", "2", "]"}], "\[Rule]", 
    RowBox[{"-", 
     SqrtBox[
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       SuperscriptBox[
        RowBox[{
         RowBox[{"cv", "[", "10", "]"}], "[", "0", "]"}], "2"]}]]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"cv", "[", "10", "]"}], "[", "3", "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"cv", "[", "11", "]"}], "[", "0", "]"}], "\[Rule]", 
    RowBox[{"-", 
     SqrtBox[
      RowBox[{"1", "-", 
       SuperscriptBox[
        RowBox[{
         RowBox[{"cv", "[", "10", "]"}], "[", "0", "]"}], "2"]}]]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"cv", "[", "11", "]"}], "[", "1", "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"cv", "[", "11", "]"}], "[", "2", "]"}], "\[Rule]", 
    FractionBox[
     RowBox[{
      RowBox[{
       RowBox[{"cv", "[", "10", "]"}], "[", "0", "]"}], " ", 
      SqrtBox[
       RowBox[{"1", "-", 
        SuperscriptBox[
         RowBox[{
          RowBox[{"cv", "[", "10", "]"}], "[", "0", "]"}], "2"]}]]}], 
     SqrtBox[
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       SuperscriptBox[
        RowBox[{
         RowBox[{"cv", "[", "10", "]"}], "[", "0", "]"}], "2"]}]]]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"cv", "[", "11", "]"}], "[", "3", "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"cv", "[", "12", "]"}], "[", "0", "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"cv", "[", "12", "]"}], "[", "1", "]"}], "\[Rule]", 
    RowBox[{"-", 
     SqrtBox[
      RowBox[{
       RowBox[{"-", "1"}], "-", 
       SuperscriptBox[
        RowBox[{
         RowBox[{"cv", "[", "12", "]"}], "[", "3", "]"}], "2"]}]]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"cv", "[", "12", "]"}], "[", "2", "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{"b1", "\[Rule]", "1"}], ",", 
   RowBox[{"b2", "\[Rule]", "0"}], ",", 
   RowBox[{"b3", "\[Rule]", "0"}], ",", 
   RowBox[{"b4", "\[Rule]", "0"}], ",", 
   RowBox[{"b5", "\[Rule]", "0"}], ",", 
   RowBox[{"b6", "\[Rule]", 
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       SqrtBox[
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         SuperscriptBox[
          RowBox[{
           RowBox[{"cv", "[", "10", "]"}], "[", "0", "]"}], "2"]}]]}], " ", 
      RowBox[{
       RowBox[{"cv", "[", "12", "]"}], "[", "3", "]"}]}], "+", 
     RowBox[{"\[ImaginaryI]", " ", 
      RowBox[{
       RowBox[{"cv", "[", "10", "]"}], "[", "0", "]"}], " ", 
      SqrtBox[
       RowBox[{
        RowBox[{"-", "1"}], "-", 
        SuperscriptBox[
         RowBox[{
          RowBox[{"cv", "[", "12", "]"}], "[", "3", "]"}], "2"]}]]}]}]}], ",", 
   RowBox[{"b7", "\[Rule]", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], " ", 
      RowBox[{
       RowBox[{"cv", "[", "10", "]"}], "[", "0", "]"}], " ", 
      RowBox[{
       RowBox[{"cv", "[", "12", "]"}], "[", "3", "]"}]}], "-", 
     RowBox[{
      SqrtBox[
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        SuperscriptBox[
         RowBox[{
          RowBox[{"cv", "[", "10", "]"}], "[", "0", "]"}], "2"]}]], " ", 
      SqrtBox[
       RowBox[{
        RowBox[{"-", "1"}], "-", 
        SuperscriptBox[
         RowBox[{
          RowBox[{"cv", "[", "12", "]"}], "[", "3", "]"}], "2"]}]]}]}]}], ",", 
   RowBox[{"b8", "\[Rule]", 
    RowBox[{"-", "1"}]}], ",", 
   RowBox[{"b9", "\[Rule]", "0"}], ",", 
   RowBox[{"b10", "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        RowBox[{
         RowBox[{"cv", "[", "10", "]"}], "[", "0", "]"}], " ", 
        SqrtBox[
         RowBox[{"1", "-", 
          SuperscriptBox[
           RowBox[{
            RowBox[{"cv", "[", "10", "]"}], "[", "0", "]"}], "2"]}]], " ", 
        RowBox[{
         RowBox[{"cv", "[", "12", "]"}], "[", "3", "]"}]}], 
       SqrtBox[
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         SuperscriptBox[
          RowBox[{
           RowBox[{"cv", "[", "10", "]"}], "[", "0", "]"}], "2"]}]]]}], "+", 
     RowBox[{"\[ImaginaryI]", " ", 
      SqrtBox[
       RowBox[{"1", "-", 
        SuperscriptBox[
         RowBox[{
          RowBox[{"cv", "[", "10", "]"}], "[", "0", "]"}], "2"]}]], " ", 
      SqrtBox[
       RowBox[{
        RowBox[{"-", "1"}], "-", 
        SuperscriptBox[
         RowBox[{
          RowBox[{"cv", "[", "12", "]"}], "[", "3", "]"}], "2"]}]]}]}]}], ",", 
   RowBox[{"b11", "\[Rule]", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], " ", 
      SqrtBox[
       RowBox[{"1", "-", 
        SuperscriptBox[
         RowBox[{
          RowBox[{"cv", "[", "10", "]"}], "[", "0", "]"}], "2"]}]], " ", 
      RowBox[{
       RowBox[{"cv", "[", "12", "]"}], "[", "3", "]"}]}], "-", 
     FractionBox[
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "10", "]"}], "[", "0", "]"}], " ", 
       SqrtBox[
        RowBox[{"1", "-", 
         SuperscriptBox[
          RowBox[{
           RowBox[{"cv", "[", "10", "]"}], "[", "0", "]"}], "2"]}]], " ", 
       SqrtBox[
        RowBox[{
         RowBox[{"-", "1"}], "-", 
         SuperscriptBox[
          RowBox[{
           RowBox[{"cv", "[", "12", "]"}], "[", "3", "]"}], "2"]}]]}], 
      SqrtBox[
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        SuperscriptBox[
         RowBox[{
          RowBox[{"cv", "[", "10", "]"}], "[", "0", "]"}], "2"]}]]]}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.749400255130045*^9, 3.7494002694578557`*^9}, 
   3.7494003218456697`*^9, 3.749402315372719*^9, 3.749407226313141*^9, 
   3.749482066072375*^9, 3.749482376376822*^9, 3.7494824654098425`*^9, 
   3.749497507948083*^9, 3.749499519499202*^9, 3.74949969665366*^9, 
   3.749499973073835*^9, 3.749557118840483*^9, 3.7495600700563364`*^9, 
   3.749839393061326*^9, 3.749840435510107*^9, 3.749841838961087*^9, 
   3.749858007323257*^9, 3.7604715058096085`*^9},
 CellLabel->"Out[7]=",ExpressionUUID->"46449363-1068-485d-9e22-7be8513a018b"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["ThisOneLooksGood: a particularly simple solution", "Subsection",
 CellChangeTimes->{{3.7494822711077766`*^9, 
  3.749482286635431*^9}},ExpressionUUID->"783c487e-6212-4784-94d6-\
44fb6a990dc4"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ThisOneLooksGood", " ", "=", 
  RowBox[{"Join", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"BosonSolutions", "[", 
       RowBox[{"2", ",", "2"}], "]"}], "[", "1", "]"}], "[", 
     RowBox[{"[", "600", "]"}], "]"}], ",", 
    RowBox[{
     RowBox[{
      RowBox[{"BosonSolutions", "[", 
       RowBox[{"2", ",", "2"}], "]"}], "[", "2", "]"}], "[", 
     RowBox[{"[", "400", "]"}], "]"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7494115718266816`*^9, 3.7494116037368307`*^9}},
 CellLabel->"In[8]:=",ExpressionUUID->"28e06517-71c8-4b72-b5f1-e18a8e8e4596"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"cv", "[", "1", "]"}], "[", "0", "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"cv", "[", "1", "]"}], "[", "1", "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"cv", "[", "1", "]"}], "[", "2", "]"}], "\[Rule]", 
    "\[ImaginaryI]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"cv", "[", "1", "]"}], "[", "3", "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"cv", "[", "2", "]"}], "[", "0", "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"cv", "[", "2", "]"}], "[", "1", "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"cv", "[", "2", "]"}], "[", "2", "]"}], "\[Rule]", 
    "\[ImaginaryI]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"cv", "[", "2", "]"}], "[", "3", "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"cv", "[", "3", "]"}], "[", "0", "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"cv", "[", "3", "]"}], "[", "1", "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"cv", "[", "3", "]"}], "[", "2", "]"}], "\[Rule]", 
    "\[ImaginaryI]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"cv", "[", "3", "]"}], "[", "3", "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"cv", "[", "4", "]"}], "[", "0", "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"cv", "[", "4", "]"}], "[", "1", "]"}], "\[Rule]", "1"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"cv", "[", "4", "]"}], "[", "2", "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"cv", "[", "4", "]"}], "[", "3", "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"cv", "[", "5", "]"}], "[", "0", "]"}], "\[Rule]", 
    RowBox[{"-", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"cv", "[", "5", "]"}], "[", "1", "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"cv", "[", "5", "]"}], "[", "2", "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"cv", "[", "5", "]"}], "[", "3", "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"cv", "[", "6", "]"}], "[", "0", "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"cv", "[", "6", "]"}], "[", "1", "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"cv", "[", "6", "]"}], "[", "2", "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"cv", "[", "6", "]"}], "[", "3", "]"}], "\[Rule]", 
    RowBox[{"-", "1"}]}], ",", 
   RowBox[{"a1", "\[Rule]", "1"}], ",", 
   RowBox[{"a2", "\[Rule]", "0"}], ",", 
   RowBox[{"a3", "\[Rule]", "0"}], ",", 
   RowBox[{"a4", "\[Rule]", 
    RowBox[{"-", "1"}]}], ",", 
   RowBox[{"a5", "\[Rule]", 
    RowBox[{"-", "1"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"cv", "[", "7", "]"}], "[", "0", "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"cv", "[", "7", "]"}], "[", "1", "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"cv", "[", "7", "]"}], "[", "2", "]"}], "\[Rule]", 
    "\[ImaginaryI]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"cv", "[", "7", "]"}], "[", "3", "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"cv", "[", "8", "]"}], "[", "0", "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"cv", "[", "8", "]"}], "[", "1", "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"cv", "[", "8", "]"}], "[", "2", "]"}], "\[Rule]", 
    "\[ImaginaryI]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"cv", "[", "8", "]"}], "[", "3", "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"cv", "[", "9", "]"}], "[", "0", "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"cv", "[", "9", "]"}], "[", "1", "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"cv", "[", "9", "]"}], "[", "2", "]"}], "\[Rule]", 
    "\[ImaginaryI]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"cv", "[", "9", "]"}], "[", "3", "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"cv", "[", "10", "]"}], "[", "0", "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"cv", "[", "10", "]"}], "[", "1", "]"}], "\[Rule]", 
    RowBox[{"-", "1"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"cv", "[", "10", "]"}], "[", "2", "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"cv", "[", "10", "]"}], "[", "3", "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"cv", "[", "11", "]"}], "[", "0", "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"cv", "[", "11", "]"}], "[", "1", "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"cv", "[", "11", "]"}], "[", "2", "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"cv", "[", "11", "]"}], "[", "3", "]"}], "\[Rule]", "1"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"cv", "[", "12", "]"}], "[", "0", "]"}], "\[Rule]", 
    RowBox[{"-", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"cv", "[", "12", "]"}], "[", "1", "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"cv", "[", "12", "]"}], "[", "2", "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"cv", "[", "12", "]"}], "[", "3", "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{"b1", "\[Rule]", "1"}], ",", 
   RowBox[{"b2", "\[Rule]", "0"}], ",", 
   RowBox[{"b3", "\[Rule]", "0"}], ",", 
   RowBox[{"b4", "\[Rule]", "0"}], ",", 
   RowBox[{"b5", "\[Rule]", "0"}], ",", 
   RowBox[{"b6", "\[Rule]", "1"}], ",", 
   RowBox[{"b7", "\[Rule]", "0"}], ",", 
   RowBox[{"b8", "\[Rule]", 
    RowBox[{"-", "1"}]}], ",", 
   RowBox[{"b9", "\[Rule]", "0"}], ",", 
   RowBox[{"b10", "\[Rule]", "0"}], ",", 
   RowBox[{"b11", "\[Rule]", "1"}]}], "}"}]], "Output",
 CellChangeTimes->{3.74941160424072*^9, 3.749411639362543*^9, 
  3.7494820676897836`*^9, 3.749482376394177*^9, 3.7494824654282007`*^9, 
  3.7494975079719954`*^9, 3.7494995195215235`*^9, 3.7494996966769714`*^9, 
  3.749499973092682*^9, 3.749557118859391*^9, 3.7495600700721917`*^9, 
  3.7498393930801373`*^9, 3.749840435530938*^9, 3.749841838990435*^9, 
  3.749858007407233*^9, 3.7604715058270483`*^9},
 CellLabel->"Out[8]=",ExpressionUUID->"8accd478-e04d-4f0d-b2ff-b9d8ccebf636"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"PrintSigmaProduct", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"V", "[", "nn", "]"}], "[", 
         RowBox[{"ii", ",", "jj"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"jj", ",", "1", ",", "2"}], "}"}]}], "]"}], "/.", 
      "VtoPauli"}], "/.", "ThisOneLooksGood"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"nn", ",", "1", ",", "12"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7494822949220448`*^9, 3.7494823511478577`*^9}, {
  3.7494823858218775`*^9, 3.7494823877980165`*^9}, {3.7494824283410683`*^9, 
  3.7494824525643225`*^9}},
 CellLabel->"In[9]:=",ExpressionUUID->"5130b64d-94a3-4c50-ab4c-ac3053345dbf"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Sigma]", "2"]}], ",", 
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Sigma]", "2"]}], ",", 
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Sigma]", "2"]}], ",", 
   SubscriptBox["\[Sigma]", "1"], ",", 
   RowBox[{
    RowBox[{"-", "\[ImaginaryI]"}], " ", "\<\"I\"\>"}], ",", 
   RowBox[{"-", 
    SubscriptBox["\[Sigma]", "3"]}], ",", 
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Sigma]", "2"]}], ",", 
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Sigma]", "2"]}], ",", 
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["\[Sigma]", "2"]}], ",", 
   RowBox[{"-", 
    SubscriptBox["\[Sigma]", "1"]}], ",", 
   SubscriptBox["\[Sigma]", "3"], ",", 
   RowBox[{
    RowBox[{"-", "\[ImaginaryI]"}], " ", "\<\"I\"\>"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.7494822967584114`*^9, {3.7494823516392856`*^9, 3.749482388711256*^9}, 
   3.7494824654614663`*^9, 3.7494975080077095`*^9, 3.7494995195428495`*^9, 
   3.7494996967508764`*^9, 3.7494999731407943`*^9, 3.7495571189090023`*^9, 
   3.749560070083558*^9, 3.749839393142634*^9, 3.7498404355606995`*^9, 
   3.7498418390742598`*^9, 3.749858007474861*^9, 3.7604715058747697`*^9},
 CellLabel->"Out[9]=",ExpressionUUID->"29a495fe-0c7c-4323-9dba-0fa57d612f22"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TeXForm", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.7498393948652353`*^9, 3.749839398197372*^9}},
 CellLabel->"In[10]:=",ExpressionUUID->"0f4908af-8be8-4277-8902-e605e096018a"],

Cell["\<\
\\left\\{i \\sigma _2,i \\sigma _2,i \\sigma _2,\\sigma _1,-i \
\\text{I},-\\sigma _3,i \\sigma _2,i \\sigma _2,i
   \\sigma _2,-\\sigma _1,\\sigma _3,-i \\text{I}\\right\\}\
\>", "Output",
 CellChangeTimes->{3.749839398622985*^9, 3.74984043560633*^9, 
  3.7498418421420183`*^9, 3.749858007521806*^9, 3.760471505930453*^9},
 CellLabel->
  "Out[10]//TeXForm=",ExpressionUUID->"fc37b7c7-a4e3-4eb2-b866-180011820bb5"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"aTable", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"a1", ",", "a2", ",", "a3", ",", "a4", ",", "a5"}], "}"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.7498395055779934`*^9, 3.7498395329641476`*^9}, {
  3.7498404924387274`*^9, 3.749840509044504*^9}},
 CellLabel->"In[11]:=",ExpressionUUID->"00f83925-0243-414c-b04a-318b52f78863"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DeleteCases", "[", 
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"a", "[", "Index", "]"}], " ", "\[Equal]", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"aTable", "[", 
         RowBox[{"[", "Index", "]"}], "]"}], "/.", "ThisOneLooksGood"}], 
       ")"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"Index", ",", "1", ",", "5"}], "}"}]}], "]"}], ",", 
   RowBox[{
    RowBox[{"a", "[", "_", "]"}], "\[Equal]", "0"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.749840512686663*^9, 3.7498405793489933`*^9}},
 CellLabel->"In[12]:=",ExpressionUUID->"1e96b33d-90f5-43fc-bf2d-279c865fc706"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"a", "[", "1", "]"}], "\[Equal]", "1"}], ",", 
   RowBox[{
    RowBox[{"a", "[", "4", "]"}], "\[Equal]", 
    RowBox[{"-", "1"}]}], ",", 
   RowBox[{
    RowBox[{"a", "[", "5", "]"}], "\[Equal]", 
    RowBox[{"-", "1"}]}]}], "}"}]], "Output",
 CellChangeTimes->{3.7498405804975367`*^9, 3.749841842271517*^9, 
  3.749858007616351*^9, 3.7604715059704313`*^9},
 CellLabel->"Out[12]=",ExpressionUUID->"13cd45f9-fbea-4ca3-b57e-c0cb28f8bea8"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"bTable", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
    "b1", ",", "b2", ",", "b3", ",", "b4", ",", "b5", ",", "b6", ",", "b7", 
     ",", "b8", ",", "b9", ",", "b10", ",", "b11"}], "}"}]}], ";"}]], "Input",\

 CellChangeTimes->{{3.7498395055779934`*^9, 3.7498395329641476`*^9}, {
  3.7498404924387274`*^9, 3.749840509044504*^9}, {3.749840599437031*^9, 
  3.749840613124441*^9}},
 CellLabel->"In[13]:=",ExpressionUUID->"5f664c8c-dfc7-4514-b19c-92d078ec0818"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DeleteCases", "[", 
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"b", "[", "Index", "]"}], " ", "\[Equal]", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"bTable", "[", 
         RowBox[{"[", "Index", "]"}], "]"}], "/.", "ThisOneLooksGood"}], 
       ")"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"Index", ",", "1", ",", "11"}], "}"}]}], "]"}], ",", 
   RowBox[{
    RowBox[{"b", "[", "_", "]"}], "\[Equal]", "0"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.749840512686663*^9, 3.749840597180286*^9}, {
  3.7498406568211255`*^9, 3.749840656940626*^9}},
 CellLabel->"In[14]:=",ExpressionUUID->"db825423-7ba3-44fb-8880-70addefd27ce"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"b", "[", "1", "]"}], "\[Equal]", "1"}], ",", 
   RowBox[{
    RowBox[{"b", "[", "6", "]"}], "\[Equal]", "1"}], ",", 
   RowBox[{
    RowBox[{"b", "[", "8", "]"}], "\[Equal]", 
    RowBox[{"-", "1"}]}], ",", 
   RowBox[{
    RowBox[{"b", "[", "11", "]"}], "\[Equal]", "1"}]}], "}"}]], "Output",
 CellChangeTimes->{3.7498405804975367`*^9, 3.749840616899829*^9, 
  3.749840657715446*^9, 3.749841842295322*^9, 3.749858007715567*^9, 
  3.7604715059904146`*^9},
 CellLabel->"Out[14]=",ExpressionUUID->"1e12ff3a-22bf-4ed6-9d9d-b2c242853829"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Algebra ",
 Cell[BoxData[
  FormBox[
   RowBox[{"{", 
    RowBox[{
     SubsuperscriptBox["D", "a", "i"], ","}]}], TraditionalForm]],
  ExpressionUUID->"be23db71-8888-4452-80fc-9b7a9511e243"],
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubsuperscriptBox[
     OverscriptBox["D", "~"], "b", "j"], "}"}], TraditionalForm]],
  ExpressionUUID->"b4a187fc-9832-491d-a09b-668fa86fa483"],
 " MUST have central charges as proved in \[OpenCurlyDoubleQuote]4D N=4 TV No \
Closure.nb\[CloseCurlyDoubleQuote]"
}], "Section",
 CellChangeTimes->{{3.746831725880522*^9, 3.746831726815978*^9}, {
  3.747484799938679*^9, 3.747484810026211*^9}, {3.749400068041915*^9, 
  3.7494001134180827`*^9}, {3.7494066516890545`*^9, 3.7494066661848483`*^9}, {
  3.749406849977332*^9, 3.7494068571212597`*^9}, {3.749407226350304*^9, 
  3.749407251033248*^9}, {3.7604685809780016`*^9, 
  3.760468590897463*^9}},ExpressionUUID->"001af4b3-a842-415b-93b5-\
f7c611a0c3da"],

Cell[CellGroupData[{

Cell[TextData[{
 "tt1 = 1, tt2 = 2, ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"Zgen", "[", 
      RowBox[{"lfn", ",", "fn"}], "]"}], "[", 
     RowBox[{"i", ",", "j"}], "]"}], " ", ":=", " ", 
    SuperscriptBox[
     RowBox[{"Z", "[", 
      RowBox[{"lfn", ",", "fn"}], "]"}], "ij"], " "}], TraditionalForm]],
  ExpressionUUID->"300102f3-f892-4fe9-9deb-e084901a6682"],
 " for central charge coding ease"
}], "Subsection",
 CellChangeTimes->{{3.7494004816582723`*^9, 3.7494004843061743`*^9}, {
  3.7495021761441307`*^9, 
  3.7495022142018757`*^9}},ExpressionUUID->"d709655d-8321-47e6-adf8-\
dca2e21c919f"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", 
  RowBox[{"tt1", ",", "tt2", ",", "ss"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"tt1", " ", "=", " ", "1"}], "\[IndentingNewLine]", 
 RowBox[{"tt2", " ", "=", " ", "2"}]}], "Input",
 CellChangeTimes->{{3.7494004852791653`*^9, 3.7494004892504425`*^9}, {
  3.749400537282079*^9, 3.7494005561222143`*^9}},
 CellLabel->"In[15]:=",ExpressionUUID->"bacce989-d1a8-408e-bb7b-e3cc56f4640a"],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{{3.7494005455313473`*^9, 3.749400557348095*^9}, 
   3.7494023431660843`*^9, 3.749402569020705*^9, 3.7494072598055353`*^9, 
   3.7494088449239454`*^9, 3.74948206608972*^9, 3.749482599509872*^9, 
   3.74949750802606*^9, 3.7494995195557885`*^9, 3.749499696772252*^9, 
   3.749499973162122*^9, 3.7495571189278603`*^9, 3.749560070103962*^9, 
   3.749841842321074*^9, 3.7498580077927713`*^9, 3.760471506004696*^9},
 CellLabel->"Out[16]=",ExpressionUUID->"7caf29b0-8519-4217-ab56-931e4a3b4f89"],

Cell[BoxData["2"], "Output",
 CellChangeTimes->{{3.7494005455313473`*^9, 3.749400557348095*^9}, 
   3.7494023431660843`*^9, 3.749402569020705*^9, 3.7494072598055353`*^9, 
   3.7494088449239454`*^9, 3.74948206608972*^9, 3.749482599509872*^9, 
   3.74949750802606*^9, 3.7494995195557885`*^9, 3.749499696772252*^9, 
   3.749499973162122*^9, 3.7495571189278603`*^9, 3.749560070103962*^9, 
   3.749841842321074*^9, 3.7498580077927713`*^9, 3.760471506010264*^9},
 CellLabel->"Out[17]=",ExpressionUUID->"5783968d-a20f-4b73-bc82-e47cb2444842"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "ZGen[lfn,fn][i_,j_]:= z[lfn,fn,0] ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["\[Delta]", "ij"], TraditionalForm]],
  FormatType->"TraditionalForm",ExpressionUUID->
  "41be78e2-7c7a-424a-b8e3-607bf910b0cc"],
 " + z[lfn,fn,1] ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox[
    RowBox[{"(", 
     SuperscriptBox["\[Sigma]", "1"], ")"}], "ij"], TraditionalForm]],
  FormatType->"TraditionalForm",ExpressionUUID->
  "b71b53a2-d12c-48f0-9d8f-fbcc6ba77865"],
 "+ i z[lfn,fn,2] ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox[
    RowBox[{"(", 
     SuperscriptBox["\[Sigma]", "2"], ")"}], "ij"], TraditionalForm]],
  FormatType->"TraditionalForm",ExpressionUUID->
  "fb103bc5-7cef-4f3b-814b-d02458ebe2fe"],
 "+z[lfn,fn,3] ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox[
    RowBox[{"(", 
     SuperscriptBox["\[Sigma]", "3"], ")"}], "ij"], TraditionalForm]],
  FormatType->"TraditionalForm",ExpressionUUID->
  "ab77094b-26f9-4fd1-a832-2e337a8f9367"]
}], "Subsubsection",
 CellChangeTimes->{{3.7494073843692446`*^9, 3.7494074867540464`*^9}, {
  3.7494094417769537`*^9, 3.749409473904957*^9}, {3.7494095207530665`*^9, 
  3.749409521560831*^9}},ExpressionUUID->"4bbafa65-4d49-402a-88e9-\
d072f1964084"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"ZGen", "[", 
    RowBox[{"lfn_", ",", "fn_"}], "]"}], "[", 
   RowBox[{"ii_", ",", "jj_"}], "]"}], " ", ":=", " ", 
  RowBox[{
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"lfn", ",", "fn", ",", "0"}], "]"}], " ", 
    RowBox[{"KroneckerDelta", "[", 
     RowBox[{"ii", ",", "jj"}], "]"}]}], " ", "+", " ", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"lfn", ",", "fn", ",", "1"}], "]"}], " ", 
    RowBox[{
     RowBox[{"sigma", "[", "1", "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"ii", ",", "jj"}], "]"}], "]"}]}], " ", "+", " ", 
   RowBox[{"I", " ", 
    RowBox[{"z", "[", 
     RowBox[{"lfn", ",", "fn", ",", "2"}], "]"}], " ", 
    RowBox[{
     RowBox[{"sigma", "[", "2", "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"ii", ",", "jj"}], "]"}], "]"}]}], "+", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"lfn", ",", "fn", ",", "3"}], "]"}], " ", 
    RowBox[{
     RowBox[{"sigma", "[", "3", "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"ii", ",", "jj"}], "]"}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.7494073880227585`*^9, 3.7494073885692415`*^9}, {
  3.749407492316245*^9, 3.7494075321772375`*^9}, {3.7494093946597486`*^9, 
  3.749409403009001*^9}, {3.7494095334344463`*^9, 3.749409552928624*^9}},
 CellLabel->"In[18]:=",ExpressionUUID->"fc503335-f16b-49f3-a0fe-751e6ac185a0"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       SubsuperscriptBox["D", "a", "i"], ",", 
       SubsuperscriptBox[
        OverscriptBox["D", "~"], "b", "j"]}], "}"}], "A"}], "=", " ", 
    RowBox[{
     RowBox[{"2", "i", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"1", ",", "1"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Mu]"], 
       OverscriptBox["A", "~"]}]}], " ", "+", 
     RowBox[{"2", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"1", ",", "2"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["\[Gamma]", "5"], 
         SuperscriptBox["\[Gamma]", "\[Mu]"]}], ")"}], "ab"], 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Mu]"], 
       OverscriptBox["B", "~"]}]}], " ", "+", 
     RowBox[{"2", "i", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"1", ",", "3"}], "]"}], "ij"], 
      SubscriptBox["C", "ab"], 
      OverscriptBox["F", "~"]}], "+", 
     RowBox[{"2", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"1", ",", "4"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Gamma]", "5"], ")"}], "ab"], 
      OverscriptBox["G", "~"]}], "+", 
     RowBox[{"2", "i", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"1", ",", "5"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Mu]"], "\[CurlyPhi]"}]}], "+", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"1", ",", "6"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{
        SuperscriptBox["\[Epsilon]", "\[Mu]\[Nu]\[Alpha]\[Beta]"], "(", 
        RowBox[{
         SuperscriptBox["\[Gamma]", "5"], 
         SubscriptBox["\[Gamma]", "\[Mu]"]}], ")"}], "ab"], 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Nu]"], 
       SubscriptBox["B", "\[Alpha]\[Beta]"]}]}], "+", 
     RowBox[{"i", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"1", ",", "7"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        SubscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Nu]"], 
       SuperscriptBox["B", "\[Mu]\[Nu]"], " "}]}]}]}], TraditionalForm]], 
  "None",ExpressionUUID->"652a603a-c382-4ee0-8a7a-40c74abf62ee"],
 " \nFieldNumber = 1"
}], "Subsection",
 CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, {
   3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 
   3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 
   3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, {
   3.7467949641466155`*^9, 3.746794979356092*^9}, {3.747485791788161*^9, 
   3.747485791788161*^9}, 3.74896595756443*^9, {3.7494002221313963`*^9, 
   3.7494002221313963`*^9}, {3.749400350844643*^9, 3.749400351307625*^9}, {
   3.749407266074893*^9, 3.749407268507024*^9}, {3.7494077336906776`*^9, 
   3.7494077878986974`*^9}, {3.749407921347309*^9, 3.749408079034542*^9}, {
   3.74940819566684*^9, 3.749408334517496*^9}, {3.749408486714731*^9, 
   3.749408529704789*^9}, {3.749408933225355*^9, 3.749408971610324*^9}, {
   3.7494096249847927`*^9, 3.7494096446740403`*^9}, {3.749409974089676*^9, 
   3.7494099745945215`*^9}, {3.749412527242398*^9, 3.749412527242398*^9}, {
   3.74950219661852*^9, 
   3.749502218048214*^9}},ExpressionUUID->"205da802-785c-4106-bfff-\
b750ece28438"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalField", " ", "=", " ", 
   RowBox[{"A", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LocalFieldNumber", " ", "=", " ", "1"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"CentralChargeList", "[", "LocalFieldNumber", "]"}], " ", "=", " ", 
  
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"LocalFieldNumber", ",", "FieldNumber", ",", "sigmaNumber"}], 
      "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"FieldNumber", ",", "1", ",", "7"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"sigmaNumber", ",", "0", ",", "3"}], "}"}]}], "]"}], "//", 
   "Flatten"}]}]}], "Input",
 CellChangeTimes->{{3.747496390463257*^9, 3.747496425281234*^9}, {
  3.748786525924238*^9, 3.748786528879302*^9}, {3.749409016377243*^9, 
  3.7494090382249184`*^9}, {3.7494091842010307`*^9, 3.749409276945016*^9}},
 CellLabel->"In[19]:=",ExpressionUUID->"e9be1853-1d00-496f-a3a9-6c072ba66d8d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"z", "[", 
    RowBox[{"1", ",", "1", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"1", ",", "1", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"1", ",", "1", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"1", ",", "1", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"1", ",", "2", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"1", ",", "2", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"1", ",", "2", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"1", ",", "2", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"1", ",", "3", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"1", ",", "3", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"1", ",", "3", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"1", ",", "3", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"1", ",", "4", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"1", ",", "4", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"1", ",", "4", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"1", ",", "4", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"1", ",", "5", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"1", ",", "5", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"1", ",", "5", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"1", ",", "5", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"1", ",", "6", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"1", ",", "6", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"1", ",", "6", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"1", ",", "6", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"1", ",", "7", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"1", ",", "7", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"1", ",", "7", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"1", ",", "7", ",", "3"}], "]"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.7494092559380703`*^9, 3.7494092709335704`*^9}, 
   3.7494104113434086`*^9, 3.74948206613287*^9, 3.749482599638199*^9, 
   3.749482836085723*^9, {3.749482971475957*^9, 3.7494829949394445`*^9}, 
   3.749483096901657*^9, 3.74948320573529*^9, 3.749497508058299*^9, 
   3.7494995195840173`*^9, 3.749499696800475*^9, 3.749499973191882*^9, 
   3.749557118973987*^9, 3.749560070124791*^9, 3.749841842356841*^9, 
   3.749858007895877*^9, 3.760471506037445*^9},
 CellLabel->"Out[21]=",ExpressionUUID->"69e27dee-cc22-4a58-9025-fb330582f4c1"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Z", "[", "LocalFieldNumber", "]"}], "[", 
    RowBox[{"ii_", ",", "jj_"}], "]"}], "[", 
   RowBox[{"aa_", ",", "bb_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"2", " ", "I", " ", 
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "1"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"At", "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
         RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "+", 
   RowBox[{"2", " ", 
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "2"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"Bt", "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
         RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], " ", "+", " ", 
   RowBox[{"2", " ", "I", " ", 
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "3"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"Cmetric", "[", 
     RowBox[{"[", 
      RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
    RowBox[{"Ft", "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", " ", 
   RowBox[{"2", " ", 
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "4"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"\[Gamma]5down", "[", 
     RowBox[{"[", 
      RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
    RowBox[{"Gt", "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
   RowBox[{"2", " ", "I", " ", 
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "5"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"\[CurlyPhi]", "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
         RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], " ", "+", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "6"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"\[Epsilon]up", "[", 
        RowBox[{"mu", ",", "nu", ",", "ap", ",", "bt"}], "]"}], 
       RowBox[{
        RowBox[{"\[Gamma]5\[Gamma]stdowndown", "[", "mu", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Bmn", "[", 
           RowBox[{"ap", ",", "bt"}], "]"}], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
         RowBox[{"\[CapitalStigma]", "[", "nu", "]"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"ap", ",", "0", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"bt", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "+", 
   RowBox[{"I", " ", 
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "7"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"\[Gamma]stdowndown", "[", "mu", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Bmnup", "[", 
           RowBox[{"mu", ",", "nu"}], "]"}], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
         RowBox[{"\[CapitalStigma]", "[", "nu", "]"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.7494085451000586`*^9, 3.7494085523049335`*^9}, {
  3.7494085899690495`*^9, 3.749408615257099*^9}, {3.7494086507852697`*^9, 
  3.749408665345*^9}, {3.7494093016570387`*^9, 3.7494093465610495`*^9}, {
  3.7494095637774105`*^9, 3.749409578217074*^9}, {3.749409653409035*^9, 
  3.7494098016018295`*^9}, {3.7494098348498144`*^9, 3.7494100216819773`*^9}},
 CellLabel->"In[22]:=",ExpressionUUID->"eafbad34-be49-46ea-84d2-4bf4f2b6be20"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"ZTable", "[", "LocalFieldNumber", "]"}], " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Z", "[", "LocalFieldNumber", "]"}], "[", 
       RowBox[{"ii", ",", "jj"}], "]"}], "[", 
      RowBox[{"aa", ",", "bb"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7494086675397387`*^9, 3.749408718609185*^9}, {
  3.7494087673051147`*^9, 3.7494087768495007`*^9}},
 CellLabel->"In[23]:=",ExpressionUUID->"100149e7-05b9-49aa-9530-6f4fcf649e18"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"AlgebraDDMinusClosure", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", 
   
   RowBox[{"(", 
    RowBox[{"Collect", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"AlgebraDD", "[", 
            RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalField", "]"}], " ",
           "-", " ", 
          RowBox[{"ZTable", "[", "LocalFieldNumber", "]"}]}], ")"}], "/.", 
        "LagrangianParameters"}], "/.", "VtoPauli"}], ",", 
      "FieldListWithDerivatives", ",", "Simplify"}], "]"}], ")"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.7474929944818563`*^9, 3.7474930651472597`*^9}, {
  3.747493152219424*^9, 3.7474932477784343`*^9}, {3.7474934178914785`*^9, 
  3.7474934832105627`*^9}, {3.7474935638267813`*^9, 3.747493591801224*^9}, {
  3.7474963739738455`*^9, 3.7474964449288054`*^9}, {3.748795026042665*^9, 
  3.748795027776865*^9}, {3.748965282772246*^9, 3.7489652841431913`*^9}, {
  3.748967256264186*^9, 3.7489672582499332`*^9}, {3.7494004185551434`*^9, 
  3.7494004426991215`*^9}, {3.7494086299617586`*^9, 3.749408647033921*^9}, {
  3.7494087803530507`*^9, 3.7494087808412037`*^9}},
 CellLabel->"In[24]:=",ExpressionUUID->"a89cd3bb-a388-488f-8c03-f7203ab45395"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"AlgebraDDEqs", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", 
   "=", " ", 
   RowBox[{
    RowBox[{"DeleteCases", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"Coefficient", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"AlgebraDDMinusClosure", "[", 
                 RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", 
                "]"}], "[", 
               RowBox[{"[", 
                RowBox[{"ii", ",", "aa", ",", "jj", ",", "bb"}], "]"}], "]"}],
               ",", 
              RowBox[{"FieldListWithDerivatives", "[", 
               RowBox[{"[", "FieldListIndex", "]"}], "]"}]}], "]"}], ")"}], 
           "\[Equal]", "0"}], ",", 
          RowBox[{"{", 
           RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"FieldListIndex", ",", "1", ",", 
            RowBox[{"Length", "[", "FieldListWithDerivatives", "]"}]}], 
           "}"}]}], "]"}], "//", "Simplify"}], "//", "Flatten"}], ",", 
      "True"}], "]"}], "//", "DeleteDuplicates"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7474933413160763`*^9, 3.7474934023534203`*^9}, {
   3.747493509609391*^9, 3.7474935432809353`*^9}, {3.7474936064895945`*^9, 
   3.7474936161297655`*^9}, {3.7474936564987297`*^9, 3.747493747940831*^9}, {
   3.747493832482408*^9, 3.7474938407374077`*^9}, {3.747496458745552*^9, 
   3.7474964697370515`*^9}, 3.7475105609270287`*^9, {3.748795270744809*^9, 
   3.748795274222528*^9}, {3.74879531011075*^9, 3.748795321437098*^9}, {
   3.748795652987978*^9, 3.748795656902155*^9}, {3.748965289858489*^9, 
   3.748965292697112*^9}, {3.748967259459038*^9, 3.748967260813509*^9}, {
   3.7489708313422194`*^9, 3.7489708325427723`*^9}, {3.749400458403777*^9, 
   3.749400461474213*^9}},
 CellLabel->"In[25]:=",ExpressionUUID->"c4ae92e9-3d80-4033-9803-975670337b28"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "[", 
  RowBox[{
   RowBox[{"AlgebraDDEqs", "[", 
    RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.747493880500272*^9, 3.7474938897376738`*^9}, {
   3.7474964759857783`*^9, 3.747496478481014*^9}, 3.748967263446204*^9},
 CellLabel->"In[26]:=",ExpressionUUID->"4bc298cb-98b1-466e-b86e-a3ae9d4b1ab6"],

Cell[BoxData["44"], "Output",
 CellChangeTimes->{
  3.749402369344755*^9, 3.7494025812692585`*^9, 3.7494101413703766`*^9, 
   3.7494820675202274`*^9, 3.7494826010398684`*^9, 3.7494828373565598`*^9, {
   3.7494829726852674`*^9, 3.7494829961595726`*^9}, 3.7494830980945587`*^9, 
   3.7494832069386897`*^9, 3.749497509546299*^9, 3.749499521025395*^9, 
   3.7494996982959623`*^9, 3.749499977799281*^9, 3.749557120333522*^9, 
   3.749560071487872*^9, 3.749841843847763*^9, 3.749858009479233*^9, 
   3.7604715105224566`*^9},
 CellLabel->"Out[26]=",ExpressionUUID->"e124806f-6d7c-48c4-8979-df7de20567d0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ZSolutions", "[", "LocalFieldNumber", "]"}], " ", "=", " ", 
  RowBox[{
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"AlgebraDDEqs", "[", 
       RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], 
     ",", 
     RowBox[{"CentralChargeList", "[", "LocalFieldNumber", "]"}]}], "]"}], "//",
    "Flatten"}]}]], "Input",
 CellChangeTimes->{{3.7494088104519863`*^9, 3.749408859016982*^9}, 
   3.749410151970128*^9, {3.749482953421772*^9, 3.7494829550114527`*^9}, {
   3.749482991773706*^9, 3.749482992051861*^9}},
 CellLabel->"In[27]:=",ExpressionUUID->"ca5ff882-d444-48cd-9df9-9587b29ed16d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "1", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "1", "]"}], "[", "3", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "10", "]"}], "[", "0", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "1", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "1", "]"}], "[", "2", "]"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "10", "]"}], "[", "1", "]"}]}]}], ")"}]}]}], ",", 
   
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "1", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "1", "]"}], "[", "1", "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "10", "]"}], "[", "2", "]"}]}]}], ")"}]}]}], ",", 
   
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "1", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "1", "]"}], "[", "0", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "10", "]"}], "[", "3", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "2", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "1", "]"}], "[", "0", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "7", "]"}], "[", "0", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "2", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "1", "]"}], "[", "1", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "7", "]"}], "[", "1", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "2", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "1", "]"}], "[", "2", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "7", "]"}], "[", "2", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "2", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "1", "]"}], "[", "3", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "7", "]"}], "[", "3", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "3", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "1", "]"}], "[", "0", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "8", "]"}], "[", "0", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "3", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "1", "]"}], "[", "1", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "8", "]"}], "[", "1", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "3", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "1", "]"}], "[", "2", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "8", "]"}], "[", "2", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "3", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "1", "]"}], "[", "3", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "8", "]"}], "[", "3", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "4", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "1", "]"}], "[", "0", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "9", "]"}], "[", "0", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "4", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "1", "]"}], "[", "1", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "9", "]"}], "[", "1", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "4", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "1", "]"}], "[", "2", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "9", "]"}], "[", "2", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "4", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "1", "]"}], "[", "3", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "9", "]"}], "[", "3", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "5", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "1", "]"}], "[", "1", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "11", "]"}], "[", "0", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "5", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "1", "]"}], "[", "0", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "11", "]"}], "[", "1", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "5", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "1", "]"}], "[", "3", "]"}]}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "11", "]"}], "[", "2", "]"}]}]}], ")"}]}]}], ",", 
   
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "5", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "1", "]"}], "[", "2", "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "11", "]"}], "[", "3", "]"}]}]}], ")"}]}]}], ",", 
   
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "6", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{"\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "1", "]"}], "[", "2", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "0", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "6", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{
      RowBox[{"cv", "[", "1", "]"}], "[", "3", "]"}], "+", 
     RowBox[{"\[ImaginaryI]", " ", 
      RowBox[{
       RowBox[{"cv", "[", "12", "]"}], "[", "1", "]"}]}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "6", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{
       RowBox[{"cv", "[", "1", "]"}], "[", "0", "]"}]}], "-", 
     RowBox[{
      RowBox[{"cv", "[", "12", "]"}], "[", "2", "]"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "6", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{
       RowBox[{"cv", "[", "1", "]"}], "[", "1", "]"}]}], "+", 
     RowBox[{"\[ImaginaryI]", " ", 
      RowBox[{
       RowBox[{"cv", "[", "12", "]"}], "[", "3", "]"}]}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "7", ",", "0"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "7", ",", "1"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "7", ",", "2"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "7", ",", "3"}], "]"}], "\[Rule]", "0"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.749410161019311*^9, 3.7494820675836697`*^9, 3.749482601117894*^9, 
   3.749482837383304*^9, {3.749482955925235*^9, 3.749482996184867*^9}, 
   3.749483098167952*^9, 3.7494832069679165`*^9, 3.7494975096112785`*^9, 
   3.749499521096321*^9, 3.749499698325225*^9, 3.7494999778602333`*^9, 
   3.74955712036477*^9, 3.749560071539421*^9, 3.749841843943491*^9, 
   3.749858009529813*^9, 3.7604715105915623`*^9},
 CellLabel->"Out[27]=",ExpressionUUID->"b9895025-8e18-44f2-98b9-4615419db875"]
}, Open  ]],

Cell["Investigate a particular solution", "Text",
 CellChangeTimes->{{3.74941116621638*^9, 
  3.7494111718478346`*^9}},ExpressionUUID->"f69fa7c3-9c3b-429f-a2c7-\
e0861280fcb4"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"ZSolutions", "[", "LocalFieldNumber", "]"}], "/.", 
          RowBox[{
           RowBox[{
            RowBox[{"BosonSolutions", "[", 
             RowBox[{"2", ",", "2"}], "]"}], "[", "1", "]"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "/.", 
         RowBox[{
          RowBox[{
           RowBox[{"BosonSolutions", "[", 
            RowBox[{"2", ",", "2"}], "]"}], "[", "2", "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "/.", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "/", 
           SqrtBox[
            RowBox[{
             RowBox[{"-", "1"}], "-", 
             SuperscriptBox[
              RowBox[{
               RowBox[{"cv", "[", "5", "]"}], "[", "1", "]"}], "2"]}]]}], 
          ")"}], "\[Rule]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "I"}], "/", " ", 
           SqrtBox[
            RowBox[{"1", "+", 
             SuperscriptBox[
              RowBox[{
               RowBox[{"cv", "[", "5", "]"}], "[", "1", "]"}], "2"]}]]}], 
          ")"}]}]}], "/.", 
       RowBox[{
        RowBox[{
         RowBox[{"cv", "[", "10", "]"}], "[", "0", "]"}], "\[Rule]", " ", 
        RowBox[{
         RowBox[{"-", "I"}], " ", 
         RowBox[{
          RowBox[{"cv", "[", "5", "]"}], "[", "1", "]"}]}]}]}], "/.", " ", 
      RowBox[{
       SqrtBox[
        RowBox[{
         RowBox[{"-", "1"}], "-", 
         SuperscriptBox[
          RowBox[{
           RowBox[{"cv", "[", "5", "]"}], "[", "1", "]"}], "2"]}]], "\[Rule]",
        " ", 
       RowBox[{"I", "  ", 
        SqrtBox[
         RowBox[{"1", "+", 
          SuperscriptBox[
           RowBox[{
            RowBox[{"cv", "[", "5", "]"}], "[", "1", "]"}], "2"]}]]}]}]}], "/.", 
     RowBox[{
      RowBox[{
       RowBox[{"cv", "[", "12", "]"}], "[", "3", "]"}], "\[Rule]", " ", 
      RowBox[{
       RowBox[{"-", "I"}], " ", 
       SqrtBox[
        RowBox[{"1", "+", 
         SuperscriptBox[
          RowBox[{
           RowBox[{"cv", "[", "5", "]"}], "[", "1", "]"}], "2"]}]]}]}]}], "/.", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "/", 
       SqrtBox[
        RowBox[{
         RowBox[{"-", "1"}], "-", 
         SuperscriptBox[
          RowBox[{
           RowBox[{"cv", "[", "5", "]"}], "[", "1", "]"}], "2"]}]]}], ")"}], 
     "\[Rule]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "I"}], "/", " ", 
       SqrtBox[
        RowBox[{"1", "+", 
         SuperscriptBox[
          RowBox[{
           RowBox[{"cv", "[", "5", "]"}], "[", "1", "]"}], "2"]}]]}], 
      ")"}]}]}], "/.", 
   RowBox[{
    RowBox[{
     RowBox[{"cv", "[", "5", "]"}], "[", "1", "]"}], "\[Rule]", " ", "I"}]}], 
  "//", "PowerExpand"}]], "Input",
 CellChangeTimes->{{3.74941018974783*^9, 3.749410287570263*^9}, {
  3.7494103263941903`*^9, 3.749410332177493*^9}, {3.7494105274987097`*^9, 
  3.749410537744815*^9}, {3.749410571657837*^9, 3.74941074716068*^9}, {
  3.749411058139544*^9, 3.749411062568898*^9}},
 CellLabel->"In[28]:=",ExpressionUUID->"ff758a59-1d71-42b3-88fb-367207e59f93"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "1", ",", "0"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "1", ",", "1"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "1", ",", "2"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "1", ",", "3"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "2", ",", "0"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "2", ",", "1"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "2", ",", "2"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "2", ",", "3"}], "]"}], "\[Rule]", "1"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "3", ",", "0"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "3", ",", "1"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "3", ",", "2"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "3", ",", "3"}], "]"}], "\[Rule]", "1"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "4", ",", "0"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "4", ",", "1"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "4", ",", "2"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "4", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{"-", "1"}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "5", ",", "0"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "5", ",", "1"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "5", ",", "2"}], "]"}], "\[Rule]", "1"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "5", ",", "3"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "6", ",", "0"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "6", ",", "1"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "6", ",", "2"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "6", ",", "3"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "7", ",", "0"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "7", ",", "1"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "7", ",", "2"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "7", ",", "3"}], "]"}], "\[Rule]", "0"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.7494102039148035`*^9, 3.749410237595869*^9}, {
   3.74941027060384*^9, 3.7494102895686717`*^9}, 3.7494103337499733`*^9, {
   3.7494105397146406`*^9, 3.7494106769721236`*^9}, {3.7494107155458097`*^9, 
   3.7494107477202597`*^9}, 3.7494110672432184`*^9, 3.7494820676501365`*^9, 
   3.749482601184617*^9, 3.7494828374592295`*^9, {3.749482972860357*^9, 
   3.7494829962111564`*^9}, 3.749483098244882*^9, 3.749483206990275*^9, 
   3.7494975096653395`*^9, 3.7494995211250916`*^9, 3.749499698400734*^9, 
   3.749499977909337*^9, 3.7495571204258213`*^9, 3.7495600715889835`*^9, 
   3.7498418439713383`*^9, 3.749858009604047*^9, 3.76047151061792*^9},
 CellLabel->"Out[28]=",ExpressionUUID->"921ef4b8-6557-4180-a435-71a69ea576b8"]
}, Open  ]],

Cell["Investigate another", "Text",
 CellChangeTimes->{{3.74941116621638*^9, 
  3.7494111898881245`*^9}},ExpressionUUID->"5dba0ea5-97e4-4084-be74-\
43d90da042c5"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{" ", 
  RowBox[{
   RowBox[{"ZSolutions", "[", "LocalFieldNumber", "]"}], "/.", 
   "ThisOneLooksGood"}]}]], "Input",
 CellChangeTimes->{{3.74941018974783*^9, 3.749410287570263*^9}, {
   3.7494103263941903`*^9, 3.749410332177493*^9}, {3.7494105274987097`*^9, 
   3.749410537744815*^9}, {3.749410571657837*^9, 3.74941074716068*^9}, {
   3.749411058139544*^9, 3.749411062568898*^9}, {3.7494111956817913`*^9, 
   3.7494113043218613`*^9}, {3.7494115102660456`*^9, 3.74941151465653*^9}, 
   3.7494115633404837`*^9, {3.7494822294619694`*^9, 3.7494822488999934`*^9}},
 CellLabel->"In[29]:=",ExpressionUUID->"603f711e-9d52-40e8-9e93-b451dcf3ff94"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "1", ",", "0"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "1", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{"-", "1"}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "1", ",", "2"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "1", ",", "3"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "2", ",", "0"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "2", ",", "1"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "2", ",", "2"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "2", ",", "3"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "3", ",", "0"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "3", ",", "1"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "3", ",", "2"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "3", ",", "3"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "4", ",", "0"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "4", ",", "1"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "4", ",", "2"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "4", ",", "3"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "5", ",", "0"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "5", ",", "1"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "5", ",", "2"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "5", ",", "3"}], "]"}], "\[Rule]", "1"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "6", ",", "0"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "6", ",", "1"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "6", ",", "2"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "6", ",", "3"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "7", ",", "0"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "7", ",", "1"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "7", ",", "2"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"1", ",", "7", ",", "3"}], "]"}], "\[Rule]", "0"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.7494102039148035`*^9, 3.749410237595869*^9}, {
   3.74941027060384*^9, 3.7494102895686717`*^9}, 3.7494103337499733`*^9, {
   3.7494105397146406`*^9, 3.7494106769721236`*^9}, {3.7494107155458097`*^9, 
   3.7494107477202597`*^9}, 3.7494110672432184`*^9, {3.7494111977598734`*^9, 
   3.749411305039401*^9}, 3.749411516044168*^9, 3.749411639253422*^9, 
   3.749482067668954*^9, {3.7494822329071198`*^9, 3.749482239196361*^9}, 
   3.7494826011980524`*^9, 3.749482837481017*^9, {3.7494829728916044`*^9, 
   3.749482996228113*^9}, 3.749483098266163*^9, 3.7494832070106077`*^9, 
   3.7494975096921244`*^9, 3.7494995211434402`*^9, 3.749499698415117*^9, 
   3.7494999780010977`*^9, 3.749557120444131*^9, 3.7495600716063805`*^9, 
   3.749841843991165*^9, 3.749858009716969*^9, 3.7604715106388297`*^9},
 CellLabel->"Out[29]=",ExpressionUUID->"e41fc649-b4cf-4e00-b6ae-4e383e9c6091"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       SubsuperscriptBox["D", "a", "i"], ",", 
       SubsuperscriptBox[
        OverscriptBox["D", "~"], "b", "j"]}], "}"}], "A"}], "=", " ", 
    RowBox[{
     RowBox[{"2", "i", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"1", ",", "1"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Mu]"], 
       OverscriptBox["A", "~"]}]}], " ", "+", 
     RowBox[{"2", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"1", ",", "2"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["\[Gamma]", "5"], 
         SuperscriptBox["\[Gamma]", "\[Mu]"]}], ")"}], "ab"], 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Mu]"], 
       OverscriptBox["B", "~"]}]}], " ", "+", 
     RowBox[{"2", "i", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"1", ",", "3"}], "]"}], "ij"], 
      SubscriptBox["C", "ab"], 
      OverscriptBox["F", "~"]}], "+", 
     RowBox[{"2", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"1", ",", "4"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Gamma]", "5"], ")"}], "ab"], 
      OverscriptBox["G", "~"]}], "+", 
     RowBox[{"2", "i", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"1", ",", "5"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Mu]"], "\[CurlyPhi]"}]}], "+", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"1", ",", "6"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{
        SuperscriptBox["\[Epsilon]", "\[Mu]\[Nu]\[Alpha]\[Beta]"], "(", 
        RowBox[{
         SuperscriptBox["\[Gamma]", "5"], 
         SubscriptBox["\[Gamma]", "\[Mu]"]}], ")"}], "ab"], 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Nu]"], 
       SubscriptBox["B", "\[Alpha]\[Beta]"]}]}], "+", 
     RowBox[{"i", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"1", ",", "7"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        SubscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Nu]"], 
       SuperscriptBox["B", "\[Mu]\[Nu]"], " "}]}]}]}], TraditionalForm]], 
  "None",ExpressionUUID->"65790fd8-d26d-4392-805c-3c8e3cb63135"],
 " \nFieldNumber = 1"
}], "Subsubsection",
 CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, {
   3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 
   3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 
   3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, {
   3.7467949641466155`*^9, 3.746794979356092*^9}, {3.747485791788161*^9, 
   3.747485791788161*^9}, 3.74896595756443*^9, {3.7494002221313963`*^9, 
   3.7494002221313963`*^9}, {3.749400350844643*^9, 3.749400351307625*^9}, {
   3.749407266074893*^9, 3.749407268507024*^9}, {3.7494077336906776`*^9, 
   3.7494077878986974`*^9}, {3.749407921347309*^9, 3.749408079034542*^9}, {
   3.74940819566684*^9, 3.749408334517496*^9}, {3.749408486714731*^9, 
   3.749408529704789*^9}, {3.749408933225355*^9, 3.749408971610324*^9}, {
   3.7494096249847927`*^9, 3.7494096446740403`*^9}, {3.749409974089676*^9, 
   3.7494099745945215`*^9}, {3.749412527242398*^9, 3.749412527242398*^9}, {
   3.74950219661852*^9, 
   3.749502218048214*^9}},ExpressionUUID->"a42ca94f-af04-4ed8-bf92-\
1d6df0bc4108"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"DeleteCases", "[", 
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Z", "[", 
       RowBox[{"LocalFieldNumber", ",", "nn"}], "]"}], "==", 
      RowBox[{"PrintSigmaProduct", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"ZGen", "[", 
             RowBox[{"LocalFieldNumber", ",", "nn"}], "]"}], "[", 
            RowBox[{"ii", ",", "jj"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"jj", ",", "1", ",", "2"}], "}"}]}], "]"}], "/.", 
         RowBox[{"ZSolutions", "[", "LocalFieldNumber", "]"}]}], "/.", 
        "ThisOneLooksGood"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"nn", ",", "1", ",", "7"}], "}"}]}], "]"}], ",", 
   RowBox[{
    RowBox[{"Z", "[", 
     RowBox[{"_", ",", "_"}], "]"}], "\[Equal]", "0"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"TeXForm", "[", "%", "]"}]}], "Input",
 CellChangeTimes->{{3.7494822949220448`*^9, 3.7494823511478577`*^9}, {
  3.7494823858218775`*^9, 3.7494823877980165`*^9}, {3.7494824283410683`*^9, 
  3.7494824525643225`*^9}, {3.749482667989807*^9, 3.749482671509657*^9}, {
  3.749482703172926*^9, 3.7494827189481516`*^9}, {3.7494827656916285`*^9, 
  3.7494827754041166`*^9}, {3.749482825395954*^9, 3.7494828255808463`*^9}, {
  3.7494830210856953`*^9, 3.749483068325922*^9}, {3.7494831352932143`*^9, 
  3.7494831386363173`*^9}, {3.7494831726363764`*^9, 3.749483186323599*^9}},
 CellLabel->"In[30]:=",ExpressionUUID->"3768293f-fd92-4b0a-8d08-0a82ff7b8dfc"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"Z", "[", 
     RowBox[{"1", ",", "1"}], "]"}], "\[Equal]", 
    RowBox[{"-", 
     SubscriptBox["\[Sigma]", "1"]}]}], ",", 
   RowBox[{
    RowBox[{"Z", "[", 
     RowBox[{"1", ",", "5"}], "]"}], "\[Equal]", 
    SubscriptBox["\[Sigma]", "3"]}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.7494822967584114`*^9, {3.7494823516392856`*^9, 3.749482388711256*^9}, 
   3.7494824654614663`*^9, 3.749482837546488*^9, {3.7494829730196037`*^9, 
   3.7494829962450185`*^9}, 3.749483098282524*^9, {3.7494831891221447`*^9, 
   3.7494832071037216`*^9}, 3.749497509705515*^9, 3.7494995211558414`*^9, 
   3.749499698427519*^9, 3.7494999780244093`*^9, 3.749557120454595*^9, 
   3.749560071618743*^9, 3.7498418440044985`*^9, 3.749858009767763*^9, 
   3.760471510650524*^9},
 CellLabel->"Out[30]=",ExpressionUUID->"d3695e6c-f6ee-47f5-9ded-1401e9bfc9d8"],

Cell["\\left\\{Z(1,1)=-\\sigma _1,Z(1,5)=\\sigma _3\\right\\}", "Output",
 CellChangeTimes->{
  3.7494822967584114`*^9, {3.7494823516392856`*^9, 3.749482388711256*^9}, 
   3.7494824654614663`*^9, 3.749482837546488*^9, {3.7494829730196037`*^9, 
   3.7494829962450185`*^9}, 3.749483098282524*^9, {3.7494831891221447`*^9, 
   3.7494832071037216`*^9}, 3.749497509705515*^9, 3.7494995211558414`*^9, 
   3.749499698427519*^9, 3.7494999780244093`*^9, 3.749557120454595*^9, 
   3.749560071618743*^9, 3.7498418440044985`*^9, 3.749858009767763*^9, 
   3.7604715106581726`*^9},
 CellLabel->
  "Out[31]//TeXForm=",ExpressionUUID->"1a7b1329-9031-4f61-b5f1-08677bfdf00e"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{"LocalField", ",", "LocalFieldNumber"}], "]"}]], "Input",
 CellChangeTimes->{{3.747496499638111*^9, 3.7474965053367357`*^9}},
 CellLabel->"In[32]:=",ExpressionUUID->"a56a8d08-0f22-4f75-b542-babb23fd35e8"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       SubsuperscriptBox["D", "a", "i"], ",", 
       SubsuperscriptBox[
        OverscriptBox["D", "~"], "b", "j"]}], "}"}], "B"}], "=", 
    RowBox[{
     RowBox[{"2", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"2", ",", "1"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["\[Gamma]", "5"], 
         SuperscriptBox["\[Gamma]", "\[Mu]"]}], ")"}], "ab"], 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Mu]"], 
       OverscriptBox["A", "~"]}]}], " ", "+", 
     RowBox[{"2", "i", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"2", ",", "2"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Mu]"], 
       OverscriptBox["B", "~"]}]}], " ", "+", 
     RowBox[{"2", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"2", ",", "3"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Gamma]", "5"], ")"}], "ab"], 
      OverscriptBox["F", "~"]}], "+", 
     RowBox[{"2", " ", "i", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"2", ",", "4"}], "]"}], "ij"], 
      SubscriptBox["C", "ab"], 
      OverscriptBox["G", "~"]}], "+", 
     RowBox[{"2", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"2", ",", "5"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["\[Gamma]", "5"], 
         SuperscriptBox["\[Gamma]", "\[Mu]"]}], ")"}], "ab"], 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Mu]"], "\[CurlyPhi]"}]}], "+", 
     RowBox[{"i", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"2", ",", "6"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{
        SuperscriptBox["\[Epsilon]", "\[Mu]\[Nu]\[Alpha]\[Beta]"], "(", 
        SubscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Nu]"], 
       SubscriptBox["B", "\[Alpha]\[Beta]"]}]}], "+", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"2", ",", "7"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["\[Gamma]", "5"], 
         SubscriptBox["\[Gamma]", "\[Mu]"]}], ")"}], "ab"], 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Nu]"], 
       SuperscriptBox["B", "\[Mu]\[Nu]"], " "}]}]}]}], TraditionalForm]], 
  "None",ExpressionUUID->"a3e37d54-82ff-468f-8fd8-02b28e1702b5"],
 " \[LineSeparator] FieldNumber = 2"
}], "Subsection",
 CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, {
   3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 
   3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 
   3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, {
   3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7467956828758698`*^9, 
   3.746795686091745*^9}, {3.747486227215621*^9, 3.747486227215621*^9}, {
   3.7489659591128283`*^9, 3.748965968040195*^9}, {3.7494024132510557`*^9, 
   3.7494024132510557`*^9}, {3.7494025205883026`*^9, 
   3.7494025205883026`*^9}, {3.7494113813699865`*^9, 
   3.7494114334172726`*^9}, {3.7494116798094573`*^9, 
   3.7494117313744917`*^9}, {3.749412523506293*^9, 3.749412524074025*^9}, {
   3.749487346914968*^9, 
   3.7494873469154615`*^9}},ExpressionUUID->"a36695d2-55ea-4b5e-8aa1-\
28e605e6d111"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalField", " ", "=", " ", 
   RowBox[{"B", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LocalFieldNumber", " ", "=", " ", "2"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"CentralChargeList", "[", "LocalFieldNumber", "]"}], " ", "=", " ", 
  
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"LocalFieldNumber", ",", "FieldNumber", ",", "sigmaNumber"}], 
      "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"FieldNumber", ",", "1", ",", "7"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"sigmaNumber", ",", "0", ",", "3"}], "}"}]}], "]"}], "//", 
   "Flatten"}]}]}], "Input",
 CellChangeTimes->{{3.747496390463257*^9, 3.747496425281234*^9}, {
  3.749411486184828*^9, 3.749411486346697*^9}},
 CellLabel->"In[33]:=",ExpressionUUID->"ddc3cec3-92f0-4ccb-960e-74153a96380b"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"z", "[", 
    RowBox[{"2", ",", "1", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"2", ",", "1", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"2", ",", "1", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"2", ",", "1", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"2", ",", "2", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"2", ",", "2", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"2", ",", "2", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"2", ",", "2", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"2", ",", "3", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"2", ",", "3", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"2", ",", "3", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"2", ",", "3", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"2", ",", "4", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"2", ",", "4", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"2", ",", "4", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"2", ",", "4", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"2", ",", "5", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"2", ",", "5", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"2", ",", "5", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"2", ",", "5", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"2", ",", "6", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"2", ",", "6", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"2", ",", "6", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"2", ",", "6", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"2", ",", "7", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"2", ",", "7", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"2", ",", "7", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"2", ",", "7", ",", "3"}], "]"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.749411813475272*^9, 3.7494119425240374`*^9, 3.7494820677215405`*^9, 
   3.749482601219431*^9, {3.7494832456070232`*^9, 3.749483290729552*^9}, 
   3.749497509793802*^9, 3.7494995212471046`*^9, 3.749499698520765*^9, 
   3.749499978053178*^9, 3.7495571205235577`*^9, 3.749560071688812*^9, 
   3.749841844060613*^9, 3.749858009877613*^9, 3.7604715106873417`*^9},
 CellLabel->"Out[35]=",ExpressionUUID->"fa9d0115-74f3-4000-bae9-7554520767f0"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Z", "[", "LocalFieldNumber", "]"}], "[", 
    RowBox[{"ii_", ",", "jj_"}], "]"}], "[", 
   RowBox[{"aa_", ",", "bb_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"2", " ", 
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "1"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"At", "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
         RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "+", 
   RowBox[{"2", " ", "I", " ", 
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "2"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"Bt", "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
         RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], " ", "+", " ", 
   RowBox[{"2", " ", 
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "3"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"\[Gamma]5down", "[", 
     RowBox[{"[", 
      RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
    RowBox[{"Ft", "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", " ", 
   RowBox[{"2", " ", "I", " ", 
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "4"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"Cmetric", "[", 
     RowBox[{"[", 
      RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
    RowBox[{"Gt", "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
   RowBox[{"2", " ", 
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "5"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"\[CurlyPhi]", "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
         RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], " ", "+", " ", 
   RowBox[{"I", " ", 
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "6"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"\[Epsilon]up", "[", 
        RowBox[{"mu", ",", "nu", ",", "ap", ",", "bt"}], "]"}], 
       RowBox[{
        RowBox[{"\[Gamma]stdowndown", "[", "mu", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Bmn", "[", 
           RowBox[{"ap", ",", "bt"}], "]"}], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
         RowBox[{"\[CapitalStigma]", "[", "nu", "]"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"ap", ",", "0", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"bt", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "+", 
   RowBox[{
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "7"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"\[Gamma]5\[Gamma]stdowndown", "[", "mu", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Bmnup", "[", 
           RowBox[{"mu", ",", "nu"}], "]"}], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
         RowBox[{"\[CapitalStigma]", "[", "nu", "]"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.7494085451000586`*^9, 3.7494085523049335`*^9}, {
  3.7494085899690495`*^9, 3.749408615257099*^9}, {3.7494086507852697`*^9, 
  3.749408665345*^9}, {3.7494093016570387`*^9, 3.7494093465610495`*^9}, {
  3.7494095637774105`*^9, 3.749409578217074*^9}, {3.749409653409035*^9, 
  3.7494098016018295`*^9}, {3.7494098348498144`*^9, 3.7494100216819773`*^9}, {
  3.7494117353629317`*^9, 3.749411793410575*^9}, {3.749411929803181*^9, 
  3.74941193009822*^9}},
 CellLabel->"In[36]:=",ExpressionUUID->"385cc70f-c073-4a26-bbe7-362de0dc128c"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"ZTable", "[", "LocalFieldNumber", "]"}], " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Z", "[", "LocalFieldNumber", "]"}], "[", 
       RowBox[{"ii", ",", "jj"}], "]"}], "[", 
      RowBox[{"aa", ",", "bb"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7494086675397387`*^9, 3.749408718609185*^9}, {
  3.7494087673051147`*^9, 3.7494087768495007`*^9}},
 CellLabel->"In[37]:=",ExpressionUUID->"14af2f9e-da01-42f3-9f21-11e71c62465f"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"AlgebraDDMinusClosure", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", 
   
   RowBox[{"(", 
    RowBox[{"Collect", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"AlgebraDD", "[", 
            RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalField", "]"}], " ",
           "-", " ", 
          RowBox[{"ZTable", "[", "LocalFieldNumber", "]"}]}], ")"}], "/.", 
        "LagrangianParameters"}], "/.", "VtoPauli"}], ",", 
      "FieldListWithDerivatives", ",", "Simplify"}], "]"}], ")"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.7474929944818563`*^9, 3.7474930651472597`*^9}, {
  3.747493152219424*^9, 3.7474932477784343`*^9}, {3.7474934178914785`*^9, 
  3.7474934832105627`*^9}, {3.7474935638267813`*^9, 3.747493591801224*^9}, {
  3.7474963739738455`*^9, 3.7474964449288054`*^9}, {3.748795026042665*^9, 
  3.748795027776865*^9}, {3.748965282772246*^9, 3.7489652841431913`*^9}, {
  3.748967256264186*^9, 3.7489672582499332`*^9}, {3.7494004185551434`*^9, 
  3.7494004426991215`*^9}, {3.7494086299617586`*^9, 3.749408647033921*^9}, {
  3.7494087803530507`*^9, 3.7494087808412037`*^9}},
 CellLabel->"In[38]:=",ExpressionUUID->"eb6f10ee-9d4c-46fb-b6f2-5b2ae5297ef5"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"AlgebraDDEqs", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", 
   "=", " ", 
   RowBox[{
    RowBox[{"DeleteCases", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"Coefficient", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"AlgebraDDMinusClosure", "[", 
                 RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", 
                "]"}], "[", 
               RowBox[{"[", 
                RowBox[{"ii", ",", "aa", ",", "jj", ",", "bb"}], "]"}], "]"}],
               ",", 
              RowBox[{"FieldListWithDerivatives", "[", 
               RowBox[{"[", "FieldListIndex", "]"}], "]"}]}], "]"}], ")"}], 
           "\[Equal]", "0"}], ",", 
          RowBox[{"{", 
           RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"FieldListIndex", ",", "1", ",", 
            RowBox[{"Length", "[", "FieldListWithDerivatives", "]"}]}], 
           "}"}]}], "]"}], "//", "Simplify"}], "//", "Flatten"}], ",", 
      "True"}], "]"}], "//", "DeleteDuplicates"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7474933413160763`*^9, 3.7474934023534203`*^9}, {
   3.747493509609391*^9, 3.7474935432809353`*^9}, {3.7474936064895945`*^9, 
   3.7474936161297655`*^9}, {3.7474936564987297`*^9, 3.747493747940831*^9}, {
   3.747493832482408*^9, 3.7474938407374077`*^9}, {3.747496458745552*^9, 
   3.7474964697370515`*^9}, 3.7475105609270287`*^9, {3.748795270744809*^9, 
   3.748795274222528*^9}, {3.74879531011075*^9, 3.748795321437098*^9}, {
   3.748795652987978*^9, 3.748795656902155*^9}, {3.748965289858489*^9, 
   3.748965292697112*^9}, {3.748967259459038*^9, 3.748967260813509*^9}, {
   3.7489708313422194`*^9, 3.7489708325427723`*^9}, {3.749400458403777*^9, 
   3.749400461474213*^9}},
 CellLabel->"In[39]:=",ExpressionUUID->"a3cdee00-bf25-42e6-bf63-88b129a8df4c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "[", 
  RowBox[{
   RowBox[{"AlgebraDDEqs", "[", 
    RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.747493880500272*^9, 3.7474938897376738`*^9}, {
   3.7474964759857783`*^9, 3.747496478481014*^9}, 3.748967263446204*^9},
 CellLabel->"In[40]:=",ExpressionUUID->"fec9cb2f-0a18-45fc-a5b2-7b01539fcaf2"],

Cell[BoxData["46"], "Output",
 CellChangeTimes->{
  3.749402369344755*^9, 3.7494025812692585`*^9, 3.7494101413703766`*^9, 
   3.7494118150094*^9, 3.749411943930292*^9, 3.7494820690200167`*^9, 
   3.749482602576909*^9, {3.7494832469050508`*^9, 3.749483291937909*^9}, 
   3.74949751120393*^9, 3.7494995226874895`*^9, 3.7494996999547005`*^9, 
   3.7494999795253053`*^9, 3.7495571218607187`*^9, 3.749560073001207*^9, 
   3.749841845514817*^9, 3.749858011378895*^9, 3.760471512067362*^9},
 CellLabel->"Out[40]=",ExpressionUUID->"9025cdb6-7fb9-4631-8cd2-8865c985e95b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ZSolutions", "[", "LocalFieldNumber", "]"}], " ", "=", " ", 
  RowBox[{
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"AlgebraDDEqs", "[", 
       RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], 
     ",", 
     RowBox[{"CentralChargeList", "[", "LocalFieldNumber", "]"}]}], "]"}], "//",
    "Flatten"}]}]], "Input",
 CellChangeTimes->{{3.7494088104519863`*^9, 3.749408859016982*^9}, 
   3.749410151970128*^9, {3.749483286045399*^9, 3.749483287219554*^9}},
 CellLabel->"In[41]:=",ExpressionUUID->"16297f8e-66f6-4ade-9e04-eddf4eae72d6"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"2", ",", "1", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "2", "]"}], "[", "3", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "10", "]"}], "[", "0", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"2", ",", "1", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "2", "]"}], "[", "2", "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "10", "]"}], "[", "1", "]"}]}]}], ")"}]}]}], ",", 
   
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"2", ",", "1", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "2", "]"}], "[", "1", "]"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "10", "]"}], "[", "2", "]"}]}]}], ")"}]}]}], ",", 
   
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"2", ",", "1", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "2", "]"}], "[", "0", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "10", "]"}], "[", "3", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"2", ",", "2", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "2", "]"}], "[", "0", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "7", "]"}], "[", "0", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"2", ",", "2", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "2", "]"}], "[", "1", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "7", "]"}], "[", "1", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"2", ",", "2", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "2", "]"}], "[", "2", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "7", "]"}], "[", "2", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"2", ",", "2", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "2", "]"}], "[", "3", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "7", "]"}], "[", "3", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"2", ",", "3", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "2", "]"}], "[", "0", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "8", "]"}], "[", "0", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"2", ",", "3", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "2", "]"}], "[", "1", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "8", "]"}], "[", "1", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"2", ",", "3", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "2", "]"}], "[", "2", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "8", "]"}], "[", "2", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"2", ",", "3", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "2", "]"}], "[", "3", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "8", "]"}], "[", "3", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"2", ",", "4", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "2", "]"}], "[", "0", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "9", "]"}], "[", "0", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"2", ",", "4", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "2", "]"}], "[", "1", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "9", "]"}], "[", "1", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"2", ",", "4", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "2", "]"}], "[", "2", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "9", "]"}], "[", "2", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"2", ",", "4", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "2", "]"}], "[", "3", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "9", "]"}], "[", "3", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"2", ",", "5", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "2", "]"}], "[", "1", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "11", "]"}], "[", "0", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"2", ",", "5", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "2", "]"}], "[", "0", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "11", "]"}], "[", "1", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"2", ",", "5", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "2", "]"}], "[", "3", "]"}]}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "11", "]"}], "[", "2", "]"}]}]}], ")"}]}]}], ",", 
   
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"2", ",", "5", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "2", "]"}], "[", "2", "]"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "11", "]"}], "[", "3", "]"}]}]}], ")"}]}]}], ",", 
   
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"2", ",", "6", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", "\[ImaginaryI]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "2", "]"}], "[", "2", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "0", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"2", ",", "6", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{
       RowBox[{"cv", "[", "2", "]"}], "[", "3", "]"}]}], "+", 
     RowBox[{"\[ImaginaryI]", " ", 
      RowBox[{
       RowBox[{"cv", "[", "12", "]"}], "[", "1", "]"}]}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"2", ",", "6", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{
      RowBox[{"cv", "[", "2", "]"}], "[", "0", "]"}], "-", 
     RowBox[{
      RowBox[{"cv", "[", "12", "]"}], "[", "2", "]"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"2", ",", "6", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{
      RowBox[{"cv", "[", "2", "]"}], "[", "1", "]"}], "+", 
     RowBox[{"\[ImaginaryI]", " ", 
      RowBox[{
       RowBox[{"cv", "[", "12", "]"}], "[", "3", "]"}]}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"2", ",", "7", ",", "0"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"2", ",", "7", ",", "1"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"2", ",", "7", ",", "2"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"2", ",", "7", ",", "3"}], "]"}], "\[Rule]", "0"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.749410161019311*^9, 3.7494118151681185`*^9, 3.749411943964021*^9, 
   3.7494820690880365`*^9, 3.749482602651481*^9, {3.749483246933783*^9, 
   3.7494832919617186`*^9}, 3.749497511230218*^9, 3.7494995227152643`*^9, 
   3.749499699981485*^9, 3.749499979578924*^9, 3.7495571219098577`*^9, 
   3.7495600730563545`*^9, 3.7498418455416865`*^9, 3.749858011452804*^9, 
   3.7604715121306887`*^9},
 CellLabel->"Out[41]=",ExpressionUUID->"bdcaa02c-faec-4c18-af2e-76a38daf4802"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ZSolutions", "[", "LocalFieldNumber", "]"}], "/.", 
  "ThisOneLooksGood"}]], "Input",
 CellChangeTimes->{{3.74941018974783*^9, 3.749410287570263*^9}, {
  3.7494103263941903`*^9, 3.749410332177493*^9}, {3.7494105274987097`*^9, 
  3.749410537744815*^9}, {3.749410571657837*^9, 3.74941074716068*^9}, {
  3.749411058139544*^9, 3.749411062568898*^9}, {3.7494115446973157`*^9, 
  3.749411545947426*^9}},
 CellLabel->"In[42]:=",ExpressionUUID->"f5c7eccc-863f-468a-b1b5-0bcd684212f3"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"2", ",", "1", ",", "0"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"2", ",", "1", ",", "1"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"2", ",", "1", ",", "2"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"2", ",", "1", ",", "3"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"2", ",", "2", ",", "0"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"2", ",", "2", ",", "1"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"2", ",", "2", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{"-", "1"}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"2", ",", "2", ",", "3"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"2", ",", "3", ",", "0"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"2", ",", "3", ",", "1"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"2", ",", "3", ",", "2"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"2", ",", "3", ",", "3"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"2", ",", "4", ",", "0"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"2", ",", "4", ",", "1"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"2", ",", "4", ",", "2"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"2", ",", "4", ",", "3"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"2", ",", "5", ",", "0"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"2", ",", "5", ",", "1"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"2", ",", "5", ",", "2"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"2", ",", "5", ",", "3"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"2", ",", "6", ",", "0"}], "]"}], "\[Rule]", "2"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"2", ",", "6", ",", "1"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"2", ",", "6", ",", "2"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"2", ",", "6", ",", "3"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"2", ",", "7", ",", "0"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"2", ",", "7", ",", "1"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"2", ",", "7", ",", "2"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"2", ",", "7", ",", "3"}], "]"}], "\[Rule]", "0"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.7494102039148035`*^9, 3.749410237595869*^9}, {
   3.74941027060384*^9, 3.7494102895686717`*^9}, 3.7494103337499733`*^9, {
   3.7494105397146406`*^9, 3.7494106769721236`*^9}, {3.7494107155458097`*^9, 
   3.7494107477202597`*^9}, 3.7494110672432184`*^9, 3.749411815181512*^9, 
   3.7494119439892807`*^9, 3.749482069101892*^9, 3.749482602664874*^9, {
   3.7494832469606094`*^9, 3.7494832919899907`*^9}, 3.7494975112441053`*^9, 
   3.7494995227321367`*^9, 3.7494996999973993`*^9, 3.7494999796071463`*^9, 
   3.749557121930784*^9, 3.74956007306922*^9, 3.749841845562024*^9, 
   3.749858011521371*^9, 3.7604715121544886`*^9},
 CellLabel->"Out[42]=",ExpressionUUID->"fe083045-a573-4b3d-8974-68ba7c38174d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       SubsuperscriptBox["D", "a", "i"], ",", 
       SubsuperscriptBox[
        OverscriptBox["D", "~"], "b", "j"]}], "}"}], "B"}], "=", 
    RowBox[{
     RowBox[{"2", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"2", ",", "1"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["\[Gamma]", "5"], 
         SuperscriptBox["\[Gamma]", "\[Mu]"]}], ")"}], "ab"], 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Mu]"], 
       OverscriptBox["A", "~"]}]}], " ", "+", 
     RowBox[{"2", "i", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"2", ",", "2"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Mu]"], 
       OverscriptBox["B", "~"]}]}], " ", "+", 
     RowBox[{"2", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"2", ",", "3"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Gamma]", "5"], ")"}], "ab"], 
      OverscriptBox["F", "~"]}], "+", 
     RowBox[{"2", " ", "i", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"2", ",", "4"}], "]"}], "ij"], 
      SubscriptBox["C", "ab"], 
      OverscriptBox["G", "~"]}], "+", 
     RowBox[{"2", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"2", ",", "5"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["\[Gamma]", "5"], 
         SuperscriptBox["\[Gamma]", "\[Mu]"]}], ")"}], "ab"], 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Mu]"], "\[CurlyPhi]"}]}], "+", 
     RowBox[{"i", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"2", ",", "6"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{
        SuperscriptBox["\[Epsilon]", "\[Mu]\[Nu]\[Alpha]\[Beta]"], "(", 
        SubscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Nu]"], 
       SubscriptBox["B", "\[Alpha]\[Beta]"]}]}], "+", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"2", ",", "7"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["\[Gamma]", "5"], 
         SubscriptBox["\[Gamma]", "\[Mu]"]}], ")"}], "ab"], 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Nu]"], 
       SuperscriptBox["B", "\[Mu]\[Nu]"], " "}]}]}]}], TraditionalForm]], 
  "None",ExpressionUUID->"0d666b8f-9f2b-4b0b-9c97-8d0b129f99bd"],
 " \[LineSeparator] FieldNumber = 2"
}], "Subsubsection",
 CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, {
   3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 
   3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 
   3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, {
   3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7467956828758698`*^9, 
   3.746795686091745*^9}, {3.747486227215621*^9, 3.747486227215621*^9}, {
   3.7489659591128283`*^9, 3.748965968040195*^9}, {3.7494024132510557`*^9, 
   3.7494024132510557`*^9}, {3.7494025205883026`*^9, 
   3.7494025205883026`*^9}, {3.7494113813699865`*^9, 
   3.7494114334172726`*^9}, {3.7494116798094573`*^9, 
   3.7494117313744917`*^9}, {3.749412523506293*^9, 3.749412524074025*^9}, {
   3.749487346914968*^9, 
   3.7494873469154615`*^9}},ExpressionUUID->"cbd14138-b5e3-4285-b434-\
124cc7759271"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"DeleteCases", "[", 
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Z", "[", 
       RowBox[{"LocalFieldNumber", ",", "nn"}], "]"}], "==", 
      RowBox[{"PrintSigmaProduct", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"ZGen", "[", 
             RowBox[{"LocalFieldNumber", ",", "nn"}], "]"}], "[", 
            RowBox[{"ii", ",", "jj"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"jj", ",", "1", ",", "2"}], "}"}]}], "]"}], "/.", 
         RowBox[{"ZSolutions", "[", "LocalFieldNumber", "]"}]}], "/.", 
        "ThisOneLooksGood"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"nn", ",", "1", ",", "7"}], "}"}]}], "]"}], ",", 
   RowBox[{
    RowBox[{"Z", "[", 
     RowBox[{"_", ",", "_"}], "]"}], "\[Equal]", "0"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"TeXForm", "[", "%", "]"}]}], "Input",
 CellChangeTimes->{{3.7494822949220448`*^9, 3.7494823511478577`*^9}, {
  3.7494823858218775`*^9, 3.7494823877980165`*^9}, {3.7494824283410683`*^9, 
  3.7494824525643225`*^9}, {3.749482667989807*^9, 3.749482671509657*^9}, {
  3.749482703172926*^9, 3.7494827189481516`*^9}, {3.7494827656916285`*^9, 
  3.7494827754041166`*^9}, {3.749482825395954*^9, 3.7494828255808463`*^9}, {
  3.7494830210856953`*^9, 3.749483068325922*^9}, {3.7494831352932143`*^9, 
  3.7494831386363173`*^9}, {3.7494831726363764`*^9, 3.749483186323599*^9}},
 CellLabel->"In[43]:=",ExpressionUUID->"e1b8a95d-9982-414a-822b-3ae87f00c6ce"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"Z", "[", 
     RowBox[{"2", ",", "2"}], "]"}], "\[Equal]", 
    RowBox[{
     RowBox[{"-", "\[ImaginaryI]"}], " ", 
     SubscriptBox["\[Sigma]", "2"]}]}], ",", 
   RowBox[{
    RowBox[{"Z", "[", 
     RowBox[{"2", ",", "6"}], "]"}], "\[Equal]", 
    RowBox[{"2", " ", "\<\"I\"\>"}]}]}], "}"}]], "Output",
 CellChangeTimes->{{3.749483247013237*^9, 3.749483292006357*^9}, 
   3.7494975112565064`*^9, 3.7494995227425447`*^9, 3.749499700007292*^9, 
   3.74949997962401*^9, 3.7495571219402685`*^9, 3.7495600730872245`*^9, 
   3.7498418455749807`*^9, 3.749858011587654*^9, 3.7604715121646295`*^9},
 CellLabel->"Out[43]=",ExpressionUUID->"99b8da65-189a-465b-95da-802931b7c8e0"],

Cell["\\left\\{Z(2,2)=-i \\sigma _2,Z(2,6)=2 \\text{I}\\right\\}", "Output",
 CellChangeTimes->{{3.749483247013237*^9, 3.749483292006357*^9}, 
   3.7494975112565064`*^9, 3.7494995227425447`*^9, 3.749499700007292*^9, 
   3.74949997962401*^9, 3.7495571219402685`*^9, 3.7495600730872245`*^9, 
   3.7498418455749807`*^9, 3.749858011587654*^9, 3.760471512171218*^9},
 CellLabel->
  "Out[44]//TeXForm=",ExpressionUUID->"c52ca841-4dfb-4aaf-83af-8ff17c2fa859"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{"LocalField", ",", "LocalFieldNumber"}], "]"}]], "Input",
 CellChangeTimes->{{3.747496499638111*^9, 3.7474965053367357`*^9}},
 CellLabel->"In[45]:=",ExpressionUUID->"6e285e73-fcfa-461f-b31b-37b29d9027f9"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       SubsuperscriptBox["D", "a", "i"], ",", 
       SubsuperscriptBox[
        OverscriptBox["D", "~"], "b", "j"]}], "}"}], "F"}], "=", 
    RowBox[{
     RowBox[{"2", "i", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "1"}], "]"}], "ij"], 
      SubscriptBox["C", "ab"], 
      RowBox[{"\[Square]", 
       OverscriptBox["A", "~"]}]}], " ", "+", 
     RowBox[{"2", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "2"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Gamma]", "5"], ")"}], "ab"], 
      RowBox[{"\[Square]", " ", 
       OverscriptBox["B", "~"]}]}], " ", "+", 
     RowBox[{"2", 
      SuperscriptBox[
       RowBox[{"iZ", "[", 
        RowBox[{"lfn", ",", "3"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Mu]"], 
       OverscriptBox["F", "~"]}]}], "+", 
     RowBox[{"2", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "4"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["\[Gamma]", "5"], 
         SuperscriptBox["\[Gamma]", "\[Mu]"]}], ")"}], "ab"], 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Mu]"], 
       OverscriptBox["G", "~"]}]}], "+", 
     RowBox[{"2", "i", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "5"}], "]"}], "ij"], 
      SubscriptBox["C", "ab"], 
      RowBox[{"\[Square]", "\[CurlyPhi]"}]}], "+", 
     RowBox[{"i", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "6"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        RowBox[{"[", 
         RowBox[{
          SuperscriptBox["\[Gamma]", "\[Alpha]"], ",", 
          SuperscriptBox["\[Gamma]", "\[Beta]"]}], "]"}], ")"}], "ab"], 
      RowBox[{"\[Square]", 
       SubscriptBox["B", "\[Alpha]\[Beta]"]}]}], "+", 
     RowBox[{"i", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "7"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        RowBox[{"[", 
         RowBox[{
          SuperscriptBox["\[Gamma]", "\[Alpha]"], ",", 
          SuperscriptBox["\[Gamma]", "\[Mu]"]}], "]"}], ")"}], "ab"], 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Mu]"], 
       RowBox[{
        SuperscriptBox["\[PartialD]", "\[Beta]"], 
        SubscriptBox["B", "\[Alpha]\[Beta]"], " "}]}]}]}]}], 
   TraditionalForm]], "None",ExpressionUUID->
  "d8409f15-6c84-4667-b8c2-7a3c68c60141"],
 " \nlfn = FieldNumber = 3"
}], "Subsection",
 CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, {
   3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 
   3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 
   3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, {
   3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7467956828758698`*^9, 
   3.746795686091745*^9}, {3.747486227215621*^9, 3.747486227215621*^9}, {
   3.747497464520861*^9, 3.7474974673291535`*^9}, {3.748965960222494*^9, 
   3.74896596979602*^9}, {3.749402416434515*^9, 3.749402416434515*^9}, {
   3.7494025180362406`*^9, 3.7494025180362406`*^9}, {3.7494120037778597`*^9, 
   3.7494120944006863`*^9}, {3.749412125758269*^9, 3.749412239673051*^9}, {
   3.749412507516997*^9, 3.749412531776208*^9}, {3.749413087245363*^9, 
   3.7494130885219073`*^9}, {3.7494131528613048`*^9, 3.749413155233526*^9}, {
   3.749413241185196*^9, 3.749413300818823*^9}, {3.7494139437383347`*^9, 
   3.749413950369817*^9}},ExpressionUUID->"7d48686b-675b-4939-bef5-\
323d36995ec9"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalField", " ", "=", " ", 
   RowBox[{"F", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LocalFieldNumber", " ", "=", " ", "3"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"CentralChargeList", "[", "LocalFieldNumber", "]"}], " ", "=", " ", 
  
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"LocalFieldNumber", ",", "FieldNumber", ",", "sigmaNumber"}], 
      "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"FieldNumber", ",", "1", ",", "7"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"sigmaNumber", ",", "0", ",", "3"}], "}"}]}], "]"}], "//", 
   "Flatten"}]}]}], "Input",
 CellChangeTimes->{{3.747496390463257*^9, 3.747496425281234*^9}, {
   3.7474974694092073`*^9, 3.7474974722809887`*^9}, 3.749413125570696*^9},
 CellLabel->"In[46]:=",ExpressionUUID->"d7025e6d-0320-4ca1-bf8e-9c30120efbde"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"z", "[", 
    RowBox[{"3", ",", "1", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"3", ",", "1", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"3", ",", "1", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"3", ",", "1", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"3", ",", "2", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"3", ",", "2", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"3", ",", "2", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"3", ",", "2", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"3", ",", "3", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"3", ",", "3", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"3", ",", "3", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"3", ",", "3", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"3", ",", "4", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"3", ",", "4", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"3", ",", "4", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"3", ",", "4", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"3", ",", "5", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"3", ",", "5", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"3", ",", "5", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"3", ",", "5", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"3", ",", "6", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"3", ",", "6", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"3", ",", "6", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"3", ",", "6", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"3", ",", "7", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"3", ",", "7", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"3", ",", "7", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"3", ",", "7", ",", "3"}], "]"}]}], "}"}]], "Output",
 CellChangeTimes->{3.749413358869091*^9, 3.7494138942200923`*^9, 
  3.7494820691311207`*^9, 3.7494826026887007`*^9, 3.7494833523768644`*^9, 
  3.7494975112808113`*^9, 3.74949952276784*^9, 3.74949970003559*^9, 
  3.7494999796463284`*^9, 3.749557121964472*^9, 3.7495600731070595`*^9, 
  3.749841845607703*^9, 3.7498580116734047`*^9, 3.760471512200534*^9},
 CellLabel->"Out[48]=",ExpressionUUID->"de95e660-cf76-4349-82dc-a1eeb9ee1e1a"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Z", "[", "LocalFieldNumber", "]"}], "[", 
    RowBox[{"ii_", ",", "jj_"}], "]"}], "[", 
   RowBox[{"aa_", ",", "bb_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"2", " ", "I", " ", 
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "1"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"Cmetric", "[", 
     RowBox[{"[", 
      RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
    RowBox[{"Lap", "[", 
     RowBox[{"At", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], "+", 
   RowBox[{"2", " ", 
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "2"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"\[Gamma]5down", "[", 
     RowBox[{"[", 
      RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
    RowBox[{"Lap", "[", 
     RowBox[{"Bt", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], " ", "+", 
   " ", 
   RowBox[{"2", " ", "I", " ", 
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "3"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"Ft", "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
         RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"mu", ",", "0", ",", " ", "3"}], "}"}]}], "]"}]}], "+", " ", 
   RowBox[{"2", " ", 
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "4"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"Gt", "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
         RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"mu", ",", "0", ",", " ", "3"}], "}"}]}], "]"}]}], "+", 
   RowBox[{"2", " ", "I", " ", 
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "5"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"Cmetric", "[", 
     RowBox[{"[", 
      RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
    RowBox[{"Lap", "[", 
     RowBox[{"\[CurlyPhi]", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], "+", " ", 
   RowBox[{"I", " ", 
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "6"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"CommuteGammadown", "[", 
         RowBox[{"ap", ",", "bt"}], "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{"Lap", "[", 
        RowBox[{
         RowBox[{"Bmn", "[", 
          RowBox[{"ap", ",", "bt"}], "]"}], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"ap", ",", "0", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"bt", ",", "0", ",", "3"}], "}"}]}], "]"}]}], " ", "+", " ", 
   RowBox[{"I", " ", 
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "7"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"CommuteGammadown", "[", 
         RowBox[{"ap", ",", "mu"}], "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"UD", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"Bmn", "[", 
             RowBox[{"ap", ",", "bt"}], "]"}], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
           RowBox[{"\[CapitalStigma]", "[", "bt", "]"}]}], "]"}], ",", 
         RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"ap", ",", "0", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"bt", ",", "0", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}], " "}]}]}]], "Input",\

 CellChangeTimes->{{3.7494085451000586`*^9, 3.7494085523049335`*^9}, {
  3.7494085899690495`*^9, 3.749408615257099*^9}, {3.7494086507852697`*^9, 
  3.749408665345*^9}, {3.7494093016570387`*^9, 3.7494093465610495`*^9}, {
  3.7494095637774105`*^9, 3.749409578217074*^9}, {3.749409653409035*^9, 
  3.7494098016018295`*^9}, {3.7494098348498144`*^9, 3.7494100216819773`*^9}, {
  3.749413397113825*^9, 3.7494133979214287`*^9}, {3.749413438274826*^9, 
  3.749413452297429*^9}, {3.749413537033685*^9, 3.7494138221700463`*^9}},
 CellLabel->"In[49]:=",ExpressionUUID->"a45c5c01-1974-4414-b5b3-b5eeb86b93a7"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"ZTable", "[", "LocalFieldNumber", "]"}], " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Z", "[", "LocalFieldNumber", "]"}], "[", 
       RowBox[{"ii", ",", "jj"}], "]"}], "[", 
      RowBox[{"aa", ",", "bb"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7494086675397387`*^9, 3.749408718609185*^9}, {
  3.7494087673051147`*^9, 3.7494087768495007`*^9}},
 CellLabel->"In[50]:=",ExpressionUUID->"0fc42746-bc36-46fb-949e-c78ce72a16e0"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"AlgebraDDMinusClosure", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", 
   
   RowBox[{"(", 
    RowBox[{"Collect", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"AlgebraDD", "[", 
            RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalField", "]"}], " ",
           "-", " ", 
          RowBox[{"ZTable", "[", "LocalFieldNumber", "]"}]}], ")"}], "/.", 
        "LagrangianParameters"}], "/.", "VtoPauli"}], ",", 
      "FieldListWithDerivatives", ",", "Simplify"}], "]"}], ")"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.7474929944818563`*^9, 3.7474930651472597`*^9}, {
  3.747493152219424*^9, 3.7474932477784343`*^9}, {3.7474934178914785`*^9, 
  3.7474934832105627`*^9}, {3.7474935638267813`*^9, 3.747493591801224*^9}, {
  3.7474963739738455`*^9, 3.7474964449288054`*^9}, {3.748795026042665*^9, 
  3.748795027776865*^9}, {3.748965282772246*^9, 3.7489652841431913`*^9}, {
  3.748967256264186*^9, 3.7489672582499332`*^9}, {3.7494004185551434`*^9, 
  3.7494004426991215`*^9}, {3.7494086299617586`*^9, 3.749408647033921*^9}, {
  3.7494087803530507`*^9, 3.7494087808412037`*^9}},
 CellLabel->"In[51]:=",ExpressionUUID->"d00fb62a-fd8b-43c9-a68b-4d3fac40e38c"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"AlgebraDDEqs", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", 
   "=", " ", 
   RowBox[{
    RowBox[{"DeleteCases", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"Coefficient", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"AlgebraDDMinusClosure", "[", 
                 RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", 
                "]"}], "[", 
               RowBox[{"[", 
                RowBox[{"ii", ",", "aa", ",", "jj", ",", "bb"}], "]"}], "]"}],
               ",", 
              RowBox[{"FieldListWithDerivatives", "[", 
               RowBox[{"[", "FieldListIndex", "]"}], "]"}]}], "]"}], ")"}], 
           "\[Equal]", "0"}], ",", 
          RowBox[{"{", 
           RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"FieldListIndex", ",", "1", ",", 
            RowBox[{"Length", "[", "FieldListWithDerivatives", "]"}]}], 
           "}"}]}], "]"}], "//", "Simplify"}], "//", "Flatten"}], ",", 
      "True"}], "]"}], "//", "DeleteDuplicates"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7474933413160763`*^9, 3.7474934023534203`*^9}, {
   3.747493509609391*^9, 3.7474935432809353`*^9}, {3.7474936064895945`*^9, 
   3.7474936161297655`*^9}, {3.7474936564987297`*^9, 3.747493747940831*^9}, {
   3.747493832482408*^9, 3.7474938407374077`*^9}, {3.747496458745552*^9, 
   3.7474964697370515`*^9}, 3.7475105609270287`*^9, {3.748795270744809*^9, 
   3.748795274222528*^9}, {3.74879531011075*^9, 3.748795321437098*^9}, {
   3.748795652987978*^9, 3.748795656902155*^9}, {3.748965289858489*^9, 
   3.748965292697112*^9}, {3.748967259459038*^9, 3.748967260813509*^9}, {
   3.7489708313422194`*^9, 3.7489708325427723`*^9}, {3.749400458403777*^9, 
   3.749400461474213*^9}},
 CellLabel->"In[52]:=",ExpressionUUID->"dd832332-c1e5-4b81-bb3e-e0e245f7a352"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "[", 
  RowBox[{
   RowBox[{"AlgebraDDEqs", "[", 
    RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.747493880500272*^9, 3.7474938897376738`*^9}, {
   3.7474964759857783`*^9, 3.747496478481014*^9}, 3.748967263446204*^9},
 CellLabel->"In[53]:=",ExpressionUUID->"19e7003e-ac02-4769-98f8-fce1e10a610b"],

Cell[BoxData["54"], "Output",
 CellChangeTimes->{3.749402369344755*^9, 3.7494025812692585`*^9, 
  3.7494101413703766`*^9, 3.7494118150094*^9, 3.749411943930292*^9, 
  3.7494138961322794`*^9, 3.749482070843859*^9, 3.749482604450041*^9, 
  3.74948335410999*^9, 3.749497513209257*^9, 3.7494995245985765`*^9, 
  3.749499701948002*^9, 3.7494999814542866`*^9, 3.749557123699975*^9, 
  3.7495600748495264`*^9, 3.7498418474607105`*^9, 3.749858013754334*^9, 
  3.760471513913824*^9},
 CellLabel->"Out[53]=",ExpressionUUID->"de439e8b-3ec1-4800-a660-c39ab72caced"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ZSolutions", "[", "LocalFieldNumber", "]"}], " ", "=", " ", 
  RowBox[{
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"AlgebraDDEqs", "[", 
       RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], 
     ",", 
     RowBox[{"CentralChargeList", "[", "LocalFieldNumber", "]"}]}], "]"}], "//",
    "Flatten"}]}]], "Input",
 CellChangeTimes->{{3.7494088104519863`*^9, 3.749408859016982*^9}, 
   3.749410151970128*^9, {3.7494833477578382`*^9, 3.7494833493795185`*^9}},
 CellLabel->"In[54]:=",ExpressionUUID->"357e0dae-9dfd-4343-a897-319e94fce51b"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"3", ",", "1", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "3", "]"}], "[", "3", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "10", "]"}], "[", "0", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"3", ",", "1", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "3", "]"}], "[", "2", "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "10", "]"}], "[", "1", "]"}]}]}], ")"}]}]}], ",", 
   
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"3", ",", "1", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "3", "]"}], "[", "1", "]"}]}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "10", "]"}], "[", "2", "]"}]}]}], ")"}]}]}], ",", 
   
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"3", ",", "1", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "3", "]"}], "[", "0", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "10", "]"}], "[", "3", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"3", ",", "2", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "3", "]"}], "[", "0", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "7", "]"}], "[", "0", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"3", ",", "2", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "3", "]"}], "[", "1", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "7", "]"}], "[", "1", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"3", ",", "2", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "3", "]"}], "[", "2", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "7", "]"}], "[", "2", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"3", ",", "2", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "3", "]"}], "[", "3", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "7", "]"}], "[", "3", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"3", ",", "3", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "3", "]"}], "[", "0", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "8", "]"}], "[", "0", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"3", ",", "3", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "3", "]"}], "[", "1", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "8", "]"}], "[", "1", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"3", ",", "3", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "3", "]"}], "[", "2", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "8", "]"}], "[", "2", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"3", ",", "3", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "3", "]"}], "[", "3", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "8", "]"}], "[", "3", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"3", ",", "4", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "3", "]"}], "[", "0", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "9", "]"}], "[", "0", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"3", ",", "4", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "3", "]"}], "[", "1", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "9", "]"}], "[", "1", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"3", ",", "4", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "3", "]"}], "[", "2", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "9", "]"}], "[", "2", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"3", ",", "4", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "3", "]"}], "[", "3", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "9", "]"}], "[", "3", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"3", ",", "5", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "3", "]"}], "[", "1", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "11", "]"}], "[", "0", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"3", ",", "5", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "3", "]"}], "[", "0", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "11", "]"}], "[", "1", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"3", ",", "5", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "3", "]"}], "[", "3", "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "11", "]"}], "[", "2", "]"}]}]}], ")"}]}]}], ",", 
   
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"3", ",", "5", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "3", "]"}], "[", "2", "]"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "11", "]"}], "[", "3", "]"}]}]}], ")"}]}]}], ",", 
   
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"3", ",", "6", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "3", "]"}], "[", "2", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "0", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"3", ",", "6", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "3", "]"}], "[", "3", "]"}]}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "12", "]"}], "[", "1", "]"}]}]}], ")"}]}]}], ",", 
   
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"3", ",", "6", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "3", "]"}], "[", "0", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "2", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"3", ",", "6", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "3", "]"}], "[", "1", "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "12", "]"}], "[", "3", "]"}]}]}], ")"}]}]}], ",", 
   
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"3", ",", "7", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{"\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "3", "]"}], "[", "2", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "0", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"3", ",", "7", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{
      RowBox[{"cv", "[", "3", "]"}], "[", "3", "]"}], "-", 
     RowBox[{"\[ImaginaryI]", " ", 
      RowBox[{
       RowBox[{"cv", "[", "12", "]"}], "[", "1", "]"}]}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"3", ",", "7", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{
       RowBox[{"cv", "[", "3", "]"}], "[", "0", "]"}]}], "+", 
     RowBox[{
      RowBox[{"cv", "[", "12", "]"}], "[", "2", "]"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"3", ",", "7", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{
       RowBox[{"cv", "[", "3", "]"}], "[", "1", "]"}]}], "-", 
     RowBox[{"\[ImaginaryI]", " ", 
      RowBox[{
       RowBox[{"cv", "[", "12", "]"}], "[", "3", "]"}]}]}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.749410161019311*^9, 3.7494118151681185`*^9, 
  3.749411943964021*^9, 3.749413896188343*^9, 3.749482070917756*^9, 
  3.749482604518485*^9, 3.7494833541452*^9, 3.7494975132539654`*^9, 
  3.7494995246784315`*^9, 3.749499702037732*^9, 3.749499981509305*^9, 
  3.7495571237606506`*^9, 3.7495600749065514`*^9, 3.7498418475627017`*^9, 
  3.74985801381639*^9, 3.760471513975004*^9},
 CellLabel->"Out[54]=",ExpressionUUID->"3e0f424f-6ea9-41d6-97ba-27acf1c38a4d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ZSolutions", "[", "LocalFieldNumber", "]"}], "/.", 
  "ThisOneLooksGood"}]], "Input",
 CellChangeTimes->{{3.74941018974783*^9, 3.749410287570263*^9}, {
  3.7494103263941903`*^9, 3.749410332177493*^9}, {3.7494105274987097`*^9, 
  3.749410537744815*^9}, {3.749410571657837*^9, 3.74941074716068*^9}, {
  3.749411058139544*^9, 3.749411062568898*^9}, {3.7494115446973157`*^9, 
  3.749411545947426*^9}},
 CellLabel->"In[55]:=",ExpressionUUID->"17932f0a-f0de-4019-b254-6b4e38b992ff"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"3", ",", "1", ",", "0"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"3", ",", "1", ",", "1"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"3", ",", "1", ",", "2"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"3", ",", "1", ",", "3"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"3", ",", "2", ",", "0"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"3", ",", "2", ",", "1"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"3", ",", "2", ",", "2"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"3", ",", "2", ",", "3"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"3", ",", "3", ",", "0"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"3", ",", "3", ",", "1"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"3", ",", "3", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{"-", "1"}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"3", ",", "3", ",", "3"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"3", ",", "4", ",", "0"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"3", ",", "4", ",", "1"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"3", ",", "4", ",", "2"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"3", ",", "4", ",", "3"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"3", ",", "5", ",", "0"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"3", ",", "5", ",", "1"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"3", ",", "5", ",", "2"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"3", ",", "5", ",", "3"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"3", ",", "6", ",", "0"}], "]"}], "\[Rule]", "1"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"3", ",", "6", ",", "1"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"3", ",", "6", ",", "2"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"3", ",", "6", ",", "3"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"3", ",", "7", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{"-", "2"}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"3", ",", "7", ",", "1"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"3", ",", "7", ",", "2"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"3", ",", "7", ",", "3"}], "]"}], "\[Rule]", "0"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.7494102039148035`*^9, 3.749410237595869*^9}, {
   3.74941027060384*^9, 3.7494102895686717`*^9}, 3.7494103337499733`*^9, {
   3.7494105397146406`*^9, 3.7494106769721236`*^9}, {3.7494107155458097`*^9, 
   3.7494107477202597`*^9}, 3.7494110672432184`*^9, 3.749411815181512*^9, 
   3.7494119439892807`*^9, 3.749413896206716*^9, 3.7494820709316416`*^9, 
   3.7494826045333233`*^9, 3.7494833541659913`*^9, 3.749497513271279*^9, 
   3.7494995246962905`*^9, 3.7494997020526123`*^9, 3.7494999815232344`*^9, 
   3.749557123776029*^9, 3.749560074919442*^9, 3.7498418475915513`*^9, 
   3.749858013909006*^9, 3.760471513990525*^9},
 CellLabel->"Out[55]=",ExpressionUUID->"f2cb7613-f84f-4460-8220-6f2e879ed463"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       SubsuperscriptBox["D", "a", "i"], ",", 
       SubsuperscriptBox[
        OverscriptBox["D", "~"], "b", "j"]}], "}"}], "F"}], "=", 
    RowBox[{
     RowBox[{"2", "i", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "1"}], "]"}], "ij"], 
      SubscriptBox["C", "ab"], 
      RowBox[{"\[Square]", 
       OverscriptBox["A", "~"]}]}], " ", "+", 
     RowBox[{"2", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "2"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Gamma]", "5"], ")"}], "ab"], 
      RowBox[{"\[Square]", " ", 
       OverscriptBox["B", "~"]}]}], " ", "+", 
     RowBox[{"2", 
      SuperscriptBox[
       RowBox[{"iZ", "[", 
        RowBox[{"lfn", ",", "3"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Mu]"], 
       OverscriptBox["F", "~"]}]}], "+", 
     RowBox[{"2", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "4"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["\[Gamma]", "5"], 
         SuperscriptBox["\[Gamma]", "\[Mu]"]}], ")"}], "ab"], 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Mu]"], 
       OverscriptBox["G", "~"]}]}], "+", 
     RowBox[{"2", "i", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "5"}], "]"}], "ij"], 
      SubscriptBox["C", "ab"], 
      RowBox[{"\[Square]", "\[CurlyPhi]"}]}], "+", 
     RowBox[{"i", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "6"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        RowBox[{"[", 
         RowBox[{
          SuperscriptBox["\[Gamma]", "\[Alpha]"], ",", 
          SuperscriptBox["\[Gamma]", "\[Beta]"]}], "]"}], ")"}], "ab"], 
      RowBox[{"\[Square]", 
       SubscriptBox["B", "\[Alpha]\[Beta]"]}]}], "+", 
     RowBox[{"i", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "7"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        RowBox[{"[", 
         RowBox[{
          SuperscriptBox["\[Gamma]", "\[Alpha]"], ",", 
          SuperscriptBox["\[Gamma]", "\[Mu]"]}], "]"}], ")"}], "ab"], 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Mu]"], 
       RowBox[{
        SuperscriptBox["\[PartialD]", "\[Beta]"], 
        SubscriptBox["B", "\[Alpha]\[Beta]"], " "}]}]}]}]}], 
   TraditionalForm]], "None",ExpressionUUID->
  "193fafe3-2455-4e68-8f52-ca05a0f3f2c0"],
 " \nlfn = FieldNumber = 3"
}], "Subsubsection",
 CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, {
   3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 
   3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 
   3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, {
   3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7467956828758698`*^9, 
   3.746795686091745*^9}, {3.747486227215621*^9, 3.747486227215621*^9}, {
   3.747497464520861*^9, 3.7474974673291535`*^9}, {3.748965960222494*^9, 
   3.74896596979602*^9}, {3.749402416434515*^9, 3.749402416434515*^9}, {
   3.7494025180362406`*^9, 3.7494025180362406`*^9}, {3.7494120037778597`*^9, 
   3.7494120944006863`*^9}, {3.749412125758269*^9, 3.749412239673051*^9}, {
   3.749412507516997*^9, 3.749412531776208*^9}, {3.749413087245363*^9, 
   3.7494130885219073`*^9}, {3.7494131528613048`*^9, 3.749413155233526*^9}, {
   3.749413241185196*^9, 3.749413300818823*^9}, {3.7494139437383347`*^9, 
   3.749413950369817*^9}},ExpressionUUID->"2eaa1bb8-f11a-40b3-b956-\
a69aa642cb26"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DeleteCases", "[", 
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Z", "[", 
       RowBox[{"LocalFieldNumber", ",", "nn"}], "]"}], "==", 
      RowBox[{"PrintSigmaProduct", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"ZGen", "[", 
             RowBox[{"LocalFieldNumber", ",", "nn"}], "]"}], "[", 
            RowBox[{"ii", ",", "jj"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"jj", ",", "1", ",", "2"}], "}"}]}], "]"}], "/.", 
         RowBox[{"ZSolutions", "[", "LocalFieldNumber", "]"}]}], "/.", 
        "ThisOneLooksGood"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"nn", ",", "1", ",", "7"}], "}"}]}], "]"}], ",", 
   RowBox[{
    RowBox[{"Z", "[", 
     RowBox[{"_", ",", "_"}], "]"}], "\[Equal]", "0"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7494822949220448`*^9, 3.7494823511478577`*^9}, {
   3.7494823858218775`*^9, 3.7494823877980165`*^9}, {3.7494824283410683`*^9, 
   3.7494824525643225`*^9}, {3.749482667989807*^9, 3.749482671509657*^9}, {
   3.749482703172926*^9, 3.7494827189481516`*^9}, {3.7494827656916285`*^9, 
   3.7494827754041166`*^9}, {3.749482825395954*^9, 3.7494828255808463`*^9}, {
   3.7494830210856953`*^9, 3.749483068325922*^9}, {3.7494831352932143`*^9, 
   3.7494831386363173`*^9}, {3.7494831726363764`*^9, 3.749483186323599*^9}, 
   3.7494833356286917`*^9},
 CellLabel->"In[56]:=",ExpressionUUID->"c4134d7e-d338-47e1-9e4b-916ec3360863"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"Z", "[", 
     RowBox[{"3", ",", "3"}], "]"}], "\[Equal]", 
    RowBox[{
     RowBox[{"-", "\[ImaginaryI]"}], " ", 
     SubscriptBox["\[Sigma]", "2"]}]}], ",", 
   RowBox[{
    RowBox[{"Z", "[", 
     RowBox[{"3", ",", "6"}], "]"}], "\[Equal]", "\<\"I\"\>"}], ",", 
   RowBox[{
    RowBox[{"Z", "[", 
     RowBox[{"3", ",", "7"}], "]"}], "\[Equal]", 
    RowBox[{
     RowBox[{"-", "2"}], " ", "\<\"I\"\>"}]}]}], "}"}]], "Output",
 CellChangeTimes->{{3.749483247013237*^9, 3.749483292006357*^9}, 
   3.7494833541799216`*^9, 3.7494975132822294`*^9, 3.749499524707241*^9, 
   3.7494997020645156`*^9, 3.7494999815401106`*^9, 3.7495571237870054`*^9, 
   3.7495600749605694`*^9, 3.7498418476138716`*^9, 3.749858013996952*^9, 
   3.7604715140006304`*^9},
 CellLabel->"Out[56]=",ExpressionUUID->"69889fd8-86fa-482d-9e98-ce5c473c7af5"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{"LocalField", ",", "LocalFieldNumber"}], "]"}]], "Input",
 CellChangeTimes->{{3.747496499638111*^9, 3.7474965053367357`*^9}},
 CellLabel->"In[57]:=",ExpressionUUID->"95e726c3-f373-4278-ac48-b473e12413ee"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       SubsuperscriptBox["D", "a", "i"], ",", 
       SubsuperscriptBox[
        OverscriptBox["D", "~"], "b", "j"]}], "}"}], "G"}], "=", " ", 
    RowBox[{
     RowBox[{"2", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "1"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Gamma]", "5"], ")"}], "ab"], 
      RowBox[{"\[Square]", 
       OverscriptBox["A", "~"]}]}], " ", "+", 
     RowBox[{"2", "i", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "2"}], "]"}], "ij"], 
      SubscriptBox["C", "ab"], 
      RowBox[{"\[Square]", " ", 
       OverscriptBox["B", "~"]}]}], " ", "+", 
     RowBox[{"2", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "3"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["\[Gamma]", "5"], 
         SuperscriptBox["\[Gamma]", "\[Mu]"]}], ")"}], "ab"], 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Mu]"], 
       OverscriptBox["F", "~"]}]}], "+", 
     RowBox[{"2", " ", "i", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "4"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Mu]"], 
       OverscriptBox["G", "~"]}]}], "+", 
     RowBox[{"2", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "5"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Gamma]", "5"], ")"}], "ab"], 
      RowBox[{"\[Square]", "\[CurlyPhi]"}]}], "+", " ", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "6"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["\[Gamma]", "5"], "[", 
         RowBox[{
          SuperscriptBox["\[Gamma]", "\[Alpha]"], ",", 
          SuperscriptBox["\[Gamma]", "\[Beta]"]}], "]"}], ")"}], "ab"], 
      RowBox[{"\[Square]", 
       SubscriptBox["B", "\[Alpha]\[Beta]"]}]}], "+", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "7"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["\[Gamma]", "5"], "[", 
         RowBox[{
          SuperscriptBox["\[Gamma]", "\[Alpha]"], ",", 
          SuperscriptBox["\[Gamma]", "\[Mu]"]}], "]"}], ")"}], "ab"], 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Mu]"], 
       RowBox[{
        SuperscriptBox["\[PartialD]", "\[Beta]"], 
        SubscriptBox["B", "\[Alpha]\[Beta]"]}]}]}]}]}], TraditionalForm]], 
  "None",ExpressionUUID->"13165bac-8e92-4be5-8a85-32edfdbb4097"],
 " \[LineSeparator]lfn = FieldNumber = 4"
}], "Subsection",
 CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, {
   3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 
   3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 
   3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, {
   3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7467956828758698`*^9, 
   3.746795686091745*^9}, {3.747486227215621*^9, 3.747486227215621*^9}, {
   3.747497464520861*^9, 3.7474974673291535`*^9}, {3.747497563453846*^9, 
   3.747497563796384*^9}, {3.7489659611441717`*^9, 3.748965973772861*^9}, {
   3.7494024217702255`*^9, 3.7494024217702255`*^9}, {3.7494025157481284`*^9, 
   3.7494025157481284`*^9}, {3.7494139300417395`*^9, 3.749413963042201*^9}, {
   3.7494140539605675`*^9, 
   3.749414102876368*^9}},ExpressionUUID->"6a2c5085-77d1-48dc-a81f-\
ce6fdc5b52bd"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalField", " ", "=", " ", 
   RowBox[{"G", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LocalFieldNumber", " ", "=", " ", "4"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"CentralChargeList", "[", "LocalFieldNumber", "]"}], " ", "=", " ", 
  
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"LocalFieldNumber", ",", "FieldNumber", ",", "sigmaNumber"}], 
      "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"FieldNumber", ",", "1", ",", "7"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"sigmaNumber", ",", "0", ",", "3"}], "}"}]}], "]"}], "//", 
   "Flatten"}]}]}], "Input",
 CellChangeTimes->{{3.747496390463257*^9, 3.747496425281234*^9}, {
   3.7474974694092073`*^9, 3.7474974722809887`*^9}, {3.747497566214872*^9, 
   3.747497568821742*^9}, 3.7494139846016536`*^9},
 CellLabel->"In[58]:=",ExpressionUUID->"ed970a20-b92e-4602-87d3-7753f65f2534"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"z", "[", 
    RowBox[{"4", ",", "1", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"4", ",", "1", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"4", ",", "1", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"4", ",", "1", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"4", ",", "2", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"4", ",", "2", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"4", ",", "2", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"4", ",", "2", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"4", ",", "3", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"4", ",", "3", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"4", ",", "3", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"4", ",", "3", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"4", ",", "4", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"4", ",", "4", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"4", ",", "4", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"4", ",", "4", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"4", ",", "5", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"4", ",", "5", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"4", ",", "5", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"4", ",", "5", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"4", ",", "6", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"4", ",", "6", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"4", ",", "6", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"4", ",", "6", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"4", ",", "7", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"4", ",", "7", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"4", ",", "7", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"4", ",", "7", ",", "3"}], "]"}]}], "}"}]], "Output",
 CellChangeTimes->{3.7494142129183435`*^9, 3.7494820709579315`*^9, 
  3.7494826045546494`*^9, 3.7494833749432487`*^9, 3.7494975133105006`*^9, 
  3.7494995247425537`*^9, 3.7494997020878286`*^9, 3.7494999815595636`*^9, 
  3.7495571238241405`*^9, 3.7495600749957857`*^9, 3.749841847643133*^9, 
  3.749858014098411*^9, 3.7604715140369787`*^9},
 CellLabel->"Out[60]=",ExpressionUUID->"3573c4a5-4c6c-4828-b066-2021e0ea6d68"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Z", "[", "LocalFieldNumber", "]"}], "[", 
    RowBox[{"ii_", ",", "jj_"}], "]"}], "[", 
   RowBox[{"aa_", ",", "bb_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"2", " ", 
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "1"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"\[Gamma]5down", "[", 
     RowBox[{"[", 
      RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
    RowBox[{"Lap", "[", 
     RowBox[{"At", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], "+", 
   RowBox[{"2", "I", " ", 
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "2"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"Cmetric", "[", 
     RowBox[{"[", 
      RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
    RowBox[{"Lap", "[", 
     RowBox[{"Bt", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], " ", "+", 
   " ", 
   RowBox[{"2", 
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "3"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"Ft", "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
         RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"mu", ",", "0", ",", " ", "3"}], "}"}]}], "]"}]}], "+", " ", 
   RowBox[{"2", " ", "I", " ", 
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "4"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"Gt", "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
         RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"mu", ",", "0", ",", " ", "3"}], "}"}]}], "]"}]}], "+", 
   RowBox[{"2", " ", 
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "5"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"\[Gamma]5down", "[", 
     RowBox[{"[", 
      RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
    RowBox[{"Lap", "[", 
     RowBox[{"\[CurlyPhi]", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], "+", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "6"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"\[Gamma]5", ".", 
          RowBox[{"CommuteGammadown", "[", 
           RowBox[{"ap", ",", "bt"}], "]"}]}], ")"}], "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{"Lap", "[", 
        RowBox[{
         RowBox[{"Bmn", "[", 
          RowBox[{"ap", ",", "bt"}], "]"}], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"ap", ",", "0", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"bt", ",", "0", ",", "3"}], "}"}]}], "]"}]}], " ", "+", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "7"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"\[Gamma]5", ".", 
          RowBox[{"CommuteGammadown", "[", 
           RowBox[{"ap", ",", "mu"}], "]"}]}], ")"}], "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"UD", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"Bmn", "[", 
             RowBox[{"ap", ",", "bt"}], "]"}], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
           RowBox[{"\[CapitalStigma]", "[", "bt", "]"}]}], "]"}], ",", 
         RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"ap", ",", "0", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"bt", ",", "0", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}], " "}]}]}]], "Input",\

 CellChangeTimes->{{3.7494085451000586`*^9, 3.7494085523049335`*^9}, {
  3.7494085899690495`*^9, 3.749408615257099*^9}, {3.7494086507852697`*^9, 
  3.749408665345*^9}, {3.7494093016570387`*^9, 3.7494093465610495`*^9}, {
  3.7494095637774105`*^9, 3.749409578217074*^9}, {3.749409653409035*^9, 
  3.7494098016018295`*^9}, {3.7494098348498144`*^9, 3.7494100216819773`*^9}, {
  3.749413397113825*^9, 3.7494133979214287`*^9}, {3.749413438274826*^9, 
  3.749413452297429*^9}, {3.749413537033685*^9, 3.7494138221700463`*^9}, {
  3.749414108162184*^9, 3.7494141833622804`*^9}},
 CellLabel->"In[61]:=",ExpressionUUID->"65b1865d-a6ce-41a9-a15b-f3ab9ee61b6a"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"ZTable", "[", "LocalFieldNumber", "]"}], " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Z", "[", "LocalFieldNumber", "]"}], "[", 
       RowBox[{"ii", ",", "jj"}], "]"}], "[", 
      RowBox[{"aa", ",", "bb"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7494086675397387`*^9, 3.749408718609185*^9}, {
  3.7494087673051147`*^9, 3.7494087768495007`*^9}},
 CellLabel->"In[62]:=",ExpressionUUID->"8871309a-76be-4df0-b22c-9e674dc60bff"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"AlgebraDDMinusClosure", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", 
   
   RowBox[{"(", 
    RowBox[{"Collect", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"AlgebraDD", "[", 
            RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalField", "]"}], " ",
           "-", " ", 
          RowBox[{"ZTable", "[", "LocalFieldNumber", "]"}]}], ")"}], "/.", 
        "LagrangianParameters"}], "/.", "VtoPauli"}], ",", 
      "FieldListWithDerivatives", ",", "Simplify"}], "]"}], ")"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.7474929944818563`*^9, 3.7474930651472597`*^9}, {
  3.747493152219424*^9, 3.7474932477784343`*^9}, {3.7474934178914785`*^9, 
  3.7474934832105627`*^9}, {3.7474935638267813`*^9, 3.747493591801224*^9}, {
  3.7474963739738455`*^9, 3.7474964449288054`*^9}, {3.748795026042665*^9, 
  3.748795027776865*^9}, {3.748965282772246*^9, 3.7489652841431913`*^9}, {
  3.748967256264186*^9, 3.7489672582499332`*^9}, {3.7494004185551434`*^9, 
  3.7494004426991215`*^9}, {3.7494086299617586`*^9, 3.749408647033921*^9}, {
  3.7494087803530507`*^9, 3.7494087808412037`*^9}},
 CellLabel->"In[63]:=",ExpressionUUID->"4a8a492a-c2bb-40b3-b48c-2cfab9504469"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"AlgebraDDEqs", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", 
   "=", " ", 
   RowBox[{
    RowBox[{"DeleteCases", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"Coefficient", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"AlgebraDDMinusClosure", "[", 
                 RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", 
                "]"}], "[", 
               RowBox[{"[", 
                RowBox[{"ii", ",", "aa", ",", "jj", ",", "bb"}], "]"}], "]"}],
               ",", 
              RowBox[{"FieldListWithDerivatives", "[", 
               RowBox[{"[", "FieldListIndex", "]"}], "]"}]}], "]"}], ")"}], 
           "\[Equal]", "0"}], ",", 
          RowBox[{"{", 
           RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"FieldListIndex", ",", "1", ",", 
            RowBox[{"Length", "[", "FieldListWithDerivatives", "]"}]}], 
           "}"}]}], "]"}], "//", "Simplify"}], "//", "Flatten"}], ",", 
      "True"}], "]"}], "//", "DeleteDuplicates"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7474933413160763`*^9, 3.7474934023534203`*^9}, {
   3.747493509609391*^9, 3.7474935432809353`*^9}, {3.7474936064895945`*^9, 
   3.7474936161297655`*^9}, {3.7474936564987297`*^9, 3.747493747940831*^9}, {
   3.747493832482408*^9, 3.7474938407374077`*^9}, {3.747496458745552*^9, 
   3.7474964697370515`*^9}, 3.7475105609270287`*^9, {3.748795270744809*^9, 
   3.748795274222528*^9}, {3.74879531011075*^9, 3.748795321437098*^9}, {
   3.748795652987978*^9, 3.748795656902155*^9}, {3.748965289858489*^9, 
   3.748965292697112*^9}, {3.748967259459038*^9, 3.748967260813509*^9}, {
   3.7489708313422194`*^9, 3.7489708325427723`*^9}, {3.749400458403777*^9, 
   3.749400461474213*^9}},
 CellLabel->"In[64]:=",ExpressionUUID->"7860e437-b8dc-44ef-b903-75405e752b80"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "[", 
  RowBox[{
   RowBox[{"AlgebraDDEqs", "[", 
    RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.747493880500272*^9, 3.7474938897376738`*^9}, {
   3.7474964759857783`*^9, 3.747496478481014*^9}, 3.748967263446204*^9},
 CellLabel->"In[65]:=",ExpressionUUID->"a4827f82-db38-4404-847e-ecf2f332b8df"],

Cell[BoxData["53"], "Output",
 CellChangeTimes->{3.749402369344755*^9, 3.7494025812692585`*^9, 
  3.7494101413703766`*^9, 3.7494118150094*^9, 3.749411943930292*^9, 
  3.7494138961322794`*^9, 3.7494142148169713`*^9, 3.749482072697443*^9, 
  3.749482606295091*^9, 3.7494833767030687`*^9, 3.749497515153597*^9, 
  3.7494995265544415`*^9, 3.749499703981557*^9, 3.7494999833685102`*^9, 
  3.749557125502653*^9, 3.7495600767126403`*^9, 3.749841849480318*^9, 
  3.749858016116412*^9, 3.760471515722523*^9},
 CellLabel->"Out[65]=",ExpressionUUID->"fc9fe0de-7860-4eab-9209-2274850a96d3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ZSolutions", "[", "LocalFieldNumber", "]"}], " ", "=", " ", 
  RowBox[{
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"AlgebraDDEqs", "[", 
       RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], 
     ",", 
     RowBox[{"CentralChargeList", "[", "LocalFieldNumber", "]"}]}], "]"}], "//",
    "Flatten"}]}]], "Input",
 CellChangeTimes->{{3.7494088104519863`*^9, 3.749408859016982*^9}, 
   3.749410151970128*^9, {3.749483365325415*^9, 3.74948336653946*^9}},
 CellLabel->"In[66]:=",ExpressionUUID->"c10c8467-deea-4028-91c2-2b439c8bbaea"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"4", ",", "1", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "4", "]"}], "[", "3", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "10", "]"}], "[", "3", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"4", ",", "1", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "4", "]"}], "[", "2", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "10", "]"}], "[", "2", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"4", ",", "1", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "4", "]"}], "[", "1", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "10", "]"}], "[", "1", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"4", ",", "1", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "4", "]"}], "[", "0", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "10", "]"}], "[", "0", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"4", ",", "2", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "4", "]"}], "[", "0", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "7", "]"}], "[", "3", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"4", ",", "2", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "4", "]"}], "[", "1", "]"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "7", "]"}], "[", "2", "]"}]}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"4", ",", "2", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "4", "]"}], "[", "2", "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "7", "]"}], "[", "1", "]"}]}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"4", ",", "2", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "4", "]"}], "[", "3", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "7", "]"}], "[", "0", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"4", ",", "3", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "4", "]"}], "[", "0", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "8", "]"}], "[", "3", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"4", ",", "3", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "4", "]"}], "[", "1", "]"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "8", "]"}], "[", "2", "]"}]}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"4", ",", "3", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "4", "]"}], "[", "2", "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "8", "]"}], "[", "1", "]"}]}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"4", ",", "3", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "4", "]"}], "[", "3", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "8", "]"}], "[", "0", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"4", ",", "4", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "4", "]"}], "[", "0", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "9", "]"}], "[", "3", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"4", ",", "4", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "4", "]"}], "[", "1", "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "9", "]"}], "[", "2", "]"}]}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"4", ",", "4", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "4", "]"}], "[", "2", "]"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "9", "]"}], "[", "1", "]"}]}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"4", ",", "4", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "4", "]"}], "[", "3", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "9", "]"}], "[", "0", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"4", ",", "5", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "4", "]"}], "[", "1", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "11", "]"}], "[", "3", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"4", ",", "5", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "4", "]"}], "[", "0", "]"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "11", "]"}], "[", "2", "]"}]}]}], ")"}]}]}], ",", 
   
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"4", ",", "5", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "4", "]"}], "[", "3", "]"}]}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "11", "]"}], "[", "1", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"4", ",", "5", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "4", "]"}], "[", "2", "]"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "11", "]"}], "[", "0", "]"}]}]}], ")"}]}]}], ",", 
   
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"4", ",", "6", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "4", "]"}], "[", "2", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "3", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"4", ",", "6", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "4", "]"}], "[", "3", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "2", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"4", ",", "6", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "4", "]"}], "[", "0", "]"}]}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "12", "]"}], "[", "1", "]"}]}]}], ")"}]}]}], ",", 
   
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"4", ",", "6", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "4", "]"}], "[", "1", "]"}]}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "12", "]"}], "[", "0", "]"}]}]}], ")"}]}]}], ",", 
   
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"4", ",", "7", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", "\[ImaginaryI]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "4", "]"}], "[", "2", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "3", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"4", ",", "7", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{
       RowBox[{"cv", "[", "4", "]"}], "[", "3", "]"}]}], "-", 
     RowBox[{
      RowBox[{"cv", "[", "12", "]"}], "[", "2", "]"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"4", ",", "7", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{
      RowBox[{"cv", "[", "4", "]"}], "[", "0", "]"}], "+", 
     RowBox[{"\[ImaginaryI]", " ", 
      RowBox[{
       RowBox[{"cv", "[", "12", "]"}], "[", "1", "]"}]}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"4", ",", "7", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{
      RowBox[{"cv", "[", "4", "]"}], "[", "1", "]"}], "+", 
     RowBox[{"\[ImaginaryI]", " ", 
      RowBox[{
       RowBox[{"cv", "[", "12", "]"}], "[", "0", "]"}]}]}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.749410161019311*^9, 3.7494118151681185`*^9, 
  3.749411943964021*^9, 3.749413896188343*^9, 3.749414214858148*^9, 
  3.7494820727683873`*^9, 3.7494826063689833`*^9, 3.749483376732319*^9, 
  3.7494975152279973`*^9, 3.749499526628346*^9, 3.7494997040514927`*^9, 
  3.749499983426061*^9, 3.749557125560302*^9, 3.749560076772715*^9, 
  3.7498418495730963`*^9, 3.7498580162131166`*^9, 3.760471515791175*^9},
 CellLabel->"Out[66]=",ExpressionUUID->"9bc68bb6-7609-4a5a-a863-80157e40e00f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ZSolutions", "[", "LocalFieldNumber", "]"}], "/.", 
  "ThisOneLooksGood"}]], "Input",
 CellChangeTimes->{{3.74941018974783*^9, 3.749410287570263*^9}, {
  3.7494103263941903`*^9, 3.749410332177493*^9}, {3.7494105274987097`*^9, 
  3.749410537744815*^9}, {3.749410571657837*^9, 3.74941074716068*^9}, {
  3.749411058139544*^9, 3.749411062568898*^9}, {3.7494115446973157`*^9, 
  3.749411545947426*^9}},
 CellLabel->"In[67]:=",ExpressionUUID->"3a5f3701-d890-4bcb-8cb7-a82aa3f934fd"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"4", ",", "1", ",", "0"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"4", ",", "1", ",", "1"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"4", ",", "1", ",", "2"}], "]"}], "\[Rule]", "1"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"4", ",", "1", ",", "3"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"4", ",", "2", ",", "0"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"4", ",", "2", ",", "1"}], "]"}], "\[Rule]", "1"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"4", ",", "2", ",", "2"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"4", ",", "2", ",", "3"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"4", ",", "3", ",", "0"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"4", ",", "3", ",", "1"}], "]"}], "\[Rule]", "1"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"4", ",", "3", ",", "2"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"4", ",", "3", ",", "3"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"4", ",", "4", ",", "0"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"4", ",", "4", ",", "1"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"4", ",", "4", ",", "2"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"4", ",", "4", ",", "3"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"4", ",", "5", ",", "0"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"4", ",", "5", ",", "1"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"4", ",", "5", ",", "2"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"4", ",", "5", ",", "3"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"4", ",", "6", ",", "0"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"4", ",", "6", ",", "1"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"4", ",", "6", ",", "2"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"4", ",", "6", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{"-", "1"}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"4", ",", "7", ",", "0"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"4", ",", "7", ",", "1"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"4", ",", "7", ",", "2"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"4", ",", "7", ",", "3"}], "]"}], "\[Rule]", "2"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.7494102039148035`*^9, 3.749410237595869*^9}, {
   3.74941027060384*^9, 3.7494102895686717`*^9}, 3.7494103337499733`*^9, {
   3.7494105397146406`*^9, 3.7494106769721236`*^9}, {3.7494107155458097`*^9, 
   3.7494107477202597`*^9}, 3.7494110672432184`*^9, 3.749411815181512*^9, 
   3.7494119439892807`*^9, 3.749413896206716*^9, 3.749414214877533*^9, 
   3.74948207278376*^9, 3.749482606384819*^9, 3.7494833767585664`*^9, 
   3.749497515243477*^9, 3.749499526646243*^9, 3.7494997040669107`*^9, 
   3.7494999834414415`*^9, 3.749557125576112*^9, 3.7495600767861433`*^9, 
   3.749841849591976*^9, 3.7498580163120832`*^9, 3.7604715158053007`*^9},
 CellLabel->"Out[67]=",ExpressionUUID->"886a18ec-5df5-4cfd-80f1-131bd884c607"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       SubsuperscriptBox["D", "a", "i"], ",", 
       SubsuperscriptBox[
        OverscriptBox["D", "~"], "b", "j"]}], "}"}], "G"}], "=", " ", 
    RowBox[{
     RowBox[{"2", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "1"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Gamma]", "5"], ")"}], "ab"], 
      RowBox[{"\[Square]", 
       OverscriptBox["A", "~"]}]}], " ", "+", 
     RowBox[{"2", "i", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "2"}], "]"}], "ij"], 
      SubscriptBox["C", "ab"], 
      RowBox[{"\[Square]", " ", 
       OverscriptBox["B", "~"]}]}], " ", "+", 
     RowBox[{"2", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "3"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["\[Gamma]", "5"], 
         SuperscriptBox["\[Gamma]", "\[Mu]"]}], ")"}], "ab"], 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Mu]"], 
       OverscriptBox["F", "~"]}]}], "+", 
     RowBox[{"2", " ", "i", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "4"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Mu]"], 
       OverscriptBox["G", "~"]}]}], "+", 
     RowBox[{"2", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "5"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Gamma]", "5"], ")"}], "ab"], 
      RowBox[{"\[Square]", "\[CurlyPhi]"}]}], "+", " ", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "6"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["\[Gamma]", "5"], "[", 
         RowBox[{
          SuperscriptBox["\[Gamma]", "\[Alpha]"], ",", 
          SuperscriptBox["\[Gamma]", "\[Beta]"]}], "]"}], ")"}], "ab"], 
      RowBox[{"\[Square]", 
       SubscriptBox["B", "\[Alpha]\[Beta]"]}]}], "+", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "7"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["\[Gamma]", "5"], "[", 
         RowBox[{
          SuperscriptBox["\[Gamma]", "\[Alpha]"], ",", 
          SuperscriptBox["\[Gamma]", "\[Mu]"]}], "]"}], ")"}], "ab"], 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Mu]"], 
       RowBox[{
        SuperscriptBox["\[PartialD]", "\[Beta]"], 
        SubscriptBox["B", "\[Alpha]\[Beta]"]}]}]}]}]}], TraditionalForm]], 
  "None",ExpressionUUID->"c1f8ccfa-b3d6-4056-986a-772d23f1877c"],
 " \[LineSeparator]lfn = FieldNumber = 4"
}], "Subsubsection",
 CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, {
   3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 
   3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 
   3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, {
   3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7467956828758698`*^9, 
   3.746795686091745*^9}, {3.747486227215621*^9, 3.747486227215621*^9}, {
   3.747497464520861*^9, 3.7474974673291535`*^9}, {3.747497563453846*^9, 
   3.747497563796384*^9}, {3.7489659611441717`*^9, 3.748965973772861*^9}, {
   3.7494024217702255`*^9, 3.7494024217702255`*^9}, {3.7494025157481284`*^9, 
   3.7494025157481284`*^9}, {3.7494139300417395`*^9, 3.749413963042201*^9}, {
   3.7494140539605675`*^9, 
   3.749414102876368*^9}},ExpressionUUID->"3a2453d2-f982-449b-88c5-\
9d08de2be505"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"DeleteCases", "[", 
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Z", "[", 
       RowBox[{"LocalFieldNumber", ",", "nn"}], "]"}], "==", 
      RowBox[{"PrintSigmaProduct", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"ZGen", "[", 
             RowBox[{"LocalFieldNumber", ",", "nn"}], "]"}], "[", 
            RowBox[{"ii", ",", "jj"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"jj", ",", "1", ",", "2"}], "}"}]}], "]"}], "/.", 
         RowBox[{"ZSolutions", "[", "LocalFieldNumber", "]"}]}], "/.", 
        "ThisOneLooksGood"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"nn", ",", "1", ",", "7"}], "}"}]}], "]"}], ",", 
   RowBox[{
    RowBox[{"Z", "[", 
     RowBox[{"_", ",", "_"}], "]"}], "\[Equal]", "0"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"TeXForm", "[", "%", "]"}]}], "Input",
 CellChangeTimes->{{3.7494822949220448`*^9, 3.7494823511478577`*^9}, {
  3.7494823858218775`*^9, 3.7494823877980165`*^9}, {3.7494824283410683`*^9, 
  3.7494824525643225`*^9}, {3.749482667989807*^9, 3.749482671509657*^9}, {
  3.749482703172926*^9, 3.7494827189481516`*^9}, {3.7494827656916285`*^9, 
  3.7494827754041166`*^9}, {3.749482825395954*^9, 3.7494828255808463`*^9}, {
  3.7494830210856953`*^9, 3.749483068325922*^9}, {3.7494831352932143`*^9, 
  3.7494831386363173`*^9}, {3.7494831726363764`*^9, 3.749483186323599*^9}},
 CellLabel->"In[68]:=",ExpressionUUID->"5754f96b-1fa5-41a0-b2d6-15c34c74b48c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"Z", "[", 
     RowBox[{"4", ",", "1"}], "]"}], "\[Equal]", 
    RowBox[{"\[ImaginaryI]", " ", 
     SubscriptBox["\[Sigma]", "2"]}]}], ",", 
   RowBox[{
    RowBox[{"Z", "[", 
     RowBox[{"4", ",", "2"}], "]"}], "\[Equal]", 
    SubscriptBox["\[Sigma]", "1"]}], ",", 
   RowBox[{
    RowBox[{"Z", "[", 
     RowBox[{"4", ",", "3"}], "]"}], "\[Equal]", 
    SubscriptBox["\[Sigma]", "1"]}], ",", 
   RowBox[{
    RowBox[{"Z", "[", 
     RowBox[{"4", ",", "6"}], "]"}], "\[Equal]", 
    RowBox[{"-", 
     SubscriptBox["\[Sigma]", "3"]}]}], ",", 
   RowBox[{
    RowBox[{"Z", "[", 
     RowBox[{"4", ",", "7"}], "]"}], "\[Equal]", 
    RowBox[{"2", " ", 
     SubscriptBox["\[Sigma]", "3"]}]}]}], "}"}]], "Output",
 CellChangeTimes->{{3.749483247013237*^9, 3.749483292006357*^9}, 
   3.7494833767734814`*^9, 3.7494975152573657`*^9, 3.7494995266595926`*^9, 
   3.7494997040802603`*^9, 3.749499983453836*^9, 3.749557125590494*^9, 
   3.7495600768267794`*^9, 3.7498418496053095`*^9, 3.7498580164120493`*^9, 
   3.760471515820882*^9},
 CellLabel->"Out[68]=",ExpressionUUID->"3587c256-69f6-40d3-be0e-88acb6430eb4"],

Cell["\<\
\\left\\{Z(4,1)=i \\sigma _2,Z(4,2)=\\sigma _1,Z(4,3)=\\sigma \
_1,Z(4,6)=-\\sigma _3,Z(4,7)=2 \\sigma _3\\right\\}\
\>", "Output",
 CellChangeTimes->{{3.749483247013237*^9, 3.749483292006357*^9}, 
   3.7494833767734814`*^9, 3.7494975152573657`*^9, 3.7494995266595926`*^9, 
   3.7494997040802603`*^9, 3.749499983453836*^9, 3.749557125590494*^9, 
   3.7495600768267794`*^9, 3.7498418496053095`*^9, 3.7498580164120493`*^9, 
   3.760471515820882*^9},
 CellLabel->
  "Out[69]//TeXForm=",ExpressionUUID->"2872bdba-0816-4593-a26c-686546955e14"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{"LocalField", ",", "LocalFieldNumber"}], "]"}]], "Input",
 CellChangeTimes->{{3.747496499638111*^9, 3.7474965053367357`*^9}},
 CellLabel->"In[70]:=",ExpressionUUID->"d3855c10-153d-4100-a785-a9b8c1181e6c"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       SubsuperscriptBox["D", "a", "i"], ",", 
       SubsuperscriptBox[
        OverscriptBox["D", "~"], "b", "j"]}], "}"}], "d"}], "=", "  ", 
    RowBox[{
     RowBox[{"2", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "1"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Gamma]", "5"], ")"}], "ab"], 
      RowBox[{"\[Square]", 
       OverscriptBox["A", "~"]}]}], " ", "+", 
     RowBox[{"2", "i", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "2"}], "]"}], "ij"], 
      SubscriptBox["C", "ab"], 
      RowBox[{"\[Square]", " ", 
       OverscriptBox["B", "~"]}]}], " ", "+", 
     RowBox[{"2", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "3"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["\[Gamma]", "5"], 
         SuperscriptBox["\[Gamma]", "\[Mu]"]}], ")"}], "ab"], 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Mu]"], 
       OverscriptBox["F", "~"]}]}], "+", 
     RowBox[{"2", " ", "i", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "4"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Mu]"], 
       OverscriptBox["G", "~"]}]}], "+", 
     RowBox[{"2", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "5"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Gamma]", "5"], ")"}], "ab"], 
      RowBox[{"\[Square]", "\[CurlyPhi]"}]}], "+", " ", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "6"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["\[Gamma]", "5"], "[", 
         RowBox[{
          SuperscriptBox["\[Gamma]", "\[Alpha]"], ",", 
          SuperscriptBox["\[Gamma]", "\[Beta]"]}], "]"}], ")"}], "ab"], 
      RowBox[{"\[Square]", 
       SubscriptBox["B", "\[Alpha]\[Beta]"]}]}], "+", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "7"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["\[Gamma]", "5"], "[", 
         RowBox[{
          SuperscriptBox["\[Gamma]", "\[Alpha]"], ",", 
          SuperscriptBox["\[Gamma]", "\[Mu]"]}], "]"}], ")"}], "ab"], 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Mu]"], 
       RowBox[{
        SuperscriptBox["\[PartialD]", "\[Beta]"], 
        SubscriptBox["B", "\[Alpha]\[Beta]"]}]}]}]}]}], TraditionalForm]], 
  "None",ExpressionUUID->"e30bd82f-7e0c-4382-834f-7679f236b2ea"],
 " \nlfn = FieldNumber = 5"
}], "Subsection",
 CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, {
   3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 
   3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 
   3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, {
   3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7467956828758698`*^9, 
   3.746795686091745*^9}, {3.747486227215621*^9, 3.747486227215621*^9}, {
   3.747497464520861*^9, 3.7474974673291535`*^9}, {3.747497563453846*^9, 
   3.747497563796384*^9}, {3.7474976471954*^9, 3.747497647897377*^9}, {
   3.748965962266481*^9, 3.748965979113331*^9}, {3.7494024253551292`*^9, 
   3.7494024253551292`*^9}, {3.749402513284159*^9, 3.7494025132846537`*^9}, {
   3.749414283357444*^9, 
   3.7494142876005898`*^9}},ExpressionUUID->"87550882-def9-4703-91ed-\
f00a0bc9f66c"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalField", " ", "=", " ", 
   RowBox[{"d", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LocalFieldNumber", " ", "=", " ", "5"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"CentralChargeList", "[", "LocalFieldNumber", "]"}], " ", "=", " ", 
  
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"LocalFieldNumber", ",", "FieldNumber", ",", "sigmaNumber"}], 
      "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"FieldNumber", ",", "1", ",", "7"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"sigmaNumber", ",", "0", ",", "3"}], "}"}]}], "]"}], "//", 
   "Flatten"}]}]}], "Input",
 CellChangeTimes->{{3.747496390463257*^9, 3.747496425281234*^9}, {
   3.7474974694092073`*^9, 3.7474974722809887`*^9}, {3.747497566214872*^9, 
   3.747497568821742*^9}, {3.7474976499458833`*^9, 3.7474976533042154`*^9}, 
   3.749414297411073*^9},
 CellLabel->"In[71]:=",ExpressionUUID->"9fe5455f-2c26-43b3-b5d5-09f166597751"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"z", "[", 
    RowBox[{"5", ",", "1", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"5", ",", "1", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"5", ",", "1", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"5", ",", "1", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"5", ",", "2", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"5", ",", "2", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"5", ",", "2", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"5", ",", "2", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"5", ",", "3", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"5", ",", "3", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"5", ",", "3", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"5", ",", "3", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"5", ",", "4", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"5", ",", "4", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"5", ",", "4", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"5", ",", "4", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"5", ",", "5", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"5", ",", "5", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"5", ",", "5", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"5", ",", "5", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"5", ",", "6", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"5", ",", "6", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"5", ",", "6", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"5", ",", "6", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"5", ",", "7", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"5", ",", "7", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"5", ",", "7", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"5", ",", "7", ",", "3"}], "]"}]}], "}"}]], "Output",
 CellChangeTimes->{3.749414337075724*^9, 3.7494820728151226`*^9, 
  3.749482606406149*^9, 3.7494834071104765`*^9, 3.749497515283697*^9, 
  3.749499526687865*^9, 3.749499704105064*^9, 3.749499983478699*^9, 
  3.749557125623233*^9, 3.7495600768630624`*^9, 3.7498418496380453`*^9, 
  3.7498580165268717`*^9, 3.760471515850885*^9},
 CellLabel->"Out[73]=",ExpressionUUID->"0c2b45bb-2186-4828-a44d-48b29b23d31d"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Z", "[", "LocalFieldNumber", "]"}], "[", 
    RowBox[{"ii_", ",", "jj_"}], "]"}], "[", 
   RowBox[{"aa_", ",", "bb_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"2", " ", 
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "1"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"\[Gamma]5down", "[", 
     RowBox[{"[", 
      RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
    RowBox[{"Lap", "[", 
     RowBox[{"At", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], "+", 
   RowBox[{"2", "I", " ", 
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "2"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"Cmetric", "[", 
     RowBox[{"[", 
      RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
    RowBox[{"Lap", "[", 
     RowBox[{"Bt", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], " ", "+", 
   " ", 
   RowBox[{"2", 
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "3"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"Ft", "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
         RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"mu", ",", "0", ",", " ", "3"}], "}"}]}], "]"}]}], "+", " ", 
   RowBox[{"2", " ", "I", " ", 
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "4"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"Gt", "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
         RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"mu", ",", "0", ",", " ", "3"}], "}"}]}], "]"}]}], "+", 
   RowBox[{"2", " ", 
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "5"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"\[Gamma]5down", "[", 
     RowBox[{"[", 
      RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
    RowBox[{"Lap", "[", 
     RowBox[{"\[CurlyPhi]", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], "+", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "6"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"\[Gamma]5", ".", 
          RowBox[{"CommuteGammadown", "[", 
           RowBox[{"ap", ",", "bt"}], "]"}]}], ")"}], "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{"Lap", "[", 
        RowBox[{
         RowBox[{"Bmn", "[", 
          RowBox[{"ap", ",", "bt"}], "]"}], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"ap", ",", "0", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"bt", ",", "0", ",", "3"}], "}"}]}], "]"}]}], " ", "+", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "7"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"\[Gamma]5", ".", 
          RowBox[{"CommuteGammadown", "[", 
           RowBox[{"ap", ",", "mu"}], "]"}]}], ")"}], "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"UD", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"Bmn", "[", 
             RowBox[{"ap", ",", "bt"}], "]"}], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
           RowBox[{"\[CapitalStigma]", "[", "bt", "]"}]}], "]"}], ",", 
         RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"ap", ",", "0", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"bt", ",", "0", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}], " "}]}]}]], "Input",\

 CellChangeTimes->{{3.7494085451000586`*^9, 3.7494085523049335`*^9}, {
  3.7494085899690495`*^9, 3.749408615257099*^9}, {3.7494086507852697`*^9, 
  3.749408665345*^9}, {3.7494093016570387`*^9, 3.7494093465610495`*^9}, {
  3.7494095637774105`*^9, 3.749409578217074*^9}, {3.749409653409035*^9, 
  3.7494098016018295`*^9}, {3.7494098348498144`*^9, 3.7494100216819773`*^9}, {
  3.749413397113825*^9, 3.7494133979214287`*^9}, {3.749413438274826*^9, 
  3.749413452297429*^9}, {3.749413537033685*^9, 3.7494138221700463`*^9}, {
  3.749414108162184*^9, 3.7494141833622804`*^9}},
 CellLabel->"In[74]:=",ExpressionUUID->"9c73824b-58c6-4e4b-8ee2-418acb1e7882"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"ZTable", "[", "LocalFieldNumber", "]"}], " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Z", "[", "LocalFieldNumber", "]"}], "[", 
       RowBox[{"ii", ",", "jj"}], "]"}], "[", 
      RowBox[{"aa", ",", "bb"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7494086675397387`*^9, 3.749408718609185*^9}, {
  3.7494087673051147`*^9, 3.7494087768495007`*^9}},
 CellLabel->"In[75]:=",ExpressionUUID->"ac9a69f0-710b-43e2-84d6-9911098f1a9d"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"AlgebraDDMinusClosure", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", 
   
   RowBox[{"(", 
    RowBox[{"Collect", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"AlgebraDD", "[", 
            RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalField", "]"}], " ",
           "-", " ", 
          RowBox[{"ZTable", "[", "LocalFieldNumber", "]"}]}], ")"}], "/.", 
        "LagrangianParameters"}], "/.", "VtoPauli"}], ",", 
      "FieldListWithDerivatives", ",", "Simplify"}], "]"}], ")"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.7474929944818563`*^9, 3.7474930651472597`*^9}, {
  3.747493152219424*^9, 3.7474932477784343`*^9}, {3.7474934178914785`*^9, 
  3.7474934832105627`*^9}, {3.7474935638267813`*^9, 3.747493591801224*^9}, {
  3.7474963739738455`*^9, 3.7474964449288054`*^9}, {3.748795026042665*^9, 
  3.748795027776865*^9}, {3.748965282772246*^9, 3.7489652841431913`*^9}, {
  3.748967256264186*^9, 3.7489672582499332`*^9}, {3.7494004185551434`*^9, 
  3.7494004426991215`*^9}, {3.7494086299617586`*^9, 3.749408647033921*^9}, {
  3.7494087803530507`*^9, 3.7494087808412037`*^9}},
 CellLabel->"In[76]:=",ExpressionUUID->"93133ce8-1c7d-4e0d-87bf-d912f1b18670"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"AlgebraDDEqs", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", 
   "=", " ", 
   RowBox[{
    RowBox[{"DeleteCases", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"Coefficient", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"AlgebraDDMinusClosure", "[", 
                 RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", 
                "]"}], "[", 
               RowBox[{"[", 
                RowBox[{"ii", ",", "aa", ",", "jj", ",", "bb"}], "]"}], "]"}],
               ",", 
              RowBox[{"FieldListWithDerivatives", "[", 
               RowBox[{"[", "FieldListIndex", "]"}], "]"}]}], "]"}], ")"}], 
           "\[Equal]", "0"}], ",", 
          RowBox[{"{", 
           RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"FieldListIndex", ",", "1", ",", 
            RowBox[{"Length", "[", "FieldListWithDerivatives", "]"}]}], 
           "}"}]}], "]"}], "//", "Simplify"}], "//", "Flatten"}], ",", 
      "True"}], "]"}], "//", "DeleteDuplicates"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7474933413160763`*^9, 3.7474934023534203`*^9}, {
   3.747493509609391*^9, 3.7474935432809353`*^9}, {3.7474936064895945`*^9, 
   3.7474936161297655`*^9}, {3.7474936564987297`*^9, 3.747493747940831*^9}, {
   3.747493832482408*^9, 3.7474938407374077`*^9}, {3.747496458745552*^9, 
   3.7474964697370515`*^9}, 3.7475105609270287`*^9, {3.748795270744809*^9, 
   3.748795274222528*^9}, {3.74879531011075*^9, 3.748795321437098*^9}, {
   3.748795652987978*^9, 3.748795656902155*^9}, {3.748965289858489*^9, 
   3.748965292697112*^9}, {3.748967259459038*^9, 3.748967260813509*^9}, {
   3.7489708313422194`*^9, 3.7489708325427723`*^9}, {3.749400458403777*^9, 
   3.749400461474213*^9}},
 CellLabel->"In[77]:=",ExpressionUUID->"a1c29061-a703-49bf-9e52-509bb00c4220"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "[", 
  RowBox[{
   RowBox[{"AlgebraDDEqs", "[", 
    RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.747493880500272*^9, 3.7474938897376738`*^9}, {
   3.7474964759857783`*^9, 3.747496478481014*^9}, 3.748967263446204*^9},
 CellLabel->"In[78]:=",ExpressionUUID->"a4e4a1c3-ed07-4c09-8934-4cde54578d3e"],

Cell[BoxData["64"], "Output",
 CellChangeTimes->{3.749402369344755*^9, 3.7494025812692585`*^9, 
  3.7494101413703766`*^9, 3.7494118150094*^9, 3.749411943930292*^9, 
  3.7494138961322794`*^9, 3.7494142148169713`*^9, 3.749414339084527*^9, 
  3.749482074557537*^9, 3.74948260814509*^9, 3.7494834088439903`*^9, 
  3.7494975171937485`*^9, 3.749499528508191*^9, 3.7494997059224043`*^9, 
  3.7494999853024135`*^9, 3.7495571273026867`*^9, 3.7495600785744324`*^9, 
  3.749841851507929*^9, 3.74985801858498*^9, 3.7604715175610085`*^9},
 CellLabel->"Out[78]=",ExpressionUUID->"60aebff3-8be6-4cb0-815e-da500041ca6e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ZSolutions", "[", "LocalFieldNumber", "]"}], " ", "=", " ", 
  RowBox[{
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"AlgebraDDEqs", "[", 
       RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], 
     ",", 
     RowBox[{"CentralChargeList", "[", "LocalFieldNumber", "]"}]}], "]"}], "//",
    "Flatten"}]}]], "Input",
 CellChangeTimes->{{3.7494088104519863`*^9, 3.749408859016982*^9}, 
   3.749410151970128*^9, {3.7494833928212175`*^9, 3.749483394083682*^9}},
 CellLabel->"In[79]:=",ExpressionUUID->"0f4a6791-aa86-48e6-a204-c556ece80135"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"5", ",", "1", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "6", "]"}], "[", "3", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "10", "]"}], "[", "1", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"5", ",", "1", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "6", "]"}], "[", "2", "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "10", "]"}], "[", "0", "]"}]}]}], ")"}]}]}], ",", 
   
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"5", ",", "1", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "6", "]"}], "[", "1", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "10", "]"}], "[", "3", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"5", ",", "1", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "6", "]"}], "[", "0", "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "10", "]"}], "[", "2", "]"}]}]}], ")"}]}]}], ",", 
   
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"5", ",", "2", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "6", "]"}], "[", "0", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "7", "]"}], "[", "1", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"5", ",", "2", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "6", "]"}], "[", "1", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "7", "]"}], "[", "0", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"5", ",", "2", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "6", "]"}], "[", "2", "]"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "7", "]"}], "[", "3", "]"}]}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"5", ",", "2", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "6", "]"}], "[", "3", "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "7", "]"}], "[", "2", "]"}]}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"5", ",", "3", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "6", "]"}], "[", "0", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "8", "]"}], "[", "1", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"5", ",", "3", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "6", "]"}], "[", "1", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "8", "]"}], "[", "0", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"5", ",", "3", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "6", "]"}], "[", "2", "]"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "8", "]"}], "[", "3", "]"}]}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"5", ",", "3", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "6", "]"}], "[", "3", "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "8", "]"}], "[", "2", "]"}]}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"5", ",", "4", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "6", "]"}], "[", "0", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "9", "]"}], "[", "1", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"5", ",", "4", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "6", "]"}], "[", "1", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "9", "]"}], "[", "0", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"5", ",", "4", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "6", "]"}], "[", "2", "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "9", "]"}], "[", "3", "]"}]}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"5", ",", "4", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "6", "]"}], "[", "3", "]"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "9", "]"}], "[", "2", "]"}]}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"5", ",", "5", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "6", "]"}], "[", "1", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "11", "]"}], "[", "1", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"5", ",", "5", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "6", "]"}], "[", "0", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "11", "]"}], "[", "0", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"5", ",", "5", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "6", "]"}], "[", "3", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "11", "]"}], "[", "3", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"5", ",", "5", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "6", "]"}], "[", "2", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "11", "]"}], "[", "2", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"5", ",", "6", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "6", "]"}], "[", "2", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "1", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"5", ",", "6", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "6", "]"}], "[", "3", "]"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "12", "]"}], "[", "0", "]"}]}]}], ")"}]}]}], ",", 
   
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"5", ",", "6", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "6", "]"}], "[", "0", "]"}]}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "12", "]"}], "[", "3", "]"}]}]}], ")"}]}]}], ",", 
   
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"5", ",", "6", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "6", "]"}], "[", "1", "]"}]}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "2", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"5", ",", "7", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", "\[ImaginaryI]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "6", "]"}], "[", "2", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "1", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"5", ",", "7", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{
       RowBox[{"cv", "[", "6", "]"}], "[", "3", "]"}]}], "+", 
     RowBox[{"\[ImaginaryI]", " ", 
      RowBox[{
       RowBox[{"cv", "[", "12", "]"}], "[", "0", "]"}]}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"5", ",", "7", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{
      RowBox[{"cv", "[", "6", "]"}], "[", "0", "]"}], "-", 
     RowBox[{"\[ImaginaryI]", " ", 
      RowBox[{
       RowBox[{"cv", "[", "12", "]"}], "[", "3", "]"}]}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"5", ",", "7", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{
      RowBox[{"cv", "[", "6", "]"}], "[", "1", "]"}], "+", 
     RowBox[{
      RowBox[{"cv", "[", "12", "]"}], "[", "2", "]"}]}]}]}], "}"}]], "Output",\

 CellChangeTimes->{3.749410161019311*^9, 3.7494118151681185`*^9, 
  3.749411943964021*^9, 3.749413896188343*^9, 3.749414214858148*^9, 
  3.749414339169836*^9, 3.749482074635024*^9, 3.7494826082185416`*^9, 
  3.7494834088757353`*^9, 3.7494975172270355`*^9, 3.749499528583643*^9, 
  3.7494997060008173`*^9, 3.7494999853599496`*^9, 3.7495571273607264`*^9, 
  3.7495600786284933`*^9, 3.749841851601672*^9, 3.7498580186799192`*^9, 
  3.7604715176243815`*^9},
 CellLabel->"Out[79]=",ExpressionUUID->"3da3e802-2b41-491f-a825-ce1a8b8582c3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ZSolutions", "[", "LocalFieldNumber", "]"}], "/.", 
  "ThisOneLooksGood"}]], "Input",
 CellChangeTimes->{{3.74941018974783*^9, 3.749410287570263*^9}, {
  3.7494103263941903`*^9, 3.749410332177493*^9}, {3.7494105274987097`*^9, 
  3.749410537744815*^9}, {3.749410571657837*^9, 3.74941074716068*^9}, {
  3.749411058139544*^9, 3.749411062568898*^9}, {3.7494115446973157`*^9, 
  3.749411545947426*^9}},
 CellLabel->"In[80]:=",ExpressionUUID->"2e5baa45-1f75-4678-b9a9-379db85e4789"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"5", ",", "1", ",", "0"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"5", ",", "1", ",", "1"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"5", ",", "1", ",", "2"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"5", ",", "1", ",", "3"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"5", ",", "2", ",", "0"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"5", ",", "2", ",", "1"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"5", ",", "2", ",", "2"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"5", ",", "2", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{"-", "1"}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"5", ",", "3", ",", "0"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"5", ",", "3", ",", "1"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"5", ",", "3", ",", "2"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"5", ",", "3", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{"-", "1"}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"5", ",", "4", ",", "0"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"5", ",", "4", ",", "1"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"5", ",", "4", ",", "2"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"5", ",", "4", ",", "3"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"5", ",", "5", ",", "0"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"5", ",", "5", ",", "1"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"5", ",", "5", ",", "2"}], "]"}], "\[Rule]", "1"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"5", ",", "5", ",", "3"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"5", ",", "6", ",", "0"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"5", ",", "6", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{"-", "1"}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"5", ",", "6", ",", "2"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"5", ",", "6", ",", "3"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"5", ",", "7", ",", "0"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"5", ",", "7", ",", "1"}], "]"}], "\[Rule]", "2"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"5", ",", "7", ",", "2"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"5", ",", "7", ",", "3"}], "]"}], "\[Rule]", "0"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.7494102039148035`*^9, 3.749410237595869*^9}, {
   3.74941027060384*^9, 3.7494102895686717`*^9}, 3.7494103337499733`*^9, {
   3.7494105397146406`*^9, 3.7494106769721236`*^9}, {3.7494107155458097`*^9, 
   3.7494107477202597`*^9}, 3.7494110672432184`*^9, 3.749411815181512*^9, 
   3.7494119439892807`*^9, 3.749413896206716*^9, 3.749414214877533*^9, 
   3.749414339193216*^9, 3.7494820746508493`*^9, 3.7494826082338743`*^9, 
   3.7494834088965626`*^9, 3.749497517241925*^9, 3.749499528601433*^9, 
   3.7494997060181427`*^9, 3.7494999853743324`*^9, 3.749557127377094*^9, 
   3.749560078653823*^9, 3.7498418516195283`*^9, 3.7498580187788982`*^9, 
   3.760471517644282*^9},
 CellLabel->"Out[80]=",ExpressionUUID->"46621f8c-b86e-43d0-853c-3dcd07e6edb8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       SubsuperscriptBox["D", "a", "i"], ",", 
       SubsuperscriptBox[
        OverscriptBox["D", "~"], "b", "j"]}], "}"}], "d"}], "=", "  ", 
    RowBox[{
     RowBox[{"2", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "1"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Gamma]", "5"], ")"}], "ab"], 
      RowBox[{"\[Square]", 
       OverscriptBox["A", "~"]}]}], " ", "+", 
     RowBox[{"2", "i", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "2"}], "]"}], "ij"], 
      SubscriptBox["C", "ab"], 
      RowBox[{"\[Square]", " ", 
       OverscriptBox["B", "~"]}]}], " ", "+", 
     RowBox[{"2", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "3"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["\[Gamma]", "5"], 
         SuperscriptBox["\[Gamma]", "\[Mu]"]}], ")"}], "ab"], 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Mu]"], 
       OverscriptBox["F", "~"]}]}], "+", 
     RowBox[{"2", " ", "i", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "4"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Mu]"], 
       OverscriptBox["G", "~"]}]}], "+", 
     RowBox[{"2", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "5"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Gamma]", "5"], ")"}], "ab"], 
      RowBox[{"\[Square]", "\[CurlyPhi]"}]}], "+", " ", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "6"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["\[Gamma]", "5"], "[", 
         RowBox[{
          SuperscriptBox["\[Gamma]", "\[Alpha]"], ",", 
          SuperscriptBox["\[Gamma]", "\[Beta]"]}], "]"}], ")"}], "ab"], 
      RowBox[{"\[Square]", 
       SubscriptBox["B", "\[Alpha]\[Beta]"]}]}], "+", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "7"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["\[Gamma]", "5"], "[", 
         RowBox[{
          SuperscriptBox["\[Gamma]", "\[Alpha]"], ",", 
          SuperscriptBox["\[Gamma]", "\[Mu]"]}], "]"}], ")"}], "ab"], 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Mu]"], 
       RowBox[{
        SuperscriptBox["\[PartialD]", "\[Beta]"], 
        SubscriptBox["B", "\[Alpha]\[Beta]"]}]}]}]}]}], TraditionalForm]], 
  "None",ExpressionUUID->"bcbf7281-dab5-4aac-a6a4-ce08e9595cdd"],
 " \nlfn = FieldNumber = 5"
}], "Subsubsection",
 CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, {
   3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 
   3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 
   3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, {
   3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7467956828758698`*^9, 
   3.746795686091745*^9}, {3.747486227215621*^9, 3.747486227215621*^9}, {
   3.747497464520861*^9, 3.7474974673291535`*^9}, {3.747497563453846*^9, 
   3.747497563796384*^9}, {3.7474976471954*^9, 3.747497647897377*^9}, {
   3.748965962266481*^9, 3.748965979113331*^9}, {3.7494024253551292`*^9, 
   3.7494024253551292`*^9}, {3.749402513284159*^9, 3.7494025132846537`*^9}, {
   3.749414283357444*^9, 
   3.7494142876005898`*^9}},ExpressionUUID->"d417d30b-8e31-446e-b228-\
2f28859864c0"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DeleteCases", "[", 
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Z", "[", 
       RowBox[{"LocalFieldNumber", ",", "nn"}], "]"}], "==", 
      RowBox[{"PrintSigmaProduct", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"ZGen", "[", 
             RowBox[{"LocalFieldNumber", ",", "nn"}], "]"}], "[", 
            RowBox[{"ii", ",", "jj"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"jj", ",", "1", ",", "2"}], "}"}]}], "]"}], "/.", 
         RowBox[{"ZSolutions", "[", "LocalFieldNumber", "]"}]}], "/.", 
        "ThisOneLooksGood"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"nn", ",", "1", ",", "7"}], "}"}]}], "]"}], ",", 
   RowBox[{
    RowBox[{"Z", "[", 
     RowBox[{"_", ",", "_"}], "]"}], "\[Equal]", "0"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7494822949220448`*^9, 3.7494823511478577`*^9}, {
   3.7494823858218775`*^9, 3.7494823877980165`*^9}, {3.7494824283410683`*^9, 
   3.7494824525643225`*^9}, {3.749482667989807*^9, 3.749482671509657*^9}, {
   3.749482703172926*^9, 3.7494827189481516`*^9}, {3.7494827656916285`*^9, 
   3.7494827754041166`*^9}, {3.749482825395954*^9, 3.7494828255808463`*^9}, {
   3.7494830210856953`*^9, 3.749483068325922*^9}, {3.7494831352932143`*^9, 
   3.7494831386363173`*^9}, {3.7494831726363764`*^9, 3.749483186323599*^9}, 
   3.7494834035486555`*^9},
 CellLabel->"In[81]:=",ExpressionUUID->"ff0928f0-dd4e-4b34-bfe3-a82c551be875"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"Z", "[", 
     RowBox[{"5", ",", "2"}], "]"}], "\[Equal]", 
    RowBox[{"-", 
     SubscriptBox["\[Sigma]", "3"]}]}], ",", 
   RowBox[{
    RowBox[{"Z", "[", 
     RowBox[{"5", ",", "3"}], "]"}], "\[Equal]", 
    RowBox[{"-", 
     SubscriptBox["\[Sigma]", "3"]}]}], ",", 
   RowBox[{
    RowBox[{"Z", "[", 
     RowBox[{"5", ",", "5"}], "]"}], "\[Equal]", 
    RowBox[{"\[ImaginaryI]", " ", 
     SubscriptBox["\[Sigma]", "2"]}]}], ",", 
   RowBox[{
    RowBox[{"Z", "[", 
     RowBox[{"5", ",", "6"}], "]"}], "\[Equal]", 
    RowBox[{"-", 
     SubscriptBox["\[Sigma]", "1"]}]}], ",", 
   RowBox[{
    RowBox[{"Z", "[", 
     RowBox[{"5", ",", "7"}], "]"}], "\[Equal]", 
    RowBox[{"2", " ", 
     SubscriptBox["\[Sigma]", "1"]}]}]}], "}"}]], "Output",
 CellChangeTimes->{{3.749483247013237*^9, 3.749483292006357*^9}, 
   3.749483408913932*^9, 3.749497517258789*^9, 3.749499528618333*^9, 
   3.7494997060315237`*^9, 3.749499985386236*^9, 3.7495571273870134`*^9, 
   3.749560078670732*^9, 3.749841851633417*^9, 3.749858018879006*^9, 
   3.760471517655504*^9},
 CellLabel->"Out[81]=",ExpressionUUID->"e8a01c51-b42c-470f-955e-6d388b7ffa8e"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{"LocalField", ",", "LocalFieldNumber"}], "]"}]], "Input",
 CellChangeTimes->{{3.747496499638111*^9, 3.7474965053367357`*^9}},
 CellLabel->"In[82]:=",ExpressionUUID->"8b15ebb6-fb5a-4adb-8948-6c4560fd2950"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       SubsuperscriptBox["D", "a", "i"], ",", 
       SubsuperscriptBox[
        OverscriptBox["D", "~"], "b", "j"]}], "}"}], "At"}], "=", " ", 
    RowBox[{
     RowBox[{"2", "i", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "1"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Mu]"], "A"}]}], " ", "+", 
     RowBox[{"2", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "2"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["\[Gamma]", "5"], 
         SuperscriptBox["\[Gamma]", "\[Mu]"]}], ")"}], "ab"], 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Mu]"], "B"}]}], " ", "+", 
     RowBox[{"2", "i", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "3"}], "]"}], "ij"], 
      SubscriptBox["C", "ab"], "F"}], "+", 
     RowBox[{"2", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "4"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Gamma]", "5"], ")"}], "ab"], "G"}], "+", 
     RowBox[{"2", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "5"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Gamma]", "5"], ")"}], "ab"], "d"}], " ", "+", 
     RowBox[{"i", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "6"}], "]"}], "ij"], 
      SubscriptBox["C", "ab"], 
      RowBox[{
       SuperscriptBox["\[PartialD]", "\[Mu]"], 
       SubscriptBox["A", "\[Mu]"]}]}], "+", 
     RowBox[{"i", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "7"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        RowBox[{"[", 
         RowBox[{
          SuperscriptBox["\[Gamma]", "\[Mu]"], ",", 
          SuperscriptBox["\[Gamma]", "\[Nu]"]}], "]"}], ")"}], "ab"], 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Mu]"], 
       SubscriptBox["A", "\[Nu]"], " "}]}]}]}], TraditionalForm]], "None",
  ExpressionUUID->"b9b56d61-3405-4063-bcda-b5046957e481"],
 " \nlfn = FieldNumber = 8"
}], "Subsection",
 CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, {
   3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 
   3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 
   3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, {
   3.7467949641466155`*^9, 3.746794979356092*^9}, {3.746839278644126*^9, 
   3.7468392788196526`*^9}, {3.747486288199726*^9, 3.747486288199726*^9}, {
   3.748974323535056*^9, 3.7489743255671864`*^9}, {3.7494024785230827`*^9, 
   3.7494024785236197`*^9}, {3.7494025108364353`*^9, 
   3.7494025108364353`*^9}, {3.74941436508764*^9, 3.7494143684396677`*^9}, 
   3.7494854703470097`*^9, {3.7494855892572327`*^9, 3.749485595042981*^9}, {
   3.7494857191251373`*^9, 3.749485800436406*^9}, {3.7494861399041643`*^9, 
   3.749486219244285*^9}, {3.749488034221393*^9, 
   3.7494880348835173`*^9}},ExpressionUUID->"844a0cb8-17d9-4cc5-b1b7-\
a616091ac1ba"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalField", " ", "=", " ", 
   RowBox[{"At", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LocalFieldNumber", " ", "=", " ", "8"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"CentralChargeList", "[", "LocalFieldNumber", "]"}], " ", "=", " ", 
  
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"LocalFieldNumber", ",", "FieldNumber", ",", "sigmaNumber"}], 
      "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"FieldNumber", ",", "1", ",", "7"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"sigmaNumber", ",", "0", ",", "3"}], "}"}]}], "]"}], "//", 
   "Flatten"}]}]}], "Input",
 CellChangeTimes->{{3.747496390463257*^9, 3.747496425281234*^9}, {
   3.748786525924238*^9, 3.748786528879302*^9}, 3.748786783015108*^9, 
   3.7487869038980494`*^9, {3.748790053993587*^9, 3.748790061029888*^9}, {
   3.74879017489659*^9, 3.748790205675115*^9}, {3.748790238885991*^9, 
   3.748790242805265*^9}, 3.7494856949493647`*^9},
 CellLabel->"In[83]:=",ExpressionUUID->"0ec9474d-5d2e-41e9-99af-683b03c53d88"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"z", "[", 
    RowBox[{"8", ",", "1", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"8", ",", "1", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"8", ",", "1", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"8", ",", "1", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"8", ",", "2", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"8", ",", "2", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"8", ",", "2", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"8", ",", "2", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"8", ",", "3", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"8", ",", "3", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"8", ",", "3", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"8", ",", "3", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"8", ",", "4", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"8", ",", "4", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"8", ",", "4", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"8", ",", "4", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"8", ",", "5", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"8", ",", "5", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"8", ",", "5", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"8", ",", "5", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"8", ",", "6", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"8", ",", "6", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"8", ",", "6", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"8", ",", "6", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"8", ",", "7", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"8", ",", "7", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"8", ",", "7", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"8", ",", "7", ",", "3"}], "]"}]}], "}"}]], "Output",
 CellChangeTimes->{3.7494864658642316`*^9, 3.749497517279621*^9, 
  3.749499528659574*^9, 3.7494997060543795`*^9, 3.7494999854090524`*^9, 
  3.7495571274247108`*^9, 3.7495600786905704`*^9, 3.7498418516597047`*^9, 
  3.749858018994441*^9, 3.760471517680749*^9},
 CellLabel->"Out[85]=",ExpressionUUID->"06670eaf-34c9-400c-a0b3-9a7f1fc1067f"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Z", "[", "LocalFieldNumber", "]"}], "[", 
    RowBox[{"ii_", ",", "jj_"}], "]"}], "[", 
   RowBox[{"aa_", ",", "bb_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"2", " ", "I", " ", 
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "1"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"A", "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
         RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "+", 
   RowBox[{"2", " ", 
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "2"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"B", "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
         RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], " ", "+", " ", 
   RowBox[{"2", " ", "I", " ", 
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "3"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"Cmetric", "[", 
     RowBox[{"[", 
      RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
    RowBox[{"F", "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", " ", 
   RowBox[{"2", " ", 
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "4"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"\[Gamma]5down", "[", 
     RowBox[{"[", 
      RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
    RowBox[{"G", "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", " ", 
   RowBox[{"2", " ", 
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "5"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"\[Gamma]5down", "[", 
     RowBox[{"[", 
      RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
    RowBox[{"d", "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", "+", 
   RowBox[{"I", " ", 
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "6"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"Cmetric", "[", 
     RowBox[{"[", 
      RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{"UD", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Am", "[", "mu", "]"}], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
        RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "+", 
   RowBox[{"I", " ", 
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "7"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"CommuteGammadown", "[", 
         RowBox[{"mu", ",", "nu"}], "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Am", "[", "nu", "]"}], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
         RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.7494085451000586`*^9, 3.7494085523049335`*^9}, {
  3.7494085899690495`*^9, 3.749408615257099*^9}, {3.7494086507852697`*^9, 
  3.749408665345*^9}, {3.7494093016570387`*^9, 3.7494093465610495`*^9}, {
  3.7494095637774105`*^9, 3.749409578217074*^9}, {3.749409653409035*^9, 
  3.7494098016018295`*^9}, {3.7494098348498144`*^9, 3.7494100216819773`*^9}, {
  3.7494862265493007`*^9, 3.74948626538061*^9}, {3.749486303084411*^9, 
  3.749486409804064*^9}},
 CellLabel->"In[86]:=",ExpressionUUID->"2fb3483d-ab29-4e15-a1d4-a7a9673e428a"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"ZTable", "[", "LocalFieldNumber", "]"}], " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Z", "[", "LocalFieldNumber", "]"}], "[", 
       RowBox[{"ii", ",", "jj"}], "]"}], "[", 
      RowBox[{"aa", ",", "bb"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7494086675397387`*^9, 3.749408718609185*^9}, {
  3.7494087673051147`*^9, 3.7494087768495007`*^9}},
 CellLabel->"In[87]:=",ExpressionUUID->"c6235e0b-f77e-4622-a04d-e545a97e21a0"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"AlgebraDDMinusClosure", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", 
   
   RowBox[{"(", 
    RowBox[{"Collect", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"AlgebraDD", "[", 
            RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalField", "]"}], " ",
           "-", " ", 
          RowBox[{"ZTable", "[", "LocalFieldNumber", "]"}]}], ")"}], "/.", 
        "LagrangianParameters"}], "/.", "VtoPauli"}], ",", 
      "FieldListWithDerivatives", ",", "Simplify"}], "]"}], ")"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.7474929944818563`*^9, 3.7474930651472597`*^9}, {
  3.747493152219424*^9, 3.7474932477784343`*^9}, {3.7474934178914785`*^9, 
  3.7474934832105627`*^9}, {3.7474935638267813`*^9, 3.747493591801224*^9}, {
  3.7474963739738455`*^9, 3.7474964449288054`*^9}, {3.748795026042665*^9, 
  3.748795027776865*^9}, {3.748965282772246*^9, 3.7489652841431913`*^9}, {
  3.748967256264186*^9, 3.7489672582499332`*^9}, {3.7494004185551434`*^9, 
  3.7494004426991215`*^9}, {3.7494086299617586`*^9, 3.749408647033921*^9}, {
  3.7494087803530507`*^9, 3.7494087808412037`*^9}},
 CellLabel->"In[88]:=",ExpressionUUID->"02ec0dde-0178-4a31-addd-784b4492c9c5"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"AlgebraDDEqs", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", 
   "=", " ", 
   RowBox[{
    RowBox[{"DeleteCases", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"Coefficient", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"AlgebraDDMinusClosure", "[", 
                 RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", 
                "]"}], "[", 
               RowBox[{"[", 
                RowBox[{"ii", ",", "aa", ",", "jj", ",", "bb"}], "]"}], "]"}],
               ",", 
              RowBox[{"FieldListWithDerivatives", "[", 
               RowBox[{"[", "FieldListIndex", "]"}], "]"}]}], "]"}], ")"}], 
           "\[Equal]", "0"}], ",", 
          RowBox[{"{", 
           RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"FieldListIndex", ",", "1", ",", 
            RowBox[{"Length", "[", "FieldListWithDerivatives", "]"}]}], 
           "}"}]}], "]"}], "//", "Simplify"}], "//", "Flatten"}], ",", 
      "True"}], "]"}], "//", "DeleteDuplicates"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7474933413160763`*^9, 3.7474934023534203`*^9}, {
   3.747493509609391*^9, 3.7474935432809353`*^9}, {3.7474936064895945`*^9, 
   3.7474936161297655`*^9}, {3.7474936564987297`*^9, 3.747493747940831*^9}, {
   3.747493832482408*^9, 3.7474938407374077`*^9}, {3.747496458745552*^9, 
   3.7474964697370515`*^9}, 3.7475105609270287`*^9, {3.748795270744809*^9, 
   3.748795274222528*^9}, {3.74879531011075*^9, 3.748795321437098*^9}, {
   3.748795652987978*^9, 3.748795656902155*^9}, {3.748965289858489*^9, 
   3.748965292697112*^9}, {3.748967259459038*^9, 3.748967260813509*^9}, {
   3.7489708313422194`*^9, 3.7489708325427723`*^9}, {3.749400458403777*^9, 
   3.749400461474213*^9}},
 CellLabel->"In[89]:=",ExpressionUUID->"53364557-39e7-4cce-a8e2-ee6010d1afa8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "[", 
  RowBox[{
   RowBox[{"AlgebraDDEqs", "[", 
    RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.747493880500272*^9, 3.7474938897376738`*^9}, {
   3.7474964759857783`*^9, 3.747496478481014*^9}, 3.748967263446204*^9},
 CellLabel->"In[90]:=",ExpressionUUID->"6bb1ab52-630a-437d-a4ea-2c0c0fa358b7"],

Cell[BoxData["44"], "Output",
 CellChangeTimes->{
  3.749402369344755*^9, 3.7494025812692585`*^9, 3.7494101413703766`*^9, 
   3.7494820675202274`*^9, 3.7494826010398684`*^9, 3.7494828373565598`*^9, {
   3.7494829726852674`*^9, 3.7494829961595726`*^9}, 3.7494830980945587`*^9, 
   3.7494832069386897`*^9, 3.7494864667491198`*^9, 3.7494975181287766`*^9, 
   3.7494995295032673`*^9, 3.7494997068906317`*^9, 3.7494999862126155`*^9, 
   3.7495571282168407`*^9, 3.7495600794682584`*^9, 3.7498418525529876`*^9, 
   3.749858019977356*^9, 3.760471518540608*^9},
 CellLabel->"Out[90]=",ExpressionUUID->"49376dcc-5abc-4046-a401-66f9fde2dba6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ZSolutions", "[", "LocalFieldNumber", "]"}], " ", "=", " ", 
  RowBox[{
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"AlgebraDDEqs", "[", 
       RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], 
     ",", 
     RowBox[{"CentralChargeList", "[", "LocalFieldNumber", "]"}]}], "]"}], "//",
    "Flatten"}]}]], "Input",
 CellChangeTimes->{{3.7494088104519863`*^9, 3.749408859016982*^9}, 
   3.749410151970128*^9, {3.749482953421772*^9, 3.7494829550114527`*^9}, {
   3.749482991773706*^9, 3.749482992051861*^9}},
 CellLabel->"In[91]:=",ExpressionUUID->"472c3155-dd47-4af5-b9eb-d7fc8f7ea5fc"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"8", ",", "1", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "1", "]"}], "[", "3", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "10", "]"}], "[", "0", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"8", ",", "1", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "1", "]"}], "[", "2", "]"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "10", "]"}], "[", "1", "]"}]}]}], ")"}]}]}], ",", 
   
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"8", ",", "1", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "1", "]"}], "[", "1", "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "10", "]"}], "[", "2", "]"}]}]}], ")"}]}]}], ",", 
   
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"8", ",", "1", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "1", "]"}], "[", "0", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "10", "]"}], "[", "3", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"8", ",", "2", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "2", "]"}], "[", "3", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "10", "]"}], "[", "0", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"8", ",", "2", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "2", "]"}], "[", "2", "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "10", "]"}], "[", "1", "]"}]}]}], ")"}]}]}], ",", 
   
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"8", ",", "2", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "2", "]"}], "[", "1", "]"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "10", "]"}], "[", "2", "]"}]}]}], ")"}]}]}], ",", 
   
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"8", ",", "2", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "2", "]"}], "[", "0", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "10", "]"}], "[", "3", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"8", ",", "3", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "3", "]"}], "[", "3", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "10", "]"}], "[", "0", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"8", ",", "3", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "3", "]"}], "[", "2", "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "10", "]"}], "[", "1", "]"}]}]}], ")"}]}]}], ",", 
   
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"8", ",", "3", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "3", "]"}], "[", "1", "]"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "10", "]"}], "[", "2", "]"}]}]}], ")"}]}]}], ",", 
   
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"8", ",", "3", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "3", "]"}], "[", "0", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "10", "]"}], "[", "3", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"8", ",", "4", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "4", "]"}], "[", "3", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "10", "]"}], "[", "3", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"8", ",", "4", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "4", "]"}], "[", "2", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "10", "]"}], "[", "2", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"8", ",", "4", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "4", "]"}], "[", "1", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "10", "]"}], "[", "1", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"8", ",", "4", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "4", "]"}], "[", "0", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "10", "]"}], "[", "0", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"8", ",", "5", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "6", "]"}], "[", "3", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "10", "]"}], "[", "1", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"8", ",", "5", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "6", "]"}], "[", "2", "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "10", "]"}], "[", "0", "]"}]}]}], ")"}]}]}], ",", 
   
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"8", ",", "5", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "6", "]"}], "[", "1", "]"}]}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "10", "]"}], "[", "3", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"8", ",", "5", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "6", "]"}], "[", "0", "]"}]}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "10", "]"}], "[", "2", "]"}]}]}], ")"}]}]}], ",", 
   
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"8", ",", "6", ",", "0"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"8", ",", "6", ",", "1"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"8", ",", "6", ",", "2"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"8", ",", "6", ",", "3"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"8", ",", "7", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "3", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "10", "]"}], "[", "2", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"8", ",", "7", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "2", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "10", "]"}], "[", "3", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"8", ",", "7", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "1", "]"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "10", "]"}], "[", "0", "]"}]}]}], ")"}]}]}], ",", 
   
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"8", ",", "7", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "0", "]"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "10", "]"}], "[", "1", "]"}]}]}], ")"}]}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.749410161019311*^9, 3.7494820675836697`*^9, 3.749482601117894*^9, 
   3.749482837383304*^9, {3.749482955925235*^9, 3.749482996184867*^9}, 
   3.749483098167952*^9, 3.7494832069679165`*^9, 3.7494864668309393`*^9, 
   3.749497518211627*^9, 3.749499529579157*^9, 3.7494997069669795`*^9, 
   3.749499986276559*^9, 3.7495571282773523`*^9, 3.7495600795233216`*^9, 
   3.7498418526461983`*^9, 3.749858020042179*^9, 3.760471518600786*^9},
 CellLabel->"Out[91]=",ExpressionUUID->"2f35296d-41d8-43e7-b928-0fb3f277cd08"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       SubsuperscriptBox["D", "a", "i"], ",", 
       SubsuperscriptBox[
        OverscriptBox["D", "~"], "b", "j"]}], "}"}], "At"}], "=", " ", 
    RowBox[{
     RowBox[{"2", "i", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "1"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Mu]"], "A"}]}], " ", "+", 
     RowBox[{"2", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "2"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["\[Gamma]", "5"], 
         SuperscriptBox["\[Gamma]", "\[Mu]"]}], ")"}], "ab"], 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Mu]"], "B"}]}], " ", "+", 
     RowBox[{"2", "i", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "3"}], "]"}], "ij"], 
      SubscriptBox["C", "ab"], "F"}], "+", 
     RowBox[{"2", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "4"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Gamma]", "5"], ")"}], "ab"], "G"}], "+", 
     RowBox[{"2", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "5"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Gamma]", "5"], ")"}], "ab"], "d"}], " ", "+", 
     RowBox[{"i", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "6"}], "]"}], "ij"], 
      SubscriptBox["C", "ab"], 
      RowBox[{
       SuperscriptBox["\[PartialD]", "\[Mu]"], 
       SubscriptBox["A", "\[Mu]"]}]}], "+", 
     RowBox[{"i", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "7"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        RowBox[{"[", 
         RowBox[{
          SuperscriptBox["\[Gamma]", "\[Mu]"], ",", 
          SuperscriptBox["\[Gamma]", "\[Nu]"]}], "]"}], ")"}], "ab"], 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Mu]"], 
       SubscriptBox["A", "\[Nu]"], " "}]}]}]}], TraditionalForm]], "None",
  ExpressionUUID->"dea16a39-524f-4c9e-9227-be0620dc3a2c"],
 " \nlfn = FieldNumber = 8"
}], "Subsubsection",
 CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, {
   3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 
   3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 
   3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, {
   3.7467949641466155`*^9, 3.746794979356092*^9}, {3.746839278644126*^9, 
   3.7468392788196526`*^9}, {3.747486288199726*^9, 3.747486288199726*^9}, {
   3.748974323535056*^9, 3.7489743255671864`*^9}, {3.7494024785230827`*^9, 
   3.7494024785236197`*^9}, {3.7494025108364353`*^9, 
   3.7494025108364353`*^9}, {3.74941436508764*^9, 3.7494143684396677`*^9}, 
   3.7494854703470097`*^9, {3.7494855892572327`*^9, 3.749485595042981*^9}, {
   3.7494857191251373`*^9, 3.749485800436406*^9}, {3.7494861399041643`*^9, 
   3.749486219244285*^9}, {3.749488034221393*^9, 
   3.7494880348835173`*^9}},ExpressionUUID->"94205a03-0745-432f-99a0-\
71dd72641bb5"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DeleteCases", "[", 
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Z", "[", 
       RowBox[{"LocalFieldNumber", ",", "nn"}], "]"}], "==", 
      RowBox[{"PrintSigmaProduct", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"ZGen", "[", 
             RowBox[{"LocalFieldNumber", ",", "nn"}], "]"}], "[", 
            RowBox[{"ii", ",", "jj"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"jj", ",", "1", ",", "2"}], "}"}]}], "]"}], "/.", 
         RowBox[{"ZSolutions", "[", "LocalFieldNumber", "]"}]}], "/.", 
        "ThisOneLooksGood"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"nn", ",", "1", ",", "7"}], "}"}]}], "]"}], ",", 
   RowBox[{
    RowBox[{"Z", "[", 
     RowBox[{"_", ",", "_"}], "]"}], "\[Equal]", "0"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7494822949220448`*^9, 3.7494823511478577`*^9}, {
   3.7494823858218775`*^9, 3.7494823877980165`*^9}, {3.7494824283410683`*^9, 
   3.7494824525643225`*^9}, {3.749482667989807*^9, 3.749482671509657*^9}, {
   3.749482703172926*^9, 3.7494827189481516`*^9}, {3.7494827656916285`*^9, 
   3.7494827754041166`*^9}, {3.749482825395954*^9, 3.7494828255808463`*^9}, {
   3.7494830210856953`*^9, 3.749483068325922*^9}, {3.7494831352932143`*^9, 
   3.7494831386363173`*^9}, {3.7494831726363764`*^9, 3.749483186323599*^9}, 
   3.7494864595961637`*^9},
 CellLabel->"In[92]:=",ExpressionUUID->"8b360570-d68a-4554-a730-a57b05de008f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"Z", "[", 
     RowBox[{"8", ",", "1"}], "]"}], "\[Equal]", 
    RowBox[{"-", 
     SubscriptBox["\[Sigma]", "1"]}]}], ",", 
   RowBox[{
    RowBox[{"Z", "[", 
     RowBox[{"8", ",", "4"}], "]"}], "\[Equal]", 
    RowBox[{
     RowBox[{"-", "\[ImaginaryI]"}], " ", 
     SubscriptBox["\[Sigma]", "2"]}]}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.7494822967584114`*^9, {3.7494823516392856`*^9, 3.749482388711256*^9}, 
   3.7494824654614663`*^9, 3.749482837546488*^9, {3.7494829730196037`*^9, 
   3.7494829962450185`*^9}, 3.749483098282524*^9, {3.7494831891221447`*^9, 
   3.7494832071037216`*^9}, 3.749486466848751*^9, 3.749497518223072*^9, 
   3.749499529589615*^9, 3.749499706978388*^9, 3.7494999862874746`*^9, 
   3.7495571282882643`*^9, 3.749560079561513*^9, 3.749841852661078*^9, 
   3.749858020146616*^9, 3.760471518614789*^9},
 CellLabel->"Out[92]=",ExpressionUUID->"24bc7faf-ae50-4447-93b6-b7db8318d0f8"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{"LocalField", ",", "LocalFieldNumber"}], "]"}]], "Input",
 CellChangeTimes->{{3.747496499638111*^9, 3.7474965053367357`*^9}},
 CellLabel->"In[93]:=",ExpressionUUID->"055e8a1a-15ff-4328-ba95-78cb47e8c6ec"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       SubsuperscriptBox["D", "a", "i"], ",", 
       SubsuperscriptBox[
        OverscriptBox["D", "~"], "b", "j"]}], "}"}], "Bt"}], "=", 
    RowBox[{
     RowBox[{"2", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "1"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["\[Gamma]", "5"], 
         SuperscriptBox["\[Gamma]", "\[Mu]"]}], ")"}], "ab"], 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Mu]"], "A"}]}], " ", "+", 
     RowBox[{"2", "i", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "2"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Mu]"], "B"}]}], " ", "+", 
     RowBox[{"2", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "3"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Gamma]", "5"], ")"}], "ab"], "F"}], "+", 
     RowBox[{"2", " ", "i", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "4"}], "]"}], "ij"], 
      SubscriptBox["C", "ab"], "G"}], "+", 
     RowBox[{"2", " ", "i", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "5"}], "]"}], "ij"], 
      SubscriptBox["C", "ab"], "d"}], " ", "+", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "6"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Gamma]", "5"], ")"}], "ab"], 
      RowBox[{
       SuperscriptBox["\[PartialD]", "\[Mu]"], 
       SubscriptBox["A", "\[Mu]"]}]}], "+", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "7"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["\[Gamma]", "5"], "[", 
         RowBox[{
          SuperscriptBox["\[Gamma]", "\[Mu]"], ",", 
          SuperscriptBox["\[Gamma]", "\[Nu]"]}], "]"}], ")"}], "ab"], 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Mu]"], 
       SubscriptBox["A", "\[Nu]"]}]}]}]}], TraditionalForm]], "None",
  ExpressionUUID->"83398c96-9fad-48c9-949b-331194f83e7e"],
 " \nlfn = FieldNumber = 9"
}], "Subsection",
 CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, {
   3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 
   3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 
   3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, {
   3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7467956828758698`*^9, 
   3.746795686091745*^9}, {3.7468396501310425`*^9, 3.7468396506117897`*^9}, {
   3.747486290038866*^9, 3.747486290038866*^9}, {3.7489743547755203`*^9, 
   3.748974372214446*^9}, {3.7494024819388666`*^9, 3.7494025083485055`*^9}, {
   3.74948682948915*^9, 3.749486834226638*^9}, {3.7494868861566286`*^9, 
   3.749487002278866*^9}, 3.749487273364628*^9, {3.749487372963188*^9, 
   3.749487385715438*^9}, {3.7494880268117666`*^9, 3.7494880268117666`*^9}, {
   3.749488058084586*^9, 
   3.749488058085079*^9}},ExpressionUUID->"c17bbd40-b4a0-4662-bf41-\
42e51c81e954"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalField", " ", "=", " ", 
   RowBox[{"Bt", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LocalFieldNumber", " ", "=", " ", "9"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"CentralChargeList", "[", "LocalFieldNumber", "]"}], " ", "=", " ", 
  
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"LocalFieldNumber", ",", "FieldNumber", ",", "sigmaNumber"}], 
      "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"FieldNumber", ",", "1", ",", "7"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"sigmaNumber", ",", "0", ",", "3"}], "}"}]}], "]"}], "//", 
   "Flatten"}]}]}], "Input",
 CellChangeTimes->{{3.747496390463257*^9, 3.747496425281234*^9}, {
   3.748786525924238*^9, 3.748786528879302*^9}, 3.748786783015108*^9, 
   3.7487869038980494`*^9, {3.748790053993587*^9, 3.748790061029888*^9}, {
   3.74879017489659*^9, 3.748790205675115*^9}, 3.7494868487481008`*^9},
 CellLabel->"In[94]:=",ExpressionUUID->"938ceb08-da15-419b-877f-faf73d6b85ef"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"z", "[", 
    RowBox[{"9", ",", "1", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"9", ",", "1", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"9", ",", "1", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"9", ",", "1", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"9", ",", "2", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"9", ",", "2", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"9", ",", "2", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"9", ",", "2", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"9", ",", "3", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"9", ",", "3", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"9", ",", "3", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"9", ",", "3", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"9", ",", "4", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"9", ",", "4", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"9", ",", "4", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"9", ",", "4", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"9", ",", "5", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"9", ",", "5", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"9", ",", "5", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"9", ",", "5", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"9", ",", "6", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"9", ",", "6", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"9", ",", "6", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"9", ",", "6", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"9", ",", "7", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"9", ",", "7", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"9", ",", "7", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"9", ",", "7", ",", "3"}], "]"}]}], "}"}]], "Output",
 CellChangeTimes->{3.7494876938911333`*^9, 3.749497518247834*^9, 
  3.749499529625285*^9, 3.7494997070066595`*^9, 3.749499986309789*^9, 
  3.7495571283101273`*^9, 3.7495600795952406`*^9, 3.7498418526982784`*^9, 
  3.7498580202610283`*^9, 3.760471518650647*^9},
 CellLabel->"Out[96]=",ExpressionUUID->"d97fc7b0-3552-42fe-905d-362e9ec4755f"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Z", "[", "LocalFieldNumber", "]"}], "[", 
    RowBox[{"ii_", ",", "jj_"}], "]"}], "[", 
   RowBox[{"aa_", ",", "bb_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"2", " ", 
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "1"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"A", "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
         RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "+", 
   RowBox[{"2", " ", "I", " ", 
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "2"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"B", "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
         RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], " ", "+", " ", 
   RowBox[{"2", " ", 
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "3"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"\[Gamma]5down", "[", 
     RowBox[{"[", 
      RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
    RowBox[{"F", "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", " ", 
   RowBox[{"2", " ", "I", " ", 
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "4"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"Cmetric", "[", 
     RowBox[{"[", 
      RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
    RowBox[{"G", "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", " ", 
   RowBox[{"2", " ", "I", " ", 
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "5"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"Cmetric", "[", 
     RowBox[{"[", 
      RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
    RowBox[{"d", "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", "+", 
   RowBox[{
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "6"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"\[Gamma]5down", "[", 
     RowBox[{"[", 
      RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{"UD", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Am", "[", "mu", "]"}], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
        RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "+", 
   RowBox[{
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "7"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"\[Gamma]5", ".", 
          RowBox[{"CommuteGammadown", "[", 
           RowBox[{"mu", ",", "nu"}], "]"}]}], ")"}], "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Am", "[", "nu", "]"}], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
         RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.7494085451000586`*^9, 3.7494085523049335`*^9}, {
  3.7494085899690495`*^9, 3.749408615257099*^9}, {3.7494086507852697`*^9, 
  3.749408665345*^9}, {3.7494093016570387`*^9, 3.7494093465610495`*^9}, {
  3.7494095637774105`*^9, 3.749409578217074*^9}, {3.749409653409035*^9, 
  3.7494098016018295`*^9}, {3.7494098348498144`*^9, 3.7494100216819773`*^9}, {
  3.7494117353629317`*^9, 3.749411793410575*^9}, {3.749411929803181*^9, 
  3.74941193009822*^9}, {3.7494875421886797`*^9, 3.749487549467661*^9}, {
  3.7494875847732687`*^9, 3.749487630900247*^9}},
 CellLabel->"In[97]:=",ExpressionUUID->"6933d96f-4836-40c6-8d9a-4bad38e9714c"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"ZTable", "[", "LocalFieldNumber", "]"}], " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Z", "[", "LocalFieldNumber", "]"}], "[", 
       RowBox[{"ii", ",", "jj"}], "]"}], "[", 
      RowBox[{"aa", ",", "bb"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7494086675397387`*^9, 3.749408718609185*^9}, {
  3.7494087673051147`*^9, 3.7494087768495007`*^9}},
 CellLabel->"In[98]:=",ExpressionUUID->"5393eb19-d16f-47bd-a356-e61a816f7c5b"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"AlgebraDDMinusClosure", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", 
   
   RowBox[{"(", 
    RowBox[{"Collect", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"AlgebraDD", "[", 
            RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalField", "]"}], " ",
           "-", " ", 
          RowBox[{"ZTable", "[", "LocalFieldNumber", "]"}]}], ")"}], "/.", 
        "LagrangianParameters"}], "/.", "VtoPauli"}], ",", 
      "FieldListWithDerivatives", ",", "Simplify"}], "]"}], ")"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.7474929944818563`*^9, 3.7474930651472597`*^9}, {
  3.747493152219424*^9, 3.7474932477784343`*^9}, {3.7474934178914785`*^9, 
  3.7474934832105627`*^9}, {3.7474935638267813`*^9, 3.747493591801224*^9}, {
  3.7474963739738455`*^9, 3.7474964449288054`*^9}, {3.748795026042665*^9, 
  3.748795027776865*^9}, {3.748965282772246*^9, 3.7489652841431913`*^9}, {
  3.748967256264186*^9, 3.7489672582499332`*^9}, {3.7494004185551434`*^9, 
  3.7494004426991215`*^9}, {3.7494086299617586`*^9, 3.749408647033921*^9}, {
  3.7494087803530507`*^9, 3.7494087808412037`*^9}},
 CellLabel->"In[99]:=",ExpressionUUID->"c0198c2b-73fd-459d-aa78-1c6041d89aba"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"AlgebraDDEqs", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", 
   "=", " ", 
   RowBox[{
    RowBox[{"DeleteCases", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"Coefficient", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"AlgebraDDMinusClosure", "[", 
                 RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", 
                "]"}], "[", 
               RowBox[{"[", 
                RowBox[{"ii", ",", "aa", ",", "jj", ",", "bb"}], "]"}], "]"}],
               ",", 
              RowBox[{"FieldListWithDerivatives", "[", 
               RowBox[{"[", "FieldListIndex", "]"}], "]"}]}], "]"}], ")"}], 
           "\[Equal]", "0"}], ",", 
          RowBox[{"{", 
           RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"FieldListIndex", ",", "1", ",", 
            RowBox[{"Length", "[", "FieldListWithDerivatives", "]"}]}], 
           "}"}]}], "]"}], "//", "Simplify"}], "//", "Flatten"}], ",", 
      "True"}], "]"}], "//", "DeleteDuplicates"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7474933413160763`*^9, 3.7474934023534203`*^9}, {
   3.747493509609391*^9, 3.7474935432809353`*^9}, {3.7474936064895945`*^9, 
   3.7474936161297655`*^9}, {3.7474936564987297`*^9, 3.747493747940831*^9}, {
   3.747493832482408*^9, 3.7474938407374077`*^9}, {3.747496458745552*^9, 
   3.7474964697370515`*^9}, 3.7475105609270287`*^9, {3.748795270744809*^9, 
   3.748795274222528*^9}, {3.74879531011075*^9, 3.748795321437098*^9}, {
   3.748795652987978*^9, 3.748795656902155*^9}, {3.748965289858489*^9, 
   3.748965292697112*^9}, {3.748967259459038*^9, 3.748967260813509*^9}, {
   3.7489708313422194`*^9, 3.7489708325427723`*^9}, {3.749400458403777*^9, 
   3.749400461474213*^9}},
 CellLabel->
  "In[100]:=",ExpressionUUID->"4f95fe2a-9e0b-4b54-939f-cb77627f3e42"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "[", 
  RowBox[{
   RowBox[{"AlgebraDDEqs", "[", 
    RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.747493880500272*^9, 3.7474938897376738`*^9}, {
   3.7474964759857783`*^9, 3.747496478481014*^9}, 3.748967263446204*^9},
 CellLabel->
  "In[101]:=",ExpressionUUID->"12706bfa-9f47-43c5-aaf4-4599e7d713c2"],

Cell[BoxData["44"], "Output",
 CellChangeTimes->{
  3.749402369344755*^9, 3.7494025812692585`*^9, 3.7494101413703766`*^9, 
   3.7494118150094*^9, 3.749411943930292*^9, 3.7494820690200167`*^9, 
   3.749482602576909*^9, {3.7494832469050508`*^9, 3.749483291937909*^9}, 
   3.7494876948052263`*^9, 3.7494975191481113`*^9, 3.7494995304932833`*^9, 
   3.749499707886675*^9, 3.749499987130211*^9, 3.749557129099223*^9, 
   3.7495600803892565`*^9, 3.7498418536104226`*^9, 3.7498580212224617`*^9, 
   3.7604715195205903`*^9},
 CellLabel->
  "Out[101]=",ExpressionUUID->"3c3547af-80eb-42a6-a8fb-aaba09c70c9d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ZSolutions", "[", "LocalFieldNumber", "]"}], " ", "=", " ", 
  RowBox[{
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"AlgebraDDEqs", "[", 
       RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], 
     ",", 
     RowBox[{"CentralChargeList", "[", "LocalFieldNumber", "]"}]}], "]"}], "//",
    "Flatten"}]}]], "Input",
 CellChangeTimes->{{3.7494088104519863`*^9, 3.749408859016982*^9}, 
   3.749410151970128*^9, {3.749483286045399*^9, 3.749483287219554*^9}},
 CellLabel->
  "In[102]:=",ExpressionUUID->"32ae2367-8dbd-4aac-bc76-4c3220b456fa"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"9", ",", "1", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "1", "]"}], "[", "0", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "7", "]"}], "[", "0", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"9", ",", "1", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "1", "]"}], "[", "1", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "7", "]"}], "[", "1", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"9", ",", "1", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "1", "]"}], "[", "2", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "7", "]"}], "[", "2", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"9", ",", "1", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "1", "]"}], "[", "3", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "7", "]"}], "[", "3", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"9", ",", "2", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "2", "]"}], "[", "0", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "7", "]"}], "[", "0", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"9", ",", "2", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "2", "]"}], "[", "1", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "7", "]"}], "[", "1", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"9", ",", "2", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "2", "]"}], "[", "2", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "7", "]"}], "[", "2", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"9", ",", "2", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "2", "]"}], "[", "3", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "7", "]"}], "[", "3", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"9", ",", "3", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "3", "]"}], "[", "0", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "7", "]"}], "[", "0", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"9", ",", "3", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "3", "]"}], "[", "1", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "7", "]"}], "[", "1", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"9", ",", "3", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "3", "]"}], "[", "2", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "7", "]"}], "[", "2", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"9", ",", "3", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "3", "]"}], "[", "3", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "7", "]"}], "[", "3", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"9", ",", "4", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "4", "]"}], "[", "0", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "7", "]"}], "[", "3", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"9", ",", "4", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "4", "]"}], "[", "1", "]"}]}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "7", "]"}], "[", "2", "]"}]}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"9", ",", "4", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "4", "]"}], "[", "2", "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "7", "]"}], "[", "1", "]"}]}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"9", ",", "4", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "4", "]"}], "[", "3", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "7", "]"}], "[", "0", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"9", ",", "5", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "6", "]"}], "[", "0", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "7", "]"}], "[", "1", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"9", ",", "5", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "6", "]"}], "[", "1", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "7", "]"}], "[", "0", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"9", ",", "5", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "6", "]"}], "[", "2", "]"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "7", "]"}], "[", "3", "]"}]}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"9", ",", "5", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "6", "]"}], "[", "3", "]"}]}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "7", "]"}], "[", "2", "]"}]}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"9", ",", "6", ",", "0"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"9", ",", "6", ",", "1"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"9", ",", "6", ",", "2"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"9", ",", "6", ",", "3"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"9", ",", "7", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "0", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "7", "]"}], "[", "2", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"9", ",", "7", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "1", "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "7", "]"}], "[", "3", "]"}]}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"9", ",", "7", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "5", "]"}], "[", "2", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "7", "]"}], "[", "0", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"9", ",", "7", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "3", "]"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "7", "]"}], "[", "1", "]"}]}]}], ")"}]}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.749410161019311*^9, 3.7494118151681185`*^9, 3.749411943964021*^9, 
   3.7494820690880365`*^9, 3.749482602651481*^9, {3.749483246933783*^9, 
   3.7494832919617186`*^9}, 3.749487694870201*^9, 3.749497519211562*^9, 
   3.7494995305637646`*^9, 3.7494997079154415`*^9, 3.7494999871932735`*^9, 
   3.749557129146343*^9, 3.7495600804418855`*^9, 3.749841853640746*^9, 
   3.74985802131113*^9, 3.760471519591077*^9},
 CellLabel->
  "Out[102]=",ExpressionUUID->"60429e3e-1e82-4b69-a01d-43cc8c602aa0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ZSolutions", "[", "LocalFieldNumber", "]"}], "/.", 
  "ThisOneLooksGood"}]], "Input",
 CellChangeTimes->{{3.74941018974783*^9, 3.749410287570263*^9}, {
  3.7494103263941903`*^9, 3.749410332177493*^9}, {3.7494105274987097`*^9, 
  3.749410537744815*^9}, {3.749410571657837*^9, 3.74941074716068*^9}, {
  3.749411058139544*^9, 3.749411062568898*^9}, {3.7494115446973157`*^9, 
  3.749411545947426*^9}},
 CellLabel->
  "In[103]:=",ExpressionUUID->"cda5bf56-6b71-4b64-870d-38246c450f5b"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"9", ",", "1", ",", "0"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"9", ",", "1", ",", "1"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"9", ",", "1", ",", "2"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"9", ",", "1", ",", "3"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"9", ",", "2", ",", "0"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"9", ",", "2", ",", "1"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"9", ",", "2", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{"-", "1"}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"9", ",", "2", ",", "3"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"9", ",", "3", ",", "0"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"9", ",", "3", ",", "1"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"9", ",", "3", ",", "2"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"9", ",", "3", ",", "3"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"9", ",", "4", ",", "0"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"9", ",", "4", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{"-", "1"}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"9", ",", "4", ",", "2"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"9", ",", "4", ",", "3"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"9", ",", "5", ",", "0"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"9", ",", "5", ",", "1"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"9", ",", "5", ",", "2"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"9", ",", "5", ",", "3"}], "]"}], "\[Rule]", "1"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"9", ",", "6", ",", "0"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"9", ",", "6", ",", "1"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"9", ",", "6", ",", "2"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"9", ",", "6", ",", "3"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"9", ",", "7", ",", "0"}], "]"}], "\[Rule]", "1"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"9", ",", "7", ",", "1"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"9", ",", "7", ",", "2"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"9", ",", "7", ",", "3"}], "]"}], "\[Rule]", "0"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.7494102039148035`*^9, 3.749410237595869*^9}, {
   3.74941027060384*^9, 3.7494102895686717`*^9}, 3.7494103337499733`*^9, {
   3.7494105397146406`*^9, 3.7494106769721236`*^9}, {3.7494107155458097`*^9, 
   3.7494107477202597`*^9}, 3.7494110672432184`*^9, 3.749411815181512*^9, 
   3.7494119439892807`*^9, 3.749482069101892*^9, 3.749482602664874*^9, {
   3.7494832469606094`*^9, 3.7494832919899907`*^9}, 3.749487694890041*^9, 
   3.749497519227476*^9, 3.7494995305820684`*^9, 3.749499707930333*^9, 
   3.749499987207655*^9, 3.749557129162712*^9, 3.749560080455301*^9, 
   3.749841853658038*^9, 3.749858021412991*^9, 3.7604715196049304`*^9},
 CellLabel->
  "Out[103]=",ExpressionUUID->"13136d80-00a6-498d-b14f-87e2d2da86f3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       SubsuperscriptBox["D", "a", "i"], ",", 
       SubsuperscriptBox[
        OverscriptBox["D", "~"], "b", "j"]}], "}"}], "Bt"}], "=", 
    RowBox[{
     RowBox[{"2", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "1"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["\[Gamma]", "5"], 
         SuperscriptBox["\[Gamma]", "\[Mu]"]}], ")"}], "ab"], 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Mu]"], "A"}]}], " ", "+", 
     RowBox[{"2", "i", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "2"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Mu]"], "B"}]}], " ", "+", 
     RowBox[{"2", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "3"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Gamma]", "5"], ")"}], "ab"], "F"}], "+", 
     RowBox[{"2", " ", "i", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "4"}], "]"}], "ij"], 
      SubscriptBox["C", "ab"], "G"}], "+", 
     RowBox[{"2", " ", "i", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "5"}], "]"}], "ij"], 
      SubscriptBox["C", "ab"], "d"}], " ", "+", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "6"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Gamma]", "5"], ")"}], "ab"], 
      RowBox[{
       SuperscriptBox["\[PartialD]", "\[Mu]"], 
       SubscriptBox["A", "\[Mu]"]}]}], "+", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "7"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["\[Gamma]", "5"], "[", 
         RowBox[{
          SuperscriptBox["\[Gamma]", "\[Mu]"], ",", 
          SuperscriptBox["\[Gamma]", "\[Nu]"]}], "]"}], ")"}], "ab"], 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Mu]"], 
       SubscriptBox["A", "\[Nu]"]}]}]}]}], TraditionalForm]], "None",
  ExpressionUUID->"a72b5cfd-7d75-4f1c-8208-1ee3280e89f4"],
 " \nlfn = FieldNumber = 9"
}], "Subsubsection",
 CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, {
   3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 
   3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 
   3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, {
   3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7467956828758698`*^9, 
   3.746795686091745*^9}, {3.7468396501310425`*^9, 3.7468396506117897`*^9}, {
   3.747486290038866*^9, 3.747486290038866*^9}, {3.7489743547755203`*^9, 
   3.748974372214446*^9}, {3.7494024819388666`*^9, 3.7494025083485055`*^9}, {
   3.74948682948915*^9, 3.749486834226638*^9}, {3.7494868861566286`*^9, 
   3.749487002278866*^9}, 3.749487273364628*^9, {3.749487372963188*^9, 
   3.749487385715438*^9}, {3.7494880268117666`*^9, 3.7494880268117666`*^9}, {
   3.749488058084586*^9, 
   3.749488058085079*^9}},ExpressionUUID->"171683d4-ede3-4352-9914-\
31132fad7f61"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DeleteCases", "[", 
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Z", "[", 
       RowBox[{"LocalFieldNumber", ",", "nn"}], "]"}], "==", 
      RowBox[{"PrintSigmaProduct", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"ZGen", "[", 
             RowBox[{"LocalFieldNumber", ",", "nn"}], "]"}], "[", 
            RowBox[{"ii", ",", "jj"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"jj", ",", "1", ",", "2"}], "}"}]}], "]"}], "/.", 
         RowBox[{"ZSolutions", "[", "LocalFieldNumber", "]"}]}], "/.", 
        "ThisOneLooksGood"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"nn", ",", "1", ",", "7"}], "}"}]}], "]"}], ",", 
   RowBox[{
    RowBox[{"Z", "[", 
     RowBox[{"_", ",", "_"}], "]"}], "\[Equal]", "0"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7494822949220448`*^9, 3.7494823511478577`*^9}, {
   3.7494823858218775`*^9, 3.7494823877980165`*^9}, {3.7494824283410683`*^9, 
   3.7494824525643225`*^9}, {3.749482667989807*^9, 3.749482671509657*^9}, {
   3.749482703172926*^9, 3.7494827189481516`*^9}, {3.7494827656916285`*^9, 
   3.7494827754041166`*^9}, {3.749482825395954*^9, 3.7494828255808463`*^9}, {
   3.7494830210856953`*^9, 3.749483068325922*^9}, {3.7494831352932143`*^9, 
   3.7494831386363173`*^9}, {3.7494831726363764`*^9, 3.749483186323599*^9}, 
   3.7494876866436925`*^9},
 CellLabel->
  "In[104]:=",ExpressionUUID->"55807b00-6268-4c9e-9f2a-81cfad588fe5"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"Z", "[", 
     RowBox[{"9", ",", "2"}], "]"}], "\[Equal]", 
    RowBox[{
     RowBox[{"-", "\[ImaginaryI]"}], " ", 
     SubscriptBox["\[Sigma]", "2"]}]}], ",", 
   RowBox[{
    RowBox[{"Z", "[", 
     RowBox[{"9", ",", "4"}], "]"}], "\[Equal]", 
    RowBox[{"-", 
     SubscriptBox["\[Sigma]", "1"]}]}], ",", 
   RowBox[{
    RowBox[{"Z", "[", 
     RowBox[{"9", ",", "5"}], "]"}], "\[Equal]", 
    SubscriptBox["\[Sigma]", "3"]}], ",", 
   RowBox[{
    RowBox[{"Z", "[", 
     RowBox[{"9", ",", "7"}], "]"}], "\[Equal]", "\<\"I\"\>"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.749483247013237*^9, 3.749483292006357*^9}, 
   3.7494876949049654`*^9, 3.7494975192408686`*^9, 3.749499530594467*^9, 
   3.749499707947184*^9, 3.7494999872235804`*^9, 3.7495571291741576`*^9, 
   3.749560080495949*^9, 3.7498418536724606`*^9, 3.749858021512102*^9, 
   3.760471519620657*^9},
 CellLabel->
  "Out[104]=",ExpressionUUID->"631cc227-2034-4f25-98c2-a9a930905d97"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{"LocalField", ",", "LocalFieldNumber"}], "]"}]], "Input",
 CellChangeTimes->{{3.747496499638111*^9, 3.7474965053367357`*^9}},
 CellLabel->
  "In[105]:=",ExpressionUUID->"b4e68759-cf66-4130-b91f-12def5dd43a6"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       SubsuperscriptBox["D", "a", "i"], ",", 
       SubsuperscriptBox[
        OverscriptBox["D", "~"], "b", "j"]}], "}"}], "Ft"}], "=", " ", 
    RowBox[{
     RowBox[{"2", "i", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "1"}], "]"}], "ij"], 
      SubscriptBox["C", "ab"], 
      RowBox[{"\[Square]", "A"}]}], " ", "+", 
     RowBox[{"2", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "2"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Gamma]", "5"], ")"}], "ab"], 
      RowBox[{"\[Square]", " ", "B"}]}], " ", "+", 
     RowBox[{"2", 
      SuperscriptBox[
       RowBox[{"iZ", "[", 
        RowBox[{"lfn", ",", "3"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Mu]"], "F"}]}], "+", 
     RowBox[{"2", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "4"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["\[Gamma]", "5"], 
         SuperscriptBox["\[Gamma]", "\[Mu]"]}], ")"}], "ab"], 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Mu]"], "G"}]}], "+", 
     RowBox[{"2", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "5"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["\[Gamma]", "5"], 
         SuperscriptBox["\[Gamma]", "\[Mu]"]}], ")"}], "ab"], 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Mu]"], "d"}]}], " ", "+", 
     RowBox[{"i", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "6"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], 
      RowBox[{"\[Square]", 
       SubscriptBox["A", "\[Mu]"]}]}], "+", 
     RowBox[{"i", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "7"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Mu]"], 
       RowBox[{
        SuperscriptBox["\[PartialD]", "\[Nu]"], 
        SubscriptBox["A", "\[Nu]"]}]}]}]}]}], TraditionalForm]], "None",
  ExpressionUUID->"4a6064d0-50bf-4c20-9267-3da57c136454"],
 " \nFieldNumber = 10"
}], "Subsection",
 CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, {
   3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 
   3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 
   3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, {
   3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7467956828758698`*^9, 
   3.746795686091745*^9}, {3.7468041140403814`*^9, 3.7468041142897005`*^9}, {
   3.7468347489001255`*^9, 3.7468347489001255`*^9}, {3.746834847337947*^9, 
   3.746834847884678*^9}, {3.7468396653420925`*^9, 3.7468396657549887`*^9}, {
   3.7474862914783926`*^9, 3.7474862914783926`*^9}, {3.7489743566164293`*^9, 
   3.748974374304059*^9}, {3.7494024843867817`*^9, 3.7494025055567417`*^9}, {
   3.7494877408813643`*^9, 3.7494877408813643`*^9}, {3.749487850852993*^9, 
   3.749487885152234*^9}, {3.7494880690188007`*^9, 3.749488070674741*^9}, {
   3.7494887452118835`*^9, 
   3.7494888286116867`*^9}},ExpressionUUID->"1122043b-3661-4ef0-8b32-\
fe863a53ff1c"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalField", " ", "=", " ", 
   RowBox[{"Ft", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LocalFieldNumber", " ", "=", " ", "10"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"CentralChargeList", "[", "LocalFieldNumber", "]"}], " ", "=", " ", 
  
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"LocalFieldNumber", ",", "FieldNumber", ",", "sigmaNumber"}], 
      "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"FieldNumber", ",", "1", ",", "7"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"sigmaNumber", ",", "0", ",", "3"}], "}"}]}], "]"}], "//", 
   "Flatten"}]}]}], "Input",
 CellChangeTimes->{{3.747496390463257*^9, 3.747496425281234*^9}, {
   3.748786525924238*^9, 3.748786528879302*^9}, 3.748786783015108*^9, 
   3.7487869038980494`*^9, {3.748790053993587*^9, 3.748790061029888*^9}, {
   3.74879017489659*^9, 3.7487901786479187`*^9}, 3.7494877508683424`*^9},
 CellLabel->
  "In[106]:=",ExpressionUUID->"ab56a5b9-30d6-40be-8584-dd1de8f02803"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"z", "[", 
    RowBox[{"10", ",", "1", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"10", ",", "1", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"10", ",", "1", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"10", ",", "1", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"10", ",", "2", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"10", ",", "2", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"10", ",", "2", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"10", ",", "2", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"10", ",", "3", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"10", ",", "3", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"10", ",", "3", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"10", ",", "3", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"10", ",", "4", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"10", ",", "4", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"10", ",", "4", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"10", ",", "4", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"10", ",", "5", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"10", ",", "5", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"10", ",", "5", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"10", ",", "5", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"10", ",", "6", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"10", ",", "6", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"10", ",", "6", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"10", ",", "6", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"10", ",", "7", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"10", ",", "7", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"10", ",", "7", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"10", ",", "7", ",", "3"}], "]"}]}], "}"}]], "Output",
 CellChangeTimes->{3.7494890200664086`*^9, 3.749489460248662*^9, 
  3.749497519264634*^9, 3.7494995306227818`*^9, 3.7494997079685144`*^9, 
  3.7494999872439575`*^9, 3.7495571292073545`*^9, 3.7495600805281544`*^9, 
  3.7498418537101183`*^9, 3.749858021627602*^9, 3.7604715196542397`*^9},
 CellLabel->
  "Out[108]=",ExpressionUUID->"cbcfd7de-2144-4d8c-9ede-953046ce0a81"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Z", "[", "LocalFieldNumber", "]"}], "[", 
    RowBox[{"ii_", ",", "jj_"}], "]"}], "[", 
   RowBox[{"aa_", ",", "bb_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"2", " ", "I", " ", 
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "1"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"Cmetric", "[", 
     RowBox[{"[", 
      RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
    RowBox[{"Lap", "[", 
     RowBox[{"A", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], "+", 
   RowBox[{"2", " ", 
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "2"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"\[Gamma]5down", "[", 
     RowBox[{"[", 
      RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
    RowBox[{"Lap", "[", 
     RowBox[{"B", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], " ", "+", 
   " ", 
   RowBox[{"2", " ", "I", " ", 
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "3"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"F", "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
         RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"mu", ",", "0", ",", " ", "3"}], "}"}]}], "]"}]}], "+", " ", 
   RowBox[{"2", " ", 
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "4"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"G", "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
         RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"mu", ",", "0", ",", " ", "3"}], "}"}]}], "]"}]}], "+", " ", 
   RowBox[{"2", " ", 
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "5"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"d", "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
         RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"mu", ",", "0", ",", " ", "3"}], "}"}]}], "]"}]}], "+", 
   RowBox[{"I", " ", 
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "6"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{"Lap", "[", 
        RowBox[{
         RowBox[{"Am", "[", "mu", "]"}], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], " ", "+", " ", 
   RowBox[{"I", " ", 
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "7"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"UD", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"Am", "[", "nu", "]"}], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
           RowBox[{"\[CapitalStigma]", "[", "nu", "]"}]}], "]"}], ",", 
         RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}], " "}]}]}]], "Input",\

 CellChangeTimes->{{3.7494085451000586`*^9, 3.7494085523049335`*^9}, {
  3.7494085899690495`*^9, 3.749408615257099*^9}, {3.7494086507852697`*^9, 
  3.749408665345*^9}, {3.7494093016570387`*^9, 3.7494093465610495`*^9}, {
  3.7494095637774105`*^9, 3.749409578217074*^9}, {3.749409653409035*^9, 
  3.7494098016018295`*^9}, {3.7494098348498144`*^9, 3.7494100216819773`*^9}, {
  3.749413397113825*^9, 3.7494133979214287`*^9}, {3.749413438274826*^9, 
  3.749413452297429*^9}, {3.749413537033685*^9, 3.7494138221700463`*^9}, {
  3.74948867818088*^9, 3.749488732572091*^9}, {3.749488898795951*^9, 
  3.749488978916437*^9}},
 CellLabel->
  "In[109]:=",ExpressionUUID->"d1c7b500-1aef-40e8-ba1f-326987f71009"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"ZTable", "[", "LocalFieldNumber", "]"}], " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Z", "[", "LocalFieldNumber", "]"}], "[", 
       RowBox[{"ii", ",", "jj"}], "]"}], "[", 
      RowBox[{"aa", ",", "bb"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7494086675397387`*^9, 3.749408718609185*^9}, {
  3.7494087673051147`*^9, 3.7494087768495007`*^9}},
 CellLabel->
  "In[110]:=",ExpressionUUID->"95b3a50b-8e5a-4830-be0b-b3c8298c6c72"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"AlgebraDDMinusClosure", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", 
   
   RowBox[{"(", 
    RowBox[{"Collect", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"AlgebraDD", "[", 
            RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalField", "]"}], " ",
           "-", " ", 
          RowBox[{"ZTable", "[", "LocalFieldNumber", "]"}]}], ")"}], "/.", 
        "LagrangianParameters"}], "/.", "VtoPauli"}], ",", 
      "FieldListWithDerivatives", ",", "Simplify"}], "]"}], ")"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.7474929944818563`*^9, 3.7474930651472597`*^9}, {
  3.747493152219424*^9, 3.7474932477784343`*^9}, {3.7474934178914785`*^9, 
  3.7474934832105627`*^9}, {3.7474935638267813`*^9, 3.747493591801224*^9}, {
  3.7474963739738455`*^9, 3.7474964449288054`*^9}, {3.748795026042665*^9, 
  3.748795027776865*^9}, {3.748965282772246*^9, 3.7489652841431913`*^9}, {
  3.748967256264186*^9, 3.7489672582499332`*^9}, {3.7494004185551434`*^9, 
  3.7494004426991215`*^9}, {3.7494086299617586`*^9, 3.749408647033921*^9}, {
  3.7494087803530507`*^9, 3.7494087808412037`*^9}},
 CellLabel->
  "In[111]:=",ExpressionUUID->"9f8784c2-560b-4fc1-94ef-83101268a830"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"AlgebraDDEqs", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", 
   "=", " ", 
   RowBox[{
    RowBox[{"DeleteCases", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"Coefficient", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"AlgebraDDMinusClosure", "[", 
                 RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", 
                "]"}], "[", 
               RowBox[{"[", 
                RowBox[{"ii", ",", "aa", ",", "jj", ",", "bb"}], "]"}], "]"}],
               ",", 
              RowBox[{"FieldListWithDerivatives", "[", 
               RowBox[{"[", "FieldListIndex", "]"}], "]"}]}], "]"}], ")"}], 
           "\[Equal]", "0"}], ",", 
          RowBox[{"{", 
           RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"FieldListIndex", ",", "1", ",", 
            RowBox[{"Length", "[", "FieldListWithDerivatives", "]"}]}], 
           "}"}]}], "]"}], "//", "Simplify"}], "//", "Flatten"}], ",", 
      "True"}], "]"}], "//", "DeleteDuplicates"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7474933413160763`*^9, 3.7474934023534203`*^9}, {
   3.747493509609391*^9, 3.7474935432809353`*^9}, {3.7474936064895945`*^9, 
   3.7474936161297655`*^9}, {3.7474936564987297`*^9, 3.747493747940831*^9}, {
   3.747493832482408*^9, 3.7474938407374077`*^9}, {3.747496458745552*^9, 
   3.7474964697370515`*^9}, 3.7475105609270287`*^9, {3.748795270744809*^9, 
   3.748795274222528*^9}, {3.74879531011075*^9, 3.748795321437098*^9}, {
   3.748795652987978*^9, 3.748795656902155*^9}, {3.748965289858489*^9, 
   3.748965292697112*^9}, {3.748967259459038*^9, 3.748967260813509*^9}, {
   3.7489708313422194`*^9, 3.7489708325427723`*^9}, {3.749400458403777*^9, 
   3.749400461474213*^9}},
 CellLabel->
  "In[112]:=",ExpressionUUID->"ebba3a05-96e6-4f88-9637-f345daee4765"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "[", 
  RowBox[{
   RowBox[{"AlgebraDDEqs", "[", 
    RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.747493880500272*^9, 3.7474938897376738`*^9}, {
   3.7474964759857783`*^9, 3.747496478481014*^9}, 3.748967263446204*^9},
 CellLabel->
  "In[113]:=",ExpressionUUID->"54ef90be-0339-4a76-8057-6ae5f1cfaf90"],

Cell[BoxData["53"], "Output",
 CellChangeTimes->{3.749402369344755*^9, 3.7494025812692585`*^9, 
  3.7494101413703766`*^9, 3.7494118150094*^9, 3.749411943930292*^9, 
  3.7494138961322794`*^9, 3.749482070843859*^9, 3.749482604450041*^9, 
  3.74948335410999*^9, 3.7494890219110327`*^9, 3.7494894619925585`*^9, 
  3.7494975209932113`*^9, 3.7494995323335238`*^9, 3.749499709717408*^9, 
  3.7494999889437127`*^9, 3.7495571307831492`*^9, 3.749560082150611*^9, 
  3.749841855455542*^9, 3.7498580253958178`*^9, 3.7604715213214207`*^9},
 CellLabel->
  "Out[113]=",ExpressionUUID->"94d46923-d167-43a0-a003-b5827231de61"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ZSolutions", "[", "LocalFieldNumber", "]"}], " ", "=", " ", 
  RowBox[{
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"AlgebraDDEqs", "[", 
       RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], 
     ",", 
     RowBox[{"CentralChargeList", "[", "LocalFieldNumber", "]"}]}], "]"}], "//",
    "Flatten"}]}]], "Input",
 CellChangeTimes->{{3.7494088104519863`*^9, 3.749408859016982*^9}, 
   3.749410151970128*^9, {3.7494833477578382`*^9, 3.7494833493795185`*^9}},
 CellLabel->
  "In[114]:=",ExpressionUUID->"4307cc15-3cc0-454a-a4c8-6f84ca45e382"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"10", ",", "1", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "1", "]"}], "[", "0", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "8", "]"}], "[", "0", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"10", ",", "1", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "1", "]"}], "[", "1", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "8", "]"}], "[", "1", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"10", ",", "1", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "1", "]"}], "[", "2", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "8", "]"}], "[", "2", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"10", ",", "1", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "1", "]"}], "[", "3", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "8", "]"}], "[", "3", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"10", ",", "2", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "2", "]"}], "[", "0", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "8", "]"}], "[", "0", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"10", ",", "2", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "2", "]"}], "[", "1", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "8", "]"}], "[", "1", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"10", ",", "2", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "2", "]"}], "[", "2", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "8", "]"}], "[", "2", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"10", ",", "2", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "2", "]"}], "[", "3", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "8", "]"}], "[", "3", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"10", ",", "3", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "3", "]"}], "[", "0", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "8", "]"}], "[", "0", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"10", ",", "3", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "3", "]"}], "[", "1", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "8", "]"}], "[", "1", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"10", ",", "3", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "3", "]"}], "[", "2", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "8", "]"}], "[", "2", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"10", ",", "3", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "3", "]"}], "[", "3", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "8", "]"}], "[", "3", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"10", ",", "4", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "4", "]"}], "[", "0", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "8", "]"}], "[", "3", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"10", ",", "4", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "4", "]"}], "[", "1", "]"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "8", "]"}], "[", "2", "]"}]}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"10", ",", "4", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "4", "]"}], "[", "2", "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "8", "]"}], "[", "1", "]"}]}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"10", ",", "4", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "4", "]"}], "[", "3", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "8", "]"}], "[", "0", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"10", ",", "5", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "6", "]"}], "[", "0", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "8", "]"}], "[", "1", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"10", ",", "5", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "6", "]"}], "[", "1", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "8", "]"}], "[", "0", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"10", ",", "5", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "6", "]"}], "[", "2", "]"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "8", "]"}], "[", "3", "]"}]}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"10", ",", "5", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "6", "]"}], "[", "3", "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "8", "]"}], "[", "2", "]"}]}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"10", ",", "6", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", "\[ImaginaryI]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "0", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "8", "]"}], "[", "2", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"10", ",", "6", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", "\[ImaginaryI]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "1", "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "8", "]"}], "[", "3", "]"}]}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"10", ",", "6", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{
      RowBox[{"cv", "[", "5", "]"}], "[", "2", "]"}], "-", 
     RowBox[{
      RowBox[{"cv", "[", "8", "]"}], "[", "0", "]"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"10", ",", "6", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", "\[ImaginaryI]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "3", "]"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "8", "]"}], "[", "1", "]"}]}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"10", ",", "7", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{"\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "0", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "8", "]"}], "[", "2", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"10", ",", "7", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"\[ImaginaryI]", " ", 
      RowBox[{
       RowBox[{"cv", "[", "5", "]"}], "[", "1", "]"}]}], "-", 
     RowBox[{
      RowBox[{"cv", "[", "8", "]"}], "[", "3", "]"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"10", ",", "7", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{
       RowBox[{"cv", "[", "5", "]"}], "[", "2", "]"}]}], "+", 
     RowBox[{
      RowBox[{"cv", "[", "8", "]"}], "[", "0", "]"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"10", ",", "7", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{"\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "3", "]"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "8", "]"}], "[", "1", "]"}]}]}], ")"}]}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.749410161019311*^9, 3.7494118151681185`*^9, 
  3.749411943964021*^9, 3.749413896188343*^9, 3.749482070917756*^9, 
  3.749482604518485*^9, 3.7494833541452*^9, 3.7494890219840884`*^9, 
  3.7494894620640216`*^9, 3.749497521023963*^9, 3.7494995324123864`*^9, 
  3.7494997097903633`*^9, 3.7494999890098963`*^9, 3.7495571308437676`*^9, 
  3.749560082206669*^9, 3.7498418555584164`*^9, 3.7498580266584787`*^9, 
  3.7604715214008045`*^9},
 CellLabel->
  "Out[114]=",ExpressionUUID->"2a619bcd-4424-41af-bed3-a0fa4108c7b0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ZSolutions", "[", "LocalFieldNumber", "]"}], "/.", 
  "ThisOneLooksGood"}]], "Input",
 CellChangeTimes->{{3.74941018974783*^9, 3.749410287570263*^9}, {
  3.7494103263941903`*^9, 3.749410332177493*^9}, {3.7494105274987097`*^9, 
  3.749410537744815*^9}, {3.749410571657837*^9, 3.74941074716068*^9}, {
  3.749411058139544*^9, 3.749411062568898*^9}, {3.7494115446973157`*^9, 
  3.749411545947426*^9}},
 CellLabel->
  "In[115]:=",ExpressionUUID->"f2d6e175-97cd-4318-bd63-e403d131c80c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"10", ",", "1", ",", "0"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"10", ",", "1", ",", "1"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"10", ",", "1", ",", "2"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"10", ",", "1", ",", "3"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"10", ",", "2", ",", "0"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"10", ",", "2", ",", "1"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"10", ",", "2", ",", "2"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"10", ",", "2", ",", "3"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"10", ",", "3", ",", "0"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"10", ",", "3", ",", "1"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"10", ",", "3", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{"-", "1"}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"10", ",", "3", ",", "3"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"10", ",", "4", ",", "0"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"10", ",", "4", ",", "1"}], "]"}], "\[Rule]", "1"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"10", ",", "4", ",", "2"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"10", ",", "4", ",", "3"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"10", ",", "5", ",", "0"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"10", ",", "5", ",", "1"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"10", ",", "5", ",", "2"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"10", ",", "5", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{"-", "1"}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"10", ",", "6", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{"-", "2"}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"10", ",", "6", ",", "1"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"10", ",", "6", ",", "2"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"10", ",", "6", ",", "3"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"10", ",", "7", ",", "0"}], "]"}], "\[Rule]", "2"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"10", ",", "7", ",", "1"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"10", ",", "7", ",", "2"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"10", ",", "7", ",", "3"}], "]"}], "\[Rule]", "0"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.7494102039148035`*^9, 3.749410237595869*^9}, {
   3.74941027060384*^9, 3.7494102895686717`*^9}, 3.7494103337499733`*^9, {
   3.7494105397146406`*^9, 3.7494106769721236`*^9}, {3.7494107155458097`*^9, 
   3.7494107477202597`*^9}, 3.7494110672432184`*^9, 3.749411815181512*^9, 
   3.7494119439892807`*^9, 3.749413896206716*^9, 3.7494820709316416`*^9, 
   3.7494826045333233`*^9, 3.7494833541659913`*^9, 3.749489022003948*^9, 
   3.7494894620833597`*^9, 3.749497521040332*^9, 3.7494995324297466`*^9, 
   3.749499709806689*^9, 3.7494999890247903`*^9, 3.749557130859601*^9, 
   3.7495600822205496`*^9, 3.7498418555762672`*^9, 3.749858028129322*^9, 
   3.7604715214213705`*^9},
 CellLabel->
  "Out[115]=",ExpressionUUID->"62d60298-5e35-4725-959f-2b7842a4c54b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       SubsuperscriptBox["D", "a", "i"], ",", 
       SubsuperscriptBox[
        OverscriptBox["D", "~"], "b", "j"]}], "}"}], "Ft"}], "=", " ", 
    RowBox[{
     RowBox[{"2", "i", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "1"}], "]"}], "ij"], 
      SubscriptBox["C", "ab"], 
      RowBox[{"\[Square]", "A"}]}], " ", "+", 
     RowBox[{"2", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "2"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Gamma]", "5"], ")"}], "ab"], 
      RowBox[{"\[Square]", " ", "B"}]}], " ", "+", 
     RowBox[{"2", 
      SuperscriptBox[
       RowBox[{"iZ", "[", 
        RowBox[{"lfn", ",", "3"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Mu]"], "F"}]}], "+", 
     RowBox[{"2", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "4"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["\[Gamma]", "5"], 
         SuperscriptBox["\[Gamma]", "\[Mu]"]}], ")"}], "ab"], 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Mu]"], "G"}]}], "+", 
     RowBox[{"2", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "5"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["\[Gamma]", "5"], 
         SuperscriptBox["\[Gamma]", "\[Mu]"]}], ")"}], "ab"], 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Mu]"], "d"}]}], " ", "+", 
     RowBox[{"i", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "6"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], 
      RowBox[{"\[Square]", 
       SubscriptBox["A", "\[Mu]"]}]}], "+", 
     RowBox[{"i", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "7"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Mu]"], 
       RowBox[{
        SuperscriptBox["\[PartialD]", "\[Nu]"], 
        SubscriptBox["A", "\[Nu]"]}]}]}]}]}], TraditionalForm]], "None",
  ExpressionUUID->"d258f23f-176b-4076-974d-3f3eed4a12ed"],
 " \nFieldNumber = 10"
}], "Subsubsection",
 CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, {
   3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 
   3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 
   3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, {
   3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7467956828758698`*^9, 
   3.746795686091745*^9}, {3.7468041140403814`*^9, 3.7468041142897005`*^9}, {
   3.7468347489001255`*^9, 3.7468347489001255`*^9}, {3.746834847337947*^9, 
   3.746834847884678*^9}, {3.7468396653420925`*^9, 3.7468396657549887`*^9}, {
   3.7474862914783926`*^9, 3.7474862914783926`*^9}, {3.7489743566164293`*^9, 
   3.748974374304059*^9}, {3.7494024843867817`*^9, 3.7494025055567417`*^9}, {
   3.7494877408813643`*^9, 3.7494877408813643`*^9}, {3.749487850852993*^9, 
   3.749487885152234*^9}, {3.7494880690188007`*^9, 3.749488070674741*^9}, {
   3.7494887452118835`*^9, 
   3.7494888286116867`*^9}},ExpressionUUID->"18292be8-0989-4a5f-9003-\
637aecc8630c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DeleteCases", "[", 
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Z", "[", 
       RowBox[{"LocalFieldNumber", ",", "nn"}], "]"}], "==", 
      RowBox[{"PrintSigmaProduct", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"ZGen", "[", 
             RowBox[{"LocalFieldNumber", ",", "nn"}], "]"}], "[", 
            RowBox[{"ii", ",", "jj"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"jj", ",", "1", ",", "2"}], "}"}]}], "]"}], "/.", 
         RowBox[{"ZSolutions", "[", "LocalFieldNumber", "]"}]}], "/.", 
        "ThisOneLooksGood"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"nn", ",", "1", ",", "7"}], "}"}]}], "]"}], ",", 
   RowBox[{
    RowBox[{"Z", "[", 
     RowBox[{"_", ",", "_"}], "]"}], "\[Equal]", "0"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7494822949220448`*^9, 3.7494823511478577`*^9}, {
   3.7494823858218775`*^9, 3.7494823877980165`*^9}, {3.7494824283410683`*^9, 
   3.7494824525643225`*^9}, {3.749482667989807*^9, 3.749482671509657*^9}, {
   3.749482703172926*^9, 3.7494827189481516`*^9}, {3.7494827656916285`*^9, 
   3.7494827754041166`*^9}, {3.749482825395954*^9, 3.7494828255808463`*^9}, {
   3.7494830210856953`*^9, 3.749483068325922*^9}, {3.7494831352932143`*^9, 
   3.7494831386363173`*^9}, {3.7494831726363764`*^9, 3.749483186323599*^9}, 
   3.7494833356286917`*^9},
 CellLabel->
  "In[116]:=",ExpressionUUID->"ae7286dc-f5c3-4f31-ab76-2017c6d8f274"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"Z", "[", 
     RowBox[{"10", ",", "3"}], "]"}], "\[Equal]", 
    RowBox[{
     RowBox[{"-", "\[ImaginaryI]"}], " ", 
     SubscriptBox["\[Sigma]", "2"]}]}], ",", 
   RowBox[{
    RowBox[{"Z", "[", 
     RowBox[{"10", ",", "4"}], "]"}], "\[Equal]", 
    SubscriptBox["\[Sigma]", "1"]}], ",", 
   RowBox[{
    RowBox[{"Z", "[", 
     RowBox[{"10", ",", "5"}], "]"}], "\[Equal]", 
    RowBox[{"-", 
     SubscriptBox["\[Sigma]", "3"]}]}], ",", 
   RowBox[{
    RowBox[{"Z", "[", 
     RowBox[{"10", ",", "6"}], "]"}], "\[Equal]", 
    RowBox[{
     RowBox[{"-", "2"}], " ", "\<\"I\"\>"}]}], ",", 
   RowBox[{
    RowBox[{"Z", "[", 
     RowBox[{"10", ",", "7"}], "]"}], "\[Equal]", 
    RowBox[{"2", " ", "\<\"I\"\>"}]}]}], "}"}]], "Output",
 CellChangeTimes->{{3.749483247013237*^9, 3.749483292006357*^9}, 
   3.7494833541799216`*^9, 3.7494890220286884`*^9, 3.749489462101719*^9, 
   3.7494975210517397`*^9, 3.7494995324426837`*^9, 3.749499709832609*^9, 
   3.7494999890363235`*^9, 3.7495571308705115`*^9, 3.7495600822374444`*^9, 
   3.7498418555946193`*^9, 3.749858028527717*^9, 3.7604715214354205`*^9},
 CellLabel->
  "Out[116]=",ExpressionUUID->"80475ff2-d126-4d85-828a-0333dbb98381"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{"LocalField", ",", "LocalFieldNumber"}], "]"}]], "Input",
 CellChangeTimes->{{3.747496499638111*^9, 3.7474965053367357`*^9}},
 CellLabel->
  "In[117]:=",ExpressionUUID->"dbc9bacf-e681-4517-9314-e8da7da1428e"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       SubsuperscriptBox["D", "a", "i"], ",", 
       SubsuperscriptBox[
        OverscriptBox["D", "~"], "b", "j"]}], "}"}], "Gt"}], "=", " ", 
    RowBox[{
     RowBox[{"2", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "1"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Gamma]", "5"], ")"}], "ab"], 
      RowBox[{"\[Square]", "A"}]}], " ", "+", 
     RowBox[{"2", "i", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "2"}], "]"}], "ij"], 
      SubscriptBox["C", "ab"], 
      RowBox[{"\[Square]", " ", "B"}]}], " ", "+", 
     RowBox[{"2", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "3"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["\[Gamma]", "5"], 
         SuperscriptBox["\[Gamma]", "\[Mu]"]}], ")"}], "ab"], 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Mu]"], "F"}]}], "+", 
     RowBox[{"2", " ", "i", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "4"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Mu]"], "G"}]}], "+", 
     RowBox[{"2", " ", "i", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "5"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Mu]"], "d"}]}], " ", "+", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "6"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["\[Gamma]", "5"], 
         SuperscriptBox["\[Gamma]", "\[Mu]"]}], ")"}], "ab"], 
      RowBox[{"\[Square]", 
       SubscriptBox["A", "\[Mu]"]}]}], "+", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "7"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["\[Gamma]", "5"], 
         SuperscriptBox["\[Gamma]", "\[Mu]"]}], ")"}], "ab"], 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Mu]"], 
       RowBox[{
        SuperscriptBox["\[PartialD]", "\[Nu]"], 
        SubscriptBox["A", "\[Nu]"]}]}]}]}]}], TraditionalForm]], "None",
  ExpressionUUID->"7040c583-e17c-403f-926d-ff646b1ab9bf"],
 "\nFieldNumber = 11 "
}], "Subsection",
 CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, {
   3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 
   3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 
   3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, {
   3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7467956828758698`*^9, 
   3.746795686091745*^9}, {3.7468041304980903`*^9, 3.7468041309100285`*^9}, {
   3.746839677582308*^9, 3.7468396778076735`*^9}, {3.7474862929907045`*^9, 
   3.7474862929907045`*^9}, {3.748974358387362*^9, 3.7489743760634737`*^9}, {
   3.749402487882969*^9, 3.749402502381095*^9}, {3.749489198534671*^9, 
   3.749489201834287*^9}, {3.7494892397088013`*^9, 3.74948928598308*^9}, {
   3.749489328291703*^9, 
   3.7494893285957413`*^9}},ExpressionUUID->"b7893591-1540-4b1c-bcbf-\
bb5f9bfdb5bb"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalField", " ", "=", " ", 
   RowBox[{"Gt", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LocalFieldNumber", " ", "=", " ", "11"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"CentralChargeList", "[", "LocalFieldNumber", "]"}], " ", "=", " ", 
  
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"LocalFieldNumber", ",", "FieldNumber", ",", "sigmaNumber"}], 
      "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"FieldNumber", ",", "1", ",", "7"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"sigmaNumber", ",", "0", ",", "3"}], "}"}]}], "]"}], "//", 
   "Flatten"}]}]}], "Input",
 CellChangeTimes->{{3.747496390463257*^9, 3.747496425281234*^9}, {
   3.748786525924238*^9, 3.748786528879302*^9}, 3.748786783015108*^9, 
   3.7487869038980494`*^9, {3.748790053993587*^9, 3.748790061029888*^9}, 
   3.7494892137155466`*^9},
 CellLabel->
  "In[118]:=",ExpressionUUID->"89a3cdc1-681f-49aa-96c6-ee208780db99"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"z", "[", 
    RowBox[{"11", ",", "1", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"11", ",", "1", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"11", ",", "1", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"11", ",", "1", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"11", ",", "2", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"11", ",", "2", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"11", ",", "2", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"11", ",", "2", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"11", ",", "3", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"11", ",", "3", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"11", ",", "3", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"11", ",", "3", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"11", ",", "4", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"11", ",", "4", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"11", ",", "4", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"11", ",", "4", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"11", ",", "5", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"11", ",", "5", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"11", ",", "5", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"11", ",", "5", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"11", ",", "6", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"11", ",", "6", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"11", ",", "6", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"11", ",", "6", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"11", ",", "7", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"11", ",", "7", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"11", ",", "7", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"11", ",", "7", ",", "3"}], "]"}]}], "}"}]], "Output",
 CellChangeTimes->{3.7494893820766153`*^9, 3.7494894812329483`*^9, 
  3.7494975210795155`*^9, 3.749499532476*^9, 3.7494997098619094`*^9, 
  3.7494999890600953`*^9, 3.749557130907713*^9, 3.749560082255295*^9, 
  3.7498418556273146`*^9, 3.7498580287291937`*^9, 3.760471521470705*^9},
 CellLabel->
  "Out[120]=",ExpressionUUID->"c3221ab2-02f6-48e9-9b1c-cdfe8b12971d"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Z", "[", "LocalFieldNumber", "]"}], "[", 
    RowBox[{"ii_", ",", "jj_"}], "]"}], "[", 
   RowBox[{"aa_", ",", "bb_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"2", " ", 
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "1"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"\[Gamma]5down", "[", 
     RowBox[{"[", 
      RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
    RowBox[{"Lap", "[", 
     RowBox[{"A", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], "+", 
   RowBox[{"2", "I", " ", 
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "2"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"Cmetric", "[", 
     RowBox[{"[", 
      RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
    RowBox[{"Lap", "[", 
     RowBox[{"B", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], " ", "+", 
   " ", 
   RowBox[{"2", 
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "3"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"F", "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
         RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"mu", ",", "0", ",", " ", "3"}], "}"}]}], "]"}]}], "+", " ", 
   RowBox[{"2", " ", "I", " ", 
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "4"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"G", "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
         RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"mu", ",", "0", ",", " ", "3"}], "}"}]}], "]"}]}], "+", 
   RowBox[{"2", " ", "I", " ", 
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "5"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"d", "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
         RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"mu", ",", "0", ",", " ", "3"}], "}"}]}], "]"}]}], "+", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "6"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{"Lap", "[", 
        RowBox[{
         RowBox[{"Am", "[", "mu", "]"}], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], " ", "+", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "7"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"UD", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"Am", "[", "nu", "]"}], "[", 
            RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
           RowBox[{"\[CapitalStigma]", "[", "nu", "]"}]}], "]"}], ",", 
         RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}], " "}]}]}]], "Input",\

 CellChangeTimes->{{3.7494085451000586`*^9, 3.7494085523049335`*^9}, {
  3.7494085899690495`*^9, 3.749408615257099*^9}, {3.7494086507852697`*^9, 
  3.749408665345*^9}, {3.7494093016570387`*^9, 3.7494093465610495`*^9}, {
  3.7494095637774105`*^9, 3.749409578217074*^9}, {3.749409653409035*^9, 
  3.7494098016018295`*^9}, {3.7494098348498144`*^9, 3.7494100216819773`*^9}, {
  3.749413397113825*^9, 3.7494133979214287`*^9}, {3.749413438274826*^9, 
  3.749413452297429*^9}, {3.749413537033685*^9, 3.7494138221700463`*^9}, {
  3.749414108162184*^9, 3.7494141833622804`*^9}, {3.7494892934998865`*^9, 
  3.7494893564117064`*^9}},
 CellLabel->
  "In[121]:=",ExpressionUUID->"79ed4c6e-8d4f-422c-99ec-41812546d3c7"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"ZTable", "[", "LocalFieldNumber", "]"}], " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Z", "[", "LocalFieldNumber", "]"}], "[", 
       RowBox[{"ii", ",", "jj"}], "]"}], "[", 
      RowBox[{"aa", ",", "bb"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7494086675397387`*^9, 3.749408718609185*^9}, {
  3.7494087673051147`*^9, 3.7494087768495007`*^9}},
 CellLabel->
  "In[122]:=",ExpressionUUID->"c6416ed4-1f3e-47b7-a975-a667ac0d3480"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"AlgebraDDMinusClosure", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", 
   
   RowBox[{"(", 
    RowBox[{"Collect", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"AlgebraDD", "[", 
            RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalField", "]"}], " ",
           "-", " ", 
          RowBox[{"ZTable", "[", "LocalFieldNumber", "]"}]}], ")"}], "/.", 
        "LagrangianParameters"}], "/.", "VtoPauli"}], ",", 
      "FieldListWithDerivatives", ",", "Simplify"}], "]"}], ")"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.7474929944818563`*^9, 3.7474930651472597`*^9}, {
  3.747493152219424*^9, 3.7474932477784343`*^9}, {3.7474934178914785`*^9, 
  3.7474934832105627`*^9}, {3.7474935638267813`*^9, 3.747493591801224*^9}, {
  3.7474963739738455`*^9, 3.7474964449288054`*^9}, {3.748795026042665*^9, 
  3.748795027776865*^9}, {3.748965282772246*^9, 3.7489652841431913`*^9}, {
  3.748967256264186*^9, 3.7489672582499332`*^9}, {3.7494004185551434`*^9, 
  3.7494004426991215`*^9}, {3.7494086299617586`*^9, 3.749408647033921*^9}, {
  3.7494087803530507`*^9, 3.7494087808412037`*^9}},
 CellLabel->
  "In[123]:=",ExpressionUUID->"9ba1910c-db68-4a42-8762-6d8ac15caee2"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"AlgebraDDEqs", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", 
   "=", " ", 
   RowBox[{
    RowBox[{"DeleteCases", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"Coefficient", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"AlgebraDDMinusClosure", "[", 
                 RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", 
                "]"}], "[", 
               RowBox[{"[", 
                RowBox[{"ii", ",", "aa", ",", "jj", ",", "bb"}], "]"}], "]"}],
               ",", 
              RowBox[{"FieldListWithDerivatives", "[", 
               RowBox[{"[", "FieldListIndex", "]"}], "]"}]}], "]"}], ")"}], 
           "\[Equal]", "0"}], ",", 
          RowBox[{"{", 
           RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"FieldListIndex", ",", "1", ",", 
            RowBox[{"Length", "[", "FieldListWithDerivatives", "]"}]}], 
           "}"}]}], "]"}], "//", "Simplify"}], "//", "Flatten"}], ",", 
      "True"}], "]"}], "//", "DeleteDuplicates"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7474933413160763`*^9, 3.7474934023534203`*^9}, {
   3.747493509609391*^9, 3.7474935432809353`*^9}, {3.7474936064895945`*^9, 
   3.7474936161297655`*^9}, {3.7474936564987297`*^9, 3.747493747940831*^9}, {
   3.747493832482408*^9, 3.7474938407374077`*^9}, {3.747496458745552*^9, 
   3.7474964697370515`*^9}, 3.7475105609270287`*^9, {3.748795270744809*^9, 
   3.748795274222528*^9}, {3.74879531011075*^9, 3.748795321437098*^9}, {
   3.748795652987978*^9, 3.748795656902155*^9}, {3.748965289858489*^9, 
   3.748965292697112*^9}, {3.748967259459038*^9, 3.748967260813509*^9}, {
   3.7489708313422194`*^9, 3.7489708325427723`*^9}, {3.749400458403777*^9, 
   3.749400461474213*^9}},
 CellLabel->
  "In[124]:=",ExpressionUUID->"007b38ba-d2e9-4338-94c0-6ca5398d3bb2"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "[", 
  RowBox[{
   RowBox[{"AlgebraDDEqs", "[", 
    RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.747493880500272*^9, 3.7474938897376738`*^9}, {
   3.7474964759857783`*^9, 3.747496478481014*^9}, 3.748967263446204*^9},
 CellLabel->
  "In[125]:=",ExpressionUUID->"f9492f32-0b8b-4432-b763-ede958f0051b"],

Cell[BoxData["54"], "Output",
 CellChangeTimes->{3.749402369344755*^9, 3.7494025812692585`*^9, 
  3.7494101413703766`*^9, 3.7494118150094*^9, 3.749411943930292*^9, 
  3.7494138961322794`*^9, 3.7494142148169713`*^9, 3.749482072697443*^9, 
  3.749482606295091*^9, 3.7494833767030687`*^9, 3.7494893841345205`*^9, 
  3.7494894831976624`*^9, 3.7494975229380317`*^9, 3.7494995342283697`*^9, 
  3.7494997116907387`*^9, 3.749499990815977*^9, 3.749557132564351*^9, 
  3.7495600839510794`*^9, 3.7498418575567975`*^9, 3.7498580308552713`*^9, 
  3.7604715232257876`*^9},
 CellLabel->
  "Out[125]=",ExpressionUUID->"ff091632-316c-4230-95c9-db5670d8c177"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ZSolutions", "[", "LocalFieldNumber", "]"}], " ", "=", " ", 
  RowBox[{
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"AlgebraDDEqs", "[", 
       RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], 
     ",", 
     RowBox[{"CentralChargeList", "[", "LocalFieldNumber", "]"}]}], "]"}], "//",
    "Flatten"}]}]], "Input",
 CellChangeTimes->{{3.7494088104519863`*^9, 3.749408859016982*^9}, 
   3.749410151970128*^9, {3.749483365325415*^9, 3.74948336653946*^9}},
 CellLabel->
  "In[126]:=",ExpressionUUID->"dc868a5c-11c0-4039-bb21-8a3156707f4d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"11", ",", "1", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "1", "]"}], "[", "0", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "9", "]"}], "[", "0", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"11", ",", "1", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "1", "]"}], "[", "1", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "9", "]"}], "[", "1", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"11", ",", "1", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "1", "]"}], "[", "2", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "9", "]"}], "[", "2", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"11", ",", "1", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "1", "]"}], "[", "3", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "9", "]"}], "[", "3", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"11", ",", "2", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "2", "]"}], "[", "0", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "9", "]"}], "[", "0", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"11", ",", "2", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "2", "]"}], "[", "1", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "9", "]"}], "[", "1", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"11", ",", "2", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "2", "]"}], "[", "2", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "9", "]"}], "[", "2", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"11", ",", "2", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "2", "]"}], "[", "3", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "9", "]"}], "[", "3", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"11", ",", "3", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "3", "]"}], "[", "0", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "9", "]"}], "[", "0", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"11", ",", "3", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "3", "]"}], "[", "1", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "9", "]"}], "[", "1", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"11", ",", "3", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "3", "]"}], "[", "2", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "9", "]"}], "[", "2", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"11", ",", "3", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "3", "]"}], "[", "3", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "9", "]"}], "[", "3", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"11", ",", "4", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "4", "]"}], "[", "0", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "9", "]"}], "[", "3", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"11", ",", "4", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "4", "]"}], "[", "1", "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "9", "]"}], "[", "2", "]"}]}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"11", ",", "4", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "4", "]"}], "[", "2", "]"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "9", "]"}], "[", "1", "]"}]}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"11", ",", "4", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "4", "]"}], "[", "3", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "9", "]"}], "[", "0", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"11", ",", "5", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "6", "]"}], "[", "0", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "9", "]"}], "[", "1", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"11", ",", "5", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "6", "]"}], "[", "1", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "9", "]"}], "[", "0", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"11", ",", "5", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "6", "]"}], "[", "2", "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "9", "]"}], "[", "3", "]"}]}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"11", ",", "5", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "6", "]"}], "[", "3", "]"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "9", "]"}], "[", "2", "]"}]}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"11", ",", "6", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{"\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "0", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "9", "]"}], "[", "2", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"11", ",", "6", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{"\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "1", "]"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "9", "]"}], "[", "3", "]"}]}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"11", ",", "6", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{
       RowBox[{"cv", "[", "5", "]"}], "[", "2", "]"}]}], "-", 
     RowBox[{
      RowBox[{"cv", "[", "9", "]"}], "[", "0", "]"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"11", ",", "6", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{"\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "3", "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "9", "]"}], "[", "1", "]"}]}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"11", ",", "7", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", "\[ImaginaryI]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "0", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "9", "]"}], "[", "2", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"11", ",", "7", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], " ", 
      RowBox[{
       RowBox[{"cv", "[", "5", "]"}], "[", "1", "]"}]}], "-", 
     RowBox[{
      RowBox[{"cv", "[", "9", "]"}], "[", "3", "]"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"11", ",", "7", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{
      RowBox[{"cv", "[", "5", "]"}], "[", "2", "]"}], "+", 
     RowBox[{
      RowBox[{"cv", "[", "9", "]"}], "[", "0", "]"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"11", ",", "7", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", "\[ImaginaryI]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "3", "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "9", "]"}], "[", "1", "]"}]}]}], ")"}]}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.749410161019311*^9, 3.7494118151681185`*^9, 
  3.749411943964021*^9, 3.749413896188343*^9, 3.749414214858148*^9, 
  3.7494820727683873`*^9, 3.7494826063689833`*^9, 3.749483376732319*^9, 
  3.7494893842094154`*^9, 3.749489483230398*^9, 3.749497522967334*^9, 
  3.749499534302784*^9, 3.7494997117840247`*^9, 3.749499990876989*^9, 
  3.749557132613003*^9, 3.7495600840065937`*^9, 3.749841857658434*^9, 
  3.749858031046921*^9, 3.760471523271204*^9},
 CellLabel->
  "Out[126]=",ExpressionUUID->"3a3eb490-6f49-436a-9d81-f13ba22f2452"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ZSolutions", "[", "LocalFieldNumber", "]"}], "/.", 
  "ThisOneLooksGood"}]], "Input",
 CellChangeTimes->{{3.74941018974783*^9, 3.749410287570263*^9}, {
  3.7494103263941903`*^9, 3.749410332177493*^9}, {3.7494105274987097`*^9, 
  3.749410537744815*^9}, {3.749410571657837*^9, 3.74941074716068*^9}, {
  3.749411058139544*^9, 3.749411062568898*^9}, {3.7494115446973157`*^9, 
  3.749411545947426*^9}},
 CellLabel->
  "In[127]:=",ExpressionUUID->"411d9c6e-8c36-405a-b30a-11f0d3743f5c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"11", ",", "1", ",", "0"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"11", ",", "1", ",", "1"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"11", ",", "1", ",", "2"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"11", ",", "1", ",", "3"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"11", ",", "2", ",", "0"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"11", ",", "2", ",", "1"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"11", ",", "2", ",", "2"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"11", ",", "2", ",", "3"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"11", ",", "3", ",", "0"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"11", ",", "3", ",", "1"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"11", ",", "3", ",", "2"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"11", ",", "3", ",", "3"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"11", ",", "4", ",", "0"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"11", ",", "4", ",", "1"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"11", ",", "4", ",", "2"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"11", ",", "4", ",", "3"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"11", ",", "5", ",", "0"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"11", ",", "5", ",", "1"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"11", ",", "5", ",", "2"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"11", ",", "5", ",", "3"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"11", ",", "6", ",", "0"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"11", ",", "6", ",", "1"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"11", ",", "6", ",", "2"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"11", ",", "6", ",", "3"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"11", ",", "7", ",", "0"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"11", ",", "7", ",", "1"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"11", ",", "7", ",", "2"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"11", ",", "7", ",", "3"}], "]"}], "\[Rule]", "0"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.7494102039148035`*^9, 3.749410237595869*^9}, {
   3.74941027060384*^9, 3.7494102895686717`*^9}, 3.7494103337499733`*^9, {
   3.7494105397146406`*^9, 3.7494106769721236`*^9}, {3.7494107155458097`*^9, 
   3.7494107477202597`*^9}, 3.7494110672432184`*^9, 3.749411815181512*^9, 
   3.7494119439892807`*^9, 3.749413896206716*^9, 3.749414214877533*^9, 
   3.74948207278376*^9, 3.749482606384819*^9, 3.7494833767585664`*^9, 
   3.7494893842288027`*^9, 3.7494894832487535`*^9, 3.7494975229831715`*^9, 
   3.7494995343260803`*^9, 3.749499711800851*^9, 3.749499990891839*^9, 
   3.7495571326298246`*^9, 3.749560084019986*^9, 3.7498418576773376`*^9, 
   3.7498580312426443`*^9, 3.7604715232911205`*^9},
 CellLabel->
  "Out[127]=",ExpressionUUID->"baaee919-356e-4bc1-99fa-97c72c356436"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       SubsuperscriptBox["D", "a", "i"], ",", 
       SubsuperscriptBox[
        OverscriptBox["D", "~"], "b", "j"]}], "}"}], "Gt"}], "=", " ", 
    RowBox[{
     RowBox[{"2", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "1"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Gamma]", "5"], ")"}], "ab"], 
      RowBox[{"\[Square]", "A"}]}], " ", "+", 
     RowBox[{"2", "i", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "2"}], "]"}], "ij"], 
      SubscriptBox["C", "ab"], 
      RowBox[{"\[Square]", " ", "B"}]}], " ", "+", 
     RowBox[{"2", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "3"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["\[Gamma]", "5"], 
         SuperscriptBox["\[Gamma]", "\[Mu]"]}], ")"}], "ab"], 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Mu]"], "F"}]}], "+", 
     RowBox[{"2", " ", "i", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "4"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Mu]"], "G"}]}], "+", 
     RowBox[{"2", " ", "i", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "5"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Mu]"], "d"}]}], " ", "+", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "6"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["\[Gamma]", "5"], 
         SuperscriptBox["\[Gamma]", "\[Mu]"]}], ")"}], "ab"], 
      RowBox[{"\[Square]", 
       SubscriptBox["A", "\[Mu]"]}]}], "+", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "7"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["\[Gamma]", "5"], 
         SuperscriptBox["\[Gamma]", "\[Mu]"]}], ")"}], "ab"], 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Mu]"], 
       RowBox[{
        SuperscriptBox["\[PartialD]", "\[Nu]"], 
        SubscriptBox["A", "\[Nu]"]}]}]}]}]}], TraditionalForm]], "None",
  ExpressionUUID->"97c49317-e91d-4415-af04-4e687b700a09"],
 "\nFieldNumber = 11 "
}], "Subsubsection",
 CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, {
   3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 
   3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 
   3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, {
   3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7467956828758698`*^9, 
   3.746795686091745*^9}, {3.7468041304980903`*^9, 3.7468041309100285`*^9}, {
   3.746839677582308*^9, 3.7468396778076735`*^9}, {3.7474862929907045`*^9, 
   3.7474862929907045`*^9}, {3.748974358387362*^9, 3.7489743760634737`*^9}, {
   3.749402487882969*^9, 3.749402502381095*^9}, {3.749489198534671*^9, 
   3.749489201834287*^9}, {3.7494892397088013`*^9, 3.74948928598308*^9}, {
   3.749489328291703*^9, 
   3.7494893285957413`*^9}},ExpressionUUID->"f4d79ce4-8597-4220-b823-\
6077f87efb07"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DeleteCases", "[", 
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Z", "[", 
       RowBox[{"LocalFieldNumber", ",", "nn"}], "]"}], "==", 
      RowBox[{"PrintSigmaProduct", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"ZGen", "[", 
             RowBox[{"LocalFieldNumber", ",", "nn"}], "]"}], "[", 
            RowBox[{"ii", ",", "jj"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"jj", ",", "1", ",", "2"}], "}"}]}], "]"}], "/.", 
         RowBox[{"ZSolutions", "[", "LocalFieldNumber", "]"}]}], "/.", 
        "ThisOneLooksGood"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"nn", ",", "1", ",", "7"}], "}"}]}], "]"}], ",", 
   RowBox[{
    RowBox[{"Z", "[", 
     RowBox[{"_", ",", "_"}], "]"}], "\[Equal]", "0"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7494822949220448`*^9, 3.7494823511478577`*^9}, {
   3.7494823858218775`*^9, 3.7494823877980165`*^9}, {3.7494824283410683`*^9, 
   3.7494824525643225`*^9}, {3.749482667989807*^9, 3.749482671509657*^9}, {
   3.749482703172926*^9, 3.7494827189481516`*^9}, {3.7494827656916285`*^9, 
   3.7494827754041166`*^9}, {3.749482825395954*^9, 3.7494828255808463`*^9}, {
   3.7494830210856953`*^9, 3.749483068325922*^9}, {3.7494831352932143`*^9, 
   3.7494831386363173`*^9}, {3.7494831726363764`*^9, 3.749483186323599*^9}, 
   3.749489181035274*^9},
 CellLabel->
  "In[128]:=",ExpressionUUID->"e552d758-92de-4219-b435-ae3a06a8a455"],

Cell[BoxData[
 RowBox[{"{", "}"}]], "Output",
 CellChangeTimes->{{3.749483247013237*^9, 3.749483292006357*^9}, 
   3.7494833767734814`*^9, 3.749489384243677*^9, 3.7494894832596617`*^9, 
   3.7494975229960594`*^9, 3.7494995343434873`*^9, 3.749499711816129*^9, 
   3.749499990902776*^9, 3.7495571326392946`*^9, 3.749560084037346*^9, 
   3.7498418576941576`*^9, 3.749858031445961*^9, 3.7604715233052006`*^9},
 CellLabel->
  "Out[128]=",ExpressionUUID->"addbf926-349d-4efc-bb9c-463fab67d702"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{"LocalField", ",", "LocalFieldNumber"}], "]"}]], "Input",
 CellChangeTimes->{{3.747496499638111*^9, 3.7474965053367357`*^9}},
 CellLabel->
  "In[129]:=",ExpressionUUID->"3403d7c5-4a99-48e4-be86-3cd99ede3c83"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       SubsuperscriptBox["D", "a", "i"], ",", 
       SubsuperscriptBox[
        OverscriptBox["D", "~"], "b", "j"]}], "}"}], "\[CurlyPhi]"}], "=", 
    " ", 
    RowBox[{
     RowBox[{"2", "i", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "1"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Mu]"], "A"}]}], " ", "+", 
     RowBox[{"2", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "2"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["\[Gamma]", "5"], 
         SuperscriptBox["\[Gamma]", "\[Mu]"]}], ")"}], "ab"], 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Mu]"], "B"}]}], " ", "+", 
     RowBox[{"2", "i", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "3"}], "]"}], "ij"], 
      SubscriptBox["C", "ab"], "F"}], "+", 
     RowBox[{"2", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "4"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Gamma]", "5"], ")"}], "ab"], "G"}], "+", 
     RowBox[{"2", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "5"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Gamma]", "5"], ")"}], "ab"], "d"}], " ", "+", 
     RowBox[{"i", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "6"}], "]"}], "ij"], 
      SubscriptBox["C", "ab"], 
      RowBox[{
       SuperscriptBox["\[PartialD]", "\[Mu]"], 
       SubscriptBox["A", "\[Mu]"]}]}], "+", 
     RowBox[{"i", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "7"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        RowBox[{"[", 
         RowBox[{
          SuperscriptBox["\[Gamma]", "\[Mu]"], ",", 
          SuperscriptBox["\[Gamma]", "\[Nu]"]}], "]"}], ")"}], "ab"], 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Mu]"], 
       SubscriptBox["A", "\[Nu]"], " "}]}]}]}], TraditionalForm]], "None",
  ExpressionUUID->"50f35b5d-87f9-47cb-8428-965cb067eac2"],
 "\nFieldNumber = 12 "
}], "Subsection",
 CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, {
   3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 
   3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 
   3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, {
   3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7467956828758698`*^9, 
   3.746795686091745*^9}, {3.7468041304980903`*^9, 3.7468041309100285`*^9}, {
   3.746804167332865*^9, 3.7468041675702257`*^9}, {3.746839701322327*^9, 
   3.7468397017451973`*^9}, {3.747486294430385*^9, 3.747486294430385*^9}, {
   3.7489743601067057`*^9, 3.748974377936059*^9}, {3.749402492882146*^9, 
   3.7494024967870865`*^9}, {3.7494895612886763`*^9, 
   3.7494895640740376`*^9}},ExpressionUUID->"5d438b76-ace2-48e3-b168-\
c0d91150e30a"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalField", " ", "=", " ", 
   RowBox[{"\[CurlyPhi]", "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LocalFieldNumber", " ", "=", " ", "12"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"CentralChargeList", "[", "LocalFieldNumber", "]"}], " ", "=", " ", 
  
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"LocalFieldNumber", ",", "FieldNumber", ",", "sigmaNumber"}], 
      "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"FieldNumber", ",", "1", ",", "7"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"sigmaNumber", ",", "0", ",", "3"}], "}"}]}], "]"}], "//", 
   "Flatten"}]}]}], "Input",
 CellChangeTimes->{{3.747496390463257*^9, 3.747496425281234*^9}, {
   3.748786525924238*^9, 3.748786528879302*^9}, 3.748786783015108*^9, 
   3.7487869038980494`*^9, 3.749489546867897*^9},
 CellLabel->
  "In[130]:=",ExpressionUUID->"29b96f87-4ac1-45e2-a4f2-db18f26d8a91"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"z", "[", 
    RowBox[{"12", ",", "1", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"12", ",", "1", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"12", ",", "1", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"12", ",", "1", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"12", ",", "2", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"12", ",", "2", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"12", ",", "2", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"12", ",", "2", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"12", ",", "3", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"12", ",", "3", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"12", ",", "3", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"12", ",", "3", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"12", ",", "4", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"12", ",", "4", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"12", ",", "4", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"12", ",", "4", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"12", ",", "5", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"12", ",", "5", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"12", ",", "5", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"12", ",", "5", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"12", ",", "6", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"12", ",", "6", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"12", ",", "6", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"12", ",", "6", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"12", ",", "7", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"12", ",", "7", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"12", ",", "7", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"12", ",", "7", ",", "3"}], "]"}]}], "}"}]], "Output",
 CellChangeTimes->{3.7494900258806705`*^9, 3.7494975230278034`*^9, 
  3.7494995343763294`*^9, 3.7494997118400035`*^9, 3.749499990926586*^9, 
  3.7495571326735935`*^9, 3.7495600840552397`*^9, 3.7498418577269173`*^9, 
  3.7498580316668863`*^9, 3.7604715233376975`*^9},
 CellLabel->
  "Out[132]=",ExpressionUUID->"e84e77ce-ffdb-4fa3-ae4e-c88d186c0592"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Z", "[", "LocalFieldNumber", "]"}], "[", 
    RowBox[{"ii_", ",", "jj_"}], "]"}], "[", 
   RowBox[{"aa_", ",", "bb_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"2", " ", "I", " ", 
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "1"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"A", "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
         RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "+", 
   RowBox[{"2", " ", 
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "2"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"B", "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
         RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], " ", "+", " ", 
   RowBox[{"2", " ", "I", " ", 
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "3"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"Cmetric", "[", 
     RowBox[{"[", 
      RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
    RowBox[{"F", "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", " ", 
   RowBox[{"2", " ", 
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "4"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"\[Gamma]5down", "[", 
     RowBox[{"[", 
      RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
    RowBox[{"G", "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", " ", 
   RowBox[{"2", " ", 
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "5"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"\[Gamma]5down", "[", 
     RowBox[{"[", 
      RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
    RowBox[{"d", "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", "+", 
   RowBox[{"I", " ", 
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "6"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"Cmetric", "[", 
     RowBox[{"[", 
      RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{"UD", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Am", "[", "mu", "]"}], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
        RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "+", 
   RowBox[{"I", " ", 
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "7"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"CommuteGammadown", "[", 
         RowBox[{"mu", ",", "nu"}], "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Am", "[", "nu", "]"}], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
         RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.7494085451000586`*^9, 3.7494085523049335`*^9}, {
  3.7494085899690495`*^9, 3.749408615257099*^9}, {3.7494086507852697`*^9, 
  3.749408665345*^9}, {3.7494093016570387`*^9, 3.7494093465610495`*^9}, {
  3.7494095637774105`*^9, 3.749409578217074*^9}, {3.749409653409035*^9, 
  3.7494098016018295`*^9}, {3.7494098348498144`*^9, 3.7494100216819773`*^9}, {
  3.7494862265493007`*^9, 3.74948626538061*^9}, {3.749486303084411*^9, 
  3.749486409804064*^9}},
 CellLabel->
  "In[133]:=",ExpressionUUID->"1d5f62be-3e5e-4be9-9b86-3b2211cd41f9"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"ZTable", "[", "LocalFieldNumber", "]"}], " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Z", "[", "LocalFieldNumber", "]"}], "[", 
       RowBox[{"ii", ",", "jj"}], "]"}], "[", 
      RowBox[{"aa", ",", "bb"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7494086675397387`*^9, 3.749408718609185*^9}, {
  3.7494087673051147`*^9, 3.7494087768495007`*^9}},
 CellLabel->
  "In[134]:=",ExpressionUUID->"52447c01-8abb-4182-baea-047d8f12150b"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"AlgebraDDMinusClosure", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", 
   
   RowBox[{"(", 
    RowBox[{"Collect", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"AlgebraDD", "[", 
            RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalField", "]"}], " ",
           "-", " ", 
          RowBox[{"ZTable", "[", "LocalFieldNumber", "]"}]}], ")"}], "/.", 
        "LagrangianParameters"}], "/.", "VtoPauli"}], ",", 
      "FieldListWithDerivatives", ",", "Simplify"}], "]"}], ")"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.7474929944818563`*^9, 3.7474930651472597`*^9}, {
  3.747493152219424*^9, 3.7474932477784343`*^9}, {3.7474934178914785`*^9, 
  3.7474934832105627`*^9}, {3.7474935638267813`*^9, 3.747493591801224*^9}, {
  3.7474963739738455`*^9, 3.7474964449288054`*^9}, {3.748795026042665*^9, 
  3.748795027776865*^9}, {3.748965282772246*^9, 3.7489652841431913`*^9}, {
  3.748967256264186*^9, 3.7489672582499332`*^9}, {3.7494004185551434`*^9, 
  3.7494004426991215`*^9}, {3.7494086299617586`*^9, 3.749408647033921*^9}, {
  3.7494087803530507`*^9, 3.7494087808412037`*^9}},
 CellLabel->
  "In[135]:=",ExpressionUUID->"56e5d59d-b45a-4ca0-b0c3-bbb559784d28"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"AlgebraDDEqs", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", 
   "=", " ", 
   RowBox[{
    RowBox[{"DeleteCases", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"Coefficient", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"AlgebraDDMinusClosure", "[", 
                 RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", 
                "]"}], "[", 
               RowBox[{"[", 
                RowBox[{"ii", ",", "aa", ",", "jj", ",", "bb"}], "]"}], "]"}],
               ",", 
              RowBox[{"FieldListWithDerivatives", "[", 
               RowBox[{"[", "FieldListIndex", "]"}], "]"}]}], "]"}], ")"}], 
           "\[Equal]", "0"}], ",", 
          RowBox[{"{", 
           RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"FieldListIndex", ",", "1", ",", 
            RowBox[{"Length", "[", "FieldListWithDerivatives", "]"}]}], 
           "}"}]}], "]"}], "//", "Simplify"}], "//", "Flatten"}], ",", 
      "True"}], "]"}], "//", "DeleteDuplicates"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7474933413160763`*^9, 3.7474934023534203`*^9}, {
   3.747493509609391*^9, 3.7474935432809353`*^9}, {3.7474936064895945`*^9, 
   3.7474936161297655`*^9}, {3.7474936564987297`*^9, 3.747493747940831*^9}, {
   3.747493832482408*^9, 3.7474938407374077`*^9}, {3.747496458745552*^9, 
   3.7474964697370515`*^9}, 3.7475105609270287`*^9, {3.748795270744809*^9, 
   3.748795274222528*^9}, {3.74879531011075*^9, 3.748795321437098*^9}, {
   3.748795652987978*^9, 3.748795656902155*^9}, {3.748965289858489*^9, 
   3.748965292697112*^9}, {3.748967259459038*^9, 3.748967260813509*^9}, {
   3.7489708313422194`*^9, 3.7489708325427723`*^9}, {3.749400458403777*^9, 
   3.749400461474213*^9}},
 CellLabel->
  "In[136]:=",ExpressionUUID->"ef4ec8b4-24d8-42e1-a6b8-c2c0aff6dffb"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "[", 
  RowBox[{
   RowBox[{"AlgebraDDEqs", "[", 
    RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.747493880500272*^9, 3.7474938897376738`*^9}, {
   3.7474964759857783`*^9, 3.747496478481014*^9}, 3.748967263446204*^9},
 CellLabel->
  "In[137]:=",ExpressionUUID->"71aa2c21-1484-4c53-9cd8-a71dd9642cb6"],

Cell[BoxData["50"], "Output",
 CellChangeTimes->{
  3.749402369344755*^9, 3.7494025812692585`*^9, 3.7494101413703766`*^9, 
   3.7494820675202274`*^9, 3.7494826010398684`*^9, 3.7494828373565598`*^9, {
   3.7494829726852674`*^9, 3.7494829961595726`*^9}, 3.7494830980945587`*^9, 
   3.7494832069386897`*^9, 3.7494864667491198`*^9, 3.749490026951528*^9, 
   3.749497523934491*^9, 3.749499535254295*^9, 3.749499712779425*^9, 
   3.74949999177733*^9, 3.7495571334949703`*^9, 3.7495600849028654`*^9, 
   3.749841858654495*^9, 3.7498580330381527`*^9, 3.7604715241423597`*^9},
 CellLabel->
  "Out[137]=",ExpressionUUID->"7e2c62eb-2f8c-48c3-9ff1-7932784250b0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ZSolutions", "[", "LocalFieldNumber", "]"}], " ", "=", " ", 
  RowBox[{
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"AlgebraDDEqs", "[", 
       RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], 
     ",", 
     RowBox[{"CentralChargeList", "[", "LocalFieldNumber", "]"}]}], "]"}], "//",
    "Flatten"}]}]], "Input",
 CellChangeTimes->{{3.7494088104519863`*^9, 3.749408859016982*^9}, 
   3.749410151970128*^9, {3.749482953421772*^9, 3.7494829550114527`*^9}, {
   3.749482991773706*^9, 3.749482992051861*^9}},
 CellLabel->
  "In[138]:=",ExpressionUUID->"f98adaff-5911-42b2-a167-2f0b741d613f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"12", ",", "1", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "1", "]"}], "[", "1", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "11", "]"}], "[", "0", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"12", ",", "1", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "1", "]"}], "[", "0", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "11", "]"}], "[", "1", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"12", ",", "1", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "1", "]"}], "[", "3", "]"}]}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "11", "]"}], "[", "2", "]"}]}]}], ")"}]}]}], ",", 
   
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"12", ",", "1", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "1", "]"}], "[", "2", "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "11", "]"}], "[", "3", "]"}]}]}], ")"}]}]}], ",", 
   
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"12", ",", "2", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "2", "]"}], "[", "1", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "11", "]"}], "[", "0", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"12", ",", "2", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "2", "]"}], "[", "0", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "11", "]"}], "[", "1", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"12", ",", "2", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "2", "]"}], "[", "3", "]"}]}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "11", "]"}], "[", "2", "]"}]}]}], ")"}]}]}], ",", 
   
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"12", ",", "2", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "2", "]"}], "[", "2", "]"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "11", "]"}], "[", "3", "]"}]}]}], ")"}]}]}], ",", 
   
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"12", ",", "3", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "3", "]"}], "[", "1", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "11", "]"}], "[", "0", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"12", ",", "3", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "3", "]"}], "[", "0", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "11", "]"}], "[", "1", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"12", ",", "3", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "3", "]"}], "[", "3", "]"}]}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "11", "]"}], "[", "2", "]"}]}]}], ")"}]}]}], ",", 
   
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"12", ",", "3", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "3", "]"}], "[", "2", "]"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "11", "]"}], "[", "3", "]"}]}]}], ")"}]}]}], ",", 
   
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"12", ",", "4", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "4", "]"}], "[", "1", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "11", "]"}], "[", "3", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"12", ",", "4", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "4", "]"}], "[", "0", "]"}]}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "11", "]"}], "[", "2", "]"}]}]}], ")"}]}]}], ",", 
   
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"12", ",", "4", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "4", "]"}], "[", "3", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "11", "]"}], "[", "1", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"12", ",", "4", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "4", "]"}], "[", "2", "]"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "11", "]"}], "[", "0", "]"}]}]}], ")"}]}]}], ",", 
   
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"12", ",", "5", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "6", "]"}], "[", "1", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "11", "]"}], "[", "1", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"12", ",", "5", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "6", "]"}], "[", "0", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "11", "]"}], "[", "0", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"12", ",", "5", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "6", "]"}], "[", "3", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "11", "]"}], "[", "3", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"12", ",", "5", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "6", "]"}], "[", "2", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "11", "]"}], "[", "2", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"12", ",", "6", ",", "0"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"12", ",", "6", ",", "1"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"12", ",", "6", ",", "2"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"12", ",", "6", ",", "3"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"12", ",", "7", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "1", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "11", "]"}], "[", "2", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"12", ",", "7", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "0", "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "11", "]"}], "[", "3", "]"}]}]}], ")"}]}]}], ",", 
   
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"12", ",", "7", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "3", "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "11", "]"}], "[", "0", "]"}]}]}], ")"}]}]}], ",", 
   
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"12", ",", "7", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "5", "]"}], "[", "2", "]"}]}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "11", "]"}], "[", "1", "]"}]}], ")"}]}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.749410161019311*^9, 3.7494820675836697`*^9, 3.749482601117894*^9, 
   3.749482837383304*^9, {3.749482955925235*^9, 3.749482996184867*^9}, 
   3.749483098167952*^9, 3.7494832069679165`*^9, 3.7494864668309393`*^9, 
   3.749490026991704*^9, 3.7494975239672327`*^9, 3.74949953532878*^9, 
   3.749499712851883*^9, 3.749499991843364*^9, 3.749557133543619*^9, 
   3.7495600849564342`*^9, 3.7498418586862373`*^9, 3.7498580331868057`*^9, 
   3.760471524191204*^9},
 CellLabel->
  "Out[138]=",ExpressionUUID->"11af6f7d-f0f4-4e63-a94c-c75450f680c4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       SubsuperscriptBox["D", "a", "i"], ",", 
       SubsuperscriptBox[
        OverscriptBox["D", "~"], "b", "j"]}], "}"}], "\[CurlyPhi]"}], "=", 
    " ", 
    RowBox[{
     RowBox[{"2", "i", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "1"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Mu]"], "A"}]}], " ", "+", 
     RowBox[{"2", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "2"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["\[Gamma]", "5"], 
         SuperscriptBox["\[Gamma]", "\[Mu]"]}], ")"}], "ab"], 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Mu]"], "B"}]}], " ", "+", 
     RowBox[{"2", "i", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "3"}], "]"}], "ij"], 
      SubscriptBox["C", "ab"], "F"}], "+", 
     RowBox[{"2", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "4"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Gamma]", "5"], ")"}], "ab"], "G"}], "+", 
     RowBox[{"2", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "5"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Gamma]", "5"], ")"}], "ab"], "d"}], " ", "+", 
     RowBox[{"i", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "6"}], "]"}], "ij"], 
      SubscriptBox["C", "ab"], 
      RowBox[{
       SuperscriptBox["\[PartialD]", "\[Mu]"], 
       SubscriptBox["A", "\[Mu]"]}]}], "+", 
     RowBox[{"i", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "7"}], "]"}], "ij"], 
      SubscriptBox[
       RowBox[{"(", 
        RowBox[{"[", 
         RowBox[{
          SuperscriptBox["\[Gamma]", "\[Mu]"], ",", 
          SuperscriptBox["\[Gamma]", "\[Nu]"]}], "]"}], ")"}], "ab"], 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Mu]"], 
       SubscriptBox["A", "\[Nu]"], " "}]}]}]}], TraditionalForm]], "None",
  ExpressionUUID->"0fc19000-fd82-418a-a4a1-7d3d40753455"],
 "\nFieldNumber = 12 "
}], "Subsubsection",
 CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, {
   3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 
   3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 
   3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, {
   3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7467956828758698`*^9, 
   3.746795686091745*^9}, {3.7468041304980903`*^9, 3.7468041309100285`*^9}, {
   3.746804167332865*^9, 3.7468041675702257`*^9}, {3.746839701322327*^9, 
   3.7468397017451973`*^9}, {3.747486294430385*^9, 3.747486294430385*^9}, {
   3.7489743601067057`*^9, 3.748974377936059*^9}, {3.749402492882146*^9, 
   3.7494024967870865`*^9}, {3.7494895612886763`*^9, 
   3.7494895640740376`*^9}},ExpressionUUID->"512d9d3b-9be8-4a3f-b15e-\
ba10eb3a1060"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DeleteCases", "[", 
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Z", "[", 
       RowBox[{"LocalFieldNumber", ",", "nn"}], "]"}], "==", 
      RowBox[{"PrintSigmaProduct", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"ZGen", "[", 
             RowBox[{"LocalFieldNumber", ",", "nn"}], "]"}], "[", 
            RowBox[{"ii", ",", "jj"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"jj", ",", "1", ",", "2"}], "}"}]}], "]"}], "/.", 
         RowBox[{"ZSolutions", "[", "LocalFieldNumber", "]"}]}], "/.", 
        "ThisOneLooksGood"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"nn", ",", "1", ",", "7"}], "}"}]}], "]"}], ",", 
   RowBox[{
    RowBox[{"Z", "[", 
     RowBox[{"_", ",", "_"}], "]"}], "\[Equal]", "0"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7494822949220448`*^9, 3.7494823511478577`*^9}, {
   3.7494823858218775`*^9, 3.7494823877980165`*^9}, {3.7494824283410683`*^9, 
   3.7494824525643225`*^9}, {3.749482667989807*^9, 3.749482671509657*^9}, {
   3.749482703172926*^9, 3.7494827189481516`*^9}, {3.7494827656916285`*^9, 
   3.7494827754041166`*^9}, {3.749482825395954*^9, 3.7494828255808463`*^9}, {
   3.7494830210856953`*^9, 3.749483068325922*^9}, {3.7494831352932143`*^9, 
   3.7494831386363173`*^9}, {3.7494831726363764`*^9, 3.749483186323599*^9}, 
   3.7494864595961637`*^9},
 CellLabel->
  "In[139]:=",ExpressionUUID->"4e8c68ac-4134-4a6c-b0c3-68d7a8fde934"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"Z", "[", 
     RowBox[{"12", ",", "1"}], "]"}], "\[Equal]", 
    SubscriptBox["\[Sigma]", "3"]}], ",", 
   RowBox[{
    RowBox[{"Z", "[", 
     RowBox[{"12", ",", "5"}], "]"}], "\[Equal]", 
    RowBox[{
     RowBox[{"-", "\[ImaginaryI]"}], " ", 
     SubscriptBox["\[Sigma]", "2"]}]}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.7494822967584114`*^9, {3.7494823516392856`*^9, 3.749482388711256*^9}, 
   3.7494824654614663`*^9, 3.749482837546488*^9, {3.7494829730196037`*^9, 
   3.7494829962450185`*^9}, 3.749483098282524*^9, {3.7494831891221447`*^9, 
   3.7494832071037216`*^9}, 3.749486466848751*^9, 3.7494900270105543`*^9, 
   3.749497523980681*^9, 3.7494995353402233`*^9, 3.749499712862753*^9, 
   3.7494999918542757`*^9, 3.749557133557473*^9, 3.749560084995122*^9, 
   3.749841858707602*^9, 3.749858033344816*^9, 3.7604715242052765`*^9},
 CellLabel->
  "Out[139]=",ExpressionUUID->"ec910783-791a-4a69-b582-a476d9de153b"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{"LocalField", ",", "LocalFieldNumber"}], "]"}]], "Input",
 CellChangeTimes->{{3.747496499638111*^9, 3.7474965053367357`*^9}},
 CellLabel->
  "In[140]:=",ExpressionUUID->"265219f1-fff8-4798-9005-5851114fb5e7"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        SubsuperscriptBox["D", "a", "i"], ",", 
        SubsuperscriptBox[
         OverscriptBox["D", "~"], "b", "j"]}], "}"}], 
      SubscriptBox["A", "\[Mu]"]}], "=", 
     RowBox[{
      RowBox[{"2", " ", "i", " ", 
       SuperscriptBox[
        RowBox[{"Z", "[", 
         RowBox[{"lfn", ",", "1"}], "]"}], "ij"], 
       SubscriptBox[
        RowBox[{"(", 
         RowBox[{"[", 
          RowBox[{
           SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
           SubscriptBox["\[Gamma]", "\[Nu]"]}], "]"}], ")"}], "ab"], 
       RowBox[{
        SuperscriptBox["\[PartialD]", "\[Nu]"], "At"}]}], " ", "+", 
      RowBox[{"2", " ", 
       SuperscriptBox[
        RowBox[{"Z", "[", 
         RowBox[{"lfn", ",", "2"}], "]"}], "ij"], 
       SubscriptBox[
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["\[Gamma]", "5"], "[", 
          RowBox[{
           SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
           SubscriptBox["\[Gamma]", "\[Nu]"]}], "]"}], ")"}], "ab"], 
       RowBox[{
        SuperscriptBox["\[PartialD]", "\[Nu]"], "Bt"}]}], " ", "+", 
      RowBox[{"2", " ", "i", " ", 
       SuperscriptBox[
        RowBox[{"Z", "[", 
         RowBox[{"lfn", ",", "3"}], "]"}], "ij"], 
       SubscriptBox[
        RowBox[{"(", 
         SubscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], "Ft"}], " ", "+", 
      RowBox[{"2", " ", 
       SuperscriptBox[
        RowBox[{"Z", "[", 
         RowBox[{"lfn", ",", "4"}], "]"}], "ij"], 
       SubscriptBox[
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["\[Gamma]", "5"], 
          SubscriptBox["\[Gamma]", "\[Mu]"]}], ")"}], "ab"], "Gt"}], " ", "+", 
      RowBox[{"2", " ", "i", " ", 
       SuperscriptBox[
        RowBox[{"Z", "[", 
         RowBox[{"lfn", ",", "5"}], "]"}], "ij"], 
       SubscriptBox[
        RowBox[{"(", 
         RowBox[{"[", 
          RowBox[{
           SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
           SubscriptBox["\[Gamma]", "\[Nu]"]}], "]"}], ")"}], "ab"], 
       RowBox[{
        SuperscriptBox["\[PartialD]", "\[Nu]"], "\[CurlyPhi]"}]}], " ", "+", 
      RowBox[{"i", " ", 
       SuperscriptBox[
        RowBox[{"Z", "[", 
         RowBox[{"lfn", ",", "6"}], "]"}], "ij"], 
       SubscriptBox["C", "ab"], 
       RowBox[{
        SuperscriptBox["\[PartialD]", "\[Alpha]"], 
        SubscriptBox["B", "\[Alpha]\[Mu]"]}]}], "+", 
      RowBox[{"i", " ", 
       SuperscriptBox[
        RowBox[{"Z", "[", 
         RowBox[{"lfn", ",", "7"}], "]"}], "ij"], 
       SubscriptBox[
        RowBox[{"(", 
         RowBox[{"[", 
          RowBox[{
           SuperscriptBox["\[Gamma]", "\[Alpha]"], ",", 
           SuperscriptBox["\[Gamma]", "\[Beta]"]}], "]"}], ")"}], "ab"], 
       RowBox[{
        SubscriptBox["\[PartialD]", "\[Alpha]"], 
        SubscriptBox["B", "\[Beta]\[Mu]"]}]}], " ", "+", " ", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"Z", "[", 
         RowBox[{"lfn", ",", "8"}], "]"}], "ij"], " ", 
       SubscriptBox[
        RowBox[{"(", 
         SuperscriptBox["\[Gamma]", "5"], ")"}], "ab"], " ", 
       SubscriptBox["\[Epsilon]", "\[Mu]\[Nu]\[Alpha]\[Beta]"], 
       RowBox[{
        SuperscriptBox["\[PartialD]", "\[Nu]"], 
        SuperscriptBox["B", "\[Alpha]\[Beta]"]}]}], "-", 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Mu]"], 
       SubsuperscriptBox[
        OverscriptBox["\[Lambda]", "~"], "ab", "ij"]}]}]}], "  ", ","}], 
   TraditionalForm]],ExpressionUUID->"f6018520-3b32-4add-b09f-7a8712acae87"],
 "\nFieldNumber = 7\n",
 Cell[BoxData[{
  FormBox[
   RowBox[{
    RowBox[{
     SubsuperscriptBox[
      OverscriptBox["\[Lambda]", "~"], "ab", "ij"], "=", " ", 
     RowBox[{
      RowBox[{"i", " ", 
       SuperscriptBox[
        RowBox[{"Z", "[", 
         RowBox[{"lfn", ",", "9"}], "]"}], "ij"], 
       SubscriptBox[
        RowBox[{"(", 
         RowBox[{"[", 
          RowBox[{
           SuperscriptBox["\[Gamma]", "\[Alpha]"], ",", 
           SuperscriptBox["\[Gamma]", "\[Beta]"]}], "]"}], ")"}], "ab"], 
       SubscriptBox["B", "\[Alpha]\[Beta]"]}], " ", "+", " ", 
      RowBox[{"2", "i", " ", 
       SuperscriptBox[
        RowBox[{"Z", "[", 
         RowBox[{"lfn", ",", "10"}], "]"}], "ij"], 
       SubscriptBox["C", "ab"], 
       OverscriptBox["A", "~"]}]}]}], " "}], 
   TraditionalForm], "\[IndentingNewLine]", 
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"+", " ", "2"}], " ", 
     SuperscriptBox[
      RowBox[{"Z", "[", 
       RowBox[{"lfn", ",", "11"}], "]"}], "ij"], " ", 
     SubscriptBox[
      RowBox[{"(", 
       SuperscriptBox["\[Gamma]", "5"], ")"}], "ab"], 
     OverscriptBox["B", "~"]}], "+", " ", 
    RowBox[{"2", "i", " ", 
     SuperscriptBox[
      RowBox[{"Z", "[", 
       RowBox[{"lfn", ",", "12"}], "]"}], "ij"], 
     SubscriptBox["C", "ab"], "\[CurlyPhi]"}]}], TraditionalForm]}],
  ExpressionUUID->"63163ca4-1906-4484-82d6-c9a00b3bb4d8"],
 "\nThe Z[9] through Z[12] are actually gauge charges"
}], "Subsection",
 CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, {
   3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 
   3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 
   3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, {
   3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7467956828758698`*^9, 
   3.746795686091745*^9}, {3.7468041304980903`*^9, 3.7468041309100285`*^9}, {
   3.746804200318131*^9, 3.746804240053707*^9}, {3.74680432554387*^9, 
   3.746804336909229*^9}, {3.7468050801419106`*^9, 3.746805100373829*^9}, {
   3.746841296333973*^9, 3.746841355175333*^9}, {3.7468413946111727`*^9, 
   3.7468413969638214`*^9}, {3.7474862348309937`*^9, 
   3.7474862348309937`*^9}, {3.7489665405117817`*^9, 3.748966542831262*^9}, {
   3.748966633559536*^9, 3.748966677424404*^9}, 3.748966919128932*^9, {
   3.748971703483138*^9, 3.748971705860566*^9}, {3.748975938792149*^9, 
   3.748975945893471*^9}, {3.748976013026861*^9, 3.7489760130270844`*^9}, {
   3.749402656314017*^9, 3.7494026662917204`*^9}, {3.749402736003664*^9, 
   3.749402761107051*^9}, {3.7494028255814605`*^9, 3.74940292957936*^9}, {
   3.7494030059302683`*^9, 3.749403012130484*^9}, {3.749403223988676*^9, 
   3.7494032339720445`*^9}, {3.749403386412226*^9, 3.749403412411317*^9}, {
   3.7494034866111946`*^9, 3.7494035370740757`*^9}, {3.74940357064256*^9, 
   3.749403571243368*^9}, {3.7494069994337745`*^9, 3.7494069997699957`*^9}, {
   3.7494906390281286`*^9, 3.749490732627307*^9}, {3.749490774692479*^9, 
   3.749491104674096*^9}, {3.7494926005156126`*^9, 3.749492651290346*^9}, {
   3.7494931665557437`*^9, 3.7494931798111672`*^9}, {3.74949323122834*^9, 
   3.749493275084362*^9}, {3.7494933312346287`*^9, 
   3.74949336186916*^9}},ExpressionUUID->"ede232d0-d24a-4d82-9e83-\
5a799722d4af"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalFieldNumber", " ", "=", " ", "7"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"NumZCharges", " ", "=", " ", "12"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"CentralChargeList", "[", "LocalFieldNumber", "]"}], " ", "=", " ", 
  
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"LocalFieldNumber", ",", "FieldNumber", ",", "sigmaNumber"}], 
      "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"FieldNumber", ",", "1", ",", "NumZCharges"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"sigmaNumber", ",", "0", ",", "3"}], "}"}]}], "]"}], "//", 
   "Flatten"}]}]}], "Input",
 CellChangeTimes->{{3.748966071586817*^9, 3.748966075509182*^9}, {
   3.748966797273872*^9, 3.748966797353215*^9}, 3.748966916891461*^9, 
   3.7494903017478895`*^9, {3.749491113346774*^9, 3.7494911134667444`*^9}, {
   3.749492201730262*^9, 3.7494922100582776`*^9}, 3.749492595090425*^9, 
   3.7494931859319434`*^9},
 CellLabel->
  "In[141]:=",ExpressionUUID->"b4a04213-f33c-44c4-a894-eb04e9024fa2"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"z", "[", 
    RowBox[{"7", ",", "1", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"7", ",", "1", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"7", ",", "1", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"7", ",", "1", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"7", ",", "2", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"7", ",", "2", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"7", ",", "2", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"7", ",", "2", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"7", ",", "3", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"7", ",", "3", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"7", ",", "3", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"7", ",", "3", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"7", ",", "4", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"7", ",", "4", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"7", ",", "4", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"7", ",", "4", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"7", ",", "5", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"7", ",", "5", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"7", ",", "5", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"7", ",", "5", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"7", ",", "6", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"7", ",", "6", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"7", ",", "6", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"7", ",", "6", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"7", ",", "7", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"7", ",", "7", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"7", ",", "7", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"7", ",", "7", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"7", ",", "8", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"7", ",", "8", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"7", ",", "8", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"7", ",", "8", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"7", ",", "9", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"7", ",", "9", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"7", ",", "9", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"7", ",", "9", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"7", ",", "10", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"7", ",", "10", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"7", ",", "10", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"7", ",", "10", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"7", ",", "11", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"7", ",", "11", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"7", ",", "11", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"7", ",", "11", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"7", ",", "12", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"7", ",", "12", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"7", ",", "12", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"7", ",", "12", ",", "3"}], "]"}]}], "}"}]], "Output",
 CellChangeTimes->{3.7494930104327173`*^9, 3.7494937101234207`*^9, 
  3.749493846187312*^9, 3.749493956217129*^9, 3.7494975240113707`*^9, 
  3.7494995353753767`*^9, 3.7494997128886557`*^9, 3.749499991880068*^9, 
  3.7495571335906706`*^9, 3.7495600850395575`*^9, 3.7498418587433167`*^9, 
  3.749858033530506*^9, 3.760471524237748*^9},
 CellLabel->
  "Out[143]=",ExpressionUUID->"012cf50f-3935-4db1-8219-f00c09a0a1af"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Z", "[", "LocalFieldNumber", "]"}], "[", "mu_", "]"}], "[", 
    RowBox[{"ii_", ",", "jj_"}], "]"}], "[", 
   RowBox[{"aa_", ",", "bb_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"2", " ", "I", " ", 
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "1"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"CommuteGammastdowndown", "[", 
         RowBox[{"mu", ",", "nu"}], "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{"UD", "[", 
        RowBox[{
         RowBox[{"At", "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
         RowBox[{"\[CapitalStigma]", "[", "nu", "]"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], " ", "+", " ", 
   RowBox[{"2", " ", 
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "2"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"\[Gamma]5", ".", 
          RowBox[{"CommuteGammastdowndown", "[", 
           RowBox[{"mu", ",", "nu"}], "]"}]}], ")"}], "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{"UD", "[", 
        RowBox[{
         RowBox[{"Bt", "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
         RowBox[{"\[CapitalStigma]", "[", "nu", "]"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "  ", "+", 
   RowBox[{"2", " ", "I", " ", 
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "3"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{
     RowBox[{"\[Gamma]stdowndown", "[", "mu", "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
    RowBox[{"Ft", "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", " ", 
   RowBox[{"2", " ", 
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "4"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{
     RowBox[{"\[Gamma]5\[Gamma]stdowndown", "[", "mu", "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
    RowBox[{"Gt", "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", "+", " ", 
   RowBox[{"2", " ", "I", " ", 
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "5"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"CommuteGammastdowndown", "[", 
         RowBox[{"mu", ",", "nu"}], "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{"UD", "[", 
        RowBox[{
         RowBox[{"\[CurlyPhi]", "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
         RowBox[{"\[CapitalStigma]", "[", "nu", "]"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], " ", "+", " ", 
   RowBox[{"I", " ", 
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "6"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"Cmetric", "[", 
     RowBox[{"[", 
      RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{"UD", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Bmn", "[", 
          RowBox[{"ap", ",", "mu"}], "]"}], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
        RowBox[{"\[CapitalStigma]", "[", "ap", "]"}]}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"ap", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "+", 
   RowBox[{"I", " ", 
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "7"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"CommuteGammadown", "[", 
         RowBox[{"ap", ",", "bt"}], "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Bmn", "[", 
           RowBox[{"bt", ",", "mu"}], "]"}], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
         RowBox[{"\[CapitalStigma]", "[", "ap", "]"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"ap", ",", "0", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"bt", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "+", 
   RowBox[{
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "8"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"\[Gamma]5down", "[", 
     RowBox[{"[", 
      RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"\[Epsilon]", "[", 
        RowBox[{"mu", ",", "nu", ",", "ap", ",", "bt"}], "]"}], 
       RowBox[{"UD", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Bmnup", "[", 
           RowBox[{"ap", ",", "bt"}], "]"}], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
         RowBox[{"\[CapitalStigma]", "[", "nu", "]"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"ap", ",", "0", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"bt", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.7494085451000586`*^9, 3.7494085523049335`*^9}, {
   3.7494085899690495`*^9, 3.749408615257099*^9}, {3.7494086507852697`*^9, 
   3.749408665345*^9}, {3.7494093016570387`*^9, 3.7494093465610495`*^9}, {
   3.7494095637774105`*^9, 3.749409578217074*^9}, {3.749409653409035*^9, 
   3.7494098016018295`*^9}, {3.7494098348498144`*^9, 
   3.7494100216819773`*^9}, {3.7494862265493007`*^9, 3.74948626538061*^9}, {
   3.749486303084411*^9, 3.749486409804064*^9}, {3.749491861021188*^9, 
   3.7494918975704775`*^9}, {3.7494922763622904`*^9, 
   3.7494925001244493`*^9}, {3.749492808131174*^9, 3.749492966259914*^9}, {
   3.7494931994609575`*^9, 3.7494932056034827`*^9}, {3.7494932882999043`*^9, 
   3.7494933224195147`*^9}, {3.749493390293687*^9, 3.7494934366526213`*^9}, 
   3.749493487275071*^9, {3.7494936559805923`*^9, 3.7494936695238447`*^9}, {
   3.749493842468738*^9, 3.749493842722987*^9}, {3.749493947596159*^9, 
   3.7494939479072027`*^9}},
 CellLabel->
  "In[144]:=",ExpressionUUID->"9d914243-d44f-4122-ac2d-55f27de8ed5b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"ZTable", "[", "LocalFieldNumber", "]"}], "[", "mu", "]"}], " ",
      "=", " ", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"Z", "[", "LocalFieldNumber", "]"}], "[", "mu", "]"}], "[", 
         
         RowBox[{"ii", ",", "jj"}], "]"}], "[", 
        RowBox[{"aa", ",", "bb"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.7494086675397387`*^9, 3.749408718609185*^9}, {
  3.7494087673051147`*^9, 3.7494087768495007`*^9}, {3.7494919500355654`*^9, 
  3.749491963955261*^9}},
 CellLabel->
  "In[145]:=",ExpressionUUID->"cf173e11-f623-4e05-a3cd-d454cc570a6f"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"\[Lambda]", "[", 
      RowBox[{"tt1", ",", "tt2"}], "]"}], "[", 
     RowBox[{"ii_", ",", "jj_"}], "]"}], "[", 
    RowBox[{"aa_", ",", "bb_"}], "]"}], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", ":=", " ", 
  RowBox[{
   RowBox[{"I", " ", 
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "9"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"CommuteGammadown", "[", 
         RowBox[{"ap", ",", "bt"}], "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{
        RowBox[{"Bmn", "[", 
         RowBox[{"ap", ",", "bt"}], "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"ap", ",", "0", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"bt", ",", "0", ",", "3"}], "}"}]}], "]"}]}], " ", "+", " ", 
   RowBox[{"2", "I", "  ", 
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "10"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"Cmetric", "[", 
     RowBox[{"[", 
      RowBox[{"aa", ",", "bb"}], "]"}], "]"}], " ", 
    RowBox[{"At", "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "  ", "+", " ", 
   RowBox[{"2", " ", 
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "11"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"\[Gamma]5down", "[", 
     RowBox[{"[", 
      RowBox[{"aa", ",", "bb"}], "]"}], "]"}], " ", 
    RowBox[{"Bt", "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", " ", 
   RowBox[{"2", "I", "  ", 
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "12"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"Cmetric", "[", 
     RowBox[{"[", 
      RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
    RowBox[{"\[CurlyPhi]", "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " "}]}]}]], "Input",
 CellChangeTimes->{{3.746804354420742*^9, 3.746804354698959*^9}, {
  3.7468050126457977`*^9, 3.746805074136135*^9}, {3.74680511128192*^9, 
  3.746805165236924*^9}, {3.7468053158322053`*^9, 3.7468053335810037`*^9}, {
  3.74680550552096*^9, 3.746805530545571*^9}, {3.746805594980097*^9, 
  3.746805595781765*^9}, {3.74896669810314*^9, 3.74896673459186*^9}, {
  3.748971712110408*^9, 3.7489717140585623`*^9}, {3.748975951983173*^9, 
  3.748975952110795*^9}, {3.749383865056628*^9, 3.7493838759913654`*^9}, {
  3.749403019939516*^9, 3.7494030384980574`*^9}, {3.749403628538812*^9, 
  3.7494038510988035`*^9}, {3.7494911250445676`*^9, 3.7494911646346855`*^9}, {
  3.7494929027788763`*^9, 3.7494929093308887`*^9}, {3.7494932094838133`*^9, 
  3.74949321653452*^9}},
 CellLabel->
  "In[146]:=",ExpressionUUID->"0f0a7b7c-07e8-44ec-b30c-db5b67b9e62a"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"\[Lambda]Table", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"\[Lambda]", "[", 
         RowBox[{"tt1", ",", "tt2"}], "]"}], "[", 
        RowBox[{"ii", ",", "jj"}], "]"}], "[", 
       RowBox[{"aa", ",", "bb"}], "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.746805604570979*^9, 3.746805658227662*^9}, {
  3.746806044124957*^9, 3.746806044220275*^9}, {3.748975955245373*^9, 
  3.7489759553513308`*^9}, {3.748976084694819*^9, 3.7489760848424053`*^9}, {
  3.749383870656556*^9, 3.7493838848477592`*^9}},
 CellLabel->
  "In[147]:=",ExpressionUUID->"dad571fe-79f6-47a2-a0f9-f8290d196caa"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"AlgebraDDMinusClosure", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", 
   
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"Collect", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"AlgebraDD", "[", 
              RowBox[{"tt1", ",", "tt2"}], "]"}], "[", 
             RowBox[{
              RowBox[{"Am", "[", "mu", "]"}], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", 
            "-", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"ZTable", "[", "LocalFieldNumber", "]"}], "[", "mu", 
               "]"}], "-", 
              RowBox[{"D", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"\[Lambda]Table", "[", 
                  RowBox[{"tt1", ",", "tt2"}], "]"}], "[", 
                 RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
                RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], 
             ")"}]}], ")"}], "/.", "LagrangianParameters"}], "/.", 
         "VtoPauli"}], ",", "FieldListWithDerivatives", ",", "Simplify"}], 
       "]"}], ")"}], ",", 
     RowBox[{"{", 
      RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7474929944818563`*^9, 3.7474930651472597`*^9}, {
  3.747493152219424*^9, 3.7474932477784343`*^9}, {3.7474934178914785`*^9, 
  3.7474934832105627`*^9}, {3.7474935638267813`*^9, 3.747493591801224*^9}, {
  3.7474963739738455`*^9, 3.7474964449288054`*^9}, {3.748795026042665*^9, 
  3.748795027776865*^9}, {3.748965282772246*^9, 3.7489652841431913`*^9}, {
  3.748967256264186*^9, 3.7489672582499332`*^9}, {3.7494004185551434`*^9, 
  3.7494004426991215`*^9}, {3.7494086299617586`*^9, 3.749408647033921*^9}, {
  3.7494087803530507`*^9, 3.7494087808412037`*^9}, {3.7494912568589115`*^9, 
  3.7494913165706425`*^9}, {3.7494914035863967`*^9, 3.7494914061784263`*^9}, {
  3.7494914982840424`*^9, 3.7494915100027227`*^9}, {3.74949198535605*^9, 
  3.7494919858907022`*^9}, {3.749492042098717*^9, 3.7494920712828035`*^9}},
 CellLabel->
  "In[148]:=",ExpressionUUID->"244af1b0-c156-4bf6-83ba-0060d7dfc91f"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"AlgebraDDEqs", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", 
   "=", " ", 
   RowBox[{
    RowBox[{"DeleteCases", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"Coefficient", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"AlgebraDDMinusClosure", "[", 
                 RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", 
                "]"}], "[", 
               RowBox[{"[", 
                RowBox[{"mu", ",", "ii", ",", "aa", ",", "jj", ",", "bb"}], 
                "]"}], "]"}], ",", 
              RowBox[{"FieldListWithDerivatives", "[", 
               RowBox[{"[", "FieldListIndex", "]"}], "]"}]}], "]"}], ")"}], 
           "\[Equal]", "0"}], ",", 
          RowBox[{"{", 
           RowBox[{"mu", ",", "1", ",", "4"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"FieldListIndex", ",", "1", ",", 
            RowBox[{"Length", "[", "FieldListWithDerivatives", "]"}]}], 
           "}"}]}], "]"}], "//", "Simplify"}], "//", "Flatten"}], ",", 
      "True"}], "]"}], "//", "DeleteDuplicates"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7474933413160763`*^9, 3.7474934023534203`*^9}, {
   3.747493509609391*^9, 3.7474935432809353`*^9}, {3.7474936064895945`*^9, 
   3.7474936161297655`*^9}, {3.7474936564987297`*^9, 3.747493747940831*^9}, {
   3.747493832482408*^9, 3.7474938407374077`*^9}, {3.747496458745552*^9, 
   3.7474964697370515`*^9}, 3.7475105609270287`*^9, {3.748795270744809*^9, 
   3.748795274222528*^9}, {3.74879531011075*^9, 3.748795321437098*^9}, {
   3.748795652987978*^9, 3.748795656902155*^9}, {3.748965289858489*^9, 
   3.748965292697112*^9}, {3.748967259459038*^9, 3.748967260813509*^9}, {
   3.7489708313422194`*^9, 3.7489708325427723`*^9}, {3.749400458403777*^9, 
   3.749400461474213*^9}, {3.7494920741868925`*^9, 3.749492080658454*^9}},
 CellLabel->
  "In[149]:=",ExpressionUUID->"e079ca1d-05ee-4144-97cc-456a50ac6daa"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "[", 
  RowBox[{
   RowBox[{"AlgebraDDEqs", "[", 
    RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.747493880500272*^9, 3.7474938897376738`*^9}, {
   3.7474964759857783`*^9, 3.747496478481014*^9}, 3.748967263446204*^9},
 CellLabel->
  "In[150]:=",ExpressionUUID->"bc686983-d18f-478e-aef2-e0429ab1b9aa"],

Cell[BoxData["100"], "Output",
 CellChangeTimes->{
  3.749402369344755*^9, 3.7494025812692585`*^9, 3.7494101413703766`*^9, 
   3.7494820675202274`*^9, 3.7494826010398684`*^9, 3.7494828373565598`*^9, {
   3.7494829726852674`*^9, 3.7494829961595726`*^9}, 3.7494830980945587`*^9, 
   3.7494832069386897`*^9, 3.7494864667491198`*^9, 3.749490026951528*^9, 
   3.7494930175934057`*^9, 3.749493716852651*^9, 3.749493852731039*^9, 
   3.74949396282236*^9, 3.749497529381115*^9, 3.7494995401489115`*^9, 
   3.749499717821419*^9, 3.749499996614429*^9, 3.749557138063545*^9, 
   3.749560089838316*^9, 3.749841864590658*^9, 3.7498580401257973`*^9, 
   3.7604715295309086`*^9},
 CellLabel->
  "Out[150]=",ExpressionUUID->"5a326a8b-30dc-469a-9167-dedd7de87b8d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ZSolutions", "[", "LocalFieldNumber", "]"}], " ", "=", " ", 
  RowBox[{
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"AlgebraDDEqs", "[", 
       RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], 
     ",", 
     RowBox[{"CentralChargeList", "[", "LocalFieldNumber", "]"}]}], "]"}], "//",
    "Flatten"}]}]], "Input",
 CellChangeTimes->{{3.7494088104519863`*^9, 3.749408859016982*^9}, 
   3.749410151970128*^9, {3.749482953421772*^9, 3.7494829550114527`*^9}, {
   3.749482991773706*^9, 3.749482992051861*^9}},
 CellLabel->
  "In[151]:=",ExpressionUUID->"755db517-3ea0-4ac3-9b03-7fdd16f27c2d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"7", ",", "1", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "3", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "10", "]"}], "[", "2", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"7", ",", "1", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "4"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "5", "]"}], "[", "2", "]"}]}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "10", "]"}], "[", "3", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"7", ",", "1", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "1", "]"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "10", "]"}], "[", "0", "]"}]}]}], ")"}]}]}], ",", 
   
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"7", ",", "1", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "0", "]"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "10", "]"}], "[", "1", "]"}]}]}], ")"}]}]}], ",", 
   
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"7", ",", "2", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "4"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "0", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "7", "]"}], "[", "2", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"7", ",", "2", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "4"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "1", "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "7", "]"}], "[", "3", "]"}]}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"7", ",", "2", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "4"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "2", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "7", "]"}], "[", "0", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"7", ",", "2", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "4"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "3", "]"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "7", "]"}], "[", "1", "]"}]}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"7", ",", "3", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "0", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "8", "]"}], "[", "2", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"7", ",", "3", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "1", "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "8", "]"}], "[", "3", "]"}]}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"7", ",", "3", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "5", "]"}], "[", "2", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "8", "]"}], "[", "0", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"7", ",", "3", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "3", "]"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "8", "]"}], "[", "1", "]"}]}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"7", ",", "4", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "0", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "9", "]"}], "[", "2", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"7", ",", "4", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "1", "]"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "9", "]"}], "[", "3", "]"}]}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"7", ",", "4", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "2", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "9", "]"}], "[", "0", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"7", ",", "4", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "3", "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "9", "]"}], "[", "1", "]"}]}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"7", ",", "5", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "1", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "11", "]"}], "[", "2", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"7", ",", "5", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "0", "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "11", "]"}], "[", "3", "]"}]}]}], ")"}]}]}], ",", 
   
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"7", ",", "5", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "4"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "3", "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "11", "]"}], "[", "0", "]"}]}]}], ")"}]}]}], ",", 
   
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"7", ",", "5", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "4"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "2", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "11", "]"}], "[", "1", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"7", ",", "6", ",", "0"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"7", ",", "6", ",", "1"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"7", ",", "6", ",", "2"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"7", ",", "6", ",", "3"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"7", ",", "7", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{
      RowBox[{"cv", "[", "5", "]"}], "[", "2", "]"}], "+", 
     RowBox[{
      RowBox[{"cv", "[", "12", "]"}], "[", "2", "]"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"7", ",", "7", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", "\[ImaginaryI]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "3", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "3", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"7", ",", "7", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{"\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "0", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "0", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"7", ",", "7", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{"\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "1", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "1", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"7", ",", "8", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{
      RowBox[{"cv", "[", "5", "]"}], "[", "2", "]"}], "-", 
     RowBox[{
      RowBox[{"cv", "[", "12", "]"}], "[", "2", "]"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"7", ",", "8", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", "\[ImaginaryI]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "3", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "3", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"7", ",", "8", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{"\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "0", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "0", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"7", ",", "8", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{"\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "1", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "1", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"7", ",", "9", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "5", "]"}], "[", "2", "]"}]}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "2", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"7", ",", "9", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "3", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "3", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"7", ",", "9", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "0", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "0", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"7", ",", "9", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "1", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "1", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"7", ",", "10", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "3", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "10", "]"}], "[", "2", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"7", ",", "10", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "5", "]"}], "[", "2", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "10", "]"}], "[", "3", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"7", ",", "10", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "1", "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "10", "]"}], "[", "0", "]"}]}]}], ")"}]}]}], ",", 
   
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"7", ",", "10", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "0", "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "10", "]"}], "[", "1", "]"}]}]}], ")"}]}]}], ",", 
   
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"7", ",", "11", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "0", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "7", "]"}], "[", "2", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"7", ",", "11", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "1", "]"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "7", "]"}], "[", "3", "]"}]}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"7", ",", "11", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "2", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "7", "]"}], "[", "0", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"7", ",", "11", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "3", "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "7", "]"}], "[", "1", "]"}]}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"7", ",", "12", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "1", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "11", "]"}], "[", "2", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"7", ",", "12", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "0", "]"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "11", "]"}], "[", "3", "]"}]}]}], ")"}]}]}], ",", 
   
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"7", ",", "12", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "3", "]"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "11", "]"}], "[", "0", "]"}]}]}], ")"}]}]}], ",", 
   
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"7", ",", "12", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "2", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "11", "]"}], "[", "1", "]"}]}], ")"}]}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.749410161019311*^9, 3.7494820675836697`*^9, 3.749482601117894*^9, 
   3.749482837383304*^9, {3.749482955925235*^9, 3.749482996184867*^9}, 
   3.749483098167952*^9, 3.7494832069679165`*^9, 3.7494864668309393`*^9, 
   3.749490026991704*^9, 3.7494930180383244`*^9, 3.749493717258875*^9, 
   3.7494938531357746`*^9, 3.749493962911208*^9, 3.7494975294768376`*^9, 
   3.749499540232275*^9, 3.7494997179042516`*^9, 3.749499996680851*^9, 
   3.7495571381221147`*^9, 3.7495600898978715`*^9, 3.7498418646924753`*^9, 
   3.749858040257183*^9, 3.760471529619648*^9},
 CellLabel->
  "Out[151]=",ExpressionUUID->"bb1326d2-a709-4fbd-a72d-52ee27c19fcf"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        SubsuperscriptBox["D", "a", "i"], ",", 
        SubsuperscriptBox[
         OverscriptBox["D", "~"], "b", "j"]}], "}"}], 
      SubscriptBox["A", "\[Mu]"]}], "=", 
     RowBox[{
      RowBox[{"2", " ", "i", " ", 
       SuperscriptBox[
        RowBox[{"Z", "[", 
         RowBox[{"lfn", ",", "1"}], "]"}], "ij"], 
       SubscriptBox[
        RowBox[{"(", 
         RowBox[{"[", 
          RowBox[{
           SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
           SubscriptBox["\[Gamma]", "\[Nu]"]}], "]"}], ")"}], "ab"], 
       RowBox[{
        SuperscriptBox["\[PartialD]", "\[Nu]"], "At"}]}], " ", "+", 
      RowBox[{"2", " ", 
       SuperscriptBox[
        RowBox[{"Z", "[", 
         RowBox[{"lfn", ",", "2"}], "]"}], "ij"], 
       SubscriptBox[
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["\[Gamma]", "5"], "[", 
          RowBox[{
           SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
           SubscriptBox["\[Gamma]", "\[Nu]"]}], "]"}], ")"}], "ab"], 
       RowBox[{
        SuperscriptBox["\[PartialD]", "\[Nu]"], "Bt"}]}], " ", "+", 
      RowBox[{"2", " ", "i", " ", 
       SuperscriptBox[
        RowBox[{"Z", "[", 
         RowBox[{"lfn", ",", "3"}], "]"}], "ij"], 
       SubscriptBox[
        RowBox[{"(", 
         SubscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], "Ft"}], " ", "+", 
      RowBox[{"2", " ", 
       SuperscriptBox[
        RowBox[{"Z", "[", 
         RowBox[{"lfn", ",", "4"}], "]"}], "ij"], 
       SubscriptBox[
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["\[Gamma]", "5"], 
          SubscriptBox["\[Gamma]", "\[Mu]"]}], ")"}], "ab"], "Gt"}], " ", "+", 
      RowBox[{"2", " ", "i", " ", 
       SuperscriptBox[
        RowBox[{"Z", "[", 
         RowBox[{"lfn", ",", "5"}], "]"}], "ij"], 
       SubscriptBox[
        RowBox[{"(", 
         RowBox[{"[", 
          RowBox[{
           SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
           SubscriptBox["\[Gamma]", "\[Nu]"]}], "]"}], ")"}], "ab"], 
       RowBox[{
        SuperscriptBox["\[PartialD]", "\[Nu]"], "\[CurlyPhi]"}]}], " ", "+", 
      RowBox[{"i", " ", 
       SuperscriptBox[
        RowBox[{"Z", "[", 
         RowBox[{"lfn", ",", "6"}], "]"}], "ij"], 
       SubscriptBox["C", "ab"], 
       RowBox[{
        SuperscriptBox["\[PartialD]", "\[Alpha]"], 
        SubscriptBox["B", "\[Alpha]\[Mu]"]}]}], "+", 
      RowBox[{"i", " ", 
       SuperscriptBox[
        RowBox[{"Z", "[", 
         RowBox[{"lfn", ",", "7"}], "]"}], "ij"], 
       SubscriptBox[
        RowBox[{"(", 
         RowBox[{"[", 
          RowBox[{
           SuperscriptBox["\[Gamma]", "\[Alpha]"], ",", 
           SuperscriptBox["\[Gamma]", "\[Beta]"]}], "]"}], ")"}], "ab"], 
       RowBox[{
        SubscriptBox["\[PartialD]", "\[Alpha]"], 
        SubscriptBox["B", "\[Beta]\[Mu]"]}]}], " ", "+", " ", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"Z", "[", 
         RowBox[{"lfn", ",", "8"}], "]"}], "ij"], " ", 
       SubscriptBox[
        RowBox[{"(", 
         SuperscriptBox["\[Gamma]", "5"], ")"}], "ab"], " ", 
       SubscriptBox["\[Epsilon]", "\[Mu]\[Nu]\[Alpha]\[Beta]"], 
       RowBox[{
        SuperscriptBox["\[PartialD]", "\[Nu]"], 
        SuperscriptBox["B", "\[Alpha]\[Beta]"]}]}], "-", 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Mu]"], 
       SubsuperscriptBox[
        OverscriptBox["\[Lambda]", "~"], "ab", "ij"]}]}]}], "  ", ","}], 
   TraditionalForm]],ExpressionUUID->"533adae4-d481-47a3-bec3-38105e105d70"],
 "\nFieldNumber = 7\n",
 Cell[BoxData[{
  FormBox[
   RowBox[{
    RowBox[{
     SubsuperscriptBox[
      OverscriptBox["\[Lambda]", "~"], "ab", "ij"], "=", " ", 
     RowBox[{
      RowBox[{"i", " ", 
       SuperscriptBox[
        RowBox[{"Z", "[", 
         RowBox[{"lfn", ",", "9"}], "]"}], "ij"], 
       SubscriptBox[
        RowBox[{"(", 
         RowBox[{"[", 
          RowBox[{
           SuperscriptBox["\[Gamma]", "\[Alpha]"], ",", 
           SuperscriptBox["\[Gamma]", "\[Beta]"]}], "]"}], ")"}], "ab"], 
       SubscriptBox["B", "\[Alpha]\[Beta]"]}], " ", "+", " ", 
      RowBox[{"2", "i", " ", 
       SuperscriptBox[
        RowBox[{"Z", "[", 
         RowBox[{"lfn", ",", "10"}], "]"}], "ij"], 
       SubscriptBox["C", "ab"], 
       OverscriptBox["A", "~"]}]}]}], " "}], 
   TraditionalForm], "\[IndentingNewLine]", 
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"+", " ", "2"}], " ", 
     SuperscriptBox[
      RowBox[{"Z", "[", 
       RowBox[{"lfn", ",", "11"}], "]"}], "ij"], " ", 
     SubscriptBox[
      RowBox[{"(", 
       SuperscriptBox["\[Gamma]", "5"], ")"}], "ab"], 
     OverscriptBox["B", "~"]}], "+", " ", 
    RowBox[{"2", "i", " ", 
     SuperscriptBox[
      RowBox[{"Z", "[", 
       RowBox[{"lfn", ",", "12"}], "]"}], "ij"], 
     SubscriptBox["C", "ab"], "\[CurlyPhi]"}]}], TraditionalForm]}],
  ExpressionUUID->"7297b52b-e425-4728-ab58-c54930573f20"],
 "\nThe Z[9] through Z[12] are actually gauge charges"
}], "Subsubsection",
 CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, {
   3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 
   3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 
   3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, {
   3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7467956828758698`*^9, 
   3.746795686091745*^9}, {3.7468041304980903`*^9, 3.7468041309100285`*^9}, {
   3.746804200318131*^9, 3.746804240053707*^9}, {3.74680432554387*^9, 
   3.746804336909229*^9}, {3.7468050801419106`*^9, 3.746805100373829*^9}, {
   3.746841296333973*^9, 3.746841355175333*^9}, {3.7468413946111727`*^9, 
   3.7468413969638214`*^9}, {3.7474862348309937`*^9, 
   3.7474862348309937`*^9}, {3.7489665405117817`*^9, 3.748966542831262*^9}, {
   3.748966633559536*^9, 3.748966677424404*^9}, 3.748966919128932*^9, {
   3.748971703483138*^9, 3.748971705860566*^9}, {3.748975938792149*^9, 
   3.748975945893471*^9}, {3.748976013026861*^9, 3.7489760130270844`*^9}, {
   3.749402656314017*^9, 3.7494026662917204`*^9}, {3.749402736003664*^9, 
   3.749402761107051*^9}, {3.7494028255814605`*^9, 3.74940292957936*^9}, {
   3.7494030059302683`*^9, 3.749403012130484*^9}, {3.749403223988676*^9, 
   3.7494032339720445`*^9}, {3.749403386412226*^9, 3.749403412411317*^9}, {
   3.7494034866111946`*^9, 3.7494035370740757`*^9}, {3.74940357064256*^9, 
   3.749403571243368*^9}, {3.7494069994337745`*^9, 3.7494069997699957`*^9}, {
   3.7494906390281286`*^9, 3.749490732627307*^9}, {3.749490774692479*^9, 
   3.749491104674096*^9}, {3.7494926005156126`*^9, 3.749492651290346*^9}, {
   3.7494931665557437`*^9, 3.7494931798111672`*^9}, {3.74949323122834*^9, 
   3.749493275084362*^9}, {3.7494933312346287`*^9, 
   3.74949336186916*^9}},ExpressionUUID->"d736e45b-342c-480a-b52a-\
93cee489b613"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DeleteCases", "[", 
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Z", "[", 
       RowBox[{"LocalFieldNumber", ",", "nn"}], "]"}], "==", 
      RowBox[{"PrintSigmaProduct", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"ZGen", "[", 
             RowBox[{"LocalFieldNumber", ",", "nn"}], "]"}], "[", 
            RowBox[{"ii", ",", "jj"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"jj", ",", "1", ",", "2"}], "}"}]}], "]"}], "/.", 
         RowBox[{"ZSolutions", "[", "LocalFieldNumber", "]"}]}], "/.", 
        "ThisOneLooksGood"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"nn", ",", "1", ",", "NumZCharges"}], "}"}]}], "]"}], ",", 
   RowBox[{
    RowBox[{"Z", "[", 
     RowBox[{"_", ",", "_"}], "]"}], "\[Equal]", "0"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7494822949220448`*^9, 3.7494823511478577`*^9}, {
   3.7494823858218775`*^9, 3.7494823877980165`*^9}, {3.7494824283410683`*^9, 
   3.7494824525643225`*^9}, {3.749482667989807*^9, 3.749482671509657*^9}, {
   3.749482703172926*^9, 3.7494827189481516`*^9}, {3.7494827656916285`*^9, 
   3.7494827754041166`*^9}, {3.749482825395954*^9, 3.7494828255808463`*^9}, {
   3.7494830210856953`*^9, 3.749483068325922*^9}, {3.7494831352932143`*^9, 
   3.7494831386363173`*^9}, {3.7494831726363764`*^9, 3.749483186323599*^9}, 
   3.7494864595961637`*^9, {3.7494912199550743`*^9, 3.749491220034889*^9}, {
   3.749492188306588*^9, 3.7494921935066113`*^9}},
 CellLabel->
  "In[152]:=",ExpressionUUID->"1a34709e-e2a9-4a94-af59-356cfd387a4d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"Z", "[", 
     RowBox[{"7", ",", "2"}], "]"}], "\[Equal]", 
    RowBox[{"-", 
     FractionBox["\<\"I\"\>", "2"]}]}], ",", 
   RowBox[{
    RowBox[{"Z", "[", 
     RowBox[{"7", ",", "3"}], "]"}], "\[Equal]", "\<\"I\"\>"}], ",", 
   RowBox[{
    RowBox[{"Z", "[", 
     RowBox[{"7", ",", "7"}], "]"}], "\[Equal]", 
    RowBox[{"2", " ", "\[ImaginaryI]", " ", 
     SubscriptBox["\[Sigma]", "2"]}]}], ",", 
   RowBox[{
    RowBox[{"Z", "[", 
     RowBox[{"7", ",", "9"}], "]"}], "\[Equal]", 
    RowBox[{
     RowBox[{"-", "\[ImaginaryI]"}], " ", 
     SubscriptBox["\[Sigma]", "2"]}]}], ",", 
   RowBox[{
    RowBox[{"Z", "[", 
     RowBox[{"7", ",", "10"}], "]"}], "\[Equal]", 
    SubscriptBox["\[Sigma]", "3"]}], ",", 
   RowBox[{
    RowBox[{"Z", "[", 
     RowBox[{"7", ",", "12"}], "]"}], "\[Equal]", 
    SubscriptBox["\[Sigma]", "1"]}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.7494822967584114`*^9, {3.7494823516392856`*^9, 3.749482388711256*^9}, 
   3.7494824654614663`*^9, 3.749482837546488*^9, {3.7494829730196037`*^9, 
   3.7494829962450185`*^9}, 3.749483098282524*^9, {3.7494831891221447`*^9, 
   3.7494832071037216`*^9}, 3.749486466848751*^9, 3.7494900270105543`*^9, 
   3.7494930181132135`*^9, 3.7494937173213744`*^9, 3.749493853167077*^9, 
   3.749493962980129*^9, 3.749497529544746*^9, 3.7494995402903156`*^9, 
   3.74949971797678*^9, 3.7494999967225146`*^9, 3.749557138164719*^9, 
   3.749560089939004*^9, 3.749841864768999*^9, 3.749858040379733*^9, 
   3.7604715296376*^9},
 CellLabel->
  "Out[152]=",ExpressionUUID->"615fe2e5-3c16-4d9d-880c-72ae0215b775"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{"LocalFieldNumber", ",", "NumZCharges"}], "]"}]], "Input",
 CellChangeTimes->{{3.747496499638111*^9, 3.7474965053367357`*^9}, 
   3.7494912134588275`*^9, {3.7494922309540925`*^9, 3.7494922358260307`*^9}},
 CellLabel->
  "In[153]:=",ExpressionUUID->"9aaf5ed4-eea7-48a0-9bed-a7825ad5c599"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[{
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        SubsuperscriptBox["D", "a", "i"], ",", 
        SubsuperscriptBox[
         OverscriptBox["D", "~"], "b", "j"]}], "}"}], 
      SubscriptBox["B", "\[Mu]\[Nu]"]}], "=", "  ", 
     RowBox[{
      RowBox[{"2", " ", "i", " ", 
       SuperscriptBox[
        RowBox[{"Z", "[", 
         RowBox[{"lfn", ",", "1"}], "]"}], "ij"], 
       SubscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"[", 
           RowBox[{
            SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
            SubscriptBox["\[Gamma]", "\[Nu]"]}], "]"}], 
          SuperscriptBox["\[Gamma]", "\[Alpha]"]}], ")"}], "ab"], 
       RowBox[{
        SubscriptBox["\[PartialD]", "\[Alpha]"], "A"}]}], "+", 
      RowBox[{"2", " ", "i", " ", 
       SuperscriptBox[
        RowBox[{"Z", "[", 
         RowBox[{"lfn", ",", "2"}], "]"}], "ij"], 
       SubscriptBox[
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["\[Gamma]", "\[Alpha]"], "[", 
          RowBox[{
           SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
           SubscriptBox["\[Gamma]", "\[Nu]"]}], "]"}], ")"}], "ab"], 
       RowBox[{
        SubscriptBox["\[PartialD]", "\[Alpha]"], "A"}]}]}]}], " "}], 
   TraditionalForm], "\[IndentingNewLine]", 
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"+", " ", "2"}], " ", 
     SuperscriptBox[
      RowBox[{"Z", "[", 
       RowBox[{"lfn", ",", "3"}], "]"}], "ij"], 
     SubscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         SuperscriptBox["\[Gamma]", "5"], "[", 
         RowBox[{
          SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
          SubscriptBox["\[Gamma]", "\[Nu]"]}], "]"}], 
        SuperscriptBox["\[Gamma]", "\[Alpha]"]}], ")"}], "ab"], 
     RowBox[{
      SubscriptBox["\[PartialD]", "\[Alpha]"], "B"}]}], "+", 
    RowBox[{"2", " ", 
     SuperscriptBox[
      RowBox[{"Z", "[", 
       RowBox[{"lfn", ",", "4"}], "]"}], "ij"], 
     SubscriptBox[
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["\[Gamma]", "5"], 
        RowBox[{
         SuperscriptBox["\[Gamma]", "\[Alpha]"], "[", 
         RowBox[{
          SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
          SubscriptBox["\[Gamma]", "\[Nu]"]}], "]"}]}], ")"}], "ab"], 
     RowBox[{
      SubscriptBox["\[PartialD]", "\[Alpha]"], "B"}]}], "+", " ", 
    RowBox[{"2", " ", "i", " ", 
     SuperscriptBox[
      RowBox[{"Z", "[", 
       RowBox[{"lfn", ",", "5"}], "]"}], "ij"], 
     SubscriptBox[
      RowBox[{"(", 
       RowBox[{"[", 
        RowBox[{
         SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
         SubscriptBox["\[Gamma]", "\[Nu]"]}], "]"}], ")"}], "ab"], "F"}], "+",
     " ", 
    RowBox[{"2", " ", 
     SuperscriptBox[
      RowBox[{"Z", "[", 
       RowBox[{"lfn", ",", "6"}], "]"}], "ij"], 
     SubscriptBox[
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["\[Gamma]", "5"], "[", 
        RowBox[{
         SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
         SubscriptBox["\[Gamma]", "\[Nu]"]}], "]"}], ")"}], "ab"], "G"}], "+",
     " ", 
    RowBox[{"2", " ", 
     SuperscriptBox[
      RowBox[{"Z", "[", 
       RowBox[{"lfn", ",", "7"}], "]"}], "ij"], 
     SubscriptBox[
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["\[Gamma]", "5"], "[", 
        RowBox[{
         SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
         SubscriptBox["\[Gamma]", "\[Nu]"]}], "]"}], ")"}], "ab"], "d"}], "+", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"Z", "[", 
       RowBox[{"lfn", ",", "8"}], "]"}], "ij"], 
     SubscriptBox[
      RowBox[{"(", 
       SuperscriptBox["\[Gamma]", "5"], ")"}], "ab"], 
     SubscriptBox["\[Epsilon]", "\[Mu]\[Nu]\[Alpha]\[Beta]"], 
     RowBox[{
      SuperscriptBox["\[PartialD]", "\[Alpha]"], 
      SuperscriptBox["A", "\[Beta]"]}]}], "+", 
    RowBox[{"i", " ", 
     SuperscriptBox[
      RowBox[{"Z", "[", 
       RowBox[{"lfn", ",", "9"}], "]"}], "ij"], 
     SubscriptBox[
      RowBox[{"(", 
       RowBox[{"[", 
        RowBox[{
         SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
         SubscriptBox["\[Gamma]", "\[Nu]"]}], "]"}], ")"}], "ab"], 
     RowBox[{
      SuperscriptBox["\[PartialD]", "\[Alpha]"], 
      SubscriptBox["A", "\[Alpha]"]}]}], "+", 
    RowBox[{"i", " ", 
     SuperscriptBox[
      RowBox[{"Z", "[", 
       RowBox[{"lfn", ",", "10"}], "]"}], "ij"], 
     SubscriptBox[
      RowBox[{"(", 
       RowBox[{"[", 
        RowBox[{
         SubscriptBox["\[Gamma]", "\[Alpha]"], ",", 
         SubscriptBox["\[Gamma]", 
          RowBox[{"[", "\[Mu]"}]]}], "]"}], ")"}], 
      RowBox[{"|", "ab", "|"}]], 
     RowBox[{
      SuperscriptBox["\[PartialD]", "\[Alpha]"], 
      SubscriptBox["A", 
       RowBox[{"\[Nu]", "]"}]]}]}], "-", 
    RowBox[{
     SubscriptBox["\[PartialD]", 
      RowBox[{"[", "\[Mu]"}]], 
     SubsuperscriptBox[
      OverscriptBox["\[CapitalLambda]", "~"], 
      RowBox[{
       RowBox[{"\[Nu]", "]"}], "ab"}], "ij"]}]}], TraditionalForm]}], "None",
  ExpressionUUID->"9ce39267-9738-4060-a89f-3e16548e2d42"],
 "\nFieldNumber = 14\n",
 Cell[BoxData[{
  FormBox[
   RowBox[{
    RowBox[{
     SubsuperscriptBox[
      OverscriptBox["\[CapitalLambda]", "~"], "\[Nu]ab", "ij"], "=", " ", 
     RowBox[{
      RowBox[{"2", "i", " ", 
       SuperscriptBox[
        RowBox[{"Z", "[", 
         RowBox[{"lfn", ",", "11"}], "]"}], "ij"], 
       SubscriptBox["C", "ab"], 
       SubscriptBox["A", "\[Nu]"]}], "+", " ", 
      RowBox[{"i", " ", 
       SubscriptBox[
        RowBox[{
         SuperscriptBox[
          RowBox[{"Z", "[", 
           RowBox[{"lfn", ",", "12"}], "]"}], "ij"], "[", 
         RowBox[{
          SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
          SubscriptBox["\[Gamma]", "\[Alpha]"]}], "]"}], "ab"], 
       SuperscriptBox["A", "\[Alpha]"]}]}]}], " "}], 
   TraditionalForm], "\[IndentingNewLine]", 
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"+", "i"}], " ", 
     SuperscriptBox[
      RowBox[{"Z", "[", 
       RowBox[{"lfn", ",", "13"}], "]"}], "ij"], 
     SubscriptBox[
      RowBox[{"(", 
       SubscriptBox["\[Gamma]", "\[Nu]"], ")"}], "ab"], "A"}], " ", "+", " ", 
    
    RowBox[{
     SuperscriptBox[
      RowBox[{"Z", "[", 
       RowBox[{"lfn", ",", "14"}], "]"}], "ij"], 
     SubscriptBox[
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["\[Gamma]", "5"], 
        SubscriptBox["\[Gamma]", "\[Nu]"]}], ")"}], "ab"], "B", " "}]}], 
   TraditionalForm]}],ExpressionUUID->
  "7f2e251a-896b-4cf0-ab04-1403b7c2ee28"],
 "\nThe Z[11] through Z[14] are actually gauge charges"
}], "Subsection",
 CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, {
   3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 
   3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 
   3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, {
   3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7467956828758698`*^9, 
   3.746795686091745*^9}, {3.7468041304980903`*^9, 3.7468041309100285`*^9}, {
   3.746804200318131*^9, 3.746804240053707*^9}, {3.74680432554387*^9, 
   3.746804336909229*^9}, {3.7468050801419106`*^9, 3.746805100373829*^9}, {
   3.7468397665571055`*^9, 3.746839802623133*^9}, {3.74684113959402*^9, 
   3.7468412441025996`*^9}, {3.747486297838811*^9, 3.747486297838811*^9}, {
   3.748974368374832*^9, 3.748974387624366*^9}, {3.748974800366748*^9, 
   3.7489748283377237`*^9}, {3.748975031260829*^9, 3.74897519200307*^9}, {
   3.748975280187872*^9, 3.74897528043862*^9}, {3.7489753380030317`*^9, 
   3.748975384519353*^9}, {3.748976024242681*^9, 3.7489760469667788`*^9}, {
   3.7494040633960037`*^9, 3.749404077803393*^9}, {3.749404320307985*^9, 
   3.7494045104833603`*^9}, {3.7494045512989826`*^9, 
   3.7494046042504616`*^9}, {3.74940530435376*^9, 3.7494053059139447`*^9}, {
   3.749405604571086*^9, 3.749405604571086*^9}, {3.7494943882764225`*^9, 
   3.7494944150354404`*^9}, {3.7494947866684303`*^9, 
   3.7494948216349545`*^9}, {3.74949505067566*^9, 3.7494952206277533`*^9}, {
   3.7494952557152133`*^9, 3.7494953135143533`*^9}, {3.749496326709059*^9, 
   3.749496416937021*^9}, {3.7494964628098392`*^9, 3.7494965362355027`*^9}, {
   3.7494966228902216`*^9, 3.7494966316281075`*^9}, {3.749497725971077*^9, 
   3.749497728642847*^9}},ExpressionUUID->"584b0c06-6593-4245-91e2-\
62ac62d41363"],

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"Amup", "[", "\[Mu]", "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "  ", "=", " ", 
    SuperscriptBox["A", "\[Mu]"]}], TraditionalForm]], "None",ExpressionUUID->
  "9d3d6db5-ee32-4e60-b0d8-8fd08072f920"],
 ", forgot this one"
}], "Text",
 CellChangeTimes->{{3.5595058748817196`*^9, 3.559505896619963*^9}, {
  3.5595059940175343`*^9, 3.5595060010259347`*^9}, {3.74678782171711*^9, 
  3.74678786098053*^9}, {3.7467881807248545`*^9, 3.746788190022028*^9}, {
  3.746788346555399*^9, 3.746788346555399*^9}, {3.746788643343294*^9, 
  3.746788643815591*^9}, {3.7494047903303566`*^9, 
  3.7494048127854605`*^9}},ExpressionUUID->"cf20342c-ea87-40da-b42b-\
878f27329ff3"],

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Amup", "[", "\[Mu]", "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", "=", " ", 
    RowBox[{
     RowBox[{"RaiseSTIndex", "[", 
      RowBox[{
       RowBox[{"AmHolder", "[", "\[Mu]", "]"}], "[", 
       RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", 
     RowBox[{"AmHolder", "\[Rule]", "Am"}]}]}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Mu]", ",", "0", ",", "3"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5595058981330495`*^9, 3.5595059444937015`*^9}, {
   3.7113879792638707`*^9, 3.7113880306928124`*^9}, {3.737154372023514*^9, 
   3.7371543849622355`*^9}, {3.737159515714714*^9, 3.7371595253561463`*^9}, {
   3.74678782201628*^9, 3.746787825946167*^9}, 3.7467878778048897`*^9, {
   3.746787909745264*^9, 3.746787924140156*^9}, {3.7467879975357356`*^9, 
   3.7467879981953106`*^9}, {3.7467881857567434`*^9, 
   3.7467881927209597`*^9}, {3.746788351399992*^9, 3.7467883622182903`*^9}, {
   3.7494048344188623`*^9, 3.7494048611295433`*^9}, {3.7494049529790893`*^9, 
   3.7494049533374643`*^9}},
 CellLabel->
  "In[154]:=",ExpressionUUID->"83082f74-75f2-4c78-b141-f1e5826ed610"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Amup", "[", "mu", "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}], "//", 
  "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.737154400322974*^9, 3.7371544155276656`*^9}, 
   3.7467878270506954`*^9, 3.7467883634435215`*^9, {3.7467884066390657`*^9, 
   3.746788406756423*^9}, {3.746788439379644*^9, 3.746788439504629*^9}, {
   3.749404883538143*^9, 3.7494048883057685`*^9}, {3.749404959970332*^9, 
   3.749404982825347*^9}},
 CellLabel->
  "In[155]:=",ExpressionUUID->"bba45c03-3b9d-4798-9c83-22686ddb0aab"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", 
   TagBox[GridBox[{
      {
       RowBox[{"-", 
        RowBox[{
         RowBox[{"Am", "[", "0", "]"}], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]},
      {
       RowBox[{
        RowBox[{"Am", "[", "1", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]},
      {
       RowBox[{
        RowBox[{"Am", "[", "2", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]},
      {
       RowBox[{
        RowBox[{"Am", "[", "3", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}
     },
     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.7494048889091253`*^9, {3.7494049562631254`*^9, 3.74940498316192*^9}, 
   3.7494970607016535`*^9, 3.7494976818138285`*^9, 3.7494979465589905`*^9, 
   3.7494981650986605`*^9, 3.7494983209052296`*^9, 3.749498641705474*^9, 
   3.74949954033247*^9, 3.749499718015961*^9, 3.7494999967631865`*^9, 
   3.749557138208865*^9, 3.749560089980774*^9, 3.749841864818141*^9, 
   3.749858040514038*^9, 3.7604715296754665`*^9},
 CellLabel->
  "Out[155]//MatrixForm=",ExpressionUUID->"07407f9a-4093-4c7d-bc19-\
b8d628a561f7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalFieldNumber", " ", "=", " ", "14"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"NumZCharges", " ", "=", " ", "14"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"CentralChargeList", "[", "LocalFieldNumber", "]"}], " ", "=", " ", 
  
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"LocalFieldNumber", ",", "FieldNumber", ",", "sigmaNumber"}], 
      "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"FieldNumber", ",", "1", ",", "NumZCharges"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"sigmaNumber", ",", "0", ",", "3"}], "}"}]}], "]"}], "//", 
   "Flatten"}]}]}], "Input",
 CellChangeTimes->{{3.748975431348178*^9, 3.7489754349879637`*^9}, 
   3.7494943594995956`*^9, 3.7494964203052406`*^9},
 CellLabel->
  "In[156]:=",ExpressionUUID->"740a0140-d618-4c72-9e0c-224d89aa513b"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "1", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "1", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "1", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "1", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "2", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "2", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "2", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "2", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "3", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "3", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "3", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "3", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "4", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "4", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "4", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "4", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "5", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "5", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "5", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "5", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "6", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "6", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "6", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "6", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "7", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "7", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "7", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "7", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "8", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "8", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "8", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "8", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "9", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "9", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "9", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "9", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "10", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "10", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "10", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "10", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "11", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "11", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "11", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "11", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "12", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "12", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "12", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "12", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "13", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "13", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "13", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "13", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "14", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "14", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "14", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "14", ",", "3"}], "]"}]}], "}"}]], "Output",
 CellChangeTimes->{3.749497946581299*^9, 3.7494981651189966`*^9, 
  3.749498320931034*^9, 3.7494986417342415`*^9, 3.749499540360248*^9, 
  3.7494997180387783`*^9, 3.749499996792948*^9, 3.7495571382277937`*^9, 
  3.749560090004628*^9, 3.74984186485981*^9, 3.749858040637418*^9, 
  3.7604715297012086`*^9},
 CellLabel->
  "Out[158]=",ExpressionUUID->"04f11e0a-86a7-4509-9a19-ec14abef5a94"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Z", "[", "LocalFieldNumber", "]"}], "[", 
     RowBox[{"mu_", ",", "nu_"}], "]"}], "[", 
    RowBox[{"ii_", ",", "jj_"}], "]"}], "[", 
   RowBox[{"aa_", ",", "bb_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"2", " ", "I", " ", 
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "1"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"CommuteGammastdown", "[", 
           RowBox[{"mu", ",", "nu"}], "]"}], ".", 
          RowBox[{"\[Gamma]down", "[", "ap", "]"}]}], ")"}], "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"A", "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
         RowBox[{"\[CapitalStigma]", "[", "ap", "]"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"ap", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "+", 
   RowBox[{"2", " ", "I", " ", 
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "2"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"\[Gamma]", "[", "ap", "]"}], ".", 
          RowBox[{"CommuteGammastdowndown", "[", 
           RowBox[{"mu", ",", "nu"}], "]"}]}], ")"}], "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"A", "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
         RowBox[{"\[CapitalStigma]", "[", "ap", "]"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"ap", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "+", 
   RowBox[{"2", " ", 
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "3"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"\[Gamma]5", ".", 
          RowBox[{"CommuteGammastdown", "[", 
           RowBox[{"mu", ",", "nu"}], "]"}], ".", 
          RowBox[{"\[Gamma]down", "[", "ap", "]"}]}], ")"}], "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"B", "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
         RowBox[{"\[CapitalStigma]", "[", "ap", "]"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"ap", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "+", 
   RowBox[{"2", " ", 
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "4"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"\[Gamma]5\[Gamma]", "[", "ap", "]"}], ".", 
          RowBox[{"CommuteGammastdowndown", "[", 
           RowBox[{"mu", ",", "nu"}], "]"}]}], ")"}], "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"B", "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
         RowBox[{"\[CapitalStigma]", "[", "ap", "]"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"ap", ",", "0", ",", "3"}], "}"}]}], "]"}]}], " ", "+", " ", 
   RowBox[{"2", "I", " ", 
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "5"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{
     RowBox[{"CommuteGammastdowndown", "[", 
      RowBox[{"mu", ",", "nu"}], "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
    RowBox[{"F", "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", "+", " ", 
   RowBox[{"2", 
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "6"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"\[Gamma]5", ".", 
       RowBox[{"CommuteGammastdowndown", "[", 
        RowBox[{"mu", ",", "nu"}], "]"}]}], ")"}], "[", 
     RowBox[{"[", 
      RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
    RowBox[{"G", "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", " ", 
   RowBox[{"2", 
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "7"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"\[Gamma]5", ".", 
       RowBox[{"CommuteGammastdowndown", "[", 
        RowBox[{"mu", ",", "nu"}], "]"}]}], ")"}], "[", 
     RowBox[{"[", 
      RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
    RowBox[{"d", "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
   RowBox[{
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "8"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"\[Gamma]5down", "[", 
     RowBox[{"[", 
      RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"\[Epsilon]", "[", 
        RowBox[{"mu", ",", "nu", ",", "ap", ",", "bt"}], "]"}], 
       RowBox[{"UD", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Amup", "[", "bt", "]"}], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
         RowBox[{"\[CapitalStigma]", "[", "ap", "]"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"ap", ",", "0", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"bt", ",", "0", ",", "3"}], "}"}]}], "]"}]}], " ", "+", " ", 
   RowBox[{"I", " ", 
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "9"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{
     RowBox[{"CommuteGammastdowndown", "[", 
      RowBox[{"mu", ",", "nu"}], "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{"UD", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Am", "[", "ap", "]"}], "[", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
        RowBox[{"\[CapitalStigma]", "[", "ap", "]"}]}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"ap", ",", "0", ",", "3"}], "}"}]}], "]"}]}], " ", "+", " ", 
   RowBox[{"I", " ", 
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "10"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"CommuteGammastdowndown", "[", 
          RowBox[{"ap", ",", "mu"}], "]"}], "[", 
         RowBox[{"[", 
          RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
        RowBox[{"UD", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"Am", "[", "nu", "]"}], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
          RowBox[{"\[CapitalStigma]", "[", "ap", "]"}]}], "]"}]}], "-", 
       RowBox[{
        RowBox[{
         RowBox[{"CommuteGammastdowndown", "[", 
          RowBox[{"ap", ",", "nu"}], "]"}], "[", 
         RowBox[{"[", 
          RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
        RowBox[{"UD", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"Am", "[", "mu", "]"}], "[", 
           RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
          RowBox[{"\[CapitalStigma]", "[", "ap", "]"}]}], "]"}]}]}], ",", 
      RowBox[{"{", 
       RowBox[{"ap", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.7494085451000586`*^9, 3.7494085523049335`*^9}, {
   3.7494085899690495`*^9, 3.749408615257099*^9}, {3.7494086507852697`*^9, 
   3.749408665345*^9}, {3.7494093016570387`*^9, 3.7494093465610495`*^9}, {
   3.7494095637774105`*^9, 3.749409578217074*^9}, {3.749409653409035*^9, 
   3.7494098016018295`*^9}, {3.7494098348498144`*^9, 
   3.7494100216819773`*^9}, {3.7494862265493007`*^9, 3.74948626538061*^9}, {
   3.749486303084411*^9, 3.749486409804064*^9}, {3.749491861021188*^9, 
   3.7494918975704775`*^9}, {3.7494922763622904`*^9, 
   3.7494925001244493`*^9}, {3.749492808131174*^9, 3.749492966259914*^9}, {
   3.7494931994609575`*^9, 3.7494932056034827`*^9}, {3.7494932882999043`*^9, 
   3.7494933224195147`*^9}, {3.749493390293687*^9, 3.7494934366526213`*^9}, 
   3.749493487275071*^9, {3.7494936559805923`*^9, 3.7494936695238447`*^9}, {
   3.749493842468738*^9, 3.749493842722987*^9}, {3.749493947596159*^9, 
   3.7494939479072027`*^9}, {3.749494639467932*^9, 3.7494946487309275`*^9}, {
   3.749496646497279*^9, 3.7494967250903263`*^9}, {3.7494973529537697`*^9, 
   3.749497479977671*^9}, {3.7494975524586153`*^9, 3.74949765460373*^9}, {
   3.7494976989543476`*^9, 3.749497873642845*^9}, {3.749498131197258*^9, 
   3.7494981403944955`*^9}, {3.7494983027647667`*^9, 3.7494983153950877`*^9}},
 
 CellLabel->
  "In[159]:=",ExpressionUUID->"fba0106e-1fcd-48df-a5cc-2301e79ca205"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"ZTable", "[", "LocalFieldNumber", "]"}], "[", 
      RowBox[{"mu", ",", "nu"}], "]"}], " ", "=", " ", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"Z", "[", "LocalFieldNumber", "]"}], "[", 
          RowBox[{"mu", ",", "nu"}], "]"}], "[", 
         RowBox[{"ii", ",", "jj"}], "]"}], "[", 
        RowBox[{"aa", ",", "bb"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.7494086675397387`*^9, 3.749408718609185*^9}, {
  3.7494087673051147`*^9, 3.7494087768495007`*^9}, {3.7494919500355654`*^9, 
  3.749491963955261*^9}, {3.749494547074811*^9, 3.7494945594586687`*^9}},
 CellLabel->
  "In[160]:=",ExpressionUUID->"9fcef453-2ddf-4399-a36a-91b44fc998c4"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalLambda]", "[", 
       RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "nu_", "]"}], "[", 
     RowBox[{"ii_", ",", "jj_"}], "]"}], "[", 
    RowBox[{"aa_", ",", "bb_"}], "]"}], "[", 
   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", ":=", " ", 
  RowBox[{
   RowBox[{"2", " ", "I", " ", 
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "11"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"Cmetric", "[", 
     RowBox[{"[", 
      RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
    RowBox[{
     RowBox[{"Am", "[", "nu", "]"}], "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", "+", 
   RowBox[{"I", " ", 
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "12"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], 
    RowBox[{"Sum", "[", " ", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"CommuteGammastdowndown", "[", 
         RowBox[{"nu", ",", "ap"}], "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{
        RowBox[{"Amup", "[", "ap", "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"ap", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "  ", "+", " ", 
   RowBox[{"I", " ", 
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "13"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], " ", 
    RowBox[{
     RowBox[{"\[Gamma]stdowndown", "[", "nu", "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
    RowBox[{"A", "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", "+", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"ZGen", "[", 
      RowBox[{"LocalFieldNumber", ",", "14"}], "]"}], "[", 
     RowBox[{"ii", ",", "jj"}], "]"}], " ", 
    RowBox[{
     RowBox[{"\[Gamma]5\[Gamma]stdowndown", "[", "nu", "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"aa", ",", "bb"}], "]"}], "]"}], " ", 
    RowBox[{"B", "[", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " "}]}]}]], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGAQBmIQvaPMN6Ds1WvH+7FhYDph1ZRFINoi2mUViK5lfbkO
RD+asnwriM5dWHUCRE+dvukUiN6y2uABiA4sDXwMor/ExL8G62epBNMaCbfm
twNp5jlXF4Nooz2pn0B0ylQThg4gzfE/jg1E/9r3G0wX8h/NnvXutaPspB1V
IPrmEtN+EP1inussEB3wrG8biK57NwlMi0emX0h9/9qxfJ/8JRDtp3TtbDaQ
flwqdQlEa/R/+gOi5wh1secA6VXxbzRBtGs8oyWI5tFmCQDRHgefR4Dp99e/
zQDSXmkV30G0yQMGw5lAusOywRxEAwCizbD7
  "],
 CellLabel->
  "In[161]:=",ExpressionUUID->"5cb72d3a-fb99-4113-b7e0-67b2c78b0d24"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"\[CapitalLambda]Table", "[", 
        RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "nu", "]"}], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", "=", " ", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"\[CapitalLambda]", "[", 
            RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "nu", "]"}], "[", 
          RowBox[{"ii", ",", "jj"}], "]"}], "[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "[", 
        RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.746805604570979*^9, 3.746805658227662*^9}, {
  3.746806044124957*^9, 3.746806044220275*^9}, {3.7468406679832497`*^9, 
  3.746840718939666*^9}, {3.748976054744322*^9, 3.74897607333829*^9}, {
  3.7493920180869985`*^9, 3.749392031308953*^9}},
 CellLabel->
  "In[162]:=",ExpressionUUID->"56bfa145-69ff-4d47-b826-dd20b7d226ed"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"AlgebraDDMinusClosure", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", 
   
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"Collect", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"AlgebraDD", "[", 
              RowBox[{"tt1", ",", "tt2"}], "]"}], "[", 
             RowBox[{
              RowBox[{"Bmn", "[", 
               RowBox[{"mu", ",", "nu"}], "]"}], "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", 
            "-", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"ZTable", "[", "LocalFieldNumber", "]"}], "[", 
               RowBox[{"mu", ",", "nu"}], "]"}], "-", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"D", "[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{"\[CapitalLambda]Table", "[", 
                    RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "nu", "]"}], "[", 
                   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
                  RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}], "-", 
                
                RowBox[{"D", "[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{"\[CapitalLambda]Table", "[", 
                    RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "mu", "]"}], "[", 
                   RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
                  RowBox[{"\[CapitalStigma]", "[", "nu", "]"}]}], "]"}]}], 
               ")"}]}], ")"}]}], ")"}], "/.", "LagrangianParameters"}], "/.", 
         "VtoPauli"}], ",", "FieldListWithDerivatives", ",", "Simplify"}], 
       "]"}], ")"}], ",", 
     RowBox[{"{", 
      RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7474929944818563`*^9, 3.7474930651472597`*^9}, {
  3.747493152219424*^9, 3.7474932477784343`*^9}, {3.7474934178914785`*^9, 
  3.7474934832105627`*^9}, {3.7474935638267813`*^9, 3.747493591801224*^9}, {
  3.7474963739738455`*^9, 3.7474964449288054`*^9}, {3.748795026042665*^9, 
  3.748795027776865*^9}, {3.748965282772246*^9, 3.7489652841431913`*^9}, {
  3.748967256264186*^9, 3.7489672582499332`*^9}, {3.7494004185551434`*^9, 
  3.7494004426991215`*^9}, {3.7494086299617586`*^9, 3.749408647033921*^9}, {
  3.7494087803530507`*^9, 3.7494087808412037`*^9}, {3.7494912568589115`*^9, 
  3.7494913165706425`*^9}, {3.7494914035863967`*^9, 3.7494914061784263`*^9}, {
  3.7494914982840424`*^9, 3.7494915100027227`*^9}, {3.74949198535605*^9, 
  3.7494919858907022`*^9}, {3.749492042098717*^9, 3.7494920712828035`*^9}, {
  3.749494463739282*^9, 3.7494945272263684`*^9}},
 CellLabel->
  "In[163]:=",ExpressionUUID->"c83c7916-64e6-49cb-9cf0-be667d6e0fb8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"AlgebraDDMinusClosure", "[", 
    RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "14", "]"}], "[", 
  RowBox[{"[", 
   RowBox[{"2", ",", "3", ",", "1", ",", "4", ",", "2"}], "]"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.7494979952007823`*^9, 3.7494980353619456`*^9}},
 CellLabel->
  "In[164]:=",ExpressionUUID->"7949a802-47db-433e-aa40-3c93f41dbefb"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"F", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"8", " ", 
        RowBox[{"z", "[", 
         RowBox[{"14", ",", "5", ",", "1"}], "]"}]}], "+", 
       RowBox[{"8", " ", 
        RowBox[{"z", "[", 
         RowBox[{"14", ",", "5", ",", "2"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "3", "]"}], "[", "0", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "3", "]"}], "[", "3", "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "12", "]"}], "[", "1", "]"}]}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "2", "]"}]}], ")"}]}], "+", 
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"8", " ", 
        RowBox[{"z", "[", 
         RowBox[{"14", ",", "1", ",", "1"}], "]"}]}], "+", 
       RowBox[{"8", " ", 
        RowBox[{"z", "[", 
         RowBox[{"14", ",", "1", ",", "2"}], "]"}]}], "+", 
       RowBox[{"8", " ", 
        RowBox[{"z", "[", 
         RowBox[{"14", ",", "2", ",", "1"}], "]"}]}], "+", 
       RowBox[{"8", " ", 
        RowBox[{"z", "[", 
         RowBox[{"14", ",", "2", ",", "2"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "1", "]"}], "[", "0", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "1", "]"}], "[", "3", "]"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "12", "]"}], "[", "1", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "2", "]"}]}], ")"}], " ", 
     RowBox[{
      SuperscriptBox["A", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
    RowBox[{"2", " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"z", "[", 
        RowBox[{"14", ",", "9", ",", "1"}], "]"}], "+", 
       RowBox[{"z", "[", 
        RowBox[{"14", ",", "9", ",", "2"}], "]"}]}], ")"}], " ", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"Am", "[", "3", "]"}], 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"8", " ", 
        RowBox[{"z", "[", 
         RowBox[{"14", ",", "3", ",", "1"}], "]"}]}], "+", 
       RowBox[{"8", " ", 
        RowBox[{"z", "[", 
         RowBox[{"14", ",", "3", ",", "2"}], "]"}]}], "-", 
       RowBox[{"8", " ", 
        RowBox[{"z", "[", 
         RowBox[{"14", ",", "4", ",", "1"}], "]"}]}], "-", 
       RowBox[{"8", " ", 
        RowBox[{"z", "[", 
         RowBox[{"14", ",", "4", ",", "2"}], "]"}]}], "+", 
       RowBox[{"2", " ", 
        RowBox[{"z", "[", 
         RowBox[{"14", ",", "14", ",", "1"}], "]"}]}], "+", 
       RowBox[{"2", " ", 
        RowBox[{"z", "[", 
         RowBox[{"14", ",", "14", ",", "2"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "2", "]"}], "[", "0", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "2", "]"}], "[", "3", "]"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "12", "]"}], "[", "1", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "2", "]"}]}], ")"}], " ", 
     RowBox[{
      SuperscriptBox["B", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
    RowBox[{"2", " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"z", "[", 
        RowBox[{"14", ",", "9", ",", "1"}], "]"}], "+", 
       RowBox[{"z", "[", 
        RowBox[{"14", ",", "9", ",", "2"}], "]"}], "-", 
       RowBox[{"z", "[", 
        RowBox[{"14", ",", "10", ",", "1"}], "]"}], "-", 
       RowBox[{"z", "[", 
        RowBox[{"14", ",", "10", ",", "2"}], "]"}], "+", 
       RowBox[{"z", "[", 
        RowBox[{"14", ",", "12", ",", "1"}], "]"}], "+", 
       RowBox[{"z", "[", 
        RowBox[{"14", ",", "12", ",", "2"}], "]"}]}], ")"}], " ", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"Am", "[", "2", "]"}], 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "4"}], " ", "\[ImaginaryI]", " ", 
        RowBox[{"z", "[", 
         RowBox[{"14", ",", "12", ",", "1"}], "]"}]}], "-", 
       RowBox[{"4", " ", "\[ImaginaryI]", " ", 
        RowBox[{"z", "[", 
         RowBox[{"14", ",", "12", ",", "2"}], "]"}]}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "0", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "3", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "0", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "3", "]"}]}], ")"}], " ", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"Am", "[", "0", "]"}], 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
    RowBox[{"2", " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"z", "[", 
        RowBox[{"14", ",", "9", ",", "1"}], "]"}], "+", 
       RowBox[{"z", "[", 
        RowBox[{"14", ",", "9", ",", "2"}], "]"}], "-", 
       RowBox[{"z", "[", 
        RowBox[{"14", ",", "10", ",", "1"}], "]"}], "-", 
       RowBox[{"z", "[", 
        RowBox[{"14", ",", "10", ",", "2"}], "]"}], "+", 
       RowBox[{"z", "[", 
        RowBox[{"14", ",", "12", ",", "1"}], "]"}], "+", 
       RowBox[{"z", "[", 
        RowBox[{"14", ",", "12", ",", "2"}], "]"}]}], ")"}], " ", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"Am", "[", "1", "]"}], 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
    RowBox[{"2", " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"z", "[", 
        RowBox[{"14", ",", "9", ",", "1"}], "]"}], "+", 
       RowBox[{"z", "[", 
        RowBox[{"14", ",", "9", ",", "2"}], "]"}]}], ")"}], " ", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"Am", "[", "0", "]"}], 
       TagBox[
        RowBox[{"(", 
         RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"4", " ", "\[ImaginaryI]", " ", 
        RowBox[{"z", "[", 
         RowBox[{"14", ",", "10", ",", "1"}], "]"}]}], "+", 
       RowBox[{"4", " ", "\[ImaginaryI]", " ", 
        RowBox[{"z", "[", 
         RowBox[{"14", ",", "10", ",", "2"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "0", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "3", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "0", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "3", "]"}]}], ")"}], " ", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"Am", "[", "1", "]"}], 
       TagBox[
        RowBox[{"(", 
         RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", 
        RowBox[{"z", "[", 
         RowBox[{"14", ",", "8", ",", "1"}], "]"}]}], "-", 
       RowBox[{"2", " ", "\[ImaginaryI]", " ", 
        RowBox[{"z", "[", 
         RowBox[{"14", ",", "8", ",", "2"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "0", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "3", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "0", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "3", "]"}]}], ")"}], " ", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"Am", "[", "0", "]"}], 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "4"}], " ", "\[ImaginaryI]", " ", 
        RowBox[{"z", "[", 
         RowBox[{"14", ",", "10", ",", "1"}], "]"}]}], "-", 
       RowBox[{"4", " ", "\[ImaginaryI]", " ", 
        RowBox[{"z", "[", 
         RowBox[{"14", ",", "10", ",", "2"}], "]"}]}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "0", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "3", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "0", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "3", "]"}]}], ")"}], " ", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"Am", "[", "1", "]"}], 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"8", " ", 
        RowBox[{"z", "[", 
         RowBox[{"14", ",", "1", ",", "1"}], "]"}]}], "+", 
       RowBox[{"8", " ", 
        RowBox[{"z", "[", 
         RowBox[{"14", ",", "1", ",", "2"}], "]"}]}], "-", 
       RowBox[{"8", " ", 
        RowBox[{"z", "[", 
         RowBox[{"14", ",", "2", ",", "1"}], "]"}]}], "-", 
       RowBox[{"8", " ", 
        RowBox[{"z", "[", 
         RowBox[{"14", ",", "2", ",", "2"}], "]"}]}], "+", 
       RowBox[{"2", " ", 
        RowBox[{"z", "[", 
         RowBox[{"14", ",", "13", ",", "1"}], "]"}]}], "+", 
       RowBox[{"2", " ", 
        RowBox[{"z", "[", 
         RowBox[{"14", ",", "13", ",", "2"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "1", "]"}], "[", "0", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "1", "]"}], "[", "3", "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "12", "]"}], "[", "1", "]"}]}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "2", "]"}]}], ")"}], " ", 
     RowBox[{
      SuperscriptBox["A", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"4", " ", "\[ImaginaryI]", " ", 
        RowBox[{"z", "[", 
         RowBox[{"14", ",", "12", ",", "1"}], "]"}]}], "+", 
       RowBox[{"4", " ", "\[ImaginaryI]", " ", 
        RowBox[{"z", "[", 
         RowBox[{"14", ",", "12", ",", "2"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "0", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "3", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "0", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "3", "]"}]}], ")"}], " ", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"Am", "[", "3", "]"}], 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"8", " ", 
        RowBox[{"z", "[", 
         RowBox[{"14", ",", "1", ",", "1"}], "]"}]}], "+", 
       RowBox[{"8", " ", 
        RowBox[{"z", "[", 
         RowBox[{"14", ",", "1", ",", "2"}], "]"}]}], "+", 
       RowBox[{"8", " ", 
        RowBox[{"z", "[", 
         RowBox[{"14", ",", "2", ",", "1"}], "]"}]}], "+", 
       RowBox[{"8", " ", 
        RowBox[{"z", "[", 
         RowBox[{"14", ",", "2", ",", "2"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "1", "]"}], "[", "0", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "1", "]"}], "[", "3", "]"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "12", "]"}], "[", "1", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "2", "]"}]}], ")"}], " ", 
     RowBox[{
      SuperscriptBox["A", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", " ", "\[ImaginaryI]", " ", 
        RowBox[{"z", "[", 
         RowBox[{"14", ",", "8", ",", "1"}], "]"}]}], "+", 
       RowBox[{"2", " ", "\[ImaginaryI]", " ", 
        RowBox[{"z", "[", 
         RowBox[{"14", ",", "8", ",", "2"}], "]"}]}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "0", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "3", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "0", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "3", "]"}]}], ")"}], " ", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"Am", "[", "3", "]"}], 
       TagBox[
        RowBox[{"(", 
         RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "4"}], " ", "\[ImaginaryI]", " ", 
        RowBox[{"z", "[", 
         RowBox[{"14", ",", "12", ",", "1"}], "]"}]}], "-", 
       RowBox[{"4", " ", "\[ImaginaryI]", " ", 
        RowBox[{"z", "[", 
         RowBox[{"14", ",", "12", ",", "2"}], "]"}]}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "0", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "3", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "0", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "3", "]"}]}], ")"}], " ", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"Am", "[", "0", "]"}], 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"4", " ", "\[ImaginaryI]", " ", 
        RowBox[{"z", "[", 
         RowBox[{"14", ",", "11", ",", "1"}], "]"}]}], "+", 
       RowBox[{"4", " ", "\[ImaginaryI]", " ", 
        RowBox[{"z", "[", 
         RowBox[{"14", ",", "11", ",", "2"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "0", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "3", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "0", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "3", "]"}]}], ")"}], " ", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"Am", "[", "1", "]"}], 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"8", " ", 
        RowBox[{"z", "[", 
         RowBox[{"14", ",", "3", ",", "1"}], "]"}]}], "+", 
       RowBox[{"8", " ", 
        RowBox[{"z", "[", 
         RowBox[{"14", ",", "3", ",", "2"}], "]"}]}], "-", 
       RowBox[{"8", " ", 
        RowBox[{"z", "[", 
         RowBox[{"14", ",", "4", ",", "1"}], "]"}]}], "-", 
       RowBox[{"8", " ", 
        RowBox[{"z", "[", 
         RowBox[{"14", ",", "4", ",", "2"}], "]"}]}], "+", 
       RowBox[{"2", " ", 
        RowBox[{"z", "[", 
         RowBox[{"14", ",", "14", ",", "1"}], "]"}]}], "+", 
       RowBox[{"2", " ", 
        RowBox[{"z", "[", 
         RowBox[{"14", ",", "14", ",", "2"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "2", "]"}], "[", "0", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "2", "]"}], "[", "3", "]"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "12", "]"}], "[", "1", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "2", "]"}]}], ")"}], " ", 
     RowBox[{
      SuperscriptBox["B", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "4"}], " ", "\[ImaginaryI]", " ", 
        RowBox[{"z", "[", 
         RowBox[{"14", ",", "11", ",", "1"}], "]"}]}], "-", 
       RowBox[{"4", " ", "\[ImaginaryI]", " ", 
        RowBox[{"z", "[", 
         RowBox[{"14", ",", "11", ",", "2"}], "]"}]}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "0", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "3", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "0", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "3", "]"}]}], ")"}], " ", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"Am", "[", "2", "]"}], 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"8", " ", 
        RowBox[{"z", "[", 
         RowBox[{"14", ",", "3", ",", "1"}], "]"}]}], "+", 
       RowBox[{"8", " ", 
        RowBox[{"z", "[", 
         RowBox[{"14", ",", "3", ",", "2"}], "]"}]}], "+", 
       RowBox[{"8", " ", 
        RowBox[{"z", "[", 
         RowBox[{"14", ",", "4", ",", "1"}], "]"}]}], "+", 
       RowBox[{"8", " ", 
        RowBox[{"z", "[", 
         RowBox[{"14", ",", "4", ",", "2"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "2", "]"}], "[", "0", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "2", "]"}], "[", "3", "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "12", "]"}], "[", "1", "]"}]}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "2", "]"}]}], ")"}], " ", 
     RowBox[{
      SuperscriptBox["B", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"4", " ", "\[ImaginaryI]", " ", 
        RowBox[{"z", "[", 
         RowBox[{"14", ",", "10", ",", "1"}], "]"}]}], "+", 
       RowBox[{"4", " ", "\[ImaginaryI]", " ", 
        RowBox[{"z", "[", 
         RowBox[{"14", ",", "10", ",", "2"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "0", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "3", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "0", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "3", "]"}]}], ")"}], " ", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"Am", "[", "2", "]"}], 
       TagBox[
        RowBox[{"(", 
         RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"G", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"8", " ", 
        RowBox[{"z", "[", 
         RowBox[{"14", ",", "6", ",", "1"}], "]"}]}], "+", 
       RowBox[{"8", " ", 
        RowBox[{"z", "[", 
         RowBox[{"14", ",", "6", ",", "2"}], "]"}]}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "4", "]"}], "[", "0", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "4", "]"}], "[", "3", "]"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "12", "]"}], "[", "1", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "2", "]"}]}], ")"}]}], "+", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"d", "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"8", " ", "\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"z", "[", 
           RowBox[{"14", ",", "7", ",", "1"}], "]"}], "+", 
          RowBox[{"z", "[", 
           RowBox[{"14", ",", "7", ",", "2"}], "]"}]}], ")"}]}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"cv", "[", "6", "]"}], "[", "0", "]"}], "-", 
          RowBox[{
           RowBox[{"cv", "[", "6", "]"}], "[", "3", "]"}]}], ")"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "0", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "3", "]"}]}], ")"}]}], "+", 
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"8", " ", 
        RowBox[{"z", "[", 
         RowBox[{"14", ",", "3", ",", "1"}], "]"}]}], "+", 
       RowBox[{"8", " ", 
        RowBox[{"z", "[", 
         RowBox[{"14", ",", "3", ",", "2"}], "]"}]}], "+", 
       RowBox[{"8", " ", 
        RowBox[{"z", "[", 
         RowBox[{"14", ",", "4", ",", "1"}], "]"}]}], "+", 
       RowBox[{"8", " ", 
        RowBox[{"z", "[", 
         RowBox[{"14", ",", "4", ",", "2"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "2", "]"}], "[", "0", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "2", "]"}], "[", "3", "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "12", "]"}], "[", "1", "]"}]}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "2", "]"}]}], ")"}], " ", 
     RowBox[{
      SuperscriptBox["B", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"4", " ", "\[ImaginaryI]", " ", 
        RowBox[{"z", "[", 
         RowBox[{"14", ",", "10", ",", "1"}], "]"}]}], "+", 
       RowBox[{"4", " ", "\[ImaginaryI]", " ", 
        RowBox[{"z", "[", 
         RowBox[{"14", ",", "10", ",", "2"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "0", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "3", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "0", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "3", "]"}]}], ")"}], " ", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"Am", "[", "2", "]"}], 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", 
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"8", " ", 
        RowBox[{"z", "[", 
         RowBox[{"14", ",", "1", ",", "1"}], "]"}]}], "+", 
       RowBox[{"8", " ", 
        RowBox[{"z", "[", 
         RowBox[{"14", ",", "1", ",", "2"}], "]"}]}], "-", 
       RowBox[{"8", " ", 
        RowBox[{"z", "[", 
         RowBox[{"14", ",", "2", ",", "1"}], "]"}]}], "-", 
       RowBox[{"8", " ", 
        RowBox[{"z", "[", 
         RowBox[{"14", ",", "2", ",", "2"}], "]"}]}], "+", 
       RowBox[{"2", " ", 
        RowBox[{"z", "[", 
         RowBox[{"14", ",", "13", ",", "1"}], "]"}]}], "+", 
       RowBox[{"2", " ", 
        RowBox[{"z", "[", 
         RowBox[{"14", ",", "13", ",", "2"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "1", "]"}], "[", "0", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "1", "]"}], "[", "3", "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "12", "]"}], "[", "1", "]"}]}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "2", "]"}]}], ")"}], " ", 
     RowBox[{
      SuperscriptBox["A", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "4"}], " ", "\[ImaginaryI]", " ", 
        RowBox[{"z", "[", 
         RowBox[{"14", ",", "12", ",", "1"}], "]"}]}], "-", 
       RowBox[{"4", " ", "\[ImaginaryI]", " ", 
        RowBox[{"z", "[", 
         RowBox[{"14", ",", "12", ",", "2"}], "]"}]}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "0", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "3", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "0", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "3", "]"}]}], ")"}], " ", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"Am", "[", "3", "]"}], 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.749497998674944*^9, 3.7494980356114187`*^9}, 
   3.749498175779523*^9, 3.749498330953786*^9, 3.7494986516666393`*^9, 
   3.7494995523614216`*^9, 3.749499730212104*^9, 3.7495000093368444`*^9, 
   3.7495571493079777`*^9, 3.749560102140213*^9, 3.7498418769725313`*^9, 
   3.7498580541723623`*^9, 3.760471540531471*^9},
 CellLabel->
  "Out[164]=",ExpressionUUID->"6a9e7bf9-d2f1-4bce-91b5-0524ed13c0e7"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"AlgebraDDEqs", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", 
   "=", " ", 
   RowBox[{
    RowBox[{"DeleteCases", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"Coefficient", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"AlgebraDDMinusClosure", "[", 
                 RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", 
                "]"}], "[", 
               RowBox[{"[", 
                RowBox[{
                "mu", ",", "nu", ",", "ii", ",", "aa", ",", "jj", ",", "bb"}],
                 "]"}], "]"}], ",", 
              RowBox[{"FieldListWithDerivatives", "[", 
               RowBox[{"[", "FieldListIndex", "]"}], "]"}]}], "]"}], ")"}], 
           "\[Equal]", "0"}], ",", 
          RowBox[{"{", 
           RowBox[{"mu", ",", "1", ",", "4"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"nu", ",", "1", ",", "4"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"FieldListIndex", ",", "1", ",", 
            RowBox[{"Length", "[", "FieldListWithDerivatives", "]"}]}], 
           "}"}]}], "]"}], "//", "Simplify"}], "//", "Flatten"}], ",", 
      "True"}], "]"}], "//", "DeleteDuplicates"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7474933413160763`*^9, 3.7474934023534203`*^9}, {
   3.747493509609391*^9, 3.7474935432809353`*^9}, {3.7474936064895945`*^9, 
   3.7474936161297655`*^9}, {3.7474936564987297`*^9, 3.747493747940831*^9}, {
   3.747493832482408*^9, 3.7474938407374077`*^9}, {3.747496458745552*^9, 
   3.7474964697370515`*^9}, 3.7475105609270287`*^9, {3.748795270744809*^9, 
   3.748795274222528*^9}, {3.74879531011075*^9, 3.748795321437098*^9}, {
   3.748795652987978*^9, 3.748795656902155*^9}, {3.748965289858489*^9, 
   3.748965292697112*^9}, {3.748967259459038*^9, 3.748967260813509*^9}, {
   3.7489708313422194`*^9, 3.7489708325427723`*^9}, {3.749400458403777*^9, 
   3.749400461474213*^9}, {3.7494920741868925`*^9, 3.749492080658454*^9}, {
   3.749494571539537*^9, 3.749494577426366*^9}},
 CellLabel->
  "In[165]:=",ExpressionUUID->"d443c74f-7fe2-4631-b4e9-0ae1aefc6d05"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "[", 
  RowBox[{
   RowBox[{"AlgebraDDEqs", "[", 
    RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.747493880500272*^9, 3.7474938897376738`*^9}, {
   3.7474964759857783`*^9, 3.747496478481014*^9}, 3.748967263446204*^9},
 CellLabel->
  "In[166]:=",ExpressionUUID->"4c7368d2-868e-40e5-80ce-73b445ab9f6d"],

Cell[BoxData["96"], "Output",
 CellChangeTimes->{
  3.749402369344755*^9, 3.7494025812692585`*^9, 3.7494101413703766`*^9, 
   3.7494820675202274`*^9, 3.7494826010398684`*^9, 3.7494828373565598`*^9, {
   3.7494829726852674`*^9, 3.7494829961595726`*^9}, 3.7494830980945587`*^9, 
   3.7494832069386897`*^9, 3.7494864667491198`*^9, 3.749490026951528*^9, 
   3.7494930175934057`*^9, 3.749493716852651*^9, 3.749493852731039*^9, 
   3.74949396282236*^9, 3.749497968291313*^9, 3.749498189912049*^9, 
   3.7494983443551693`*^9, 3.7494986649515495`*^9, 3.7494995677295184`*^9, 
   3.7494997454932547`*^9, 3.749500024617033*^9, 3.7495571632643824`*^9, 
   3.7495601168872805`*^9, 3.749841892134712*^9, 3.7498580734824142`*^9, 
   3.760471553208083*^9},
 CellLabel->
  "Out[166]=",ExpressionUUID->"30180ea2-a79b-49b5-a04a-0a487ca1f9f8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ZSolutions", "[", "LocalFieldNumber", "]"}], " ", "=", " ", 
  RowBox[{
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"AlgebraDDEqs", "[", 
       RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], 
     ",", 
     RowBox[{"CentralChargeList", "[", "LocalFieldNumber", "]"}]}], "]"}], "//",
    "Flatten"}]}]], "Input",
 CellChangeTimes->{{3.7494088104519863`*^9, 3.749408859016982*^9}, 
   3.749410151970128*^9, {3.749482953421772*^9, 3.7494829550114527`*^9}, {
   3.749482991773706*^9, 3.749482992051861*^9}},
 CellLabel->
  "In[167]:=",ExpressionUUID->"5cb872dc-d8a7-4e42-a9a2-b67d642745ac"],

Cell[BoxData[
 TemplateBox[{
  "Solve","svars",
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"",2,
   167,1,33866091828430016795,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7494983444226866`*^9, 3.7494986649902267`*^9, 
  3.749499567780573*^9, 3.7494997455517817`*^9, 3.749500024676092*^9, 
  3.7495571633110447`*^9, 3.7495601169294796`*^9, 3.7498418921883745`*^9, 
  3.749858073654188*^9, 3.7604715533019357`*^9},
 CellLabel->
  "During evaluation of \
In[167]:=",ExpressionUUID->"c978a7c5-99b9-4044-8108-deef49c971fc"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"14", ",", "2", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{"z", "[", 
       RowBox[{"14", ",", "1", ",", "0"}], "]"}]}], "+", 
     RowBox[{
      FractionBox["1", "8"], " ", "\[ImaginaryI]", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"cv", "[", "1", "]"}], "[", "2", "]"}], "+", 
        RowBox[{
         RowBox[{"cv", "[", "12", "]"}], "[", "0", "]"}]}], ")"}]}]}]}], ",", 
   
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"14", ",", "2", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{"z", "[", 
       RowBox[{"14", ",", "1", ",", "1"}], "]"}]}], "+", 
     RowBox[{
      FractionBox["1", "8"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"cv", "[", "1", "]"}], "[", "3", "]"}], "+", 
        RowBox[{"\[ImaginaryI]", " ", 
         RowBox[{
          RowBox[{"cv", "[", "12", "]"}], "[", "1", "]"}]}]}], ")"}]}]}]}], 
   ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"14", ",", "2", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{"z", "[", 
       RowBox[{"14", ",", "1", ",", "2"}], "]"}]}], "+", 
     RowBox[{
      FractionBox["1", "8"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{
          RowBox[{"cv", "[", "1", "]"}], "[", "0", "]"}]}], "-", 
        RowBox[{
         RowBox[{"cv", "[", "12", "]"}], "[", "2", "]"}]}], ")"}]}]}]}], ",", 
   
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"14", ",", "2", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{"z", "[", 
       RowBox[{"14", ",", "1", ",", "3"}], "]"}]}], "+", 
     RowBox[{
      FractionBox["1", "8"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{
          RowBox[{"cv", "[", "1", "]"}], "[", "1", "]"}]}], "+", 
        RowBox[{"\[ImaginaryI]", " ", 
         RowBox[{
          RowBox[{"cv", "[", "12", "]"}], "[", "3", "]"}]}]}], ")"}]}]}]}], 
   ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"14", ",", "4", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{"z", "[", 
       RowBox[{"14", ",", "3", ",", "0"}], "]"}]}], "+", 
     RowBox[{
      FractionBox["1", "8"], " ", "\[ImaginaryI]", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"cv", "[", "2", "]"}], "[", "2", "]"}], "-", 
        RowBox[{
         RowBox[{"cv", "[", "12", "]"}], "[", "0", "]"}]}], ")"}]}]}]}], ",", 
   
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"14", ",", "4", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{"z", "[", 
       RowBox[{"14", ",", "3", ",", "1"}], "]"}]}], "+", 
     RowBox[{
      FractionBox["1", "8"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"cv", "[", "2", "]"}], "[", "3", "]"}], "-", 
        RowBox[{"\[ImaginaryI]", " ", 
         RowBox[{
          RowBox[{"cv", "[", "12", "]"}], "[", "1", "]"}]}]}], ")"}]}]}]}], 
   ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"14", ",", "4", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{"z", "[", 
       RowBox[{"14", ",", "3", ",", "2"}], "]"}]}], "+", 
     RowBox[{
      FractionBox["1", "8"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{
          RowBox[{"cv", "[", "2", "]"}], "[", "0", "]"}]}], "+", 
        RowBox[{
         RowBox[{"cv", "[", "12", "]"}], "[", "2", "]"}]}], ")"}]}]}]}], ",", 
   
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"14", ",", "4", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{"z", "[", 
       RowBox[{"14", ",", "3", ",", "3"}], "]"}]}], "+", 
     RowBox[{
      FractionBox["1", "8"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{
          RowBox[{"cv", "[", "2", "]"}], "[", "1", "]"}]}], "-", 
        RowBox[{"\[ImaginaryI]", " ", 
         RowBox[{
          RowBox[{"cv", "[", "12", "]"}], "[", "3", "]"}]}]}], ")"}]}]}]}], 
   ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"14", ",", "5", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "8"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "3", "]"}], "[", "2", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "0", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"14", ",", "5", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "8"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "3", "]"}], "[", "3", "]"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "12", "]"}], "[", "1", "]"}]}]}], ")"}]}]}], ",", 
   
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"14", ",", "5", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "8"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "3", "]"}], "[", "0", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "2", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"14", ",", "5", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "8"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "3", "]"}], "[", "1", "]"}]}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "12", "]"}], "[", "3", "]"}]}]}], ")"}]}]}], ",", 
   
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"14", ",", "6", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "8"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "4", "]"}], "[", "2", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "3", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"14", ",", "6", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "8"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "4", "]"}], "[", "3", "]"}]}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "2", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"14", ",", "6", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "8"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "4", "]"}], "[", "0", "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "12", "]"}], "[", "1", "]"}]}]}], ")"}]}]}], ",", 
   
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"14", ",", "6", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "8"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "4", "]"}], "[", "1", "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "12", "]"}], "[", "0", "]"}]}]}], ")"}]}]}], ",", 
   
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"14", ",", "7", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "8"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "6", "]"}], "[", "2", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "1", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"14", ",", "7", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "8"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "6", "]"}], "[", "3", "]"}]}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "12", "]"}], "[", "0", "]"}]}]}], ")"}]}]}], ",", 
   
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"14", ",", "7", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "8"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "6", "]"}], "[", "0", "]"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "12", "]"}], "[", "3", "]"}]}]}], ")"}]}]}], ",", 
   
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"14", ",", "7", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "8"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "6", "]"}], "[", "1", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "2", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"14", ",", "8", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "5", "]"}], "[", "2", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "2", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"14", ",", "8", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "3", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "3", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"14", ",", "8", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "0", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "0", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"14", ",", "8", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "1", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "1", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"14", ",", "9", ",", "0"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"14", ",", "9", ",", "1"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"14", ",", "9", ",", "2"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"14", ",", "9", ",", "3"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"14", ",", "10", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "4"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "2", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "2", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"14", ",", "10", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "4"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "3", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "3", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"14", ",", "10", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "0", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "0", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"14", ",", "10", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "1", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "1", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"14", ",", "11", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "4"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "2", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "2", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"14", ",", "11", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "4"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "3", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "3", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"14", ",", "11", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "0", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "0", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"14", ",", "11", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "1", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "1", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"14", ",", "12", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "4"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "2", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "2", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"14", ",", "12", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "4"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "3", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "3", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"14", ",", "12", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "0", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "0", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"14", ",", "12", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "1", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "1", "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"14", ",", "13", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "8"}], " ", 
      RowBox[{"z", "[", 
       RowBox[{"14", ",", "1", ",", "0"}], "]"}]}], "+", 
     RowBox[{"\[ImaginaryI]", " ", 
      RowBox[{
       RowBox[{"cv", "[", "1", "]"}], "[", "2", "]"}]}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"14", ",", "13", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "8"}], " ", 
      RowBox[{"z", "[", 
       RowBox[{"14", ",", "1", ",", "1"}], "]"}]}], "+", 
     RowBox[{
      RowBox[{"cv", "[", "1", "]"}], "[", "3", "]"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"14", ",", "13", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "8"}], " ", 
      RowBox[{"z", "[", 
       RowBox[{"14", ",", "1", ",", "2"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"cv", "[", "1", "]"}], "[", "0", "]"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"14", ",", "13", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "8"}], " ", 
      RowBox[{"z", "[", 
       RowBox[{"14", ",", "1", ",", "3"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"cv", "[", "1", "]"}], "[", "1", "]"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"14", ",", "14", ",", "0"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "8"}], " ", 
      RowBox[{"z", "[", 
       RowBox[{"14", ",", "3", ",", "0"}], "]"}]}], "+", 
     RowBox[{"\[ImaginaryI]", " ", 
      RowBox[{
       RowBox[{"cv", "[", "2", "]"}], "[", "2", "]"}]}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"14", ",", "14", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "8"}], " ", 
      RowBox[{"z", "[", 
       RowBox[{"14", ",", "3", ",", "1"}], "]"}]}], "+", 
     RowBox[{
      RowBox[{"cv", "[", "2", "]"}], "[", "3", "]"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"14", ",", "14", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "8"}], " ", 
      RowBox[{"z", "[", 
       RowBox[{"14", ",", "3", ",", "2"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"cv", "[", "2", "]"}], "[", "0", "]"}]}]}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"14", ",", "14", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "8"}], " ", 
      RowBox[{"z", "[", 
       RowBox[{"14", ",", "3", ",", "3"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"cv", "[", "2", "]"}], "[", "1", "]"}]}]}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.749410161019311*^9, 3.7494820675836697`*^9, 3.749482601117894*^9, 
   3.749482837383304*^9, {3.749482955925235*^9, 3.749482996184867*^9}, 
   3.749483098167952*^9, 3.7494832069679165`*^9, 3.7494864668309393`*^9, 
   3.749490026991704*^9, 3.7494930180383244`*^9, 3.749493717258875*^9, 
   3.7494938531357746`*^9, 3.749493962911208*^9, 3.749497968776402*^9, 
   3.7494981905003037`*^9, 3.749498344452921*^9, 3.7494986650378056`*^9, 
   3.749499567832651*^9, 3.7494997456261806`*^9, 3.7495000247515826`*^9, 
   3.749557163339328*^9, 3.749560116960713*^9, 3.7498418922132177`*^9, 
   3.749858073670457*^9, 3.7604715533324833`*^9},
 CellLabel->
  "Out[167]=",ExpressionUUID->"baee3d8e-ec93-4442-9dfa-12d03545a900"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[{
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        SubsuperscriptBox["D", "a", "i"], ",", 
        SubsuperscriptBox[
         OverscriptBox["D", "~"], "b", "j"]}], "}"}], 
      SubscriptBox["B", "\[Mu]\[Nu]"]}], "=", "  ", 
     RowBox[{
      RowBox[{"2", " ", "i", " ", 
       SuperscriptBox[
        RowBox[{"Z", "[", 
         RowBox[{"lfn", ",", "1"}], "]"}], "ij"], 
       SubscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"[", 
           RowBox[{
            SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
            SubscriptBox["\[Gamma]", "\[Nu]"]}], "]"}], 
          SuperscriptBox["\[Gamma]", "\[Alpha]"]}], ")"}], "ab"], 
       RowBox[{
        SubscriptBox["\[PartialD]", "\[Alpha]"], "A"}]}], "+", 
      RowBox[{"2", " ", "i", " ", 
       SuperscriptBox[
        RowBox[{"Z", "[", 
         RowBox[{"lfn", ",", "2"}], "]"}], "ij"], 
       SubscriptBox[
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["\[Gamma]", "\[Alpha]"], "[", 
          RowBox[{
           SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
           SubscriptBox["\[Gamma]", "\[Nu]"]}], "]"}], ")"}], "ab"], 
       RowBox[{
        SubscriptBox["\[PartialD]", "\[Alpha]"], "A"}]}]}]}], " "}], 
   TraditionalForm], "\[IndentingNewLine]", 
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"+", " ", "2"}], " ", 
     SuperscriptBox[
      RowBox[{"Z", "[", 
       RowBox[{"lfn", ",", "3"}], "]"}], "ij"], 
     SubscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         SuperscriptBox["\[Gamma]", "5"], "[", 
         RowBox[{
          SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
          SubscriptBox["\[Gamma]", "\[Nu]"]}], "]"}], 
        SuperscriptBox["\[Gamma]", "\[Alpha]"]}], ")"}], "ab"], 
     RowBox[{
      SubscriptBox["\[PartialD]", "\[Alpha]"], "B"}]}], "+", 
    RowBox[{"2", " ", 
     SuperscriptBox[
      RowBox[{"Z", "[", 
       RowBox[{"lfn", ",", "4"}], "]"}], "ij"], 
     SubscriptBox[
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["\[Gamma]", "5"], 
        RowBox[{
         SuperscriptBox["\[Gamma]", "\[Alpha]"], "[", 
         RowBox[{
          SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
          SubscriptBox["\[Gamma]", "\[Nu]"]}], "]"}]}], ")"}], "ab"], 
     RowBox[{
      SubscriptBox["\[PartialD]", "\[Alpha]"], "B"}]}], "+", " ", 
    RowBox[{"2", " ", "i", " ", 
     SuperscriptBox[
      RowBox[{"Z", "[", 
       RowBox[{"lfn", ",", "5"}], "]"}], "ij"], 
     SubscriptBox[
      RowBox[{"(", 
       RowBox[{"[", 
        RowBox[{
         SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
         SubscriptBox["\[Gamma]", "\[Nu]"]}], "]"}], ")"}], "ab"], "F"}], "+",
     " ", 
    RowBox[{"2", " ", 
     SuperscriptBox[
      RowBox[{"Z", "[", 
       RowBox[{"lfn", ",", "6"}], "]"}], "ij"], 
     SubscriptBox[
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["\[Gamma]", "5"], "[", 
        RowBox[{
         SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
         SubscriptBox["\[Gamma]", "\[Nu]"]}], "]"}], ")"}], "ab"], "G"}], "+",
     " ", 
    RowBox[{"2", " ", 
     SuperscriptBox[
      RowBox[{"Z", "[", 
       RowBox[{"lfn", ",", "7"}], "]"}], "ij"], 
     SubscriptBox[
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["\[Gamma]", "5"], "[", 
        RowBox[{
         SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
         SubscriptBox["\[Gamma]", "\[Nu]"]}], "]"}], ")"}], "ab"], "d"}], "+", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"Z", "[", 
       RowBox[{"lfn", ",", "8"}], "]"}], "ij"], 
     SubscriptBox[
      RowBox[{"(", 
       SuperscriptBox["\[Gamma]", "5"], ")"}], "ab"], 
     SubscriptBox["\[Epsilon]", "\[Mu]\[Nu]\[Alpha]\[Beta]"], 
     RowBox[{
      SuperscriptBox["\[PartialD]", "\[Alpha]"], 
      SuperscriptBox["A", "\[Beta]"]}]}], "+", 
    RowBox[{"i", " ", 
     SuperscriptBox[
      RowBox[{"Z", "[", 
       RowBox[{"lfn", ",", "9"}], "]"}], "ij"], 
     SubscriptBox[
      RowBox[{"(", 
       RowBox[{"[", 
        RowBox[{
         SubscriptBox["\[Gamma]", "\[Mu]"], ",", 
         SubscriptBox["\[Gamma]", "\[Nu]"]}], "]"}], ")"}], "ab"], 
     RowBox[{
      SuperscriptBox["\[PartialD]", "\[Alpha]"], 
      SubscriptBox["A", "\[Alpha]"]}]}], "+", 
    RowBox[{"i", " ", 
     SuperscriptBox[
      RowBox[{"Z", "[", 
       RowBox[{"lfn", ",", "10"}], "]"}], "ij"], 
     SubscriptBox[
      RowBox[{"(", 
       RowBox[{"[", 
        RowBox[{
         SubscriptBox["\[Gamma]", "\[Alpha]"], ",", 
         SubscriptBox["\[Gamma]", 
          RowBox[{"[", "\[Mu]"}]]}], "]"}], ")"}], 
      RowBox[{"|", "ab", "|"}]], 
     RowBox[{
      SuperscriptBox["\[PartialD]", "\[Alpha]"], 
      SubscriptBox["A", 
       RowBox[{"\[Nu]", "]"}]]}]}], "-", 
    RowBox[{
     SubscriptBox["\[PartialD]", 
      RowBox[{"[", "\[Mu]"}]], 
     SubsuperscriptBox[
      OverscriptBox["\[CapitalLambda]", "~"], 
      RowBox[{
       RowBox[{"\[Nu]", "]"}], "ab"}], "ij"]}]}], TraditionalForm]}], "None",
  ExpressionUUID->"42f860c3-461b-46e7-9e85-5e76ea69bea4"],
 "\nFieldNumber = 14\n",
 Cell[BoxData[{
  FormBox[
   RowBox[{
    RowBox[{
     SubsuperscriptBox[
      OverscriptBox["\[CapitalLambda]", "~"], "\[Nu]ab", "ij"], "=", " ", 
     RowBox[{
      RowBox[{"2", "i", " ", 
       SuperscriptBox[
        RowBox[{"Z", "[", 
         RowBox[{"lfn", ",", "11"}], "]"}], "ij"], 
       SubscriptBox["C", "ab"], 
       SubscriptBox["A", "\[Nu]"]}], "+", " ", 
      RowBox[{"i", " ", 
       SubscriptBox[
        RowBox[{
         SuperscriptBox[
          RowBox[{"Z", "[", 
           RowBox[{"lfn", ",", "12"}], "]"}], "ij"], "[", 
         RowBox[{
          SubscriptBox["\[Gamma]", "\[Nu]"], ",", 
          SubscriptBox["\[Gamma]", "\[Alpha]"]}], "]"}], "ab"], 
       SuperscriptBox["A", "\[Alpha]"]}]}]}], " "}], 
   TraditionalForm], "\[IndentingNewLine]", 
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"+", "i"}], " ", 
     SuperscriptBox[
      RowBox[{"Z", "[", 
       RowBox[{"lfn", ",", "13"}], "]"}], "ij"], 
     SubscriptBox[
      RowBox[{"(", 
       SubscriptBox["\[Gamma]", "\[Nu]"], ")"}], "ab"], "A"}], " ", "+", " ", 
    
    RowBox[{
     SuperscriptBox[
      RowBox[{"Z", "[", 
       RowBox[{"lfn", ",", "14"}], "]"}], "ij"], 
     SubscriptBox[
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["\[Gamma]", "5"], 
        SubscriptBox["\[Gamma]", "\[Nu]"]}], ")"}], "ab"], "B", " "}]}], 
   TraditionalForm]}],ExpressionUUID->
  "1fc0fa3f-91ff-48ed-a8c2-5cfba15d7096"],
 "\nThe Z[11] through Z[14] are actually gauge charges"
}], "Subsubsection",
 CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, {
   3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 
   3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 
   3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, {
   3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7467956828758698`*^9, 
   3.746795686091745*^9}, {3.7468041304980903`*^9, 3.7468041309100285`*^9}, {
   3.746804200318131*^9, 3.746804240053707*^9}, {3.74680432554387*^9, 
   3.746804336909229*^9}, {3.7468050801419106`*^9, 3.746805100373829*^9}, {
   3.7468397665571055`*^9, 3.746839802623133*^9}, {3.74684113959402*^9, 
   3.7468412441025996`*^9}, {3.747486297838811*^9, 3.747486297838811*^9}, {
   3.748974368374832*^9, 3.748974387624366*^9}, {3.748974800366748*^9, 
   3.7489748283377237`*^9}, {3.748975031260829*^9, 3.74897519200307*^9}, {
   3.748975280187872*^9, 3.74897528043862*^9}, {3.7489753380030317`*^9, 
   3.748975384519353*^9}, {3.748976024242681*^9, 3.7489760469667788`*^9}, {
   3.7494040633960037`*^9, 3.749404077803393*^9}, {3.749404320307985*^9, 
   3.7494045104833603`*^9}, {3.7494045512989826`*^9, 
   3.7494046042504616`*^9}, {3.74940530435376*^9, 3.7494053059139447`*^9}, {
   3.749405604571086*^9, 3.749405604571086*^9}, {3.7494943882764225`*^9, 
   3.7494944150354404`*^9}, {3.7494947866684303`*^9, 
   3.7494948216349545`*^9}, {3.74949505067566*^9, 3.7494952206277533`*^9}, {
   3.7494952557152133`*^9, 3.7494953135143533`*^9}, {3.749496326709059*^9, 
   3.749496416937021*^9}, {3.7494964628098392`*^9, 3.7494965362355027`*^9}, {
   3.7494966228902216`*^9, 3.7494966316281075`*^9}, {3.749497725971077*^9, 
   3.749497728642847*^9}},ExpressionUUID->"9231d280-ccb8-4827-87af-\
d895c7626b31"],

Cell["Apparently z[14,1,mu] are arbitrary, set to zero", "Text",
 CellChangeTimes->{{3.7494984671849775`*^9, 
  3.749498483144394*^9}},ExpressionUUID->"5f07bf32-4a06-40cf-9c76-\
462daaa97fee"],

Cell[BoxData[
 RowBox[{
  RowBox[{"BChoice", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"z", "[", 
       RowBox[{"14", ",", "1", ",", "mu_"}], "]"}], "\[Rule]", " ", "0"}], 
     ",", " ", 
     RowBox[{
      RowBox[{"z", "[", 
       RowBox[{"14", ",", "3", ",", "mu_"}], "]"}], "\[Rule]", "0"}]}], 
    "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7494985877718816`*^9, 3.749498612280799*^9}},
 CellLabel->
  "In[168]:=",ExpressionUUID->"8689fa56-2900-4ed2-ab19-df901b31643c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DeleteCases", "[", 
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Z", "[", 
       RowBox[{"LocalFieldNumber", ",", "nn"}], "]"}], "==", 
      RowBox[{"PrintSigmaProduct", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"ZGen", "[", 
              RowBox[{"LocalFieldNumber", ",", "nn"}], "]"}], "[", 
             RowBox[{"ii", ",", "jj"}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"jj", ",", "1", ",", "2"}], "}"}]}], "]"}], "/.", 
          RowBox[{"ZSolutions", "[", "LocalFieldNumber", "]"}]}], "/.", 
         "ThisOneLooksGood"}], "/.", "BChoice"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"nn", ",", "1", ",", "NumZCharges"}], "}"}]}], "]"}], ",", 
   RowBox[{
    RowBox[{"Z", "[", 
     RowBox[{"_", ",", "_"}], "]"}], "\[Equal]", "0"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7494822949220448`*^9, 3.7494823511478577`*^9}, {
   3.7494823858218775`*^9, 3.7494823877980165`*^9}, {3.7494824283410683`*^9, 
   3.7494824525643225`*^9}, {3.749482667989807*^9, 3.749482671509657*^9}, {
   3.749482703172926*^9, 3.7494827189481516`*^9}, {3.7494827656916285`*^9, 
   3.7494827754041166`*^9}, {3.749482825395954*^9, 3.7494828255808463`*^9}, {
   3.7494830210856953`*^9, 3.749483068325922*^9}, {3.7494831352932143`*^9, 
   3.7494831386363173`*^9}, {3.7494831726363764`*^9, 3.749483186323599*^9}, 
   3.7494864595961637`*^9, {3.7494912199550743`*^9, 3.749491220034889*^9}, {
   3.749492188306588*^9, 3.7494921935066113`*^9}, {3.749498617379153*^9, 
   3.749498618721362*^9}},
 CellLabel->
  "In[169]:=",ExpressionUUID->"49386df4-9ccf-45e6-8a8a-d7cd3a3db71f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"Z", "[", 
     RowBox[{"14", ",", "4"}], "]"}], "\[Equal]", 
    RowBox[{"-", 
     FractionBox["\<\"I\"\>", "4"]}]}], ",", 
   RowBox[{
    RowBox[{"Z", "[", 
     RowBox[{"14", ",", "5"}], "]"}], "\[Equal]", 
    RowBox[{"-", 
     FractionBox["\<\"I\"\>", "4"]}]}], ",", 
   RowBox[{
    RowBox[{"Z", "[", 
     RowBox[{"14", ",", "6"}], "]"}], "\[Equal]", 
    FractionBox[
     SubscriptBox["\[Sigma]", "3"], "4"]}], ",", 
   RowBox[{
    RowBox[{"Z", "[", 
     RowBox[{"14", ",", "7"}], "]"}], "\[Equal]", 
    FractionBox[
     SubscriptBox["\[Sigma]", "1"], "4"]}], ",", 
   RowBox[{
    RowBox[{"Z", "[", 
     RowBox[{"14", ",", "10"}], "]"}], "\[Equal]", 
    FractionBox[
     RowBox[{"\[ImaginaryI]", " ", 
      SubscriptBox["\[Sigma]", "2"]}], "2"]}], ",", 
   RowBox[{
    RowBox[{"Z", "[", 
     RowBox[{"14", ",", "12"}], "]"}], "\[Equal]", 
    FractionBox[
     RowBox[{"\[ImaginaryI]", " ", 
      SubscriptBox["\[Sigma]", "2"]}], "2"]}], ",", 
   RowBox[{
    RowBox[{"Z", "[", 
     RowBox[{"14", ",", "13"}], "]"}], "\[Equal]", 
    RowBox[{"-", "\<\"I\"\>"}]}], ",", 
   RowBox[{
    RowBox[{"Z", "[", 
     RowBox[{"14", ",", "14"}], "]"}], "\[Equal]", 
    RowBox[{"-", "\<\"I\"\>"}]}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.7494822967584114`*^9, {3.7494823516392856`*^9, 3.749482388711256*^9}, 
   3.7494824654614663`*^9, 3.749482837546488*^9, {3.7494829730196037`*^9, 
   3.7494829962450185`*^9}, 3.749483098282524*^9, {3.7494831891221447`*^9, 
   3.7494832071037216`*^9}, 3.749486466848751*^9, 3.7494900270105543`*^9, 
   3.7494930181132135`*^9, 3.7494937173213744`*^9, 3.749493853167077*^9, 
   3.749493962980129*^9, 3.7494979688433657`*^9, 3.7494981905672655`*^9, 
   3.749498344510541*^9, 3.7494986281129436`*^9, 3.7494986650759974`*^9, 
   3.7494995678947835`*^9, 3.7494997456762767`*^9, 3.749500024828462*^9, 
   3.749557163394376*^9, 3.74956011700788*^9, 3.749841892264759*^9, 
   3.7498580738422956`*^9, 3.7604715533719425`*^9},
 CellLabel->
  "Out[169]=",ExpressionUUID->"3752f40b-d461-4a61-b6d2-d21e5cad9b41"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{"LocalFieldNumber", ",", "NumZCharges"}], "]"}]], "Input",
 CellChangeTimes->{{3.747496499638111*^9, 3.7474965053367357`*^9}, 
   3.7494912134588275`*^9, {3.7494922309540925`*^9, 3.7494922358260307`*^9}},
 CellLabel->
  "In[170]:=",ExpressionUUID->"9034ed2a-74a8-4134-8d9d-4733351a141e"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Double check that no solution has vanishing central charges, there is no \
solution even without invoking BosonSolutions for the tilde-tilde cases.\
\>", "Subsection",
 CellChangeTimes->{{3.749499582680813*^9, 3.749499591960368*^9}, {
  3.7495018430964108`*^9, 
  3.749501861087986*^9}},ExpressionUUID->"ae99dfdf-1bd5-4692-9d66-\
d7f09715f864"],

Cell[CellGroupData[{

Cell[BoxData[{"tt1", "\[IndentingNewLine]", "tt2"}], "Input",
 CellChangeTimes->{{3.7494995936705832`*^9, 3.749499598696823*^9}},
 CellLabel->
  "In[171]:=",ExpressionUUID->"7ab3ae76-c9d1-4bf0-99b7-c5bf0df34d82"],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{3.7494995990316677`*^9, 3.749499745701078*^9, 
  3.7495000248507824`*^9, 3.749557163415806*^9, 3.749560117040372*^9, 
  3.7498418922886305`*^9, 3.749858074016149*^9, 3.7604715534020753`*^9},
 CellLabel->
  "Out[171]=",ExpressionUUID->"42a322af-efb5-4851-a17a-b542d33eda57"],

Cell[BoxData["2"], "Output",
 CellChangeTimes->{3.7494995990316677`*^9, 3.749499745701078*^9, 
  3.7495000248507824`*^9, 3.749557163415806*^9, 3.749560117040372*^9, 
  3.7498418922886305`*^9, 3.749858074016149*^9, 3.7604715534020753`*^9},
 CellLabel->
  "Out[172]=",ExpressionUUID->"94dc1cc4-8b4d-431a-8f45-ed4925d78747"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"ScalarNumbersList", "[", 
    RowBox[{"tt1", ",", "tt2"}], "]"}], " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "8", ",", "9", ",", 
     "10", ",", "11", ",", "12"}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7494996044156857`*^9, 3.7494996096654143`*^9}, {
  3.749499752601672*^9, 3.7494997606247*^9}, {3.7495004612817297`*^9, 
  3.7495004637766423`*^9}, {3.749500498240838*^9, 3.749500502056571*^9}},
 CellLabel->
  "In[173]:=",ExpressionUUID->"a0369cd7-a8e4-494a-b3ee-c86e8f5dceae"],

Cell[BoxData[
 RowBox[{
  RowBox[{"ScalarCentralChargeList", " ", "=", " ", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"CentralChargeList", "[", 
       RowBox[{
        RowBox[{"ScalarNumbersList", "[", 
         RowBox[{"tt1", ",", "tt2"}], "]"}], "[", 
        RowBox[{"[", "Index", "]"}], "]"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"Index", ",", "1", ",", 
        RowBox[{"Length", "[", 
         RowBox[{"ScalarNumbersList", "[", 
          RowBox[{"tt1", ",", "tt2"}], "]"}], "]"}]}], "}"}]}], "]"}], "//", 
    "Flatten"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7494997670807843`*^9, 3.7494998322499228`*^9}, {
  3.749500514185539*^9, 3.74950051477687*^9}, {3.749500875720764*^9, 
  3.7495008766566334`*^9}, {3.749501184696825*^9, 3.749501185296854*^9}},
 CellLabel->
  "In[174]:=",ExpressionUUID->"c1084226-692d-4553-80ad-2302ad2d586f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"VectorCentralChargeList", " ", "=", " ", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"CentralChargeList", "[", "7", "]"}], "[", 
     RowBox[{"[", "Index", "]"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"Index", ",", "1", ",", "32"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7495008919467244`*^9, 3.7495009115048113`*^9}, {
  3.74950097300953*^9, 3.749500987017169*^9}, {3.7495011270021596`*^9, 
  3.749501127536755*^9}},
 CellLabel->
  "In[175]:=",ExpressionUUID->"a5fe52bd-d9df-4146-bcb8-e53294c1ba9f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"z", "[", 
    RowBox[{"7", ",", "1", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"7", ",", "1", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"7", ",", "1", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"7", ",", "1", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"7", ",", "2", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"7", ",", "2", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"7", ",", "2", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"7", ",", "2", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"7", ",", "3", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"7", ",", "3", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"7", ",", "3", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"7", ",", "3", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"7", ",", "4", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"7", ",", "4", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"7", ",", "4", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"7", ",", "4", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"7", ",", "5", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"7", ",", "5", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"7", ",", "5", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"7", ",", "5", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"7", ",", "6", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"7", ",", "6", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"7", ",", "6", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"7", ",", "6", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"7", ",", "7", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"7", ",", "7", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"7", ",", "7", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"7", ",", "7", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"7", ",", "8", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"7", ",", "8", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"7", ",", "8", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"7", ",", "8", ",", "3"}], "]"}]}], "}"}]], "Output",
 CellChangeTimes->{3.749500989673543*^9, 3.7495011302443447`*^9, 
  3.749557163459098*^9, 3.749560117075096*^9, 3.74984189232829*^9, 
  3.749858074214467*^9, 3.760471553435054*^9},
 CellLabel->
  "Out[175]=",ExpressionUUID->"f8cc8b66-904f-46eb-9108-0076cf4206f3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TensorCentralChargeList", " ", "=", " ", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"CentralChargeList", "[", "14", "]"}], "[", 
     RowBox[{"[", "Index", "]"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"Index", ",", "1", ",", "40"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7495008919467244`*^9, 3.7495009115048113`*^9}, {
  3.74950097300953*^9, 3.749500987017169*^9}, {3.749501121721499*^9, 
  3.749501167456616*^9}},
 CellLabel->
  "In[176]:=",ExpressionUUID->"fae53cdb-506b-45ec-991b-4af79e800024"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "1", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "1", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "1", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "1", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "2", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "2", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "2", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "2", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "3", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "3", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "3", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "3", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "4", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "4", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "4", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "4", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "5", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "5", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "5", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "5", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "6", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "6", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "6", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "6", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "7", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "7", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "7", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "7", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "8", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "8", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "8", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "8", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "9", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "9", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "9", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "9", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "10", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "10", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "10", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"14", ",", "10", ",", "3"}], "]"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.749500989673543*^9, {3.7495011479139833`*^9, 3.749501168658027*^9}, 
   3.7495571634744744`*^9, 3.749560117088443*^9, 3.749841892344616*^9, 
   3.7498580743606157`*^9, 3.7604715534560432`*^9},
 CellLabel->
  "Out[176]=",ExpressionUUID->"159a0112-22b6-4373-b4c5-dcddb2d37576"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"CompleteCentralChargeList", " ", "=", " ", 
   RowBox[{"Join", "[", 
    RowBox[{
    "ScalarCentralChargeList", ",", "VectorCentralChargeList", ",", 
     "TensorCentralChargeList"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.749501196051045*^9, 3.749501246560708*^9}},
 CellLabel->
  "In[177]:=",ExpressionUUID->"3197a37a-744e-499d-bc7c-9cf41433211c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Dimensions", "[", "CompleteCentralChargeList", "]"}]], "Input",
 CellChangeTimes->{{3.7495012487067556`*^9, 3.7495012560089917`*^9}},
 CellLabel->
  "In[178]:=",ExpressionUUID->"0db9618f-b519-433b-8373-b6eb698bbb89"],

Cell[BoxData[
 RowBox[{"{", "352", "}"}]], "Output",
 CellChangeTimes->{3.749501256317669*^9, 3.749557163492876*^9, 
  3.7495601171058044`*^9, 3.749841892365982*^9, 3.749858074582103*^9, 
  3.760471553475963*^9},
 CellLabel->
  "Out[178]=",ExpressionUUID->"f1238786-ba8b-4238-9268-7e663d2a82e6"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"VanishingScalarCentralChargesEqsLHS", " ", "=", " ", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"CentralChargeList", "[", 
        RowBox[{
         RowBox[{"ScalarNumbersList", "[", 
          RowBox[{"tt1", ",", "tt2"}], "]"}], "[", 
         RowBox[{"[", "Index", "]"}], "]"}], "]"}], "/.", 
       RowBox[{"ZSolutions", "[", 
        RowBox[{
         RowBox[{"ScalarNumbersList", "[", 
          RowBox[{"tt1", ",", "tt2"}], "]"}], "[", 
         RowBox[{"[", "Index", "]"}], "]"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"Index", ",", "1", ",", 
        RowBox[{"Length", "[", 
         RowBox[{"ScalarNumbersList", "[", 
          RowBox[{"tt1", ",", "tt2"}], "]"}], "]"}]}], "}"}]}], "]"}], "//", 
    "Flatten"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7495000368387604`*^9, 3.749500180121153*^9}, {
  3.74950021267476*^9, 3.749500298184921*^9}, {3.749501316450086*^9, 
  3.749501339905049*^9}},
 CellLabel->
  "In[179]:=",ExpressionUUID->"8be1fe6e-48e9-4f27-b755-9593761cb67f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Dimensions", "[", "VanishingScalarCentralChargesEqsLHS", 
  "]"}]], "Input",
 CellChangeTimes->{{3.7495015030989146`*^9, 3.7495015129289184`*^9}},
 CellLabel->
  "In[180]:=",ExpressionUUID->"0ba31f38-e44a-4b5b-9d3b-42f4d4ba543f"],

Cell[BoxData[
 RowBox[{"{", "280", "}"}]], "Output",
 CellChangeTimes->{3.74950151389073*^9, 3.749557163516636*^9, 
  3.7495601171221724`*^9, 3.7498418923947124`*^9, 3.7498580747649727`*^9, 
  3.760471553501911*^9},
 CellLabel->
  "Out[180]=",ExpressionUUID->"7768a95b-d5ae-4f67-aa2b-401b5008d161"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"VanishingVectorCentralChargesEqsLHS", " ", "=", " ", 
   RowBox[{"VectorCentralChargeList", "/.", 
    RowBox[{"ZSolutions", "[", "7", "]"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7495013454748945`*^9, 3.7495014113520994`*^9}, 
   3.7495016285781612`*^9},
 CellLabel->
  "In[181]:=",ExpressionUUID->"ee0316f1-4ab6-49e8-a090-1e15f1159c8d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"VanishingTensorCentralChargesEqsLHS", " ", "=", " ", 
   RowBox[{"TensorCentralChargeList", "/.", 
    RowBox[{"ZSolutions", "[", "14", "]"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7495013454748945`*^9, 3.7495014414645615`*^9}, 
   3.7495016300649643`*^9},
 CellLabel->
  "In[182]:=",ExpressionUUID->"b103c706-6053-4cbd-a998-fc02a9258638"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Dimensions", "[", "VanishingVectorCentralChargesEqsLHS", 
  "]"}]], "Input",
 CellChangeTimes->{{3.749501527826674*^9, 3.749501541857976*^9}},
 CellLabel->
  "In[183]:=",ExpressionUUID->"3c03d8be-e1f0-4bdc-a578-f147b86e8963"],

Cell[BoxData[
 RowBox[{"{", "32", "}"}]], "Output",
 CellChangeTimes->{3.749501547182922*^9, 3.7495016356320086`*^9, 
  3.7495571635454006`*^9, 3.749560117144491*^9, 3.749841892436798*^9, 
  3.749858074947831*^9, 3.7604715535424767`*^9},
 CellLabel->
  "Out[183]=",ExpressionUUID->"5c902544-e561-43dd-8502-e66f22eedf03"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"VanishingCentralChargesEqsLHS", " ", "=", " ", 
   RowBox[{"Join", "[", 
    RowBox[{
    "VanishingScalarCentralChargesEqsLHS", ",", 
     "VanishingVectorCentralChargesEqsLHS", ",", 
     "VanishingTensorCentralChargesEqsLHS"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7495014505311375`*^9, 3.749501472120597*^9}},
 CellLabel->
  "In[184]:=",ExpressionUUID->"082ab632-407f-4b3e-b58d-31884159c8fa"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Dimensions", "[", "VanishingCentralChargesEqsLHS", "]"}]], "Input",
 CellChangeTimes->{{3.749500316530878*^9, 3.7495003280644183`*^9}},
 CellLabel->
  "In[185]:=",ExpressionUUID->"499a991b-1172-496a-9da1-d710c36b8fd5"],

Cell[BoxData[
 RowBox[{"{", "352", "}"}]], "Output",
 CellChangeTimes->{{3.749500321634075*^9, 3.7495003285028315`*^9}, 
   3.749501641950565*^9, 3.7495571635647464`*^9, 3.7495601171623564`*^9, 
   3.7498418924747095`*^9, 3.749858075102438*^9, 3.7604715535617266`*^9},
 CellLabel->
  "Out[185]=",ExpressionUUID->"1b44f3ed-a5a5-425b-8cbf-14efe35a6480"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"VanishingCentralChargesEqs", " ", "=", " ", 
   RowBox[{"DeleteCases", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"VanishingCentralChargesEqsLHS", "[", 
         RowBox[{"[", "Index", "]"}], "]"}], " ", "\[Equal]", "0"}], ",", 
       RowBox[{"{", 
        RowBox[{"Index", ",", "1", ",", 
         RowBox[{"Length", "[", "VanishingCentralChargesEqsLHS", "]"}]}], 
        "}"}]}], "]"}], ",", "True"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.749500255103294*^9, 3.749500258018177*^9}, {
  3.749500304066702*^9, 3.7495003790183873`*^9}, {3.7495017752571745`*^9, 
  3.7495017822649612`*^9}},
 CellLabel->
  "In[186]:=",ExpressionUUID->"ee815540-cfef-4ecd-8043-20d2b3b88850"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Dimensions", "[", "VanishingCentralChargesEqs", "]"}]], "Input",
 CellChangeTimes->{3.749500389320284*^9},
 CellLabel->
  "In[187]:=",ExpressionUUID->"ac908305-7b78-48a3-9f65-dae16065d281"],

Cell[BoxData[
 RowBox[{"{", "324", "}"}]], "Output",
 CellChangeTimes->{3.7495003896730027`*^9, 3.749501711238392*^9, 
  3.7495017859207535`*^9, 3.749557163590538*^9, 3.7495601171916103`*^9, 
  3.7498418924950457`*^9, 3.749858075283904*^9, 3.7604715535819917`*^9},
 CellLabel->
  "Out[187]=",ExpressionUUID->"e2115c64-14dc-4b92-a431-1787e5e818a4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["VanishingCentralChargesEqs"], "Input",
 CellChangeTimes->{{3.749500365422306*^9, 3.749500368977801*^9}, {
  3.7495017559536643`*^9, 3.7495017565520725`*^9}},
 CellLabel->
  "In[188]:=",ExpressionUUID->"79da5985-2368-4236-a8bd-1941b4255576"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "1", "]"}], "[", "3", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "10", "]"}], "[", "0", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "1", "]"}], "[", "2", "]"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "10", "]"}], "[", "1", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "1", "]"}], "[", "1", "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "10", "]"}], "[", "2", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "1", "]"}], "[", "0", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "10", "]"}], "[", "3", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "1", "]"}], "[", "0", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "7", "]"}], "[", "0", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "1", "]"}], "[", "1", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "7", "]"}], "[", "1", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "1", "]"}], "[", "2", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "7", "]"}], "[", "2", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "1", "]"}], "[", "3", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "7", "]"}], "[", "3", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "1", "]"}], "[", "0", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "8", "]"}], "[", "0", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "1", "]"}], "[", "1", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "8", "]"}], "[", "1", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "1", "]"}], "[", "2", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "8", "]"}], "[", "2", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "1", "]"}], "[", "3", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "8", "]"}], "[", "3", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "1", "]"}], "[", "0", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "9", "]"}], "[", "0", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "1", "]"}], "[", "1", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "9", "]"}], "[", "1", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "1", "]"}], "[", "2", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "9", "]"}], "[", "2", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "1", "]"}], "[", "3", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "9", "]"}], "[", "3", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "1", "]"}], "[", "1", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "11", "]"}], "[", "0", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "1", "]"}], "[", "0", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "11", "]"}], "[", "1", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "1", "]"}], "[", "3", "]"}]}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "11", "]"}], "[", "2", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "1", "]"}], "[", "2", "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "11", "]"}], "[", "3", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{"\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "1", "]"}], "[", "2", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "0", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"cv", "[", "1", "]"}], "[", "3", "]"}], "+", 
     RowBox[{"\[ImaginaryI]", " ", 
      RowBox[{
       RowBox[{"cv", "[", "12", "]"}], "[", "1", "]"}]}]}], "\[Equal]", "0"}],
    ",", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      RowBox[{
       RowBox[{"cv", "[", "1", "]"}], "[", "0", "]"}]}], "-", 
     RowBox[{
      RowBox[{"cv", "[", "12", "]"}], "[", "2", "]"}]}], "\[Equal]", "0"}], 
   ",", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      RowBox[{
       RowBox[{"cv", "[", "1", "]"}], "[", "1", "]"}]}], "+", 
     RowBox[{"\[ImaginaryI]", " ", 
      RowBox[{
       RowBox[{"cv", "[", "12", "]"}], "[", "3", "]"}]}]}], "\[Equal]", "0"}],
    ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "2", "]"}], "[", "3", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "10", "]"}], "[", "0", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "2", "]"}], "[", "2", "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "10", "]"}], "[", "1", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "2", "]"}], "[", "1", "]"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "10", "]"}], "[", "2", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "2", "]"}], "[", "0", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "10", "]"}], "[", "3", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "2", "]"}], "[", "0", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "7", "]"}], "[", "0", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "2", "]"}], "[", "1", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "7", "]"}], "[", "1", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "2", "]"}], "[", "2", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "7", "]"}], "[", "2", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "2", "]"}], "[", "3", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "7", "]"}], "[", "3", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "2", "]"}], "[", "0", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "8", "]"}], "[", "0", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "2", "]"}], "[", "1", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "8", "]"}], "[", "1", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "2", "]"}], "[", "2", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "8", "]"}], "[", "2", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "2", "]"}], "[", "3", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "8", "]"}], "[", "3", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "2", "]"}], "[", "0", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "9", "]"}], "[", "0", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "2", "]"}], "[", "1", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "9", "]"}], "[", "1", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "2", "]"}], "[", "2", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "9", "]"}], "[", "2", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "2", "]"}], "[", "3", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "9", "]"}], "[", "3", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "2", "]"}], "[", "1", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "11", "]"}], "[", "0", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "2", "]"}], "[", "0", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "11", "]"}], "[", "1", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "2", "]"}], "[", "3", "]"}]}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "11", "]"}], "[", "2", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "2", "]"}], "[", "2", "]"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "11", "]"}], "[", "3", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "\[ImaginaryI]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "2", "]"}], "[", "2", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "0", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      RowBox[{
       RowBox[{"cv", "[", "2", "]"}], "[", "3", "]"}]}], "+", 
     RowBox[{"\[ImaginaryI]", " ", 
      RowBox[{
       RowBox[{"cv", "[", "12", "]"}], "[", "1", "]"}]}]}], "\[Equal]", "0"}],
    ",", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"cv", "[", "2", "]"}], "[", "0", "]"}], "-", 
     RowBox[{
      RowBox[{"cv", "[", "12", "]"}], "[", "2", "]"}]}], "\[Equal]", "0"}], 
   ",", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"cv", "[", "2", "]"}], "[", "1", "]"}], "+", 
     RowBox[{"\[ImaginaryI]", " ", 
      RowBox[{
       RowBox[{"cv", "[", "12", "]"}], "[", "3", "]"}]}]}], "\[Equal]", "0"}],
    ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "3", "]"}], "[", "3", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "10", "]"}], "[", "0", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "3", "]"}], "[", "2", "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "10", "]"}], "[", "1", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "3", "]"}], "[", "1", "]"}]}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "10", "]"}], "[", "2", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "3", "]"}], "[", "0", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "10", "]"}], "[", "3", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "3", "]"}], "[", "0", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "7", "]"}], "[", "0", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "3", "]"}], "[", "1", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "7", "]"}], "[", "1", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "3", "]"}], "[", "2", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "7", "]"}], "[", "2", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "3", "]"}], "[", "3", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "7", "]"}], "[", "3", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "3", "]"}], "[", "0", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "8", "]"}], "[", "0", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "3", "]"}], "[", "1", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "8", "]"}], "[", "1", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "3", "]"}], "[", "2", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "8", "]"}], "[", "2", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "3", "]"}], "[", "3", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "8", "]"}], "[", "3", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "3", "]"}], "[", "0", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "9", "]"}], "[", "0", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "3", "]"}], "[", "1", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "9", "]"}], "[", "1", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "3", "]"}], "[", "2", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "9", "]"}], "[", "2", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "3", "]"}], "[", "3", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "9", "]"}], "[", "3", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "3", "]"}], "[", "1", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "11", "]"}], "[", "0", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "3", "]"}], "[", "0", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "11", "]"}], "[", "1", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "3", "]"}], "[", "3", "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "11", "]"}], "[", "2", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "3", "]"}], "[", "2", "]"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "11", "]"}], "[", "3", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "3", "]"}], "[", "2", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "0", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "3", "]"}], "[", "3", "]"}]}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "12", "]"}], "[", "1", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "3", "]"}], "[", "0", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "2", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "3", "]"}], "[", "1", "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "12", "]"}], "[", "3", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{"\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "3", "]"}], "[", "2", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "0", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"cv", "[", "3", "]"}], "[", "3", "]"}], "-", 
     RowBox[{"\[ImaginaryI]", " ", 
      RowBox[{
       RowBox[{"cv", "[", "12", "]"}], "[", "1", "]"}]}]}], "\[Equal]", "0"}],
    ",", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      RowBox[{
       RowBox[{"cv", "[", "3", "]"}], "[", "0", "]"}]}], "+", 
     RowBox[{
      RowBox[{"cv", "[", "12", "]"}], "[", "2", "]"}]}], "\[Equal]", "0"}], 
   ",", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      RowBox[{
       RowBox[{"cv", "[", "3", "]"}], "[", "1", "]"}]}], "-", 
     RowBox[{"\[ImaginaryI]", " ", 
      RowBox[{
       RowBox[{"cv", "[", "12", "]"}], "[", "3", "]"}]}]}], "\[Equal]", "0"}],
    ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "4", "]"}], "[", "3", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "10", "]"}], "[", "3", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "4", "]"}], "[", "2", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "10", "]"}], "[", "2", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "4", "]"}], "[", "1", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "10", "]"}], "[", "1", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "4", "]"}], "[", "0", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "10", "]"}], "[", "0", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "4", "]"}], "[", "0", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "7", "]"}], "[", "3", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "4", "]"}], "[", "1", "]"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "7", "]"}], "[", "2", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "4", "]"}], "[", "2", "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "7", "]"}], "[", "1", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "4", "]"}], "[", "3", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "7", "]"}], "[", "0", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "4", "]"}], "[", "0", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "8", "]"}], "[", "3", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "4", "]"}], "[", "1", "]"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "8", "]"}], "[", "2", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "4", "]"}], "[", "2", "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "8", "]"}], "[", "1", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "4", "]"}], "[", "3", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "8", "]"}], "[", "0", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "4", "]"}], "[", "0", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "9", "]"}], "[", "3", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "4", "]"}], "[", "1", "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "9", "]"}], "[", "2", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "4", "]"}], "[", "2", "]"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "9", "]"}], "[", "1", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "4", "]"}], "[", "3", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "9", "]"}], "[", "0", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "4", "]"}], "[", "1", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "11", "]"}], "[", "3", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "4", "]"}], "[", "0", "]"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "11", "]"}], "[", "2", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "4", "]"}], "[", "3", "]"}]}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "11", "]"}], "[", "1", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "4", "]"}], "[", "2", "]"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "11", "]"}], "[", "0", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "4", "]"}], "[", "2", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "3", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "4", "]"}], "[", "3", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "2", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "4", "]"}], "[", "0", "]"}]}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "12", "]"}], "[", "1", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "4", "]"}], "[", "1", "]"}]}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "12", "]"}], "[", "0", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "\[ImaginaryI]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "4", "]"}], "[", "2", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "3", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      RowBox[{
       RowBox[{"cv", "[", "4", "]"}], "[", "3", "]"}]}], "-", 
     RowBox[{
      RowBox[{"cv", "[", "12", "]"}], "[", "2", "]"}]}], "\[Equal]", "0"}], 
   ",", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"cv", "[", "4", "]"}], "[", "0", "]"}], "+", 
     RowBox[{"\[ImaginaryI]", " ", 
      RowBox[{
       RowBox[{"cv", "[", "12", "]"}], "[", "1", "]"}]}]}], "\[Equal]", "0"}],
    ",", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"cv", "[", "4", "]"}], "[", "1", "]"}], "+", 
     RowBox[{"\[ImaginaryI]", " ", 
      RowBox[{
       RowBox[{"cv", "[", "12", "]"}], "[", "0", "]"}]}]}], "\[Equal]", "0"}],
    ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "6", "]"}], "[", "3", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "10", "]"}], "[", "1", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "6", "]"}], "[", "2", "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "10", "]"}], "[", "0", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "6", "]"}], "[", "1", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "10", "]"}], "[", "3", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "6", "]"}], "[", "0", "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "10", "]"}], "[", "2", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "6", "]"}], "[", "0", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "7", "]"}], "[", "1", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "6", "]"}], "[", "1", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "7", "]"}], "[", "0", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "6", "]"}], "[", "2", "]"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "7", "]"}], "[", "3", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "6", "]"}], "[", "3", "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "7", "]"}], "[", "2", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "6", "]"}], "[", "0", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "8", "]"}], "[", "1", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "6", "]"}], "[", "1", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "8", "]"}], "[", "0", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "6", "]"}], "[", "2", "]"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "8", "]"}], "[", "3", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "6", "]"}], "[", "3", "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "8", "]"}], "[", "2", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "6", "]"}], "[", "0", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "9", "]"}], "[", "1", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "6", "]"}], "[", "1", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "9", "]"}], "[", "0", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "6", "]"}], "[", "2", "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "9", "]"}], "[", "3", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "6", "]"}], "[", "3", "]"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "9", "]"}], "[", "2", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "6", "]"}], "[", "1", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "11", "]"}], "[", "1", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "6", "]"}], "[", "0", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "11", "]"}], "[", "0", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "6", "]"}], "[", "3", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "11", "]"}], "[", "3", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "6", "]"}], "[", "2", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "11", "]"}], "[", "2", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "6", "]"}], "[", "2", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "1", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "6", "]"}], "[", "3", "]"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "12", "]"}], "[", "0", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "6", "]"}], "[", "0", "]"}]}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "12", "]"}], "[", "3", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "6", "]"}], "[", "1", "]"}]}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "2", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "\[ImaginaryI]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "6", "]"}], "[", "2", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "1", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      RowBox[{
       RowBox[{"cv", "[", "6", "]"}], "[", "3", "]"}]}], "+", 
     RowBox[{"\[ImaginaryI]", " ", 
      RowBox[{
       RowBox[{"cv", "[", "12", "]"}], "[", "0", "]"}]}]}], "\[Equal]", "0"}],
    ",", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"cv", "[", "6", "]"}], "[", "0", "]"}], "-", 
     RowBox[{"\[ImaginaryI]", " ", 
      RowBox[{
       RowBox[{"cv", "[", "12", "]"}], "[", "3", "]"}]}]}], "\[Equal]", "0"}],
    ",", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"cv", "[", "6", "]"}], "[", "1", "]"}], "+", 
     RowBox[{
      RowBox[{"cv", "[", "12", "]"}], "[", "2", "]"}]}], "\[Equal]", "0"}], 
   ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "1", "]"}], "[", "3", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "10", "]"}], "[", "0", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "1", "]"}], "[", "2", "]"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "10", "]"}], "[", "1", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "1", "]"}], "[", "1", "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "10", "]"}], "[", "2", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "1", "]"}], "[", "0", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "10", "]"}], "[", "3", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "2", "]"}], "[", "3", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "10", "]"}], "[", "0", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "2", "]"}], "[", "2", "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "10", "]"}], "[", "1", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "2", "]"}], "[", "1", "]"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "10", "]"}], "[", "2", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "2", "]"}], "[", "0", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "10", "]"}], "[", "3", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "3", "]"}], "[", "3", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "10", "]"}], "[", "0", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "3", "]"}], "[", "2", "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "10", "]"}], "[", "1", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "3", "]"}], "[", "1", "]"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "10", "]"}], "[", "2", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "3", "]"}], "[", "0", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "10", "]"}], "[", "3", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "4", "]"}], "[", "3", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "10", "]"}], "[", "3", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "4", "]"}], "[", "2", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "10", "]"}], "[", "2", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "4", "]"}], "[", "1", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "10", "]"}], "[", "1", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "4", "]"}], "[", "0", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "10", "]"}], "[", "0", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "6", "]"}], "[", "3", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "10", "]"}], "[", "1", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "6", "]"}], "[", "2", "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "10", "]"}], "[", "0", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "6", "]"}], "[", "1", "]"}]}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "10", "]"}], "[", "3", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "6", "]"}], "[", "0", "]"}]}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "10", "]"}], "[", "2", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "3", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "10", "]"}], "[", "2", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "2", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "10", "]"}], "[", "3", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "1", "]"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "10", "]"}], "[", "0", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "0", "]"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "10", "]"}], "[", "1", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "1", "]"}], "[", "0", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "7", "]"}], "[", "0", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "1", "]"}], "[", "1", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "7", "]"}], "[", "1", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "1", "]"}], "[", "2", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "7", "]"}], "[", "2", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "1", "]"}], "[", "3", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "7", "]"}], "[", "3", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "2", "]"}], "[", "0", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "7", "]"}], "[", "0", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "2", "]"}], "[", "1", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "7", "]"}], "[", "1", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "2", "]"}], "[", "2", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "7", "]"}], "[", "2", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "2", "]"}], "[", "3", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "7", "]"}], "[", "3", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "3", "]"}], "[", "0", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "7", "]"}], "[", "0", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "3", "]"}], "[", "1", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "7", "]"}], "[", "1", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "3", "]"}], "[", "2", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "7", "]"}], "[", "2", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "3", "]"}], "[", "3", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "7", "]"}], "[", "3", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "4", "]"}], "[", "0", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "7", "]"}], "[", "3", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "4", "]"}], "[", "1", "]"}]}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "7", "]"}], "[", "2", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "4", "]"}], "[", "2", "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "7", "]"}], "[", "1", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "4", "]"}], "[", "3", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "7", "]"}], "[", "0", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "6", "]"}], "[", "0", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "7", "]"}], "[", "1", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "6", "]"}], "[", "1", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "7", "]"}], "[", "0", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "6", "]"}], "[", "2", "]"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "7", "]"}], "[", "3", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "6", "]"}], "[", "3", "]"}]}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "7", "]"}], "[", "2", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "0", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "7", "]"}], "[", "2", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "1", "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "7", "]"}], "[", "3", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "5", "]"}], "[", "2", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "7", "]"}], "[", "0", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "3", "]"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "7", "]"}], "[", "1", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "1", "]"}], "[", "0", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "8", "]"}], "[", "0", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "1", "]"}], "[", "1", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "8", "]"}], "[", "1", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "1", "]"}], "[", "2", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "8", "]"}], "[", "2", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "1", "]"}], "[", "3", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "8", "]"}], "[", "3", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "2", "]"}], "[", "0", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "8", "]"}], "[", "0", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "2", "]"}], "[", "1", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "8", "]"}], "[", "1", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "2", "]"}], "[", "2", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "8", "]"}], "[", "2", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "2", "]"}], "[", "3", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "8", "]"}], "[", "3", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "3", "]"}], "[", "0", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "8", "]"}], "[", "0", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "3", "]"}], "[", "1", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "8", "]"}], "[", "1", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "3", "]"}], "[", "2", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "8", "]"}], "[", "2", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "3", "]"}], "[", "3", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "8", "]"}], "[", "3", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "4", "]"}], "[", "0", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "8", "]"}], "[", "3", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "4", "]"}], "[", "1", "]"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "8", "]"}], "[", "2", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "4", "]"}], "[", "2", "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "8", "]"}], "[", "1", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "4", "]"}], "[", "3", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "8", "]"}], "[", "0", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "6", "]"}], "[", "0", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "8", "]"}], "[", "1", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "6", "]"}], "[", "1", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "8", "]"}], "[", "0", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "6", "]"}], "[", "2", "]"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "8", "]"}], "[", "3", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "6", "]"}], "[", "3", "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "8", "]"}], "[", "2", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "\[ImaginaryI]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "0", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "8", "]"}], "[", "2", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "\[ImaginaryI]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "1", "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "8", "]"}], "[", "3", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"cv", "[", "5", "]"}], "[", "2", "]"}], "-", 
     RowBox[{
      RowBox[{"cv", "[", "8", "]"}], "[", "0", "]"}]}], "\[Equal]", "0"}], 
   ",", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "\[ImaginaryI]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "3", "]"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "8", "]"}], "[", "1", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{"\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "0", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "8", "]"}], "[", "2", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"\[ImaginaryI]", " ", 
      RowBox[{
       RowBox[{"cv", "[", "5", "]"}], "[", "1", "]"}]}], "-", 
     RowBox[{
      RowBox[{"cv", "[", "8", "]"}], "[", "3", "]"}]}], "\[Equal]", "0"}], 
   ",", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      RowBox[{
       RowBox[{"cv", "[", "5", "]"}], "[", "2", "]"}]}], "+", 
     RowBox[{
      RowBox[{"cv", "[", "8", "]"}], "[", "0", "]"}]}], "\[Equal]", "0"}], 
   ",", 
   RowBox[{
    RowBox[{"\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "3", "]"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "8", "]"}], "[", "1", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "1", "]"}], "[", "0", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "9", "]"}], "[", "0", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "1", "]"}], "[", "1", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "9", "]"}], "[", "1", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "1", "]"}], "[", "2", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "9", "]"}], "[", "2", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "1", "]"}], "[", "3", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "9", "]"}], "[", "3", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "2", "]"}], "[", "0", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "9", "]"}], "[", "0", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "2", "]"}], "[", "1", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "9", "]"}], "[", "1", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "2", "]"}], "[", "2", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "9", "]"}], "[", "2", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "2", "]"}], "[", "3", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "9", "]"}], "[", "3", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "3", "]"}], "[", "0", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "9", "]"}], "[", "0", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "3", "]"}], "[", "1", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "9", "]"}], "[", "1", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "3", "]"}], "[", "2", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "9", "]"}], "[", "2", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "3", "]"}], "[", "3", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "9", "]"}], "[", "3", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "4", "]"}], "[", "0", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "9", "]"}], "[", "3", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "4", "]"}], "[", "1", "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "9", "]"}], "[", "2", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "4", "]"}], "[", "2", "]"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "9", "]"}], "[", "1", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "4", "]"}], "[", "3", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "9", "]"}], "[", "0", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "6", "]"}], "[", "0", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "9", "]"}], "[", "1", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "6", "]"}], "[", "1", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "9", "]"}], "[", "0", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "6", "]"}], "[", "2", "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "9", "]"}], "[", "3", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "6", "]"}], "[", "3", "]"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "9", "]"}], "[", "2", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{"\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "0", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "9", "]"}], "[", "2", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{"\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "1", "]"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "9", "]"}], "[", "3", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      RowBox[{
       RowBox[{"cv", "[", "5", "]"}], "[", "2", "]"}]}], "-", 
     RowBox[{
      RowBox[{"cv", "[", "9", "]"}], "[", "0", "]"}]}], "\[Equal]", "0"}], 
   ",", 
   RowBox[{
    RowBox[{"\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "3", "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "9", "]"}], "[", "1", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "\[ImaginaryI]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "0", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "9", "]"}], "[", "2", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], " ", 
      RowBox[{
       RowBox[{"cv", "[", "5", "]"}], "[", "1", "]"}]}], "-", 
     RowBox[{
      RowBox[{"cv", "[", "9", "]"}], "[", "3", "]"}]}], "\[Equal]", "0"}], 
   ",", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"cv", "[", "5", "]"}], "[", "2", "]"}], "+", 
     RowBox[{
      RowBox[{"cv", "[", "9", "]"}], "[", "0", "]"}]}], "\[Equal]", "0"}], 
   ",", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "\[ImaginaryI]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "3", "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "9", "]"}], "[", "1", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "1", "]"}], "[", "1", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "11", "]"}], "[", "0", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "1", "]"}], "[", "0", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "11", "]"}], "[", "1", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "1", "]"}], "[", "3", "]"}]}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "11", "]"}], "[", "2", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "1", "]"}], "[", "2", "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "11", "]"}], "[", "3", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "2", "]"}], "[", "1", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "11", "]"}], "[", "0", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "2", "]"}], "[", "0", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "11", "]"}], "[", "1", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "2", "]"}], "[", "3", "]"}]}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "11", "]"}], "[", "2", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "2", "]"}], "[", "2", "]"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "11", "]"}], "[", "3", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "3", "]"}], "[", "1", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "11", "]"}], "[", "0", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "3", "]"}], "[", "0", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "11", "]"}], "[", "1", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "3", "]"}], "[", "3", "]"}]}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "11", "]"}], "[", "2", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "3", "]"}], "[", "2", "]"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "11", "]"}], "[", "3", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "4", "]"}], "[", "1", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "11", "]"}], "[", "3", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "4", "]"}], "[", "0", "]"}]}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "11", "]"}], "[", "2", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "4", "]"}], "[", "3", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "11", "]"}], "[", "1", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "4", "]"}], "[", "2", "]"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "11", "]"}], "[", "0", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "6", "]"}], "[", "1", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "11", "]"}], "[", "1", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "6", "]"}], "[", "0", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "11", "]"}], "[", "0", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "6", "]"}], "[", "3", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "11", "]"}], "[", "3", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "6", "]"}], "[", "2", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "11", "]"}], "[", "2", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "1", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "11", "]"}], "[", "2", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "0", "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "11", "]"}], "[", "3", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "3", "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "11", "]"}], "[", "0", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "5", "]"}], "[", "2", "]"}]}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "11", "]"}], "[", "1", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "3", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "10", "]"}], "[", "2", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "4"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "5", "]"}], "[", "2", "]"}]}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "10", "]"}], "[", "3", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "1", "]"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "10", "]"}], "[", "0", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "0", "]"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "10", "]"}], "[", "1", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "4"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "0", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "7", "]"}], "[", "2", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "4"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "1", "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "7", "]"}], "[", "3", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "4"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "2", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "7", "]"}], "[", "0", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "4"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "3", "]"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "7", "]"}], "[", "1", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "0", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "8", "]"}], "[", "2", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "1", "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "8", "]"}], "[", "3", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "5", "]"}], "[", "2", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "8", "]"}], "[", "0", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "3", "]"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "8", "]"}], "[", "1", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "0", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "9", "]"}], "[", "2", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "1", "]"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "9", "]"}], "[", "3", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "2", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "9", "]"}], "[", "0", "]"}]}], ")"}]}], "\[Equal]",
     "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "3", "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "9", "]"}], "[", "1", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "1", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "11", "]"}], "[", "2", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "0", "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "11", "]"}], "[", "3", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "4"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "3", "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "11", "]"}], "[", "0", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "4"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "2", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "11", "]"}], "[", "1", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"cv", "[", "5", "]"}], "[", "2", "]"}], "+", 
     RowBox[{
      RowBox[{"cv", "[", "12", "]"}], "[", "2", "]"}]}], "\[Equal]", "0"}], 
   ",", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "\[ImaginaryI]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "3", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "3", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{"\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "0", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "0", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{"\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "1", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "1", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"cv", "[", "5", "]"}], "[", "2", "]"}], "-", 
     RowBox[{
      RowBox[{"cv", "[", "12", "]"}], "[", "2", "]"}]}], "\[Equal]", "0"}], 
   ",", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "\[ImaginaryI]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "3", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "3", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{"\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "0", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "0", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{"\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "1", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "1", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"14", ",", "1", ",", "0"}], "]"}], "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"14", ",", "1", ",", "1"}], "]"}], "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"14", ",", "1", ",", "2"}], "]"}], "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"14", ",", "1", ",", "3"}], "]"}], "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      RowBox[{"z", "[", 
       RowBox[{"14", ",", "1", ",", "0"}], "]"}]}], "+", 
     RowBox[{
      FractionBox["1", "8"], " ", "\[ImaginaryI]", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"cv", "[", "1", "]"}], "[", "2", "]"}], "+", 
        RowBox[{
         RowBox[{"cv", "[", "12", "]"}], "[", "0", "]"}]}], ")"}]}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      RowBox[{"z", "[", 
       RowBox[{"14", ",", "1", ",", "1"}], "]"}]}], "+", 
     RowBox[{
      FractionBox["1", "8"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"cv", "[", "1", "]"}], "[", "3", "]"}], "+", 
        RowBox[{"\[ImaginaryI]", " ", 
         RowBox[{
          RowBox[{"cv", "[", "12", "]"}], "[", "1", "]"}]}]}], ")"}]}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      RowBox[{"z", "[", 
       RowBox[{"14", ",", "1", ",", "2"}], "]"}]}], "+", 
     RowBox[{
      FractionBox["1", "8"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{
          RowBox[{"cv", "[", "1", "]"}], "[", "0", "]"}]}], "-", 
        RowBox[{
         RowBox[{"cv", "[", "12", "]"}], "[", "2", "]"}]}], ")"}]}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      RowBox[{"z", "[", 
       RowBox[{"14", ",", "1", ",", "3"}], "]"}]}], "+", 
     RowBox[{
      FractionBox["1", "8"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{
          RowBox[{"cv", "[", "1", "]"}], "[", "1", "]"}]}], "+", 
        RowBox[{"\[ImaginaryI]", " ", 
         RowBox[{
          RowBox[{"cv", "[", "12", "]"}], "[", "3", "]"}]}]}], ")"}]}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"14", ",", "3", ",", "0"}], "]"}], "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"14", ",", "3", ",", "1"}], "]"}], "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"14", ",", "3", ",", "2"}], "]"}], "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"14", ",", "3", ",", "3"}], "]"}], "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      RowBox[{"z", "[", 
       RowBox[{"14", ",", "3", ",", "0"}], "]"}]}], "+", 
     RowBox[{
      FractionBox["1", "8"], " ", "\[ImaginaryI]", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"cv", "[", "2", "]"}], "[", "2", "]"}], "-", 
        RowBox[{
         RowBox[{"cv", "[", "12", "]"}], "[", "0", "]"}]}], ")"}]}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      RowBox[{"z", "[", 
       RowBox[{"14", ",", "3", ",", "1"}], "]"}]}], "+", 
     RowBox[{
      FractionBox["1", "8"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"cv", "[", "2", "]"}], "[", "3", "]"}], "-", 
        RowBox[{"\[ImaginaryI]", " ", 
         RowBox[{
          RowBox[{"cv", "[", "12", "]"}], "[", "1", "]"}]}]}], ")"}]}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      RowBox[{"z", "[", 
       RowBox[{"14", ",", "3", ",", "2"}], "]"}]}], "+", 
     RowBox[{
      FractionBox["1", "8"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{
          RowBox[{"cv", "[", "2", "]"}], "[", "0", "]"}]}], "+", 
        RowBox[{
         RowBox[{"cv", "[", "12", "]"}], "[", "2", "]"}]}], ")"}]}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      RowBox[{"z", "[", 
       RowBox[{"14", ",", "3", ",", "3"}], "]"}]}], "+", 
     RowBox[{
      FractionBox["1", "8"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{
          RowBox[{"cv", "[", "2", "]"}], "[", "1", "]"}]}], "-", 
        RowBox[{"\[ImaginaryI]", " ", 
         RowBox[{
          RowBox[{"cv", "[", "12", "]"}], "[", "3", "]"}]}]}], ")"}]}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "8"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "3", "]"}], "[", "2", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "0", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "8"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "3", "]"}], "[", "3", "]"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "12", "]"}], "[", "1", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "8"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "3", "]"}], "[", "0", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "2", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "8"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "3", "]"}], "[", "1", "]"}]}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "12", "]"}], "[", "3", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "8"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "4", "]"}], "[", "2", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "3", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "8"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "4", "]"}], "[", "3", "]"}]}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "2", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "8"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "4", "]"}], "[", "0", "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "12", "]"}], "[", "1", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "8"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "4", "]"}], "[", "1", "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "12", "]"}], "[", "0", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "8"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "6", "]"}], "[", "2", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "1", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "8"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "6", "]"}], "[", "3", "]"}]}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "12", "]"}], "[", "0", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "8"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "6", "]"}], "[", "0", "]"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"cv", "[", "12", "]"}], "[", "3", "]"}]}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "8"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "6", "]"}], "[", "1", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "2", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"cv", "[", "5", "]"}], "[", "2", "]"}]}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "2", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "3", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "3", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "0", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "0", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "1", "]"}], "-", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "1", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "4"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "2", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "2", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "4"]}], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "3", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "3", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "0", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "0", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}], ",", 
   RowBox[{
    RowBox[{
     FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"cv", "[", "5", "]"}], "[", "1", "]"}], "+", 
       RowBox[{
        RowBox[{"cv", "[", "12", "]"}], "[", "1", "]"}]}], ")"}]}], 
    "\[Equal]", "0"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.7495003695423737`*^9, 3.749500381924856*^9}, 
   3.749501725418787*^9, 3.749501757323721*^9, 3.7495017882973976`*^9, 
   3.749557163729418*^9, 3.749560117319084*^9, 3.749841892641921*^9, 
   3.749858075467827*^9, 3.760471553734515*^9},
 CellLabel->
  "Out[188]=",ExpressionUUID->"626abc04-da20-474e-bb87-0c15374b9172"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["cvList"], "Input",
 CellChangeTimes->{{3.7495017997233534`*^9, 3.749501800552125*^9}},
 CellLabel->
  "In[189]:=",ExpressionUUID->"092a41d6-d313-4e12-8a3b-f8e116f7265b"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"cv", "[", "1", "]"}], "[", "0", "]"}], ",", 
   RowBox[{
    RowBox[{"cv", "[", "1", "]"}], "[", "1", "]"}], ",", 
   RowBox[{
    RowBox[{"cv", "[", "1", "]"}], "[", "2", "]"}], ",", 
   RowBox[{
    RowBox[{"cv", "[", "1", "]"}], "[", "3", "]"}], ",", 
   RowBox[{
    RowBox[{"cv", "[", "2", "]"}], "[", "0", "]"}], ",", 
   RowBox[{
    RowBox[{"cv", "[", "2", "]"}], "[", "1", "]"}], ",", 
   RowBox[{
    RowBox[{"cv", "[", "2", "]"}], "[", "2", "]"}], ",", 
   RowBox[{
    RowBox[{"cv", "[", "2", "]"}], "[", "3", "]"}], ",", 
   RowBox[{
    RowBox[{"cv", "[", "3", "]"}], "[", "0", "]"}], ",", 
   RowBox[{
    RowBox[{"cv", "[", "3", "]"}], "[", "1", "]"}], ",", 
   RowBox[{
    RowBox[{"cv", "[", "3", "]"}], "[", "2", "]"}], ",", 
   RowBox[{
    RowBox[{"cv", "[", "3", "]"}], "[", "3", "]"}], ",", 
   RowBox[{
    RowBox[{"cv", "[", "4", "]"}], "[", "0", "]"}], ",", 
   RowBox[{
    RowBox[{"cv", "[", "4", "]"}], "[", "1", "]"}], ",", 
   RowBox[{
    RowBox[{"cv", "[", "4", "]"}], "[", "2", "]"}], ",", 
   RowBox[{
    RowBox[{"cv", "[", "4", "]"}], "[", "3", "]"}], ",", 
   RowBox[{
    RowBox[{"cv", "[", "5", "]"}], "[", "0", "]"}], ",", 
   RowBox[{
    RowBox[{"cv", "[", "5", "]"}], "[", "1", "]"}], ",", 
   RowBox[{
    RowBox[{"cv", "[", "5", "]"}], "[", "2", "]"}], ",", 
   RowBox[{
    RowBox[{"cv", "[", "5", "]"}], "[", "3", "]"}], ",", 
   RowBox[{
    RowBox[{"cv", "[", "6", "]"}], "[", "0", "]"}], ",", 
   RowBox[{
    RowBox[{"cv", "[", "6", "]"}], "[", "1", "]"}], ",", 
   RowBox[{
    RowBox[{"cv", "[", "6", "]"}], "[", "2", "]"}], ",", 
   RowBox[{
    RowBox[{"cv", "[", "6", "]"}], "[", "3", "]"}], ",", 
   RowBox[{
    RowBox[{"cv", "[", "7", "]"}], "[", "0", "]"}], ",", 
   RowBox[{
    RowBox[{"cv", "[", "7", "]"}], "[", "1", "]"}], ",", 
   RowBox[{
    RowBox[{"cv", "[", "7", "]"}], "[", "2", "]"}], ",", 
   RowBox[{
    RowBox[{"cv", "[", "7", "]"}], "[", "3", "]"}], ",", 
   RowBox[{
    RowBox[{"cv", "[", "8", "]"}], "[", "0", "]"}], ",", 
   RowBox[{
    RowBox[{"cv", "[", "8", "]"}], "[", "1", "]"}], ",", 
   RowBox[{
    RowBox[{"cv", "[", "8", "]"}], "[", "2", "]"}], ",", 
   RowBox[{
    RowBox[{"cv", "[", "8", "]"}], "[", "3", "]"}], ",", 
   RowBox[{
    RowBox[{"cv", "[", "9", "]"}], "[", "0", "]"}], ",", 
   RowBox[{
    RowBox[{"cv", "[", "9", "]"}], "[", "1", "]"}], ",", 
   RowBox[{
    RowBox[{"cv", "[", "9", "]"}], "[", "2", "]"}], ",", 
   RowBox[{
    RowBox[{"cv", "[", "9", "]"}], "[", "3", "]"}], ",", 
   RowBox[{
    RowBox[{"cv", "[", "10", "]"}], "[", "0", "]"}], ",", 
   RowBox[{
    RowBox[{"cv", "[", "10", "]"}], "[", "1", "]"}], ",", 
   RowBox[{
    RowBox[{"cv", "[", "10", "]"}], "[", "2", "]"}], ",", 
   RowBox[{
    RowBox[{"cv", "[", "10", "]"}], "[", "3", "]"}], ",", 
   RowBox[{
    RowBox[{"cv", "[", "11", "]"}], "[", "0", "]"}], ",", 
   RowBox[{
    RowBox[{"cv", "[", "11", "]"}], "[", "1", "]"}], ",", 
   RowBox[{
    RowBox[{"cv", "[", "11", "]"}], "[", "2", "]"}], ",", 
   RowBox[{
    RowBox[{"cv", "[", "11", "]"}], "[", "3", "]"}], ",", 
   RowBox[{
    RowBox[{"cv", "[", "12", "]"}], "[", "0", "]"}], ",", 
   RowBox[{
    RowBox[{"cv", "[", "12", "]"}], "[", "1", "]"}], ",", 
   RowBox[{
    RowBox[{"cv", "[", "12", "]"}], "[", "2", "]"}], ",", 
   RowBox[{
    RowBox[{"cv", "[", "12", "]"}], "[", "3", "]"}]}], "}"}]], "Output",
 CellChangeTimes->{3.749501800852598*^9, 3.7495571637587175`*^9, 
  3.7495601173423953`*^9, 3.7498418926607904`*^9, 3.7498580756325912`*^9, 
  3.760471553752989*^9},
 CellLabel->
  "Out[189]=",ExpressionUUID->"d9ea207d-7eb2-4ed0-9070-6c528bfbdc30"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{"VanishingCentralChargesEqs", ",", "cvList"}], "]"}]], "Input",
 CellChangeTimes->{{3.749500393111449*^9, 3.749500407808288*^9}, {
  3.7495018222500567`*^9, 3.749501833592347*^9}},
 CellLabel->
  "In[190]:=",ExpressionUUID->"c4b47468-8d02-4dc8-9050-a09786cecdde"],

Cell[BoxData[
 RowBox[{"{", "}"}]], "Output",
 CellChangeTimes->{
  3.749501730567626*^9, {3.749501823590913*^9, 3.74950183516313*^9}, 
   3.7495571644883394`*^9, 3.7495601180612164`*^9, 3.749841893467264*^9, 
   3.749858077116477*^9, 3.7604715545162363`*^9},
 CellLabel->
  "Out[190]=",ExpressionUUID->"dbe9109f-33fc-4938-bb45-90d2103f3617"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[{
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       SubsuperscriptBox["D", "a", "i"], ",", 
       SubsuperscriptBox[
        OverscriptBox["D", "~"], "b", "j"]}], "}"}], 
     SubsuperscriptBox["\[CapitalPsi]", "c", "k"]}], "=", " ", 
    RowBox[{
     RowBox[{"2", " ", "i", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "1"}], "]"}], "ijkl"], 
      SubscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Mu]"], 
       SubsuperscriptBox[
        OverscriptBox["\[CapitalPsi]", "~"], "c", "l"]}]}], "+", 
     RowBox[{"2", " ", "i", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "2"}], "]"}], "ijkl"], 
      SubscriptBox[
       RowBox[{"(", 
        RowBox[{"[", 
         RowBox[{
          SuperscriptBox["\[Gamma]", "\[Mu]"], ",", 
          SuperscriptBox["\[Gamma]", "\[Nu]"]}], "]"}], ")"}], "ab"], 
      SuperscriptBox[
       SubscriptBox[
        RowBox[{"(", 
         SubscriptBox["\[Gamma]", "\[Nu]"], ")"}], "c"], "d"], 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Mu]"], 
       SubsuperscriptBox[
        OverscriptBox["\[CapitalPsi]", "~"], "d", "l"]}]}]}]}], 
   TraditionalForm], "\[IndentingNewLine]", 
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"+", "2"}], " ", "i", " ", 
     SuperscriptBox[
      RowBox[{"Z", "[", 
       RowBox[{"lfn", ",", "3"}], "]"}], "ijkl"], 
     SubscriptBox[
      RowBox[{"(", 
       SubscriptBox["\[Gamma]", "\[Nu]"], ")"}], "ab"], 
     SuperscriptBox[
      SubscriptBox[
       RowBox[{"(", 
        RowBox[{"[", 
         RowBox[{
          SuperscriptBox["\[Gamma]", "\[Nu]"], ",", 
          SuperscriptBox["\[Gamma]", "\[Mu]"]}], "]"}], ")"}], "c"], "d"], 
     RowBox[{
      SubscriptBox["\[PartialD]", "\[Mu]"], 
      SubsuperscriptBox[
       OverscriptBox["\[CapitalPsi]", "~"], "d", "l"]}]}], "+", 
    RowBox[{"2", " ", "i", " ", 
     SuperscriptBox[
      RowBox[{"Z", "[", 
       RowBox[{"lfn", ",", "4"}], "]"}], "ijkl"], 
     SubscriptBox[
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["\[Gamma]", "5"], "[", 
        RowBox[{
         SuperscriptBox["\[Gamma]", "\[Mu]"], ",", 
         SuperscriptBox["\[Gamma]", "\[Nu]"]}], "]"}], ")"}], "ab"], 
     SuperscriptBox[
      SubscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["\[Gamma]", "5"], 
         SubscriptBox["\[Gamma]", "\[Nu]"]}], ")"}], "c"], "d"], 
     RowBox[{
      SubscriptBox["\[PartialD]", "\[Mu]"], 
      SubsuperscriptBox[
       OverscriptBox["\[CapitalPsi]", "~"], "d", "l"]}]}]}], 
   TraditionalForm], "\[IndentingNewLine]", 
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"+", "2"}], " ", "i", " ", 
     SuperscriptBox[
      RowBox[{"Z", "[", 
       RowBox[{"lfn", ",", "5"}], "]"}], "ijkl"], 
     SubscriptBox[
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["\[Gamma]", "5"], 
        SuperscriptBox["\[Gamma]", "\[Mu]"]}], ")"}], "ab"], 
     SuperscriptBox[
      SubscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Gamma]", "5"], ")"}], "c"], "d"], 
     RowBox[{
      SubscriptBox["\[PartialD]", "\[Mu]"], 
      SubsuperscriptBox[
       OverscriptBox["\[CapitalPsi]", "~"], "d", "l"]}]}], "+", 
    RowBox[{"2", " ", "i", " ", 
     SuperscriptBox[
      RowBox[{"Z", "[", 
       RowBox[{"lfn", ",", "6"}], "]"}], "ijkl"], 
     SubscriptBox[
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["\[Gamma]", "5"], 
        SubscriptBox["\[Gamma]", "\[Nu]"]}], ")"}], "ab"], 
     SuperscriptBox[
      SubscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["\[Gamma]", "5"], "[", 
         RowBox[{
          SuperscriptBox["\[Gamma]", "\[Nu]"], ",", 
          SuperscriptBox["\[Gamma]", "\[Mu]"]}], "]"}], ")"}], "c"], "d"], 
     RowBox[{
      SubscriptBox["\[PartialD]", "\[Mu]"], 
      SubsuperscriptBox[
       OverscriptBox["\[CapitalPsi]", "~"], "d", "l"]}]}]}], 
   TraditionalForm], "\[IndentingNewLine]", 
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"+", "2"}], " ", "i", " ", 
     SuperscriptBox[
      RowBox[{"Z", "[", 
       RowBox[{"lfn", ",", "7"}], "]"}], "ijkl"], 
     SubscriptBox[
      RowBox[{"(", 
       SuperscriptBox["\[Gamma]", "5"], ")"}], "ab"], 
     SuperscriptBox[
      SubscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["\[Gamma]", "5"], 
         SuperscriptBox["\[Gamma]", "\[Mu]"]}], ")"}], "c"], "d"], 
     RowBox[{
      SubscriptBox["\[PartialD]", "\[Mu]"], 
      SubsuperscriptBox[
       OverscriptBox["\[CapitalPsi]", "~"], "d", "l"]}]}], "+", 
    RowBox[{"2", " ", "i", " ", 
     SuperscriptBox[
      RowBox[{"Z", "[", 
       RowBox[{"lfn", ",", "8"}], "]"}], "ijkl"], 
     SuperscriptBox[
      SubscriptBox[
       RowBox[{
        SubscriptBox["C", "ab"], "(", 
        SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "c"], "d"], 
     RowBox[{
      SubscriptBox["\[PartialD]", "\[Mu]"], 
      SubsuperscriptBox[
       OverscriptBox["\[CapitalPsi]", "~"], "d", "l"]}]}]}], 
   TraditionalForm]}], "None",ExpressionUUID->
  "0df7092d-0c88-4e6c-9734-7ff76df34a1f"],
 "\nFieldNumber = 6 "
}], "Subsection",
 CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, {
   3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 
   3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 
   3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, {
   3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7467956828758698`*^9, 
   3.7467957093182344`*^9}, {3.747486233439009*^9, 3.747486233439459*^9}, {
   3.748974362876294*^9, 3.748974380943577*^9}, {3.7495018761601076`*^9, 
   3.7495018780955925`*^9}, {3.749557195862426*^9, 3.749557197702502*^9}, {
   3.749557347016863*^9, 3.7495573795993056`*^9}, {3.749557461871316*^9, 
   3.749557461871316*^9}, {3.749557892705888*^9, 3.7495579076795397`*^9}, {
   3.749560349934149*^9, 3.749560351302229*^9}, {3.7495604389616103`*^9, 
   3.74956047235077*^9}, {3.7495605531165395`*^9, 3.749560603498867*^9}, {
   3.7495607758623023`*^9, 3.749560779952386*^9}, {3.7495611067358856`*^9, 
   3.749561117913103*^9}, {3.7495616076057587`*^9, 3.7495617278154073`*^9}, {
   3.749561809377316*^9, 3.749561830871812*^9}, {3.7495733110210323`*^9, 
   3.749573343964429*^9}, {3.7498567634245367`*^9, 
   3.749856801056582*^9}},ExpressionUUID->"d86ecd48-caa5-4b88-bd38-\
64026170c455"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalFieldNumber", " ", "=", " ", "6"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"NumZCharges", " ", "=", " ", "8"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"CentralChargeList", "[", "LocalFieldNumber", "]"}], " ", "=", " ", 
  
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"z", "[", 
       RowBox[{"LocalFieldNumber", ",", "FieldNumber"}], "]"}], "[", 
      RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"FieldNumber", ",", "1", ",", "NumZCharges"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"ll", ",", "1", ",", "2"}], "}"}]}], "]"}], "//", 
   "Flatten"}]}]}], "Input",
 CellChangeTimes->{{3.748966071586817*^9, 3.748966075509182*^9}, {
   3.748974654683647*^9, 3.748974655525069*^9}, {3.7495572897840953`*^9, 
   3.7495572947268596`*^9}, 3.749557340926882*^9, 3.7495603155271015`*^9, {
   3.749561792511219*^9, 3.7495617926296015`*^9}, 3.7495729698454585`*^9, {
   3.749573048932381*^9, 3.749573087972364*^9}},
 CellLabel->
  "In[191]:=",ExpressionUUID->"18fa6139-b39d-4e6a-8e40-4f33df1d9ee6"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "1"}], "]"}], "[", 
    RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "1"}], "]"}], "[", 
    RowBox[{"1", ",", "1", ",", "1", ",", "2"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "1"}], "]"}], "[", 
    RowBox[{"1", ",", "1", ",", "2", ",", "1"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "1"}], "]"}], "[", 
    RowBox[{"1", ",", "1", ",", "2", ",", "2"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "1"}], "]"}], "[", 
    RowBox[{"1", ",", "2", ",", "1", ",", "1"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "1"}], "]"}], "[", 
    RowBox[{"1", ",", "2", ",", "1", ",", "2"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "1"}], "]"}], "[", 
    RowBox[{"1", ",", "2", ",", "2", ",", "1"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "1"}], "]"}], "[", 
    RowBox[{"1", ",", "2", ",", "2", ",", "2"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "1"}], "]"}], "[", 
    RowBox[{"2", ",", "1", ",", "1", ",", "1"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "1"}], "]"}], "[", 
    RowBox[{"2", ",", "1", ",", "1", ",", "2"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "1"}], "]"}], "[", 
    RowBox[{"2", ",", "1", ",", "2", ",", "1"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "1"}], "]"}], "[", 
    RowBox[{"2", ",", "1", ",", "2", ",", "2"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "1"}], "]"}], "[", 
    RowBox[{"2", ",", "2", ",", "1", ",", "1"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "1"}], "]"}], "[", 
    RowBox[{"2", ",", "2", ",", "1", ",", "2"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "1"}], "]"}], "[", 
    RowBox[{"2", ",", "2", ",", "2", ",", "1"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "1"}], "]"}], "[", 
    RowBox[{"2", ",", "2", ",", "2", ",", "2"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "2"}], "]"}], "[", 
    RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "2"}], "]"}], "[", 
    RowBox[{"1", ",", "1", ",", "1", ",", "2"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "2"}], "]"}], "[", 
    RowBox[{"1", ",", "1", ",", "2", ",", "1"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "2"}], "]"}], "[", 
    RowBox[{"1", ",", "1", ",", "2", ",", "2"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "2"}], "]"}], "[", 
    RowBox[{"1", ",", "2", ",", "1", ",", "1"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "2"}], "]"}], "[", 
    RowBox[{"1", ",", "2", ",", "1", ",", "2"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "2"}], "]"}], "[", 
    RowBox[{"1", ",", "2", ",", "2", ",", "1"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "2"}], "]"}], "[", 
    RowBox[{"1", ",", "2", ",", "2", ",", "2"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "2"}], "]"}], "[", 
    RowBox[{"2", ",", "1", ",", "1", ",", "1"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "2"}], "]"}], "[", 
    RowBox[{"2", ",", "1", ",", "1", ",", "2"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "2"}], "]"}], "[", 
    RowBox[{"2", ",", "1", ",", "2", ",", "1"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "2"}], "]"}], "[", 
    RowBox[{"2", ",", "1", ",", "2", ",", "2"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "2"}], "]"}], "[", 
    RowBox[{"2", ",", "2", ",", "1", ",", "1"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "2"}], "]"}], "[", 
    RowBox[{"2", ",", "2", ",", "1", ",", "2"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "2"}], "]"}], "[", 
    RowBox[{"2", ",", "2", ",", "2", ",", "1"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "2"}], "]"}], "[", 
    RowBox[{"2", ",", "2", ",", "2", ",", "2"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "3"}], "]"}], "[", 
    RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "3"}], "]"}], "[", 
    RowBox[{"1", ",", "1", ",", "1", ",", "2"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "3"}], "]"}], "[", 
    RowBox[{"1", ",", "1", ",", "2", ",", "1"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "3"}], "]"}], "[", 
    RowBox[{"1", ",", "1", ",", "2", ",", "2"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "3"}], "]"}], "[", 
    RowBox[{"1", ",", "2", ",", "1", ",", "1"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "3"}], "]"}], "[", 
    RowBox[{"1", ",", "2", ",", "1", ",", "2"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "3"}], "]"}], "[", 
    RowBox[{"1", ",", "2", ",", "2", ",", "1"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "3"}], "]"}], "[", 
    RowBox[{"1", ",", "2", ",", "2", ",", "2"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "3"}], "]"}], "[", 
    RowBox[{"2", ",", "1", ",", "1", ",", "1"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "3"}], "]"}], "[", 
    RowBox[{"2", ",", "1", ",", "1", ",", "2"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "3"}], "]"}], "[", 
    RowBox[{"2", ",", "1", ",", "2", ",", "1"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "3"}], "]"}], "[", 
    RowBox[{"2", ",", "1", ",", "2", ",", "2"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "3"}], "]"}], "[", 
    RowBox[{"2", ",", "2", ",", "1", ",", "1"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "3"}], "]"}], "[", 
    RowBox[{"2", ",", "2", ",", "1", ",", "2"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "3"}], "]"}], "[", 
    RowBox[{"2", ",", "2", ",", "2", ",", "1"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "3"}], "]"}], "[", 
    RowBox[{"2", ",", "2", ",", "2", ",", "2"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "4"}], "]"}], "[", 
    RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "4"}], "]"}], "[", 
    RowBox[{"1", ",", "1", ",", "1", ",", "2"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "4"}], "]"}], "[", 
    RowBox[{"1", ",", "1", ",", "2", ",", "1"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "4"}], "]"}], "[", 
    RowBox[{"1", ",", "1", ",", "2", ",", "2"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "4"}], "]"}], "[", 
    RowBox[{"1", ",", "2", ",", "1", ",", "1"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "4"}], "]"}], "[", 
    RowBox[{"1", ",", "2", ",", "1", ",", "2"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "4"}], "]"}], "[", 
    RowBox[{"1", ",", "2", ",", "2", ",", "1"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "4"}], "]"}], "[", 
    RowBox[{"1", ",", "2", ",", "2", ",", "2"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "4"}], "]"}], "[", 
    RowBox[{"2", ",", "1", ",", "1", ",", "1"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "4"}], "]"}], "[", 
    RowBox[{"2", ",", "1", ",", "1", ",", "2"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "4"}], "]"}], "[", 
    RowBox[{"2", ",", "1", ",", "2", ",", "1"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "4"}], "]"}], "[", 
    RowBox[{"2", ",", "1", ",", "2", ",", "2"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "4"}], "]"}], "[", 
    RowBox[{"2", ",", "2", ",", "1", ",", "1"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "4"}], "]"}], "[", 
    RowBox[{"2", ",", "2", ",", "1", ",", "2"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "4"}], "]"}], "[", 
    RowBox[{"2", ",", "2", ",", "2", ",", "1"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "4"}], "]"}], "[", 
    RowBox[{"2", ",", "2", ",", "2", ",", "2"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "5"}], "]"}], "[", 
    RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "5"}], "]"}], "[", 
    RowBox[{"1", ",", "1", ",", "1", ",", "2"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "5"}], "]"}], "[", 
    RowBox[{"1", ",", "1", ",", "2", ",", "1"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "5"}], "]"}], "[", 
    RowBox[{"1", ",", "1", ",", "2", ",", "2"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "5"}], "]"}], "[", 
    RowBox[{"1", ",", "2", ",", "1", ",", "1"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "5"}], "]"}], "[", 
    RowBox[{"1", ",", "2", ",", "1", ",", "2"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "5"}], "]"}], "[", 
    RowBox[{"1", ",", "2", ",", "2", ",", "1"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "5"}], "]"}], "[", 
    RowBox[{"1", ",", "2", ",", "2", ",", "2"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "5"}], "]"}], "[", 
    RowBox[{"2", ",", "1", ",", "1", ",", "1"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "5"}], "]"}], "[", 
    RowBox[{"2", ",", "1", ",", "1", ",", "2"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "5"}], "]"}], "[", 
    RowBox[{"2", ",", "1", ",", "2", ",", "1"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "5"}], "]"}], "[", 
    RowBox[{"2", ",", "1", ",", "2", ",", "2"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "5"}], "]"}], "[", 
    RowBox[{"2", ",", "2", ",", "1", ",", "1"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "5"}], "]"}], "[", 
    RowBox[{"2", ",", "2", ",", "1", ",", "2"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "5"}], "]"}], "[", 
    RowBox[{"2", ",", "2", ",", "2", ",", "1"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "5"}], "]"}], "[", 
    RowBox[{"2", ",", "2", ",", "2", ",", "2"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "6"}], "]"}], "[", 
    RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "6"}], "]"}], "[", 
    RowBox[{"1", ",", "1", ",", "1", ",", "2"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "6"}], "]"}], "[", 
    RowBox[{"1", ",", "1", ",", "2", ",", "1"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "6"}], "]"}], "[", 
    RowBox[{"1", ",", "1", ",", "2", ",", "2"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "6"}], "]"}], "[", 
    RowBox[{"1", ",", "2", ",", "1", ",", "1"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "6"}], "]"}], "[", 
    RowBox[{"1", ",", "2", ",", "1", ",", "2"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "6"}], "]"}], "[", 
    RowBox[{"1", ",", "2", ",", "2", ",", "1"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "6"}], "]"}], "[", 
    RowBox[{"1", ",", "2", ",", "2", ",", "2"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "6"}], "]"}], "[", 
    RowBox[{"2", ",", "1", ",", "1", ",", "1"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "6"}], "]"}], "[", 
    RowBox[{"2", ",", "1", ",", "1", ",", "2"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "6"}], "]"}], "[", 
    RowBox[{"2", ",", "1", ",", "2", ",", "1"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "6"}], "]"}], "[", 
    RowBox[{"2", ",", "1", ",", "2", ",", "2"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "6"}], "]"}], "[", 
    RowBox[{"2", ",", "2", ",", "1", ",", "1"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "6"}], "]"}], "[", 
    RowBox[{"2", ",", "2", ",", "1", ",", "2"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "6"}], "]"}], "[", 
    RowBox[{"2", ",", "2", ",", "2", ",", "1"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "6"}], "]"}], "[", 
    RowBox[{"2", ",", "2", ",", "2", ",", "2"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "7"}], "]"}], "[", 
    RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "7"}], "]"}], "[", 
    RowBox[{"1", ",", "1", ",", "1", ",", "2"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "7"}], "]"}], "[", 
    RowBox[{"1", ",", "1", ",", "2", ",", "1"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "7"}], "]"}], "[", 
    RowBox[{"1", ",", "1", ",", "2", ",", "2"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "7"}], "]"}], "[", 
    RowBox[{"1", ",", "2", ",", "1", ",", "1"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "7"}], "]"}], "[", 
    RowBox[{"1", ",", "2", ",", "1", ",", "2"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "7"}], "]"}], "[", 
    RowBox[{"1", ",", "2", ",", "2", ",", "1"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "7"}], "]"}], "[", 
    RowBox[{"1", ",", "2", ",", "2", ",", "2"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "7"}], "]"}], "[", 
    RowBox[{"2", ",", "1", ",", "1", ",", "1"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "7"}], "]"}], "[", 
    RowBox[{"2", ",", "1", ",", "1", ",", "2"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "7"}], "]"}], "[", 
    RowBox[{"2", ",", "1", ",", "2", ",", "1"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "7"}], "]"}], "[", 
    RowBox[{"2", ",", "1", ",", "2", ",", "2"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "7"}], "]"}], "[", 
    RowBox[{"2", ",", "2", ",", "1", ",", "1"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "7"}], "]"}], "[", 
    RowBox[{"2", ",", "2", ",", "1", ",", "2"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "7"}], "]"}], "[", 
    RowBox[{"2", ",", "2", ",", "2", ",", "1"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "7"}], "]"}], "[", 
    RowBox[{"2", ",", "2", ",", "2", ",", "2"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "8"}], "]"}], "[", 
    RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "8"}], "]"}], "[", 
    RowBox[{"1", ",", "1", ",", "1", ",", "2"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "8"}], "]"}], "[", 
    RowBox[{"1", ",", "1", ",", "2", ",", "1"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "8"}], "]"}], "[", 
    RowBox[{"1", ",", "1", ",", "2", ",", "2"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "8"}], "]"}], "[", 
    RowBox[{"1", ",", "2", ",", "1", ",", "1"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "8"}], "]"}], "[", 
    RowBox[{"1", ",", "2", ",", "1", ",", "2"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "8"}], "]"}], "[", 
    RowBox[{"1", ",", "2", ",", "2", ",", "1"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "8"}], "]"}], "[", 
    RowBox[{"1", ",", "2", ",", "2", ",", "2"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "8"}], "]"}], "[", 
    RowBox[{"2", ",", "1", ",", "1", ",", "1"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "8"}], "]"}], "[", 
    RowBox[{"2", ",", "1", ",", "1", ",", "2"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "8"}], "]"}], "[", 
    RowBox[{"2", ",", "1", ",", "2", ",", "1"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "8"}], "]"}], "[", 
    RowBox[{"2", ",", "1", ",", "2", ",", "2"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "8"}], "]"}], "[", 
    RowBox[{"2", ",", "2", ",", "1", ",", "1"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "8"}], "]"}], "[", 
    RowBox[{"2", ",", "2", ",", "1", ",", "2"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "8"}], "]"}], "[", 
    RowBox[{"2", ",", "2", ",", "2", ",", "1"}], "]"}], ",", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"6", ",", "8"}], "]"}], "[", 
    RowBox[{"2", ",", "2", ",", "2", ",", "2"}], "]"}]}], "}"}]], "Output",
 CellChangeTimes->{3.749497946581299*^9, 3.7494981651189966`*^9, 
  3.749498320931034*^9, 3.7494986417342415`*^9, 3.749499540360248*^9, 
  3.7494997180387783`*^9, 3.749499996792948*^9, 3.7495571382277937`*^9, 
  3.749557423040993*^9, 3.7495602842262626`*^9, 3.7495603170853996`*^9, 
  3.7495611574284763`*^9, 3.7495617938124847`*^9, 3.749562423495765*^9, 
  3.749573103091262*^9, 3.7495732998027525`*^9, 3.7495733886449857`*^9, 
  3.7498418935550575`*^9, 3.749858077265986*^9, 3.7604715546192636`*^9},
 CellLabel->
  "Out[193]=",ExpressionUUID->"dc0c0152-d8cb-464c-bed6-57f108d40e07"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Length", "[", 
   RowBox[{"CentralChargeList", "[", "LocalFieldNumber", "]"}], "]"}], 
  "\[Equal]", "128"}]], "Input",
 CellChangeTimes->{{3.749573275285674*^9, 3.7495732953157597`*^9}, {
  3.749573461628825*^9, 3.749573462075737*^9}},
 CellLabel->
  "In[194]:=",ExpressionUUID->"70c2f5ae-bd93-48a1-a74a-69aee3e19548"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.74957329627946*^9, 3.7495733886841803`*^9, 
  3.749573462852255*^9, 3.749841893566425*^9, 3.7498580774116907`*^9, 
  3.7604715546320095`*^9},
 CellLabel->
  "Out[194]=",ExpressionUUID->"1419db33-c622-4c93-906e-950d2a1b2aa9"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Z", "[", "LocalFieldNumber", "]"}], "[", 
    RowBox[{"ii_", ",", "jj_", ",", "kk_"}], "]"}], "[", 
   RowBox[{"aa_", ",", "bb_", ",", "cc_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"2", " ", "I", " ", 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"z", "[", 
         RowBox[{"LocalFieldNumber", ",", "1"}], "]"}], "[", 
        RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
       RowBox[{
        RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"\[CapitalPsi]t", "[", "ll", "]"}], "[", "cc", "]"}], "[", 
          
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
         RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "+", 
   RowBox[{"2", "I", " ", 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"z", "[", 
         RowBox[{"LocalFieldNumber", ",", "2"}], "]"}], "[", 
        RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
       RowBox[{
        RowBox[{"CommuteGammadown", "[", 
         RowBox[{"mu", ",", "nu"}], "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{
        RowBox[{"\[Gamma]stdown", "[", "nu", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"cc", ",", "dd"}], "]"}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"\[CapitalPsi]t", "[", "ll", "]"}], "[", "dd", "]"}], "[", 
          
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
         RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "+", 
   RowBox[{"2", "I", " ", 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"z", "[", 
         RowBox[{"LocalFieldNumber", ",", "3"}], "]"}], "[", 
        RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
       RowBox[{
        RowBox[{"\[Gamma]stdowndown", "[", "nu", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{
        RowBox[{"CommuteGamma", "[", 
         RowBox[{"nu", ",", "mu"}], "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"cc", ",", "dd"}], "]"}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"\[CapitalPsi]t", "[", "ll", "]"}], "[", "dd", "]"}], "[", 
          
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
         RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "+", 
   RowBox[{"2", "I", " ", 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"z", "[", 
         RowBox[{"LocalFieldNumber", ",", "4"}], "]"}], "[", 
        RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"\[Gamma]5", ".", 
          RowBox[{"CommuteGammadown", "[", 
           RowBox[{"mu", ",", "nu"}], "]"}]}], ")"}], "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{
        RowBox[{"\[Gamma]5\[Gamma]stdown", "[", "nu", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"cc", ",", "dd"}], "]"}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"\[CapitalPsi]t", "[", "ll", "]"}], "[", "dd", "]"}], "[", 
          
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
         RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "+", 
   RowBox[{"2", " ", "I", " ", 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"z", "[", 
         RowBox[{"LocalFieldNumber", ",", "5"}], "]"}], "[", 
        RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
       RowBox[{
        RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{"\[Gamma]5", "[", 
        RowBox[{"[", 
         RowBox[{"cc", ",", "dd"}], "]"}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"\[CapitalPsi]t", "[", "ll", "]"}], "[", "dd", "]"}], "[", 
          
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
         RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "+", 
   RowBox[{"2", "I", " ", 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"z", "[", 
         RowBox[{"LocalFieldNumber", ",", "6"}], "]"}], "[", 
        RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
       RowBox[{
        RowBox[{"\[Gamma]5\[Gamma]stdowndown", "[", "nu", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"\[Gamma]5", ".", 
          RowBox[{"CommuteGamma", "[", 
           RowBox[{"nu", ",", "mu"}], "]"}]}], ")"}], "[", 
        RowBox[{"[", 
         RowBox[{"cc", ",", "dd"}], "]"}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"\[CapitalPsi]t", "[", "ll", "]"}], "[", "dd", "]"}], "[", 
          
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
         RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "+", 
   RowBox[{"2", " ", "I", " ", 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"z", "[", 
         RowBox[{"LocalFieldNumber", ",", "7"}], "]"}], "[", 
        RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
       RowBox[{"\[Gamma]5down", "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{
        RowBox[{"\[Gamma]5\[Gamma]", "[", "mu", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"cc", ",", "dd"}], "]"}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"\[CapitalPsi]t", "[", "ll", "]"}], "[", "dd", "]"}], "[", 
          
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
         RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "+", 
   RowBox[{"2", " ", "I", " ", 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"z", "[", 
         RowBox[{"LocalFieldNumber", ",", "8"}], "]"}], "[", 
        RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
       RowBox[{"Cmetric", "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{
        RowBox[{"\[Gamma]", "[", "mu", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"cc", ",", "dd"}], "]"}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"\[CapitalPsi]t", "[", "ll", "]"}], "[", "dd", "]"}], "[", 
          
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
         RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.7494085451000586`*^9, 3.7494085523049335`*^9}, {
   3.7494085899690495`*^9, 3.749408615257099*^9}, {3.7494086507852697`*^9, 
   3.749408665345*^9}, {3.7494093016570387`*^9, 3.7494093465610495`*^9}, {
   3.7494095637774105`*^9, 3.749409578217074*^9}, {3.749409653409035*^9, 
   3.7494098016018295`*^9}, {3.7494098348498144`*^9, 
   3.7494100216819773`*^9}, {3.7494862265493007`*^9, 3.74948626538061*^9}, {
   3.749486303084411*^9, 3.749486409804064*^9}, {3.749491861021188*^9, 
   3.7494918975704775`*^9}, {3.7494922763622904`*^9, 
   3.7494925001244493`*^9}, {3.749492808131174*^9, 3.749492966259914*^9}, {
   3.7494931994609575`*^9, 3.7494932056034827`*^9}, {3.7494932882999043`*^9, 
   3.7494933224195147`*^9}, {3.749493390293687*^9, 3.7494934366526213`*^9}, 
   3.749493487275071*^9, {3.7494936559805923`*^9, 3.7494936695238447`*^9}, {
   3.749493842468738*^9, 3.749493842722987*^9}, {3.749493947596159*^9, 
   3.7494939479072027`*^9}, {3.749494639467932*^9, 3.7494946487309275`*^9}, {
   3.749496646497279*^9, 3.7494967250903263`*^9}, {3.7494973529537697`*^9, 
   3.749497479977671*^9}, {3.7494975524586153`*^9, 3.74949765460373*^9}, {
   3.7494976989543476`*^9, 3.749497873642845*^9}, {3.749498131197258*^9, 
   3.7494981403944955`*^9}, {3.7494983027647667`*^9, 3.7494983153950877`*^9}, 
   3.749557605921444*^9, {3.7495577142002726`*^9, 3.7495577604146447`*^9}, {
   3.7495578274867716`*^9, 3.74955787139854*^9}, {3.7495606182778916`*^9, 
   3.7495607612551804`*^9}, {3.749560804518595*^9, 3.7495608789111233`*^9}, {
   3.7495609377763777`*^9, 3.749560960622629*^9}, {3.7495611215359087`*^9, 
   3.749561125110816*^9}, {3.749561923080024*^9, 3.749562017391224*^9}, {
   3.7495620609922285`*^9, 3.749562169191275*^9}, {3.749562264056468*^9, 
   3.74956232499186*^9}, {3.749572940471583*^9, 3.749572960654584*^9}, {
   3.749572994742178*^9, 3.749572995206708*^9}, {3.749573026703518*^9, 
   3.7495730316552496`*^9}, {3.7495731391257772`*^9, 3.7495732144700975`*^9}},
 
 CellLabel->
  "In[195]:=",ExpressionUUID->"12b34050-45f4-4f11-924d-d9f1d3c6c2d8"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"ZTable", "[", "LocalFieldNumber", "]"}], "[", 
      RowBox[{"kk", ",", "cc"}], "]"}], " ", "=", " ", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Z", "[", "LocalFieldNumber", "]"}], "[", 
         RowBox[{"ii", ",", "jj", ",", "kk"}], "]"}], "[", 
        RowBox[{"aa", ",", "bb", ",", "cc"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"cc", ",", "1", ",", "4"}], "}"}]}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.7494086675397387`*^9, 3.749408718609185*^9}, {
  3.7494087673051147`*^9, 3.7494087768495007`*^9}, {3.7494919500355654`*^9, 
  3.749491963955261*^9}, {3.749494547074811*^9, 3.7494945594586687`*^9}, {
  3.7495576508875003`*^9, 3.7495576893512697`*^9}},
 CellLabel->
  "In[196]:=",ExpressionUUID->"c460fb1f-33ae-4ad8-853c-2fa599465eee"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"AlgebraDDMinusClosure", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", 
   
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"Collect", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"AlgebraDD", "[", 
              RowBox[{"tt1", ",", "tt2"}], "]"}], "[", 
             RowBox[{
              RowBox[{
               RowBox[{"\[CapitalPsi]", "[", "kk", "]"}], "[", "cc", "]"}], 
              "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", 
            "-", " ", 
            RowBox[{
             RowBox[{"ZTable", "[", "LocalFieldNumber", "]"}], "[", 
             RowBox[{"kk", ",", "cc"}], "]"}]}], ")"}], "/.", 
          "LagrangianParameters"}], "/.", "VtoPauli"}], ",", 
        "FieldListWithDerivatives", ",", "Simplify"}], "]"}], ")"}], ",", 
     RowBox[{"{", 
      RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"cc", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7474929944818563`*^9, 3.7474930651472597`*^9}, {
   3.747493152219424*^9, 3.7474932477784343`*^9}, {3.7474934178914785`*^9, 
   3.7474934832105627`*^9}, {3.7474935638267813`*^9, 3.747493591801224*^9}, {
   3.7474963739738455`*^9, 3.7474964449288054`*^9}, {3.748795026042665*^9, 
   3.748795027776865*^9}, {3.748965282772246*^9, 3.7489652841431913`*^9}, {
   3.748967256264186*^9, 3.7489672582499332`*^9}, {3.7494004185551434`*^9, 
   3.7494004426991215`*^9}, {3.7494086299617586`*^9, 3.749408647033921*^9}, {
   3.7494087803530507`*^9, 3.7494087808412037`*^9}, {3.7494912568589115`*^9, 
   3.7494913165706425`*^9}, {3.7494914035863967`*^9, 
   3.7494914061784263`*^9}, {3.7494914982840424`*^9, 
   3.7494915100027227`*^9}, {3.74949198535605*^9, 3.7494919858907022`*^9}, {
   3.749492042098717*^9, 3.7494920712828035`*^9}, {3.749494463739282*^9, 
   3.7494945272263684`*^9}, {3.7495575100735793`*^9, 
   3.7495575462626677`*^9}, {3.7495575863851166`*^9, 3.749557637102826*^9}, 
   3.7495578586230235`*^9},
 CellLabel->
  "In[197]:=",ExpressionUUID->"329a42fd-30ef-4f88-bd5e-42ebcdc7c735"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"AlgebraDDEqs", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", 
   "=", " ", 
   RowBox[{
    RowBox[{"DeleteCases", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"Coefficient", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"AlgebraDDMinusClosure", "[", 
                 RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", 
                "]"}], "[", 
               RowBox[{"[", 
                RowBox[{
                "kk", ",", "cc", ",", "ii", ",", "aa", ",", "jj", ",", "bb"}],
                 "]"}], "]"}], ",", 
              RowBox[{"FieldListWithDerivatives", "[", 
               RowBox[{"[", "FieldListIndex", "]"}], "]"}]}], "]"}], ")"}], 
           "\[Equal]", "0"}], ",", 
          RowBox[{"{", 
           RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"cc", ",", "1", ",", "4"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"FieldListIndex", ",", "1", ",", 
            RowBox[{"Length", "[", "FieldListWithDerivatives", "]"}]}], 
           "}"}]}], "]"}], "//", "Simplify"}], "//", "Flatten"}], ",", 
      "True"}], "]"}], "//", "DeleteDuplicates"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7474933413160763`*^9, 3.7474934023534203`*^9}, {
   3.747493509609391*^9, 3.7474935432809353`*^9}, {3.7474936064895945`*^9, 
   3.7474936161297655`*^9}, {3.7474936564987297`*^9, 3.747493747940831*^9}, {
   3.747493832482408*^9, 3.7474938407374077`*^9}, {3.747496458745552*^9, 
   3.7474964697370515`*^9}, 3.7475105609270287`*^9, {3.748795270744809*^9, 
   3.748795274222528*^9}, {3.74879531011075*^9, 3.748795321437098*^9}, {
   3.748795652987978*^9, 3.748795656902155*^9}, {3.748965289858489*^9, 
   3.748965292697112*^9}, {3.748967259459038*^9, 3.748967260813509*^9}, {
   3.7489708313422194`*^9, 3.7489708325427723`*^9}, {3.749400458403777*^9, 
   3.749400461474213*^9}, {3.7494920741868925`*^9, 3.749492080658454*^9}, {
   3.749494571539537*^9, 3.749494577426366*^9}, {3.7495612237198668`*^9, 
   3.74956123699057*^9}},
 CellLabel->
  "In[198]:=",ExpressionUUID->"f7a323ec-3325-4df8-96cc-0d73072425e9"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"ZSolutions", "[", "LocalFieldNumber", "]"}], " ", "=", " ", 
   RowBox[{
    RowBox[{"Solve", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"AlgebraDDEqs", "[", 
        RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], 
      ",", 
      RowBox[{"CentralChargeList", "[", "LocalFieldNumber", "]"}]}], "]"}], "//",
     "Flatten"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7494088104519863`*^9, 3.749408859016982*^9}, 
   3.749410151970128*^9, {3.749482953421772*^9, 3.7494829550114527`*^9}, {
   3.749482991773706*^9, 3.749482992051861*^9}, {3.7495734326291237`*^9, 
   3.749573434299819*^9}},
 CellLabel->
  "In[199]:=",ExpressionUUID->"00b9364c-febd-4c24-a54f-afee09141f21"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "[", 
  RowBox[{"ZSolutions", "[", "LocalFieldNumber", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.7495734406217256`*^9, 3.74957344565139*^9}},
 CellLabel->
  "In[200]:=",ExpressionUUID->"fb889471-0eca-481c-a41e-1fdc96899afe"],

Cell[BoxData["128"], "Output",
 CellChangeTimes->{3.7495734465821247`*^9, 3.7498419317206073`*^9, 
  3.749858123552655*^9, 3.760471590963112*^9},
 CellLabel->
  "Out[200]=",ExpressionUUID->"7181a897-a93f-42b0-9be4-761982330aac"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"NonZeroz", "[", "LocalFieldNumber", "]"}], " ", "=", 
  RowBox[{"DeleteCases", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"z", "[", 
          RowBox[{"LocalFieldNumber", ",", "nn"}], "]"}], "[", 
         RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], "\[Equal]", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"z", "[", 
             RowBox[{"LocalFieldNumber", ",", "nn"}], "]"}], "[", 
            RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], "/.", 
           RowBox[{"ZSolutions", "[", "LocalFieldNumber", "]"}]}], "/.", 
          "ThisOneLooksGood"}], ")"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"nn", ",", "1", ",", "NumZCharges"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"ll", ",", "1", ",", "2"}], "}"}]}], "]"}], "//", "Flatten"}],
     ",", 
    RowBox[{
     RowBox[{
      RowBox[{"z", "[", 
       RowBox[{"_", ",", "_"}], "]"}], "[", 
      RowBox[{"_", ",", "_", ",", "_", ",", "_"}], "]"}], "\[Equal]", "0"}]}],
    "]"}]}]], "Input",
 CellChangeTimes->{{3.7494822949220448`*^9, 3.7494823511478577`*^9}, {
   3.7494823858218775`*^9, 3.7494823877980165`*^9}, {3.7494824283410683`*^9, 
   3.7494824525643225`*^9}, {3.749482667989807*^9, 3.749482671509657*^9}, {
   3.749482703172926*^9, 3.7494827189481516`*^9}, {3.7494827656916285`*^9, 
   3.7494827754041166`*^9}, {3.749482825395954*^9, 3.7494828255808463`*^9}, {
   3.7494830210856953`*^9, 3.749483068325922*^9}, {3.7494831352932143`*^9, 
   3.7494831386363173`*^9}, {3.7494831726363764`*^9, 3.749483186323599*^9}, 
   3.7494864595961637`*^9, {3.7494912199550743`*^9, 3.749491220034889*^9}, {
   3.749492188306588*^9, 3.7494921935066113`*^9}, {3.749498617379153*^9, 
   3.749498618721362*^9}, {3.749573479932663*^9, 3.7495735108688197`*^9}, {
   3.749573602605239*^9, 3.749573711940016*^9}, {3.7495737468208504`*^9, 
   3.7495737596838026`*^9}},
 CellLabel->
  "In[201]:=",ExpressionUUID->"1216d294-626f-4a00-a782-b32a1a2a97d9"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"6", ",", "1"}], "]"}], "[", 
     RowBox[{"1", ",", "1", ",", "1", ",", "2"}], "]"}], "\[Equal]", "1"}], 
   ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"6", ",", "1"}], "]"}], "[", 
     RowBox[{"1", ",", "1", ",", "2", ",", "1"}], "]"}], "\[Equal]", 
    FractionBox["1", "2"]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"6", ",", "1"}], "]"}], "[", 
     RowBox[{"1", ",", "2", ",", "1", ",", "1"}], "]"}], "\[Equal]", 
    RowBox[{"-", 
     FractionBox["3", "4"]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"6", ",", "1"}], "]"}], "[", 
     RowBox[{"1", ",", "2", ",", "2", ",", "2"}], "]"}], "\[Equal]", 
    FractionBox["3", "4"]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"6", ",", "1"}], "]"}], "[", 
     RowBox[{"2", ",", "1", ",", "1", ",", "1"}], "]"}], "\[Equal]", 
    RowBox[{"-", 
     FractionBox["3", "4"]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"6", ",", "1"}], "]"}], "[", 
     RowBox[{"2", ",", "1", ",", "2", ",", "2"}], "]"}], "\[Equal]", 
    FractionBox["3", "4"]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"6", ",", "1"}], "]"}], "[", 
     RowBox[{"2", ",", "2", ",", "1", ",", "2"}], "]"}], "\[Equal]", 
    RowBox[{"-", 
     FractionBox["1", "2"]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"6", ",", "1"}], "]"}], "[", 
     RowBox[{"2", ",", "2", ",", "2", ",", "1"}], "]"}], "\[Equal]", 
    RowBox[{"-", "1"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"6", ",", "2"}], "]"}], "[", 
     RowBox[{"1", ",", "1", ",", "2", ",", "1"}], "]"}], "\[Equal]", 
    FractionBox["1", "4"]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"6", ",", "2"}], "]"}], "[", 
     RowBox[{"1", ",", "2", ",", "1", ",", "1"}], "]"}], "\[Equal]", 
    RowBox[{"-", 
     FractionBox["1", "8"]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"6", ",", "2"}], "]"}], "[", 
     RowBox[{"1", ",", "2", ",", "2", ",", "2"}], "]"}], "\[Equal]", 
    FractionBox["1", "8"]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"6", ",", "2"}], "]"}], "[", 
     RowBox[{"2", ",", "1", ",", "1", ",", "1"}], "]"}], "\[Equal]", 
    RowBox[{"-", 
     FractionBox["1", "8"]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"6", ",", "2"}], "]"}], "[", 
     RowBox[{"2", ",", "1", ",", "2", ",", "2"}], "]"}], "\[Equal]", 
    FractionBox["1", "8"]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"6", ",", "2"}], "]"}], "[", 
     RowBox[{"2", ",", "2", ",", "1", ",", "2"}], "]"}], "\[Equal]", 
    RowBox[{"-", 
     FractionBox["1", "4"]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"6", ",", "3"}], "]"}], "[", 
     RowBox[{"1", ",", "2", ",", "1", ",", "1"}], "]"}], "\[Equal]", 
    FractionBox["1", "8"]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"6", ",", "3"}], "]"}], "[", 
     RowBox[{"1", ",", "2", ",", "2", ",", "2"}], "]"}], "\[Equal]", 
    FractionBox["1", "8"]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"6", ",", "3"}], "]"}], "[", 
     RowBox[{"2", ",", "1", ",", "1", ",", "1"}], "]"}], "\[Equal]", 
    RowBox[{"-", 
     FractionBox["1", "8"]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"6", ",", "3"}], "]"}], "[", 
     RowBox[{"2", ",", "1", ",", "2", ",", "2"}], "]"}], "\[Equal]", 
    RowBox[{"-", 
     FractionBox["1", "8"]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"6", ",", "4"}], "]"}], "[", 
     RowBox[{"1", ",", "2", ",", "1", ",", "1"}], "]"}], "\[Equal]", 
    RowBox[{"-", 
     FractionBox["1", "8"]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"6", ",", "4"}], "]"}], "[", 
     RowBox[{"1", ",", "2", ",", "2", ",", "2"}], "]"}], "\[Equal]", 
    RowBox[{"-", 
     FractionBox["1", "8"]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"6", ",", "4"}], "]"}], "[", 
     RowBox[{"2", ",", "1", ",", "1", ",", "1"}], "]"}], "\[Equal]", 
    FractionBox["1", "8"]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"6", ",", "4"}], "]"}], "[", 
     RowBox[{"2", ",", "1", ",", "2", ",", "2"}], "]"}], "\[Equal]", 
    FractionBox["1", "8"]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"6", ",", "5"}], "]"}], "[", 
     RowBox[{"1", ",", "1", ",", "1", ",", "2"}], "]"}], "\[Equal]", 
    FractionBox["1", "2"]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"6", ",", "5"}], "]"}], "[", 
     RowBox[{"1", ",", "2", ",", "1", ",", "1"}], "]"}], "\[Equal]", 
    FractionBox["1", "4"]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"6", ",", "5"}], "]"}], "[", 
     RowBox[{"1", ",", "2", ",", "2", ",", "2"}], "]"}], "\[Equal]", 
    FractionBox["3", "4"]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"6", ",", "5"}], "]"}], "[", 
     RowBox[{"2", ",", "1", ",", "1", ",", "1"}], "]"}], "\[Equal]", 
    RowBox[{"-", 
     FractionBox["3", "4"]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"6", ",", "5"}], "]"}], "[", 
     RowBox[{"2", ",", "1", ",", "2", ",", "2"}], "]"}], "\[Equal]", 
    RowBox[{"-", 
     FractionBox["1", "4"]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"6", ",", "5"}], "]"}], "[", 
     RowBox[{"2", ",", "2", ",", "2", ",", "1"}], "]"}], "\[Equal]", 
    RowBox[{"-", 
     FractionBox["1", "2"]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"6", ",", "6"}], "]"}], "[", 
     RowBox[{"1", ",", "1", ",", "1", ",", "2"}], "]"}], "\[Equal]", 
    FractionBox["1", "4"]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"6", ",", "6"}], "]"}], "[", 
     RowBox[{"1", ",", "1", ",", "2", ",", "1"}], "]"}], "\[Equal]", 
    RowBox[{"-", 
     FractionBox["1", "4"]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"6", ",", "6"}], "]"}], "[", 
     RowBox[{"1", ",", "2", ",", "1", ",", "1"}], "]"}], "\[Equal]", 
    FractionBox["1", "8"]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"6", ",", "6"}], "]"}], "[", 
     RowBox[{"1", ",", "2", ",", "2", ",", "2"}], "]"}], "\[Equal]", 
    FractionBox["1", "8"]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"6", ",", "6"}], "]"}], "[", 
     RowBox[{"2", ",", "1", ",", "1", ",", "1"}], "]"}], "\[Equal]", 
    RowBox[{"-", 
     FractionBox["1", "8"]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"6", ",", "6"}], "]"}], "[", 
     RowBox[{"2", ",", "1", ",", "2", ",", "2"}], "]"}], "\[Equal]", 
    RowBox[{"-", 
     FractionBox["1", "8"]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"6", ",", "6"}], "]"}], "[", 
     RowBox[{"2", ",", "2", ",", "1", ",", "2"}], "]"}], "\[Equal]", 
    FractionBox["1", "4"]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"6", ",", "6"}], "]"}], "[", 
     RowBox[{"2", ",", "2", ",", "2", ",", "1"}], "]"}], "\[Equal]", 
    RowBox[{"-", 
     FractionBox["1", "4"]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"6", ",", "7"}], "]"}], "[", 
     RowBox[{"1", ",", "1", ",", "1", ",", "2"}], "]"}], "\[Equal]", 
    RowBox[{"-", 
     FractionBox["1", "2"]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"6", ",", "7"}], "]"}], "[", 
     RowBox[{"1", ",", "1", ",", "2", ",", "1"}], "]"}], "\[Equal]", 
    FractionBox["1", "2"]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"6", ",", "7"}], "]"}], "[", 
     RowBox[{"1", ",", "2", ",", "1", ",", "1"}], "]"}], "\[Equal]", 
    FractionBox["1", "4"]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"6", ",", "7"}], "]"}], "[", 
     RowBox[{"1", ",", "2", ",", "2", ",", "2"}], "]"}], "\[Equal]", 
    FractionBox["1", "4"]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"6", ",", "7"}], "]"}], "[", 
     RowBox[{"2", ",", "1", ",", "1", ",", "1"}], "]"}], "\[Equal]", 
    RowBox[{"-", 
     FractionBox["1", "4"]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"6", ",", "7"}], "]"}], "[", 
     RowBox[{"2", ",", "1", ",", "2", ",", "2"}], "]"}], "\[Equal]", 
    RowBox[{"-", 
     FractionBox["1", "4"]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"6", ",", "7"}], "]"}], "[", 
     RowBox[{"2", ",", "2", ",", "1", ",", "2"}], "]"}], "\[Equal]", 
    RowBox[{"-", 
     FractionBox["1", "2"]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"6", ",", "7"}], "]"}], "[", 
     RowBox[{"2", ",", "2", ",", "2", ",", "1"}], "]"}], "\[Equal]", 
    FractionBox["1", "2"]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"6", ",", "8"}], "]"}], "[", 
     RowBox[{"1", ",", "1", ",", "1", ",", "2"}], "]"}], "\[Equal]", 
    FractionBox["1", "2"]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"6", ",", "8"}], "]"}], "[", 
     RowBox[{"1", ",", "2", ",", "1", ",", "1"}], "]"}], "\[Equal]", 
    FractionBox["1", "4"]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"6", ",", "8"}], "]"}], "[", 
     RowBox[{"1", ",", "2", ",", "2", ",", "2"}], "]"}], "\[Equal]", 
    FractionBox["3", "4"]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"6", ",", "8"}], "]"}], "[", 
     RowBox[{"2", ",", "1", ",", "1", ",", "1"}], "]"}], "\[Equal]", 
    RowBox[{"-", 
     FractionBox["3", "4"]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"6", ",", "8"}], "]"}], "[", 
     RowBox[{"2", ",", "1", ",", "2", ",", "2"}], "]"}], "\[Equal]", 
    RowBox[{"-", 
     FractionBox["1", "4"]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"6", ",", "8"}], "]"}], "[", 
     RowBox[{"2", ",", "2", ",", "2", ",", "1"}], "]"}], "\[Equal]", 
    RowBox[{"-", 
     FractionBox["1", "2"]}]}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.7494822967584114`*^9, {3.7494823516392856`*^9, 3.749482388711256*^9}, 
   3.7494824654614663`*^9, 3.749482837546488*^9, {3.7494829730196037`*^9, 
   3.7494829962450185`*^9}, 3.749483098282524*^9, {3.7494831891221447`*^9, 
   3.7494832071037216`*^9}, 3.749486466848751*^9, 3.7494900270105543`*^9, 
   3.7494930181132135`*^9, 3.7494937173213744`*^9, 3.749493853167077*^9, 
   3.749493962980129*^9, 3.7494979688433657`*^9, 3.7494981905672655`*^9, 
   3.749498344510541*^9, 3.7494986281129436`*^9, 3.7494986650759974`*^9, 
   3.7494995678947835`*^9, 3.7494997456762767`*^9, 3.749500024828462*^9, 
   3.749557163394376*^9, 3.749573718358801*^9, 3.7495737627047834`*^9, 
   3.7498419317780805`*^9, 3.749858123948968*^9, 3.760471591033328*^9},
 CellLabel->
  "Out[201]=",ExpressionUUID->"bfe411aa-e7cb-41dd-81ab-8133086974e6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ZGen", "[", 
   RowBox[{"LocalFieldNumber", ",", "1"}], "]"}], "[", 
  RowBox[{"1", ",", "1"}], "]"}]], "Input",
 CellChangeTimes->{{3.7495744466700077`*^9, 3.7495744538034973`*^9}},
 CellLabel->
  "In[202]:=",ExpressionUUID->"3b02f8ad-293d-453c-b0bc-6595a9f0e645"],

Cell[BoxData[
 RowBox[{
  RowBox[{"z", "[", 
   RowBox[{"6", ",", "1", ",", "0"}], "]"}], "+", 
  RowBox[{"z", "[", 
   RowBox[{"6", ",", "1", ",", "3"}], "]"}]}]], "Output",
 CellChangeTimes->{3.7495744542866735`*^9, 3.7498419317889924`*^9, 
  3.7498581246827374`*^9, 3.7604715910527782`*^9},
 CellLabel->
  "Out[202]=",ExpressionUUID->"ff754f54-34dc-4486-ae61-1758accc7f50"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"zGenList", "  ", "=", " ", 
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"LocalFieldNumber", ",", "nn", ",", "sgNum"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"nn", ",", "1", ",", "6"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"sgNum", ",", "0", ",", "3"}], "}"}]}], "]"}], "//", 
   "Flatten"}]}]], "Input",
 CellChangeTimes->{{3.7495745233900537`*^9, 3.749574593365177*^9}},
 CellLabel->
  "In[203]:=",ExpressionUUID->"32929ec2-21a5-4e24-9cb4-c5be7f712888"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"z", "[", 
    RowBox[{"6", ",", "1", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"6", ",", "1", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"6", ",", "1", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"6", ",", "1", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"6", ",", "2", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"6", ",", "2", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"6", ",", "2", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"6", ",", "2", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"6", ",", "3", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"6", ",", "3", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"6", ",", "3", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"6", ",", "3", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"6", ",", "4", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"6", ",", "4", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"6", ",", "4", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"6", ",", "4", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"6", ",", "5", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"6", ",", "5", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"6", ",", "5", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"6", ",", "5", ",", "3"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"6", ",", "6", ",", "0"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"6", ",", "6", ",", "1"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"6", ",", "6", ",", "2"}], "]"}], ",", 
   RowBox[{"z", "[", 
    RowBox[{"6", ",", "6", ",", "3"}], "]"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.749574573552211*^9, 3.749574597636449*^9}, 
   3.7498419318019247`*^9, 3.74985812478797*^9, 3.760471591073125*^9},
 CellLabel->
  "Out[203]=",ExpressionUUID->"31554492-d8d4-4f93-a06c-bd6670102d5d"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{
   RowBox[{
   "The", " ", "below", " ", "Ansatz", " ", "is", " ", "commented", " ", 
    "out"}], ",", " ", 
   RowBox[{
    RowBox[{"only", " ", "have", " ", "9"}], "-", 
    RowBox[{
    "12", " ", "which", " ", "we", " ", "rename", " ", "below", " ", "1"}], 
    "-", "4"}]}], " ", "*)"}]], "Input",
 CellChangeTimes->{{3.749577712205944*^9, 3.7495777301065874`*^9}},
 CellLabel->
  "In[204]:=",ExpressionUUID->"7e0d8d03-92f9-4921-ae65-7e5995e33f44"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{
    RowBox[{"zAnsatz", "[", 
     RowBox[{"lfn_", ",", "nn_"}], "]"}], "[", 
    RowBox[{"ii_", ",", "jj_", ",", "kk_", ",", "ll_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{
     RowBox[{"cz", "[", 
      RowBox[{"lfn", ",", "nn", ",", "1"}], "]"}], 
     RowBox[{"KroneckerDelta", "[", 
      RowBox[{"ii", ",", "jj"}], "]"}], "I", " ", 
     RowBox[{
      RowBox[{"sigma", "[", "2", "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "+", 
    RowBox[{
     RowBox[{"cz", "[", 
      RowBox[{"lfn", ",", "nn", ",", "2"}], "]"}], 
     RowBox[{"KroneckerDelta", "[", 
      RowBox[{"ii", ",", "kk"}], "]"}], "I", " ", 
     RowBox[{
      RowBox[{"sigma", "[", "2", "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"jj", ",", "ll"}], "]"}], "]"}]}], " ", "+", 
    RowBox[{
     RowBox[{"cz", "[", 
      RowBox[{"lfn", ",", "nn", ",", "3"}], "]"}], 
     RowBox[{"KroneckerDelta", "[", 
      RowBox[{"ii", ",", "ll"}], "]"}], "I", " ", 
     RowBox[{
      RowBox[{"sigma", "[", "2", "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"jj", ",", "kk"}], "]"}], "]"}]}], "+", 
    RowBox[{
     RowBox[{"cz", "[", 
      RowBox[{"lfn", ",", "nn", ",", "4"}], "]"}], 
     RowBox[{"KroneckerDelta", "[", 
      RowBox[{"jj", ",", "kk"}], "]"}], "I", " ", 
     RowBox[{
      RowBox[{"sigma", "[", "2", "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"ii", ",", "ll"}], "]"}], "]"}]}], "+", 
    RowBox[{
     RowBox[{"cz", "[", 
      RowBox[{"lfn", ",", "nn", ",", "5"}], "]"}], 
     RowBox[{"KroneckerDelta", "[", 
      RowBox[{"jj", ",", "ll"}], "]"}], "I", " ", 
     RowBox[{
      RowBox[{"sigma", "[", "2", "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"ii", ",", "kk"}], "]"}], "]"}]}], "+", 
    RowBox[{
     RowBox[{"cz", "[", 
      RowBox[{"lfn", ",", "nn", ",", "6"}], "]"}], 
     RowBox[{"KroneckerDelta", "[", 
      RowBox[{"kk", ",", "ll"}], "]"}], "I", " ", 
     RowBox[{
      RowBox[{"sigma", "[", "2", "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"ii", ",", "jj"}], "]"}], "]"}]}], "+", 
    RowBox[{
     RowBox[{"cz", "[", 
      RowBox[{"lfn", ",", "nn", ",", "7"}], "]"}], 
     RowBox[{
      RowBox[{"sigma", "[", "3", "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"ii", ",", "jj"}], "]"}], "]"}], 
     RowBox[{
      RowBox[{"sigma", "[", "1", "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"kk", ",", "ll"}], "]"}], "]"}]}], "+", 
    RowBox[{
     RowBox[{"cz", "[", 
      RowBox[{"lfn", ",", "nn", ",", "8"}], "]"}], 
     RowBox[{
      RowBox[{"sigma", "[", "3", "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"ii", ",", "kk"}], "]"}], "]"}], 
     RowBox[{
      RowBox[{"sigma", "[", "1", "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"jj", ",", "ll"}], "]"}], "]"}]}], "+", 
    RowBox[{
     RowBox[{"cz", "[", 
      RowBox[{"lfn", ",", "nn", ",", "9"}], "]"}], 
     RowBox[{
      RowBox[{"sigma", "[", "3", "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"ii", ",", "ll"}], "]"}], "]"}], 
     RowBox[{
      RowBox[{"sigma", "[", "1", "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"jj", ",", "kk"}], "]"}], "]"}]}], "+", 
    RowBox[{
     RowBox[{"cz", "[", 
      RowBox[{"lfn", ",", "nn", ",", "10"}], "]"}], 
     RowBox[{
      RowBox[{"sigma", "[", "3", "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"jj", ",", "kk"}], "]"}], "]"}], 
     RowBox[{
      RowBox[{"sigma", "[", "1", "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"ii", ",", "ll"}], "]"}], "]"}]}], "+", 
    RowBox[{
     RowBox[{"cz", "[", 
      RowBox[{"lfn", ",", "nn", ",", "11"}], "]"}], 
     RowBox[{
      RowBox[{"sigma", "[", "3", "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"jj", ",", "ll"}], "]"}], "]"}], 
     RowBox[{
      RowBox[{"sigma", "[", "1", "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"ii", ",", "kk"}], "]"}], "]"}]}], "+", 
    RowBox[{
     RowBox[{"cz", "[", 
      RowBox[{"lfn", ",", "nn", ",", "12"}], "]"}], 
     RowBox[{
      RowBox[{"sigma", "[", "3", "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"kk", ",", "ll"}], "]"}], "]"}], 
     RowBox[{
      RowBox[{"sigma", "[", "1", "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"ii", ",", "jj"}], "]"}], "]"}]}]}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.7495753714699535`*^9, 3.7495755898117137`*^9}, {
  3.749575869195531*^9, 3.749575869982422*^9}, {3.7495759026765833`*^9, 
  3.7495759728376336`*^9}, {3.749576019934725*^9, 3.749576025917223*^9}, {
  3.7495760760536222`*^9, 3.7495762998440228`*^9}, {3.749576600484555*^9, 
  3.749576602083951*^9}, {3.7495768447652674`*^9, 3.749576933636203*^9}, {
  3.7495770820450315`*^9, 3.749577084187992*^9}, {3.749577117869512*^9, 
  3.7495771369083815`*^9}},
 CellLabel->
  "In[205]:=",ExpressionUUID->"acfe2847-eb35-4b95-ad61-10e8af1ab448"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"zAnsatz", "[", 
    RowBox[{"lfn_", ",", "nn_"}], "]"}], "[", 
   RowBox[{"ii_", ",", "jj_", ",", "kk_", ",", "ll_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{
    RowBox[{"cz", "[", 
     RowBox[{"lfn", ",", "nn", ",", "1"}], "]"}], 
    RowBox[{
     RowBox[{"sigma", "[", "3", "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"ii", ",", "ll"}], "]"}], "]"}], 
    RowBox[{
     RowBox[{"sigma", "[", "1", "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"jj", ",", "kk"}], "]"}], "]"}]}], "+", 
   RowBox[{
    RowBox[{"cz", "[", 
     RowBox[{"lfn", ",", "nn", ",", "2"}], "]"}], 
    RowBox[{
     RowBox[{"sigma", "[", "3", "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"jj", ",", "kk"}], "]"}], "]"}], 
    RowBox[{
     RowBox[{"sigma", "[", "1", "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"ii", ",", "ll"}], "]"}], "]"}]}], "+", 
   RowBox[{
    RowBox[{"cz", "[", 
     RowBox[{"lfn", ",", "nn", ",", "3"}], "]"}], 
    RowBox[{
     RowBox[{"sigma", "[", "3", "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"jj", ",", "ll"}], "]"}], "]"}], 
    RowBox[{
     RowBox[{"sigma", "[", "1", "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"ii", ",", "kk"}], "]"}], "]"}]}], "+", 
   RowBox[{
    RowBox[{"cz", "[", 
     RowBox[{"lfn", ",", "nn", ",", "4"}], "]"}], 
    RowBox[{
     RowBox[{"sigma", "[", "3", "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"kk", ",", "ll"}], "]"}], "]"}], 
    RowBox[{
     RowBox[{"sigma", "[", "1", "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"ii", ",", "jj"}], "]"}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.7495753714699535`*^9, 3.7495755898117137`*^9}, {
  3.749575869195531*^9, 3.749575869982422*^9}, {3.7495759026765833`*^9, 
  3.7495759728376336`*^9}, {3.749576019934725*^9, 3.749576025917223*^9}, {
  3.7495760760536222`*^9, 3.7495762998440228`*^9}, {3.749576600484555*^9, 
  3.749576602083951*^9}, {3.7495768447652674`*^9, 3.749576933636203*^9}, {
  3.7495770820450315`*^9, 3.749577084187992*^9}, {3.749577117869512*^9, 
  3.7495771369083815`*^9}, {3.749577756908228*^9, 3.749577768545231*^9}},
 CellLabel->
  "In[206]:=",ExpressionUUID->"afd7fc95-d624-4947-b32d-e162df26b144"],

Cell[BoxData[
 RowBox[{
  RowBox[{"czList", "[", 
   RowBox[{"lfn_", ",", "nn_"}], "]"}], ":=", " ", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"cz", "[", 
     RowBox[{"lfn", ",", "nn", ",", "Index"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"Index", ",", "1", ",", "4"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.749577273702882*^9, 3.749577298979131*^9}, {
   3.749577330842765*^9, 3.7495773526833515`*^9}, 3.749577774917498*^9},
 CellLabel->
  "In[207]:=",ExpressionUUID->"73665f0e-f91b-4fe5-82c8-a103c2765daf"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"zAnsatzEqs", "[", 
    RowBox[{"LocalFieldNumber", ",", "1"}], "]"}], "=", 
   RowBox[{"DeleteCases", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"zAnsatz", "[", 
            RowBox[{"LocalFieldNumber", ",", "1"}], "]"}], "[", 
           RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], ")"}], "==", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"z", "[", 
              RowBox[{"LocalFieldNumber", ",", "1"}], "]"}], "[", 
             RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], "/.", 
            RowBox[{"ZSolutions", "[", "LocalFieldNumber", "]"}]}], "/.", 
           "ThisOneLooksGood"}], ")"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"ll", ",", "1", ",", "2"}], "}"}]}], "]"}], "//", 
      "Flatten"}], ",", "True"}], "]"}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.7495763508436484`*^9, 3.7495763645793476`*^9}, {
  3.7495771857818656`*^9, 3.749577245971423*^9}},
 CellLabel->
  "In[208]:=",ExpressionUUID->"4a76156f-b3f8-45ce-bf34-5f1f273bc64c"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"Solve", "[", 
           RowBox[{
            RowBox[{"zAnsatzEqs", "[", 
             RowBox[{"LocalFieldNumber", ",", "1"}], "]"}], ",", 
            RowBox[{"czList", "[", 
             RowBox[{"LocalFieldNumber", ",", "1"}], "]"}]}], "]"}], "/.", 
          RowBox[{
           RowBox[{"cz", "[", 
            RowBox[{"6", ",", "1", ",", "4"}], "]"}], "\[Rule]", "0"}]}], "/.", 
         RowBox[{
          RowBox[{"cz", "[", 
           RowBox[{"6", ",", "1", ",", "5"}], "]"}], "\[Rule]", "0"}]}], "/.", 
        RowBox[{
         RowBox[{"cz", "[", 
          RowBox[{"6", ",", "1", ",", "6"}], "]"}], "\[Rule]", "0"}]}], "/.", 
       
       RowBox[{
        RowBox[{"cz", "[", 
         RowBox[{"6", ",", "1", ",", "7"}], "]"}], "\[Rule]", "0"}]}], "/.", 
      RowBox[{
       RowBox[{"cz", "[", 
        RowBox[{"6", ",", "1", ",", "8"}], "]"}], "\[Rule]", "0"}]}], "/.", 
     RowBox[{
      RowBox[{"cz", "[", 
       RowBox[{"6", ",", "1", ",", "1"}], "]"}], "\[Rule]", "0"}]}], "/.", 
    RowBox[{
     RowBox[{"cz", "[", 
      RowBox[{"6", ",", "1", ",", "2"}], "]"}], "\[Rule]", "0"}]}], "/.", 
   RowBox[{
    RowBox[{"cz", "[", 
     RowBox[{"6", ",", "1", ",", "3"}], "]"}], "\[Rule]", "0"}]}], 
  "*)"}]], "Input",
 CellChangeTimes->{{3.749577253421693*^9, 3.7495772629715676`*^9}, {
  3.749577361131139*^9, 3.749577467483063*^9}},
 CellLabel->
  "In[209]:=",ExpressionUUID->"2ae786d3-df1b-4224-b245-a52aafc4a6bd"],

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"zAnsatzEqs", "[", 
     RowBox[{"LocalFieldNumber", ",", "ZChargeNum"}], "]"}], "=", 
    RowBox[{"DeleteCases", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"zAnsatz", "[", 
             RowBox[{"LocalFieldNumber", ",", "ZChargeNum"}], "]"}], "[", 
            RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], ")"}], "==", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"z", "[", 
               RowBox[{"LocalFieldNumber", ",", "ZChargeNum"}], "]"}], "[", 
              RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], "/.", 
             RowBox[{"ZSolutions", "[", "LocalFieldNumber", "]"}]}], "/.", 
            "ThisOneLooksGood"}], ")"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"ll", ",", "1", ",", "2"}], "}"}]}], "]"}], "//", 
       "Flatten"}], ",", "True"}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"ZChargeNum", ",", "1", ",", "NumZCharges"}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.7495763508436484`*^9, 3.7495763645793476`*^9}, {
  3.7495771857818656`*^9, 3.749577245971423*^9}, {3.7495775233159666`*^9, 
  3.7495775761474695`*^9}},
 CellLabel->
  "In[210]:=",ExpressionUUID->"cb51eb56-a431-4d63-a2f5-7f3327ac5d09"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"zSolution", "[", "LocalFieldNumber", "]"}], "=", 
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{"zAnsatzEqs", "[", 
        RowBox[{"LocalFieldNumber", ",", "ZChargeNum"}], "]"}], ",", 
       RowBox[{"czList", "[", 
        RowBox[{"LocalFieldNumber", ",", "ZChargeNum"}], "]"}]}], "]"}], ",", 
     
     RowBox[{"{", 
      RowBox[{"ZChargeNum", ",", "1", ",", "NumZCharges"}], "}"}]}], "]"}], "//",
    "Flatten"}]}]], "Input",
 CellChangeTimes->{{3.749577253421693*^9, 3.7495772629715676`*^9}, {
  3.749577361131139*^9, 3.749577467483063*^9}, {3.7495776158370543`*^9, 
  3.749577650915182*^9}, {3.74957783549321*^9, 3.749577836530856*^9}, {
  3.7495779832360067`*^9, 3.7495779944429903`*^9}, {3.7495783652371435`*^9, 
  3.7495783666589565`*^9}},
 CellLabel->
  "In[211]:=",ExpressionUUID->"095f04de-234c-4c2d-af72-82cd72d13f5e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"cz", "[", 
     RowBox[{"6", ",", "1", ",", "1"}], "]"}], "\[Rule]", 
    FractionBox["3", "4"]}], ",", 
   RowBox[{
    RowBox[{"cz", "[", 
     RowBox[{"6", ",", "1", ",", "2"}], "]"}], "\[Rule]", "1"}], ",", 
   RowBox[{
    RowBox[{"cz", "[", 
     RowBox[{"6", ",", "1", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{"-", 
     FractionBox["1", "4"]}]}], ",", 
   RowBox[{
    RowBox[{"cz", "[", 
     RowBox[{"6", ",", "1", ",", "4"}], "]"}], "\[Rule]", 
    RowBox[{"-", 
     FractionBox["3", "2"]}]}], ",", 
   RowBox[{
    RowBox[{"cz", "[", 
     RowBox[{"6", ",", "2", ",", "1"}], "]"}], "\[Rule]", 
    FractionBox["1", "8"]}], ",", 
   RowBox[{
    RowBox[{"cz", "[", 
     RowBox[{"6", ",", "2", ",", "2"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"cz", "[", 
     RowBox[{"6", ",", "2", ",", "3"}], "]"}], "\[Rule]", 
    FractionBox["1", "8"]}], ",", 
   RowBox[{
    RowBox[{"cz", "[", 
     RowBox[{"6", ",", "2", ",", "4"}], "]"}], "\[Rule]", 
    RowBox[{"-", 
     FractionBox["1", "4"]}]}], ",", 
   RowBox[{
    RowBox[{"cz", "[", 
     RowBox[{"6", ",", "3", ",", "1"}], "]"}], "\[Rule]", 
    FractionBox["1", "8"]}], ",", 
   RowBox[{
    RowBox[{"cz", "[", 
     RowBox[{"6", ",", "3", ",", "2"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"cz", "[", 
     RowBox[{"6", ",", "3", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{"-", 
     FractionBox["1", "8"]}]}], ",", 
   RowBox[{
    RowBox[{"cz", "[", 
     RowBox[{"6", ",", "3", ",", "4"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"cz", "[", 
     RowBox[{"6", ",", "4", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{"-", 
     FractionBox["1", "8"]}]}], ",", 
   RowBox[{
    RowBox[{"cz", "[", 
     RowBox[{"6", ",", "4", ",", "2"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"cz", "[", 
     RowBox[{"6", ",", "4", ",", "3"}], "]"}], "\[Rule]", 
    FractionBox["1", "8"]}], ",", 
   RowBox[{
    RowBox[{"cz", "[", 
     RowBox[{"6", ",", "4", ",", "4"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"cz", "[", 
     RowBox[{"6", ",", "5", ",", "1"}], "]"}], "\[Rule]", 
    FractionBox["3", "4"]}], ",", 
   RowBox[{
    RowBox[{"cz", "[", 
     RowBox[{"6", ",", "5", ",", "2"}], "]"}], "\[Rule]", 
    FractionBox["1", "2"]}], ",", 
   RowBox[{
    RowBox[{"cz", "[", 
     RowBox[{"6", ",", "5", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{"-", 
     FractionBox["3", "4"]}]}], ",", 
   RowBox[{
    RowBox[{"cz", "[", 
     RowBox[{"6", ",", "5", ",", "4"}], "]"}], "\[Rule]", 
    RowBox[{"-", 
     FractionBox["1", "2"]}]}], ",", 
   RowBox[{
    RowBox[{"cz", "[", 
     RowBox[{"6", ",", "6", ",", "1"}], "]"}], "\[Rule]", 
    FractionBox["1", "8"]}], ",", 
   RowBox[{
    RowBox[{"cz", "[", 
     RowBox[{"6", ",", "6", ",", "2"}], "]"}], "\[Rule]", 
    FractionBox["1", "4"]}], ",", 
   RowBox[{
    RowBox[{"cz", "[", 
     RowBox[{"6", ",", "6", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{"-", 
     FractionBox["3", "8"]}]}], ",", 
   RowBox[{
    RowBox[{"cz", "[", 
     RowBox[{"6", ",", "6", ",", "4"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"cz", "[", 
     RowBox[{"6", ",", "7", ",", "1"}], "]"}], "\[Rule]", 
    FractionBox["1", "4"]}], ",", 
   RowBox[{
    RowBox[{"cz", "[", 
     RowBox[{"6", ",", "7", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{"-", 
     FractionBox["1", "2"]}]}], ",", 
   RowBox[{
    RowBox[{"cz", "[", 
     RowBox[{"6", ",", "7", ",", "3"}], "]"}], "\[Rule]", 
    FractionBox["1", "4"]}], ",", 
   RowBox[{
    RowBox[{"cz", "[", 
     RowBox[{"6", ",", "7", ",", "4"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"cz", "[", 
     RowBox[{"6", ",", "8", ",", "1"}], "]"}], "\[Rule]", 
    FractionBox["3", "4"]}], ",", 
   RowBox[{
    RowBox[{"cz", "[", 
     RowBox[{"6", ",", "8", ",", "2"}], "]"}], "\[Rule]", 
    FractionBox["1", "2"]}], ",", 
   RowBox[{
    RowBox[{"cz", "[", 
     RowBox[{"6", ",", "8", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{"-", 
     FractionBox["3", "4"]}]}], ",", 
   RowBox[{
    RowBox[{"cz", "[", 
     RowBox[{"6", ",", "8", ",", "4"}], "]"}], "\[Rule]", 
    RowBox[{"-", 
     FractionBox["1", "2"]}]}]}], "}"}]], "Output",
 CellChangeTimes->{{3.7495774304716263`*^9, 3.7495774682708936`*^9}, 
   3.749577610286316*^9, 3.7495776546186934`*^9, 3.7495778436653137`*^9, 
   3.749577998389656*^9, 3.7495783706637774`*^9, 3.749841931923439*^9, 
   3.749858125138473*^9, 3.76047159119324*^9},
 CellLabel->
  "Out[211]=",ExpressionUUID->"f136d5a5-6ce9-4445-9a38-847eb6f81981"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[{
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       SubsuperscriptBox["D", "a", "i"], ",", 
       SubsuperscriptBox[
        OverscriptBox["D", "~"], "b", "j"]}], "}"}], 
     SubsuperscriptBox["\[CapitalPsi]", "c", "k"]}], "=", " ", 
    RowBox[{
     RowBox[{"2", " ", "i", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "1"}], "]"}], "ijkl"], 
      SubscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Mu]"], 
       SubsuperscriptBox[
        OverscriptBox["\[CapitalPsi]", "~"], "c", "l"]}]}], "+", 
     RowBox[{"2", " ", "i", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "3"}], "]"}], "ijkl"], 
      SubscriptBox[
       RowBox[{"(", 
        RowBox[{"[", 
         RowBox[{
          SuperscriptBox["\[Gamma]", "\[Mu]"], ",", 
          SuperscriptBox["\[Gamma]", "\[Nu]"]}], "]"}], ")"}], "ab"], 
      SuperscriptBox[
       SubscriptBox[
        RowBox[{"(", 
         SubscriptBox["\[Gamma]", "\[Nu]"], ")"}], "c"], "d"], 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Mu]"], 
       SubsuperscriptBox[
        OverscriptBox["\[CapitalPsi]", "~"], "d", "l"]}]}]}]}], 
   TraditionalForm], "\[IndentingNewLine]", 
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"+", "2"}], " ", "i", " ", 
     SuperscriptBox[
      RowBox[{"Z", "[", 
       RowBox[{"lfn", ",", "5"}], "]"}], "ijkl"], 
     SubscriptBox[
      RowBox[{"(", 
       SubscriptBox["\[Gamma]", "\[Nu]"], ")"}], "ab"], 
     SuperscriptBox[
      SubscriptBox[
       RowBox[{"(", 
        RowBox[{"[", 
         RowBox[{
          SuperscriptBox["\[Gamma]", "\[Nu]"], ",", 
          SuperscriptBox["\[Gamma]", "\[Mu]"]}], "]"}], ")"}], "c"], "d"], 
     RowBox[{
      SubscriptBox["\[PartialD]", "\[Mu]"], 
      SubsuperscriptBox[
       OverscriptBox["\[CapitalPsi]", "~"], "d", "l"]}]}], "+", 
    RowBox[{"2", " ", "i", " ", 
     SuperscriptBox[
      RowBox[{"Z", "[", 
       RowBox[{"lfn", ",", "7"}], "]"}], "ijkl"], 
     SubscriptBox[
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["\[Gamma]", "5"], "[", 
        RowBox[{
         SuperscriptBox["\[Gamma]", "\[Mu]"], ",", 
         SuperscriptBox["\[Gamma]", "\[Nu]"]}], "]"}], ")"}], "ab"], 
     SuperscriptBox[
      SubscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["\[Gamma]", "5"], 
         SubscriptBox["\[Gamma]", "\[Nu]"]}], ")"}], "c"], "d"], 
     RowBox[{
      SubscriptBox["\[PartialD]", "\[Mu]"], 
      SubsuperscriptBox[
       OverscriptBox["\[CapitalPsi]", "~"], "d", "l"]}]}]}], 
   TraditionalForm], "\[IndentingNewLine]", 
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"+", "2"}], " ", "i", " ", 
     SuperscriptBox[
      RowBox[{"Z", "[", 
       RowBox[{"lfn", ",", "9"}], "]"}], "ijkl"], 
     SubscriptBox[
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["\[Gamma]", "5"], 
        SuperscriptBox["\[Gamma]", "\[Mu]"]}], ")"}], "ab"], 
     SuperscriptBox[
      SubscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Gamma]", "5"], ")"}], "c"], "d"], 
     RowBox[{
      SubscriptBox["\[PartialD]", "\[Mu]"], 
      SubsuperscriptBox[
       OverscriptBox["\[CapitalPsi]", "~"], "d", "l"]}]}], "+", 
    RowBox[{"2", " ", "i", " ", 
     SuperscriptBox[
      RowBox[{"Z", "[", 
       RowBox[{"lfn", ",", "11"}], "]"}], "ijkl"], 
     SubscriptBox[
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["\[Gamma]", "5"], 
        SubscriptBox["\[Gamma]", "\[Nu]"]}], ")"}], "ab"], 
     SuperscriptBox[
      SubscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["\[Gamma]", "5"], "[", 
         RowBox[{
          SuperscriptBox["\[Gamma]", "\[Nu]"], ",", 
          SuperscriptBox["\[Gamma]", "\[Mu]"]}], "]"}], ")"}], "c"], "d"], 
     RowBox[{
      SubscriptBox["\[PartialD]", "\[Mu]"], 
      SubsuperscriptBox[
       OverscriptBox["\[CapitalPsi]", "~"], "d", "l"]}]}]}], 
   TraditionalForm], "\[IndentingNewLine]", 
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"+", "2"}], " ", "i", " ", 
     SuperscriptBox[
      RowBox[{"Z", "[", 
       RowBox[{"lfn", ",", "13"}], "]"}], "ijkl"], 
     SubscriptBox[
      RowBox[{"(", 
       SuperscriptBox["\[Gamma]", "5"], ")"}], "ab"], 
     SuperscriptBox[
      SubscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["\[Gamma]", "5"], 
         SuperscriptBox["\[Gamma]", "\[Mu]"]}], ")"}], "c"], "d"], 
     RowBox[{
      SubscriptBox["\[PartialD]", "\[Mu]"], 
      SubsuperscriptBox[
       OverscriptBox["\[CapitalPsi]", "~"], "d", "l"]}]}], "+", 
    RowBox[{"2", " ", "i", " ", 
     SuperscriptBox[
      RowBox[{"Z", "[", 
       RowBox[{"lfn", ",", "15"}], "]"}], "ijkl"], 
     SuperscriptBox[
      SubscriptBox[
       RowBox[{
        SubscriptBox["C", "ab"], "(", 
        SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "c"], "d"], 
     RowBox[{
      SubscriptBox["\[PartialD]", "\[Mu]"], 
      SubsuperscriptBox[
       OverscriptBox["\[CapitalPsi]", "~"], "d", "l"]}]}]}], 
   TraditionalForm]}], "None",ExpressionUUID->
  "7bf3ddad-009c-4299-a959-1d6b34cf17c9"],
 "\nFieldNumber = 6 "
}], "Subsubsection",
 CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, {
   3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 
   3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 
   3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, {
   3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7467956828758698`*^9, 
   3.7467957093182344`*^9}, {3.747486233439009*^9, 3.747486233439459*^9}, {
   3.748974362876294*^9, 3.748974380943577*^9}, {3.7495018761601076`*^9, 
   3.7495018780955925`*^9}, {3.749557195862426*^9, 3.749557197702502*^9}, {
   3.749557347016863*^9, 3.7495573795993056`*^9}, {3.749557461871316*^9, 
   3.749557461871316*^9}, {3.749557892705888*^9, 3.7495579076795397`*^9}, {
   3.749560349934149*^9, 3.749560351302229*^9}, {3.7495604389616103`*^9, 
   3.74956047235077*^9}, {3.7495605531165395`*^9, 3.749560603498867*^9}, {
   3.7495607758623023`*^9, 3.749560779952386*^9}, {3.7495611067358856`*^9, 
   3.749561117913103*^9}, {3.7495616076057587`*^9, 3.7495617278154073`*^9}, {
   3.749561809377316*^9, 3.749561830871812*^9}, {3.7495733110210323`*^9, 
   3.749573343964429*^9}},ExpressionUUID->"e2144c4c-92b6-487e-9e9e-\
5e69e3ea22d4"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalFieldNumber", " ", "=", "6"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"NumZCharges", " ", "=", " ", "8"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ZPrintout", "[", "LocalFieldNumber", "]"}], "=", " ", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      SubsuperscriptBox["Z", "nn", "ijkl"], "\[Equal]", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"cz", "[", 
          RowBox[{"LocalFieldNumber", ",", "nn", ",", "1"}], "]"}], 
         SuperscriptBox[
          RowBox[{"(", 
           SuperscriptBox["\[Sigma]", "3"], ")"}], "il"], 
         SuperscriptBox[
          RowBox[{"(", 
           SuperscriptBox["\[Sigma]", "1"], ")"}], "jk"]}], " ", "+", " ", 
        RowBox[{
         RowBox[{"cz", "[", 
          RowBox[{"LocalFieldNumber", ",", "nn", ",", "2"}], "]"}], 
         SuperscriptBox[
          RowBox[{"(", 
           SuperscriptBox["\[Sigma]", "3"], ")"}], "jk"], 
         SuperscriptBox[
          RowBox[{"(", 
           SuperscriptBox["\[Sigma]", "1"], ")"}], "il"]}], " ", "+", " ", 
        RowBox[{
         RowBox[{"cz", "[", 
          RowBox[{"LocalFieldNumber", ",", "nn", ",", "3"}], "]"}], 
         SuperscriptBox[
          RowBox[{"(", 
           SuperscriptBox["\[Sigma]", "3"], ")"}], "jl"], 
         SuperscriptBox[
          RowBox[{"(", 
           SuperscriptBox["\[Sigma]", "1"], ")"}], "ik"]}], "+", 
        RowBox[{
         RowBox[{"cz", "[", 
          RowBox[{"LocalFieldNumber", ",", "nn", ",", "4"}], "]"}], 
         SuperscriptBox[
          RowBox[{"(", 
           SuperscriptBox["\[Sigma]", "3"], ")"}], "kl"], 
         SuperscriptBox[
          RowBox[{"(", 
           SuperscriptBox["\[Sigma]", "1"], ")"}], "ij"]}]}], " ", " ", 
       ")"}]}], "/.", 
     RowBox[{"zSolution", "[", "LocalFieldNumber", "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"nn", ",", "1", ",", "NumZCharges"}], "}"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ZPrintoutTeXForm", "[", "LocalFieldNumber", " ", "]"}], " ", "=", 
  " ", 
  RowBox[{"TeXForm", "[", "%", "]"}]}]}], "Input",
 CellChangeTimes->{{3.7495780063573227`*^9, 3.7495781646272116`*^9}, {
  3.749578262989594*^9, 3.7495782901891236`*^9}, {3.7495783877325544`*^9, 
  3.7495783906908474`*^9}, {3.7495784331730666`*^9, 3.749578593042631*^9}, {
  3.7495786477334447`*^9, 3.7495786558599825`*^9}, {3.749858200426928*^9, 
  3.749858229196238*^9}},
 CellLabel->
  "In[212]:=",ExpressionUUID->"6a8b909e-5656-4d59-b940-0f76eb218a15"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    SubsuperscriptBox["Z", "1", "ijkl"], "\[Equal]", 
    RowBox[{
     RowBox[{
      FractionBox["3", "4"], " ", 
      SuperscriptBox["\[Sigma]", "jk"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Sigma]", "3"], ")"}], "il"]}], "+", 
     RowBox[{
      SuperscriptBox["\[Sigma]", "il"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Sigma]", "3"], ")"}], "jk"]}], "-", 
     RowBox[{
      FractionBox["1", "4"], " ", 
      SuperscriptBox["\[Sigma]", "ik"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Sigma]", "3"], ")"}], "jl"]}], "-", 
     RowBox[{
      FractionBox["3", "2"], " ", 
      SuperscriptBox["\[Sigma]", "ij"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Sigma]", "3"], ")"}], "kl"]}]}]}], ",", 
   RowBox[{
    SubsuperscriptBox["Z", "2", "ijkl"], "\[Equal]", 
    RowBox[{
     RowBox[{
      FractionBox["1", "8"], " ", 
      SuperscriptBox["\[Sigma]", "jk"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Sigma]", "3"], ")"}], "il"]}], "+", 
     RowBox[{
      FractionBox["1", "8"], " ", 
      SuperscriptBox["\[Sigma]", "ik"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Sigma]", "3"], ")"}], "jl"]}], "-", 
     RowBox[{
      FractionBox["1", "4"], " ", 
      SuperscriptBox["\[Sigma]", "ij"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Sigma]", "3"], ")"}], "kl"]}]}]}], ",", 
   RowBox[{
    SubsuperscriptBox["Z", "3", "ijkl"], "\[Equal]", 
    RowBox[{
     RowBox[{
      FractionBox["1", "8"], " ", 
      SuperscriptBox["\[Sigma]", "jk"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Sigma]", "3"], ")"}], "il"]}], "-", 
     RowBox[{
      FractionBox["1", "8"], " ", 
      SuperscriptBox["\[Sigma]", "ik"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Sigma]", "3"], ")"}], "jl"]}]}]}], ",", 
   RowBox[{
    SubsuperscriptBox["Z", "4", "ijkl"], "\[Equal]", 
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       FractionBox["1", "8"]}], " ", 
      SuperscriptBox["\[Sigma]", "jk"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Sigma]", "3"], ")"}], "il"]}], "+", 
     RowBox[{
      FractionBox["1", "8"], " ", 
      SuperscriptBox["\[Sigma]", "ik"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Sigma]", "3"], ")"}], "jl"]}]}]}], ",", 
   RowBox[{
    SubsuperscriptBox["Z", "5", "ijkl"], "\[Equal]", 
    RowBox[{
     RowBox[{
      FractionBox["3", "4"], " ", 
      SuperscriptBox["\[Sigma]", "jk"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Sigma]", "3"], ")"}], "il"]}], "+", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      SuperscriptBox["\[Sigma]", "il"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Sigma]", "3"], ")"}], "jk"]}], "-", 
     RowBox[{
      FractionBox["3", "4"], " ", 
      SuperscriptBox["\[Sigma]", "ik"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Sigma]", "3"], ")"}], "jl"]}], "-", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      SuperscriptBox["\[Sigma]", "ij"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Sigma]", "3"], ")"}], "kl"]}]}]}], ",", 
   RowBox[{
    SubsuperscriptBox["Z", "6", "ijkl"], "\[Equal]", 
    RowBox[{
     RowBox[{
      FractionBox["1", "8"], " ", 
      SuperscriptBox["\[Sigma]", "jk"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Sigma]", "3"], ")"}], "il"]}], "+", 
     RowBox[{
      FractionBox["1", "4"], " ", 
      SuperscriptBox["\[Sigma]", "il"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Sigma]", "3"], ")"}], "jk"]}], "-", 
     RowBox[{
      FractionBox["3", "8"], " ", 
      SuperscriptBox["\[Sigma]", "ik"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Sigma]", "3"], ")"}], "jl"]}]}]}], ",", 
   RowBox[{
    SubsuperscriptBox["Z", "7", "ijkl"], "\[Equal]", 
    RowBox[{
     RowBox[{
      FractionBox["1", "4"], " ", 
      SuperscriptBox["\[Sigma]", "jk"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Sigma]", "3"], ")"}], "il"]}], "-", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      SuperscriptBox["\[Sigma]", "il"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Sigma]", "3"], ")"}], "jk"]}], "+", 
     RowBox[{
      FractionBox["1", "4"], " ", 
      SuperscriptBox["\[Sigma]", "ik"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Sigma]", "3"], ")"}], "jl"]}]}]}], ",", 
   RowBox[{
    SubsuperscriptBox["Z", "8", "ijkl"], "\[Equal]", 
    RowBox[{
     RowBox[{
      FractionBox["3", "4"], " ", 
      SuperscriptBox["\[Sigma]", "jk"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Sigma]", "3"], ")"}], "il"]}], "+", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      SuperscriptBox["\[Sigma]", "il"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Sigma]", "3"], ")"}], "jk"]}], "-", 
     RowBox[{
      FractionBox["3", "4"], " ", 
      SuperscriptBox["\[Sigma]", "ik"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Sigma]", "3"], ")"}], "jl"]}], "-", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      SuperscriptBox["\[Sigma]", "ij"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Sigma]", "3"], ")"}], "kl"]}]}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.7498582173399057`*^9, 3.749858230196842*^9}, 
   3.7604715912023153`*^9},
 CellLabel->
  "Out[214]=",ExpressionUUID->"31cec6ad-1648-49dd-8761-cdf081b1cd6a"],

Cell["\<\
\\left\\{Z_1^{\\text{ijkl}}=-\\frac{3}{2} \\sigma ^{\\text{ij}} \
\\left(\\sigma ^3\\right)^{\\text{kl}}-\\frac{1}{4}
   \\sigma ^{\\text{ik}} \\left(\\sigma ^3\\right)^{\\text{jl}}+\\frac{3}{4} \
\\left(\\sigma ^3\\right)^{\\text{il}}
   \\sigma ^{\\text{jk}}+\\sigma ^{\\text{il}} \\left(\\sigma
   ^3\\right)^{\\text{jk}},Z_2^{\\text{ijkl}}=-\\frac{1}{4} \\sigma \
^{\\text{ij}} \\left(\\sigma
   ^3\\right)^{\\text{kl}}+\\frac{1}{8} \\sigma ^{\\text{ik}} \\left(\\sigma \
^3\\right)^{\\text{jl}}+\\frac{1}{8}
   \\left(\\sigma ^3\\right)^{\\text{il}} \\sigma \
^{\\text{jk}},Z_3^{\\text{ijkl}}=\\frac{1}{8} \\left(\\sigma
   ^3\\right)^{\\text{il}} \\sigma ^{\\text{jk}}-\\frac{1}{8} \\sigma \
^{\\text{ik}} \\left(\\sigma
   ^3\\right)^{\\text{jl}},Z_4^{\\text{ijkl}}=\\frac{1}{8} \\sigma \
^{\\text{ik}} \\left(\\sigma
   ^3\\right)^{\\text{jl}}-\\frac{1}{8} \\left(\\sigma \
^3\\right)^{\\text{il}} \\sigma
   ^{\\text{jk}},Z_5^{\\text{ijkl}}=-\\frac{1}{2} \\sigma ^{\\text{ij}} \
\\left(\\sigma
   ^3\\right)^{\\text{kl}}-\\frac{3}{4} \\sigma ^{\\text{ik}} \\left(\\sigma \
^3\\right)^{\\text{jl}}+\\frac{3}{4}
   \\left(\\sigma ^3\\right)^{\\text{il}} \\sigma ^{\\text{jk}}+\\frac{1}{2} \
\\sigma ^{\\text{il}} \\left(\\sigma
   ^3\\right)^{\\text{jk}},Z_6^{\\text{ijkl}}=-\\frac{3}{8} \\sigma \
^{\\text{ik}} \\left(\\sigma
   ^3\\right)^{\\text{jl}}+\\frac{1}{8} \\left(\\sigma \
^3\\right)^{\\text{il}} \\sigma ^{\\text{jk}}+\\frac{1}{4}
   \\sigma ^{\\text{il}} \\left(\\sigma \
^3\\right)^{\\text{jk}},Z_7^{\\text{ijkl}}=\\frac{1}{4} \\sigma
   ^{\\text{ik}} \\left(\\sigma ^3\\right)^{\\text{jl}}+\\frac{1}{4} \
\\left(\\sigma ^3\\right)^{\\text{il}} \\sigma
   ^{\\text{jk}}-\\frac{1}{2} \\sigma ^{\\text{il}} \\left(\\sigma
   ^3\\right)^{\\text{jk}},Z_8^{\\text{ijkl}}=-\\frac{1}{2} \\sigma \
^{\\text{ij}} \\left(\\sigma
   ^3\\right)^{\\text{kl}}-\\frac{3}{4} \\sigma ^{\\text{ik}} \\left(\\sigma \
^3\\right)^{\\text{jl}}+\\frac{3}{4}
   \\left(\\sigma ^3\\right)^{\\text{il}} \\sigma ^{\\text{jk}}+\\frac{1}{2} \
\\sigma ^{\\text{il}} \\left(\\sigma
   ^3\\right)^{\\text{jk}}\\right\\}\
\>", "Output",
 CellChangeTimes->{{3.7498582173399057`*^9, 3.749858230196842*^9}, 
   3.760471591253157*^9},
 CellLabel->
  "Out[215]//TeXForm=",ExpressionUUID->"c0edc76c-979f-4cf1-9e47-ecd251d1447c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"ZPrintout", "[", "LocalFieldNumber", "]"}], "=", " ", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      SubsuperscriptBox["Z", "nn", "ijkl"], "\[Equal]", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"cz", "[", 
          RowBox[{"LocalFieldNumber", ",", "nn", ",", "1"}], "]"}], 
         SuperscriptBox[
          RowBox[{"(", 
           SuperscriptBox["\[Sigma]", "3"], ")"}], "il"], 
         SuperscriptBox[
          RowBox[{"(", 
           SuperscriptBox["\[Sigma]", "1"], ")"}], "jk"]}], " ", "+", " ", 
        RowBox[{
         RowBox[{"cz", "[", 
          RowBox[{"LocalFieldNumber", ",", "nn", ",", "2"}], "]"}], 
         SuperscriptBox[
          RowBox[{"(", 
           SuperscriptBox["\[Sigma]", "3"], ")"}], "jk"], 
         SuperscriptBox[
          RowBox[{"(", 
           SuperscriptBox["\[Sigma]", "1"], ")"}], "il"]}], " ", "+", " ", 
        RowBox[{
         RowBox[{"cz", "[", 
          RowBox[{"LocalFieldNumber", ",", "nn", ",", "3"}], "]"}], 
         SuperscriptBox[
          RowBox[{"(", 
           SuperscriptBox["\[Sigma]", "3"], ")"}], "jl"], 
         SuperscriptBox[
          RowBox[{"(", 
           SuperscriptBox["\[Sigma]", "1"], ")"}], "ik"]}], "+", 
        RowBox[{
         RowBox[{"cz", "[", 
          RowBox[{"LocalFieldNumber", ",", "nn", ",", "4"}], "]"}], 
         SuperscriptBox[
          RowBox[{"(", 
           SuperscriptBox["\[Sigma]", "3"], ")"}], "kl"], 
         SuperscriptBox[
          RowBox[{"(", 
           SuperscriptBox["\[Sigma]", "1"], ")"}], "ij"]}]}], " ", " ", 
       ")"}]}], "/.", 
     RowBox[{"zSolution", "[", "LocalFieldNumber", "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"nn", ",", "1", ",", "NumZCharges"}], "}"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ZPrintoutTeXForm", "[", "LocalFieldNumber", " ", "]"}], " ", "=", 
  " ", 
  RowBox[{"TeXForm", "[", "%", "]"}]}]}], "Input",
 CellChangeTimes->{{3.7495780063573227`*^9, 3.7495781646272116`*^9}, {
  3.749578262989594*^9, 3.7495782901891236`*^9}, {3.7495783877325544`*^9, 
  3.7495783906908474`*^9}, {3.7495784331730666`*^9, 3.749578593042631*^9}, {
  3.7495786477334447`*^9, 3.7495786558599825`*^9}},
 CellLabel->
  "In[216]:=",ExpressionUUID->"cb4e24e3-2f25-4750-9335-7117b004cef1"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    SubsuperscriptBox["Z", "1", "ijkl"], "\[Equal]", 
    RowBox[{
     RowBox[{
      FractionBox["3", "4"], " ", 
      SuperscriptBox["\[Sigma]", "jk"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Sigma]", "3"], ")"}], "il"]}], "+", 
     RowBox[{
      SuperscriptBox["\[Sigma]", "il"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Sigma]", "3"], ")"}], "jk"]}], "-", 
     RowBox[{
      FractionBox["1", "4"], " ", 
      SuperscriptBox["\[Sigma]", "ik"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Sigma]", "3"], ")"}], "jl"]}], "-", 
     RowBox[{
      FractionBox["3", "2"], " ", 
      SuperscriptBox["\[Sigma]", "ij"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Sigma]", "3"], ")"}], "kl"]}]}]}], ",", 
   RowBox[{
    SubsuperscriptBox["Z", "2", "ijkl"], "\[Equal]", 
    RowBox[{
     RowBox[{
      FractionBox["1", "8"], " ", 
      SuperscriptBox["\[Sigma]", "jk"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Sigma]", "3"], ")"}], "il"]}], "+", 
     RowBox[{
      FractionBox["1", "8"], " ", 
      SuperscriptBox["\[Sigma]", "ik"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Sigma]", "3"], ")"}], "jl"]}], "-", 
     RowBox[{
      FractionBox["1", "4"], " ", 
      SuperscriptBox["\[Sigma]", "ij"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Sigma]", "3"], ")"}], "kl"]}]}]}], ",", 
   RowBox[{
    SubsuperscriptBox["Z", "3", "ijkl"], "\[Equal]", 
    RowBox[{
     RowBox[{
      FractionBox["1", "8"], " ", 
      SuperscriptBox["\[Sigma]", "jk"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Sigma]", "3"], ")"}], "il"]}], "-", 
     RowBox[{
      FractionBox["1", "8"], " ", 
      SuperscriptBox["\[Sigma]", "ik"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Sigma]", "3"], ")"}], "jl"]}]}]}], ",", 
   RowBox[{
    SubsuperscriptBox["Z", "4", "ijkl"], "\[Equal]", 
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       FractionBox["1", "8"]}], " ", 
      SuperscriptBox["\[Sigma]", "jk"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Sigma]", "3"], ")"}], "il"]}], "+", 
     RowBox[{
      FractionBox["1", "8"], " ", 
      SuperscriptBox["\[Sigma]", "ik"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Sigma]", "3"], ")"}], "jl"]}]}]}], ",", 
   RowBox[{
    SubsuperscriptBox["Z", "5", "ijkl"], "\[Equal]", 
    RowBox[{
     RowBox[{
      FractionBox["3", "4"], " ", 
      SuperscriptBox["\[Sigma]", "jk"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Sigma]", "3"], ")"}], "il"]}], "+", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      SuperscriptBox["\[Sigma]", "il"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Sigma]", "3"], ")"}], "jk"]}], "-", 
     RowBox[{
      FractionBox["3", "4"], " ", 
      SuperscriptBox["\[Sigma]", "ik"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Sigma]", "3"], ")"}], "jl"]}], "-", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      SuperscriptBox["\[Sigma]", "ij"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Sigma]", "3"], ")"}], "kl"]}]}]}], ",", 
   RowBox[{
    SubsuperscriptBox["Z", "6", "ijkl"], "\[Equal]", 
    RowBox[{
     RowBox[{
      FractionBox["1", "8"], " ", 
      SuperscriptBox["\[Sigma]", "jk"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Sigma]", "3"], ")"}], "il"]}], "+", 
     RowBox[{
      FractionBox["1", "4"], " ", 
      SuperscriptBox["\[Sigma]", "il"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Sigma]", "3"], ")"}], "jk"]}], "-", 
     RowBox[{
      FractionBox["3", "8"], " ", 
      SuperscriptBox["\[Sigma]", "ik"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Sigma]", "3"], ")"}], "jl"]}]}]}], ",", 
   RowBox[{
    SubsuperscriptBox["Z", "7", "ijkl"], "\[Equal]", 
    RowBox[{
     RowBox[{
      FractionBox["1", "4"], " ", 
      SuperscriptBox["\[Sigma]", "jk"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Sigma]", "3"], ")"}], "il"]}], "-", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      SuperscriptBox["\[Sigma]", "il"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Sigma]", "3"], ")"}], "jk"]}], "+", 
     RowBox[{
      FractionBox["1", "4"], " ", 
      SuperscriptBox["\[Sigma]", "ik"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Sigma]", "3"], ")"}], "jl"]}]}]}], ",", 
   RowBox[{
    SubsuperscriptBox["Z", "8", "ijkl"], "\[Equal]", 
    RowBox[{
     RowBox[{
      FractionBox["3", "4"], " ", 
      SuperscriptBox["\[Sigma]", "jk"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Sigma]", "3"], ")"}], "il"]}], "+", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      SuperscriptBox["\[Sigma]", "il"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Sigma]", "3"], ")"}], "jk"]}], "-", 
     RowBox[{
      FractionBox["3", "4"], " ", 
      SuperscriptBox["\[Sigma]", "ik"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Sigma]", "3"], ")"}], "jl"]}], "-", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      SuperscriptBox["\[Sigma]", "ij"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Sigma]", "3"], ")"}], "kl"]}]}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.7495781555643764`*^9, 3.7495781655574865`*^9}, {
   3.74957827036876*^9, 3.7495782917270346`*^9}, {3.749578375915585*^9, 
   3.749578391486059*^9}, {3.749578449756811*^9, 3.7495784573016443`*^9}, 
   3.7495785261028976`*^9, 3.7495785647655687`*^9, 3.749578596357394*^9, {
   3.749578649992343*^9, 3.7495786568545847`*^9}, 3.7498419319432483`*^9, 
   3.7498581252522078`*^9, 3.7604715912897825`*^9},
 CellLabel->
  "Out[216]=",ExpressionUUID->"22c75f18-854a-4d79-b2d7-3b258edab980"],

Cell["\<\
\\left\\{Z_1^{\\text{ijkl}}=-\\frac{3}{2} \\sigma ^{\\text{ij}} \
\\left(\\sigma ^3\\right)^{\\text{kl}}-\\frac{1}{4}
   \\sigma ^{\\text{ik}} \\left(\\sigma ^3\\right)^{\\text{jl}}+\\frac{3}{4} \
\\left(\\sigma ^3\\right)^{\\text{il}}
   \\sigma ^{\\text{jk}}+\\sigma ^{\\text{il}} \\left(\\sigma
   ^3\\right)^{\\text{jk}},Z_2^{\\text{ijkl}}=-\\frac{1}{4} \\sigma \
^{\\text{ij}} \\left(\\sigma
   ^3\\right)^{\\text{kl}}+\\frac{1}{8} \\sigma ^{\\text{ik}} \\left(\\sigma \
^3\\right)^{\\text{jl}}+\\frac{1}{8}
   \\left(\\sigma ^3\\right)^{\\text{il}} \\sigma \
^{\\text{jk}},Z_3^{\\text{ijkl}}=\\frac{1}{8} \\left(\\sigma
   ^3\\right)^{\\text{il}} \\sigma ^{\\text{jk}}-\\frac{1}{8} \\sigma \
^{\\text{ik}} \\left(\\sigma
   ^3\\right)^{\\text{jl}},Z_4^{\\text{ijkl}}=\\frac{1}{8} \\sigma \
^{\\text{ik}} \\left(\\sigma
   ^3\\right)^{\\text{jl}}-\\frac{1}{8} \\left(\\sigma \
^3\\right)^{\\text{il}} \\sigma
   ^{\\text{jk}},Z_5^{\\text{ijkl}}=-\\frac{1}{2} \\sigma ^{\\text{ij}} \
\\left(\\sigma
   ^3\\right)^{\\text{kl}}-\\frac{3}{4} \\sigma ^{\\text{ik}} \\left(\\sigma \
^3\\right)^{\\text{jl}}+\\frac{3}{4}
   \\left(\\sigma ^3\\right)^{\\text{il}} \\sigma ^{\\text{jk}}+\\frac{1}{2} \
\\sigma ^{\\text{il}} \\left(\\sigma
   ^3\\right)^{\\text{jk}},Z_6^{\\text{ijkl}}=-\\frac{3}{8} \\sigma \
^{\\text{ik}} \\left(\\sigma
   ^3\\right)^{\\text{jl}}+\\frac{1}{8} \\left(\\sigma \
^3\\right)^{\\text{il}} \\sigma ^{\\text{jk}}+\\frac{1}{4}
   \\sigma ^{\\text{il}} \\left(\\sigma \
^3\\right)^{\\text{jk}},Z_7^{\\text{ijkl}}=\\frac{1}{4} \\sigma
   ^{\\text{ik}} \\left(\\sigma ^3\\right)^{\\text{jl}}+\\frac{1}{4} \
\\left(\\sigma ^3\\right)^{\\text{il}} \\sigma
   ^{\\text{jk}}-\\frac{1}{2} \\sigma ^{\\text{il}} \\left(\\sigma
   ^3\\right)^{\\text{jk}},Z_8^{\\text{ijkl}}=-\\frac{1}{2} \\sigma \
^{\\text{ij}} \\left(\\sigma
   ^3\\right)^{\\text{kl}}-\\frac{3}{4} \\sigma ^{\\text{ik}} \\left(\\sigma \
^3\\right)^{\\text{jl}}+\\frac{3}{4}
   \\left(\\sigma ^3\\right)^{\\text{il}} \\sigma ^{\\text{jk}}+\\frac{1}{2} \
\\sigma ^{\\text{il}} \\left(\\sigma
   ^3\\right)^{\\text{jk}}\\right\\}\
\>", "Output",
 CellChangeTimes->{{3.7495781555643764`*^9, 3.7495781655574865`*^9}, {
   3.74957827036876*^9, 3.7495782917270346`*^9}, {3.749578375915585*^9, 
   3.749578391486059*^9}, {3.749578449756811*^9, 3.7495784573016443`*^9}, 
   3.7495785261028976`*^9, 3.7495785647655687`*^9, 3.749578596357394*^9, {
   3.749578649992343*^9, 3.7495786568545847`*^9}, 3.7498419319432483`*^9, 
   3.7498581252522078`*^9, 3.760471591353181*^9},
 CellLabel->
  "Out[217]//TeXForm=",ExpressionUUID->"9219f3e5-6f02-4760-960c-4f910ddc41a2"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{"LocalFieldNumber", ",", "NumZCharges"}], "]"}]], "Input",
 CellChangeTimes->{{3.747496499638111*^9, 3.7474965053367357`*^9}, 
   3.7494912134588275`*^9, {3.7494922309540925`*^9, 3.7494922358260307`*^9}},
 CellLabel->
  "In[218]:=",ExpressionUUID->"7f48cb54-bf59-4603-8042-cb89e3e564e1"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[{
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       SubsuperscriptBox["D", "a", "i"], ",", 
       SubsuperscriptBox[
        OverscriptBox["D", "~"], "b", "j"]}], "}"}], 
     SubsuperscriptBox[
      OverscriptBox["\[CapitalPsi]", "~"], "c", "k"]}], "=", " ", 
    RowBox[{
     RowBox[{"2", " ", "i", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "1"}], "]"}], "ijkl"], 
      SubscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Mu]"], 
       SubsuperscriptBox["\[CapitalPsi]", "c", "l"]}]}], "+", 
     RowBox[{"2", " ", "i", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "2"}], "]"}], "ijkl"], 
      SubscriptBox[
       RowBox[{"(", 
        RowBox[{"[", 
         RowBox[{
          SuperscriptBox["\[Gamma]", "\[Mu]"], ",", 
          SuperscriptBox["\[Gamma]", "\[Nu]"]}], "]"}], ")"}], "ab"], 
      SuperscriptBox[
       SubscriptBox[
        RowBox[{"(", 
         SubscriptBox["\[Gamma]", "\[Nu]"], ")"}], "c"], "d"], 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Mu]"], 
       SubsuperscriptBox["\[CapitalPsi]", "d", "l"]}]}]}]}], 
   TraditionalForm], "\[IndentingNewLine]", 
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"+", "2"}], " ", "i", " ", 
     SuperscriptBox[
      RowBox[{"Z", "[", 
       RowBox[{"lfn", ",", "3"}], "]"}], "ijkl"], 
     SubscriptBox[
      RowBox[{"(", 
       SubscriptBox["\[Gamma]", "\[Nu]"], ")"}], "ab"], 
     SuperscriptBox[
      SubscriptBox[
       RowBox[{"(", 
        RowBox[{"[", 
         RowBox[{
          SuperscriptBox["\[Gamma]", "\[Nu]"], ",", 
          SuperscriptBox["\[Gamma]", "\[Mu]"]}], "]"}], ")"}], "c"], "d"], 
     RowBox[{
      SubscriptBox["\[PartialD]", "\[Mu]"], 
      SubsuperscriptBox["\[CapitalPsi]", "d", "l"]}]}], "+", 
    RowBox[{"2", " ", "i", " ", 
     SuperscriptBox[
      RowBox[{"Z", "[", 
       RowBox[{"lfn", ",", "4"}], "]"}], "ijkl"], 
     SubscriptBox[
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["\[Gamma]", "5"], "[", 
        RowBox[{
         SuperscriptBox["\[Gamma]", "\[Mu]"], ",", 
         SuperscriptBox["\[Gamma]", "\[Nu]"]}], "]"}], ")"}], "ab"], 
     SuperscriptBox[
      SubscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["\[Gamma]", "5"], 
         SubscriptBox["\[Gamma]", "\[Nu]"]}], ")"}], "c"], "d"], 
     RowBox[{
      SubscriptBox["\[PartialD]", "\[Mu]"], 
      SubsuperscriptBox["\[CapitalPsi]", "d", "l"]}]}]}], 
   TraditionalForm], "\[IndentingNewLine]", 
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"+", "2"}], " ", "i", " ", 
     SuperscriptBox[
      RowBox[{"Z", "[", 
       RowBox[{"lfn", ",", "5"}], "]"}], "ijkl"], 
     SubscriptBox[
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["\[Gamma]", "5"], 
        SuperscriptBox["\[Gamma]", "\[Mu]"]}], ")"}], "ab"], 
     SuperscriptBox[
      SubscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Gamma]", "5"], ")"}], "c"], "d"], 
     RowBox[{
      SubscriptBox["\[PartialD]", "\[Mu]"], 
      SubsuperscriptBox["\[CapitalPsi]", "d", "l"]}]}], "+", 
    RowBox[{"2", " ", "i", " ", 
     SuperscriptBox[
      RowBox[{"Z", "[", 
       RowBox[{"lfn", ",", "6"}], "]"}], "ijkl"], 
     SubscriptBox[
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["\[Gamma]", "5"], 
        SubscriptBox["\[Gamma]", "\[Nu]"]}], ")"}], "ab"], 
     SuperscriptBox[
      SubscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["\[Gamma]", "5"], "[", 
         RowBox[{
          SuperscriptBox["\[Gamma]", "\[Nu]"], ",", 
          SuperscriptBox["\[Gamma]", "\[Mu]"]}], "]"}], ")"}], "c"], "d"], 
     RowBox[{
      SubscriptBox["\[PartialD]", "\[Mu]"], 
      SubsuperscriptBox["\[CapitalPsi]", "d", "l"]}]}]}], 
   TraditionalForm], "\[IndentingNewLine]", 
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"+", "2"}], " ", "i", " ", 
     SuperscriptBox[
      RowBox[{"Z", "[", 
       RowBox[{"lfn", ",", "7"}], "]"}], "ijkl"], 
     SubscriptBox[
      RowBox[{"(", 
       SuperscriptBox["\[Gamma]", "5"], ")"}], "ab"], 
     SuperscriptBox[
      SubscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["\[Gamma]", "5"], 
         SuperscriptBox["\[Gamma]", "\[Mu]"]}], ")"}], "c"], "d"], 
     RowBox[{
      SubscriptBox["\[PartialD]", "\[Mu]"], 
      SubsuperscriptBox["\[CapitalPsi]", "d", "l"]}]}], "+", 
    RowBox[{"2", " ", "i", " ", 
     SuperscriptBox[
      RowBox[{"Z", "[", 
       RowBox[{"lfn", ",", "8"}], "]"}], "ijkl"], 
     SuperscriptBox[
      SubscriptBox[
       RowBox[{
        SubscriptBox["C", "ab"], "(", 
        SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "c"], "d"], 
     RowBox[{
      SubscriptBox["\[PartialD]", "\[Mu]"], 
      SubsuperscriptBox["\[CapitalPsi]", "d", "l"]}]}]}], TraditionalForm]}], 
  "None",ExpressionUUID->"db6ca5e8-0cd4-4234-8cad-a7d1fbfec38c"],
 "\nFieldNumber = 13 "
}], "Subsection",
 CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, {
   3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 
   3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 
   3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, {
   3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7467956828758698`*^9, 
   3.7467957093182344`*^9}, {3.747486233439009*^9, 3.747486233439459*^9}, {
   3.748974362876294*^9, 3.748974380943577*^9}, {3.7495018761601076`*^9, 
   3.7495018780955925`*^9}, {3.749557195862426*^9, 3.749557197702502*^9}, {
   3.749557347016863*^9, 3.7495573795993056`*^9}, {3.749557461871316*^9, 
   3.749557461871316*^9}, {3.749557892705888*^9, 3.7495579076795397`*^9}, {
   3.749560349934149*^9, 3.749560351302229*^9}, {3.7495604389616103`*^9, 
   3.74956047235077*^9}, {3.7495605531165395`*^9, 3.749560603498867*^9}, {
   3.7495607758623023`*^9, 3.749560779952386*^9}, {3.7495611067358856`*^9, 
   3.749561117913103*^9}, {3.7495616076057587`*^9, 3.7495617278154073`*^9}, {
   3.749561809377316*^9, 3.749561830871812*^9}, {3.7495733110210323`*^9, 
   3.749573343964429*^9}, {3.749578684126068*^9, 3.749578724554981*^9}, {
   3.749857610958766*^9, 
   3.7498576267802553`*^9}},ExpressionUUID->"f76b8594-424b-4d90-912d-\
db0daa9c3838"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"LocalFieldNumber", " ", "=", " ", "13"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"NumZCharges", " ", "=", " ", "8"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"CentralChargeList", "[", "LocalFieldNumber", "]"}], " ", "=", " ", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"z", "[", 
        RowBox[{"LocalFieldNumber", ",", "FieldNumber"}], "]"}], "[", 
       RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"FieldNumber", ",", "1", ",", "NumZCharges"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"ll", ",", "1", ",", "2"}], "}"}]}], "]"}], "//", 
    "Flatten"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.748966071586817*^9, 3.748966075509182*^9}, {
   3.748974654683647*^9, 3.748974655525069*^9}, {3.7495572897840953`*^9, 
   3.7495572947268596`*^9}, 3.749557340926882*^9, 3.7495603155271015`*^9, {
   3.749561792511219*^9, 3.7495617926296015`*^9}, 3.7495729698454585`*^9, {
   3.749573048932381*^9, 3.749573087972364*^9}, {3.749578738428624*^9, 
   3.7495787458911*^9}},
 CellLabel->
  "In[219]:=",ExpressionUUID->"ebf7d9ea-1bff-460d-8d40-d36475ee7e75"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Z", "[", "LocalFieldNumber", "]"}], "[", 
    RowBox[{"ii_", ",", "jj_", ",", "kk_"}], "]"}], "[", 
   RowBox[{"aa_", ",", "bb_", ",", "cc_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"2", " ", "I", " ", 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"z", "[", 
         RowBox[{"LocalFieldNumber", ",", "1"}], "]"}], "[", 
        RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
       RowBox[{
        RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"\[CapitalPsi]", "[", "ll", "]"}], "[", "cc", "]"}], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
         RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "+", 
   RowBox[{"2", "I", " ", 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"z", "[", 
         RowBox[{"LocalFieldNumber", ",", "2"}], "]"}], "[", 
        RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
       RowBox[{
        RowBox[{"CommuteGammadown", "[", 
         RowBox[{"mu", ",", "nu"}], "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{
        RowBox[{"\[Gamma]stdown", "[", "nu", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"cc", ",", "dd"}], "]"}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"\[CapitalPsi]", "[", "ll", "]"}], "[", "dd", "]"}], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
         RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "+", 
   RowBox[{"2", "I", " ", 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"z", "[", 
         RowBox[{"LocalFieldNumber", ",", "3"}], "]"}], "[", 
        RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
       RowBox[{
        RowBox[{"\[Gamma]stdowndown", "[", "nu", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{
        RowBox[{"CommuteGamma", "[", 
         RowBox[{"nu", ",", "mu"}], "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"cc", ",", "dd"}], "]"}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"\[CapitalPsi]", "[", "ll", "]"}], "[", "dd", "]"}], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
         RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "+", 
   RowBox[{"2", "I", " ", 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"z", "[", 
         RowBox[{"LocalFieldNumber", ",", "4"}], "]"}], "[", 
        RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"\[Gamma]5", ".", 
          RowBox[{"CommuteGammadown", "[", 
           RowBox[{"mu", ",", "nu"}], "]"}]}], ")"}], "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{
        RowBox[{"\[Gamma]5\[Gamma]stdown", "[", "nu", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"cc", ",", "dd"}], "]"}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"\[CapitalPsi]", "[", "ll", "]"}], "[", "dd", "]"}], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
         RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "+", 
   RowBox[{"2", " ", "I", " ", 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"z", "[", 
         RowBox[{"LocalFieldNumber", ",", "5"}], "]"}], "[", 
        RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
       RowBox[{
        RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{"\[Gamma]5", "[", 
        RowBox[{"[", 
         RowBox[{"cc", ",", "dd"}], "]"}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"\[CapitalPsi]", "[", "ll", "]"}], "[", "dd", "]"}], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
         RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "+", 
   RowBox[{"2", "I", " ", 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"z", "[", 
         RowBox[{"LocalFieldNumber", ",", "6"}], "]"}], "[", 
        RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
       RowBox[{
        RowBox[{"\[Gamma]5\[Gamma]stdowndown", "[", "nu", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"\[Gamma]5", ".", 
          RowBox[{"CommuteGamma", "[", 
           RowBox[{"nu", ",", "mu"}], "]"}]}], ")"}], "[", 
        RowBox[{"[", 
         RowBox[{"cc", ",", "dd"}], "]"}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"\[CapitalPsi]", "[", "ll", "]"}], "[", "dd", "]"}], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
         RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "+", 
   RowBox[{"2", " ", "I", " ", 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"z", "[", 
         RowBox[{"LocalFieldNumber", ",", "7"}], "]"}], "[", 
        RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
       RowBox[{"\[Gamma]5down", "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{
        RowBox[{"\[Gamma]5\[Gamma]", "[", "mu", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"cc", ",", "dd"}], "]"}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"\[CapitalPsi]", "[", "ll", "]"}], "[", "dd", "]"}], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
         RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "+", 
   RowBox[{"2", " ", "I", " ", 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"z", "[", 
         RowBox[{"LocalFieldNumber", ",", "8"}], "]"}], "[", 
        RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], 
       RowBox[{"Cmetric", "[", 
        RowBox[{"[", 
         RowBox[{"aa", ",", "bb"}], "]"}], "]"}], 
       RowBox[{
        RowBox[{"\[Gamma]", "[", "mu", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"cc", ",", "dd"}], "]"}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"\[CapitalPsi]", "[", "ll", "]"}], "[", "dd", "]"}], "[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", 
         RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.7494085451000586`*^9, 3.7494085523049335`*^9}, {
   3.7494085899690495`*^9, 3.749408615257099*^9}, {3.7494086507852697`*^9, 
   3.749408665345*^9}, {3.7494093016570387`*^9, 3.7494093465610495`*^9}, {
   3.7494095637774105`*^9, 3.749409578217074*^9}, {3.749409653409035*^9, 
   3.7494098016018295`*^9}, {3.7494098348498144`*^9, 
   3.7494100216819773`*^9}, {3.7494862265493007`*^9, 3.74948626538061*^9}, {
   3.749486303084411*^9, 3.749486409804064*^9}, {3.749491861021188*^9, 
   3.7494918975704775`*^9}, {3.7494922763622904`*^9, 
   3.7494925001244493`*^9}, {3.749492808131174*^9, 3.749492966259914*^9}, {
   3.7494931994609575`*^9, 3.7494932056034827`*^9}, {3.7494932882999043`*^9, 
   3.7494933224195147`*^9}, {3.749493390293687*^9, 3.7494934366526213`*^9}, 
   3.749493487275071*^9, {3.7494936559805923`*^9, 3.7494936695238447`*^9}, {
   3.749493842468738*^9, 3.749493842722987*^9}, {3.749493947596159*^9, 
   3.7494939479072027`*^9}, {3.749494639467932*^9, 3.7494946487309275`*^9}, {
   3.749496646497279*^9, 3.7494967250903263`*^9}, {3.7494973529537697`*^9, 
   3.749497479977671*^9}, {3.7494975524586153`*^9, 3.74949765460373*^9}, {
   3.7494976989543476`*^9, 3.749497873642845*^9}, {3.749498131197258*^9, 
   3.7494981403944955`*^9}, {3.7494983027647667`*^9, 3.7494983153950877`*^9}, 
   3.749557605921444*^9, {3.7495577142002726`*^9, 3.7495577604146447`*^9}, {
   3.7495578274867716`*^9, 3.74955787139854*^9}, {3.7495606182778916`*^9, 
   3.7495607612551804`*^9}, {3.749560804518595*^9, 3.7495608789111233`*^9}, {
   3.7495609377763777`*^9, 3.749560960622629*^9}, {3.7495611215359087`*^9, 
   3.749561125110816*^9}, {3.749561923080024*^9, 3.749562017391224*^9}, {
   3.7495620609922285`*^9, 3.749562169191275*^9}, {3.749562264056468*^9, 
   3.74956232499186*^9}, {3.749572940471583*^9, 3.749572960654584*^9}, {
   3.749572994742178*^9, 3.749572995206708*^9}, {3.749573026703518*^9, 
   3.7495730316552496`*^9}, {3.7495731391257772`*^9, 
   3.7495732144700975`*^9}, {3.7495787550052276`*^9, 3.749578772669146*^9}},
 CellLabel->
  "In[222]:=",ExpressionUUID->"37c60d8e-d448-426c-942b-497ec9b70ebf"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"ZTable", "[", "LocalFieldNumber", "]"}], "[", 
      RowBox[{"kk", ",", "cc"}], "]"}], " ", "=", " ", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Z", "[", "LocalFieldNumber", "]"}], "[", 
         RowBox[{"ii", ",", "jj", ",", "kk"}], "]"}], "[", 
        RowBox[{"aa", ",", "bb", ",", "cc"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"cc", ",", "1", ",", "4"}], "}"}]}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.7494086675397387`*^9, 3.749408718609185*^9}, {
  3.7494087673051147`*^9, 3.7494087768495007`*^9}, {3.7494919500355654`*^9, 
  3.749491963955261*^9}, {3.749494547074811*^9, 3.7494945594586687`*^9}, {
  3.7495576508875003`*^9, 3.7495576893512697`*^9}},
 CellLabel->
  "In[223]:=",ExpressionUUID->"6246e476-dabc-4845-b75a-82080b0b0368"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"AlgebraDDMinusClosure", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", 
   
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"Collect", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"AlgebraDD", "[", 
              RowBox[{"tt1", ",", "tt2"}], "]"}], "[", 
             RowBox[{
              RowBox[{
               RowBox[{"\[CapitalPsi]t", "[", "kk", "]"}], "[", "cc", "]"}], 
              "[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", 
            "-", " ", 
            RowBox[{
             RowBox[{"ZTable", "[", "LocalFieldNumber", "]"}], "[", 
             RowBox[{"kk", ",", "cc"}], "]"}]}], ")"}], "/.", 
          "LagrangianParameters"}], "/.", "VtoPauli"}], ",", 
        "FieldListWithDerivatives", ",", "Simplify"}], "]"}], ")"}], ",", 
     RowBox[{"{", 
      RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"cc", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7474929944818563`*^9, 3.7474930651472597`*^9}, {
   3.747493152219424*^9, 3.7474932477784343`*^9}, {3.7474934178914785`*^9, 
   3.7474934832105627`*^9}, {3.7474935638267813`*^9, 3.747493591801224*^9}, {
   3.7474963739738455`*^9, 3.7474964449288054`*^9}, {3.748795026042665*^9, 
   3.748795027776865*^9}, {3.748965282772246*^9, 3.7489652841431913`*^9}, {
   3.748967256264186*^9, 3.7489672582499332`*^9}, {3.7494004185551434`*^9, 
   3.7494004426991215`*^9}, {3.7494086299617586`*^9, 3.749408647033921*^9}, {
   3.7494087803530507`*^9, 3.7494087808412037`*^9}, {3.7494912568589115`*^9, 
   3.7494913165706425`*^9}, {3.7494914035863967`*^9, 
   3.7494914061784263`*^9}, {3.7494914982840424`*^9, 
   3.7494915100027227`*^9}, {3.74949198535605*^9, 3.7494919858907022`*^9}, {
   3.749492042098717*^9, 3.7494920712828035`*^9}, {3.749494463739282*^9, 
   3.7494945272263684`*^9}, {3.7495575100735793`*^9, 
   3.7495575462626677`*^9}, {3.7495575863851166`*^9, 3.749557637102826*^9}, 
   3.7495578586230235`*^9, 3.7495787813316803`*^9},
 CellLabel->
  "In[224]:=",ExpressionUUID->"3a679208-b57e-49e1-8f53-f352ee85df65"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"AlgebraDDEqs", "[", 
     RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", 
   "=", " ", 
   RowBox[{
    RowBox[{"DeleteCases", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"Coefficient", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"AlgebraDDMinusClosure", "[", 
                 RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", 
                "]"}], "[", 
               RowBox[{"[", 
                RowBox[{
                "kk", ",", "cc", ",", "ii", ",", "aa", ",", "jj", ",", "bb"}],
                 "]"}], "]"}], ",", 
              RowBox[{"FieldListWithDerivatives", "[", 
               RowBox[{"[", "FieldListIndex", "]"}], "]"}]}], "]"}], ")"}], 
           "\[Equal]", "0"}], ",", 
          RowBox[{"{", 
           RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"cc", ",", "1", ",", "4"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"FieldListIndex", ",", "1", ",", 
            RowBox[{"Length", "[", "FieldListWithDerivatives", "]"}]}], 
           "}"}]}], "]"}], "//", "Simplify"}], "//", "Flatten"}], ",", 
      "True"}], "]"}], "//", "DeleteDuplicates"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7474933413160763`*^9, 3.7474934023534203`*^9}, {
   3.747493509609391*^9, 3.7474935432809353`*^9}, {3.7474936064895945`*^9, 
   3.7474936161297655`*^9}, {3.7474936564987297`*^9, 3.747493747940831*^9}, {
   3.747493832482408*^9, 3.7474938407374077`*^9}, {3.747496458745552*^9, 
   3.7474964697370515`*^9}, 3.7475105609270287`*^9, {3.748795270744809*^9, 
   3.748795274222528*^9}, {3.74879531011075*^9, 3.748795321437098*^9}, {
   3.748795652987978*^9, 3.748795656902155*^9}, {3.748965289858489*^9, 
   3.748965292697112*^9}, {3.748967259459038*^9, 3.748967260813509*^9}, {
   3.7489708313422194`*^9, 3.7489708325427723`*^9}, {3.749400458403777*^9, 
   3.749400461474213*^9}, {3.7494920741868925`*^9, 3.749492080658454*^9}, {
   3.749494571539537*^9, 3.749494577426366*^9}, {3.7495612237198668`*^9, 
   3.74956123699057*^9}},
 CellLabel->
  "In[225]:=",ExpressionUUID->"d68df561-306a-4542-b23a-0618ce4f4379"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"ZSolutions", "[", "LocalFieldNumber", "]"}], " ", "=", " ", 
   RowBox[{
    RowBox[{"Solve", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"AlgebraDDEqs", "[", 
        RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], 
      ",", 
      RowBox[{"CentralChargeList", "[", "LocalFieldNumber", "]"}]}], "]"}], "//",
     "Flatten"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7494088104519863`*^9, 3.749408859016982*^9}, 
   3.749410151970128*^9, {3.749482953421772*^9, 3.7494829550114527`*^9}, {
   3.749482991773706*^9, 3.749482992051861*^9}, {3.7495734326291237`*^9, 
   3.749573434299819*^9}},
 CellLabel->
  "In[226]:=",ExpressionUUID->"36106801-6e01-4c4f-b3f4-c4887c9847fc"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "[", 
  RowBox[{"ZSolutions", "[", "LocalFieldNumber", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.7495734406217256`*^9, 3.74957344565139*^9}},
 CellLabel->
  "In[227]:=",ExpressionUUID->"d6c6c4ce-2b04-4fe8-be55-c6d9e1896520"],

Cell[BoxData["128"], "Output",
 CellChangeTimes->{3.7495734465821247`*^9, 3.749578873192994*^9, 
  3.749841970021536*^9, 3.749858172145021*^9, 3.760471627044379*^9},
 CellLabel->
  "Out[227]=",ExpressionUUID->"407c4880-f07a-4f3e-a3d8-36a8eacd910b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"NonZeroz", "[", "LocalFieldNumber", "]"}], " ", "=", 
  RowBox[{"DeleteCases", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"z", "[", 
          RowBox[{"LocalFieldNumber", ",", "nn"}], "]"}], "[", 
         RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], "\[Equal]", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"z", "[", 
             RowBox[{"LocalFieldNumber", ",", "nn"}], "]"}], "[", 
            RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], "/.", 
           RowBox[{"ZSolutions", "[", "LocalFieldNumber", "]"}]}], "/.", 
          "ThisOneLooksGood"}], ")"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"nn", ",", "1", ",", "NumZCharges"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"ll", ",", "1", ",", "2"}], "}"}]}], "]"}], "//", "Flatten"}],
     ",", 
    RowBox[{
     RowBox[{
      RowBox[{"z", "[", 
       RowBox[{"_", ",", "_"}], "]"}], "[", 
      RowBox[{"_", ",", "_", ",", "_", ",", "_"}], "]"}], "\[Equal]", "0"}]}],
    "]"}]}]], "Input",
 CellChangeTimes->{{3.7494822949220448`*^9, 3.7494823511478577`*^9}, {
   3.7494823858218775`*^9, 3.7494823877980165`*^9}, {3.7494824283410683`*^9, 
   3.7494824525643225`*^9}, {3.749482667989807*^9, 3.749482671509657*^9}, {
   3.749482703172926*^9, 3.7494827189481516`*^9}, {3.7494827656916285`*^9, 
   3.7494827754041166`*^9}, {3.749482825395954*^9, 3.7494828255808463`*^9}, {
   3.7494830210856953`*^9, 3.749483068325922*^9}, {3.7494831352932143`*^9, 
   3.7494831386363173`*^9}, {3.7494831726363764`*^9, 3.749483186323599*^9}, 
   3.7494864595961637`*^9, {3.7494912199550743`*^9, 3.749491220034889*^9}, {
   3.749492188306588*^9, 3.7494921935066113`*^9}, {3.749498617379153*^9, 
   3.749498618721362*^9}, {3.749573479932663*^9, 3.7495735108688197`*^9}, {
   3.749573602605239*^9, 3.749573711940016*^9}, {3.7495737468208504`*^9, 
   3.7495737596838026`*^9}},
 CellLabel->
  "In[228]:=",ExpressionUUID->"0a0baaab-f73d-46f3-b073-0b314de20374"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"13", ",", "1"}], "]"}], "[", 
     RowBox[{"1", ",", "1", ",", "1", ",", "2"}], "]"}], "\[Equal]", 
    FractionBox["1", "2"]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"13", ",", "1"}], "]"}], "[", 
     RowBox[{"1", ",", "1", ",", "2", ",", "1"}], "]"}], "\[Equal]", "1"}], 
   ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"13", ",", "1"}], "]"}], "[", 
     RowBox[{"1", ",", "2", ",", "1", ",", "1"}], "]"}], "\[Equal]", 
    RowBox[{"-", 
     FractionBox["3", "4"]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"13", ",", "1"}], "]"}], "[", 
     RowBox[{"1", ",", "2", ",", "2", ",", "2"}], "]"}], "\[Equal]", 
    FractionBox["3", "4"]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"13", ",", "1"}], "]"}], "[", 
     RowBox[{"2", ",", "1", ",", "1", ",", "1"}], "]"}], "\[Equal]", 
    RowBox[{"-", 
     FractionBox["3", "4"]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"13", ",", "1"}], "]"}], "[", 
     RowBox[{"2", ",", "1", ",", "2", ",", "2"}], "]"}], "\[Equal]", 
    FractionBox["3", "4"]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"13", ",", "1"}], "]"}], "[", 
     RowBox[{"2", ",", "2", ",", "1", ",", "2"}], "]"}], "\[Equal]", 
    RowBox[{"-", "1"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"13", ",", "1"}], "]"}], "[", 
     RowBox[{"2", ",", "2", ",", "2", ",", "1"}], "]"}], "\[Equal]", 
    RowBox[{"-", 
     FractionBox["1", "2"]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"13", ",", "2"}], "]"}], "[", 
     RowBox[{"1", ",", "1", ",", "1", ",", "2"}], "]"}], "\[Equal]", 
    FractionBox["1", "4"]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"13", ",", "2"}], "]"}], "[", 
     RowBox[{"1", ",", "2", ",", "1", ",", "1"}], "]"}], "\[Equal]", 
    RowBox[{"-", 
     FractionBox["1", "8"]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"13", ",", "2"}], "]"}], "[", 
     RowBox[{"1", ",", "2", ",", "2", ",", "2"}], "]"}], "\[Equal]", 
    FractionBox["1", "8"]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"13", ",", "2"}], "]"}], "[", 
     RowBox[{"2", ",", "1", ",", "1", ",", "1"}], "]"}], "\[Equal]", 
    RowBox[{"-", 
     FractionBox["1", "8"]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"13", ",", "2"}], "]"}], "[", 
     RowBox[{"2", ",", "1", ",", "2", ",", "2"}], "]"}], "\[Equal]", 
    FractionBox["1", "8"]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"13", ",", "2"}], "]"}], "[", 
     RowBox[{"2", ",", "2", ",", "2", ",", "1"}], "]"}], "\[Equal]", 
    RowBox[{"-", 
     FractionBox["1", "4"]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"13", ",", "3"}], "]"}], "[", 
     RowBox[{"1", ",", "2", ",", "1", ",", "1"}], "]"}], "\[Equal]", 
    FractionBox["1", "8"]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"13", ",", "3"}], "]"}], "[", 
     RowBox[{"1", ",", "2", ",", "2", ",", "2"}], "]"}], "\[Equal]", 
    FractionBox["1", "8"]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"13", ",", "3"}], "]"}], "[", 
     RowBox[{"2", ",", "1", ",", "1", ",", "1"}], "]"}], "\[Equal]", 
    RowBox[{"-", 
     FractionBox["1", "8"]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"13", ",", "3"}], "]"}], "[", 
     RowBox[{"2", ",", "1", ",", "2", ",", "2"}], "]"}], "\[Equal]", 
    RowBox[{"-", 
     FractionBox["1", "8"]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"13", ",", "4"}], "]"}], "[", 
     RowBox[{"1", ",", "2", ",", "1", ",", "1"}], "]"}], "\[Equal]", 
    RowBox[{"-", 
     FractionBox["1", "8"]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"13", ",", "4"}], "]"}], "[", 
     RowBox[{"1", ",", "2", ",", "2", ",", "2"}], "]"}], "\[Equal]", 
    RowBox[{"-", 
     FractionBox["1", "8"]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"13", ",", "4"}], "]"}], "[", 
     RowBox[{"2", ",", "1", ",", "1", ",", "1"}], "]"}], "\[Equal]", 
    FractionBox["1", "8"]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"13", ",", "4"}], "]"}], "[", 
     RowBox[{"2", ",", "1", ",", "2", ",", "2"}], "]"}], "\[Equal]", 
    FractionBox["1", "8"]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"13", ",", "5"}], "]"}], "[", 
     RowBox[{"1", ",", "1", ",", "2", ",", "1"}], "]"}], "\[Equal]", 
    RowBox[{"-", 
     FractionBox["1", "2"]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"13", ",", "5"}], "]"}], "[", 
     RowBox[{"1", ",", "2", ",", "1", ",", "1"}], "]"}], "\[Equal]", 
    RowBox[{"-", 
     FractionBox["1", "4"]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"13", ",", "5"}], "]"}], "[", 
     RowBox[{"1", ",", "2", ",", "2", ",", "2"}], "]"}], "\[Equal]", 
    RowBox[{"-", 
     FractionBox["3", "4"]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"13", ",", "5"}], "]"}], "[", 
     RowBox[{"2", ",", "1", ",", "1", ",", "1"}], "]"}], "\[Equal]", 
    FractionBox["3", "4"]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"13", ",", "5"}], "]"}], "[", 
     RowBox[{"2", ",", "1", ",", "2", ",", "2"}], "]"}], "\[Equal]", 
    FractionBox["1", "4"]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"13", ",", "5"}], "]"}], "[", 
     RowBox[{"2", ",", "2", ",", "1", ",", "2"}], "]"}], "\[Equal]", 
    FractionBox["1", "2"]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"13", ",", "6"}], "]"}], "[", 
     RowBox[{"1", ",", "1", ",", "1", ",", "2"}], "]"}], "\[Equal]", 
    FractionBox["1", "4"]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"13", ",", "6"}], "]"}], "[", 
     RowBox[{"1", ",", "1", ",", "2", ",", "1"}], "]"}], "\[Equal]", 
    RowBox[{"-", 
     FractionBox["1", "4"]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"13", ",", "6"}], "]"}], "[", 
     RowBox[{"1", ",", "2", ",", "1", ",", "1"}], "]"}], "\[Equal]", 
    RowBox[{"-", 
     FractionBox["1", "8"]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"13", ",", "6"}], "]"}], "[", 
     RowBox[{"1", ",", "2", ",", "2", ",", "2"}], "]"}], "\[Equal]", 
    RowBox[{"-", 
     FractionBox["1", "8"]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"13", ",", "6"}], "]"}], "[", 
     RowBox[{"2", ",", "1", ",", "1", ",", "1"}], "]"}], "\[Equal]", 
    FractionBox["1", "8"]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"13", ",", "6"}], "]"}], "[", 
     RowBox[{"2", ",", "1", ",", "2", ",", "2"}], "]"}], "\[Equal]", 
    FractionBox["1", "8"]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"13", ",", "6"}], "]"}], "[", 
     RowBox[{"2", ",", "2", ",", "1", ",", "2"}], "]"}], "\[Equal]", 
    FractionBox["1", "4"]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"13", ",", "6"}], "]"}], "[", 
     RowBox[{"2", ",", "2", ",", "2", ",", "1"}], "]"}], "\[Equal]", 
    RowBox[{"-", 
     FractionBox["1", "4"]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"13", ",", "7"}], "]"}], "[", 
     RowBox[{"1", ",", "1", ",", "1", ",", "2"}], "]"}], "\[Equal]", 
    RowBox[{"-", 
     FractionBox["1", "2"]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"13", ",", "7"}], "]"}], "[", 
     RowBox[{"1", ",", "1", ",", "2", ",", "1"}], "]"}], "\[Equal]", 
    FractionBox["1", "2"]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"13", ",", "7"}], "]"}], "[", 
     RowBox[{"1", ",", "2", ",", "1", ",", "1"}], "]"}], "\[Equal]", 
    RowBox[{"-", 
     FractionBox["1", "4"]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"13", ",", "7"}], "]"}], "[", 
     RowBox[{"1", ",", "2", ",", "2", ",", "2"}], "]"}], "\[Equal]", 
    RowBox[{"-", 
     FractionBox["1", "4"]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"13", ",", "7"}], "]"}], "[", 
     RowBox[{"2", ",", "1", ",", "1", ",", "1"}], "]"}], "\[Equal]", 
    FractionBox["1", "4"]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"13", ",", "7"}], "]"}], "[", 
     RowBox[{"2", ",", "1", ",", "2", ",", "2"}], "]"}], "\[Equal]", 
    FractionBox["1", "4"]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"13", ",", "7"}], "]"}], "[", 
     RowBox[{"2", ",", "2", ",", "1", ",", "2"}], "]"}], "\[Equal]", 
    RowBox[{"-", 
     FractionBox["1", "2"]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"13", ",", "7"}], "]"}], "[", 
     RowBox[{"2", ",", "2", ",", "2", ",", "1"}], "]"}], "\[Equal]", 
    FractionBox["1", "2"]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"13", ",", "8"}], "]"}], "[", 
     RowBox[{"1", ",", "1", ",", "2", ",", "1"}], "]"}], "\[Equal]", 
    RowBox[{"-", 
     FractionBox["1", "2"]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"13", ",", "8"}], "]"}], "[", 
     RowBox[{"1", ",", "2", ",", "1", ",", "1"}], "]"}], "\[Equal]", 
    RowBox[{"-", 
     FractionBox["1", "4"]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"13", ",", "8"}], "]"}], "[", 
     RowBox[{"1", ",", "2", ",", "2", ",", "2"}], "]"}], "\[Equal]", 
    RowBox[{"-", 
     FractionBox["3", "4"]}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"13", ",", "8"}], "]"}], "[", 
     RowBox[{"2", ",", "1", ",", "1", ",", "1"}], "]"}], "\[Equal]", 
    FractionBox["3", "4"]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"13", ",", "8"}], "]"}], "[", 
     RowBox[{"2", ",", "1", ",", "2", ",", "2"}], "]"}], "\[Equal]", 
    FractionBox["1", "4"]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"13", ",", "8"}], "]"}], "[", 
     RowBox[{"2", ",", "2", ",", "1", ",", "2"}], "]"}], "\[Equal]", 
    FractionBox["1", "2"]}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.7494822967584114`*^9, {3.7494823516392856`*^9, 3.749482388711256*^9}, 
   3.7494824654614663`*^9, 3.749482837546488*^9, {3.7494829730196037`*^9, 
   3.7494829962450185`*^9}, 3.749483098282524*^9, {3.7494831891221447`*^9, 
   3.7494832071037216`*^9}, 3.749486466848751*^9, 3.7494900270105543`*^9, 
   3.7494930181132135`*^9, 3.7494937173213744`*^9, 3.749493853167077*^9, 
   3.749493962980129*^9, 3.7494979688433657`*^9, 3.7494981905672655`*^9, 
   3.749498344510541*^9, 3.7494986281129436`*^9, 3.7494986650759974`*^9, 
   3.7494995678947835`*^9, 3.7494997456762767`*^9, 3.749500024828462*^9, 
   3.749557163394376*^9, 3.749573718358801*^9, 3.7495737627047834`*^9, 
   3.7495788732807875`*^9, 3.7498419700795527`*^9, 3.749858172229883*^9, 
   3.760471627128527*^9},
 CellLabel->
  "Out[228]=",ExpressionUUID->"f472c8c1-e3ae-40ef-a7db-0c08e880463c"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"zAnsatz", "[", 
    RowBox[{"lfn_", ",", "nn_"}], "]"}], "[", 
   RowBox[{"ii_", ",", "jj_", ",", "kk_", ",", "ll_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{
    RowBox[{"cz", "[", 
     RowBox[{"lfn", ",", "nn", ",", "1"}], "]"}], 
    RowBox[{
     RowBox[{"sigma", "[", "3", "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"ii", ",", "ll"}], "]"}], "]"}], 
    RowBox[{
     RowBox[{"sigma", "[", "1", "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"jj", ",", "kk"}], "]"}], "]"}]}], "+", 
   RowBox[{
    RowBox[{"cz", "[", 
     RowBox[{"lfn", ",", "nn", ",", "2"}], "]"}], 
    RowBox[{
     RowBox[{"sigma", "[", "3", "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"jj", ",", "kk"}], "]"}], "]"}], 
    RowBox[{
     RowBox[{"sigma", "[", "1", "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"ii", ",", "ll"}], "]"}], "]"}]}], "+", 
   RowBox[{
    RowBox[{"cz", "[", 
     RowBox[{"lfn", ",", "nn", ",", "3"}], "]"}], 
    RowBox[{
     RowBox[{"sigma", "[", "3", "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"jj", ",", "ll"}], "]"}], "]"}], 
    RowBox[{
     RowBox[{"sigma", "[", "1", "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"ii", ",", "kk"}], "]"}], "]"}]}], "+", 
   RowBox[{
    RowBox[{"cz", "[", 
     RowBox[{"lfn", ",", "nn", ",", "4"}], "]"}], 
    RowBox[{
     RowBox[{"sigma", "[", "3", "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"kk", ",", "ll"}], "]"}], "]"}], 
    RowBox[{
     RowBox[{"sigma", "[", "1", "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"ii", ",", "jj"}], "]"}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.7495753714699535`*^9, 3.7495755898117137`*^9}, {
  3.749575869195531*^9, 3.749575869982422*^9}, {3.7495759026765833`*^9, 
  3.7495759728376336`*^9}, {3.749576019934725*^9, 3.749576025917223*^9}, {
  3.7495760760536222`*^9, 3.7495762998440228`*^9}, {3.749576600484555*^9, 
  3.749576602083951*^9}, {3.7495768447652674`*^9, 3.749576933636203*^9}, {
  3.7495770820450315`*^9, 3.749577084187992*^9}, {3.749577117869512*^9, 
  3.7495771369083815`*^9}, {3.749577756908228*^9, 3.749577768545231*^9}},
 CellLabel->
  "In[229]:=",ExpressionUUID->"560ccaa8-4ab0-4b98-a1fc-546c93aae1df"],

Cell[BoxData[
 RowBox[{
  RowBox[{"czList", "[", 
   RowBox[{"lfn_", ",", "nn_"}], "]"}], ":=", " ", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"cz", "[", 
     RowBox[{"lfn", ",", "nn", ",", "Index"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"Index", ",", "1", ",", "4"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.749577273702882*^9, 3.749577298979131*^9}, {
   3.749577330842765*^9, 3.7495773526833515`*^9}, 3.749577774917498*^9},
 CellLabel->
  "In[230]:=",ExpressionUUID->"0afa7824-a6ed-4d9d-a6dd-813a9fed6005"],

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"zAnsatzEqs", "[", 
     RowBox[{"LocalFieldNumber", ",", "ZChargeNum"}], "]"}], "=", 
    RowBox[{"DeleteCases", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"zAnsatz", "[", 
             RowBox[{"LocalFieldNumber", ",", "ZChargeNum"}], "]"}], "[", 
            RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], ")"}], "==", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"z", "[", 
               RowBox[{"LocalFieldNumber", ",", "ZChargeNum"}], "]"}], "[", 
              RowBox[{"ii", ",", "jj", ",", "kk", ",", "ll"}], "]"}], "/.", 
             RowBox[{"ZSolutions", "[", "LocalFieldNumber", "]"}]}], "/.", 
            "ThisOneLooksGood"}], ")"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"ll", ",", "1", ",", "2"}], "}"}]}], "]"}], "//", 
       "Flatten"}], ",", "True"}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"ZChargeNum", ",", "1", ",", "NumZCharges"}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.7495763508436484`*^9, 3.7495763645793476`*^9}, {
  3.7495771857818656`*^9, 3.749577245971423*^9}, {3.7495775233159666`*^9, 
  3.7495775761474695`*^9}},
 CellLabel->
  "In[231]:=",ExpressionUUID->"ebbc8a11-7b63-4689-9603-e63c7d640071"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"zSolution", "[", "LocalFieldNumber", "]"}], "=", 
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{"zAnsatzEqs", "[", 
        RowBox[{"LocalFieldNumber", ",", "ZChargeNum"}], "]"}], ",", 
       RowBox[{"czList", "[", 
        RowBox[{"LocalFieldNumber", ",", "ZChargeNum"}], "]"}]}], "]"}], ",", 
     
     RowBox[{"{", 
      RowBox[{"ZChargeNum", ",", "1", ",", "NumZCharges"}], "}"}]}], "]"}], "//",
    "Flatten"}]}]], "Input",
 CellChangeTimes->{{3.749577253421693*^9, 3.7495772629715676`*^9}, {
  3.749577361131139*^9, 3.749577467483063*^9}, {3.7495776158370543`*^9, 
  3.749577650915182*^9}, {3.74957783549321*^9, 3.749577836530856*^9}, {
  3.7495779832360067`*^9, 3.7495779944429903`*^9}, {3.7495783652371435`*^9, 
  3.7495783666589565`*^9}},
 CellLabel->
  "In[232]:=",ExpressionUUID->"9733436a-834c-4def-8b71-925cf05864c8"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"cz", "[", 
     RowBox[{"13", ",", "1", ",", "1"}], "]"}], "\[Rule]", 
    FractionBox["3", "4"]}], ",", 
   RowBox[{
    RowBox[{"cz", "[", 
     RowBox[{"13", ",", "1", ",", "2"}], "]"}], "\[Rule]", 
    FractionBox["1", "2"]}], ",", 
   RowBox[{
    RowBox[{"cz", "[", 
     RowBox[{"13", ",", "1", ",", "3"}], "]"}], "\[Rule]", 
    FractionBox["1", "4"]}], ",", 
   RowBox[{
    RowBox[{"cz", "[", 
     RowBox[{"13", ",", "1", ",", "4"}], "]"}], "\[Rule]", 
    RowBox[{"-", 
     FractionBox["3", "2"]}]}], ",", 
   RowBox[{
    RowBox[{"cz", "[", 
     RowBox[{"13", ",", "2", ",", "1"}], "]"}], "\[Rule]", 
    FractionBox["1", "8"]}], ",", 
   RowBox[{
    RowBox[{"cz", "[", 
     RowBox[{"13", ",", "2", ",", "2"}], "]"}], "\[Rule]", 
    FractionBox["1", "4"]}], ",", 
   RowBox[{
    RowBox[{"cz", "[", 
     RowBox[{"13", ",", "2", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{"-", 
     FractionBox["1", "8"]}]}], ",", 
   RowBox[{
    RowBox[{"cz", "[", 
     RowBox[{"13", ",", "2", ",", "4"}], "]"}], "\[Rule]", 
    RowBox[{"-", 
     FractionBox["1", "4"]}]}], ",", 
   RowBox[{
    RowBox[{"cz", "[", 
     RowBox[{"13", ",", "3", ",", "1"}], "]"}], "\[Rule]", 
    FractionBox["1", "8"]}], ",", 
   RowBox[{
    RowBox[{"cz", "[", 
     RowBox[{"13", ",", "3", ",", "2"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"cz", "[", 
     RowBox[{"13", ",", "3", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{"-", 
     FractionBox["1", "8"]}]}], ",", 
   RowBox[{
    RowBox[{"cz", "[", 
     RowBox[{"13", ",", "3", ",", "4"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"cz", "[", 
     RowBox[{"13", ",", "4", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{"-", 
     FractionBox["1", "8"]}]}], ",", 
   RowBox[{
    RowBox[{"cz", "[", 
     RowBox[{"13", ",", "4", ",", "2"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"cz", "[", 
     RowBox[{"13", ",", "4", ",", "3"}], "]"}], "\[Rule]", 
    FractionBox["1", "8"]}], ",", 
   RowBox[{
    RowBox[{"cz", "[", 
     RowBox[{"13", ",", "4", ",", "4"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"cz", "[", 
     RowBox[{"13", ",", "5", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{"-", 
     FractionBox["3", "4"]}]}], ",", 
   RowBox[{
    RowBox[{"cz", "[", 
     RowBox[{"13", ",", "5", ",", "2"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"cz", "[", 
     RowBox[{"13", ",", "5", ",", "3"}], "]"}], "\[Rule]", 
    FractionBox["1", "4"]}], ",", 
   RowBox[{
    RowBox[{"cz", "[", 
     RowBox[{"13", ",", "5", ",", "4"}], "]"}], "\[Rule]", 
    FractionBox["1", "2"]}], ",", 
   RowBox[{
    RowBox[{"cz", "[", 
     RowBox[{"13", ",", "6", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{"-", 
     FractionBox["1", "8"]}]}], ",", 
   RowBox[{
    RowBox[{"cz", "[", 
     RowBox[{"13", ",", "6", ",", "2"}], "]"}], "\[Rule]", 
    FractionBox["1", "4"]}], ",", 
   RowBox[{
    RowBox[{"cz", "[", 
     RowBox[{"13", ",", "6", ",", "3"}], "]"}], "\[Rule]", 
    RowBox[{"-", 
     FractionBox["1", "8"]}]}], ",", 
   RowBox[{
    RowBox[{"cz", "[", 
     RowBox[{"13", ",", "6", ",", "4"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"cz", "[", 
     RowBox[{"13", ",", "7", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{"-", 
     FractionBox["1", "4"]}]}], ",", 
   RowBox[{
    RowBox[{"cz", "[", 
     RowBox[{"13", ",", "7", ",", "2"}], "]"}], "\[Rule]", 
    RowBox[{"-", 
     FractionBox["1", "2"]}]}], ",", 
   RowBox[{
    RowBox[{"cz", "[", 
     RowBox[{"13", ",", "7", ",", "3"}], "]"}], "\[Rule]", 
    FractionBox["3", "4"]}], ",", 
   RowBox[{
    RowBox[{"cz", "[", 
     RowBox[{"13", ",", "7", ",", "4"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"cz", "[", 
     RowBox[{"13", ",", "8", ",", "1"}], "]"}], "\[Rule]", 
    RowBox[{"-", 
     FractionBox["3", "4"]}]}], ",", 
   RowBox[{
    RowBox[{"cz", "[", 
     RowBox[{"13", ",", "8", ",", "2"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"cz", "[", 
     RowBox[{"13", ",", "8", ",", "3"}], "]"}], "\[Rule]", 
    FractionBox["1", "4"]}], ",", 
   RowBox[{
    RowBox[{"cz", "[", 
     RowBox[{"13", ",", "8", ",", "4"}], "]"}], "\[Rule]", 
    FractionBox["1", "2"]}]}], "}"}]], "Output",
 CellChangeTimes->{{3.7495774304716263`*^9, 3.7495774682708936`*^9}, 
   3.749577610286316*^9, 3.7495776546186934`*^9, 3.7495778436653137`*^9, 
   3.749577998389656*^9, 3.7495783706637774`*^9, 3.749578924148753*^9, 
   3.7498419701603565`*^9, 3.749858172345203*^9, 3.760471627234455*^9},
 CellLabel->
  "Out[232]=",ExpressionUUID->"ac12bd83-bbc1-4464-8e9c-6ea70ab187ba"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[{
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       SubsuperscriptBox["D", "a", "i"], ",", 
       SubsuperscriptBox[
        OverscriptBox["D", "~"], "b", "j"]}], "}"}], 
     SubsuperscriptBox[
      OverscriptBox["\[CapitalPsi]", "~"], "c", "k"]}], "=", " ", 
    RowBox[{
     RowBox[{"2", " ", "i", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "1"}], "]"}], "ijkl"], 
      SubscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Mu]"], 
       SubsuperscriptBox["\[CapitalPsi]", "c", "l"]}]}], "+", 
     RowBox[{"2", " ", "i", " ", 
      SuperscriptBox[
       RowBox[{"Z", "[", 
        RowBox[{"lfn", ",", "3"}], "]"}], "ijkl"], 
      SubscriptBox[
       RowBox[{"(", 
        RowBox[{"[", 
         RowBox[{
          SuperscriptBox["\[Gamma]", "\[Mu]"], ",", 
          SuperscriptBox["\[Gamma]", "\[Nu]"]}], "]"}], ")"}], "ab"], 
      SuperscriptBox[
       SubscriptBox[
        RowBox[{"(", 
         SubscriptBox["\[Gamma]", "\[Nu]"], ")"}], "c"], "d"], 
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Mu]"], 
       SubsuperscriptBox["\[CapitalPsi]", "d", "l"]}]}]}]}], 
   TraditionalForm], "\[IndentingNewLine]", 
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"+", "2"}], " ", "i", " ", 
     SuperscriptBox[
      RowBox[{"Z", "[", 
       RowBox[{"lfn", ",", "5"}], "]"}], "ijkl"], 
     SubscriptBox[
      RowBox[{"(", 
       SubscriptBox["\[Gamma]", "\[Nu]"], ")"}], "ab"], 
     SuperscriptBox[
      SubscriptBox[
       RowBox[{"(", 
        RowBox[{"[", 
         RowBox[{
          SuperscriptBox["\[Gamma]", "\[Nu]"], ",", 
          SuperscriptBox["\[Gamma]", "\[Mu]"]}], "]"}], ")"}], "c"], "d"], 
     RowBox[{
      SubscriptBox["\[PartialD]", "\[Mu]"], 
      SubsuperscriptBox["\[CapitalPsi]", "d", "l"]}]}], "+", 
    RowBox[{"2", " ", "i", " ", 
     SuperscriptBox[
      RowBox[{"Z", "[", 
       RowBox[{"lfn", ",", "7"}], "]"}], "ijkl"], 
     SubscriptBox[
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["\[Gamma]", "5"], "[", 
        RowBox[{
         SuperscriptBox["\[Gamma]", "\[Mu]"], ",", 
         SuperscriptBox["\[Gamma]", "\[Nu]"]}], "]"}], ")"}], "ab"], 
     SuperscriptBox[
      SubscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["\[Gamma]", "5"], 
         SubscriptBox["\[Gamma]", "\[Nu]"]}], ")"}], "c"], "d"], 
     RowBox[{
      SubscriptBox["\[PartialD]", "\[Mu]"], 
      SubsuperscriptBox["\[CapitalPsi]", "d", "l"]}]}]}], 
   TraditionalForm], "\[IndentingNewLine]", 
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"+", "2"}], " ", "i", " ", 
     SuperscriptBox[
      RowBox[{"Z", "[", 
       RowBox[{"lfn", ",", "9"}], "]"}], "ijkl"], 
     SubscriptBox[
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["\[Gamma]", "5"], 
        SuperscriptBox["\[Gamma]", "\[Mu]"]}], ")"}], "ab"], 
     SuperscriptBox[
      SubscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Gamma]", "5"], ")"}], "c"], "d"], 
     RowBox[{
      SubscriptBox["\[PartialD]", "\[Mu]"], 
      SubsuperscriptBox["\[CapitalPsi]", "d", "l"]}]}], "+", 
    RowBox[{"2", " ", "i", " ", 
     SuperscriptBox[
      RowBox[{"Z", "[", 
       RowBox[{"lfn", ",", "11"}], "]"}], "ijkl"], 
     SubscriptBox[
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["\[Gamma]", "5"], 
        SubscriptBox["\[Gamma]", "\[Nu]"]}], ")"}], "ab"], 
     SuperscriptBox[
      SubscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["\[Gamma]", "5"], "[", 
         RowBox[{
          SuperscriptBox["\[Gamma]", "\[Nu]"], ",", 
          SuperscriptBox["\[Gamma]", "\[Mu]"]}], "]"}], ")"}], "c"], "d"], 
     RowBox[{
      SubscriptBox["\[PartialD]", "\[Mu]"], 
      SubsuperscriptBox["\[CapitalPsi]", "d", "l"]}]}]}], 
   TraditionalForm], "\[IndentingNewLine]", 
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"+", "2"}], " ", "i", " ", 
     SuperscriptBox[
      RowBox[{"Z", "[", 
       RowBox[{"lfn", ",", "13"}], "]"}], "ijkl"], 
     SubscriptBox[
      RowBox[{"(", 
       SuperscriptBox["\[Gamma]", "5"], ")"}], "ab"], 
     SuperscriptBox[
      SubscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["\[Gamma]", "5"], 
         SuperscriptBox["\[Gamma]", "\[Mu]"]}], ")"}], "c"], "d"], 
     RowBox[{
      SubscriptBox["\[PartialD]", "\[Mu]"], 
      SubsuperscriptBox["\[CapitalPsi]", "d", "l"]}]}], "+", 
    RowBox[{"2", " ", "i", " ", 
     SuperscriptBox[
      RowBox[{"Z", "[", 
       RowBox[{"lfn", ",", "15"}], "]"}], "ijkl"], 
     SuperscriptBox[
      SubscriptBox[
       RowBox[{
        SubscriptBox["C", "ab"], "(", 
        SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "c"], "d"], 
     RowBox[{
      SubscriptBox["\[PartialD]", "\[Mu]"], 
      SubsuperscriptBox["\[CapitalPsi]", "d", "l"]}]}]}], TraditionalForm]}], 
  "None",ExpressionUUID->"ac292c1d-e899-44df-8ee3-60c72571cbe8"],
 "\nFieldNumber = 13 "
}], "Subsubsection",
 CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, {
   3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 
   3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 
   3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, {
   3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7467956828758698`*^9, 
   3.7467957093182344`*^9}, {3.747486233439009*^9, 3.747486233439459*^9}, {
   3.748974362876294*^9, 3.748974380943577*^9}, {3.7495018761601076`*^9, 
   3.7495018780955925`*^9}, {3.749557195862426*^9, 3.749557197702502*^9}, {
   3.749557347016863*^9, 3.7495573795993056`*^9}, {3.749557461871316*^9, 
   3.749557461871316*^9}, {3.749557892705888*^9, 3.7495579076795397`*^9}, {
   3.749560349934149*^9, 3.749560351302229*^9}, {3.7495604389616103`*^9, 
   3.74956047235077*^9}, {3.7495605531165395`*^9, 3.749560603498867*^9}, {
   3.7495607758623023`*^9, 3.749560779952386*^9}, {3.7495611067358856`*^9, 
   3.749561117913103*^9}, {3.7495616076057587`*^9, 3.7495617278154073`*^9}, {
   3.749561809377316*^9, 3.749561830871812*^9}, {3.7495733110210323`*^9, 
   3.749573343964429*^9}, {3.749578684126068*^9, 
   3.749578724554981*^9}},ExpressionUUID->"27a83c43-ccbb-4cfb-8cf8-\
4ab3334d38a7"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"ZPrintout", "[", "LocalFieldNumber", "]"}], "=", " ", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      SubsuperscriptBox[
       OverscriptBox["Z", "~"], "nn", "ijkl"], "\[Equal]", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"cz", "[", 
          RowBox[{"LocalFieldNumber", ",", "nn", ",", "1"}], "]"}], 
         SuperscriptBox[
          RowBox[{"(", 
           SuperscriptBox["\[Sigma]", "3"], ")"}], "il"], 
         SuperscriptBox[
          RowBox[{"(", 
           SuperscriptBox["\[Sigma]", "1"], ")"}], "jk"]}], " ", "+", " ", 
        RowBox[{
         RowBox[{"cz", "[", 
          RowBox[{"LocalFieldNumber", ",", "nn", ",", "2"}], "]"}], 
         SuperscriptBox[
          RowBox[{"(", 
           SuperscriptBox["\[Sigma]", "3"], ")"}], "jk"], 
         SuperscriptBox[
          RowBox[{"(", 
           SuperscriptBox["\[Sigma]", "1"], ")"}], "il"]}], " ", "+", " ", 
        RowBox[{
         RowBox[{"cz", "[", 
          RowBox[{"LocalFieldNumber", ",", "nn", ",", "3"}], "]"}], 
         SuperscriptBox[
          RowBox[{"(", 
           SuperscriptBox["\[Sigma]", "3"], ")"}], "jl"], 
         SuperscriptBox[
          RowBox[{"(", 
           SuperscriptBox["\[Sigma]", "1"], ")"}], "ik"]}], "+", 
        RowBox[{
         RowBox[{"cz", "[", 
          RowBox[{"LocalFieldNumber", ",", "nn", ",", "4"}], "]"}], 
         SuperscriptBox[
          RowBox[{"(", 
           SuperscriptBox["\[Sigma]", "3"], ")"}], "kl"], 
         SuperscriptBox[
          RowBox[{"(", 
           SuperscriptBox["\[Sigma]", "1"], ")"}], "ij"]}]}], " ", " ", 
       ")"}]}], "/.", 
     RowBox[{"zSolution", "[", "LocalFieldNumber", "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"nn", ",", "1", ",", "NumZCharges"}], "}"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ZPrintoutTeXForm", "[", "LocalFieldNumber", " ", "]"}], " ", "=", 
  " ", 
  RowBox[{"TeXForm", "[", "%", "]"}]}]}], "Input",
 CellChangeTimes->{{3.7495780063573227`*^9, 3.7495781646272116`*^9}, {
  3.749578262989594*^9, 3.7495782901891236`*^9}, {3.7495783877325544`*^9, 
  3.7495783906908474`*^9}, {3.7495784331730666`*^9, 3.749578593042631*^9}, {
  3.7495786477334447`*^9, 3.7495786558599825`*^9}, {3.749578942349821*^9, 
  3.749578943306831*^9}},
 CellLabel->
  "In[233]:=",ExpressionUUID->"afe9cf47-f601-4be5-92c3-222e05db39e6"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    SubsuperscriptBox[
     OverscriptBox["Z", "~"], "1", "ijkl"], "\[Equal]", 
    RowBox[{
     RowBox[{
      FractionBox["3", "4"], " ", 
      SuperscriptBox["\[Sigma]", "jk"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Sigma]", "3"], ")"}], "il"]}], "+", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      SuperscriptBox["\[Sigma]", "il"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Sigma]", "3"], ")"}], "jk"]}], "+", 
     RowBox[{
      FractionBox["1", "4"], " ", 
      SuperscriptBox["\[Sigma]", "ik"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Sigma]", "3"], ")"}], "jl"]}], "-", 
     RowBox[{
      FractionBox["3", "2"], " ", 
      SuperscriptBox["\[Sigma]", "ij"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Sigma]", "3"], ")"}], "kl"]}]}]}], ",", 
   RowBox[{
    SubsuperscriptBox[
     OverscriptBox["Z", "~"], "2", "ijkl"], "\[Equal]", 
    RowBox[{
     RowBox[{
      FractionBox["1", "8"], " ", 
      SuperscriptBox["\[Sigma]", "jk"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Sigma]", "3"], ")"}], "il"]}], "+", 
     RowBox[{
      FractionBox["1", "4"], " ", 
      SuperscriptBox["\[Sigma]", "il"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Sigma]", "3"], ")"}], "jk"]}], "-", 
     RowBox[{
      FractionBox["1", "8"], " ", 
      SuperscriptBox["\[Sigma]", "ik"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Sigma]", "3"], ")"}], "jl"]}], "-", 
     RowBox[{
      FractionBox["1", "4"], " ", 
      SuperscriptBox["\[Sigma]", "ij"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Sigma]", "3"], ")"}], "kl"]}]}]}], ",", 
   RowBox[{
    SubsuperscriptBox[
     OverscriptBox["Z", "~"], "3", "ijkl"], "\[Equal]", 
    RowBox[{
     RowBox[{
      FractionBox["1", "8"], " ", 
      SuperscriptBox["\[Sigma]", "jk"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Sigma]", "3"], ")"}], "il"]}], "-", 
     RowBox[{
      FractionBox["1", "8"], " ", 
      SuperscriptBox["\[Sigma]", "ik"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Sigma]", "3"], ")"}], "jl"]}]}]}], ",", 
   RowBox[{
    SubsuperscriptBox[
     OverscriptBox["Z", "~"], "4", "ijkl"], "\[Equal]", 
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       FractionBox["1", "8"]}], " ", 
      SuperscriptBox["\[Sigma]", "jk"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Sigma]", "3"], ")"}], "il"]}], "+", 
     RowBox[{
      FractionBox["1", "8"], " ", 
      SuperscriptBox["\[Sigma]", "ik"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Sigma]", "3"], ")"}], "jl"]}]}]}], ",", 
   RowBox[{
    SubsuperscriptBox[
     OverscriptBox["Z", "~"], "5", "ijkl"], "\[Equal]", 
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       FractionBox["3", "4"]}], " ", 
      SuperscriptBox["\[Sigma]", "jk"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Sigma]", "3"], ")"}], "il"]}], "+", 
     RowBox[{
      FractionBox["1", "4"], " ", 
      SuperscriptBox["\[Sigma]", "ik"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Sigma]", "3"], ")"}], "jl"]}], "+", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      SuperscriptBox["\[Sigma]", "ij"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Sigma]", "3"], ")"}], "kl"]}]}]}], ",", 
   RowBox[{
    SubsuperscriptBox[
     OverscriptBox["Z", "~"], "6", "ijkl"], "\[Equal]", 
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       FractionBox["1", "8"]}], " ", 
      SuperscriptBox["\[Sigma]", "jk"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Sigma]", "3"], ")"}], "il"]}], "+", 
     RowBox[{
      FractionBox["1", "4"], " ", 
      SuperscriptBox["\[Sigma]", "il"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Sigma]", "3"], ")"}], "jk"]}], "-", 
     RowBox[{
      FractionBox["1", "8"], " ", 
      SuperscriptBox["\[Sigma]", "ik"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Sigma]", "3"], ")"}], "jl"]}]}]}], ",", 
   RowBox[{
    SubsuperscriptBox[
     OverscriptBox["Z", "~"], "7", "ijkl"], "\[Equal]", 
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       FractionBox["1", "4"]}], " ", 
      SuperscriptBox["\[Sigma]", "jk"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Sigma]", "3"], ")"}], "il"]}], "-", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      SuperscriptBox["\[Sigma]", "il"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Sigma]", "3"], ")"}], "jk"]}], "+", 
     RowBox[{
      FractionBox["3", "4"], " ", 
      SuperscriptBox["\[Sigma]", "ik"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Sigma]", "3"], ")"}], "jl"]}]}]}], ",", 
   RowBox[{
    SubsuperscriptBox[
     OverscriptBox["Z", "~"], "8", "ijkl"], "\[Equal]", 
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       FractionBox["3", "4"]}], " ", 
      SuperscriptBox["\[Sigma]", "jk"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Sigma]", "3"], ")"}], "il"]}], "+", 
     RowBox[{
      FractionBox["1", "4"], " ", 
      SuperscriptBox["\[Sigma]", "ik"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Sigma]", "3"], ")"}], "jl"]}], "+", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      SuperscriptBox["\[Sigma]", "ij"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[Sigma]", "3"], ")"}], "kl"]}]}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.7495781555643764`*^9, 3.7495781655574865`*^9}, {
   3.74957827036876*^9, 3.7495782917270346`*^9}, {3.749578375915585*^9, 
   3.749578391486059*^9}, {3.749578449756811*^9, 3.7495784573016443`*^9}, 
   3.7495785261028976`*^9, 3.7495785647655687`*^9, 3.749578596357394*^9, {
   3.749578649992343*^9, 3.7495786568545847`*^9}, 3.7495789465202274`*^9, 
   3.749841970178746*^9, 3.749858172423896*^9, 3.7604716272545147`*^9},
 CellLabel->
  "Out[233]=",ExpressionUUID->"7d3f26d3-48c4-4200-a30c-17f7739401b8"],

Cell["\<\
\\left\\{\\tilde{Z}_1^{\\text{ijkl}}=-\\frac{3}{2} \\sigma ^{\\text{ij}} \
\\left(\\sigma
   ^3\\right)^{\\text{kl}}+\\frac{1}{4} \\sigma ^{\\text{ik}} \\left(\\sigma \
^3\\right)^{\\text{jl}}+\\frac{3}{4}
   \\left(\\sigma ^3\\right)^{\\text{il}} \\sigma ^{\\text{jk}}+\\frac{1}{2} \
\\sigma ^{\\text{il}} \\left(\\sigma
   ^3\\right)^{\\text{jk}},\\tilde{Z}_2^{\\text{ijkl}}=-\\frac{1}{4} \\sigma \
^{\\text{ij}} \\left(\\sigma
   ^3\\right)^{\\text{kl}}-\\frac{1}{8} \\sigma ^{\\text{ik}} \\left(\\sigma \
^3\\right)^{\\text{jl}}+\\frac{1}{8}
   \\left(\\sigma ^3\\right)^{\\text{il}} \\sigma ^{\\text{jk}}+\\frac{1}{4} \
\\sigma ^{\\text{il}} \\left(\\sigma
   ^3\\right)^{\\text{jk}},\\tilde{Z}_3^{\\text{ijkl}}=\\frac{1}{8} \
\\left(\\sigma ^3\\right)^{\\text{il}} \\sigma
   ^{\\text{jk}}-\\frac{1}{8} \\sigma ^{\\text{ik}} \\left(\\sigma
   ^3\\right)^{\\text{jl}},\\tilde{Z}_4^{\\text{ijkl}}=\\frac{1}{8} \\sigma \
^{\\text{ik}} \\left(\\sigma
   ^3\\right)^{\\text{jl}}-\\frac{1}{8} \\left(\\sigma \
^3\\right)^{\\text{il}} \\sigma
   ^{\\text{jk}},\\tilde{Z}_5^{\\text{ijkl}}=\\frac{1}{2} \\sigma \
^{\\text{ij}} \\left(\\sigma
   ^3\\right)^{\\text{kl}}+\\frac{1}{4} \\sigma ^{\\text{ik}} \\left(\\sigma \
^3\\right)^{\\text{jl}}-\\frac{3}{4}
   \\left(\\sigma ^3\\right)^{\\text{il}} \\sigma \
^{\\text{jk}},\\tilde{Z}_6^{\\text{ijkl}}=-\\frac{1}{8} \\sigma
   ^{\\text{ik}} \\left(\\sigma ^3\\right)^{\\text{jl}}-\\frac{1}{8} \
\\left(\\sigma ^3\\right)^{\\text{il}} \\sigma
   ^{\\text{jk}}+\\frac{1}{4} \\sigma ^{\\text{il}} \\left(\\sigma
   ^3\\right)^{\\text{jk}},\\tilde{Z}_7^{\\text{ijkl}}=\\frac{3}{4} \\sigma \
^{\\text{ik}} \\left(\\sigma
   ^3\\right)^{\\text{jl}}-\\frac{1}{4} \\left(\\sigma \
^3\\right)^{\\text{il}} \\sigma ^{\\text{jk}}-\\frac{1}{2}
   \\sigma ^{\\text{il}} \\left(\\sigma \
^3\\right)^{\\text{jk}},\\tilde{Z}_8^{\\text{ijkl}}=\\frac{1}{2} \\sigma
   ^{\\text{ij}} \\left(\\sigma ^3\\right)^{\\text{kl}}+\\frac{1}{4} \\sigma \
^{\\text{ik}} \\left(\\sigma
   ^3\\right)^{\\text{jl}}-\\frac{3}{4} \\left(\\sigma \
^3\\right)^{\\text{il}} \\sigma ^{\\text{jk}}\\right\\}\
\>", "Output",
 CellChangeTimes->{{3.7495781555643764`*^9, 3.7495781655574865`*^9}, {
   3.74957827036876*^9, 3.7495782917270346`*^9}, {3.749578375915585*^9, 
   3.749578391486059*^9}, {3.749578449756811*^9, 3.7495784573016443`*^9}, 
   3.7495785261028976`*^9, 3.7495785647655687`*^9, 3.749578596357394*^9, {
   3.749578649992343*^9, 3.7495786568545847`*^9}, 3.7495789465202274`*^9, 
   3.749841970178746*^9, 3.749858172423896*^9, 3.760471627328043*^9},
 CellLabel->
  "Out[234]//TeXForm=",ExpressionUUID->"098f5b97-2ac4-4971-bcdb-5d8c4b9ec4d7"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{"LocalFieldNumber", ",", "NumZCharges"}], "]"}]], "Input",
 CellChangeTimes->{{3.747496499638111*^9, 3.7474965053367357`*^9}, 
   3.7494912134588275`*^9, {3.7494922309540925`*^9, 3.7494922358260307`*^9}},
 CellLabel->
  "In[235]:=",ExpressionUUID->"aff13fc7-4d1f-409f-9d6a-f97ecb490e83"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1920, 997},
WindowMargins->{{-8, Automatic}, {Automatic, -8}},
PrintingCopies->1,
PrintingPageRange->{Automatic, Automatic},
PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}},
ShowSelection->True,
CellContext->Notebook,
Magnification:>1.5 Inherited,
FrontEndVersion->"11.3 for Microsoft Windows (64-bit) (March 6, 2018)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 9409, 130, 882, "Title",ExpressionUUID->"dfab12f3-523a-4891-ab6d-6353bcfa0aa5"],
Cell[CellGroupData[{
Cell[10013, 156, 148, 2, 43, "Input",ExpressionUUID->"8e4673ca-9eef-4883-a43b-511bdd0767b0"],
Cell[10164, 160, 282, 4, 49, "Output",ExpressionUUID->"7c5824c1-b56b-46f6-ab6e-1de5a9f1b951"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10483, 169, 251, 4, 99, "Section",ExpressionUUID->"edb43e4c-6e9c-449d-8a2b-28a0eff747b5"],
Cell[10737, 175, 201, 4, 43, "Input",ExpressionUUID->"086316f7-7ddb-472b-933a-e697b1994792"],
Cell[10941, 181, 375, 6, 43, "Input",ExpressionUUID->"c25483dd-b5ce-44ca-9cb2-cad2a8f692c5"],
Cell[CellGroupData[{
Cell[11341, 191, 237, 6, 80, "Subsection",ExpressionUUID->"28187006-d255-4a9e-8716-d9688eb25e3c"],
Cell[CellGroupData[{
Cell[11603, 201, 474, 13, 43, "Input",ExpressionUUID->"cd92a870-cc89-4569-8ad6-b3793f408796"],
Cell[12080, 216, 558, 8, 49, "Output",ExpressionUUID->"f53f797a-a790-430d-a108-983e599dfd9e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12675, 229, 713, 17, 43, "Input",ExpressionUUID->"e9b343ff-d5ff-4c6d-93fa-5ec8bf44dc7e"],
Cell[13391, 248, 567, 8, 49, "Output",ExpressionUUID->"1428e491-b848-431a-a765-e448c855fcb8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[13995, 261, 488, 11, 43, "Input",ExpressionUUID->"dc07e443-9b83-44a3-ab71-f68b1f74f390"],
Cell[14486, 274, 560, 8, 49, "Output",ExpressionUUID->"ac374728-517f-4d96-81db-8023762227b8"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[15095, 288, 491, 13, 80, "Subsection",ExpressionUUID->"62946acd-2bb4-4ad3-a75b-335edd44bb5a"],
Cell[CellGroupData[{
Cell[15611, 305, 318, 7, 96, "Input",ExpressionUUID->"8f3f0f1c-157b-4744-9bf7-7d072359e037"],
Cell[15932, 314, 8422, 262, 976, "Output",ExpressionUUID->"46449363-1068-485d-9e22-7be8513a018b"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[24403, 582, 198, 3, 54, "Subsection",ExpressionUUID->"783c487e-6212-4784-94d6-44fb6a990dc4"],
Cell[CellGroupData[{
Cell[24626, 589, 596, 15, 43, "Input",ExpressionUUID->"28e06517-71c8-4b72-b5f1-e18a8e8e4596"],
Cell[25225, 606, 6365, 182, 195, "Output",ExpressionUUID->"8accd478-e04d-4f0d-b2ff-b9d8ccebf636"]
}, Open  ]],
Cell[CellGroupData[{
Cell[31627, 793, 839, 21, 43, "Input",ExpressionUUID->"5130b64d-94a3-4c50-ab4c-ac3053345dbf"],
Cell[32469, 816, 1334, 31, 49, "Output",ExpressionUUID->"29a495fe-0c7c-4323-9dba-0fa57d612f22"]
}, Open  ]],
Cell[CellGroupData[{
Cell[33840, 852, 207, 3, 43, "Input",ExpressionUUID->"0f4908af-8be8-4277-8902-e605e096018a"],
Cell[34050, 857, 424, 8, 93, "Output",ExpressionUUID->"fc37b7c7-a4e3-4eb2-b866-180011820bb5"]
}, Open  ]],
Cell[34489, 868, 369, 8, 43, "Input",ExpressionUUID->"00f83925-0243-414c-b04a-318b52f78863"],
Cell[CellGroupData[{
Cell[34883, 880, 651, 17, 43, "Input",ExpressionUUID->"1e96b33d-90f5-43fc-bf2d-279c865fc706"],
Cell[35537, 899, 500, 13, 49, "Output",ExpressionUUID->"13cd45f9-fbea-4ca3-b57e-c0cb28f8bea8"]
}, Open  ]],
Cell[36052, 915, 496, 11, 43, "Input",ExpressionUUID->"5f664c8c-dfc7-4514-b19c-92d078ec0818"],
Cell[CellGroupData[{
Cell[36573, 930, 701, 18, 43, "Input",ExpressionUUID->"db825423-7ba3-44fb-8880-70addefd27ce"],
Cell[37277, 950, 599, 15, 49, "Output",ExpressionUUID->"1e12ff3a-22bf-4ed6-9d9d-b2c242853829"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[37937, 972, 952, 23, 111, "Section",ExpressionUUID->"001af4b3-a842-415b-93b5-f7c611a0c3da"],
Cell[CellGroupData[{
Cell[38914, 999, 630, 18, 80, "Subsection",ExpressionUUID->"d709655d-8321-47e6-adf8-dca2e21c919f"],
Cell[CellGroupData[{
Cell[39569, 1021, 422, 7, 5861, "Input",ExpressionUUID->"bacce989-d1a8-408e-bb7b-e3cc56f4640a"],
Cell[39994, 1030, 535, 7, 157, "Output",ExpressionUUID->"7caf29b0-8519-4217-ab56-931e4a3b4f89"],
Cell[40532, 1039, 535, 7, 157, "Output",ExpressionUUID->"5783968d-a20f-4b73-bc82-e47cb2444842"]
}, Open  ]],
Cell[CellGroupData[{
Cell[41104, 1051, 1214, 35, 4200, "Subsubsection",ExpressionUUID->"4bbafa65-4d49-402a-88e9-d072f1964084"],
Cell[42321, 1088, 1353, 36, 9450, "Input",ExpressionUUID->"fc503335-f16b-49f3-a0fe-751e6ac185a0"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[43723, 1130, 3736, 97, 366, "Subsection",ExpressionUUID->"205da802-785c-4106-bfff-b750ece28438"],
Cell[CellGroupData[{
Cell[47484, 1231, 1034, 26, 1158, "Input",ExpressionUUID->"e9be1853-1d00-496f-a3a9-6c072ba66d8d"],
Cell[48521, 1259, 2678, 66, 157, "Output",ExpressionUUID->"69e27dee-cc22-4a58-9025-fb330582f4c1"]
}, Open  ]],
Cell[51214, 1328, 5289, 142, 2151, "Input",ExpressionUUID->"eafbad34-be49-46ea-84d2-4bf4f2b6be20"],
Cell[56506, 1472, 840, 21, 486, "Input",ExpressionUUID->"100149e7-05b9-49aa-9530-6f4fcf649e18"],
Cell[57349, 1495, 1342, 30, 830, "Input",ExpressionUUID->"a89cd3bb-a388-488f-8c03-f7203ab45395"],
Cell[58694, 1527, 2331, 52, 1487, "Input",ExpressionUUID->"c4ae92e9-3d80-4033-9803-975670337b28"],
Cell[CellGroupData[{
Cell[61050, 1583, 395, 8, 486, "Input",ExpressionUUID->"4bc298cb-98b1-466e-b86e-a3ae9d4b1ab6"],
Cell[61448, 1593, 597, 9, 157, "Output",ExpressionUUID->"e124806f-6d7c-48c4-8979-df7de20567d0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[62082, 1607, 663, 15, 486, "Input",ExpressionUUID->"ca5ff882-d444-48cd-9df9-9587b29ed16d"],
Cell[62748, 1624, 9649, 299, 157, "Output",ExpressionUUID->"b9895025-8e18-44f2-98b9-4615419db875"]
}, Open  ]],
Cell[72412, 1926, 176, 3, 591, "Text",ExpressionUUID->"f69fa7c3-9c3b-429f-a2c7-e0861280fcb4"],
Cell[CellGroupData[{
Cell[72613, 1933, 3205, 98, 2079, "Input",ExpressionUUID->"ff758a59-1d71-42b3-88fb-367207e59f93"],
Cell[75821, 2033, 3787, 98, 157, "Output",ExpressionUUID->"921ef4b8-6557-4180-a435-71a69ea576b8"]
}, Open  ]],
Cell[79623, 2134, 162, 3, 591, "Text",ExpressionUUID->"5dba0ea5-97e4-4084-be74-43d90da042c5"],
Cell[CellGroupData[{
Cell[79810, 2141, 662, 11, 486, "Input",ExpressionUUID->"603f711e-9d52-40e8-9e93-b451dcf3ff94"],
Cell[80475, 2154, 3936, 100, 157, "Output",ExpressionUUID->"e41fc649-b4cf-4e00-b6ae-4e383e9c6091"]
}, Open  ]],
Cell[CellGroupData[{
Cell[84448, 2259, 3739, 97, 1957, "Subsubsection",ExpressionUUID->"a42ca94f-af04-4ed8-bf92-1d6df0bc4108"],
Cell[CellGroupData[{
Cell[88212, 2360, 1655, 37, 2151, "Input",ExpressionUUID->"3768293f-fd92-4b0a-8d08-0a82ff7b8dfc"],
Cell[89870, 2399, 900, 20, 157, "Output",ExpressionUUID->"d3695e6c-f6ee-47f5-9ded-1401e9bfc9d8"],
Cell[90773, 2421, 657, 10, 157, "Output",ExpressionUUID->"1a7b1329-9031-4f61-b5f1-08677bfdf00e"]
}, Open  ]],
Cell[91445, 2434, 252, 4, 486, "Input",ExpressionUUID->"a56a8d08-0f22-4f75-b542-babb23fd35e8"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[91746, 2444, 3596, 97, 366, "Subsection",ExpressionUUID->"a36695d2-55ea-4b5e-8aa1-28e605e6d111"],
Cell[CellGroupData[{
Cell[95367, 2545, 935, 25, 864, "Input",ExpressionUUID->"ddc3cec3-92f0-4ccb-960e-74153a96380b"],
Cell[96305, 2572, 2587, 65, 157, "Output",ExpressionUUID->"fa9d0115-74f3-4000-bae9-7554520767f0"]
}, Open  ]],
Cell[98907, 2640, 5387, 144, 2904, "Input",ExpressionUUID->"385cc70f-c073-4a26-bbe7-362de0dc128c"],
Cell[104297, 2786, 840, 21, 551, "Input",ExpressionUUID->"14af2f9e-da01-42f3-9f21-11e71c62465f"],
Cell[105140, 2809, 1342, 30, 864, "Input",ExpressionUUID->"eb6f10ee-9d4c-46fb-b6f2-5b2ae5297ef5"],
Cell[106485, 2841, 2331, 52, 1649, "Input",ExpressionUUID->"a3cdee00-bf25-42e6-bf63-88b129a8df4c"],
Cell[CellGroupData[{
Cell[108841, 2897, 395, 8, 231, "Input",ExpressionUUID->"fec9cb2f-0a18-45fc-a5b2-7b01539fcaf2"],
Cell[109239, 2907, 562, 8, 157, "Output",ExpressionUUID->"9025cdb6-7fb9-4631-8cd2-8865c985e95b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[109838, 2920, 611, 14, 551, "Input",ExpressionUUID->"16297f8e-66f6-4ade-9e04-eddf4eae72d6"],
Cell[110452, 2936, 9438, 291, 157, "Output",ExpressionUUID->"bdcaa02c-faec-4c18-af2e-76a38daf4802"]
}, Open  ]],
Cell[CellGroupData[{
Cell[119927, 3232, 511, 9, 231, "Input",ExpressionUUID->"f5c7eccc-863f-468a-b1b5-0bcd684212f3"],
Cell[120441, 3243, 3765, 98, 157, "Output",ExpressionUUID->"fe083045-a573-4b3d-8974-68ba7c38174d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[124243, 3346, 3599, 97, 1341, "Subsubsection",ExpressionUUID->"cbd14138-b5e3-4285-b434-124cc7759271"],
Cell[CellGroupData[{
Cell[127867, 3447, 1655, 37, 1179, "Input",ExpressionUUID->"e1b8a95d-9982-414a-822b-3ae87f00c6ce"],
Cell[129525, 3486, 736, 17, 157, "Output",ExpressionUUID->"99b8da65-189a-465b-95da-802931b7c8e0"],
Cell[130264, 3505, 452, 6, 157, "Output",ExpressionUUID->"c52ca841-4dfb-4aaf-83af-8ff17c2fa859"]
}, Open  ]],
Cell[130731, 3514, 252, 4, 231, "Input",ExpressionUUID->"6e285e73-fcfa-461f-b31b-37b29d9027f9"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[131032, 3524, 3830, 100, 366, "Subsection",ExpressionUUID->"7d48686b-675b-4939-bef5-323d36995ec9"],
Cell[CellGroupData[{
Cell[134887, 3628, 962, 25, 864, "Input",ExpressionUUID->"d7025e6d-0320-4ca1-bf8e-9c30120efbde"],
Cell[135852, 3655, 2558, 64, 157, "Output",ExpressionUUID->"de95e660-cf76-4349-82dc-a1eeb9ee1e1a"]
}, Open  ]],
Cell[138425, 3722, 5177, 139, 2904, "Input",ExpressionUUID->"a45c5c01-1974-4414-b5b3-b5eeb86b93a7"],
Cell[143605, 3863, 840, 21, 551, "Input",ExpressionUUID->"0fc42746-bc36-46fb-949e-c78ce72a16e0"],
Cell[144448, 3886, 1342, 30, 864, "Input",ExpressionUUID->"d00fb62a-fd8b-43c9-a68b-4d3fac40e38c"],
Cell[145793, 3918, 2331, 52, 1649, "Input",ExpressionUUID->"dd832332-c1e5-4b81-bb3e-e0e245f7a352"],
Cell[CellGroupData[{
Cell[148149, 3974, 395, 8, 231, "Input",ExpressionUUID->"19e7003e-ac02-4769-98f8-fce1e10a610b"],
Cell[148547, 3984, 553, 8, 157, "Output",ExpressionUUID->"de439e8b-3ec1-4800-a660-c39ab72caced"]
}, Open  ]],
Cell[CellGroupData[{
Cell[149137, 3997, 615, 14, 551, "Input",ExpressionUUID->"357e0dae-9dfd-4343-a897-319e94fce51b"],
Cell[149755, 4013, 10737, 336, 157, "Output",ExpressionUUID->"3e0f424f-6ea9-41d6-97ba-27acf1c38a4d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[160529, 4354, 511, 9, 231, "Input",ExpressionUUID->"17932f0a-f0de-4019-b254-6b4e38b992ff"],
Cell[161043, 4365, 3784, 99, 157, "Output",ExpressionUUID->"f2cb7613-f84f-4460-8220-6f2e879ed463"]
}, Open  ]],
Cell[CellGroupData[{
Cell[164864, 4469, 3833, 100, 1341, "Subsubsection",ExpressionUUID->"2eaa1bb8-f11a-40b3-b956-a69aa642cb26"],
Cell[CellGroupData[{
Cell[168722, 4573, 1623, 36, 1021, "Input",ExpressionUUID->"c4134d7e-d338-47e1-9e4b-916ec3360863"],
Cell[170348, 4611, 893, 22, 157, "Output",ExpressionUUID->"69889fd8-86fa-482d-9e98-ce5c473c7af5"]
}, Open  ]],
Cell[171256, 4636, 252, 4, 231, "Input",ExpressionUUID->"95e726c3-f373-4278-ac48-b473e12413ee"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[171557, 4646, 3789, 101, 366, "Subsection",ExpressionUUID->"6a2c5085-77d1-48dc-a81f-ce6fdc5b52bd"],
Cell[CellGroupData[{
Cell[175371, 4751, 1014, 26, 864, "Input",ExpressionUUID->"ed970a20-b92e-4602-87d3-7753f65f2534"],
Cell[176388, 4779, 2544, 64, 157, "Output",ExpressionUUID->"3573c4a5-4c6c-4828-b066-2021e0ea6d68"]
}, Open  ]],
Cell[178947, 4846, 5336, 144, 2904, "Input",ExpressionUUID->"65b1865d-a6ce-41a9-a15b-f3ab9ee61b6a"],
Cell[184286, 4992, 840, 21, 551, "Input",ExpressionUUID->"8871309a-76be-4df0-b22c-9e674dc60bff"],
Cell[185129, 5015, 1342, 30, 864, "Input",ExpressionUUID->"4a8a492a-c2bb-40b3-b48c-2cfab9504469"],
Cell[186474, 5047, 2331, 52, 1649, "Input",ExpressionUUID->"7860e437-b8dc-44ef-b903-75405e752b80"],
Cell[CellGroupData[{
Cell[188830, 5103, 395, 8, 231, "Input",ExpressionUUID->"a4827f82-db38-4404-847e-ecf2f332b8df"],
Cell[189228, 5113, 578, 8, 157, "Output",ExpressionUUID->"fc9fe0de-7860-4eab-9209-2274850a96d3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[189843, 5126, 610, 14, 551, "Input",ExpressionUUID->"c10c8467-deea-4028-91c2-2b439c8bbaea"],
Cell[190456, 5142, 10728, 330, 157, "Output",ExpressionUUID->"9bc68bb6-7609-4a5a-a863-80157e40e00f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[201221, 5477, 511, 9, 231, "Input",ExpressionUUID->"3a5f3701-d890-4bcb-8cb7-a82aa3f934fd"],
Cell[201735, 5488, 3783, 98, 157, "Output",ExpressionUUID->"886a18ec-5df5-4cfd-80f1-131bd884c607"]
}, Open  ]],
Cell[CellGroupData[{
Cell[205555, 5591, 3792, 101, 1341, "Subsubsection",ExpressionUUID->"3a2453d2-f982-449b-88c5-9d08de2be505"],
Cell[CellGroupData[{
Cell[209372, 5696, 1655, 37, 1179, "Input",ExpressionUUID->"5754f96b-1fa5-41a0-b2d6-15c34c74b48c"],
Cell[211030, 5735, 1173, 31, 157, "Output",ExpressionUUID->"3587c256-69f6-40d3-be0e-88acb6430eb4"],
Cell[212206, 5768, 548, 10, 157, "Output",ExpressionUUID->"2872bdba-0816-4593-a26c-686546955e14"]
}, Open  ]],
Cell[212769, 5781, 252, 4, 231, "Input",ExpressionUUID->"d3855c10-153d-4100-a785-a9b8c1181e6c"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[213070, 5791, 3768, 101, 366, "Subsection",ExpressionUUID->"87550882-def9-4703-91ed-f00a0bc9f66c"],
Cell[CellGroupData[{
Cell[216863, 5896, 1066, 27, 708, "Input",ExpressionUUID->"9fe5455f-2c26-43b3-b5d5-09f166597751"],
Cell[217932, 5925, 2532, 64, 157, "Output",ExpressionUUID->"0c2b45bb-2186-4828-a44d-48b29b23d31d"]
}, Open  ]],
Cell[220479, 5992, 5336, 144, 1649, "Input",ExpressionUUID->"9c73824b-58c6-4e4b-8ee2-418acb1e7882"],
Cell[225818, 6138, 840, 21, 231, "Input",ExpressionUUID->"ac9a69f0-710b-43e2-84d6-9911098f1a9d"],
Cell[226661, 6161, 1342, 30, 551, "Input",ExpressionUUID->"93133ce8-1c7d-4e0d-87bf-d912f1b18670"],
Cell[228006, 6193, 2331, 52, 864, "Input",ExpressionUUID->"a1c29061-a703-49bf-9e52-509bb00c4220"],
Cell[CellGroupData[{
Cell[230362, 6249, 395, 8, 231, "Input",ExpressionUUID->"a4e4a1c3-ed07-4c09-8934-4cde54578d3e"],
Cell[230760, 6259, 604, 8, 157, "Output",ExpressionUUID->"60aebff3-8be6-4cb0-815e-da500041ca6e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[231401, 6272, 613, 14, 231, "Input",ExpressionUUID->"0f4a6791-aa86-48e6-a204-c556ece80135"],
Cell[232017, 6288, 10758, 331, 157, "Output",ExpressionUUID->"3da3e802-2b41-491f-a825-ce1a8b8582c3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[242812, 6624, 511, 9, 231, "Input",ExpressionUUID->"2e5baa45-1f75-4678-b9a9-379db85e4789"],
Cell[243326, 6635, 3852, 101, 157, "Output",ExpressionUUID->"46621f8c-b86e-43d0-853c-3dcd07e6edb8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[247215, 6741, 3771, 101, 843, "Subsubsection",ExpressionUUID->"d417d30b-8e31-446e-b228-2f28859864c0"],
Cell[CellGroupData[{
Cell[251011, 6846, 1623, 36, 708, "Input",ExpressionUUID->"ff0928f0-dd4e-4b34-bfe3-a82c551be875"],
Cell[252637, 6884, 1205, 33, 157, "Output",ExpressionUUID->"e8a01c51-b42c-470f-955e-6d388b7ffa8e"]
}, Open  ]],
Cell[253857, 6920, 252, 4, 231, "Input",ExpressionUUID->"8b15ebb6-fb5a-4adb-8948-6c4560fd2950"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[254158, 6930, 3339, 87, 366, "Subsection",ExpressionUUID->"844a0cb8-17d9-4cc5-b1b7-a616091ac1ba"],
Cell[CellGroupData[{
Cell[257522, 7021, 1156, 28, 864, "Input",ExpressionUUID->"0ec9474d-5d2e-41e9-99af-683b03c53d88"],
Cell[258681, 7051, 2465, 63, 157, "Output",ExpressionUUID->"06670eaf-34c9-400c-a0b3-9a7f1fc1067f"]
}, Open  ]],
Cell[261161, 7117, 4610, 124, 2434, "Input",ExpressionUUID->"2fb3483d-ab29-4e15-a1d4-a7a9673e428a"],
Cell[265774, 7243, 840, 21, 551, "Input",ExpressionUUID->"c6235e0b-f77e-4622-a04d-e545a97e21a0"],
Cell[266617, 7266, 1342, 30, 864, "Input",ExpressionUUID->"02ec0dde-0178-4a31-addd-784b4492c9c5"],
Cell[267962, 7298, 2331, 52, 864, "Input",ExpressionUUID->"53364557-39e7-4cce-a8e2-ee6010d1afa8"],
Cell[CellGroupData[{
Cell[270318, 7354, 395, 8, 231, "Input",ExpressionUUID->"6bb1ab52-630a-437d-a4ea-2c0c0fa358b7"],
Cell[270716, 7364, 631, 9, 157, "Output",ExpressionUUID->"49376dcc-5abc-4046-a401-66f9fde2dba6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[271384, 7378, 663, 15, 551, "Input",ExpressionUUID->"472c3155-dd47-4af5-b9eb-d7fc8f7ea5fc"],
Cell[272050, 7395, 10186, 317, 157, "Output",ExpressionUUID->"2f35296d-41d8-43e7-b928-0fb3f277cd08"]
}, Open  ]],
Cell[CellGroupData[{
Cell[282273, 7717, 3342, 87, 1341, "Subsubsection",ExpressionUUID->"94205a03-0745-432f-99a0-71dd72641bb5"],
Cell[CellGroupData[{
Cell[285640, 7808, 1623, 36, 1021, "Input",ExpressionUUID->"8b360570-d68a-4554-a730-a57b05de008f"],
Cell[287266, 7846, 979, 22, 157, "Output",ExpressionUUID->"24bc7faf-ae50-4447-93b6-b7db8318d0f8"]
}, Open  ]],
Cell[288260, 7871, 252, 4, 231, "Input",ExpressionUUID->"055e8a1a-15ff-4328-ba95-78cb47e8c6ec"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[288561, 7881, 3361, 88, 366, "Subsection",ExpressionUUID->"c17bbd40-b4a0-4662-bf41-42e51c81e954"],
Cell[CellGroupData[{
Cell[291947, 7973, 1106, 27, 864, "Input",ExpressionUUID->"938ceb08-da15-419b-877f-faf73d6b85ef"],
Cell[293056, 8002, 2465, 63, 157, "Output",ExpressionUUID->"d97fc7b0-3552-42fe-905d-362e9ec4755f"]
}, Open  ]],
Cell[295536, 8068, 4770, 127, 2434, "Input",ExpressionUUID->"6933d96f-4836-40c6-8d9a-4bad38e9714c"],
Cell[300309, 8197, 840, 21, 551, "Input",ExpressionUUID->"5393eb19-d16f-47bd-a356-e61a816f7c5b"],
Cell[301152, 8220, 1342, 30, 864, "Input",ExpressionUUID->"c0198c2b-73fd-459d-aa78-1c6041d89aba"],
Cell[302497, 8252, 2335, 53, 1649, "Input",ExpressionUUID->"4f95fe2a-9e0b-4b54-939f-cb77627f3e42"],
Cell[CellGroupData[{
Cell[304857, 8309, 399, 9, 231, "Input",ExpressionUUID->"12706bfa-9f47-43c5-aaf4-4599e7d713c2"],
Cell[305259, 8320, 599, 10, 157, "Output",ExpressionUUID->"3c3547af-80eb-42a6-a8fb-aaba09c70c9d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[305895, 8335, 615, 15, 551, "Input",ExpressionUUID->"32ae2367-8dbd-4aac-bc76-4c3220b456fa"],
Cell[306513, 8352, 10092, 311, 157, "Output",ExpressionUUID->"60429e3e-1e82-4b69-a01d-43cc8c602aa0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[316642, 8668, 515, 10, 231, "Input",ExpressionUUID->"cda5bf56-6b71-4b64-870d-38246c450f5b"],
Cell[317160, 8680, 3806, 100, 157, "Output",ExpressionUUID->"13136d80-00a6-498d-b14f-87e2d2da86f3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[321003, 8785, 3364, 88, 1325, "Subsubsection",ExpressionUUID->"171683d4-ede3-4352-9914-31132fad7f61"],
Cell[CellGroupData[{
Cell[324392, 8877, 1627, 37, 1021, "Input",ExpressionUUID->"55807b00-6268-4c9e-9f2a-81cfad588fe5"],
Cell[326022, 8916, 1020, 28, 157, "Output",ExpressionUUID->"631cc227-2034-4f25-98c2-a9a930905d97"]
}, Open  ]],
Cell[327057, 8947, 256, 5, 231, "Input",ExpressionUUID->"b4e68759-cf66-4130-b91f-12def5dd43a6"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[327362, 8958, 3598, 94, 366, "Subsection",ExpressionUUID->"1122043b-3661-4ef0-8b32-fe863a53ff1c"],
Cell[CellGroupData[{
Cell[330985, 9056, 1113, 28, 864, "Input",ExpressionUUID->"ab56a5b9-30d6-40be-8584-dd1de8f02803"],
Cell[332101, 9086, 2523, 64, 157, "Output",ExpressionUUID->"cbcfd7de-2144-4d8c-9ede-953046ce0a81"]
}, Open  ]],
Cell[334639, 9153, 5256, 142, 2747, "Input",ExpressionUUID->"d1c7b500-1aef-40e8-ba1f-326987f71009"],
Cell[339898, 9297, 844, 22, 551, "Input",ExpressionUUID->"95b3a50b-8e5a-4830-be0b-b3c8298c6c72"],
Cell[340745, 9321, 1346, 31, 864, "Input",ExpressionUUID->"9f8784c2-560b-4fc1-94ef-83101268a830"],
Cell[342094, 9354, 2335, 53, 1649, "Input",ExpressionUUID->"ebba3a05-96e6-4f88-9637-f345daee4765"],
Cell[CellGroupData[{
Cell[344454, 9411, 399, 9, 231, "Input",ExpressionUUID->"54ef90be-0339-4a76-8057-6ae5f1cfaf90"],
Cell[344856, 9422, 609, 9, 157, "Output",ExpressionUUID->"94d46923-d167-43a0-a003-b5827231de61"]
}, Open  ]],
Cell[CellGroupData[{
Cell[345502, 9436, 619, 15, 551, "Input",ExpressionUUID->"4307cc15-3cc0-454a-a4c8-6f84ca45e382"],
Cell[346124, 9453, 10563, 322, 157, "Output",ExpressionUUID->"2a619bcd-4424-41af-bed3-a0fa4108c7b0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[356724, 9780, 515, 10, 231, "Input",ExpressionUUID->"f2d6e175-97cd-4318-bd63-e403d131c80c"],
Cell[357242, 9792, 3888, 102, 157, "Output",ExpressionUUID->"62d60298-5e35-4725-959f-2b7842a4c54b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[361167, 9899, 3601, 94, 1341, "Subsubsection",ExpressionUUID->"18292be8-0989-4a5f-9003-637aecc8630c"],
Cell[CellGroupData[{
Cell[364793, 9997, 1627, 37, 1021, "Input",ExpressionUUID->"ae7286dc-f5c3-4f31-ab76-2017c6d8f274"],
Cell[366423, 10036, 1250, 33, 157, "Output",ExpressionUUID->"80475ff2-d126-4d85-828a-0333dbb98381"]
}, Open  ]],
Cell[367688, 10072, 256, 5, 231, "Input",ExpressionUUID->"dbc9bacf-e681-4517-9314-e8da7da1428e"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[367993, 10083, 3497, 94, 366, "Subsection",ExpressionUUID->"b7893591-1540-4b1c-bcbf-bb5f9bfdb5bb"],
Cell[CellGroupData[{
Cell[371515, 10181, 1066, 28, 864, "Input",ExpressionUUID->"89a3cdc1-681f-49aa-96c6-ee208780db99"],
Cell[372584, 10211, 2518, 64, 157, "Output",ExpressionUUID->"c3221ab2-02f6-48e9-9b1c-cdfe8b12971d"]
}, Open  ]],
Cell[375117, 10278, 5252, 142, 2747, "Input",ExpressionUUID->"79ed4c6e-8d4f-422c-99ec-41812546d3c7"],
Cell[380372, 10422, 844, 22, 551, "Input",ExpressionUUID->"c6416ed4-1f3e-47b7-a975-a667ac0d3480"],
Cell[381219, 10446, 1346, 31, 864, "Input",ExpressionUUID->"9ba1910c-db68-4a42-8762-6d8ac15caee2"],
Cell[382568, 10479, 2335, 53, 1649, "Input",ExpressionUUID->"007b38ba-d2e9-4338-94c0-6ca5398d3bb2"],
Cell[CellGroupData[{
Cell[384928, 10536, 399, 9, 231, "Input",ExpressionUUID->"f9492f32-0b8b-4432-b763-ede958f0051b"],
Cell[385330, 10547, 641, 10, 157, "Output",ExpressionUUID->"ff091632-316c-4230-95c9-db5670d8c177"]
}, Open  ]],
Cell[CellGroupData[{
Cell[386008, 10562, 614, 15, 551, "Input",ExpressionUUID->"dc868a5c-11c0-4039-bb21-8a3156707f4d"],
Cell[386625, 10579, 10774, 330, 157, "Output",ExpressionUUID->"3a3eb490-6f49-436a-9d81-f13ba22f2452"]
}, Open  ]],
Cell[CellGroupData[{
Cell[397436, 10914, 515, 10, 231, "Input",ExpressionUUID->"411d9c6e-8c36-405a-b30a-11f0d3743f5c"],
Cell[397954, 10926, 3849, 99, 157, "Output",ExpressionUUID->"baaee919-356e-4bc1-99fa-97c72c356436"]
}, Open  ]],
Cell[CellGroupData[{
Cell[401840, 11030, 3500, 94, 1341, "Subsubsection",ExpressionUUID->"f4d79ce4-8597-4220-b823-6077f87efb07"],
Cell[CellGroupData[{
Cell[405365, 11128, 1625, 37, 1021, "Input",ExpressionUUID->"e552d758-92de-4219-b435-ae3a06a8a455"],
Cell[406993, 11167, 488, 8, 157, "Output",ExpressionUUID->"addbf926-349d-4efc-bb9c-463fab67d702"]
}, Open  ]],
Cell[407496, 11178, 256, 5, 231, "Input",ExpressionUUID->"3403d7c5-4a99-48e4-be86-3cd99ede3c83"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[407801, 11189, 3221, 86, 366, "Subsection",ExpressionUUID->"5d438b76-ace2-48e3-b168-c0d91150e30a"],
Cell[CellGroupData[{
Cell[411047, 11279, 1023, 27, 864, "Input",ExpressionUUID->"29b96f87-4ac1-45e2-a4f2-db18f26d8a91"],
Cell[412073, 11308, 2503, 64, 157, "Output",ExpressionUUID->"e84e77ce-ffdb-4fa3-ae4e-c88d186c0592"]
}, Open  ]],
Cell[414591, 11375, 4614, 125, 2434, "Input",ExpressionUUID->"1d5f62be-3e5e-4be9-9b86-3b2211cd41f9"],
Cell[419208, 11502, 844, 22, 551, "Input",ExpressionUUID->"52447c01-8abb-4182-baea-047d8f12150b"],
Cell[420055, 11526, 1346, 31, 864, "Input",ExpressionUUID->"56e5d59d-b45a-4ca0-b0c3-bbb559784d28"],
Cell[421404, 11559, 2335, 53, 1649, "Input",ExpressionUUID->"ef4ec8b4-24d8-42e1-a6b8-c2c0aff6dffb"],
Cell[CellGroupData[{
Cell[423764, 11616, 399, 9, 231, "Input",ExpressionUUID->"71aa2c21-1484-4c53-9cd8-a71dd9642cb6"],
Cell[424166, 11627, 650, 10, 157, "Output",ExpressionUUID->"7e2c62eb-2f8c-48c3-9ff1-7932784250b0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[424853, 11642, 667, 16, 551, "Input",ExpressionUUID->"f98adaff-5911-42b2-a167-2f0b741d613f"],
Cell[425523, 11660, 10297, 322, 157, "Output",ExpressionUUID->"11af6f7d-f0f4-4e63-a94c-c75450f680c4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[435857, 11987, 3224, 86, 1341, "Subsubsection",ExpressionUUID->"512d9d3b-9be8-4a3f-b15e-ba10eb3a1060"],
Cell[CellGroupData[{
Cell[439106, 12077, 1627, 37, 1021, "Input",ExpressionUUID->"4e8c68ac-4134-4a6c-b0c3-68d7a8fde934"],
Cell[440736, 12116, 990, 22, 157, "Output",ExpressionUUID->"ec910783-791a-4a69-b582-a476d9de153b"]
}, Open  ]],
Cell[441741, 12141, 256, 5, 231, "Input",ExpressionUUID->"265219f1-fff8-4798-9005-5851114fb5e7"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[442046, 12152, 6912, 173, 693, "Subsection",ExpressionUUID->"ede232d0-d24a-4d82-9e83-5a799722d4af"],
Cell[CellGroupData[{
Cell[448983, 12329, 1078, 27, 1021, "Input",ExpressionUUID->"b4a04213-f33c-44c4-a894-eb04e9024fa2"],
Cell[450064, 12358, 4034, 105, 157, "Output",ExpressionUUID->"012cf50f-3935-4db1-8219-f00c09a0a1af"]
}, Open  ]],
Cell[454113, 12466, 6762, 177, 3690, "Input",ExpressionUUID->"9d914243-d44f-4122-ac2d-55f27de8ed5b"],
Cell[460878, 12645, 1130, 31, 708, "Input",ExpressionUUID->"cf173e11-f623-4e05-a3cd-d454cc570a6f"],
Cell[462011, 12678, 2994, 74, 1491, "Input",ExpressionUUID->"0f0a7b7c-07e8-44ec-b30c-db5b67b9e62a"],
Cell[465008, 12754, 1196, 30, 551, "Input",ExpressionUUID->"dad571fe-79f6-47a2-a0f9-f8290d196caa"],
Cell[466207, 12786, 2346, 52, 1336, "Input",ExpressionUUID->"244af1b0-c156-4bf6-83ba-0060d7dfc91f"],
Cell[468556, 12840, 2480, 55, 1649, "Input",ExpressionUUID->"e079ca1d-05ee-4144-97cc-456a50ac6daa"],
Cell[CellGroupData[{
Cell[471061, 12899, 399, 9, 231, "Input",ExpressionUUID->"bc686983-d18f-478e-aef2-e0429ab1b9aa"],
Cell[471463, 12910, 747, 12, 157, "Output",ExpressionUUID->"5a326a8b-30dc-469a-9167-dedd7de87b8d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[472247, 12927, 667, 16, 551, "Input",ExpressionUUID->"755db517-3ea0-4ac3-9b03-7fdd16f27c2d"],
Cell[472917, 12945, 17802, 541, 157, "Output",ExpressionUUID->"bb1326d2-a709-4fbd-a72d-52ee27c19fcf"]
}, Open  ]],
Cell[CellGroupData[{
Cell[490756, 13491, 6915, 173, 2277, "Subsubsection",ExpressionUUID->"d736e45b-342c-480a-b52a-93cee489b613"],
Cell[CellGroupData[{
Cell[497696, 13668, 1737, 38, 1179, "Input",ExpressionUUID->"1a34709e-e2a9-4a94-af59-356cfd387a4d"],
Cell[499436, 13708, 1643, 41, 157, "Output",ExpressionUUID->"615fe2e5-3c16-4d9d-880c-72ae0215b775"]
}, Open  ]],
Cell[501094, 13752, 335, 6, 231, "Input",ExpressionUUID->"9aaf5ed4-eea7-48a0-9bed-a7825ad5c599"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[501478, 13764, 8393, 229, 807, "Subsection",ExpressionUUID->"584b0c06-6593-4245-91e2-62ac62d41363"],
Cell[509874, 13995, 767, 17, 272, "Text",ExpressionUUID->"cf20342c-ea87-40da-b42b-878f27329ff3"],
Cell[510644, 14014, 1215, 25, 551, "Input",ExpressionUUID->"83082f74-75f2-4c78-b141-f1e5826ed610"],
Cell[CellGroupData[{
Cell[511884, 14043, 694, 16, 231, "Input",ExpressionUUID->"bba45c03-3b9d-4798-9c83-22686ddb0aab"],
Cell[512581, 14061, 1679, 44, 157, "Output",ExpressionUUID->"07407f9a-4093-4c7d-bc19-b8d628a561f7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[514297, 14110, 883, 24, 1021, "Input",ExpressionUUID->"740a0140-d618-4c72-9e0c-224d89aa513b"],
Cell[515183, 14136, 4661, 121, 157, "Output",ExpressionUUID->"04f11e0a-86a7-4509-9a19-ec14abef5a94"]
}, Open  ]],
Cell[519859, 14260, 9127, 239, 4945, "Input",ExpressionUUID->"fba0106e-1fcd-48df-a5cc-2301e79ca205"],
Cell[528989, 14501, 1294, 33, 708, "Input",ExpressionUUID->"9fcef453-2ddf-4399-a36a-91b44fc998c4"],
Cell[530286, 14536, 2671, 72, 1649, "Input",ExpressionUUID->"5cb72d3a-fb99-4113-b7e0-67b2c78b0d24"],
Cell[532960, 14610, 1442, 36, 708, "Input",ExpressionUUID->"56bfa145-69ff-4d47-b826-dd20b7d226ed"],
Cell[534405, 14648, 3089, 68, 1649, "Input",ExpressionUUID->"c83c7916-64e6-49cb-9cf0-be667d6e0fb8"],
Cell[CellGroupData[{
Cell[537519, 14720, 394, 10, 231, "Input",ExpressionUUID->"7949a802-47db-433e-aa40-3c93f41dbefb"],
Cell[537916, 14732, 28111, 779, 157, "Output",ExpressionUUID->"6a9e7bf9-d2f1-4bce-91b5-0524ed13c0e7"]
}, Open  ]],
Cell[566042, 15514, 2642, 59, 1806, "Input",ExpressionUUID->"d443c74f-7fe2-4631-b4e9-0ae1aefc6d05"],
Cell[CellGroupData[{
Cell[568709, 15577, 399, 9, 231, "Input",ExpressionUUID->"4c7368d2-868e-40e5-80ce-73b445ab9f6d"],
Cell[569111, 15588, 824, 13, 157, "Output",ExpressionUUID->"30180ea2-a79b-49b5-a04a-0a487ca1f9f8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[569972, 15606, 667, 16, 551, "Input",ExpressionUUID->"5cb872dc-d8a7-4e42-a9a2-b67d642745ac"],
Cell[570642, 15624, 575, 12, 157, "Message",ExpressionUUID->"c978a7c5-99b9-4044-8108-deef49c971fc"],
Cell[571220, 15638, 18528, 576, 157, "Output",ExpressionUUID->"baee3d8e-ec93-4442-9dfa-12d03545a900"]
}, Open  ]],
Cell[CellGroupData[{
Cell[589785, 16219, 8396, 229, 2288, "Subsubsection",ExpressionUUID->"9231d280-ccb8-4827-87af-d895c7626b31"],
Cell[598184, 16450, 192, 3, 267, "Text",ExpressionUUID->"5f07bf32-4a06-40cf-9c76-462daaa97fee"],
Cell[598379, 16455, 514, 15, 231, "Input",ExpressionUUID->"8689fa56-2900-4ed2-ab19-df901b31643c"],
Cell[CellGroupData[{
Cell[598918, 16474, 1836, 40, 1021, "Input",ExpressionUUID->"49386df4-9ccf-45e6-8a8a-d7cd3a3db71f"],
Cell[600757, 16516, 2120, 55, 157, "Output",ExpressionUUID->"3752f40b-d461-4a61-b6d2-d21e5cad9b41"]
}, Open  ]],
Cell[602892, 16574, 335, 6, 231, "Input",ExpressionUUID->"9034ed2a-74a8-4134-8d9d-4733351a141e"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[603276, 16586, 354, 7, 121, "Subsection",ExpressionUUID->"ae99dfdf-1bd5-4692-9d66-d7f09715f864"],
Cell[CellGroupData[{
Cell[603655, 16597, 212, 3, 164, "Input",ExpressionUUID->"7ab3ae76-c9d1-4bf0-99b7-c5bf0df34d82"],
Cell[603870, 16602, 321, 5, 110, "Output",ExpressionUUID->"42a322af-efb5-4851-a17a-b542d33eda57"],
Cell[604194, 16609, 321, 5, 110, "Output",ExpressionUUID->"94dc1cc4-8b4d-431a-8f45-ed4925d78747"]
}, Open  ]],
Cell[604530, 16617, 593, 13, 96, "Input",ExpressionUUID->"a0369cd7-a8e4-494a-b3ee-c86e8f5dceae"],
Cell[605126, 16632, 885, 21, 96, "Input",ExpressionUUID->"c1084226-692d-4553-80ad-2302ad2d586f"],
Cell[CellGroupData[{
Cell[606036, 16657, 562, 13, 96, "Input",ExpressionUUID->"a5fe52bd-d9df-4146-bcb8-e53294c1ba9f"],
Cell[606601, 16672, 2685, 71, 243, "Output",ExpressionUUID->"f8cc8b66-904f-46eb-9108-0076cf4206f3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[609323, 16748, 561, 13, 96, "Input",ExpressionUUID->"fae53cdb-506b-45ec-991b-4af79e800024"],
Cell[609887, 16763, 3357, 88, 308, "Output",ExpressionUUID->"159a0112-22b6-4373-b4c5-dcddb2d37576"]
}, Open  ]],
Cell[613259, 16854, 394, 9, 96, "Input",ExpressionUUID->"3197a37a-744e-499d-bc7c-9cf41433211c"],
Cell[CellGroupData[{
Cell[613678, 16867, 240, 4, 96, "Input",ExpressionUUID->"0db9618f-b519-433b-8373-b6eb698bbb89"],
Cell[613921, 16873, 295, 6, 110, "Output",ExpressionUUID->"f1238786-ba8b-4238-9268-7e663d2a82e6"]
}, Open  ]],
Cell[614231, 16882, 1076, 27, 229, "Input",ExpressionUUID->"8be1fe6e-48e9-4f27-b755-9593761cb67f"],
Cell[CellGroupData[{
Cell[615332, 16913, 253, 5, 96, "Input",ExpressionUUID->"0ba31f38-e44a-4b5b-9d3b-42f4d4ba543f"],
Cell[615588, 16920, 298, 6, 110, "Output",ExpressionUUID->"7768a95b-d5ae-4f67-aa2b-401b5008d161"]
}, Open  ]],
Cell[615901, 16929, 378, 8, 96, "Input",ExpressionUUID->"ee0316f1-4ab6-49e8-a090-1e15f1159c8d"],
Cell[616282, 16939, 379, 8, 96, "Input",ExpressionUUID->"b103c706-6053-4cbd-a998-fc02a9258638"],
Cell[CellGroupData[{
Cell[616686, 16951, 249, 5, 96, "Input",ExpressionUUID->"3c03d8be-e1f0-4bdc-a578-f147b86e8963"],
Cell[616938, 16958, 320, 6, 110, "Output",ExpressionUUID->"5c902544-e561-43dd-8502-e66f22eedf03"]
}, Open  ]],
Cell[617273, 16967, 442, 10, 96, "Input",ExpressionUUID->"082ab632-407f-4b3e-b58d-31884159c8fa"],
Cell[CellGroupData[{
Cell[617740, 16981, 242, 4, 96, "Input",ExpressionUUID->"499a991b-1172-496a-9da1-d710c36b8fd5"],
Cell[617985, 16987, 351, 6, 110, "Output",ExpressionUUID->"1b44f3ed-a5a5-425b-8cbf-14efe35a6480"]
}, Open  ]],
Cell[618351, 16996, 768, 18, 96, "Input",ExpressionUUID->"ee815540-cfef-4ecd-8043-20d2b3b88850"],
Cell[CellGroupData[{
Cell[619144, 17018, 213, 4, 96, "Input",ExpressionUUID->"ac908305-7b78-48a3-9f65-dae16065d281"],
Cell[619360, 17024, 347, 6, 110, "Output",ExpressionUUID->"e2115c64-14dc-4b92-a431-1787e5e818a4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[619744, 17035, 254, 4, 96, "Input",ExpressionUUID->"79da5985-2368-4236-a8bd-1941b4255576"],
Cell[620001, 17041, 99430, 3372, 7301, "Output",ExpressionUUID->"626abc04-da20-474e-bb87-0c15374b9172"]
}, Open  ]],
Cell[CellGroupData[{
Cell[719468, 20418, 183, 3, 96, "Input",ExpressionUUID->"092a41d6-d313-4e12-8a3b-f8e116f7265b"],
Cell[719654, 20423, 3674, 103, 308, "Output",ExpressionUUID->"d9ea207d-7eb2-4ed0-9070-6c528bfbdc30"]
}, Open  ]],
Cell[CellGroupData[{
Cell[723365, 20531, 311, 6, 96, "Input",ExpressionUUID->"c4b47468-8d02-4dc8-9050-a09786cecdde"],
Cell[723679, 20539, 342, 7, 110, "Output",ExpressionUUID->"dbe9109f-33fc-4938-bb45-90d2103f3617"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[724070, 20552, 6553, 181, 641, "Subsection",ExpressionUUID->"d86ecd48-caa5-4b88-bd38-64026170c455"],
Cell[CellGroupData[{
Cell[730648, 20737, 1370, 33, 294, "Input",ExpressionUUID->"18fa6139-b39d-4e6a-8e40-4f33df1d9ee6"],
Cell[732021, 20772, 18558, 523, 1221, "Output",ExpressionUUID->"dc0c0152-d8cb-464c-bed6-57f108d40e07"]
}, Open  ]],
Cell[CellGroupData[{
Cell[750616, 21300, 354, 8, 96, "Input",ExpressionUUID->"70c2f5ae-bd93-48a1-a74a-69aee3e19548"],
Cell[750973, 21310, 277, 5, 110, "Output",ExpressionUUID->"1419db33-c622-4c93-906e-950d2a1b2aa9"]
}, Open  ]],
Cell[751265, 21318, 11343, 284, 882, "Input",ExpressionUUID->"12b34050-45f4-4f11-924d-d9f1d3c6c2d8"],
Cell[762611, 21604, 1300, 32, 96, "Input",ExpressionUUID->"c460fb1f-33ae-4ad8-853c-2fa599465eee"],
Cell[763914, 21638, 2287, 50, 229, "Input",ExpressionUUID->"329a42fd-30ef-4f88-bd5e-42ebcdc7c735"],
Cell[766204, 21690, 2693, 60, 360, "Input",ExpressionUUID->"f7a323ec-3325-4df8-96cc-0d73072425e9"],
Cell[768900, 21752, 747, 18, 96, "Input",ExpressionUUID->"00b9364c-febd-4c24-a54f-afee09141f21"],
Cell[CellGroupData[{
Cell[769672, 21774, 261, 5, 96, "Input",ExpressionUUID->"fb889471-0eca-481c-a41e-1fdc96899afe"],
Cell[769936, 21781, 228, 4, 110, "Output",ExpressionUUID->"7181a897-a93f-42b0-9be4-761982330aac"]
}, Open  ]],
Cell[CellGroupData[{
Cell[770201, 21790, 2340, 52, 229, "Input",ExpressionUUID->"1216d294-626f-4a00-a782-b32a1a2a97d9"],
Cell[772544, 21844, 11279, 339, 1073, "Output",ExpressionUUID->"bfe411aa-e7cb-41dd-81ab-8133086974e6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[783860, 22188, 300, 7, 96, "Input",ExpressionUUID->"3b02f8ad-293d-453c-b0bc-6595a9f0e645"],
Cell[784163, 22197, 376, 9, 110, "Output",ExpressionUUID->"ff754f54-34dc-4486-ae61-1758accc7f50"]
}, Open  ]],
Cell[CellGroupData[{
Cell[784576, 22211, 539, 14, 96, "Input",ExpressionUUID->"32929ec2-21a5-4e24-9cb4-c5be7f712888"],
Cell[785118, 22227, 2049, 54, 177, "Output",ExpressionUUID->"31554492-d8d4-4f93-a06c-bd6670102d5d"]
}, Open  ]],
Cell[787182, 22284, 500, 13, 96, "Input",ExpressionUUID->"7e0d8d03-92f9-4921-ae65-7e5995e33f44"],
Cell[787685, 22299, 4803, 136, 360, "Input",ExpressionUUID->"acfe2847-eb35-4b95-ad61-10e8af1ab448"],
Cell[792491, 22437, 2173, 59, 164, "Input",ExpressionUUID->"afd7fc95-d624-4947-b32d-e162df26b144"],
Cell[794667, 22498, 535, 13, 96, "Input",ExpressionUUID->"73665f0e-f91b-4fe5-82c8-a103c2765daf"],
Cell[795205, 22513, 1449, 37, 229, "Input",ExpressionUUID->"4a76156f-b3f8-45ce-bf34-5f1f273bc64c"],
Cell[796657, 22552, 1602, 45, 164, "Input",ExpressionUUID->"2ae786d3-df1b-4224-b245-a52aafc4a6bd"],
Cell[798262, 22599, 1669, 42, 360, "Input",ExpressionUUID->"cb51eb56-a431-4d63-a2f5-7f3327ac5d09"],
Cell[CellGroupData[{
Cell[799956, 22645, 930, 22, 164, "Input",ExpressionUUID->"095f04de-234c-4c2d-af72-82cd72d13f5e"],
Cell[800889, 22669, 4606, 139, 499, "Output",ExpressionUUID->"f136d5a5-6ce9-4445-9a38-847eb6f81981"]
}, Open  ]],
Cell[CellGroupData[{
Cell[805532, 22813, 6507, 180, 643, "Subsubsection",ExpressionUUID->"e2144c4c-92b6-487e-9e9e-5e69e3ea22d4"],
Cell[CellGroupData[{
Cell[812064, 22997, 2565, 65, 531, "Input",ExpressionUUID->"6a8b909e-5656-4d59-b940-0f76eb218a15"],
Cell[814632, 23064, 5912, 181, 384, "Output",ExpressionUUID->"31cec6ad-1648-49dd-8761-cdf081b1cd6a"],
Cell[820547, 23247, 2320, 44, 1255, "Output",ExpressionUUID->"c0edc76c-979f-4cf1-9e47-ecd251d1447c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[822904, 23296, 2340, 60, 400, "Input",ExpressionUUID->"cb4e24e3-2f25-4750-9335-7117b004cef1"],
Cell[825247, 23358, 6237, 185, 384, "Output",ExpressionUUID->"22c75f18-854a-4d79-b2d7-3b258edab980"],
Cell[831487, 23545, 2645, 48, 1255, "Output",ExpressionUUID->"9219f3e5-6f02-4760-960c-4f910ddc41a2"]
}, Open  ]],
Cell[834147, 23596, 335, 6, 96, "Input",ExpressionUUID->"7f48cb54-bf59-4603-8042-cb89e3e564e1"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[834531, 23608, 6401, 174, 666, "Subsection",ExpressionUUID->"f76b8594-424b-4d90-912d-db0daa9c3838"],
Cell[840935, 23784, 1453, 34, 294, "Input",ExpressionUUID->"ebf7d9ea-1bff-460d-8d40-d36475ee7e75"],
Cell[842391, 23820, 11297, 276, 882, "Input",ExpressionUUID->"37c60d8e-d448-426c-942b-497ec9b70ebf"],
Cell[853691, 24098, 1300, 32, 96, "Input",ExpressionUUID->"6246e476-dabc-4845-b75a-82080b0b0368"],
Cell[854994, 24132, 2312, 50, 229, "Input",ExpressionUUID->"3a679208-b57e-49e1-8f53-f352ee85df65"],
Cell[857309, 24184, 2693, 60, 360, "Input",ExpressionUUID->"d68df561-306a-4542-b23a-0618ce4f4379"],
Cell[860005, 24246, 747, 18, 96, "Input",ExpressionUUID->"36106801-6e01-4c4f-b3f4-c4887c9847fc"],
Cell[CellGroupData[{
Cell[860777, 24268, 261, 5, 96, "Input",ExpressionUUID->"d6c6c4ce-2b04-4fe8-be55-c6d9e1896520"],
Cell[861041, 24275, 248, 4, 110, "Output",ExpressionUUID->"407c4880-f07a-4f3e-a3d8-36a8eacd910b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[861326, 24284, 2340, 52, 229, "Input",ExpressionUUID->"0a0baaab-f73d-46f3-b073-0b314de20374"],
Cell[863669, 24338, 11357, 340, 1073, "Output",ExpressionUUID->"f472c8c1-e3ae-40ef-a7db-0c08e880463c"]
}, Open  ]],
Cell[875041, 24681, 2173, 59, 164, "Input",ExpressionUUID->"560ccaa8-4ab0-4b98-a1fc-546c93aae1df"],
Cell[877217, 24742, 535, 13, 96, "Input",ExpressionUUID->"0afa7824-a6ed-4d9d-a6dd-813a9fed6005"],
Cell[877755, 24757, 1669, 42, 360, "Input",ExpressionUUID->"ebbc8a11-7b63-4689-9603-e63c7d640071"],
Cell[CellGroupData[{
Cell[879449, 24803, 930, 22, 164, "Input",ExpressionUUID->"9733436a-834c-4def-8b71-925cf05864c8"],
Cell[880382, 24827, 4663, 139, 499, "Output",ExpressionUUID->"ac12bd83-bbc1-4464-8e9c-6ea70ab187ba"]
}, Open  ]],
Cell[CellGroupData[{
Cell[885082, 24971, 6355, 173, 630, "Subsubsection",ExpressionUUID->"27a83c43-ccbb-4cfb-8cf8-4ab3334d38a7"],
Cell[CellGroupData[{
Cell[891462, 25148, 2417, 62, 456, "Input",ExpressionUUID->"afe9cf47-f601-4be5-92c3-222e05db39e6"],
Cell[893882, 25212, 6391, 192, 384, "Output",ExpressionUUID->"7d3f26d3-48c4-4200-a30c-17f7739401b8"],
Cell[900276, 25406, 2671, 47, 1201, "Output",ExpressionUUID->"098f5b97-2ac4-4971-bcdb-5d8c4b9ec4d7"]
}, Open  ]],
Cell[902962, 25456, 335, 6, 96, "Input",ExpressionUUID->"aff13fc7-4d1f-409f-9d6a-f97ecb490e83"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)