(* 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[ 608844, 14315] NotebookOptionsPosition[ 592772, 14027] NotebookOutlinePosition[ 593328, 14048] CellTagsIndexPosition[ 593285, 14045] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["4D N = 1 VS On Shell 4DCalcs.nb", "Title", CellChangeTimes->{{3.431643447359375*^9, 3.43164348528125*^9}, { 3.4332803471875*^9, 3.4332803938125*^9}, {3.439841647921875*^9, 3.439841676265625*^9}, {3.4399946617855*^9, 3.43999466687925*^9}, { 3.44088192175*^9, 3.440881923578125*^9}, {3.4423479416875*^9, 3.442347948953125*^9}, {3.442980454609375*^9, 3.442980483234375*^9}, { 3.443704482140625*^9, 3.443704510671875*^9}, {3.443704683796875*^9, 3.443704691203125*^9}, {3.44372638084375*^9, 3.443726451640625*^9}, { 3.45355300203125*^9, 3.453553002890625*^9}, {3.454246287921875*^9, 3.454246303546875*^9}, {3.454246379453125*^9, 3.4542464184375*^9}, { 3.454246473484375*^9, 3.454246483109375*^9}, {3.4544147554375*^9, 3.454414815859375*^9}, {3.454852671*^9, 3.4548527046875*^9}, { 3.454856728203125*^9, 3.45485673075*^9}, {3.454926202984375*^9, 3.454926295546875*^9}, {3.455015384*^9, 3.455015392609375*^9}, { 3.455015444671875*^9, 3.455015446890625*^9}, {3.455015517421875*^9, 3.455015519890625*^9}, {3.4550155711875*^9, 3.455015606859375*^9}, { 3.455016320453125*^9, 3.45501632865625*^9}, {3.455042848390625*^9, 3.455042857671875*^9}, {3.455043636234375*^9, 3.4550436771875*^9}, { 3.511555277628312*^9, 3.5115553207117767`*^9}, {3.511625771375633*^9, 3.5116258752865763`*^9}, {3.5116411679872684`*^9, 3.511641221284317*^9}, { 3.5199454008058896`*^9, 3.5199454666306543`*^9}, {3.5199455739987955`*^9, 3.519945622294558*^9}, {3.5206458956356697`*^9, 3.520645943704419*^9}, { 3.523718893836775*^9, 3.523718923873493*^9}, {3.536715674278531*^9, 3.5367157073544226`*^9}, {3.53853389765368*^9, 3.538533899967812*^9}, { 3.538942345864266*^9, 3.538942357964958*^9}, {3.5389474299050565`*^9, 3.538947485150216*^9}, {3.5390845827297893`*^9, 3.5390846106083837`*^9}, { 3.53908510341057*^9, 3.5390851199535165`*^9}, {3.539086064745556*^9, 3.5390861577368746`*^9}, {3.5451459061807747`*^9, 3.545145907619857*^9}, { 3.54514596135293*^9, 3.5451460262956448`*^9}, {3.548677365614721*^9, 3.548677420252846*^9}, {3.5486904482318554`*^9, 3.5486904831498528`*^9}, { 3.5507964280028415`*^9, 3.550796434750227*^9}, {3.5516981864105062`*^9, 3.5516981873125577`*^9}, {3.5517063670611444`*^9, 3.551706375990655*^9}, { 3.5517143798937216`*^9, 3.5517143832039113`*^9}, {3.5517286202182903`*^9, 3.5517286597495513`*^9}, {3.5517928905442033`*^9, 3.551792917464743*^9}, { 3.5521354453831377`*^9, 3.5521354853424234`*^9}, {3.552135534200218*^9, 3.552135558024581*^9}, {3.5521356059203205`*^9, 3.552135681027616*^9}, { 3.5521357231810274`*^9, 3.5521357548318377`*^9}, {3.55231422706569*^9, 3.5523142637937903`*^9}, {3.552314318528921*^9, 3.552314318928944*^9}, { 3.552314384905718*^9, 3.552314430815344*^9}, {3.552314502398438*^9, 3.5523146413143835`*^9}, {3.552473196132519*^9, 3.5524732208799343`*^9}, 3.5528371122703466`*^9, 3.5528444571634464`*^9, {3.5528449407701073`*^9, 3.5528450003105125`*^9}, {3.552866910465884*^9, 3.5528670764143763`*^9}, { 3.5528755049588575`*^9, 3.552875669883291*^9}, {3.5528757974815893`*^9, 3.5528759485802317`*^9}, {3.552876032727044*^9, 3.5528760646078677`*^9}, 3.5528770280839753`*^9, {3.552905728992181*^9, 3.5529057870398817`*^9}, { 3.552924313800542*^9, 3.552924357451039*^9}, {3.5529244139042673`*^9, 3.5529245023153243`*^9}, {3.5529245516931486`*^9, 3.552924613397678*^9}, { 3.552928164005761*^9, 3.552928186311037*^9}, {3.5529298153452125`*^9, 3.5529298409716783`*^9}, {3.5532932040039682`*^9, 3.5532932496185775`*^9}, {3.553293282659467*^9, 3.553293292302019*^9}, { 3.553293383011207*^9, 3.553293411333827*^9}, {3.5532981370511494`*^9, 3.553298408108653*^9}, {3.553298441734576*^9, 3.5532987180763826`*^9}, { 3.5532987757606816`*^9, 3.5532988306618223`*^9}, {3.5533029743948298`*^9, 3.5533030195604134`*^9}, {3.553306886924614*^9, 3.5533068932679768`*^9}, { 3.553311679995762*^9, 3.553311730478649*^9}, {3.553311805864961*^9, 3.5533118710006866`*^9}, {3.5533120465167255`*^9, 3.553312046787741*^9}, { 3.5533122428069525`*^9, 3.5533122428069525`*^9}, {3.553312319318329*^9, 3.553312332850103*^9}, {3.5533123656929817`*^9, 3.5533123938585925`*^9}, 3.5533125753399725`*^9, {3.5533162583976316`*^9, 3.5533162749975805`*^9}, 3.5533163117066803`*^9, {3.5533163518819785`*^9, 3.5533164029468994`*^9}, { 3.553357870429034*^9, 3.55335793120451*^9}, {3.553360423158042*^9, 3.553360477275137*^9}, {3.5533605162343655`*^9, 3.553360605248457*^9}, { 3.55336064149253*^9, 3.5533607117395477`*^9}, {3.553360769712864*^9, 3.553360790017025*^9}, {3.553360827712181*^9, 3.5533608685515165`*^9}, { 3.5533609116069794`*^9, 3.553360984719161*^9}, {3.553361035631073*^9, 3.5533610708610888`*^9}, {3.5533611506446514`*^9, 3.553361152577762*^9}, { 3.553361571282711*^9, 3.553361617443351*^9}, {3.553362021762477*^9, 3.5533621970635033`*^9}, {3.55336225609488*^9, 3.553362258462015*^9}, { 3.553362402136233*^9, 3.5533624518330755`*^9}, {3.553362520950029*^9, 3.5533625853667135`*^9}, {3.5533635314808273`*^9, 3.5533635853299074`*^9}, {3.553363685328627*^9, 3.553363698002352*^9}, { 3.553363909535451*^9, 3.5533639144157305`*^9}, 3.553364219200163*^9, 3.5533644938708735`*^9, {3.553364575184524*^9, 3.553364599654924*^9}, { 3.55336466183048*^9, 3.5533646655966954`*^9}, {3.553365137488686*^9, 3.553365145141124*^9}, {3.5533656688530784`*^9, 3.5533657248882837`*^9}, 3.553366821643014*^9, {3.5533671012070045`*^9, 3.5533671132246914`*^9}, { 3.553367256017859*^9, 3.5533672954111123`*^9}, {3.5533673936717324`*^9, 3.553367442797542*^9}, {3.553393155762641*^9, 3.5533933527619085`*^9}, { 3.5533934025587573`*^9, 3.55339343250747*^9}, {3.553393466195397*^9, 3.5533934799451838`*^9}, {3.5533936057913814`*^9, 3.553393621924304*^9}, { 3.5533936651637774`*^9, 3.553393696448567*^9}, {3.5533938357385335`*^9, 3.5533938415228643`*^9}, {3.55339396837212*^9, 3.553393970315231*^9}, { 3.553394007223342*^9, 3.5533940655636787`*^9}, {3.5533948267242146`*^9, 3.553394871172757*^9}, 3.5533949827821407`*^9, {3.553395879210414*^9, 3.55339590415384*^9}, {3.5533960192464232`*^9, 3.553396052167306*^9}, { 3.5534453110074387`*^9, 3.5534453210730143`*^9}, {3.5543978769816384`*^9, 3.5543979153068304`*^9}, {3.5543979522839456`*^9, 3.554398051165597*^9}, { 3.559413579039064*^9, 3.559414031602949*^9}, {3.5594140643608227`*^9, 3.559414824354292*^9}, {3.5594148673047485`*^9, 3.5594148697598886`*^9}, 3.559434854871258*^9, {3.5594361459001007`*^9, 3.5594361488202677`*^9}, { 3.5594362074236193`*^9, 3.5594362074236193`*^9}, {3.5594413332417994`*^9, 3.559441339224142*^9}, {3.5594800125024767`*^9, 3.5594800206869445`*^9}, 3.55949611087125*^9, {3.5594961446901846`*^9, 3.5594963728392344`*^9}, { 3.5594967272045026`*^9, 3.559496732893828*^9}, {3.559496827283227*^9, 3.559496972989561*^9}, {3.559498343667959*^9, 3.5594984776456223`*^9}, { 3.5594985619584446`*^9, 3.5594986885086827`*^9}, {3.559504207814369*^9, 3.5595043347686305`*^9}, {3.5610849081423254`*^9, 3.561084919991003*^9}, { 3.674997609869558*^9, 3.6749976403446026`*^9}, {3.7095691177887754`*^9, 3.7095692232638083`*^9}, {3.709569416628868*^9, 3.709569447700645*^9}, { 3.709570025775709*^9, 3.7095700822929416`*^9}, {3.7095701212661705`*^9, 3.7095701302756863`*^9}, {3.7095701635905914`*^9, 3.7095701953544083`*^9}, {3.709570238234861*^9, 3.7095703996370926`*^9}, { 3.7095705169488025`*^9, 3.709570536260907*^9}, {3.709570570671875*^9, 3.7095707000022726`*^9}, {3.7095707414556437`*^9, 3.709570911927394*^9}, { 3.7095709420471168`*^9, 3.7095709556628957`*^9}, {3.709571091599671*^9, 3.7095711396634197`*^9}, {3.7095711775595875`*^9, 3.709571198140764*^9}, { 3.709573470067711*^9, 3.7095735804760265`*^9}, {3.70957367197526*^9, 3.709573673761362*^9}, {3.709575309022894*^9, 3.7095753967389107`*^9}, { 3.7108085535310116`*^9, 3.710808698160284*^9}, {3.7117169877149534`*^9, 3.71171700584299*^9}, {3.711843921222666*^9, 3.711843950188323*^9}, { 3.7120954091535835`*^9, 3.712095410524662*^9}, {3.737153557144597*^9, 3.7371535573632975`*^9}, {3.737153660538913*^9, 3.737153677384055*^9}, { 3.737289276440363*^9, 3.7372892764413633`*^9}, {3.7379791370084977`*^9, 3.7379791561145906`*^9}, {3.7379792255395613`*^9, 3.737979267044935*^9}, { 3.738580160531347*^9, 3.7385801752121863`*^9}, {3.7422187903728733`*^9, 3.742218794232212*^9}, 3.7424478775638*^9, {3.7608112578164744`*^9, 3.760811258084696*^9}, {3.760988703245017*^9, 3.760988706933181*^9}, { 3.766162739728177*^9, 3.7661627412708273`*^9}, {3.766163722940941*^9, 3.7661637246721773`*^9}},ExpressionUUID->"dfab12f3-523a-4891-ab6d-\ 6353bcfa0aa5"], Cell[CellGroupData[{ Cell["Setting Rep and Importing Adinkra package", "Section", CellChangeTimes->{{3.7108088373262444`*^9, 3.7108088416734924`*^9}, { 3.742447721149543*^9, 3.7424477566373158`*^9}, {3.7607231858846717`*^9, 3.760723188894571*^9}},ExpressionUUID->"8ce62cfa-2467-4484-bfab-\ 5a2bb7149ea5"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"$RecursionLimit", "=", "Infinity"}]], "Input", CellLabel->"In[1]:=",ExpressionUUID->"65e9b759-d921-4a12-9e52-b3e8b17f8777"], Cell[BoxData["\[Infinity]"], "Output", CellChangeTimes->{ 3.742448172904296*^9, 3.7607231979548664`*^9, 3.760728398749564*^9, 3.760730112138156*^9, 3.7607304086435833`*^9, 3.7607310801710587`*^9, 3.760731225277771*^9, 3.7607312700160017`*^9, 3.760811358215624*^9, 3.7608115787223277`*^9, 3.760962391925768*^9, 3.7609649937594748`*^9, 3.760979264551272*^9, 3.760980716049486*^9, 3.7609886060154066`*^9, 3.7656321395790353`*^9, {3.7657367736628003`*^9, 3.765736788846144*^9}, 3.766162747482106*^9}, CellLabel->"Out[1]=",ExpressionUUID->"416d99ec-d706-4d7f-b283-2d1f16608a10"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"Rep", " ", "=", " ", "VSOnShell"}], ";"}]], "Input", CellChangeTimes->{{3.6749934458329735`*^9, 3.6749934552906713`*^9}, { 3.6749935512237806`*^9, 3.6749935589505424`*^9}, {3.6749938285658455`*^9, 3.674993829104095*^9}, {3.674994097653822*^9, 3.674994100542435*^9}, 3.7108087172403755`*^9, {3.7108087539744763`*^9, 3.710808771379472*^9}, { 3.7108100382219315`*^9, 3.710810046522406*^9}, {3.710872292511095*^9, 3.710872295614272*^9}, {3.710872341570901*^9, 3.7108723499323792`*^9}, { 3.7113851081406517`*^9, 3.711385116342121*^9}, 3.7117170155335445`*^9, { 3.7118439658332176`*^9, 3.7118439659442244`*^9}, 3.7120954248874836`*^9, { 3.737153700401895*^9, 3.737153701464458*^9}, {3.737979211685769*^9, 3.737979212556819*^9}, {3.7379793011768875`*^9, 3.7379793023309536`*^9}, { 3.7385801983905125`*^9, 3.7385802005056334`*^9}, {3.742218797918304*^9, 3.7422187989953537`*^9}, {3.76081126125266*^9, 3.760811261972982*^9}, { 3.7608113426210012`*^9, 3.7608113538356404`*^9}, {3.766162744207552*^9, 3.766162745174748*^9}}, CellLabel->"In[2]:=",ExpressionUUID->"1b130993-d415-41ec-8260-109b938b0e03"], Cell[BoxData[ RowBox[{"<<", "Adinkra`"}]], "Input", CellChangeTimes->{{3.742447734672681*^9, 3.742447736272915*^9}, { 3.760723191514927*^9, 3.7607231919216137`*^9}}, CellLabel->"In[3]:=",ExpressionUUID->"042a2f57-aed7-4239-853e-081c663f644e"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BuildDate", "[", "Adinkra", "]"}]], "Input", CellChangeTimes->{{3.7607232186956367`*^9, 3.760723223385909*^9}}, CellLabel->"In[4]:=",ExpressionUUID->"ee9a22d7-408f-43e3-b2dc-2ed014de5ea4"], Cell[BoxData["190403"], "Output", CellChangeTimes->{ 3.7607312377790804`*^9, 3.7607312701410074`*^9, 3.7608113583890667`*^9, 3.7608115788324585`*^9, 3.7609623921269665`*^9, 3.7609649939545946`*^9, 3.76097926475535*^9, 3.760980716237122*^9, 3.760988606137066*^9, 3.765632139705016*^9, {3.7657367738168955`*^9, 3.765736788943883*^9}, 3.7661627476486607`*^9}, CellLabel->"Out[4]=",ExpressionUUID->"f65ff220-306c-40df-966f-f2e4d7cf07b3"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "fields: Afield[mu],dfield, \[Lambda][a], all free indices covariant\n\ AdinkraReduce\n", Cell[BoxData[ FormBox[ SubscriptBox["\[CapitalPhi]", "i"], TraditionalForm]],ExpressionUUID-> "5512a3b1-9c30-41d0-b432-2a4b35df7d4d"], " = ", Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ SubscriptBox[ OverscriptBox["A", "."], "1"], ",", OverscriptBox[ SubscriptBox["A", "2"], "."], ",", OverscriptBox[ SubscriptBox["A", "3"], "."]}], "}"}], TraditionalForm]], ExpressionUUID->"10d08833-b580-41c2-b23f-a9049ee3fdf6"], "\n", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["\[CapitalPsi]", OverscriptBox["i", "^"]], "=", " ", RowBox[{"{", SubscriptBox[ OverscriptBox["\[Lambda]", "."], "a"], "}"}]}], TraditionalForm]], ExpressionUUID->"d2e128ad-f240-4b4f-9c6f-fef159719ff0"], " " }], "Section", CellChangeTimes->{{3.433789921484375*^9, 3.433789960375*^9}, { 3.439841823375*^9, 3.439841989390625*^9}, {3.43986276128125*^9, 3.4398627673125*^9}, {3.43986533615625*^9, 3.439865419203125*^9}, { 3.4398664394375*^9, 3.43986646815625*^9}, {3.4398673761875*^9, 3.439867401953125*^9}, {3.440882791*^9, 3.440882814046875*^9}, { 3.440904558828125*^9, 3.440904564703125*^9}, {3.4423496106875*^9, 3.4423496150625*^9}, 3.5517238206883764`*^9, {3.67499392291263*^9, 3.674993925768364*^9}, {3.711387721211111*^9, 3.7113877482476573`*^9}, { 3.7113878175186195`*^9, 3.7113878219728746`*^9}, {3.711390567267896*^9, 3.71139056769392*^9}, {3.7113930943174353`*^9, 3.7113930951044803`*^9}, { 3.7113948776934385`*^9, 3.7113949804623165`*^9}, {3.7113952539569597`*^9, 3.711395261886413*^9}, {3.7114193010506587`*^9, 3.7114193015116854`*^9}, { 3.73858035657756*^9, 3.7385804281216516`*^9}, {3.738580808452406*^9, 3.7385808207731104`*^9}, {3.739014781635538*^9, 3.739014825339038*^9}, { 3.7390148588989573`*^9, 3.7390149402156086`*^9}, {3.7390150015351157`*^9, 3.739015006557403*^9}, {3.7392033440592923`*^9, 3.739203344281305*^9}},ExpressionUUID->"4c5b5cfe-adb3-4e93-a92e-\ 56fcdf2f0a10"], Cell[CellGroupData[{ Cell["\<\ AdinkraReduce Encodes reducing the dependence on the fields from 4D \ space-time to only time\ \>", "Subsection", CellChangeTimes->{{3.711387756373122*^9, 3.71138778325966*^9}},ExpressionUUID->"35c45c57-b4de-4657-80c8-\ 61a394edd298"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"AdinkraReduce", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Afield", "[", "mu_", "]"}], "->", " ", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", RowBox[{ RowBox[{"Afield", "[", "mu", "]"}], "[", "t", "]"}]}], "]"}]}], ",", RowBox[{"dfield", "->", " ", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", RowBox[{"dfield", "[", "t", "]"}]}], "]"}]}], ",", RowBox[{ RowBox[{"\[Lambda]", "[", "a_", "]"}], "\[Rule]", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", RowBox[{ RowBox[{"\[Lambda]", "[", "a", "]"}], "[", "t", "]"}]}], "]"}]}]}], "}"}]}]], "Input", CellChangeTimes->{{3.4398532235625*^9, 3.43985327665625*^9}, { 3.4398533495625*^9, 3.439853466234375*^9}, {3.439853579328125*^9, 3.439853621875*^9}, {3.439865630453125*^9, 3.43986573459375*^9}, { 3.439865787203125*^9, 3.43986585509375*^9}, {3.439870393140625*^9, 3.439870424015625*^9}, {3.439870466796875*^9, 3.439870474859375*^9}, 3.439870511125*^9, 3.439870584375*^9, {3.4398709615*^9, 3.439870990625*^9}, {3.439871465328125*^9, 3.439871476109375*^9}, { 3.4409042785625*^9, 3.4409045300625*^9}, {3.44234987671875*^9, 3.44234997096875*^9}, {3.536715111601348*^9, 3.536715188302735*^9}, { 3.545146062705727*^9, 3.545146168500778*^9}, {3.545146250286456*^9, 3.5451462562327967`*^9}, {3.5594349084683237`*^9, 3.5594349817895174`*^9}, {3.7385804356330814`*^9, 3.7385804982376623`*^9}, 3.738583906002576*^9, {3.7390150508859386`*^9, 3.739015058103351*^9}, { 3.7390151768311424`*^9, 3.7390151904359207`*^9}, {3.7390152227927713`*^9, 3.739015271980584*^9}}, CellLabel->"In[5]:=",ExpressionUUID->"8195ffa0-f61e-4f0d-9421-dab2cc2bc88f"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Afield", "[", "mu_", "]"}], "\[Rule]", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", RowBox[{ RowBox[{"Afield", "[", "mu", "]"}], "[", "t", "]"}]}], "]"}]}], ",", RowBox[{"dfield", "\[Rule]", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", RowBox[{"dfield", "[", "t", "]"}]}], "]"}]}], ",", RowBox[{ RowBox[{"\[Lambda]", "[", "a_", "]"}], "\[Rule]", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", RowBox[{ RowBox[{"\[Lambda]", "[", "a", "]"}], "[", "t", "]"}]}], "]"}]}]}], "}"}]], "Output", CellChangeTimes->{ 3.739197232470804*^9, 3.7608114181073275`*^9, 3.760811458768834*^9, 3.760811578856555*^9, 3.7609623921558895`*^9, 3.760964993970212*^9, 3.760979264775624*^9, 3.760980716257188*^9, 3.760985307792782*^9, 3.76098860616994*^9, 3.765632139729777*^9, {3.765736773868265*^9, 3.7657367889678187`*^9}, 3.766162747674589*^9}, CellLabel->"Out[5]=",ExpressionUUID->"96c854f4-893a-408b-8dbf-996dc1eed68d"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ fields := prints out the adinkra reduced fields in subscript form\ \>", "Subsection", CellChangeTimes->{{3.439865886734375*^9, 3.439865888515625*^9}, { 3.7113878343185806`*^9, 3.7113878437131176`*^9}, {3.7113952255063324`*^9, 3.711395235018876*^9}, {3.737164677735704*^9, 3.737164690268036*^9}, 3.7371647213652935`*^9, {3.73901531264291*^9, 3.7390153268057203`*^9}, { 3.7390267501716614`*^9, 3.739026750933705*^9}},ExpressionUUID->"8dc47d1e-d238-43ad-b614-\ 8fd7a1d31b4b"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fields", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Lambda]", "[", "a_", "]"}], "[", "t", "]"}], "\[Rule]", SubscriptBox["\[Lambda]", "a"]}], ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Lambda]", "[", "a_", "]"}], "'"}], "[", "t", "]"}], "\[Rule]", SubscriptBox[ OverscriptBox["\[Lambda]", "."], "a"]}], ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Lambda]", "[", "a_", "]"}], "''"}], "[", "t", "]"}], "\[Rule]", RowBox[{ SubscriptBox["\[Lambda]", "a"], "''"}]}], ",", "\[IndentingNewLine]", " ", RowBox[{ RowBox[{ RowBox[{"Afield", "[", "mu_", "]"}], "[", "t", "]"}], "\[Rule]", SubscriptBox["A", "mu"]}], ",", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Afield", "[", "mu_", "]"}], "'"}], "[", "t", "]"}], "\[Rule]", SubscriptBox[ OverscriptBox["A", "."], "mu"]}], ",", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Afield", "[", "mu", "]"}], "''"}], "[", "t", "]"}], "\[Rule]", RowBox[{ SubscriptBox["A", "mu"], "''"}]}], ",", RowBox[{ RowBox[{"dfield", "[", "t", "]"}], "\[Rule]", "d"}], ",", " ", RowBox[{ RowBox[{ RowBox[{"dfield", "'"}], "[", "t", "]"}], "\[Rule]", OverscriptBox["d", "."]}]}], "}"}]}]], "Input", CellChangeTimes->{{3.443408286984375*^9, 3.4434083745*^9}, { 3.443408447578125*^9, 3.44340860446875*^9}, {3.4434086879375*^9, 3.443408866*^9}, {3.44340890678125*^9, 3.44340891928125*^9}, 3.443409331578125*^9, {3.523151289911106*^9, 3.523151308059144*^9}, { 3.536715830767482*^9, 3.536716107452307*^9}, {3.536716168917823*^9, 3.536716173377078*^9}, {3.5451462370186973`*^9, 3.545146240713909*^9}, { 3.5451462822892866`*^9, 3.545146448707805*^9}, {3.5451479347128*^9, 3.5451479509117265`*^9}, {3.559435385727621*^9, 3.559435528317777*^9}, { 3.559439909936391*^9, 3.5594399223501015`*^9}, {3.7385805119264455`*^9, 3.7385807147540464`*^9}, {3.738580851828887*^9, 3.7385808592523117`*^9}, { 3.7390267537138643`*^9, 3.7390267585551405`*^9}, {3.7390269082497025`*^9, 3.739027007719392*^9}}, CellLabel->"In[6]:=",ExpressionUUID->"02d26f17-a193-49ca-87a1-899d6cf2c676"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Lambda]", "[", "a_", "]"}], "[", "t", "]"}], "\[Rule]", SubscriptBox["\[Lambda]", "a"]}], ",", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"\[Lambda]", "[", "a_", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Rule]", SubscriptBox[ OverscriptBox["\[Lambda]", "."], "a"]}], ",", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"\[Lambda]", "[", "a_", "]"}], "\[Prime]\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Rule]", SuperscriptBox[ SubscriptBox["\[Lambda]", "a"], "\[Prime]\[Prime]", MultilineFunction->None]}], ",", RowBox[{ RowBox[{ RowBox[{"Afield", "[", "mu_", "]"}], "[", "t", "]"}], "\[Rule]", SubscriptBox["A", "mu"]}], ",", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "mu_", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Rule]", SubscriptBox[ OverscriptBox["A", "."], "mu"]}], ",", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "mu", "]"}], "\[Prime]\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Rule]", SuperscriptBox[ SubscriptBox["A", "mu"], "\[Prime]\[Prime]", MultilineFunction->None]}], ",", RowBox[{ RowBox[{"dfield", "[", "t", "]"}], "\[Rule]", "d"}], ",", RowBox[{ RowBox[{ SuperscriptBox["dfield", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Rule]", OverscriptBox["d", "."]}]}], "}"}]], "Output", CellChangeTimes->{ 3.739197232515807*^9, 3.7608114220478015`*^9, 3.760811458828814*^9, 3.760811578871688*^9, 3.760962392230337*^9, 3.7609649939857955`*^9, 3.7609792648007812`*^9, 3.7609807162801266`*^9, 3.760985307872571*^9, 3.7609886061869345`*^9, 3.7656321397766895`*^9, {3.7657367739181314`*^9, 3.7657367889887643`*^9}, 3.7661627477015195`*^9}, CellLabel->"Out[6]=",ExpressionUUID->"149292d4-3f77-4f92-b56a-aac1d7da2b4e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Lambda]", "[", "2", "]"}], "'"}], "[", "t", "]"}], "/.", "fields"}]], "Input", CellChangeTimes->{{3.5367161113775315`*^9, 3.5367161153677597`*^9}, { 3.5367161521498632`*^9, 3.536716163468511*^9}, {3.545147867954982*^9, 3.5451479269313545`*^9}, {3.5451479604802732`*^9, 3.545147961095309*^9}, { 3.7385807336881294`*^9, 3.7385807339801464`*^9}, {3.73902704159733*^9, 3.7390270426783915`*^9}}, CellLabel->"In[7]:=",ExpressionUUID->"4075e5c9-bb03-4ae5-827b-cc4bde7d319c"], Cell[BoxData[ SubscriptBox[ OverscriptBox["\[Lambda]", "."], "2"]], "Output", CellChangeTimes->{ 3.7391972325288076`*^9, 3.7608114221575675`*^9, 3.76081145885898*^9, 3.760811578885558*^9, 3.7609623922472925`*^9, 3.760964994001417*^9, 3.760979264832201*^9, 3.760980716306357*^9, 3.760985307894512*^9, 3.7609886062028522`*^9, 3.765632139792307*^9, {3.765736773924115*^9, 3.765736789008711*^9}, 3.7661627477144833`*^9}, CellLabel->"Out[7]=",ExpressionUUID->"c30de315-59fb-44df-add5-d9a5251fd338"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TeXForm", "[", "%", "]"}]], "Input", CellChangeTimes->{{3.7391013406762753`*^9, 3.739101343886459*^9}}, CellLabel->"In[8]:=",ExpressionUUID->"e586daf5-bcfa-438d-b2ca-0de12bfe9d9a"], Cell["\\dot{\\lambda }_2", "Output", CellChangeTimes->{ 3.739197232592811*^9, 3.760811422227707*^9, 3.76081145887285*^9, 3.7608115789326468`*^9, 3.7609623922901807`*^9, 3.760964994048343*^9, 3.760979264885494*^9, 3.7609807163634357`*^9, 3.760985307913514*^9, 3.7609886062208395`*^9, 3.76563213984043*^9, {3.76573677397099*^9, 3.7657367890605707`*^9}, 3.76616274776785*^9}, CellLabel-> "Out[8]//TeXForm=",ExpressionUUID->"433be566-8057-4751-8756-5789a2acce21"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Lambda]", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "/.", "AdinkraReduce"}], "/.", "fields"}]], "Input", CellChangeTimes->{{3.559435536027218*^9, 3.559435556132368*^9}, { 3.738580736996319*^9, 3.738580738560408*^9}, {3.739027045675563*^9, 3.739027046183592*^9}}, CellLabel->"In[9]:=",ExpressionUUID->"9c0049b0-1502-4645-a3f9-a81f9269af9a"], Cell[BoxData[ SubscriptBox["\[Lambda]", "1"]], "Output", CellChangeTimes->{ 3.739197232605812*^9, 3.7608114222463307`*^9, 3.760811458888815*^9, 3.7608115789525695`*^9, 3.7609623923001537`*^9, 3.760964994080352*^9, 3.7609792648956223`*^9, 3.760980716379393*^9, 3.7609853079324102`*^9, 3.760988606233816*^9, 3.7656321398560677`*^9, {3.7657367740148735`*^9, 3.76573678907952*^9}, 3.766162747779818*^9}, CellLabel->"Out[9]=",ExpressionUUID->"5c385291-dcd0-47f0-b60b-5b9dce36711e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"\[Lambda]", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "t"}], "]"}], "/.", "AdinkraReduce"}], "/.", "fields"}]], "Input", CellChangeTimes->{{3.5594355628717537`*^9, 3.559435569432129*^9}, { 3.7385807424756317`*^9, 3.7385807432156744`*^9}, {3.7390270491927643`*^9, 3.7390270504678373`*^9}}, CellLabel->"In[10]:=",ExpressionUUID->"9a166dd6-65d3-4354-9e54-3f6e295c74a5"], Cell[BoxData[ SubscriptBox[ OverscriptBox["\[Lambda]", "."], "1"]], "Output", CellChangeTimes->{ 3.7391972326188126`*^9, 3.760811422263068*^9, 3.7608114589088936`*^9, 3.7608115789741373`*^9, 3.760962392311135*^9, 3.7609649940833488`*^9, 3.760979264915371*^9, 3.760980716394353*^9, 3.760985307955349*^9, 3.760988606248767*^9, 3.7656321398759546`*^9, {3.7657367740617476`*^9, 3.7657367890964756`*^9}, 3.766162747793779*^9}, CellLabel->"Out[10]=",ExpressionUUID->"3649f929-defe-483f-a67e-9377ae2076d5"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"Phi", "[", "t", "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], " ", "=", " ", SubscriptBox["\[CapitalPhi]", "i"]}], TraditionalForm]],ExpressionUUID-> "ae24a706-c9b5-49b7-b525-724b4f04c622"], " = ", Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ SubscriptBox[ OverscriptBox["A", "."], "1"], ",", OverscriptBox[ SubscriptBox["A", "2"], "."], ",", OverscriptBox[ SubscriptBox["A", "3"], "."]}], "}"}], TraditionalForm]], ExpressionUUID->"d75324ad-3f13-4047-9861-125ea39545a3"], "\n", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"Psi", "[", "t", "]"}], "[", RowBox[{"[", "ihat", "]"}], "]"}], " ", "=", " ", RowBox[{ SubscriptBox["\[CapitalPsi]", OverscriptBox["i", "^"]], "=", " ", RowBox[{"{", SubscriptBox[ OverscriptBox["\[Lambda]", "."], "a"], "}"}], " "}]}], TraditionalForm]],ExpressionUUID->"45b52577-aa07-4487-8f2b-dd143d1dd293"], " " }], "Subsection", CellChangeTimes->{{3.7113950998691463`*^9, 3.7113951338350887`*^9}, { 3.7114193111012335`*^9, 3.7114193116452646`*^9}, {3.738580760953689*^9, 3.7385807864541473`*^9}, {3.738580832602787*^9, 3.7385808326037874`*^9}, { 3.7390155287712717`*^9, 3.739015542283045*^9}, {3.7609853049075375`*^9, 3.7609853049075375`*^9}},ExpressionUUID->"f7223d3e-780f-46b6-aa53-\ f17da6eef8b4"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Phi", "[", "t", "]"}], " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Afield", "[", "1", "]"}], "'"}], "[", "t", "]"}], ",", RowBox[{ RowBox[{ RowBox[{"Afield", "[", "2", "]"}], "'"}], "[", "t", "]"}], ",", RowBox[{ RowBox[{ RowBox[{"Afield", "[", "3", "]"}], "'"}], "[", "t", "]"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.6745776682748632`*^9, 3.6745779133984795`*^9}, { 3.674734596205909*^9, 3.674734728366371*^9}, {3.674785522776581*^9, 3.674785523431017*^9}, {3.6747858856838675`*^9, 3.6747858862742834`*^9}, { 3.6748160483899126`*^9, 3.674816145774766*^9}, {3.7107764696574073`*^9, 3.7107764702524414`*^9}, {3.7385808805555296`*^9, 3.7385808957704*^9}, { 3.739015556696869*^9, 3.739015599385311*^9}, 3.76098534273036*^9}, CellLabel->"In[11]:=",ExpressionUUID->"38ad3ae9-9a15-4b6a-97fa-a1f07ef7249d"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], ",", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], ",", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "}"}]], "Output", CellChangeTimes->{ 3.739197232648814*^9, {3.7608114374979415`*^9, 3.760811458924079*^9}, 3.7608115789969945`*^9, 3.7609623923230534`*^9, 3.7609649940990086`*^9, 3.760979264930543*^9, 3.7609807164103117`*^9, 3.7609853079762907`*^9, 3.760985356658066*^9, 3.760988606280676*^9, 3.765632139892909*^9, { 3.765736774111614*^9, 3.7657367891134295`*^9}, 3.7661627478097363`*^9}, CellLabel->"Out[11]=",ExpressionUUID->"e3b07d04-84f9-47ec-b3aa-e701646d491b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Psi", "[", "t", "]"}], " ", "=", " ", RowBox[{ RowBox[{"-", "I"}], " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Lambda]", "[", "1", "]"}], "'"}], "[", "t", "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[Lambda]", "[", "2", "]"}], "'"}], "[", "t", "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[Lambda]", "[", "3", "]"}], "'"}], "[", "t", "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[Lambda]", "[", "4", "]"}], "'"}], "[", "t", "]"}]}], "}"}]}]}]], "Input", CellChangeTimes->{{3.6748161614942904`*^9, 3.674816192282522*^9}, { 3.6748162285602317`*^9, 3.67481634210023*^9}, {3.6748165467092514`*^9, 3.674816556356063*^9}, {3.674860464676492*^9, 3.674860465434026*^9}, { 3.710776478221897*^9, 3.7107764786759233`*^9}, {3.711391757277961*^9, 3.7113917605891504`*^9}, {3.738580902970812*^9, 3.738580916636594*^9}, { 3.739015631268134*^9, 3.739015635088353*^9}, {3.7390162289783216`*^9, 3.7390162324555206`*^9}}, CellLabel->"In[12]:=",ExpressionUUID->"f5fae3c4-ef47-4203-9e96-7d085038432d"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Lambda]", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Lambda]", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Lambda]", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Lambda]", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]], "Output", CellChangeTimes->{ 3.739197232690817*^9, {3.7608114375982804`*^9, 3.760811458938577*^9}, 3.76081157900727*^9, 3.7609623923340616`*^9, 3.760964994130254*^9, 3.7609792649411817`*^9, 3.760980716423276*^9, 3.7609853079962397`*^9, 3.760985356744881*^9, 3.7609886062956605`*^9, 3.765632139903048*^9, { 3.765736774156494*^9, 3.765736789135373*^9}, 3.76616274783068*^9}, CellLabel->"Out[12]=",ExpressionUUID->"397160cd-8775-4c59-8e25-4c5421398db9"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Phi", "[", "t", "]"}], "/.", "fields"}]], "Input", CellChangeTimes->{{3.711395275486191*^9, 3.7113952811105127`*^9}}, CellLabel->"In[13]:=",ExpressionUUID->"79460b94-9729-4f3e-8728-f207ac43d16f"], Cell[BoxData[ RowBox[{"{", RowBox[{ SubscriptBox[ OverscriptBox["A", "."], "1"], ",", SubscriptBox[ OverscriptBox["A", "."], "2"], ",", SubscriptBox[ OverscriptBox["A", "."], "3"]}], "}"}]], "Output", CellChangeTimes->{ 3.739197232710818*^9, {3.760811437618373*^9, 3.7608114589490013`*^9}, 3.760811579023821*^9, 3.7609623923450317`*^9, 3.7609649941458387`*^9, 3.7609792649655952`*^9, 3.760980716435244*^9, 3.760985308021171*^9, 3.76098535676478*^9, 3.7609886063096004`*^9, 3.765632139929146*^9, { 3.7657367741684628`*^9, 3.765736789149888*^9}, 3.7661627478466396`*^9}, CellLabel->"Out[13]=",ExpressionUUID->"7088d601-014a-47f2-be7a-154660c2248f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"I", " ", RowBox[{"Psi", "[", "t", "]"}]}], "/.", "fields"}]], "Input", CellChangeTimes->{{3.711395298633515*^9, 3.711395308561083*^9}}, CellLabel->"In[14]:=",ExpressionUUID->"0d5cbf46-6c7e-4ca6-9313-90549d0dfd86"], Cell[BoxData[ RowBox[{"{", RowBox[{ SubscriptBox[ OverscriptBox["\[Lambda]", "."], "1"], ",", SubscriptBox[ OverscriptBox["\[Lambda]", "."], "2"], ",", SubscriptBox[ OverscriptBox["\[Lambda]", "."], "3"], ",", SubscriptBox[ OverscriptBox["\[Lambda]", "."], "4"]}], "}"}]], "Output", CellChangeTimes->{ 3.7391972327278185`*^9, {3.7608114376406455`*^9, 3.760811458977107*^9}, 3.760811579038756*^9, 3.7609623923550167`*^9, 3.7609649941458387`*^9, 3.7609792649840384`*^9, 3.7609807164469733`*^9, 3.7609853080431128`*^9, 3.7609853567907104`*^9, 3.760988606324562*^9, 3.765632139946102*^9, { 3.7657367741754436`*^9, 3.76573678917183*^9}, 3.7661627478606095`*^9}, CellLabel->"Out[14]=",ExpressionUUID->"00b2ffd6-79b5-49c1-be2b-04ad54ada50f"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["FieldList:= list of the names of the fields", "Subsection", CellChangeTimes->{{3.7371647409610195`*^9, 3.7371647437738266`*^9}}, FontSlant->"Italic",ExpressionUUID->"934f9f0b-9b24-401e-9416-77c2303ebc8b"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FieldList", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Afield", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{"Afield", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{"Afield", "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{"Afield", "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{"\[Lambda]", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{"\[Lambda]", "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{"\[Lambda]", "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{"\[Lambda]", "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.7371647681666255`*^9, 3.7371647892935534`*^9}, { 3.737164819313388*^9, 3.7371648856185107`*^9}, {3.7371656041965075`*^9, 3.737165618979376*^9}, {3.737166395091236*^9, 3.737166423297084*^9}, { 3.7385809380228167`*^9, 3.7385809723387794`*^9}, {3.7390162983542895`*^9, 3.739016335650423*^9}, {3.7390163659171543`*^9, 3.7390163762287436`*^9}, { 3.7391978054309034`*^9, 3.7391978066249037`*^9}, 3.760985298459784*^9}, FontSlant->"Italic", CellLabel->"In[15]:=",ExpressionUUID->"f16a7014-9edd-4a83-8bb8-ca1541272574"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Afield", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{"Afield", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{"Afield", "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{"Afield", "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{"\[Lambda]", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{"\[Lambda]", "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{"\[Lambda]", "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{"\[Lambda]", "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "}"}]], "Output", CellChangeTimes->{ 3.739103568411915*^9, 3.7391888581219*^9, 3.7391894211833005`*^9, 3.7391894554108005`*^9, 3.739197816752904*^9, 3.7391979936223392`*^9, { 3.7608114492727146`*^9, 3.7608114590001554`*^9}, 3.7608115790548697`*^9, 3.7609623923719606`*^9, 3.7609649941784906`*^9, 3.760979264999999*^9, 3.7609807164571285`*^9, 3.7609853080640564`*^9, 3.7609886063395224`*^9, 3.7656321399592023`*^9, {3.765736774221321*^9, 3.7657367891897836`*^9}, 3.766162747877557*^9}, FontSlant->"Italic", CellLabel->"Out[15]=",ExpressionUUID->"203ccb9e-ba0e-4da2-adbe-b79d01734bec"] }, Open ]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ Symmetries, Constraints, and raised indices such as Afieldup, etc. \ \>", "Section", CellChangeTimes->{{3.433789921484375*^9, 3.433789960375*^9}, { 3.439841823375*^9, 3.439841989390625*^9}, {3.43986276128125*^9, 3.4398627673125*^9}, {3.43986533615625*^9, 3.439865419203125*^9}, { 3.4398664394375*^9, 3.43986646815625*^9}, {3.4398673761875*^9, 3.439867401953125*^9}, {3.440882791*^9, 3.440882814046875*^9}, { 3.440904558828125*^9, 3.440904564703125*^9}, {3.4423496106875*^9, 3.4423496150625*^9}, 3.5517238206883764`*^9, {3.67499392291263*^9, 3.674993925768364*^9}, {3.711387721211111*^9, 3.7113877482476573`*^9}, { 3.7113878175186195`*^9, 3.7113878219728746`*^9}, {3.711390567267896*^9, 3.71139056769392*^9}, {3.7113930943174353`*^9, 3.7113930951044803`*^9}, { 3.7113950004634604`*^9, 3.711395042032838*^9}, {3.739016391461615*^9, 3.7390163922926626`*^9}},ExpressionUUID->"65102be5-a054-4c68-82da-\ 5d568c24d914"], Cell[CellGroupData[{ Cell[TextData[{ "\[Lambda]up[a] := ", Cell[BoxData[ FormBox[ SuperscriptBox["\[Lambda]", "a"], TraditionalForm]],ExpressionUUID-> "b2a23503-d120-4acd-a423-bc998b961d96"] }], "Subsection", CellChangeTimes->{{3.7113899424411583`*^9, 3.7113899579800467`*^9}, { 3.738581167758957*^9, 3.7385811777485285`*^9}, {3.7390164552622643`*^9, 3.7390164590834827`*^9}},ExpressionUUID->"6c41c663-34cc-4984-9ec1-\ aa5934fb2ff1"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Lambda]up", "[", "ai", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", "=", " ", RowBox[{"RaiseFermionIndex", "[", RowBox[{ RowBox[{"\[Lambda]", "[", "ai", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"ai", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.711389960589196*^9, 3.7113899896898603`*^9}, { 3.7115833052759237`*^9, 3.711583306822012*^9}, {3.737159669684965*^9, 3.7371596726853886`*^9}, {3.7385811371562066`*^9, 3.738581145368676*^9}, { 3.739016404855381*^9, 3.7390164148099504`*^9}}, CellLabel->"In[16]:=",ExpressionUUID->"a91adb23-7dc4-40aa-afc4-5e6bb69aed24"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"InverseCmetric", "//", "MatrixForm"}]], "Input", CellChangeTimes->{{3.711390024176833*^9, 3.711390035195463*^9}}, CellLabel->"In[17]:=",ExpressionUUID->"3f93f86f-eaee-4ffa-bb22-a47827eb1e6b"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{"-", "1"}], "0", "0"}, {"1", "0", "0", "0"}, {"0", "0", "0", "1"}, {"0", "0", RowBox[{"-", "1"}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.7391972327588205`*^9, 3.739197998999647*^9, 3.7608114908998528`*^9, 3.760811579082737*^9, 3.7609623923949285`*^9, 3.760964994202428*^9, 3.760979265027479*^9, 3.760980716476947*^9, 3.760988606365452*^9, 3.7656321399758325`*^9, {3.7657367742652044`*^9, 3.765736789207733*^9}, 3.766162747899496*^9}, CellLabel-> "Out[17]//MatrixForm=",ExpressionUUID->"9c671ba2-aa25-4543-953a-\ b3a811f4bf2c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"\[Lambda]up", "[", "ai", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", ",", RowBox[{"{", RowBox[{"ai", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.7113900099700203`*^9, 3.711390019309555*^9}, 3.711583315863529*^9, {3.738581159733498*^9, 3.7385811605575447`*^9}, { 3.739016432295951*^9, 3.7390164330349927`*^9}}, CellLabel->"In[18]:=",ExpressionUUID->"a82c1de1-716c-43b3-8a86-ec5a486e94d1"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"\[Lambda]", "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{ RowBox[{"\[Lambda]", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{"\[Lambda]", "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"-", RowBox[{ RowBox[{"\[Lambda]", "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}]], "Output",\ CellChangeTimes->{ 3.7391972327738214`*^9, 3.739197999013648*^9, 3.760811490930089*^9, 3.7608115791123905`*^9, 3.760962392408862*^9, 3.7609649942200613`*^9, 3.760979265041197*^9, 3.7609807164972258`*^9, 3.76098860638943*^9, 3.765632139991495*^9, {3.7657367743001103`*^9, 3.7657367892256856`*^9}, 3.7661627479174504`*^9}, CellLabel->"Out[18]=",ExpressionUUID->"202f8433-dbf3-4d77-a665-0c5d8f0596d0"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Afieldup", "Subsection", CellChangeTimes->{{3.5451465790572605`*^9, 3.545146585929654*^9}, { 3.5451543054161835`*^9, 3.545154311792548*^9}, 3.5594356703308997`*^9, { 3.709571995263357*^9, 3.709571995932396*^9}, {3.739016500869873*^9, 3.7390165034870224`*^9}},ExpressionUUID->"778edc5b-aa18-4a83-ac0d-\ 00833534239a"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Afieldup", "[", "mu", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", "=", " ", RowBox[{"RaiseSTIndex", "[", RowBox[{ RowBox[{"Afield", "[", "mu", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.5451465875187445`*^9, 3.5451466239788303`*^9}, { 3.5451543212970915`*^9, 3.5451543250963087`*^9}, {3.559435673901104*^9, 3.5594356777893267`*^9}, {3.711387230056019*^9, 3.711387257754603*^9}, { 3.7371538092270117`*^9, 3.7371538229783764`*^9}, {3.7371540001526613`*^9, 3.737154000480689*^9}, {3.737158811015826*^9, 3.7371588326117053`*^9}, { 3.7390165117844973`*^9, 3.7390165291404896`*^9}}, CellLabel->"In[19]:=",ExpressionUUID->"f06fe64f-4516-4bf0-9680-aaabe6467cda"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Afieldup", "[", "mu", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.5451466516414127`*^9, 3.545146659427858*^9}, 3.5451543356479125`*^9, 3.559435682412591*^9, {3.7390165506337194`*^9, 3.739016551840788*^9}}, CellLabel->"In[20]:=",ExpressionUUID->"43687642-1c54-4669-84c2-e03dde360657"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"Afield", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{ RowBox[{"Afield", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{"Afield", "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{"Afield", "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "}"}]], "Output", CellChangeTimes->{ 3.7391972328018227`*^9, 3.739197999038649*^9, 3.7608114947302837`*^9, 3.7608115791367245`*^9, 3.760962392426815*^9, 3.760964994235679*^9, 3.760979265065489*^9, 3.760980716520238*^9, 3.76098860744058*^9, 3.7656321400104923`*^9, {3.7657367743410015`*^9, 3.7657367892456317`*^9}, 3.7661627479429007`*^9}, CellLabel->"Out[20]=",ExpressionUUID->"6a763bac-92fb-4f16-bcf3-c1c18c07e37e"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "The Field strength, covariant and contravariant: Fmn[\[Mu],\[Nu]]:=", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["F", "\[Mu]\[Nu]"], " ", "=", " ", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Mu]"], SubscriptBox["A", "\[Nu]"]}], " ", "-", " ", RowBox[{ SubscriptBox["\[PartialD]", "\[Nu]"], SubscriptBox["A", "\[Mu]"]}]}]}], TraditionalForm]], "None", ExpressionUUID->"eb8aebdc-4464-4c08-99c1-c0ea702eb5e6"], " , Fmnup[\[Mu],\[Nu]][t,x,y,z] := ", Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["F", "\[Mu]\[Nu]"], " ", "=", " ", RowBox[{ RowBox[{ SuperscriptBox["\[PartialD]", "\[Mu]"], SuperscriptBox["A", "\[Nu]"]}], "-", RowBox[{ SuperscriptBox["\[PartialD]", "\[Nu]"], SuperscriptBox["A", "\[Mu]"]}]}]}], TraditionalForm]], "None", ExpressionUUID->"1ddd53b2-23fa-44c1-8e0c-8e2d9c9b82a8"] }], "Subsection", CellChangeTimes->{{3.559435749243413*^9, 3.5594358115719786`*^9}, { 3.7095723534978476`*^9, 3.709572367764663*^9}, {3.7391018360546093`*^9, 3.7391018449561186`*^9}, {3.7391026849641643`*^9, 3.7391026854611926`*^9}, { 3.739102724383419*^9, 3.7391027822997313`*^9}},ExpressionUUID->"3f1ea2b0-6032-4fee-802d-\ 0bd9d2cf462b"], Cell[BoxData[ RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Fmn", "[", RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"Afield", "[", "\[Nu]", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "\[Mu]", "]"}]}], "]"}], " ", "-", " ", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"Afield", "[", "\[Mu]", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "\[Nu]", "]"}]}], "]"}]}]}], ",", " ", RowBox[{"{", RowBox[{"\[Mu]", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Nu]", ",", "0", ",", "3"}], "}"}]}], "]"}], " "}]], "Input", CellChangeTimes->{{3.559435816934285*^9, 3.5594358798158817`*^9}, { 3.5594391240094385`*^9, 3.5594391253525157`*^9}, {3.7391018117262177`*^9, 3.7391018161954737`*^9}}, CellLabel->"In[21]:=",ExpressionUUID->"f10d90b7-7be8-4953-9a59-dd8b6fec91f1"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Fmnup", "[", RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"RaiseSTIndex", "[", RowBox[{ RowBox[{ RowBox[{"FmnHolder", "[", RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "UP", ",", "UP"}], "]"}], "/.", RowBox[{"FmnHolder", "\[Rule]", "Fmn"}]}]}], ",", RowBox[{"{", RowBox[{"\[Mu]", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Nu]", ",", "0", ",", "3"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.55943589149255*^9, 3.559435933415947*^9}, { 3.559439144588616*^9, 3.5594391665908747`*^9}, {3.711387927585915*^9, 3.7113879458169575`*^9}, {3.7371540737848773`*^9, 3.7371540855203824`*^9}, { 3.7371542090498376`*^9, 3.7371542704641705`*^9}, {3.7371590519180546`*^9, 3.7371590745762577`*^9}, {3.737159110454631*^9, 3.737159114437681*^9}, { 3.73715917228938*^9, 3.73715919107272*^9}, {3.7371682860288363`*^9, 3.7371682882633696`*^9}, {3.7391028089342546`*^9, 3.739102810474343*^9}}, CellLabel->"In[22]:=",ExpressionUUID->"a8045f24-dd5b-4a8a-ae6d-a34b320487a0"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Fmn", "[", RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"{", RowBox[{"\[Mu]", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Nu]", ",", "0", ",", "3"}], "}"}]}], "]"}], "//", "MatrixForm"}]], "Input", CellChangeTimes->{{3.5594359455036387`*^9, 3.55943595864439*^9}, { 3.5594391511239896`*^9, 3.559439152285056*^9}}, CellLabel->"In[23]:=",ExpressionUUID->"f0d625ec-df6a-4218-9b75-c64339bbfd2f"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}, { RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "0", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}, { RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "0", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}, { RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.71209615388118*^9, {3.7371542473212185`*^9, 3.7371542756680527`*^9}, 3.7371594879307847`*^9, 3.737162768457844*^9, 3.73716829298385*^9, 3.7371683900236363`*^9, 3.7372083950508084`*^9, 3.7372092383700438`*^9, 3.73728936135922*^9, 3.737807245938573*^9, 3.737914446711904*^9, 3.7379768142386427`*^9, 3.7379777784837947`*^9, 3.737979347605543*^9, 3.7391030443287187`*^9, 3.7391972328568263`*^9, 3.739197999084652*^9, 3.760811499655486*^9, 3.7608115791767254`*^9, 3.760962392462718*^9, 3.7609649942874146`*^9, 3.760979265111007*^9, 3.76098071655177*^9, 3.7609886075323334`*^9, 3.7656321400417356`*^9, {3.7657367743988466`*^9, 3.7657367892805386`*^9}, 3.766162747982782*^9}, CellLabel-> "Out[23]//MatrixForm=",ExpressionUUID->"a5865f2f-7071-4ace-bbac-\ a810acb69a23"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Fmnup", "[", RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"{", RowBox[{"\[Mu]", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Nu]", ",", "0", ",", "3"}], "}"}]}], "]"}], "//", "MatrixForm"}]], "Input", CellChangeTimes->{{3.5594359455036387`*^9, 3.55943595864439*^9}, { 3.5594391511239896`*^9, 3.559439152285056*^9}, {3.739103091441413*^9, 3.739103095356637*^9}}, CellLabel->"In[24]:=",ExpressionUUID->"f4d145fd-2861-4bcf-9e11-4e68e93cc926"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}, { RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "0", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}, { RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "0", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}, { RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.71209615388118*^9, {3.7371542473212185`*^9, 3.7371542756680527`*^9}, 3.7371594879307847`*^9, 3.737162768457844*^9, 3.73716829298385*^9, 3.7371683900236363`*^9, 3.7372083950508084`*^9, 3.7372092383700438`*^9, 3.73728936135922*^9, 3.737807245938573*^9, 3.737914446711904*^9, 3.7379768142386427`*^9, 3.7379777784837947`*^9, 3.737979347605543*^9, 3.7391030443287187`*^9, 3.7391031004479284`*^9, 3.739197232886828*^9, 3.7391979991126537`*^9, 3.7608114996900826`*^9, 3.7608115792027473`*^9, 3.7609623924816294`*^9, 3.760964994298478*^9, 3.760979265135272*^9, 3.7609807165763702`*^9, 3.7609886110968027`*^9, 3.7656321400573673`*^9, { 3.765736774442734*^9, 3.7657367892984934`*^9}, 3.7661627480117044`*^9}, CellLabel-> "Out[24]//MatrixForm=",ExpressionUUID->"babafc4c-db0c-47f7-8f7e-\ de966a7c7534"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Check UD[Field_,\[CapitalStigma][\[Mu]]] := ", Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[PartialD]", "\[Mu]"], "Field"}], TraditionalForm]], "None",ExpressionUUID->"4bffd42c-f016-4838-b5c5-e2de8b7040c1"], " , Lap[Field_] := ", Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[PartialD]", "\[Mu]"], RowBox[{ SubscriptBox["\[PartialD]", "\[Mu]"], "Field", " "}]}], TraditionalForm]], "None",ExpressionUUID-> "ff1bba7d-d59c-4755-bf0f-9f1b90a6e096"], "defined in SpaceTime2.nb. Doesn\[CloseCurlyQuote]t matter in which order \ these are taken when strung together." }], "Subsection", CellChangeTimes->{{3.55718713999227*^9, 3.557187201431784*^9}, { 3.5571879488795357`*^9, 3.5571879957402163`*^9}, {3.7113858177912416`*^9, 3.711385874307474*^9}, {3.7371600993718157`*^9, 3.7371601203114777`*^9}, { 3.7371602125397243`*^9, 3.7371602221970606`*^9}},ExpressionUUID->"ec403595-5c5e-4130-87e6-\ 1d3065f65cb1"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[CapitalStigma]", "[", "3", "]"}]], "Input", CellChangeTimes->{{3.739016748488036*^9, 3.7390167730614414`*^9}}, CellLabel->"In[25]:=",ExpressionUUID->"65e8b7f3-0ca3-456b-bfd4-58abb0bc2ab8"], Cell[BoxData["z"], "Output", CellChangeTimes->{ 3.739197232900829*^9, 3.7391979991326547`*^9, 3.760811503710327*^9, 3.760811579216077*^9, 3.760962392492638*^9, 3.760964994314141*^9, 3.7609792651443377`*^9, 3.760980716587454*^9, 3.760988611187559*^9, 3.765632140073004*^9, {3.7657367744517097`*^9, 3.7657367893074665`*^9}, 3.7661627480221853`*^9}, CellLabel->"Out[25]=",ExpressionUUID->"f50a0208-5f45-4a1c-8dac-ae840909153b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"D", "[", RowBox[{ RowBox[{"UD", "[", RowBox[{ RowBox[{"dfield", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "0", "]"}]}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "0", "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.737160138359976*^9, 3.7371601545178967`*^9}, { 3.738581109224609*^9, 3.7385811123787894`*^9}, {3.739016882295689*^9, 3.7390168824236965`*^9}}, CellLabel->"In[26]:=",ExpressionUUID->"9dbeb415-c297-44bd-a09a-2df894cf21ab"], Cell[BoxData[ RowBox[{"-", RowBox[{ SuperscriptBox["dfield", TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output", CellChangeTimes->{ 3.7391972329138293`*^9, 3.7391979991476555`*^9, 3.760811503802518*^9, 3.7608115792226768`*^9, 3.760962392504614*^9, 3.7609649943297606`*^9, 3.760979265161042*^9, 3.760980716596998*^9, 3.7609886112094965`*^9, 3.765632140073004*^9, {3.765736774488611*^9, 3.765736789318437*^9}, 3.766162748032159*^9}, CellLabel->"Out[26]=",ExpressionUUID->"b8c5ac21-ae17-4cf1-9d6d-94cc658ff4b2"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Lap", "[", RowBox[{"D", "[", RowBox[{ RowBox[{"dfield", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "0", "]"}]}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.737160176567008*^9, 3.737160189584123*^9}, { 3.7385811204712524`*^9, 3.738581123297414*^9}, {3.739016880418582*^9, 3.7390168805545893`*^9}}, CellLabel->"In[27]:=",ExpressionUUID->"ee4c6f59-03e9-42d6-9a14-eff52b913ea1"], Cell[BoxData[ RowBox[{ RowBox[{ SuperscriptBox["dfield", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox["dfield", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox["dfield", TagBox[ RowBox[{"(", RowBox[{"1", ",", "2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox["dfield", TagBox[ RowBox[{"(", RowBox[{"3", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output", CellChangeTimes->{ 3.7391972329298306`*^9, 3.7391979991626563`*^9, 3.7608115038202944`*^9, 3.760811579236699*^9, 3.760962392516574*^9, 3.7609649943297606`*^9, 3.7609792651815295`*^9, 3.760980716606099*^9, 3.760988611230441*^9, 3.765632140088562*^9, {3.7657367745255117`*^9, 3.76573678932841*^9}, 3.766162748043129*^9}, CellLabel->"Out[27]=",ExpressionUUID->"28621ecb-effc-4714-9316-7894ead4d6b7"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"UD", "[", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"Lap", "[", RowBox[{"dfield", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "0", "]"}]}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "0", "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.7371601998043656`*^9, 3.7371602524808755`*^9}, { 3.738581193616436*^9, 3.7385811970866346`*^9}, {3.739016878743486*^9, 3.739016878861493*^9}}, CellLabel->"In[28]:=",ExpressionUUID->"cbbd8308-375a-4a2e-9ba8-f5aa44b2bf32"], Cell[BoxData[ RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox["dfield", TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{ SuperscriptBox["dfield", TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox["dfield", TagBox[ RowBox[{"(", RowBox[{"2", ",", "2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox["dfield", TagBox[ RowBox[{"(", RowBox[{"4", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output", CellChangeTimes->{ 3.7391972329458313`*^9, 3.7391979991786575`*^9, 3.7608115038399515`*^9, 3.760811579252429*^9, 3.760962392527543*^9, 3.7609649943453875`*^9, 3.7609792651935396`*^9, 3.760980716617053*^9, 3.7609886112573657`*^9, 3.765632140104184*^9, {3.7657367745634108`*^9, 3.7657367893393807`*^9}, 3.766162748055097*^9}, CellLabel->"Out[28]=",ExpressionUUID->"3366210d-aa9a-4e15-b011-368b2beceb24"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Lap", "[", RowBox[{"Lap", "[", RowBox[{"dfield", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "]"}]], "Input",\ CellChangeTimes->{{3.557187324200806*^9, 3.557187338928649*^9}, { 3.5571873944078217`*^9, 3.557187453704213*^9}, 3.5571875139576597`*^9, { 3.709575091516453*^9, 3.7095750917194643`*^9}, {3.7371602900941324`*^9, 3.737160292891345*^9}, {3.7385812011868687`*^9, 3.738581204834078*^9}, { 3.7390168734681845`*^9, 3.7390168770133867`*^9}}, CellLabel->"In[29]:=",ExpressionUUID->"93182930-359a-4f6d-8c9f-c9c311d608a5"], Cell[BoxData[ RowBox[{ RowBox[{ SuperscriptBox["dfield", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "4"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox["dfield", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "2", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox["dfield", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "4", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox["dfield", TagBox[ RowBox[{"(", RowBox[{"0", ",", "2", ",", "0", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox["dfield", TagBox[ RowBox[{"(", RowBox[{"0", ",", "2", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox["dfield", TagBox[ RowBox[{"(", RowBox[{"0", ",", "4", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox["dfield", TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox["dfield", TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox["dfield", TagBox[ RowBox[{"(", RowBox[{"2", ",", "2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox["dfield", TagBox[ RowBox[{"(", RowBox[{"4", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output", CellChangeTimes->{ 3.7391972329638324`*^9, 3.739197999195658*^9, 3.760811503859361*^9, 3.7608115792644567`*^9, 3.7609623925405316`*^9, 3.7609649943580513`*^9, 3.760979265215043*^9, 3.760980716637402*^9, 3.760988611276335*^9, 3.765632140104184*^9, {3.7657367746023073`*^9, 3.7657367893523474`*^9}, 3.7661627480680623`*^9}, CellLabel->"Out[29]=",ExpressionUUID->"ab633fb4-ce1f-49e5-8422-d46b9dfa5b7e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Lap", "[", RowBox[{ RowBox[{"\[Lambda]", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.5571886193348837`*^9, 3.5571886544198904`*^9}, { 3.7036111242894974`*^9, 3.703611128972766*^9}, {3.7036111919493675`*^9, 3.703611211587491*^9}, {3.709575109461479*^9, 3.709575110109516*^9}, { 3.7371603078616962`*^9, 3.737160308893036*^9}, {3.7385812731839867`*^9, 3.738581273517006*^9}, {3.739016885157853*^9, 3.739016887838006*^9}}, CellLabel->"In[30]:=",ExpressionUUID->"eb43cfbc-955a-45ee-9174-7bb4f391055f"], Cell[BoxData[ RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"\[Lambda]", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{"\[Lambda]", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{"\[Lambda]", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"\[Lambda]", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output", CellChangeTimes->{ 3.739197232978833*^9, 3.739197999210659*^9, 3.7608115038883553`*^9, 3.7608115792825594`*^9, 3.760962392551486*^9, 3.7609649943821936`*^9, 3.7609792652301164`*^9, 3.7609807166491194`*^9, 3.76098861129726*^9, 3.765632140119805*^9, {3.7657367746398363`*^9, 3.76573678936232*^9}, 3.766162748079033*^9}, CellLabel->"Out[30]=",ExpressionUUID->"da4656dd-2662-45e0-88e9-48923d9d2bd1"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["TemporalGauge", "Subsection", CellChangeTimes->{{3.73901698896179*^9, 3.73901699281001*^9}},ExpressionUUID->"68893c73-8799-44ac-b397-\ ad8678b9c883"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TemporalGauge", " ", "=", " ", RowBox[{ RowBox[{"Afield", "[", "0", "]"}], "\[Rule]", " ", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", "t", "}"}], ",", "0"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.7390169950041356`*^9, 3.7390170345873995`*^9}, { 3.7390173610700736`*^9, 3.739017362779171*^9}, {3.7390174362153716`*^9, 3.7390174400475907`*^9}, {3.739017471399384*^9, 3.739017480922929*^9}}, CellLabel->"In[31]:=",ExpressionUUID->"5ae39733-84b1-42ef-b5d8-d6e0ffff02fd"], Cell[BoxData[ RowBox[{ RowBox[{"Afield", "[", "0", "]"}], "\[Rule]", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", "t", "}"}], ",", "0"}], "]"}]}]], "Output", CellChangeTimes->{ 3.739197232993834*^9, 3.7391979992256603`*^9, 3.7608115092715254`*^9, 3.760811579292385*^9, 3.760962392561453*^9, 3.760964994395157*^9, 3.7609792652442694`*^9, 3.76098071666009*^9, 3.760988611327197*^9, 3.7656321401354637`*^9, {3.7657367746768293`*^9, 3.7657367893722935`*^9}, 3.7661627480910015`*^9}, CellLabel->"Out[31]=",ExpressionUUID->"7a52e50e-54a5-4b67-8b6c-8da0b9ac49a7"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Afield", "[", "mu", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}], "/.", "AdinkraReduce"}], "/.", "TemporalGauge"}]], "Input", CellChangeTimes->{{3.7390170400027094`*^9, 3.739017071101488*^9}, { 3.739017564761724*^9, 3.73901759197028*^9}}, CellLabel->"In[32]:=",ExpressionUUID->"8a51f6e7-4290-41a7-8b37-30e4ca96554a"], Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"Afield", "[", "1", "]"}], "[", "t", "]"}], ",", RowBox[{ RowBox[{"Afield", "[", "2", "]"}], "[", "t", "]"}], ",", RowBox[{ RowBox[{"Afield", "[", "3", "]"}], "[", "t", "]"}]}], "}"}]], "Output", CellChangeTimes->{ 3.739197233009835*^9, 3.7391979992396607`*^9, 3.7608115093403945`*^9, 3.760811579306471*^9, 3.7609623925714574`*^9, 3.7609649944071302`*^9, 3.7609792652595234`*^9, 3.7609807166730547`*^9, 3.760988611343147*^9, 3.7656321401354637`*^9, {3.7657367747207475`*^9, 3.765736789382268*^9}, 3.766162748100975*^9}, CellLabel->"Out[32]=",ExpressionUUID->"2e8fe216-b851-4c14-9602-cdbffd325b55"] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Transformation Rules", "Section", CellChangeTimes->{{3.4398675903125*^9, 3.439867599875*^9}, { 3.440896666046875*^9, 3.44089674728125*^9}, {3.442439583875*^9, 3.44243963178125*^9}, {3.5367192257037*^9, 3.5367192280398335`*^9}, { 3.536753484160329*^9, 3.536753546275882*^9}, {3.536757704238902*^9, 3.536757710183242*^9}, {3.5451474996309147`*^9, 3.5451475298776445`*^9}, { 3.551718991736784*^9, 3.551719000776301*^9}, 3.551725337994161*^9, { 3.5594360745480194`*^9, 3.5594361236078253`*^9}, {3.7113930771124516`*^9, 3.71139309981975*^9}, {3.711903460319059*^9, 3.711903497730199*^9}, 3.7371603760407314`*^9},ExpressionUUID->"06494e91-661e-4ca6-95eb-\ 5ee8e28bd4bf"], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnV9MG1e+x617X+7DPFw/8oDEFbLEQ6QIIUuXKKrggYgICaJdIUQbIRM1 F9BV16S9xbdVIFUDWXW9UtdIG9i7sba1ItXZ3VHurlvF7eLdi7vC2eJuHQWU dRuoTINTSIEgB0EwGS72jD1n/G9m7BnPGH8/0q6628QMx2fO75zf73u+v3+7 YP3Rf/yTwWB441+O/utH/bbW11/vf+vH/3r0P7p/8sbQwE8uvnr2J/91ceDi 6/9+4Z+P/s+3j/7z+tGfT/zzIQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKCCOYhF vvDepmm302E/4urIgKWvr7f7woeLzxmtnw0AAACoLFY9Aw2GbM44wy+0fjQA AACgwmDisR+iCZZCt2xmLqYaT0/dP9D6yQAAAICKhdkLTNRxUbV51L+h9fMA AAAAlctu2NmdOqq+4d3AURUAAAAoFmbZ3VvPRdUu1zKUSgAAAEDRbHitRhRV AQAAgNJhnvmv1HIn1ZbxwJbWzwMAAABULkRRteYt3zYu1QAAgA5h4tG/Tg2c Ng541rV+lPJxEHI0nugcux2OVU4alYnQFhMbVCkLHUVRFQAAdMdBbOEDi4ky UGevzD6upnU6FnYNmAxUfed7vuie1g8jjW3fSA13Uj3jfICTKgAA6Aw+pI7N fBfX+mnKDfN0wXnx6OxHtV6dqYDAyuwF7Se5/G+bPbit9fMAoE9i4Y+s5qNV 7cz0Avw8QVlJhVRD0yC9XHUhlYV5MjfRQVVGYM0qqjI70Xufuey2ix1NlKGm qeNVm+PWbHhD9a8yvrcbx2IlhNndehxVjCexKn0fFYDZf3izl9PJD9BRDCQo G0x81TPccBRPalsnPt+s5jUyvkwPNiUqlW3vz2/ruMYqKKr+PrI27xpuoyhz 9+Up2jcXnJ/1TA23JPYHpwedf1tXLeodhJ3tFPsUppYe67jTE1jaxMp1GA/a U9eIlcPU0t1vHX3fSf8ltLKNQZYEs+IZakoNYIs9GNP6gUC1wGzftbclrmgY e37zj91qjqkJmM3/GzMf7W4p0yAd0e0pjC+qGs0Xhy+aa009du/SNvG4z9dn f9qaCHmmnulQTJ3fg4mFfTevT1g7iRjSUGGiLzVQJaqS1DR1vz398ZfRXZTT C3Cw4btMdKE4PR54qvUjgeqAWfVeak7uhYfcSztaP40eONief7+NjUfOhV2t nyYXZFHVkMgwjHqWsgPZ0Xm2P7moUOccIVULr3tR72Uz/zyUyfLBQjUHVj4D /Gh58e/BwAx9Y7TbRGUFx/rOMfdsKLxSKP+7vBicD/j+4Jq69ma3OeMjKPOr v7jzYEu3ez9NYbbnJpqN5Gj30StaPxSoBnYjtDWZSTT1usL7Wj+NXmA2AhNn kstWl31+Q39rFlFUPQph/e6l/ZzPuL/i7ufONsNedX+N9Iilnqrh0p01/Q2c dhxs+989kRFU6yYCe7LGKB5bCX3qtHXUk9G1xjww7V95hsEWEluY6hFuQiCV B2WA2V9y9ye30FSXM5x7Za5SUnlgXRZYiaKqwXzVv5n38fhMpPre+0zE3StY xdrtQSTcCHh7yRQ97pVi3jkmvvXgjv0VE/lRpv7JuVUUW1OQIiXisGoPYoiA uqSUOVgAc7G/Sg8l38vaNseX+sqME0XVU46vnuf/g0R9T32pBvPIM0iexqgT 43P6GjdtyS629tHR4j9uLzr3yz4yq0ydHfV8rVIBvcIQiJSIEaoqZxugAfE1 r42tupmG/ghnnhzs3pvqrEuO0MvOsI7iQ8IIilsnCvdUfbHte4sLv4aGAc+q 2s+14X2zhlzFGt7xw0cxjcJR9TBxGy5M21pr+Q+szpvmmXAiJaq+vi4jrBaZ HABAGjtf2LlSPg6q+UgfVw3GfnpVL+/j3rLrFW6VEMnrEn+yPFIN/hDN0jTi e6L6D60UlI+qh8Q1cz6wVpkrWiacSIk65wh8Mp4RVpECBiqiz3ihP/i9x5mJ gE5kS997rSn9r0hP1Se+kXQe7KTV+736z/aDf/Q0uYzVjPjg+sShSlQ94mDT f9VMfmxVi/lZkRLVYJvZOLg/dVpYW0UTCqAefLA4Per/Qeun0TN7S67z7EmA Ouda0sMb+cw/yuX8xHqqClaVdkfomfoPx+wErp3AOpYTtaJqQoA9b+8ilWJU 568WqvHieUqkZLrkie4fHq7QfRkjDnsloBJE/av558GdKnz7ZMCs0v1caNJF qvxgcSp1GhTJrzJR2pJeassW3Xbmxk+QCzySwCnUi6qEZD19Xq3Gi3KcSCn9 u2/4R5uFI941tVi1p3igJi++dp2rY5daXOASh5C2qn7rU5yDdc9rXNCiBgtu vEmpUjlbxW0FxlvIhcw46MHF1QRqRlWyppMa9yF6tariakqkxJ/TY0F7i3DE YVoI1IB5Hpo8xc2xbmdYl9ZB+oIIT9QFd6TARZYy8CzkaOe+vUZHqFD+l9yo 1/e6CxZglYScYOzybvWsIe2mdlQ9PNyeHW0gswTG5om57arZz6SclEj9QzxK DwhHHPZKQA2eBu2pZfmMM4yTqhT4+/t151xfazpmxPa78JpMZmIbLvtUtoAQ 8Pwrxyny2HRi0POoalb3/KgdVbOyBDrYBJYNQqTET7WDDe8bQrlSbZfrG0xF oDD8YiumdQFpSH8DjbcifFQteEvgxbb/nZSveF2Xc7G8qcBYyNEhOK0iCXxY hqiaJRUz1LRN3a+CLHCGSIkne8hxtwYoDfneodW1dMiLn9qmzfmkVqH1Ie2r r43jIpLAuVA9qmbfFzYYTlwLHHs5YqZIifg3y64u4XgYrd4CtikAyIfIEeHK gxxehJ0p7/hy1iiz4bvV1I0H8jRWZ3aCP+dKqlp1B9i/P9VGru/aDpo+KENU Zb5199QJf0bLeGBL2R+iM7JFSgRRus+g8piDKoe4wFhGUeixYC+Q9mnROJ+Z zuHnsYBgYsFJ1mjR0GhxLWp0ria76iTnW687UuXzrQxR9fBpYPy08GeIOEVX OrlESgRIAQOVIfIhKKrKZdUzkCpUanzM3wk7X072GcqlRYmveG0tXEh13tPQ a5043bNhtXqUM3koR1TNVr1qrgRQlZwiJYJse6XaK340zQOKQSriFL6bz+yu Lc7+9vrYf3Y2pfN+ppa+/3a4Z8NbRcklmIP4ga4mP3n40vou+e6Cs8eU6GE6 7FnlO1Yz8c3QR8PJdutUu41+oHH7khcPnGeQBCYoR1Rl9gITdRlRlXrNs34s d9B5RUoEsFcCqkJmh15xLecpysmF2V72XR8wZ4gkyNX0x+Mfy2xQlZQf6CxH TZoq1PW4v9X00Zj4+t1pS2OiY7XlvY9m5oLzsx7naHfCZb3GPHDdt6yHe4pI AgspR1QlrbfSHFPrg/wiJYJseyVc0gfKwXzj6ko1jVIoDcLEHtC2dirzLc5G VjaSFduU/z6ICGRKs3bUXwZTXRHiG2HfTfvIqx1NNQaqqaPPOnb9lu9eVD/+ r5lJ4Cpf0MoSVXPoc46n9UFBkRIP7JWAmvCu7IqUWph49C/2npMGqTQN0suS Mi/srZAyGxdIgfeCEG0WA5Lw3pgs1e2QqVlUPYYiChGREk92obkMjYZBtUBe 3aIGPOslftrm5xNku2QeU0vHS/W5/oXBZKUjokcV9qCqy9vr5KpYNxHYQ1gV 5XnEfUGQyjjOyhkxNIuqx0/3mhIpXbojpsYXuGGzr67W5Rt98mzJe8OuF254 l7TPBUqBfKdLfcv2v3b3NxIvbeeww+0LLa/H0p/6YnfrUTjo/fCqxcyvqvml emnYg6pOjcFJ5QM0D5JgIu5eQVit4iRweaJq9k85blE1JVIyDrjFd+m4WyON XNNGQyrkOyIzISWaYbIbxSRUm/WGr6DK9yC2POPoS4Vg6rxrqYBKij2oGpvt X+iyXRPZBBzVGWkwy+5e8nXVZRaiPCCqKgInUpKqu2BW3D3C0agZ8cFULhPm uzuXXpKgkCkL1EuX7nxXCfmEncWpdAK4FPUCs7vwq87k6FOtb9Php5J+9/h3 M2Nnk3+pYMTU9UH1UKh8QNtQiWQlgU9Nhp5XwhujOOWJqoRdSZpjFFUPNv1X zYnt/GRIohPjumeAUn/YQTVCRoTmUX+xXpj7YVevKRlSr85E5dzNiS/Tg8mD XsM7/twWCjo/qB4K3YCPpa5SDbI8gQ0djlBVHvNRVy2dnS8dbbUGQ+uYf13q zix72EVaKAIgEUWyl5ya3dDwpmdV9nVXZu3OpUT/xzynPGbNZzul44PqoTCL Xt1yVqkw8ehnY5mqNrkeegexyBfe2zTtdjoSSoarIwOWvr7e7gsfLlbWmVez qHps5irrKiZFpESQ6UZynDYZQFtIpU2xUZW7KHHK5ivOB3d/lR4y5qlrvFhy naOohtFZHZc8BCp9vJpipEOq8WTTSYFtnLwkMOEVSVJxcmLNoupJq/d7xX9O 2WHikVsWySIlAtgrAZUoPapyqTxjP71a9BGBdYbP4aOb7KVOvewM6zX7mwBR VTr8KZXq/OVXD28PCsJquz34VMZHxX6IJlgK3bKZuU+owDuYZYmqucRKWhts KgKz6r3UnBBmjP8pEpVF2DNiFg6Ics5yoKoho2q/e6WILCtrQFdiY6lk9Mxq 7cqseY5W3ZLidTlgnvmvpLOZiKr5IRK/bLGAbPuegDoxPid/oSdNbkvQBmhF OaJq9vVMzZtBKAInUlIICPiBIpR+1/JZyNEuQ3qXG/bAm1Ho2VtynacqoRGk knd+jy9MLDSdMP8/Cp7dk6Gt5HSJr3msgtNqMd20CWNh4xtevVlviVKOqEoK 6jh05qddFJxISSmOR0ocaI5uHAySxolGq5c/aex8YW82Ul3O8L7eX35EVVGY 2D2nhb2eLPCoZNMRBPI3UeTV10p0jCxHVM02kz8GrYI4kZJp6I9FbQ+yz+8Q 8ANFIKOqtnWWpPiEF7ezuuKGflr//UzIVnqIqjkgQmptm/2uoHFO6Ulg3oe5 Aouqh2WJqtntRCu+rW3RIiUe2CsBdVBCA6wMST+KdM9Hzks/3yVWXQG1UiGI kEqZBulIPGOXVGISmCxqV0CxIAfqR1XS65vbf+hdqyAGJ1IqqYNVVu8kffSc AhUPeT1B26h6sO55jeLOy8z+4nSbrp0fSBBV80KEVAPV+rO5zRxHyawksCx/ KqKoWqHyG9WjapaNVfGX4HSCfCelnMBeCagC6a2ksQQuubqcHg88TV2oKWwO rB/IqIrSDA8ZUg2mIfdSvi0SaUWSDI/SHVmZCG0xcVG7QuU3akfV/ftTbYL6 oVjvUd3DiZRE272JkT3yFXfZWXXQs6YIyKiqsQQumadKRqXt2dEGqnKSVEp5 KR8vyAZG1Nkrs4/zf5lZuhHpp85t3wj3NyvWKUjdqMoafpJU+kE15aQk2uhK FOYbV5dQQoxMUwboWVMMejpnJexfjp5hOVloaxz2FliHdQW5M2HP2lUP3zfh iEaLa1FEUMIHRxaJSWBmL2g/yf2VzMvOFYOqUTX+0G0hHahylralwMS3HgY8 v7GPDHS3mAz1LT3WCefHoXX+ow7ixXys/MdgRUoNNu9a6etrlj1XWtchj92I d7yzvtZs+dV8rhoHCbP7KPjp/97+9N56OYarZNCzphjIYwKlsb10IqpSje// 7lYxOiUNJ/b3XmtqaS+yT6hOliyFEITU2taxz6LiD5+VBB72SjiJZBVVmZ3o vc9cdtvFjibKUNPU8arNcWs2vKHr/a2KUTW+5rUJwobJShehmI1/H7z5Vkf9 0Vfa0DH8C/fMXHB+1jM90nH0ug3eXIjtxxZ/a+toEMtIKAEnUmqwuB8q8Z2S +2GWYpxwCGGA6KZ6IzDelvyTDQOe1aKfG+icg5Aj3WhcYwlc8opEzdmOM5Rs nZKWE5vMIxWx19XPkqUIgpBqMPb8+n5MyoAwO4Fr5AUbg9HqET2MCIqqv4+s zbuG2yjK3H15ivYlh3FquOXoUajTg86/6fdooFZUPTrW0YMm8pzRPOyJyAxG TDz6+STbB9nUPzm3Svz1g9jD31kbasyXf/mLnvqyLCApkZJid9izzTGK0JaQ F+vENtV8Tqaux/2tXmckKBlSCKetBI5fXuQ2BdN0YpOrorzTvq6WLCUQhlSD +bJXeltA1gua58Sg55HIt8N/lUbzxeGL5lpTj927RF6Hfb4++9PWxKeaeqZD MX2uYupEVWb7rl3gO1TXORmUOQKEw6TponMhu2lyqlkVR22X6xv1xpj7jahz jpBSqX6Bej9JEf2RCYeNuonAXoEBIG+BtTtCen+bQfEkDqup1UzbYnA6vstW 4mk6sYltCTXgWZf61/S1ZClARkjlbQklshUYbyEXOOOgp6CqhiyqJsanddSz lH0uZi8+J55HwdVYUZSPqkx8/e50Wn3NDo6kPLzwU9b/coXr1td8yZtHOfj8 K8ep9LUoNUvbzMa8vUsZkRJB1tjL15YQDhsCa7gcELLGCr0FBqRClgU1NS3k mlXJF3NqOrGJFLoMbx99LVmlkxFSi0o2ZqpVRZLARFHVQJn63Uu5s4L7K+5+ 7guXVKstOwpH1YNYmLYJetc2dE7MyA2phIS7cN/Sp4Hx06nvSz0T5r1Vz5vJ vZHCre3J+hf7y8rVlhAOG2L7XqJgYehxr+hwKgLFIFcnTa+sclFVtuBH04nN mlewSE4f6WvJKhlmKzTZTYTUIpKNSQS7iEQ4KORXSX6V5qv+/BI1Pmrpcwx5 x8UUxc5MJvbQd33ITObRqbZh933538XOQ1c/91CF+zCS34JKJszMs4j33Vbu l1J428+suHuEY183HpBzSZ6sPYk5vhIFi4q01gQyIJOiWtbQudVPdvpX24lN BD5qUNorr6clq3SYpwvOi6mnTO4Thj2rRUqDYiFHB7nEUb3uvGGV+CpPOb4q 4GlLnAV12OrrYNv/rkCmZRCtYmQTj62EPnXakpo3fvDqO9+hF34oIggxGzO2 Bu6jRK6NJ5tiqBYpmPjm/T9OvEzMrvyJnWI+/un96fMZOxpD2/SiDCkUUXsS yX2RBYsK7FcI5ELslmXY2igMGxyLuMuv6cQmBcDS9gO6WbKUIDOkHp2N3p/f Lv5JM61Z85vAE7m7wl8leXdM6+sMzO7WY7Zl9qPlxb8HAzP01IgwFLLUd465 Z4OLy4Wabi8vBucDvj+4pq692W3O/Ij6LtvNu9Hd4gocrM0Ci4hm7GBxKrWn VCpSxGNPVo9+N7/3tzeuWrJ+scQMs079wR8KrzyJyd4wHH02N3RzPvrXV/tO 5bqJWdti/R9vIBgKs13Q17YKDCNRexKz9iL0xkXeigUVBRkaTk8tavOFbwft bcUoiLSd2PyJiTppn5eQO9J2yVKWnSX3EBlSi7wOSfLigfMM6QeRr2EZ8VWK 5HXJ2xNa+5yo7lRD1bcO2X8/t7RVtOW8UIwt0tqGfKEkJmoKc7Dpe9uU75fL /F3lvsK7YWePfEODQpVWovYkehwg5CvwRawKyNLqK65lLdx3uZqa7LqJphOb PPxKa5ii5ZKlNBkFQdmi35zsr9JDgqRc88+DORzUia9SJDdO+kto3ZZalaha 09TRZx1930n7gl+vl+zvK7w4LPKaEGOrzAslI6pSzT+dk6c2fBZytMsf3hMv ux/m+TFk7Unsmjyfd5K4/QYVD5F5k3BPUL0HkH21R9uJTSiKJfUv03bJUhpO XcbSYvOuKBP4Oe/0NLmumkrPjQtai+KSoCikqbXYa7I3bz/JbRFlinyOB0Tt SUwIRyywWm/tQNkgMm9alFZTh2XZmhxNJzY/aBJ7bR+vJYt57L/248TZq77L dqsIoWnez41HffYeoqSWlYMjcuMiumsmSlvSH4RLguKQ1rgiY1vtkYLcsIks XPEoPZiahholA4EGaNqnkll29yaWZ9n2QZpObCL53G4PSjHVP35L1ovdrSeF 5ByqQNxmEsmNC7rhVGqruHIiONoXfk2qPVIQr7/oLVci76SZcAVoABNx91KS FnzlfzTn4ivbPkjTiU3sQySq8bFkKQNRIBP51olURl7hEyAgK7+1V/zPCgwY 8UIJvgUmvv7g7uK6/nQAykLWnsQWTOLFFx4c9p4sfrm4jrf7+MI89g5zlxXK 60KTPlDIbaOm6cTmm0FLXq6xZCkD0WqksA0RqQ1ruOzToQWE3iD9SwtX84kX SlgzSuxk5Fh3Vijkhk1k30ts/oV3uxJjWFepfYGBJAjLOOMQvVqCOF8eKQNY 2VJ5DSc2MVbSl2ssWcrAR9WC6rYX2/53Ugn3ui7nYtkmdCWzQveldn4FdyyE K5HQOqZKIgWZdxJZuPL2/kguSvp2IgWlk7YiL+cqlJ6fcpWuGk5sZs1nO8UG vbap+5IHCkuWIvCtRgpFVX4yl+pNUU0QgroCU1TgUSlQVif1AAq79eoQYpcu JkTZvTfVWcf9SUGGKlnlkXR3AFQ0xBEs9z1BFX5kan7KVbpqOLGZVZrzHDRd 8kSl7z6wZCkCf004/5whZjLVZZ/Xo62+LmGehybZ/aLhpD2Y2zhxLzpztTWt rBZsaJ9H3BeoU5Oh58d7vMlduqFQr3Ou1U4K0uGZeeQZPCnt7gCocPhTWEFv c8VIz0+5SlcNJ/bToJ1Vy8g90WPJUoh0wTSP8JuJBSe5fVSjxbVYmt9TlcGs eIbYmn7O/Rs7P+vO9vWYs7epCbFBQxUk28naU2KODXsf55iGrJ8n1dp3/qXs vfSLJdc5SuLdAVDpMPHILYuxbMfV1PwUMRrK/xfLPbHJ8XkvIDeviCVLGVLG jzmnTXzFa2vhQqrznk6blesXJr7qGU5YVWf212N2I/6pITPVaJm+u76z6Oxi 9y1pScNuhLaaqkEVJhDzJ1ev1qszUUHWJNE/yNFvos6OzXz3PJ3aSm+J4xHP cLOIDTg4VqSbqqhfXVWkqFrOic2f5VvH/Ovy3wksWQqxu+DsMWW1yGHim6GP htuSAbfdRj9ASC2KdJNWytQz/tHMXKIRwI13+8w1lHloyh9J+iIyu+GbFlNy Jvc57gT+6r1xqcWYeNeOvUCdrD0ZW862J/sjUOYLP3N94p8PpsaqlugZlE5A NfY5Pg4EPvtwpJ0yDbmXkP2tJvbDrt6kH2fpfukFSc1P2RaCGk3sg+3Ae8kT stE89n+bRa7YWLIUgYmv3522NBoMNWbLe4lhnJ/1OEe7E4NWYx647lveRkQt BWb3UfBj57i1t+Xo5apv6bFOOD/+UtgH52gPs+idHrvY0URRTZ2vXXMFVqtg fpK1p5NW7+P41sOA5zf2kYHulsQ2r76le8DmcM+GtwT9EPe3wn/+cNzac/Rn 6lv7Rj/4fKXQzTpwHGHiEXowuaoXbKtdIumbqtKs6Xm0mdjM9l170qK2dE0p lixliG+EfTftI692NNUYqITN/Nj1W7570ZJN5gHIRxEtlQFgia/7xpLVvaZB elmdqZPSxMr2SNRiYqdVT8Y+5z+qXIULQLVCNivUZ9sLoGeYp/enzyeOhKYB V1iNOML286IaRmfl3RfVYGKn9xjKNWcBAFQaRL8G4ynHV7IUlgAkiH83M3Y2 kQhu/dncpuI6maTbPHXOEZIXVMs+sZn9JXd/Ih8OTSkA1QzZr0Fu3QqAFNw9 Bcpk+WAhpmxgjT8JfXr7z2GZcarME5uJRz8bS4iLEFIBqHK2g/Y2bu1BY0FQ CtyJVY3AWgRlndhMLDSduMGBkApA1UPUnoyDHtVknKA6iK/OTfabDLWt9rsa K3XKObFffEtfaMTNRwDAoaD2hMaCQBH21kN/uu1f1tb/rawTm1kPffLJ57j5 CAAgezlS511L6IsKjgmY2AAATWA2/zZlOWVs6h29dR/JK3BswMQGAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAACoZv4f53VwzA== "], {{0, 122}, {626, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{461.19999999999624`, Automatic}, ImageSizeRaw->{626, 122}, PlotRange->{{0, 626}, {0, 122}}]], "Input",ExpressionUUID->"78a93fad-63e5-4629-8d83-543939f1ad0a"]], \ "Subsubsection", CellChangeTimes->{{3.4409027728125*^9, 3.44090277759375*^9}, { 3.440902810171875*^9, 3.440902916953125*^9}, {3.44244004875*^9, 3.44244009975*^9}, {3.4429691378125*^9, 3.442969168609375*^9}, { 3.443708024953125*^9, 3.44370804159375*^9}, {3.536754825460047*^9, 3.5367550087245293`*^9}, {3.5451486439623666`*^9, 3.5451486519678245`*^9}, {3.548688769506838*^9, 3.5486888065069537`*^9}, { 3.548688855820774*^9, 3.5486888860005007`*^9}, {3.5507857157431355`*^9, 3.55078577649561*^9}, {3.5507950978337603`*^9, 3.550795109476426*^9}, 3.559436218390247*^9, {3.5594988398383384`*^9, 3.5594988412624197`*^9}, { 3.656720940415642*^9, 3.6567209412857*^9}, {3.6750032306542063`*^9, 3.675003231207218*^9}, {3.711717036931768*^9, 3.711717043384137*^9}, { 3.7117170774990883`*^9, 3.7117170802582464`*^9}, {3.711717111392027*^9, 3.7117171461800165`*^9}, {3.7117174710806*^9, 3.711717471329614*^9}, { 3.711854506059084*^9, 3.7118545120154247`*^9}, {3.711903325602353*^9, 3.711903326224389*^9}, {3.71209560910502*^9, 3.71209560910602*^9}, { 3.737289925753502*^9, 3.73728992712158*^9}, {3.737807642399249*^9, 3.737807643374305*^9}, {3.7385814169802113`*^9, 3.738581418650307*^9}, { 3.7390216220854435`*^9, 3.7390216234545217`*^9}},ExpressionUUID->"19234059-780f-48ff-9a61-\ e83dce3908cf"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Da", "[", "a", "]"}], "[", RowBox[{ RowBox[{"Afield", "[", "mu", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "=", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]stdown", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"a", ",", "b"}], "]"}], "]"}], " ", RowBox[{ RowBox[{"\[Lambda]", "[", "b", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"b", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.4409029566875*^9, 3.4409030128125*^9}, { 3.440903077125*^9, 3.440903094765625*^9}, {3.440903156609375*^9, 3.4409031876875*^9}, {3.4409974896316195`*^9, 3.4409974934284945`*^9}, { 3.4410603871875*^9, 3.441060394875*^9}, {3.441060997*^9, 3.441061003453125*^9}, {3.442440106640625*^9, 3.442440142109375*^9}, { 3.442456105734375*^9, 3.442456108171875*^9}, {3.44245843034375*^9, 3.4424584311875*^9}, {3.4425045583125*^9, 3.442504558453125*^9}, { 3.44250978125*^9, 3.442509781921875*^9}, {3.442511222109375*^9, 3.4425112223125*^9}, {3.442671207703125*^9, 3.442671226921875*^9}, { 3.442716458734375*^9, 3.442716501453125*^9}, {3.4427167659375*^9, 3.4427167681875*^9}, {3.4427168285*^9, 3.442716831703125*^9}, 3.442963727140625*^9, {3.44296778709375*^9, 3.442967801515625*^9}, 3.44296786928125*^9, 3.44296791190625*^9, {3.44337453471875*^9, 3.443374535359375*^9}, 3.443397844734375*^9, {3.443708071921875*^9, 3.44370808871875*^9}, {3.506778268335153*^9, 3.5067782693842134`*^9}, { 3.5067791460963583`*^9, 3.506779148675506*^9}, {3.5206470793953767`*^9, 3.520647081443494*^9}, {3.5367550519530015`*^9, 3.536755388956277*^9}, { 3.5367556803421416`*^9, 3.536755681403202*^9}, {3.5367561000631485`*^9, 3.5367561435796375`*^9}, {3.5367565949394536`*^9, 3.5367565968755646`*^9}, {3.5451486580581727`*^9, 3.545148738990802*^9}, { 3.5451488141070986`*^9, 3.545148888144333*^9}, {3.5486889386755133`*^9, 3.5486889809849334`*^9}, {3.5507951332147837`*^9, 3.5507951401591806`*^9}, {3.5517190796328115`*^9, 3.5517190822599616`*^9}, {3.5517253676208563`*^9, 3.5517253699409885`*^9}, {3.552315908057837*^9, 3.5523159098339386`*^9}, { 3.5594367136555743`*^9, 3.5594368087460136`*^9}, {3.5594988442295895`*^9, 3.559498845916686*^9}, {3.656720957837866*^9, 3.6567209581638837`*^9}, { 3.675003233844677*^9, 3.6750032345775423`*^9}, {3.7117171399576607`*^9, 3.71171716127888*^9}, {3.7117174931208606`*^9, 3.7117174939219065`*^9}, { 3.711854517913762*^9, 3.7118545309225063`*^9}, {3.711903330225618*^9, 3.711903330575638*^9}, 3.7120956100350733`*^9, {3.73716040537171*^9, 3.7371604164821353`*^9}, {3.7371604653306093`*^9, 3.7371604863951163`*^9}, {3.7371658278287888`*^9, 3.737165828234808*^9}, { 3.7372898882003536`*^9, 3.7372899191761255`*^9}, {3.737807817687275*^9, 3.737807911420636*^9}, 3.7379793842276382`*^9, {3.738581430790002*^9, 3.738581448455012*^9}, {3.739021654340288*^9, 3.73902170263605*^9}, { 3.7390218342255774`*^9, 3.7390218541807184`*^9}}, CellLabel->"In[33]:=",ExpressionUUID->"93928d44-3a0d-434d-bd9e-2af8f6764f49"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"DColor", "[", RowBox[{ RowBox[{ RowBox[{"Afield", "[", "mu", "]"}], "'"}], "[", "t", "]"}], "]"}], " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Da", "[", "Color", "]"}], "[", RowBox[{ RowBox[{"Afield", "[", "mu", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "AdinkraReduce"}], ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"Color", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.7111642994797387`*^9, 3.7111643860246887`*^9}, { 3.71116538155863*^9, 3.7111653936173196`*^9}, {3.7111655855452976`*^9, 3.71116558768242*^9}, {3.7371605140705004`*^9, 3.7371605490270386`*^9}, { 3.7371658349857893`*^9, 3.737165835407566*^9}, {3.7385814564004664`*^9, 3.7385815082584324`*^9}, {3.739021898283241*^9, 3.739021972361478*^9}, { 3.739022298753146*^9, 3.739022300937271*^9}}, CellLabel->"In[34]:=",ExpressionUUID->"18e5fb7a-bf0f-401a-af2b-1144ac67e982"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"PrintDColor", "[", RowBox[{ RowBox[{"Afield", "'"}], "[", "t", "]"}], "]"}], "=", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"DColor", "[", RowBox[{ RowBox[{ RowBox[{"Afield", "[", "mu", "]"}], "'"}], "[", "t", "]"}], "]"}], "[", RowBox[{"[", "Color", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"Color", ",", "1", ",", "4"}], "}"}]}], "]"}], "/.", "fields"}], "//", "MatrixForm"}]}]], "Input", CellChangeTimes->{{3.7111645574354925`*^9, 3.7111645699712095`*^9}, { 3.7111646601143656`*^9, 3.7111646956723995`*^9}, {3.711165016059725*^9, 3.71116508975994*^9}, {3.7111651864034677`*^9, 3.7111652049845304`*^9}, { 3.7111652473169518`*^9, 3.711165256065452*^9}, {3.7113907769458895`*^9, 3.7113907848403406`*^9}, {3.7113908785507*^9, 3.711390886163136*^9}, 3.711390944771488*^9, {3.7385815260034475`*^9, 3.738581556662201*^9}, { 3.7390220087635603`*^9, 3.7390220181540976`*^9}}, CellLabel->"In[35]:=",ExpressionUUID->"29fb3804-04f7-4ee4-b220-858a18c37c46"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", SubscriptBox[ OverscriptBox["\[Lambda]", "."], "2"]}], SubscriptBox[ OverscriptBox["\[Lambda]", "."], "1"], SubscriptBox[ OverscriptBox["\[Lambda]", "."], "4"], RowBox[{"-", SubscriptBox[ OverscriptBox["\[Lambda]", "."], "3"]}]}, { SubscriptBox[ OverscriptBox["\[Lambda]", "."], "2"], SubscriptBox[ OverscriptBox["\[Lambda]", "."], "1"], SubscriptBox[ OverscriptBox["\[Lambda]", "."], "4"], SubscriptBox[ OverscriptBox["\[Lambda]", "."], "3"]}, { RowBox[{"-", SubscriptBox[ OverscriptBox["\[Lambda]", "."], "4"]}], SubscriptBox[ OverscriptBox["\[Lambda]", "."], "3"], SubscriptBox[ OverscriptBox["\[Lambda]", "."], "2"], RowBox[{"-", SubscriptBox[ OverscriptBox["\[Lambda]", "."], "1"]}]}, { SubscriptBox[ OverscriptBox["\[Lambda]", "."], "1"], RowBox[{"-", SubscriptBox[ OverscriptBox["\[Lambda]", "."], "2"]}], SubscriptBox[ OverscriptBox["\[Lambda]", "."], "3"], RowBox[{"-", SubscriptBox[ OverscriptBox["\[Lambda]", "."], "4"]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.7391972330508375`*^9, 3.739198011305351*^9, 3.760811682931588*^9, 3.760962392599388*^9, 3.760964994437071*^9, 3.7609792652894435`*^9, 3.7609807167015243`*^9, 3.760988611397992*^9, 3.765632140166708*^9, { 3.7657367747668023`*^9, 3.765736789409087*^9}, 3.766162748129897*^9}, CellLabel-> "Out[35]//MatrixForm=",ExpressionUUID->"740adf0f-5018-4c64-8eab-\ 477968f53625"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PrintDColor", "[", RowBox[{ RowBox[{"Afield", "'"}], "[", "t", "]"}], "]"}]], "Input", CellChangeTimes->{{3.739101561591911*^9, 3.739101565875156*^9}}, CellLabel->"In[36]:=",ExpressionUUID->"93db53f6-10cd-4db2-9f98-1417bc96e346"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", SubscriptBox[ OverscriptBox["\[Lambda]", "."], "2"]}], SubscriptBox[ OverscriptBox["\[Lambda]", "."], "1"], SubscriptBox[ OverscriptBox["\[Lambda]", "."], "4"], RowBox[{"-", SubscriptBox[ OverscriptBox["\[Lambda]", "."], "3"]}]}, { SubscriptBox[ OverscriptBox["\[Lambda]", "."], "2"], SubscriptBox[ OverscriptBox["\[Lambda]", "."], "1"], SubscriptBox[ OverscriptBox["\[Lambda]", "."], "4"], SubscriptBox[ OverscriptBox["\[Lambda]", "."], "3"]}, { RowBox[{"-", SubscriptBox[ OverscriptBox["\[Lambda]", "."], "4"]}], SubscriptBox[ OverscriptBox["\[Lambda]", "."], "3"], SubscriptBox[ OverscriptBox["\[Lambda]", "."], "2"], RowBox[{"-", SubscriptBox[ OverscriptBox["\[Lambda]", "."], "1"]}]}, { SubscriptBox[ OverscriptBox["\[Lambda]", "."], "1"], RowBox[{"-", SubscriptBox[ OverscriptBox["\[Lambda]", "."], "2"]}], SubscriptBox[ OverscriptBox["\[Lambda]", "."], "3"], RowBox[{"-", SubscriptBox[ OverscriptBox["\[Lambda]", "."], "4"]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.7391972330668383`*^9, 3.7391980113183517`*^9, 3.760811682945826*^9, 3.760962392611322*^9, 3.760964994440275*^9, 3.7609792653012123`*^9, 3.7609807167065725`*^9, 3.7609886114299097`*^9, 3.765632140182324*^9, { 3.765736774805232*^9, 3.76573678941906*^9}, 3.7661627481418653`*^9}, CellLabel-> "Out[36]//MatrixForm=",ExpressionUUID->"1923bc02-d703-4ab0-92bd-\ 56ca68f819fe"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnV1MG2e6x61zbs7FXBxfcoHEUWSJi0goQkgHhM7BF1SJLEGUyEIBZJko OQY1WSA9AVLFELXQKnW0XVC3ELWjba1k6+zWShX3JG4bb4qzgrS4G0eJlXWa UJmCG5wAQQZBbBiO58sGe8ae8XzD85N21TbBnhmeed7/+z5f/3G888j//ItO p3vr31L/d6St13jmTNu5o/+e+hfz797qsP3u5IlDv/vfk7aTZ/7z+L+m/uN/ p/7XkvoH/J+3AABgJRl/8dtvS2sY9W8Bx77US6Pb5wgklb0uAAAAAAAAQBFA EAIAAAAAAOxxQBACAAAAAADscUAQAgAAAAAA7HFAEAIAAAAAAOxxQBACAAAA AADscUAQAgAAAAAA7HFAEAIAAAAAAOxxQBACAAAAAADscSQQhFj8Z+/In+4u brB9VwaLOyrSlwJSwem3trF4908j3p/jmBJXKDasBgwAgGLsKicDAGpEbEGI xR+gbS39t39l+DTiu/SmzosOGmdgSYwvBSRkY9r7YfoX9ralUs8s45O/3u5v aUMfaN1d5zNgAAAUpDgnE3VbdLxA9tWZbT0O1HPv2VJCqnthAove6jNWVJpO 9Diu+MIL4IIAuRFVEOKLqfVgm+sJ81tEfJfSselE6p2r0h8eDi5n/wk2H7j6 0YgnvKbEZYkJ9jJw5WKPzWppNVUiulK7f4Xh7/w2PmAyNI4FV3n51hm3ZR/r uW7iiavtoFXLmrCAAfP4oNXoA59r+JzNXEe8XobUCtM7fG08NL+m7oeDLU44 GqoOO59sKn0lewJt2omSRlKEk1mLhgIEk9/+2X5YT8s+vdlxc3IqkMOU/9a1 TwdtRgOhDWusf7gVllMWYivPrp3Gvxupbf/iseYXI0BbiCgIkxFPV21V33cx tldVDYIQ+9nZWKrT1TsC2YJwIzRam3oQb6Bhza+F6y/C9wNTXw0aS3S60kbn z7m/kM0w+kbqZiscgXXxBGHq6ca+66uq7fJENLm3LWjAnMCSsSln15GGnjHP 5ONfyaHh2NriL/e/QXtN+/abeq8GYusiXbHoLAeHDyM6XdngpGovcbegXTtR 2EgEOZkVv72U1IP7LO6ZvF+zGg1c628ox6VZ1Sl06rl8Pi0ZdjYRqzLSjIZX ZftaQKskZ8eHT1TpxdhBiCYI4/9ELfqqd/15Mq/UIAgXvJ2pLWLJOd9yluxb n3a2pN7ACseUOr0wbzYfo2+kBOHB4WDuAeFKaPRI6mb3D07wdDcFBCGe5+N/ t0pvQf8Z53u9SsPBgAuDJaPf9jd2jDEvH5trkVv9xlLE+O7tqAqtDEuE0UYE kntlQLt2ogYjEeBkMhnRhQQhARZ/4rEfwm8XOSRjGklizt1BnGQW4aKBvcbr iOs4+UbqDgwHBWa+iyMIsbVHlxuQ6m7vXL7DFeUFIbbiH0htEBGrO5p9oc+9 nRU6XWWP74UiVyY6WNRtRRil79bW6o+Oan1R28+CghCPvPt6a5CGy4/UHPTK hpsBFyTxxHXi1NjDV+wfQn6RTo3PJ/nUZS2nwmm74ZxcxWjXTlRiJEU7GZ6C kPiRiKermlBnpqGJF/L8MrB5TzsZ297/3iS/rB5gr7H+zNlKCMIDIiQ7iSII E2HnMQPSiIYTeU1XeUG4HHDUp0TSG+jjbE9GhhKQdndUk9HOHDaXfedKmKUv uf1EyntvL/D2NBwEIXWGYDjmDMuakC0EjgZc6FNSD7bUPPSlP7yUzPM5rwKO gzpdWSMaUtPzSc57e+mVHrpQSYp27UQ9RlKskylCEOI5k3eHjESkufysZ06W M1ts1tO+n7jOusFJqLwE8pKcD37j+SYwK8LeUQRBuLHgO1+uq+n1zRe4HMUF IRVF3d0JhCSs0hdb/L6/Sq8zdLojRaQbcBGE1P5dV37et6CJzi2cDTg/lHXh qZmd3ufsfw97HRypwRcXFT0f3Cpqjo99craMqrM87Ymp5dp2G5q1E3UZSXFO pihBSLsI/J7Lu28JcxMcSc57OiFqDMiNcEGYCKGNZbrqS4GCJ9tKC0L2KOpu TSDMkb5Y1NdXl9p19vlyDg45wU0QbmGrgUvV6jrcYIe7Aecn5rFRmRyFNvVU Zvv+ds+sOqJBy8HhY42jD+LB4QPU6U+ba0YDvzpNolU7UZuRFOVkihSEKS/x cLSelPEHHYFXvC+WP9iCt6sEosaAvAgVhORbWVI/+rDwW6mwIGSPomIRt9Ww +xMIsVeP0JMG3QEBnWE4CsKtrdf3h2v0WnBlfAy4wCfN+gYO79t3sPPyvQKZ RlSpu66kx5fT/Eh+iOhbzcXJ5Y1tHdvqHAHNlQVpBE3aiSqNpAgnU7Qg3FoL o2byJ/VtbmGpxhx54euphKgxIDFYMv4ySjL90O88U0VaedUZ58TjGeoPXsbz Jbds56XfXqvTmVEu3fsUFoTsCYTLvp6SbQmE8cBn10KvFbhCsWCSvtirkOts nb623SmkTyBnQbi1Ghpt1ILG5mPAokE8xhS1oyHFg4F4mcAhKlxOvgg46v/F 7QVUYycqNRL+TqZ4QUinFeFR3FbnMxlCSZQbh6gxICXJqNtGNGM/amHgaN0+ RKezca2tIJ1DzUjwNQeRoawgpKKouX5gY9n/zv5MAmHqNbzQ6ppW+cFWXnKk b3JuYqTNYGhxjM8Ke/jcBSG2HnBUqOJwIy+8DFg06IWesQZcVpLz3r6ajhvU xkHAcglIgErsRLVGwt/JCLn4TA9D5uau4pPW3hoItQAAtYVhnoWRi6KCkIqi Zr/LREMwooKM7rP60j9gd89pOYFqRwJhYil809FUXdflFKPPLXdBSPvP0gH/ impdGU8DFu1r02UFnHde0kCUCZxwPqWPH7BfXE1kxQAivKMVIBR12ImqjYSv kxEiCOkIPn7nNk+siKvlDUSNAQ1BnkSV2zxznP66koIwffyuQ+ovjs8T0gjv Rf9FX9v73913dxmQki7vArYRf4h2XPh+UbUShgtk1rq+7eOb18d6mhvaL7lF KUjH4SMIqcxMhppu1cDTgDmCrb0IT3pQBz49MIX1pO3028PXJmfW6EOezFGD soKQKhPYFiyf89iotiLQeEZytGEn6jYSvk5G0PEmfWCLHx8MTfKb8VQcEDUG GMGSsYBr6Gy7rcVsttnRiSjXHD9JL4rcMTWOhriZqkBBiOu3r0b7Oy2mSmRf XVPnhdHr92P5nkPKlZ2jc8PIpb+04Q9f3hjpsxiNptaUB+4a/PzOdDy1x92I h/7ab2k0HW2y9P0lFFfB0YiAm90IDh9AKk0nzw1f8QYiy6J6bD6CcGslOHxQ vvBKEfA14MIkFh/dcFhr9HXdn34TnInTzz65HJnCtx7k4Als2tlIhZ4UPD7d ViaQIR5w1FFLHgwrkRCt2In6jYSnkxEkCLfduGwSHaLGQDbYWvhqR/sf/TMp p4AlQmP1ulLj0F3lT7FIW9W/5eXYCap4QZjSwz+g7bWILgvEYP3sEYt+w+bc J07Q5WBU8EXEpV86BN+shPAShBsxz2lEzWmEfA04P8m5idGOKqTUaPc8Y/g1 YcnorXNvXn2a2CTH5eAoWCyAlwkczJnMkiml1DU6NZ1Hq140ZCcaMBKeTkY0 Qcg4ElQKIGoM7ABbvudofj8zYpWs+lfBTI3NMPoGr7BBkYIwk+ZHyKJKU6ul 1VRJ6yW2TqGvAo6OdMMoKoFQ1flsJCLcrJTwEoS091Vru2/eBswOFn/gxDV8 qbH/W/bT+8Sc2z7gnyFKI3H0nd4Fod9cHPjIiQrrtUj2pZIVZ+SCqXg4cBei KTvRhpHwczKiCULZWu5kkp3Uu7PeWo/ceKsq5whDGCVVb34VUeXCoSirYbSz b9sMBbr4XekeUPRcYF2Ta4ajyCpKEGLxwEhDmQ6psTrcU9MLdC4cloxHptwO a1UJY6fQnSdm1Dul3PrLFTFuVlL4CUJsxtWkky3fhi/8DZgNetqpvulP/8yb rInNe07bR0ao1HSmDkiygJcJVLcyTbLG1ieHyigVItLBKZBGU3aiFSPh52S0 Jwi3tha85MySAsXmmxHfR47BnnaLpdVcV211R2T0uRvx8M0xh7j8fuzrxwI6 pO1Slsfth7b3xKCP65U/IaT3idzTSIoQhNjClKNRb3zbHWYcBE+dp+V0Cn0V cJzYdsC+4LdXqzqZjUScm5UUfoKQ7mErbr7N+ozvk5Tjs1ksFnOdgWFYM0f4 GzAj2FJwxIxvjpFmptVzJ5uP0aaaStK962oHJ+UYeZDDcnC46Y3hnxivdSMz h0LhCujdhsbsRDtGwsvJiCYIW5zT8ky1Wp/znKXnR+ftuIjFZx4EAn9Hbfh5 oppL+YCiSc57zhzavj2kGxEgx1x8NwB8Tmt3wPJ55Lg3PgKPtyAkUpqrz3uj eV49LPH0yrGS465IppM0tuDtPoqGE/QD2ng4WqtXfQKhSDcrLTwF4frkIH6U IO6Iq434zMNA4A5qqxA2bZC/ATOArT263EAs8+W9txcK/xK2FSoq01yONLN3 MykoWahnDsWuQlt2oikj4eVkBAnCdDqfbEej69Hb7xr3d3/2ySmuUWNx86IB dZGyQNu2GQpkRQluzMf4d04WWxBS2yUJBSE+vtzc6ys4S3wlNHps2+nfahjt 6Pb+lvmpzV/cx+uM3e5nMqmmohDrZqWFpyCk3K8UqwbpnCs6vc+L/QT+BpwL FnG3kdt3binf21qZ6ds9BX/Z4sNcJrCNzByKartf5RkW2kFbdqItI+HlZMRq OyNHXjShBvWNjqkFLP3AC+0OqIwy5Yt9dgNYbOJybzvT/I5isHY6boQFroOb a6+WtyWbxIPDJsJHdHrmlT6ol0EQpt6CQ2MhDioOi7ia2+jQ4eqPjiMfBjRX oa+Nm1WNIKROfYUEboQLQnIOMgHHeiXqNCPF/nbPrOw2ipcJlFf1uiamAmzc c3aWFr1iyor63DXrlWrKTrRmJLIJwszPytAVMBkbHzIiB9pcT4hzz/ThZP45 fYkZV5sqGobvCjYjN84YDXwOz/KBVFo/DiyKeX2rE4P78agD0UJZzA+mwH69 1X20y8txtZfhhHDt1StuDZU3H6MmO7F12ljwvn0UDWlv0Ig2blYtgpDKJBfk +IQLwqXJwTryZedYAEjVNeM/cFb+mA5eJlCl5+zA9LWjD9W8rKjdXWfQkp1o z0jkEoSZtpCSd4DZiD/6zGooMw7cie2siyxkQqRuVHzGNCADm8v+C0TUodbu fynB5xMbQx6vifSCkAevJgdP4bF1bNrV0q3twXOFUfBmVSIIKfcorA+DYEFI nVKmMHCr6UtG3e1EbwZF5g4QZQKOe8sFLlRNcyh2B1qyEw0aiUyCMDnvoYp9 JR59TqpBRN/0ycPtbSq5RI3XpxwViIwFL4CC0IfG0nQsx+ZvdZcjfF4TGYpK uJNyoX12/0IidPmIfXy3l1cpeLPFCULRHRQ1d0ZY2bjgopJMaj23eiVs1tO+ n1jnOdSZikyhMoEMqppDsSvQjJ1o00h4OZmiBWEmC7S8TcKOLpQa1JWf9cxl 3U7hqDF1sKxAG3NoOyM32LynHd+f6KsdP4rvI7CYv9/I8zWRpe0MVzaXfReO ux/I1Z9ZWRS8WTW0nRFr7ozQtjOZ5hvc6kCxOXcb/gpzrDMVFbxM4BCHkqWt tE7GEd6hEdCQnWjUSORoO5PJAkUaLj/Kn9qTXAj7Ph883WJuarVYOvqvTMWS 6y9CE3dDsULXhyXnPF3liA4hCkmy/7Rg1Jg6WC7p+fb5zF3nYJfV0tpkbul0 XA/GpD4whMbUMpOYc3cQ59Wm4WDmYBxbW1kRYajxxqL//eah994q4/Wa0H19 VSEIU589bPvk0509G3ctyt1sUYKwQCI9llxKedD3TjeZmywWi+2dK4HnyWQs dHci9ILZj1FzZ0rO3X7+y13ne51WiyX1s52/dwd5lVrxN+CdZNYWTiWHK6HR I/hf1ttckbWcP01Eb/VV6Q8PB3M8PTYfuPrRiCec+zPcr3Te21fLPOMmF2oW GLFmMr2r2MvAlYs9Nis5QafU7meY4IX9Nj5gMjSOBTVX2yUBItiJHM9cVCPJ IKlhE3ByMjTFCcJE2HmMyFZFzCPBJfavwZLRuyOWSkOT41Z4AX8qyZdBtLPt /NmjSMGDu/SMqnQhSQ4FosbkEaK+0my19TrvRQk7SM54e+sQ49B4QTUKaAhs 2nVsX45LWQ2NdgjPzsJH47Vcmly4R7wpPF4TuUbXcf9sxUY/yIxyNyv66Lr1 6MQfLYYDTY6b4aUE7hUXf0KP286/nfKgbPnq9E658ojVZnfemyX26+tR7/kq 5NDAOI8OPEJH16VDgRweCJ2SUdYw+oBhBaTajDC0k6X6SAhoc4GXCdR3uxlU KDOZNZN53Vl/Eb4fmPpq0FjCFrWnHmyFI6DGCTWyI4KdSP7MxTaS9OdKaNg7 rkS60XXEvABC/bJLNfIvxu4MGEuz1VcihDbiRy15E57TarB0WyFJLnmjxlSq avZURMIwpAksAgqBRVzHiPLiN7KaVFPVpkI+OmXtbw74Yxj1pvDZN5EjdZDT nhi3lAXJBaEZFbzdLAZsbWl2ZiYWl20PptzN8hKEGwvet/T5PCHZWiHLBxKJ TAiL08NZJWe8IsZ3b29v4k3Gkasv8WjCw9eAs0gXCxR8IHRKhv7YlaeMnYXI K2FYW8nYnID+2/gL3tzsDHMvPdpWTckehqOi9geHg7mHVeQZlyKFM6pELDuR 7plLZCRbUho2RUEnsxO+gjA5O+5oIQ4HD1jRB/lS2hJPXG0HdLqanJg7qeLy 1RNhi3eHiPn12YUk2eSLGlO/kf3v+Jd3fgK5H4FONLuHdNHZdg2AvQ5+dFSo 7MfWHn3SNvD9IpZ+U/gIQr6pXBIKQmK8phzNQnO/+cXEkInL/lHEr1TsZvkJ QlK5sZV+YIlnrjY8ffq8L6uxBhkZYRvOSJ05/Fe//+XOjyXbxjIulywIzUVc DaPNSOFwFXF6mfprVWxjaKjgNcIwhu+5t7NCQB8JordtBc8ytEwRBOvDTEft GTakqz86qvVKFM6oFnHsRLJnLpWRSGnYafI7mRxW/HaOHRSx1Wjgy6GmCvzv Glocvl/yZg7SOV31Ob1kqe0A6/4diz9ArUSSKUMhSQ5067kcM2AVxrR0V8GQ QUAc6JKu7UkI2Lyvr1Ooy117MNps95KJV0UIQqrYs9zmmeP016WtMn5TmXhx zGNLJ9OWX/DLMWRKuZvlJwjJ3hQsUzWpqr2S+tGHWSq6QCyJ7cyBEopSGnAO dNO23GOBNHTZoOEk+ohxRHX6MphyAMj1q7jB5dhKxPuOEeGd9k8JDxy2ORTU SQXTQk+ujEoUzqgYMexEmmcuoZFsSWXYO8jrZEjWoiGyn/bkt3+2H073WNSb HTcnGZpvT/lvXUMdZ81EkQRSY+VSlJF4OFpfwninVCifpVNNRg0yF5Lkku5p eaBrx4CqBb+9mukckj5UhGF2uwf6hDCzEG8s+i+2MSYj8SC1bz19Jj2fqBhB SBkbc5JzLhIKwtTrYFZiBHzK543by9OKUJ7JnsrdLC9BSPp85hSj9BDG3I3z Whg1p/xXzfD91zk/lu/Mgcq45jXMjqcBM7CxPPVhPZITv6YudvnZ10MN+xDE OOB5xt7ajTqoFCfPCluLPQn+6L91dbirgZ6zVWMb/b/JwJMX+QrQEkvTD1KL 4eTtP39graENGjFYLt3w/5BaJYPTi9teW9aFnlI+hk7u2Wh7A+F2IuYzl8VI RDZsZvI5GZrMYSZHkH11ZluPA3XfeRDldGxKNxLfUfJJ3ihZfcPiYdafOVuJ x1jZ7p7mtixm6p31be7McEHWc0h6upkyESVAEqgcA/I4GluZ8f+x/c1rwibz YomnV4+fupFZVYsRhHQzHI6NOqUThPhBeqtC3TjXo75LTZUlSFXHyAenTsgw yEnJm+UhCEmfz5LbQ6o+Rssht/xsxw5khCh3WcReB0dqmBVmPvgZMDPrsSm0 vapEZ2ge/OK7QDgSTTH98K7n8nlzFYLU2j72TefLC8oTCiwiz4qKHDGtcq3O Z+wfk85zQypNrRaLpdVct2MICHIQDadvgm2hx6K+vrrUtqjPl3OIBQi0EzGf uSxGIrJhs1xRPicjG/TzZLjT/CPXNxYnPjAiFcfGfirUCXwb2GJwzEo8920j KshAVdnQZFZJEWU2DIEYQMtgyegEareZzS229rNDrkBMYLeZ5FNXR9+OHWVR gpDuocptFZZKEGLrAUcFtx5fkoJ3g5FcECp7s9wFISn52KbqkBlETJ6cPOhj DXCQcrE254CUVpi5OTz54WXAeT5mbTbwNTrYaTFVltAnDO+Nur4PvSg4jpA9 FIhF3LjjV90gKuaFHnv1CD1pKJh7v7cp2k40+MxlMOz8TkY26I6mjc7prDvN Gh2yGkRH7koyH5E8Bc2O+9OBGH3Hbp/eBQhhLeLuPZ5VU1acIKQG6nFrgSKV ICROjXJfRrnBVvyX3pZ87Vb2ZjkLQnJnyjpVhywAyU0FJ+RuxrViq8GrI/5Y zg+2uWZ2+jcqh6eIIQJ8DFgS2POssopr4oHProWYwugyw7TQY69CrrN1+tp2 pwqVyS5Ai89cesMu4GTkg+o9nu0YaT1G9QLC60CbJBr9TIbOsy6AKlqXrdoR 0CRY9Map41ez2xoUKQi3tl7fH67Rcwq6SSQI8WqCMuHRB8GsTzvtwmZncEDh m+UoCMkAblkjGmJxRCvB4YNMxkZ1z6BvMB4c7t75SMnc6ayKuY1F/7tVOsTQ 5iomj4K7AUsBFdPJfRQby/539meSf/DxNK0upTc9ODkLfXJuYqTNYGhxjM9C HaM0aPCZS27YBZ2MjJBV3jvy9NKtBdM6LR4cOSdZ6f1Lv712ZxdKMm01uy0h AOwAm/OeOc1glkULQqrGLU8B3Y6vEF0QEsEUXqUE0oDNek5/wKlbvpAvUfhm uQlCbN7XW6Mz9HhZ2+OTqdFZpwdE+wtkmxG+vj9y8rPwDo1HHujtyKTCO6vX lzKn63OCswFLAF2tmXVYmllNygYnibt66R+wqyLusyOZLbEUvuloqq7rcgYk H4+1h9HgM5fcsAs7GTkhW6rW9Xpn8KvBVqP3Pu+2Drj/4f0gJRTxeAeWjFzv PuORLLk29fnudkNN1/WnePIBXmjwEdHw/w6oQYCdjQXfO82M5cnFC0KqGbve ei2S3/YkEYREMAU57oooHEzD5twn+6TObVb8ZrkIQiz57EoTUmjnjk/aOoTQ Ldewtdl7zj5r35f/uH2xmlpE1iJu+xlPTjOM5LS7vaq863pkLaUlN9dmvidm RX04XqQaJOBowOKT6TSL1F8cnyduAW+A9kVf2/vf3Xd3GZCSLu8CthF/iHZc IPqFKg6Zvq5v+/jm9bGe5ob2S+7AbMFESUAQ2nvmUhs2NycjK+ux4HVH+xGT GR9hbEfvECVCG/Hw1452U52p2drz6YQQH1WYjfj0HfR8q6nhWJO55fTg598U np4M7Gmwxe8H2j5hns0tRBDiuV4j9UihMxZJBCERTFG+pn41jPY6AlK3glH8 ZjkIQmLnjtSPFJ6pmpwPui+1NzSY8RHGA+jfnuKpUNirsOf37fVGU+uJnrG/ M25vsfjTv6Hnm0yHW5vMTaff+/ybR3l7ZXCBmwGLDxkKLG34w5c3RvosRiNe vGntGvycXk1Cf+23NJqONln6/hLKW6osG3i6FFJpOnlu+Io3EFmGFUcGNPjM JTZs7k4GAABG8BTT5i73wygjv3rtZfhBvhkN0P/pZZz7OostBUfM+voPp5bZ 324pBCEeTClj6VknG1gycu34iW1doSRC+ZstKAiJdL4CI+BVCRcDFh2ho1IA QJVIa9iadTIAoB4yYxw5wnPYDT7MscY4dJf1/F8KQYjPrchtByovayFnR6/r mfRruvI3W0AQEj1yq7Ra1FbQgMWGyrMqMNEMADSGpIatbScDAFqAVovFhYwp sNidAWNdlyfCLPmkEISLvn6hPboFkpi7PnTh9q9yxHGUv9m8ghDP7quVU1CJ TgEDFhkqz0rf6WUb/QUAGkRKw9a+kwEA9SOKIKSKyOoP9zMKJOI79KbOiw4a Z2BJwJcBcrAx7f0w/Qt721KpZxaEeJHI4XrNtzjIa8AiQ7bQyW3GCACaRjLD 3iVOBgDUjkiCcAtfUmM/oKccf8sdpZEbs+Y4FRdQEE6/tc3luyNn0B+EDtBR BewGLC7UIDBIIAR2F1IZ9m5yMgCgasQThAAAcGDzF/fxOmO3W9EcAAAQGzBs ANAkyfiL34gZ64FrPXVk1yiDdXScHLz+25K6W10BAAAAAAAAwiEnwxrq8F6a 22g1VSI6KaYOAwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAASMH/Az4JwJg= "], {{0, 63}, {859, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSizeRaw->{859, 63}, PlotRange->{{0, 859}, {0, 63}}]], "Input",ExpressionUUID->"fc77e7e3-f1f9-46bd-8acf-91a4c2a2472e"]], \ "Subsubsection", CellChangeTimes->{{3.545153640670162*^9, 3.5451536529068623`*^9}, { 3.5486895262641215`*^9, 3.548689579787183*^9}, {3.550787285060895*^9, 3.5507873176877613`*^9}, {3.5507873622593107`*^9, 3.5507874498733215`*^9}, {3.5507931273800564`*^9, 3.550793293902581*^9}, { 3.550795942883094*^9, 3.5507959452142277`*^9}, 3.5594362885952625`*^9, { 3.5594895181381674`*^9, 3.5594895246605406`*^9}, 3.5594992621854954`*^9, { 3.709575503291005*^9, 3.7095755131905713`*^9}, {3.7117177558758893`*^9, 3.711717777030099*^9}, {3.711855630387392*^9, 3.7118556482494135`*^9}, 3.7378073736118755`*^9, {3.738582763085204*^9, 3.7385827644852843`*^9}, { 3.739023297598277*^9, 3.739023297598277*^9}, {3.7608116744480047`*^9, 3.7608116766202297`*^9}},ExpressionUUID->"6ed7cae2-1661-4972-824b-\ 166c0ca545e2"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Da", "[", "a", "]"}], "[", RowBox[{ RowBox[{"\[Lambda]", "[", "b", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"-", "I"}], " ", FractionBox["1", "4"], " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"CommuteGammadown", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"[", RowBox[{"a", ",", "b"}], "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"Afield", "[", "nu", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}], "-", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"Afield", "[", "mu", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "nu", "]"}]}], "]"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"a", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"b", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.5451536546269608`*^9, 3.5451537497243996`*^9}, { 3.5451538022984066`*^9, 3.545153820336438*^9}, {3.548689591473851*^9, 3.548689610138919*^9}, {3.5507933017860317`*^9, 3.5507934241220293`*^9}, { 3.5507934811092887`*^9, 3.550793483604431*^9}, {3.550795897754513*^9, 3.550795909852205*^9}, 3.5507959494314685`*^9, {3.5517192411368465`*^9, 3.551719243512982*^9}, {3.551725419411818*^9, 3.5517254247731247`*^9}, { 3.55231622648205*^9, 3.552316228213149*^9}, {3.5594393588258696`*^9, 3.559439512198642*^9}, {3.5594895272826905`*^9, 3.5594895375052752`*^9}, { 3.5594992681308355`*^9, 3.55949931174533*^9}, {3.7117177795272417`*^9, 3.7117178027735715`*^9}, {3.711855674636923*^9, 3.7118556941570396`*^9}, { 3.7119036518000107`*^9, 3.7119036813607016`*^9}, {3.712095469670045*^9, 3.7120954747613363`*^9}, {3.7120956766308823`*^9, 3.7120956945709085`*^9}, {3.737163741776143*^9, 3.7371637607465363`*^9}, { 3.737977329658123*^9, 3.737977335915481*^9}, 3.7379793918230724`*^9, { 3.7385828352513323`*^9, 3.7385828674911757`*^9}, {3.7385834468523135`*^9, 3.738583447825369*^9}, {3.7385835220386143`*^9, 3.738583524872776*^9}, { 3.738583585130223*^9, 3.7385836468607535`*^9}, {3.7385836972116337`*^9, 3.7385837036590023`*^9}, {3.7390233187704883`*^9, 3.739023428704776*^9}, { 3.7390234741083727`*^9, 3.739023521799101*^9}, {3.739023560145294*^9, 3.7390236367966785`*^9}, {3.7390236683204813`*^9, 3.7390236990832405`*^9}, {3.7390237447618537`*^9, 3.73902377546861*^9}, { 3.7390240838772497`*^9, 3.7390240862173834`*^9}, {3.739203455143646*^9, 3.739203471002553*^9}, {3.739203532335061*^9, 3.739203547892951*^9}, 3.760964976455905*^9}, CellLabel->"In[37]:=",ExpressionUUID->"c24cc654-9c08-4540-8fec-0b3f663ce144"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"DColor", "[", RowBox[{ RowBox[{"-", "I"}], " ", RowBox[{ RowBox[{ RowBox[{"\[Lambda]", "[", "bi", "]"}], "'"}], "[", "t", "]"}]}], "]"}], " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "I"}], " ", RowBox[{ RowBox[{"Da", "[", "Color", "]"}], "[", RowBox[{ RowBox[{"\[Lambda]", "[", "bi", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], "/.", "AdinkraReduce"}], "/.", "TemporalGauge"}], ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"Color", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"bi", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.7111642994797387`*^9, 3.7111643860246887`*^9}, { 3.71116538155863*^9, 3.7111653936173196`*^9}, {3.7111655855452976`*^9, 3.71116558768242*^9}, {3.711165720831035*^9, 3.7111657746961164`*^9}, { 3.7111658519165325`*^9, 3.711165855041712*^9}, {3.71116816982611*^9, 3.7111681917053614`*^9}, {3.711168240500152*^9, 3.711168252487838*^9}, { 3.7113745175461884`*^9, 3.711374523241514*^9}, {3.7371637857333407`*^9, 3.7371637941872597`*^9}, {3.738583715823698*^9, 3.7385837336477175`*^9}, { 3.7390242788594017`*^9, 3.7390242866638484`*^9}, {3.739024481677003*^9, 3.739024485371214*^9}}, CellLabel->"In[38]:=",ExpressionUUID->"a460f19b-bf8f-4e28-a426-4ad249e95bcc"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"PrintDColor", "[", RowBox[{ RowBox[{"-", "I"}], " ", RowBox[{ RowBox[{"\[Lambda]", "'"}], "[", "t", "]"}]}], "]"}], "=", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Collect", "[", RowBox[{ RowBox[{ RowBox[{"DColor", "[", RowBox[{ RowBox[{"-", "I"}], " ", RowBox[{ RowBox[{ RowBox[{"\[Lambda]", "[", "bi", "]"}], "'"}], "[", "t", "]"}]}], "]"}], "[", RowBox[{"[", "Color", "]"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Afield", "[", "_", "]"}], "'"}], "[", "t", "]"}], ",", RowBox[{"dfield", "[", "t", "]"}]}], "}"}], " ", ",", "Simplify"}], "]"}], ",", RowBox[{"{", RowBox[{"bi", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"Color", ",", "1", ",", "4"}], "}"}]}], "]"}], "/.", "fields"}], "//", "MatrixForm"}]}]], "Input", CellChangeTimes->{{3.7111645574354925`*^9, 3.7111645699712095`*^9}, { 3.7111646601143656`*^9, 3.7111646956723995`*^9}, {3.711165016059725*^9, 3.71116508975994*^9}, {3.7111651864034677`*^9, 3.7111652049845304`*^9}, { 3.7111652473169518`*^9, 3.711165256065452*^9}, {3.7111657311796274`*^9, 3.7111657569270997`*^9}, {3.711165857127831*^9, 3.7111658599129906`*^9}, { 3.7111682590422125`*^9, 3.7111682884798965`*^9}, {3.71137452701073*^9, 3.711374531364979*^9}, {3.738583747946535*^9, 3.7385838075889463`*^9}, { 3.739024298869547*^9, 3.739024299135562*^9}, {3.739024454971475*^9, 3.7390244741035695`*^9}}, CellLabel->"In[39]:=",ExpressionUUID->"a4f911d4-1221-43d7-ac3c-5dcf1b948629"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], "\[Prime]\[Prime]", MultilineFunction->None], "[", "t", "]"}], RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], "\[Prime]\[Prime]", MultilineFunction->None], "[", "t", "]"}], "0", RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], "\[Prime]\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}, { RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], "\[Prime]\[Prime]", MultilineFunction->None], "[", "t", "]"}], RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], "\[Prime]\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], "\[Prime]\[Prime]", MultilineFunction->None], "[", "t", "]"}], "0"}, {"0", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], "\[Prime]\[Prime]", MultilineFunction->None], "[", "t", "]"}], RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], "\[Prime]\[Prime]", MultilineFunction->None], "[", "t", "]"}], RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], "\[Prime]\[Prime]", MultilineFunction->None], "[", "t", "]"}]}, { RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], "\[Prime]\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "0", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], "\[Prime]\[Prime]", MultilineFunction->None], "[", "t", "]"}], RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], "\[Prime]\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.739197233184845*^9, 3.7391980114223576`*^9, 3.760811749228191*^9, 3.7609623926492186`*^9, 3.760964994471554*^9, 3.760979265334638*^9, 3.7609807167471933`*^9, 3.7609886114817715`*^9, 3.7656321402135715`*^9, { 3.765736774864993*^9, 3.765736789451972*^9}, 3.766162748181758*^9}, CellLabel-> "Out[39]//MatrixForm=",ExpressionUUID->"895af2c7-f687-4462-8d3c-\ f00ee701eb2e"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["DD", "Subsection", CellChangeTimes->{{3.7308122301647825`*^9, 3.7308122628657265`*^9}, 3.731162255630625*^9},ExpressionUUID->"3a6745eb-727d-4c98-abc6-\ 7a66a9408a1e"], Cell[BoxData[ RowBox[{ RowBox[{"SUSYTransformFields", "[", "Operator_", "]"}], ":=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"FieldList", "[", RowBox[{"[", "FieldIndex", "]"}], "]"}], "\[Rule]", RowBox[{"Operator", "[", RowBox[{"FieldList", "[", RowBox[{"[", "FieldIndex", "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"FieldIndex", ",", "1", ",", RowBox[{"Length", "[", "FieldList", "]"}]}], "}"}]}], "]"}]}]], "Input",\ CellChangeTimes->{{3.73163077582885*^9, 3.7316307863152466`*^9}, { 3.7316310047349997`*^9, 3.731631006157134*^9}, {3.7316310576169453`*^9, 3.7316310811664886`*^9}, {3.731631162459132*^9, 3.7316311655688095`*^9}, { 3.7316312115596952`*^9, 3.7316312122785935`*^9}, {3.7316312737246857`*^9, 3.7316312835694857`*^9}}, CellLabel->"In[40]:=",ExpressionUUID->"388e6d2d-8e02-437a-bb0b-6d47906c1924"], Cell[BoxData[ RowBox[{ RowBox[{"SUSYTransformJustB", "[", "Operator_", "]"}], ":=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"FieldList", "[", RowBox[{"[", "FieldIndex", "]"}], "]"}], "\[Rule]", RowBox[{"Operator", "[", RowBox[{"FieldList", "[", RowBox[{"[", "FieldIndex", "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"FieldIndex", ",", "1", ",", "4"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.737977589831004*^9, 3.7379776211947985`*^9}, { 3.7379778794295683`*^9, 3.7379778794755707`*^9}}, CellLabel->"In[41]:=",ExpressionUUID->"7b9f680f-c308-4d9e-a626-7914b46d1755"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"SUSYTransform", "[", RowBox[{"Da", "[", "ai", "]"}], "]"}], " ", "=", " ", RowBox[{"Join", "[", RowBox[{ RowBox[{"SUSYTransformFields", "[", RowBox[{"Da", "[", "ai", "]"}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"SUSYTransformFields", "[", RowBox[{"Da", "[", "ai", "]"}], "]"}], ",", "t"}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"SUSYTransformFields", "[", RowBox[{"Da", "[", "ai", "]"}], "]"}], ",", "x"}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"SUSYTransformFields", "[", RowBox[{"Da", "[", "ai", "]"}], "]"}], ",", "y"}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"SUSYTransformFields", "[", RowBox[{"Da", "[", "ai", "]"}], "]"}], ",", "z"}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"SUSYTransformJustB", "[", RowBox[{"Da", "[", "ai", "]"}], "]"}], ",", "t", ",", "t"}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"SUSYTransformJustB", "[", RowBox[{"Da", "[", "ai", "]"}], "]"}], ",", "t", ",", "x"}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"SUSYTransformJustB", "[", RowBox[{"Da", "[", "ai", "]"}], "]"}], ",", "t", ",", "y"}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"SUSYTransformJustB", "[", RowBox[{"Da", "[", "ai", "]"}], "]"}], ",", "t", ",", "z"}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"SUSYTransformJustB", "[", RowBox[{"Da", "[", "ai", "]"}], "]"}], ",", "x", ",", "x"}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"SUSYTransformJustB", "[", RowBox[{"Da", "[", "ai", "]"}], "]"}], ",", "x", ",", "y"}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"SUSYTransformJustB", "[", RowBox[{"Da", "[", "ai", "]"}], "]"}], ",", "x", ",", "z"}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"SUSYTransformJustB", "[", RowBox[{"Da", "[", "ai", "]"}], "]"}], ",", "z", ",", "z"}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"SUSYTransformJustB", "[", RowBox[{"Da", "[", "ai", "]"}], "]"}], ",", "y", ",", "y"}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"SUSYTransformJustB", "[", RowBox[{"Da", "[", "ai", "]"}], "]"}], ",", "y", ",", "z"}], "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"ai", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.7316312511900773`*^9, 3.73163130008272*^9}, { 3.731631344322698*^9, 3.7316313603565207`*^9}, {3.737164630292021*^9, 3.7371646368411665`*^9}, {3.7378177847175355`*^9, 3.7378178743956647`*^9}, { 3.7378180399131317`*^9, 3.7378181686244936`*^9}, {3.7378183040052366`*^9, 3.7378183290146675`*^9}, {3.7379150778530035`*^9, 3.737915156950527*^9}, { 3.7379775135876436`*^9, 3.737977516081786*^9}, {3.737977639111823*^9, 3.7379776821352835`*^9}}, CellLabel->"In[42]:=",ExpressionUUID->"4e84670a-dbfb-480b-a537-9348d6e913f5"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"DD", "[", RowBox[{"LeftOperator_", ",", "RightOperator_"}], "]"}], "[", "Field_", "]"}], ":=", RowBox[{ RowBox[{"RightOperator", "[", "Field", "]"}], "/.", RowBox[{"SUSYTransform", "[", "LeftOperator", "]"}]}]}]], "Input", CellChangeTimes->{{3.73163149613336*^9, 3.73163156604972*^9}, { 3.7316317148186707`*^9, 3.7316317149435616`*^9}}, CellLabel->"In[43]:=",ExpressionUUID->"b529f91b-f8bc-4c3f-b914-a17756fa16c8"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"AlgebraDD", "[", RowBox[{"LeftOperator_", ",", "RightOperator_"}], "]"}], "[", "Field_", "]"}], ":=", " ", RowBox[{ RowBox[{ RowBox[{"DD", "[", RowBox[{"LeftOperator", ",", "RightOperator"}], "]"}], "[", "Field", "]"}], " ", "+", " ", RowBox[{ RowBox[{"DD", "[", RowBox[{"RightOperator", ",", "LeftOperator"}], "]"}], "[", "Field", "]"}]}]}]], "Input", CellChangeTimes->{{3.731631998334331*^9, 3.731632038105353*^9}, { 3.73163219706538*^9, 3.731632198143784*^9}}, CellLabel->"In[44]:=",ExpressionUUID->"11c95ead-7071-4314-8f58-bb351bc32b52"], Cell[BoxData[ RowBox[{ RowBox[{"AlgebraDDTable", "[", "Field_", "]"}], " ", ":=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"AlgebraDD", "[", RowBox[{ RowBox[{"Da", "[", "ai", "]"}], ",", RowBox[{"Da", "[", "bi", "]"}]}], "]"}], "[", "Field", "]"}], ",", RowBox[{"{", RowBox[{"ai", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bi", ",", "1", ",", "4"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.7371651794635396`*^9, 3.7371652120755053`*^9}}, CellLabel->"In[45]:=",ExpressionUUID->"3143ffef-6c23-4c86-a440-c6fa01697e43"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"HoloraumyDD", "[", RowBox[{"LeftOperator_", ",", "RightOperator_"}], "]"}], "[", "Field_", "]"}], ":=", " ", RowBox[{ RowBox[{ RowBox[{"DD", "[", RowBox[{"LeftOperator", ",", "RightOperator"}], "]"}], "[", "Field", "]"}], " ", "-", " ", RowBox[{ RowBox[{"DD", "[", RowBox[{"RightOperator", ",", "LeftOperator"}], "]"}], "[", "Field", "]"}]}]}]], "Input", CellChangeTimes->{{3.73163208190874*^9, 3.731632106083152*^9}}, CellLabel->"In[46]:=",ExpressionUUID->"702c3f9b-b9e1-45e1-992f-c5a8d032e022"], Cell[BoxData[ RowBox[{ RowBox[{"HoloraumyDDTable", "[", "Field_", "]"}], ":=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"HoloraumyDD", "[", RowBox[{ RowBox[{"Da", "[", "ai", "]"}], ",", RowBox[{"Da", "[", "bi", "]"}]}], "]"}], "[", "Field", "]"}], ",", RowBox[{"{", RowBox[{"ai", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bi", ",", "1", ",", "4"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.742225289456066*^9, 3.74222531191052*^9}}, CellLabel->"In[47]:=",ExpressionUUID->"63e720ea-e678-4804-ad18-044861245642"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Closure", "[", RowBox[{"ai_", ",", "bi_"}], "]"}], "[", "Field_", "]"}], ":=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"2", " ", "I", " ", RowBox[{ RowBox[{"\[Gamma]down", "[", "m", "]"}], "[", RowBox[{"[", RowBox[{"ai", ",", "bi"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{"Field", ",", RowBox[{"\[CapitalStigma]", "[", "m", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "3"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.730807214417533*^9, 3.730807331182398*^9}, { 3.7308074030266314`*^9, 3.7308074197801876`*^9}, {3.7308075808302245`*^9, 3.7308076139482484`*^9}, {3.7311621764190855`*^9, 3.731162176850258*^9}, { 3.731606137574524*^9, 3.7316061481783457`*^9}, {3.7371646510922794`*^9, 3.7371646525301905`*^9}, {3.7371649720973473`*^9, 3.7371649806451817`*^9}, { 3.737165124894317*^9, 3.7371651456635303`*^9}, {3.7371652459852505`*^9, 3.737165258017502*^9}, {3.7371660194119587`*^9, 3.7371660208653927`*^9}, { 3.7379145580492725`*^9, 3.737914585006814*^9}, {3.7379155040703816`*^9, 3.7379155065685244`*^9}}, CellLabel->"In[48]:=",ExpressionUUID->"80896f16-b70b-4a73-8b94-784829b0fea0"], Cell[BoxData[ RowBox[{ RowBox[{"ClosureTable", "[", "Field_", "]"}], ":=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Closure", "[", RowBox[{"ai", ",", "bi"}], "]"}], "[", "Field", "]"}], ",", RowBox[{"{", RowBox[{"ai", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bi", ",", "1", ",", "4"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.737914721265608*^9, 3.7379147450069656`*^9}, { 3.737915477761877*^9, 3.7379154839432306`*^9}}, CellLabel->"In[49]:=",ExpressionUUID->"8cb9f151-36f4-4683-8054-031213b41de5"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Closure", "[", RowBox[{"ii", ",", "ji"}], "]"}], "[", RowBox[{ RowBox[{"\[Lambda]", "[", "ki", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"ji", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"ki", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.730807563261525*^9, 3.7308075648818583`*^9}, { 3.731162203432887*^9, 3.7311622145514655`*^9}, {3.73116262807957*^9, 3.731162636318469*^9}, {3.7316057578588743`*^9, 3.7316057585991187`*^9}, { 3.7316061552178035`*^9, 3.7316061686856403`*^9}, {3.737165004444684*^9, 3.737165007788499*^9}, {3.73716515302348*^9, 3.7371651582582507`*^9}, { 3.737166026709774*^9, 3.737166027584793*^9}, {3.7379145974845276`*^9, 3.7379145994926424`*^9}, {3.7379155245055504`*^9, 3.7379155317829666`*^9}, { 3.738583927126784*^9, 3.738583928061837*^9}, {3.760811758328529*^9, 3.760811758518526*^9}}, CellLabel->"In[50]:=",ExpressionUUID->"4bc058df-82c6-43e4-9ca2-fa0686424af5"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Lambda]", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Lambda]", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Lambda]", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Lambda]", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Lambda]", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Lambda]", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Lambda]", "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Lambda]", "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Lambda]", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Lambda]", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Lambda]", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Lambda]", "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Lambda]", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Lambda]", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Lambda]", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Lambda]", "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Lambda]", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Lambda]", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Lambda]", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Lambda]", "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Lambda]", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Lambda]", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Lambda]", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Lambda]", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Lambda]", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Lambda]", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Lambda]", "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Lambda]", "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Lambda]", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Lambda]", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Lambda]", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Lambda]", "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Lambda]", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Lambda]", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Lambda]", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Lambda]", "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Lambda]", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Lambda]", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Lambda]", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Lambda]", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Lambda]", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Lambda]", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Lambda]", "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Lambda]", "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Lambda]", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Lambda]", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Lambda]", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Lambda]", "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Lambda]", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Lambda]", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Lambda]", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Lambda]", "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Lambda]", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Lambda]", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Lambda]", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Lambda]", "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Lambda]", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Lambda]", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Lambda]", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Lambda]", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Lambda]", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Lambda]", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Lambda]", "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Lambda]", "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]}], "}"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.7424480502317266`*^9, 3.760723260066676*^9, 3.760728399723971*^9, 3.7607301168742146`*^9, 3.760730409673277*^9, {3.7608117530924606`*^9, 3.7608117596422496`*^9}, 3.7609623928207774`*^9, 3.7609649946121454`*^9, 3.7609792654634*^9, 3.7609807168672085`*^9, 3.760988611657302*^9, 3.7656321410667505`*^9, {3.765736774977874*^9, 3.7657367902280874`*^9}, 3.766162748311412*^9}, CellLabel->"Out[50]=",ExpressionUUID->"38eee9bb-75c6-4027-8311-7c59018c8ab1"] }, Open ]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Algebra", "Section", CellChangeTimes->{{3.550920278304533*^9, 3.550920282240758*^9}, { 3.5509221619582715`*^9, 3.550922211396099*^9}, {3.551793495341796*^9, 3.551793495906828*^9}, {3.5594927244525585`*^9, 3.559492746318809*^9}, 3.559499496819916*^9, {3.7113930579483547`*^9, 3.7113930664148393`*^9}, { 3.711393103948986*^9, 3.711393104741031*^9}},ExpressionUUID->"231a1b16-656b-454b-bdf7-\ 3325c412556f"], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["D", "a"], ",", SubscriptBox["D", "b"]}], "}"}], SubscriptBox["A", "\[Nu]"]}], "=", " ", RowBox[{"2", " ", "i", " ", SubscriptBox[ RowBox[{"(", SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], RowBox[{ SubscriptBox["\[PartialD]", "\[Mu]"], SubscriptBox["A", "\[Nu]"]}]}]}], TraditionalForm]], "None", ExpressionUUID->"d7d48bd5-9a76-48cd-8b8c-563a42b15178"], " ", Cell[BoxData[ FormBox[ RowBox[{"-", RowBox[{ SubscriptBox["\[PartialD]", "\[Nu]"], SubsuperscriptBox["\[CapitalLambda]", "ab", RowBox[{"(", "VS", ")"}]]}]}], TraditionalForm]],ExpressionUUID-> "deb5fa10-36c2-410c-97ac-4c8d530cb879"], " where ", Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["\[CapitalLambda]", "ab", RowBox[{"(", "VS", ")"}]], "=", " ", RowBox[{"2", "i", " "}]}], TraditionalForm]],ExpressionUUID-> "b19e17dc-bedb-40d2-ac1f-d759827491cb"], Cell[BoxData[ RowBox[{ SubscriptBox[ RowBox[{"(", SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], SubscriptBox["A", "\[Mu]"]}]],ExpressionUUID-> "c091acdd-91e2-4f83-b35a-fee904c66014"] }], "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.7390249239312983`*^9, 3.739024930571678*^9}, {3.739025009481191*^9, 3.7390250516626043`*^9}, {3.739025189521489*^9, 3.7390251933597083`*^9}, { 3.76097929777229*^9, 3.760979321068851*^9}, {3.7661627660006285`*^9, 3.7661627704249315`*^9}},ExpressionUUID->"6cfc84f4-27f6-4da1-a55f-\ 80eab8b74b10"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"\[CapitalLambda]Gauge", "[", "Rep", "]"}], "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{"2", "I", " ", RowBox[{ RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"Afield", "[", "mu", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.7390250591630325`*^9, 3.739025103290557*^9}, { 3.7609793259626436`*^9, 3.7609793656247187`*^9}, {3.760980562904402*^9, 3.760980563351207*^9}, {3.760980693560899*^9, 3.760980695486284*^9}, { 3.7609809580049586`*^9, 3.760980985247055*^9}}, CellLabel->"In[51]:=",ExpressionUUID->"276a4bf5-23a0-462c-a40c-58e7dcde8183"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"AlgebraDD", "[", RowBox[{ RowBox[{"Da", "[", "aa", "]"}], ",", RowBox[{"Da", "[", "bb", "]"}]}], "]"}], "[", RowBox[{ RowBox[{"Afield", "[", "mu", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}], "\[Equal]", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Closure", "[", RowBox[{"aa", ",", "bb"}], "]"}], "[", RowBox[{ RowBox[{"Afield", "[", "mu", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "-", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalLambda]Gauge", "[", "Rep", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], ")"}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.737165038807296*^9, 3.7371651069241114`*^9}, { 3.737165285723156*^9, 3.7371653236966653`*^9}, {3.737166072620324*^9, 3.737166083371173*^9}, {3.7371664781159277`*^9, 3.7371664922267447`*^9}, { 3.7378155693508234`*^9, 3.7378155763432236`*^9}, {3.7379147586267443`*^9, 3.7379147590527687`*^9}, {3.7379148782155848`*^9, 3.7379148799806857`*^9}, {3.7379152561332006`*^9, 3.737915257270265*^9}, { 3.737977810482625*^9, 3.737977811493683*^9}, 3.737979648631761*^9, { 3.7385839504811196`*^9, 3.7385839572995095`*^9}, {3.739024789074585*^9, 3.739024794366887*^9}, {3.739024835423236*^9, 3.739024916494873*^9}, { 3.739024947055621*^9, 3.7390249480106754`*^9}, {3.7390251318271894`*^9, 3.739025168820305*^9}, {3.739025319560927*^9, 3.739025342134218*^9}, { 3.760979380065931*^9, 3.7609793856052933`*^9}, {3.760980567592511*^9, 3.760980568094617*^9}, {3.760980699686663*^9, 3.760980700836876*^9}, { 3.7609809929561615`*^9, 3.7609810566381187`*^9}}, CellLabel->"In[52]:=",ExpressionUUID->"db86ad83-84c8-4947-8d89-d7772f53d686"], Cell[BoxData["True"], "Output", CellChangeTimes->{ 3.7391016332830114`*^9, 3.7391972337268763`*^9, 3.7391980238160667`*^9, 3.7608118015795035`*^9, 3.7609623928875813`*^9, 3.760964994705881*^9, 3.7609792655675735`*^9, 3.7609793899850206`*^9, 3.7609805711480694`*^9, { 3.760980716976914*^9, 3.7609807274854374`*^9}, {3.760981024752019*^9, 3.760981060538058*^9}, 3.760988611710163*^9, 3.7656321411385584`*^9, { 3.7657367750387115`*^9, 3.7657367903148565`*^9}, 3.7661627483722496`*^9}, CellLabel->"Out[52]=",ExpressionUUID->"e02dfce8-6e45-4c36-b2aa-773d95969e83"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztXF1IVFsbHs65+W6CgxdCFyHfRUgXERJDUQiKon0k+fM1oEgyHsbsR6by WPkXYkWWUon9SXiRlBZFUhCJMjpl/9QgUWYo/VBaWiZZGlNWfs/x5SyGmXHP 2mvvPbM/Wg8ko+29511rPet9n3etd+1//7kla/1vFovlr3/hR1b+zsTi4vyy //6BX2zOvzYWOgsc/3GWFBQWFC//83f8MQX/HuPf359nJCQkJCQkJCQkJCQk JCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJLgxPT3t8XiOHTu2adOmlJSUS5cu RdqiXw5PnjzJyMjIzs4+cOBAR0fH+Ph4pC0yHF6vt6WlJTY2dt68eRs2bHC7 3e/evfv69Wuk7foV8fnzZzDw0KFDNBxbt259+/ZtpI0yCpOTk3B0FotlyZIl N2/e/PnzJ/+96KgxDmD+/vjxw7gm6AUYCVN5WoSGG23M0NBQeno6xmXZsmVg o6p7cX1DQ4PL5RodHTXIPO0A0+rr6y2zOHPmjKp7T5w4YVGDqKgom812+fJl sN2g5mjBp0+fcnNzVbUIrqm4uPjBgwcGzSxQCA7h7xp1m01V/MXsOH/+PO6F 56ysrDRnh6NFq1evRusSEhKGh4dV3Qt9SF6ir68vNTWVhqO6uhrxOtBRYIB2 794dExODa6xWa1dXlyoHGx58+fKFrG1ra5s/fz5Mxc/29vbA5oyMjECP5eXl YXBxGT68evVKd3u+f/9eVlZGZqAD1d4OC8m82tpaPEp38zTi6dOnNLMcDsfU 1JTYQ96/f79q1SqeLoJvKS0txZXoEyhME9KPAO1Bo7Z27dqPHz8qXNnf34+8 TCwy8gATliY1TFJ7LzxDZmYm2fb8+XPdbdMIxr3CwkLMerGHgG/kJcBA8FD5 YnjLPXv24GL4wGvXrol9o9GA1KcRh6khJwhyAYodkGfwh/paooV7QGNjI91+ 8eJFfQ3TDl24B6FIDdy2bRtPdgwVnZiYKCBjwgP0A3qDWgR1ynMLi24Qz/o6 c43ce/z48aJFizSOr0HQzj2QDZSj/uHMVjA65Pr4BzecePny5YoVKyyziT/6 h+cWpjpwI27X0RiN3EOWYbfbcTsYCB7qaJh2aOcev9jzRWdnpypXGU7wiz0G lhToPps0cm/GJyo1NTXpaJh2aOeeKrEXeFdycjLyYoHvNQ6qxF7gXVVVVTqG Xe3cQ5aBXANPWLduHXI9vQzTDu3cUyv2/L6XP66FBwJij8D6QV9lpZ17Xq/X 6XRSYLp3755ehmmHRu4JiD0C83tm456A2CMwv2c27gGYRPSQgwcPmmddSyP3 xMQecP36deoNs3FPQOzNzGZPCLWm5d7w8HBCQoJaXWQ0NHJPTOwBzc3N5uSe mNibmppyOBym5R5SoV27dllml/RdLpdetmmERu6JiT1fL5Gamjo2Nqb2ew2C sNhDuoSkiW4EW3Q0iU3Szs5OLc8B5cifg4Qm2V9jIUbVNCcIiz3EMkQ0AdIa DWGxx/x/UNLSNvH4+Pj09LRak9hilEapxtSRwMa9EZicnCwoKLCI7kUKiz3m bNWS1miIib0ZH//vR1rklVFRUey/BDp5YmIiLy9PeIwY2MafWpduBBAmqGwv NjbW7XYLzClhscdGymyL7WJizzdS2+32wIKl7u5u/FdmZqbYBuLQ0JDNZsMT UlJSPB6PwEiNjIzgCRgmGi+n0+n1egUs0QKYPTg4eOXKldLS0piYGLCupqZG eGlXTOz5jlREOmEuCIs9XzcedMueOqqyslK4zA98bmlpiY+Ph1vOycnBZ0x8 zghOxNu3b9/o6ChJnYiUtUBkdnV1QQwnJSXBBvxEK8QKC4XFHtvdBvnv378v 8NUGQVjsNTU1UT8ELY1g221aKklAWni8zZs3I4LHxcVt374dX8ozcCBeeno6 AhxdzEyNoNSBAxwYGKDiLnhyfFb7BDGxh4HABKTml5eXC2hv4yAm9uBM1qxZ Q8sXHR0dgRdQRy1evPjRo0dihrGiR8QpxCx+50nE863sYhM/qDYIJ8g2WLJy 5coXL16ouldM7D18+JDanpiYCBmj2mIjISD2cNnJkyeVpxKavHDhQmGxByVQ VFRkUV/uSIPrl6EwXWEGpS2cwguIPXYoibMb8dixsTG4oDBsA4mJPQwrbdMr VI36ij2BFiFTpjmual2OiBe0nxH6qZmNjY0hnwM7Ya1Bp73E1pbFavagLefN ImS1PNIfuBH4RkjTkpIS6Bx0ZnNz8+nTpw1aFxUQe2wqKax+sI46depUfX09 It3+/fsdDgfCdH9/P8+3sDnOr9DogNtc/czKWpSlBVp3/Phx9MnGjRthc0VF RXJyssvl0tEPiHFPrdjDlAFtiHj4oDyDbt++DZOqqqqYIMHktVqt+K7c3FyF 7qJJKrafpVbsQYNhUIh4CkKOdRRa1NPTQw1HaMbM4kw21e6psZOVIExQDcCm g0JZC/IayLCCgoI3b97QX/Co1tZWeAMdE2Qx7qkSe6AQOhAjC6nc3t6uPHFA M0QKDKtvpRnrLgUlhs5BbwvoIoIqsffs2TNK0/BTuUqZOgo9fPfuXd/HUilF XV1dSMNUcY8RjyW2QaFc1hJ0CO7cuYMR1JIxBUKMeyxVVxZ74AP0JFyWhe8U Ia29QwZj3vn+nXHv6tWrc92LEIaeIavUCntWWB5S7E1MTIClUbPAh5A9RhGz urraz9WDSBa+s4H83GPEC3lkCd6Mdp8DXcfAwAAccuAWzODgIG6pqanRsUyC k3tMc75+/ZoOHVOHQAAHnsaFW2bL17gmLS2tu7ubR6kSpeHq/eYslQApKzF0 ztKlS8kqHiXADhejk/fu3UsBNzo6GpYHnsbt7e2FdsrJycFlYN2WLVt4lgXY lAlc2SPPw1NIzMk9tmTBs/XGzsv4lbWwcpfwLH9xco8dIecEwmt2djYyKfg6 TnXKCgwgCP1uocgVUuy1tbXhe5OSkhAvQnoJCiL8LVq+fDkCGZgJ18fTnBnF lT1a5NTR75EjRfMRzXlsI/9G8Yi1iCVcCvFFR+hyRlIXUNAMKoDpkCn/shsi nZZqN70w18oefB08noVvXYuTe16v99atW6r2CBCj3W73jRs3mO8lAodtx808 3KOGx8fHI6z7/t1P7CEWIN4pD1ltba3AGyR0B7Vox44dfvGLNhcAkDPkQ3Sp HeXEuXPnLBpqHtTCPNwjLxF4bM1P7OFnRUWFQgUCWgHRYoYSNQrrfsfW8Bnu Dh2OsMtTRxFO7pHBCkoAfcsvOULCPNyjl4f4cQ8ZCgVcNhmh25HsKPg9eBUM qxlKcymd9PN7tBXC//aMcHKP9qbnOrX64cOHoqIiHV/ixIq9I8494OzZswsW LIAIoV/hFo4cOeJ0OjE78vPzkfxi0u3cuVNhIxiUq6urM8lJQIwR8iZfFQEx j5QNYo//dY7h5N7MP4t7fukerZWBJ6oqGUKCJbBmOKONdl24cMFqtZaVlaHP s7Ky0ORv374hgY2Li4MDsdvtymWuGKDy8nLz1ATCkqNHj0IzIFEqKSlBFtnS 0sI/x31fdxAe7qFvPR5PWlqazWbbPwt6ATKcgO6vkfQ9wRS0BCj8oA13v9MN 9Eflt31CP6xfv173N0FpR9AW8YC9NAmegW1vhQFsOdfoWg7fZUkdd0zCj56e HiNewBgpsC1jM78sTjsgI6GjaMu1oaEBasQ8p9d/NaDn6cWntBeJJKu3tzfS RhkOBHSofcR3yOPo6OjW1tZIW/TLoa+vD9EH/Z+RkXH48GEkxf8X70iXkJCQ kJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQ8MX/ANWtWPM= "], {{0, 70}, { 212, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{87.33333333333269, Automatic}, ImageSizeRaw->{212, 70}, PlotRange->{{0, 212}, {0, 70}}]], "Input",ExpressionUUID-> "d298393b-0075-4347-8144-364d6c8a1097"], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnW9MG3e6761739wX8+LykhdIHCFLflEJIWTpgqLKfkGUCAmiRgiRRJaJ NtdEe7uQ7Q1sjwKpGshR42q7Rts41am1jZU9cfbGym6dbtxe3BTnCKfFVR0B Sp0GItPgNFAgyEEmGCbHM+OZ+Y099vy1PQPPR+pqt2vGY3tmfs/veb7P9/mX k/1v/e//ZjAY3vkf2f94q3fI+vvf97579H9m/0fX79457fjdqd8c/t3/PeU4 9fv/dfK/Z//l2ew/qezrif/+GgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAN+Yvz3W0fJ+eGO32qdScTYmh1uOjtx6mMKrfSYAAAAAACgnszQ1 3mvEDo9M/Jyp9rlUg1Tc6zAaGrudd5MZCG4AAAAAQM9kfp4YOYzt36iGBH8x 6zllNNRZR76C2AYAAAAA9EpuQW+yex7ouBCTWZuP/POa++Kg43h7c63BYMCa 2084hpyeQGR+jROt4b9Oj9tahyc3Cg+Cr047OzFDXZvz/oZ+vwoAAAAA2L9s LQXOmgyYaSCwVCxNsfOj9y0TESfYinCivRnDGo5dXxClzdlKfP6OOft6y1G+ 4zSfDixKiinw9NOo32k3Z4MZo9Vx/rL3H6HIdDQanQ4H/d4/D9tas4GKZcAb Xd4iX01FcbUHPQ/5T3b7ka+3yWBo7vMv7N/kFQAAAADoEjz941+6awwG01Dw efFlHF+d++rvfv9Nn+ePg12NBg61zV2/H3N7b/pvBSKJtKg33UnFv6FDDhas ufvsqMvj+2c0uSX6/LOHujXSYcp+gI6RG9HkJl9EtL0268++BrMM31l8kZy4 YCXetc0Z5UnYUJ82k/D3GTED1jUeW4e0DQAAAADohvQDd0e9wSAhSYKvBgdq mWCkpmVsSn7JZnvG3UYeC2sb8N5PpqW2Ym3lopSGo2NfPkmXPA08FR3vqMcO WN6socKxd0OlOr/SCZ+jhjivj6Y3diSeFQAAAAAAVWEz7jmWjQuwTk98W3R0 gv/k7axjApsD7hn5Cz91KJmK5czy5JiVPHvn9KqIs8e3455OOkNU0x9cLf3y XMhX3+F+IC4NBQAAAABANcGX/L1E+qJ1KPRcStJlNTzcwqZsBCOEouxsRD5o kSllwbfnfb3GbJhi7PHGt8X+0dNA3xvkWdd1en8S+sg7q6FzJuIT9nofb0o+ QQAAAAAAKsqLqPMQsci3jsdeSSombS14j7PKmAPuOVkpG3zjvrOt3nTmjqSg iv7jhL+XCDoMLR9GeWU1/GSS/j4yZ9PpnhMRq+QqZZiJt38KAAAAAADNQKdr Gnp8CxIjC/xl+DxTixISqxQ7BtlVXVqxXPyPN6Mfkjmj4p1NRchEnQ1EwuZ8 +KWYD/0q4TtJBEI1p/1LYtNCAAAAAABUnK157wliycZO+hKvpP4xvuDtZFM2 XZ64VBEKnp79pANrORNckqU7ZmphB0YjLyT9JRXYiC+f0eFf/RHvo/03ZAIA AAAAdMKrH1ytxIKN9fgSMmKLjdAg2xjVPBhakfbnhC63QWYRKstOzNVEiYAt zmhK0p+SgY0YgQ0NI8uRXLADAAAAAKAy4K9i461iNbR87D70HGQiG6n1oNSs u1tuEYpkOeDINTe90Rd4Kun8ycBGnMAmByMoanfFpAVRAAAAAABUhM05N1VK krTEo6yEBptZlc1gSLS2VmERiiTptzE9WT3XHotvVH+Nb8b+vbfXE5OgN369 M+c+IEvPAwAAAABAJWCMaMRqaAtJxz1drMrmoCcucslXWISiyCmAKZrsV+4v l3Vg5cvwMCWV7vRKlVkDAAAAAFB2VoP9NQpX6t2N0LusykZsY5TiIlQOTr4o +/Zm+wfXJ+eSqfJMdsKf+LrryfTQO8FVcCEGAAAAAG1BaG/JgKB+NCJ+JlP+ QXIFGorj3gXBI6lRhKIPRbd752G02AadHn/o/uyTtdIDFiSRijot8rTKAAAA AACUmUzS7zAoUQ5TMGkfgpbhsFD/tCpFKAZ8ZWqsHeOJbdg0TnPH/xn1BCLx ZcUhzvair5c8ZoPNv6jG2QMAA55J/qfbcaDGEViu9qlUDWKv9UbHyK14CjKi AADIgMk/SG/TRtmZcR9gIhvBGEmtIhRC5ufQ2NEG3qCGG+GYHVfCizK1RCRs 3a3BGS1PuQvYn+ykZj+zE3PkD5+ffLaPBVypuNdhNGANHR+EkrKzyAAA7Ft+ CfY3qlFYYY5DRjbD4ZdFX6liESrvwC8XIzecfQeFwxvjKc/sC9nvzqiVFQzG AoA82KhG1hDYvQX+YtZzymgwYNYLExDbAAAgjUW/jVqlZfd6UzA949TBiuuQ 1S1C8bCbXvkpGvJ7nIM2i7FYaINZL02tyUx078Y9B6mj2PxJdc8d2KfQUY3M IbBVIZ0IjnY01Jntn0wL3Up4+mn0y7/f+vKBhI5Fur4MsQ0XPLO+EJ244R4b dHRZkE2c0dLV2z/y52t37s+v62HgS2YrXdb2VWA/w9r2OvxJJQ/UndXgO6zK pmjneBmKUKXIpJLxaOgf3svnHda8IKe+0zMn8/5nnHPkTvwEAAQ8sxQYMGVv wzrr2L01nTzs8eeBvtwNLzjKZDUy2ka+0uQILEl4j8yCv49oeMTaPpregDtt N5287xu1m1E1IdbcfuJYe3Mt59mGtdqd/mhSij9XZdmJew5hdDzW3U+oH+fX dBLPA1LA0+vPkuXh+Xq6ePM1awKjMLBhu6tIen2LhVFD2YpQYsisxicuO8zI E0D2WAQmsAGRzR4G38nsVOI6JefaE9ZINd1/+VHF7r3ygm5khMbDsSNX6rt9 TyR9QnztmxFz9n0wY58/sZ83+JlfY9fPWsh5fg1Wx6jn83uzC8l15HLJpJYX YiHfnwbaTXR4c2jo5syaJr80PBUPXbs81t+BZJxMIBffU2w/8vUiEUGZKLYE qxfYIKMNDPybuLIXoQTBMwl/n5E5S97oSwQQ2OxJ8M3kg7v+T8f6be3N7JWM NVi6HIMX3df+qUZLXeGbLgXPkF4FxtO+eSW14ArDTJ7NRitjka0S3wv+Mny+ LvfSQ65YcfEdPzsb0x+1ET+HsdszK3W87h4h8/PEyGGiKmc582kovl46Vsn8 EvW+Y8ldwHXWka+SmoxtSLaSwXNmdpXCjPbPZiG22RNwHWDKRU2vnz9LomJg w1a1DHxbswoXoYqxGfcco89Srl4aAhstspWMXD3XZcayoUj7OX9c0i+7tRy7 5bS3lnQMMBAtdbYLVwVXFgmkE/5+skRq7PHG9SCMoEG6IIUk9Ij6Tqx1Jxd8 NTJGitqwTuf0qmYX6XKRi2rqrMOBebGL/vZazGPP7eC0HdswP24OrKo7X0At uMMI8miw2rJbRe/NQGgqGo3G4gkRhaen8cC/mvOOYz4XLKa+U01jk2Up4DAx 78m1+1O9CJVZDg6Zj11fkP6YRCJJGftHEiawaXLFYHuhCXbWpi5ZkbgEO+Kd F3ltZJ5OOo9TAiysuXvQ9dc74ejcwtPkYjw2Hb5z7c/DtryAp9ZsHw8llDgG UODb875ecvXBOj1xCTPOqg++4KWDFSFvBzzht9Pytm7foqxPSRek9qHYZvOx t7dGTnCSWQ6N0AuBppNdeMLXw7nBDjmjpSVbgObhzMVmHsqt9kv/EYotpiSH 2Xg6fs1u5D6GBVqbma4ooUK5MC9jrkPs+6IPMfWLUOQYBXlNSUxYgr0dWJbz kISuKM2x+8h7pJ5z2YtLpuGpBx47WQhueGvkxnSSV42Gbyaj14esdZzjG487 J58q2gnQylgdPslRgY1QNyUrsKk54J6RG5RsL/lPk+9Y1+b6XkcVO2Xg24+v 9dRIne3L/PVyeMRKrynd7lmt2qTjTwN9b6Dr3xujU/vmJ96bFASrjd1j/5hd k5eTxjPJr0byHr9Y+9jUSslbgkmzKB8QwJgYk7CV9zIUobamnY2YvEIQvujr ps5Q/LBOLuBjozk4g1DJC7/HlxBcCpimG+v5wPxG6ZezIRD7HkoMZzLPg0Pk jYcZT3+e1FO25jVHYCNQXcK3ok7a30qEIXkJiM0RGbtixzzx/bHu4c9DQ62k yuuozfHu+O2HKYnXCb7k76UD0Br7Da2qr7Nx8lnO9t70XlhGyRLQCq8SvpNs XGPsHZ9akr3246nYle68juaWgUBC6IAqOQ+TcJcXqrZVlk4oKmciK7BhpIy1 be4ZWREkOA9rj7yMjSgxBhlvS7FJ4Yltak5cmZHl9Lj5nbOFWnJ0l67hCGww u79kVIaU2uUmSGmYpE1xxeDeomDbe2A4/KvEY6ADgjV8pbFpPYNaixFQNdAU nDIvXCStzdBk9zwQEeEzaRbJnZg8MFUeAjIFVJZOqOw592Ey44pfw8OkxKbm tH9JXmZsa8F7nIprYFaUZthJzf1tiGh0rW3uGrkW/UXowqDi7exq2zUeWxfv GcftqiOX67bxmGS/EH2v0YjApvag52HJrTViSC43QcrCRoMHxyJ7XkXMPGcY ZDxw2F0YcbH1BbSqy6UfyzS1g6GNap8TIBNmcKS0p2sBdDMgQp31/N1lcUdk 0iwq5B84KZvsbThbnk4oehtSwt+Yn+zCdMNOfOf1He4HchVFLyKjB9jIDdAj eMLfa5Il2EC76iikOz2yC7SMPXjVQQU2QtZ8L8PDudo41uicVmwfvDXvPUF9 +RLE4XqFyaWzW8XRyLrUo7CVdyKy6Q9UuSm1GPhm5CKqs5HZQAdUHyaWViZZ p4eqIEg0s2LiK7k9CwiMFJm8Ng+3HyyHHR8psCE/qMRqO53XUuSEhj/xddeT T4l3gqv7qkFjz4Bvz10hnHBrz8r4BfHV4ECe3v+NixEJSRtEUdDyYVS77rDF QAQ2QrcA0oHY2B/8Rfl7I6IRDRdW1CGvYRYz9vrmZUiIOZtNdX6FsrA5NfoG umOAapROyaUdsI5PZuXbfm0tBc6aDAbO9S/V4wj/ydtJbquKzkEQT94uoyym BGxTkqQQjjG5Ujh6htmEKk+tA9UhFXO1K2i+WI+MWjj3nKSHMCsHEqzjaBJE YCOUMs2VjEmOexfUmPeElO9rB4J7uxyFpx5cGzhERCXEiITbcl15OZvNkuOJ q0v+baXhwhlQnFyA2joUkv3rZZYnx6zctLisVZtx0FLe8c1tjCqLHR/ztMQa mpsaxPlW4amH/qFDqgzUozehSnpXgaqSW5rlJPZJOLoFiesF/io23pr7I+W3 WxVABDaYkI0TolxVbaoa8uVjJ32JV6ocdE/DCWw0vB1Dbw0qstFs4QwoRq4L UoExFzMOGEGmKztzRTX0+CSKVgoOtRUZq8+dTZlmQlFPSzIxtbE6632bsJo1 n3T6v0ukeO4CPJ18EPyYHBFVZxn4j5jMVnoGRtHX7oqBwEafcGZ/GK19fwzE pen2kcWdRuzC/SLqpL2etLvElAAV2AjlqRArcm7gt7Uy9/3cstz9BVM6N9Qf 8T7S31dYadDGKG0X0F/94GplBykbDG/0BZ5CzkZXUMlw2T8cnkneGTKj14CC ztPX7BWlPPtHa9XK5oxNVoKQxMv2evyOq+8guScxWrrfHr407vHd9Pv9N72X xwZtlgaMtIp1+qNPVRj0gy/4esi3kj1AE6g23GmtJKZzIUlP+63IaD33CCLX C1ZIoNOMHyKwEaouIeEfd6g3kTGrl1+GQ5tJdRkcVhhuxkb2gLxKQC2LyF0F 1Sh9QSXD5doQ4Wv3xvKN+JR4hb1m2w2UZ/9ezXiONDV3fxReLk8WceXOgHXo 80ReDj+TWox97fe4RgcdtqNUMNPcfsze/95lVWcX0tpF2R44QPUpMPMzSBZV 8hxCzEQStPWjzRnVYT8rKrAR8KUpOv6bDHiUfHy0D1qX5bzKkhfYaLmXE6pR +oaUv8rULvK4hBma7N45hbc3vWSbev3Cjq37FdpQUb4HDlB9+AIbiQ4h6Pou IbBB5JH67Gbl1OBKfwTGKNiQ15VAauSk9ZHlg7QPKK+e73WYLk4dBDavX2/P uNtQ/Rr8vjpiZznwNiZPu8hjWVPfMR6VarXNR676r7t5fJUjd9PVtDi/2x+W 7nsTZFlkkNhbKi9jI8GwV5ugSRhDqaIGvjrt7GQfU6iPBFFIalQ6DAgpBe7v agW+k9kR+PT516q2A5uCqdCiZqMA2gBPLT6IPVmXOrkj73FB7oVUHElPJ230 aBpWAXZWQ+eIznpI12gIPJORLlTBl4JnWtC7SLKvUaHGRkRgg6Q79oDAJkvT QPAZz7dGOWthVtuJN3MvRGbF7s57j2DKLWiYCXd6zX3JJLOxGLvr9zgHHV1k wZ1e/ZuPvD3ysW8yzrOmsFprXQQ2BfsO6H3b46TiXke+EZ9Uyxqht8hNz4Gk TSHbc57Oejk2s4DqZFbjoaujjoO5nWiD1TbsCcVXxRfj8dTjr69e7LfbbLa+ ofHbUsfOctxcc4u8QOeztH4iieDp53OTf7s88tuOZiaNb7TY/uAiljpZVytv JqCgAFdonpD9YkOuXiMp+XvFmOkxSvtMIjDQosYUCXRfLzRefC+AZ9azl/wF m5n+fbHm9lODo06iUcLnGb80TP30WEP7u3nzRAryk1oPbF7vPvQchGrUPmEr OXEh37Km7aPpDZW3ffjGfWdbXdk6tfVLbhazMjdFQAXw1IxvoA3LPsOtp0Yu X73+6fu5p71S/bx4eHxsRMx5ZyZxGFRzq3tN3LELocsOc97poMvC0dHbj6SV qvHFwOnmwmIZKrCpsRw+RGYMMPPJS94vwtPRaGTCT/wWdQ0d7/lnfyV/COap 1WRz3Y5Evro6eAiTaUmRB/oTqDHkTsMQQbhnqD2Xn6k12z+4PvlwJV2QpMI3 k9EbIx0m7o1QeK1qX24N1ah9wk4q9nEHN6oxmM8FlRnNCbyX1AbYPQ2+9s2I ucaAdbtntb3Z2evklPPYoaGbM2u5rDu+Gf0wVyCp0A9U6DwswreB8fc2qGLx TR6Stp0UQuQ83NxRye+zMDOJZpwa+4PPMuuPI4G/kEURI5ErsHQ5hlwF1ZDt 9fjXV0f7u7OvIRJrn91bVOOTcxMRGnbTVcjWctQ7YKEvG+NxZ/Cn0r8jnnoU GD6MsTcCY77KRAkKZ6xXgoIsk/aDMUAq+Pa8rzffiE/ZKHABNud9p40GzDQQ WFJJvaNv8GToD9mFrLnPvwCdh9WE0sYUZmY2QoP0prQSUtL8oTYGUb4N7DhI VdxX8EzyrrO70SAW0VcvNR6UZ1+DZJywPhEtYGUGlY5IHoarBzK/xq4S7qPU N260fTwlbieLp6LjHfW0nAARI1GoMOq4/LBjRyj0OXwEKEr28fXVSL5lTfvY 1Ep572N8ZWqsHZO20durUGGeWq1ngGy2k4EzRt6JsaiTcNmlpLSGnEWU7Aqt 42COwLKyk+BxssphtLS/WdDMTv0//f589yeeA5PpGj6bJlT5oAVbPLTZp34s srW3bk5O96tULSX1I5I9IGg4TYEIuTUMbazBoIVLDlAJPBW70s3VCxtaBgKJ SkTc1J1VOd2CNqFEAmq2nqnKy/ngp06t8GlwvowFAXx1YsiE8WqcuIlrMX4y Ss6DTGig+4y28ZgISxZ0HVa6ad5+5OtFnKwaOgZcvlBsYZkdKbKbXn8ajwav XrCbkdYZ09CEwNRI6tPx9f3hSb89d6iaVtcPGmhTQX3nyvyjVxiupwfW8XFM aocIaZBe0x9cYaer5w4mLHLXBnjC18OJbKAatVfILPj7mjlXZYVTKJmlqfFc g8MeemqIh4pqGruddzUZ1fA7zVWRcia5KWds3omx6AhpQ5nXuJ218AUz+pmx Tue0mBHT6HDYuk7vTwqup1zrIvnubf2fhkr2Pe2kFiZcNjoKwk5450uUM6id Pq9NE6pBlT08VF3QEUia7/QRT55Tmag8WyGkOXPdO+7xHu49qnI7Xhlhhtfk ALP3PQGPEV+d9fzd5QovsPjG/O2xjpb35Y1+0Dcbk8MtR0duPdRuBQr/+c6Z N0VoRysC9uaZOz+X66va/M7ZUmNouzJX6EKATg4ylLkqsfm9qw3N7It3/EY1 nBJdjjng6dlPqD4CzPqvfpGzO9mHSUlvyeLpmuzNEHW25U5fK74xqajTQn+l +lmvBaAK3wzyu1PJTY+puTmvEKXlQVF5FFSjYDyf3qEcrrjLhrHPn9Bm3gAA ysvuRvg9UxE7C/x5oA/xVqkdDJVtAlPqR48NeStJBUp0FW4ZDgu1hhdjO+7t MRr4DGQEYNK/RXXOJdI1HIGNZpx+0YlRSmJF7ZDf/arI8CfptxkK0JNSpWBu lKHdFdsrebn9yNZS4CxXnai6ER8A6Aiy6MBvQJp5HkB9Vctnms2mSnK3ZK9v XoKJpSp1E1q3bDobWJJs9YA/v3PGhBVNbuDPQ0OtxVy1EYGNdtzS0OpeVbpm dlKJ74K3/H6fx0VozC4MOuw2W0/Xyatz8hIL6HQtAmX+zDyBjUbEUWLg65rR 0/kDeWSWJ8fyjfik7s4AYC+xNe1sxPg3m3mFeGWjFUtAG1fK3migSle5gU2u B5ZXaCSG7SX/6ZoiSS1y0gFmGp7kzXexYi4BlU4lQQObqjQxF3RSU8jMimzG PcfQBz92xDuvJFbjCWw0Io4ShIlqahqbGzlW11CN0iU7qdnP7PmWNaoYdQKA bkl95+ps/+3nTwof8+RyXP4NHTkIQEFU81qNwCaXmVdUnqAceHhEMuQAXOyY J87/qMHXvnXbW2uae4ZvzGhGclb1wAbPpH5NEszHbgzRknKZU8Copj/kua80 M8aZw05RtrBfVdhcDdbx8Q+Pb/VxIhvlU8aACpP9Qe8MmTm/oqHmxJWZ8hnx AYCueTnnfgu5W95yz5Wh35wjeJNdFEYDG3kCTspnXuGmmwxgDG3OKCcxQ02/ VWOEUyXBX4bPM0m0qtrO4VuRsfrcicgTUBUIZZV2N3O+HOrSVTpRvRIgFSiq 3prXGqCPT0GDPwtfPFrlvtWGoxfDfJNqK/YdFDpuyemz3lqJxx4samZTBQDl 49UPrlZ2I6A0dc8PKnhTInVTbrryMuY6JNIzpzhU2idPkULFh3qpU7CoaQ2k CGS2Uc07QRmTaLZn3G3cgU5KVb7545Z08fuyvm1Y13hsnRqbyhXR6SXvRKIN O44q3hq5CTgcxHeSImxMDpuw+tGIRqrgAFA28M3IRWQvVw5R687a1CVa8FZn HbmTKJw8KBbNuMmRVrSckZ3kQ4N24NcTWglsUKGXnOEOhe0/iouqeMJv57bV al6dgiyCnPEfeW2PuojQcuzzjA2PZY08A3/KREs7bQsAUD5+DQ8jpqo1/YHn 6q5sqOBNufU0Gth0uueqmE0nJa+s/yylKDb1+nU3PxkdylnVwIadWiVPYFOY XVFgCECBTE+jFpQj3kda7vNGopq6Nuf9DfRa1HU1at+Cr047O/ON+GQ+RamW 0uPeBUjYAHscfDU4gDy6aweCYvx/xR8+sxQYyIk5m+xX7i8rtZBSoytKHUir QGbEM9VpJWaIp+aouniYAlWzyEsmFHRXyatn8Z9SmcJ+NUGiGl67Nj1Xo/Yp qbjXkW/EJ7uOT0XperJgAgB55D3r1M1Oox4aag0xQRev6gY2O8uBt7Fc1qik KZ/W0Uhgg+Rb5HkyFyoxlA4r5yYztf37ojIMzHppao1n7SuoRu0Zo+k9CTWK iBvWtH00vSEvVt9ZDZ6thfHuwH4gz76m5cOoejs49kmLHR4OPFJJiI86D1d5 sBG5kB4YjbzIrYAasqaRBBrYVM95GFGzYHZ/UsbVUmA4o1AkmZfMLGa6qAU4 4tJSxiaovyUZQpbRYBxQQr57NoH5XFC2EV9u6DCMQN1X7KPp3ihltK9hBmdL 6EnE08mH0ejDZMHYcQQ0sGnsD/6i0unKgXQ4ISIBaiOsty5vBrXGbymDVbPI 3VTmBzYmR2BJwQnlbBiZu0O76Rp0SD12+PxkCY0rOoOV+rI1MrAMQMG35329 +UZ8pzyzsi1r8O24h1DqVEH6rravOCAebbQTMlSqHJBnX6NeMM/I+KU5LRCN 2KxqpcihNZFeoCBW0uw5PCZXwKaBYDVtLhSAxopUAqry4FtRZ2PuHPLdgcSS H9gccsUUbBDyOsdN50KK5Dplg9MyI6IFOF8ODdUorcE3BQNrH5taUfB4WY+M Wqo0SkNdX3FACvtnujdKnn1Nj4+nn2f38c2Th456f5TwTMdfzFw5QRxXsn8U eQsIRHXolhNje5KqArGSYk1/9Hr0Khum+CXYT8cUcoJbPLP+OBL4i3PQ0WUx Ghos3f1jntsxRCW+kxFWjBcIbPDN5IOvvM6hU+3NmKG2uf03Q64bk/HVUpdG fmCjxA0g8zw4hDyOOX3TpT9IIjja0VBntn8yzadyQcHTT6Nf/v3Wlw/kK+o5 UY3IZpmCapTcfgE8nXwQuuEeG3ScIH4kA9bcbhsY9XwRTYIiWT6sBxFLy0Ag oWCrS6drqjP8VE1fcQAQIs++hr9PeTfuOSjtIqRl/DJcMam8mc2fLPmqnZiL caqqGw5XqGjHC9meXGuxtGq5TiEI/pO3k94eCqTLCsj8Er32bntD9qFpah/4 k29iKjo9Gbgy2J5d2fuuzaa2U3N/G2o3CdVH8gQ2NxPPp70DbRhm7jrn9ofI Y7oHLMTSeaDP823RMIB0FmJR0hK1+Z2zhYn5JcxpRdS5grmv1choG3XrySyZ ce1Narr/fUZUs0zejS+n1QtPJ+55hsjfHWuwnnZ6vwhPR6ORCf+n79vMtQas bcCnnYkhuiKz4O/jhJ0qtF3gS8Ez5CCbKjfBKfcVBwBBxNjXUPto8XE+LeOX 4/WdG8ojXIZbDjiYp7lQFFRe2ApmVbZCKoHWYSWkwPBM8t64jYwxjb3jU0vI r7aTevz/+k215nMf/6m7QVQIytZHasynBk6Z64zdzuA86sLyanny38gOEWP3 lRj/cz7fTE92xiY16+5m87fGfn9CZBYLdQQSyn2xH7m+2/dE8nqTZ9omSVZK TTpjeaMv8FT0CWyvzd4cogol2KGhmzNr3DgTT83dGHjTYLCOhJchtJEG/mzy /OF8y5rzd5V9j4zle9VtixT7igOAINxSe01fgGfQ9e5Dz8Fa0XqznY3pj9qw wmVOJNSiIOIhT6Rs6Lu/qgMA2BBL1/ViJFDEHIFlUX+DyAD4NY07q6FzSCmn rtP7U/GfFRXYkA/z4cB8YfIh19ZBzPxwxXhFOHmDouQZkeHp2U+QbhTLH0Li O7RWw8P0jNf6schWib9DHXKka4Hyohp2boJIKMWF0O3PA9KAXETLStTXfO9m X8Mx5QYE4YzSy/2ufGZEkkDNUattNK3UVxwABMlzHuPdsuXGIbW5Z0T0uNJ3 kGzpPv4sONAkTryKakKqOlUhJ+rQtzUEUtoTW3PEl++ez4kbW84Ei7SCcRRc pfXAqGNwibrP9qKvl3pRMVkINYSURo4sFt+472xj7ozi2SFedmbcB2jrZIFl HelEk9qXlG+wL0OAQdkuoZGNmGrU5vzNM2bqjYsMleYMaqzupkNnoKP06BtB /kA9ip1U/K8OprWq6u1vSn3FAUAQjicb/2MNfx4aahXn3ZHdv98ZMtcQFag7 c0lhEvFYFGEqFLjp/dNvCRGFqF02ug5W1comF9jo2hqCshmUEgmwzcWY6cyd 4jv9F5FRutZZOvOMlpDMF8LFNbds0azoARnhSqn4p+iJcEYNSjaup2qp1N+W zFBxP3K3b1H8m+DrsfEuJKqRNzMov3GgmMQOAR33VkxKzc2Y6TqNWVHQ75YO a6wXJmRb1rwmdq6L4T/bkIbxahsWKfcVBwBBuIENzyOISsiL0sRytmkKqTsf fin4mEbvEVn6BJXIrbP6foAj4QfWJyL9tfnYSydFsGOeePGrA127S2eeEYFN 6XZURA1UNKDFn985Y2JKayXPMO8PUw+8fQckdhihoAIboSlmyEeWsHvNr1Zg poHAksxSRSrmakfvPP6mSOad2W+1RH0ENUSq7/TMadTNUFug1SKaUhaLguym k/evDXVy/Uuq3tSv2FccAITh+HTxpM3TD9wd9WK8O7ibXMWIDBLYrGYVdyLU QqbvOhSnJUrEl4+vTgzRYYOAISHboySwdiO1sNK9EuhFW6KTKLM8Ocbsf8X1 Cu2mExPObqa+2WQbvyd9yCAisBF4dKOaItHtIQUaDAXu+gRkwyN6uJO+RJGg kmmrMZSOFfFM8pvxvoMNDQf7xr9RNut2n0DnulGKlPmE2E2vPYmFfK6BDh5L tqqLdZX7igOACNCpMfmxQa6IL0I2mUkEBloKbyPZiI1S0OX4gHuuOrfsRtTZ ptQFruqwqQOs0TktlPvejHuO0SGDQCvNzpybzgSVXru3FrzHxT1+kVeW9mbk xACY0fbn8GLRPCCefno/17FOYjzuDD0pZX1dDERgI/ToRnavYvvrN+d9pznK Ugm9WkWgWgNYGnp8vHk1jiBHt/baWoQr6KKosw7/bSoqiukwYeh70+t2Dvfb SCehYogWh5cN5b7iACAKpKeV7XvCM2ux6wNtmDjzBLUNm8Wn5VGZjbzmF8Xk VApVVS8rBU0diCh8o23CJTb4BOLDFUQKLtArgTrLCU3TwDfmb491MOEK1mq/ 5L1zb2Yh+WwltU06hi3M3vvimusMG9IYTO1Df40uy7yWEIGN4KMb+cjSU5Tk x5HaBsVL3syIIqPicqp+Cv3aa2uQF1HnITmPSclIaucvB2r4igOASNj2ilqz 7f1Pr1+9PHLKmn3Oi/bXUjuwkTD7CUmkV+e2zZ2Avls/EFGEsHkX19hNYEVG gpDSrxRdsUJTIuISZbxiAz4IJ0BPqLStsQCowEaos4/9yGKyZCQcU2XLUHBR nYtu83sXJ2PA0wXGGQgu3coPKE6RWQNqg7VcmJRfh9KMr3jhmYHxNVCMzGo8 5Bm2WXMP/4aDjtGryp7wlQJJpFdDZkPfqro2ZGC/QzHmXag0VGhF3pp2NuYy IaVHbCMVKwF9I57025nkigT9YTa8efC135N7MrMYLV2OQafHH4o+WpFTeuKC CGyE9AzIRxYdyePPwhePEjdpQ+fQDRVNffFMMuTsNrNVjHyHRo4YD9QRKoOn 15+J6CJVwkpK/sNcU77inK8NjK+BvUpVZfa02VSVZzooA6meHHJGBe2D0A2m QBCC5NNKr91Is7lAT5a2V1g0myQQ62aS/j46kJBURd1Nr6+spyssTyDn0tIR G9iP7Bu05yueA4yvgT0OnvD10MYaFW5mpPPzQnYlmgaJDNuuzAnOQuJUgkqv yOLXbmTdFJjmgKREispcqwYSIgoOZkWKdFXTvYsHNcOsesswUBm06Sv+Goyv gX0BImuUPaFYFkz2QIxPslbZnnG31UqIE1BBlYDdELJ2c5Z5PLP88P7cMrL7 S0WdltwrS4/9QnXLIlwIKgsqsBFa/ZGBINx97tbK3PdzcqXLZWPRb2N+dSFz HmBPoFVfcTC+BvYJSCOqKIdktaBH7Uidha0hkK9OZJyAjugqrQdGcjtc+ROR deGOo2IDm5LPod2N8Hv0DlGDzm9oNkmguoTkdrhWPMSXVq+9Tli0E03XDYCA ODTqKw7G18B+gklgVnK9YxZu/d471LwMMvQQNwvsNWfzXjK7gi/6uukghOML zbN2sw7YpQIb9ldW6kpXFtAinUCsW3T8NxnwaLATFt1uSwpstpLRb+OKRh0B lUejvuJgfA3sM5DMA68LRznekt50l+730TLssEjjmUBS5AMAeW6UCGw4w4w4 TdmkorjdFUMfWWz9vfiXifzEWKdzuoIlR3EgSRghHTtl6E3BKeeRqiThjvvK Q03C5YnESkJpIVoGQ8/Le3aAqmjUVxyMr4F9CJt8EBzkpwrMpluC647GYJzB JO1rkDWu0Rnd4v2mEXVffvqCTBSzVpA0jHimyL4PT0XHc8FAk907p71po2gS Jkuvb7HIN4qvTjs72VQ5OvsSfxroaxTRcV8Ndh95j1DfvzjDKPxlIvi+FZMx bAuoLtr0FQfja2B/gmcSN+zU0lKJpA0tqBCw3tUs6Nf1QURSWQdfDJymFBd5 iRcKKqqpP2zrNhcmJQitsokvjqIfp7zfZ2YxOGTJRTUirLCrASqwMRT15qWm PGBW24k3cy9Esl67894jmJiO+6qAb8bG28gFD+v0xEt1z+GZ9Yd3nMeNhsZu 512IanSGNn3Fwfga2L8wpeHyl1b1LrBhE1wyrB7wzFJggEhW53c34OlE2H3a jDXZr9xf3pzzdFJ7fEZJm074+43FVMrpWU+3sWBWNTPdgzSs8D/UZFST1wVP rgnWCxNJTlUNTz0OuXqN2OGRiZ9fMUVAJnlFDlzT9lZ0c+HzPxAWakWHnu+m Vx5OXv/Abq7FzKfd4YRyx0OgsmjUVxyMr4F9zXbc20OK2ZQPBywJLagQbYav LXY2Ih+Q+YUa88g3a3JWn51U3E8aZGHG7tHrE1OM4SeyouHp+DW7kYx/bK47 kf8MfnrGUkMs60WeSnhm+f4VYkZ8rdn+wXXK4NQz3EUcodbsuBxa2NDsOokK bGoshw+Rk6cw88lLHDfUuoaO9/yzv5Ifn6nWNdlctyORr64OHsKMp33zWixD IWwlpz5xmGsJr9f2My7fVxFiDOO34eAtn8c5SFqXE5/6+r0FEAzrEm36imvb lhMAyg6eSfj7yMW0ZJeiQpgbTcTISO3BTBNW2FtEuGDd9oz291iy63hufMz3 SY4pLp5ZmwteGSFmwWDNHW9f9EaWBPZaxHSPa87B37Q315JjX/pHLt8IPUhq e++PCmwa+4PPOIN1sjGApcsx5PJNxtc5WY7t9fjXV0f7u4nhO1bb8Gf3ig8f 1xTUdJ7LI8wsaaOly+YYvOi+9sW92Z9TUHvSMdr0FQfjawDILIdGSHVHMaMD 5dD7msoPcVAOI16tsXl+LFTIADJA3DwEHt0AoGE06isOxtcAQEg0Z66cIO5P o8MbL8faTd1omGl4UmuGI0IwUZ96s6EBZBKrXjVXAPBas77iYHwNACSZnydG DhMVKeulqeIul3IhE7alpploE3x73tdL1Ok021ukSxBhgID5GABoGo36ioPx NQDQ5HqEMaP9s1mVpYyZldiXt76O6yo2YEbaQVSjLqgwQJeaKwCg0aavOBhf AwBCLm9TjthGZ+Cp2BWimRqiGtXZiDrbcg9dPWquAIBFm77iYHwNAFwyS1Pj vUZDndV5f/8qZXef+E82adoHRr8gApuavkDZGvEAoAJo1VccjK8BIJ+t5dj/ vxVe0J4Pf6XAl2NffHFPwz4w+gUR2KB9HACgTzTqKw7G1wAAABWC7SPBTnjn dWjWCAAcNOsrDsbXAAAAlQBf+9Ztb61p7hm+MQNlPmBPoFlfcTC+BgAAAABA Dpr1FQfjawAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA9Mt/AfofiDo= "], {{0, 117}, {755, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{225.6666666666655, Automatic}, ImageSizeRaw->{755, 117}, PlotRange->{{0, 755}, {0, 117}}]], "Input",ExpressionUUID-> "e081558a-a0bf-43bf-b31c-0b3061ae2a5c"], "\n", Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnV9oW2eWwC+zL/NwH1aPfjB4EAI9BIwRgnUwg/zgkCCwS4MRaYOQQrOy YVMrzVaaLLFTGjtLozIzMtPIZebSGeGdKLO+ZFu1jTZE21pZLLe+y8hEJlUb O8iN1Uau7BjZyLHk29X9qytF9+r+kyXZ3w9SmiB9uvd+557vfOec75xfnRt5 9Z9/AUHQpV8W//Oq3d371lv2y6f/sfiXwTcvDTvePP/GqTf/9bzj/Fv/dO4f iv/4dvHPbPEP8f8/AwAAAAAAAAAAAAAAAAAAAAAAAABQBXxr+dOJ/u53I1v7 jb6UA2drdrT79NidR1m80VfSuuTX5ibtOvjU2P3v842+lkaQTfgdOqjT4vki lQdiJJ389/fHTsFHV35I8Odx5LwOau8duwekSBr0o+uyIYutrcbzG8vRz6d9 112O182GNgiCYIP5rMPtQYLR5Y2yVwP/aWHSenx0dqtiBDyz4BmAofY+z/xW Sz+KA2V3Lfi2HoL1zuAa36tX+Mb/qp6YDisPZ80GGNa+dmtFlA21m/zkkrH4 edPpauMYhoOrUmcPzz3FUI/NWBQbXa/j6k3/x+HoAoZhC5EQ6v/DqPV4USpM Tj+W3iU/Tb0ybSeQR1Wud+/bgL0LggxD6MrRVcgSwHPffGTRQJDeHXrG/8Dw zNK9/0LRmQDyW9dgJ1RGm2HwrQmffwa9E4wmc6J+tJBNfMnMbAnYYHl73IsE PsdSu1JuoTjanbF+ffEe+sduY6mdauK3txFHi5+BTaN3V5+n7l/rJX64z4NV KiHqbvNJdEgHQ/DgZGwTqKIa5BZ9/R3FN078i49nQs42dto13RNz8hX+3kNf HzkW3Of0z6dyMraBu7Q8aE9P/PeTnOCV4Flssr8D7jH9WkPJ/uUw78Yzlww4 NMR1/W5hqyD9qo4OOwnkteLjhweQxJ5oOcC/8w+0syLU43so/xFTQ8m34fPp 2Yle8gY8CxkRN4DvJZABRvFpRkIZgc/SL1dHv29RnGo9iuBrqJ14H4+7w8+k KJJMZLS7pIaEJ0KIwlb0vW75Jge+txywF5cbSHfGn9gT+6WnwaFj5IW3D/i/ E7zrQiZ8RU/cod3/eEfOBR5+nmOek8SzPD4ZeyFpKdpd8b9esmB6fEuy1BC+ Ne/p69BfvCtJfDnfT6J2Yoah7vexquZPdfIpdIjUQwO+pVqCQa+zsP7ljRug pIK0ZwIrEucQ345cZVcyQYtCYAxy7yxswwt+fwd7n1SFPLsqfvKYR0sooauR 7Zr3/SIZOEfIm2YYXROr544Mu8v+s8TDgc8Fki+kfhlf8Q+U1NAgkpBqLOC5 +If9cPfF0JpcS5xdTHvGo88lfZMSIZHrL/Oidbzi//bohXwEefF373Hi0cBn AkkZs7gVdpU2ZQZXeF3a1wlLVSt/CStSiHm7KLPY5MGykr5KilBNQ4iBtZ0k L/eHG/xFbPK4KJOSh/1HyAlWhqQuJdm4z6JgCSNJBx30xurYUPCppFsgRUiE IUTDGn5mb0yarB5qdpZ81EIk/klWsB52GUrWkCss2tpUvoSRpFAruyU8M/1Y vEeiaETF/mi3IzHRFnhhydcjy+g6zLCOHVEmZVVyCWSwZA2dQBIiH67yJYyC tokpumxT8+n6RUW3I6PU5mHAL3XjcWjJhEY0Cp/J/lb4cskaErspU2MJoylT g8UrMNreuzW7lMrWIaiFPwlYOkh9dymUAZ5qAsIUJZ97x3hUUiyqbBBavVO8 7l+pOZJKSxgzGrOpr0Bnsro8CBqejz/ZEA53iCeLeUzyTPdDSj6FOiAltjQF q8oIukcjtbbIai1hLPj63IQZriJFJdVk6P+XcSQYTaSVCdPeasBODqi1oqsq XX1Lw75T0jfjXAoPfT2sDNWURhWXMA7578MTp7VVxadcloyOqciqTLOPu2pr PRhI//j55x9DI51qqGV2HFKGRiPbvJ9UdwmrGHt7NXrbM3SitiDpziPx5/Iu gDXeFQQEDxOrqJV6HrJ39BSsZ4AajN8yV30Jq8J+bv07LIwiHpfVpOMTIrj3 xtyGHHt4P4GcoIawoinVr73lKPl1HWhKiVYuZEKXStYQr3+gPkuYEPlsKoGF P/bfvOrorRCnjgFkSU6si3VDyY0p1ws8t/lDqj482+RL3yp5VBSKUGlnR2IP rL48OfVcwsSQzyTu33QYS+4HmXEKVoSaxxiis3PrTNX7VU+EOFEGqHq48yCW sJowWaxCol6L5hOhcqdKvdDY0Sovv4oiVFoTi3RYAk/Kf+3glzA+6ORMElmb iKYTofLoQAXaXqvrus8/EwzPYRgWSyRFLFtPE8F/M1aMY7wSqprErpotVGQt 6NCzP1juqKzHEpZPh9xGsYdEyuC8sye9Mf69Ix+sCHV5Y81gC5WFuRng47Yb fw3HVrOSYz14LjFt05X72IQ2sOyOTEaeTwXbMe/J0o9aAqUM/rosYWRQQ96e iJUB+EIwLVkImm1HhicDZ8omvNMy8XF8Q15SHJ5P3RvrbecOB8Hmibl1/qlj VYdydz3r6KbU0ER0l/rZ+ixhuwueTljeSoKvBizURYqPCHNoMr8Qk0tJqwv7 5Nya7AeNZ2NTlop9a7czmBQcUCXvNElZwJxeGeu1C6NUgSwRYjN12/p8D6W/ q03mnS6dIFDkLyXIr6BD3Gg1BIk60cyqjpcNYOlw8nZotVavXRidNi9rEn+K jJKmkMwUaDbrrDliZGx0UuFJSaqKQpn8tPde/SItYkRWdajwTpWpoeITjtdt F8Zkd0hOUClu6m/byPxnuSfCnkfHe1Ra+pXDqkSdBYnLt2XpI+FcYN0QmhRp irNizDWAZcIa5+Q6ccp8ok6ORNIQIm/0NSQhJS7D6GqN5aNv5AXsmytfiH6V 4P4P4/LzD6gqCuXyY/tzPCv67lTIWmRhLSv6SurkSCztiSS9LIyuhnuv3Zd2 Tp8Dm7UoyxRXmZ258WOw9NOjXJgjwNxpk/x82Aip8n19+aasXo5E9vwgrDV0 aYtL9mhwudYrg2cfoe6TSuWn5FNSdvRbHfBdzNMp9QB7GYVs/M8vuYCGA8tS A+7sCQ4Z5xArh9qNTnTQl1K/WBilvUllu5WJ+y8YYQg2nvOgXyerZbriudRi 6AMyNNZucv41JtNhQtFUJziyMa9ZxqEVBjyfuus2asrkR3N26qGsPR1zjkwz FFS47jAul3otYQTkUsJRJnubibteOkdIZ7JcGL0xiQRmUBSd8d+ccFlNWpjM pvag2FOlya/4SuAM+TvNcI6MSvPTvyOvEia+8WCi0oWopKgdc5pVMxJUuPS8 eIi80mWw/C6SrpvLZP2us9f9SWXtonx2NfY/KOIddzmspymxMZhfs428c3P6 c8XJrjTMaVZ5DiWVIQ1C+Nj4nIw0Lzy7iNgqIvtdNv+SEjuGeTh6OyrnPOvR oKnO1BfSwQswZBqPbkr+ahUXUEf/JKa4KCJd2UOBbXbYoSt7aLo9XzdDdRg8 u7oYe7IpNYpKV4/kolo9UkYR9YxGflI+2qGDrS/UDCpINlQl5DIDSJoLqNb4 hDMZKKKq7C0hAx3yc2WbAqaKIFeA1C79R9aJaq/nfrxFyT8LufVKncCNpZCN fdBfcdCOL4tMlR/SXwk33nvfLOAbX44ZNRBs8cUb7guSB1tFkOtCVBbWF2Jn OTCsE647faTAU+HfmFq57rSMLDLlv0kdLm796vcqQL1Qqux5G4OsLDI1AD04 CCj7s5V7cMjMIlPr1494JyBKflq5E5CCLDLVAP3IWrcfmcIsMsBRR3EWGeBI o0oWGeDIolYWGeBoomoWGeDooVIW2e56Ira42qrbCIBsVMsiK25F9bCS2q2A lkS1LDLqYJryLHpAS6FmFhl1tEFM2WfAoUHVLDKqI08zHJEDHBDqZpEVMqG3 20B7kSOE2llkdGdJ5SdSAS2B6llkTLPjgz4iV8gmvw7dQdEA4vUUueZy2KzW M4Pn/rLU8JN6h5l6ZJFtRsdNEKQ57v275L6Yiiirr1gC2GP1pA5ZZGy/9YM/ 6I3nsz+RNUKXY7fdTI3QZihZcHipRxYZvha6SHZSOnY9KqG/trqUFWSo3QkI IA/8h9mrqmeRsZkhMo9XqwSn9HFT1G46jNQli4wb2Zd1vFot2JIXEOg4WSfq kUVWyCb+w8Fu68S2s6wPpZZ2wBCqB4WNuRsqZ5Hh26uRP1g5bgEpfZlVhy3D 22hleDhRPYtsP5ean3YPlHdtU6FqtAI4hlBjleEhRMUssv3cxpNYOOB19ldp +ddYCxZPojbayoNtaAoYQurBVDng0t47+jeiI4sIFiKE33fG7/OMjljNBoHe tcoL3CmCCu+SOghE6FSFLvpUf2QXbFQFuu4oSZ8Ha5xFdgjhcf6rDdx9bVb+ KobnNx9Hgx95XI5Bkw7SmiwjE8insXTJ1VDI13A7vGQI4TupxXt+j/s8oTnb DOY33N7bs4mMJPc7UaY1fNs34XKcJfUvbDBbnePIZ1iqYc7TxlDHXpkM69Xq 5Iok/yM2fdlMVLbUm52/D9yfwxZmg1Mus7bdODQdz+5ll/7mNush+NTV2R94 J67MEJpJPlvwO/tg2Dh4xYeGyQF9ThMhAz1DyFdpEU4wPJd8gLjJq4K1vcMe /2eRBQyL3kf/9K7V2AbBfc7AQ5Aa3gQU7fwHk1YyW7uy/VAh+/g/R/Rtxisf /N5CW+5CTcNLhpDGeN553tius3hCy1ucSX6Rnv130qehs0zFBGd/byM+46YC 0PBJ98zDjXKRw7NLt52/hqDesciBngsHvAQnVaB6hglTV5CmfcD/Hc+UcQ0h COIrRE/nMhUF4xVvjM9Y4iTg8eS94LmnWOBy8TPN0Qjs6IKnv7hKp5rwF8Rj ipmTCBjJ3K6gsM4eWK5epHFvNWCnzSVnKFPlIzvLMxeNlPzwOD3KDkk1RSew o0qpG7VwgXq2ZZKg04ljCEHGa5ENXqu+1Gaqymhc7z1fMbHy3n8gH6lh7Dz2 22nlItyGiSsbAmFTjiEknO3G6VRW2cYLf3b3oh6m9Rhv3JntNQO1eNnV1gbP 3HfTk8XTc5yFbZkkGDYl+kvT0yqcI1RqRlnc/TmCa5xrYpKdakh10X77cnLo hFZ7Ymjyy1atGdXycPuz1/BGctpwC8gG2xanZoSF88myfpT4DvY+I0C1pBrQ cOj2Z9T7fi6QFFh2RMrGj6ERZjdWI0eI6YNJ0DkS+pH+Z/yHkJM9Bt7lDPF7 nwCNB9+JXmcaCdc0RzkzLvBJcYsdAdX2iOakN0Y7mfBnwSH2n5U3IQLUF645 Cnd6FoRyldjOp0XLlb/CA2exq5FqgqdQG7ubKmWDcA0kEOJvfrgBuxozzul8 yll0KqGaGVHTP0S2pOcdj0dUtmNeNgwNch2bnrKlRLhuA9v5VPiTHAHo8saE pj8TGWVNZm7VEY4p1eCUOYAIuB3ka3SC5hhCZbKB59OP5pfYZoecZtBWNCXw 01wzvqy1B7cj+YBvCRQDbG4IDw4zj8K2NEdfledjE8oEdgTT9F9LIiQYbdjf irzDrKAVLkHuNs0huBQCmgHOKy+oNJj+vMSMWwJPStqKEK0OTlJiqZ+4kAix AdYqRUu48TVJIrSbwr5KgBLKBw1nRyYgQvhmbHKQ0Val3ffPtI3NPXBditHz 79o4nkN4wLNQEV9lm5tDUgqSUAH9blf4mbjPA9SCM1+dHmy3qi1UXu8IvhBM s286GeWsKBvCGjk8fkU8i032d1BGVfW6kfvf+l+hPiAudxffTobebe2+Ki0N vhocpmyPqtUbKPnpOGW1GF+2uonOtvqXgptMxKSqrzu/GnKbaPnhLRqA78Qm +2BKSwl388Tzm4/uel7XQa3cV6XlwfNrQScRZq1M7MFzyYhv2Ah32abm0ztU E1KIs6PPJdERXdU+ibk4QlQpqeh/h+c3YrecpGjAJ92ocCeUnZVPfkNkxvJW mNzPrT+avfWezdgGG4d9kWSrdrY8JBSyCZTMLIV1lvFb9+fYnGTO7OC5xDR5 dhLWWb13o/8b+tNFk4avAnZxpz8/RZQ7bjPa3rtFZV8jo4PE19uMjpvhlS0R E76bmvvQYWwjkqXNF72Be1HiCNRXkdCdAOJxWXuL2wDYeO7GrQcrwIRuDoj0 0U+R8ZEzJi3MHNn4v1SOu88vqpGl0NQYcQQDNvRfuO6Prgntl/KZRHja43rD bGgjj1qMjN28HV5MSVIX1JGNm2PsiTmdadDqcF33TX/2IP59FqxcAAAAAAAA AAAAAAAAAAAAAAAAAAAAzcf/A/DRX8I= "], {{0, 117}, {193, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{59.66666666666694, Automatic}, ImageSizeRaw->{193, 117}, PlotRange->{{0, 193}, {0, 117}}]], "Input",ExpressionUUID-> "a7e4451a-a19c-44ba-b196-da8a0308e36a"], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnWtsVcfV9633+fJ8QXrEB6R+iFAjVRaqUIUQwsKyKAK5PIDA8Rsntria i0PAwcGGmEC4lYsMJECAEkocAiUOJGmQSS1SEgOBNhBuJZUpVJDEBFwIJlwM pIQQct7/6yVGp/sye/beM3ufs71+UiN6zvE5s2fPWuu/Zq+Z+fnEquKK/5OT k1Pz3/hPcXntoOrq8hf/7//g/5TMqHn2mRlTJv/vjFlTnplSnTfxv/DiBPzv Gv7x//+dYhiGYRiGYRiGYRiGYRiGYRiGYRiGYRiGYRiGYRiGYRiGYRiGYRiG YRiGYRiGYRiGYRiGYRiGYRiGYRiGYRiGYRiGYRiGYRiGYRiGYRiGYRiGYRiG YRiGYRiGYRiGYRiGYRiGYRiGYRiGYRiGYRiGYRiGYRiGYRiGYRimK3Hnzp3X Xnutzok1a9ZcuXIl7gYyDMMwDMMwzrCQ65p8++23v/nNb3Kc+MUvfvH3v/89 7gYyDMMwDMMwzrCQ65rQfS8oKDhz5sy3Nu7fvx93AxmGYRiGYRhnHj58eOPG DYt+a2trKy8vZwGfYEjA//rXv/7Xv/4Vd1sYhmEYhmGYsPz73/9+5plnWMAn GBbwDMMwDMMwSYIFfOJhAc8wDMMwDJMkWMAnHhbwDMMwDMMwSYIFfOJhAc8w DMMwDJMkWMAnHhbwDMMwDMMwSYIFfOJhAc8wDMMwDJMkWMAnHhbwDBMXYvPe O3fuxN0WhmEYg1y9enX37t11dXUNDQ0XL1786aef4m5RtqIYOFjAJx4W8AwT PT/88MOLL74oDst74YUXHjx4EHejGIZh9AMluXbt2qqqqqNHj0Jy4L9lZWVz 5869e/du3E3LMnwFDhbwiSdiAd/W1vbll19G8EMMk/l89913kydPhh9+//33 425LnDx8+LClpeXWrVtxN4RhGM3cvn0b0r2pqQlmLl6EEhg0aNArr7zC8/AB UAwcLOATT2QCvqOjY8uWLbm5ucgff/zxR6O/xTBZwY0bN4YPHw4H+7e//S3u tsQDwndra+usWbO6dev20Ucfxd0chmF08uDBgxUrVuzbt88i1ElbQntAgcTV tuxFMXCwgE88pgU88u5p06YVFBQMHDgQv4KckQU8wxDwq/CuTzzxBBxy3G2J lDt37mzYsKG0tLRv374jRozo1asXPAMLeIZJGI2NjRDw9jIP0pZcuxsMxcDB Aj7xmBbwZzq5desWEvDf/va3LOAZRrBz586uWQD//fffHzt27NKlSwgx5IJY wDNMwoC8rKys/Prrr+1vQW9AdYwePZoL5wKgGDhYwCeeKGvgNQr4K1euvPzy y7dv39bSsPDcv3//9ddfv3jxYtwNUeLhw4fvv//+/v37425IpvDOO++cOnUq 4h+FFdBypC5eAB+BgP/pp58+/fTTt956y/7WiRMnCtN46qmneJFOMFR6MjF+ srGxMf1iJ0+e3NUeoqmwe/fu9evXp5e+C9Cx3bp1w3/TS2swYDBs0jsWgyrC 9voglpBBqAcOFvCJJxsF/D//+c9hw4YdPHhQV8MsIMqgW+CQHT0P3qUHCpbX W1paiouLT58+bahVukDOvnLlyueffz6ROwDgluHuON44CW1tbaNHjz5w4IDp FVU04Ux7f3EBPGFawOOe7tixo7S09JtvvrG/+9e//hU/nZeXxwI+JOkCvk+f Pr/61a/gqO0fS4afRDII/VlQUBCNgEdjaNtAOBBzv6IXBMq5c+c6OrczZ870 799/+fLl33//ffrr6QIeJgnDhHmabmeGhwwiWODQIuBxH3G/cKWHDh26dOlS V3tYnOFknYBHUBgyZMgnn3yisWGC9957D26ZNmgaOnTotWvXLB/A6IVT6tGj x7Fjx+x/jlahJzHaTbRNCxSVpk+fnkj1Dl+6du1ax6mJ9vb2MWPG1NTUWEKG AHcN987QuAKtra3l5eWjRo1atmwZnOqSJUs+++yzrlkAb8GogCf1DsXoqN5T jwR8BDqhSwF96ybgU4nwk/IL1Aj8RlVVVX5+/rx58+A6RowYMW7cOLxo+nfD g+g5c+ZMOLeOjg7kQUKWT5w4sV+/fuvXr5cnI9EYZiaHDCJM4Agp4NEDUDu9 e/eeNm1aXV0d9NvgwYN79uy5evVqo/oBN/13v/sd8gWMHHO/kgwCC3g6SgDZ mfqfhBfwiMIYybA4c2kvrqu+vt6twOzChQsDBgzo37//V199Zf9btKqhoQGW 5aYW4oWaN3DgwKzw/wG4ffv22LFjf/aznx09etTyFsQh7im8mSRqGNIV6HZE B3hRjCuKBXQj4AmzugA+gAdwxKiAxz2F0Dp+/LjbB1jAm0CubxPgJyMQ8HAL W7dufeyxx9544w3htfAPqGL8tJh9RTBFrtHS0mKuJcE4ceIE5B+uAgb+3HPP lZaWQoiWlZUtXboUAXTz5s1yvxeNYWZmyCDCB44wAv7w4cNDhw5FJ6T/Chpw 8uRJysXOnTvn9zsVaWtr27RpEy6ze/fuGzduzNL4GA3BBDzyLyRlGEUTJkxQ z8VCCnjcR6SBJSUlRmcsRYHZ9u3b7WkCDApvkV9y/HPqGUnaHiPwM3l5eY2N jXE3xBSIpwhtgwcPtguD1atX48bBG0hSPxMDjFxut27dLM+Lb9269eSTT2Zv AXwwD+CIOQGvku+zgDeBp77Ndj9pWsCTL4LfQBiyVHecPn26V69eYgL28uXL U6ZMuXr1qqGWBAZd5Obc0LdITA4cOCD582gMMwNDBqElcAQW8DCB8ePHX7hw wfHdS5cuDR8+HFmYuYdouHykeLhM9MCOHTsM/UoCCCbgd+/eTXUmvv4wpIDf t29fbm6uudJ3QlJghrdgqkgMP/vsM8k3HD9+HH+eaToZERN+Xj6fkO3QsJwx Y4ZFFdA0C1yBZzhobW3Nz8/X+IgHLg4BYtCgQZatGMgPZ28BfDAP4IghAY/Y umTJkpEjR8q1DQt4E6jo26z2k6YFPEQL/BVaYs+OyZuJQdvc3Lxq1Sq/Jdym kRTApx5tQTN9+vR79+65fUM0hpmBIYPQEjiCCfiOjo6JEyda5t4t7N27F51T WVlpTk589dVXyBFwd7jKVEIwAY9RDR2LO4gkUX3chhHwuIO4j3ZD0w7tsIo+ scR9XOb27dvRflyFvA1UJw/Ta2trM9pUXyBhd3xQmBhwgyDYcIPefPNNy5g8 f/583759CwoKLl265PklSPx79eqlZdk+xvn8+fPRpMWLF1sirNEd4HEVksio hWAewBFDAh5DHQPec56KBbwJVPRtVvtJowL+8uXLQ4YMgXFBJtnfhbktXLgQ g3bbtm1UXm6umCEw165dmzZtmn0RGUEmj2tsb293+4YIDDMDQwahK3AEE/BI CWkloOQBGe7s0KFD8TF8WP2bfSFqIZKtW0ISTMBj0N7qxFfsDiPg4TBxH01P v6fcd1ilhfOjRo1SCTckHmDXGXJONJKRkSNHJnv6naYmJNWMitkfJf6SKil1 aMUEvJx9oRPN/BgqgD9y5AguATFI+zcLgnkAR0wIeIpcntPvKRbwZlDUt9nr J40KeHIOEvVIkXTDhg2NjY1r1qzJtOn3VFoBvOO70O1Q746FK4IIDDMDQwah K3AEE/DLly+np6voHLdd+oW6njlzZvhlUG6IVAJ5Voa4iEwjK3ahoen3CJ6k uBXAUzEtjFRxrdDdu3cnTJgAH3X58mVjjfUBle5nabm1IlTN6Bj1yCPJqxkF NPvRq1ev8DvdId/E79qXPJveAR5RL5otMrRgQsCTMnzllVc87zgLeBMo6tvs 9ZNGBTwFSol6pPJs9Ft5eXlmLgR+qxO3d1WmkSMwzAwMGYSuwBFMwG/duhWy uWfPnvINdjZt2qSlhFICPYqioZ4hLiLTyAoBT4kYvJahhgkcC+Db29vHjh2b n5/vyzzhvjJEM1OUREbvtiYlGShWMz548EBlVhafV5F/cmgM2E8btNQxws16 Pqj1RRcX8BRPIeBVToFhAW8CdX2bpX7SnIC/d+8eLQ+X+B/qNPUJpYi5f/9+ TU2NxKZon7cVK1ZInh1EYJgZGDIIXYEjmICn7cVUHkJRfYu5w7ZEjZPRWp2s JvMFPGWdRseJwF4Af/bs2cLCwokTJ/qVWPRVERTtK7bE6KOu2BGWvnDhQosL tUyzYBQtW7ZM/tCZ1liFf+JDz2EnT5783Xffpb9umYCC80dyqvERYRcX8HT7 JM9/02EBbwJ1fZulftLoDDxN/27btk3y646+LkOgAmk3m2praxvUiWV5pgXT hpmZIYPQFTiMnsRKg9DoCdqpR89StRwAmkgyX8CTacgXvOgivQAeg3/79u39 +vXDfwOUjlOynAnz3vSoSxIOEoDYXMvijWmbL7yOFOz27dt4ZfPmzY5Lw9JB BEccD58zUm2kxQ9DqNBjUBpmaO2rr7766aefhvkhC11cwFP4U5Q3LOBNoK5v s9RPGhXwBw8ehPNxG8Bnz54dMWKEo8DLEOA20X70p/0t2j40NzfX8wxT04aZ mSGD0BU4dAn4O51YXhSl8pJaqfBQ+bRjQRGT8ingOzo6MJLffPPN8+fPB8j9 gwl4ejjlawIZXuLIkSNwIE1NTRcvXpQ3VTRGFJghq4VoR8qwYcOGwAm1+Daj +aknZMK+HMvDhw8RTHft2lVfX3/s2DF58oIP65oFwvdcuXLlww8/xI3zPIUN H06fEqE5E8tjR3i8lStXLlq0SDjDq1evwvtdv37dszEUzR1jkDp0xkrv3r0R c+kVRIQFCxaQq3/ppZdwCW1tbbW1tXqPnDMn4EN6AEf0CngxsbZ7926Vz6vo hDAjM0biMuSUH32bpX5S5QID9z9pSHy/ZZ9tuK+XX3557ty5aCTCU1FR0c2b N/G1s2fP1m7sYQYPOuf3v/89XK7lvPLW1taysjJkHydPntSyOCV5IYPQFTjC CHh0BTq2pKQE2RYGW2FhYX5+/rJly6grhNmaFvCpRys+MqTQLtNQF/CHDx9+ +umn33vvva1bt2JIYID5WnMNJVxZWYm7ABP2te6G7EKxAB4jdu3atXRUGQHx D49HqbQdDOx58+ZRagBbwAX26dMHI/Mvf/lL+A1bfLXcEPT8Qn2C69SpU5Tw Cvr164c039HfYgAsXLhQy5wD8qzy8nJack7Ab2CwOWoh2rkrXaFRNSOcDKID rhd+BtliaWnpxx9/DFezY8eOxx9/HH54/PjxiAgqQoVmccPXHcENIg1EHy5e vBgjDcHi+PHj+M6NGzcifOAVNEnX0ieBIQEf0gM4gvvb0tJC+/2++uqr4au8 xNGKisPSUyeEHJlxEZchE74mqLPRT3peYMj+h99oaGjAnyAYQczDocGbVVdX w1ho4B08eBANqKmpgc7EJ/XmjGEaL3aAh9KDwoTHqOsErq+4uHjPnj2KgdW0 YWZsyCC0BI5gAh4Xu2/fPvw0egZpkXDyeB1tqKiogH4ThxFE8PiSCodyvE7F 7ZooCvgzZ85Mnz6dilggdDHOIZJh5p7fT4VSsKzC/wSvqKSr9GRKcT4NHmPK lCk5TjieOICRCeuQHLMeElpLPm3aNNObckugp5kq9cAwT3jX9NxHgBcdjRSW NX/+/PDFq2gkSTgLbqewtbW1VVVViYcj6dv5wnvjSjGq8W66vMTdx4v254Bu nD17tnfv3sOHD9dS00i/jq9KDy70ogmPZELAB/YAjlBkwS3Ly8tLdwuDBg3q 3r17mGe+tAObuhKT64SQIzMWYjRkgS8Bn11+kpBcoMb+hwfDWLJ7MwLB0ZdP UyF8469du4aQLUyAvFwAR2fUMDM/ZKS3IXDgCCDgcR/XrVuHbnzuueccpz3x VWvWrPnyyy/hY9GBhgrs06HV5fgtjfv8BAYiE6q1ThPIj7ScoiIX8BgGMElx m2gT1xzzj05StlPnJIiz3WHXK1asaG5uPnDgQFNT09SpU7t1Yj/yD9J99uzZ 5hZPUVDQa9F+oWkBldT1k08+gYuGfEKH79q160AnyPeRieMb7KdFo9/mzJkT /oQF2mAfN6ioqOgPf/gD/S7+QWUV+fn5ra2t6Z/HgF+7dm360zTJdr6BIR3Y t29fo7upG0K7gI/RA/hFrEOHZ1P5vEQnhB+ZsRCXIafjS8Bnl58kJBeYCf0f mPCNl+8Ar45Rw+wiIcOvgMfnFy1aRNm0/QhgAmkjch/aajLH8DaSAtq2COAf pn9Lzv79+2Ed9swxGI5HLftCRcBDDC9YsEDUiot1wRFULVLz0ovBHKEHZPA8 27dvtwvykydPwqgtzoce/Bl1m1Rlp3d9Fm3xpD4zoLhfAe0MUFZWZnF9qU6j hsH26NHDkgHBJ7z44osh05+Ojo5x48YVFhbaqyJxg+AlYCyWU6rR1MrKyvRb Sf0sPxbELzTwotn7SDvaBXyMHsAvFPfV1/e56QQtIzN6DBkyLvPixYsNDQ11 dXW7d+/23FXPl4A34SfpoDFYseJZY373dXG7wLgcqRa0NB49oyWHNWqYXSRk +BLwYvWuPQOysHPnTprA8ZXzhkEsWEBe6VYO7Qk9sQJJ2o7PU8AjaiN2CzuC XbzyyiuRZV504zxjAd7FqJOcO4CcPS8vL12unz59eubMmUbHHtVV6pJScJLP PfecyN3shyw7QguH8V/JZ3CLly9fLkm6Ydrw3ulbveFP8J3hD8aFtx81apSb F8VgQ0Zm2ZsLObhl4tdtO98wqD/6yUD0Cvh4PYBfSImphxU3naBlZEaMIUO+ fv363Llz8bGWlpb29nZkc0OHDl2/fr1kltWXgNfrJ8GKFSv8znGp+Ml0HC8w RkcaHi2NFwXw4dtj1DC7SMjwJeD37t1Lk+qeu9nTrSGiWboC/UYCPlh+dOnS JXgY0eY9e/aYaGQseAp4GEJVVdW1a9fo/9IWr+iE+fPnR7Atp4qAJ0VhSbrt n9m8ebM4kBf/xcAzfTSAiZQcXmLixIk5yiuyVQLTV1999eSTT8qT7ra2NnxG 3AX8SXV1dcinPxhaZWVl8jUIHR0dEyZMEC4RfwKvm34om6hmtByeGxJRpJ0J CxL9olfAx+sB/KJFwGsZmdFjwpDx+UmTJh07dizduKAHevXqJXFBvgS8CT/5 8OHDl156SUWNEFoEfFyOVAtaGm8pgA+DOcPsOiFDXcBfvXp15MiROWp15kLA R/O4AeOtoKCAmqdu0XZokULCtqP0uw88HYoqDilzY4FP3JQACXh582Cw06ZN 87wp+CpEIlqjhA9PmTLF9MNusT+expSc5BPGoeIZfBSY5IuFm5qaPI2CnB65 JsqYwj8nPXXqlMoaBMRKkebjRy1Nxb/Xr19fXFwsDz1+Ed44o8q8cbG4WUVF RYVS8vLyYKFwevKPlZaWWvZ5U8GQB/CL2++SgFffq9ZRJ2gZmdGj3ZChzWpr a+2uhjybJEsKIOD1+klhv/v371f5vIqfTMfxAuNypFrQ0nh0O2SSli1xzBlm 1wkZ6gIevaReEiOOcNJ1cJUEUu9ItaDZaNls4B89cuQIwpb9fNusxpeAF5t/ evZhnz59PAv405ELeM9TnH744QfP0IlhWVNTQ7X09Z14XW5YTAQmy1lsnlBg kp9OAn+rsuYIV7F48WL08+XLl5EKhZ9sxFfhxnl+DGOgurr6u+++g5yYPn16 NOvQM9Abpzp7DBpDLsvVBTz44x//6KsB6h7g5z//uS8P4Iv8/Hy33/VbzOyo EzJ5ZErQa8j4wLp16xoaGuw9SZ5NUo8au4Cnshz12TYVP5mO4wXG5Ui1kGmN zzrDzMCQoSjgxTYvOQo5bPoO8KanLGi1cl1dHUYmfnf+/Pk5nRsNBXMUtF1t 7NMsevEl4OmAMJW7fM0ncgGvqx4AWfnBgwchPKZMmRLBYxTqW4w3pH66vpP0 CR3loPJ5v4+GJVy4cKG2thZeMeLJRuTLVVVVyOCOHj2KFCya1V7CG+/cuTOC n9OLuYOczHkAv7j9rq4aeBViGZnhUTRk3OsZM2bcvHnT/hZNI9CJkI5/G0DA 6/WTdPyfOEzTEy0lNIrE5Ui1EFnjs84wMzBkKAr48+fP9+3bN0etJEYcjWp6 U0dS7+mLMujhb06g6s179+7RLoVJKoBP+RTwtJlPlLtx6hXwb3Vi2VLDHLTb nt7lhJT8qj911SjgMVTgDeDAI55spKMG//GPf+CumV62IECEmjx5st5Zwcgw J+Cj9wB+iVLAxzIyw6NoyKtXr25qarIrNKqd6Nmz52effeb2t770rXY/mfI/ 2xalgI/LkWohssZnnWFmYMhQFPCipl1FB4otyLRsFuoGqXfLauVrj5ZfwV34 ffTj95GcGydPnhw+fLjno21F0Ich91FRF/DiOUuU52GRb/fcRlIRDFTkbvDS 0Wy6S9mHysawtDmk42kd6VxLK4AX+6TJ90Tatm2br4oCCeQV3333XbdNz8QW l45NovMygpk8btk777wzY8aMyPboMzErGBmGBHwsHsAvdCpQ+G0kFVEfmeJQ nti7ztOQU51zmNOmTbt06ZL9rU8++QSSYPv27ZKHgAG2kdToJy0F8Hfu3PHs dr9+MoyAV+n/jCWyxkdmmLrwFTKEN9B7DpcFvwLe022KOpZevXo5fifM5/bt 2yGFPal3gH9Yvpw2QMtR2MHYIpB0FcB/+eWX6CUt6h2JwJYtW0L2lbqAp+M2 LNO/9fX1TU1NYRoghw5c0JXV4kuKiopg1IG3EvWFypky8IFvv/32gAEDZs2a BZ+Di0U/Hzt2bOnSpfa/oluAS8DohZSaN28e/gR/u2HDBjdfSvtlaVFctIjg qaeestvOF198kZeXR5blVqJGu1StWrUqwE/jMidNmqS+xCw82re2ixJDAj4W D+AXaqSWg5xUUBmZra2tVVVV+fn5MNhly5aNGDFi3LhxehfQ+UJiyAIMHrQW XuXixYtwNQg3Q4YMwSUgePXr1w/6TR53fOlb7X6SjtSBAGhubp46dSoEJ7p9 6NChc+fOdfP8fv1kSAHv2f8ZS2SNj8Aw9aIYMtK9QV1dHYbc2LFjYWUmmuRX wHsmsGI/drdN/xobGx2jPFoCy3366ac986mWlhZYbs+ePR13BRfz/zNnznSb ukSa//HHHw8aNAjXDsMvKSnZs2dPIgvgU34E/OrVqy0PWeAMIYZVHknA2+PW 04lp+Lz6RvqicknL1kw0UCM7zIt+ThIU2tvbYbxIxJDW0SvffPMNxltubi6M zr6brlj9PWfOHGEItKWb28ikxFP9iHAJ5A0kT68+//zz3r17FxQU2CfucMdh cb6Kf9KBN464bIM8lboOzCgMCfgwHkDQ1tYmRrsnd+/ehUiD08B/Fbfao3pO 9VOBwusEycikk2Uee+yxN954QzgBOtYWN0gY+I8//rhy5Uq3faVoKknjvL2n Iac6Be3GjRvx07hZ8FHjOoGSX7JkyS9/+UvH0pp0fOlb7X6SCuBzOo99Eb6I Tily2/rbr58MKeA9+18XsQweLRg1TBN4hgzyBtCfmzdvFnfk+vXrL7zwgt4d 6QWKAl7IcnkJGdqPFDincwcDx01FJCW+lKQjiZYsX0o9Uu+wRMe186m0GV23 YhiECTQS74qdb2khc48ePZJXAJ9SFvDikIL0/dmQDUFJygcebjrNnMyePRv5 5rPPPksnNS9dulQxIpNs0HJegLnaYEdIby9fvtzxXcSgUaNGYaRZAjfNBdmH utDAGJ/pXUeld27jmSajtJxySN5A7KVvh44jdzw5hRY/IoAijAb4aTiWiMs2 KHwgeUQKGdmP6sLEOA/sAQQdHR1btmyB6FLZ4xEBAuMcAwYhDwJ+165dTz/9 NFSu5wNHcUi64gbF4XWC28ikkw0RjOzVJtAVUBdiJx9oIViN4/Gm4nhEtymp AHgaMl7HjzrWGdKp9J41jb70rV4/mXoUMpBupMsMtHzhwoWI445bp/r1k+EF vKT/dRHL4NGFOcM0hDxkuHkDDHv8lfpqa1/43YVGMq2d6qydw0CyV7YIrrnv cU3WKln2nnqk3vEx2nbG7WNk3Y5pAi4E/Y9G7tu3L3180mPZhO0ATygKeLHT l1hhjbFRXV0tP1IBd2HFihULFixIz0nhVBGt8FWS89TSIVkoH1qKHDx4MDKj pnjh9uyATrWj3Twswd1tqJN1IGpYzEcUfDoe50e6S8uBC8gUKioqJB6VfBFN 3KW/TkGfsrAAWwRTT0a8NxfVxCqmjdEUNKpjQsAH8wCpzv2l4VQLCgoGDhxI x+F5CvjDhw/36dNn1apVIhPEGPjTn/4ED+xZXypmgRSf2YXRCfKRuWPHDsRr x3zWcmhjc3MzLtbRNOjwEQpYunZd9jRkSQF86tFkGhy7RMKp61vtfpL8IXre Llkle0X69ZNhBLxn/+silsGjC3OGaQh5yHDzBu+++25+fv6f//xnEwmR+j7w EA9yiUvqOjc3V3JqMOlk+0gTPllyR4R6l5wFTNDsh/2ZHR3CS/HFMqdEDUvY DvCEooAXixeo8g2+FH21bt06+ajbu3dvTU2NXTBfuXJl+PDh+LaqqirP6Tua G/F8+KLCpk5CfokiFBHcnDwNQrsalwx1N+sQD5XcihIpYw3vzTBCcEVu44Su 1zFu0jnIuONukkAOvhkhQ+UwaF3QXVDZbzbKgkZ1TAj4YB4g1Xn3AUYpPkkK Si7g0fiePXsuWrQo3W+Ijc5U7JekneIkYRidIBmZly9fHjJkCIYQfKD9XaFa EfQ7Ojqef/75c+fOOf6EuPAcfeceyg051flIffbs2W4THfTAXb7eTV3faveT ogDeIkXEE0y3IeTLT4YR8J79r4tYBo8uDBmmIeQhQ+4NzKEu4MXDGrt+hrNq bm7GaEeYO3nypORL3Pa4hmJB9HesdiNo1aripK6YsbSUSIlOtiuQpBbAp/zU wEOWDBs2rKysbNeuXePHj9+wYYP8cTY5zD59+tTX19vjNXWpSpUaFP6MGTNU BqEcuu+RrRuiMOc24U/Bwp6PkxqXFMDbrUN4abfUmNZ9qJ9N6QZc07hx49ye 9FEz7AXwbk+11EFPFhcXRxAyBPSwQ54zRl/QqI6hUjG/HsCOp4Bvb29HiopR 9MUXX6S/Tmug4J/lEYSgei3JMUPphNEJkpFJSYTjehCCugJ92NjYuGbNGrcn UzAZ9HZubu7gwYOfffZZXWv5JYacSiuAd3yX5nXlD/3V9a12P+m2AzypCLcZ +JRPPxlGwHv2vy5iGTy6MGSYhpCHDE9vYAh1AZ96FNG6d+8OQYhhg6bCkeIf JSUlMKja2lpEN8mfS5a5eZ4+SdoGCYL6qhkoipz/3MqSOhmNt9QiioYlrwA+ 5XMfePTV559/fujQIcdyTQsiUXL8crHwWUVR0zm/ISfPL1y4gCuNLCunNjvO 54gNY+0podtaD8nyECoxkjz8opMXFG+xBARTSXRzLICXlAGrA8NUFGO6oFAu mcKNpaBRHXNrPXx5ADueAp72mYdWD5MB+Ur5w+gEycikK5WkciRNkZKUl5er VBKmOsOcFg0mN2SM+aVLl0p+iCxdnqWq61u9fjLlPttGfwK7dttD2JefDCPg 5f1viGgGj0YMGaYh5CHD0xsYwpeAJ+DY4YRLS0tpq8MJEybs2LFDxdtTCuOY U+/cuVNeAA/N0NzcrOgGU50+6vz58wcOHDhy5Ah1qXimae9kXTvAZya+BLwv YOPwoj169MCots+u0HbNigKeHo5gLCmue3UEP2TiMh0hCeE2ZkQ5sT0ltBR2 IgumrhOWaLEOUdggP1UBJgm1GeZIC3rSLcmh7AXwaM/69evh1hoaGgKrd8pc oox3tNmsJNCnYipoVCfixdrqyAW8qAwPX+5FZ/ap7DcVWCdIRqbYO0vy0JYm nexrMyWsXLkyfBWEpyHfunVr0qRJboNHOBwM9fA18Nr9ZOrRGLP/CeWG48aN 6+jocGuPup8MLOA9+98Q0QwejZgwTEPIQ4aKNzBEAAEfGMUCePTAlStXtPeD mC62Pzq0FMC3t7cnqRLenICXQ/Mk6gud1q5dK9dUnt+APEL9eJeQUOmmm8EK oWIperEMdYzJOXPmUGgjJ2Df/IGqBTxlQGtrK4RlmBkAetLtVqVjL4DHK2h8 v379Dh06FFi9px7l9W5PvU1A2aKkr+IqaFTnyJEjffv2zToBL9bcIddG59Nh B4WFhdXV1XDCvkYRgkhJSYnKwr3AOkE+MimflYxbEvDqJwfBG0A5h/fSckOm D6DP3QYPbVoLY79586bkVxT1rXY/mXrU85Y/odl1z0I+dT8ZWMB79r8JIhs8 GjFkmCbwDBme3gDWFOM2klogh2aXWJaZ+QsXLsB4w8zEOiJ8gr2T0x/JSfbX ylJiEfDkTtGr8CqK45Z28Q18ei/VTGrZi9ITjCUYLAKB21kt4kAxiyc8efIk wpnIUxCS0D9iZqm+vv7xxx8/deqU+Lwo5HDbNDX9Fzdv3ux2epoKu3fvluyx ll4AD6F1/Phx2GxtbW34vYKh3HJzc7Usv1IEjgiBXrK5SlwFjepgYGDAh8mb DCEX8PRUDq7+008/xeD54IMPMPhxFZANcBcQ5L72IEV61aNHD88kK7BOkI9M 2tXBTZ8jVRkxYoRjvHMDWhdeJfykotyQU4+Gt+ODUdrREZ7Nc+GSir415Cfp 4Uv6DDy+Bx4SL8q3p0v58ZOBBbxn/5sgssGjEUOGaQLPkCH3BmjqpEmTgm2w LCcyAS/qzC0OTZje4MGDqUIGjgUmZuJJBBXjWQT8119/Dd0oHslBeSKyZOPZ Lm5EL+DFbj/Dhw/35Qp27NjRu3fvYEORJveiWcFK0xS4RskoPXfuXP/+/aFn yKnik/BUsGJkGbSwF69AsafLD9q6RzwhQiTCB2Cb7777ropUo+WBwTIgKjCT VBVSWeyYMWM+/PBD/LeyshIXqEVAwh6jHJxXr14dOXLkkiVLJL0UV0FjApAL eJrDQZaKIXT48OH0tyh/93WOAIIXxqG8ZCIVQifIRyYl1/btUzDAXn75ZZgh ovaQIUOKiopu3rxJx9NL1CC6a9WqVeEnjjwNmWaoEHMnTJiQrqvxOmRzYWGh 4hmyKvrWkJ+8e/fulClTRHUNPoDYDT+5bt06FYNV9JPBBLxn/5sgssGjF0OG qR2VkOHmDeCaVq9eXVJSon62nS8iE/A0zW6Z14IAgCeBJUK3wNfBstCeefPm nT9/3kQbyHLTMwiovoqKivLycjRs//79qc5ZHbiLJO1FE72Ap+MAEAvSJ5NV oP1MEJQDbOQe2dQBYkRNTY3j5s8WaBYOowumDa8IQ4Y5I2DhRQiYWbNmIdBb Ig79CXpg2bJlo0aNwt/C8NVHI3oePiSAS/R8frF+/Xrc0/HjxyObwIjSZSCU 12s5AkAFqtSCt0Gu5PaZGAsaE4CKgHdcxEolcOqbQxIIl3l5eUj8JZ8JphNU RiYuAfGrX79+uF7YOGy2tLS0urq6paWFctuDBw/CHuEuEHTk60TQPEjK8Amj pyGLHeAvXrwIDY+GUcsRGeFt0AzF9N9T3xr1k7DfiRMn4l38SVlZGS75+PHj 6vMJKn4ymICP8kGwILLBoxdzhqkRlZBBkDfo3bs3PADZ1FNPPQXpjuzS3ME0 kQl4qjPPz88vLi7u06fP4sWLcYEwwLfffhsXDkeXm5sL3TJ16lTF+cZgkOEX FRXRmaEY9pcvX4awx4vDhg3D/62trY13fwntRCzgacNPOFWVaRw7bW1tSOU8 K0bsLF++PJojnBobG6EZ3I4qs4CRTAcApTeMXgSO45yOxg52ZhA9IFY8Pysd pMy4axEc3mGBdn6L7DwORHkEZc8jC+MqaEwAigJ+165dbu/69VR79+6V22Mw naA+MsUhX/ivXf1CZnjaMlRiRUWFX5t1xNOQ8Vvz5s0ToxcN+7YTv3LIU9+a 9pOi8XQAga/Gq/jJYAI+ekca5eDRi2nD1IJiyBAIb2AZzIaITMCn73Ht6DTI 0QUwRr84CiR60dEDZztRCng4k4KCggULFoRZBYxcD631dTA0DWOVLSlCgnjk t20Rg65YtGiR52FnFuBFkTeFL2j3CwbMoEGDPAtutYAY98QTT6jkhnEVNCYA uYCXby1L71qWgXhClWa4s24aJphOiHJkHjp0SNfRYJ6GLN8BXh25vk2Anwwm 4KN3pFEOHr1kvmGqh4y4iEbAS3aAZ0wTmYAnp719+/bwk5NQUPAkirM3qc78 6+jRo/JtE8Jz4cKF4uLiwMcVRQZCUlVVled6rnTa29tVDtDRDpp65MiRCHYD u379ekVFheJm9XEVNCYA9V1o7O/6OjkiHdyvlStXTp8+3VGM0ddWVlbWdbJm zRrPp+GpCEemXuSGHHKLhnPnztU9YsyYMW76Nhl+EgIeWfwLL7xA1/vaa6+p PBKNy5FqIYLGw/RggNSlMMkAAj4zQ0ZcRCPgqQAerlt9R1xGF9EIeNzZYcOG IfJaRvvy5cuD7UmFWD9//vwAZSSGQFaybNmybHHOaO2mTZs+/vjjuBuSKWzc uPHDDz9UVxSxFDQmALmAF2dlOkp0WiitcnazHbid9957D9HW/pbIC4jM3D8/ GkQBfLA/V+nJxPhJUe5FIIYmaWuLuKB1zekdG33dpiJ+Q0YsRCPg3XaAZyIg AgEP9T569Gg4bctov3379vTp07tsuGSynYgLGhOAXMCLbQM3bNhgf3fbtm14 C55EfqI3ExhLATzDMFlNNAKektnFixdn8sOIpGJawEO9Dx48+PXXXz9gY+vW rSUlJcHOZGcYJuuQC/jUoyk4uAXLMhk6slPlyAMmMOhzX7taMQyTyUQj4D/4 4IMBAwb43VSQ0YJRAX/ixIn+/fvnuBPNzjAMw8TOjRs3qK61rKzMbUmpOPgj /bAP8eKiRYvYXTAMw6gQ5UmsTCyYE/A0eCTqHWg5Ho5hmIyFHrDm5uYW/id4 Ba9v2rTJ8nnI9V27duHdioqK5ubmjz76aO7cuX379t26dSurd4ZhGEVYwCee 6A9yYhiGkYPQc+zYsfr6+oaGBvzD166nDMMwDAv4xMMCnmEYhmEYJkmwgE88 LOAZhmEYhmGSBAv4xMMCnmEYhmEYJkmwgE88LOAZhmEYhmGSBAv4xMMCnmEY hmEYJkmwgE88LOAZhmEYhmGSBAv4xMMCnmEYhmEYJkmwgE88LOAZhmEYhmGS BAv4xMMCnmEYhmEYJkmwgE88JOBznOD7zjAMwzAMk8mwkOua3LhxY/LkyYVO FBUVnTlzJu4GMgzDMAzDMM6wkGMYhmEYhmEYhmEYhmEYhmEYhmEYhmEYhmEY hmEYhmEYhmEYhmEYhmEYhmEYhmEYhmEYhmEYhmEYhmEYhmEYhmEYhmEYhmEY hmEYhmEYhmEYhmEYhmEYhumC/D/qKIjZ "], {{0, 96}, {1003, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{439.66666666666765`, Automatic}, ImageSizeRaw->{1003, 96}, PlotRange->{{0, 1003}, {0, 96}}]], "Input",ExpressionUUID-> "729dbf92-9687-4a68-b6ec-5d735e05af29"] }], "Subsection", CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, { 3.551726509418762*^9, 3.55172651497108*^9}, {3.55172724701795*^9, 3.551727256939518*^9}, {3.551740442654239*^9, 3.551740446534461*^9}, { 3.5517456641776905`*^9, 3.5517456679599066`*^9}, {3.5517550060720167`*^9, 3.5517550152525415`*^9}, {3.738588447836997*^9, 3.73858845417936*^9}, { 3.739026580352948*^9, 3.7390265955748186`*^9}, {3.7608161947106695`*^9, 3.760816198633339*^9}, 3.760964245330805*^9, {3.7609642833925004`*^9, 3.760964375100518*^9}, {3.7609808204315023`*^9, 3.7609808628119802`*^9}, { 3.766162795908821*^9, 3.7661627962863693`*^9}, {3.7661628551232877`*^9, 3.7661628554405737`*^9}},ExpressionUUID->"f8fc6527-d844-4faa-aa47-\ 5379d276b51b"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Z0", "[", "Rep", "]"}], "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"I", " ", FractionBox["1", "2"], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]down", "[", "nu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"\[Gamma]\[Gamma]stdownstup", "[", RowBox[{"nu", ",", "mu"}], "]"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], " ", "+", " ", RowBox[{"I", " ", FractionBox["1", "16"], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"CommuteGammastdowndown", "[", RowBox[{"ap", ",", "bt"}], "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"CommuteGamma", "[", RowBox[{"ap", ",", "bt"}], "]"}], ".", RowBox[{"\[Gamma]", "[", "mu", "]"}]}]}], ")"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"ap", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"bt", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"\[Lambda]", "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"cc", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.7609643847744884`*^9, 3.7609647103138795`*^9}, { 3.760964758346478*^9, 3.7609648326262712`*^9}, {3.76097892907094*^9, 3.7609789318506594`*^9}, {3.760979273412134*^9, 3.7609792737026324`*^9}, { 3.760979428846602*^9, 3.7609794325460186`*^9}, {3.760980876912422*^9, 3.760980878432088*^9}, 3.7609809246638565`*^9}, CellLabel->"In[53]:=",ExpressionUUID->"4274ee51-f776-44e8-a7c2-f96525d83525"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"AlgebraDD", "[", RowBox[{ RowBox[{"Da", "[", "ai", "]"}], ",", RowBox[{"Da", "[", "bi", "]"}]}], "]"}], "[", RowBox[{ RowBox[{"\[Lambda]", "[", "ci", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"ai", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bi", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"ci", ",", "1", ",", "4"}], "}"}]}], "]"}], " ", "\[Equal]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Closure", "[", RowBox[{"ai", ",", "bi"}], "]"}], "[", RowBox[{ RowBox[{"\[Lambda]", "[", "ci", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", ",", RowBox[{"{", RowBox[{"ai", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bi", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"ci", ",", "1", ",", "4"}], "}"}]}], "]"}], " ", "-", " ", RowBox[{"Z0", "[", "Rep", "]"}]}]}], ")"}], "//", "Simplify"}]], "Input",\ CellChangeTimes->{{3.737165038807296*^9, 3.7371651069241114`*^9}, { 3.737165285723156*^9, 3.7371653236966653`*^9}, {3.737166072620324*^9, 3.737166083371173*^9}, {3.7371664781159277`*^9, 3.7371664922267447`*^9}, { 3.737166597004206*^9, 3.737166633087201*^9}, {3.737166738894637*^9, 3.737166787775541*^9}, {3.737166826249361*^9, 3.737166843063713*^9}, { 3.737166945574005*^9, 3.737166965544831*^9}, {3.7378160718355637`*^9, 3.737816075715786*^9}, {3.737915386227641*^9, 3.737915453149469*^9}, { 3.737915553583214*^9, 3.7379155748934326`*^9}, 3.737915634740855*^9, { 3.737977969949746*^9, 3.737977971093811*^9}, 3.7379796545120974`*^9, { 3.73858845803458*^9, 3.738588469810254*^9}, {3.7390265990390167`*^9, 3.7390266026382227`*^9}, {3.760964774900346*^9, 3.7609647842051296`*^9}, { 3.760964936938793*^9, 3.760964937725939*^9}, {3.760978935721122*^9, 3.7609789390416646`*^9}, {3.7609792776018906`*^9, 3.7609792779206696`*^9}, {3.7609794431470985`*^9, 3.7609794451671524`*^9}, {3.760980885962554*^9, 3.7609808881028013`*^9}}, CellLabel->"In[54]:=",ExpressionUUID->"0c2d19a2-6b8b-4a03-842b-36835efdad3a"], Cell[BoxData["True"], "Output", CellChangeTimes->{ 3.739101633349015*^9, 3.7391972344039145`*^9, 3.739198085709606*^9, 3.760964942153036*^9, 3.7609649948620872`*^9, 3.760979265754523*^9, 3.7609808939614754`*^9, 3.7609809367907686`*^9, 3.7609810676103206`*^9, 3.760988611863763*^9, 3.765632141283599*^9, {3.7657367752027807`*^9, 3.7657367904694424`*^9}, 3.766162748563738*^9}, CellLabel->"Out[54]=",ExpressionUUID->"e7c6827a-f384-4b5e-86b8-a02c83698568"] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Holoraumy", "Section", CellChangeTimes->{{3.742225197042542*^9, 3.74222519916434*^9}},ExpressionUUID->"506208ec-72d0-4aa8-9d9f-\ 54191bcc9604"], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnWtsFFeWx1u7X/YL0ooPSHxA1iJFFkIoQsgC2UIeBCLZ2AKbxWMQYF6B YDD2YAzmHR6BMeYpIInFOMPTaeTEhkRMGHsgNhaPgGEYCI8MSXAIngFMYDAw wBiI9799lqNKvbqqurqq2pyflMjY1d23q+69/3PuOffc/5pSNGr6v4VCobn/ gf+Nmlw6pLh48sL/+U/8I6dwbv47hdPe/u/CkmnvTCseNOXf8cvJ+K8C1//f z52CIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiC YMrPP//c1NS0devWn376ye+2CFZ5/PjxRx999Pnnnz979szvtgiCIAi+AREP h8Pdu3cvKSm5e/eu380RrPLixYs9e/Z069Zt2bJlIuWCIAivJhDxqqoqaMG0 adNExBMOyHdZWVkoFBIpFwRBeAWBiNfU1CQlJWVkZPzwww9+N0dwAkv59u3b 8UD9bo4gCILgHY2NjRDxgQMHnjlzxu+2CM5pa2vLzs7u1q1bXV2d320RBEEQ PKK1tXXIkCGY/Gtra8WPS3QuX74Me6xPnz7nz5/3uy2CIAhC3Hn8+HFBQUEo FFqyZAl+9rs5QqxwnsObb755584dv5sjCIIgxJdwOIw5f/Dgwd99953fbQkE z549O3v27Pvvv79x48Zjx44lom3z6NGjadOmwTZbtWqVLLAIgiB0YVpaWtLS 0qDj8OBkwgfnzp2bOHHi7t27b0TYvn17amrqiRMn/G6XbZqbm5OSknr16nX6 9Gm/2yIIgiDEBTieixYtgtc2ZsyYtrY2v5vjMzBjjhw5UlBQoLwV+CWkfODA gdeuXfOxbQ54/vz50qVL8XAnTJjw4MEDv5sjCIIguA+5bD179vziiy/8bov/ XL58ubS0VCt5x44dgxru3bvXl1bFwjfffPP666+j8bW1tX63RRAEQXCZp0+f FhYWYpIfN26cVH25d+/ejBkzIOXaP5GOV1RUeN+qGGGXXBLeBEEQuh6nTp2C Jy57zYiamhoo9YsXL7R/wu8hhQm6ZHHx4sU+ffok6HqCIAiCYAR7ahkZGTdv 3vS7OT5z//79mTNn6laxg5+enZ09evToBF2y4FWXnJwcfE2/myMIgiC4w7Vr 1wYOHEj7krpSLe5//etfP0XAD9ZfdebMmUWLFmnvA5U5xY36+uuvXW2mp3z2 2WehCEePHvW7LYIgCII7VFZWYmJ/7bXXTp486XdbXODnn3/+y1/+kpeXN3z4 8JUR0tPTS0tLLSbh7927t6amBj/U19dnZGTgTX71q1+99dZbY8eOzczMvHTp UkLHHf72t7/h6+BxFxcXd3R0+N0cIRDcu3fv7bffHq7gwIEDfjfqlQBeg/K2 //rXv/7+++/9bpSQeNy/f3/06NGY2HNzc7vAIeOPHz9etWpV3759Dx48yD71 3bt38R3feOONH3/8kX7z6NGjJUuWaIMI8NzhjP/5z3/ujLiuI0eOxPw2atSo hQsX5ufn4x1aWlo8/Dbu8/z5c3wXPO7U1NTr16/73RwhEGDgo28nJyeLjnuM Usf79+//+uuvf/PNN269+YsXL86fP3/r1i233lAILOhIPXv2xMS+Zs0aTPJ+ NycmoM4zZ85MSko6cuSIyms+fPhwt27dCgsLnz592hnJ+PrNb36D61XvcOfO nTlz5sA90b45fpmTkwNZ/+c//xm/r+ABvLSeoBvQYGtdvny5oaGhqanpxo0b QYsEoVM1NzcnVt0/0vGVK1davP7hw4c/WQBDRjdZNGigkWiqlW+ELx6/Zuzd u9ddHa+rq8OkJ0mtrwIbN27ElA4pj1/AFJIKzzccDk+aNAk256BBg9gETY6Q lZW1adMmTM4YULj47Nmzs2fPZt/ZIjBCysvLjaL8tJ7Mw6SysrK6ulq7Qm4U HCcqKip69OiR6NEH3kheVFREVk2i0NbWhqfTr18/WGtlZWXQnaFDh8JsQx/W mmS+QMWU3J2NPcCWjn/44YchO3Tv3h0GMKzHgDwjFQ8ePBg3bpytb4Qpq7i4 GHOFu1aKuzp++/btESNGoLXWzTPBMegJkBh4FvAvTp8+DbPQbvgV7oljuxd9 eMKECXjWgwcPhmvj4B3MaW9vr6qqSk9PHzt2LAayrveE9l+7dm3z5s2Yn1NS UmbNmoVhsmfPHrsSQ5uqjA72ghMNV5ryu1pbW/EpukGEvRGMPgJ/wjvs2rXL VsOCBj90GDboe343xyonTpx488036+vrlV2IrD6yCa9evepj8wj0LlrdOnbs mN9tsYEtHcf9J+/10qVLeBVJ24oVK2BlaR1YiB3eFrYWrsHo1i6UBYHHjx9T a2tra+nx4f+HDh3Sfp1bt27Byc3Ly4Ofi8vwg113wwQXdRw3GTMqPZp33303 gPe8ywDl/fzzzyGgFJaCl0q3Hb/59NNPLaoYnUqJV8HBdNAGds3eeecdd1cC oeDwkgYMGLBlyxY441Y6EvSXbsKUKVMc1A6lhQWY1ro7qvDt8B1xwR/+8Ac0 qaamRtskZXBcFyg43mHHjh2JPi7WrFlDnS1R5Ab9fOLEibqbAQHsw4yMDAwE 3dI9nkGRF7qxibUdwO66OnHnzh1YVqR60GuTKzGcFyxYgCsDfnYDhgMJ9OjR o803Zl65cgWTNq50sde5qONoEk3s8ZjbBebRo0eQjMzMzObmZnaloX0YStSR 4DFF3coN3ZkzZw49rIULFzqIbsO7oZfDeHMrOI6v88knn6Smpm7btg3fyMpL MK5h/cKewaAoLS1Fe+bOnWvLH2eZ3rBhg+4swfcqKysLP+gu8WFemjlzplGt M84Qo2z2hIZD5OvXr/e7LdFBL4Jpp/LEVVAosKCgwK8pC71uz549vPSaWEFJ ZzrOqTVWKgTi2a1atQoXwzdvbGyMobFxhHyBkLWTATE/w3rExSNHjnQll8wt HcfMifmzf//+9F2i2iSCM2gnMiRDqyZ8WrSV7sERYcc2IftlbhUoa2trKykp ycvLs57XjbtRWVmJr0z5aXgHTAt2w9BwhWhMmYgspim6q62trboXYF4yEYK/ //3vw4YNw60OwvptjJw/f/61115LFFudchTNrTvyDXEZLva4eQQ6/NChQ2GL 0oCCIvjSDGc403EKMwEYxlZKNGDcDRkyJBQpQ6SbSuov7AsAGLpWXkLWI/lB sS8yuKXjaFVubu7+/fvpu+DJdoGNSAHk6NGj2dnZRu42nxYdspBDTrEqZ1Mx h4wxpZssJlvn4sWLgwcPRpfWtgdmxsGDB7VdHdPy2rVru0WAOwNfnh3ndevW Wf/oJ0+ewC4yX88kHTeJbmMcGekanXQWilRWT4gUXHNgLMEmwdfBvBr8bSls bZp4FrxaYlFT3IXS2zZt2rRs2TJqamIlFznQceVioMXFBwwicsmtC6WX/PDD D6mpqWibdTHlyAJeaBT0sY4rOo6hDRHHNAg/iGyMAQMGfPvttzG2TVBB/X/D hg0m4svLnnE9IpMnc1fyneDM4n2qq6t1ZQ7qqd2xBRHnKRo/kKvFVrHd9AyT JDS8z/Hjx1NSUkzelp6L0a1obGxMSkqaPXt21zj0U2nC6aYFBoqdO3fSco35 eiyVvvclee/YsWPwMW/fvs39GVYlbEuPm+EYBzpuPTiuhAN5vphb5lgPjjNs PbpimcSu4+Ru0I4bzn3q16/flStXYmyboIILanXv3h2qp3sNzCcYUfE2XPFw 8YhDxrlh1oG7PWjQIHKotX+lst4qV5eCC/Qd8/PzWR/5/uDdbOk4bR5XlYjH O7S0tJSWlm7cuBHjtE+fPrSFHFMuflAG9Wjn+O9+97ulS5cq24mL0ZLk5OTg bG6KHdwW2DN08zG1+t2cKND23qiLTmTI2ZIVV2hvb580aVJdXV2nYqk5seoM ONBxW8Fx7avgQVisr+gZtoLj2lfFnhYeu47jtZgAKfDHywuhxElnTSDYTDIx /GhYsaMap5bQEZyhmPcRU5ouO9Ra4PFBQJWjQyniqoB1TU0NLUQ4CENDZzGs 4HevWLGC9hdnZWXhcyHlP0cIh8N9+/ZdsmTJ+PHjGxoalOOOdo53dHQcOXIE kwx+xjssXrw4PT2d38Fue4IMzz+JeAarLqyhHlsm+FxOq+CVtMQKSjrQcbvB cYJnv6BtsXcQHCf4PsSeahKjjlN6G/xxmqmUIhJ8Wz3hUJpJMON1XTzlI4hf oI17IDxQx8nqtFHRJCWPele3bt3IYen8ZS6f6tgRTgGFhjqu08XHo+huq6e9 otoRx2XVOxX1nRKlIJUD+OnDVkm47/gwguqXvKbtZa44DDz0WI5NsG2cWHvz 7eq4g+A4wf540HTcQXCcYHvYdx2HAzJu3DhOIOQyER6PiFcEqNj+/fv79es3 dOjQs2fP6l7Da8u67hLe4ccff4QUwm6MxeZ3xSO7du0a+v8XX3xh5K5SSif8 Ym4qxZpDkc2kyn3cpPhaD90Dou4c73ocPXrUrfnHG9A9Dh06lJOTk5ycPGzY sOHDh6elpa1evZrOkFVGKj2btWgvlTJXmTcCBE2nzLGr486C452KXhe0++Mg ON75y/iUvzoO+YaIK7N8lSsM8VvUFUxgqxVdSxXawNSxbdu2wsLC+vp6TFyY 0xxXnKD87RjnvcrKyry8PKN94vBWMNmGFMFuLlwTUuS2dUZcYFyD74v52fus DJOy6l0V9hxhtAc8eQ89B75GSkpKZmZmU1MTL9Tg983NzdOnT79165bS+/As GohPp/Q2/g2vG6MnJ1D9Xrs67iw43vmyklIAddxZcJzzRf3VcWV6m/L3PMMn 1u6JrgEeyoYNG+j+Z2dnK8WFVqS3bt1Kz+vcuXO9e/fOzc21WG5FidJacxw9 oW78wQcf6PZ8fERBQQEpxT/+8Q/8BvMtfG36UOVSPIt4RkaGL8f2mZdV75Kw 4gR86xksvS1btqBvGG0WgAu8adMmdBtaF/UsA1+Z3sYoI2IJlFxkV8edBceV 3mug8gccB8d5y48rWulYx69evYrpVJtQxJEmH9fcLly4sG7dujI3gK3lYhXc eEP1RsikV80SeMRQRlZtWqRy9uhd0XEa/roLAhwE5wg4L5sTfEhiVlbWjBkz cOXMmTP9SmFVBsdfEVjHgxzJRS9dvnx5KLKNy2izAHQEPhTtTfPy64TDYZgW qumR6xF5ubwfO7Z03HFwnI9ItmsAxBvHwXFel9A1ACgVB13CooPgTMepdgGn t6ne0N81t+fPn69YsSLkEhjgGObefwsHcL2RkCbXC/dk2bJlXK6K3XZnExeP KfgvjhcAadbS1oLTLpIrc9v4iTx58qShoQEjqFevXt27d0dv9GtjV0tLS3C8 A2/guSuuNQpigTc1pKWlmZcH3LdvH7tF3rgera2tsD+1jr/SPLabdsJ5L/jW EAXlcn28saXjjoPjyq06gTJynAXHOxVCqdLfU6dOYULjP1kstulMx+FGKdPb lPBu/UCtfrwKcPhY64DAT58+fTpHo/DgsrOzQ04rq/MCYCzrkGRLTJ48Wdn5 r1+/DmMb4wK6zL2rubmZctsI/Dx27Ng+ffpgMoQZAFuRVL4LnIGeKLjSAeIK F700qpnPcKw/5ElBVHRRdFTdUpzKdDtbC613797FeMFLvv7667a2Npjr0EqO oMUbWzruODjOqoeBf/HiRaeNdR9nwXGlzaa78+jLL78MaWKjJjjQcUpvO3Lk iO5feVy4Um5OsAhVMtEV8c6IjYfZg7sZ2ZCOC0q7NY1j/kFrk5OTaRbC0Kat 4soN16qwOLw/2hem9JvILJHSQ54RcB3n05OtzPk8X3lTBAZGKRw3o7rKnFxk fekY3v3UqVNPnz6tFBGquuBNuMeWjjsLjitVj2oxxdBeN3EcHFcuL+g+JrpR S5Yssbiv066O09E8mZmZf/zjHxv02L17d+/evbXLBa8OsKs//vhjeIvDY2PM mDEWo8+8ilhUVBR1eRnNW7p0qQOTmHF3Gn/48OHlCNpgEJ9zRG640QHEPJoS 68DHxCXgOk7lgCyuk7OyWPd9HEPHH8Bq1Z05Af5ka4Ufb1haWqqsokDQA/Im TGBdxx0Hx2GMwSyhSQCGUAyNdRnHwfHKykq6D7rHvjg4HtGujsNXGhbBSH0G Dx5MK1qJtXvCRdBd169fH6OIEzCZon4ch4+XL19uZdjyBvOoS45GeDaNHzhw gMPiGzduNDJNOegmOu4NQdZxSNukSZOoz0SNMiuXsh0PB+ugPw8YMMBkvPN5 kRkZGVGNCrR2y5Ytukdy0wPyJkPJuo47C45TJIJuS9A2hjgLjvN6kTYbmaAb 1a9fP62FZoQtHTdJb2OUuydkXo03VC8U48J6OIy8lVhmYG+mceVu8bfffptm JAyBzz77bN68eRgI3MlPnTqFOxDYnKuuR5B1nM8XsCIWnCjiQdTVKL1NCS/y Wykhjt5eWFhIuzJVUEmZ+fPne6B61nXcWXCcYgShyCZHj0s8RcVBcFyZjWxk ltDjs7VAZEvH0c1g45m/uXKDQKASC7skjY2NycnJsMkthlHYWzEq62oFD6Zx 5QGstPsM01ppaenIkSNra2tv3LjBVU95S1rQbPUuTJB13FZ1U7IAPeg8cCrL y8ujnjRtq/QoRET3PF/KIE1KSvrqq69ibbcFrOu4g+A4p/1EPbGOoKrI1rdr xYKz4Di7Jyb1qJXBcaoUDVU17znWdby9vX3q1KlG6W2Mrd0TaKS21nGM4Pvi c11Z1iY+/fRTd1voFlA3TFbK8qRK6uvrtfm3HGmKxcSK9zSuPAmFwuLHjx+H h1JXV6cdnvgrpr54z1qYTzA3Xrp0KX4fEVcwDyxfvtwtd4ZDMwHMgWEdj3pq GCeKYESYd2PMUTEWzMf7jxkzxii9jeH0p6gjCw8UAgeDVvsn6B1ebnSAoOtY 1HFnZ45TxBDohg+UwJ7/+OOPU1NTS0pK0Bj4kjCKTp8+/d5778Vp25SD4Dib JZByow1lfKN27twJww8OFyZDdOYRI0aY5PFa13FcCccnaq6gsvCO+cOls650 l0NPnDjRv3//AwcORG2VbgNgpsaeZkZg9KEzOGhGvEE3wFxqUpwcIq61Emkh SHnP0bXmzZtnq9aN4zowUGGYWNBcDMxwOKx7jXK3OK7Eo6QD9S5cuKC92JWz UaLS1taGcYSWJNyZIEpg9cEFsLgd1Zwg14FhHY96FiR/CyM3GXMdbPghQ4ZM mDABHQwCMWDAAHROu/nSGC8zZsywMpspa3yZl3RD4xcvXoyWYORiqsdMhRem paWho6akpFRXV3u2NmVRx+0Gx7mOBIhqk+C+4RkpKzrC1aVy+jBpTM4+wHOH ReQsG9BucPzBgwf5+fkhzQFPKvhGoXM2NTXRF6eItkno0KKOt7S0YBKwaHXw 7gnYHk+ePDG6zCgKwMknsixvBHppbm6uUf42wG0vKipSjRcOeSi3jeMplJaW 2pqaHOs4tJvz1nTTiijcT2UQqBt3dHTAaYL6awcyG7fKI8hdB58ya9asyspK 1cR46NAhfBdYGpTzidkezcY8/+2332rfBN+CuvSgQYOGR3JB+/btazSWP/zw w5ACo/fUgkfJm1mIffv2KS+ApwbljV3Kg6zj3DZzZaGJMRRJU9eNRMPbyo5w 9epV7qhfffUVnjg6JI+XS5cu/fa3vzUvXAAFh45bEQtlcpHq2amAiU41jaFc kLC8CBD0VatWoWvprrfHCYs6bis4jkGHN8T4ghBjoJl/F9qaqhVHOgfW5ON4 3c/ior0KW8FxPCbKxMD/zbdj041CH0ZnU74tVeBct26d7qus6DhNmNbzOS0e q2q0RY7kxtyOepUh99Co45GFic4wYsQIVYfhA5VYfHExeqPddQ9n50OhVWPH joWRDLMZU5C2rju6AZwdEnGIHWZINI+mU235X0yklMU6bdq0+FVkpZFeXFxs 1I3Pnj1LcYqCggJMaCYDBH86deoU7j9uwl//+teo7tKNGzcyMzMplPbll19G bSqM4fnz58NCwPUfffSRbvyRcmxGjRoV4wYr7kgBPCeFM0DMg7B0cJ7R8iYF MbVn5/FSPG8IgoHH5/jogrdKT0/Ho7fSeKWFbDKy8HHolrrvSWcBe1lLwaKO 804r8+eCcYHZKSUlBVfCMom6TshbU7WmPum4SbIfbhFuFLXK7q5D5bYI8+A4 JjrMsd0j4AeLGyFXrFih+jq00GQULYqq41ym2HryOeu4SUk3jgJot8jRLOF4 d3PXhp3QqGhXe6gnKP076CM8BQezOi+5WC8giT4GETdK7UA3W79+PS2j4c1Z 5WGQQPdVSg3tWLBgAT4d/4/rnt+6ujp40CYOLC9xWClPgXfDs7MofBgFeE+Y EKTL5hdj9v79739fXV39egST4UzBLFu1p7Tw2nUs2ZLxAzOV+f4FOG74q9F5 f+hsmNXxDrq5QFSvkjwUfHc8IK2RycAKRe+1knxOKHXcRBlNguOdL+fPtWvX euOSG+k4ORT4K9pJPZO+Fwwh3I2ffgme1MGDBzGcqXIjLFjYrlbCWJTwo61f amVRl7c2hKyt9sMewPBBa/FZ7733Hi0t9ujRAy3/ScO5c+fglcBox2VQ8KKi IvP6wISJLJJZYmQ5G+k4ehTu7c6dO8nCJxfp8OHDRoEAShSkl5A1RTcHxiqm bnwvlQ1mskVu37595nbUK4syASwq2qAGnaLCa6HoD+hdzuoqsKm2ePFii1Fj SHNubi66h+p6jHfMhLTohPGL9igvQM9Em7mT4E+4AJeh52D4xLWH0KYk88g7 j7usrCzdHUDMzZs3MUVfv37d4qfjDn/wwQfhcDhkoawTpiBcWVtbi4vHjRtn Hq2DORE1s8scGqEhp3V94w0PE21tQ3Q2TGKY8dLS0s6ePav7cvIcjU7UJSeO pBl3ct26ddr+TAtikDauJ4xOgj5s5IdSTjJeAi+Ma2tDHI8fP66bX4dBMW/e PCPPjiILUdP83MJIx5XHvlgBZtWYMWPgF8AHt26B0OL2tGnTVA/ayqIuPgVD Bp87dOjQ/Pz8qGfMnTx5ksOCVoALgB6Iacr6mZImskjLj7b88Y6ODvQTvKp/ //6U7oV+S33SKOQNE6Vv376hSKxBWSWGKhvg6+PrKK+nKIBJcPxVO0PKCspq flHRPf/90KFD6NswJqGnI0eOPHHihLOWcBV9WALWY+sYoZgeMeoxWqmAFcYR TFbYtPg9xpFWMdEfdu/ejY5NtVsx4mBYwtB1cNyqXdADreidNnVQC74XDB6T pEQV+Nb4vo2NjTR1TJ482cTthaCUl5dj4qIFxqi+NtknUdPATOCToO0e5+EZ uOHo4dBEdDbaqIingx9ycnJwP0tLS+/evav7Ql5gMTpRl8YgOuGFCxdmzZql TV1AJ4eRgE/BNTQHcmkso5D3jh076H7yfKucctPT01XmHwfHdd+NLI0pU6Z4 E/Kwe26pi/AR3tqYr91FXehgEM6KNcoZw6OEJ677TQnH55bGCDl0WqebrDgJ jscPKCB67OnTp2Op2eg4QopOCM8UCv7+++/DaYIinzt3LureQ1odAlH3UboF xb+MnDIlZNLAFDHZ1wDHDbps3eDB5IN5GOpDS38QAqNFVCg+xBTWOwuQ9gg5 FbS/ODU11frigAqOqkT9LH+5ffs2nGt4eaSMeKDhcNj8LDCSabgYRhFt2m3U u3dvTLZRN0PFA3wi7HAT0aEO6Vkdch91nNMCtf1QFRzH8DGf7mAJe1BdPyoU sdLKIoUPTNwKX3TcenD8QQQv2yZYgXcQBzBjWYuDMgU0n2/evDnqujGbNEaR uNbW1nfeecdIiI3eE/MwbAkya6EasHZ0r8TAhza9ePGCGmxxLFPuK/xT601i OIbbJY1tWgAxWV1h7VizZo0vB3bAYJs6darRU+ZMvOrqan/j4x7AXqoqz0EV HEePXbBggclyGS7ATQvCPEbdT7VWxsdMm3Q5X3TcpCC2yk/HROpgR4AQb3gE BbCilwpnZQrInreyq45NGt2pDOMOc8if/vQnW5MqBcfxErZ4dT3fW7durV27 lgxdanDU4DhBbr713AYlHPc0WSVIXOjOmGSmkWz5eLge5urhw4cbzdhUxRRj 0zxbw0V81HEWOJWO0C4SXlTBwIdMm/jj8HYDcuoxpTCp/HHePWGUJNzpk47z XkLV/edDKnfs2IFnhAkK3yhoNXWFzl9W+7G1hdx7nJUpwLi2aKJwkE53lyWM hLKyMluOGwfH6Z8Uf9+2bZvqMox0aD2l6eJxWAyOE6TFznaNcZJGMJPVY4RW G4xkGs8RD4JS0fw6PMLEwqT5My0tzcsTun3U8c7IjhtoHD6dVBid/9ixY1On Th09ejTVzMdvKisrdY8jIfDCdevWWdwYGG/oOFGlhUxbHjBUzYsB+qLjnO2s zNaAXs+YMYP2uO3ataszsvq3ZcuWhC6i1YWh+URXYgKFgzIFT548mTlzpkV/ k00arRPX0tIyffp0u4YoB8fpn3SfteFOjA5eO7UeHCdIrZzFRGhNnlb5guDC uA65P7CIlD4Rfm5qapo4cSIEtKKigmOCuBuw0zyLktPO8aqqKhhRyn1M+D2c UPjpeXl5VvY3uYi/Ot4ZyevLzMycPHky7gz0DnZve3s79B2/HD9+fElJyfr1 600Maei+rdyVeEO2IsYmeiAan5qaisdtZde5xzrOS4XocrB76f7PmzcPIo4e CAu/qKgIJiUmXsylUSsSC37BcWFbKese46xMAbnY1mWO8rdVThyGXnFxsUnN PSPOnDmj3DBFi1eqfW3wvMrLy/kaW8HxzpeGirOBz2WsAp7kFguYiDA74Z6X RcDshJ95lwTNURBN2G/oJ14uGPLOcSrHik9H81avXp2dnY2JVHfHR7zxXcc7 X+56RkuUesdnpph4guj/sLRN1qv9grYiWj/wxXsdV26R4531yjxkLiBg8Uwc wRfYBwxyqpuzMgU0NVn/XlwXRVl4LRwOr1271sG8ysFx+ifF35Xxfbzn1q1b lYUvbAXHCUy8DnIbyAAIBfKEFNeh41GANkmS5ihvztVSwmXVVS30caoMgo47 pqmpydbREoHFex032jkuJBYckzXfcuUvzsoU2NVxDhlz4bWrV69OnTrVgZ2P CXnu3LnK3E5OKeStRg0NDRBupd1rKzje+TIW4EDHOalPW3lD8ADzneO+QIPl rbfeKnvJyZMn/W7UKwEmGb7n48eP91jHjeKVQsLBJ/4Eth6IszIFJJ3WdZxT uKlXQ+DmzJnjbJ+FKjjeqcnHu3nzpqpKs93geOfL+DglAtlq3uHDh+mJb9++ PX5qwsukrh9qnNCYlFX3EeXZLoScb+UNvAxIeKnjJvFKIeHg/YMBPC+jM4Yy BSRz1vdV8WrzmDFjoKpVVVWbNm1yZqaqguMExd9XrlwJa2TDhg2qGmJ2g+Od TvPc2PGPsayrCU+fPp09ezZPTdrTIl5lzMuqC4Jn0MyvLWsvJCK8f9PH7bQm xFKmwG74mKofQ/rr6uqmT59uVPYzKqrgOEEp4lDe/fv319bWqv5K9btsBcfJ h7L1kk7F/Yz3ojpsqilTpoi1r0IVHBcEv7h37x58N0ySsRQFFYIDFQwM5tJ6 LGUKrNeBUV7fo0eP9PR0owM4ooIpurCwUHtKKR+wuHDhQtU07iA43vmy2snS pUttbRyjRXVgflBj7JhkJ77KwOj6/vvvAxUcFwShC0DSAx3Jycmx5dx5QCxl Csg+Wb9+vcXPYptBew6yRWDibtu2DSq5fft2VfpxW1vbsGHDhgwZoq2ITmUi QhbONlXioC4rh+nxcfHeDWpUukcQBEGIB5z75FeFK11iLFNA56RYj/tTIrez epg3btzAa5OTk+k4j0GDBoV+eVzdkydP8F2UW9EhcLSkQOdq0amCJLJRtY+i IXiVrYIh165dGzhwIJX9iXf5F0mFFQRB8JL29nZoJSbe4uLijo4Ov5vz/8Re pqCmpsZ63B8fsX//fo9LaTmDzi1dtGiR9b3PnAgB9f/uu+/i2jw5uVgQBMF7 6urq4Bj26tXLcWjYdWIvU3D79u0RI0bYijsnBIcPH4Z9YmvLf2tr65AhQ2J0 xqlEVdSTZ5UGmJSEEgRB8AY+yzI4NVpdWZs9cODAgAEDulLhMlo8KSsrs+WM b968GTfzjTfecFb8qq2tDe4/LIGVK1eWlJTMmjXr1q1bu3bt2rNnj9Yq4Dq0 9fX1kyZNWrx4MV6VmpoKEyIgXUsQBKFL0tzcnJSUBK+cy475iFtlCiAcc+fO 1a3dmqCEw+HMzExbe5BpfzqerHbLmxVOnDiBl7/77ru8Va2xsTElJQVirbvx jbMTFyxYwGspdBznhg0butjaiCAIQnCAY1VeXo7pd9SoUb6nGbtYpoA2qdlK 7Q4suBv4LnB4rb8EBgxcaTxWbXUaK0CyYd3l5+cr0wXZytLGLPhP+FDlx9HJ NbqHyAuCIAhu0dbWlp2drdrn5QvulilobW3Nzc01OcI4Ibh69Sr836amJluP hjIfIKDnzp2z+4k3b97MyMiAH63KmmCx1haSNTLAOHATqD0RgiAIXQ86uzl+ dTv94u7du6WlpXarkQcHuMOwai5dumTrVZTe1rNnz4MHDzowzCorK3WLv9Ee Pd1CskbZiVxD3nplHkEQBMEZ4XAYHpzuud5CAgHxpaLxy5cvd7Cswcq7Z88e lQ1AYm0SHNdmJ1IBOvHHBUEQPODZs2fl5eWQcls7lIVAgQdXVlZG3rSzWvFU SxZ6rT2fq6KiQjc4brJznGrIS3xcEATBG1gFtmzZIlKecEBeq6qqYIk5FvHO l4cqas+MUwXH0T1aWlpI0CkIrj1MFvq+dOlSSn6T7iQIguANT58+Xbt2LVUL l71CiQUlmU+ZMsXWqaYqqEb6sGHD2tralL9XBceVZ3jR8a/aGnpUEhbIsSmC IAheAtepoqIiKytLzqhNIO7fvw+nGP6vY0+coOqvKh1/8eIFLapzJltNTU11 dTVbepWVlb1791bmxtPaDgzCqqoqMQgFQRAEwTPC4XCvXr0aGhron3C6t27d WlhYCGd88uTJjx49am9vLy0tVZ4YS1vVeN8iRBzKDr8eWi9npgiCIAiCl0B5 P/nkk5SUlIULF65cuXLUqFH19fUdHR21tbX9+/efP3/+pEmToPIqL/vKlSuZ mZkFBQWrV68eOXIkFF8O3RYEQRAEv6DjUe7du6dMUaNfPnz4UPclfDyK0QWC IAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiC IAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAhCVP4X nKM0uQ== "], {{0, 97}, {664, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{281.99999999999864`, Automatic}, ImageSizeRaw->{664, 97}, PlotRange->{{0, 664}, {0, 97}}]], "Input",ExpressionUUID-> "42e885f9-b346-4aad-8d81-a10f863d573b"], " with ", Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnX9MVGe6x8m9/9x/TG78w8Q/iLkmjTGGGGKIBEKoqaHeMlHkaoBoLVCl iAhdxI4IKsViAKlapF1j6dZKkS4ECgm7BlYrsm1diyxtt0qXrkLFFmFrW5VW Fqtzv3eey5vT82vOzJyZc2Z4PokGmDNn3jnvj+fn+7z/lV2YmvNvERERu/4D /6VmOVcVFWWV/M9/4peNBbu2v1Cwbet/FxRve2FbUWz2v+OPmfi3Ftf/388u hmEYhmEYhmEYhmEYhmEYhmEYhmEYhmEYhmEYhmEYhmEYhmEYhmEYhmEYhmEY hmEYhmEYhmEYhmEYhmEYhmEYhmEYhmEYhmEYhmEYhmEYhmEYhlHj8ePHfX19 x48f/+6776xuC2MUdBa6DB2H7rO6LQzDMLYG62Rzc/P8+fOLi4vv3LljdXMY o0xPTx86dGjevHkNDQ0s7BiGYbTACtnU1ITVctu2bSzmQo6pqam8vDwWdgzD MFpgbWxra1u0aFFycvLo6KjVzWF8QQi77u5uq9vCMAxjO3p7eyHmVq5ceeXK FavbwvjO8PAwOnHp0qWfffaZ1W1hGIaxEbdu3Vq1ahVsgfb2dnZ8hTqktKBD 0a1Wt4VhGMYW/Pzzz/n5+REREWVlZfjZ6uYw/vLw4cOqqip06AsvvMAdyjAM A5qbm2HNJSQk/OMf/7C6LbYAkmJgYOD1118/cuTIhx9+GIrCYnx8PDk5GcLu 3XfftbotDMMwFjMyMhIfHw9J19TUxH5LMDg4+Nxzz50+fXrMzcmTJ+Pi4j7+ +GOr2+U1HR0d6NaVK1feuHHD6rYwDMNYBoyXvXv3QvNPT0+fnJy0ujkWA0F/ /vz5/Px86aPAHyHsQlFeTE1NZWZmonNLSkp++eUXq5vDMD4SBj4Wxlr6+/sX LVq0cOHCP/7xj1a3xXquXbvmdDrv3bsn+zsmV4i6AS9evIjOjYyM/OSTT6xu C8P4gs19LNAhv/zyS2iVype+//774eHh4DeJkTE9PV1QUIA1fNOmTbxPHMMy NzcXwk75Ekm6EydOBL9VfiLMOk5NYUKOkPCxYFphcmGKxcbG7t69u8oNfsCv MCJgQXBIyHIuX74MhZ93FhBtbW2QZY8ePVK+hL9jJIeo2Xvu3Ll5biCvrW4L w3hBSPhYhKST4XA4YHjyumo5MLr37duHHklOTh4fH7e6ORbz448/5uXlqVaG ga23fv36DRs2hKjZS+1HRxcVFc3MzFjdHIYxRKj4WGiLVmFhYUpKSpKbkpKS CxcusAvFJsD2X7lyJQbMwYMHHz58aHVzTONf//rXd27wg/F3XblyZe/evcrn QBvT8KD+9re/mdrMoHLkyBF0dFRU1NDQkNVtYRhDhIqPBRLtxRdf5HpEtqWh oQGj5Yknnrh06ZLVbTGBx48ff/rpp1u2bIFOVeEmMTHR6XQaTCh99913MbPw Q09PD4xc3OTJJ5985plnMjIyHA7H1atXQ9oLgWmIjkZ3Hzt2zOq2MIxnQsjH wpLOzmAgYahg6UtLSwuDQ+gw2GCZLlu2rKurS9hlmAj4jk8//fTNmzfpL1NT U2VlZUpXLaw/GHR//etf8XNnZ+e6deu2bt2amppaUlKyfft23GFkZCSI38Z8 7t279+yzz6K7N27ciK63ujlMKIHJhSUCw0ZV2cOr9+/f13k75iNkE+7glTfP dB8LGv/RRx8FIrQXQpIOC92bb74p1sO5AAbSwoULsfQdOnQo1HdaUfX+RYsW nT9/XjYZKRmjoKBgenoav37xxRcYk8p84H/+85+/+c1vMB+VN8cfIR0g+H76 6afAfYUgQA7MBQsW8HYDxiDV1dUiv0I1d/fu3btbtmzRSoOEflhYWBgfH19a WlpZWelwOHCxQaXRXB8LnbmZnp5++/Zt4+8yiJB0eBrd3d2H3dg2TgcNATo8 VkKrGxIkaN2DsLt48WKAPgKjC9YTBlhmZmZ0dHRsbGzSLEvcpKSkHD169Nq1 a48ePcLFAwMDO3fu9FbfgJiuqanRijZ+8803mCDLly//8ssvXW6HbUtLi3KO aCmQxIkTJyAgQt3H++GHH0Lo40HV1tZa3RYmZMCkgJzCsHnjjTdUJw7WkPXr 18u0RLzr1KlTkZGRb731lljw8QP0SUxGcp64Ziev0joz18dCYg5vD4SYc7m/ 144dO6BOb9u2DQIOnzI2NgbDE08Gn2vDqEdvby9WRdVUnzBD+LISEhLQKabf H7pNU1NTYmIiFDAMVHyEUohgMEMPPHbsWFRUVExMDIYKZF9jYyMZX8aBcrLU jar3AIYY5gi+KQT6rVu38Cmqrtp33Wh9BF7CHd555x2vGmY3SOjji6DrlWnb jA3BHIEEUU3JCBq0VkBHwvIoewlr+KuvvooRdfLkSel6Tg5GvAXTWdZ4mq1C Mn777beQDhMTE7I7m+tjQcshXvv7+w1e7y2QdLm5udCipWsXHggWNzwc/D1A n+szdNw2eiFAot8+wMBB1wdiNzFkHKzFFStW1NXVwaAzos9AQsHcQ2Oys7N9 WIHJON20aZNq+ElsdfnDH/6AJrW1tSmbJFUgVYGMwx3efvttG6pnxnnw4EFe Xh6+iLBwGTsDlZtSo61dKr/66itMZ1WVmOrlAlwj/TuVi4cIU4YJhI5NWzvP nTt3+PBhpSg30ceCxRwmIYRO4CYv7gw1UqmiU3K7PacbRXx27drlrWURWvT0 9JDvHQPArCAdhmtra2tcXFx9fT3knZG3YIScPXsWphzGg9PpRHu8ffJCkEG3 VB3JkGJQDnFBSkoKflCt2AMFEp2O/1U/As+npKQEd6CoQUhDWgFob2+3ui2M HmLcWl6zlNYKpdiCGDp48CBeOnXqlFRUwUxbvXq11pH3mKQHDhwgDwlWiRdf fFG1WJZZPhZq5Nq1a5VmYxAQYt2eCc8wcp944omOjg6rGxJADh06RJPIrA0p k5OTxcXFxsPNLvcghLKKGUGZJLjDmjVrvA2Hff/993QwjY4YqqiowAXQ67TO JIUCmZ+fr2Xb0syFLA6D+nVCw8EzsbotjB4i+oyBZ208hdYKZZCOjvrdvn27 zA/T2dmpHxah+Qh9GGvs0aNHlQadiT4WqgFllY4q9PDMzExVHdtaqLZ/GB/W LEJXEOg6w8k4X3zxBQY29BalsMAk7erqUg5IGG7V1dVUooqc+UKJPXz4sPGP Fh45nbwamlk6GiBURC0vLlXYo2oM1oZLTGFoaCgqKsq2U4+RQsn51ubvaQXp yLOqqj3SdBPZzkrIsQDtMSsrSzVOZJaPhQRNoA06fIVNmzY5HI5vvvlGtQF2 joyTJiALs4YNsJ4wzPD8n3zySWXveAsMItynpaVFVRBAvihjx5gCwqjEDzQj xKg4cOCAV49dx5VBO2hiYmJ0bksSVutRkOK6c+dOew5UbzG365mwRzVINzw8 nJSUtHHjRqWYE5qnVjTBNTthdTbEmeVjoWVcpyWmQHXJQE9Pj+wlsabZtrg6 lX/H88RTtbot5iMUe60sDuNAtYuNjVVmWBF0UIKslykvi8aG1PUhMgNxN69G JoVWZaU7cYeRkRGn00mnWS1dupSUTGh3+EGqLlKW15tvvrlv3z5pO3ExWrJk yRLcIWzMH6k5HxIbXRlrkQXpMK0wm6Kjo/fu3auaGOma9Xbqu1D0FVpTfCxU 1BeSDnJT7xv6De6/bNmynJwcpeqItWXNmjU+rGnBhLojDJIQlAglpLCw0J/E G0r3FUaZEqylEDEHDx4UvSwVczLXBx41aXo+hMMwDSGPYLu9/PLLuH9FRUVK Sgo+F8LusZvm5maMxrKyss2bN1+4cEE66ijLa2Zm5vz589Bt8DPuUFpampiY KO7gbXtsizTPQamCMowMaZDu7t27hw8fxgzFyNEpk0vnIWoJMqjZDocD99Ta JmCWj4U05w0bNgS6IhCWQXwX1exKehRY6OyczE91AnW8zaELCXEAncfnnC7a LaLTiXhuu3btkqZg0SYO2rws813AHKPEEkgZn2tNi8LOqluQqKKRUlEUpRhc 7vRRKltk+SamwEFhFMtz1xn7I1IHMW3r6uqgB7a0tHj0b5A2u3z5clkizcTE RG1tLTRJ6Ja4FXTRH374AfNx9+7dUjFhlo+FrFFvQyG+AfmblpYm8+XiVyyP 8fHxAwMDgW6AP1BZyLi4ONUSoyGNSDX358yLGzdu4OHoHDIIAQehhvEsdmqT PobPxd+l+9pIJuqnRwYIj1le4QflrXH6pT3BpLh58yYkS2dnp2/VaEmj8+oU Dy3QEizUiYmJGCrQ/I3fEzMaXyEmJqakpARSr7KyMj09vaioCMotKZAwdiAK MethDeFKqVZpio8F19AOCDxGg22mgk5nz57FqtjX16e/TwoXyzThwcFBrHVO p/OcG7R52bJlxcXFX3/9tcePxoPF26F5tre3Q+h79Moa/EYGERk+4efkEVq9 P8VO0S9btmzRGg+0pVTqoBbbYKVZKC63GYVrIPuSkpKCf6CMTimGcEVY9Nbu 0mKUwBqqr68vKCjAmoPegf1ipFIfhaSrq6shCyJmwTJrea0nUdgZ/6uWSMJL ytLQpvhYyBo1HqSDTM/KyiJ3E4GH39raqvqhFCtUylB8R8gpSCuYEhB2Rupm 4C3Nzc2UNSHIzs7WOi0UhgCGh+n+WDoCCc0297bWIj0e12chTokNqnXwXLPn ElJu7Q8//OCaLVMgwnPC4SnEXHJy8vXr133+Uj6jX4ohLBFRWt5oYCvIt3/8 +HEajVDyFy9enJaWpm9ciCU6ISEBK/PY2Bg58O2Z6ecRs3wso6OjcW6MeOSw CAglXAqeKsSQ8nqIm8LCQv/VY/RReXm58nPB+vXrlWeNYYTAvgjERm8oVPjQ vLy8Bw8emH5zqzBF0mEqPf3006oKpwjGiUiccE4KZYmKPMPYz83NxZV4wgaP kDMdqQI5RxCSzrZ7fAR37tyBtlllEn19fXZOLoI5AP1QyDVafHQKSVEaJC7A DKqrqwuPdAKzfCyUZYE1yqMHmHxNFGc5ffr0BTf4Ae/F84+Pj5eVwqD8BP8X DZGbh/WwrKwMSzE+F/9D0M+fPz/CXVZFNlzREiyYgXBAUZlumBvh5N0Sx9L5 cwArVSZR1ldRuiKlWSikJp06dQqaA7oVGldkZCS6FZ1rlXGBwRMGZ/N5hTit CXojWdy25YMPPqBZbwqqZRhtwi+//LJ///5z587Rr6Jyss62RxH1hpgLG6eE WT4WUuc8VoGmI4ewWA0MDMjECp3FgOEnkzgw6KCQ+C8Ruru7FyxYcPjwYeWY hB2KuSkTsuQyDZBaTmWQzU1KQYMha3SONQw0ZI5F+LejimZiVlaW1GP89ddf Qx+DLJPutenv76f5SODnjIyMpUuXQoOCoIRNQXIwDM7ICxVEcW/ePG4fvv32 25ycHLHNk87UjtCOpQ4PD5PDTSdWHoqY5WOhYLTH/dq4TCd7HKsc9HbZgUQN DQ3+n+U6MTGBz8XSpyUCKBdd+igwQvLy8gJU7EV2tJn/SI81tErDNEXSudye JTx5mN6QaxUVFWvWrKGtc9LkKFl47saNG8ogAk3qqKio4KejzE1Y0tmQy5cv Q9kTE4dOEgTCypNC5QrJQ6JaRTl0McvHYkTSYeWB1q1/lA+0iMzMTDp2gd5S UFDgfzkRiDCPpezRs7m5uaL9eEvgtgWRUDB3l/2jR4/KysoidKvlBBSzJB1x //79a26U6VWi1DmZcsrTwAkRNwzcgbCMFJZ0Rujp6UlPT0/yj5SUlDNnznjr rKDiHuggaI+qtR/piDdcEBcXh5+/+zWqiY5zDZJ0+tnFg4ODu3fv9hjfxK1E UiLEjf/r9szMDBQV6Db6l6HrIWTJnYg+hWWkeqq7KQihIGS6/4iF/YMPPjDr nl5hrqTToaOjQ4TnMFS0koRFwRyWdMGBJZ0RGhsb/RRzRG1trbdb20RZPK1F VewTUQWTrqury6THEKp4LDjmcjsnIXQ83grzpaio6KeffpqamtqxYwdUC/+b B1XE46YJ2hJIqyJM+/379wcuvhMISUfDeOXKlYET0PoER9JJd89t3bqVcvwm JiY6OzuhR61du1YUSKEqrBY+kLkGSzqbQ2XxdKan2A9r5IC2uYnBOJ0Rfvzx x8LCwsnJSaxUQT63FKsluphy1z3agP5AQgE6ks85ikrIA+/b4dqmEARJB+UH tjZNRtprgHHidDrXrVvX3t4+NjYm9oGKDQgB3dSG9kA9vnr1aoDuH2gw18rL y82qHsOSzs5QbfkI7d2O0l1CJmrgYYaJko7qlWH1kCbHBgf0L7QaWJGwJQOa 1EFHnJh7NjrtRrcqSOcKvKST1nCm8NxHH32Ex9jd3a2UZXgVBh0u+8tf/mJ6 Swh0IozKrq6ukK5jCW0BeoIpVS9oqxF6x6qDmI0zMDCQnJxsihcRQJuy/35q EYPTSvATx+JwEpcOtBvR4y4Dg0Dc/P73vy8oKAjydjPIHQjZ1157TSsflerM aBWQwasGM/xJ+12xYsVXX32lfyVVrfEYC5YF6e7fvx/8agY+7xzHV4OYhlTS Kh3g+vXuOVwJ+YJniMXq888/V15sSlVnfci13tDQILv/2bNn6axziGCsgatW rZo/f75WR8/MzFBduNjYWFyckJCwbNkyraO1fvvb30qDJkYGDwEBRKaW4L33 3pNe0NvbCyvMf2EXQjvHr1+/jsXKFDGHkfa73/3O/qkaVJNW6szHGMZyd/Pm TXENnS9grgYeZtCmUSM7x40ASff888/7UyXYN9C/mzZt2rx5s9L30traKrIg VDOXKEF3wYIFn3zyiccPMrLRfnp6+syZM3FxccXFxXggGzZswEPGzV955RXl u6hGDYYxrODc3FwM4MrKSrQTTQramuOzpIN0E89W1Salw3Foqy+mYV9fH2TE vn37VE+SokPlIn59RJ25kHVZVFSkpUvAZCD9OT8/H52lH7y+fPkyBkNGRsbf //53jwvm2NiYw+GgSKWR1CPoSC+99BJkKK5/6623VHMYaOtoamqqn4plCEm6 uYao6iBNGsQq5HQ6peGhzs5OXBOEk9dCFzpA1qyt0FjYsVCYkoviFWRqaZ04 g0UVOjxGApYO5YokZI2R/AdaE3ScvZOTk1gupDUbb9++vXHjxiVLlmBVVFZv oyAdLTLiDN9bt27Bpgja8UCicrWOh0QJ5iAWeXw1fNk33nhDuVkVjx3WHIk5 qNBXr17Fykyb/ZXnzYkzx7dt2xa4OmDd3d2wwnSMILGwGHn4uBtEs0HRgNUJ 94SQJcmlfzEeFMyNlpaW5W50FHU6EFB63p8P0GkmEVzh2X4Ix7JQQdHRsPJk pQ7p0G2v5u9cg6a2WcoAJJ0lh4ZjKYC81orGipVc9ZhXymsymP9AYU2syaqv 0rZo5RnxpHGpWpTkmsjMzJQu72jkgQMHDJqZpiByt4zb43jmWGO1iglgDNTW 1tJeV9xcyEEMM0hGmSyDsNizZw8+Hf8Hzu9NG9L1/aLiWFI6KkvnbuPj4xjq Rg7gIDByoA/AwsXNy8rK9EOEeEq4sr29PcLAKfAQuFAv/QmwmnI6IRMISLWW eryhJaqWOiQHi1aBFIw3rWH/sxtzm21DhBQwfmqPFrQ+W6JUDA0Npaenq+6p dM2WZFQ1qUglNpj/QF9Q61mJbdFK1xxJOqVFSW5DjM/e3l7Z3Uj0BC1nWKx1 paWlBvM0MKHS0tJOnTolux5PCZORKhc5HI7+/n7pBZCPUD6FJoCXcAEui4qK 6urqCmjQBCqNEYmgDIsoQTvxoHRO4pOBWQZVCr186dIldHdWVpZO3hTUgJqa Gkg3Gk4e7TWS4P6cL0nWtFd6DhMcyFgTObHQCQsLC1WLeGBMNjQ0YHSVl5dL JRdGxbVr16BLq26po7O0VPW61tZWzEr9giGhBa3DfjpAXO5eyMnJCejWYy3o 8CYtdVQE12R5ZVTELMJ9AKURPyGdcKTlTaIUKeW5ukKXUOoAWo5TYVkEbeUR /ivMI+Mu05s3b0KHxINFO6niN8yQjIwMWKP4O9RRpeTC0zh9+jRmEFUMe+qp pxISEpqamgJdqY9StY2UBKRHoW9Qw4xC+40/KOhg2dnZY2NjFCzAVxaeahl4 PniY0ASEH1VZNFsGVRzFQDJuYMreTvqbt1FaJjicPXsWy9crr7wCrXLdunUf f/yx1pXoSmhTmI8YYEePHsUbq6urk5KSMOw//fRT1eWdRrvSV09rHeRmOG1b wDKLxdb/YDTW/9TU1ODvx6Gd4zpC4b333lM1qWgvs/FTrSkaqOWeJVtAWbuS liydIJ1yJx0ZocG06UQ4wNthQMfyQsa9/vrrVVVVkFmDg4PKsxRl4AHecONb UWtoAh4/Qgb13bFjxzx658Sj0PJOYLRgDGiJKq17YjHBwKCeXbx4MZ6S6pUY Es3NzTB1qcEGs+kogxpqhvEmCUQ+kuoQZewA1DMMDKheRtyMNCX7+vowKzHM dN4ijuF+++23ZdOQlHAdlSwUgTTHNPR/LxVsQ0tyt0iUaKmjWkE6rZiaDhTR U10A6RxS1RREWjlVg3RaO+noLQsXLgzoLngpotyQ/fcOk8NZ1bsIdTc6Olr1 XEJyXBixWcSjgMmpfBWTZc+ePX/605+8EtAUpMNbhLWuaqlhTEIJpxlEDfYY pCPIVDTueZYidlOG2bLGeEQkaSjXGbL1LEm6CCjnzp2DceFPYWQSKJbkbkEu YN3TEtOqQTrKkIyPjzeeJkr6gFb4RiwXyhVMFqTDYiIGDwXjlG+hTNFgnr5B zoqIwJe+9B9SA2QHZ7h0vcQudyjK4FcTSovqNIcYhenqVU6sCNLRr2T719fX yy7D8IA0JNe3ULYNxhRokPumZ5KUNC5VmbCB/AZPPfWUMq+MQreknlnStgBB erJy9TAOVeW1pOoaVrbVq1drpaYrg3RDQ0NJSUkUNzH+KRSG06pkIiSFrCix bPnFygmLQMhKGk6yt1CCgU6p/0AQQsEaSp5Rpi/qeImpiIRBm0U8CuWgGhkZ ycnJ8bYGlwjS0a+k+SgjIxgGLS0t1OPGg3QEeSB9s8fFZjpOvJxraA1FWs2C 6VMKJnTgqc9nG125cmXJkiXB37dI7iCgVR5cGqTDgtDY2BgTE4P/vbLKsQJA KinPVReIE4FlYot2IosxAxmH9UR8NJnS0tVMVBQJXJEQLWjYq5ob9kF4/5TF cHS8xGSmGRcEUNgiFLWV0GtFRUU+qB+YFJCzInpLtRpk2W5QqmtqasQ1XgXp XLOi3LcSGfRleSvWXEP4DZSGm8e8qZAGEzk/P99njxnmiyUhHipEqZWOIkyq I0eOQLrhSizjPtittPKobscT0Jm/FRUVpBjjSmjLzz//PJRz2k2PvzQ0NEh1 Cap7LBybuABSD8t1XV1dMOtjEyITw6v0yyBDrgPIIGV0VSvvyDXrWzY+PoWZ Iy1m0tzcXF1d7YP6IYJ09Kvy6Arc8/jx49KUXa+CdAQGng+eZ6E5cDrKXMN4 kA4LZphF6zDXYmNjtQoY6uDRsAoc+rYk7fmKjo6GvPvzn//sW39RdX0jB4LD BHA4HFlZWbDIYP5DvKIBkID44+bNm4uLi2tra2VCZHx8PDs7G6/iLRkZGRh7 sg1oQUN4zOyclEIGkU6QTrXwqbeSTtT2F8VM0IlQWrS2yeuAGYHBI90vKRzd In/7woULEG1CFHobpHPNelx9kHQiy9f+tZ0Zc6FBriwKLbP1MID3799vSiFx W+GxXJIqNF8s8X5Ak9c6h9csOjo6jD8TKuwsq9Isqj1riTAq7Oxbyr1ZiBEe zNos3kJBOqXhplMcwDUrXIxLOrH+UzQQGg60OOXufiPIgnQuRegWqg40Iulo 8TZI55qN0/lQiE8Y8uh6+9c6ZkyE/AZKSSfOkSSHBqYMplvQUuOCBm20h87s lfoK9WDVqlXBL3fpcjttAhpJR79jhfRtlQs5RBFOe9bKMB6ku+dGvEqCwHjc QRyDkp6eDrnT1NR09OhR3wxtWZCOoNAYhi6m26uvvio72sDbIJ3Lj4wUyvJF p/scoDeCUP+83QXJBAih1soUKqzhOTk5hYWFIuXgzJkzmG5hloFJYPbV1NR4 ddAbrrx06ZIliVuff/554Fxto6OjqampwcyBtBaKgvmwfzw4iObJ0n5cClvv 2LFjMuXE2zAWpcVCOEIEYO7fuXPHtzbLgnQEbfSGbHr//ffb29tlr1KUxKsg Hblnvd0mIPaMQ00161BXGdPT0zt37oyY5eWXXw7pMwHDBhGke+655xYvXgzR VlVVBZUMVsPk5CQVpX/mmWdKSkr2799vw6XALDAaW1tbGxsbrW6IlWCSVlZW DgwMWN2Q4CEySO15pCMF6ZSSjooAiFIPmJgQebKl2/jOcen1CxYsSExM9HkM 0B5M5Rk9eLZ4whHuswNkcVsfgnSu2WQ5b50bIhwZaNcleiQ7O1srisoEH+lO Ojq7U2ZxGzxek2FCFHHAsQ0dmKIMtdRKgkTLzc0tLy8XxdMgB+vq6mS2A32v 2tpag58lpKrqUXpGwCpRX18/b968kydPyjK1KGEYlpSyUuXo6CiFCD2e7CPF t2pg5LrEYwl0WFYnY5axBK2ddAwzRyAzBLNg48aNtqqYIYJ0W7ZswZpJCa67 d++GmBsZGZmamiosLIyPjy8rK8vLyxsfH5e9nSo8G/fK0l4AXK9/do8qY2Nj eO+SJUvobOvY2NiIX5/09ODBA3wXqVccYpHMUkjGhISE6OhokumQeh43xZAl jndpbfZURaSAGkkq9hOtsjaMJeiUu2SYuQPtZ1cNh1mI1C54+PAhZThIs1Xx A37FH7W2urS1tRn3yuIj3n//fa9kh1VQUR2DBywKLl++DKMVHe3/cV0e0Spr w1iCzk46hpk73L17F3YTlqaioqKZmRmrm/P/aO2kM87ExMTatWv9P53KbkAz gQT3ygMpLPf09PTAnfBO6G91ZIIPBemUp5gxzFyju7sb2n5kZKR9EnJMsQs6 OjpWrFjhQ8ks20Jqibe14z777LOlS5f6adBRJoPHTaBSY9yj3c0EgdHR0dWr Vzc0NLCJzcxxRP65TSqD6eyk8woqd6NaMSxEaW5udjgcXtUnpIeAh5mdne1D FNLlzqjZu3fvqlWrKioqiouLd+zYcfv27XfeeaexsVGZ/CnqfPb09GRmZpaW luJdcXFx9fX1dhhaDMPMZfr7+xctWmSTQ4fJLlCe5+4DtCXBt0NL7QaeBr6L t2XVL168CNEDm07n9God8C50xIEDB0QeS29vb0xMDO6puqFPZMzu2bNHeJ7J qNQ6GYRhGCY4QDmvqanBApWammp5yhwa8Oyzz8IWMKXS7K1bt9LS0gJaFSQI DA8PQ7L09fV5JSxEENa3wzIg1KD/bN++XZrCKixuZQxUvAQbUJrhSadLaJ32 yDAMEzQmJyfXr18flgcy3rlzx+l0WlK/zhQgaCD3r1696tW70IknT56kzQs+ HMgyPj6ON8IWk0VvdQ5S1zLGhXvcVvm9DMPMTajcKxY3mx9EzhiBfIaQO75t Faed5sr9d7T3ULVQp1bGrKhibfNjfxmGmSM0NzfPmzcv0AdGMIGGApToSggs H/yWQjYpT2kkcaYTpFNmzFL5MrbpGIaxCVTxGyukt3uTGfsAK4xOZygvL/ct 1km1OlW3G584cUI1SKezk46qWHOcjmEY+wABV1VVhaWprq6OhV3IIbrPZzHn mj2HXXnykSxIh88aGRkhkUfBOOWhgZCA+/btozQVHk4Mw9iH6enp6upqqlcc Ztkp4Q06q6mpCR1XWlrqTyFTql25evVqWU0VWZAO/+ODaKMcHfOnrMAGO26l Gy74zDCM3YD6feLEiZSUFP83tTFBAxZWenr6a6+95ucGDaquKZN0jx49Itel yDlpa2traWkRulBDQ8PixYsHBwfFW8jAhOSF/GWViWEYhrEVzc3NkZGRFy5c oF9huB0/frygoAAGXVZW1tTU1N27d51Op/RkQNqYIHapQMxB9sE2hDTkUlQM wzCM3aADmmNiYkpKSioqKlJTU3t6emZmZtrb26Ojo1966aXMzEzIQZmlNjQ0 5HA48vPzKysr161bB5l4/fp1tuYYhmEY20KFnWWnUdMfpYdWSxGFnbUuYBiG YRiGYRiGYRiGYRiGYRiGYRiGYRiGYRiGYRg78L+fwZAk "], {{0, 96}, {590, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{269.3333333333327, Automatic}, ImageSizeRaw->{590, 96}, PlotRange->{{0, 590}, {0, 96}}]], "Input",ExpressionUUID-> "839bc079-a39c-4182-9e96-682ba0fdee64"] }], "Subsection", CellChangeTimes->{{3.742225210268482*^9, 3.7422252341165237`*^9}, { 3.742225399065777*^9, 3.742225438530488*^9}, {3.742225588522272*^9, 3.7422256174212418`*^9}, 3.760965450136301*^9, {3.7609659085405912`*^9, 3.7609659145205517`*^9}, 3.760966061616918*^9, {3.7609662283060203`*^9, 3.7609662325881534`*^9}, {3.7609881631948357`*^9, 3.7609881934150953`*^9}},ExpressionUUID->"d43faaaf-0673-4970-8df8-\ 4e4a3824b78a"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"BHoloTerms", "[", RowBox[{"mu_", ",", "ap_", ",", "bt_"}], "]"}], "[", RowBox[{"aa_", ",", "bb_"}], "]"}], ":=", " ", RowBox[{ RowBox[{"-", "I"}], " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"\[Epsilon]downupupup", "[", RowBox[{"mu", ",", "nu", ",", "ap", ",", "bt"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]stdowndown", "[", "nu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.7609882902016387`*^9, 3.7609883336856995`*^9}}, CellLabel->"In[55]:=",ExpressionUUID->"983cafcd-c51f-4c38-b45f-38ca504d2886"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"BHolo", "[", "Rep", "]"}], "[", RowBox[{"mu", ",", "ap", ",", "bt"}], "]"}], "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"BHoloTerms", "[", RowBox[{"mu", ",", "ap", ",", "bt"}], "]"}], "[", RowBox[{"aa", ",", "bb"}], "]"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"ap", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"bt", ",", "0", ",", "3"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.7609882185298967`*^9, 3.7609882858452797`*^9}}, CellLabel->"In[56]:=",ExpressionUUID->"77406683-38ba-46e4-aa8c-df27a8e3453d"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"HoloraumyDDTable", "[", RowBox[{ RowBox[{"Afield", "[", "mu", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}], " ", "==", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "I", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"BHolo", "[", "Rep", "]"}], "[", RowBox[{"mu", ",", "ap", ",", "bt"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"Afield", "[", "bt", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "ap", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"ap", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"bt", ",", "0", ",", "3"}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.7422254484916067`*^9, 3.742225580731021*^9}, { 3.742225627520856*^9, 3.742225629935794*^9}, {3.7609655308202496`*^9, 3.76096569509562*^9}, {3.7609657842346163`*^9, 3.760965796045738*^9}, { 3.7609662028059177`*^9, 3.7609662040706134`*^9}, {3.760966236712922*^9, 3.7609662463084173`*^9}, {3.760988398152261*^9, 3.7609885123568473`*^9}}, CellLabel->"In[57]:=",ExpressionUUID->"125b80da-d41e-4209-9761-7fe0d1fabb16"], Cell[BoxData["True"], "Output", CellChangeTimes->{ 3.742448070220096*^9, 3.7607232915679345`*^9, {3.7607244349143114`*^9, 3.760724449960458*^9}, 3.7607283999297543`*^9, 3.7607301170864964`*^9, 3.7607304098289595`*^9, 3.7609657410049915`*^9, 3.7609657994595203`*^9, { 3.760966238293765*^9, 3.7609662469186926`*^9}, 3.7609809048732567`*^9, { 3.760988503420844*^9, 3.760988513227493*^9}, 3.7609886119644737`*^9, 3.7656321413616657`*^9, {3.765736775269602*^9, 3.765736790557209*^9}, 3.7661627486345444`*^9}, CellLabel->"Out[57]=",ExpressionUUID->"4bd7013a-f69a-4091-90df-f5b3d44fa488"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztvW9MW3e292s9V4/0vNgvLi95gcQVssSLSFGELF2iqIIXRImQIJoKWUkj y0STa6Lz5ADTW5g+CqRqIKPG1dMaTWN6J9Y0Vs7EOSdWZur0xM3BTXFGOC3u xAisjDOBjmlwiikQ5CATTDbXf7d/2/+3vbe97f39SOfonNTY2z/v/Vtr/dZa 3/V/nen/1f/z32Qy2bv/I/y/ftU73P6b3/S+//b/Gf5/ev713XOafz376+P/ +v+e1Zz9zf995v8I/+PV8P90/3eZLPJ/7wMAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAADc2PHNfK5R1MtkMuqYwbNX6csBgBtvtuwfNIdvX1lD 24DJHcAdDAAAAAAAAAA7vqlL7ZQsSmPXhDNAV/qKAOAI7X9wsb0heg9TcvUX C4j3AQAAAAAAAFKGfrlgPK+IR/oN7aP3fSGE+qAaoUO++6OI9wEAAAAAAAAg HOkbzspliPRBbUCHvOY+OYV4HwAAAAAAACBhdnzWC4p4pB+OjG54goj0QbWz F1j4Qo14HwAAAAAAACBRyD59GdV+ZWYDMRGoDUL+6fHEvV2nGL6HehUAAAAA AACANCCznzKZvN/sDVb6kgDgkYDHqGH6Uzq0j7YQ7gMAAAAAAABqHDrkuzes qEsk9Y9fnH6BSAjUGqFl63Bb/CaXHeo1Pd2t9BUBAAAAAAAAgIAE3Ub1oUQQ hEF7oGahtx5pOxoSh1rd2tl13OkAAAAAAACA2oRen9V2J8r3ZXUnbzzbRQAk AuitxbvjXa0f2rfeVPpSys7W9Ejr26N3nghw6EQHFz7vYm53xajNH+L9MwAA QIzArAhiVgAAAADRsrdhv5SQ30ervmgIrcxM9Mqp46NTP0kyFo311x9Uah8I oKQX+LtBxbSsyPvMXoj1AQBqHpgVAc0KAAAAIEbo1XuDzUyas6XPvCRJH0Bk hH6aGj1OSdcli0K/XDCclcsa2kfv8++Y7XqMJ+XMCddJowfN+wCAWgZmZV9g swIAAACIDXrFOtgqQ4pTVMS9kUNqw1x1VxuGNhYd/3lDf3lI805nS33kDmvp PK0Z1hosjsUNlrdJ/zI7oTo8Mr2V8g7xBhMhlPPZxfx1vcZn2/x+AAAAiIXa MCul25R9Qc0KAAAAICpCq9bhZhniHVGxs2J5r1lGNQ9YVnIcvOz93fir5oif o8rC6c4Wimo6dXOpoL7MHe+X7yrCr297O9P7tJyzLHPyiejgc6dZq1aEnTF5 u+biVeNfbI5Zp9M5a7eajb8fUR0OO1ptA0anfyf66pgXWn/U8CTDxe4+NfUe EqbmJLCgV0KqAgBQ6xRgVqRjU/YFNSsAAACAWKA3vh1lZu3JGrv0c+jVrzR0 8O9/VIZ/k+Zh62pOH4Red9//s9l822T430M9B2Us6lt6fjOuN94237E4CtRf 2At4vk24TEmoFuV7YzqD6T+dvp2Cv0L4re6MdjWHv0PX6C2nbzuTR7e7sWAO v4ZqG7m3/NI3dak98qkdWmeGJExkKKTX3CenZFTPhGuT32ic3poZb2UeARTz AwBqj8LMioRsyr6gZgUAAAAQBfS6Y/xo0ga3fuTY2qv0NUme4Jy+q1Em45b1 oNetA/XJ+ozW8ZniSxN35/Ud0feiOgaMj3xBrnLNO3Evq+nt8a9/DOa8DDrg nOhqpI60vRWLtuvft2VVhw56TZq6yEV9MsvzXcoubpEPWnwI9wEANQR3syIB m7IvpFkBAAAAKg696zEkh+3JWgetKzjcrjTbHsMpKjL73eDhVE9O/8PY3cA4 Zkf088U7LrG3KlLBKeSfHm+nCh9ez7oJ6/qt6zleG/dXBag/2XUbuhuZvFPz 8FQhlw4AANVAUWZFCjZlX0izAgAAAFQW2mvuTeYzOUeXQADoFXNvJB9xeNi2 yvHHWLePMCqLBXg4WdnbcnzUWmQbI727aOqVU9yK4ennlr4D0atu6Db+I+e3 3lu3XYjcsvwrS9Dbzo+Ty0ed0LmyVX4CAEA1UaxZkYJN2RfSrAAAAAAVZG/D fkmRrOAvIroEvPPSqT0W/TUmXK+5/ho7S8Z3kr/nEb27qDQMvfVI29HYPHiv mLuBOT5q/diZsaUyMyGfuS+ah+nWu/P5WvFyUKo5o8ByKbDPvup6zShzAQBU P0WbFWnYlH0hzQoAAABQKVh1y0jri4JE/qXppGmJ+49Bv7JfZGou8zUqZnuP 6DSivMKAWf44kRzPrn6chZBT2xRJwly0v8r7vV97TWciXlzdOfMKv5317OS+ tI6/6NDmM4f1z2bzTYNOq9X+bqT/jEp1qqtr+Etv4QpaAADRUYJZkYhN2RfS rAAAAAAVIVG3JsW4RrTsLBpPR/wN6ozJ+7qIv6eXjN3J37TH4OHagBgbOl+0 dANT83lkzPGS01/GHLMCy0QTvmvjCeNT7q5n7rdmN7acNHml8lTs+S3nSbns RH3Du9Z1iFYBUL2UZFYkYlP2BTUrAAAAQPlhp/VlHZNupPUrzuvHusN1JcWY W7ahpHhyy5BtjdufR3SKmoostgyz59IdisWLbVpngNOfRh2zQporozD9mMU0 O+TmzZb9A+IQ7JjWyc3DrGJCgTVfGK/nO4OGuYu6jUWUmAAAxEKJZkUiNmVf ULMCAAAAlBl623H5QDKiae41SyaBKV7o166Jw5Gfg4t/ksKbJ4ajjGfGte4x sKBXFltsGcVv0cRzwwf6LM85fYWoY1ZYc2UEppO0U+fi5gHmJ+EbxzPbEuzc T7r3pelvAwAqTMlmRSo2ZV9YswIAAACUE3atsqz5A3sRjXiAZ7bd+li9JCf/ JIU121AL88PWD9kK1hoqsdgyis+sYmLkkzeecagVobddf+jtNbgK1l/ac+uP FON8FkKieTOO5By/xNqGaR2xFyu/DQCoPKWbFanYlH1hzQoAAABQNuhd92RH Mpapa9V+j2EzHAl6rWNdTQ0K9eezG3kyn3TwufPrP9/5es4fyul1MBONCxUU ynxhHkNP8rc9avAU6LKUWGwZI66IFOOQevJRnq9cCq/sIzHdKAHqzOlVS18y ty81fWZCfxsN+wBUNTyYFcnYlH1hzQoAAABQLjYdY21J2y37ld79qtKXVGUQ wWBe1aB1x1jsZKVZY1nJ+UJrf13pbsabLdv7yQ7LQsWTSy62jMPKAYU/XqH+ 6Oa02xco8W0zQf9oUjYKFpCyv4ik9JmT86m5OPYAABHCg1mRjE3ZF9qsAAAA AOWAXrcOJC23pPTG+WJv3fpuIvGbT5042f7cqDT9mGOlI0JEsdeNOUoZdUbU YId5x7iU9834KLZMvBV7dB2DvE01pDWYbY8WftwI8nS7BZza2JkVZ+GmAkgR tZCSPnPyjqUOamcxdQ+A6oUXsyIZm7IvsFkBAAAAysDuivlcskK5yHnuEocZ BhR2ocYdOznWjxxSfEznylFBEfKZNdGXlaDOF7+6RConQgE917wUWzLQazPj nRkmuCWpb+n6n2MGi8PjL81F21029cbuYZV5mY9LZ7M9M3aA+B5S0Wemd5za g/HvzF15GwAgIngyK1KxKfuCmxUAAABAaOgl08lkC1zR89wlzd68/kjc9ck3 w5cRR8pb/cgkFEqOsIjLK8DH46vYkiD0k238beImy+qhKTST9uWi5QmSxaVN WqcANZ0p3S4Skekj+nOpPrNPmFpZAEA54MmsSMWm7AtjVvY2nX/SZkVvXcpZ HAhAMeCuA0C6vPEYjhKmETX8RUAvGRMBfD63h/aa1fL4a5Wm5Vwv/dnaH0uo ll49yLxV9BJH7NnrCXgstkx541fLjlvavqP53TP5WcPCy+I+nZFuynfkUhwp lfzUgbGZ2texJO9YNOwDUN3wZVakYlP2BTErTH1FRtAvAIQAdx0AkoUtq1sj Nfx7geV5J8HcckDIL0U27OcbZsRhXvmyWdVU0HvmhygnkOXUZeK32DIDb4Jr /3DazAbtkKpNLssC1X5lJt9Eg8zvzpxcqcw+3q99P62S/8BlB5cpTlUJGvYB qB34MitSsSn7gpgVhF2g/OCuA0Cq7M7rOwhtvoKUdsQIHfjno3v/dnX0vDK7 uZc1tSn7Rz81fPnQs8ZrLTLRsJ+nMp9sf87X5xjRUYrFlZqSa6fJ44gcE5cE KLbMRSjg8zhtfzFevahpT/nVGrsN7mLE7pkRzEf0bkGEk4nfOmofxxybQnxM eaFDm88clj9qhzQ94ccn8piMG+66ogOt0LAPAO/sBV6sCnoAnf2T+TIrkrEp +0KYFSbsKt24A1ASicIVPoL90E5Q0DmYAICiSKnhr74y3dCq6+7nF3oUObV6 MkC1nOjX/snm9vNgaInuRUpt9uXa6sj25/MWf06/ITlNmAd/gFFgjtJrWk73 egQrtiyE0Lpn6qpGQZw7FSd/x3hlwjTtp86cqoFK/tDPzhvvdzaFH6DmzoFP TVMzztlpy+RQZ1ODou/GQuCVYA37dGhzyTl1Sz8eOWIgCnHlbT29/aO/v3Hv 0eKm6IcbwrcB+dkLLP9tyhS+03/d2UIercceK0XPkM5kXywq9qdDa+5vzAbd 2JBGFaNvWHfLvrSV9c34MytSsSn7QpgVLsE+Hdx84eONNYEmFFYtkl9evoL9 PY/hGJUw4sr+iDzm4kbVrQYAtUhKDX/dYd3jKtHmo0P+x2btufYmrlF+mqvV cvLC5JePvMWnWYiG/fqjhic5D0uIPse85yq8Bvv7fosmuVRHxhwvU18geLFl XuiQ19wnZ64yo/eYD8GD/X3aZ1aTN10VV/LTId/DCVXUYZf3TsysEAu2F3j2 H/3N9YoLuitdidkRvJ0Evgn6HpnG1KwTOqql8/Sp1FCIOqzWmp0+ka4vfBuQ GzqwaL+p7UtNMcvbek6rVG+3sYwXJVd9NuMruKyODngdt7Xqw5ntH3WkzziX 2aTxaFYkYlP2Kx3sJ38yHomeqY58YjA/cC1vSXrXkvzy8hXs0wGP7cbV8f4u Yjmbu0bveAKCFFkCIF7ovdCemPzWFB3+QgboVJ5YmH+Gcy4/D1RTu2asmAp/ spoxk8ND8so+Eo+cCmh/5jfYT1ZvhmlUmn5k34hlLrbMxrbHcCpxlUWZHuGD /X36H8buRPwboXRFhYoQjvTvj7ZHv0hm9aq9dduFZuIB4adhP/SL6+Z7bRTx xC0s+TaJ6VihgH/JZTN9OtCZ+HDq2PDt+Q3xJdDh24AspBopqkU5pPu3ew// vkbexvTW4p3fKkgj1G3w7Oa9z/cCi19/mgjzo+9s/NI2ExGmCSy77H/R93dE H68TOtdWhr/m0axIxKbs12SwT1Lf0vO/Ju/+4AtWV1knT0h+efks44+w47Ne ILY1Sq7+YgE2EdQ29LZv7oH52ni/qrMlGZxSTW09mqHL+hv/yccQ2BKubtXS V0fsSXXvWtfF/EhmCfOpls6zQ2M6g8l81+aYTcjxJTT6HDaLyaAbey+HdE8q 8db+m3es9sjbOZ+u5Qo0iCbufAu459Yfib/0YL/15zxfl8+e/TArFk0ydGsc cxCBG+/FliG/dVhx6uYSd+NGLNExnSu7wHM2GK/skM4l1L3MVqbKX84hRmj/ g4uxSF+W/Xd//Vh3mNkgCrhj8xL6aWr0ePieptoGr9k8m7nj99DPTuO7bfGH vaF99L5PfPF+FPg2IAkdeGJhjBR1WHXp+tc5msWS6pcx8mmA0C/dpvfiD4X8 1Lj5sT/9oQh5jMqw805l3gL5NCvSsCn7QpiV4sr4ny+5/+Z0TJmvjfTI07Md TV2jpmmXZzlXlfmS2znrsP3FqL/8XlrzI6X49af3nuTZlmsPyS8v38F+eEnX HeOsGV8VLe8BoBB2fI7r0ZZwqqnzgtlT+LOw43fdyVpll6ReEfYG8vq9gpDS fZxTULfihFZdty52Jesei0nE0wGvc8qkG1K2cK4KaB2yrWZ+U3LccJ4FDNv3 vsQnFyKEyMgm9xg8pc8/feXSHUt+IXLqH//Flmu2oZYihYsZtyqvpkEmBFfj j0C/sl8kU/v5hBrEx+5TU2+s3Ta3FX7pGEu4yaVLd8Yj/Yb2EctiobHw7obL oI77XSKO9+HbgP1IJO6x/E4Zu10jHSh3XP7cj0zKKE9Zpvw48erAU8vI8di7 y9X/32zWNw84tW3Z90AezYokbMq+sGr8xR257G3ZP2TfOeF7Z9yxw2m5Q4Fl 19eG4U5WO0m9QjNpX84stigZpLW8/Af7kYG9ppMsN/uY1pmz6hWASrK3MXOl nbhjqRPGxUIOlkPPp7XvxBLJ8fo9u9O99Ny37HHN2u/d+P2IKuUQoF6hnrB5 y7wDbDm1HcQ15J0EVynokO+BVsmM9G3uHLqWK1dSCCG/++vrY5oC5vPGUFyy Z5naQzTsZ8mkJIm6KzEKEvVl8ia8bMLsqStJyyVAseXOrPYgVVzBI71sUsau sKgOcQEGImcgtW1f7CUxKWw/M/YmBCVPGTzZexBor1mdqIcpVYY69qFFBOwh v200kTeXKw0LpR97CQF8G2lDh/yzxoFo/bysoa3/D9/kkMhj2HUbuhvZlqZJ ZV7O/AGBOYM6dkCX7yGin1v6IpEKO9XOwKNZkYRN2RfErJSsxr9u7SfLMmXs wxYO0KHNJ/cS/mpio02RcJEeUlpeIYJ9ZhdKUP1SxqCGefPUeIJtiwswNkmj 3PSr0Vuzmft06G2f8+ZwewPrzeXvaKefl28HePPEcJRM7ItzrtaOb/qTeK4k cih61VaIE1UwdOCfDvPEsKo9V9RPdWtn17N8KNmwn28BiQ7HhhE7UU24s+b+ wZ0hTZNI0PD007Bb02I+hiBqybE8SFGOGZM0r+/Qz3OXUkoWqwjXsh+BLOeI kE+rQUzQ61PDzfH7sK7XnOuHT0pMpNyxnD9z99mNk3WyupM3nuVvSU7/a799 tD3xMCr1C6KcBQzfRrrs+GcNfTHV97ARt/6jMLHXoNekSYknZLIOrTO90Z4O +abGu2IRev4mEXrFHD3Lk6vN3kwXwqdZkYBN2RfGrJQc7Kd3mpdUdbDjm/lM RdauU8dHLE8rMx1SDEhpeQUJ9iO+8XusyuHmD+y5xlIDUDnSnnfqpCmj+ST+ ZMncF8neUu0XLYt5wlLirD65A4xO/VSmeJ8lpSsrXqhWOOiXC4az8RPRprfH 7ubYG/cCnjsX1b++YJgpNG9Iv/Tc+aBLcd7sjUTZ0Qr/W/rx9Nb+xq4JZ/bP Jaeu56lzJmoAmjWWFeLaw5FjY6a+b8YfyFXbyQGmmpHZ2AVRS453KxTlF/1i H4nWjdedM68UcTfuLBnfid0u2RJkPEH+7rKqatsn5aoO9Fme5/jluUlM5IBe tQ0fjmqVvK3SvD9x9wlXJycRv0RvDfUtrxiL+eHbSJJkE33u0vrUP2OrxCfI NBuODjgnuhrjL1CM2nIXtTEdJc0XbJnLjXg1K7VvU/aFMStiC/b3o06UmZWB Kqc7KjaktLzCBPvpgiTizCcCkJbZz5XhjRGtXotE+pemCpuhkyHerzs9OZ+u jM079I5jvJH8XGFTodwJ/WQbfzu6BVFy5SfTedaT0UwrpE6YDvn+qtccoXLs P6E1jzNGTnU+MsObpx+QrAFgNUtGDwEyJnSSBoefH4dlv8J+y4IwasmJbgXO EhBhB/iWOrJGjV36uaKqtZkec77NViq7y6Ze8umhNBa/kJ/HG9szYwcYifAz Jm+OSZuMiysrsWE/rcT9yIj9F47vQbTAiLZCHr6N1Ej26x1Uah9ksjt0yD// 8NE/U0+36GXLuRZZKoeHbakhMstDyO+BhPzT49HGQ/lJoydbZMunWal9m7Iv jFkRYbC/HwlIF75QsxPQF6dfiPBoVXCktLxCBfvMOVuC+iFbpgEhAFScvYD7 34cjE6DqW3pGbzh/zn2kHq1eCz+/PROuzYKf3wwn/FTHhEvwydKkJx/9UFFF KwnVblmhcl70a9fE4YSPfc6So7mKrKcqVfKLSNaH75H3bTkSeZF8R2P8lQ0X 7Ul5hmjOItusdqZxrMh+sRQYaabo9R7vPMp3sWWEaHNl9JbK2Q+eTqIqpk75 x78XN6OC/tGkjC6y4E30aWdlrN9UtLAFwfJ0sHKVmMhG6lZTVIKMpSZa12cR pfwdfBspwRgpqmPANJ+5WGVreiTSMpNiaEhrlbTA8nNfpup8hryWAaaCqKFD +yhnseCOz/ZRVMOWkveaFnP0y/BpVmrdpuwLZFbEGezvR4Sq7JfIcZAy+TnT ovQakqS0vIIF+2kCpLmdZACqAtpr7m2OWGTdDxwfXbKwNkZjt8EtcEk9mSmT FSAuV0aS1ftcgnGinjCrOnr4nY3nEwNRShf3JpP1slx9EPT6rLY7+ROTLlak 1fdg1vZeZqQ7P7Ek060ZXychNMOTwsVhn7PPXGjFNTOUreCqmAwwPebFCjFx gFW/KuNBrL4ckEMDqYPa2VxXzDjYpTbsp9x1svzzxTKRVNmSRXSyLBUe3p0R +DaSgX4xfTEW6eesxU0K45Cp9qDH0CNLJa1eJcVqZBeJ3Y/N+xs/JY/tunkn P/JpVmrdpuwLZFZEG+yn3XjhBez6fKGCI6IrgpSWV7Bgn11JGAHVbqDaoXfd kxFp+/r3ijj7pdetA6z6T5ksW6qXL1IVxvgYos0PzNBqjsE4GXxlLE9MVgtw f/PMpDRuHxqwZqrIip1dUO2q02+lW403i8YTVI6yZCY642X6Hls8mf9iy31i vCDV1HKoqbDCjLCnah4+VrpXlugxL8tciVRnoCqsGDkXO88FEw52iZtDSmiT L+2YDdaCi2e/YgPfRgokj6NbByzenHsokfhOlsekNgFFLVJK3B30mvsJ+Zhs 5Wp0yP/4zsRgYrxXtm6CFHg0KzVuU/aFMisiDvbDq7fx7aiC9A9zdYXUJlJa XgGD/f1Nx1gbuYpircoDoEACLl1nCQrMqU+E4F5iqjrfMZ2rhNwdbzBNDZwj AiI2yRTssyL9AnIfhZB6YJLBr6ADz2y6Xnk0+/OaERljVJiiVZo5FdGZgs+m kyaO3YqZ3o0oPheg2DJCrGIkusJb67E6CkpxRmv+3hvI4NLQQd+c9TNNRMi6 oW3gT66NUiweUy7eqXOVQbCdVb8q4smVBKw7NncpAuNg531lfujA3I2BY5HF igwfv+sp8tFjLXhpxQbCAd+m5mEG8sqVk648UpNMBXiEZFhHr94bbGZX87GK VfYCrs+6yNbeboMn1Rru+Bz/dik5w7deof7Umk8TmLks/sxKbduUfcHMiqiD /f393RXzOZZzU7y8YXUipeUVMthPa1kSaVUeAIUR96KLKU+NwupILYM3G5kC R35YHnG5chF6ZlJHM495NYfT/pKITdLK7ViRvozq+sxVeqTPbtivazt+LJpb CTshV4xf2WedTseU+dqHKkVDU9cH5oVfol9mxzd1KeolHlLp7joc968PHaPy dmy9fqw7HDELvEQNiVpoQYotI0QrHolDj91Nzz1d39GoKZG3Kc+PXJkwmG6b zebbxqvjQ6q2yKKF3VSt2fm81EI2esl0Mvo5mRStBSC1Op2/EcyCQToweSp4 iTYfVocPHfI/eeTm9nDyBPt0pQydGsUA36a2oUMrloFInE41D1hW8ubQieGV 7LAuTaqLSFjT/gcXWWN5j447Yrp8O2ueGeuta9r3lC3MnzYd1Yxd/4brRFr+ zEot25R94cyKyIN9Rm4iuZG1js/wOfZY5EhpeYUM9pNbTYI8M4AAEDWsRLm8 ve9/WzzcFPVZUm8xShLFyk1Ks7lIpPhDq9bhaKjfPmr3c9TcjQkmxGDXV7Aj fVnze5YVXnqryTU82G99Edp85rD8UTuk6YkM76Oa2no0wzrTtGeT5RCGHZVv ro/1K8OvaWpXjXzxcDlvz+TOovF05Pp5iRpezxtOHGpRfmIXKFxbuzfQPvyl N6U0NBRYdn1jNujGhjSqt2POWEvnKXX/B1dv/KfD4+elXy0xna3oYcpcSavF FfCB5YnIGV/iUcgdLBM1AGyVuUjrSoXEPNkyI4JrMBYLfJsahlHRz9lBz7ya peHQOO7YIW8EOuSbGu9qlpGEjcLQ6FDPQdY/1h1V/c/enpSZsOEYf/Qzk82d a1hMLvgzK7VrU/YFNCuiD/bTy03zTG+pLaS0vMIG+/GyZ2I/Q7UbqFpSE+Wy HFNus7DjGGtkv4OA3iyp0xWFH7H3Ei/qe21rXWZR4jzQux4DoXhC1FfQm66J nuR/yT+6qHCYcTzht+0r0l4XRsLfaO41eyv+K4mV117TmajvWrZyOPqV/SKZ fqsGNTYiOZ7TdSHU8ORq8q6LHAI0HjU8qcT3TOmbyK6HWWHg29Qqe+u2CxyO o+kX1oGkX5B5NENo1XVnYqCTHfJnhmpqO9k/8onBbHMu5+keKASYlQIQzqyI P9hPkxst30G6CJDS8goc7KPaDdQO6RsDZwmpDG9RrBXIT4oUvxgaYPfWre9F Ghm4ztbZj3gt1sGkUB7R3rizYnmP8KJa+sxLvC1oUma5DBXFL53aY7LMnZsg yu68vqM+Ugun/b5sY2wSwk0MvIgoCgpxypfDdWEdkbG+VFQZozySCOmkBPsC eSalA9+mRtl1G7obI79nLpUVhsQo3jhHRuy/5Hp1YNllv3dzTMmquJNRzX3X vp197FkTYtIHzEo+BDQr4g/29/e3bENlFo4WD1JaXoGDfeY5YuBFgQqACpAp 2Oc4SzpN7U3AYJ+lGiQTxdy9yAS6yDEn9yxYytxSRiOI3l009SabInnuKKR9 ZnX8vesO6x4LXX2VyMLk8RilSiLjVmaVm9Tpe60jdpF37RNx6EGtcyfj88Ao S8TubrK+KJrnKpMkQhqpu5Zog334NjUJve38OHqmnGN4CgGjPxMzP4UE1ME5 fRd5hxd19M0FmJWcCGpWqiHYT91yZSXIUlUbUlpewYP9tGGj1EkTyolANcKS go/DUU6/nJn91M/ieC4hBOvW/jruixYZYvJwnNAyqjt541nMpwouGJTJJkeq /cpM/hbLwiEFFcuzPwcW9EoKWZiMxDNujd0Gd1mr4FJbb0TwHOWFaTrOnKCP RfqNx1XK+AEaqeMXiWGbhVlkei+0l+e2Tt21RBzsw7epQeI9ttQJ42L+Oq6U wXkFlP2nTd8uS50SzEp2hDUr1RDsk72KiXuyDKkNUSCl5RU+2E8LkSSl/wDE Cx0KcQwM2ZXkkYdW+ce/c9KISe/ZFy7YT527V/mMZHy34dr8Hloy9xH9CEll +7gPk9hYeGzVj7Hl1HbE37xcndr01iNtR4Ng442ql7iuI9X1+QJfqkwFklqN I4IKmfwk5cRTplvSQa9df05BHVJPPvJvxyuWibl70fiFqxRJNkJby64HZkNU z7KJeFJbTpwf/SxN1jJK/DyQQczBPnybmiP+sNcXIFixF5j/A1GO39A+/nAj z87EjPMjfYhy1CnBrGRBaLNSFcE+c5EEIh2DwjdSWt4yBPusvtcIqHYDlSO0 7rFdH9McjT/iEbF0g82zXuBGTAeefXP9cr9apVL1DU/cXeA43ZVQxEogWOSQ pvxfcbc5selxGgqQIrNPdY7PrMUL+J/dOJn0teoUo9/m87U4QmxcZVTfSgxf 5ivgqgnojW9HFXUySqlfKP89nNJFLgbti0LYC3jMw5F6GEquHLs5NZMYE1lP Kc7p7d6ob0sHPTeio8EouUp3z/FX67XBtrrjo1M/lXb+SIc2w7vsJZUiYfep ls6zQ2PayPAsk2Hiysi/dLXUR7TIOt+/4fyZ/Ky06qmK71o5gW9TY8SH6B0Z c+Sp4WcPzotOh8836TW+ibEom/wIzEoGhDcrVRHs0zuO8cYUv1QkY5qFRkrL W45gH9VuQBzQgXnTQAcVdjLbz45evX4z6vpG78jS/dtCIMvCE8ZesLHdadsY k7yrFFyDfTrkfzSpJgYgyH89OZsIDXY9xpNEBaV80OLjOT9CNOyX2YffXjSd kxc44lkK0D7bb9t4ll7kQKrQpQD+gFDQwefOu4ax/pORxHpTm7J/3HD3B1+Q TCrQoQ23dXL0bGcLRbV0nb9sdKyUssiR41DDcGc8j1+vUH90c/rJWjAtjUFv +5y3Rrua2Xtv+g4pcjlE+Da1RbywJI8/TAfmDEnDVFCkv0/77aPtKS6/EGYr OzArbMphVqoi2E8Xoc3/CNQIUlresgT76cf1IrfgoAaJG2jq2PDt+Y24sWPU eGRlSRqmzdwUcDpzutssnOx/ocRnFxZS7EpvLdmuapjMYCQ7+cm0jzms2PVZ BolQP0fD3V5g6aHp6gf96r4h7Z8cPg7HHUk7QJ02Lpb3nIRemxnvpGSH1IY5 HsYvVTcxH7Wxa8JZoaUIOLXsx1YiJY6c2fE7jQNtiXSn/B2t9R+5fzI68NQy cpxK7r1p00JFn2CCb1NTREwUlfN0lw75psa7GFG+hrYBkztvpJ8oF2dTdvkR mJUk5TEr1RHsp4nQyqpDmqZ0pLS85Qn29988NZ5oJL5pIS1RAPBHrN0+PYNP zMUQvFR7e2bsALthr/kDu1Cd4GmNQmKYD779vba1TpY7uRBadd2dHCJHEstP jZsf+4nX0+tTw83ESmYbehVamYm0JydfSHVMuAoeekJvfKdXH65rOTlya74C rlGsf6FMNSeiJSYl19A+et9XsWxUWgTKqQ9FIoR+cV0/n3jWKLnqs5nCDtbo gHOiqzEhHbZi0TRX2VLDt6kp4oPqZIoL1vQbmH7pufNBF6M+QXUMmAoyDfTq vcHmlF59maz1I8dW2Q+yYFYilM2sVG+wX3dEPy/qY1ZekNLylinYj03zIb8r kiOgfMQSwXKlYSE16UKq2AkbDicmvCQR9GA/tb5UHG5zyD89HlUoopo6B3Wm +w7n/HLg5fKcc9ZuNRt/P8poKcScqZaTFwwPllLyJvS6Y5xMpmVueyQqLRva +j//0jikKMXmVoTQysxEr1y6jlnMJTuo1D6oXKS/n+HcjNSuB/spwhqFVTUn iZVXReeCxTumBXa9eAa+TU2RbMZv6hrQmaYczjnvitf18J7xSl87U01Wr1B/ al3cKmgXSNP1jXJ42FYuGZgUYFbKZ1aqN9gXh8MoNFJa3nIF+/u013SSZRGr t9rt1aL1mlYsXLMuVoNYVEWJJYIzCq6yizCFjARpr7mXFetzyjJzJ632WCx7 947P9lFXU1qag3WpRzVjBsujf2ZKmtC7HgN7dtGv9O6UR4AO+e6PxtWTYqf3 Qa9JE+nFFEN5AyforcW7412tHwpWASJitqZHWt8evfOk0hWn6Wq6VXVkJDRs CU2q6zMXh0g/Cr1kOtlU129dS+1trIrBB7Xk24D9SOfX4ldjXWlF93GiMhT2 xYI3pZTxfPEbW37uS18FtzWYlTKZlSoJ9jOMhBaNwygoUlresgX7MYNO7pkd +vmy9ivxRaYfroJI4pEsiZ1F42kq80F6eCvuI9w04Xz4vQ37JQX5s/E/Jy4F UTca04FFu0k/PtSnSqDuH7miM5gs3ziXcxrh0DOTmn1mkqqIlR7p7wUWvohK jjd06H4oi/QxqCX21q3vskW0EewnSBmWIe83e4uIc3eWjO/IGt7VT5xkG7eW Idsa/9fMOzXj2wAGemvJ/u9hE6WJG6gz/SOfGMwP3Gu5m1M2ZrVdOQ+y89I2 5tgs03cEgoNgX9xIaXnLF+ynV7sdnnC9rsJiSPqne4Nvlbaf8wf11uC9n6pw EctIrE+8Y9K9m7ZO9HNL34HkYjaOO3aEWcvtH3QdZH3qIbXRLXDuZ90+wi4d rIKC2LykyxylKhzSGw/HExOR6pR/mPd5bFdjbfuUXH3DU+YR7aAmSLPVSN3G iIlcMRQ/xTu6ws0tLSlF/L2m5aoImmvFtwGlsuUy/IY5wVb1tGXKC8nbek6r sqAe/hOXFhggcqok2N9xjDWm3qYI9nlDHMtbxmCffu2aOMz6up06lwSGO4BK 8mbL/kFzFnFdetXSR2Ts6odsW4JcQ+DvBhXxOeVRG0sdDl4DwX6GOcUpCoe7 T029zESk+pbjR1tiLjh1RKP/a0X7vkEVk+YRSGMsUR4Sk7sT1PWaiwz19zN3 NYqqGCkn8G1AGvSma6InLStUp/jtf/lhiKRClQT74mgqrwCiW969gPd76x2z 2WTQRdq0Lw1p1CrVyZ4z190lnx6XK9gna2uT+95h3eN8I7gAKIXojOzMs95C q5Z+InSMKkTxDx1c+JxwiSl5r2kxvcaAf2ou2KfXZ7XsZn1Cmo8OLM/Nfnt7 NOUFMqpFOTTxZ5e/vIPzQG2BYD8DwTl9VyOxJse0zpfFv1smveIqcQ/K7NvQ oc1nDuufzeabUXfwdyP9Z1SqU11dw196scuJh72NmSvtaaE+1fHJbPkV+EHF qN5gXxpTRUS3vGnzaGLwce5dlmCfsYZ1B1sOsjJzqHYDgrIzqz1IZX5SUhot D1x2CCCXR2890iYL+LnqVJdCTQT7kRj+e3vYs71t1I9p2gpunqHa+q4YzN+4 /bV/NA2EB8F+GtsewynycaROGBdL8UYyuENV0bxcft9mz285n2EjrHvXuo4o UizQ/v/6bUoRWhi5xuiR+L4hNao32D/Yb/2Z988RHaJbXjoU+MUXYdF1azgh 88XPnD7hg/3kuTfV9dnjZ3f6WFtgaekAAHIT+F7X3fkvX/6Y7oe+WTSeSPpM wiRiQl7LANM4X85If79qg/29wPLfbGaDdujXnS316S5tZqiWzrfJ7kjsKoBP EOynEJtvQixI5j4pDm+4ZOxOeaiFOX3llQr5NqHAWsQb9Hq+M2iYPbLbWNIP AHgktGTua0kzUpIddSdlqiPYzyQg1613S0DMWLzLS+84xhvjL24dsa/zdxkC eS9EhVvze5aVnVRJNBl1YGxGArdU9UC/sF9+u8LTBprevmx/IbDn8sqt/xXx kenj20qGfrlgOJtQrypzpL+fHuzX9Vt52C+EYmfN/Y1JN9TDDvDDQfxpzdCY 9sP+zvTSptZ+46Pl+JLu+iyDSaGwqpjXBaqHPZfuEOvek3iwn6ZHV6piIf3K fpFdBy9+x0AEvs2WbSi+X/KT+kkiFTdAAOiX85On05P6yklXpUeIgvJTFcH+ my3b+6mZlaobUlwc4l3eoMfQE38xT1Vbggb7dMA1qYz64FTPhGszutWlNEpX xQG+lBDHYEHBtUFeP9YdTt6GpdagZmBnxfJeIkAtf6S/nx7si1NuhQ48++b6 JZWC2QvlbaohrcFsc3oTrhEd8pr75KmFq1TX5wuMtD7715QpTcvYUQCPpJbh STvY353Xd7Cdl1I7CgnHJrHCIq/hF4Nvs+fWH4l/Ej+pnyQScQP4J2Orfnkk eYEIqYpgPzr5lA2lNvukcMOKdnnJLmOeqraEC/bpwJxBHcuHtPSZl5gbPUUC XfxmXVpI4kif3nZcJnIwpdagpkFa/LChv+cNlv+MNDXYbxix8127UBqhn503 3u9sii1TvUL1ocHynTf9SCRjSaTs8LBtNfGTxQYuMFDyc19Kwk6BckEvm5Ss 20/KwX668nzJPVC016yWs95S3GI+4vBtCB+S94Z9SbgBvJPxXBojX6VMVQT7 aWOa+XeJxYpol3fdmjg45q1qS6Bgn7CGDR3aR1usSdio5AeV5Rf7yJHkDVjX b1nlMYGwF1j4Qh23+BU80hdzzz4d8j+ajO8PzZ1Dhm+WtrKsUdBr7meHAZEd o3nw3mryD6IDFyL/fFh16frXEOUDfIOefYL0LHzJaeVkOXqMxhPGp6ItIRWL b0N+VtXMKKxl6IBzgjWfInoHdH3mKndRHxAP1RDs783rj7D7TjKPr6pFRLq8 ZF8bbyfGQgT7hDWk5H1mb2qwg0p+UEnodesA4VvWD1jXebv76NCKZSAuXXVI PfnIX7HiPfEG+0mnSN47MbOS3QTSwb//UZnW/ShrHrayDmdCa87bBvOjDFUB APABgn2CtNlApaaV0xr2eT595RMR+TbJExLqoHYWU/cqTGjZOtyWYqmo9ktT PvwyUqYKgv10cdS6XvOKRAIykS4vcaLOn3gC78E+YQ3De92VmY0MbkBatVvL kG2Nl08HIB8p/hiPlZbkwOVDasNcRQV5xBvsx+XO5GcNCy9zrBB7aiHjP3WO z6xJxBABkYBgP0m6d1RqRyG7zkpW16r9XpyVfmLybegdp/Yg3CeRkEmUD5E+ qIZgP11tleyRrHXEubxEXxuP4gn8BvukNZTJz5kWsxntROVtgvoh21bpHw9A XkjhizCtHzt5yrwkb37q+IjlaaWld8Ub7BcEa2ohQ8WPUApnL+D93nrHbDYZ dNowl4Y0apXqZM+Z624RNyODjCDYT5I2MrhxzFFKSJNSZyWrO2de2eXtavlD ZL4Nkfqh+oqMIwA/kGK8id9E1JE+bFPZEH2wn6a2ypI+rnnEubzJqq36o4Yn fHVo8Rns7z419SasIXX84nQOcZW0YQTVNOjh1aL1mlYsXLMuikt3TeS8WTSe SB60lSwtxcDc/BzG6dJB3xOn84lPkK21moP9zNOLqkvTOK3aOQa6a6uQNI/g mM4l1V03Ndhv1lhWSni73RXzOeJJF2taX2y+DSlpiC2lkmSQ3xd3pL8P21RG RB7s09vOj9k5FSml9ffFubxk1VaH1snbUTFvwX7op6nR44k975Da6M4zdjdV k6d6StHEMZWGoQrH01SQV279r4jFK3E8dALm5ucQ6UcuxqU7JqPOW/xCNJun JpgEDvbpkN9116CN5Ag070/cfVJC/j1DoiTSIdtrWtytIitEhwK/+CIsum4N K+Lfgu9x2KAspG35xXpuNUBqsF/auUdK4qP5go1fVXleEKFvg4Z9UUCK8cZ/ jqauj2yijvT3YZvKiLiD/dAzk5p0tTLqkOSFDm0+c1j+GHb+etrksqY2Zf+4 4a6LkKvaC4k2RyPG5U1r2Ke3fXP3jdrhs50tlKy+pfPXw7pb0551rvcTP8E+ yxoWmIBLq3YrSieNDvrmbLf040Oa05GFkFEtnaqBMcNXTp9gkn/0T/cG30qd pFopqLcG7/0k1gdJfLAHslMnTd70tXvz7PaZY28b/16o4WPS0Nwi/f34AbtQ hzUBp7aNdasIeCq047N91NVEPhNFnw9nnFNMydVfLFSr/h694xhvjH8Rvsdh g3Kw57ecZ9+SCPZ5WYrQqnWYcIZYY+yyE/Rax7qaGhTqz2czdc2T0MHnzq// fOfrueKFUivm2+RwodGwLwYyRPrc7RQdWnvqdD5dq0w0BNskNGIO9lO2X5lM 3m/2ckx+JQcoN3cOfGqamnHOTlsmhzrD+3PfjYXAbsD978OdzfmqoSqHCJeX 1bB/27s6axzooChFzwW92RZdXv1AWyTUPdJn+I6TXeMh2GdZQ1md8g/zBW13 KbPOOWvw0kHvQ8Nw9DajmtrPaY1f2WedTseU+dqHKkW9jOoYMM1XSXsvKA8p t1xzrzlTrO8xHOVwyh3wGDWRJ5NzpJ949oRKuJct2M8Ynhf3aenuU3EelKgg zml5H4cNygHjsDFIONh/ZR8hVTNLuaW3v9e21iUf88JKdwgFvCNjjpc5X7vu GOuIbfVF9hpUyLfJ50K/QsN+pUk3VcV0mdEbD8cjir58duZyAbZJaEQb7NMh r7mPdQO3Dli8XC6RDvkeTqiizU2pY5X2As/+o7+5XnHhs0+V8atvGLGLsfNN hMubrNqqU5wdOKtokCu11kVyxOtr//Tvoi63XDnpKjzILTXYZ1tDmeKCtfAS pu2ZsQPkahzoszwv7MJ3NxZuD8dkz6ljw7fnN9h7LB1w3xp4SyZrH7X7Ee6D BGzZ58wOWMz8depchTwOO76pS5GHrohIPzGSQ7B8++6yqZe1iQnzSfTGt6OK 9PF4RUzKzhjpV1effiZIQchSdctBRUgL9qXcOkV2i0co+twjsKBXJp/2QpNK e+vWdxPbTb4mrKTX1Kg0/cj5yauMb1OIC6270pU4cEGfdQVIN1XFKMcmJR85 3Vo8AtskOCIN9tNGHTV2TTi53MDE5KnMY5X21m0XiLx2Q7fxH9yLm4KbL3y+ tYCAxlZ0y0tWbUXWrX3Esph+why2wr3R1aVO6FyFNvWXFOynWEOqZ8K1yeUH 3XSMtZHLXNdnKaD2NxFhZb3NosV7pvfDr6nrt6IyCcRht1JmvtnePDEcrZcd nnDll6Xd25r9pIPKOyw+659HvdaivNCCKE86cttjOJWW1W9oG/zzErf++oyR /iH15KPi629Fwro1MegRTZFVSlqRzCGdS7o/ZMosoXeMS0XEKXRw4fOu5Lu0 /dZW4HyhdftIQvGocdyxk2t05yv7xYS/xV1YoDK+DVcXGg37JRPyu78xXxsb UEXbQNOIdMgOaQ1m29+W4y73jm/6EyVpqopxAMI/9AOt8mD2H7oswDYJjgiD fTrkfzTJDBaJwDmlQvsfXIzPmG4dtGYZGs/qmeUqNLcXr/+PPoMK9afs1DZ/ iG55iWKbXNVuyVxe4T1ixQf7KdaQcxHIfgatwvzVbtuLtwcVsU+tOz05nynS j1dGRZFyCgawIH0/WZZUC/3aNXFYVt+hn883/CkRnBZtqekX1oFDBVSiFg3Z jicrydzkYG9ef6ROVnfu+oM72oEzKpVaM6Q1fvOMY46DOL5jaHp73Ma5WEJ8 kHdd25hjs9LXA4ogLdivosEWAkCvmHuTtTzF9IyzEx9cahFjG07cWch9kr/t 1nfHP4GrHn5lfJsiXOiD/dafuV0XYEj2SpDI23pOq3raMmkwy9s1Y3+4+h5h qii56rMZrkl5emvRqo0fF1Qw0odtKgdiC/b3Ah7zcDuZdG7uGp/iVjyZHE1C NQ/ey36G+dIxlqik5dgkQvu+PJeS+lFcsudTaCkGsS0vWTiX8ysnL7zgtS0y 2Kc3XRM9xI/BtQgkAVswLVsbdQKyOzibmA8774AiNxCHnenO6HrRq7bhwwUM eqZDvnvDirpI9f49ty8/Xo/LSTBjs9w2fvovEZGNIvNihX3hMgwHj6l1lfKU 0S8XjOcVrH2dSutRql7ShFVB9fGztf8g6wbVWPyVvqaKwvTCR+9rjupzrIH1 HJNKsdan2B/mqQslvSalabnwK6yMb1OUCy2k+ahpiF4JWX1Lz5DO9F/O5bQf mQ4sO//LpBvqaWENV0ggV044OBae7fhdd7Tqw/G7q5KR/j5sU1koOdhPVl8k 4LSbEdCBZ7ar51i+VjHKZtvPjImzXuqUwZN9UCq5A3NrEtlZMr6T9rg1dhvc +XJw3BHb8hIN+7nHghPufaGOfTHBftg/N5wl2vao5gHLSpHVtgGXrpNc6cwC 6bGPXb032BxbyhwjDIjzfIFuD1CVsIP9DPFprLI0/6BnVulIiTRctL8SbGrE sknJ+jABqghiwX6eetrsVxiYNw10sAP9Ixr9X6u7SZ+EJaxqLrBSGYiMZbOK dWyGejHCFudz+VL+MDBn7DvCUdyegWzY79a7c34o4TVxKFGukG9TpAt9RO9G 7TV36IBrUhldQ3mvzlZAHVro5+8n3kkXponl+q+ZbRkOClLfwe/++vol1WHm man8hD7YpnJQYrC/t2X/8EDKTcfZ3QoFll1fx8XMk7tRU9cH5oVfOCtNrU8N J3b+ul5zlvKjKEkpV65NImmldDH4T92Kbnn3XLrEOXju6RhvtmzvJ44gC5Wf 5Rzsp1pDGdXxyexW8SYnKn5Ovt0ZkzfTeQa9Yh1MlMXlsoZ0yPftRN/Rpqaj fRPf1k7UAEqFfDoylYAG5/RdjXkHPbPTUiUjaOVJ6rjnJpV5meePiOtQFVHm uuOb+VyjIK9PyM6sSpH8CSqltwxKJmKAWbLbxWgN1Roh//Q4U89cmEz9m6B3 Kt6nHOGQauIhRwNNNOznyUWSMkcFzxSrlG9TpAstVoFrsbPl0p2ISllrjJ4C nN7M1f5pRGYjjlzRGUzmP1vt3yVL+PSXh1Tt7BK7hrYBk7vi82Vgm8oBl2A/ pkcX4fmS+2+RyWL6oUw3XlPXqGna6V7KVU265HbOOmx/Cd9+7/UoUt+iqXv4 xiNfsIjfnNRoyiM6uufWJyqQuE51DC9aX6bnrbRG1CpYXqKkIU9xPln8UKhj zzHY3140nSOtYTGTGVOISaIRK3XSlF7xweqAy2MNAcgEMbNJVj9kY8mFxJs0 8+lEhbyWAVYjZomkXga/pNbxC2HTg15zf3TyYEe/YaYw130vsPTgWj8roU8p zl0tJMNSZZARB1eBGiAaUobNoVE6Bis0puSq39uXs1Yp0cHnj8iISf6O1vZj kOvzTjTs58tFEiXK1HmLv5DAqlK+zX6xLjTuw2JIuAEFKPPQW0vfGIY6GUFE qqnz/etf3kzW4RdB+M63/kMElg62qTxwCfbT+8d5Jjqj/PbM4max9c7kkJHs R5dRCo9bM5BlxhN3nVUS8S8v2TCYp/FhzTbUkvjcQg0Bt2A/pcGBs0RtRnZX zOdYv2vrx85t9rvG1cxiHBqwvqj8ZgmqD2LYU1Jvnw5tuG5GisnzT8/he7cQ WgI3tfy4cczBf+Eg6fM3HdWM/cFs+86zluFz6MA/H90zXmF5SmH3aXDizmPx Se7Toc1nDssftUOanjZ5NGszbrjrIq5zL5T/mtOaIult39x9o3b4bET5OaLz PKy7Ne1Zl3hNuNiJ9aokEUD7okqhtxbvjncxITx1WH3FeO/h/JLvxVpgNxT4 xedbWnj41Q3dIJFAae4c/jenv5h9iGjYz3tuSXhNBVZPVcq32S/WhUbDflEk jHh928jdpczp9Z01z18tk/+LaNUP26lhQ1J4dsfn+II4BCiM8NOhveMq6s5n I17bRAd9c7Zb+vEhzenobAOqpVM1MGb4yulLv+klQsWD/fBPqeof+cRgtjmf +jmfr7Kgtx2Xk0XvefZVIhotpn51L+C5q+07Gl0PeXvfZw+mJo6WaHnFvrxc Gh+Ic+/Cz0C4Bfsst6dt2LrMj5u6/YOONZQwVZ6XzMkWomoLQGaSMsv1CtWH 125evzp6tj3siBampMH3biF0aoaUcooilIo4W3coCdXU9rYqzOn0sUbNnQMT Zsc/RZDjSCNZtxm+yE9NUzPO2WnL5FBnU4Oi78ZCYDc+FIY6fnE656kjqyny tnd11jjQQVGKngt6sy36nvqBiEgjdaTP8J34jjtAHKKNLoYQIyyrlzdB36Mb w935N8bInW+wFX+0RTbs55MfSXpNBQ+nq5BvU7wLjYb94gg80rIkdxJGKsKp zlQtvux2KjXvn+PO5yvMF69tooPeh/G25Wh+0/iVfdYZqZS+9qFKUV+UEFxt ULJAn4gg9dDy7as7s9qDcZ+vpBxTaDsQq4eP7M81fsxOVG3lmXFD+8xqxqMu WF2TW7BPv7Bffjvy+qbu4Vs8Prx0yGfTKoneB9YgY1a3NbREQEmE1j02wwjT RhdJRl8vwQUVM2mipsLOB6dDa+5vzIZ4xiGT09PUporMLP7GvSbS2JZQaU6d nrwXePYf/c31iguffaqM3zt5emYJiTDF2YGzioa0KQOv/dO/izY+c5k+BsoK y/pEfZci5ShrmnDIP5fp2Ze39WiiY8qdT9dKzHsQDfv56kKLqXWvjG+zX7QL jYb9YqFD/sd39Bc17RmNVMxOnewf/cw09bfl/J31O2GjZ7r6wfmutPPspvaI tbN85+WnPV+0tml3Y+F2fNwYdWz49vwG27jTAfetgbdksvZRu196+2YtBfsr Fg1ztJUnGiXkSvhJaUUD1doO9vf8lvPxPYTqy3m3FBkRc1fjfxPcXNssRnyg aF65dMcS30zoymcAagZykG6USkzYoQOrLyouRlQQYW/q/mjMack8FGlv3XaB SOTkFmojmyIjL24fsSymrwPtNfdG35I6oXOhcVKEpJ2YFTuaB5QEWbiYp5+R 1HfiVOteft9mv7IuNIgTWvM4H2fsPuPIXmD5CR/vk4JobdOOb+pSXKgzyyRB OvjcaXo//JoMqsi1Tw0F+6zS8dz7atE7cDZirmy+CSzVDRHn5snKEefeWXVg MlDM6L1yQ445zmMNAQAMRJdrjB6DpzTJqdqF9j+4GC/vbB20ZlEAZc3Ozq1r RDRFyih5r2lxN+Nb7i6bemMv4jqvHJSF1F4YQYQvQD6IrYzKV6BUVbXulXSh QXUgVtu0vXh7MF6zUnd6cj5TpE/OKZbiyNIaCvbJLtY8M6OJHZi1WdMh/5NH bj/3hYgeuXMX+qsqiIGDufttSY2XfOPDSKoh2Cd1xmr7bAcAXkkVEuc6A0Uy 7D419cY6s6nmwXurWe0YEfrlNj3kOGzFJftG1lcmTWiN27LqhP7RpGwkniDM 3asIZMN+vgN/YlQiu5h5Z839g5uX1mkeqaQLDaoBkdqmvY2ZK4nhmy195qVM t99rr+lMsrtB0EHDIqWGgn1yBG3un5I4wGQPnIqkpCmNxc/5s6MJ3xq/f5LB fs5TsTdb9g8SNTyN3QZ34dL/1RDsk1MGqv+RAaBsIFQpiO1nxt7ETK9TBk/2 40TSTcpdS0w0RR7WPc6hr004+2LehKXKjmOMfIDySsMBQSALF/MktYkagGaN ZSX5HyIuaKPoRopX0oUG4kektolevTfYHLtvKXmf2ZtZhIfUo+AWmNQKNRTs k1nXnKlnetmkTPzoStOPyTuj6B04cscWLLVarTC3Ss5gn2muicy7/mR2i0N6 qBqCfbLoiNMjs+Nzfuepjn5hAIQgtQiZ7SWCCPT61HDcb5HV9ZqzVElGKXg2 CiHhnruagtRaYccmQAQQfkvMvhY4tB3wClnrnucnIGsAWF1L0UMAEY4UL8KF lqvNXh5caCB6RGqb6BXrYOLwLdcRBB3yfTvRd7Sp6WjfxLc+karyCkotBfvE 0U2OnYredE30JI4vWVPhopIjnToX10gzvKW/Vy9rG3NsFnvlVUFSSSN7qyC9 7fw4/uBR3dpZbn2f1RDs069dE4czme+cxJRDWodsq8JeHQDihXR9o9R4KVQR bHsMpxK26UCf5XmO/ZNQ+c7tJhGqbnmK80n9tyaVebn47wH4J03iUvw94LUI S3skt8pocE7f1Rh/JasqPtrwfuCyQ3QTv4twoVleULEuNBA/4rRNRMSR9whC 6tRSsE8EYge1zswjaQjBRlnKwWy0p+PwhOs1x9sllssu4g+rDqYZP0tlDh1w TsSt2yG10c1Vfqsagv2wPXtqPNFYyI4Xh37ltX7YTjW0j96X5HEiAHEIAedC 7Lv0INVOqDMmb46qxsLdJEJTNI9yONmjBIVtsUEWlUUDTRTGVICUE8te03KW cmB6fVbbnewRJucm0M8tfQcPjM2IT/GHuwvN2nyKdaGB+BGnbaJfWAcSpQGy QwPWF7jzslNLwX6kushyLnZLZDxdjG1TjcdVSkXs7iCPW3fn9R3N3Fs59rYc H7XKmnvJWqaaJXG4l/FhDy1bh9vikb5hrojhsNUR7O/T266Jjui2R3UbPJm1 Q+OvDG0+uad9Ry47qNQ+QKQPpE5q0zGrsEry0NuOyweYtclT9kA4P7lfWXBF JVuLGz+N2CAHwchSOxBBmSAb9rPHF/TLBcNZOdWuOv1W/IVEovzNovEEdUzr FKXeQgVcaCB+RGqb6FVLH/PPdf2W1eqPYQWktoL9cHi1YhmI9JWkDnGgg167 /pyCOqSefOTfdhu6Y04no68S9Jr75Vyk4+PEKrVaP3aKriJLGIILBqU8IsU5 YFlJRq90aMN1cyAaAVPHhs1Pioj096sm2A+zvfTlb9si3zZbvv5NcO3J9M2P 1Ip6SnFOb/cGpXF3AJCTlIAFGn0kpIJQPgWYnVntwXieJff8NaKiMo9yOO0z q5mEXe76ZFB+iF88CmbBVAJW0BF9UNsvTflYzx8deGbT9cqp46NTP71eMccV zZh8d8hrGWgVcb1x2V1oUAWI0zaRjfwySm32ifSZEgk1FuyH2Qt4zMORcYqU XDl2c2rG6ZgyX/tQxQq76KDnhloe3dBUunuOv1qvDbbVRTZnbksQr9RqH7X7 JXOX0SH/o0n1ofAjp1B/FFne2WmLYaQnspj1Cs1V29JW0UtRPcH+fuSIe+Zz jSK801BNnYM6032HM8x3dusdk0E7pGoPfxFKcebKzYdLEOUDIA45nTlqt1GK nGTFokmMMcnn/BANEbnr7ff8lvPxBaf6cpp4OE6ihtUqLss7GQ0IAvkr1LUd P9YUzW+EDb3xK/usM+FqNjR1fWBe+CX6sDFF74dUursOx/3rQ8co+TnTopgP asroQoPqQJy26ZVLd4x5HPPUBoAaDPYj0MHnzruGsf6TbeHduKlN2T9uuPuD L0imKujQhts6OXq2s4WiWrrOXzY6Vjh+/x2f9YJCVqcY/XZDalY3tO6x3dAO /bqzpV5GtXSq+kev3rLN+UrMX1dVsB+BDvrmbLeujvarwndR5MrlbT0qzdBl /Y2vHi78FEDdPgBsUtv2s3aGSg9W0jD3SC/yzCT3Kwl3iDUOOx2yPrnppCln AyUoN6nilnX91hy6V0AYyF8hHMi8CG0+c1j+qB3S9LRFyh2b2no0wzrTtGeT Zfp3Nz3fXB/rV4Zf09SuGvni4XIVHNOUxYUGVYJIbRNZKJjnCALUarAvPHsB 12ddFCVXf7GA1C1PVF2wDwDgxuvHusNk1FL4SItahxgknC9vSzRFstwkOuR/ 8sjtJwx5wKlti78y5ywtlv4SanFFR0qrOHveGSgTxPDQPLlIAGoIkdomYlIk 2pryg2C/OIIew8lmRPq8gmAfgFpn0zGWMPEIW0giI4cTLk1uXSMiz8Lug4iE hJTG4k/+S9KhatI6sxv4N1v2DxJlmo2Q2BIdqUdkuVNmQBjePDEcrS/oCQWg lhCpbSIl+hHA5gXBPhALCPYBqHVSx4WjbT8BkafImemgl03KhPPDkmSPOFqN Rw1PCF+Mse85HarY9NgoVMcns1s4wRYXqc0viDQrAaESVndY9zjH7DEAagtx 2iZyGimnAHbH5/zOI7lELbPgraqRj7Sp6K1LqLEEvLO36fxT2s2m/ai/sw7B PgC1zZZtiFHbkUH4nYFQPM7hUNGbromeRJaFNSAvGhKmDMyid5zaWFtjdmFk etv5cbxGnOrWzq6j0EJkEHOrEWlWDFIlrG3MsVnp6wGgbIjTNtGvXROH4x9X eD9gTDOzdci2Wtjra4bk6UomEHYBIcBdB4BkIavv4DkzEK5LVt1CRtw75v+c t/iZ9MRrr+kMxUz4YmAaHruNGUX36IBzoqsx+naH1EY3DvdFB+01q+XE85Jx ADoQmi2ntiP+C+B8EkgLsdqmN0+NJ2IvONBneZ7/mJp+5bV+2E5lG5ld2yDs AuUHdx0AkoU1SQeZyiT0suVcS/aALuZNNR5XKRWxlSO1knbn9R3Nmdrttz2G U9EJYWdM3rRlDi1bh9vi3pRhLiA196caoFctfWS/fsekexe/U9khGvbr+iyr +AWApBCpbaK3XRMd0QMDqtvgybUx0qHNJ/e078hlB5XaB9KL9AEAAIDyQurr hkk/85codGjFMtAcnV7da1okXBc66LXrzymoQ+rJR/5tt6E7ls5ghNqCXnO/ PJuKfnDBoIyMBmsesKwknRw6tOG6ORB1lKhjw+YniPRFSWjV0k/E+vXsvldQ JoiGfQymBBJEtLZpe+nL37ZFXpotX/8muPZk+uZHakU9pTint3tLHBEOAAAA gAJI0eRHZTLDXsBjHm5viPhUyrGbUzNOx5T52ocqlqNCBz031PKo36XS3XP8 1XptsK3u+OjUT1kkiuiQ/9Gk+lA4VFSoP4q85+y0xTDSE3mHeoXmqm1pC+6P SKGfW/oOJB+UjCkwIDzJ4WPUaeMiRiEACSJa27Tjm/lco6gPf2hT56DOdN/h DPOd3XrHZNAOqdrDTy6lOHPl5sMlyYnyAQAAAJWClNaJFMa2ar/HlFwGOvjc edcw1n+yrYmSNbUp+8cNd3/wBcmMLh3acFsnR892tlBUS9f5y0bHSh4x4tC6 x3ZDO/TrzpZ6GdXSqeofvXrLNudDmkPM0CvmXiKvX9drXsHvVQnoje/06sN1 LSdHbs2jBgZIFtHaJjrom7Pdujrarwp/bmSzlLf1qDRDl/U3vnq48FMAdfsA AABAmUlK60Q5cNmxDXMMAElU2Cr5kBwasL7AQwIAAAAAAAAQN7sr5nNE0vLI iP2XSl8SAGIiImxFKFm2fuzEgRgAAAAAAABA/GxNjzQn85bQuAaAgJgxHaEx k5w1AAAAAAAAAIiQxOQdKF8BkAK9ahsmZS36Lat5Ol8BAAAAAAAAQCSw9cfq DuseQ2ocgP20RwMKlgAAAAAAAICq4qVTeyyZvsw2jRcAaRFw6TqJtP458wpK +AEAAAAAAADVBDuDicZkAPbp9anhpJwF0voAAAAAAACAaoSd3McMPiB12FoW 5UrrxwZV68eHNKejk6ojA68HxgxfOX14IAEAAAAAAADFQK/eG0zmMZHcB5KG ndZv6ND9IHRanw56HxqGO5siEX5T+zmt8Sv7rNPpmDJf+1ClqJdRHQOm+QAC fgAAAAAAAABntp8ZiVp+dO4D6VJmFYvdjYXbw+0N0XEYx4Zvz2+EWFE9HXDf GnhLJmsftfsR7gMAAAAAAAA4s/29tpUJ9xu79HPBSl8RAOWHLWHR3Gv2Chli 7/imLrXHigjkZw0LL9M/iw4+d5reD7+mrt+6LuCVAAAAAAAAAGqVvXXbheZk n7LG5EW4DyQGvWobPsw8BFS3wbMrXKy/vXh7UBGL9OtOT85nivQ3Ho7Hkv5h mrTOkGDXAgAAAAAAAKhh6BXrYCsT6DQP3ltF3TCQEHtbjo9ak6G+Ur8QEO6z NmauxHP6spY+81KmOP6113QmqRN41OB5I9jlAAAAAAAAAGoa2vflOTkTXqBN GEiJ4Jy+q7E8unyEJCYl7zN7Qxmfs223vhuymQAAAAAAAAA+CHrN/XImmai4 ZN+AUh+QAoEFvZI556I6PpndEuzOJ0toqFMGT7ZDBTrk+3ai72hT09G+iW99 mQ8EAAAAAAAAAKAwQl7LAFPLXKcY/XYDQQaocejgwuddyVBf0AJ+etv5cfIB 6zWv4PkCAAAAAAAAlAWWLBiK+UHNwyrgl580egQsmKdfWAcOJT7r0ID1BR4u AAAAAAAAQLnYC8z/QckMIFOM2vzQAQc1Cr0+q+1OZPVzdNDz9Gmrlj7myarr t6ziyQIAAAAAAACUk50Vy3vN5YqAAKgQIb9tVMHU77dfmRFWpOLNlu39eubj 1GYfnioAAAAAAABAmaE3XRM9iYxnY9eEM4DABNQU9O6iqZcZPyHXGD3CterH eOXSHWPy+kf085C/BAAAAAAAAFQAllhf27B1GTXHoGagtx5pOxLaFFTn+Mya 8KdZP1v7DyYeqJYh25rgHwgAAAAAAAAAmaADrkllYhZf3enJ+ZdI74NaYPep qfdQ2Q+yls2qpsSHduvd2YbuAQAAAAAAAIDQ0CHf/VFGnF9+zrSICAVUOfSL 6YvHE+X7h9SGuXK1qKzZhloSwb7G7EOlDAAAAAAAAKCChOP9B1rlwYSI2aUp 306lLwmAYqFfLhjOyisQ6YcJegw9RQX7Oz7nd54AWvwBAAAAAAAAPEMH5gzq Q4j3QXVTyUg/8vGvXROH45/eY/AEC/urHd/UpXaqdci2KuzVAQAAAAAAACQJ HXhiHj4WK36mThgX31T6ggDgBr3t/DiuOEkdH536qQJl9G+eGk80Rq/gQJ/l ef6TBvqV1/phO9XQPnrfh/GXAAAAAAAAAIEI+Zx375jN5jvfeDCJD1QbdOT+ Dd++5r/Y3L9UqGGe3nZNdESPzKhug2c3x1NEhzaf3NO+I5cdVGofINIHAAAA AAAAAABEzPbSl79ti8T72fL1b4JrT6ZvfqRW1FOKc3q7N4hAHwAAAAAAAAAA EDs7vpnPNYp6mYxq6hzUme47nGG+s1vvmAzaIVV7U/g/KM5cuflwCaJ8AAAA AAAAAABA9UAHfXO2W1dH+1WdLdG6fnlbj0ozdFl/46uHCz8FULcPAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQMn8/5RddJQ= "], {{0, 150}, {1359, 0}}, { 0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{395.4666666666668, Automatic}, ImageSizeRaw->{1359, 150}, PlotRange->{{0, 1359}, {0, 150}}]], "Input",ExpressionUUID-> "a8ca04fd-6362-4414-9d9f-a91dd9be4aa7"], " with", Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnW9MG3ma5627N/eiXhwveYHECVniRaQIIUtHFLXgBVEiJIimFaF0R8hE kzPoLgtMX8P0KZC+DvSq49b2gHbi9E1b023lNs5uSpmN0xtPFnc3ZITTjefa UUAZZwI9JsHdQEOCHATBpHJ22VX+lbFdVXaVq8r+fqRZzWyMXWU/9fs9v+fP 9/kvp/t+8d/+g8lkeuc/xf/PL7qHWn71q+733vzP8f9x4u/e6bX93ZlfHvu7 /3nGduZX//X0f4z/P/9P/D//O/5fEv/9NQAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAIAs7kZlPbZZqk8lEHXWG9rS+HABk8Gpz+v36uO2aapr73fNRmC8A AABgCHYikxdaKBNLbftEIMpofUUAyIFZ/fp8Sw1rwJTZ+vkcvFAAAABA5zDP 51xnLSn/s6Zl5E4kBgcUGA4mFrkzAi8UAAAAMARx/9N5xmyC/wnKACYWpnvM FLxQAAAAQN/sRLznLCn/M75lXwltw/8EhmYvOve5FV4oAAAAoF/I+k8T1XJx ZgObNSgDYqtTY5xhV1mGbiOwDwAAAOgGMlhkMpn76PC21pcEgFJEQy4bX17S ar+3CScUAAAA0B4mFrk9ZKniAqDHzk/9iC0alBWxJe9Qc8rCTQ3d7ke7Wl8R AAAAUOlsz7usDdzuDAkmUJ4wm/fsrTXcOavDPrsOMwcAAAA0g1mftXdwCXhT 1ckrj3exM4OyhNme+7Sdt3XLiG81pvUlAQAAAJXJ3sb0Ba4FHiWgeoLZXLg1 1t70wfTmK60vpeRsTg03vTly46EK0fjoX5xdfMWJuYcOozUJAAAAKDnMyu2B ej4q1NhDLyIqpAtiyzMT3Wbq2Mjkk4r8RZLdQwc77V8r372+G3KdNPOHrpOu EIpCAQAAgJLCLHsHmkyICOmN2JPJkWNU5fqfLKkRCWoMRxCm46u6XY+3FH1/ AAAAAOQhtuIdqjdhI9YZKderweq8b+CmsNjGgv/frjg+HLS93dZYnTjhNLad sg3ZnR7/wobAr2Z+np3oOjQ8tbn/TVJVympoKEXnHJ2ofwYAAABKD7PxzQiv wmSqbXfcRw2oDthZ9rxbb6Lq+z3LuUJ/e39x/aI+4dF15eBUWyNF1b11dVFS DelO+OY7lvjrm9/M9j6NvZ4lWc4Zs/00QNutlrjbaW6xnb/k+leffzYQCMxO e2nXPw53HYq7lM39rsDqDvvqpL9dfcT5MPvF7j5ydzeoUSLCbM6MNfH2j3Q8 AAAAUBKYdf/YET4Camr6yL+JQUiaw2z/5fedcbeofsi7ktvhYtbn7/yBpq+7 nf8weOKgSUB144lfjTlc1+kbHr/EvrK9aOgbzjlMQzV2vjs67nT/WyCyI/n6 4291Y6S9Pn4D7SPXApGtbL7r7sYcHX8N1Tx8e+k5N42r1R7IEgRN3m1qyDt1 YiL4TNFIpTALYB7wROCEAgAAAKrC7IacaRkmU9OAdxlpSO3Zvu9orzWZZAQe mXVvf3W6lqJpbKbwhPXuA0cr+15Ua7/rXmRbbhs+N9217s2xP/6wnfcymGhg or2WOtz8RjIMWf2eL1/X/3bYbatKXNcns8oelHbnnR21vNNdPzQJnVAAAABA RZgw3Z0O/1AdzhAK4bRnK+R8i5L7czB/dXXU8C7oYceDwl205FsV2APFDWGX qvcuOARV9XnX87885ZwrXi7CbAU+bko/CcfHg7mCsQAAAAAoEqEQqOnQkG8F DqjmMMt0d1UBP8f69HDahxL35XKyt+n/qKnAkktmd8HdbabkVVQyTz09B9ir rulw/VXslvfWfecSpybFm+aEx7Gqbhr5AAAAAEAVBMlHhEB1wvOA/Sh7IJgI vpT1c+wsut5OnycOO+YLCoOykytr6wduF3Ia4b24po8DWcs/sxOL0D1sHLTD MS/Bq0zVCVD1WXvnC0cYCMWJDAAAAFAFLpqEDVdPcCHQupPuRZk/B/Ni+jyf iRcrqsz1Hqz2Uf4eqNx/zLlwubvacxAL2OsSQdDz0y+k3PTLsPt0wmWt6qWX Fe0byqhLOekOV8ojwcSePfZ7/0DTV53jdrv974f7Tnd1vdXePnQzLL0HDQAA gIHQbuUXhkBNrZfnEQLVnp0F16mEc0Wddodfyv1jZtHVkf5FTzhDcoslkzrt Bbek8ZUAh0f9z2X9ZdIFlV48wDnqtcddjxQdWfpqc/p94lx21B6QdyOGZW/V c5aUQeDKEd7xrkMfAwAAyhKtVn5my//hgfTn1XfTFRPv0TMvvx8/VFV4/G3T N5huim8c9K3J+/NEp09dgSn4OHvB8YakLTfbA1FZf8q6oFIKQTn48lHZ5Qpi cD9B6kGsnIrQWHQtEicc+tZp462owyU3Fg90zM/Tw21t/Z9cuX03GApHIj9H MwWHmVj058hSKOifpD/7oOvI6HQBmRQA9AXMPi+arPzChKOp/v3K+s51CvMy OHEo8XvIccZIXj10HuFtSG42nB0SVGAKnmXVY0udpg70eJ7Kun7WBZVWCJqC L3xtGw/Kc3fF4LL8KRR/f92TPsgUp6sAdMcS3VW3P+CRHeror2//AHlcYHxg 9tIo3crP7M5fbk1/6VVN9u8wj1MHbM07kol0Wc4YyZpvsJH/XasHfZK7dYpM wbNE6C7epOSNuWS2gr/r7nYGZXQwvd6bdxwuxNOWcDUrnp50HFTxpie9w32x cZqGpwuVVQB6ROpeTFl6HTPLys4gA0AjYPaSKOHK/8w/2kx88b9wzL9Q8+PK ku2wd7S9rsZi/XR2Q+S4kJhT+cc/3Pjj/dVcczZTr+OEPaV25WS5qpDzRPqH PeIMSXTOikzBJ0n1FCVpsF6+J3K/RfJiejjZfKV8ykDgySvf9KRrCF0FFIKW GxL2YuqQ1X5zbqNyDB6UPTB7KZRu5ReO0amotl/FIAJloq036/7RZMi53uZZ zvtCb19VkT7Vq03fe+nfVmpTfNEp+BRCz81UbbF+dHVqPhJV51jJ/ODurFXn ecmolFa86UnHpDVa5RxhgDFg9+Lms3b7kO1Es2BXrmvu7Btzeu4tPKvkXRiU JTB7CZRu5d9dpnuriN9AvvgP2Fv3vsN9h2KN5+n6itpO9w95vupEN0/ydaP+ gtUQiFh6nLddi6LvpEQKnnsroa4mj7m5a9DupH335n7YyD+uUxbRgL2ZfX/Z 3U/ibM2MHiAKQhVvetItaXOlDtpnocdUXrB7cRcdSf3PWHTtx0gk8uMzBZ9K APQGzF4CJVv5mUX3SeIcUJD4T8VDzCGqHfPv5DFkUqvz6HgwT8FDLELb2JcV 2ouUujQulJpAQkWHIil4HmZtZqwti8JDmurG9v8x6vT4Q6tFP/+7S+7u5DGq i15S4upJMopVKqQpidkJ2A+mblm+ogLQOxl7MQCVAMxelNKt/K9CziPEzoos fCHsPXAcTvl5YlKWfIeRaFqcj+kVZwDEtUnwZpVKwRPEnvjG3pRQ/F1tsV2e Xiqw5pUlXXVQZw8onezPyMVTB0ZnKqBlj6glpnroSMUW5hcME4v8yWE7XGXz rGp9KdnAXiyfRHbqQPvIjVAUddG5qDyzLzerKNnKL2xXKYcs/F506UGA4P5S VO07IhTgxXw8JkxbzanXdrqX8r30J29f8hRSZFqZfx/2+oancwdeFUzBZ7zx iyX/NXvPEXFH1HzGOfe84E/n+5+ka9rLICMXf+BDv5yGfUNCmisKQWWzF537 3GqmTNSx81M/6tJW4IIWQDTksplNVF37R74IKlP2U5lmX15WUbKVPzVcm0dK raDuYKJ/u3f7/14aOdvZbDblIlFmPPIb5827oTWlHXqyEFRMPUmG0BbftVew IlMSIu5qytvZpGwKPguvttf+GvDRTvtgV+5fimq5OCMmKZDzA/iQviq7KlFu kaB51P9M+Q/RFSgELZz0Rjwy+USv4WO4oAXBPJ9znjEnFqsLk2XgbyhJBZt9 OVlFqVb+jCy8wQIdsZXgrU/PnbDkLTXM5uQ0Hu+z/5NvflWhB4TwTERy62R9 hVhZZnq0kK24MDjpIefRd1IhBZ+PWDQSCvj+1XXpvK0lwx2t7XDOF9iOyCuR HnbMK58PEcoLlEkunp0I7Pm9fdB2In4uSDaE3gqy8lkoBC0YbiM2NfbQi3rd iF+XuwuqglBe+g9SVe7l4G8oRsWbvZGsQg8rf0YWvurQ+PdG6ERiYqvf0/be ljq5vud+X/Tkucs374WLy9QTxZaUlY7key+yvuKsZzXvqpgW1SzSBU131rN0 u5f2+3eqpeClEFsPTV6yWQjnruB+c94FVaEYNA4Toa2k0Rk9Fx/7KXDlvbbE c1Tf1v8b9+RMYHbKc3mwLb5r91yZi75AIWhBMLFlT399/FutaRm7u6FrA9m/ F8eia0uhYKKEKRhaWlNJP60kqCKURxJbpHsSonNU6yezm+VRAVgMMPvkOxnB KnSy8mf0whtg9EnS+TwtO+4pAlXXYhstNEdPFIKKzuUhyjJFA87KuaDEoMwc q7HqKXhRmFiY7jHzV5nVT5aAyi5oelhAiiJrJDSEiUXuTnSxRxNz94RgAshe 9PG/9NVXW86NX2znbtZY+RFNYTbv2VsT31tV5+//oneVF34vZmLPQj7nSGaF DGU5MThxI/BU7/eRBVWE8jJgNr4ZscQ/hDL30GFV527oHpg9j76tQkcrv3Ds oM5Hn+RwPqnGtjODo+NON33L55/lmo+4jiS/z+N2jo++m6fyMJNUyejVG97p xNsFHq2JmBC50ImdtfnxPVLqKxR0QdM5/axrbIlT8LnYCjnf4q6y0A4stV3Q jMJaFYaBloT4KnRnpIW1xez9X3vrvnP1xGOGQlCpMMveAbYsx9zrXtD/8YTd i0/9bspr7zRX1bUNXvb4Q0+SWr2x6FLQe6mXXXLrDdjqq4ZQ3n72Nmc/aU18 ReZO51xeN7esgdkL0K1V6GrlzyhsU2OsoULEVoLXzren0+6FBC2ZaDgw6R4f 7GyUHUFtGvSt5H5jYqET8+EJlfiDfd6fRK5YsVrQOMseW9qshEL3iqfgY6ve IctbVxfle2bE9yN3I+DgXdCG8aAqGya5W7G2KFJ6oUeY1a/PJ1chU+7f/eX3 44f4A6oEcwUJtsN0H3vcNZ90hYwwXoXreaRa+68GN7Ict3cikxdaEusQZbZ+ PmcgL1QVobxsMOv+Mbajguqwz64bbTFQBJj9PnRpFTpb+TcD9lZiLxVt0NaE uNP+tb2T1xSqbxv87I9FthHFVuf/+MWoTYJAUBLLhek8peyk6qaIDx+L0D2c /ytFeYDviBfLIonzIjh+NH1HpBiU8il4dihnYZXevAMpWiibA5U74hNkloPq OneQjd1H7u5kaTCV93d/7h/lx2oZUiij5DC7C+5utpiE6nCGdnWy7eQnucg0 D3mXci6q/GYaN5h+z7LuEovZUUcoL8cbpBKv+i7/UwuYfY430JtV6G3lf/XQ eYQMguqw43UnMvVJZ6o+sNpiu+Rb3FTQvpno3/z0xFBXSz5fVOwIQyx0lFjg jRiYLqlfmw9dFj9ukh+0xJJOS6mQgt+ZtR+kCkuDM0vuzuQVFlp/oq4uaBKB 1L9JQqeDrth67OrmeufecoZyp8zIfVkVeYGyg2tDMJmO2gNGMYnN4Pip4xPf 5V9YmWWaM5rGXk8BPlrpUUkoLxf8kOua1vE/6z8PrSQw+5zoyir0t/ILWlRM hTeAqAQnsZWg7s3RW49yd63vRUM3zlt/ec45E5Gqp/E8dOP9dstZOpzw8Nkc /TXH2P6S0dr2iUDebnlyoRPz4YmCTKE+/M7a/J/nV/efNRSajsSSLixNkMzs q9IFn4xDFuSC8jnu6lbHg4JsUdXpSDwZ6qBGKgdl1ieH6lNGWNVN5/vh03XL +ccZgCSxFe8Qe2KkzL03DVebIQK5KzV9HDCACoQ6Qnl5SKSTasX393IDZp8X 3ViF/lZ+Zsc/Vkt6W2ru2bJJj3SkzJ2fTInoa/GVPDUtI3fEvNDU4DAqj2sX WwulBiuJ9iKR3ohIyJqIlwp1PxJRtdpsbgwfupTXpJkdPsedgA2rqtIFnyo2 KMiafp4eZuP/Vb30cmGnoZ1F19tJa1ZhRjwPP4k+BaXTIXT7IRu+DvR4nub5 5eXVLYOt7+xNycOogWJB0iG78HSYL9uHSkJ5+eBDXmJbfDkBsxdBJ1ahw5Wf 36z1t43GnkyOHKOSLuWwZ0G8Eph5GZw4xNlJ3oD5TmTmt12pzL4Uf1UMMicr snzlVAhhXdNWe2Bz/9/woUsFzgeCMGjcQ5tTpwueKzaQ3drGxMLXrIkvqLbd cb/Qyle+iKX40oU87Du+5VT71xnkgFHqtDucRwOYXB9QCCqKTjYa9RBU8lQP +rKsVnpCLaG8/KT9sSNjfr10oKgJzF4CerAKPa78RF0ie1lqNRDLJZ1/l+Mi EiG+nGfe+Du7znKaTkr4n4KFTizdwwfkMz0WNmyYS+F83duXNN6CiuSF8M1N 7MUeazuihhA9WwjK/gwy8w5cQVFRmnLMD+5O9ktWu0VIEFI2ipPGbPk/PMBf sshuK7duubJJ7zKHh6d/1vpqVEFwhNW7SagmlCfCzoLrVHKHoY67FoxSnVMw MHtJaG4Vulz5M1sqdJJr24l4z1kKcBFJlyBrxDAdWVXM/8wcfJmnmJZZn7V3 pAtvSX+SeerpOZhzziMvhK5AnI2vLE2tt2oI0RPzXuWo8nK/TrFDzfjdRG0d dWFlrTFSk4Kkkthuyx8lUAgqTnwdeDfVzmKMOslCEJi83lUgVBPKE4NoYCnL xDQJzF4qWluFLlf+zF6kQmUYlYSfj0OZu90LcrQdBJPu97ugAv9TQXW7jLaU hn7vj1kuOhnXpVq6Tr2ReiGhF/RqwXWcymOWvPEUr8skbIpXRYieV52i6hob 6qTVUTDRh/TQUUWG6nK7SQnkxQQhZb0KmmVAasOK+MzEA6WTw6mOefXIdbyW /a6M1JjGtmT+vbW5vq6l1377sejikq2fUa+oKJQnRiKkkAo4Vfd7yzkZD7OX 8aHaWoUeV37h0PAiy7AVIvbYbWW/KMuIT57wJ7mM7IuACfxPE9X+26BS6sqZ keQsThQTfewb7zZTx0Ymn7zkj0L8APRY2NPflLeKhi9zrTvpLnJuAFnBqNIs +GQMn3XyN9eTZQ+U5bSd/i6cbeQusx257/0tOxq+prn/n4IbRQoy8EUsbeNB 9QpBk2SElNXUgFIKgbnm322V3pfLGbIQvfhzYulgD7/8ypW/PCyBYC/Ww36R GzWF8kQhBr5I+FYNC8xe3sdqaRV6XPkzMsh6aIfntR1aRqZXZTayhOlu3smn BEltof9pqn/Xs6zYt0oWglY1HzvKDm+Ke1wXXV8mRnv6J+nPPuiy1NS1v0/P /cx+u/zAhYau8Vt+/50vBo9SouPMuFEFVT2eIvPmnOqmKin4BGwenPDDd5+F bo/3JEcAmJs7zw5fnHC6r9M0fd11aWywqznxjVVbrHZakQnUzKL7JPtRvIev IplN8bqvjhMupiJ1HcS+LNjCmdjqw3tFDoYoN54H7NzQB7XLP5QkYwsQbd8T DgXTS+dAVlQVypMAX8Bvqj3uemQYi5AHzF4mGlqFHlf+jDnXinS7FHlFycLm ArTFmN2Qk6izbB71P+P+5Vlw4kT6XxSek0Ua88E+74+xZ4/9nt/bB20nEuKi VF3zCdvQuHsq9ExQDxn3yr76YrSvM/6aupau4c/vLomWeHLFzFV9niJT5y8f OI83NHZ+Mq2SE7F2u79l6GY440ScGLn7Fe0cHx20db2ZdDsb296y9r1/6cq/ +UOrCjifLFy9TcGaovI+LWNMZyFz/UoMsduK7BrEqVnYBJqoPNGRdIYeSLea GqIYI42wyE1UBk1w5tJ3ebCqQnkSILKuhnLP5ACzl4uGVqHHlT+jHV7zJYUr bC5AvpVZ9g6kCzKJAWE7y55302PRTY099KKijhcxxIrqUbUyinOu6rvpcBnX FhXHy7D7NCVpVVEGooshif6zUUT9at7ppekZVSazlTS5Yvbl8oRsNc2uq6Zb 2DmzyZPyxI2g6OGW9OuIY74OUVkoTwKkrI3+l4UCgNkXgIZWob+Vn9eu4R5U jfMq3AFBfq55b2P6giV9I3yJY3pqbfIGlU89k+NNVT/UpLIexpnAW3J2Hzha 4z9HVZP9uxKNoMjUZSpirkqJIHIfeRYiQe5AsFSyleolqLM1EM/8o82pr0r/ YfAM2PolqXKOhK5glfWaVKULLVBdKE8CRE9H8TX8OgRmXwjaWYX+Vv5MSRlV R8lIIFUmIVvZhtm4O9aSTodWnbzyOOmhbc85O9OjNqmWizMbCrvY7GEq9bGH xr9Xu7yYC4SWrfxaceyt+84lIt6lCoEm2PGP1urpIRKH6CA4aA/sZF0C+XLl pGmTIiRsnLkUdbbGQcYIHh3CbAUnWqmmfk9YLBa0HXbbUvcpWruuMeoL5UmB WByKr+HXHTD7wtDMKvS38mcqMmkcwEl5xHLT2ZyYuSnTSKKJuT9pB1TZEtAk RINbidJSqZtCIDQLu/POjvizXdvhnC+VA7pfD0HrVIIUmCVPb/KRyXqkTa5C tce6OlOZBTI0lIgz15f0G9Y9RMDNYBVxKZJxj6q3J777KffKuxed+9yazChR x85PZdOd0xElEMqTAiGDY7g4oRgw+0LRzip0tvILUhWsE6XmNENROL1KWV35 Ga3uVNvYzFoqBf/4ysm0a1BlGflmQ/lFczNgby2xLTGb9+ytNarpKRmXlJYC 1f7pnFKtTZLIkAbVvKBaCkxs2dNfn0V6l9kOTzt6LVSD9fK91a2kS28iujm2 w3Sfuf6cT9eC5CVGTue1TJjtlfmpf7408t/bG7mTrsnc3PVrtr+xoK2A2Yvt ZXs6Yk+n7G+bqcO2S/+e5Z1j66Hb9k5zUuvj7BfBnwsueS/RHZVCKE8KxNx5 U4djXs9xY7nA7AtGQ6vQ18qfmYfXWPpPrgvKxFbvXbYSsqbmX16e5Y4zuyHX STPxTwOeiAphG6IQtIQR9b1o8LftcSOCJ0DAbHwzYqkyUZ2OuRIfozJ7+vJX euuGvWiIHkqUr1DmztGrkzOcelg1Zel1TIdZL57ZDl2xJodEdI3f9v/J+9lA c1Viy4YcEwHRkKjgEspsLvousWK5Oah7c/TWo6isNYeNgeSeXMx9Yt0R28g/ um76/IFAwO+76fqkv40N2tQd7XNk26n1d0clEsoTh0yT1Xa6fyijoAHMvmC0 tQr9rPzk95BE41EXKZ18KZKtmYYa/zI/mUofcncjngHCAc2Tmd2LLt51X3q/ z9ozaP8nv8yhPEQhaKnrihfcvWYTVd/vWdZxR0DpYCK+XzerIHcghUx1egMJ sDDbTwO3nKN9JxMaWXXNnX1jzlt/jmyTV8/ENua9l0fOtDVSVGP72Q9d/mX4 nwL44bkmRebnsm/JTQoTo8HqvC95O2a2Ah83iZWpJANQjrGEqFxKyPdEd9/I b92+4FK2uRK6vKOSCeWJQw7sM0J+RDIw+yLQ3Cr0sfILBzWadFCswomC5vOs YivBW5cH2wiZJfNbY/T3q8TrmfXJoXrCkHMJacaWZxKR5/QLqdaJoJzmx3QY mTrlWihtAJlZmxlro+Q9jOVK0iGvbZ8IaPFV7BPX1X6+Aygh7CCGFAqcPphY 5Gt750HxfTiF5GNXcnKHBqmT0t9R6YTyxElLkYsOCTUUMPtiKFerkAdZkMCi /dYZW50aY7MhVF3bwLj7jj/wYCn6fOl+YHbaS7v+ccR2hKwcoBpPnnN+vZgx Z5NZ948dIV6VXZ+Hid53ppL4Nc19n950DbL1t/LiwMzGtw7roarGk8PXHmjg /CTrYKkKT4wmM2g1LSN3ItoEhPcd5RSKCQBDQOZ8ixdtzhD3IDA3t71Rl+0f TOY+OnMMRJY3ZmNBpZnXIPzg0t9RSYXyxCDL3WrH/NnbkI0HzL4oytQqZLIv gai9C/o64VH4PmqvyxuMrztiG3V67v0tm9eXMSMpzi8c8xlx7viB685IyuCT rgunuqB5HFguseWZiVRFvfY/nQYk/c+DnfavNfI/X2dxQbUuaDEyLxa8n9n1 wmfeBfEUGbmZFLuC7j5ydxPF7XXt/eNuX3BxNZ0KfLX97Gko4P3igpVI31D1 Q5MiYh/JWFApxcqSaHFHJRbKE4NsVyyflQFmXxzlaRUy0W8NGxNdmHY7xgZ7 ujisfcMXx51uz1eBpbzhxthjt7WevCfqpFs4SWi//8mrLtS0jv/ZeC2LzObC rbH2pg+mjeU8K8Lm1HDTmyM3HmpaipChQFjJS0rR7OuQ1BYJeyt5AKnpcP21 CEskROSo1r7PfHk7IPaii5PjXdzGLVIIlIwFlXBeQwpN7qj0Qnn5IdsVtdWc URCYfZGUpVXIJUM5zSidvHlIyfIQHOjxPCWfDjLgX9X5uweRkO9SshyUMluv hEoq5gPKhH1+U1kO4ysJzJPbA29I6EcoCdQbA7efiK0IZCVwMVMJmO25T9uT 6oMt/4sOPZe0EqUl6fLus9rEgrS6Iw2E8vJChnoUFi/SDph9kZSlVcglU8/Q 6C5oSpaHpP59QWxQEPCvbjx2pDG521GHbY4/aZfJBcZmnwtasafaCoTcSooY 7cGJyO2XrxSBH8yRsdal0SgWpNUdaSOUlwdyJrj+R6dJBGZfJGVpFXIpLxc0 Y86a8IjERJfuz35zfSTjBSaqsXNw4g/BVQ3VUIHhgQtawSiSUOMGy9a/61mW vRYxK7cHEgIgOWIpzIpv6FDJY0Ga3ZF2Qnm5IHPW1UecD0selt2Lhr/z3qBp t3M8UeF8YdBm7eo6eeL0F/OFT1qE2ReJ5lahB4zvgiY8y++mvX+gr7sco7Zm yQk8qrnnopP+an4VFXugeOCCVjDkKlro7/7qket4rcl0aMhXWNBud5nurYrv ZIO+zf3vnZgySdUPT+3/JxXR7o60FMrLjqBdUYuWX2IcJElRrR8w+yLR3Cr0 gBFd0L3o0v/z0U774C/bGnMPUMj0OBvb3mwmbrXIsb8ACIALWsEUvxczL4MT h0ymomZBbs2MHqCylT4+D9iPmqi3nKGSDgHU8I40FsrLgubOBhOL/hxJsBC8 NpSa/V3sVHeYfZFobhV6INMFrerzFlrSoTY7a/NfuccHTwjdzrhreco2OGr/ oK9t/ymvqc91byklGSocltQwHtSTSC0wOqmpXnBBKxFyFe12LxWQ9UvqMxfZ u83uuaZWe0AQ9WHY0edFDzqXS/ndUTEwL6bP85KXmjobzI5/rJbbHwsv4EwA sy8S/ViFhmS6oDr8Hpjo46++uNCVHsRpbu4atDtpXyDMnXCZWJjuMWfm4Kn2 T+f49vaX348fItqUOt1L+rVMYEAidBdc0AqleH2/F8Hxo3Lnsu0jGVPKKCp7 Me/4hRbCROV3R0WhpIRmURDDaKre8RY1LQhmXyy6sQoNyXRB9TXBNvZT4Mp7 bSmN+mpL1wdOz7fh6L6nhu+ME0CWl7zanH6fCJJS5t6bEbigQDmYJXcnXNAK RTcS0+zAREEma3NquJ6iOpyhXWOud+VyR3pxNphF90nuQoodCgmzLxa9WIWW 6LYWlImt3rucmp5Z3zbo/GpxM4cxbYfpPrMpA6p+4DZR38z17lGHui588Ue0 IAGlQS1oBUOuoh2OeQ1rz9iuk3SVUbJZo76bDut6J85HedyRYHSFls5Gei55 kYWgr2H2RaMbq9ASnbqgTDQw0V6buB5z98TMcu6fhtn+y+87hTqgrNM65F0h /yi2FrjupO9liaACoARwQSsYJVqDlYFVC6fOelbZhS7ZbpxTNdEQlMcd6aTx hCw+LD5JDbMvEp1Yhbbo1AVNNXeYzzjn8s1KYDbv2VtrTBlQbWMza/o+/oBy Ay5oBUMq3mj7u++tes5SqZCUznW5JVIed6QTZ4MoBFVgaBTMvkh0YhXaolMX VBKxsKdfOF00QYPVeV8fQhyiqCEXDLQBLmgFQ46J0fh3Z+3w8Kj/+evXP08P H9aNMGbhlMUdkc6GdnNwmDBtTdWsUVa66G4ImH2R6MMqNMawLijz/MHlU/sy 8DUtI3eMM2RTDblgoA37XNCj40EdNfYZihcL3s/seuEz74Lo70juxQf7vD+V 4kvKAbPo6mC3M2bF06N3URpJlMUdKTVOvTg2fYMpXRlFZvHA7ItEH1ahMeSM LbVdUCa2GrzltCdifbb3Jm49LCJWubPseXef90aZu90L+u6AE6KGXDDQhn0u qKYtooZm31epLRISZHqKZiTEweLX8JjtyGjo9/5ooAUxO+VwR6S3lgzWlR5m J2A/mLqGTBXNgoDZF4kerEJzyC9B6oJbEDsR30ftdaR0Z8EzufY2Zi627BMB NVs/nzNqt5GCcsFAE5LFSCRwQQuFeXJ74A3Jg3ZVhnpj4PYTsWXq1abvPU62 mNJ46kViL6Ya/sHlNEZHhgTK4Y5+8vZx3p/phDO0Lf8dmNizx37P7+2DthPN ZlNdc2ffmPNWcDWd8tuLiaT/9hWCMluR+3dc9qEzbY2Uqbqx7ZdD49emQuuS ly2YfZEUbxUJmO3Ifd81x9ig7VTih0xM6+nqH3V+GYgUJbdaKkrjgmZ1Ggv7 qL3o3OfWTBV6Q/ufrxWVCwaaICgsZ4ELWkGQs7E0llZmVXeqm5sPGaMjQwJl cEfMX10dXNss37gtnbQ+dn1b/2/ckzOB2SnP5cG2uhpLz5W56G50/p+H2upN 1LHzU7mjf4JC0OvhlVlXfytFWU6cc9A+9g0d/c0JB+Zwj/PbVWnFbDD7oijS KhLOZ/iuc4g1DKqupdfu+nJ6NhDwT9KffZAY5UO19rt1MqA2D7tL7m61XVBm 45sRy37hpNrjrkcyzypZ/U9j1X9mQ0m5YKAJ+1zQSu1vrFBWPTZ+WdK2nD5d xtA2HiyLhrgyuCOytkReuJCJRe5OdLGOXqY+4V708b/01Vdbzv32N5114n5g uhC0ynKm/4ylxtxp9y6QatsvV6f+no0UmTsvByW5LjD7YijcKuLsbsxdH2ph PVjq6ND1BxtCF4iJzl/rf8NkahmZXtW3Q1GC6M1WyPnWvghoTfPAHxbl1W1m 9T8brJfvSTyy6Rcl5YKBJuzLJmiclwKlJREP4pYmbU8fvFdQNl2NZXBHhKtG 2TyrUv8s7n/eGUm6Gdn1CffWfeeInoiaDtdfc+yFZCFo4pUtw56F/XlDJkx3 s+9HHR8PSigWhdkXQ4FW8TpR1jh5IZVWziFcyWw/Dbjfi79GMDRKj5BViOq4 oHsPHIerTFW9X3x9w95/uqvLahu0u756LDM+THznPHVvjvmeGD/UpKxcMNCE fS6oUZQlgDKQZV2a1mAkiuJMCrU86wPj3xGRsJYRZGBWvz6f9D9NTQPeHB3e L78fP8RnGPM0GRG1Xvn6dtNZ0ep+77r4Hg2zL5zCrOL1662F6wOWpC9Udery g2z+58bdsRbOp9B9Pk51PcOkbRRzNmGez7nOWgT+J7UviWBclJULBppALsWs gco71QKjQ27xmmokpvbiwrsbdIfh74jsVWwc9K1J+qPdR+7upIeSMWw6g+f+ 0cOcI5O7j4AoBDVZLkxv5PR30v6ApK4EmH3BFGQVgraaxh56MZt3+TLsPp12 l3QfFmaW3J0CF1RpcYCkbdSO+XcKcRiZ6AN3f6vQ/Txsc/zJ2MWfJArLBQNN yNTX1f3REygLmcuo7XT/oNVznHIhdL/vSMf4d0R4iVSPtFDh1mNXdyq4Sb3l DOVuryF9yzx9BEQh6KHx71/m/mAiJCXFpYTZF0wBVvGaWbk9UJ/0hihzDx3O 7gWRcqO1Hc75XWUvXHHSxpnaPBUW+NqaGT0Q/9Ka+j1hmZvyTmTmU5uFvLhq i/U35RL85FBYLhhoAVkTlSBPURYoU9IV3abqQV/xqosFsbfufaeqrFYS498R 2fgszUdi1ieHUp6GmMr6i+nh1HvnS+YSOd/8on+kzlK9zbMsfq0w+8KQbxWv mWXvADcOMt/BhIlFvpnoOVJXd6Rn4hsDBOsyM/GK/47bYbovcU6jWvucM9K+ kL3o4tef9QmCn5Sl95JPbgWp/lFcLhhoQXojSKLxrBCgAeSectgxr00z2mbA 3lpek7mMf0fpIAN10D4rYWwk2cB7oMfzNM+mtzfv4EJpeXzLnUXX26lXiaTX iVdKDEbB7AtDtlUwW4GP+XnkBhn/JJHMHGLtqF/h6arM8znnmVS2oO6IbfR3 tO/b0FqWD2Gif7t323XReohwPqm6toGJG9/rsu1dh3LBQAtSlUg8GBBfgZB1 cW+7FrUYUZ1qTikjTVrD3xEZZJDWbZrKGyZ3v9PucJ60uUTfkqhUFxH9I6cl SjxHw+wLQL5VMD96+3kRVqOMf5IIUZOQRJVm3p3V4A27wLfkPMzmN7viJIX9 BdS39U/Q/r/pNPKpV7lgUHpIiWYWAy2GQDFehZxHUgYgErxS9wLKqBDZ+HdE FOYd+NAvPq+G2fJ/eIBfSERStITHmOeV0pL1CZLyNSmkBhVh9vKRaxWvmRVP D//LVPV5VgxzqxIgY+9JF1s9SUMmtjb/Fe1MhQ2zEPdIuwbtTvqr+TX9elz6 lgsGpYYsoGIptPkOGJtXD51HuMJuDeriuHhU+Yy3MP4dpU2COjA6I2FqD9lL Ipai3Zm1H0wFbvLkLolkvUjnNROhrXwgSLo8C8xeLrKtQrDFlF3bMtnUJtP2 lLqC6MqPhhmvqXu5YFBq9h3iOt1LZbVEAIloKrDGDVnTeFSighj/jphFF+dQ HrUHpEjNLHts/O4h4jES4cc8SXNC/Eek87pgPwdmLw/5VvEiOH6U+2XKcH4N 8YUkMZC4VqkxglwwKDGZpSzKV1MDg8CE3Sc51T7JWn8KfXQqVVc+agzGvyNi hW+9PC9lGqAgFZ6/tDIWoXso8VcS3otIfnN9epjvd6k76ZYRU4TZy0G+VQh0 p0v9DZeCzH7e/LoNFYwx5IJBaWF+cHfWEo+PgRZDoDRE10BpD4x8CEtpYWfN MP4d7T5wtFbL8+hIgZqa89Mv8vwRUQgq8C2Z2OrDe/OrXLiTGNyWv8uDbIOq P+eTtdHA7KVTgFUIesY7HPMSUvfGAnuoJIwiFwxKy45/lHx6DLQYAuUhtFOq eunlkslCP/OPsp4GddazWh6nVKPfEWEJ0j06UmE4fy8SES8VVmAmgpnEdLa0 C5q3X+fV5vT7XAVAAXrmMHuJFGQVAqWCsux1zcwkaqcxq1+MJBcMSkjmfDHD LIZAHfji7VKOJuEdEiMNiMmL0e+IWfENHUpup62OB5LNgIh35Q1aEsuOcCxR 4nurJcS9YxHaJu6Cpo3WRLV+MrspfwWD2UuhQKsga/ZkuaA7kcC3IQM02iSH CxAY5QctHYaSCwalY183n2b6zEAnEIGOpo8DEhRXFPhIrp6/bOqQjX5HzDKd ypmZBzwR6R4Z0RGfxwVlngUnTnD7kUA9ie1RahsP8smydNNr7m+SsFiqwz5b WCIdZi9OoVbBvAxOHEr93NJbdXYikxdaqKZB30qBl1tCiN46KU5R5WEwuWBQ MsjzaQJkEAAR66jvpsPqb8Z8DKFs1gej39HzgD3ZBCQ3JEg4GwftgezabknX gltxBGmXl2H3aerQRPAl8Yf85pVjo2GigYn2Wva9Gqyu+cJbkWH2IhRsFXEX 7ZHrePI3kia+yrwIez9ooWpaRu4YYEbn6/31bIaadaU6xpMLBqWC7FU0ZSbF QIXCxMLXrMmnthQRIa6XWeR0bCAMfUfkr/+RX25Sm1ny9CZ3EDKYyZP0P2uP dXVakksO2bWUaHWp3+fecCm8rF9mbMk71JzyP533i5OehtnnoTiriDshwYnk zHKqwxnK10fPxJ49vG1/22w62Gn/2hj+Z4KMnRQdSSQGlAsGpYH4uVnKsV0R FALfvah+aZzhKuJEMfQdpYOBLSPTq/K3USa27OlP9B1kKvUx2+FpR6+FarBe vre6Ne/sSIaNeEWm7TDdZ87a5LI95+w0J4Rc+j3LaZ+EiW0Er/azfg11dIh+ qMToE5h9Doq1ijhbizd/nZiWaMoV23y1vfZw6upHVks1Zel1TIe3jeTDkSJj rLODfGIaI8oFg1KQqakroqMCKondkOskq4xh7qPDKiotc0Yodjo2Dka+o71N /0dsbK7KMvLNRoGLwV40RA8lBKgpc+fo1cmZgH+S/uyDLoFrwWyHrljNrKfa NX7b/yfvZwPNVcdGJp9k206Y2Oq9y9aG+MZusX50NTlO2jl8IvHn1RbbJd/i pmLLFsw+C4pYxetEDHzmU5ulOjFHsm1g3H3HH4jz7bT3httpH+xqqYv/g+X0 xat3Fw3QgpRJZjlozkKUysOYcsFAfTL7+Kr6vFDUBRxMLEz3sE5CXhnhIuFP qc2j/mcqfUZpMfAdMZv37K2JEqsC+8rJt9p+GrjlHO072VxHmeqaO/vGnLf+ HNkm431MbGPee3nkTFsjRTW2n/3Q5V/O1ywdWw/5rtgHf9nWWG2iGtu6+kYu XfPdjygdK4PZZ6KgVSTebTty33ft0khfV/x3Z3395hNdtsEPHVe+vDv3JGqY zPs+BDN9TJiRlMagcsFAdcgDQmIpsJaiCB8YiNiqb4St2WvsoRfVkfPjyoTK p0rHsHfErM/aOxLrdVWX8y+VLOAMsyeAVUiFU3nFfpqBUeWCgcpkntryR8hB RcI8f3D5VMJKzDZXSI0NKFnGT9UPT5VL6ZRB74j3u5qHvEvlpx4uD5h9CliF dDIVDlEOymFYuWCgJpm1K4aoigelJ/ZkcuRYIjHZcnEm9xzeQmEr1anj48Gy Wa2NeEfM7oK7O5F9Lr6vvFyA2cMq5JIeGWkyRoi7RBhXLhioBzkywCQ6ZRVU NCnpG8ps/XxO4U6B2Frwjze+CpXRBme4O2JikTsjie4heBpCKtrsYRUFQKqg mwxR6FsSjCwXDFSCCdNWM/GwZBXxA4AjFRRSYzsGWsJEg5cTkkfwNLJRqWYP qygIgQQQAjtpDCwXDFSBWfH0kHWgrZfn88kFAxB/rpdnJrrNppoW+z0cV8qE Vz/QpxuU09UsRyrQ7GEVBUO2YMfJiN1VLoaWCwaKE1vx9BEeaDVR6AtAHnZW g/9+Y3oReY0ygVkNfvnlXQV1NcuTCjN7WEXhZPTFI73IY2S5YKAszFNPT3pk q0EmxAEAAAB6hqh7ZHPxTfbvMHGQx7BywUBJmGW6m4iBVnXTy/i9AAAAgCJ5 9ch1vDa9vx740L+F/RUAHra/LP2ENPR7f8QTAgAAABTN7jLdS8R4Dg9P/6z1 JQGgGxL9ZUTTXtPHAZzRAAAAAEXYnBquT4d5qno8qk16BcBYEHqtCTC1CgAA AFAQTjIo1W1xyrWAyYMAJMSYfENkrXSfZwVT1wAAAADFEDZcQCAUgAQZzwWa 9QAAAACleR6wH01He7IqWwJQWUSD421ECLSXXkYSHgAAAFAYYcAHNW+g0mHW J4fSNdIIgQIAAAAqIQyEQp0JVDTCAulShUCZ7ch93zXH2KDtVFtjYuhBY1tX /6jzy0AETyMAAICyhVm5PZAO+yAQCioXYQi0pnX8z2qHQJnt8F3nUFtdwu+s a+m1u76cng3wM7lMVGu/+wHmtwIAAChTth67iGw8KkJBhVLi0ujdjbnr7DTY uPt5dOj6g42YwNdkovPX+t8wmVpGplfhhAIAAChPtr6zN/FOaG274/621lcE QIkR1kXXd9NhNR2/ncjkhZZkwNV8xjn3fP9nJQbFut+Lv6aqz7uu4pUAAAAA GrK37jtXny6Bs7nDcEJBJSHUAqU6nKFd9TzQrYXrA5ak/1l16vKDbP7nxt2x ZIA0Tp09AF1SAAAA5Qqz7B3gB8JQ9QO3MSwJVAx7m/6P0uOQqE7HXFS9z9qY uZiKf5oae+jFbN6lcEL9EWfolWqXAwAAAGgNE7nZa+b3PVSggYph+76jvbY0 XUhE9x9l7qHDsawP2da8owMdggAAACqG7TDdZ+ZjL5YL0xvoSwJlT3TO0ckf vajWT2Y3VTN7MtdAveUM5XJ1mVjkm4meI3V1R3omvolkd1MBAACAMiIW9vTz Cckqy8g3G9j9QDnDbM992p52QFVNwTNbgY/TT1c3vYyHCwAAAOAQ9EEgHQ/K G0EK3nzSFVIx5c386O1v4D6rod/7I54sAAAAgGAv+uB3nbw6jWXEt4p2XFCO MOuz9g4uApqnMlOhT1vx9PCPVVWfZwWPFQAAAJDBzrLn3fpSbc0AaEFs1Tdi 4TPwLRdn1K18frXpe6+a/zgrHcEjBQAAAOyHeRacOMEFiGrbJwKYEgjKCGZ3 wd3N6z+Yba6QeiWgSV4Ex/nRS1WHHQ/Q6QcAAABkR9Ca1DzkXULiEJQHzOY9 eytX8Ey1jc2sqX/A+snbd5B7mhoHfWuqfyAAAABgWJho8HInp9KUY4wLAAZj 95G7u6HkZ6sluquO+9AOx7x6yqMAAABAGcDEIndG+AZ5c697AVsnMDLMj1Pn j3EJ+Aar836pKkzWfIONnAtqoyNIKQAAAAD5iXuhX9s7D3JdGxcmIztaXxIA BcE8n3OeMWvgf8bZDjlPFOSC7kQC34aiKB0FAABQiTDR+05rA7xQYGC09D8T H/8yOHEo9eknnKFtaX+1E5m80EI1DfpW1L06AAAAQK8w0Yf00NHUcOvjroVX Wl8QADIgJhNRx0Ymn2iQCH/1yHW8lr2CAz2ep+L+L/Mi7P2ghappGbmDGZ0A AAAqmlgkcOsGTdM3vgpBowkYCiZhvHHbpf/VN/+zRoWYzFZwopU9xVEdztBu nkeIiT17eNv+ttl0sNP+NfxPAAAAAABQBFuLN3/dnPBCc8U2X22vPZy6+pHV Uk1Zeh3T4W24nwAAAAAAoFh2IjOf2izVJhNV1zYw7r7jD8T5dtp7w+20D3a1 1MX/wXL64tW7i2hBAgAAAAAAysFsR+77rl0a6etqa2Qz8+bmE122wQ8dV768 O/ckisw7AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAJDA/wcOGEZG "], {{0, 154}, {897, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{323.66666666666225`, Automatic}, ImageSizeRaw->{897, 154}, PlotRange->{{0, 897}, {0, 154}}]], "Input",ExpressionUUID-> "7f1c0192-cec5-48b3-8a78-2f098ed255ea"], " and ", Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztvV9MG3f672+dn450LubixyUXSBwhS1xEiiJk6YDQCi6IEiFBlAoh2giZ KjkQ7TdfSHtqN6tAqm8gq+2stjU6DXS31rZW9htnv7VyNs5+43Zx2zgryBZ3 6yig1GkgxzRxCgQIcpAJhvHxzHjGBjz22DPjGY/fL2lXuy0efzzP83nm8zzz /Pnvb/Yf/5//xWAwvP3fEv91vMfa/NZbPede+/8T/6fjX98+3fuvp04e/df/ dar31Fv/483/L/EP30n85w//1WCg/3ccAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAaJ2d6Nri s7UopfY6AAAAAAAAACpARdeePY/E4BAAAEoFKrb2aNI1aukwEQaDoXFsdlvt FQEAAAAAAACKzfaK5+2KhEdQc7h3+DPv7CLedAIAtAwVefSV3dpaQ0cyWIhj jrkdtZcFAAAAAAAAKDZcQCNJpclMugKLMbWXBQAAe6HW5zwfmk2VqVCG6U3S 5Q9HEc4AAAAAAACgLKE2wv6b45b2mlRYo7bV+if/0qbaKwMAgCRU5L5zoCWV llHTbr1yF6EMAAAAAAAAQDy+tRb82+XexpS/YHyDvP0EqRoAALWhYuEvh5qr +LwMY/dHk2FEXAEAAAAAAABpUOtzN0faUsXph8z2exF01QAAqAe1fpds4aMZ Vc1DX4bRxBgAAAAAAACQge3IzKdmI2IaAAANEJt39dUhmgEAAAAAAAAQx56Y RtO73jBcCFBS7EQX7vzJdS+i9joKYnPhqz+7Z56j4Cse3wq7zxo5S1TR+ccf MIcJAAAAAAAAkIPYosdam+oSet67sq32kpQAbq8u2VoN2M31vfaZF6Xp/TIt I1qODU38VO7C3fiWrOenMB0h/S/UXhAAAAAAAACgFKBCrh4+pFHb4wqVpm+Y Bbi9umR7ffqDlsoT4/f3iHXdT7YYDJV1ra93p9PRVGMwEMccc1nGZew8dByr JupaT6Q+dqKj6UDj2H1RYT4qujz7jfPye/2dTcwsocQaTlrIK97gCie4jTnn vxzddTVqa87ZYzT1uebLWLg7695z/IhWosupPxsEAAAAAAAAUAZqY+rSAd16 E3B7dQl7QxoG3KF9N4SKRZ6Hw+GFmc8tpuRLf6L53FXf/flw+Nla9kqGneja k+A3o53M54imgTH3nZn58FrumaF0CpC9v4WoabeM/4X+DMNC8Pvbn5Nmk6mT /Doci61Ovt9M1Fm8y7s/u03/84qjF24/09XOy4OXAdsRvntGu+PHcr0PAAAA AAAAgPxZ91r496OV57zrOd23UgFurz5hxmFU1569tZjtXryYGm5kJVtD+vMI BFE/OtqrjWZ7YHVL3Ac2w7c/6DRWNw38e8aPUJF7dnNj6zuWbiNhIPpc4f3K uDJNthPGflcoKn6ZOmLB1V3DGaDG4SnUmwAAAAAAAABEQz12dlZzDkWPc0Gk H6d14PbqlPWA7RhRcdr1NPud31pw9iSVutsVFntxKjrzcVv9kHdJpC4wKUBE hcl6K8tUDmplwlrLdN89bA9mintR65Mj9RUVXVcebZVhvCo9oNFE+kuz1Q0A AAAAAABAHXTpUMDt1SXUVtDeTlTUk99u5PrLzamR6nxjVdF7Y22tQ74lkfc3 KbL630ytZ683YkuciIPk9GbmP9h66jpdYag77V4oP9Hq0v4AAAAAAAAAioP+ HAq4vTqFWvRaGwzEm87Qq9x/O+9oT2p1b4aMlwxsPHKcbBj6ZlXszX3hJ48Y DJWH7Q9ylRttr3jerjDUD/pWhL98cvgAYWgZny27aJX+7A8AAAAAAACgaOjO oYDbq1N25hzHCENFnztrGRHHS99gFSvZI7bAy1x/TW09utLVcNG3KnpyMSsL cVsm5idrKt72ZBuLHAnYWg2GxkHfc7EL0Am6sz9AOaJzXvsoSb4/bOljujEf /IXIbswAAMADSwIAAFpATmusN4cCbq9OeTk7dtxgONDnfiIqmkP3OWFFW9vr fprjj7eCjq528Vk3CXaC9sNi+1hSL30Xqtod89muTr0KjDYYROutftCb/QEK Eplx2UiSvNDbxG7tg/2en9VeE5CP7Qf2E6cufvZVcG1/rehONOy/Pnq23fKF cMQfyI1eJQJLonv0qrpAUaA2xUdOa6wzhwJur07Zvj/WWJG5Y2pmlr2WOkay xCFbIGsEauOR482DOfrH7oWOPtEXr6gfmVzP8cHt1dvkqSs/5IiCvfre1lBh yBHR0h8K25/YSvD2NZv1ZGsdPcyJqGs7ZSEdX9wL5x5LBDTL5rzjDUZh3nDM C9Tn6RV96zNnVQ01bQM254Q/uECPApufufOX8fNddXSLqfqznqfl9uhTE51L pIwtyW6oSGC887DFu6j2QuRD56oLlAFqoxqyWGN9BTTg9uqUZGhIoGNqJqJB ewer1kSve0nwz6hYyNXX8K5nMY8pN/THwi4zwV796OCNB2vC7V5Fw6ri/qG9 +kY5+0PFwl+TnfVN/b//IvB4lfb4dqLLsxO2HiM9cPlth//n/EQOtAJntBvH ZsvICpaBPvOHycwcMtvvRXCULCY6l0h5WpI9bK0F3cNttQkXrtu1oPZi5EPn qguUAWqjGrJYY10FNOD26pRY2NWXuJFVg76cdUEcO+vec5WsaLNskNi8q6+9 kIgrFXL11HIbh6hp7h3+xOX1B39aixYqY3bmTpausLpEIfuT8P5uWU2mDE8f ai0w2kFvSqJ1ZHIZj6bSg41a52cNSp3y0GfhwyRhOvmh50ecJIuNviVSjpaE JxZZejxz54b9otnEnlHLJqChB9UFCgG1UQt5rLGeAhpwe/XKi6nhRoOhutP5 OP96H4NwQks05BpoyDPrhoOK/vDHzor9Zq+yru2XQ5eveQMLkfziV9zMnU5n OY2xUcb+0J2Bf2ESaN5LLbr7WMHVnveWWaaTDuA6ORvNrlC5bJQy0Wf6MHn4 HZttqL+no4lOPKlp6ui1kPab3+mkpqbk0LVEytGSMHBOW0Ka3Vab8wv7mSp9 BjR0q7pAKaA2KiGTNdZTQANur06hHjs7Ez866wiY/ax4+pN3vn1sNsMIXyp8 43T9gCsULXRZ25FZ50Cyj02GgK6x83fe0EvxUkru6OqRqc3yEa0y9ocVfc2R /o/vZnhpneqcI7rZDtAK7DSoBB32YME7t9RQR59j0Whxq1jow6TIcWMZ2dmM vtL1doZEZKQsLQkDFV17Fl5c4xw0Lr6hXECj6Hobl666JYGW95cslJzF0zJa 1ha5rLGOAhpwe/VK8ombp35yKUyZu+ZSTz1n2/tc8xItFxVdCk657aSlmw7n 7sN03hMWnUoTdnXTn9GrOc2IIvYnLW0w46ZOfWkN6S+fe60L1v1kC7OnSX/Z GMDi6zMVffzFyOvttu8yPBGVQ+Jhkgq53mzt++yfqzKUdmoOSERuytGSZETR gIY6ehvXt2fKoen9JZWStHhaRtPaIpc11lFAA26vXklO1+1xLuwfpZSFnz39 B5n7W3nY/mB3ulhs0fNuQ58rJOfWjkXCQb/3Lw6bpaOukg9Y1VonVkR+yebU cLWhzDquK2J/2NnNzO0/4ZjbfzMR0ChZdh7YD9Obq9LiXVd7LUWjyPpMRe7Z zXVG85VgwZWRhSH1MEnFwl8ONdc2D30Z1uKZrXAgEfkpS0uSEeUCGqrpbVzX nmkKDe8vaZSsxdMyGtYW2ayxjgIacHuLTGxp9iuXnbSeaq0jUtGZyrrWk9bR /xNYyr08KvJ/p1xjQ72HORUkapp/OXr7yV5rUmAM52XAdiS5pt3bhFq8dbZB StZNLmI/T4+fTIauKs9518UV3xUWkSttFOqh8SLo/mCg5y3S/SBDEyfOeJZh 9bQEqNha8LbTZu3taKphtntNU4e5f/BD+zXP32cerxTp3LHk7iXKT3BF1Gfm JHmIaPsoECl6Ow4ZDpNs99QaLZ7ZCgUSUYTytCSZUCigoabexkvFM41FFh7c m1+VsEqt7i8JlLjF0zJa1RbZrLGOAhpwe4vEdmT+68+SzbGNzb0Jn+bqdY9v 2u+f9l0nuw8ltammg5wS7rofWwxcu9CW8Ixq2vpJu8s76ac//pex/hbC0Dzk W9r1wQIlu73kPpOMtKQPvqE77B3pcgTzCnvlDf0tDcx3H7EFxDWpVV+yxUcF +0OFnF2sWlS+o9T4YzZs6bJ/ONhvPsHH++hYn4X8o/vOrECDqe3VyfcPD3jy KZkrDpvh2x901prazgy+T5LvD55qrkkLYbKhyLZRf0TGrlk70fB3N+0j/Z1N NXTHoX7S9f1SbOel7wJTvFd2Ze9ZkFOfYz9NDB0ljP0KPvWyfbssh8ntSOCj NkIv8/UgEanAkuRAkYCGunobLwnPlNoIjCbOuwaiL8M6qY2w/6/24YTaGom6 bluWszQsnpzfrn21kYi+rTECGnB7xbMdmfde7m0kEqrY8avxm4GlfVG+9KlH Ff0ZXTMqFv6a7DxoIBp7L3vn98RgmTSbvR8stMpmO2BLhleqLviSfUq2V30X G7quPNoqaDNTYe/Ir90Lr8T8KbdJS0KyalF8+xOZGetk9vuhHudDuXc3a67/ rdvEJ19V1rV29w/+mmQZtrDpTITp9JgvtDurgdqac/YYq/bliakOM7S65fzN 9FY/sZWg9w/9u1oDyeYaUNGQb+y0iahqGvjUF1yKUjvR5fs3Bo+1DF2/9WEb /VVlX/aehoz6HPnB3l1haHrXG1bn5iYPk6+i4XtffHapv5vdKnWtp87ZnLeD a+J/nNo/RDbU/iElLhFYEjEoENBQW2/jMqqucnB9A/bOI0icIu46Bo63WX49 2MG+8CQO2QJZQ9UauOHyoPYPKQG1kY6OrbHiDgUVXXk883ePyzFGXrT0mru7 u0/sqlBgMTZ1nOim6bMMv0+OXbnhvTubbxoz3F4loSI/ej48aSKImrYL1wKL Ard4I2h/PSXcDKNYNpemf282Egbi6NDETxkuwhTUEL3upfR/uO61VBYiWU4l DHyFDrX6zVDDScejQvsMJVZSLTQNZy9JQQlOzxH6QFm9MypyQIONTtPen9wB 6p3owh27pZ37MbWtAx86vYHHq/ttWOK4EnDTW+lgJ/k1n/hHrd4ZaU5YghbS r7WS7kjA9nrG8RmJJ9Qdu7WVztaoar7w9ZIc95NNN80goNgjpzk5Ahtl7xwy 6vP2+vQHLUQ+xY+yQxvAtvO2X7U3nyQ/nwyGI7S5j62Hpj6ju2obe0Ynn4p9 AGwFHV1Gg4oviGUAEpEELIlI5A5oaEBv47KqrkLwpYLtjnn+RlEvQ97fdbW9 4/D/HIu/nBl7jcmD7nUEcx2NYPFkQftqIwu6tcZKORRUdHH29jWbpXN/8EI8 RF2nxXbtdnBFlArB7VWK7Ujw+lBbraHm+ND1TEXcHHSRTi0vb+LA8OTuO7gZ nrjYTAc8BaIZcWrD/9v6/c1Mkj9ZdMxn7wcNydk31JJvqF1C1g216ScPiu27 l5xDVNHjeirSOJdhu9diBDSoWOR5OPxkfuaOe2ygiTAQTWftd0Iy9nzgIs/s rzjYOfL5dGg9lwi3VgN2s7G6hby7nljJ1kNnDxNVFV96VjToqaBHhEWTuL2L Cz/J1EMjOuugn3pE7YD76d7sr5117znm/FfmZe+K6DO1fpdsSRzYzrrD6r2E os01YTTbA6t71sDkCDFh8Au3n4n7oVR05uM2gjDK3AKreEAikoAlEY28AQ1N 6G1cXtVVBCrsMtNnhtRxl4o+9pI97VZXkM9bjq3OB+49XBZj3WHx5EDzaiMT erXG8jsUVPSJ30WaU0nX0qlttdi/ml/P8WPh9ioCG4UgjJ0f3M4+ioW+b80p oRHHbIH0eBsXzTBU09X2GX9sMmy4z6DRLlVVQfrJq3dVu+OHF9MfHG7/eKbw o380aO8Q63JSzzwDiS3cYPUuivw+asHZaUhPEyoHlA5obM45TuwKqRp7bJ7A QkSuvbMdmf2ztZWNMCf2CHlLZPSV/Sz9er3p3YnA30dak1MszC7N5YzS5jGx fX5Ufl3rARszzaOi15nhxQH/4Ms8X7s8UEif2Ttf3W6fVdMJ2Ql53nf41zMG 9l/Ojh1nzgJWj1B64B6S5Zz1Zz1iH61aAhKRAixJHsga0NCG3sblVl354ZWQ zcncjsx5yK4uqyvbG8McwOJJR+tqIx/6tMayOhTUywXfeC8TymCSKxw3vFOB YCgcfh7Zesj4pCx8TDIWWX5Gv2ya/W7K63baPxg8c0wwo4No7LP/Y3/ThrRv h9srN9SLGfspo6Fqf1NcKhL86q/+tH+4vT71m/qUtCrqRybTIlB8arSBaBO4 t7Ent0cSap+xEnzFN1hf0AM34ieb2AVVv31p5PCJsRkJGk6FXGajwdBqC+S8 CPt784t/Js8V6fmH+qeYJSc70eXgpJNtRdtuvTKdzZiIgXoRdP2qOWmvDnWP 3sm/cTTfAGGPYdQSdEkeQbTbg4XV34mF2gra25l7UTngyZRxylUcl1fELwuy 6TP11NVTkTinnfcq1CNXDrZnxxqZJ0uD7XsxxZwpjTJd9K1q93dlBBKRACxJ fsgY0CgJvY0XorqywylhpcX96L73k7da29+7Hnwh8UQCi6coGlAbGdGlNZbN oaAiD28Ov5a4FtF09hNvcG3P4Sq9WaShttf9VOgyschPM77PRwfaUn+eIoNn nQbcXllJRjMOmcfv7jsqs51U01fOT79lo09vOkP8jueStWgOj0ztV2q+16hQ JfjmvOMNEZ2R9hMLu3q5NVW3jd2TVKWTrGnKKS923HMV0Txye0l8IHdrwdlD q/igL88Eo5Km+E1B+dhapanvykzBc8HSRxQRR4c8jwuLgFIrnoFULpsGG2gk eOrurRXYuTLy3DfIHBbYNLn9cBXHAq2GFebVffuxxmP2+9o7xkjXZ/bOV7aM 3dd0y7MVT38FoyANo4FXIqscnrj7DhhUf+uXN5CIFLRtSbSHfAGNEtHbeEGq Ky+pWdsMxteHP/sPl+sm/QY4LCHfDhZPUVRXG3nRoTWWx6HgOn4YiOaLExkL E3hNEPtFW2vBvzFO7r6Yxsid1cyqBLdXRqIhV7/RUJWs8d8H9xBsHPQ9p/9/ Mj2GI63ihut2SN+T2rO3dmWiUJHQlIsJXhE1rVb7lGC/nWRoNEOX0exQm1Mj 1ex3C2WGiL4U276VaD515rVDzdbPZ/YW2bFsLk3b+0xVNW2/8Wav0NkLG447 2O/5WcIiSw5Vpiy98JNHchmTrLCTxfhoRuaGMCJZmxpuSt4ADTbQoGFSzmTY QVlJmk3Bm8BVHBen+GUfbKFftytc/K/OjSR9Tr4a2xWC1iSpdyI9zgWR5y9q Y+pS4sRmqH3Pp8WdlRlIRBIatyTaQ66ARsnobbww1ZUTvoFG8+CnN1wu1+eO MXLwTBubn15Z1zks3Hg/x4Vh8RREbbWRG/1ZYxkcCj6ake0tXqrxZj7KEHse uPpO096gRvOQL3NDfbi9MsG+9aswWW8J5MPww1kqGsfuM+Gj2NLtkeaUpDhN iIXcA1wlCvG6PcgXSVGx5bujHTW09e44b//qUY7KwY3J4QNEAR5fskJnb0OP AtiYHWs3GE875zaoyIPrQ8dratoGbH+65fPPzj8JJ1gI+iectoG2mozjaHOy fX+ssaIETLrMqDM2mksdTHCE9L/I78PUyjTZzmm69FmZfAmhJhtoMOwE7Yfp BRqVG2PNj5oSuAlql71rOqAhRZ8jAVsrbcf73GKLHhWBii0Fbto/Gr/+vWDh TOowmY+h2PiWrKdTmXtKpv0jJCIJrVsS7SFTQEMjehtXUHVlY08DjdSyIqFJ x0ALc7ootLkBLF6BaF9tFEBv1liyQ5F+vD9sDwq4m7sqTvIrluGbSaYQLOiG 2ysHbLdhouWD6cy9ceL8S1uDobrT+ZgbPLk+576QJiljc+/5X/e3cok5RG3/ Z5P+Se+NK2Mj73Q31Td1v2u78kVgSWQ8h32RLZC2lIXNf9oaD7WPfpurpWxO nroHBuwzfJHj1trcXbedtPS+0VrH7Miaps7+9y47vffCGwV8FeszEl3OUnkI yYQ6AY34S99gMp8o34SujTnn6WSliaHCNPRNIQkeu6HmHe301TTZQINl6/5Y C6PkRKekcjxB+Bw5PkC6By6PRa2yd20HNArXZ/aJaTiQcSxv8UjmvhqyxepT Z4i8+n4nT8vEMcecRnfXbiARSWjekmgPeQIaGtHbuKKqKxd8A41Mrkr0n7bm yuz+VFZg8QqiBNRGCXRmjSU6FKmOH1kjislZHkny3qcbjxw9qY/TCHWogNsr HaYnLdFOTguXzL/63tbACmRPhHk7Mv+1/XxXhs6uNU0dvZZhcszh8twJLuef TUe9Cow2ZBgFqw/Y4QVqm3QVUCCgEfvJS56oI2pbra6gULZVeoA1Dy+VnZOe /FzWiF8+JMvxtNlAg2Xrqet0hby/ehf8g0/gLMEGcncVWq76xy45iza6WsWA hoL6vLPue4+e0EP0qTwqmmk8y6w+LUK+h1zJqwJwWbVFHXReMJCIRDRvSbSH HAENzehtXFHVlQmub4DAa2vuUJQ+KnHnoeO1cx5RDTNh8QpC+2qjCDqzxhId CjaAkKMBQtoLfUYXLN68D+5bs/b26jT3WCjgA7dXKkw5G1FrnRAOZ8QWPVZ2 UKVgbxwqshD4y3Az3/VIjtlAVMjVU2uofEecVS8p2Dfg9b/1FxLlKmnkD2jw SW7iIu15mCNq9ZshEx9YFSx8yxt2Mdp+RFIrE9Za9nGfpRKt8MtzRX+ZdSCZ QZdeaLkxOXxowF206WnqBTSU0+d4fNlrqaM/o/5kJbandKXJ/NGkQEcpru4p +7MpE8lTqIYzoFJAIhLRvCXRHnIENLSjt3FlVVcOuL4BAl4M5+URve4l7p/R Cxb/IhgWrxC0rjZKoStrLNGheDnv+6tnKrgczX4n2M4PyQNXQfcttujuT0/S SN/su4DbKwk29HR8bFYwnyrNras77RbqVhIJOnqNvLDkmflIbfh/W2+o6XKq bflkZnvFe762lGoe5SMVFTfIVEaX6oeTxQHkDCl9ihOrTtTK1Mhh3v5U9Lhk m97NHCg120CDYyNof53vHGJ2zMoczU+mqWRKrovNu/qYM4+hcXiKbRBBv1Y4 VMySW9UCGorpc5wvVBF6O1BMEjZwsHHA/VQwUPZyduw4/fuYcs48L85N4FL/ zJwLSEQ6Grck2kOGgIaG9DausOpKh+8bIJBJzssjlaCRWPAb+Zx7YfEKQONq oxx6ssbp0zYVq2HfNQKjzuJdLuQiu+akJM7UQqXCcHslwEoqSyiYCnvfbWKj FMJjXHZl5hsMDVavTOcFasF9uk7js6rzhsk+UnaEhGbhU/joZ9rbsgQhk7kE hKlz+OZc5luaKqAQPYOb2giMplR6V3tbydA3oQRepqQlaSjRTIOpdDNU1JPf pt9ZKvLAZW1v6e76RfoTilr0WjtksypiUC9DQxl9pi+86ScPZjlXiyG2Erx9 zWY9yRRUEjVNXf3Dn3mDK4W8X6Ge3b5wrGXoVijDy5HNpckP6NG0BU4U4hJE K/q1/SJeskRkFEe8dCWibUuiPSQHNDRmSeIKqK6cy+MaaAgdeKiQy2xMD2hQ i7fONg7mc+iFxStsOVpWG+XQkzVmmlgmES4dkki622J4wzGf11wPDuHBoPv+ Em5voTDPNuGZsKmOiFmmzVJLf3s3lZlvqOi68kiG9IzktWMhV5+xusX2nV4i pFth91mjUr0WNQ5bIMa5yLJ1htkMTwy393w8lblNzU507s99RsYxN55Ka3eT faVM3hev0jKmZ8RZZ1nLDTTizBDtO65PBjuMqTCl/LYo+uBqXyNBHB288WAt RsUi4VnvH/qbWweuBla3nnjO1hsMteYrP0Sp9bnr51p6nHOyWRURqNkUVAF9 puHrQAubQLe1GnBaW1ObIo1D5vG7go3ieTa+sx0d2lVmFXs6OdpTa3rz/at/ 8wdDdA/tcCjo/9vV4deNidNg23vXg+J/XTr8TC4JDlcxkCIRBcQRL1mJaNmS aA/JAQ3tWZK4jKor9/L4BhqCB57kC0Gi/fczG7FoeHLc3JZnyTYsnu7URkH0 ZI35EBmNQnNzuMojhuqRqc3CviO9biVrQANub8FkCWikDTEhmi9OCE2bTZ/T SpP/WMxcS1zyDpmy9ywtGVhFrZM8+rNEeeEnj3B6Im/q0WZ46lNL2+EOy4dX bt0JJB9M4fB8wOsYbKshmErJDz1zInsAs0lfPI2DvueyrZS+fHTt2fOIzF0p 5GJrdeYGaW4gDLWtlnH3N9cG6yuUERlD7PmMe3zozLE6orKu9aR19Lqf8+Kp aOiO49KZtjqCMHUM/sdsvvOhJKLylBN59ZmFS87M9iQVXs++0WO7MXaOB7JO 4t566vrlwQyVyFtrc5Ou0XO9HU2Mk0WrgYX8o3vq0ZqEDcKV5GghsTkLBUtE OXHES1UimrUkWiAWWeYsyOzdm7buZJMeovnc1dvfBxfYf7W4lqOQnEebliQu h+oqsDzqme/Sa0ZTnz2QZULa5lLgOtnPaG+Hddz3JN/7CounN7VREl1Z49TE CoMy80B3jThJa2eaLxE/2ZTSiE6nUPsGBri9hX0VM7qo9h33013xCiryo4d8 g8nNqGq2uoKCWhcNufqNKSEp0zyHejFjP2U0nfcIBVVKBCoSGO881Hzha5ma S5YW1NajK128XVCiM0xsdW7Kbf9wqL+zKdkniKhr7e4funzNey+cT3LBc99g Y0qpD1yaKo/erVT0sZfe9YSxk7yVzJNMq25QSGraRAtjW2XTZwa+fU2OJ+l+ dp3WiLpjZwZ/TdL8epA+sfC2P+sM9I1vyYYTctZt5Vjy1HA1syih1ltaoECJ lKA44iUiEb2SsGYJ03GiW5jXmmqaxVag69aSaHx5WSmJ/aVPi6fx5WVccilo i1iYt//Ju1xhGvomS9ywIF4GbPx7WCml4rsCGrl7ucPtLejbtuacPUaCMJkv 2m/4pv3+qQnX2K86mJmzhOnkh54fheOKyc+mXL9aq0ehCj5GuLVZEkU0DxW5 Zzc3NA99KffAiBJhK+jo4qwO0ToyuazZu0AtuvtSPrxeJyjthdHPQ3QAc9A9 lx7AXL89yHfSKLghUsmhhYCGvCy5exkxChcYZoSK/vDHTno7VJp6P/LsDaRQ sbVHk84LTNJIltH2dFisSt66rexwad6GxrFZzb6wLEQipSmOeIlIBIhBn5ZE 48vLRUnsLx1aPI0vT4CS0BbxpDsXMo4jZNnV+0JKqXh6yUnanJdsXw23t5Dv jIUn7ee7UrHEmuZuq83pm8sQynh1b+xwWmOT3BjNcqWpU+tzN0eOWb7Qcomg MBuz47199n/krqSTAvWT592jNbmFIhnC1PVJIA83n1qZJts5/cqZfacufE9y Fo0XpcoDtX6XbKmiG/9mKGlMH3dS0AzuUkR3AY3t2TEm6yjPLNPovbG2agNx dND9UHjPbkdmnQNNVYL1hhvfkvWtcpciZuepu5cpZ5ap87ASFCKRUhVHvCQk AsSgT0ui8eXlpgT2lw4tnsaXJ0gJaEs+JHzYL4eaOc9U3qk06R1BK88V3uSE euzsrOYuJHrCI9xeZdlcDn7vTzB9y9aZVmtiqDBZ/n3Sv5+Hy9r9LbpDmwGN 2M/T4yc5XanSfI7K7tY9UixYqRCddZiZqmqBkRnUU1cPn7IiOG1KX+gtoMH3 AcurEyATyxLV5n07cv8PnRUZ05nocV0Hi/3Wkk/vLKxvYREoQCKlK454KUgE iEGXlkTjyxOD9veX/iyexpeXBe1rS75sR2Y+NXP1AkTzv3lCL+W4o/I1HU0O LGZoGA280rITVG5sr/oumtId3JYPptfLwc8BeUHFVgNXB/jxp4fM9u9WNR3N SEvGY8m7TLj4bIanrtpIknx/sN/c3d3RZPzF2Iz4vZhKnhGetsx22knS6wpr bAqZEugtoBELu3oNebohzADZA2bnI3HyjsyMdRL7A4A7Dx3HDsvcVlfEYrgD m2Kz6SXuu/wlUsriiBdFIqAI6NCSaHx54oDFg9qIR5fWeCcaupWWp9EzOvlU 8lGVn8tjEFsnIgCXnpSgut0+q48okj6gx2TXprXOqOi2/6CbTQFkIrYSnLjc a0oGBwjTv9infy4BT3jF059qoFFQH/diEwm6xxKHjOH+NjY5hzC7wmLNLrUR GGXjTVlH024tOHu4W3LEFsincrpE0W1AQ/wBhi7srWy3B0VPVWMOeA27S7SY gUEt47PFHpRZwO/NFyn7roAVlrQ44kWRCCgC+rMkGl+eSGDxoDbi0a01piIP rg8d59LUD3aS/xlckxA8oEIuM1+J0GEPRgu90MvZseOcv3za9RTxDM0Qm3f1 1aVcPkP9gDukeacPFBFqI+x3MaM/2cdeY+9l73yJDMvjBloZ8n0JpT6sD55X H+atWXt7NRumyF7CyYx3NujyCZgZvQU08n8jQz/KmwY8z/I5aa1NDTcfJKdT HawSF+lplH/ab24KeY9cIAXsO5o8JVLa4ogXVSJAQXRnSTS+PLHA4sWhNqLR tTVOOCB3r1hba5P+h+lN0vVtKFKQk5reQENKnQjdJoV9UVrVYvuuHKYMlAiR H+zdaW+wq1rIu+taz8kHxWR71furZEyzpm0gbQK1EhgkkPGCaZ57aTnv1ObU SDW9ZvFdTHfWfe8ljX6udwRpcZ4SuiccO4/dbx0pRm+ZmiNvuR8X3HJF4pdn vXb+bsjO45vvO2fy27tMlfRhezB5C6hXgdGG2vd8KnShKdqBrYB9x5KnREpb HHG9HKGpjYC9p8m4b/PJB2HqGJnI58V3ZqQsIeuFdWdJNL48scDixaE2otGH Nc5KbCXo/exiN/detZB5LnzXlwQVDbbvXxW6lEWPNXnSFuhTB9Rge336g5ZU rQlRO+B+qvGWCKDYpLnJJR/QeMMxL+O8JCo6//e/BhSaxszV+olvW53qjCHi VUvypYzs96QoIKBRtJrZFU9/FaeB1KLX+gsJxwApFO3Alv++S1IUiWhFHHG9 HKHTnm6KITzeMQ+kLCDrhcvNkgigueXB4jFoTi670cry9GGNsyJDQCMSsLVy RrFpeGqtwJXw6RlE68jkMhxmbUDFwresJj47gzCaP50pkToCUFSojfC9L+yW 9qQLSTSYP7wlqZBNGNmPbbsDGvI2wFz2Wpq6nPOKGDS+1i8V/8/1iUV3X3I3 i6gN5AMaOpnzlQs1Sk6kKLOQPnMUyw2he+q2sV1W6OE4lSccc6qEv4p1YMt/ 33EURSJaEUdcR0doKhZ5HlaOZ2tROZ4QsCTKornlweIxaE4uu9HK8nRjjTOy uRRwjXRyw0lq2i12byEOyKvvbQ2cw3vg0lRhL2aptcBoBxNUqW4b9QvP9gXF hZ/tyEA0vz+JzBmQBbqQ7TNm+jajMKbTYzL0HFaeVCqCQd6ABh1AqHzTGVIm Hp+s9SN2VWhmY2fdey5ZHXiQ9G/msLM7Qfth9o8LCXSXIHrrofEyYDtSDDeE jtod6ff8nDhUzDlOVEoZcyaJYh3Y8t53PMWRiEbEEdf7Ebp8KDdLIoTWlgeL x6I1uexBI8vTrTWmIj96yDe4msDatqFrBaeIpw69hozzdsXAFzWgnEFLxH6a GDrK15oQzRcnwsWPK0ocGgVUgIo8cFmPlNLY1vRp0XIO6Vb2+bUdsDHRxoPM s1IM/OnCUNHvyVUKm6olrLR41yWvtgTQW0CDP8A0Dk9l6/4qmYifbKXPSPTb jXqLd1nJ78pCkbq457/veIojEY2II67jvvplRrlZEiG0tjxYPBatyWUPGlme Lq3xTjT0xUgbVxFofIP0PpaQ7ZY+sDVHz3wBqGjwitlISC1niM557aP0dCFL X3f3iY6mg78Yuw/Ht3CoFzP2U3wbLJWiGXHJQ6PKAOonz7tHi9ErgDB1fRIQ G7GMPQ+k9KeqeejLsJZjGrvmNMlm7emJXQeO2wIKBQM25x1vMAsW3+Bi2Wth ZxWJ6VXOX99oVrORexHRbUBD6Tcy9ITfGvLbdf9v6wvO0pSB4iTGF7DveIoj EY2II168UgWgLOVmSYTQ2vJg8Vi0Jpc9aGR5+rPG25GZT5noAeOgNL3jnH0h 6ebSxUHcgJNC5ptsR+bcg81ViQO2qe+KpOYMkRkX/SL/Qm8y3b2AWCLg2Zhz ntZANCONAodGlQHaDGjQC1ueHGlNy9O4p+FSslch55vcUqvaHT/KsFJqZZo8 dsA6saLUr/7Z088UDB6yBcQazgVXN6sptb3up2KvTyhWMqM19BbQ4JvDKO2G 0KfWGtLjG25RtRsbf2CTMclqPwXsuxRFkYhGxBEvlkSA4pSZJRFCa8uDxUt+ icbksoe8lheLLDy4N7+qQKW2zqzx7gaPxtPOOamTUdPqTQqYb7K1GrAz0ZXa tpEJmV7gSoklApbN8MTFZi7oJTJthlq6/du+U+ckdPvPfvlCh0YBVdkKOrr4 wFjzkE+hYR8yQDdr4kxjhQxFIkwZ3QGrZ1Hkc2knGv7upn2kv7OpxlBZ19ZP ur5fSphEKrr88P5sxnpArkyGrgdhejsPnzlWRxA1TV39w1fuLLzM9Av4gIaI ED13/Yoe19Ocd4NuCet12s71djTRX1DT1Nn/3th1fzhaUtFH3QU0tmfHGhl5 15B+JVvZMAe2tyz9lcfHZl8q+D05eOruZVJPK895RQ3Fy3/TxQvbdymKIhGN iCOev0T0Ykl0R5lZEiG0tjxYPBatyWUP4pdHbQRG6fYLRF+GTm4J2+j/q304 IT0jUddtm8p3doa+rPHWQ2cP3+BRFucifb6JiJ756cSeB66+05QQXM1rwzcf yvfqlsupLpMudoWwHVm472cJLu/bM+nRjKrmQfecmGhG5J7dfEiWEJkABQ+N AupCbT260sUFCoiW0YDmsgF5nvsGG7mFSmxDzYSO69tFTmuioiHf2GkTUdU0 8KkvuBSldqLL928MHmsZujF59ZdGAWvGnROqWod/b+s+3Dny+fT8Cv3Z8OQ4 vRlPjE4/3/ft4nMOqY2pS8x41warN3t0Z2t15gZpbiDottJfBB6v0AWMVHT1 8fce25v15itBWdr3FwfdBTTogXEV3FlUwa/h8orz7oEvK3y+qIinf2GbLl7g vkujGBLRhjji+UlEV5ZEf5SVJRFEY8uDxUuiMbnsRfzy1v1kSyZPJ3G37zoG jrdZfj3Ywb4iJPLOl9GVNd4Ku89y70orTEPfrEpfTtp8E6LLKbrKemst+J8k PV2FMHaSnrl1Oe/L9v2xRnpJVYM+Dcbp1IOKLX1/ffTd7ib+dXkaNc3dFtLu /ntwaTHVN4No7HOIqRFIXPkubdaIo0MTPykVgC18aBRQnbWp4SZO1Q70uZ/I bgep6BP/zT+SlpOtdQlzXVnX2t0/9JHz9oPlPMPIVPjG6WQ5nhQLScXCXw41 N5gds2IivMlg4P6SnNgjp5nrdNTu2Df2lU9FM+zfeslsE+NZd3hPYmHiwdrH /MJcmU70tPSG3DEo6sWM44yJSFjyD27vqkrbjsz+2dqaWH+d9jp0CaONgIZc +kzDPRAzqZCMsAe2GqXGE4tkc2q4mtm9uRreFrrp4oXuuzSKIRFtiCOeh0T0 Zkk0g2zGpKwsiSAaWx4sXhKNyWUvopfHxxzS7xX1MuT9XVfbOw7/z7H4y5mx 1+gjnLHXEcyzD4aerPHGt2Q9/6JUlppo/hWeaD+Fii7PTtgt7UzuyvEh133Z Zx9Q8452ej1l08VODEnlNBB1nRabc2Lqn8FlRkWpyELgzq0rHwy0cgaNgzD9 i336ZxHRic3w5Me9pkploxlxKUOjgOpQrwKjDbxqydzTdTsSvD7U1thqGXff uT8fDofn799xX+5nGukQTW8zjwDxREOufi7k1/Sut4CVsk2BGsQ2DEmORc44 3YkfsVrRmKG/Md/gItPWo350tCfuQPUxx8M9x1Yq5OyiH4c5+oRwBThZ0zO4 vsFE88jtpd1LSPVWKqleRuoHNOTV53gqZbHqgi9HarAU6KZnqvdaoRacnfRP zdVnqfBNFy9436VRBIloQhxx8RLRnyXRBPIakzKyJMJoa3mweBzakss+xC6P CrvMxC6BUtHHXrKn3eoK8qnysdX5wL2Hy3lnSOjIGqcHH2SpEI/vytCufc+X rSQnFllIGNKPz3eYmNGsjb2X/xZcU6InyfaK520mapNn/YueiQQdvUbDQToX Rqh4hFqfu/6uaVdAw3zxsy9nl7MEDzaXAn8d62dn7SoczZA0NApoAC4yzFgf GYuGmBbHta371Y97H5G/clJrgdGOZMWV8ZQ98Dyfz67PecjO2tZBt8gauvWA 7Rj9XRW9ztB+e8WfNDIFw/kGF5mNOdcro9O5sOff8qkXWXLqqCXfUDN9/jl7 S/hJEVv0WJlI6OGRqX19T3fmnK/TkSGi+f3J1dKpEVM5oKGAPhepqRRdypRP lqYS8FOGs2cfSdh0cQn7LkURJKIFccRFS0SPlkR9ZDcm5WNJsqCp5cHi8WhK LvsRuTxeFi2kf515O+Yhu7qsrgdy9GTQkzXemB1r5zwKeeZEUIvuvmTGR0U9 +W2qdQIVXXtGx4Jn/f/w3frT2IjlVGtd0kGoabeM3/QLdZ6RAa7+6CDp39So ZhcXaitobyeyOybbkaDL2lxlyEBlXcfbpP3PHt8/kt02YsvBuxMu+/v9XFIH YTrjmJE2KCc3aPRa6vC9KBO0j83K1Ghl4ztbS9OAO5TxSEYt3jpbyxgeY78r w3NcmNjP0+MnucKrI9bPxSSSba0F/3a59xfGtveuB0VuB3ZvMttswJNpEopQ NSUNV9YqkMTIJ3lm6MNFbc05e+jKmkwPLObDq76LplzPLHoiLXN7hVqGUtHw 7L1HhVRJqIi6AQ1l9JlTFUWjwU/dvYfUnj8lps+SpE0Xl7Tv9l9EOYloQRxx kZ2v9GlJVEcBY1I2liQLmloeLB6PpuSyH5HL42RRaXE/uu/95K3WdvHnyZzo yRpzWUM0Ygb2ZYXuc2tPpluIIuEX/2r8pj8UUfQ1fiofRuG2RSUEG8hqHJ56 kenf0o01XCNMxM1QaTJ/6JlbCk99atlXgSJAbdvQ9aCUSbtikTQ0CmiA9ICG XCOwt566TldmC3q/nB07znwjUTt4Oz+DQL1c8I3TtVTMx2tarfYvAgsZzBcV iywEvP9O9h2uoVsn3VnIw87zGW4CAXPOmmUK7POtMARS0bg2XAJbJtn4l2j+ N09oTw5ocvJUrknNG0H768wCDg14nukndqxmQEMxfd6YHD5AKFuvR5cECj1l igXXZylrUZuUTReXvO84lJaIFsQRFykRnVoSlVHGmJSJJcmCppYHi8ejKbns R+TyUgUdDMbXhz/7D5frpncqEAxLdp51ZY1lcyioyD1HX6OoUAZR13Zm5BPX 14GFdYUDGRxL7l6mWwoaaHBEg/bOhONi7Bj8xOn2Tk0nh5tMeW84/vdQ72FG JypN5t9c9c2lkppiiwEXaTZVCos28RHSFRA7kDKNog+N0vLUoTJCiYAGHeYi 6o6dGf7TlIDrnRoqXUjxJhVbYwK3dfxGMDZ1nhl8n0wyzOWeFZZ4lmwLIzhC a381ZRpcUWrmVDRq00+y8Wui172U+es3l/yOgaYqevH2W/5gKExn1X3vucx2 QXf4l7KeO/j3MuLnf5UEagY0lNNnTluU6qjMFrSqXeaZ3FBZG69J2nRxOfbd 7usoIhFtiCMuTiJ6tSQqo5AxKQ9LIojGlgeLxy1DW3LZi9jl8bJoHvz0hsvl +twxRg6eaWMLHCrrOoevFeJzcejKGsvlUGzOOU5kjGYQda0nus29lovkmMPl uRMIPllT0GfM6BfvcCVCmlVsNYg9nXJc4jbFboGdOme78p93QwLlWbGlWa/T ZmWbYyfjGHVtvxy6/GfffCGDaYo+NErjU4fKCgUCGjE/mbyk8DsmLhQmxSZQ 0aXglOeanbT0vpHaCzVNHb2WkbFrE/4fC8u+49rCCAXM91RT7v8w8+TLnIrG 5Rbmqi7c3QDfwByA7Tf9T3LuDK67VPbK2RJExYCGgvrMddBSqmcaM71d5SOQ qN8oadPFZdt3CktEC+KIi/yNurUk6qKUMSkHS5IFTS0PFo9HU3LZj8jlCcki FglNOgZa2OF0Zz0ZC0FyojNrrMQbUnUQ9ouv3/qwjf59aKChPYo9NEr7U4fK CwXsDx9MzjKFKnWu05rR4+aSC7YW52bdZnwOsn63obrT+TjTIYVLXCROOOYU SfDk72vWwtkSRMWAhqL6nMz4VWaqHatvKg/UTu6XrA3PpW26uKz7TjmJaEIc cXES0a8lURfljIn+LYkw2loeLN7uZWhFLvsQuzy+gUYmWUT/aWtmbnWBP1Nn 1lgnAQ0xfjEaaGiOIg+NKoGpQ+WGEvYntjT5kdlUVdN63iU0j1uODA1l4E8a AnrInUjTXqys+scuOdlfkTxmZKzKpLZmx5nnIlFrncjY9FM63Hufmm7XgiJf oBZqlpwoqs/Jknkl+sCzg4BVfuwmT8uNg77nwn8kbdPF5d13SklEE+KIi5SI fi2JyihnTPRuSYTR1vJg8fh1aEou+xC7PL6ZSeZcGu4InR5r2HnoeO2cqKGB erPGughoiPKL0UBDaxR5aFRJTB0qN9SxP9J6aCgKtTk1Ui18NzJMDE88kg4N uNkayuSmyPRZamVqhPnR+9OWZCTZCizng4+Khe/+2aOtWFI26Od+xYHhSZnG 8MiMFH1OJrMRr9uD8v44dlR6VbvjR/U22PaK9zxt81vGZ7eyrELapovLvO+U kYgWxBEXLRH9WhLNU7Ax0bUlyYKmlgeLx6MpuexH7PK4BhoCL3b50FNarxJ6 C4tK2NCfNdZBQEOkXyzfUEggA8UeGlUiU4fKDVXsD9/wh9Cii5p8dmTqPR6b d/UxHbRS/5YugTyUiumxaUv7Y4BUdObjNrqb+NELt5VsUk09cfcdyNW0PPHU +5rsPNzjfKhYYEV2qFjkRST3lF5VkKjPL/zkkb0z1mVgxTdYbzAcsQVeynnV vKBCrp7Eea22J+e7DEmbLi73vlNCIhoQRzwfiejWkmgcKcZEv5YkG1paHixe Ci3JJQMil8c7sALDaLhqkLQEjZezY2+Iqt/RoTUu9YCGaL9Yc69iy5wiD40q lalD5YYa9mfjW7KeUY7MIVDVYSO0ex/uVOSBy9re0t31i/R7RS16rR1WL3/Q oDb8v63fm+qZeNB8OdRclbk4S2aorTlnj5Ew1Fo9GRtvx1aCE5d769usrgcC TYdBnkjWZyp843RCZBWnXU/lO4mwIWU1G7Kxe8FAtH08k7vPs5RNF5d938kv EfXFEc9TIrAkaiDNmOjUkmRFQ8uDxUtDQ3LJhNjl5Xixyw9d5QMa1OKts42D 3tz1Jrq0xqUe0BDrFwt2QAKqUOShUSUzdajcKL79icyMdTKhrbo+17xGGxxF H1ztaySIo4M3HqzFqFgkPOv9Q39z68DVwOrWE8/ZxFOo1nzlhyi1Pnf9XEuP cy49XZBtFEMcsX4eWIruUNHF2cSDhi6a/pUz8Lwov3dzafr3ZmNFTduFa9Mh Jqsh8RMW52fvTjg/HGhtbLXYvypoHBLIhCz6vPHI0VNhqGqxfSfXCzJq3tGe Y7S9wiRfPzUP+ZZELUHKpovLvu9kloj64ojnLxFYkmIj3Zjo0ZJkRUPLg8VL X5125JIJscvL8WI3wfb69ActhIFo//3MRoyZ8NgmauKJPq1xiQc0xPrFmi2k KlOKPDSqdKYOlRtFtj/bkcBHdD7k/u7BWiP2fMY9PnTmWB1RWdd60jp63R/e YNdLRUN32IHLhKlj8D9mI/tC8dRG2H99lB2sXNPU2X/psy/uhYtaS0XF1oJe B2k5xY6FTvyEN3otpN31dWBhXaNBpJJEPn2O3htrq5YvZ4ktEM45s085tld9 F02GCtPQN6vib4uUTReXe9/JKRHVxREvUCKwJMVDJmOiN0uSHe0sDxYvHe3I JSOil0c98116zWjqsweySHVzKXCd7GeE2GEd9z0RYRj1ao1LO6Ah2i9GAw1N UeyhUaUzdajcKKb94fIhtR/NACA38uoztfXoSlcFYTx9Q45XWi8DtiMGQ6st oM6Jglq/S7ZUGUwXfSXc4VlGiagsjrhOJKJjZDQmurIkudDK8nSxv3Rl8bKC 56NClHRAQ7RfjAYa2qLYQ6NKZ+pQuVE8+5M22fm7VY12dwRALAro8+ZT9zu1 spRiUY+dndWGA5emNtTYaNTKNNlOEB2jgbUS3+cySURdccT1JBF9Ircx0Ysl yYlGlqef/aUXi5cdPB+VQh8BjRx+cVoDjd1+MVCHog+NKpmpQ+VGsewP27i7 GF0xAVAehfSZPeoYex1BaTuRTolTa4RQbMk7ZDLUD7hDetjpskhETXHE9SYR /aGEMdGDJRGBJpanr/2lB4uXCzwflaKkAxoi/eK0Bhp7/GKgFkUeGlUyU4fK jaLYn9hPE0NHCeMp+8wL3UWkQfmhqD4zF69ovjgRFraUOdl+YH+t3zlX/PPa dmTmU7OxTlc1ZdIlopo44vqUiJ5QzpiUtiURh/rL0+P+Km2LJwI8H5WipAMa Iv1ivjBhv18M1KLIQ6NKZepQuaG8/cl2YHvud/zRuyDhuAVAkSmCPrPnybaP AhkbwWkX1v436PC0BokAJVDamJSq3pYK+t1f0Bz50a+2pCjxgIZUvxioR7GH RpXE1KFyQ2H7Q724P36iUijUT5eknXaFka8FSoSi6XPsecA52GOb1uorrkxQ oetv9du8j6O6NOKQCJCX4hiTUtTbUkHf+wuaIy/61pYkpR7QkOwXAxUp9tAo 7U8dKjeUtD9MyKtWOHGRnulsxNgbUCJAnwEAsgBjAgDQG6Uf0IhL9osBAOqg mP2hD2y99WZ7YDVzQxQq+nzGcaqi2xWW7SsBUAzoMwBAFmBMAAA6RBcBDQBA SaKQ/YmGXP1GQ26qh6fQQQNoHugzAEAWYEwAALoEAQ0AgFooYX82wxMXmwkR JzZDdafzMSrQgLaBPgMAZAHGBACgVxDQAACohQL2h57xLebAZsg8HQkATQF9 BgDIAowJAEC3IKABAFAL2B8AAAAAAABAwcChAACoBewPAAAAAAAAoGDgUAAA 1AL2BwAAAAAAAFAwcCgAAGoB+wMAAAAAAAAoGDgUAAC1eDE13MjZn8bhqRdq rwcAAAAAAABQOlCPnZ3VCGgAANQgGrR3cPan8rD9wY7aCwIAAAAAAACUDC99 g1X8nKZeVzim9oIAAOUDtTF16QBngIhjjjlENAAAAAAAAACi2OVNGA7bg/Am AADFZONbsr6Ct0EjUyuU2isCAAAAAAAAlADUE/fpg5wrUdvjCsGVAAAUl41H jh4+okG0fRSIbKu9JAAAAAAAAIDGiS15h0y8H9EyGthAPAMAUHSisw7zIc4U VTUPfRmOwRYBAAAAAAAAhNiOzHxqNhJcOKOdnEamNwBAFahY+Muh5qq0mMat UBT1bwAAAAAAAID97I5mGA6ZHbNRtdcEAChjqFh4YqStlk8ZM3b+zht6iSgr AAAAAAAAIAW1PndzpK0mLZphvxeB2wAAUBsq8sBlPcLbJgPRMuC4G0aqBgAA AAAAACC+HZn/+pP+lpS/UPPayBePo4hmAAA0ArU+773ca6pMRTVMb75/9XZw bUvtlQEAAAAAAABUYWst6LWf76pLxTKqmgY+uxtGG1AAgOagok/8LtKcFtYw NI7NYvgJAAAAAAAAZcfOuu+92pRjUGkyky7/EyRmAAC0DBVdnL19zWbtbqoh iCP2IAIaAAAAAAAAlB3bK563K+gCk8O9w/abCGUAAAAAAAAAAACgJIhFlsOL a+itBwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKCU+X90R8BI "], {{0, 117}, { 1435, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{513.466666666664, Automatic}, ImageSizeRaw->{1435, 117}, PlotRange->{{0, 1435}, {0, 117}}]], "Input",ExpressionUUID-> "b7f838c8-14ab-478e-bc61-3b0e40596ae4"], "\nand ", Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnV9MG3e2x+fe+3If5uH6kQckrpAlHiJFEUK6IFTZD6BEljBqhSzSyDJR cm3UzUKaG5OuilttINXW1c0abWO6W2tbi26du7GyG3c3The3ibPC3cRtHAFK nQaydoKTQIAgB5kwMLmevx7bM57f2B7PQH4fqdVuwWZgxud3fuf3Pd/zn4cH Xv/vf0UQ5MS/Z//1et+Q/u23+9554z+y/6fn5yf6rT8/euTAz//nqPXo2/91 +N+y//Fg9p/Zf0EQ4n+/hEAgEAgEAoFAIBAIBAKBQCAQCAQCgUAgEAgEAoFA IBAIBAKBQCAQCAQCgUAgEAgEUgW2M8nrX/hvp5W+jrLYSH7zf4GZp5jS1wGB QCAS2VyJeSytVs/MM1zpSykLHEt97ejodkw+gBEYAoHsHLbWbp7tqDs0Pl0Q e9eizg4EqWs2HDRz6dE1Igja7Z3bFn7L7bve7ga02XAo97JDPbo97e7pLZAr wjNLs1d9594fMBE/i7yGI3bnRCi+zETX9Tnfzw7kvRu+Oefr07bY/PMwAkMg kJ0AFbXaBgOJoqiFY+mnqVQqOXPB3qJBSFD9O1+Gp+dTqUermZJ58nZm9WH8 6piJfB2qG3QHrs/Mp1YzJUI288Lkdc9AB9potI//mXgNSTJ+69oFp6WlxeT8 NoVhK1Mf6tFme2gp/7VbxH/XHHjv2qOdmcNDIJBXCHztO2dHQ9Pxy09KBaxn kZF2Kvw2OqMSckv8J6+xQWvxxFY2wV6wkbp21qRt0A3+gfclePq2x9JuOGk3 a1EEtflTxSvG8k2nEdUO+BMZ8MuEQCCQmrMWc3Wjmn7/QunwuJn09VHhFzH7 U6BvjmdmPulqdYQWAQM2WQNBNS1Dl1OY4GKAL08ONaHElXR64nypNL42Ndqq 0fRO3NuEKTAEAlEn+GbcY0Q1rc4b62LfuREZbZCa/mZuu7sMjvAiYBCk42rr ryJrpcvDVEUa3eu8ucH/DZsL/n4N0twfSML4C4FA1Aj+JDTUhqCHfYkX4t87 7zXS6a+VZ8vPw/o975E2x9UV0Aj4LOrcjyB1nZ47YtXhreXgCQ3SOhxeFv7h UyN7UKRjfBYmwBAIRH1sz3m7UURjC5Ss+jI8Dw/XU+F3vyv2XOy78c17E71t p8MrQDIHAipgIjpnVFx3jEWdjZoTweUSb56OuQwI0j4cfgp6ARAIBFIjns+6 X0eQPbbAQ6AEkThEo+JvkzWwIPLNm3FvrxG87JBlO+7pJN68fSTyTPRSnoff qzd650u9O/4iNtaGAC8uEAgEUjO2pt3tGn7xAD9LIXszJT3b54qVTGrX73kP 7xWRUhRCJLTEm2taR6fWRF64tXLNeXTiR5HE+sUtV5sGEUmSIRAIpNbQ2aaA eICPTNzTQ0t/rYFFwW/DsYTf1nYq+ERa6wOe8ltQ6t0PDF+6syqsfACGWi+K tcEQCASiIFjKb8tGu/rhsGgZl2F7LfROHRV/292zQhklNu+3GY8HFyRHTzzh 72uiD/cQtFFvHfnUH4rGH4g0d5SAEsuVEEhAIBBI7aHaKBpMvvvSy7OI8I4+ k/APtkksOzDgmR9/b9IgRdQ1d73lOHc+FEumpaXEjFjO5IP6MwgEohbw+z5T NjKV1G4VsxwcoMOj0T3LoxTGU5f6WwcraDfbSs/6BnX1xSGYSom1pv8NJZ6D h1JaLNcwGtmA8VcULJPZ0VYZ2xuZF/A2Q3YA9EEXkMorB3VaR7B3IPi48Kv4 QvC4sXK7GzyzGI8EPE67WaflicEt7wZTwLWElN8sQaj86oJn7l8ZPWh0fS/W faNi8IT/sMH2+Q8rVTg1gEDkhBbx9vmSgFYMFI+DA3upgkBRcwT2JHiqzeZP VPPhx9KpeDT0Z6/L3tNcx+bATUOTy4A/ZCMyQlQf3vTOw+qvIKSNRrPWMhEv u8quCkjHUX2T3vF1iY71nQ/tgpVKPZVYi4OohjLTwucx1366IGsPrXG+gD+5 fLytkrKDGNjjm+NH6Gy47p3QGphco7wk/1WCjL370K6PY+ldIM/LRuDLQy2N uzAC4+up2197C7eEWp35lMt3Lb4qKYmCKE2Z4XdrMXCMUoflKdaI5uX9vd64 vA8B1SJNANJ2RwLDb2mwB5OOA2pwh8PXfvD0G3Sms2F+d6ZsXL1x3n1uIrIg 9rxupWMfd6H7LJ7baWUDMLaWiP7F4xyykubYSKPePOQ6H0lI32FsZ5LX3NbX tPp+55d/i8Yf0patWHpx/taVzx09WhRpNA5N3Fys+YpDtc0ijTrTwPvndv4q gGeW78/8Pej3up2n7VYLYVBuaEYLq59aXQ9lYW6zj3zodE9cCn03e39Z2m0t tyi6FXPto66i/r0wfQi2tRI+3Va2vRieCo1+EEiKm07QzW4w/FaN9I8eswbR nQqllM4UXyR8h8nnvMcT510InoaH2wsXfUGU/r3w58nrv7cbmrJR0e65EiM/ m3jmyezkmFnb3Oe7KyVIbaVnPrM0dQ56haIrjq388LmtHUXqWmwTM7XewmTX gHsR7wkdefPQln73lOj6qDqIW3PtvMtuKg614KDNJrvr/LXcMIiSrIXsdeWE XyZu5wqq+MpVR9sR771yD22yV9IA2phGR1PwRjb6BUIf6t3BVnr2j8M9LZqW I2NTj4EDDuXtKaWQLiPMmcJeZ5RXo8L4jYDK1Imedy2iSFaPPbzmfFNLTCX4 ZbBQpbO1HDxZB146o2LvnkNjNx6LfEo37/r69hHSoD7fXO09piiHbSoqaPrK DwU1B888jPqdlpa64nBaLk0Gu+ebebG2XTouAaeRhS9EaNEavhh2GCsoO+Ab UedeUAdLyugse4f9oE0dr4DygRD7aZllu0Q7TMGrCI/9ekR7PJBSwYaRia4F BwosW7NuMvfl09vwQxpNo6i2ymfBYlDFHOJTeDKwwHPaS356QJ9G8h7p+GbQ 8H3zk8vHCRPshq6xaO2rLviTgI1R7O8Ml5XsDiU8biUDL5m4ei+FIrF4gjjQ 3LzLmNsgHI0Bll56lEo9nJ/9PhIK+Dxnh491C2bLaLvN849StSDaP6eMXXnS b6bib73R++Ozm2c7jZ/MlH9iTjYyA+YD+KPgYHaJbxsKgd5ePOkzIdw6ye6D U43P3vZeXwLoFyU99pEGo2dWBcGXja5ai5/38jfmvW+Sv58UBQt9UtBaTgNm mazf8/aRQUjoEc3MeS1o21gMSJ68HvccRFuHL07/c0V8Phfz/cRDcNATr3n+ SX82qacQyMBWQfD03a9G3iCmVeqOfxqKF/ob5DJMpKS9GI6lH8yEL4wNduW+ PUd9yfPf5fBwK4I0mv1Jideejjp11A9oOHFmtPOQe6aCsiqe8FuyGzWDKyb6 JtSRirR8hv5Dinij7WjwFzPjnVT81R4FnFKNL/iJMNH0bkgVZkRi0ZV+SCTk 9tTLyFECCNIixfW0Aui/ahZel2ki3fqNWdsGuhzQ/qtEONMevpAASU8Svl7y FXWDwZoXlDiOBEhjr0+9HzhK6kP8WfWnJ3k7CHLNZQhYgrq5Gv/bOWt7US5c rx+9LuB2Tj3zot5lxWApv5V5/4Yu9+2Kimt0CVo0qFKSznpUP3oNdG7RS3ZA khRfi53I5urcd8Gvrs4uAWaG1DFWXYd7Wg2pb67wKxRd6YdE+n3EHwZse5Aa JfmsIRVXEr+dWX2cjN8KX/Y6bZ3aliO/Dv4EVhkgi3K5zeyxwCLAx3T7jqez TrH8c+3acBMqcRdWa9jYiyCdoxGBNSp3vIVI6IzAnsa+PKkrDMF6IdNdescn 2Q8hN3UI7aqk7PCSVTKg+qPH3tinH7owwz+Oc2PxpsfWUt/Y9asQeL8bAZXh gxcMXwnoJE09O0SRYzU2EJVxH/H1yJk9xA7y/TDoaVe55NywudQ1Gw6arfYR l8f/ze0UUA2Bgj7moLPf/ktgGg52Hq4i+edqZETHXLJqni4u3CNCYQlNXu1B Wt1yIzV5Wp8fgVGjJ857GErtbiScwzK/BFVQRbtdMd5zEnDWZ91GRNvvm1vH 03cuOl5vbOwadH1xORydnX9IjZaPTvpcg12NaLv1XGheqqiGNjRW5ZOgGNQQ EBWdj4gdqzFZZXn3cf2Gs5Wos/TxV5WrB5OiV8tgJJunTQzub0Rbeoa/iC4C Zh1sGQfRDASlmLlUBWaxI/8K3d67Mi94UmGKUQQlTgS4C58kP14Ktv7PIlRZ pVYria47WTZ+cLXvM47dEFNXiLIQGBzklCuJTTTh9WB900C1GNNy7tDt1HoZ P4ryZ1PtPkgZ6Ioi8IgT2QEu/Er+IFDQyw3a7Z2TNRywO1YJc8CrDqcwqIjN VK5eXfb9kg8q3KGNhiFPqeadnKs5IizFKcXmrMfYwAm/mnb3NF/iSI3jQfeM TO0YoZ4ENua8h1AVxRk1sL0Wfp+wVJYw4kRumMKv0CEEczqQM23evuc/4QI+ TWNTMpm134sBKxl4wMeAywD3XEYRsSW92CE1+INL5vl8+C/BSHxJpAREVSzp 6Asw9rcY7ElggJsACw6noBzO607uwnE8m9Pujjqk9aNoOYnzboUZF6UeKQg7 v5U/aWSDZ25kCXG+3w6o3SKhA3h5HyVgGDNA8fCLLd29uyRPZOSGX35LWJmh ByxWELuUJq+GX+6gnDzthHBqkX28ox+1qlsoUhZby6F3m2pQ8dtZ0LFOaDek AEzhlz/80r0heaWJFwnf0XbXLSlVYCbBlnfRYWS3JX8Knr4bGO7ucH4nTw98 zhFLsUZ7asCiSusPALA1/LynTiIF57AllmQ8GehvVo0EtEqQ5ZeKhRlqBXsS uzhm72lByZFMo74omNcKKyGQXu3P/ejl+LXzrqEjZHEebdT1Dox8HgLsc+eB U2cr2oKRGqH9B81dddytdPbOdvdJbCtgfopmICBx/qAk8JXro/p6wa4HfD0V Pe/o0pmc30p2Y8MzS4QF9tnhgV5dI1Xj0PVY3ynyOmOH4SoXfvPqDyB6fnWR G+iDVFI/51YwSu+IyMmY2oaOHW21ncdmKnBci5oq6gdRK9mg5LUZjI4vp4gG yfs33Ic0SL3+vW/5xYV5sLFOqskzxeZKzDdkaEJ42GcZ/058CVj/3nXAkSez YY/VyODYbPNEEmsY0UyUjF357YCh13HxTnr9trurAUFeGw49wrDHN8b6OgWl 7EKwTk0VrDtAbKXnAsP6elR34vMwVWPM/i5LpH7n42GzrtXi9MekDqBdm//G 8y6x1Gr1tg+9l/8+Q4mCUg/nZ8J+11v61mNe9vA6L+kq7y5XDrf+oGmTtk9R nDzZQwXqkVxvGoGIuBdbDDlaUKPzpgrMVyqFWk2k+krtEPBU6FSXaTzGSvdp ESCiG4msir2Y2YOXczjEI2jMR8u9Kj42F/xv7S2w96E3epr2c9d/CmeTamsP YWZLjvZz/ylKy11wbGU6MHaK8Llt7LSNXS3DyJf5K9Wi6oKn/xnxj5Eukyip +33Taj/jnvhrJL4ocStG+Uy2E3ucrvf9M0/5bhoZ8I0/88bJTIO7cQbs1JAD bv0BtMNaJXCrN5XUrvPCr7h8An824zmqlTTHR5Xg6di4aR9YNrjjwJ4Eh/Za zue1BzJ6J/GOMMIqFAVYi4vJi71oc/ex4Q+cBB/kuY6U1oGv33C2HcrflbPF kHIPOCT8BtTQE+EzaNWxkZr62Ew4KdXrhwNzpRTvRDO+sZvQ9ucK6UiJ454a wNVu7aj6Q972ocMZLbuvgVt8qDd6fxL/wJERuEmoD3onQFYL23bhpAMK3gjG dCCKy00ZZZTE1l12/HRdi/Xj4O1UfgqHY6v3pnzvdZEFSWFtbTb17a8v9Klj +ynkV8Gx3bjSXCOUgl3vNC1Dl8UfZsJc6OBIZDHlt+UWQ0UXGk4FdUfVH7jb B+n9aDnoQcYUwBIUfG3uq9Fu+5Wa98tUhfXZcauIz1uF4A+Cpw7wuRtVG7Sl 99NY/j0jxIT1ha1quTRDdIPDpEYSN+AZsvSKHhgO3BWuLbDzqfc7o894vk60 nhkKv1RpP4UkFgJWsmoN7hStGLm9BvAEqO210C9aXZev5M7dlBZ9setdlj1n IjtD/Jnns1FRWygrp0R2XPlFxSgYfvF5X6+ucJOee8iFrBpzr2eOnyR53JFi KvSAY/KB+Iif6d+ZNLwtPIQIcG+xRXNxP4WMsLU4pQ6kAGH3GhJ9I1N+c+cb PWzHmeyHjKJw6w8gBxNqgHvNYBUDAThVILV4ukIqgeg1qC/YDXGOmMX9EFhB voTwiy9PDjXtsfjugZUG0jNuE1q8Zdu+6+3uHA4/LXjvCox0yoANv+XKsTJz Ic+Y0/nhiN1mNh/q0e19TYZTPI7OWdPqvCFBiZRnE6OGJJ+bSe6Qvto8HU4l LXvPZ92vMzei378Ao+9Oh9DDFFUecgJLgI0SG37B4w9RsK0T8mvigwzXbfl5 F9nXw+N/y2Ya5SrbpVHGr59Pesbvcjqd71l1VHiUY9Ug1y/Q9TSf/PCLWvzK Tu/j+DqS7Ij6A7fwW0nFgHZ5IlLoXaTmfaXB0w/uJPOLr7m7DOJrIT39I5IB 3WDwkZSncDUyos8rJhBd7e18vYdMMbZGZ2HlJP98lDV3A4ycW3sZPlF5vVoK N7FSsRftGP3Dx4eYaoj66w9sdQ6p7LiQkCfR4vha+fxDag7H3A+omUt6+N2+ /9WHvhlpSQv5DOeO0sjyCL/XLrY4NX588EP/LNB4joqpVvhl2sqqv2pwdqzS C4/4vNeYy32VdFil815yyCk7fQMpzzqspnCb9SpYLNikCDWMTi2pPuOHlEfO 2hrswa64+AnIcnCgnik8EoKo19ShO6pS+GV8dao/P4XbqiC58Mgd9CNlEG21 oWMv28BFnBczNZFKdFw1gPv3L7tUgq/GxnrIBUeZgaeQGpEb7ALYs1Cr8EuI Mbqo8dnEbrrukHdODTLy6oRfJskU1ZlIJq9jYq8zKs1qYC3q7GBeLGEQbXVh 6r37OA2nLxK+w0z+K39zTQVwhMplHxRurd0820Hq35sGAwu7svUAQsDJdkBX arabUm4nluz2fD95LEX4LdepZaZGVcIvawhQdSdbeihhmft0buamkMMqE3sL h0vukPoDV3ImoF0XAc/EJyxElyKqtXw2I3UuT+5CaiGwgVREbqg3+ErNxp/2 kUgZTxc42TTbQIQ4Iia0qibhqVj5QMAkmZKzU1G4FgENJt99Ke/OtbhRyGEV m/fbmsnIMxEvMLbIqz+o1Vec2yRSjuaBtloiOkNtE+XH3pe1EdjsWJTseuNc xZOAjU52wM8IqnX2JAqRyDU6b6xFP2pVkdyoGrUX5kMqQxbH6EAI9lOlG2A4 Ay4VSX2xB5OOA0Taxz+FnFt/UOnomcpapDdXYh4y723qGp2skt2BjAKbHYwq wi9nlEnhSr2VTv6UFFh8GWWo3OGXiPONzmB4pEMdh24U1eh6o00zql/4ffky 6Tezj5W0IUGctbjE+EjZYGIvoj3KGdqYf4UcQZ16BrxyqGBAEjtcvvGNka9K dOVLRT6BDaQycru5opUafxiwdQrt99nDHZmHkZHh9237QN3r7tkqqwMqgEkv gc7ftzOp77/yjA6YdI2E++WA039rEdtmdKFyjDDj2KRLuz3MiI3s09A7cU+4 QQZf+8HTb9CZzoZ5ElTi61jqxnn3uYlSMyiLYGMvohsKJoUNxbOPJTMAGdDx HltLRP/icZK2ncTfRG8ecp2PJGQZnsCpnEuRW2+uxv/qNO0lSi4mZ3Cu4rHD XOQT2EAqg3OWURTfCNGX8OPNzJ+S+QSEqXKoatAMsOMZnkmE3f0taL1u8LMw 4dC7nVmavjTc3eG4ePnXXcQ7VL/w+zLv6EdC+MWxxHkLFTm0/b65EocAbAVA aO14Gh5ul3bXcrFX1OqZO3pSrP6AP09e/73d0IQ0Gu2eK7H7y9mQi2eezE6O mWUx8ebo5wFrI3hmaXbSYzeS68LrDv/0SrVFDvIJbCCVwamkFX5StpaDJxtK bO6YJVXmkWdU+FXZ9EDG77f0/AJWOmXx3M6LJ9g9n4WuzcqzeHGOz8D1sVgi MEiZyjbb/PMlYzbjtC+0djAOXaDpVi72AomsOBWSkvUH7OE155taooz8y2Di ef53EY93XfXFw8y6k4W/Pyh3cenk9PXAJ+TkkewltlvP/S1/0lO1kE9gA6kQ dpda5ChItPceKKn5ZF5b/174uXyhkdRQKdp4VQwz7aKkDWNm1kvEXt54wir9 ZEtIyOmE5J0F9CdPx71W0iCmUOvFAxNdhdYOpjAFds6ei73glpic6orQs8G+ bdPJwALPeRN5eCGtMC4KZ13I9zjCM6uPUqnU/Gz0H+HLX7hH7UcNzGCBbFo+ /hUzikUO5BPYQCqEPaMp0I/hm3FPd+dYrNRDUZvjVOKQS7JlgbyAzHpbi7m6 SYNzqy9RnHKw4Ve+6e3UbO6iOMAP6wlcDzJcgImuQmuHlAeDGotDp4v8cZIP bl8e785o/Z6XOqATahvJzHktaBW9c7HleMhDp7JA1DX3/CIbdxPpGo0GULFM +pWFHWKSnwYQu+PSqS+BtCSnTBYC1n0Ke30Xwk46FrJhJBYvI/k5rBsM8s07 ZBISWTcO+NLUqIFcAg6NTwtbYWBPZy78goy9gEonsejKGi2KnrNzY6/U0ZDr UyOMHXHx6pxTR/CY45EF4fBvzNq2akk7yHm17UCBF23uOjb6qf/bWHJN5rDL IKPABlIh22vh98kciSOgwp9Njx/uBBlvR38E5HQ4J6y35O7skAgTXoRtGNkC oEB6zCQkFYy+BSPz44VBsm9V2zcWLj7o31yN/+2clYwbEpROTOFXKLoybmli hd/1OV8/44crWm0uhqNPRgta0dmTR251aDuz+jgZvxW+7HXaOrUtR34d/KlK yi6iH5M39qLNhkNmi9V+2un2+oPXY/GHqxn58ojaC2wgFUOXyLQm91QilUrG /+5zmPSgvTZMCU4uWQJ1jqyyJ4cOL8Kngaxbo8DJDp7yW8idfiUTEEDBHkcn 3jFQU5K73nKc817wZ/mj133mJH3o02ZxXowtAq+fIsdqwL737KjWMv1kclsM osAyOpWTauUNuGSpazYcNFvtIy6P/5vbKRnDoAIoJLCBVIPsJ9T3gVVPzmTv sY9dvAU83o6R2ch1NEYq2NXlbSX+KxNxhUp++NPjGhR+C8Cx1XjY73HarT06 Kt/U6nr6Bhy/mbj83ZzE03axihM78FT0kUjHvxxoQSvp7dpIhT4yNVNLHWeN Zpe/htHIKxBzlBPYQJSGrj/IIwyjNumqUvwye15hvRPbji00hJTZNcurGJEJ 4MKvgnct5TdTQUd0WvcuQFmBDURhaFtvOcQJVEuIuhZuerlpLxo2x8KGX4H8 kNFLcwq/K1H3GZ+qCiyCMIXffa5YqcIv5zhg+57/hKumYxrowya5+zHVgOIC G4jC0KfMkgbpAkHJxWtSIAWFUXPxnqfT4BuR0Qbimed342E0w5zfKxvS9w0C Nc8qDjvxnD+xZHu+cma8xBraXtvZ6MwCJx5+saW7d5d2wt+dF3UIbCAK8yzq 3C95lq44lChOqmGXnBCtKE3iNox0Ozaf7IG2UkQ4QmsiZO1To3UMDzkXd77w yxmszJYmXiR8R9tr7ZXEOFeU7MfE03cDw90dzu9ktauWE9UIbCCKgqcu9WvR Kk/BpnIYFZ27kUOWic6sT2ZEvFqoLWHheoSn7/iHjB3m3te4uTExQalHqYkS EuFYSRR57ZIHQPsPmrvI3S4jI9+c9XT3VXtbJA6+cn1UXy+4I8PXU9Hzji6d yfltlRwdlUBVAhuIklBNRtUchE35hCg+4jwHnfrqHWFxQfTLzJ0vbe0oemD4 0p1VDMfSqdnQ7wb0hsEvYyubD4PHs1G8yTLxYwZfm7v4Tkefb07YW0xFsMdq 5MFis80TSaxhL7O/XTJ25bcDhl7HxTvp9dvurgYEeW049AjDHt8Y6+sUbWGW BdqxHNWd+DwcXyJkZtnrXErGo5O+j4fNulaL0x/bEeUeQdQnsIEoR4b83PEf AZQBVfgtaapQU7ZWwqdbEE2L4ypoMMGezgTGHce6m9G6ZsORobGLbF8/nklc 95451tWMoi09w3+crWScQS2h0y1N+7nrP4XPu4YoGRspJ3b/ifntcGxlOjB2 ypz9UmOnbeyqguklnv5nxD9GukySsmfDm1b7GffEXyOEMlapi6oWu1tgA5EK vnlvoleDavsvVSNfpWbJAdrFyA5d1Ww5XdMTfHXB9lOoesblK8PuFthAymBj IXCyqZwG0iLw+z5TQ/kTuqsLvnzTaUTRnrHYqgquRinYfgpbdV3CIGWxqwU2 kPKgIpXW6o1XlrUSboBlT+iuLthiyNGCtA4GEq/0g6uGfgoIl90rsIGUD2ki odGfnkxVYMOzdcfzxkDJgQu1YSs985lF21zYzvkKUtxPAVGY3SqwgVQGFYFB rbNVC46lvnbo22DslWCkA6klu1JgA6kc7GnMN9znuql4/lo+eOLi2wOu0P2d f0peOaziF04qVxm7T2ADgUDyYCY7w0nlEAgEUlOwxanx44Mf+meFp2ZAIBAI BAKBQCAQCAQCgUAgEAgEAoFAIBAIBAKBQCAQCAQCgUAgEIhC/D9ErCTx "], {{0, 90}, { 469, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{206.33333333333263`, Automatic}, ImageSizeRaw->{469, 90}, PlotRange->{{0, 469}, {0, 90}}]], "Input",ExpressionUUID-> "7a41a042-7484-4b97-aaaf-469fdf851505"] }], "Subsection", CellChangeTimes->{{3.742225210268482*^9, 3.7422252341165237`*^9}, { 3.742225399065777*^9, 3.742225438530488*^9}, {3.742225588522272*^9, 3.7422256174212418`*^9}, {3.7422257454653788`*^9, 3.742225760869822*^9}, { 3.742225802957129*^9, 3.742225810430195*^9}, {3.7422259174491367`*^9, 3.7422260616027184`*^9}, {3.742226120209066*^9, 3.742226127806513*^9}, { 3.742236515916774*^9, 3.742236703121776*^9}, {3.742236755083893*^9, 3.742236801878098*^9}, {3.742317019305887*^9, 3.742317046559519*^9}, { 3.760966254219942*^9, 3.7609662558084636`*^9}, 3.7609785052617064`*^9, { 3.7609805881485434`*^9, 3.7609805881485434`*^9}, {3.7609806209044647`*^9, 3.7609806501137524`*^9}, {3.760981328856741*^9, 3.760981328856741*^9}, { 3.7609882016701207`*^9, 3.7609882053971753`*^9}, {3.765632167907643*^9, 3.765632168266162*^9}, {3.7657374672444735`*^9, 3.7657374694147663`*^9}, { 3.7657375053926477`*^9, 3.765737523615855*^9}, {3.765737609823874*^9, 3.765737627211568*^9}, {3.765737728340997*^9, 3.7657377340998263`*^9}, { 3.766162898242707*^9, 3.7661629506828938`*^9}},ExpressionUUID->"68c7e39c-fd44-4942-9218-\ 54c779e0448b"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"FHoloTerms", "[", "mu_", "]"}], "[", RowBox[{"aa_", ",", "bb_", ",", "cc_", ",", "dd_"}], "]"}], ":=", " ", RowBox[{ RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"\[Gamma]5", "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.7609811744259396`*^9, 3.760981232403672*^9}, { 3.760984738157158*^9, 3.7609848090140343`*^9}, {3.765632198573003*^9, 3.7656322575647287`*^9}, 3.7657377437354794`*^9}, CellLabel->"In[58]:=",ExpressionUUID->"a0c1de7d-ed47-46b7-ad23-295e10996f60"], Cell[BoxData[ RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"FHolo", "[", "Rep", "]"}], "[", "mu", "]"}], " ", "=", " ", RowBox[{"Table", "[", " ", RowBox[{ RowBox[{ RowBox[{"FHoloTerms", "[", "mu", "]"}], "[", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "]"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"cc", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}], " "}]], "Input", CellChangeTimes->{{3.7609787928407516`*^9, 3.7609788131937017`*^9}, { 3.760978899617264*^9, 3.760978907521762*^9}, {3.760980658745535*^9, 3.7609806685576324`*^9}, {3.7609809130063624`*^9, 3.7609809156836233`*^9}, {3.760981076518693*^9, 3.7609811639602423`*^9}, { 3.76098122328341*^9, 3.760981244613959*^9}, {3.760981280015232*^9, 3.7609812830250235`*^9}, 3.7609848401986504`*^9}, CellLabel->"In[59]:=",ExpressionUUID->"40bcebc9-83f7-487b-9a0f-2943e2cd1757"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"DEqm", "[", "Rep", "]"}], " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"dd", ",", "ee"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"\[Lambda]", "[", "ee", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"ee", ",", "1", ",", "4"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.765737636166403*^9, 3.7657376980199337`*^9}, 3.7657378167809906`*^9}, CellLabel->"In[60]:=",ExpressionUUID->"3659674d-da94-46b1-90fc-ffa5f5ccf107"], Cell[BoxData[ RowBox[{ RowBox[{"ZHoloTerms", "[", RowBox[{"aa_", ",", "bb_", ",", "cc_"}], "]"}], ":=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"I", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["3", "2"], RowBox[{"Cmetric", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"KroneckerDelta", "[", RowBox[{"cc", ",", "dd"}], "]"}]}], "+", RowBox[{ FractionBox["3", "2"], " ", RowBox[{"\[Gamma]5down", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"\[Gamma]5", "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}]}], " ", "-", RowBox[{ FractionBox["1", "2"], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "kp", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"(", RowBox[{"\[Gamma]5\[Gamma]stdown", "[", "kp", "]"}], ")"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"kp", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], ")"}], RowBox[{ RowBox[{"DEqm", "[", "Rep", "]"}], "[", RowBox[{"[", "dd", "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.765737747891382*^9, 3.765737800596907*^9}, { 3.7657378519711494`*^9, 3.765737885461459*^9}}, CellLabel->"In[61]:=",ExpressionUUID->"43481913-bb56-450e-a3e7-98b3fab8e2e3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"ZHolo", "[", "Rep", "]"}], "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"ZHoloTerms", "[", RowBox[{"aa", ",", "bb", ",", "cc"}], "]"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"cc", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.7657378241673803`*^9, 3.7657378399079227`*^9}, 3.7657378948051977`*^9}, CellLabel->"In[62]:=",ExpressionUUID->"c6684a15-3f19-4a6a-8619-b7fa8cd982dd"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"HoloraumyDD", "[", RowBox[{ RowBox[{"Da", "[", "aa", "]"}], ",", RowBox[{"Da", "[", "bb", "]"}]}], "]"}], "[", RowBox[{ RowBox[{"\[Lambda]", "[", "cc", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"cc", ",", "1", ",", "4"}], "}"}]}], "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"-", "2"}], "I", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"FHolo", "[", "Rep", "]"}], "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb", ",", "cc", ",", "dd"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"\[Lambda]", "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"cc", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "-", RowBox[{"ZHolo", "[", "Rep", "]"}]}]}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.7422252370370483`*^9, 3.7422252653879547`*^9}, { 3.742225324248343*^9, 3.7422253502011967`*^9}, {3.7422257494222517`*^9, 3.742225750065353*^9}, {3.742225813864871*^9, 3.7422258782322683`*^9}, { 3.7422361007628717`*^9, 3.742236257611809*^9}, {3.742236355875434*^9, 3.742236390026614*^9}, {3.7422371009663353`*^9, 3.742237126163786*^9}, { 3.7423170915863733`*^9, 3.742317127728424*^9}, {3.760984885798668*^9, 3.760985028488144*^9}, {3.7657379125170913`*^9, 3.7657379146681433`*^9}}, CellLabel->"In[63]:=",ExpressionUUID->"8521d9af-e112-4483-873b-cd68f91145bd"], Cell[BoxData["True"], "Output", CellChangeTimes->{ 3.742448070570057*^9, 3.760723291727981*^9, {3.7607244350283575`*^9, 3.7607244500644913`*^9}, 3.7607284000790915`*^9, 3.760730117210235*^9, 3.7607304099536147`*^9, {3.760985021396803*^9, 3.760985030282254*^9}, 3.760988612132032*^9, {3.765632267298469*^9, 3.7656322901878495`*^9}, 3.76573791612961*^9, 3.7661627487432537`*^9}, CellLabel->"Out[63]=",ExpressionUUID->"4bd070d5-8116-4301-9b88-6600a131e300"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Diagonal Lagrangian\n\[ScriptCapitalL] = ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], " ", SubscriptBox["F", "\[Mu]\[Nu]"], SuperscriptBox["F", "\[Mu]\[Nu]"]}], "+", " ", RowBox[{"i", " ", FractionBox["1", "2"], " ", SuperscriptBox[ RowBox[{ SubscriptBox["\[Lambda]", "a"], "(", SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], RowBox[{ SubscriptBox["\[PartialD]", "\[Mu]"], SubscriptBox["\[Lambda]", "b"], " "}]}]}], TraditionalForm]], "None", ExpressionUUID->"16eff982-a8c7-4537-b6a2-0fbf7e9c55c9"], "\n", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["D", "c"], "\[ScriptCapitalL]"}], " ", "=", " ", "0", " "}], TraditionalForm]], "None",ExpressionUUID-> "605cc357-a17e-4002-8ad5-b1968447a64a"], " = ", Cell[BoxData[ FormBox[ RowBox[{" ", RowBox[{ SubscriptBox["\[PartialD]", "\[Mu]"], RowBox[{ SuperscriptBox["F", "\[Mu]\[Nu]"], "(", RowBox[{ SubscriptBox["D", "c"], SubscriptBox["A", "\[Nu]"]}], ")"}], " "}]}], TraditionalForm]], ExpressionUUID->"a849a8c5-3ce1-4129-a88a-dea63ebba65b"], " -", Cell[BoxData[ RowBox[{" ", RowBox[{"i", " ", SubscriptBox["\[Lambda]", "a"], SuperscriptBox[ RowBox[{"(", SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], RowBox[{ SubscriptBox["\[PartialD]", "\[Mu]"], RowBox[{"(", RowBox[{ SubscriptBox["D", "c"], SubscriptBox["\[Lambda]", "b"]}], ")"}], " "}]}]}]],ExpressionUUID-> "2c4ef662-af04-4a2b-ae0c-eaac04289de4"] }], "Section", CellChangeTimes->{{3.454246606703125*^9, 3.454246625015625*^9}, { 3.454251500078125*^9, 3.454251667421875*^9}, {3.454251702390625*^9, 3.45425215521875*^9}, {3.454263376*^9, 3.454263397265625*^9}, { 3.45428740525*^9, 3.45428742084375*^9}, {3.454287467203125*^9, 3.45428773065625*^9}, {3.45428910365625*^9, 3.4542891065625*^9}, { 3.454456307296875*^9, 3.454456465078125*^9}, {3.50678340159289*^9, 3.506783565701276*^9}, {3.536932228013555*^9, 3.536932298641595*^9}, { 3.5369323480434203`*^9, 3.5369324286720324`*^9}, {3.536932497279956*^9, 3.536932514471939*^9}, {3.5369351427460437`*^9, 3.536935372533187*^9}, { 3.536935409387295*^9, 3.536935461220259*^9}, {3.538947494798768*^9, 3.5389475339740086`*^9}, {3.5390845549031973`*^9, 3.539084570345081*^9}, { 3.5485026466884108`*^9, 3.548502738856683*^9}, {3.5485028490319843`*^9, 3.548502943205371*^9}, {3.5485036606274047`*^9, 3.548503666782757*^9}, { 3.5486501786244926`*^9, 3.548650189815133*^9}, {3.5508445420355253`*^9, 3.550844611554328*^9}, {3.550844729617717*^9, 3.5508447461547728`*^9}, { 3.550844788089023*^9, 3.550844815455274*^9}, {3.550844863183857*^9, 3.550844891662616*^9}, {3.5516982689282255`*^9, 3.5516983432544765`*^9}, { 3.5516983816606736`*^9, 3.5516983829327464`*^9}, {3.5516984249471493`*^9, 3.5516984714848113`*^9}, {3.5516985702944627`*^9, 3.551698875578924*^9}, { 3.551698927129873*^9, 3.551698991279542*^9}, {3.5516991515377083`*^9, 3.551699274239726*^9}, 3.5516993143020177`*^9, {3.5516994405662394`*^9, 3.55169944075025*^9}, {3.551700337449538*^9, 3.551700363040002*^9}, { 3.551700495619585*^9, 3.5517008290356555`*^9}, {3.55170087195311*^9, 3.551700878835504*^9}, {3.5517010729696074`*^9, 3.5517011056154747`*^9}, { 3.5517011510140715`*^9, 3.551701165619907*^9}, {3.5517104326207523`*^9, 3.55171051684857*^9}, {3.551710571526697*^9, 3.551710652315318*^9}, { 3.5517221642034326`*^9, 3.5517221692237196`*^9}, {3.5517252564955*^9, 3.551725281353922*^9}, {3.5595043648363504`*^9, 3.5595049988286123`*^9}, { 3.5595051063877645`*^9, 3.55950519145463*^9}, {3.5595053822635436`*^9, 3.559505392151109*^9}, {3.5595056850588627`*^9, 3.559505689373109*^9}, { 3.559506428283373*^9, 3.5595064353747783`*^9}, {3.560174478268302*^9, 3.560174523941914*^9}, {3.7095764206864767`*^9, 3.7095766842485523`*^9}, { 3.7113981997534494`*^9, 3.7113982328343415`*^9}, {3.711717278444582*^9, 3.711717285508986*^9}, {3.7117173550729647`*^9, 3.7117174209787345`*^9}, { 3.711717954447247*^9, 3.7117179796996913`*^9}, {3.7118440517631326`*^9, 3.71184405241617*^9}, {3.7118596968219786`*^9, 3.711859766022937*^9}, { 3.7120958344789104`*^9, 3.7120959332355595`*^9}, {3.7120960142231913`*^9, 3.7120960142241917`*^9}, {3.738588501002038*^9, 3.7385886307354584`*^9}, { 3.73858898988*^9, 3.7385890011916475`*^9}, {3.7385967765757704`*^9, 3.7385968980507183`*^9}, {3.7390271186357365`*^9, 3.739027234160344*^9}, { 3.739101662066658*^9, 3.7391016655628576`*^9}, {3.739197262047496*^9, 3.7391973013707447`*^9}, {3.739197331547471*^9, 3.7391973509575815`*^9}, { 3.7609851365374384`*^9, 3.76098515222647*^9}},ExpressionUUID->"ed496191-3d25-497b-9db3-\ 875240812f9f"], Cell[CellGroupData[{ Cell["\<\ Integration by parts commands: Put all derivatives on the bosons\ \>", "Subsection", CellChangeTimes->{{3.4542523663125*^9, 3.45425237446875*^9}, { 3.454253275984375*^9, 3.4542533091875*^9}, {3.45426311621875*^9, 3.454263147921875*^9}, {3.4542944529375*^9, 3.454294453453125*^9}, { 3.5369355175494814`*^9, 3.536935520995678*^9}, {3.5369358486464186`*^9, 3.5369358507945414`*^9}, {3.536936978370035*^9, 3.536937000155281*^9}},ExpressionUUID->"5651a7e4-d78c-4dc4-a232-\ 3f6717faf906"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ByParts", "=", RowBox[{"{", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"\[Lambda]", "[", "xp__", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], RowBox[{"efield__", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "\[Rule]", " ", RowBox[{ RowBox[{"-", " ", RowBox[{ RowBox[{"\[Lambda]", "[", "xp", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], RowBox[{"D", "[", RowBox[{ RowBox[{"efield", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "z"}], "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"\[Lambda]", "[", "xp__", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], RowBox[{"efield__", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "\[Rule]", " ", RowBox[{ RowBox[{"-", " ", RowBox[{ RowBox[{"\[Lambda]", "[", "xp", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], RowBox[{"D", "[", " ", RowBox[{ RowBox[{"efield", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "y"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"\[Lambda]", "[", "xp__", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], RowBox[{"efield__", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "\[Rule]", " ", RowBox[{ RowBox[{"-", " ", RowBox[{ RowBox[{"\[Lambda]", "[", "xp", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], RowBox[{"D", "[", " ", RowBox[{ RowBox[{"efield", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "x"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"\[Lambda]", "[", "xp__", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], RowBox[{"efield__", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "\[Rule]", " ", RowBox[{ RowBox[{"-", " ", RowBox[{ RowBox[{"\[Lambda]", "[", "xp", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], RowBox[{"D", "[", " ", RowBox[{ RowBox[{"efield", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "t"}], "]"}]}]}]}], "}"}]}]], "Input", CellChangeTimes->{{3.4542861504375*^9, 3.454286169796875*^9}, { 3.454458953640625*^9, 3.45445901278125*^9}, {3.455396920765625*^9, 3.4553971038125*^9}, {3.45539730815625*^9, 3.4553973101875*^9}, 3.455397564921875*^9, {3.5369355292501507`*^9, 3.536935630955968*^9}, { 3.548502759932888*^9, 3.548502827575757*^9}, {3.559505239252364*^9, 3.559505278835628*^9}, {3.7385966269522123`*^9, 3.7385966729018407`*^9}, 3.7385971486350513`*^9, {3.7391993748403406`*^9, 3.739199416469722*^9}}, CellLabel->"In[64]:=",ExpressionUUID->"60d195f6-3f56-4da5-b9bb-07353989501b"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"efield__", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Lambda]", "[", "xp__", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "\[Rule]", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"\[Lambda]", "[", "xp", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", RowBox[{ SuperscriptBox["efield", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"efield__", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Lambda]", "[", "xp__", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "\[Rule]", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"\[Lambda]", "[", "xp", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", RowBox[{ SuperscriptBox["efield", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"efield__", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Lambda]", "[", "xp__", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "\[Rule]", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"\[Lambda]", "[", "xp", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", RowBox[{ SuperscriptBox["efield", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"efield__", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Lambda]", "[", "xp__", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "\[Rule]", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"\[Lambda]", "[", "xp", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", RowBox[{ SuperscriptBox["efield", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]}], "}"}]], "Output", CellChangeTimes->{3.73919941940889*^9, 3.7609851593254795`*^9, 3.7609886122277713`*^9, 3.765632271425596*^9, 3.765737922431851*^9, 3.766162748791126*^9}, CellLabel->"Out[64]=",ExpressionUUID->"ba56727c-b30e-4a87-8e78-9b6e6a7f4aa1"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"DLA", " ", "=", " ", RowBox[{ SubscriptBox["\[PartialD]", "\[Mu]"], RowBox[{ SuperscriptBox["F", "\[Mu]\[Nu]"], "(", RowBox[{ SubscriptBox["D", "c"], SubscriptBox["A", "\[Nu]"]}], ")"}], " "}]}], TraditionalForm]],ExpressionUUID->"34dd8c29-344f-4941-829e-b9719a83fb68"]], \ "Subsection", CellChangeTimes->{{3.738596907992287*^9, 3.738596935982888*^9}, { 3.739197377993128*^9, 3.739197380159251*^9}, {3.7609851661861486`*^9, 3.7609851661861486`*^9}},ExpressionUUID->"d29e4cf2-26ed-41c7-ae34-\ 02771b72db74"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DLA", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Sum", "[", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Da", "[", "ci", "]"}], "[", RowBox[{ RowBox[{"Afield", "[", "nu", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"Fmnup", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"ci", ",", "1", ",", "4"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.73859694003712*^9, 3.738596998485463*^9}, { 3.739198114006225*^9, 3.7391982117248144`*^9}, 3.7391994263992896`*^9, 3.7609851679783545`*^9}, CellLabel->"In[65]:=",ExpressionUUID->"266e3b3a-427c-44d4-a8e4-6de0612ed23f"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"\[Lambda]", "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{ RowBox[{"\[Lambda]", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{ RowBox[{"\[Lambda]", "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{ RowBox[{"\[Lambda]", "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{ RowBox[{"\[Lambda]", "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{ RowBox[{"\[Lambda]", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{ RowBox[{"\[Lambda]", "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{ RowBox[{"\[Lambda]", "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{ RowBox[{"\[Lambda]", "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{ RowBox[{"\[Lambda]", "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{ RowBox[{"\[Lambda]", "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{ RowBox[{"\[Lambda]", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Lambda]", "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{ RowBox[{"\[Lambda]", "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{ RowBox[{"\[Lambda]", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{ RowBox[{"\[Lambda]", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{ RowBox[{"\[Lambda]", "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{ RowBox[{"\[Lambda]", "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{ RowBox[{"\[Lambda]", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{ RowBox[{"\[Lambda]", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{ RowBox[{"\[Lambda]", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{ RowBox[{"\[Lambda]", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{ RowBox[{"\[Lambda]", "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{ RowBox[{"\[Lambda]", "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Lambda]", "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{ RowBox[{"\[Lambda]", "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{ RowBox[{"\[Lambda]", "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{ RowBox[{"\[Lambda]", "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{ RowBox[{"\[Lambda]", "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{ RowBox[{"\[Lambda]", "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{ RowBox[{"\[Lambda]", "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{ RowBox[{"\[Lambda]", "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{ RowBox[{"\[Lambda]", "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{ RowBox[{"\[Lambda]", "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{ RowBox[{"\[Lambda]", "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{ RowBox[{"\[Lambda]", "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"\[Lambda]", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{ RowBox[{"\[Lambda]", "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{ RowBox[{"\[Lambda]", "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{ RowBox[{"\[Lambda]", "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{ RowBox[{"\[Lambda]", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{ RowBox[{"\[Lambda]", "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{ RowBox[{"\[Lambda]", "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{ RowBox[{"\[Lambda]", "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{ RowBox[{"\[Lambda]", "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{ RowBox[{"\[Lambda]", "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{ RowBox[{"\[Lambda]", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{ RowBox[{"\[Lambda]", "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}]}], "}"}]], "Output", CellChangeTimes->{3.7609851693855543`*^9, 3.7609886122936335`*^9, 3.765632271540973*^9, 3.7657379225476413`*^9, 3.7661627488631706`*^9}, CellLabel->"Out[65]=",ExpressionUUID->"b039c4dd-0374-43db-9e2a-f954a1d168ad"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "DLlambda = - ", Cell[BoxData[ RowBox[{"i", " ", SubscriptBox["\[Lambda]", "a"], SuperscriptBox[ RowBox[{"(", SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], RowBox[{ SubscriptBox["\[PartialD]", "\[Mu]"], RowBox[{"(", RowBox[{ SubscriptBox["D", "c"], SubscriptBox["\[Lambda]", "b"]}], ")"}]}]}]],ExpressionUUID-> "9bafaa2e-45b7-4bca-ac66-d35e2058e47a"] }], "Subsection", CellChangeTimes->{{3.738597279555539*^9, 3.7385973231010303`*^9}, { 3.739199638076397*^9, 3.739199651260151*^9}},ExpressionUUID->"26085ad7-b363-4243-a0ad-\ 8d8ba14a4f0a"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DLlambda", " ", "=", " ", RowBox[{"Table", "[", " ", RowBox[{ RowBox[{ RowBox[{"-", " ", "I"}], " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Lambda]", "[", "ai", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], RowBox[{ RowBox[{"\[Gamma]up", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"ai", ",", "bi"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"Da", "[", "ci", "]"}], "[", RowBox[{ RowBox[{"\[Lambda]", "[", "bi", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"ai", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bi", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"ci", ",", "1", ",", "4"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.7385972962894964`*^9, 3.738597413817219*^9}, { 3.7391996544743347`*^9, 3.7391996652049484`*^9}}, CellLabel->"In[66]:=",ExpressionUUID->"5470bc54-b94e-49f7-8522-efe0fd6624bd"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]", "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]", "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]", "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]", "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]", "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]", "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]", "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]", "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]", "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]", "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]", "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]", "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ")"}]}]}], ")"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]", "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]", "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]", "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]", "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]", "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]", "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]", "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]", "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]", "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]", "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]", "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]", "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ")"}]}]}], ")"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]", "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]", "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]", "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]", "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]", "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]", "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]", "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]", "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]", "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]", "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]", "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]", "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ")"}]}]}], ")"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]", "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]", "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]", "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]", "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]", "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]", "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]", "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]", "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]", "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]", "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]", "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]", "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], "}"}]], "Output", CellChangeTimes->{3.739199671730322*^9, 3.760985180065982*^9, 3.760988612524976*^9, 3.7656322717596726`*^9, 3.765737922784616*^9, 3.76616274914085*^9}, CellLabel->"Out[66]=",ExpressionUUID->"e20b7006-5f9e-4e1b-82fa-2bc412fff970"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Lagrangian invariance:", "Subsection", CellChangeTimes->{{3.5067876981496387`*^9, 3.5067876997717314`*^9}, { 3.5067877592661343`*^9, 3.5067877700457506`*^9}, {3.5206489898016458`*^9, 3.5206490952536774`*^9}, {3.5369392206842885`*^9, 3.536939221879357*^9}, { 3.5369396151438503`*^9, 3.5369396263204894`*^9}, 3.538533911871493*^9, 3.559507947006239*^9, {3.709577070860665*^9, 3.7095770721157365`*^9}},ExpressionUUID->"868e9f0f-9a20-4b4a-9f98-\ 2499255d33aa"], Cell[BoxData[ RowBox[{ RowBox[{"DLTotal", "=", RowBox[{"(", RowBox[{"DLA", " ", "+", "DLlambda"}], ")"}]}], ";"}]], "Input", CellChangeTimes->{{3.45427044140625*^9, 3.454270558078125*^9}, 3.454270650578125*^9, {3.45428999815625*^9, 3.4542900703125*^9}, { 3.454458830296875*^9, 3.45445884096875*^9}, 3.454940376296875*^9, { 3.506785522192181*^9, 3.506785526790444*^9}, {3.5369392311728883`*^9, 3.5369392376112566`*^9}, {3.5485033703608027`*^9, 3.5485033962392826`*^9}, {3.5486477562959433`*^9, 3.5486477629383235`*^9}, {3.551712627583896*^9, 3.551712652427317*^9}, { 3.5517255133411903`*^9, 3.5517255156213207`*^9}, {3.553366509378154*^9, 3.553366514439443*^9}, {3.5533953186563516`*^9, 3.5533953252407284`*^9}, { 3.5595073425756674`*^9, 3.559507387126215*^9}, {3.559507436092016*^9, 3.559507445291542*^9}, {3.7095770876246233`*^9, 3.709577095554077*^9}, { 3.737977011783942*^9, 3.7379770130830164`*^9}, {3.737978072883633*^9, 3.7379780740366993`*^9}, 3.7379781053644915`*^9, {3.7379797820413914`*^9, 3.7379797855155907`*^9}, {3.7385966828124075`*^9, 3.73859670156148*^9}, { 3.73859728690296*^9, 3.7385972937383504`*^9}, {3.7385974545885506`*^9, 3.7385974555306044`*^9}, {3.7391996975357976`*^9, 3.739199709537484*^9}, { 3.760985185666038*^9, 3.7609851997782865`*^9}}, CellLabel->"In[67]:=",ExpressionUUID->"7f54c019-5c83-4fbe-8ce4-8db21cce8111"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DLFinal", " ", "=", " ", RowBox[{"Collect", "[", RowBox[{"DLTotal", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"\[Lambda]", "[", "_", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ SuperscriptBox[ RowBox[{"Afield", "[", "_", "]"}], TagBox[ RowBox[{"(", RowBox[{"_", ",", "_", ",", "_", ",", "_"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{"Afield", "[", "_", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ SuperscriptBox["dfield", TagBox[ RowBox[{"(", RowBox[{"_", ",", "_", ",", "_", ",", "_"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"dfield", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "}"}], ",", "Simplify"}], "]"}]}]], "Input", CellChangeTimes->{{3.5486031894031253`*^9, 3.548603246061366*^9}, { 3.5486477185457845`*^9, 3.5486477207099085`*^9}, {3.5486477693896923`*^9, 3.548647816679397*^9}, {3.548648762317485*^9, 3.5486487660216966`*^9}, { 3.548648892678941*^9, 3.5486489290750227`*^9}, {3.5486490757914143`*^9, 3.548649079890649*^9}, {3.5508456492171373`*^9, 3.550845654976972*^9}, { 3.550845866353086*^9, 3.550845900248698*^9}, {3.550845984097158*^9, 3.5508459947455683`*^9}, {3.5517221996034575`*^9, 3.55172235997763*^9}, 3.551722652706373*^9, {3.5517258080390463`*^9, 3.5517258190696774`*^9}, { 3.5523165181227307`*^9, 3.552316519793826*^9}, 3.5533665363856983`*^9, { 3.553367027952814*^9, 3.553367031744031*^9}, {3.559507466526757*^9, 3.5595074916691947`*^9}, {3.55950752865231*^9, 3.559507547507388*^9}, { 3.5595075974182434`*^9, 3.5595075988043222`*^9}, {3.709577107980788*^9, 3.7095771101409116`*^9}, {3.711859827010425*^9, 3.711859830749639*^9}, { 3.7118598618634186`*^9, 3.7118598634705105`*^9}, 3.7118610889336033`*^9, { 3.711904172582798*^9, 3.7119041743388987`*^9}, {3.7385974742296743`*^9, 3.73859754742286*^9}, {3.739199721975196*^9, 3.739199749168751*^9}, { 3.739199781743614*^9, 3.739199827669241*^9}, {3.7392004973405437`*^9, 3.739200499423663*^9}, 3.76098520970673*^9, 3.760985259586774*^9}, CellLabel->"In[68]:=",ExpressionUUID->"80d15f9f-9543-4fa0-a8f6-50e451995354"], Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output", CellChangeTimes->{3.760985260037529*^9, 3.7609886125678587`*^9, 3.765632271822159*^9, 3.7657379228514395`*^9, 3.766162749177988*^9}, CellLabel->"Out[68]=",ExpressionUUID->"e4da3540-e957-4f3c-9272-20a85e3f85bf"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"LagrangianClosure", " ", "=", " ", RowBox[{"DLFinal", " ", "\[Equal]", " ", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}]}]], "Input", CellChangeTimes->{{3.7609852119437456`*^9, 3.7609852434733653`*^9}}, CellLabel->"In[69]:=",ExpressionUUID->"ce9e33f0-e1fb-4f36-b41b-942857baa013"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.7609852448586617`*^9, 3.7609886125927925`*^9, 3.765632271822159*^9, 3.7657379228654003`*^9, 3.7661627491929502`*^9}, CellLabel->"Out[69]=",ExpressionUUID->"bc4c258f-fd47-4005-b550-19e9cd05df3f"] }, Open ]] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{1904, 997}, WindowMargins->{{-8, Automatic}, {Automatic, 0}}, 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, 8838, 119, 146, "Title",ExpressionUUID->"dfab12f3-523a-4891-ab6d-6353bcfa0aa5"], Cell[CellGroupData[{ Cell[9442, 145, 289, 4, 99, "Section",ExpressionUUID->"8ce62cfa-2467-4484-bfab-5a2bb7149ea5"], Cell[CellGroupData[{ Cell[9756, 153, 148, 2, 43, "Input",ExpressionUUID->"65e9b759-d921-4a12-9e52-b3e8b17f8777"], Cell[9907, 157, 601, 9, 49, "Output",ExpressionUUID->"416d99ec-d706-4d7f-b283-2d1f16608a10"] }, Open ]], Cell[10523, 169, 1172, 17, 43, "Input",ExpressionUUID->"1b130993-d415-41ec-8260-109b938b0e03"], Cell[11698, 188, 247, 4, 43, "Input",ExpressionUUID->"042a2f57-aed7-4239-853e-081c663f644e"], Cell[CellGroupData[{ Cell[11970, 196, 214, 3, 43, "Input",ExpressionUUID->"ee9a22d7-408f-43e3-b2dc-2ed014de5ea4"], Cell[12187, 201, 453, 7, 49, "Output",ExpressionUUID->"f65ff220-306c-40df-966f-f2e4d7cf07b3"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[12689, 214, 2118, 48, 276, "Section",ExpressionUUID->"4c5b5cfe-adb3-4e93-a92e-56fcdf2f0a10"], Cell[CellGroupData[{ Cell[14832, 266, 248, 6, 2049, "Subsection",ExpressionUUID->"35c45c57-b4de-4657-80c8-61a394edd298"], Cell[CellGroupData[{ Cell[15105, 276, 1992, 42, 1093, "Input",ExpressionUUID->"8195ffa0-f61e-4f0d-9421-dab2cc2bc88f"], Cell[17100, 320, 1284, 32, 157, "Output",ExpressionUUID->"96c854f4-893a-408b-8dbf-996dc1eed68d"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[18433, 358, 501, 9, 1377, "Subsection",ExpressionUUID->"8dc47d1e-d238-43ad-b614-8fd7a1d31b4b"], Cell[CellGroupData[{ Cell[18959, 371, 2289, 57, 2605, "Input",ExpressionUUID->"02d26f17-a193-49ca-87a1-899d6cf2c676"], Cell[21251, 430, 2038, 54, 157, "Output",ExpressionUUID->"149292d4-3f77-4f92-b56a-aac1d7da2b4e"] }, Open ]], Cell[CellGroupData[{ Cell[23326, 489, 544, 11, 1093, "Input",ExpressionUUID->"4075e5c9-bb03-4ae5-827b-cc4bde7d319c"], Cell[23873, 502, 516, 9, 157, "Output",ExpressionUUID->"c30de315-59fb-44df-add5-d9a5251fd338"] }, Open ]], Cell[CellGroupData[{ Cell[24426, 516, 206, 3, 1093, "Input",ExpressionUUID->"e586daf5-bcfa-438d-b2ca-0de12bfe9d9a"], Cell[24635, 521, 481, 8, 157, "Output",ExpressionUUID->"433be566-8057-4751-8756-5789a2acce21"] }, Open ]], Cell[CellGroupData[{ Cell[25153, 534, 449, 10, 1093, "Input",ExpressionUUID->"9c0049b0-1502-4645-a3f9-a81f9269af9a"], Cell[25605, 546, 497, 8, 157, "Output",ExpressionUUID->"5c385291-dcd0-47f0-b60b-5b9dce36711e"] }, Open ]], Cell[CellGroupData[{ Cell[26139, 559, 520, 12, 1093, "Input",ExpressionUUID->"9a166dd6-65d3-4354-9e54-3f6e295c74a5"], Cell[26662, 573, 522, 9, 157, "Output",ExpressionUUID->"3649f929-defe-483f-a67e-9377ae2076d5"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[27233, 588, 1448, 42, 2625, "Subsection",ExpressionUUID->"f7223d3e-780f-46b6-aa53-f17da6eef8b4"], Cell[CellGroupData[{ Cell[28706, 634, 936, 21, 1093, "Input",ExpressionUUID->"38ad3ae9-9a15-4b6a-97fa-a1f07ef7249d"], Cell[29645, 657, 935, 21, 157, "Output",ExpressionUUID->"e3b07d04-84f9-47ec-b3aa-e701646d491b"] }, Open ]], Cell[CellGroupData[{ Cell[30617, 683, 1125, 27, 1093, "Input",ExpressionUUID->"f5fae3c4-ef47-4203-9e96-7d085038432d"], Cell[31745, 712, 1317, 33, 157, "Output",ExpressionUUID->"397160cd-8775-4c59-8e25-4c5421398db9"] }, Open ]], Cell[CellGroupData[{ Cell[33099, 750, 232, 4, 1093, "Input",ExpressionUUID->"79460b94-9729-4f3e-8728-f207ac43d16f"], Cell[33334, 756, 692, 15, 157, "Output",ExpressionUUID->"7088d601-014a-47f2-be7a-154660c2248f"] }, Open ]], Cell[CellGroupData[{ Cell[34063, 776, 254, 5, 1093, "Input",ExpressionUUID->"0d5cbf46-6c7e-4ca6-9313-90549d0dfd86"], Cell[34320, 783, 788, 17, 157, "Output",ExpressionUUID->"00b2ffd6-79b5-49c1-be2b-04ad54ada50f"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[35157, 806, 212, 2, 1377, "Subsection",ExpressionUUID->"934f9f0b-9b24-401e-9416-77c2303ebc8b"], Cell[CellGroupData[{ Cell[35394, 812, 1635, 35, 1867, "Input",ExpressionUUID->"f16a7014-9edd-4a83-8bb8-ca1541272574"], Cell[37032, 849, 1611, 36, 157, "Output",ExpressionUUID->"203ccb9e-ba0e-4da2-adbe-b79d01734bec"] }, Open ]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[38704, 892, 962, 15, 76, "Section",ExpressionUUID->"65102be5-a054-4c68-82da-5d568c24d914"], Cell[CellGroupData[{ Cell[39691, 911, 427, 10, 80, "Subsection",ExpressionUUID->"6c41c663-34cc-4984-9ec1-aa5934fb2ff1"], Cell[40121, 923, 803, 17, 4200, "Input",ExpressionUUID->"a91adb23-7dc4-40aa-afc4-5e6bb69aed24"], Cell[CellGroupData[{ Cell[40949, 944, 217, 3, 2459, "Input",ExpressionUUID->"3f93f86f-eaee-4ffa-bb22-a47827eb1e6b"], Cell[41169, 949, 1136, 30, 157, "Output",ExpressionUUID->"9c671ba2-aa25-4543-953a-b3a811f4bf2c"] }, Open ]], Cell[CellGroupData[{ Cell[42342, 984, 534, 11, 2459, "Input",ExpressionUUID->"a82c1de1-716c-43b3-8a86-ec5a486e94d1"], Cell[42879, 997, 1006, 24, 157, "Output",ExpressionUUID->"202f8433-dbf3-4d77-a665-0c5d8f0596d0"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[43934, 1027, 333, 5, 54, "Subsection",ExpressionUUID->"778edc5b-aa18-4a83-ac0d-00833534239a"], Cell[44270, 1034, 948, 19, 4200, "Input",ExpressionUUID->"f06fe64f-4516-4bf0-9680-aaabe6467cda"], Cell[CellGroupData[{ Cell[45243, 1057, 502, 11, 2459, "Input",ExpressionUUID->"43687642-1c54-4669-84c2-e03dde360657"], Cell[45748, 1070, 970, 22, 157, "Output",ExpressionUUID->"6a763bac-92fb-4f16-bcf3-c1c18c07e37e"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[46767, 1098, 1279, 33, 56, "Subsection",ExpressionUUID->"3f1ea2b0-6032-4fee-802d-0bd9d2cf462b"], Cell[48049, 1133, 1208, 31, 2605, "Input",ExpressionUUID->"f10d90b7-7be8-4953-9a59-dd8b6fec91f1"], Cell[49260, 1166, 1310, 28, 2605, "Input",ExpressionUUID->"a8045f24-dd5b-4a8a-ae6d-a34b320487a0"], Cell[CellGroupData[{ Cell[50595, 1198, 599, 15, 1093, "Input",ExpressionUUID->"f0d625ec-df6a-4218-9b75-c64339bbfd2f"], Cell[51197, 1215, 9416, 267, 157, "Output",ExpressionUUID->"a5865f2f-7071-4ace-bbac-a810acb69a23"] }, Open ]], Cell[CellGroupData[{ Cell[60650, 1487, 650, 16, 1093, "Input",ExpressionUUID->"f4d145fd-2861-4bcf-9e11-4e68e93cc926"], Cell[61303, 1505, 9445, 267, 157, "Output",ExpressionUUID->"babafc4c-db0c-47f7-8f7e-de966a7c7534"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[70797, 1778, 983, 24, 96, "Subsection",ExpressionUUID->"ec403595-5c5e-4130-87e6-1d3065f65cb1"], Cell[CellGroupData[{ Cell[71805, 1806, 216, 3, 2459, "Input",ExpressionUUID->"65e8b7f3-0ca3-456b-bfd4-58abb0bc2ab8"], Cell[72024, 1811, 444, 7, 157, "Output",ExpressionUUID->"f50a0208-5f45-4a1c-8dac-ae840909153b"] }, Open ]], Cell[CellGroupData[{ Cell[72505, 1823, 554, 12, 2459, "Input",ExpressionUUID->"9dbeb415-c297-44bd-a09a-2df894cf21ab"], Cell[73062, 1837, 695, 16, 157, "Output",ExpressionUUID->"b8c5ac21-ae17-4cf1-9d6d-94cc658ff4b2"] }, Open ]], Cell[CellGroupData[{ Cell[73794, 1858, 481, 10, 2459, "Input",ExpressionUUID->"ee4c6f59-03e9-42d6-9a14-eff52b913ea1"], Cell[74278, 1870, 1423, 40, 157, "Output",ExpressionUUID->"28621ecb-effc-4714-9316-7894ead4d6b7"] }, Open ]], Cell[CellGroupData[{ Cell[75738, 1915, 589, 13, 2459, "Input",ExpressionUUID->"cbbd8308-375a-4a2e-9ba8-f5aa44b2bf32"], Cell[76330, 1930, 1454, 41, 157, "Output",ExpressionUUID->"3366210d-aa9a-4e15-b011-368b2beceb24"] }, Open ]], Cell[CellGroupData[{ Cell[77821, 1976, 594, 11, 2459, "Input",ExpressionUUID->"93182930-359a-4f6d-8c9f-c9c311d608a5"], Cell[78418, 1989, 3076, 94, 157, "Output",ExpressionUUID->"ab633fb4-ce1f-49e5-8422-d46b9dfa5b7e"] }, Open ]], Cell[CellGroupData[{ Cell[81531, 2088, 610, 10, 2459, "Input",ExpressionUUID->"eb43cfbc-955a-45ee-9174-7bb4f391055f"], Cell[82144, 2100, 1554, 44, 157, "Output",ExpressionUUID->"da4656dd-2662-45e0-88e9-48923d9d2bd1"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[83747, 2150, 159, 3, 54, "Subsection",ExpressionUUID->"68893c73-8799-44ac-b397-ad8678b9c883"], Cell[CellGroupData[{ Cell[83931, 2157, 525, 10, 2459, "Input",ExpressionUUID->"5ae39733-84b1-42ef-b5d8-d6e0ffff02fd"], Cell[84459, 2169, 592, 12, 157, "Output",ExpressionUUID->"7a52e50e-54a5-4b67-8b6c-8da0b9ac49a7"] }, Open ]], Cell[CellGroupData[{ Cell[85088, 2186, 535, 13, 4200, "Input",ExpressionUUID->"8a51f6e7-4290-41a7-8b37-30e4ca96554a"], Cell[85626, 2201, 707, 15, 157, "Output",ExpressionUUID->"2e8fe216-b851-4c14-9602-cdbffd325b55"] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[86394, 2223, 699, 10, 99, "Section",ExpressionUUID->"06494e91-661e-4ca6-95eb-5ee8e28bd4bf"], Cell[CellGroupData[{ Cell[87118, 2237, 12027, 200, 4221, "Subsubsection",ExpressionUUID->"19234059-780f-48ff-9a61-e83dce3908cf"], Cell[99148, 2439, 3492, 62, 5861, "Input",ExpressionUUID->"93928d44-3a0d-434d-bd9e-2af8f6764f49"], Cell[102643, 2503, 1250, 30, 5861, "Input",ExpressionUUID->"18e5fb7a-bf0f-401a-af2b-1144ac67e982"], Cell[CellGroupData[{ Cell[103918, 2537, 1205, 28, 5861, "Input",ExpressionUUID->"29fb3804-04f7-4ee4-b220-858a18c37c46"], Cell[105126, 2567, 2200, 65, 157, "Output",ExpressionUUID->"740adf0f-5018-4c64-8eab-477968f53625"] }, Open ]], Cell[CellGroupData[{ Cell[107363, 2637, 261, 5, 2459, "Input",ExpressionUUID->"93db53f6-10cd-4db2-9f98-1417bc96e346"], Cell[107627, 2644, 2203, 65, 157, "Output",ExpressionUUID->"1923bc02-d703-4ab0-92bd-56ca68f819fe"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[109879, 2715, 11843, 197, 2835, "Subsubsection",ExpressionUUID->"6ed7cae2-1661-4972-824b-166c0ca545e2"], Cell[121725, 2914, 3306, 68, 5087, "Input",ExpressionUUID->"c24cc654-9c08-4540-8fec-0b3f663ce144"], Cell[125034, 2984, 1620, 38, 1093, "Input",ExpressionUUID->"a460f19b-bf8f-4e28-a426-4ad249e95bcc"], Cell[CellGroupData[{ Cell[126679, 3026, 1756, 43, 1093, "Input",ExpressionUUID->"a4f911d4-1221-43d7-ac3c-5dcf1b948629"], Cell[128438, 3071, 2946, 79, 157, "Output",ExpressionUUID->"895af2c7-f687-4462-8d3c-f00ee701eb2e"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[131433, 3156, 177, 3, 1377, "Subsection",ExpressionUUID->"3a6745eb-727d-4c98-abc6-7a66a9408a1e"], Cell[131613, 3161, 902, 20, 1093, "Input",ExpressionUUID->"388e6d2d-8e02-437a-bb0b-6d47906c1924"], Cell[132518, 3183, 650, 15, 1093, "Input",ExpressionUUID->"7b9f680f-c308-4d9e-a626-7914b46d1755"], Cell[133171, 3200, 3320, 85, 4099, "Input",ExpressionUUID->"4e84670a-dbfb-480b-a537-9348d6e913f5"], Cell[136494, 3287, 484, 11, 1093, "Input",ExpressionUUID->"b529f91b-f8bc-4c3f-b914-a17756fa16c8"], Cell[136981, 3300, 641, 17, 1093, "Input",ExpressionUUID->"11c95ead-7071-4314-8f58-bb351bc32b52"], Cell[137625, 3319, 615, 15, 1093, "Input",ExpressionUUID->"3143ffef-6c23-4c86-a440-c6fa01697e43"], Cell[138243, 3336, 594, 16, 1093, "Input",ExpressionUUID->"702c3f9b-b9e1-45e1-992f-c5a8d032e022"], Cell[138840, 3354, 604, 15, 1093, "Input",ExpressionUUID->"63e720ea-e678-4804-ad18-044861245642"], Cell[139447, 3371, 1252, 26, 1093, "Input",ExpressionUUID->"80896f16-b70b-4a73-8b94-784829b0fea0"], Cell[140702, 3399, 582, 14, 1093, "Input",ExpressionUUID->"8cb9f151-36f4-4683-8054-031213b41de5"], Cell[CellGroupData[{ Cell[141309, 3417, 1185, 24, 1093, "Input",ExpressionUUID->"4bc058df-82c6-43e4-9ca2-fa0686424af5"], Cell[142497, 3443, 26968, 728, 157, "Output",ExpressionUUID->"38eee9bb-75c6-4027-8311-7c59018c8ab1"] }, Open ]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[169526, 4178, 429, 7, 76, "Section",ExpressionUUID->"231a1b16-656b-454b-bdf7-3325c412556f"], Cell[CellGroupData[{ Cell[169980, 4189, 1901, 51, 82, "Subsection",ExpressionUUID->"6cfc84f4-27f6-4da1-a55f-80eab8b74b10"], Cell[171884, 4242, 1095, 26, 216, "Input",ExpressionUUID->"276a4bf5-23a0-462c-a40c-58e7dcde8183"], Cell[CellGroupData[{ Cell[173004, 4272, 2584, 57, 369, "Input",ExpressionUUID->"db86ad83-84c8-4947-8d89-d7772f53d686"], Cell[175591, 4331, 581, 8, 157, "Output",ExpressionUUID->"e02dfce8-6e45-4c36-b2aa-773d95969e83"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[176221, 4345, 44286, 747, 131, "Subsection",ExpressionUUID->"f8fc6527-d844-4faa-aa47-5379d276b51b"], Cell[220510, 5094, 2885, 71, 1613, "Input",ExpressionUUID->"4274ee51-f776-44e8-a7c2-f96525d83525"], Cell[CellGroupData[{ Cell[223420, 5169, 2448, 53, 369, "Input",ExpressionUUID->"0c2d19a2-6b8b-4a03-842b-36835efdad3a"], Cell[225871, 5224, 473, 7, 157, "Output",ExpressionUUID->"e7c6827a-f384-4b5e-86b8-a02c83698568"] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[226405, 5238, 153, 3, 99, "Section",ExpressionUUID->"506208ec-72d0-4aa8-9d9f-54191bcc9604"], Cell[CellGroupData[{ Cell[226583, 5245, 27311, 460, 108, "Subsection",ExpressionUUID->"d43faaaf-0673-4970-8df8-4e4a3824b78a"], Cell[253897, 5707, 776, 20, 43, "Input",ExpressionUUID->"983cafcd-c51f-4c38-b45f-38ca504d2886"], Cell[254676, 5729, 910, 24, 43, "Input",ExpressionUUID->"77406683-38ba-46e4-aa8c-df27a8e3453d"], Cell[CellGroupData[{ Cell[255611, 5757, 1618, 39, 73, "Input",ExpressionUUID->"125b80da-d41e-4209-9761-7fe0d1fabb16"], Cell[257232, 5798, 607, 9, 49, "Output",ExpressionUUID->"4bd7013a-f69a-4091-90df-f5b3d44fa488"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[257888, 5813, 84334, 1405, 249, "Subsection",ExpressionUUID->"68c7e39c-fd44-4942-9218-54c779e0448b"], Cell[342225, 7220, 691, 16, 43, "Input",ExpressionUUID->"a0c1de7d-ed47-46b7-ad23-295e10996f60"], Cell[342919, 7238, 1241, 28, 43, "Input",ExpressionUUID->"40bcebc9-83f7-487b-9a0f-2943e2cd1757"], Cell[344163, 7268, 1027, 27, 43, "Input",ExpressionUUID->"3659674d-da94-46b1-90fc-ffa5f5ccf107"], Cell[345193, 7297, 1734, 48, 158, "Input",ExpressionUUID->"43481913-bb56-450e-a3e7-98b3fab8e2e3"], Cell[346930, 7347, 629, 16, 43, "Input",ExpressionUUID->"c6684a15-3f19-4a6a-8619-b7fa8cd982dd"], Cell[CellGroupData[{ Cell[347584, 7367, 2358, 56, 102, "Input",ExpressionUUID->"8521d9af-e112-4483-873b-cd68f91145bd"], Cell[349945, 7425, 474, 7, 49, "Output",ExpressionUUID->"4bd070d5-8116-4301-9b88-6600a131e300"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[350480, 7439, 4930, 100, 222, "Section",ExpressionUUID->"ed496191-3d25-497b-9db3-875240812f9f"], Cell[CellGroupData[{ Cell[355435, 7543, 506, 9, 80, "Subsection",ExpressionUUID->"5651a7e4-d78c-4dc4-a232-3f6717faf906"], Cell[CellGroupData[{ Cell[355966, 7556, 3875, 103, 3735, "Input",ExpressionUUID->"60d195f6-3f56-4da5-b9bb-07353989501b"], Cell[359844, 7661, 3788, 111, 157, "Output",ExpressionUUID->"ba56727c-b30e-4a87-8e78-9b6e6a7f4aa1"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[363681, 7778, 602, 15, 56, "Subsection",ExpressionUUID->"d29e4cf2-26ed-41c7-ae34-02771b72db74"], Cell[CellGroupData[{ Cell[364308, 7797, 1121, 28, 1093, "Input",ExpressionUUID->"266e3b3a-427c-44d4-a8e4-6de0612ed23f"], Cell[365432, 7827, 40712, 1191, 157, "Output",ExpressionUUID->"b039c4dd-0374-43db-9e2a-f954a1d168ad"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[406193, 9024, 623, 19, 56, "Subsection",ExpressionUUID->"26085ad7-b363-4243-a0ad-8d8ba14a4f0a"], Cell[CellGroupData[{ Cell[406841, 9047, 1350, 34, 1093, "Input",ExpressionUUID->"5470bc54-b94e-49f7-8522-efe0fd6624bd"], Cell[408194, 9083, 179063, 4824, 157, "Output",ExpressionUUID->"e20b7006-5f9e-4e1b-82fa-2bc412fff970"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[587306, 13913, 481, 7, 54, "Subsection",ExpressionUUID->"868e9f0f-9a20-4b4a-9f98-2499255d33aa"], Cell[587790, 13922, 1416, 22, 43, "Input",ExpressionUUID->"7f54c019-5c83-4fbe-8ce4-8db21cce8111"], Cell[CellGroupData[{ Cell[589231, 13948, 2547, 50, 50, "Input",ExpressionUUID->"80d15f9f-9543-4fa0-a8f6-50e451995354"], Cell[591781, 14000, 309, 5, 49, "Output",ExpressionUUID->"e4da3540-e957-4f3c-9272-20a85e3f85bf"] }, Open ]], Cell[CellGroupData[{ Cell[592127, 14010, 339, 6, 43, "Input",ExpressionUUID->"ce9e33f0-e1fb-4f36-b41b-942857baa013"], Cell[592469, 14018, 251, 3, 49, "Output",ExpressionUUID->"bc4c258f-fd47-4005-b550-19e9cd05df3f"] }, Open ]] }, Open ]] }, Open ]] }, Open ]] } ] *)