(* 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[ 524118, 11589] NotebookOptionsPosition[ 506215, 11268] NotebookOutlinePosition[ 506771, 11289] CellTagsIndexPosition[ 506728, 11286] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["\<\ 4D N = 1 TS 4DCalcs.nb This is the same on and offshell\ \>", "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}, {3.7664187669185133`*^9, 3.76641878432274*^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.7664197743500795`*^9, 3.766420716903349*^9, 3.766425953897668*^9, 3.766426311649296*^9}, CellLabel->"Out[1]=",ExpressionUUID->"cc130ddf-6080-4ba5-b6af-a5806d083cdc"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"Rep", " ", "=", " ", "TS"}], ";"}]], "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}, {3.766418775300026*^9, 3.766418775440609*^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.7664197745219135`*^9, 3.766420717128517*^9, 3.7664259613543873`*^9, 3.7664263118906507`*^9}, CellLabel->"Out[4]=",ExpressionUUID->"f0262f3d-bbe5-408e-9947-470a1b1217ed"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "fields: Bmn[mu],\[Phi], \[Chi][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[{ OverscriptBox["\[Phi]", "."], ",", " ", RowBox[{"2", SubscriptBox[ OverscriptBox["B", "."], "12"]}], ",", RowBox[{"2", SubscriptBox[ OverscriptBox["B", "."], "23"]}], ",", RowBox[{"2", SubscriptBox[ OverscriptBox["B", "."], "31"]}]}], "}"}], TraditionalForm]], ExpressionUUID->"10d08833-b580-41c2-b23f-a9049ee3fdf6"], "\n", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["\[CapitalPsi]", OverscriptBox["i", "^"]], "=", " ", RowBox[{"{", SubscriptBox[ OverscriptBox["\[Chi]", "."], "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}, { 3.7664187961125436`*^9, 3.766418820010223*^9}, 3.766419058748312*^9, { 3.766419164496909*^9, 3.766419164496909*^9}, {3.766420550447816*^9, 3.766420560741317*^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[{"Bmn", "[", RowBox[{"mu_", ",", "nu_"}], "]"}], "->", " ", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", RowBox[{ RowBox[{"Bmn", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", "t", "]"}]}], "]"}]}], ",", RowBox[{"\[Phi]", "->", " ", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", RowBox[{"\[Phi]", "[", "t", "]"}]}], "]"}]}], ",", RowBox[{ RowBox[{"\[Chi]", "[", "a_", "]"}], "\[Rule]", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", RowBox[{ RowBox[{"\[Chi]", "[", "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}, {3.7664190523226504`*^9, 3.76641909221229*^9}}, CellLabel->"In[5]:=",ExpressionUUID->"8195ffa0-f61e-4f0d-9421-dab2cc2bc88f"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Bmn", "[", RowBox[{"mu_", ",", "nu_"}], "]"}], "\[Rule]", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", RowBox[{ RowBox[{"Bmn", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", "t", "]"}]}], "]"}]}], ",", RowBox[{"\[Phi]", "\[Rule]", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", RowBox[{"\[Phi]", "[", "t", "]"}]}], "]"}]}], ",", RowBox[{ RowBox[{"\[Chi]", "[", "a_", "]"}], "\[Rule]", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", RowBox[{ RowBox[{"\[Chi]", "[", "a", "]"}], "[", "t", "]"}]}], "]"}]}]}], "}"}]], "Output", CellChangeTimes->{3.766419783616933*^9, 3.766420717175743*^9, 3.7664259614102993`*^9, 3.7664263119584694`*^9}, CellLabel->"Out[5]=",ExpressionUUID->"bfeb491e-d98f-49ef-8223-f980ad53cd79"] }, 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[{"\[Chi]", "[", "a_", "]"}], "[", "t", "]"}], "\[Rule]", SubscriptBox["\[Chi]", "a"]}], ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Chi]", "[", "a_", "]"}], "'"}], "[", "t", "]"}], "\[Rule]", SubscriptBox[ OverscriptBox["\[Chi]", "."], "a"]}], ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Chi]", "[", "a_", "]"}], "''"}], "[", "t", "]"}], "\[Rule]", RowBox[{ SubscriptBox["\[Chi]", "a"], "''"}]}], ",", "\[IndentingNewLine]", " ", RowBox[{ RowBox[{ RowBox[{"Bmn", "[", RowBox[{"mu_", ",", "nu_"}], "]"}], "[", "t", "]"}], "\[Rule]", SubscriptBox["B", RowBox[{ RowBox[{"10", "*", "mu"}], "+", "nu"}]]}], ",", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Bmn", "[", RowBox[{"mu_", ",", "nu_"}], "]"}], "'"}], "[", "t", "]"}], "\[Rule]", SubscriptBox[ OverscriptBox["B", "."], RowBox[{ RowBox[{"10", "*", "mu"}], "+", "nu"}]]}], ",", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Bmn", "[", "mu", "]"}], "''"}], "[", "t", "]"}], "\[Rule]", RowBox[{ SubscriptBox["B", RowBox[{ RowBox[{"10", "*", "mu"}], "+", "nu"}]], "''"}]}], ",", RowBox[{ RowBox[{"\[Phi]", "[", "t", "]"}], "\[Rule]", "\[Phi]"}], ",", " ", RowBox[{ RowBox[{ RowBox[{"\[Phi]", "'"}], "[", "t", "]"}], "\[Rule]", OverscriptBox["\[Phi]", "."]}]}], "}"}]}]], "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}, {3.7664190991889486`*^9, 3.766419136736847*^9}, { 3.766419181678962*^9, 3.7664192211995745`*^9}, {3.7664195533902063`*^9, 3.766419607700283*^9}}, CellLabel->"In[6]:=",ExpressionUUID->"02d26f17-a193-49ca-87a1-899d6cf2c676"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Chi]", "[", "a_", "]"}], "[", "t", "]"}], "\[Rule]", SubscriptBox["\[Chi]", "a"]}], ",", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"\[Chi]", "[", "a_", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Rule]", SubscriptBox[ OverscriptBox["\[Chi]", "."], "a"]}], ",", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"\[Chi]", "[", "a_", "]"}], "\[Prime]\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Rule]", SuperscriptBox[ SubscriptBox["\[Chi]", "a"], "\[Prime]\[Prime]", MultilineFunction->None]}], ",", RowBox[{ RowBox[{ RowBox[{"Bmn", "[", RowBox[{"mu_", ",", "nu_"}], "]"}], "[", "t", "]"}], "\[Rule]", SubscriptBox["B", RowBox[{ RowBox[{"10", " ", "mu"}], "+", "nu"}]]}], ",", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"mu_", ",", "nu_"}], "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Rule]", SubscriptBox[ OverscriptBox["B", "."], RowBox[{ RowBox[{"10", " ", "mu"}], "+", "nu"}]]}], ",", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", "mu", "]"}], "\[Prime]\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Rule]", SuperscriptBox[ SubscriptBox["B", RowBox[{ RowBox[{"10", " ", "mu"}], "+", "nu"}]], "\[Prime]\[Prime]", MultilineFunction->None]}], ",", RowBox[{ RowBox[{"\[Phi]", "[", "t", "]"}], "\[Rule]", "\[Phi]"}], ",", RowBox[{ RowBox[{ SuperscriptBox["\[Phi]", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Rule]", OverscriptBox["\[Phi]", "."]}]}], "}"}]], "Output", CellChangeTimes->{3.766419632563403*^9, 3.766419783843088*^9, 3.766420717214764*^9, 3.766425961475958*^9, 3.766426312037258*^9}, CellLabel->"Out[6]=",ExpressionUUID->"aab6bbf7-62f2-4844-94d0-f395fc1cf6a6"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Chi]", "[", "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}, 3.766419151758748*^9}, CellLabel->"In[7]:=",ExpressionUUID->"4075e5c9-bb03-4ae5-827b-cc4bde7d319c"], Cell[BoxData[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "2"]], "Output", CellChangeTimes->{3.766419632678096*^9, 3.7664197838995132`*^9, 3.7664207172772875`*^9, 3.7664259615470686`*^9, 3.7664263121080694`*^9}, CellLabel->"Out[7]=",ExpressionUUID->"22ab1a3e-8c00-427c-937a-8ab7ba44e8d1"] }, 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{\\chi }_2", "Output", CellChangeTimes->{3.76641963272896*^9, 3.7664197839619646`*^9, 3.7664207173397713`*^9, 3.766425961618248*^9, 3.7664263121843433`*^9}, CellLabel-> "Out[8]//TeXForm=",ExpressionUUID->"be430355-66b1-4cc5-9fac-0a7992916c81"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Chi]", "[", "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}, 3.7664191519462295`*^9}, CellLabel->"In[9]:=",ExpressionUUID->"9c0049b0-1502-4645-a3f9-a81f9269af9a"], Cell[BoxData[ SubscriptBox["\[Chi]", "1"]], "Output", CellChangeTimes->{3.766419632794784*^9, 3.766419784027253*^9, 3.7664207173866377`*^9, 3.7664259616798973`*^9, 3.766426312246847*^9}, CellLabel->"Out[9]=",ExpressionUUID->"66fffc4c-b60d-473b-a48f-438945a92424"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"\[Chi]", "[", "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}, 3.7664191521212263`*^9}, CellLabel->"In[10]:=",ExpressionUUID->"9a166dd6-65d3-4354-9e54-3f6e295c74a5"], Cell[BoxData[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "1"]], "Output", CellChangeTimes->{3.766419632865595*^9, 3.766419784089776*^9, 3.766420717433504*^9, 3.7664259617353086`*^9, 3.766426312324952*^9}, CellLabel->"Out[10]=",ExpressionUUID->"9c8a2efb-a69d-414d-ae5d-7dea702fcf3a"] }, 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[{"\[Phi]", ",", " ", RowBox[{"2", SubscriptBox["B", "12"]}], ",", RowBox[{"2", SubscriptBox["B", "23"]}], ",", RowBox[{"2", SubscriptBox["B", "31"]}]}], "}"}], 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["\[Chi]", "."], "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}, {3.7664189354657507`*^9, 3.7664189925835395`*^9}, { 3.766419041827057*^9, 3.766419044428194*^9}, {3.7664205650393715`*^9, 3.766420565556114*^9}},ExpressionUUID->"f7223d3e-780f-46b6-aa53-\ f17da6eef8b4"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Phi", "[", "t", "]"}], " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"\[Phi]", "'"}], "[", "t", "]"}], ",", RowBox[{ RowBox[{ RowBox[{"Bmn", "[", RowBox[{"1", ",", "2"}], "]"}], "'"}], "[", "t", "]"}], ",", RowBox[{ RowBox[{ RowBox[{"Bmn", "[", RowBox[{"1", ",", "2"}], "]"}], "'"}], "[", "t", "]"}], ",", RowBox[{ RowBox[{ RowBox[{"Bmn", "[", RowBox[{"3", ",", "1"}], "]"}], "'"}], "[", "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, { 3.766419183588516*^9, 3.76641918385189*^9}, {3.766419644175351*^9, 3.766419672012026*^9}, {3.766420568702798*^9, 3.766420571732875*^9}}, CellLabel->"In[11]:=",ExpressionUUID->"38ad3ae9-9a15-4b6a-97fa-a1f07ef7249d"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ SuperscriptBox["\[Phi]", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], ",", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"1", ",", "2"}], "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], ",", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"1", ",", "2"}], "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], ",", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"3", ",", "1"}], "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "}"}]], "Output", CellChangeTimes->{3.7664196834534383`*^9, 3.7664197841441655`*^9, 3.766420717480363*^9, 3.766425961813464*^9, 3.7664263123977523`*^9}, CellLabel->"Out[11]=",ExpressionUUID->"9f891074-7c20-435c-95fc-be074079f93b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Psi", "[", "t", "]"}], " ", "=", " ", RowBox[{ RowBox[{"-", "I"}], " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Chi]", "[", "1", "]"}], "'"}], "[", "t", "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[Chi]", "[", "2", "]"}], "'"}], "[", "t", "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[Chi]", "[", "3", "]"}], "'"}], "[", "t", "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[Chi]", "[", "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}, {3.7664191523050566`*^9, 3.766419155025282*^9}, { 3.76641967649098*^9, 3.766419680231065*^9}, {3.7664205728782997`*^9, 3.7664205758595514`*^9}}, CellLabel->"In[12]:=",ExpressionUUID->"f5fae3c4-ef47-4203-9e96-7d085038432d"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Chi]", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Chi]", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Chi]", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Chi]", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]], "Output", CellChangeTimes->{3.766419683531582*^9, 3.766419784206689*^9, 3.7664207175272303`*^9, 3.766425961882535*^9, 3.7664263124693794`*^9}, CellLabel->"Out[12]=",ExpressionUUID->"042deaf7-594d-427a-9309-47b4594be0e9"] }, 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[{ OverscriptBox["\[Phi]", "."], ",", SubscriptBox[ OverscriptBox["B", "."], "12"], ",", SubscriptBox[ OverscriptBox["B", "."], "12"], ",", SubscriptBox[ OverscriptBox["B", "."], "31"]}], "}"}]], "Output", CellChangeTimes->{3.766419683584114*^9, 3.7664197842691374`*^9, 3.7664207175809097`*^9, 3.766425961948187*^9, 3.7664263125319004`*^9}, CellLabel->"Out[13]=",ExpressionUUID->"1476eb31-2699-4daa-9a94-615585221920"] }, 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["\[Chi]", "."], "1"], ",", SubscriptBox[ OverscriptBox["\[Chi]", "."], "2"], ",", SubscriptBox[ OverscriptBox["\[Chi]", "."], "3"], ",", SubscriptBox[ OverscriptBox["\[Chi]", "."], "4"]}], "}"}]], "Output", CellChangeTimes->{3.766419683637971*^9, 3.7664197843316593`*^9, 3.766420717626787*^9, 3.766425962018922*^9, 3.7664263126198606`*^9}, CellLabel->"Out[14]=",ExpressionUUID->"e1800a91-d4db-44da-9e45-03015aa5e6aa"] }, Open ]] }, Open ]], 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[{"\[Phi]", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{"Bmn", "[", RowBox[{"0", ",", "1"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{"Bmn", "[", RowBox[{"0", ",", "2"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{"Bmn", "[", RowBox[{"0", ",", "3"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{"Bmn", "[", RowBox[{"1", ",", "2"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{"Bmn", "[", RowBox[{"2", ",", "3"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{"Bmn", "[", RowBox[{"3", ",", "1"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{"\[Chi]", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{"\[Chi]", "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{"\[Chi]", "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{"\[Chi]", "[", "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, { 3.7664191551977663`*^9, 3.7664191844418383`*^9}, {3.7664196904929276`*^9, 3.7664197483512063`*^9}}, FontSlant->"Italic", CellLabel->"In[15]:=",ExpressionUUID->"f16a7014-9edd-4a83-8bb8-ca1541272574"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"\[Phi]", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{"Bmn", "[", RowBox[{"0", ",", "1"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{"Bmn", "[", RowBox[{"0", ",", "2"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{"Bmn", "[", RowBox[{"0", ",", "3"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{"Bmn", "[", RowBox[{"1", ",", "2"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{"Bmn", "[", RowBox[{"2", ",", "3"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{"Bmn", "[", RowBox[{"3", ",", "1"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{"\[Chi]", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{"\[Chi]", "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{"\[Chi]", "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{"\[Chi]", "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "}"}]], "Output", CellChangeTimes->{{3.7664197362338276`*^9, 3.766419748743143*^9}, 3.766419787834895*^9, 3.7664207176628075`*^9, 3.766425962090029*^9, 3.766426312703636*^9}, CellLabel->"Out[15]=",ExpressionUUID->"4d811fde-6771-4e93-8e33-032682c07b5c"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Symmetries, Constraints, and raised indices such as Bmnup, 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}, 3.766419184614403*^9},ExpressionUUID->"65102be5-a054-4c68-82da-\ 5d568c24d914"], Cell[CellGroupData[{ Cell[TextData[{ "\[Chi]up[a] := ", Cell[BoxData[ FormBox[ SuperscriptBox["\[Chi]", "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}, {3.7664191578082943`*^9, 3.766419158214187*^9}},ExpressionUUID->"6c41c663-34cc-4984-9ec1-\ aa5934fb2ff1"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Chi]up", "[", "ai", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", "=", " ", RowBox[{"RaiseFermionIndex", "[", RowBox[{ RowBox[{"\[Chi]", "[", "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}, {3.7664191586325073`*^9, 3.766419158808502*^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}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.766419757775501*^9, 3.7664197940450225`*^9, 3.7664207177312155`*^9, 3.7664259623116503`*^9, 3.7664263128283033`*^9}, CellLabel-> "Out[17]//MatrixForm=",ExpressionUUID->"80bfb593-94ee-4a06-af64-\ 25e8b02e23d4"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"\[Chi]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}, 3.7664191589912896`*^9}, CellLabel->"In[18]:=",ExpressionUUID->"a82c1de1-716c-43b3-8a86-ec5a486e94d1"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"\[Chi]", "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{ RowBox[{"\[Chi]", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{"\[Chi]", "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"-", RowBox[{ RowBox[{"\[Chi]", "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}]], "Output",\ CellChangeTimes->{3.766419757837984*^9, 3.7664197941075077`*^9, 3.766420717778122*^9, 3.7664259623806562`*^9, 3.7664263129001117`*^9}, CellLabel->"Out[18]=",ExpressionUUID->"08547388-ca14-460d-82ec-713622fae682"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Symmetrization", "Subsection", CellChangeTimes->{{3.7664202176209445`*^9, 3.7664202190953517`*^9}},ExpressionUUID->"bf92f23c-0ca2-429a-8c4c-\ 9a75a5e8b654"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Bmn", "[", RowBox[{"1", ",", "0"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "=", RowBox[{"-", RowBox[{ RowBox[{"Bmn", "[", RowBox[{"0", ",", "1"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Bmn", "[", RowBox[{"2", ",", "0"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "=", RowBox[{"-", RowBox[{ RowBox[{"Bmn", "[", RowBox[{"0", ",", "2"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Bmn", "[", RowBox[{"3", ",", "0"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "=", RowBox[{"-", RowBox[{ RowBox[{"Bmn", "[", RowBox[{"0", ",", "3"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Bmn", "[", RowBox[{"2", ",", "1"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "=", RowBox[{"-", RowBox[{ RowBox[{"Bmn", "[", RowBox[{"1", ",", "2"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Bmn", "[", RowBox[{"3", ",", "2"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "=", RowBox[{"-", RowBox[{ RowBox[{"Bmn", "[", RowBox[{"2", ",", "3"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Bmn", "[", RowBox[{"1", ",", "3"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "=", RowBox[{"-", RowBox[{ RowBox[{"Bmn", "[", RowBox[{"3", ",", "1"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Bmn", "[", RowBox[{"mu", ",", "mu"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "=", "0"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}], ";"}]}], "Input", CellChangeTimes->{{3.7664202207411003`*^9, 3.7664203053656*^9}}, CellLabel->"In[19]:=",ExpressionUUID->"853d3fa7-a675-4927-aa24-9c7971bfd5fe"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Bmn", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}], "//", "MatrixForm"}]], "Input", CellChangeTimes->{{3.766420308528251*^9, 3.7664203248664136`*^9}}, CellLabel->"In[26]:=",ExpressionUUID->"e49310a3-8f8b-4171-9148-8725416fc4c6"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{ RowBox[{"Bmn", "[", RowBox[{"0", ",", "1"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], RowBox[{ RowBox[{"Bmn", "[", RowBox[{"0", ",", "2"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], RowBox[{ RowBox[{"Bmn", "[", RowBox[{"0", ",", "3"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}, { RowBox[{"-", RowBox[{ RowBox[{"Bmn", "[", RowBox[{"0", ",", "1"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "0", RowBox[{ RowBox[{"Bmn", "[", RowBox[{"1", ",", "2"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], RowBox[{"-", RowBox[{ RowBox[{"Bmn", "[", RowBox[{"3", ",", "1"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}, { RowBox[{"-", RowBox[{ RowBox[{"Bmn", "[", RowBox[{"0", ",", "2"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], RowBox[{"-", RowBox[{ RowBox[{"Bmn", "[", RowBox[{"1", ",", "2"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "0", RowBox[{ RowBox[{"Bmn", "[", RowBox[{"2", ",", "3"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}, { RowBox[{"-", RowBox[{ RowBox[{"Bmn", "[", RowBox[{"0", ",", "3"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], RowBox[{ RowBox[{"Bmn", "[", RowBox[{"3", ",", "1"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], RowBox[{"-", RowBox[{ RowBox[{"Bmn", "[", RowBox[{"2", ",", "3"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{{3.7664203185166245`*^9, 3.7664203252776327`*^9}, 3.766420718187863*^9, 3.766425962480935*^9, 3.766426312987877*^9}, CellLabel-> "Out[26]//MatrixForm=",ExpressionUUID->"86b4de55-640a-46cd-ba64-\ a2f53e42d7eb"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Bmnupup, Bmnupdown, Bmndownup", "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}, 3.766419184742447*^9, {3.766419807482194*^9, 3.7664198195860853`*^9}},ExpressionUUID->"778edc5b-aa18-4a83-ac0d-\ 00833534239a"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Bmnupup", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"RaiseSTIndex", "[", RowBox[{ RowBox[{ RowBox[{"BmnHolder", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "UP", ",", "UP"}], "]"}], "/.", RowBox[{"BmnHolder", "\[Rule]", "Bmn"}]}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "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}, {3.7664191848830414`*^9, 3.766419185031397*^9}, {3.76641982278924*^9, 3.7664198432273407`*^9}, { 3.766425970102853*^9, 3.766425977755177*^9}, {3.76642613663045*^9, 3.7664261433994913`*^9}, {3.7664262125984592`*^9, 3.766426223532461*^9}, { 3.7664262697846537`*^9, 3.7664262731810036`*^9}}, CellLabel->"In[27]:=",ExpressionUUID->"f06fe64f-4516-4bf0-9680-aaabe6467cda"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Bmnupdown", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"RaiseSTIndex", "[", RowBox[{ RowBox[{ RowBox[{"BmnHolder", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "UP", ",", "DOWN"}], "]"}], "/.", RowBox[{"BmnHolder", "\[Rule]", "Bmn"}]}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "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}, {3.7664191848830414`*^9, 3.766419185031397*^9}, {3.76641982278924*^9, 3.7664198774198103`*^9}, { 3.766425984603014*^9, 3.7664259876446304`*^9}, {3.7664262858967195`*^9, 3.76642628801312*^9}}, CellLabel->"In[28]:=",ExpressionUUID->"42cfa974-49e3-449e-aa4d-ba4afc0649ae"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Bmndownup", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"RaiseSTIndex", "[", RowBox[{ RowBox[{ RowBox[{"BmnHolder", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "DOWN", ",", "UP"}], "]"}], "/.", RowBox[{"BmnHolder", "\[Rule]", "Bmn"}]}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "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}, {3.7664191848830414`*^9, 3.766419185031397*^9}, {3.76641982278924*^9, 3.7664198432273407`*^9}, { 3.7664198828938303`*^9, 3.7664198873075104`*^9}, {3.7664259909690995`*^9, 3.7664259936447*^9}, {3.7664262918001547`*^9, 3.766426292964232*^9}}, CellLabel->"In[29]:=",ExpressionUUID->"dc4d0ef3-3799-47a3-8fb3-6ea4d5da9984"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "The Field strength, covariant and contravariant: \ Hamn[\[Alpha],\[Mu],\[Nu]]:=", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["H", "\[Alpha]\[Mu]\[Nu]"], " ", "=", " ", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], SubscriptBox["B", "\[Mu]\[Nu]"]}], " ", "+", RowBox[{ SubscriptBox["\[PartialD]", "\[Mu]"], SubscriptBox["B", "\[Nu]\[Alpha]"]}], "+", RowBox[{ SubscriptBox["\[PartialD]", "\[Nu]"], SubscriptBox["B", "\[Alpha]\[Mu]"]}]}]}], TraditionalForm]], "None", ExpressionUUID->"eb8aebdc-4464-4c08-99c1-c0ea702eb5e6"], " , Hamnup[\[Alpha],\[Mu],\[Nu]][t,x,y,z] := ", Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["H", "\[Alpha]\[Mu]\[Nu]"], " ", "=", " ", RowBox[{ RowBox[{ SuperscriptBox["\[PartialD]", "\[Alpha]"], SuperscriptBox["B", "\[Mu]\[Nu]"]}], " ", "+", RowBox[{ SuperscriptBox["\[PartialD]", "\[Mu]"], SuperscriptBox["B", "\[Nu]\[Alpha]"]}], " ", "+", RowBox[{ SuperscriptBox["\[PartialD]", "\[Nu]"], SuperscriptBox["B", "\[Alpha]\[Mu]"]}]}]}], TraditionalForm]], ExpressionUUID->"5a0114d8-6949-43b3-a2a7-99aa0800652f"] }], "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}, {3.766419894292805*^9, 3.766420032718756*^9}},ExpressionUUID->"3f1ea2b0-6032-4fee-802d-\ 0bd9d2cf462b"], Cell[BoxData[ RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Hamn", "[", RowBox[{"\[Alpha]", ",", "\[Mu]", ",", "\[Nu]"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"Bmn", "[", RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "\[Alpha]", "]"}]}], "]"}], " ", "+", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"Bmn", "[", RowBox[{"\[Nu]", ",", "\[Alpha]"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "\[Mu]", "]"}]}], "]"}], "+", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"Bmn", "[", RowBox[{"\[Alpha]", ",", "\[Mu]"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "\[Nu]", "]"}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "0", ",", "3"}], "}"}], ",", 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}, {3.7664191853282003`*^9, 3.7664191854700594`*^9}, { 3.7664200378515806`*^9, 3.766420117503952*^9}, {3.766425922830758*^9, 3.766425934215382*^9}}, CellLabel->"In[30]:=",ExpressionUUID->"f10d90b7-7be8-4953-9a59-dd8b6fec91f1"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Hamnup", "[", RowBox[{"\[Alpha]", ",", "\[Mu]", ",", "\[Nu]"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"RaiseSTIndex", "[", RowBox[{ RowBox[{ RowBox[{"HamnHolder", "[", RowBox[{"\[Alpha]", ",", "\[Mu]", ",", "\[Nu]"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "UP", ",", "UP", ",", "UP"}], "]"}], "/.", RowBox[{"HamnHolder", "\[Rule]", "Hamn"}]}]}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "0", ",", "3"}], "}"}], ",", 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}, { 3.766420128918853*^9, 3.7664201751896486`*^9}}, CellLabel->"In[31]:=",ExpressionUUID->"a8045f24-dd5b-4a8a-ae6d-a34b320487a0"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Hamn", "[", RowBox[{"ap", ",", "mu", ",", "nu"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"{", RowBox[{"ap", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.766426001427541*^9, 3.7664260160769696`*^9}}, CellLabel->"In[32]:=",ExpressionUUID->"210346a6-1dd4-46cf-9054-076af6b8a447"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "1"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "2"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"1", ",", "2"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "1"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "3"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"3", ",", "1"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "1"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "2"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"1", ",", "2"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", "0", ",", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "2"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "3"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"2", ",", "3"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "1"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "3"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"3", ",", "1"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "2"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "3"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"2", ",", "3"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "1"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "2"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"1", ",", "2"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "1"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "3"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"3", ",", "1"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "1"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "2"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"1", ",", "2"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", "0", ",", "0", ",", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"1", ",", "2"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"3", ",", "1"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"2", ",", "3"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "1"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "3"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"3", ",", "1"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", "0", ",", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"1", ",", "2"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"3", ",", "1"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"2", ",", "3"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "1"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "2"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"1", ",", "2"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", "0", ",", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "2"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "3"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"2", ",", "3"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "1"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "2"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"1", ",", "2"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", "0", ",", "0", ",", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"1", ",", "2"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"3", ",", "1"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"2", ",", "3"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "2"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "3"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"2", ",", "3"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"1", ",", "2"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"3", ",", "1"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"2", ",", "3"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "1"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "3"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"3", ",", "1"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "2"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "3"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"2", ",", "3"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "1"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "3"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"3", ",", "1"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", "0", ",", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"1", ",", "2"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"3", ",", "1"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"2", ",", "3"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "2"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "3"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"2", ",", "3"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"1", ",", "2"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"3", ",", "1"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"2", ",", "3"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.766426016573324*^9, 3.7664263131404686`*^9}, CellLabel->"Out[32]=",ExpressionUUID->"1f83b3bb-7ffb-48aa-b3dd-d779e9eed0c1"] }, Open ]] }, Open ]], 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[33]:=",ExpressionUUID->"65e8b7f3-0ca3-456b-bfd4-58abb0bc2ab8"], Cell[BoxData["z"], "Output", CellChangeTimes->{3.7664201873584356`*^9, 3.7664207178775163`*^9, 3.766426026296664*^9, 3.766426313199458*^9}, CellLabel->"Out[33]=",ExpressionUUID->"c78069e5-dd9d-402f-9a0a-ced6ec73edd6"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"D", "[", RowBox[{ RowBox[{"UD", "[", RowBox[{ RowBox[{"\[Phi]", "[", 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}, 3.7664192058549986`*^9}, CellLabel->"In[34]:=",ExpressionUUID->"9dbeb415-c297-44bd-a09a-2df894cf21ab"], Cell[BoxData[ RowBox[{"-", RowBox[{ SuperscriptBox["\[Phi]", TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output", CellChangeTimes->{3.7664201874677925`*^9, 3.766420717906094*^9, 3.7664260264372606`*^9, 3.766426313277568*^9}, CellLabel->"Out[34]=",ExpressionUUID->"9142ab13-281f-48f1-a240-2d23448f21c5"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Lap", "[", RowBox[{"D", "[", RowBox[{ RowBox[{"\[Phi]", "[", 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}, 3.766419205979972*^9}, CellLabel->"In[35]:=",ExpressionUUID->"ee4c6f59-03e9-42d6-9a14-eff52b913ea1"], Cell[BoxData[ RowBox[{ RowBox[{ SuperscriptBox["\[Phi]", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox["\[Phi]", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox["\[Phi]", TagBox[ RowBox[{"(", RowBox[{"1", ",", "2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox["\[Phi]", TagBox[ RowBox[{"(", RowBox[{"3", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output", CellChangeTimes->{3.7664201875146856`*^9, 3.766420717999827*^9, 3.76642602651537*^9, 3.7664263133400507`*^9}, CellLabel->"Out[35]=",ExpressionUUID->"df569825-e590-4e3f-b50b-92cfe5699191"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"UD", "[", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"Lap", "[", RowBox[{"\[Phi]", "[", 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}, 3.766419206146443*^9}, CellLabel->"In[36]:=",ExpressionUUID->"cbbd8308-375a-4a2e-9ba8-f5aa44b2bf32"], Cell[BoxData[ RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox["\[Phi]", TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{ SuperscriptBox["\[Phi]", TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox["\[Phi]", TagBox[ RowBox[{"(", RowBox[{"2", ",", "2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox["\[Phi]", TagBox[ RowBox[{"(", RowBox[{"4", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output", CellChangeTimes->{3.7664201875857315`*^9, 3.7664207180467253`*^9, 3.7664260266006384`*^9, 3.7664263134337797`*^9}, CellLabel->"Out[36]=",ExpressionUUID->"52837e31-489c-4217-a580-7a5354f17ec9"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Lap", "[", RowBox[{"Lap", "[", RowBox[{"\[Phi]", "[", 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}, 3.7664192062937717`*^9}, CellLabel->"In[37]:=",ExpressionUUID->"93182930-359a-4f6d-8c9f-c9c311d608a5"], Cell[BoxData[ RowBox[{ RowBox[{ SuperscriptBox["\[Phi]", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "4"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox["\[Phi]", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "2", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox["\[Phi]", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "4", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox["\[Phi]", TagBox[ RowBox[{"(", RowBox[{"0", ",", "2", ",", "0", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox["\[Phi]", TagBox[ RowBox[{"(", RowBox[{"0", ",", "2", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox["\[Phi]", TagBox[ RowBox[{"(", RowBox[{"0", ",", "4", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox["\[Phi]", TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox["\[Phi]", TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox["\[Phi]", TagBox[ RowBox[{"(", RowBox[{"2", ",", "2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox["\[Phi]", TagBox[ RowBox[{"(", RowBox[{"4", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output", CellChangeTimes->{3.7664201876495605`*^9, 3.7664207180935955`*^9, 3.7664260266854124`*^9, 3.76642631350531*^9}, CellLabel->"Out[37]=",ExpressionUUID->"b431c865-3182-4641-bb43-a26ce5d73860"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Lap", "[", RowBox[{ RowBox[{"\[Chi]", "[", "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}, 3.766419159155304*^9}, CellLabel->"In[38]:=",ExpressionUUID->"eb43cfbc-955a-45ee-9174-7bb4f391055f"], Cell[BoxData[ RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"\[Chi]", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{"\[Chi]", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{"\[Chi]", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"\[Chi]", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output", CellChangeTimes->{3.766420187714388*^9, 3.766420718124831*^9, 3.7664260267633057`*^9, 3.7664263135861535`*^9}, CellLabel->"Out[38]=",ExpressionUUID->"606a1d3e-00d2-41e6-8acd-dec5b10bcce1"] }, Open ]] }, Open ]], 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[{"Bmn", "[", RowBox[{"0", ",", "mu_"}], "]"}], "\[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}, 3.766419185614563*^9, {3.7664201971593223`*^9, 3.7664202013741846`*^9}}, CellLabel->"In[39]:=",ExpressionUUID->"5ae39733-84b1-42ef-b5d8-d6e0ffff02fd"], Cell[BoxData[ RowBox[{ RowBox[{"Bmn", "[", RowBox[{"0", ",", "mu_"}], "]"}], "\[Rule]", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", "t", "}"}], ",", "0"}], "]"}]}]], "Output", CellChangeTimes->{3.7664204132573214`*^9, 3.7664207183689137`*^9, 3.7664260299756927`*^9, 3.766426313661951*^9}, CellLabel->"Out[39]=",ExpressionUUID->"916ea5d8-a9c0-4e5c-a460-2b4fe275820a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Bmn", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}], "/.", "AdinkraReduce"}], "/.", "TemporalGauge"}]], "Input", CellChangeTimes->{{3.7390170400027094`*^9, 3.739017071101488*^9}, { 3.739017564761724*^9, 3.73901759197028*^9}, 3.766419185758274*^9, { 3.766420205680316*^9, 3.766420210661667*^9}}, CellLabel->"In[40]:=",ExpressionUUID->"8a51f6e7-4290-41a7-8b37-30e4ca96554a"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"Bmn", "[", RowBox[{"1", ",", "2"}], "]"}], "[", "t", "]"}], ",", RowBox[{"-", RowBox[{ RowBox[{"Bmn", "[", RowBox[{"3", ",", "1"}], "]"}], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", RowBox[{ RowBox[{"Bmn", "[", RowBox[{"1", ",", "2"}], "]"}], "[", "t", "]"}]}], ",", "0", ",", RowBox[{ RowBox[{"Bmn", "[", RowBox[{"2", ",", "3"}], "]"}], "[", "t", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"Bmn", "[", RowBox[{"3", ",", "1"}], "]"}], "[", "t", "]"}], ",", RowBox[{"-", RowBox[{ RowBox[{"Bmn", "[", RowBox[{"2", ",", "3"}], "]"}], "[", "t", "]"}]}], ",", "0"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.7664204133524923`*^9, 3.7664207184157753`*^9, 3.7664260301103325`*^9, 3.76642631372558*^9}, CellLabel->"Out[40]=",ExpressionUUID->"16948b15-2963-444d-a132-9d8f445d7c28"] }, Open ]] }, Open ]] }, 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:eJztnXFoWtsdx932z/7wj/mnfwQyQsBBoAQRZggP/cPSIGhoCeLeCFpeZsJo te2atONpBzWF9r4/XsL2zNYntJJR3zZ5rG6r6+J7L+6hpXHUEqXPNEkxbXyN aZKKCaaaXHfvjVdNqt5rvNckN78PtLT15vZ4zvme8zu/8/ud89OzxtO/+iGP x7v0Y+y30/oh+cWL+qtnfoL9pef8pQHD+b6Pus7/ps/Qd/HnZ3+E/eMZ7NfP fsDj4X/OAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAJwiFURkvP3TKusxDA7bnBPBmeU0etBfBgCODul5jw3ZwXq5 V9a6W1lCSe/VW0gFbpmNGllL4Vl+R+/1u1/NJ0GAAFAz2ZjbJC0qTzEWyVAo CU0nov6/IboOfl6AnQbb5EJ6uzHlBQCukI27DEXp9bridH9wMxF0mGRNO/Jr Ud30xjfZLCcAcIx9Sw8HTT2169rzs5/knCP8FoxPAKBHXdLL7VGf/PoEzH0A QIt6pYeBrn5jkQh2XiDQ3J5ObTFfTADgGgxIL5fbSgZuks6aJgXyCJyeAEAF I9LDZr6YSy8iNx1+YY9uMFtKAOAcDEkvt530/Y7UHk+gdy3CxAcA1WBKernc ht/axidfdNoWWWewlADAOZiTXm7ZOyguRLq0Wf1gdAJAZRiUXmbBqS++qu1G YOMQGp1odm3W7xod6lOJ8Sm6VaYxWu9+PQ9eWXbJrIbvI8bufJ33DiL2fwbj h7F/NBAGpZfLBpFihCdPbYs0YN7bjE9cP2nyrNB82P9Hg0TIew/YkWQTvI0U 0oHPJqYX4i+m7H35uGF+Z7/jaapm+dXU4ocZJqWHLjg1xXc1qR3PWR7W0Mzs uLZJ75ilo3G8yeR8XgX4rf2uWPZ4D8PsgC669KVthCZ8FjlZ7R1D3qVaKn1r 1X9LLjI4oik2itpYmJReLuE2lPTtZmuA3YkkO+vUdWgd0QyNRxOTw4TuRMrB MXfgu3gqS/xzKh6Z+NyoIEotswbWWC3vsSQdtWulyOPSwREXo6AgvtHQO5ri 20qF7+hEqmH/MieGSEalt9virPdtFGyteD9uU9ujVKkW+Pou5upv5fNa9aO+ WJkkw+zLCUsXH1xD7ICmk2/3Jra8DSKnyF7Safa9ofOabPyhRd6hd87QGGmP BGxKr30kxJ73YnvG0a2gZa6gC+4BMa+1z14lunvjMSIV8Dptkca7W9CXnitd pdXGFnyJ9vPQ4Rhb0EzUriYNJCG2cKNqRTQVGtO0cytQik3ptSDBLFPl3AO6 EfxESstWwSdHkeCXY9PVsyowu6iHJ7jkWWm49o6j9LBvPe/Ukl9aYHQvVe0o eFZpB+cW40dUem985lNa5zx1S2QidvUH/a55yoJshUbaeQZXnK0SA7vJLrmN 5IJPpHfFKjYluuwfVgpUfwhxbQOITemdtEdZSl5Pegebzjpj76iew6e8E9rx Wer1YC4Xd/WC9BoIuuTuJ7XH1zoraC8VdRhaRZfdi9zb+mFUepsBa3OJgWNw J5gq5i62k96rQrWDes7Dg7p7kOBbWm/FpMfiNA28T0n4E7+/3KBH7AcJekZD a1wyNEkYlR4+cRSVx5qXJRlEuk7an1HNqGgmMnaKdiD3VsTWSUfOAGMQQ2i+ t7T1u1/trvut1PRtjUA25Fng6HDIpPS2o/aTxXeJB73LjBVz13/zzH5Sbg1Q zmWp0IiB9lbd1orncjtsLjQYbOFAak846E0WP0Czi26TSKQZC9Ue7nJUYFB6 pYMYDbfVvlnxGAU0FmUbfquS/nYtZvwo2RorgIqU2JxN13zr+cZCk48QhUhu eRjnlEtzDwxKbz00UtgnrbJwrhd8bqVelKEbgZvKkSeUjpj804suffNVbxKO NGwwpX5OBRIk5r10xKETt+ruhLnm0twDc9LD7cDCpNdu8nzP0oCFu1GppbcW sOrzTUlNKmzTtpknaT4NMAgac2rze+uCDmyoJCKLBMcimp0p6eE+DUXhPdJP gqxlhOAbcEKqGQqzNsW/pTeLETHYwoM71OJ4bqkXKB2xFcP3bve1Vo874g5M Sa80Kk96wcPm+RC4H7V6qDP6LjTaoXEu0ClEOmzXtEks36weVGMfc+nh3jBl SSG7rk2yZS8dMhiRHjFx5E12+tk32+n4//5hHybucRCKVUbE9SSB/SCaXp6Z jlTJo9yatnUKRUMTlQP/sNZU0dra2AmcFg15WPIIAdSg675rTfn+16yyPU3X +8L99qtGw4T0MlGHlrw2hV7gAZqO+WwDEn6TzHTHF02k0e308vR9c7fCct9/ 79f4u6pFMhPjJF+NTFUQH27DtBvcixSFyL5+PPqhgCe74o0fmuY4lhS3GIQ0 tmurUV+/ajB1Sy+fcbMz41WWQwnkgdXtOvvuJGU8/4481aza7jYZ915hUYDO O9RUOfJoasZtxordrBoNcnfn6GiALj24IOLTaHeq99TbrxpMfXcupF94irrr sky8pLbbcNcxVj98kcm9uNcuLewMCjpt01UHp2RopJs45+NDxPN8t3awb9TP r5aDsJkI/cWiwtqiies7R0cAQi+SlhbS5Nz3djAz/aqR7Ft6mdXw34c1J8gV PM27TkjJCAzO2PtGfaGKaETC5Ksat1IkOsQ1FUvlK/y1x3iigl2RWYt67YNq wqchUg1PgO4OGNxkUkmH/vXCj+R70j6DoJjrVw1jf/frBe6P5Tsw0YctrvAq ndThYoJkhezIZBAhNijo5c2V3rSCy1+sGRz584OHfzIISyO3t9Nr8fnwtw/G Px3skZATtMLknAY784BB34btfW07l3Ss+8zkvNdk9tV4hCvD/Yo16rtVtlcp Lp6+IlKabJ7oCm374I3P3En8oNTsK3egFLnFQz8ShlxW82iDTZGfeuY4lOt8 VNmMez6WFrfOSyLKTiDBzZrah/l+xQ6M3KX+2fiDR9Fa71IvOLIqbIijcZcO F1Gtbi7MjPzq7nUdlQCxUeX6XW90DYzMg4fISmgr9ZJtrXgukRFlypFQLQeO sdWvuAORBo7D17nKefMLBrmCdgBYKWg29TLsQVR4JTe1tOw0I78FHylu2Jz/ Cc4kahwpAJYgshLalHuccqRAeLU6Q1juVxyg4M+pVLFrAausythFA3QjcKMN e0PzcKA2iwVoHGgqOKrq3Ov/xz947lCT670azjdoQL866hSq6ITR87rM53iM imD32LUatN1wRulHN+QrmbXseKBusvOu/k75ta8TZYZG4mSqPD12uu3egH51 1EE3A8PNeBXJkGAZS548ubrEIN/wW9tNNezyvHsy0iFgMzseqA90ZQrpFunG oxVMf/ygAHJhTntdxn6/4gB4iiuvvBsKHwx3HFyFT3Hrsb3fTftYcCJkusro BxwwG3POAZF8eDJRuc/nB08C+qdSs9uvuMHOvqdg7zHgqWeuIbWiV/tB6diF LnmHemo5kL8QAE/fVgEaxs5dCZTZQKVZDKfonmfFbr/iCuln9/o7+fwu8/1n a1kUv/HAe9soV5ruhVYzrzwXpDweZo98l0aTc19eVeidc3QO8duhkPZVcs4A cDhA09FxnWivS7Psk6Tpgi/Oqian7Ia9fsUlsm/C7jHLuW4xXyhWfjQ0+mXh njU0Hfuv48Y5lZjPl/SY/xqp5XyA4olMhyg+FsgV7koo49IsC36ef3NefIIB 1+KeKKlsam29vH7Z6VcAFUXnGOvXGwG1QAT7ddQSpk4c1E9qr8wVRXCEzqGi uCUkok7TAxoG+v3kNaWoVgOv6BvBxFd6Md/KFHJaeoDnCQDvU7zXrzFX2QK0 QGNfnNXv52AxdC041psPjBdofu+fexWfe/SF5YyE+8eUHTUys+4r6paWU6bx fVwQDBxKsonIv+9a8Xh9IR4QKDfAlfcAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAALDN/wG4HiTE "], {{0, 83}, {297, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{198.4285714285718, Automatic}, ImageSizeRaw->{297, 83}, PlotRange->{{0, 297}, {0, 83}}]], "Input",ExpressionUUID->"21aac4c5-07f5-4728-bb39-6aa8375df7c8"]], \ "Subsubsection", CellChangeTimes->{ 3.7664208043872857`*^9},ExpressionUUID->"e4f095fe-bc53-46aa-b46f-\ e8b967f2e941"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Da", "[", "aa", "]"}], "[", RowBox[{"\[Phi]", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "=", " ", RowBox[{ RowBox[{"\[Chi]", "[", "aa", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"aa", ",", "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}, {3.7664191593106594`*^9, 3.7664191859144974`*^9}, {3.76642044875804*^9, 3.7664205026444235`*^9}, { 3.766420839375256*^9, 3.766420860909938*^9}, 3.7664214903104944`*^9}, CellLabel->"In[41]:=",ExpressionUUID->"9ccb58c1-88fb-4756-9cfd-7d8160d716e0"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"DColor", "[", RowBox[{ RowBox[{"\[Phi]", "'"}], "[", "t", "]"}], "]"}], " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Da", "[", "Color", "]"}], "[", RowBox[{"\[Phi]", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "AdinkraReduce"}], ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"Color", ",", "1", ",", "4"}], "}"}]}], "]"}]}]], "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}, {3.7664191861886635`*^9, 3.7664191863292494`*^9}, {3.766420514393222*^9, 3.7664205265895944`*^9}, { 3.76642074605241*^9, 3.7664207552940207`*^9}, {3.7664208709833775`*^9, 3.766420936623093*^9}}, CellLabel->"In[42]:=",ExpressionUUID->"9ab442f3-a955-4e99-8c15-318a1fbd965d"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"\[Chi]", "[", "1", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], ",", RowBox[{ SuperscriptBox[ RowBox[{"\[Chi]", "[", "2", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], ",", RowBox[{ SuperscriptBox[ RowBox[{"\[Chi]", "[", "3", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], ",", RowBox[{ SuperscriptBox[ RowBox[{"\[Chi]", "[", "4", "]"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "}"}]], "Output", CellChangeTimes->{3.7664210032140007`*^9, 3.766426039678314*^9, 3.766426313850541*^9}, CellLabel->"Out[42]=",ExpressionUUID->"bfb85902-4f7e-4ba8-9e9b-a489958de457"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"PrintDColor", "[", RowBox[{ RowBox[{"\[Phi]", "'"}], "[", "t", "]"}], "]"}], "=", RowBox[{ RowBox[{ RowBox[{"DColor", "[", RowBox[{ RowBox[{"\[Phi]", "'"}], "[", "t", "]"}], "]"}], "/.", "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}, {3.7664191865087566`*^9, 3.766419186637117*^9}, {3.766420761053528*^9, 3.766420766711151*^9}, { 3.7664209457537985`*^9, 3.766420981370968*^9}}, CellLabel->"In[43]:=",ExpressionUUID->"657ec8e9-6b6d-4143-b997-baaabc8f48f0"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { SubscriptBox[ OverscriptBox["\[Chi]", "."], "1"]}, { SubscriptBox[ OverscriptBox["\[Chi]", "."], "2"]}, { SubscriptBox[ OverscriptBox["\[Chi]", "."], "3"]}, { SubscriptBox[ OverscriptBox["\[Chi]", "."], "4"]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{{3.766420739417203*^9, 3.7664207677809815`*^9}, { 3.7664209586943254`*^9, 3.7664210071188684`*^9}, 3.766426039725172*^9, 3.7664263139130287`*^9}, CellLabel-> "Out[43]//MatrixForm=",ExpressionUUID->"f0c819ea-2648-48ab-b333-\ a0cbfcbf9b13"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzt3XFMG1eeB3Dr7p/7Y/44/uQPJE6WJf+BFCFk6UCoMn+AElnCUSqEaCLL RMlBVGVNmgs0q0KqC6RqXF3X6BKz27W2sXKKq42Vu3jv6vbwbuueIBecraNg pU4TImhwGxIgyEEmGIbzjD2DAY89Mx7PjM33I93prgnOePC89/V7v/fePxy3 Hfmnv9FoNGf/LvW/jnQPtLz3Xvf5t/8+9f90/OrsqZ5fnTxx6Ff/fLLn5Hv/ ePxvU//xvdT//JL6+9T/vQUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAABQTtaXwtd6W064owmlrwQAAACAy/ry k4mb9uMGQqPRGO2huNLXAwAAAMAgl2fuhUKhiYDvpvvqh6fbG6jAkoHcAgAA AGqSDNm1Go3W2GHp7R9xesZDMy8mqP+C3AIAAADql04yyC0AAACgfsgtAAAA UC6QWwAAAKBcILcASGMtNnnDYbfbLw/arBZLh1H3lnN6Q+mLAgCoMMgtANKI R33OVGoZtrWnHynC6o2RSl8UAECFQW4BkFbMa6EeqOo218NNpa8FAKDSILcA SIlcmxyppR6oxsHgotIXAwBQcZBbAKSUiLo6qOep6qx/EdUtAABSQ24BkBA5 67XqqOepzRXFLBEAgOSQWwAktBLor6Zqcg/Yp9aUvhYAgAokX25JJhLJUr4+ 7Geba4k3ali7sxF21FNP0wGb/xelrwUAoBLJklvIxNOvRt4xO+6tcv6VeMhu 1OyhtYeQdfafOa9Fu/ezYPHOcf4EOes9buq99telpLLhZW3GfZS+2qPuGQy3 AACUQOlzCxm/77I26KzXo4k8fQpyC7CE55YtMhn7eqhF3zL0dUzJ6PKL33aA uth6Rxg1uQAApVDi3EKHlnqi/Uo4nr8dT+cW1NjAXsmYt6dQbtmio8uXAwat ktHldXCwht66pT+wklyMBq4Nnz7cQBBaY5dt+Pp3c6/VMJMFAFDeSppbkj+N Dx0idDbvbKLQX0VuAS48c0vKRjx8pZ2ot7rux5WICBsRZzP1KNWYhn/nsLR1 jtycmllMkJuJ2MSYtV6jOzY69RLRZY/cY6286YwdPf0jTs946NGLfEO6SiDf TI+1EaLfWnWD6WhP/yWnJxCeW8HIM0BGCXNL/AeXpUpjfD/AZ7Nz5Bbgwj+3 bAn81EmLLW7RaIhDQ+M/ZXc05Ly3uyrVx57xxdblvi61S8z4nfa04XMWo25X 322wnL9s53B50NZp3J5TJJosF6/9eWZFPellM/Z//+78V/paPxrsadsx/alt tw1zvjP6zb3b3lDN/G29qf8PGLIDoJQqt2ysTH3aShD6gfFFXk8acgtwEZRb trbWo+4unYbXKJ+0mOKWPaGFQv7oNtdoNLWH3Y+wrUs+yVlfX+N25946Flkv 0IKQiYXoxE27tSkzsEE09zi/nUuo8DZnF241DQSeF24ak4vR8as9Bia9aN8e Cez5aAHsN6XJLeTKHXtrjZBvl8gtwEVgbkn1Y9O/bScIXa93Vs5CF6a4parX l6tDYvqsTs8cvjPnk/51MyzeGN8fXFsIufuMNensom3/OBBT2ZKuzYeuNiaB VJ8PrPBMVunCrSpmTKljNLyMTxDsayXJLSthx2FCU2t2RXiPiSO3ABehuSXV 0j8PDDRpNI1n/POytfBMcYu2yzOT4x/deOBsprserJErQHRuoaQXAmR6eMNp 9/Qr9XTxZMxrZWpdqmx+IYdXJZ/7+tgZI8LsihYagwKoZCXILZmpfP0HAQHn syC3ABfhuWWLXI+6zKk+wnAxuCTPguTURfbSnVKHK5prfmrRb0t/Y8YS6QKK yi1bu6JLy8VxtYy6bK4EzjPZo8bs/lFY8sjsw5xmcoTRTsI+Jn1ueRkcTH3v rG51PhBSgIjcAlxE5JZU7/XM11unETboV4wXgf4G6jE6YA+t7e2RyLWQ/UC6 J+3xLchxPeWr2NySQi59M8RMrFR1fvagwCYM8lgJ2VuZd2V2Rrj34MyJfOrp rGV+XOCzAFBhpM4tmcEW4rhn9o2Qn0NuAS6icssWuTp5KRVcNPoPg3wLCYpA 7e9PDbdQO7fk+GPmkGhNdZvroQoLRtVEgtxCrQuY/Jip7q1ptd9RfolRdnFL zYWg4IVB2TW9+BTB/iZxbomHHSYNZ2livh9EbgEO4nLL1tbqXXsjNWHZ7Z0t ea8V81qoh6i20/M0x7/F9lnEMfcTlUxbqJYkuYU++qFbz1SEvOOKChzfkFoR xS00tj4K4y2w75GLfqbeq77P/3OxzfvqxHBd6uGs6/U9E/hSyC3ARWxuYVI0 cdj9pNTfTjO5pXl48tWePyPXI2P0DAH/bQH2M4lyy9bmSvBDJrhoqrq98pVo 57yYYopbUp+hGbd5+6Zw1FABVKbk8kw4RJmaDPzppvvTPpN++2nQdQ7+/sYt f3CK/huhezMCl9sxDQXR640JXTKB3AJcROcWZqpIhnY+swg61weYXJwcaaOf L2w6x4dUuYX9GpV2xBl5LeFVClRcccvW64jzCHtLlM5gADKLhxyWDgsfxzpM owIXbDKliWZ3roWghS4MuQVyE51b2FUYMtQDpDeda+gPvNj539ObyVCb0V34 tujxzH1ButzCtkj0YFfd8IRic0XZxS11lyZXhX0QyNjtUzomgBGHHeFcJVQA IELmK2dVs/OB8PJ95BbgUkRuYfewFZOlBSFXQ5807p4JSp9SXZN7B13ITcLc sj7n6d5+KeGBQSrkrKeLyR0cldvckjPeXjZ91VvdEUwRAUiEXenZOBgUXHQm cW5JLka//cIxcMJEne6RPo33WiC6iI4jo8zuTzG5hVnIU2XzPS/x+yNfTbtO 6oiDAzfDC4lNMvE8Qu3QXqM1/doTflncv72+NH3bbjvcQPV9OqOl3+76r1BM oT645CTMLVnLDkRO0EhiY9F/lqmp1VkFVYmnj6ZlQ4tCB4YCVCh2pWe3Z07E JL5UuWV9KewZyC7a2VZvHbuzUHDj99V7jkNDvLfgLjvleH+KyS3k6+CFGvFx Wui/thoL3RpNB0KtsdN26dpX92PFHpSzFhu/2Np46ur4g7nY06lUNMrMFzT3 ukX0YtSrtfUJX88iHylzCznn6dx+LTEFsVJYDA6yJy7xL7Uik0sPbg4czIQW 3VF74KnajrsGKHPMgLzIbcwlyS1Um9yS79R4XedYOG9Tvz7vffdAxS76KNP7 U0xuYXsucdOXyqM2RKrpdj9mBgrIheBQC/P74nc237aNpYnLLfoed1TNs7FS 5patBV9P1ge+dnhSgVXo2UuYc29LuEf2cYpEk9V+e3oJFd0AUmP23RJ7bFzx uWVHp0w0HD49+FHm+PjT6QH29B/krWpbvWtvOqb4Vg+lUb73p6jcsrU2OVxL v7Oy3Kg2EXV1NdrvZt/xzNaOmeQyGn7D83nbiE9/btW3j0y8UHcqlzS37Jwo KvbVRMlewpy3uCUZfzEXDQW8v/8Xi4GewG3pGb729f2KnRAEUBrzvaZmMChq tWGRuYVM/PCHTqoxrzb0XPHfj+0cUCWTy48nPBfatYQm324e6/PeUzWVucaw rO9PcbmFXcrR7IyU4YALmVh5tXum6VXIfpDpCZsHgy/5vAxdIdzU7Xmk+u/t pcwtChwOlV3cwlMqsZyyeyZm4mqtOFMn8if/+4e0hW9v0QhD1+/DFfnldr9h DsMVPRpfXG5J3He212qIQ4O+R9zTHBvxiIc+5v6gPbR3c7D09qqm3H9U7sr7 /hSXW7bmfT10PU/VWb+Agz7VjDk1klbd5y84bUfGw2Od9arY7r6wUuYWBQ7j zipuIU64p5/F8puLhoO3XRetBmrtvKHjA5eKC+ZVBrkFhGGrH0V3LsXkltWo 6x2C11LTjfiDzzqrcu7ksLEY+OBAZQ62lPv9KTK3pD9aGrEV46pEzni6mBa6 4FKp5Kyvr0nX650tWHStCpWVW7KLW9pcUb412hvxqHeghW5TNfWW0e9i5fG7 A5CGVBkz7z/CNjUK5BZycXxAX2f1PObXIMWnnZ1E9fndK2I2H7kPt/Ebci8z 5X9/pMotlbQ7UPK5z8Z0h3kPYCJfTIyYqtqvhPOdibwWm7zhsNvtlwdtVoul w6h7yzmt2NBUKXOLgOQgjaziFuKAfUpIVTC5/vh6V+Z3TJRP7ASQgLy5RXTX IDq3UEUX1WZXdJ3vQ0334007V8XSm4a1jkV4v0j5qID7U2RuKf7DqUbkc18v E1yILg9HcIlH3T06/TnffP4OMx71OVOpZdjWnu7kCas3ptijIGluYaqyMzdK 7trs7OKWvXspF5RdyFRrdkUqZbgQoABZckvxX2nF5hZy1ms1CjwRcnlyuGXH dx/q6NhmOU4Nll8l3B+pckuFnaKbtYl97hPB6BVkVR2jYd7njGVOh5ThWIQ8 JM0tmXeUuU2yl+UW/B0VwNQN0qrPVUqBFpQUuRp2dRt1UnX9ORCGjpFx5b7a SEW53LL59E+XPdPCVgrS1TjbI8bkm/Bok/7DYEXuNVcJ9we5JafsI4b3nsCe LlUyDvjneHeW5NrkSC31arLs0cdJytyyGXW1bb+WiBGP4qxN2Q8w9dPipqgy h6ekHbD5f5H+IqHS7DgJvUS4l52WEeVyiziLflsNs7qEfB4YeKvJ8f0bOf7h MqGu+4PcwiFzaiRl58YgZHLe16fXF9pFcBf2TARlF15JmFuyo50sZz3s+ue3 U5PQ4hbGjvoc+ceLoEyRyfjLAivXivHzckVs3VxuuYXa06PdEaZ2mqF28ao+ 5n6iwD6a6qWu+4PcwiVrGqLmQvB1pikhV+7YW/UtQ18LW4RCTSnSY8uyF6/u JGFueR12HNzu9TmrgEok9UZ6mdEWsUM9O+tzFFjGDVCx2PahTHIL1eAfpAdd 1564j1X3+gTtlr4PqOr+ILdwyV5V1GoP0SMuiYjb2qCzfj6dbwFRLpnRG7Ej A5KRLrewWw5S6gVWeRWv2OKWrd3nK+l7fPOSXyXAfsU2Nc3Dk+L2JZM5t6T+ ORPVi7353tHUKPesdxlQ1f3BeiJO5KynK/OVvoqay6OPD65quTgeExw9qJM6 qNdRvIhCqtxCrkfGWtnXafwkJPN++cUXt+zIpRohZzLuS9h3DoRRcv8WUdbn PN1a+92V0CeNdZcmcQDIbqq6P9i/hVv2kELryI3PTup0J13Tr4T/wtZm3Efp VznqnlF2zlSq3JK9iLjxjF/uHRMlKG6h1vFt11dWRCVkKSG3gEBM+Vi55Baq bdTa/cHhVlTk5qKq+4P9cvOIhx2mrBb10IVvxc2GMOe5K1/6KUluEbdp22Yi du9PrhFbp1GrqW5ot9m93y+kfpBMvHj0ICLsfMPii1s2ViY/bty+ES1DwQU+ F0Cu/NV1ymTs/DS4kHNmikzG7n7hvHp9cp7PxBW5MPmHzH6ExzqopbWN/YHn XH83OfflkKlOZ70erYiqTSgf1EZV+oOuqMC2i91nQGzlmBK55b1+W/URZ6Tw OZDSNgXloMD9kbc1k+h8or2bAOcmYeclA/aIjZTadud9kRMJzHpbal1ScjEa uDZMnRJOaI1dtuHr3829lvFdS5Fb1qPuLmb/isLb7lHIxGzQecpA1Bj7Pg9G FxLkZuLFg9uDh1uHbk/ceJd6LWHnchZb3EIXV7NLoKsM7/8Pr9Sy9WbWc5zO S1yTSi+Dg3RTzW/qajM28bkj9aif69ClU5jZGeEaaVieHDYKedAAJEEmpn/b TogKH4v+9ERs3oPa81Agt/B+eCVuCspBgfsjb2sm33nQUndestheDS1+vzjm e0eNafh3Dktb58jNqZlF6u3HJsas9RrdsdGpl3JFl6JzC13kkxnrIMz2qYLH Tm6R8fuu1NvU1Ftd93esHE8+9liZmRqze4b/LSiyuCU55x8wsveAKHBMQzZm 3OyAPbSW63KZgFozGCz8hW3vy2YtW9ttdWK4jnrLVVjmAHJaj7jMtSIHTdjj wwQ93dsUyS3aLg+fiy1RU7D7kuJzkVD48YuEGqIPz/sjT2tWXG5hVpJW2fz5 N1OTvvOSBfn8yzN6orjLY4tbqJmmXedvUgvhU0+27owvJs8sW1G5hUw89W+H Fj5niaZXYKV+74S+zze/ezqJ3QFG2En3WfvcCi5uIeOPfIPMW0j9vKAq6+xx s3wXJrD6molh3A8Ru9fZ3i0QAUpn9bG7OzMhLGayhxkXzdOF5aNAXa6GOO6Z 5VG7UaKmYId49IbNkG6qRNZVSovf/ZGpNSsqtzArSQuNRZSg85IBnbUMWi0z oSByazUmf+bs6Mkf3ebU69cedj+SJVKLzi3rS9P/OdJ5INPdG067eT1HK2HH YfpD3OOZ3Tuayv7qBdWoZOVAYT+44y2kGlNjnyciZD070xbprLlP5RBZfc3U GNeY3T/mvqVsCbH867Zg/8ouYxOXW4pcjyD/Omgjz32oStQUZMs+I49qcoUc g1gavO6PXK1ZMbmFLf/Iv3d9KTqv0qMmRNobB/776YSd6epEXSGTzDnGxOa8 FrrovtMzJ8OnMjnr68sqR+VxmieZWIhO3h7rNzNrSfTtQ97pJT6jQ+R61GWm vy9U9/lzzSethOz0WmoBewiTycX/zSpN4dcsJFfmwl+5tt9C6vN+ZMj7YEnY GdCF2iJ2a0Fh051sjTHXdDB97ir98Tvlk+MzAkChytjMQ+7fHBOfW4ocdpA5 t8z7eur5FQOUqCnYgdk6g5WnXEQefO6PbK1ZMbmFz971pei8So98Ne06Wdf5 2YPU9/GsU2xETFYyTy7HtCA7BVyq3VoTM36nPW34nGX3eXDVBsv5y3YOlwdt FlMDO6ei0Zv6nP7oIu/LZCrTuGItUxyVP8OTL8K3XKPpCxrutxi1RNb11xh7 LnBdPu2jQVtX9o8QBuvFa3+OLouYlWPGzbjaIqYUSuCHpNBYOlNgUNV1/bHC X7hg/0jMek41DX2zxJ6dKq6BylQyiNusQN7cQj2/PLfIK1FTsNPqXXtj1oCL 4ju78ro/srVmReQWJlUSVi/36aXSdF7yWov5P2jcrnzIWr3CVYXFic2fHGXn TMl9yZZIswvVxdEZO3r6R65e//JO9IXAFWtsSTNH0TgZ81qpW5N/krH4Y+wI rfFtq23oNy7vn8NzcWFjLFkKFNqRa6H0uJy0xS1MgYHO5s0xVglQCmRy1tvb 9L7/eXKryNzCNp5iltXImVvI1clLdTw3nyxRU7DbRjzyx8EOA0EYOgav+64e VfQgEn73R77WrIjckumY8hYYS9N5yYk+67kuuw5qY9F/lgm+JkdY0EPEPLa5 Aw/7CdcQPb4FKa5ePdhxTo5Yy84PMmcoqFuhEW9m7JFnXR8j73TwRjx8hVqC Kn7jIADhkjPeXnNmM8lic0u6vxP8XNDkzC30Vl38luWWqCnIK73nm4K5hdf9 kbE1E51beH0gy63zos96rjPtXvWTCVcawcXD1PunY1nusnPmE66i2CYVtgCY 646V14YkvGe0hX2vzDMdTK4/8XTrCL7rtgCkkZj19jWd+TJTjFdsbmGniniu L84mY25JD/vzenhL1BTkl2oo3lWyj+B1f+RszUTnlky/k3cJdpl1XmQ8NNre vHul9ha76kcj+NOYeeprOz1Pc6U2ZvcbovLOTGd/9RzfSpjCnqxAuxRyXvKo 9JCgQjse7z03c/Ox96wjuJQ/5HLtdbARj3j6jDUa7dsjAYQWkA+180MzPUOU Vnxu2XodcR7RiKkEkC+3pI+i47c/XomagvxSt8Ks4MGv/O6PnK2Z2NySSdHN g8GXhV68TDovanS0ueXCX3JtncoOjGiEHcCXeepzljOxRxMS+oHxwtu3lRly bXKklnp3uZudHCvoU5+o+j5RK81Lj63Nzr1ynBl7zFpxRj3pzaPhN3l/r7l3 gViLTVyx6AjCeM4TUXzTBthPyHn/GXOvd2b7IZQgtzC7VBHvuKKCVsTIllvS lQDcS3ezlagpyI/64tyh3HoifvdH1tZMXG7ZWAx8QFVLFlhIWz6dF7k4ZT+s 5z4uIWuvMyFzOplfZa63Ty5OjtCTgfJtOievTMlxrnpsKiKmS53ZP6We93q1 bga7/dvP1VhlnRrADh2/mfWcbC50+tjeXSDI+I9++1Edtdj8VlTI3jIARUs+ 97/ftOu4MSlyC3MMa1Wj/a6Qrle23LIYHGzUaA46woVX/5SoKciP2sulXsEj mHndH3lbM1G5JbN1jL479647Wcqj81p94jmlbxn5NvcJWbQ33zuamOLcJv7h OT10tnfjF+bUj0ouuUzv27O7sSLjD70D5lZL11vZgZZ8HhjoGAioM7ZkjbZV n9u1Wp/enPDgO5Z2esKvJ3NY0nrEdbi70LdLdqKcGsEjE89CXrvVoDVY7d6w OkedoJJRM0RNfbsXekiTW7bI2O1TulRjcMo7z/87mly5JT3sz6tWoURNQX7r 895364cnFNu9hdf9kbk1E5FbMlvHEO2/nS68NFb9ndfG0sTlFn3BjZSzz4Y+ aA/xWea/xdyrXTNBZDL29VBLTeWXXCYe3uhtJohDg7cfLifJZDwWCXxmazH1 3QgvrT/zn0l9iPTW6z8kyJUnt863dnueqHN/ErbQjlLV0OuanF1Jpn6J8bnw V7+zmbqGbj2Mr953ttdqNG8NBn5OJn+5O9rdNvLdUoF3w0wHVx3p//hcR8OB lt5PvKFnOO0ZFEAuBIfMXe7o7lQhUW5h1sDWtDru8e5/Zcot5IzbXGA3D/av lqgpyEuC5FMUfvdH5tZMeG7JDLa0DAX5HaKr6s6LTESvW/W7FxDl/JtvwqNN mU+skIoUegs7HXFw4GZ4IbFJJp5Hxq/2GGq0pl97wi8rObSkJV9O+8aGqPOv qxtMJwZGb4WYU7/JxOx37kun2xvoDQr+KGjLfVllCu2qmq9+92PwC8dAD31K e3VD+7tDzv9g3g6ZXHrgG32f2tlP29Y7+k2s4EYxm4/ch2uJhvaT/XaXb1Lw 9jgAktlYCl5syrkVmGS5JdUR0B167l3Tc5Int6SLN/jN/peoKcgnMevpPaBk ASS/+yN3ayY0t1CfcIOmyjD0jYAMqdLOKz3u0ZRjAVFO9K+Gydp7BzyT8eXX uZ9scjUWujU6cMLUUK3RGjttl659dT+miiM+oSB2jx2VnUMBIBFy6ZuhphPu x7m+0UuYWzIHHhG6U7cLj2xQ5Mktr8OOg/w25pK/KaA3AGzcM3knK/73R07C ckum7shwsbhVXapAT0c2tQx9zTsPM9XIdHDZPfM17+2uVcVqbpAUu4tUb2bC GqCSUAsEjuSYIUqTMrekrM37zuk1DTuWLHGSJbeQTz2dtZo6PlWvcjcFZDw8 1tnW55tVst0RcH/kJCS3UItuzATRMRpeVtV7EIP8+dsLJr3QaantWuJUcune /oZC3ZkjjYLGoKAslGQXKQCV2FiZ+rTNzF2pKHFuYToRXY87WjCNyJJbkiG7 lqjjU/Uqd1OQjPkGe3nOBZTwKnjfH1nxzy3JhcCQQdOocPyTCDn7xfHuz6eF T0uRy6ExS+agzqrOf5t48iz25M4XQ28brGJeDdRu7y5SAJWCGj9vO+ac5g4G kueWlORP40OHqrYPgOMiS27ZeOh62+Z5wqNb3p9NAf/7IyueuWUjPv25VdfA txSksiUXIl9dG6YOS66mju1r6Rm+9pcZhJYKJNURaQDqQw19dJqd9/MVT5Qi t2wx0aX9Sjhfs5n7TFiFjulBU6CsOa9Fu/ezkDe3CKxfBagQ7HYNHGeRAJQr agspc9toOH/dQolyyxa1WCPsGex2THF/k1dVbkFToCzhuYWcvfWezRF4ioWa sM/M+3roQuxmZwTDaVBRcqcCfkScZ1fu0BQAQFlILkyMnem77MU5QVBpkssz 4VABd/z2I5moUmNz32H/+71ITG0FD6WGpgAAAEDl2INxFZueAQAAAOAHuQUA AADKBXILAAAAlAvkFgAAACgX7OJfjaYah5gAAACAypDLM/dCodDUZMDncfab tASz9rnaYP3omtcfnNqf64kAAABAfZIhe4Oxw5LPMZPRuu/2bwEAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAIBy9f+rYXxU "], {{0, 114}, {744, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{465.4285714285737, Automatic}, ImageSizeRaw->{744, 114}, PlotRange->{{0, 744}, {0, 114}}]], "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}, {3.7664204419179645`*^9, 3.7664204419179645`*^9}},ExpressionUUID->"19234059-780f-48ff-9a61-\ e83dce3908cf"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Da", "[", "a", "]"}], "[", RowBox[{ RowBox[{"Bmn", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "=", " ", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"CommuteGammastdown", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"[", RowBox[{"a", ",", "b"}], "]"}], "]"}], RowBox[{ RowBox[{"\[Chi]", "[", "b", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"b", ",", "1", ",", "4"}], "}"}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "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}, {3.7664191593106594`*^9, 3.7664191859144974`*^9}, {3.76642044875804*^9, 3.7664205026444235`*^9}}, CellLabel->"In[44]:=",ExpressionUUID->"93928d44-3a0d-434d-bd9e-2af8f6764f49"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"DColor", "[", RowBox[{ RowBox[{ RowBox[{"Bmn", "[", RowBox[{"mu", ",", "nu"}], "]"}], "'"}], "[", "t", "]"}], "]"}], " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Da", "[", "Color", "]"}], "[", RowBox[{ RowBox[{"Bmn", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "AdinkraReduce"}], ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"Color", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "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}, {3.7664191861886635`*^9, 3.7664191863292494`*^9}, {3.766420514393222*^9, 3.7664205265895944`*^9}, { 3.76642074605241*^9, 3.7664207552940207`*^9}}, CellLabel->"In[45]:=",ExpressionUUID->"18e5fb7a-bf0f-401a-af2b-1144ac67e982"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"PrintDColor", "[", RowBox[{ RowBox[{"Bmn", "'"}], "[", "t", "]"}], "]"}], "=", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"DColor", "[", RowBox[{ RowBox[{ RowBox[{"Bmn", "[", RowBox[{"mu", ",", "nu"}], "]"}], "'"}], "[", "t", "]"}], "]"}], "[", RowBox[{"[", "Color", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "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}, {3.7664191865087566`*^9, 3.766419186637117*^9}, {3.766420761053528*^9, 3.766420766711151*^9}}, CellLabel->"In[46]:=",ExpressionUUID->"29fb3804-04f7-4ee4-b220-858a18c37c46"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0"}, {"0"}, {"0"}, {"0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "1"], "2"]}, { RowBox[{"-", FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "2"], "2"]}]}, { RowBox[{"-", FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "3"], "2"]}]}, { FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "4"], "2"]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "3"], "2"]}, { FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "4"], "2"]}, { FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "1"], "2"]}, { FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "2"], "2"]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{"-", FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "2"], "2"]}]}, { RowBox[{"-", FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "1"], "2"]}]}, { FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "4"], "2"]}, { FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "3"], "2"]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}]}, { RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{"-", FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "1"], "2"]}]}, { FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "2"], "2"]}, { FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "3"], "2"]}, { RowBox[{"-", FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "4"], "2"]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0"}, {"0"}, {"0"}, {"0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{"-", FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "3"], "2"]}]}, { FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "4"], "2"]}, { FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "1"], "2"]}, { RowBox[{"-", FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "2"], "2"]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "2"], "2"]}, { RowBox[{"-", FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "1"], "2"]}]}, { FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "4"], "2"]}, { RowBox[{"-", FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "3"], "2"]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}]}, { RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{"-", FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "3"], "2"]}]}, { RowBox[{"-", FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "4"], "2"]}]}, { RowBox[{"-", FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "1"], "2"]}]}, { RowBox[{"-", FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "2"], "2"]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "3"], "2"]}, { RowBox[{"-", FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "4"], "2"]}]}, { RowBox[{"-", FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "1"], "2"]}]}, { FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "2"], "2"]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0"}, {"0"}, {"0"}, {"0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{"-", FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "4"], "2"]}]}, { RowBox[{"-", FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "3"], "2"]}]}, { FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "2"], "2"]}, { FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "1"], "2"]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}]}, { RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "2"], "2"]}, { FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "1"], "2"]}, { RowBox[{"-", FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "4"], "2"]}]}, { RowBox[{"-", FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "3"], "2"]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{"-", FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "2"], "2"]}]}, { FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "1"], "2"]}, { RowBox[{"-", FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "4"], "2"]}]}, { FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "3"], "2"]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "4"], "2"]}, { FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "3"], "2"]}, { RowBox[{"-", FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "2"], "2"]}]}, { RowBox[{"-", FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "1"], "2"]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0"}, {"0"}, {"0"}, {"0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{{3.766420739417203*^9, 3.7664207677809815`*^9}, 3.766426039818903*^9, 3.766426314006974*^9}, CellLabel-> "Out[46]//MatrixForm=",ExpressionUUID->"ccde6c60-e4f3-49e3-897a-\ c98aad12fb30"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PrintDColor", "[", RowBox[{ RowBox[{"Bmn", "'"}], "[", "t", "]"}], "]"}]], "Input", CellChangeTimes->{{3.739101561591911*^9, 3.739101565875156*^9}, 3.7664191867776985`*^9}, CellLabel->"In[47]:=",ExpressionUUID->"93db53f6-10cd-4db2-9f98-1417bc96e346"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0"}, {"0"}, {"0"}, {"0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "1"], "2"]}, { RowBox[{"-", FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "2"], "2"]}]}, { RowBox[{"-", FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "3"], "2"]}]}, { FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "4"], "2"]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "3"], "2"]}, { FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "4"], "2"]}, { FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "1"], "2"]}, { FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "2"], "2"]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{"-", FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "2"], "2"]}]}, { RowBox[{"-", FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "1"], "2"]}]}, { FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "4"], "2"]}, { FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "3"], "2"]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}]}, { RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{"-", FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "1"], "2"]}]}, { FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "2"], "2"]}, { FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "3"], "2"]}, { RowBox[{"-", FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "4"], "2"]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0"}, {"0"}, {"0"}, {"0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{"-", FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "3"], "2"]}]}, { FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "4"], "2"]}, { FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "1"], "2"]}, { RowBox[{"-", FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "2"], "2"]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "2"], "2"]}, { RowBox[{"-", FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "1"], "2"]}]}, { FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "4"], "2"]}, { RowBox[{"-", FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "3"], "2"]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}]}, { RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{"-", FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "3"], "2"]}]}, { RowBox[{"-", FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "4"], "2"]}]}, { RowBox[{"-", FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "1"], "2"]}]}, { RowBox[{"-", FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "2"], "2"]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "3"], "2"]}, { RowBox[{"-", FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "4"], "2"]}]}, { RowBox[{"-", FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "1"], "2"]}]}, { FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "2"], "2"]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0"}, {"0"}, {"0"}, {"0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{"-", FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "4"], "2"]}]}, { RowBox[{"-", FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "3"], "2"]}]}, { FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "2"], "2"]}, { FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "1"], "2"]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}]}, { RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "2"], "2"]}, { FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "1"], "2"]}, { RowBox[{"-", FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "4"], "2"]}]}, { RowBox[{"-", FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "3"], "2"]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{"-", FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "2"], "2"]}]}, { FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "1"], "2"]}, { RowBox[{"-", FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "4"], "2"]}]}, { FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "3"], "2"]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "4"], "2"]}, { FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "3"], "2"]}, { RowBox[{"-", FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "2"], "2"]}]}, { RowBox[{"-", FractionBox[ SubscriptBox[ OverscriptBox["\[Chi]", "."], "1"], "2"]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0"}, {"0"}, {"0"}, {"0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.7664207394789495`*^9, 3.7664260398657694`*^9, 3.7664263140851245`*^9}, CellLabel-> "Out[47]//MatrixForm=",ExpressionUUID->"3ffddba1-f3d7-4828-b1a5-\ 28f89a806415"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnV9sGne+6NG99+E+zMPl0Q+WfGUh8WApsiykY8uq8IOtREg4amVZTiML R8nFUW8WZ3NjN6tAqo2dVcPqbLFOgndbtA3y3pC7QTkbuiekNW1NViY3oQ2R jVKS2FncmCYktmMRC8fYw2GGmWHADDMDMzDA9yOdo3PqePiZ+f2+v+//7/88 Ynj/f/0XmUx26r+n/tf7Q2Ndv/710JkP/kfq/+n71anj+l8dO3rgV//nmP7Y r//lyH9N/cdDqf858N9kMuz/TgIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AABpdh7ZDh87f+Xb0Pr2np/txiP+G5Mne0dvr1ZgZQAAAAAAAAAAAJxJ+M3N Moxm7YjFMeMPLUdSLC3c+dvU2YE2JPWD9pPuFbTSywQAAAAAAAAAACgEZdrk p1VnexgDwwYAAAAAAAAAAInDbNogqqOfuZ+AXQMAAAAAAAAAQBWAmTY9py0W k2GoT61IGTTN6j79qNn21Q+R+G6lFwcAAAAAQNWRiMcTlV5D0exuxd+BWxcA hKASogAzbfTOSPWKII6ApAIAAAAA0UHjz25PHOq1/LBZ6ZUUCRp2HtEMX/lx LQFaAwAUT8VEQZ2YNiCpAAAAAEBk0NhDm65NoZsOxav3tkUTka9NXcou09cR 0BlS30bsNdZfKvI6Bt8GwJlKioI6MW1AUgFSAa4JAABqE1yZaUW0lwKxnUqv pURSOsOtMVVz/eoM6Gbk4dd28+ggVqpAoVAPfmxxzOYbFwIAGSosCurFtEmC pAIqCVwTAADUNomfZ0wHEIXBGY5XdiHoxo+24xp1/x+80by6TUoZuHfNenna t1JQ9dmJBS5pkTrsE7sbX5616t9TdB03X/3GH3q+nq68TsSiSw9uXzH1KRBZ c+/Y9P0oqFJAXiouCqrBtBFITCXrWFJJhN145OHtlH5/TNuGIM3qAYPJeiPw ku/mQ1NP8Vy7bDLo+tSFOpcjqv7L92McnpeIPrgxeeaYBp/jVBiuz8z+q+Ga qEFifrOadb8wo8D6tUxYHTP+x6+qOHEHAEhiP9kG5TL1x55Ipffzu7DjCC7M +2yhvJrVa6+xE/t5jy3E0i1JOn9U2diJLXypU/aM2JmuJDSx9uOV4U5E1qAa nl6o+vAcIDgSODWEafMO0zmvXDAM4uod0qY5dkYyzmQBxVRSEt95fZJ44bef UiNKrdE+G4zEEmhi/dFN4wGE1+wkdGPR/ZlO1cBNe0QUI7eiLE/eisxdGlSw 2zTUM5XG2Q0ef7Zkrwn03cJUD/e/O5eGNs2H+tELVocnsLwhac+IWMSX3FZz mvHT2cE47PtRDZ65aGbgotHQT7PKkY7B81e+XdoAiQSUhZ1Y8K/GPpVcdXRy 7oVAu25n4/4fuhFEOTazWvl9/MJt2IedrH1m/1a+1bz1GhuxnzcavW9ZH7Yd sg8oZBIIRZUF/MJqOTx57wWLVN9+7BhqxS7ZIcfiduVfOSAZpCEKMNNGe9by m96uo+brc6GUyon9x42w78qIulGmGJqcYw2FiI2gYipZb5JKEqCxh3ZMe99j xWwHbb1NMlnHmOcl+yFIPJ81f6gg9MbffuFweXz373v/Pv3ZR+q0ii4fsn5/ z5/hEVsD853Y/Of9cqRZc9Ji/1vqacTv3btubN83aP3GnwfWZ2Y/X8LXxG7k ///F+q+4qv07o74nK/7VrDWMMyrmuG7+kbaNMjCVmtE/31l+W9fXWyLsGmnP fIHdU0G294jGo6G562ZdB2FfIp166+wytNwHRAaN3DxOOXM6rUEhvCnoxl1z d0phOOmKSMAdSqoEDaOevG6onaAVd4buM7hfcHgcGl/4oxZBFMPOcK0H1vH3 qB5xhblofejLWyeVqY3UpJ30QxoMkEYqogAzbRCFzhZYy1kGmgg7h1MCEDlw bvaXSm5bgcVUsq4klSRILDmH2xgEYDxk68PUuoP2xcI6HfrL7LkD2H2sODrl e56dwZPOM8R07CFnmPsbxSVzm27qbk48BY04dQhTiJAHVXVNLDsHKeOGo6W5 Gpq5rKciaM0fTHh+rrQbpIIkIk59xrQZdEa4/uJW1G/H/Ei4edOs/dQT2RJz nUCdsxN1naCitciAg4fEZGQjYDmIyJp6bUEJGDaUSqDQ5b8OtpbsH+J//Yf2 JW5nDX3pGeuQydpPuldqWmPYDNkOIe3GG/P/XOPkY8H/PbaNDtlC1drnGxAU yYiC3bD7ot2/kddx8zZofR93yo65eddDCIbwYipZP5JKCqQzAFNf9u/9m3u/ bEohHHIsFzgK8bDTgMVr5Ien5t/keWXoc9dwCyZidU6uiYbYHujOZ0ckXroM 8sZz3lKjEFV1Tew+svWQRkrDGc8Gx9hBujWHnNST+iYD6/V6oIo2bTDSzWSI b1F1wr6Qb5MDgADQMlEVx2xC7DR0xTmUkgHKs55VKZRdsKkEaNipU/CMWKHb IVtv6ktTnfeuSeFvFIfNufGW9M5AFEeuhzlcAmjYMYD/RsOIWwKJiECFkZgo YIQ0K+QdlgfvKrMEMcRUsl4klQQgtjpjPIWI2shkarOfsTqfzKAo4Aoga7qb zX6uVvhmJPj01d6wXdpK6ncsl2rZVNM1gQeqCK1cbnCv8vjVlCU4QqWmIb22 UJ3mXZdk2iRzrJuu8zMQuwHEYnt98a77q++DrwTZY+la14Zu67wUQjaZDHYm lWDDM4oLLK4Z7GkI75kE3NFigW75zfsoCYaccEU5qEaUTww54ghXSEkEpILU RAEzq25D2iPbMRl4VxGNRRwxlawHSSUF3vjN+wsGAl55RtvYTBvyIS0XfHni PmmKMG0YwHdU07ivtFu/uq6J3Q3PGdI8aey1P+F31MkziKOxBHg2kKsRSjVt UqBr35vIEJi8//N5aD0ESB7CeSUdzZal9paSzNwz2Ilf3PRdwDIDlJ94uQa1 q4udVfcpKgCvOH6TW/7DG9847v+WNQ84lurTqwWkkZwoKABWiZPe6oXzhURD LDGVrANJJQHIyAVTnVRyZ97amZamzB3IiYcUDh2SJjCnLnkFSCv5Sr1rpZSn VNs1seE3d5NKea81yDMdDn3m6G8if7150LksyhqljgCmDdZbxvcp2Yygsdt8 F5qmAdImFrBoMEt82MWhPK8csNXeknkCRShgm/fM7XK+FZ1VBBp7OD2yvxlR 9Rn/4o9y9O1ReTV8w/1AjSEdUYAmooGvbJembjxgHKiRMW0K5QuJh4hiKln7 kqrisNVJJXdDtp70/mI2SXYCFjxNp93oZRacW/fN+xBmE5g76SgSf/V+D9V0 TdALbYopMqK3IGjosT2qS0+BIKYNnmE7pCRtYijOBaQN4XdqGXY9l8YdyjmD vRgnGKG8sTe9qSNocq9pwpe3hy1QD0hHFJCV14VCHhnTZr8lUJrOWAyiiqkk SCqRYe3wQE0sajpof8xk2ZD9fAoMlkXfBSY7cAN83Lde0pLTUUL5KXdliuAq c02UUGiDkwm9QdSmZNMmubvh/YS0bWTyISc0OgGkCrlXkWHJTP0mw/etlkCh DHZkn/k+cSftPnWesnAruSUzPRhH7NUhdLkn9eHvgGhISRRg3vC0QtPU73iW //6ksuh5NE0SEFHFVBIklciw1UntPrYfbML+QaF+GqTkLFBEQ/S7K72GndwP pWa1FU1FronSCm1S39qSvTej09ftURLKtKE3oEjxvjVYfp8SAHCBrJTstUul yoLMYGc4gNSN3zbqeUX8p7BjoJNzKTGhctRtbHovdLknQLYDUJ1IShSkNc8G le7SXDS/EkXmC1VorqjYYioJkkpMWOqkqLKCtmHnErMSj275JpoKmTbpKUVY 7M0SyF/Qw5l137iaecFloCLXRGmFNlSL+HqPMghn2mR6a2Cyt2V8DtQFQIoQ El7eaZ2XSMMLMgU6/wEkhgliUIkE78KOY508GsCS/jpJqHBS4G3Asp8UVpUp WwAqj7REwc6qx9g54lphHFtJKi2K447FCtyu4oupJEgq8aBeX94eAuTra+w6 91208De/MWtUIkyBTjTmn9SmTJ/WIcfjUvtcvHtg6ZAXCmKKTiWuCXqhTaEe dPnJmmwugHVZvQho2mwvO4Yyj+L/Uvh+3NrCTbPhYBs+EFc9OGq2/d0fEfcj gbKSeBm4MTnap0qJ0eYu/YTDz1hdywOqh0/BKkiWha2GZq9Zxo5q2hqwebXq AcP4FU9otdhwNTVKIHXrnM5JKsabq+8/NKjFhR0ZE98O2g4O8aloIz9CbnBV bthfOUDjr0I+l+0PRsOAuhmX8M3qPv0Zi2M2tE6/ael+GEmZNmhi/emcc3Ls mJaQbP2pzfXdErSdFB7piQJswvvBbtOtcJ6RglvRuT/gzvADphluQ8arT0wl 60hSlZtMRbxMPmR/mvVSyBEeSu3ETIT9kt1cdBxXyJq01oc5qU7Ec5DuEcf8 nsmbfMkU7AgvnyV8TVDDdJiM0EIklpzD1IJbdfZgfeai4Qho2tBqHHG3i5jx u63IzPnu9uOXZ+aXI8/u244pCCu1c9j+kP+Zwp7WMwKNkiRESkjahzW9pqtz oXAk8uye9bCci0OJHeqCLq576vZawDGmUcry0KqbustufG3+YDlgysqTp2pv 8VunbdjmC28kUipubDlw+08GzYDpxqPY5kMr5gp7z+j5JZF4cW9yqGfizhqP rwJ96z3XWKIWJ3HQjaVvbWcxQ1jRNXzRfusfC0vPIxjPlxa8TstHXe20mcLo E3tvI/mdi9pHl5ds2YrM/VGvati7t2BkmAhITxSkSKzMTQ4pVUcuXv3Gj4m+ FOGQ/5ur44cUKfNE+8mNEJdpxVUqppJ1IalSJNYWff8xffkTg+4DQrVOH/P9 tpBYPgyq0GZy9s7F7q5Tdt8/YwkUjUdDc1dNWqVM8aHZ/YSr7oS+vD85pEip W198F3oVR5O78bVnAfclvaoxtUWdC6+FMEopI1fQHgISvSYo6E2qGRvZ5Sfx 84zpALmZWnW2IjThWkJI0wZddvRnnlVMARTXD1pxDjXSPA9o1GvqIj+3Y8zD q4vnztrcxS6l3h6Sjue27kEjno+1/VMB6mySW6vkjiuUhC9mlBimpnZlLqK9 KOhrzsf2ivOjfTl58kR6ubzz8p0n3muWMX2fOqVCNLRpPzJZ/50MRKKJtXnX 5MeDqR819wxPfs/Bt5YF+QVKJPdGWHbjy7NWfSeC634MF+tObNFl7P3fxDGn DzXjOL6tGNDtp9MDjbk+UgYK7y5EMewMCxC1BCikJwrIH60vzjknz6QEAe4q bGjTHB01/9nle7rOaQNUsZhK1rikSqLx536nWUe4LxTq/hPGi2YS67QnJJY6 mlVosxNb+s5m1GFWVbO63zBhc91dXOept6ObEf/fbeOG/vQ20Awaxm2ctygX ElGvWavoHLL9KNAwEcleE3RWvUZyjgqPDgDYubs+tp849Ckr1fMsXu93hZCm TTLq0tMkaskDZJlImfMD7eZ7dHWBGLuWhsek5p3Ywpc6pXZi7lW9bwQJkXjp Htunu5alyEWcgzJKMpcA1Yao37HM75VnKQxI28ETxt/h99HvjCfSWZHpHxTM bt28Z+44nJ2hQWXFZGpvRWHLN96EL1Dvior4MeVnKzJ3aRDLLm7sMroWCyVu 7cQCl3oPYk17MlUDMuZ2T6WTeOrQdQzYQxyUhkR0dgLfXUrN6JTL91Mkhl+8 iVgkOPOFoRvfX6Xb9QANyYkCQahyMZWsYUm1vRb4vyNq3MBo7h21zQRflU/9 ZBtIVPNI+JrI+nBa3+Z9Zj+XdtOJ1dDMZSLWj3TozDcX1ioxzFdyCGraZGek lfo0ZtD4xpvcbOQ3fjNV8NVp9L7m8phE5GtTV4cA9W6AgOS9WNNdWYSzvnma SGj8pz/3YyKnQaW/5H4Yyb6T8PoIxzktnlrAPJRhe8V5vDG3Ywk15E7k9rNU cSJT58+qhFLk5KqxW+wuYqwr6aFxXzTiHM5oeWJpUDurnrMtnNqfoomwczh1 7SqGJr3hPOoOkWkAvVkERXKioHSqX0wla1RSoW+CjtNq/ItX9P+rJ8x7CmNp sE60qW2kfE1kfzKtb3PBQptE7NVyyO9xfvHbQRVeSdelH7/y9UMoNs8gpmlT HjuXAN0O2Xqp8qsRN2tvTDQWmOpv7TbfFSjcWUbQn90fH6B/02KBqAa+CJRX m0q8dBkacyeDZypYeRfWZUP6YXhmO8TxHHLkgNH1mDlhYCcWdOBOuf1m/5s8 P8dmbWtyf1TqkDvurLj0eO59xcafCU7GQY1oLwU4Fdrvbnh+0265dTtTHCpa m1lsSEQ3p+RYdNl1vE2mOGZbYC6jSA9qryVlr9JIThSUTi2IqWQNSir0zQJZ DsxZUgkL20SbWkba10QW9EIbripac9dxs2NuKQY9N3IQ07QpJoe5BNAlxwD5 8az9VRJh10hHtaav17Bpg71EdW7OQ6YdIs/Cuj1PJ2tUeY3o3QzZDiGcGhPt xOY/75fn9a5jPvx9e/20e4fciUXMb1bj32F5yiHFhnJQp768QzwSeyLOwZ4P +jITuESqVkY3/b9v55QZi20Mpfzw1Hzh8nDcuq8ZZa/ySE8UlEptiKlkzUmq rYj7rIpQSziW3QkNy0SbGkbi10QOtEIb5Kh9Id3fgJnlUMB703Zep8IaJ6r6 ztpK6H9Ye9SQaYM7/EmbVzlUQAdGX81NaOQsJvxWxHfVYjabLxoNusHBPrXi PesCqBUig3U+bMwZtE01gUyd3yOOMJ8hCblQu52HPoOuzowpW3SOp9z2cmzB 2o/snRWO+fB79uRJUhnsZUiBphSGcvY6FusQ0YZoyHPK7ljIkVFiGQuvvcb9 Aw4Oozm2g7be9wrOyCPASkPKNxG75pGaKCiVWhFTyVqTVJk5I029tmBFTDUy QFmiY7D6kPw1kQ290IZHeHQnFnKOdaX/zNbByTtF9O6oRcQ0bcoRvM4Cfeka JrcGMuBgOMaxkF2vUJ52rRT2P8VCLmtK0o0btOm/CdE5I7BlxAULyO7JRosF LBpCwOT+iC/Ubud+aWKZ5w2cKiYIcB2jI9vJg/vwu6eCuQ+hEu3KkAJdxN9e OiIdIlwxK87azZZRYh3qDc9oI5eF4U7ygemnXHYX1kkDTBuhkJooKJGaEVPJ mpJUWNUG4ZaTKc96KhNypQptuHfcqg0kf01kQyu04RsexVtxEqov9NJMI6hp Q/Y2Ib7iCnQ4oY1Yyl/wiCdeyvsmA+tc3z3Rm6s8yZb1Dhr7+dFydp54usoA o2XY9by0E8vfH4glmatH3L/w+dx133hXlmhKPWSoM18YkcwqL0cKdDFuasEQ 9BDR2yEyezAYoPfzlDVzCqzwZnfDc6aByzh1bGP0ca25SH2H5Y6D1zBSEwWl UTtiKllLkmp30X6Q1K0r1wPkjW883R2NW8etWkHy10QO9EKbIvoQ0vtoVSw+ KCUENW3IDr3p3VTWLgIEuFJBLGCvJpzOMVaPuZc5KwhUb66aniAmXdBN34WW 9PsUYD41f31m99lXFx0L/PqO4Gn8mZAlnlCn/MS7sfeqTETnpk6OXHQGuYzh K5EKKgzCHqK3Qev7pJDhPTyL3oKm5PxGJjb85gMcVCN0Ozi1n3PNBZZVwsVc Egx0M2AbUlNTGkUAUfVNzFQoFC41UVAatSOmkjUkqTL5BhXt3I69vpHhc3/2 l5byUGVI/5rIgdUtz0JWq+qG03VflSmkabMbsvVkniV+A/y80Mzt7G5aaGLF NaJUsk0ry0GckbgAV9Z94+p8b7M4ypXFveo2NJIbBstJeK/D8qAMwrEgFVQY BD1E7x5YOqguMnxTLOiuD5lc+FLu9Ic8svV0jftYYzEpzUfPWeHZWXWfbi2r 43d3w/tJ3nn2AsLcglhs6lkUkEh0bbUiqeilEyzHoPOjm88gJ0RIpH9N5LB1 37yP7FpQXCkH2SwCp24HGFEIaNpk7QchfOzFQTN+G895yf7xeEGZssv0Nb8a q7I2vQT2sDFrVKbPuyCWcrn0GUy51VoCWDcaLCzecNi+WPFpApVTGAQ9RFm+ Kd4pFht+czf5yx2cOjMXQUpjlHMoitmcG9dwHy6cEmuasjuL0ETsNUuXnlL4 Zb1yI7PrWRSQSHRtNSKp0GVHP6UNaQyfmpmxXp1dqrPWZSJTBddENrS4QLF9 CLPqgyqSNCUpBDRt3gYs+zPfLN/kRsGg90nrNvtxT388aNe1KXRfLvBtKV/W ppdADjRjueWCT4BpVNQWFbtANaWI7sfdJluL9sMNpXY/EITKKQxCHqLtZccQ JWR4B/Lorrz23/vFmW+GXVLsRTHopu9TDWcnOaZ5Nu3pZwUUTz2LAgpprq02 JBVd04RC3TJTBddENgnaeNBivbjZpe51X5cpnGmTGT6SopVnSaOQYA2EiV0i xyLs+Cxvedf5mQhvcYU3XJVBdK8yoL+4R1rThrJANZjUbu/kkC9UCjG/WYPd y5iQbK9MZmYuFek7hCHoIaKc7Sma+h3PeIVgM13ECzeHLw1MpWG/V9Z940OE 44Wd2IJ1oMU4W3JCJkBRz6KAQpprqw1JRdesKpScX79UwTWRTamFNsnsKGFq 5XrXiuCrrCqEMm2wklgqhlcuU5cBupHVPXH182OKwpO+GaG6Jpan6SVnanhk J/2vzLTyFqoGs2z+QMxr1Gy+t+H/fbsw8abSqci0iKTQh4hs1oSxP51Lw5lM 3ZaoAgpTkPZODMlhc2687TfcojB4Y88GPvPmAHbqWRRQSHNttSGp6JpVrzUI h7ecVME1kUXphTZZ2Uqy+mv0vRehTBt667n2k+5y1F0xQ+9MktLPD5ybLS6E 9MJtwCeVSS1tsS5MG9pRzZ3qvhNbfrLMN7cw/VAiSUBsfQY7Vs1mt3e8WxqV ucnKzfgW9hAtOwepjc9vyAvNUhZZQGGNIgsb47hjsN+xzGUR8QVbf4vK9P2a RBTPWqGORQGFNNdWG5JqJ+o6gRQlqYCSqYZrgoYAhTZY5/ZM05fKtWeRDoKY NsUNDNqNR374yjZh6Fc3yxratAaz80E09Yto/NXj+WCkFGsZb2tJ/ElNWuvD Is1XsuMElquZWA15royfONiGIM3qAcP49J3lt6BriAi65BhISyd57rWLPncN 9xQX4qeqC0XORMV1hl+PGhretwYlUh9KOrJYAwoEAh1PgQ8RLXDP7xVuhmyH 0pqGvOCITHTjR9txjbr/D95o3qejici9a9bL074Vxg/HOiM1KMdmVhk/JBaw aDkpUHgyLaIcc1emJUstU8eigEKaa6sNSUWvtSnVtBFAKNUXol8TNFLb7+Ft u3n0mJbYLSbrjQAveV16oc3Ohu/T9owe32XyRjluVzS1es+1yyaDrk9dyFuO qPov3+cQQ0UT0Qc3Js8c07QhBZ7G75nFIYRpsx2yD5DjD5SnXSvsRicaD3ut x1VIo3rkS28oGkd346/mbxoPdptuzl39CHtWidPBMi2gi6/gI+++Rs34nyyD Pf0T1+8vrWJLjcxN6VplisOT91+DdSMStIKpPdcu1rO02P57WPcq8v4SZKH5 IY+VdBrrUVmaHE6WgMdT6ENEDUbndWehifA1Xdr3ojjuWCwQh3wXdhzB9x1T QP+119jJ9mbxqDHSa77PYNxg76KVPRc68eLe5IdymfpjT4Vmv9Q2dSsKMkhy bTUiqZLJqEtPXGElmjaCCKW6QuxrgiTxwm8/pUaUWqN9NhiJJdDE+qObxgOI rFVne8h5yEiphTZ4+1+q77Nc9fE3nAwbdGPR/ZlOlelqXNgOUYzcYnvsVmTu 0qCC3aahnqkUsYC0ZNMm7VckVsp8m9NAYw9tKVmx9+0nnjp0ZEyttOF06Mtb J5VIaY+iMm+xlDbTzM/0DUcMulWcdEXqfuirKFDCfK+4xgZ8NBXdzIeaNSDu 9MP0sSrPFGNukO1T5AZ34Vl0gh5PwQ8RrcaTq1M3tfKwayTt02obdi4VvDnI pBSmfqGka7fR6GV2c6PbIVtvavsylPjh8+BY0u/R2GMXdkU2aSf9fOZwAZyp W1GQQZJrqxFJRU88KLFoSBChVFeIfU3gnxF7aB/uzGPFbAdtvU08ukaXWGiT WHaPqTPWgvZSgEuufuL5rPlDPCDRoBr87RcOl8d3/77379OffaQmolZD1u/v +TM8isQLr2wnNv95vxxp1py02P+Wehrxe/euG9v3DVq/8eeB9ZmlUJJpg8af uTN2Ta5AyA/Wh7kVs9dGXCu5eWtUs195p3W+6KANLvFUzc2kGVvkhB1SnuT9 u9An9t7U85sO2h+Dm0QEKD/GnqAbllN6oIRW8+STaTOPRABvPlmmKcacINun sAUxBT6eIhwi4uJIobEEuCgMsZBdj8vwxq6JOywVK/SklHw/J127rD2UNgKW g5hgVHxodj/Jtk3w9INCMwG3ooH/Z9IqsQXzncMF8KBORQENKa6tdiRVcnvF eRw3nht77U+K32GCCaV6QtRrIkViyTncJsvveiJiRhwLXmgjeHgX2pAeMPL3 OfYBRn+ZPYf/luLolO959nCxnVjgkhb7Gb/ucHg0oU03dTeafRjRiFOHVKSn QdGmzfbawt8m+vcRX6nqhJ1TCzLyxpfrHeG9fywlkUpolohFkbTtY//xbM5M LK64p5HyRJ4/QEDWqXGsBQb4QZUB5rRmxfzhB3smA8VXYpWn6x1WCVu50U57 oarP2o3eAq5QoY+nKIdoZ9VzFvfJytvN99iSBrYiM+e7EBlHM4G8ZRS6/FKd z+YhVC9MJVHpzM774Rjx6bgSlT9PZns95LGN9uJfilI7MQN2jZjUpyigI8G1 1ZKkSiY3f7DgmUJIry3EqXAjD0IKpTpCxGsidXB+sg1iRmv+FmqUUs2lDwYt XMhPU83SwFMrV484gpx6K8XDTgNmxMkPT83nU9qxWuYWbNPqnFwzodGXnrHu fFYe3gxKXN8RA5kYHE73VJDtAKLxaMh3c4q4f/Er2ORcWOMSqCXzNFKX/Yg7 X+IaOQS2kEuz8Ce8WbAda+n/fD71iklhJSsqUEvKE4ZgPZXMUPeDkcRh1WtM b8vsLGUs06CUkA1GWXxcKy59q5TGtJG5x4VOlvDHU6xDhL6am9AgBYRzmsTr heu/wS8sjmYCm5JADSvnlsBPJswQIG39o5a/3Pr6T/oGGaJ3RYl/tRtfjywt /OPW9GejfSoyAt494piHPDSxqUtRQEeCa6stSZXxgbPkOKHx8N27z/K5tgUW SnWEWNcEmaDIGNegKn1YExHRxOo/aGUy3IzTxMZy4LYto4GntuX7Juf8Gjc/ GBq5eRwrh2nqtQUZtHayRSGP3b4ZCT59tXcBaSupTP7/+JLbak4zfnpQrZBl 0aAaPHPRzMBFo2GQ3vhAqRmxukOrnM86WezG5JAh6weL9SNtRdxn2zMhOVpx FlOSKiNUzwqGUBpZgiq5vtA1wu6G9xPc5ULze6Bv5qeO9Jz7jmvvDyY258Zb EKFGTucH62Ih9ihAPpDXX0E/jODHU8xDFP/p+kg3HlIfmvSG47nr2V4PfXNZ 34n9g+YPxr96zM1MIJNSmJQEsjkJd1cJWeYs40yDSveZe3EDzJpyUIeigI4E 11Z7koqKCMjfn/j+eR5lCd2M3J0e07Qx5EEJL5TqCFGuCXLQCWMVD6V55jFt 0FeBG7bJtD49PjqobqbfDY1q/Tkm7Rvnd0bDAP1XEJXu/JVvQ+vcS8DIxRea Y1WEacMAvjmbxn1liSbS57QWgULdpx+duDx9627o1Z6dUhiqaxnDlsCz8mTF 9jTDi5ha6HW7O6vuU+QMI475lhTk5sxvE6FbfiLbjeZ9BQSFaE+h6LfOhSOR 5dA/HKb+ruHphaLG2WRDvlyx+smgm74LLZKamUUcvYL1wsIfT5EPUeKFf/qM BpPzDW3aj0yX7dedKf5qt144nQ5/IB06841AlLNYZanGpRbM18mfukC/vXJe x2bgNKgGz1/xhNYhCa181J8oyCDJtdWkpEopJ6EbePWcUjP6hdsfWo5gLIf8 Mw7LaF+7QjNm+/Zpfr1aLKFUNwh+TRD+EObOilSML09nPMpnWzRIs/oDncH0 mc35bWA5xveyIBa/Z6BGFqQ1XapUTOeFKtl7gVY52JDu9LvJ75Ch8mO7zX6+ DeHQxIprpEWT29iEEHEy3n0JsLUW2L1UwLH4ztIAOymh5PidvkuBCaW+0ckb D6LCaH3pO10mWv0s3vuXe2MW0eH09wp/PMtxiNDEesjrtJlH9X1EAFqh7hsy mP5t+tbdRR6+LHy9LOlJ5IKL3DZoIvbzgtuMZ6c0NjfLyXuqTz96wer4xv84 ytNVBJROvYkCOhJcWw1LqtR1trboc9nGR8jMF4W6/4Tp8l9u+Z4W8GaILJTq BDGuCabSJ9r8Ten14ibPTsFCNrJjW8lxwLTHgKUXaPVDlVYxWRnrvnE1Lj94 C1s05p/UduZpJE40NuG/zbB54ima+h3P8slOsvE+cti+CIV7VQjhuxCn62l6 e0hIrBEni6FCNo0Ix7PKDhHnnPbi3yypuTVN+PjlxwKiUV+igIYU1waSKocy CCWAF6xNG6i5FRJsn7sTdZ3A11Zg0BLVN1s97lsv6dPSAceiC+erBkoiMfgf yCgezRWz5rdecLCGy7EufJ1d+UswaJObeEXeCVmXNw8Z3Q5O4TWKSMGB44CU eRu0vi8rvqqrEOlhoyLPAeQDobx1Gr2vmf+RCMezyg4RGYVnSqcn0mBodRm7 T52nLN417nKbULogi1VK1JMooCHFtYGkyqUMQgngBVvp0+5j+8Em7B8oz3ok p9KTZ6dAEQ3W6wyzbErp6Zd+EOHHq32jG93yTeCvPH/XiDzd7FOCrnWEZSQN unrffFCpmw4xJHPQeobziSYTCa75loqu+ibweCPM66xmiCYnyCFbSNhoabrC q7RBBkJC9sBkaX4owvGsrkNENVTM3wCfFNS0/pyYctg5GXjH+T2/e2DpwPYc tB6RFHUjCuhIcG0gqZgWJqZQAnjBUvq0s+H7FG/tymnoZ9khzw6jaYPGF/6I pUwjBy2BEn0ehB+vLrpbEG1G8qX5EfOP6D/Fjm0ry9D5zUXHcWXXxGyUeRMR 6gROB/cjn7bN97YZp179gXOzv4D4qGbSrUK4NL3nRbpt9X5LQBoHGptwquQ0 fkv441lNhyjjA8mnRaAbd8kWnVQewruw41hnoWLM3GeQgX4o+JUa9SEKspDe 2kBS7UF8oQTwg3ojecOd5BtpZEgikgAbs0YlIkOG8yak4ZUdKdOndcjxuFQz nlC8GZI8a430mK3cGwSNPXKO9XYPDrxHd8VgcbG+ghNMdtbmLnYp6S3R8oIX SxLsN/s5NrpEN/2/b8+NQaOJyNemrsb8A4uBaoNo8C4/7lwRzh2XToeQSnFu ehvLEO0fF9hr1IU9nsmqOkS0zNWG0zm5wfh4mv2HBrV4wj2ZpbwdtB0c4uPn pwSRxHpSAXUhCrKR3NpAUu2lDEIJ4AVtvKZ8yP4063smp5hJfNQyFg5QyJq0 1oc5lxCxfmFGqmUKdtgm+9QK8UdXhzsR5IDx5qP1BJqIRYKezw1dmpGrgbXt 5+6TKdmm1E3/FEc3Fm+c6R5yLDIGptF4aFqnzG2Jlvdfkl+yjF+6LD79U4Hs H7seiMZ30fjL4MxlvaqxWfMbR+C1ZFQyoBQ2n9qH5LLGbssPQl0G6JK9l9cY X1EhHKFdJi83H5Jgx5NaQJUcIqoaF7+02oZtvvBGAutpthy4/SeDZsB041Fs 86EV82i9Z/T8kki8uDc51JN/DgUDVDFyRUYzAyzUuijIRnJrA0mVZ0niCyWA H1ShzeTsnYvdXafsvn/GEig2xX7uKtbcW/Gh2f1E6qOW0Zf3J4cUSOfwF9/h A1x242vPAu5L2G7XfuJcEGS3cxm8W3MkXi+4pkwnDrYhDW2ao2OTN/wRYnQQ Gg/fsV84oW1DEFWf8a9BxgkmaXdKR56WaHmhCruwr3qvXy4RW3/LkHi4GfHf mBw7qmlrkDWr+w0Xrtx+GIlLxM0FCEEcvxrkekdYEEd6OoNdIi3Bd9a851Uy ucr0PY/LToDjmU1VHCKiGlfeefnOE+81y1i6Ryg+B8H67+Q3gCbW5l2TH2Nj jpt7hie/5+Way3QE7bWL0IoLKJlaFgU5SG1tIKnyIb5QAviRVWizE1v6zmbU YQM0sd0yYXPx7iNdMbCt/nfbuKE/vaM0g4Zxm6tgE3KeJKJes1bROWT7EYZP cwcPnHV0mb7mfIrJ+kTctsmNYq84h5qkE5cHygy6/XR6QI4ojt8UwoH5NmDZ z38+rCgQeb+q89Athw1q7N3eZHuhyOSWlGs0M8CXmhUFe5DW2kBS5aMMQgng B9uMIQAoAfSX2XMaJZcQM51MdWF2kiTWYO39dl7OIqDW2FpxnVYK0tIEfebo b5K1XPBtVno/YRu7F0H6JgPrlV6K9KHG3uUvrhSAzICt2h/NXM3UoijYi6TW BpIqP+ILJYAfrBNtAKB40PC1I0NfLnAMMdN/cd0/NdhKGDf9/za3+DyyePea 6QOVrpinATVF+npV6O2h0tyYCb+5GWkZn6t0GWci6jGpZO0jrjBciuyUYexd 1KVHiHS0Wh/NXOXUmijIh4TWBpKKAZjFKTnYJtoAQKVIRIO3r4wbBrFkWhnS 3KUfv/LdEtg1QIrEzzOmA/Ku8zOREhwyO49sHxgci5VVGXZiC1/qFG1cK9GA vWPvBGf7qevj3ubm/SPT8FIkT+2IAgaksjaQVMyUQSgBvGCZaAMAACBJ0iqN 9lKgiq1dnh02gExOO2RQAyS1IAokDkiqAoBQkhxkoY1Cxzp3CQAAQFIkXgcc xiHL/Yo7NIsEDd/4tcHiecY+GgIgoAr8IYMaoFHtokDigKQqBAglqUEV2sBU MgAAAEDirLj0SsigBgBAMoBQkhpvfOPp7mhm/xZY4wAAAICUSUTnpk6OXHQG 38CNBQCABAChJDWwNzIyfO7P/pfwRgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAkA7/Caykk54= "], {{0, 90}, { 1097, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{719.1428571428589, Automatic}, ImageSizeRaw->{1097, 90}, PlotRange->{{0, 1097}, {0, 90}}]], "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}, {3.766421023032965*^9, 3.766421023439106*^9}},ExpressionUUID->"6ed7cae2-1661-4972-824b-\ 166c0ca545e2"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Da", "[", "aa", "]"}], "[", RowBox[{ RowBox[{"\[Chi]", "[", "bb", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"I", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{"\[Phi]", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], " ", "-", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"\[Epsilon]downupupup", "[", RowBox[{"mu", ",", "ro", ",", "sg", ",", "ta"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"Bmn", "[", RowBox[{"sg", ",", "ta"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "ro", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"ro", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"sg", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"ta", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "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, {3.76641915946688*^9, 3.7664191870796785`*^9}, { 3.766420821702668*^9, 3.766420823427766*^9}, {3.7664210364857135`*^9, 3.766421129063181*^9}}, CellLabel->"In[48]:=",ExpressionUUID->"c24cc654-9c08-4540-8fec-0b3f663ce144"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"DColor", "[", RowBox[{ RowBox[{"-", "I"}], " ", RowBox[{ RowBox[{ RowBox[{"\[Chi]", "[", "bi", "]"}], "'"}], "[", "t", "]"}]}], "]"}], " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "I"}], " ", RowBox[{ RowBox[{"Da", "[", "Color", "]"}], "[", RowBox[{ RowBox[{"\[Chi]", "[", "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}, {3.7664191596498775`*^9, 3.7664191598561406`*^9}}, CellLabel->"In[49]:=",ExpressionUUID->"a460f19b-bf8f-4e28-a426-4ad249e95bcc"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"PrintDColor", "[", RowBox[{ RowBox[{"-", "I"}], " ", RowBox[{ RowBox[{"\[Chi]", "'"}], "[", "t", "]"}]}], "]"}], "=", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Collect", "[", RowBox[{ RowBox[{ RowBox[{"DColor", "[", RowBox[{ RowBox[{"-", "I"}], " ", RowBox[{ RowBox[{ RowBox[{"\[Chi]", "[", "bi", "]"}], "'"}], "[", "t", "]"}]}], "]"}], "[", RowBox[{"[", "Color", "]"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Bmn", "[", "_", "]"}], "'"}], "[", "t", "]"}], ",", RowBox[{"\[Phi]", "[", "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}, {3.76641916019965*^9, 3.766419206418689*^9}}, CellLabel->"In[50]:=",ExpressionUUID->"a4f911d4-1221-43d7-ac3c-5dcf1b948629"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SuperscriptBox["\[Phi]", "\[Prime]\[Prime]", MultilineFunction->None], "[", "t", "]"}], RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"3", ",", "1"}], "]"}], "\[Prime]\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"1", ",", "2"}], "]"}], "\[Prime]\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"2", ",", "3"}], "]"}], "\[Prime]\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}, { RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"3", ",", "1"}], "]"}], "\[Prime]\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], RowBox[{ SuperscriptBox["\[Phi]", "\[Prime]\[Prime]", MultilineFunction->None], "[", "t", "]"}], RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"2", ",", "3"}], "]"}], "\[Prime]\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"1", ",", "2"}], "]"}], "\[Prime]\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}, { RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"1", ",", "2"}], "]"}], "\[Prime]\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"2", ",", "3"}], "]"}], "\[Prime]\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], RowBox[{ SuperscriptBox["\[Phi]", "\[Prime]\[Prime]", MultilineFunction->None], "[", "t", "]"}], RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"3", ",", "1"}], "]"}], "\[Prime]\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}, { RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"2", ",", "3"}], "]"}], "\[Prime]\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"1", ",", "2"}], "]"}], "\[Prime]\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"3", ",", "1"}], "]"}], "\[Prime]\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], RowBox[{ SuperscriptBox["\[Phi]", "\[Prime]\[Prime]", MultilineFunction->None], "[", "t", "]"}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.766421138652883*^9, 3.766426039951172*^9, 3.766426314178846*^9}, CellLabel-> "Out[50]//MatrixForm=",ExpressionUUID->"b7e2dd70-94cc-453b-9744-\ b758a19e259b"] }, 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[51]:=",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[52]:=",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[53]:=",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[54]:=",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[55]:=",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[56]:=",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[57]:=",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[58]:=",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[59]:=",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[60]:=",ExpressionUUID->"8cb9f151-36f4-4683-8054-031213b41de5"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Closure", "[", RowBox[{"ii", ",", "ji"}], "]"}], "[", RowBox[{ RowBox[{"\[Chi]", "[", "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}, 3.766419160512128*^9}, CellLabel->"In[61]:=",ExpressionUUID->"4bc058df-82c6-43e4-9ca2-fa0686424af5"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Chi]", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Chi]", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Chi]", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Chi]", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Chi]", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Chi]", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Chi]", "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Chi]", "[", "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[{"\[Chi]", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Chi]", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Chi]", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Chi]", "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Chi]", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Chi]", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Chi]", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Chi]", "[", "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[{"\[Chi]", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Chi]", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Chi]", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Chi]", "[", "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[{"\[Chi]", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Chi]", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Chi]", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Chi]", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Chi]", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Chi]", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Chi]", "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Chi]", "[", "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[{"\[Chi]", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Chi]", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Chi]", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Chi]", "[", "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[{"\[Chi]", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Chi]", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Chi]", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Chi]", "[", "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[{"\[Chi]", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Chi]", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Chi]", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Chi]", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Chi]", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Chi]", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Chi]", "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Chi]", "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Chi]", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Chi]", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Chi]", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Chi]", "[", "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[{"\[Chi]", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Chi]", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Chi]", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Chi]", "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Chi]", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Chi]", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Chi]", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Chi]", "[", "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[{"\[Chi]", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Chi]", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Chi]", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Chi]", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Chi]", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Chi]", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Chi]", "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Chi]", "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]}], "}"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.7664211475623407`*^9, 3.766421498874587*^9, 3.7664260401168137`*^9, 3.7664263143799076`*^9}, CellLabel->"Out[61]=",ExpressionUUID->"7606843b-c6be-476c-977e-73e79445a457"] }, Open ]] }, Closed]] }, Open ]], 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[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnW9MW2e+563dN/vivFi/5AUSK8sSLyJFEbK0RFEFL4gSIUHUCiGaCJlo shDNdiDTDdxWgVQTyKpxdVvQtKZ3Y01jZVRnbq3cqdON08XtQK5wprh3HAFK nQYqk+A0JPyTg0w4cLL4nGP7ObaxfezzF38/0ow6U3N8fJ7zPL/v83t+f/7b 6e43/8d/MhgM7/6X3f96s6Ov/ve/73jvrf+6+z9afvfu2c7fnfnN8d/9rzOd Z37/30//593/8/zufyK7/xD/59cAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAECh7MSe/xzwuR2fDHRb36oz UQYO6rQr/ErtewNA76xN2Y4nJpW5rqWju/9jxw2vPxSJ0oza9wYAkBWGjvy7 vfOIsdOzpPatqMB2cPjQgaaBm6Hottq3AoDOYTYigZsjPU0mgwCqpvFUe1ev 7eZsdEftWwRA79DPAzeGbVcGeztb6szCidbaO3IzENmAcAdgP7IdnfnCaqYM 1PGL40/LcppHQ85Os4EyNX3oi2yqfTMA6JSd2ML47safSsmHCkv7pWveqbjn T+2bA2CfQkcXgneuXWq3VBDC/bD1kztz8EEBsK9IyfWBscfla1WZtRnHGfPu Old/aQyiHQDRbEbGP241E2rd3DEyEY6VpQsAAOVhoj97bScJhzt8UADsJxJy 3VDT5Z7XiVyPhb2DTaZKi/XzqZU8DgQm9iRw599u3rm/VEhoH/N8cqiRgmiX GIZenQ+M3bAPxY9viUgJNvZy4I/Xb9+bW91S+yZBidBL40P1hFpXcxIxsdWn Ecl4jtMB2cBISU7C9ZSaiQ0fT63D0w6A3mHoRU9P9a6VrawfuruiE1cY88zT ZeSWoiOD/rWcn132Dzawn6zu9CwWdHV63t1Vg1VOInZikXuuQauFIu1HTeOp txtriNNb7gDX5kbgpX5hIl+fFXjXu93hmGp3QwdsaTH0EpBI7nN/H1xYhzKU BoyUHDDLU7ZmYjYaa20/bKh9UwDoCWab3taWHmHW79kaKuPzufVPP+nm6Hp7 2fsuL9gNLY5QTlWw7uvlhWFVq+uXAn8hs/K3AcvuN1DmLncYSfdFQ78Ifnm+ Lm42KFN956Dj67sz85FV4j2jo0vzQZ/rk57Gan48qWN9X02v4Jnrj7WA7Rgh mao73GE1R1EWHUhSUdPy/uitHyMxpNCWBkZKHpj1yaFaY+oxGLs9z8px7wJA oTAbkfvfu68Odbc31qS2u5SprqWz97L9+v/1h5bUlMnMovdcbfyOzGddczra fy9P9Nfyz7JqyL+Z4wkyLycuVvIfPTYcfFnwV2yvT33cEB8yc6tjRj1HoZ6h H48NxCuPUXXnrvpCq7lFOP1rwPluHT9HKusHvo1AtOuLzSnbQdKl9653WdXz qVSsxZP52f8I+MfcV/tbyCMAHlPTgGs8GFrIFWkxPxuY8vv+6rRfPt9iSbsE ZfnNJ7cf5Hm9QQ4wUnLxctb+JvEAanp9z9W+JQCKZjPiv3YhPq8pU+MFdygq 7cWXgjdt1sOZ644QtopCXj0jC7Gwu5sNdTO3OUN6iiHenrYf4V0Hxm7vcq6P bszamxNP+j3fuhgfC7PsHzrKLvTNtqnl8lnlpYGX65X1/Z6CKxVsrQQdVt5S Q7TrjYi7nVzYjjpCmvNobq9P/OFA2gKcZ8ufCVuRw9HXaCKX9gpL5+jEwku8 rxKBkZIEZtM/VJX67cYj9mlEeQJ9sr0yeUWQJHXCOSeViaGfjCeSteNlUYf/ fHsiMDv/JLIQCk5N3L7+x/72NCVfYbGO+MJKLiPM1pyrg1VHVLMjtKWnBYyZ dyZUeGWz8+dct86E3dZE/k2ra0Hkr0zExiCgXSwbj5wdxmJUN73kG7DwA4bT DV2Rptjb3RG17ygLy95uo0GA+GWBhaFXH9wWVORgq+JMLiLsQBowUlKwPWs/ Qvxuky1QDr8a7EN2HjpPVAkWBIneZiZ632E9xF7wzYEbU9lj5+LtRb7sq68U 3ID5pG38iUITKpFcaTAcswVyZ25qDTKIvdk+mzOYJxXEXpx7YWvRfZb9rsqG 4R91FDakKszWo+ttRoOx7fqjInaCzNLEQD0/vFSrfUbaky8gG7pQ7Jkh0yXd 52Zk8tN2Mn6DOt7veRjVk/9Dq2CkJEE4K6HYgV7JWBCoNpcEiVLJMiP1Fz1z 67mvl9L2xDKiSDl0+pm3j830o8xnv47obNUigtjzBLowmwHbQf6jtf0TOcNn 9iJ2395UxT6qtx0haPYCYJ75+g6zyRpvtXe+N3LrgVizyCy6OxJbMqP1BjJ/ 9YFQG1T2TxSeNKIcEuvA1/HSuCG3wPdS5i0tpAIjJQlQ7GB/kOZjlyZWOTpj bxVVyjuLaDeeGp1ek1ejbPxg41PIdedgFwSxU1Z3zu3G5rzzZGJ83/EsFRfW knSzG4wd7kWIx3wwYVebIOTrSP/EC5HXeO7rrUn8uQ5f0fJEF9pAeh34muhn kZKC5do2WjowUpKgi1kJQH62o7N/6YvXlKuoaRm4Hvi15DeZic183hTX6y0j wdWCFwGGDru7hHnxVMNIUMai1PqWoEQQe8VRx4OcmQe/ersTLvZS8uBSG5yj Q36koOaG2CUlrES7e0HkRXbWfe8la7UbuzzP8NC1jy60gSw68HU8K2rikoW8 rM6qb2kPjJQk6GJWAqA8TNjdUV1UwPNGyPG2MBG1qtkxK1fxlpT+LML5qTpk EHu+3kkvJ/r5I1DqoG2qhM6Lm3POU9wASZmevD+JBmx1QkNbN+hfFXsVZsHV mrwAygjrAl1oA7l0YGbDGgPV9PmMbjpcaA+MlCToYlYCoDTM1uxovLNmxfki qhAzy94eYftHw4HLflnc7LuK9zz/VbUfBfTXXpIIYs9X8Hkn5DjKf/Rgt/fX Ur6ViKxGkEZuYiFHC2kMzR2uuSLyTwX2utThA0qgC20gnw4kSksl0FvVXE2B kZIEXcxKAJQmGhxu3NUnBwYnizpgW/UP1gmXJ3maHaSi9/OGlGgSIojd0Oyc z6UE6Yi7K+FIOemcL8HFvgvzxNPFlweu6PEiMiYHTPT+9Z5jcWNLHbbaboUK LcaexoK7PWWwNZrGCEh0oQ3k1IFkwCGP8ax7cX8qQdnBSEmCLmYlAArDK8li AgBYBIG7sqkU5lVw5DB/+RZHSH+1rokgdurQcDCnFiSyF4/YZ0stpk4MEHXa FX5V4uVAPgSKXZPteIAQXWgDeXXg69fr4/3VZMCFsXZoMk/JMJAVjJQk6GJW AqAwS57O1Ow313f9syckrt4LoUUTSKAz01gL2I7pWQKRQez5ziAIb7xw77P5 fPbH2SXxLvdUR4+qE86H+nt4OoMsF6OBlvcgL7rQBnLrwMzTUmzwiwMjJQm6 mJUAKMt2cFhYotFgqL7gE6UxNv2DVcIrSK5SNiYHD3D7Cp12KyaC2PMFuhA7 oOpOz2LqX8SVfFUxEUFEYIw+9zv6QuhjN3S4FvbjmfV+QhfaQHYdyGz4Lx8Q fEFFg30a765oMFKSoItZCYCyZK4uotPlslyi0x2RcHqRC1SDLbAu3ZWVggxi z1NfnfTGC+J/WCVf3M8n6xbqMqZIV6Qp9jpbAM1PtY0utIHsOpDss5xArjIC +xqMlCToYlYCoCzZFLvIMtSkHJVFsROHgHlahWoUQeBQ7p+QbFS6S+XFiZfJ RZhNRy12WSaKz5jaXDnTXkGJML+4WqsMKaDYNY8utIECOjD91TWUkN9UxmCk JEEXsxIAZSG0XBKRxV7k9rGLaBWqTUi3uSFXmERaud1W10Lyx8YjWw4WW89H ELmEtj4lwGzT23keXvp0gGLXPLrQBgrowNdr/sEjwu8wHh7+x76LkJYZjJQk 6GJWimCbpmF3ywqGpmWI4GYWvedqBTO/9U8/iWrKkBnHLqliJxzU+yCIfZdD Pd5s3aWZtRnHGTNV337qjcx1fmfOeYIqpaD6oqezmr+sPs8p1IFeXwh+73bY ejtb6kypvRRVc+KdgU9d46HVzEU4lefLUW6KXYeGSRfaQAkdSEfcnWlLOTJf RIORkgRNzMqSVjMmFrnvcw33/aaxJhHDRNU0vfOB/WYgEttPQwUI6OWQ79pg 51F+DTDVt/c7fKFlKcPEo4++u3a529re3t7VN3JrZkVcCougySOvSfOULxSD mCorImFiz2bH//LZwG+bkhPKYK5r/6fhuBQrKo8nqws2I2qIqr80FhEkn+4O gW+4w0wdHxh7/CrZ8+jwSPAVezU67OmpNXa4F4tfPMj2QM322f3b21oaGHp1 d9pdarekVtrGM72DthGH6yuXY+RKP/fOUKbG964HfiUnY8ahlS4Ue3kbJk1o g3wooQOZTf9QVdpinifvBmSAkZIEtWclE73v7DpCFVf4jlmf933WaUlLNkgN lalp6NbcPizJWeYw0WlXTwO1O771ZwY+u/bl1T/wEoKVdtowK1nqsRu7vcuS XZ88/iu5nVCSPBNqd4F4a/DWw6i4MpcLnrM1mXE7ZBC7se74MdZVS1lOX3F+ MzEVCPjH3PFhrTQ1feCeecGO6WZk7FJ9/FOH2odv+f3fXus9RpnPuuZKkdnk MFW1un7BWrEX8Q2so6+R96hXWKwffjn+4Hmm8mQ2IoEbA03VwsmYOR20nuoL w5S2ySpjxf56e9aeFmyhky2nlsBISYK6ip2PPajpcs+L/l76sW/orYz0wAyq z3sWJdIzQAPsWlKH9ZCBOtb31fQK7wFjNgIf8QEWVKt9RgvTM7Pn6YEuzxPJ bDTzs7O5kr+wIBOzhEtGH7j7jlGGvByyOu4XLNq5oalqdswKvfPkGcHBbu9T evWR3/MnNszCHJc0dS2dfcMZ8RVbq6Hvrg12t+5+Jn6q8sXdhVJ/OSlL0Ihz DzaXAs6eusT7Zj5p8/6c+wVgog89/cep1GTcmLULuxNo3PEFw5ShsMpZsafJ JO55iCtEADBSkqCmYt+KeM6ZDZX1F79fEmt3Y7NOa3rB7L0wWm+EdRdDCLLC WdJMXzpR1kkTKYSpSulJA/3BhIRh0i8n+hMCSoo4PYaOfG9rPVjghBKhZJiw u6M6Wyl74oyA6pK0hI5IyPjqZifqxaRDvwhee8fCv8uUuf3TyUhBOpOJBkaa qqhmR2iLEeQLqGFpRALDFAeKPUUWHajT7CH1wEhJQtoPlOMZ7gGzPNZXTVEN H0+ti3yc9OOxgeNJPUTVtF0Y/etEMLTwPErvao/os/mZCffwb+tSiqmU3DSg HThLam51zKQfqJMtStVPIdxe9l0QCpRMJ3NJkCElVKdnqcSrrdwdqq80ZMFc 1/hGdm+hudsdzhvVwDnYs7Wx2HngOJrYYqmbGUTakaoh/6Z2FZQKCFZaymz9 YiZa+FrNjf6R/okXgg2m4oZGLDBMHFDsKbLoQK0+EM2CkZKEtB+onJcpOmNv pQz1AxNi3Rgbc66zZn5NbOh23F3InsWzEwvfHkjokIpenyYbzLyc8161aYWr 3jlNBwXwlrTp85mMmi3CkEtpy56Lh3MsE1ANI0FJ+ziQi1+py9HWQ1cH4RU0 NfUMu3zB+aVo8qo7sdUnoYD32iWrhagLUt03tpz7N3HPwXjWvZgu2JmI28pf SvXqW2RnH7XfHE2Rpj+bPg2KkOsszLyrzWTs9j5PDy6lpEzClhgYJo6tBVcH MWSVzc6ftbibVUYHZu3PsZ90oAJgpCQhzfuhlH+SWfb2VBjE13lgYjOfN7FW hKp/3x1ayx1NSS96eqrZT0sU6ysx2d4uFdH2i7055zxFGQ73+TJjXtg2Oqnf oa7u2l6ZuGQhHyvVbJvKo21FQtawKtGScvqEu8+G7qu+nNVgtqPzY8PtCXlP nXLO5QiQ4FysxlrbDxmpoWQeouodLp77emsSD3N/5SiVglCuF3akkgnbVbby XftIm3Clkbi6kYTAMPEwT709ZHiPVjOFoQP1AkZKGkiDZdizKrLEbIQcb1NF nAluhZxtZkO2QnB7/cGi+ywbpipdPQ0JYR7fPvdGAbl+ikC9ce72Y00aD5aN H2y1RkPD6OxWxj3G2+gcSP0QdWMbNn4cbiD3wIeszlmpTR2Zx1dKWo0omZEg peWyqvHktfd0sL9+vR6wNfC3r34IUzRgq0s8TO0qSWUh3MVxas95i6ygydrP 6pqatJiYvbtlqQwME0dqZeAorYaqnCijA7M019hnOlB+MFLSwGwERxqIuZk1 6kBi2Lw8qs0VFvc9XBhz4asiC5+TCO+ZrtlZn/igeo9W8swzTxdR2FvVg+bo T4524l4q6we+jUifXEaKzNr+iWJrRoqWGQnoeXcXu83fM502h4NdEMSugTRh 1g+cWNr3VVWBItmOBj+VTK1lCyvVbk8TGKY4DB35doBMbDG2O37S2k0mQHS0 XtDiSG1Hwz94b7rdLsdwPDD4Um+ntb29reX0tdlX2tygsjDPJ4caiRW6qmkk IK7ksji2l73nK4oodsd5WY2nRqcLcwbycGUKNLgwgsJhT4Ko065wZsgz/cxD dlNkM93UIc0xRZk7XHOZJwISIEkgRyI9tqgqc8yz2+fix/p7OKWZZ76+w3s4 2Mkg9uxbMGUhQ4wqjjoeaElLqmFQYvftTVWEuSstOzJb6Qa1Mxf2AobpdVqY PbuMaafJRTZU04FaWys0jxZHKqOGFYdmXQpJth59fY50tB+yjt5bkqnwFBfD IPo0nDtGNLc5QyLPUzmHpNYWRiCGzSnbQSr7PGKz21Jv7oHLfklzPAuHWb9n S8XDiC2sIQoyWbLYF3vnofNElSF7XkAh8Mf6WU80duacJyiqun8862FHauXO EwmvDILG1hrzmylvULiwkBTUCedcKd+VxYCqnrmwB2VvmJjYk8CNi00mwulg +Z+OqV+1NCMyUE0HHuz2/ir59+xntDhSDB19EYkzF7zRl8g+00k1SHpx0n6W rAVhbr3sDjyRPECGi2EQHbrA+jES1X1FwTUi19DCCEQT/WG4ufG3X/+SaUqF VWLUc9/RYU9PbWruyCjXX0uh2JlXwZHDJQY8cDXnsyictYDtmIF62xHKHuTO rPzdbj1srGnrvzEt51legWhZsSttULhyTISxK/UQhCxDyqPenjo3ZWmY2Bds IRSc+Ob6cG9LDdGk1dTc68idh64NFNGB2dIZm+2zpXRbLj80PVLMpn+oiv98 CYGmSrO1GvI5epuJn0yZ6jsHr7p9/mBoIfJ0tXT9zpWJEJvhxUU+FHc+y7ky tJngA0okGhxuJObmm/ZZNQpUMmszjjOJTD255fproWIvLomPVwuleTtZZW5o sAUEGodTPtpNVUuHeTlxMXk0ojHFnkQZg/Iq7DotTIQvsUKI4Nlys+PA4KQm hU4ZGqbMvsxxjI19Vz335rSv1TmU0IFkbasE6qfM6w1NjxRnELkJ8K43vd+f xqGj4YBnuMuSWcQkeyCxKJYn+mtFdzlkT/CL1QBs0K9mi2iBUhC2Fi31BL9I Nhc95xOxCwrI9ddSlBB/GRw+VnKVeM5RnxYlyBXh1GrkQzakLG4vF4oYlK1p e4PQ3JUafkPcNo9mX4wyNEybC75/Geztam+pEyopc33n0DVfaFXD/VhTKKED yeT0xEJvdUf08Hg0hJZHioyt1Vfna2YjErg50tMkeLSmutbu/iu2EceNu/Ml etm3p+1HjCINAScMik2AevWP4cNGzK/9CFdAJvWaqpHGuL0yeaWe3zRU1g/c DmdvmyItmmn6w3ZzMHZ7Uz7f4oMEVEMHil0Jg8IHShGUHGPGhN1Ws+CSh0eC 2izCUN6GiYkt/xL0fXnlNBkWa2rsc9wNy103rlSU0IHsbk6AFlLm9YaWR2rZ m6heoZMg9jjb0XnfZ51HCM96dWPv1TvBhaiEe222m3zVoF/MQSB7eFektyer GxDsC9J6fBi7Pc8UVlvb0ZkvrGYqIdflKOSYFVKxqxtOyaZGphpYcvVnqjvc Isvjqcn2svfdZK0hjSp2JQxKpj+85PAbvoBhkqoTzocaXYdhmOLsxCL3nD1k DYrqpqExpZa1olBAB3K7ORIJgg3KD+2OFBm8p9lDwDQ2I74PBUni9e9/NfNC cuO1HW9XXdXq+kXEErA+3l9tLnZLy4XaarVfGyiB9DLsPV5pG4vm/f5U40JZ aytlQYpaMdLA9nKi3vEssSqS65q0Z5F2baLlzFMOZQxKRl2aUsNvMoLYVdhT FwoMUwr6RTCVlWNQ1hchHvl1YGb2tH6SdLSEdkeKcFboIz2BXhofqierxFj/ ZWpJlnQYdtBElUViUwmK3dJyLadVCm8GspJsGii3kskK2WTkkNVxX9maJ6S4 Ulexby953qF4Pz+zNTvakLsRqhbRvmJXxKBk2tNSw29eTPQfIY2nll8MGCYB gspXu9R0uee1Ny9YZNeBmenYRVfELW80O1JE8J5GotRyk17Ry3LBK6oBohjY QRPTWJCtkSu+CR3HenD4BFVERwygfdLKsNd+FFCwZBwTve+wsgE51PF+z0PF SxSSPU9VLlvKzugjg/61RFFHLZRYFwWp2DXZ81QZg5JRx1hkiEg6nCglBHv2 dloaAYYpDWbR3UHGF2j24ExuHZiRjq1EU/h9iWZHKhW8p7Uotay8nLW/SfxK eZcRdtBEPBY28qG4x5hoQKmslhPJyznvVZtWuOqdU6M0YlGoWYZ966Grg5fr BXcDZGKRB4HAg4g0Sz2p2FVu5MEeRLJSJx4kQOnwvJgN7NGyYlfGoKQr9upO z2IJl0s7AtO0g/01DFMWyMbKhj27G6uOvDqQ2Qh8JExlhIO9WDQ6UsxmwHaQ /5P0SsVaJC1WX+YwHk5oFeya4KrdFvMYEw0otT2/spX7VxFNhgRkJa0Mu4Lh oPTjsYHj8RMpcc2749UUU/HeJd+EhtzCcaW3ew/z7FQ91ON9qt3plh1y+8Md FmgKpQxKumI/NhwsYf+e5u+qvuDTdoljGKYMuIC3JFQqv1xTyKoD6UcuK5nc QZm73OFiQvoZevWR3/MnW29nS52ZLb435LgVJFKftmnNZgpIhUZHKiPmkNmI 3P/Waes701hDGSpqGn/TN3xjPLSsFWnE5sinkLH/NQvnL9q7H6KQX73dB4vZ RNDz7q6aEuaXUjCPb597I7PsvTpQb5y7/VjDD4uALSGYuvGsdnbn0Venj73l /ElKK8OsTY+ein+xOLn+mo88l2xHRPaJUNuSxpUedejjf72hv5xTDnaR4Slu 6yerOVbKoKQr9lKqhtLPvH2E+SwwCjoW9g42mSot1s+nVvK80UzsSeDOv928 c1+ydG8YpgzSFJZG/Tky6sC019hgMHe7w+LXB/rXwPX3GuNlPaobez5xjU0G psY9o72Nu6961/WZ6FZ09i99jdW7NuXiuO7cHWLQ5kgJYg6/Cj+bitdKoiwt F+xuHztS9p663aGjjnQ5/q5gcYm9SVuoZegbK4B/PlR131j+yh7cKio2ASrp BS1ufgGtw2z4Lx9IvbLZawmyTjNpS+FFQ85OczFyPbFYSTe5toPDybqWlf0T agYzsYUHK443HqW0HvmQHeZnZ3OiokkRhyBym2PFDApbWj9FKYViBBtqytzh miugOD9R+invSceyf7CBm/ulhe6QXw/DlI4w8rDcFDtDh91dZtKdVtvjCYt8 AgwduTvSzi7V5o6RyUXiz7ejj/61u7rCcuHTT1pNmljJ5UabI5WKOTRazvSc sVSaW23euXViZr9aGv/fbGEWc+toUPGctQwUVuyp+Ma8T5V3JIpKgGKiD9x9 x9jBq/snn/azfkERCGtQZC8Zx3kmG4eDUmVlbkbGLsWnbRFyPVF1SkqTRx6N yT5nc5JahyV82gpC2hFxxxWKmGPFDEp6t6OifezRGXtrynwWqk7Jqvj5TjpS z0RkPcZcwDBlINQGZaXYE8FLSaqaRgIiJxdRT8x8xjGzlvHXXPeKJJXNzp+l fzGY2OrTSOR5VP2x0+JIkTGH8SGo7/fMZbYs56oWG+Jd1YeDage6C2eloH2h PKRK0+QRP1z7qsLDdHdi4TFbK/f4lS+4B5RC2JbF2OXJEg+688BxtEK6Bovb 61Mfx9uKpAuzQv+cVSMSqgvOyZ6QReqa0uTeQe6AOpkg9j5Up2ep0D9Txhwr aVDSaqOddM4XUSomkVbJU7g6JZoVVg35N3P8EVnmvbRg+7TrwjClUaaKnaGX 7o1aid58RVWkZ5a+v8iX/609590jHZ/te5v4FsmzVLb5A744FRbrJ8KdvuJo caTItnE5TgO3Flwd3IcUb/uSgQqzMhZ2dycOevc+zN2YHDxAFbom0y9m3B8k OkBpu+MDKIm0tixZSxvx/QQb7NNSlJNLNDbNLswKuWWuN6u0WY1k9HUpIccl wy8guqiLlQUivkhEDJVS5lhRgyIs6FdMbRChv0uMz58ogJDPa0TU9pG4TgIM k5ByVOzb0ZC7r5702RbV9TVZT8xAVZ+7vXeO8Zp/MHFeXGrDsnSYyNdnzcIk OculiXwZIjKiwZEiDxZzPpzUvUs9TKJRZVYKGjRQpqaLNwJPhHXvONFVwPOh 18NTNwaakt4sva2KQByCfjfZQ2KYZ76+wxLVf2boyO0+izHudrs9G8lPOBQM EEz6PF85P/ltPNK4SKflXpBaTtWS7PwCosnujfkhC2IUrFEVM8dKG5RkfHgc seI/1aRA/DpMNCvMdxhBPpNW14K0Kz0ME4kuFDubRyOg2LeCiT7yfXbWQopc qqHHNS3+TGTjkTOx982dy0y+zKU2LEtjc9550pBOVbNjVrWmCBocKSLmMHeB aGK3oXIDFLVmJRMNjraSYZOUqbF31OMPPecWyIQj5Yh9Nvu6uBN7HvLHU7zI FOFDVsePK/paFYE4hIo9SyQGdy4vTRYks3J3SLCLL4HKixMvJXwzybMGSeNt RMIvZToNiSFFNdVV2FGFguZYcYPCPLt9LtlNr9DCKewfRu87u44k/lKsOiWD 2Ln+uXtDPBNJ88p5YJhS6ECxb69P/IGoQsAth7mjqjKhowvBO46+RpNAApqa PnDPvCjiJ5MtKfP0p0ile0v+MpNFawlUW6i1OFLEAWtt/0SOkz2yOJt02e7F odqsZOiVHx2CGCSOipqm3w589s/n69gn1PJFKMa9YTux1WeR+dmAf8ztsPW2 16cXMi8yxhjoC3LuZDtAj923N1VJUv9Z6DMsGcmXSsJlUdHrUykfhtNaeg2J ERSKKWyAlDTHahgUeml8qD5hD42t/2c6M2w+49uJOO1dDrWP3BXpTCaC2PME upCB/bmfSdHAMCXQmmLnkijjPJmf/Y/4A7f3CsUbf6dNA67xwOx8rsPQ3QGb 8vv+6rRfPt9iSb+Eqbnv+r1IrLglbSPkeDtxwTz9KLdn7Ql/geQvMx1xd2Ur HK1ICKU+Roo4hshzZEYeWGihAYpqs5KJ/eKznTQbSqSyrscZWNJXb3RQJEQV uAylytdPk6Iag+B8XAKkF9Wk2tzT4yc36wFbg7QJgIqScthSB21TBawgSppj lQwKszbjOJNYkylz+x8nFvY8HGJiT+7xxS1ZzCdtvl9E9/Ulgtgpqzvn1CV+ qWT9yLIAwxRHa4pd9oaDlKn+rO2rybnVEiJH+DQH7nqnXeEcJ2Pky1zgAZ8I mJW/DViMGb9RkbVaFyNF5oLlOQMl+/+q3GRcA7Nycyl402Y9XFQjIcrU+N71 e0+k6f0O9AFRPi5VDYahV4Jf9jRQElVjkHrJkeMEnwxllzZIvmD45EpVU1+L h3TY1g36V/P/haLmWD2DwqzP3RpqSupw6rD1ivP23en5yNPn0S06+iISmZ+5 +8314XOE36y6se/PxalTIog972EN8UxkP98ve8OkvjYQIosOrKhpbO/u/9jh 9gUeLpU8XsJeIXleUWLayvIyb0dDt2xdR9lnZq7v+vT7sZGjyoRh62CkxJyB Ei4F9d1TGpmVzEYk8I1jsLM+y9FJNihLS+/IzfS0IFAeJHuRGCos7X+4+uW1 zwbOxN+cIhOFsn2DxEuOLBtzosVJHn+vTPA3oL4tLw6i6siBy/6NvM9PWXOs skHZiUXuXe9rzj8L4u2cHL7im66SQez56imlnkmBZyIlU86GSSPaQE8QS0re V3RzynaQf6lE1fYXDb0R5eJG4gOqduKkZiDOQPPUHGAibmty9ktcn0o8GpuV TGwp5B2qz7oYmuparN0Dn/359t3pBQ00BABqQi+HfI7+ZNSo6Wjn4LUSZIM+ 4crOcwuJCqHsCSe/xFUOlCL19KgDg5MF5Fgqao61YVB2dfv97+Lx2Z0tdWSQ iLmupbPXxrq7npcoTokg9nwFWIgtqtJn0+VomDSmDfTAoqczmXGcZ9oq/zKz bigodg6iSlieM1BB6ly+sD350dyspJ95Ehl1vBKgYzG1bwoALUIExii/92fm XW3xDZNOm2sTwRjHbIFCSuUraY51a1DEQh4Q5Nn6kcl0yoeBlZ9h0pw20DyC 067cr6jyLzNXXixfLaZy4WVw+Bj/+PO0uiZcCgZTm0tt75TmZmUqUlHeoyIA 9A8TdrVRBWlI6b+aTwGWp7m27BCbnYbR2eydiYQoao51a1BEQuybqDw/lAw0 UiHVuvwMk+a0geYhgynzlPMlXmbBe8/QSw/uzS7J8KjZzBrVGwBpBaL6Ze5G TmTukhQ16EpFa7MyVb1BzSrTAOgDvqFqHGUbKCddu9L2clWKrWl7Q4U4lauo OdatQREHGcSeb8tJ7JiExzqbz2d/nJW7JEsZGiataQPtE6/HmpiMubNXiJdZ GNAY34BTnZ4l6W+O3XLqtXGG5KQW2Jwv9s76xAeJg1VV+08l0dasJE94EXAF QF6YjcBHvI9VmjavBbLqH2RXPDmL7MkG8dAKV7mKmmPdGhRxkAcEeQ4jCG+8 sOZ8/GlXydwRoCwNk7a0gS5YcLcndvU5N9rMgqs1MW0FG0D5Xub4llOpfG0d kGrFmOvFZsLuDn59pRo+nlrXgKXT1qxMyAC9KgEAFCe1qiio2ZKiVI9OG+aZ r+8wJ6gb7NMFPzElzbFuDYooyECjPAs+6Y1vcYRiyX/BKvkGW0DWxOuyNEza 0ga6gEhOz7FEMKvBkZbE5l9Q3InNf2kcDkq+JdydPucrCqxhWxakSvvuHeRG OHaoZtuUgifYe0MYFw3MSvKEV7WmMADoC2Jhqf0okL9KoRRfmXB46jGml1l0 d3Diz3zOEyl8i6OkOdarQREF4TbPlzrN9TLmEIQksSkDBRXnLIHyNExQ7KJh XgVHOF+A4aAtsJn1ndyMjF1KthUWbgBfhV2nqVSTEQnvi93ay3Fl/ZKc1Hsk vDPRwAi/5hyyOmdjWT6iAml1p1WdlcTbnrUBPQAgKymncXWHOyz/opx0eKrd AK4Y1gI2LqlT7JGEsuZYnwZFDKTbfJcO18Ieo8EsT9maU/XQW10LyQfCPPF0 HSysOGfRlKthEip2nZaEUhpmwXOWy2HJujfn1oeq4+2tlsztZzy5plqGc9Lt df+HtQqZBh2RaGCdtRceveDtq+NXVyl6MkqFlhR7NDjcmLiRvM3vAABJGDp8 w8qpHyXc7Inw4zx9PzUI+aA+9IsNI1HUHOvSoIiBDGKP/5Ae79Msv4NZm3Gc MVP17afe4D9IHHDszDlPUAUW5yyacjVMS55Osm1U7gxowMPQi56e6t0HR5k7 XHNEESomFp6wn7VQh6yj95Y2Zh3N3HY7mb4RC7u7zXIkj3PnU0odv+qJ2Iyj 1bw7UtU9nkU65QVI9E/f/TfH+twPtLS6ciU6taHYiXYwu9a0f6JcPBkASMHG IycX6yF/NLt+g9hThxH1AxNL4ldiZc2x/gyKGATVMtn9X/2lsYggAoiJPvIN d5ip4wNjj18lY5mS5xR02NNTa+xwL8r6BMrWMKUNkOrdHnXDdjTk7quvjK8S rYNfjk0G/GPuq39ot1RQlrP2iTDbcoyJha5bzexK0j582//v3qvn6ozx91xi AcafTxW33O17GHrp3qj1ULx5uvXD+EhNjXsc/S3xcamwdH7mm1/X2EMjihKz LiEVSysTPUcMajTIAEDnbIWcbWxjSnO3OyxjlEQi/Fh3lQe40+FdjJaBv60U udIpaY51Z1BEQAaxG+uOHzOxWxDL6SvObyamAomnWmlq+sA984J9bsmIo0Pt w7f8/m+v9R6jzGddc/J2hCljw0Tk28ZBWIUImNiTwC3HYHdb3e6Lbapr7R5y 3PoxEiO3PLtb71nv6MCZxhqKqml657LTvyi1v3Qz4r1gKWm5KwPi/dOv23p/ 01hTYaBqGtu7Bz674bsfKbGXsyykihJzPo5Tzjm1liO2vH+SqiF/9jBRAMBe MHTY3cUKxepzt5/JNYGSle50VnmAWb9na4ifKJZeVkVRc6wjgyICMoj9YLf3 Kb36yO/5k623s6Uufqxgqmvp7Bt2jYdWafJ3bq2Gvrs22N26+xlTfXv/F3cX cpXFl4JyNkzMVsjRTAbGVJ/3LJbPhkXvbEeDnzZRlNn6xUy0TJKl9zfRnxzt xKGXsXZoUjWXTaLjOb91kKWDAAD7HnrJN8AGUdd0uefliXBLlEzR1yl5MnvR 2O74qTzqaWuaNf/gkcRy3+WOaLUMSbkbpo0511kz4dSD/NMPsZCjrRrjtT9g 1kLu91M1DdSeiUzEbU3djPGIfRovGQDFwKxNj56K78TNnc6QHNKUa9dOVfeP y1oCW1KSG5m6Pu+CVtVhOUEGh2s4GwKGic/8JRztVP37X/FxSgAA2WGiP3tt J4Ub56vBFTWnoKAwr0Hu3H8A9jX047GB4/HgmPorkyuSS4xFT2e1gToxHNSL YGe25lwd8WAh/ZZV2W8QSth4ePgfmq03BMPEsrkU+HNfY3XqSRiqG3tHPf7Q 85hW91oA6B0mtvJL0Pflh1YLEbtuau67PrVEq23GmKcTl98ycfdzYxpWFYCS 4Kv/yXF2Rj8P3rn5XUgnk5ShI98OxBNFIde1QzIVwqD1bAgYpgRMLHL/zrVL 7YfJwHYusaL/is02+u2czjMrANAA9JL/uu1Kf7f1rTpT2lRru+C4cz+CGp0A 7Ed4T3tZh54y0eBovEAi5LqmWA/YGng7pK9sCPCajkZCAZ/bMTzY23kyng3N 6wndtWYAQIOsTdmOJ5Q6m4Dfe9nu/Ot3wYWo6n51AICs0IuTIx1mQ2W97V45 Jlvu/OI+fUjfRcv3JUQQu7HLI1tRIwAAAAAAvbC5FPx/NyfmddjFvmSYpeA3 39zVc9HyfQkRxG5qc81jdAAAAAAAANAUdMDGF0xUswMIAAAAAAAAIDvMyt/t 1sPGmrb+8s7lBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGTi/wPEpQPk "], {{0, 117}, {998, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{466.5714285714321, Automatic}, ImageSizeRaw->{998, 117}, PlotRange->{{0, 998}, {0, 117}}]], "Input",ExpressionUUID->"6dc73283-f86d-4d0f-a910-9b530becf48a"]], \ "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}, {3.7664211655263824`*^9, 3.7664211673982325`*^9}, {3.766421201741108*^9, 3.7664212021192846`*^9}, { 3.766421286340585*^9, 3.7664212866521664`*^9}},ExpressionUUID->"665dac6d-c81c-4b23-b692-\ 2c209b3f6b29"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"AlgebraDD", "[", RowBox[{ RowBox[{"Da", "[", "aa", "]"}], ",", RowBox[{"Da", "[", "bb", "]"}]}], "]"}], "[", RowBox[{"\[Phi]", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}], "\[Equal]", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Closure", "[", RowBox[{"aa", ",", "bb"}], "]"}], "[", RowBox[{"\[Phi]", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ")"}], "//", "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}, {3.7664191875165696`*^9, 3.766419187658866*^9}, {3.766421228323343*^9, 3.766421244220212*^9}}, CellLabel->"In[62]:=",ExpressionUUID->"daaf6e58-9ff6-4c6b-a226-a1c5fbf4b759"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.7664212447274494`*^9, 3.7664215074325075`*^9, 3.766426042901613*^9, 3.7664263144423885`*^9}, CellLabel->"Out[62]=",ExpressionUUID->"8a71fc98-47b5-4c30-b588-45d509111132"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzt3V9MW1e+L3Dr3od7H/bD9SMPSFwhS36IFCGEdImiCh6IEiFB1Qoh2gqZ qLkQzc2BnN7CtAqkmkBGravTgqZ1ek6sNhZz6pyJlTN15uL24M6EHOFM8Uwd BZS6DVSQ4DQk/JODIBh2Lv6/9vbfvb3/rO39/TyMZiZgbO+9fmut317rt/7n yd5X/vd/MRgMb/33g/94pWug8R//seudV//Hwf9o+4e3Tnf/w6k3T/zD/z3V feof/9fJ/3rwf3ZG/+G/GQzR//4CAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAABAFvvbT37ye132j4d6La82VDOGOOakc/G52u8NQNM2Zqwnki3K1NDW 1Tv4kf2qxxcMhSOs2u8NAEAObCT0n7buo8Zu94rab0UJe4HRmkMtQ9eD4T21 3woAAAAAAEAGdivkvz7W11Jt4GBqm9/o7Om3Xp8L76v9FgE0LfLEf3XU+sFw f3dbg4nbytr7x677Q1vIAgNAGdkLz35hMTEG5sT5m4/0Ed/CQUe3ycBUt7zv De2o/WYAAAAAAABS9reXbtq6jzLpdFRFXeeFK56Z6LJEtd8cQDmKhJcCX1+5 0FlXQWSBj1g+/noea8YAoBykc79Dkw+0OJZgt0N3vM7RgfgDu4ra5jf7rZ/f 8D/czp/IZjdm7acOfoFpvDCJDDAAAAAAAFBhJ3Tzo3YTkfo1dY1NLRaY3QCA FNjwTx7r68RSYKwZA4AykMz9Gmp7XAvay/1GHgdcVkv08Zy5ue+j8YmpmZmb bvtgW/QTmQvXdmCfTI80M8gAS4+NrC/4J6/aRqK7aIjdarF6SkO/G5+4Pb++ q/abBABZIQ4AgLQQVUAnIis3RxqJ1K9qUxV2e/1RSDJPsGhZNrhSkksuFUs3 w6aPZjbpWQPMRsJPpbjYT1HiGEAf2Miyu898MLaobBy5taaxds9GVv5q7zka S96+e232KdFJ7W8Ff98VzQAzJst4MP9j8siCq6eWvniuXfvbodvOYUsdQ3aW tc1vvNZcS2yiie+jsbo0XkwJ3S5AVrqKAwCgAEQV0BE29NVpzrrfXtfitjpv JeK38ooOSyB5upbrz4GlTaQZpYErJQd2dcbaSjRFY731uy2139RBh7g5/dt6 Jvd1EyXao3b3j9iuTvp/erKNiuIApWH3Int0DUXZzdvWpspoIGv//AeNbSVi I6Fvhhqjbz7H0/CtoP21WFCsarXP5V8Iwq79ZajOGM0V97gWkYUrReRp4Mu3 G6LfO1Pd2D1s/+rW7EJonbi3IuGVhYDX+XFfsznZ0xwfuHZ3TXtfO7pdgBx0 FAcAQBGIKqAvG37rcWJ4aO5yLap2K8uSVCRV1La9e+nG30IY95YIV0oe7Ob0 SL0x/TUYe92PVU+E7624z0g9DeVgajvO2b1B7KYBKB67FbrzZ9flkd7O5tp0 +2SqG9q6+y/axv+fL7iiZs6VXfacrY++I9Np5zwFT7GEYFf+fD6W+83zNJxd cLTGv3Lze1Ob+fupvc2Zj5qi18jUbp9V6eG69kUeTA6diC65bjh7+aC7yD/n ivzid7zVkGgXlY1D34Q0NkdDtwuQjb7iAADID1EF9GZnxnqYXG/4lmdVvf2J 6ZICDxfm/u73Tboux4vs8VS3DDlvBoJL+Ta7Lcz5Z3zePzpsF99uq+O9BFP3 5scT9wo0cMgDV0ouz+ZsrxBfQG2/94nabyn60PMJebEmfz/cfpg/l2x858ub 3+e/0lFLwYB/2vuVY7S/vZZ7sZm607bpZdWT3QBS2An5rpyLBjSmuvmcKxiW 9sVXAtetliOFskOxw1sLDmVlsb3o6o2VsjF1OIIaSzAlyzUUqFe84xuuKjpK s6u+kWOxMNdqnVnVT38mmcTsrLJx0F30uai7awG7JTEs0eAcDd0uAI8O4wAA yApRBXQo5Ookx4LH7EG6llvubU795hBvyFs14tsR1NAi4aXA1/aB5mpy4FtR 131paukZWqxEcKUkwe74RqrSn9141HaXwnqRGau/j1v9GwJfY3976aat+yh3 Mlpjsd8J6+NKQ/naW5v+gFNO/2XHvFQda+ThzeQxkUxte//o7yem/HMLD6MZ npmpifHfDXby0sIVdZYx76KS8ZPdnXfGSuMamFZ7cFdb7Xk35D6b+Hrzv/l0 EGRqRgMFo3SyBASKAIuwdd/RZRQzyYqseIfqEg1B80uv0e2CviEOAIC0EFVA l3jp305XSO13xLfq6TVyhqqGdueSmJEqG1m/N5GcOCebbNcYVj5IBVdKCntz tqPE5662+un71Bn7UivPT4lLLyV33BAafu0NYSYKGrb/o+PlKs5NLVEzZsN3 7Jaa2Au+MnR1JnttHHYr5P9yIF67IB0/X7fefKhQJEmvnhWRnlIZuzo5YI4H pEM97of5AtGzqcHkd8x0u1cKv/busut0rIesbBr9m8bKYaiJ3b0/3mE0GDvG 74t4lMCuTA01Jq9Tu21W2nX4SkK3C3qGOAAA0kJUAb2iP/2bWWa2pDe5E5r+ pJMsU8CcGHT/iJUPEsCVkgS3SVKZ/l2dGqwnr7Ox17Mq9rVS50Olmc95VSxB A1CijEjIdDglKKmfTKsyjefd85v5Xy+dKCbi59DkA/mDSeSxZyB2MAZjOv2V 1jJKzxedJxNdTsU73rwVfdklZ7vQnm77jq2lKvbdvGYPIgFcHPaxd+BIrKj1 q53d74zduCd0DMAuu7qSD6aNlquaPX0P3S7oGOIAAEgLUQV0i5trqhyceqb2 O+KTOKl4YC8cdHEWRyk0Ly53uFKSoD/9u3fXdpRc513Z6viphD5vb9XzdgXn vqlost3VWL1QgBTe6l9pyr2GZ23t0ZMpGi9MhnaK+YUsGWDjG5fubsg7PN36 zpo4vFJ7S39f7N+zH0uEoop+72a+H+VU6Sk6EZdaAGwwdrmWMVEoArvo7OAs VD06OPVU4Gs88fbXJn9dg7dlHLpd0DHEAQCQFqIK6Bf9uSbpk4ovonnF2S8s 3JWl528+wmysJLhSkqC+SaaPvE9otc2VtpJt09vPnYgajtrmsBAJtGovPPdv A81mg6Gitm1o3P9LyU2Y3Z79rCWa/G0bC6wXHf3YyKKrh3siJ9M0FtiSL3xq O725H7QfS3xPBU9z21lwvC4mSqfT48dGfDgDriDO9xz/sjtdSwJfZH/T+06q hzH2uB9r8HtHtws6hjgAANJCVAEdoz7XJE9S8UX0dJ6pC3Xky5pOO+exH7ME uFKSoL1J7q163uLUeBZdgTCF/cnRyt2IauhyLmEhEkAMu+jqMouqGbsVtL/G LfJZ1Wqfk6tppXObIhZRqI6YCzA9rlD+uPuLp/dw8is93Ov5pfi/Mu94I35F pDwQsGyF/dYGbtfQMOxbF/oqnEodxl73Y8o61cLQ7QKJ3Qpcaq02VrdekvNx Hj0QBwBAWogqoGO055rkSypGT3mZsbaSU2Om5bPZbT0MpeSBKyUJ2puklBUI k8hcSqIXtvpRRR/gRfRwirlLTQdtouJtj/DinOyqp4+3xu/QRZ8sGQNiO3n9 h37tJSWIKHTMHsyfmCXOfTMYXncsFFWOI44oFoetggVtB+1tZM9v6nLOizii hTM4EZSupwS6XSBFQq7u2CXrLvSgqjwgDgCAtBBVQMdozzXJmVQ8mIit/WWo jlxSYepwBLH6QSRcKUlQ3iQlrkAYt+Tq5N06mIcCxIUDo80HQ9NDw9Oi9jys +4YbuI2rYGUDUdIVjyuO2e9pb1lrOqPLHLbO5M3nss8DY0dScwah5/qxD909 h+K/W9HnQQGI/NjwnfG+49HugTlisd4IhsWVJ+B0MTQecpEful3g0Fv6F3EA ACSGqAL6RXmu6YW8SUWyVmGC8bRruTzTirLDlZIE3U1S+gqELzgnLiW12YPb UrxfAI1LZH7E7EqL4ZQmk22ASmZEtdh4yfdfMD0eT8jHHepxPxSYiCOuCHPS ufi8hLcNReKmOguu7qYMul3g0l36VyLajgMAQB9EFdAgunNNUfImFV+82Lw5 aCbrChjrR6Y3sSBHBFwpSVDdJGWoQHhg1dPLeVGJXhagDKy4u9Nhz9TY80/u 4Iaw1ab83JEcZzxt+K3HtTz6JbcBFirmkC5xLPYovXTEq3rZ8aP2vi3tIY/n Phg7vCWijop60O0CD9K/4mg6DgAAhRBVQIOozjXFyJ1UzNwbiwU54uBKSYLq JsmvQMhYXKFS54tEydCkin7vpiTvF0Dj9gKjNdzWYTCf8woaXu74hqu4ryD5 AHVrevhQPEltPGq7q72xL7vospgSX06B3PjeqvecOfGjjUNTK2LiH1H/QZvZ cs3hFTrQ1hln6HaBB+lfcTQdBwCAQogqoEFU55piZE8qslu+i4c4f6CiyXYX rVcwXClJ0Nwk+RUIpSjyyS66usycqyp+nztAuckMq4JPl8jyEtImDcjI3GT1 azCHtOntT+XC2p1LeXJr23dsLVWxn6tsHLm1JjILt7PgeD3597DjXgG8CZqm ityi2wU+pH/F0XIcAAAaIaqABtGca4qTPanInfrFyXU2elnDlZIExU0yYxd5 6amevU3f+/XcS2q0XF2MlNc1BRArW/q3utO1JOAl+Okjg9RJA2JfRsU73k3N LWZld/zWw+kA1Ot+nOPLYdcDY22xVc6MyTIe3BYfpvaD9mPJq9nhXEC8kxf7 s7O9irj/tTRBQ7cLGZD+FUXLcQAAaISoAlpEca4pQYGkIr/xGrAQQgxcKUnQ 2yQzKhCWnupJL6VLzUK7HPdLPtQGoFwQecKUgmeTccm9+pdIL0uxLV15ZOHf A5VN1ttZqsqzm/evno2tmGRMli9mRR4SnURU5DD2uB9r70ujB7sX2Svw/fGb gIYmaOh2IRPSv5nKOw4AgPIQVaBM0ZtrSlIgqfhiwzd8lPs3jEdGvy+7qrIy w5WSBL1NUuoKhOyT6ZFmhnM1GwY8S9R8XgBB2EhEhqq37LLnLKfdGds//0HQ utPM2r+SJg2I1YnaL/x7aOjaH942MyeGPD+T3zG7vTg11hX7IXPLyNeL26Wv cF52dyd332tyybR6IptLgT+77Nb+7raG6nQHwtS+fGboE+fN4HrmKlb+MWca mqCh24VMSP/qLQ7kUER2CgCKpduogkiiN/TmmpKUSCqmhlIEHMgiFK6UJKht ktJWIGQ3Zu2nTJwLWWOx3wmj/wFtiawGvVeGu48lgl91Y+eg3RtclbK0bvj+ t1cu9lo6Ozt7BsZuzK4Jq3fOLjnbeTGzZjQgWZaWXJ0ocFlyIez247mb//bp 0K9aalNFf0wNnb8ejY7CRRV9zzrEJWoKRU+/OghNjjN1jLm5/1OXd9o/MzUx /mFPQ+XBDKC6+Z3x2w9LKPlAIpcct9rmsPayIDayftDULnTWJa8WU9t8qn/Y OmZ3XnPaxz4YjN8nscvk/4VsgBlL6LUzQUO3C1noOf2ryziQtr/9JOhz24d7 O5LpKaa6oXNg7Lo/lFkIbyc0/Vl3/esoLw+Qlw6jCiKJvlGba0pRIqnI7vhG qrh/xMCcca9obx2TmnClJEFrk5SyAmHkaYA3Cc1YbgdAPzZ819nXxByMmhpP DX165cvLv0mMHg/u58kHdLTc/U3vO7yK6cZez6pkr0/uyHjdsbAjzauymwve T7vreG+cjIyvDt/4UVjail1yn67NWDxJFv491ON+GPvH3fXgt1eG+zqbaxmD qaGtu9/6udt3P8vCD/HI61LV7vwZwS+P6BMQ+0BzYpJSUWd5/8ub955krsFm t0L+q0MtZm4DzGwCmjluD90uZKPT9K9u40AMG1m7+5X1ZF1iTaKpsXvwY/u/ Ou0fDcafPle/OuIlRx07ockLjYyk/TJA2dFfVEEkAf5jC3pyTWlKJBVf7M3Z eDUFtPMEhxq4UpKgNP2bUYHQ+JZnVUTW/aDfCXwZzZilMNUtIzfms9TaBKAZ G75jt9QYmOMD1+6uJRKD7Jb/w8RWbabdNktDXCLOZUtIJTmlwP7kaK1MvHDl +alnErwwG77nGjjO3Z+elaCFi/FLU9Vqn+OuGyZX4So6uCVHX5WDU88U+8Ma s7Pid/Q1JO8x0+tWz0/5Lzob/tE9eIJJN8CtORs3h6qZR8bodiErHaZ/9RwH os9D5z3WdlO8BVc29NqnFjaIC7+7HvzjYGOlgWm1zqzGvpW9tekPGuM/ftQ2 p5FPCaAs/UUVRBKI4WXsqMk1ERRJKvJybvEvQ9jp6oArJQlK07/8CoSGVofQ 4+rZ7Yd+18VkvxP/eK8MXf37Cg4cB82Jl+TNXOVLVBKg4kivrenhQ9xMqvm9 KQkrzT6bGkyOnaWow8NGQn+2th82FKu2x7VQVIRkF11dZoP5nJeXPSPT1wrX ESJLxgkPp7oQeRq4cia5RoUxdX4yHSoqP8+G/WMtVUyrPbjLcsosU9atFoJu F7LSWfpX53Eg8vCm9fXkuv1cDz0Pus6JgTqjoe7C1FoksujqSTZ5PFsEyEKH UQWRBJKQ/k3IklTU5ik2KsKVkgTvA8rxHYrAr0Ao5DuPhEPRCkO/6SS2cjN1 Jz/4UmwBTwCV7YbcZ00GU7t9lr/La8XdnUq0qH+k196q9xx3bJq5/LUk5OZ0 ptu9UuKrrd0aaaw0ZGFqaH6pOts/GEy9rsWCW+3iS38rmmx3+Z89nYNlDltn FN3YRvaYVSO+HaTjuCIPJodOJBsTY7J8MRsuvp+PX/Gjg1NPOU8oqOpVC0K3 C9npKf2r8zjA+fj1fe7F3Nc73t1XtX7i/JeOVJWXw72eXxR8uwBaoMOogkgC BKR/E7IkFan8NmiGKyUJ3gekY1VYRgXCquZBuyufL+2jVqv1Avf41Fhh+VGn N7AUxtIjujyb91y20uKyZ57qh8zs6uSAmWFaPpvNqJvJraek9tw8vuSVwDSN BTJPdSgBGfVLjcO7Pzq7aoiw3tIXjRULK+HUq+5vrz8M+j1XLljqiDOZzQOT q/k/U/x7MJ52LfMSX+yzqfPJwbvE59YVYcnVmfry1L5VaMOZqhiYlk8CAmZn MeyCs6Pa2Ot5wi8YxUh58qGc0O1CDrpJ/+o8DkSWPAMNqebfMuYvUOxo966t iVcwH+U6Abh0GFUQSYBjd8nZRVzcylbHT9SNDpVJKmb+lTJLKioAV0oSvIeJ 6i8gfJGlAqEoTG3zG90DVrvrW8xDaZOtWamI7ha9M+94gzEcGfBmlnY4mJX3 ELus1Z2b761NXagjv9Z0OS+ppLIQhpLHD+FZW3tyH15T72Vv3jWKe+GFydHO ZK6YecMxn2dcGl+qYay3frfF/yeibpvIqqqleOLtr01+e+VVwb5E3NlZcQu8 M+0sOF43VL5lG+vgRhfl8/zioNuFXPSR/tV5HGBXZ6ytqY9v7Bi/v1uw/ZKl 7GNQrhOApMOogkgCPOwjTx+x2IbO8wqRVNQKXClpkDmBAzV9nkdqz9n4FQiN vZ7VYn83En4SWgp+P+W2X+g8kn7eWnfS6vKHMg9XBVWwDybOvlTEYVuKYF46 O/FA7Xs+t63vrPVGQ9OlucwRFPvQ3XMo/UHU3dG/9bfRJvJJUo3FMSd1B08e e1FKDXZ2e/azltj9xzS+6wpuFPWtpYfxWVO7qdfOtfSXW/hXhX0WYb+1Ifnt UTlrUMfWvPO0KX3f1p/1LIu7MrHBgrm2lrc5s8u5pInqB+h2IRc9pH91Hgci K96h9NNb5jV7MGcXR9oLjJKzepTrBCDoMKogkgBPesKVGFt2uUQ2A1kpk1Tc 8Q1XGXjKK6koP1wpabBbgTHOEd3Z9pgril+BUOwyP3Yr5LP3kKUIG95y+H8p o2sHZW9/c+o9s6G6w5klWcg+dvcQDaWi37upwjuMC/9g7yTeS2Xj0Dch6df+ kQnM+sGporNTPLtBR6zCGNN4YbK40zcSIguuntjDspzn2eVZ+ksW/q04Zr+n eFIstoAk2YmV1QGm4u2FA59INi7NVipK6QP+REO3CzmVffpX73GADX11On1c Y97nm9zf2/GNVKU/JMp1AqToMaogkgAXGwl9M0SesWLstP9A5d5DVJTVChqv 1F548TvPdZfLGSuJF62JZ+ns7Gg7eWXuOYWPOpLYJ9MjzUQfVUShHlnfDr8C YattrrgOJNuLJQ4VTWFODE78TN+uA4CsYovzmZPOxecZ/xR57O4l7uzYwRDq 4D3bZUxdzvnCu71EkKR8QfJ8OvPb7mXBtcXYxxNnzUzO1bPsY+/AkexLfzld VvNoQPnxD1k6Q5X8cx4qdZ3bd2wtVURfc9zq3xD/atkOij0y+n1m06UQul3I rdzTvzqPA+yy5yyx8j9H/5UNuR/HgHKdRdDmJBFE0GFUQSRRAc0hZX97cYKT +2VODE0+oHQMoVpSkbbpGPVovFLL7m4z/8cNND6h49u9/9VZcglwjeXS7RV1 CvdlVCCsPD/1rJR3srfpe5+zqZU5cf6m6gUuAIqwM2M9zGQPILHDINJ39aGL PkkPWSseu3nbmi77IPRQY0HIw8vEpn/3f3S8XGXIXku5GLvLrtPGHGut9+cd LzOMefBm1mXY7Obf7V1HjLUdg1fvqvF8jUz/0va4WZWucytof40sQcO87Jgv 5c9lGS00DPvWJXu/MkK3C3mUd/pX53EgvmMlraLPU2zJfrKckQHlOouh2Uki CKPDqIJIogpKQwq7/dB/9XxLNbEwqO7/2Gco3gimWlIRa90FovFKsZHw01DU fODqQLL6jfGo7a4GIllkedp2mjzg3tR+0eV/qHgdiFIqEOYQr8ZJMg94HtMb hAASwt+Ntjb/6qufM7vx/aD9GNFKVFsGEFl096UarKy53xdSpH/Z54GxIyXu wtuaHj7EZDslc8NvPV58rTPF0Zz+VaHrZFcnB8zk/Cx7iRUBL8hfQKvmQxmB 0O1CHuWc/tV7HOC3UyFl4dPljKJQrrMIWp4kQtH0GFUQSdRBT0iJvZOlYGDq T+Oj/W216QpghurWfnv+87UpoEhSMdt5YqVstdMlqq8UWcemhBqVSttdD3rt /a3ER2aqG7uHL7u8vkBwKfRoXf5ksFQVCDn2N73vEJHIQOOuGQABwoHRZuJ+ fsU2p8Zwid2YtZ9KHmwhd+73BTf9K+7Mi/j5wiWumoileQ1NVj9nkW+8FDOl hxpEsc+mzqcWWFCW/k1RrOt8vug8yT19ssTDiDlfb7xFHBqe1saoDt1uOXs2 77lsLcn7g53xpwP1nYPvl/ZSlz3zVM3sdR4HEs9D07I81sz5u9xPiiVMgmh0 kpjEPpq6+GrG7FhZ1a9enKJzR4kOowoiierUDSnrvuGGzDZqbB647L49T3ni N06JpGLmqFhQS4EYqq9UPMkQv/vf8qxq67luJLzod4/21DEGvuw1SKUkaQVC woq7m/dxDlv9O1QOHAAKii9ATbXLEreVibSz7H47+bBfgdzvC276V9w6tGeB 0eNM01igpFUT8YEurwrQzrzjDYa67XgcZJ9Ja/pXqa5z966tidu3l7pXjnjn CVTfDCR0u+Us2yIGFdEVefQeB55ODR4l36uQA2RRrrMUmp4k0hJV6AomKXqM KogkqlM3pOwsef95uL+ns62BGxhMjd0jV7zBdXWqiQqhRFKRPIA7gbG4QtR/ N3Sh+UqRZTlbHSVt+VAYuxXyXx/ra+F8tdUN7b2DH1jH7FdvLci7/lfyCoRJ WcYqJT6NBVDL/ubUe8Qmq1K3lYmytzb9QWMit1PZODSxuK1AArr09K9Enk0N VnI3yG99Z603Mq32oCxn3klDA+lfhbrOjJUqpS9MZRddFhPnJY+MBdQ/eqMY 6HbLGvtg4uxLmQ/z1cG8dHbiATWtQvdxYNPbz0lTCVl3h3KdpdDuJDEOq39z 0mVUQSRRHTUhhd1e/Tng/fKDk2Q10ermAfutRcWriQqhRFKRX2ZNpfm7xtF8 pdJ1bDRU02kvvOD9tPsoMU0wN/df/jqwFFbuqY0MFQjj9u/Zj/HWcYs9OgpA XewjT18N2UjcSlfU3AvPfmExxUNFZePQNyGFQgSZ/lW3XFLstIWa0UAiuO+t es+ZDeYu1yLF/Tgny0dp+lehrjNzLU3Je+X405+qlx0/amRDF7pdyK9ca//q PA5k7CgXtL8P5TpLoclJIhRDh1EFkYQC1IWU/e3QbUdfE5lTahmZVGq2KJwC SUV+mTUl9tSXIXqvFBkJadugkctOyPs+54jGxnevzT5VeqAvSwXCmCzLkDAP BU2K15hNEXC6rkR/P7Ls7kucalFjuXR7RbnevPSj36QS263GnHGvxAZZ8TMv zO9NUV3Bieaj3+IU6zozzkouda9cxvRHhYcyYqHbhQLKNf2r8zjA23MtaIs6 ynWWQouTRCiSDqMKIonqaA0pkaeB9AExBmXXCwkkf1Ix8wBHig+LoRi9V4p4 9qeNks6RlZsjjUTq12T555kVFWrvyFWB8AX/8WI8QmIeChq0u+w6TdzLCnf0 bCT0zVBjfJRRY7HfCSvac5HjanXb796K+wyTCFDs7tylJoOx3vodTSdxZKI/ /atU15k5eCh1rxyv8B39N0Maul0opEzTvzqPA+zPzvYq4t0yh60zRY/7Ua6z FJqbJELRdBhVEEnUR3FIiSy6+8j9ZbU9rgUahxGyJxUzT4Q8MuB9jOyvYNRe KaJKjyZKOrOrkwNm4oPWnfOEVAm/slUgzFKLyZBeuQegIWR9pwP1H/pLOsVM 4B8P37FbYnUnmBOD7h+Vzf0eCPutDclPrnIeKdb/HB32bbx4seG3Hjcwbzjm KR+1kunf6k7XktrvJ4NiXWfI1cntDaqGfaVcPHbV00fuzTSedi1r4aTjKHS7 UFCZpn91Hgf4cyiU61SK1iaJIIAOowoiieroDinssquLHGXSuVNS7qRixomQ TMtns1RXQ6YVtVcqXaWHdzQ8nZ7N2V4hPuWhHvdDlW5H2SoQ8j9j7Gp2OGku 01nuns17Lltpcdkzr5laU/tB+zGiiZR6ooQguz86uxK536HJB8VlAdjt0D2/ /15Imj6OTP+qvEcstmYylkTdvDloZrSwhYdcZUFl+lexrpM/QTN3u5dLeDne gnz6Fufkg24XCtJJ+ldncYD/8YWsu0O5zlJobJIIQugwqiCSqI72kPLE219L 3CG1/d4nar+lDPImFdkt/4fcs8Sw9FcsSq8Uu+O3Hk78SpPVvynZO5IJr+6f irsG5KtAuPWdtZ63BxWHLaoqS01INVG5ET6rcGC0mXjjbfbgtkJ/OfJgcuhE dJOAgNzvgWeB0ePSLfmjaf1qdMR78B4WHrsPRq81fR4KT6DmIZPn8XXLVFGw 6+TPVo6PBkqYc/CeFJvPeUsq9KcsdLtQmE7SvzqLA7yPL2DZP8p1lkJrk0QQ RIdRBZFEZfSHlHi5vBQmfW42PWRNKkbuOy1kSXDG1ONaFFMDmY2s3/e5P7f2 d7c1mAzVDe29I/YbAeIInr0InaWVJUTplcoowMJuhe5847AOnGquZQwVtc1v DoxevRlcpWUMveLuJitcCCjYLjHZKhDyHp6W0oduL3qGW6or6yyfzawV+HV2 +6H/63+//vUdEQdjsWtz31z/g8P2T1brhf5uS2fnqw3VTHG7y9lI6C+jliNM deuv3fcp2yBEYB9MnH2JMdCBeensxANthEtuRiX7Urr9+9dOHn/V8YOUfSu7 cffSG9E/LCz3+yJRrVey9Pr+pved5FBY7fFDdMTL1Hz0h6saOPQt7hdPb3KE KPLBgawDDwW7Tv4ErZSkVuSxZ4AYK4gsa8Zuh+54naMDsS829mH7rZ/f8D+U e2cYut3075Z9tyueTtK/qsQBhW7vLHgfv925VOyrCivXqbWWJff8WmuTRBBE 8aiifvtSKpJko178FKZcBs9i8TJ2NK65kjGpyGvIBoOp17UofAoW+cU//k7z Qes2mJv7PnZOTvtnbrov9Tcf3P8947Ph3fDcvw00mw/m6edv0r8eqQR0XilO AZZri49nHH1NDFPXds7m8saulK2v4eDSMUd77H9VIwRl4MVtqY/PK5pcFQjZ tb8M1fGmoWaL876YGfpjd0/ilQqunVv1DTfF/5bwjT+8x2RJTE8RowjijADV LiXIhN3yXTxE3MZdrmzZ32h1CONR213pUqPhoKM7GtQE536TUVq6W3EvMFqT ihDqbhOL7VmrONF8jKFyO14mssaaiPXYcg88lOw6n00Nkgdpl3IwN+eJDGPq cs7vCnxvkccBl9VSVxH7Yj8an5iaOfiw9sE2U/Srbhm6HgzL95QD3W4Kut08 yjT9S0EcUOr2zoY7+BfQnwor16mplqXA/Fpzk0QQROmoQkH7UiiSZHsBFeNn 8cpp8CwWt26hrtK/bGTR1WMi22h9n3tR4MdnI6FbY52x6a+pa2x6mfj1vfD9 P/SaK+rOffJxe7XgNqhFdF6pdAEWY92pvlN1laZ2q2d+k2hvz1du/rYx+vKm 9ksBxc9OykBL+leeCoRsyPvrBl6nKGaGHkXOlAutnUvfBlXtzp+Fr0PaXn8U CoUeLvz9i+7Uvp9iesb03xV09CpoAvf8X2Ov+3FmWIo/BW4eDUh1LNpOaPJC NF6JyP0m1xZK2dGTuxXUzbSkOyAJv205kT2msJXTigw8lOw6idFyjOikVnjW 1p4eKwh+oM9GVv5q7zkabV6N716bfUq8if2t4O+7ouMQxmQZD8q1CBjdLvm2 0e3mUqbpX/XjgIK3dybu1r/iu2ki5VJcwNdGy1Jqfq25SSIIonxUUb19KRZJ +FSNn0Upu8GzaNxck37Sv+zmbWsT+UCoqmXML/ASHNxF3ww1xl7EdMo+u5Hx 23ur3nPEmlXparjx30gs1DwJq3ztaLxSZAGW6CVoHHTPZy7dOegdumIXinl5 NKB2kRZuk5Tu2BeB5KhAyG7M2k+R3XD0K2+8MBkS18sRM+WqEd9OnndHljMq re4T8Ry5iH6B/LsNw7518X8XKJTu4mNNtcedpRb5/j37sQrDkbHAc0li/97m zEdNTOa4pdhfj43NJB1rRZf/Jgea6g4gUiNe9QrmCEMM0Zlu90qxv6bMwEPh rvP5ovMkMV8RseUw+m62Zz9rSb9Kw6+9gs5bTn+xOXqlraD9tdjLV7Xa52TZ +IxuNyt0u3xlmv5VPw6ocXunkJ2pgB1DkVi5+xQh5TrpbVmKza81OEkEYdSL Kmq1L+UjSYKq8bOwshw8i6XH9C8bWbl9yVJjIK/O0DchgQuw2ZU/n4/fRYb6 s54cZ4w//370SKoxyVH/eS+xRj2qos7yMff5grJovFJEAZZ8y112l5xd8R+q 6POsqvtsl44mKX0FQnYj6Hq3kbclJnsELg4xUy6UJCfKGZV2lN7enC253LOI npF95OlL3r2HLvq2sGignPCOSDjU436YcYHZ54GxI4aKJttdKZJFe+HZLywm RnyrSdyQ0p4yRhawVTUXkYicdB6zmwVRN0NAbRClBh5Kd53ssqsrPfEQcwwx 90mx4DUV6S8296qedLcoT3FpdLvZ/ya6Xb5yTf+qHQfUuL0JZGda7OA/Y4WM gOwWtS1Lwfm1BieJIJBaUUW99qV0JElQOX4WUK6DZ5HoyDXlI3FScS8cdA00 kne4uWVkUmju98Xuj86ueDtlzGcnsiz6StjwDSdbfykFZ3JgQ1+dNnFH9nUX pgpV25YLhVeK3PSR95tJv3cZLpMwVDRJ3kPAkisQRpanx7r4C5Aa3nbOiZ2E cmbKhZ7QkbeBgBr4mQ7mXD3J9la4ZyT20RiPjH7/XPSfBRqlJuDxK5yt8gP7 2DtwxGA87VouPfvLRkITA3XGaM2HiblQYYvBgJ8w7XVfc3z8q2i9KZGLH3Ih hzoNVr96VRcSkVPcGWrKIwvEFT0fUWzgoULXmSoEFyV0PMyG79jTT4qFP9CP LLh6auPXIt8RUTu+4SqBl0zIm0C3mw263Uxlm/5VNw6ocXuTOBGgot9bOPUQ eTA5dIIzCRRQrpPWlqXk/FqLk0QQTJWoomL7UjiSJKgdP/Mq58GzKFTkmvKK nefCIfZWYcP3vZ+eriPvb6apz3lXeNmNrfuO5KMk5jV7MPfyDPI2aHUsSHyH 7yw4XjfwybYtsSAKrxRRgCV/OCVS16pmMF5Q0iSfePtryStZQg2K3bXZP460 HzZwMKbOT6ZFbj6NI0sMFVoiRdwGpZ3ARTxRLdwzpnYKGyRKAAJVuOnfLAUH 4pvFpDmGjF27NcJ5FlYCiQ6TSr01YhW0kiW8+BIxXCuVH8hBZlFngrxQdOCh RtfJPp44a06Vw8j7AXm/GL7jiBXsjd/fwjdz7YbcZ+PfF9NqD+apiJv+tIyw as1FQbebFbrdTGWc/lUxDqhye3Owq5MDqc9esC/LVtdFSLFKOluWsvNrLU4S QTg1ooqa7UvZSBKnfvzMrcwHz2JQkWvKY29z6jfE0eoxBSqKZIqElwJf2wdi x/ylMNUt77k4R3sUi2xWxi5XjhXkMenCL3Lc4WG/tcGQSZ35L41XithdWz84 lWcitb/pfSdZxVPxMyh51G+SbGTxqoWTyRe1nzqyGb2Y/a28JeHRTL5jpuTD LokSQwV2jpB1ePLfBoXszFgPJ+7Mgj0jESWkSQACZcigkS1Rs33H1lJlMJ/z lvxUl7v2oGSSdxDEg7+ilhnIIj7y1EzlB84Jy8VdESUHHip1nZGVmyOpSgXG 9n+5m1kwLeMNbC9OWtN5zprOsVuCC3mlv9isJVwIRCk/IeWai3oX6HazQ7eb RTmnf9WKA+rc3nxEFsjwim0u9/0e+WXm0psmQ0VN7SFiviSkXCeVLUvh+bUm J4kghuJRReX2pWAkSaAhfub4e+U/eBZO/VwTIXFaYuzAxLm/+32TLls/NxOY eJstQ86b/rmFfFtfF+b8Mz7vHx22i2+31fFforp1YPx2aFvcNJFsUwUmC0Th FznucHJnAUn+AaE2rhSxOrrA0npyHXV1p2tJ5NciCaWbZCT8JHEtl4J3/DNT E47fWuoquJfBWNf/r778lzF1MaPbzJ1261tttbwXMUTLdwxd9YekKBlGlBhi LK68JfiJi8ucca+Iz8XtB+3Hkh+kUKzeDIy+nLiZpUgAAoXIQ3L5ac/ERiqh h09lE1l099UbpCN9hpbMZArfLyaRTb+1ScEjJEom+IhnJQce6nWdnFUojKnz d1NLOZeqs9sPb4+/kx54mF63en/eFtzeiHNhCtWgY5ec7amGVFJtK3S7xUK3 m015p39ViQPq3N6Z2LB/rKUq/tI5NimzkbXAl31NTHQt4vWJj1uIxi6gshOV LUvh+bU2J4kgjrJRRfX2pVgkSaAjfmajj8GzUFSlfzOLx0qMqW48bb02Pb9e wrr6renh1BMS5qRzMc/KbvIOL3J3pzDs2l+G6owZH1P+KbAmrhS586LAGn5y 06WIZ16SUrRJ7m9OvWc2yI6p7Th36YY0M9AYosRQwSVSxG1Q0rpHcmNL/vqi 7O798Y7Ej+auMA+aF561tSc6gyNjgefx65waUNVY7HeEVxbikzrWyrEPhSz/ K21h4aIlzmvQSjKEXPxQ3BHPig48VO062c35GyMtqWkXc8TygWPi1t2F0KMn 4d1I+GkotDB760/jo2eJJ87m5oHf+1dE3Xj79+zHEinTQk9G2B3fSFWqIYmv zIBut3jodrMq9/TvC8XjgDq3d/Y3kj6e/mAUcek2uWif3X7od1mjj4qYoz1X /r62+2P62atB0ONXKluW0vNrbU4SQTTlogoN7UuZSJJ8QVriZwb9DJ4FKf/0 b0Vtc2fv4Ed2l9f/44qYJ8Ic7JbvYrrEQYH7lri4ct3he+HgDWvPsdjXZmrs +eTPk2PHFKgiooErJWQNP/HQSv31Y4o2yb0nnrflSeSbGtq6Yldz8vbcg3Cp e075b5voWI8O+zby/Wz6NihylV0uxMaWw1Z/nqomu0FHR/wJs7Hu1/+xUtaz UL1LH5dQUdf5m8tfXvl06FTjwbhRZFX5bH9B4lgryzCDWOdQaPu8PBJvgL7y VTkQpx4XdcSzsgMP9bvO/e3Q7fGBjAoGmZi6tnN2b3BV9GUnbt2Cp7lxTlso 4V5Dt1s8dLtZ6SD9G6VcHFDp9s6FjYT+09YdrzjKVDeeGvrUcc1p/3gwNro4 GGxYrF/FC+Jxj1wRUq6Twpal+Pxa/Z4OlKdMVKGkfSkQSeKoip8kvQ2ei0ZV +lcDiFlbwfuWKPxSNeyT9w6PbIXjFRKiFxR16aOINfwFpnVsyGVJPegrtP1T dmiShREda6ETM4nZfWmJLyJW51skxq4HxtridxPT8kmgcHUp0LjIatBrH+xs TAwmq491D18pbR6qQQKWUMohufxY+vNV5ZH+uphDw9NF1HlTdOBBTdd5ME27 863Lbu3vbmsgjyUxNbR191tjD4qflPigWNBiD2Jdhx4XgKHbpYdO0r9xCsSB F+rc3vmxWyH/v9uGftWSrOjC1L58Zth+w7+YfLJDnrsq8M3Q2LKUnl9T09OB 8mSOKlS1L1kjSQJ98TNBn4PnIiDXJMyyuzu1aa/AxVX2Dk+ILRVD+vfA3or7 TKJtFZjWcY5wKlSyRn5okgWRT80KJHzI+tglbUsnNraYLK7FHH9zJzR5IXG4 QN05T0lnrANoCFH/QfmRDLvg7Ihm34WvWFAHEUyOW/15l0kkKDnw0GzXKYaQ TYjEuW+qFTlREbpdiugq/asINW7vkpGZDWFvhsqWpfD8Wlc9HSiKyvaVh/hI kkBv/MTgOQfkmgThrNbOf9+qMkKIP8Fptc2V74nHxXoWGD2e+PprRgP5nkQR D60M1R1OtZePoUkWQnSsTIFrS27lKOlQqmLqOO2FZ7+wmGKN3nTKPruBESLo B7vo7GCKGmJJ/6cTZ/BVtjp+0kKjI1LlTZfmdot4y4oOPDTbdYogYBMi+zww diQ1XO9w5prRlSt0uzRB+ldiatzeJSM23Qh8M1S2LKXn13rq6UBRVLavPMRH kgR64ycGz7kg1yQIWYex8vxUzkMjX3DucM5twEZW7t2eW5Hne47tZCy08F4f wn5rQ+L7z39CN1kVnIbTotEkCyA71kKJJiLyc1cG7jyZ+9ucgGL+RKyuGvFl qeOU7sqZxnddQZ1MQgGS2Eeevpp4E6no86wq1wBSj9ELFRyjxO5dW1OFsFGf ogMPzXadgpEZ3YLPLMKB0ebkNVCnwLWq0O1SBelfaalye5eKs31YdOFfelqW 0vNr/fR0oDAq21duJUSSOIrjJwbPuSDXJMheYLQmecnybxXMWfglGhaYbveK LO8vtpNRgYMUNSDdDPPe1eQZ3FWt9rldBd9idmiSBZBPzQo8oSOeSJq73cvp f4g2z6pCh5MSiOac7cD3nZD3/dhhsoyp85NpXWw+BeBht/wfJlqm8bRrWbFQ uu4bjoV65ox7hf55GfEtFT/qU3TgodmuUzBiGXbBxR5b31nrE18s0zQWKHxa X5lBt0uV5CZTbQQ9+qlxe5eKs31YdOFfilqW0vNr/fR0oCw621dOJUSSBIrj JwbPuSDXJMySqzP5ICFvbp9dcrYnL2678+f0VEHWEcKmt79CgYMUNSG1OiLv Xc0uurrMyTndRzObFAyk0STzI7dyFJj75NyAE+uAmqz+Yo+oIjqsjA3mkV9m Lr0ZOzngcLt1cnEbj15Ar9LhVMEhTSogaOK5J/vYOxBfcFrRZLtb9Fek5MBD s12nUAcfwZI886XAJsS9Ve+55HC9cWhK6tO56YdulzJseP6W+7r71nxYd/ei DNS4vUtGplwMYgv/UtWyFJ5f66anA2XR2r5yER9JEqiOnxg854BckzBEfew8 NxJxmKPBcHw0kF7eHqss3TwakONotoNm9XaFoWHYty7Di2sOu+O3xs90yX2A I7EQi2m1zii4Xzk3IgShSWZBdKyFDpnavmNrqUp2wuSmj1iFn0MXfcWu4CKf jZKFtffCC5OjndEN70zdadvUYumHTwNoGRFR6z/0K7JCMhUQRB//rSR22dUV H/uazrpDxSfIlRx4aLXrFCz6uDzZlbQ7l/J8hnRXUtk4cmtNk5+2JOh2oYyp cXuXjFPTUlAVTWpblsLza930dKAoattXDuIjSQLd8ROD5xyQ/hWGKBZ32OrP UtHlBecwRwPvUcjzRedJ5shY4LkMFzz+QEGmF9eiVHGVHMdQsmH/WCIQ1Vgc c1mLsyuPLFSDJpmBfHR4oMu5lCOFwq7OWFvT1YzI2T370N1z+NDwdNHnI276 rU3cDouNrAcnPz1dF92+c8Ty8dfzYSwJACBXt5q7cp53LKFUQBB9/LeSNvzW +MEQQldHKzvw0GbXKVB6oB5l7HU/ztHTpucFjMkyHqRlzqYkdLtQxlS5vUvF SbkIK9dJbctSfH6ti54OFEZt+8quhEgSR3n8xOA5B276V/h11x92yX06Xh06 6+OA+F1UdaKzvY7T/GOiZ76Y5dkVu7fpe79eoRm3VmwF7a/FyqOddC4+5/9j ZMkz0JBog/Y79GygQ/o3L94ulZo+z6Msl47dmLWfMjGNnW+8lPhB4qnf/rzj Zea41V/0KVHEoajGM9d+CE67xs42VzPRftzq8od0VwUSIDc2snjVEh8LKrEA OBkQsgZ5upDfzPs+oRu+FB14aLLrFIgs/Bv9vpqstzczPwu7ef/q2dg+PcZk +WKWplmbgtDtQhlT4/YuFXlIvUHY00+aW5bS82s99HSgLJrbVxYlRJIE6uMn Bs9Zrbi7iQtf4Kw6iGIjy+4+c6xqd5dzfjd9/djtxSnb6TqmxnLp9srWnL21 KvadpuqobC+6ek0ynfEXX1Gv1H5bzdietbebDq6Uuc+9HEk/Z4qsBb7sa4q1 0OMDrns0devss6nzlUSLRPqXg7dLJXpq6oVJbuV8NnzfO9plYk4MTT54ntpq nXp4F1l099Ubu1zLxV90XpA0MNWN3cNXvHNP9LgODKCQrfuOeLOTvwKwhgr/ ptdFiyseq+zAQ3tdp0Bk4d9DQ9f+8Lb5oMvw/EzG9OgXO9YV+yFzy8jXdJTp UwO6XShjqtzepSIOqedE+yJQ3bIUn1+XfU8HCqO6fWUqIZLEaSB+YvCcDe/C 5a/aAQl74aBroLEyei+1D385Oe33Tbou/6azroKo6MJuB8ctpvjZjqMTvv/0 XD7bYIze/NJn8xIr6nV5IkkBbGTl9iVLzcGdXWd5P3qlZm667YNt0etSUdf9 qXchy3ofVfGXJPHrxusbuUvF2HDieHUslNad/MDxp6kZf7IZVla3vOeafRpr aKk9HTWdozd8vm+u9B9nTKed8wK2mOwFr7xSzTC1Laf6L9qc/+H/cYXOXhyA FrtBR0csbWbqdS3KuL0pGRDoP/A0vj0nGrfqhv4itniskgMPzXWdAhGFf6On PLMbs44zdYy5uf9Tl/fgw05NjH/Y0xD9qqub3xm//VDPMR/dLpQxVW7vEt9y eiNJnJByndS3LIXn1+Xe04GyqG9fpJIiSeIltBE/MXjOtO4bbiCuPaoHFIvd fui/YR/u7Wg4uNurG9p7R+w3/hbirA9hI2tznktDp5pro7HgzEWHb1mGlZw7 Ic+5upImleUushr0jlv732yurTAwtc2dvUOfXvXeCdEYk6MbDSrSzZF5wzFP d1ZDUWSJocO9nkeR9fs+9+fW/u62huiztuqGtu6BUefN4HqEvLS768Fvrwz3 th/8THVj5+AXt5aeUXjlAcrIwajS1RMbR5nPTjyWq72ljtig/cBTdvO2tSm6 q6P0c34VHXhoqOsUhiz8e6jH/TD2geI9RV/nwfdmMB10Jv3Wz92++9zeRIfQ 7UIZ08LtzW6vPwpFLcz5/dNe1+96G8g9ggaD8eXBf/3G559biP1U6ElY63sG lZ5fl21PB0CQPpJoIX4mYfDMxe4G7a3kSnXz2+5lZJy0Yi8c+KSF0XNVunIS /sHeSTyIM9aPTFPylIgOG77ho8nEeI8rpPURLkAZi6x4h2KltGp7XAvytNXk kb6U71pKHXhh7LT/UOSh5CArcpeN8N2O+oJuF8oY/bf33pr33WSdmiLlPn0J AHRKjkhCf/yEPLbmnaeJWwK5RA05mMV0mHG9ygC7EXS9mz56Es0wE1FRXwOl PgF0jt24e+mN6PMsU7cjKEfa8xdP7+HoAuPBm5syvLpEUmnwhgHPEgbHVGB/ crRWoispCrpdKGMauL33VtxnOMVEC2HqfztN8/NQAFCBDJFEA/ET8oofyUde 9MZ3ryXKdACAvNjwTx7r69xHMJcDa2h/HGzIZUl0XcYjo99nnKkJAJSJPJgc OhGtAdH4wfSa5A+zlt3dZgPz8miA2uwvuzvv7IoWwaDgnF9IWfX0JrbZ0F81 WmXodqGMaeT2ZiOR4mv7RvRergYAspM4kmgkfkJ+Oyv+3w80m4kcsLm5/5Lb F3yi2/OOAWTFbq/9HPB++b6ljqj3W906MD6zggEcX6rOp4H+Up8AkBBZ8gw0 yLOdIfIk8PX1b4O0plXZSOiboehhE8j9UoV9NnU+ufa3tt/7RO33QzN0u1DG cHsDAIiD+Fk+2O3Qna+vXOg8wlkfHqtaPPiB1Xrpm3mayhYDaFBkxTdu/WCw 1/JqQzWvnXWcs399J7SFNpbNpt/alPimKC/1CQCkxBpgfRW0YcOBS+0m5H7p kywZHV2x8pZnVS83pCjodqGM4fYGABAH8bP8RMKhoN/rso8O93e/Hj23LpGf OulcxOJugFJszFhPJNO+sWMx+y/aHH/8NrAUxorfPIgSQ8Ye92N8VQAaElme HusyGSobrbd1cfjZ/s+ukzUG5viA6x5yv3QhC/+2OhZwdfJAtwtlDLc3AIA4 iJ8AACAnosRQdYcTU3YAzdlZCfzH9amFbbXfhxLYlcCf/nRrYRORijrpwr8V x+z3sGAlD3S7UMZwewMAiIP4CQAAsor4rdWJFdNvOOZxVg8AAAiW7koMzaMB XSxFFw3dLpQx3N4AAOIgfgIAgKzYtb/aLEeMtR2DV+9iMzUAAIjAbv7d3oWu pCjodqGM4fYGABAH8RMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 5PP/AV/XMZ4= "], {{0, 94}, {1877, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{751.000000000003, Automatic}, ImageSizeRaw->{1877, 94}, PlotRange->{{0, 1877}, {0, 94}}]], "Input",ExpressionUUID-> "9769cd04-75b3-476a-9f55-dbfc8438410f"], "\n", Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnV1MW2eax63dm704F+tLLpBYWZa4QELIsrSgqDIXoETWGpQKIZqsZaJk cTTKmLYbaFeFVBtI1bia1mgS0plabayM4szGym4cTcgsnjbOCHeLM3UEVuo0 EEETt4EAQQ4ywXBYv+fLx2D7HB/79bGPn580oxlijD/ej//7vM/zf/7pmO3w v/2dSqV69x+S/3W4d7D1nXd633/zH5P/p+vX757s+/WJ44d+/e8n+k6888/H /j75w39N/udfkv8D/e9dAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAKgMtlZDl62tx12RuNyvBAAAAAAAACgKW2tz U9ftx/SESqUy2IMxuV8PAAAAAAAAIAlybf5+MBic8nmvuy5+eMqkQ/qOAWQe AAAAAABAxZII2jUqlcbQZbYOjI67J4Pzy1PoJyDzAAAAAAAAFAYt/EDmAQAA AAAAKAyQeQAAAAAAAIoEZB4AAAAAAIAiAZkHAAAAAACgSEDmAQAAAAAAKBKQ eQAAAAAAAIoEZB4AAAAAAIAiAZkHAAAAAACgSEDmAQAAAAAAKBKQeQAAABVJ Ih5PyP0aJLCzGX9Nyv0iAKBaAJkHAABQaZDxJ3dG3+pw3N+Q+5XkDbngOWa0 Xv7baqIatF4saDeo9qGxBytRoAMVCcg8pbHoMWv2Lypmz6LcLwwAgOJAxh44 LTqt5UokXolKiUxE/zzcWt86/Oeo8pUeyDxAbkDmKQ2QeQCgZCiN10SYLoRi 23K/Fskkld7tQb2mCpQeLfNgewXkA2SewklEPX0g8wBAISR+mhw+RGhtnoV4 6f84uRT40m4/P2SzmI92GbQqVfOA73m2xyYWbw8bG7KHHLdjoQsmosnifBBT stADmQfIDcg8hQMyDwAUQ+wHp1mtMrzni8qijHaiU185kjrvdJeWoHaNjvFw ttzAtcAIdVlZ875vfSfLY2R+OyUBn8wjX89eaif2XwiLpEZnPNI3cG7c7Qst rsMNspIBmadwQOYBAM12LPxfQ116tf742NQvhemKnXj0gc99YdhmNupqqPWT 0Bi60KZ55U+BuVU8m+b2+vSnbQRRPzi5IrMq+mXC1ojedO0Z/6ssL2VjaqQB SRC11fs8x6vdirh6tCqZgpMlAWM0byf6f38Y/40d8dFQX3taso7GZBs5b8/O +aFfmZihm6TeOPDlvcVs3yVQ4YDMUzgg8wAAQUZvntSysY8D42GpeW1k7MeJ z47rk8+kaTUPnM20adboLfabsy+KK/bI9W/tbbUq7dve6FZRnzh/NqftjZSE s02sZH7Ezrr/w3r0UTRYvU9zigcyPvu5iSC0Vs+CMpP0SnZpy8/Kbhn05RLX DImVyOTFPj07bjVvjvp+grCeAgGZp3BA5gFAku0l7ynugovocS9I0RR0iWgt oT95cTK8HE+/iyQ3osHro92N7B9pMo/dK159wXrI0Umo6jqcYblF3u5OxNlO xfI6XD9mfnvkgqeXUnnNnwQ3hD4B8rlvsCX50LcnnilR55VK5u08dLazgi3X Rfke6FoYNTsxusZCa0r8FqobkHkKB2QeAOymJTJpTzhnX0rYy8ilr8+01hv6 3eEcJa50iQSza9YWq5KUfObpTW7F9R/4VmSvrk0uKVbqDWZLzCM3gp80owfo TnoXRbx5civi7Eg+o/6sf1X2d1d0SiTzyKjHwg677FHWjCSee/u5SDTR4Yxs gdBTFiDzFA7IPACg2Vqb+3bi1jfh5U0pv00uek/qRVnVJeY9Vh0X0+t1Pyo4 /vbCP3RApappG5+RPZS3u7vsG9DlSszbCjs76pDY6LnyWKRgIJ96rQ2q8ohV FpvSyLyddd/7rFTLHmXNxrpvgNN5KqMjBEpAiNczzs4Dnc6Z13K/EFGAzFM4 IPMAoHC2V3wf1Kt7XY/FNJ1gw1M0BWfTMaE84ph7oQx2FYHEvI3HLvRi86yq IDcC55I6T1X/oV/sbWOlUBqZtx60t7EDLkf5cxbIJ+7uOvbXYbMQQdRjTn5U Zk9U7hciCpB5CgdkHgAUDAo3NTaMTIndPsl5dw+XD1/X6XpUgHaJhRxGlWDJ aqnImZhHW+ElFemhM3d/zu/Fbnxnb0bX0r0eSVmT5UtJZB4/MS9H+XNW+OUb Ne3OhwqT2sUHZB5QRoDMA4CC4W61NO1W+62IcPuJzXnXEe4aTNXhmpesXRhn EsGS1dKQIzGP3Jpz92qJpMYbnpRQsMmoWaLTNacokVEKmVdAYh7F9sz4AbYK AzYLMVSUzCNXJtjky6b+iTzPX0AFADIPAAplOzx+ICXaxETnyM3AKHcNJinA QsM6kxBWT7QcvC6yOeZtx8LufkNtAaYc7L2tqssZUZKHXglkXmGJeSj27OpI DW+Fff54KGuZl1ibDwUR0wHfreuuT/uN9amvV9s99MXVGxP+aeoRwfvzUFld +YDMA4BCSV160IhY3tN/pU+qSGPrHQqJBxaRV/6hWupib8C3nvrpZnTqgllL EIbT7rCUEmYGJmSqsEvDEsi8whLzdl+Fxw9zI1Xd61Gkr02RKWuZFws6zF1m MRztMo4Fy+H4CBQEyDwgHTK+9nMUPz8vx5SzfJDPvVZ1aidscXwvWAtRHJnH yCr1gfGZcrAaYaOaWgubQYfMou1HtKp60/ANEXfZuWFDhWWiaYsDfpnHT8xr OBcQNCpMJ802nOh0hNaFfwcoa5kHVBuyyDzUCuqOyz5gbkU7HaEz2X7jCT3n 7XNkIvqNw3ruznI57F3VxM5j91sNqtJAtI9M5Z0lVEwSz0M3xga69ISK0LT2 jbqDS9It7OILEyMmDYE6XFivzArrme2ViXdTwlBjl3RkJjeDdkr3NA/5pX6S iZXI3WuOweNUUzZCY+ixjVz2RVYkiU4u4RDd65Hxp0GP3aLX6C329NktmXjE 2YWeXm3zFuX5ygLsMo9ccPewMi09yiqCdPMfiysM97WiqEqZlzzT3Rkf7Equ JMk9/dQ5172FfeZSO/Hlh3dRF8geA1ot0QNPDI7dCD4VtKGqGsjEWuSu2zF4 wqRDn5DWYH7P4b43X9AZudQyj4wv+MdPop3V8PYXd76fR4GdudDEhb7mDi4x m7KZrS2k4RQgEfKpb/QtnfR253mIPE1rv2tWtsgAGXvgsho7hq9ORRai0Sff jR9Vq2pbz3y9VMBqg+KgYmOUG+HxVLoT0eddkvIHWdmj6nUvSrBk2VoNuQf5 aTkpmiyXvhUWvRv3HYeGef0U2Gib+vDAx6e7dI2t1k88xVzAyVf+M9SdcAGy tuzALfP4B4pUlFUUaVbeTRbngxjsxSKpQpm39cjd29I6eHV67ml07u5Yt3bv mEn8ErzyvlHX0e9wTwYji2jrX4j4v7Dq1EU0ii8/NqOTZ9v7RdY9bUanPk+1 F+Tvl61nJ6OSDF0RpZR5ZCI6OWqqR9/pkHcuTZ2SiWfe/oae8dkYNVqaVBIO ngAgEjLqe8/UfSnELUHkorsbTSbDSGCtFC+Af4+m0vS4pV1CsrJKSjAQLT6t ufS8lv/5ZGLrmedXjYOTK9xjdh65OuvQ8XzA7vQGIsvFP6CzX1O5XFIXA9wy b8U/1Mx+p+KrJ8jE6sz1wYPMANEesfueQLwlD6pO5iVXg5O1KcNztuqH6EZ7 OjpWz7j7DzVbnYHonqSB7fXAx9QA1fa4IoozPye3Hl/pqRXnp0q+nHWe0GZd kAvp610ymbcdm/3KgnI81PrB25l0OzVOei9/fZlyT8334AkAYkk8nxhstFxL mzL0spw8gQz5X+F/Bay5HIXkDmXbIUcTtQ93u8X0DOORpvEIXeepoY/siI+G TnWmYrm5E7E2vrO3HHVG8s3nL4zNwEgd9dIkxj/LEMwyj++F0mgPbooYKImV yORFJqRAtFjsN2dXFbf94qbaZN7r7x0tRnvwJfcDNveYQG6idKAvW7yONVRX oPl54rHb0iJOvm5GJz7QU5+CceCSN/BDlL4XSsSi4ckvbG1EQVGI0sg8pqU7 +tbbPp1ez7KpvfIP1dVp6og8D54AkA8Z9AnP3qQUK/PLoP0gq6UKaOC15O0j JEhTMv7Dl91o56/R912YeBBNj9KQibXHU+4zJjpzJqtJHX0oK3nRJRcFVU5G B16Zx/dCyXk/kogtL0aCPs8X/2nWU1marX0jl//8YG/sBRBHdck8yuyo7VKY 17swVWJm+vjy+c6Gfu+zrJEoznz7oCNUgkN2yUCtkRpE9YBmPUW1vWP+/QmN XPoEkYcDf/rvl0LmbUVcPXQwsn00sJL9PbPuEGj3Gw2IOXgCQH4knntttXsb RnBJbqVIFWB6k1Gou7/8QeplGFvWmucNZvzBuKlORRwa8j7KfifL2typDvJP 6ClQTwpj5n/CyzNvH5VMqH53QloItOzAKvPSK31EkRR4J+3uqXkFFcLLQHXJ vPWg/VC6zRGtK9gh1Xp+ajXHbOVkXn2f9xn+V1sqUBJL26BPRG8iutBJ/+61 SHa/KboNkMTjbQlkXmx2vJuKOhD1b9/O+Z5fBkYYl1kpVu0AIAjqMmYY8C2n /TCVKYc/VYBc8g+3Mstffn1d9z4RW4+Q1+TdiDjfIkT1odiOzfy+W53x/IhO qY3y+KfRokglteqkDMEq83iJecRx1+xTAZejxUjIf9N51qJHDen0XR84pdZc Vz1VJfNQYkCHI8QfwKmtXKVqHfbnrGxLdUxWkrEbuRH8pLllLPRacJWk+6Ef vTST21OUikVIPN7ilnlUCiJznjSmj4R9pHZbKVbtFcVmNHDVYbfbzw/ZLGZz l0H7xvisMoIT5Q0yl6h935eWAUK+Do21MFvhMfeCoONdIWyvT39Kp1moiA77 dI7ItiDceTmPyUuuTA7WN1jcj8Xt3dQBrWbPx0WfUtuH/C/yfMFFgZN5pWy+ iXW24pR5/MS8dmdEbN7TdiziGaRybFSqJvPYPYWWQOKkzGRefgHdnOx/cpQY sKfrDflj8kf044X9tNmEW2VV0L/wDx0UVVuH0hqbrZ55wTUZ5WJLdFjFLPPI 577BFpHrDK/xogSr9soiFvGOJ7eNEZuJjlYTFk8UllLsoDusfTe2TLNU9C30 uLHG8sjVe6P07imxrysfTuaJVwgooa5GVK4IAyULW9LXXuqUmp6HU0IkvOvC wTpbMco8XmIe0WifzseOgX88L6TEr1qpIplHLap7bt9WJmzM4BGuGuCNUgUl 5K/7BmrFBA2om5E99YDZQIOqHGUez5lTsEURr/Gi9BaflQZT4Kmw/k3lCxn7 6eFiekraxtRIAz1GG6zepxiHXWLB299cJI23KyWuRS54LIY8W5OvBUZa0xQC +fNEf2uvbFXwUmKYRQPLbMUn8/iJebq9iQrCFKlQqDqpIpm3f1HlbNuTc2Xf XcBeeKNUOQn5lJgR06xn55HrcK9Yv4LkoJJopI9V5vGbIQrd2PIMY6smtMUV eJZNsLpq7JFZdtb9HzIGwVh7K5BrobEuqni1KBpvV4rM23ly67x7Nr/SSSoD kBeHRwe3Bhl9D2SUeZhmKz6Zx6toI6wSggBsjQ9FzWml1Lzkz84T7zsH05pW Y0Jz8B3vk8o/76cq2kRs5an0UQUl5O+vSckIyhdKHrxF5u6g+SixzyNOmcfP DBEM0KVu86sntMU1byqbssGqana2S8emmphFZu9lbhGJL3hsqNS8aBpvt3RZ aisTtlpufMZCjg4xHXuxIaPMwzRbsck8zo5MlVdiHg+mYzJNo23ilyK/wkoB ZF5eoFsD2lhDhAlASiQoKCEfVRm0jgQEjQjWAiPHRfsVbK9MnG4qP0MVvges sE9F6ja/zR6UPchTErjpIG0RxgRq2SVQkFcMRLcFw/pen3utzKjDd2PLehEX U+Ptlk7moSXLxPhZbUyNNJpdc5J77hSOfDIP12zFJfN4y2++iXksKe8z9CRN jlB5nEUrgTK7tC0p674BJvtKOO7NS8xTUEI+EjMikujW7w4dElOKS7PsGzDm n3pBg0/m8TNDBIU67za/fEJbuGGmg9RFGCgU5KHHDFHhHBJpsM1ftCecoRdF 1bWvQo6DpZB5aHk5SEVy0HGyDmPMUwzyyTxcsxWTzEt+UFY2lichMY8iVQJJ feLS0oKqk4qQeWR8OfyN++KHNstbRl0NoTMeNVsH7E7PXx5E45IXw7y2cp5I UFBCPjphCc+WnXXfkFH0xSVyW62TvEnhk3ncNqQS4W6dus1XSbx9rjyo+mhV Vd+GyAv51Gulb6iJ+qG7GCLIZGLBY6U13mxuTyQJcILngIjbgUJI6hAjWh/I BU9vm9TjZLGQpdIWgW22YpJ5hSbm7aY6CNMoy7oWN+Uu88hEdMppayM0Jpv9 i2sT/unglO+my9HP1pLrj9lvzqxKKa/mbeXCcW9lOuWiKLiwzEvOULNQwQLH eshxuFHije0uTpnH9lUXo+rzus1XCJvzriPUWz7imodgngzwulFI7hWY6+mZ Bn+CGo9cm7//MJp3L4ySxbW2Ft29yUVra8Hd03guIHPzK1l883ZxzlY8Mq/w xDx+rBuhILOLElDWMo+MR673G3SmEW9kbU/99Nbq7HXWMrE2axfaXLB9asTE vRXqlIuOhILXQ+u+Aa3IACblblTzVgENxPHJPK6DiYgGlKlc37KpOcUOK4Mh 5UUeXi+4jzEbYfMnwTT1sh1b/HExVtC3QsYeOC1NouJ4yR1BkpMAmzmFW+ah JUJj/zo03iVr8QWNXF0w8M1WLDKvCIl5KHhbz4m87N2NgUyUscyj3DsbTGPB LL0O2TsIWumd+TpnB4t9pC76hVMFFOuUi7793KED1AW4sc+7JObZ4rPO7gb9 8Der0nVwKWQeIfR2UpX7xCnvkvAySq7/zXnSaOj+1L+UMTBKJqLfXRu/eCXw DEMyyU48ev+Wc9TWbdCoanQmm93z/VLyyEPGlx/NhMV3+maVLSpOSaxEfJdH TnXqCEJj6LGNXLm3qJQ0hbIFdT2jx6d6r3pBl7ntBd1O0j0Kxd3VIrXW7V7M //vmZg3mpClK5n34qb2lazwse2NxNlYgNpey/GcrDplXeGLe9nrgY7ZNmkq4 XxVLcVdmcinwJdN75GiXQZs8jw34nmd7bGLx9rCxQWu5EpHaJLqYlK/MQ3aI 6p4rj3PZm8cX3H3qPL96Gt75QjDuzXPKFZrORRxXpRhUqHy4pn5wMrtTylpg pE3UxWXip8nhQ0T94ERBZl/4ZF7KD0doG+IuRETeL3BxmGz3CC/8QwdEP1se kPEF//hJPVFr6P/KH1mKkzvx5ZmbQ51twzenrv5KKyZuycLu0bXGkd85zO3d o9en51fQE0anLqEo0NGx6RdlsFopFp5x9+G96gVZiBTgoUdPTLH5eOhKtHbI L0U/scXpwmXsBcHeDpdDPTh3yyNiolXIbMUh8wpNzCPXv7W3cV4qav17/ytu py/yyrwTnfrKkdyST3cxwaUcMZ/kvmnIR/9jplxlHuUtICJHJVUtm1dvIN75 QnhyrQftbcyfELDXK+a4Ksmgojor5WhnSTU4Ez5/0VuJyvCer0AjYXwyL5WK KSDzUnEVkfcL7AVKoz2Y8aqLPXpL3D2zvUz6Gk7VZHE+SAt3Jx67Lezthtj6 EZ6y3eezweSMad/2RsF4HhO8G9u9K0Nh9aTky1nnCW0eNRfJHblFolEkZzmF t2qJWSJE9WfEDXslJJiwXTmzFYPMKzAxL7E4MWhgNZ6KMF0IiU1gwLQys0+b oxiT7WWD0/0yH8pU5nEBtBpd15lr4RxrFC+1Po9O36nYjvDZM5WYJ+iUi2Nc YR1U5FbE2ZH81SwbARXzFEh2JWOPvENJjaftvhTKcr0uHnwyD90+03WMdSOB 7OJte9V/Vs+MJ3H3C/wLlIzPyBy9i1oTFw+70K5B1Pd7n+3NSuXmjvj6EXaM ZfRSY5yi6zpdj2Q4l1aFbx4X7ti3wqCUpEODPml7BbJBrm89451bF/fridjj a9YaqX4X3LvA60WA4o35LPUYYWs/hfaFSpqtxZd5vO4VeSfmsZsL+/utZyej op8A08rMqtbs2p7rZYO5X6F4ylTmpVpNIVpymLbxCmbFJ8ynvI61FqF+iLzE PCGnXBzjCvugWg85OtEf0B6x+56kX/lSx8Zci/bmUshNFcJIq4LZD84uGFy3 0KynZnJrzt2r5RYVUVVs7HeabSDhqIljvzJ1n3thvwLnNg7R+zU7brMcE9i0 RkkpWwVR0i4YJvv0amnfHgeXOLrHjQSdwjrbx0JS6klpG2RCY3jTLIYuA1uh JDn9uDTF2kiH5HNxgw+q8xp6v7n3ncqarUWXebzYY36JeVurs/8z2s3GcFS1 hn53OJ9CJEwrM5vulb0Yk6sW2VtLJR9lKvO4CiaaHBa+XCG/Srw8yMfrOI/E PBzjqhSDijlsoneot9g90wsxWrDRviIZRRFyMpx0DnRQC0q9aXSyGBpvF3NP 243HLsqyQn3S82z/jQblONF2yHz0DWZoiEqVEfpOOW8W0Yk3QrAB2OS3lbn9 HJtjINrYmR23WS7CuDNR6Q1Jq6WnLXe5kL7QoRs9aaE81gZZAgX4gWMJXO/l mbevqTz6D4ppN1Zxs7W4Mo9MrPyVl1YnbuNLrC+G7rCbC4Xm8LAnX9s0TCsz l+6VTTmQG8FPqMmsO+kt9bE4K2Uq83gtvAWqpyXIvLy8jsUn5uEYVyUaVGzq CLvlGcyDjj/c/tNvzWp+ZHInvhadn/3r7SufDXTpmS2EaOt3zxR8V8uBVeZx gra2zf5t+j3W5tL07yz1xuHJ0CR7my/uYp29QMn2nbK5o8VLzGPTO7PFENgc A9ERD26MZbmd5/q+gdcKLrjljufLQb6cuXSsPV8DAfpXozdPStN4BX7LTMAc ZyMVNKFwOzCLg13Pc+4LFTdbC5V55HLohnPMjjg/MmA2aPjjsNbQd8aei4+G bD38XyH0lrOX/7LPTk0MmFZmocyErbCzoy7570LVo6WlTGUeWuUit3472Hfc NnotuJRjzUjJMNGDM9UQQdjrOI8W9jjGVQkHVeLZFCoEE78f1Ogtn02ITfsR +yLwyjxeLrTZ8afQ/NNodCESvO0c6NQZ/8MdepFI3eaLc1kXSLbkOq0UL77B 1RxliS2zOQaCw5WDHWOZE0pTzWIEjWgA6TBFTNru8amFaHQx8lf3cHer9cqs JLu8tOaf+VLQXsCOJVxlsHSGbXlY4zIzMWcxSOXN1gJlXlp8RhIozcBiG/7M 6flLaDEm+ZII08oskEPFXhhpbZ4MF/TyUbYyTyQpGSa+zpTLhBFRriW+hT2O cVXqQbUdm//68lmLkNir0ZuTZ6zHxQvicWCXedQfeRGecFJOU8lFRWc6Neq8 dZ/umsfLwxS1lQjdUrHXOsXLGGebHGWLIXA5BkLDNe0ZqZ0mc0Ipl/sqficC JJH4Jej+qK9VS9WdDYzdoBzVKgy20AlXiQTlDFAWJhWi3mkFzlZMzc5KDaaV OWcO1XYsdMGE9pRDZ+7+XF5Tt8JlHt9eW3QjyPjixFmjtrl75NacgMscl2Qr nDuBY1zJNKjIROyn2Qk7enJVrUZDy9wanfFI38C5cbcv9GQFm+NjSWReVnh5 mNlqpdMQfU1ftOAGl6KQrS4vf2sdegVQ1XW7n2TaiNgyc+Koaw6aoAFCMPe2 eAxP6NFYDo557ETLaW5QibNVGTIP08qcI4eKLd/LWP4sO5Ut85CFMqPysIRJ eQW/AqZGOMaVjIOKPavi9UbYj7wyL5UAIM7iVajlEHNlw0tV2nnsedfhX5Wc /MRtHFlOE+ylMy96sBocP+fOEZlkNo6M+U7kVvhSG32GyuWhDQAcr8Ljh1X5 uZiKhTaRxmy/LA5GzR4Y8r/I/qBKnK3KkHmYVuZs5mbbsbC731Cr0rw56is/ jbdb0TKPTCxcszA3qjqrZ774H2/qRljQ1AjHuJJxUFGXI6rSe2jIKvNSiXlZ Dst74FrfZp4+nFNfykYA7VMHcrgDCUJuBkbr0HNmXoczGHkl96Om/lw9FJh3 kekJyZXAKBVOBm9kQDSMQy9RSG/rjNClc+XQVXx7xfcBykBruxTOlRFdibNV ETIP08qc2TBtMzp1wawlCMNpdy6DX1lBpxJ1w8hU5TVqJZ9NvE0XRe4vnCwS qcQ8IUc+HONKxkGFml+gd15yCw05ZV4+NjuIlO1npi+d16CHC/C+XnCfOFBg v3VmTGYakHTr0rThigZek4BpNn2a2G9pRcZnPy/TVBOgrKEvWdTN9u+Kuq3Q tjMHHSG5W9kyHlb1vUKeqxU4W5Ug8zCtzPsN08jYjxP2I1pVvWn4RkRStVSp IBOxl9LrWWQDGbxTl6DFMubdj4TEvGKOK/kGFfk6NNaC/rS4atNiIqPMy8tm ZzfNl7vm9J7hQdXzHnzLbKISZVgztK2ws7O34BAH7ba6dw8lYw89gx1t5p43 +NED8rlvsEvIeI325Nlz0UO5CLbWlmmqCVDeMI4umQ0qpUIH2+Wvv2A8rAjT 57PCOcoVN1sVIPMwrcxcXhaqziPjT4Meu0WvQU6zoYL6uANZ2I7N/L5bjVXj 7eaTmIdjXMk4qLi3I9kPXzIyyrxU/zthm51dXrIl9Rs6qzOwsJ5Ah6bF0J3f 2Yw9wzcexjYejJvqVKo3hnw/JxK/fDfW2z56b7Xw0Rp/eNV6gCAODd18uJZI /sVo2Pd7W6ux/2podespFeKut1z5IU6uz914v63XPSfotEN3PiUODl4PLcV3 yPjz8OTFPn2thjaZKfj1AtUHbQJQ2+a4X6wVhA62C5mX4ocJ5bUO+8U5GlbY bK18mYdrZWZzqNSHBz4+3aVrbLV+4gk+xVaNWOUkTy63B/XqDG2gi/x3RCfm YRlX8g0qrlxLhoOzfDKPvacW60XAJFuqD1y896P/mmOwr8tAWWGYfjU8/t/B KN2PhEysznjH3jMn/0nTbh37pmhHksSLWe+lYeQJU6MzHh8cu8H+xV0yvnDP de6USUcQ+q6h/xLbHojciAZvjA0eN+pqVBpDt+3c5TsPaJMZAJBCnFrxMnf4 kgAdbJfd1Yfuea3WD3+Tx3mtkmZr5cs8TCvzziNXZx2hM50YsDu9gcgy6DuM kEtfn0HR6eI2X8gE52wpmJiHY1zJN6hSHjUCMUwcyCXzXi/5PtQzQl2Mxz7n gii5zzsAKBty6/GVHjWhPXmzGPE32tPe6AjJKT+Y9Bv92QKK5cucSpd5sDJX PEwLg1KULafsxFXEKe9SjkmtsHGV6jRdvP5c4imhzCOXQn+8xHTYoa2SWQi9 +YPz1L+M3wgtZxxonAuiNXu3ZQCocjafeU/XF8UGgXzi7q5TNZwLyNgLnlyZ tncQRNdYaE25kZxKl3mwMlc2tMYj9KdcsyUoW+al2wk43SlrXJHz7h66RYg4 U5EiU0KZx3YYIXTGo+Y9vMn0VdSccJfI9xgAlAgtjbR9rkhhsgH1byNkdYRI LPmG9armfu9C5a/yOahwmQcrc0VD9XxUt56djGYz994Iu4YcAeHceXE88/bR rfnULbnrrBU2rpa8fUxcq/T1F7ty2yOLZr8LIgAAGRFeukWw/dD5ps09J5fK 247NfmXR6vBmg5cFFS7zYGWuXEQtFIsec0/xlEliyW83aepb+/8g0D1cYeNq 67H3vQ6N5qDNeV+Om4mKkHlS214DQHVCL+CmC6Gy9hbLBm1X0lIFGm+XlXl7 KbmBqjRgZa5YUP14X7P5wlTuw+BmYESTO4kOBzCuCiQpzjX7F5XylnnchX6W xnYAAOwh8SLkHup1TFegD//CjXdsDt+T6iitrGiZBytzZUJrPMtXAiE12tE3 W6MxjMC4KpBKlHnshf6B8XAlBicAAAAUCKzMlchmdOIDPXFw4Is/enJx1ek4 azPWE33epVK/QhhXVUhiaerS2/3nPWXbwRAAAKDqgJW54tiMTp5tJfZFerIj R2AZxhUAAAAAAEBesI2Y81F55X3TBwAAAAAAAOxmSwTNScXWgAMAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADp /D+R7MuH "], {{0, 93}, {845, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{420.0000000000032, Automatic}, ImageSizeRaw->{845, 93}, PlotRange->{{0, 845}, {0, 93}}]], "Input",ExpressionUUID-> "ec5aec51-7ea1-4abd-8c70-96877044904b"] }], "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}, {3.7664215417656736`*^9, 3.7664215420070286`*^9}, {3.7664215737741065`*^9, 3.766421575135809*^9}},ExpressionUUID->"6cfc84f4-27f6-4da1-a55f-\ 80eab8b74b10"], Cell[BoxData[ RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"qGauge", "[", "Rep", "]"}], "[", "mu", "]"}], "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{"2", "I", " ", RowBox[{ RowBox[{"\[Gamma]down", "[", "nu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Bmn", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", " ", RowBox[{ FractionBox["1", "2"], RowBox[{"\[Eta]", "[", RowBox[{"mu", ",", "nu"}], "]"}], RowBox[{"\[Phi]", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}], ";"}]], "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}, 3.766419187373107*^9, { 3.7664215498465786`*^9, 3.766421551462442*^9}, {3.766421583511075*^9, 3.766421642523242*^9}}, CellLabel->"In[63]:=",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[{"Bmn", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}], "\[Equal]", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Closure", "[", RowBox[{"aa", ",", "bb"}], "]"}], "[", RowBox[{ RowBox[{"Bmn", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "+", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"qGauge", "[", "Rep", "]"}], "[", "nu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}], "-", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"qGauge", "[", "Rep", "]"}], "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "nu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "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}, {3.7664191875165696`*^9, 3.766419187658866*^9}, {3.7664216576147375`*^9, 3.7664217452647977`*^9}}, CellLabel->"In[64]:=",ExpressionUUID->"db86ad83-84c8-4947-8d89-d7772f53d686"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.766421755345702*^9, 3.766426043042205*^9, 3.7664263145859895`*^9}, CellLabel->"Out[64]=",ExpressionUUID->"f674d6df-5b51-47a9-8627-0a211fc84cdc"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnV9MW1e+7617X+7Dfrh+5AGJK8sSD5GiCFm6RFEFD0SJkCBqhVDayDLR 5Jpobgdyeouno0CrBnLVeHRb0LROz4k1jZVRnDmxcqZOb9xe3BZyhDPFPeMI UOo0UJkGtyEBghxkgs3mYu9te23b+O/+s7b5fqQZdaZme3uvvdbvt37r9/v+ /tvpvlf/x3/SaDRv/Zfd/3q1x9L6T//U885r/3X3f3T97q2z5t+d+c3x3/2v M+Yz//TfT//n3f9zcPc/8d1/SPzzDgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABA7bAdffqj3+uyfzTUZ3qtRcdo OJjTztBLpe8NAFXzfNp6PDWj9C1dPX2DH9pveHzBcCTGKn1vAABVwMbC/24z H9Ga3ctK34oCxAOjhw50DN0KRuJK3woAaobdCPtvjfV36DQCmKb2U8beAeut uci20rcIgKqJPfXfGLVeGh4wd7XohbOse2Dslj+8AdcfALA38cjsZyY9o2GO vzvxy75cLiJBh1mvYXQdH3jDm0rfDABqZDu6OGEzH2EyPkidwXjhqmc6EYBU +uYAqEVikcXAl1cvGA11hOt/2PTRl/OIXwEA8pBx+IfGf96/ppl9Pms/o99d L1svjMPtB6A8NsMTH3brCX9f3zM2GYruywgCADLDRn70WN8ggv6IXwEAckk5 /JqmXteCShz+aMgz3KGrN5g+nV4tEspgo4/9X/7brS/vL5eS6Mg+nRppZ+D2 iwwbW1vwj9+wjSSOoomUj2Qm6tCfrt25N7+2pfRNgmqILU+MtBL+vpIziI2u /RIWjac4oZAGDJPopMJWmWnY9uH0OqL9AAAONrbk7m/cNdX1rSN3V1USkWOf uHu13JJ2ZNj3vOBnV3zDbclPNprdSyVdPbbg6m3CaikS29HwPeewycCQdqip /dTr7U3ESTR3GG11IQ1VpbDhz88KIvx9rlBUsbuJ+a1ZtQQikKqUdH0TWFyH eykCGCYpYFemrZ3EVNQ2W7/bUPqmANiPsPFYnC6Phl2/Z22rT6wL3X/+QTVn 8PEVz1u8y6/psgcLuhbr3gHetWzodv5U4i9kV78dMux+A6PvdYUgg1AxsWeB 62+3JMwPo2s1D9s/vzu7EF4j3rNYZHkh4HV+1N/eyI8nc8xyc2YVz1xlPPdb jxF+V2OPK6TkEEriTJLUNXX94fLt78NRFCNXAYZJGtj1qZFmbeYxaPvcT/bj 7gcAuWE3wve/cV0Z6TO2N2U23oyupcs8cNF27f/6gstKOtrskudcc+KO9Ged 8yqKBKxMDjbzz7JhxLdZ4AmyLybfrec/emw08KLkr4ivT3/Ylhgyfbd9Vrl4 pZqJ/Tw+lFCTY1rOXfEG1wq78bFf/Y63Wvg5Ut869FUYbr+K2Jy2HiQji295 VhQ9IMskjTxemPsPv2/cdWWwizyG4NF1DDknAsHFQikjC3P+aZ/3bw7bxbe7 DFmXYAy/+ejOgyLvNtgLDJNUvJizvUo8gKYB71OlbwkAxdkM+66eT6wPjK79 vCsYEffiy4FbVtPh3PVLSFLUoqhHJAnRkKsvmfinP+kIqimXOj5jO8IHMbR9 npVCH92Ys3WmnvQ73vVyoj3sim/kaNJgdFqnV/aPtRAH3uGvbx10l6wdsbUa sJt4iw+3X1WEXUZyVTtqD1IXWI2vT75/IGv1LRIxyCUpkGK3tOvIdb3OYL48 ufgCL6sYYJhEgd30jTRkfrv2iG0GWapgfxNfnbokqDg74ZgXy07FHk+kyucT Yrmjf7kz6Z9beBxeDAamJ+9c+9OgMWsvUGcwjXlDci5H7Na8syfpXzGd9uCW mhZCdsGR8uPrOx0/Frp1NuQypeqZup2LZf7KVIYPEvvLZeORo0dbid8eW/YO GfgBwwmLesjy+Y2usNJ3lIcVT59WI6D8NSEJG1t7cEcgkJJUKJpaQv6ECGCY xCA+ZztC/G6d1b8ffjUAe7L90HGiQbCwiDQr2Mh9u+lQ8oKvDt2Yzp9JmOhZ c93SWi+4Af0b1onHMk3MVJmqRnPM6i9cA0sbZDJ/p22uYEpSJpm/skDH1pLr bPK76ttGv1dR8pOisFuPrp3UarQnrz2qYC/JLk8OtfLDy3TbZsU9fQPSoAqf Pzd7vKr73AxPfWwkE1GY44PuhxE1hU+oBMMkCsIpCZ8f7HdyFhbmpFOEqrO0 5Evru+759cLXy+wOiOVIFnn82BOPJVkzyejPfh5W2epHJPMXSddhN/3Wg/xH mwcnCyYB7UX0vq2jIfmoXrcH4fWXAPvEazmcLFp5zWh+Z+z2g3LNK7vk6klt 6rSmG6ihVgFCB6N+cLL0yhn5ENmZ3EmoHAddgtDNPu9vIgoYJlGAzw8ASVac X5yc7cisrbssafc8br/21OWZ59J6ORvfWfmiftUF+QXJ/IzJVXDDsrngeCM1 vm+6lytLzkmH+jXaHtcS3M9isCHnSUHi2pHByWdlXuOpd6Ap9ecqfEX3Iapw MMR3JneI5iYZf3K/9jEXCQyTKKhiSgIgH/HI3F8tCYXAuqauoWv+X6ueEWx0 9tOOhMffNRZYK3kxYWMhV69QqYBpGwtIKFKubieWSOavO2p/ULAC41dPXyrM X01RYWaLdHTEh2LewhD7rJS1MboWy7zI9rr3nbR2v7bX/QQPnXJU4WBI4kzu JErDJi8YyMuqTAaNMjBMoqCKKQmAemFDrp7GihK/N4L214UlvQ2d9jmphHQy HmwFAVjFIZP5i3XjejE5yB/nMget01U0BN2cd5ziBkjMQu/aJOK3tggNdsuw b63cq7CLzu70BSAuTT+qcDCkciZzuyBpmI5PZ1XT7oQyMEyioIopCYBaYbfm Lie6vda9XYEwNbvi6Re2JNUcuOiTJNS/6zO/zX9V8x/96mt5SiTzF9MA3w7a j/IfPdjn+bWabyUyzJFqUpho0N5FGlV9j3O+gkpegd2vdviA5KjCwZDOmSQ0 vlKoTQCZHjBMoqCKKQmAWokERtt3PZwDw1MVHRau+YZbhMucNE00MlUMRRNj qIRI5td0OhYK+ZKxsKs3FdJ5w7FQRZh/F/axu5cXja7r9yC/pwBs5P61/mMJ o80cNllvB0sV589i0WXMGH5Ka0JBGlU4GFI6k2TOJI/2rGupNt1JacEwiYIq piQAKoX3RStJY0giSGCWzM9hXwbGDvOX77IH1ad9TiTzM4dGAwW9SaIO9Iht rlpxfWKAmNPO0MsqLweKIfD5qezxBAhU4WBI60zu7KxPDDaSmSPa5pGpItpt IBcMkyioYkoCoFKW3ebMKqJv7f0/7mB52juEN5tCBE81i+d+6zE1O1FkMn+x cxDiREC4e9p8Ovf93HL5Yf9Mp5iGE46H6nt4KoOU7imexwUURhUOhtTOZO5x LeIDFYBhEgVVTEkA1Ek8MCoU3NRoGs97y/JSNn3DDcIriO7nbEwNH+B2Jirt xE0k8xdL1yH2UI1m91LmXyT2Ag2V5DUR6T3q3DGpC2GcX9PjXKzF8/eaQRUO huTOJLvhu3hA8AV1bbYZvLjlgWESBVVMSQDUSe4qVXbhYZ5LmF1hEacpudC1 Wf3r4l1ZLshk/iJ6++SJgCCLKbkXqOznkyqUqsyMUhVZPn+L1Y+GvBSjCgdD cmeSbPydQio1htoFwyQKqpiSAKiTfD5/mbLkpEMric9PHGgWaV9LKYL0p8I/ Id08d5f6dydfpBfzZGFvpcs7IQSkO+ksWEAMqoT9ydndoMkAn59uVOFgyOBM Zr+3miqKvPYrGCZRUMWUBECdEN5gmjKFd6SO85fRvpZOyNC9plCyR5YIc7dz Mf1jE/k5ByvVVhLkX6FRVBWw8Vi8yMPLng7w+elGFQ6GDM7kznPf8BHhd2gP j/6j5pLFpQTDJApUTMkSlnoApIWNxSTIZGeXPOeaBStI959/KKvZR24+v6g+ PxEkr4Fk/l0O9XvydU5nn8/az+iZVuOpV3Ltxfa84wRTjcD+ktvcyF9WnWcl yhBbXwx847JbB8xdLbrMboxpOvHm0MfOieBaLGckMxXTHPT7/PvbulHhYBRD DmcyFnaZs9ZxlP+UB4ZJFJScklurs7fHBrqbUos909RxxjLq9N4PR0V9xPFY rukAIEFsJei9Omw+yq8lulbjoN0bXBEzXT7y6OurF/tMRqOx1zJ2e3a1vJIg QeNR3qstIkZZDuUo3pQJG30yN/HXT4Z+29GUTpHUtxh/P5pw5iqqi8rrPeXk PjGtF8bDgjLe3SHwjvbomeND4z+/THfROjwWeJm8Wizk7m/W9riWKl8lyIZT nba52u3bLg5sbG132l0wGlIvBtPUfmZg2Dpmd9502scuDXLvDKNrf+ea/1dy MuYcnFHr88O6JYHPz8Nu+kYaslbyIsVHQAiGSRSUmpJc2C3xlR191k/tH/22 hRBGZQy/+cjzY0SEpYyNBq/3GhrUGcAE0sJGZpz9bcyua9F6ZuiTq9evvM87 IUnnkA7blEefX9vnWRHt+uRRZtUNqtKw6wveT8yGrBsnF5rXhm8/LG+Cs4vu s0252UdkMr+25fixZLiYMZy+5Phictrv9427EsNar+t4zzX7LDmmm+HxC62J Tx0yjt72+b66OnCM0Z91zlfjqJPD1NDt/IlmL0xZEltgu6Wdj+rXGUwfXJ94 8DTXDWY3wv4bQx2NwsmYOx2oLJqGdUuRtUfbxz7/TnzOlpU1QvGOlUowTKKg jM+/Me88q9fUt1pupsKe8Ujg4w6yH4LmkMkxV91qzsbCXw211mu0py7PlCeK DmoeNnLfbjqkYY5Zbs6s8pEydsP/Rz5NhOm2zdIwzXP78B7odT8W7WVmf3R0 1vMXFtS0VnHJyAOX5RijKcohk/1+yZ4PNzQNnfY54QkBeU5xsM/zS2ztkc/9 52SyiD4RKG7pMltGc7JEttaCX18d7uve/UziZOezu4vV/nLSt0Fz2D3YXPY7 +ltS75v+DWsx15eNPHQPHmcyk3FjzibsVkFjCA7WLUOWm7afff4sX4t7HuXp OexzMEyioITPzyaP13MSmzceOXqEh/RV+V1sxD/W0UBTzBZQA5dmn/tuEFJd VBRjZpTzUzS+NyliuviLycGUCyZG1uKuH/KNtftg9pK5J029roWS5iYbcvU0 5mttQJxTML2iyhmVCZln3umAdk82sWeBq28a+HeZ0Rs/ngqXdKjELeNMpz24 xQrqJuS0WOUA60YCnz9DHmdSpSVUCoFhEoWsHyjFM8yGq5LIVzFHKulxz7rS JFs+iitCOAXUHlth9zm9Rt9tn81+N8i2ucoXY8ZXvOeFLk5uoLsqyMQYxuxe rvJqq3dHWus1edC3tL+So1nK/Zs+V6joBOWC/Pnao2w/sB9NbdKUrbQi7VHD iG8TTj9B7OfxoePpxHa96bPZSOkmlBv9I4OTzwRbVPkMVlnAugmAz58hjzNJ 6wOhEwyTKGT9QDkiVGxs+f5XX91fzlN6lOPkMK/bg+Xn2fImpqFjzC9G2iT9 vJj3XLHSwhXPPNWpDezKuKWRYTo+nc3RzxFmn4org18+XHCbnA1tYwFR+4OQ i2i1y9rWQ2cP0XNY19E/6vQGFpYj6atuR9ceB/2eqxdMBkKjpdEyvlL4N3HP QXvWtZTt8rNhl4m/lOKKamSvKKXfHKoQOPwapuPjQBkOfxJ2wXlSp+3zPM1O tWXELGcXB1g3kq1FZw/xg+s7HT/SeMvyOJN5m7XUkjMpNRgmUciKnCge29z4 ztpMHoFqm63flbcs8irc9a1DX4WpVjQQj3xvqYLQPUE25x2nGM1hizc3cyfZ mCnzO5T13OKrkxcM5GNlOq3TRbzjMiF1yao0x5FZW3cqcaOt74q3oDJPPLIw PmpMbRCYU475AmkeXJg37zpAVnQq3jnlqXegKfUwa6vmqxqEDn9pxzq5JDsd 179lGzspXGlEVpqSnP1m3dhfPP1EHIDOgusdOJMqAcMkDqSp0uypbi0fL0PO 04IM5rISmHnBBEZvuhYsSwVd1bA/3zn3SglVk7LAvHLuzs/0PnrO7LZdntvK ucdEY6YDmR+ibIbGxvejbeRuXIpzfLIispoyJTY6+ylXosi0/sEVLK2iMOMN FvR89g7y7+ys+61t/O0rHqzYifitLamHqTZfVCq4atY0zec8FeqhJu1wY1NT VmbP3v3XKGVfWbfMssBRnRyulMjjTObptFJjzqTEYJjEgd0IjLWRSmL5ch5k vaEn7l5BsVPp2xBehY9p+3B6nbIjX0AF2+uT7zVqdCedeVLYsl68ugHvugJ3 yBH5wW4k7kWisB7ppjYPTlaqALoVdJxMeHa5wvhFiC24epsKej4FgvyCZH4K Cq6TseiUiagpnYcKyRarqcrly5dkq8ZeOfvGuqVkhTLDb7T/QOvhFxLFVQGN wxSPhL7z3HK5nPbRRGLzhQGzyWg82XX66txLOve3SdinUyPtxNqseKJg1tFD iQY9vj79YUJsvVzHA+wjkq8Wc9oZyk39jj1xkx0+kzWDypAVH2P0Pc753FMJ ERAlHSWVpdz4tnup7HnHPrlzrpHZMzDOPvFaDu8R5CeT+fNv4uSFTJSqO2p/ QJM3qoRhyi5ZrabNcX4xDaUrOCpjP1i37WjojsDhp1xfSDFnkraFgm5oHKYc JTEO+sMRW48+P0cG+w+ZLt/LV4UkD+yG7+IB8gHuYfQJ4pHZz0x6RqM/Y5+l V6wYKMzmtPUgk38+JusEM6/cgYs+UatlS4ddv2fNZPWUK3JSFmTZaaU+//ZD x4kGTf76iFLYWnKd1e5xqrI97zjBMI2DE3kPXDIWoEhFgDwImrZTFr6T3zBt BO2vk0kszAnHfDXflccQK17BURk1bt3Y6GP/jXc7dETMwvA/7dO/0jQdclDM mTzY5/lV9O+pWWgcJjYWeRZOMB+4YUnV36lE2zO2NGU7S+pp6LsvuvyPlUnz efmP0cPkCWjhOF7qGFH8IkdQW0S+G+1s/+3nP+V6H0LFHuVCiLGQu785Mwcl dPh3xPD52ZeBscNVpm1wPQjyJOQ/91uPFdA2YVf/bjMd1jadHLwxQ4GACc0+ v9yGiZPGKnkBL+GChKgsj3K78mqpNeuWfLsWg4HJL66NDnQ1EX2SdZ0D9sLl /HQgizOZrza00zZXTfvvfQbVw8Ru+kYa+M9XkSgrN1trQa99oJP4yYyu1Tx8 xeX1BYKL4V/WZNsBvJizvUo+dOakM7THd6dUwVssnkWa7CxQEZHAaDvxur1q m1NCbpSv0eNfeYkd/h2hz19ZOWQ0aO+qOuKa9O01bVa/IJzPZT7TW/eXDfti 8t308QxlPn8aeQxTTqVqtYItgmfLzY4Dw1Oq9ZZqybrlNgpPoG23XHHfm6ff 2+eQw5kkRcZSKK88oCqoHibOFHJv/1ue7N6RlBOLhPzu0V5DrhBM/kRoSRDG Xff86kx3Evt9CmJ9QJ0I291Wm4dQIZtL7rdTGRgyOPw7YkjKvwiMHqu6awB3 WJCVM8lJqqopf0PMZgdSIYth2pqxtQnNZrVJRMRt86jpxcilhqzb5qL3n4cH eo1dLUJ3TN9qHrnqDa7RLyi6I48zSdb4p4bd5Aqr4fHQAs3DROYGq6sPO7sR 9t8a6+8QPFpdS3ff4CXrmP3G3QXZIv1kh80EB3rdj7O/O7bosbQkVE1G7q6q 6CEDuuDEfDKvuxIFofHVqUut/LajvnXoTigqw66DmjZSyS4h2j5PJu6clFRl Ou1BSYqXJUEFPr8cholP9yKoOlOODblMesElD48FaJbFKEotWjc2uvJTwHv9 0mkyQ1jXbrHfDdEuLCqHM7kyOdgs/A4alAdUBc3DtOJJKYCoJJk/QTyy4P3E fISI7je2D1z5MrAYUWarnh3bEbgEO2m5Iaax372kimACoJOsxjHaPvcTmf21 VI1eAjm77ZA+v7KZpcki00xTVU4LqLHHtVfKA4XEVzxvpbO0KfX55TBMuTH5 qpOI1r0DgnODhhOOhypPiahh67YdDd9z9JOSII0dI+NUdxCTwZmMz9iOCERa 5cyaqBHoHSYy+VAtR5CbYe8Hglr71j/cnH2mrNnKPgAls6oy3UlkSIEAtUy2 LH+/R95KOTa25O7nCx5l1ssSQ7dHHJLdwZg33cvJucz14SqrXZHy0FzDyyGP YcrRCKo2iSgnmV+BXbn41Lh1iz0LZEqTNPKGMspHemcytwhdPZVK1EDvMBFb eHXUaMSWJ0ZaScUe0z9PLyuufZe750rbqc2w57whsTEZmVhW/eIPFIXXisx5 x+SB7Fwjf9Yu6Z4p6/PHl91vMvxZA7s1d7mtcHNeGqHf55fFMOXa5WqTiJ5N Dh4hjbDaXow9qHnrJpAg26Wp17VA6e+R3JnMrWqvWNx4H0PtMBHJh6qo0cjW VTOc99DS9SNLTYXTakhlPlfUAwgAAVmy/M1/9MsoAJiq0Uv0rBl0P5S9TI/s w6usz88t50eGfc9TEp00SO6XBenzU9mHVx7DlKNu3TDsq2Yg2RVPP5nYU1zN Xi3UvnVjl1w95LaG2pM7qZ3JnKp2puPTWdqLHOiD2mHKJB+qoslalm5YvmIi xchpX3Lg/Tv37GrpTiIjL+Y9V6y0cMUzr4TQZUUoKcu/9dDZwzv8JTepZKPh B37/g7A49oL0+RXuDpM8VE26yusTg42MCg++k+lJPFT6/PIYpmyfv9HsXqri clnHcLUS5E+wH6xbVtPhPdptK460ziS74f+jsC4UQf6KoHSY2E2/9SD/J9mK 0zSSdcJIWzJSdvVWEsobectPvjYSCkJlYkNeskJtVaqIl0Ps5/Gh44nTtfJe 5oQ2ZibvveqboCg0nfAVd+9h4Ym7T6s51O/5RW02kdxAcQcWVCGXYcr2+Y+N BqqIAGRF3hrPe1UmfF2Q2rduXM5e5rdlyvSpQlJnMvbIaSIrXBh9rytUSWkD G1t75HP/2Tpg7mrRJ9UUR+y3A0T9VzxGbcWEKFA6TDk5k+xG+P5XDqvlTHsT o6lrav+NZfTGRHCFlkm97DaTCUwSdmOvjF89fQc1AiRMC2Sj4fveG7aRAfOp xGhpmKZ2Y/+w/Qt/mO6Oj+zPd869kttOQRmYV87d+Znqx5UmKQiZufG8nXG2 H908few1xw9imir2+czlU4kvLtu+JzPwRdtTkf1HlDbHCV+ROfThv95QX/Uu B7lSVbZ5lNSmy2WYsn3+ajRgY088FsIMl7jyR0Oe4Q5dvcH06fRqkTeajT72 f/lvt768L2PhPIms1m1HCQOX5aZRGg6S0JnMeoc1Gn2fK1T+4hD71X/tnfaE ykpje/9HzvEp//SE+/JA++573nttNrIVmfurpb1x16C8O6G6aEnJ0DlMgpzJ m6En0wnRKsbQdd7m8iaHydbfkphrR3rtf1donRGStURL0Mu4OmJhVy/pzUqU icpGQ3ftluScYnStZ62OLyan/X7fuOvK+0ZDnYZp63fO0NoVBVRG1tl6fmXI ZPKPuMKGkaDDnFgjKgjocYueeJM0HhhNq5TWD04qmZKVlJGsO95+lFFn/gb7 o6MzpS5TwUGM1DZdNsOUbLWQoRrRHsGWnNH3OOdLaNZAyHAVPW1Z8Q23cXO/ ugSkipHJuu0oZ+Cy5In2mc/PxkKuXj05ws397lCZT4CNhe+OGZPrtL5nbGqJ +PN45NG/9jXWGc5//FG3joplXFLoHKbMaZ3WcKb/jKFe3231zK8Tk+nl8sT/ Tork6LsvB5R3I2n3+XPUk+rfnXwh7lPbWp29aeG0U5hjlpszq0KTx0bmbvS/ otG0Dk0uKz5cQDyEeiD5BQC56Gj7aECs+tbN8PiFxPSv6ASfmwti2k3ymE/Z uZ9Zz0V82jJC2qPyjkxksemyGabs/lkVx/kjs7bujBkuNexGdkkodtqSeSYN 3c6fFFnbpbduOwobOKGDsa98fnb9nrWN3AA3dIz5y5xZhLBb/ioPrpVJ5gXq dPwo8iCy0bVfwuGnEeUHjsZhInMmE8+/ddA9n6uvy6lPJybgidGA0gn/wimZ 3RmEBjanrQfJLZi4LkHKB9tzTiXPf53v7H6GxocDKkaYTKvtdecp1+HaZYrW 9DO+Pv1holdNtmtX6p8n/RlR/ZNEoD81uZS1x+ndB3XphaVB7J4Ys3u51D+T x6bLaZiy9O7ecCxUoD/DRmc/7chcpeX33hLj30QbzYYR32aBPyJl/6srOqgG aa3bjvIGbp/6/Gxs+d5lE9HqsaIOBezyN+/ySs7N5zx7qBq8/Mfo4fRxmLil OnH+eDFBncH0kTBKIDs0DhPZXK/AWeTWorOH+5DsDYByoHxKsmuBsS5hprqI ohMb8zfP8Y3Ctacuz+RbD1fvjrTW0/p0QMVkNfrJK1fFvgyMHdbUtdlmxBAH TDXbrViUg+8XLG59KJlRXE3qddXwC5EqtM7yQGRJlZEJJpdNl9UwCRUaK5Fq EUbeyjl3ICQpinmwhM6SUsoV0lq3HSoMHOUOBofIzmQ8EnRZWsnQcUWdiNPC bhqm8dydvRVknvuGUwfW1fa/E8CGPz+rF76ehguTxWpkJITCYSKPNQs+nMy9 izpGlUD1lOQyn5kGXYPgzRMnEphSQk6wV+WUMGal0ggkyIOgg1L+xB72iddy WCQ9cDYWvmMxaBMpPXfmwsUJBQN+gimv+6bjo98mMq4rDJzuBekNKirRzy9E MkoniQmpT1KylyubTZfbMKXz5BOUu33INK1IUF7YjUiVKXYgQj6TbueiApE3 Sa3bDi0GjmoHI0WymEhApa8EG3nk/eSsQVCkUVmtxMYjR2rrzLxuD+5d4US+ ydX2vyPZXHC8ocmmodM+p1h7DAqHiciZLCz0TexXFG6FQ/GU5A4lE/3HZx7d 6iXHmjntDFUro84+uXOO70RWQJSJ1NxW9G0HIiP0+fMYOy67QJx6UkEwrUpE zvglzzsUy2reSS+Jat1WE24501vacYmMNl12w0SsrsV+XdYfRu47eo+k/rLc c3YymZ/r6bw3xDMRtUK/RKS1bjv0GDh6HYw08fXJ9wWNEjRFE8NyiUUWA1/y VdKZsdR1vOeafVbBTyY7pRZpVpKpmhdZa4IQHyZQbImmcZiI493mwckC54qk RJ5SigEpKJ2S8Ujg4w4m1X+cfezuJUe76sZh7JLnXCrts5BJYmPhb8d6j+p0 R3vHvi37bA7QCzkH86UBRO/bOhpE0QMXxi2rRvQllwie1A14Faov4rw1tSb2 CER7ShsgOW26EoYptjwxkgoya7Td/zKTWz6Q8+3R0Li1O51pdsg4drfMJZdI 5i+SrkMWOBR+JlIgsXXbocnA0eZgcBWpCR4vzP1HQrnINiD0APk77RhyTvjn Fgqdxi7M+ad93r85bBff7jJkX0LXabl2LxytbD3bCNpfT12wyPsQn7Olwg3i vsnZolIpZEkBVccwEUchRQ5GyUMTGlrh0DQlE7DR4LVE5nOm/3j265e/4rLk 65MN11TY8ROIAKHpl+Pr8g2zSq8c3JtYyN0vbO5XHeK75aS/esQ2p0ym4brf 2qZkKWWVZILGzEHrdAmpV3LadIUME/t81n4mdT7B6I1/mlzc84CKjT6+x0uV JtG/YfX+VHavaSKZv5joJfFLRetwVyJSW7cdugwcbQ6G5P0rk1KoN6fm16o4 M9mYGj6QPiYrfO5DvsklnjCWCrv67ZBBm/MDZVmlVTFMZDVckRNYsiG1wi3v qZuSaSELYakjG3KeFCyLeZUVS/wGrhaSQ40dP4EoEGKAGWUeNrYauN7fxmgO mez3q5fSFXvpkiIPgUzpF7dYoGT4MlVFi4grhwwatwz71or/haw2XTnDxK7P 3x7pSHvyzGHTJceduzML4V+eRrZikWfh8MLs3S+ujZ4jIniN7Za/+JcreQmJ ZP6iB0bEM5E1V0F667ZDmYGjzcGQxJmsa2o39g1+aHd5/Q+Xy96rZiNsHFPk /STmrPhvcjwSvG3tPZp8YPrW3o+/GR87Kk86ugqGqZwTWCIcoXxoi7IpyUb8 Yx0NedTL2QXnSfIlqEQOgr8SEeCtdnUFqoaP5ydWA4Px/SvXr34ydKZ11/0Q r0ON2EuXJCECom+OGHkFFd+A4qtPhRBJ0Qcu+op3NJXXpitsmLaj4XvXLJ3F Z0GiQZjdW3kjYDKZv5i2VeaZlHguIw4yWLcd2gwcZQ6GGiCLLIq9n4TWa8Ow T6o3ObYR4bJfEqOpdAkqNRAnsEUmLBt2mdKbeqVUwtJQNSV5IYtDPc6HOScu ZDQy+eQqTHIQJHJL1/cQqIPYStBrHzS28hZXd9Q8fLUKx0OdcG0IqppW1ZCa 2mKKTshI5ukxB4anSqhWldWm02GYdj3/+1+77NYBc1cL2bFL39JlHrAmA29P qwy8Ecn8xUSHiE2ujOfscli3HeoMHFUOhjpYcpvTHTmKzFmZ3+RkCAs+Pweh 1VbkBBZTcg/4oOueasxZXbwrtUovAqPHUpdQRLEBANogXA75oxCpIKdKu8YT KSXHrP5SWifIadNVa5jKhTykKLJ5JPPn5Upmk8m67VBn4OhxMNSC4Lit8Psp 85vMibwVU8TaLxATrUjjdSIcodGddCod2aJkSrLPZy6f0hYWZyOikdyDrihT kWxCVNURKgA1A5FRLPekSKUiSNA1Xg6I7VLb5bn8va6EyGrTVWuYyoTYeTFF fiiZLiVP0bp81m2HOgNHiYOhIsh80CLKzMSbLHjp2djyg3tzy2I/6mRtkeIt pWiB0DIt3BqMrN4SQwmwWqiYkhvzzrN6DaM3XQsWOuDNPgCtSN9g0WVMzyjs WAFIQtT9ydscPB1eFre/sFxszdja6srzk2W16ao1TOVBJvMXc3SJPZfwaGnz 6dz3cxWVDxdETuu2Q52Bo8LBUBUJad3UTCxcwkO8ycJksMT+nTG7l0W+s+R2 Uq0tVEQns7QWfKu31yffSx3r0tHjSfkpyXUn0TAdHweKaDizLwNjhwXLYgU9 UkltCpXqhAAgOoS+nzith0tkzTecXDnllkwUBeKhle4ny2rTVWuYyoM8pChy IEKcCAh7ECSedoPYHSJktm471Bk45R0M1UHs2gru09lFZ3dqzgraKUryJnOK xLLWvNNNpq1nobeaDbl6+JWVaftwep0CG6fwlIxHZv6le9esGc57wiW8Srym X5qGE46HZb7YZDilrCVxM+z/e7B4ZxkA1ElmdZLR60u7tWoMH7FPvBbOTatr s82U/MTktOmqNUxlQaZLFdk8kicCXfZgNP0vknuBNqtfxBJ2+a3bDnUGDj5/ 2RA1/gXWB3YtMNaVih0IVLaStSHtowFxK213J87bdSVqEe8LMhLNe6srEEEh ptM6LeP5+d4QZkX+KcluzTt79EyWWHFBIoHRdg1JRlm91C8lwimCNb8gXLim ecD7pJzvAkBFEAtU8x/9xTUnxfjKVNBVQqE5yWCXXD2cj6Y/5w6XvkmS06ar 1TCVBRG6L1b9yvXX5hAkViVLJ0qSWi31ppSwbjvUGTj4/GVDjOBBq38z7wvA nx/xCPa5L0PO00wlb07hm0qGBUS/rKpJ50PuIRrAa/MmOGRyzJU4FaUmSz9c ximZ6k7CHH93ooxipWx9A82Rwcln5X3z9kPHCW4gSlMjZ1+EPO+3MgUrsACo ATKB68YeV0j6dz0ddFW6NWElPPdbufLYco9F5LXp6jRM5UCG7nfpcS7uMRrs yrS1M9P8qtu5mGmL9djde7A0qdVSUM667VBm4IQ+v0q1ueSGXXSf5RK08m7t ucWh4bix28A/VmL3mqgwahT7oDa+7vugWSajoCJS7dTz9lWMLXosLfy6KkZ/ T7FQyudnI4HL3fo9xIoL/2VW+5IKeouzG4GxtuTSz3Tag4WkNtjY2oM71jf0 moPd1m/g8INah42Fbpg4/0mOUH8qDbtIL1oKIR/UB75yk2FktemqNEzlQCbz a/ZUvGGfz9rP6JlW46lX+A8Shyzb844TTIlSq8VR1Lrt0GXglt1mssVw4UJy wMPGltz9jbsPjtH3OOeJEWSjoUnbWQNzyHT53vLGnL2T29yla1iiIVefXvQa fO50TK7DXzURnbUnZjrT2O9eykwfNrYauN6fnILMMYvrAU3rKie4KrvPH1tw 9e6avIaOMX/5TyO+4j3fqCHZ45g7GvJ5phbyJyhuLHz++5bEkOwV3NiOPn0w cf0Dk6GOMZy1TYZE6NQMgArYeOTgMlakz+pXbzJ/5kCkdWhyufy1QV6brj7D VA4C7dOko9t6YVyYP89GHnlHe/TJBrgv0xlZ6bOSWMjd31yRd50P5a3bDkUG Lmt0FG9CqhrikaDL0lqfWCK6h6+PT/l9464r7xsF48VGg9dM+uQyYhy94/t3 z5VzLdqcLs9Vwp+OVbbQ1TxsbPneZdOh3TfbYPogMUzTE277YFdiUOoM5k+8 C+uUPbQsfTBZJLL57iRVnCRupU0hv8brz36e00Fma8l1VluoZ9xmeOpTs6Fu 98917edGnV/5/Lv8fdJzy2m3DiQbszKG05eu3917XQWgFtkKOk4mm6Xq+1wh CXM9UmnYqtOC4E66E1FYw9C3qxWumHLadNUZpjIgk/m1LceP6ZKbmN2l2/HF 5LQ/9VTrdR3vuWafJZ9bOm/qkHH0ts/31dWBY7smxDkvRl4PLdZthxoDlxLm 4kF+SBmw0cf+2/bhvpMtu2+1rqW7b8R++/twlNw07e7c5zyXh860NzFMU8eb Fx2+JVHDtpthz3lDVQvdPiC2EvResw78pr2pTsM0tRv7hj654b0fpjFQnBGX 5laXU455iW0vd8BaXKy4MGmbmyZ7E8qufjtk0BY9jWKj4fveG58M9Rl3p0zS y2npMpoHLtqufXF39ucIknnAfoSNhVy9SVez8dydikTCSyGtzK8yLQh2/Z61 LXE6Wr3Ejaw2XUWGqQzIZP6DfZ5fYmuPfO4/WwfMXS2Jow1dS5fZMuqcCK4J FvOtteDXV4f7unc/o2s1Dn52d7FQm4RSocy67VBh4NitoL2TTO9pfNu9pKot /v4lHgl83MHsvs+fzSLyWQtEfrAbiVM3bfPIlMThntgTj6VRI8YrxK+uBBk9 tO3o4rdjxkPl1k8BAFLElr1DyWTypl7XgjT5fin5GnUd96frQLVG+w/iquGB CnjuGz6Siln1KipHD+u2F1xXMuLkAj6kOogG7ScbMVi1Afs86PpDRhdCpmm4 7rce1Xd/PL0qxhft/oRb73XoiN/Q8tuPrn72yaDRwKg8QxUAxWGfz1w+lYgJ 6M2OoBTObbKro4ZpHJwQURJdYtJboRaLZxGqg8qz/cB+NHVUrXBVCKzb3uTs YpjWP9zkU60AANLCRn70JEr1SYf/SmBVjfOPja0FJ5yjljMdTenVUXfUPHz1 azVnqAJABXxy8q6BvjQliicjYMltbtQwJ0YDanH5U4rrKpa4qTXYsMvEr/za w6P/UJf2UzFqzLptLvv/YmknC5Qb2wcuu33Bp1H1HPMBoCLY6OpPAW+yVD8z 7XSdlmvTyzWSuB6P1cgPAYAOeC1HKc4BY08DX976OqgS5zmluA6HnyLSJSEa 1VWFlE8tWLdEfcGXVy8YD5MJ/lx1yeAlq/XyV/MqLy8BQGliy75r1kuDfabX WnRZ8+zkefuX98NQXAUA7A0f7d/XWbhpxXU4/DSx7re28fZMXVUh+51YJBz0 e1320eEB8xuJonLeKVFdnw4AaOP5tPV4ytdPihgMXLQ5/vZ1YBGiNACAkogt TY316DX1rdZ7+7Fsdfsn1+lD6kuirnmIZH5tr1sygSkAAAAAgP3D5nLg/92a XJBQr59a2OXAF1/cVWUSdS1DJPPrTjoXMDoAAAAAAADUGDG/VcefYEvfWQYA AAAAAAAgO+zq322mw9qmk4M3ZpBzBQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAIDk/wMMitTq "], {{0, 125}, {1020, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{381.4285714285744, Automatic}, ImageSizeRaw->{1020, 125}, PlotRange->{{0, 1020}, {0, 125}}]], "Input",ExpressionUUID->"d298393b-0075-4347-8144-364d6c8a1097"]], \ "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}, {3.766421779148439*^9, 3.7664217877625027`*^9}},ExpressionUUID->"f8fc6527-d844-4faa-aa47-\ 5379d276b51b"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"AlgebraDD", "[", RowBox[{ RowBox[{"Da", "[", "ai", "]"}], ",", RowBox[{"Da", "[", "bi", "]"}]}], "]"}], "[", RowBox[{ RowBox[{"\[Chi]", "[", "ci", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"ai", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bi", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"ci", ",", "1", ",", "4"}], "}"}]}], "]"}], " ", "\[Equal]", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Closure", "[", RowBox[{"ai", ",", "bi"}], "]"}], "[", RowBox[{ RowBox[{"\[Chi]", "[", "ci", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", ",", RowBox[{"{", RowBox[{"ai", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bi", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"ci", ",", "1", ",", "4"}], "}"}]}], "]"}]}], " ", ")"}], "//", "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}, { 3.766419160811633*^9, 3.7664191609521847`*^9}, 3.7664217983246098`*^9}, CellLabel->"In[65]:=",ExpressionUUID->"0c2d19a2-6b8b-4a03-842b-36835efdad3a"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.766421800067526*^9, 3.7664260430890703`*^9, 3.76642631464848*^9}, CellLabel->"Out[65]=",ExpressionUUID->"463ca7c9-9e92-40d5-ad01-636020b64f3f"] }, 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:eJztnV1MW2e6761zzsW5WBeHSy6QOLIs+SJSFCFLJyiqzAVRIksQTQ+yaCtk ouZANMpApid4OgqkmkBGHVe7BU3jVBOrrcVMnZlY2RNnDm43bgdnC2eKOzEK KOMWqEyCUyBAkINMsFkcrw97vctf6xuvZT8/aW/t7hh7rXe9632f//M+H//z bN/P/s9/0el07/z3zP/6Wbe95Ze/7H739f+R+Y+OX7xzvucX594+/Yv/e67n 3C//19n/mvl/Xsz8z//+bzod8X8fAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABQ0zwPDlos/R+O T9yPRGPx+PNECmd/AE8lnseXo5HQpPfmb7pODge39ytzpQAAAAAAAAAAAOJZ 9nbpdTzBTv1q4se9Sl8xAAAAAAAAAACAcPhqH8x03jm9kqr05QIAAAAAAAAA AIiCh/bBmm2Ou3ObcOADAAAAAAAAAIB2IbWP+YLDYe/pMLNUkN5s7Rtx+R4s boHqAQAAAAAAAABA65Dap8sbp/8zlVh/Fo/Hn20l8bJ/BgAAAAAAAAAAoCny tA8AAAAAHDLprfCfHCVx+peSlb5CoPqAWQcACoGn4v/p7DlR1+Nbq/SlFAO0 jyjSkdFjR9qG7kQT6UpfCgAAgNZJxb09pZNOzY5wotJXCFQfMOsAQAnSibnP bAZMh52+MvVMlVFkoH3EkYi6eww6TN/2fiC+W+mLAQAA0DRghQKHD8w6AJAd RvgMTT5Ra3Vo0D5iwV/Muc4ZdDqs5eokyB8AAADx5KzQHm9crbslUBukwg49 aB8AEENW+Oiaer1LKl7Kq1v7JGP+4TZ9g8n2ycwmR3Aannwa/vLf73w5u5bi fUCHr0+PWDCQPxoHT8ZnA55RotJhRsvWN1neHnB8ei/8FOp9ECG7W0vhyVvO kQF2HUiDuaO7b+j34xNQBxKQBSHaB09uESV5ZGI9oeINuhLU/PCC9gEAUeCp FV+/MWMUN7SM3N9UtQVVqH1SifXlaCScIRJd1uC6xYCv+nrrKFPtxHDoRdnP boSGW8lPGnt8KwJ+I7Xk7W3K/BnW+uHMNuT+aI3UasTrsJnqM8/d0v/h+ERw ZmbK5xrsILwWRmH5XPgOoaCc1wZ6ukgNxQOsqW3gz9HiEms/Gf/unmukz2rm 1XuYob6p7bJ3cUfy0GQu4IFn2GbCWBdseesNS1M9+y6abQ5vOL6j1nUOTyWe y2HDPU/w94oAghGifbK2qayQcn7wQ5f3m8jytoa3PenU/PCC9gGqCjydSh/G 5oVvP3C0NmTenDrrp/9Su+84p33w1FY04BrqyjPbMFPHwNgdTfrA0xv+d2jp o+twRcsWbNkODNAGXaPV86Oge8U3/z5kyvwOZuj1xsA60gx4au0frt4T5LHd r2/PPUe24/2d6B+7CfmDGWzjJbQJ+k0vl+9/OmAxijIJill6+Ivonffa9Bj3 XxdH3+VdljQ2qeeRLy6Zid/H9C09w6679+eW4mjd+1RibSkS8HzUn7tr7JT9 9qNNdc3//e3p3x4XPYolIPRfz8CI89Zk+If15H6l77FqqLj2Qalv6vj1jXvf xWvz+db88IL2AbQN4Yn9xntzpK/L0sTsgJje3NEzcM05/v9C0TX5TXp8xX/x OPE7hvMeGbyvSkNqn7f+MOV3WA11esvADV8o+mSTHJZUYjniv36edPwK9IGr go3g4HH6mTeOhHbLPGn8ZfBKA/3RU6ORlwJ/KL0982ErMUoGq2sOamJqATwV /2qohXjmJeIVd6KuN8g1o7HdNV8mqAtPPPbaT4m1rxtarnyzljcxs3lkosFa RqbWJDhWU08mh04Tws988WYgulVezqR+CrvfMWPZ2xn6Kq4i+ZNe812QW/qw h7qp87IrM0YQ9ScdcTFvT5fm/xkOTXpvUme1eejbhjxTkehyueO8pfnwTCjw V7fz2qUOU95XYKa3P5p4zPEKVB81P7ygfQDNsrsWueOwNXNtfPWmrqufc+7v AkjGvH2k3WLodEe1sCOS2odYhlr7v4gUc9vuxievtpAeYIPtszkNyZ/0I+cJ +tinrs+/Ue6jO/PO9uyMeDewLdwZhW+ERk6Sw9jumNlQ3VIOsMHXvrlCCh+d oc8bK65W8SU3PSeM7wWLT4mMgJocacsd9xgtA9e9gQfzS08zW/5y9GHQdwM5 DDLa3A/z7YIiEaU7i57zxAKCNXdddfmCD9mGRSzstOp0Vmc4plRoFi18GloG fYt8X/a9zYjLRptGKpM/qcQ6aoNN/nHYejRvD8Ba3v1i6mF5Ay5OPtFIeDpw 1z06YG1i7yuY6bxzekXlYTyqR2Ktg/R28DdH8h4th8uryDUkliNfuuwW1pFr vannRnD5pWrmdEWoreEF7QNoktTTKceblOMUa7IOjP5xIhgmDJLM5jUTnBj/ /WBXniaqN9nGAjHpbx++t+ghQ2UyJrAruqeqt7kUlPYx2/3LJfebnGGvw4z9 vhX1GDZlYWxXXUO7+4dyF43HvLaso93qWRZ1f9nIN0j8UT3ZFC2OOiS7oeFG ak40DQTWC/+dEVA6zGB1TEQ3Cr8KT8y6bMdoC5l7TUgnIh+3YRlr/MrdYt92 gD/19R7RNVwJKmUp7Cy4u+vE6JfUWmDIRL9Cqj79LAjnOeUIl88ELGQ/uTzl 7DnB3kSO2VyzCW0sjepEcp23DX9fHeuRiF3M8dTW44msCZGd1N1jNS5va2l4 QfsAmoMxNvQ/G7o1UzygFN+Jh7+wtzSwXmTDm46pp5LePsamErGfVortyOhb Z8a+3S67iOEr3m563Ws67xMnDg4ZNNmn3TlfNviQSfapO+F8JFa37K14z5O/ 2NA6+p36gx1rlb2476KBjxhhrGTs2Ggkf1bsfe/pPkYLn3Lnofhe1NWO8ZuH yVlnW2O5moGU+SFWnnOB7y2Md9bp6jrHF0T4bfC14FAL/cJhVuecOm2Ggig4 0UIyGxmIYP5VIK6FtVGdSNY+hVkqkuqX7sanP+5CA72w04O+72tX3tbS8IL2 ATRGruhWyxXfYnlznuWSzb19EhrxpFb9diNlC52/W21bIHoycvyDsGpLOjEg yT4cYWz4btiRjYM5PhgsGxxXHtJ2JafAG64oqB81gm9M2o3Uhnuk1/e03Dx+ GRzMekewHt8a69+o8xES01CgfHLN/mPXSUpaly+jkVr19dXVdbsXSs2c/e3A u5kvahwOKVJOHV8N2JvJdMjXu3reHbv3WKgdgnhIdHW2W6qs+4EsC9R1ckTD liNX04bBeDmwAWe+4lCb9jkgzmGjXpaPVNWt+hSmloYXtA+gKRJzTqugZitF 5E/dWzcevRCzZ+986zhObfwaOvThD5IRUyIESF0gyT6YzVtWiiajro7s2nvB tybFdMkd/ejqur0rKjT9ap1XMc9Z2tXIldiFL3usJXZ5xMhvtgdWuZ5zNqVO p9M7wqV3djy1/sPs0mbpD1B2u+QabqV+PubpZB1jnBgMPhf4HeuBgabsn6ty GUSWBRKuaFiur9vwX2LX+65vdT7SQpqnClGh9jlA+vQx9vmVqWe1uLTX0vCC 9gG0A56c+6SNUD4dY5Et/s0pUzFvL7uACdY6FhF8rlH1Rm9uYyI3+IHAdqUv qDxIsk/9SdfjssULfvL3ZY99TrqiEotuMhL45EgIih6oDOYIhnMO47uhkcbs hGefDrwIO07RawWvtD6e2oeLnenhI5ioOoR82F1yv8m2bESILPpkih60Xh+n LDxkkGWBgisKkRMmXDbLCec8nPyIQZ3aJ0N6M3jVhH6tNiq4yk0tDS9oH0Az 4DFvt1FUqkWumG0Ojqq2xb4jZ/GKcJZqA9bKp/b9HU324epqyoQ2YUcdM5Kj iXYX3W9R0wk7415UafuCGmU/6jpJzwrOs0uWFkA1C77h76fNXWO3N8Zt3eM/ eqyNhd8jEPxVZKyZUBTv+BWJqkqEHWa2ZWMeDm0Jvkr0sKyuz7eqhgCWHOiy QCK9agT+g7udHfam6/Ysw8mPCFSrfYh3fsbRjhoJWNsncxrseCeJWhpe0D6A RsD35m+0ZqZq/SURhgFizGQ5ci0k4OgHiXzQRi6MGFgrn1IGmFwgUf1cl5qe d56gP3q0z/+T9N9GAqJUGfZTuyByBuvlsq+Q00DWxEDsZ562PVMvTnDbXIRs 0KlSbgck8pMcIEO3Z1FExQPWMiHPCyUfcib7ZEHnCQXYS+JQsfZBynhm0UoP C/mopeEF7QNohERk1JLZr48MT4s6K90KDZvZb7WQlJb9791nKOOGM7xKTRC9 439rMxv1LecdEwucNWnZK5/Y7elwQKP6291L5Sy4zIbbm/U4velekiOJnCpE TE2Ifj/EvakGIcGNSKED9sRA7GeOqUWDHDa1OsJiY0Wz0XrKhZviidnx/lPE O4412xz3xDYyZgL8MjQMBpWIzxOJzMk+FKz71YG9JB5Vax80rJ2m7rx3pZbU Ty0NL2gfQBvQm5qYIA0SVpi6wF07G4tC0OGKqravRT77i+4zuWNm7Kwn9qr8 51krn9SaAMqCRPUXq07MAsnOls2jjkwnHgMLHBICghvRl1qHdXqYyDYmxolz alEg1RWEnSazyAoo9XtX2FpAegKdfMif7HPAyiDLoqVdQE2oXPscHGxPDRrR yKy64yPTHMVkq4laGl7QPoA2WPP1MC+NoaX333xRYbXaCrZF/pYwk/isqo2e i7zQd853HH8ZvMI4wvmZfRUCvTWu87t0ZPQYPXXYand3ff67+TWxx0BMG7jG M+7vNTMpqhlUznCe6lLnyBTsUtiMAcCvFAC+5OnU01u541uxpnZOQEmrwX4Y oKXeVBUcq0Cyz0Gxho8Kdp6tblSvfQrjQ2rKtVVLwwvaB9AEhAHLfikF91lg YvIF7tp08SWdtLaYFYCdv8N5vry37OlmtndVhbLkg0b1c4SxIZrX2ONbYf6B OElsFO9jR8LeNKWIqxg0n4UruJEpXVJQ9ZF5bfhsi/hO+IPjfF+xMl+T664l U1imguTFgKkn8T8/2Yer9D0fCmtca6AGplpRv/bBd0LXjrCfdg2VNK+l4QXt A2iCwpdScJptka/gswKjb6uEYP5KgMe9NgzTmzt67GN3Ipw526jlIDq28FBA o/o5YvNQVzArUoXURFIeKFolDGJgVADanJfjSDe9EbhspD/aMhRcYxvIOdue x7aIL/vOU4cgjW3OWdGTAF/19VLTtHEktKvyM4U87aMa4yE/2UeO6EG6uCiK utdGVaN+7VOspLmEQFaNUUvDC9oH0ATFtI/A5hT5OyPPFRg5peVqlag6yI2b bzci5nhLtR3baVjhi+UfSnLW2dZIf5IVqUIWQJC26iIZ7vpOD5+ceEBJ0F3V 6lku8zyYWdHQMnJ/M/+TuSa/nIFzTN+KOusfHoksHXDASh+T3diQHaSgt05N xkNBVLN0V1V6O/Q+6yRJ9WujutGC9smf3roaUru1NLygfQBNgNiZOYQUajsQ e+6DKCY5IigOGXwnMtaKHe/3xbjuMxnz9ND3qYK+Y2XJi+ovHXKT11MAtYeJ iLWjYmsGZkGiKFXY5LHGwHfDDqYScZna1PhWZKyDnBWYwTYeLdJjIpc3VNc8 +rB0MDqeWvH1k6m7WMvVybiUQLVcBg3P6grKgadTaY6JnL+QqsR4KEj2ke6q Qj0n9Lzqdi+oeW1UOVrQPgcvQsMn2L9Rfh2oImppeFWmfdIp8KgARcFX/BfZ jRusn/5LUG+swnwfHisw4kvUWLIPDWXp1b059u1PpW81nZj7zGag7MHTV6ae qfslzIvqP9bvL3bB+Is51zkD1tL11muFyzhZAU96a54VX082HkZzZ4LVRl7z moZWx4MiFYTw7YVbF8lnlhE+n82VOqnJrTYlkwrxVPyroRaiNIhk4YMeubJT 0g6B1PZy5BuvyzHQ02HWM34CrOnMhaGPPVPRrcIdOT/3XyXGg9zJPvj69IiF 3RHbbPcvq7juv/rRhPbJXSRCjWR01tLwyqB9eDiKyv11cnV+6tao/W1LUzZe AWtqu/Ce8044nqyF2QbwBU8sfP35tT5bV1dXr33s3tymsAw5VjtyCm4fq5B6 YgIhZ/6frw/9vC0383UGc9evRgmDQ1TyX6k3MfV0yvGmATvRc/0/inxzaiM6 4bCSwgczXfg88lz05n5Id1QQu1hofGamSmC024CdHpp88irXh7R5LPKK/LZU zNd/nG8oYDlQe1uOarqaJJVYfxbPsJ6opFmIJvscGbr9l0vGzNP3/4h6R/Bk LDjWTX7I2DbyZazs/oKvfXOFkDbFJBL+cjl4o8eUmeQN5v4/RQQuRIU/hZxY HdoswlNb0cDnV7tMzLZrOTcw7BhzeW57XGO/G6TeYkxveXc8zHKbFBzBq0P7 yJvsQ3lO2LuFzTWbULdXSPVoQvvgu6GRxjxTQd0dH2SjloZXovbBE7Pu3hOY ONXG7CBFwfRtI/cWa6i2OqAkRfr78Gj5jZ7Pyld/Cd9eClwvPfN1Ov3rw/e+ F7bPkjnXJV2duV/Un+wZ+r37biAUDodDgbvuD/stpBdcf6rPWUwZqe+O0Kj+ OvPpU3pKtZ39nftvwZnMTU16b/6my9Sgb3vPO0fpuN345NUW4lPHukbvhUJf fT5wCpMnrg+dVI1Wz481sFilEsuRr72ujwb7bB3mghQ8zDAwuVmR60KSfYgy XBnb1X3BhBktA9e9genwTHBi/INecwNtzD94yuPEGE+tzbj7WzFidtmuuu6S syvzynw00GHCiO+xu75ekMMYRhyhh5L2SziRXHYLfcpTb7K9/8XU4/VCJYjv xMO3htqMOtKHkDVVCxdSVRT6kDPZJ/U8kid8CnQ0IApNaJ+D9LwzLypLLQJf aWppeCVpH9J9qtM19XqXBM9jyhedPwIFGPq8scqvq4D2KSgsn9fUoyhMl0PZ ejrgicde+yksf6IXIsjNSBXabWx3zZdRL9S5jHOEDG8h3y5zR3ff0MeeQGRZ gs/+cO8IPYk72ud/ltpaCPk+JUN2DIRlSxS1Gy2I1dnbin79+XCfNfMZfUvX 4Gf3l+Xpz4H6wNVdFVwqePJp+N4nlwmzvwyV0j7o0UnuvaYeen+XpQkjpnrP gONTX2ihSBBXuS/eic8GPKPv0q9MZnrZ+oau3yLfGLlMYTwVDzisxw0tPx+b /klh+3p3LezuN2fXNMObDv8P5V9JPPG9b/A0hlmdc5SFkCsEkXvmanCJFyT7 iOw6hKc2I1+Qgjd3e+CDlQ9taJ+DuLcrf2UTWFhJo9TS8ErQPntx30VD8To5 nL/6ZHLoNA9jiVzDoKwKIB2kiBmN8b0gZ4IG0yZelpDUjJHzjcN6tGCOl4K3 V4EqxCq04ZEMHP4dISdxWK/IDVRG0NyHdnd11npLrUa8Dht6qJfRj/aPyNPD 2ehynOHZVoV840I6+9QsqeeRzy9ktStm6Pp4ml+aEp4Ij7U1Yu2u6B7OynGj J4MjXOm3sDDZR8TLSKh77zUq+jd7az8buvXPNTA/ZEO72keb2b5CqaXhFa19 8I1JuxHDWj+c2RZ4yfizqSuI8NG39Y96JsPRZSJcHE8lVpfmgt7Rn5uZT9RM gUFAKdB2HhQcRyQUaBwF1uNbk3YR+Ob9kZYGXREMZstrBeFD1L/wOfekjkgq 0COsAne0/9h1MmuEqyH/FN0sNNCZRSjpxKIf1baY6azD+22sopk9RUDPZ9Uw K1QIy99Yts5DEaj38cRg8DnLHUShhqLc+ck+QkypVCIeDflcv+lC1D0RQ/uF 2CxFoCTa1T7qkPhKU0vDK1b7JOacVqxIVzhOkjFvHx3qhrX2ue4vF0843U/G JoayZpUCbZRfLvpvOtTCTf9iFQfLqICC/nT5ndxLgK4EUt/Nve893ceQV52Q /IHI0hpjRu4nt55Gw/7Pr9qQuCLMaJ/cKH+l1N1J6SkvjkrcEdmtlTZv1FF3 FO3zKHZDVym78cD7bUztr4YW+22hBUYOCeb0DTvqmIFTn3zYgRZY28cRoa2I 8CVPp76uz7+eH6tf8aLc1NXlJfs0WgZd3nJ84RrN7LxX2dXtML25yz7qkTWg EUDRiPYp2k0QtI9yv6Id7UM1oRZeKAnfWxjvJDcpzHzpC46KUkz3BLlSLRiK DX4FqYnXqmIw/QdpsHbHDIf1TYIWY2xod/8gYQpSvgLq11v7bgbKehTTiaXJ 0a6srMDeci+WseYol2zdcce3h1tlrCJ3hOZZq+Q4ONeZRVdV+bD4i3nPJeTw Xc1FrvCXwSvZswiZizFWA3kR5iJTaHeX3G/qGt5xjnWy9y41DHhBso8osCbL Wz12h8v7NWgfpQDto25qaXhFaZ+dqOsNTCe8O0ZqwWMj3O+8GyLsrXjPk2ua 3CHc+JOJi6/xTDhSHOy1ixNPYKlVip3vRlvRKI1jNvc8v70fzeqVkouHJ+c+ aaOa57T82ht9wetZMxZLWV1TmUOfSt3RdtjRSj8QtfTTSYQd5uwkUYMdKAu7 cf9lxF1QoleOWkDeU5EZ7lXMzqLnPFJT6PhFv8jK7qSpYGxqyot4K91Z+PDI T/bhUcAzRyqxHl+OPgz6XFe7mpkTICK2E7psyI5GtE+RVoCgfeRDHcMrRvuQ aeNYpycmbA1NrfrthPIxXfbz7wRHVy6tIocqcKgk/uXqQlyCDS1DX8X5+vRQ s/b4YJD3dprHXtTdSVgfgnsgppa8veSZQsmyDBU69KnUHSHJPnW9vlVVWOOk Pzy7fldFLSBG2NJ2YNsnc2ou74sm+1RruQmRpBORj9FHKamnVbEofVVkV+Un +4g9o8d34iFXL5r1Y37HHS7TEhoQika0jzoSUiqAGoc3nYh967/j9XrIMFUi TtXW1dXZcfbz+VeS1nrh2ie94b9Uz6c+cB473zqO1+mwjrHIlpA/pKrKgPYB RJBnxWGGbs/iHv/ZJ0s4U7bMgvGSb0Xw2SW+OnGRCPsscaCArwbszYd+6FOx O0KSffSdHpUYuWhgpLR2iiKReWvAtx840HNS7MxoRO5sS3lhkn0qMv4qJjnr bGtE7AvhoRooxaozqSHnriDZR0p/WDwVn7CbECWFnR6c+BHabMiEdrVPbawt ahzegsKSFJK9LoK1D/7U13tEeMAJFb1msLrmBC4jlO8dtA8gGLYVJ7S00QE7 jV3sDNz/3n2mUadrtgfEHVPQYZ9Fy33sL7rPYJhxcOpQbdPK3RGzMHNkDB0m qPapiG9Q3q2BimdG9qR+P5/UuAqCbNeW0QhsEznyHyV2xr0oxVooYrGoIeeu INlHanZwejv0PiuEDjt9ZeqZul8CraBd7XO0z/+T7L+jOtQ4vHgq8ZzsoLAY uWXPRmLLUBNbqPahqhwILrxGHvqIip2gGjeA9gEEQjfepXcv4cLnQA7tg7+K jDVLDDWhOhMV8Ta8CDtO6bA3XNHDjHer5B3hm/9w2prrmjoHbz1STd59xbWP nFsD1blAZcYtB/j2P13dapsVlafgUUo9Ki04XtHpjlwL8aiWqTBSkn1KUFAX VGe0+1erP+JJebShfYrl4ks5TNQOqh5efDc00kh/XkIOQv5l8DTtqDpLQlN6 qSCZkyMhER5E6twH2tUJAX8WvPZ6hevY6V+/Fqycrwx/Mec6l83wFSd8Dtja R1xKL63cpRmQpCLQtTrCLH8DvuLtFlNrUSLVd0cSQYuMVTYmXPrWkKstk6V5 LCItphqoEK9inrPsYj4drqiU0C3WPKfW1SPD05U3B+VK9mGB1pOkUEV0n/bR hPYpfPrqKa2jMKoeXqSBtRw1bQRqH9LHUtfnE+QDIb0oYk0aMudC9hrX1Y06 KnhXzg7cXfFdyrrtRAufAzlat7yMjJ7i2UuoNNRRS15A7Mt5588q4ZavvjuS ipxNoCQheWtA+8YK48gbnoUasAy0w94jZyv7UUoNj0dmF40qXlVZk30Q1nw9 eXVgjzrC1da5+PDRhPZBy9fQYDZvvBYevpqHl2wxln3LZahpI0z7UD4WYaso vjd/o5VqCS2CVw9Hm+tqZeLJRU2f+6Q3p3/XQm9bDS1DEzHxdUpV07aS7KXO iuXYnho0Yli7KyqgdIOaqKI7Uov2kbw1IKUkhALaR1XQgakIko8t8JjXZmB9 pSrOBGVP9slSxH8o8eAMONCI9smPolRTaR2FUfPwMjVtZEj2ORCqfUhnSONw SEj8WSIyahG7Thb1DwNAKdKJuc9sBsqAE1TOuiio9qlsuC+Zz840UKdik4zd XoFl5lVE1dwRy/qqpPaRujUUhCJgb7vnnsb5sJ6AXAg1UXhGIzk8nm42kaPx jPt7FWzKCiT7UBQ5A4WkY+loQfvkR1FmVsKznlhtBDyqd3jRmFt5TpwFaZ/0 vPOErtHq+VGAfULkNevFrpNUXgD4WwA+4KkVXz+d3nvMduPBmtTe3HLUeZMH snsjdsG3Rpq0VKW1ki1yNEHV3FHFax1QSN8aCkIRTjjnoU2oJiko/Sc1PL4g 2Udo3LtCKJLsQ1Lk3Ae0j3Q0oH0Ka3poLQVVAuodXsSfI1PulSDtQ35YUK0/ fCd07YjYSgVUpRqplTmBmgBPxb8aaqH252M216wcFZ9QE6KyG196zXcBo8+e KtTPVGaq5o5Uon2kbw1oJ1/KvJXJhQ4cMoUGjNTw+OfBwRPo1FDJq6pUss8B eoqaA7SPdNSvfQqLhIju5qBBVDu8SMytXCkwwrWPoN7lZKUCkVmW25HRM5gm w2CAwwZPzLpsx8gX4/Sg73uZSt2i1mCFNz7y1TsxHHpB2yEqanAjkmq5I1T7 CFobZUWGrSFP+2BMQCKgLQraZwgMU88H3/D3o/Ffh91MuRSKJfsUSZjSMYfU gHhUr30KioSI6syiWVQ7vEzMrWwpMMK1j5CfJi5YXPA5npz7pC2jD49/EFak g8DLRf9Nh1q46V98qcA91gx733u6aeEzNPmE35KKJ+OPw+HH8XLvHWoNVri1 GenhJExrqsFWFZzCV8sdkcF7Fdc+MmwNedqncvcCSCRf+xh7fCsSvi6v8rla Dn0UTPaha06ypU+nB5ywklG59qEiEFBq6dDnQLXDi++GHUfpP8lvjSEa4fk+ /BcBKnlWTJYlvv3A0dqQUT4X/coYROqoAp2joqVxNU7qyeTQaeIUVYDwOaBq NXO58tTh0qcg7JnMNSyQdsixfr/2+4xXyR2hkoE6xjp8ZNka8rSPRIMZqBz5 2ufUaESCby3PVWu8HJDcWUMelEv2IVux523RtVLpS1nUrX1SCx4bmiiHGXq9 McFZw3hqayHk+9Qx0NNhNuj0ZmvfiOteBMk+TqekZiIrhkqHtyCiG9+Jz37l dtjPWZowXX2T5W376K2p6IagKSWszhvlXeTbSp4MeBORZZla8vY2iZ14/MCf TFx8TWQ9V9nBXrs48UStL4O6wV88uvEWsUsJEz4HdC4Ph+ZEK19VOgSIsGew Y//mdmm1JkABVXJHP/n7srJDTFUWWTZKWbaGvFoHygV5JmP+4TZ9g8n2ycwm xyuFJ5+Gv/z3O1/OSq5bUkvkax8p9flTq347Yq809XqXRHwXnozPBjyjdnKS kxNywPHpvfBTKcFEiiX7FHT41alJ8WkbNWufvKmu0xn6vDGB63nqp/D4uxZ9 xrQ0Wvo/8kxOh2emfDcGLJnlrnd8LrGXmP+z3WLMmCtXplTp61Pn8LIium/H Vmfc/a0YZuq47PQGyBF29pszQ46d6HX9g/9OIUz70NeAGe2TG5y/QFR4wwQn ++Tc+IbznkV1HK0DKiURdfcYxAif7Lzneq/TkdFj2Te1YTBYycBEMve23mxu VlHMiTSq447wH9zt2QpYQjMC5Noo5dka8mp5KXXQSYU4knAek22Ehlsp0xMO oQRANs9ikFLkjXUCghm6PYtC22+lViNeh81UT07yD8cngjOZCeka7CA6ERjb hu5ERTaeVirZB9/8+5ApT/oYbZ4FYfsL4XwIeJzXBnq6SLnHA6ypbeDP0ZJq cD8Z/+6ea6TPahYYsVLf1HbZqxZTSrXaB0/FvL0G1B1+vN8XE3KJeCp+f6yL tBcM3WPTK8jfphMLf+kz1psuf/yRlb76CpsTpVDn8DIR3XWmc/3nTA0Gq8O/ uI28Kq/Wpn5LdnU0WG9EeKZ7C9M+jEuE88qpCm/CHjGeeOy1nyIHyPyrALQz BcqwG5+8Ssx2EcIn6zPkDjVEu3vL3+RLCMyiZBmNVEW5oeq4I3SzEHA0KOtG KdPWwO5tqpD2QU1WrmMy5r4ENlaocfL7kIo+90nMOa3MjBDsBsdTa/9w9Z4g FumWX9+ee45cxP5O9I/dhC2EGWzjpQ3+MiiT7IPHA78ys40/gYoPf7l8/9MB C7vGOF9KPCn8RfTOe2160YEqlQ7YZlCp9skmWeRobBsLC6mYhJSZNZxzzb0o +NP0RuAyMidExWfiya1nCjdTU+PwohHdxNC1DPoWCx0mmUWvmxxg7MxohFfU t0DtQ9edJn+ivM25HXa0CnnE+8nYpMNK3aIA7QbUJOntmQ9bsUK7ke+fkwYY D4OKOPjJ7jiVTcrKqTCRVRPVR3XcEaKOsR7fGq+/kXejlG9rwJc8nczOJ7E4 WAkQk7VxJLRb5v1Dz6GkZazUHHmFZMX1mMiWG6IR6o1kJjnWcnUyXngBO1HX G+TXN7a75gWXjVMi2Qd/Mec6l3dIU+LiS3wB47wVQUPLlW/WCu+h2FUJAmsZ mVpTST6xCrVPRqE/uGE7hnyj4K7o+No3V+j+GqVT1F89HG3OzVihWZlpOgaA oN5k+4jt2pIPNQ4v2qm5jCNib9nTTX2ovt/PHZYmXPsQ0drevmyARekgCvpB 80v+TT2f8+bcGoInHlBjpBNzn9kMWAm7kQf4M3//MX6TE83mkBI2Lxk6hl+2 Ao+VpyruCImK5FvQUu6NUsatIbXqQ7qaKKFJEZOVy1GPFNCTqZld7YCveLuZ B9k0EFgX/A0sV61gbyQzyUufFjEJO8LT/eRP9sFfRL2/bsnTLQK2mIzWmxxp y3ksjJaB697Ag/mlp/F4fDn6MEgEszL/anM/jOdR3J+/s+g5T8Z1N3dddfmC D6PL6N/Ewk6rTmd1hmP538bwPKEia0pt2iediHrtLeiRhLFtZFKY/ZkrM6vD jBcnSpctexEazjbJEhiGisfvnjewp6bpapArWVIMKhxe9BS77F0z185veIVr n8zfxHz9ueNmTN925VZB0uJ+1HWSzwzHd+LhW0PMigHCByhPZouZsJvqiGPH ifnSCz6zO0QjYYTpgO+2+6OfE+kPvNyhqGFZ0RY/tFIQkU2vVqrhjqgOrRT8 LEzZN0p5twZWfof8jwYxWbkc9eh9WT3LsCcII5cqRcDTEZqDaZcmblOmqxXp OGoj7IaGG4W8O8gPsES6TnKyT2pleqw7/8THfMkzz9e3hjg0MIPVMVGsrgg6 qli7K8odR5dORD5uw3RYy5W7RQuV4E99vUfk62p0CEjWPoU9Z8UuDnhiIXD9 vAmVFFhrv+eRwIijnQV31s1QvggYuqAJ6zWcV4WGQtRpKSeqG15WRHfz6MNX pT+I6Db+LXv4fjgHnojcsKJLBaa3XBzzTkfjlO8iazGWDIDfT65HQyxPCPFp 240HUM8HKAO+eX+E5UaQAK8tAw28qWTSAf2eajo8jE1V3BGiULBeHru5Ahul zFtDejN41UR/rM409PdNOWc8muzD5ahH7ktUh7haB1+duGjMhWPyLM1K/mFi 1k0m6VCrpHBv5F7cd5GauxwWPjMjhVbRJEvIIkhI9tnbnPvriPWojgVm6Pp4 mneoG+rQMNg+mytZvQHfi7raMX7zP0Ny1tnWWC7ojrJUteQZkKh90tvB3xzJ 28c5QmeLXENiOfKly25h5U9h+rb3vKyUNF4wOSA6rhZ1TAUSoQtaXveBLPJv naob3gNWZEX5djloVV5etXHEaR/C/b75nYsVxUdR39T288GPHAOWRuK/Olzz 9EHufnJrNb4cjYQCd92/H+o5mV+rxPCmY+qpSmJSAXXC9kZKhufSgXhC6gcC 8nTVEgxlNGo7PIxNVdwRWuSNx3RSYqOUf2vA16dHLPRVYu2OGT4nBnhqLXxr 7GZguby5iCT7cISxoUlMYjrEAZm9fW1qJBfEVWf9wyPuimpo1m2GY11j94WG YSCT/Eiv72m5P0bq0fHOlTsga0bdsrG806KWkdQ2YaMNtOebIlhrv3tGiA8W cWiYhgLlM2v2H7tOUm8hpyeNPNuq63YvlJJI9ButTF6eQgjRPlRqP8HTpfl/ hkOTXueApUjBB33bkGcqPL9ULvxjaT48Ewr81e28dqnDlP8V+nb7+IN4UsRG lMtZ457tVHNMUQtaZtB6iyWRSQvC18DwHrDOvDgi2dDTMV7FPcRqHwI8+WPA 8aaULDySBnO/O7ymndcXqAisSEsZ4CtkUPv2hHO+Mg5oqnJINWV8V8UdMWcT 2FHHDNcSpsRGqczWkGs0oOOR8kAUMb5mNWA67HXnXNmniST7YDZv2cx5JNZU aOVwIAcrTR4zdP0+uFzyqBtPPn1AV1ynnvubjsCPwguwIWUWuLK08GWPNbcc l0wrSCXWaRNtOTobnglOuH9LVsxGqTMN/ClU3jrL2WhE2LPH5XinoynvS3Rk ze1b4fiOoJtGUqv4NKlf9nbRYourdg6eWv9hdmmz9GcoT4J6arjxQYj2UbwB PaZvOe+4Pb24JTZ2jGrjQn/ZWU+szKk7/4W6CMXqruuk7p7qH14CJOGaI1AQ PQs+2uf/ifcAiM5l2F2L3HHYmkXVNsH0lnfHH0hqcAbUCHK/qfzPndGUH3EV kyRDZ75XtNiCvFTDHaFnE+bh0BbHxxXZKBXbGtAMCKy1//NgwRZGxC1P36Za t+gw8zvu8E/lnyWS7MPpqEfuS9tRkZUG3168N8KUR8aabb9zT9x/tBR/tp7Y SyWeZ/TA3P2/jY9eRFy+Rov9jyK9kcy5BqdzCd8NjTTmluPiQWv728H3xFWL FgTW1Hn5xj2hqofkRdhxiv4SXik8/LUPF/R6oi33UcW1T32Tpatv8EOXNxD+ fk2a5Um3caHhWKaQ5VfMgpZORO85eqlwKUNL78ffTI6dlJiArPbhJeEfKMgq /MjrpZCsfUiIkgX3blzubOIpgTBTx8DYnZmYmiqQAKpG7jeVl2eAIlu4Q8cd xaEM9AVUtsi2rFTFHSGFyI5cC3HYTcpslEpuDfl+rcyifemqw+m+fdvtdAzm eixiprMOb5hHSAOa7MNVYpG5Lz4HakB59pPxB+P2guCuQoh+uK5A0bR6nr/E LJWc5QtYGdwlVoL0uv+SMs5pg7mjmzTSJh/MPxFth+Ab/n5a6hm7vTHub8F/ 9Fgby94y319+FRlr1klrXFsBJNc6UBHI+s+5TO3OOI7S66ikGMXUToJaaYlK QRUtvnQoIPEPHOsJqzkdv7qg8mif3AUk16K+oeKRSXpzh61v8COX9+vIspLd mQBAZgQ4M5Uge/AkrDiMmqmKO2JmBXZkeJorb1mRjVLRrSH7l8n1+b97rr/X 12VBXFsGs/XC0PVbAWIt5/kIkWQfLoMNuS8BPgqgLBkFNPu11+UY6Okwo4Hq GRXQM+AgPbXrEj21iJzhLv2Btg/Q6FNG5Hxdn2+Vh1XDlLaTWDknu55ULAxb HNWkfVZ8PbkzSY7lF/EJyDPVSbu96rUPUkaVYz1Bs1k5A6pp5NU+rLQsuvxI KpnU+iQHahwk7O3wW41kO042DAY1FNxQjqq4IySC65QjzNkoSomNUtmtQWbQ gycOzYvm9lYoyhQQg5BIRaTQgWafMiLn+blxkFdbaHfLvC+iHS+VK78jjirS PqyT9PITWPYFjSo/K7mnldp5GRmlA0pLl4ymQN5Enb7Tw8ulKrP2oQrOk2iq /AgAlAOPeToxXoar/D+96uslllg5Gperg6q4I0QOt96Y54zzV2SjVHZrkBdE KnIWNEZC/jTm1q5tBEQqZkO2qE93eniEi6kPpgwOzxrdSCEI7ijZcmQ1lObq ZFaR9kGj8Dn6ZSALGmui4Km1xw/my1cGLAp5wKqxcEcRIMW9y7dYRXNpjZcD /IZFZu3DFATmVWEbALQB/szfT9cSFtooUBo5jz1XioRmqIo72nvkbK0XICUU 2SiV3RpkBU324fIeEGW76atlnwzurs9/Nw8VQVUKKmc4HUSJyKgl+z5UJolS BpiXml+xtex5t05Xd9zxrQSXfU5Daa78exVpH2SZ4jjlRBxf7HM6wiUlpLp7 DvKAtfqLwDAbXNnkOLQiioCWr7JqHzSyQlvlRwCgPPhO+APadV533rsif0fl EmyFhsnXv3oq/VbBHSGTgaeUUGSjVHZrkBX04Ikj6gM5IWI70IiRadSao7t2 EFIPc+dbx/FstfPWsYiEE5BKwmgfPuaTfDsI0/hYc7GCVaR9kJJ95V1PSC13 dpKX6AWN6K1QC0VgcrOl7AaXeR26jdnF5MOZbb5GhazaB/FYVv95HFBjMK/Y IRqQOUu4apw8VXBH+GrATnm461udj/jNBCU2SmW3BjlBQ/44NC96QtThiiZz /0BqImlZEoByMAY5Z6RieiNwOSvGW4aCa9pUPgfIS83DfMKXfecp66ixzTmb 5Ph02W+iY4Yz3zQS2tXW4FWT9kHK15RZ0vGtyFhH1u3FOhEgAxctoxGhhndm hbxUz6erguZhukiUzqBBXAp8O3HTyKl90MgKiNMGqg3kLTv+QfhQfJU5H3jV ZM9VwR0x3QwNF31xniJYiY1S2a1BRpCjHK5qIclZZ1sj/UlWcCCZBiUtSwJQ EKbPb67MUQmYR9zQMnJ/U8PPM/dSc8b4pTeDV03kR+usf3iUkGIbIdE15SNd 1Ug1aR8kyPOoI1xchO7GJ6+25Mpjstw+ZOBi81jklcAXgPJlifhDLZLTFCVq ieCJ8Bi9mByzuecFuRTk0z5opz/NlR8BAB4wDn9+3RykkvOBa7QGbCFVcEe5 boaCjv+U2SiV3BrkAz3KydDtWS4xbPjGjKOdKaSNmtBEFZ2jPGqJAxWBtfuX K/jMqHvMYBuParuvee6lrmsefVi6VzGeWvH1G4mbxlquTsYlunxy0TU8Cyyo imrSPuhZXtHjG2o9bzzdZTUVOnOIjFGj8ACS9Hbo/eOHZH6ogZ2o6w3yzSnW DTy17Leb6d3NNZsQOCLyaR80e1HTFZwAoBR4KnbLRplxh3H0k82SKPriaxKt 3xE6Ad4PCYofU2SjVHBrkA802Ye4mH7/syLXgr+Yc50zYC1db71GfxBxa+8v us9gfGqJAxUBTfYh5m6r48F24TPGtxduXTTSwuezOUnHH+oAX/FfJOd2ybw/ PBX/aqilQSbhg0bXaLGcVHVpH0bVYoZuzyJS7RNPxoLO8ybsmO3Gg7WdeVc7 5YDK5WclY94+g4iyM9SZ6WGFnaiC5JzLasiMsLHft8L0ksNTm5Ev+lvJve+U 3ftYxO4mm/ZhFXHVXPkRAODJzoKbinhSPuunClJj8tD6HTEHfyLyFJTZKBXb GmSDtTXoihqBeGIhMNptwE4PTT55lQspzJ1zpWK+/uN13d6VmtnwNQaa7HNk 6PZfLhkzj9L/I3qqQ0zysW7yQ8a2kS9jSS2+/0XA1765QkibYmoOf7kcvNFj qs+IQXP/nyKb0rcL9HxNi+1dqkz7ZEgnol47NQGsw19MTodDk96bv+ky1WOm 885gjHwF8GR03GYgV/6u0YnQf/pvXjTXEWudsCGgj8U1nSInAjy19uCG7ZhO V2+yvU+M8MyUzzXYQYxnvannemCpiJeFD3JpH6Rpl65cVAMAaJ29qLuT3MMN fd6YgmFE2SyJ6qnoovE7ouINMtSZhv4uKk9BiY1Sqa1BLtBknzrz6VN6UpCZ zv7O/bfgTDg7Ag36tve8c8/Je8zF/h3rGr0XCn31+cApzHDes6g5S69mQJJ9 iHB3/MWc+4IJM1oGrnsDmQkZnBj/oNdMTHu95d3xB0+1HemWT+YFnHGTfgbM ZLvqukvO6sBd90cDHSaMuGW76+sFmZwPTHkTiR2CKkT1aR8CPPk0fM813Ndp zixuerO1b8R177s4S93jqc15/42hc5YmDGtqu3DNHVoReP+7cf9lk/itR+Ok NqKBccfA25ameh3WZOnqG7p+KzAbl7KSyKR92EfeZSuuAoDGwVMxby9pnRov TqwqtRDlclqrpqKLtu8I337gaCVjV6RVS1Nko1Rga5AJNNnnaJ//WWprIeT7 1DHQ02Emjqv05o4e+6hnKrqVQq91byv69efDfdbMZ/QtXYOf3V8u1xIJqCjo YUSuWQ/1BPu7MnNYZ8g85AHHp77QAvspVxH4Tnw24Bl9NzOtCYMqM61t5DsY WU7Iect4Kh5wWI8bWn4+Nv2TBoeyOrWP8qQTkY/bsGqJFFUH8mgfpmkX6dUV 060JADREai0wROZlNPV6l5RZxLNFhMrXxdISWr6jXBp+XZfrX3K0ga4VXoSG T2Q3hl4weKoRIZ19gJoGtI84Mq9YpxGEj6zIon3wuNfGVOepO+F8BE8IqHLw F49uvEU4tA097qgSxjDZu1mHGQenqqVkonbvKCd1zXb/MuzZAth/7DqZDYfS aJIXUB78B3d7AzxigAegfQC1IIv2YSf7QDUeoDZIPZkcOk2EvrX8bnpTdrm/ 4usx6rAzoxGtCYWSaPSO8L1FTzcR4ljZammaBHGLla8DDGiWDX8fHdSo0Tw+ 4NDIaZ/jXYPvO/Jx+pcqVIYfqGbSW+E/FUw2x/t9ljrpMW+pJ4GR18kw13b7 rUdgHgC1Al1GWIlA3NR65Ms7X0er6G3S4h3lStSC8BEB0odRm0leABf4y+CV 7KkPZ4tPoMZBajUUQXqnFQAoBGYdACgAffoDeYhVCJ6I3CAqSIPwEcd22NFK 7zBaTPICuMkm8REne+/4hfYrAWoLsEKBwwdmHQAoQ2plmmhd0dDieABvUfWw /6P37LHK98fRLkiyT12vT7GKiEDlQJN92t1L8IgBAAAAoFbYXYv8x50gxCtX Efha5G9/u1/p/jjaBUn20Xd6wC6uRphkn/qTrsdwsAcAAAAAAADUJtlCOjod 9pZ7EZLgqxDmEessoxE49AYAAAAAAABqFHzzH05bc11T5yAUwKlS8O1/urrh EQMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAABAEf4/1chMGg== "], {{0, 113}, {1108, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{449.42857142857406`, Automatic}, ImageSizeRaw->{1108, 113}, PlotRange->{{0, 1108}, {0, 113}}]], "Input",ExpressionUUID->"20b27992-2eab-446d-aba5-b74df1428c9d"]], \ "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}, {3.7664218238035574`*^9, 3.766421824710123*^9}},ExpressionUUID->"d43faaaf-0673-4970-8df8-\ 4e4a3824b78a"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"\[Phi]Holo", "[", "Rep", "]"}], "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], RowBox[{"\[Epsilon]downupupup", "[", RowBox[{"mu", ",", "ro", ",", "sg", ",", "ta"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"Bmn", "[", RowBox[{"sg", ",", "ta"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "ro", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"ro", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"sg", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"ta", ",", "0", ",", "3"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.7609882902016387`*^9, 3.7609883336856995`*^9}, { 3.7664218668150043`*^9, 3.766422003577958*^9}}, CellLabel->"In[66]:=",ExpressionUUID->"983cafcd-c51f-4c38-b45f-38ca504d2886"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"HoloraumyDDTable", "[", RowBox[{"\[Phi]", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "\[Equal]", " ", RowBox[{"\[Phi]Holo", "[", "Rep", "]"}]}], "//", "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}, { 3.766419187804517*^9, 3.7664191879295354`*^9}, {3.7664219838790693`*^9, 3.7664220848882074`*^9}, {3.766422117032632*^9, 3.76642211959116*^9}}, CellLabel->"In[67]:=",ExpressionUUID->"125b80da-d41e-4209-9761-7fe0d1fabb16"], Cell[BoxData["True"], "Output", CellChangeTimes->{{3.766422030308381*^9, 3.7664220853714294`*^9}, 3.766422120044215*^9, 3.766426052717741*^9, 3.7664263147265797`*^9}, CellLabel->"Out[67]=",ExpressionUUID->"2db40e97-ad3d-451e-8956-bf872aac5068"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztvW9MG2e+9209t3TreTEvbr/kBRKPLEu8iBRFCOkOilbmBVEiJIi6Qoht hUzVPhCtciCnT2BTBVJtoEetq7sBbUN6NlZbi7N1zqmV3TpV3C5uCznCOcXb Ogoox22gggSnIX8IchAUw/jxzPjP5b8zY8/Y14y/H+kc7W7MeK5rxr/rd32v 35//59X+l/7f/8tgMLzxf8f+30s9Q83//M89Z3/7v2L/peOf3jjZ+0+vv3b8 n/6/13tf/+f//er/iP2PZ2L/N/k/DQbuP0cBAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdAq7/cB//SPb 4GutDTWGGExDa/fAqN3tW3oWqfS9AQAAAAAAAAAAAABQ7bCbS56L1sZaU3Pv 6BWX1zfv9/vnZ7+YGj/damIMhoOdtm9CEbbSdwkAAAAAAAAAAABQBE9mh1tb B96funEzEFwJhZ6EM1UONhJ+EloNBnzTrit/7D46Oru5X5k7BSA/7PbPnpHj jOmlkavfr2e+w/vbKzdGmmsNBmPj0A3oeIACYHgBAAAAAAAAAMhl1dVtMkiE OfaHGz/vVvqOAciADd+2Ww8xzefdS5t5FDp2y//eYe4lbhryPoKKByoNDC8A AAAAAAAAALlI3UsyjScn59ZQVQxQR2TVM2Rhmi9Mh3YKfWxn3naQ4d7kLucK VDxQYWB4AQAAAAAAAADIRcJekmmy2j5feIZIEEAhW/ccPUbjK5fvPBdT5hKv eu352RdQ8UBlgeEFAAAAAAAAACAXfi9pOWWzDfV2WNJ2lSZLZ/+Y3X1raQO7 SEAn7O69qS5jQ59rWTxUaf+u/Sjfr9bQ6wohsglUFhheAAAAAAAAAABy4feS 3a5Q/L9Gwo8fhkKhhxvbiFUCtMOuuHrqjV1T93YlvK2b3kFBwzPZ/NDwQIWB 4QUAAAAAAAAAIJeMvSQAWoHvVcGcGA9sSvqw7+0DQpKi1RWCUAIqDAwvAAAA mtnb8P/FlpdJz/J2pe8Q6Ay8cgAAemAjof+c7D1i7HWvV/pWcoG9ZLHsBcYP HWgbuRYM71X6VqoSIQyvx7UmRZFjH3mHmngNr77Hhb4W1QAMb5UBgwwAAEoS Cbl685dttdj84UrfIdAZeOUAAJSwF1742GpmDMzx8zMPqZQOsJcsmnDQ0Ws2 MKa2d7yF+6ICFdhfcpxgLKO+DQmfFUrn8S7A4ff8W1T+EIGSwPBWITDIAACg IFBUQJnBKwcAoIHURnJk+j6tVbiwlywB9vmC/XWzwcA0X5jGtrGsbAftHVIV ud0fnT2H+Eza1rG5x1RKOkBBYHirFRhkAABQjKSignZgoJJE/DYTRDwAQJlI bCQN0lpnVoxq2EuykY1l//TVSyP9VqERpMnS0Ttks3/hX9ks9dGwj+fGWhls G3MQn/bJscH0/ptmS0dP/8ifpm6U0H+TXXFZzbXDsy9EPxm5Pz1ynOEUPJol HaAUMLzVDQwyqF7UXHNzft926LbXOc512DYbDDUNra8N2j667n+A9jx6QbKI x25vcK2ZFOJxmOK1u0JU9wyrI+KxkfATJWbzSTgCkweAbmAja+6B+thOorZ5 7OYzqn/c2XvJSPjxajDgjxEIrmrN0mcQ82mD05MDzabYszA3945ecU37/PM+ r+vKcKeZWxEOdto8SyXWUIosu/oaOJWo5f35TZRjirG/HbrlHLU2MkQUPNPQ +srvWhtq0kLjmSarzeUPyU9w5VrNHuz3/BL/r+zm8tefjPZ3x68f+67u/uGL dqdrytbNx+CZX7s8/4umX2UgARheAIMMqhD119wMIo8CLpu1MXbx+taB96du zM7Pz7jtwx3cAUq9QqUpKd5is1ucfDn59mBvNy9gSoBpaBv892BefTP2BP9x 3T7W30mqr1KoaWg751raUniAcSSLeAmRRVF48Xn4fbvrm8BqyQfuWqe6Z1hp EW9/c+5fDjNi0yMTzuL2Do5NXp32//R4e1+J+wQAlBt285atpTb2izZ2fvTf tB9JJveSnN7ltY90ZzgkTGPH4MQ1TR6t7oTmPuzlnEzG1Hb+auBRJONfv323 jauTxpitHy/kcDjZ7eAXl68GNiQMnH327UijkbtUn2ulyk9kIk8Cn56x8KFv pubeUfvnNxeWQxvE6xMJry8HvM6LA631iXfs2NBnd57JmDf2xez5WsPLjuV4 pM3e4uSR2OR3nL3inpn1/NX16cX+5tRrzLS8M/MIMTn6B4YXCMAggyqiHGsu CRtZ/y973xE+3vXNzxaeEJ7V/lbw33o4HS/mVk3lF6xEoXiLzb5YvfnRYHIm 5ZFHCmOfB6+91WYqesCmbtdqsVNdmMqKeCQ1DR1vXr7+j1DVaiPVPcNKi3h7 6+5TShuYNJiGrnN2b1DRyGcAgOqwa57Th7nfsPmkU63TMQXh95Kv/HnGY+s0 G02tg5fdvuD9Z7zzFQmvBjyXTvJnu0odrZaLRHGk/BpdjK17jh6+3QFTf/rG o0x/8+ns8GFDu2NZkh+6tzn/fgs3UeZO+0L1dkBP5K4yltNXYstX4T1C5Be/ 4w1LfB2tbR75KiR1T7G1ONluODK5mHiq+yt//X1jTdYaeuLUmVf56x+y2m+H sZXXNzC8IAUMMqgOyrTmJmEjoa9GmrmzkjwZ61tB++/4b6hrty8Wu4OldIvN hu+6ho4Ve2O1zee/Wc+e75SzWuxYmsdm1lWKoioinfbB8uL3ft+064oQlpmB qW3EORMIrhaKnFxe5PJl/uaYfPtMR2PGJZjG1y7euCvynuuS6p5h5dNpI+HH 5GxM/9to58GsX9bZT2d+KDyVHFwKxZz3c8f4YGcDkzGZJyfn1mgOcQQAEGyv uPr55djc5QhqQYLn95KcrWkZ+DSQ62R2JzR9oZk/5M2vhlEG+9Q/0SWcWRk7 /3ynwD1vzY0eEGzuMZv/edo/7czbDtYetd+VeijFPvWNHeVnst02/5Su9a88 xHcTtc3DbskZyrvPAnZr3A+RvKdgf3K012YWxONW5NhaHOP7xeUHiYofOyHP uUbu4ocH3CtYSfULDC9IBwYZ6J6yrbkJ2PVvzvMKnsHc71rJrY6zy452YQdb /9bsZrFRPdRtsdlIaHqsLRmAV986eMnlvcU5G9w3/DDrvkyE59VbHT9k3kbu EglbS86T3MrFNHVfsLtnM4az4p/sNBg6J/0r+Yenaj2uUhpb7G3O/vFAxjOr G/PtyLpb7kjrS/tQa1qYYk1j7+XZ1RdVb9WraIbL0NgiK9Qxa1cozv726sxk 75F0M4MoAgA0Abu75ORTCWL7BntwVxM/WmEvaRnyrOZdoZO7IQNTP+Beo+yA JouEUxTD2OvM42cm4MPthM/2uYlgPPbXwESToXU8IGO9SORwVWctJiGssYjD /ci6d6QxvthJC5t56uk31ve61yRdnn3oGRDK4p12h7Sg7gDZwPCCHFS3QQa6 p4xrbvzv4tUmRdoG7fhG64SLNwx6H8u5sYJfXtEtdkq9NDDmTtuN4NPs4bPh 23brIeGi0laivXDggzbGwDSf/zzXBaPsA3ffAUPt+dmKqSmldaflXLV0ianT uVrMUNjIxt0btpfT4hXNPROIcaqaGVZfxMuK/i36d5fsppfC8gdvCA4cAFST 8nCK8C4qxWZg/JUTE99tFrQv7JqrJ75SNJx0F7VElAl2e+HDtrj1lJLNsffU 80Z8ZMZ+d6ps3oZv1GJoubwoTxDYXXOd5K9W2zL+D/oz+pSD3b031WU0GLum 7hUhobDrsyPN8bWO6ZxcKLxGCwXxOuxBiTsP4fPcA24a/+FX2TcHqAeGF+Sm ag0y0D3lXHMFdkPu02YpClVKbmMOjQcUUs8rusXe/dHZI6hzheOi2d2gvT1+ 6fbJRTGTs317sq2uUB9tQaIpUpZRhNJEvOwybiU1ZN8JzX3QTSaQMseH3T9W dYxT1cyw+iJeKqIjsSP0PC32Wsn6zCnqz3mf4iQRAGqJPPIM1Qur/MnP9aa5 sysua+KI5vB7/pI7m6nF7qK9vS5+nzVnPBJsJt8TIT6w4dm4zWafTg/Vm7uc 0urhkfBeGf8W/M4erJpdI/vIO9TEVdW2/La79+zE9btyF31CrDAYrVcL1qLn C+IdtPklpwywq85O4dJEGT2gF2B4QX6q0yAD3VPWNZf/POcUCbv7A33uB4U+ /WJ2OLF/ZXrd6/LuKx8V3GIniycbDI0j3sLV5/bv2o8K5XnrOp0/Fy5Q+Mjd bzT2OO7ls0v7m96zsWvVjfoq15eLKhEvysUuBl1DzcSzY46PTN+nJFqsAlTN DKsu4u3dmTxCBjXWtjt+KsHf2nvqOZNep7umZfIOcoEAoJSt72yHBQugoWgQ 6fDKSRwlUyQUZe+p91yy+9qB0TlJe7aQqzvTaPPxG9I0wCySsR8GY49rrTr2 3OyKsyvtYPvI8OwTmdd47B1sSPx5wV8QXxCvZtC7Kf3aqUdclCMKaAaGFxSi Gg0y0D1lXXM5fl1xvhr/wpqz3oKV7lKnZgpICgkqt8Um1M6mIW9WA7RMEsVO DQaTzV+4FUTk8U+3l5/l/4ygW6rXeVYKtIl4UU5lWvjYmh4tdn7mYZWa9qqZ YbVFvFQlzzgSImkLs+kdzOi2hygCAChF9zuF5FLOuzuyJJSywS47u5LrmWXU tyHpr4hT47jTxckCtYdt3xVpwVOqwtExXzUUVN9ZdrycvlYV4XbGD50F0usT psMlmJitrhUZE5sS8aQn4QJNAMMLxKg6gwx0T3nX3CgZYCZqhdgd31hd8rIl xMulXbRiW+znftsx4d+llbmTLuKJEW+7dmw88EL8w2pBoYgXY+/Z7IVG8rLa aEmvAlUzwyqLeERhJYHSC1Hy8Qbpz6bHuYpYPADoI7VNKOI8VBukrRVUHiik uXnSLTAxMN7p4lMnSmqCsLPkeEU4xGJOOJaKbc6mHcJ+myV9qZKsoBKkHd+n 1SdM+5TMgngZVy7Z89c/7FbgcrvJaGq/HKA/eROGF4hTbQYZ6J5yrrkc+0H7 0fjnROOB0wTGUoWsOBXbYrNPPQNxra++R8rRIfuzs7NOibELvdViz+WNolJC lIJOEY97MPO2djIWlWn7cGGbeo9FcapmhlUW8ZTM1k/wi6c/o6G2iq11AQDF QkTm67dsUdpaUWG/IidpdY9lWOA0EW9+e8XVZzZJ6IhRCCL/QpcpfhlsB+0d 5FJv7nEuFVFqO+0NO9jv+SXXhzb9thZD3ZhPckG89MAApNOKUprTXlZgeIEk qswgA91TzjU3mqbLMX1i6wK5dS1wTVlUaoudr/FZflKdeUVr4hUmUUihwgc3 tIp4RPPxBOYuR7Dq4pyqZobVFfEUztYXSAXl5rcwAIBKs/+j44SwbNcctd/V zDk/+zx47V+slnpT80nbjXuigU3pawWFG3zybFrOgyAGVnNq/F/7GhQ4b2If uPsOxK854NF9Bhcbvj01cIybRabJarsezNu7rTBpS17t8GyOHBI+qUemA0/s d+Spf9WJdkQ8GF4gkSozyED3lG/N5SD0rqP2YGFTS9QnMRhediwr0ZOhYlts Qjxsd0jpc0aELLbY/CUUP0jkL1e6hAK9Ih5ZTCOO8aRrrcpkvKqZYVVFPOWz 9aNpJQgSoJ4PALSRCHrX2i90f8lxIhm4xrzqXPm18OfT1grmlHudtoCQNXdv oqkF0WdWnIxFkOmcXCh9jSCqzUiYW8CT7lTn2iywIZeVkenAE5USlarPo2u0 IuLB8ALpwCADkI34msuR0uWYg7b5gqocaZYNTJdTTu3a/Bet1BY7lXLLHBoP SLC8RPuPA2/7SggOT4iBFT+folnEi0Y3Z4bryYxP4+Gxuc2qOqOpmhlWU8RT IVs/KpTvTn80ilwWAKAkqbK34meUFJFhtUQNo1CLLIE0h6a8kO6onE192iJ4 qMf5ozLnTCkDXnfC8aNm3otKQjbLy5k5KOzE5S3iRBe/QwOeam1hJgOtiHgw vEAOMMgAZCK65kbTdTnRgnjhwHhr4nIH+twPlFhwK7fFTjmH0vqGpE4MjcV3 RuNIioFyzqNVgW4RL7rhG7WkXb/azmiqZobVFPEys/UZqytUqoHJ7n9d8aha AEAW8QZS3Kp9ZPKOhjZY6aWWRGOkd1edPSlnJ2/aRQUh7bAcf4M8kJWWMSEJ IoFLUyJDBclIb8muMs0XxJO3iL9YnHwpfj39lk1TFI2IeDC8QBYwyABkIrrm RtPr74mlx6Y6DRmYlgmFWiNVboudMtZSvA52y//eYamGvfCVVlxWs6QJVx3K RTx2y/f2gbQvqGmZvFNFKbVVM8MqiniZ2fpKhL/GfsI99WnTVlTvIQCAmpD2 rbQKGGWHz0xkTJaO3qGJawHRir2kH0WnLSJ7osnyNwg/Vsnlj7wfLaX7VY6M DUXWYh2XW4+M+qSWpmdDn580C1JP05D3ESQ8CWhCxIPhBXKBQQYgA7E1N0oK SqJNFvaees8lNq7NI7Pryiy4ldxiJ+dHgnTArrpPCmGNdW2Tt0uxL+wjd58w 4spX8aVcxItGN72DGWpsaYnMGqNqZlg9ES8rW790l3Jv0/fO4fQ5M1qvrkSq 5rUEQBsQkcY1Z72bmjrd590YY49rTYpdScW90GuLiJLC0vdoO+vz/2o1J2o+ KNoIjLgfU5dTsRA/3cL+7OysI53qjMWaVz8MMnz4yLKrT3Cqa5vHbj7DA5CE JkQ8GF4gGxhkANIQW3M5yC18p3O1wM9m+/ZkW53iC25Ft9iJFrHiecR7z2Yv NAqX6vzznSL7jAgQBTwVF2RkQ72Il/kOG6rrtKtqZlg1ES8rW790lzJlCZP2 pcdxr+QyngAAZSGOCJWI8C8z7FZgooU5POBeEVubt1ecvfFxmk86l2i1RanT VWnFWCJPFj57s5kxmkyJolMmm5+YC3b7xYtSds07vtGEITf2uas7Dozdi+yJ TECmN5KxWAuebUNra4OkxNjI/emR47z8Uds88lUI6odUtCDiwfCCIoBBBlVE 6Wsud5Edv+1g8t+N/e58scPsRmCig19wGbN1Krit1K+rslvsZD1AY9P4D/kL gbGRNfcAX/+fab4wHSoxATZZqFBiNw1VoV7Eiz73jR5J/47CD0tfVM0Mqybi KZ2tzz6eG2tl0qbLMuRZpdWZBqB6IY4INVaXKY7gdxlfnvjul/wWZi+88HE8 Vo05fn6G5tYA7PbCh23Cnbbbg7sF7nR3I/j3S71HGKZl4NPAk+An8X6RZPPH /R8dJ0ylOVFEw1zNxQuVSGRzNfCNy24b7O2wmFILGtNw4tTIB86Z4Ea2qpZZ aDpjseYL4h14e+6nv5401xU86GcjzwKfDrTw33qw0/YNZQreXoSu+8lAAyIe DC8oiio2yED3KL/mRtML4sWobbHdytGbkt28d/U0/9NizNaPF0qKQ8u8xQpv sdk1z2n+BurPeXN0/eA+EQl9NdLMHQQroeCR0df1ve61Uq9WKvSLeMk7JKie qqdVM8NqiXjKZuuzzxfsr5vTZuqQ1X47DO+tWoiEHz8MxXgcpnT7BFKQR4Si wfbyYLcfLc78+6WR37c1JDMZzJbuP4xzrlhRJUXzncpGHszYXjYzR3ov/T3H lSNPgzdsnfxGkmk89UngSdGvZblGtBOavtDM3W+e+CvO0f3SPthuMtQ09l7y LvMOaaqYSTJKfGfNfabecMzml1p+LRekA9w+uVgNgTRsZCPo/eRCd2PiKTMN ra8Pjtom7M7PnPaJd4eFF4AxtZ6d8qcpGESyW9y1Tlus+YJ4fOnpyPrMWDNT 2zz8t6w3h42EV+ZdNiv/7YzltP3mijIRARKCGgr9NffyXx0feq21ITUtbafe mrzmD23T5mvSL+LB8Mr5/rKNSANUoUHOCfxMPaHamhtNL4h3YOSz/zhTzxwf 8fxMrqrs9srsRA//ofq2sS9XlF3RKNhis+vfnOc0ulz6JPtidfZyLzfztZaB vwSelV7vnwx9pMFG0S/isTu+sbr0L0k7jtc3VTPDKol4SmbrR54EMsxLlrUE +iISXg187bJfHO63dlgyfojckjE4/azStwjyQ8YYK9dDit1c9l7qbazJfB2S mH47ev1HecI+L1LlPcFMfqPpaO/Inxyfe31+v9/n/dzx/kArf7hqOtY/mWun SemIdkI+e7+llvdaT487v+KGMz/rufap3TbYbYmZ2PrWgYlr/geEaU2epcb8 tEvT3824JwcsTOkHKERtE0Ndp/NnfdtyNnzva/tQazwGoKbR+s6nM3cfZ7v0 7FbIf3WkrZ5b4KbvJ/xCcq4E0gob8kttMkt6Z33e3pd8Yz9zuVyx3cr7w6dO NPBF8xo63rx8/R9K6WNs+Laj7whT3MljysnPCWNqG7u+lCO0oXLQL+LB8NI6 ItqpLoOcAH6mblF1zeUgCuJxJ2js8wXHqUamvnXwkss7F3Orbky91xf3tc5O 3Xqg+HaVji02G1mfd/Cx/Uyj9YL989l5wVBfHOxoZLixD9m/vqdQsA0R9URF gwb6Rbzo3uJkRranKj1M6aRqZlgdES8rW9/4hid3wG1hyPSfuHGhz7cHisFu P/Bf//AcZ/8LAOeKbtifHO2JWmq152dfKPBjZcN3XUPHCr4VArL0JaHxfV27 fbHAblAI2Jgc41MxuK8wWzp6+kc+cHoDqyUc11dqROx26Lb36qWR/u5WXtdh Glpf6RscuzR141bwcU6vjT/Otp9/PfZ5LkrqHacSHil50l07PPui1OtRy866 3zFgSfwczC/bPD+JnG6Hf3QPH2eYzskFYUVOVpBO2j/ypE9YatMUG+4Rc1vT kX5rdwxr//C74/arnv9cWN1UUnuKrLgHDhsMDX2uZdmXFaKtRN99c79rhZ5e mdSLeDC8dI+IZqrGIHPAz9Q1aq+50fSosOQJ2u5G8OtPRgd4zypmrHoHbR+5 ffdy5OoqAE1bbHYr5lM6x8/GDbXJ0mHtH7l0lbfTCo6djYS8ts7D5ubfT8z9 QoECoAERLxpydWeaNVO3a1Xx76GRqplhdUS8zGx9Q7tDbssrbp11vd1pJqyL 6aWRq9+vU102BxRL5FEgke2VeNzN3UMX+VP428HVUIqHGwjCpJoXs8MJB0qJ +gCxtfsbW+dBg1QkqwpCu4e8BT3UQ38jkg9Zc0b+6qANIk8Cn5xKbBQZc/cH c9LKwrBh/0RbXaJ6IVGuKm4YySYj/FJbgTonuyH3aXNxvfZSnTXEoanxKPUi Hgyv2BfrbkTKUQ0GOQo/U++UY82NpqefKxfzLANssSuORkU8bRbLLYKqmWFV RLzMbH05g4qEQ0Gf2/7HbmKdZRpffffTYguVANrZCy95SNc69rhtru9WUJVE m5Bx/kyve73Eqz27OdZca8iB2dL6m6wUGOFfpATwCLETNS2Td8psVvQ3omIg V9i6Md+O7vzGNKlKblFr4VEeGZ59kqbMCJCuCLfU1hy0zZd5F8E+nR6qZ5iW 9+c3ZXor7MOZ84SCZ2obGHdO+4OrXBEqNhJ+tLww6xr/vSX1iWQxxopDu4gH wyvyxbobkZLo3iDDz9Q95Vlzo+kxzxXpFIAtduXRqIiXJUjrlaqZYTVEvKxs /brWYburEJ/ax20224X05kGMydI9NO5UOihXx7xY8lyx0cIVz5KUnIydkPed ttRDr20e+mxBgSKooGKQtrNUa7b7o7PnEGEcuS2/N7C8nnK897c3HgT9nk8u WIncGKZ+aPppYZshxE4YT7rWyvuy6W9ERbLq6k6+JpSqIsWTHmzGtH0QkNuW jl12dpmM/Z7HmTU3GLIvML/UKtzCQALhhclOxtA8Mrsuc2HeXnH1x7NomZZ+ +83V3NX59rdXbowk9Ba+ZwcN0C7iwfAWQn8jUhhdG2T4mbqnXGsuRypslSn/ CVoUW2wq0IKIl/0tEPHU/hY9iHhZ2fpFwdVq6h2y2V1fw8JIJNfrVEHE32T2 +aLzDBF0gY7DOoBsul3b7viphOcpaAU8sS3/FW/Bg8K98PL0eHdim8a84lgq 4FsJp67Gw7bvytvjSn8jKprH3sGGxHuir1q7GemiRRZ221l2vGyofWNyoivd rJKSHb/UFlkMp3jYR+4+o8HY41qT99tmd+9NdfGeAWM586lIX1E2suYeqOdn UaHybiVDuYgHw1sA/Y1IcfRrkOFn6p7yrblRrifT7Pna3P9UHrDFpgGIeHRT NTOsgoiXma1v7Pc8lXw74ceh1eAPs277he6m1IEBF/fuV6qnnm5h7984/RuJ tYZUh/nN6Rv3Cy4MOyHPucbUH9S22G6hYYn2IWsCl1Lhk91e+LCNf5uZ5jdd weeSXo2UL1dwV1WZ2An9jagUwn6bJfGeVMQTVomtJedJomXD4dMemVpXAn5p rm9oyEjs6XGuJh8xt9QyXc6VsprNraD9d4zhmM3/XN7fRe45rfX8y39hWlKd ot0110l+q1KRokPZUC7iwfDm/dbKjIjd3ngYyoTeSmt6NcjU+pmxzU72+/EE cop8yrnmRtMsbdlP0HiwxaYBLYh4O77ROkMGEPGUhIIZVl7Ey8zWL/ZQmN0K +ex9ZNq+5Q2H/5eqeP30T8qvjj/ctg8XaPVugRzIvcDh4VnJzkUGu0FHF+eX Sd7yJ4gsu/r4iIL6t2Y3c/okFYqd0N+ISoI/9U4senppmLUXDnxAmjX54WoE uaptpFXg4ZbauqP2u2X1vLfmRg8w8pXDyCPPECfhNZ7zSH/5N72DNYo6JyVB uYgHw5uHSo0oZ2YEvTsoXRpkmv1MMn85CZ22hWbKu+ZG0wviVaQFDLbYVKAF EY+Cim0Vg7oZ3guvfOe55nI5+dR2Lrfd2t3d1fHqJ4u/lmREFBfxsrL12ycX i3bZ2EjoxlAjYa+Y48M3fi4iThpQBbt5y9ZCnHYxJ8YDdNQ9qla4TlXXP7IN vtbawK/pTENr98Co3e1beibT4CuSlbP31HuO2/LXn3GvyQ7CYR/dOM0l4uUJ J2AfeYeayh4Nor8RlQiZ/VdTbiWKQ4Uldfv2ZFsdsfbJD1cjydX3qmn8h18T /84vta3jgXIKXHtPPWdqDAf63A/kzdHWd7bDRgPTMRHYkPOHQpdAiHhSgOHN SeVGpDERr+IGOaq4Tabbz4SIpwTlXXM5UgXxKvMzwRabDjQq4lXKtpcd6mY4 q+e1QMmdcZQW8bKy9UstaLO36XsnLXSYOX5+5iElZ2mgKISELOKlH/CI1I4G 6sFuLnkuWhtrTc29o1dcXt+83++fn/1iavx0K1cC92Cn7ZuQjBQP0jUt1qrs /+g4UWcwNA15HxX1XsQT8XKWxN9fcpxgmPrhmbJ68/obUamQe8aKbG0VX1Iz zRpzwrFUyuqcwz0gW7Xub86+daDpvfmtMppO9oG774Ch5qw3d2BSPoS319xp X5C5OxCiyyDiSQGGNxcVHFHct6bzbcmm4gY5qrRN1pSfqbG3hRLKvOZyENpA mU/QBLDFpgSNingH+z2/KP49NELdDLOR8BO+ZsJS4OpQosKDnL7SeVBaxCsl Wz8PQtURkvohzyOsdFqFfTo9VE8uvJmrJCgb7PbPnpHjjOmlkavfr2cqdcke kcbGoRuSdbzS95Lsr4GJphLTIvikv1xqw3O/7ZiB+Z09WM6MLv2NqHQqvmdU eEnNMmumLmdJqTZZB+4Gw4G3feWU7LJviW9pIbtdLB+GV1Qi23bQ3gERTxow vNlUdEQak2UqbpCjytpkjfmZGntbqKAiay67+b29p8nY0DV89U4l2qNgi00J GhDxcgWDlxK3qSnonWF2xzdWF/9wCZVPMu9BIT9ZqWz9NPY3vWdr0mYpK8IZ aIZkufIETROB0lLCQXGw4dt26yGm+bx7KV+lZ6Hmj0FOJAO5l8woCCyR+M69 NJeb32EZWmz+NL2BXXP1FNNYs0T0N6LSIVu8VTbJTJEl9dcV56vpTYU67MFS slLS5oeHOTA6V1H3S1iI5Ra9F/IZj475ioiCESLxFGls8WLJc8VWEu8Mdwu7 p8Pdw++UdqkrnqUXJY8oAxjebCo6Io3JMvQY5KgSNllrfqbG3hYaqIY1Nwts sWmBfhEv+7Ea5KdRaBZ6Z1hwS4TfmQKdcZQV8RTN1idYd/dmdF09aPPvULwi g3zs37UfzXzrpXHgd8571WF9ykJk1TNkEa/1vTNvO8j99iSXsif3ksV5pC8C 48eYlolASUFHQgxGRnWCF4uTL1XiRF5/I1IAco2t6J5RiSV1985kS7pZK7XS BXFXcSr+lPkYAGO/W9YZPX/KX6x6w9d5KzVdiCdngbLKocILD8ObTUVHpDVZ hhqDHFXAJmvOz9Ta21J5qmLNzQRbbGqgX8QjexXFYayuUJU8VWpnmF12diXu TInOOIqKeIpn62feJUGJZy6gMrAhlzVjsZAKRDwF2brn6DEaX7l857nY7zOx N5T6Wy59L6kQL2aHa9NzDTZnhusZpt0e3NXmMqavEdGyZ1RgSY1n7RGUfJDN rris5rRLVjySRIgBkLdRYncXL7cYjgzPPinmG3/9YbzJqIzbyd6/cfo3Ra48 isP85vSN+0o/Sxhe1ShuRFqTZWgxyFEFbLL2/EytvS2VpjrW3EywxaYH+kW8 zMzr0vPNtQS1M5zqjKNAQbyowiKeCtn6AjmO1SipkwNkkRV9yrzmWHgQksLj MJwbhWB37011GRv6XMviU5r66Ulcqsi9ZGXLL/BVsg+NB+JWUsivqe9xSYso pBE9jSjNHa3knlGBJTX7BL/kSheb3sE0Q1l3wvFjhY8w+MP6ulGfnNTWcGC8 tditUM4IqAqioZp4MLzKUtSINCbLUGOQo6XbZA36mRp7WypOday5mWCLTQ/U i3iZmdcxM/iqc6VqkqQpnWEyZ1+ZQF8lRTxVsvV5chwTwMJokazo0yOTi6Ur 0UAWQoJb19Q9KXERScdGqluvRJNEZdhanGw3MKfc6/wbJrQprH9rVsMVIfQ0 IhrqqEcVWlKzmiqWWukiqziP3CRWFdhbnDxiqOt0/ixjTeeaApiK3QoJtcjo iQfQkIgHw6ssRY1IY7IMJQY5qoRN1qCfqbG3peJUxZqbCbbYFEG7iJfdpUWD pbNLgNIZJk4fFKpPqKCIp1a2fpQ8mIOF0TRCoXJynVToIAlIhe9VwZwYD0jp MMlu+d4+wD8pyUltpHNV2R/p3rr7FBO3QkKHDuNh23d0lSmWh55GRMmeUYkl NdtbKLXSxZPZ4SOkmaThKfOjPNjv+UXyXwjWo8i2FELnQeaEY4kW7YdyEQ+G Vz2KGpHGZBlKDHJUCZusQT9TY29LpamONTcDbLFpgnIRL7vti/TuhLqAzhkm cvaVqk+onIinWrZ+juoHhtSpKNASGc4Vk8pQAeVBVp159pF3SPjlSU+GIh9x hd0A3rgdGfU9j3tozCuOpdLbXFYSHY2I3DOaul2rlbkLRZbUkKs7fXWSmXOa dVNPPQNkaovxpGutiGajCsO/e7KeFN+Woshi45uB8RMMXTmYlIt4MLwqUsyI NCbL0GGQo4rYZA36mRp7WypNday56WCLTRV0i3hZbV+Ytg8XtqlxpsoAnTOc ytlXrFCMciKeatn68UZg6QZGaq/MquLFkueKjRaueJZeZN1hhnNVUV+xKtlf cpxgJKaoCKXz+Ad1+D2/1AZ/5COWFbejPPzBJfeOsY/cfUY9BJPraER8hlrF 7YAiS2rmhqK+171Wwj0JFbdSCyklIQG8qyBnlri5La6kFbu98GEbI8vslAEN iXgwvApTzIg0JsvQYZCjithkDfqZGntbKk11rLnpYItNFTSLeEK4OEmVheFF 6ZxhdsdvOxj/fIvNLyUbThzFRDz1svW3vrMdzoj0raYeK9LJUdagkuTKyMhw rkpceYFc+EQViVvj3R+dPYe4p8S0js09lvxzo+ZAPyp4erF7uMd7aIcGPA81 bzT0MyLSFAghLuVHoSU1c0NxbDyQfX4hmYwDvvpz3pJK/SgGXxNPum8v1JYv ptg4u3nL1lJrMBw+7aFK+6FcxIPhVZMiRqQxWYYGgxxVyCZr0M/U2NtSaapj zU0DW2y6oFjEi9xzWsmKkYy5z7USKaa5WGTjns/9kW2wt8NiNpgsnf1j9uuB 9dSl9iLFXLYs0DjDWZUi2K3Q7a8ctqHXWxsYQ01D62tD41dngk9lvU9KiXiq ZetnHJEUYWO3VzyjbabaRuuH889E/ordfuD/8q/Xvry9nudxsM8Wv7r2H47J /2OzXRjstXZ3/9ZiYqRli7CR0Lfj1ibG1P4H9z1VArXZ+zdO/4Yx0AHzm9M3 7mdNYkbBYfWyfrT70GNmc9k/ffXSSL+1w8L9Nk2Wjt4hm/0L/8pmqe4dn6hS Ozwr7u5E7k+PHOfeJeb4yPR9Od9LNoardBoL5+kxh/6Pw675yuoJ9DOiXzz9 ib1akc0LSncwFFpSMzcUpWzEIo88Q4RzIK2FdHkQImSY39mDUlZ2Ppe2iGLj kWVXX0MJbqd6UC7iwfCqSREj0pgsQ4NBjipkk8vmZyqHxt6WSlMlay4BxVvs 6oRaES/jfTYYzP2uFfn2PPKLf+psa2yra6hvHbjonJ7zz8+4Lw+2xrbVfVML 4d3w4r8PtdbHdojnZ6g8pKNwhtMqRXy28mjeMdDCMI0d5yZdXn56Jwcssflm jvTZ/yufHJHjbpQR8dTK1meffTvSmGFg6q3Oe9J/M0L6A4/o8eJT32iL8BV5 Tu6E+sZZMH0SfsVE3VTFOx1rhowOUGoFDGjzocd84OD05EAzZzbNzb2jV1zT Pv+8z+u6MtzJ//IPdto8S+ES1lZuG05kWrGby19/Mtrf3drAb/6Yhtbu/uGL dqdrytbNx+CZX7s8/4vc9WkvMH4oaQakCIbqwVfrrbFYmijNj5CPbkbE/uRo T1iCIqqvKOJgKLWkvpgdJtvaldImL+1MnDH3OJektJAuD/HpYuqHpp+K3hTX l5aRXRAveXZgPulcou3tplzEg+FVkyJGVIwso+ThozxoMMhRpWyyWn6miue5 Col47Hbottc5PsTrqLzmOWj76Lr/gd6qYVXJmpuC3i12tUKniMdGVlx9ZnLD enjAvSLz/mLG6uZEfA/YMzG3Rvz5Xvjef/TX1zSe++Bip4kKZyMfFM5wqlKE sfH1gdcba83cln6T+Bn/uj7zL828B9x5ORCW9vtWSMRTJ1ufDXn/YEl/DHJt LGn6xI4XUzNc1+n8OU9U1vbGw1Ao9GD5+497k/HXUvrXpy7OHLTNa7vKcwmw IZc19fqrJOJp8aHvhOY+7G3kIl1MbeevBjJ62++Evn23zci//9aPF3LoeOx2 8IvLVwMbBf1j3rNNNYvk8+MYc8fZK+6ZWc9fXZ9e7G82p35pLe/MPCrqPV13 9yYfcWX16pQZbx0PUH8WLwXdjIhcYeWFDSnnYCi1pBIbT56iN2LhhcnOlHUs 7vxURZJH9qJOS7yrtSzvjg3fdQ0d44dv+YNXkbZdykK7iAfDqyJFjEi+LKPo 4aNMaDDIUcVssjp+pprnuaWLeJFHAZfNyvmQ9a0D70/dmJ2fn3Hbhzu4/WZ9 28i1oMTzXy700eucfHuwt5tXAiXANLQN/nswr1C4vx36x3X7WH+nRWa9n5qG tnOunKc51bLmJqF2i1210CjiJUqRJKlrm/BL1IKS14iEvhpp5i9ift2+8Dzr r/eees8RcWhFpXULe+rHYRUdKepmmKwUwc1b87A7R0wO33qS/yGeGA9Iqiah jIinRrY++3zB/nrGEsI0X5gOyRIWCNNXN+bbKXBT5OGdhAILxEmQhK0KeXGJ bQV0Crvs7Er9tEpsKZUHrT301KueT6OLsXXP0cP/xpj60zeyCmjyQ253FCxj wVeuJrTH/ZW//r4xrb0Od/WGE6fOvModdhsOWe23Zdp/Hi4iJOEW5SqMWD6S u9oiW2TSh25GRAgOTK97XeqfKehgKLikZvSaT+nkckh0c0hYDAqFLPbp9FA9 f4siWfabfluLHDdgf3tl2tYpPA0ZR5DlhXoRD4ZXPYoYkWxZRunDR1lU3iBH lbTJKvmZ6p3nliTisZH1/7L3HeFCFJvf/GzhCXGJ/a3gv/VwOl7Mt5zKr7MJ l3mxevOjwda0RDHJ5Llz9nnw2lttpqLL/OQTYKtlzY1D7xa7aqFNxIsZgVuX rYeIK9Y2j3wVkhmnza5/c16w5wWKEv/6w3hT8m2UW7l0Lx6VzVHTaL2Yfkaj HNTNMFEpopBUvrvq7BE+VDPgEc95UUjEUz5bP2b5XW82Zxj+3E5CQQjTJ3Zy QTTnEmpxFL4wX+WbR0InOPahZyDx6A+87aOo4175iTxy96dWIzWcfG09dPap fyLubho7/3ynwGmpkKHGcczmTz+m35m3HawVaeXG58tkao+R8OPQ8qI/xveL yw8SJyM7Ic+5Rt6My4/EjqZX16nohjdeOEWxXt6VRy8jIlL/ZDQwVdTBUHJJ ZddcPSmj1jDofSxtQMQV0g74qBWytldc/Ylst/wZbfFHIK08fuTJgiu5yyvG 7SwX1It4MLzqUcSIZMsyqh0+SoACgxxV1Car7Gcqfp5bvIiX0lHzKDBbQfvv ePNa125fzFeZmQiELoLa5vPfrGc/iFwykSyY5rGZ9dwTUjVrLge9W+zqhSoR by8cdA01kxFi9W1j07JdqWQ3w9yxIkme+0YTW2GZmexs6POT5vTXrvHCrFjt iGKgbYbJ4OGCQ07duLS5VULES18uDSVn60fW5iZ6Mg8ILGeci7LNC2H6xE4u yBnudK6KfFPs99uXeBHFz4CILAlj0/gPv8ochd5Iq0FRXAnlQmjqoW8tOU/G 78DY6xSJ5E85+cY+N2Fg2V8DE02iaT5cVR/JqTdJBdJ82h2S24aFdMUrWlM6 vvNS/h2rGDoZEZmXJNn9VtbBUHhJTWa3cUg8QUvdS/i2PXXAR7OQFZuOFfdA Mq+Hz/3PKri0H7Qf5f5VzLllt0L+qyNt9doYuAZEPBhe1ShiRHJlGdUOH6V8 d+UNclRpm6ymn6n8eW6xIl5KR82fCppyiXP3ZGEjoemxlB2ubx285PLe4k51 Q6HV4A+zXHHD1L9aHT+EMsidFpdwbpmm7gt29+wPwVXyb1b8k50xt3vSv5J5 tRRPwoWWg6pZcyneYlcxpfkDfJHVNMR3oLlhw/e8l042ksIY0zLgvCNfkU5m e4n1LyMNtUj+VwYZLYcECh0uFA9tM0xUiiisAhHqoyQvTgkRj+9DR1BCtv7u s4W/jXUeNKTBmLs/mCsmxJdMTxA7uSBmWMJBJHHkLR5LnzwIi137pGtNlc60 mmLv2eyFxsTL0jjy7TMlVw4NPXQymF+KHSOGZux3p8rmbfhGLYaWy4uFClkI Z8HSXdnk2XERsjN57qxQsk9RxI2bblK69DMiYlsnqaBQVHkHQ+kllX1043R9 MiFNYgtX/g/Dtx18JhQP5bsJDjYcuNxJ7gAYU+vpCddcMCRs5RJSUt7KWvvb j4O+tI0h92nr5VvKlOhXC/pFPBhetShmRDJlGdUOH6VAgUGOKm6T1fMzVTjP LU7Ei/fyNoj0VN3xjdYJN5BDoSXCKRlzp+1Grs6/pOTFtNuD4jXT9sKBD2LO LdN8/vOcrYTZB+6+AyWKUVWz5lK7xa5mSvEH9jZn/3gg/RmIRV/nuIHwauBL +1BrWq46Y2p7y5WWUC+VVLGU2AvW48oTV82TikOWEbbNE/bbLIZslHcVqJth Itb98PBsgZ/v/qb3bKJUg6Som5JFPDayctWaJngWlUMR2eRma7A9s/Ap0zLg mC/WtyfSE0TOK8laHIVnmIfLXow/VtFYeuKnoZdObaXDPp4ba43PINNum5dy hsZG1v1XJ654VwuvNdp56LuL9va6xK2ekRI3S5z/pm6Y/y5zl7PweQh/dn/Q 5pdsxNhVZ6fwVVJKvmRAHILUDHplVUxQDkHz1FFKl25GRHZClLZ8K+5gqLCk RtZnxpL5KSKp8YmLE7XgYhzqnrhJ925CgI08+4c9rTZI/Lfe0Pb74Yu2wVbe rHXYF+MBGvvbG49Cq8GAz/u5408jvUczV3nzy7aZB3TqYgT0i3gwvCpR1Ijk yTLqHT5KgAKDHFXDJqvlZ6pwiF+MiLcbcp82xwdXUFhLiZ5M5tEKEU6ZvyBz DHY3aG9npL2fMbZvT7bVFSqwJliqUiXoalhzad5iVzOS/YF4IU2+lubi937f tGtysDVHlUhT24hzxr+4nD8yNcTVPpr3ef/mmHz7TEdj5iVM7UNTt0Lbxa26 hJkyHOhzPyjwQuTch0qDPP4gKc2n0sAMEyGIIkmyZLCipJZMMkW8SPhxfLJW g7f987M3HP9izayNb2wc/Iuv8DwlZ8s/53U77bY3OhoyC+zzDZWu+kMl1I8j 0hMYq6tgxVIiD4U55V4XWQgS6UIGCUrpZmD8RPxNqD/nLboNuv6I3J8eOR6f GdFSDFzjrbc7zYyB+e3kQkH9TDMPnSz4zBwYnZOk7saTegzEYT3fMlJUA+S9 dHnbutR3yTew5KagCA1QGYTq+sqUDKIDvYxIdqtuxR0MdZbUtBJAjLn7T7Or eeMM2O0Ht6bOpjwN88s278+F645TBbv9s9f2cin1jgQ7Zhlw+Nc1EQOgBREP hlcVihqRPFlGtcNHKVTeIEfVsslq+JlqHOIX0cs4dWWRR0BW8EvvWkKEUzaO ePNUn4uzf9d+VHhLRKN8+fRPY4/jXr7hxmVYBRqO6G3N1dQWu6qR7A9kF2dT GMbUfNL22dzSRglZfqmK67HrvepcKRAHLd1Q54B99u1IozFrCKV5CxqYYeLc RyQBmQy7lVCrQZ6It785+1ZxjYvkzVdD17nL10u3LUR6gujJBTHD4geR0puI sbv3prriH81f+LdqISszMC0Dn8xm/Ua4xKu5z2zCKsZY3nD4fyns4mjmoad1 T5PcsJhwxuLtB7nCL7XiEZ7cuafZ6lqR8QamRLwi6smQ1ZmKaxxWMvF62hTv uOWikxGRm1Bpb77yDoZqSyq7uXR9LNWMj2myvuu4cfPOcujh4/BuJPwk5lgv 3Pxiavw0cVBY3zr0bxoRsjLYWQ9cs1mbiiqHzphaz07dyqynRzFaEPFgeNWg uBHJkmVUO3yUAA0GOaqiTVbaz1TlEF+2iEe0ZxWri5jKqjCkVXcnekM0DXnz FzWMs+rqjrusYr2v2cjjn24vP8v/GUGylhRnIo5+1lyNbbGrm8qKeDUNrd39 w+/bXV7/j+slO1Hslu/tVPKpyHaYML/FpMHuhYPXbX1COoa5ue+Db6YnjpZY wpf+GZaegJzWh1qStilHxNt77Dmjjt5ptnT08NM1fWvxfsFaptIhVRexNnmp GZZyEEmcmRbOT9wNOroE38HY+Ie/52jeBDK2gUxjx5kLtknHZ585Jm3D/Z0W U/x/ftXm8kuIYtXMQ0/rNiW9MAhhrHg/ij9IFe89IbcgHv83KcevmE5YhKMr dkysDvEbEHM3NYReRkRUZZfUqlsFB0PNJZXbEoZuTQ1l5a1kEzN35+zenCWD NATXn+L65XNdDRK1vNioByeuza8otNCXDU2IeDC8ylPkiOTIMqodPkqBAoMc VdsmK+hnqnOIL1fES8XFiSbOszu+sbrEfBHl1J77bcfi8yGpzJ10EU+MuAis YLCuPtZcbW2xqxxt+APSIJYA0e0wEYdcUiRtZCssWFouXKSifbjUhwhHF+kb xYZc1qQjLa1rlRKNLeiEUF3EYj7ltZoiXIhCqye7EZjoEJ4G0/ZBQLxWQxXD bj9e/NZ56a3+7lZiJ2i2dJ4auXTVG1iVvOho5aGTzeDkVKlNE/Hmt1dcfWaT hI4YfDaQvKqepONX1CIlw8lUg0S4grzeSTSjlxGlXgyJWeTKOxiqLqkJYtuK 21+77LbB3g4LmXUac6d7B238+d5j7YShSYDdXg+6Rw4bcmGydFj7hy/aXV9z 1rzSd1ocGnHaYXgVptgRyZBl1Dt8lAAFBjlaHpusjJ+pziG+TBGP0OpFuwmn dYRM6m/sU89A3E7U90jJ0WB/dnbWZVykKNhfAxNNhmJy8cSoujUXVA6N+AOS WHP3JiNARewJYXkkJXuKwls+/QlQJMR+X6RvFFnuVTQmP45uRTzytE7E+5LZ aip1ZlogP3EnNH0hXnC18ZwHfX/Kg2YeOtmjR06VWkLEqzk1/q99DUzbhwui XgnvpctsaEXk7Mju6ZN1BXnqhxIkspVFS9ZoBr2MiPgpHbP5C25X4yjuYKi7 pFYxhFGNVyyPbG9r3b9NohWnHYZXUYoekQxZRrXDRwlQYJCjWrLJKh3iyxPx CF1OvJswEbqZegqEbmzsdz+S8KWpFrcldr5OiMAVK9oJQOloxR+QQFpsc+Ht sLyNswSENLFisr20w4vAeDzm2ZDZWCgDwhMwmMS6VcbRq4hHeCZZ/ZgyIQL+ xZcVKbH0e+GFj61m/k0XLaULlEM7D510g+XUps7I/Wc6JxfEf7b8yXWyEYY0 iJJ9RbezZ1ecXXFzL3pYrDDsI3cf98Bkjppi9DIiQmFoubwonsKjhoOh7pJa vbAP3H3xNDsFKpZTh2acdhheBSl+RNJlGdUOHyVAg0GOasgmq3WIL0/Ek5NS TRRSJp4CMY3SQkwJPbbF5i8hwjcR+Vm59tkAlI5m/AFxyH2lSHEnYuOcZqjZ yPrdW4uFW+PkhD+PUD4olyqIoB2iJGkOyGKzkhuh6lTEI1UXMT+Wa2yfs9XU zuPFfyxm1j4l1r7cEUopMYdpftMVhIJXNjT00FPVReS1jUgT8Q71OH+U0CxH OLmW9wMntoGHBjwPi3yH2YeegUPCVWoGPE/L90tIHtaLpSZpBr2MaPfOZEuN vP2X8g6Guktq9cJ1z4lPlli9dy2iHacdhlcxShiRZFlGtcNHCVBhkKPascmq HeLLEvFkpFQncleFT3c547Jjqo216CsnQPTRkFQ4MS8JMVBOBgoA1KEdf0AU YjssciiQNw6Z2yOnd76WCH8eoUxxV2pJrW4FCxGQfW3qJJTJiqNTEY88rRM5 ryQ8qPStB/e61mUuNMQ7nCtCaSfkfYdvk8SYuz+YQxZtWdHQQydvVc4SQNQ7 klyihy+IJ+8H/mJx8qX4txx+z1+8w8Zu+d+Lj9N40rVWQgN0eWz4RnmbqUzz PhrQx4iI90H6/kt5B0PdJbVaIdPcFKxYTg+JjD8N/AZheJWihBFJlWXUO3wU hRKDHNWOTVbtEF+GiEfqcqKhtuHAeGvC1SQ63aSUWGktYlOpGcbDtu9KyHxL ioFyMlAAoA4diXhkVEnBMxSi3WF6Tn3OjbMUNr2DNQoVd6WX5KtScHVjV1w9 8cWNaXl/flOqv6FPEY8M+BfxvvKerPE6T2bcOCH+ZKVXRH6Zv/waX031YKdt ekW8lSpQFC09dLLUsKwlQKqxTRHX/WQEErChz08K58iGpiHvo5LiOFJ2qYwu d/JN0M35jj5GxD7yDgmbj5qWyTuSXwbFHQx1l9RqhYi60WlyBBteuum+5r65 FKY/vB6GVxFKGZFUWUa1w0dRaDHIUc3YZPUO8WWIeEQGtGhK9dZ3tsPGxIxN BJIHsikRT8rWT7lDgdgTtJol3TkAVKMnEY/oVVTApBN1PjMOavnw2tbxgFwR KbYTP1NjsIz6Noq9c03A7vhtQvmD/HVmCBvLtNvmZeRP6FLEI1wdsdrO27cn 2+rin0xLDeCreWTGjZPBBmQlxr3w8vR4N5fAwjSenJxdQQOk8qOth04UGJGe TruzPv+v8TQNg9RsmkQrN8nJC5FlV5+wGa9tHrv5rNQ3mTBNJQX1yfnKxJug m8Jc+hgRu+bqEfYT5tPukPSNgOIOhrpLapVCprmhYnnlgeFVgJJGJFGWUe3w URRqDHJUKzZZxUN86SJeSgcTtbR7T73nEoGLzSOzZIPcpBIrYevHrrpPCj5h XdvkbcnFX3JdKV5hsuh2aQBQgp5EPCK4N2/HbaLOZ+ZSxYfXNk0EfpX5ixYO ZYr4Q82RdI/zJNCxYf9EXJQ4ZHUsyrKxehTxSFcnRo9zNY9/wj6dt7WnWs3H G+oJ//TA3XfwwOhcety4kJkorOGC+MNGNoLTl042codvTdaLXy6JdqECqqC1 h546UyZyHAoQebLw2ZvNjNFkShQpTj+xZrdfvIhkX0ZQIBtaWxskbeUi96dH jvOTU9s88lUoxwXlkzrur+/JWwhaQZJvgjLN+yhAHyN67rcJpcvlhgap4GCo uaRWJak9uAEVyykBhrdUShuRNFlGtcNHUWgyyFFN2GQ1D/Gli3hcAlou9zWb 1AuTfSCbVGJFE3L3ns1eaOQ/auz8852SNjjEBEpMJAGAUvQk4pFCfc6AOsGe 1x3v7mzMXoC4wqr18gP+9zZ97xwuk3NScbaC9t/xRRZeda78mvmPkVXPkCW+ tNlvy0300KOIR6YnGPJW5mefL9hfNzPN3a/8xpC1rOwvOU4wx2z+9AxEoiKZ 8dRn/x2cc02cbjUxnJJjc/lDZTntBrnR3ENntxc+bOOdVqbdHizUFW53I/j3 S71HGKZl4NPAk+AnJ5gsx3j/R8cJU64CxbwCeeDtuZ/+etJcVzCyjo08C3w6 0MJf+2Cn7RtlFDzhyitXrYLAWo6YkMSbkNNaahIdjIh8B97xyU2DUt7BUHFJ rUrIykv66UyqcWB4S6S0EUmSZdQ7fCwMbQY5qgWbrOYhvlQRL+24xGDsdz/K 8/lUJCRjtk4FM4XFpBJrbBr/If/LzUbW3AP1Qom/C9OlVvlOllyQ2E0DAGrR l4iX+qUz5h7nErEhZbdXZidjJu6Q9fKt9a1Fe3sdP+pkOvz2iqvfXESPIeGI oVxpApVne8HeaY5Nb/2Aey21uSb23cyxIdfdIpY2HYp4ZHqCsGBkrT5s+J53 vMfMHB+Zvv9rMqcgeTgYWXEPHDb2uNYy5nPd3cukXdjU3Dv6iXfxMdJnK40m H3rytDpP2FtkczXwpX2w3WSoaey95F3e5D6R8p+TlQR21txn6g1Z8mM0rkDy gTGR9ZmxZqa2efhvwY0M95mNhFfmXTZrI6dVMpbT9puK54Nv3XMI861+gSbU ZaKQVFBQRlKP1L9X3sFQbUmtRtLMLyqW0wMMbwmUOCJJsoxqh4+FodAgR6m3 yaoe4ksV8ciCeJzr2GK7tZn9xezmvaun+UwPxmz9eCGntMiueU7z717eDTgb CX010lyb050uhlTJBV22LwdVhc5EvCgXURx0DXG/d8bcOfrp9JzfN+268sfu xhoiwJjdDk7xNZ0Yc/f4Dd9/eq6cthi5PbW8KYifSRW3+mgUNrJ+67L1kCG2 nbe+w03v/IzbPtzBTSaxwZeP/kQ8Mj3BaDl+zMQv/o2vvuv4Ynben3gta01t b7kWnvAvXlJLOdQ9ft3n++qTwWOM+aRzKfNgcy/4yUsmhmloe33w7Unn3/0/ rkO8owTNPvSdkM/eb+HMpqn19LjzK5/f75+f9Vz71G4b7LbEHNr61oGJa/4H xJcmPauYe3Zp+rsZ9+SAhcl9PM1PSzJdd2d93t7XWGMwHe0d+ZPjM5fL9ZnT /v7wqRMNfNG8ho43L1//R0ilhiy7QUcXX8jF3O9aUTEVJvEm6KfhkfZHJITN cz/NxpFvi62yqLiDodaSWoUQFT4NhaKJQPmB4S2WUkckRZZR7/CxEHQa5Cjt NlnVQ3yJIh5ZEO/AyGf/caY+9mJ4fibvgNNRJ3r4D9W3jX1ZoDofu/7N+bgn mSX0sS9WZy/3cge7tZaBvwSelW7SyRhCMhkZAC2iPxGPg91+4L9uH+3vssQ2 0SZLZ/+YPXNXyEaeLXouj7ze2sBtjE+97fCtyRz/TshzrrGk1UezRJ4GvVO2 wddaG2oMTENrd//Ipave26FSlhDdiXhkesLBfs/DyMY9n/sj22BvByeJMCZL R+/QuHMmuJEW+LS7Efz6k9H+zthnTM3dwx/fXH1RbS+XltH2Q2e3Q7e9Vy+N 9He38nJa7Kf9St/g2KWpG7eCuf1DLonDaz+fsKLvOG89yPU5YVrSuoBx3/W1 y35xpN/aHcPaP/zuuP2q5z8XVjdVXofYyIqrj/fn60/fKK3lbQGSRVd00/BI 8yNiN2/ZWvjT/JL7CSrvYKiwpFYf6cEhhbpLgvIDw1scJY9Igiyj3uFjAag2 yFF6bbK657kSRTyiIB6XYcE+X3CcamTqWwcvubxz/vnZG1Pv9cUPhc9O5XYL SdjI+ryDj3JkGq0X7J/zb533c8fFwY5GhrvIkP3rewqFPqYaEBtk128EgDb0 KeKpz1448EEbkz9CGMhEdyLec9/okcRBWR9+XNUBHnpO+FQdipKbIuveEb5I TkOfa1mdh5Qo11y4QriW0PiIkqWcjN32/9bHEgPSYZedXaZUeEqve73SdwTS geEtgpJHJC7LVOLwEQaZTiSJeGQwWzLDQngfBvgjYHPslRm0feT23duQXtOY 3Qrd9jrHz8ZeO+4WYq+dlRdOA6thxQojR/kUEq+t87C5+fcTc79AwgMaByJe cWwH7V31UPCUQ28iHlG2gib5AqgJHnpOuFSdGrqSm9jndy6/wm1bzL2OoBoG 5xdP/0Eu5mR4Ri/9MTU9oqR6YBnyrMLR0SVsyGVNZZkZj0zegXNGHTC8sil5 ROKyTPkPH2GQaUWSiEfGPKdlWAAAygtEPEAFOhPxiA1F4aZLQD/goeeET9Vp GPQ+rvSNpBO5Pz1ynEvfaH537pni2/01d2+9gTkxHtDLVlLDI2J3l5w9XB4f erzqmfSCeDIL7IOyAcMrj5JHJCrLlPvwEQaZYqSIeOxPjvZanFYDQAFJEe9w 9/A7tkwmPcsqVqAFVcnehv8vWW+a7Z3+VqN+RLxkGRODjmqzgMLgoeeET9Ux vuGR2/i7DERWPUOWQn3TSrj048CX174O6miHotERJduvYMOodyL3vWO/5fOw 2oeu3sGzphcYXhmUPCIxWaa8h48wyHQjRcR76umPZ1/rp30MANqEqPGYA30o KoAqquGV2/TbWuID0k9tFlAYPPSccAXxmC7nCp3uejwsBNVN9QkbDlzuNGPD CABdwPCWDRFZpqyHjzDItCMu4rEvZs8n4vDoy7AAoLqoBkUFUEUVvHJEeoKx z61aIzZAE3joOeEK4tUdtd+lV9OMrM1N9JgNtc22W9o3PYBg/2fXq4cMzLEh 111sGAGgCxje8iAiy5Tx8BEGmX7ERbxEpxXO06UywwIAAAAoFiI9wdTlXIa3 Ug3goeeEL4jXOh6gfJe2sx74+7VZFI/QF+x64Isvbi5v4scIAJXA8KpPYVmm nIePMMj0IyrikQXx2h3wdAEAAOiJRJMOg4F5xbGEihFVAR56LvY3Z9860PTe /BZcPQAAAKC8FJRlcPgI0hAV8VIF8WqozrAAAAAA5MM++69Ja5OxoWsY5bWr Bjx0AAAAAFBEQVkGh48gDTERL/XCaCDDAgAAAAAAAAAAAEA7FI7Ew+EjIBHt Zbz5vb0HLwwAAAAAAAAAAACA0hCxUylMNn++xgWgulh1dWe/HwUaWwAAAAAA AAAAAAAAFYCIBwoBEQ8AAAAAAAAAAACAAtjtjYehTB5ubCMXEnBEwo+z348n 4QjeDwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABQVv5/lPXMrA== "], {{0, 117}, {1687, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{624.7142857142876, Automatic}, ImageSizeRaw->{1687, 117}, PlotRange->{{0, 1687}, {0, 117}}]], "Input",ExpressionUUID->"1bda03f2-4d4a-44d0-8a4d-7323132361e4"]], \ "Subsection", CellChangeTimes->{ 3.7664221366723995`*^9},ExpressionUUID->"eae7920e-7c5b-42fa-a9a5-\ 0b39b670536e"], Cell[BoxData[ RowBox[{ RowBox[{"BmnHoloTerms", "[", RowBox[{"aa_", ",", "bb_", ",", "mu_", ",", "nu_"}], "]"}], ":=", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"\[Epsilon]", "[", RowBox[{"mu", ",", "nu", ",", "ap", ",", "bt"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "ap", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"UD", "[", RowBox[{ RowBox[{"\[Phi]", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "bt", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"ap", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"bt", ",", "0", ",", "3"}], "}"}]}], "]"}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]5\[Gamma]stdowndown", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"\[Epsilon]", "[", RowBox[{"nu", ",", "ro", ",", "sg", ",", "ta"}], "]"}]}], "-", RowBox[{ RowBox[{ RowBox[{"\[Gamma]5\[Gamma]stdowndown", "[", "nu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"\[Epsilon]", "[", RowBox[{"mu", ",", "ro", ",", "sg", ",", "ta"}], "]"}]}]}], ")"}], RowBox[{"UD", "[", RowBox[{ RowBox[{ RowBox[{"Bmnupup", "[", RowBox[{"sg", ",", "ta"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "ro", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"ro", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"sg", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"ta", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.766422145307847*^9, 3.7664222881045103`*^9}, { 3.766422589907879*^9, 3.766422591052045*^9}}, CellLabel->"In[68]:=",ExpressionUUID->"c81b68fc-b0d9-4d1b-8ae5-71a9b1133f22"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"HoloraumyDD", "[", RowBox[{ RowBox[{"Da", "[", "aa", "]"}], ",", RowBox[{"Da", "[", "bb", "]"}]}], "]"}], "[", RowBox[{ RowBox[{"Bmn", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}], "==", RowBox[{"Table", "[", RowBox[{ RowBox[{"BmnHoloTerms", "[", RowBox[{"aa", ",", "bb", ",", "mu", ",", "nu"}], "]"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.766422374530304*^9, 3.766422470891426*^9}, { 3.766422538352828*^9, 3.7664225449623356`*^9}}, CellLabel->"In[69]:=",ExpressionUUID->"85974138-ea6b-4782-9744-39fcdbe404c6"], Cell[BoxData["True"], "Output", CellChangeTimes->{{3.7664224554674253`*^9, 3.7664224719176297`*^9}, 3.7664225980439577`*^9, 3.7664260616394005`*^9, 3.766426315007763*^9}, CellLabel->"Out[69]=",ExpressionUUID->"866908bf-2852-41e3-97a9-3795074df982"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztvW9MW3e292vdq3t1X+wXl5e8QOIKWeJFpChClh6iaAQviBIhQTQVQkkj C6LmAjpPDnDmKUwfBVI1kFHj6mmNJiG9E2saKzNxzomVmTo9uDm4KWSE0+JO jQBlnAY6psEppkCQg0ww2bne/vvb2/b+Y+9tb9vfj3SOzplx7M1v7/1ba/3W Wt/1/5zp/fX/+79pNJrf/F/h//XrzsHGf/u3zvfe+r/D/0/bv/6mp+tfz75z /F//x9mus//238787+H/8NPw//yf/4dGw/zfbwAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAABASbHrm/m0S1ep0WioYybPfqEvBwAB Xm9Pv18bfl41VQ19lsUAHlkAAAAAAABAduz6Ji82UpoI1S1jrgBd6CsCQAja /+BCY1XkoaW0HZ8tICgGAAAAAAAASIV+sWA+p4uFw1WNw/d9IcTDoCigQ777 wwiKAQAAAAAAANkRDodNZ7UahMOgSKFDXmu3lkJQDAAAAAAAAJDIrs9+XhcL h8PRxE1PEOEwKDr2AwufdSAoBgAAAAAAAEiA7B3WUI2XZzYRR4AiJeSfGo0/ zBW6wQmUOgAAAAAAAAAyQ6bVNBptr9UbLPQlAZALAY+5K1H/32R4tI2YGAAA AAAAAJAGOuSbGNRVxNPDxy9MPUf0AIqe0Ip9sCH2VGsOdVqe7BX6igAAAAAA AACqI7ho7jgUDxwwawmUDvT2I0NTVfyop9Uwu4FHGwAAAAAAAJCE3pg1tMar pTUVJ28+3UPQAEoGOrjwaUvi+dYNO/yhQl8SAAAAAAAAQCXsb05fjItLo31Y TdDbS/dGW+o/mN5+XehLyQvbU0P1bw3ffaxAfULgHyZ9oiVA2231QmULAFBW wKAAAAAAGaDXJvprE/mzum7rMvJnqiC0OjPWqaWOD0/+VDZ3JCqEdbDd8EB+ Xeg9j/mkNnHuc9LsQUMxAKBcgEEBAAAAMkGv2vvrNcidqY3QT5PDx6ny8l4i 0C8WTGe1mqrG4fty+zDs2umKTvPTHVm/HwAAVAkMivwGBQAAQMkQWrMP1moQ I6iMmBE/1GGaK75yr9DmkvM/b45fGuh6u7mukjlnqWs+3TVoMNmcS5ssZ4z+ ZXZMf3hoapvzDbGudiWGJQUWxtvRLw8AKCNgUJQyKAAAAEoBevPr4cS4JU11 y/gc+odVwO6q7d1aDVXbZ1vlPdOm12f/ZDQohfGOe2tf0nXTwWcuq6FDF3Za tI1dF66a/+pwzrpcrtlpu9X8+yH94bBP0tBndvl3I5+OOmmVR02P07S07T2x dB5Sooaf3p4ZrU8886idBgCUNjAoChoUAAAARQ+94Rw9msgPa+o/dG5LM1hA AejgP/7YHo7Yagfta/ymO+gxtWkU5G3z8q7oy94PeO4Ot9SGr7tl+LbLt5PO 8drbXLCGP0M1DE2svPBNXmxkkrVNBhf3RD+6DiGvtVtLaai2MfeWrOf67LoI bb/Nh5gYAFCSwKDE1kExgwIAAKCoofc8puS8JU19v30VZqLwBOfGW6o1mroe 24rA7Xj92HS0MnLvqJrmgXGrw+XxPt8KpvlXfltX8kYf7L79Q7oPvQ5u+Zbd X5oGWmuiH6x8zyFWj3Q35o3UvDX65Y/pvjwJHXCNtVRTRxp+VSH4K0GvpSv8 Karp41l5z2r2Fk2t1fEFoWoHJzGfGABQgsCgJFHMoAAAACheaK+1M5koo1pN HjRUFp4dj+kUJep20HuL15qYW3eo49ojP28t3P7i+JHEnRZ0S2j/9HAj88mj Jo8o/yXknxptjFy0YVZMZMk6iqnotW/wfDbmzslez0/vuD6qTz79J4zutGkF AAAoXmBQ2ChlUAAAABQp7AHEmsODjjXEwwWHXrV2Voi8HQG3sVkjSipkd9n8 djL467D6BD5Pv3KPHRZ0LeIf3luydGopaQ259DNb94HI5VS1mn/gvZz9Dcd5 5uBGds039olQRacVFRIAgFICBiUFxQwKAACAYoRVNYoEsUp44TIci5xPjLlf Cd2OV98bD1do6j9ype2vYvGzvfdg4kA/veoIB59Vr6EOGd3ChWWJuFLUlSQI +azdkUP91vFFIbdkb368qZKpbU5VEM0JdpoYh0IAgJICBiUdShkUAAAARUf8 mBSxgJqIn+fXnLQsC90Oesd56YDmYI/tmfCNezk9VJW415lUR9gwDkyN3roi eMnxoFKcX0QQchmY5rKqC9MvBf+CV17LGcbbqeixrsoqgcVpHDhp8ZbLa0CH tp467X+xWm+ZGGnZ3w31ntHrT7W0DH7uFS99AwBQLzAoGVDMoAAAACgu2Ali TdO1RSSIC8/ukvk0Y6apMxbvK6EPbzlHGkSeokvr+Yrw2mM6qmkwuAJCH9yY HopmWY+MOF8Ifi1J1IERV0eXcO2qT5ifSHKThHi9Pf0+cTR0zOCS9lcULft+ 27mkNE6Cit/YNyA4A0AJAIOSEcUMCgAAgCIiehqcoLbTWjaZMTUTLVoTmanc mRk5UNU0Pi/igFtqzxdDxLvotKwIff2+23goGleJ8XZSf0Kw5ytOok1MTPmf JOLLHosIy6ebOBRY94Xxer4xdVXG//5Ws2AyCQBQBMCg8KCcQQEAAFAssCtF NbXvT4sdiACUI6Y9IkIY5A2T2XS8Vynq5P9NNj1fTE9Wl6jys+QMjgPdYsrt yN9gHBgRPV8xEm5Ys9EtzVMSIl5BF0P271c9246BWERccWR8HhliAIofGBR+ lDMoAAAAioLEhIWYD1xv+BZ6iypgZ3G8NZqlE2HTAy5Dg9hsZhY9X29euo3H RE3KYLrD4k/SyZtPJdTe0zvuP3R2mtyitVPipXqS+8uEL2XN1p3MEped3ApR A1k/NC2m5BAAoHJgUARQzqAAAAAoBiLtQkl+Pb74stCXVHQEvfaRlpoqXcen s5sCKTU6+Mz15V/ufjnHP97xDf2DuTXiZ4gSBqFD60tP1kUpIGXR8xX5/h/m VgLCvkVMzSSK8BTLnEh4YvJX9q47BuqIU6KyklshaiDRRAxAaQCDIoiCBgUA AIDaoTfsfZVJ37+cxHVlg0gpCqp/bDhHogn52i7bKu8H7b0VSljnbHq+pMCO JTWVuo4Pb00t+gIheX+Ggf7R0l6tTODG6awvJ7mV5BxPjagkDgBA/cCgCKKg QQEAAKBy9latPcn6UFFDGQCH/Q37b+Jr2GbyBPk+m+zQrG63/Miz1IygSPRz I05Zh99k0fMlCc5I3wTaBv2AwWR1PFr4cTMo0zPGlPZFvlyy6IowjLAM0Uxc PnIryUeUOmiYxeAlAEoAGBQRKGlQAAAAqBl62XIyWZMkbigD4JAYDxH2Nkad uzzGmX45fSHecXXM6OapTo8IjzCIlsoUSTY9XxKh12dGm9PM8UlSWdfy30dM NqfHn5srs7di6Yx8oZi5llLhdBOUidwKvesyxB3cugHHeqGvBwCQOzAoYlDC oOxvuf5syMi4fZn3CB2AbMBTB4BkIjMBiYAYJdNZsD8/fiSWIhYafZjQNhHs t0ocVssclWTV8yWd0E+O0beIo5aMnoyu69r0inBXWwYigqhRD8bgkruKjlM4 TR0YmSkDxbmgx9QW/4u7rT4FShMBAPkGBkUMShiUxFlEWpCMBkqApw4AqRDe b8QIlETJ9H5gZd5FIEq+IwfoZXM8yhU6fqe91g5t7LPtlhW+jyZK0eTdu5Tu +SKgX644bxu6jwq7MdqzpoUX2V1IQnZF6CwiKziF0wcuOUXLlhYr5COKJmIA SgQYFFEoYFAQm4D8g6cOAInszY83EaJamrfNy0XZNUgH/vlo4k9Xh8+1N2gz 7gE1De29w5+YPn/oWZc170U2EQtNtZAw5nXFqq8R9Z2SIEWT8jRj4nVw/QeX w2oyDOgz3x2q8fKMkEZ3+m9PFDnorT7Zr52sh4/YkRHnlvw/oirQRAyAguwH nq8pe0SbHhgUcd8uv0FJxCZdKLkBhSV+4IOIGAAunJLp4ksJhdbc9z4936bj 7TBKZy7rTvQa/uxY9Mthn4igSaBmjOzQFBrzysigUPKb0WS8o1Gq54uPUMDn cTn+ar56oauR48xUt5oWs5lvlJhWeWR8UX5x0GQRXfTBKYnCaTq09dRp+6Nh oKst7FIyJ0WjpnvuyEwT5ZqIwz+67Jq8PT7K/CqR5dE2tHX2Dv/+5sSjpa3y mW8FyoT9wMrfJy3hp/6d5jry8Dm6nejaBoyW6aWsAmQ6tL74ldVkHBno0kfp HjTenl7eTv9lMCgikd+gSImI6eDWc59srCuhx13MlP3yIiIGIAOckumKw8bv i0RUiw75v7caehprpIbCKS5J3cnz1z5/5M3hzJ5oIhaqGSM7NM/Z/LzmNjmE UUYHhox3lOz5EkNowzN5tUtHeInZiTknHBgFGonD0D5rB/mUFXvhdOhn1833 mpkXp7a57xPL5Ixrdsp2baC5pkrXfXMh8FKBJuLXQd8jy0gH69yKqms+fYob I1CHOwxWl6+o1xcABjqwNH3L0M0N07QNbaf1+rcaWJaL0uqvzPhEl2PQAa/z jqHjcHrjRx3pNs+lsWcwKCKR36BIiYhZw5flInLqOPSxyfrAvbJddEGcnJT9 8iIiBrlC74f2S9FH46hMC2YtVUE0Fj4jOSssAFXT2DWSVUE10UQsWDNGTKkQ TMcr4sCwzkAqum1rBX6u6ZDX2q1N3MtOy4r0Q32FI+I39A/m1qSUqsw1h3mF DvkejukjA1i0nWMzq8Rq7Qee/kdvbaXuvPFyS/yPlaViJPSL+9a7DRTxii0s +7YIOdhQwL/sdlg+6Wuujb+LxwbvzG+GSnHLBaUP10JRde0Dxj9NPPzHOvlI 09tLd3+rIy1Qq8mzJ/jM7weWvvwkHgtHvtn8uWOGUcoIrLin/zre2xR51U4Y 3Sm5WhgUkZRgRExSWdf2P6/d+84XLK5yQJko++VFRAwkQ+/45h5Yr4/26pvr kpEXVdPQ1jVwafzmf+as8K8K6DVbNzGHWPUj6TPEwlRd89mBEaPJYr3ncM7G dbTi4lpOh81iMo68y9NwxCXWbnzrrn2a+TrXk3U+55xsIj4y4nzB9xckp1SI 6NBUwoEhRZNkn8GRJTse06n4Lc1ql1Y6IiblwSMmLy+9crITDofvDzdGnr/0 sjP7G47ztck/U44m4tBPk8PHwzeXaui/7vBs8Qe5oZ9d5t80xB6Fqsbh+z4E xaCooAOPbQkLRR3WX7zxJU9jDqveWCOsUUC/WLS8G3tBtKdGrd/7U1+QkMfc HjYb1CGjm2vLYVBEUtiIOFnW+2x58e8u56T1+lCbNjUBUNMybJlye1b4inqX F12zTsdfzeOX3k3pLKN073wy8VhgTy49yn55EREDKez63Xcz1iMlqdSFrZ2g jyfld33OG5F+WKqm+bzVk4dnldMgqdG0mtUrMx1ac9++0JKsNMsmpUsHvK5J i3GgvU5yfrl+wLGW4VuJJmKhIwViSsXBXvvPAperRNsXyweTN9cZ8tsHdadu LUuPFYll4R/QnIGEA5PGC5QFcoR05OFTVE9VGWj/gwvRcFhT329fTX/5r743 Hk6ckYl4RPmJhcNVjUO2pYDIG7O36TZ1xPwTBMWgeKBfeGy/a48+ukzx/123 n/88iTPZLUx1u+XHTI87HXhiGzoe/XZtx/83m/HL4yOWUlWhYFBEIr9ByVFZ a397+gP2oxJ+WEadu5L2xlBgxf2labCZVa6f46Sq0qC8lhcRMRBL6NmU4e3o iWes0mnatbj8zLficc9OT9z8/ZCeEylX6jrGHN7cH/j9zZnLjcRXUyfMS4pn obZdhibibxGUPi4UdMj3wNCe6FWqbR64znfwLoaQf/HLGyNdIoY4RNFdnM6k Wkk0EQsdKYTNYnf8JovR9E5Ig7aZPLLMUmf3fFVdmJZzq153DNRlKc6Z8EAE e6vTobDWNAO3lVjt1RQp7D2xdB6KLnFt/0TmysYXzpHEZNEcZed3npo7K7KJ akN+x3C8mlTbblqQ5dEHQDHokH/W3BcpV9ZUNfT+4atM2lYke4um1mq2manR W1fS/0BgztQRfX+FXqi48nP1iDPl7YVBEYUataY37L1kOZ9GcHRjJujQ1uOJ uJcb32U5HTTlRzktLyJiIIak0an59fDt2fRdAPSOz3VrsLGK9e5o3zZMPcvp gX/9xHyCbRyVqv8kf/Sx6SiZIpZXV1Yudn1TH8cO3pkDt6sOMc6GaOjAP53W sUF9I19oTLUaZjcyHt0nm4jTFaqxiJj4KKJELFdtXdEiVrn2LnbPl7zTe3dn DQep7B5besXSHr2mrBpXlZ1HHIU894jcP4HyeHURDU6jD+kpkydzHoesgcxJ Z5Xee3rzZIWm4uTNp8Ktkan/2j893Bh/q9rHF2C4gWrZ9c+auqNqTmFPwP6D OInGoNfSxfHBMwg10yHf5GhL1BBQ2o7PFnjLLehVa+RV13ZYvSkXAoMiCiXn EWcbEad2v+YUre/6Zq7oyVJh6viQ7UkhJoKpg3JaXkTEQJjQsrWbiVaoxgu2 JYGYiziwTT7ww5M/ZR/CpryP1ElLqj2TGb+ti5XwzkqDQlHoFwumszEHveat kXs8W8p+wHP3Qsc7500zYhNS9AvP3fdbdOesXuYoPVJQfXt8NLXduLplzMXz u0QTsdCRQrJoTVM1NE3Ucu2uL363mKYKLl7/JtdhhZI9X9Fz9awcmERNcmXT +Lz0RzBZ/K/kMRJnKnExtRLTG5ODtbEHr6LTmqFgOkKyz53ziEr9yTXH4OGI 8MJb+q73xu49luoMxB37yDV33PaidhqokGRjL38lM/efsdWf4qQTRqYDrrGW 6tgHdMMO/tooesM5Gklv1p53pCligUER9csKGBS1RcRvIi6TlZXcydGJLWrK aXkREQMhAgvj7Yz8S+PFSXETENIExRWnr82nitWIg5Mj5k1KygS96xytJq8/ D1lpSYR+coy+FXlzKW37x1MC9yWhfSSmSpMO+f423nWE4vENQuseVxR+WS0y UBKoMiWyybVdttXkf8HkH6vTRVgJM8rXXyYBJXu+ogXhWT1Ev0wPRSp1K3qs q1mcyewum9+OPsGZag7lYG/F0km+LlSXza/Yj8kKqTNzoNv2jE8kTlKfe2Zo r+Uky98/MjT9i8TvIAoqNMcMriLKyIPyINljdbDd8CCd0aFD/vmHj/7JPQ6i V2w9dRouhwcd3G4Glpsh7BWE/FOjkd4r7UmzJ91OCoMiBiUMigoj4jdM1Lbw WQc7lXlh6nk5Hj6W0/IiIga80MGFT1uYeLhtzL0l+nFNc8xLNY25sxykuR9Y /PdBZvhIZV3b8E3Xz8rHpoltP37xqvLw4xK1GrGyPPQr99jh2J9S12PjaQEh C1pylu4hi2kFWpbIbDKrjSsSKaetl0vu03IcVyjf86XJQpwt/B7d7mDWpbpl fC6r3rZE66uiO3zKCZLMC6gYOzMjBxJjYM5YvDzzxsk9IZcmYu7ekpVvydL9 U8FUFwAIEhaKauqzzKcvgdieGmJqMzhWhjRVSfOr7fmcK9YX8tr6EsetVU2G R7y1a7s+x4cR5UlK22lZytCqAIMiAiUMijoj4jeMgs30RXIEmEbbY1kq0tmC OVBOy4uIGPBBe62dtYzFMX4n8Uklky9RqltNiyqrPM4EmYLRiOiBzSPJYmkp EWtCTINHCjj8zeZzcZV8GZRsibSvRlP5nmM7cyFtcG48UfzGch4ih+EHLjnT nqUkBB+y1HlgXYHSPV+RpedtU00l3q1Q0f7Hf2Q3z4z+0dIeWVil1a6IByxC jsJT+YGtZyvQVSe1zz0TieLMBEJjZdJeeqIZMPK82tZUVcICyhj6+dSFaDjM WwmZVOogk7asfThOShUEvTFraE16FzzSjtGRT6OnIhZTqNEYBkUQRQyKaiPi lCctvOQtny6UwGxRSZTT8iIiBpmh9xavMYLLle9msfvRG/a+SvZ7lCm0URtc paCcJ63Ixq7Pfj5yqiYxYiUDlrQn4Mm8s/QvTw+Z9tXwNWJzdkXSG2GkQQ8e GJlJb/XpH8ytkVaU3E/gle/5iu732m6r2K7PxLBa0d0KaUi0vmYloiIBrtFU pxIdB3KSstB84YQXmmMTMdfn50ta8cFacPVsUKC8SR7Y1vfZvLzhTULbmTxi 4vZfpNveg15rL6FnkanqiQ75v7871h8f+JKpeJv8FzAoQihiUFQcEYfv5ObX wzrSG8xUdV+6lNPyIiIGmQm4jc3hHTRjSCLAlnOkgf0iFYWfnCqrldXYPvlJ 1KJL9qIJG5ouImaFw8KKneLgqC0d6rOnaxKJelBUo/70r1I329dL5hMUT5tk IqLJcV7GfsB9pSV5x+WVSk5MlaJq6g7ViCt0pwOPrYPHcvVekq2veZgdRvi3 efrF3EmoywpvTcQblGv4SQfmbvYdYxaLGcx6z5Plu8Za8NyCdABkITEnUdt+ zS2gF5fINjIkQyF6baK/ll1cxiqB4OzVGqrV5OGawl2f808Xk7MgK3Udn9iF FEEjwKAIoIxBUXVE/ObN3qq1h6V8nmULdtFSTsuLiBhkJJYqzaaoLwKr2a2I PDdG9pi86KzG9slP6KmlI+LAC4pqpvxLYtRvyukuKxzWUC1X3DKEw6l59jS2 mA48dRg7tZHiulcJ+dyEpmikU4xX/jfRdFZz0iK2oYreXLx/1xrjjnnc8Luh cyfq2C4YVdf+7ojBaLoV/9xf7i9mLeYWrbaNnDNsb0Tr0indGYP1W28gzU2k g745+5UuZl5JVUPfn92buZiGRMtqs9Gt9PbOLQZWcNiTXLAeUf4yb6nDsvMA +whC6RoAAASgQ6u2PiaYpWr7bKuCiUtCuZ0dCqVI7hBBH+1/cIE13vHoqDO6 M++ue2bst68b3m1PbuY1R7tGbogafxz/E2BQeFHIoKg8Ik70vCeNW/3ojJxz LlVOOS0vImKQEVaqVNvY/b9sHml60axO0ig5teDlB065r0qEpkNr9sFIPNw4 PO2XKKcRbQaPGWdWxp8dDmtq37WtyuPtk7e+ouH4sUjpWthwXzZ/MT3rcjkn rdc/0Ouqalrety78ElndXd/kxUh+4ZDeeM/pvH9j4BglqLTw6nvjYeZeiRYX er0987v66Al7XfNpPT+nmuuiJzq1rePfZ6n4EHH8iNOAvS3PhLH7aGTX1Ta0 nxu6PGay3Ik4U1dHB/QNzEJV6joMVtezXPtp6GXLycjvpBtcIjcp5Y7qf9NJ Qy9QJ0k0EbM0BeiQ//GjRWnnUzLB1jpQuk8cAH4SGtG8Xb2JT7Na+KtHnbvk 20dOGU5Y4Ub9wPBA20HWf1hxVP/fO9s4MwHDgfDwFYtjkXcOQgZgUHhQyqCo PiJOLXcUkGEsLcppeRERg0xwU6WaTIP8MrPrHKlmf0MReG5kd2EEGXQ2cr+o bw31FelVNwWg9zwmok2XyPjTW+6xtuR/I+dYK/JU4WCv/Xlo66nT9kfDQFfE e6FqGtq6Bo2WKc8Wy2kJG/evboz0toc/E/Z/hj57uCLYzbW7ZD7N/AmqFRda n+hrHPzcy6nBCwVW3F9ZTcaRgS79W1Gnpa75VEfv+1dv/qfT45dFWyI+tTa7 uZOSfy0+5jIOv5aaGiBGYAvkWIlscuWAg9A9Z1oDCiREzylTV9/AdFBG7G84 zks4sKWf2/uSzgX7nYoTWnPfHetrZsfF6QkblJO9Qx+brA7XitTh3hxgUDKi mEFRf0TMPsDR5M2qqoNyWl5ExCATqe+B5B66NF+R7aaXPzhC02qo9A4HmO8y h8tStSXfMGbM3p/s5yW6rnZXbe8S3kZdt3VZvhuTmNEQ/sluRe943EzXdlq9 BT+3UBOvvJYzEdcuT105xLjeKDn24uUBIqjkNfGEsLO2g3zMMg7LzgOciBgW HBSOvUVTazWz2fA1uSSIj3SMITCPmw4He9MTt0baWYVbGqq2+/rXs9971mVu YYBByYByBkX9ETFnunSEYtGJzZ1yWl5ExCAT6SJiiaMzU5pJiyAiZil+aFQx eomRXGaO0KQPHuVMfKvvt0cdFnpvydKZ7NWiavsn5BxpmpyskYcOxxcuwzFN eomVMmZvfrypkmnJMXybpwl/3AFM9UPTKu8kJqpBeEw8q5SCFeZH5Lby0KOd 9qo42xQsOCgU9I7ro8ipK48KIkFCECNqe8Ts2+R4vtg/k344LBYYlHQoaFCK ISLm7reaHAR2io1yWl5ExCATLIHiGBLFoosxR8y9ZomHAEoQm5MoWamb3nw4 SuiQVJy8+TRq4oMLpvZk7xXVeHlGuPNLyu/6rB2xEKLisPF7pRtC4qf6ArmG ciJexJhP2UZui4QKXhwBEkI6Gs1Bg2s3rfebaG+PPs5k00ckaaJIjza9H9oX +FLuNgULDgpFrA2QOmFeEj785MxOElFlnTK0VOmDPhiUFBQ1KMUQEZNlb/GH MA++jSoop+VFRAwywi641WQx2D21j1jCpkeHQoXIzXJHLxU+1RV7SaWWH4eW rd1E+XdSpSqwMN6uTPtwFFJjPD8HfbG/CKf6MWJFjNWtpsX8NeNwC0JUUFwh SEIOKH2qNxoOVx/Xt8cKLUgBLiZpUivPCoe2V9wPrKZIn30N8WrWnTg3fCWl 3T5C7JQsQWEtuIgQHpQqsRe/UkT7wH5g/g9E9XNV4+jDTYHnJjHRiXRElD7o g0Fho6xBKYqIOHGRBGWi8F9Oy4uIGPBAB55+deNSb4der+8eHLu3IFG6n+i/ iyPoJYc2PI4bI11HY68go7Bkcng28pZXTtHHLvirEd8rJElec0SkqebRmfVY vfTTmyeTPkmFbvhrIZ9EKtsuQ1Ps6/Mlr0RvPzI0VRFl4eVMTJacavl0QRZF FbFwOlvV0IAvSHJkDGfGNx30To/36KhDHdce+XdibZLE6KVIqkuq0mDqr2+F d7uLel38AImqaz47MGJg1GItprHLQ//SwojTUjXN7910/Uy+/SkFPAXZpvY2 F+6NDSTn3VB1LWcHjRbHnC8o61u/H8pCNhjkidgcJeGpu+zZSaIG39ObXw/r OI1X+egEgUEhUNqgFEVETO86R6s53qxK5nIqTTktLyJioBhp5hHzTymlA/OW viYq7AE2nh2+euMWM6An8gWRkbX5CYpT3v6Cjx+VGhHTIf+jax2ETLj2nWuz cXd6z2M+SdSsafttPrkPfYkmYumNz1mzH3BfYdRacg1Sip6YD0m1jy/keUvn StIpYDeVYD/gsQ4yjjqlbR+5NTkTHw1WSel6xqe9ER+QDnpuRmakUlq9ccL5 N/v1/oaKnDYl5rDRNNgcywhX6jo+vDX1eD01kKR3fK7bwy217D0wdWvNu44Z /WLBdJbZSmpaeg2fmj75lwYikUfp3vnE/kOOsr/Rnwl6bnXrqo+Mz5f1W61m YuUKAj4kHZgzJa2SqHA4HEJPDzdy3GRFbFYaYFBiKG9QiiIiTpWOFH7mS4Ry Wl5ExEAxUqaMaQ50255l8pJiFpM6NnhnfjOWEkhIdmjy5eGnupqFb3yOjcES M6ON3l52XO1KpJwYJ//jKV8iot/z2fqJeJinCGo/sPzQcvX93o7uAcOfnT4J ZwJEE3HNSctyHg/Yd5YsPVoNVdtnWy3blBLtc/y2QW7lcJEEXAb2+148RWV0 8Jnrnmmk9yRTtFzT0N47arr3HTvRSYc2F+3Xhs8211FUXcu5S2bnarYrvOt3 mfsa4sky7dsGoeCRDjyxDR2nkntgyoS4fB+nR9+1qsbBO/HCoXgEkeRQh3kx tyidDvnuDzdWaSpOX5t/Ua6vtOqJTTHj2e0584WrGvosi4LhcDw1ySafnSAw KPkxKMUREadIR2qKQStDDsppeRERA6XYmRk5wO7/qX1/OlMNbbRnOTUXTKiy 5yXhmNLOoIaxqvFhxHymObTmvndtgJzeqD01av3eT3ye3pgcrCXuSKaRi6HV GaZeNPlBqmnMLVoJP7l9UqfNS/lNr9PrM6PNVNgVN83JkZ8qOqIuXHXLmKsQ f35KmCapzr9MCP3ivnEu/nJRWv2VGXHHTXTANdZSHW9sXLV11RZwqaPSQymy EjtPzZ2sCtfcjjGjf3I+C4RAVsTEmTW68/bUh5l+4bn7fkuiO55q6rPMi9md 6LWJ/lpO/7BGU/+hczuPJz8wKPkwKMUbEVeURe1KOS0vImKgDHFxwiQ8p7vR 3KW23bTAzSmQOlf5CE6DHlNbAV3NDIT8U6MRdRGqprnfaLnvdM2vBF6szLlm p+1W8++HE23XUaej7uR504NlziE8veEcJVsP03djEbVtVQ29n35uHtBJNFX0 5jfjHYcr6k4O3Rbl+chMtIG6HL3oqAxUVePwfV9hMhopp0mkDhV4w+nuF1c4 miRaMBPRv411birsomQkeqPTjdpJmZIjbkBtGuIbUe6JZqA4yQbhmpY+o2XS 6ZrzrnrdDyfMl7sbE0VJlbqOT+xL26IehxRVzwiHBx356sJJAIOiuEEp3ohY He6h0pTT8uYxIn65ZL9uUAvX7UuqF30pamivtZMVEPPkGaO5y7S6DWwBmTwU MKdUfqply9v1OT5sqUk5M2dd6tGuEZPt0T/TxaH0nsfEnmDx6/FFzisQr1Fk iNrBoNfSxSR91JAoF09odWasU1tePkzUeznYbnhQoHD4TTq5yMJ3HKgIttgd 1XLFLSEcjkAvW07WVPTa17ktV3mW9aZD/rn79+f8aZ60lIPQ7ObGxtaqUNUO QCr7gaUvRlpSapxjRNrkp5dE30rOhKbYk6Tt+dxXmKM+GBRFKZKIOM0sUdW4 h4pSTsubv4g43d9bQMriSS4Y+5vTF3XkcvON+NldMp+m0h//hrfKbiKMK0RE rKZeSDqwNG0ZHx3o1sfp6B26bDRZbF+5VnjdjdBTSwfbUT1p8bL+QWo4vB9Y +CyiJlTVZPxOaW1PmaG3l+6NttR/kLFKv8TYnhqqf2v47uOChg/7G/bfsGVh ERHH4Wi/a3ut3iwyn7vL5rc1Vb8ZHzvJtmaSJ5UrSKzFI4F0ZeDY/NkCVjuA rKC3l6f/PWyfumLW6Uzv0Mcm64PFdf6+gM1ZQwvvUa8gys/4g0FREETE6qac ljd/ETH900T/r3Lb9+SD+lX/xE+wtUqx852xiazq4618i3pQTdcWUwf/0c9s 3QeSX1M96txV+qZtTA+xi7WKQy+Xn1SJEq7EGb35cDQ+F6Oi/Q/zPo/jarSV mNJ23PTkdYgPKFZSbFreBZBVSrQdL0H2I10iK1xbV8epme60rORv7rQQr7yW MyxDzyMfkUpMwhrbTvmw7Tb9W+KMV9/WkC5zom1oO63PQMfgn6V0HwC1USQR 8a5zpJr7XCIilg11LC/6iIHcBP5h0hNJAv6j/tfb0+/XZpCppNds3cQXVQ44 tpW98jepM1VLICJOM9KR46PuPbF0JuZiVNYdPxobMEod6Rr/G9I0QCQplhNm 5U2qCHPWrbUM6ZqtVFXH8iZl39ZoDvXZn4v7i6O1mhqq6ePZfAooAZVAb7nH 2lLyJhW63/6XH1aoZCmSiFgdja4FQHXLux/wfmu/a7VaTEamB/biQFeHXn+y 7cyNxVe5bhOIiIGs0MGFTwn3j9J2WpZSk79JIjNM088VCq3ZegnHKiIpozgl FxHHShBZDkaijpEOrMzNfn1nmPMBDVXXPjD2F7e/sIOYQZGBiDgNXLGpdIJU 4kknyHnY+L3QVLY8w51MLW5MwP727MfMNPrGi5NSxr2JgA5tPXXa/2K13oq4 UL8b6j2j159qaRn83IstTj3sb85cbkyJh3E8UuoUb0RcedT0WE2HkcqguuVN GbUQRY6TYUTEQEbo7UeGZL20CDHV3VnDQSr9kxyRkUk+7QcuOUUPAMqBkoiI mUD32+mwB3jHPD7S1SC6V4Fq6L5ssn616C/9Y0+gAIiIU9jxmE6R7x91wryU i9VO4zYo30QpGXrHeekAeY0VPdZV/rruuGqB9qxpQfbRw/t+27k0u2DFb+wb CLXUAu3/r99yapnCaLvMnjLfQ0qe4o2ID/baf5b9d1SH6paXDgV+8TEsuW8P xgWL5BnVhIgYyEbIa+tLNOGKmy0S+NbY2vwvn/+Y6iS+XjKfSDoxecuDFGlE vB9Y+bvDajIMvNNcV6kRCVXX/BbZtJVb9gqUPYiIOXAngGdoD5Hwhctm9sjn vB0VSuTV98bDFaL/8LisH58AY26EAuuMB+X1fGPqSmyQreacbgaQkdCytbuO 82hjFHV5UBwRcTrlp9bxxSLTHM0G9S4vvescrY59uH5oekO+yyh31yVX6OfT l94qsJZ2zVuXpkW2aymxAlFFlChSR22m8nJx/NfE35Y6KkghuBFxRa9dhtdM KXbXF7+yGAfa2FFwONI93TUwYvigtzm1tqS+1/xoJXZromOg4+R3ggsoPfbd xkOsh63MzUqKxlSuUmP0y+kLbFEt6sDIjCp9Ms4GnipunyQu69cwaF9RPPzZ dgzENkt5cgpJ4ANkDf1i/trp1PRw+zU3Zm+VAUUREb/edrzHTTYU11TKrFHv 8gY9prbYh2Uq+EFELA/qmC1VuDb/3VXbu/HoK/dwmJtiyLXUUALciFidygl0 4OlXNy7qdYktRNugHzCYrA6XN+5C0CGvtVvLLRVkDX3m5HHaLStwP0AucAuf ytus7M2PN7GNfK6NToQDEF9h9ZVMx2CPktdkEIsIb2Vzpo5DzDwC01wewp/9 5ChneXIKScrdB8iatO3DmL1VPhRFRByZfMeG6rAWZkB2nlHt8pKdlTIV/CAi loeyPh8mLVrYkE14gzmGr5w2tFxLDaXAjYirhqbzk5wWS+hn1833mmuiy12p 039gsn3jTT1/SFuExhr6HFX5TkBpez4vi+0dKAa9YmlnPW/lbFboV+6xw6zV yLn1g/ZaO7Ssrzw85s5ZXVMpXj82HSUPBLgT3xhCK/bBBsZqjD7czMffQfhd sjcRl7UPkDVpT24xe6usKIqIOGUuZ1790oKi2uXdsMe1d2Ur+EFEDHIjrojC INe57i/TQ0eSb0ZFr20tb8feau4jpkP+R9c6onWptc0Dpq+WtzOsddBr7WW7 zoybUds/QSi+xvVgqcP6ize+hJoWyBn0EROk5nNzTkomK36jVJ8wP1Fx0R53 Bbjj8+j1mdFmKrwv9dlW85MNJAfcq2xkVXlCB1xjLCX2iEVqueLGfOEyohgi 4v358SPsuv4MRS8liEqXl+whkq1WChExyAE6tGrri0nHHOq49sgvh2NDb9j7 CMevss+ujNhKWtQbESedB23n2MxqZstBB//xx/aUpixN7aCddbAQWnfdMVkf pckvA5AViIgJUiZE5JqUTGkizutRYTZwC6fJvrCY7oQcLTbiSR4pUAcNsxi8 VGBiFQJsR1j+2VtA5RRBRJwqaZjTWPniQqXLS5y4ytfQjYgYZEtcIJRBxi4w zhjiPDfKqTcijskWCU0nYQ/ASvgZzaMz62Wyf4NCgYg4SaoXkWujE7tyhpgq rl64J/+JzXzXZz+vY8Kf0an8FafQuy7DwdiV1A041vP1uyAd6dS0EA6XJeqP iFM1EskGtFJHnctL9BDJ2NCNiBhkR1wRhRmRMGR7IpsoCmcMcf1HrrzOFlFv RCwK1gCsBHlSrZGD/YD3W/tdq9ViMhrCXBzo6tDrT7adubGo2n5JEAcRcZKU 6YrVI85cfH1O5YyICb9qIOA2NhMXHVXGjutO1L5rW81n+EPkFKjuLH1vIA+k FGf8nqg3HIZVUhTVR8QpGokshdKSR53Lmyz4qTxqeixXB0weI+KXS/brBrVw 3b6kLsGkImPviaUzFg6LnhhIB32PXa7HPt5HvUBjiBMUc0ScfoZFcYl2ptSa RkHTXzGQYjmPGd3lus1yI+LaLttqDl+3t2rtIV7tYkgQM3A0EjWaAx9MPDIx uhNCtS4KXAuhS4b9pJCkEZdWcTj8BlZJYVQeEdM7ro/YaYZyShC/UefykgU/ TQbXtsDHRZO/iFgdswkSFOGQAtUQ+mly+Dhj0CSEw2Feuo3HNNQ5m5+na4wz xTLH8Z1ZENebSqBsREyH/O57JgNz5tz13ti9xzlkctOcujOinZ2Wpb0i2rzp UOAXH8OS+/agLvZXyD05FChDyh6frYdTAnAj4twOBzin6LXnHfLqJCsHVw0s ui1JMhyyXwmaiAsIKcUZux01LR861BsOv4FVUhh1R8Shp5YO0rGitN1Wr+QU Ax3aeuq0/THs6rU1aDU1De29o6Z7bkJ4Zz+k2rSFGpc3pYmY3vHN3TcbBs82 11GayrrmdwaNt6c8G1Kfp/xFxPRPE/2/4g6dKxTUr/onflLr86duEolIyV5N 5KCV/ySCM4b4pMWbepNeP71z5thb5n8oY4wCLkMD61FR8Ohk1+f4sKWGfCey PntMO9Ixv6o1MkPvOkerY3+I3JNDgSLs+23n2M8gImJZliK0Zh8knIa6buuy uO8Keu0jLTVVuo5PZzcF9gE6+Mz15V/ufjknizoiwc/23oOslZBw/VLhcTvR RKwG0oTD0o0UHVp/4nI9WS9ABAGrpARqjog5e69Go+21eiWmaZITM2ub+z6x TM64Zqds1waawztz982FwF5g8d8Hm2vDHvWFKVWOTlPh8rKaiO9412bNfU0U pWs7P251RJZ3vK8hvN7UkW7TN5IsGvqIgRQCHnMX8yBmccgffdT4XiVOiV1t pzVdQMzolyp3PJu3iDhtDJvdr6W6Gdl5GqqCOAOUfXIoUISEY5OgjCPil9ND pL5dLs/wzreG+orkey266oNes3XH/t2REecL3s9uOEeaortubtXdqYSfim5W CCSfCgr7d/jdzpdoIi40qXYqm44eevPhKKPnKWfzoGhglZRAtRFx6rDs+j6b V8ol0iHfwzF9pMGQOyJkP/D0P3prK3Xnr3zSHrv6qqFpNXYZqXB5kwU/Fbqz fWd1Vdp2g32JnEb6yj/1u4iDrW2/5hZfe4mIGIhm1zd5kXnGsqp5i+qr80Z8 YsYQR01Ss9Gt0OO6t2LpZL37ykTE9ObXw7rUCUlZDBhNGw4XV+9wOkiBtVxF ekF+SImIy7k1hexazcXZexNYGG9Pvt4SMhT7G/bfxLcYofaTpINR3W75Ud63 jTtZo+rC9EuZf0GE22m83BI/oUD7ZwFItVPZ6D0m9Tx15+35L7SGVVIElUbE KWM7qlvGXFKeWGIaS3rZhP0Nx3kiQ1rVav5B8jNFB7ee+3zrAQUtreqWlyz4 Ydatcci2lJr9CZvgzsjqUieMbrGNxoiIgTj2t2c/bqIEh+Fm/OcR94zX3WJ3 nFV029IUEL9+bDpaqTk85lZK4zE/ea4dj+lUSn64qqH/L8vSen7ThsOyDYYu JBv2+AgutGsVCyn1FYeM7vK9c5yJEm+bl7Nw4OngwqctyW9p+K1DfH51Y3oo LlhSPerc5ZvYRkw6VkAMbXfWcJDco+Q9z5TqdqKJOGdC/sWvrNdH+vRMy14q TBPfgMFkdfx9Jeam7vqmPm4n7VQ2XkT4Rj8wtB/MfKOVB1ZJEVQYEdMh/6Nr 0bOXuHsmNctA+x9ciA0nre+3Zxiuy+oTlKoQtR8rt468dLqOT9hJUvlQ3fIS pRp8RVPJ9FZln31D3HcjIgYiiEdeWVsi+rm97xBv8R7plYU50G17lvJD9Cv3 2GFNZdP4vGJzR8hGIU1OuzQP0TGdFT03Htw19J3R6zu6Bgzmr55KPDCPp+xJ at4adeRdskZ+yIchzwOpQdakRMRFpNOuAPSqtTNZBpJN7yr7FF1a9Rc5C7ii 187b8bizOB7P4kZVSmSE3nKPtbF3KTnrXaW7nQd77T/L9OPlR7I0nUTb0HZa 39aQTjlV29g18oer7xJ2itLqr8xITe/S20t2QyymLlQ4DKukFGqLiPcDHutg I5m+rG0ZnZRWdJeYxqKhavsnMqvDvHCOxAsjJdbh077PezjZEN3FaSG9iGxQ 2/KS9Ve8f3LywkWvLSJiIAQd8k0M6iqYYumJRZ8wXo/bRTDjsN0xf/IvTJ87 X6KEnZxNWzJNrzkGDys9iDMfM1Wjqju5FO/RLxbM53Ss7ZBK6aQoXlKEBEER wNVQorps/kJfU0FJNOdGHmTRx9RRkgWiDNIzFMlaZaFiPNLBaLesyLmDRHUn qOqaatZeJVfdchZuZ5bJekCUpmsq69oGjJb/cq2knNDQgRXXf1mMA211qQrj GuZUZ8wpsX5p1+++a+g4HHt+ChYOv4FVUoycI+Jk7j5OtvsYHXjquNrD8qyo pj7LvMRsxc5Tc/w0lDpl8mQelEfuvdLq8HeXzW+nvF/VraZF+Z1jtS0v0UTM P56VcObFuvGIiAE/cSELOeDrIGNHxGlcpmgBoeKDOOkVSzvrogVFaaQTjYgF ShkzX2Fg3tLXxI6Gj3SN/624G4dJWEKCyujwAPnhzvIu5zbiKPTaRH9t/E3l d404/zAwZ+4+Ev+XWcgCkE3EreOLvL9LOBiy1oJGi1gYib/5p3e7SZ+KOmPx 5j5nPiu388j4IqpdpUMH3NfaI2uo7TQ6RJQzhX7+duztVKWMaNb4utWRJprm foN/8csbF/WHE+9PgYc0wSopRY4R8f729AcHOE+ZZOcqFFhxf2kaZNc/hB+5 960Lv0jWzNmYHIxv+xWd1gyVKxGSAoxS996Uiqwo8oskqG55993G+Ekxv977 623He/GDObGKkYiIAQ/sPEXO8L2t5NObrswvODfeUp2PQZzcAZo1euuKzD+x MzNygJKuW/iGcTJnPu3SkdenZP9IoUjegoIIioKsYAwVS0g2G52QUiPknxpN lIxWtP9hXlj+/XXQOxnrl2Q4pB97KP2wi2giFshnkSolMg6U2Q+4r7RQGqrx 4mQ4iqGf2bpJryptU4w0snI71armqna23cYTEd3WLrNHhKOYvrg6BWY81tBl o8li/Yt9+ptkRdn4pQF9I7tSq6qhz7JY2NEJsEpKISUijgpJMTxbXvy7yzlp HR9I96TVtAxbplyLy3zVjMuLrlmn46/h5+3dNh33K2paB28+8gWzuM+kSozA Rre/OB4vXpG693I1/OPk1uVXBMtLJMcFaqHJNLpYNx4RMchIyGvrq9fIR+WA g0c4gJgVkvLJ0E+Tw8cpacIyWf/VnLJpJcxf0GvtjQyxauo1zYhzd/cDyw+u 97JSw5Su56qY4/oig3TRpWpNgMLBmTeEhs0o9IsF09l4hpLS6n8/vZKxUIYO PntEhhLatw2OH4NZvOBEE7FQPouoBaXO2fyyBB100HMzojuRUMbm+m/phRMl kJ3biWcyG+KmWYSCB729/JVpoDmhZEbVNL934/NbybLnLAi/BfYfCm3mYJWU Q0pEnNrTKjNUTWOP4c7M0la21cexfEf0y/iLYcQHd2nIMK8kN2lE9S8v2Zwl UGe+7hioi/+u2J0fETHIhNwvh2BZCDFnJKkmTYc23beYIuFshjVkBbf4s3rE KX+pFukn1xztGvmD1fGNZz3N79CBfz6aMF9meRRhN6N/7O736hOUpkNbT522 PxoGutoatJEUwKjpnpu4zv2Q8DWntGvRO765+2bD4FlG2pQRMh003p7ybJR5 Ra7qiPYCJIFNiUNvL90bbUnEudThjsvmiYfzy77n64G9UOAXn2954eEXN439 xGl8bfPgn1z+LDceoolY8ECPcDDkqbiLiz+zWz5pr+UkKyROO1xPNNm5nWgi zoq4J1DZMHRvOX2idnfd8zfbtf9JtA+HjdSgKSkXuetzfkZEyuIIvymGu+5s 3wKC3A2TIlaJDvrmHLfHRwe6Tkdku6m6Zn3fiOkLl29HbaZdSQoeEYdvn753 6GOT1eF64s/mBDIJveO8lKyGEdhRiZAtm713P+C5Z+g+GlkPbWP3lQeTY0dz NLtqX14pdebEsbD4gwJExCATcr8cIk5pYrlg5iXS6T+4fuvG1eGzjWEvMRtx g6whZVgiKCWZy9YMSULVNLylD3M6dbhFbXPfmNX5z0IfmKcjWSkXvshPLJMz rtkp27WB5poqXffNhcBebFIAdfzC1HOROj9Uxx3v2qy5r4midG3nx62OyHeO 9zEqbdSRbtM36jsTKF+I7p4oSowtK15eB32Pbg62Cu+ozKNucuR04EM2EQvJ ICQdDHnGEtEB11hLdZqZ9eQsV4ZsxLcT35Wl24km4uwIPDKwtETiForhVDNX RCuzkeJmkHneArliYZkMk9xWiQ56H8baKiNZM/MX07Mupkj1+gd6XWV+HZ6C k7OyloogdPsFd1RiLF1OaZfQTiBafswcSpd4KEcU/AhYENpn7Uj4z6Kl8BAR A3UR2vA4TEOJNiImf3ojN/9QKikifsqOVaVD64tfWU2x4+t0zkFNg54Z7/jV 4rpKA0BChpQ7aHI/8PQ/emsrdeevfNIeu6UCrXyEzo/ubN9ZXVWKhvYr/9Tv Ir2ZEufRAAVh6QBEbHyWwnElTTgunkv3smsb2roiI1xdT9ZzPURnNRELFePJ XFEcXDQzuhOHOi1PUqriyCGSESeFt4mGlyzdTjQRZwsd8n9/d/xCV2NaCxU1 Uid7h69YJhMziHnYDVs8y9X3z7WknPjWNDKmzvaNV56WYfkMk5xWaW9z4U5s +gx1bPDO/CbbrNOBxdt9v9JoGoen/eWxgZZSRLxq60oc+AiEbK89pqMy7r2x aK60Q7l9v+1cbNOgunmfFpZDIl4KDxExAGw4k5ELM2qBDqw9L6yQiFjiRZKa TKMx9jcc54msAL/gEtmuxXy4cci2lLoOtNfaGflK6oTRjZYuNZByjiTzHB8g GrJaTKDTimzvzbmiOFbhkzEiIDzAHPfVQrqdIEZo3eP6Pm2nj0T2AyuP5fge DjIaJhmtUlSAXZP5qhgxAZflvfBnhMaIlwwlFBGzKnX5d1RZ916GqOMqNFmg uHnpNh6LrZlAooo4FtbUnLSIHWyFiBgADkQXXpQ2kydY6ItSKbT/wYVYQV19 vz2D4Our742HE2aCX5aETCRR2k7L0l7ar9xbsXTG3GqJY16BMnB7DRTpvgci ILYvSqi8Rb6KYvrF/LXTFfyDol4/Nh0l6wgO9dl5GygyUUi3ExQHshomuazS ztKd/pjqbsXpa/PpwmFy2GW5jK8roYiYbDXkGzb6hrX3srZpOuR//GjRL30h IofS0hW6igpi5hR/MyMpNCFlQg0iYgC4cFVzZRxKUlrsPbF0RptHqdr+iczi sUS4xL9jk5NDdRenNzN+Mml5StwEFAn0j5b2auKVweilQkE2EQv16hIDs9gl o7vri98tSuji3Fmy9Gj5goUo3MLpLBWnC+l2gmJAXsMkj1Xa35y5HB/EVtdt XU737L3yWs4kK8nlny2rTkooIiZHEPLfPuJYj90/wiQ3qS6bX/JvRzQSS/yZ SUbEvMdFr7en34+Xf1S3mhbFC1sjIgaAC9x7Uew8NXfGR7ycMnky1+qQHgV/ GSfRrnXY+D2PgCzhFGPvUgG7zhHyjREUdAJKQVaLCWRFiWxybZdtNflfMN5a teipc7FCUKrlilug0YN+5R47zAqJe6yr0sdwFNLtBOpHbsMkh1Wi1yb6Y+Oz KW231Zu+joJskJfmyRczJRQRk5NKeJOY9IqlPX6j2y0/Jp8GaXsvAfOUyqOO qGISjwpvRJzoX2AGnH48uy0hY4KIGIAUuCWgOYjAlCz0xuRgzMRrKjqtGerS IogWzCf0ivnz8qRsAtuZB4WAsO9ROyTXZFsgEbKiWOAukNlkVmNIJFIWOXR1 PzD/h/bwt+jO230ifDFWnSrjDZ4wP5Ge08jC7dR2WL0yuJ1A9chumGSwSvSq vT9+TsUXpNMh39dj3Udrao52j32dsfug1CiliJg40+DZmugt91hb/FCPNRgo onvQbHRLDcfCm/m7lZqGEedWtldeFCQ7+jO3ZdE7ro9iLxvVapiV1lSHiBiA FEhfMUKJ16JkwY7HdCq+pR/otj3j2XYIPVt+j0L8wHpSx6lGb13J/u8AMpAi RocxNwWCpYHAL10VnBtvqY59klV7HOm9PXDJKTwTld5bsnRqqUwaQekIuI3N 5JNCjJ4XTxZuJyvkz9btBOpHdsOUu1UiXHTBIL0cKaWImCiDOWhwpZ+2QKir aTjnlpGy+Sy2xGhWNJu9tNhINAhnKOqIjf9jONRhXpQqAISIGIBUuLKoaFbl QAoXUGcsXp5SMvEeRaQRJoqARi7RHggJ2cIj42AdkAuco7xOy0qGukt6Y9bQ muxYJIXB6We27oMHRmaEFEvjWr6CE8bZcLdWzZGh6V9E/+vYT0t2O1k7T7Zu J1A/8humnK0S/dzelxjVnq2aXClTShExU5hi64k+BmnP3KL7UvVxfbsu+kSQ p5F78+NNtdKr5fe3nR/Wa2o7yTKYkiV+5JX27Q6t2AcbYuGwaS6L0ZyIiAFI A7cvklXZUvbQO85LBxJrI5BAJ/wE/k+KLq5mi83i1hQcwmlkYDdGgfxBNhFn dr/pFwums1qqUX/6V7EPEpnW10vmE9Qxg0ugDZwOuK+1azOMHub/l8uWkzXE RWaVNSuA2wnUjwKGKWerRK/ZuhP/cUWvba34gz6ZKa2I+A0dWrX1MXX7XKVB OuidHu/RUYc6rj3y7yyaWqMuZkLtIei19mqlCCPHiFb71H/kEq7qKQmCCybG 9FC1fbbVZGcBHdp03+prigTLxwatj7MIh98gIgYgPRwnH+JaJKQAiJCYw+6s 4WDs0J5/Ig9RwyagkUv7rB2J7E8hpkUDFsQtjlDaIxFVDMsnj7ycjRcn2e29 dOCpw9ippY4PT/70atUaUyBKJExDXltfvXCIGlq2doejieqWMZd0x4MzBzZT VMt4iE77zHJ6ta68u52gCJDfMOVslcjmYg3VYfXBjeBSYhHxG0ZdwWMdZKZo Udr2kVuTMy7npPX6B3pdJaXrGZ/2BplngA56bnZoIzuY3jjh/Jv9en9DBbMt S1uCWLVP4/C0v2yeLDrkf3St41D4NdN1fMgs7+yUzTTUxixmpa7rqmN5O+ul QEQMQDrIQZYRE4dC0CSrtq6ESyvgJxBFkvzlzft+27nYglPdvJYRPoa64M7v FhiIA5SCvBEVDceP1UTOy3VnLpu/mJ51xb2yqpqW960Lv0ResERp8SG98Z7T ef/GwDFK22NZ4j3QCP00OXyc4h89zM9eIlCNvcTans9T3uK9VWtPBZ9nkke3 ExQHshum3K3SS7fxWOKlFMgylymlFxEz0MFnrnumkd6TDeF9uKahvXfUdO87 X5A8vadDm4v2a8Nnm+soqq7l3CWzc1Xi37/rs5/XaSp0w19vlpvJDW14HDcN A+8011VqqLpmfe/w1duOOV8wt3VARAxAWrj9bhkb1soPViqKf8ILebDA/0nC c2BNDk2FLA2tOWnhbe0CisOVoavotWN6dyEgb0TYyX8e2nrqtP3RMNDV1sDU mNU0tHUNGi1Tni1WGLu35fnqxkhve/gzNY36oc8ervAeZ0QrrsMBZsdNT/bO R7TxjYSb46A3vx7WVQiWAubF7QRFgvyGKXerRBabCc0HL1NKMyJWnv2A+0oL Fd6KP1sQGHsHxIKIGID0cAeFsNRKyxpi7KJQQpDo1WJ5FHTI//jRop+wf8nZ 6/wTVVjaKah+LDyc3lX2mBuQP4iZcQL5rKwJrdkHazVy+GCxyJogOb/pdXDl 6zH9IamaXaDckd8w5W6ViElhaCdJDyLi7Ah6TCdrEQ7LCiJiADKw5RyJW0O4 +iTMgMa49edXLyEO7dll50wYRXXZ/Mn/JOl78M1ef/N6e/r9eGFcNeRxCg/3 4Ig/NQMU4/Vj09FKUW9l9my7DEe17VdmN+XwwegXnrvvt9Qke1Oohn/55MZn V4f0OiondRRQpshvmHK3SqQANSK+tCAiBmoBETEAGeBOWUUrcRzi3Jv35Jxe sbTH/QSW/jDjkFQfNT0mfJaEWeT1PaJz96L+c9PHs9s4HS0w3OYCTO4uEISw T8Vh4/c8U2fUBB3a8kxZjINnW+oSkXHN0a6RG1/loI4CyhXZDVPuVomcTCcp 4tv1ub7xlEX6L7HI9fqhDw1cxu3LqM0DsrO/5fpzysNm+LC3uQIRMQBp2XYM JMQyNJA1TkBIevI4HvSWe6wt7ueyZiRFwiiOwCy96zJEG64yK3/SO66PYhW6 VKthdgM+c6EhZnoWWSxWYpDCPg0jzq1CX0927Ieyk+oCgEF2w5S7VSJmZ0to vIpK3tUPONbEfb6oSR47pAOxCVACPHUASIUseSpqV1NeCCufUXAsIWMbdRXO 2fyJ4+5XXssZKjHwJUGiFavVnFYtiw64xlqqI193qMO8iIPjwkN7rR1kM2iG MTpAcbZdhqbYTcDBHShTFDBMuVul10/MJ6IfONBteyZ84kO/9No/aKRy0HIv MhCbgPyDpw4AqbBGKiAFloResfXUZQ6Col5H9XF9uy66cqTOyd78eFNtuhbg HY/pVGRgzBmLN2WZQyv2wYaY42GaQ4OhGqDXbN1kD3HTtcU93JhCQDQRV3Tb 1nATQHkiv2HK3SrRO+6xpkhUTbWaPHw7JB3aejxheFurOdhueFAe4TAAAIAi gdSQDJOa2SxT6NCqra82Muiz07JEWHk66J0e79FRhzquPfLvJAaPJgSXgl5r rzaTRnRwwdTOTIqp7bOtJv0BOrTpvtUX8Smgt6MiQmu2XiIgrmQ3hoP8QTQR Yx4ZKGcUMEwyWKWd5c9/28B8NFPm93Vw/fHUrQ87WNO0AQAAAPXAUZxGXWiC /YDHOthYxfge7SO3Jmdczknr9Q/0LJtOBz03O7QR/0RvnHD+zX69v6Hi+PDk TxkURuiQ/9G1jkPh8ErX8SHznbNTNtNQG/MNlbquqw7o7agH+pmt+0DyzUib QwF5ITl2hjptXoLWNyhnZDdMslilXd/Mp126SmYyeHO/0XLf6QrzzbT9rsVk GNA3ht9fSnfm8q2Hy2WhpgUAAKDoIJUxmJrEesO3mCmYgA4+c90zjfSebKih NDUN7b2jpnvf+YJkqpAObS7arw2fba6jqLqWc5fMzlUBwc3Qhsdx0zDwTnNd pYaqa9b3Dl+97Zjz4dhcVdCr1k4iQ1zRaV3FDSoQ9OY34x2HK+pODt2eRwUF APIbJjmsEh30zTluXx3u1TdHtdW1DW36roFL4ze/eLjwUwBl0gAAANRMUhkj woFLzh1YLlDmRFRokm/FoT77c7wVAAAAAAAAlCJ7q9YeIht2ZGj6l0JfEgAF hVGhITTn6j9y4ZgIAAAAAACAUmV7aqg2mRCDmisob4gRnAzV6ZTDAQAAAAAA ACVDfAQD5GsAoNccg2Rvfa9tTaA1HAAAAAAAAFDUsHWEMJgYlC+cdwFacwAA AAAAAJQBL1yGY8m8WKaJugCUOAG3sZlIEPdYV1ExDQAAAAAAQOnDTo2hdxKU I/TG5GCypx4JYgAAAAAAAMoHdpoYY5hA2cFuqM9jgjg6ynN8dKDrdGSWJzMS tG/E9IXLh5cQAAAAAACAPEGvTfQnE2RIE4Pygp0grmoyfpeHBDEd9D40DTbX MGFwTWOPwfzF9KzL5Zy0Xv9Ar6vUUE19lvkAomIAAAAAAADywc5TM1E6jW5i UEbkv5V+b3PhzmBjVUTg/djgnfnNECv0pQOLt/t+pdE0Dk/7ERMDAAAAAACQ D3a+NdQnYuLqlvG5YKGvCIA8wO6jr+20ehUOQnd9kxcboxlp7VnTwovUn6OD z1yW98Kfqei1byh7MQAAAAAAAIAo+xuO87XJVsouixcxMSh12DOIqVaTZ0/R gHhn6U6/LhoOV5y+Np8uHN58OBpNH4epMbgwEhkAAAAAAID8QK/a++sTwUFt /8QaSjZBKbO/7fywPhkPt48vBBT9uc2Zy7HssKau27qcLth95bWcSWp8HTV5 Xit5RQAAAAAAAAAC2vd5jzbhj6ONEZQ0wbnxluq8CWoR+nWUttvqDaV9t3YW x1uhcQcAAAAAAECBCHqtvdpEikp3cXoTElugJAksjLcnTn+opo9nt5V81MkC DOqUyZMp+KZDvq/Huo/W1BztHvvalz5qBgAAAAAAAChGyGvrS1SSVuiGv96E Vw5KDTq48GlLMh5Wul6a3nF9lHypOq2reKcAAAAAAABQKyxtH9ROg9KDVS+t PWn2KFucTD+39x2K/9yhPvtzvFAAAAAAAAComP3A/B/aEyNpdMMOPxRvQalA b8waWuP5YZ6WXvl+cM3WnXibKnpta3ibAAAAAAAAUDm7q7Z3a/MYNQCQF0J+ x7AuUS7deHlG8U7519uO9yoTv9hh9eFNAgAAAAAAQP3QW+6xtngqrbplzBWA Jw+KG3pvydKZUFPXdpk9irYPR3npNh5LZIiPjM9Dqw4AAAAAAIDigKWy1TBo X0G5Jyhe6O1HhqZ4gzzVPDqznpcznp/tvQfjL1HdgGM9H78JAAAAAAAAkAM6 4L7WHh/HVHH62vwLJIpBUbL3xNJ5qBDHOytWfU38d1vHFxUdegwAAAAAAACQ Fzrkuz+ckJ7W9liW4NKDYoN+PnXheLxa+lCHaS6PLQDrjoG6eETcZfWhzgIA AAAAAIDiIhwUPzC0H4yLEV2c9O0W+pIAEA39YsF0VluYcDhM0GNqyyoi3vW5 vvEE0HYMAAAAAABA4aEDc6aOQwiKQZFR4HCYuYJX7rHDsQtoM3mC4v7Vrm/y YiNVP+BYU/bqAAAAAAAAAOKgA4+tg8eipafUCfPS60JfEAAC0Duuj2LacNTx 4cmfClOy/PqJ+UR15CIOdNueCUfk9Euv/YNGqqpx+L4PU88AAAAAAABQDyGf 695dq9V69ysPhjEB1UMzD2z4ebX+1bH4S+E6eOkd91hT5CyJajV59njeHDq0 9XjC8LZWc7Dd8ADhMAAAAAAAAACA4mdn+fPfNjBBcabM7+vg+uOpWx926Cop Xc/4tDeIaBgAAAAAAAAAQImw65v5tEtXqdFQNc39Rst9pyvMN9P2uxaTYUDf WBP+L3RnLt96uAw1LQAAAAAAAAAAJQcd9M05bl8d7tU310XKqLUNbfqugUvj N794uPBTAGXSAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAMqV/x+ywd48 "], {{0, 153}, {1286, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{387.4285714285736, Automatic}, ImageSizeRaw->{1286, 153}, PlotRange->{{0, 1286}, {0, 153}}]], "Input",ExpressionUUID-> "839d7298-580b-4d54-a7c5-5695c98a363a"], " with ", Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzt3W9MG+e+J3Br982+mBfrl7xAYoUs8SJShJClJYoqeEGUCAmiU0UobYRM dLIG7eYC92zhdBVI1UCPGlfbA7onTnVqndbKvXV2O8q5dXpxc3FbyBFOi8/W UUA5TgM9JsEpUEiQg0wwmaw9Y48fG9sztmc8f/z9SHd179axPfiZmd/zzO/5 /f7L2f5f/bf/YDAYfvOf4v/Pr3qGW//xH3vefv0/x/+PU//wmz7rP5z79Yl/ +J/nrOf+8b+e/Y/x/89r8f95Hv9fEv/7KwAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAGnshuc+spprDAYDddwR3Ff66wAIeLk9+05DfLwaalsGXIsRDFkAAAAA zm54+lIrZWDVdUz6I4zS3whACLP+zcXWWnbQUibLJwsI7wEAAACYZwvO8+Zk YF/bOnorHENkD5rAxMK3RhHeAwAAAHDigb3jnMmAwB40iomF6F4ThfAeAAAA qt5u2HPBnAzs43HRtWAUgT1ozn5k4RMLwnsAAACoamSOvYFqvTy3hYgINCq2 PjOeGsxG8/AUHj8BAABANSGXOg0GUz8diir9lQDKEQk6rXx2WZvtzjaiewAA AKgKTCw8NWw2ppbsT1yceYI4CDQvtuIZbkmOakNjj+vBntLfCAAAAEB20UWn pTEVAqHiJegHs33H1labmrR22uY3MbQBAABAz5jNeVtnKhfHYDx97eEewh8V YLaXbo53NL87u/1S6a9SEdszI82vj964L/W8kokufNTBj2/zqHc9Ju0HAAAA AKjG/tbspVRhHKTZq0ZsdW6yx0SdGJ1+VDWRKJcef7jL9o3U+14jf3N08wln pl46hH21AAAAoEfM2tRgA7+m2dRLL1dNJKlisUfToyeo6grsWcneCjJ0VdgL Ok+b+BnsaWcQifcAAACgN8yqZ7DZgPVMVUnGt40Wx12N7XqIbS35/u2a/b0h 65vtTTWJIdXUfsY6bHO4fUtbGZMU5pf5ye4jIzPbB98kmSEmeVmbzMwcY4/z 4Y6E7w4AAACgtNiaZ7jBgGhHVXZX3W81GKiGAfdqwXkWszH/zxM2uUx8Hnha RGsDJvrYT9ss5ng8b2q1Xrzi/Fevb97v98/PemjnP410H4nH6i0DTv/6Lvtq bvJSc8xxP/dGgr0Hrp5GGZ4iRRbsXdhXAgAAALrEbH07yhe9NNR12O8iz15p TPRvf+qK/yYNw561wlFtNOg4ZZDRm87lXXHfeT8SvDHaEZ8jNnSMXveHd3KF y3tbC3T8NVTLyNTKs1R/tDabP8eyPfd3iIXoXhNloE5NBp5KGH8z23PjzfyY R2YOAAAA6AWz6Rs/lg7lmt/3baMFrdKid+0ddQZDU597RSCgfXnfcayG/eWo +vYhO+31B0NPnkZz/Kt1t5VfqjYc7r3+Y64XvYw+DS8HvnIMddZzL6x52yuq OE+qkXH96+Nf/ZTrndOYiH+yo4462vKaUcxHREMua/yFVNuH81KOzMxnVaZB dxjRPQAAAGgdsxd0pKteGpoHPavITlDaTtDxBpUowe4ICuSKMHuLV9sSP1yj 5eqd9YKpO/uL9qP87ywYsTPrs6OtiVcecwSFQ/vY+sx4KyW+aHzGqDP2ezYL vzw505H6idLeoqOzLvUXoRqGp1HvHgAAALSNCdE96cVLEcEkyI5ZpXsSC9pH hr1rQj9GJDDRbhC123R32flm+oe20GGB1zMvApNHxATe8UB9ydVjoorLbGEe u3sPsd+lttP5o9Bh7m96LySGqcQ7QZgd/wfN6T/KyYlAvtQgAAAAAPXLLGgv KpgEuT3z246zv8Zk4IXQr/Hih4kjRkPzB/6cue0Zfvb0H+ZX7fPuXSWF6W4D 1TgREMiD4aeHor4GLxame9mV+077oohwfe+eva0msbqes6JOyTLntsYeGk+t AAAAQKsychKwaK8KqUX7+tOuZaEfg9nxvXfIcLjP/Vj4Z3s+O1LL/9QF9q4S ErF9fTe9IvAdkkvf4uYLhJjflkjpr704+1zMqHsRcp1NzAWMffSqhInxmUv3 mN4CAACAVqXyHBDVqMjukvNMIoKlzrpCL4Re/NQ31iJytby4ZHvWy6DjmKHF 5o8UfNXm7AgXGh8d8z0TfE8SF9uLyPlJSs166k46HxQ1iRB638y0tNOuULWc Bkzs6UOf5880/ZkjUUP1dyP9Z7u73+joGP4iJLIyEgAAgHbp7j6YuWhvaLu6 iEV7xXE5NiIjzJ25sUO1bfZ7Ilaxi022T2Bj7x7XSsG33w9MNHJ7YgVnATnf X0yyfQqfoi8mW6kIL7dn3yEmucdt/uImKZq1v+4+n95Gn85M+o1nE5WyAABA 93R2H+TSOXgNPXTVrFaqV3L7qrjtpS+3vW/XiFref1VKsn0iH94qnDCTrqt5 qFdMahD5AYnYXlyyfRI/Q2mfCBQ3jxCQmlIlz+nqybqPRTbCcaHgdw5rTer4 O52C2WAAGvTL7Eh7+8CH16ZuB4KhcPiXSHZhMSYW+SW8Egz4pumP3+0+NjYr qvwvgJph2AvR030wMw/B0PBO1f2aarSzaO/kRpWIiDfit7WIjUJLSLZ/9Tww cVy4AGYiJz8VEhfX3ZXZCfyxp8cRKGL7LZ9ZVHRuv5BUMn+S1HMH9dv2DiWv acaj9ntaXK0AELJCd9cfXJ/LjTr+26mf0PECtA/DXjTN3wf5oujJo2i2fS9h YcHqEA15xjrqa82Wj+a3hArJRB/7v/rzja/uFq4//4r50dnJhuCitpcysY2l Bxui8sFKSLZn3//HuysRge+R3BDLEa6xXy5+kiL1nJpZc/emV+6lrsajesQI aR6ZFbkBAkBbxAY5lLnPPrdauB04gEZg2Iul/fsguwcz7Vf2xedKfyWNIUJB wT2km74xbiLVYHWvFnyhp98oR+BaSrK9aBveoSZiLNWYLe9/NrMYjshzhWB+ cnXVJT5H+ly4zAORuBqPyhEjRKtJhgCCRAQ51BGL7YuFreo590H3MOxF0vx9 kNn0DNQQv2oVFQaRyv6m5zepVd5TjmDBXqnppzx1Xa6fCvylE9tSudeN+STd nl1Csr14WTUkeaaW7iGbg/beWfhpKyrd+EpkIrHvX/TWXSFZO1CkrsajZuk+ YiLbEANoERvktJy32Yatp1oywp36lq7+cYf7ztLTKg9vQH8w7MXR/H1wb5Xu MxK/rog66pCFL/wYjwHHfbsF/n7M89mLqVT34xOBAs9H2L2rCcWUjhGjlGT7 YjAbc+PtObaZp9U0dfyPMYfbF1wvO8rfW3H1cONWqPB+8RJ1h4jjkLgaj4ql p5/UYdu8Nst+AQhig5xuOpz8P2ORjSfhcPjJUwkXHwDUBsNeHK3fB5ll12li 6ia20AoQ9u/ZjyanR0Ll2fntsYKJ7vyKdNOQd0PKL1tKsn2RYo+846+LSOmr MVuvzq6IalWVB1sdiAvubX6p836yctWqZEcts+u3pZ7rSDz2ANQkK8gBqAYY 9mJo/j7INiQiQnsk5BSPWXam4nWhNXYmRFtMydd2uVYKvZTPnJE220TWZHsC 83zFd93We0w4wjedcyw8K/lb8Jt3xTe9Ei0rLYc6NDZXBXvMo0HHqdQR99Lh at5KBWViYuG/2K1HjVb3utJfJRcEOcVLpIoe6hi9EYxoL/24Uqpv2OtwVGj9 Pkh8f3btU/sJOfuRlXt+gnBpl7I/kUi2FypWWURJJX7DS1El34WQKWTSJ9sf 9DK68aPfSztsQ90tJkMeVOvlOaHiQnk/gJ+cynGPzkrLOfSer5gSnZpETj81 mWQIKrEfWfjEYqIM1ImLM09Uedogti9BJOi0mgxUfcf73rD28hTkV53DXnej Quv3wb179jZiG63hTeey9n4XJvL3O1P/fGX0fFf+6JHdJDL6e8cXt4MbUk/A iGR7gRQX8imPUEmldINXq5RzxvTkwiBLsn0hsUg46Pf+q/PKRWtr1i9V1+lY LHH3Dl9R/6h9Ufo1A+LHTWgZ8z2V/DPURetJhqAK6QhndPqRWte8ENuXhHm2 4DhnSqzJXJrWRyAnmSoe9jobFRq/D2Yl5GhsehJbC9z86MIpc8FtmzlQTSf7 bf/iXVyX5tQjku2FUlzIpzzn3esFI9F0oXgJY3tyciFbsr0Ysc3g9BWrmZhX lrxTlY/tZUi4J/P5uZ9NF2k5TOzpQ5/7T7Yh66n4dJirjXAzwHYi0HySIahA KsIxNPXSy2qNcF7pPbaXoeVK+h8kCyboJJCTRtUPe42NCh3fB7MScoxHJn7Q wjZaJrb+A23ra60vNqg/GOSfvnD1izuhspJ2iGR7wRQXovik4DRKltg+4xc3 9rrXlHxkyMRCdK+J/xF7XCslrdzLG9u/YsK0hRxoWk/Lif3sv/Z2e+LcaWgf +L1res4/P+O+OtQejwF6ry1Enms8yRAUx8RW3QMN8QFW2zp+e0vV58rBICcW 2VgJBhLJnIHgyoZMXTkqQpaWK6TYMt2b6ABCtX04v62bLOuSYdhz76SRUaHv +2BWhRwNNN7iovqzRa/UC6DqW61jJabrkMn2QpfQdPFJEU955IjtyRQyyUtr lmIn6Hgj9WOWumVY5tg+3R04SdLtDxXFxMK3J7vZngmmnsmMhoP7kYf/t7+h xnxh4nJH6mC19RQP1IHZvmNrSwwhY9ef/qb2onp8kMPEnga9jtHsPUGU+dTQ 5A3/Y7UfRw6ytFzJwmx9O2qOfwhl6qVDsvYfVz0Me57qR4X+74PEvJ6l6sZb eaJ6qqn93NDYhMNF3/T65lM7Z1PbaX1et8sxMfZWgV2c2ZJp+Z/d8Mwm3s7/ YENgcBL52EJ/QKL45OF+z88CRyxHvn1Gsr2EMWps3TNsfuOz5eJPAeJvUrja f358bN84EZBl/BJlSxMqsAFZDvEL2q3RVvZ6lbsw0f6m90IDcWppMckQFMas egbZ66Gpz7Wk/ikwG+Sc+eOMx9ZlMta3D111+4KPuNZ6schKwHOlj73jNGiw AIgcLVcO2t+e/7At8ScydTkWCs4fdA3DPoOaR0U13AezEonjsZ5TpSVyYmuB 6xc70hk4pSyzM5GQf9o1MdTVVPSaf/OQdy3v+xLJ9kJ/wFiY7k19uJg9y3yd HKFVF7Eyk+1rL86WU1c+w4Z3qKnE/D0+MhfcgJCHvHVyEsh7H/tN5SscKhtm /ZuL3AXN0DzoWc399V/8MHGEn+2LmH4CZIiG6H52GcV02hnUQmPL1DWWahv4 LLCVYxlnNzx9qTVx1aZMlk8WNBTey9JyJRdm0zfOXoCpTtv8ptaui5LAsD9A raOiOu6D235bGxGwCJZkVER8kvWNrYsPSBvahz7+qsw9sLH1xa8+HbOKqLvO MV+azb8RiUi2p4SWjdkAmCOqosuq28pNH6Wqb5+ZbC9hNfjdedthqrSMGGbF 1cV9oVKffMlZ3z4pO+Ve1U+4ctl74Opp5EZpw+BU/k0Wz3xjfFszTZbMAuUw e0uuHnb7DNXpCO6p535eABfktAx7VvJeu/goJX7uDLhX1ZhjkIM8LVfyvEEy B0P1KdaywLDP8wYqHBVVch98ed9xjFy2V+Fe4N3wzIddyb2WNWbrFe/ytoRn DhP5u4+eHO5uLRTkC8w6yZxGoT9gOsfGUDsySzz43N1Y/Ovi+sHxI3VfWtmS 7bmV85Jie35JvKbNfq+kFQ9Z+9KmkE9nEgT3pqnKzkNnT6qQ0xuOYP5HxuQI kaWgKOhXag+dwXDc5tfK2bEdmDhzcvL7wvcVZpVOnT9Nfe4Sgt/Kk6nlSj57 q3Qf+3G1bRN/VX9KipQw7PNS26iomvvgutuakZ1SapUSmaRqpbJB2+tjNx/k r2WzHwneuGj59QXHXFhs/a5nwRvvdJjP06FERM2m61y3jx9My6/rmPQXrKFD Fj8XmN8RCymZtQgScWNdrhTuWJi2cl+jqP1NecmWbM/lGpUUWv8yO8JOkI19 9Gppw49vs1vfTa+U9A5iZFW511LKPbM5PdyQPNWNPXSex5Cs9F7vrOknQGGx Nc8w+5SRMvV9obmMNQHkvb75A78GymTJ03KlgOhde0edcNSkNxj2BalpVFTN fZDZ9Y3XkWGsjIuexYs98o6/ziWEmbo+nBEolMqnC9a2jt4SCu+TzaDZ3zjP enhsI5hsaSu0kZZczhVIF89btYCN+XP3kOKzTaT4cWROtjeUsF+DiYWuW4zs HMp+t9QdBfzjM6kyl3LaW3H1kKcLpdJm4geRlYgO9bofF/iJitvrDcDb+d7W zF3eNLR6KR65m16FD7gPkKnlSiH8Iq1Q4KQnGPYC1DMqquc+yK92qi9WiT2a Hj1BcbH6iHtJeB8H8yIweSQ1Ags+PNoNz/2hO5nkI2YiIPTB6aV4oeURfgKb HVezi975SqZvevq5E6OkNMisbyBrsj07hoqcm6eeZpZVNIz5ydXF/mHlzYE/ MBeWcnIkp525sUOpSxp11hUq0L+CvCZoMMkQFKOeO7hM+Eeo7JV+yFvJZt4l kKvlSmHpQPfYuE9F2ydlg2EvgkpGRRXdB4l9nezRylU+sFjpVJxiYm++1kqB ZYr4OzvPp0poShDYZy7FGwolNTGb87bOdAIUGagzj929h/O2OuUrq5cfScqc bM/97YuoZ5uawZXbwI5/fCZ3EVpijGnnrGd2fO8d4r+ywJ+o2L3eAKz07fvo yOwvSn8bWaSbjWjg7JCt5YqA3SXnGe42R510LmklZ7FkGPaiqGFUVNN9MHtv oEoePeyGPRfMJcTeZNyVM38l/SxAqsD+1YEc7MYBz5Mcb8rNVqjW7jOvJV9I lGp8ueQ8SRV4nMc/FCuzDOZ+JPCHjvTsQsKtoHxhT6q+qbFe3KMWJnKfHj4u SWfq1OMz+as8ZVzmDNp4NJ/xUFXo3s0/f9FkkiEoJR5JvpXcx6ONXPRSZJz9 ai+TJVvLFSHE7ktd5qiQMOzFUsGoqKb7YPZG2lLbBkmJiYXo3kTCDGXqcS0V U0uKWDrOFdtnBPbSlSnOnh/liFSZyEPvRI+JOjE6/egFP8KPTAZesEcXC7kH mgs+zuPTjepPu8QmszNbi7du0EmfO+22342cP5lV1Z9q6nprzDbh+Cz1uj/f WizteRk3yWX/qtub3JMRynzWRn8fytW3momG73r+YDXHL4q1LQP/Etgqc/s2 //isfSIgX7I9h283kLzSqbJmbBa+jKrwZIQ4iVQy0wctePnAebKOHTZa2mDO llP4naWlob61zzb1UHDdJHNmL10zQTnI2HJFSOIxdHJ9tGbAo+e8HAz7Ij5U 8VFRRffBRDnGjFCvnE00Eok9dFnYv7951FtcAXvyAnXggUtGYG+gOv4QkKj/ CJlsb2w5cZxtrRUPay87v0x0tPVN0x+/222ure94h174hT0evh9EY/fETZ/v 1qdDxynBNnapNgrGXnf+cqykl9tzv2vmVtKb2s90F/ZGexO39tDQaf+hlH3s 7CNdYlKz9zQ4NdHL9Q4wtXSdH7k86XB9zk4yrowPdbck/ko1ZouNlqSNO7Ps Os1+FD9dkhFfkjT1o8tWTl8yGdPPwvduqe/yUBXIvU5StdirBPaBKX9XKJx/ m5AR5KjhdpmfnC1XBBENMUX8VTULw764j1V4VFTRfTArUVwNRXL4WlKto7Pr RVZbCdE9/KSMyshdzwzsDQ1vuVel+rHIv2F8fvck9vShz/0n25D1VKKQJlXf cso6POGaCT7NSP6Jh75ffzrW3xV/TX1r98gnt1cE0+hT6WrGfvea+haLNqYG Woe/CGVd3BJ9q7+mHRNjQ9bu17l4vqn9DUv/O1eu/ZsvuC5BVM9KPewruTZ+ UbJL5WggGY+8NAts2SDu8hkBARNbv3+nzG5xoFvP/LbjyWEj94YXKWXdAQVL bGV2plbL5rScZG25IgJf/8FQd9L5QDMjojgY9kVSdlRU0X2QzD5iSVCGpcxv xG1LKaFILLMXdBD7VFvGfE9T/+VpYPJU+r9I3PuY6FxG9cr6iDYVwTb00CEd P+Qs3ouQ6yw76ym5Nn5RMi90hpL6s1cYce8WuAcRKxuZ9RASubsqKqIFqpKu PqGJFLW0zERiwQtIxrxe3Vm4srZcEYFIwNBU3FsMDPtiKTsqqug+mFUkR/GL VWpbSgkNDphVz2B6QyvR9Hl31f1WQ/oQm3rpZSnjb7Krr+xjNblKoJ2W1hWx d8/eFv8JjM227yvTFYPYd8ZR/9NYYo8AsYP7IGbF1ZV8nclCTiHLucuDzpHV J3J36FAtJkxbKO7p6uSNgOADUTJgJpaPVEjmlisikCUE1X+FLAGGfQmUHRVV cx/kS4KnLgEKP2NMzelEp5Tz9rdmL5nTB9I86OG2pTJ7S64eUzqxrGFwqsh3 FvrKiXOEe3PjkYkf5E4gSy3d67bWVvH2N70XEnO3Ci3as7LLYJbRxrFCiCd0 Ba5pGU+4Mi687MaiCuxTBi166htrSY4a9T/DysJmcootS04UxzZarost86sE 2VuuiEDsRiyiBIR2YNiXQtFRUTX3wexqfvXd9IqS3yeZi1V0UUFm6/Z4azpL wnj62kNuWTu64Ojia7kbqNbLc1vSzl2IvSEVWsaJLNi7KCzd8/YWHZ3xG1Nd p2OxUpH9q1e7vrE6NZ04wog9X4dt/t2cI4ff4s2dRWShMzbrqRL7lEGDimh+ qkLMTmCyjWoecIeEVi+jIZc1eZyCpQ8UJn/LFTGI62Tx63Wqh2FfGiVHRdXc B7MLYCq8/JicahSbtZ7qamrIHn7JMDgV2UubZs/Z9tvaku9fqZk7s33H1lZL PJuoZsmd11THRwtS7csVI7vqqdIPvMRgVtx93GmSc9mBu6DVnejuSj7/Ilfw EllPDRWdPYF2EEvEGss6TuKW6YxvTn7/c/4bz35k4RML9wiYOnFxJlcHExWp QMsVMYiSg5pb2RaCYV8qRUdFddwHMx7bJQhul5ZVqq9xUbV6sgrgUO3jcxvJ bJyH106n4y+jefTbLckvx0SyfQVnoKn+Uw0XvKrunCI7ZuvbUbPRQHXZFyo8 brNK3Cu+UUUMJrbqHmjI0TaCiYZm7X1mqtFy9c76DvccxEDsv4uG6H5T1Q82 yKOYeixFYqJrizP/58rof+9oSj0dNZhaun/L1h0r6QbL7Mf2c12mY49nbG+a qKPWK/+e451jm8EpW5eJK258/tPALyXv2KrQEVWi5YoY0aDjVOordNoX1fyk o1gY9iVTdlRUxX0wOyVH4TKexcb2TGz9zlULUZ7f9Our86kZ6F7QedpE/KdB d1j6yRaRbF/hzLGdJVefyUA1DLhXVZzzKS8m7P1ti/Sbo0XJ3oReeGOOauxH gvRwInuNMnWNfTY9l2q+UEOZ++yzIfbRBxMNXrNwneO6J6Z8f/F8PNhiTAQA qq/6BYogCoVJeAdhtpe9V9jednnUvz5280GkqIsfu2SXN32C/8T6Y9bRf3J+ 4fX5/X6f9wvnhwPt7DJj/fF+e64QSH1HVKGWK8LInNW6LtdPOrpXYdiXTPFR ofv7IPkX5ijcZS/ZSEtMU4PsUyD+G304k16X2Au7B4nIvkAy9n5k+bbryjv9 lt4h27/4wsWdoenJEXXGuVTZaRGzMTfeThkaLY67xZ3pOsHNbuo6Jv1KHH52 +yoNFXljoo/9Nx1j/acT7QbqW7r6xx03/xqOkt+eiW0teq6OnmtvoqimjvPv OX2rWriggRKYH52dqb1OAiWjRb9l5D49fDyzgXZORV39mB3/B81CG3O4JVP7 eKI9SbLv3qme/tE/uLyBlVz9tVV5RBVruSKM7BSvhYebomHYl0ENo0LX98HU OjlP8Yy4VHH7QsvRsbXAzatD7URVS9Mb4/QP68Trmc3p4QbiFMnX7Cm2Opd4 BJN+IdU2GSimJgCz9Z3dcsTYdHrk+j0FIkwuH4nSylxSQtwqU23r6K2wMo8t DjSGUL7pG4AS2IbUSRLMcJlY+Btb12HhACdJ9GM7rrOhAo/UK39ElWu5Iizd q8hg6HTqp1YOhn059Doq1ILMemIpH5/E1mfG2SeDVH374ITrls9/byXybOWu f37WQzv/adR6jEwioppOX3B8sxzJHLTMpm/8GPGq3GXPmchdRzKfp7al/6Mv nEPs1gmFn1wULT49mUzmTGrqe5eDC+wPd9m+USiwf5VjXizR0g2AtpDpH+W3 dMmqeEYwtbS/Vp/rPxhM/XR2O+wcb8yuXlamb3XmB1f+iCrackUImfhbN+7L XZlEezDsy6LTUaEaB/IKlI/tXyUiN+/7HfUFH0zVH7OOOdx3/p5rqTyrO23c r+yLWc984nPkW6PJU4lb+01VeVL8yUUJmO2lm+Mdze/Oau6bl2Z7ZqT59dEb 9xXNRDoQ22tuVqgiz5c8H9vU4mPPkn4SByqAvEuXewPZe+DqIfZP1XcMTLi8 geX1dFbAy+jTx0G/59NLFuJ5K9UwPC1QAY1bvaxkCwyOEkdU4ZYrQsiyA/q5 SGLYl0efo0I11JszzESWZl328aHe7hRL/8jlCYfL/bV/pWBMF3vosjSQx0Sd doUy/sHBwJ6v8lTbNvFXPe3kB9lklY/GBaoMB7b0K0sVKxyaQU5yazudP5Yx 4SZKFlNt/R97C27f248sT090pyIige1O3Opl5fpWpyhyRJVvuVIYWXZA2UJ8 EsKwL5MuR4V6ZJXA1UqtjwKS1c4Jh3rdj8nzjnz4Zez6471w0HuFS7mnTJZr wUrWSActOxCQ6rKpekUwj6YGXxOxg6wiqNcGpx7hKiAaufGknA5uTHThow6u inbr/6KDz0T9BOkCyAUDGGVWL5U6IgVarhRELiFKXCtSORj2ZdLlqFCP7Brd Wo/tk9XOSQ3vZGSqZDz8qmk6cayJCymoo1b7X5RL3gbtORDbY/EBqhB5jy6j 9WGqZPHBMuwC+MaFWZf6NIVWL5U6ImVarhSwu+x8U4owWFUw7Muky1GhHvqK 7bN6Z2fOapnIyt35bz8fzXqBgWrqGpr8c2Bdwar+oEmI7QEkera+v+m9kHje 2vCWe7XoSzGzNjWYqIqWZ/WPWfMOH6n46qViR6Rcy5V8yPSVmmOO+xV/kLAf CX3vuUHTLsdEYkPNpSGrpbv79Kmzny6+KPnPg2FfJsVHhb5pP7ZPhOzfz3r+ TH/utI9ZW0Q/16daei876K8X15FYC6VBbA+QeRMp9RR4+cB5ss5gODLsLW2Z eW+V7jPGQ4Qh7/bB915ynqSohpGZg/9JRsodkZItV3LLKDugxGaWVbc1M1GX U9buQgz7Mik+KvRNi7H9fmTl/3lph23o1+1N+Xu3ZYfyTe2vtxCHetzmf6b0 gYC2IbYHkCLIYV4EJo8YDMYeerXkZdSdubFDVK708md+23ED9YYjWMnEBCWP SOGWKzkoHsUxscgv4YSlwPVhc/KLGI/a75VR8B3DvkyKjwp9y47tjf2eUvPG 5La7sfi1a2LoVGY8H4/Zz1iHxmzv9rcfnJg39zvvrCRL32e2qW2cCKipjQNo UbKHMmJ7KIx5Mvve6wrXAap//b3ZJ/IEeuRNpMe1UkICANdmpcyKLmwwY2iz +TPWKZlVusdYXvhUCv0dUTmY57MX+dLtikZxzK5vvC75RcpIkk/AsC+TekaF LmXH9ir8CzORh19/eqnbzIf0ppbuIZuD9vpDqUUJJhaie03Z6ThUx0cLfNGb Fz9MHCH22Ha5VtQ75kEjwnR3xohDbA+5qKPCp2zX9vLrVD8PTBwvtiH4Adwq aFbi7vNF+6+UqAOpvyMqi5Sl4MtCNOs0/sZTVp9WDPtyqWZU6FJ2bF87Mqui ri2xn/3X3m5PNrGqMXe/63B/F4ocOB/5DeMZyBy2l9uz7xDL+pSp74swYnso D7Pi6soYcojtIZcqWrdXtMXD89mR2sxHz9szIw0U1ekI7mnzcq+XI1JLFMcs u06nvkins7xtxhj25VLLqNAn1ebbM7H1O1ctXMpDQ/uQ4+vl7TzDNBqi+02G LFTD4BSxOyW1pZ060n3p06+wfxakgHx7gMybSKd9UcH8XnbLZDrfkttp2NBD h1Qd4hSijyPKaPOnZBS36elPfo8yk+1fYdiXTTWjQp9UGtszEf9kR13i+5h6 JudW8//oTPRvf+rKrGfPzgaGPWvkP4pt+D930HdyrPkDlAqxPYA0BUOkwbYT os6719nrPFeEJG/1b03QxxGpZNckmeBdfr4Khn2ZVDIq9EqlsX1yl6LpnGOh UJs2ZvuOra3WkIVqH5/bUPeMFfQAsT1AZoFBZU+B/XX3eSq5iKryxj0i6eOI VBLFEcn2ErTrxbAvk0pGhV6pNLYXJRZyDzRnB/aGRovjrjoKfwmSo6EGVA5i e4DMBp0KnwLsKXl0zPfs1atfZkeOqqbAe+l0cURkFKdcB1ImRFuS2buUhS57 wx2GfZnUMSp0S7OxPfPs3tUzB5JxaltHb4VjWgmM5WioAZVzILY/PhFQ0U50 TXm+5PnYphYfe5bwO4pHBjmH+z0/K/hVmGVnJxsnMGvuXrXXABRFF0fEJo0o HsVte4eSxfYk6YKKYV8mdYwK3SL7Jssd2zOx9cBNhy2xOm19e/Lm/TJW13dX 3W8dCIspU49rSd0bwzPJ0VADKudAbK9otQRNU0eVSB4eEBdDTetvibK08e/w kN1O2Djgkak0UAXp4YjIMJhbXq48ZtdvO5z8DtnV4EuCYV8mNYwKHSP/vLLe 1XbD3vc76skS9CX3Wd7fmrvceqCYvcnyyYJWt8pK2FADKobLciQhti8V82hq 8LXsc1op1GuDU4+0cHNUiZfb3rdT3UcohbsCJoIcqvF/Ox3a2E4ogh6O6GdP fyqsNpxyBKPFvwMTe/rQ5/6Tbch6qsVkqG/p6h933Aysp5/R78cEntcfSLZn dsJ3bzltw+famyhDTVP7r4cnrs8EN0VfwTHsy1T+qEhgouG73uv28SHrmcQP mehm2j0w5vjSHy6rbYD2VSa2zxmNl/ZR+5GFTyzZbao0Hdi/krShBlRMxlYg FmJ7qEZkg2aFO6SwRQ5rWlqOaGM7oQg6OCLmR2dnquQFX85FvHSbm4b2gd+7 puf88zPuq0Pt9bXm3msLkb3I4v8Zbm8wUCcuzuRfr85Itv88tDbvHGijKPOp C3bay76hfaAlERke7XV8ty4urRfDvixljopEVB+67RhmBwZV39pnc345O+/3 +6bpj99NtDql2gZc9zSy9VIOeyuuHrlje2br21HzwTqVdSedD4qcXuYM7LWV Y5+LlA01oGIOxPbI5IDqtO628ldlZXdspZO72icCutjYroMjIjPuilvgZmLh 25PdbASdXQ17P/Lw//Y31Jgv/OH3XfXCAXY62d5oPjdwzlxr6rJ5lsimOS/W Z37HrkCauq4GRMWEGPblKH1UxO1tLXw+3MpODajjw5/f28qMAJnI4vWB1wyG 1tHZ9WqNpyqw9rgTdLxxYM2+tmXwz8vF5cbnDOwbLVfviJxlq5eUDTWgYg48 81L4uSyAQhIrmKkrs7IzXD7c0k1FAh0cEREDU1b3uth/Fg/sb41y8Vvuatj7 m94LxLa72k7nj3lCATLZPvHK1hH30sEH/UyI7mHfjzo5ERCRkI9hX44SR8Wr RIL39KVkHkieMulM9LHf9Xb8NRnteqsLmektT2y/f89+1Ggw9n36zQ3bwNnu bot1yOb8+mGRz0qIX5NX//q495H2F0qlbagBFXMgttdKjSkAiZGps4pmpiUS jw0SFUJRB+0fEZG7UsTiFbP+zUUusDc0D3ry1H158cPEET4loMAOWSLrtVDN jXQaQ82AZ1M4RMGwL11po+LVq52lzwfNXChoPHP1Xq7Afuv2eGsqpKrih+my 1+jmRl0500nm2YLzvDkjsKcOPFDTLmkbakDFkBd2dlAWt/gAoBtk7KRore9k kFP61jzV0fwRkTUHmoa8G6L+0d4DVw8X+lENg1P5i248840dTUWI+beqEcn2 BvOl2a28gWQ6HBK18Q3DvmQljYqMnZtNvfRyrrD9Rch1Nh0tauhBhtSYFVdX RmwvdTEibtTVjft2S4nEmcg910BbZlx/1Gr/i7YT7EkSN9SAisnuDVHFKwRQ 5ciHj3Vdrp+UuowlYzMd3dC1f0RE+E31ilvc3nno7Ekux1NvOIL594aSQXuB rWpEsv2RiR9e5P9gYqlTTKyOYV+yEkbFK2ZtarCBCwYpUy8dyh0EkmXz6zod i3vSfnENSQ/7ZIQicaXWnbmxQ/Gfo3nAHSoy8tkNz31kNZNfrsZs+b1elutT JG6oAZVCJlsmFMj2BNC79KYhQ82Qt/zq4SXZ3/T8xqirC6n2j4gshyIu+GQ2 p4eTIZxQG6bnsyPJ9y6U10GkfxQuMU2WtWywuleFvyuGfWmKHxWvmFXPYHNq OlBgxsfEwt9O9h6rrz/WO/mtfhaBS5CdlCP5CImG6P7E1Jpq63fMiftT70eW v/m4P2O5njL3XfEWm6WvfpI31IBKSd9WOAq3JgRQEnmzPmpfVGZT+bbf1qav 9tDaP6L04hV12Da/K/wPyOIbh3rdjwvc8/cX7anF3wJB++6y883kqwQybYhX ilzkxLAvTdGjgtnxf5CK7LXSeFdx2akFdWM+EX/qYjDPFhznkk/O6o9Zx/5I e78LbuT4ECby9ztTzsuWI0RUT9W3D07e+EGVxXBU2FADKiWZ4shTNN8SQGFk 7vGbzmWJ7yGiJHdW6qjNhOaPiFy8ElcpIvmgn7v5n3WFCmTQiAzaiY1RAiWm N7xDTUWu1WDYl6D4UcE88QzwzQS00nhXcUTiE0eWch+764EbtoygPRW6t7ze Hcf1FMvQ0D4wSfv+rtK1erU21IDKIBuXsDR0aQWQ3sug41jyXBBYbpX3C+ho 34v2j4hIfj70nk+4Uyiz43vvEH9NFcjWIELxAq8Ul7eTwNX0SxK7DI5hX7xi R8UrZs3dy/8yxn73mmYOVVHkcyhuViRfmW4mtrH4Ne1ILnTnEA/1u4dsDvrr xQ31hrLqbqgBlUBmZrJK3S0OoBMv7zuOpfYOKZB7nFpB1U/7P+0fUXpIUIfG 5kT0SyU3Qgpla+zO2w4nFwQLJBsQeTsC9ViYMG3hFxjF16zDsC9W0aMi426L kiOikXu9ixzVUn2DyNqTg40kVEr1DTWgEg7MiLtcK7jgQFVTtJxvqrt3obUU bdH+ETHLzlSkftzmF1N/b9Vt5W+eAqE4sWBeIH+GqLUoUI+l5AASw744xY+K 54GJ46lfBv09i0D8qTkaqpJaaVpoqAEVkJ3JJv0uFQCtYUKu06nq06JrVkv0 0cmn9vopV6X9IyJucG1XF8W0oc/Iiimcvh4L072U8CuJsFAgIWFzdoTfrFl/ 2lXEKjiGfTGKHxUZrWQq/RfWtuyKH4XrRFUxbTTUAPkxP7m66ohTRkOXVgDZ EFveKrsQwS+6St2fRTHaP6K9e/a2muJCZbJqX+3F2ecF/hGRbJ8RtDOx9ft3 FtdTC/RE9/DCGwnJPbwNF7xF3Wcx7MUrYVRk1HvptC+KyOIBDgIVUbTSUAPk t+sbI88YDV1aAWRElKoz9tGrFesb89Q3xoZw1Hn3uj5WP7R+RMRIEB8qk01D Cm+kJVb4M7PcE8vvRIvwdGxfcLPpy+3Zd1LJQCU0PMKwF6mkUZFRvwg1K4qS nWCgXBcG9dJSQw2QWXY3Z81cWgFkxu8PqmRTSD7S01JrzoK0fkTMmnf4CBdN tNnviR4GxAptwWV24gqc2RA28XerI3r0xMK0VTi2Tw9aA9X24fx28RdzDHsx ShwVZPZyUbH9btj/XVAzeznlwPU1I2hlqFSOphpqgLwObD9XrGsJgNoQS3PN H/hFFLiT4CNTW8Z0s+1F60fErNLJh9ymQXdYfKhL1MkpENszTwOTp1K344xi lewG2/aJAP90O12wIv9fkhixVKdtvrScGgx7YaWOCuZFYPJI8ucWvxt0Nzx9 qZVqHvKulfh1dYHYci4m2qw+GmuoAbIilxES8JwLIC29OtfQQ4fkj3L4tSnd XB61fkTP/DZuB2uxi9hEFHfY5s9dVZiL2VIX34xnpi9CrrPUkcnAC+If8vfu PPdZJuKf7Khj36vR4lwsvYwIhr2AkkdFPEJ94DzJ/Ubimggwz0Oed1up2tbR W2H1VlOviOz8YU31L5ad9hpqgJzIbfuG7IfCANWOiYWuW7iLViXWMFMVTgRW XTRE00dE/vrv+4rNb2FW3H3cDZRcfudxgX3die4uM3f1JbfcJvZpNhyIG1PP 3HP+MWMrnuGWZGDvuFteBxkM+wLKGxXxGCww2cZO0ahOR7BQdR0m9vT+lO1N k+Fwl+2bag/sE7LCFWynJWmwoQbIh/iJWdi5D5CFrzwgf/qx5rKOBWn6iNLL 162js+vFRxFMbNU9kNjall0XmomGZu19ZqrRcvXO+s6io5NbjuQLYEZDdL8p 5w7N6IKjy5SobjfgXk0He0xsK/DZABswUseH6ftStIbEsM+j3FERt7P8xW9b Er9WvtX4l9GN+zOfvW8x11DmPvtsKIoQNoGsFstGkUgzSNNiQw2QS3Y/CIFa bQBVaS/oPM2WCzP10yEZG6akzkehVRft0PIR7W/73mdXk43m0W+3Srwu7keC 9HCijwxl6hr7bHrO75umP363OyNmY6LBaxYTOwXonpjy/cXz8WCL8cTo9KNc d1Mmtn7nqqUxHteYLe8n3nB+xu0YOZX45zVm6xXv8rZkV3AM+xwkGRWvEk9t 5j6ymuMBEVXfPjjhuuXzx30367nhctiGulvr4//BfPbyZ7eXq3r/bLbslPu8 2W7VR5sNNUAe2RvPjf0edIMAOICJheheNvoq2A2kTPzqR8uY76lMn1FZGj4i ZvuOrS2RbFpitRnyraKP/TcdY/2nW+opQ31LV/+44+Zfw1FyhZqJbS16ro6e a2+iqKaO8+85fauFSqjENoPea7ahX7c31Riopvbu/tEr1713w1Kv7mLYZ5Nw VCTeLRq+671+ZbS/O/67s5OollPd1qH37Ne+vL3wKIIknIMyuqka0J02TaMN NUAW5GwrcWGxVGLbFIAWxda9o2xedFMvvSxPWepUwqR+8hU1e0TM5rytM3G7 MnY7/lbNfVgw7AkYFcpL9UFA0JJFqw01QAbZU+DCz3EAqhvz7N7VM4kTxmR1 BuW4s3M7xaiGkRm9JJFq9Ij4gLZl2LNS7e2FMOyTMCrUILtqN1LuUzTbUAOk lp26pol9TAAKij2aHj2RyFFovTy3JflFjN0MRZ2cCOjmZqXFI2L2llw9iUSU 8qvN6AWGPUaFemx7h2qIuEX9j3sqRLsNNUBaZB+xxFPGIxM/qL/6GIDCkpUG KZPlkwWJt7nFNgJf3fg6qKPIQXNHxMTCt0YTW18RwmWq6mGPUaEqZJskgya2 aVSElhtqgISYEG0xESdIzgrMAHBAchlTjjgHlMREAlcTFSYRwuVSrcMeo0Jl MiouYlkyTcMNNUAyzJq7l8y1b7u6WKiJBgAQYqtzkz0mQ22r7Q6mxDrx8if6 bKN09eH1qAqHPUaFCpGFWeKyVpurl6YbaoAkYmvufiK0ryE2UACAGLvrgX+/ MbuMB5E6wawHvvzytoT14fWpyoY9RoUaZVXLQdYBT8sNNaB8zGN376H0maGN Tt8AAABQ5YjccjYtp9n2/Y7S30k9NNtQA8rFrNI9xKq9sYdexW8EAAAA6vfy gfNkXTqIOfSebwdBDFQ5dkN0+qxoHPA8wVkBAAAAWrC3SvcRK5RHR2Z/Ufor ASgqsSGa2GXe/IEfE14AAADQiu2ZkYb0IqWx172GQAaqF9FrIAE9ggEAAEBb UhUak9sGzziX8nRYAtA9Zs07TO5B6XevoXs2AAAAaEnmzkEUuofqlXUuYHc5 AAAAaNAzv+14eq0yZ4V2AP2LBCbaiUX7PnoV+TgAAACgPZnLlcgxhmrEbE4P p/eeYNEeAAAAtCtz6R7FMKHqZG48qdSiPRMN3/Vet48PWc+0NyU6oTW1dw+M Ob70h3EGAgAAQOmYtanB9KIllu6humQu2te2TfxV7kV7Jhq67Rhur08E9PWt fTbnl7Pzfr4DsoFqG3DdiyC+BwAAgBLtPHQSiTnIuocqUuEtJ3tbC58Pt9ay lamOD39+byuWEcQzkcXrA68ZDK2js+uI7gEAAKBEO9/bmvnovq7Dfjeq9DcC qIDM/SYNPXRIzoh6Nzx9qZV7RGA651h4dvCzmOhjv+vt+GuM/Z5NGb8JAAAA 6Nv+pvdCQzrl2OoKIboHvcusaU91OoJ78oX2O0ufD5q5wN545uq9XIH91u1x bkk/rt7mR319AAAAKBmz6hnk23JSDYNTaFMLura/7Xs/3YiW6rIvROT7rK25 y8kVe0NTL72cK2x/EXKdTW/pPeYIvpTt6wAAAEAVYMJf9Jn44AIZv6Br0bv2 jrrKbKEltqtTpl46FMt5Yu0s2juxpR0AAACkEw3R/SZ+5dB8aXYLm2pBlyIL 9i5+Hku1fTi/LdtQJ5+IUW84gvnmEEws/O1k77H6+mO9k9+Gc8f/AAAAAMWI hdwDfJ6C0Tz67RZCDNAbJrrwUUc6spc1G4fZ8X+QPqN66FWcUAAAAFBBGRv6 kJkD+pORjWM67QzKmP3CPPEMNKY+q3HA8wRnEwAAAFTWfuTeH7v4woDmUe86 CnaAXjCb87bO1Jp9gex3iT5tzd3Ln0rGfvcaTiUAAACovN1V91sNlYp/ACol tu4dNfPJOK2X5+TdUfJy2/t2Df9xFjqM0wgAAAAUwTwNTJ5KLW/WdUz6IwhL QNuYvSVXD18JymR1BuVLs+c8D0zwTW+NR+33sDUdAAAAFJOxr7Zl2LOCfALQ Lmb7jq0ttZGEah+f25B/tvqzp/9w6gxqGvJuyP6BAAAAAPkxkcDVrlRRzDzN NAE0YO+Bq6ex4hPVFbq7PvWhnfZF+SroAwAAAIjBxMK3RvmyOaY+1xLiE9Aa 5snMxROpXJxGi+NupRLMNrxDTanY3kqH8eALAAAAFBcP77+xdR1ObT+8NB3e VforAYjGPFtwnDMpENjHRYOOUyXF9rth/3fBCNLzAQAAQBZM5K7D0ojwHjRG ycA+8fEvApNHkp9+yhGMivtXu+HpS61U85B3Td5vBwAAAFWMidynh49ziQ3U SefSS6W/EIAAoicsdWJ0+pECOTEvHzhP1rHf4FCv+7HwxIJ5HvK820rVto7e CqPwLAAAAMgqFvbfvEHT9I2vgyiJCarHJAZsfLzS/+pd/EWhZHdmJzDZxk6J qU5HcK/AacPEnt6fsr1pMhzusn2DwB4AAAAAQH12lr/4bUsivM+3Gv8yunF/ 5rP3LeYaytxnnw1FEdcDAAAAAKjUbnjuI6u5xmCg6tsHJ1y3fP6472Y9N1wO 21B3a338P5jPXv7s9jL2zwIAAAAAqB4TDd/1Xr8y2t/d3sQm6ZhaTnVbh96z X/vy9sKjCJJwAAAAAAAAAAAAAAAAAAAAKuX/A0oFcQ0= "], {{0, 164}, {1012, 0}}, { 0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{367.7142857142859, Automatic}, ImageSizeRaw->{1012, 164}, PlotRange->{{0, 1012}, {0, 164}}]], "Input",ExpressionUUID-> "be9ac2f6-05dc-41b9-9698-a52e046ebfdd"], "\nand ", Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnQdwVFX7/5eigPRQQugldJBgDAQQkkAIvUkRkBIggCGKSIkgEECaoQqh 92pBQIoiQ+hSBBmkiMQRUBhBYBAYyqDzvr/h/3n3jHfu/+7uze7ee3c38Xxn dMLu3XvPPecp3+ec5zyn0sB3Xx+S02azjcrL/14f8H7MyJEDxnUtwj+6Dx+V OHT44IQ2w0cPHjp4ZOTAXHwYx3/3uf5/fz+XkJCQkJCQkJCQkJCQkJCQkJCQ kJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQ+Nfj//7v/86ePfvb b7/5txkZGRnnzp3zbxskJCQkJCTMgnSvvsHff/+dmpraunXrmzdvWv2sZ8+e /fLLL5oH8eHTp0/54/Lly5GRkStWrPjvf/9rdUskJCQkJCQshS/d6/379/Gh jx49Un/48OFD4U+zt3vlpebPn9+gQYOff/5Z/Tn8jc8/8gQLFy50RTt5yt69 e2NjY4OCgurXrx8REVG9evW+ffteuXLl1q1bcXFxmzZtEleeOHGCr9auXQuP tfzlJSQkJCQkrIFv3CvUhbvVrFkzODi4cePG9erVq1OnDj95/Phxeno67OXa tWviymzsXrdv316pUqVDhw6pP3z27FmPHj1sNtuLL74YExPTv3//pKSkUaNG 9evXj0/4vHz58kOGDBk9evTIkSPj4+NfffXVHDly5MmTZ9u2bY6PgBMmJibS yYsXL/7rr7/Eh3TyzJkz6eSoqKhixYqdP39euZ5+LlOmzMGDB618bwkJCQkJ CQvhA/d68eLFiIiI8PDwb7/9Vvnw6tWrPKJDhw5ly5aNi4t78uSJ8lW2dK+/ /vpr7dq16a7//Oc/6s8vX77My/bt2/fOnTvqzxmRggUL5syZc+nSperPIXgw wKJFi54+fVrzCPpw0KBBISEhJ0+e1HwFXx0/fjwD17Bhwz///FP5/OnTp4wC 3FLzdAkJCQkJiSwBH7jXjIyMmjVrtmrVSu1ABe7evYtjxb1OnDhRPQOT/dwr RCI5OZku/emnnzRf0ZO86e3btzWfz507F3JYpEgRxy6FEL7yyiuO01/r1q3L ly/f4sWLnU5nnTp1irsNGzZMM9ZHjhzh81mzZmW/STAJCQkJiewNH7hXOEnv 3r15xIULFxwbgOucNm1a3rx5d+3apfkqm7lXmGH58uUHDRr0999/qz9/8uRJ ly5dFi5cqLn+r7/+6t69OxyPLnWkc/DJtm3bapjhw4cPo6OjS5cu/csvvzht A6w1NDR0/fr1ms9pA3cLCwtzHG4JCQkJCYlAhg/cK4SnaNGi3E3J2dBg48aN uNerV69qPs9O7hUyNm/ePAjb9u3bNV+dO3euWbNmjq9/8+bNGjVq0NUDBgzQ TKGAL774ol+/fpouvXLlCjSmbNmyjncT4PPw8HCnlHL58uU0b/PmzZ69WFYA sg0rhrE7smWJrA6szYgRI5o2bVqzZk2Ef82aNf5uUXaDK7vN59lyU4bXwMi7 6qtnz575uDGOyFRTcOhjxoxJS0vTpMsGPnzjXlevXp0rV64ePXpoyJKCtWvX duzYUZ0koyDbuNfHjx+3aNGiYsWKv/76q+YrnOyiRYscbcLhw4fFKt6yZcsc b7hv377169drZqvgpSVKlMidOzfD6nQi6+7du/S2065mxIOCguLj410NU1ZE RkZGQkJCkSL/O049Jibm1KlT/m6RhMnA2uzduzclJeWll17Kly/f119/7e8W ZSs8evQIxSHSTExMXLBgARYeszNlypSWLVtWqVLlzJkz/m5gAIGYvWTJkq+9 9tr48eNXrly5bds2TPfIkSPr1q3boUMHzV5d3yNTTcFJ8W3hwoWxlmFhYUuX LuUTvzTVU/jGvS5ZsiRHjhyQQMfVKAH8y549e5x63mzjXmG59EBsbKxTFuEU c+bMQaKcruK5wr179yIiIvgVZAZyuHv3bvdFkd+Gh4fXqlXr1q1bbv4kkEF8 MWzYsDx58iB7rVu3Pnr0aPZYo5RwivT09Pz58zs1ZRJG8ODBgyZNmtgcEBwc vGPHDqlTapw4cULQAA2czgn4C5lqyu3btydMmFC0aFFaXrly5a+++irwR9k3 7lVkCItfjRo16uzZs+7PSWYb94o8QIOHDh3qOJHlFPDnrl27ulrF0wFMEvet KFGuXLnq169PjHDx4sVMn/j66697NLIBixs3bog0cnR21apVcg4822PWrFkM d5s2bUTJRwmzAJOJiooqU6YMqiRCpOrVq+PpssGKv+mAyYSEhJQrV45eoq8K FCjw2muvbdq0ydWSk1/gpqZcuXKFxismNMDJjG/cKz3Wt29fNUdliFu1arVk yRKISqZPzB7uddGiRTly5EhNTXXz+t9//x2L4WoVTweI3M6dO+HSmriAgebp OjqFu3/33XdffPHFrVu3uv+4AATvmJCQIFjc7NmzA1wHJYxDWAlGfPLkyf/a 4SbEXrhwIcTD3Ntyww4dOuzfv/+53ZJnGhQcPHjws88+88hk+RhIyIEDB2ik 6aICk8Gv3b17lztnOjnw999/r1y5krje3DbowyNNgcwIH1SyZMkA978+c68M a0pKimD1alSpUkW/Yox/3Stjfe3aNVqIIhPmey35/HDixIl0tWbfug4OHToE 38MXL1++3Lsnnjt3btq0aS1atOA+orfpRp2MI34ydepULkMqvHhi4ODy5cul S5fmRapVq3b9+nV/N0fCcgi79NJLL/1rk2RQ9vDw8LS0NNOnH9VMxh2gcc2a NRs3blwg5Lg6gv6BP7z88svff/+96TdXmIyb1+/atatWrVpfffWV6S1xBY80 BY8wZcoU4TtGjx4dsDPbvnevUPo9e/YMHz48LCyMm4guCg0NhfvpNNIv7hWq DFsrVqxYvnz5EPuaNWvmzJkzJCRk9erVrgb0xx9/HDVqFBfzq7p16yIDSo4K PxkxYkTu3Lkdtz+7wuzZsz1dxXMFTArjJbJe27VrpzOpKJYOZ82aZfCJ/gUB lyBvzZs3d3/ZNEsDms0QI2NdunRp2LBhy5YtExMTv/nmG0248ejRo0mTJqnL O/sAv/32G8FIxYoVBZdG32ne2LFjv/vuO7OCYmGX/rVJMlgeHCLkwYpkQk+Z zHN7EVTc5fvvvx9oyY3IGwa8XLlyqIYV9/eUydAeaFWZMmVwi1a0xxGeasqW LVtEFVwMS6CNpgL/utebN28OGjQIHgVDWLx4sc6VvnSvWH7IaosWLdBEnosR FsaWvhozZgzNgM3u3r1b8ytENykpqUKFCikpKRcuXHj48GF6ejp3IEQSF4iZ pRdeeOGTTz5xpxnKHKD7q3i08/bt265cA5/zOnS1/g3nzp3LQ6dPn56lp+gx UwwTL9K+ffuAWqEWQMaQq0uXLmW6tJopoMpY5qioKOICVKlq1aowVSIFZFWs ydauXfvYsWPiYgwRzgUz7qrWkBW4fPly48aNEf7NmzfPmDFDrLwL0Dzv4mLU DT5Wp04dVIyQAQr30UcfccO2bdtmxSQZg/KA1iMAnTt3tmhrjMJk6NuTJ0+u WrVq3bp1me7S3bdvX6lSpQItv4IYh2gUs2xRqxQmg43FCi1ZsmT79u3379/X +Qmjj1ZWq1YNOmp6e4xrisg/4SedOnUy0ZYSYO7cuTM5OTkuLi4sLIzXh84F BQXlz58fooVlYJhoMI4Yx/rFF1/oq4YP3Cvd5VjUVwEen+gs05krn7nX33// vUePHvXr16dDNFOjuAxGX1hg6Iq6JVCXevXqYUyUQ6Oe2+VzyJAhSildrp8w YYL7pJGWMLgereIRB9HCP/74w9UFR48eLVSoEK7E1Uo6jZw8eTIPnTdvnjtP DFgoTMZc7TMIuvfw4cMwDRHjCBQvXrx///5ebGVFX7788kshJCVKlBg1apRj ZUuxpxITsXXrVjGpnidPnubNm/tsZyUPxUpPmzZN0Rf+wCc2atSIZjdt2tSL 8t3Hjx8PDQ3FyokN9YSWmLvg4GBuOGXKlIDym/owRR4wU8SDZcuWtW6eDXOB YSHmxXT069cPOvrWW2/hawjSXZ2v99xuAMeNG4dk8o4WNcxTXL16tUaNGjTb OvmHyTRp0uTtt9/m//TYzJkz6Tr6Cuels9YGF42MjIyOjnZ/MscdmKIppttS ZBsJd7rDSwdEajTA1SyuD9zr4sWLdViKWN7ihlOnTtWZTPCBe+Upe/furVmz JkLo1NFv3LhRGBy6dMWKFcrnZ8+eJRCOiIjQHCCOcDZo0AAOpryXmM5yrDTo FAcPHvR0FY8WojU6Svr111/Drt955x1XwyHmnZAHYi43HxqYCEAmA6WnbxlT +C3h6q1bty5fvvzxxx+LNRf6fPjw4e7nasKZO3bsyA8JQ4hZdAwg4kdgKKYH CXn4ydixY3223i1ClbVr1zp+RZDlxWT1yZMnS5cuTaepN+IR9ubNm5cR99kU vXGYJQ+8O2Gs2s6YDpoBh8E1q3kLXV2wYMHw8HCdPDReihCvcePG5jpo74Cw JSYmlixZ0tICOMgnvAX2rvAWnkuUkSNHDoiNji366quvGEfiDrN00yxNMdGW wiTfeOMNZJs2CFZMRwmBB/jQOXPmfPjhh8nJyT179gwLC8O4afhMzpw5u3fv Dg9xvLml7pVBpLU6q0KMGo5Vv5iVD9wr7fzoo4/o0s2bNyuCBINV5ljQVkiO 6Ex6WJn3OH36dOXKlUuVKqU5qxGax4igxWo1FwuOH3zwQaayilESG+XcX8Xj nnAwhMHVLBxNQpW44dGjR13dhH7o3bs3Q3zgwAF3HhqwCDQmI6wZjNfxTE8Y rzLX161bN1x/pncjwhIBRfny5dPT0zN1YThNLIN4hKvTXS2CcILub43Ux507 dxo2bIj9weOr31qkRVWqVCmrJMmYJQ9cDJcg6NaEUeYC27J//37NnmtegXiW RkKkdQZ36dKl+KPU1FS/z5VBF6FeGElLN1X9+eefPEhD0WGAjDUWaefOna5+ +OTJk86dOxcvXtyU0p0maooptpQ2YHaCg4N5QUIqZbkNT1qnTh0h7bAajWd8 9OjRjh07unTpIra0K6hdu/alS5c0j7DUvYp2jhs3ztXNuQB3D9vXWYGy2r1y f1gHruG7775TPhQUC4oi5GrVqlUiP5kuVbKjf/75Z+gNekrMq5aWx48fT5gw oUKFCpoGf//993QdlDLTUBQ+z/DZPFnFQzYaNWpUqFAhzWnmCmgMUkQ8rqPI ogRWmTJldBKwswQCjckQCsGTXe3RgzCLotkEblOmTNHRRMQM1S5RooTNvi3L /f2beCKxbZAwzZd1yOl8JBk9OnfunMFb8e6YZdQQO6xexn3+T30M/VR274Cq btq0yZVOeQ1T5IEOIQ7FImm8lc+wYsUKYuSyZcvqpF0JC1+lShVfpmY5Ap8Y GxtbsmRJ43LoBdACDJGgpjrmaM+ePVitPn36GNzzZa6mGLeltGfNmjXchP7X xNE0D/kRoq6zowdD17x5czWZadGihSZmt9S9Hjt2DN/aoEEDpxMFuNSUlJSg oCBIrM5NLHWvdDIsBUU7fvy45nOx+wyOJ8qz5M2bl38WLlxYhFFQr7i4OJu9 eKPCMG/cuMEbIT9EVY7pW3TCq6++mmnvcTceJ1Yz9VeL1Lhw4QJEhYib+//w ww/qr+hnrHFISMjAgQP1cwLp4XLlyiEkWaVCtSsEFJOhz1u3bu0YcSgQLgld psH0f0ZGhqtbQUfFChEy5lFeBCKHYPDD6OhoX5ZMV8KfQYMGGRwI7EDTpk25 1RtvvKG+FX/jIPiceMR0h37z5k2iFZ1jVryAWfLAmIaHh3OBv47I+eKLL4iC sTlffvmlq2uU/AF1rpTvkZ6eTiyMm/PLxnAsMLaXToCg6sye4VMiIyNxx44z dR7BXE0xbkuPHDkiygWPHDlSI/MQS/EVUuR4XpIaDx8+FHOAyjKTplCYpe51 wYIF6CMihB3TzLpww+HDh2OW161bp9+rlrpXZKZy5cqffvqp5nMMV69evXjZ UaNG0fmI4pw5c0QKN2YNlpKUlCT6PzU1NS0t7c033xTZ13zuqpSuyK92JahI OOIn+BLD9IId/EHMRQdiTp2e+ahgw4YN8DGo48KFCwmBuRWcir/fe+89xpdP +DtTOdy6dStvNHPmTL9PBRtEQDEZAgoEA0qsU2MZ8ik0mkhq5cqVTq+5dOlS 1apVbfbdczgRj9qAPCO3/DY5OdnHRSFOnTrFqxk/Oo3Xh6tjTzRL4YJsWJQk IzIDX3/9dROZjFnygNWCSPTv39/SvbE4CGwaMaxjaLZr1y6GlRbqH9kpjg+u V6+ev2oC0z/x8fH01WeffWbpgxD19u3bo2KaYAH3MWzYMEaTcdc5swCrKzYW jRgxwoiSmqspBm0pXdGuXTt+XrFiRUcXpmyMwi1muqwGARBHVwvg19QzJNa5 V7Eq1LFjx8uXL/fr169EiRJQREZq7ty5aB/khJbA1jLtCuvcKz3D6DidzSPg LV26NC+7ceNG5UNeJDExEV6tVMJhFMLCwvARBJ78JFPxO3z4cKFChXTSm73G 0aNHldUx6OuWLVvGjRuXkJAwevRo/nYnDEfdREacXyZgzUVAMRk8jkhdQ2Uc 9+8LqNeL33nnHccLCDSaNWsmLoCderrWj2QSOGDMPaVAxvHkyRMxtV6hQoVM z8vQgTjxxHGVGcnnc+IRkY9648YNE0MeK5iMKfLw9OlTepX7bNq0yayGOYXi axwDeWVORj+aFpPqOBGdLBFLgWcPCQmxutaQSEhQz9srUOZkqlev7jRbVYE4 tgnHaiTxyVxNMWhL4eT4+m7duuE9Hb9dtmwZdMJmL5DrTglTogCxtu40y8Ui 98pbf/7550pyLFx00aJFsM3BgwdPnjz5+PHj7tBOS91renp6aGioY84PVmvI kCGC9TlOVcFYGBohse4wMTWQHEg7tw2EZH4NGKBKlSpBfgK2/JH7CCgms2rV KqGtTrPaBMTEsrgGwq/5lp+ICpZC5b1YZhW7obHnTu2J1RA7Jmh869atva6l L5aqCTY1m83nzZtHz6BWOPf79++LrZpmtPp/sILJGJcHQCcwmqVKlXLcem8u MHF0e0REhGOoK8p8ZVqeiBdMTk7myrfeessvRxgsXbqU2JOY2tKlJbERGF5H nK7JphDHNNMDmS5v4RfCw8MNsj5zNcU6W4pgEG4LISdMcyfcpvfEYUk2e41N Tdn/f6d7Fd0IV3QULQIluCvi5Fhm5+HDh/SV6Ml+/fp5MbL79+8PCgpavXq1 9023AKjh9OnTy5Qp4+NDQCxCQDEZzIWII5AouL3Ta5Q8FhAfH6/59syZM5B5 mz0v7qOPPvIi4hABY3R0tDt7o0wHDxUJe7R/0qRJ3s2cE0JCKtAd9cQOPrR2 7drcGaZHt5w6dapLly462wc8hRVMxrg8gLVr1+bOnTsqKsrqrCecQmxsrOPc Ec8ViYIjR47MlJ+I2Rt8tO9dDOovliR8sGh+4MCBmJgYx+kUMZNQoECBTAsL K7M3OmlUmcJcTbHOlortAELIBw8e7CbLFfzZZt9941g95l/oXsXi1/jx4zUC w7PgTi+88AKSr+lbkb4olpboLu/ysnguuv/yyy/rFJXyPX788cfQ0FBLq1L4 EgHFZJ7bhSo1NRUtc2Wdrly5gpwLDZ08ebL6KwQGNRdflS9f3rv0Tp6L6FpX 2lQH169fnzFjhnKeaeHChfXPWXMFXoGewXwpb3H+/HlCXeHxMRR01NixY83d yGMFk3luTB6e2/3d0KFD+WrIkCFu2v8//vgjJSWFd6EDCdjpt71797rqqCdP nuALlLQWeEiDBg3U1Zhp9sKFCzGSOG53sl8YKQxmkSJFLK3l4hTwiho1amS6 BKbG6dOne/XqJZJCy5YtO2jQIM0OIDVgCJs2bRKjQFCclJTUp08fdVFf/sZf 4zUYR3cGa968eTyXjvWao5qrKdbZUuh6/fr1bZltXNLgk08+EYuzTo9i/Be6 V4b7vffee/PNN9VzMtiWcuXKQZ7RU0fbdezYseLFiwvzMmLECK9nSglMWrZs CfcOkMrqDx48wFajsAHSHuNQFvdN90EW4csvvxTrL8iextFfunRJnIbpkecK BGCKsaj4L4J3XlBU8wZt2rTxzkqLU2gJb7t169a5c+fGjRtjZn/99deoqCj8 Drft2rWr8QMg1LCIyWQKHXl4bp/jEptT5s+f787d6CWFFykQZV6cUqkdO3bQ k8r0ndi8iR8cMGAADGflypUdO3aEG0Cw3ZxjgUfVrVuXJxrM+vYCp06dQgLh Ue7s9cMXTJo0SV1yWYDeU478UAOpePfdd+fMmaN4KFFVu169ehMmTIDh0MO1 atVCYlesWOGm5or6pRUqVDCS1WOipuzbt08UcGjVqpW5y3NYNjE5iZC7X+gA 4VRUw2lhln+he/3hhx8wU9DvLVu2IHU9evRA12JjY52eBUP/KEfGVK1aVScF 3R3AGKOjo8ePH+93P4vME98h8CbOyfsda9asEcWUEhMTA9/1IwNiStlmL/Wg TsPDQsLkRYaMR3Gl34HZJK4kmiMoEEOwbds2YYL40Mj5fVgG3AphjjKyuGOs 4nfffWf6/JtfmIyOPAjQt3g6N4scYvkLFSok7laqVCmiYCUcK1iwoOMpzBCY Ll26OFIO7AMh8Lhx48aMGcO3HvlZjIxIFLFip7w+aCpWnUHUT7V9bqcxxKfK ygVGvnbt2iIgstlrjzguG+EpmjVr5ugLMjIyli9fPnz48KlTpyLqHi3pwriK Fi3qmDbsBUzRlDNnzoijhxs1aqR/gJSnEGuONntprExHR4EyJ1OuXDlXXvhf 6F7pCt63bdu2cFRIrIa30w9EPXDaTp06hYeHKxS9YsWKRCWd7OCH+vVwXOH2 7dvvvfeeFSfLe4QjR47MmDHDlPSJPXv2ID9hYWH1DAN7iznVqayiA5S0T58+ Iur0fQzoBZABEZvwf435gsaLPYw2e65vQE2Z6uDatWuIAWaK+F3xXOiyOG4J EMn6eDO4d/ALk9GRB+UCnAs8JNMdBwRrZcqUIXpNTk5Wn8h28eJFDBcMmcBN o/u7d+8mpDU3oUUs5ft+UlHZ19ywYUN9V8KVaWlpWIzQ0NANGzYojp7WQhdr 1qyZM2fOWbNmqWkYX2HAJ0yYYK4kKzQ1QMKWe/fuNWjQgD6EX5lSf1hAJEgL a4Cpd59ZifpUANHV2XuV/dyrEdDbZ8+e3bJlS1JSkrLzGs/y6aefbvkHO3fu NHdCO+uC+K5JkyZ16tSpbRh169Zt3769dxttiBzFdCgG2dwgwgqgjCIbn+hv 7dq1mogV6qKcS0KH+KWul6dQikYmJiaqDZR6fskHqaqmwPdMRl8eBMQCRLFi xRxrtmtuRRSG/Dh1QMiSOPhJHYgRQvbs2VMpY24W8PWjRo0SxtOXMqzsjG7V qpX+3D4xLJTPVRIsahgZGUl4pd7K+uOPP2LuTD/AWmSPoCZLliwx985eg3hQ zKYiTmY5ZYajTZs2wrJpKKIOUEMRpUIs3TxiSUIBsqrkK4aHh9+4ccPfLZJw DjGHJvLTYmJissQpPHirF198kWCQljsGd8ePH1eWBghhAj8fm1eYNm0adoa4 0pGInjx5UpyBa7Bihs/geyajLw8CYoJdv8zac/u6ktOjnRTA85s3b07oqjzo 4MGDkEzThwa5nTRpEuOO6/d6G74XUBwf5FBnBEXlOliWzrzNiRMnEGllVZQe Qx+HDx9u+hQTg9K4cWNbIB3szjtCG5S8X3cKv2SKa9eu0Z82+xYATYF9HYht WTZ7kXP/nn+R5XDv3j2xwgtCQkJMLFUhYSLQNQJVUTuuRIkSkHwvyqNhnZ4Y A4GGR8YHL4NQ5cqVKyUlxaml3b59e548eWz2Wq9OT5T2ATDvI0aMaNq0KfQD 7+m481GNixcvivxkp7PughjY3C6E5Xf4mMlkKg8Cq1evhitWrFhRZ7Xx2bNn vXr1mj59ur5AImCNGjUSC09//fVXQkKC+wGy++CGM2fOtDnUZfUCp0+fhpY0 aNCA6LJu3br67ow+FPt833zzTZ3+zMjIIESFq+jcSlQ2U1ZFccRohJvnD3qE R48eQSZps855hX7BqVOn4uLicuTIUbBgweTk5Fu3bhm5m5K4S8+7LxIbNmyA w9MGK6rLZmMg/EoOWP78+a0udi3hHdCp6OhoxigyMnLVqlVeBH1YjLFjx4qF D4MgctE5hkaNX3/9tV69erlz5yZcdbVMvGnTJpHeZqQavyiE5d1vn9sd3N69 eydOnJgvXz6awd+urqQbx48fb7MvqTs18qLwFxfgg9RpG34BfACbbHzEBeAV Bv2aO/IgsGzZMmS1atWqOvPDgn9mWkQR3cFvio05586d42+LTo+dP38+vWT8 zII7d+588skncEvuFhYWpn83ulGU/xo4cKDO5AkcBuKd6bLX7t27W7VqhSrh QxcuXGj8KDGnQFtjY2Nths8ssAK8+JkzZ5KSklCcIkWKONZbcxOiUKdQHPdT 5hj6iIgIm50P+916ZCEwakTBIiLm/1gPSQIDE+LwcZQLttmzZ89Dhw55MVL7 9u3r379/V2Po1q3b22+/7U6iMlqJvXrxxRfnzJmjY2OVRP1ChQq5PwerhiBp xvMSITB0r1Lq3CmUem6uqmEQfAlb5ONVBqf44Ycfhg8fHh8f3981evTowVuX K1eub9++OpcNGDAApmckSnVTHgRElWBT5rUI1hISElauXIl4pKSkGCkuoY+5 c+eawmSe20V65MiR3I1B0Z8rU+ZkGCPj74XkI9g///wzYhwXF+e47csUKPu8 ApDJ8OKpqanVqlXDKEEmvS68DxsUJawJjlwd2KEBXfHhhx9C4ImSTD+bPnvj 5MmTpUqVsukWXpAIHPz+++/ovljMxSmYnolnIvDyMC60GHqsL1d79uwRb+R4 yIibuHnzZqNGjdLT071t7P+g7AFp166dTuakODXGZj9B3ul7iTJlNnvd2sDf Hf/cV6tL7suDgJipg1/pVGxzH3CM5ORk3hQ3ffToUeM3dISocWqzLyUY3xVF d0VHR8PlFi9erH+lsmfqjTfeMD6CRExIApQe59u6dWuL9tU+fPhQrJIbKfNr Ov76668FCxaI/ftt27Y1coDac3uZa7Gz2/25WdgLT8+bN++aNWvklIL7+Omn n2rWrClozNSpU/2+LT1LAN905coVQt2zhsFN8HpeSCxhgjh6Lzg42KD7tgjP nj175513ChYsuHHjxkxf8NKlS+Kcgvz58+/fv9+Lx61du7Z9+/YGdxwodcX1 64GIsxGB4+HyAhjAoKAgAiusopH2+Aw+YDIeyYPAtm3b8uTJQ5xlStLj5s2b Bw0aBDviNS3aUMZ7TZw40WbSnrWff/65dOnS7lRcwSLxajb7phvjK0HIAHdb t27d4MGD58+fb5E/VY7cmjFjRoC47AcPHvTq1ctmL6tLRGNQF5SkKfeXlhho eDtUPy0tLXDYXeDj+vXrYg4cBrhw4UKLus6j1LUsgTlz5piSaiKAbfduFhEW VLZsWZu94JIpQauJwLRCjIsVK7ZlyxanZgq38sEHHyj/xIaIeoxEoF7syrxx 4wbxnZvzt/r3oTMzzdWhhQiAzkLY559/jjHk9Rkjg03yDaxmMp7Kg4A41Jio 1pRjXBjTTp06de/e3bqUcpEuixh37NjROKPYunUrUvTyyy9nulClMKiYmBjj J6SLveQjR46Mjo727tAQd3Dr1q1atWqh78uXL7foER6Bt0YChU1OTk42rgji bHSb2xUykfaKFSsS0O3YscMjaqfeqgD1XbNmjYFWZz1gtEXqeIECBdavX++q 63777TeYuZFKQR6lrmUJoIPElYvNAD7xyy+/fPLkiRfNQPVGjx5tsx/n8fHH H5v+ml4DWVq6dGmZMmVcpQSLlk+bNk39k1mzZgl+2LNnT4+8ADYHwzts2DDj vuPAgQOoA/ZEf2M7rjBXrlxBQUFOl/aU4h5t27b1bmR9D0uZjBfyIIAbLVWq lMFSyQoOHjyIqQ8PD7euagG9J4rkII0GVxWVk7X1tyMpWLFiBazArPwcfDry MGjQIOvm6K5evYpIEETv2rXLokd4BOL6KlWq0OEVKlQwJRv8yJEjItOeKF5/ 19LTp0+nT5+eL1++GjVqeFHjTmxVSElJQVO4yddff22g1YGIu3fvfvHFF8gk VOStt94iJsL/iuAdEyH2VlStWlWnfib2DbbTu3dvgzOl7qeuSXgEJVE2oPIx kDrMoE6iIGFjhw4dkEb1h1BrsdBJVOJ+DI6XhBAS++i7J26IR0DaaRhxK8wc sSd4UTMNJUkmLi5u3bp1zZo1q1u3Lk0aO3asZtFq//79+fPnL1KkiNMpl5s3 b/IrTLQrx81I7d69m7AdS86VBN1Dhgxxv4y5FbCUyXgnD8//OcbI6VnAXgAm A03FO1unKcrO4jlz5ri6hqd/+umnXCakEcuM5PPu6enp6nBSJMnA7fFx48eP x1wjKhEREZ999pnTyXNRRbBs2bLGp2dF8nyePHkYOIO30sHp06fRoKJFi+rk 0/pSU7799ltR0qpFixbGAxD6cMyYMWKGR6dEAC+4c+dOqA69/e6776oLEnoK 5AejlGkUlrWA4SXGYfTbtGkzYsSI+fPnE/AiA0qNC3H+aefOnV1JBT2/b98+ KGLLli2NdK+A+6lrEh6BcEYUK+jSpUuAUET8BVZX52ALApDt27dXrlxZk3WJ yK1atUocUAJ5dseYYAfS0tJ4nA7z4RpRRXDAgAFCkjEd+EesFlZUfWzHs2fP RJIMX+FYRVwG5yldujR6pN7ffevWrdq1a7viKsuXL4deYn6d8n9Cv/bt2xcu XBhnJ+75559/8lw+9GM1YOuYjNfyIL5q27YtI0K8aTyV4ptvvgkKCmL0Dd5H ByKuh1G4om1IYLdu3QjVERK6GpFLTk6m57GNGgeakZEhChaFhIRMmjQJsodz RGZwebNnz3bsDXFMIaKLRzb4FjwIr1GrVi1LizpCyVCTOnXquEqF9bGm7N27 V2w6MGVlkJeCd4m4zOmZnpiXefPmiX0BzZs3N354ujjdAEsVIAdKGgejjCPg jRy3LiIPIqNJLEk0btx40aJFmtlILD/GB5tGKNSjRw9T9rO7n7om4RGULT+m n0TvHWAUBAWY5bzOAEvhKyF+0GzHKVxsO4YdyeSy999/X7/wBU6BeLZJkyY6 +wuwyZh9DCaSrOQPIOFDhw6lDZoMBEJjwmSbfQOIwltE9VTusGHDBuVKsRZG IwcPHqxx/QREkJwKFSo4bRWKAIkiFFX8qVLf3qPT5UyHRUzGoDzQz6JuDw0z Lt6bN2+uV6+epZ0sajuXLVvW6fIEjhizjCytWLFCoSK0R0xFapJCxbGD9NLS pUuVz5GuSpUq0aWO9+fmhPa5cuVavXq1wbdABvr27Wvp0VG8/ocffshbd+/e 3enI+l5TILom2lKGTymIt23bNt4CAwIlw6zxyrBTm32XTbt27bDhxvuZBov8 jcmTJwdI+rRx0IeYhQsXLqg/xCmsW7cOLShWrNiYMWMg+WJ3mADBaf369Ql/ 4DaELTb7/ndcgFnO0f3UNQmPYK72GQTWFePjZp6zq22qCOrUqVPFzAxm3+ny DUZ7/vz5BL8wGf1SePv378ezlCpVSn0fpVxVz5491Y5brBnhhtRZjlyMi+Hi hIQE9Z0fPnzYtWtXrketFEcDuSKgCw4OdprXQVNbtmwp8gmVn2DEuD8OHSvt xxG0gsmYIg+7du3CFhlP/xAH+bmZc+I1Vq1aBZeIi4tznFFUEkoxs+opBVFE UUOVlbWJbt26qfk8nYAVdXo4OIKUlJRkM6M8C/oVFRWlbo/pEJ6XmAVFdvzW L5pili29devWsGHDRH02VwgNDUUYTNymgf5Wr16d9menJJmjR4/CZLDzqAz0 D3ONWMJb6tSpk5aWpqz4Y2f4VomJFDAEgwYN8u50ZqfwNHVNwn0EFJMheHTT bek3GKdz8ODBpk2b2uxbmbDzYoUU6SVCb9GiRYECBTB0x48f148+8BdibaJP nz7qZz1+/DgmJgYrqj6aTdky2bp1a/X0LBLbo0cPm/1EG8f7427ofxozY8YM 2FHVqlWbNWvmNGeP+y9ZsiR37tzopuacJr7ye2KwFUzGFHkQu8mML5ow6K1a tZo2bZp1EStdFx8fz7ukpqY6PgUuDaOGsWzatEn9+dmzZwkkS5QooZ7EU5Jk NKcHXr16FaYNWXK6P0VM40RGRho8T5amIsmWHlhz/fp1vDkv7riq4i9NMcWW YjpEyrca3LZixYqMy8CBAzdu3Gjw+AOnOHTokDtbFbIcoPEoyJ49ezbbceDA AVe5LoSf06dP7927N2o+dOjQFStWuF9O04rUtQBMhgxkBBSTMReiYHhKSkps bGyNGjWQBwLz9u3bz5o1y82dBSdPnoTA4zs0+aL8nLtp9lCjMp07d7Y5TM8q 5w6gHU6fQgC7d+9eWrVgwQKMv6tw+MGDB6IOmCbKDhD4/gRJN4FBGDx4sCt6 4D7wieXLl8cYmtg2Df744w+iRTiJ40QiLZ86dSpvQRs0p2GuXbsWr924cWN1 LWgCyZCQEMczB8Xeurx58+7YscOxASIwd0oPPMKyZcsIhC31iV999VW+fPlw Oo4ZL/7SlCxkSzFKkyZNQtgY7rp16y5fvlxsVSBwyzZJMj6DFalrgZkMGcjI Qtrne6SlpcGfixcvrtkrLc5006QaiuoWjntCv//+e+gQUbDBqhd4Unycq+l0 vyNgmczzf86PiImJMVL2cNOmTUFBQd4dhOEmhFwRFTpqIv6ldevWjjN+8DQC QD5/++231RxYZPIjkOr4Xdlbhzl1PH79+T+ZJMgYl3nN+hCAN998U8OszIV4 a82CmgJ/aUpWsaXIcGhoKARGlEaBcOJwxRaewDlVPKvAitS1gE2GDGRkFe3z PZS0BE0ChsiXsP2TJINRvXbtGhcjh6Xs0KyrYk4xquXKlXPqO9zHsWPHChUq FLAL2WLqafDgwYGzl18BUUxsbCy95/URAyLHG+tk3WYcZKlfv36udi0p53Bp KvNjSBs2bKj4dMiDoC7iwCnNJhpiwLi4ODFZ4Sr0hnhD3SMjI70+YkActAHT sE4SMP5VqlTB2jtdZ/GXpmQJW3ry5El4LH5TvRa5fft23KuRs3f/nbAidS2Q kyEDGVlC+/wCGEtKSorNnjasFrwnT54gaUrE9+2333bp0oVgHz4DXalevbqa MyOWokqn8YMpL1y4UKxYscKFC584ccLpBTzXv9kyuNEAXPYS2LFjByQhKSnJ O/cqTvw0ZQOUK5w7dw4aDONyOpWBIDVq1AipW7Rokfrz8+fPF7ODP5BYYuqZ M2fyByY0d+7cGmKJiy9sh05JcK4fNmwYfeV1ubn09HSIhPENUK7A2y1YsAA3 MWvWLKcTCP7SlMC3pYgxvDdXrlwff/yxuuvEmmOlSpWyWZKM1TA9dS3AkyED GYGvfX7E1q1bocrwFnUA++mnn9Jj+fPnF9lcqamp4oglsTpPsKM+AnvFihXI OQJs/DRA7h8VFeW0oqnwXEQBBo+ry8bACBAKlSxZ0rsMkFOnThUpUkSQBNPb 9vyffUM6HEM5F0ldixuxTEhI4ENYFk4KOs07inkncfJgnz59lMU+0QOEdYir Pqm+dOlS+fLlnaagZAr6Z9q0aTzai0qzbuLmzZt16tSJjIx0pVP+0pQAt6W8 O8KDx4SxaDY9iUoy+ofeSmhgRepagCdDBjICXPv8i3v37jVt2hTxE5WpsP/r 16+PiIiAQmOr8W63bt3q2LGjUlUP3kJnrlu37rldznfv3k1siDybFelgmQsW LNihQwd1vgdG6Z133sE4W7pVJBvg3LlzRDoDBw70Qs4ZWXp+7969VjTsuf1s dERlxIgROlNGUBQCvfbt24u6Rhg9yA8OHRuI9UMk9uzZ06tXL0E/BG/BZ4mC AHio999/H1I9ZsyYTC0korto0SK4+meffebpi9C3nTt3DgsLM14N1VXbpk+f zljorxz5RVMC3JYiMGI75xtvvKFuHn8jKrbMDr2V0MCK1LUAT4YMZAS49vkd V65cadOmDR5hwIAB+IuePXtiD6EowcHBBMKvvfba7NmzFXGlA/kn7hJb0bJl SyjQxIkTDR6urQHujOfWrFmTCJ2nNGrUCGa1ZMkS46f+ZXtgNCCZkIEtW7Z4 9ENhmqxLkrl//36LFi3gJPr3p/0YwypVqiB1/fr1wyPj0/ntuHHjUOFWrVpx B3W49/vvv3fv3r1atWrx8fF169atU6fO1q1b3VzihAj17dsXq+tpxRJx0MbQ oUMtSpI5efIkqgcryzSx3PeaEmhVRjW4dOlS8eLFHVc3xJDJJBlPYUXqWoAn QwYyFCZjSoXt7Irr168fOXJE7WiQQIxqRkaGYxQDdcGhnD592rqp2tu3bx8+ fPjixYtyyDwC7u+DDz7Abv/000/u/4pxhCckJCRY4Z255+TJk0NDQ3UOD1KD Vzh//jyyp176QTJx3E5XW27cuHHw4EGngqoPzG+TJk2gTB6tziOTMHkok0fP chN37tyJiYnB5ru/7OVLTdm5c2egnfyixqFDhwoWLFigQIEDBw6oPxfnxVeu XFksiyMwMixyB1akrgV+MmTAQog32hcbGysXSSWyPXCC8fHxUVFR7k+wPHv2 LDU11fi5No7Avq1ZswYnonOqlB8BAahXr9748ePd98vXrl2DmFmx/xr32rdv 3+bNm1t6lpMRbNy4UZzGq05PChyIeL948eIaGj9v3jzccfv27bH/eOdOnTrJ dWp3YEXqmkyG9Bow8OrVq9vsx9Z4FKhKSGRRYECGDx/eu3dvv9eYgsA0bNjw yJEj/m2GDjIyMmJiYpYuXerfDAq8xoQJE15//XVTTvGzArQwMTHRZj+O0OkB nX6HKHYdFBSkdoW//PJL7dq1afbEiRNp86lTp7p06eL1Bvx/G6xIXZPJkN4B 6YWT586dG2H2dCZZQiKLArG/fv2630vf3L171+C5AD4AJtfvxbjEeAXgRIeC /fv349SworVq1QrMvcxE/ZMnT8bUp6WlCaJ1/vz5Fi1avPLKKzR7+vTpdO/Y sWM1G7QldGBR6ppMhvQOWKrRo0fnypXLZj8yWJ7RKSEhIeEm4MOffPJJiRIl sJ84tUCOmglUU1JSaGq3bt06d+7cuHHjb775Bt4VFRUVHBzcpk2brl273rt3 z9/NzGKwKHVNJkN6AZQRciiWmUJCQhYuXOj3iXcJCQmJQAZmc8eOHa+++ipm M1++fMOGDQvYHB41Hjx4cOzYsR9//FGZk/zvf/976dIlOJh0mhLZAM+ePdu2 bVvbtm3z5MlTrFgxSw/Lk5CQkMi6+OOPP6Kjo8Vy0sSJEwm0/d0iCQmJ/w9P nz49fPiwSEySkJCQkNAAI7l//36/ZxBJSEhISEhISEhISEhISEhISEhISEhI SEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCj4f/rz Qxg= "], {{0, 70}, {750, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{401.42857142857184`, Automatic}, ImageSizeRaw->{750, 70}, PlotRange->{{0, 750}, {0, 70}}]], "Input",ExpressionUUID-> "43276793-887e-4c35-bcf0-b4eb382efb32"], "\n", Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnV9MG3e2x+fe+3If5uH6kQckrpAlP0SKELJ0QaiyH0CJLBmUClkkuZaJ kmujbhbS3Jh2VUi1hVSbWd3WqInpttY2Ft2Ybazsxm3jtLgtToWzids4Ait1 GsjaCU4CAWI5yISB4Xr+eoxn7Jmxxzbk95Fa7RZsBjxzfud3ft/zPf95pPfA //wrBEEn/z39rwPd/do33+x++/X/SP+fzt+e7DH/9tjR/b/932PmY2/+15F/ S//H/07/c/tfIAj/31sAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAADgVWEzFbv+uftOstLXIYa12Hd/9cw8Qyt9 HQAAACCM9eWQw9Rkdsw8xyp9KWLA0Pg3g60dgxMPQbwFAABVz0bi1getNYdH p3Mj7cZy8CJSAr4IJTcLXwiWWgz/4Dr/bq9BUw+lqWnUHbUiY77IEh1LV2dd v9lvn95gvWZ91tWtVFvccyDeAgCAKoYMVs19nihHsMIeeSx7IDLudb45ZHO4 3GzG7b2vQSRKE3LxUtYXXY4P3zGqYeKripPepY3ct2eBFzEcva1wfbt19O/X Z+biBLHI7clLiEmtNiDfx1F0eeqsFm60+hazX7uB/3fF/tOTj3dUWg4AAF4h sMQNpLVOdeLqU644hT31WBQQrDl1McRZF30eGGohg2lLVrbJsJma/atFCUP1 SDBf3rkWn/zAoKzT9P0ltLzOcRnJOw5Ti+6U1Zh+K9jijue8F7Z0C2mHlb3u aCrPjwEAAIAKkQjZOmBFj3ueI8RtbaFPPb0KRbfz/ir3qzfvOtpqiGDbNOBf 4vkRS/6BJsjojvNeA1HEgBXq/qtxlDczxZYm+lVEltzmiHAVJLDE1HCTQtE1 dn8dpLcAAKCqwNYjjnZY0YTc5A6meA2hSW+/w5ssLnl7FQWrBMkgoqkbCqzx XQQZRZv+EEjkrzMkgkgrBMF7kVs8b7U+7+5RQI09nhiItgAAoIrAnvr6myH4 iCv6kufrHkstX9KLf/2F/3QtWbBtd87xBrh0sN3X7vyV5+vP01+FoJo2x91C 52cbS96Tinwp9NbW6tTQHhhqHQ2D5BYAAFQNm7PODhhSWDyc1VqyhlBn9SV4 32A1bG8nQm2ebDPNos+qyznSYt6DCI+QBgkWlveiQaS+wEFbMmTTQVDLgP9Z wXcDAACAsvAibD8AQXssnkfcsRavIXQMBVZ43wB74DLUEcE2Vx7A/rZfne3t ttALzi9uRhxt+Du0DAWeF7pgIpHOl0Lj3/MyNNIM5VlBAAAAoLxsTNtbFNwn +9Q3RFzWz0Kr/DEr4bOSh2N53oR8n95zgQR3kQBPVomab9PwVKJAeNxYnkSO jf2Sv7C79fK2rVkhQGkGAAAA5YBKKXlO9gWArQWRvWTBtsUelhrYsLjbRApx 4f0DV+6u8KsRBLPoszYWSLYBAACgTKBxtyUd5GoH/Nzb+8KkIo5OMtYW8Sbp aBt1d6uotggIrteahz51+4KRhyspqWF3PebqLlRGBgAAgPJANiPUGVwPpMa0 eY+ZDJJ7e71PirgSLPXLnw0KKIeaRv0bg+fHfaFYUly6i60FhvFSssEFFGAA AKDCUGdbeWVU+XnhH6BUX4ecc0WmkBvJsKtPU5sbcMl0V2n4P1/0hfDAic05 cZFE3XBgDURbIaCp1M51ldhcS70EHzOgeqHOpQQJrjjZCNvJNl1oLxIsRUzD UguRgMeBWI0aJUfEVb/jjQsO6XG3EX+NOd+xHYAASz24Nnyw3fYTT4tg1YNF 3Ud0lgs/L5eg2g8AyACVl3a7YnwNC/lZm3Meonb7+YS40kCT8UjQ93enzdrZ WMPkt6r+iSWBz9NaYKiuJCn3LodwnGhUmsYikgvklYfw2NSqtIPf5On13vlg aPIZ4cz0TGRVDVBpis39nnh7SSWC0uSOyvjZo09ujR6lMt2at308+rGcVxWb t78KEJG2AdafCyUrppHDEj87enQawwf+Bc77MB1Ib47bz48F5vPepulvu9qv rq+KeIsmosGvHEi/uZPwCK3XGvtt44GoxNUMW43f+ca5fbun1BjfsrkmIyvS MiVAeSky2K7dQvaSgq12e1jmDSjZU4yzj68zYjsg2BYEfTgxuL/SJmkvo64j xG3U6YhwXsYz/wBRrCosUNxIhs7p4QaT406yUuEWexG7/merTgXVt1sd10IP ltIBFks9DU+MGJWN3a57IiPjZio2aTe/ptT2IBe/DUYeraSIPwGaXJi7fe3C YCfupNfeP3ZroeLry44FSy09mPnR63bakfesZpPRaDysa4S3VzCVms7DRhyL degsYh+74rsRJj5coRQXbOm2LwiqPe0XcXLFAov7ht/3xLg9GbZ9K+3AAIJt qUj+4jAqIM1bvnhFH1R6f8RX9qcPYYVpCyv6S6GPJpFD6ewT1v7eu/0wd2PJ e6pG+L6MeEly5jOTqq3PyRdLMXT55wuWFhiqUVvGZiq3N9mJ4Cvg5LjNasgN rMKBGw1W2/hkZqgBP1Tzl7RgS2l00yh6vRLVDOkLqBPa5EXFTuFNYdQL+PKl 3cFGMvzFQKdaoT46MvVETHghDS3F1MBlgo6lfGV/+hBWsLZwPeLsUkLlT9fJ bUL6SlWnPPMcxwTE/Sj8WSMi7Z7DIzefFHjB+j1XdwMu1+l2zQLnJQFgqUdB N2JS1/BEUAmodFbHd3N5m1+pcCQ4V8yCbNFKU8vv5VXgl8a7zwrYiTOQZl+Q ots9L/CHvQJqBCx+pUdJL8xiOvgIr/haSHnCE69wxY+OpXxlf+YQVvhBJ5aa +VgPw0qLO1q+zfXqfWc3oRNv7vdxGnKkZp0muHkkJEyhRnxAGu6xKbnf/PTq CdzkuU4/EqxY/WRHgL2I+UfNRJglklLnFV8gFIniB47r95ztjO6UsR9Ek4uP 4/FHc+GfAj6Py/HBwPEO3kwYbrE4/sFbz8HNYWolbrRJUwWcViQoTYlAdJ8J 3Fhhj719Dfx3MtcrYi4DVESJYwewseA5znzycJdL8CEl4RUP1bU7wpU+XCkU S7Go26QUu5TQFf6mE16hK3ORYPPubupp4DL2xJ/xj4zKZsHXsxpxHISbBi5P /3M5JaTsQHw/fhMcdER2qnxPbrDkvS+HXk9nl7DmxKe+yHZPANqfhcxUzZ55 vrdBkw9n/JdG+vSZb89Qy38+S0xPgOqN7pjoKydbBiAx8oDtb0E+RzpbqGCo Jw8+xOUq1B+vgD/YjgZ7OTPaRkZb5THhA5GpyKB6x1d5lx66YMsXS2mbI5HN 4KQfPgSp3/Mvl+F3ZJrW2YbMm6mVJ7HIbf9VJ2JpU6qPfuj9VWjaSTmO4tFT eeRSVEgyEnV1Ea+o6fNWuC5UlZCqG/wPqn1vglOrz0xAwBGSf66vRL49b27J yXNrtcPXlzk+AjKvgBtsIZF3JLWpxy/e5JZ4FEE9RwVDKCmhrIW1w5Pc0iBO SG+E4hwbdgDrK7M3vF/+EF4UriUmD/drWu3TlU5rCx5+MTZH4pvBqRGlZcne qR3iNmoadQeNZuuQzeH+7k5cUIJKvV3G3Al/Po57FgQ8ncxoKv4pAK8sTKSF oLbhAM9aRFUdSQS3HqDPQhdPabYHXO2gfyH3p1AVM9EGAmRKDAmbrcAJpS6A tceOv96g7b80wzXhMb0cLNxyWNS19fo/+IT3jmWusEjHhl0IldZWxyNZ6PCL zhilXC22GjiDD4RWveuXtvMSDuMyWpre8Ewmg6ciPVeEJTPM0NX6Ltfu3cxJ gBwCS/45+dWDWVUEcbXHtfjEe9rseAu3OyK51SRyw1KwFIClVh7HM1PFL75N v7lCbf1LIEwNHI8/Fu7SRcx3UPa4Zlex5N3Lgwfq6/V9ts+v+oPhuUfkjwlO uGx9+nq4xXzeNydW1kL59FZFSKkmyBkWVWKrLrhgK80CdPUm0oSXS7pl7bjZ YiVF+eaZiiCdiY317auH1Z0DnwcXBOYYmXZO6eqgXQhdUMLJU8NnL3AS7jfm eJSBszq6EhjSFPSi2Yg49sGszVEWhzuZxhbYIFhnNe/p62OVGfHtMO6JYD6k I5tz6zWG3nfPu3x34nmMy3khNcBizoxeDahiIP9gjrJCF2z5ylh0oSnjk7l5 333SJrgMS60scIdzVtbcdsFjJp4OocoaWUDjbjP1GALzpQxkfIPrdf2OfB2I GatYSJr5wHrY0V7HCraKFvt0zm1KTpCB9wxN7aJTzLVZ52G4WkJK9bCZ8L+L G2Lmn6lRNhjLOO6EkK4DsBzg8WOgFqHqKdY7yKy1ppU5hYMtunjv3qI8f3pW sN3VckeRvJjzf+UNRBYL1MyZuigktTSKz2pkJ7ew2bOQ+12kcXfNqd0zQWZ9 2t5aAzX9MSglKd7F0NLo6lBoZCzjuIItpQTOKjK8jLqOtdhuiygMUbmx5JMF gdDKq7x/WCx5zzPQ0YrckKehkR1s5W+f32VkHXFKHe+SpWfg269hq8E/Nu2e uvrGku8dVRkqdTsOKpPk3OCUH9bGLWehJ46P9x006mvYeVp6p9bRLVJHSlcq ZF5fsOXrw9paXpkrthoPjg/qNQbke9lMcl6EbPvo5xy0qIuEOeLMWtxFsk2U wrfPwWKensbqEF4WDVE8gfUfz+xgw0B+0KehyyPWTjVMDA8adgUFO5AwgqIi vOLRpcjkuK3/KFFXh+s1Xb1DF3xCGsM5Loc+/CIKXI0WRyCaQHHFeCx07U+9 uq7By3eTq3fs+joIem3A9xhFn9wc6W7jVjDmgQ7pil7PU1l31hvJWc+AthbW nLzgJzet6d9lkTjmPTdg1DSZEHdI0hVgqUXc4vmDgd4uTT1ZGtZ0mt/O8fti OjrlC7bryzNXkF6yhUqpMVoRx1dBSUcq1UbG5gUqpuLNrkXkKSphaNRtUda1 7lz7aIr1uOeEEjbYZ3bhyp7O95wWXfvgxSm8wfDBTfthBVSrPf09h6SPAyaT lGZfvL4ccvXrVBAHDabRG4Vj/upPtv2DGdELlUsoWs5f/9WfDuBm4piVmIJk /xv9CGPo8rRn5C3cWrC+zTLyg/i0kPEvKmKJEf7Dkv8MuEcIX0WYOEo+ZLae sY99HYgsSFn5scTcd4538IVVqbWcdV79cYYU6sQfzc343bY3tE3HncwRc1Za JdmhOg+4wKm1qef8xHQs/uCW4xi1UsItFqcEjzX83dr6qkQ1kSVFKELLkQwi msxjkU9Piy74BtVwO3Jr5zagkEuGBCO7nQAW972lN4yGmBub6keGNEOBFQGv pzfUUo7MOZSE2SjZF8bF+rz7jb0Z0xsmzZZ9/DH9V6qS4olASGfFFnz/on/X PfOM6xMjcun23zgjRF7B3ggL7IMQAy7Pru123qdzMWzBP6ilf56IJnryypen zmpVZurKKw+7AlNMeT8r2BaQNGDPZ9ILlqjRM9UElgyNGhoEZ3o7C/Spt3+v aTyr1Y6WdwrqktsI2RrgQgsuJ1mRFm7sOD7wPoLzfpYpB9xhC/HfXKs3kebD rHom060gvy6CGtjBczpcjazFp84ZcX+hWu2AZzafwhxvY2/vwPXzmdNGiF9K J53059XVhNxkb3szdhB4uBUuESF9I/XDU4vV8phmbQokO71sZZcRBNhzEfFW xdc+XMUQRyrNVeHSLwfbg9VWZnwwJExLT2tBxZoM0FOPa9Tmc9478eztMIau 3J9yndYTtUR+OWs6re2pZdu1FdmtIAqmj1WUlU3FYJY2hbr/auGbGbfcOTgU WGD8TmVaVrBU4vl29dTzIMIkhC0D/mdC3oZovW+urr0ne1Mg2elli5mfSyJM EIIlZr8c7rBeq45yikBWw6PmfP5mJQF76H1rP5fVT6mB1V2fhlgfFS7hq93e 85U5zReiwaYzH5G76RRxRAXvH/Dc468SMGOR9yHB5xxfxzu5dFlfyu1WkJF5 j5koNQt3Qq4YmU2E4EFFmwnf75psV69lTsfk1rkxsJuzBBngkHvPVuRGXuPX MpPlRFFUZ2Vm1LioVB/ARaWCLTbn6tJsr20yCZugAXDMOZEohzdCPgrvH5x4 WGirv5Gc/sSg4GyNwZV4e7NciIuwl5ECU0mT49iohDCbCJFOiXG3se31zj1M YluOo0AK/M6kH4iCeg806ulrLq/JsBDYvWOSrblxWJWcajAvBUgBb5uq3ba7 Ifv+yAdTiP8Do3gXEWyxpYl+1R6T676wompyxm6Ac3dhm/ecHW3Ze0zm9i7P 4GMm2BYhiErN+hwjCHJ2yGoh+tP3vlbq4zZWE4diW3W0AFkWKmVO4NltU3mV 7dji1LBOUdG5otxkSRCL6TR8EbYfoD+CHvc8iLU7EVyXklNDoLr+IaEbHybY Cg84eKG1htO8iAciODdnp1VEv8x2P216X1+mIqqE3z2H5IzbhiDIabOGjIcl z8mJpUrE6skiO9hKtzyVBPbUY2EcynitSJIRp1nJMy2owrALtsXs/SnXIzw9 3vkC2lcXLPnwbiy7Ypr5ZAX6P4jP7vAVX9PnfSzm5lsJDGmzyrB4J3hLTsKD LkyNnug76w4LdTsvDilZPQ8SZvQIgn2yL9o9Kav7qfx9oKxmCm5tCVGIVnSO hFaqqnxAwJTX8LSlWVQneBa4WIjSoJfJrx5QHhh/FeGNUeKD7eaDL8+6ZsS1 BxG3bkZgQNQ6ymAnW4ASBls6sJQ4J2ftQMWXDTMzUyRkxSVgM+F7mw72uUs/ WczX9HtjVemMk9khCtarc8EkP7CuiiRtgBJAusbhCPaCK0XdUghL3t5aumaI q5JeKyJbKBWlC7a0u1eJx3+8vG1rZhSrYsuG7FgnZhxqCWGl1tk3JIbOe/pU qkINL5WD/ZffcyYgrfMYWwmNdBIlIDBwc9eRmBxQkeU94e1X5Qq2uEZCTw5r xrfGNYedsxUv05Us2NI5pBD5hwiy+hH2IkFxjfmJINJKv1hsJ1epYFUSWDMO iCM/VTVL31mWCJI9ZjcStz5oJWTmqj7PfLX+pgBJsDIZEWsx05Aotx9U+rnb Rxwe4ZbCNVUxD6JUwZbpoC+tOy41LE/kVoWGnZtVzFOUrUmgO7BSYaepUWn6 bKba5AcZ2KIvHol4AbBUZMyE9/rBRf2m8mtdAFKgRrqLXYuZgNMyFJBwUwkn nULr8JiGB4EmuX0PhFEKNQIOnUOKTj7zw26orzO4Hoh5a5YCsKKeosxsX+qY CX04MbhfUeWNqBmlujQdAuXzhjdXWsaKWlNk17rsQCrWQca6hIzSRlQ9v4SH RPnB87R65GYi+McmyUWwElOiEgr9bEqZmZIPWgiHs4+swAgmU72vsFU+O3C1 Dl/85JhSeYw19KoaYdUQJOgQ1pdDDiKnVemHJ0pUJ5FL67IjqXywZe3Xtq/F G8nYrzH+5ZUWY8odbPGoXo94/UOtVXA0RlKiDjLKXKLEBdutrZjbyNxT4sbZ sFbePKMMywP7WD99A+8/PSlKNFh+2Bcssi7EjC+vf33oyzxt7GKRSesCkESm OzJnLcYeeSxtebbtzCmMzEMJiWD7prW35oA9XMoT+yKgU0ehHiObqfhPXzqG ew2aetxftxdx315AN2lBZsnHmbFOl8R9NvQsnvTd0DV2P2/vCZb42dGj0xg+ 8C9wDw9A4zfH7efH8o1EzA9bsFqnt98pwd8ITUSDXzkQwh4Y/+Nojf228UC0 NDMBWLVuMcLm9ZXI14hhL16kNSDe2ZJ6PMikdQFIglUZywlluOYqr+aWHpBU 6l3wNuh6RRnsvAQixvULS0X99h41XKvp+8yPO35vphanrwx0tA5evvqhHn+T Ehdst7KOaUQEWwyNjpvIaKHscc3mL96/jLqOwPlWimf+gZZiP7WMAKxoJxzs Rez6n606FVTfbnVcCz1YSgdYLPU0PDFiLI1bNUupLrAtCEsthicc1nYi7B8Y dE8vl1p4IJPWBSAJ5pHJfSg2lryn6vIf/dPrpszTuMhgW03z7Gg/24IO/IRL ZwM+eMKRPXoAve8yUWVVGZYq1iGXcH8/3NSFtE5ttLjnCkVo2jeeb6Wg7aqK yamwp1dPqGgznGLuMfTRJHJImc4dtb/3Rl9kvw1+n9cU44JIQS8uaQo03aDJ 2PR1z8fEvAx8LIX5/LfZ04hKhUxaF4A0mP1mTuaAd8XuL6SxpF/OUkLKACFk qkAfEy/0pIZC6RYuVWrgUUsycjt5sg5iah7xyepsISFHeITVAPFZaoUMZaNj Kd9KQZeYpB+CE+uUur6e6XyVOvGNkDHgYY3HSIE4eih2UDur1p3t+YOlVh7H 4/G5cPAf/quf24etx3S0O346xx79Us6BazJpXQDSYE5Stsm3cFvRjraRUIEb oTxnnfhplOjufhkROIMsEbJ1EI7dZlc0N69ggq1MI8LJedA5zz43jOdtrcB+ ATqW8q0URd8YeITUN/V//WCKMYaVNu1o9b6TtIjg685IzTpNcDF2MehSxOeg 0lRB1DR2/i4dZaNJmbuN5dK6AKTBDN3IXtnxTW7BtBan+ARGAPMec0O5zKuF wEzXzWM8mDHB5nHAprMO+TYFhAMhEe0Pj07zK6bQZzOXfkdEWuGKo0KxlPEY lHYITsx22WP4ZDq5wXbPllCRyLjxbLeJI7/8Iub/yKhslqy7IOaltggKs3Cj /vjwp+7vQ7FEmSwd5NK6AKSxmfC/S+Q/LAkT9nx69EibwLFrq1NDuMW0nPMR 8FMSufsmxEBHkrzGg0wFjyf7pbOOIuauCiD1y6U+ou9T2T3izz1zX1+JfHve TMQKcYojumDLF0vpgy1JBdu1uPedpkzzAktZIXo7zBwUsgs+m6mVJ7HIbf9V J2JpU6qPfuj9VarUCm9p5Iy0cKPusNFktr6H2J1u7/VQ5NHK9gFAJaTMWheA VKiKltJgn4rG47HIj65Bg1ZE9wr9LMglFSAPeavphqEiSd4DO+YYnefkBYu7 TcS2vRgbf0GgT4Jjb+vIMej6NwbPOy+503zhtJ85RR3QNJuQy6EFMUtlgcOv YqZmEI5ee9jNC+yZ4ALrz8yFsKcuMtQ06g4azdYhm8P93Z24jDGwHFRC6wIo gvTz6HrfrFUS1STryOXbYsau0YoXuQ6wCKF4CQ6LS4Wg3xcfO0xmONzZr9wF 221g6ErE73YgVnOnhpwgoNR0dvcOfjR29cas+HPwQrUjZsyx2FuCcPTao9s2 MolemCDR0+6YJa9uOLAbA06FtC6AykFVEuSRZpHb7epR2NLdrHmHWTCNzHzB gW6JlVfFIROCC7YiPzUsGRzRt2yPG1vZCaqo94y7jeSrhIyK3nFUUOsCqBiU T7UcggGy56KKVmdqZck/ZZsJtjy5H61PZhVsl4P2M67qKZXkgy7YNthC+Qq2 rDL+5n33SVuBWQPonNvSouU+KWBbaYkpKFEnRHJ3OFaEympdABWDOvMVNb9V EGS9Tv7CplBoPRXn0XYGbC0wXIff6tw2NbRMl/V7pWN4Q59EHWmZYeQB3Oki 00iVUWrhK2ZLXm0VtnQL6VCZxiI8fbMse14xrWT0olY42KKL9+4t7oS/PkkV aF0AFeN5ENkneoRrYUhlmljfKtnAGz1UgowHqUZmLikCnsKRx+uMxAIPUA1V 4dNbmEzc4wq2rHm+TJHhZdR1rCWfg9DqrKtHpR2e5PZYIN+DZbErQhNLWz3k 7T7Dkvc8Ax2tyA1ZTZlLSnVoXQAVAotf6VHCJR64TGYm1XI6Rkz1Tefv+o9n ChuXkLu87asPlrzr7m9vNXa9xs578Vk/nRUaiCAW1o6+5tQ2mTFxXrPvoFFP bGBp5fZ62NHRzb/l2VieOqtVFfROZBtqiTDlxpavD2trefdc2Go8OD6o1xiQ 76t29AMH1aN1AVQGslWnlDOXSRuNMs/R5oVKa7WDfkEC5K3U3YuWFhjeP3Dl 7gqKocl42PdJr1bXdzG0vP7IeyIdttP75l9SWGL28tut3a5ZwePdKwlz+EUc /zVaHIFoAt1K/3ax0LU/9eq6Bi/fTa7esevrIOi1Ad9jFH1yc6S7jbf/l5hK oNouP+D8TpalOazqn+DaO3NC2XHDmpMX/JFFXOiVvtrFWCQ44To3YNQ0mRB3 aEeUbzJUmdYFUAlSxFPGXbGXAFmwLdruqTRsLPvfU0MK9eAPhX0DGNBnM57R weMdjXBNo+5o/8hlphEeS0WvO88c1zfCsLpz4Itw9c55yYbKqRQt56//6h+3 9ZNaMkLBa/8b/dth6PK0Z+QtY/pL9W2WkR94kkYMjX8zqG3mkB9wsnnP2VFH h/ncDRSaXHnBFzOx5D8D7hHCV5HQG+sOma1n7GNfB3BhqphfvyrY3VoXgECw 9ftjXQpY2XOlFLkoOeNMpI5dHqhSpPq9AkfquxymW0GaTUH2e+E1h2YxoxsZ twco93QAP6Ktq5Jyk9zsbq0LQDhr855TKkEefYXAHrgMddKHQZcQ/Ky8HYY7 R0Irlb6UysJ0K1iK9Mjawh5PntapxBZPMmeL+IR153063OIf0IEmUZuOHcyu 1roAREGGJqXZGSkuI8Wd7yQPgy4h6IJvUA019Xmir/rNKrVbgeudxo90Sxkd i60ER40NVLg1fDQ1+yg+e2N88HV1VY/cLTW7V+sCEE1JBqFu3HW83ltoXoDc bCRnPjMpG4XWFXc3ud0KFQFdCF+7MNRr1DWmrwau15qHLnw/9+pEWpzdqnUB SIKMt/pzoR38FIg8wdnlFGMvAyg1u1LrApAM+izkGui23ap0HUAqWPTym702 34MdeGAtB4zCFgzFrg52n9YFAADg0AOFwVBsAAAAkBF0YWr0RN9Zdzh/qxcA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA ADuG/wfL/QQD "], {{0, 93}, {463, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{217.28571428571462`, Automatic}, ImageSizeRaw->{463, 93}, PlotRange->{{0, 463}, {0, 93}}]], "Input",ExpressionUUID-> "223622e7-06d6-4346-b88f-e1766c1baa6c"] }], "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}, 3.766422617779147*^9, { 3.766422650279611*^9, 3.7664227091222568`*^9}, {3.76642405342382*^9, 3.766424071483514*^9}, {3.7664248601512127`*^9, 3.7664248668300447`*^9}, { 3.7664249248944626`*^9, 3.766424925179451*^9}},ExpressionUUID->"68c7e39c-fd44-4942-9218-\ 54c779e0448b"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"FHoloTerms", "[", "mu_", "]"}], "[", RowBox[{"aa_", ",", "bb_", ",", "cc_", ",", "dd_"}], "]"}], ":=", " ", RowBox[{ 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, 3.7664227180293713`*^9, { 3.7664235721313095`*^9, 3.7664235735231075`*^9}, 3.7664240345876536`*^9}, CellLabel->"In[70]:=",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[71]:=",ExpressionUUID->"40bcebc9-83f7-487b-9a0f-2943e2cd1757"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"DEqm", "[", "Rep", "]"}], " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{"I", " ", RowBox[{ RowBox[{"\[Gamma]", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"dd", ",", "ee"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"\[Chi]", "[", "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, 3.7664191611263485`*^9, {3.7664233091612053`*^9, 3.7664233094020214`*^9}}, CellLabel->"In[72]:=",ExpressionUUID->"3659674d-da94-46b1-90fc-ffa5f5ccf107"], Cell[BoxData[ RowBox[{ RowBox[{"ZHoloTerms", "[", RowBox[{"aa_", ",", "bb_", ",", "cc_"}], "]"}], ":=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], RowBox[{"Cmetric", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"KroneckerDelta", "[", RowBox[{"cc", ",", "dd"}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{"\[Gamma]5down", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"\[Gamma]5", "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}]}]}], " ", ")"}], 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}, 3.766422624742544*^9, { 3.766423329206769*^9, 3.766423336571664*^9}, {3.766423391165848*^9, 3.7664234064381886`*^9}, {3.7664235765089283`*^9, 3.766423581101342*^9}, { 3.7664248701574497`*^9, 3.766424876208436*^9}}, CellLabel->"In[73]:=",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[74]:=",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[{"\[Chi]", "[", "cc", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"cc", ",", "1", ",", "4"}], "}"}]}], "]"}], "==", RowBox[{"(", 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[{"\[Chi]", "[", "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}, { 3.766419161294682*^9, 3.7664191614508977`*^9}, {3.766423541194373*^9, 3.766423564130085*^9}, {3.7664236018519325`*^9, 3.7664236100348673`*^9}, { 3.766423851198599*^9, 3.766423930231083*^9}, {3.7664239761651564`*^9, 3.766424004037015*^9}, {3.7664240375638266`*^9, 3.7664240470977745`*^9}, 3.7664248827798443`*^9}, CellLabel->"In[75]:=",ExpressionUUID->"8521d9af-e112-4483-873b-cd68f91145bd"], Cell[BoxData["True"], "Output", CellChangeTimes->{ 3.766423421506925*^9, {3.76642354194112*^9, 3.766423610633522*^9}, { 3.766423854976429*^9, 3.766423931197199*^9}, {3.766423977151555*^9, 3.7664240056940613`*^9}, {3.76642403912083*^9, 3.7664240501952324`*^9}, 3.76642489170375*^9, 3.7664249377971697`*^9, 3.766426331930319*^9}, CellLabel->"Out[75]=",ExpressionUUID->"c8671741-3204-4c69-a377-a797caeeaafe"] }, Open ]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Diagonal Lagrangian\n\[ScriptCapitalL] = ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], RowBox[{ SubscriptBox["\[PartialD]", "\[Mu]"], "\[Phi]"}], RowBox[{ SuperscriptBox["\[PartialD]", "\[Mu]"], "\[Phi]"}]}], "-", RowBox[{ FractionBox["2", "3"], " ", SubscriptBox["H", "\[Alpha]\[Mu]\[Nu]"], SuperscriptBox["H", "\[Alpha]\[Mu]\[Nu]"]}], "+", " ", RowBox[{"i", " ", FractionBox["1", "2"], " ", SuperscriptBox[ RowBox[{ SubscriptBox["\[Chi]", "a"], "(", SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], RowBox[{ SubscriptBox["\[PartialD]", "\[Mu]"], SubscriptBox["\[Chi]", "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[{ RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["D", "c"], "\[Phi]"}], ")"}], RowBox[{ SubscriptBox["\[PartialD]", "\[Mu]"], RowBox[{ SuperscriptBox["\[PartialD]", "\[Mu]"], "\[Phi]"}]}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ SubscriptBox["D", "c"], SubscriptBox["B", "\[Mu]\[Nu]"]}], ")"}], RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], SuperscriptBox["H", "\[Alpha]\[Mu]\[Nu]"]}]}]}]}], TraditionalForm]], ExpressionUUID->"a849a8c5-3ce1-4129-a88a-dea63ebba65b"], " -", Cell[BoxData[ RowBox[{" ", RowBox[{"i", " ", SubscriptBox["\[Chi]", "a"], SuperscriptBox[ RowBox[{"(", SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], RowBox[{ SubscriptBox["\[PartialD]", "\[Mu]"], RowBox[{"(", RowBox[{ SubscriptBox["D", "c"], SubscriptBox["\[Chi]", "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}, {3.766419161647767*^9, 3.76641916220802*^9}, {3.7664251519710383`*^9, 3.7664252532148743`*^9}, { 3.7664253525948877`*^9, 3.7664253662103014`*^9}, {3.7664254038987412`*^9, 3.7664254038987412`*^9}, {3.766425440980539*^9, 3.7664255022431774`*^9}, { 3.7664263644954553`*^9, 3.7664263708446317`*^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[{"\[Chi]", "[", "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[{"\[Chi]", "[", "xp", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], RowBox[{"D", "[", RowBox[{ RowBox[{"efield", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "z"}], "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"\[Chi]", "[", "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[{"\[Chi]", "[", "xp", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], RowBox[{"D", "[", " ", RowBox[{ RowBox[{"efield", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "y"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"\[Chi]", "[", "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[{"\[Chi]", "[", "xp", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], RowBox[{"D", "[", " ", RowBox[{ RowBox[{"efield", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "x"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"\[Chi]", "[", "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[{"\[Chi]", "[", "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}, { 3.7664191623625765`*^9, 3.7664191635893683`*^9}}, CellLabel->"In[86]:=",ExpressionUUID->"60d195f6-3f56-4da5-b9bb-07353989501b"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"efield__", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{"\[Chi]", "[", "xp__", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "\[Rule]", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"\[Chi]", "[", "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[{"\[Chi]", "[", "xp__", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "\[Rule]", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"\[Chi]", "[", "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[{"\[Chi]", "[", "xp__", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "\[Rule]", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"\[Chi]", "[", "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[{"\[Chi]", "[", "xp__", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "\[Rule]", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"\[Chi]", "[", "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.7664251481998205`*^9, 3.7664263431396985`*^9, 3.7664263834163575`*^9}, CellLabel->"Out[86]=",ExpressionUUID->"61a3fade-6a03-4375-b734-89681e0603ac"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"DLPhi", " ", "=", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["D", "c"], "\[Phi]"}], ")"}], RowBox[{ SubscriptBox["\[PartialD]", "\[Mu]"], RowBox[{ SuperscriptBox["\[PartialD]", "\[Mu]"], "\[Phi]", " "}]}]}]}], TraditionalForm]],ExpressionUUID->"dfdec57c-daf6-45e4-89de-88187d078b1c"]], \ "Subsection", CellChangeTimes->{{3.738596907992287*^9, 3.738596935982888*^9}, { 3.739197377993128*^9, 3.739197380159251*^9}, {3.7609851661861486`*^9, 3.7609851661861486`*^9}, {3.766425372715988*^9, 3.7664254056360807`*^9}, { 3.7664255089179373`*^9, 3.7664255089179373`*^9}, {3.7664255772399926`*^9, 3.7664255847656765`*^9}},ExpressionUUID->"d3f604f1-188c-4f17-a915-\ 618f01cfda5b"], Cell[BoxData[ RowBox[{ RowBox[{"DLPhi", " ", "=", RowBox[{"Table", "[", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Da", "[", "ci", "]"}], "[", RowBox[{"\[Phi]", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], RowBox[{"Lap", "[", RowBox[{"\[Phi]", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], ",", 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, 3.766419188081231*^9, {3.7664253931419725`*^9, 3.766425396547619*^9}, {3.766425512857543*^9, 3.766425545485142*^9}, { 3.7664255896046195`*^9, 3.766425643834722*^9}}, CellLabel->"In[87]:=",ExpressionUUID->"d300de13-ed62-4628-9a9e-9f13f55fee21"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"DLB", " ", "=", RowBox[{"2", " ", RowBox[{"(", RowBox[{ SubscriptBox["D", "c"], SubscriptBox["B", "\[Mu]\[Nu]"]}], ")"}], RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], SuperscriptBox["H", "\[Alpha]\[Mu]\[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}, {3.766425372715988*^9, 3.7664254056360807`*^9}, { 3.7664255089179373`*^9, 3.7664255089179373`*^9}, {3.7664263721780825`*^9, 3.7664263721780825`*^9}},ExpressionUUID->"d29e4cf2-26ed-41c7-ae34-\ 02771b72db74"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Hamnup", "[", RowBox[{"0", ",", "0", ",", "0"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Input", CellChangeTimes->{{3.7664257993509097`*^9, 3.766425810367278*^9}}, CellLabel->"In[88]:=",ExpressionUUID->"8e380192-458a-4c9b-9827-cc12ffcaddca"], Cell[BoxData["0"], "Output", CellChangeTimes->{{3.76642580392838*^9, 3.7664258107767067`*^9}, 3.766426343249689*^9, 3.766426383527177*^9}, CellLabel->"Out[88]=",ExpressionUUID->"3dd8ad0a-be3c-4d8a-b00b-2ec3d28af9f5"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"DLB", " ", "=", RowBox[{"2", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Sum", "[", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Da", "[", "ci", "]"}], "[", RowBox[{ RowBox[{"Bmn", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"Hamnup", "[", RowBox[{"ap", ",", "mu", ",", "nu"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "ap", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"ap", ",", "0", ",", "3"}], "}"}], ",", 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, 3.766419188081231*^9, {3.7664253931419725`*^9, 3.766425396547619*^9}, {3.766425512857543*^9, 3.766425545485142*^9}, 3.766426369119496*^9}, CellLabel->"In[89]:=",ExpressionUUID->"266e3b3a-427c-44d4-a8e4-6de0612ed23f"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"Hamnup", "[", RowBox[{"ap", ",", "mu", ",", "nu"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "ap", "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"ap", ",", "0", ",", "3"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.7664257673602853`*^9, 3.7664257831946487`*^9}}, CellLabel->"In[90]:=",ExpressionUUID->"d4734600-b008-47f1-bf67-ef7dd4981595"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "1"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "1"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "3"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "2"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"3", ",", "1"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"1", ",", "2"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "2"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "3"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "1"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "2"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"2", ",", "3"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"1", ",", "2"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "2"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "3"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "1"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "3"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"2", ",", "3"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"3", ",", "1"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "1"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "1"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "3"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "2"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"3", ",", "1"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"1", ",", "2"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", "0", ",", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"1", ",", "2"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"3", ",", "1"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"2", ",", "3"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "1"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "2"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"1", ",", "2"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"1", ",", "2"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"3", ",", "1"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"2", ",", "3"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "1"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "3"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"3", ",", "1"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "2"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "3"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "1"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "2"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"2", ",", "3"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"1", ",", "2"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"1", ",", "2"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"3", ",", "1"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"2", ",", "3"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "1"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "2"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"1", ",", "2"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", "0", ",", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"1", ",", "2"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"3", ",", "1"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"2", ",", "3"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "2"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "3"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"2", ",", "3"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "2"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "3"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "1"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "3"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"2", ",", "3"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"3", ",", "1"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"1", ",", "2"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"3", ",", "1"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"2", ",", "3"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "1"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "3"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"3", ",", "1"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"1", ",", "2"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"3", ",", "1"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"2", ",", "3"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "2"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "3"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"2", ",", "3"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", "0"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.766425783805202*^9, 3.7664263433902807`*^9, 3.766426383658691*^9}, CellLabel->"Out[90]=",ExpressionUUID->"b2da1a11-fff6-473e-9514-1e251bad5dfe"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "DLChi = - ", Cell[BoxData[ RowBox[{"i", " ", SubscriptBox["\[Chi]", "a"], SuperscriptBox[ RowBox[{"(", SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], RowBox[{ SubscriptBox["\[PartialD]", "\[Mu]"], RowBox[{"(", RowBox[{ SubscriptBox["D", "c"], SubscriptBox["\[Chi]", "b"]}], ")"}]}]}]],ExpressionUUID-> "9bafaa2e-45b7-4bca-ac66-d35e2058e47a"] }], "Subsection", CellChangeTimes->{{3.738597279555539*^9, 3.7385973231010303`*^9}, { 3.739199638076397*^9, 3.739199651260151*^9}, {3.7664191637328744`*^9, 3.7664191638856077`*^9}, {3.7664255531390033`*^9, 3.766425554237179*^9}},ExpressionUUID->"26085ad7-b363-4243-a0ad-\ 8d8ba14a4f0a"], Cell[BoxData[ RowBox[{ RowBox[{"DLChi", " ", "=", " ", RowBox[{"Table", "[", " ", RowBox[{ RowBox[{ RowBox[{"-", " ", "I"}], " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Chi]", "[", "ai", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], RowBox[{ RowBox[{"\[Gamma]up", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"ai", ",", "bi"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"Da", "[", "ci", "]"}], "[", RowBox[{ RowBox[{"\[Chi]", "[", "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}, {3.766419164026193*^9, 3.7664191641902924`*^9}, {3.766425558488962*^9, 3.766425565328534*^9}}, CellLabel->"In[91]:=",ExpressionUUID->"5470bc54-b94e-49f7-8522-efe0fd6624bd"] }, Open ]], 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[{"DLPhi", "+", "DLB", " ", "+", "DLChi"}], ")"}]}], ";"}]], "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}, {3.7664256540545216`*^9, 3.7664256618239884`*^9}}, CellLabel->"In[92]:=",ExpressionUUID->"7f54c019-5c83-4fbe-8ce4-8db21cce8111"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DLFinal", " ", "=", " ", RowBox[{"Collect", "[", RowBox[{"DLTotal", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"\[Chi]", "[", "_", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"_", ",", "_"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"_", ",", "_", ",", "_", ",", "_"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{"Bmn", "[", RowBox[{"_", ",", "_"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ SuperscriptBox["\[Phi]", TagBox[ RowBox[{"(", RowBox[{"_", ",", "_", ",", "_", ",", "_"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[Phi]", "[", 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, { 3.7664191643406973`*^9, 3.7664192049343576`*^9}, {3.7664256666577115`*^9, 3.7664256927671943`*^9}, {3.7664263524524755`*^9, 3.7664263791759787`*^9}}, CellLabel->"In[93]:=",ExpressionUUID->"80d15f9f-9543-4fa0-a8f6-50e451995354"], Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output", CellChangeTimes->{{3.766425675114019*^9, 3.766425693302992*^9}, { 3.7664263435792384`*^9, 3.7664263837589717`*^9}}, CellLabel->"Out[93]=",ExpressionUUID->"27fef3dc-4e03-407d-b1c0-f55f73765f34"] }, 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[94]:=",ExpressionUUID->"ce9e33f0-e1fb-4f36-b41b-942857baa013"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.766426343717868*^9, 3.766426383828042*^9}, CellLabel->"Out[94]=",ExpressionUUID->"43c62734-0f12-4499-a5da-370d461bf05e"] }, 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.4 Inherited, FrontEndVersion->"12.0 for Microsoft Windows (64-bit) (April 8, 2019)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[579, 22, 8921, 123, 220, "Title",ExpressionUUID->"dfab12f3-523a-4891-ab6d-6353bcfa0aa5"], Cell[CellGroupData[{ Cell[9525, 149, 289, 4, 92, "Section",ExpressionUUID->"8ce62cfa-2467-4484-bfab-5a2bb7149ea5"], Cell[CellGroupData[{ Cell[9839, 157, 148, 2, 40, "Input",ExpressionUUID->"65e9b759-d921-4a12-9e52-b3e8b17f8777"], Cell[9990, 161, 229, 3, 70, "Output",ExpressionUUID->"cc130ddf-6080-4ba5-b6af-a5806d083cdc"] }, Open ]], Cell[10234, 167, 1211, 17, 40, "Input",ExpressionUUID->"1b130993-d415-41ec-8260-109b938b0e03"], Cell[11448, 186, 247, 4, 40, "Input",ExpressionUUID->"042a2f57-aed7-4239-853e-081c663f644e"], Cell[CellGroupData[{ Cell[11720, 194, 214, 3, 40, "Input",ExpressionUUID->"ee9a22d7-408f-43e3-b2dc-2ed014de5ea4"], Cell[11937, 199, 228, 3, 70, "Output",ExpressionUUID->"f0262f3d-bbe5-408e-9947-470a1b1217ed"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[12214, 208, 2397, 54, 237, "Section",ExpressionUUID->"4c5b5cfe-adb3-4e93-a92e-56fcdf2f0a10"], Cell[CellGroupData[{ Cell[14636, 266, 248, 6, 75, "Subsection",ExpressionUUID->"35c45c57-b4de-4657-80c8-61a394edd298"], Cell[CellGroupData[{ Cell[14909, 276, 2087, 44, 40, "Input",ExpressionUUID->"8195ffa0-f61e-4f0d-9421-dab2cc2bc88f"], Cell[16999, 322, 1091, 30, 70, "Output",ExpressionUUID->"bfeb491e-d98f-49ef-8223-f980ad53cd79"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[18139, 358, 501, 9, 51, "Subsection",ExpressionUUID->"8dc47d1e-d238-43ad-b614-8fd7a1d31b4b"], Cell[CellGroupData[{ Cell[18665, 371, 2653, 66, 80, "Input",ExpressionUUID->"02d26f17-a193-49ca-87a1-899d6cf2c676"], Cell[21321, 439, 2013, 58, 70, "Output",ExpressionUUID->"aab6bbf7-62f2-4844-94d0-f395fc1cf6a6"] }, Open ]], Cell[CellGroupData[{ Cell[23371, 502, 567, 11, 40, "Input",ExpressionUUID->"4075e5c9-bb03-4ae5-827b-cc4bde7d319c"], Cell[23941, 515, 296, 5, 70, "Output",ExpressionUUID->"22ab1a3e-8c00-427c-937a-8ab7ba44e8d1"] }, Open ]], Cell[CellGroupData[{ Cell[24274, 525, 206, 3, 40, "Input",ExpressionUUID->"e586daf5-bcfa-438d-b2ca-0de12bfe9d9a"], Cell[24483, 530, 261, 4, 70, "Output",ExpressionUUID->"be430355-66b1-4cc5-9fac-0a7992916c81"] }, Open ]], Cell[CellGroupData[{ Cell[24781, 539, 472, 10, 40, "Input",ExpressionUUID->"9c0049b0-1502-4645-a3f9-a81f9269af9a"], Cell[25256, 551, 269, 4, 70, "Output",ExpressionUUID->"66fffc4c-b60d-473b-a48f-438945a92424"] }, Open ]], Cell[CellGroupData[{ Cell[25562, 560, 543, 12, 40, "Input",ExpressionUUID->"9a166dd6-65d3-4354-9e54-3f6e295c74a5"], Cell[26108, 574, 291, 5, 70, "Output",ExpressionUUID->"9c8a2efb-a69d-414d-ae5d-7dea702fcf3a"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[26448, 585, 1602, 44, 93, "Subsection",ExpressionUUID->"f7223d3e-780f-46b6-aa53-f17da6eef8b4"], Cell[CellGroupData[{ Cell[28075, 633, 1222, 28, 40, "Input",ExpressionUUID->"38ad3ae9-9a15-4b6a-97fa-a1f07ef7249d"], Cell[29300, 663, 864, 23, 46, "Output",ExpressionUUID->"9f891074-7c20-435c-95fc-be074079f93b"] }, Open ]], Cell[CellGroupData[{ Cell[30201, 691, 1262, 29, 40, "Input",ExpressionUUID->"f5fae3c4-ef47-4203-9e96-7d085038432d"], Cell[31466, 722, 1061, 29, 46, "Output",ExpressionUUID->"042deaf7-594d-427a-9309-47b4594be0e9"] }, Open ]], Cell[CellGroupData[{ Cell[32564, 756, 232, 4, 40, "Input",ExpressionUUID->"79460b94-9729-4f3e-8728-f207ac43d16f"], Cell[32799, 762, 487, 12, 50, "Output",ExpressionUUID->"1476eb31-2699-4daa-9a94-615585221920"] }, Open ]], Cell[CellGroupData[{ Cell[33323, 779, 254, 5, 40, "Input",ExpressionUUID->"0d5cbf46-6c7e-4ca6-9313-90549d0dfd86"], Cell[33580, 786, 521, 13, 46, "Output",ExpressionUUID->"e1800a91-d4db-44da-9e45-03015aa5e6aa"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[34150, 805, 212, 2, 75, "Subsection",ExpressionUUID->"934f9f0b-9b24-401e-9416-77c2303ebc8b"], Cell[CellGroupData[{ Cell[34387, 811, 2210, 51, 69, "Input",ExpressionUUID->"f16a7014-9edd-4a83-8bb8-ca1541272574"], Cell[36600, 864, 1715, 44, 75, "Output",ExpressionUUID->"4d811fde-6771-4e93-8e33-032682c07b5c"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[38376, 915, 985, 16, 92, "Section",ExpressionUUID->"65102be5-a054-4c68-82da-5d568c24d914"], Cell[CellGroupData[{ Cell[39386, 935, 472, 11, 75, "Subsection",ExpressionUUID->"6c41c663-34cc-4984-9ec1-aa5934fb2ff1"], Cell[39861, 948, 848, 18, 40, "Input",ExpressionUUID->"a91adb23-7dc4-40aa-afc4-5e6bb69aed24"], Cell[CellGroupData[{ Cell[40734, 970, 217, 3, 40, "Input",ExpressionUUID->"3f93f86f-eaee-4ffa-bb22-a47827eb1e6b"], Cell[40954, 975, 837, 24, 70, "Output",ExpressionUUID->"80bfb593-94ee-4a06-af64-25e8b02e23d4"] }, Open ]], Cell[CellGroupData[{ Cell[41828, 1004, 555, 11, 40, "Input",ExpressionUUID->"a82c1de1-716c-43b3-8a86-ec5a486e94d1"], Cell[42386, 1017, 793, 20, 70, "Output",ExpressionUUID->"08547388-ca14-460d-82ec-713622fae682"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[43228, 1043, 166, 3, 51, "Subsection",ExpressionUUID->"bf92f23c-0ca2-429a-8c4c-9a75a5e8b654"], Cell[43397, 1048, 2693, 86, 209, "Input",ExpressionUUID->"853d3fa7-a675-4927-aa24-9c7971bfd5fe"], Cell[CellGroupData[{ Cell[46115, 1138, 537, 14, 40, "Input",ExpressionUUID->"e49310a3-8f8b-4171-9148-8725416fc4c6"], Cell[46655, 1154, 2676, 76, 134, "Output",ExpressionUUID->"86b4de55-640a-46cd-ba64-a2f53e42d7eb"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[49380, 1236, 428, 6, 75, "Subsection",ExpressionUUID->"778edc5b-aa18-4a83-ac0d-00833534239a"], Cell[49811, 1244, 1499, 31, 40, "Input",ExpressionUUID->"f06fe64f-4516-4bf0-9680-aaabe6467cda"], Cell[51313, 1277, 1404, 30, 40, "Input",ExpressionUUID->"42cfa974-49e3-449e-aa4d-ba4afc0649ae"], Cell[52720, 1309, 1453, 30, 40, "Input",ExpressionUUID->"dc4d0ef3-3799-47a3-8fb3-6ea4d5da9984"] }, Open ]], Cell[CellGroupData[{ Cell[54210, 1344, 1614, 40, 77, "Subsection",ExpressionUUID->"3f1ea2b0-6032-4fee-802d-0bd9d2cf462b"], Cell[55827, 1386, 1788, 42, 69, "Input",ExpressionUUID->"f10d90b7-7be8-4953-9a59-dd8b6fec91f1"], Cell[57618, 1430, 1486, 31, 40, "Input",ExpressionUUID->"a8045f24-dd5b-4a8a-ae6d-a34b320487a0"], Cell[CellGroupData[{ Cell[59129, 1465, 574, 14, 40, "Input",ExpressionUUID->"210346a6-1dd4-46cf-9054-076af6b8a447"], Cell[59706, 1481, 28081, 813, 778, "Output",ExpressionUUID->"1f83b3bb-7ffb-48aa-b3dd-d779e9eed0c1"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[87836, 2300, 983, 24, 115, "Subsection",ExpressionUUID->"ec403595-5c5e-4130-87e6-1d3065f65cb1"], Cell[CellGroupData[{ Cell[88844, 2328, 216, 3, 40, "Input",ExpressionUUID->"65e8b7f3-0ca3-456b-bfd4-58abb0bc2ab8"], Cell[89063, 2333, 222, 3, 46, "Output",ExpressionUUID->"c78069e5-dd9d-402f-9a0a-ced6ec73edd6"] }, Open ]], Cell[CellGroupData[{ Cell[89322, 2341, 580, 12, 40, "Input",ExpressionUUID->"9dbeb415-c297-44bd-a09a-2df894cf21ab"], Cell[89905, 2355, 473, 12, 48, "Output",ExpressionUUID->"9142ab13-281f-48f1-a240-2d23448f21c5"] }, Open ]], Cell[CellGroupData[{ Cell[90415, 2372, 505, 10, 40, "Input",ExpressionUUID->"ee4c6f59-03e9-42d6-9a14-eff52b913ea1"], Cell[90923, 2384, 1199, 36, 48, "Output",ExpressionUUID->"df569825-e590-4e3f-b50b-92cfe5699191"] }, Open ]], Cell[CellGroupData[{ Cell[92159, 2425, 613, 13, 40, "Input",ExpressionUUID->"cbbd8308-375a-4a2e-9ba8-f5aa44b2bf32"], Cell[92775, 2440, 1230, 37, 48, "Output",ExpressionUUID->"52837e31-489c-4217-a580-7a5354f17ec9"] }, Open ]], Cell[CellGroupData[{ Cell[94042, 2482, 618, 11, 40, "Input",ExpressionUUID->"93182930-359a-4f6d-8c9f-c9c311d608a5"], Cell[94663, 2495, 2851, 90, 78, "Output",ExpressionUUID->"b431c865-3182-4641-bb43-a26ce5d73860"] }, Open ]], Cell[CellGroupData[{ Cell[97551, 2590, 637, 11, 40, "Input",ExpressionUUID->"eb43cfbc-955a-45ee-9174-7bb4f391055f"], Cell[98191, 2603, 1320, 40, 48, "Output",ExpressionUUID->"606a1d3e-00d2-41e6-8acd-dec5b10bcce1"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[99560, 2649, 159, 3, 75, "Subsection",ExpressionUUID->"68893c73-8799-44ac-b397-ad8678b9c883"], Cell[CellGroupData[{ Cell[99744, 2656, 627, 12, 40, "Input",ExpressionUUID->"5ae39733-84b1-42ef-b5d8-d6e0ffff02fd"], Cell[100374, 2670, 392, 9, 46, "Output",ExpressionUUID->"916ea5d8-a9c0-4e5c-a460-2b4fe275820a"] }, Open ]], Cell[CellGroupData[{ Cell[100803, 2684, 708, 17, 40, "Input",ExpressionUUID->"8a51f6e7-4290-41a7-8b37-30e4ca96554a"], Cell[101514, 2703, 1199, 35, 46, "Output",ExpressionUUID->"16948b15-2963-444d-a132-9d8f445d7c28"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[102774, 2745, 699, 10, 92, "Section",ExpressionUUID->"06494e91-661e-4ca6-95eb-5ee8e28bd4bf"], Cell[CellGroupData[{ Cell[103498, 2759, 4640, 82, 106, "Subsubsection",ExpressionUUID->"e4f095fe-bc53-46aa-b46f-e8b967f2e941"], Cell[108141, 2843, 3264, 52, 73, "Input",ExpressionUUID->"9ccb58c1-88fb-4756-9cfd-7d8160d716e0"], Cell[CellGroupData[{ Cell[111430, 2899, 1232, 26, 40, "Input",ExpressionUUID->"9ab442f3-a955-4e99-8c15-318a1fbd965d"], Cell[112665, 2927, 775, 21, 70, "Output",ExpressionUUID->"bfb85902-4f7e-4ba8-9e9b-a489958de457"] }, Open ]], Cell[CellGroupData[{ Cell[113477, 2953, 1031, 20, 40, "Input",ExpressionUUID->"657ec8e9-6b6d-4143-b997-baaabc8f48f0"], Cell[114511, 2975, 1060, 33, 70, "Output",ExpressionUUID->"f0c819ea-2648-48ab-b333-a0cbfcbf9b13"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[115620, 3014, 12250, 203, 115, "Subsubsection",ExpressionUUID->"19234059-780f-48ff-9a61-e83dce3908cf"], Cell[127873, 3219, 3799, 70, 65, "Input",ExpressionUUID->"93928d44-3a0d-434d-bd9e-2af8f6764f49"], Cell[131675, 3291, 1529, 36, 40, "Input",ExpressionUUID->"18e5fb7a-bf0f-401a-af2b-1144ac67e982"], Cell[CellGroupData[{ Cell[133229, 3331, 1406, 32, 40, "Input",ExpressionUUID->"29fb3804-04f7-4ee4-b220-858a18c37c46"], Cell[134638, 3365, 14688, 446, 70, "Output",ExpressionUUID->"ccde6c60-e4f3-49e3-897a-c98aad12fb30"] }, Open ]], Cell[CellGroupData[{ Cell[149363, 3816, 286, 6, 40, "Input",ExpressionUUID->"93db53f6-10cd-4db2-9f98-1417bc96e346"], Cell[149652, 3824, 14667, 446, 70, "Output",ExpressionUUID->"3ffddba1-f3d7-4828-b1a5-28f89a806415"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[164368, 4276, 16903, 281, 98, "Subsubsection",ExpressionUUID->"6ed7cae2-1661-4972-824b-166c0ca545e2"], Cell[181274, 4559, 3890, 81, 97, "Input",ExpressionUUID->"c24cc654-9c08-4540-8fec-0b3f663ce144"], Cell[185167, 4642, 1663, 38, 40, "Input",ExpressionUUID->"a460f19b-bf8f-4e28-a426-4ad249e95bcc"], Cell[CellGroupData[{ Cell[186855, 4684, 1792, 43, 40, "Input",ExpressionUUID->"a4f911d4-1221-43d7-ac3c-5dcf1b948629"], Cell[188650, 4729, 3819, 112, 70, "Output",ExpressionUUID->"b7e2dd70-94cc-453b-9744-b758a19e259b"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[192518, 4847, 177, 3, 51, "Subsection",ExpressionUUID->"3a6745eb-727d-4c98-abc6-7a66a9408a1e"], Cell[192698, 4852, 902, 20, 40, "Input",ExpressionUUID->"388e6d2d-8e02-437a-bb0b-6d47906c1924"], Cell[193603, 4874, 650, 15, 40, "Input",ExpressionUUID->"7b9f680f-c308-4d9e-a626-7914b46d1755"], Cell[194256, 4891, 3320, 85, 125, "Input",ExpressionUUID->"4e84670a-dbfb-480b-a537-9348d6e913f5"], Cell[197579, 4978, 484, 11, 40, "Input",ExpressionUUID->"b529f91b-f8bc-4c3f-b914-a17756fa16c8"], Cell[198066, 4991, 641, 17, 40, "Input",ExpressionUUID->"11c95ead-7071-4314-8f58-bb351bc32b52"], Cell[198710, 5010, 615, 15, 40, "Input",ExpressionUUID->"3143ffef-6c23-4c86-a440-c6fa01697e43"], Cell[199328, 5027, 594, 16, 40, "Input",ExpressionUUID->"702c3f9b-b9e1-45e1-992f-c5a8d032e022"], Cell[199925, 5045, 604, 15, 40, "Input",ExpressionUUID->"63e720ea-e678-4804-ad18-044861245642"], Cell[200532, 5062, 1252, 26, 40, "Input",ExpressionUUID->"80896f16-b70b-4a73-8b94-784829b0fea0"], Cell[201787, 5090, 582, 14, 40, "Input",ExpressionUUID->"8cb9f151-36f4-4683-8054-031213b41de5"], Cell[CellGroupData[{ Cell[202394, 5108, 1212, 24, 40, "Input",ExpressionUUID->"4bc058df-82c6-43e4-9ca2-fa0686424af5"], Cell[203609, 5134, 26478, 723, 70, "Output",ExpressionUUID->"7606843b-c6be-476c-977e-73e79445a457"] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[230148, 5864, 429, 7, 92, "Section",ExpressionUUID->"231a1b16-656b-454b-bdf7-3325c412556f"], Cell[CellGroupData[{ Cell[230602, 5875, 17159, 286, 116, "Subsection",ExpressionUUID->"665dac6d-c81c-4b23-b692-2c209b3f6b29"], Cell[CellGroupData[{ Cell[247786, 6165, 2156, 44, 40, "Input",ExpressionUUID->"daaf6e58-9ff6-4c6b-a226-a1c5fbf4b759"], Cell[249945, 6211, 227, 3, 46, "Output",ExpressionUUID->"8a71fc98-47b5-4c30-b588-45d509111132"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[250221, 6220, 35542, 594, 133, "Subsection",ExpressionUUID->"6cfc84f4-27f6-4da1-a55f-80eab8b74b10"], Cell[285766, 6816, 1757, 43, 65, "Input",ExpressionUUID->"276a4bf5-23a0-462c-a40c-58e7dcde8183"], Cell[CellGroupData[{ Cell[287548, 6863, 3222, 73, 97, "Input",ExpressionUUID->"db86ad83-84c8-4947-8d89-d7772f53d686"], Cell[290773, 6938, 201, 3, 46, "Output",ExpressionUUID->"f674d6df-5b51-47a9-8627-0a211fc84cdc"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[291023, 6947, 17856, 296, 80, "Subsection",ExpressionUUID->"f8fc6527-d844-4faa-aa47-5379d276b51b"], Cell[CellGroupData[{ Cell[308904, 7247, 2433, 51, 69, "Input",ExpressionUUID->"0c2d19a2-6b8b-4a03-842b-36835efdad3a"], Cell[311340, 7300, 200, 3, 46, "Output",ExpressionUUID->"463ca7c9-9e92-40d5-ad01-636020b64f3f"] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[311601, 7310, 153, 3, 92, "Section",ExpressionUUID->"506208ec-72d0-4aa8-9d9f-54191bcc9604"], Cell[CellGroupData[{ Cell[311779, 7317, 20760, 345, 103, "Subsection",ExpressionUUID->"d43faaaf-0673-4970-8df8-4e4a3824b78a"], Cell[332542, 7664, 1127, 28, 40, "Input",ExpressionUUID->"983cafcd-c51f-4c38-b45f-38ca504d2886"], Cell[CellGroupData[{ Cell[333694, 7696, 856, 15, 40, "Input",ExpressionUUID->"125b80da-d41e-4209-9761-7fe0d1fabb16"], Cell[334553, 7713, 250, 3, 46, "Output",ExpressionUUID->"2db40e97-ad3d-451e-8956-bf872aac5068"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[334852, 7722, 26994, 449, 76, "Subsection",ExpressionUUID->"eae7920e-7c5b-42fa-a9a5-0b39b670536e"], Cell[361849, 8173, 2203, 57, 69, "Input",ExpressionUUID->"c81b68fc-b0d9-4d1b-8ae5-71a9b1133f22"], Cell[CellGroupData[{ Cell[364077, 8234, 1380, 37, 69, "Input",ExpressionUUID->"85974138-ea6b-4782-9744-39fcdbe404c6"], Cell[365460, 8273, 254, 3, 46, "Output",ExpressionUUID->"866908bf-2852-41e3-97a9-3795074df982"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[365763, 8282, 79741, 1329, 213, "Subsection",ExpressionUUID->"68c7e39c-fd44-4942-9218-54c779e0448b"], Cell[445507, 9613, 821, 18, 40, "Input",ExpressionUUID->"a0c1de7d-ed47-46b7-ad23-295e10996f60"], Cell[446331, 9633, 1241, 28, 40, "Input",ExpressionUUID->"40bcebc9-83f7-487b-9a0f-2943e2cd1757"], Cell[447575, 9663, 1112, 28, 40, "Input",ExpressionUUID->"3659674d-da94-46b1-90fc-ffa5f5ccf107"], Cell[448690, 9693, 1320, 33, 40, "Input",ExpressionUUID->"43481913-bb56-450e-a3e7-98b3fab8e2e3"], Cell[450013, 9728, 629, 16, 40, "Input",ExpressionUUID->"c6684a15-3f19-4a6a-8619-b7fa8cd982dd"], Cell[CellGroupData[{ Cell[450667, 9748, 2741, 63, 97, "Input",ExpressionUUID->"8521d9af-e112-4483-873b-cd68f91145bd"], Cell[453411, 9813, 420, 6, 79, "Output",ExpressionUUID->"c8671741-3204-4c69-a377-a797caeeaafe"] }, Open ]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[453892, 9826, 5746, 120, 185, "Section",ExpressionUUID->"ed496191-3d25-497b-9db3-875240812f9f"], Cell[CellGroupData[{ Cell[459663, 9950, 506, 9, 75, "Subsection",ExpressionUUID->"5651a7e4-d78c-4dc4-a232-3f6717faf906"], Cell[CellGroupData[{ Cell[460194, 9963, 3905, 104, 138, "Input",ExpressionUUID->"60d195f6-3f56-4da5-b9bb-07353989501b"], Cell[464102, 10069, 3698, 110, 70, "Output",ExpressionUUID->"61a3fade-6a03-4375-b734-89681e0603ac"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[467849, 10185, 775, 18, 53, "Subsection",ExpressionUUID->"d3f604f1-188c-4f17-a915-618f01cfda5b"], Cell[468627, 10205, 919, 20, 40, "Input",ExpressionUUID->"d300de13-ed62-4628-9a9e-9f13f55fee21"] }, Open ]], Cell[CellGroupData[{ Cell[469583, 10230, 792, 18, 77, "Subsection",ExpressionUUID->"d29e4cf2-26ed-41c7-ae34-02771b72db74"], Cell[CellGroupData[{ Cell[470400, 10252, 311, 6, 40, "Input",ExpressionUUID->"8e380192-458a-4c9b-9827-cc12ffcaddca"], Cell[470714, 10260, 222, 3, 46, "Output",ExpressionUUID->"3dd8ad0a-be3c-4d8a-b00b-2ec3d28af9f5"] }, Open ]], Cell[470951, 10266, 1475, 36, 40, "Input",ExpressionUUID->"266e3b3a-427c-44d4-a8e4-6de0612ed23f"], Cell[CellGroupData[{ Cell[472451, 10306, 751, 19, 40, "Input",ExpressionUUID->"d4734600-b008-47f1-bf67-ef7dd4981595"], Cell[473205, 10327, 25072, 752, 487, "Output",ExpressionUUID->"b2da1a11-fff6-473e-9514-1e251bad5dfe"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[498326, 11085, 715, 20, 76, "Subsection",ExpressionUUID->"26085ad7-b363-4243-a0ad-8d8ba14a4f0a"], Cell[499044, 11107, 1486, 36, 40, "Input",ExpressionUUID->"5470bc54-b94e-49f7-8522-efe0fd6624bd"] }, Open ]], Cell[CellGroupData[{ Cell[500567, 11148, 481, 7, 75, "Subsection",ExpressionUUID->"868e9f0f-9a20-4b4a-9f98-2499255d33aa"], Cell[501051, 11157, 1483, 24, 40, "Input",ExpressionUUID->"7f54c019-5c83-4fbe-8ce4-8db21cce8111"], Cell[CellGroupData[{ Cell[502559, 11185, 2757, 55, 46, "Input",ExpressionUUID->"80d15f9f-9543-4fa0-a8f6-50e451995354"], Cell[505319, 11242, 291, 5, 46, "Output",ExpressionUUID->"27fef3dc-4e03-407d-b1c0-f55f73765f34"] }, Open ]], Cell[CellGroupData[{ Cell[505647, 11252, 339, 6, 40, "Input",ExpressionUUID->"ce9e33f0-e1fb-4f36-b41b-942857baa013"], Cell[505989, 11260, 174, 2, 79, "Output",ExpressionUUID->"43c62734-0f12-4499-a5da-370d461bf05e"] }, Open ]] }, Open ]] }, Open ]] }, Open ]] } ] *)