(* 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[ 2012465, 42852] NotebookOptionsPosition[ 1937310, 41616] NotebookOutlinePosition[ 1937867, 41637] CellTagsIndexPosition[ 1937824, 41634] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["\<\ 4D N=4 TV No Closure.nb Demonstrates that the 4D N=4 TV multiplet can not be closed for any GL(2,R) \ ansatz as presented in 1812.04236\ \>", "Title", CellChangeTimes->{{3.431643447359375*^9, 3.43164348528125*^9}, { 3.4332803471875*^9, 3.4332803938125*^9}, {3.439841647921875*^9, 3.439841676265625*^9}, {3.4399946617855*^9, 3.43999466687925*^9}, { 3.44088192175*^9, 3.440881923578125*^9}, {3.4423479416875*^9, 3.442347948953125*^9}, {3.442980454609375*^9, 3.442980483234375*^9}, { 3.443704482140625*^9, 3.443704510671875*^9}, {3.443704683796875*^9, 3.443704691203125*^9}, {3.44372638084375*^9, 3.443726451640625*^9}, { 3.45355300203125*^9, 3.453553002890625*^9}, {3.454246287921875*^9, 3.454246303546875*^9}, {3.454246379453125*^9, 3.4542464184375*^9}, { 3.454246473484375*^9, 3.454246483109375*^9}, {3.4544147554375*^9, 3.454414815859375*^9}, {3.454852671*^9, 3.4548527046875*^9}, { 3.454856728203125*^9, 3.45485673075*^9}, {3.454926202984375*^9, 3.454926295546875*^9}, {3.455015384*^9, 3.455015392609375*^9}, { 3.455015444671875*^9, 3.455015446890625*^9}, {3.455015517421875*^9, 3.455015519890625*^9}, {3.4550155711875*^9, 3.455015606859375*^9}, { 3.455016320453125*^9, 3.45501632865625*^9}, {3.455042848390625*^9, 3.455042857671875*^9}, {3.455043636234375*^9, 3.4550436771875*^9}, { 3.511555277628312*^9, 3.5115553207117767`*^9}, {3.511625771375633*^9, 3.5116258752865763`*^9}, {3.5116411679872684`*^9, 3.511641221284317*^9}, { 3.5199454008058896`*^9, 3.5199454666306543`*^9}, {3.5199455739987955`*^9, 3.519945622294558*^9}, {3.5206458956356697`*^9, 3.520645943704419*^9}, { 3.523718893836775*^9, 3.523718923873493*^9}, {3.536715674278531*^9, 3.5367157073544226`*^9}, {3.53853389765368*^9, 3.538533899967812*^9}, { 3.538942345864266*^9, 3.538942357964958*^9}, {3.5389474299050565`*^9, 3.538947485150216*^9}, {3.5390845827297893`*^9, 3.5390846106083837`*^9}, { 3.53908510341057*^9, 3.5390851199535165`*^9}, {3.539086064745556*^9, 3.5390861577368746`*^9}, {3.5451459061807747`*^9, 3.545145907619857*^9}, { 3.54514596135293*^9, 3.5451460262956448`*^9}, {3.548677365614721*^9, 3.548677420252846*^9}, {3.5486904482318554`*^9, 3.5486904831498528`*^9}, { 3.5507964280028415`*^9, 3.550796434750227*^9}, {3.5516981864105062`*^9, 3.5516981873125577`*^9}, {3.5517063670611444`*^9, 3.551706375990655*^9}, { 3.5517143798937216`*^9, 3.5517143832039113`*^9}, {3.5517286202182903`*^9, 3.5517286597495513`*^9}, {3.5517928905442033`*^9, 3.551792917464743*^9}, { 3.5521354453831377`*^9, 3.5521354853424234`*^9}, {3.552135534200218*^9, 3.552135558024581*^9}, {3.5521356059203205`*^9, 3.552135681027616*^9}, { 3.5521357231810274`*^9, 3.5521357548318377`*^9}, {3.55231422706569*^9, 3.5523142637937903`*^9}, {3.552314318528921*^9, 3.552314318928944*^9}, { 3.552314384905718*^9, 3.552314430815344*^9}, {3.552314502398438*^9, 3.5523146413143835`*^9}, {3.552473196132519*^9, 3.5524732208799343`*^9}, 3.5528371122703466`*^9, 3.5528444571634464`*^9, {3.5528449407701073`*^9, 3.5528450003105125`*^9}, {3.552866910465884*^9, 3.5528670764143763`*^9}, { 3.5528755049588575`*^9, 3.552875669883291*^9}, {3.5528757974815893`*^9, 3.5528759485802317`*^9}, {3.552876032727044*^9, 3.5528760646078677`*^9}, 3.5528770280839753`*^9, {3.552905728992181*^9, 3.5529057870398817`*^9}, { 3.552924313800542*^9, 3.552924357451039*^9}, {3.5529244139042673`*^9, 3.5529245023153243`*^9}, {3.5529245516931486`*^9, 3.552924613397678*^9}, { 3.552928164005761*^9, 3.552928186311037*^9}, {3.5529298153452125`*^9, 3.5529298409716783`*^9}, {3.5532932040039682`*^9, 3.5532932496185775`*^9}, {3.553293282659467*^9, 3.553293292302019*^9}, { 3.553293383011207*^9, 3.553293411333827*^9}, {3.5532981370511494`*^9, 3.553298408108653*^9}, {3.553298441734576*^9, 3.5532987180763826`*^9}, { 3.5532987757606816`*^9, 3.5532988306618223`*^9}, {3.5533029743948298`*^9, 3.5533030195604134`*^9}, {3.553306886924614*^9, 3.5533068932679768`*^9}, { 3.553311679995762*^9, 3.553311730478649*^9}, {3.553311805864961*^9, 3.5533118710006866`*^9}, {3.5533120465167255`*^9, 3.553312046787741*^9}, { 3.5533122428069525`*^9, 3.5533122428069525`*^9}, {3.553312319318329*^9, 3.553312332850103*^9}, {3.5533123656929817`*^9, 3.5533123938585925`*^9}, 3.5533125753399725`*^9, {3.5533162583976316`*^9, 3.5533162749975805`*^9}, 3.5533163117066803`*^9, {3.5533163518819785`*^9, 3.5533164029468994`*^9}, { 3.553357870429034*^9, 3.55335793120451*^9}, {3.553360423158042*^9, 3.553360477275137*^9}, {3.5533605162343655`*^9, 3.553360605248457*^9}, { 3.55336064149253*^9, 3.5533607117395477`*^9}, {3.553360769712864*^9, 3.553360790017025*^9}, {3.553360827712181*^9, 3.5533608685515165`*^9}, { 3.5533609116069794`*^9, 3.553360984719161*^9}, {3.553361035631073*^9, 3.5533610708610888`*^9}, {3.5533611506446514`*^9, 3.553361152577762*^9}, { 3.553361571282711*^9, 3.553361617443351*^9}, {3.553362021762477*^9, 3.5533621970635033`*^9}, {3.55336225609488*^9, 3.553362258462015*^9}, { 3.553362402136233*^9, 3.5533624518330755`*^9}, {3.553362520950029*^9, 3.5533625853667135`*^9}, {3.5533635314808273`*^9, 3.5533635853299074`*^9}, {3.553363685328627*^9, 3.553363698002352*^9}, { 3.553363909535451*^9, 3.5533639144157305`*^9}, 3.553364219200163*^9, 3.5533644938708735`*^9, {3.553364575184524*^9, 3.553364599654924*^9}, { 3.55336466183048*^9, 3.5533646655966954`*^9}, {3.553365137488686*^9, 3.553365145141124*^9}, {3.5533656688530784`*^9, 3.5533657248882837`*^9}, 3.553366821643014*^9, {3.5533671012070045`*^9, 3.5533671132246914`*^9}, { 3.553367256017859*^9, 3.5533672954111123`*^9}, {3.5533673936717324`*^9, 3.553367442797542*^9}, {3.553393155762641*^9, 3.5533933527619085`*^9}, { 3.5533934025587573`*^9, 3.55339343250747*^9}, {3.553393466195397*^9, 3.5533934799451838`*^9}, {3.5533936057913814`*^9, 3.553393621924304*^9}, { 3.5533936651637774`*^9, 3.553393696448567*^9}, {3.5533938357385335`*^9, 3.5533938415228643`*^9}, {3.55339396837212*^9, 3.553393970315231*^9}, { 3.553394007223342*^9, 3.5533940655636787`*^9}, {3.5533948267242146`*^9, 3.553394871172757*^9}, 3.5533949827821407`*^9, {3.553395879210414*^9, 3.55339590415384*^9}, {3.5533960192464232`*^9, 3.553396052167306*^9}, { 3.5534453110074387`*^9, 3.5534453210730143`*^9}, {3.5543978769816384`*^9, 3.5543979153068304`*^9}, {3.5543979522839456`*^9, 3.554398051165597*^9}, { 3.559413579039064*^9, 3.559414031602949*^9}, {3.5594140643608227`*^9, 3.559414824354292*^9}, {3.5594148673047485`*^9, 3.5594148697598886`*^9}, 3.559434854871258*^9, {3.5594361459001007`*^9, 3.5594361488202677`*^9}, { 3.5594362074236193`*^9, 3.5594362074236193`*^9}, {3.5594413332417994`*^9, 3.559441339224142*^9}, {3.5594800125024767`*^9, 3.5594800206869445`*^9}, 3.55949611087125*^9, {3.5594961446901846`*^9, 3.5594963728392344`*^9}, { 3.5594967272045026`*^9, 3.559496732893828*^9}, {3.559496827283227*^9, 3.559496972989561*^9}, {3.559498343667959*^9, 3.5594984776456223`*^9}, { 3.5594985619584446`*^9, 3.5594986885086827`*^9}, {3.559504207814369*^9, 3.5595043347686305`*^9}, {3.5610849081423254`*^9, 3.561084919991003*^9}, { 3.674997609869558*^9, 3.6749976403446026`*^9}, {3.7095691177887754`*^9, 3.7095692232638083`*^9}, {3.709569416628868*^9, 3.709569447700645*^9}, { 3.709570025775709*^9, 3.7095700822929416`*^9}, {3.7095701212661705`*^9, 3.7095701302756863`*^9}, {3.7095701635905914`*^9, 3.7095701953544083`*^9}, {3.709570238234861*^9, 3.7095703996370926`*^9}, { 3.7095705169488025`*^9, 3.709570536260907*^9}, {3.709570570671875*^9, 3.7095707000022726`*^9}, {3.7095707414556437`*^9, 3.709570911927394*^9}, { 3.7095709420471168`*^9, 3.7095709556628957`*^9}, {3.709571091599671*^9, 3.7095711396634197`*^9}, {3.7095711775595875`*^9, 3.709571198140764*^9}, { 3.709573470067711*^9, 3.7095735804760265`*^9}, {3.70957367197526*^9, 3.709573673761362*^9}, {3.709575309022894*^9, 3.7095753967389107`*^9}, { 3.7108085535310116`*^9, 3.710808698160284*^9}, {3.7117169877149534`*^9, 3.71171700584299*^9}, {3.711843921222666*^9, 3.711843950188323*^9}, { 3.7120954091535835`*^9, 3.712095410524662*^9}, {3.737153557144597*^9, 3.7371535573632975`*^9}, {3.737153660538913*^9, 3.737153677384055*^9}, { 3.737289276440363*^9, 3.7372892764413633`*^9}, {3.7379791370084977`*^9, 3.7379791561145906`*^9}, {3.7379792255395613`*^9, 3.737979267044935*^9}, { 3.738580160531347*^9, 3.7385801752121863`*^9}, {3.7422187903728733`*^9, 3.742218794232212*^9}, 3.7424478775638*^9, {3.74594526221448*^9, 3.745945264539792*^9}, {3.745945483092791*^9, 3.745945486075135*^9}, { 3.760467453472489*^9, 3.760467456351668*^9}, {3.7604675212437077`*^9, 3.7604675559047365`*^9}, {3.760467593546161*^9, 3.7604676046349516`*^9}},ExpressionUUID->"dfab12f3-523a-4891-ab6d-\ 6353bcfa0aa5"], Cell[CellGroupData[{ Cell["Setting Rep and Importing Adinkra.wl", "Section", CellChangeTimes->{{3.7108088373262444`*^9, 3.7108088416734924`*^9}, { 3.742447721149543*^9, 3.7424477566373158`*^9}},ExpressionUUID->"8ce62cfa-2467-4484-bfab-\ 5a2bb7149ea5"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"$RecursionLimit", "=", "Infinity"}]], "Input", CellLabel->"In[1]:=",ExpressionUUID->"975ad481-c1b0-4e59-bfe3-ee6c3e1eed6f"], Cell[BoxData["\[Infinity]"], "Output", CellChangeTimes->{ 3.742448172904296*^9, 3.74594553050355*^9, 3.7467873123672724`*^9, 3.7468067537313633`*^9, 3.746829640954487*^9, 3.7468391821508055`*^9, 3.7468437347705235`*^9, 3.746844568648473*^9, 3.747420082505742*^9, 3.7474218913639536`*^9, 3.7474842378380322`*^9, 3.7475104196042166`*^9, 3.7475104505845947`*^9, 3.7475107580290346`*^9, 3.747511136127787*^9, 3.7475144660063334`*^9, 3.7475149162790813`*^9, 3.748783411137532*^9, 3.748794512576931*^9, 3.748804851091798*^9, 3.748965133950845*^9, 3.7489676569668903`*^9, 3.748969812574232*^9, 3.749382914381414*^9, 3.7493833783970594`*^9, 3.7493859311575165`*^9, 3.7493983785716076`*^9, 3.7493998528617935`*^9, 3.749400516733729*^9, 3.7494023113868055`*^9, 3.7494970379088955`*^9, {3.760467879225052*^9, 3.7604678875750804`*^9}, 3.760468236439972*^9, 3.760470335173544*^9}, CellLabel->"Out[1]=",ExpressionUUID->"d0dbbf9e-aad4-4401-8334-eb2b3532653a"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"Rep", " ", "=", " ", "N4TV"}], ";"}]], "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.745945518573906*^9, 3.7459455195154343`*^9}}, CellLabel->"In[2]:=",ExpressionUUID->"b7114112-5e91-426f-9ced-519c54ea443d"], Cell[BoxData[ RowBox[{"<<", "Adinkra.wl"}]], "Input", CellChangeTimes->{{3.742447734672681*^9, 3.742447736272915*^9}}, CellLabel->"In[3]:=",ExpressionUUID->"40416904-6941-4b10-9b84-5112928ae3b6"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BuildDate", "[", "Adinkra", "]"}]], "Input", CellChangeTimes->{{3.746787320836362*^9, 3.746787327269121*^9}}, CellLabel->"In[4]:=",ExpressionUUID->"3e91090f-6d43-4d25-bd32-ac5b3a3b4b22"], Cell[BoxData["181216"], "Output", CellChangeTimes->{ 3.746787328098906*^9, 3.746806761660118*^9, 3.7468296411449776`*^9, 3.746839182337378*^9, 3.7468437348599615`*^9, 3.7468445688150625`*^9, 3.747420082676367*^9, 3.7474218914572816`*^9, 3.7474842379491806`*^9, 3.7475104197391624`*^9, 3.747510450774561*^9, 3.747510758277053*^9, 3.7475111363877277`*^9, 3.7475144661531496`*^9, 3.7475149164884033`*^9, 3.748783411420784*^9, 3.7487945128384113`*^9, 3.7488048513568897`*^9, 3.748965134153088*^9, 3.748967657191049*^9, 3.748969812770864*^9, 3.7493829145282283`*^9, 3.749383378503693*^9, 3.7493859312586994`*^9, 3.7493983786787443`*^9, 3.749399853039854*^9, 3.7494005169197283`*^9, 3.749402311543047*^9, 3.7494970380611696`*^9, {3.760467879435141*^9, 3.760467887695238*^9}, 3.7604682365387125`*^9, 3.7604703352740216`*^9}, CellLabel->"Out[4]=",ExpressionUUID->"243528e0-3416-49f0-bb4c-9d60253fb825"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FunctionList", "[", "Adinkra", "]"}]], "Input", CellChangeTimes->{{3.742447779550374*^9, 3.74244778619457*^9}}, CellLabel->"In[5]:=",ExpressionUUID->"040c79d5-fb4d-4274-9ad8-f752eb2f4ca6"], Cell[BoxData["\<\"SpaceTime:\\nIndexRange[SpaceTime][Index], Index = mu, a, \ or RaiseCode\\n\\ncoordinates, \[CapitalStigma][mu], \[Eta][mu,nu], \ Cmetric[[a,b]], InverseCmetric[[a,b]], UD[Field,\[CapitalStigma][mu]] , \ Lap[Field], UP, DOWN, \ RaiseSTIndex[Field,RaiseCode1,RaiseCode2,...,RaiseCoden], \ RaiseFermionIndex[Field]\\n\\n************************************************\ ****************************************\\n***********************************\ *****************************************************\\n\\nGenerateLandR:\\\ nNColors[D,Phi,Psi], LTable[DColor,Phi,Psi], \ RTable[DColor,Phi,Psi],GenerateLandR[DColor,Phi,Psi,Rep]\\n\\n****************\ ************************************************************************\\n***\ ******************************************************************************\ *******\\n\\nAdinkraEssentials:\\nIndexRange[AdinkraEssentials][Index], Index \ = p1, II, ReportLevel, or pm\\n\\n***IMPORTANT****: Default Settings are \ VScaleFactor = VtildeScaleFactor = -I, VsoNScaleFactor = -I/(2 \ VsoNScaleFactor), VtildesoNScaleFactor = -I/(2 \ VtildesoNScaleFactor)\\n\\nReports: AdinkraReport[Rep,ReportLevel], \ AdinkraPreliminaryReport[L,R], AdinkraPreliminaryReport[Rep], \ AdinkraPreliminaryReportO[Rep], AdinkraHoloMonoReport[Rep], \ AdinkraSummaryReport[Rep], AdinkraFullReport[Rep]\\n\\nBasic Functions: \ nMatrices[Matrices], nRows[Matrices], nColumns[Matrices], \ Commute[Matrix1,Matrix2], NColors[Rep], NColors[L,R], dmin[N], dbosons[Rep], \ dbosons[L,R], dfermions[Rep], dfermions[L,R], \ WordW[{p1,p2,...,pN}]\\n\\nIntense Calculations: Gadget[Rep1,Rep2], \ BosonGadget[Rep1,Rep2], ListOfIdenticalMonoOrHolo[MonoOrHolo,Rep], \ NumDistinctHoloOrMono[HoloOrMono,Rep]\\n\\nPrint Functions: PrintL[Rep][II], \ PrintR[Rep][II], PrintGALR[Rep][II,JJ], PrintGARL[Rep][II,JJ], \ PrintV[Rep][II,JJ], PrintVtilde[Rep][II,JJ], PrintZetaGen[Rep][II], \ PrintHoloraumy[Rep][{p1,p2,...,pN}], \ PrintMonodromy[Rep][{p1,p2,...,pN}],PrintZetatildeGen[Rep][II], \ PrintHoloraumytilde[Rep][{p1,p2,...,pN}], \ PrintMonodromytilde[Rep][{p1,p2,...,pN}], PrintVtildePM[pm][Rep][II,JJ], \ PrintVtildePM[pm][Rep][II,JJ], PrintAllL[Rep], PrintAllR[Rep], \ PrintAllGALR[Rep], PrintAllGARL[Rep], PrintAllV[Rep], PrintAllVtilde[Rep], \ PrintAllZetaGen[Rep], PrintAllHoloraumy[Rep], \ PrintAllMonodromy[Rep],PrintAllZetatildeGen[Rep], \ PrintAllHoloraumytilde[Rep], PrintAllMonodromytilde[Rep], \ PrintAllVtildePM[pm][Rep], PrintAllVtildePM[pm][Rep], \ ,PrintSigmaProduct[Matrix], PrintLSigmaProduct[Rep], \ PrintRSigmaProduct[Rep]\\n\\nTest Functions: CorrectDimensions[Rep], \ CorrectDimensions[L,R], TransposeTest[Rep], TransposeTest[L,R], \ InverseTest[Rep], InverseTest[L,R], RO[Rep], Chi0Report[L,R], GATest[Rep], \ GATest[L,R], soNTest[Matrices], su2Test[MgenPM[pm]][Rep], \ MutuallyCommuteTest[M1,M2], LinearlyIndependent[Mgen]\\n\\nData generated by \ GenerateAdinkraData[Rep], GenerateAdinkraData[Rep,Orthogonal], \ GenerateAdinkraDataO[Rep], GenerateAdinkraData[Rep,L], or \ GenerateAdinkraData[Rep,L,R]:\\nL[Rep], R[Rep], GALR[Rep], GARL[Rep], \ chi0[Rep], ncis[Rep], ntrans[Rep], V[Rep], Vtilde[Rep], VsoN[Rep], \ VtildesoN[Rep], ZetaGen[Rep], Holoraumy[Rep], Monodromy[Rep], \ ZetatildeGen[Rep], Holoraumytilde[Rep], Monodromytilde[Rep], VPM[pm][Rep], \ VtildePM[pm][Rep], VsoNPM[pm][Rep], VtildesoNPM[pm][Rep] cSoln[V[Rep]], \ cSoln[Vtilde[Rep]]\\n\\n******************************************************\ **********************************\\n*****************************************\ ***********************************************\\n\\nBasisDecomposition:\\\ nIndexRange[BasisDecomposition][Index], Index = mu, ahat, a, d, or \ n\\n\\nGeneral Matrix Tools:\\nsigma[mu], \[Alpha]matrix[ahat], \ \[Beta]matrix[ahat], SigmaProduct[mu1,mu2,...,mun], \ SigmaProductMF[mu1,mu2,...,mun], SigmaMatrixProduct[mu,AnyMatrix], \ \[Rho]matrix[mu,nu], \[Omega]matrix[n][a], Basis[d][a,mu,nu], TestOrthogonal\ \[Sigma], Test\[Rho]Orthogonal, Test\[Omega]Orthogonal[n], \ TestBasisOrthogonal[d], Coeffs[d][Matrix][a,mu,nu]\\n\\nGenerateCoeffs[Rep] \ generates adinkra representation specific functions:\\nLCoeffs[Rep][II], \ CheckLCoeffs[Rep], RCoeffs[Rep][II], CheckRCoeffs[Rep], VCoeffs[Rep][II,JJ], \ CheckVCoeffs[Rep], VtildeCoeffs[Rep][II,JJ], CheckVtildeCoeffs[Rep], \ VPMCoeffs[pm][Rep][II,JJ], CheckVPMCoeffs[pm][Rep], \ VtildePMCoeffs[pm][Rep][II,JJ], CheckVtildePMCoeffs[pm][Rep], \ NumberNonZero[LCoeffsMat], CoeffsSummaryReport[Rep], \ CoeffsFullReport[Rep_]\\n\\nPrint Functions:\\n PrintSigmaProduct[Matrix], \ PrintBasis[Matrix], PrintLBasis[Rep][II], PrintRBasis[Rep][II], \ PrintGALRBasis[Rep][II,JJ], PrintGARLBasis[Rep][II,JJ], \ PrintVBasis[Rep][II,JJ], PrintVtildeBasis[Rep][II,JJ], \ PrintVPMBasis[pm][Rep][II,JJ], PrintVtildePMBasis[pm][Rep][II,JJ], \ PrintLSigmaProduct[Rep], \ PrintRSigmaProduct[Rep]\\n\\n*************************************************\ ***************************************\\n************************************\ ****************************************************\\n\\nBC4Tools:\\n\\\ nIndexRange[BC4Tools][Index], Index = n, a, \[Mu], A, II, or \ tt\\n\\nFunctions: \\nHPerm[a], H[[a]], S3Perm[\[Mu]], S3[[\[Mu]]], \ VierPerm[A], Vier[[A]], BC4[[n,a,\[Mu],A,II,JJ]] , \ BC4Perm[n,a,\[Mu],A][[II,JJ]], QuaternionTestIJK[Quat], \ QuaternionTestKJI[Quat], Digit[Num,Pow], ell[Rep][tt,a][II,JJ], \ kappa[Rep][ti,a][II,JJ], IellABColor[Rep][[a]], PrintIell[Rep][[a]], \ IellABCode[Rep][[a]], AntisymmetryCheck[Object1], BC4Color[n,a,\[Mu],A][L], \ BC4ColorPerm[n,a,\[Mu],A][L],BC4Boson[n,a,\[Mu],A][L],BC4BosonPerm[n,a,\[Mu],\ A][L], HList,S3List,VierList,PrintBC4Perm[n,a,\[Mu],A],PrintBC4BosonPerm[n,a,\ \[Mu],A],PrintBC4FermionPerm[n,a,\[Mu],A],PrintBC4ColorPerm[n,a,\[Mu],A],L[Q],\ L[Qtilde],L[RepCode]\\n\\n****************************************************\ ************************************\\n***************************************\ *************************************************\\n\\nGraphingTools:\\\ nIndexRange[GraphingTools][list]\\n\\n AdinkraGreen, AdinkraViolet, \ AdinkraOrange, AdinkraRed, padLmatrix[L], adjacencyToEdge[mat,col], \ buildrules[list], Valise, GraphAdinkra[L], GraphAdinkra[L,BuildRules[list], \ ExportAdinkra[L,BuildRules[list],filename]\\n\\n******************************\ **********************************************************\\n*****************\ ***********************************************************************\"\>"],\ "Output", CellChangeTimes->{ 3.7424481730758133`*^9, 3.745945726060957*^9, 3.7467873124988346`*^9, 3.7468067616757464`*^9, 3.7468296411539536`*^9, 3.746839182346354*^9, 3.7468437348688564`*^9, 3.746844568825035*^9, 3.747420082685336*^9, 3.7474218914662075`*^9, 3.747484237963112*^9, 3.7475104197599583`*^9, 3.747510450793408*^9, 3.7475107582993727`*^9, 3.7475111364155393`*^9, 3.747514466185391*^9, 3.7475149164992723`*^9, 3.7487834115168867`*^9, 3.7487945128962193`*^9, 3.7488048514447813`*^9, 3.74896513423836*^9, 3.7489676573346977`*^9, 3.7489698128153553`*^9, 3.749382914539647*^9, 3.749383378515108*^9, 3.7493859312755632`*^9, 3.7493983786901646`*^9, 3.7493998530591917`*^9, 3.749400516941553*^9, 3.7494023115544558`*^9, 3.749497038080015*^9, {3.7604678831849093`*^9, 3.760467887717824*^9}, 3.7604682365536747`*^9, 3.7604703353031316`*^9}, CellLabel->"Out[5]=",ExpressionUUID->"16fdd409-426b-44b6-a1b2-337252ca4de7"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["FieldLIsts", "Section", CellChangeTimes->{{3.7474914888335376`*^9, 3.747491490281271*^9}},ExpressionUUID->"62d82f07-5d34-4926-a0a5-\ de6ed881cb59"], Cell[CellGroupData[{ Cell["FieldList:= list of all fields", "Subsubsection", CellChangeTimes->{{3.7371647409610195`*^9, 3.7371647437738266`*^9}, { 3.7474915170494804`*^9, 3.7474915201855717`*^9}},ExpressionUUID->"38404d85-6a74-4447-aa3b-\ b53b5dce3a6b"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FieldListDynamicalBosons", " ", "=", " ", RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"A", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"B", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "}"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Am", "[", "mu", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"At", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"Bt", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CurlyPhi]", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ 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[{"3", ",", "1"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{"Bmn", "[", RowBox[{"2", ",", "3"}], "]"}], "[", 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.74221898187416*^9, 3.74221898516984*^9}, {3.7467944645793705`*^9, 3.746794676786547*^9}, { 3.746839384272541*^9, 3.746839418953623*^9}, {3.7468394490025725`*^9, 3.7468395119143877`*^9}, {3.7468395509244137`*^9, 3.746839572636593*^9}, { 3.747420373512541*^9, 3.747420374055493*^9}, {3.747420407184679*^9, 3.747420416896228*^9}, 3.747420447760703*^9, {3.7474205769685974`*^9, 3.747420578159192*^9}, {3.747420616111844*^9, 3.747420634991326*^9}}, CellLabel->"In[6]:=",ExpressionUUID->"45107846-b855-4e53-aae5-dedbb1c6b043"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"A", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"B", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{"Am", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{"Am", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{"Am", "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{"Am", "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"At", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"Bt", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CurlyPhi]", "[", 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[{"3", ",", "1"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{"Bmn", "[", RowBox[{"2", ",", "3"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "}"}]], "Output", CellChangeTimes->{3.760468236577119*^9, 3.760470335323037*^9}, CellLabel->"Out[6]=",ExpressionUUID->"a655ec2d-4910-4ac5-96ba-a2595c5a7871"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FieldListAuxiliaryBosons", " ", "=", " ", RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"F", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"G", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"d", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Ft", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"Gt", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.747420586390733*^9, 3.747420591983321*^9}, { 3.747420654207153*^9, 3.7474206764630346`*^9}}, CellLabel->"In[7]:=",ExpressionUUID->"f8b7c5cd-31bd-40ec-acef-e07fe690ea62"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"F", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"G", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"d", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"Ft", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"Gt", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "}"}]], "Output", CellChangeTimes->{3.760468236595454*^9, 3.7604703353418064`*^9}, CellLabel->"Out[7]=",ExpressionUUID->"775da42d-fd5c-4ab0-b721-c0b8db5ccb43"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FieldListFermions", " ", "=", " ", RowBox[{"Join", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}], "//", "Flatten"}], ")"}], ",", RowBox[{"(", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}], "//", "Flatten"}], ")"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.747420382357642*^9, 3.747420420079491*^9}}, CellLabel->"In[8]:=",ExpressionUUID->"90fd07d0-589f-401e-9361-220e7953227e"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "}"}]], "Output", CellChangeTimes->{3.760468236616146*^9, 3.760470335363163*^9}, CellLabel->"Out[8]=",ExpressionUUID->"959d82f1-dc58-4614-b299-ddce3a952604"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FieldList", " ", "=", " ", RowBox[{"Join", "[", RowBox[{ "FieldListDynamicalBosons", ",", "FieldListAuxiliaryBosons", ",", "FieldListFermions"}], "]"}]}]], "Input", CellChangeTimes->{{3.747420454471472*^9, 3.747420465958788*^9}, { 3.747420684279863*^9, 3.7474206866330976`*^9}, {3.747420762063388*^9, 3.7474207642143497`*^9}}, CellLabel->"In[9]:=",ExpressionUUID->"32a0b0b6-03c7-474c-b1cc-3f3beac65ccc"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"A", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"B", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{"Am", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{"Am", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{"Am", "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{"Am", "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"At", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"Bt", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CurlyPhi]", "[", 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[{"3", ",", "1"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{"Bmn", "[", RowBox[{"2", ",", "3"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"F", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"G", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"d", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"Ft", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"Gt", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "}"}]], "Output", CellChangeTimes->{3.7604682366460524`*^9, 3.7604703353864307`*^9}, CellLabel->"Out[9]=",ExpressionUUID->"a945a21e-5e68-4c82-8ac5-2deda25845bc"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ FieldListWithDerivatives:= list of all fields and all derivatives of fields, \ up to 2nd order\ \>", "Subsubsection", CellChangeTimes->{{3.747491503985871*^9, 3.7474915343535976`*^9}},ExpressionUUID->"3dcdbc13-3f52-49ae-8f7a-\ 2ba58f9e9eb7"], Cell[BoxData[ RowBox[{ RowBox[{"FieldListWithDerivatives", " ", "=", " ", RowBox[{"Join", "[", RowBox[{"FieldList", ",", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"D", "[", RowBox[{"FieldList", ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}], "//", "Flatten"}], ",", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"D", "[", RowBox[{"FieldList", ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "nu", "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}], "//", "Flatten"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.7474912152941847`*^9, 3.7474913919709916`*^9}, { 3.7474919320023904`*^9, 3.747491933257946*^9}}, CellLabel->"In[10]:=",ExpressionUUID->"b7505a06-a085-4f94-bdf1-bb3f5c975bbf"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ FieldProductList := List of all combinations of boson*fermion w/ derivatives \ on the bosons.\ \>", "Subsubsection", CellChangeTimes->{{3.7474915412731423`*^9, 3.747491569649689*^9}},ExpressionUUID->"5f079067-ab5b-4732-b778-\ bf9d364d51f5"], Cell[BoxData[ RowBox[{ RowBox[{"FieldProductsListDynamicalBosons", " ", "=", " ", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"FieldListDynamicalBosons", "[", RowBox[{"[", "ii", "]"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "nu", "]"}]}], "]"}], RowBox[{"FieldListFermions", "[", RowBox[{"[", "jhat", "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "mu", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", RowBox[{"Length", "[", "FieldListDynamicalBosons", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"jhat", ",", "1", ",", RowBox[{"Length", "[", "FieldListFermions", "]"}]}], "}"}]}], "]"}], "//", "Flatten"}]}], ";"}]], "Input", CellChangeTimes->{{3.7474203166575675`*^9, 3.74742032971872*^9}, { 3.747420500190834*^9, 3.747420552719313*^9}, {3.7474207842399745`*^9, 3.747420929256092*^9}, {3.7474213462716775`*^9, 3.747421348646953*^9}}, CellLabel->"In[11]:=",ExpressionUUID->"b67c8b50-4dfa-40da-b6fa-73e9df85c419"], Cell[BoxData[ RowBox[{ RowBox[{"FieldProductsListAuxiliaryBosons", " ", "=", " ", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"FieldListAuxiliaryBosons", "[", RowBox[{"[", "ii", "]"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}], RowBox[{"FieldListFermions", "[", RowBox[{"[", "jhat", "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", RowBox[{"Length", "[", "FieldListAuxiliaryBosons", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"jhat", ",", "1", ",", RowBox[{"Length", "[", "FieldListFermions", "]"}]}], "}"}]}], "]"}], "//", "Flatten"}]}], ";"}]], "Input", CellChangeTimes->{{3.7474213503127503`*^9, 3.747421387622363*^9}}, CellLabel->"In[12]:=",ExpressionUUID->"73c889c4-d826-4ca4-b0a3-7d23785f4526"], Cell[BoxData[ RowBox[{ RowBox[{"FieldProductsList", " ", "=", " ", RowBox[{"Join", "[", RowBox[{ "FieldProductsListDynamicalBosons", ",", "FieldProductsListAuxiliaryBosons"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.747421398201582*^9, 3.7474214203261704`*^9}}, CellLabel->"In[13]:=",ExpressionUUID->"beff1b47-2715-42c4-9d6c-1d4e9586da12"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ Symmetries, Constraints, and raised indices such as Amup, 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.746788296331828*^9, 3.746788298558612*^9}},ExpressionUUID->"c50236d8-bfd6-4c67-bc1c-\ bc4c6ff2c66c"], Cell[CellGroupData[{ Cell[TextData[{ "Hard code the indices of ", Cell[BoxData[ FormBox[ SubscriptBox["B", "\[Mu]\[Nu]"], TraditionalForm]], "None",ExpressionUUID-> "dd9e8d7c-47af-4031-a492-0238cadd5e33"], " so the independent fields are: ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["B", RowBox[{"0", "i"}]], ",", " ", SubscriptBox["B", "12"], " ", ",", " ", SubscriptBox["B", "23"], " ", ",", " ", SubscriptBox["B", "31"]}], TraditionalForm]], "None",ExpressionUUID-> "969bc9de-8513-45f9-88a2-e5d35ef12407"] }], "Subsection", CellChangeTimes->{{3.5367157366901007`*^9, 3.5367157585583515`*^9}, { 3.5594349997035418`*^9, 3.559435007078964*^9}, {3.5594350495613937`*^9, 3.5594351128710146`*^9}, {3.7095716264722633`*^9, 3.709571628134359*^9}, { 3.7467888764113293`*^9, 3.746788887432037*^9}},ExpressionUUID->"216e9394-7d2c-4685-b30f-\ 27c35fd1a130"], 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[{"1", ",", "3"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "=", RowBox[{"-", RowBox[{ RowBox[{"Bmn", "[", RowBox[{"3", ",", "1"}], "]"}], "[", 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[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Bmn", "[", RowBox[{"mi", ",", "mi"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", "=", " ", "0"}], ",", RowBox[{"{", RowBox[{"mi", ",", "0", ",", "3"}], "}"}]}], "]"}], ";"}]}], "Input", CellChangeTimes->{{3.536715241146757*^9, 3.536715369286086*^9}, { 3.5594350106271667`*^9, 3.5594350334044695`*^9}, {3.559435125076713*^9, 3.5594351491560903`*^9}, {3.5594352409843426`*^9, 3.5594352499038525`*^9}, { 3.5594387483699536`*^9, 3.559438819557025*^9}, {3.559489972490155*^9, 3.5594899888800926`*^9}, {3.709571409139833*^9, 3.70957162238603*^9}, { 3.711396588085267*^9, 3.7113966704349775`*^9}, {3.7467888964325914`*^9, 3.746788899692309*^9}}, CellLabel->"In[14]:=",ExpressionUUID->"86d0e59a-a838-4eec-b77d-1d550331c9c9"], Cell[BoxData[ RowBox[{"(*", RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Bmn", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", "t", "]"}], " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"Bmn", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "/.", "AdinkraReduce"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}], "*)"}]], "Input", CellChangeTimes->{{3.7113966933592887`*^9, 3.711396724484069*^9}, { 3.746788901184469*^9, 3.746788901591528*^9}}, CellLabel->"In[21]:=",ExpressionUUID->"15bd1ad2-c05a-4d00-93bc-b38640a0ae02"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Bmn", "[", RowBox[{"0", ",", "1"}], "]"}], "[", "t", "]"}]], "Input", CellChangeTimes->{{3.7113967266311913`*^9, 3.7113967297583704`*^9}, 3.7467889152019606`*^9}, CellLabel->"In[22]:=",ExpressionUUID->"9a77a2c4-b8ef-42db-97e7-fbe88c343834"], Cell[BoxData[ RowBox[{ RowBox[{"Bmn", "[", RowBox[{"0", ",", "1"}], "]"}], "[", "t", "]"}]], "Output", CellChangeTimes->{3.7604678966763673`*^9, 3.7604682367465544`*^9, 3.7604703354835963`*^9}, CellLabel->"Out[22]=",ExpressionUUID->"909fa0cf-3b00-4fbe-8279-e7bfef6c3a5f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Bmn", "[", RowBox[{"3", ",", "3"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Input", CellChangeTimes->{{3.55948999932469*^9, 3.55949001138938*^9}, { 3.709571561148527*^9, 3.709571562893627*^9}, 3.7467889174439216`*^9}, CellLabel->"In[23]:=",ExpressionUUID->"01b72134-b921-498b-8bad-0c84fdcd47eb"], Cell[BoxData["0"], "Output", CellChangeTimes->{3.760467896695657*^9, 3.760468236760785*^9, 3.760470335503278*^9}, CellLabel->"Out[23]=",ExpressionUUID->"4b73708c-465c-42ab-b9f3-23fe1451f0d9"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"Bmn", "[", RowBox[{"3", ",", "3"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "z"}], "]"}]], "Input", CellChangeTimes->{{3.559490017988757*^9, 3.559490022317005*^9}, { 3.7095715875650387`*^9, 3.709571589308138*^9}, 3.7467889175689087`*^9}, CellLabel->"In[24]:=",ExpressionUUID->"cec1f2f8-706a-4128-8c2f-056fb50e0f1a"], Cell[BoxData["0"], "Output", CellChangeTimes->{3.7604678967098713`*^9, 3.760468236776235*^9, 3.760470335513095*^9}, CellLabel->"Out[24]=",ExpressionUUID->"714e9ae9-6387-48cd-8124-0bbfee41a06b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Bmn", "[", RowBox[{"1", ",", "0"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Input", CellChangeTimes->{{3.709571591183245*^9, 3.7095715972605925`*^9}, 3.7467889194977036`*^9}, CellLabel->"In[25]:=",ExpressionUUID->"fb279d2c-25f5-4e18-8b2b-871ee32b098d"], Cell[BoxData[ RowBox[{"-", RowBox[{ RowBox[{"Bmn", "[", RowBox[{"0", ",", "1"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output", CellChangeTimes->{3.760467896725618*^9, 3.7604682367896805`*^9, 3.7604703355332203`*^9}, CellLabel->"Out[25]=",ExpressionUUID->"f7b17f33-e7c5-4b10-b12e-7f154906f32b"] }, Open ]], Cell[BoxData[ RowBox[{"(*", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"Bmn", "[", RowBox[{"1", ",", "0"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "t"}], "]"}], "/.", "AdinkraReduce"}], "*)"}]], "Input", CellChangeTimes->{{3.7095716373618865`*^9, 3.709571666639561*^9}, 3.7467889215364733`*^9}, CellLabel->"In[26]:=",ExpressionUUID->"761ddfa6-0ecd-4ab6-9833-c7e4f913871b"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "\[CapitalPsi]up[i][a] := ", Cell[BoxData[ FormBox[ SuperscriptBox["\[CapitalPsi]", "ia"], TraditionalForm]],ExpressionUUID-> "dc52f130-c8ad-471f-a8e4-79f98086e1c8"] }], "Subsection", CellChangeTimes->{{3.7113899424411583`*^9, 3.7113899579800467`*^9}, { 3.738581167758957*^9, 3.7385811777485285`*^9}, {3.745946250409272*^9, 3.745946285660696*^9}},ExpressionUUID->"c9f8c06e-cccd-4878-9cf6-\ 57c38c92fecd"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]up", "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", "=", " ", RowBox[{"RaiseFermionIndex", "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "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.745946288267447*^9, 3.745946316041449*^9}, {3.7459464426280937`*^9, 3.745946444745284*^9}, {3.7459464867150393`*^9, 3.745946487257883*^9}, { 3.746842111826688*^9, 3.7468421241791954`*^9}}, CellLabel->"In[27]:=",ExpressionUUID->"177c1870-f60d-4066-90cf-25d8a2c341ac"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"InverseCmetric", "//", "MatrixForm"}]], "Input", CellChangeTimes->{{3.711390024176833*^9, 3.711390035195463*^9}}, CellLabel->"In[28]:=",ExpressionUUID->"b3bb8aad-dfd4-4288-9655-b413b006b0c8"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{"-", "1"}], "0", "0"}, {"1", "0", "0", "0"}, {"0", "0", "0", "1"}, {"0", "0", RowBox[{"-", "1"}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.760467896754918*^9, 3.7604682368372583`*^9, 3.760470335573295*^9}, CellLabel-> "Out[28]//MatrixForm=",ExpressionUUID->"16d55cb3-a384-4069-b89f-\ e1562784a3b7"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]up", "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.7113900099700203`*^9, 3.711390019309555*^9}, 3.711583315863529*^9, {3.738581159733498*^9, 3.7385811605575447`*^9}, { 3.7459464217236357`*^9, 3.745946432377254*^9}, {3.7468421255567718`*^9, 3.746842126067292*^9}}, CellLabel->"In[29]:=",ExpressionUUID->"6ba0ccbc-f977-4c3b-88a6-f4eacc7f6e79"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"-", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"-", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.7604678967957687`*^9, 3.760468236856489*^9, 3.760470335605815*^9}, CellLabel->"Out[29]=",ExpressionUUID->"746cef43-69c3-4c63-ba6f-e2ac06d6172e"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "\[CapitalPsi]tup[i][a] := ", Cell[BoxData[ FormBox[ SuperscriptBox[ OverscriptBox["\[CapitalPsi]", "~"], "ia"], TraditionalForm]], ExpressionUUID->"a66c3805-55c2-432f-95f7-4504500a133a"] }], "Subsection", CellChangeTimes->{{3.7113899424411583`*^9, 3.7113899579800467`*^9}, { 3.738581167758957*^9, 3.7385811777485285`*^9}, {3.745946250409272*^9, 3.745946285660696*^9}, {3.745946592778892*^9, 3.7459465965249367`*^9}},ExpressionUUID->"05fd81b8-c980-4f98-b396-\ d779a42a978c"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]tup", "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", "=", " ", RowBox[{"RaiseFermionIndex", "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "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.745946288267447*^9, 3.745946316041449*^9}, {3.7459464426280937`*^9, 3.745946444745284*^9}, {3.7459464867150393`*^9, 3.745946487257883*^9}, { 3.745946598779518*^9, 3.745946601523405*^9}, {3.7468421273883657`*^9, 3.746842137533628*^9}}, CellLabel->"In[30]:=",ExpressionUUID->"91141bcb-2ccd-4428-9c54-6a2d82e3d180"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"InverseCmetric", "//", "MatrixForm"}]], "Input", CellChangeTimes->{{3.711390024176833*^9, 3.711390035195463*^9}}, CellLabel->"In[31]:=",ExpressionUUID->"8eaab46d-fd1a-4b9c-b384-6fa94b0dc54e"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{"-", "1"}], "0", "0"}, {"1", "0", "0", "0"}, {"0", "0", "0", "1"}, {"0", "0", RowBox[{"-", "1"}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.760467896828229*^9, 3.760468236876109*^9, 3.760470335630747*^9}, CellLabel-> "Out[31]//MatrixForm=",ExpressionUUID->"92eacbfe-3f3b-401b-b30e-\ 61c796dbe2e4"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]tup", "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.7113900099700203`*^9, 3.711390019309555*^9}, 3.711583315863529*^9, {3.738581159733498*^9, 3.7385811605575447`*^9}, { 3.7459464217236357`*^9, 3.745946432377254*^9}, 3.745946604452257*^9, { 3.746842138406355*^9, 3.746842138948872*^9}}, CellLabel->"In[32]:=",ExpressionUUID->"5443c6d3-5606-4d77-a896-6d00977e7e24"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"-", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"-", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.7604678968495493`*^9, 3.760468236894535*^9, 3.760470335648699*^9}, CellLabel->"Out[32]=",ExpressionUUID->"3b06cb4f-da87-4502-a0ca-44ef6bedb374"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "The Field strength, covariant and contravariant: Fmn[\[Mu],\[Nu]]:=", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["F", "\[Mu]\[Nu]"], " ", "=", " ", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Mu]"], SubscriptBox["A", "\[Nu]"]}], " ", "-", " ", RowBox[{ SubscriptBox["\[PartialD]", "\[Nu]"], SubscriptBox["A", "\[Mu]"]}]}]}], TraditionalForm]], "None", ExpressionUUID->"10fce0ba-5bf2-408e-90d0-98c0b8045a5e"], " , Fmnup[\[Mu],\[Nu]][t,x,y,z] ", Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["F", "\[Mu]\[Nu]"], " ", "=", " ", RowBox[{ RowBox[{ SuperscriptBox["\[PartialD]", "\[Mu]"], SuperscriptBox["A", "\[Nu]"]}], "-", RowBox[{ SuperscriptBox["\[PartialD]", "\[Nu]"], SuperscriptBox["A", "\[Mu]"]}]}]}], TraditionalForm]], "None", ExpressionUUID->"53db7721-65a6-4a01-8a91-45c07c670a24"] }], "Subsection", CellChangeTimes->{{3.559435749243413*^9, 3.5594358115719786`*^9}, { 3.7095723534978476`*^9, 3.709572367764663*^9}, {3.7467876591178255`*^9, 3.746787661816454*^9}, {3.746788069746798*^9, 3.746788071230805*^9}},ExpressionUUID->"6044be20-c5be-443e-a695-\ 41d6db5e4ca0"], Cell[BoxData[ RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Fmn", "[", RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"Am", "[", "\[Nu]", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "\[Mu]", "]"}]}], "]"}], " ", "-", " ", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"Am", "[", "\[Mu]", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "\[Nu]", "]"}]}], "]"}]}]}], ",", " ", RowBox[{"{", RowBox[{"\[Mu]", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Nu]", ",", "0", ",", "3"}], "}"}]}], "]"}], " "}]], "Input", CellChangeTimes->{{3.559435816934285*^9, 3.5594358798158817`*^9}, { 3.5594391240094385`*^9, 3.5594391253525157`*^9}, {3.746787673699049*^9, 3.7467876753293724`*^9}, {3.7467877475058484`*^9, 3.7467877478651915`*^9}, { 3.7467881496154876`*^9, 3.7467881531433935`*^9}, {3.746788310444552*^9, 3.7467883112275906`*^9}}, CellLabel->"In[33]:=",ExpressionUUID->"0d417862-dcd7-4073-be22-8a676da50294"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Fmnup", "[", RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"RaiseSTIndex", "[", RowBox[{ RowBox[{ RowBox[{"FmnHolder", "[", RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "UP", ",", "UP"}], "]"}], "/.", RowBox[{"FmnHolder", "\[Rule]", "Fmn"}]}]}], ",", RowBox[{"{", RowBox[{"\[Mu]", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Nu]", ",", "0", ",", "3"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.55943589149255*^9, 3.559435933415947*^9}, { 3.559439144588616*^9, 3.5594391665908747`*^9}, {3.711387927585915*^9, 3.7113879458169575`*^9}, {3.7371540737848773`*^9, 3.7371540855203824`*^9}, { 3.7371542090498376`*^9, 3.7371542704641705`*^9}, {3.7371590519180546`*^9, 3.7371590745762577`*^9}, {3.737159110454631*^9, 3.737159114437681*^9}, { 3.73715917228938*^9, 3.73715919107272*^9}, {3.7371682860288363`*^9, 3.7371682882633696`*^9}, {3.746788062513255*^9, 3.746788064268934*^9}}, CellLabel->"In[34]:=",ExpressionUUID->"2086db6f-4954-4a31-ab75-77a810597789"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Fmn", "[", RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"{", RowBox[{"\[Mu]", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Nu]", ",", "0", ",", "3"}], "}"}]}], "]"}], "//", "MatrixForm"}]], "Input", CellChangeTimes->{{3.5594359455036387`*^9, 3.55943595864439*^9}, { 3.5594391511239896`*^9, 3.559439152285056*^9}}, CellLabel->"In[35]:=",ExpressionUUID->"1aadfe0e-322a-475f-a0c4-ae0155b85c40"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}, { RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "0", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}, { RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "0", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}, { RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.7604678969108143`*^9, 3.760468236936468*^9, 3.760470335693096*^9}, CellLabel-> "Out[35]//MatrixForm=",ExpressionUUID->"76df4db9-ff58-4b76-9aa5-\ 1c7d3d7192ec"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Fmnup", "[", RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"{", RowBox[{"\[Mu]", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Nu]", ",", "0", ",", "3"}], "}"}]}], "]"}], "//", "MatrixForm"}]], "Input", CellChangeTimes->{{3.559436043031217*^9, 3.559436043136223*^9}, { 3.559439155236225*^9, 3.5594391563652897`*^9}, {3.7467880796821976`*^9, 3.746788081424588*^9}}, CellLabel->"In[36]:=",ExpressionUUID->"b9d4ffaf-1f6d-4432-9fdb-85298d5b4a4f"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}, { RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "0", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}, { RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "0", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}, { RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.7604678969691114`*^9, 3.760468236956224*^9, 3.7604703357333803`*^9}, CellLabel-> "Out[36]//MatrixForm=",ExpressionUUID->"21e4e475-b99e-415d-a228-\ 3d91ddda630b"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"Bmnup", "[", RowBox[{"\[Mu]_", ",", "\[Nu]_"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", "=", " ", SuperscriptBox["B", "\[Mu]\[Nu]"]}], TraditionalForm]], \ "None",ExpressionUUID->"5b521b8e-f8f3-4490-9a8a-883498258c6a"]], "Subsection",\ CellChangeTimes->{{3.5595058748817196`*^9, 3.559505896619963*^9}, { 3.5595059940175343`*^9, 3.5595060010259347`*^9}, {3.74678782171711*^9, 3.74678786098053*^9}, {3.7467881807248545`*^9, 3.746788190022028*^9}, { 3.746788346555399*^9, 3.746788346555399*^9}, {3.746788643343294*^9, 3.746788643815591*^9}},ExpressionUUID->"6e43a43f-2b98-4d8d-8b67-\ 4d4337cff1d3"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Bmnup", "[", 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.5595058981330495`*^9, 3.5595059444937015`*^9}, { 3.7113879792638707`*^9, 3.7113880306928124`*^9}, {3.737154372023514*^9, 3.7371543849622355`*^9}, {3.737159515714714*^9, 3.7371595253561463`*^9}, { 3.74678782201628*^9, 3.746787825946167*^9}, 3.7467878778048897`*^9, { 3.746787909745264*^9, 3.746787924140156*^9}, {3.7467879975357356`*^9, 3.7467879981953106`*^9}, {3.7467881857567434`*^9, 3.7467881927209597`*^9}, {3.746788351399992*^9, 3.7467883622182903`*^9}}, CellLabel->"In[37]:=",ExpressionUUID->"31caad4b-d322-457d-ae84-0d8897743f7c"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Bmn", "[", RowBox[{"1", ",", "0"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Input", CellChangeTimes->{{3.737154400322974*^9, 3.7371544155276656`*^9}, 3.7467878270506954`*^9, 3.7467883634435215`*^9, {3.7467884066390657`*^9, 3.746788406756423*^9}, {3.746788439379644*^9, 3.746788439504629*^9}}, CellLabel->"In[38]:=",ExpressionUUID->"3724d280-295b-4e57-943f-3a2fc83a65d3"], Cell[BoxData[ RowBox[{"-", RowBox[{ RowBox[{"Bmn", "[", RowBox[{"0", ",", "1"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output", CellChangeTimes->{3.7604678969953375`*^9, 3.760468236977929*^9, 3.760470336333686*^9}, CellLabel->"Out[38]=",ExpressionUUID->"3fad4b3e-7b1f-4eda-8185-db13fc47080d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Bmnup", "[", RowBox[{"0", ",", "1"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " "}]], "Input", CellChangeTimes->{{3.559505958595508*^9, 3.5595059664489574`*^9}, 3.7467878284123306`*^9, 3.7467878846398506`*^9, {3.746788363975465*^9, 3.746788374605817*^9}}, CellLabel->"In[39]:=",ExpressionUUID->"8de64486-ef25-4b9b-a280-480fef182382"], Cell[BoxData[ RowBox[{"-", RowBox[{ RowBox[{"Bmn", "[", RowBox[{"0", ",", "1"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output", CellChangeTimes->{3.7604678970096426`*^9, 3.7604682369895735`*^9, 3.7604703363486466`*^9}, CellLabel->"Out[39]=",ExpressionUUID->"14e3a61d-3517-4c9e-ab4a-a780b330b39b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Bmnup", "[", RowBox[{"1", ",", "0"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Input", CellChangeTimes->{{3.7113886881014137`*^9, 3.7113886931577034`*^9}, 3.7467878288362474`*^9, 3.7467878851583223`*^9, {3.746788364492631*^9, 3.746788374985256*^9}}, CellLabel->"In[40]:=",ExpressionUUID->"4daee2fb-ecd7-4c69-b4b2-fc3c810c4417"], Cell[BoxData[ RowBox[{ RowBox[{"Bmn", "[", RowBox[{"0", ",", "1"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Output", CellChangeTimes->{3.7604678970257616`*^9, 3.760468237006159*^9, 3.7604703363699646`*^9}, CellLabel->"Out[40]=",ExpressionUUID->"aa2aa774-2bd0-4168-bea0-ebb3aaf31da7"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Bmnup", "[", RowBox[{"3", ",", "0"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Input", CellChangeTimes->{{3.711388717496095*^9, 3.7113887220143538`*^9}, 3.746787829244749*^9, 3.7467878855124025`*^9, {3.746788365057683*^9, 3.7467883753118587`*^9}}, CellLabel->"In[41]:=",ExpressionUUID->"4c6ad7f8-fea4-4f2f-9e9e-2097dca6e005"], Cell[BoxData[ RowBox[{ RowBox[{"Bmn", "[", RowBox[{"0", ",", "3"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Output", CellChangeTimes->{3.7604678970399733`*^9, 3.760468237016276*^9, 3.7604703363831787`*^9}, CellLabel->"Out[41]=",ExpressionUUID->"d474f439-8723-490f-97d9-06a324738def"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Bmnup", "[", RowBox[{"0", ",", "3"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Input", CellChangeTimes->{{3.711388724410491*^9, 3.7113887281387043`*^9}, 3.74678782965279*^9, 3.7467878867116165`*^9, {3.746788365620965*^9, 3.7467883756261673`*^9}}, CellLabel->"In[42]:=",ExpressionUUID->"de992436-4ead-4a83-b62d-0afbc044074f"], Cell[BoxData[ RowBox[{"-", RowBox[{ RowBox[{"Bmn", "[", RowBox[{"0", ",", "3"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output", CellChangeTimes->{3.7604678970568333`*^9, 3.7604682370281143`*^9, 3.7604703363970284`*^9}, CellLabel->"Out[42]=",ExpressionUUID->"252e28ba-f330-4d21-87ce-be16bf577c93"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"Bmnup", "[", RowBox[{"2", ",", "1"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", ",", "t"}], "]"}]], "Input", CellChangeTimes->{{3.55950597052219*^9, 3.559505983126911*^9}, { 3.7113880120597467`*^9, 3.71138801247377*^9}, 3.746787830232757*^9, 3.7467878888120193`*^9, {3.7467883662337914`*^9, 3.7467883762209516`*^9}}, CellLabel->"In[43]:=",ExpressionUUID->"068122f7-85a3-4f78-af93-7f37ee9027b3"], Cell[BoxData[ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"1", ",", "2"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output", CellChangeTimes->{3.7604678970701*^9, 3.7604682376764755`*^9, 3.7604703364132605`*^9}, CellLabel->"Out[43]=",ExpressionUUID->"d7f5bb27-513d-43a7-8632-20aafa212a85"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Bmnup", "[", RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"{", RowBox[{"\[Mu]", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Nu]", ",", "0", ",", "3"}], "}"}]}], "]"}], "//", "MatrixForm"}]], "Input", CellChangeTimes->{{3.559436043031217*^9, 3.559436043136223*^9}, { 3.559439155236225*^9, 3.5594391563652897`*^9}, {3.7371595585001616`*^9, 3.7371595613751593`*^9}, 3.7467878329757724`*^9, 3.7467878909914985`*^9, { 3.7467883677232*^9, 3.7467883775062885`*^9}}, CellLabel->"In[44]:=",ExpressionUUID->"6fb31a28-2784-4d3b-b15b-8ecaa49b7563"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", RowBox[{"-", RowBox[{ RowBox[{"Bmn", "[", RowBox[{"0", ",", "1"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], RowBox[{"-", RowBox[{ RowBox[{"Bmn", "[", RowBox[{"0", ",", "2"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], RowBox[{"-", RowBox[{ RowBox[{"Bmn", "[", RowBox[{"0", ",", "3"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}, { 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[{"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[{"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}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.760467897090275*^9, 3.760468237791346*^9, 3.760470336433235*^9}, CellLabel-> "Out[44]//MatrixForm=",ExpressionUUID->"4f92def6-b2f8-4338-8dae-\ e27830fdefd7"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Hamn[ap_,mu_,nu_][t,x,y,z] = ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["H", "\[Alpha]\[Mu]\[Nu]"], " ", "=", " ", RowBox[{ FractionBox["1", "2"], RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"[", "\[Alpha]"}]], SubscriptBox["B", RowBox[{"\[Mu]\[Nu]", "]"}]]}]}]}], TraditionalForm]],ExpressionUUID-> "6c25db85-2d88-49fa-9fcd-52bc69ecf4db"], "=", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], SubscriptBox["B", "\[Mu]\[Nu]"]}], "+", RowBox[{ SubscriptBox["\[PartialD]", "\[Nu]"], SubscriptBox["B", "\[Alpha]\[Mu]"]}], "+", RowBox[{ SubscriptBox["\[PartialD]", "\[Mu]"], SubscriptBox["B", "\[Nu]\[Alpha]"]}]}], TraditionalForm]], ExpressionUUID->"33c4fd0b-70e1-4591-8428-37009c841375"] }], "Subsection", CellChangeTimes->{{3.746788624113227*^9, 3.7467886865274286`*^9}, { 3.7467891308789663`*^9, 3.7467891866674433`*^9}},ExpressionUUID->"67cc34ff-98e2-44c3-9f54-\ 9ba3cd7231a5"], Cell[BoxData[ RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Hamn", "[", RowBox[{"ap", ",", "mu", ",", "nu"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"Bmn", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "ap", "]"}]}], "]"}], " ", "+", " ", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"Bmn", "[", RowBox[{"ap", ",", "mu"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "nu", "]"}]}], "]"}], " ", "+", " ", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"Bmn", "[", RowBox[{"nu", ",", "ap"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], " ", ")"}]}], ",", RowBox[{"{", RowBox[{"ap", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}], ";"}]], "Input", CellChangeTimes->{{3.4614478885878*^9, 3.4614479954477997`*^9}, { 3.461532549956457*^9, 3.461532552514857*^9}, {3.461532623292057*^9, 3.4615326260844564`*^9}, 3.746788690790016*^9, {3.746789037286188*^9, 3.7467891208281794`*^9}, {3.7467891926573086`*^9, 3.7467892024427953`*^9}}, CellLabel->"In[45]:=",ExpressionUUID->"8815af00-c847-4bc9-aee6-5d4b231fba69"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Hamn", "[", RowBox[{"0", ",", "1", ",", "3"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Input", CellChangeTimes->{{3.7467892790054564`*^9, 3.7467892887917233`*^9}, { 3.746789339186306*^9, 3.7467893392800493`*^9}}, CellLabel->"In[46]:=",ExpressionUUID->"a4acd264-79d2-47d4-b09c-ea7d127d30da"], Cell[BoxData[ 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"}], "]"}]}]], "Output", CellChangeTimes->{3.7604678971156654`*^9, 3.7604682378189354`*^9, 3.760470336457192*^9}, CellLabel->"Out[46]=",ExpressionUUID->"08f264d3-1f5a-4900-8ba0-4f03594e5d62"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Hamn", "[", RowBox[{"0", ",", "1", ",", "2"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Input", CellChangeTimes->{{3.7467892790054564`*^9, 3.7467892887917233`*^9}, { 3.746789339186306*^9, 3.74678936684441*^9}}, CellLabel->"In[47]:=",ExpressionUUID->"2b8c2e5e-9749-454f-936f-69062163afe5"], Cell[BoxData[ 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"}], "]"}]}]], "Output", CellChangeTimes->{3.7604678971299047`*^9, 3.760468237846202*^9, 3.760470336478853*^9}, CellLabel->"Out[47]=",ExpressionUUID->"fa3bad98-a25c-4cf0-b0c3-351713f4cb77"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Hamn", "[", RowBox[{"1", ",", "2", ",", "3"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Input", CellChangeTimes->{{3.7467892790054564`*^9, 3.7467892887917233`*^9}, { 3.746789339186306*^9, 3.7467893392800493`*^9}, {3.7467893704982677`*^9, 3.7467893716274185`*^9}}, CellLabel->"In[48]:=",ExpressionUUID->"a6ea7f97-96d6-41a9-84ec-7eddad57b505"], Cell[BoxData[ 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"}], "]"}]}]], "Output", CellChangeTimes->{3.7604678971518307`*^9, 3.76046823786623*^9, 3.7604703365033526`*^9}, CellLabel->"Out[48]=",ExpressionUUID->"7aa6564b-9100-4b0f-a822-142edacc377c"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"Hamnup", "[", RowBox[{"\[Alpha]_", ",", "\[Mu]_", ",", "\[Nu]_"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", "=", " ", SuperscriptBox["H", "\[Alpha]\[Mu]\[Nu]"]}], TraditionalForm]], \ "None",ExpressionUUID->"7a4a04bd-73d9-492a-bc28-f8cbf2f8bcc8"]], "Subsection",\ CellChangeTimes->{{3.5595058748817196`*^9, 3.559505896619963*^9}, { 3.5595059940175343`*^9, 3.5595060010259347`*^9}, {3.74678782171711*^9, 3.74678786098053*^9}, {3.7467881807248545`*^9, 3.746788190022028*^9}, { 3.746788346555399*^9, 3.746788346555399*^9}, {3.746788643343294*^9, 3.746788643815591*^9}, {3.746789219782315*^9, 3.7467892327038193`*^9}, { 3.74678940613883*^9, 3.746789406624868*^9}},ExpressionUUID->"a5576215-4afa-4539-949a-\ 65196b08f0df"], 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.5595058981330495`*^9, 3.5595059444937015`*^9}, { 3.7113879792638707`*^9, 3.7113880306928124`*^9}, {3.737154372023514*^9, 3.7371543849622355`*^9}, {3.737159515714714*^9, 3.7371595253561463`*^9}, { 3.74678782201628*^9, 3.746787825946167*^9}, 3.7467878778048897`*^9, { 3.746787909745264*^9, 3.746787924140156*^9}, {3.7467879975357356`*^9, 3.7467879981953106`*^9}, {3.7467881857567434`*^9, 3.7467881927209597`*^9}, {3.746788351399992*^9, 3.7467883622182903`*^9}, { 3.7467892446039696`*^9, 3.746789271934366*^9}, {3.746789484475436*^9, 3.746789486795743*^9}, 3.7467895270614786`*^9}, CellLabel->"In[49]:=",ExpressionUUID->"24c20b96-4f97-4d43-a230-1e229a2c59a7"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Hamn", "[", RowBox[{"1", ",", "0", ",", "2"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Input", CellChangeTimes->{{3.737154400322974*^9, 3.7371544155276656`*^9}, 3.7467878270506954`*^9, 3.7467883634435215`*^9, {3.7467884066390657`*^9, 3.746788406756423*^9}, {3.746788439379644*^9, 3.746788439504629*^9}, 3.7467894174586935`*^9, {3.746789564269497*^9, 3.746789564349372*^9}}, CellLabel->"In[50]:=",ExpressionUUID->"3942945c-db4f-46ff-8d71-7d9cc3838034"], Cell[BoxData[ 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"}], "]"}]}]], "Output", CellChangeTimes->{3.7604678971799603`*^9, 3.760468237892105*^9, 3.760470336522149*^9}, CellLabel->"Out[50]=",ExpressionUUID->"9358feaf-796d-4b62-a72e-f0ed7ec07aa5"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Hamnup", "[", RowBox[{"1", ",", "0", ",", "2"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " "}]], "Input", CellChangeTimes->{{3.559505958595508*^9, 3.5595059664489574`*^9}, 3.7467878284123306`*^9, 3.7467878846398506`*^9, {3.746788363975465*^9, 3.746788374605817*^9}, 3.7467894206570187`*^9, {3.746789571781282*^9, 3.7467895917565603`*^9}}, CellLabel->"In[51]:=",ExpressionUUID->"38656c17-7a9f-40d9-8979-17593ef3fba0"], Cell[BoxData[ 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"}], "]"}]}]], "Output", CellChangeTimes->{3.760467897197912*^9, 3.7604682379062386`*^9, 3.7604703365515213`*^9}, CellLabel->"Out[51]=",ExpressionUUID->"4d8495c6-9ada-4d78-81f9-f6170e6f3d69"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Hamnup", "[", RowBox[{"1", ",", "0", ",", "2"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", "\[Equal]", RowBox[{"-", RowBox[{ RowBox[{"Hamn", "[", RowBox[{"1", ",", "0", ",", "2"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.559505958595508*^9, 3.5595059664489574`*^9}, 3.7467878284123306`*^9, 3.7467878846398506`*^9, {3.746788363975465*^9, 3.746788374605817*^9}, 3.7467894206570187`*^9, {3.746789571781282*^9, 3.7467896059005184`*^9}}, CellLabel->"In[52]:=",ExpressionUUID->"3be63a86-e27d-4ee6-9bbc-d55ae11c2038"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.7604678972092056`*^9, 3.76046823791652*^9, 3.7604703365654826`*^9}, CellLabel->"Out[52]=",ExpressionUUID->"dd53f707-a334-4c19-9b5e-98be042e3444"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Hamnup", "[", RowBox[{"0", ",", "1", ",", "2"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Input", CellChangeTimes->{{3.7113886881014137`*^9, 3.7113886931577034`*^9}, 3.7467878288362474`*^9, 3.7467878851583223`*^9, {3.746788364492631*^9, 3.746788374985256*^9}, 3.746789422941053*^9, {3.7467896326806693`*^9, 3.7467896342822237`*^9}}, CellLabel->"In[53]:=",ExpressionUUID->"f2003e4a-0481-4bad-ab8c-df8c603d51db"], Cell[BoxData[ 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"}], "]"}]}]], "Output", CellChangeTimes->{3.7604678972295957`*^9, 3.7604682379543037`*^9, 3.7604703365831847`*^9}, CellLabel->"Out[53]=",ExpressionUUID->"b9c5756c-f520-4cdb-b422-13e2b7f6fa01"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Hamnup", "[", RowBox[{"0", ",", "1", ",", "2"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "\[Equal]", RowBox[{"-", RowBox[{ RowBox[{"Hamn", "[", RowBox[{"0", ",", "1", ",", "2"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.7467896382482414`*^9, 3.746789659116749*^9}}, CellLabel->"In[54]:=",ExpressionUUID->"6817fa8d-003b-48b3-8a31-ca7fcd0d4362"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.7604678972465506`*^9, 3.7604682379664965`*^9, 3.7604703365973883`*^9}, CellLabel->"Out[54]=",ExpressionUUID->"d62e3d3e-db58-4135-9d19-1f39276f279b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Hamnup", "[", RowBox[{"0", ",", "1", ",", "3"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "\[Equal]", RowBox[{"-", RowBox[{ RowBox[{"Hamn", "[", RowBox[{"0", ",", "1", ",", "3"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.7467896382482414`*^9, 3.7467896701092043`*^9}}, CellLabel->"In[55]:=",ExpressionUUID->"7d662a19-2547-4dca-b0ea-ddc8921a3b4f"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.7604678972595925`*^9, 3.7604682379836445`*^9, 3.76047033661313*^9}, CellLabel->"Out[55]=",ExpressionUUID->"168599dd-9534-4fce-928d-8df181ee6ddb"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Hamnup", "[", RowBox[{"3", ",", "1", ",", "2"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"Hamn", "[", RowBox[{"3", ",", "1", ",", "2"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Input", CellChangeTimes->{{3.7467896382482414`*^9, 3.74678968083384*^9}}, CellLabel->"In[56]:=",ExpressionUUID->"60415334-cf79-4a58-a5eb-18167fb5a2f2"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.7604678972757597`*^9, 3.7604682379958735`*^9, 3.760470336622675*^9}, CellLabel->"Out[56]=",ExpressionUUID->"a0b929ca-748a-4210-8675-7b489dd5f40d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Hamnup", "[", RowBox[{"0", ",", "\[Mu]", ",", "\[Nu]"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"{", RowBox[{"\[Mu]", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Nu]", ",", "0", ",", "3"}], "}"}]}], "]"}], "//", "MatrixForm"}]], "Input", CellChangeTimes->{{3.559436043031217*^9, 3.559436043136223*^9}, { 3.559439155236225*^9, 3.5594391563652897`*^9}, {3.7371595585001616`*^9, 3.7371595613751593`*^9}, 3.7467878329757724`*^9, 3.7467878909914985`*^9, { 3.7467883677232*^9, 3.7467883775062885`*^9}, 3.746789436415882*^9, { 3.746789700548075*^9, 3.7467897007321877`*^9}}, CellLabel->"In[57]:=",ExpressionUUID->"bf8c0e30-8cee-4920-9f08-e37606457184"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "0", "0"}, {"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"}], "]"}]}]}, {"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"}], "]"}]}]}, {"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"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.760467897295593*^9, 3.76046823801998*^9, 3.760470336653264*^9}, CellLabel-> "Out[57]//MatrixForm=",ExpressionUUID->"7b132a2f-a388-47d5-af55-\ 9fb5e603b056"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Check UD[Field_,\[CapitalStigma][\[Mu]]] := ", Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[PartialD]", "\[Mu]"], "Field"}], TraditionalForm]], "None",ExpressionUUID->"f54d67dd-bd86-4c0e-a744-2f0caf6ddabc"], " , Lap[Field_] := ", Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[PartialD]", "\[Mu]"], RowBox[{ SubscriptBox["\[PartialD]", "\[Mu]"], "Field", " "}]}], TraditionalForm]], "None",ExpressionUUID-> "8f03f04b-a846-4264-ab44-8b5c5dbbe8b9"], "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->"98e87774-272f-42ac-b4fa-\ 5d65db3bb1ba"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"D", "[", RowBox[{ RowBox[{"UD", "[", RowBox[{ RowBox[{ RowBox[{"Am", "[", "0", "]"}], "[", 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.746789722980807*^9, 3.7467897256169558`*^9}}, CellLabel->"In[58]:=",ExpressionUUID->"728c8cd0-fd9b-40d9-9da7-31f8f1b72aff"], Cell[BoxData[ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output", CellChangeTimes->{3.7604678973161783`*^9, 3.760468238037414*^9, 3.76047033666315*^9}, CellLabel->"Out[58]=",ExpressionUUID->"18bb4bf9-fc24-4e5b-bb9a-56681a992e8b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Lap", "[", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"Am", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "0", "]"}]}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.737160176567008*^9, 3.737160189584123*^9}, { 3.7385811204712524`*^9, 3.738581123297414*^9}, {3.7467897328828726`*^9, 3.7467897337698545`*^9}}, CellLabel->"In[59]:=",ExpressionUUID->"dd934f89-22e2-4f90-94d0-2b0a465972c5"], Cell[BoxData[ RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"3", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output", CellChangeTimes->{3.7604678973304205`*^9, 3.760468238055401*^9, 3.760470336682914*^9}, CellLabel->"Out[59]=",ExpressionUUID->"64b85d73-5755-4bc7-9ba0-8c15739ea7b2"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"UD", "[", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"Lap", "[", RowBox[{ RowBox[{"Am", "[", "2", "]"}], "[", 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.7467897440251675`*^9, 3.7467897465008492`*^9}}, CellLabel->"In[60]:=",ExpressionUUID->"4118fd6c-ca8a-4e4a-b552-dd41957d8a03"], Cell[BoxData[ RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"2", ",", "2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"4", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output", CellChangeTimes->{3.7604678973522406`*^9, 3.7604682380723653`*^9, 3.7604703367047386`*^9}, CellLabel->"Out[60]=",ExpressionUUID->"7719058f-1061-4bcb-91e5-445bb6015776"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Lap", "[", RowBox[{"Lap", "[", RowBox[{ RowBox[{"Bmn", "[", RowBox[{"0", ",", "3"}], "]"}], "[", 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.746789751551484*^9, 3.746789753698559*^9}}, CellLabel->"In[61]:=",ExpressionUUID->"f401ef01-7d38-4ad7-9ab0-559411823ea5"], Cell[BoxData[ RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "3"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "4"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "3"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "2", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "3"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "4", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "3"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "2", ",", "0", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "3"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "2", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "3"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "4", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "3"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "3"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "3"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"2", ",", "2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "3"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"4", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output", CellChangeTimes->{3.7604678973705187`*^9, 3.7604682380862412`*^9, 3.7604703367233686`*^9}, CellLabel->"Out[61]=",ExpressionUUID->"d80916e4-d7b0-4160-852e-4ae727b2ba0e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Lap", "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "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.746789759029718*^9, 3.746789763216857*^9}}, CellLabel->"In[62]:=",ExpressionUUID->"66365ae3-e3c6-4cd0-92c8-6603c4587dca"], Cell[BoxData[ RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output", CellChangeTimes->{3.760467897389681*^9, 3.7604682381165323`*^9, 3.760470336737358*^9}, CellLabel->"Out[62]=",ExpressionUUID->"9c1522dd-bfbb-4cad-80c8-851d7a5a36ff"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Lap", "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "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.746789759029718*^9, 3.746789776818725*^9}}, CellLabel->"In[63]:=",ExpressionUUID->"72a210a6-7b58-40d6-aa5c-698eac04b5fc"], Cell[BoxData[ RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output", CellChangeTimes->{3.7604678974054246`*^9, 3.7604682381304617`*^9, 3.7604703367595673`*^9}, CellLabel->"Out[63]=",ExpressionUUID->"363e4469-bbba-476a-a0f3-0f0769e025a5"] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ 4D, N=2 Vector transformation laws Untilded transformation laws Dia[1][ii][aa]\ \>", "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, {3.746790752680829*^9, 3.746790754295445*^9}, { 3.746806144100352*^9, 3.746806152348056*^9}, {3.7468067803438563`*^9, 3.7468068142905307`*^9}, {3.746807309900429*^9, 3.7468073302533493`*^9}, 3.746807393818512*^9, 3.7468306727418213`*^9, {3.7468323326640205`*^9, 3.746832334944021*^9}, {3.746842594974427*^9, 3.746842595295275*^9}},ExpressionUUID->"5a37422c-9958-4134-8fc9-\ 4e234f8c2e51"], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzt3W9MG2eeB3Dv3Zt7MS/OL3mBxMmy5BdIUYQsLShawQuiREgQbYUQycmC qDlAd62T5gLbVYAqgdwLV9ca7dbsXbx3tXKq2zvrrnGreLu4Le4Ko8XZOgpW 5JQQ4QQnkBCCjGXAznBgxvgZDx577BnPDHw/0lbdNDbDzDy/+c3ze/783Xnz L//hrzQazeW/2fnHL7sHmt57r/v9t/525/+0v3u5r+fdC2+ffvefL/RceO/n 5/965w9/tfO/3/9Mo9n9920AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgEPuTSJ671v3177wSlLuQwEAEEPq lf+jVh2l2UG9ZZtdl/t4AA4BZAtye/PQcaZGw9CZXBG5DwhA7ZAtKEDqvu2E lgls2j7X4pbcBwSgcsgWFGEj6v2wo05X1z50K/AcmTNAuZAtAMAhhGwBAAAA AAAAAAAAAABAIejkathrH77QUkdRda3v3Pj027kYLfdBAQCULhULuwaaavQd I59NTM18f7PXQGk01c2W6TV1BLdY+DOzkdJQJ8dnN9VxxHAEHN5sgU6sPouK 5kVMojEw9PJ3w02GpqFvosm98/7aP3JCPXNA6K25W53MEMgeVxQDhY48OpVM lR1Byv0StWcLvJIBi04jNn1je7d58CO767tgZE2EZkwvei7VaztvzW3tn/FY wNKY/llVJ+0P3pT/IyRFR9x9dZmT02gJxOQ+IJCbOO2urKekyrOFQiSJbKSq uvZfj391N5ooOfzQ8cCH9dRZezhO/NljZ0dN+vup49ZgSoQTIZ3UiveqIXtC Toz4X8t9SCA32SOb2rOFgrJvo0/nQ38J+CdcNwfb9RTnHOpah5yTwXCE7110 PhSY8Xu/dNhuXGk35nwFZXz74zsPVpPC01z6qbu3VtvrXiI+Si+5e5mXu2Nm z3MRz4fo6LWp0XoteSYx0RhyeoEi4XuBwJT3tsN6sfWggFdlNF27+fkd30wg EJonWtzLWAkNKv3jVZ4tlCa15rtWm3Nqa0b9G4LOYTIWCf7BPtCio1gXqGfc F1kX9EXpIFbX731BfvmS28wEC63ZvaTkbqvYrK2DHeQPxQMRJEKvBsfa2TcM ZbjoXiwxguX7KerOFkq34jFrWSdX0+GMlHJq6eTqgzuWc3ryq/TdY1OLRQej 1IrnslZ72bNCPEPoeWcn82TLuToKQxYOiKTNElByLAZ5cd5TxU/yVZ4tlIHb CWByRUv/uo3o1G9N5BsudXrQ/bDI4jK9Gv4hEEkQf/ImbD/JfFFtr/upggMb WTggfvse97LchwaKRUecHaz7RfSOWVVnC+URObJtZ+rL1WRwG5p4UtKDIRa0 tjBfUnWFdXWUhSkcUDpdTU5oKzEBhqMh6jKxbhfxi+kqzhbKJH5k294NbrP/ 2cXO3IYnnwk+h/E/WzId8lX93rVyj0oqTOGAOmP1fz2SE9rwOgo8pI9sHGrJ FsomSWTb3l1l3XfdSH6tvs/5KF74c1l03H8jU93I6ShQlL3CAWUYmFgh1yll bp73vWuoIUAelY9sKskWRCBVZNuJTCszljay9EO1/m42UXzi9tI3eIL5ZO0N f1yZWXOmcKC/5I5ubW9HXKacs4lpCIdaPGjv6zIRuswffOL8YT5WXC5UcmSj 49HA/9mGzKyfber6R8fsJv/H1JEtiEG6yLZzHl99P2Qkcxh9pyNc7Hrra97+ KiYi1o5MCcr2KocpHOz/Xiu+wXr22WyzhRR67CCCN099v/mVqVHPvugaqun6 RHSj8MdLi2z0M9+Nt3LHwu1OBf3gd76nvG8IqsgWRCJlZNve3lp09bFez4rd S4IoTGtarEHictNr89OBYp+J0soUDrK56P7QbuFPYVCv5Er49nBTztC05rFg wdBRSmRLLnkGDOwfpe/4V+9CEWNHVZEtiEXayLZzMicHDeQl19aPThWehJse Xsh8omEsSKyYkR6fo4hZS5kZBydH/SuZ40tGXT3ss4lpCEdEYsFlZqduuk7n fIE7vYTItvmjtYHdl2u44l4sIj9UR7YgHqkj2/aqf6SR/YQ571zg7QzYOdML zk4mHNaccTwkEuz01ckZnyMPonCQvX3Tw4dYv211m+OnQ530QwbROc84aQ/z l48ERzZ6I2A5xvpITZs9VFQPjxqyBTFJHtnITss9Vc22+7zXgogPOWGQXnB1 1xoGJ+Wu6eQUDrK4pxPjPo4MYkAF45xjnjebEhzZEmF7u9A8YY8asgVRSR7Z yLf7jAK9l0RvVZuDSOjpeHCsmTplCcj9cMktHBD/Zd7Rxv5dtWbPijxHCRX2 Zs37PvtOL1R/FBzZnnvM7JStYFrIUH62ILYKRLbswgLZKzjiX83/geyDiZXw bIUdnQb2258suIUDQu69KsH5BKUihvfvqelwPua7W4VGtjcP7CdZsbPoMWmK zxZEV4HItr/MXZa2wfpj/hya3gyONezdGSN+JptPPpkYOq1tGp1clvnd7qDC AQGvo0cZ57lW4OILjWzcKfTF3lwKzxYkUInIxq0YFsqi90f56t+2TUz7J/5r pOMY1XjFGXot9xU4sHBA4E5DqB72CVvMCVRr3TdYzbr4Ike23JV5il8mS9HZ giQqEdnoDf9oTU5ko95xL/P2WNJr899+OmLubNRV17VcGBz3hF4VO8hXMnkL BwRMQzjChOZUQiNb7t8XMqZIudmCNCoR2bZTIVvO66gqh7DmLxwQuNMQ2u3h RN6/DoeJkiPbtjKzBclUJLId0K+uviGsvIWDLExDOMI4ralAZbzCke1IkS2y aU/Y7qtoAE2BwkEWt1PR0ONerNRhgqyEtiaBkY2zUuVhn9VeDtkim7pqhpnC waU7hdYg5Q5qKlT6V5z1R56bFqW46Xmkom3jOL2sokY2TmPF60B+lYlsB21M pp7IlikcaHucC4V7zFQ/7kPy3RuFUdXZe+HtZy8az781lLDIRq/7html125n 5PB2lJUJka0gpnBQ7AQ9ziuD2pb4o5/cufQL7maN8qB+cenOE/VkvPGQjT0H hX/Mj7DIthVxdgv48iOuMpFtw5+7jLZqIhuzOHBRi9LsWXb3UNKfUlAibl8E 79RRYZGNM+Idu2zwQD8bv/hda/POG0DTkG+52JuIe0oP6W61wEVMPN/D28kv KLLRPznayJdRldXgKk22yKaKXYbjYfvZ4goHBM7kPpUEcRBD7tXnnUgoKLLl TkDgn3x95MkW2ZS/OTWdXPi8q+jCAQHTEI4yzkJDPBMJBUQ2znvuoV/uu0wV iWwHFRAUv0EAvei5VL+7CPDIHxeigoTd/Ub2L1tonS44ROhFVzcruco/CUVA ZMupumrrLX9WdvuRWyUiG7dbVfnb1XF2FSwLxh0dJfSSd6CBjEJ5X0iLjmy5 0bLoBSePrkpEto15x7mcpk51uaJKTqWZwoFYlP/qDSLK9GPsM1z1HrhibbGR bS1oPUPUJbTGoe9fKbn5KEElIht3kngRm1/IiSkc6PtulxR+uTkq5vcdNfE5 B5lkVTdbpg/Y2KioyJYZKF4wTgKpApGNu2SZonPpkgsHWaqfhgDl23ro7D5O 3PNtlhnOjONiIlti1t5BbIpFtYxOvVBwVqAY0ke2A7YG6HYtKvbaMIWDorcE Oghn1WhN9aBPRbMfQRT02t3xTmLbAsPl/83ZFbRgZEsvDkm8hx7vst+LKbbt KIrkkW1zwXmePSS/YcArYHRYZQmfcXAgTEOANDp2z95FZG76C/bgy2z2zhvZ 6NgD18Cp7H1Eneh1IKwVTerItnXf1szqcyq0vpmsmMJBwaWKCuGe1WL3GFIC rPUhJjrx2Gs5l32fpJovOqajifTdkC+y0fHo9K2BluxW8JTxn+wzz9GhIYC0 kY2OBz5kFw+UnLBlZhyUv+FF7kQYVXW0Ya0P8W29mr1t6WrYT8AoY9d1u9s/ +Ql7UG/DoPtuwPPpdVP2b2p0p8y2P4ZXsaaHQJJGtuScs8tAfDWl73UtJJUZ 2DKFA8OAZ6n8lrTo7jGwzmrBfR+UA2t9SGQnEwt8bR/padIVc3ar6tr7rc5J xLQSSRjZkkueAVbz1ptdpVYbJccUDgxdzjkxMgTumuFYSgsYdGLl8eyfPJ/b rYMm9mpuuhbzqNX+hcf348MXiu2yUQmpIttOCuTq1ZPPpvqL7gWlvlZkCgdt 9vCWKDcUd3AypiEAh+A94qFo0kQ2em3awhrDX9M6FlBsWYc5WuqMNSjWCpHc 3RCwZD1wILJJR/zIRieXp8fJSremumnom6hCu9f292EUo3BA4O7PhmkIkAuR TToiR7ZULOwaaCKzNUPr6IRyw9r2xqL7SrozsMUaFPOmSgWtx1mnlcLyk5AL kU06ucvZlb4EMR2b837SZyS71qjmi877in0J3abXFzzXmpgDFnkJNe5uCDUj fqxkBCQk9pJJrfmu1WpyWuCof0NQMErGIsE/2AdaWLVsStf6gWv2pUjBgk6u zvnd/2Hp72lv1Gt0jR3mUftXweVsKphKCksL6eSr+7dHzxLz8eovecSb8kW/ vj/+9zlPDE3zeEic8gQcDnvjJ1mJvbhdIrxEb1PyoROrz/aWRnw6H/pLwD/h svW3HDC0Rtc65JwMhOb5FlecDwVm/N4vHbYbV9qNuV+haxu4lRllXb7k88Ct 99PHaWi5+LFzYiowM+ke3znyamPvrdnYViz0xe5ober08OQz/j2OYy8Wd47b 5/ni5vUuzkHvZphm25e+YDjyIiY4IO98N3Napryuf2eNtMyqbjT/m8cfCIb3 VrJcWhXrFIGSZdvdrkj4XmDnJrntsF5sPWhAdJXRdO3m53d8MwF2E3wZEzHO iNamlEHyseWUrqnP8j9Tj0QbW0gnoz+MmdL9VfrusalFIuCkYnP/bTZUGa/+ 9uMO5rfinXWeeuX9tZ7v4MnfQ+io2kTY3iF8aCt63o4GcdqdWL0lIrYpxZAk slXVtZjMgx/ZXd7Aw2VRBxfuXIJvhvaKEfoL9tnXnO9OrXivEiOBq9scP+X/ +QIiG1X/L1PC1vtdD1pPCT91tWedc0jaDj8FRTZx2xSUgl7+bpipsebvAdv8 0dqw35vVbAmoab9igApDm5JfdtU+/h3xiL1ltZc9WGgUIB+0KfkRKy1TZ+3h /Fv00AuurswrZptDyeuPA8gKbUp+9MrEgIHpjy+w+u66b5AZFIz9sgHyQptS AHKQT22v+ynPRUiFbJm8uX7Qt1K5YwRQE7QpBYhPjdRmLkKBjWCI9TTQIQCQ D9qU/Oi4/0Z2TkSBFbaJXbPVtBY3QCWhTSlBPGTb3+eKOmaZ4ZtouTFjOcY8 iTAlEyAPtCklIBfZLrCgGbHzHXZgB8gHbUoBWHsun3PM8zw0klFXL1XU3wQ4 wtCmlICch1I97FvnqeEQHQKs6Zd0cvnBdGhZqcuSA1QW2pQS7C7XmHlo8Hdg Ek+iqn4vMQNkxTdYT/W4l6U/WAAVQJtShIjLlHnA8C7tS6zrWNPhfJx9Du1e nZqT9geo6gCkoU0pAVHH4bkK9GpwrD3zHDplDWbXWUl3gYq87jeAmqFNKQG9 GRxrYIozlsDBS/tuRCeuN+2vhsZaS21zwXmeahgLbmK2G8AetClloCPuvr1u zAMfE3uXoOa0qcPI7RTdum9rNrTZQ9ixGCALbUoR6OSi++Lu7F1K3+18RGwc QCcWfLY+I3W8a3x6OR6yt9Wwy9OJBZdZb7jqxZQQABa0KYXY39qP0neMfDYx tbtlw81rJmMVZeyz+RbSK/fSifCtLn36Ypmsd/x/8ty81Kg9PTTxBLVpAA60 KaWgE08DX9lHzJ2NOiqzsc5d9q4xdPJVyDM+dKGljqLqWt+54fAv4hIA5IM2 BQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAh9L/A8Bo9zw= "], {{0, 120}, {414, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->Automatic, ImageSizeRaw->{414, 120}, PlotRange->{{0, 414}, {0, 120}}]], "Input",ExpressionUUID->"3f07afb7-8739-46e1-b40c-b773f5fb36d7"]], \ "Subsection", 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.7467907692860627`*^9, 3.7467907703835845`*^9}},ExpressionUUID->"fc00eaf6-70c4-4c04-8d33-\ aa6df0600733"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{"A", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "=", " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 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.746790941763169*^9, 3.7467909620381284`*^9}, { 3.746791014063071*^9, 3.746791016179489*^9}, {3.7467910797158837`*^9, 3.7467910797940025`*^9}, {3.7468067755280533`*^9, 3.7468067766137543`*^9}, 3.7468069922880526`*^9, {3.7468421445030813`*^9, 3.746842146254397*^9}}, CellLabel->"In[64]:=",ExpressionUUID->"946515f7-8a4b-47db-9901-bd0e3f6ea91a"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"A", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.738599772683138*^9, 3.738599779656537*^9}, { 3.7467909835342636`*^9, 3.746790992363244*^9}, {3.746807003771184*^9, 3.746807004048191*^9}}, CellLabel->"In[65]:=",ExpressionUUID->"2056d412-6643-4e6d-8826-b9195adc09b1"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Output", CellChangeTimes->{3.760467914426193*^9, 3.760468241227914*^9, 3.760470336795192*^9}, CellLabel->"Out[65]=",ExpressionUUID->"60169a7c-5e18-4714-be12-a416b9d7eac5"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "3", "]"}], "[", RowBox[{"A", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.738599772683138*^9, 3.738599779656537*^9}, { 3.7467909835342636`*^9, 3.746790992363244*^9}, {3.7467910287404957`*^9, 3.746791032001402*^9}, {3.7468070083750753`*^9, 3.746807008660968*^9}}, CellLabel->"In[66]:=",ExpressionUUID->"a5896db2-66d5-48d0-b3e9-fefe38c649dc"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Output", CellChangeTimes->{3.7604679144403863`*^9, 3.7604682412765503`*^9, 3.760470336813341*^9}, CellLabel->"Out[66]=",ExpressionUUID->"e37b07b9-ef19-4676-8629-9fdf98b795c9"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnW9MG3eax627N/diXhwveRGJk2WJF5GiCFk6IrQyL4gSWYKoFbJoK8tE 5Qza60I2V9yuAqkaSNV1tVmjbUx1sW5j5S5Or1Zu41bxdnFb3BVmi7t1FKys u4EIGtyGBAhyEAST4ZgZ2/Ob8dieGc94frafj7Sr/UPNeJh5nt/z7/v8y+nB l/7tH3Q63dl/Ovi3l3od7b/8Ze/bL//zwX/p/sXZAfsv+l4/+Yv/6LP3/fJf T//jwf84dPCvlw9+nvrP+wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFXAXmrpm+BN v9/ncTkPuDBst1mtPd2nr8afk1pfG4AnL7aTd74IfBZOrKW1vhQAAADprATs zbp8jnsSL7S+tMoBllw8e+uRS516gnpIiJfd88+0vh4AACTxJDxiNg9dunb7 61hiKZl8kkrzYhwynXqSXE7EIlP+K+9aj4+FN2vPGdDfkWIhdsNhzLi9hjb3 3T2tr6xSgCWXwovvvaeasscjvdW/rPUFAQAgiWW/VS8Q7AhCnHjr9oNdra9Y TcidyHjWorWOhNe0vp5KAZZcEnt33W0N2fPRgH+lpt8JAKhBxDo+wjjgnlmp 9STYdsLTnTVoZ4Nr9RPwgSWXxE4y9IGlRd/SPXot+lOtvxQAUHuIcHzEMZvz 1vx6HRhDctHXk70bXd7FOmpsAUsOAED9QDs+0xtOp8PebeK4QL3JMjjuCcwu bNSBy2NYCw5m4p66KvABAADUFbTjs/qTmf+aTj3+MZlM/rixXUfhTgbyWfj8 oYzXN41FNrS+HgAAAEANeI6vnkEKfI1vh2qweRUAAKAykOnkn932tgZ7YFXr SxFCBce3F3MdPdw5ejORqqpkIbnktxkyVU2bP1l/ES8AAIAS7KXmf28zEDri 5PnpH7E0pWpEfKmE127QEfrO90PJHSU/WFU2Q8ONmXjvuOcexHsAAADSYb3e 6NQPuHbKqZPqJJ/Oe/oOwiei/cJUdfg+cifqPJJJdHY4o5taXw+AFWR6IxHy nO8ztxBES+cbF69+cT+F5UEWADQl6/V0Lf3+RVy93r6KNT7y8cy4maga35dX 4CO3knc+9zodlK3TNbaYX3e4bkzXjpwXHpac3N74MakYj1Pq/HX2Ugm/o73J YBm7PjUz99WV/uaD5/pQh3N2s3J3LCcuVCb50kwAoBRkeiUwRL8d7eNfr2P9 oOU7vnTq8XIiFj0gllguy5akF/39LVTJrOPS3Cbe9T5Oge+TpUdz3qEOgjB2 n3P7QzPRuemAe8hEefG2fs9fVss0HeReeq/sZ6KsD8HBktOko07RukGiMZi6 ewdHLnn8X8aWN8t3heTql+fbm9tHP09m/u5PI2Nt9INSGW23F5sz77USCt8j osX8mn143H1jKvr3x9uQ1wcUgNycdXZQffENlv/6G+5jATnHx4QAo1aTgfuG GLuHJ25GH8r7HuT6V6PGhoNPMfT7l3A+arIFvgZj31Cf8ZDB4gwuoH7g+er0 e+2U/TFYJmNlBUfKWHu7PynTqGttyRFUcXwojS3dv5r89NukbNtOrgTPtDb0 XLu/m/uTp6JOE/PhFakF760G3lDa73EgWnrOeUKJ+hnXBdSAflOo58kw4FvY 0vpqSkI7vtf+czrotBga9ObhyUAk8cM67ebSqeVY8PKAkXrrmuV2ae5tzl3q YPyFZ35b8ctXBrTAp6Pi9JHAQv6XPYgKe+klDsQpV6yMIqC2jk97S45eTC7V +XAx/tcoJYQ+0m3IN/P6zlHfdCyxXCyJtxiPzkVCf/C6L77ZbeR9BGF8/be3 721IPnqRW9EPWolXPAnkRSYf+CxNzKcedcUqkchIpx6j33Hqv8csR3g3iGh/ +/r0d8VvEAWVy5kJ3fK6hi0tBO8W1YMmIcBjJxm5eo56Xwi9+Zw/kZL7OdtL /kE6ZDL0eBPVcITKSpYRHUPXY+sClmEnOXWBjnQIg+338zJ8H7kWGT9O/4ou 59wallEfUuA7+Jq9voVdwcvcXfb1Mj/UOBSU/024ha3lxJ0oY4uGOoX8YaPR +u6VG7fDc9FofLHsYg0elrwYe5vhdw/z7kHTeGRH0pelzmx/9DjMeoJzJ+2T 4eVnEj6IfBjoP9zQH3iE/DPko0B/Rt7nyGDwJylXpRh5R6cTzuhTiZ/xYnt5 2m1v43q/ozbPHWjaqRv21md+3Y48AcQp74Kcgy+5u+Drpc+rRJcnIWw8cYNx fCZHcLngYS/nuXRE81BgRbq9zSY8cS32IQU+nfFCeL3gFbIGRw0Ja3IjNtHN O4bLu+GFfwWmlpwDKxyXxeJblnMPyPTGvdvOVzm5e0PvhOi4hr4zLcOhx8j/ ln4UyMnaDQYeaRIh5SU/D50PS/HnLOkfpkZPch8501shmGGtDzg7WWj0zqiM JzrbyyHrAKYVmzHXa6cmvine1UCu+Hszb3vLQECGEdpd8Q/QH3Cow/Utdvlf pMB3zPXd88I/iJy0Tc6o7LSAmM/PPIjKbgjC1ZJzyU8Fl9V1vJOc+dCKpk+J kyOB70XENXtrwbMNvBMOImPOOz9UkLXwSCt6exoGg7IXaOUaEliaz4XqZy9J PZP3ohE9viXJj3T6UdDBVIAMA7dq7cyExkStH0S3pH+97TvuTvp0wcuzYQCl NJP9bkV38L3YDL3dmLUO9sCK4ldCLvssnCexbSyi4AkKW0vORWHHt5/tYkXM u7jRWnIj8XV0GS1Mv0h4jmc+4nB/4KE2dwvdIUVxqMv79zKu5OCpeLMRvdu6 xg733Woo0wDlwYv45JWitr5xtjJPYxWFe+LZiru7sjeIFzKIJBf06Rp6/Ss4 GNgMO4veV7NH5+IJTOQnVdrWmvRbOSZI4bgSU0vOQ3nHt4/M1bK+T7qYUirm Mmedw5tarWskF71dnLvT5Y6Xd5JkMx5Z2txxiPlqn71U/GOHuZlufpa3jwxb q64U6aTfzp4Ih0NymhrZs8Hx8Qg+XS4/BQezPXIldvA9Dg23ZO+BOuUwlR1f HlhYcj6qOL59qpQfvmBEP1Zq3zX7AMt9BRSADtvRbyG7wJeD/Lu3i5vt1PX6 liHmA0rBvhFtI+EnWl+NKnCskcwD4c6C9zXmzC23fUgFnoVHMi99qR18nBTT CVdMhZG3Cjs+LCx5Hmo5PqpNa87ZhfZyEJ0fzYudUCW3Ihez7abykh6KoGSB Lwty9qvMgwfUAkiSXF79qxrgWCO5PY1IkwwuCeG9uLtNnDUjk35bzmgW2lu0 FfMM2KwItsF3Lvu+XhQ5BiLb8ZFbyej/uUcHOb/bavu5d75wrw4mljwP9Rwf 0mCcRfzY0ZPwSPZJOXwxotVrrnCBjyE70wSODxAPWyKsKlV/8mni5ns2U7O+ fcB5+37J0XKuNZI9PU2102dcRzmjcIqBdIYT/UW/FNrZUnhv0YuH4d+9xVe/ ES9YKs/xkT+GL77MnwGkFDjf+Sj8sPADiYclz0dNx4dWJTI0DPhXRLg+thBG HB6b0ao9S/kC3wEv7nmO84p83Z4ErmoTABaQz2MTx6rwaXmx4D2Vi1+I076l Il38FBxrRLwRWJVXD0Lch4hfqj7PYq4TmS9VYngbTTHpe3xFi4HptcSt8+28 kbyOiVhJ5yLH8eXaidlfZbD8JrRUqvCDhyUXQF3Hd/DFp0ea0b9NQ+v4TCmR UmToQ2d2xZA/Crm5OBsVG9GXiwoFvn2hwUlFPhaoZZ5GnVnLedyTqJp4j/cG lTSw5LPwebb+XY7AB/uWNZ3yfq/1DcupdZWyrlszY4ez1lLUoFNOwydHKXe5 L8vxPf/OdYxrtprfDKyUjC4xseSCl6ay49vfiIyZOJ9f8gyGZCp0xyZiz9k/ Iz0aqezUSRH4BT4lNibnjzPgVPAF8IS1h6VaIzCDW7Mrme1h1boOODQSlt/Y gdoQ7Y8KrOMrKlrwYjP8TjaqauryxEVVhZDWEbHfV7Lj46mMir48XCy5EKo7 PrS4mbH0xSfXyCVfT+bUwzut0ecHNWR8BOEX+JSoreQUaJGnbiyyocj1AjUK +gZV2fZSulWD0Ju67Y6Jm7GSgh3oUbPM9wKdhtM8OcyOaRRzfIhxkKK6hgwL ZHjVu1g0FpPs+FCVUeb6RCWQcbHkgqju+IQm14pVOZH0CO/2Ug/G4eaR6cq8 +XkFvvJtzt5m5P1W7p1osN3AepEKoD1IzqRQmx+20MZc7NQhkugr/71AhqZF ZP/UhY2YmsYiBXwSLeycsXuSxA04/TA0pZonJTu+vEZ0UUE0LpZcmAo4PlaX m73VhY9zSD6cM+lJbsUmOoiK9SfnFfjKtzk5PSXW7fV672NU7wVwBMk8KJFs rzDMa9s6FFgqFe5tL/nsme+pyK6lnchY9m3TXiYr59MLTK+TqehExjgctXnj kgJUxMUzNFl8D4p9XamOL68fT1x1BhNLXoAKOL7cCkLE4heWaWXDak5aYDfh 7WludkxVqjlZ6QIf+Xhm3MxTqC4mVg/UCGQ6XVY+B8k8VFmBLwOzDqDh1Ylv iojVIFpPclSeBFkJ2LNlBe0j5a2E5xV6o4ZQkjC9HHSYMl5PxsYWviMrJX8u 1fHlq1qLklfHxJIXoBKOj6NElKFgsMx2brNpAXqvQUP7+PRqpRyFsgU+8um8 p4/bfAU7iWqa9FoidHXMfjzzbunbrSOeUGJN+uOLZh4Unv8ltx/Fpz++PPrz zpbced5gsr7l8k3LXJRM7qX3hJ7p9MNp56sGos1++U8Cn3xwr247LcyiJeMb V2NPFHrJ0cqUEoNI5V7OvMdiyNsBRKbXY9eH6CW6xAmH/54cm8DKwqjj+PiN 6CKNIR6WvBCVcHzkTmS8ief4igzp5CRfDK+7p2aZVbCE6U1f/GnFHIWSBb70 kxjP6xEnR4MPxGrYANUGmbrro0wZoW/vG7189fqVd63GxszfXYRaOxc0W1Kq aUHCJW4uhi7bjbzSO2o6Xx77VMxSFfQzlwMDLQUTI7nfqD9uH/2d91YoEo1G I6Fb3ktDZjou058YdAu5Rfmgxa9S2b9KQKZXZydtR6ldpbb3r0/NROemAx5m FXij0X45tFhqzKsQUiMyqY6P//OipbMxsOQFqYTjQxV7xN3tg9fki6tjgz0m /aEWc9/IZDC+Xkk1y7wCn8wGJOQ4l/V5+s7xTxfkPuEA9pCpO54D43Zwev/k bnbVONq3YHHPS1HpQZVdFZr3JFP3/I4T3Ky7IJKSEsx3LNHlzsSY7vFhe7eJ tjoGU3fv4OiHvlBsOaV8CIAWv8oajlAQKhVwzTn8uvkgyiZazNbB0cs3QneS ZR2DsXV8+5pb8sJUxPHlZ6HV2rihDPwCXylBdQHI7YdR/0ULuqJC/9Lojb+u Qg9nDUOuBM+0CkR2SGOztEYLNIulwDwamU5+6bTwpGKL0NLvXxTlkJhWfNyW S6I5OumvcNWQZ8NLSApX0vFhi2aOD+NKPb/AJ+VS06lkIhLwZLNbNITx9K+v y62bAFXDbjJwxqAzWDzz/K681YC9pPKwEGjKnbAHVsu7PnL96/F23mYQBoPJ /DO+DGPm/xn0L5XsMWTCPfw2S6LGrWk8slOjnk+qDZfo+PIW1+KkNS0bzRyf yNYgDcgr8DWZRzz+Ylz3uJxO5wU6g8NKE+pNVoeLyeJU7xv3bCF4xYkLV4IL WOSrBCHXphzNhOAKEm7DuQTtZfTtLPd92f3e13uUvQp95xD1cC6usjnGF9sb DxPR4NULNiObqCBKN+Ax4Z5IGd6KggrCy5W8rgLydO8VdXx5LqImRPUr4/jy fwu+ji+vwCcLosX8mt3h9Pi/qGrHJ/SH0xBcn5n97Bq4Y45QfiIznfT3Iylv 8RYYbYcuczNIat5tyS4I6Bi8Eiqaf9hLLU65rFkvSbzmXSjSVMOEew2tzm+0 7pvMB13qWhPmWhj0a9IUlzmV5vi4AqoUNbE/FBwfn3J28KVTj5PLie/CAc8F 6zE29jOedvqjye2q0txgIH+4feZnIhohKgLxszO3f8D0DMFIJnZMxnfzLhBV LNRJyrltxd253EM5hRVye/6jTmZIrv1X/oS4njq685z+h4o6NXzDvX3ODHVt JOiEQZ8TmuJ9UNIcH0dAtfSHVwuVcXyIikIOTB2fUjv4yK1kxNOPVvpMZ73R IjO8QPXCyAsLS2PRerzs8yRFkxy1260jYbk7kKmRYYNO/L62HOlFfz8dSjS/ ExauS+Ic7u1zFTtroiVDmHzVsqKTL9IcX578iMW3XP1+D2p8PBTdwUemk7cd 6Cpe4uTI7QdVs00NEAudaxJW7kU3sxzQNhJ+Iu1jRVmnIuythc5Rk3Ki9sjw IR/dPkOtFSsQLpGPQo5juIZ7+9xccVUt8JUIIgfNUDS8leT40IEaCoybEiWh mePD8zlUfAdfnjC1YopMADbszDmPEMLjBuSirwd5waQtoUabFuQ6vszqdsHi oxgyu6QFA1V6zyyhsdpwMTiaUXietJWBL6dZRBNSouPjy7bUyjYZzRzfkcHg T4r/nrIpp8BXgPxVRM2OYMkNLUAVkfrG1WX++a0H+X6Ps4K8uDkSoHzHl5GN ErsfQRBGYFlgCoNej0u84klgmeakqBvHl785qMjUpwTHl5dElXZyw5iKOD6h 3hYM1PPyUarAxyE/Ay/VAAJVyrO4+yXk7/6SOy5pHAN1fPJa6Rh7WOYpndn/ zlftI1f8vQ3luVTV4XQk1rTjy/w5EApvIZTg+Hj9otgWc6VTCceXb/lx0EsX QNECHwI6v8xwxBmt1XFaIMfz71zHWGNEnPIuSHvkyx9DexZznSA6JmJlndKZ sJFXm2B8Ou6JLyUHITGHqbeKOV2Ldnx8Zypu/2x1UAnHh/ZWZW8hjpvFFC/w ZRGIeDXfCg2oDbo5XSdrHSo289e0chon7b85PdJMEF2eRP74Bk7UkePbJ9NL N2yo/SqkICfW8W3GXEieXtdgHP1qHeu/thQq4fjypC+134ksiAoFPoa8TY41 PU4LMDwJj7ShD1NAcmEXdXzalgbo3XbsWDTT8dLc61/C7y1G4Rxla93xHbB1 34uGaIc6nLMCgviiHB+5e/9ajxg3WqVUwPHxC2e4hsyqFPhoBCI+cHw1DrkW HEIOO41DQembN5Xo6lQGekQ6t0qM6RQtONyHD/XT3JKFJ0xHdDnn8p47MY4v sz0w9znm8ZnHEp/fvdTSN8Gbfr+PFnSkFB1tVmtP9+mr8ecYHJfUd3x5hTNM C+JqFfj281uCNbdjgNrwxvfk1cKQHeIaPzB7q4E3iMwbgfnQOkr9OT5qEdC3 kz3IAo7mszeXuAWbko6PFe1hkLc1G316ERRYMqIEqju+50u+09zODtkjRaqi WoEP2UTMUmQPL1AD8Mb3Wj+IymkvQZVbND4p0XaibSzyNJPCLSHgiQmo46th 5RY+maWQOQx9HnSvfVHHx1/XSLT1e2V4PeqT0qknSYqF2A2HMfNx2My/q+34 du+6OzjlLUH5egxQrcDH72mnb0KPD/PqSBbYziCH8sb3cqCOT+O5VzofQvkO RoENz6RNHkqJnVYf5PaDkPNVNllJdAx5ZzNywYUcH7mVnL3mMLNhGmH8d89c +SqL5E5kvCnzkWUo7ymLuo4P2T2dAc9wT80CHyNfzAHP3h4hYDuDHHhHHdkd vDgFLJS1PLiG+3Rby9GhYFWoD6EnByZcrSt21+dvOW2oWr7tgicQmb7MnXU/ NhL4ltpGhejq6/QnBt1/UmiFKDJc33A2iEmHjKqOL33fZ0PTvISh37+E5Y4e 1Qp8GcUnDlXUHwXbGWTAG98TjO5f3P/k9ImXvX8r+hygA7BE8VUzqkM5PuLo b7ye6mhrYfgpOJirdsk7fpDpjfuRwH85qV2bBp3eZBkc93waW2WN2F4aS4PG chDHRT/zjNnb9WLe48aW7mGXT9Gt2Wjav8uLy4lfRceXfhR0cKqborY5a4Ja BT5y/atRI8/vNdt896shbAHkwRvfE+75p1fTlq537MVcuVLNoZGwlnleukGr 0WQ6Vh1tLTSowLKMqnr6p+i1t82Uv2g2D/3WNzUTnZsOTA6b9YeM/dfmU7up +MdUYrBK1HfJ7bUH838O3vC4Rqzc7X168+C4y/NxMPzd949VqEKxrX3YFPj2 1XN8ZHrJ329AzxitQ4ElXA2+OgU+Mhl6y8S9uYSh17eA98wvUB5ixveY5I/Z FSvVr4Jq/qghoise1lCIuGxMQI2btICZTCe/nmBW8Rp6J2ZWkD/hXur+/w42 NxrPffhbix6LM4lUJG5gLw9UNQ4nnR91HB+5OevsQJdZNHVORGW1BlUENQp8 5NN5T5+Be2slL0QDqo7N0DDSzNXQHxAoaTOCBscmYiUHmqiQL+v5tC1w5lww Ju3oYkCODYQ9sCr2Hzvwep+PttPmy9Dnmc/f25vd9KSguagkFXV8SIEPK5lK 5R0fmV6dnUSbaXWH2kc/T2KcCVe+wEc+Tfh/1c7LqQu/REAtwVFF1ukO9wce 5m9kZ6QvO9x3RdRR0CqVpqplGWuJ5zYxYZBEsYQkG7n65XnG6+lazwQL9K5y yrh8+W7cqaTjI5f8tszxHy+ZSoUd314q4Xe0o7Fec+f4FM5eL2/WuOwCX3pl ZqKXH+uZ3vTFwevVPJyJaeE8p7Tlrei6GU1H+TLWsoo0Zpmhe4aii1lRWOUT ovnM7cIN6Mhecnw6FUVSScfHJkAwOzLli4rI3SxPpu6HLg8Y0TCH6Bjy3cU3 w5mBt3qjnALf7vr8H8YtR7g3lDBYP5yBDGddwHV8AllBcnv+o05CfH8IGkI2 WXwPtHqZMgfkKspzor6J6BcXLCNal8X3DCKBDEadiuLIi3XUm5Qhd6LOrDXE Ki7e2wy/e1jHpWk8Im1jTjq1HPujx2HmtMsS+s53/PNPlEjNqNpRnCdpLu9k kt6k7sFwF3/ojZobnVvFOuAFFISzgUvgBLV9x93ZJG2eBTmaCq5BrwhM2zNm h/bioC2d4vw1uTblaM4YsRIT+vS6CuYHMepUFMVWwvMKtwhDNDumpAvJiiGv wEduJe987nU6+swthK6xxfy6w3VjOrGmbgaf3N74kZaQST5cjP81Gpnyu4fN AsMd+s5R33Q0vpgswmI8OhcJ/cHrvvhmt5H/Efoux7WsSkCZKNxRnE49ztyC 5cSd6Fz4tvc9m5G3N6HBOPw/keLfPncPojOhgM/jPNvdwt83SOV4R29Ek7Wx rhgQCyNsIuynMhKIprdCUmodqAFvc8e1MbKbUWeHTnfCFaue7kU2yUYccc6J SLigHkGwOMuyF3dng0lspEh4sNY+a+4OjNUtr2uoU0iRotFofffKjdvhuSjX 8D9JlXNo5xT4Pll6NOcd6iAIY/c5tz9EW3L3kImgVdE8f1ExOlBdhYPQtw84 P5lZUGb4UfGO4heb4XeEVFOVvgstPecmPwWXV6+k5t2WjP1k+zbJ9Hrs+sFb L0fvFy3zvepd1CJnnunl0LS7Rhpokk1cF/3WzNjhXA9o8fUxyIJRbAt8ylj7 8v7i7Nmjwdg31Gc8ZLA4gwvooqTnq9Pv0U2ABstkTK2imCqO7yBctQ6OXPL4 Q9HvV5WbflSjo3jvcfBNdTy/wdTdS9+Eqdn4D2WdkYAagBW3pw/S169eHu2j dDPklrzpaXeGEpGISmQuoEoE42gQlc7DFyOlD6Fc2YESqVGkKwDboqf2jg89 e+io3v6RwEIq75BwEBX20oacOOWK4VME1Iba7ygGapv0WiLkGbG2Z2yP/rh9 7GpIdi0DWWSsRZkvG3JWURcHe8eIw2MzIvqIUDnrUqnRnTnnkUxs2DQWga61 AqCZiiLCHbvLvt7Msy1nZ2UNUQ8dxQAgAU2ngLNai1WkT4JM5p5wRsVoU6PL 40rMPiABuMYrM7AGbXw1XgivF7TPbGxa12a8LjqKAUAS5JKvhxBllpX/1Zl2 nSrSJ0HOCR2TcTEKgRztpuKF1HTS30+I+sn6BinwFV/LhSRl63c9d310FAOA RMgfg0NHtcgI5QY0qmetD7sDVPT+L7QiVkK/AinwcfQ/yfTqvdn4atVUQVUG kc0p3viKTgA12wMrlbtEjKitjmIAUAxktaVY1RdF2IiMmej0i/TtBtqA3Cjx 85KoJmrxfhUkNuTWWymheymKoLWN+MZX5Cc1XzqpFTXWUQwACpLrf9M1dXni FfJ8OTuPbfsiD0YRjvZL4tRQGZb91mzIV1SzkVz2WTI/xxXSoW5UUzUN+KsL ojFbog6FCmfVZ8205jqKAUBJkFim9YNoReZEc10i1dK+SK74My0ChjOBpPjT AdLVWcTxkRuxie7s0Zwzzk93vFTPwia1EV+H4lRXq0ohQTGgoxgAisKGM8L7 bZUmt6C5Wo7iT6POE7KCYmZlBhN2OKPCmo07yakL7MoVTu73+ZLvNCFmz1R9 gNShSvRikUm/LXdLsdpbVDmgoxgAioNIy1Yi6MsuaC5Rd8AE9Oa8H9mUWP4g lwMDTBJJMHBjvF7TSavFyBgetAeGaqdprlz+GXeQvRgl5ME52rZ47S2qGNBR DAClyc37qF/pq64CHxsOt4+GV6VbUDK9EhiiWsr509bk9lLYPWAkjtomZ1e3 4p6uJq7l2V7yDxokCY/XOM9irhMZ81xi8X32ZEUhugW3xoCOYgAQw27C20NP sBoG/UsqbsfLFvhEijxry95m5H3ahjYYR79al2lAc+tECYNl7PrUDKXkf+Vd q7GRMA64w0u0JCO5nbhmM9D+0eq6Hflz8MoZU8PJ0akfwOxkSUWdpox9Lr7d Fe1mrNuTA3QUA4AoyPSSv5+2vUWljcokl4YSJ/KsKeTmrLODaqcgOi7NSU1y 8j5q+2H0U8/YYI9JT2SXoH3L3TVDptfjwclRarcO0dL5xkVvZAW8HgLr+IrK u6JbAyrYqIwd0FEMACJJr4ZG6WJTS79/UR2rm202w7/lgFybc3ZRh+YGq+dv 0FepOew65mKOjx3PUeC4Us1ARzEAiIZ8enfyNSrxYbB7E2o888woFtE8Mo23 /nvuDGByBJch8sIAdi9D4ZZ7ZDaH6HLO1bM6NXQUA4AUsvuPiPZfzxQWAZYL 3WWN+7IYcnfB10tlfWUsOgRUI1e8KzC9TqaiE51Mj9BRmzeuYqG6KoCOYgCQ RHo56DBRjRa238/nLzsr76Mfx/5484sExt4kt7UTvB5uZMUnBQdhMg+tDv5w WaCjGAAkkon71PB9WEOmYpMWAxhPTNme91B/HaJ5KLDC7uYm0+ux60MdtE88 4fDfgz9cFugoBgCJpFdmJnoNukPtztl6qXC/eOA/fRSMJ8aQ6dXZSdtRna7R aHufsuRz0wHPSDdltxuN9suhxU34u/GAjmIAkMjOauxPN8OL9VIuIVdjn332 NRhPzEmvJULXnMOvm1sadUSL2To4evlG6E5yG/5sAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdcD/A3kj2Xs= "], {{0, 112}, {595, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->Automatic, ImageSizeRaw->{595, 112}, PlotRange->{{0, 595}, {0, 112}}]], "Input",ExpressionUUID->"12731b0e-9f22-4f64-a145-b2ab8b97e66b"]], \ "Subsection", CellChangeTimes->{{3.440895754578125*^9, 3.4408957769375*^9}, 3.4410038390222445`*^9, {3.455042878078125*^9, 3.455043003234375*^9}, { 3.4550430723125*^9, 3.45504307371875*^9}, {3.4550431366875*^9, 3.45504313765625*^9}, {3.45505279165625*^9, 3.45505282378125*^9}, { 3.5367535507791395`*^9, 3.536753619943095*^9}, {3.545147981904499*^9, 3.545147992921129*^9}, {3.5451480361216*^9, 3.5451480635611696`*^9}, 3.548646755982729*^9, 3.559436180348071*^9, 3.559498749111149*^9, { 3.7095733147118254`*^9, 3.7095733166499367`*^9}, {3.709573634582121*^9, 3.7095736661459265`*^9}, {3.711717094956087*^9, 3.7117170956861286`*^9}, { 3.71171712788297*^9, 3.711717132164215*^9}, {3.7117171826731043`*^9, 3.7117171831101294`*^9}, {3.7117175469379387`*^9, 3.7117175568335047`*^9}, {3.711854545778356*^9, 3.7118545631473494`*^9}, { 3.7119033442924223`*^9, 3.7119033605323515`*^9}, {3.712095460921544*^9, 3.7120954609225445`*^9}, {3.712095552840802*^9, 3.712095552840802*^9}, { 3.712095584347604*^9, 3.712095584377606*^9}, {3.737807608883332*^9, 3.7378076101044016`*^9}, {3.7385815846478014`*^9, 3.73858158549585*^9}, { 3.746790780119294*^9, 3.7467907805274167`*^9}},ExpressionUUID->"f9560984-e0cf-4af4-afec-\ 0d033821ebc5"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{"B", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "=", " ", RowBox[{"I", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"\[Gamma]5", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "ii", "]"}], "[", "bb", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}]}], " ", ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.440895870234375*^9, 3.440895891640625*^9}, { 3.440896510390625*^9, 3.44089655715625*^9}, {3.442671255203125*^9, 3.44267125603125*^9}, {3.44267137046875*^9, 3.4426713811875*^9}, 3.44267142365625*^9, {3.442712951171875*^9, 3.442712951859375*^9}, { 3.44296369284375*^9, 3.442963696734375*^9}, 3.44296768475*^9, { 3.443374517453125*^9, 3.44337452140625*^9}, 3.443397833125*^9, { 3.45504301590625*^9, 3.455043130828125*^9}, {3.4550527984375*^9, 3.455052814484375*^9}, {3.5067782137090287`*^9, 3.506778214466072*^9}, { 3.506779064525693*^9, 3.506779068082896*^9}, {3.506779121543954*^9, 3.506779124996152*^9}, {3.511641116247309*^9, 3.511641117295369*^9}, { 3.511641238366294*^9, 3.5116412632227154`*^9}, {3.519945652604292*^9, 3.519945656025487*^9}, 3.5206470576621337`*^9, {3.536753629485641*^9, 3.5367536355419874`*^9}, {3.5367542796588287`*^9, 3.536754394482396*^9}, { 3.5451480077289762`*^9, 3.5451480136813164`*^9}, {3.5451480836983213`*^9, 3.5451481475869756`*^9}, {3.5451482301356974`*^9, 3.545148230279705*^9}, { 3.54514835065559*^9, 3.545148351119617*^9}, {3.5517190084457397`*^9, 3.5517190462919044`*^9}, {3.5517253476257124`*^9, 3.551725350072852*^9}, { 3.552315878168127*^9, 3.552315880549264*^9}, {3.5594364063879995`*^9, 3.559436470154647*^9}, 3.559498758930711*^9, {3.7095734439172153`*^9, 3.7095734562269197`*^9}, {3.7095736865240917`*^9, 3.7095736900622945`*^9}, {3.710786317142681*^9, 3.7107863175327034`*^9}, { 3.71171717351058*^9, 3.711717180665989*^9}, {3.711717560179696*^9, 3.7117175669990864`*^9}, {3.7118545714168224`*^9, 3.711854584457568*^9}, { 3.7119033420472937`*^9, 3.7119033423323107`*^9}, 3.7119033814345465`*^9, 3.7120954622856226`*^9, {3.712095557947094*^9, 3.7120955854366665`*^9}, { 3.737162821795579*^9, 3.737162839969626*^9}, {3.73780794558059*^9, 3.7378079860629053`*^9}, 3.7379793854587083`*^9, {3.7385815933232975`*^9, 3.7385816487654686`*^9}, {3.738581823928488*^9, 3.7385818265056353`*^9}, { 3.746791040438759*^9, 3.746791071688319*^9}, {3.746791218199999*^9, 3.746791220316177*^9}, 3.746807028665576*^9, {3.7468420772484903`*^9, 3.7468420780772743`*^9}, {3.746842147247383*^9, 3.7468421487670603`*^9}}, CellLabel->"In[67]:=",ExpressionUUID->"3e2c0bcf-490e-4067-8348-075097a1e09b"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "1", "]"}], "[", RowBox[{"B", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.7385998195678196`*^9, 3.738599826307205*^9}, { 3.746791128448927*^9, 3.7467911487067003`*^9}, 3.746807031096098*^9}, CellLabel->"In[68]:=",ExpressionUUID->"e5a36bf3-1541-4628-99e1-480d87ca6a0c"], Cell[BoxData[ RowBox[{"-", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output", CellChangeTimes->{3.760467914586308*^9, 3.7604682413203974`*^9, 3.76047033684159*^9}, CellLabel->"Out[68]=",ExpressionUUID->"711bfc9f-af4a-4096-823a-0e62e6533ddc"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnW9MG2eex627N/diXhwveYHECVniRaQIIUsXFFXmBREREkRbIYu2skzU HKC9LmR7xdtVIVUDObVeXWu0jVNdrG2srGr2anWvThW3h9vFWWFa3K1RQFmn gcg0OMUJEOQgEwyT84xnPM94bM8/e/6Y30dq1T/O4Bmeeb7P7/+/nB3+xb/9 g8FgeP2fsn/7Rb+9/de/7n/zxX/O/kvvr14fGvjVuVdP/+o/zg2c+/W/nv3H 7H88l/3rYvbzxD8/BwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACd cZCKfxf4zOfzup2OLBdHB2xWa1/v2WvLz3C1vxsAKMNhOrH4tf+LUGwzo/ZX AQDg6LHuH2g2cDnljh2q/dWACgASw8vBVvj97iaMWPbYi66lp2p/HwAAjhp4 JvU4QbASnbabKBmuO+m6faD2NwNkAxIjgMO7njON9AG0yepbU/sLAQBwZMH3 wpP0fnRiLLSp9vcBZAMSI4SD266TdfQJdMi3vq/2FwIA4MiSjrl76e3o9cAm GMT6ByRGEHuJ4O8srU2tvePXIz+DAx8AANXAV719TdSm3eNZhUStWgAkBgAA QD9sBobrIEAMAAAAAKqAPw1daKDsYfNEeFvt7wMAAAAARwokQFz/ZnAHKpcA AAAAQEHwuM9mzOkwZvMlIEAMAACgY/BM4q+ugZN1A/6k2l9FHQ6izpZj3eOf xVL6CbTuBEfrKXv4lPsO2MMAAAC65SC19LHNiBmw0xdmHx5VuyoV8wwYDVhT 97vBxJ7aX0YI+F7EcZxyTHc4Ijtqfx8AqCp4ZjsWdF8419WKYa3dr1269vW9 1FHdrYCag1Hh8Zmf9FArkY4HJrqbGky2jxa2eKxXPP0g8uWfP/tyMZkR8Mbi T5bc54wGA9Z+cUYHWswJEOO7icWvPA47sVMZ6lu7XrU7p2ehR6IOAInh5SAV 89nbG42WiU9m5hb+cnWwGTMYGjoc8zvwoADdQ6uwoXXQt6qLHRvf8A9SBTsn J8JPyn52MzzRQX6yecC/Luzqj+YmuzBdaDErQPxpfGPBM9KBYabet1y+4Fxk YdbvGjETd3Jy0P2toHOI4B+c2V6NzEy7JkcHes10DXMWo7m3f3j899dvzq9s Qw8K4agtMXh6+2GiYjxKVWMbwZPfXGhvbh//KkGt5CfhiZPQAhSoCfDMun+E fOvbJ29t6eNgebAZeJ3uOtTrjqXLfZYJoTZavPeF3l9m1TfYSrziHe8v7Gg4 XszcXZ3p3Mg5U4PR4gisoJv3s+Tsf7YTHYuNlivRSlhYh+nEvHfCZsKQMRNY a9crL3W11htQsDabwxdJ7OpgTeEHmQPZX1PGRdSXmEzE0WSoNOSpbOx9t++b 6NqOXGnG1wPnT9T1Xb+3n3/IqYjDTP4gZbIjdld8b3UXLPLqYjS/+klMw9sP UCnwnXlHB1GEWmf5w9/TOtgySTZDYyeopdo4Gd4r87XRGttOZ1TEnoZv/WXc lFV7zDjoi1fSlqwgaIDYQBylxvwr3DSzrNXcTw5pws44o/KCyJnH0U/eIExs A9bUPjDh/vzW0mpiG1k3mVRyNRr0fjDSRY+Fwjrtn97e0ugDpKmMDA34EpLU Rn2JqZIQo9S39v72yo3vE2lpd4PvRn53AnvJHdtF/tt9r6WRvDjW4oxWX6/W fNbqPqMiNDkiuvBRAnIgdwDi120c8q7s8n9eIyBteOuGA2UnHOwuu3ronUBs je3BzsL7HTlb0r1U1upWCyRAnD0w9HtX9ovq3f6at596BiOBTcmSmPlpZvw0 4ec2n78ajG2X19bMzxHP62bKam5AbD1NoqYQa0FiUNf0g9Xlv0XCM76rY71G jHOPTd3j3tlobK2cY3p1ObIQDv6vx3XpjV5TwSUw06sf3LzDs3iKfL0H/sFj dYP+DeTPIfGp48OBnyv7PIpxkFq7HaGYC/p93qKPCOsYvvxpMLwQ4Sf7lG74 fP/jcTnGhvvMTdynbTBYfYnq3xigKum4b5iMLxr7PDEdxfPwVQ8trg09nh/L vdJICNVg8a6JlQJ8Mzx5iny5ehwL0hWsWqB3Z7oYKp20xuiM5JEQlAqXMLqL s78VdduonUrbWsyOkK7FFomd9nOPc6S7mD7Xm6zvXJ2+GcrutcuriAA9Tkm4 QU1ITFEOdkLvHCu4dR4HFJdMai36pdvexVKZetPAldDaU+EXIh9I62jwEXrl DX++seuwf0MVuxE9Cedosnhi0r4Knk7G5j4Z72ZNGK8fDUIhRE2D7694+8lN Eutxx4pbUtoEDRD3uJbLGvJICFVaE2baQa3JYDFyd23OH56V/iBi8JkdkZT4 n7R7z9NfJ0VMM8ngOD0oWbOOhdLg29GpXrahgjWP+Ncrd6LQqsSQMD3MaSSc ZgnwzPadm46XjeiljP1Tc+vC7o185QvOkMigk4JjjIIgMTJqdZz1xsu8iPzg 6fsB0u+Uu5xC/hBALehkJIOh0xEpn3WsNZDFz+NtRkOokqf07q/7hsjdqKHD +b2m3PdE9xFBd3e4E3yTTjERnDrOgO/fu95XZ2AHMYX/6WRovJ3eVyyuJQnH ADXhOK0rOxpYsxJDwvXYy/KU7iXmPrSivlzs9Jj/rpAEQnw7diuyhp7iDmPu U9RVjg36H6jzkNBRlTlOuWOyI/r4ztzkiboqLDZAa2Q2AvZc+o5x6HOdNUVE Fj9fR0fEcYS95k9KPVqmF13djeRF2IE8ldlb9bxM3R2Pwxn5pIRXG98I2tuI 7Czzi9aBN6du3BGbeo2v+/rzk3Vt01rNfCsOvua1sLZa3nI5kdfXpsTkqLAQ P6ertBqYC0psXJCKOruoK9S/odYAbiRGRt3MccdCJcod8xtXhRcboC12v3NQ Jy7dmcPo4udNKP05MEwbxLJOqnmj2FDX71vXiowgd8czg/hRcLSV3itExxzx uLeP5Zw9ORZ6LPKrol9Ab0su4bOyNltpvn3haEJiKCovxM+RrgWMFotu5cfs YCpGUdEYWY6CEIN06AfPF3oDdIw2ZUUg6OLnOy4+DY01VOikyrz4pybD2sja Yu6OL/zNcqCJq+FiW9M5JLjLUN+42u5WsSgsxJqQGJqqCHGWg63QRRN6WXFV G/hu+BKdRVYx7RMPN0A8KLF+jQu16qQWxAHah3nTJZg2qoMsfr4E4INl10nq o/JTT/dWPK/kDvHYGc+KBiYrIHfHsxfhCZ8tb3+IruHKF7QySiRh5DHLwatu ApJYFBVijUgMTbWEmKhHWHD0sFrCdH+0JLSPwePQGL32j10Kq9UwpjoBYorc qoMi4pola1G+QdkmJ34X0UPTIxbo4ufxx2YSvkH6TX/Zsyo3dIMEOrXgXD1I +l/DBJ3DWdao+DmJBQUaZaqVy8La0pUtydmNuodsVgTb8NuXvbdWBRZhSRZi fDcR+bNrfJj1s622X3qWSqfVakNi8lRPiJF6BBrBRZRMsQB2bGJOLddt1QLE JLlVx7PFAbrl8K7nTCO5bHQ5Mg9Z/LyJ/Uhc8qRrWX6ojaz3zF1PVluMyvA0 6uyk7o7nQaAOtKY+r+g3G08tXh/pJPZjomXlDakDIlldiRrGQsq1Bj58EPr9 b6xmVumMQXgjcWlCjD8MXXqxsAaZGOXw9kehByXfO21IDEM1hRiNkVHUDfnW eaUYqe0ydDmjyO8C31mdjwg9X8mligFiAnLVYUd2HG2Ngz+LTrVRy4avRbMW QRc/37Inanvovk6sbX/v0fL3y0kJR1fEtJRdLSgbxGNcfm/cnZs4RjsGmt8K qpb8w24PWEEnnkAym7HPL7QXlAR3TEV5rU4pQpyvSmB+lNHyX8F4+RYWGpEY 9BtVVYizB4/ZsWb0V1J3YnKOZ8gFch42tE1FnzGfJiuyFUszrmaA+Dm16sAz XaM8iThoM0r5nbACoIufx9uM2M7sylnCud0o0RvA9DdoPOO5q+rzY4S47Nt6 uBN6m1aExh73snr909DEaRkNvmSRbyWXR4CLQIIQP/vB2ca2lprf8K/znf20 IjEI1Rbi59vhCTNbzniOuEgOf8E7SB5jFFtXVQ0QUy0CxAypAXQEYxxJbDOl Muji56kLLjmeiRToDkdEUjoqulWqfJLJJHwD/EKcH/egfmewgob5/d41NQ4F SE6y0N+jaCEumMRhEHgE0orEoFRdiNHktBz1Ha7bpZ8V8l4XSDax1I81j80q k2de3QAx5XzTQLYeUHnQNS9ViVSFtfjLZ//mW3BkabgQYjyCZAaX9DQYtJZH Xd8+s9s3ToRL7ADkNAFqn1C9V3aBEFe7GrcUSJUuBV8in2gh5vQfFhTI0IrE sKi6EKNhcZpyrycSkWElMuG70akOTLEsSjkB4oPtqM/1x4VHPImmA1BEXKMg XiDRNSxaoGDxlzapCioj0O64hEl7XE4aDNL1SEriUyXJ+zdKpFbiqcgUdRpp sXmWVU4IYMYJqSvErBxyQVuoaCFGGq3kEOQ80YjEsFFAiAsXhqFsfRxzyGE5 gvZjnr7mZvuMUmdNOQFicnnwpI/imUTkxo2IdoekAJIR0RlSmxQs/paRQLFu PPiTJfc5I9ZufeUF7tZxuOI5I3NP2wtP0NuG2o0pdmPul8ihHcUMrsxawG6m VNi9KLYppUjwg8wBz08o3NLVEmL0KJWDLxInVogP77hPsaReWF8OjUgMGwWE +PmT8MRJ9s8oM8GESTdlHEHkXLC69snZpFKZTXICxKQHQNGqAUBLIH5d/QeI c8cJTvkJnroXdPYbye61z/Jlv/m8l0zcP3JCdjOxdf8Anf2kumMhveS2GDnz gPDMVvSTEXKQMtZp94luDc1PZmct+o3P7Rgd6EWHqGKtZ14b/9A7W2xUceEc H9WEmCOsfLmpYoWYOyVCUO6rNiSmACWEmMl2EKRreX+X8VXXzHx45o8TluOY +Q3v8hPFjioyAsS5+KCKoy0BdRFT+CMSPL2xPPuny+O/7G7NGwJGs/U3TmJH lpSQU8zAQhd/nfl0J7n/Y6az73m+IMbCEnPM37GaGpq63/YtPSa3rb3EzEWy XKXF6rwRDn91bbQTE9dJryhoBFD1IA6eSc5fsbUQA15t734yMxdZmPW7c8PK 600Dl4OrPLUgon/cdix47aLVRP+isdauc6MTjim391Ove+q9sdwawJq63rwe +RkVD44dqp4QM61BqyPEhUcOwQX7GpCYQpQQYnwvPNlYIMTlUzHxndWvr00M 95mbGrLrb+xKYHlLycQ/GQFi/GFgpKUi/YUAfYL6fyq3DLJvRPDygKkg2QLd 416cuCFozBlyzTX/UCvHeY4u/ux58mFm+17Y/wfSJDOSg4F6B+xOji22vx0j 3lhL9jNN7daxj2+JmUVeAjTIqI36gsxmLHjdMfpqV1YEs8poHR6/PB1cTAjt FygMPHXva2a8O6n7s3cepTkKQ7STmiaGm7Om6nAjs+qluom1WMUKceHnxbTm VlliOCghxGizVsEPWU0kB4ipcaKV6S8E6BH8R08PbQawsohlXDJ1x2fvxArf IC6iYpS5RF9uuQdykKhs4bx4UOPuaMR69pIRz4iZXj/Glx2BH8v/QvHUXf/Y aYyZPry77Cpw5smYSikTLQux1lBEiLnBAk0/NMkBYnoE/NHYNIBioO64ChTA 4pnENw7L8cK3pyStg75VQdqZq3vlNoBCE2BUb0WC+h5rvhls5nH02msmuqu1 0frhnJC2kHTONtbjjhGNqZHAOrXRqtcziCMudcOBzTKfByFGUUiItZvHIilA jGe273yePZoSn4cA8dEFXTzy+5fiW7cm2xsMRTCau14o7K9L/Z9hX5zXFZkz h4tU9CPzg8pkVCoFujs1Tob3aleJyWQh2umBGW0fL4nospj7bZITvjhh2ars 5wIRKy4ihZg1Z4pAz20ZVBNizXZ3FBwgxtPbDxOJtVg0PONz/baXyZ/RY29h Lk9XAlcdWuFqYEUfPgb0fZK7wvfvevtbkBeme8TpDUZXk6n8VQ/T2w9ikcC1 izYTklHLX4KRM4eLNH5HI4xSZvBVGrQ3Re0ODGWpsAHr/jAqttcxvurta8ra m48Kg4C8AzuqSkFrkQoLMUe7tBzu5EMZIeb+FO0KMSdALJbjjkgNHN2L/cpU RKurpQC0QKChx/OjjHWQWnJZaD9lx/DVYNm86IPU6ozTSqs29opnpYwLJ2dA 1Z1wfMdJRN6JODqoi6heMUSAtk3W8zZbBrYKC3NocCEbkTW87prqY7836hqJ 7K7XBr7xVeKEGH8ausC2/lVq5lkRQIgL4AaIRSKsqFzz4D/dPP+CgAQhRcBe OH/zJz0cbtBUGTkRKzy99FE3+fSx9t/6YsKqKpgtvajI5q9dyhxmBYjV7qGR A2mCpGvHY0l2V7xDyHCEE+cDEmuvyS22ubW1wDGtrjZxMsfKpy+KE+L9NW+/ iItrHGWEGGmSk0ebQswJEBsaRv33E8VYi0UjkYXQzWmirJKp67T54rpdDYBM UOE4MRYql5lSDqLJj9EgfJBrHjpd0ND8dqi4PVvGHEYDxGp3laRAO07rORWn OAep6IfdyGFXVguUYuE/tdPtuLVUZQv6xAkxp08U2mFVd0CMmAU3QCwo8wpp NlsbAWJAGhVxpR5sBt8iMl+FDHTjgG/cPE8MHi2V2LARtLeVGgvObAY8zm3F QF39gts16AV0XgaBvI6gxRJiVU+3Q+Yc5Sjr1hAlxGidIHmzms3+FYRqQqzN 14obIBbYk4H2k9RGgBiQCJqdIlWID+96zmT35zZ7UJpveH/dN1RXIkRCtoDG Ss2Xwbe+ddna6lr7xqZvV7lnskBYTfk0eXSXDN2/mgY741mRsyEW2WM1kG5X 2A667NlAlBBzOnmqf7NyUE2INVnjww0QC23NQWUO1EiAGJCIfCGmGuHK8lLm pgUVybZ6EnF0GrCX3DG9zPyqWSHGN2fszagOy40FcGNqZYfcKQZnUmEZb7kI IeY4vTVxszJQRIiL5Wqp3jy2CEUCxEJbc+R2DAgQH3FQIZaWJ5PbuGQe70nB 5YxCxsnpDLJnMSgJKzO2hoT4Wdx7lp0JKTOkxU0hxuTMoKwgeH4mCO+dihDi gnzsstmJukAJIeaG7DVSHFGAxAAxSS4/EALERxz5da9Po85OrGMqKut4nzOr C6I/T5ddv9CdB6+SddnaYf+2q4O9I8rNquIYntr5RefSEhDRLOmdFizEheJe dDylvlBCiNHUR/rJaXFOq+QA8XNqBjEEiI86mmlAQXZYYnUU3Jkda8boRoi6 oRaFmBnDx69NQi8Z99mMrEvmR1KqD56JT9tQ3eQ2Vs0hVIh3os4zaLK5afwv Wxq5V8koIcRcgdNIcQQb6QFiagYxBIiPPKgQqxt8IXsOM/0Tchlczf06C52w nFS1IsRc61VGpVsOcv9BaDzjuaslh+PuPQ9qwjZ0OOaLjI0UJMT0YB1eWdcX CggxV+A06UmQESDOvlt/910Yv7LwWFe7HFBxKpE1XRnIWEl+8k4uE7tkcbFm qclkLc5chrrXA7KkhBMgrhv2b2jsURX0a8V6HAucPqxChDi95LYgtj/WNTn3 SOSue5CKfxf4zOfzup1E+9yLowM2q7Wv9+y1ZRV9CNUXYq7AaTJdRE6AGABy oHusukJ8kPS/hlFWebkmHtqmFoWYu+XKHSz1ODSGtrbQ6C8a3/n+Sh8yR6z5 9c/i7E5YvEJc0A5U3NzPPJyDUA51m59UXYi5+YGSCySripwAMQDkQDtrqdwb mXyzT06En1AbtVZ6dIgCFeJa6azFqeVsnAjL+cXgm4ERVqlu8W4tWgBPLbpt iF1sPOeOPmYOV2WFuHAqN3Zy0CNBhYkrZVKPyd6IK9Fpu4l+air3A6m2EHPy A7Huj5bS2tNhOQHi2gSmL0kAFWKVPSqkJ4oQL3zDP6izqqU8lerdrSUK5aZ5 wL8u43JU/5a8DGvTHM6Dp+8HHS8zzmWsY8Qzn0iTtmgpIcZ3E/PX7V2MGYuZ /t298LNs9wi+F55spC4pO0wvk+oKcc4nhqJNc1hegLgmgelLUtCSBUdsa9nv cI/cqFtGAg81+N7xgR5scta9/imUm05nVMZOU2Dp6CNzaX9r6XOHrY2Z/Giy XXT7w7OX2UlsbWP+74khn1bmk4amzmHX/5WdRCYcJGtObpheNlUV4sw9rw31 xmPGQV88o8H9AALEHGD6khTQknl1R8HmNnys5b88bl2maeUgqwIppBXp45nt e2H/HxyjA71mo6HJbBmedN+IJpld6CCj8I5UKMRyytwyGwE7ssO2DvpWBVwr HQ9MdDc1mGwfLWzxrFA8/SDy5Z8/+3IxWfGnlLVzI1+4Jwbam4RsM/WtvaNO 72yFJDj3BYghztTl5YbpZVNFIS5YJJJHbSoAJ0CsybxuQPscRJ35GJjKThWy GW+92dymeXdlSdDG/vkMcOFkfo5cf7OL2Oebu0Y+8M7MRRZm/VdGu7IaNHh9 KbWfWv4T4fDETl+YVdBdQJZ4M8ixxXa/c5zIGxCYsd+7IqBIPBeqIOF1MmyG J3LzqWX6z8t+n/Tm/aW/BqbdzjEre3pxU9fwpNP9p0Doh7uPqhDOZLpVqx0g fl49IcYzcd+gET3qnBjxxzXqXeQGiFUeHwbolqR/AKvsqyQV5tXuckbVTBuT Dro7ifMv4JnErSkreSYy9k/NrSM7z0Hq3v8MN9eb3vrwA0uTCkemwuYbki3i 1JLLwuywQs0c1PvH52RgypMbLd77VT+riBuDKBO05ksDXciqI8T4zryjAz32 NXZPRbQxz6UInAAxdtyxoLsEU0ATECYxvTuqG9jOHwn0e6pETjXYgD8p9I9l Vfir8XZy/zGecy894Ww89KBJioYez48Kbk4FhSTSqjPw9NJHyCxj82+CAlsV It6/xslwuU6AqFTJC2QLRFEhRgLEWui3XHkhxjPJ+StojrqhoX38q4QWQ8M5 uAHiskMzAaAcaFhT1S6X1LamzXmjgkD8/CKch3jymws5FTacOB8okSr+7Adn W/6lL5yOUW3YrZKl7DZsS8douRIVauYg3j9WB9QiICnrykiVkkKM+CU00W+5 wkJ8kIr57O2oLdzcPTmjYRV+XixAPKjm/gnoG7SBoaqlxNS2pt9BJLmeJCLV iunghDWfv1m6QuNJeIJugqFCxmw+9kqq3EiA02SqHOxqXHFmDuL94/MDoC50 i3dNgS1cSSFmvO7aOKkWjleW/szx1L3g5SETa9Z1x4hXIxPGS8M6G5Po15UH qA/q0FMkslYC6oit48WMaKXQszHS07j82GVUZdTImMU3bp7PzyMWMyE6q8Ke wZP0nxTrbES9f3y90BmpUiiXiWMUVq8AEN+LOGi/ldL+kGIc7ITeOcbWYb7A AZdMai36pdvexcpCx5q63/YtPa6EYVnVAoS9df8bhf3OlDn+AbUKcrhVbw5I bsvVxmlfGmjKtLDjBL45Y6fVjaeBCZO6rFbGbCY5O9lOb5l1lv++neL9Fofp +IzDkg98tFinbol0NiLePx5vMypVyjS72I25X2IXMmHN9hlRvgLBcALE+G5i 8SuPw36uqxUz1Ld2vWp3Ts/GNqviGMXT2w/Jzl6JB6vLf4uEZ3yu0a4iNVxN 3ePe2cjyaqIMq8uRhXDwfz2uS2/0mgov0dRjv043S5FJZQsQmCcQj0UjC6Ev rn/wSzP3AWBttvc8N0PfRiKLsbX8LW9sV+SOgJoHVRDV+rPtRBwdCuXYVAnG IhOYPInu5McG/Q/KbAgHyy7a2FavpRL+ZMl9jjbLMaP196G1p6W+M55+ME/t hCTGlx3B+6JLepAAMV9gFJEqCYVjZWA2YYK12GIkMhf83OMc6S7WQKjeZH3n 6vTN0EKErUiPU3LCnawA8afxjQXPSAeGmXrfcvmCpMS4RghdwE4Our+tfAF1 1XslYU3tQ45P51YqU3Nd8QKE7NKyyOlQcdR7bQFCQcPEKnUspwIuqmaLyQK1 yIRVl+zOTRzLO3vL9wFAJqSr21IJ31m5Mdmdl9ecCXDr9mri4aPUPtkSeXXp 1hfXnecRi6m5y/7HSFLKokICxLyuEiTnsLLRjcrIkLyFjXjdTedGzpkajBZH YAUdzPgsOfufpL9CTCKcQKoixFkr3jo89r7bF4zcTVau6LoaBQhPo85OGXd6 7CXvPTCJASEcxtyn6GVT3jSr7hfQSWPQYiApu8cuhXd5HyG+G77ERNl4tONR cLRV2CcV4DBNdFLu4d+bCZPNHZTuL0UDxHytPBjXfaVrOdUXYvSMZyDi7GP+ FW5cIGs195MKg51xRlUPIquD9gsQAKAch3fcp+ikTBXCxLRJrnrjPskwDxA7 NjEnIJMJHQ/Bpx17C47jlIEpc/JR5cjK8eLXPjeVCcNgNPcOjDpIQ0dudykk QMznB0Bc97XX7Bd1WJVpR7a/5u2nXmGRae01gj4KEACgDKq2C6Cb6Oo3mII4 UTsdESGzHtAhszy1Toi/ovZUpjRo/0CeE1om4RukXeE1Nw0WTZg3XQyV7rbN 2O5HUV90U4AAAGXA494+TJAuVP5HU82EFW4YVUGQY0zHlWUB/ZPZXWrLa0dN q0xpkLMN7zgSxHVfe9NgkQBxm/OHMpkEiBNd5dniyqOrAgQAKA3+MDDSooZr Kz8BSrdzA5nRfk19XmFHbDTy2HAhVDL7+DlLZViChGeSd+aXk3oNqvOABoj5 ToZIm1a2U2Xv0fL3y5LyxLQD0q6tfMI8OkmtijMvNIneChAAoCTIMO66Id96 5ca38bAdnjCTdk9Fq06UA3luwqfroi2+y+dfIbYzO3xPhFDFdLTWF2j/QB4/ AGI7swWIeHSNOq5MJxCeMI98UvXZ4gqjxwIEAChFPvHS0NjjXlZIifNCo34+ sCTwjaC9LaeTHa7bgh/ams9Km8Rlm/Tia14L9Tl237NaUJnSoK57nhNayfFM pEDrPS0WKcviCWginpMjlUug4wIEACgKYtyd+F2EvwanEj+SNmc0kw8sDmYg gvG8PyH88IJkTZcRYnw7OtVLn/VZ3U7IDC7dzovkgzVgrnz2YHrR1d1IfZLl 5Cdj64JKyTSM8IAmK+tAz41xRKP3AgQA4MDYd839vnj1t7C8OaPTM/yTiKNT kg8BfxadaqPMF0ekeJPevcTMxXxXSbZhSI4mbJuKPtOzypSkYMBcv3etxKPF NxccPUzXI7TZL/7AP3hcWCmZdkECmjyBcjzhs+UfhBbmJCoHFCAAtQeeiU/b 6hQziulQIE9kR5ugz+rd8I7IeBO+5h/KecmKGrY5FW48bbWYuOYekR7WrFz4 QGkKBsy1jASKNQTOtdzE2q2vvMD1LRyueM5gAkvJNAsyz4tnjAiaqaWNOYmK AQUIQG2Sr8irfqRY1wFixnvQPh5Kit/58My6f4SouSjs0oCn4yHXkAlrsV2Z T+4uu3sa2VtHOu4bNgpPDNMdrK2VVJb2izMJ1rZJzM5z9hux0+MzPz3LRwfy LoJM3D9ygqeMRQcgzRV5KrjQo4vg1P3aAAoQgFplP+bpI2vejcO+eBWnA9Oh wEq3JVSCg53wu+TeV2ca/8uWxI0vPw8dM1omPpmZI0bbXH3HaqrHTEOuUJxs TYWnY9dtRlKvrc6b4b8Grp431xECVKv7BhogrjOf7iTbVmOms+95viCGKVCP qAGZl5f34bdYnTfC4a+ujXZixiHviq7d0llSEYeZa+wXAU0bruETWlGgAAGo WfBM3DdIbv5lm8XJJO9PEzYlQUvgO/OODiKNBut4f0GsU7rgUukHkRvuieE+ c1ZxqKmp37OHweGZreXAlXFi5h3W2v3aJU94vVZVmB0gPj4ceMiaKmvAmsy9 A3andza2zRoztL8d+/raxLCFmDzbbh37+FbpyVD6gRHisl3YD3dCb9NRUgXr HbQCFCAANUwmGRwno5Otg77V6mz7dLqj7nJL8jlCdVb332szb1k9kFbAPIHR mieT8A3wCzFTdViBY6EOgQIEoKbBn9y+8gphmxgHPLFqrNJcjSTWPDarq1LP /BHFbA+sHWWdqArI/BFdZg5UEmbuUulaG6TkEOtxLBzBaQ9QgADUOpmfZsZP Ex7q9vfmSneblwpZd6CzqW34/oq3n3Dat9jcixUe/AqwynB4WisfCfLB3xLd PPBUZIoqo26xeZarmM+hZaAAAah5MmsBu5nIFLJ9vMSdgirv0o+iX372dUw/ cpYfOw4qXCXQMhz9ZQ5UAbqLctH6PurdNBz5BQkFCMARgLKLq6HFegJPRa9Y jEd+06sqOxFHB6XDusscqBLpJTex6rDmEf86k5+GZ7ain4x0kBrdaffdOfIL EgoQgCNAZn1uqt9oaGh3zB/RnIbD+76zLbDpVRckQFw36K9aur6+wDPJ+Su2 luzRxGR7l5CYhVm/e6yXEJR608Dl4OoOPKccUIAAHAH2ktH/+yy0elTjUMno F1/cgk2vmiAB4iPWlYKXzGYseN0x+mpXa70Ba+2yDo9fng4uJtLwjAAAAIDK wTRJwl7xrOitxQsAAAAA6Bx861uXra2utW9s+jb4/wEAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAkMD/ Axr+BGc= "], {{0, 101}, {643, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->Automatic, ImageSizeRaw->{643, 101}, PlotRange->{{0, 643}, {0, 101}}]], "Input",ExpressionUUID->"ffd69bb7-bb5f-4613-8a02-80f80419f73b"]], \ "Subsection", CellChangeTimes->{ 3.746790794639846*^9},ExpressionUUID->"b5a3c00d-e1be-4ad4-9a12-\ 654b0d6734d3"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{"F", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "=", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "ii", "]"}], "[", "bb", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], " ", ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.440895870234375*^9, 3.440895891640625*^9}, { 3.440896510390625*^9, 3.44089655715625*^9}, {3.442671255203125*^9, 3.44267125603125*^9}, {3.44267137046875*^9, 3.4426713811875*^9}, 3.44267142365625*^9, {3.442712951171875*^9, 3.442712951859375*^9}, { 3.44296369284375*^9, 3.442963696734375*^9}, 3.44296768475*^9, { 3.443374517453125*^9, 3.44337452140625*^9}, 3.443397833125*^9, { 3.45504301590625*^9, 3.455043130828125*^9}, {3.4550527984375*^9, 3.455052814484375*^9}, {3.5067782137090287`*^9, 3.506778214466072*^9}, { 3.506779064525693*^9, 3.506779068082896*^9}, {3.506779121543954*^9, 3.506779124996152*^9}, {3.511641116247309*^9, 3.511641117295369*^9}, { 3.511641238366294*^9, 3.5116412632227154`*^9}, {3.519945652604292*^9, 3.519945656025487*^9}, 3.5206470576621337`*^9, {3.536753629485641*^9, 3.5367536355419874`*^9}, {3.5367542796588287`*^9, 3.536754394482396*^9}, { 3.5451480077289762`*^9, 3.5451480136813164`*^9}, {3.5451480836983213`*^9, 3.5451481475869756`*^9}, {3.5451482301356974`*^9, 3.545148230279705*^9}, { 3.54514835065559*^9, 3.545148351119617*^9}, {3.5517190084457397`*^9, 3.5517190462919044`*^9}, {3.5517253476257124`*^9, 3.551725350072852*^9}, { 3.552315878168127*^9, 3.552315880549264*^9}, {3.5594364063879995`*^9, 3.559436470154647*^9}, 3.559498758930711*^9, {3.7095734439172153`*^9, 3.7095734562269197`*^9}, {3.7095736865240917`*^9, 3.7095736900622945`*^9}, {3.710786317142681*^9, 3.7107863175327034`*^9}, { 3.71171717351058*^9, 3.711717180665989*^9}, {3.711717560179696*^9, 3.7117175669990864`*^9}, {3.7118545714168224`*^9, 3.711854584457568*^9}, { 3.7119033420472937`*^9, 3.7119033423323107`*^9}, 3.7119033814345465`*^9, 3.7120954622856226`*^9, {3.712095557947094*^9, 3.7120955854366665`*^9}, { 3.737162821795579*^9, 3.737162839969626*^9}, {3.73780794558059*^9, 3.7378079860629053`*^9}, 3.7379793854587083`*^9, {3.7385815933232975`*^9, 3.7385816487654686`*^9}, {3.738581823928488*^9, 3.7385818265056353`*^9}, { 3.746791040438759*^9, 3.746791071688319*^9}, {3.746791171144439*^9, 3.746791205624802*^9}, {3.746791269817828*^9, 3.746791296817684*^9}, 3.7468070324753675`*^9, {3.7468420788949604`*^9, 3.746842079908823*^9}, { 3.7468421495908566`*^9, 3.7468421519597244`*^9}}, CellLabel->"In[69]:=",ExpressionUUID->"8485138e-3ba8-47c5-afb3-461564a27dd3"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "2", "]"}], "[", RowBox[{"F", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.7467913000660734`*^9, 3.74679130814038*^9}, 3.746807032959241*^9}, CellLabel->"In[70]:=",ExpressionUUID->"4a6a16ab-da17-4463-a687-c793672e86bb"], Cell[BoxData[ RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output", CellChangeTimes->{3.760467914619703*^9, 3.7604682413505764`*^9, 3.76047033687303*^9}, CellLabel->"Out[70]=",ExpressionUUID->"78b2fb25-028a-435b-aa3e-842131f43943"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnV9sE2f6761zbs7FXJxc5iJSjixLvkBCKLJ0QKhKLoJAlhK0VWSlRZaD 4DicPWzC9hBvV02oSsKq9WpbRwumWqwtFj/h7A+LLqYnbjduG7OKaeNujUjE mpIgp8SUhCREJnKIk+F4xn/mnfGf8fyfcZ6PtKvd1rHnnXnmfb/v8z5//sfx vl/9r/+i0+ne+W/Z//pVj6Ptt7/teffN/579P12/eeeU/TcnTxz5zf89aT/5 2/95/L9m/+H/zv7nUvZ/EP/7NQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGiKz Ohf58mbw+0RqW+lLAQAAAAAAAAA2Mj9PDB3BdAQNb/kSO0pfDwAAAAAAAABU A9+IXNijK9DwTnAF3LAAAAAAAACAmtleCb7TkNevmPHM+DNc6StSOzvp5L2v A1+E4ysZpS8FAAAAAACE7VTi++BNv9/ncTmznB+w26zW7q7jV2dfgb6pO9L/ 9js69ZjJMvx5HOJgWdhejXzcoSdjLrA33TMvlb4eAAB2DyJtnyHxAahnFgN2 o66UQ544BEkCu5mdh96jzYX3QW/1Lyh9QQAA8ALfSN77xu9xDtjfNrc0km90 Y4v5bfuA0xO4M5vcUJ+zRqTt825PfHgeHjSb+z++Nn4nFk8kk89TGcajxjOp 58mFeCwy4b/ygfXQcHh9190jjUM+QYK52JjDVAiRPOi+Dxs2YFezfd99sBBz 0XDKv7il9AUBAMCVrdWZW07bAQwzdZ11esbGw9NRgunJgOcDq4lUs9gBm/Nm bGlT6UtFEGf7DIkPC36rvoyDrizY4d+NP4ZZXrPgm5GRwjuzfzC8ovT1AICy bCZDf7S06Fu6hq5Ff4E4WADQGhuJ8ffbMGPH0Fi0nKMVT8VvDrTm9YvptHfm hVqcseJsnyHxoVYFi5lOuacWYZLXMum4p2sXb9YAAACAumF7deqjNqzVcXs+ XVm54avfDpkKKs/Q50+kZbzCKoi0fd7tiQ81KFjCA39rZhWcrxoHn/d1F551 p3d+123WAAAAgHohfxCP6dvsI/6ZVMUVLRVzmYtqxuiYWIG1r34gFWzraafT Ye9qpWlZfaulb8QTuDu3Btq1LlgJ9uV3ohAECwAAAGgYfN7bSemVg4Ph5xU+ uLMeerex+MHGd0OQy1M/kArW6k/m/28mtfw0mUw+XavilQe0CP4yfK4p/w63 DkfWlL4eQBS21uKTPte7J80tGNZitvYPX/1mfjeeJQEAsLvIRJ2oz03vjFY6 i6d/0u5PQjhk3cBQsEC9ggTBwia0PsgsTrlPmTCjeeCSPzQ1Hb7ptO4jzsna zk8k1ZR1CwCA9sAzyX+67Qcb7IElpS+lLPizQG9DUZfu6Q08qeB2Q1OYa1Cw 2zHXvj0dQzd3ZVhpKSo3A1Cw3NGiheMJv82QjwSy+ZPgYdc6uTKAhhOXp4tZ APir2OgB8gkbTt2CRwwAAF+2UzOf2QyYDjtybvKpWueSzeTkxd42g05/qHf0 2ySzEGiRrQVfDxJu4J5lWbdTca/doMP0HR+GdrsrQP1mAAqWBxq08PXQQD4S qPGQ5wF4YLUNvjw1YsYMdm88RfvnSb81v0vphZOycuCZtXjIcy4XdNFx+sLV rx9VTgABgN0JpVuGJn7W/jyyHBpoKejXhgOuH1+x/gX+YsZz0rDbz7M0YQag YHmhMQvHN6POvflXuN0ZXVf6egAhbK+Gz5sw88jUMrP7CJXa0OqMpsr/9e5l OxX3O9qaDZbh6xNT099e6TViOl1Tu/PuuupFLJ7J8Dnv2c5U9EsBQHkKukXX 0uufV6tu4QC+Euwv5nEZzgSStWWm57wEYi7xomyfZUt80IoZ1LeCTSeCwx36 JpPt0+lVlqeMp59Ev/z85pf3lmqc9MW3cOkoCYIlevB95XU6iBeB6L53wuEa mxTYnZlJ9oWdj06MuUcG6GUuDK1dPX1Df742DmUueLHxvXN/k2no21WmnaLJ el2euFxlD/H02tOkaCynJJot8aVvzrUZ24a+Kpw2vogMHyT91QJaOkoAnl55 PPPP4Jjnk8E+G6M+DPmqDjg9/q/vJdPVD1LwTPKroTY9VB0BuIBnFgP95M6u beROyQyjRTbinrew/OvDUYxl5v29hPMWa/94el3gayTG9lm+xAcNmUGpgs2k lhfiMaItWyy+INl6IgdIpPfB4ciLqp9diQy3k5802gOLtf6AmBYuJbQg2BuJ Z9Pe/naiB9977uyLQHTfc/e3Elr8YK/nu1oFfDV20sm7vmGbCUPW3uyG8dhb hY7VxX94wOb0l+2lojrw7cy24MsU4Uu2Fv2nGsr3cNmYdRdcsE3nwi/luqmM lGBxILc5gx97/N/EFtZFmIPwxeCZ/Q3d1x5tFW9LKupszclCNcTV4Oml+NRN 99DJNj1W/dbkX52W7sFrdyvpWDx1z2PLrm57+4K/yDwQQLvg63ed7cQmuMHy 13/XQzmi7dT9v1jyGmCfzXOPq8+z0A0BM/T6EwJWRhG2zzImPmjKDIoKNufi HrK2GugTpalrYPRm9Inax1EGtOEam0uKChNttvge1z5WsSxcWqjRNZhO9p80 NRkszuAcuvl7tTT5hzZi5TRYLscERQZmnseunyX0MFloethz687MfBItzpZJ Lc3HQr5P+s3Ggo0ddty4v6rau5dDHJ0mvJBL9oU17nd+v1H6b/CfvJ15F2xD X1C+nsGSKFiUxpau31++/QOb17EK+Eb0j/uxtzxx5Lbhj32WZvL7sX2umHL7 z9zE+14XY3OXHXXHrwc/8YwFw9PRe/GFZDL5ZH72X9Ph8TGP82xXbneI6c2/ 98WeM00qt9gRH3jbO6/y4yFANZC7PMJqDKd8c2UmGI2RWYlPjFoN5Hugf3P4 9kNe69r2+vTH7bmV0TPD81hL+PZZzsQHjZkBqWCP/WUy6LQYGvTmgcuBSPzn VVJwZFILseClU+RcadRY6j3BSnhwf341aB6JbFYxX/T49bArxulIUQwLlxY0 CFZHnAsMBuZKHyWe8PeQkhI76orxDZQtLJ1Y65krofhadVGa+SXqfacVK1wV tT9VJWpRsDvpteW1slqO6ljR1On9Sb5bSUUREBIrGpnwXxnsMpQ6EvUdQ77J GKnFKjI/G52OhP7udV8oiDQKzHTik/EHLEZV/gqfBHr3NPQG0KbhyAGNUo7K nHZ1mGlOV1KuZyfh5ao+Azy9PPvVJftBcqdIz7MohOgTsKddA1pnMxm5+h7x smS3M+/547yj39MJfx9pNoZub1yT0V3pJ9Hg537/f3rdf/po8LQl54vTd/SP fh5bErCPw1ciI4fICajTOc2jnZfw7bOciQ+aM4NCV1msvf96rJwfbDM5cZ70 zmEG22czGhKx2/fdBws9qFhcUsjxK49aqUItXGqQINjsQ+zxzW2VvUaq5Ehj f5DPMPLytYJCLs/Wasxjy6sddYtYerTnQvxeNDoVuuV19XeUE7aNJusHV8bG w9PR6Ow8otCep6QaoJBdmOhsr4c/2MO4JSy7yFKIHfSXJQLPZL8cXuAWIUGK 1ZaB0DL65c8CxQ51fYFnssdKZVbi45/YTI30obkCnE678BezPvK8gxKxxema fKMGwyoK8AXEZ3t16qM25P3Ajnrn+JxU4Ftzvh5yHsY6PfHyC4Ta2UkE3rVZ cxwj8jvIG9Jy9PSwJxB5xGfnW6Bw0sorXFD49lm+xActmkFOwbY6ggsVJ/Gi QtNhxv7Aomo1Bh1ke8LmkkLCRHUW3wKPXZYQC5cadHSm8+HKGW2Ul7HhneAK 11FsPPL2NPBRoZml0JApf32q9WNXBl+LjXbRvYWKvCbCdmGiQzmEC/B6s0hH 5YNx59u02CZDz+jUYs2ik4wmYpg0Pu/rLhg7fXGRnnyFcFR36DvOjfGM1NpM Bt8jXh/iyC+FRP3VtjgCmmbnofdoM+0tq9KYqgqFhI7s5tcZrZ4woh3w9HJ8 6sbIW4bcK2Z+91r0F747VTL7gNQS7a4fOJ2sC94+y5j4oEkzWI+5jh0d/b56 Qhy+6O/J3/GWUwFeC5HcoEGwne7ZqkaHhInyTd3lb+GSg4yueik85Jyc65EE vvXoWneDjh7qU/tfL4WH2gqLucU9o7EyUCXxBXqrf0Hui0CCYFXRsaI06EJQ wZPN5NRFKxqZgB0ZDNQa2Iavxe9EF9Cd0U7ccyj/RVVa+UgA/jIR+pOFNpCD vZ4pASG+1B6q4c0TJ0zotgGCYOudkrcM6/YlOFtz5lnQkQsgq8dOKOipxD7b 5bs8U5XT99wdzeRNoscDsCB8+yxb4kNdmwHqx9v/x6gGcseRIFgWlxQaJrp/ MMzXEHhauOQQDcRqGt3OeujdwqEml4IMr4l9ZshxgNjntr5ptb87evsB55RP aouka7CNqTcnrhz4gs9CW0ZYC19IAOXzVEVmvdgK9nWhHE0T9YX862ynYi5z YXI4y/24gS+ZX6Yvn6A7k096SvOweECcMzJc3hAEuwtg+GD5hbFRxqMhzxsn UjNuS2HT2NwxGuWV0lV0UukaevyLNX+D4O2zXIkPdW4GiL9ax3CJqxIkCJbN JYWEiWKnA0u8J32eFi4xm/PetwvSsHpsAPJJjl5EPOHrpp2jHxwMP+d4nWjb FK29QcWE0DzydxNAA6LU0bFCfAX7GimyXVyyefU6RPRe40BInpuFpx4GBo/Q IwdE7OhHTT5FIAh2F7Cdmv2bgyjq0tjSNcTrlFydy5bI0Joa6NqGwkt8BkrN G4dGIrwTXsTaPoub+FD3ZpBJ+u1FC5Bt2ucNEgTL6pL6JdhXcMEe8sSFeK/E sXBxQUbX6Z2vdk2ohuQUQYdK3xw8jtFRD7D8oYnCUF7BqiwI9rVECvZ1Pi0X /VrOJV/wjciFQpaZTJvxQnXWIhJkxW5MDe9Bt5EQBAvUALVm8XA7aAh0deOd prQ55z2WTxDjmTEn4vZZ1Dl/F5gBbUVS+/kUGgTLdqT7MjxYiB/c65wW5hMR w8LFhRodW4gv4rXmuKcrlrajJNxwZI3rldLO4hVJD+eN4gpWbUGwr6VTsIQ/ ZdrZSeuV0fHpDIckqOfhwYP5v9xzISJ9QJQc8pVgLTKMvoYQBAuwkl0oz+b9 BtoIDuQNVWmHxOyK8ZmikWg3fgeF4m2fxZzzd4UZ0FYkPrnqcoIEwbJd6vas u7CeieC1EGzhIoOMjuV9wZN+W1EWcNvTodW6dFULdlWFZmHyepA2Yp5ThTos JLa+9y/57tTab5q3gsU3ktHP3UN9tN+22n7tnamScFcGtQXBvpZSwSKlPwpw KV1IJTZie4anJA9YzywEHaiwlK4JNe0UQ/VOBkAFUGG0qpk3uED0X579MfZw qYb9K74ZGWmm3kK+gaNkaaz8VMun5qR422cR53yNmgH+In7zD7ZWo77tlHP8 EWsJI/qKJLwwu5Sg7kSWo/NM0t9bEG5ieC2EWri4bC8FTudHx9Kzg7b8cd3T 4al71/oPE+ZBdIm9zbfzRaE0cW6KkTOKb+dJ+M+/Y3ajq11s8FOw+NPwhTeZ tWSxlo7T738afsJlGlFfEOxraRVsmbDP8tVmylwWVceG4YfB1+fvRmvds9RI ibtYh3WNxtakqghMhU4JP04C6p5iT1KdSNVEZYXs05qb9hpNvdfjbCqWMSHx qzpGWyix474EN0+DeNtnEed8rZrBzpz3aHFureFZ0AxAUMaT5KAzOVvDCyQ8 RhyvhTALF5mXMdfh/OhYbgTitdbpu31VVb9U0BSs0JhkHmRW4rfOtTFKu7aP xlh3ynwUbLF0CfVTBsufQgkeRf2QgCj1HI5Iq2Cza8HkoBF9VA37R6aqlwQk QDaYugOjsVfUH5BlG8UtIrG5GDhLf8QSt7mhQoa0kGwLKMyLqLOwOsg/2QoF TS3X1XJmR5+QeJfNRJ2fzUe9D7ncNhG3zyIGwWrUDNBI0VrWXFTzs8ohZUGH xjaTE6WmCm1NaU6/zeXZH2b5taLjb+Gig0SoVtcPaBqI8b2QMiqIFmyvkBgr 9tQrUoOe56FgX/3oOkDPHTeeDSzysjckIIrtxEFGpFawzLDPmjaMSNEMxrtJ Li5imhzV3YayaH7VkmuneM9FbJIO1CvUnC9AzikGkqFMztJsucMMwSMgSg3d BXOSfCJun0UMgtWsGdDjWlnP4GiB0Oqu04K6E1kCAxBvLb0CKhGH0MwzJoS3 hYsPpWCrHprsrIffLziLmjs9swp1Q6b7YHU9vgUlLqS0tCbrQ+SsYNESxIJv O7VjUtMUJLmCRXMicjS2u+9XvYfIKsaQu3jC37PHODgpWgTGVtzbTd8JyVAm uhg9pSVfCqAI6OujmtAjDtDTh7E33TPVJQndZysoUxitvcPh2F3M7bNoQbAa NgMycwfTt3bZHaM3Y6yPE5WFfDLN5QMNgmWJdkD3ZTRTJJUt7wfK08IlgKqB Vk3BEst3XsAq2hWXoWDlr0mVA6nXl4ctQJqzgmXkvgkJOEEPRwT04xAdyRUs GlRWgCU5Aln1aM5qfCM22o6JmHqZ67CM0lC+q4645O85BMECrCBHGCqpv8eN otelsaXLcTn8hEXA7DzwHGoU62VEWhLUHnEn4vZZxCBYLZsBqVtqrV6LnDKr vGUS4lZleyjFLlo6RlthMr1LQKogLwuXAsrX1zwcqbCo4RvRP+Y3J/xauogF /thnadZRKKVg6TndBGyxKJwVLOMITIjTTJVBsK9lUbBMg9Gxba6pjQNtQ0f4 S41Gx4RYpo8nb52ixw/UnGgmjPw9hyBYgA0OHX/Uytasp7O5NpcLssZlMTqC Aks1bkaGCxNPzaXLRdw+izfna9sMcrduf38gwfY40wmfPT9OzvXDZYYR7lL5 JJqRJmzxLRQfHxEGsFdQqiAfC5eG4tajQoQknoqO5mX8Ppt3VjJ/Mb6d2eaW LKqYgkU3IDmaLb7H1S6eq4KlOQQI+Je2VmcQ7GtZFOzrF5Hhg/TfaDjg+rGy L5vKuqU2dJmfJ4aONLSNTC6JFDiKL4WH2hhXJYcD9nXBDiEItv7BMxlBe1XE z6Om0CNu4On4NZuhwWC9OFW1YgyyxpF9nGdeCJ4mFwP2Qthdra5L8bbP4s35 mjcDfC022oU1vD36fZVudEgnR349HGUFjXYgVFl/sNwF4y9mPCcNWJv12Bul yytZpUHgkSIPC5eIjbjnLeLhlT2npopV7rN57vHqFl2BzPpC7Bu/xzlg72rV UxsFrOXo6aGLvsn4Wqkbn4rtqU0HSgdTkbKVXuGqYEvUHd/SLmoNgn0tj4Kl NQrMU92bXdy3Gk64J+5GJv5j2LIXaz3rmxW+qOV/YCvuodfPkssB+7pghxAE W69kVuKhq8P2Q/kXS99mHfSE4ivcpw4uyc4ig2dSz5OcWE5VEydxv6OtSWd4 a+TG1Nxa6Vu2k174dtSa7yci3puOhoF1umdr2Z6Kt30Wbc6Xygzw9LPZyb9d Gvp1R0vRUWNotf7ORSz8vGbCKg6wzJNJ59sG7KD90j/KfHn2lRl3Wkj5iplO X40957fOyjciWmMp0mhLSnriqUchV48BOzI08fOrYgOCYm5gJhHo3y+4NTAP C5eM9IzHYsjeCWN/YJHSjXhmNXa9v518tIcd/gciyVc8s5adZc9bTYUHjbWY Tw4MO0c9vhs+z+hHgzkbwPTmdxldvEs8n8opWKoqUR6RFSxTq/OOxkd6qfDt MiMVcihYRpXynL2xFfrD1+e/vjrc192qb8qa5uDl4OyqiPKypEKCnHWhM6vz sR/uLYi5EwVUAp667yOma0zfdnLo0tXrVz7Iz7HkQsZxXUYPL6Tu3ZZJLcRC votDfVZzCyNsvXYwfYczXEHmZRf0rz0Osz57b0xdZy+4vf5g+LtodDoS+vtV 56m2nP9E3zng+Ua8as9opBnbCR11oaJsn0VMfJDADLKza+iS3VT5QevfHL79 kNsMhS8ETrVUC3Io/qj+kH3oz95boUg0Go2Ebnk/7jeTjkT94T53OX2rvhGh QbANrUcO63Pa+/hH3i/C09lBTfiJF79J3/G+fyanxjeTE+fJEqD7rK7bkchX VwcOYyJESvCycKnAM0t3LxN9LRtNtg+vT0xFpycDnsEuYmPSaLJfCs2z19Gs 6WeKMwkB+VuTD5bTJdKMaEQ1NtRhpM+9pdGnyiXBcfWRclWwzM9XLQWDv4gH /tTbZtSbfz/GmOsyca8lf6GC91xiI4eCRVvO1XzzpYSsisO8HlXnvQJaIN+Y GDvsuHF/Ne+FQPMXLO4ZLjaPHkPTEkDEvejsPO932g4wTiT4Qi8WVPpr6aV4 5P9dc18YsFu7cr1psBbzsd6BEbcvFFuo4sflBepv4VCaSYTts3hBsGKbAZ56 4HccruFxczrwzdk5e62enJvUPUKe+hK/Ymjt6ukbuijk6cs+ItQrvrcv+DSz 9igS+Ct5kk04IcnCC66SI+yttThhVZbsZ4hzmc/uLIjwSvO0cOkgTqCuOQdO EBvh7Ktt7Ru6NBa6l+TQT74am0tRb39r4XUwvO0M/lT9geKph4HBIxg19zIq VCvaNUNFCnYnFfmDqXhL7IEl5CqpnggNVs+/1eSAfS2Tgi2N96ihMqR0vEr4 jjOnO4G9IwEAXwye2V/G14rU4uCWbYGeMUkSc4Jnlqa9uQM+0VDZGRN6jiZn AoKIiQ9imgGeSX7jtOwteWqVaOn1z9ckK3OFkhSoUa/IiBCvuOLpDEpZuPxk nseunjYVmteyxtUXyQXYY52eOFHmHYkczsE/NlQwJeqroS9Y7bRGQgVLS1ZC Er7wTMLfm094ryUZU3YUU7DKxQOXJOgJ7h0JAFvJwBmDzmDxzDBPpJYC9qJG 5JJtgZ5U0jfForCZnLpoNYioXjF9q21o7L66gmPQ+a15JLIp18WJl/ggohng q3dG2ppKnxzhCDW/weycnv83ff4E6xlrzl3JWuhbfJQZEbqCKJ7OoJSFywwZ i16YrTCD7bMZDrFGuad5cDD8vDT0VBLBUyNc1RdHBYsv+Cy0z1eJokf6Ahvs 3njua7dWY1d7C1FwgwGOQTjyoJiCVWzrg1QsL6KmCr0q4uVc8IpTLVwJzil/ RFYJfGXCYcSwjk9nSk7L6IkD9to9NuirKfLLgr+Y8Ra9GTmM5v5PfBN3Z+eT a0REWSa1vBCP/uP6R8fpH9t/JqiuMCg20OrlHG6+MMRMfBDNDLYe+nr2IfNv R7/LF4rNL1Fn9zvptSfxaPDqeRvy0DH2Cgw5d6VsmbBFFBoR2aMh91XVi+rI gyIWLi80+arDOi7GuIbK4/O+bn1DX3CZGdCIKdq4mNFbQWQFWyLuqny+2JzU 2DF8Y4pIT/Bfyb81hra+y2LFMIuPPAq29FcUU7BkEWnGpWiuSLg8lHtqCqLg aQ8bm3PeY5jugCNUGiPAsLfalxi0gkdTp/cn0SaQXIUf6pKIJIuJiqUSsttw jw111e7/Y1RL8TZoD3RRY+9lSnwQywxSM25L4QC2ve9KqGrC1HZqfsJVKA2h w45556oc1+YcXHKVIqRQakRoKpAasicks3CVQJevtbnQSyH7lzW94x7tpq8q ylZlR58dSXU9zU3BosmkOar3z91JJ6M3R9/NBagT2Ql2h9MTiMytqnXZJdl1 CpZRx4+cz7RXJFwW8J/Hz7whapCkALA3zoz/rNKnlOtw3X55dqs0aRnpXa7j dMyHZhyIGDS+uRg4i8SB7bOO3kmydD7aXp/+GAmW3dMbeKLSB1EGtK2tiKuV bIkPopgBnp75tCNXabXt9/54bUUVKOVQVZ0q44BVcETrUWd7/oGowvUhkYWr hI053ylku83/DIjUIMaWFkYMQXVRJzUlaWXVUzW5KditBV8Phy/XKPIoWKR1 SBFlFGxJHT/VVegFNEaucWr5ro6MqhdcWqKgC5NYUS7bqdjFDkqL1pyajT8N 9lPHtQp3/+EG2jtexI2AbIkPYpgB0Y6BUAGlNUtZyMz7e0kfkfH9cHmpppAD VsERIUGw6ngRJLJwNcCYr4SdaJQLZVQ6jLm0tFfVcnncFGxJJym0H1zdsNvi YJk1fnX1uG8F5IQ8CSrbieZ15lkANTcylYDT19Y0U9UKPe2lweQYZ/O+Un9K O5DS0l4ePYXnXdC7FNkSH4SbwfZK6D3CJ2w8G1jkXEsWfzZ+xohVnCTxZyHH AdkdsEqOCAmCLb9plR2JLFwFpO+5i036CIT1LyuXTq54GHNJVk5VNcJJwaLl UMjB1qenTjEFq8y7hib2FpC6VjxQ12xOO/di5ffyZPoAZWjcKrahQf5iKFh8 JTKCpJSZzodXOcxn9LRW5WqAc4bWEFC8XbNsiQ+CzWDnofdos658kHYtbC36 TzVUOD4g+6JixsFJns3W+aHoiKgFkyWYVjYksnDFKbSpLYAd9c4JUQxlRIgK wpiZlZGqimpOCrakea7yg5UCxRTs3r7gL6L/DitlAnK15FAC1Efqe1en+de3 HpdOruRqWNvUVAZxFSy+ERtFYlm5r/5oTTAtJYxIt77Lk/gg0AzyTXIFHb9u TA3vwcrFfL6IOg/rsLc8cTkjCBQeEb76ndt2oKGle1AthePqU8Hmqrsg67RQ j3cZ55UqisCjfYFJqgQ2cFCwJfEJqhisBMiiYMslcinTxLnMlRx0zwr0rb+6 7zlqZI4PgVjdrAXynWhyNL5Rl459gODlrPtXiBX8yj3LqRoYKl0EpxvkklMK NHRfe1SadFYd2o5eQwqWFv+gwfVdoBnk1keB7hdS1+nanVGaYxJf9Pc0yN9l sv5GJBCtW3hZSrsOCTz3KU3MV0sR+JzV1TRSDgqWUeVA/lIhciGHgi0NV1Ys i7OMghU+3jKxtTXSdNjzABRsffLqR9cByiy4H4GJWOYx77YqwOv4lTZ5akjB SllWVw4EmgERr4u1j8YEuV9y9sOI+8pt0OQ/mqy/EQlF4xZejq377na6ZBCa clXi6lTPg86FXlNUPq2rWcEyVXH5NI26QA4FiyZLFu6oQgWsJFGwRPn3p8k8 iXgsGo1+Fw7+7cqgxaBjgrX2X/JPRLIfmZ1PJp+nak2lAbQFvhG5gFTR4nEE JqKCfR4eRJJSeRV03Y65kNrxoGBlQx316slORrSWl+uTg0as0KlTg9TRiDRu 4aUwdtw6EVKu8ITfRl+ND4zGXqnkQeOZxJgNFZyVujPXqmDXY66jaAkH09C3 qyoZq+jIoWBLS7AqlsVZOtzm4YhU4fhlKnd1umKyJj0ACkEXjQ19gWdcFxZU uggLuVkPDVD+DH5rwfZS4DQyJWoo+XF7JfhO8SXU4PounhkIguwmT5VbzyVD GXv8Cc0ujHUzIq1beCml/lLB5QRpcyCx7B/1PlRT0YaNR17UadrU7rxbJhe0 JgWLbz261l2LHq4PZFCwpUJOOZ92mXBu6doil7ZgVryJNiAL+EqwH5kwG/uD LF0syyBWJhcjhodfk1N6aUFVFHKvEa3nuYhdkoInZOl17HRgiVwKc9UAKpZU 1QR1MyKtW3gp5OYCpeGdoCANVhIEy8elIDGMFslYp3O6ZNGoRcGmZzzo2S9m Hpla1tqmjAvSK9hS0ahkqDxzLyahgt1mtmCu04JsABNGGVh+AVfoNC5EutBP QPhlpNJLvmiqh53W13exzEAgOSd8zgmsVBtZcambEWndwkso1SSdXmFHtvQT MbU+aHz9h8vde6nLNL5zM0Evk8SqYBkdeGvvWaNdJFewpUmFvOv4iQGzzK8Y tQjKk51YeukDF6uzEqBuGGVgecWd0psxCZAudPFJC/yrGXrZbW1VTUfXdy12 LBLJDARDLhQHhyMv8npALdVQ+VMvI9K6hZdQUntTYKQf40RM9gYcHMBT9zw2 xBNrOOmJPae2JFUVLJ564HccpuZp7GCvl7d83U4lvg/e9Pt9Hpczy/kBu81q 7e46fnVWLcHDBaRWsCVJhVjHpzNpBW8C0kwnvyBLdCTKKGch/ChEfl7OBa84 1cKV4BynalSKIawMbBFUuggonkw7dGjq9P7E/d1juJQ11M7gNb3zuBbXd5HM QDDkURpxA3ONkrVWcqoM9TIirVt4CUydZrQHFgV8Xb6BRXFCVqcDtgiefhxy vk3FAWDt/d67yTQpUSopWHwjefeaw0yFXmCm/+OZ/kWAN74kkCOHCsMgpVWw udMZFEUdsLlLoiWJ60qrAopDrlUTitCjENkpV8ZXQTRyQMYoA8tb74nkWqFN erxOAei1ZIV2xpEbVAHmHG7aQjUeNsKQshfwiNQD+/qDT7U1mZWhTkakdQsv ganTDrtiAnwXDB+aNtKatlZnbjltB4oCAjPZznsCkclL9Ay3A4OBH6LBq+et 1Cd1+sN97n/E1wQ6mfFM6jlZW2kuNuYw5b9alWGQkirYzCOfDVXymKHXn1C8 ftTG9879aGZZY7v7vuiHCvUQBIv/PH7mDboKVw7sjTPjPyttOjXAKAPb7SuT 27zz6Mbxw296/13VHtAMLIzKmeYKbTngI6fpIQSK70C58kuwb6+Q4SuNSGYg HMKQsH1/8nq0mvFUQp2MSLiF45m1R5HAX50D9q5Wg07faukb8dyOLVEr9XZG zlWbqWCFFJHLPAs6EAnS0uufr+270ongcIe+yWT7dJqt+zaefhL98vObX95b Evcu4RvJ6BeeYXubvpZFuLGla8DlmxSsXZkXsRkZac7/hCrDICVUsAzj0ekM ff6EGlYQZsNlvpGKVZCgHgigARge/vLFeXbinkM17GjQEqxNg2GebgjacsBj LUjFXObi32uvWiYa915MPNcU4piBcMi+LY2trQdUfw5bK/UxIoEWnvkleu1d M6GRjOb+T3wTU9HpycDlAXNWvPVem0ltpWb/RhxPY0fOTcrlo2bU8BESfUfz VmGGHt9cbdNXLrCEhNWtvRIZbs/N9sKiHSpfTHrl8cw/g2Me16CVHpioN/eN uDx/C4Z/fLgsUWgmomTUGQYplYLFMwl/rwHVifv7AwmVnAKX9FzefyYoagxU aUsRLRUgAnhTSxnY3JxQQ1WrpYC9aKS830r0S5rOhV9yM3P6m3JoJMK9Kpiy oPObkh5MAYhiBsKh7iS/gmzqoz5GxN/C8UzyzqiV3B4ZekanFpGpajv16D/7 jI2m9y5+Ysl/u3y7J2b3Ad4+2NSM20It8xwcaGiJXTa3NpVo0GzxPZZ2euTQ VVYk0KxkdYZBSqNg8fW7znZ0H9XcMRpVU1UHRnR3VsN+GFkXa3krjf7VVgEi gC/0Wm0NvYEyJ+654gC1dIQhvG+FCZh3EDCtGjPXtSDXPj4/Gk02dkHkH2YP LCl9OXwQxQyEU7yTKszm4Ed9jIinhWfl61dDbeQabTjpmXlR8mZvr4TeQ45Q +SWB8oNRv4hf/xQ8PfNpB/Utrb8L1b4CIxUIm0cim1X+Dq00KyxetxbkV7Dk OUVu/ldpGKT4ChbPLN29jFaE0DW1DX2VVDz8lUFm3t/bQrvIkTuiLNB4Kjra 0Uy/p9oqQATwg1E3e09v4EmJQeUbstcWeo1GuPF2RKD1YDmtBbQlAGv/eFq0 LZ58IEfwap2B2RHFDASTXz3raCqrixHxs3B86ZtzOfla5fyRFtIvTb5zpctb 9CMdqloGQsucv4HmQzNYLsc4ONCQXT9b+UGkEIQMx6xyK1h0ReNX1Vx6RFaw 26m439GGel+NHSMTqpOvJMhbnEOE8r/Mem5KvP6AQtBKi5cPIcCfhRwHai5I iEZT856s0NBcDmsBvnpnpPh2qCWCnStoM1w+66A6EMUMBJNfPbWYDVeBehgR Lwun2j9hxjPjlTMzkU58csdAFoNLSW3IsachfRXm7EBDejCxeZ7RgAeLb0Fq mSO3gkVmHtWGQVJeYp3AB4GnHoUunTKh4aVYe7/vvpqCBxiUBuvus47e4au3 qbAirG34q3HnAeoNVOvTB8SErmDLHE3mvJq1p42gW2ABQVZbs57OZk5rAW0J KH/IqAmQJRjrVcx7KRSRzEAYeVeHpg/c6dTFiHhY+MYjb8HBib3liVeeilB5 JnsMJP5s/EwxAr/6dTL+MHXP23uw8Jc8zn/RINhcy7bKUGFjchzxlLgbJS6v hxiAWsMgt9fDH9CLo7IGfpSSSS3EvvQ4zLSaD5i+433/zHOR1gzpyn0g4UCF KzdYnOPxFU5XTtTTGDvXQdwBzGC9OJXcREOg+TVCArQGWvio3ENP33N3NHMr SIhsMBsHQnz9+Nur4fOmmtcCVL5iptNercpXepq2poWKOGYghNyyru0Ddzp1 MSLuFo7mZrI0caBqAigSgZNZmhxpK2iKBstf7qdYL2EnnZhwWoohN/z8UUjY FYvrCd+MOgs/JkOtoZIaSjrM6JiQMLeW0ufqeE3w9NpTskht8sn87L+ikQm/ e8BcptSYvmPINxmdnU9WYX42Oh0J/d3rvnC2y8T8Cn2n41qhi4RwJC/3gWdW 799A27ER7O0a/OzL2EKKxf5J9X71vNVEPmnsoN09uZAfeDGfS84YeEBJkBos JUoj37GaU0IBfYUS0v4YX4uNduUsHOu4GKu4FmytztwoRAFlt3IfTya12Gez ADUDY3ud0xoeiVhmwJ/1qLNdjlwV+aiLEXG2cFQFlQ3Up0BKmitUChJ/MeM5 WfACYwbrn8MLFWup4Oknd/M6gcTwtjP0mE+FKSQIls3xiByyi1ipj9JpBAvx e9HoVOiW19XfUa6/UKPJ+sGVsfHwdJQu2Z6zSRf260D0uTrCICVvsYTp2045 b0zNiVZTV8ZyH/jLhTt/HTAzO6lhLUdPD/3ZeysUif5rdv5J3qKmw8Gb1z3O AWtrseiH0TzgCTE8t/jy1IgZYz2JAOoHpH4LVW0gu0WKXe9vx/gEWqMxkPxy cgtknkzmmxWWPR/JpBLf+53H89tRYhM6LXKBbrlBZ2C1piHUinhmwI98Uo9y eWSiUw8j4m7hG1PDe4pH88d9iSr9rjfnvW/nP6lgIVB8fe72SEdRl2IHbB95 x+/cn08+XU5tkX2j5mfufHHNdQbxxRnNjv+ILvF8R5AgWFbHI5JiKeIRjzg6 TbhhlwTB4hvJe195nY6T5hZM19hiPuFwjU1yPK0WhCQKNjsQa9/gxx5/KPpw SdSiukqU+8isxCevO3sP1X6fsBbLwKh/am61/HPMPIt9Pb0gUbFhQIXkfa26 /O74+tVLQyeJpip8Y8LJ9gc5WHwm7GSXg+Anttx5AdHD5bfDLo/vhtftHDzd 0ZJfAPQd/aOfx/jO/2oCSRPecyEicssSuRHTDHj/ukb6OtdCXYyIq4XT+62w iK7l0EBLbZ+Ump108u41Ryf7ooyZut4r8SNxAw2CZetlQEVZiHrEoxIFSwuC vZF4Nu3tb8eIO+z2h8hzcHd/KxE1ebDX853GfR2SoGi5j5308k/RkN/zyVCf 7c1WeqAF1mI+Zusb/MQzFrwTE1m0A3VBdh8U8gxa2/LzkP6Qffgq/3k1Vz+W RJQYSDydvBfyuRwnzC3FoF1M39rdN3TRFyLiZgT/gjqg7hu2Z3hK86cgYpsB FwreGHWWNOdDXYyIs4UjipdVdG1OO/fmF77m4YgKNrRZHXvva78nnwtDYWjt sg84SReaCH2pkCBYNs8zEmWxty/4i9BfVhtIkprpZP9JU5PB4gzOrSN3+NXS 5B/IQGWOxcp2Axoo9wEA8qCFkibqAzkNPOyMVu8LqQmUM4NCUqqSPW3FpS5G xN3CFwP24qElS+ktxOdfj/KsEmj/F5bdTSbp7y34tpQI7JEWNECFeFHaBgNz pdkTeMLfQ1oUdtQVU0GgrFrQRrkPAJAHPOHrxmpad4ACiN5rvzxbWzN0laOU GRTyE+snI7UuRsTdwmnt+aqLrvqWZxVBNgUYW4deJMpCmeRKSUED7zFDj2+u vIFtLfh68rtqjjV76xjtlPsAAFnAnwb798FEwYGt++723BmYvttXL1tbZcyg WCOOLSxQM9TFiHhYOBpg2XQuXDGt/zVNntGUHJ5ZenB3dqleIo0YoEGwbJtE pNcz3ZO/uTz7w6zW8whQ36DpfHi1oraibAoOwfNoqtwHAMhBsTKbruZ+XrsZ 5HZxqr6rdhQxg7XIcCvpiRGvXpDC1MGIeFk4IrpYkrMQby096JoIE8XsgSWB l69SODTgRry1RntgkfoXxK1rVkX1VCEgQbAHXD9WqViB7IqUaxeoKjRX7gMA ZKAYcaRr7vTMgoStRq51L7n8trvv19W9kt8MimJG0y0hUOpgRDwtfMFvLciN qr3j8QWfJf85eg+4+pBnlUCjLFh2N6i3ltaVmFS26qieKgBir1OTbxBt4kNX 8rsUjZb7AACpQbwu+/8Y1XhtKEnBF/35MHrDmUCyrgSs/GZQ9DWpIyFdBOpg RHwtHKlFUEXBIt1PGB0fyPQusytWn642xK3KliyZ666YgxaPQcYPa752X+2+ QeSTUre41QaaLvcBAFJCOV6MPf6EpqdIKXkRdR6uZ2e1rGZQ9DXVTUJ6HYyI t4Xjr2KjOdPR7XVGy/eO30xOnC/2cqW7Il8lfMcxqlFLnYG6VbP0+BYq3Fp8 ZdrZSVXYtPgWivcDfxLo3av92n1IpwaWBHnEi6jhF0pEoNwHAFQCzyTGbA3g hq0Ceos+jKzXZWSRnGZQiAxkCejSEFofkTALxxcCp3KSo6wrNSdfm49YLaZS ByORO2asz10hARoEm2Vff7Bck/pco1uszXrsjfwHEW/2zpz3KKb92n21J8jT qltovEGzKEC5DwCoRrHQXJ06GAVC+SfbhsJL9Svx5TKDOggZZaD1EQm1cDyz GOgnSv0wSyTh6UTYfcqE7bNdvru0MevpbKavremEv89QV3mRdGjag9zitJ2f SNJ0BZ56FHL1GLAjQxM/vyoGchSd0plEoH8/S/UkLYAkyLN4EfGk31Z0RkOt 8tdQ7gMA2NiKe7vJOieGPn8izf75XcT2euRD0o3SYBr6dlXj6wgLsphBITJQ 1KaZiqLxEYli4dupuN9B9LvEDJbh6xNT0ciE/8oHVlMjZjrlDifIvlZ4On7N ZiCFrtU1Hvln8MqZ1gZCudXrwooGwTa0HjlMNuLETMc/8n4Rno4WblGTvuN9 /8xz8iYUwy32WV23I5Gvrg4cxgynfHMajyB4vb0UOJ2XpVhv1da0aBqXDrP5 k/U95dYClPsAABbwTMLfSy4uVdvV7Trw9bvOduL0C2v/eLo+4wdQZDCD4grV OhxZk+IHZEfbIxLRwvH0k+htz3BfN9EzXd9q6Rvx3P4hmUZXXDyzOhu8PHTS 3IJhLR2nL3gji/UqX+lBsHv7gk8za48igb8WOthi+tYuu8Plm4yvZdA3bWst /vXV4T5L9jP6NuvgZ3cWqjndNMLLmOtwOd9gKWjcRR2V3RYElPsAAFYyS6Eh MlCtpdc/X7/LCheK6RUNVs+/6zNXugSpzaCQV1s/54NaHtFutHDZQNrTszge 655U1NlaiwajFT6t4/ASbkC5DwCoAfzF/cvHCKeBwe6Ng7UXtVyrI7iwi5Yf ac0gl5KMGQcntV3dkkK7I9qtFi4POw88hwrn4RoNkBYNSsHqndHKlrazHn6/ kHUPSRlFoNwHANRG5ueJoSPEKXLbR1OVu/7tAvCtOV8PcZ6+z+a5l9ptr76E ZkBWhsGOumJak3sV0eiIdreFSw+SkcTSgmoXkEn67ewKlmqtskuitmoGyn0A QI1kFoKOViLbwvbZTGp3ziF4JvnVEJGWsosXd6nMILMc+/Lm1/E6uqtaHBFY uNSgGUmaDJAWFXwz6sxVg61cZh/pq4J1OqdXwCoRoNwHANRM3gW3S0Usnopd thhgcd/lZlDHgIVLz3rU2Z4XsFoMkBadYoBrhXYGeCo6mm9Jts/mnYWCOCVA uQ8AqJnM4tRoj0HX1Oa8u7siYnce+4/v02GHHf4HsLjvXjOoY8DCZQAJgm3o DUB1l6yEjXveIquJlev6kT/x0cGuqjpQ7gMAamZzKfaPm+H53bUdxpdiX3xx Z34dJtECu9IM6hiwcOlBgmChJFSB9IyH8Pxjxv7AIlVALKu4Ytf720lxC7sq AAAAAAAAxaDaKGHHvHMabHMhCXhm6e5l2z6drtFk+5A4B5+eDHgGu4hT70aT /VIIdlUAAAAAAADKga9+57YdaGjpHhy7D05FGpmVeOiac+CEuaVRh7WYrX1D l8ZC95JpuEsAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKiA/w+N+lK8 "], {{0, 106}, {918, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->Automatic, ImageSizeRaw->{918, 106}, PlotRange->{{0, 918}, {0, 106}}]], "Input",ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztvQ9QXceVJ/z2QjyT/e5sluxkJtoMsWbwmzBZZRUVIVtSaROY+aSVP3aQ NjGLJXkY8J+AJqMCxyOIZy3stZBn4peKjSoWSo1fTURp1yjjV8oaZ4U9wo7Q FCjmeYJKYh0cC38QC0fICFFIH4iHXn/nnNt9uu+9/eAhO5PY81T1o+z3+vXt 233O6e7z94/r/qLhvt11f7HrnrrV/+lrdU0Nu+55YPXmxq/BR3n/IhL5UF0k Evnb1RH8bwH/Kf9k/PcV/LNEg9z3ue/fp99/h77KF+nLPxIdtRsIBSXbHbH3 6NlInphNc8tIm2wqUlNipPcIIdZ8ryMqSlbBxxG3RFTUNBJaDx51RO+ZCehh zujhs8uPI5WMiSJoUuQxpQPd3gW9dJ6f517+uxqHSIvU5GnCodp10DSC4yit /YZ45kQ/ITl40hHd8b3wcVXUxQaE0vqDMLzRGehYj05EPvO+GF6tWrG5t0Ty +TihrRFWrKzIxWUoKhPVjfsJ8edfdcTE3A0cjHBwRPgKl4dFz6FWwn0VJY5w 3RL4uHL3Y6Jz4AIhJR/539Tv5qHB5NDfi2N9o4Q5IfbI79KT8N3QD34gTo3O EGDI+3gK5uln8qcO/m58id8l1KtNJEStGyF4sxwpgsnY3jVKE5I2Z3nunIhX RwmRiOuI4qZu+PhCypg5892HxDNNmwiut3xboOOWxGtE6QA1y3/Cr7AoZkcS hJbyQhwKznK0uk2v4sAJRySefhQ+rildJdzSXYSOvjEHqV+SwtzIEUJt1OVO atrF8YF/IPQ8fT+sYMHtMJrWEz+jFQB4tPh1NZbUBdF/oI4QjcBYymOnkUcN GnlAvu2NN6F94u51+IIEeEUH3+9h2SB1ARrIjgjQl4NdjS/Xw9/Rg/KgxWsi vnkVAv4PN9A8UdDQLS7CRAIi6kniGnQ0Et+BE06IuHc7omvs+q+poYxDg56W MiE3YgBwS238TED+fDq3Mr/aK7PTx2oXukVTsUsgxozWdcHPzi/w73CkUpKN ib6OXYRSF59w6DQKnGvDIr51NUFKgZ3wcecoy1r4N+eIsUQjdBUtfkj0Ti0i vLVpVi/xM/jRidbb4Q1dQrT2u444N7uoFi89OyQOgfg4RCLE+oL/jdf5Z9SV 7M7BvqApdMZN38q+1y6ehRmRjG1C8HpFVj0oemduIHi9rvVDv21rXL0cWzsd MZoWH+ZnJsWBytUEOWProK/azmGUvIjgUqVxhbt3lRgrXOGI9qFZRQIk+idO 7BPl7mrC7TXVjiiFpvle+8KHCX1X03nyJwtn4buOTcVia3yYsCBf+C94FseJ qjzKss4iMxZuohMvElo9Jqc3ip9hgf1gmFiJ4nidb+O+UuLS0AuEYy+NEMvc s8R3d2Q/hi5uekPM9D5IWOUtAC1mpEy0DUwjIq1Gr/NwmkCs1U1Xtw0IpG9A 5MNG02vJbxLWq6Z44NoqYoNTBBjHH+RW9oO9sjuMH10fOkDYYAxlbUwk59MI o/95WmJvmT3hgoee3Ugbk7woiiKuw8djXXcLd8MBwtB1T1p9TS2EFqXehuGW P+6I/suLD6keUPIvnO8SdXCcraMjrVXy7WF6MeUpDA06hKbQIzfVa3xBdNcX EyLuNiTlmXuW+K5qhUP6n157OHpCe3nwlChwxIb2H0P763q65JaQR/Q1kahH sPAuiiX5nPAvFT+O4a5dV2z0i++76QloPzij3/dT5mJj99fEcMdWhN4bahJi Ar6ZMLufxuP0gSq9l3uUgcfb9qGr3L3ac2+MxMXmSAUBhAJ9eb+azvQVcfbQ XYQC6iaK79Y5wucZg9ZTYrK3lVDqPbEMD9Q94zwB6uCTvgLtZZcE6NXBTj/F ff1c9DSuJXhH+b0noa8ZY9Jrs296R/YjlEsPxyZojwcn3xJFNseh/cgN29LP wp5dhlhy6cUN6Hem7xFRDH0W67VZDe2VFF3ILX1u6Y2lHxeJmiKEdeld+Ybp 8S5RDb1W+3uu7nqTL8pq1cXiWdGxcTVhcxwuDOqtdquhpvDM7U0VIRIpcURD YhS6UAoB7OphtahT0H4wtlWTXUGNI+I/mf1a5ukvgb6gR54mvf5M6vI9Vj0I TfEAHF7/ZZtWLTdCteoC6XKgbWNg1d0G6DAxwS+95KqHlyUPT+p0Tgfodsb9 JLjai0OifZ2L0M03x4nwALpbWsICBLdb1dxLtD9jLrWYEn171xPc+m5HTMoX +XNuAOeesQShQd1680Tx/cf5jqiUfemZ0yK2qZCQYcdiAqJrn9clwWPP+49D +4vGTqsXPXSkwmnF41R40ZdtWp39gH/HG3B67i1oL9VnhLIinIuiMvhYqs8I E3M3PmTO3OVhpURzUIMGH7tuCSnQpBLNQeL+MzUti9BgqucBLfy8F1gLHzf2 vC1S028QBrr/1hGx5npUBpZF+axbVFbliPqWdniHrpMjYjqVRkRYpbcA/zk9 8pI43NZIqC6L4juUo85j73fFqfGrBJj/P2UqviqG2rcgNLmtaxdDMEMATW6a jGQ7vBgUkRpOquJ+P0fIOUL+IBJyKiliRRGE7tm7CyOMni+J3uYShHUEeeZs T75GOD086fCGyoS8MCI6t0cJ3rRGUamVGJvjxWbzi1gUMwPfIMg7I3JRaesP xWV4EwAT8sII6su8Lj1EGx3s9N9JwhnthAZb6UtvkdbGBh28odYt16A6+9Gs MulHamsJnoagug0+ltpaQuLpRx3U1yI5etpawlyaeVNqawleJzXt8LHU1hLK Cm53UF8bOLzskgsHL0avtTUSYZIoKLtdbClyCR7Dld4NHz/e+QPRN5gk+BTK haKo8hFC4tw7tKThG7enUoDW7c+LgYEXCYebt0Df0V3ICOev8dBMvfZk926C a1zv3QY6kwD4+BeQJvJ679Ym4D8nDEF1W4C6LeIXFUeoWQUY3ePVtoFgjsRo Sv2rYz7pk9/orDMExGoHj7nwowWhh7Nftk9fhPa9LRuM41c5LFrfZMRv+NrF 47lG3ctH2M7RkrDhDVFTBe/IXW+OO7gH1S3X4M4VDu5jJotf6FZ6b7UVReu6 SOcNUKIuPYeqAKnsJtQeOu2guhvvIJ6yW2KnQ7OcLx/mKXHHEsDE0eKH8NQ7 pTcDRdrm6t4il8wt3ydOTMwj4DNvwOnZN0Rvex0h6kpuyRfXLyREXUGE4Emi DQfwfnndeOnUmCO6m1CYFtQlxAX4BhCp8V5vcbgD2m/UJ2rvItHce+k35Ptb VCzWc3yObHNk+wEgW62cNMi2BHtGRGT3N0bi0P1m3/PXOnCw+jn1qi/VeOI9 Sqgt0MS9/psieS2NiPy1omvvGEvtCN54138D2g8Yp8j6Zdp/E9pj36q9IlaB 12s8V/GApfmwbrkGd65whEys6XEyaUizBr58BSm5tHZKkYl/HwZ+vr2mGj4u Nee38GGHrRt0BjtLxg1p4HCQM5k6jSNkvno22gqa4OCrVC3KskLqrnPx+4A+ ywk1d31Bqd5rkIgmhO8fLP75Tuhrm7tFxJJXEIoqxdU+aL+3MKCO3tiBzjmG /p4VTmEBYVcGhog0qGvMV8c9Apz4XPmE+UH4LrbW9T9hddsA/NCwzHoytpFX 7iJJJSmZcETIDXWJMZ69x3nlrohkbAshg7ZMUaxF2BU72GlA2DHFhm8wHovV LddgR/aD+zcmcUsbDcFrvzaG7DSv2cmwx+WpYyNCCwt3NxlrAMaF4jpZaqS1 xkFBp/ebRXoH+R6K8iJ1eOAc5x1NG4nSU6Qlk5oy1b66C74b97nR0JzjXbO7 Ya1Y09ZPgBPsn6hX+Dl85ylmTeLbisQ9apxHWTt6CdevuSRIrGuhvRJ8OWLN Eev7l1iliXfgMcIaPeCQZWGZx4Ta01+fxkoakQkZtu6Y1z59AXcheVTyEL0f zkYTC18xRx00TPuPGZ+VTY2rdCbuqs2+6Z3LjZApFk/t0ghgzFMN3X2NDjXh TJORTBrK9K1gC+2LAHXQxZNYHlvHABGpATO1IUueANVazp3BzbhydaB94cN4 Lroa8lBEAwxdWtY8Rhi4lmZixdP0aOfOQE8FD8CTe4zT9L9cuj25UdYkxoPE qpxGwh5GnkHkbuTGsevZPiY0LB+xWizh1vtWTLUPC85VjthERyCzPXsDpMeo e/kIm9hTtGtcOjLxWW32TZe4g1kH/K/VLKJ/C5r7liFlOevpcRR21T4yhAms 7kK/QL8INE6EZPUj3JDH2synRXc3PNnwD9HrnUEFXAXt4yNaV8mefcTwmwix 5Myfyo8Xh9rFOvj1Ot0D3sr29k2Fn0gGVE+/RTA25PruC9w+R8g5Qv4gEnLY R9f72Rr4WUP3W3wgVcqvxeEOUmJszDwi+mta0GwbfcEukbiwgIh8Sw3FfsgI aXTqlm5fgIpv7Fu1ZxoW02KgrYyQYflqs29659KjCI1a0fDiELRHI+Yy56+l L9yrmntxuUM0zCoRt76bMKlpOKwuUU7PeabTs3b+CJ6mwsS0lPMH2xtmekXz qgghoi04G9p/TP5u140nhqNfyHoZS2r9iyTfP5GPT0+dEC3FLoKvCKbyjXW2 V/tIyyE1HWoQGzvOkpZj0U+28Frpt0VP0zoE97uqqUdMQb+AyJOqX9LprCIY RyAzkkSRa/ptvA9An/6FbOqB9lOhICarKXdjBE25VyzkumzTHdkPWFFqKol3 26LgaRROl3nm6XK5m8U6NJ0N+XxBtW7Os1cSUgalZpCeaARFtaafUu1+AYV7 +wSqo66aZApXgUvDrxKGJ+f/lBcb9sHaKELfM0v3ib7Li4glyDO0f+fIM0ee 7xfytFqOPB3LDjikXEPod7ANYmsnaTIA/k0/PdYltrsRQoa5eVL1K+bg+FGF 0P1uOiSGF9IIRZ7QI/S73Wcc8awnn5MNLmJYXgNd6AsJWzt/6iDB1C3XYEeW Q+EdPIMKPLiPMuHxvdt/xAq2VyYYy76LdLOufYiFwZL+IRs7xDA0AkS+kvHV PI0mmuGkKe7DarToJzPeVbecHJCkpOwIC6/Dz7rqTPFh9Wn6MI/oCnlGAvTI Cx4gau1RIVbsGTRHh9SqwIyH9CLtcqktepQtDpo9apdaaiMiShIV9IRvtV1f OIBtHeTZuuUa7FxuKHynwXA8CizwU5NdmCjv6oiy5Nk0hF9Tb2kzaBs8uwKD tqm3M2JPWJ1aCP9ZvrdbnJ9dRGhTVegKK8MnPpUjnxz5vGvyYcXv5Mvi4fJC QkTfSu/vucDHBqac6z8W7RsKEPqtvFs3IvJ7amLxPj136aci2ZsgxJ9sdURj 7ZehfVkRX98i0lrrllTAf95V2yj2PhknHO055Yih19ExwsxRQH85ABavZCO9 8IOackKRmj8MtN8s6tsOE3pHpsgBTLm62cMJ8FLoj1T4pJqfuQlxpreL0N7i pVQw94Gisu2ExtanHNHVOwTdjM9q//S6zI8FLl3T1g/trxmPVcdfW6Cw6Yer +CTMoDLwtG65BjtXOLLfUB3atfu00UoTHwXS8UY7P0hmPgC/iRlw90Um8Bti buIM4aVE3PNTzZN+qhEmN2/eo6Ksqp7QHIOmid4kfPn6pTmm2U+yvAk6mPql nXwrm4uJZ7FTNsIZ1BrIi7hEgSNK72uCj+8rLRTR6hih5/wMHY1MC9vkyb8i SK9DPAZWHxriQEbJkcxmhofrp/iNV4mSihpC494nHBFPIMEmX58kDsGIeR2N F4qcpB6i94n4uSsE+MUtajXRFjjV+5CKgjHmmI55BGj/SR/bnXxGxBo2E2CQ vyl/4pZUi+YDCUL/+cvEdmzjSV0UQy8NEsbn0tf440CUoczEUfOoePqZw4SD rfc5otxLoOFuEk1dZwkwcR/3xmRzz1njoAou4jfffkI9ND0jzvc8SagtXeWY c1z1NUJbO1BV17O4hXTE9ordlSUE15QxlaLpwPcJQ5PztUtzx5rHYCwDhrlP 3SMsm0pQf/h5W9OimCOSKQ6ltX23c4VDYgZPI+d7NlGE5htbvIDtGG202+jj 7tOEIy1bHaSbj6ipdEtF1UNxghLXvFZ+I7TeITfSJRjA47b444AgA5EU8dsx f9fCZ7eqyUeRY8YXST9+uZ3WRv2T6NY+Cx+PXRwUnU2bCK5b6sCLoDRJ9FIa GUJ3R5MjylzvbTeKhviPCJOp9B/kmD/H/DnmzzF/YFCfMc+Y5bsIsWf7HXF+ eoEP2qRpmzglDtSsI3jvEUUPnQP9FziWM8+Yz9k3/o7QWAy0X/rQU/Dxk9UB syBcpeA3V41pU6fn9FU83576W9FcUYyA64Y8w2+Djna3flt0PtdLGEj+oyOG R9HLZ2JiQoyPnCEkB+GW1nPsGegmHmsWNXC6AxiCp1hUNMcJihpUGFIatZD9 +yuAEbcSOoavzaqZmIXvznVUBxRFYUdjkXYw1RR87CWaWkeojZ+h7BMfY8K2 3FKNS5kijBS+3snYThGFR0YV1RVVPoKEdO4dXgCOpEJ91uzYKyIRu5tQ6hoy ZatoOTJIANJg9xJcY3npI0S0dceMTWOGt9/YQyozJViMSx1ygIMMcM8S3+1c 4bg+oqbUFnjr3k0mf4AhU+bJ2g+wHtg3KGrAHGznn98vKuFGCdAk5G4QtY93 Eo6fOgt3nQnUz1+aXRCp2XcIExOjjjh36gfwmyPt94sK6KHC7AGJsOV/EJKT 85/wnmhTKAALbY6/Bj/U1kdDeWn3YguZK29KJGVWzOR7ihncZQETZ150RGes BW8pFbiHrSKUVMBNtqX9KPR+cmSK6fTTpjzCvXJOTL89QQAmduAPEvzo8D/q iLCOZgcn79fUgIugQWVrlziZHCaMTky46seoshlODoqB3v9F6Ox4zBF7qkph FK5+DaUXAIaAL1qOnMbgSAQrGFI4s8kjD6qVE+SvWdH0JKqEThiC9xANrhAP FQ1HxDkgAcTs8Pfg5UF4IbHcLh4++TYBpMTHfYL18lnxbMsWAgzvQzy2taJq 73cJLwyNg9xIpXn3JP4eHxIvHN5HqDFOGCD66ztOEsbnbjgsk0NWflTpyJMX nQFmJAEaavglVRcs7n3nqzJHfL13InAq+qj6QfqnonNrIUJznaEN16cnq6ue W/mUGJpdRGjyR2345XPPGjGFrCeIVj8hTk7MIyJLGLuDKgVOoPRTaI/D9RP/ xg5oP6ztUVrG6SxegrSA7UNX71niuxUM6SPczTXyBZH+IPpYuYaOc/JIJ32f bdqG9Q56gqzneb5CYQoUqmB254pozbcJfeNXSdGgPHbm8MR7WjOFFmfRnSLW +yZhjg/OGWwx4QhFXk+7xAl5d7A408LDOwM4eABAxk32i97nOgntTZV0GmTx wReAo8cJfYNJOM8Oj+YrGfIOdD2rU0hqgZhhP8K8baig9NNETsTlRFxOxOVE 3AdZxH2U121RzPQ9SoAb/S3yZ6v3owrACCBh933m8HgLAWb6Q8bqBEPrf9dg 80yJJorKVPZjR8Sfx+vXZDgNMGqjUsZ7f9zsWCu1zLEorftxeVdU4YiUgfno w4TKIiN57FOiH5gSAQd6Bw2I7FzU2CPQExMQucJPtkXxQ0vUmxkyRt3vdFRB 8UMqrdBvKmKZ6hGNINkaC7RSxbTo+HIxXO7bZyR7IiLcgVfmEZ2UQMW+zuIz 47UB7yO3FIm209P3kYhlXw2bHDSUNkoCTfVAv43Li2ItgUxljfVmVJt902xH K4256akT0G9LccA3tKAOWf2ChdWzDd5kO1sKvpg8uT8UVVVQ/TfiLOwLAENS 3hBzYycIseq1bKtFj7OaA6fEBBA5IPJbqnO7e2nG4JVMgiDoTvwZHo9PcpsM VNxygjCVFmtU6/CWgDZI6daNUBJGSYwp5AeDVPh4U415hY3YL2ZpChU/uItQ 6uoR+XW8Ffp988ysP9x/aEZXmTMU0oy55W3Q/sXjMRVLp0nKcEG4okjPSB+p Hhi6vOebD5w79x1R6RYQ1sdecdB++q/NBlf7HhaF8OhCvWbBpHDqDRbCsftW ZyKlXwE5QFIAYGyLPrX/dn4xiweIkcPEjI/DEctR6x16NY1Yjnq9N+BUMgbf kQMdsKdk0XuW+O6uLEfDExjOBWGVi/6snkGlbTiIkL3gjkP7+4MSJNy/2lZx wjsbNhJ8x6FCUd76IgEo8mNq9BkcH/H83zGse2fPELvrt+nW+u/15OYpz0U1 f/JvEUWUAaQosDsjwoGIjkOAHGfnODvH2f8cODuFHjOGDzgzQigkzDiY5plJ wjSvYmxL5f4TzKu3y4mffBm+kI5lxvjxd2RzUem8pX0Zj7J55lGWs82YXmZL MXEBZmbrvqjV5ZxzxMwbULDLwSgnJr8MFpNg/Ix5HTHCxrVVUieOkZOcvnwK 2u8vD97iQwnkzJRttgRjRtdLulxHymjEALaTUGqcGnp0FSE+MnfPEt/dlf1Q +IK58Do5oEonVKVDMFM98snVntY15G1fwm85Bc03IdQihwWlmm37TUi6SHpM S+TJl8Swt3hQL7WkD391F+2AAMWxOKN5ckaDHKuXhjl2GV/Ym+ZYbT/31TnS 536fIPtPajipUZFoKEFo1qa523+KMwYq1YdRz0JyqedDYQSAThujMDYbvg0F XR1uMdrrJPrWqFZWRtpNbCGr2ccNcgp5Axp2XSPnRp7c8yMILVA3PUFpPgEq jHFxCMNg1vk0XdarZDUPgtNkG4Oo523Rwrmr1NxSeGDdcg12rnBk6hIN8jrf lNeCdHb391yI+FWqygf3+o+hvWcc9k1/UCGluDmtM4EZb64FilomI7+qsWVE yWlSOk6yVsXiaW1qcrRZ2ZKx3eC1m2DgDMcor6mqPJHj4RwP53j4nykPf9Iy F8yVeD2sPJBkL/A/UnS7AF9cSOxS9wn+RSj3nql4N+xrUsEfNnNclk+YQRWu 4cquJ92oRKboQ4cHbDhAGLqe/oj8LkNAfhGlptK5fTXrWtOEaq7R7lecHcug nQJKXSzTF1fLIUyiwbA+mPnRre+GH04KPQRmXFse9KIYDRfAjBvuN5DuM2OD nSscmU+NIE0cBG8yo/fhncjQ42sRu0i+u9J/1xcQZB5h16n+r8MXlOcrQi5y VuFp3nFQdkr5yZ3jnejrvRPcORtXbUJ59X6yLwGMgKcM3KZTPa2Ii1Vji7HC KiVL3h0ry+1Yp7XX2/F60dQ9RgBK+kOvf7RK5JlWCYOa11OIlQyzuk2OZwHH KwO4feMJmQIULws0Fvbt3RiepYJGugkDdGo4fdOtILQPzSpetpNreCKYlye7 qXm9mWHOyMP+W3oKLIaZSGQztN8/MMWUpCqDZIhNX4fJ6Y1Yc83QtnEYhT82 ZO7XK7pWt1yDnSscmba7pklRKZWV2he/jpxzpYOuKuDmpWD3HHMJpQ895aBr rnopM+xd8XQaMxQamjCrVGX9zSx8YfjI6sbRRtJGAHxGY6vrNSkJEHyAs0RG rfZSBdmzJ66IsUNhnhG7ri/H2DnGzjF2jrH1D29Vs4OW+4s9LRzkpH4R0sJ+ kafIYi7P82XYjGrGyzN1x/p4H7TFM1/bA2w8r3PMYytz2f66HIwX3FNAgPOM g8cZFbRquRtGbNEbzNoTCVqfmgwExf4ISFBD7RWhhXS3xsXIQhqhS3nZPdVC TlOKr43EbBEbCyi+5iPdqrIywgY80q2PvRLxxyXXrLD9nSscN2c4T/2cHDKl U6Zn98hHl0xyyOziovGHmvHjokJyyJROmQ56ZKK8rCgmh0zplEnebYrnr+Ky GS4phsTX4Q+fUEt57RURW1+AMCjIl5bko16/Np/KjQ4GT7EGZoqU8puMBsUO Jiv7tHz19NyUePPcPxB6jsI1p31vDTy1JMTqXvGeisb9hPb49xzR04flOc3Q 7GLNOza7SwZbwE1IAB1Y8Yboqi1GaP4kH82GhBhLpRGS+f0Ty43R/2VTx9lA TcA8M6Wfbhy05jGjYMWb4/d/gcX0H6rhu18Q9x//GQEmaJsaiZFuQaVK2I5m 9zFDPPJt8MYb4tm7txC+3PkTEhMZatGYnpaYGUdmx/m3SwoJvTuwgkdnKjJW f4No6b1IgEHeoVY6g4ovmNKRC8NmSMgYzOUT0LLB63yrkxDfBhtVpBjDsPqM s1XNCtvfucLxs/ykq7znBkmINdc76AiJU+S5QcriX0MOOkLmqamHt0IHSAA7 ni2xqWrBrZXFKdrq5HbH1/ZgcUef6XOsp01UgrhClNZ+xxGDlxeVJxv5Ub7w fcKxF87QaNXel0az/UTyByLeVk8oL3ILmBAwnLaZ0N4FUnFkeiFqzs78wH6x Gt5otZ7N4I6Z4/sc3+f4Psf3K+T7kD78Q3Yi3aiH5T+QM0MHTSCK+82MNuyh YmR3qso08j/yei6K4Rdm7btKJoSrYrjjSwg9jCC1aUNYuLy56RjER0UrY6+n OQfo/nROa5Y72/A6dt7wivuSmjUMuMaCuwHWCGanZNb2MvnVB9sHs94HWBvf 5g3ChcQuBy6swcI+NStsf+cKx2/0n4kdtepaBWqEtD3c2Kg0vFWNxAsiek7E ajcQdO0Mt7QWvtsX7xYDJw8SqvzkvLf7VUKy57Aj9tVsgI+NKDP5TkVoRGns +HvkRYRf5cUh0RR6ch4+HjraEog9CG1tN82iv5dphhTBVX4Hvjins34xQYir dCfdEnpGSIPGbGpkp2A2Na5SVWbP53ueFrFYDAH7M/6FN4o9LXrOX0Uousdq UPliW0ibFsrLrJnUUpc6spayxgE0k2qvQGNX9WVh+W1eNhD23Y0Esy5LUE4w q2ZI2BVkPZ6PDKwRTHYnV0bFxbPgwRungxfOiLWaW9bt71zh+LNg1WJKwQ3Q MVVBa6tpb1wfe4VwTYg/lpOfnntT9MZ2EqJ68l10T2vq5DjOpYeCvbNGTDaF XRVY5fQRUhHIyE1PBvw5ruvgz3kTZ5Ixqtd9WPVuhMbkmDTHpDkm/aAzacis z+fGDfCFPOvS0Yczp/wUvjAUn/yLUHCxrqLuS1PKCnHjEDmjOh+FLwy1vl5X Q3u+NN9pWwFPopEMUw42HIOp7FKWdNd8lzdj2JjzsjyZLsd5ZRG/u7icbhUh wSmr4NN3HLTs4cu6d4nO8/MIxRlZt79zhePPyHlyRsMFv9T0p6d6RBOIPQDT SqhUiPL5D/nwMzdhyMrQOwTDPJaV0ShfdY5hogkvWYFh6ZJ5tTrPEGbTUqch E16NvULoOZZwRKIL08W10x6yj9BcX+uImprt0FXV3YfF8PU04ub58jY1aUYZ c7WxmYJTcWPIGStjz1JvjpH1eWZkvU8a4ildntSvaALJU/uQIT39Pm6aJW0l cS0saam6Gkoqp/QiN3DZjBSz3LMZn/Ilc7gGPXNjuDazeGVmzJDDOciMnHTA F9Ww1cEInZDGwGo22vGuezCuwsu/oOLWjIQXMpTqlXmH/AZQYvh0k3KTRMCd VVLpzKvi0Pa1CG5cjAaYY2NXeeNQkXBZsSorJv3JHfkAhBdyGfZDbo87coyW Y7Qco70PGM1WBt7M4GdcNfLMPHnLMlrY8p0xKFcF/1mOJOG4MO1OPE6l7wBL sFqmbB/hQuas7r+CbNhmcdEynNJvjtvs1fqW4Db2jEcPBodq/OZ7jW68Tui0 mzp2vOseborbBIYjGOJEnyuD1n8zDsbwHOY7iOENt1l2vvA6fGFUxDBOiVtF bHCKkNZpkLNiN+VqN3cORWy1JSm9WyH2918icEj2u2E3Q/Dr6JwiKugkizoZ Adr+OOGMR3rFcYuk2tGZkbQA20rEro0eOtw2LO1C4bZLcxxlbCUxri72Fg8z q6KGOQ5DkGVEakYf9i+ZjY3A7JviuGAUt+Y43r7RU9BBR0HFL9JcLC0Qwfrk O951DzzmbF6QOS5rTzVjcWxhIl6agG2drxNADvzf/EK+klgsPjEgYVPstJiB sc8YkSUrYjuy0i28cURsL4gg9CYarBZZnWO8HOPlGO99yXg69bPKKx4KYvsP y7BeuHvWIlNeu0tvUz5yCbR5YjaRkaGkSCZ/ROjr+Z4jnt5bDd1Ejf6VKHDL msTBxAnCQNJL3YdPnHiHkvYBIpO8ML5MEbwwwbqMS3OvdvfgN8kYG2BRstr8 bc2FvkO2M2og3hTDBuN1mWGNAp0FjT0OKm05fefMSbG32CW4WzF+biG94yZ/ V53lezBfImF78clexiDfHc4UgkYZAL9TvvrFhgPwhZFmHmbXeEZq7KioBeap XYp5VsSbnLxWzIih9m0E8+qHLyDjJCng+11yZuhmpFJIhqx6N8+coURTH+ff FYot8dcIMF2Tsv119Co2wpZ5ntxtneSwAlg5XwVJIoN/22+rfq2eNb941mKX dHGVrK0Id9MB2MmupX3JQmX4PUEFlucZP5a+Rjho9Aif/vwvquNsmZPLBOpi tlrXYJjNjDT4GTZXvCqbdQgUS6YvIs1iGiCLUg+5XnK+KuqZFUOqBLUXsHFd gaWxoSfJcWOOG3Pc+L7nxuhy3BW6wizLjyEDvJrY63hrjG/T6jJX8VdJhbir pgaBE+P9rSoLrKrnl/uFjrMEg2/Jq8ajjOB0fgmGfhWxDN/Wia7xBYQuuRj2 Iy3YfgS+eGNBn5C4U0tWZHMt+U6JwsBIsnhTnIt1kXC0Yc7lRFzMI0zTmLEM k1FgDjqZh+4WTWD5RGBob5I2p9JfQJ93rGQSdJLl6+QXIn1DtNOGdun/nUz9 +qIl1rT1szmjbFnWMrpXSd9WwrRYaz7PrDXvkwiGr89/fZd8m9EPIuxDtSzf Fj4MX2B8tPoF/VWzO/sKNGzfWiG++tybhBsqujMPXdXIUW2bm1H0cZacZawY plfvNdgQEJuM1B1BdyDmQFuctY0Ds9Hvs1cSlQCeSIpjBx4k1FeVURZ8vECj zKpvIcTi3Y4YOH854veH526ytIN8zHh3nXYqYksAroKmr/VDeyxIhcYaabDh uojMn+4OQnzkWukv/hGydEL68o/gu47aDaKgZDth79GzVJ6Mr5XZLIUMf18q VYFPp1ko6cFmT4+seYzszQAdMGVkL7QdCm6O+2/AF0YEELNYyOR9R47/c/yf 4/8c/7/3/B/0FJX8n9mxIVRc0cf/84PQEOPFjBTZiv+hU/KWBWR+VZ1ka2kJ cKt8YHoKO9i/OTzjpftE3+VFBLN/erxLVEO7at/K6EPcitjfjMBbON9FqIty roTKtmdFf3KQMNCbcMTT+zDAqZScdaOE8sZDjugdxeKOZooR9WrZCgR2iHod 2nduW43yT0i9gcNlsGikZO1R3uW2AifK0caT1S6heO9JBxt97p/oOZI/jHTr Cu5dDroD34xoQKf9PJXlxPQdD4f92WIJbzFIUHm3fVG1C3tsh/XqK5IQnATS uDBmVC+898LhFss0SrmQuUgCxd9iYkzVPf3lWxfWs6Wbjnu3UkmorC+ZwkfQ CXxv3zvcoRYNlkrMxuxxytfLpygfOcB33ihtOU6YSKm0IZkvm2YyqOWc6IOi lEPztUpLjyNaLzpHZgmyVwqNHDosGkpXEbxe3dtxFrpfZ9e2W0Mzmp108FL3 6/rnIlK8xxHdF+a5mMXF41Q4wCseUOLgYurKgeGU8p/7RXWsVFoU5lrrC24o cnAHD8jL/7jCdblHrcvcGapfBdBUvIWmT8fEZhYGocPrFxTdGUkDMnLHzckD o0BUxlQMOXmQkwc5eZCTB++ZPJhH/6621dnJg8w+X8Fx+eUBZUPpewQIpogA y0pnSukrgIm98szEXjwvZllBLRFssXY6gE8f3RfF7NBTBDPzb9CdXKUSSb8N X/Q0BZ1t/cmkWSzMwxPQxSdAfsFYNS0WdAUh5ebdjK5rxrkZ/qUdTNsJH2MV Kd31egfTdkb8qgWe3QxhfEGnLD7AL4yIzu1RAjV1y/dB0xMT+tbH5ISpDTEL P3dd/IiDPtPab2PZGIaSX85jw1m/zdmBJYX2Fw1VB8uVLBdWl6T1UZkyTphx OzapomqohuICOAA9k/4gdEW/OeFi0CNff4wyMO9aroR+sZRcEXjPN8pGcmMz 2uevZeNss1D9P2qFdD4sEdkEl/LhhbSijjTW4e1uWBOeMyPltxY8lqz9Rpoa 1vXNwxcXuvdwnk59HllHleBkNbh/ZZDQzOATBFPPGSxJsVzGmuCuowXhDTE7 8FeEUj5yYf72fDN/u+odN1Yjy6jsvQANsvGf6KMGi58s4+UzJGR35Ny45X8p EiNXCPCyBaq1PybIFpjkL6ZWV4xHCwKcLkp/GQ9VJn4xQ+u0KTAzIe8WFj1Z ruu9eubzxPmuXeTcGfXRmS91s4oh9pwkigklJYXK2yZkTN5g9m+sbGYrwU2K oAUx3lWH0CLIOIHnRFBOBOVEUE4E/fMRQZ7Gu4GlCg/JiML860w9/5E3lnBK vi1MgPPifOddBDeywUHNfuBynZ9pJDbvRi2Tgtn7QrmEilTv6SviXPw+gpHO JoKq9dL6g+LEyBQhpf3kKGPO5aG4qIUbUa1RV3f9N+GLpGFcYtmUpa5Eyco0 GjBHur8lGsqLCUUVf+mIo8NXApPDOS5TcJGpLkLoK6Jx3PdFaVg0FMGyNkby +3wz+b1s72LyxsaneznpnU6KCjeP0ROE9pp1ajLdu/B+cD58PyAHS3lj8iDL /37ulz0AjtDJkDU1aBRhaZXlSn9FDdgeYB5Kn89aNL4LFj5A6DiwnUVWUCRu 0IPyu30pgg1VYbgJkZU5ethwXzSz5qLngvRecNB1IeIZ3dBzQXovOOi6AD0M nL/MEsmLePlFa5nXS4YyVWjaFKcVOkrkZZU57T97jXVRD7fyO4Rzc2n2VaFK BBGEVbLJ97bYKO0S1pAkeeJc526yA5eaCkGdX/80YXh0whHTczekQnz20jhh JPn3jnjm8buhm1I3SA+hTZWdKbN07/6swbdTPXsInE0Zn0HVVhDsAbucXzWr NnThXH7pokr4z6b2LtE7NEqYnE1xKRHyqpl+C964h3B4X62D76xf1RXFLScI U2nB51Ttkcsa5M//CoxBKabSEwlSYktFts1W/B9XuGr1ignxziEll29Pdiuf EkOziwiWXFyTBKsPIi4NdziYAcbnD2vLRA3DyjOHlZnXVyS+fkOzVKZC4BYf GtwwpOcFgco5VLY9Cx9LzwvC03LhaKzkeUHoHZ0hLfNNVz1c3sEmqPZWIs30 GrjFICf0QFZeyPjvk+pN0R400X0/nIqihOr4OUfMycwOkQy+bcaxUFWOltkO AyIrXKtPR+DMi4n+pwg1Ufc2TR4g+cpqRevRs4TZtNik589WZGj1ftxE5vV5 TFUDybaiHSdpM9y2mMbru2n4k/rWhyXJ88yS5KxTjWBl67KKL7Dk4nSFRhWh j/AEmKpka33Xz/1TP5AX3aAiXnTDMU2JkmxXZJcaQvhyqQg0WvtdwrnZxd+0 Dnijg2ZaHJyOatW7tr2qVZbsdjMCJT2O9QSqrY11KVcWKFfh6UZWV3UArIeP pXFW/ltw0DyLhphSw3Tg3u6geRZ6nzVMBzedYS8nX3LyJSdfcvLllydfghpS nZvEF3KlLr0hh176y/766Qui5/71BHqV1hM/C9yUWIcSyj/tN7Ord73aB/0a +dTkOEJWU19ljtTkoOhs2kSAwbPMCWY/U3WqLQIE24fS5XFJQ3u9tczp9QxK trGZL3gtNfGyiFWvRcAsRLSuwVb9RKt+ix9SJRk+/572xu7dhr2Y38Ft4Cuz EhXZzuWfKWJ+BznmMF+Z9f6QJ6I1T4n+iXkEF31MzybFgcrVBJUvI+LPQcnC wlIMOxPvhJMw34ywWKqxttGwsLAn3cs3nV58ZO3Vc1WuIcrFQ9ZzpZV8t5Ii nCjU55hsSQoddt3J6MpMf2+VP5s9Aw0pubK7hdDy7FkQial0ROUv8tSjsCk4 WPrG6xZaVhM6zs1+bGluDBkIVN4qWfQnYVYp+V01ZsyThDnb1Y+UKi09NylG Bv434UjHY45orq+Bj6vKovqxbokjKu5qgI+b93eIrt4hwvhs6lPek2+MYMbm zcGzU7jIJfMjGm9GXzos2hq3E8qKCh1RUoF11Pce6hHDlxcQWl1pN4NlSETo dzCzuUDyWgVzVX+EF3odeVJJbyrDv1LpeVcTtsaHHTyAqD117iIO9OT3RMf+ ZoIRU4UX+LKqOkJj61MOTiI8HqaRx7/qvR6XrxB9sKIsdocFFN4mpKbfcLAg Fh6ImuuJADwicOEFyqrg4/qWdtF1coQwnUp/iPteENMjLxEOtzU6oloW0yoX NXu/Szg1fpX0FbeukF74mIbVL0d6j8DI7iVUlKxCfXwJKh9rGkXrwaOE3jMT cPZPC22cnReTyU5CU1khq8XR0SjW81N2lFPLN4shIt174WwHnOh63OgomjIM 1Dq16m6qQ4qJOJcTxGHl6j+BIEZXK2mZRlhvBToLha9AGStPC2rINA3ISeGc FM5J4ZwUzknh96cU1qqrNBV5lIUe1R04VFabza3pGZITUlY4KCjgY5AUJCek rLhNve40nf7LeDxqnVY19VDubwDfOFOXUQYNvSrOjM8S8JqshOLsWdEFN90u uu0iA5TfBx+3Hjwsnnn6UUJN6SrmIvd2vJYTYH2V+KYgbuMuoiRx0Nf436n2 lIFyfEj0dj1FaG2scZDSP8Fz64qiyhihbzL1f/Fg3xAvxVsIXulxtxQl+J7H REdngtDT9yNHJJMYajzQ+7/E4dguQrlXqJz6LtoqmuMvE0ZnF9m5JFOR2NWi uutNgulglZ4Sg7GtBE9HFb0XPu44cVoMnPgfhLbqtY5wy/bAHHQNX2F/DUVR JMiMMCLzUmb63ess+5YrtJF0lgUB0lHvQUJ96Sp12Sv6Mu7kz+vYIE4VkB4X 3btKCG5twkFPRfYNo83L64gQKdrsiPrWb+Nu/Vwvpv0kJAd6HfFc5xPwcVOF URqhaIuDBRdR2zKtvbM+/h6OVIWA2BXLBWW3w8dbinQwhFt6tyMe7/wBfNw3 iAM/QUg8/agDdI4MV1T5iEice4eQ0n4cEyf2iXI3QoCtCVq3P480NvCiONy8 heBGd8FOd/6aTkCRDUUZ5VdR93RaHIID1SGqGwRsV1r7Dfj4mRP9Ijl4ktAd 3+uIKunJtIr8nhDKWqnIIMwqEZX/CvokPHPyNUdcmrvBrqTeoQr2l8piAmvh 8k1hju/l4EuhtLFKZx00/6u0U2hBe4X8taTPloMOW9D0qMGjypEtNYKEXh0w socTXXiuEe8q4692gssY28FciUcEKXg8R6vovQ6KHqRHT/AQQPY4KHoiGVII UELjkbjYCiS91XSe8ZxAEbyFyLKyETN3g0qeJo8ssG3VbyYUGcROR6M4oXdk ysG19kcZ6uzRSgIGXaNKeJK4TCscl72kxZdmA/SjY3wWxexIgtBSXogCegc0 3f9svzgPsggQMfzG8sTc+A/FgZp1CNakwQSS6JbiezWPQyf80ISmc4tzcWmd kpDyNnrvhynR882U6GjvcNDYAd0UlO8XJydTCC32dKC/mqGgXe8TxkuHzr5+ W4M6nsD5nU7viIOtX3VEZckq7bkCx/earxNU8WrlZpjGlN+pRX0l4wlPvSVO xnYSou5G2CYOBgW/rtQyJUaOxwjVUZZNbulucXjoHUJKO/2+ZyNV650pDDEc USblAMhS+M/e9jp4sdsJIBQdcZ1T1LF42IBJKa/z/Tc1RuhuWm+TGnpnX5qe 1NVg7hxet6nihksobup2xAVVPt07cqYuDxGeadrkqFQWeDNPvEaYlTcG3nCm R0Tv4X0EOOexEyZdN+5rFm2xA4R417MgS+IH4OPH934Vl4DgXZkqcCs4ktRF H+W84eUnz7z8WIW42iMyFb95j/aIUDC6piFKFqrCfj/ul057gt6kQTNQTvbn ZH9O9udkf07252T/Tcj+YBx1KFOE0n2E8u15rUGkkECRhOt5+uaT7wwKFClU itTz0pOir7Uc4XuekU/2s3qCpdR3G5StfpqHDcSWWkRwukXDLyqTqOJKvUh9 cyNHRG20gBCtecpBOz0rJ9FjCG30vntXJIpK8/g5fU/jTMu2GpKG+xlL5Tnc rXRebk1kwRsutl6g29/2YtOLm5NQ2tTuWzvJSWFUR/HY9BJW7zKVsTk9De2H DlQJt2An4cArP6eNk/WcSJqz576rApoU0+IO8vDJt3lq/rNqHwxM1aS/TjT1 vE1Iq0ScgRgrt9wRNXd9gV/Q8J9ScsdL0raFEEteUckTl1uRjUzV1yjxmky+ hm+C4QuYlFxNjd45xkVPSxlBElgwFwfrXlMzYnzoZUIiHkNLD4rXsqJw8ke3 ZJvY3foUoevkiIPqfrVZZBAbdhGWyUvqPRJh2WtQWL22/Nnh3cuv9Juiq3o1 wpoGT0dKhrc5MxCEdzHK8lGsuM5Blvs9yUoTz0GzXTqxCY8uVIL73+v3UY6H JXwQwn8FalhGJU+2FxgB20pgLQzj7rt1tXA3PUEYnFn8iGIwPEp7BqkIGTl5 FYtbRM/FFEILqvkBypYD4Ham4xoLKnsg7VaUJoYflB5Cvkxzu4UAjKiz5VpC vgseIFsigL3H4GCUbx6M5LEoVHbqDmZcM7uuNcOMDiSbE2Nd9QTzZBrdhdpS hJZWmQqKmQFqxl0oz7wL6cZGJhKmrPRborthLWFNWz8FDvIhbJlVYWF1rZ/S 2FIqW7tjmtJHW3awdY6o7RzG64YxR8qgTVS0CFuqkt8Z+X4JGZTpzBXSOcsE uyuTQKGaykYiIn8CTy7tvMwmmRM/OfEj+8iJn5z4ef+JH8MN3ZYhXIsfS8o5 YyDmHV4T9RYHGen31AphKgtZ2JJI0xfkYyb2sIgfT2WwNjbosPLpIzy2afIj AOixGQf1ah7bDcrB5+Xhi6i0CyVVLeJQ31sEYL5/pXoNhYaE7pmFsmMjmlq9 UbAsJIslu9IwdGPQTIehtmsIKoH0R/l9fIHwWl1GRWgQ2rEe72SGr4V8bCgL yh2+x3oRvgV1CQcVP+oVdCp8n0Wx9ij0NZbS+qoK+SK2aCNzeZjEjPyUNjcw 0/MFM3NQdo41jzlIp0qDmMVKcJgvivz5ZEyshbZrTfWmv9rvr5ntjV1KrRxu CrIIua//9Ju4pNUsv6ySQUeb+OzsOqeB1nxmYSgOSxzxc/iip3FtSCCEtPMs cZbZ7W5a4rAUoN3eq6KK0FIA+WwTXO28ur3Cl2XDphY2Kn8pa7cM4CBeIcyo 1Ct5ZvpFwyWMqjUgWOiE9/HNGGVxwxQ6UtDperA25lOl2UzZqV7WRQ+RjnPs PmcIWj3/fDwLlojmhCkZUjXiERH9F1R7jh3ReSZUU+Q1WYOYssX6/MtUluKC BxxcfLXolhCXVQ4qIOHXmqSMYRLr6CVXz8a0KjhZqr2SPl4OAZdQVFbliPoW rMp6bOgiH3eZwNF4Y+iGVNdBp18ljGznVdMvcDmaMxxDlHZdlpLQ677S1WGJ ZE2XE9aOfFi9i1Gcjc/e3tEakTmhQWZJ5BHrUHsFwriPaB+tmxNDmYoJhvY9 M0GZdW/TSVFykkjkJFFOEuUk0QdAEgVdoTOOSpmXxrqgzXZfsvjVDrIPHoKF 759aT8k/BGAh7TTsq+8jnbzDVT6V43M4FN5tcDhfzxKXBKvRSBXyhZMqnVMB WgwHY7MzsISy+oaKvbEp/S34kZFgVLYPnYE5nx9pOtYgNDFtOEBl4dk8rmOO NgJ/X0EwBdhjgcKqIHZ8CKlFMqS5t+ejMj1emNAxayBmdgxyReHePorauGrK IjFFogtgcE+I1WymwGIHA5XUrid3rNU2i3S2q8DCwqrByySErNd7pbjZGh8m wF6+XvWeWRRpPRmLIp291lof7eZEER4/jAuopnvcCeVw6fih6DjbPB+fob/v Qh7NnIQv9lrrzBWI9fv7CTNpoTS4GZZ2A+6VyDSqf7WlA+cQ30je4YiQYM5e nhFM/7G9c4RnRAkjS3YEr+AGPY+VLrpG75KUp4VR+OQTEi5GPi9LirwwAy+x iFJy+48sWsvjKxej9x+dq47PnFhqbfR0EmNCEDpQwx6RF1L/mIEaOF8ATcIG vXOi0czK5gz0bi06s66dskICpETKyhVM9bs4BO3b1wX0URielm+Gp5k0dmn4 VTE8OY9Y8bosLZ4y51yxq80ixQ/hGhhRkZwL11482a+N4cZ4rBlLNHIWYt8e aqq/ViSqWMN6/ceifUMBQsu/4j1Y9QahN9os84LkBFROQOUEVE5AffAElI5l 9tUIZYW+cVJn5ufLWcTnRx701NQmoRmPhzw++n3+2BfO+SE1TrdKHBiaJsAL ftp7qO0k7zpoXov4rR/012AQi0d4WI0gPQHTky9D+4fLzdnGeMCGZ1CszWmp u2xqVNPRQd/LLaGJfl2c8tSfwTJTaOX0veyatv6Iv2KST0tkiWsNaom037rF r9WvolGSO1wk3D9kRdDWa56hHVJJnu3ruK59KHAlYN9Le8LwjZhvY9jIzL1k AKh/yJzO1576LWPS70wKs6BAYBGS8cZmCP7Pq3Gjj/5zDxPKXRW67m6iDf9a iPRWIm1CsffMapjdr/pbhN4xL4fCSnNivEvBg1UgfyhaSwsQmU8nvHVr679q imnHVP5MnykeZ1/6rZojCUcdfMpOOkpLEyI1+stTe+N1qr3s1V9mZbxZz1CZ 89NzU+LN4R8Thl6fpFQSpk7cyFzAGqJg5QHtZxHW+JhpCHgZ3yGaDWYJCGUF ZMkQdmANvo4y0Rtlpw1hGVZl/xfVNcYAH/srQm0ZxgCXoxdX7Pgb5B4DWFqY GNnele+Q3YMpvDsyB3tq4gYdyeW9YjBnAvtuLTPLLEnQSWKye3ewDENDxJ8Y PGOleZsnmopHSs+eEUeathC8SC93AzStjT0vRuBUCtD7QCaJY+rQuLrfjbdE 37e/Tqgpi/66GkL5PuIOAO/4WQkbX1HGvse+zCvIQQ9uiajc/QjhO31vOUgl y2VmCO5gOXGTEzc5cZMTN7/q4uZWNbqgw6oSC5XfgS/OGXcKXZvpHeIggH5v w8Hxs7IdrhPmgQNoQUY5WL1czQgpa/weh/mZyJD+aglhrziy/ptUwQkQ+XPu XJfk4s6Dl0EuNn0hQSGcdZrjgyWdWZhksH0H45WXSstmUjj7FtojDUPVqXbJ fu0WLK0yMMK+bPeD0JFZWQUXhzsoZeBG/WpBlRgH+i0/a1/M3GtwwpTDhFH6 RL9YOIN82AatlZdwgajrIpxfSCvDWYbk46G340Dza0MivqsWAdxbU4MZAmsb HxEHu04RRmcXVSq6rEQDb9/pa2Ii+X1CR2ujI2pravKxfwf+1MKPvtp5jou8 LBH+HdySbloq6Evqorjct49QaihbDPd4Hk4mZxmttpM5AzA1ZJ6XGtK2TDqL ++/ztLMRN7NSlv6ykfwVXNj15gboJX/XouASXdYBLOm2klLYMMz7anV5pe2M bczdhtvpeZunp2HU5O3RqDauda0Wj1CDrHkVzBKf3tujyIXXyU4EbOygcxrA DGawpljAftHmHhQBRp5xU4SvjQ2qAGMttbKcrS9m7jqoQGfHKZtnT2QLyO+r CC0HMPmDoaDVVBP0GZJLjKn4881U/EokBr2ylPo7K/bm6lHLyPscm+bYNMem H1w2Nc5zeWZ4Pv8iFKCvSNrCIBFbVJMqv5eefZ3ytlLuVuO6jERQVPkN0QsX GIB2j0NfJmlJISueMvGYF6PLJjHODn9PtFQUE+hiW1LVGvEn+fgt3Xm+2bk3 mHC6E8UUaTjQNK2KIAxRUy5a+yYJae3xZJmXzY7YP4CXGDOlkY690B6PmoX3 8MnYtDdYXRI18WqZ67NDqaZmtVZVXk+WvK0PUaEpbSrVEoZTZQSPddqPWLv2 2VT2v7PC2friUv0aIWn6+Vo6a8ZaS/IeoPkcDa+Gk6zfRGn6IepdyqZyKmhA t8CLBuncHJ8vI89vms/NbEtGiiltMPTlx+V8MrNk3akIyLRVmBvWvI1xwl6M PBo8dG/I4OtlQPFyJBEj3qrXP89cf23INbYcxeU30OptqK80K7pbKRxLhmT9 tnrZ8K4XvPHVm28aLgJMXnmVB5KcqUMbIpdlMVU7bHoEvjiVHGeVmZFpKJhi e42DdecDtO8rbDt9iTA9d0OVira4CBQ6qIEMdLMEy3khmzwXGerKB6/AlYpo lwkHXyqa3TRvahpddm7/kLucJ+4F6C4NtYK7VDsjx+rHZDuzJi9LguBJ6WPc qU3GUBg5gnPjrEACZBXfmRMCOSGQEwI5IXBzQsAID8pT9SkR/hP/3m6dx5zD t6ZHiIQlGaviEpbwazS9AAnznYHtF+mrYqz3W4TqqKsFz0bREO8nTMzdKOTW 05RSjNKK0SHry/dCx/eWFlgmUcctXF5mStztWNtwzDiq6aNdqLwCGQN2Pcdk /BVuOk+p1WV6dR13sE7UHjpNmEylVTpII8pdTTIm9sTQPzUG7VhpuBjKwDf2 pFTlrX08GT56alkxLhI1xYT1sVcoeQcnTbc6xYULwvEFkRzWvIkhkM8RTE3E H91yr+qfQiFro/7+wwYClh+2aJRQwgBpdU3GVAyFZg0dmcUiZPlZl7UQF4fa of06nxRej9qeKVPs2lyiIsVUsgdgpPu/KHpbNhBkaZYvw8c19Q+KA8+/RgCu +m0lbLRVgt+7oPYoJVUAsFvdEgU5dSiS8prKNkLy034hEsobp0RCNT583Fhl n3kpNf2aOB7bSYganlHROnGg/wIhJXQhHNYb6bC0DykiSI8SfQP0ZBgZZT7n e+zEP4iO+o0Ev0IBiyE8LI4m3yLMpfVRhioi9Dykiq2gGhJLH6CyZ/bs34hq ePfqAnNu9Y0x4/lDTVIROjImU+FJSiHbJhpM9ztvr72HKWZOXBrpJzy7f4fD pyYX85QSjiS9dIosvcMKDNjvN7W/GvF7N6rzh4xa05pUJVMyOKKG1FaaEYx9 uQBmL3FhgbNl2M8MoWpYrKdIjdK8yLmxHc3YE0HMwBn0LsK2AyDKZtJc0Smc 0hbd7Xd1jwfOPpXcVwYvbp2+VnkIWpxIrcFXS+iVrMvyR0v2v6H9x9D+utFe eiHY3PrLkJRmTR36whtHCNsLIraYTjXW9CS0x6Sq/tVyqyMYGq6tzlX62XZH XfMMpSRQtsGQOQmUk0A5CZSTQL90CWSev2f6HiWs0eXPQkXfWYGsSoK9EG8h VBTpew3VOTpE6JP19dhFjILNShRH6Ep99riqgkbiBQC/YAp15CPHnxS1pasQ +q6K/1la3y66QfZ0e/KHq86nr4jhrj2EMlde9/KVykeGWM87eK+Bj8t9uQYi tvp/l9Q8oAHpcv/jqtgU37ZCVjuf5JYJCAgRuw1VZpO8MdYN7R+srUHnEwVH 3FWB5lfXIEi3ZJsjdrdhN90Db2BeZARntr78Q3xffYfEnBUOJqxgqlRhgyj3 pexXy+OtWkTVHLVZkRXjSg1LoSht/SHhctqr9biE61wwpkYbdHzpGhRVwFzR TGExcC2mxsmd0HMpBNZs6UEpZI2dT0+Jgf2bCbxz5WGGfkzQj1BGDFvEiVW9 xDkm7be/TLt45kXZvHSHpegY3Hd5MTgAi5iSd2lfbIaXl7CQUN76IpB9Km0q AyZ7WwmlihO96g3V8XMEWKj/ynPp01WY0SE4n3JOP28+PIvIRymb9ILNiem3 JwheKZEJpNXR4X80CsJ5VdZUQZZIETSobO0SJ4dGCOMTE676MZ4KhpODVHAQ 0YnFZfdUlSJpGVJWcXIpal+ePP4as5QuiMc+t8gwDnKMkS4j3yzRixzjIMPo LHhpquhAVR3iLQ4KUJ8kK6n6S3Goe4AwcmnO4Uyc6twy/CLhYP1GXT3Cp8nO U0SEEbeUIN7TTMunhLzFp3ho82Ji4DDhoapS7J2s1RUPicTILMJQV85RpKOM drQ5xKusuHO4Zsme74tE4u8InR3fcsTje3fDx9VmTd+iSkc0Hfg+dDM0qT1M +Ykh7g1lJfQ7gWIWQ3cHIT5yjTecNKciNoXAuvYh9p3gSEA8N5Mfj1tB2N9/ iVZDZbq32IfLIv7KzbeqvjCBkREaivPl4HRBe85I7DsxmWKN3hb9jJueGcK6 zVS7mc+A4bKHqKmq/S60R59e1bUy0No90sOaMPYEz5J5tT5o2YVSUs5e50Fq IT3/UIROwWR4Dduc3ZlBUz+jyhoIFyV3+V48jZ83ZoMDU/H8eHkoHqjTQFEN ICJRQiJ0Fhktk3DaUbCMj2B97WSyX/Q+10lob6qkEsu/ZvJ1ac2j4umjxwl9 g0lHJIdH85VoegfvQ0ZeUSPhr3XnxFM7ukGo9jnJmZOcOcmZk5w5yfmuJGce mtHIiAaIfMa416JsIfny/KsOGu1MNzVkGMk0DnIM26/ehAZGdmSRIW7dLuAe AvFcsuoWcwyVXyXsfTLuiKM9mFpjMHlGjIxPEEDGOyji8eO+4+JoPEbY48kj rd/6S0LX0Duk39Jle8yVj2QM9uH0bxfgRz33G5ErsqxyLXc4JUZOHCDURI2y 3l+mqtGycrSvlNfM4BNiE/DhJleyOdw6Iv5M+HonuUBPRxRsP+KgwkUn0+QM oJqM/H57HLKUviT691cQ3Gi9IzpHZnlGJhJkwa7RmppgtNzvWkbjNY1i4CB6 fKumVvl019844mQP3t2qowWwLM0E2L8cMfIzrAbvBXt5qorZ8SG40h3chRxB E1RMqGw95mCInbK8ZwgpCml0WEplySisAcpypTbr/v0p4LRDaSGKFwIIGF3Z Sqdll9O+jYaiQ+yUTpZLqCkHFrfsfkc83Yt7w7QhE/gQkPq5SHY+QCgzrdh0 HVZS648touBWNSv1AQpgezEVqPScVBD6KBaODQpGzC4hgj5lXMPLquoIjXuf ADGTeBm3+/GZkHcRMyawBUFxhvL48afLsRpKZdRoeg41liP9x0RH632E8iL3 o/KQV7IdfrT3yGmUhghFUBiskC+DFdYKpdDHf8pFKT1zWsQ2FRK8LbT6b6Gv nxiRjTUmsRmGAjWFwYpiFsWKV0wh2pBw0LCs1GEyXUuxueAOsyZX+VOUF8wb rDY/TXnRewmHBj1zAXUjvIX1MqY4mC5FCl90rZDuFbfJAc1gSVg5EwSYDAfn wiowauBtJnRVyHgroaYsqhS3bil8V9V8QBxLvkWASa02J9MSwhBUwzG7hEPZ 0TVMVgch0lXWjozzXpG5LwymL72vSdxXWkiIVsdAvp2fQQoRvn84dsw6PXny r4yzGkqdQ7iXztqyjabeEUPP7CFIViczVXm9aIs/Rzh1bhQmc3rO+rwUcsrk 6JDo7XqS0FRRrAxeLorGlmfP8oGSnTpWJDHG4QnSVUUV2/h11ZEl/gHOmXTK nMpJjJzEyEmMnMR4VxLDuIzdhlcptBJemmXR8GnFeJMvE+1L+ieLARPsFUX/ bLZzv0y0D4hsUj1gSpFz/0DoOQoXlyf3oqW7tqqMw+78SpyKe0VzLE5IvHSG Llu+3GypiRdFa3kRYWPHWYevUqZFNnWhm9BU7PKddP8ptEkhInxHCZU1lcMp EQ2JUQLMBhsTg9Zzd9MT0DEmgA8tFUkh8jdfTYhWtznimROYfnDwh0+LhmKX 4FmrY6ehmxmDJtk6m7og+jt2EUrdYkdUNB9EGujthyveMUKsZh3bx4y8GFHf lHkzQaAnwlyg+dJ4ok75GJIdwixSMHtpnDAyhPfwJPqcDo2Mi0uzKUTkT9Sq hw2HGQMlgT4H2jYRZFNMsI9uhuHpWHYBtLZhjOxnAL5wuLXPirGLg4ROqr3t yb6HOmhGEcnBk47o7miCj8tQZLgbpbfujxx0cL1VzeoNvJtNnBZdbbUEuJBp 794SUXHXDg/yAu9QRpR8URtLiOTENQJM/jYe7CJVQQfoTTlYGp1Jiz0eCjwk LiywFLDFUxnlpaQUUKvkD4xY7SCVwsdApkSkklAVAwGZEpECIlu9waRTqYjd L2MRv0gZBEZ/Wc8Yro5c4iC7RfymW7mpp8nBs8nntUGX7PuhffeELunICV7Q 3Ybu9OpiWL7PQb7QqStNVcvDjrjPs6tT/pfHCIdfesPBjcLnaTI9clJ0tT9I gJ8gCVEZ9pom0Xb4ZcLo7OIfmPMLbynfVMUTSLFCgnYpvtvF382JsZ42QmUR sG9pLWaCGTTswMozx1MZv/B9ceyFMwQg2o8uNynaJzkYq5Bv+iRjbgwY15kX 4ePOWAu+P8Gl2NOKe+Hjlvaj4uTIFAHe7jY1dd7xY1QkTxwldOxvdkR9FSaW sSTtjSL34bG19duEI8dPO+L89MJ31HxQiEuh8jZw2NUgskQogU5TmWOCHBPk mMBjghr/4IgOCMa6SjogqIPzNzIuLoXTGP5V+hH2rKyUumBD+485qY5WzRoV 7mmzD6XFezAjJ7m3OziIACdtWYLODmb/WH3PyhCbocOWRo154rQgboWDFrGI 35dI2UEtvkeex6FcMmp9dck3f/jk24HO9ZvPi4mTTxEayqPoRLsZmfHAD9le w3rhTMVVzChFPpnj5Weksx6mzCUUVX7DwfwGrUsTiplpYanV+fZyz1E2Oot/ p1Vf8UZIHkTrCcoA4MWw5ZsxbFwFKLcSv4or8f8ZbImu6tJd3REF9WjDnAwt Qp55TTHMEmsomE8G9KmIU8+M4eW+ROhFMLI+BrLhr0HjDGFkdvG/6478rvQw PAdHl82s2zq+Q02g1Wcw7AHMMsm0+EXvdVAjhUMT5r+0gxop+NhLhe4qpZSD XZqzT//UvJpJdeTtPnNhteVSab61xLxwQhS7PTxkan9Ttk+hylPeqglwsXbw Boj3c+9WTYjYd4Dciwdf3FoAObKRYogBy+cVNYMfl3px1j5Jo+iltx2pv3p7 eo4l2AX1uAzGzWBWozF+4gIdb+UR1zwS4/FWHnEdPN9+xj4V+YF8uxgQWY4a vf2Jc6x85tmw5xrw/JJbTrB7hnVCynbDsSDWgroSizKtCM+V1Y37Rbz7NAHO jj9T3YRtksEEUvRGn/jn/Ip4Yut/XPr4o2P583gxmzMEqTJfhLy55cUM9ZyJ Ma0lL1NTQn5Hvd8U1SVFhJKqVgcDjgJyQpm5536Cgr1lqyhySwnVbd8nk//X JfMZcwbHZ6WG2iBqY88Rzl1e+H9VU0vAl5lQyJwUX/A3DFcO2ZZoin42ot4P /Z7Gjj8C81ZMqGw96qDOK3AUukWOKT07Io41lyG0rq50t+g8d4UAv/lD2XWG dMoF6G2BNUdU1zplhSXySPqp33+ccDEtWizz+FEeyC7R0X+BAG96npta8joY SRhy8/iLmscMSe2MojP0m5/yyBfE5XPPEWK1G1jpuycm4kePEzyfsiRmoE0O nhTd8UcJNaWrHB8zHSMMTc5vkrNoyS8uXWn9ubTMMqtGxkdlHQpl+91jmcd/ IxuTKenrx99kb9GfGp0b+dn1bVRnCrBOphblxsat48voN3xkxOy4Z14mJOIx RzTX70TNT8kq/ym/pAI/rm+GOe4+RRieuEYeoOwVRC6iA0+IyiKXELGbTzO6 +lD7gh2U28KIttrDs4EpsSsIFU1PgHg9fgo3opEx9BkkzKbSvgCl1Cx8Pj5C GBo4Aaeipx/FhdzcJvrgYAKI/J9Q+4kJifOOGDraAh+X+q7u1uBF+vvx3Dr8 6q2D3PdhPuSc2EybugftuXlDzE2cIbzU/QNH9I1MBTZzbWa+LM4PvEA41vOK I8akb+2fqXe6gPrc+mK+7Stf2FClPHP4nMfIs0zRMAgwEidwp8N/r5rrPzv2 iug5liAkuuKOaI+hT2Istg8Iq5ZQU7PdEVV3H4YhDBu1BN9WbzX3EzqhyFOK g0cUHK3hN/yp99lAQyNR/zgmPoNzBJ1svQ2RYuiz7g81DEbueut++E/amS40 FfINJv+CHV3E84Blu+IoXvRqlbRPGFOWgl/Mb7/y3nwf+Rf/P1NYlVU=\ \>"],ExpressionUUID->"7bb8ca2c-a27b-49d4-8e51-f72bc352995f"]], "Subsection", CellChangeTimes->{ 3.7467908610581846`*^9},ExpressionUUID->"2bb1e4eb-51b8-4951-b32f-\ 2c268171ecfc"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{"G", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "=", " ", RowBox[{ RowBox[{"I", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "//", "Simplify"}]}], " ", ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.440895870234375*^9, 3.440895891640625*^9}, { 3.440896510390625*^9, 3.44089655715625*^9}, {3.442671255203125*^9, 3.44267125603125*^9}, {3.44267137046875*^9, 3.4426713811875*^9}, 3.44267142365625*^9, {3.442712951171875*^9, 3.442712951859375*^9}, { 3.44296369284375*^9, 3.442963696734375*^9}, 3.44296768475*^9, { 3.443374517453125*^9, 3.44337452140625*^9}, 3.443397833125*^9, { 3.45504301590625*^9, 3.455043130828125*^9}, {3.4550527984375*^9, 3.455052814484375*^9}, {3.5067782137090287`*^9, 3.506778214466072*^9}, { 3.506779064525693*^9, 3.506779068082896*^9}, {3.506779121543954*^9, 3.506779124996152*^9}, {3.511641116247309*^9, 3.511641117295369*^9}, { 3.511641238366294*^9, 3.5116412632227154`*^9}, {3.519945652604292*^9, 3.519945656025487*^9}, 3.5206470576621337`*^9, {3.536753629485641*^9, 3.5367536355419874`*^9}, {3.5367542796588287`*^9, 3.536754394482396*^9}, { 3.5451480077289762`*^9, 3.5451480136813164`*^9}, {3.5451480836983213`*^9, 3.5451481475869756`*^9}, {3.5451482301356974`*^9, 3.545148230279705*^9}, { 3.54514835065559*^9, 3.545148351119617*^9}, {3.5517190084457397`*^9, 3.5517190462919044`*^9}, {3.5517253476257124`*^9, 3.551725350072852*^9}, { 3.552315878168127*^9, 3.552315880549264*^9}, {3.5594364063879995`*^9, 3.559436470154647*^9}, 3.559498758930711*^9, {3.7095734439172153`*^9, 3.7095734562269197`*^9}, {3.7095736865240917`*^9, 3.7095736900622945`*^9}, {3.710786317142681*^9, 3.7107863175327034`*^9}, { 3.71171717351058*^9, 3.711717180665989*^9}, {3.711717560179696*^9, 3.7117175669990864`*^9}, {3.7118545714168224`*^9, 3.711854584457568*^9}, { 3.7119033420472937`*^9, 3.7119033423323107`*^9}, 3.7119033814345465`*^9, 3.7120954622856226`*^9, {3.712095557947094*^9, 3.7120955854366665`*^9}, { 3.737162821795579*^9, 3.737162839969626*^9}, {3.73780794558059*^9, 3.7378079860629053`*^9}, 3.7379793854587083`*^9, {3.7385815933232975`*^9, 3.7385816487654686`*^9}, {3.738581823928488*^9, 3.7385818265056353`*^9}, { 3.746791040438759*^9, 3.746791071688319*^9}, {3.746791171144439*^9, 3.746791205624802*^9}, {3.746791269817828*^9, 3.746791296817684*^9}, { 3.7467913572329483`*^9, 3.7467913929364586`*^9}, {3.7467914248141994`*^9, 3.7467915012213964`*^9}, {3.7467915468503184`*^9, 3.7467916019331903`*^9}, 3.746807033746698*^9}, CellLabel->"In[71]:=",ExpressionUUID->"480933de-9eda-471a-b4e2-5fe15122fb33"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "2", "]"}], "[", RowBox[{"G", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.7467913000660734`*^9, 3.74679130814038*^9}, { 3.746791532816335*^9, 3.746791533334661*^9}, {3.746791579057716*^9, 3.746791587805388*^9}, 3.746807034420087*^9}, CellLabel->"In[72]:=",ExpressionUUID->"473c8a37-f111-4682-ad15-b780db356561"], Cell[BoxData[ RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output", CellChangeTimes->{3.760467914661397*^9, 3.760468241400798*^9, 3.760470340007272*^9}, CellLabel->"Out[72]=",ExpressionUUID->"05832e95-9bde-4b9c-8918-97d01d8eb4c3"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnW9MW2f2563dN/vivlhe8gKJlWXJLyJFEbK0RFEFL4gSIUE0FUK0lQVR sxDNZiDTDUyrQqoGUnVcTWu0jen+YrWxsorTrZWZulXcDp4WZ4Qzxf3VUUCp 8wtUpsFNSIAgB0Gwuax977Xvc/3v/r/3ufb5SDPqdIx9fX3uec5znu8557+d HPzd//hPJpPpjf+S+a/f9Y20/vGPfW++/F8z/6PrD2+c7v/DqdeP/+F/neo/ 9cf/fvI/Z/7l6cx/zJl/yP7zPgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAICSWl8Mf3Mj8EM8mdb7UgAAAAAAAKqI 1K/TY8cJU5a6V7zxPb2vBwAAAAAAoEogt8IXD5hy1L0RWIOkFgAAAAAAEkgn 4z8Ebvh8XrfTkeHCcH+v3d7TdfLKwgtS72vTi/Ra4I06JswirGdvPq7ZOyGU ve3EnX/4vw7F1lJ6XwoAAIBCKOTZQIhS66z4+62mYo66Y7V8Xrb9s2+k00zY usf/GoNHg4f0evjDDjN10Eq87Jp/rvf1AACAH9lgw+92jPR3tZjpVcbc0tU7 OPrRZ/5w7Mk2huuNQp4NhCjAPplKPk1kWYxeH7HlTsuOuO5CeAEIYu++50Rj LkA3233Lel8QAAA4QT5fvvXpcHtmR0+YW3oGR99z0Kcn9lZzznEQTT2jV28n sAq3lPFsIEQBUMid8ETOqppHQ2t6Xw9gENJ3XUdyB611p30ru3pfEAAA2JBa mZ3ss5gaWgb/LbjweJsjw9jbfjJ/0/GqJRdtmTveDyZ29LrSQpTxbCBEAVC2 Y+4uiLoB8ewkgh90N5mbusauRh6BRgsAAAby2d2p1+qIYyO+e8myAcZOYvpC K5HL+VjP+VcwibUU8mwgRAHykEvenlwet9OzBFE3AAAAIB1yKzrZRhzq897n SQaRG9HJrnyoRXR8Mr8NKxBQjawFButAoAUAAAAoARn39VmJTndslz9qItem R6xsVqvPF4dIC6g6yOeh8w2MkbeMhzf0vh4AAADAwJBxbw9BKa9a+ye8kdVU 5dBpLTTanNeMEz1eiLSAqgMRaNW/GdzEqfRDC3Y3YjNe55un2psIoqndPjR+ 5bslOEwHAABryFTin67+I3X9/lW9L6WIvc3gm/Vsw6Dm4eDjiq9Pr/rPEGyk dca/Wt4Dp6POQwc6xm6A5IkCZzNQDSPaABn39TKVH0SvL1FTW4nUyqzrtI2w tg9f8gVn50I3HPZD2fvQemEan/oXAAAADunk/Ge9FsJEHD8/8xt+PjuV8PWb EMyOSGU9eSriMLMvP+aMVuhblYx5+i24VSnqA+ZmoB4GtIHN4DCz96g/6r5X Q/ksupWc5fWpuXxRCfkiOnmYCjktp7+srZgTAABjwC6vY9O/4lnqm15wHWED pwMD/oeVvSk30GpxRJKVXk0+m3efstT6jtgAZqAiBrMBcifiOMiYd5sjsqn3 9WgF+WR2op2w9Hti3Cc64bMz2b0BX6LmjFcAZGojFnSfp09aO85cvPKPB+Vr t3EjGbs2aMt4pqNT87U7ZAowNLnl1dQ04FvC10Nl1kHPGVv2ONDaMTGd4NFo FRw19nmX+fpW0Q5cyXVWEc+mmRDFIGagKsrbgHoUCbTIrcSdbz2OkaypmOqb 2l8fcV6fqbYxdun10AUb0T4x+6TgSSKXPJ0Cd1UKQm5v/JZQjCdJ1X6sdDLm G2lttHSPX5uenfv+8kC2VqihzXF70wBhC7n74GoPU13bD1E0YEDI1Ip/iHro WidurWP/0GUc26MNIc0akGUow0FHZEfAH6WWfANN2T1x24dzmzKDGSU8m3ZC FIOZgYooaQNqwhFofRF/POcZaiMIW9fbroypROZm/K6hlmzIeGTA/S++yhHe z0qn0rJtQpE32frB0dxgG/u+yETRAswud2xb7gcJhJs3VwhLS1ff4OiHbt93 0eVNRaIKcvW7863W1rFvc/vTZ+Fx6nzAEFMOyWX/6abczdEwigYAhSA3bzva sv6prvvTn6up2RTayNFU1+z4YUvg361/P2aryyo9BnxxGcuTAp5NQyFK1ZqB JJSyAXVhBVp1tlNDp2wNlm5HYBGN4l+szrxHde61dE9FZR0SKRNOyM9F7K74 TteVnqqwteDKJbQazoeea/WrqRJoodQ3db019dWPsqaJkSuBs811PVcfsI1x khFHC/3+2Kv70mvBt5EB6kfGw8/0viQAEAP1AGaN13LauygwEjEE5O7CVFv+ 0SRecceEf7v05tyHbfTy5J6XuDGW79m0FKJUrRlIRgkbUBdUoGXK5iFH/YvF B8pU6znKWk44ozJEXLgEWss+u7X0pon8D08nk9CqGwxoN/GRPTp8uLTw75Hw tO/yaJeFKPru5o4x70w0tlzp4HBpITIXDv7N47p4rstW8BaE7fWPbt7bkBL2 k1uRD5oLfCD5i7e7kX7jQ84oxnnbzB5wdqK5Dr2TMP8a0ISdRPjK29knkTC3 v+2LSc6jbsd9g9TZg6XHE6uqkaLk4+DI4fwa1Ob8UVz0QK6FJ45STqjTMbcm 3rXJ92xaClGq1wzkINcG1AY9GScsfd7F0l18d5e9ffSL6ocC0r8GV4m0HLsT icwGv/Q4hzpKxV/1Nvu7l6/fDM1FIgtLSCDxNCk3Pbi3vfFko2Ruh+2Q39Dp +Q9df6/0ZujdAwW3pHEiLES6wJJKLke/cY+0mwnOje2fCi2LzNaRD/0DB+oG /OhQVPKxf4C5XQcHA49EvZ+2JOdd3dyYE/8UHFAFpNdn/9yKWB5xwrMoxezI 3UVvH7XzEthr3ThQUUru/kg7C8sdHkkS6sj3bNoJUarYDOQiywbUBhFomWwX QutlL4/NRakxcpo764p2SNYh/4rW563oc1G5kYsmsFFfjm7vspRbQqY27t10 vGpB38rSNzm7IjwzSHmepuHgE+TfpR7784ObBv2PsdWWoxp4Ft7GPgAgl737 nhONCphdTvGb8UuOSFUdeefXR5Ms0TilBsm+h+iEmGzPpqEQpXrNQAmk24Dq IAKtw86fXpR/IXLop4qKuOhQUZeTHeS5wKFDfvFJq92XkP52O4nZj+3ocSRx fNR/X5joLr0WeKOuIMZG9KsF+0G84GjgkW9fU42UAV0oeoQlDZdJPQ6M0NKN amvux0YOskvztu+4OqiYVqTES7Zn00yIUr1moBQSbUB1sm3sGQfQPBqqYAho kxNrv39F8Sshl73dHIekh1YZeS6w6JCvcKC1nythbmDfUHCnO3IjdiuyjOa+ 92Luo8y78Hcj1A9GA0+YzY0FkZbE9CAACKYgoyVNQJI9maLzK9WVxyDX5hyd BB05dH84I7cBQj6hYarr860IvsuyPZtWQpRqNQMlkWgDKrOz5HmVMSieA0Hk lSrlmvLVGQx6VN+zzwUeAh7lA619pM0dG2tJmt2QjDrbmXeoP6f8abJCMBp4 4oQz/PV4QaQFZ4eA6qSTC5+PtFupst+xq5FH4i0Oz7VDNrm23pkgpGXIu6BI S082FDk6EZYsJVbKsykrRKlSM1AcZWxAWR4FBnMVh52epUrX9CQ4nD98UUf2 rH+ghT4XeHTIVyXQ2i9Qn2aRUCbM2rOpfjiIwc0qCa2BJ6wj02vpu64jXJ0W DqfDAFAZ9kE7Mhp6qvfVKMXOiv8cdQp2yD55i69pvIi3XfS8Ru8hpRYdKOjZ FBWiVKcZqIESNqAsz0OjuQPkI667lQJ3ziKljkpc/0ALM4HWvnqBFpq0ZyA6 PpkXUexDboUv5ioiC3Sk+JDTwFvO+hO7lJSi4G5Cc3gAc9JrgXOMZqP5g8gW Hht0uewkpi9kKzGJ42OBX5Rtt0mu+PqYlUra+Zpynk1JIUpVmoFayLYBhUGG fvJYFJnw9eZX5XJByFbUfbrXjtA7+M4l7y2hY54kB1rkViLyV9fYIOez7b2/ 98xX0PaXeh/MBFr7agZa3GIfClFdWZ6GRnO2c+BiGM8Hn9HA57/XWmi0mXs3 O10LGAkmAaAQVuKFh5hBAXJRluWUO/pU+X0O1auBWamkdCJSzrMpKESpQjNQ E7k2oCzpVf8ZJnriaVrLGfdZNgjZexj633+yt3BaCJiE15JIC7TI30IXXy7s wZWdB/rOJ6GH4gwSN4HWvrqBFnroz1C6QrkUbLEqcWB8FstgJaeBZzN1+VbP Im0MAPQhP8DFpOk4MBVhoiyi9S1f7Fm5BZBMhD5xfBpKSGvGiaxWxElvXNxu WznPpqAQpfrMQG3k2YDCPI86jzG/Hk/rWzQVYO7xVhRzpdZiX55vLWiJ1TYZ 5d0aSAm08uWu7EdZuv8SjEvoV4KfQGtf7UAr41VmRq3oT1XXPDErYIIq0mTG 1O6MIj8Tubl0O6LOqHpx5PrAo3rIVMLXz72b0BwewJlnEUfORR91x7DY+8mB jrIIc8f7wUpbb8oVy+nWyG6ZG0947ou5bQp6NgWFKFVmBpog3QYUB9ngV16+ t2bHD+SWY+vbQX77z88IYFc0nvBsX1Kg9eIn52GuvNl6zr8irUYYeS7U6Mgq DbUDrf2N8HgL5/2FxP9IYtZ0eDL6gv1hqdZ/OMwQRDTw7NVRDXM431b35v8A UB7W8fJpaA0AE2VZej+b5wlXqGElR1wL0qv9EAclKjJR0LMpKESpKjPQCsk2 oDxsoFWxzH1vM/ROLmvU2OleEJTPRQo3hH5Z0YFWwZRGMZdX4s3Y54KvAFND VA+0UOUnTX2b627le0jGvT1M3F2wWaD2g/qHqQUaeJbi2wkNHgBcQZ9NbHLs EqFn/ja0jt2M8w61p1yxvGbCaDMiEWdtSno2xYQo1WQGWiLRBlSAPUmptNzk x0mLGyGEtCJheNWzVDHXJDrQQqc00tcn4zSWfS5w2jWoHmihmoQcPBJQJC9U cMOzpnLAOjqjsy8o1MAj/w874JVB07nhACACJNuMSRG0ROjGfYe6Hd/xtXHY 2954FJ+d7CDkTqhHOo4KOEzJXadynk1BIUrVmIHWSLIBNWAzQo3j4TIxEDXW nLE9UT2NOfp5Cr5SWdGBFtIEjEZ6hhB9Lip3yNcWDQItdkg9e+fHwxvl/wA5 ceak/sit6GQboXs5bbEGHqHQxlS4nwCgCEhHHVyKoKVQ1B5ZELKHj+yE892J BU8HU9CzKSdEqRIz0AMpNqAO+cPfModlZDIySU8OMh3q9SyIyr4h8SRNY7f3 l0rfVWygtXfPfZQTysloLoelQGtfk0Br/1l4/Aj3MypPvWQTiZxE6G7M02Pl aqJ0oJQGHgHODgGNIFMpWW4Eyb7ilGMXh7Qoy6REq8YVf39O8CI0EaScZ1NO iFIVZqAXEmxAJbZi7leyj0HJQ7fUcmCkhbrKQ73uO8JGDyMUZQ941jSxgVbx FGrJayaeAq19bQKt4lq8yrlBttaYTYSmfp0eO17XOjGzqm/UUlIDj1DcHL7h fEhCiSoAlCS1FgteGe8/yjy15lb7qDsYWxP/VKCFGxo3BCZTyacJUTxJlvqC 5O6it09KlJVZj874V2XGFKiwRGC7POU8m2JCFLXMgNx+vDDz+aWx33c05ZMV lhb7n5zemdiGJJkzmU6lcXOkEmxAvWuZd3dbMpZtHfKvsAfoZGo9em2ojYrB jo347omOsvbRtvMMCgdarDHTyNAc4inQ2tcm0CJ3whONohxdvqu85XXX9O3w 9P8d7z5ItJzzLpRtjKMJZTXwCNAcHlALMnnXm/WZhLn11NilK9cuv2u3UauY 4LntCGiemU/dKpdUcjka9H48NmhvbyrQawqHMHc4QpxopNQOTiAyFVpZUO0K 32FKHmU8m4JCFBXMgNxcCl7qt5X/oc0vj391X9yKT8li8TvZlGQDakGmVm9P 9R7KBCq23vevTc9G5mb87tGu7E6k3tZ/KbgkoK9SScRmnMQGWoWvl9wTCZlu UNA7RXe0CLTQAQGCb37maf3HlfHBnhZzQ1P7qdGpwMK6xHJPxSivgUcobg4P DQABBSCTd9wZL5rZln5xd53ZsaIC127XvBjHgubY1Uu6Zmdq+By9hyVlnYqR LaxSFFS70jAaEnoSqYBnU06IorQZkMl7vpFjAn5uUWdYtJ3LKPlXDYk2oB7Z jPdVx/Dr2R0N0dRuHxy7dD14JyFrChVWgRb5LOb/y0Cr1dz+1vWC7Ukq5ulm LhS7qeiaBFolJOLG6+RZUQPPAs3hARUgVwJnm0tkrpCSXnFyXPQ4QJUuQJn9 9ZyHPrNQDMx2qeiRh5aCEAWFKEqaAZlKfOfoPlj0q5WjacC3JCgNS/clENRg U3P0sgEtKQoSeErpVQy09pLh92y513E7tCC95evs7p9xchT7OgZamB2h8sGj gWcpPs7AaxsOGJDdhP+sxWTpds8X5kZX/f28I2JLgfYhkddRqiQ7idmP7dLU U6UhzC29Y9fvSlGYqAfqPBsnwjtaXZxyQhQFzYBcvzXR2lD8y2WlWe0vFc6w Y/6fQV+cN9tPp7P4uy/qg142oCVigwSRgRa57O3mvL6CVpBTWIcUJ5KpuG+A cTjNQ/44dmId3QItY1Xj5TTwZ2/yJQ2Ku47ofnaPJ88XA5cduHA5sKh/1r8c 5Nr0iJUomUrlVl6LUAOiz73CTyL5bN5zxsYJsqztQx95p28vLCU2st1EU8kn y7HI36/9+ST3Zc1nA3jl+/lABZmaSTGVFKIoZga79719hxDn3jHk9AajS6ts EcPe9sbDWCRw5UIv8qOXryrKQ6ezhA/J1RpdbEBjioTHigZaRTFIhdcjUx0t /Z4Y/bLd9eiVgZxaddQvUv6nDdoEWsWfYqRAK6eBr+v38u+/oMGDMEqZhI5g /BvtLHpeI0yHR4LFMX4q4RtAQhXhfh7Nuyo6JSoTZblPIcPRsirc6bJFkRkP 6eY0Z2j+IMI7shYjngSHm3KXrqhCQCMhilJmQO9DKYi2wcvBinWF6eTStNOe i8qI1zyLlaZSUumsumbHD7pW9FVANRvACPQ7UlSuJREXaKGVHTR93uVy9pMv NLZ2jH8xG5kLB32XmdDd0jo4JV3wrzYQaPHCaOCFSjGLEqFy2q9VL+SvN8++ pKiARwbES2dv/orpE0rPGmubWtgtukB02ppJ1MkFoqZWUi25s+I/Z2Uv6JB9 8hZfq3Z6dE7+Tw4M+B9i+kOUABVkKtgbQTMhiiJmQG7Pf9JB/YJE61u+mLDy SaqpBfVHFYMo3NNZ+6rZAFagdkJRuW5CXKC1u+ztE/Hm+3vbiciNyTf7u1oy MQXR1P5a/4jD7Q8vrmMdTmgTaCEddPMYJNBKr4cu2LIbtcmowL02KptR75YC NQE9B7b0gA9qDDFrZWLieXR1UGpQRToZ/biDtXzBZWXkb4Eh9tRJ5w7b4kCn 3SkYr2omRFHCDLLdVrMpTKL1wnRCTHeI1JJvgMqTWN8JldYW4p/O2lfNBrCi WA9TsROIuECrqJ95t3fZMB5AMKDRqszWj862BpOpdSy0KvTHL76lCjTtAWoT KmlfesQqNYaYNbIjo6Gn4t5WkBsUClcLXWcbucmXy2L/lHN2YKQGv+jRm8zJ ziiaCVHkmwFTi22ynvOviO7BRT6+edZKlE0EkY+DI4fxTmftq2YDeIEMQ6ep mLsTFWihJbSU6zBWlZxQdAu0DGGT9FwDIRp4hKLJTQaJKQH82JlzHCRK192T S94e5NHlGdReAKpuVSLQItfCE4gq33YhtC7CWXJP2w3Ud45TYqzcU66ZEEW2 Gezd95xoNJUWEAphd8V3uq5MMnZv0XOCIMQM2tYFlWwAMwoXtYpD9EQFWoVt 4SvPQTYsugVaBwcDjxT/HEUhU/HrvYI18AjQHB5QiOQPzs7233/5S3GcRS1D wvxeCZQNtOiZyPmLEb/sck7bDaQoVm+R1UaIItMMmIlCsjT59DTkEp1JnkUc x0zEK+4YxseGWWoj0OIMG6Ko0HVNRKBVdCgpbsNoHDQJtEpp4fWeDMUL3SLS VNc8/ve4uMFsMf+wjftl1R5xAtQazxdcv0MM7HeuBVHtKdAVtkKNjzBoxXKO up6rD4p1+5Xh7GoNFGhxDj0NuMjKNAN68ZWZgqACKlObI8JJXJErvr46/Pp7 l8DoNiAU+hdBKJ95FhFoFdQzYq7Hk4EWgVaxlE73Wee8MBp4hTDQ2gEYgRc/ OQ+zXo844VkU9zAp2PyHHZRMIekUieOZjfSwqNiOTAtkmkFWSyaiSqg0tP0U KEnofYQxTpEMbgOCoSVzLOWz6IIDrcLgrbQYtSrQItBC6zJydxS78aBcGA28 UuB/TgoYCHIrfBFp61C6JrEiCgZaT0OjSNGQpEZY6agTaXYJgZZm4NFskxoD xJnqsjkzaiWITndMbGpUDwxuA8LJaWnylBuKJDTQ2ow6EfmDqc429v26AX5w SWgRaBXPWZawNGgJo4G3nP5SUjRYnMGr1rJfQBe4sU3doP+xWO+OrrDyDvGR YYvipWI06VX/GcTfGuicPb0WeCO/8hhwkVXODGSx4u+3IqXZtELe2ueLY7xG 5DG6DYhi64EHTUE1tDlulyjMEBRo5dqA58FzlqVSaBBope+6jnAOd/HOEErW wLNAc3hAPci1wBASx9cPBXiGmJRAKTF8wZ5C2kQYbiMd3EUFKEYXQitdfCoR qh8mcca/Sq2zdCVj2eZauGF0GxBJwawlotMxV+R+hARa2/PubmSCBNE+MfvE CHG1VNQPtNC5pTRYSxwZDbzQPvAl4U6gy9IwGsJ3lh5gJAraZ0nTsVA5BAVW WG6yWlrFELdyHHdRAQejL7JKmYFM6JQmnVIzRJNSFKPbgGjIzR+neg6yT731 jRtxbuc73kCLnQtAI7i5sXFRPdB6Efee5DZKl9x0RQPE94EvCTSHB1SioH2W xOGAaEtwGSssN0biyGwEw+2FaIj2ennQRdaI8gCFzEA21Cp0ZDz8jDkW5xmA iBVGtwEpkMk77l4kr2U55Y4+ZSPMioEWmbznGzmGzBU/MuCp9ihrX/1Aa/eu q42jVyI6PpnfxvW2Mhr4oxNh8acxKMV3tULXkRrl+WLgsgMXLgcWjZFxlNc+ Kw+6wsqo1OAItKRNJS5I0BmoW+m+aiMjNUMhM5ANdeqRvYH0VCmsjzwKMboN SITc/iXoeJU9/CPahjy3E9vUIlcu0CK3ErevjrSzrWAI2/90zz2SkQNMJ+M/ BG74fF63M+vGLwz399rtPV0nryy8wMyA1A206DwwCs7prFwf+JFpeWFW8ViB 2sgpi6JUbzUdMcjvU9A+S3JYotA2nONRJQ3L4/bgEt+nQl/QQIVOyBgLbLIx WUPKXMADSgZ/aCjwG65rRDFGtwE57K7Pf+noPZzf+RG23gtuf3jmEre36eFR /4+RwJULdvaVJvOxQdffYxsyhyuhZ98IGKY1VA20Ug+8veh9ICwDvrjQCWga k9PAW0cComu4iikygLzUUxzb8cB4h7nB1vvJHN9ME3L7YeSbv9745s4qpneY C/nrzbMvFZyv6gbx0tmbvxrgrhW0z+rxlqjL2nvwxcljL3t+rmguqIidkD6K kxNoSYn6uOeGOO/CSvIoMHhQztfXG4XMQD5ZQyIO/cXjliiD19FPyrcBMrXx IOz/1DHc39ViMZlbugcn3F9FkctLp3B26eRWIvK1e7y/1SzEndc3dQ07vTOy Qyzms1PJp1ST8MXo9ZFc30sspyWqGGilHgdGONGGZdAntY5PdRgNvLXX+0CJ zAa6zaGR0n+bTqRT8O6V1sLjbdQrrf3+FcnXDWBMQfus0vXvVCEGv6tBW1dJ r9TgBFoSGjElo872/N8bpW8SC5q4lriT0hllzEA+1GiA+paWw5Jk8Hr6SZk2 kHoUufpmezZEsbYPfeSdno3MzfinhtszQePA1fnkbnLh8+xZG3H8/AzuWT5y e+2X+X8Grrudo3a027vJZG4fnHC6Pw+Efrr/RCXZELkTnmhkPk5Sal1t1Aq0 yFTcN2BBQ9zmIX8c19OZnAZeMVdf3KNVgtYU7dDCt1di1TKN3d5fMH8kAUkI aZ9FT0UR0GYBrdeQ/Mijb9JwPvRcnN2Ra9Mj1vzfyxZGag/qPPXMB8lAETOQ D3snJXQI0dVPSrcBMpW4NWmn4lxL3+TsCvIwp5MP/t+gtd729scfdTPvbqS6 dVFDpZUBGcVY90YAw35c6gRa5OZtB6ezemPHZATbygLmaokTzqhSg+I5Nb8U TcPBJyLfBKmdb5wI71S4fei8rWPOqGGeSEAEHOW5qW7AX+KYjS4DPDwZ5dWC ZnMZuSVWskCN0yJPbEaLHnLHfBtDNoVGohSi37+q9+VIQREzkE/+TkpR1+jq JyXaQCbK+naslboWyyn3/LOii06vBd9GzoOkVZrohPaBFlqL3enBsRm68oEW mVq9PYXWfpoaWse+TWB7ykyuzTk6ldHAIxTdV/FaU2QV4yucRypfjNTvERAO Z3atyXRgwP+wyFqZsXFtrrsCTqlRbYnk8StoHy1RHd3J7flPOvIrVNuHc5v4 bUL5QM7dsJSFCEIRM5ANszRLau6hq5+UZgPk6nfn6SjL1Hw2UKbCkiPILBy6 jTXaB1rsVHpcn0SFA610MuYbaUVzWdaOiWl8o6z9nRX/OWrjIK2pdVm449tM ErSmSKNXvu0MGff15gptu73L2N5sQDrcHGnJc0N66mvdad+KEDUgkmyX7glR 2ZiInC25fmsi7yVwlm5WAp0cJCFfjQmKmIFsmKVZUj2Fnn5Skg2wzdUJ69mb 5cs/kIkJeB6HlUPrQAvdhOI6iJwNBXNItUAy+SB46bQNlWURbUPeu9ieGGZ+ n3jg3VbmghXezZHL3m7ufW0cD4vpwYcKD/jGkLGHSrjG84BcuIFWiRMWOkck XEuMeicZepXdBXdnI/0uAocBcbodlj43MQTIOkgM6JYLkotCZiAPZrsv5dxQ Xz8pwQaQcYHEK+5Y+QtGw0I8j8PKoMBpjjiQzQKmBzrpzdC7B0xceI65i0kl l6PfuEfaOdWdhLnjHd/8U4W8j+IFsGRq/e6XE68gw5bKp3ClXO+zu1OvFQSw prapBRFKe+RQhsd4yJ2II5f9x7LgAlAAzlTBEkck23dcHY3iBrMim6z64aDU kwmmkIR/4aBAoyzCdsZj1CiLW26GYd8e4ShjBnKggyVpQwF09ZPibQAtAOHp y/o8NMq8t7G2z3Q7ShSFZTmFIBEpFgO8yO2N36ieE4mHSwv/HglP+1zD7SV6 X5g7xrwzkYWlRAWWFiJz4eDfPK6L57pshW9h7hy5mmsSKx/FCmBTyScrmesO BT6/fKG36KKz+bdB199C0djyk6To+DDz3sxtmQ36/o3TmY2loWXw/wTCkWgs Tt3DxxsVbhEiPOAzHiSeN2aNOSAEpIa9aEFkZoe1/Ckoxs2gy8QR14JkwyE3 opNdtMETHR9Hk+XeaHd9/oucroCwdH84kzDKmJVSsOkR4qBjzsDfRCkzkM5m xNEmUZ2ur58UbQNoEFJSZsmSXnDlkmVYbp/ZcCLLcuxOJLP2felxDnWUakRd b7O/e/n6zdBchBtZPE3KlxWxvwIeA7xU78VNmFtPO76YXVSmF9m+ogWw6fXg W5ZKF49+D7GPYeYR7hbfe7OSagsRHvAaDyJnNfTOGuAhOe/KmRlbV0im1qPX htoIKYNZUX2OKCl7EamHM8w8jpKp7FQy/oPPcZLZ3WQ3YnPGaKtbFjQ9gqss RCjKmYE0GNW3FPGGrn5SvA1szY4fyFeAnPTGK4zPQhoE4SnQUiackK/YQX8F PEoGVAm06pva7YOjH7p9wcj9VUWbkSlbACsi0CKa35sVd877POo8xv++hRx4 xfugzMegwgO+FnxshtngO2uAF3bqPbVDvHbl0tipbENmqWJIqrspY42V99f8 kJuLgY96bfWMW+j647jT7f3C43KMnuloYlYXc8fQ5F+jq1VgpEj92oGLYTkD 6DFASTOQ/OlSmkvo6yfF2gC34TBPsPckONwk7JU6gUugVSTQIrcSd771OEZO tWfcTiY+eX3EeX0mtmZQDaXaVHkBLA+I8IBvO4NkmPUcCwtoRGotFnSP2lsZ J2c+2j9+JSjZjdB9t2gvpYQ+h9xO3Al6nSOvtzflBWWEuaVncOxjbzC6LP5M HlPY+0YcGJ8V28kcO5Q2AzHkFkopem9d/aRoG0DHT/MFeztzjoPM7kRkFVWN wRFofRF/POcZaiMIW9fbLl+QUhm5hloyN5I4MuD+l8Gz6CpQ9QWwlUH7QPL4 n1TCN5BLRuuR9geMDf4FOziCnFgdc0SqYI6wfmaQazUppfO5rn5SvA2gA3B5 ekEgOUbYPlcEqSS1nRo6ZWuwdDsCi5uILbxYnXmP6i1g6Z6K4tsDQQeqvwC2 MsgjzNt9C8kw6yNkBYwNMtbZuM2gNAYJS8SVEuOLXmaQK/GQ0vlcVz8p3gY4 YxQqB3uwfRYIKtDKWlHrqH+xuBgnEyf0USGuksNfDE8NFMBWBhUe8Dk9ZIIG d0u482Thx4VqEMMAKkP+Fhhi+i0IbIRV6+zedbXRu2hzj7datnf6mEG+aQnv MOhidPWTEmwAFTXxDAZFwkJOBEmmVu/dXlitlgN4+aB1HISlz7tYOuLdXfb2 gYvjUkUFsBIRMdYE2dNxh9Fnd0+NWNS6ArhDbkU+YAxOaFf5Wga5XaK6luGO LmawER5voRZJCf0WdPSTkmwAHStZWd+O5L64krnsVzbqVE01QI+0bBdC62V/ CDbIrSaJkRyqqQBWGmiGmcf/lB1bTzmWaqoOANQkn1o3NXa6FyDSqgQ954ha A4XNlDQO2ptB3tdJKKzT0U9KtIFlnz2X0qo45w6ZKsLt1Q/b5wIQgdZh508V YgUkm6jfnCmMqK4CWEkgmy8+YSrdDJyGk4umjviNX3UOaAWyQ2/+IAJmUx5y xcfoRy1n/YmqirO0N4O8r5NQWKejn5RqA0jVYYVAC2n/W9DElVLIKzyT19Ag A4UrH2mhYzW4Kc0aBQpg0c1Xhj7vcpkHmVybc3SyXVLRCZXkQ//AwWqoOgc0 g92kW/t8cYi0yvAs4qA75lVp6k9TM8j7OgmFdTr6Sck2QL6ITtI313TQESk9 524nMX2hNX+5nEzdi7j3JMF2KgaEH2khr1R98KIhgAJYVHiQ4dBQoNRcIfLZ vPuUhWi1v/ZS8RZpb9FzgqiOqnNAM8hU/HovvXRBUqs06C16P7xZLVoFDlqa Qc7X8UhEKv6t1n5Sng2Qy/7T9ClMycQUHWU1Hrd3M8ND0fxbVn5vrc7wXiJI q3+engPI4VdVRQtSgQJYzh2gnFDrhWnuSDgy+SDo7LMQx8emf32RT2Lndzqp uH+omadaEwBKkG+rUqXpGpmw2Z7WsdBq9T5eWpmBUgItLf2kXBsgUyv+oWxN fWGJHLkdD7lO24hDvVO3V7cW3J2N3KVtO+4btFRV8YVshPcc4FiLpJGaVUbN F8CiwoO6luPHqJHfhO3knz1fZ8dxhqd9l9+12xqQcXL5VPMhu/OrcPjbK8PH CMtp7yIcGwLi2Y15eqgqHsugL77N//oaIr0Zfp/KodTZxr5fr94wK4smZpDz dVIG4ujkJxWxgXQy5qNGqxOW7vFr07O5q60nbKddoTg1xo7cjl3ttVDxmN15 M/zPwOWzLXXZiNGg65oaID0HeA6/yISvN38aC22Z96EAFhUeHBwM/JbaeBD2 f+oY7u9qsVCjTLr6R5zemdgGZ5TA7kbsH1fGB7szrzG32kc/u7VcKUIFgPKQ qbhvgPLwFScy1Bzk5m1HW3b/TLR9OFedh4YoGphBXp8sYSS3Pn5SQRsgtx9G vnKPD/a0ZEJEc0v34IT7qx8T2+iCR6bWFwJTY9mBfURTx5mLnvAKRFkI6VX/ GSZWIAYqDkxElfAmoteXALdW6wWwyEQhHuMBAJVIrQbHKIlI04BvCUwwS15Q XWd3/1wjNV9qm0Gu7klKhkEPP1mLNoAzz6POY6WOtIpB5XxV1GFYFrVdAIuM dq2mhhWAwSCf3Z16LZsxsPR7YsZ8lJQkH3K0jASWayjyVNcMaCUzYR2dEd3s Twc/Was2gC/JiKNFSE6G05kTRG4MNV0Aixwl87RfAwB1Sf06PXY8e3TU+ufZ 8v2WawByd9Hblz1EO9TrvlNzE2lVNAOqwFzS7DnN/WRt2wCmsIGW2REpH/ru bYbeyTUygBofhNotgEWPkiXoFgBAUVLLgZGWrBy397P54jmtNQGZSnw7ltUt 1/AKq5YZpJ5Ev7nxj5j4u6qxnwQbwJNUwtfPH2ixww5qRF0pnJotgN2MONoY /wGVEQAOMAmNGo21yGR0qtsCKyxmZqCpnwQbwBVyJ+Kgu2iVb1eOTDogOh1z ME26gJosgEWEB3UDfij4ArAgtTI72WcxNbQ6bteWWmvvF9/JQybi2IjvHqyw GJmBln4SbABn8uKrMt1KyWRkkhm9dKjXswDdakpSawWwiPAAKiMArNhZjf79 RmiptjwVuRr9+utbS5vwJObAwgw09ZNgA1izFXO/QjVQKzVZgDnyNkE2EkBh e7USr3kWq6XRPQAAgHKAnwRYtufd2YNdwjrkX2F7ppGp9ei1oTYqBoNsJMCB XP+Xq/dwXVPP6PW7YBgAAADFgJ8EEMjU6u2p3kMmU72t9/2symhuxu8e7cpq iupt/ZeCkI0EAAAAAACQQ2otFrzqGH69vaneRDS12wfHLl0P3klsQ4wFAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAABgWP4/51iIDw== "], {{0, 105}, {803, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->Automatic, ImageSizeRaw->{803, 105}, PlotRange->{{0, 803}, {0, 105}}]], "Input",ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztfQ9wncV179dPzr/2vqY3DTRuImwi7kTTOHU1qvrGfm4itU9+pmplJ8RP MSEaCfCT1MYjAcUKKTY8LEPDTQG5DXJeuS+xhveQ89CQojCIxEpikZEcLBp5 sAZEkRkZdMEysq2RNbJ1pbvvnPPtnt3v+/ZKV7aABK4nPw25d+9+u2fP2e/s 2fPnb2r/vn77jtq/b7ipdvV/u7W2qb7hpttWb2y8FT7K+y3HWfGU4zj/e7WD /y3gP+UfAf8L/nkG/zj0f4P/uvHPb+W+f69+fxf+cYVITTgrxHDPoyK+82ZC RfFKVziRYvi4orpR7H74IKHnWNIVM2nxWaPfE/jf0C595peirWY9IVq8zRW7 Dr7g5ImpND/NGMI/Zf+jeTlGkYb2qfEjYn9NEcFxYIwlNd+Cjx871CcGjh4m dCV2uWJrLAIfQwtRUvcwoefEpCug28L31tBTA3FRAItb4Ek4LtoNMIr2kQsL DD2LH6mhzxyH9omqGLSLEAqbulwxlkrnyb5gciJ1ZpDwWFO5KyLQI4w/skk0 d75IAJJ8xhj6/1AEnHldDPwoQWhpBAKWFtDMC0pFVeNeQuJHz7siOTO/wkfI M0Oie/9uwvaKYngi8WnljntFe/8YISXEDeopyU5RE3EI3lydApjrto4TSFKE R6Byns8FMT74E8ITvSeA3YW4XX2XHheDTz1FeFYuyj1qaBeggfwRAX73+ezH 8LkFHvFLHtq0GE5cT4h4y3YjdNMxepGX7YOqaeqk6G4uJcgnFkHTmsQxYlCA E8stya/zktzET5gTU8OdhOayfPwZLkmsqoW2Dto++g+5ovORe+Dj6pKVIlLS QGjrHaXNWgrpzPCjhJpYhDupbhVP9/+C0P3ILbDc0WthSLsPvYbLhXCup2GA sM+/KBIbVyLg/6EukSei9V3iFAwd4C3YX0rCp8ag8759tSLm5BPK4kdcMWWs 2vyrovPGIgLsFC5uE4G9czeTbYy6kt252Bc21buasyHLMX4u+6f3qabTfaJl TYTgLdrmdmh6wmj6IW/S6akBaL+vcrWQyhaurytq2oeg/Ywx2k8bi1zrE6Kx LtFUGCHA+rgiVtsBvx2Z5Yc5atNNz4yK3rYGQkkEH7P/CPL69JBIbF5NkCz2 Vfi4/cQF/Xwx44rRzkboKlZ4p+iZmEPoZRaTYiBejmASOivvED2T8whvmf+C l+Y1cWj3tYQIDbjm+9D++NQcD3inIs4gtN9Pr5EiArC9ixS/U7HMa9BAdkSA vlzs6gtZjuyPF3vSL0xaX4A34FpYo7XqDbi6pR86NOik1tVrPz3wbbEO2q7T b8zN0D5+dIK3i9y6vn/WNX0SftvVUGzIeoUrWgenuHN89SQP7RFlkdWEa6ur QOPzVCNsn38Xofe8p0jBT2ZfgO/aygvF5sQQYVaIbWpFxLyY7LmDsNJjAKKT Uypa+s8ivBUsVVTH8XkvGk9rU1S/w8eYyR+L3WX5BG+zShwL7IPfYJYwX15W lvi06joF7U8PPiOe+OkwAfr7g+zn8cdLHOFh87HJzjpjSaD/gvgAtE8Zy/8R xXfpUdFZW4hgvouUPyiOTs4hfMtew8NPi4uD+wjrjeGvjYuBC2mE7N7TWXD9 PR7wnoDctQMZZ3xOGP9w8Bfh49GOG0Vk/T7C4MX09ZLxk53wnVRTJKKuWN/6 K+j0ojEx+ruB18sUYXhypOx+aN93Rq/XPxiTmh3pINR6ukFQL9mp2EoLs+Oh 7H4XO42peeCLv6uuECa6hdA6OPmJJc7jc9mPi9d+CtoPxEuzW3vJhr13EwrV OqJgrjaF7+ocB+Q4IMABuFlPi6G2zQj9vqruFEn4BuD8thxR+iz0N7hvK1NK vrg3QfvWwfM8IvXqnx9OiI1OBQFeJHLtQaXF8zcotb6JORsT8MPh+cDar1fP Pgc/emH/DSIKP0A4sTpXtA9P3aXIhZvleM9ufCMRYAcGNbj7ZIBctypypc9R f7JPFztEg8Ewq+EOM8Cb+OppXKsNBrsOu/COF1cucUZ/vMSx/nRBVoAlgvZJ o71aqOk+aC/1e6N94Z3QHtUo1X6VlRlOis7qAoSVGSKSfumTHaIKuq7SfLAa mlZ1vMpqBttT5l4QbRtWEzYmXnSBUcVX1NRwXftbNgSGGqmHX3cmmRgeM6xj Vk8R+SQJ8dnF0L6+8wQf8v4nL/OEOBrfTPBOs9FqaJp4SS9zU+ZVgWM/dBpY FWaLaWiPcsNDX3mHiwqeYots5/Yn2Y+VOeI8imLrpkDXRa3QflBvxMwRAq2h vbvWBdqHDAQ5jshxRBYcMTcoWosiCM0RGxO01wEkR+TJZY4iuN3KnT24dSI0 O4gJGgoiUtflinGDHeagwUT3bXrj98a5Fj5u7H5DpM6+Qujv+p4r4jvr4OOt pdq2W1C61RV1zUiFjsPD4mwqjXDY1DcL/3l2+KfiQEsjoao0Br0XlKHhadf3 xbMnzxOUdv5J9TtS5Uc7RX0sQqATROEtT8NzThmqvLTbpSfxzBsvz2dqg17u olLeyCRIU3+yT8+clYc9sq2nUD17HtrL4waB3h5w0Ljy141kVyw2+6vU1vG2 GmlbTLqMd+0I6C8h6fttTeg8k9D6UFUDux/MD2CXj9SAiBc4CC0f3tEYoeVD nBY9O4sRul1RK8krwPFdSIy/SDgyNO7ipJQZJH2iXWyG8W3m8a0Q0dJrxaaC CIHmGCm5ET6+v/0p0Xt0gOAzsOaLgsq7CZ3H36Lew8q+p6pC69Yfif7+HxMO 7NwEfccakFNGppl+9HelJOLsMJp1tsX0PhNrhCePzuw1V2Wy/1uG0QJU6JLd P4dezxii9HVFjNlh6k/2iYobmoigR276R4qtNG08AV0bPxownVzx60vG318i gT7B3PKumtdb5DDmhtrEBhjtBr0BIZfv7DnNI1ZyYNxcWA1mORnLyVhOxt4F GbPob47zVbLSA1jzx0ElO+sJEdMGqpveZOnyg+p1WrZHHEpeQPDVYnrqFdHT WkuIRa51cfrw8cWxTlEbdQjehNfvQ733ol4jUKFc0dW0DjqO1naKMfhmTN3m 6eWbFq+01xKi+qgibSQI5z7VNH1K9DSvJ0gSl+Fq9I6zivy3iolQ/ZddSr1r tYudQvtZQx6U6Bi0yGQxUKLzrpHtiuzJwOrnu31DpKRDnO8Vu/IdguwB+XhD 2wtijiR44ZOK42wisxYgw7l4jMyCAOM3xSR9AOc/efSYH07AWDbqUxZq4i4o 4m+yTOjjDxns+CK9CZR1RV11DUOGsOOJ7bC8ZYTqGz6vDLHVaI00DEJyACN4 v7slsknEB84hPFnwL9foQVEDzFHDDLLu2/CjgWm9XCwQdFI5qH7Cwr7uW6J/ cg7hNCzW9NvUM8AwjOojoGP3OmBZeKfJdcVi09EzV0R9p27T9jBN3iQLJUDz 4uZ2utUHLKwNOWuRGxE5Ps/x+fuYz4PXICvIHgIKLQHeOxE5xAtH0aCxNmBg D1/M6zu2OTLISKOMWhinFpf+JOsG+i7Hb/dT7as64LuTxjtbLsLruAj1a8Wa lj6C0m+vUA1OQQP55pYodEVt5yjqhcZw/1EtGjLTQNy0JVoVGeVjZ1EOcKuA B4Q9z/yU8MxSebQufv5/N4im6JXt/D9mCMw7doWqReGCONH+VYRm8ehtohu0 IIAhCpZ2ToGo7jyJsIiCN6Hp/nsJazQpQ+opW8pOI4PtLPbLQ7i9dDaBgyC0 3+x7VWD7lXdAezyQBPufOYZbgs8RDdvn3wUf44E/QDXPbwLOImvuJfTL7f3j 5vQGvq1cZWz7NbtEhzTn2C3QtCup+e9m9Vi7903oBaPcf0JEgP3Dxe3jyneN SsqpJYtZf4zZ6x25PJY23LnBVviuyEeTda7Y1Tuhz6IZ/HEKRV3XGCLH8TmO fx9zvHL4y+AkEFJHmeNRk8MXib999DZo3204Faj+50iN80wbZv87kKz6Taf7 z3BrtRXaJ4a14ZHNBmRNLCfEByb97K494VQ3QfvOP3HTkO6CrtblbS9wU8Xu 6VFoL7tcSC1Qbh5hCmxMuLg7XJmxwdtKInZZXHzKmtffkbt/Fd4w2QMNdq40 ed3qTiUJkhqIQ/sCn2yUujDVKRvDk3lORjWY8rgGOq/vep0HquZkMa6idQwk L8TrmS7TUeMyDFaaXD6jOSvMKK7BNbSRi/79nnq2fROOoqm7c0xvX8zwGV4F hgHtpkWaRhuoZ4BTpEaBm11/S6mmQGSHi0zMx+93lkRXZD9b5vV3wKtBMbq3 ldTEAtQo2QO/7j0TknwLo0dvc3HbzTF6jtHfd4yuDIrpiUOiuTCC4AGalxes IS1+EcAMnuEVm+lazUbL/F29AtW78z4aXRCnh54nDI17XPAxRaM3oEF3U5Gf RiubuuHXE8bl4wOyvTSQme6mBS46bQXMOWzYSr9B3QP0OjZ1U98Azdphx6IN 6Fh0bjHHomUmzieWOM+Pqse9Ay4Biq/FDO2xW4NSjhON1XbQRRdAx2aAWnWy oxZhXYMwe1tvKWmoketB25tG6CmhwgtSBtBTMuyiqkvLZoMjLmodDF+J2ai0 oU0MQSOAzwMhPYpGtm0+P/hiF3midWF6le+HXoeMS0F1Hoceqb9tkYxcVqya nuoS9XBsq6ejWz5o5O3/EeAQtUku4/RXLXFizKTLd6ceV0NIwxdGmJijrdf5 omxXF2Fkau7DquvQ6Siyhc6kkzzaHDvm2PHXlB3VaXz2ZfhtR6351rS64Ood +By5XgP0TA17uc1DJfMVU1YUoQF8gp8/QwsD0P0aDjj/nJkp0GKEl3RqStUL L3bIXKZYE/oWHdsKCNQUXsbQlE1Rwu5wcplUuDr7iTFXXu6VM58BJnvIniBt Cp7mt0KUbG8S20vyCbGqOCiYI5M4QuH7py5gxg/fh3c1BMeJuaJq/6DjD9k0 GZQzT4z/TNxVlk9w9LHqlu4xPoExb178lWhdH0UY8/XsWgDNm8aVsI2HJV3g QAfP32ChyzlFl9SEGO5JEHZVl7mocjvyRrZgI6Gu5YAreoYnHH+sA7OzJTOB eThY5Q0lPZOEfo/1dIjW5psJFcUr+SoP3d0KSreJxt3fIXT0DLri5FSKXzn6 IeYGqe44pw1ZsMdgwYig/aQxfpYFLY6y61AaBNtF/CVR/ersp6MlYNkvo+9X XYdezitEpOZxMXrqKKGdUt5ESuDjrXe2ic6ePsLA0cNwzm1rgo9LURAiGwj1 iV/CgS+VNoOLcxKQk4D3twTYjqSf4UmsFMUV1YTGXQ+6ItGJSzTw8jj6BZNv 8DW8RGlKGCCTBriqh9h2kTh+jgC/+KAkAxzP88REz50Y/ovwKV6ghRKg/e9w 73PiTM83CTHH+ZhHtsi6++CHfYb6wE7S5+ELI8TMuVKtIVoWr+94hUx288KM SQ55e3ij2oBmBYRiHXG+F9pLA41W58LO5Kdl+1DYtpeArBr9rR957IB4ePd2 QlkBOlZHMBNHU8cLHGWtPIG9SzdHKRE2M+mn5BPTqCKMdD8kakpWEhx1d7JC FG+9VbS0Jggdj7e7oi2+Cz7eUVkcMMIWVOJA9v1QDI5fQCwchC1vcgFKym0q zxoXxxs4Y/xpqH1BnDCQMnJXLPvyXJXldD5qcPjbce++UbEJhsujBCqevYon WUdBXwBj0EEVfYWposNYp12RPPZj+Lg93owRZ4QIcl5xxc3wcXPrQXF4eIIA 74xrFtkSPmfsawVlDYT4432uGDk7+2k1Yy9ryLNiX3URwZtxDO1I+/rGOCZA W63mxNQr/4/QWIgyced34OOHqgr8NAvr/qbUhveF8LUk7wszSPxElWJ1vS8E T7NyFW33/DDQjQnMWTVvjIhXXUfgL7jq4zyDKXG8rYrAp5IV6PVOPu/S711H EVKeP0LEnpLFmKrV7Bc07n9SDST1ujgc/yohZrzxvfgVAqzdB3jYKTE1+hyh M34jLF1E6ySbCc2PHqWXzdcM+cGztjxvaxHW6We+lpG7/ee0/yznePFX0C/q YigiUkxUvou3a+Guyn466jro7fJfuISdY4Fxaw2WrOy5vSC3F+T2gtxegE19 ewEa52bE2TeShGQyCYpGEl2UTwz9O4YSEjrbdrqioiDyIcVqBdCgcneHODww RDiRTEbUj0/Ad0MDR0V/z78R2tvudcXtW0tgKBE9a0dFFhSgntb86BGMsUdw 8rMULtvAo3fggwnkPF7R9BCaX81Mv/tpcPloXqt/VByfmiVMDf3AFc0Vhfig yLXirsNvENL69EZueVOnx2CqA4TebvjJI3tqYEAl2oYv496wm3LR2PZvhN7B YTgun54KHNH5Ujw1JU4nkwSgiAsEQU7p6fxXsad6PQFo8WEmRL4obfxfhO7+ AVcMDuPtdZJ+fIpwdmZeDdvuvBWpoaQ8xnbBPGffLkI76bgUUeMewWpeUIkQ jINQKeEbPUlK6Kr2qfR/oL66OT/w4A1t0OGQkRlERRPb/RYjld/B05+RHU+/ ImbFmeOPE5qNQyrm6Kt6kHA4eeFrsneLi5f1IMFpHtP/QYMH6J3KuPhQO5XA 0xlmXcSwPRm6py6S366lWrXEOanD1NvgoKN2qjS+f+UWgsAZJtEAdXL4mBgY 6CP0PAkn1NYmPIoarhZawDBRd/U9hEcOPu1iFDYaKIZOBHrFv2+JqVQasRA1 rO8FcpOUm6AZVz3Zew9hjRwRTHf1Xvht/wV9fcXvYNo7Tg6KZxLNBNigPmAq UoFgcbZDoWElQxqUglKVeMQViR9hjk54xwrjnzK1pFKWAXlKxAviyb3XE2JG 5ErQ+Km22PQ5+MJIbsYhvk75frq1A+gn2P2LMvpI25OIhjnoTdU+U9aTaGO3 wOYAnQF65hj5X5MPduGdLvoZqYFOdEODxqjjH2jYHmmu/ZnePYQS+/2y0pvT U8dEoqYIoQ14JTtE+/FzhLTM3ZB59wtpHbzfTHTToBszbLu832hfmJUE5ZC1 iB/YZa+TErNsJ8Y0Wz5nqS+pIU+Tss/7GCsTXu6i5kPs3vJZNWirO1h4J87t Dbm9QeT2htzesMjeoHTWCfSVNPiJn1aFWSeM6E/mKMqU8XADAU4ZvDHA4QLv CeRdQYUaG2bXG+2+x/ADoLlgylAzddg1iqA6HoIFdnVLP2mDF0Qg74zFoxIP Y21DOk8NL4DNn8G/ACyrKaSbzh6ttWfD1ZdlFVPRHP8uoTISdcW6+HPQlAfA vOI1Pd97FyHfsKc4qyncQ4Z8/KESmVnO4qFFxvB7lCd4EFroI1ET8IF1Ytuh vbzmom1xqVkiuT1KkBwyQVIvGKWiEkr66skEwnbehkVbtcRp6cVYNp+8L8t2 xsy1zGL0DwYMq+crmc3WA8kmsyGjinpaKK+t+gW9WWXKJYQeH7oJVe49JJLw 2gU4FUyfC2Ks63aCTIpc4aBvmU6gqUR2brCVwuyKgnuVabRcwHMPj6fygtU4 vGWge1UHbUqALOQ12ii6TqUQOt0DR/RHG1SYQlQ90GrbK8WwKISmJsVTePdu BMfu2KjCBtJnnhV7gfAA3W+skbKCAbSo2dMshvrl9hnsqKXIHgN6oTjXa7JT VEOzamq61cXQN97Vl29dVi1xOsoWudx+iUoujWlr/gzSiOUyw3aH7dF4mpPL nFzm5PK9Kpd840QBLEdUnT59+M0XZbt/TAChZB0XDyVe8hSvrg0o6S4qaUoS s9IMFnIgNk+J2rHd4ihiuEWzGKJXuUE5Pts5zhoymkrD6Qd1+xUyIctKQnnb Cy7GNmv/MksqIeM6h8Uxy3g+MxmMVqUdecCPlD8I/4mVWFT7Ktne2N8yaYcs kfYbtNApxC6RViPsci/X1dnPShFsGb1ElySTnJJIn+ozDfXyxFG5F6Unj1AW bIAeFR5AKvcNsGOaekMajTEgApNqTbIbQPCVxL0FN78FHThX7yW7GcBw57cc 7vAHOhWiup8yTjXq+dH6rsBmyudL0+9z/T4Xr911CIolHNVzVEMwwTNkSwhx P5+tw1mceHFLdv+c8roCpCDCOMa7RB0c7euMDKmRui6MZkWwFM6h2Q8H7O+3 IA7tB/QtpJZC3a9smjnN5/It09VZzsrctpbf1fS6pQtknhmmoqlgnFRz0piT xpw0vpekUeWc5PoXWlVdJ5q6RgmwmH/FrQPXAZHNtIhGgOMqRZsL8IXh6pN5 whnyDurl3EpJdgB8kW+56l7toj3R8Ttjv8Ec9RZw0wYEjyOK6YvxHBmSUl98 hpdWk6XUwkdmXh61EONd0FGdLxAWn5l/F7Q3EmTpFO2hiwAc5kaxt3+CAL/4 72oItmh7I4r+KwsPIcQJLKC6X7VSQdPA27hS7Aq+yOz8d3rJd8Aj84tqZEsS XpvNwTjEXp7wsozhG/BUdzPvP+oXoaoB18pfpLGmXvcteKgqJNR0vEKXsNwl unQZJc/0VIPpP1XuuFPIZ/W+K0UvewV73UyQbb3caFDoYp4V7SlqjUUI5TKV xh4VWhGlo4I8LvyuJLxptVKEN1NfKGJTAcFqJygdodeofidNicHWCoQiSXjv 42OQzXcqsoN8mABKRG0p5qwsyCJqnJhWlpa6cL7G1/i6+HMcxXX5q3J1lpNQ tzJvm59ipZzKDI701eO/EN0HE4TWXdWuKPbZQlaIisa9ojXxA0J3769c8fLp mcAe8xmD3y707yWsNrevdXSpC8jJZ04+c/L5npVPJmHqFdFRU4jwX3HE6jvF aCqNYNEM57EvbHZF96kUi+YYKpR1haHnh/xX+UIbLf2j3S2isiCfUFLzXVcc PTOnrpmpPtszPyQ88cwxijr4oqJS+jXx9C2fJ4A2+hfqYZ+Hh93y9GsslZvl wy5iMkcvpMB/nxLZ1iFGoSWA71PmX4EnPH7jJnFd+0uEOcNvPJyuyno3tJgo B7NnKtGwJJGh9uuhfXPPKZ4YS7PVoKxVUWXwteZr9VzScNhy6P9FtSZ1L0Io eqDdFYkt5ElReLfonZxHXN4yXp3l6LUn1jJ7x/GVYHpaJAeeIiRa6lyM3P09 RXMvxnanaO04TBg+O3u1Tx6m3lK+yYARVwwebMYNxLfaURffArj5GzL42WWQ 4FD2PX18XU+sItlFH1+nyTXKc4/CW6jmQ44/1xsHHWPuIMOTi4cSMnC08Gai Ty7lciEL4gN8ElFySNHcQ21fCsmhuep8CWItRR++/VlM1oIOa1xHAksRGKl1 9aawpV2MzAuEIWhTpHoAjEHrmGU2IVFumjqE0U5nvue64iRiBR46Qc8Z62yA j6NOEZXakOU2rsvy6bfzImNYxJOEeM16l2sSOOiPWCP2JLoI/YcfdsVW4y21 Hv5zV9fzYqD7AGFPtf/HTsEm0dj2EwLIwVVqiYLbvooSCtm3ciyfY/kcyy+B 5ZWlfxZfHkZCStbwK78LXxyf0S81paxNP4/Waap8u1FIQxoFZ31qsUGEpsDM Dir/SPcjCOcvRTweh1dw/BH4ontE55RXxqL5kXaxBVSYLSYx4US0vvVXhIsy P5l3orMVmQ+VZ1Hks1jUrH4drJ3QIbSrkR3ZbcKn+d1yzWzwseZ3G2fqOj+K 3z3/kwIC/N48+KCfs/R1vi7Lp9/mTSk9g9bDHi+cF6FJjF7E7UcIyZl5V/Vr N92tME13MsnEkUdRy6wI7g4oR18XiaNvElJGQWr0hsFY4e4nOgmdHQlXtMYx nW48vkfsrKshVFdvA9G78QBuhLr63zLJh7gIX1C5Gifg8x3Uma81hy2t+IRI OV5HTaeVfIzjHZZhPc48CPqrD6X60kL9IlSWgjkzA+cHjaqKMPPoRGEkWmIe MR0mVJYoI3OkIYEUEkCYN7fZhTfvhZleO5Ippvf8dTYQYJvGmb7lrKALCCdy A6F95EK2T79VTciIr2A7ErlpD74VMHdnaaxWtvH01Iuis3kTwSjgFEH/q/r2 Y3wpuzXHrDlmfX8wK8eTGKWTVTyJGaCjD9FjZLb1TLerbdVJ5CDQOppnJpJS gwibFQ1m9fJS4FtcvsnzTDqZHozMr2hJNnS0xfhVYLo9w91OL6+RPcqWgk/p YqF4Ib44M3hGNoZDguPPHKAVEFsGUs2269VwtRfqZkLb0DT78NLJKOoh/pyL htclDWaH95D05PPwxf5tawM0gd8V3iaeGD1PSKvcIVkyspE/IM9MpGYIfhFm PyEAJ395WRjZVsjYidxIWToAhoN4sAZlFCW9w7irkIPAkgH+OPaM9KS/cv9P U8hYk9ZfeZnN8CTmYqxziYVwsuXiTIGSjlfcCaG52PA0VgQMRdBcIhdbyvfY uBgTEqDGi4Z7abx31UrMvyzat6wmOIV3u2hyXNJgvq4az75M/tcAbZJGBTt+ dILftR9cCgtz45njIlEVQ+ie0Wlgb99p7vlLOf7N8W+Ofw2fNp3vowCrahDg SSoewMhS4sUDxBqedPHNqq8CfBcZH7DoYfTwmOrwLXq1bwhxrBlJsxjHBoMs P6kmZjhAZrB0mGkv8ZUtg0dYhQl69H/RaB8uRLtUriXVAKG5llWjolblXMRc CzrbWGcDIWqv1lu5xOH9rV7XPBUwahhiPG/B8vgRwmRafHjprOzte7OvPErY FtU8YZQhWi5G1mVtP5RJ9atQjaefJyscADpQK6LNRH42xUgTI/7KoI9PTrha cAZODboIMKdanAAzHfcyXP2H6S/D7m0V8S6BV3UUjOJVzv+Kx0Z5dMyT300e xu8KI+jpQBie9W6HlzCeDKXUbfzDwSDZ8CXXIZ90MHfxFouWGyX/Y+mD/MUc c+aY873MnKHXtsqjE9LYtCrrc7YusOhh9IPPqKkbQVrqUL4FM8uPGLcZ7D+7 JP70lsAotc7v7qDNTqkRmW7l3ikWZXUGE4hg7vRI+T7C4HQ63zonGaa3wgzT Mzvx7i9LhcyDeWm8jEZHLgKrGRS9xKSyhFgaN6vGRillrc0GM3FuvixWjulJ W49OYTXxr+UzDMfGKGFdy09cMZpMXsEZ7YZF184ShD7gBWv6MKuL87QeAP3o L9Gj9V3cYqwedJjke/BMF8TRbY+KV2bTCOYve0Kl8CJpndYXs3KJOm0tDRzg 90HyIhaYRTWfn6MIIC8KqBwL9U4qvdGsvx2t7XTRqlm5xLEq1rYxYMjL65JY 26zC5RMa07Uyx9o51s6xdmbWxndynvlO1s8L+hoo1g77vEbrXDSmabdrvYaa tfVrmLpjHWLqOdG6uYLwd0++SpnZlM/4CCa13hJ2+gy+GRfj/CCZP6VnAvo7 vOjL4Rnlvms2n9+U0t8zRE9lYP4sLVr6LmdezCQHCE/su8MVdVtLpRYRKa4g 3FDXDMycwIvN/pEzfGWmDzoLG+iu1NNW2RgcghIEXpPpPkrgTUm8V8JQQBPV NgVDuCLXY2KR6cqlzLdOjcJLTr81xHghZ5tLEKHM9jDj4urtFiCsRCUvaqkQ j95ngu53obwnXB3auFNjUTICgP2idOEoFV6i4ksyTRrnwsE6vbLUoG+TNwmy VDni+Lz0hOjfuxHBsw8VlZadp0+iJ3dV+BAQ3DiXJESrTNaeHekQtbEIgeIa Klseh4/7KP96J+GRPTU6iX9MlDXuJ/ScmCSHMO2HvbBEsfHVNGs7613cOBy/ gZCFbxbae4ZEL1/dyp09LiasDGx6EVG46zABvvubSxGwDM4GIUvs7yxFvFQS zFCOR5M8qiJATsByApYTsN88AVOCYHPbNpxoywi7e8dpSVmiDP9vligjWNsv UVrRRbsEqpEX2RCX2Ud1g9jV+xZCS5S9FFmIvJKP02eehfZ7y4JJeb0MGM1P c448MwdE+GwQjt23CVUG5y2OmVHWKP9QYsiB7cOGL6qYdcWZwQPwcX2JUVgy cq0rdnW97PgL4/DWYatVbZMwvLjquVNlroABFN4OTbvG9BUchyk+De1vKUTZ LxayEvBH5GRsOfdswpWBJg3yEaOYKdgI9zKGrgsPcxqspchVKKDBFFojNrVy WUTrAla9bFmdnWhldGlk0TISTbBoGYkmAqIFCnDv3YRCp8DFy4jAlqmuvM3q JnJK4ezfKnVfJp/HTOmvvXyUg9/B/GsIg+A+lybOzJh+Q3Q3FSHUYMLJc7SY 6bsdm+sh+5di4nYjlS8PwsgYrpp6x1vKfEIw5iczn9CqaQGz+VTqqFTFPLPD KM/bdEbtSNkeVxxKXtD1cU6IzvpigvfMwrtxdzFuAT5kjtHm0VaRJV30JUoG r4Fg0fklSlmI3uoXoRTgf52Ts5yc5eTsN0TOQr+wyZkORj8puhqKCRn8n7nm gSVFv1nM4T7uMrv4dg75eg5+FF8XpQIdskgHu9KkXxdd9WsQPPFQ/RKWRnZq 80tjMABRW/N8OZX5ahTLYFTve5b1S87sgNI7efRBiynSl1F14ShArRuxQKLv 4FT/fWqv48ZmojOdDylFmUlkdhJX9RutFomXphALlxQ2GN+XP1lmXyUQHSJl 34T2ncO6lICis6WStLUAApv5MEFxbaF3fxFtcFHfrMiSRg2WufB2n38X6fWA S5TMWRTAjtqQbIWODPwLTKEgrb+Euq2lrszvK62/hHiiy0X7r+M/lZplDN8p Aff7l9n8apWAm+mKbV3ep2i8SPQwh/9g0ciR9huAR9YTmntOuZyGT/JysrOe YPoVBn0ZWMAzRBgHIyiVYFEpoOOJ7eFwQyzYVvcw4dDwBCXq8VXnG0wQalRi vTx06iGXHoBxEbbwuY0dSNLnxHDXA4T6skJgmAqUrYNDWrY4uIDejMHkZtFa 5IUx41Wh3Y9s5zVfEsM/5InZ67pidchHegjDZ2c5WQipKicOidbqIoSeoBdY hPAldNSh7dbNYFOWNGuwtLOZKC5N4IM5sfkXwYtXzQ1pMqVJcxo2xZQzlS2P kylNmtO86psrZPXNmJDmNBdtaQE98/IS4OS2gNwWkNsCcltAthZhLi6GB1Vv 1WWpgluedvEUybptMH6FybLa8Rd84i0gm7QKnA5ap0nF5A8u5n4IZJ0L3YUE twB18jf3qDzLnE2RO96+g2AWLHMKMYkaoePQEVcMncByr2dn5r3fYxnx0ydd MTzwE+j4sftvpCXlYuLq+Gtm28/Wt7FICxbWw7o9mIgrmLZV+kBk7arIx2s0 NBuVO/S2UFApmlo7CD2DJ1wxPpXSB4t5MXP2dcLwQLcrDhj87FuYYD06xUNe PTpPyVd25b/KkjQNlnY2s86SZF41ttbhyOzXc54s/QBNt1gdmfmlqV/dYJ0Z PEBmfmnqx0PutfCbXV0vczTz2yTrPocjs/DCl5XATfaJvXCmRjjORhfzqAS2 Id4RM6Zjx0jeuq4x/gX91QmoZ0Wy6xZCzIm5oipxHNrPGE9Qb7QMPjkhB2ou 0GMEb9vOwuzbj6mqk33fEdWxCEJGA+D4I6KgtIaw++ALLi5FuVpfW6JiI0l5 sRr64lUupHzCcKH95qB8woih/bhBD/XGNgsQfYSHHBOlFZ8nwMg+Ip8ZSjjK G7Y2e60kqHItm7KcZ4Ol3bJJnGkr4sbB7P62wkGGyXWFaXLFCbtoisSbtZiZ vH6di6bIwE54eelZcmKXE7uc2Ml/v05iF7TkKrELXYyHE4yx2GXMwxwkKv1d JX+mfcUj1xJ2H3qNzoxK2OzZvcK3NXx/pSsDaz4xCs2aOXVT40cJ7U3llOVN B73p2HKWM0vJZbP6RLFqZ8tCbLRT/rccKubfREIOoL4SasmfEeJVaz/ONC4W 9Z0nCEC1qGptmoZlyetNWc5kIUmyVuJaiiRZGwfZz/RjRfu9tOHn6Y1ohbkR KQ5EE4aRXFz2Hq2GH6IJf1mFaW6oDXdPmzDZp45rMilO/PQAoaVxmytKKbd0 ccV2sWt/N2HozOwXlGCgm5x3e+Qdere1D9OGyAIXzE+T0Q2f/qrLGSMREQxt kyuaH8cCOmd8+XFhb4K9GD5eZ74FIlWuaDs+xa7uNk43rg7+iOeN+XQ7CSoZ 49UsaYX0SgawpMHBlY6tG43XpZkRnd2SsqLnH6jR2i5tjAIURtJPW8Xy0M3F VUxPX/qlj6pFQKuOvHWmA4vpTKXtOdaLwWwJ8QXVZWpCDPc8SojvvNkVFcWU hShSLCqqGwm7Hz4Ie8AxDL6ZsZm6LKJuHv3fPlFn1ySsyiSNeISCim+6aMYL aHl5POJhsuUBmDZmHqrLE3IdoepLvK4iVEP5y3kWunKlvMGLwXK0HToCH/cf +j+ipWotIVJ6uys6QpPjfAzkaOpZlQlO7BZXdCVnWfZPohqlfWg1fYPGHfor jbbpKZT0jqZytlYVlG13gTfQre6xR+4R1XDervafueF1zFygY1wsBUmN23yu Z4gmn5ODhJ6O78CTGnEvBu7kcatnke2joDIuesdTCNa1Q9q8+kVRK3wxqBNo 68CWDNnYg/Y2Zfm+zDXL4CTJ98eGlwaP0F5bPZT2Y5UaIRo6T/Q8LOpgbQBO RK15wXWi5UcvE2CPUaE6/OqI1HQSkvK4sATqbDCmZVRu9TzPV4iSmm+Jxw71 EQaOHgbmTOyCj7eSKrtSyEsAm5GWc/W8a1uOz+uz+3ZlMNQrppW/3C7idUl/ c7tIbhdZInVyu8hy7SL+68iM6cXNuzUjO4W6kFzd0i+QMyR3mD5H0bK9hMPj qc9zJ+atpjVVvnIWnKOE5LoIJ08npDfTX94ZSXM9QGip2+jqmwTgyjJC9a4E MMDwRMAismjlPe3q9KeKafGG0qjP4XA4+ukpZpgPmY2NWB/eMUK7Nstjhir1 wSj5j/LIL2OJlJBaQtKtxUXYJc27IbuNA4Qcuy1L7fUzGNIwdPgH4uHdf0eo LF7JvgSYI660+htmLZQ/VMyanhOpuTTC2bhEAvGmoZPR4dYO7NeEB/+xcCUX 8qY9Mygeg5fSY/RiopXCe6bmzhf5CMabhmEiWr5Nw7CqZAzSU8uQ7bIV4t9l 2Dn0m1an2rOHaVnKNJqk4UvNWTh+bSskwK7g4qbw55JnJvuggTTUC7PUwIcW m0Gorgb9LdTLjAV7QpJns1dbqanrHs2JqePfJ9TEIp9Qq4X8gnVyA/1nyhwc svdzTdTLIKKK6cpghtiM6YtOhE7wqq6Ao8hgM+//yxKn48tp6YWTStUmEKyW Qk2hu7nU6BBe8TWJY44/LIs1P0Oulk/+FtEElPhkS9ic6Imc6OVE7zdY9NKv io6q1QgjE4uOH+bR2zzljesQ7ceTpnwpXs6UTZhZ59yfq3UitUrXPQ/6YmW+ erMXZFBunvba9uEMjl/R48hTsoVwrlRrF7z7VgJ2oR+eYASPee3D12tawC6d WhyvbI8nid4Gv0ZzvF/A8nyprvn+3DuQIli6sp2Lkq5p3C0pz4tqv7ndxVmo U1R6akDsq1xNcAyzfvsQ+QXMGIJl2uozuvhdmnRZsjSY4UGs2mdJ1WWSLiPL MUuXke1Bu6/az2dGpnJlpJFubmvM3AR8FPWFU8VcvA1z/Lcmsht8JeWZryQ1 l2gjZhWYMH7hEzVxlswppQHyhbbm642J6TcZbLpV8Z8hrYyCkpoG6AH4JmG0 b58rKiPB0qBSHG0+m9aoyo8ao7gM8n5MTR5PUIbzruLJcuJJ9lswXKPPEq0A ehdYeQcRCqAkMuvpcL1gtJQOxAlr9XSMM7HPwmFU/dMu15spDbpMhc4TzOiG Gzz5XpqMGjVLWRoMpwNfRJiFzsG41pyMql/Q35yM5mT0PSajn9ZP86fR9tmO yuEMgfIDUJ5ytmrQq12xpf1lx5qpl5xiMJFM9DYCqALavhuMX4rdAg/tSupY DcmYSy0N4isRbswuE89+VbVHPdqLBM4nlO1+2hWjM/MsS9rnBP2AXHQD0gxv i0fXJR1VjqjLJ+DH1WjCPpVBi5/pvoWEkMTQdupyIgTA+ecs57GB24VLj5nH Lr5O5PAB3yGi/EFof3RSK4ZG8gVMAl4RYuLQ1dIlyqE+otsK1zDFFndYXSYR POvkmW8V/kUoVzQHZLyOx/j6NYH30Pp9SDijmKU6DHm5LzYQWvrPfUETOhA8 JC0R+hDle3PoSBtfEBr9+xv1EzN9pZ1qX+PeL4jkoT2EskjEFbGa70PT41Oa JfTbkddMOBvaXDE0p8XOSCVgc7hks8rlEe3j/Liw15l5GFQH2/Dhzm6ZeijL aWipCx+AbVLnXZFSXhTTG5HOhJsTQ7ytK6mbxqg+ytYQ4MLQHd8lSF3ora1Z aTWNRo5IX98s7MSaE7yc4OUE7zdW8CYPoy5byEvk6PDmqFi3t48wmRYfVSRl Hcjx3RoH4ypZfNAz98iAh6m5MsVYtiCeFeYhAx/lokKjDbaBEl463TKnYrZy TbUaOgbKS0EjFFR+yxU9yQvm+rDHTfQ2F/W7BVQQ5CJQFVm/Y5vm5ZGIhczm pWwc2nzOP16Od1OmQyz7UPYzWUjOrAE0esPT7YwCNPr4OyNGOxsJMVMAfGWC fncpsqVeBxd/hdRdHxbdUPpGXSFwYS/wy5MvnQDJrJmmM155obsI7fClbTRq tkjONS19nOt+E/dqCcZZYQbj4Nq5uHDmfYevNI6Z7j/kfOI/ZtRwU/Nt5dgS GMmtN53Egr3fjX9P9MIREmBWcbT5i4Xe8+zVszhVzIOV1WNOH6yMlPf+3O+y 62C8xANLHLWWnGCEc4a8Ckbpwzy7OKhUESn0exp+8i6kPIJPTLJyD0LfzSxF drwMszpaRv8iAv8Zq3pA9IyeJ6TNgoWLEjsnQTkJyknQuy1BGJT7c7G7JIrQ A4vBF9vah1kH5qBJo9ge0924KVD2vIxBaYE10dKji43S8FQa0nk0tnkJzdWc ZLmxPNMGZ1PjaBWFE9vuisQgFnI1rY8q1NV+5lnZRNcLNr+IRQigBMDiuGcd N8uWL3e71UL4wBKHrH2qfcVj9bVCPSf/MC83jAycKo4y5EagvBXmX4cvev/l G6K6NIbg0pFlmHf/UFLrVUsSHG3EfUP03nsdocCIh8B6P5U77hbf7X2dMK+r z2RL99hlyc4qtRS4ZxjO/OoX4ehnX1Sfzbyr3ZB9NnFbWIaTIUtLsHqQL5Vv ONtNqEhmxteQjM3ofpViAgFKfNJjGJde6yO358Lxieznu3BAZZj59OvI7lBv JAl7YLFhlnoNMEh3hRmkiwN0cXTqMoWqMtYsnspBScb0IL7pGmpEdXU1An4N f11R03g3fPFwx7N4mEPorTUbyeAoEvThSA78ULTtbiTUVFd/gJ9TI/6u/Tjh opaMbMmbk4ycZOQkY/klQ+eP8RWn5RNLrEF0jEwjuEqLTszse9OHsqHrY4s9 Dsdwi2ORMGxF1Annqpx+jh4pH4ukRk0HS4mox9Uq6UFdS+ZulgbUIhcTNzt+ 1wkz3TOmovTSUTJbRra0U6HdEeNuPduZL+LTFmLCT2Xuf4OLk/yn7McqJcSW oMNqx1Z2Z7uvZti1metaZsP+HLuUJSEuj5f5mBd0I+WLGdwW7zr8Rqi6Md2o GHfGanxohzOdD+VWbziqR7YQWvufctF3M2Mdqj/hFZwTU0M/IDRXFHoa9QpR vHW3eHTgTULKPG757Ahqvc1MATepppjWMLFdJTXFpmiDL23qEEOwcwE0x4eF aSM03ds/wYRZuUTCLOZ9ktFBPljxidqHk5ren/3QlQCIN6E9esz4hx5y1+aL lwxliIK1NC9NALL0fsoJQE4AcgJwyQJgqppTw52E5rJ8vrTxEnSpeH6VbSp9 dlg8O3CSMCPEB+THhk+8Gi1e8cpqDr5aFeEAioICl5MloDhUdVBJD4ApDnmm hUVLKV7uSO9Cn5Ra9ANPLb5ZNgiH8aO+FatCX6nDht1jqdynTkOXTilfQuGZ s6cpsS5AO1uGr/iCybtZVw3LwCZio3M84H9c4gRZZlB5RO81vwyEohB+e+H2 oXD7JcnMn2UmSdD6dnniwptWMHOj731h5q1lJzsOxNZuhR9Qc0yfoGqaADZG Ruu7KIYF4HCND+1wLfMu+vNK+uXEEqQV2dYhRqFTgH6RhbOooQQ0PBk4Nd3E /XJFIR5spGwPWQkBLCkzx1A9rjQsvrKA8u8vA0VYOLzaooVUK1zWC9clb8Ku FWY6O32QCxWCwZsToAC7uvzjYnMql33NDbaKIvi8SDN20I3Y77YSTqkRDNxS gmBNSYlHupZ+LcV/tsDcTd+dnBTkpCAnBTYpCJWiVU8JFRnzVZhPnX1RPB3/ KsF0eonVin19YwTQn5QfuedxV0zY2XNaaQW0Bl2Nyq2I7X3RRtF1KoXgOgAB V/4Py6amf5xfDgytyXbiYGtmqF5cSFOQqlP6zM+hPd44+t7k4SsjbSgNnUxw Wcpbn+cbanWZfen0YZFgNSbqoXNslkXC5hNk5LFcJftInUCxqjfVe095vC/7 GSmRsFzPo7eoTAmA4Ms7I8l+Jn1HSYM1H39Qk/qzhaZtmA9NaTCTHU323kNY o2/uQpXjfF5xmLjrmUQzoaIgoh3AMLvTfkLvyfOUpoC9F7RPKO5wVFFDxY6d wiQw9T7T9loXz1d/rR6K8QuyEot5RxFW/gyRkAbcvvsJZRE24JqmQdPGH6hc Qk03J8TwbBqhpMKzJBj1NvWmW/U98dJMGsH9Gnf2UnpCQRqXRSG+gCX9P59Q svvnrjiTNgoHZXBQ0H4tSiAs9dBxzJvJCXFWc0NL9tPjbMuYv7gmhtDMWbKH ar4DFhCO0EmDXQLQ23xw39YwW1DdjaYuyiwE0MeHTKTYRJYIQE5IckKSE5Kl CIn2AZkRZ99IEpLJpAt/0P/lxNC/i4H+Q4TOR3a5mAtQJbuDN9kKUbm7Qxwe HCacTCYj6sf4bh6iilH/Rmhvu9cVt28tQY5zQtpbpORm+OKhp18UZ2E6AB/X csiq1GM5OvdVaIApRTTLAFsXteLNp3kjpE4mhr975tcx/eUCRuTm1H9A3Lm1 hEDXfQUVdzroLqhf+HziwpRq0rGakCHumo8p6VNUoB7gaL+5fFJRpJrCt6do Cevfu9HQ6je7aFRz/GHBOhHf5RPODEjnu9RIhSv29p0OPNaIJA8mICpFpWxK 30763M9tXnD3LHHKLH+hZENeqY5YbQdhZDb9EbVQqH8aFVE9bgg7d3GqnBn4 QsqGylKYxHJaJ4ePiYGBPkLPk+2uaG2qdPyhuTrPFLw7qu8hPHLwaVf0HsUj /cDQiUCv+PctMQWSADBOgPNkZ5S2RjUTiydWvotWxgCRKNbEJ/T+0/fnjFEW b/0mYf+PngdZnplnBwlVHCK67VHCK7PpPEXRcIlwq0eYPiH5fH85iWHwsEh/ OV1VeoyeTwUqqH2sAdrjhb5ftOTrbmg/oVz3H7neQddY3f5jxngw0lnWPVZ8 WZU4zrllmBmWgQwcQYd3FH17K0QkVkdoH576oPyOXD6qTVmK1LvoXfPp4EC4 QazBRWr8z+wnpZ0afHFRvB54Yirb1SVGpuYQ7F8SjmKObAHuH5xUzBKyV13F ryLtJqSZ+yRZSKSVhOqa85OsfiPh1BQ5Ds9x+Pubwz/DHB4TpVtrCY27HoR3 fyfmWRk8OcnWJy4/Mv4zcVdZIaFs949dKgS/Qj7wnJD5ErUz83Wi7fh5hKOc +wwfdN+NUdAoQn9lYrT0JObhjpfrGcPJwsVjBV/8oQKJxtVAr2iVkSZUMuDw RZ5PTUfbcD2axUcN/6hPXvaUWZJSr1ECYKoNj3nF9x/Fq2nD8R2ZzcXIDPjY i8uIeKpIw5Mu2javUWOZPEJkkKRwkQ7w0JcMx83d2c9Q3d5aajRFXVGyvQk+ 3l6SL2JVcUL3yCSdYHWY9UUxfvg+QpkhTPsH+abgEnnfMMRFQYA7x2Y5sbPd kyqUp9rK+/rQ4lxjSR7NFW98t+er8QK5BT7GNOdHf/4Iob4wwvbB+BEMtkUw k4ddYT12tCbm/4r5o9RYl2gqjBBINSvbi457ZwwlU4UwpWfOijfPzhDga472 Rd3TyNOsz5Zr42LgQhrBNzghoygcV108rV512bRQ9pEU7sl9bQ1wFCgkVOx8 GJa0Bz1ojvY+IeLVRQTHbm++hgeSJuJIAvFOvPdZIg7AuXOxSSnribdV18T8 TBSpeRyPY6eooBghEimBI+yd6GsL48Uc94SutiZXlHqVbyMbRH3il4TxVPoq 9QC0iGACbTWLq5gFdWLtVbKx9GogMwVBWSoWcBsJRmzl2D3H7u9Tdr/Z/G3q 7LDoSdxF2F5RDLOUYUn3igM/fYUAr6XrmMhTYvixRkIJRXZu3I92VSOrBv21 J6SjRcH7Ylm8j4SKtXl/lW11CVq59xA5YaMOkbHGuM4aVUuV1wGG4e00acek IdtZSBF6CQQx3Q3PDh8mdLTe4eJP4OMIlSJrIrQc+JmLcQCcWxpvvA1fS0GR CEASxx/a943sJ8BGbnvFgZV3wMfkNZ2eJiSPgVbWHm9GdaWiWGCxB0RxBaha za0HoffDwxO8QjebA5cmKsLevtOk3igrsSUxdFBJNflQzzUzaSLXuuh8FyCN quw4N9RGMR0bmAdQN19DfmTSl0zlWbAVezdjnfk0hYkmpEcoAajtIrH/ISNL hyr+7FysL99rQB6XCI7dx/FWGyvE6lw+6uF32lFMHVTrA2+THPF/7YjvUynC EzM9r7msSIZ6z+HUhLay9Zr8+r5Cm6Fhd2+vI8TIEF/5LWjaY+w06hVqZxYY bsAqemv2XXPkTthVIHhFd5scBVeKgUMiAc6JVEyXj5se8eCc6OIx0VmhDonK seca66p81mSRVPIXoq1uAyEqUzDyWmR+E60TO3tOIfRrC1/6MnqZ7pq4cWQH VdgB6LWYGxStRWsIlbufcMXw1Jy2yaRpVHJkLg7L8ZeqvnWBbr4s2cJ2nWa6 B92u+kiNkX4mdTQXFTSp8aB+JnU0vu80vMDMi7Acdd8Z6qqtMj3aQUk/vcSf KHFleLrY2zGAiihCky5YWZfHa3gKUudcKtlSdsL0pVGbMF0DSd2IYGhUUjci gHr0mQVnY9Z3jmxOuHiVLM8o6YlD0KC50EzAxupjbecob6DGDBa4xtUFEw7+ po3IV4IAWKa242XHfy+qSzOfpVtvefOtEiSEgprp79/Kxcy2iNP/NUb5dR7b BZHs+TahqrjAxfAd+JkM3tH+evSPzbb4Cn9h/w0iGtlEaO580UXt23CmzzOz ZGheLLyd0mEBnL/IfggcDTLzkuhs3kwowDNeVcsP8dBsJCycV2O021FDMTM5 omRFFHvxCzMNkqYIB4LgDrqvlhBDk0hp47+ibjF0iqPZ1cU8udvOnD5u+qq6 rERRsjwC6CX/NcvxLFZpjvxIbnmanZYVjTKc1UKeKlYaGd6s+p0YyBxI/zgn 8nl42slnvyd2VhQSvFdC6TYU6V33iXg8LgFK8s7qMvjYuGKX20PxNnjOrkeP 4IUeQjsGLDIeI9bNn/zblpJuXjdeoUrIEhy7K3WOQEsmkPQ46X+QUFnAzmrm ZYymkdITUmfglyP9XSIRbybUbS31l7AsJWytaXTFroe+Dx129Q+L00AMgC8r 2SLP5j3HvAgyojmvB70EyABwLnKvaSp2KQteoo/UCHw8eLBZedkp+gTT1Jr0 2eHbKJLHxE+7niL0Dk+4/guousWafspPtmfEE93PEUan5lKKMcQY1ccCcDCH mdZTnbdmXkKd0Nt5CbD5krr56ffK4IXln5meeGr0OUL3E52u6OzAIg6tnjwS dtbVuKK6GgVw640HxNDFNMIxDQehmhTeno+bs9ygr15kPDqrgi/nibrpDu3d q97h/lRqLX0udlRUJ159Xo8hHKNGttTF+uNsqqkzxAOSD1xkgsXW7nJ+2537 nr93fuv/AwcicIo=\ \>"],ExpressionUUID->"6f43df5c-56ad-4d73-8ef7-42058d9b6403"]], "Subsection", CellChangeTimes->{ 3.746790878526955*^9},ExpressionUUID->"0eadac48-eb1e-4e53-aa9e-\ 6cda374698ee"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{"Am", "[", "mu", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", "=", " ", RowBox[{"I", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"\[Gamma]stdown", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.7467916134430103`*^9, 3.7467917126028337`*^9}, { 3.746794900325941*^9, 3.746794900955056*^9}, 3.7468070348696847`*^9}, CellLabel->"In[73]:=",ExpressionUUID->"8e268e2f-49ca-4c28-98ad-d442b8fb4f34"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "3", "]"}], "[", RowBox[{ RowBox[{"Am", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.7467917325303097`*^9, 3.7467917395115147`*^9}, { 3.7467949062368517`*^9, 3.746794918682787*^9}, 3.746807035264099*^9}, CellLabel->"In[74]:=",ExpressionUUID->"a8e4bad8-1dfb-48fc-863a-75e718bcb4c2"], Cell[BoxData[ RowBox[{"-", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output", CellChangeTimes->{3.760467914693735*^9, 3.760468241420535*^9, 3.760470340043217*^9}, CellLabel->"Out[74]=",ExpressionUUID->"8be984d9-4a69-42fe-bd0b-d5e9a6962d6b"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnV1oW2e678U5N/tiXRxf+sLggxDoIhCCEZyEUOQLhwSBHaYY4TYIOTTH DrMzdtoTazrUbmnsDFOVSWUmUcpETCOyiTK7IrOrlKgdq62VwcrE6q5CbFJl Yhc5sdI4sR2jGjuWvXyktfTxrqWP9f2p5wd7M3uPIq+19Kz3/b/P+3+f538f H/jV//0fBoPhnX/L/a9f9bra3367993X/1fu/+j+zTsn+35z4q0jv/l/J/pO vP1/jv/P3P/zVO5/XLn/kP/PuwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgOtmVudhXN8J3 U5ltpS8FAAAAAAAA0AXZxxMjRzBDnqY3Aqkdpa8HAAAAAAAA0Dz4euzcHkOR pnfCy5DMBAAAAAAAAASyvRx+p6kgMTHz6VvPcKWvSEl2NtL3vgl9GU0uZ5W+ FAAAAADQI9uZ1N3wjWAw4PO4c5wd6nM6HD3dx6/MvmpoCaJPNn4MurqMmMU+ +rdkQ3syt1di5zuNhHEAe90784vS1wMAgOYQaaEKPnlAzyyG+syGSg75kmDY A/TKzkP/0dZirBsdwQWlLwgAAITsz9OX3jJhx/xzm0pfSi1EWqg2uk/+RXTY Zhs8f/XW7UQylU6/yGRp2S08m3mRXkgmYhPByx86Do1G1xruGWkc4hfMM5e4 7rIU7XoHvfdhTQXolu373oNF40DTyeDiltIXBAAAAb7xfPZLt30v8XJa3fGM 0hdUA3EWquCTXwg6jFXSXFXBDv/21k8wWGsWfDM2Vnxn9g9Hl5W+HgCQjs10 5GN7m7Gte+Rq/GfwZAKAkuAbq09T+VxV4MKw4wBWVhUqFpniLFTBJ89WZGKW k96pRRirtcxG0tfdwOspAAAAQFaycbeRqiS637vgG+7UgMgUa6Ha6D55FiIT O+B0fzGzAilMjYPPB3qKv3WXf77h1lMAAACArGzPh8+73R7ftWAoEks8TGdy Yi2bDvZpQWQCokCITOspt9vV122lyE2j1T4w5gvdmVsFeakLlsMDhaw9GDIB AAAARQCR2VAQItMRTBf+z2zm+dN0Ov10dQMSXfoC/yX6fkvxvR6NrSp9PYAo bK0mJwOed0/Y2jCszeYYHL3y7Xwj7sgAAKAVQGQ2FDSRCegVxJDZ/G4ESgTo gOzilPekBTPbhi4GI1PT0Rtux768vaX97ERatVVBAAAQCzyb/oe372BTX2hJ 6UvhgmCRuZ3w7NvTOXKjIS2Olag8DEBkckeLEY6ngk5TwWPrDKYhT611yNpr prcuTZcc6firxPgB4hc2nfwCfmIA0DXbmZnPnCbMgB15f/Kppl534ZnMTNLf ZzJgxs4/RBp9Qa3+MACRyQMNRvhaZKi5kMc85HsAeUxtgz+fGrNhpj5/kjo+ p4OOwkKiP5hutFIQeHY1GfG9TzoHOk+du/LNo4wqx1wAEExZWoxMPNbaqy7G djn+csZ3wtToGzeaCAMQmbzQWITjm3H33sJL3eGOryl9PYAQtleiZy2YbWzq Ob1xwry/q0GdTtuZZNDV3mqyj16bmJr+7nK/GTMYWjrcd9bUrzOzv6xm1Do/ AGqkKC0Mbf3BeQ2GjkieTHKtLeYsLMpCVTafvFbCQN8icyMVHu00tlicn06v MPzK+MaT+Fd/u/HVvSV6z6Na/0D0CJeOCkMmvp6+97Xf7cq/CIbmNttbLs/1 SYHtWenkXtj5+MR179gQtXCBydrdOzDyp6u3oHABL9bvuve3WEa+W6HHKXq2 q9uX3BDnz+WrKKdF47kkcgpf+vb9dnP7yNfpwsv7MjZ6kMjoqqRrOZ7NPJ6N T0VCN4LB//R7/+h2nx3qczpK74X5A+ikBrADzy6GBok1VPvY7YpBQBOId/An Ox/sb8u/6B3np9cECjkxFqry+eQ1FAaVIjObeb6QTMRzJJIL0swJMoE/C/UX ivYcHI29rPvZ5dhoBznc94UW2f4BMSNcSiiGzM9Tz6b9gx1YviiuN/cixKcn Q95Ba14uH+z3/ZOtxq7Hzkb6TmDUaUH6Ohhya7pjb9jamg0o+RKswXh6XdWv CAm+nd0WfJkifMnWYvBkU/X2E+uz3mIis+X96C8iPVR6MWVRIBYaw+d9wW8T C2tChxh8MXx6f1PP1UdbpVvOxN1W4g+pwxyClqityj5PQsXjB6Ae8LU77o78 UrLJ/pcftVoDRszT5fjKdyOWprwRvT+YEjB5ibBQldEnr6kwKIlMMlE84rCa KKNfTooMjd+IP1H7fVQBbefElNgpWxZb7YGf2N+rWBEuLeW7a7KcGDxhaTHZ 3eE5dH32amny9+15TWiyX0oIcrJlXySunclLVgNmbO8b9X1xe2Y+jVbEymaW 5hORwCeDNnMxxg67Pr+/otqnRyKO1uoTbJXMvbDm/e6765X/Df4vf1chkdk0 EBataagkIhOlua37d5dufp/e4CcG8fX4x/uxN3xJ5JHgPwXsrcSXY6qQbzuP Am/sqfcIhiJgYQGYIdZT+YgxnQzMVRkDNIK4JYy216bPd5CTl2+G5/6N8IWq nD55jYUBITKP/Xky7Labmoy2oUuhWPLxCqEJspmFRPjiSSIfZdbYYeo8y9Hh /YVAbh2LbdbRMOg+42FPgtP+mhgRLi2oIdOQz64Ph+Yqf0o8FewlVB921JPg O+ORS7ncd1hPX44kV+vrxuzPcf87Vqx4VeUlpCpRi8jc2Vh9vlpVj5WL7bd0 +f8l2qMsb5c/mZ/973hsInh5uNuEVdyasXMkMJlILtTbLJ+fjU/HIv/l9547 022hfQVmeeuTWw8YYqbK5T0J9e9p6g+hHYGRLYy9A+GfxXoSYpD7+dJz01cH LU3IrZucwZSKQx8QyGY6duW9fMBjRtt7wSRvTbWRCg4QOSBTjz+pZaeR2HUy 8eXY2CFiEOlyTy9zf5WEL1Tl9MlrLgyKbSWxjsFriWrZpM30xFkix4WZnJ/N aEhnIt3tmRI7yD4jjxqSQiNcahBDZu5H7A3MbVW9xq2FQG/hGQyG+dxGQWHW ELHV2VpJ+JwFxaJunUm1Ji4k78XjU5Ev/J7Bzmras9ni+PDy9VvR6Xh8dh5R WS8yUt2gkIUSV7bXoh/SE3MM67hK8mvYr3wumxGjPLe+S9EFDjv9hJ5sG4o8 R7/5WajU22og9EyFhp/iTlwB8Qy0gOrYXpn6qB2Jceyof45Pzh7fmgv0EkMl 1uVLVh/DtYL4xdiLW4q8rGvCF6ry+eS1GAakyLS6wgs1x+KSiDJg5sHQompl ABVkBcGU2EEsiwZ7YIHHQkhIhEsNeneWs9HaB6DKubqmd8LLXO9i/ZG/t4mP UMwuRUYshetTbTa4NvhqYrybmpRT5DURtlDiSjlrWoTXi0OcDntwy/0mxaNj 6h2fWmQnDQlLDC1cEQMkbeJQC4ixgZjE3HFu+hzQDjsP/UdbKW+K0R3nse4p +v9zS0h3vP75AvUjRccfwqxOTPcdnu85bSELXqjK6JPXZBisJTzHjo7frX9+ Cl8M9haeeNvJEK/JRG5QQ2aXd7Zu0CGWRb5NvflHuOQgd3fA88Or2h9ENoS5 vvj41qOrPU0GqqeF/b9eio60FwWa3Tujsdo7FRvpRkdwQe6LQHSLHMX2K80D gipUbKanLjjQLXjsyHDoIRtvML6avB1fQBcmO0nfocK37OkPPVHjYEWV6GDI 1DMVbwrWE+Dujcg+C7tIM5Mu+ixI01Zy4563s5V4SNSNbwaEL1Rl88nrLAyo oNmw/R/HNXAaGDFkMiR2UMvi/uEo30DgGeGSk29PxOrudtYi7xbPfnM5Yr+b XwpGXAfyJ32srzv63h2/+YDr0SFkFWNocl5X7xGqauALATtlGmEsZSABZd0i y3lqkUXmbrF+CJLf41leOJPw2Iov/hnuCXkZQHfQDGDI1Dm0TCY/S1V+N5Z8 vTWUv6qDRL3LS6keQ1NvcJH1Uxa8UJXLJ6+3MKCBZH0NtMSyKkEMmUyJHcSy iJ0KLfGelXhGuMRszvvfLKq3+pvgyCc55uLwVKCHsmF8cDj6guN1Po8MtRX/ udbeoNL5QfGHTZagukWWYvvii8xdpLZwWWdybpRWHodVmyFEx1IDGDL1znZm 9q+ufCWN5rbukavxn7mvm9Q5swhBIpGJvv6HxmK8z0eItVAV1yevvzCggUaF akfvMoghkzGx83N4oJjIPORLCskBiRPh4oLcXZd/vt41oTKP05lcVJ2S8Ngv RvOoarXS1UJ5kSmvIXNXIpG5WzikiX4ttxod+HrsXPFEklrXwmDIBDhRnlZ4 LN7ViWQic3dzzn+MXKbyPWAl4kJV1GFZh2FAhzKrHPTOqnAbqgxqyGTau/wl Olz0su11Twsryi9GhItL+e6Y7KZI7pfjsqtUT6ysskZjq1yvlLLprNJDwTVQ XGTKbMjclU5k5o8ZTru7KFX8Oz+dYVul90V0uHhqe8+5mDpdPWDIBDiQm8vO FFbf2jCqsUE6kYk6r/jtiIm3UBVzWNZlGNChzCp8Th/LCWLIZLrU7VlvcVoS oaSe4AgXGeTuGN4XPB10lqZ2bssutESSoW6VpLpQIkze8obrCd9JpwPBOfDB xcBttg1neYtMfD0d/5t3ZIDytx3OX/tn6pzPqoLMhsxdKUUmUquhCOtycOUz btie0SkVGaPLgCET4ELZ0qmO3lXiIKHIJOsRFUZDPrX4xFuoijgsazQM8JfJ G793Ws3G9pPuW48YXUHUWUV4TWkpQZNyDHvEuWjvL2qrN/3zgruLCo1wcdle Cp0q3B1DuwHKbjXXZReeuXd18HA+PPJtIm/yLdpfLNlK0DIcla/n9M6T6J9+ S+91xb7hLD+RiT+NnnudXmMTa+s89cGn0SdchhHZDZm70opM1H1UoHp5EPo1 lauOGGyeBPIT4Gvzd+JslwzSAoZMgD2lpoQ6CxUpRSY6l2HHAylu63XxFqoi DstaDYOdOf/RUuaKxW9BmVUEHZCRHMSQyVirHzEiiuMBEBbhIvNLwnO4cHcM DwLJ/RqMPYG6wlwqKCJTqD+WB9nl5Bfvt9NKXnaMJxgXs3xEZqkYRflPmex/ jKR4VFJDdItsWwzSiszcUD85bEZ/iab9Y1P1y6yh6zvDgfHEq/KniTp4Shz5 r6TcRoQADJlAPV7G3cUBXP7xUEIkFZloCrH1qP8hl8cm4kJVREOmRsMAdS2y +aGpuzyq6AdcC/TWmDwV+fo+xb6GlNTZ5vPZ72eXeCU2+Ue46CBuyfoaYH1q dE9xTje/F1HGC4GePFLKklHq2FWCheTmITJf/eA5QK1mbj4TWuQVb+hBEoa8 vXhILTJ3V2OjVsr3My3ZkBIHtPeOmDhU4vAp50mIyQcMmUAdysMy7wLO6kRi kYmuNzmpMhEXqiIaMjUbBlSPJeNuVLnnoEHmrUzOoEk5hh1wJOdJrQyZ33Bv 5Wl+4B3h4lMWmXW7TOysRT8oZtVau3yzCrVDpWYyDb2BBSUuBDlayPZH5Cwy ad3khT328qJGxiFIcpGJ2u9Jmju892s/ImRpSZOjeCrYu8c8PKkCOUf73cGQ CdQBfQXkssHIhMQik1LwhMP+spgLVdEMmRoOA+KgB2a0dve5xm8kGI/yosqN z9lh+UANmQzb+mjOkxKKhPjk/YPyjHAJKL/L9URmfhYuaExF22LSRKb8hYBI kCJpBZjMupxFJu2olBBnBbrFIKCVAFckF5n0pF+eej58JGlPSefi64nxDkwV p/Aqfnct2asA2UGS+fLUJZMPqUUmWk2dvftLxIWqiIZMLYcBIS3YVvVEtlNV 3pAFSU4y/SilHj0GWl9R4jSQgJNlvCJcCsqZk9bRWA2dhK/HPy6sH/h1oxAL ml1NMZFJOQNFwGS64CwykeKlJPwz3koYMndlEZn0eDDUXd6W9RtlPbWV9PeY za4JpY/gEaB90wxgyATqwqGfiOaQXGTubsZGi4MH66rLIi5UxRuWtR0G5KPb PxhKMaUxN1KBvsJ9cquNLD80r2ntLVdaOT57oNyRPb/fvVfQyTI+ES4NpdVB DbcenomPF5T2Pqd/VrLECr6d3WZ4DHTdopTIRNcIJK32wE/1Lp6ryNx54DtE kbH8vXmKGDJ3ZRGZuy9jowepf6PpgOeHGgnf8gHM8noq+3hi5EhT+9jkkryl MGoFOxgyGwg8mxW04kOyJRpz4jGTTYUGSxujrZ3jca5tiFmwGOorWsDYJgDF W6iKNyxrPgzw1cR4N9b05vjdOr2ukF5vPLq8yQ26rZ8XToPhaheMv5zxnTBh 7Y5jr1VOkcS5e4H7azwiXCLWk7438j9e1Q3Z7ELYZSUflNN3T8w3Pbu2kPg2 6HMP9XVbjWUtj7UdPTVyITCZXK1MhlOLVCsoMitEY31HK3eRWaHQGL6/DooY MnflEZmULmMF6qR8S8tG01veiTuxif8Yte/FrGcCsy+lH7LwbCYVv/kX99Bb trZibYlcqI8F7qRL2yFgyGwAssvJyJXRvkOFl8PY7hj2RZLL3N9uLsdXRSYX zC/SnHieqXeD2/Ph8+4iH40i70hpWjBaewaGf1/6kNsfF2zIQ60pXd5ZNhkj 8Raqog3LUoUBvvFsdvKvF0d+3Vn+LUxWx289+bmZ1+GAOmmk7JNJ95sm7GDf xb9X+fLcK3PLbScUJmY5dSXxgt9UKN8dUdrWEOFbUeoQzzyKeHpN2JGRicev SrXTS0fJiEWW4N6gPCJcMjZmfHZT7kmYB0OLZWmHZ1cS1wY7iJ/2sCv4QCSF iWdXc6PsWYel+ENjbbYTQ6PucV/g84Bv/KNhMgYwo+1dWhvfivyhciKz3Cap gMgiky6neTvDkTYQtIIbUiOHyMQ3Y2Ot1D/C4LLG1+a/uTI60GM1tuTCbvhS eHZF8rNjufHkG5/LVlhJNbd1vz3mvXLN5xk9Y2/D0JcLDJk6B8/cD+RHVMzY fmLk4pVrlz8sDIPEXMNx6kTT+GIUcK5HNrOQiAQujAw4KuQfezBjpztaVYmR Y4XR2u1gwTFb/q0RYTBBXU9MW1ElxFmoiuiTlyAMcoNk5GKfpfYPbXx99OZD bnoAXwidbKu3m1/6o8ZDfSN/8n8RicXj8VjkC//5QRuRjjMeHvBWk6DquyPU kNlkPXLYSMrj4x/5v4xO525qIph/8VuMnR8EZ0jBvJmeOEuURtzn8NyMxb6+ MnQYE8ESwCvCpQLPLt255NyXmwEtzj9cm5iKT0+GfMPd+bVDs6XvYmSeoQAh 2z9DnW3zf2vywfONCvWUb3NzfaTTTB17K52Qys3CXDONXEUm/fN1W73jL5Oh P/a3m422312njXXZpN9euFDByyKOyCEy0X5VrJ+trGwuxf2DVnI+wUx29y1K zmpnY+G7cUfuvbO6wgtZdHfDAIZMvYFn7vlyY2xuTfH5/ZXCWh61u9u9M1zi Ft1vpZwXEPeic0Nx0O08QK0NzBtqhRalQbMWHOrhiLBQFc+QKXYY4JkHQddh Fj83p51NMs6ZC6SQyUbvGLG9mf8rJmt378DIhUAksVA3F66mO0Jzy3sHwk+z q49iob8QW7YmIiff3efyVOzVbq0m81Flz30mv7vx2e0FEV5pnhEuHfl9nKuF 7TyszeYYGLl4PXIvzbYpNAPobJuLnTfd4X/V/0HxzMPQ8BGsPPbSOqEoWvBf RSJzJxP7vaX0SPpCS8hVlsu5Nzl8P8orvWQRmZW+BQZBLif4y9nAGWthdNtr d3+brnYcEl+74+5oMZhOhx7+HU2PgyFTV+CL4dP7q2QsERcuN3M+upkiSR08 PLs07Sd3skRD3s0URtANIzn96iL65MUMAzyb/tZt31vxq9WirT84z0r5kdVp FCivrcgdIbllhi6K0qNUhMtP9kXiyilLsXulyXFhik0rxuKZI6zLl8w3Oqfm eQxCfIqCqVBQTQPhenseEopMyuEXRJng2VSwn3RKG9ic3RMbxUSmOtzv2cWp 8d7iQXGT/VKi9pKKXBQ3tdkOI50GWrr8/9LxkNBgbKVDp025MPDN0LdelkJ9 JRnHxZyPbslRl5aisJmeuuAwiSgwMaPVOXL9vgTndwSAjlGtYzHZNg7E88mL GAb4yu2x9pbKXy6fTrS9Ru9uXPhvBoIpxs1EcnyrX8RYEpS5I/TQruLdl5SK cJkhfNHF0QozOT+b4dB4i/w1Dw5HX1TaICURLSzhqqA4ikx8IWCnfL6Ooxtp DGrq8yfJr91aSVzpL9q9hkMc3SaioJjIVHLxUYA8L1m4nCaL61bVHCby+XId 2iJK+7SZ+WUufNmtFi6H55TfC6oFvjzhMmNY56czFdtCVJ95H/u8B/p6iRzw +MsZfyknQGK2DX4SmLgzO59ezbubspnnC8n43699dJz6sf2nw7JacgSDFl7m 8PCFIaZPXrQw2HoY6N2HjKGdg55AJDG/VN6k3tlYfZKMh6+cdSI/OsZ8pp4c 3Ji7+YiNQndElJcvjPy1S53IhiIRLi8UhWnAOi8kOChMAnw+0GNsGgg/p7vv GJvOSwqtLLzIIrNCoNX5PL41F+jN5xzMnaOfT8WnY5Hg5cJbY2ofuCSWn5Yz 8ojMyr+ivMhcnwucLBe7tJyNrjDGKVF3F70H6Vx2YlHtySuI0j96HTbn/Mcw wwFXpHIznPa7s58F0LoKoia9ybIq5UvKe/Inah5+zy1mfU404bn/4zjf2tFK gPYpFtXLLZNPXqwwyMx47cWdxo6By5G652u2M/MTHkdRv2HH/HN19iUL2zT7 3XflXTMrdUfoyRE19CSSLMJVAlVhsktEV0J0R2p5xzveQ51VZK7aQYPaRT1H fcnLTWSiZw9J6jfQ3NlIx2+Mv0uapbE227E+l9sXis2tKDntNqjI3M4kLnSW g759JLrEZuSnVU5gcF+oAfzxrdOviWrYEwD22ulbj1UqbsgutB2XZrcqj6Ei /YUNnPazUIO6iCbkzcXQGSSlvs8xfpshCb+7vTZ9HjFu7ukPPVHpD1EFpLi6 mBOKbD55UcIA35j5lByysPbfBZPsjsmXJ/e6AlKZNKaCd7QWd3cUfhBVdF+S KMJVAjWfI2AnhdAR5rY22ma5Qo3LC1ScQqqfeuImMrcWAr0cvlydyCMykaYG JZQUmevfezrKgco+U0E9Jg+GTN2wsxb9wFyjrRv+LNSPVCrjctQLnTvE6hVL Wx+xPmyLPw0PlvclFe4twg20v7OIWl02n7wYYZCvJJ+fqCtrOTKQnQ/2E5kW 8wfR6mpKoTSmgneEGDLV8SJIFOFqgDZeCdsXqOa7U9pSW1lPqW6NMm4is6KR DdptSis0oicT2aPJw75fAzoUGLRgyARYQmx5VO1zsZt9FkKr4RLOc05fy2ow YQv1lAQLIzHyTyk7L1paEaPbzbxrEVcim09eeBhsL0fey2dWzWdCi5xrbOLP bp02YzVTZPiziOuA7GlMJe8IMWQq2y68hEQRrgLQnu/cZttqVDtBrLilFk8F eiibhXVz0ZxEJlrggrhZVRyX5opiIlOxVwkvNW4g4bAOoraq19I0DdRlc9q9 F6seCYTbvPyj7zkX4+BmRD3hYohMfDk2hvg1WBmJkX9NOaiooSYClJZh4i1O ZfPJCw6DnYf+o62G6oZhNmwtBk821UjCE40RMfPwpKyl2BS9o/Kkx2DslA2J Ilxxin0qi2BH/XNCZv0qQkIFllp6e/G6upeTyKzonqn8zfJAMZG5dyD8s+h/ hwUv4+7DyGW0HvU/ZBv11MoJGjBkAizJ3PV02X79xU+VkUBMWOxGjyqIKzLx 9cQ44qvkPkGjhZi0dL5AuilYHp+8wDAodMkUtM+4PjW6B6vmPyTGQ+wNX1LO TRmF7whf+afXeaCprWdYLdW69CkyyXodyGwrNG+MlgIrwG3VLxG0JoB1M1cc RGbFRrwqbpY7sojMaud+lNlrpvnrOLV4A0Nm4/HLrPdXSLT8yjvLqQQTqi4E u9OpFbSaeq4+qjyjVB/KulhDIpOy0a/BKVhgGJBTmMAkBrm47nDHKek9cltH 7jZzOrwjgWg9wqvyKhU4Tj1zKnD3pPKoNbZndEoNljX69midO+UgMmnn1uUv /iAScojMSmesUmf6yDI1CBz2ysGQ2Xi8+sFzoDx2cN/rEbH8XSH5U4TXPiNl fNOQyJSy3KgcCAyDvHcU6xhPCEpikPFDMymRayj59+D0d0dC0XiEV2PrvreD Ou0LPaFTkTBUzw9N2oARQVhzz4u1yKQL1+pHBrSAHCKTJs+IB+YMpuVfaVZ4 J7jYaMGQ2Wjg67FzSOkiHns9IorMF9FhJI/Oq9DldsKDlL0GkSkb6ii1Tbh9 KCaftclhM1Zs1adBdHRHGo/wSmiL4rq6i+1XpoJOE+UrD4wnXqnkh8azqetO VBPWas/KVmSuJTxH0UP5lpHvVlRyr1yRQ2QuR4f3U/+GMmf6Khwd9K2WeoAh s+Gg6rqmgdAzrmM/qi6Epb6R5ul8h+vtpdApZNTiYBRRmu3l8Dul8VuDU7B4 YSAIouNzuVI0eXbG3BtMaXTu0tEdaT3CK6nMOgqu4UYZAw3czlPIwfojP5p6 bOlw36lydJCVyMS3Hl3tYSNZNYEMInP7vvcgxa+gUOKX8iLn4bJlD4bMRgNf Dg8iY1rzYJihjV0VxDr4QzOc8OtySC25pooa1CzR+rEIsYsM8ISoGo2dCi0R sxV5vrtmqUlNoJs70nqEV0Lof5Smd8KCZFKFIZPPql9iaD1SsS73dMWkwUZk bsz47EjOFrONTT3XsN6QXmRWnghTyJVNr2vKZcseDJmNBq08Jj/zDzrSClEX 1L0AfmcMqV4RZfwqPNH6FCxWGAiETGWTY5dSfSTFRTd3pPUIr6BSV3T5hW1e UveV1PpD42vfX+pBbHXmd26kqL46RpFJa8HJvt2GapFcZFYeMeNdG00gtEb2 nAp1giGzwaCVx+TZ7Btt9SJAXVD1IT+rBrVisLYKPqNTsBb7oYgUBoIhBvuD o7GXhSlbLVUi+aOXO9J6hFdQUbSwdTQm5Ieh7SvJ3juAA3jmns+J5DNNJ3yJ F+VVQ12RiWceBF2Hy+M0drDfz1thbmdSd8M3gsGAz+POcXaoz+lw9HQfvzIr s5FVapFZccQM6/x0ZkMJhUa/Uy4WEQ0bMn+ZC192q4XL4TlOJYAUQ1h5zBKo uhBQGJZiRuJn1aAlZjVUiX1XshbwsiFSGAiG2FTKP0CykpvW6vxUQS93pPUI r4Aupcx9oUUBX1eovV8akNWZxiyBb/wUcb9Z3vDGOgb9d9IbxLK+lsjE19N3 rrpsZY8BZvl33/TPAnLaFY4FEvm7cEorMsktDBSl0piVd8qhYJ2GDZnVSpQq iEZ2gmjlMXlLMpESFJRxiZd/nlpjU2jfDblBRRqZttIWqslT5QMpdwGPiCl7 32D4qWbGsVro5I60HuEV0KXUYU9CQHqBlqrSximYrZWZL9zOA6VcBWZxnvWF YpMXqQeiDgyHvo+Hr5x1lD9pMB4e8P49uSowVYtnMy/SeeYS112Wwlcr0ZhS UpGZfRRwoloaM/UHU2xbLYsN7U5bx2KbLK+EhSFz/Qfv0aPDk0tiX7Rg8Me3 Tr9GtSsoB/ba6VuPNTAL0Mpj9gSqnFbdefT58cOv+3+s+8KiB3aw8ilYrlBG bD6Kl7pXrtxCjyeoWUVbOVgSkcJAOPlAwvb90e/T6gGZCnRyR8IjHM+uPoqF /uIe6uu2mgxGq31gzHczsVSebbezcs68dJEppHJX9lnYhciItv7gPLvv2kiF RzuNLRbnp9NM7XfxjSfxr/5246t7S+I+JXw9Hf/SN9rXbmQzCTe3dQ95ApOC 5SX9IjZjY62FPyH4jD8PJBSZtNgwGEwDwZRyEwTtTjn4kBkNmfhm3L1X0Y0w QDxo5TGrV0TZSfoOsVgVoqUpW4ajPBfzlBGbx3CdSXhspX+vvSqC+L/8XUW3 SukosaYQJwyEQ7R8arZaD6h+w5Et+rgjgRGe/Tl+9V1bXsaYbYOfBCam4tOT oUtDtpy+6r86k9nKzP41vw+LHXl/Uq5ML9VgJuho+fpd9/7Skh8z9Qbm2A1f SHc/xuTwcmy0gxzthW3r176YjeWfZv4Rvu7zDDvQLj4Gg9E2MObx/TUc/eHh c4l8hEg5KaFn/HkhlcjEs6lgvwlV7/sHQyklt0rzAz3G5zaZDZmko0ZDhQeB OrApj0m+tixKCaHtwnm/WeiXcD90Ru0gfGgsxr0Uk7KgY5SSeUABiBIGwik/ SX5VsNSHPu6If4Tj2fTtcQexgjH1jk8tIkPVdubRfw6Ymy3vXfjEXvh2+RY4 9MLpvDOZmRmvvTxtc8hToRULmZLDZdN7qz3wk7TDI4e2kiKBHmIVesafF9KI THztjrsDXcm0do7HlT6GT/HBsj68Q8trVTNkkuvQg95ZLU5/AA1qyd+m/lCV rWXyuDebfhPo0oa3IZVSaZbrcE22eC7cjSbbRiAKDesLqc+SwgJRwkA4pScp v/lfIvRxRzwjPKcwvx5pJ+ZZ0wnfzMuKN3t7OfIespko52kCWlUZfhkYfGPm 087yt1h/G2Ffdw0p+8ZgjUMrcArzjrJBfpFJZPvJ8V8BQ+auFCITzy7duYQe 4Te0tI98nVbKilkGPcHH+ja3kv4edEVWJfFOGN6wve5pyGNqH1rJ3z39oScV gVtomtzhvc/COoN6LXgv59E6mZyGa8oojXWcn17T3kII2WtWaJAUAVHCQDCF CU5bBazqoos74hfh+NK375MK07D/dLjGqXqKvZxLhzvBUFtvtw1FnnP+Bkqq ymS/lOCQp0IW5kwJJUQYyNCiQm6Ric5oCrV6F1lkbmeSQVc7msM0d45NqEBh 7tK7qbJZ+eKrifFuqmG3coIgl2wK/XyAyFCqIlffK8efRVwHWBdqQ9ur8R5P 0HQ6h+EaX7k9VnoZlXVE8wfthslnqlIHooSBYAoTnBYPT9VAD3fEK8LLzWUw 8+lbtQ/yIS1I5PbjlYyOhHzj2DGNWm2Sc54KaQHDlL9Fd/btgQWppYrcIhMZ eZTq8lZOpRoEPmc88yhy8aQF1WRYx2DgvtK75Ahbs76uVtYPPJP095kMLQet ZdtxlfeU7GXGrwkLoDqoIrPKSoTMDbI/ZYAuJAUYfpDQZTlcU0bp6rtpmgCZ JbF+xXKAQhEpDIRRyChoemeZii7uiEeEI22ysTd8ydpDEaqgZPfj4c9unS65 wetfJ+0fZu75+w8W/yWPnVDUkMnUnq/sj5Jjo6QiqydxTTMkABTq8ra9Fv1w j4EKh9o+JNnMQuIrn8tGOaSPGTs/CM68EGNKELE4A+pRqVtUDX854zthMmAm 52f3f/yrs3RndJGp6V5mQCWULuFV9lk27nk7W7kVakPWcc1DEb77Vdsr0bMW 1sM1qjAxyym/VhUm9eCtprWEOGEgBHLm1fbOMhVd3BH3CEeP8jHUny+fWlXE apJdmhxrL86eTfY/388wXsLORmrCbS95S/Y5xm9z3wlF/EUM2SSyMgyJDOV9 1pO+N6h7o5jZNSHhUcyyhJblNcE3Vp8StTnTT+Zn/zsemwh6h2xVyjcZO0cC k/HZ+XQd5mfj07HIf/m95850W+hfYexyXS3WtxeI6MUZsqnQYCH8avUewjMP b46+bjS0WAcDs7mXAk+HB4ulTGkl3EnHpopbXAFcQQpfVIiBQldZTv5z6iQi 5HQYYt7AOi8kag7XWysznxctK5jJfn4yrWWzcHmQ1LjtWaww4M9a3N0hx9EG +dDFHXGOcFSoVDWNl0HaiChRIHG3lK4p3KDJ8afoQs3qGPjGkzuF6Z7A9KY7 8hOfsj6IIZMpfYfsJotYHq2stfIsJO/F41ORL/yewc5qrVGaLY4PL1+/FZ2O U2XXi4xQnyEqoWVx5Ere/AUztp90fz41J04pUamKMyBJnpb24dAcOllnl5OR Pw9YW6gLKHxrLtBbKMdkdgYeFa6kIDlMPf4kSEwdgRTNKJ8fx7MriWuDHZhh n9PHtZks6scTVucq+2Sy0K2s6k5BNpO6G3QfL6z68mu9aZFrC8sNOkhq3fYs Xhjwo3AGRLljR6KjhzviHuHrU6N7SnvQxwOpOg1vkTYiihRIJMHX5m6OdZak I3bA+ZH/1u378+mnzzNbRFea+ZnbX171nEZSXmab6z/iSzzfEcSQyZi+Q07k ibhRIo7WEh7YFYZMfD1972u/23XC1oYZmttsb7k81yeTy6K9P5KIzNx1OgaG z/uCkfjDJfFqiUpbnAHPPLgx8ivyYWBt9jPuy4HP/d6xt7vbmvPTt+3dq3Fa z9DtzMxnTlJnYgccw+O+yx8N5NuMquTgPCAqheWDobDGvHbl4siJfMsGvh5j onI7CUPmgZnciB3+xGlpLrx93W+Penz56HUPn+psK4zRxs7B8b8l+A7RagI5 +Kl927OYYcD7r2uksSsbdHFHXCOcWlKPQRc9jwy1sfuk1Oxs5DtzdzELEMzS /Z4vIkj2oIZMpjLsZTuBqBslKhGZFEPm56ln0/7BDiz/hL3BCLEp7B205uYM 7GC/758aT0dwRpbiDFuryW+ujP57Z1vRgmdsd7iInk7VnzaeXU1GrpwrTuW5 +d3lDT+o8WFA4+Rz2r5hR3thqDAe6hu9wn/oI+tqEojix8M30vciAY/rLVsp enOLI2vPwMiFQCSxkNHwpEuh/NywPaNTmrc9ix0GXCjmNBSpxiwJurgjzhGO FuJj0kWb0+69hXVn62hMBWvOnNS8903QVzheUcZk7e4bchOZKhG63iCGTKb8 LWIn0GPDPuRMk+XE4AlLi8nuDs+tIU/41dLk7wnTLMcKUVpHA8UZAIATKqgj oUGQba/D7nj9xnCaQLkwKHb9ULKppbjo4o64RzjaUoSh3hGSOdejgqoF2rqC YQGSTQf7izv0+mvYhzoxDFXMgYVPpYK9RERhRz0JJc4jKoA2ijMAACeIiv2s pgagCCLJOi7Naqvfeg2UCoPicTY5e75Iiy7uiHuEU5p/1ddF+lZQNUF0O8bU ohOxE+iwYR9qAq/T831rIdBbWPhyrGWqUbRTnAEAuIA/DQ/ua6h3WShb970d 5GaPsSegl0WkMmFQKszFZFHTDLq4Ix4Rjpr9Wt6P1jyovUtRUBSxhWeXHtyZ XdKLpYYGashkWschzV6p+fDN57Pfz2rd045m4Sxnoys1JVI5phpiR1hTxRkA gANkSVXyXYaaV4wgj4tTVVK1o0gYrMZGrUQ+Q7wiLQqjgzviFeGILmI4y4Pk PKkG4LxlkUuHdG3BoQMvkvM094UWy/9F/tG1arv46i7FkHnA80OdGgTIwkW5 ZmSyobniDADAnpL7xdDa5ZsFlVkPsncnMUOy6xGvHeQPg5Le0HQ1exQd3BHP CF8IOoqKoG4DaHwhYC98jtphSh8KqhaonYBhAYLmPCltSQnxKWufdynIL0dY ZeHQ/iNUsa1DNFqcAQBYguQu9n8c13hBHknBF4MFZ7bpdCitK40pfxiUMjbq OGIsAjq4I74RjpwuryMykcYNtGL1xGkgmyehz4QVkpxkOltH9m4joRgPCC+r 5gumsc/CIZ+Uusel8mi6OAMAsKCcvjD3BlOaHsWk5GXcfVjPKV9Zw6CUsdHN EWMd3BHvCMdfJcbJ0DHsdcerN4DeTE+cLTVzpCb0XqUCx7FyjwmdgSYnDfT2 fCj48rS7q9yp0B5YKD0P/Emof6/2C6YhReYZjkUj+ToNv1AsgeIMgO7Bs6nr ziZIZtYBfUR/iK3p0gkjZxgUXWoMBiQNofU7Ehbh+ELoJKkKqiYkSYXZesRh t1Sm6fJHjcz6XLjlQQ2ZOfYNhqs1myY7XWLtjmOvFT6I5IR35vxHMe0XTGN/ LJpSr0DjHVoZgeIMQENQKtKl0zSdQMpZvvaR6JJ+VbhcYaAD+yINrd+R0AjH s4uhwXwNFnpdGnwjFfWetGD7nJfuLK3P+rpaqVPkRio4YNLVMToqFAlBrELa z06kKfIAzzyKeHpN2JGRicevSo6FUmo3mwoN7mcoa6MFkGPRDPk6PB10llK6 uq/hDMUZgAZhK+nvIYpLmAaCqQ3mzzcQ22uxPxDJiCbLyHcrGh/qGZAlDIou NVG75imKxu9IlAjfziSDrnxTPMxkH702MRWPTQQvf+iwNGOWk95oiuiag28k rxKtkDGTw3Mr9o/w5dPWpry40uv8iBoym6xHDhOd0DHL8Y/8X0an48VH1GLs /CA484J4CCVfwT6H52Ys9vWVocOY6WRgTuNb5bvbS6FTBeWI9dftTYme+jFg zmBa30MuFGcAGgU8mwr2E+N/3Z5WDQe+dsfdkd/mwTrOT+tzoxxFhjAoTSLW 0diqFH9AdrR9RyJGOL7xJH7TNzrQY82pKaPVPjDmu/l9egOdOPHsymz40sgJ WxuGtXWeOuePLepVYVINmXsHwk+zq49iob8UW1hiRmt3X5W20WR36QF77jPG dsfwZ7cX6qW3NMIvCc/halm4SlCDgY7KEdcEijMAjUN2KTJCmKba+oPz+h35 uVBy4zc5fD/q8/RrBVKHQfE0pX42wrR8R40Y4bKBtJlmSN/pnkzcbWUjpShF I3XsoygDxRmARgJ/ef/SsfzS29TnT0LQluSW1RVeaKAZQtowIA+ZYubhSW1X /Suj3Ttq1AiXh50HvkPFjV+NmnVFoywyje547UjbWYt+UDxr3SAHBKA4A9Bg ZB9PjBzJb5e2fzRVu+1XA4BvzQV68xvH+5y+e5lGe4MlDAOiZAd21JPQmiKr iUbvqLEjXHqQAywMDW4agGw62McsMstdIRrEnkQAxRmARiO7EHZZ8+Z852cz mcZ4zeng2fTXI/lTDA08/0oVBtnnia9ufJPU0VPV4h1BhEsNeoBFk2ZdUcE3 426ySmbtKuJISwisyz293DBRCcUZgMajkMhqUJ2JZxKX7CaYfxs8DHQMRLj0 rMXdHQWNqUWzruiUzJY1KrHjmfh4oeHRPqd/tsFKnEBxBqDxyC5OjfeaDC3t 7juN5c7c+Sl4fJ8BO+wKPoD5t3HDQMdAhMsAYshs6g9BvY6cykz63iBKOFVr WFDYNzE08sIHijMAjcfmUuLvN6LzjbWoxJcSX355e36tIce5qjRkGOgYiHDp QQyZjVCHhx0bM758/hwzD4YWy1WbcsIpcW2wg9CfsPABAAAAAACoR7mRC3bM P6fBCv2SgGeX7lxy7jMYmi3OP+Q3hacnQ77h7vwWcLOl72IEFj4AAAAAAAB1 wVf+6XUeaGrrGb5+H1JzFLLLychV99BbtrZmA9ZmcwyMXLweuZfegKcEAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAiM3/B5XwHJA= "], {{0, 109}, {887, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->Automatic, ImageSizeRaw->{887, 109}, PlotRange->{{0, 887}, {0, 109}}]], "Input",ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztfQ9QXdd55+2F/OvebkLatKGpbBr6tszWXVUlpJVWm0AyaOWhi9SkKpXs JeA/BSXxgOO1iLsGey3kbPyycdDWRpmKacSoa5SacWqcEUlEEuGOUCzSorEY B8fgAUvYRhKIQQwSD72z3/fdc75z7r3n/QHLf9I8TX6M89555557zvd955zv 73+r/x+Nd95V/z92315f9F+/VN/cuPv2e4q2NH0JPsr7Fcd5V6njOIeLHPxv Af8p/wj4n/XPn+Ifh/6v9d+f4J9fyTXKNfpFa/QA/nFFcvYnTr7orNskCkp3 ElqPPO+KhaTY5zcQiYvQYGzgsIjvuYNQVVroCscrhY+raptE2+NHCAOnp12x lBS/8w5/cGI4Dh0U+6zvw7vVFd3jVx6SDxZJaJCYOSkO1G0gOA48uKzuq/Dx E8dOiOFTxwl9Xa2u2BHz4GNoIcoaHicMTMzD6wlRaIzndvxvaJdcOiuGn+ki tDftdEV5Mf28uFzUNO0jdD3zU1dML13LD4xmdlT0H2gj3FlV6gqPpqH6rodF 99A5QkK+5ufko4S4ImZGfkB4anACpkiIe9V3yRkx8t3vEp6Vw+W3vwIN5I8I 8LtX0vzuSbme073QoM4zptUpdsXOngknD5upf45cBrF0Btp31cSgnUcoae5z xblEMo9fIAnvPUJ4orkS3hl6hbnytoqW3hcIQC0fzs3yWzzLdfzLFbEw1kto qVjnYvfwcaymnbiEOGXomCt6Dz4EH9eWFQqvbDehc3CSOFY+fmnsMKEu5nEn tR3i6NA/E/oP3g0rWHAzvGHbsVdoBRJyixa3KFlxDn50Yn+9iDnrCBXxkyBM jLW49rLovW0DAd7NxReDDhf0nDltqmniHHUlu3OxL2xqzO5k9r0ekSO89gIu xJZCY+EcVxQ09kH7122jEItirGsXwcOmjncbNO2ZvMpN380DnhL9LeUE6tVx NkDTuq7TNBKA85vG+tUGSP5cn2gu8Qgw9a6I1ffAb8eXeUiOopTk0qQY7NxN KPM2uKLuwEkk4sVR0bWtiCCffgt83D1xRU+YWHLFZG8TdBUruV8MXFxB+Cu4 i1/iFXGs7WaCRwOp+xa0P7OwwgPZI3lgYQTaHyCa3kCAN6Wd435FDa9AA9kR AfpysatzmXpQqyXmocFwvDK4Wk7hfTCkgflr0dVaPCHab/IIftNt3dB0wljY 96hnD0P7/dVFRtc4l92j0H7JoLFfzy3Zv4UlS07Bb/t2lxq/rXJFx8jCe9S4 cSeYPrZXVHhFhJtra+C04UthbL/uAcLgZV9mw0+Wn8ejU2WJ2NY1SliWI6hR s4kP9cWBL/XVbN4XIKTp74u2inUE/426Toek15d5qU0RY13qj6quE9D+/Mj3 xFM/HCNAf7en+e4vVjmk/6faX4P28wP3iUKYpEJeb6cc2rcPzXH7+83+rwzH xXpou161L2ofgvYG3TvvMdsvDn9NbIS2G7l/bxu0j5+6SLttMrTo/11NF3xz dWQ/YZM/LAd+5qyPi+ErSYTzPm56hVbfpwBs5D/mLiSbmRVh/MNBXYWPJ3tu E96m/YSRq/7U/CUvlMmT0JNX8Qh0emJWL9T/NAa5PN5DqPe33vC2sUfRk+ZO x0fFIy52GlPjwv23r6EEBr6d0DEyf3ua7/4y+zH0yKZw9KGDjzz8YNMCaLqp 418FbolXzaVGMpvubQiKguL4MLRXBzjs1F8D4KrkpOitL0H4CwB/vcpHxan5 FURuiX8ZlxiF7aIY7dyG4N84tb1iGr4BOL8qx5Kcg7GM7N/BUyfHvhXad4xc 5rGoXfnaWJfY4lQRYCOgL5UUTF6CBs8fuFUUQD8IJ9YAl9OxhQfMF58ZaMMd ggASD86d/VOhF/+Smv7kJepP9ulih9AUeuSmvMKv4a7RtF7fFVqPu2JeiPpM DXascnD/oObj2gt0JgboGd7SJcZguwbo1V6gvb08u9VGmrsm5gcfJJQo5sTt tMjcMj9oXfMp0VtbjLCuuadIdapH1MBAavRyF0HTmp6XeWPgG9bK86JzcxFh S9cLrlBnkT/n0SZo0uTEYV+l8OvG3gm+7PwvXs2L4lR8G8G/FRTUQtOun+nV bE69FnCjhU5Dc8arvwjtkdx5jgvvc/HkVJ+pQU32g+OFF5fEUPtmhJ5mr1H0 TicQGRYeFgTaTxsvoVhx8QS0lyc6o33J/XgIvKgF5AdyS59bemPpV0ZExwYP YZVDHrfD9SxAcLvCPQMoAhF63cVFMdi6keA19LliRj59m3o5OuxO9orGmEeg Q3XJ3UdD2gCpLkrO47UtXrmOXw72Lhc3riZ+YpL6k336epQ87JH6Azgl6tnR gzMIaTgy12dq8FeZRnODYpE3VQH3BX7nFXGx/x5CgSnl14um/lcJibmXXDHU 9/c43j0NYkd5jECzXVy+Az5uaOkQPcfHCHOJ5Lu472UxN/ZDwqH2JlfUlMfo DSpEbeu3CM9OXSbVHF/OL+MxoGNriAA3dMA6jOhTHhOsQP02UkiwvYPSZ2fP BAsTK8EmhkW82EFogvUviQhNsOK8GNhTitDtNnTQeABOQAs48wLh5OiMy2JC EezyGCoIdsb0YGMwKb2TS0pbL1aQaIa+alyXCuAa2/ZjeMasQdFfVE9cHqP+ ZJ94LkFlA/TITf+joqaJbrENetxGvcLKrY+fCl3a6rJvymeVLAf8YYPa3kZ1 5+cl7010Q/ttpvWC9IjlN8PHW4u19PPKbnPFI93fRRo7NYxDI8DoXBjcOvi4 uPpB0XvmAiERVkU4BLqC13Y8Ax8PDX1fHNqzleDFdruiZ3yx1pzKmb67Qgdg rxEXdJp3HE351+ALQ8DoE3kdbLcw94Ac2efIPkf2IuWxw3FuIYUtgE+mOGXT vY0Ez9BJGE1pRHxqgwvuS931hAJ9klUaRYDzFdU0+boYaNlEkPtUBS7V4Azv U59Xr4mHRdmlf4V1ilzsFNorRaVJ58bbya63dEHTsWu6aV32TWuyH/BvqgG/ 3Vp1NXMrz8MX8t34MEMKnr3wxbFp7siRp6bkwkvwnwMd9SLm3UwA3nHF1XNo JawvMLhl034XFUn+D4FOJgl9zRuBierxSH3O4H2l41oZ7RSb4deb9eEE5eme gfPcVElcQ3WjSbTwPtK8A1JcuM6R0ghgkHUp9Q9wfs1/yWtjXTCWLQHeX+/C 8e41GgILNv9IfUTUwXvXFagRb/wa9Dq8qFeRKZpOzEfUT5hZNn5VDM2vIJzd mZp+jXoGOH/ITfXJ37Gb7eqyb1qT/VgVMb9V9obdqruLMBDjFCtXEvvaIJrh CI6A2X8v8+UlcabrTkLMqwA5e+snbLdtVpaNd4vt3lZCfPjS51Q3lwdF6zqH 4GhV4ebO5wUetVdE+kub42wl1RwgR5o50vzFIs2wVhpfyMMjHwE2CU9OwJVT eO9dH1KJRE1e9PczapVexy3F3zUlSlxR3zvpBD1M/rea5UukpzGvvdbt/q95 liMbM/IYPIA3Zk2xkQv+emiq2CtIsRmb/tUqB/xBg8LfMksP0+4K/Fq+DMIg j3rRM7WM0AYIJHSpeiP/HW5c0yOmYEYB+s6TPCv6GtcTbmo/4QI5CU1br5F+ H6D72NZNRnFA+vsVqV1eQ1jo1p/GxaGHCTc5PDeRAxyfls8jHe4pDRJvtD39 /XPzIcNfU3Zbmzj8P7Jp8lwvHZHqWR7H7oamfdNMA84daih2U3BEfv8nv330 sgIs5yLH1WdqsCv7wX2Q1+ItsVJ9QX5pXDWtBz0mkaXTorO6CGG9qusruHFn uelhVwwtJjU5XhET3bcgdB8F94h+ODcDDHK0tHOKRW3vFCJHjjlyfKeSo9Il pLBeRI5dTI54VMKHBNsX3APt+w1rR5ActRFcTXf4vv9/uGlkl0YTbSUcYlRT RY7JSWgvu0y3n0pyxFtuvnnLRSZykYfqMzXYlf3gNDm+JUa93epxtgOddxdt /gBDU2MxXeAPdoiusSUEX/En0Cttm1MJR8x5hCKZlZEOaLMhcPeA23zr4EX9 kGukbpIqJ/2QEtHQdw5hJUXS30i3U5Mzb4LfNvad5flQj7FoCTZCUxhIkAoD tq+o+CrYDT/qPaclCpNiCiFqKFBuz9C0YDf1DICTvxwFyp+hdsO86N3l4hrV Z2qwK/txMRW+BfZFJkH9nSF9tAbw1zRdhTWqcM4HolAWOcmGROSEa/KgCN/N D8B3ewrNHxe46KgDD2NhpcWVJeYCTYrx4YUcAeYI8B1DgHXyDZIXj4mWEg/B b1BQ30s60nNJTXhZ3PQDhJd8FX7U37whuGkXNvfjXc/Qv35dtpfKDTNmwBrs ocYND6DuAXr1mvupb4AmvaiBfzMa+C+l8QDwG9yyypG9X43sLTDcaZVYir01 or4DroD2yBeBBVnXOggfXxaBf/6ZK0+cH/2pGJ25gtA+3nQCqosFu3HKUGs/ aLhlpibGgntcPLZFidFqpPFPFbvgmLCI0LOH5zsYBsB6fTeJMTnZA53vDEQS lbo4Ox3qdZdIDO8IvVXlAeh11DCLsBFysof626m9N8PWglLV9PU+0Qh3iUa6 T6yD02L3z600nVVTVuxkOWAmyutnVrtHTqpFpnmu2NAxAu0N9U+mW+XmThyy 4TPCVz/7K5KvT6y+h8xVAO32CofhqZ56hFUi5AguR3BvG8Gp3Wb5RXhGT/2G 4DtEneH0MywehMY9nFpXc+MlGj/AqiD4v2rZAy4UrIqID1/i5/P51D4nkUgj RXzQt+jZWUzgDSbP3GA072VuyjqZzANmunuj1ixJbZabuT1wiqnN99JvDJ/k US9i2MVNzVaeGaPjaAPHOlHR2kcYX1jRFpuwQsPb7qD+aJ67NgmO44NnfiQe qFhHcPSF4e7+c3y3YFq7+q+iY1MBwpg6fRlnH4Jl6Nd3Fvwiobq0UOkUiyvg u9qgn+H79Bvni8TcmBg49DDhrupSjsF1CkXpjhZCZ/8LLv5uRr154qIYG+gi tNZWuHiccKSVrHgLoaH9kCsGxtA2YDr9fli9mcX33jzq3+iPMLk0Df2eHugR HS13EKr0m5EXT3H5TtHU9hihZ2DEFVMLCb4P6YeYkuOm9hNodkAwV9kDZGFE 0H7eGD9zlWbsVGRYl31TvlNlHrDmqutuiPsviirw/L00fVr8sLeLEN/T4KLn ar4aFDqjlu9oEHviXYTegWFXvHh+KbRT/Y7q0O5rGlEXprlSh81pbM+bH6CL mLyM+ZegfFF2Z7O4s2wdIVYTh+PtOAZoGoNTQ0Mr2MzxrxjeVzFX1BzAHcyM +8sxco6Rc4z8b4yR1UU8gZFcqCCQr+Qo71inEDotraoVTa2PErp6B1wx/OIM tF8yOv1dppAkBRHLQGKOCYjdKbrOXCLAr96thkxW9oH7MUgMEThvwLmfAO1/ Q/aeXHhBPNX2GUKxjjjwSmvEvfGDhJ4nu13Rue9L8PGO0kKhIuWKq+5zxeHh 10I8rPUZK2LhzLcI0kHWz8KxSdS27id0HXwEzmJVJeo01PZ9wnQi+aqaxHAI p5+3phYdcw8+cUg83nYnoaIYH+BVwtObe57nKEzl8etb2hx1ELRpXhU1JpES xvu/IerKCgnmou34kmjv6CL4kxJvhY9BLIZOg8XVOJD93xEjM1cQWp1lMyXe 9DCa5BBK4NiOrTe5ON4QD30s0r44ThhOqAh163e3Zjme9xs0+GaYljcFhcpJ cbhlGwFI8f3q/FuGhHd/F+4XBKC2j2hqzzd9StRq4S2qfUhfG9KoN1GESpGI 4KD/CP/ewFtsA0d23aDmMaI1ABaqe1JMvn6K0E1paOSbdIJEPEEYPnXcFX2d zSgwUbp4mwmNXT9xxUwiaUbwphQrfxDY7yp2i/iTJwjjc8u/q6bJT0TwrNhf u4Hg/ySGF9r9J86xa3qAd1/6R0JTCXLc/Y/Bx9+oKQ4uaPQq9wH/icmF07hj 1pkXYEw704q5YcaNFAv8RDoz/B2hqZyE3AY8mex/FsUBwXgVGXhNcJTDVb6o 63lJvUpUfsQIO7vHXLSmnuU3XRBnOmsInhZ/jgxSl4HqOpiLMgoRPHsuh19X 7VNoGcL3xI/wBJwVx+O3EGLGggZd+3UsV0IsTD5H6I3fBgvk6SPWNkLL4VNE RKZ3CN5D5V1Ua2DKKbcEwPDHsygYDE3Nn8h3vPqv0C+eQJElJFvcnua7W7Mf iqSjN82JYKMaSnJejD+zj1Bd7LF72yYkp0e6xdFnnydMTL/qivMLeJJOLFwQ 09MThDPPfhf2wI674eOq4vAgyQmwquUfxDDsAgBea4ueA8+50h6EMKwHFvc1 w8q1NmkVWd98U4EEk7LoiunT34ePu+MtGLZI8HDvLa26Az5u6TgijoMoPu6L 4w/lBFVOUOUEVU5Q/SIKqiQywNyr0zBPCmddMTH6L/AxBdp17iHAvL1XjcEp FtVtPYTjw6PQenraw9/Cdzjbo8OnCEMD/+SK7s6HYfD37ihjX+Z3q26I+k8S ppeuKSGYwJwkw4fvo5XyV6vEFVXN34CPe8xknQf2wMfFGAFY1nhYnFlYJiyM ftsVLf6tyrtZPHD8VQKwfoGaVj9OCsFr5VV/U5yB6yeAfb+TCy+KZ9o/SyhG sVjejAavURSLyWlCf3MZK1xQSKMfd0RkmgGiBbtd9Bk5K1sYpimrpkc5Thjy sZzw5YFpClVXYiz5cySCbetCpB2xAhWq9lZnTa/6MWg/Ysh97Qe/LGbPPElo MW7hmIms5lHC8ekraXw5rCGsu9REJX9Ogwdo7tncSSMHsCAzMsJtFTKs4vY0 3612PIon3gR/JfUKlA6I4lGgbcw0v2H07N+KwanLBOj+3yk6XDorTgI/nPR5 QhFcDLeo+MDLpDVZShrqQ4tR0gxI1TLLsn0Yro1KZiVRdWVICPh/Pq9PjZ0W w8MnCANPd7uioxlv/oYfhOZ1TKdb+xDh4JGjLsbyQtPh0YlQr/j3gliAcwTA UeknUu5EWt37UUO2seoXtUHzgw/hpR0hhwM/LNonhq4kEc6H+BmwV0+NEL7X 1YKyxcs3lye0xxcZY0vMvUQY6vt7FzWCeNHFrBTF5SpFhiu6nkHflJlEQM+m BpnQH/Oe6t/utS5LjQVdgWSgE1EhO2Br0vJ8YI7A53/2bSecYNa61ZqeONoJ rcAVG+PPwZeLBp+8rEaYKv65oKlfIO0DdFJT7bCNHm0uurMp8XWxHxo0FYTG GNUwmzHss4N7CWV2jwalC4YjLh1wAVo3UXaX6D5ziZCUTvGphWhEbcNi62I/ DbophfRmsaXVNIUE5WRcn6nBLascGb/09fN3+7jBHjPH9xF0JFRBzd/Bfz5v 7BgsQ5E2liaPiXjNeoQ+wTgb6L4g7wy/xcRncTKM+P2nEQUbSd4C2C8dxHie KcYdg53zREnLMXZi+AP5C8tGAWcpWA1or6dZWmBywiYnbHLCJidsxFsobPiM Z1ADyxkjNlSe8zGdRJ4YeBzTWjha+WAzFn1ajmp5FDVCfsYLY/UjvlB6ihbE WHcDgZKrby7fCB8XOBllgLrcXENvse7tRWR6keaXSTWrCTwR6qyg1ss1Mz0m pTnzTUK1ZxUmpkXn8uADhHWGPskpogghGSX022q2lzkRiOa9sA+cXZtGJ/U7 ob00VJIQDQQuo+NbsH0k3wy3R+WWHDJBUlg4sElpTRJAtngapxO5DLm6Pc13 t6xyXHo2r5uD6ceVUHn9qLgbhMrdhlAx+/t1c8q7GzeHr2p4kZTWVISx8abw Jd8mOkcXESxU7BEJIK6coCfmH8ohGzOqmR+D1DBMUDVWzG/3MIdrGtK7oae0 Mr/he8/Mb4TAsa4ymOnpXUzkJaJ63zECTE2FwRJGVHxKIycrjuZQV6BVCPqd G0Jkohhdh8dLLUb70FxmRi9oEn2vJxCcyVtnNCjYrUJxWLtjVYqWY2QIgjUg fsyQb9AlOHaHYxVwk5x9VuyrWIfQ/caaKNEXQPOoPYdUpN8MLseU9RzHrNqz JnS6V9RCs1pqusPF0MLb03x3yyrHpQ6E19uH92NqHOj1NNReGVloU6B+SE26 5TwV8pX4kN+vzW/a6urNB1h7iEcN5oiaMt5Pcbcxt5rSw4ukuDtbh+Ib8W+O u3PcnePuHHcTd7NbIDrOGyXL9KjCJ5tP8hJpZybVOJJbmT0ktVFC9xx2G1Ln aj8sxyOsj5+iRBIvm+M0jqTGQt5EunKpL3+3bp8vhVAhobLzebL0at9NiyXN MI4xh6dIths23JpJf/TlQAlAr/JR+E+sGaDaqzRYKyMdFIu/QXcdvq0yk+ss +oGhhCWlncmtd7667Jvuyn7Aai6uo5e1ZPxkNEGhXQBJbVk047SjvGfz0MOU r6VKaWMPVClookhbYzbYwBxJcG7n0bUJgBT3sHInWKnmRvy7SgFwo56gPHOC DMYqEtX7hwkwQ59gvtEhQfmpZieDQyPJFukhS1TAN2ttoEPDnItWuUn1YO1l zA+OFEHjjkwnbpnCUgfTWULafYdNBHN+ipilCLuxi0c0PRhzR1nbjylJLkBy Poxjpk80eA6Cx+E19FHK9xmD7e2xxjBiaD+sfYI12+t+U52+6rJvuivL0Zry 7/r7Uf8x936Vzn7++U8TVFgaGxla85QoRhj9k3GbkJQVPVJL+6J9eNy4otXZ v6r7t3JoOBnRqtifs9hp5VsqSUtcnOP8HOfnOF+OOsf5GTlfHvp1ERE9IDye NfdNsgfoZgvnpDz0q0vfZfQCldYXQ7CksKDp6wSupouLyYwvLsCSbEbwUwsw BzZe5dVTdUdmiJefH5YZ30LC5sQoxp/pg44aImbFdQ9Ae8w4op7JN8uISQqH uUXsG7pISKriaykSmRgJSv4q/RAik808r/tVi1hFJKipqi77pruyHC1LvrfM k/iP1MgMxX5KXZE2qQbcedmlKVw5IWidjga6oBII06up9myUika+hW0ka+D/ PDOaX0+/Yb24Edutkvl1oFtCvN7fQgC5+y7V1NBCbbZ0qcYciZvkucMQNeN2 qgdupOsxTWja4OnnCpg0vrMdHcLJfqUeT0VeFZB4lCLy38s3MC6rPB6gLaKs ywbjU3XsWifMdRHCUoyPhDXSUYVQM+Ntow3UyN7xF7yaFrdDwwFOsr4tL5+V FZj1jV2isLzcFZtol9gYf44jVeuyb5rWSdIYrdpg3zT/2T9WA9F2fC39w8Zd tYCLz+E9f2PkyBZON8KqiUCyFqtaSlueL5KqUaobFSliJkTVVFbISi7hIeLl M/8s+o90ETpaa11RGrDT5Yuqpn2io+vbhP7Bf7VF7f4+05lFD23oQ3OCICcI coIgJwjWJAg4WASdd3rqSkIMK93uG3sJk4nkf04jDSL3JJYGmPvOiMDRozdc IZRJbhGzMHZu3y5aj88gnK1q6pOviKN3f4IAB7lPyad6n4D2dx99hUWBSph4 FTvyw42CT/V29ohJaAngp17DWjhP3rZVfLb7Z4QVnbchVbFwJKcNHSN8Hcsk P8InSKWftuQ2o/aboH3LwOv8YixCrGYLnfxXV9ewpPD1VxSHLYf+n1VrOpx6 hA1f73ZF13byQCp5UAzOX0OELAVpm+7Kcqz6lH6dnU1L1QBsZ+6wJGdDD9qO 5V4YUkiUUl1VWVu1gEe9JCb72wnVxevgKlP3TfjNqdmI22By6SxKyO99Rzz1 vdMEeIf/wJS9KKaHv0voam9wMcnCB9RY/XQIe0RHz3HC2Nwy/w43zqF9hCK7 y+AbkQmkIjBS3er5C1PmxjRSIRKspOzgRiSLMc8Bxc9nLf1WyhEXx4f5asnJ eS/DF6Odn7EIGk1yxmJbqoBH3agysXU4/IYr1mDREyO1uZY/27vF+DWBMHh6 gerVAoxBb6Y9CKDVhpTdrwFhtNPp4TcHWLTYR+9LrjjXu9tBV8lA8ZrPrar1 zizHyik4bKwX1o19RDVefp5ywgK4caT8bjUTPoaIPU2I121yhaHb88rqxN6u PsLQ8cddsSNAuPmite+nYrj/EGFvbfDHTvFW0dT5AwIw2g2aE1SQpwpNGnfF yJEWPMcEKMLqtfc7OSbMMWGOCX/xmPD3LPOi2plhvGlZL0yanFY9eqWJ2tL+ nJf7shjvP4hwPi3i8TickOIH8f4zfjnS2K8t5iAMpi7ADOeEq0J8WE2qvVB6 JM+X4j+Lo7LVpscmGDpR9TVZSlFpYaD5z5IjyeArzX822tcVpBT/+UH1xQT4 vYsXPfgYr3kYNCIDRz63qtY7sxxrWv4LXxm1n+Uycj1Bxd4ow495Pf8zf3aT Sy8jb/rpIRB6tb1K0dx9kjC9dM1NN5hyvCxrBbQM9T95GLeXquiF0Cv7oug6 9RrBzA91DlqgaVi1f4/sP2JTXDsjRiyA2hF1E22Fcjv8U14jXb+FXzecVkEX e9E3FdU4YvS5qBobynnVOFJCiXkgBY+FNf+Kx66h25WRA5Hpy7SdqZkz8lgb vF5olj3gDTzDtpWevbTjq2IvPwhhMwG2HHzTC04+Wesc71ZC9/iVz62q9c4s x2pjL0U4Re1DnGNM+jgmL6JgbdZyS3dqVNeoUnNqOIuq1fUDa0YuhMxZWRp1 lO0LcwD2tmwlGMYoD9VNjd2n2RWNj0dojMKMLv1P9RJ6e7pc0RHHGgDx+F6x p6GOUFu7E/bY2w7hyeuqpsAcq+VYLcdq71hWi8kZk1W69Iyp42CkuPbH+RW1 jzwfSI28G5rTdDU5njE8sKDWNchp0hgERzV5XMszZ9h0NWVmOwc/Mrb8TMyW oqRuXiAPpi0xsTKqRCLW9OlYk7BsDDdTJ5guVZ8ybQntNc9xpkwd57CNAHPG 4R5+DLmP+HNUB9USH5HV72y3ypQvwfm4bKRleAewb/8FmvPNoTn37wN4pJTH yq2SFOd/Ci0O7Awb7qB9yT3iqcnLhKTKOpYlSxqphfLMHLPGYDZg3jQC8GTl 2nkJ/fbyTL89HlUkP5gOAA+EabIN1IjRlq4uK6Od0H5zVPsQvv3MytlMKQrN EBVmJ6xwjXtotuyUKkmB41e5ROjpMwSGmpGIg/oa2clSJNHGTuwl792lbIiu WoJrL1JUNkVmlzzoognhljX+bm3sZMgEpi7DtBYIlTFDUFK6pFWqnpdfpOAn gCZFlMDxUxdDHrBZchM3XjojumpiCN0zOnPtO3Gee/50jpVyrJRjpbeblSJH n0DQ/s6eCX6KzK0SPRNqgtARUcoFMytv21k1FvuRIC8QIJuJk8JnSNYgG376 KVSPv2UICzwmyVBSPm6Gvbn/3GhvCJe8tXGTdjhgbuJj7IYO5eDKXBFQyJW4 6HPkpKjn9ca6+YtVvqUtMStToGEAvsGyMEx8aLXf3v0iX9A/rd4FE8zIDBuG 1tY3DVXGTxLmk+K9q2c232q9/NJhws4CvUkYlUffEKuFnU1s9yOVwSjF/d+n WcOFjCMEsvFrY0Yj050ODDc6Lyael3z/oQy8FvZWYF6zuMan0oyk8CeLrtJn /Pa2mqdr4DYdS6u47TKWx0RRhaJJiqc8+d38cfyuxEP3OcLYcnLXGn9Xs8r3 MHMiG8kL3mXQgyHD1qm3NjzRmSh1omjnU0avickjhDo7zXMUbDa8pNyWxDx8 MdKx3XKjKqCwIxl69KkcQ+UYKsdQ7xCGCt82uLFxT+Ice8h94923RpKjROxq q/K2vKTGbMTcKzXbdjx6jhs9c6TPqvgpZSKYiOeKOmymcu54q1iKD72Xod+R jq3Cq9xPGFlMrrO+k8ySkG9mSTA78d1gyoXMY//xN/sBq2XSWtnXMl31dUnu 1FSmZaXt3Kmz9X9KtUu+Tgl2AJr70J4tGR+xOlZVjZPneikLBCC1ZqIc/66S T5W/tZlkTb+i5iHl9WFmVudR23ODZOVwNcdTfJnWF6D7/QxdvLTPRybeDDt+ cfWtVI5RBTsPi5eWkwhmCHsa0+jS6KtaIOXhGq9q9TRwgGZMnQ2HSV7zzSWK v/ZjsCtdvCBzVhlNKmhUcdGm8rE3oc+/WOX7K/YTV+ELaWgNZsAK+4x/xP4E vat6VKVQViqsSMMqka7XxIRCnKfqY4Age5vuKjkmzDFhjgl/gZnQZvo3He7Y /1EvVWol06r8HzkOcOE50bGtivCFp1+mJNIq5m8cE7Ztj8bPhE8Zmbg0PL0B TfUiHMcq4RmVAeePgC+MunamCN9PwahZqtd1xOY1sTQ9THhq/32uaNhRLs96 XmkV4daGFmCSLsyOMjQ+y14U7MyawcpgZM9Q6dMcgmIwJv/FE1SHiWoxFcJQ 4N6ilXwG03q7MIHg4sferI5VcF5y9ieis24ToaB0pytaj+C51qzF9cnVzLny fDFTPKRU3Cv3l1TOHM5NWJxoyNAkcJ1fDPgzcvylPnyvQTpEwsD4qmw4XVxf 2RDxitoop+Yc+m8Yids0+RkZtlflJMbi4copqqxM1ZVlhmnO8TmBu+/O4uhT jRlYrWxgtXryohjatwXBoyzbi6M0YsBUAukpDPSrid5vw5vAqgTDjSZXBavg lbiiuv1J+PgEVcjqJRzcW6drw8VERdMBwsDEPFV5+l1+dnopwYF7pt3Q2eSi MHSCpo1AdXTp2kwo3DPgYkGBkCD3REnrcQJ8V/YWPUdVQArkKvfvlLfiKXJc nyI/uZrl0dXHFyllv0zbr7jQDENR+800skmtRYJEPLGUBEmrdTW0bP/OwrMp 5YfKckSW9yYb1xrX/ZwEyUmQnATJSZC3X4K8J9U8skZ9Ab6Q2aAMFT/+3QrD v4RYnQOtTlbC9zBURbqoiWTDQupAqM2idfACQssQe1H3yARLzk3OPgvt91VE MtxS8sGWo5y/2UzTF70aR4WjTYxowghIaK4rrFTbwaHEkMC7x4woI7HsitmR Q/BxY1mhbu3dDMf2vhdDx3YWlsZNN61MQS+KgftVckEMY7wXmvadiyQJTL5+ FNpj+Q+M8UfsGTj/PvkytvTwZW/+I7gaI5A1Friq4wSNkVvHJ7NfodvlE5ew PjEVq4pwo6b/zJIkfLuWkgSzWeSZ2SyM7unFEbpEy2rESBIzsBvFogIyyrAt 05ysVZJcGRLtRQ4itSRhdcfiT0VH5ToEazAiLvvSLJe1w6MWJnBtG3yQUOIU u7jsoe1Kua9ZdJ/REmNsHkwRIhMOU71RtcfMGgsjj1mSaAactrlsQvJV0d+8 AcGTEsnUqgWLFq+aTnTsyUfVIC45eWaVIB6EUZZMNaUwYZ3Y0nw/M62lFim2 EBztQKV8RJfHUILt1Gn+vYq9rjg2fYXL/SQmRG9jKcF/ZsmDKE8Nr9D3mGO0 xQJ87K18GGsTjFALVkA39tGCAQwZk36x7khFMSl5w4jqD0oZZlHjWM9R9Sn0 GUY18jWJlwiNqV9EKjmQqMsJmJyAyQmYnIB5xwkYo10GASNz8cJEyslkD50K +M+2wRmWGZK3Mb1intjiRA93pqM5JwjJMmHbzXJ+dNq+ygOE0eUkexgnz4q+ xpsQPG2p883ZC3JEkspom8oVca7vXkKJ4aeEpYJkNU+6PnEJUCq/e+pRi0Eo UIhGRwPbJIA+DbMQQsewhaGvUDqTMmN2zVTreTzoQOpOV/VbUCu6fraAMCRQ +lwVgUpWRr50fx68ir+B9r1jl8LUgPF8+WY8n3DsZXXZEoHOffUlvsW7YLeL d52PvY3P1vbTeVibSoSeH8MX75NZruNf89IsivGe3YSYQU/hwjdy3tFbC0vZ l4jS0nUIw8aqze+ch9VYTG5nOMuuTTQtowTqqY+IpohK4E0XTUaQU56aQSO3 SR5qR0k3CjBKTeD1t5Fg6MbMeam2DMKWxkpJI3EF+vUdLzcRWgZed7l6QfSZ vMphb0iWSilSXYXPZ0oaJHG78Mteh5K7AOGUNTxOODZ20cVha2Pfspgd6SLU xTyeiI1fIydmgOHvkV6XwokgkpfEWN/XCY0VJbBmVciUR0Y1U3KAL50qwonc o9uydiK0aS0Cfji/zS8WSOPuqtZepWg6OEAYm1vmlJ10Qpg4JjpqNyD0C/q5 DxCByssZCoOXviNGoSnPktgzqE39ZJaL3KBWzh6anRdIBa21a3xOAxa7xxWd +3dqkaXl4WbLILidUUlgbSIrVfxgxNuKf4F5XKXfBKFhR7krS+hKvwlCvKvP Rc+JkGAivsxJvpzky0m+nOTLSb7raZrjm3dyjgoBy2LATGQYe9NyVJmyVD5/ 40hvdQ1muZdN7sQqOQTD1wtTPLqY3zFUXCCiYQvLPWU8NH2XFVWZAteUM2e6 7yKUeYYfaQmm0Cf0HDvpitGJafh4buma/3vAwvkpV4wN/wA6fuKR2/DHbJi3 3jiyjYTZoPkYi+HcG059Hq4ZJM1FWcedsM4LDX1GbWAtC4urRXNHD2FgZMIV MwsJffO9JpbmzhLGhvtdcWhvHXxcFvW4RI1GScsxzg/BFaepZK9/E1RGt4+/ 84YkbYRJiouqC/QFUnJTBya4v2rMqpY66Vd3txp14hWSfFL6yX3cq34M/nNk QXufsE5Qp2JDhY8rzo92QlND52zsZZYk88GR2aTGquShamyyWRbekEnycZF+ LtgUy05Utz9JPi7Sz8VFJxdewJiQfi4uOrk4QR35jfj3uno+RY2ZuE1heoET ++vVmUi9Z7iIbaA2namULa3aStUnUpw2XuH5WRbTfXcTYk7MFTVdZ+A3S8Yb qzNPCj/nSC4ULnxOCVYdBJOlqdkKBBxPn3hM1MY8BMhJTVTF5XWEtiPPu5wr KjTlTPNF+0g/CNDnmMxl9QxP3nAhcGSPBrQ1zBjzoc50ZmH39/GQY6K86hME GNn75DMj1cdYtaiXrZCgalZ//K14CFfDwIhDwxtIdhjxR7bVBrJN/ucVEUeV diwUY3XfEmdA6ACCpeX8gW4mtA5ecC3pThTXp6iQl5kh1yR3klM95ItXYzYO F6HWOsbL5BYD0CwYayCfGOkXoxzPZkcOkU+M9ItBlfnN+MJ9LzKX54ROTujk hE5O6PwCC52gCepTilPgKjTacy+h3DNugOtFTfxHBLgBqoPx/En4jspXx+4m 9L34AxcXKaWTwpR85yRKtv67N1K9MUTbsVdInaTkjD3RfdTRwBbNxtRoGJd/ X70gJq6YOUXobq6kwge/xxOis82xiNGiQ/drJPrkOke2Sm2WhKCc9iMDl5kx jonpHxHiNet/gxfEXhDJtLKV3O9iIo6PX7ee2OEAa20bhnRFsI2he/jmLOfw i+qZiQti5NBdhDKT+DwRq32McGL6ikxdk1wYhu/2VxeZSVJwcOFE+IpLU5Ts tvOQaU9fk5ywNg4bwLWciKQ0RNbJN1kH189Fvxf4WHq9SGx00e8ldMNfSz5k JSzM8Gwzt4RS3X1a0QEqqmeGu0Vz+ToCS/Z8EauJi6NjFwkJndnG14RN/dgo Vlzuipb+KRp+pLi9s54WzfAxOCtpxUhcDZMOp5yWJ7Fi/GygMhlMGGwk8PFG c0P3alzReWaBy0faONdQ3/9H5gisEtZLUPVWfpdnp4QKSgBYclwb6yJl1Rbj 5GOWu2Rn8OS8mPjhIUJ7005XlFN9xtKqO0XrgX7C6OzybzGpWHwJLOkdkz9H hfi2sEt6xJ58A89nIF33+9VaoupYOoDRJmS6sGulcZErtnWNQlPWfTIrQNdL r4vR498mdO7bY4bMqrt9+Y56VzS1oeKjZ2BETC0kECwE34TBqX0mVblpDFlq 6n81ZVE8x5Mn0x3wPi0dOPDjY2IOyA+ge8etfW7sh+JQexOhpjyGoqgCPq5t /ZZ4duoyAcZflCXZfFINP3FRjA0cJsT33OGKqlLK1O2ViqraJkLb40dAbp+e xqO8sWXeqNk3z2Rf44hyi4j3/5wA0/rveRVeFH2tNxM8yUT+mxJVSsp8t9oN 7kI5PKO1WOnEramVfbPFra8tRDcf6eqj9G4NeLUxzvhqmtB6ZhQllL0X1MIP 0dNH9Z6TuCIncXMSNydxcxKXG7/zJC7rm9CIKwu3InRjo7w2W8izEhh/5Hed XMBaxj/sajGKcdPk+JVkvyT2dR4iPNHV4Yr2e2vwY1SoeVsJLb0vkJKLRI9O 8pYyZc059ViUxj3NlcCvHqG44k4XKBJD/J44+JCoLSskOFq7AJduJgJdTV3f RbTxSrte/yEvaUIsTI0QBnoegyc14foAT/DNSz2LVD3F1XExOJNAaLLQi4Ul hl2xo7b2A6K2ttYVtbdWqXmB1ZMreINavBQVoYvgOTU9L0ecVZNYCvxUfJtW QcWAfTuPofpi6Ng/iPaa9QSv/F5X9Iyi+4tpYkoRtqm9H3QwAeessV+RIxmx lGRIollrYuBx0QArBCBh51s9Pyvan3mRAEShctwkMcq9b3cpJYGViWBV2CJR K3Qlu0Pph6HtDW1/K7qfHiAMDQ+7YngIr5hPdz8qmqtKCPKijMoqWfwRwdbi 6zFI5VAe1Qvni4Lym8VW4Jetime8stvg40e6vysGTw0ThoeOuaL34EMozcvW AVE9SOg9c4G0R47vIjJ9bC+hwpObFrTueEYMDX2fcGgPnF682G7cQsZ1GDGv XZbUpeMVUKV0knCgboNi9bK6r4onjp0gDJ867oq+rlbcy+juXiikL1VKk2YG QUK9H3+BcH7p2nt57fHIdITQVl3iM3q+yej6JYNJUFPKl7d/F+EAVGQq6QxG KK76GxfdwULzl8cjHiOfMACLMllGEvHG9g+MJzd86qwRLTzwNyZ/tMgFQluY JAw/Q6ejO+BjQ+RKtindDh/fta9HnJxeJCT9MatOrgzHCesN50G0KdX1TjJ1 v6ra06nnEKG9YYurzfx4qiLUtnYBGY9dDKmg2G0hmFJfi03tr2VEIeSZNWah D/wLM31+IUpoKxOi/9E4AqlLVgp7RLTvuYMA86KORv4OVL5TNLV+BUEt0Q+p Gz1j5oxBsxDQGfECAjyce0D7gQZy7SrdpVGgTXbM5pCCin2E4zMJJTAtKQat tXQDNdMsR+mwPUI6dsK1ANrjpeDxti8QqksLDQLIF+W1XzYL3f+2munkikis JBFM04mz0P441j71NhMaHv+Biz9SWuIEEv3Y0bioAYlXE2ORjqfUQ0Z1ucLr ODhWqK48T5VzADpdesVeDLBDsD8jiFgx0FFPiGHqAxCU8PFVI62hP4BN++Hj kasGVyYmQaI3b7SJlFWQD+8hugIKUqsrSprxbHwucLnW0Y+zI+IJOOk9Qac9 Os7hng0nR76Y6dgqmJm5McLAob0uHgH51oE3lzv3ENrj+13R1YO5Znq69otH Wr9AgDVQ+oXiqvvE4eHXCAldgcy8PaUU97yHGFaa67eHGOYFbhyufRnITNF/ r3Kq08JIm37e0LaQKsYwRc7lNyg4lNNcEv19kQnU3CgmnEcD3B5b2SYdV+uc 17QFvST0BTKNUdwql27n2ZpE3pD8oaahSFTvHyYAgf6+eqa9iGHEn+D9qmvj SmTz6WSPwGXY+3eWEEpa4NB4MSmUhTmFpmYbZg6ciDiL55tnVXM1TfeBGvVY 04O24BZX7H/utdC2qBd+RSyc+RahzveE85nyZvHA8VcJMJb/xu99kQoYATRN oTZG1qWnPZsTZuFBiRz4vQpC7a2fUKK0Fg1Ihrnc/wlmVMoT271oBpJsFyhQ HEvmSPLPOqFMPAm8FfS3lBsdwpm5rgvTopg5Z1Q0QmIe2k+N/Ej0dsUJexp2 4A3cyw+cdtoeI32Q1Alx3KpNNqSUThYj+RuXThmOzWovX9Xen5NOOemUk045 6fRvSjolX0aFTE1RVDrh6M2sedpvYu3sVq6eSjng6zgTB3fkrI+THQzg0GOV J90KKlqNupxyoSPVkVneWAt8a+Neiez3yhD0i7lpAv1GXZ60sLGEwxtuNTo4 Iknps/0U2lsxgfsldrazp2oouAd+jQYu9UyOmzMuVuzOadSh2qH6JSc+euBG QnPfJGno2B0RL0iTPQ2hq2tEKVfFL2GryxcNudL5Bi6SxkVqXVT7GkzgORW4 VBER4GW2r3G9mTf+I6tcFiViFk9g+5sMD51t3S4uiBpacmGY/Jb2+zng2KzW PUoetwBtAYWlW4EtDwGP4sgrg6Myyg3rBS2sy1yb8DDyyijGNndu1htnuaO9 EeEROUqo0UfSfmvhsXb2UcIjkjpc8/cOUqICgsJDzKHOr708NBeRDWuVwsMW G2dNKaX1VXalnHcb1e8BOMqkKkOjbjKTrXL9OORzIxZSkUwlkQy7rxlxt3P0 9gD9Okaqjx3BZ5aQckUqWDgBlU5Pz30U1B0Rk4kkwvkzv48UrtzRqVYaraXT KNd1YkbZft0D8LFhwFdv7gdVNwrvpocJQGMfWeVi6DRAAZ2sWgzjlB04kGtD u/aR9LZRGV5ZipfjvZIv044KSM3OnJg1pUkgrE9cm7Qw0kHblOWs1MxyS8pJ i5y0CD4zJy1y0uJ6SguOD8dZHHpYlT7V8eEURENY1vnH3yCvfFLzSp5aYoSj VRUxMtQpYx3+8/SP8s0KrakYLFt5weEj1syAWmip/PiTeLzeGYgOK3Kx+pBj raBIfj6Yk7vgHgIs2G+oWYyGbIVV+maIhLE8WqWvC7VLQaEiucmLjNDQst8V T41gInpTC6KpUOs1zPlRyS6k8EhxJYx6ZHGgXgrDXdj2rnYVX8dTSYD3YdNX hmXRAenRZTbvyWyn5iD4wM228lFof2re4lhmhJNnFhiY932koyqy50acYtYo MCwFMQ2eCyTZs+xB4fSoaxcYwX3LNpZfu27sooqbWcrLR4Ov6C/7tJlFnuxq w1VLCSNJpC0GizWc/m37phC3bNqPBKJtrJr6Kf3tZkL70KXf4MdF3YhNXYTS EUYv5HbdVfqytk4BqiZ6z2lVg6a8ZcrdB1Bzv64VoxUvG51zcie0iqNICXae gges2t0SaIquz+Fp8nUzRQSQk1SjjSk3w9JoSRE95tokhe8jRZmLTRdN0its 6xolx9/lTJIirLtRkmIR0w9RItKQpIhEya1BUkTOT3o7L6Khy+Fz+qfMscM5 UZETFTlRkRMVb7aomD8uWks8hB45lRndd0LMAyXPm/mM3hjjsLBIRq+EkQgh +qtJXNcgtZHP6iSFdVKRcsyKpmzMYKkXPFWHs2UxF6Cj9MlhHwsrLCxsAT+G 1iHg4+1XxTWnOEJ5uiCw3YSRjvgsVYI2YOjLiJZGWl5k6Q2o/SdHRMcGD8Hv aca9aJXWFXF+9KeE0Zkraag9vDDpRIU1E4NFV+OU3I+x5whDREQL7kZu/Dru fUlM9jYRYiYPF1MlH1nNh00r2YgHxWRXMQNYx6ao9ImUItLCNX2agLXIB2WK piTSRtU0PTXh7YjVi2+MYVhIGAyT0o2c/pqkHXErCd5ds5UT7Nti99r3bsOd Y5LTtGmvZH0MUkNGopPGPyrZnKLOtE3BYNQqDtbWTTEb8gCRqnZyZNRyxVId OCKKBk6nGD0T4FvKtHC0JWnBbUnYublTjEIjgA5iy3KiNfOHk6Dk2XNwRnQt ESb9U24aPSJExK7yKU+gX/rY0w9gNAhCOwRX7hcji0mEtqmvhv39mnI6Tk3/ wo/H/boYmLxMgLFnG06akwA5CZCTADkJsCYJkJz9MXzRVqZPJKbVYGf3GGHZ SPOTmQe22nkgZeAQzZCaoGuon/ArvipqLXTxygk/MtQWXOo9W163X28Km7HS 6UXDpURHtV4AstqM0P0a1YMV91r83KzjZcEQKGprNVN8Rg2Zotee+oqoKy8h FFfsdkX86EtOMNNeBkaPZDuuUq9occ0yj5Za8gayx2tZpmN8FaNnO8s6EnJF zPTdRTC79ho5960eRSCTuKSmqBOdsiwtoLn1cPNWXdrX2+SKuvgzyNpGrlxm mKiAiGpaVJrla2fhi8G//bKoLY8hVKZsrwILQWPQkPrFqqQEW8+Tr4rBhz9L UPyL8hIvL9V3PSi+OXiWANTC5q/MG85axARHBQW947iWcfU3Md82wqjAm55z 1O0zZZFh0yOM5sUo42RLbr3xa/CjYcMFY5WyAYuU55tFygG+H4aOAUphMNQB iemTekTJVB8U7OFFRhWEz6fn78g9lvnbZos0tg05rbY6hOtd0dT/2o2Z5qc8 dQ+lLk6LUkZbEmJbfSU0DVnyGFD+x/oeMb6cRFhpWC/zenwDBO/qiyN4otpd h/kCENAzZQ6oa3oQvni851k8oCL0MLJhWs4ZgI4F08PfEZ1tTYS62tp38XPq xBe6zxDguJMmfNO6efxmjnNznJvj3F8Szr1RM02emB3cy9UF1YtEfN4DSZXS U7vi4RS1ufOiUQx8KFl8jgwn0niCnaOYaB28sGr21X5SV6hukV+7iMfrbe8W 4zCL44bblq41GThZRuyQGdy8InT7O6n73+ziy2Xg4c1YUGHUUK6niD/Qa0Hm EgRfCi0pXj1XrI+fgvZ8kgxInozTVp66a6t9UtneUvglOXgP7xjR1Vc0u2tF vZmHTvk7KZo3syBridYk+l5PIHSdk2z4VomFbCX2WphQJV0LhbWxMSAY1qbE QrZUukVTaZ5JpQa3aLXWRXMoo98mtFSV+FdHzBDVZobZ/xa3XibNntTuKSIx cw+sml2jEmALNN03dDFcIdOvKW34bin2u9exeFmmcbIK0x0rzTBrm6G49NtH y3f9teUVU/owpPHstQp3Nli/Bu3R9zT4sqlTNGeex/L0XUciYXgo56E9quRC /LseT2ywq6r2mn+1Q6Atzfdvqn7DzruKTsyy0Gti4mwFdY6Jc0ycY+JfQiZm aqEShWO9oqViHYJHFclMyO+bJf0yI4fr9Jm6cMOD/oIaudbl6sGgil6GSRAR qMFYpIp/FcuWgQ2bXVZcoy4Fybkx8ezwFGFJpeHJN6M81eqi+5ashE5D59s7 0s3S3HmqZAfQ0SJRj45wiVAWwVF22UrEdIkHrNncVv1cX2G2yWFlG1bNbGVP sRQxhLE4y3Kimc0x1zIVmkx/y//V9O0j2eyMWIk806PTmByqeYLQtJ9ChoQn fW3snmVY1lrY3bzkYHkfWeLH3LOxxomsc6LMUmsn8q1qXNHUCtHNZSbNS3g7 e8Qk9AjQqxBNTAs3u9jup0Mk+t+Z9LOTAdFYMm+XC+eMRfZsY9cu7c+rEnAJ XRXQugMw22Nmi97aEizvSlgUnI3T5pZklsDQJ68Evb+cA1YG7X6aXWmZ7bGA SF0Mod/dUKYptk/h5Zoy7o6I1YiLUoRgjd9IN7eV8p1WRjrEBvh8Q+q+gq6s 0cygYTdb9l7GlHYDLZuETl79WVfUNuC77X9GJ2uT9GXT76GIqjsC7Sd1Kjjm cmsxItTioEpCNWY/uMwRVTkGzzF4jsF/2RjcYCRm8JoeypICcEzbS2LuBcLR +C0uOtOyChv98/efOMdndi49/wbomjndoN2UPujM6cYhnt+mOE6FnwD6bRIT orexlJDiLJUtk+tUm5HbPTJbZcdP2ZdGuZ753valBDgDv4t7SJAznnTIYyWz oVllZufTbIGP3nPLzOy2E7dRX+NG2UdiAgVGo3mo9O8wymVFzNON61axff9z hHmjNkEkRyo5mu/um2JRzRIghWN6OBkq+4ZEnZLCcRSaKDPOeWX6Xs2sd2oA RkXjVGfnQLXC5ZcOi50wD4iCnYdd8dJyUnt8z4jBtgqEXgyvBks5UDmHGtnO WkU5fHf4OHeaPp7J5HPe2/DCPT/4kIoN1+xhFG3UOZt1dv/vdbW4mH7cyK2a L8oaDojBqcuEpPZbWTthM7dHa6FFnSdnuN8VMXviEUKFp63hhunEFF+hwtPU 1C8ch1g1wydnf0y+dtLfzhYprUt3c1AVyjgXBZzMAgBTBg0aA5uCb/YNmurW EcrafuyK2aR4t/FaVkchratU7O6Tqv/6BH/M20gltqxFKbOtf54opndHtPRP UQ6vQFrzoX1bjIHLzMV5ZuZiDoCxuKKG9QvsCmo7XFg2pSyWoDJdl2V7xeDs CiIN80eu/JpLFsVL3fWEAmedKyravo8nRePdA7FJMwNtyvqrJoBK+Xad4cxf nNJkDr6gPI0OJSp0AtZ3mGOaYYCWCRnClnIyIScTcjIhJxNSyQSOHEW96tyr 06oGA+CsKyZG/wU+Hh46JnoPthJ2xLz3CnnJd4pFdVsP4fjImCumpqc9qtyQ D38nxOjwKcLQwD+5orsTc2zdu6OMX0NVQffK7hDfOPoCYS6RZKvZWviET31w 71mamyaMn4KjWXNZQb450abrOqcaRlXu9NAhcT+M8n4aKRBxcdX90L53TB8C WbVMySz9+EJZpz3moqu9EyyBtitLYaK4M8pM3jYXzRFOMDOUpj0j3ZO8BXOu oZehgZFd1WfMDR3oi2W6jmgH7RXyViKPJa/KFftOnA89Vi2CxTZXjveIBX0z CoRgqqmXsQgU/W0RMOqVK2HRnsBhGqUGHS3rIuV+woXFWSducZC31vnNhmlW sTosbCLZamVt4/oe5U73PjULeLvDRAEBPUHU8V4Nxaixvo5Q0Qp8Mr6wol3J lsXsSBfBTOeMTdu+TwAJVaVFQJ4pAlB+ETNPjZ0Ww8MnCANPd7uio7kavjT8 qJiZqb5R7UOEg0eOuli+Ce/soxOhXvHvBbEAawsIZD617mFbyfYMsAqvBD6D yonJ4fyBeUAp3fE34sAzPyVML137beNZb5Rt/otsfw3DOXp2cciErJFlcabV 1SjPUSV0qoZudwjMVm6YDhLzpx4lVHrWPYVzs6pC7HBvJcDVNU9RIRpc0R1M v7vV5s47BxqpTuyrEl6sgdA9tvBu+R05ntaaMsJrdDEi5KPhgXCD2G4XZyEq GW79O8Lx/rgramIFDtYm2SMO9A0Rxl6ZdbH6YujE2v84dFfm+aRZAlvVU4Sx hZW/5Nm1uOka5+AUcfk20jRLH2VYCDO8ylaXCU9DwM3IzAidRT2Sq8vbDvw4 Ms8K+cQrJBJ8sYDHoPK7oa+DA7poJnMNejQMd98jyj2HYD7bFw0ITncW4bIb eA4aONJHE+M1sjZLi7MScRaXWzgswbkvJD1/PcflOS7PcXmOy/3KxXJ287GA sWhqfZTQ1fsjV4xMYR1FM4sjh4JcB+pXnJ/ErKxotQhzvhnQTD9Rfh7zWOUv Xqndmgtq/t4VP1tKrpbfg/datEs2ou+KaTfimiAzPxIPVJQQYGldWtd82eqS kPoUHZ/5WdF55jJCxx6YdIXVCg+cQvIxphdp2cVId/jYj3P3TWCx3U+7qIRW HoowAfT6cgpcfH946M90gWSmOM38XPMVHpGYw3vUQFcbh2fyGdMrEzv27Cc8 NXyWBALXOknlsK+VIIrQ5rEOqpENWlButZqelx17HdgsFuLm1F0XgIC6sxk+ vrNsHRVtR/SPz7v4LJ1z56qYOf4VQoUhUg6MsE1RUXfiArQfeeJeg63xslqB TpXtXU+LZ89MEKbnloKPSCyImYkRwkDPN1ysAMvXEqxD/OTzBLh1Va9NIkyR NVpapF00xrBYs7r6w2UM7zcZxELkcvJR/OtiicgQ/6sUUmvnBvYFo6p7C6+I Ubj4IAb6noJ9rfcf8TU6vy7i8b2EPQ11rqg1iq1LlDwI9x9p6w5YjhLn+kRz iUcg0Vix71m86Rp3PGUgyiQmmB7CVj2v8lEXtV8B9+mxXul8CZQeq2mHj7FO 7akfHyQ0lnhsSouf5ORiaugJFKgnOnfDTltCqNrzOEzHAGbPOzX4lIjXbiDQ qkaDqHW8UJImQE4C70X7nqUJAKSTDIJFOKrRFs5PibGRYcIwVjceGZuCvs4v 6ED5W/z2Np0RLH770CW2rdLFvr3SaFDiov2f3z/VFKvh+tu2LiojZ6IOyytO vn5KdDdXEjyvzBU77seoPZg9LBNM6OtsdpGViRM3i8aunxBmEskinjrYbqdP Enra6+jMwz6raIetunUXFYbFGvVaXG4SdfFewvD0IkkDde6K1Oi6QZGdUV5T U5BhdS2AE1fvOS77mcJ3eN0D0JeRFz3H2jnWzrH2v33WrnvDlKleI3EZhYOx 6PTXvIOF6tXhXDX2TrBPUrbcxler5Hm659Jd107uNwYYHkvsdj1AuLOqFNrL DB8Pi0M/fIkA5zYzFmhu7Dihp+M+F38CH3tYk7e2mdB+CK41EwsrqkAY+dHI FyRQdDe8Ykg4ckJIC2ftVt+RyaK/XVQXryOU1X0T6Hx2RRkYk0tnxfD3vkN4 6nunXSRRrczIODN/Zj4n6qVfeB98TN5/yUXC9GkQ3t3xFjwXV5VCr4WE0iq4 erR0oH/c8bGLvJQBMTM3QRg+dsQVnfv2QNOGHeXsS2MGfeCdke6NbX/risNH T8KX43M6KVqnHLOM7SDDKkHZVtP4yoet0SYP1K+eSujfF1OuuypVHVx3NnRk IHDWCnEhRmm2gmV0cRX/Z0qmigTnpKO1xzM9Z5s5MRaXz3AAwkvmhEjDFGHf ifMk8riud9SqbHXgyi3QL8YC0Sc/T//SMuyTDLnZTrR2BFkQY90NhBhdn6u/ ijoHQ6Ddn3at4eEhZQFHoVnm/bHsH8vJg6Pei2Hn3gnV1JTOsQaXFbT4nY4L UkeKRieYTywy77yoxB3T/yw6GzYTChr6YFsQYtWzTYmHbyJUt8Fpe2xh5X/x lCTpGfI5Lj4EuplZ7cxaHsHDtDh9mM6TL8v+tVE1dgfhwKnXyNeFLxg+uV0d 2e+iBszJV/ov5S//odxUvmlTSf90Quj00zWb5j3nuI9oMVnT7D+p5iNxji5I 8pLk4g1JHvLxgiQvSexLVrGXzkWAgMH6+r6Dy0uegOvSqwS6Ob86txSSS2cN 6rDaN3S2jyn1RPRGkOdUgrEtynMqAY6qH/5lfcU/ks9cmegXj8bjhI6uJ+D+ 1Icq4KGRF8U03F2m6f6ScHEKspuB8rsI8XiLi+daJ+htwafb4nJR07SP0NV3 0sVzrXq3bGs309/8NG9nd1L3yuCLHfc/JrpaqxHWldVpdK6I6YGvEWpKi13M lABNZZ4Ekgh8/Vr6meht2UYoxst0Tft3nGCyxz16tvJMpyHn19TYNsEXdfGn xZnZZQQLpCRe8w0zjmwfieHPzUkWc7I7+xeh3/5YtU8uiblXJwljI0Nw4ux5 DNq31m5i18DU85Yi4akfCYPQ3nkpwk/IafLuoxxvlHLmPiB1PGVose80opx4 O7dfciM+oilmLvOr0A9PGNN2fvS7hHjNejfdFBnRUHoqdSoJI9VHnlk30BiE TlOXcn4+yEqoreLLR18mLMvzOl8ehvaJImhfpOc/HISXm521zU6Gt6Af/kTN TuI1cerAHYSYdyvcDcavmCnOZoceJVQXsze8qTRP6XXgNy3Y1SMm4SoC0POB 5snB1ipR1fwo4fDRZ1GFO+kEHf9M5/XEwgXC9NQYNB06hnvhwYdE7ZZ2wuD8 tRdsrclUMD0OH48caQk7VYcjyNJIsYzTIPgfZzPBwNGl6dPih33fJQyOXaQD LqvuZ6HB+ND3xFP9zxEmpcz+glpGcU70NZQgnPepZxp1c37hx/v5TI8O/fsn 4/0WJp8j9D/VCyeqHiyY2wEHrKBtpnYnbrq3HRKjV5MI5zX5xKWfIQH5WyYB dk26xkSuurZ/wQShIYcC/56Cu4jcST74tncZyBmpHIwiW9EHsumUiUG7F9O2 7HcK3A6dThrJlN6+Ttl8kZglqpWU6yLZZrXKf5Jr9DY2cn7l/wMZcjAy\ \>"],ExpressionUUID->"ae16cf1f-5871-4abf-bd95-47d76044b0c0"]], "Subsection", CellChangeTimes->{ 3.7467908910396624`*^9},ExpressionUUID->"ea2711c5-30cf-466c-8aab-\ 356b111bcc2b"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{"d", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "=", " ", RowBox[{ RowBox[{"I", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "//", "Simplify"}]}], " ", ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.440895870234375*^9, 3.440895891640625*^9}, { 3.440896510390625*^9, 3.44089655715625*^9}, {3.442671255203125*^9, 3.44267125603125*^9}, {3.44267137046875*^9, 3.4426713811875*^9}, 3.44267142365625*^9, {3.442712951171875*^9, 3.442712951859375*^9}, { 3.44296369284375*^9, 3.442963696734375*^9}, 3.44296768475*^9, { 3.443374517453125*^9, 3.44337452140625*^9}, 3.443397833125*^9, { 3.45504301590625*^9, 3.455043130828125*^9}, {3.4550527984375*^9, 3.455052814484375*^9}, {3.5067782137090287`*^9, 3.506778214466072*^9}, { 3.506779064525693*^9, 3.506779068082896*^9}, {3.506779121543954*^9, 3.506779124996152*^9}, {3.511641116247309*^9, 3.511641117295369*^9}, { 3.511641238366294*^9, 3.5116412632227154`*^9}, {3.519945652604292*^9, 3.519945656025487*^9}, 3.5206470576621337`*^9, {3.536753629485641*^9, 3.5367536355419874`*^9}, {3.5367542796588287`*^9, 3.536754394482396*^9}, { 3.5451480077289762`*^9, 3.5451480136813164`*^9}, {3.5451480836983213`*^9, 3.5451481475869756`*^9}, {3.5451482301356974`*^9, 3.545148230279705*^9}, { 3.54514835065559*^9, 3.545148351119617*^9}, {3.5517190084457397`*^9, 3.5517190462919044`*^9}, {3.5517253476257124`*^9, 3.551725350072852*^9}, { 3.552315878168127*^9, 3.552315880549264*^9}, {3.5594364063879995`*^9, 3.559436470154647*^9}, 3.559498758930711*^9, {3.7095734439172153`*^9, 3.7095734562269197`*^9}, {3.7095736865240917`*^9, 3.7095736900622945`*^9}, {3.710786317142681*^9, 3.7107863175327034`*^9}, { 3.71171717351058*^9, 3.711717180665989*^9}, {3.711717560179696*^9, 3.7117175669990864`*^9}, {3.7118545714168224`*^9, 3.711854584457568*^9}, { 3.7119033420472937`*^9, 3.7119033423323107`*^9}, 3.7119033814345465`*^9, 3.7120954622856226`*^9, {3.712095557947094*^9, 3.7120955854366665`*^9}, { 3.737162821795579*^9, 3.737162839969626*^9}, {3.73780794558059*^9, 3.7378079860629053`*^9}, 3.7379793854587083`*^9, {3.7385815933232975`*^9, 3.7385816487654686`*^9}, {3.738581823928488*^9, 3.7385818265056353`*^9}, { 3.746791040438759*^9, 3.746791071688319*^9}, {3.746791171144439*^9, 3.746791205624802*^9}, {3.746791269817828*^9, 3.746791296817684*^9}, { 3.7467913572329483`*^9, 3.7467913929364586`*^9}, {3.7467914248141994`*^9, 3.7467915012213964`*^9}, {3.7467915468503184`*^9, 3.7467916019331903`*^9}, {3.7467917796337733`*^9, 3.7467917840254498`*^9}, 3.7468070357928214`*^9}, CellLabel->"In[75]:=",ExpressionUUID->"c46207e4-3e4c-416a-8143-6b31ea85e256"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "2", "]"}], "[", RowBox[{"d", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.7467913000660734`*^9, 3.74679130814038*^9}, { 3.746791532816335*^9, 3.746791533334661*^9}, {3.746791579057716*^9, 3.746791587805388*^9}, {3.746791824210702*^9, 3.746791845191226*^9}, 3.7468070361321363`*^9}, CellLabel->"In[76]:=",ExpressionUUID->"2208abda-e080-4d40-9fca-02a61141c9a3"], Cell[BoxData[ RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output", CellChangeTimes->{3.760467914716039*^9, 3.7604682414601727`*^9, 3.76047034007325*^9}, CellLabel->"Out[76]=",ExpressionUUID->"c3fb886e-f2a1-4eea-8db5-cb03db6a3c14"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzsvV9MW2e6/2ud38U5F+vicMkFEkfIki+QImRZOkTRFr4gSoQEUSuESCNk ouaY6NduyO4pTEeBRAN01LiaFrRb0plYba3M1GljZXbc/uJ08LRxRjhT3DOO AkqdBrLtBLchBYIcZIph+XitZa+1bOzl9X+9a/n5SPv3094Fsuz3Xc/zvN/3 eb/v/3Vy8KX/538zmUxv/B+5/+el/hH7f/xH/1sv/5+5/6X739847fz3U68e /ff/95Tz1H/83yf/R+7/GM79z//433P/k/v/swAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AEAVtpO3PhiwH7A5PphbzWj9MAAAAAAAAAAAAAAAAAAAAPKDr/j660wkTX2+ hNaPAwAAAAAAAAAAAAAAAAAAID+ZiKuJ0kFNR1yR51o/DgAAAAAAgtmNffJK z1l3cPFZeq/8T2TWl+auugZeHvSvqPtoAAAAAAAoRi6/h/1u14izu41c12NN bd3OkSlv8G6yUkkAIABUbgBi7KYWvxjtbjXb37i88BzX+mkUJ33fO3TEbO0d vXIvZfxPC3AjZfLL4bGwl4z81VeNb2IpyOkAAABF0NuamM0x7vaHY082yLoa T68/js0HPh3vs9UT/9l8xp/c0fphAQAAALnYS8W+qVo9/zWShOrZiOymYtfG Opub7Kddn319Z3E5SRCPzX0x2XOALAlefT/wo6ZrfK1XlwgDlRuAFlvfuVrz Z8Xrh4ObWj8OAKiHhMkvj8cCq0G5Mk5f0oCpEAAAQAq8wid2dGz2MQRQAAAA A5FJ+pxVw3+TKwLB33DspqJ/7GmyOi7Olen8zMT9Q63k4DfYx75OZjQSQzVf XSIMVG4AWiR9fflp13jM8wD2zoAaQsLkl8djAYRQAAAAUVQNn5jt9MzcCkRP AAAAYwFCaI2Cr82OWCw9F6OVGj7xuLcXo8bfOuBb1mYCaL66RBio3AC0wH8K uU5YzYcHpr/VbOsEADRByuSXxWMhnw+MuesHAACgHFzldFPXsDsY24BzVQAA ALVGwtfXBEKoEfk17j2JmUxYbvH153+tl1184T96uhrylUDz2+EtLZQNzVeX CAOVGwAAAEAAQigAAIAoiPDZNB5MxCLBL31e95Qrx7Tb6w9Gfqxowg8AAAAY HBBCjcrPgcEDBdWsbSK8Ue5n1kKjrYWf6ZpZ3FL7GQFOoHIDAAAACEAIBQAA EAVZTsNCFwAAAGADQqhRYQuhBwYDP5f7mVTE1UaLpa5ISu1nBDiByg0A1ARP P4lcmx451WnFsKa2vpHpv0ZXt7V+KAAgASEUAABAFFBOAwAAAPsAIdSo7K7P XbCTFqCY/cLc+m65n2GLpd3uWFrtZwQ4gcoNANRiN7X01URni805dT18P5F8 +J37f1qI4Dl5axXeQAABkBdC8dSPAVf/y+77ZasN/bO7HpzoGflzBDZHAIAf 6MQEKKeLgWgGAACQBSFUXtBJ+iR76WcPo9GHFY9R796bOZS/dt10cDr6K4fP Zg0lTXQGUabKrYbGDgBEge8sefvNVof7LuM2/CI0SjgoY80Tc2AaAmgP0kIo nlm9c9HRgrW/c+upYRMNnrrrzn1G+zn/0qYRXckBQEbQigkghJYA0QwAAACE UPlAK+nzYS/mPly4eqfXu8ydCmsjaaI1iHJVbrUxdoAS4Jn1xcDF0b42swmz dg66vPNJ42UKfPOOq72l52K06M41+q6ylqmo5psigAaIn/yKeCygK4TimeTX Y/YGzD4+m9Q+bxaRv43xyJD3PseJFzy1dNt/zX97qeqti1QyNZlPuRee11oy xdPrj2N350OBa74cfw2EvovGnmwY0K58N7VwecDW1Drxj02tH0W3IBcTjCCE QjSTj5qJZgAAcANCqCwgl/R58DziOkLJoFjnRwvp6mlQpqSJ2OqS/WCIDaKM lVstFzyAWKg3orVn8ou5WDxxzztowUymtt8Ek4aaQvhaePJwneNKPFP0sfCE t8cEQqghwLeSka/crhHniQ4rZRdj7TjhHJ6Ycl8J/GNh+Wkqs39Gi578inks oCqE4qnoxR6zyez0xFCzGce3wm83U29xny9Z8cd+CY0eIn/oFc9y9dSPr9+e tDeYbGcDaNQJikO8Ptemh3uod6eUpsPOiU9vLhrIQGTr+6l24jCA6dDMIkR+ USAYE5hyOrMWu/X5h2Ov9+TWIGQu6BucdH/5fRJ1EQyimRzUWjQD9AKeXn90 73bgc/fUxLDTQdeqTW0vOwbH3nf7/h5NlKtU6V//KfT2K8c9DxCPYkgCQqgM IJj0q7Gbin7QmXcQFaD7SU6a6K0u6SdDbxDlrdxqruCpQiaVjEWCvuKkk1dI JmeuBKsknfXoxVc7Zu7JuU5K+vrKlWYCIfJmH/ER/nzj9r3cZxD9OGSf5EHW afF8sqhmoyEF4p8ghqBPECe6iffC6RPVrLq35DlWd9wdKzn+vrcZfKue/ELr h4PQF6Rb8Mz6//fpwKGyix7mnbH2nnXPJVnvu9jJr6THAppCaGbZN2BFdX9k a3GmixzhukMcsXozOEy96nVvBNb4RHQ8/cPHPXUmrP29+U1jK2V76cStGWfu 9bF0DL13+cY/FpaT+aYpPL2RXF4IXZ0e6iRfDEvHiDe6vqP1A0tnK+Y+ng8X jZPhbfQmNfogGRPIcvp3NyLekY4Wa/dvL/pD0Vg8mUwmYnNXXSdtmAmznZ6Z W0F4IQzRTCL6jWZ7qch0ZxN3FcOHemvHcUpVC0Z+rGiaB6jKzsbSHb97wmk3 7x8scoHzclt+6LGmjhH37Xi5trWtJe9ps8k6HHym/gcQxV4q+smQQ9hKTzCO twNJPm8xCKGSQTLpc4FvJcMfOcy5Nwsz97x3S5gsJilpori6pEByEOWu3Gqn 4OFgL528e/PTSWlJJx33DZpNBwYDP8v5aM+CE/nwfbzDWs9RyVRWBDtKt7mx g33jnwZja8LDe2phprf5zI2n9Mffu+8+TD2VSMmRBz8FJ07RH4aUN7kolkwv BJ+JmNW768Gxw2PfrJWO8mbE1U7+I2aHL45OTACEkV5w9xywOT+cXXxKvsh7 6fVH0Zvus922fYsK9nWBIie/sh4LCAqh+EZ0uhszNdgnb68j+JLgP3q6yNY+ U+toaK3SD21HXPk7I7s8VRyCGKgUgFmG/Csc+2X6Zmc96naYG4jXhyuD7Kwv XB2xk9VY25veRX0fOcGT10+b6digXKYzLqjGhHz4xI6OXr+/UfrObicDZ23E fz008BnXqXMtgWgmCV1Hs71U5I8D+UKXXqFwVcPlKF1WkPu/txMgh2oF0Zzs cw0cbqKHhGhI/pMvGIk9Xi9eeGZSyR/mfNNDHRaTydI5eTNeNGqFq7GxAf0k rN1ngTeb9s1iuen3JkAIVR5Uk34xeCYZ+fKqZ8blujBKdRViTR1npv331sVk PdFJE8nVZRbdQVSgcquFgqcSOxuxoHu4i4m92MG+0Q+8s+WTTth/cZhKOhNf LaXYM2x3c/69dqIS4XXySCx76Wf3fMNtRUG9/rUr//2i2rBlUquPFm5fd487 WFqPpXPsc0E+EvhT/0B9UZ8kHvf2Un9QwY7QfY+RXlue/4yqSxnM/VOzC0kJ za7VYUITWx8D9MXOiu90fVnjF3xz+e9/GmxjzSvL+dBmvrYUOfmV9liQWQjd TS3dnMoV4Zite/SLxZSoTYTQOJGDbOOhdSR31tYCg9RtkFzNUemYu5v6Ia4+ q/3kN09b+r0P0Okcko/d1MInDmL3+XseVWLeVogMzqe9S7q9XA5/Ghw5yMo0 iqZ4Q4JuTCDCJ3Z0bPZx+boBXw2N2cmysGNy7hmKxTFEM/EYLJrtrIfftbNL 4ta3Q2t8xo3U0666HDZGEUVJ70UZ6fUSm9xq9G8fOumTSmTXzc271c94Zn6O eN5owzCz45OF/DNQfWLkXzrsjulS1d5LbySXgr8vmtKmthH//XU+Kj2e3vgp mYj9K0S01R4uElcbzoWqrpgJQAiVArpJvxh8a/Hauy6SC6ODDnJHifDn/INv Ps51/rcSopImoqtLhAdRkcrN4AVPWfbSyfkrYy/RERKznXT5votXVdLKJZ1M 3DdAJR3lDcRY15mRcBlD7QfPbMRmPzzNyKHmV1zBRzzMgHP8GveerOv1sloh XyzOvEQV2K2u79QtDTNP/fkVAPUAB6f+9avC/ySe9Dmo7+2AKwKnI3UK0UJj 6fL8WGn8CNNp3x8GOw/aus9dYdYCIie/4h4Lsgqh+NMbZyx0aKh+W2Llv3Bw JPgUyTcEfxE6l1e6OZqjePVZlf/NnYeXe3OBqa7f8xDBxbIk8NW//cbWXLr7 zPkbdGbU7ZGT3c3wO63FazFXBBWjJF2AckzAN+5+dfOHyvMZ31m82J6Xld6N bCH3+BDNRGPAaFbko9XAUeSUA8+sf0/cGUEDl0dUQ3q9xPypdDw0w6zLMNvp D2dj+zqdONhOzo7bsQb7uW9W8YLlHfmXDrjmdbxvV2INJ1LU3V6NfDxgLawX +apDIISKB+Wkzw2xAPS+ZSfDvLnvP0MJXqI5+w8IT5qIri5RHkRlKjcjFzxl yPyy4DvPuOuYj0/6IkK8VamkU2f7zd+IpEM0J+er0YbR0AsFn5ukJDUIE0Ip mJM+VGLgtye+EZ7oPu1PMD+3NTfRTH2HHVNRtdeGdPc3VYQofzR4dy3wRp0c 4QXQEsI+pbHH+0hgYBc3+ZX3WJBTCKUbhygEtg9lmW24un7fCmqJMw8/Sz1e fVaVyN84Wdd7+eEOot+CGMjBFf6haHfNutbJuU3dfR87i+6uRlMRcrvfGBsd xAROdqNTLVSct/Qj54cD0UwsBoxmLAMEgq6ZRcFLOVIcZvUXoNcIhBKS66U8 1F0nFjq/9Lhm42KsCShH0NYz/zX7l35a0NaRQeh+Sqa06G84y74Bh/eSGYRQ seg96ecVHmqJJmI/SGjSRHJ1qfdBFFm5GbTgKQXPrP7TzdyTUm8bcM8LOR5e IG9Dffpq8CrRTEthcfpX5H/kEmQQQrPk93DnIrP/m99JFALTk4kd8yypfvhC dSF0LTTaKkN4AbSFfH0kS9nSJr+MHgtyCqH0spqa5kIPAOJb0WnSHuSIK/Jc 8sMoA9Mc1TYR3qj0Q7z6rDj+kRVfPzE5rEW1jc4hdp/JXfKmNsfYlXu826iy +NrsCNU2g+3fvEacdNzrrMOOOk+xz+eh5MeLOnqICVUo3FmQm79FPRsIANFM LEaMZsW6HN/zvyUQxkHsk1aqH/XSERLrJRL8Rfzm71k9Of3TUq5myzz0Oiwm NnoyCN1PidQstKG9GPyJf6A591caJ8L8FvwghIrDAEm/2BDJ8qZ/RZhGJC1p orC6NMAgiqzcDFnwFLObWrg8QDvhYO1Dn0VFOeKS7E866lhHyiOEErAOUJjI vtC7/AvCLL7s7aWmmaQjIaJRWwjdvTdzqE69UQYUgro/t/5N4b0xLKRNfjk9 FuQ9Gr/67dtEZwLW1PHW5cjPwsq/QjxEegORbo6qfyu4WanC4NdnxUV+V9FA HTWp6FSH2ExHbyFhltFbOuqlJ08G1bdOfvvDVSc75cLKiC+6iAlVSEVcbfmB 5woaWgDRTCRGjGZ43OdgLhKtGwyI04wItzqWEmpqfjuMnCMEKkiql4jff77g PkWPGWY/51+S2GWMb4XfbmbnKr0ahJIUT2lRDe1sdhLefiFhEIRQURgh6efA f41OF5RQzDIyu6/xkhsJSROF1aURBlF05Wa8gocNq9uZmGIvTwYr+KzyBd+K vFvkHqaOdaR8QmiRuylB20ggwe87YTkw1A36n2qQKFQWQvFlT5eaowwoRF7Q buxyL4r1Q5Y4+WX1WJD91njCZP4X4SbhdDDk6E3SHKY5CnP4kvJb6rH+Rt7q XMo0Qwlml5lCkHTATHitkoUYqJNBlpHA053t8GQj68PzbimpcXQRE6rCKqfR 2gOFaCYWQ0Yzaoe3sPA77L4vUgAr/XLEHLGvIUTWS/tV0PHZpBxZ5dd/TR2k hWydG4QWTWmRDe0scDKP8y+VERdCt+PX32htfeN6HKkRNkbSJyFc1Og36aQ3 LuwSErFJE4XVpTEGUXzlZrSCh6FYBcW6XPMCBf6y7NybaWcVH+pYR8ophGaJ 03++QWbXzTzoi/OZMAXNXIZtcTy99PVFV4Ep95XAndiz6tc3iRFCM+tL4cAV 9zT9r7kufr3E66aoTNI3gKk5yoBSFDo6LGeDIveXJU5+WT0WZBdCxYHHff1k ezzHFYfaQzdHca4TJVnqFSicwzJZzoeQ6iITB9MPT34xx71xIZ+JdcGfXgw2 qZNBFof3YYZyG5Iz59YGaMcEPHXvymivtc7W4womuXQMdjmN1D1ZEM3EYsBo VuKm2O6KiK5SmROFJIcmwjo9GokwxSqoiLO3lWF3O4NBaBFkscw/hiMuhFKP p4odH3/QTvrCwB95exrpV1Tw9ywyaSKwukR7ENWo3AxW8OQpUUGPjs1K7AWl YbvEqGUdKbMQWnIfBGY5c6P6DWGbt0bztyVKd5DA07EvXW/2WDHWh+LRrytU CMU3Ihf72MtZrMl+amyGpxD6LDhsVXWUAaWg79QTe9+BxMkvr8cCEkIovYkp oRFFBZjmKI51olRLvQL0NEPwjhURbCeD75BWZvU250dzQntXaDVGnfsEpbMT 8/SasS53jPJLl+fu2poC8ZjA7GxWkwtQ7QiFaCYe40WzYjdFKR4ORct/E2Li vzGgLpigFyIyteXkYe6MBoPQEshimX8M14UQqnULRBGIJ32K3dTiF6PdNqzp 8MD0t5xKGntLCGuZigrU4UUlTe1Xl4gPojqVm8EKnmzRbXEELQ7Pony1LKvO VK1Ill0Ize6uBc+y3E4PT4a58zLj5Wtqv7jIXK21GZ16Rey02UsnvnF1swxh sGNTUa79EGFCKL4SOMO2MWhxuL8XYA+7Pe86gKk6yoBy0CduxJSgUie/zB4L SAihhU1M7IRnCalzOsXwao4qa6m3txk63+z0rwr65wrTTJO75JQAT2/8vMFr 36gUdrDWgYq4k/SfMbML0ZIzeqgujVAC8ZjwIjp1pDCc3H199B6o6AtolAGi mTQMFc2K3RS5rBKqsh2eaGQvMKDilZfd9bkLTFuOydzjXpD3+2UqTEQmpzhk NgglIF5c7HX/Ks+/A0KoUBBP+iRFxwEOjYZ+qfyjbCFUVEOy4KSJwuoS8UFU q3IzVMFT4oGJmQd8cdG3I5X9BxLeHqkTTyDyC6G5enluopnJzUwnTFkYL99i tZz4I3YJnhL4zsPLvewbKzl9eoUIoSzbDR5/eT/MYSgwCDUCG+GJtvxUt1+Y E+SHLHXyy+2xgIIQSm9iIl14szatOErb8pZ6uQljb56YE+iVRifil2YW0egb 0gp2sJZjRaMo5MXQdUX2+MXJxiRgMVWroB4TaCstzNz7x+hm5dFkLBMx4RFA OSCaaQeC0Uwug9CiK0JI4LIkOcEzK/4hC7PUquu9/JBjqSWO/AoRDEJL2F31 v44JkDVBCBUI6kmfpGhecX57RZKpOJcJgUkThdUl6oOoWuVmoIInfXems5GJ pcTFB3KHtIKhrnrWkUoIoSxpiISrK5u5lazo6u3c/HyzvmgXQzj4T4Eh1ul1 ToNiIUJoySELoT3nv8a9J8Eg1EAUXwg45F/hvTkiefLL7bGgvRBKHyJA8yQF DcvGpGJpu7seGrfl5wVL7CIuIGgXvsVDp2wZ7K30TVGwdiJ9Xg9fC08eNpnP +JMsl/TS46JofwTt0UFMIG/HPjzx9yfcTYF7S55jVMCvc3p52aerA0Qz7UAu msloEMp2mCTGutX1HTLiv/7JLPsGrMy3i/XMLChgO5Cfn0YyCBVxMHk/28ue V0w93gTfshuEUEHoIOkTsC+DM5/2LlUMb4Ubc0hE7gcJS5oIrC51MIhqVW5G KXjwtXlXF8t4Mn/xgczkk05jj/eRSvumigihLGMZMu9w+PTSZWCRKrj1/VR7 25mAoEbL/ewkvP2sz8bV+SxECC22fxfcJv1zYPCAtPACIAZtB03Q0u99wPNu OKmTX3aPBe2FUDr5Sll/KQ/THFXJQg3fWfL208cHmPKXlM1b340IL4QMckhN OkW78CibzuE7MXcXZu71xIoDworfyTKPQfojoIAuYkJqYaanrvODaKpykZuJ +4coR53WIX8coeUwRDMNQS6aFW/0S2hSJZvhWWumkv0gQBKU4wozTiI96qtC 1YSGMgjlJ+pmnsUWk5WrasIzUEgrCwihgtBF0s8WXsMDPRN/CS1Xfv+oDfFC kP9NUKTXiKCkicDqUheDqFLlZoiCB08vfMSyBq123Fs0+bnbNbOo1sapIkIo 64w/V3VNUjCnYhJE5vHsWIdFDtuBYnmTS4oXIISWHGwU+o0Vmn7BLslA4FuR dxnTWKx7OrrBa+5Km/zyeyxoLoTSb4eUCxpUgHXDRblNsZ316F+G2g46Ll29 5CAlr8bJMDVAhL2wvcu9KGZByByuecWzrONjalIpylkoSAcVyDz0OixY50cL pZvNbN91kywXNxgZvcQEMnSbO8/7Fn7ZVyrjmY3710ePEiUkdmTEdz+F1A4o RDMNQS6aFW/TiD5EjK+GxuysKGcd8C0jKQHpklKRue60b0UZkZkKDjpevO8z COUl6pLNPIdmFiuqI5n1xW+/iT3n/XKAECoEvST9HPjzBbeztedt33w8VXbV hm8u+c/ljXyx9iHvPfHZX1DS1Hx1qZdBVKdyM0DBU3QTeo6DI8Hqd6GLgbIW V9NFXxkhNLsbnWphX9zOsdZL/eDuy80PrPMPt5YSy9GblwYPWxyfLHDo87wp 0WM5cpAAIXTV72R9ssaJsJA5zTpGfXA6+itSyyFAAuTF0EypxdcsVMrkV8Bj QYoQim8l73zuerPHmnumpraeoT/4ooKtQ3YXZw5R36CAM0cVHyiz8TDs/9g1 7Oxuyw2Nua3bOez6+MtIlUMQfP4ybamHtViJOIe1D166EYnFk8l4LOx3j/ZY bK9OBR+lcTwdu+wgOqnahn3RROLe7FS/pYwyxpO10CgltxutmRxPr8bC/+vy zNvEWDWRkxqzdpwacbn94aX1kllE5BYmAKMgHZQl8zQwYjHZx0Kr+0aqpEEF mdUHksgaE7JKhoXcmP8c8bzRhtXb+n536cqN0Hwkx3zoq8tTw93WeuJWccf7 N2JrohbCEM10g76jGbNTb5Jwjm87GThrYz5Xg/3cN/vjYE0jqV7ajE4dY8ug CnoOECtEYxmE8hJ1NyOu9obRkHx2fiCECkDupK8w+IvE7Y+HOyyYtedN1yXv tQCV+iORuaDvT+N9B8lXNZf9XdfLSG2CEJQ0NV5d6mQ1R6Jg5Uaj94KHWtEw KNUOms3LknWDAfUaRBQSQkvOj3MXVPjz2M0/jvbZm0z11s7XJjy3E2mZtg94 fzoBQmjx3xSY12jTpLqDU/+q6FgK6IxMKnl/1vUyu2fccuYGr80S8ZNfAY8F 0UJo5nFw8mWz7eSFz74OR+bDN6b6iPVyi8OzKKTpmbRdIr89qSZOubx2+a2O JvZeDLMoaxvyLvLdZ9ldC55tLr02l7bUa+jyLK7Fbnk/PD/Y10GsaDBr5+vn Z3xzSxt0e8ZeOnHbM/FaZy6fNh0eyJVC66I7NxivD1lLdA3ZSycj16bPkCNV b+0envL4AqF/kjXkP0OBzy+NO2zYgR7XN0lmC5s226FAtK8eX/92zFZfIQhk kj4n3+RY68gXE7JKhwWKvfSz+7e8H4wN9uZFsKZczT7icl8LLT4VWbRDNNMH RohmzOqVQFyz+m7q3p96mE/VYB/7OinrrbK6R1q9hK/4+lmTxoQdd8cUO0L4 7Mag+cjEnH7PLJQahPISdQnrYyvnLdJCASGUP7Im/VIyqUT07z53QVITRL21 573QaoUBxLeSi7f97vdGB/sLfxlranvZMTj2vtsfjq3KIdkJTJpari71spqj UaByK0LnBc/Wd65WdtYpvoFLXgiRranXK/lGO2H/IgvZhNDn4YlD7D+szc6O VkJo5smtqVdtGGbu+WCe1RnInGdR7iQLoCaZ3MLxswuOg+Sq8diJjmbW1Cjb DCYfSngsiBNCqQMXDneUWRQXBH9hJTqdfC1O/4qQ52aDZ9a/dztYXTblwLg9 YWiIswC20oDPWOodmYqqmtCYMKXro2okeOph8MPTNiIc1tucH86WLzb20sm5 iw6rud+7lN98ZF3sQoDC9SL7ITt2Ktqq49vhycaqSQQgkCUmZNUIC4oA0Uwf GCWa0atXEhEGofiLeOB3dnrNirUPfRZdBxWUjdR6aSvmPs4WBer6fRJvUzA0 IgxC8a3w280yn2AFIZQ/ciX9EnY2YkH3cBe7Q0s4Gjftq5Q0ZVhd6mQ1pyJ6 LngIDZndDqqs3QG+lbwfS8rVD8kHpYTQF9GpI0WTVZMEQFkN8Ph0/IVQxjqD oGwzz+568LeFrSZW2MSTwd+0kf9HsEsyADvrC76xTgux69cx4g4tpTJ7RU6h iraOK+SxIEYI3Vrynra0vze/yX4P6J43rHlijq8SypioiC428Ezy6zF7g6k6 fFp2yeC//4ZH2lJPfesbOlxLuMMCAXZTi96hNnKY+BjvpBc9jkOdM3fJgqzY wg7FdQW+8/Byb10jh3di8XlYE+b0r6r6hPpBhpiQVSksyA9EM11gpGhGr15J hBmEEnZqN1yvFEpfzNzze8lHQY2H5HqptDOnecD/BHTQiogwCCXNvU1cBqEi ACGUN/Ik/SJYG1WS4G16phhqJE05Vpd6Wc2piX4LHnzZ28veQBCyrtcFSgmh Jaf/TNpsdvO+2Ii/EMrjJ1m7/JazQWrCZ36ev/gqmY9bHO67aN2VAAglN5ru 14isih0acP9zlW54KLo+3qSgmbBCHgvChVA8ef20+chkeK34Y7J24flvfjHu uyJjBZ66y+weYgf7Rj/wzoajhNldMrm8GCEsX86wTlhUGx1iA/HAPjmLZalX 8ZCFYjA7O2q3b8nHdnJ2PN8yZD7ljvJZKeOZ+BVHA9lFX2Rhh6SFFJ7wn7aa uK/SLkm7CH4KRJAcE7IqhQX5gWimB4wVzYqeh/+Rxr108u5N90hhNtZbu8+6 g7ENaATdh+R6iWpWZFE36BfsxV5LCDUIJe6+OWWW//gqCKG8kSPps8AzydvT faydZ8zW/ebbM54vfASfud//bZ+NPUXqbIMfXPXt56+B2/cSKa1HT42kKcfq Uh+rOXXRbcGzt+Q5VrSJ0DYR3tD6oWRFPSFUC/ujEiG08ga3WCG0bNc3vhNz dxEq2eGR6/dyL+1C6AsXcXoaa+p463LkZ60jKSAJPHXPO9RO3iJ3dGz2cfFo 4iVNoVJPLanssSBYCH0ecR0p9xlZjSW8Kz+mTU7cbXH4s7nJDvJLOdDj+l+x jbJfC57ZiM1O9ecdfLhadskNxPo39+3c0dsc9Yfd99U+37B3332YqtkOyGpg pRaFVQb57XdMzj3jPcwb4YnDuS88U9SQL/SuOhWgjpBUq8pKVmeoro40R2pM yKoWFuQGohn6GC6aFRuENnVPBSJc/DMUuOZ1u4YJDzriK2iynxqbuTYnjxue IZFeL+VmThtrymixf6EnBBiE4um15ciXM4PtmCIRCYRQvsiQ9BmKuwqJewCD +5Mpnn5yh7grpzBNuHextUXGpKnk6lInqzl10WvBU+Iuou597uqgnhCqibdG 8Z1NlZMQbyG0xNy+0ofaWV/4cnrk1Q7ixrH8BWf+8ENdbZHj6diVIbtQN2lZ MNvP+JaUOlQuCWaXqowKSkJsPDUyH0XSfr3qHgsChVD8qX+g7ogr8rz0P7B1 Hr5dLnubwbfyvyTGXHt3PTROXFNrfvXifNW9BrqNp9zD5x/ngeeYucxlrIyl 3qGJcIXfVRA6oGkhXEiFfZVwS7/3gZAai+yE6fnk1mcnWTuTyJUT+ObcZGu9 +fT1KovTkh069U8l6wOJMSGrXliQGYhm6GO8aFZsECqQuo7BCzN/voFC0xSq yFAvbc+7DrBbcxq6PD+iWCijQskSnri8pq8MJ/bdmyOvQWgWhFDeSE/6NEUq KGb/rS/2vPLLkr9jnUTJi2CkIlfSVHR1qZPVnNros+BhqsQ89cPBTa0fSmYM LoSuhUZZDXqVnRl4C6HFtSL2un9VV1YPAtjbDJ0vcsdVE/Nvg9o6sZQlE/cP UdOpsXM6UsHfYGfFd5ollfPxZq+E6h4LwoTQX+Pek1gZDxlWEhRwIzYrYoiI QlvfT7U3EIcTFzhKHTb5sqdCSCc7e8vuh9KWetrYvKQirjbqS0K1oq7Ebir6 QWdhDVfnuBIXuiu06nc2vtTXy45J2l+yXAx5jUVdv+dhtYILf+TtaWR9EM0v SUETaTEhq2JYkBeIZqhjyGhWbBB6wBXZ5vWh8PT641jYf3E4f1ARO+hw+SJJ ZHuqtEKGeglf9rDv1jKZumYWtV7cI03xlOYP78nPGxBCeSI56dMQbsz5tkTM Pj6brKZss9x3sV4vqkqoXElT0dWlTlZzaqPPgoeuEvOYHehuE4jF4EJo7jEG WBuoFcsG3kJosbIqs582YuDpZw/ucp6NUoi7D54heLgqtTDTQ80lrPOjhcoP SO7701OEvxJY5i+p7bEgSAgl/JMtZTxk8J8CQ7QhT8dUlOdbz+QI4VGIFJ+x o+du/SRg2uzEPL3m8s14+BP/wIFydtCMpZ7AiyTkgvmWVLphJx0PX78848rx +9HBk319L7c1tfT7Hgn96Pj67UnmgBKfu3H3UdJFaVJitSIF0vqvrrFwDQo3 xZekwHq2PFJiQlbFsCAvEM0UA6IZB8WGpcK7PvDM6p2LjKtb+5D3HpjhM8hQ L7ElU2qQdH6UQKb3sSIlHrwVDUIzqWcry9FZz+hLTSInf1VACOWJxKRfAN+I Tnfn1/5Y93R0g8ekYmmD6PY4yZU0FV1d6mI1pz6qFzxZ6TEW3w5PNhZVKkZc ragnhPZ7ExoI8sWXvFc8fMRXCGWuQjMZ8OYsoCL4VnS6PZ9WK3fg53+26J5K aabr6nosCBFC8aTPgbW7IqUFY5EOzP+mJFaOEGyV9uu/pg42tE7ObQr7VihD 1/0tu2SFUFd2eUs3hEvRt6XA6kiXLVZzsbf8xUlr0dpLTJMzvhaeZMJw/VBg TcT83ScdyH2dgTTwlcCZVpNtPMSrlZ1VKBJoskuIPhJiQlbNsCArEM0UA6IZ B8UGoSK7PvBUZLqzkf5M9nPfrIIWSiJHvbTPq02b/QvZkOd9rEzxlOYyCM2T v+1UiZYnEEJ5Ii3p58HTCx8VOvZ57k1nizcakC3JZEyayq0udbGaUx+1C56s DDF2n5Sn9923siglhO4kvP1F3542Z6/Y/rRkZVah2uQphBafTDk0GvpF0WcH UIHl/Mnj/iPWxqKKEU8GBAmhq3MfvftfsdLOWLYzgCAjlGfBYWv+9RNWK+K/ RqcPijv4QAaHfTGh0o0GWVIPv9RrPWAfmJlb1aSeZWUlASKzdPDM8uX8Ggwb EHiOu7D1XKgwRV44WCodyLlikgxlatR6JsDzbrSSJS0KCxAEER0TsuqGBRmB aKYCEM32U2IQKvqcfsl9kXLbmOsWOeqlku0z7cVzmZDyPnJQMqX5vGLUN6yE SQUIoTyRkvQLUP2BFEJuPmJFZc0dmyuhVdIUhC5Wc+qj4diJjrGlSQfhWScB pYTQfd+eVN9j0WwveU4wdWvz2+FyUZGfEEqa/FT7U4DhYBer1dpBCXZX/a8z 88SgQmh5iPNfhTcJO+mNl54Dqwxzr5nA1EnIznUDfs5buitBlsrFBhf4iq+/ TuzyVnFYmVTVkpp1+6rQPIg/DY4cZIKr6LBZ4lSD1L4kaWokxCqwZJsV7rwo i+iYkNVtWNDpY4sDohk60UykQWgZ2DVADvMZf1JzczZUEVYvFd/9qq8bN7iQ 8D5yUTyleS3/yXWrIiYVIIQKehIpOYG8Ijw/6sKuPWLpACh8FWXRKmkKAlZz ZdFw7ETHWEbTzmcd492UlFVOCEXo28PXZkcstC51cCRY5iXjJYTu3Jtpp5tL G7vci1De1QREr35h0dJ+cZHHdfZF06mWhNC9Jc+xwqsm0G9cdOrMPIsGQ8si OyNI6wz2DaGp6FQHz1HWAq0yKd3ByON8WTF43NvLsmkWnQiKj7khlY63Hnr6 i9zEhaPAYO6uhz9wlF6GqyjmNscHYTkvuZOyJtJpWNDpY4sDopnUvyMbUg1C 2ZS2u/d65T3AbYDIlkdgvVQihCqq1eCZFy/UcuoX/z5ywdcglA1xB4QyL6MK Qiiejl0Zsqv5XtCY7UNX9nU7i0OyEJr3NyCxnA8J2GDaXQu8USjkQAiVAqzm yqLh2ImOsSVJR8KD7z28erIVY/8tzNpxoq8cxzuo4/yq3ZqtkBCK/+jpYich bTte0nGvk3H27HLH9r0XPIRQ9jaTibcXHKB38K3w2835Uee7Bc+eTugmq/1I FULZK6DmAf8TIa+89I1gURDVcutoaC3/v27eGrU0C9pEVheNMiljeyv0CGfJ olj0gaOSa+/Q2eTN4snrp80N1o7jZTN6Rbrb2OVF3WBgrfo/JYhigw6VkNdH XaOYkNVdWCigs8eGaEahfTSTxSC0AOsSLhK5L4YwQGSjEFovlaxJlbQx3Jqb aLarZJMo/n3kQrBBaJY6XXtAmTuRVRBCd9eDv9VEBiWQTbKQmvRZ14IIvcWD /T4emghXPfqnCcYWQqWBev2j3diJj7Hy7b79et/7HyeZFdCJDmuRKloUTdq6 T/T1OZznbyTUOfOgkBBashmniOmKEHYeePvpmxnLOLlVFULxzTuudvqe0I7J uWfIvFyAomyEJ9qETmPWdNLV8SWJQii7Zbpu0P9UUKDXSvTI/bsHCts0maf+ wbr6N7VxM+aFRpl0MzhMDaxQC6+SY5LiHcCKjxigs8lLHZUVsS+m1FkM1qOl 4pHglz71+DIYict6T7R2QqjOwgKNvh4bohki0Uwug9A8pQaocg+u/iMbieB6 qeScnXJCKHlrjOASTiyi30cuRBiEUoYVCq1VVTkaj6efPbgbEcNXro7c8rah w/WVqF+/++CZXO3DEpM+W8wUusHEfr+0liwqAkIo97+Lcv2j3diJj7ErfifT ACh3p/TOxv0/O4uucjL3zNxZTasumSizHCs5+IOAvSqeSX49Zi8omebT3qWi naIqQmjm8ezY0YJ63eJw35W/KALQZDc61VIYeb7eQezLBzW/BEEIkoRQ0ua6 8AoJP14kh0e6GAhXqPy/SKxzzQI3kVVGE7dtCRZeJVZ4op+ZzuMEwnyflGR3 M/xOq4A7kliUfDOaeWijjFYxIau3sECjr8eGaIZINJPPIJQA3w5PNrLrf3QX 7Boiol56EZ06wvpaFRNC8Z8CQy1infoE/2PIGIRms+nl0FdRZXpcwCOUJ9KS PvssqlDj5d17M4fqRP6uehj7siSJIF7/aHY7pIQYW3Ldj9whomTTVKv3ThEh tGQzTnaPIHEUaaGYfXw2yRyV4BJCQQWtYfBlD30Ki7e4t5Pw9hd+ie1YgjyS hFDier7CpxYh/zLxVt27UMnBIuIevrN4sd3UMRVV5TiYSFhTSz3vWfEWXsQ2 Ams1ItYBbG8zdJ7ZlRTm+6QkO4vurkYhdySxKCkAGifD8l/QoHe0iglZvYUF Gn09NkQzNKKZnAah2eL6h6THm4DYVoqIeqn4Fk4T6xCorJBGuIdGQ78o8cf3 gY5BqKKAEMoTaUmftVeFOXxJIWGHvdYT+rsqoknSFAqs5sqi1dhJibGlap68 IYL90slRe4hFCSG05ACR5WwQmeZkPHXPO9SeryXMr7iCj6iG/gpC6F46cWvG eSj/800vT3z5QLAKmo6Hr1+eceX4/ejgyb6+l9uaWvp9jxCNsmzEn7OQiIzn LKTCmhj8fW6fhycKDdHFd9ihjhQhlDCVKhTpYu7SZW08qZojyE26Ls8yTixM sGOeJa1XpZxo8i3RhyOE6tvs1miTeEs9skGl8EfQuaWOtJ7Gjrtjovac8Ufe nkZW6nXKdyrQMGgVE7J6Cws0+npsiGZIRDNZDUKz+05wyypwGQZR9VLxSCkj W+Fr4cnDZW9SUAbR7yMXYgxClQWEUJ5ISgqsvaq6QzP3hKy9yJPUhTcLjd6t smhYFPEHVnNl0eprkRJjS893yBrBSmoq6bWHWOQXQikpngaJSq8I/EXi9sfD HdTEqLc53vksGH1wY5Q11k193nuJaPCzCydtVKmCHXS4rkVXxeTSveUvTlqL TBB0clxaU+dtFNokCFit7Pzds5nTGULNurVGvBDK7nIR96lZX7W6+Z340Lng vplbmJgRrn8omEyqXkVNN1cItpdhvz4m0fdN4Cs+5lL21nfCm0hsLeBPb5yx 1LdOzm2KnDHFZ/fQ9aTSEM1iQlZnYYFBV48N0QyFaCazQSi+FhgqKni1vwoK PcTWS2z5VJFuK3wn5u7C7GOhVZVCh/j3kQNRBqHKAkIoT6Qkffa17wI3qvAn /oHCpbjYSW/8V2H/snpokTQFA6u5smg0dhJjbLEjkKxXH25GXCyxUMNFkOxC KHV5BA2yt6tnNhPRrz2uN7pLVUoWmLXz9Um3PxyToUERzyxfzps4y5nxlQPf WfKdsWsihZrtQ1diSPSEstc+vF9SJm7obQkgXghlN4GUOY+Ar8599N7XnBfA sfaG1E3wZOr8/dcBFW8HEA+9tSfwEi58Kxn5yu0aOUXc1Gdu6znj8oYTlCU1 nt746ZdU5cPdTHMFcb4Mz2zEgp++PdjT1mTCmtp6Byc+DcbWKnxrxdJB3Rui fMvZRwgPjgSr+ZbhP4VcJ6zmI0Pe+xyvK55auu2/5r+9JNLnBF8NjdmlHXYo 8d5R8gpgvaJZTMjqLCww6OqxIZqhEM3kNQjdWfGdZhupqthbqCNE10vsuzsV OPG9E/P0WixnbghzB9XmfeSgZJOx35vQvBkHhFCeSEn67BAtrKDCn/oH8mEL s4zMrqEbscQmTVWB1VxZJIydhjG26AyLydRwLvRCptdj7777MPuQjcTaQwIy C6H4VnS6ndmxVHFjUTS5WZRcvnt5kOUo09DhurG4/JRjaon4Z5SxBAcUhW3K xPPsKisFHJyO/or69C9CrBDKqiLKfupf496TWLVpz5xqkTHS8oD40I2OwYGW +qEAwvUPCdNsbHH6V/j9zm4q9qXLcRAzNbQNfugP308k47HIV1N9VrPjk4W1 h9eH/g0zYebT1yt4ItHNFdiBCzfvXjvfaT7kuPCX2UiM+Dtzn411Wjick4ss R0RVRKwGKo6HZH58K/x2c/Vc9ktolCoNxFn4UmnOetovxfquxElP7ElbQ6NV TMjqKyyw0NNjQzRDIZrJahCKr387ZmProHpYAqiOhHqp5MDdSzOL8vWE4hvR 6W7MNhZc5T+ztXwfK1JiEIqEPxUIoXyRkPTZQqggryHyjcsHZrFmR+ogJmlq AKzmyiBy7DSPscWu5vL1d+3F3IdZcVozg9CszEIovnnH1U5noIZ21x2xxwbV psqt8TKgjCU4oDCsicEzsdJ7/Y3HPA90JniLFELZ7jrltrqIUyctB6f+VeW0 yarfiYmoYaRSGGIUzk9Vg5mOR6aiPFZA+OaS/5w9961iR0f9xf7GOw+8/TZr x5F8Y0pFmZpursCarC1m+2+vLvzCGhs8E7/iIMbeOuBb3j9meNLnoPfFRKwB 2OcLLG/6V6oGzq3FGcp7m9Mhir61WVxbF9E2Y67rvfxQUqdTyc0XSKxBkEOj mJDVV1hgoafHhmhWBTWimZwGoVSfPEOd7Td/Axl0H9LqJTzhP013k8povrSd nB2313W55nnrB1q/j5UontLqX7RXFhBCeSMh6Qtfr5Fsfedqpd7IOglmR6og NGlqBazm9iNi7BCJseS1sHRElUlkZu0+EDQP+J9o9ubJKIRmEoGRNjpBm/u9 S/o5EaO4EIrHfQ7qmDmSbyhQCeacO692C2avH6U7wvgiTghlu+uUMxAgvxMe 9/cRm4hUXFT1mHD+Q6NiS8sJXV3wWvOmYh4nGXRa+r0P9p0NY/eWVN6dYTVX YPbx2eT+n1oLjbZWnPDsi/MEr9N310Pjtvwvt/0myOMaT2bLleNGXVZzPmGr LuSJCNJx36AZ65lZkDpFS+6NR3WJpCkaxYSsvsICCz09NkQzbtSIZjIahG4t eU+zrZSwzg+iKb2VQCogtV6ibDzpb1mWBjZSBcUE6Y0IvI8VPkvxlEbkqAUI obyRkPTxhLcnP+789Tfy1kvql5C18qMRljS1A1Zz+xE8dujE2N3N8DutTGo/ NhWV3Ly5c2+mne1LKe50nkzIJITi6UeBsaOF5IwRLbu6KoEUF0LpXXt9GIQC BZiqlWMxQrMVcx8n3wKLw/tQf8MsTghlH0QqsxYj9n3qeBmF0VtXatZj1KV4 +rjWijlvUv201+763AViJ9GEWYb8K2VdPnbvzRyq414sMM0V5kFfvOwamT7i XXZHj20Zx0MMZ8AzK/4hC5VSeB+Oo7ctuCoNujlf6L2i5FPFfQNmTJYt0ZKD IWg0rqCGJjEhq6+wwEJPjw3RrAqKR7OsbAahdONKgQprLkCWeqlIc67r+fgH KY76+It44Hd2TNAJdETex7KUGIRqur5mACGUPxKSPuM6yFN/y1d0ZMwS0g6t EUKSprbAaq4UgWOHWIzF1+ZdrP03qbucZD8JK0xrPJ9lEEL30vFZVw+dehrs I76YrlTQrOJCKBiE6pfdteBZ0h+jrurhbtogS/KxWY0QJ4QyMaTcWow4dXKg n9eBO2Yrv3EirFbxStkK6eJaK+YwdVXRjLzTnKruKneMMCuySosFxl6mcmnB +DKVHzXWsaPq9gj08zMuKw32c9/wO1+Jvwidy38gjuYoXn1WFX51/fakvUE2 dybZbyo0IJrEhKyuwgIbHT02RLMqv6R0NCPYDk80MhFInEkXno6HpvtZixrM 3PfBHKiglZClXso8nmU6TxrsY18nRd1okB877OhY4BF/MRWh95Hr3yVBRS8C IZQ/UpL+9pLnBDk1G7o8P1af0elFj4NSp4TZL2iEgKSpNbCaK0HY2KEYY5mX hczyA58vpcWJWdQBhIZ/62inywZt53NJU4rAtRh5/9SlM22MTNw+5JlflfOO IXVgm/YIK3H5AQaheob2x+A+nkPvmFTceUEecUIo3e1cxvaBOHVS3/nRAq8i W+IpP3GQPmz1bwURPElRyvPwBLW5V/W0F3M3cd2Av9INsMWXCZb9EXpXl8PQ gzayq5Q+6J1Nnq8Gnkl+U9hZO9Dj+ob3Eo+fpR6vPqv97KXjNyc7KctwaU56 BfBlT+GLI0FlyYYUmsSErK7CAhsdPTZEM24UjWb5Zyu+eaexx/tI2BuGbyXv XB7pYF2kgB10TAXjItdHtYFc9VKJFiq4/2R7Nfr5WKcFa3vzs+gvQiQgpN7H EvCtyLvMEU6t19csQAjlj6SkT7ejYFWPoTFvkPALubSBf9LUHFjNlSBo7BCN sXjqrputhTr+OL8qTNDC00/C7tdsGLl593xuohmr9nhKs5d+ds833GZiU//a lf+uesXXXnr9vxduX3dPOO1NtAZab3N+GFyWbDOcq6wiX7ldI6c6rJjJ3NZz xuUNJ6iyCk9v/PSLrDe5k2Q24/Ofjdgbir4Hc//U7EIyJVfKWvE7LVoPNyAa fGfJ20+cnmiwT95er3A1WzJwlnAAwzom557pIKOWRaRHKO2cVnIahfzeLMcE nDeh1wjq5TIiU9QNBoQ306gOc+qnymkv1t3EHIcdWJcJVrWX4TL0YJ1Eq5RG 8ecL7lPmfOrkdE3Jxf+we8BGfkzsyIjvvoDqlGmO4tgR5tdnVfQb6fVH/7rp Hulgkp0Js5+7HlsTnx4ym4noddYxCoq2kS+XpZxxNCYaxISsnsJCEfp5bIhm 3CgUzRgyqfjti8yiRkh1mkklY5FZ7/tDbAk0twRwuK4vCJLUahIZ66XMyhyr FxdrO3MpGNuoukTKTcu7N93DXU0mS+eYb2F9n/kc92+j9j4yT5Z+tvjX0eKl HNY5HV5FIamCECoESUk/sxocI92YuZo88dR938gRoqRrenky+BjJQdkH76SJ BLCaYyNk7NCNsTkyT265XmEOgJiPT/oiST5bn5m1WNA9nKsZsEPOmX+QO8IF L0GVHSOfBSf6KI53WNk+pWzqrR3H+ypxghAoi8Bs3Wc/+jLyRHKy2U3FvnQ5 DmKmhrbBD/3h+4lkPBb5aqrPSlSbaw+vD/0blqs8T1/n4TLPwU/BiVP0h+lu M5f/DugPZ+04wXz4C8Fnolp2eM1GAGV2UwufOAgt9ECPa7a04YE2yDL3T8+t 6HiAxd4avxoYJl8k9lbXXjp+Y8x+0OFZFNIdS8fkdldEshszH4h3E2uZiqLf i8fcWVzFXoN1GR+v9Fdx/ctjwzGXjeddB/L/GtfBCvz5ovdN6uwAuV5bfFby EmU245EvLxKrMxO5pn4/sCRwW41ujuKqu/j1WZE/uex/29n3cltTScIryg59 b/njfEs86g+Wy6Fsmtq6yWTjGPokmkJwX1t9VI8JWT2FhSL089gQzaogczTL Ejcv+Cac+VK2Qlgrrnd5rgDkWwLUCDLWS1m6sZMejKaOM1Pev0ViTzaK5ySe Xnu0cNvvvjBIyNeEau2LPhVerKL0PuK/zF9801FxXlaa2K++5X+kemYFIVQQ 0pI+vVdV1vMBf5G47R5sayB2snpcgiOzdvBOmogAqzkGIWOHUowt/2Fyb9DH w+xt0KbOoSnvbCT2eKPkbcukVh8t3vnaOzXcTUiO+3ZL03dnOhvVns8lpmQi wZraXu5zDk9MuX1/jz5al6P8oaUk7Oio/0HRvvnOA2+/zdpxxFp1QHlBBHwe 5V5p9UdKpvzvoSuieDaSfgKfvj3Y09ZEfJO9gxOfBqU0FwEqgWeSc+7BdmKS 2hzj7uuh+UgkMh+e/csFQr2vtzkvhhJVu6nRRqQQmvtufrp1jjhjgtnf+uzW PyPzt/wXhzvM/zbgEXrehDapqD/svq98aMS3wm83I1T+cbC3GXyrns83g8d9 jsL+DkebUPXdmUzSN0AmSK5VNstcpeqB8Z2N2I33iZeFSp1t3bkk4soxPuzs LizM621945/yaWsphWmOwhy+iptlAiz1Vm+NUkdgyXxXXguot535ivfGXOEP FqROTqEBa+q6GN3SdziRCZVjQlZXYYGNjh4bohk3skezLCugSYYooB3kCuDz wO17CdlOTtUMstVLBYhmm0/H+w4Wjy+duVh9LxJVa6Tex90fPC9Z8m9f9UVc QfzH/u3MjceqZ1YQQgUhPelvJ+c+chLd+JaOofe9s3MRYrkWunH5PbKPHWvq +I+ZwH3hkVlDeCdNVIDVHI2QsUMqxnJQPumwojF7c6rpsHPi0+Di0315B88k //nXUFzYsQRjkop5nOTAt/R7H+z7QthGRnr02GQ1MF+4effa+U7zIceFv8xG YkTL69xn5GauXixKgNzy55b3w/ODfdQ7Xm/t6BuccBukHUK0EJrNR8WJ148R X0su6I1dCoiS9/Gn/gGqE0aNTSKqo+bQRPi50v+SZNZCo6T3FXbCs8QZApn7 Lzj2RvFfo9MHTdzfM+1pw3Fkkr13edIb5+OsvLOxdOfG5Q8nhwfyiZLImycH R99z+76JJjbFLhPo5ijOSkOSpR6gDerGhKyuwgIbHT02RDNuIJoZHZnqpZI/ mkrcux343P3+2KCDPu9mbus+4Rgcdc38+YZ01Rr19xFZQAgVhixJH08n7970 uIitKcrLhFiujX14JRhNyG+ypzi8kyYywGqugJCx01mMLSSdqYlhZx99yJrs NhwgNkuv3Li98N/rYBteBdp8HrMM+VfKRqfdezOHqNcJfYvg/dANzFiTtcVs /+3VIhslPBO/4iA+nC4urQMMjRQhVC7wnwJDlHGZ8jY4eduWfm8C+f2orbyt NNbrrbJpx7T9c0RLPte35Ut3ru8Hf+IfaKb+sbp+34qGpSXTHMVxDEeKpR6g HWrGhKyuwgIbHT02RDNuIJoBaFKb76MMgBAqEJWTPvrwT5roAKs5CkFjBzG2 9sCf3jhjoQ4sHHfHtsr/EN0DrMeQyDy8CbOPzyb3P39hs4D7UnIAUBoUhND8 AQeTCucp8rYtjZPhbcQTwN5m6Dx5BozDOrsAk0a7ZhYrRFTm8AV7r3B7ydPf xpyhKKTRyt8PHvf25ncTj7gimu7D8mqOKmupR3y3zU7/qlpPCghHvZiQ1VNY KEI/jw3RrBoQzQA0qc33UQZACBWKqkkfeYQkTYSA1VxW8NhBjK05nkdcR/Jy 9ID/aYUpwsvxFVWYhzcP+uJlfdB3Et5+k/5CHGA4kBBCcy/EorurkXgh2i8u 7ij3QuRtWzD0l430vmrru5GqvpHMwYrKnsb0fY5sexmiDamF5RJT2KCpWLvT 0bvONvbtupaRi9UcxbHSKG+ptxGesDdPzFUoOAA0UCkmZPUUForQz2NDNKsC RDMAVWrxfZQFEEKFo17SRx5BSRMpYDUndOwgxtYY+Iqvn9r45tIAWR6bejYI rVydZpI+J/Ut8L20CwCUABEhNLu7FjxrUXyXikoTfO7b1ZhCnGw85nlQfSOI OexQKY3Snswm06GZxcKHJ3ZU69guMQX3mPL7ibSnhwmzX5hb1/YrpJujOJL+ 7npo3Eb9DPa6f7XwwL/+a+pg+0R4Q72HBcSgTkzI6igsFKObx4ZoVg2IZgCq 1OL7KAuIC6Hbcd9rFtsb1+NILUBVS/qoIyxpokWtr+YEjx3E2NqCbdNa6d6r LMtjk8PxFVn4PDyr7u3zJVV9PABggYoQymwj1g8F1hTaqMo7D/O5b1dbCtt2 fK0zMquBYTJLlv1o28nZcebyYCbg7Kz4TjcUt+UXMni3O7avlT296HGQu5xm pyeWEvnJ5IJpjsrNmLeCm/vLDXxnydtvLnxsZjVCWo7rbpO9NlEhJmR1FBaK 0c1jQzSrBkQzAF1q732UB8SFUFRRJ+mjjtCkiRg1vZoTMXYQY2sJxuWA0+yd 9tjkEktRhdfD02IpCKGApqAjhGZ3N8PvEG39HNbB0sCXPV16iCr42uwI4aJs 6ffxtkjfeeDtz+U4zDzgi7Ovn8v8PO9+zWY55b7jHye9u+mAg2/OTbZ27Nux 3YxOHcP2nZvAU3c9A4cwYifxd4H4C+3rU9pSjyw4HN6HxSO6sx79y1DbQcel q5cc5NY0vUOKrwTO2Lvci+i5qwP7UTwmZPUTFkrQy2NDNKsORDMAZWrtfZQH EELFoUbSRxwxSRMtanc1J3LsIMbWDowTAtYyFa2glZN73NRP6doglOPht+dd B/L6PhyNB7QEISGUuEctOJJ79THLmRuV3IMlkLeUQT6qUInMhHV+tJAW8C3g 65GPiP0+S+fYlfmlJ8lELBK4NNzRbO5xBZY28Wxm9dYksatY98r03I8rS7fd A+3t575Z3f8vZB7Pjh3FTAd6Jr+Yi8WTifvh61NOW70JO+h4/+ZSCoXtacZS D2uxthBfVvvgpRuR3NMm47Gw3z3aY7G9OhV8lMbxdOyyg+ikahv2RROJe7NT /RaBXyygJcrGhKx+wkIJenlsiGZVgWgGoE4tvY9yAUKoWBRP+ogjMmmiRY2u 5sSPHcTYWoG5G+vAYODnCj+Ujrm7qapQhwahmaRvgJQ4uZwr9mLuw/nvwezQ 644PYAiQEkKJ5HnjDLGbdngyLPuJis2Iqx35qILvPLzcW5d7zJ6ZBeGHFzJP o1+6JwZ725owzNp5amTKeyu2wWwvbq9G/zo90kf+196z7tuJdIUaAt9cDl2Z Gnm1w5rLntaOUyMu91eRJDrHL2lrkYYuz+Ja7Jb3w/ODfR1Wov6wdr5+fsY3 t7RBN0ntpRO3PROvdeY+S9PhAdf1hXXon9ITSsaErE7Cwn508dgQzfgA0QzQ A7XyPsoFCKHiUTjpo4y0pIkStbeakzx2EGNrAUYI7ZpZrNAvzRyfZ3tsbi95 +tvQM8Xdx/PwxKF9D18C2yiV7XMLAKqDmBBKmKUEx2xKbIbmfdjQth3OLPsG rCaTuce9sM/hBSjAWOodmYq+0PppAKVRLCZkdRIW9qOLx4ZoxgeIZgBgQEAI lYKSSR9lDJU0a2w1Z6ixAxSDORpf6W6sbHYzOFy/z2OTmPYtemiezOc+k6nf m6iwU89cEGaq6/etIP+RACODnBBKeKzMu7owU2PndCQl49tBBZa6NwLoeo+n 475B836XGKAE2lKv/MUigOFQKCZkdREWyqGDx4Zoxg+IZgBgQEAIlYZySR9d DJc0a2g1Z7ixAxSC0QArCaGpmMeZv07p0MxiYY7jSZ+jThfNkwUhlHaz3wce 9/bm+0GP7PO5BQB1QVAIzRaut8O6XPOyHamgzHsxhy+JaI7K3wuM2S/MraOT 3BGEZamH7mgCcqNATMjqICyUB/nHhmjGE4hmAGBIQAiVjDJJH1UMmjRrYjVn 0LEDFCGzGhgmdc7W0dDavv+6nZwdt+dFQvZ16jsrvtMNA3492CavhUaJq9Iq J7/nEdcRqhu05FYvANAANIVQwjj69qS9wWQe9MVlOWRAeWujewkjvnnH1S7j 5zUwtKVe/WH3feigqh3kjglZ9MNCBVB/bIhmvIFoBgCGBIRQGVAg6SOKgZOm 4VdzBh47QBF2Hnj7W0z7+4czP8+7X7NZTrnv+MebMbYQim/OTbZ26KR5suD/ Wb4jFM/ErzjIY1CwcQAgAapCKPGyJL8eszdg9vHZpHQ/bHwr+p9dxy5G0bSL pvZMzafcC8+RfD6UYCz1Dk2EdZEUALmQNyZkUQ8LFUH7sSGa8QeiGQAYExBC ZUH2pI8kBk+ahl7NGXzsAEXA1yMf5aaNydI5dmV+6UkyEYsELg13NJt7XIGl TTybWb01SfSF1r0yPffjytJt90B7+7lvVnUyw/AVXz8hdXa7Y/u2Bqj3hbgr 3umJ6fs+OMAgoCuEZsnseXu6r6Wu50/3UsbdNcg8nh07Wmf/rS8GaZQHtKUe WgZBgDrURkzQLxDNBAHRDACMCQihcmH0pF8TSdOgg1gTYwcoQ+Zp9Ev3xGBv WxOGWTtPjUx5b8U2mAbR7dXoX6dH+sj/2nvWfTuR1tGZoc3o1DFs38l3PHXX M3AII3pBfxeIv4BXBkACpIVQAjz1Y+D90yfc9w2UO9nsrgfPdQ55IqvG3eyW E8ZSz9TlWYYwWpMYPSboF4hmgoBoBgBGBYRQOTFu0q+hpGm4QayhsQMAYZB7 BJjpQM/kF3OxeDJxP3x9ymmrN2EHHe/fXDLSbgigd5AXQgGAxfay5xWqg+rQ zD2IpAAA6BaIZgBgVEAIBQAAAGoVfHM5dGVq5NUOa70Js3acGnG5v4okEbG0 AIACIIQCegLfil7qtR6wD8zMrcLyAgAA/QLRDACMCgihAAAAAAAACANCKAAA AAAAAADIAwihAAAAAAAACJMXQuvbhv/oq8g3sZSOTHoBAAAAAAAAQCH2UrFv KpfNfxxuqwchFAAAAAAAAFHyQig3Tl8SSjkAAAAAAAAAyCR9zqrVMwihAAAA AAAAKAJCKAAAAAAAAADwBYRQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA5dhNRT/oNJ/yLm9r/SRAFXZjn7zS c9YdXHyW3iv/E5n1pbmrroGXB/0r6j4aANQkuTcu7He7RpwnOqyYCbN2nHAO T85cCUYTqQyu9cMBAAAAAAAAAAAAAMBmOzn3QZ8ZM5naXJGU1g+TJVTZxS9G u1vN9jcuLzwXriNsJ299MGA/YHN8MLeaUeDxNCYTcTWZCDCbY9ztD8eebJCK KJ5efxybD3w63merJ/6z+Yw/uaP1wwKAsdlNxa6NdVowa8/wlOd6cC4yHwpc +eN430GMfEebOt66fOdJWjM1FGIpAAAAAAAAAAAAANDspZMR3+Rxs4kCDSF0 6ztXax31QPXDwU2Bv42v+Przv93U50so8oSaQguhXGBHx2Yfg3IBKEyNd5Jv J2fH7VhL3/S3iZL2bPxFPPiHHjOphppaHO67KU20UIilAAAAAAAAAAAAQK2z lVz8fj4U8Hn+c+z1Y1aMLZ+hIYQmfX3552k85nlQ4fh3RVg64RFX5LkiT6gp VYVQzHZ6Zm4FVFBAYVDrJFcZPP3Dxz11Lf3eBxUar3fX5y7Y8wG2xeFZTKv7 fAQQSwEAAAAAAAAAAIBaJ+HrayJt7AaGJz+8fOPO0rO5wnIXDUED/ynkOmE1 Hx6Y/jYpwmEvfd87dMRs7R29ck+bLiyF4RJCm7qG3cHYBpyIBxQFyU5yldlZ dHc1Wc7ceMoRZPDV0Ji9sD9x3B3bUu/x8g8AsRQAAAAAAAAAAAAAimGUtZoU NPQGMVxN48FELBL80ud1T7lyTLu9/mDkx4rXJwGAVJDvJFcVfCvybit2wrPE 7QmA7yxebC8ooc0Tc6oroQAAAAAAAAAAAAAAFANCqK4ghVBXBI6+A6qCfCe5 qmwtznSRPdiHB1xfxlK7FX9w997MobzPpqnhXOgFNFYCAAAAAAAAAAAAgKaA EKorQAgFkKCm48aK32mhDSl6vcuV9c1nwWFr4Sdf8dTorVIAAAAAAAAAAABA DYGnfgy4+l9236/cNqQpIgWN3fXgRM/InyOrxl/aIzWCMgmhNTR8gCKoLoSi 9BqyhVCsZSpa+ZFSEVdbNQ+BGnoZ+Q1iJulzVrBBhj0gY8N+X4rp8yWr/G4N vUdlQSlCAgCgL2o9fgIAAAByg2dW71x0tGDt79x6impyESto4Km77txHs5/z L20a98AnciMoV0dobQwfoBiqCqGovYaZp4GRvBKK9cwscHx8trBzZCr6ouwP 1cbLyH8QQQitWaQIoTXyHpUFtQgJAIDOqOH4CQAAAMgOnkl+PWZvwOzjs0mE S1MJggaVN03mU+6F5xLyJp5ZXwxcHO1rM5swa+egyzuf5L/YxdNPItemR051 WjGsqa1vZPqvUdk2NFEcQRmPxss0fEBNop4QiuJrmM1uP1v81n/t5p0454Xq +CNvT2Neyal7I7BWsVcLYimLghDa4QpEivl+eQORUIX/FHKdsJqPDHnvpzl+ KrV023/Nf3uJc5bonRfLoWuemT+4XOPDTkdf3/EOa4N5eHad61dy8yHocrRb O8b8y+w7xDIby9HiIb8TcL3EUwjN1mhSkz9C4un1x7G786HANV+OvwZC30Vj TzaMdhvjbmrh8oCtqXXiH5taPwqwnxqYhMjNwJqMnwAAAID84KnoxR6zyez0 xNA20JMmaODrtyftDSbb2YDICpyq4Vt7Jr+Yi8UT97yDFiz3JL8JJnlk4d3U 0lcTnS0259T18P1E8uF37v9pMZkw++StVRmEQjRHkBFCM2uxW59/OPZ6T5uZ aEyzdvQNTrq//D4ppFCUPHzGYGdj+W4kX3B/5p5yuS6MDuYW9Cc6rOZTXvB1 LItaQiiaryFfNoPD9XkdFOv1xjmDGsTSAgUhlJ/2pQX4Vvjt5uqdir+ERg+R P2Roe9i9R/63Xs2Fy24yE1HUDwc5l/b0N2Nx+lc4/7rgyVBrSU3OCIlvJSPX pod7rFjZfuzDzolPby7KERFQYOv7qfYG4nMdmlkENwF0qJ1JiOQMrLX4CQAA AMhPZtk3YOW9CNUUqYIGnv7h4546E9b+3vym4FyOb95xtR90uO8WGmbIy6lz HJyO/sr9zeE7S95+s5X1u9nsi9AoUVZgzRNzW1y/ywNUR5AUQn93I+Id6Wix dv/2oj8UjcWTyWQiNnfVddKGmTDb6Zm5Fd5VoqThMwirfmfZkrtaF19No44Q iupryI/MU/9g4c5421Cg6keAWJr/BeSF0K3FmS4qQByauVdxqGgZvEbCCNP/ bHb4OFX/rbmJZirmdrtjHB21WVGToZaSmmwRci+duDXjPISZLB1D712+8Y+F 5WS++w5PbySXF0JXp4c6yYBi6RjxRtd3ZHl87diKuY/n037jZHhbh+nFgNTU JER2BtZS/AQAAABkB9+ITndjpgb75O11dJJbJWQQNNJx36DZhFmG/CsZQR84 tTDT23zmxlP6l/buuw9TS0enj/NMJ7nqb+m5GC06ckh/Fs77S6qD8AjmPyJ2 dPT6/Y3Sb3s7GThrI/7roYHPuA5sFiN6+IxCOh72E82gVz0zrrN9NrYo2uXh uBG8plFBCEX4NeTFzqK7qzEvqPdefrjD5zNALM3qQAjFf/R0kZ08ptbR0Fql H9qOuA7UVBjJi+dV5U1WP+1hd6zKCQZxk6E2kppsEXJnPep2mBtszg9nY2uV g8XO+sLVETu5QdL2pndRx4dn8eT102Y601eJkIAq1NYkRHsG1kb8BAAAAORn dz00TohRtvHQuh5202QRNPJtCS393gf892jxp/6B+uPuGNNwhMe9vVRpwN3F hK+FJw/XOa7Ei3M0nvD2mKQv3pEeQWK4sKNjs4/Ll034amjMTnwDWMfk3DPe woOY4TMoz8MThwrVKWe7V42juBCK9GvIg62Hnv58O6h50BfnvS8BsRR9IXQt kO/05Wr1TMfc3TUVRvZi7sPUnDnginA0OOE/BYZayJ9r6vVWVYjFTgbjJzW5 IuRuauETB9EQ/v16ddEj70dKhrXT3iWp3eLagD8Njhxk7Xca2rlCH9TYJER/ Bho/fgIAAADygz+9cYZwZjs4Enyqj400eQQNfOfh5d7c2rCu3/OQZ1nya9x7 sq7IN+/F4sxL1Mqx1fUdx1/ZW/Icqyta9VP/583gW1QLVDWDMi4QH0F84+5X N3+ofPUGvrN4sZ0az9Z3I1s8P4GI4TMqz4LD1kJ1ytHuVfMoLIQi/hpWI3+4 jFypCb13AGIp4kIo/iJ0Lt/5yNHqyatr1EgQkxCrPmfwnZi7i/o5y9lgdccA 0ZPB4ElNrgiJr/7tN7bm0oZwzt/IxH0DZDObPg/P7m6G32k1sVH6vj+gCjU2 CXUxAw0ePwEAAAD5KfTj1fX7VvSyepdN0HgecR0xCTgEuhGe6D7tTzA/yviG dUxFOZ5kdz04dnjsm7XSf2Qz4qIkwGoGZRzocQRL2I1OteTXmf0Cvgehw2dQ tuddBwrnlWrE2U8cigqhOn8N89cNiFFBKWo8liIuhPIzCOXVNWok6C0kzjlD diCTP9bY5V7k0WskZTIYN6nJFSHJvyP8+6HtDetaJ+c29fXVshxLChwYDPys 9WPVMLU2CXUzA40bPwEAAAD5wbei0+1EYj7iijzX+mF4I5+gga/4yLOg1qIl Oe/noC8WwY55lgTcfF6A8cSrev9CJfQ5gqUULknhcVE1G2nDZxCY052mmnH2 E4eCQqjOX8P0osfRIkEFJajtWIq2EMq0erZNhDcq/RCvrlEjwWwhccwZph0U a5+O8jqwIGkyGDSpyRYhiYZwsquuqc0xduUe7368LL42O2KhBnJ/PznKpONe Zx121HnKzpKhmvp8Ca0frHapsUmopxlo0PgJAAAAKEDmoddhkWGPXmXkFDTy G4hiTKvwZW8v9Rx8fMPK/YGkz0Gtw7gNyjjQ6QiWkoq42vLlVf1bwU3+OoiE 4TMIuUX3AN0PWiPOfiJRTgjV9WuYeTw7dhTLrek63wkmpbh+1XIsRVsIpVs9 uaIrv65RA8HLIHQn5uk1k8JFl2t+XxtyeSROBiMmNdkiZCo61cFSYwTteqyF RqnTvZhl9JZo9wyVIf0E6lsnv/3hqpP1wU1NrghSd9XUErU1CfU2A40YPwEA APTNdvz6G62tb1yPI2UujW9F3iVTMkeXCJLIKmgUbujgeeqN+T3G2bJu0P9U REWwuxZ4I788FWlqp9sRLIUlhAps6BI7fIYBBYNQNOPbPpQSQvX8GuZV0Ia2 Ie9iSuqqoYZjKcpCKNPqiTl8STAIzcNsIVWeM6kf3H3kvGpxeBb5Xx4mcTIY LqnJFyGZxm8R1QITJcTGGdWh/AQsI4GnO9vhyUbWJ2+cCKOdbo1LTU1CHc5A w8VPAAAAvUOd/LU4/StaPwkLPO7rJ/boq1zRiyDyChr4E/9AM/HHLOdDInoR xW/s0lvDYk3tkB9BPHXvymivtc7W4womuS7WZAuhAsdU5PAZBbZBKDbgS2pS VyMZ3/ajkBCK/GtYEfzZ3GQHZmqwj33N+Xry/4M1G0tRFkLpVs/6w+77FUcF DEJL2d2cf488zS30BZE8GQyW1GSMkLv3Zg7V0VJM3XFvXMjXw7KRQdPhsATK T8Di8D7MUE7qLBkKyVBTG9TQJNTnDDRY/AQAANA9lFCAlKcK3YTDuThCE5kF Dfq6YSE39WzeGqWsfkR7XjHVlDhTO/RHkH1q2zocfFb5J8V3hIocPqNQZBB6 2B3TZh4gGN/KoYgQiv5rWAH8+YL7lNnU4nDfLW9xtrsceO9PwYSgpo+ajaUI C6FMq2e7K1JJZq5lg9CumcX9Zn27qYVPHMQVz/W201eXhN27IX0yGCmpyRsh t5PBdzqbyHFxfjQn1MqDVvtNpobR0AupD6MwpC0D1uWOUdMv6etjy1CapXug ZiahXmegkeInAACAAUBQKCg04WAnPEtonm+ojOyCxmZwmMyavO/pYK72MLVf XGRWSZvRqVd4Zl582UO16Yg1tUN/BF9Ep44UaibuvW/W+e6Gc6EXAr8NwcNn GNhSM3bANa/RPEAwvpVDESEU/dewHJQKirUPeSte9IAnvD3Y6/5Vgc2BNRpL ERZCebV6ljUI3dsMnW92+lfVelI1YbaQymQcWgUV1ywtx2QwTlKTP0Li6Y2f N9Ji9A0mBaAs41DsJP1nzOy9ocKUyIOqRWONUAOTUM8z0DjxEwAAwACgJxTQ TThIJ+IKyC9o0ELcSzOLPHZomas9ijcct+Ymmu38XLD4GJRxooMRpN2QMHPv H6OblRUVxnMJa56YE36VpsDhMw5sg1DunltFQS++lUUJIVQHr+E+8iro0bHZ x5XXMWSLYMtUVPAh6dqMpcgKoaxWT451a3mD0I3whF1UQEYfZs7UDQaKHVG3 k3Mf9BEqaIvD/f26GMsIWSaDUZIaUhGSrUGhbQFBXi9eZxmZZS7oYj88USsJ 36UCUEAnk1DnM9Ao8RMAAMAIoCYU0AcH9Hack0J+QYOW7HhdmMvcUFz/JquM yf2RN+uLmpo4qGpQxo0+RhB/6h+oOzzx9yfcG+d7S55j+UWp0xsXcbJV2PAZ ByQMQrPoxbcKyB839PEaFkGpoOZT7ugvnNOFvBhXjJJTm7EUWSGUbvXkEEJ3 10Pjtv1r21//NXWwXX/3f/GCNpVt6PL8yMyZzM/z7tdsmAmznZ6ZWxEbT2WZ DMZIaohFyCIlx6ldxqwGvhaePGwyn/EnWZe94I+8PY0sHQrh5wc40MUk1P0M NEb8BAAAMAaoCQX0ypHDNAxhFOjsYg5X8uhboP/9ogakre+n2tvOBFZ4rcQZ CUucqZ1eRjC1MNNT1/lBlONC6kzcP0StSVuH/HFxdZWg4TMMaBiEZtGLbxVQ sJMc8deQZnvF/6bF1GAf/uiqrzJXPTOuN7vNmLijbzUZS1EVQplWz9xX/Faw zM0R+M6St99c2E9hhhz/NTp9sPXdyJYRLdYYU1naIHRnfeG/JnsOmEwHeib/ a2Fdym3D8kwGQyQ1xCJk0dleWa/MkxN8J+buwsy9nljxLFzxOy0sGQrZ5wc4 0cEkNMIMNET8BAAAMAaICQUvQqMNHCsj1MHXAkP5QkK+48DMyugVz3I1J6uC 6xqzasw8nh3rsAz44vxO0jESljhTOx2NIPnNmDvP+xb2d6DhmY3710ePEotw 7MiI734lu8LqCBo+g4CIQWgWufhWCdmFUB29hgTbydlxe2HG8EDsgNZiLEVV CGVdzGEy5S//ZbGzHv3LUNtBx6WrlxzkCrdxMkx9h/hK4Iy9y70oRRBEFmaN TBiEvkjeveke7moyNbQN/ikYW5Pc5CTTZDBAUkMtQhbd9oKqjJN56HVYsM6P FkoP0rDvlDQVu1gA+gH9SWiMGWiA+AkAAGAQ0BIKdhdnDlF5rMeb0EG7R2Zj ORohmQ8Frnk/Gu0+wKRic8/opc+uBULz1E98v7wh8hPRZ+X4nK9M/eDuy6VY rPMPt5YSy9GblwYPWxyfLHD0PRbxa9x7UoqpndwjiGc2Hob9H7uGnd1t5tw3 0NbtHHZ9/GWkypF2vmR+jnjeaMPqbX2/u3TlBjVU86GvLk8Nd1vriZs3He/f kLr8FDR8ugDPpBLRmx7X8KsdxLeENbX1jUxfiyTpDi1EDEKzqMW3isgthOoq kGZWb00KUUGlfEs1GEulaF/KhV/GIBRrsbbkviasffDSjUgsnkzGY2G/e7TH Ynt1KvgojePp2GXyeqC2YV80kbg3O9VvKbMQVhmFvhn61KTJ1HK02242NR0e cH12SwYJlEIuVVz3SU2FCImnV2Ph/3V55m1ijjSRkQCzdpwacbn94aX1kgHd jU61yBDfFCXzNDBiMdnHQqv7vrB0zN3Nis/IJ9yawViT0DAzUPfxEwAAwCgg JRRsL3teya+NRFyFUQVCvPm7z11YuQii3trzXmh1/1okFXF1d5zo48HxjrY/ iL3HcCfh7aeeo2E0VN1cG38eu/nH0T57U+6xO1+b8NxOpPk3PPwcGDwgIUHL OoKZnyOX3+poKiuRNLQNeRf5KhK7a8GzzQ5fsvzn2Us/u3/L+8HYYG++UGzK LWpzheK10OJTOVbbAocPcTJPo1fOdRJflKVj6H3v7FwkMh8OXv1wsB0z90/P PyW+MFQMQrOIxbeKyN1JrmggzcodS6kxEkS/NyGuH7AGY6lY7UvZ8EsbhDZ0 eRbXYre8H54f7OuwEoqotfP18zO+uaUNeoj30onbnonXOq31pDB4XdrxcMko +M2kYx5HE6FUDE/O/PlGOPZMwHzj9egyCaF6T2qKRsi9dDJybfoMOUPqrd3D Ux5fIPRPcjv8n6HA55fGHTbsQI/rmyTTWM4SwAnEOWkoC77+7Zit3nLmxtMy sawwr/KA+aHmGHASGmgG6j1+AgAAGAakhAJ65Whx+lfk+7M7G7Egeb5MClpu jzL9YkpbytDnxURWQXKNIJ5Z/97taKkwFnkwbodPmp1Fd5etX7uN1/+/vfP9 aePK97//gHnCQx4gISFLfoCEEOIBCF3BA6JESCHaVYRoK2SiVhBpV5BvVdhW hVQ30Kutq7sl+rZkdWvdrpV766hr9W6cfuNWWN2Qr3C+G/fWUYLydRqozBa3 kAViEQTBML6eGXtmbPxjfs+Z8fv1rA1jj8/nnM/5nM/5/DBOfPpyvJ9Y8DCl 6hxU+2+8938p8G/mOt1c9K/sEVMgNEOYfuPRO5JcJ0WagS6VASm6VIHvS3/1 KxQIPT0Xs9BB0Oobk2Z1Eiy+qemlIendp+FPLrYzPvL69pFPFkrfpR7vJ5eu uducw/6VXM81UeMwBgJbvaRic+eosi0j6YPIbKPoByir4Qw0waaT0FYz0OL6 EwAAbANJjgKhcIp2nYYEk0AVVM8HS9vmXTDypXvq3hT1L9YctgkF90WdV2Mv 5Z/PtJEgnU5+M93TUEYUBWIpcztc8E5b4Xddze9HTOysYZD4dOVo99FnbIJq di1cWUiWqmtEby5O99S98qf/+wUhBUIzZOk3AZ0jyXVQpBnoUnkQoksz8n1f hqhfvkAoIRUaJWGDjUm7grGW3tR00ZBHu8v+8W52ekipK76/7HN3nZ1/wLp1 Clu9EOfEoQ+fXh+sa6xQmLcwq9pBjQQ3DX1DwGHXSWi7GWhp/QkAAPaBJEfB ZnAkd8rW5C4ye2y5e3VItDdS7effen/e9wXbfvhz70fvDLXXi3bOuvaxj0s1 LP6v0N2Ha7um2gQHkZlG7iV1jZ/Zjc31cUPROff9SwUfoIUE6d0HQsgN1Tk0 9bF/IRJjasclk6vLUaaA5yVRWmLnZLjiiZOJumkxubOGQeLTD8EL6nCO+OJl T450wj9IudraeF+BuQVCM2TpN8PQWJFmoEvlQ4QuZZHn+zJE/YoKhJatWEIc ttiYtHOEWnpT015Ditq9Od/wxk62XzwJnU7ccDdcDKwfiqLHWUgr7EyvBS+2 OTo+jFZw2hf02SHvJ9QE9p2E9puBltafAABgHwhyFAg3eky/VJV7WGHwBtOI IRzfKT5z0Ps/3WN65eS3zsr7rIkcP/ae4vwMLWOhX9R+WvqnO3Ovt1OUc+Dj +6LQLHprYdLFjkUdaxfJRwMJ0s+WZvvYl2gZ8PyfkyLj/ii9E1+YG+aqE1L9 3vhhue9io27q3zL5ylVb8RkNfbjiH+a8oI6O8WCiknVN/xQcbRYZo4prOWoF QfrNMDRVpBno0kqQrEvzryjD92WQ+uVzMOtPeR9bIx7UJhuTdo5QK29qGmtI rixMTj32zS49k/yJO5GZU9klkBYXk3E4GmciJHWSZudqVcd+KjwhvgojK56w BrDzJLTjDLSy/gQAABtBjqPgOBV+O7ePqa1fX3Byp3reCcSfl99Ac62BWVwm VpKsCN9PRP3J8Wg7/E6+wYkoL4xOhn/Xzf7PttHAqiILQr0Ej7YXr7RnH3e+ fq2oBGUJ+Ovv057o8zJv9MR3ztnh+duegnfREg3FZzR06p6nN7eU6oYD61WW B9+EgqVrftnkpB9y9JthaKhIM9ClFSFZl/JI930ZpX6FAqFdM5Eyz5KFbTYm 7RyhFt7UtNWQB8nQu+05JdA67H8i59qD3ou83zzw2Z3PL4gqjpDlGKFTS7Md 9c6LN6tEbgtFD7lJYaGSFzbAzpPQpjPQuvoTAADsBDmOAlHXP5VWOlP3pjV/ ci9Tz1DM3t88HbnjOzXoJ/L0vhv1cCdr9fecoorornfDXERK+pf7115nT/St bu+DKmWFyqJagnvfzfU2MEk9jyo4W8TkHC/1E+FUiX+l96IfdiiNyNIUDcVn LEIcVHZtvOKNVz24F/TuJKAhJjn6zTC0U6QZ6NLKEKxLT35U1c8xTP3yBUKt Uh7NPhuTho5Qy25qWi6uo93Yx2fz/qM6941EWuaC3wyONP5qaFBUm5Gsbt17 ce8rVN2w72m1rZ/+0T/QKPoVpLXasTH2noR2nYHW1Z8AAGAnyHEUCPuCKuuU 3oldPZ933Zy/GpPScll0nqV+G9wk8GgmDI7qGuD0Ydzbnx0g6tTkzYfJ5Oqj xS887k7KQTX1vX09WjXcRdJLKpLg4XrgYh115vKdn2WYcYdx36Cz9OUvk6bd 0jyzZHY4aEZT8UljPxG5eX3ek+VfpsYuDA39urupdTjwo0z7mN6LXe3lDezR YLX2H1m2Fqc68oYoCUEF5Og3w9BIkWagS6tCrC4VI9H3ZZj6FQqEOvp9qyS6 youw08akiyPUUptaRsPFRW/fnRVqhki5KDxBURgbs216ogeErAq2gGRdY76Z TmUKW+04+ueXCbC8agBbT0Ibz0DD9ScAAIASkOMoEPYFFdVp6P1Hf8zfjUrc PTMFqVKa9lnWDlHGsQZHmMPtR7euTr7e15b90c7u8yMTnn8PRp7uyL1HLkad BF9+P9fZ0DG7lJL3Fmx0TYmmPKyPok6RWag92oqvOserX1xoE9dLcijpW8S0 82iU97jQjTfLq75V06tMkaPfDEMTRZqBLpUGkbq0AGm+L+PULz/+dV3zDwl0 lBdjq41JQ0eoNTc1Bo0WF70VmRWqKtaPh7YULPoTPigC0ijy0OuhSx2O9iuL 21KWqci9TK7ytx32noR2noFG608AAAClIMdR8Cw80cZtC8ozBbgwDA453TpE hgAJYWwnESVznfLGCS0oo0aC9MvY1U5l2YJs1fETltvzqOe0hJqWxmCW+Oj0 6vXz3PdSozIThY5Ti+8J9+vSCi7Rq75+/hHzC4RmSNJvhqGFIs1Al5qLRkJk kOL7MlL90nuxTwfbWnpG55c2yc8ItNnGpKEj1IqbGocmiysfDZ73usxEdpR8 TLEPSplrVw+4urgdl0ISp+p+3Hte9ENqas81C3tPQnvPQEvYIQAAYHvIcRTw taMVW6dcb0EOea06RIYACUNxEtGmSW5BGTUSZDJqpSVfn4S9Wi10u9HrgeE6 pWah9pglPvog6mlRZmsV9n8vU+yuCHE0ICFBBeTot4xDI6p9j3pFmoEuNRtN hMghxfdlb/WrBpuNjD6OUKtsajm0WFz0RniyU1DKze9HJF8VFcDXy+Ugp8ML WxdXTsHJgvLg2f2/3/cDEbfQNsbek9DmM9ASdggAAFgCej9+Y7zH6TABZ8/4 jfi+JruNauuUTgSG+bP7e4sytvKjrdCbeUMAh3fFqJFg+lksvLiq0HN2HPee KkjE3o3N9Tl6ry0fEmIHmSU+/oqcavHcl5UDSCf8g0KkgcTQvlTU0yvzEUnv Ygv9ZilHKHSpyRjsCLW3+lWDzUbGBo5Q5ZtaHg0WV+H+KPGisARHy/NdDg0+ R2v2nvqGxb4xBZCrXAs42o587O420rpwdrs/jkjK9a6CrSeh7WegJewQAACw BEfb4XdMcRMwON8Ja7Gnq7dO2UMHByWzE4E4paJrJvJc/pfrjSU2TQ0P7zJ5 sTjV0DG1uJX7z9SdKVezrDA2nTFJfHQi4OYUg9xcp5cJ/wXBxKYu+BMvqz/E poLmn9GwQKg99JuVHKHQpWZjsCNUHaSrX/MgbmSs7whVvqnxqF9cRUm4im/9 smM4KnJlkRJETSdvXnQ2tPW9MiSL893iBOu6sdBW9a8yHVF3P+PQpI+PnSdh DcxAS9ghAABgEej9Z08eRJXwlaevweFo6PN8pejxB0+eaRQvpdY6FVsFcrdy oWaUw3HeG5fWFcRQLLFpmucIZb66JZ8Ik94IjtXVvxXaMr9CZR6TxJcKT3CO Sdm11Ar7b0rLQKSTATdvT2tbINQO+s1CjlDoUtOxlCOUdPVrIqSNjPUdoco3 NR71yUer/kGRx0X5m4i1pYOUIGou4VpqhxoRycCQeKOySAsYejcRDd8KGMet cDSxq17ONp6ENTEDLWGHAACA7SGnhp66Cvb0D77+hty2IrfEjbjVNSHlcYqx RGFtDRt8yIXpF5n7UsY+dMoMY9MbU8SnopYaE8gkmJPSWuvSLxYv8w+RUSA0 Q5J+MwzVyxC61HwMbpakEsLVr4mQNjJWb5akvkBoRoPFVVRTUfGb8E5dBnml mHXjKBX5fYeMDjUiioaldS6GyxD9sO0krJEZaAk7BAAAbA85jgLmyKDciyLa ASl3IClnBxW3upb7rFEcrvmHc69I7i2nOgmqgh0fZmTow+VrvY6+udiuod9f BVPEp6JAqLj5u9SUK3GKGTntwsnRb4ahehlCl5qPhrrUAEco4erXREgbGQ0n g8U2NRFqF9dRbK5V2B8Vv8lxavE9Ie9CXilm3Thc9vY3yulQI6Ko+XjjbOSA xA3AHth2EtbKDLSEHQIAALaHHEeBYJ0q2BdEVkFd1/xDOdeAbMJa7tmmQf8q kRunqsExChNfkj3f9ftW6edRz2nqnG/FbGuuEFNGhk9vl11LrdCclJbgLA4j 1LJAqErI0W+GoXayQZcSgIYvaYAjlHD1ayKkjYyGk8Fim5oIlW9+nAq/LcTQ Kb71o38OjfOurMZ+7/Khkk/Rlv2Ef6SOesUbVxS2TP/oH2gU+aFGlCZrg6rY dRLWzgy0hB0CAAC2hxxHgShTQPa+IG5VLNMkoH8KjjbnHpXYFMYEhE2T4HIy aiSo+rujnqbs0KSWZpqd5HlgzBAfn94uu3iUSI4OyQnO4qQkgjKSyNFvhqFy GUKXkoCGutQARyjh6tdMCBsZXRyhVtjUxKhcXIX7o9LGN/R6QOiK3fH7SMr8 LZPeuH3JVd8xu5RSOE1/CY21iEaGzBrR9sCek7CWZqAl7BAAALA95DgKRFec sjcGsVXQ7YnKyD6jN4KjOUuAck0ubJl9UCkDHwhRf8r7mNRwGzUSVAt73vyX b0Jv19eNBTdIMyuUio/eS0a/8nom3+hroxzO7oFLHn9kbZ/9AHp/5+d/7JbP Hjpanu/iZMEUIKLTO/Hwn94fG+huclBN3YNjM38Kx7fKDFOhjS2pfhF9EJlt zD9RPxFOFf7z8do3/3r1r2YkSpOj3wxD5TKELiUBDXWpYY5QYtWvmRA2MhpO BmttamI01JAOR92birpfMRHC+Y/onAxvVFGW9M+LntfanKfH/Y8reHbo3ZW7 wS+Dd1eU9OKhNxenexyud8PKm3mJgtwkbR8vVhe/9M3/q8dzZWLEPTT0Sl9b g3NiYbviW6aTYY+7t61vOrhay3WIjZmExgrIhBlY9AL6rzIBS9ghAABgewhy FAgpmQ2XF1/I2mPEVoGsbIiXCf+FXKdrxekYBiDkHbtGgutmv01ZVEhQLcx5 s9E9NtpaPx4izgOjRHxHu/FbHncn5WjoHvskGHm8lkzEo1/NDbU53Z892np6 c/yfKAflvHizjHfxYNX3KjetWz74+sGX7511drk/+M+FaJz5nKXPp89mbbBW t/dBKVuuwMauGwttVX9bcZ9xp7u43j7zr9RIcFPaL9cUgvSbYahbhtClRKCd LjXKEUqs+jUVwkZGu8lgsU2t8D3ULa6C0jGK7ilEkXgVfq/w53uR93Oh9pUE 94/FKc5PrKA0Db0Xu9pLtV0MrqmYpKKyhwzVEgqOfwy+/frQ0Gvnu538Mydv UQvhfyPR2tsAjJiEhgrIjBlY9AK6rzLxt1nDDgEAALtDkqNgMzhCKTiAM4is AjnP7v3N08GZAnUq0jH0R/h5p+diZLTjLokKCaokP0JqSofphlzx0amV4OWe 7EhSZ6aCTwqOdYdP/MPtbX2nc11vy4Zr8ilCVFNbq7PnnT8/+odIHnQ6ccPN TPy20cDqSTmJbWxJJjadCLh5U/lEOhLzry0m3XqTpN8MQ90yhC4lAs10qVGO UGLVr6kQNjLaTQarbWoFqFtcdDLgpmRtkEXPb4QnO3OPu94Krld1p/CNCCsW bebbfyuIDzyM+waddYPXnx6qUdxHm8Hf8gMjY9sVSjuevEUtZG9pppkqbWbU GIZOQgMEZO4MZNB/lYmxih0CAAA2hyRHAXNPz21iMjMashv1mn9A9uGdrcvN PdR+ZXHb/BpNZeHtdpWbr96okKBKcmYFCV0vTyJPfLtx3wjrVWwd9j85Ubue 6z7MUb5VKF9LLftHPVcWkif/amtxqoO1gUskIol7f0sxsQsqTZ3s1MmYjr2e aMU4Ar0gSb9Jht7972sDLa6pOwqHTN0yhC4lAs10qYGOUALVb3r3WXJjZ9+0 tyJsZLSbDFbb1ApQubjoVf9g/rJItho52l680p57uPt3YQkFY4TgsY6pxXL5 GfRB1JMrj8g055LzRlntHRhzUgPzj9TabEVdu6X65wTJVvaeiWL2JFXssTVG TkLdBWT2DMwYsMoKsYodAgAANocoRwF/4y//fY4fe0/Vy7Fs6XQiMOpktyKq 33OfgKy18giZXF3zy0TvmSokqAquRiXVPLNEYEauHPEdbS99wITNOCjXeHC9 ZLW0o4fzXZzPqWzij1BLzTkWSJQ0XPkcoubR4E/FX/Py+7nOnFurcSZSJWCF q+zEU3zEpl8sXm6Q2HFJe4jSb9Kgt+57+qkSIykddcsQupQItNKlBjhCyVS/ 6e3YZ6Pt7Exu6p+88VBdSTdlkDYymk0G621qBahcXIfrgYv5q7++uZh07w2d Xg+OuzgPiKQsfga+EWElnwlfnaZiPFvJV2K1tyalG47j3lMiN1TD1KKUWDfh qRZP9KD8SwgtzpsI6DtmOsZNQp0FZP4MZNB3lRVjHTsEAADsDVGOAr4GlAT3 y4lnV3yvsVt7Q7/vh+rb6f6yz81tRBISqUxGSPeQsa2bgxoJqoE733XPRHaM +06pyBAf2zSTcyiVr7Io3M6XK1Ik1FIrfwAXSkGWktRubK4vZ0oO+CvWbDpY D77lElmeJ67gdyIz3dXqSukHUfpNCkep+3/o5aaLcmeFymUIXUoCWulSAxyh JKpfemth0iXKkpTSkkZ7SBsZrSaDFTe1kp+mdHGJKoF0zn3/UtpDdOqep5f7 nQ09l7/dlDQd2ZtE7l0rBKFJimcr9dz23dmeBs0KFSYDQ6IlJ22aCcWlK9oJ 9GHc28/9nap+OjbCoEmor4AImIEZvVfZCSxkhwAAgL0hylGgKu+A3v7rdDtj FVD93njlOjPpvy9Mn2G3IcmX8mbyPDLDhULIKv1tCtpljsiDLe9jWthhZaSL T2jiWTcaLHdoL+ycW/JP+HCXCoXp+IJIJW1FkU1baVQPt5Y+7K07M/2l9618 0mKRI5R1R/zT1OI/yv9qXSFKv1VHdEhR46xQuwyhSwlAK11qgCOUQPUrOtjm oc75Vox+QdJGRqvJYMVNTYz6xcWHuVaIUC34xnTyW88A950tA55vkyUjY0sg rXShpHi2Io73E1/PnuWuMavVfpSGuKgOg6Rot2fhibbq70BvRWa5WL/Gfu/y ieoKtYkxk1A/AREyAzN6rrKSWMgOAQAAe0OYo4CvRK3k7JDeDE+zdW8qBSbR u48Dk6cZ26Hp17Phv5Mdv8QiZKqqa1NoDKokqBjmlCStv7nhSBafqNJmhcw+ UefcqrXUqNHyNR75c2W5M2MqNneONbFdw6UN1IPkwpWeujPTC9lFxHfSLHKE 7sW9r1AdH0b3zHKQEabfKsMkxZ9ramqkJJ3lK6J2GUKXEoA2utQARyiJ6reo WByrDy/4ExLDprSCtJHRaDJYdVMToX5x0c8fed9gC59STNf73fKOEXovGfHm qjRQpycDj2VcGAlBaBXiiqXFswl/vr/94/dfeyf7moSQaarn8s34lnIdnk6t xW7mnWw83ZO3Vvcrv8/BfU9L1fY6ws0s1Xs1Zpo5QR4GTEI9BETUDMzos8oq YC07BAAA7AxpjgLelFXUXYW3Cqgz06Efi7c/+sXaXe9YdwNjMwx4QivkdjYW I3SHtEZ9eHUSVAZzSqJa52IEpktJFp+QfyTtrFc2MEZCdI3YuC2fG8inPBc3 FaXTO49ve151Cu4v+vDp9cG6IhOR3o9fdzs7L4XWzVtopOm3CrDRHc2Twb9c aZJ4lq+E6mUIXWo+muhS/R2hZKrfve/meotiQo1u4UfeyGgzGSy8qZX4UhWL i36+7H+rm/P/dF/6NLz8rKgtVzqViN66NtHPqvT6dvdHslUlH4RWyWErLZ4t s7cafH9k6NfdTeKSEQVQbX1DbwcTUnUj94FDQ6/1tZX9yOz2231+iME9/lls t/ijJdWfZFuKs+9Heg1qE9B5EmoqIBJnIIOWq6w6VrNDAADAxpDmKEhvBLkd qf6U97GiLeIgufTHEebe09U3/pF/YSma5f7i7et/GO9zZbfZpr7/NR96vCM1 L8l0jlPht+tVDYjBqJegXLhWleTMYTGSxUcnAm5nzmyrcN1cPTAme9QdpapZ a6KS8pUykujdx19O/yqrIKj2C54/f3s/u5QiC4FP/3movemEOX2QDP/+LGPf tg7N3YpE/9/izQ+HnI09s3e3zVxqpOm3srDZ6F2XQuuHfCSbKmeFJssQutRc NBGi3o5QYtUvnU4ueafc3U0Nbeff9UaWPh9qM7iFH3kjo8lksPamxn+mRobK 4U789kfuTop3uYxMzHiyXJkYOZ93+NS3D135UzguX1UKQWiUO1C2t7fU0oWb d6a4RGqqqfvXQ2IEP1J9+6WvJHSyL/zAvKOpNLkPp5r6r52IFeQlW6H+5O7/ 9w6xkmp1+5arpn/XJPpNQm0FROAMzGi9yqpiOTsEAABsDHGOAnojOFqn9rKM 3k8++NrnYYwA7pqyrW9obPqTG+HY2q5lju0cW4tTHexPeM23Yo0cCk0kKAfu orZrJvLcgC+TiWTxHURmGjk7sEIEEf0ydrXTUXls+epDFWqpiQN1qqWL0nvJ 6FfembEBZillzdfBsRnvrehPpbKNjveT0S+v/m6I+cv6tvOT81//YHbRSOL0 W2nozcXpXtel2xu0KKVXZdSWRssQutREtBCi3o5QktWvmKwqMNgRSuDIaDIZ rL+pcV+spaFyuLNy7/b1T2YnRnNeF8Yzc2Fs6g/ewLextZTShF8+CK2iz0Sz 0oXGU7X+JN89sKFn+hvJhVVrEz0mYS0IyOBVZj07BAAA7At5jgL659A414MY 5VOyW/TSTDN7lzno16CSuDEYLMFcvZ1h/xp5FfSli09odlmhfPp+3HueO+mV raWWW9GOSgNC/xQcbea+rG44YGLiuv6Qp99KcLS9eKXdNRnaYE4qWjlCoUiL qVFdqrMjlGT1W0BWFXSXd6PpAIkjo8VksM2mRr6GFILQKuTva1e60HiEagb9 88t7J/75aPfRZ24nxUQJXvzzSuW2fUAPakFABq8yK9ohAABgWwh0FHAJZdWu 52qC49Tie2xLxQqNBgjEUAnm6u00zkbK1S8yDTniE86MJQ1OFiHTUBwYc7Di G+4WEgbzZ8byA0In/IO50JnTnig50Up6QKB+K4ZPiuekpZkjFIq0gJrVpfo6 QglWv4Uw6+r0XOyFYV9I5Mionwx22tSI15CSgtBKli5kxNQ8Etw06k2VIVQz aLi8+KJIsryTzbqhhpanJgRk6CqzqB0CAAB2hUhHweGyt7+RvaC7tmzRS0ZN 4CMWzOy7rQjjJJirt0MRaPPLEp+QRThStqkE3+hWXEuNuc5uFWUt5fNuCtu3 i3ge9ZzmLLr26b+aWsDTAIjUb2LoZPh3vWJBaOcIhSIVUbu6VFdHKMHqtxB6 1ddvaOIwmSOjejLYbFMjWkOKgtDK/vBypQt3IjM9zTNLZbzPhCDUn6wbCxVW XTxILn08xDjZWt3e77at62SzNrUgIGNXmXXtEAAAsCcHicBvXO1v3kwQlRl0 tBV+1yXvct+G0OuBYeamsvGc7wmJ4QqVMEyC3BFJbRtHPZAnPiGzr9yZcTfu G8l1nuiaX87/WibuqE5cEi1fKq108AydTtxws9ffVM8HS9ukjZnmkKnfeNIb oUlX+5VFkSC0dIRCkeapYV2qqyOUXPVbCNMZp97QVEQyR0btZLDdpkayhuSD 0Cq4aNiyKtzfUL8NbuZ/+8vv5zp7ZyI7xr2sEvL+bUdDv+8HQa7pX+57f9NO Oaj2i/NL60rLqwL11IKADF1lVrZDAAAAGEj+pr5+PLRVo/dm+SAH17thixXA ZzFGgkcP57vqVLdx1AO54ktvhiacxTfOPAfJhSs9udQ/8TH2cD1wsWE0uCEa 4bytdd4bP9HAc3/Z52bvo50jvviuwl8GNILeuH3J1Tu9uCleH5o6QqFIOWpZ l+rpCCVX/RbCeOQ6B/0GFlAkdGRUTgY7bmrEakghCC37cm+HUycdJ/Thin/Y mR9BwY3D9p8iP+Qst0YcosoJh9uP/jI70OJwtAzM/uXRNjnFdWuSWhCQoavM 4nYIAAAA4zhKRX7PXEZSr3jjZOf36AO9tTDpym6+ruHSvRrJxwgJMgmPjsKs OjJQIr7DJ/7h7IGOco4GEuJUI+7+3fWG917wCltlnT8z0qml2Y6+E6Esqdjc OepEkiC9+8A32kUxYTP/HEoU13sCRkOvhy51nUzk1NgRWvOKNFPrulRHRyix 6rcQ+jDu7a+/GFg37thO6siomgw23dRI1ZB86ULWdeL2Py2cSYfbsf8c7+50 f/rnT91sTCsfLsvsLD393mXCvVS5NeLg6k++SD742jvR3+Ro6B77t3B8i6hl U5vUhIAMXGXWt0MAAAAYCL0RnuzMmqeuS7c3am7b4Mx+B3X2j4/2LfvjdZdg rg6b45Q3TlaeiULx0dvRPzLBLa6z0zfur/yUXItHQ59O9DU7BzyhlRSdSW/e mWVCaOpevbr0w/rKXe9ob+/lbzdPfkP67wvTZyjm1v6LpXgiufY4cnNupL3e QXW6P/p6ZReX0aZTIik+9w8aO0JrXJFmal6X6ucIJVb9FsLeOHR4/magk4vY kVEzGey7qZGoIYXShVRrWysz7r1jn96OZn94MhGPBL1TA6721+fCP+7T9H78 OtuzpnsiEFtbe7gwN+yygK472gq9mXNBtZ453+N0NJ0a9Xx+xzYeNstTCwIy cpXZwg4BAABgIGzqaHbrODUbIStpSWfow6fXB7MmCDUw/8ja+cs6SzAV9fRm h6nFc5+kEpDqxJfeiN3yzowNdjdRVNvZNybn/HfiO0IszcFm7L+uTg6x/zr4 rvfu2n6ZkzadWl28MTf5el9b9qjY1vfGpMf7VTRJeLJcrcCsi+ZznvslFoX2 jtDaVaQZ6FI9HaFkqt8i0pvh6XbXZGjDyOM7sSOjeDLYfFMjT0PypQsb+n3L W/E7/k/eGxvqa2M8KW1nf/vefGBpZYcPRjveX7vrm/nN2eywMN6qm1bIWd6P +9xNjBAnZuf/43Yk/qyc0IE51IKADFtl9rFDAAAAGAh7iqm1S7T0amC0zeFw DngfnaiHZTn0lGCuvE/bRPiZxp+sBluJD+gAM0O6ej33UqUWhB6O0BpVpBmb LUZlQtTNEUqm+i2ATicCo87OS6F1Qyc9uSOjdDLYah2VhDANKZQuPD0Xe2H2 2wBgRwxbZfbXnwAAAPSB3rrv6accjWevRncJsE/1Zz8RGHOerKllXfSTYCo8 Ue9w1L0ZIqjwuO3EBzSGmSGu3j/cT5WetPo4QmtQkWZsuBiVCFE3RyiJ6rcA evvubI+rZ/butsHCJ3dklE0G262jkhClIfnShaUbuAAAVGPQKqsN/QkAAEAn uK6gVH/JTFJ7kWtQSPV8sHSieKCF0UeCR8vzXQ4H5Q4kSZkWNhUf0Aw2RM1V OimeQy9HaKamFGnGtotRthD1coSSp36LeLkWeGtgdiFp+NmT4JFRMBlsuo5K QoqGFJUuJHEWAWADjFlltaQ/AQAA6AMb2tHgcI4FEnZOLKBT9zy99vyZOkiQ a0hBUAdGG4sPaEPFpPjcn+jnCK0ZRZqx9WKUKUSdHKHEqV9iIHlkZE8GG6+j kpChIfnShfWnvI8RDwqADhixympNfwIAANAHOp38Zrqngeq5spAkrP+AVnDR CM43vI+ek3eAUo/mEqT3Yv+7/9y1GCH9f2wuPqCew2TwktP5+vzCvWh57vnG uCgFR58nJPzv2OqOJt1eakCRZmy/GGUJMe/7KphOLN+t7igfHcLUL0GQMzLp ndVYkXYJeX4lwxFq83VUEgI0pFC6sGsm8tycdwDA3hiwympRfwIAANCJrIF6 9+pQa93Avz3ctV2KQfrvC9Nn6nreCcRtvGPaV4I1IT6gkt2op9uhkG5PVKtm o/Zdhhw1sRilCzHvCD1JkydqZCt1YDTlFY4UR2hNrKOSmK0h+dKFJJaZBcAW 6L3Kald/AgAA0At694fQRxdf8z62l3V4tB2+fHbcF920b4xWHjtKsIbEB3RG 5LvQITWex47LkKOGFqM0IcIRWrOocYTW0DoqiXkaUihd6Oj3rcKHAoD26L3K al1/AgAAAAAAIAeDHKEAAADI42DV9yoXqdY1/9B2F1UAkABWGQAAAAAAAOQA RygAANQs9F7s08G2lp7R+aVNRGwDoAdYZQAAAAAAAJADHKEAAAAAAAAAAAAA AADbs7U41eFAgTgAAAAAAAAAAAAAAIDNoHdWv4tGo/cj4aD/k/Fuiu9o0jIw 8++B0OL97D9GHyf34RUFAAAAAAAAAAAAAABYlnTU0+TsPv/aUDle62ujRgJJ VLICAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAyPE/evt7cw== "], {{0, 199}, {1795, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->Automatic, ImageSizeRaw->{1795, 199}, PlotRange->{{0, 1795}, {0, 199}}]], "Input",ImageCache->GraphicsData["CompressedBitmap", "\<\ eJzsvXdUVE2zPTySFMWsYAZUDIgRFAwYMaGCmBEVwQiIOWAERAUTYA6YMD1G zIqIChIEESMmBCTnnBlmZn99+oQZ32t47n2/P3+u5Sydc06f7uqqXbuqq3sm 2a1dusjZbq3DAjudsavtVi51WLBGZ8yK1eQr5ToikdpYkUh0V0fE/Bvkn/yH ciKAAu6viH7+9mM881FHxNwoEimXQ/5HhD/+GQ/FBwv/34P/78H/Px+cR/+v Rj6kyIl5gn+8D+Hc9Zu4GXAb9x89VkJQUBC5/DjwPu4E3MSNmxdx3MsfQS/T UfM/3pjw79/YiHxIkBpyHd6r1mP7bk9sWz0PI7rpoG2btmjbtg10uwzFTOct 8Ny7E1uWeeJKcCKq/ttXyiCTSVFbW4vqijIUZMXhnMNgqFGTVoPe7KN4m16A sooqiCVi0kFy///tlQvo/1Xw5bw9WqqS5utowXT/q/9oKuXfNGVP/89MUS3e nbFFC9qcJgbvCYeYu+cl9zpJWig8Fs6AzZqjeJXDXhWpknGX4e21HZhuMRe7 br1FqYx7QZPfdyCffipToVUU5yGvrFZkyn9XXYzs/BLm9SIz7jtpRQGyi6oY gYkG8/dJq1FUkI/CKohucl1MuLxQkMjQA2/bCrdWIK+gCOVimfw1MgnKyatz SyXCa8i7UVRYgOIqqage/11NGTJSfyAxMZG8gPlUJp/pyC+lEhDt5++rrUBu xn/cl5SCzJJqeofQnrgMufmFqJRCZP6L/ulyYi2J8IZ+c0Z3WmPGmbfEhCCS 8SKvScP5taaMXKExzAm3kmtFrYT+liInrwhVZBrKfz8DeZzEmCEnh/vDxd0L F98UmnJfS9OeY6+7K3bdeIMSKUZyX5cnPoX3zs3Y+SAeYhkG841UpeLJOQ84 el3Hx4Jaf64r4pJ0fHj9As+Dg0R1ERgYKKpPPh/g8IoR0FBmZqkJeizwxoPA QOYq+fsc75MKmJlvybdcmYags+5Y5huAj7lSvnuQliDugQ+Wbj2J5z/K+e6h tgCvbuyFs+dpvEiu4UUu+XwRI3q2gDKRggr1r8rkszeWnfn60xRKk+5ivkl9 egd/n3JDPUw4+lZhCslr8mPht3crNp4ORVYVxv26r/xEyn4EYGqnhnSy2tmc R5pMYSJRihBfWzRmQKLJMGy+n8ZNJGkuJwpHdm3FtvMvkSdG2e/nMldorRJf bu/CxLETMN8vmrQNTt1VqYGnPDuAieMmY8GhZ8iTQDSce1PR+2tYPnUURm78 B99KJc15TZKUIPn7D6TnV4u6crfWpLyA20ILDLL3RXhW9Tmu9bIoHwzsqIl2 XfpggHF/GBkakm8NyWd9GPXvD8MeumiowiizChq064p+A+g9MOxnBpfTUSgG WvDDLvuGK1tmoq/lcpx+nTuM/7roE85utkY/q424Hlc0nB+WOAtPfJfAZOw8 7Az+QQGCnab6kMT5Y1AXDYg02qFnfxMMGjgQJiYm5K8xjI3t4POA3t+EG66s KgdfPqejuFomshKMtQDfv6YQkKgVdaHfqUOSHoZdS8eQJkzY5kizg0wGoId2 E4KkHWB2KJa8nO11/uvzmGsxAVauAfhRgTHCGOMVx9iRH4zkO46Zd4ES0YYm 3dYiJE/KIim5lvnEG+PUGQnqYK5nGJ1bLWFuZch5eQozJlhgltd9pFdDVPp7 dckRHqtG/C13DOsxAFP3BiOXqMQw4VoVvtzYCqNugzDHN4yZINFQrvfFn67A fnAfGNodxtu8WvnEvYLb3HlY4PUMJTLwGlP5/T6WjjREj2l7EZVbe5Z/QX4M dtnbYLHvIyQXlRMkLyDfFpDP+igsKkJGyEEYNa5Det8cA1wfIrukGIUFBcjP y0NReRUkMjTnX1yRgPMrJ6Jj35nwDU8fwX0ty3uN3TbDoD1kOW5+Kx3Kv1ia i6A9tujeYyw2BHylbkaduyaJO4+BekRjhrviRVohSkqKREooLCwkqpCfX4Sy qhqqYU14lPx+FTPMFmD/4x8MPk8WLDcIjhbzsN7/LUNk9DjFkYqrUFaUj/yC QqZNFBUVo7Qog/TGiqirNlGc15zisFOaHnIAo3sZYezGW8gQ886QGe93XFzF jHcWM95OwiMVCNszFRpKIqg0N4PvqyJBe2qSA7HCtDG1P6PFp/CNaEgr4TkJ fjzejaEGA2C5/RFyiBqU/F57shV6mBVxFOM662PI8qtIq4FohHCtFJEH7NCp wxCsuvqJEYJoCNf76tQnWD28F3RHbsWzTLEA9DVx2GVuAA2TdXieK+nGQ9Ob U7DU7wLjJWcRX4aznF0WRh/HktkbcetTCfEs7Etr485hYBMl0uMWGLz3JZ0o TcGysvFox2xotzPDxjtJ1JnyTkOc9hgrhuqj03g3vMisGaIwhtizq9CjbX/Y Ho8hwoVg1oKejN2DuCpo8hr34xYsddtBf9kVZEtgwINIcRLCX7zAu+xazrsz cBYGRyNdtJrsjbhy6PNfE1HFHJ/Nq0MDoS9ixF9dj97t+8DmIGuNIwV9zsGj nczQRsGFG1pn7lrO0x3QrU9AQ1Ub0898oCIRXE/1dxxxGEjdUoMRq3E/pZYw Df59lfh4zhn67Y2w4OQrEB4hKv6bSpCpTbyPJSad0W6UOyLzpKOEqU2A3wIT NOpgiYORWQJpKP2CI7YmaKI7HSdeFfJCZELae6tGoH69odjzPKebggi+/bMK XZvrwWLXE+QTL3pGeKQUYftWYcrK8/hSKlXjHql6dxomnEIM2k35rKil0Fw1 Pl1ZB33NbrDcFcJ4V8G+CiN8MaJdW/RZcAbx5RikoPCZoT4YodMRxk5XkEkI XIP/VIgxXnhXJigEqt/BfWB7NOy8As9yag34r8uTcXPnIlivOYa3hdDhv5Ym w296T9RrPB2XPpfLdaICL4/M4nVCQ+hOHu5vmYAWWqZEpb/TeR+uMLrPV9aj R6tusNj5nI5Oj7smTb0P2/Z1iVTqwcCWKKqiTpA7w73t0Y6hIw3HY/eTDFEb oXcZuL56FJq2HoXtgcl/UIcsYZhfcdymH9S0xsI7PHs093Xlt5uYo98KLYa7 4GmaeKDw7kIyibPQvF4XzD7+ignH5OZLRvfpjAO6km+m7g+j+igohjgF/osH o0GLwdh6P5HqOK8YspLX2OMwF2svv2HaU/2rYhDn9s4fVrpaaDNxD96Vy0Yr oEHI7pnQ1OgM68MRVKIDeQBJCYRz//ZoZLQCgRk1Gn/RCeQiYMkgtKg3ELtC sntyX1ekh2CX9VQ47gtksENbwRLDdlihDZm/Zf98ISQOou6/VoyG3NfSnBdY P7QjNAzm48qnkuE/DUwTbSftJt2RdeFfUBuPE5adKQy06bcJL8sgeI2soH0Y R0OQTlhy+BVRKgjqUJv+BE4DOqBRPwfcjq8o+r06ZCooV/SxBdBWaoZRmx4S 9YVotMIw355eQhSvMYatvIlUYlsm3JsyX/hipEYDaI/bg9dl4OlxSfRRDG9f D5pzjuJbJXih1MRfw8wOjdGshxPu/6hqRL8m/romD++CrsJ7kwOmWY7H9BU7 cfraU8SlFxH3x/+pQlosCU82LcKkiRMwd7MfXsTnM9dZSKmL8oyPeOR/EBuX zsCwUTOwZNMenA0IwZecStFaeg/xTYTzrZi+Flc+Fon+pHFy3vQOeyd2R4P6 I7D7Re5YXneLX2KzaXuCBuNx+GWuCS8paQouOZiioagHnK98pWb/R41jHfzH 0wug2UQTo3wiqTcW1O7dZSyycMLh4GRmnNrc1+n3t0K/hQb01wUwkcIfNY5F xpQHruhdRx09ZxxDXAWbEGEkJi5KRMh1P7gvs4b55ClYuOUgrgW+IpyvmlAr 5h41yrI/Bl/EdofpGG0xE6t9biMut4oVOsPma5HzOQxXD5MI02YSho23wwbP I7j2JBbpZdLm/yHH+urD4RWaw/JPRjTlCPedBhWi4Go6E3EwLBFJL2/j2L5t cLQaDdNBFljqegBXn8QgKb9a6FN1Lt48Oosti6fCdLIdtpx4hK8FtX24YWWE HsM8c2ss2bgHZwICEf3xB/IrWHa4jruHsH8ccJoLyxmrsffcVTwOf4sfuaWo kfJhmQaZzUA4jNAEE2oOWHEO7+Pj8Oz6MWxfsxCTBw2B2bTl8DpzAy8+pKK0 FnzvypJf4aq3C2ZaTYD5kp24HpmEchnkfKEW8TfWoxtxUIbzz+Ib4WaFf7NQ FZS+u4SpXepBuY8j7iVV85qIwrfwstSBkvoAuNxNMOa/LojFjgk6qNN0KHYE Z7Tmv84LwZKBWhB1XIK7yVXdhS5V4NUhGzRVbgzD5deQKehtU6LqcThFCG17 nWFYuucSQqKjER35FJc8l2PanKXwvPEe5bUSpD32xIg2WtAdshqXwiLxxH8H ljq549aHIqqcrD+WoeDNRcwbbIKBVpvhH/gCL6PC8fCyNxaZ9Yde/1nYee0V cgmhXi2oNaGrfpsxecExvC+Hyh+MtrkwnCrEHLGDlmpj9F91i2A6RHweIPXe NvRspAbNCXvwpgQDFKwk8dYW9GxYF+2mH8aXcuJjf225WtzX5a8OoleLxmgx +QSSJOgp9LcGb/xWYNoaP7zLk/FGK0u8DnO9JqgzwBXRxdLfGG0jvjvVP3B+ sSGUlPRg6/eGjo6fkIrvj7DOYgDa9ZyGHf4PEPn6FSKe3cGh9baYvHgbLr3M IFpcjMiD86HXtC0GzfPGw5gI3PJZjYUup/Euv1ZhQqrx9ZYHhusPgtWKg7gT EoGXEc9w/fBGTOzXC73GrYB/eBJ1Lk1+IV2jlQHIEfx9C2QG74Qek+Jr0ASd +xqgm2ZnDLfdicsPnyEyMgovn97GUY9VmG6/Hdei01FVm4NAz5nQbaSL8c7H 8DgyFFcPbYLNOn98rpD1ps2qo+DFHnSrR5pV0kDHEVaYOm0SxthtxDHiJD6l FjPgKFrD3YvS19g8sSv1mWpdh2HKzMkwtSKg5H0ewTFJKBHzWUrCKqrjcWDB QBrT1+3SA4adO0Cn60SsO3wFT4gool5G4Om1A3BasATOu24gvqQaVQm3scS4 E1p1sILnzeeICvLHaqd12BUQRwmAYOYV33BingGUVHpg6cWPtI8FvzfzDP4x cRKZeWMy1DYkmoimXGasgpIm33ODIZFw67Hb8TJXIuovXCtH7Ak7tCSY3Gvu WSQRHBMiBtkPnJjWD3WJ2/Z8mkFxkFdAaV4oVvdrRqQxDLueZQu9l2Tilssk NFVtBKMVV5FKQEqJg0VJdRmSIi9itY0jXHbugMMAAijEp/TxeMG6a1khnnuu xQqv60iogTL3WG3qU6wZ1g71e9jhclyJQn69FsWJz7BzpiEaNmiPsesv4UtJ LW//MgJwR1fNwZIjkQxNVP6r/RPO9+0arDs1gqjZNJz/VDqeH1NtAo5O74E6 dXRhd/YDnS1efNLsUKwf3I54hsHYxYnoL/aP3CdY1KElGrdZikeZtb34r4vC 4WrhgMOBCcwbOvBfV76Fm4kO6qla4uzH0t/Yf2Pu64JXJzGuoQgaRo64myBm Z6U5pIWv4WXRHUr1u2LeiRiFVREZxJXZiL7pg8XWq+CxawOsWjFm2AeLAlLZ W4iuX3Begi3X31KKrqSgVEWRxzG+U1O0tyQsLrdW7vslVUiNuIiFA9tCvUV/ OB59gfwa8L1UlLP/J25MaqhJeYCl2jRTS/9qj9yI4FQx22hDtrNVBfhw7zjW L12E1S6OGNORuXUEPB9nsZ0lTufcloVY+c9nSqJY4ZIIP+sxlnQkUyGqg45j DiA2NwNvHvphteVYDDebh61+j/E1t3K1AG95uLNmEpozPalvgYNPvyLpcwj8 Ni/CaMPRmLPxGB7FptNwhg0YmHxFJSL32KJzHRE3gk6YfyySSbQLFgBpDcqz P+AfdycsWL0ea2yMoUa6pDXsEL7T/kuR9sQbS9d44lGimKeA2WG+GE5grMng NQhKqf0DGjwS1EOGivxkvP+SgXKe6rEhV/qz/RjcRIT6/ZYg4EeNSNDygtfY PlmbtNkZC07H0rEZcc3VpAViqUF9KDUzwebg7DZCczV47TMb2sotMe1IFCpk PD6wuPLy0CxCaVXRaeohfKqRZ1rKYk9gZGsmWh2C/RF5LJ9uiqofwdg8pitU GempaMF45wv5kmHqLdgR8Pd/mSsHAFkFYgh0aRHJjl79gISaEPFuvjbjBbaM 7UDE1BSDHP3xtVwmYlMXBAgqc/H5UyKyS8SEb8sFlht1EcusHHHsZdGf0KIZ P0JZHm6vH4sm5N8GawNoik0QJmku9f5m6KoRQfdaiSc5Ek6YbFgUecgeOmQK Na0P41MZT6x/DxlIhb91TzRsOhieYXkCZDCU4ZgD5vjcR0a1HDJQjMC1I9FC rQucbyb8ETJIdyoTcWppX0KltWDu8QSFMnnqlMnPfL26Aq3JjDTuvAQPMnkJ s+u/GRF+mNmlCavvTYzhcCtZiRNyQeQhTLQ7jtc5NXLIqE3DRcdBROX1sOoi G+bwE1YQew5TOjM60Q2zD4ahSMID6a8lzYMGqr7iuLU+Z3I6sNr2gsgXcqJS i5TnB2HensMVtQnY94QDC3It4fEx2NkcwZcaHiyI0clScGFeT3p/0+5OeMTf XpGBsPPbMLp3P/Qf64jjBBVKgVXcq5KubYRxQxEdwaqLnzg1rUFGzA1smDES XbqOhpPPLXwplIj4/EhO8F5CfpXZrmktxM3vlVx4SbpelYCLq8agKbfWrDP6 BLuSzPwRf4a3owt2X3hHIz/B/ZZ9wSFbfSiL2mLq/hd02Tb/X8CFLB+BHlOh N2AxbsRXCjZc+Q2n7HrSdP34zY+ogck1vAafzq6g9KqZ2XaEEw03VLD96APW xPaVoD1mHz5WQtSWe1VR+H70b9sAbRwvMPlvPh9WnXQPC9urEi44FNuCstUV 3hK9bwbaMAuL9exwM75SxEaQTVD02g+TWjC2WR89515BhjCudFyYswBbDj5D kZSfungcXdid3NsFdgfeMnRDrscyZAbuxtDmpKm6erAmyqewOJoV5IFBPYZh 1T9xjPXL8aIQoSS6mLb0EGKKwWv47/GCROUfzmOybkMyWaNwMDJ7Aj/EirfY adqK3KGDmSdZdsELUpwWhOUmJJBUNsD6699oc3+ECjZLGHtsDuo3bQeLU+8o IenF2WQ56d2kGb4ITa8SdRDuJ2F+wDpot2yKfsT8KwRW/nvEYJYxAr0whCi7 Ookqb36vliOGLBUX5xtQhe7Qdw/e14BT6Ca0ax8vrkEPxkMqdYH13mg5vhdH w3OULY48TxHwXZoaiMWmhCYQpTsQmqMqTFg5ovbORdu6jM2MgEdQMoMkvLP8 DzHr80/JShF6cBal7CJRV8zyjGHEyTbKOKYyhPvaU8AWiQywgoiOZ0lVSU+x x9YWvjFFvQQRVCHq8GzUY1prOQAbgrNFvM8o+RYI16n9oNXGELY77yCR4PtK Xj8+XoBl7wZ0yabXhuvIrFUgVNUpeLTPHr3btEFvEuTe/pAvEhJE6YGwNW3N 4oT2SjxMqeLsgHSdMPG1xm3A1Jq16L4Wz3N5pRfj3aHVcHA9jbhymTyNIMWP W9tg1IDQROM1pCnxv4IISRJOzewCtRYm2B6a302htazQAxjalHSs7TjsepEv 4jVbTPjcYmPiHUgks/bGF6q9/bhr0qxgOPRoTGamPayOvaNaz0MEikLhYNga qn03IaJQqs+/qpYJLZj6iAbou/AcUmr4VWGmGxm4ZD0AGpSwzcLFj6UCTkBM MHF8eyq71oYuCBXGJ8W3c8swy+McPpdw32SHY+toRuW6w/4gxQlB7QgYHrYz olOupjsVp6LyGE2VZ+dleH/cFjrKDTDK6zldyjXgZ6jwHY6vXQDng0+RzyvV /0SKpkJTBbizyRLNGP8zeT/elUgFmTI29ObEXDJQJbQYtg1RxTJBpgyxiD62 FB1ImKdushoPU2tEPOX+D7Tg862lMYdh2LAZ9BffYHomj0VeYseQ5bgYlc2M kScWsh83YaHdHC3NDyG+Fr+BCT7elxVEw30SCY3IxNocikCZTGG+SqOwpUdT tnyityuiSsHNV2PiCu7CsYsanechdv5IquXnKw+Pd87C3FNRTB0M/VMScwpW eozJTmIgQsSvEkmzArGovyZtv8XgLQjLqpH7yF+IV0AJohOpjz3Rl5L4jpi6 LYxBRLZZdVR/uoI5verTZRZTl+vI4LPMxL2c9VqEqUffinpzr8l+uhs9GLel 2gpjdoRRPs1DBIo/w3/ZSNKFZhi45CheZ4tFKwTRvMKGMWweQnWIK8JJsK4s dK8SX+5sx3BNdTQxmIEDz2iCV0hGiRNwiFgBRSWtpbgVXy5IhHk0fLcV1MnI VDRHYF9UoYjnapWxhCAt24mArxUifiVKkhOKDaMZCepi4enXDKdiy4v+BhPJ ODvHAA1aD4VneIEAEzXpuLHBlDysgk7mnoipgFylZTm4sWYc5TmtbY7iE6Hq fYVei/HlogNakmvqrWbiAnE17QS1IzY/dwCa15uB83FlAkwwUxi8BwPUGDud jEOxpQowEY8j4/qx5XvqpvB6mqEgoGI885rEyr39aOx/VcIJSB21uR/x9MN3 5HMuoSb9CdYOrEfu1caMrSHU2OXuSYLE61vRn0FE8qzB0nNIqPwJJz6eWojO 6s0wfl8ozdP05F5T/OYSHKc64fATlsvU/IJN8CBRnXQbdkaNaSXZ3KNs7DWR k0xl/DVMJ8yoToNeWH4rRcDc/JdwncQAYWOM3niHWZH6Gz5IC0Kxpms76Bju wttqOT4QL3/DYT72P/r+U66i9hP2j+wKzTbOCMqR/AUfGJcb6m2Ltowdmm3F s+xa+UTlBMOxbTOWgndbgICkWgHPZaWfcMCuO73WfNQqPMzg/Z0URSkxePIl G7UcPuS+OIgJ7ZiJMIXHrR8/4Tl5/dNtVtBUZcvxJh96yZg6X6vxK/n24K5V Jd6Hc2c1mrwaZn+RLmzxEIGSWGyZxsYjDZjigxweI6qQ+v0tgt9lCxAhTn0E Bx2mnbroOeEog6lCPMTUv1xaNZrEPGroPs0LoUkVouWC5Eg85DyWjQzUJuNU TIFCWFaDxIdeMGutClWdcdge8JmxXXm6rxpRXrOhS5FpDA6GZnG1FurIDHJH B4ZUqbbDpGNvIOBuZSqevfyIxPxqkXyhuhhBHjNJ7E0AduIuRBVK/wt4qEq4 i0U6qtRVTHIPU0gb14O4KAmR9y/jgPsKTJ08CROmLsN237O4G/4BmaW1fIoi /S6hNMyyZuPJOP26UACQmq84ZN6RJn7aTvJjEu4KACLB53MO0Gk2DO6P0vjZ lWSGYtMQQluU2mGG1wtq3HUF6Wbjmu1AVvIqbTHjzDuGe8p1Soa0xx7oyrgP tU6YduK9XOWIAeZFY/vk1jSaGzjvNBLEkHusH/dgN6gly/A0Z8H/TRFHquui NOUdAi/4YOWCWZg0azHcDl3Gs3dp1KXIXy1G9qcQnN+9FtMsZ8PR/RRCvhXy BQJ/gh26inNyI6Y4+CKSmcSv/kLNDQ87cqOtwYcTy6DPZNU1p+Pkq0IOktSp imfEheHmqf1Yu3QWJkyYCvsVO3Di2iPExGfTdoQQsSYBp2z0KEIa2l1CBjGv PopSfOCFEY3IOzRMsfUWJfh/gSpIM3F12QhodlmMu2kSeY4kHw/dZsPlBo2U 5TmSMrzwmgatVpPh97bkN1DFg23xy+OY2KEOGeQQeNynPleoUEJ5DNz7shOn 3G4o3AkDFnyKrAjPvOcQIyYjaTceO5/nCtcq3p3HjF5qFGBsvcOpmvHXCl/s hVFrNdpmM2M3al2KIfF/zkBzbgaqchMQ/eQOLpw+CPcV9pg20x5rdnjj9OXb eB7zDbmVMmEmZeVfcdS+B0uLR21AcI5Mod/5uLOOy382nkEBRpi56u84Pbcb fU7T0AkPMqTCijhTHHJmyUCoELvtPnMfIjNqRNPpNQKr4kIkvQ3D3Sun4eO5 CYtmTIPNClccPHkONx+/xJcMmtpvJCiBFN8vr4JBQzZeW3H1y89RezW+33FF fyIFlVbj4PU4kbnMw1ze870waadChTv7ZAwFFH5w4uQ7mNNGla2Vsb7I5A0E r5r33BujWoto8Oj9PJNGz7n/a1jrKkwVYS/X11CQVGo/Bp4RhZzDJTAqyUf0 JTdMMjTCwHELsHWvL/Z7e2Of9wF4e6zDzDED0WvwZKw/+gDf8qoFH57+EHP6 M9rWFJaHwpn1Yc5uVFEZdw4jtFQpcDGFYYyWtud6WPXhDMx0+2HBaRrUCGRJ kolrm0aR5pTQ3mIHIgoUsa4GMb420GFcArlXd+lVZMnAi7GGANbitsylhhhg +w8Vo6AH1ck4t4otZW8+Zh2eZPHiZ9YGGJJqwm2h0IU9IZfVPMUmalKbjZBT LhhjoI/+kxZhy25v+B46guPHfbFp0WzYrt6L+5/ylHnMqSRBs88SGOt1xxCr ZXDbfxi+nhswf/Jc7Lr3jaYY5bWU/xMDWZggtKMyDseWzceaYyHIeH8Jw5or K+KfAH9V8ThoP4DWHbSb6YPYYt6gNFD+IxQ+SyzQp8cIzCaKve+AL7z3+8DX Zz+2LZuJAf2MYDZ/G/4JS2CmTU5xqxBzyh71mbL/nvNxKaFamFGmrDXAdRIl 9E2GrcH9VIlQpvo7GCTdjbuwCt10zXHodak+Pz6Gfry+g13L5mLuki049zwU lzZMx7qrtJpVm96mjOxgLxi2H4zND1N/lwUSotSiaLhYdKTkZfDGAGSKFVUn A1cWG7JzXFcHEw7G/ky9CMAHEoCnmzq6Yb7PK4ajCNqTHYoV47Wpz+614jyS q+XGi5ynWNyzFYu2TUdgd1iuHBmrvv+PyWF72xCV6a9x3m0BTAy6Qle7E/SH W2LuvHmYZ2+P+bYzMc5YHzodu6GnsSVWeN/A6x/FImFRnaD4Ux9rOpo6HSdi b0SBXJvJUL5f3gAjDTbxu+LCB7k2N6Kye395G8wHmcB48FjMW7EJHtu3w8PD Ax47dmLnjs1wsDLDIOMBGGA6C25X6eMsCa1LW08NPgybMYNgMskOa7dsg5ub G9y3e5DJIo2Qezw8tmP7djds2eCEmUNNYDLUGh5XPtCATYg3mezWodl0BErt TOGq4Ickmc+xbnR7SmZHrLyE7+UQTeG7X5uPd7d9McfMCN06dkCbnoNhPmMu 7OYTyS20h7X5YPTU00VXg/6YtNgDl0O/oUQCPm9f89EfY5hafaJFfTffRb5U ASIIgQzZMwuNSJca9rDHhXcFHPtvCHFGJHwcJsDE2Bijpy/Auq3u2LFjBxnq Duzy3IGtqxZi8mATDCDXxy70RVhaFRfdk0GVxuPK5hkYOHA0Zjish5u7GxGZ uwqVlhoV/naPrVg5zwojBppgrP0BRKRXCb3KeASb/lpU9bSXnEeqAkNDzRcc pQpPHGa/1QjOlQl+Q5YXCmez9tSnjNwRiHzJf+U3JOm44mxE39TWxAWhBXza V43GBf9ssIBWoyboMckN9z5mobRGpsRpjLi8EKmfQnF6my0GdGxNHp8N7wef 6MqtgCqyJByfbkhRpd6YvXhTIhVCEgY+3p+wY6OihuY48bZYpLgU7TmqD8Z7 BTHt6Ss88vHCWugzxt5qArye5QhxXMmrIxhM61JFaKTPFIFL5fIk5npyblcq 6/ZD1uNZnqJ2EIU9uBCatE1zeD7NVjC5KkR6zeEWWuug27pryBZz6MGkwbPx yMsGbeqroEEvB1z7mItqLhyU1pQhJyEa133XYOLExdh3+xOXgS5H9AknGFBO ZY49odySTzVx0me3YPoER1z6VPZHT9Kbm4GqTzewynoDfPZshlELtV+y6Mov 1zG/nzq51hLTdj1h9vtyxKARcl6ew5w+7VC/wQA4Hg5Gcn65vJhRVoOSnGRE 3TuOZZOM0LpNV4xeeQJR6ZW8O8mLPAozZvLqGcD2NF2FEiZXkhOOreO0KOke QrT7hwS/cydsCYgySghLndvPGM4P07klN3U6+sxwP8w0aMGu1RLyoNGyFVpr jcCeZ2wNhDb3vCQjCKuMe8P63Lu/OhQS1QasMqekU9lwDR6lVis4FDE+XXaG Ft1u1AC9pp1CkiIXeYQVAxtT8xvs4I8ksYIqSZNx0n4o7SnT7MOUarkqydJw frYRmzau14pfMOG1t/LrTcw3/NU0MX2uxY/nflhg1AYaanXRdrQjjgaEIC45 EwUlZaisLEdxQQ5S40nMf+0IVk03RdvGzdG6uzk2ngtFegVfmcU6kRQSsw+h CyP6WHgoVu5EyOg+X8bk3o2onPtvCkB2rUK6gdnuc38v5k4Ygm5aGlDX0EB9 NXZBUVlFFaqqSiImkmNKERv2MMe645E00mjAaWt25Fkst7HA2HGjMEBbE00a 1YeqijJ5VoU8p0I+60JFWRX1GjRB6z7DMHHCeIw1nwvXM5F0w4KywhAygvfC kJGkki6m7YlSHEI64dWjmTyMSncsOPoSReTbyZwkJXlv4Ld8Ajo2rk9Y8kAs 2HUeIR8SkZFbiLLKSlSUFiEnLQnvw+7h+DZ7DNJphaYtOmGMoy+exhdRdZOv f74msXsnOvz6Q3YhpkQBb0rfY++0LlSMeuN3IiJPxulXQ0hz3uDstrkY2ksX LYgINBqoQ4WZjTrKRISq3KoREwxpofeUnXj6vUQQISF+uL/PARYTJ2L0wN7o 2LwJNOqSZ1SUiXgYEaqRNtTRiBir4cgJmGxhDktbLwQnlsp19AdOTutLEVml 61o8za6Vd5vMV+j+qbQLSu1HwfNlkUhuMpm4vHgEdaIqg7YiJFv8X7id2swg OHdmAiMNGM65TKs55UvwRQg/MBdtSMsth6xDUGqt3IqkFYh/fARTemuhbsOe mL/vAVIrZXKXUo3oPdZor8QkRaxw5m2R3N0QV3RiigE1zvq9tjDLPSLFMoag HVYwWnkRyWLw6Zmi12dhrcPsIeuAuZ6K6RnGpcRhrzmbO1dqNAhuz7J+kuNz n5nMflHC4sZjT1SxcC398V6MofvwOsPeO4p6S/5a1uOdGNKmDm1TfcZhfKpQ SNIREEgM2IrezZhne2Lt7R8c7hDLrC3Dx7sHMG/EAuy7/w1l6SFYP1yLtlPX 3AVPc/mlP2ZLSSJOr5+HcatuMcswwtbBP7gZWg0csAPmhh2J9Ej3VLUEN9NY MMpafLm4Dv0YySsPxpYbCUxAxPPa2uRArBzYgfSoPWwORihkINQgzv+I8xut 0Ly+BrRGLMPF6CwmHyhkLglp3GTckKrKkHmX6PZX/lrOi0PspsY6XWDrHU2z VH/0MkzVcQw8F42D+aHXTAe7cc6Dyd3c2z4V/OZe+tnMGv98pvtmOSfD7EVK xvk14zHE7TEzCH6T4i/9DAtV3y6sRt8GTB8Hw/NRCvNSXoeqSVxrr8dWizTr ZY+rSQq2WPEVB5awxKyh2ToEpvO5D5aWRO2dh85U2KOx/ylNH8gv1+DVwdlo RdPNjdFz6xNGzeQOrhZfSRzxy6lisyFpwQcxqVMT6uQGOPrhQ2Et/7SkKhPh /tswpnMjqKhpYvA8H7xIruCTtZXf78Kxdz3qOQcv8cePWgVWWxqLjebdKLwo D3UnqCgRvK5MIkZ1VQVK89PxJeo+Dq6bAYPmKqw/UUWTQUvhH/aNuLtyVFbX KgAxeVRai5rqKlSWl6IwKxHRdw9j3iBtdhbrUmNZdCAISQXFKCcYX0n+VtWw TfDGVZ38EM7d1Gh9h4n1aSRKFHqNHNzfbEG5Qh09a5x5ky+y5F4tzX+DA7aD aUCtqj8Lx8JTGavgd3swHCr7/T24TTMknlIVDTrPwJ47n+jWfflGzQLcXz6S TfM2nA7/D/IdiQVRRzGuGTG4Ou1htfs5syuW6xbBSuaoCHE1cVnFyE76iKf/ 7If9CD2o8+6jng4mbruOT9mFKCmvQq1EJncjZPAS8mxVVSXdUJr6JRIXt1lD u0EdzoPXpa6rXf+VuP4uA4Wl5eReIuHKaohJO3LqTOB2/2y0oXA7FHteKFJn JvDeDj2mL6q6sPSl9iZP7krw8YQDujMZnzpm8A3J+i/cSX7YfvRiyimUW2M0 AdVayEtjC5l9S+2ZhGoPLL7whY/g86PPYYYBsyysiTHLLyK+Qg4rucEe6K2l RHNGDlc/KxS2sGHbnF7scq+WnT9dkJG7EQk+XHBGR8O1eJBWw7sRZIfBZVJb MJjSZ/FJZreRAtskYfcDV/RoxLLN/usfoOTn9EV60B70p2soXWF9IJYZHD8B YgKry4c1pTmz/g7nfsry18RdwPhejWhHNWYfxddKub7LiiKIg2DrFOr12ozw Qp67MHxUjKQnflg8fg4WL5oO47qsQqlbbsTzHAh+hGHmT49jyVQn/JMs+ZMf EZLtklRcXzuWTVErE+hgfYhQ6yPLwc0tFuySst5MHHtTIs+LSHJwa+tEujhb b5QrgQ7+gA1m908a7npMRSNC2Ot3soJPUDLTrDBhVYk4s6wvG+GOWo+nOTL5 ZDLB2MklbPK5pSlcHqVzhOf3/kOcgtOrp6C75Un8kMr9hywPd90mM9gm+I/2 s47jawW7N1JbEBthGnvmoePQXXhd/jv/wdd9lr/xw7judWlV3JSDYbSuQdAc QpNCvWeiAdP3Rt2x8NyXn9eHSvHC257WU4pakjjzWZbcR6iikKnz1Vai6j/7 aBRN4fCak3Z/E7QbsenWPu5P6TWB9pBJCthq+dMk8RNYk/gAy03asbSj/yo8 +FElrCsxppEZRQI8Yy0KLV3M1uDGh3xqWgIUln+Bz4Le9PnGI1fjYZoCoyY8 /sHKcTS/LWowHWdjC+V5GDLUj7d3E5fUgKaWLPeHMsurzfipYUpXjy5jkEiI T0QGK3E/TSKoPOtxv+EYt0rR0tQZ98jr+WHXxN+EjSFraH2WXsAPYkyTBLXO IeRxGivpur2w2I9uFlXnLxfFwd9lIiXOoqamWHkyDHm14AuUE66sgC6T0VPq jKXXvgpyrs3CTRczlq12nQW/2BIh8hBnv8ZxZzPaonp3G/yTIOWWZZgIIQou vbXlUYRSO4x0D6OIyMu56MU+9NJSpon9sYdeUh7Hy5mpiFnSVonOvfHsC0iT ylcsSl4exNCOzEpHK7rSwbAtehbE/wqzhY2jTPXgKTvqO0UtemElsT15CJCP R65jWPLTax6uJNSKBHkSTUp6uBMmtB6zHSZtfYicWsHcZYk3MKEbW+7TbXUA 3SXKXysK84Zhe3Y5ZoR3KB2ANqclGY+2o1P74dgYmCosvjMbXY4vG0bbqmPi iFuJNXJtqU7CBQdTan4anebhUny1IMTKhNtw1FGmdGLg7NNIkCjkCCq/4eBi EzpB9YwcEJCgwPmS78JygCY1EMOtd2hq76eo96E7+tJhi9BmyUWk1nKkjlXy rwHb0KexPAhXHbMGD9JpxYKc/hdEY/tyW9icjGNSPfwZM7+CbT7NU5MWhFVG TIFEE/Tf9UKB9jOZ+XfYacMWSDQcvw7BmTIBs6s/X8Wsno1oCmj8riAUSiGf xNLPOLHImLKVZgZzcDqmgIGCnkJ3SvDc14ZN+eiMhVd4gRyza1JxaR274KPW bxbOfq7+K2ajEA88ZqGFvh2uJUvknF+KrMgzmNOtqSCzxh2n4ODzVLqgJeyr J7J9d9YZrXUtcCi25C+YjdwQLB6mwy5I2RxjPICgNDXMVoERbcHQrM4TduNV mQLqPtiJUdTXasN2X7hCoQ/5zArC/MFt2YmfdQRfq/jnVOgCrk5Twm+UWmP2 xc/8q2RkZjzn6P9iZsiDtQTEXSZQb8o4AMsD4Qxg8viSHXUWs7qzzKGt6Rrc jS9ToKvFeOxpzaJZ8/Hwepr1E+VLurYeBvTYlY5wuEx1TPEQiq+33DGwWXMM 2XqXprgUMfrDyZXoroDRqhM8EJHPqq9gdbJiPPW2YUGjzUi4B2fLXRNzoMHG iWjGcKWm45mKXK5Mie1aTvRxjGulRBO5WiPX4XGWTPAg5fHwdxzKHaPUD44n XzMmwHPFyg9nMYpW9SvDYO09WpyuOOi8yGMwp6t4LWHmcoc5CIc/2AFF73Fg uiFa6k3A4Y9VzfmnKl/Dta8OzRBQmG7YGVPOxAmiynoMW322JknLyo/ulOP1 RFbxBUdns4kHrSErEZQtXxtARiBsjNuwerLwLH5U/3cInYXrDgNoJ9V1mf1T VQJCS3JfYGOvxlQkXYZ54k0l71+YfubiISFyDZisVr0+cLwQx6S+BeMui8J6 Y23aySZD9uJtJV8fwoYF748RHGKy43X0sf7Wd8EMK14dQa+WrdFnxW0mqSdf EyhC0HZrlsNpTILP82xhma4mIxSbKM9VR3+nS3SLIG9T5Z+uwFqLFb/m6LV4 nMkHNmzdd9je+WhPPag2Rqy+hIRygTxJvlzCeAMmWWsAl4B46lzlOE3iudUT 2OUEost9PB4ycZtAVpnK4k3jWA5MSzWscSyG2wTElpDcc1+PWTZnkSr7V/DM hPNJd7ZCv307DPAMo8jFw3NV/G0spdG4CgYsOIn4Gj4uYrME7487oyfNEvTC hkufmVniDb3s8w3Y9W5GGY+OmSueZ1Zzs8RmEL5d3YRulMj3hcMpauj8JErz o7DDjC1T6TRuKyIK8WeEZlemY08sQF0NfSw8/5UOopvwtmokhV3EpsW2sHVw w7kXSUxHFWWTfn8LWmtow3x3JK2/6CKI89cQXfsNPpP70dVbUZe1CEqvEVQm 59VpTNElHVTTxdwj0TQ/p7h/I/HGNhjVY7fJ9Fvuj8QqOeWWpcBv1gA2BG/c DwtP0MS1KteZjIcb0YZJBLWcSkypTMj8kzly6K3+0xwJLvTbDVj3bcxqisoY +D7PUsjki5Fw2xWDmqjR3FiPSbsRmStWV+hryp2dGElzjXpYdIDmGoWlWEKT LHo2o/bbY0MAcqXyYyAYjH++azq6DVqFh0nVcoxmI4rmChjdbJ4PPrIF7fJ4 jLjVlAe7MJDJCpCpmLv7JcO0eJgue3sK4zvWpzZpuOEucqR8fa4aPYvozubR 7HiJcxi1+CrS+f0WaoRov4THuI50+0H9tmOw4+53ZrrlBP41thmyOxeaD/Bg DvtQSNd+x+mlRpR2Neq7CP98qxbGW51wCwuHDcYk1xAm1mnGdybnKRb0bAN+ j6ioZVcsup0sYLSMgOZUA6pEDXSc8Chd/FMCOPzIXFYTtEdjR1i+HKNrPmDX 2B60Jyq9tuBFXu1/g9FVb+FlwhYptNJfT9dveYwuf3sGI5jTm8jU9B59ktn2 KcQQkvSHsO/FbqerazAfl7+VKYBwMs5Y6NMlfPW2i3E3uUbhGgEox1FoQU1/ Ak5E5QsAXfX2BHrWU4aazhLilSTyQncJPp1agX5Ujn2w9txHxn55gyv6cgvL R+mR4bfHjD0hlLDLwbQQIV4z0VGjMevyO9DCNt73ZgbtwbiWLB9W1uyBSS6X 8DFPIi9FqMWHE4ugy+xFH03YVp5YbsqSL9ht2Y+Lk5TRb+djZgcbbz0FL0/A UkuFm3sTbP7nG4PyismPlNv7sXwOiVKzZX+C6X689Yhz8OrRDdx9nyOszWY9 94U5pXytMGXDQyYfrwDP2bi2cgKXzxuGnbdp6ljuYysQcWwRtFVYCjfa7T6y awQIzn1xCBYU2Ntg6sZAyrX4a+Vfr8Nek003DZp5hpKLv8IzYcDnlrJoMeME XfS0VBh0ZpAbdXhag9wQW/53/GV8pMNwln+qT2bYv0J4V4WEIB9M7EZ60XQw XG8nMBGHoBGlH3Fy0RA0U2tA9bPuYBLjJFezGFuXdjTGZy701FmbbdDFDE5H Q5AlUaxQycNNx4EkuNCA8co7dI2Th5Cs5wcw4bczQjjqqeXoxbUtamGPq59L hct05+gENKLbuprDdM0tplCJV/NqAvML6TKGKvo5nUWCYqVRTRx2j+lCiZaq kSsiCyRC+lJW+BJbxpnBYmcQU9TSlB+oNBvXt1mgDg9OpLGeqy4guUohn5Jy H050d0s9DLQ7TT2LgIfi7zgwpQ+bx+nojEcp1QIK12Y+xZpeTbl2O2OaWxiD izys5IYfw1htdXq5qf5i/BNXrLDroRyPlg1kdy61tMKZD2UixXWHz4Q1GDAq q2KApSfovjeBKZP/vD/ngmGD5+PEp1IehSXxVzC6SzMBhVXbD4F7WL48qKjm joUhIXrD/nD7KR6RIuPpXgxkeKiyHmbuj2bchTwFnY0btiY0lKnTeBYuxZX+ F0AsS7kHG20Nyvk6Dj+Ez5KfF93THrmhVX12n0bv0ScQz4+cteWX+2awB5zW aYQhjteZw+EMhH4W4uHK4TQ4qdN4BLwj8uVwLP6MvZN6UydUR3MpbidUCnBc /uYMhnY2hL7JcDjcSuKTGukPd8GsEetfrRilkvEa0xCVqRE44jwJ3Tv0xpgl +3D/TSrKa2pQlvMZ9w6uwMwlG3H0lCes2irTYyg2P0gT8fVnkpRHWDiCZX3a E+djzfr1cFrgAr/70UgpqECtuBjxz4/AUlcTzXvOw/k3+QygCYCcG4pFZh25 eVZCV5dbDCnhYUGWG4GNFh24yy3oQZPEHJQ5dBV/u47FyxZgy7N80Z/Q2EwQ eTXizq9BJ9pcDyz0oZWhgi1XfoKnbX/ubQR8byXLI1k1mnZ3GsSuryprWeJI eA6TveAnrOzzVSygeTLC6OxO4Gu1HHyznu3HACUWmMcvf0SrE/4KvuV4dWEr urTtDIMpi3D8XZkC+EqQErQffdrro8foydj2PO/P4MsOPXr3LOgqsQvJG25/ Zzqvzk0jYzTZr67BZcYg6OoMga3HJbxMyEO1pAp530JwZKMd5mzcC7/dzujL IGWnRbgRX8EvSxWHe6N/B1Wa+jK0Xw0XZ2c4OXvieuQ35JXXQFyejsgLawiI NoPBxJ2IyK5SII41ZFLW/nZSiL1eWT2ehSwaOjnhdmIln9QQp93HQsJoKSI2 MsGam/RMQwGZqj5j/1x2GUBpKFPfqkjXqhC1exqb1FCagX++Vgj4y8gj+d4W DOo7G8df5wv4W52Mk6uGyckhmcVJHlQnOcCrRw+ZeX/vEvwO+8B9xVToNWHv rTfYEQFJNfK8hRjvDs9DKzohvbH1UaoAxUVRR2BcT4l7RXdY737N8BBBJJJc 3HedxAWbGjCwP4kvpTIVvgNMbiIuFFePH4bvbhdM7MsSRWZtcM4FIVVU9S0A 9j3q0sTIoCX+SKpRiAXK3mDvnNEYudgfKWLwC9sVr4/BUEdDGH7DztNwLq6S XwUujtzPuUmCZvvYE+N4YYsznpHwvwH1SsPsr9PSDzkkVyDUzRJtaLxjBLfA 1P8Ckqve+mGgphr1jV0nn2MOtP8JkuNvrkVDdZb/6Zlux6tSCMvYX/+BFVPf zngc7UnwJjRXjseViNg7DS0Zt1LfAMtvJ8nxuCAMy4azKKaix2TdxBweq6Lk 9XlMHrsJG4kFDZlznqbW+SRGQRThm53qsJnf1ZeRUs1TddIjcS5i75+Dx4a1 WL18ESzNpsDGfhVcdx/FnU+FtD/x4Q9w/W44korEwgIx8fCH5g+ipKL+yG0I jk/Cm8ArOLp/O1bPt8Ykswmwnr8UK7cdQ+BHmn6V5z9SH2HW0LbC9DaffpxB MYGjSVJxZtUo4bLmrL14UwQhiVGVgGv+Z+D3lG6w1xHk9ic8JiEn4W2sbfeH 82m66iroeXEsNs004F6oj9XnPsipAxsm3Ns6mV0cImrVd9kFJFUKeFyT+hir hrBRdHsrD0Tk8fuluWKIa+vQij6qg8nbKNf5IySz3Q07542plmuxyIEA4naa QLUQLouRGHgMluM3YNXq+RjndIdh4Hp/A2YZPp9fhu60vrs1Zp6kxwbwaiAt TsITfx9sWrsazovnYfyoGVjs7IIdR/5BZDa5sTYXMY8CEPDsI/KqZWq89uQE Y0G/1tQZ6S65hPi0z3h62Q/eXpuxdKolJppPwdyFztjkfR2xmVVyGl7yxwmp iIPH3H5y+GsyBxffF8trSAgr856DFhxV1jJeg6D0WjlLrEHCo/0w79EVvWZ5 IyqXLwRRQU1WDE7vdYf73tuIL67lj6CgZwDbj0NvG7p+3oSH4ZKP2GvbQwGG 22Geb5hCpVY9mjN+c/MYPFycYW8zBWYjR2JwLx20MLWF37sy/lD+mrRgbLU2 Rff+NvCLzjHn30A8bPzNdWisVod7gw6sNj2jb+CHW/3pOub04Thq/T5YdTlO fg6YOgfDT3HKYz2WO8zDxLFmGDHYCF26dIH5gSi6cUTOy3Pw9OhiGOn3w5y9 gfT8GflGSBlyg31g1t8CawMSFU4SV0N2kDt6tFaRm2T3BbiTLBEerfiGM07j 0VXXFE4X2f06gveTluPL8zNw2+qJy0++KxRRsbH725MLoMsvTJynh0Bn/58x OT9kNzoxqxVEeL3WP6Ji5AOL1IeuaFuf0xijpbibKpPjNZn/0zY9We+u1AIj lgUgC0KlHiMaZvN2O0bhVFvC8ux7OSYTZj7NmPV8dc33I7ZEJmByUfQZWFgd wu27R7Fg9Byc/FQhYHIN4ZRzjdllEC27Q4grUahRrC5GRkIcosKi8Pr9d+SU STi8bkDNO9zTBjpMV1XNcSiCHm6LqsIMfHsXg0jyzIeETOawLHlslP4YNsPa C9On0WMjQvJqFYPimMNL2WIaGrEtwrWv5fKssRTiigpUVIj/HeCq0gPNb7hP ZFvTGo3NQZkKdf9x8JxnxHVGCzP2hzJ5TF6XcoL3w6wdd5BQsynweyX3jbL8 GHhM06bX1EY5406KTAFqKxHlt4DNumoYwOYshZR/AbUhJ/dgptNl3D25HjNm bsOLgp+gNv7eQUyecwr3r3pi9vilCEiT/gZq+dM3s4i19GP23pFbTLyC6Uk0 /NSKS3OQ9PktIl5E48O3dHoYo3xqU3F2em+KiqqdVuEZPR9NipKsJHyMfomI yFh8S6M/QCKPwiU5v5E0mfzit9g8y0AOX3WGYffjVGrZ/Gww50ssMWjO3dMG Zq5BjDMRfktEWoHcH0lIySphtqILvxIjk4Lbqy5svC9+exbTjYbSc6BlfN1N XfKCMGwep5DnJDO28vR7igP1uHtqaypQWlyIgoJ85OVkIyP5O74mpaGgkq/D YbWwoiADP9JyUS6WygG0FnGXnaGuxjffBEPnn0eyTGGniYzZOWvFllAwaZsB q/HgRznPY5niwMrSIhQUFiA/NwdZGalITIjHj7wKeQ29CmTVRUj9kYackmq5 r1KhqZIb66wwYOJmhGRKGwv9Iu72gpPAyum+xF4b8CKf1wVl1DK6kJCOogq+ /kAZUgl/BoC8MiLlrgu608Lc+hjuG0Hn//+Okd+uLkPbBmxMYejxnE4Er50l MccxuCGL8ypdzLE/plSB01bjvb8jPW2EFrEMWo57aRLeNhNurIR2QzZQ6Oka TFc2+GsVsScxVp/N6dSfeQQfy/nKiLp0XpmCi74OF/A5/TV8nGbA0pMtG+GP 75Ik3YW9Kaukdcy24GlWrXDsU1bQLpi2rkN9s92JV9TYhC5XvMGmiT0F3avX dBYuxpXxWc7ckIOY2JZzvHWGwOMuPVdBvkD5B4Cr+I4TDmy8J9Ixx/awPAV1 S8el5WO5faEq6LmGMm6hU/nhWDW2E9epVrA6GM4IS/A1Re/gZdOFvaw/G0ff lspjA2kBHniwhSuipn1hdy1BOJTrdwBXm4WrvmsxbFcESpKuYu4UW2y9l2rB S19WTgLmTTBa/wDZ6cFYP2cmFrJkjPuZht+iXH6oFwa0Z4PHVksvI13Cb9Jl KdjrA7PZXS7qQ5gDr+VRWEUCTjj+SnR16Rl4PvYmCmChi4Vn6cZOuXgJZD9x ncD+RBOzhqA3HSdji+V5iQIEe9mh19CNCM4R7LEq6QGc+zVUaHkwtl2lh36I FinYbPL9rWgnkDEl6E3ywMsieSV6EQmlJuqpC7M30espimUC+ZYmBGDe4LGY 6xPOFFoK4yIjiNo3C9r1+LfXRcf+u/G2Sp67yXzsCgPNOjRe1FkVQM9s/jdW jjT4z2WsnIB7ZLGeICUZPl1cgtbMG1VawPx4rCLDlmQ+wQruV59EjQ0wn/WW vI4WxZzCOHUuMaA5BOvv0FiL19G8517o1Jy1dX2XR8xIBR0tjT6C0V3Y2FbH +QKNNeW2LsHngI3ovfEmsqVleHNsEyxGbMKLEoXjNnPDsWwCZx6mLsxPFgi2 Lv1xBzONW9BrnZwu0AIEOTwl47T1ILZgkcmc1e+LDQ+ShRWNzGdwHstn+DRh 5R3CzBtfbfP5zCJq5+beNEATzLzsK44s5Dxo72k49r5cQQ+rEO29gD0igyF/ I1wRllMr708WriwdzR16KEIzq4OIK5MJZl6ViCPLBrEt683AgZgiBTPPw52t I7g0lAlcgnP+bOaM4aTA38cJww+/B7OX5qytDayXsQe6TBJsvRjPzqyA4c4Q Mg8FCNziAKvpPvgg/qut17w/iyFd2IRMSzt/JEsgTArDubszRw4yZyseiqYW JRRwlX3DkUW/kl9d2s2rKxUSbkRoButuIqtWbm0FUYcwqKGyMGsj195Fngy8 rYszgrF2ginGuT9lcJ+fmYJXpzCzsUhu6+oWOBCStYS7XPjyCEyErBehWn1s cOpjhbDXpPIT9kzvIxTPqHVZins/quScrwbvTy1FH9PFuPChRD6aAtxdPITL lTF/G0KfywoJS2MxR9GvA1v83t7xKs1N/RsLl6Xi3Nye1MK9Ior0eNkyacUD 1mhJT5TUwpQLcXLdFCfizPze4PPZI5feZE4pF1a6819iu6mmALHTXekxb7xu FoZ5ozNd+KyHrvOv0H7yupkV5AlTzmd2cbmGLDFv3vWo8kQemweLQ9T9k6Dq BpymWWH5Dco5hSO08qOw3ILzcF0dceN7hfwQx5ov2DelD8vie6/HE2L9GoKI yxHqagVtDvhFKhoYsPMZLSAWQpnaRBxdOITbzUmsbvYRfJYXQn86zZr5+P30 NDRWlMpITk5GcHAw85cYGvOpjJCQEIjFYuHdNP4oiMXuKbrs2wdY4+yXGkHV 80JI6NyeC5E1puAUiVvkWCDF57PL0ZtLWKi2XoxbCRUCFlQn4/jK4eyjzSfA KzhLjgXiVFxw5KKljkPgFln0Vywo+oDj7rOx6DZ77nXWg60YO3U5LnyskGOB OBO391pjhv97ek/Jq6OYYTUPniEFf8MCyaeLGNqNzXc1H38Qn6rlWIDMR5iv 15jV8OlnmBJ2QUCywjf/Q3iNuAmghwEecUAPFXnxRz1jN0QUsAV6vF7LiqKx faCmYLpNetvj4pdque+vRJz/JgzpORuH3lTwTxWFHoRZHQU8aGcDvzdFfYWX S1HNbt0hBIb5VEZlRSWqxWxxPV/8zPwS1/LO8qy0qMFArLzM/rSRHAYq6ZGe nflwRKkDph1lj20REKTkDXaMNcPI5VdIwMe5ZObRHFyYasQuE1BG2hQ9l96i FQs8glS9OQVDHZZ9tLE6ie+SPyLIZe6NlRmxOL9vJ9zd3ODm7q4Bd3d3Ihd3 Dw9sd10Fq95aUGuoA7MFLti5w6MhvaxCz2dw274bpx98ZtBB/tsSZXi2nTtS R10LVucVcIcM9J3/Uq7+rA7ajNjAnC4g2EHVD5xdxi98NcGoxf8wdWhy3NmP zprK1BPomZ9GkgLu/Li1GSbNWcnobfgP3JGl4arDZKzyj2aPOpVm4MLahZho 64cUya9xp/l8XPxQonB4bAVC3a3Qnj9NLCxHWJnPfuwBozZ88ksVbcwPM6cs y7MnlYjYw22XY27RdsDthAr5T4Rm4PmlI9jh7gpXN072dcnnduzwdIOThSGa qahDb6w9NrvvgMd2d5EGNwHu7IkP8PQLRlIJ90uGyti+fTuvg6JmnLEoKysj Ly/vJ7RiNsm7jtISDO6MgFak04URWGHGGSMR5LxTdDGMT8IURR7EsE4siVOu Nw5HI/NEP6PVME69R8LtVoocrarjcYIr2BZ1NIVrxF/Qqh4hLsHwnD0d+yI5 1S2JwtrxM7DscASD7BO526Ql73F8niX9DS36p+Yr9swhJGfDbRTI0OlvmHUB Q7uzmNXM0BOvKxQwS5aE01O7UX/fqPMyBGZKBcyS5EbA1ezXIiyJOo5xnVUF OFBuaImTr4uEBICsCEE7J7Cbr2muriNm7A2n3kqIMEvj4Lt4Aoxn7MTjmLd4 +4b5bc7Y2FgyktjYN3j7NgYPfJahp8LWEuNluJHI/mZvb16y+R9x0XcznJ0c 4ejo1A5OTk6kdSfmvw6OWLbSA/+EJNFAvxnfuxoy6IV9FcIhLVhsuM+QK2GA Za+OYXRXdeGeRoO24WWhlO98TuhemPafBJezQYghnX0Ty3e+HmLfkMHE3sJ6 4y5yfqemCWPPF4q1ulVv/GCoy+5QbT3YBx/F/wLOlFEY6QvjBqwB6PJyIWjT 2+4CCYYUfwWnDM89LH5CKn5mK7+SQE2HO0q95TCiV+lyd03C7Ie7rbjqFxW6 iPC+/NcwNZE4OQWYSr69BSYtfoYpId1TVoyyimrqLxrz0EW03c1oNvbfS+AT ash/4o1pFvbwjS37JXS1sMOljyUc+hFGFrgdfbXYvVbWfq9prCyMJOcJFvVv I9TxNNK2xY2EGj55SA9tb8sj2yDsCEzhfmmOeMWCcKwfQfN2oo68kPWc8CiV QqyI/xleT0/P/4FGjRo1Qn5+/n+gUQTczFr9Go1IBPnEdQZaq3FuY+oRfK0Q 0EiaeBOTjdjajzp1+2Dj3aRfo5HyKLjfVkSj7zjJbVL4Cxqp8aOWES5QUoiy GqlwbmNe+Hk49HVgfsaamyHi5HwXYZjdHqa8chD3aE0p8wus9BZheqsTH2JN r3l0Awr7R4ofl1wwdvpaXE2s+t+gVn8vxCqiFhN9HpxJf05VqdkguIfmKqBW JNxG/0rUddlTPSd2Ywk2lVkbzPCj2z4VSIwUibc3s+cc0PuU0XbcFjzNkwq/ tFz46iyse7dHS+1O0G7dsgGaN29ObmvZsgVaNG3M1BUKkKU8dj2C2KNNOcgi thAfgLkmdPWDKDJvwh0w34f9+VABpxhieN6JW0BltaO1BQm082Vy7ckLheNQ 3peJoFK/F1bcS5an8fLwwMUC2q3aQEe7LTRJR+vT7tYjny3RUrMFmtZVk+9p a6CFcSfeMOb4S5wy9UXcv8MpaWkqIu9fgq+vL5Et86kCXx9XzDZqDbVGnTBx xa7G9GtlHDh6HS8+Z1Hj/RPREsYsycLtjWZcjrERTJ3/QZpYYcm6EjGnHdGQ G5OOpTsiC/410TJu/msEK4w6i7XHb+F9Ie8ilVHx1g8jBm/Atbhi+Tawyjh4 zbfB3C0PmBIk4TQoRRRrxhIwHsWQdg+z+rE23n7RBaT+VOBWiAdrx6KZKtst pcb6TMkZn9qRpgdivilfTtAEo/c/Z7ay8nSJ+Z3whOiHOHnIV9SYm4UNswai hWp9dLd0xm5f30bcLPj6nkLA808oFMtE/OMMC+bxrTmnqRzTErr3O7YlnJL0 0R9Wemy2rU7TcfD9/9j76qiqnvX9owIG2PGxUbEbW0EMFMQGFQMVEDFAwe7E IEwMRLGwsVAREQUTEUVECSlJ6e4+5/ntmV2He6177+/PL2vJcnHO3nv2zLzP vPm877PEl8t5ixVjOH+XkhqW36BUR0L9iTy+1SLaVsJ/o20p8SsjK8HXB4ew /lYQ8WcL8W9mv3y6sgOj9E6R/jb8OlanPoTRGCPYPowmjvGR3JQk+pzCmksv kFwmNnGgSYjPDmGU1gG8Tq8UdkL+W6yZNh9r2CLgLv8B4HFqGr9BcvyOoJ9K LZB+OhMOB8i5hH+nprEI8sVpJbo2FBGkw/wL1IXFf6fg8yVMUxY9QpKmY7Hb 4wf1ggswIsuFFyONzVr3wBTrfThkb8/AiJ2dHTMhdra7YKxLDxoB9dovPEKy VmqgHipyEfXeE86nHBms4wDh+Emcv+aDb+lFBHL4Eq6KuKdYPVBMTJW0mwHH dzmidhmHs7OHsWnrVBGvh14mbLtcfsQVCczqMaZdc42F2HPIAfb2dtyIlWC/ wQhqbcUOVbWa9sKKB/F8FeR/qJiJvuhC3DUbCJV22jgRBnlP1ftj89CyNgtk xFMlHv0yZAdexPTOrKJZr/McnArIEYGsAiHX1rEYyKxcr9kOCCoQgczvKANk nKdqMUvdyUtHqvdBaLblgGxLTSArj3DFtLFWOOeXIbeDyxBweC76mJ1EcIFM TMaXIvX+Qcw02oqbMSUiln0QsazbStyJLhaxTBaOg2PYzxR7boRPepVgTBZ+ OInRbTilurYKBprdIZ5+MfcpEof1B4v+q1lOiCrjHJ51kOy2Cj0aNMeMM18l /N8iIiJw+/Zt8o+RfvK7Dtzd3VFRUSGIAOu8+gS7mZ1+AlBKbLx+ox6a0hO/ PvqtcCM5wiIZVSDWaPfgMKov1t6LrqmAreWcV00nw/Z5qpzzKhFXVgwWAOo3 zisBoBhNJObBHmiSioo8qbA4ZVFwXj4Bow7QgKW4OCXwP2AGnXWuiCiW8bVQ yGOm5JgN9p3xwPcC6UBupojdMFZrGzyiS+RWPQuPtk5B/3VupAmCeONKRJ5b j0nmhwkX1Z9w69s1Abea6zoirBxyB9sjGLVUop6D7jNcKPkLj1uy3KBfLkl1 5gusHd1BUEtUOpniXlw5DwDliZ6w6lBHxAdGcZ+6zYNWWvXg3rcy4REstKdh uVOwHDlLFZ45TJe7rg7UV5ynBCUr+O9I8/HG0UiIl9MGcI7vaUhX1BHz8MRy vJxiVhvNehDC6qoaKcKfnFdDY8w2vMoTlZPUB9CTgzaFFqOwxydNwJ7g8wL2 tJ1xFtG/93H9ItotYo8M4VeXoQ1JMVJqiRkXQ8RdL81iTHSOWoGZoSHLLxLS UPkimI8uyzglqh5GGp9DjEjfleF7AF2as1f23vJETm0lJLxpCPR0xb41i6Az 3gBL1+/HmZtPEBiTSQLbfKVKQQCJlbH2l9o6Br4qRGIZ0kn50oLJmL2dNtcR /pzvjy2jNDHP/jnyZGJSZHkg9hguwboT78m5Lhxa6W9gqcepxlwwrT0/RmY9 wz2OwVB7FEaOHAhVFZbdUlJvDBzeZAq5eFVxcDHhWnEwi9yq70p4pEhF71cx Xu+dg06crVCvtTncY0vlp/+XMfSiCJw244JDg+fifHiZkPJQEfsAS/u24Mzz 8djv80Okxst+jWVanNTU1YCdb6qIRqUxOGnBBZC5sJqwKAyS58e+x80Tu7Fk 1jRMmr4cu4+dxz3fYKQWVQnlQ/LRN9VR2Pk6+1egxWcVVia/wJZxE2F1K0IM stZBwacLMOg5HrueJXOVYXVQHeeGhWMscP59uoQv+C0JcsaIDoqo3aAblruF UwcB79tBSQgOTZ4A4xNvyOQJXdSTPGDeXxMrr3wlppuwDXKeY5WuGWzvRZJ9 1vn3sEUkTbObMn3TlqaXqUok7I7qVHid2gCdUSMxcnBPNspEDqSe5niQVC0w 58gHSLk1FLInCdXl5TVQa1KLM907YLYzZe0WHP+VKd7Y0KV2Dc2p0eRteJnO 2osilFQi7MJaDBhujFMfMgVa4bJ4XLYeKodmTTFl20OkMSi4ktuhlQnPYKXZ TkCpltP3wz9bJoYeCuGzbjwBAWEEtZv1xgr3+BojkOUEwmbGWIywukM4/nmQ yPd3xGi1usIIVNrOwIWQIh7MCgNOQr2DEqt1Wtz665Dfz1N3Im9ZsimMtZpi 6IFXNXIpq3+8wlY9TiGpNwirL9Eup6JikY572ydwnqD20N/2jJhmvNzE3lvL Ze80xNB9bEyNlcUGtB+BBxHxZu2htdQet7x84X33ArYb66J792GYt+sqglPL eNEtDjoLnV712NmY74SwYrnERkY80p/tx4gBM7CDMSrIThcrtCoQzECFGjOD x96kKwh/rsa382swfZk93qQJ3kc2JYgFiDq6u/Eqo1oO2SqQ8vUJju/YiDVW 1rCyXIpFhtMwbsRk7H4Sy+/d/M/nMUNVWTApTa5GCWl1qU/3YRjXzrB2veHY /eyH5K8wrSQazisGsqvQeQr2+/GluXwByjr0aMxZIZrb4JNSxT+yIsQVen3Y hNA6LYxJBqbkp0lB/RfCJaSYw6QGKI66hyUDOqGN2mRsOvcAvs89ceP4Zkwd 2he9x5jihGcoqT0V0m+kOXhswxVBNxsEs7uxf4I34sp+ddQY3YnvOapYKN6Q /cDVVdpcWptUWDBZJjw2z8HMfZ7IrhLalVfH3MbkrqwN3M70Gu2TIYAcI93f rq9BX/VFOPU+Xb5S/PkBA3TovARukUXijiiFv70Jpq6/iKiiP4Fc9mt7DO3I 2naqq9woNAgbRZaPkOdXsW/9WlgxG2XVSmPMmayNcTpmcA0tFkCuJAbOK3+x qGURcDYfzRLvEufUqO3MZAjoUpHsjfWdlFCrtpwLv8U0OL6hhSeCO42UbTvM GIcJjAryvQw8r5UsPxhHZneRw7eOWMiowKSua6UAsxWIeLAXGi05bbDucGy5 GyXHUkckogDPrCagHWWC5e5VqzkDZpQoRUTZaiR42UGn71TYvkjjMS7hwTYM biURRtGk/RK4x1fwGJfqvUdIXOqxkdYi/A8Yl/nCFp2bsl6t/tu8qXTxk536 7ixmcHq2Qq85OP6SFs4J/DcJj7FiAFt1XqvVaGzz/MFJEGtnRlznUrgVWmDa hS9iejCz4dJfwnIs1/ukrSFcAnPpbJSkB+Pi2sloUrcuVMeswd2wfDG5lVHg 4x9h1jCOCnX6MQQXynlEGMXpvKkmWvY2grN/Gg9zJcFXod9TBcp6+/EpT6Bv QM5LrJ9kgt03afk6jzUVUXexmMsSb2niSNgQOBcwUV+lqK6uRlVlBcpKS1BU UIDiimoxFpuHN0cXoTU9ueui+5RDpHpaKHmMdsOE/lzir0JDaNhSeoKufwNy 1Wm4s3sye2kbHezwTZMIZSZVibi9ZRrLdUNaFq+6yAxaKhbhlcKPGVQXzpXX evZpwkPL4xyb4M2qdgrjLfEgQSoRlohZjogbKzl1vAmGL71O2BsgqyjG9xfO mNOrFRTqdYfRgSdEYRZ7fJbi/VlT1o5S6Y+FVyN/hXd8pm954lNYDO+BztP2 45UI0GQAkbc2onuTplDf7iVHoVQHeUHnYaixGm4RBRKBU7cqAo663emTVXpt wZscGUdWqEBLjvZNGYg2I61wL6KQ3xzpvkeh0VYZ7U0vkq6Q/OaoTrgPszFL cep1spiB/xfp53UwzJaSswp7RsbtmcqKcpSWFKOwoBBlVTKRCDH9lytb/t0D q4Zwidx122PqIZpDI/iGQx7AcuQ0jNdqJyKdpCcsnYOoNsFzpue9c4R2/2nY 5h4tFlDWpS68PWNayiFdX1icYC+14DePLAUeu2ahPaeLNtHehhepVSLIfce5 ZWtgqNUfjZvxUS0ldNM8QDa+CLUJuGKlj4GT7UlEhR8ANRQvWqKfiugnbNll E15miYSOYiJ2fWgde0t9kP890pV+PocRrVi+uF5GN8hmlggFoKTdxp09GNOe VaTq9dXHPrdPyCzlPc7k6EnAva1TOIFQgtr0A/iYL1e0Uow3tvosDUKDvlj9 II5bSxVaQ3dxjQ53avXABsZwEZqk5QTDYR7LPNJ1IqNZJVUIspT9BhZjWXNS cQCjpWdUCUGnwq+umN6+Cer1nA9HzzDa9lqsza9GVtgjbJrUlTl2OmHZhWCx TQrZx+UIclwCHVNHBGVLeezLfnca0zqx+5hULZLuKYP5fZwbDEcjrv9hw14w vRhCDB4eZsqDz0GruzK3kIpoN/kM6Un3Z3BjYZN0uqpLcXEE1lyPIjLHB6Sq MwNx3FSDm7nmGGl+DC+jcuRKnpSQ9/Ey5qr/I7jLVrt9I1udX5hywvE/nM0j 4gsG+YXJ+eQCvc7swFuP2gauuIeOOOHJPgyiJyOhnqcEiSLWVyHCbQOXfagG A7v3JJ3jF8UvIhiX4duNdehSXwVqM3bC42sG2dJi5XARoryOY4ZaA2YDTcKZ IL5bDOEpjce1VVOhb+NDcFC+PcurfdPRqDZzjDbRwanA/BrN0JJ9HTC8kTKa aVjiil98Td7ocqT4X8EScpwqDMIuz3iRcJQl2Xu2aw5019wkKcW/gECx2FGK sIsr0ZMm3LWBIVvsOEj4OP/Xa6yEjIDzmN2FPXTrdZ6BIy9SyFBYkGa7w4U9 OYRFOy7j3M6pgq+W2E5aW+4iuUq+8XQ6HmycioF6u0ljcR5sSmMfwKK9RA7t RmDTdZaYypIfZGE4zi8bx+20ttDZ4o7kSqE7NJKZW2x3hPOZPdDs1IiH3CZ9 F+BqFOv5FWK1wVdgNFwDpk5BZBbqChhTije7ZqKznCuw9dCDCBIY09gCqKDT JlClDY46YfH/WqEnS3iIuR2U6cO6jDuNCCm/+ZtRxPrqthcTuLmXKPXGTCs7 XPf+hJjULBQUFaOEObQKctMQE+iJ4+sMaNd2aqSp9IOJ80cUl5XUQXFxMWkS XlSEouJSqgiLtls2PFZrsawcTbRxzD+bi7cymtmPAJzbsAQma0/gbWIxv6ez 3jphEq19bAt9Wx/kyDlwCbWK7ZR+LBV/65V4GFsqpnYwWzP0+lp0JQdK/QEw 2nEWTz9EIr2Q1g/xfW5QXYrMhFA8u7QHBuosva0y6XmcWCpUrUpTvWGhvRj2 3jRLhIexpMf7MZ4eVy0wi3T1YEyqIdxnJd+9sGG8KgXIZv3NcT28WCIufDWC T6xEH5JDw/ntmnVYDo+kKsnfQWQ5Qi6vhSp3TpsfDyK40ZxbxuqMTzhhpoVm Cuwp2lbdEDuc7uNdSCzS8wqZ1Slh/hUgMzECb24fxuJRnQXvYmOtrfCOzSe6 Cb+MRcwylpSxZLr8MhaG3oQp5WBXxIglLmA2vESk/ylA6MOTWGVkhv03A4mX VOxMTmiPLDWpSqbUYRFuxJTK5S7KkMo3/mDWevKap8Sn+wsMFZiHyxJxZ6su ldKG3aZi04n7+BCWhLxyvtkxc2aU5yMp/C2u2y7H0Fb1WUNpqSstXxDjHlIk vzyF2ePW4GFyBa9DksLbTsQvo9QJRtfYJjgD+UdLs/Hq+EK0VCT8VKOx0u4a 3nyORVZJpfBoWWURUmM+4cGp9dBWY33uLaY5IDC3SsKTuxaH34SR1lJc+CKS bf0SV8vgb2uITtSGHICtD2mdsIir7MboVHNjiFdXIOapI/R7sHpec/WVuPWt SPDrkt7T1ivg4P+dMdU2kzZMgiZZfyY5J1mfII+tlQkeWDJ4NGYd9pM/SAq+ XsW8hnLYqjIJ+7ySV3MfS1MDmAN8LEsxxpykJk60j0wDAdyr8e3CbqyyvY6I BD9s6t1KZEFqrQ4LD/l+cnl4Zb8UA4auwPWYclG8svF49SS50IgS2k09h+9S eSbKIrzcMY39jsIw7PX+8b/QtJV8hu1IlpquTR/G0sjls0iU6ZLF+DhhwTi5 VLx6qhg5ZTYWmy7F0qVLsHjeNAzv3FigFldo1gVjDc2wctlS5qFLliwhv82W wXrrUdwLov0zhAZSsji4TO5FD8H6bZbAPa6ckR1+WKFwWDiAzp+y1kZ4JVWK yEnibpYc05vCdJz7mMO5MpvQ5PTHBwzRivNUNGg9GNNNLLBhhw0O2tnBbv9u bF67DAbj+opMl/V7YpnLJ7KUgtuKhJ9OLcO0VVfxvUSmJuzCKoQ4r8YAemU/ rLlIi1H5hpv5EY+wnhLs1kZXA3sEZPM04aSg9jU2zZqLKePHoC0XxFVsqYG9 LzN+C5w9hZ1RibQvz/HA4xE8PD3h+cQLT5/54vXbd8zT/P39me/4v30Fn2dP 4fXkCfO5B+65eeFdUAqth5SnF0l7cRx69Vmomr2FcrC14Jc8JxxX9y5E33+U BFPmn14amLHAhFluZsnNFsNAexDp4MEJmALFpLZDdLGIWeZlS83q8KtuugTm K9di9/ln+J5fqSY3gPQXjphME/ZaY+ZmT5Knzi985ktb9Cb5FLVbQe8o7Z8k LHwR6Rj2D/EWqUBj3mVaIvALjG3A7YfK9A+wX8AVhRBtvp82FlisxbY9B2DP 7IeDe7djrcVCxqxsK2ZxtZ4Bp/eUOEnYDyWRcF0/HwsPfySoxJ/v1XEPMKdD PSqmfZbfpXV36vxOLIxiIGm8kEfVrIsGZpuvxubd+0kiBWz37cTG1aaYMkJN bI3RZBR2PfouatIKlHjSy2Yh9Ld7EXZf1d+BLCsaD83HsjkPdafi7Icswe7h V37yz1ZeCZlBt7B6TA966rdhdGzS7EYGOYVfihj3/TCez5hD5VLkfzyH2a3q COZ6T0tSjFMDZAl8hFxejX7qJrgeVSTkSZIN8PI4NOQwWtLdECcCqcEi4dEW xVG4tXUOehC7pYE6lh73RQpP9dIA0rRn2GVkjZOUASsVroa95fKFu2PmsU9E JxYGk/kaG/TGYsL6OyTQLYilNB4u8zTFFWC0ry5r7tGVFAE3FW4LhtOVrNVw Nly/FvzP3MUs36eK2jzcjKoQEmcL4/3hstUYY3u2FBJiu+s7IqKMvbXQy6Lg PdYOZisSm4x2QHAJOOQk71WE1weM0J4i23gc8KT0jGIYpRpfnc3YKpNa/bHD I56ToTqQ5cfgzu55JN9JUk/wwzSmrIBRBTKh0Lwq9TnWzjBjhCRFrhtgLrx2 s60sJY2m49jLNMlwHhejvLFHn3RCrYvec2zxKr6E83TVp20eH+5egokWzngb eA/ze3OOHKU20OYImn7XcbAnL24MUkQ+PgWbAzbYf+AAbHZvhZXJTAzpqwbV zp3RubMq2vXShMFSK2zdZQNbOxts23gIVx6Fy1MIsrzEdSlWaCy/gFjGIBPK MWS5+PLICdYGmmhbR9JUmCF17HwUS22FLsIiVCDixhZ0IW+iSHiIQ8nnwumW 4YtVaqwlozrREd/KRZBjOYrZ6FSPKTb4WPBLkFPm1qMo9hVsjYYRRVJctwbd sejse+RJIceDUIV4nzMwNtiEZxlVguVdFQUnLtLfWn0n3heJ5KAVaZ9xbrUu xXvh1nUYi9LmMRFGYUvkhd7GsumWuBVdJNdR5BccxxFwmKrOQnIvwnFcLpge pdHuWPnT6VdCWcpHnN9hiH6NFaHYVhPWzs/xvUCUZOblvj87gsXzl+HUh1Qq MLK0V9gwqY0IM0oz4fSWDZ/04kdZ+AVHZmpBc9ktpFaD98oSOYl/tIvoo+Ll I0xxLZItoLDiV1qWjY+37WCoQcSxJTRM7PEkNIuFb2Vmd/vh8Kr5MDnsjngq xYwW7GiIhoo83rSGtvkjSucp4mYVEu/sgFZ/A9g9SxdesCwENvpydRd1GmDo QR/q5hSgquIr9o7vRdUmxQH/M4UvM9iPZ1hfR+3WGtjzJlvSStjhJYgP9MJZ m81YNn8mxqp3Qb3akoaCUDTBWHMXyjCowItoWRaC3E/i0MlTcHJygtOZM3A+ dx6XLrviypUrzD9XXL7ogrPOZ3CGfn4C9jaX8eJLOkEwIUU98ibG92DN/G5r 79EiNyFULS3E93d3YL/aEqusD+Lq81DiTeSrAVKf2kGbRqNaYu6hl6SKW5C7 7JcOGEgLGppj1rlAKs683BHuo7fX9mLWkPZkahX5l1ToBF2rswhMr5DwXVMI /H48Z4UZexi1pprbnYwAVuUh5uNzXHM6gDWmczF34XJstD8Hd58P+J5Z2oKf 8fIYOK7UoO9G+nrci62QjKCfkRaR33D78HKMVG2N9szW2HXOA0GxKcjKykDi F28c32gCjenbcD+UnKPfcXxCd9ZLxYyt2/RztNfH3yEp24OrlPD2FBehMC8T id9e4sAcdS5nVAVDlznhXVQSMnMLqFuluKQUFVXVYgYLW/BqM7cba1jMssH7 bLYxLV3C3O94cf0UdlovxWwdDfRspyJpxE2qUosJOPScBuc427sOShPewGnz EpgyiqUyzMzMmL+ZmS3Fms13EFkkE2vGpbnwPmzIanKqOjjolyOE5cvSw+F1 3hbWCy2x++RdfIjLE/mrpEm4btKfik3DzgtxM6ZCtDbKE+C6lk0LUh5ljnvx 1b/CYxVuuNKsMFw/uBQaHRtIlLjXUvxnBExP+CC1HMJekRWE4MJORmm++E10 66jQLfTGYSa1i5Q66ON8SCHK0kLh434JdmuWwmjuCuw6eR0vvyaSKEptQSKr kBXlh6uHNmGRxRacuB9IguhdeUArSsDj0+uh26uZMChJwz6Yvec2ovKl4gau SsHjQysw76i/mC6piOLYFzixcx8cnG7hmX8w4jNKuOX8NdCnPcfC0Sx1VNMF ZxBRLPqYyO7YP6/m7mChhVxdgLDnl7FtqR4G9uiJgZqzseHoNfgGhiEuOR2Z mZlIS45DqP8DHLdeiUXzLXDIM4LWjdOfkggcWTpMjCRpwMY9jm4oAfSJy8T3 ELT76WLH8x8i6Jfhs6sF2eYC6CvrroNXMouXa+jvViiI/4Cr+y2hN6wfuvUa CYMVB3DtyTuEx/5AOjO6zIwUxEcEwJ2R9hXT52Gl/U0Ep/MNjGXMwbIVbYSk 8UYYrn8esTIIo6uIgZOxDoYT9sJ87khiDoCst1ip2008AJRaYCqDVDL5AyDx MQyGsvGD1mb/bZ8NPlM5550j1MlJpaiKaWe/0ie15mWSwELUV7x9+ZxBfS8v L+ZvXs/fIyI5n2KngPrlOQh56grnC5fgyqD7mZMO2LxkCtTaNqXFXo0aNcE/ A6dj9V4HnHQ+D1fX83A6cQfvIrPkUT/N24YxSont9w+MLn6mq1mPB9fyFHjY LUT/XsOgb2mLCxfO4+iOVTCzvYNv+VLeSSRN8oI513y0nSkt7hfTaRlrwngA 2/O84+rbNNWDz5IhmyUr0g+3Tu+HlbE+tPq1R+1aLdBjqA7mW27HqVt+SCkW pL+yMBkfw1NpL0UFQaTLkfD2KjbMnIH5K7fD4chh2B0gJbo2zL8tMJ81AYMG T4TZPjd8ySjjJUiW+hobJ7Nx066LjuFrISQjBZgux48gT5yx2QSLpUswZ+pY DB4+FrNNV2PTwfN4HJrNrTKJq0zlKmBqoVWfFfBIrv7dSdCf2xWhx01I3xsQ ytvN92KF4iJpFtx36VO6lFr9TXAprETCt8pGVTGyGdkMC3on7govb7wJjEZW Ke/XZCYp0w97dNkSQRVeUFXm4PZ3Nv4g5s98xzmOLKn5aEs8+iHlDvt6KAq7 h6W66ug6ZhH2HDqLiycPYLX1Jhx++p3sVDH2TpokLWXTCpr2w6qHiXKupBJ8 umDBBr/aT8SeV5m/AveG/G6QFSE24BHOHNwMM2bZ+nZsjtp1VTFUZzbMNzvg 1otIUkLE6+YUldPiEPw9h9sNLZD6bC9UCVGQyj8YNsMAUwcNYk5uS9gcPo5T J11w+dJZOOxaC5P1TngVV0KXOuTuHuj07Ycxs9bA9pwLju3fghV2Xkiu4BC+ Af1aytfnuHRkF1bMn4Kh3VujVu02GKA1FcZr9uKCx2dkV8jRmstQlJ2AwMgM sYNAPZR/PQeN1g1Qq14zdNOZhQUL5mD6qoNwe/MNOWWcu+CXmF/06Swm9mD7 fky0fUY96Dzmk33zaI8B9Xfz+6Y1LyAVOYj0ewCnAzuwfsN6rFm5GNPHDoa6 +ghMNFiObfsPwuHwJXgHpdWIgMjScHvzNK6Wjd2p66/Rpj4cWyI50H7g9vqZ GDRuHwJyoSAsTAFeHDOke4/H+i6zDiCALbeUrBVEtxrZcUHwuHAY2zduwLp1 q2FqoI2h6upQ1zDA8g07cMD2OC64+SOtXGgHUPDBCUMa8060uug/9RC+loEf VMkXFxgMmACLs0HkDFfgrkLcI8zTbC1CfL3uWOEWwScR5L87Do1OClS7nnr8 Ne26+N+je3W6D6wpG3hDDDa9TVheuABBI8hkMkilUkirSQvbEuSmvcPeiV1Y zUqhDyxdPyGzoATllVXMd6rpd+WSm6iZY2fIciIoTIHzh2wOrRvQfZfx9gzb HrmzHpzC2fSBopQPOLtrBYwOPsKPClF8q2PhbKzJqrI9LQixtii+sgSc1+/D 9gMZtAcB+XzxHevuKi3IRkp8FL4Ef0NsUjpyS6rEj0sQ6m6L+Sarsf/cY3yJ SUVBaRW/sapKcpEU9hKnraeghXIzqI6whOu7ZJp1yqdD5n68gHk0PbAt5tn4 0r2uIdy+Enlp8Qj75I9Xr9/hc0Qi8ssFx2GK126oNWbzTGq3GYXtPum/1c3F mGo1Ph81Rh8uSrLxVkTNKIkUUdc3s3EoxdHYxag9Mr7hKHt1YYw3tk7qxUpM HQUoKirUJRQQzDapU6c2azi2HA2Hd9n8WlYm+2LrEGUq0iMWXEJcNX/y1qdp NW5mGlRVbb/RnbjQqSiHe52AqfkGknUk5N7nB57FWNo9qwXGbHkux1OriMy3 pzCZfFa7J6MlUz6JX7XLFqq/ZBUozE5DfPQ3fAmJRlJ6DooqOHxqgcp4D5i2 F6vUGnadw5j+qcRaZn+kpchMDMHDM4xBZrUZJy+fgPlw4uLoj/U3WKKI8hTG eGcU7j1ecd3lprA4NxNJ3yMR/CUSCSmZKCiTNuf3doE/NgzlGo32tcL1Vy9w ++IhrNKfjIlTV+PM0zDkVIBPIvtNc+6Iy9YYSAPUw7H3USzRd4bIrXL0zS3/ uso8Kwbd+PmMTRgTjiD/13j16g3eB4UjPjWHKPQKPHQy+rKf3RIuEkv+dYeV 61c69X248RWHu8FYazTmnfkkur3rskC+e4KIUszfhpmeo8b+Ru47sopCZDCK wLfPAXjz6hVevf2E8O8/kF1cxWW+KaHyuzsWNuPXSAF9Jh/E52IBI2kR8/55 6Ke7AY/jS3mMLA+9AgM5Or7ayqOw3ydFvgXYV+dl6EX1nTGwf04T3/57mERV MtxWDaLKU4eR2+GXJ3ekMYeI57KRbCipoR7OfSmWCLa8NBqO0wdS2VAca0tK 0uS6kZQhiNE76HXdp8ExsFAwdiuTGVvb2BS2vklyjesIbbUputIkXE3YPk2q 6dRl3vmsCeVMrNVoOi6EFMh5r2XIenkGhmY7cPFDCtXN+cJjUmR3cx1br9Ks tzEuf8oVbWlS/Hp+DbqRR7bUxf5nqZKJ3HCqY91h2I7LtFDoiEkH35F987tW y/LLE3RkMYnQ0tN6w81vYgKAIkoj7sBUvT5V8+fZvaDZygO5z8qj3LF8eB+o aS7BoUs3cfvGNeavrq6u5PeVK7h69TyO716BCUP7w/D6N+FNMl47YjQ5iOr2 wsIzNAlFPIwYgbUcxgqsmvUd0vOL+ylB4PntMF/ryGgEMv4wkua8w84hjelu 7THhMELK5By3GX7YqUtMCGWMsbiOROkvMawXPxllkXAy4IojJS2hbUVbOLI7 ncHN6jx8dtuN8aoNWW+pgi5sn6RyA6xCzOMjmL/kMm16pEWvIeoKI5urtGiw QqmVMe4nyuhS5sR/xr3DVhjdbxjGzrfBw5A0EhfkB/hTJGKTHtwsdFndub81 IbOTDOOXKvIus1QNaixVNwFcqhB2ge+sRf71xrqroTXAhcjO+5MrMGKYGW5E lgngUhGPy+YD5MClESZY3KDTuZfffxkvsbE7DwFK6DfFAV9LIdw5+yXWj9GE /h5P0kSGV8kyXx2BTic58j4VHZwOyBEF5QcuG2uxZs2QrfBJqfwfGr+TGYh2 34x2zN3qqE7GkQ/5cqiRjUdLR3CooYszH3MF1JD98MSCoS0ppo6zfY58wX9P ztFqJHnZQoNAW+0uWODgR2SL+ylH6B0bTDJ1QXS5THB75bw+Ci3aTrsZZhx/ U+PUrYi4iolt61GmMaMrbPGYUH/LqF1n587GbLNj8EstqkEFXxlzB/PaK9Cp 7z7tCD6ViL11UZ2CW9vYs6GFzhY8T5cJsIHyCJyc3JULxqpgoP5ZREv/f8AG KmLhtHwkxdpOC0/iSwEfiFVAZoArlkwzxsbTr0n/UyGwWv4DN21NMJQlHBah tJQRfDOWSLv7bJxljBS+UxakzFNmDaS6k1KXlXiUWC7yVmS/wyZza+y4EUYg VrikKhW3141kVRA2v05Oe82Gx359+qhm2pvxNEX6R8Bg1u/VsTlcqJo0haDA q8ijmSwdj3YasA1AJAOwxuUrKng8i/PBwflLmbOhUEtuwiOvWaId0cSVemDF ve8SwZsoK0ei/w1YTeyLtt20sc7lNTLKwTN2/wov8gKwaVpXGtjqb32V5t3y eEF4o5yWj6qxRrxaFXtrC0YLNHvj4fAkSexbxDwt7S02Th+H0VY3kSIVrb+S MJyYLl/iogrDrb60Cy4PFbLCjzjAN6pkbHsNw2uEOU8EIUaXur0JAwbPw8kP GTxUJD7YhdHNxUSg+o1NcS+6VICKrNew1O5Aj4EhW++Rbmr/BVTwDE3lSc+w tj8rhjPtWfrqwXJQ8VAOKpwYqBBa9TJTlOS+A4MJaVT9CTj+Ok3sl8RIaeor bBrHEh52mLQLL9OrRYd6vC8Ozl6I05/yRDr4DB8sHcEWO7Y0ckZUiZwbpioO F+b3o+va3vASBWOePb860QMLhnMux1GrcD+igAxDSDWviILzbO6MazYU6+7H y6su1Yy2s0WjCT3+pm1l+9oJeMHs9pf2M1CfS9pvMXQ53BOl/z/wgqDz9S1Q JxWRbebj4ud8LuSpgHT/SzDWnArTfY+RXC7HLsDoQzcOYtJMxgSSiXhRHgOX +Wo0YtlP35lUeXN4oUyfEn5hBTqSWHvtTlh44auYKk9ImBysYbnFBd9KIWIM 4Yi9soqlSm+qjlX340VF5uVJ6DWrxSzLWOzxZDlGeIH8JWBIkei1j22IK+nA TPFr4m9Q4gCj+Os1zO+lSNFYe8tdEgBlf4qjcNlmIWY5B5On8IBR/MkZI1oS 4K+HQZu9aN06b9JWpAXgpKkGmtVqB91N1/Atr1qOKeGnaJHr54QpnWrRCPnm m9SSFdHiJyvExyXjbm+FFo8WKrPg/D6TW3jW+ol/uBNjB0zCXs8UyLgXqs5+ i+19lMWgQA8stvWnlO8CVBQFwnYQDxVtoW3tSaCkL3/nihicWzQaQ+adQbRg Rlbjy6mlJCGMv3OD9lbw+sF6MfnDNNPnMMaTnG2lkYwxF0d18P8QLw6KeEF6 a3naTGKOIUX0MDiC4PK/wQtFejrcWq1NP2s24zCChahPA5aixm4eu+1URmDz HUrbw/6UZ+KL7w08isgXfarJuLpIg2XM7mBB9ULRpypFnPtG2iqrgeoiuMVX ClhREXoZOj3rcVPcEcuu0vIGASuqM/Bg6xgua7IFxi93J5k48m1mEr0PYiDz sUK7STj0NkeiI2x00slwL9R4AvZ2WtjyLO1nWDHp77CC18ikqc9hodGKis+S C0G0clpd7rap/hexcLgOZq+9jthiSMSyAynS/O9g9zxHfCyS8YBRGnUTM0gZ b92eML8WTYVYMC9+PMaCvmyqbdNxdggulomQHeOLu8/fILZQ/H7+50vQ55oy Td7kTeVRWIaCL7Az7E4VP709T5Al/SVY8IRRZbGPsKIDm/OjZXITyTLeVGQe mB+IHXNYGG82wwZ+WZylJCvCt4DHOP2EstkKqkXeO2zsz6bytB12kHZhF4rb 8kNx1lyTMVEaYqjZaXxKLZdralcDKcT2a0V44WBE95TKKJIOysfFf74+Yj6c FHkJgbh78TwuPwjAjyKpXNdUGaKvbmSbcJKlH7EOnklcaWpdWo3oaj4dw2fa 40MhCyOViZ5YyWhLAoooDMWqy5F0Da25N5CVpiPwyQ2cvXAP76JzRPphf+zp x5nMyj0x70IYuawf97S8IGYle2vD6k40B1nF8NtnRDoOCk9rOOwAPhawxMJi pVY+nuw2oAGMRuN3Ef4sSdbfIEscXAy7QamFBg6+FZGF+ArenYEu0SjaTWEE LPevkKUy8QnMRzanKunyi+wS8G6/wo+XMLsLsegbYNDKy7S9rAgV1Qg9awY1 2sRpBPZ7/xAOO2nWG6wnfaCVGKXuXAjFTKEiN/8rjq4cj+bM/1v2Xogrwdk1 VA5pDrz26XBashIGzXREeKUII1VpeLBdi5pYPeecxDdG0dHlLi2PfQBjntyq ThfMsHlD3ka+c+eXM8ZQraMCHYf/CEbISj3bNQvNGGWmpb4jQgql3NwqIPWN M/S794OmuTOCM6r5cHRVaQa+h35DWolMTFUg0SwXY5qw2Eh9DZ5nVIvsJsjB k006JA8HdZRHw+ZVukjsmBOAAxNbUJW1L2OzBctrd8wrfnGxosugPGIjvH9U /gkqZMXfcIpjFeigvQ2vsuW8SrIM3N04lU0FbDkPLp9yJdrCo9Jxd+Uwtvdf h/m027miHC6cMRnKGAgNoM4YCEGZlXKd33+KC7KcD9g7gyjizTH9wHPkMiA3 QnjUv0847yivzAqC49w+LFF/3c6YuPUGvuVXi0nSpXh/ZCnX71MB3ZefI6Si A7iPi79dxqwR47D8bCA1rypDr2CySl2xSF8L6x9TAnUxTYy545eLVlDnqgva ay2Fy4dM/lCoinsE0zbstqurpotDHwokAhDJcvDM1hD9xm4i08z8ZOKe9VTi kxGgQcXgFMJYnUSABmnmG2zSJZn9rTDv2BsaLPobaJAx2sXuGeihbgq3qFKh t0Z5LK6uUKc2lN5OWt7Cacw/hwYRgQmTy1r0ZmzMRkOYvZVQLu7lskicNh1G LcJaHYxw+VO+sF+LP57GSNW6VDOdePQNzXKT369BzosYZaU2VHUPkzeXA0QZ ipK/wvOyG7w+JFAoEuoEpdl4YjORw4W6GKR/Qh4XKuMew1yVUYYbD8X623HU 5cHjAkojcHoWn3uhjOHzziK6UiAlTH66BxrdRmLN9VCRpPiXkMAnlJJenoZd G9E03RPvMwfLTVmc5wFodFRFn1n2eP+jTNThSr7CdkxbSGq1wXQHfzotIvP2 cQxvWJsi7dDlbGKcaMCl4s521i1Tf7ARXL+VC1NdlfESG2jQsQ823Y2W43P9 pfgTWg+fo4ZUfmp3m4YjAflibTEzcZFXN2AIzTPvx8djxwtvV43wqyuoWEoa 98HqR4kCclSlvsBGyrfTEhPW30ZCqTzHSw0EEN3UMqR4O0CzCSM5XRfjypci yaifzy9fh1sc4QYT+QrKusOx8x5t5i4RiMakabi5aQqXQNcNy5wCia0wQHjH Irw9YIS+WtZ4FF+K0k9OGKiiIKazT4F9QJ4cArAc/XeXDhOazNCO9fMuIqFC bgUDTmFwI6KA1Uan0Tb4UMQTnTD2VeJTrB6jgUkHSZ+UFLgsGyMU3XS0vomU SlaOhSUifMEP9mIogzj1ey7HnYgSSfZfiD9zWWFaFD5++o78SgjiT4oHXh3H 6JaMAjZwOe7Flf2d+OczWuhsNaoZLDr3oWaLLeY9om5txaDGbB7snKOvUSCF sGUL32PDSDZ9rIX+Gdoknj+VqlKew7K/Muo0HYVtz9KGC6vGHPz7+YO/BcYt u0fqTcXzsRSfzhkzA1WAqv5R4jKWTOIvlRXA9/AsoXVLi7HWeJIiYwW8DmQl KQgODEViTpmkv9z4fyndbEb8462TGZxWRN+195FeLW+mlSPm0UGMVW2LTuPW 4O6XLIFZIs17L7rXq4W6A1YxI6gUHQ3fcGxqVzo45W4muBVXLgeIlYhgjGLa hVF5ONbdjq0Rx/noZI6OihK0MWSOiaI/SDcrwQlPDmIouZ1SHyxx+kKEg5fS spCr0O+nTFUrzZ0PkF4F4XwvCjoHLUK1WqsJRm15RhUkReG2jLHk58hawvV7 Y9mZABI0EDNnfy7g5Ym4snoYFBhMmLjXiyTVcgL+8ynmaRCqsz7AZrpI7Uyc g0uOBtAdKGwIRn3YZcAS6Cr0MsX1r0WCaSfLY/RPXS0Y2Lgj4JEN2jesI+r9 6gY4GyqfCE68IBX47GyKVvXEY7mj+i68Z9MS5UJ5lfhyYQmakBJXxXaYbveO HFIDhFcqx5drjFUyyhg3/d7CbskQQcz77vEg+fw1xZwQDJn1Z7Z8G0xzeEHj Bb8R8xT+sop4XLUcxnyrJQwPv6VtuESj9t/lWQwIVSP2/jb0Y8C9zYS9eMuo n0L9oww1fqRpvrAcy8bWGuvsg39mlUToAil+WfAg0eIlSzYAQ9rcPEqokNvF Jfh83hStSZjY0BkxFbyriOWNucZThRIWF+cvxHfBHxzSdF+sJsw/Tcdin0+q nvwm99zHpVIQe0cHe3wzZv1euFtxN62IuY0FPRoy8zMN57/ki6H5coTe3Ix+ jRXQvNtsHH4aQ64S3qIiEsenESO6CxZfoEIl4euZIPuX6SPOw2uWbCmXUlcY nf1K3oqvvCUTyF0gGNaFITdh0rEWdQfM3PKU+sFFYvfX2DyWOVrrDsEeL1oS JBjd/wIDvCpVEv0AFt1JClNDjFl+nfRDEXX8go/YNJV1B9TV2Q//rGpRx8/1 x85BTekppjb2EA2SirZBFrz3zqT2at2uxDbIkvwWABSQ5X8K4xtJ0HDgStyP qdD8yQq4BOcJ7CeyQrw9ZUKrYxWad4f2kkPwjcyXo4sjAeFT0KNtDxhI2fqA kLfKbX4pfjzchVGD9LHQSBfKygqCOLcYswoeSawBbs2teMX3O5jdmZm7WvWg NnoBDlz/jCI5+ltmxU/NYgsyGnZfijvx5UJgCgVfcdxsJkaNN8IkbTXRNdkK +qdY1U48zJnj1/cQRqlI0HT4OnglVkpyfi3lqdwTCj5fwcxutaHQ1xwP4sr+ SsAZ09pOvyOzCEOw+VEsnTfBny3Nw4drB3H8VZzQcYJWIx+Yjw7Ei6I4EjYs 94ZccXolkvwuY7uLPym3EGVdhuibViwlodJgynPJx75k2R+xZ1I71GrI6GXP UgSPcFEQ7DTYeIZy7wWMClsqZ/kyFsEZIyjXUoY6Sd9lbJ3J3AqVxDzA8s6c z7FWDxgfpnziBn8j6CzwBDgytkZtJfS2Yks8BWlntOCXx4xpCo1Shxmw84oh Is2friTJqyejjzfXsyfBrgac5BaHPcYZFxe8ShfJBSpTn2M19Q7VRjddBwQX 81ZLHapCXXS5gBsB2YKkk/R5W0NyuNVCL8PD+Fwg1ziPVGre3YoeZK8wdi9x b/xB0mWF4XBcwlJxNp+4AU9TZXISm40H1pNYLqBG8+H6Wc6al6biLlcb0bD7 AlxjrHk+SFwV64llo1rRwIi6+QVEFvEb6d8kXSy1SMTVlYNQqzYDjy6fqSGi +W/rUBe9VlPiayFTtzziLpZM1cHsw77ILJUJ5mUFc7u1Y6h5qTxoCW4ypzvv cSEUuVeWj0czBQXUqlWLl72uervBNRPiJJw8ORNP9sxGv9l74ZtYRDPP+Uek +9iyvDq12sPw+Hsqs3zpXMaHizBQa4Q6igpyrFbdYXk9jAK/INulMThr0psZ VS8sZ2wlcv8/yjbr3nhz1AhtajXG+K2PkSETM2V+JuCiK7Uc4dfXoEvtJhht dYeG8kQELkUgo3xoWdzEj2qh9qM87Bqm92lMl3LIxrs03CnKtww5gVdgrLUa V8KL+A1aFnIRWv/UpbayFksPV2ODJj63xah6ddFRzw4f83jzndGzC6Lg7RVI HbX8Tir67IKJtGdPK4zb7kW5SvjDvSr+EUy6NkeTPhZ4GF82hZfM8micWdyT U/waYCSzARmV4Q8yL9Sz5H2kya5KKmNg+zJtKH9VRQwuLx1F4/UKavqMuNO0 PMFFVfQZByZ0Rd3Gk3DcP51PAJf+8Mbq5auw3T1e5BJhgMPXTp8mEtTuoAt7 v2yJWPCdiBtrLLB4rRtZGwEwpelw3z2dtbgHLsKVsBJxSStjOJ7lnrC48U1u h/5S4onm7G0/j617bjOZec0MOQOeweZr69Ffhc0KtL4ZTkRRNODlGrU17QeL +/FybF05eH5gLloTapgm2rB7/kO+D/ZP5V4BqT52GKakgt6zTyO0lIshyC2D shYOvkwTivFQjKDru7HYaBPuhxeKdP9V+O6xH1rEw9ZoCKyu0VxGFqsZoz/E FTPb87RenP9nliNtQbiWx5FEH+xZOB9bLgUQw4U/XKpJRa4em9TQbT5JXJBx OEIWJx0e22eQVq2ikNcair3cMSjaz4y2+Xg3+tduCPVFFyjrTO6vhTyNf9fC UByf0w+1VcbD9lXqn+Wb0YsSGNxV74AWGlvwPKmSr0opivbC1smr4fK1UNyG SIKr6Sha1Ver9wbaMVNMj0nBI3szTFh3GfEV4jYseI+tfdjq5A76bAMrEVmy 4HtgFlRqd8Ysx/dyCgxzphMK1z5amM3Yi8llEFy+JH/fajSdWtUJu/EiuVI8 05nP7qzVRqPmmtj2IIYGWQR3HDOdVVWVtFFBRVkxchPeYv+sbvwKNB6/Do+T WN4f/d/LfGtugLkfXTCpTXM0196PwAIZT+lRGfMQxkNZpUOp2zw4B2bVUDo+ MKpmu4Y9YHjsLU2tEr1VOfDdtxUr119HTJWApHmfLmI6JdxSxXSbN9QY5We8 OPgaFhmZwsaLal3iIlUg3HUT+hMFq+447PJIEg6+yjgPmPdrA6U+K+GRWP5b mWflOuHRAWjRzNieWH7iI1kjwfkWdQtTScCFmcBBOx7RgCF/0Od+OIcJiiwE T9z4lJqLPDwXh93A3P4qbKTF6gYtOfuFwAtRPkayd+v2hEpPE9KPbCy/BoHs GrRg1uBjgUxQSWUpeGpridkGq3Hh9XdKSinSUlQhwfc4pnVWZB7SFYYHvYjy N5STepJB4u+4EK0UeKlvCi0jmgHEST2riqa/vwqryTOx5oQnYvOqhWyMKkbP cmSQtTbzqFZjNsHze7GEPw5Im5VVjEUl0IZI9HDqTYaw44n7fYwaGvVfiXtR JXm/FvZ07orSqAcwHaqGtmMp4ZvoEfh3YRfSsCricGWZBhq314PD62ShRqk6 F/6umzF7/UXSnYH7keGr0xJ0Jn7X+ovgFlkikJYm++HokllY4fCUOHPEnZeA izpsQpCaqRttECOAcH4IjhkNhYrqLDgFZPOeI1nsHej17I8eA/WxzuECnn6K RmZJFX/HsqwYeNovQmelZug2YT3uhOTISROD324b0bd5Z+jaPEFGtbxzLg2+ p/dhlfkyrDAzwhTNXiTBVQDcJhOx71nK34s7q05+vboO3Vr0wPR9vtRPJRrx FQg9txwdafp9LXTUP4aQIimvJBW8P41JHdugj7EzwguFurDqRG9sslyFA4+i xCSf3A/YP5ao9U2gZe5OkptEhqFyhN7ahUVzrXH1YzbPwp/54iimEElvxGgF LzJEt4sMP3wOQaNDZwxlTHHCE8hDzb9IO59zUhrljqWD6tODbuSqK4irkLPC y77ARqcH3boKmvtIa0ZRpy/6gD3qyjTu1VvvEL6UiqJO6qQvmGuxPCuqjEYd XvgrURfjlTl4xugtrVoOx9q7rG4yVm4RQq6vQ/eWPTDVxrcGXzPhBfFysMB0 PQMs23URvp/jkFchV71QjfykMDw8tgaj26hAucNwLHXyoW0weG+wLMsfO8ar csLZBrorPEhMZJ2wzFKkvHOF9YyJmLpkF87df4+47BLeWyktTkeY7xWsmdIH KnVbod+CffCKKhCcTkSNvroefRpw+Sb1GNMoOE847xl17eFGXTRvPRrbHtN6 RMlvICCDm8SU1ycxqWtPaK67TSr7+Lqvn0GA6Pstxscz5ujadigsXL/QgBf7 WX1UZnzBpfWmsNhzGYE/SqlQBNjr0/u0n+eCqGK+mrI+cr48ws4F87DK7gpe RdJ4OmTpzxnTWYm54TBsf5Yo0B2Wxz/DWq0+6KS7i7S4YV9aBdKo2zCY4oD7 fi9x/fhWWG22wdFjR2Czcws27tiJ7ZstMEdHF4t2XsLHVOG4KmRUs1m91aBu fAbfCsE66MjuzsDT/ZaYpq2FUcOHYdjQIRis3h+9e6ihY5tmzCbsj+XHqS3/ J6lvw89VdRo89xhCVXUCtnqwGhov9bLUJ1jUtzmVidoNBmLV/e8iyTAjZWkv sGFcL6iStsRJZY04qaeo9dgR1saWOPX4K7KJ0pHpC+teDCzVHYXND+PFu5Cv MyrSsc0wXWyFE48/IrlIRuHm40lj/EPqSxY54nOOVAyeFuGTixX6tBsKExeW 0ZiHIUHsdR0QViaIPUrC4WDEmvJ1x66DR0KlKPakFHjXFC4EZYAroYWcLNaj +zk1NAAvnj7BA9cDmNaDjUbX6zsXF0LL5Ol4o1yt0JMeqF2w6kpIDbYq8i7O C3gQkMf2WPftUG/bC7MdfCnNu2BOMJLyZM9cqHbUFtaEBQFyyJUi2scFK2bq Y+bsRTBZvATWG7fD5qA9HBzsccBmJ9avXIRJWkPQrWM/jJm5GdfexNJEwhHC iCsR/XAnejfgUqb3vyOfb6AfN2LOvvdw2mCGqZNmw2iRCZZbrsX2vQdh7+AA B7v92LlxNUz0J6B/957orTEN6x2fILYIQpJB/lfYzxvAprR3XMVoYWUSMZum HBE31qFvm75YeNKPKk35f8IAVuGLdt+B4b2HYd4J1jUv1ij8OxDIFwHFeu7D iF7DYHDkFfX+8v1UylMCcfXAVmzduRPWlszbjtXG5Hk78SicP4DroSTuNc4e 2IwNe/Zjz7pVMJ83A+O052DdubeER4Iv/C0Iu46FI/th8DIXRBRy/FoNGNl3 w0xdOzxNYg+//PgveHHvMmx3rofV1n1wuuWN4LgcXgOsTHqONTrMqs08iLcZ VVME+ahGOaMrZaal4EdiHKLCviAw4C18n7rj6nk3+HxMJAD3B3Fvy+/G0u+4 ZK2DDoMXEsWdhSmW2qcoMxWZxdVyemQq3IyHcIy5DdDX+CbS5PZ1figcl4xD u5ErcT2igG/vSiyACI+zsNm2Ddu2roPRbH1M0JiO1Ue9CXw3EL5WgC8PTmDL 9h3YvXsnNpsbQX/SJEw02oWH4blCSbUsC0/t50Otz2Ts9krgUzMFQR9vg4CM EpSXlaKEcLOUFKOoqBhlFZUErEXSnmIEX9+KgS0ao5kWo7ImikZdUbQntpvP xZyFx/AuuVSUfeYcvncKW5YvgoGeJrp37YrObRpDQXUkNnilCj0SSCGoQW80 adEfa25SuedMyfqQVlWgrJiQ5pawgystYxYyCy+PzuLBQFBYMj+cxRR1dWht vIOkCkwQVisGl5nV6siulkBCWZWJLz63cGjdMiwynAm9CWOhqaGJsRMmYfqc RVi+4wTuv4uk3Loawq3i4bZqFFo07Quza1Gb+FsRX9V3f9w8shMWxvOhP2Ui xozWhKbWWOhOn42F5htx6LoPIjLKhFtlvz+P2d2aoPG4PXifXc1zNKW8OQ7t foMwcZcH0qqJjP5KrDOFdSlA8M2d0NWeCjOOmEsA7Z+ItahAlSLS0w562pNh 5PCEds4UzgdGz4948wBnTp7FZY8AJBbLpTfKChEX/BK3z57GWVd3fPieRZQv MTotRXqAK8yna2Pi5huIyKsSmr+xsmyLx9+LhCO/KNob2xbqYqiRHZ7HFd38 vQS2466SZn/FhQ36UJ9qjUsf0nrwV1Vn4JXLVkwePwbjJ2/EjQBKDCo6oCoQ 6LSAhFKpR7zj4O3wyxcy8asyg3FmvT4GTFkH18B0PjWm6EcInt66gKNObnj1 LZXWmvHYWJEZjbePb8HF8QxuPf+MVGaiBA9/SQIe2Zlg2ARj2Hp/p15n/rwm sqdBgkxNu0Fjoh6mTJkMPT095t8k6Opawfl5IpE9oT9AeTqzV5/C90MsCqvA BzurSgpRUErzMyTjOESuKMzGj7goRESEIyQoEO9fPcUDL198TimtwdeW8/0T vH0+IDabq5Crj2pCQ7thDnQn6bGDmTwZU/R0GOD/h9KzTjwZJFdOUI1kv7OY pzcRemSZ86VcyjRpSxXCLM4sfnFayl1SVpSPnOwc5BWWUF/1GO5NytPD4fPM FyEZ5ZJt/BqXFyMvNwc5ufkoqZAJ3jtm38Z98MbTj9FkLkR4qkT8yxMw0NHB zN138b1IJin8tfRkyd0t6ulJLF+3Axc+5/1ZcJjXS3kFOwaUN1/yI+Awnvtz Qfgj7N6wGttZO637T/a8UJ5dmoLn57dj8fYLCEivuCVsz+qf7fn2/FXFsXA/ uhaLbG8iJEvGlziVfX+I5YPEgvR+62+T8hLetPp2fRnacMmBrfuuwJMUPnGC ZOsWIszDASZrDsMjsoB/E8JK9urCdizafhq+SZX8bqsOc8Wo7iypioJc3GHZ uW/0G0f4N451x/yBtWp+T7EDA9VB9BvCLsz+jHP71sHy+BMklmDSz1+TLpcw sswPOLl7HaxPPyeEV0W/Xt9sbjDUnstIwo+8ir9AxTqQlWYjiS1o57jF66Ay LxlxGWyp4r8tayzf9aoOpU3PSk9FRrFMco3+jT0aqspLKel7eUUVpFxsPdTR lMsQENZZ0oG/T2UeM4Z05JfLhEK24q9XYdSXbyBSDyO23CWZWTWQ7fR8tKrP IdvAbQTZ+IRfyCpRmJWC5LxK4a0gK0ZaagoyS6RC9oSsLAdR4V8QFBTEzDb5 XYf5HYkfOeU1lhgVBUiM/lrze8FhiMkskVti5nvleUhOzSRyyoVNa76d3OIy H5Tl4kdqFoqZA6z41ytLf7cXljLn35ZyB/2sLrtEeofwjC2agUxK+hJVoapa KvEUlicLzw4uhobmTJgzEGDneAke7/1wb/scgaGIXx6+IkSW9hLrdDqivnJ3 6K08DJ+onBq1Jox+d5sZUkOa/l8fffQvIeFfUzBw6A8vyIaMiMetGKlRX/GJ ckJkIK+EqMEleGahSWID/EvzJ2w1M4cpCSnIYVRQsaSyGiU5aUhIzibcUWO4 O0tj7mDGOGscunYP92+44Jj9PmzbtBW79trj1OU7eP6R9AWoeiTMVBnSIgLx 5pkn7l5zxi4LQ2j17IgmAuHkv84UG3JytViEmabnSVKroBOnPMGSnhwda/1e ML8VWbOFUCUKMlOQmJxHzgi+qTsqC5H+4wdS88ol/zKZc/5yMmWFYXBZORlD Rxtg6eo1WLdpDxwvn8F2vd40qbw2O5nCkSLNhq+dGQZ3HYzp1ufwOUvMjKvO eIfdhppQGzgNOy99REEVXyrPjDTuPiazxPYSRR4GVdSgvWQXrr2OIrmIj7k9 Sqph00I8cdBUF+1pim1XrLkeTmdRl7td2uvjmKszl9EhfsjFw8oRcMIEbZTZ hM9O4/cjIKu6k/CxDEVRntgwfjB6qBvi8OMwFPENW5XoWhLeJ82+fTHC0BYv Ywrk8i74n1l/O6vScuSl/UB8RDDeeLvh2GYT6PRrz1VjS6DUWG5WiY4WDodR HbhN0wozzgXL122WBp/DMG5PNehijLvx1T+d2Lr8ydJiKJY6eCG5FJxUK9Ik 25eOJuiuwhgUV0LlZpMNUL45ZIXJY8xx/jWbrySwJBGlhtEhpnZiszpaDjCH 66f0znKzmuSxn01fJLlkIy3xML5anNV0XLfimrQyG2WqjTdy/m1a/zSrPLIV xfvDeb0hepGoTr2xOBmQKxwGJPoQfGk9Rqs2gWKLgVhxK5yo4PwUSvPDcN5k NNo2VEYHnU3wTq7ippDZvbH3oNOe6/XdqAtG6hpg8TJLrFm3HuvXWcPCfDGj Qo1AR1o50w4G9i9J8QM7s0SiU+Bz5QH8wjPJE9kzm3luVRKe2G2Akf4CWBy+ Au/ASKTlFqK0JB/JYX64fmgVRhEO1Fr/YNiUjbj1SaQlKk15h6PzB6JJfRW0 mbkbL1Iq5UqpKpDgdQJze7dE3UZqMHZ+R6TnP5zSDvzgQZpTLMUQVQOcC8wV lOvqHIS98cAtz0CkFFXzsFmZHQmfB/fx7EsyUfmFArR4dxhpT8DURdZwvOeH mIwiIXumOCMGb+6exgaTqRg7zRI3okrZEbAaNgFRxuZ6cRFbN23Epu3bsMnK HPOm6WKKvj4mjh2PKUaWsLv8FJE5VRzlhQIzP1/gcdcdL0LT5JOAiAwnfXqK 2w9fIzq7AjV/Zv9hStjea4RWLwshfqFILqjkzk3mb6XpCA/7jrQiuYO8LBPR IZ8QmVnB3oDVLEg1WwGSIoPw2ssd1y5dgpv3O4REJyGvDP+K0o5/GNMvf/T+ 78L/u/D/Lvy/C395oaAgMMd5aU46khMTGehKZH7XQVJSNkoqZT97ykz+MkaD yc1MpRfwl/3ILkCFVO4ZF/9qDGyGxmOLMWinpESSqgQ9RXE+boQW/XYY2f6w mNylhnpTh7lLq0UO+JTLXXbpr4bBZkw9MBtGLaMGrVTRvWcv9OrZQxE9evQg FUID1+JhVPFvh5MThH3LJqJb9x7Ma5HLlJjfPdGrTy+otW9Ok8zqzdmPj9wg /pORPTQbjmbMgThp332ERkYjKjJCAREREcxjI759Q2RUHLJKq/51ZPr8yMoL kBYfidDwbxL2MiXmdyRiYqPx9uJGDGsoQZ1Z+xH455Gt5wdV9ANBz9xwfP9O bLZxwh2fj0jIr/KTW9SHzGw2kzTF/EuhH7k/S/Pj4ON2Fbd9QpDLBedXcZ9V 50Tj6Y2ruPc6QtBZunKfEfIk7eYS1NL/q0GykeX6yAy8iVUz58Bo+SbsttmD Hbv3YfuqRZg0cR42OD1HEnPovqHfVZQbcRPMdflMvW0f+Me/PQr1f+qiYaeJ sPdLqzHsNJ/96NGkLpr0moGTn3JqDDvNxwHjmv31sNlEE7apX2LQc1xy2AzT hYZYsv04bj8LIsqWSAvE6Nb5cQG4dXQzFs2fC0uHO/iaWsKmwymjKOw2TEd2 RiuN9XgYlslRSFQhK/o9zq2bha7/tMNAQxt4fy+UvP7NDPTldlBp3GtcdnsA /6QKzgdJ3F7ZzBa4CmdP2rljLnebwoCTGNCMLfgesJ2tPDrNX8KoT4FPXHHh VTwZ0ib+z+Xp8Pe8ChfvKGJ78HfKfmWHrtRB0xCaB99SHxN9D7Wfz68JN9jq jGDcvX0TTyKKBFOoMMITJ694IzKXr49gxKIwFt7uVxntOosLMxB29u94evcq bvglSTb9eqnYhICmjJ4Xj/sHTdC/91iYbHPETff7cH94B867V2Ku+Sa4vKKB VGS9d8acvt3Rc8RSHLl1B9eObYfl5mPwiS0VyxCQArcVGqjPqLJr78YKLA1V 6fDcNwvN6yjinxGr4BaSI3n1myXjGZWyPlzD8kVzYHzaF+nFUsHpRupVWPeK mPnM4HlG0HXm6wux5OQLws4lMeQ/y3uHzQPYRMO2Y44ivAKSU/xnxTG4xxj8 Y5fuw8NI2lVb8rPnDOH/JvvZs0uR7H8BJvMXw8LFD7ky8dmyDF+sJhE3khE+ 9Sztvva7DWDM/bkkygu7VszBDJu7iM6v4k+aytwvOL/TDDqWJ/AmqXQc92dp 2gec3DQfOuvP4kNGufwLcN5HgfAGVYWIfHIUswyXYsfdrzQPYMOvdwkbLW5O K8d97ReinXJD9DA+i28FIgV9Sc4PfHzoCHNDa9i7uGCXtioNfPbf+YJNXypP wv1tVtjk+Jikggvdp6Vx7phDsv3qzYNbZLGQyFkWisOTu9F8qXZTD+BdRpXk 5W92i3xebJrfWczVHI4Jm2/QjJTm3EwURz7C1s0X8SGtTK68uwKx3ocxceho zNznSdjAJHOEz9Jwd/lw6tBQ6bQQd+IqJSf5z0oj4bpuGvqMM4OTP+3JKoS2 CI2Yy8FjOPeEJl7yqb05IXewZctVfGWMPOHxsnJEPDyA0YPGYO5hH2TJ5B4v S8CVRf3pjm3eewU8U6S/3TWLuT8XRz6E9eSRGLbEEf7plXwyZGXKa+xaMB59 Z+7Fs8TyMcKu8cNBozHor78dD6OLhHco/IyTe4/D9UVijWBwdT4CLq2Huvok rL78iaZOrv/TxmE2cugVTFUlOWDDcfBlusBHyYBnZtAdrNZSYwujFVtjlL2/ kO4mjbyBhf+Pte8A5/pd/5cQTZV2aS/tvZMGDUVDSENDCykRIaEhKUkpFdq7 0I5EZqSkNKQhe+89X//387zXp/P7nc73/7tO13U65/RZz/u+7+fe9+ve4oxb CcWCvOS9dMGU7qQb3Aj+Pyr5VpTM504YoUh0bCfM3/+cXr+Q/ygvMij+cB0G 40Zg7DovgoYvNCW89sC4nuOwgd0xK0pLNRJvWWFs3/FYdSKM7ntZIbzWgC/X tqEdbVUfhz2BGVIe/Gt16bizRwu9B2vDJfg3VTBClb78DSznjMNQvdNIqhKk Je+lM4b3mAzT+98lChiViPPdgeF9JmPTuVhKffHna+gsMsVh7joTjmH5f5WW NbxYpAfDct44DJy/Hy8zavmKS+X3h9iuOgoqy44itqhhBvfPTWUJcFs1A70n bmO82mLhGYrCsXXKaIzedJHMnwuYlU35CHIxQP/+6rAN+EZ79cz/vbSIj1mH dx5r0IP0BMmvh9/3aq50xdZVMl4chWpb1p6O2UR3q3F/fuHcys1w8opCWRPv h8jgx11Ldia81Wrm0KVC91JVIlzUB9AJCNmOi+D+pvCvIsOX6huyQ7FHfSR6 TrMmmJ48+EJjih+Wde+IPro+SG+CZNHpxaFl6NF9GizvJtFv4nlW9u4cppEa XbOOmO0URivM7sLnyhHtuQl9O03EFl+6o1xicVgqfFaNQfPuK3H1SwU/g1T7 5So0lDph6MbbhCbiCbLx0HYhuvaaDYcn7N4S/gR5EScwmi7k6IXFx2NprZpS kgei+BepWc2fgCAlrpmGzkMMceVjMd9ykRPhgXn9+mCS8TUC1Si0T9Rn4p6V Jrr0XAjn4DThMeq/w33JEMj2XY+AlBphXVVNMi5snIpOg1eSfYP/SGCycXM1 u1CPMPnW5woRZ6r6A1xncYs4pjggpoz/eD0+njGC/oErSC4XxqXTHu3DxE5E tqbym+6k+A5OOpF9dh06ybE9PeNN/Akc7Mu/yIyQa6xldPm2mWjTfR6OhGTw U7+oScDhKcrorLwJjzPqeXWJorc4sEgFrQfpw/dDkXDFi1/DfgwLFjx0wWl8 Y8zoCeHHG5D14gimdO2OcduuUqQLceSwGlHOy9GDEeGdN75SJvPghAQUwWZk N3QdvBMh+Y3CCXIjsXf2ALQduQG3v5XzJ6jPegmLwS1ofWusji+pb/1VXAwE RVCM4EMr0LH9GBhfZzt95gqnK0HkidXo0noQ9D1fUz97isTJEy8ao69if2i5 hFCtLrYVlCN4rwa6MKbB7iHb58eLEKmNrxvRA11n2yA0t27XPxGhbzitPoZV ny1nwy0sR6LNsRDPHFiskxb9FsMzoUJAUav5HYFbER+QXSkia1Qn+EJDRYEO B6w8y86t8N9VGuuJyR3Zem6nkaZ4mlUv9TcBEtscqvDRxxgDGS9D1e4ZBUcW pIi57QG7ZqBVxzGwfJ7Bb1speH0Kszq2Qd/5R5FQ0sTj3DeWpuNt0B14Hj+M Y75+CP+QRk4oLu8rwJcIf3gec4bH7UiklfKDc2yTdNHPd3h63RMHDrjh/K1A xP+kbUAc6RkF3ZSFu7umsl7LqO14SsLMinS8j3iCy8cPwd7+OC4+CMOXzDIx f571CYHXT8HRzRtP4tKogDpwT1GT8QI7R3eGfH9DxgGr5sdrMp44YGzblhhl eY/0Swni3JiBa0bj0KLLVGIBeVJkhxzBxDZtMWy5J8Fd4klRX/QbMc9u4BTz rMcvPUD0p0zJbayozcXH0DvwcD2C034xyBKGaFlA6vxvsXh0hTn2AXf43AvG x9+F1LILpKhNweUtoykpuk21xCsieWW/8S7sIS66HoC9gzuuPonEt+wKgRSl 6R/w+IoHHE9cRFBCFv2+5zznytLx7sVdnHE7DFff+wh7n/on5wqRFBWAs8zT uN8KR2pJg8RxG1H86x2eXT9DOXfu1nPE/8ijlObDin+5u6skNEvG80OY1ppx +td442ctX+glmBbxOLSAMaFdNHAqMp+edjL3dcXvL2Fpz9ZQUnXA6+JGURk1 4cft3VBp0w7THJ9ThC2xwZVsuTRDf5mOmGl6j8Jv8MNgZemJCL7tBRfXYzh3 9yVD7FKBaPXFvxDhfx5Hjrrjeug3VDRJYDQ1leLX22BcP3sMDs5euBMYQ3qf 5v0TlcDIkt5EFnZMtg/WXvv0BybRr4e27LIDhcFYdYluXBPgWAojYDqjD8v5 9b74IYlYUBQF61EsvK004+DZheb9Aw1A3PqbWDmkLeRVjPEstaaL8JEGfLux Da3bdsFkp1c0uSDZ3ftkzzwmEu+ORa4sVjfb8NKe0vrXK28YaWtj2ZrtsLCy gI3zMbjss4Cp3XE8/MwSpSk/Dqe2LsOM8QuwasdOWFrshpXLJURl1XGGUYEu nn94dDd0tNZj115r7DK3hpWVOdYvX4aVO04jJLmYs4REedch8boxi4redTiW mZpj22INqC/biB0mJjA1tcHho0fhZG8HG48n+EFTp7X49tQda+aqYs7i1TCy 3oe9tvY4cOMjnXiz55+3LhsBVrOY5+2Ltaff0td4hVH/4z6WjmiL5tPtEV3Q IGIN1eD9hbVo3qon5jEOUJ0k+RqzcXf7NMg06wfds28lsIbaU32cFOgJw8Xa 0DE0hqX1HtgeOY4jtrthan8Kgd9ZP6M+KxKu65dg+sRFWLPTnJJv7/EbeJfX IJKv4gfuHjDDiqUbYb7XCjvN98LaaifWaS/DKotziEgplyBfJd5cWE/Dpea9 x0F/xy5sXqiO+TpGMDMxhqmZHY64usDBzg77zgQhle4IrUKi31HozZqJeUvX Yau1HaxtHHHkHguR+0R4pjqkhPtiCycSltYW2HvYFUf3WcLU9jgC+A1ghe/g abwcM8bNh77JTlhYWsDK2ReRmRIiUZuOx8csWZGwFkViw/KlWGnqgeCkIik+ qPhfFQ/DsexXMJ/BXJRuWvB5VywW8puQQzydjs3RXf0QXufVC4uBUfIJJ/UG U8TZ/Y/ZnY/8EHbt5yuYO6gNWjDm8ENZk5AwqP4CD23mI/LjYO7/g36kDU8Q Rp6Cz9lAS2M5DLebwdLWFo4ux3DAcgcs3O+BLsZk/pCck4mmGmaorYDRXhtY 7zKH09VwupuRJ0hdeiSObTPEytXG2LN3D8x2k/cZYbmmHoyPP0JyWROb0Pub UmJbOKKOrEAvEhs1a4HBuwPIFJgApZR8D2uU2LnEKUZ+FNVAUEpN6bhswAGG 9TbGo981EqAMmbi9bRLr/rTuj6UXP/9VKQ0UbtxvXNpIMNh7wcA7nkYw/I0r f+uJCdJtoTz3JJLqwdviutQArBncBjLKS3HxcznbxN2RatT00NPQHNIecsPW 40pcNtebUoPsz+G45r4HeqtsceVlNB7ZLaYbJBSXnUcqFciPuLDbGHtPPKNL p1iLyFzVuhwm/tRF184joecchDRuo2N9yW9EXnfCwmH90G3UEtjf/UAuN6tp lRjv2xsaZLqDieQJzkpLZU24PEkm0T77pzIHn6If4Rgjz7sdPfHwxXUYTyHp vTHY659KHyXnzXXs3GIGn49F+yQ0deZLV0xoJ4Ous/YjoriRW3PHBgL71foz UrgYF+KL+IguP+wohjLiOEjbm/jaPAmrv93EUmUFtBi0Bnd+VIskrMOvp0cx p78iWo7bjnsf87kDVyHjQyjjc+yGnsF+3AqLxv2danTqrvva6zR+bsp7h9Om 27D/3Cs6TSOQsDodDxy0oNR5HDZ4hCGTA6quLfyJUB9bzB3cG73G6+DwI9oC NlBQU03IDffADBIqNW/GwtUMXAGPlz/BB2BN5ZlIYDxN591msHA+jydBF7lV LUzo9SKbPk5qmA9MtuzG9aQyqccSkpIZfhZLhnaA7NC1uBibydUFapHzJRLX T1pBf5UNLr2IxtP9dJQerZecwS/yluLP8LU0gfWxJ8hpkpSUXIQcN0D3ziOg c/A5UstZXjeUpiL65kEsHtEfXUcsgt3t9yTrwge2/6K59AVOFyDIaTnjObTF rH0sVPJ84cak47rJVEaBd4G+FwtgN0H4XCUSLpqgp5wshhn6ILlGvE0oj4H5 xF7MYQnIaQU/FZwX5YYpLaXRcYYVXuVyUCUdKchKxMmN6N2+IwbpuuNdTg3P N3yNvAcXGxOsM/ZE8JtgHJ3TmTZkLTzxjg7plX8PgI2BCbxfpdC7zjexNOXG 4Yj+GLTtvxTHnnzj+NiE4t/vcGP/Ogzv3gOjFlng9vt8dhjrbzlBWRSGH8P4 buxCO8Wx9ogqFjFimio+49TyPrSlta/qPkSVSELdNeDjuY3oR25osyk49DJT IlKrQvRpfXatcIu+0PCM/wdqTAZpzxj/tk0zSI3fhZDMBv5WNhaEw3KwEjr2 34AHafXi9GQpXu5fAGmGKKM23US6gHjCvFYQA3uK7dAJBufeUQdb7AIqQeLD s9iiMQE9WzWnUfQAm+fCntma99ex2cwJVxJLpfj53cI3XpjbRg491JyRUAfe 482JPg/tga3QrON4bDkTTrccsA8jh4b8KDhM4dosGflZZBNIeCUkXYu/4f7h jZjctzNakdntlrq48IazZMyTRXnbwsDqCdUCdjw/Sj/ipBbDDznGDfZOpEZS mIEkiNHmc9FJqj923Pozu1Cb8Rzblduh8whTBOU2iQTMx0MLApjMxAA7H1Cd LewwznmFXdMJyJsyNl//Ipy6sRDv7rpjw5wx6CZP8ADbY9ShMGEbSVWMD9bt dMH95AoJOIpGZL86jqktZdFP8yS+CReedeDTQ9yh0VsOMp2nYdelWDJ0w9Ow NiMYlqN56H5l6BymiLH8aRoKPjEivwbje3WCAs33GuLGJ56PeQg6ZY119i+p w/2IP01RHBw1CcJxR+ieifvjahEafn7sha0LJqFXa5IdaIE+e56wY0Dk1n64 hW0798P3gygZxErNbyuHbjMOIL5WkIy8WB8sH8JIRoex2HTqFQVt5fFL/1d1 xXzT+ytYqczcxP4rceVD+UJe9MJOYFpXAqu2GQHJ5bySqk4Nwq5xrRgtMw0H grIldvjK0me/bzSNUbkjsPfxvyCWVH/HeYMhjFXtjRVHo/9Atyh6dx5zOjDP 3V4dp+MrhL7M0hQ8drfC4tF9uP0V47DJP5XPvfy8vR/adrfxtaxRgucViCNw bc3aYoFjCM0miTwvR8y5rRioIIUOQw1wNpwuPZv1n3UVyuNgr9qbikPz9nPg Gl0g4ToVI9BFi31t0BKcii8XFjOVx57CBOUWtC107tEwGpwJFS7mFn29s4vV VYpDmAf7/VddNYB/rfIzTugRgMZOWObGjnMKbkRDBm5uGcswZDL2vcrjE+BV STeg3VGa8YXV4fammL9qmc+cMIk6i+rwjMxnD8ZGhl9uWWO8IlFRsuhjcBXp Ak1+wmvTLuw7HiEIJ0FxC3bVRHPGddIwf0FJLnbW1uHT1V3syIOSKuwC6JDM AP7lukzcYQI2vpF8w8kPhCPsSVoyauc9XFeMoYBbUs1nM05GqtCvnPfmDvbq 7iZVMVsJiv56aIcBjFZTGr0Dz3OapPjBsZR75his2Brj7Z8SP07IF1X/hPdq Rih7qcElpoQnWEn8Bagz9qV5n2U4/7GCJ1iKnxWGURAjbVx6XyoSrArvfc0w nNT4m7WCymaJmkTTVxxftRMHveLEfeL1uXjoMIfhYHcsc4igTrNIsGq8PbcZ A0h43GM+nANTyA0TmF/9Cz6mkziCjYepT5IgiARWyHHhMG6l6kKcDMkW0pQZ ry5jz6q9CM5r4hQSow2CDmEqTXXPhUdYrvg0dUi6Y4tJ7ZvTgnVP3UsScwy/ cH6LOWwYWS4RnrAEoW5LGfZ3wByz5/Rei09Tj6+3LDGSHInA7vglEfZP4U/w pz4SdigxAhV12RHrdl/El3IRMrghC/es5jExSgtM33mHmt2F/Gv13+HJXAoZ xpdbcCycln9Eh6EMUafW0DzOkKUnKEqvaLyakHRpC5TbtYfq0VfUG5MsJacF HqBrMVtPMMaD3/WimWceP+TAQiqZnQbZIrqUv9iKFD70juUiFmhTZij0T78X u+zzg7FztjluxOaKgKUl8XBcSpTLZBx4nC7oh0bGUdw6nSJqtZpihoBv3HD9 31QV28uedGMnetPxdEWoOoUSyyXWMBqR8tgJw8mUivwwGF5IFGvUsrSQZzKu B+uvTzCFX1K5hMJqZPSCMX1mub46uPy18q8KS3L/7O+nzphGcO166+Pi+xKp 7sJrjH64sgUtWypjsSfdDSQleAmMMru1bSz1EibtDKC1cXHfZSXCHZZzy0aX 4GxkPncPGPo3fMGJeX3oM3QYaYNwgU6NSPTcgQ17TuE97+9UJuP8BtJm0Aua dhEipWRpluPwcm5ByVRTPEiqkBL0FllwcNkUSvTnVWB4Il6cN1VAVqALZnVh cVNXnQgXNGVT7mscszDA9vspUoLSqkiE22LS/NcB02xZ7ckrLYJ+s3hQe7Re fAJfqzBW4uHjzq6GTMsB0GcTjyLRGIXmu2YIdehn27EbXESilSLQYj66UMHU w5WEUpFo1fE4OKUz228x+SDeCHsAaxF3dDM27PNFEq/AShMZC0QmOfpD7wj1 ZASi5UTBZiGb+OwyxxrBv2skiFaOSM8NbD6VuZ3GFz6LSzYU8NvfHpPIMirG 3dp0/o2wWLcxPQROO9di95NMqYfCk1Qh6sBK9KVfpYnTYbnikzR+g8d8drN0 O5U9CM3nL1ojPp3diQ0WJ/GOFwlCLaOhINuZFljT6y88SfEHuKxUYcOTKdvh 96Vc6j/praovcF/SB3K9mSD+YxXfYlAUfwU6fZkHU5wJh+cZmtw/p9zdA5V2 zJeMMENQRg1/A8nyNrNxrZn/OQTrLrDLRXn8gbrPl6DaWxFK+heQUieC5xe8 wQENhnfNBmC1J10hIc7rNnyFxxwWM7nLUFr+5CjVDpVfbsKgUzMqerO33kM2 z3Jk4p7xUhhfikEVR7yapPtYN45MNWnA9UWWYHTK432xcLAC7ZIbu+UyflZy w71/6zcjDlUiTq4cSVtrFEeY4HFGg/iVSXexqbs0Le/PXM/uPR0nyFAmbqwZ j7bN2HHIgVr2ePSlWOgxIxOeFD+0JUZvvIE05qP/SEWRVVxbJtN4c+jG8/ha IV7CkvhzmCOnhPFr7pJARYxhGvH7mQMGMSdpNVgPF79WSYA/ZOOOIbsYS4qR GifWFRYVaQVCD2pCgfmoTCd1nIwrEXAPar74wfmaP95xi2NJheXoQiUayM3f FUS9Pcl69KerFhgpx/a9zLMOQEaD4CsUvvHmljn1xLK9L2jJkL9sSH+Ojars Xvh+my+Q3Xzsn/ocBPt746BfMjePzSVcQw9jmIwUpDvMwuHoQilhNrn+M1zn DES7TkZ4nF7D563yIt0wRboTpm97TGBDRJoxrsU9S6q1FUdvxJ2f9RLKKRWX VrDYgVKyajgemiUR1hfh6V41eqXle2njQmKlQLDKDzdx8MYTfOHkjA7oqZFV rr2xfB/V6BIEq8Lbs9swSJYdctI6FIS8RoFg2Uw8OJ++1B9rDtFVqALBGn/6 QW8iu0lryM7rBGeC/VObjod3vHH08S9OO5FPkM0M6mzIIjUJDg9+/Ml+xnYd XoJWDPul28+GW0yR8DS1SQE4ctUPcTmcx1D+AceXdKHsnWv6nPJQfJo6fLlh hdF0ZEsJsy3vI60efP3t3ympyk9wW6iMFr0X4sz7SqH0RrBCDmvRnGBX9X0I y4eUJv9a7ktsHd+NakkD3/dUv4jQz8QSbqNovq1GrseNn7XCzUHVO9hP6o32 vXchJL9BxJ4uQ8SptTSD213djvmpRlFdFUXCYgALj9hh4FY8SW8Q1BVKmGhg KTtA2FtjH8ILebVSj5RQT4bMCajgGhKL3pzH8n6ELmo4ICwEYfXHNaOZrA1q Ph5WAeKWsb81M8uigiyLHtWeZtbn7qN7gAXPqOrbPaztwQ4H9pxvi1f5vMYi U1sN+OS7GV1IcCDdDsMXrcTqTfbw9osidUjuZ6qQEuSCmfIK6DZ2G+5+KWWT xmzhtiT7O96FB8Lv+jXc8Q9E9MefKKiS3FrwPzWbuBO2CllJsXh69ybuPo3C t+wyoaRaGncJegMYL196GIzPsUhfPO8aCqNhO3kg+s04gg81QntMXVYorMYw Aa2sMla4seUycTY1HwFb1VlgZ+aL9M+9IV/JX2Ky0qYvAeCQU8Zy7w8SnTVs funEip40IzZh6Xkk14v10tofD7Flakc25BmwFtc/lgkQQ4T1ZL79Z1ICol88 xv2Ap3gVm4BvKVkormzg0e7qcyJhN0eJbeXWP0XgrUTdUpuMk6u5ysfQHXj4 q1qsJzYxEce2CWyzxsRDZJe8qPkYJR7mqIXubRbi1OtCXvPVZTMO/qh+GKxx CkkNAt2qU57CeIgsXSdgeI5u7ZSgWyZurp7O7sSW7odN12iCTdJj/+FviW4k z9RqMNbe+EacAp50jQWxOLiIZPtaY+baq3+A6ld/vo1VY9i11s2Gb0dAcqUE 6epQmpuB71/fIzLwEe4/eI7wuA9I/p2DkqpGnnQ1vwNhPq0NNbaTjXzIOLdI uqpPOLyUNeJSY60Rkl3P7b4kWYpcfIl+jjs37+JZ5CfkVPGdO4ySqyxGTnoK khPfITToEfz9niA0+i0Sv/9GbiELiN1BePpCPDJZQPH9iTute+a1JMZodtAB DCCIebLdoX3uPf2ooGcrPsNDrw9Npo1dcpbUoISj1/16gu0z2G5wqf4GuMzE JP9RcX7GCc0+UOirCa8EQXHWpb6AxYS29HCLrYOow82jZBEaF6Ym4U3YU9y8 cQM37wUi6n0SMktqJXL+RXiyew4Fimo73w2fKkXlSq/Fop7UnRmrT7MwonIl NtFiHrq0X46LH8r4DtWiN77QIaGH4lTYs+kS0cSWx8JuGNt5INeTpIJKRF42 5OPRocXsNRikDfc3pcJrZfGMnhgqTe3i1lNvaJDMv5b+cB9GdmJ3oHfTPo2k av7xFdBQU4b87HT8+pqAqNDneECGCgJDERP/CT/Tc1BcUcsmrf93zSuCWxch 4f51eHl64vRpT5z1Os/8vLe3t1Rz5u/z8DpD/v0082/c355ncP7iDTwKicb7 xG9IzyslciFuOW5AZuR56IxkzEzz4dh28YPYRUNersQbj3XoJyPP7hEbqI3j 0UUCjCTD0sx3T3H93gMEhbxCWFg4IqKi5RETE8O8HPM6GpHhYcw/hyH02X34 nH+ODxmVbMNRa5THeWIc6f6S7YL5J54j/rEP9pnuhuPxE3B1cISD7R5s0V2C eStscPtdHmsEWqIgKRQedluht2YdNq7WheZMVWhoGWDzlk1Yu3Evzj75SORO XFT3P+1BG+7a1+e8g4/jViycr465qmpYaLAVFpaOOH0nhiCkithvFYjw2Ei3 zcuqGML3Q7mo+RpzcN9KE91HbcXTjCYBVrY+C/f3zqApwwGLj+BdpaSKq8Nb 97UYIsvCFvQle7cbhFtMNj4b9pClSkZl7S1kSd7iukzctp5BBayz6k48z4Jo zau/4fTGKdyOpUHYxkIasvJOHqUM3yL94Wq1GcvmqWLq3HmYM3EkBg0bj5nq 8zF/zhwsWLkJVkevIPRTJs3DCXazLh3XuMykwmQj3EqulXAiqvH6yGr0IxpZ ejaOBtE8cgv+ZxvL8Z352bOeZ3Hhyj0Ehr9G3JtYIiGIjWX++/UrPL7uy8ju BZy/9BCxv0rFNWEMobITguBzlpHh208Rwbw/NjZGhopXC+Zv5v8yXxX54iGu MlfB0ycAb36xAyuLeWKmPYZBbwW6MWnGIRYSmkeYyQ85hJG9psD87ndxc0F9 Gi6bzEPPicRLE/cG1aTg0o7xVHsO12NtZgsJAkQeXI4+dI92Cwzb+5CUi3h2 1ny7jZV0cqodJmx7QItTAjurf8HXdDzrKi2wRXiBBDsrP+Kw7hgOAHkkdt+g i94EdjaV4HPobThbbMSSOQw756lDbcJwDBwxEWoa86HBsHOR3hbYut1A5Nec P92gmh/wMuEWS6jtxMPf9RLRBROO2S2lsi4lx3jF0XmcP8q8oyYfCYE3GJ1y mmgXeJ49hwve3jKC+mFY6HUGnozikZdQP+d8GKsXGo34z8lIzS5EdSPXCqtA 1U927C1Yb9aBupoaZs9bhFXbLGC77yT84zKowmYVKHP22gJ8iXqE04dssG2t NlQnjEA/JRbEoVmLrhgxSRWqajMxY54WDI2tcfzKCyRmVyoKbKpH/Kn1UJFl wYF6m1xHep3ApsaMp9jQswX1ioYYXKfbeQU21Wfjng0r/krTyd6wJpFNNd9x dvN07tYNwOazb0jHndDB+CsO9y4wpPK+iUfBYYiKiaWSS9RjbEw0IkIDcf+K F6XTlUdxpKOgLyeK/8zyCtMFDCWTA+wpXk+zrnNg/yKHo1xLFCW9xGlrE6zR N8QGw5WYNWsWZs1fBaMtW7B2vRF2H7mMyOSi8dwvZD2zR38Cw9JyHjziCnn7 S4qvM0lw3VIF666wa3l7clcp7ZEtBvWYCftnaeI0T/E7HNLtTzMXahZ3Kaqy mBNIwUWdoayBbTUQK698Ed04llc//PdjDBXC0TA6n0icRMHLS38Bk3ldKK+m W90mYb6Y9/8dAB0OQl9WaRlZH8Wp+3Z0m3JKfDC8jzlg12Z9LFSdiGG9FLn6 gSza9h2GqbPVoT5jFuYvNcA2C0d43gvH97xq7vvZKemKKjqTw+bN/2auyTjl B7hojEXHVq3Rro0CRVQhc9DSrdBOURHt2rVj3kT+VqD/v40Ch3cso4ie/YYz t3opI8uOuOAfjZTiBm6oqg0KPgbAdvkU9FGeDH27S4j6QZtt0VCWhvAr+xg7 uB1Ohy0whwx6NJ8I68fpHOyrAjUEL52WQWX4CPq0CxhjMGZIL+b3O6BT1x7o 068/c8L+/fsz7+2r3B2dO7aHYpdeGDZ1NhYs0MDsySro2kkbHmFsQy6rVUgp nYlWVRTp5eq12IetklVn4m3gTbjb2sDOyQN3Qz4ir5YvpRO+lCD+1kFojxyI LsPmw8zDH2+/Z6G0uhqV5fn4EfMABzcswKDeY7B07zUkFjWI7W3/i2FvzUk8 Kn/Ad5sqWjBPMsr4MpIKKlBVkorX98/BYtU62HoHI7Ne3Flc/glu64ZSazxs tQc+VkqGNvX4esMK04YuhEdClYgbT5YC7qHZm2bKi+ASWSS4lsUR7pjVtwXr Wo60RmiumM8jtZkLy9mleF3H7MGrQskiKGln3MrGPsoaOPgqX8LMViH62Ab0 o7IqgxE7ryGVB7hrh7qc97hipYtxnQlguwoWrt2JwxfuIjjqDd4nvEVEkD98 Xfdiw4o5GNK1M5QGzMBa6/MI+1kqJQmI9M7bFMoUFUcVtgG/xZS0LPJeumIa ga9hJGn5qUhUCn3FbSn082OHxVBqweFgtVZCz1690bd/fwwYMAD9+3blln2S VpSJ2HWJrltjC0jsbPTbc0YY3FURij36om+nDlDq3A3KffpxotgC/fspo3vX Lujcpx96t2uDVl1mwupaAs2/CLkZ5rwp/nvQkzlGs5Zk+XaelDLHx6bsQGwb NRI6pyhCsVDzJPtWzpti0oil8PlaJ7KXoYWPMa0ONB+oA8+3ZQJ7c18cwvju FNMKrSc5IaakUWRvZSLcF/Sgl6DPdAfElEuwt6kUYe7raMuh9MClOPlGcq1r GYLtddFTinUiJtj6IbdeYG91Riy8dy3DCEVGLSuNgtZGC7j4+iH0dRwSEuIQ 9vw+LrhYYt3SWRjYuRO6DJ2NjfaX8DqtUgLBuByR7hvZgkf7+XAOyhKg58kA wRglaRq3rfVl75IQKBV/xJkNE9G2dRu0a9+O6GwpOV6PMY/ZpgOjHxgNJifo sfZo34oNgqTk2qH7wBGYMnsxDDaZwdHTDzE/i6T0uXtKuqsMh3dgfmYYTK5/ QHFNFYrS4uHvZgsjAzP4vk4TMZ060EdICrmMPeuXYCzHAemuIzBXWx9GJrtx wN0H9x49weMH93DptDN2m27GqqULMXfmXKjNXw6j/ZQk/KqkkuhTmN2fRbmS GW6Jl9kSflDDT/isZFdwdx65m3EGmyTuaTXifY3ZjHaPuXAIyfvDHY49YSQs t1YxvYRf1QKyfvrzY1jQrx1adR6ICTOnYVSvzujQsTN69O7LSbo8+vfpiS6M 0m3fdSgmMe8Z2U8JbRj70Vt9NwJ+1v4f/YMG0YfppmqJ4Dxec7elwpfo7wKt 0T3Qodc8WHo9RUJqPmPnqlBZloef717gwoFtmMf4l4PHqWOr6318LmoUKnAZ j7GKLOljRG2GM7tMWrxHlXh9So9mRVoO1Me15DopHomq7qc/1g0dhbUXaalT zIgW4qmTDqWuwuQd8P9VK+E3kKUwBlBszqKLjd54h5QheKZVfr2HzYPkqa+t bnqPzi8LTKtJxknDKWwxV2M/wnLq/1DKpzVHsipKXhlrrn2SEvtIK/Ez6g4c TPUwczDvLHTAsBkLob/BGBb7XXH+VgCePXmEgPvXcNrJCiZGa7FikTqmMzGl 2rxl2HrgCmLTK4VuJZQn4cYxJzj6JZMn/49+BHNNG0vxM/EdosIjER0Vhqd+ V+FmZ4SpAxW5BaaMYlYYBd09pAM3HNGvX8siOjqaeQzmfyIqLAj3fT1xzMka 21drYnQP1jpJteuHKfMNaX92ugB9zJjF8p94fuEwtm/cDNOdJjBYsR5bjC2x d99B5k5moqGhGHF+F+B27gFBqxVdi3oU/PiAmLAQvAwJxauXjHd7wwduR2yx do4K0XzcaRkedRwHHVM7uHh649bjYIS9CkFI6CtERL5HWkmNuM4sE7c2jKL+ dbv+RniYJpFWY+Q2/poVxneQpmuT73wsFtnNxOWBB3XQWUoJ43Xd8Ca/QUrY dfhvPQcZ5AY7YyIdnR4Bx8BMnmNl3wKwV3cjnG99IJ0rPPR+2YfrWNNThmZ4 V+4PpvkuPrys+nQTm5ZowORZlrA6riThKgy6kMaYPtA5GE6LKsL6j4o42M3r z+4gk1fD0bDsP6KyqJM6VHhles3FsdgSicpHE7JCT0CNNsEPgO6RP5KCOcGu mNeFVceySw4jprBRUFY1v8NxcPl4tn18whqcCf1GjiTLC119Mb5F3YKV9li0 JAt3J+nD+U4CLbvxrlNB1DmsUGJz3DqOknU1ohieYdVktq7WZd0FfJeMmpvq UJLxmSIz3/U5AXuzNZg+oB0rHbKQGzAPxgc9cO1xBD6nFNFUpugtNKIy9zvi 30QjLDAAV044wUxvFrop8NLVglZnVNfa4sztJwiPjkR4xBt8TSuiqWbRW8jD /S2TaZWnZb8dCMqqF7wFNGXg5nY1THd8RDbi8XPo5XHeMFisCetXBQJP8yO9 sKwjSX4MxvoTtFQv8rQ4HGZTu7N8a7cAp+MKJXhajCBnTUqdFgO1cCahUoKn ZKHZQUwhld3mw7HpzHuSkOE/mvpgP6Z34OAhdU8isUwMSCt/BMF20QiaQu0y fTN8o36SwoPAUyaK/hx6GWYLhjPqTg79pxnC7cFnOj3P8zQ72A0L6B3og3XH ImkTkxAn//KD1sj2tDWizzYmhBaiOnkWpjU5HlERUYhmgtvQp/dw8eR+GKoN hqw0t1BIBh36L4L95WBExsbgdXS0nKCnYhAT8QJ3mHD4yP49MFo5F4Pacz4j c1MHT9bAJhsvOj8l4JiQjXiOGvTOdBy+HcH5EqEX4+Yl3TsMw5W2eJpc0po7 ZGNeAi5arcF4ZQ4tuuskrLP2wMPYbyiobJATZL8cWZ8jcM3dnvFEVmD+nNWw 8XxBQKVFj6oyHvvnD6LGrZmcKpxD/my+jjmtT08m010NR6KL/rixOeEemEdT Ef2w4lCk5I3NDXHD/G7sjZXRdEJUfqMU7z/UlWTgy9toRp4jEBbyDHcunISD 8XIMayehWdupQMvUESfPXsfDoBCER0UzLAlHxNtEpJfW/9/8BzJ/ZE0XF7XG tLXXaDOB6FnW4ifpaWLUTLNemnCX0Fylya/gtmkm2rTsgJFaNgj4XCiWSxu+ 4/wSdlFSx8nOtKIkZtw+4+T8nhDWHNdAcBxIg4L3+hlQcw0hdJNcrP7rvgNm EDjYFlNhc/c7ue+8H1ue4IN5pO+Tkdxu43YjKE/CbS9NhOs6dqNlt8X2CM+X jMrKEOKoi+40rtHG6ai8P6KyyEPL0E2GbXYc5fCCpBj5rT8oS8Y9p82YOqA9 J8a9MHvtHnjcj8DXrBKq1divao2m6iL8ehuEC4d2YcWcaRitugZON+O4zsJa fLm7Ez1adcBoIz+SQ/yLzyAusc6D394lxJESlnk1m7oPEexXCpvFG6sK8fND KK4cM8HMbqxXLdW2D6aucIL/+xwJACBGDBj5+xz7Enev3WVkKwY/8ms4trSg Bk9nTGfuSUnjQieoOT6jq1LEOfU6xHsbojVz9GYdxmPvi2zOnMsgJ+ostHrL 04SF3eMUQYfWp+L61qlUB0wxvUX2JUrUi/6nJRezx+UIttNCN3qc0bB5QBeK iuqBuYRP3aC9zgF3k0rFBfK1+HxzD205lWo1CWa36XopQfSKYmG3dgnU7Wh/ FC+tjfkxcNLsQj3+Cau98LVGMj9ci0/e29Gbdp+0xvSDL0UjyyqD7BAXDCP5 c9m+WH42QSx4ytJVLhaT2tGgcLKhD35IlBzrk+9BfxLnks62R0hugyi15V/h tWEKu4K0x2K4ReQKedzG4m+MWK5EL1nSwzIOm48FIr1G3MiZHQHrRd3Zq2dw HO/LJEx6/U+cWTGObUzpuwPP0mo5gpPHrURawiMcWDWF2/TSFctOsAhfAv5S 2Rd4rp1BwCkEmVQYZUVy7fQd2vzvEMM5lnUdOi31ojVwwTYz3xjjtRGDF7oi rrRRSN3nvsJO3SXQcn5NbCXPmoaMEOyZ054mC2dsvUpaxf5I3b89uQ5dSNpC uiM0TkSTj4o3n1Eoj/azOZeWw7Du8lexmvz9AbaPIvqwFWYzUpkmWWn+eAVL 6M5G5nMLXfCmWCJ2LE7ACb2xNPPZrO9KnHtbLPClPj8R1220aHlXtvNU7PAM RXa9wJf6tEAYz1Jis1RGXqQJUuRL3VccW6BCv1ZGxRpheQ1ceCeH4qhTjKJX EO5l58kmeF7AJb8UUF+Wg6S4pzi1dw1Gco4iqbH2HrUUey+EIrNGAlen/C0O TmWzq0rDN5N97WJQw9zFwEPbsdjWD+m1Qm6nNpXxMQ0ms0ktAvk1dzsuvPqO skZxZXxD4XcEe7tgy1INzDN2Q/D3Ms4ZYa/Pl4s70Lcte6ypjrTvS/L65L46 hhFEA8v2xpJT7/64Pgz3905TpNyfuPo8kiX29DX88MeaKWwXk5SqDV4w4b8C L6dNuXi0fxnpaRXkVHaOJV6ybTbCHPr/nxHNjzyJKeSeN++DJa6xEuO1sqhK DYL5BHLSntBzj6F5LUFOqzMR4LgCHRnT1XmYPk4FU+AaySA78ugSetdbdFlO d7cLPSrJt7GUlqRbY4zZY+qfi1DQJXh5fDWGLjtNNvXyifuqT7ewZrQ8TfQt OxBIN0ILyaA6RhlvYUtH0p0nweKJhMvTyATuh3XZdqJ+K3D6DR+OsWzKfHoI MzuzHWXbfN9LtsP8DtiD/tTjVED/3Q/pKeU5AapmBOiw4Qx04baMKgxZBOtL EUgrbZLiZbjs9xtcdDTCjOGq2HzyJdJz4+Gi3p2+f8AcR9ro+Y8sZi3enzbB QEmLudgFsZzF5H1Iojey4h/h4Lrp7LZGhpidR6yAy6NPxCER+jNrP8Jm8XDh 4jVrNRy7HqXyYAWF0e4YSydrO0PtEKsn9/O0rP7BqO/J1H3sruOOj6UiD+pS HmDDMOY+yw+GoS+bAeVnbP5uELNwY/VM7iYqYZFHJLFhwv1tSselHQbYdPQh susg9szm4YGTJluHHLIY7m/LRU3MOGIn1s9HPw1XUhIV5LEuHVf3zGYjm2mb cedHnShAZW/huGgAjYgURuxEYJa4Qa8u7Rm295YGC6jjg1+SNbiqn/AyZruP Wk83wcNUiZx6ThiM1Nk+6/YGhFhNEkMXVYg/vw1DqfS0wkTrh6RbTTD3dXl4 dnQN+pBbKd8HyxweIq0GwmRDQxoums9hxX2YIS5/Kpfw8GsQ46KPXiQXJT0N zi8zpfgFbPVFcXDVH49W0v2w/f4PHnOPXNRXdnqkuCrIV1v9C/jBYrwJ1q8q /hym9lGgFniMUyBNE4jWrwnJd/agZx8deMWXCNav6hOcVs7BYG1P4iMIrGDk 6IzxFDZSnGuOJ+lik2lTYQSsZinT1zpMtkVEgThzWvntHgw7N6OZtOmGN5EJ CVaUf8ax9SNYcqtbIzhbwg6lP4P+dPbidTVinqxKcv6lHNFua9lOATKMceAF CS0FVtRkws9hGeuvtRoM/SOBBMxGYAUjax5G7JM0H7sd939U/ZEeeWW/hG22 U5iHk6/zBeuH2gQcmtBFWCQs3VsV9iF5bfmrXF+Cb698sVl1kPiWNsqYY3YW sZm1y3laZQViW3fWpDcngLExxdxzNWek/Rl2L9XH0fAs0ZSnR8BJdyynHeQw cJEdE4SW8Vmt4t/hOG2zCfNmm+FSVAZ1sYV1jmTTPRcVyauY4mlGrXhDMgKx oy/JN8ljpPZ5/GyQYAuZhjJjVXPLKVvhlyJxQ/IisG0BBVWGot4xvC9pkuLp XhB5CvMVpAQtJT14A65/KufBuv6ZhRskcKIa73yN2ExqpzEwe5opholNpQj3 0Kf1D4Xhq3H1a63Y6lqbgmu75lD/pSUj2WeisgWQw4yndrSiI9WyHwxvf+NF O+PpPvSkLZRdsfRiIqWhaNkYRX7RFD0GrMG1pCqxJB0HG26KpbO+K+KLxdmA 4vcXsaSXDFUSEzYwAa6gfFjr9dPPAVPpVVfBVhZORahH/3oAvUkd6HUdvuMG aSsQKF8SdQKDSVGOofdMtyiJHlEmmM+MxMGVo4XKWMuRunB/mSLRq0Guahk+ 3j0IrdHTob1UEyPkucTAoAVwjS39R0atCu9OGmOwpFFbcBjR7FoO7pdaMBch GbcddNFNjj1NC+VZsLj2juIHjeUJUZUA28UjJSzaKFg+TOEtWmNuCMyHEL0l i6GaZykm236eEG99sXygDLU8K5jAXTTxhIyMZBxfQQnRZsR63P5S+Q8tWgme WyxkQ3OSRFjuia98saU5yiLdMH+VAx0WEwSNdBHqcvVXtV0IypZUrfnw37sQ Lfpo4WxCuehelSHsxAZ201CHeXB6nilRkGhC0ZuLWDGA6IbOWOz6iug04U6W vMb+8W3ZvMIUxtrlSApVBSI9NqErLTqMwAbP16JjK0vDGaN53ak8Ljj0nOy+ FSCemrJCYKLGam6p5tNwMChd9JfrUnDTbB47cCc3Cps8IghSnNDDQyB+zpmw e50Yq2V/j6K88OJazIjrhJ5yVD8vOh0tseaPMWqpz2E+SwXjzW4jtxEipG4u /HYt/iPN0M/8Nolc6Dt4o5Z8wwyD2rJZxS032UGt3txXF4Udw5AuA6F16g3p +RGKs01ZuGo6G/KD9JlrXC0yhHE0D+ixQWaXJXALz5NgSCNyIjyxqCdJZChD 1zNWco6tIfslLIaxxY/ec2wRViDBkKZivHA2YCcVWk+A8cX4P2ag0p5Cb2on 1i0+EYbSJgmGpD7Fuols6kNafg7cInNFhlQnwXfzDBaPUX4idni/IQZdZEgl olwN2SCz+RwceZYmWXXPfXkIKrQy2xU6vnR2kmNICyqvjyxVIdeM097NB2CF C41+ub1XLVDx8yUOMgF7az4pI90KQ1cexqv0Gqll/BFKY7B/jBL1yaTk+0LL PY7IhBjYFSP0lDHUdt4jMCFCUFKZjKuMoPHfLDdqLS6+LxKWqlelI/DkHiye bADXx3TQWTBxxe+uQHcQ6aPuiAXOL2nZRCBz6Rs4cUmNLhNM8DTrzysTc3Yr 6yK0YAJyjyjyWeGjeeHYqsE2zqs7PqaI13wYWp8ZCis1ieRUs3GwvsFu6vr/ C+YEU9dIsP0412roClz8XCOYOjJ9fEC1E801DlngjPhKERSDbE7j3a4uE3ci 4LsYrVV/vAQ1OmrcFhN2Pf2X7cSViHDRZundcSoOMVLfm7uDmU8d0aezCgx8 EyXQlFPhs3UO25k2kPHCkypELdhUjrc+plAhBq3rbBx6mSFYrLwwDyxSZINt 1V23kFYnwZy6JBxbPo5d491fF2eieWBIGUZ1HMcAkl+VGQO7oHQBbK/qF66b z+M8IYLyNht2j77T2FdRUCG1+HxrL8a2kRVUCJnHXev1kQo8RVT4z1bu7cnt GPRvrBx/H1DzG7dtNOm8EbVgPdRgd59Foh0j3NgP/8PKWTz6LYDM1afi6mYW ybDDyE3w+93IDUmwGaW4U1vY9CHjwVgwjkkNhGCq/Mst6NEcixLULB9Q1B1x MvvfVSVlkepvhzFcY7ms4jL4JPB4f+zUmdviNdjP2OpKMd1d/fsJdgyQobZ4 3HIPfKnlDR35qRIEOS8BnSFwfU0jz5HCEzQg+bYtt99rJLZ7UiArUb/WIcnf CdM7yKNZm5nY//gXYRGvCPNDjmJGKxbRs1k/dUZIeWwIOWQGHYNGK7bBTU55 NiyvxqG4HvxzVLw9j/l9Sep5Mc5G5YhRA8nq22ESV++S7rged76WC01L2eGw VmU9WynmPLbsDBNP8MKos1iiTAjXAVoHntNBJcEpLgjBltHsBICSzjl8rxVt HZ0Mf3IYc8YYwCMmvwMvPQ2/4LlZVdQihLgHnqKkUSJ1yTgALywXsHZdVg3u EblS/Fa/irjTGNpCHp1UXUjGRZxhzoefzTyQMb1N5xIo60V+1OKj904WNUBq Aiwvf5asatDt0jesMF6xBZoracAlOEO4remPHDBehiW49FBtuAtVY3JrmpAS 4ABV2rHVDHIDFmL/vQ8ob4QgWcXhbpjZnWFkJ11cii+Q5Mi3q+YY0ZZzFHts x+Pf1TxHGtOCYDqxByurSowIBFKDxnMkJ8gVc7uSQ3WBnhuLGi5wJOsJVg9S pAdSNrxKkKMljF09vtzcgfayXIsk88pkPW/8bBRHTOp/BWL37P6sIZNiA/5h G87iU3mTlLDVvCkHDyxncYv5WmDowuOkuMT7jAVxN7BddSvu/uR7Ptn2tIQr OzFEmu9gG47NLISFuCwaBYjwtMTCyetwNowFghFrCvVIfnAQqp0Y17jlNNg9 oD4Xf2cKXx3HrDYs9pNU79lweiUWmHJC3LGwNXdnes3C7suxZMcKz6GqeF9o 9ifuygJ4hGcJmXgmFLxgNl2CDu2h4fiEjHf+X41dRTxcprEwSr0mWCGiUMxc lsT5YL4c25AzVec60v549CakPXHigEJaY8RGX3yvE2ZgyS4Is75swDBY3RPf GiXtXSourxhGGdWq5xrc+1Er+IuFYS7o1UwByotOEwEQK4DleOWgh17UGZoP t5dZkqJHxlMDHHTQWb4ZOk42w4PvNRLJCcbJcdZnby1JbCyyR2hWg3hdKhBq vxTK0mwWu4uqMa7EZkkgWsnSZ/3otQ4dGdPSdpoTYgsaJESoBkm3rVmDS0/X BeqW/nS4Q1Au9d9xRne4BNc6YNbGm7QV/b9gAflG+Prc1zi4ZLCwmbId47dd 4tu8mfPWJ8JOc4SE8RvJGL80EWGVMXA+G9m6UufJsGSCIcH4NWbgsrk699HJ sL2eTFSZQH7G9F4xHsc6TMPWwDex6h8YP+ZrswKxbnxXli4y3aHpESMCE7Ox /tvThphtcQlJZY28Yix47QUNqtw6Yd7mBxT8UbR/RXjmug6t5RUwYp0r3pQ0 CS5Y7quT0G7LUn+x9UNqotknaEu5+CPoFFYO64Meg7Wx72o4fhVwYHLMMbIT H+LA1pXQXb0CE1qwmW4D709y3MfrUgOxQ42tnnQcNh5qOiZwOHEXb39kC9AC 9UWJOLt2MlrKdsOKIy9IJlYU0QIEWGiykR3JQ/U1R2BmLT/Vkf7MCeM6sKqi 3Vhj+P2oEv09xjM2m8um5TrpujIXXqL2zQjhzXWsOyPVYQueZNRJCfsV6xhX Z+dCjDPwRFIt2vMCV/YB9nqig0Tq2msuvKWBh2AGG3/i7DI2A9ZMcQPufasU zGBZ3DmMUeyIjgMX4vjbEtEM5uLufl2GLfIYv/0sPkr0A6Qzxlhdni0qrjz4 goKfi2ypwJeHrtAa0gs9h63EodvRSC0SwNCQ+e4u7I10oLtqKUbTPPAIbL35 g2dLzfcAbJzMRhydRk7G3JU7cOi0P96n5EHgbcE7HFs2CgryfbD2VASJxkW2 ZOIG42e35YihMNSOUY8SC1Gb8MNvL6cBGU9jqiWepdcJnMl4jg3TuE08hmfw uUxMwqIxBT7L2R7U5j3NEVrQJKQ1yz9cxvw2zQUWdJppgkfpjTyH8qPPQH1A a1GXtOiNFYdDaNCqLZysEanPHDGQK6zI9deCW0wJb1uaCuPhYaqFVb5/TODW Z4TCcmp37ocZTTjfDqG5jcLyC0ZIw913Y6HGHtz5XtVK4ub8Cj4D/RF90WPQ EthcesXcHH7guxY5nx/hIHNz9NbqYCJlc2/onvvIs6gh4yXM53CT8EPHQm2F MfYfv4M337NJHzr901D8Gec3TEUrmS5Ydug5Mmu5yimrGmM9txK7IKjGNtpH 8KaQ3Yg3kDv8/59NrP/9AOsoZqMchs3zQnKjhM4i7tWj/eghzVrfGStvIYPv G2RzAmdWDmOJ2H4Mdt2gUFCC6av5CLeZ7ON2HWWGFzlNollkgnXrMVxlXGU/ XpeKaZT88BMY0lKRkeIV8PpUqSJxmM/eJhhDjc8gmF6k4+0ted7UZ+LFyW0Y r9yDeQ5zXA7/hnwecKY6H+8fuMHYUAcrNVXZTFtXPfh8KOV5k/P8ACZQhJLm 6DtDA9pr9+LM7TCyE1ZAdSpO9sOGwUpo2YmJNZ//ktwU3pgfBZuZvQRBVhim wxC5XCyZNODbHXN0ayayrrv6HkIS+g5ql/4bhpF1iXPCTmJOJ84XYxSMyrIT jCTUS6BgVyDzayweXveCqzXBjezIfSfzGRkljNXeAgcXT1x7FImvmUXEjinx 4pJwAdOJODTrhYUOkm3S7Fqq6rwfiHgWINUXd+7cYf7tzp27ePDiHVKLazjA a5Jz+YpjmyZwxxsP6ysUtFrMJdUi8YY5O8HRrC90XWhjmahf/2JkSQhirIb2 VBlIo9MMZ7yvFNzi0viL0Nl6BpHZ1RLdEw34GWCHPvQwytCyCSUusWhks+F3 zAmL5iyH2rrtOPQ0S9DmpR9vYO3Q5tTRH73Ji4Apccmh1qhOi8Rpi7WYPXsF TPcfhauLO066n4DjLiOYnA1GesFvPDlqDK1V1rj+Np+VI0bbViXj1JYpNDXR Vt0St8NewnefBSz2OcPD4zROHnGGk+UmaExbAMODjwgWuJhXqv6CQwYTBBls 3tOERDRCCamB0cP6Y9Gc5AyaKWLy9ptkekgIwRpz8eiAHjrJyqAlacPJrudo JIPMsFNYOnMSpqgfRER2Lb9WmfQBrxo3F5uvJhHdKkhgbiR2Le4nYVeHYuet L5RRgl0teY1ds9gEtly/3XiRVcfZVVkUxV7E/BkbYbBJC3P3hdK4Xmi2a0rD Faf9WKyujWlrduFkaJ7AjsI3F7CiXzN6hSeZXUVKjciOip8hOG6qj9lzdbHT 0ZVlx4nj2GdmhF2+Ecgp+IH7TkbQWrMP9xOLBXZUJMJ59VgWd0zLHg/DA3HO 2hyWji4MOzzg7uIMB/P1mDtNE5uPvUBWnQQ7yuOxV1t0QRUG7EFITp3Ajpok nNIayqUzO2G2ZQABFRbYUZ+BO9Za6NBcBq0XHZFoeJalIvs78CgWTJ4ENa3j iGNe47+2oSgGB6YoicTvPgdOL3PbC1e0BK8Or0RnOWlBi7TqtRye72hzgGBV 67NDYTGKa8pqxtwKh1d/VNkbCvDykhNWOVJ0BL6vky6jv2rKRi40PhiIVc4R tPVW2BBU+Q1e5nqYbXwOXyq4/p3WqEmPxtk96zBHbTlM9rtQBrm7u8PJ3AjG nkFIK0zF82Om0NKzxJU3uQKDahj/bPt0el9azzXHzVchuGRvgd12h3HS4xRO Mgw6sMcIGtPnY63TQ6RUQZgUywk9Cc0OovMh1c2Q7JL6v4WWZbGemEjghpmv H7uKnXeXbP55d3ELmkuz4eOkZd6k5inWf0iDli0GSLM9GL3m7EdYUaOgrJl7 e8mQdVPlBy6Hd2KloMibfvpBuz+Ladtjpjs+Cw1mrL3MenUOGjPWQ2/TUiw+ HE20LD+gkvbYCTOU2Hh3kXMQXdrRiqcqc1fTY27CXGcR5i41gp2zG466eOCU qxPMjHfA5cUPlKZH4fhWXSzbdR5vc/n2hzaMtxeA5aM70SdRsbiCqBc3cGC7 GexcT+L0iRNwO3IAezYtx4xZa3DY7zO93WJ82YDkexboLcNrjjaYZOBDOgu4 3WpyqPp6B3pd5EWu9ZqPI2H5/4XQUogLSIRnMkMc9ZMdjI0+b+lJVfj3VGUh 9sE57NmigxmjRkBl7ExoLpwNlR6K3HfLo5lsBwxX04S2+nQM66+CUVMXYaO5 C26+/EIuDatFmftek40ofx8cOnAAe400OUPUHMOXeJDsmmhcSxF1ei2dPunH nV5Kaiwsbn+l2eVBgtr5hEOGYzn6DMTWM2+IPePz9iUJ17C6swz9hT5LDiC6 uEnqb5aVT48UhDpjfBfWpWjRYTacI/OF1gHSjf8t4Qdd8yua1Rq8v2zMwXar QP8UbQgVhTMbdw87Y/MuLzjv2ARDq7tkNQyfUan7/Qw7ZrFNbZ11DyG2kL9N rINT9CsegbfOwMbUEnudzuHZ29+UPS05bULLUcfWc0Ogi3AsrJAKV0bCS1x1 c4L55p045HUfMcn5YplKjiJ979AaLGYNWi6HT1whv1uoIOoEpnKLnmTbTcfe R3SRojynGeryE+F/9gwuP/1IMsK88SSXqSgrHRn55YRRvPEkECjBx9dj5AxT PM6q5Y1n7Xd/bJyiKIp3s6k4/JyCUYjGk4m29CezwYvCDCYAKGkUjGdh7GUs 03SFt5cDlsy2QEhhk1gRQCou2h2CibUXHDetx2anx+Ta80Sv+XafiSBZaKGe 608isVSS6A0o+B6HJ9dPwWq7JaMRfBCUkEELTyzRW1EJDXbQZUczO+rgfHwF VX2/3wXi4tH92LXFHEe8AxD3q1gUk6xQrJ/XR3hcufYGuPm5XDCSRIe9PITR XPJQvrM6DrzIVuBoWJsdj7unz+L6i68oa5CgeA0KMtKQWVhB6Ma3BhAPx99G TcIvGYQ1LtHUheXvfmOqP3QHthMjTsZRmmnKyGa9RMTJcC7w8GJOP8hAWWM/ wosaxUxOIyrz0vDlUwaRST7Apvj3OoPEX++pgQOv8vlVJjW//GC6SAs7z8WT A0kKe8nv9wi6fRa2Oyxh7eSFJ3G/6ZlFYa/Ca/dNrOJouwAuIQWUX5kfX+La iQNU2A963UP0tzxJcpCW4h3zukmQYzzs/diS1v8tlMwKOghlCuGvhKmWLO6p aAPr8OEqow+47POgeQ6IKQH/cn1mCONvcODs7UbD2IfihAh7m5ry8dhWja0C Kk+HU2SRYANrEnwwSVmesqLvqmsUUUlUM43IDL2A5dpu8D5tC635+xBVJtjA kpgzWDCQVYYjrO8gq1b0DtBUhpT3Ibh15gh2bLaGyzl/vE0pbcULe30yTmoO p3hCzcfsJyPSzI/l42PIHbjbWMBsxz6cufsK3wtqhR5Q1P/CRb2RQs5SSn4I 9N3fUT2rJBiWJHitGirBFRVsdH9Dk1L/hShR9AMbkf7sKGZ1FP3A9tP34mU6 zRVx67vkkf3WHzar52EAWWkpOxBa5p54kZiHpsqPsNcezX5UAdJtxsKO7Peo ycX7QF9YaI2luVW57uOgvfMkXiQVib1A1d9x88AmTB89GqNGj8XYsSro07k9 +k7digdpjTxeN1HhyaFXYGWyHdu3b+8DY2Nj5p+3b9sOk13H4Pc2lwizYPXq UnDWZBZHsnaY7/CYYB/xVo8iSC7gZL3PMni8Lv4HVk+OwmvZTO/DckymA6bv pUvDxV4wESdeSnEM1t39wWUxSMfeT3g5WEHvRDR+PrPHQn1r+KXUCLiZ2WGw WszWl6RnmiLgd52Q2CVYwxpkFo/R6hs8XktMtTFsLo2HnY4YVUg1G499j1Ik MCwIMZJxdvlQTonJoudCJ7wubOR74eqzQmC1QBUaVkGiHyKHkvjL0B0qJyF5 C3E6PHcpdyhS1J83jO0dbKl/Fl+qID4rycG9cMM0w4t4++ExbPW1sN0vVaxE f4Wr1R6sPxeH5PsWUF/riKBMcfdG6nMYz2XzRLLqe5lYsJ5rgWMNwG//fZhO IECkBvNJH0GrFETBbJGoVKVbTMfhl5n8IxH0oWML+EhUHv1WHMf7Um4jBLky tfh005wDomPfMmUDu6NFvCiMo7J1MtFbYrPr2I24/YtmZqW0JA5KVqWqcQlS qU5M3PU8i/fxK7/egk4nkbhtZ2zB/V8NvPYnFivRywKztW3gn1rFC0J28DEs VGLzEoYnoqhCFRRF7S94bVMVlQkjvhpHg2kR9/9PfQ8UHqEeiVe3QJEM9DXv jpnuseSKiRq8Eb8f2XMIUQRBeTP8fjcILzfkwN9OnRO6FhildxqfqyQ21pYi xFWTxcpRHIp1d34KGjz7hRMG0b4AefTf84g21YkavA5fHzhj5pYbSPx4DztX LsfuZ9m8Bq/5eBnao9gZyDYGp+gMqZi6qUS44xJ0IQeWX4AzbwqFK9KY+gB6 ym0lrPEkWATnduKJSwDw3XXZ09L/tMLMrVfwq+6/ooX5WlljbgSsFiqLp5Ae jC1XEqiyZzUbUWAV+OjvjMUcyp/0IC0cCkgUsfprPsBWcwT7My1poWv3wxTx UGUpCDiyBr1paVMOyhON4BOVyWPHET+huqwI2WlpSE35iW+f3yOGiaGDw+KQ Vt40RnigJjQ2NqKpqYm59OTv5mhsEBDwxcweWatqr8NVEZqh25qTpOlfqKNW EsgubtWB9Ahs9Ywnt1kEnv2LJiZ9hkdWQFGOzex1ncD4tnmNgiZmTG/APk7/ d52EnU8yOO1EVCYTEe03hebFZOYEYdimZgArb5bKQpBd9BYOeuzopNToTbiS VCnIUUPKY2yY2Z4Nykwu0s2Pgjqu/4FThtMk1LESFp2kEwlCSyq5V0m3zKDM NTE0azkKW3xp/4NQx2aBeOwxffJKHBMjjsznR6DRRkr8ekVD3PpcxuvkkhhG 4QxgA5LuWyhEh/jUDGc/+9thyO57yKzJRMD+rZi/0oeCiY7m38M8tbXNDujd +s0IynMYTl8Lp9tJf25MzI2ExRJOh040IzZMoExd0h2sGN+aGpnxTARHWoYF ytR8grPOOPHoMj2w4sJb+tQiZarx3nczBy/LUKbNZFjcocjKwuqjkviLWNpK JEErNVMC9Sbq5yZ8u70DHVs2E5uuuk/H7qeZ9B28095Y+BZH+MdglOgC6wek /VNBOEkT0p46SGQemkNF+wjelkmu64rGHk0dGJ+gazd78eLx+yk2z+pIpVJl mzeSq3gl3Zw+YIzbBoKjIrpZyzyQWMHm/QdwX/1v0eclFXWVqKhr8OasHtqR TK6CMrS9KaY8fxdIlnsxb4b6zMWBsHwJN7we3+7ZcMAuTCg/ygDeHytELV2F 2HNr2TY3hYHkmwVB+OW/GwMUWV04/uBLKuLKAvmYz93Yg2F7H6OkLhVXzDdi 8brrBH5e2L3R8CMAKydzmcmFRxBT1MgJqywyGQdpUHtyPbrD4FKCRH8oE3WH HsHAji0EAWg5fDkufKruJJC4ESmPHKEiQeI2GpYIzGR1LV1S+99R16RX8qbl QjanwWm4DktOIIExOqJPUYEPdxyg2oNLUXVnItZnrH8mLajB97D5l+aE3Q9+ CXCldbkIPLYe/TkedlRZiwuRmScFFjYg6eoeTJDlTjFkG/y/Vwo6loly/Ry1 ODvcFurM/c9o+KuO5WvvFe8vQFWJPXdzpTEwe5wujj3UZ+K2ObsDWqrfTDhG FYuqhvRiOBhh6+McEJ8q1FYPC0z+H21fAVZF17UNkqLY3YEKdmBjt9iggGKA KGIHJqiYGFhgK7aCgYqIHWALqAhISIog3R3n3P/sPTN7xu976n2/5/e65FLO OXNm1t573SvvdYwDY5kaKYzAnvlCcqLdHJJ6k4C6NBwus/vw39vXnrbjSg5w Dh5unCr0P/Myb2h+hpa5iVqyNO4O5jQVjSt16E3iDm4u2KB2ThO5zR6HAdOP k7p60QSIumQPQxVJsai0XwnfxFJRt6a/3I9BLXiNbbDJC+kVct1ago8X7TB0 P3EHlMh84YZZ42fB7WuhpFuTnmOjox3WPM2im+LB6mkYb38RMUUyoeR+gaOF sBE6L8L1qEJJKEXB2DqFb7vTGOoE/7QKmVDS4bVsDKuhIPq3pdUVOj5HFEpB 2BWY1lFlr3eZ6YZvBWwaGuGY3jW6ifT0dcfA+ekvcavnvHdFp9rSoVNR6wTL wzwZsxQHycMbNythYgqnmYeuwv2fFVVlQvpwwhJVmUrVgqEZdxNlMpXKXfCr 60IMstxJeKtElYqySByexzcBqRlyV00oFfIHmsjwO4zxLdQlk7/xfNz6XlyV XbEc2ckJiI7JJDcrftGfKdjyKLhObI2qbSZyOqW8HTskhXjlMpUvdq/VFla3 46QES/obbBHVmHoHzD5InXNRweaHeWJec4F+QNMQKy6Gk/voxA5vOUKvLecL j9RaY9KRwN9fViLi6hK0JkdftQZGnQggmoOpWU7iL0/bYOSR15zWUyLZew9m TLDG+cgSacRR8nNYDm0uOJZb8Sq9gqnZythbmKRXgx6iNrbXqXquzpQgB6Se S9CkpgyqeljhBt/Wx+Rfwnkyc+vIjk31Udj96Ne/ZhWrURmFnF6KLrL3qehM wqmPdFYxGz6T+u4MpuqLNrweLA5RkhemRv9Yy7KCl7LvOG1jxK8x9z3NBq2F b3yJqGVLvnliZjfh4lWMsNM3QarI5Xt2nh2YzXIEbeccRnDeP9CyfJr2yCQD vk+vSi30saLZIsbiWBqNM7OFooq2nKJ9Lynaosi72Lp4Ng4F8mN7Sr+exOgh C3H8dapM0YZjj7WhsDZT4PoqXeZMFcBvp1BZqDEWh17SEk+pwESJeC8H9Ksj CV671RLc5ydjyJoR43Deupt0BOsNgcP9RH3hUGW/OQXj/uNgd+kriisqqqOi ooK7UkVFPj4etvt9+UftwJtMOuCBB2ru44qiFHx9+wz3793DvXs+zeDj48P9 2seH+6+3Dx77hyCloFycPR9/xwG9he2o73gbGUxNE+cmDT6OJrA5/54fKln0 GTuszDHNkXJXdBOkmh98DRvs5uNECF9slf/xEIYMWoqLn7NlmvozHMyFzVRn JtyDcmR+Zg4erDPm497VpuF0QKbsVCkQeWkVutaQHrqmvj2ep1X+LtKCcBwz lzIPao3HwvlFCrMqKn7hhsNI6dBx9ob1gXc0MiSGrou/uKOvjCCBpN1n7guk BjdLvirLkJUQjOcPfeB9715zQbb3vO/Bx/cZAiPTUKpEQ+Gmsj9dxPRWAq5q 9cUGj+9S0TY51dl4sGUUtFQlBd/H/BgiyqXphYo4D0waOBe7fGivfzO2EQvx 2nkmP+tLfTRcniWTjSjm+JTJT7BgRFOZ79ALjr4Jko4vwdcLbtiy4CxpzvsT Hd9EWAJFSS4Swr4gICCAs2YCAwO5L/j0+TOCXt/A6kFNodVkMDZee42QL5/4 l9XJWxH0JRw/skrIoa/LFjoTPuuG8fZfbT1Y3Y2XFrAiBV4OI4Rbro5+Vu6k RFiEBWVWAHZPFj395jDb8oyEOX6DhavL+MGjKk0xZt1zsrbylwOOzEIzAqVq HCycCpRgQZufTrduChZ7fOVVbu5brDc3h+WetyRRwObBJD9jyKDamjN2fpQw ZEBFOA6M5Cds1ei8Ea+ylLI9XIy3LiaEX0RChu5z4ck9H3mHmMhUVFagvKwc 5RUV5MijorwMJYXZiPDdB+OaUoERkc58N3xMyEVRSRl9e6VCSYX8fwOQusK7 U54fwJhGqrKT0BRmp4Nk46G4BckMwi5TsfhTFbpGG/D8VzlDhz8GD7G2ozDY HWOb6Qov10Xf5Z7E+DrMFGQ03Ob2Fei0a8Boqy+p7ZDAg4PxQ/N4I4D7W9V4 A579Uv4j8CBEr+dtUEswqup1XwivhAoJPL7j5Ex9CTze5QgWvBqJ2jCJ8pcj 96PEz8cnsXzkEvgkC68r43HGchJmOvNTrplvKAcW7Uk48jKNbZ9fD3fCiE7H a4q5Jz/KItacwcRZ5+a9pYoUNZ3ecHiUyFqZiOt42lrmVOmiv91FxJaLYSVe Ik/3WKNf1wGYajkPluYzVHQwffp07qxOn2EGcwtTjOnZDjXkhASH8ZUfZy0g ixrSXu5FnzY0hK1CjyKhm+Q+oVV9GJx944huExme4m5tgKFA26bvwMMKE6RC EiRL4hcH4/AoE+y6S0sgQVu3T67DlKnr8DBFKTKM01JCfh2Ej/Ls8bFeh7B0 7Go8Eae7l0fCzdQYc139aPccWwM5DNUww9mAbLYG8dwt96RI2Bp2l0N+q4sr i7gK48412Rpo1hqMXa/SpDXI5TakOT+Ulf6tjWH2t6g/ocfeU8qpKHthPh8f TOxp507pEMVJGjnvjqBLbVkKoZER1j1IEuWPwmi4rxzEeQSq3F0Lhp2qLnpO OojgIiGyKoDhIavuggtbHf1XXCV8WQx3lMnwXNJHFpzVRK8ZrggrlU3NRTJu Ll+Jg55BBOpFxyLliTMGN+anOFoee/97QJ3b96etZGUfqjUxyJkfN6zNLqtE 0oPDWDJzCW4mKP4EeRozfaXAz6d70beuDnfi1NTUuBtVU1cn/0IVVVWqd6pw /1ZXV+Nf5v6p1QrjNtyndf4S7GTAe81gCXbuyGCHlILd3ykUhKtAq9d8XIso kbp24+G+agA7WCOWexCOpz+GnSYYzY/6lV4uw4eD5miqJsDOSQo7Ii780TlQ ZL/HniGmOPDkh/BSMT4cWIbJFttIl/IfQlHz5fBJkEERdwsvtxlDl85SG40j ATkyKMrHCydj1FeXnfRuM3E5Um6hVqWST3rngU0zp2GK6XTMMDPD9GljYNi8 IerWrgFtdTXu81WqVOHWvUoVVahrV0fdht0wwngqps6Yi3VHXtImO+qS/Dug VBRyGWZCpkJF8DnaLeN8MO6MtWFXLMGXy6vRWVN8T3tYnaD1Oyr/EJlIvur6 kkHQFvLsms3Hw+VVOkMmbr9EX1uLHkIHo3ovQhhdLiFTDp64zJKOVvcFuBRR 9FfIJMYbSqJuwLyFYH7qdoKN+zdiOzE+kNKo/4VMbFUr8hDx1ge+EdkqrDyG NEmTGpaRh/GtHGzo8cOtMByzAb5xRX8MTFqTcFgGTMoEH8zsz+cWWy++SCPk UhQlBTeXjkRNsSFOrRoMHR/TakXxqZKe7kMv8XXyt9NsXAgpZPv4lx9WDW8B 1eoN0K5bT/To3p2MqeR+aqF7NwM0rVfttwVvu+Ii4bsXNJ0aSuJeYN9yU3Tv 0oVDpC7cTzXuZz9MmLMXz2JzVUQvJ5bAUa0/hqPc8JfweheGjFLxtjlfK9YL M3ssxYWADIlJNNEX800ssOQ8HQ/cVBR+aRZCXt/Ho+h8GSTl4MX+TZhifALR 7JArEOO1Hj3HOeHlr7I/hiRdM5yRQVJ5lCcmCVWknTg8SamUSV+ZiPNzB7AW ZhWNOhji/Eo2sYecrQrE3nVCJ1nZfJWetrgVRXsuWCQgO9Ad0+tJlZzqRqvw 4Ee51JhNoiqLUa+qlCOoN3AFHgghYhZKrszBF6/dmDq8L/cI/Gp0N5yBLWf9 kaaU4ZMwYqCDGNkyWIDr4YXa4mWUSbhma0gp5sWvazZmI16k8ppDhAdFcSGK OXuZBLtFgFL+8MXsgXymr5XtOco8xACK+9qAA3Olr+WuXnecK76VgDG+lUde h421JYe6KSp/4xflR/nCYeZodO7cmRM4+amBzh310EhXA1U0ddFEryM6sdc4 SfSfg713Qmnp0V9Bk3h0CHvA9rEthaPVCQtPfyZeOKt6VWbivrOpQFekii5z OQQv+HNoWkVplv4hNGWFPoXXxyjkVkhnoij0Kky7rsCNsFx2JhQxt2A20RLr b1AKc2ZvyuGpGQdP8SWswC750Ra0JoW+Gs1g4v5VRnqkRpWW385JqK8pi1y1 GQSnNxQ6GEpmffbCmgkD0a17d6IsOFXRDT37T8WCVeuxydGxChwcHLgFd3DY hI0b12Od/WosNBvFvb0vJqzwRHzFv4hM3D4k+c0hVEey99XqsxMB+byh2lqQ OZlbu8eknaTQWs/G5dAChjx/DExibeWvpzugry2e0XoYuvwO6eRlwJQViC1T OgrlDB1h5yFrECc5kSRc2SALgHS1wYXwwr8CJslmq0RxQQ4y84rJYklZlgRc sRW7Jaqjl+Vp0hwo4VUMzs7t/Ad4RbgKMvDwyCIMWUVrFVibYVEEjq42hZGT P9FiTO8WhuDg5Gmwu/BJorBWh7IkE9+/BCEkLoPcbhvxe+V5kprT4PY6XWYZ peD4jN68W9l1LZ4klbEsWfaH4xjZUgzYq6HBgB0IKoBo4eeFXsPs2jIcUyHz QSkdtwrLk5Dc4NWVMOxjiVMB2awNm5PEEbt+so9Wx9CtPsjglLmYLEm464g+ df8En966YKjZTtyPKZY6Mkk7ocdyGJjtx5uMConNNg+vdy6D6YLDCChQsrmI pUm4uXchRm54SrQPu0juFzgvNsHIPR/IVmEXyQnAbuNpWHEjXBq3RMKK6Yj8 HISwhCwSiWLy5i7iYCHEAerPwrnPOTJ5x2HfeL6VWb2PE95mKZi8017ux8BG YhpCEy1HH0RYGZN31sezmFZNLu9eWHuV3hDzqJQZH7B1UkvpPbrjxF5viehD 8QPusw1ZqEClSmuY7vWjbMQTxHOuLEVOVg4KSiuZlVgUeQvzeogOX0csuUjr HZhqUKbh9hojErqT2kCMFuJGLB+W7M8kkIZTFn35U9lpNR4kSokYMh9oWFsN dvvVmsyDV0wJC9IlPYTNmFGYvOMNUftipdOfJmK+w3USScRMwplvskRMFnw3 DP9DfCHKNuDMYrTQ5AGklfEuvM9UyomT3xyzoTxt5CG7zjuKb4W/4UsYScSo ChG3jS9JRlv+cqCbJZpp/CG+pD3biUEWLvCTdxmTClf3hegw6xiC8xXSns7G kw0LMH3paYSWKCWIkdI0qnq8ZEWIQdYjzGxKXAUtdJjrQdM0EsSU49PJ2Whc TQYx9Xth6d0E+g5a1fjv4AIy3mHphHa/4YIuh4aPkvi4Xyt2VSXSXh+HcV0x 5KaGFnNo+EXlH4KDIvkJlrQWt6sqGhitIPPjJa9FiV9P9mCwUHxfa+hOBOUq GTjkfoXLLH3pIPW1g2d0iTTfsxjJEe9x5+JJHHK9hHsvAxGdWtBEtsf+HDuK EHLbHc5OdwiBgTRQtBxRtzcIY6w4J8vAHCe+FDHsqOAci7VGDDu2y7GDUwFJ z47DrB932hLKRUs3/+sVzOk7BGse/VKRCskrEXPPAYOnHkBQlkJUZNkfjmFo uyZoN3QRrkcWMEVW8A3OVkK9jf5cnAvNE6Z/8SGmrJgPuHb6KFzdtsKsk5D4 rTIcB/x4mg8WMlAkw3PxUGgLdrlWHSNs92OhoqJYbyxpJldsmuhkexpRxWLR sDqtYXY1GYMB893J8Fg28SLvK5wt5aXNDWF2yB+cmcGAJPPVAQxuyVMEGfwG JNxl8wPgONQEay9SQ5L9ujIOJ02NMGrTTcLWJkpP8eMWZk9bhD0+NHHXRHZK Y+64wHTgMvikKET5Z70/hRl9R2KzX6ZM/mUI9VyLQaZEcyhF+af6uaBvyyYw GLca9+JLmPxzPmGTmWAwdF2MG9FFgvz5mdbpkW9w5aQbXF0dMFWP5yBR0ZmA E4FZrMatPA7nWNiYaNQxcPmYI4q+IOwarOrLRV8VhquuIKFMFqXj7KSr68fI InmtMd/tAw1iiYoz4+U+DKwjdlBpoeNUFwRmKCYyecbCY/N+nPcOJ5DB9nxZ As7aDRGQqAqazTmJiCLIlcobt+nQVpPppXYTsO9DDn1HH9lWzIn9CI8zx7it 6ASLLs34G1Edir3PaRaItXoh5QmsjSSAVKvenXNsfjCESXsK2+6t0WWmOzGJ /w5hSiJweCKppZqIUyElEsIU4c0hE5bqt+YQRuQYKU97h+3Gbfj1qNoVdpe/ ko0nscLkwe/IPIETrCoGkfhCxW8uSsjlJbzA1NtgklsQ2Yisy4x71Lyf3/Dc 6zwOHzwNTx8/BMely5oBNBDluRxtaCmALkbzCCQpkix/2BuZYuvtSKn4i5AZ h+PAhP4Yt+sh6e0R93L590uYMXkpjr6g9oXYsYGkJ5g1hF8B1WHb8DpDLL3W puxq39/dxyk3V7hut0U/YapjvS72eJGpEP34uNtr0LR2FWlXqunBZN8H+hz/ Jhhlvseyie1/AyOd2jNwJYymwiUwUubjNbcoNdgBaACTbY9pNO8fghEq4nFx XldGpKvSaCg2PUgeLt5JeQmKiotRXFzMWYrkpxqKi4pRypfDqjC+AkUq7m00 5pnuVPUwz11mgpH6nOuwaiX1MepOdIBfilIctI3Sn/B1XgLjwRNgZrMItrar sX7NEliYmmPhljN4E18gOPh/h2CcvrvpDMvRC3HrZ6VoH5YlPMKKLkJ5g3o7 zHJ5R8wfRlMsL6dt2BcrfJOYGq7MDsJ+i6EYvPI2qaCUgC0LDzebo1Pn1Xie qRB7AyvT3mD7BFNseBinIjJ6ZTzfiZbUOK6F4Yd4kvjW4jdzRvFmEz3+m3st xLXvxTIYK0eC/ynMGtwTBh0MuK/SR7s2TVFLsxXmngmi1xF1aVHUTczqJTAl qumgx8LrJIYj6vviuLtY3Fjlt+2k0nUhbgqRJRHKcoM4t6rzKGzwoi3uYm0T 6Z1aP1rGw8it+upLlCSPQVneBzdWnNt44QXaji4Rs3G7/pAleoxaC5+4YvHX 2a9dMKTpKGz2iv6dujIL91fPw8xNVxBTCtEtKk99BadpgzFq40MyqpkthCIF XqumoEuvTXiXx7gPyn48w6ZxM+Dk90tGF6VEkq8D6tOS/kaYdJoOtGRr8esl Vorl6QNXwedHmWwtSvD9iSumD+gmrEUH6LVujNo67bHoWvhvFZx5oZcxtZMw PEajJgauuif5zWqc4XIVc2v/vhZV+qzCgwQ+qN+WKYxyhJxbyZO+0r8a0F96 HrElUn40N+I2Fg0RKwcaou/M3XgSlTeJSTIDtxeZwmLdRcSWyuy5SkR7bETv msKV65vh/KdsSUdV4BslbZNtlqp9sewq3RQybCtH4puzmD20JzqK+7NtU+5z LWB58iPtUGXYRngtZ/YV3BOyR+tg4O73jNW84Cf8T61Cj5qcmhu2Eo+SK1X+ DuD+rKtDKBYmgbSqLTD5LI1ZSV5UBX4+3ItBjfjYQZ2udvAKL5CqSVNwa8s4 QRc2wXTHx8T3ZOycZKKbmxmfM6vWHtMvfBOSgeQC+Qi9sRcWI0dhkqU15tus xDr7VZg/0xxmi3bAK/AncYdF6rm4O/asvLjXjme0vFjSLZxS3z0D3cZvxctf 5eJxSX28Hf2aTMDeJz+lyA55dypuLZ6F2bs4o72cYV1F5A2YGPLBaI3J+xCY o5RhXRqenViDoV06Ql+/Izp1aoeWjeqgQcsxcA3KF7GugDvSBg3kOZy6GG5z g/LK/3/GOu3aYzhTkbelGNYVx+Dskj6y2+mG5UJQ5x9hHbmxPLw8aMKTgtC3 tIeF8zu6VYcweRYizMcVlpMnYuJEzoSaNGkS9+uJEyZisslqnHn+g6yj2JGj yAzADhO+fk2r41xcC89Tkb6tFF8uLRPmw/InuJvNKWJHCkZXNeQGuAqjCxth vNMTstuQl/AZ13fNhUHdemjV3xwHfCJpGFpMj/wRAIoR8YqfD7F6/kzYXYuV 9F5lCm47ihRv6mg3fR8+5Uvop8zDswMm/Ms1e2DO9WjZlDDO9bvjhB4t+2Ph hS80NVdNEFTme1cYtWmMrst9SNZeXSa/APflGGV2ligdkTCRzGq3al2NGtNt pp5DglKGgqlSd6D6qNV4+LOS7dXKsnyk/0xAzPfviAj9jI/vXuKB1x34R6SS dZAaZkoRdXMTP5uDu0zVxqOw3T9VVLo5IXewtF17tOCAmOk09UHYfpcWakm+ HAlfbJyO7qOc8Cq1TATA4u93YWcoT24NwNZbMTS+JQJg2bcrGCPYGFXNjuNb EViwpDL1GWz79YCh9UmE5UGUILK/YPvktlDvsQKPfpZrCDdbFHIS08evxIW3 GSpN2UKU4uuVdejcchAN9ZXKFiL5mTN6NGuKfhufkX3CFkKZjZdudhgz5zJ+ VrKFKI/1glljfhxBlzmeNNzCFkLWm6g1cQtepylkEKhERWke0hLj6WKEh37C hzcv4OvljdfRmdRal1ajGCEXV6GTULRfreUkHPyYKdkDSmR8vIYFbdqiWQsd tiCao+DyNImCqZjrygk4C7OWUmV2FcP18MtkDeMFKeF4cMYREzvVpVtbb5AZ 1h++j4gshVC4rYb0J1swZNYW3OZsK/FIVCY9xoLBYj14Y8w4/oGw+WkJl816 64Z+mjIrnzCb8TVswihzbmOWF9CNGUs35he2MV+Gp0gMUjyMf3adi3Y64qXU UE1vGCxsrDmBW1tbc++xtrbC7FkWMDUehA4NhG3W2Bj7/dP/axisRPi1pQTD aXPjoIMfiFhFV49MUPF1tkBTytqmi67zTiAkl1VskWFijsOF/uEaA7HuRiz5 tASDsubGep1gdy9RgMFqUHI7fbERvxhtTVzxJU/JmdBxeHXFCaPbN0aN9oOw jAz7YU2nGkh/sVsYt6CNNvb3aLRX3CplCT6Y1aM7Bi67TLKD7ORwvur60S1Q dYAD3mZUiicnP/AwJo9bh5vBeSoiEJaEXsRkoRKhwXyetooBIfdYpQVZSI6L RXRUJMKCP+L180fw8X6MkNRScZcpkx/Cum1tGcmnGjqM30E6+v//A+FYnAzi 2YpaCctDmhl2Tmgm7c4qI7DtbgJz6P4OA8sQenUparA8f00MX3iVDofUEOWi LERC0COc2rkS0yeZY/6qXTh98wm+xGVKVP/kwQoQeNaOdKtIJC2ag+HkTfmc Gat5cYwvlo1oQzeF/tRDCMoSZ6txsi0IxeEZHWVHrQ1m7+VJlPjtWp3zLVzR tyGfTNNoOgd3foi9mBzUHF9A06KajUfD+WGsvKrtz3FSnfYNeTmshOX8C4T7 VjKNFYjz3YneQtevaudZOBMs2YdEC19exodPNAxgcfSLNOpcgzIEnpprCLU6 /bDqyif6DOIXliY8gf2AZqiiY4Rdb9I1BRGWxD3EmtGTsPVFsoqooQkL59lp fIC3nsEyPOG0sKihS6PvwU5gLWlsvoeoAhU2uqoyDU93zxIodaqghfFufMhQ SmZlKSKencXcedtgb9OLaV0OY2YdfE0L7wyEt1YmPcSC/v0x/YA/iaWJkWeS 5jGvL6OQ0hiPQ8+Tp4n3/esJLPvzMK491JkStdRga1GOyCvL0EqrCfotOofQ HIVEdFrxE/ccJ6Cmqi6GOT1EJtuJvHXrsdAEFtu8CDkkg8OCrzhk2gVVGgzB Jq9Qaj6Lki78zomoWwNaTXX4c64o6fxvXlg6ahqc32VIki4Nh9u4lvSOm/Xe iNc5EhYWhXlgTne+wqeVtRvC8mWSLkvi7tiEzISim7rDjCMIzpEFBwrx2ecU rKy3YvmcrpKkW8PmFJ1Cw/BNmf4W66e0lkSq2RTdjEbqYMyYMdzpGDN2LEaP HIoBY8bDxGox7NfvxMmrzxCSmCtMgiCNmm+xdqQVdniGShS7mtTIv75sJOua qjf3DL6XMIgr//kYy9tWl507DXS2dEVIgTg5UAvZbw7AUAa+NFXeTA8dDQy4 f+nr65OfBgbc/9vRRho19qAcKByj+V/W5/CfcaukPtuNNiK3ynrKQsHKLpV5 IThmY8THvDQaYODyM/iUXiFRMRUh0H2J0AJOSFZX4/7PSolbJQVeqwfwurzF UOx6m82ASPnrKeyYO22IbQ8ThdoJ7o783TCsOfd77baYc+AF0ipE/cSZfiHn MYBysqihleVlyskiWdDF+HzSGg01mmP4Gg9EFUjjiwjlt+eqEZxXXBcTDr6i qQG28RU/cG72JFjuf0TSAmIAN8P/MEa1VKPL1WPjLaSUiWyBaoLe6Eii4Qw/ NLtOx8mvRfQd9H3/FlR9+N/xyTpm/yM+qYni2HtY2lpqX1NpOg2H3mb8Y6ji ichbsBIgVXTknJcvBWKBoA6FquCrG9C/VQv0mrYWrle8cPvqGWxbNBXdu/SH 2abzCEwqlrf2l+WlIuprEHcaP3z4wP3uw4eP+BSWgOwSiTM0L9IHayd3poxI vbhjEcDmOWsi7dUhDKousw6bGeOAfzobolL6Ez575qNHgwboMX0/SWaxXYTy GJyY05tGEKp1XIlHCcUqfwVXOsJtF7w/jzkWi+HyPpMprzKCKP3rCmpjBJzu J8oo3CsRf89JGGnRApMcKM2nGDcqDL2OmV1ro0pNPUyzP4v3iZT2lXnRinzE +J2HzcA21MhrPuUoYQnRFLemMh1P9ttizKwLSBAVDr/T37tZ0E9UacRPzxaV aXbQeVi05LVMXzueVMBQ/LaSGFxdZSzwktTHiFWeiBYn21alBPDeh1fA/s5H +B2yktGXcIdtEafTiiTcorbN+RXo1XE2zofkibiV9HgfRrM9RLxcc5wNzGK4 lR+AtcP4Sh8NPZ6ds6bs5s7RCXY1YDBiFS69iSWOglR/qkRBwhu4LZlIRtlz GsUU7kEslJb7/hAmDF+D66E5KmIzUG7QBUzpoAv1Oh1hsfkyPv0q/E32FbkI f3IKlr2a0jqEDrPOERIDJntFEu442cB4vieJw0iy50zyfTw1j3qbiXD7XMhk n/76KCY34ZM2Q+yvU9oCJvuCcJy1HcmPyVJtigkO3uTbmOwLo+GxfyU2+wbi 6S5z/m0i5q2+SqYuCkimTTOp11aPk2o3OMOt+7QV2H/YDW5HDmvg0KFD3P48 dPgw968D2LNtE1YsMMWANnXpua7b1RirXa4jID6biIOBG4mCHl+GkYtP4EuO Qtz7Cbc2oreQHNToshmvMislHVaagMt2vX/TTerd5+FSGK8GTQTtQqx6y+4S I5hqbQPMdn+HpJ8/uS/+yf3U5v6diNjIELzze4Crh9dhbPdG1E0Ztvomkirw 34FbQdApDKwhkGfO8vxtnkBZ+kccmDNASOjoosOwFXB/HobMUnE8Jsl6ZiDo ljMmthJcRc12MDv4lsItg7ny7zg9ne+wq64/E1ciSgWY06V8yCF39sC4XUM0 7W4Fj6/ZjPSZ9gIfnEtz/VV0R2P/k0QaIBGHICoTvGEqUnAOOYywCnlXXxhc Z3bn/JHa6DZhI64HJJL+OumsKJAT/QIuNqNQj4Bzuzm4Hp4vLlvac2eMHr4R PrGFKiLaxd5yRH9dXi2YHvCjc0ckTV6CgBNzUF1WHE9mp9meCpEGA/1/LA2p b4f7P/iQvYh2hd9vwbahTM8YzMLx4Lx/hHY8NCU/dkZb2QO1nrQN7zLB3kGD xIURODibLyxQqzsWex7/pPo+P+0rLm8yQWPNamjW1xYXA9LIsu6kH6uBstQg nFwxFo2q1kKniQ649TkJJeKyVybgok1vloqnsSFzV3wtEALWpGSpAGmJiUjN KSa+nah40p/sQlc6c7Q+Jh+XB/3/CtDU6ZQ4L8fFmLv6Ehl9yvRYYSSO2Apl HfXGY8+LVDaAjJQ9T9Thw9AjrL1o4IrfemRjVyDGdzcGNSG3oom6LQdj7rqD 8Hjoj4Cv4fgeFY7QoLd4dOcsHOeNRof6wtHR6YfNDxJo8ErcFXlht7HGdBb2 v5GwNu3lHnQgsRTNFph67DP1blmJ7OP9GKst5F4dHyID4qx7zlYtSYSP8zwY UGO0NabtuEcq4sXQa3bQNaya7IRXuSX4eW87Bsn38hBHvEjlu9EZvhWEwMV8 OHraXMIPJaSdU4Foz83oJdufKt2XkXGr9B1iiJJmYWb0pvVlqtXJ6SsQbNha HMo+x4bxPEW1dh09DDW1h5vnffgHfEVEZBSiQj/hzdM7OO60CCMMGghlADUx bN1tMm2MkVEqE3Fl6XTMO/wcOQrBXyPfUYpvXpvRux6/ueq3GYEFjq64/uQV gkL49QkJfI2HN09i/cxhaFtHSDvUHoE9fr/EWvPMoCtYajoPboF5KvIJLj98 t/LNtdX0Mft8OIO++NtbMZQCfzNY7vGjM+vEpVEUxuDmVgty3LhLd4DlgadI LmdL8+vVOSyfuhsBJeWIu7YOhjJGNLWxzviYzesIKV1XQdv4u1aRjlDvbb70 K/nb16G3WllWhJzUOAQ+PId1FkOh16gh6tVrg0FmG+D+6AtSSxRTRVlmvYLD tDnY5hVBwhriA5eFXcbYLnwIoOqQ3dTNljRaOcKv2xNhSDtBrRdWX/pGj5+I fVDG4fS0rtKEQfUmGLrtDVX1WkywZcgMuYNl/Rqi2pDVeJKi+C+9ucqfD7CQ +kcaMBjmhohKUbdWR0XaZ5xZPRENtAQ0r9EUXYfPwxY3d3jc8IKX101cPuOC laYDOR9Tm8XFWg7C4oMe8L17i/vfzZs3uW+/ceM6bt7yxvOASKQVK1jNS0EQ dvfm87FNe9jDL0OEW75DPIew1ablkooGUcQKzm2ZR1kvVKFv647vhRICojAI W4VRWfXab8KbbPG1WiiKvo+lw/jInE5dfYy02IATNx/iVVAIIrlDFBkSiFdP bsLN0RqD9eoKjUf1MX7bQ1JcwA5RWTTOLJiGhadomYLYxEsW94vbAnSm2atO WHMljOQBegprWhB2CcaN5IyGuhiw4CLiKv9VMCT181aDf6+fr9HHGUE8SQMD w/ywa5hT7z8FQ9GLz3hzlNOGUlNzjRHLcT9RqS7sGpLS8t45HbWoKOpgxp6X JIDF/yn6DvdFfF1Zk/4r4B1ZvIt+TJuWsgfe2ImJvfXRsvtoLNh+Di9C4xD9 7CCMamqwdHxdI2y8F0c/1Fhc9mx/LBUGz9UZdRChRX8NdGKkuiLGF2vnL4bD tWCSnGGOYGUS3NfwRZO6Q1bBN7GcAV1Z8jOs61GVejjdpx4iU9qFHUZ+5uCd +xoWDqUNvVV1UK26LnR1dVG9WjVU1daUqnk4cDRaews/y2RFMopU+OxfjRlL PJBcyTZ9RdIjLGlFKpx10HPmZTL6REZ5WY6wc/aEdorzE3pi+RlqZPVh6iQH nzm5Gneph6pqDTFgrgtexObI1Ikmin/6wWXZHKy9RGOmKI24Aase1aWq3vnw /FZA38zIXTh9meLnioldR3HrQdmnVcRQP439nrAjZGrSdh25EU+TechkmEdo EbdPRVOyU9QHwcUvheXsM794YqGRNMZETasqdKpVp4LUrV4dOlW1oSExxtYa vBL3oorEvcQj0vsTmDZhMx79KBQ8PLJGGXh5bAm61pYqhH9fIx1U1dKQsS43 xGgnftIbW6PKRHhuW4FZ9ndIW7q4RiXRd2BNO89rwWihF22cldaoGIFudjzZ WZUB2HgtigiarVFlBt5f2oyR+nWgrdYUw2yP4s2PPJnpo4mCmEfYZTcXDtfD 6Ukq/HIB0w2Y0lVttozU79A3iwHM/CB3TNGXCruqjtpLksvVBSlVlqTjs/dB TO/MT79RqdoYA612wTvoF9lAk8XH5e407sF+mM7ehjsRuQzbf3hjoiHPRdh7 kzfSykUJaaEkzhdLuktN3mTb9ll6CXGlMpgjzFWHzHnXXIV3gduP5A5vmZQx /+G9Hl26mmPfi7T/Et5QHArXcbzWb2q4Gi8zRNWgTifqvji/GeN5k4nt9irq 0NTSgqaGOu3Kp9JV04B21arQ1tbmfqelpUV+amujaq0OMHN+Bk4P6wnfqEj0 hXUDEpjVgsHE04hVyhQVZ+SdWzCYN9BaW8PjW56EXUjGdeteFHeqNjWHZ1Qp axgj7lkKCTP1bsjIK9R/OxDVuAOhBXXpQDQc44CnCSVM2GJuN/nFIUydvAP+ aeVtZSrywbqpPPeh9kS4+qcK0XQ12nJzbi5tgJfyXr0W4EYkf2nKMfbvtCWX cKBk0VMe9VZDc9urJD8u2T0VuUgIfo/nD18iMPIXCfewLpB0/6MYrSIDtQ4z cfRL7j8EtbxPFzBZXQocqhpZwTO2UiwULOVMoXP2szDBdA08PqXJSPQ0UPDt Oiz1NKg+H7L8BhI5v3u3oMZKMmPw8pIzLMcMhOHwcRjRXx+aatKp6Gl5GuFF Ur0HZzRkxATD/8EzvP0Sg8wSacgz6bnynNuLBnE06prhanjhX6JcdeEWfr0+ gwULl2HrpVeIS+MtgfLE51hFiERV28Dq0BuSPGdfUxAOt9l8dKLhCHs8SxWD 6XyxYPjdfZjQqxm5DU3xxKjXQ9d5RxCQXsGiojnBHrC3ssGhtzmCO1CN2k5n hbL7Zv03Ef5zWtubEv8NH58/xH3fF/gYFoeMQrF9SB1K0iwV5I8HL94jIrmA BXKV2Xiwx5y30ppOwB7/dKFVqA7y4/1xeMlEdGrdGHr9TLD2gAdeh8QiLbcI FcyrLkVeWhw+PbiGHXYWmLXzNqne4/9kfoCDSTspNTQOR16k0It3FAVBZuKs M0XXYZs5B1HJgI+7q6cuM3/rt607az8+5fBHQoycxd2yR/tafEJ18fUIkW4s P+oRts4cgEY6Mtlyb29gOAtu/kmSg16egOv2ZrA+8Z6cADEkX56XhpiwT5wV 64v7D57ALzAM8SnZtBhVambPx5fr2zGqa2Nyl+xbtBqgt91pfM1RsBXM+MB5 WVaLcfpTIVtBJQkjmbSixrfeyJ34QjjaK/OQHBuG90+5FXzgh8DweGQVK9kK VhakIjzADw9efkR0apG0gqm4sXkybw21noGjATkq/ZhCUCL7+1PsnT8a+q2a oL2RORyO3MBbsjnyiqmNQv4oK0qQmxqDAO8L2LLQAvP2+5LQH/8nxQ9Lx7aU VE6VqTjzIYt+gwiQyHyDFeP0JCOjzixcC8sXSWELvj+Co3FnIWyqipp6k+F0 PYiM1BDYtnVowN3/7DqYLt4Nz9ffkVVCtFolkh5sQ5daJApkgnOB6SKikTyw j9NEggAS4HS0ZuaV2JFdWZyFBCLIEoVQ1aLJuZx70bmRlPKr1ZG72+9lLG1e /BlbRppj1aHXJJ8gEm39p0PY03B3/SDeSzKYgUsRZUzB0j6BuHe44LQQw7p2 QMtGdVFdQ6Wm8Bg9Z54AT34BocyOkNHkIDn+O0I/vcXjh9y2vP8I/oEhiE5M R2EZqwYoCDiOriTqqlob/be+kM2UUEdh6nd8ePIUL99+xY+sMqmprgyfXW1g QMuYumPjDUp3I+W0S/D+8HTa06/KuQzObzIZkXpOqDfWmhgSt1Z2zLTQeIAN zgWkScesKBIXVpjB9jydIC1mZ4sykxAZ/AEvHt3H/Ucv8O5LJJIy8mncienj 8mgcshbImHssg3dcqQSpJP9z3wld5DW8nF1te5LPyjLOltJUfLr/FJ9/5vHX /XdgNs3vEMY3lFNSNYbZ6UAKGaImKUkNwPHNCzFh5DhMHDcLS+0dsfvCY0Rx 6kEsGyZwO0YOtz3n4Xx40X8Ct/IqLg5ur8dWMvao8p+4soYfKq3ReTbOhxap 7GEPWoTP5+zQrKqsY7TrbLh/4Q83Y/0sioe323pMNx6PsUNNsGDZejgduYpX P4pVJLytRPjFRWhCIhya7bH4dsxfYqpIVp7y/gpWL1yCNZt3YOfmdVg0bwr6 tTfEtLVXEZYrMSgqsvBonylNKap2MsHR4EIhvKGD3O8vcXSNBQb37oI2jWsJ XmEV1GrcCh0NR8Bm2w2E5yhYt2X5Lzy5dwPuLxIFbUwOTyHeHptJvWmNtkOx 5uh5HFu/CLMs52DWxNEYNdoCyxx2YN/hE7j0OAw5FPyUSA++h12LOWNmzGgM N5uPlVtd4fEhVdbuq0EJ0o8t5it6qw62w+34CpUB9DUig1IkfX0MN3tLDO87 CONnLsbGLVvguGEN7NduxJadLji4dxNsplpj8wk/Ej4RjCUtmmU9vmiwbPv1 w7Z7fKWnqJsKIm/AZpARzPZQ+nIpt5KMKxtHyT5aBQaLTtOqMRPhtku/XcII SqylhT67eWpoUeIojMfjExtgOrwvOpFmDTGspdsArTr2wqiZTvAOTmd1bNyJ Tgu9jz1XPpL+Jf4uuBfz4vDs3GFs5x54/QobTBvZF336D8U4C2vY2tpi6foD uPU6WsbdooOsb49xYNl0GPXqhNaNRL9IHbWbtEHnPmOweI83Ygok9svSRPjc voGrb8UWzHq8abF/CnVMtTuOg8Pxc3C1X0jX2mI8t9ZjLbFyy07sPXwK155H gsIJJ9VfATfhtMAc48eMwQjzBVi94wRuBWWK5RHID8U+K77pvPoYezxOrpQt cxF+fLqPgyvMMbTvYEyYvRQOW7fAYf1qbpk3wWmXCw44b4D1FBtsP/+O1gYy YumSb9hjKU2AVKkyFPufJUk1kCm4tmik1Bul3hErb38X+wsVae+xe7y+RP5T pycWHH2NzHIReLlDrkjHqws7YGWzBtt27sSWTcthMW4QevSaAIdrn6n8xX7P zPdnMKWRbFKbSmvMPvGBlkyL6rYg1BPzu03EnlcpDHGR+gjzO9SVogF8e7PE /liKgAMLMW/bRUQV/beIS0Z/XF2OmuT6DftizROJL6U4PQ5BL+7jstsO2FpZ 6MLU1JS7VbN5Djj/PIrePm96VkdpcjDuXTuJvfv2Y882R6zhjNohRn3Ru7cR xpuaY7rpDMy0c8Txm/6IyS6vw75die83VvDFqNX0YHMrRlKgilwE3TmIRdMn YpTRBMyevxKbdrni+icp8ZP/8QTGtNekvsyQHb60PkxUIWnPd0OPtOpptcT0 y9+oehHDO8rc7/A5sgZThvSGQavG0BWqkbVqNkSbTr0xfp4zHkZkS2exAomf vLH32ieyszWEs0ge+rbrXjht2Qx7O0uMH9wHfYzGYOpsG+4s2mH1ttN4EkKj GSriEytT/LFMaCVqbHkAX/PElLsWKrMCsWd8m980TCuT/aTDW+JzS36Ehc07 Y8rhtyTC+y+QRUpswxUIO7MK3WXpDBWt0TjyJpWtFt35Fb9wZxGhUtNA3x3P kK8sR2bIAzivscGcvd74zt2tdE0lkh7vRQ/Zd1cdt4Y755Bd82/hmvSwzasr Mxp6WOBMWLF8pNa3S0IIUr07Fp+h7anOohgq43F6Tj+B4YBcvA9WCcMdqooP RcrSjy1Ac24jVDNz45R6OYp+BuKy81KY2h+HX2IJQ+2i4LMYUl+DKvle6x/S oy7xAP0FZWVuHF55ncAmuwVY7HQM9z7EkDMkVcZzhpnPDpKq47Zobyy79p0Y dbwo+QEl2T/C8MbXE0ect2P9Zg41ff0QzFdF8G+rTyWe/Hw/ehEvX1MDOjoc gNbuh5WnXyEhv4xepiA5DI+uHsbi+cux89wjhEY9x+ZxJG/RCauufENpeTaC 77hgru02PE4pZSeq8pcfNg0h+KGJ3pYnCYe8yiDh9spzkxDy4SluuB/C5hXW sLKyw9rtx3Hz6UfEZpUyEEUm7m80QS22xbtg/Q1+LZim4qTy8egSGBrOhXtE MftocQxOL5PpdE6wIzfdIaN7Gf6i5Au2DWhONWbtCccQWS6xRlXkJeHr68fw OL0f69buwvFLd+H/JZZSI/HLp4uKH69wZPMSmE9dgB2nvBEYkYC07Fzk5WQg KSoA3medYGrYGjqNe2PWxisISS+TGEq4h8iIC8Gr+9dwcKcTNnJLfP3ha4Qm 5grXr0+lH+fjxO9UbS3oaHN+ToOh2Hj5PRILKugZzP/JqdKL+7HIagX2Xn2B sIgHWDWY9MkbwuFONMrL0vHeYzdmL3aGf3o5W52yuAdY2bc6jWQOsr2EuDJp dUqzExH89jE8Tx/ApmVW3OoswYbdp3D7eRAScsql1UmBx+KxUi9eFUNs8+Vn NrDGepLNPGmLrmLgVLU6emz2pfAriiI//CbmdqwjLVUdDliuhlLEEGc35sV/ gOeRrbBbsBSOx7wQkJAr8eCVp8B7ywRSVMTURh0jR7z6xUfwRYAqCr2CaQ1a YcT+t7/nHOJxfkZnqd5ItSlGrn8qK7pWQ+GH/Rg4extuRxUxTVlRnI+C4nIZ k9U/RVORzCTvy3kYk4S+WgtM2EPJtlX46V61qODSwh7iyE5HrFi9FltP3cG7 z+GIT05FVm4Ocrg9lhj2FtcPr8SA1iSJ2xADZmzEldeJ5DrMZEIunm4eSYO4 Wg1NcfFbkRD45tkes14dxzhSadJ5Hm5GF6Gy4AdeXXaC+UIHuAdlSL5H9hus Hs5n9XWM9+FznkIq5Ul+iPlNiYarhm5Lvenaig5cWXYCvvg/wOXje7F2rTNO XfPB65AEFCjEo6aLvG93sWWZDWaaLcdhj+cIjU1CRk4ecrNSEPvVH9dcVmJ4 +ybQbTsKKw4+Qnyh1PKR/+kczCik18HU7Y8ppBvKICrm/jb0qi6DqDqD6R6t kO0L5L6BfaemaDntJMlx/psgqUyF17qJdPgsS/4M242ArEq2Pjzpxl1uZ6rR ItHJl8MZB07qa2ybb42tPBurRIFQgk8X7ITKCT7aozeDdGaKTvHfQmRl5ls4 9ZWNS60xHFvu/2SjcD5dhGUrfkVHLPfED07pOQsfzXzlgiENtNlRGbfhHiEo 5DcK97PkK7YM16M6ta3jXTD5FcfiiuMi2O7yIt2lrHK5MBBbe/O1c00H7MGX 4r9GR5E2pDjqDhYZaNNtP5Vv5BZKbjVR9uMRVnYQ203rYORab1JLI/pEhdHP OC9hBob37oRGpNym+ixcDOZdEFJ76OOyAlYufAWShLacI0q4ekgNmVo7WB6g r49jK1KMj/vnk/0gfGtnrBNshs7CYipz3mPb9OEYteQKEYCa8FFl9mfsmyG3 4hpg+u4nHPDJcIo7xI/XDaeKVqvpQjJYQHhY7pkyArBn3UJYbruKr5lKTeEj JT+eY+2Y1jTM32vGQXxIqxCyocQ+uo2FLcTQXCNM2vZE6rushtxvD7DbzgRD exrw5XV1F5BJIbx8OIf4+s5lsDsW/D/GjJG5mPsxnJRVaXSB7UlqU0nyycfL LTP40hqKFL3gJCCF6GXlfzyOEe0lt6fmQGd8KlRKWaVShFxdBQNZ8quGvjWu fuWbe62EryqMuouF3erL5KkHa/fPtM9RPPDlSQ9g27we9CaeQqxCAgLiIR2b hZqMRlYTXYxd8LVYAgLkhcD9zH0EJBaosFJa7uFjnxyBw9XXSC/Df4cFlVkf sYOObtZBX/NztNiCTVEgbY6fr2PRqImYc4DfG+JJTnlyACNb8MUaNdub4Zg/ bQ9nkZGSYOwZyJs4DYcfJpOxZVVEmfDeNIWv4pq6BW+yxLNahKDLmzFr4T4E 5SjZUUUabi0awft+tS3h8S1fCsBUxMLdrB1VRa0G7EQQm9bD+YXxnEWyaAGW HntMStbEHZrx5QrMuxDzsCWM13gguhAyjrIyhJ5bjW6kpKr6MGz3SSAxl97i mSmMwnmbflLREfe7thbHEVYoU+qV33CAs+0aNLXFw5TKf02pc+/OCoCTaQfZ DmsOs6PvUKAU1S8HiYn3YN5Ch3o9Xa09kKwUow1qyHnigqkLXPA4oUianV5J qK/kgaZ6MObUVqriH6p07mfZD1xc2f+3sIHlnleyacIadHDdDjO+QL2GsQNe pCiE5B9P7Hh6dn9hLIUGWk/ei4BsBcu0lYVgxxgDGr6r1t8J7zIq2BOVRdzG Eps1OPAqTWpJ4VSuz5pBNCiq3Ww6LoYX/yPFjtI4nF3Whwc1MxdSAsAUu7I4 GmcW9hAerxtsT4RJFe86KIq9B9ueQh225iS4+acKa6xA/NNzWGmxEx/zIG+o +eRux4d12k7CoYA8lfFsRyjwzX05713Rv0OxVxgnLip0yq7msxNGPSbC0TdR VOgVnMvuMEzOcWKAJcf4Zi1T4aMZL3ehA6GS1jbE5me/pCvm4b3zGsywPoZg kbhdA4VBJzGcFkDVxNClXvhZIfaZcxstLxSHGDlYP6y5HC1sGB3kf/OEZUdB FVYzw7kA8YBXINL7OFbO3U/44yV55MP/yFyKMmqdzHE6pEiQB+8zfzpshU7i 3qsyFm6v0tqLL2e8xKLBUvNZtQazcf17sTicnZCU7pwg600j5PT2nkgoFvU2 X4X95eIq6NeWyIZrdV+JB0JZgNi+rMh+hQ2tdVC/gy18fynE4Ffm6wPoXENi VdQxnIPL38t12NWVbICA1BGoRITHUrQnqcQ8xX+ntknB0pO9k+h31hu4HPeT FWy7ktKs64sGQJNTHQYDpmKd+1vCp8TOs+IXrq8ZzXoh6hk5wf9XKXOfoz0w unFV6riOOPROxk5EHoDzi7eY8qq4sSlOvc+U+Krzv+GkvS3mnw0jOpOR/ZGJ OheXQr86b56svR0tTTXn2yrJEFuiUrXaTCOTAmUbPRV3l3L2uaM3BwFsWyZ4 b4I+iRtUaYc5Lm9pTzu7HPdsnuvG0ZhotSFr4JtYIcQptVDw5SrMDWpLu0G3 F9beiqAPyAb7KiJxZGAjVK/WH3veZP5r2pvbKG9PYnJjWSNZOzIaNI/VbFTG 4fysrhQvddrMwuWoEkmyFRHYb2GF7Vc/Ed9U3N2lMXdh00FXumJdIzjeo+x5 /1h3k8k8l1bwA6bEcPuw9XiUXCHpbkU67jlO5de8iQmOvssUdDenIYLPYVxb 3uLV6TIXF4Kzpc+RRoydpmhMl6o3HB8kSE/EKelbDsuxxNGTaBVpeykQdWMl 6pMSZN0OmH8z5p/pbhJZ81iPLmQEQRszHA/IkQ6DMh+vjs4WnJbunIX4m+6m h/HKGnSjTRrtseQcHXHLa6v4p9i1ZDa2vExnuqo0HpeW9qCCajd+Lz5z9oax 8FoUp0X6ioLUNMGZD5mCV02WMBHn7cag5xQOwdKVYp6n6Psd2LXSkCmoPlh/ ibffTcWvzHmHdb0b0giG4UZqMbO+dBQEY/MEQ7Ro0RVT1p1F4K8SqQqoMgpH J7bjU2YNRmDn6zSmvaHMgu8eE4G9uT/WXJG0Nwn+fDllh/ZVhQPrGY5yQSKl kd5wWDwfzu9ymEQKI3HMWp/aQl1n8OMCJe2twFc3G3QTd191S1wNyWPaW5mE y3MH8DtLhbTr9MBqn3iJBj4X/ofnkP5fiWeqjRWuhtJCWWZ5o/g73G0HyXq7 6mCwoy8tLRTPdWnsXczjgE+tQT9s8csQtbci5QmW6MmOUIOBWHkvUawUTnm2 Fz2N98Mvtey/jLTwY8bdMIzQp9Uxwlrvn5JVkfMGGzpLM61rDViJxylK0cCO veGAfqzsrzNWc+tQJrEpx95YhRbE69EeDbfALN78qUZFnui7C0Pr8S7d1L3P kM0GP1cg9JYLrMy242Ou1MVbEuyOYXq80dh760OSAWUGdvH3W7BoQhqT9DDj 5FdZBpJ7uJRHsOzWDnoGfWG95w5iChRs9ynT/LGuJ69sNbta4UpUEVPSitQ3 cJjQiNoVw/lxp4KSJpGLYgSeW44ustlAdQZuxItffKcSoxAqC4VL/3pQVauD iae/UI/uX+BYl0IdWXi8awanbSRbe8rOp7TCVYuJuhIxt9eiKXEWqjTFOGea iBX+KPD9yhZsvuyHtDLRX+UErlSgorwUufFvcWRBf2l4DemkszyK4EIl87D+ RHeLUbTyRD9sHNFKpjsaYtTqywhJK0JZeSWViDQnRImY647oR5O5nbDszBei 5Xayl/Pht306mtFofC8svxoqMbZye4DbH8Npq54aWs+5gIQKyanIfnECOw6f A2fisf1U/O0qJtFClZrot/I+BWgplfa/1bhYYqlIeIzlA4kr2hbzjwdQy7Wz 7AmSn7pgiBrvWlvupp0FmoIwFN9vwKxXTXqLvdbfIEwL/J+SWFw5uQMrr0Sw hvYSThfMb8qtvkYbzDwSRLd0f3F/VBYjMz0NGXll7AhEXliJPqKQO6/Avbhi FXEWYUXENczqPhw2R94LyWTO1/l0DjN0ZaE/jVHY/YBSnklKnQPHdy4m1E6p 29sR73LFY8UppVhvWPQTY2Rt6FzGEkjmG7LxaPMoHtBU62Hw0vvEMe/AXlYg 9o6TcMddsMiNsu+KgioLuYhxBtXoWR+4jfukWCVWFI6Trjux/lYsE1R+6DVY kHxW1Y5YwFt1kqAqipCRlobMgrLfhhsFu85HV3HDGm7Es1/l7dmZqsTXkzbQ E3nW1Wuh7xaeGkG0aX49P4gxTOnxgOh4k44xVLEWvoa2jQ9tw/LNqvWHYvuD uIbCXRcGX8QEDeFI7ufZKlmkpTweF+bIqEJVW2Halpf0FsTYadHn8xjdax1u ReT/h0qf+UY5wThgStyOuhizzof207F9XPQVB0e1ZA/YepgD/NIZy2jGK1cY txBTiNoY4OSDrEqZq5SMy5Y96drXm+CGiGKwSLki4y3sx/GRcq0+9nj4o5id 0vKY5zjl7ASPqDLJUS4MgsNA3jnSHUY4CZRSWKX8J64v70NvoYvZacRUSlo/ /4Mb+rQSipKqDYTzy1+SyiqJxul5AqmyWgfMORhEAmDi7Sc/PYCRZHXrDMF2 X/5E9BOXpiwe1+3Ho5EsHjl0w21SqSgpfc7dW96WP+X6c69Jfcf/htLXpNbY gu5SPqj2YE6K8aWiwCo5SLPvxdMVNB3oAP8sSQ0queOQX1yKSqVU/oScKNw7 5YApPdugnm5VaOnoolbdFugzZy9exhczB+mv1Tw5z6kfL2LukA6oW0sX1bS1 Ua1mI/Qca4Od7s/xo1gppXzDPDCTMr5oYeDa6yTcq7JTlF1OAPc1etRy7WJz ltJ4MK9JGY+zloaUhVqtvgncQ/PZk6GyBAXFxSirlNF+cJv4wEgS8KiC1ka7 8Knwnyl4Mgfbx2ESjXy0nOmK4Fwp1lgS/wDLe+hQH32w7WUahxSVFue6YcsU frBDFaPNeJUmlq8qUFpShLyicpnbUYHI6yspa0z1jnPhEV0mKC1Osxb/gO/e OejasAFaDZiLQ0+iUKSElKAvQeBBG3QQVqLBbFdwtqao62kvhqsVugxZjBuR PNKnPj+EobKhDCpNTeH6gZ97PF3QEoVhnMrV5d5Rux82PUtlfNPp77B2cgdB jbXHsqshv6v5Irw5bAIddT4g3HHEfnwtYRPZCsNvYL4B8RxqYcwaLxroY+LK eY9VI9rSK2uOckZgjmgAKlBSzImrWObdEXaX8zaUEKq24WJ4J1RI4iqIwa2t ZjBo0ABthy3Ecb840g4viasA/k7mAluTKpotdCcMZyIQ5X88hn6txWyIBpoP dUFoKfNeiyK9sLCznJtTD0vOUudLZb5wicyA8zDvLIa0VNGg5xLcjCwS1cHP R9vQllo0OuhhepY2kUgx9SJ8ODmbzVUjR6K72RHa9SZq+rKQSxijb4XT7zP+ XtOH4cDYZtBsMQ7HvzBNT77l09nFaMYpoFpD7Dm/WSmzWMqR8uEKls8Yie5j FuP0k++kXV1UlZlvj2FCG1HTq6OHwx0ys15UlcqEOzA1IEZAK9hcCaUAyFJd ZGu4zENrYgupdsFKz28Q7R1OE6GkpABF5bL4eQ4erRlJixlUa1ng2rdCWT9N JRIf7kBXQkCmb46zocVM0VdE3YKJIS/9KjWHYK9/iqToy37i2hpxyExtjFjo SbagtKsy8WDnJOpftjTegfecqhwgrIwi9zOOmPcRBnlzt1SjP+yvhVCcFkud S766w6gxT13VuMtaqeP1/6boWVywMhm3Nxiz8o4quoQikOekZCazMgcv904V OAL7Yo0XbbJnDkJeLF7evoTjbkdx4tQZnLvihacfI5BapJAu8ceaXay3K06P xccnt3H5wlmcOnkCx0+cwgWvt/hZpJDS3/lf4GTCaz7t0ZzmS1UIGl0duR9P wrg1ubupOPkxU8phKPHj7ka0JUCrWh9jnV+TQ8VMCCW3NE58fahO+2k4G1b8 l7pbT/i27KBzmNpGnfMMx8H1bTpLEXHO97FFPenl6oxeh4fJCpaMIA78o3UT eUivOg1nArIY4xTKYnB6Rju6eQat4m2k/oJg8kKuYm5zyQis0pnzH4NzZAUP 5BvScGfdFKE2sjFm8OQa3cWXORXoOGogZ37dIV38dOBRK9mm6GGFC+F8I+R0 8Y5I1HRxb07U1dFzkRdNdnVkT1KC2NeXsGryDCzY7IGIvArpKJDTeERU1KrQ G7SZmPNMReR9xd45PD1gw8lOeJ2ulAkoA3cWDee9zJqzSGRDElBBKGdbNuOW sBHGOD6jbfiigLI+noFpA0lAmj0X43Zkwf8QUBIu240S5vS2pGN+i2RuQrY/ lhg2Y0Z0zZazcC2qRDwhJTH3YNdL3mbWBranA6lLNp+dOc4l8z+F6QZi1rMa OkzZRzM0jDabYMS+aWTMBC+Bvkvgk6QU4y/prw6it5b0INX62xDAlivo0e0n YNejxL9V0CWROGraATX0ZuBqVKnYgFua8AjL+3Aoo9YDa25EUwl1Ea6urKxA WQWvGURjLOXpfoxmBCjNMYeTWjFkek2BsNO2aM2dLc0u9nieXMqQtITzeqd2 5MM5LWeeQlShRJ8bd3MVWpEAuHoHLLsTI66xguTgKW1wC5i4fKD6h205ZTY+ 3TkMm7EzYe/2FL/KlL9rX3tR++pg4NyzxEQX76Qy2Q9rCcWiuj6sj/Mp6IHC olX89MeOqd3Y+ObqraZg/+N46tvVlWmQaI/laFaDhyft5iOx/33Ov6CApSK0 UoTf3Iz+dYUmcA3OD9vsQ5mdxMRfTpA7jGup0dCIoeU5MqqDjbb7E80qcQ1z iLfJhFc8dUxw+mOmyg7ZEkZeWobOpCxy5Q3aV87OXIY/VnXnEa9ujw3wkw0Q ozVx9zbzpQQ1OIfYI1rCgz9WnXWF1a/Iicfr+7dx5+knJBcqJE38Cx7Lh0GL A4yhm/nuacZ+xJ33Fy6zefXWZAL2+6Wz0Fr8rY3oXkuVnmrbyyG/da7lfT6J QTqcymzJqduvuSLmFkd7w7ab/Di3hd2pYGpsMYVRQMb9CJPVapEsJm3gZBqV UtltQ+9eM3DsXSy+eqySz++uMnI5fBP5RNcM4WYyPxzFIG7X67abjWsx5X3Y lYrxzm26oDCroutYVzIyVopNZ8Jnmwlf3ddyBk4G5kjpDG7xIi4uQwcaQtDH Sq8oiRxfHelvXGDI7VAtA+4LvxeKT18Q6gFLfTkLZEfYX6WdUFLfaM5HbJja nn+9Ps1ZCtFy8q3J8JjTGzVF0vW63bHcN1HUlTlBnJUqz+yo9oGDFx+zYAxt pCw2Lgj3btzB8+AftHdLV6ZHf3J61LSD6HrWhqG1Kz5mlElHknPWnQa3kAIX zYfB8XmaqEfLk55glb6M3psz1zbcTRBJQooCj6N3qx6Yc4HOEhBbt/5MlSrz EfLgDLa7eCOuGBKXQR5eHZiFOpwUunAKJ7IMUgsA6TM7toh5Tir1THFWpMsm WZMQ7BqvR336GUJHgZRe+oHz84z4KshqE3E8IIP5peXfPTCupQ5vH296KOsW 4TsCIm6sQ1sNFTQfvgWvs5UqbIeVJ8FznThGuwHGLrmDVFnzLrc0373sKbdg nSHrCOOCUIKqhbJEf2yf0oXVuNVqb46jb3/RxWSFGMpEnJvdVyoDqdYKU09Q Ugg+lvB/U5I12LsrkfTqKMbr1WD7wsj2Imd8yKRXGo3T1vyh1elowXnuxX+n JJsJH028uwUD6BiPdlhxIYSixHZxC5Dc3dZJaKAzADuep0pKrhBvCJqTK5Jk jfcPtlaE2GF+E3IK6mHEMh9aGPdXylHMixJ+gds7TFCPCrIdjO0vIyyzTKTP zvl0BpNaaUKllQVuhBfIw8FJD/diFI0VdsCCIxSnRcOqIsoTxrTGpwr07emc MVmKOAU3F/WnNzpk82N6o6KmQHE8zq8cLLTUaKC+/kycfP7zN01REHwVM/X5 aX/61icRXiBwaAtpPo+lxuhnsgV7Nk4R6WTrTeH2ZzpkylGDkvx5LO3Fnei6 GL+DklsyZidy1J7tNhZaAeph0AoaRJf0kQJxt7ZgILWcumLlObp64sOXhpzD EJrO0eRLnpWyh69IwIXZ3UBmgxjveUVPFHv4wii4cqukLsQeG3WywsW3qXRb iw+f++E0JrXWolZH96WXEMvGyAkl1+42aFJd8Go1G2LYNn8KMtKE6DJ8vbSS sPNJ1IYGtrjFx1MEfamJ0p/PsGY8XzCk22EsNl4MQK4YB+XLZJJeu2NO71bC 6LRanHe/C4+i89gp/fXAAW3ZmAxie7XDNOd3v8eDS+Pgzgp7VKghZr79BTW2 awtrGn9jBRrUq4+hh94SUfyJ8rQQBFSc8ABLe3MHtvYQ7H/Jj+pjaqksGqfm 9xfuuCb6b7iFxBKZccn54rc3o2stTu3030RqMti6/fJ1QtfaavRjI3a/oAFr pl3LvuHQSD4e3mDAHgSXSBZNZWYg9kxswn27PpZd4Wsd2C4ricN5O+HhOVNx 9pFP0sBnDSg5P915JGec/r/KrgSspvXrJym6ZC6SqRFlqMg1zxEhFUqTqSQK mYsyZshMMsRFLtecaFLGSgoNhkqTBqV5PnXqDL/v3Xufvc9x/9x7v557z/M4 w957vetd613jbykZwPnqJ3rdJkrWjV8YC3+7cVCVYJJ2GbYQh0OzaPeA9ZB5 KecxtZtsKL8LjG2vo0j8H7VkM96fWkMdKT/VktKt0IjPof6wkEAbUTt70upA JJW0ShxxZdRlJSA+NQPVbNiQrEPGA28MotIE7QbC7kg8JX8s8BOa0rBj7jAZ xTkcWx7ls4qzJesOFtKDadrBiLCwRCCrOBvwdIsVRk5Yi4gyMTtTl/89HUmJ CcjnSQExGj8HY3YvZoyFETXhQsBG8Kjexgp8SH2DhEJ24kM7BlVgMVWw2xZ6 pvvxtuG/KFglusV/9XQ1KR/aDIT9pSTwRDLHCAVustOcnGjKGOsbSWfsWFOU n/cYbmNVaHVivPoysluk5YbUSu0x1aNVhryRD+IrRZzP05B6DhO7tUF7fTeE fWsZxykvIYoj9mO07hCMdTuB8Pf51KNIx4zX4ukxO6hTT6o6DQcjv1FSx7aF N365iyXDDaAxsJdMW3hbGC2npxvK2UhuXpt6FXM12qLj4OW4lccfxdFZiOv2 Q+liwjadjeDxIJ9zuJrSb8Pe8DfaJB2/hQEo4ehsSMTWcf1p80t53CEkN4g5 OmsSjsGY2KMqJpvxvFwgpVNA3D4vDNcZimmegXiSWkSF/zg6RRV4tNeSBgOW V59L1wySjc2WSje+O4vRGqxB1wFDZpxChgCcaVD9Dn4LZEtB1WDmF0FVAUuK txVRGb0bmjLwZfI6xBFKq2NdsNovUfBzGi+ZJaaAvuNX4GxEBi3C7NxzVCfA d+bvGDZhOsZpshnJ3/D7kovIbpWpX25E/LllMmWxChjidBqfeDKulbgIVx2N oNSuDXR2RNBVLP+iSung6kVX9FGUg+7Sy8htkT0hic0ceQhTesnTB/HAWbvx NL9RWpTyCYctNWm1t/7ulx8GDIl5ZUh/HYO0ilYpqnVtErZMHUDvY2XDrXhZ JpDKopiP70SBRH2Wgd2n6sr3mjPdLb0WIjijSUopuVtB+F4YdpZD7+l7kVAj lmP3n7j2LfwmS8bTaM3HicRaGeQaIXJDNqEf+WyAxTF8JPI9mV3h+izc2euE YWpMrZCSxkS4nQxDTr0Ms5qzEWg3BYNHTca04SwGvDz6mWzB80r8J5XLx9sT rj9gL7YxP4wkBphOjp0m0lqWgmAfRxirS3yqbkZw3H2ffhq28LH22WEs2HCI QpjlVllYGgcfSdqov/lexBOTndO5jW+xcZbMjlbWhcudbFbnoiUTR6yN6HoJ hYm7EF8ukNG5QqQFesBxpS9e13AYhMLqHDy/dQ7Hg0KQWtbC1Qxn3oPH+nU4 EF8jZb+I+AtuoxkrWseGQmiQFtm3EDtt1was2BpBqUUO2EtcjSf+VrQmURpq RUHU/zdt3FyEPzfPkJl3qYAxvmFUjQ43MkZQHIVVo4gzqDoflz/UcTGB5gwc X8mADSiNX4eH+S0ykcQ6RG82Y6xoZXPiNFdJ7QPhNwQvGwn5tkPgcoOB0RzP UteQhUteK+C0N4Sql2LPAyo54zSkE+08TdsRgmK+bHcTD0knl/xQlkXPmHf/ E/lCVgW3oxujX5IV6kaZLDsZVNkh7DUEtSguqQJfFrWq6hU2DWEqhnpO30Oj gnLBsMZU7LZhXBnl6d5UVYEM6ZUIdZtIr2jbbosQ/KlBxjTKxblFBkT4jYmz Qs8AkpJe9xFnPJfB5WgUxViW9LqUa7DWJNazvAbmHohCeavMiNCql1irqyYJ mrZB96HLcTdfxJkiwlKE+9nSCovhbUcMtj6KhLIWSeGHIlqoxujRMqexiiG2 PvnOZSZqcxB6ej2mDGR0fzs1I1h7BSEut15aQ8TPxfU1szHMxAMPvxQj874P RvWUTNqesAYPC4WcY14SfQS/y0kPAUVDF9zKapHmCqqReMkDRioKtFSqLf6D akz5hWJewq5qXSr2zxtIvAIT7HlSRK8qN1iE2InZMQGw1ulCn0oTlh3Ds7x6 aQEDdSpuwSBlRRg4MbikrMoQ16Xjku8y2AdnSCWTKg8+uxyq7ZlUl2dIrlQy xc1Iv7cflovO4gufmxr2LcIH/SjPSFkHzndzOKFsLkDwGuLdyA/AistpdASG 3Y4ifhW+fa+jCWG3I+/zTSzuIk97OsNX/IH8Zmm3JZVL95lAVKzqLBxNqJjK amCiE1JDT8JhsjYDRC3fC6NtfHE7gZ6415HlH5G0J3sXYYjOApyOK0RRIvGp JEWIijqmOEwOhf+grYWliThgN+oHGC05HRc2Nc31jAvqy5GbEoOg3W6YPUpH ckp3gIGZG04/TqPKSySEEUY0JGC7pTv8mbJo5o+a0Ht6KTMEUH0ODj8v7c+J cSXe39yB3zXaSx6BbKM27aG9yB9xX+mEjXRqexPi99ugP+WRtbegphdIQrJt wUu7gqUunghIqJJj6nK7S4BOj8BxphEGdGuPtsqqMHa8iM91klx2Sx6CPD2x dlektNWPCgo8PQhDyitR0oNdYArtuUsL7wUoiw6ErZUbjr+rkp0mmnNf0u3c wQirg+mgovQ8/1VkVxG8/Hic9ZgHnY5q0Bm9Alfelkhn+jG7Pf/hLhgrdoK2 7QVkN0urvOiau4MOzASeDrPgH1P8wxQFipbHPhhEj2rWgGPwR2p7So0FMQoj 98BYRQ2jlgejsIV1zhTAy43C3sUWcN73gPLP2VRia8lrHLDWJzZLO+hZHMQb Yv+wFpywPAE+M2QbJdRh5RVB58BsJZelYB/2mWoRu3kG/GNLOZC3ipfY4rQZ R0LpgKrs8+ff38rkqDtPwI7HdGG6NKFWjTAvxvyV62iJs68rZBS6CLl3N6I/ lTBpq43V97LlZH3knPvbMUSZeHke91AmlNLdQBUnW1pgzdFwKqrP0t1c8Bw7 Z2sROemA4XankVIjlDBBiZ5Y7qYtbdpr03EwlpxLkQF6pyB3G1CYHIHj7ubo 10kS2mjTBUZ2h/G8oHEhRzAfBc+CsNrMED07aMHU9TTeVrR25WSxGV9f34Of 8wz0bMMEWPoNnwm3w3/hHSMqnLsqqEjBZTdT6OmYYX9EHpgdX4XnR52gRdUz 9JwK3+hSE1YKxQ1Iv+NLVfzJQGYPhtOJl/QYbXYWRktjHSq/ZSExKhh7lptj UHcWalkeqmMO0y2w/6b5yXPWEHVl3rsTuo73pc2wYazu4BXj3YtH+Ov2Xdy/ fxNBJ/2w0WEORhtNxKzF63Ds1nPk1YlZt4lqV9o0bgDtod3J4HGqlRDz5pof bBefRVYrhzYsLAqFva4KbS4Ndr1NQ+ezBjr/6wv42NjC+a8MzkBvJT66Vfd2 9BE8ckM47W6wAZ2m3EdwHtod7bXI6Z3dwB4CzRn34WyzA3++K5fZio1IOGlL 68yOWra48F7WXm9EUsAy9FHSwsKDr+gA3nTJnqnLe4PgfSthIpk11nnACJi7 H8Gj94VUpI4r1m7IRoiPDQwGjIbbpSRJ9XALPlOzjamGhHY6sL3wkd4ctDr6 +YnAoUYJChAeeBjbN27Gtq2eWGo5FQba6lBuy062akfvOzXt8bBdtRHbvbyw fds2siTbyKsy/e+tni6wHGuIofqDod2/Nzq1ZeyYIdOdcehqNDK+86RDMAXI plr2N1/E20ohy6qqhIuw6s3kZ5yPv6PDf71kpCA99Bz2eG3B9h0+8PXehGWL ZsJoxBD07a5MA6gyT9qBkNUJ6jr6MJxgClv3bdjtuxPeXtvIs57BsxxGYriR 1Okh8LvyAoU8MbcFyqL9YNKbEogBcA3+QJ8Ee9i9KqpG1EkPLFi6Fddjs1HH 56OlpQUNFXlICj2PdZYToNFZgXkU4uR0ssHNTLa2W4zal5fg6uqDPz/Xc5aK qOwVvIypU1wFYxxuU/kGqaUirETEybVY7HIIscUi1oeoS70GB7otSh9OAWm0 +fFPpw4LyStqKkdW6idkFVRT73MZEXElIvdYo0sXI6y69kEGrKQdvoUfkATj +mLpqXg67ivtGQ2BtW4XWg8MdLuFErHU0hF/i8H6cZroPmYDwguaJ7NP/vkR dliZYv6qAwhNKaGQ53/I0VV+jsAuSwraQhGDbf0Qk9fEdmFRH+dH+mFMVxbX ThuOe2LpiOYSVpMnX8V8HXWozzlIdKiIy0CVhGOBngZUNKxwIvITalqFctJD XEwOAKoFm9jWigZwPPEKtSLoy3ycd8cbY1SYhMfqS8my+QJR9k2Y9WVC5gab H9FIEhz+ed5juBj3Q6+p3nj+XTBJ5oqVyXewZf4MWLofReSnUrSKZMr3iK2R 8hBbzXSg1OY3GC49hvhvfD12FYQ1SAs/j61EVLfv2Ia1DnMxZogGDdjQVmJJ yXceBNPFbti6cwe8tm1TpKW0A7y8veHpvBgTTYZCpx87x0IJ/cbbY+9lCn6w VW4xJ6JkVUq/4mPKFxTX8JkN1IPo2BK8Db8ML/tJTI5csQs0tEZg+oqdCHrw DMkZBahqpKtZJVteBEFLI8pzUxAWtAuW4wyhN9oRp59k/QAJTxyT4LUTiZOu joV+cbRGNGQJrkyCv8tcGBsbY+TIkTA2NICORnd61BubJmnftS8GG46kPid0 Uq8K5PuGGD7UAIP1tKDRsxMLNd2l/wZEfxdxauUnZ5YdJ0l8pF5ai34qWpiz P4bm7VCJnkZTMRIjr+P4wYPw814H60lUPaY8+kzxwPU33zjJEn7HI29zdOk+ Gp6SzC4LAiMoiMVh9zXwevxVxmuhEsZGdDhJRc8HCfUyuoDIZfaTo7Bb6Irg 5GountCUgoOGnWj9PMTpDt28JI0niFAUvh8je/SB0WriZfOlCPP81IsY0akH 1E3W4mZSIZoEIjlZw7Y4NgBmakSz9p4Krzt0iRu7seuSL2Oupjp0l5ymOthN JZuDOoG/JobjzNbFGEyn1xTRXUMXJjNXw//aI7z+mIfyOh4EIjG3OYStTagq SsfL28exwnQ0NA3mwffmW0oCpTGWSsQcWgg1Ilij7P6kZ7D/pzMtHafnjkNf VVWoqfVEVxVlKLZXRqfOXSnY4O7dqddunfFbh9/Qubsq+YWamhp1xvXsji6d e8Fg0nw4uG7GobN/IjL+E4qqeNKKAWV6fuZFzxVYfzQEufWMy9OS+RccBlCn 7wTsDKHNL+n51YjYI/YwmTQDCx2WY+XypbCzsYaFhSWsF9nAzsGBPI8DeW0P +yU2WGi1ABaW1rB1XIoVK1fAccEk6AxwxPm4UhZfQvA1FKsmuyLgVYk01F/0 CLZGqnSMYZDnHZQSK5dxllQgbsxF+AkPTDbUx5DButDS7A/1Hl3RUYnVp23I Av2GTipd0Nt4LjyPhSOfJ5JnCRZXIPKYJ5w3nEJcIY+xLXmpODStM+1nzNsX S5khSpKvi3mfcWWdA+zWnkJsQT1aJDyvSQrEHOpu2gtw6k31P0W+uMnk5FKn HcdDVdcOQcnV7Mkkyn+MpWOYygdd1yB6Gh5nfomycFrS0tBOZxud4+cqIwW5 uOoyDqr9zXH8VQltDkyhP+uMxq/xuOjtiDEjZmLplmO4HhKFN6npyCv8huLi InzN+oSkpw8Q4LMKkzT7omcPYzjuu41P1a1c8TOFG/PHmnGSigsjrCV2mBAy lrAQWSG+GKk2GLN8wmj0ToZSYh4Vh8Fulge2+/nD22Mplm8/gbsxcXiXnIq0 1Ld4dj8Aq6fro5++OS0lFFIyW0/Z+uUWrEcwwQADzxv0gDpuOfgfcGgSM/O7 s+FeGuyCg+FtTsc5+1FQ1bHG+aRyZiW60AdAXdZzBGxegtGGZvTIohuh0UhM y0ReEbMaeV8+IjH6Dk5sX4axfdXRU+13uBx5iC91Ai61K65G/MW1MOxLpJCa 99OlEzoQKVTp2o1IKiWFCuS1G7p07Egkszv5Ti9OEHv1gmq3XtA1mgKLpe7Y deQC7j9JwJfSemo9Pek7dEVrQzky48MQtG8tTIdpoH2nrlDt3Qd9+/XHwAGD McbUGkudV8HVxQFzJwyDro42tPTHYuGW83iRVUuzn8PSJqaYt6kJxiyi6725 I6g6Gee9V8DczBzzLSyI0C6A1cLFtNDK00JLia49cT2sYWlhQfSUBXlVwIIF C2BpaQVr8l1bO3v2q0ts7eGyLgAJHJ77/xxB9ixzhCW4t30e1NVNsSvi61BO FqljtQkNdRTmVAW+F33B0+C9sCCGgIbuVGwMekUVhUl931Zk3N4Kw56amOf3 hBqnIIkJUrdvQUbYcaxy3Ii/3pdRah5UhCFyI1MF09fiInIE4FoXiUEaF7AJ i6w34ea7EjSywZ76BGzXI16CkiYcrjIdX9Li4HrEnVkJzR6j4Hz5PV0vwu54 HrFkzSZ74uCpg1i/0glr9gUh7FUi3qekIjUlAWFX9mPRSE1ojl2OwJgcmboz sjiVr7HLdBB6m6xBSE6jmWRDoKUe3z7G4c4Zbywcqw2l9iro0UsdGn2pDaEL 44nzYL/CBS6uy2A51Rg6ZENo6hljzmp/PExm0CzZDQFeBs4tm46h4zbiSano X48dRryba2tQVVmJSvJ/VTVVhFZbW0ulNmrI+1X0+1SarZIaslZZWYXq2no0 NregVSBiDK32EBS/RoDHSmw4eAlhz6MRfMAFo7r3xSTXq0hvFPdmdQ3ZvhSq W00duQKPBx6vCc3N/PaUT0LFjIl3QvVt8KiPGupQXdWA5lYRh1YvrkVsgBsm u51Bar00QyH8ghMzDZgMxRgqXyyWlI5T04eo8ehR+OO4D9Y4WmDcwL7opzsc 0+zXYffB07hyNxzxyZkorm6khgEoSMihuikf7HGH2+ZDuBn5FA+v7MF8oj+H TN+BqKIWNuIoqv2C+wfcsMTNG4F3oxEbE4JTHvPQt+cw2J98jirxP2eu2WFx guKX2GExElpmO/GkqJWLHbXm4oLrJKZbaZovXpQJZRz2Vny+vh6De6uin8Fm xBS3SruWxFV4dmwZtHRnYPPddNqKm8aq7NZaZCc8IieCG8xH6kN/8CDo6epA W0sL2jq60NXTg964+XDbE4TotG/UOSgpqVVAddoNOOopkluMwdaHBfbcozQi 8cJq6OtNhNtVprFFj13/b+SAn+OHW2kVaK4vRFLkHZz32wKb2ePJxp4Fhw27 cebqY6R9o4PSw9hLNqXjuIMJzVIF80NUY48M5c14f9EFA9VUoWNCgSqJpZQL yxC+zwYDBs3Brsc5tLJkKRe3VCEz9gFOerlgFm1TsJRrE5nShR6hfNAEK6zz u4IXn0vpVWOz1PS+5TeipkoiJVXVqKmpVWAFhQhQdXUVLSLtWUGpqkF9YzPb obyVXX+xEE2135Hx9jnuBZ/DwZ1b4O60AKOHDSbrb4ApC5djg7cfAoND8Sbj G3hCaSC8+u1NoniuIL5EJJ2tSfdZt4DP5xNnhBKjtkSMWshtW+kevV8obAdW pBo+49yqqej/uzOupdUYcvQ24UPwRrpbRk6FcjKfU6OtWU1WkRgEC6MRGLvu Br62SmzMDgxC8LV9WOOyCafvRSMm7A94TBqCflpWOBnHWC5ct5+wCm+u7cLy 5avgGxSKly+e4M4xd4zqMwBjnM/hY71YOplHVIwQH0sMHLoAB2MKBkl0e0Py FcwxO403VU1oLMvEy5BrOOHjDvOpJjCeYYlV2w7i0p1nyK5qluPmvfNzcHXd LGgY2uPcm1Jzlitk87XwqlGYkYTIu5dxdI8XPFcuxqSRwwhXdDB0hhWc1++A /4VbeJGSh7pWKVcE+S9w5sxp3P7E+yc7f7hkaYV1eYi9fRoeDtaYbrkOx+7E obBexMZ2xTVpOL9mEVbsvU+VTEnVdB0iVjEIEkqTj+ADTyxFwBeLyX9MRTI3 Vbq1Ah+f3sA+d3tMmb0c3oEhSCuRBB+VaNcn710ELhzcAiez2bBbdwA3nn+i 6ob+sUeGjYXXp9+Hh/l4/L7yJOJKeOzbNZ8fY98qV2wNfI5SvsyQvAp8SozH mw9F1IASDgSFX4n4PzbBxMQMLhcS6Fo0U1YBk23dXFuGr+kpSHgZg4jwCDx9 +Zo47F+JT9bCrhalej7e9iPmyX48zmly4BRgCSIOOcFo/EL4hqTTFUC67GpR Gmn2bvz5vopDaaEaJFpb+ESIyKEmFLFFjpWp9+GzcjV2Xo5HpUBKTnMpPiTE Iym9hLINWHLEvO94FugOo1FzsS44ma4vkZJDpL66FLmfkxH/giInEk9fvUFq ZgEqGlpfSZ5NLBJCIBBCKBJLsVchluAqScNGfxNmR/YYKYmDn+M0GFrtQEhG LSfMvC84u2Ik4zT1IKr7wRdKuUmxaFpRnnwDznOmYKzzWbwj+lSKDtGEb6lP cGGXG2bOXARnnwt4ml5OS7Iy9x0BKnPe4O7FA1izwBxWjp44eesV8utE0n7m +s+4tGEehhPX+kJCCW1usQyhxHj2zGOIrRByDBFRHSsUQ1paKfebTTMJ63Jx z88R+r/bYl9YtkzhObN2QoGArB3bytCWXTf6Xyq/Fs1NEtHhZUdjr70N3PZf QWxmOTNXpjUTR6f3pQsErM4nolGM5/8gIGxpeXNeNHa5WGGuz02k1wgnsT8R 8pAV6U/sbUdsv/uRNi1ruE1bideXN8N0kTsCyBpRQVKdv23a6+8q5Oax3xfU 4+ODvZhjsRx7HjNF/jQ9Pj/fJU7sZi9/j0DiJc1wJ55uaYu07aEV6cFbMVRS 6dhnzj7ElQnYKXf8wmj4OC+EhfdfyKwTT2FlgUc4csAZ05buwv3sxr/z9FVZ i3SAJ78CsZc3EaXnjrOxRZt/zY/NEqnhFyXg0r4NcPc9CP99vvBytcP0cVNh tfVPZNaKXvwDHwzYhStLwcOIJ3hbLJCbxD6IoAbpr8PxMOkbtZHr2LeJLsmO f4C/Eosozv966dvSCi0tNgKPk0uZJd/18yVfyn6/PhdPox7haQ5Psu2ZDFNd HnHffb2wbdc5PMmo5iLL9SnBcNCWoCUpT8HesALqkdgTpzE3Frej3lMqVmLd UBDNZXj77AEefqz+H8mScoF8j1eI+KcReJZRI7fl1yzYwu0KHvJTYhB84iAO HApE6JtsCobx5T8sPX2Boz+s3h7cSK5mPkj7+UodYu/XWoKQ7dMklcMKGEX8 h7xmLtkqKnyCdVyJ50C4nEmkgq9bfiD4OOIqRXL+vyaOfp34ExJsLqXSYidD QgeahCXmexGc8BUVJTlIe/caz6gJRK8SkJZdjHqB5AdvJaSVPfOnUxB/J63x M04tkk6X0plNwa9ypFEJCM+Z7Ix7TbgEyJDWgc4UzDE7jucFZfien4H3b2IR ExWNl/FvkZ5fThvd+39NsrHk2ZoK43B2y3ps9LuDzJrWfMnbooYsPPDfDreN Z/Eqr45NXTbmv8KJbeux4ehDZFULfpaysbmU9vclI0bG9yjYjxkFvWFGMB5h AF3tgdDoQ8U4BkJXfwRGT7fHjqAnyKkVMD9MlNyw/NmRny6dsBQPd0yjo/8D pq7CuUgazoBdOqrtyWmIBNi2w1T4RRRQz8SOlqZiOu/+Ogp31924GccgU7Op PXFDNu4d8yK24nm8yq6bJCGA/+EqJmvrY+jIkTAcSixzzf7QUO+DfgO0MJgQ NWa+G47de4PvzZJ45c9X3YiToia8P+3KzPtUUIXp7hAUNSOP+1iMshenMU3S J6Zvd5jCTpPCDzTidaALU0mnqAm7/VEoE0uzYYQbIctH0aahsmp/yoMjPyLe DBEI/RGbEZbNk+76faxclkbDnmkAlFNkC1qUukLL1A0XX9BrRP89Y79fk4p9 q2fRl2UurgCtPsxYZCXrfUhimcUE8QufnsQCoynYeoeBeJMWSwjxmfgVzFzk 32DkcA5ptSIW3k5U9gzrNJkEXfeRDricVs9VuFW9PgVDZSZHa7LoFBUAkBRE EIfn41WMoydASEd4yXdUg5GNLx5+qGCyof/GIiFy7u3GpK6MdHa29kdyjZhV r8LmeuLR1dH5v/OSJ6r9eAsrdJnefbkRjrieyfoZTHVYxu2dGCkZZDJ85UVk Nf3AszCPGdBU6QRlpXZoKy9PfiRPXttCqaM9bnxq+DvPVGieLRnOKj95dOjU FT3VekGdSFafPurordYDnZUl7XmqptgdmsXVNj1l+VjxGh7z9NCGu6ECFBTb 47dOKtBYdhTvq3GYEzrioV30geNCdwQ++YDSGh61LbiRPmI+ytPuwnV8L8jJ /wadGRtx73Mth4BSn4KjsyWgfF2Gwf1RIcfKhvRbWNKXKantbLIGj4tEElaq EFZewZgebL1GO3Ts0g2qvXoTAhkie6l2Q0clpjils74TghJpa3TXrzlszD5R y3fEX/WBja0b/B+nUwpEbir7GXELr21bhBEmc7Hx7CtUtojlznHqg9gFTwKw ys4Jnuef0f3JHHhFczFent8GOwcPBD6jQUNkZis2oSA5DlGhjxAWHq6I8PBw woGwsDBERCUgr7aFYe9+jr1RsBupjW69B+B32224GPIS6QWlqOM1o7mpAZXF OXgbcxP7nGdBs48a+k/0RFgB/0f28srwKSEaoY/CiKpkb/gI4W8yUd0sORSp TSquReq9Q1i+2AauvgG4FRqO8JAQhDy4i1tB/lhpZoT+OqNgu/smPnzns8Ns KdGu/hSKvW6OcNhxFckVAmkFqpiYthEBWOvoBK+r8dQoZI6p/A9/YHwfVaj1 08NMVz/ciklCTkkVGpoJaY21KC1IR+zDC9hsPQb91frA0OYo3tWJ/oGpXuxd ix9jAYu03nk2zr6vlZN+bQHLirpPuBEUjHsvM6m5CLIZyvL0l7geeBJ3P8hc n6ns7QB+dT7eRt/FhSM7sdLcDNOmmcHRcw/OXo9Ean4V7cZ4SS7WWpKACwE3 mKAZZO7RhPw3D3Hh/AXEfOX/F5L4X/HXWjNodGwH5UHWuJhaJ0PS3/4Sf309 b8kTiGqyEH3zMq4TGa4S/Owi/3qpX/+I+jP74Yd1Mp/8v35IYQmJJP/LMem6 X72YiWR+2Ob/ALKRE7I=\ \>"],ExpressionUUID->"f8b258a6-ee24-4d7d-8ae1-a56131a66af9"]], "Subsection", 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.7422199554720297`*^9, 3.7422199575880423`*^9}, {3.7467909251350994`*^9, 3.7467909255028553`*^9}},ExpressionUUID->"8859e49f-1d1e-40da-82bc-\ 713f2ec7a8fc"], Cell[BoxData[ RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", "=", RowBox[{ RowBox[{ RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{"(", " ", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"I", " ", RowBox[{ RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{"A", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], " ", "-", RowBox[{ RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{"B", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}], " ", "-", " ", RowBox[{"I", " ", RowBox[{"Cmetric", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"F", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], " ", "+", " ", RowBox[{ RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"\[Gamma]5down", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"G", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"\[Gamma]5down", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"d", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", "+", RowBox[{"Sum", "[", " ", RowBox[{ RowBox[{ FractionBox["1", "4"], RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"CommuteGammadown", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"Fmn", "[", RowBox[{"mu", ",", " ", "nu"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 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.74222001333444*^9, {3.7467918697920494`*^9, 3.746791928704928*^9}, {3.746791968956151*^9, 3.746792112251458*^9}, 3.7467921713634367`*^9, {3.746792279978081*^9, 3.7467922815621862`*^9}, 3.7468070365364637`*^9}, CellLabel->"In[77]:=",ExpressionUUID->"ace54938-6662-434e-8ff8-66706f6b24fb"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "3", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.738583861309019*^9, 3.7385838765788927`*^9}, { 3.7467922485866156`*^9, 3.746792260986814*^9}, 3.746807037572306*^9}, CellLabel->"In[78]:=",ExpressionUUID->"58fbb374-a452-4790-8ba9-b102d5e2eef6"], Cell[BoxData[ RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{"G", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["B", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["A", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]], "Output", CellChangeTimes->{3.7604679147961855`*^9, 3.7604682414956446`*^9, 3.760470340129901*^9}, CellLabel->"Out[78]=",ExpressionUUID->"f4b77504-3116-4c5a-8c77-35a057aed14b"] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ 4D, N=2 Tensor transformation laws Untilded transformation laws Dia[1][ii][aa]\ \>", "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, {3.746790752680829*^9, 3.746790754295445*^9}, { 3.746806144100352*^9, 3.746806152348056*^9}, {3.7468067803438563`*^9, 3.7468068142905307`*^9}, {3.746807309900429*^9, 3.7468073302533493`*^9}, 3.746807393818512*^9, 3.7468306727418213`*^9, {3.7468323370444098`*^9, 3.7468323421119566`*^9}, {3.7468426621339254`*^9, 3.746842662374369*^9}},ExpressionUUID->"ce0c5757-eecc-412f-a33a-\ cbc8bf3e7a4b"], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnW9sGmeawNHdl/swH84f/cGSTwiJD5aiyEI6W9HKfHCUCMmOtrJQ0grh qDnbusvitBezqWqnauystlSbYF2Cdzej3aKsSrodpRvaC92atiYr8NV0SxSj lGzsCDemDY7tWMTCMWR8BgZ4h78zw8wwA89P2lW3a4Z5h3ee533+/9tJ08// 458UCsWb/7L/Xz8fNGvfeGPw3Cv/uv8/Bn7x5sjQL069fvQX/31q6NQb/37y n/f/5Zn9//xs/+9T/7wHAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAASITExrL/C8fVd073dWKKDKoe/emJqx/NBZ/ESc7X 3Yku/G6w/+JcNMHjzQIAIBVAdAB1IfEkQLw/rFUpytKqMVoI/2PWm5B8FnSc 7dnfzZhuyrvGfQsDACBBQHQA9WF3Y5GY6FOX33goat3YH32RHWZXJhMbgQ9H e1NnMNXgtHcVjk0A0ECA6ADqRO5UkwHTDIxdvn7bs+C/F1z8+4Lns+vWsYHO 1sI9qHrVcvv+ZqLiIYjcWnZfHdKkP6s6hS8+gyMTADQOIDqAekE+W8RPUUa+ sn8Mnw2ulTDoyfhjP3FRr8LoW7BVY7x8O7Re4ixEbkf8hMXYnfkApn2LCMHe A4AGAkQHUC8SP8xOHMUyVrz5T/5oZSueTEQX7BnjvWATGt69Rsz6/IFgMOD3 zRL4eyZdznuAKft+7WbqHwAAQA6A6ADqRW7v7Rvvrn/EGB5ryK0l12WjpsgD UBKs23j586VYUtiFAAAgJiA6gHrx8hFx8mD6VPOrz8PPWef7xB5+iZt1yqIz VB61bgx3l/QGAAAgX0B0ACV4GY/c/dL5mUfwHy4eJt7sNxOhGk41KQ/2p3+w jL2uywVhlT1609Q14qu7kW1wTQOAYPAkKBIbS77Pb7q+CbOQA/IXHVxWDVQg ueG71Jc5jWCv2Baf1/t+AKA5ILcjd78icMvY0KtZWdraqXt1aMyCO+8EJXcM 40lQ5GNVipYTjvBLXu9RsjTnqgXl5QP7sfasyaw0ECv1viEAaHh2NxZvpTLZ MM3AWQt+I5XSnWJhzom/a8gEZbBuo+VmoEoSgojwIyjIbd/FjpyLruVN13oz GCDNuWqBSd6zHWrJPtIRYnW33jcEAI3Ndvj2O1pM3Tdxw1/KsCJjoZtjPVTK gOa0XSJVRfwIiuS6683sVTD1mdtPJLE2oWnOVQvNTsT9vr5T2Tkwcd3/EwQo AUBIkhve97RYj/nT5QoticiNryc0WVGnMhHhuIh3WA6eBEX8e8Lcr8Q0+slP aglayYzmXDUAAI0B5XPDlNqhKWKxfGp3LGDVKXKndPPsOpzSAQAAgHpALtv7 85nYh8Y9T8v84cst97l8DVLrOfcWBPUBAACAOpDwW5RIEZHS4i/ndqP/5RAR AUc+AABAQ0ImIn+zDR1qGXJG630rJSGfOIdbcvqoY9j5uIwXkNzxTbUz11zJ gPVgR9/ETYihAAAAyIpkbPGPRhWmwI6en/tRqnGhncjcldRIKeXh4emvI2Vb l++uOAYRt6ItWEUjxUL2IRX03AMAAJATebU1MfuD/D1ra+6xzlz9T7f1uxdV P5Ftoo5pL8yC8gIaEDKxGXLj50/pOjGss+/0xQ++fMi0fWX9iYU+NGn25dPh mcUXsrlpQGCyakvROUwsy19t7ZHrrtFcfobqjDPCrHiKXPNO6TDelBcvgmJ3 MzTnsJ7LXERnGJ384KvlxndpymfVZHzzxwhvrMUEe/uSsRBh1rar9JMfznoX vr42rN7f6W29lvktGegBcvfh9eMtELMGUMjEqnM0vY21U3c2ZLCNq7Idwk9k m8Oy1MWJZWI4ZaxhvZcWtmoRlXwIisSq1zaiwdS6sauE27vguWkxHFTwbhWS yUSy5l+dl4tkEGfVfFGQM8QPqp6BQdP4JZz4KrCyxYuYJqNfndeqtRN/zTrY n/kmD6W+ShYdC8kV50jOhdJj8cfqfUNA/SG35i29bSmfmv4P31co7pUNydi9 3+up49lBI36XrZmTrWLGVMNEuPII4AoXqV1QZDr1qV6fWciVLZMvAtPd6auo Rm5F+Pqt+JG9PJ2ERVs1XwiiuVBaOwfemvn020i8hrIOctV1pqvl+PWHu7nH F/NbejLXP4zfl3bFSHLd/bY6/0AOTfqe1fuWgHqT3tKp7aAacSxt1/tuaiax HpqdNmQm+Spfmfz0ASc3fnJr4VJ6nqJKjy9y6b5Ru6DI+C1VQ/YQ/XgZIQyZ 1xcb5s1nIh3NJeaq+SLvLXy8HPx7as7mtfGBwlnSqe3YN+GYC4RWKvkKl4P+ BZ/7L3bbxbMDmoJLYJrXL9++v8nlKEVu+9/vwk7gIeQFJx859O2ZCx+0BiTp h6Ugt7xTXS3ok4TmwE1PPEyY0oPdVcftIVk23Iw/9rs+IYg/222/eW/8tL5H lRESo9Of1NRrl1z3TR1Ov9b9lgW27TdqFxTJDc8FDaab8q4VfDVSiM2fz4Qe qVkJ3fX7ve5bdutoXymFlh6InGlxHFxGpO7TGFf7NIu4qxaQ5Jbn3Y6Cx9Y+ 5dth9XwSsZXA54Uz0Vo1QzOeFZbj1cjHzuGOlmEn2uwRqS45YHL9xOp64hJb tOnpSlz6RiIgKOTukmMwfTjE+vHQrtS8MIx4GXaeMxoyvKbrzOxwrPPY6Unc 6XvI6YBKket8yDrgVbug2P7G0tWmmfi6KOZIPvecb6Pe3wE8JHAzRnIzMD1A FxqYetS5WquGKoNEVs0L6y5TC+3BKfSOFS6PjUxs3r9teVWFXko1OO1dZW55 pvde55h7Dfl3iSfO7A22mJxPJGbG5kETM/JU6D8AND7ZVASF4ojF3yh+YzK+ FvJ+PHUi/aZjSt25Gnrb7q4SI+mXpq3X+i1zR2rNgiL9vaWbyW8HbVnjo+28 h/VkY9YU+RGFc9RIaNU8UOyANRAR7pfbiXivGFAPJHZ03MnQE55us18wF4Zc dhyn7q/giCUtaIkZyOql2icBEJ7EE5c5HfSUZNS7VnYisxe01It+0DgzH+Vm JsTv2vra0w+J7vqrRO2CYoUwqLss35T4PvIf9v62rAJ0rTNfCFfIFYeeJjOE C45LaNU8wLPm2sumqrblL8i47pLcDN3xr6CW6ssQfpi6SoUuNHWHSszAlMr2 AtXF0YAF5E/KM5MxAhrI4KKBusfb+6b9nFI1cmaXomWQWGV2hZoFxcv45tpm yUSyvA+qrd/+DzHe3VxqBIVwYSYprbp2+Ndce0jRZV55cep1g4xRaD0r2Rmd VGIGdszq+2yyQHWBu7BJ4SKQZQetGFmhnfBEuSw0r+IPT/m4TUrhS1Cg4Z4j 1oAoNTjiaa5y1GPVtSOI5tqjkljQy3JICc5vaUXrmHuLh7sSgszJMz2fCB3J St03jH5oSvJbt8KUkAYAbQDFOQtlZ8n+GpX4ccy+xOF14U1QIOEe0d7c+muu eqy6doTSXKkD2YKlH02bwfp+u8iiDJPc9l3M5j0WRGOlQzYxg+p+s0IYCp4m tNFoQpLrrrOULdL1vn+7QS2uFPSmuwqdNcBF6pKrxCCleTh4VvkTFEi4BzMS TEOT2wF8JJt8mcZoeueq4w7TTkqcNRe5HfF/Ypsw0b7bYPxP+2L1BpK063Ba dd0RTnMVzPtOwaqk5aln/BD1uY6LPmm+/lRiRm5d657xLvrT7LcF5V98CrCC mimskGlZBBlffxT8LvAgyuCYWTDohGuUJJ3lnrlE66iLpceQP0GRD/ew+eFe Pvb8zy8NPbSsagXzTkrcNBf5o+fiK4W1YKnOje/81vOY3Zbjtuq6I6TmQr39 FKVzMkux5R6jjq1Yx6RXktI/m5iRtyVzVfws9yHQOOQa6ShkUxqDkG6plDmB t2qGPwxV017Mx1BWBBmvjJ10hNkYDbwJCjTc02vxs3Q6JtZDt85rC0qzeqcD VTUpF82VS1vNf5VK/xt3mEM6e22rriPCaq79fTU3rkZ/zpauKS+DfphIdUaB C4LcWp73S6GncbZjBhpWTkSIIfrThDYazcYzv+UI9eMfxkOyOcJmQEIeKaqX 9NLlR8sh2z2Ob2b+5N9+zP6A8WPjUVDUHu7J9UvJv/7HHctVpB0HzfXiO2s3 PZ6uPutc5dbPRJ5Brj3hNdfepm+yh3Z9JmcqxHug6J4OILNC0kWIUugHiCRm 5O8uXWlCW618skwBXtj2TnZgtYrxuvGTy3SAzbmrYMPX0OUGfeWZa3weBQUv 4R4kV4TpWlhrLnLHbzlA+0h7Px7k2FhMpkGuPRE0Fxo/zdDaa7tX+TmTYcdx ylArOIClj1gFRYh1oCAxI0/x44S8+GYC3e2y8r1Q0N3d1Zuu0220mrrc7Czb X81eiKmXlU9BwU+4B8nPp3jVvlzRGmKtueIhfID2Cbb+VRSZBrn2RNBcqCM6 S5VAKnKQK/hRyDAx2KEen6uzRChMzED+n3zjytzbLJOadIAHEA+DvHwvFC+3 PO+kAyitnQPmGc/jKnro5X38cO7dbindn4H5d+eriRk42VLwKCj4CvcgATuK aumOrDVXgV1ci1NatkGuPVE0V76Hc/7XmfRtlv8AcvDrtyM7mNwOTPdide9I UJyYgVC4DwV4noBkQQr6ZOZ7ybEbxPvbmbXATTdsz+1ztdlVY1vRHV+ukJ9Z qzceBQViPNbm0kH0b4Z2veNRpaWw1Vy000KKGkrYeFt1HRBBc+UmvuVp6bZ+ V96+zZvDNFfbbsh+XE2PK9WBUokZCOAubGIQi1uOQa4MZDx03ahqURmueCsm dZMx/3RfVtOoTuGLz2p+L1edQ9mMOUYWK3+CAgn30JUge4rOrlUEAFvNVdyi l7OA4XHV4iOG5irOuKts4ebzitsnfdTLk57j2aKdmovWVw2UTMxAKG6jIZfe y0CtoOkKYtbOk4nY00rD9IpZi1V8i7KtR1Unpj72Lm0WB6Vfxle+nk7Pf98H 6znrCNautvboERwmhZD8CYp8uKfmI8dzz3gb+v7zrbkKp3vUEJ/icdXiI4bm KihXzGz3085o+UeV67+het02O++b/dOk/gB/LwhnyiZmIEAbjaYF9S1Ui8vX RGointtxZcJk0HUWhJCZgyn7LJ7y4p2MPfwyM3QP0wycvWizEy7P//nT82Q/ sIxoM8P4lP1j+Ff8laigQaJqTjbqLnkRFGi4p2vcU1tcmq1NxFZzFf4957ob XlctPmJorr1k0FbgLqz+A5Fby19+MGk63qNs69SdGp9xBTfqPVG2fGIGQnEb DfmVowJcQH0vAhnaqYY/hMXYXTzInBPqIedqlS+MR0O+/71uuzg2ZBjItInA OnWvDY9N2RzuwEpl0409aJCobdzDqPcrD4KC13CPbDSXnINceyJprhJ5C/Ir 0a2YmJEH2mg0K6ibiP8aZDIRXbCP9vKkszJwbDMoIKgrTLTIC7/hniKJWiW7 uF6aS9ZBrr06ai6ZeVarJGbkKQ7qVT/ZAg0AWhDB90TRooGttYIpe4wTN+5x mqglJKg4ap/y7Yhyf/yGe9hKVJaaq2gSJdeIqqyDXHt11FzyyrnLJmacuV0t Wbe4oIOZx15CPF9yXbNIhWuuJXkMDELfJD73Nvls0X5aQ9Naat3oZcfsfHA5 kh4UmIitrYT8X3z43kn6n3WdccluMhgaJhYnQIw09ufHCC2KdPOquYoENjeX Du+rFh1xNFfxt8hJc2UTM1qGHOHqESvZ58WX+rHqiEyeHmpr89fya19t4aeQ VnitmqGrs6H1Mg9kdyOA0ya6ym/GCjrwiz83O/ks5PzNsFat1L11oyB5IxGy 66ntztMMUNrMshQHrYEKJg07zYWmVWQYdKyUieuJumrRAc1VFSoxg2lzsCJz XspjMUtB/nD7zM94jafUAPazM7d/kMOLhfZB4iuGu7PqPIu0BD9omL4TSVR+ GMmthUtIMIzJaHtJgYaJ+aoseBnz/So35ZbuyEWarrcY8O95UZQFXYurpeuw 01wFA9EqXFzkVYuOOJoLqY7PIRPNRQ13ZjSwIEPUOYQJ/0gBaYGKXF5yjJOx wJW+/EY6aMTvMgpLkT+6Rg/mPsasGYV0QLsX8nUAoHVCQI6RZCJMDFMmateo M8yTOCqOF1QskWCnuYq6OugdK6V/X5FXLToQ56rM9rfW3n3rXDvhiTIVAMWP tLK7AGgEeHZzkRt3prQ5t1CLxny7mrWV/yjNoSSzQnjU6cpXD9jnAWt27oxq yB7K/DS7G4EPhjVpDYMdHXc+4DFZBekDnKGi8chKc6EJgemNUT65QuxVi03d NJcsWhNvh/ATzBIzEIoai8lESQO1gMbla9Zc5LpvCul+p7ng2WBx9KH7q+VV TkhLzeXpvSF3lxyDKStD3Tf5sTdVTE1cu2BMZ7OotKYZ9zKDgYGsKJQAFZvd sdJchQ00KjSAFX3VIlM3zVXDKB+R2DerbxgZJ2YgQBuNJoRHzZVpGJvbPN1m N0uHH81fLa9yQiE0116qXVXEf3P63NBAjzJTSz1ktuBO39KGMK9l0SCSCvV9 LDRXkR+yytANkVctLqJorlIJGkz6ktUVctV1pis1u2HyizC7rnAh55iGvlhB ewEBUgDVXOXTvZiQmtCRz8toOX794S7L0zHtZC4vzUVzdcrXV0GuEoM046i8 5ctCcxVkLdY6VkbeiKG5ikOW0p9eRCVm8IS8pAfAAb4KkfJdZNOwN7j2CoSh zPaeUGVxIkM+cZuRn7GCw5Cx5irUhrUMlGwAxNBcaL5Q9qlLfHoRlZjBF9J3 jQI1wpfmeuoZR5LHOBVkJQPWfHIhaK76kI015FC/7S7ZG5Cp5toKWI8heR8t momvN6QsQoVGDM1V3ISW4czTekElZqhGbnFSr8U2puyaNAJsQTVXDZ5w2gDx ymPsypGMOk8jIk5enmp0UoysNdc+2w/tqJHU1muZL5EVwUhzZZshVNWDzYMI mqt4ZJWk7VzOiRl5ZN9GA2ANLxkaBWcebm156CU/UnfLFyBQhkad2H3gGETM X6zfslDU9ZSJ5oov4nqkkwqmm/KuSfjkLwrCay60E2kGSfcboRIzmHbMKEnR RG/GIxsAuYLM8+WuuejeiSqZY2Wgp2RL3S1fSGNprlSn7m9njh/I/6bqN2+G 6fV1VTVXelYmYkQzrklvbATXXC/CjpP0lhKcgs4iwb5jRkmgjUbTgfbQ4Kq5 6EqnynSMMtDLYGVRNYmCaq4G8bGTsbu4EbG8VKfwwNO8Rq6oucjYfcJ8JP97 YoeG7aC20gituXbv2XppMZ9q863qCpWYUXWUSTWKnyr/A5uEA3rFcwDVXFwT cmhBLm5texNPnGitqrzKkPeEaf9Yf8j4I7fl1by/D+sdtc9H4mmJUE5zkduR +etmXb4+AtP8F77wk9yNUN4QVnOR2/736ckZUja4sh0zzLO16a3iJi2ycnxA r3gu8GEs0IQYp+aH9Fow7Jh9STbnpQzoAeDQpO9Zve+HR3Y3Fm+h86wxjfEC 7vTNXaUXLXePO7/1uz64YEAmXyuPmGxfhDbrPRReUgiquRIPHUak17UCUw0T Yabt10Qmm5ihNrue1C4p0ahHZumnnVGZ5AJBr3guoMkVGMdGlTTNxcVcorsK pXxKLMdPLtOBWp6A1Nm3pPyf4ZNDWiWTN6y1c2DM6pgDnVUCATUX0ks/g8pE cM3WExwqMUNtdDzk44SPHh0z1NZXAZA8aBUVx4QcmubiUBQWC1h1eZ3fj4fY Nt+oO6izQkaHPfaQ8fVHi39z3cCt4wb6NC+lzjRlxT9yeb57sCbZsIoEEEpz ob30M0i5o342MYO3l724+FpmBaEAa9C0HG4vEXoF9j3eyfVZszr3+ZpjtXUB FUdNMmGB5UxkgEIYzUVuzVtoPSja+6b9kk2Joe4WO2YN8DUBkpbcm4avMXmA VEkZXVnFwS04R6t8ZGtzPfNbslMt5NtgAdHd9GGIjQtoLm7wr7nIRHR+Bs0C VbRpJ/7KeLqQ6JDrC5Z+fhIzEIqea+MkSgFlQGM03BpAofVcrHpfkPHF3+bG UGK9lxa2ZGmuIB7XCpOnGgvQXNzgWXMlYyHCrEWtLXXf1Kx01VZ+YDq3fgVl ofeOU3CP2gOyAZ1twU3+kNu+ix3UFVgY6bQxlFKOJlcB7VvVND4K0FzcKBxV VmE8dBXI2EP31RENGtrCekcd9yTrJNwjn4dd72qxWg7J5a9Nm+6Xon3SJ6P+ cQB70Akd7XrHIy4bfzeI97dnLtE66mLiBKAVuqpO4YvPJPvCVQPpW4UNN8lI O3DOcCK55Xm3Q0Gnfcq3w2rvJ2Irgc9xs46W54kp+94hFp/ytPnIxOZDn/MP lrGhgR6VQtmjN03hnwaieVMumWBn1pGJjXu3pk4gvcC6zrj4a0lFPrs381rB iUDROxOUXa4XwArkHNg65uYUNEXG62An8FCVzr2o2sI0p+0yVlv0xEI5Ve7X QqaGFIXnsEV5eBeqgkHGN3/MjD58vBz8u983S9jGdCXKCpR9E445f3C50vDE 5WBqPPRf7LaLZwc0hZdQ9puvZyvEayfxk//6ufR9qnWjlx2zXv/CnHNm/87b NMPXF2O7seBHqUpz7Oj5uR8rPuhEbG11/749ro+yU63pYL0m2188gdDKWoy1 wt2/NvVYvG7i97QqwjxtPabfuXz+QCgzqfLJJl+PCJAIqOw9ZAty8w6Tm4Hp gcz+wfquBGLlrrK7sfhx1jOPqfSX5iIyt+nzLUSwA5YFmS+GTl72plgJ3fXv C4pbdutoX6mi/1aN4d1rN257Fvx0Mfw0xpcq4U2oioLgvREwpXbE8rF3ibe6 OTIRuTNtSB8pVYPT3lVEoSRjD/9sUrdq3r5yWU+tqmIRTXLD/Zaq0s2j62Bb SBIP4Xr2pbsQ+Wo80FBXDeNFEo/nqGZBJX0XiVj4G8Jykjp9pQ6KC1GJHI+5 Q+74LdkEl55J32a974dX+JG9vEQ0eBSqYiGI5mrt1BlM45dwwu1/EOW1cG7/ Cf91InOkLO29T66730YqnSv3eWOhubCuX3nZDYZ4HrAeqX7dQjpOOB6C0dVg IGMCOoadj7m/EOTWkuuyUdNKvWUDb0xaccfHdptl/HRfJ3VMUvaNTn8SiDaG dYJ0LOTWJF/KSEVz8StUgRKQ0a/OU56Q8hGoF99Zu3PRpF6Ln69qLADgCtLv nWuoKw8Zj9x1O6zm13WduVa8mLLnuGniisMdWGHv1ZYu+eeGdUx6uQ7mBCoB QlVw8hPZMPWZ2+WbryHJSC1vupp8SCggCRCHocymOtYTZIrfEYu/kRrtSgYQ qoKDTMGunF5Fhglj1gXYb18GsxaQAEjb26YpSqoVRN1DCq4ggFAVHLT9WpXp yc8941QmV9NU3APSh/zRNUplqjOsyWp28lP8lMcdICz5B4Sq8KAFDlVi3Mmg LWvWchpmBACCgIylaxkhVmFGQGWQx6V+2w3uKf4BoSo8297Jjlz/tZOO8Ivy f4r0Ywd/LCAp8hMe2/vxIKiuSpBP3ObujIXaa7sHz4p/QKgKDtq3rWod/Zp7 rJPZXwKAyCB2RNf7/gbL8eYVcpWgAjCqM84IKC7eAaEqAkhNR9U6+p0FywHq IAEtAQHJkTcl1INEGFRXGXLDWcA4FQgQqiKw6hzKlcFVyctCSj4PmFw/iXaL AMAMMhG+YWwBs6sC6CP6tU+ek1kkDwhV4aFN1qvcPCcRIYYxRn8JAPUil4oM BkUp8mapdsITBdUuCCBURQDtkVJlmjnij6W1/yMT0fvzwWgDNRcA5MxuyH48 XR0j47FZApHc8v06HQqU7QRnWQBCVQTQeeiV44PIQYLeYyc1VbZZ5oADMoBM hIlhFVatcUHTQW7NW3pThUPyneAsD0CoisEKYcieDyqOZkbmNtJH+KUefvth /D4kxQCSIRF1T6RHbnUOE8twcE1Bri9Y+lPytMWAfw8jgAUFhKoIIGkwFR4y MsBIoThiDeTb8KcjjDprAN4FQErkJo2qhuwh2Jw5Vd5jdq2AKhcYEKoiQL4I THdTuS0Wf+nRzDuR2Qva3DQs2iytF2HHSax7OvACnDKAxEj8MDtxNOU01L7n 3Whm5xi5u+QYTLlPDxrxuzF4UwUHhKookCvOkUyUsKSWzzzh9qMGvaY45pjq fqaGJC5AoiRWXOae1Pxi4x8Xy046bmxy86FAbYkICFUxIBOrztFUc0hMNehY QrpGk/GwxzaiwQ4aZ+aj20G8vz39lHPZm/EwYVJB3zNAylCWV5MqLzIWmNGr QG2JDghVcUjGQoQ5dTDDVPrJD2e9ft8sce1dg6YV04zYPOH05GUyHrpuTKds qQzW276/ua6d6Wk5OjH7A7jNAUmTWPVOD6oUbVrLfHNFDl4+Ik4eVGBHzMR9 UFuiA0JVJMj4Y/+n+KTpeI8SUyh79KYp/NNvI3E0vYVMbARdMxOndJ0Y1tl3 +qLdtwpPGJADO9HAFzc9y81V30VGA599dmd5C7RWvQChCgAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAA0IT8P58DbJ4= "], {{0, 113}, {574, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->Automatic, ImageSizeRaw->{574, 113}, PlotRange->{{0, 574}, {0, 113}}]], "Input",ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztfQ9QnMeV55cPnMTZby833k1iLlGsHJkK51NOUVFsFSptFjaF1j72wHuJ jpXscODYC7pbFVK8EutchH02yBtPNja6tVF2PZWYUs446znHxj6RWMQRToHO jGNchnJwJFzIZmwhI4kasSAG5t177+t/35+RQJKTrHdU+2OdmZ7u1++97n79 +vXr/9T4V82372j8q+1fa1z7J19v3Nm8/Wt3rN3c8nX8qOADllXwVcuyfrjW ov8G/E/xB/D/jD8N9Mfi/2n8a4D8p/+MP/06/79CyM6/Bcln4oz2lq02VBQ7 +LFVXAF1LR2M+DMv2ZCaXy6kn9iILBbInB6DvgNtjNurS21wnFL8uGbHPuge mmJkRItfFk0BLMD0yHOMJwcmbJgH2C2/y07DyLPPMl6YmLUhC/Cc2x5SiAUE fQwk0SYK8WNBHwNJvEo1lWUKBZU2kYgfI41MoaDSJhI/6/KjRf1yCdLjCUZr 5RpsxyJ+ROva4bHDg4zk0GEbEo/cgx/XlxWBU7ad0TUwiV3Kyubnxw8yGqKO qqS+Ew4N/ZzR98gu5HXkRqsA2g6/ybzKiDEHtYLRmSn80eD+RohaaxiVsaM2 pA2uLb8BiVs3MCznBhtaE69hhemskrb1rBTaEpYXnWIgSTZ1Cz8WnWJgv2zq FnHL7RQD+yUlLzrFcCup78SPRacY2C+buoW0ZEDT8pk8q3/NrN7hGbJTvbCz xGG4tTX24M+OL6o+4P+Ss8IkDHRtZ5Q5G2xoOHAUP56eG4N47VoGLhTE7Jvx 4+6JBWOCmbdhMtGCVUVLvgn9M0sEl9k1kpeZN+Fw240Mhwlp+D6WH00vKUL2 iLGfHsHyB+qi2NIGRkP8FZu4/ow50rFjonOu/Auoa9wxhFUo55FJ/E/RIwZ2 yqY+4ceiRwI329Qn94fUIwZ2yqY+Ye3Uqxyczp7An/VuLzVqq7ahcyT9ISkK qjd1+F6odNYybqyvs6EMixa65dfcxRg4ly0QP1l8Fb/rqiqB2vgYY1E0Xi21 lxrta62gzjOQoTbx806P/FM/gTZUxzZWSRJq/BWfCj8luZo9wZ0QHSGuVmNR 7IYq+kElgAXujuiSTf3Bj8tU97lLtuoP/WTxVe6O6JJN/cmz8Uqy8S+N0XF+ ZD9jo0sAWn1grY9BciFLsK4OJYAKcXlnBwliWum75MR5/Hiy51ZwNu5njJx3 +/8fQ8c41uRU3o+VDp7WI+d/GEQuHu9hNLpT+AYsimxlpiKsJ00BiM4wXCLX x7A8dUhWbWhJgewRwe0W/XV2cK8QatLDTnGXRLds6pOHn1RwDsa6agm6qvoE pPAbhPURqb5nsL6R/Vuo6wwh/RtY+ucUnbLp5fE4bLaqGVI7bpB1ncUCrx64 BSJYD8GKNuH8NJ6+S3YyQ1Nzfxsri6swFbg+9Z3wrQlPyPJzWJ56occWEVef IF4Z5ZVmZM9wX0R/lBJZN3BfEHKKxW7gF7ITCCvPvyvMvxOQqC8mhPLPEU1m T/RAHVJWp1mHuzyo63mDDGuC1volnEU2rWVsjr+GRAj6q9SwyDB3BIeorlL8 dXNiQplS/1P1dAaGY7UMt6eReiwa/6We7xQTaa6lrlyEiUIjsENk7ZuzoYWT JHaIeguefzb1iaZ6t0cM7NRaHyuXRqBzg0PQrNwch3EsihCsLBD8iRBUuaI9 /TCLX8+afIQZGNhbznCaetGwEOR8SfaYF4/JBDSjNdcsLbqSXYewipPG4nGP 6PEsWVyxqjWqx07VAzYMzy5JFi6RbURd8LJwM+nQ+LKuUA4qwZSItzz2BT+e DbAQZshacjvDmM6z8D1gYSYJsWKLoFnomi0EzUI4Bf17Sgm63IZOGMHlFGGw EM3h6dcYR8embTWBSRYujpPBvjWqexBFszYxOd8hiabdy+zQt6AcvyznQhE0 rNp+hm2cNnj8uCifSRKPiy0fC9fcheWpF34WwiksT13xlt9AG5sRj5mhJe52 hpEJ0cKgdqEJz7sSsuLlnEhTVSrRzPBMw7oot1qtys/Bse5GRkTPodJwRFj3 yaLZk9DfupEhpttK2m0OTKvpVrIrXINoH1Vg7qM0u2hxEiSbK6G//OfyTLk4 U2AKeptKCAZTSmFP/ymC9btu9bQKF+IqbKr0ehta+t7hWm/0qObk49AQsRgu EeXfJlt0Tiu+4gcNTSwufqJYXf4tGJpdIih+AHkjiFIfP2jsE7GyailF1/yx JM1UdD0WlRSHssJviBXyjmd9bJiBPHQEMQvDNMDX++bIte1D+ENj3+/qyWbx o+xJGuWu5AVKbGhMTOKPjOXa+hvZYzLSkrEbvMs7qhWWXzTK/29ZPtwG472/ oJ+g58+FYe4DQokeu6DK5dmzcva4qjw3tI+xzlJ7xZzLZo45P1Ce/1aZjSS/ zSg3pqbyb/PwQlh/K4pmpxLQiCOwUY3C6C4s2ptSvNGcyeIXgm7ChQ2XsFXX KCfYIp0Wc4NIS/s6vzXh3Io/65k8H2QL+TAmum/2lY/cgeX7DBeTly3ZSUg0 ljCs8Bn4b1XRwAxchEWrul5VRXtkT+cGmXKEsUe+lclGGBxZYIoRulzkDiYX kefIxTjCI3M8vs2/dK2jLVXvW2pplFP70lgXbMJim3TRciy6d2DGywyPiSyG jDDfmIPb8UeJKT0eFEdyjDLDd9ujis4x5YJ6W82L65hyQb2YF5Fu/G6TZxEt t4luwZAWwb/szGFoLXEIin+RxgRMYV0IbamcG4C9ayyGYASZNptQdKQXS35G ZN8mZ97ODV5VKtrZhz+aMezY74jywjtYZJQvtmFrz4RvShYTCZKN5VtLfKqN lGP5KaN+qdrnBrC8IF4A7WokH8sbZq/lOY/Ks+eC7Am1R92Bug3i43MEPVBp mmiIEvRAre2GCaQG4WFPdpLcDVsdk5xSm2yvTjnO5nkcb/HNVFUHsNYx40TF syILKl0vlDsTbiP/CFLq50eWDiuIXG/9td1YfsLgn+DHTimm1/FnPY2mWEN3 yFdLpsBZGGrfRAidvbj0H6vC89xlhC5cdCf0zy4TrP8lhJKd6IZabLvW67iL Jc+q9tWcsvg6kytIljYKEszkIvTaQDYQ0XqRtSHPkRwcUUf+08/DXZVrGMaS sqtvSq0+ihnnX4bOjRGCsWOqQsJnCT5mLL8G8c1FBFXYdPN8WrY/n4JX+nsY na232VBdWmQa2cUVWxktbQ/Z0NM/gtWcSCtHrPU1ySjdnMmode2DQMNpTu8v scNYXnRXr0XYYd/kJY8Nzr9MbqGNgf1oFctMOXokYz8pGWA4cz6nOlQEpdX1 jJa9D9gQT/TTBvH1aTro5UPsz8oO0QYx9RN5wKTW1+jtEB89y8BffFAKnw4u Zvq/CSVIX4kyZKnFNVDb/SsGlv8dVfsSnO7/BiNqWde4fXLK78MfDs4qI9z6 PVn/OfxipFNtOayPm6bKtp5j7ChGWG+LFkJ2oX6r5pOSmOwsHO97kNFQVmSb zNrydUZ7Zxyl/0Q3LTuxvbCjppRhGh7FNbBz/48YI9MLt6oxGXLGsG4fDOGm AWH9RYi0rpMEN5GZlNLK9inJjeDJH28zbqfp2xUMd1Af5y2xcISA5A7JWkOG qSsYLp/XoLwGvWca9HlzUq3czog9MWjD8TOL/9ZL1guwv34DQ5DViHXtH5xS RzwFBlnpY//IaClBvpd98yH8+ME630nOmr0D+Bt1UgfGcVioGtFBc4F50KzV aJ68BPE6uWPSakTT/YbOEWXgTulfhNlmAfdgkSifoQCzI7GbiRwGmwjFNXeT KEffVTxQAXDkfkxPvgiJ2K2MMsdQqVpoPTjMmM5k/6sxMheSMcZ6089aAe1D Zwir06pPG/WS9IQE9YhvZOkJCcoICDcyyZUcA4Vnk+yklqPUWGbn/IpFA24e zrydYqRSKRv/ENsmxn6hA5q69uBiXux8SFJdjAVq2nrgSHKMMZFKOfLHE+Sh Sg7DUP9TjO6ufTbs3lKGVDhabKy9VFcxDcXWg0cpyo9gSQXOvEOusYN3UsMM dqVV73yQzD6Ktho+wug9wMStwY/Lmg/CaHqRkR77oQ2t1SXUkHMj3HXkbYbe yAppn5rCriYZA334k0fubUCCyvQOAQeuoNepgpaupxgDI+M2nDiVtrwnyR+T PM2k4VQqxUCO2MgQcpj0J/4B7q3fyEBefNiYlita/p7RN5S0YWScNgkp/vFJ xpn55bcF2dlf4XfdtWt8g2BTF21Q9I7KulbJN/SU2ql5CEbSSwRtdy5i+dOj TxgBbmo8RusegCOpBYJVL8rP0vHYniJzM4Xja31s2PK6SL8mR4BWNbd/yMPx V0jMyUHof7qb0bmzBseoZSllozi6svp74JHHDzEGhpFFybGJQqlx72LV6Yze mn1GSeEdViChRFQXqQOqECuQUCKbNIg+Ll7DCiSUyCYNoq1udQkrkFAiDmDN j6D8CMqPoCswgrR9uwSzA/cw1gl9wcbWdiBdQ0b4lzIdWPFOjMCP460MJO4q 0yiquZuBizyflKv+0Kp65hhjqPd7NsT2NOHHWyqiHBgvguPREn+G4gemM8Ye UlvWmUwIQW7o/KvwdMc2RtSw7PybcDk+s2fxCyOASYyTAvI2sa8JYZ0WhWf6 sIWWiO84niIUCswIBTSiQJsEpwfuNYKfQv1S4mw0myYtijf4/IZOGVlv3YYZ e/OFB1Hg6Md06BlOZlNaJa2HGTNZ+IKHn66UGCgom+Rk+a8wjNgkpwI5PlCR SD4I6aCPagYWmAxU82cdBUufMDxGctxn08eg/+HtDJzOFMk4i+3seZWRzqog 0yxFe0323SNDEnNZeJ8VpBqhXErw5tHcjKGz5wbuYqwxvfNrOexLhH5dK6hY DAY9h7p/PyqpSL/CUkfobaJ3W7lNyiTcK+U0+zooHHSZJAVvFhsLlnY0FUN9 4gRBnDzmhfTPSUiZJLnLioNCCgT5yY0Yz5vGzQn1C4sCNmo6DkMKBy3C0vEo CzDVu5tREh5hLWW0NNIJG5CSDQYlgS3kjJogQhy7uFmLJdMEveZ7T8L1vk5H lYi5P3v6BSzfUemfCaN0VSIxOa/o/XPNDFxbenf4Twr9QSDS0Z0irtaHikjT fckiUkYsB5gdZRxo2KDn5zVQ2fYTBspHjSOKgHOjQR0Gzt826a4UCioWq1Wx KRSKbSWdkm1robwDfS3rCUbnmlhhEUIoVE7FERrldESTsRoXwPzod6EGR3iN ER3uVD1AUYIEa5vouKE+kk7/AVteEv+yJPFp0cvs7FGOMkVo1lEIQs3+pLrC IGcsozDOtzfRpZZZ5YzLUAuJpkDTgUGvBBEWglscgyRO4QgtiNB4QC2wjymB neU4I4ReQqwIxX8yTmdhqyw63QtNKK4mU1xukCvh1yoDGV2XkNHBejSUw87e SUbGuJ1CPkg0eoXhiwZsLRukxsHtdVImdIXECEnRMqkgGpN6oVEyCWGMGaR/ 7YXKGbG/wkTPcZRuWZuxfMfQjDK562S9YTHFRqxwXjD/ogWj+EeTzcm+VnX8 I38RsEhkxGuWwlL7dpWTPcZo6DnG+2ZVJblpkrGKoEjoOKHnhA4/kiIxjbIw J7QSSSrBHKn3cEPPXx83KRjprA6wDvWItQih5ZH9FW9NEbpS42KYDHfMzs/A G6M/Z/Q9Hscpey9daykNSIi6WwzVuOEkdMZ/aEPfwMv45eun5pU2/MWlCu4z So2OQU9DCcFryEabEzCJBjLCyh2lXNKKVJ3MKJnRIbgRa6yqDBzI/Jkco9k3 4dCuLzJwhPyxLP9FLL/r0Juqo/JuNSzjj2b774QibKFIDxO/7X1hWW+B+Pg8 QZXLTvZwiM5Wx+T/RmjtP8lAGv6LrDLUXtFVNkkNpyidVPJZiLc3MSqLnYiq mo4W9zA6e47YMH5m8Wt5WeZlaXoNjVDKq8K7oVc609FFIUmthy3vvl4eHWd/ hV8YPjTt0ud7r9ovLsTqXWmqBI+KY0l1kqnE6V6kUAanFKff7r+wOMs5HBWh y+mQXEmscxOFrh03XH5fUQJN86KBMCrdBO1DZwnWbZJY12n+NMQaNjKkrpD/ sQG/uzfeC0NHHmZs8Qpgb+9LjGTfozadCuDHxhmJZCfZvC1dz5E2EKyGS1UJ adAvUviiETWpmFHzXfxidF5bNXKMz72EZTr5ytpmBhoS7Ar/1MWICLhUlTLg Snq87xGC9SWIxWI2/nkEv+g7rm/SKo1I0ymBXsKlRvjvkyhJz/bzwQTCGLie +JFPKI3PwMneFkbE8HuTh4UGb1AvQsIwDHeTDATLzr8B/bGbGYY/3anC73Z2 q/Mu0cEcxlWhaVzJcTdHYj16kI8mxAmXq21/SSQPv6PG01fzipJXlF+LosB5 /IIzFIhoGGU1bMQvxBrDS7ayGvwnPE4V5TaYy0pFme7FXzY5KyDi1EVk7994 KdkbkaGi8kgLe7GNyuWuKiT02pIXNcRVbg4a09LP8BKGCJV+o6g3TVk6jJMr LU9ykY+8yzCCZVa0C5O5ZdKUDCjReoMSi6rc2QTN3a8w0lm45VLlr04adCSx Omkw7wMox3h2irdq7nZtbdhlMeF1l0kHAkQEQ7iU/HPcT8wpf8MNKHu4bh9+ MWTck5RbuGVipQjq9fDdacCtOpZHhApf1Ix2juUNFviq5N3sS3Bg63qCIqOE gqWfnDynho0M8lqR+FWwnjfbiZqx/HlMtuXFnxf/ZYjfdOOqKADjUpo+FvPf NY7Q5NhjOHWE+IMnezn5qMQfnrojh/iJmGXeMopto+KO/6BO+XAo3sE4m9Ss N25WrEoDZDDC4uvEhMaQJcCphdjwDMOIkF6REshLA/OjpLh10ZDKq6Fj8BQD K9962UpgDCcVMoUL3taeCUZWZ7Qybhu6pz7R7U/bNIJyyOaqkPVTRpbkEjvZ XF1jOlJEHuaGxCyps5qNnS8D3f48D55IlALzvNNgtj4w+oqiewlm+u5gaBMx KPltqrznnpgnmroqdhRmkWkIJcxVSZ5PrxaPHYStEYugZxd/sri6vOzzsr90 2eubxiJmD9dEKmz4jKpl4bmXeHeIwAok/et5a4a4qGT9kS4qRINiAAf2hkzO xr18ufCHefdNJm5xK6U1qNBcg3JJVIVGENMNR2hupq9KpvqGwiyMdN7EMJdz 0l5xCEq4XIkGRqCMZyy6k3ph3KjRy7rndKw4pA+XLFdiqZFZT69eXvflJ6R+ hXoCL1+02ZPUd50Zw6AjwlOHmD6uXo1gZRKxKSrcGAkpbNhQeanmpWp0Iaq7 HGonBxfBP5Wd1selEUZ5+3M2TKZSH6N4amomNQ69e8oI2po3FryLSd1/qKru gAW975GtB/GLY8Yxuor4mOnjSMqWSDiX9arrCV3Muer++UWlYpzVyHj41cib sskUmNlkPMpUHnuRMScPjC5d5EGqlMj9Tk4p8uAJXaTJpm2Xjq/RCRy1yPU5 9sVE7t9jmcFgczjOCVU6e2vAKajoCAtxCEh9hdur6yTRdDg4n0rCk/vvZDRt qbBFQJlTWg23NLUyYvFeG4aOn/ZV8znVpo69VDwysu5cmtIs4xfGwWVuR8RH rkxvyvPal9e+96P2+f3wKqt74EA7kGPjGslj4zxA8diIWlytHqqD8hniZsfm oEzK7oWB00sEpYRmzH7Y2rQqJTSj3Xy5rGkNrml/AgaTw4yh/oR7+a1QXH6L MipbDtjQPzFreVNSqM1f8AgluJ1elW6qvDiGAeAJoaOLyZKMq9+r/v3BFVdU qVBh8Q7GoWklo21gmg9NlWYagRNKM40QPaWZ4RntApqpQoRPv8Cx/wiPuVLW eoiRymSvkVWTzS6sLIIWnhGCmPvwyw1uCeQ9dk93KRsDQheNNlEmbAYYQRYj j0JzWRHD7ZhDr2fs7X1dubLVgYQRuJMzWvnS9NKIzvNovBnoffV70rm8UuaV 8v2nlAuUkrR97cqUMmfUgFJKw4ZTSmkEUyulzBEr4M9iqFfQJUiPPMSoMWxJ /1navxb1Z9/GL4xEdkp8keZelTFLa2ZIskbD363CMo0kYIKvYUm+szaFtePH bi5y2b9ym8Lac5up4aZgzmzHq1NQg3IllroevhOJCE1zdoV6WHq5Chr4RZiC 6shV822V0BNudS8y5HammZhMuThWGwybI8uuP3pSiZ5uLIibir6ESxugfv8L DJx0/5UxFGaHH2CY2yp/TqQLB1Lqm4g6UHUZ0kP3McqUK8dp6sXvZMp98U/G iBr3BAQVgZcdVC8pGMrgipJ7zpTwq1TwRTjR00jQCm4sQtpSfS86mdfxvI7n dfyK6jjtKI8dlGeoYaEqUsfNK6phVSoduczod3+KNaVT2bMwGr+dYSbu4Lwp TQ/D4fEZRkYfZKBxV4DGXVw+46eYF3gmQCt4SM5xQ0dkICg/azTe+x1orixh FFd/w4bHxyh4xtxgq5QXmXHorismaBPJiBxTqu33rkuKN3TiF8YLHZei2oFj BB100MhHGQidAvcK9/Cy9XpFu7r/LPlIdu9oV52+cL3rkE3G6O/KAjkNwbWW 96kmrRoriM+WwdzmYCkIodPQowIY7d7Bzpoyc8OkU/gcZYxNpGzKj2S5Edrp UycY48nnbHjsfkrpbiZz0vN+OWe1EZlt9C2ekJesDFf0F5S+ULDHbkaRS5db VL+RpTSXHuwyvIW5BboqzRXyulAKjLC8EBclO6+OeXV8X6tjTv+ItEWzs4PQ UR5hWNZmm66w+OZ248WfHJkRKDNMU++U+sVZIVEzUlqyxkxPoKM1FiA1+BCj Pup8VtZLS3VxRQO0Pf4qI52FP5HKEnaPe20HpyBDoKHrEh2Siys0p/1Fb+xc EY2hJ/QKzCf0Qu3nolXS/oX3Tm38WwxP/J/OjBt2SUqpTc4L6X6fqFQb4x0F zR/j+E+SLR4mG4bunVUMx7KU7vgjm6tk5WGxFsYTBFJxciRNCyT/v5jiBC/Z XIriXKiwdp0VrZL2vOLkFec3ojj0Mk2B+TJNbtmqTUt2FiZ++iijvWWrDRWc BbW0+nbYe6CPMXZ68Y9kR/Tb1e7R59bucX6cWSkXrXIUxR0gwH/DUSlXWKYK wyFQIpt277wnzCvSn8m1Usp1YX6a9llD/xcOdu1j7GmqV0kUiUKnlFF9S7MN ezqIez39I/wmA0IFThjJ2xWNZioP5bCfxXoFJxnITJt4ieUFJwk6NjzcAxV4 5eJiOh08tH/vdXqltF+yTpuZ/xeGOhhrdcxpIO+D2lvrdGAiuVz0Nhu6DtOD qUOHfwDtdesZTsVuG3oCW+6Nsn80mRnR7/Twmk3vrilVz2UEB0JWlaqHvb9i BEX+e1mzzO3a3/MQo62lnp8S+aRqhxK8xhgD0xmRjDibPobf/dTNBetmO3bK UNt378OPu7oT0Dfw/xjJ5LBNaZXx40dj2yl5BMOlnnMp74k/DxPpJYK+npsj P4Z/D/VRNbP4X0yO3kaE4P6GxCBEYZMcaNiN6QSrnpSyxsmsbNF/vvZbOTxW SHt+eOSHR354vFfDwxuwIbOBB7JEmCFgdKVAXCuwRRNGultJx5v4MV2JjVR2 MI5MZ76oKkmzN0p4pMKy38irO0ucGkM/Dpz7rOWsqtxzQUx7O/Q2t1T1PAuZ 9LsENDjcNOeBZPNqtPLzGTo9LWrjNhs6nhjE8sfP6Dh8/YTLMsyf+Bljf/0G eTwT0NXrZP053i3xXzBQLjvSD+N2h1uenp4tNLPCkyRsEgRWI8RA0Dn09eZC tuj32MjRcY6uhBuv9F3h0RFI65wjeujfrJzyKzA2/AEVgVsrv6OKBpMGmz5O 9YbO4jh0by1hyDSsf+gSmJ2l5wuEQwzMtC4fulgPAsmgZkWVE/QCUq0WAeRw 5dQptc3C/PhBRkMUi0brH8KigykdmiIPKrPpJOyvWUvQsvJmnP60VNbwpAGB W1FKuUMHAylaoaloorR41r7ETBL/+1IsYZsnY/MslTuXQ+EKKffKV5ZrV0h4 Xrfzup3X7Vy6nX0DeurWEoy7Lvq5LR1rERJQYhCiHz4z77jcYNPjnX8o5UmG gfGSHjkWbfIr5rx+nJN8odhk9RSaVo+wHQL3vZViL47xUwEEp+oBmzJmf9Qk XScmlHELJa34n30ng0/VLZABYQSKuuUjzZQnyrzOodQ5PMSzlsam4bmTpfmF apeLDGSkUuewTF7G46uCwmDOGm0oeF5SkC8QrUqZAxlojPhI7yMq166Q7MtX ZiN5mlJm40VCHV0RbvkaF2Flghv3geHGdVCy9wgDO6asc0/cWdQmD6bljTuT ia8myD1bG9TsoAdZajacoU10u19bApPlFlme94wDdxthS0U2lG4h7T0w8JZa gQzxFZriMy1DcTOUH4c1dKnQ1CXI8bK10nYe7C6DzZec/W/aq4mDb+Ouk7y2 idHXKB6GvAdCGqSf2NV37HJk69CbmhVsMoPaDu/QLNCyPqCMgQ3gtSsnOq/w eYXPK/yq8jrSBRvxigxBewLpvmUV7mhJGRe1WMLyJK614aZueu9cdwJk/Rz8 SQk1cV2KuGuTdsb4QzCju7DR3pR2aQjtX0W2MKX9vNzrjslu+d/SVtrvP3lV snS+DF2j5whalv44XL36tkAvmjYInRYh9PKHvvApddS4PSSJpR0AclbdedVG oZGpNHKHTVyVnseQCAocxpvjZF0Y8jGMiDRnrkeEZoO4NGV3H8/dElDEwOi9 QOBHKNmfv2yNP2MVmNNibtJkZ7L0XGZv8zrfRLdxP5YfOa/9gFI62ZO90BzZ xGgfOvtHWsN8oXBin6ql6llUzJd1jGy1c7L03CC0r3MYxsxrOqGUbvunnjDv rzHtFpjTrlFYp3HSKT/eYs4gdDkj+uCaC5XbuJ/Zh1Cr3Emy9QXfOAm31Orw U/rgvkRp9dyLEMMtPyL0Ov2laTVNluIpZYKeLGmg1sbH1GR54eCCINmXrdWz R/CLvfpNEGNnEoHyjkHGbBY+Krui5mXP4hqIBNGL6yxMHE26SC9VSlUPC6Ur BO/mK2OTh/+DITr3T6oN//M/XmkpRc457xq6GRa2b3KDRogYJRdw6PqnXm1J eJJEh4U0KsuPLp0LhvFx1O/pboQdzwcsMxWKQLPpZKJFPhSu9Y5CjkT+PXbp r0qtJaPg/MvQuTFC0GOlZDf0Ti0QLhZVECA7r8x5Zc4rs74RtghTie2MiLGf iGyHxNQiQYtD7z4lT+hq2rr2QbWZukHVGhJTWGjGFOK/tE0W7QdDuPVPqpqQ Q1WveSo9fdnp5+GuyjUMS28Rypofg3FsFRGqrDkNdaUP4WfzAWtM6lv4m9TI I9rIGPVf7DTbvxHQT3vPwPjTdzEqHRmz4VSxtWdcnLoE7RQDrq9VXocznxmO 1n2H0T95jg8nPr5K+i9TUSktw8+grSxC0GMySmOye1wZNsqgg3c5HSdCd9hw lKi3u3IFJVphSWWpplo+c0ZY86KOZdpadt+01pB46NZATKzZeZq13xh7GUZe n2bMG0sFm3BuOA7BmEw9VrZ8Czfc9g++hatmw3exvJGnVPAxkG9JeRuCk7U/ 0ZGaHZbfgoG/+2tGfUX0w4JjTuW9cDi1QFCxjivSSU8mg4F9X/bdcSzk4Mua HXczvjvwlk3UXODw3k93XiHzCvn+UMjrJGEUQG2E58lfBOP5Tb/jRd5p9ryy Fha0Z108gZ5UTOEy3e1bSwOXfv+bLE+V043voFi0BSgWUsqsWWhm1kS4x5Ge lSrE5ebPgKOdB8GzWPO1BTW050Ygvr2BgL2vr6/HZhpa7oaHe15goDUq8wWt SM+UcLJzkEr+iNHV1mJDQ319IdVv458G/NF/7x5VOc4+tkKiL1nJzEQ0Rlpe ZS9Gt0PP8TmCMp3mXsTysXLfYW3wvFAbjeHRb2GvOxhvHpyXP9c+FSlammv3 DrwbVKzwXKne9zC1n3sBjnffwnD0IHFu6uZ32xChbh1ZpZluQvtcQ05GjS7J iysr0pc/WGGledHnRb9a0cvYB/a6pke/H0jYwPm47jryttoVG0/OFppPzory RRTlad7xEOuLEQXl3MToHHrWpnCLsEyYSu7ezauUj5neQMg9yw78ncG3Fyqx fNvAtKJfiT6oUv4HjMOOKDT3d6s4BzMfbOiB2Q24kJ0jXIr0V1TvJSuApn2J Y3xFnK/aGTo3QtvhNxkom4gonT0zDi8kTzBw8b9KfGzchZI89Se08TzP5okd Ki621SUF6p2RvWsx96zjmgDbQ6cZFaRN4TH0KL14mF7aspyCTqiW9tuhcmHz U4YtKwxD7DR+IbpMkM6psKPldTZ12/IeLevj+2WYP3OKcWZ+WWZNCTmDWmOT Ae6r5j+sRomuvzJtXp9XsLyC/VYqmHK0UQoukc6A4F3CzJSScqOnIzx0cICr aWRnT0DP1mKC6rWZWlE9OKNDaKyrpflg5FuQmhWShQqtoOj2py3vSdxtujeF kDp8L/kAGULdOR/kgaMwnckSVO/nX8HyXTWGT8DZZkN8fE5vBY3TXXFmr5zr E1iAeutZO4ORj1q9aD9YwiiPvWiT41PGfIYfOQbDhISOXSg9gz6Gvf4KNuxT tMDlC6k2dUTYCaP3nn1m5sxrcCh2MyNqeFKjjbB/cIqB09nvC7rdI/lSBm5F r1LdCT//MKI4zKftjGAV6ewwY9GXZNHMBCSaSxlCa+gkCGcx1ZVGyTOKyD41 PghPdGxjRKXbvxCKq++Eg8l3GBnjeCdokvGLUp0vqUMC4fuRp+na1yD1LceB WaQFy/cakblOWJuR7TadWqiXqMIPUgK3pIS+XSiBjD5Lu/4KNpzXt7y+/Qb0 Td8BXoLZgXsY6/Qd4LUd+DPK3CN/phy28gbtj+OtjOpiR58TFUFZ0wHGwAn3 nEg5QHWIDa0cnGTLCKspRMGYNsB6m86X1RMeFP0mbCrv885+J6pSumBGfv8m 330IrwCWJ3vhzoZ6Apkz7L+7pbpUX3JmH2rpTfjxjvY49A4dY5zJZNfI4aRP AkTpqgewquHZpQD7lH+cjAVhMMjh545KS3KCaPa/aSJP9YQhuoYfXhOPr8nn OXOdyPmzaHxeSeYMjOzfwnC8h34lO3sZU5ns9VewZaGCyvTPzsOZt1MM965p irg0MfYLSA4dZiQe2WvDlqgjr+FaxVigpq0HjoyMM06kUo78MVkrY/zkwlOM 7q59NuzeUkbytwITq1N2G37x4KHXSKIET4CruiAizCVlEr1BJlGdecaCSrah c8Ty3rCSdqARvKGV15+RR76xzhehjBgEyBF8rW65zL8Fyb4fMRKJf7Sxx9/B j+/fuwPqKqIMt8XiGqxh5/4fwcj0AsF8IqTQfCKEnn616d1XnxXuuT8u+MJA 1qhVJKuuGMmOUpgA8kZF/nliqNmd6FQzOgZP2eqpWRoSOl2ZrKvC8majUcnJ tRaRaUyqcGKcrN5kchD6n+5mdO6s4ediPqTnj0Ioq78HHnn8EGNgOGlDcmyi UCoTPeyYzuh58FNXkPT8OMiPg/w48I0DbyLBzxumRemWbzAOPPMSUjS/rIQm XxSMbD3IOLaYLZDkBS/hhZ6Fm69OGoFLBZJkOk6g3aYsD0rI5ovyfElgOxal 8xBZtF6QkiHdGj+8XzogpC5+map+RrsfzOyURg5wGV1QFx9V/p9rQ6hABtiK A8IlJW5y5jKadF6RUzDYUc1wok02PcehsjboNzBFNU6z5U3GojTQkN91sk1/ 5pZPX5k2L6A6n1OqE4WKLY2Mlr0P4PSVeB6LjpyYVVsVGQznBpGVMCrbfmJT SnZ3lwAUNikuhuvrVPrqhUyebcRveI4Z/CrPfz/g/ig7Swl0YlXaNRGp+54N v5zPNhiqkH71Hxh1EcOtuIEf/xAPgHxC9sJjjpIbqZmcYpPG6JWH5tPPY3nR WwZ22FaNqmvwkvukqtRjWY30lKmcJk70NsaB4Xds5qxknut+PT+y3+YHV0VM 2fanGaksFK9Gd667Ys2uy6tPXn2unPoYS+9n5Wu2p9JKT/Q23jzrWIscrmvH jx87PAjDP3uE0VziKFeG8Ri7ytEfiMYJ76qpJ8JRNNULO0scBrvaKztewB+d NhxLcsFij4L7bqGxE3YDZpoTE6pb0hjKkMEpvDwMeePeYyuITjOw3zZ1Gz8W nWYwXdhtbGfWoEu5qjNTMNi1nVHmlNhQvedharkf2TfwJCNWv0Ft+Y14L50F YQkyS1mCjp6iI276UDb3mctuTpy67vTw/8w49MfvYtxeXYp2t1NKNvyOffDo T48xcCx+WWlKGsYfa2GUkQ3gbD5ArhDjWhf/Ne9o0TG9OKoPk1aD4EF2po/P wxHa5xTdxfcbKaxLhyEZCzRvFCrvxaKHjdwgOkAky/0TfbSpg/ixw3Fx+2Qf beqgcl7SEdiZ8SPQ03knw+BJdf1OaH/0ecZEeqll9T9ZnxfAb4UAmMpjnllA x5LQCZxNB7yWNwL/q3KwBp7+CKTjkdGq/DaGeIeEgayyiVPnDTomcooqEMyi Dov5tO3IQ9BcGWVYxZttaN7/M5rgjXVRPyOmX6qRu9xNlCF2zHgoRHuTUcW6 mxhRWm+La76FRfsN+b6PyH9D0sRjMfVz6GraxIg09dp0JCoDgkKcwqEH+mYC PiOZZUGuJVHRvTQCnRvWMWranrRhPL20ZBDK/0Q8Tm4vvXng8RFduNAsfMHF +aO/PU2GpY0KjaUzH1oychFIlgcuKV2wVTNc3WEUV+I2sCMxSh4HY/nX2ukP txLOap0Hiv9FfkMN/rXizgKk+r/NqCstplwVbfh7cX7F4uOfPSnIcj0pg/dD pVPBaH1mwqZYfJV6y7hwoBeMFkhMzhOsClkRD3e3VQY2bFO7vglWxQb8ksyZ 1loodsoYde0/4uFwx8UKXG/2uIDSM6lwTZ1yQF8k42afUuyZg8lDdzMqyayq aXscyydTc2poi6OtbJpSfT25p8Krl04Z5antHtUZIyUDwrNEISU0GqZ0+gbv OyC+dClCxrsOMU5mYdeqSv+7PGtWyprl13k0Iqyww08m6Gmp2/ws7OjTOpW7 m4iX5r+467dkJJPkvxw+Qtvp+D1QX1bEEBvRjdhEQ+xJ5f79UnBm8EyAfge1 xzOu70/ICTCQyLxlleU/559JluD00AOMmmInzIHAv3tWdMPNd//K85CIxxh7 mm7mLMeWSF1vFTFKq/Hjpj3Mu94XYAz1a8zVsSrPnOQ2y8ixk5dTid5Sm1vG yDaKXZg0csjsXGX5PEPCGXKnJItuqc6nXoGf9j7LGBifYVeGOuSFeZhM3MGo bU3w7C225dl5OmVKPvM9iO25jYGMkapZXIHf1bV0wCOJ5xmvpOZsdRTyf1Tt y9y6oMCm5n2LjTrkypyG40M/ZjzZ96INk2mVG0ac9zCFDCRSnbHT2Q7SKOi0 FZEkwuIKplHQaRORvgObz1+gebGKqc4svwGJWzcwLNegvQ9r+/HkOX+QO6UF LzDTgrM94c54JVC9J87oF6Lgf++Iri7TuZlowbVBau6zqQ0f3TJ8ApvihkRj KqcKP//lNsLAdm55X3ZHWknBARLFMRvr+5XPeDPe1SiA430PQgNO/wjcVos+ ORuh4cEfM46n3bn3pNKSN7kN0Q6d6lByJGxFndLo3fksVy+auMazxIiqESLa xHoqZwv8EEl16w8giYsSwpvP2vc0jgzT0ed2icOMoeSIDWNjIzSi6bw4fj+j pbpEbYjoEBL3aLxDQ1geQYbMP+Txav0B2R/T/nSwwuOAtAn6bEWcJcKBkDZB n03E4cdInT7Pjt9vK+IsmX7/W5K+rXmmXTLTpMUU8ImIib0WP94TPwxjp+YZ qNcfNufaxD5GXdTx8q3hQTiEI/OQOzrlT9zLign5yo6to7TAqfwGIzF+Vq8c b6vfeR6PVRZjcS0TJwg00yHTclUgSSN4WYfkCRJ5llLRvyFPAMnGBHGMrHz8 0HrGoHCsZzejQj/F7JThd1v2PAgHDw0whpOvohKN/gI/Hh54Fg527mFsKS36 sKQvejPEDr3GOGO89UzpXvofZjSVFSkWeJMqa665Mi2QBBH0thQ3Z0SUIMwm qkh7Rn/BRAnCbKJKHv27M5sR9qHyivGLRC5RDFGeXiSKG1uLr+T5dSn8krap +xbyaALaakoIeoHiRff7jKHUgrxD7M5sp0fgMZzVHnNnNmqmEasRYb7at6CG GSxyG6IduUq506dbP8FzMZzaEO2o4ewNJ3ad5FafnAZPYm0jiW9LN6NhPtDA jDESybfYqfFxLZpCUzQokmqbgkh8loO3O5mT3JBozPFOUNwIY16favrUkjSS vDnYkBLMn70vu/Oc7M5pUs/kc9Dz8N2MHTWl5jQtE05U1O2woe3hH2JtR8ZO UpsE457WAkwP/z2jsXafze9m0L8Z1ZnT3IxoyqZ2aJL1uBWjNrWDH2ND3Ixo 6pNSycmFJZpgYCtC28D7ryH/6cU/tT7w/wHE3TZP\ \>"],ExpressionUUID->"1f5941f9-b49d-43ea-a151-453ec2c94d84"]], "Subsection", 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.7467907692860627`*^9, 3.7467907703835845`*^9}, {3.7468323812412453`*^9, 3.7468323814975595`*^9}},ExpressionUUID->"3ac61c69-9009-41c5-973e-\ c1aae22cbb41"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{"At", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "=", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "jj", "]"}], "[", "aa", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}]}], "]"}]}], " ", ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 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.746790941763169*^9, 3.7467909620381284`*^9}, { 3.746791014063071*^9, 3.746791016179489*^9}, {3.7467910797158837`*^9, 3.7467910797940025`*^9}, {3.7468067755280533`*^9, 3.7468067766137543`*^9}, 3.7468069922880526`*^9, {3.7468325235438285`*^9, 3.7468325738800564`*^9}, { 3.746841941956887*^9, 3.7468419433321996`*^9}}, CellLabel->"In[79]:=",ExpressionUUID->"7e2ecd30-e8fe-441d-868f-9b9716212360"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"At", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.738599772683138*^9, 3.738599779656537*^9}, { 3.7467909835342636`*^9, 3.746790992363244*^9}, {3.746807003771184*^9, 3.746807004048191*^9}, 3.746832586396632*^9}, CellLabel->"In[80]:=",ExpressionUUID->"be04c82e-c74f-422e-8cff-fb4320a15c67"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Output", CellChangeTimes->{3.7604679537264657`*^9, 3.760468241538365*^9, 3.760470340154482*^9}, CellLabel->"Out[80]=",ExpressionUUID->"79a94f2f-49b5-40d4-9724-b6d7fa18aae5"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "3", "]"}], "[", RowBox[{"At", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.738599772683138*^9, 3.738599779656537*^9}, { 3.7467909835342636`*^9, 3.746790992363244*^9}, {3.7467910287404957`*^9, 3.746791032001402*^9}, {3.7468070083750753`*^9, 3.746807008660968*^9}, { 3.7468326750358877`*^9, 3.746832703754118*^9}}, CellLabel->"In[81]:=",ExpressionUUID->"b2ec2118-8e15-451a-ac30-414120c8ad2c"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Output", CellChangeTimes->{3.7604679537471304`*^9, 3.7604682415485783`*^9, 3.760470340170439*^9}, CellLabel->"Out[81]=",ExpressionUUID->"246d3139-8463-422b-be60-8568a8f5861d"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnW9MG3eax627N/diXhwveRGJk2XJLyJFEbJ0RNHKvCBKZAmiVsiiqZCJ yhm0l4VsLritAqkaSNW62tRoi+ldrG2s3MXpdZTbuBVuF7fFXWG2uK2jYGXd BiJIcBsIEOQgCCbDMTO25zdjY8+MZzwz9vORdrXtwmCPx8/ze/59n3853fPS v/2DTqc79097//VSh6Px97/veOPlf977h9bfneu2/67ztRO/+49Oe+fv//X0 P+79y769/7Ts/Tz5v3cBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAABBHanUu8hffyFtnmusxHY3BbD0zMPLJROzxJiH6 ultL0//Z0XJ5Yikl4YsFAKDaAZMFCCX1OIq/39Vo0O1LrcnmxCOPBD8/xNOY 77x570HELEOTy+KfPgAAgCxgsgDBbK/O4APNxv2fGRSjpe/jcGKL35WJ1Gr0 Rm8TeeIydAxPLsIhCQCAkgGTBQgne4ahwUytfR9cHwtNR+7GZn6YDn1+3dXX Wl/LfXwMp5xj99ZSBY88xPpccMRuon7X0OmZeQoHJAAASgVMFiAC4umMpzOd BdC39HnGY8t5In5i81EEv2w1YOynp9Zk+2AsvpLn5ENsJCK403aE/gWs8U08 Do8NAAAlAyYLEEHq4fjACYwO8x3/HVkqHOYTqaVpLx3dc56f9rev4uPhSDQW i0bC47jnvR5LNr2A6ZvfDfJNIAAAAOwPmCxABNnHZi+6D/yc5HmIIdZnAx/Y TDkpgrxgR2wffDGb3JH3jQAAUA2Ayao0Xmwm7nzl/zyUN9aW7I88wE8fps4w 73wx/0xwp1Ly/lceh0Wfc2JiMFr6PEFZ3wIAAGpkJzn/XeAWjvs8Lucel/rs tvb2ttbT12LPS8gLgsmqNHZWw1ea6U8Ee9k980y2P7Q5j59rceDxEs4wZFb8 sz85+16zZGvBerO1Z+gq/vWdxAakuwGgKln02/M1SR7zxF+UclnNmayyhC3a 5cVP3pN1mYdD344vKP2CAAAQxJNQv8XSe+X62LfR+Hwi8STJbf8jUskniYV4 NDyOX327/dhgaL0kH6A+qDdIMhu96TClrVnNUffdakoOli1s0Sw7d91HazJP Rze+uK30CwIAQBALeLu+eG2IBjv++tiDyv2SE1vhoczZvaE/tKL06ykjELYU ZysRfN9ar69vHbge+RWCXwDQGnydHWbqdlf4wPJm3NOaObqfC6xUVWAHYQsA AJUND2eHHbE5b8+sVroBJOZ8bZlb0eKdq64qPoQtAABUNpSzM59xOh32VjPL 7VG9EB7/1Oxapbs5mpVATzq4qbaCHQAAQMVDObt2PJH+x1Ry+ZdEIvHLWgnq +5qEeBa6eCDt5s2D4TWlXw8AAAAgIRxnV7UgBbvaN4KV1nEKAAAgN0Qq8Ve3 /WiN3b+k9EvJhwzObifqOnyweeBWKSNm5YaYx21pAUvMhieqLKwFAAAojZ3k zMc2A6bDTlyc+EWVFlSOyC4Z99oN2tJsXA/2pee2a4957kFcB5DH1LV40HOx 01KPYfXNZy5f++o+X803AKguGE83MP5QrR1u8qQxM1L/WOOlcQ34O2Ir4jyU TmI2OSPrSr8eQHF2knHc0VhnsA7eGJ+c/uZqlxHT6Q40OafWwd8BAIuMp9PV d+FzavV0uzLW7IjlySELpg1/l1OwIzYSd770Oh3kqV5XW295zeG6OVFROloK hS3E5tovCclYTsr0iRBLX19sNDYOfJlICwo9DQ8epXLc5ZSXyWr7lEiuLBIA SAWRWvT3UkfBxqFvV1X9oOU6u1RyeSEejewRjS+UZE5Sc3hXPWkhmq5Mr6u4 fscq2H06/5jas4OZWi+48eBkZHrC7+4lV69iR7s8f1sq0W4QO6mdkh+IUi+i XNiSijh5C/bwxmBu7ejpv+LBv44urEvg/ojFwNmGmrbr97eztyMZcZrLmOV+ sT75TkMBFXBRYPWWV+19Q+6b45GflzchVQ9IALE+5Wwi29hrrH/6u9pb+LPO jj7qD7SbDexviKm1b/hW5JG490GsfjNgqtm7iqELn1ft8ZIp2NWYOns7TQcM VmdgFjX8z5cm3mmktvVYR6MlRUDSWHs7nhBv1JUMW2Rxdii19a1vjn72fUK8 MSc2Iu83YK944hvIv3vgs9ZR18cOu6Lyn9t2lvxnpPZ1LLD6tgueYLxKRmgB maCOheTzZOj2zW4U/3mFoZzdq/81EXBaDTV6S9+oPxx/uEq5tlRyIRoY6TaR 3zqj2O7KnfXpK020m/DMbEr+8iUALdjpyGC8359nQ9xe9NdBLUfATrqiJRT1 FHd2yoYtTBrz0VzsB3IR7dX+Vu5+9j30zQO+iWh8oVB2bi4WmQ4H/+x1Xz7f auJcAjO99sHYvTUR5yvikb/rYE2X/zHyq8Rjf1dacOBQT+BXCe/HvqSSy+jb HP/vQeshzj3CGt+4MfFj4XtEQuZpJoO3va4+az3GuUsVrwEI5LKVCF+7QH5l ML3lAh5Pir3O5jzeQ4VGhjZvXAvHpoxcGNbUeyO6msc4bCXGL1FBDWawfTwj wt8RK+GhY9SfaHFOr6gvukMKdnvvscM3u533NW4v+DroH6rtDYh/G+yi1UL8 ToQ2RL3N+XwgtaP85lhoOhKJzUlRhVFD2MJhZz309kHO+64bCm8JeoPkwewL 7gbAWpN9NLQgbJkg5dfq+4LL6MUf+7PiOj3+x8o4h5xT0nFn5KnAa7zYXJhw 24+yPd5hm+cOdJlWDTurk+81Ik8AdtI7K+aAS2zP+jqoYyrW4onnt5lqg3Z2 ZkdgYd/vcNZb6TBjr39RuJnNJDNVWbxDCnY606XQ6r4vj7E2cshEE2vR4VbO uVvc3S74V9QRtnBghNoyWH0LYt43kVq7N+Y8xUrEGzqGBQQvOyuBczWczxcR TeXcujKSk9g8cDEkeCcwRerh+MAJ9pNmfj0Io6XVAWu/CYXeGRFxfMv0Y4g6 dCnFetT16snh7wp3JhCLeEfaHNV3+0XYoe1FvJu6wIEm1/fqyu0iBbsjrh+f 7/+DyNHa7IyIjv35XD/9FEq+akelYUtuarek9uCtxOSH7WhqFDvR7/+JZ/BC rMW/jSyg+fYXcc+x9IUOdvkfKeQUVkL9DegdqukJiN5BlW0qYDBeCFbVmo+q Jee7hrX55gU/06nHAQdd1DF03660cxIa/jS8HxGxJXvzjruZOlFwcmhKQ8q9 ZN5YwR12L9aDb2T2hRvt/kXJXwmx4LOyHsOjg2Fpj0xqDVskdna7mXZTxJ6L n3VNRl2W9EVqzyu2+AndwURyoMX7cwmf1d6TcL4WveG62ib3XS2UXYDS4ER2 4kpLG985G+inUUNhHX82Yu6WzA3ihAY8yQZ3upoOfFEth4GtOe+pzFm5cHIS +UmZ1psm8HaW/ZE+flRp2CK9s9tFBl0ZfydGxYj5Xutq+4JKyQ0Qc94W1g1q ccdKOzEyCY0MR90xiO0qn51k7BOHxUj1LYvb56VOSy4hqQRuZ06B4r71jN04 NhRWSafKr4GeTJNbkR12y8G++swNkKe2Jb+zy0EdYYsszm6XrMWHLpnQywpu kCY2wpczzTPizniSQIXk6BsRXbDLQvzsbWFnMnUdvgWI7YBiMGb8aH/oidKv RhZYBknkIXBr1vsqfdQW2wIkNc9C/elvfLEddqw80nFXVIZ5tPI7O3WELbI5 O7K3atrZgjZjYM0fzQgYGX0S6j+a/s2Dl8MisvfSIGXBLgNyzCvb8wZoHiQB Lq6epQVYBklsOyLS6KKKZO9OzJ2xZUXO7UQCt2WN5n47gDainm5bO4Kt560R 37dzPOc1RDs7YiMR+T/3QA/rb7fbfuudKdBvo5qwRU5nh3QCZxAyE8Tk+rCD g5OKVZolLtjRZGaOwNkB/GFKfpoSzCeexm+9YzMb9Y3dzrH7Rce92QZJ7FAz 1fqe9hilTKtJA9LOjXUVfEdod8r+O4BePAr98XWuBA1/dVBxzo74JXT5Ze6M Hil3+dZHoUcFn0aVhC3yOju0xJCmphtf5OPukD5VncUVRT4LYn1uKsL3DFMy 0hfs9nhxz3OMU7Rr9cRVqfoAqAXieXT4iAaflhez3pPZUAU77ZsvGARwDBJ2 xr8k7puOeA0ef1RmnkVdx9PvqMg0NZpH0rf5Chb3Uivx2xcbOSNzTcPRot5E jLPL9gAzf8pg/UNwnkdFRyVhy67czm7vnU70G9HPo6ZhaLK4CihyMNMdGY4+ Z36BmuCQvFd2P2Qo2O3mm22U5LJAJfM04swYzGOeuGbiOs43qKhdJZ6FLjL1 7FKENphvWd1J70+K3rCsTFYx67oxOXgwYy15TSRlhXSyFHORu6Kc3fMfXUfY Nst43r/IZ8eEWsIW6rXI7Ox218KDZtb1eRy0iHlfG5b3QaVunRzCAvnhFuyk WC6cO3qgaNEW0ASMGSzW4aAy2DW4ookdRixrjwP9IfH9GeiBWeHjAePsCqoI vFgPvZWJnupaPDFeFR+k94PvmxXs7DiqnkJenlrCFgrZnR1anUyb9mJjZchp kOMZSZXUg8b+iTK5Bm7BTopaSVboFXnYBsNrkrxeoEJBv0QaW/pJdVxgenOr 3TF8K1pUOAM9Xpb4vUAH1pRN/DLzFIWcHWIZhMidIV39aU555wrGXIKdHarq mc8s749qwhb6b8rt7PKNlRUpUyJRP2smhdiIDjdh5WuvyinYlW5ndtbD7zaw b0aN7aZ6l5IAqgBJj+zXoadaKBvOdyoQyeOV/r1ABpl5JPdkhImM6gbD+/gh Sjk57UoEqQ2welooinU8CnZ2Od3jfCNl1YQtNGVwdozYNXN7C57ZmIME6yC0 Hfe2GY2O8XL1VuUU7Eq3M1ktI8bVdXjvq0jUCFAjSIZBikR6maHPqA29/vli Yd3mvM+efp+S7C3aCg9mvm3KKetSZJ34PhPlRDIynLYMh23emKAoFPHpNHVW 34NC71Wos8tpqONddlFL2JKmDM4uu7MPMfEFpVCZxjPmIERJKNc0Dk0slU1B VOqCHbE8OWThqEAXEoEHKgQilSopV4NkGDRWsEtDK+3XnBr+roBoDCK7JE5w KQ+LfnumZKBwRLwR97xCranIlwBMLQQc5rSnE7EGheu8iumLC3V2ucrRfPXL VRK2ZCiHs2NJAKUpHAhnB9INr7nHp+iNcpj5vC/2tHy3R9qCHfF0xtPJ7puC /T4VTWolHrw2aD+W/nrpG9v7PcH4ivCzDZphkHgml9h8HJv4ZGTgt8312aO7 wdz+uss3IXK5MLGT2sn3TKceTThPGbCj9pG/5Lny3r0ac1rppUWmM9eiTyQ6 AaLFJimGhkp6LTMeqyFnnw6RWo3e6KW2zmLHHfg9MQaBkWeRx9lxu8f5W0KV hC0ZyuHsiK3wUB3H2RWdoCHW5766NtjTZtYfqLd09o8GYqtlFdSSsmCXehLl eDrsxEDggQA5GUBTEMm7PtKCYfrGzoGRazeuvt1uqk1/7oJF0dHESLHeAwEv cX0uOGI3carpqMV8efAzvvtKMtdc8HfX75sAyf5F/TH7wB+9t4PhSCQSDt72 Xum1UPGX/niPO58rFA9azyqW3JMdIrU0NWo7TO76tL17Y3wyMj3h99Drs2tN 9pHgXPGRrPwIjbyEOjvuzwuRp1ZD2JKlHM4OVcvhfYcVJqdgJ7JxCDm5Zfyc vnnos1mxDzageojkHc+eTds7qH96N7OSG20/sLpnhDz5qJKqRPOYRPIe7jjO zqjnRVDygX6PRZrS6VjSPdRnbzVThsdgbu3oGfjQF4wuJKU/6qP1rJIGGaSC jPevO/tes+yF0li9pb1nYORm8E6ipHOvmp3drvJhC0NZnF1uVlmu7RWSwS3Y FdMqzwOx+SiCX7ai2x/0Lw3c/GEJei8rGGIxcLYhTwSH9CQLa5ZAk1QSzIsR qcTXTitHmrUA9V34HC8nRHfOq205I5qCE/4V1gY5NryIfm+ZnZ16UMzZqbvU zi3YCXm1qWQiHvZ7MpkrCsx0+r0bYusggGbYTvjPGnQGq2eG21C35LcXFfjN B5pOx+z+pdJeH7H67VAjZ+MGjcFs+Q1X+TD9//Tg80XbA+mwTn2bGVH7VjcU 3qpEbyfUhgt0djnLXhUVcy4FxZwd/5YeBcgp2NVZ+j14IW54XE6n8xKVnWGk APXmdoeLztBo91v2bDZw1akWrgZmlc9F7QexMu4wYnm3e7D7wwXoG6Nf0FK/ Mts/+ToOM69C39xLPpxzS0z+8MXm2qN4JHDtks3EJCSw4o1zdFjHV/m2nKCi 62JlpdVOjrC8pM4ux0WovAK1P+Vxdrl/RdXOLqdgJwqs3vKq3eH04F9p2tnl ++wURMWPDb1G7YgjmJukTCXwLiSdzd/qop3MJW7cSM64rRnt/aaeq8GCeYad 5Ny4qz3jGbFXvbMFGmPosK6mwfmd+kZG0V2omrXSRUDfI0VhTVFhzo6tVkqi 2eWb4OzyUMoOu1RyObEQ/zHk91xqP8LEeKbTTjyS2NSU9gUN8XDs7G94NDOU Bew3Z8ceqvTcQKsUNo3GtnNeIKoQqBOUT9uIubM5hlJqJcTmzEfN9BBb45t4 nF8vHNUlTv1SQUem3rBulzXXrN38WxHQh4SicCOTMGfHUistfnE1Ux5nh0gZ ZFGvs5Nqhx2xkQh7utDKnfmcN1JgrhbQLrSKb35ZKkrzlnmehOh+o7a6oT8k dm8wOcZr0PFfeZYlNYd3UVGD8a1Q/jqjmsO6XbZCpmY7K4qQqxhWcERFmLPL kQSx+ha06eugZpeLpDvsiFRizIFusMVO9I890Mw2MoAvVCopv0AuuuVkj6P9 oSfCLsvLKBVgZyV4gZxk47uWhQXxeOwsuaVrn7CIeBx0HFFrWLfLzgNraumt EBC9ZZqCMawgZ4dOvpCou7GwMIo5O9U+eJLvsMsRf5ZMDQlQDVvTzkNY/tEA Ys7XhnzHhC1rRnsPxDq79IrzvMVEPqRXMOcNSKndrFi5FX0FwJJvUu0Bu1S4 8pUF9RgFOTuufIqWV7Qo5uwO9QR+lfzvSEEpBbt9yF3rY3QEim47ATRE8jtX i+W3tx/k+jrWqu4iqrC5lO7s0pJNfPcO5IXWMc4zMUGtlMVe8cRVmcIkqQ5n l7uFp8BIpgBnl5MgFXZUUxllcXb5+lOUlqrbD6kKdixyk+pCjR6gUZ7F3C8h n/tL7pig0QnU2YnrgqPNYIkHcnpPOlcxj1jEO2pKc6Oyw2omrFxnl/4sEPZf 4SfA2XH6PFVbmeVHOZxdrqlXXIR8XyQt2CGgM8U0h5yRihxxBVCe/+g6wtgg 7KR3VthTX/qY2LOo6zjWNBwt6UBOh4ec0gPtx9We15JyUFHN0MVTPsdp3s6O 60B572xVKeVwdmhDVOa2qXQtl+QFuwx5gltltycDZQDdMK4TtUJUNTPRlGoZ K6W/PtFvxLAWTzx31EJNVIuz2yVS8zdtqPHaT7qNr7Nbj7qQBLyuxjTwzaqq P+pilMPZ5ehMKrw4uAAyFOxochYgVu6IK5DlSaj/KPow+QUXalFnp2zmn9oN x0wr010rxg58XpVf5Cys42tFO7s9Nu570VDsQJNzKo/iPC9nR2zfv97Gx3Vq iDI4O24VTMXhsCwFO4o8kR04uwqHWAn0Igec2t6A8G2VUnRjSgM1uZzdzEV3 eO47fKceqqRBJQNHEQ5rcU7nPHR8nF16+172OpahyWXhlnAnOf9d4BaO+ygx RVJN0dbe3tZ6+lrsuRJHJPmdXU4VTL0VbbkKdru5HbyK2y5AbjjjdeJqW8iu bYUfmJ0l/xks/Y1Q+SA5SpU5O3KjzvejbchWC+O5W/PsSkxRZ8co59CIXjON Pr0IEizvEIXszu75vO80uzVD9LyP3MhWsEM29jIUXV8LaBrOeF3D+xExLSKo gorCpyPKVBwdDD9Np2eLCGaqBNTZVaqCCpf0RsUshk4Puvy9oLPj7jrEjnZ5 xXk68mKp5JMEyWz0psOUvqJyY+lyO7vtu+4mVq0qrya8OpCtYMftP6fuQ5tP 5dWODLD1QAyljddlQZ2dwqOpVN6D9Be0+plq8zNspBIX1RjE5oOg8xSTiMSa er1TaW3e/ZwdsZGYuu6wMLEYZvp3z7Qk8obEVnioLn3VElTvSkReZ4csaE6j 2rBOzoIdLRHMQrUtOjnA1gMxcI43ojtv1RSYkEZy7zXcp1pTDvcGNKEChJ4W 6LC0ethenbnttKFy9LZLHn94YoQ9f36k3/89udYJEa7X6Y/3uP8i3f5NZOa9 5lxAqUYXWZ1d6r7PhuZsMUMXPq/WZTeyFezSakssNNTaBFsPRMAZr8sbxb+4 /+np4y97/17wOUBnVLHCm1tkh3R22OE/eD3aaE2h+TXQky1giTtyEKm1+2H/ n5zkrkqDTm+29gx5PosuMXZsJ6VWm0ayF69FPvcM2hv1fL7EtfWtfS6f1Gum 0ZS+gvviZXR2qccBB6s8yWvlsVLIVbAjVr8ZMHF8ndHmu6+F8AQQB2e8Ln9/ PrXOtXj9YifqylZfDvSHlMzhUk1WtWbzEW20plCgOsYiquSpXyPX37CQbsJo 6f3ANz4ZmZ7wj/ZZ9AdMXddnktvJ2Cdk3k8LarfE5sqDmb8Gbnpc/e3s7Xd6 S8+Qy/NJIPTjT8vyVJiY9jxFdaTlcnZEah7vMqBniYZe/7yKLbw8BTsiEXzd zL6/mKHDN6vuOVygNPiM19GJHYsrWqznBNXekUO3lj+MreDxslUCat+EBcZE KvHtML2+1tAxPLmIfIQ7yfv/22OsNV348AOrXhXnEEEI3FReMqhim6J6O/I4 O2J9ytmELoaoax6OiG3pKQtyFOyIpzOeTgP77gpeKAZojvVgH9KTVdPlz1Ol pkUGjgxHiw4ckaFdxtspW7DMul2lWsdFgBwVMLt/ie+v7Xm6LwcaKQtm6PTM 5O66zWxNktBclI1yOzukYKesSqT0zo5ILU2Noo2vugONA18m1JzWlqNgRzyN 4282ctLk+b84QCXBUh7W6Q52+R/lbi6npSab3Hd5lEbQqpOiimFpI6na5Vx5 QJLAAhJoxNLXF2lPp2s4G9in55RVluVKZKuaMjs7Yh63pY/8CqtESuzsdpJx 3NGIxnTG5qFxlXu6nPnfkgt2qcXJ4Q5uTGc+74uBp6t4WFPM+XOYwhaeottb FB21SxtJDWm60oPwNAX3maIwIiSY8ezY/r3jyApvBTsMRVBmZ8ckOpQ+JuUq e4jduk4k7wdHuk1oLIM19fruqjp7mYazyaKUgt326syfh6yH2PcUM7R/OAnZ y6qA7ezyZPyIzZmPmjH+PR5oqFhn9T1QuJdNQzlM1B9hXfyCYkResvCePiRg UbLDUDg58Y2sIy3EVsSZsYbKxr8766G3D+rY1A2Fha2eSSUXol94HBZWayum b34Ln3kiUc5F1u7fHLVwcSeQ1Dp5G/pauENp5Djn9JLaY1tAKlgLrfKcmjbv uJvrhM2eICfSvOvCywLdrqz04VwQaCsmPx9NrIw7jGk7VmRqnloDQf+gkh2G gtmIe15hV1cwo2NcuGorT3IKdsRG4s6XXqej01KP6WrrLa85XDcn4isSZ+eJ zbVfKO2WxKO52A+R8Dju7rPkGb7QNw/4JiKxuUQB5mKR6XDwz1735fOtJu4l 9C2O65lp/dKRuPs3lVxO34WF+J3IdGjM+47NxNlHUGPq+59w4RuQvQ2RyaDf 53Gea63nruwjU7gDNyMJ7W72BcRAC4zk901p1UHz60EhtQvUaB91x5QxrOsR Z5NOd9wV1UzXIZJAww45p3kkVlBHkLfYyrATc2eCRuUkQQrAWPuMrduzVLe9 rt7mfBIRtab2t6/eHAtNR9iG/0myxFM6q2D36fzjaW9vE4aZWi+48SBlyd29 ZowSJfP8TcqIQHYpDEzf2O38dHJWsoFEybt/X6yH3sqnTCr1jahvuzD6Gbi5 aiU547ambSbTb0mkVqM39r7pYmR10bLdKe+cEvnwdD+Goh0ywkATaPw63jcm Bw9mezcLb2ZBdnSqs2AnjbUv+eNmzhs1ps7eTtMBg9UZmEX3Dj1fmniHauQz WEejktW8ZHF2e3Foe0//FQ8ejPy0JOlEohzdvzvLgfPyOHyDubWDug/jU7GH pR6HAK3D6MZTZ+Yb10YGOkkJC7FVbGoCnaZIxCET6RegEbE2CkQV8+DlcPGD J1sKoEjaE6nyq7OIqQpnh543dGRbfr9/NplzMNiL/jooQ46ddEW109QqHRXe /QtUPKmVeNDT396YNjn6Y/bBa0HRtQlk+a8SZbtMaKmhTgzmjmEHByd59AKh ktHF0p5b085D6RiwbjAMnWf7gGYkCohpbC/4OtLPtpidjxqn4rt/AUAYik7m ZrQNNaQTgkzOHndG+Og/o8vXiswpIIG2wqsoVA3asGq6FFrd1z4zYWjVmfHK 7/4FAKEQ8742jJcplv5Pp1tuNKQTgpwNmkZjfNT5WBpKhQujqQTehfH6yeoG KdgVXnGF5Fyra6V1FXT/AoBwiF8CvYeVyPZkhym0syKHWaPJe5cWWuQqoimB FOxYeptEauneVGxJM1VNmUHkawo3rKLTOka7f7F8L1FhKqj7FwCkBNkOyVd9 RRLWwoNmKs0ifGuAMiA3iv88I6pBWrjnBIkB2fVTUkxeiAJnZcO/YRX5ScWX NpaTSur+BQBpyfat6epaPLEyebusbVdn22EutBob5Yv4qY/SLODtmdCuoGQi seCzpn+OLWhD3qg6LQ3dywui6VqkxoQKWFVPDbSyun8BQGKQmKXh/UhZ5jiz nR5aaTskFvF0yd9w1p/gfyJAujELODtiLTrcmjmOs0bsqa4V7Sw/khv+NSZW tVRTqgUlAd2/AFAQJmzJvxNWarJLjbVy5H4acR4XFfzSqyjo8MIZyS+ZuJUY v8SsMmHldZ/P+05jfHY2VQdIjalIPxWRwG3ZW6rsDqCyAt2/AFAYRMq1HMFd ZqlxkZqCSkBvzrvhdYGlDWLB300ni/IGaLSnqzvRbjXRhgftYyFbYozlyy2r HWTfRBEJbpaWrMI7gMoJdP8CQHGysznyV+60VbBjwt7GgdCScKtJpBb9vWQr OHcCmticD7m7Tdhh2+jU0kbM01LHtjyb83iPQZC4d4XzLOo6njbPRRbEZ05T JLxbZysA6P4FAD5sx71t1ISpoQefl3G7XKZgx1NIWVl21sPvUnazxjTwzapI o5ndyIkZrIM3xidJwfyrb7ebajFTtzs0TykiEpvx6zYD5RPbXWPhvwaunjXX nBgYfwhmJ0My4jSn7XPhBaloR2JVnRag+xcAeEGk5vEuyt4WlBgqkWyKiZ+Q sqIQ61POJrIlAmu6Mi00gcm51OajyGeewZ42sx7LLBT7nr3GhUitxgKjA+Se Gqy++cxlb3gRPB0C4+wKyqmiyvxlbDBWBdD9CwA8SS0FB6jiUX0XPiePpc00 jKm/bYBYmXa2kAflmnbP36EfUnGYFcaFnB0zSiPBEUVrQPcvAPCGeHp39FUy wWGwe+NyPPP0qBRm7J9Qt8Z61u+bHYEFiLBUALPvYP9WeWSOBmtxTlebAjR0 /wKAEDK7hLDG9yb3F9oVC9UdrfbFK8T2rK+DzOiKWBQIyEa2GLfPRDmRjAw3 030+h23emIyFZ9UC3b8AIIjUQsBhJpslbB/P5C4LK+3Sy9Evbn0VV7EHyW69 BE+nNjLCj3mHVtIPra66Pzjo/gUAgaTjOzn8naohktFRq6G6DaaK2ZzxkJ8O Zuz1LzL7rInUavRGbxPlB4878HvV/cFB9y8ACCS1ODncYdAdaHROVUvF+sUD /PRhMJgqhkgtTY3aDut0tSbbu6Qln57we/pbSbtda7KPBOfW4XPbhe5fABDM 1lL0L7dCc9VS/iCWop9//i0YTJWTWokHrzv7XrPU1+qwekt7z8DIzeCdxCZ8 bAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAEBl8f/nwDRt "], {{0, 118}, {591, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->Automatic, ImageSizeRaw->{591, 118}, PlotRange->{{0, 591}, {0, 118}}]], "Input",ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztfQ9QXdd5581Fcf7sTZOXbNrQVDEp+xomUVdlGdqRVm0hHVx5aUH5wzCy Mww4dkFtNeC4BrtjYdeW7E1epjaaRqhdvUnMujXK5o03xhmRRDgR7gjVeomf xzAOjoRGWDxbyEhiEUXiwf32+757/t0/D4GkpE7yNPNj7PvOvfe753znnO// +fOWv2m7a2fL3+z4YkvJn36ppaNtxxfvKbml/Ut4qegdllXUZVnWt0ss+m/A /xR/Av/upz/voMuh3wo/FX76pf+plf7bBnfhjLUO0s8lYXf7dkZVqWODVVqF lxvb90DyuR8xsgvL76Rb8DKAC7nzY4zB/d023FVbgZcdpwLqdj7K6BuZsiEn Xtut7rsM05nvM54ZnrBhAeBL8jd3GjLf+Q7jhYlZJAzgRx6JkJvBBuNDT0Gi 805GbUUxkujQS2ub2qF730HG0MtZfKYLv2V85p3iGbCEjefGU9BVvZ5hWfiZ 8cbdePnpw0chPXKYkTrwsA1NlcX0PZU7oHf4NAOfSg9x8fLC+FPQHHcY3kOa evDyoZF/hcEDdzOqYrfa0H34datI9QERo8eAPmoKbzq6twXi1npGdeKYDXNG jyyfgtQd5QzL2WpDV+pVfOCcqx84Ij+O6MpNH4P9zeUMy8IOqmz+svy440cY A8ldNjTEHbyMLaCydR9jSPR3caHfrrvfvmjOkakBRkcZzSjLQSriLf1wctEl cCOegafxP4d7d0ClU85o3o9fND0/hpeT9SUgdjDE7Tb0TVz2bsR/C4zTqXbs y7IH8OlDM0v+TrtPUpN7HQ5338pwuO+bv4HtR+d0+3sENXMZbL+/MY6vK2c0 J1+2qfdkpy2MEl3cgAcSyjoGbJjKuUW+5SHDeLqjxsY3WtRzzlYaCgY+7iNR neZOwsCOCgbeQ51Wi2T2ZOYUmTcZa0n28COMaqfEhlubGvFypeorxPoHbRi+ pOlafAV6a8oY9ckxGxbFQzsla01iq8GuKvVl2Es2dVJc8ksOG5zLfBeeeX6c gd9R6+Ol7PegGydJN0+Ucps6L8B7L6gPmIfx5G0Mh7/VuQOb9p++Ev7W3CST 5ZHG3VKOTfHZ/GSE9euF3vwZ9WaLSdGVzF7YjJ2x2esUvHdjAu9NX1YkWe+S 7S/jD15/WgT8PxJD8a+zEwamlwiWnjJX4HT/HQxn814bMle8J96riDYnML7Y qf4K3n30vJ7AqltpgRxoLcMXbWP0ZGb/XL3HhcWT/YyWuBP17apH54/C7g0O w/vU+j5sOmF0vvhUdy6N7ffWmSsVDVbfGLZfAN3+Q1HdOo/3jvXWG/fSu5pS 1HvGve9RTH0BMnsbGN5Ae51qbcXvvESQ6+ryeBJ/uMWqZY5HeEuiWOfAvYgN X9n/BYjhSwlWvBWX1/G5MknZm8S/7Rv1OrfriA2zAH9m8u/0UDdPE2+qVOFu MzgZ2L6eNznocjoBG7HtRvmpJbtHsP1lo/27zPbz6a/CJmy7SXWNU4/tE8dn aOchFLr159ittKalmkqv1q3vFTNjsp+kaHMVtXBxbew/hZf1RALx9KVX8HLv lhK4JfkqY1n8drccJewA6hnROzRKFfjmttQE9wzCUt0cYoDi+20Yml2uUyM+ A8cT9QxvxGNN+KzkT/TuoHqYRiSbavV/dWkiHRgRj5lwTXNPQ6qljKBWPafm cTg+u0SI7NklEjt6yp1Az95CzDa+rN/xXn9fxfztizuH8PJsqGeBNIjhXZvA aR1gTIvf2k2myJ1OQRtKp21SQi27+xC+/qyx5KnuXab3DN0PxfjqYsmku0cu 1IuRnz2GDRI16xV92AE2ff3HRP+j4sVql1C9bNK7SEoqrWK1S6heNuld63xE ekoXA/Uum9QuvCyULgaOyW55yxxpd4mq1Q0dvWgZZocfYpTJdYCk3hLa5Bm4 z3+wMIC/fAOYo108UWoFBnD9g/gmlPtCAwjnsP1QZ0WgfTkpdZklMP9pVetV ODY2zZDEywFcHMcGfdvj+nFx1GtSpxd+V/b3RB/U4/V6/h0Hd2PieGCJV1sI Ka2zI182lvgY6nXdP8T25w1m+IjqtCXWcYWe6ylr60jLZTVQ6Lk2Kbl4GbVc 1nGFnssmByFbkY4r9Fz1kKYe1nGFnmuTkotkoJar1uyHVxzrvLsLSmjYXshn RvuQKviBiNGOnn6oYuK9qGOGR9vbA9por2Dkac9/ldSKUvmJvhZGzGtfgu0F ExIsObpIEJMjSIpaOfTOdRaGujYzBBXV1KPD02rv/nUf13kqOMMzPLT0Y3tS w+WjpRyOujhr4kIbt0kVJ2lkfow1caGNe9+9zvxu/LdgkypOOn7ZA9z9CD20 JD9leraGJ0uROVl0d8v1LjA8pdh+e/+E+tDC0P5KDa3W7fz3khTYOXROvcsR H43COorqFkM03YhN2wff9I+qlN7FLnoQmmMWw7tp01dJyZ3XnaqGFmb4U8Tn RKndamjJKoRPFk9XGsamL8MIyoUINbQuSdnCaiFQa5OqYejW66StgnFrU6NN EjHvdGyrYEhzBW0vPCk8W4Xk0r+Tj6PtYnpgZ2ACOG1IXyqrdlk9gsv4gyE7 aCG3OQVZ7CVE9PBFa2VsGcTdjPeyy2r4kPTLxyGx0SGod6Bio9r5xs49S/ux N3EEymxoSZ3Gmwxdwxi7JZgZvIcRi+aNekn3Rd6YTBZHNQZ7EdsvGo/+oDHW ZCoR5hI11hsTbCpBGPKKaXnyvpL6fiexwLRPjCBCruBlYSRhZK64j4gnLY31 whakbcvVpgV2RzYFzY5F0GaZ4vtJPSIUxu6XbexcbDQ/8ihswOdvMCYs7kS8 DyH0wME5FmsRke2YHOVswN4iW4KwJ+hV7au8XiKsco8IFF+xfb1hC0BusIkV PiOe5U6loAXX3Ba17sbvxmcNZNUwiUEiGueZFxGaxqYUS4lZY6VyL9De5Nl0 zK19K9uBL6nnyk3S2y9qpXlHDg9cGoZd6y2GeEIM79nS+wosMS8avac3e02Z YUUyh+eL8h5tajSspHfwNoIwRuYyTPTdTtDtYvfAIO7IiMDIaCOEpDkooIiR iRCYbknaNNafUc8KiSXF+Kwa/H75LD0yk2wgQkSOjNyZ3cl+Ngw16kEh8hr7 TykBQBmHuUtLpGXIJrPQ36nXvcnGNIR+XX0fm2kRKzO1tZFXDERhWH5RhiXK 1SHkng3QNnCGgW9xvE7EhRV/2+KzQG6yYdfwDI9Kh14go2yisR0kAU3p9UcO DdC6MrLb0FSdnTat+Wpo8qyLhvyshmYpw3YjxMrrcsTKUtw5xMaiWXNcDJnU aR2wyVSkx2VlVl2Rpa1SaEpNEnzjIjzl7sxhfHlXWUAbj7WQ9j5lGB3k2nxp GNuLFVUgZtOaiu2NvdObPjvFTe4beNNgR7n/JcUdg3jTjPESNVBhM9cWMnNd /KxoIOTiYuOBpTbpIQHJ4/2yZ3JpNhIhdM94ojZhZc4u72GNCGGMlstmIWEa 4qARoVktZciUVB7Bu466eZk/Tnyg9lqUQevAFKEwUr/II+UJ3cLE4HmTPAnz Nrw3OT4fGimXQilSzXF/p4c9l+ZIuafJSbPdMYmvsEn2/H1BvHt2ANpQKGtj wWw9Ss99Pw10upK2F7D9eLIhQEDNfmw/Zlgl1CBFiku3s/2BQj10/+XYRCPM NHZE04QgYZYs6J3FAW7d3PMStr9ikCz6LJdOYPtS39hV2ZBIz5kD8heSjsXX oL+lnGFpBajs7kNsZUdoLfki7xFbAl0RuwfbDwYDVf5aMeMCdx8iUrqXQ4Li NPRvL2Xwc9fvGsaml4zvU2K1z26sxN9E+mJ4NGCKrSsIYzQqWA9BWO/zPo1c oOukTUVgo00bthyDPHxY+Qg+cNjw2ecfg9g9NvVSYQzeXmMgoyanf4CNH6xe bzwcF7y7B6cC64K0WF15Cdv3bA7ZZGu4F5S/yxuIGtnBuRkYH0oydjVV20Sd tHCV3sJo3f2kDUPjM5bfG/QR2ZnLr0LylmJCpMykhlIPeb4lU0l2+pEm923Y fRRoPZ73DWVQSyXiHTaXCJOJEFPh8nH8jcwlvv4JO/H/p2Ts6HU2FGOnXNKo DUz2txB0R3QM8k48E7DWfUC8I0c+NsMhZsXlWyjKsaK2Cdp3Pc5IpoZsSL82 je0XjC77bUlsOJiJtfu7aBcbvag0Cx2NtQQzQw8wysTmTa9dT4pS309V+/fJ 51Mg0bnBe5l7iUeUahXHp1U1tBiEHrZx86YAy7mc3o2W5Re/ju1FiJEwF1A8 ZBN5vQ48/STs676LUc0hwg4xb0f/Kyp0SLrTIqzOG7Cp0EyY9D8IzeLSBCOd g8/lZR/8u+FRGJl3CYLNhK4x8qg08Mjuyut5zuO4DLW/JR8ffEwtS61sH0ZY v6XHusiMRjEYfz1U7xpgnJxberckPqQPO9ssMs7oNaHAmwXe/IXmzU/p1Rl3 2OodkPjWUcbJC4ulRkflsi8w9jaVK6tGvAX2Hp1i4AYnvTleVPqJ/wPtZcWM yge+ZsMTjaVyLFAUYUHkksmK7Lbx4iII1u+JlzgV2+GB/c8x0tl5jum+ouia g9HeRoZpbfHs1zJOU8d2cMgzw4mOWP2QbJ9nBwt6XQU3mhJEqxzdzxmdR+Mq xlZrB1UU0UJQg5MnZiDktlMMSa42MoVcRYJcE0PKEBrUVVhTEdqKZ1deB5V3 dcBdlesZ8cYECmEnZ62ogDl2KUwfeUzG2NKqYkPj/kygz6O41KX+v/BGFrJZ iTM2TIz9mNwllNDQ28moLXXeraZJKdR19zOOpMewdTbr0L34WzY7AWPp44yR oW/b0Nf7KFJxb0OlXLBwCRWPKa2HrqeOMbILy2oG5N6E9FP3M2p5EbPK8HJt xxPQf/goI338iA0D+zvpcul6qGx7ijE6t2jD3Ng3yapRS3G/tzIePPIGs7IW x3Iwd+4NAv6fR/bk+Mv41GHGob7HkGErixWdVgwqO/+FMTI2EZNfOjEG6fRR xtBAvw3JBDFDQ4WyTOgvxdW+rvsgQ06sfxfUGEp1pGgqY6aMdb+Kcd9Qlh8k J5L7U2zQV78+wKFbeknlNvzvciIB8VI6UQPklhCuic+L3yJ058hAI7WkzPMk vi3oXwluKVKNj/BzbcKm0hxrTiTkzyKTP/1DJvv/2T4bejrq8EdDczH6v5h2 SMaBg4dsGD5O0zM9NhF4Kv19i7ddhJieIo4TFSiE2iqc5m/B6bPHGX2c3OFU 4uWGB3ohNXSU4XFpbwft7zQnnS2MtuS/2TCdc83oz8JkLEzGwmR8m0zGYtmP SywnPay85TfJLbxkD4xcdgnWh+VEIT6ezDC+m+yyabas88l7dQ9BavQtBkpw H5cvYXHpwgkYGfg6I9HZakNDVdwKhtBmmNAiNW+WIIddg7A+qmjwhRa90+hw I5L+N9TUnoXJzHcZyc56tqqoMXJqoKPvOANfOieJzRfwE2sfBOKWGVNDWngZ eutKGFbZAzY5u+T0mBnEBu0xyz89KOi5yAx61tOD5FwvyKOYIR2N0imQZ76F 9AW57Lgzh9nzgdAf0ZJit8eUq+fGKjz+kgScdkXmtLOM4S+Csq7DysjySTWG QQPjOtPAiF+Fq1P25e/RpyW6KEia4ZDCV1F7J62sPQfhyPgMA5nqwwYXf1S+ ZGaQexqhGbixHyaRGITkdnfuBP4wtI+CAi2CIj+kQiob/zm6Q+to8g5kBvxB LR5gxhcvwvnRbzP2NG68yeygeNPX4Gj2MsGalW/I0SKgEy60imn4RbVG7sLC 6D8y6pyYDZsSL2LTeYMOUxu9NPwgY70/OJw83MLL/d9F6xxqE0JrV653NejR huVQyJx+cyhc1AsnuI39OAjtjwotdH7f+edFO4M8zXLk3ScnrXz/J40vj9SQ atj8ivAsIgUmKjDRDWciwxGrmMiIPdHbmC8LQW9jKLftOczI5tw6c3jPDrRL 16giP5SwoZ6fm+LEeS953hIM5FTdS6r/mDb1nb8qA8XaYeBsjqAcHDqCMbaD kZpajMkOiHIoofCYSM8RrC2SwGwKmvBdTfy+BhRmxxcUr0TH6IbCBKVGsfga thceMi08hvOBtIPgIrMiwvhOHRkiGcagUTNMFdk80jpx7lOCiAgJFrcw3MOx vd6cwbr5GrjGZ9QzahhoqsgkW939PWIagojELjKdcboxmTF7x7RHXT7evUi7 e+pvVRqzEpXid7GBWBiJZ0xyxNJA0Bu8Pz7pJt1eplUXM2p6X+Fccq0oRYRS GbakaOaJ7GbpwlrK9HCwQrmVV7iR0bDu9A/YzfegsoyzjnD34JSaLoqDrrzE 9jmEQaheGq6Jg6KdmE4zpwQZbFzgoAIH/fw56GbvHZQrWWTmShpDVgJ1e9MM lH7+XD7XiHrxMZvpQVJGYvcijCbvYhjbVjX58Q9ntaF8Rj5cG5WVUNU2EFj2 ldxjerNF4QUdmxMRmOi5gQiab6YHoBV5u9XJq359Rj5SN1WPlNms0+APwien nHDM2dEzRs0AUtiFQ44dG6Zfh7pUdKtyXq2Ff/L4KYrvJ/l1Vn3j9fCPWIF0 8q6miqZKx8BplSpZq+a0CvJUTzaVcflkl8wpQ/dVBcXscKSAYh94C5+6haAa xyj3iySeEPv44ia8JCXFPhFjbX68Yh/dSZK2YJkWxT5RIX1GqJ7yLXlOXfak Mbznxin2QXjSuDd1aN8Se9OER80mdxpefqKx1D/q+QJ81spSRJ6xwpvtyV9V YKkCS72NWOrj6pNycHawi4Gr7Dtl03g7pakTBC+F8rNUUyP89uPi7e75H0J3 ZYzgM9U3959g5Ih75FMjgwksCpRrSZ1WO6fQyWQAQ4zlEiGb/Jp4rSHBqHE3 neaKlbQFBIqrqmyUsEg42ZR4UYV7qQFzf8qmSIRmJaPYkUzvzFEFGOFYYXCy W23HE6SxmVXX9neSOXk9XhaOFcbc2Ddtcq2wuZYdKwz8cKEauwuUYXtq9F9h 8GCS0bOryYYKn4a/Dmrb90BP8puMweGXbHjtHFn5zei9T0R0Qh5x71oYS8bg 5Mh61N+ssnqN/duBeFuKcTrniuJYlElWZGaSGcJiPYvgCINrF2EqtYMRU+JT uEiATqp5HQ7d/UcMXGY+Ldo7f0RC66HXFZNJQ9YViis2Ihu1XLO9H05jS4Sy EiyfwDd8646t8Lm+nzCWdAhgRAC8WlXLezKqp/3iusMo//s+G5LbKFXHKnsI hlEuQWjOjNQAGsi+QDBMbC77JIRfwianBPlTquLskxB+CZucEmSNyBm8ogWx nBG8pNYDdx6y6e8wkrtbbYpS+oD8QI7YauiEnv4jjPELi7+jppQKsdWEG2as AtcVuO4Xi+u8VFydaabX5M34Q9fQWTXUt4o7lijNxkgDzKfdSM/iPBmuE5t0 e59d16ywECUD1YhXlCbSSqZRNvtL+MNY72cjZoAeVeVFjSyaFTYu+xmr1EPq hE1TBy/HrHLoGHyDgTRvU7w1x5ViEAYVWyhfiGDpMh3kNHiWkWjezLU4lfe4 shkeSQ4wRo7ss6HBNxrrYNfAjyA9+CTjkSb/zVbpVmjv/T5jXIbx5TH1GmbU a2Gd/yLbccXJYoJq59T9I4wuuATFMEDR8EaBjfyulZvzDax6vLGa6Gl9CU4O HiBYfwKJRAInbOIA/jB4UidUy8bLJ/tgG0rs28yuQ4lsc89LjCvgFUIlIqKr /4QS+yXDeEa4UgYylE1BHHiZwjjIoyu8upphIgJWjYxGWf514RSt0InbydRC 0FSza/wYI7uwbMvnRkvp60wpXTh0jz1FM7w2vOE4lX8NyeNvMnC+lRjr4uWR PYwS092yiWM0EAV2KrDT24OdAiVcLSMIZTPvamJn2ypHh012nna4svdOMRVt nEb9WU2MoWIpi4Oxg8snh4r4qEpKeTglqGtLTvF8plsYuNfQE96y1rGFw3K+ wOg7eVlzSo63QUQkp3xJtHPnXoZkczlBkexlIWTeClgXVmkbUJWf5l6FVNdW hpw3JFuSo6+tT1e+VTs3mzrm3jKCEU/akDnYZQUqIkdnAZvV51fLRKJ2b1jG lmtNKDd5q+y21bhipK0hMpzBcMTOKF7OsWtZuJeLzB42rSmKg/KUpQqOyGbN /dKZW89AYmXHe7JhzEPiRZtMDNLvZPKS+NhwJUSZ1jv7I/xh//aNYbmx7B54 5vQlBvboO9fCU0YgZJGZjWKsxlwxXZZUVqsxJQYaPYS6iRXtKiiwT4F9/mPY J6xpqSimYHaIZJ9VOfI+vhIZBvuIuBN3huSqDh01obYNM2FT8U50Reb8vKPK eOG2KbZOW47N8mvQt62EgQq9Tdr8mnhHZVDrDG3dh8H60jethXFU44VRPnsB oZ9Mtv09R8+FSyRyltTpF2HwmRQj1Z+0oSdBic6JxCPQ2drMaGrajsrfHU+S 1HpFywfXw0r5hOawEq5Y6SruF8VFRkrzClxEMkmRJ5OsEL10NS4KroSKi9SK Vd4j3SWKi3ymr8gybnncBEX5+OovNfMWmeUwjGVjPdQkjjFmXXj32lnLk48X TzzF2B7TPgujZM+fFDiiwBE3jiPohAwjtVCryUYZza3RHbOSRy16n9EWOsUP 0VUBvdQiYkjBlB++CkuQXmOGq0qWUGWDiGkF48oE1tkj9FuZA059kjG+KCM7 owqyRPLADmOYQukP/mFSEUarGX5VZXUWf8j0bIsQUmJUTJtx3oVPXw8PBDMr VGOj4IiwxKzFA+H3lauHGkUsL8p2RtCV6BJnG73opCFVKS/4KllArSKyNrBT s5eRmXfXG8OmC22KcLN1ZriZ+RDPnFQFIqf32niFDAOqZJ5mAPJlCusRYW3c Ihsb1Svzy41VBVYpsMrPjlU+IdqZUf03RQz8Wl1LH8vHgnn7RbEMXOLxQOjG n2UZQlt3r8YyFGPTP6mrMCqW0aF5arQ1y1zkqr9e5d8aKug1K/d1s9BsrCVl k2VACyC+7I68AojkkqixtMj3Q7ttcODXxCVmXTpfP5uxJ9fDJSY1mkt08c21 OwBUyDOJd6Jqhk/WLevCHwaNqK8zstvnXoSe+lrGXz17inP8ZBjPSSocvM2x gmwR5LmrsVGwo32V9M2TzSRPqMQR8ygwcYyQlhENPnNuo5yNeR1RtwqduVUz c5EZZ6r6LGTiuAZuChUgVEKSUbOlwEsFXnp78lIol3ntbiQzyYxOxhGn4yg3 lT+SLitb6yL2KntPZXxR4VFR+88vYhn9sFY+UjExpinO2myT/yygMiuWW8T2 Is6IUdw5xAfKBXieT5pj4G//41rYapnSQUTdu4C44HPB/qe1MJUstMNWTyM1 3JBYdRWfG8VW78r3qWvyCxgOM3xK9hB0VcYIWqijk452HTolTqoF6w3FhWpv J9HPJslPqZ3BxEYzvmXX8FsEzVfR9bLy85W/fBkto5T+ODCl80gEX7lnD2H7 u7lKcAWICpTvkbwfke0YxVKaQXzTd4d4xWk6rMaoPGt8qi54qVJa18JNLhWo NeoC+FjVCAf+4wJDFRjqbcNQl0dgd4lFuDpDrcr1pEaJIiFHkoy2ymK56zlV 90Bf+k0GvuOsGlPzDL3IItvSH2MWzhFUhKt5yJzkfIEWwaozchqEjsRzqh+x KedNFV/JTUCqrYIhhMKHaN830rIiTj31O0e1tX3lkvfa2hgt/ISKVq+RwYDS RI1iAOqORuLpScN3/YfXw2JGu6uz2FUcEDpbj2o5ZRmT4y/ZMDxAcuYjTZtD plOn8g5IpNKM7MLydsWfqwt/lmrE/IvkwqMY15r9jLFFV5n43TMw0LaBoPqw ZA91rnFKtWLJPKcaBaNUfbExXpEIi8Htneq/JSVlXNcQULUgw1U7I4tL6HOI jZKTsR02rYN6OKJiXvW6pgxXRmya4oWowvdrYs9F4sL+lhB7hiTtAnsW2LPA niGPXYlksYpa+EJrFyORTNnwfIZO9jZL/t4W8bqouHxlVKEapSf7voAjuJmB yqKtEqSt0OkJKiApaItXbJcndj8oXmilOrpIrFMD7QeGGOMXFlXKCSntcxOH oaepnKC5xYucJBgHP5gH6UQyZ41irKjDhLQffEdEOzXaRsrntTFgsGqDuiNo vb4uBlyNyrEKH1AJ1O5KEqz3QSqFTJhKPY0UJ3sSHBjjBcc08JHOWs51oLSq idHV02/DUH6+XU1ItzS4GxXZKPzcptjzQAJnyFoX5Ft5lJLp9yiKmDDSprj4 Go2JLo6jhfnSOujo6WcMZSZsmJ7L6YzeZVi4cIYxnh604clHmvFyZdiYGKz7 Jgs0eqUovKVTKjl/qvos4oAuo0jHjoh2UZyyJuZ1Ivotb+MC3xb49leZb81K tIbCL9JDV/Kl+tp/ULTPkTKcHR+BgeTDjCZDL0cx9CtPH2HgxnlBjeQiZAfu ZsS50ndyFF+j/IygA2ynKXelNTTEoaolkgNN85QcRrMwi6zC6p5/AfZUryeg UCg/MA5VtX/EwP58j3hXnCo8UGEA+S5Vp1ar4sUMWbBIbeRRNRmM2qs7Itrd MJ4yTkDUjYNV1m4sT/kNDX8muylfwGDoaBppDnEXzkA69SijMe4o30bpZ6H7 4I8Z0zlX1plyKWJv8O5NqkRz9+HX+VAzyUMR1dusqFpC6iBDXTNVD5tRa1EV NOLiPj9gJBo3/mf1cRXQlppgIBUx2dpUOUQ5WcUoRkC+eqORqLsSo5ia4jUx SmTjoGJWYJQCo/zMGcUo5B0ZAKwYJZ+3NHSahc+d7T/Uw1Lao1fdeg88d3KW 4epKLUYyG/bDVhu6vkWnN5735e67Nu0CeHmTKSk5jTb0js59WPZBVFGVUNBr KMnt/ZJI0i5FMgknuZkVxrReWRJ1IrhQ7dwF8k2MHfkm9O7pZLQ2VOmzyOJ8 iA8f5NP9NRv6h+jwjck5LeTJUTJO3lFfYlac+WNJGZ969hQj0XmnDbUVxaxM V0BtUzuje99BZO+XqRCTeabRSnxjipM/Oy5WZfCprP3E80/C7vbtjKrS9VS7 mvIZd+0fhLHzi4RrSjhV8ZB8mo+XzEqITAh93xoJ+n1BRKS7LnhYnbS65Siw PuOV5+MkX5+7rnvwFI8SwjonWGqOZkM/zyeHUVp9l43D+iRefvoAy4IM8zGH X1cDqCZHVNFWwxHx2/rrcSMY2get+EyE5agV/3Ow+7nXGDg7ZKS3S9EKAzsq OBJdRKO/x9eT+ll0DJ8Nrd3/QL6aZ4dgJJ1mpEeGbHi273G83FFrpLaV4mrQ 3vt9JAglW9WVktJ85UhKLP8h1KpqBB/KekyW75SFPSqbvwxPHz7K8E4ASO7C yw1x+vBiRmXrPpxDE9QzpmNLnRz4HzaH1AqFG/DxRD3DM6rFqfR77+FjMHL4 nxm7GzdGFTC+rsSlwqwqzKrCrLrRsypYSlw1Dh30fj0kVkiyomID6ARUES5B 0MZ7f31ZXbjBl4mravCxdPIkY3frLf4zWasZTbuSUWey6hNTfH4RW80w7SqS +dxK8trX/VeMuopiJX7y+YlN95kFnH5Tfr+7BLkll6BdV7kzcCRxOyPubMHJ tS84XW4yv/FQgoHqkXRnOJU74cnMWwzzJJc8B9kFg3vU5NIprOAVZe8gY81U uK5VhPBN6xadHNyVejVwtKNfrbpxk8vQnPKy0gdMis3oV25Pp9iuM08sIr+j TW5H0q6q98CR6Rzh+mZYvvCJUGjve28MsWquRXihzQQ+FcdMB14c3VMbPiaG ur5rcFKNky8/L5fTWpl4FBnI15kGcshTiaNBvvoCts/sbQAndjtj74tvsgKv uoITpUe/Ac24lDfzcq52SBERy+vLzbJ9dMGCkHXRl3TuO5kqEKKWo61xsMuM DIo8PFJt0RGmketn9atsTorLIyc8+TPWmQueaC2CmMrYsi6s6x8tMHqB0QuM vjKju6dIumksCTM6fZdZR+W9N4ze/8bPy59tbWRaSo+IcdyZ/pxYC/SdmCd4 J9rLHl0iDcVwEnkUhg8j+Lyiw4V5nLmEGmeTTYW7A2KVDpRYgNP9rQxTrIrv gP6T8wTF1Zdp5lOgqY+KsL1WcnX4zNz6PpvsplK2cufSsBf7gGAZdre+MRWo LBnatIKpAQ3qIdfG1RFlEMwzHK8ShVpPa82ETwbTziru/q2MRPri9XD1LAXH GrZy9V0b6ITOEaM82XtvGL0V3m8rOdb1IRva+O5LlBEVbGPNB7H9acN5zn+V a48W4JHdQVpD66Xib8NmLzOlVj6pOUyA2CyinO6Rocub1AdGnmaF+yLviggj 4ck0FhvxTfVc0UZUtZGe3fxZskE34rXxuVFWN0qNVHyuz0708oLEXhdMNFZx AjwWGxhlu45wClFxgdMLnF7g9KuWvvSdS2Cev1rT+wpj0ai4fQOoLRfPWiHo xJcfIxP48ybThmQqP7PzVNOVYuRNQdOtZHYXR7nZcRilVQ02tHbtxabPZM4q GVM9ms4qMJzX+ehRYxKZpqGL22xR7cJlN00ZV+X1qNgmn0RW8zi2Pz6rVRJD eqCiMLXhHiR6yER8nSyv60dry/sdzBgIfarW6X7Oc9quzlxiIWpb32vKKKPj v4xqhLF7bHL0Xju301Mv8MKHiCTx/TeGRMni+aIbwkKzOs/Nc3PfGyqUYkqD fIs6WNNMytbKtHm+RdSBmYr/vJA4gubrYEB6lMtXdb2RExAVEKGZOhxiH8XU nr2fs7f4QCyz/+uTY+zlXjSYOm/J+FC++DUwdWj/0etjCVMjKIqt1Bmb99LJ ZARLRJ1QeeYiaIvpmu/XxdSzR7gcFcJvUNm05yjVDyOoQ6SvmULF06tOW1da ZlTpUSMMwmBnz4El6ghEstNn85ERFTVv7AFRxxL6Q+eVTyF8YExw7q/E05FB fHqO6nZGiS99SC7qwal2hs+d4atpJo8BWhUfyy4IHbqhSlEEU141Mb5KsNrX UcuHUSEkswhv4rE0TMwtEQrsXGDnX3V2Vv5r2kyNEheK0tgOkmenFm8opdLg vaqUfcXRkUU4tVxqcHSwnplBnW4v5Y3wiQdR0lYeucQI2VAZgtGhACHtQ/Pz Ja7KhoicIlpw1d6BomgmlQpQjiS68WcfDByIWySrvhH04rQWjvYqHXjH0/FB oOoOWgbjjX8PQ6cvMVwxGNHRq44NG3YftfxpZjdfOwO753+IP9Apd35p0Isf 3N43zljUivVqadok6Vj9gbJ5UjGMJZIfLUXDZTpH3KtCIylZ8WRgiiYYf+Yx RnNVmQ2l1TRHE4dOKFPwiixrpI5IlnXPkBMGNyhNAn5fcQdXjDLkfx29ssTV 0cVp6Wp2OW3q0Voy9SXzF+VTLdRJWmdoQ/uH+6CpKk6QyUzh03jXxL9qXXDf gOFHP8coVZYoy6ECcHU7H4J/HD7DWDasCeroCZ/+HLKxFbi3wL2/WtyrjuLz h1NJX5551NGH1kiOYtyrVCDQPBthyMzHs8I+eG9ghw4dXyNzFqItEvrIMcGI 7lQKn9sSM2flViqLebHKa7A01osNtvjMyhU2WXHF9upm6QnNV08qk/w2T6Hw yR1UYL+JgHfjXxua2x/CH/b1v6BELpUZshp+kx3lkrM9m/6/0Nvdzmhuanqn ek8z/FXfKOOKwW95DJlBc/W18NvNevyK4PzwI3xWTqXxIXFaSsgXK9/yoTVS pe35V60FrjjPSJ/QnNfCCekIj/NUbOT8i2wFEpYgIoEiYKlE1KqYbksvjKFY iDDKQ13mygRedQK1mjnb+rhoMMIS7KfLhWvuigz2kEauaF86MjVpNRmdsBuV TpWXt35XNtZdob7PNB8WGKTAIDecQUyHJAUpiUClPDUqf2OVlIgojtWVBFds MTvEEhxCk2oM30WT1LFvMrpqy2SkeEVDNzyVfpORk6QGD4JQgy3O1iPoEqbB iOmoT1NMFObLW7DpnhF92oxkIqDDt2kv9jNFKFVSmdLz1MMLHiN4bUwEc+xL QujRKL73uk4L9XlB5sZT0FW9nqCoCeU9fGSV1MhwoNVWDf+oSYnpj/HFEQvv KPsjVNVwXf1Ukx08P0jmKOpiSwG5RrFSniJKwdUzb0FVbh8+Q0yxFJXfMc7x EM8PJVW+d+X2oZSFNbGUDJm/MI4/vJCeVPqKMHNFBQ1ssKFtgHQCM2jgWoKw CzxX4LmfN8/p2lOXIXv0a4wm/2a5a+A1xpwrTRPXT+ofyA5ddSFzqX/NHqPu q1kfvCN8KLxiyYguMI/QVcxD5boMsyewvSW+41nLbwe4U7T3Yh6a4wFmyHtA 6sLLJEjVGVYUUZy8RozBUqYHyvF6uWasYE1Pv2s6nIpWhu1bB6ZCjBhZjoOE TnJCycY6EMeQe0UcgTLzT2ADo1y3GK5Q0GskL0a5qxr7uSrnpAuBk+xfZRxK 3G6Tx0YJ91QHbO/RKbUEfvAGEq24kpY9YTnyxd6HPHGK5NzrXABQFAHU/qUq uG8oy8Cb/p/sCGORVB1RmoA0fhDCeGqwMCtL3bhAKgKUyQ0luUzPFxjb9r5o k2tSGhwiTBYVNuwYmAxMSp1aFpIvyYxY0/MjdWCGZFlDwJUUBvMnpJnNUGXy rYRRB6/kTUWUy6bwp+q0Nznq3nzWBZvl4k4FdQaMAw8KrFpg1V9AVlWuSOKA 2eGH1flzapiMWk+6v3IwN5lhfDfZZUNtqWPIdOugsnU/DE9eYrjq0Lrrp1za eiP7K8gpmtplWJg8wuht3WITv6qbgiVJ5ozZdf7oVxjVjjZUG6YQc/Yunuxn tMgM1SJ5kB7BYFrlLyFusCkDy/KnkOjqrjMwsucWhiX9pkWUn8rZqQhFgHv+ h+wREl6hqIhJVXuH4ldR2EBoEb/yERg+v0RYgXdD0qxKDbqAP3CeV2DtCNGr 7pBeGFyQGLgkvVN+i65hLh8T1O5N9lXmZ8o2uvBG1jgm/YwNE2M/xsvpkcOQ OrCL0RB33q2WqlKo6+5nHMmM2zCZzTp0LxmysxMwlj7OGBn6tg19veR2uLeh Un2lrEDnVN4JTxx6lXEh537kxnzj70kuyM3BOfycc95n2UQZKTNEl04/l5/k VN8PTx95iTE+mX2/uGWSkqsy6aMw9Gwfo6ez0YYKx/iGHdCLW0yvt838u5yV pKdkR56EB/C7H+BvR+4urSUROTWuVzG1htAgiNgYhkV18bb3kZhv1vKpi5wN rONREHPH0xkuToTQFeOZlMOPyDAFIVU3fwPbj86FayW5FMkspo6Qkutt0h4D O4AuV6tDfbU260C8pZ9xctGV1SFYOzSCST3Swz5E5XOk838M1iQ9gJlscvxl SOOopL2RsaGnow5/NE7F8524U9n0MOPAwUM2DB+ngp3psYnAU+nvW1xPE+Gv RM1ZBM5tDFQXJDOCe4oT+0Ryn5y35T0ZFW5bmHCFCVeYcP/BEy5H7ycDhCT1 U6bAVdHwt7D/uR8xsgvLH70xdPxX+ZigevC7ko8rtsMDySGGLN5Rop4/xYUK uVhhtEstki+/8L9sODJI54M2xmPI/J2M/QMjNoy/fh4ve1XWPHUIJVBUfPbt sGQN3TJGXfcz2HpuyTwYZ/b444wah7+V5J/G5KiyPelK8b74+CLZN6QQVO8a gJPI/Ag1UcI5K8425KzMrLTDhgbuY1LuMgJUPhrRabHtT9lwYtHViRkqmlUP vb/2x6oYJy7v5qItVCtv1+OMZOoHNmQmZwMS6cduDG2KmThP7ehjyI8WAZUg yUxUjL+Tsaf3oA2H03TOz7kFHczAf2Uk1OwxvMmw4UGs8es2/GTBjWSrphQu zF4VlwvjMJTsZjRVxVVoTCX+1tC5F55Jn2Egn/2meJJfwqaFsI2MwWY+oKz/ HxFvFbOh8q4OvHxX5XqINyYYgydn+VgA3YNXYPrIY4xqg0X3Z5RusiaOkmUb pn+AD3+wugyqu7/HyOZcW71TFdeSnfA5fEzvqPbHFjiqwFE/e44Kbdm/LSSp c3MB1im7MUSobAmudjL3lnrxzVLqo4J3c8GE40/p23DUpwago8xh4P5gQ/We F/Cm84ZIog8yDvGNMUx0Is4kYzyTtlE8odHIjE/CubkcQQ8TiaLCNsZARd8m PV8WlY12JjjN3yI58exx6OuoYThOpQ0ND1CMWWqI68cxBno7bKjyzCPOFmhL /htjOueqnFWSBKial38q+6t8GR7IdcIDWcKIN+62qWAdXj7+wwPQhh3XJjuv JkEumdk8xv87b8wj+e9jquN9kR3SIygqGbOtdaXx+4T8zT3HFXZElZ2oCE5V 8ze6Olnx/XiZY/bceUb25e+hBpToogleW4FPLWZU1N5pQ1cPZaIfGZ9RRH5R EenySuStRg/adC8tgk4F1O18lPHk8ydsmvg3F7r259G1f7H22/lfwjckZoUk 51abXPdWvlOOwn2pjG4XscGoruCpzu+rly+jNU1IvQyx6wbzyv/J+ECDhqhB D5VyWolQ7Tecg/G+Vkac9d+6L+NjhoxBV+bUsDE+KCP8MlD7DnOEctl/JSs2 I9Y6YNOJEKsidCkDPeUbGFI9knlNUVZhs5pYNFmRRm3x1m755JCaX+Qr3PR2 ejJfpn9CtTz3hi1U/DcuLCimuFc9weWURZG2qNPG9AHJayChaicdb0OHqLc2 VIVcG6VVpA2374HkwDHGyQuLXxJMMTOIv7XHAtJhOBCz9xeFGH9WyfulQcbZ DM2JZxmj5xfbxQujHZ3hCMJ7RHvPrDX0VWisKGVUNHTbFBkZWFHNBMmda7yX //4k4ls+KNUSv/Xvr+Xzo7ewkONFfkuekNpQGuYv+7es9t683/IhqSWQB/G+ Q6dUONpfyq/hrVHX4ZbLdzCuRn5NRKZTpEc36mtWe6/xNTR934LhXbWM2g7U CZ469AJezoyfZvOkMFHeZH4OKz2T44zMyGEbUgceplfcspuP7EX4xRdsLvQk WhVP0tMPdsmoeUlksFCHmnYkyJwfeRzqSh1GHrWs0CGr6JDV3vtJRS1lrd/D qO9K8c4vdfkF8pqkn/s6HW7BqNVFndVCfyD1A8bL2XlbGfOX1ESa4qKcCHEI lb8ggFIGPV8Fk8BAKtYLCvkIHCRCEGIrKmjhL61iIgQhNlER8CloWWwZFrIv M54f+I4Nw6G612Z/tq/+NtWVy6cgdUc5w/Kkvcew6Xe9JGYzKtWdO4E/PJ/s otgIgi5Ib5VBbWeSMTQ+Y6sXXVH0oGR6+kXG4DN0rl4/xUP2JMxz9ZptaGra jq9ouONJGLviElRfL58ixd6jkYFk2kSlFR3/gsQyqYJcVXenDH8TZDJy4liw QgfemA783+J14ZN/47ejCDZIxkqzEK0yl5FB9eTgE9BcWUxQuzFLSU98l3Fy zpC4fkd2jT9si5wyVCoLXxU+lMed5XeI93xQLjObsb18PjlC/sT4oH/O+xqO Ka3t+mdIT18m+A+gy00btimdrerFEpELLnWYMZLO2DA2lrGEkzn5FUZ7bZny 05APC3Uw1sAQhngpNeGIc5bLbKKNHHzTwZphYrVHAgWRtqLQCvgJU7hpIIV4 GUlkAgWRtqLQWifY6cuSyE8Xuu9Gdd+/yOkRNHWI/aweL3cmD8PYuQUGMvy7 5QT2H8Lm78HmJ+AQTt5D3gSWt7A1KZ1iJJo32zr2ic74ZqTGL9rmemFo4/5z Hmy12dUzhYJKvlk4GmmrLpL0EfydiDQKOnk9VN5JLy2XKWQYJ0ILCuVZ5H9s 9GS/QeZY/72MKkc5Q4Vj4wmUqoYZx9OvIGONUvDH8eHvwFM9nYyGimIV/BG/ HRKHXmVcyLm/ZiwydNKKOG1F9UP8LkiOXmSE+88b4iJJFVusFXs4lUyZoM4m 0oijRn/MlAnqbCJNJNyLFdCjixA4Ucc8B8ZrTyfqSMpox/rDQs/dgJ47KFc0 qi90fjQF3XVlBL258b7/DcZI9rKqexp9MkcobjpiEqKSRy8SL5M7nLfWei8h +I6poxeJl6kZH2/hF4mXbTG+6VtyzTxLHp3UV6GtOk4wZBmauwlGKn3GJheh CqmhZcwYKRyhWhv2HD0XEEIiPix3lt8m3uj4VzN+EwNfprJB/fxKrEpJYPg2 NVibfxU+7Bn5YRRpMpH+PvTve4ixs67CXOI9p3ccqhp30qlW3yTHwdhZdQqW mRA1ffyfGC31j9p8kIP6p6Ti3Hl+l3ifTS+jBVorvMCRXfgyvIxv43eJ96lY HzLpiPcw8FUmL4L/3/2Fn35eP1nv+P8Hmngw\ \>"],ExpressionUUID->"f60b4412-feba-4df2-b692-ff70d661845a"]], "Subsection", CellChangeTimes->{{3.440895754578125*^9, 3.4408957769375*^9}, 3.4410038390222445`*^9, {3.455042878078125*^9, 3.455043003234375*^9}, { 3.4550430723125*^9, 3.45504307371875*^9}, {3.4550431366875*^9, 3.45504313765625*^9}, {3.45505279165625*^9, 3.45505282378125*^9}, { 3.5367535507791395`*^9, 3.536753619943095*^9}, {3.545147981904499*^9, 3.545147992921129*^9}, {3.5451480361216*^9, 3.5451480635611696`*^9}, 3.548646755982729*^9, 3.559436180348071*^9, 3.559498749111149*^9, { 3.7095733147118254`*^9, 3.7095733166499367`*^9}, {3.709573634582121*^9, 3.7095736661459265`*^9}, {3.711717094956087*^9, 3.7117170956861286`*^9}, { 3.71171712788297*^9, 3.711717132164215*^9}, {3.7117171826731043`*^9, 3.7117171831101294`*^9}, {3.7117175469379387`*^9, 3.7117175568335047`*^9}, {3.711854545778356*^9, 3.7118545631473494`*^9}, { 3.7119033442924223`*^9, 3.7119033605323515`*^9}, {3.712095460921544*^9, 3.7120954609225445`*^9}, {3.712095552840802*^9, 3.712095552840802*^9}, { 3.712095584347604*^9, 3.712095584377606*^9}, {3.737807608883332*^9, 3.7378076101044016`*^9}, {3.7385815846478014`*^9, 3.73858158549585*^9}, { 3.746790780119294*^9, 3.7467907805274167`*^9}, {3.746832393873145*^9, 3.746832394209256*^9}},ExpressionUUID->"35a180db-f3a3-41dd-9b43-\ 0592428f05b5"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{"Bt", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "=", " ", RowBox[{"I", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"\[Gamma]5", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "ii", "]"}], "[", "bb", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}]}], " ", ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.440895870234375*^9, 3.440895891640625*^9}, { 3.440896510390625*^9, 3.44089655715625*^9}, {3.442671255203125*^9, 3.44267125603125*^9}, {3.44267137046875*^9, 3.4426713811875*^9}, 3.44267142365625*^9, {3.442712951171875*^9, 3.442712951859375*^9}, { 3.44296369284375*^9, 3.442963696734375*^9}, 3.44296768475*^9, { 3.443374517453125*^9, 3.44337452140625*^9}, 3.443397833125*^9, { 3.45504301590625*^9, 3.455043130828125*^9}, {3.4550527984375*^9, 3.455052814484375*^9}, {3.5067782137090287`*^9, 3.506778214466072*^9}, { 3.506779064525693*^9, 3.506779068082896*^9}, {3.506779121543954*^9, 3.506779124996152*^9}, {3.511641116247309*^9, 3.511641117295369*^9}, { 3.511641238366294*^9, 3.5116412632227154`*^9}, {3.519945652604292*^9, 3.519945656025487*^9}, 3.5206470576621337`*^9, {3.536753629485641*^9, 3.5367536355419874`*^9}, {3.5367542796588287`*^9, 3.536754394482396*^9}, { 3.5451480077289762`*^9, 3.5451480136813164`*^9}, {3.5451480836983213`*^9, 3.5451481475869756`*^9}, {3.5451482301356974`*^9, 3.545148230279705*^9}, { 3.54514835065559*^9, 3.545148351119617*^9}, {3.5517190084457397`*^9, 3.5517190462919044`*^9}, {3.5517253476257124`*^9, 3.551725350072852*^9}, { 3.552315878168127*^9, 3.552315880549264*^9}, {3.5594364063879995`*^9, 3.559436470154647*^9}, 3.559498758930711*^9, {3.7095734439172153`*^9, 3.7095734562269197`*^9}, {3.7095736865240917`*^9, 3.7095736900622945`*^9}, {3.710786317142681*^9, 3.7107863175327034`*^9}, { 3.71171717351058*^9, 3.711717180665989*^9}, {3.711717560179696*^9, 3.7117175669990864`*^9}, {3.7118545714168224`*^9, 3.711854584457568*^9}, { 3.7119033420472937`*^9, 3.7119033423323107`*^9}, 3.7119033814345465`*^9, 3.7120954622856226`*^9, {3.712095557947094*^9, 3.7120955854366665`*^9}, { 3.737162821795579*^9, 3.737162839969626*^9}, {3.73780794558059*^9, 3.7378079860629053`*^9}, 3.7379793854587083`*^9, {3.7385815933232975`*^9, 3.7385816487654686`*^9}, {3.738581823928488*^9, 3.7385818265056353`*^9}, { 3.746791040438759*^9, 3.746791071688319*^9}, {3.746791218199999*^9, 3.746791220316177*^9}, 3.746807028665576*^9, {3.7468327145191917`*^9, 3.746832717645952*^9}, {3.746841944173117*^9, 3.7468419673751373`*^9}}, CellLabel->"In[82]:=",ExpressionUUID->"dac9a839-2421-4db2-95cc-b024c1e96cfd"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "1", "]"}], "[", RowBox[{"Bt", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.7385998195678196`*^9, 3.738599826307205*^9}, { 3.746791128448927*^9, 3.7467911487067003`*^9}, 3.746807031096098*^9, 3.7468330770061526`*^9, {3.746833110572871*^9, 3.7468331142241416`*^9}}, CellLabel->"In[83]:=",ExpressionUUID->"14149be4-2940-4252-8f00-90fd096f3719"], Cell[BoxData[ RowBox[{"-", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output", CellChangeTimes->{3.76046795390088*^9, 3.7604682415789695`*^9, 3.7604703402034335`*^9}, CellLabel->"Out[83]=",ExpressionUUID->"b0de2762-f121-4fc1-8261-10df30806822"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnV9MG2fe761zbs7FXBwuuUDiCFniIlKEkKUTFFXmgogICaKtEKKtLBMl B6I9WcjmBG9XhVQNZNW6ehujbZy+J9Y2VlZx9u2o+9aJ4nRxuzgrTIu7NQpW 1mkggganOAGCHGSCYfJ6xmP7GY89/+2ZMb+PtKtu14zt8TPP9/n9/1/HB3/1 f/6bwWA4+z/S//WrPlvrb3/b9+6b/zP9P7p/c/ZU/29Onjj6m/93sv/kb//3 8f+e/pe/Tf/no/TryX9+DQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwEFqfTH0 N8/l9093NmOGDEZzz+nRy3+ZiqwmCcnX3Y7P/ntf18WpeErBDwsAAKBdYDsF FCG1GsY/Hmg1GkpSa7La8dAT0YuKeBHxnDOnVyfWMT79TPqSBAAA0AWwnQLK sLM+j492NpZeSCiNHcOfB2Pbwq5MpNbDN4bayHOjsW9iegWOegAAVDWwnQIK kTuJZcBM3cOXrt8JzIbuR+b/ORu4fd0x3N1cW7imjG/b7zzYSHEe3IjNRf/l fhP1t8aTrvkXcMwDAKCage0UUArixbzrJO18aegadk1GnhVxtBDJJyH8Yo8R Yy6pWpP10p3oWpHzG7EVC+F2a0vmD7DW3+NRWEsAAFQ1sJ0CSpH6eXL0KJbx rtj+HIpze1eIVHzWnXGqFCwqywdX8clgKByJhEPBSdz10WBHzquDNXR+6Bfq twEAANAnsJ0CSpFbS8a37b6fEgKPYsTmgu+S1cTyzBQFa7FeuruQ2C3vFwEA AFAX2E4Bpdh7jB9vok5if7i79FJ0zmDi0TcuW0cD69yXp7Fj2OUv6qUBAEDr 7CaWvvd9ieMel8Oe5sJwv9Vi6e0+fi3yClyqLGA73UfsJWNz33hvB8r4cySX 8LNdNjwq4yRGRk9u/ck+fKIjl+TQYO4ZHL+KfzsX24JnGAB0y4q3v1jK8RFX dE/tj6ZFdLedVkBiqpLd9eAnnZlzFPamc/6l2p8HAID9BpFKPI+RLIRv2ky0 WtQcdt4Hv6r+AYmRyt5D97H67FG1wYIvq/2BAADYtxDbwfHsfnRoJLCm9ucB ZAMSI5nd+87DNdmz6il8ZUftDwQAwL4lGXV1Z7ejs741MJ31D0iMdLZj/o97 mhuau0evh36BoAAAAKpBLHp6G+idvMu9CNkk1QBIDAAAgM5Z8w3WQNAZAAAA ALQD8TJwvo62nM1jwQ21Pw8AAAAAAEjQufZd/yYUUwEAAACA2hBLuJVuGo1Z 8RgEnQEAAKoNIhX7h7P/cE2/N672R1GH3bCj6UDn6JdyGlZUmk3/MN0Yo/aI 6wFYzgAAANXFbmL+c6sRM2BHz0893a8WWCLq7jfqaYoBsR2yH6T92m320Kba nwcAKg+R2oj6XedPdjRjWHPn6YvXvnkktIk6AGidvDSPTv6s+fKN5JJvrLOh zmT9bHadx8glWy/e/euXd+fi3GN5839AjxfEWi9M6kCgWUFnYis297XbbiN3 KkNtc8cJm+PmFLSC1AEgMdLYTURxW2u9sWfsxuT07N+vDjRiBkNdm31mE+4e oHuy0mxoHsAXtb+NE6veAbqA6PBY8AXna9eCY22ZCQX93hXBb/BserwD04VA M4LOXyytUuMOMVP3e07cPx2anfI6h8zkNzk84PpO6PlEwLumNhZDkzed48P9 3eZsoXUao7m7b3D0j9fvzCxsQPcMUWhPYojkxtOYYjxLlGljIeLfnm9tbB39 OkYv7xfBscPQ/hSoCojUineI2gpax++t6+C0ubvmO5ttotTtiia5XpuPydb3 eB6L+HKpRXygmXzE2z6Z3dRwDDr/BWtMJ4dOmuqMPXbfArqjv4pP/aGVGprY cyUs2xbbS8ZmPGNWEzqpCWvueOet/FQI+l+2WO14SBdzdojd1K7sjynvIlqU mFTI3mBQGur8NvKJC/82vLypgF4TK74zh2p6rz/ayd38RMhupt6rAmkYWwv4 e53NwkaLKnUDT9yIanhDAhSE2Jyxt5HFsjU9f/pXUgdbadocDowcopdq/Xhw m+Mzo4XA7Y6wuF2OWP/7qCl9CsCMA/iSYlansqBBZwN5vhrxFpksnLav+6hR VtgxR1hGYDr1PHzjHGmJG7CG1v4x11f35hdjG8iiSSXii2G/59JQR3ZyFtZu ++L+ukbvXhZlZKgfj0lVG5UlpgRlUWeU2ubu31+59UMsKfn7EVuhjw9hb7mi W8i/e+zpqaeujzU5wmXWsWXcUt57VIQGe0j7/k1APtS2QP7ixlOehS3+12sB pP9wzaCPc97DVsTZld0JJBQC727OftKWsTpd85wmulogQef0KaLPs7BTVAd3 lj199G0Y8q1Jk8rUz5OjR0kfufnMVX90g1twU7+E3GfNtH1dh5iEmkRldVZd Ykp9rpxn+8li5J+h4CR+daTbyB5v3dA56pkKR5e5/NqLkdBs0P+fbufFc92m gktgphOX7jzgWVHFP+ET78CBmgHvKvKnSNjr4KDvFwXvRzF2E8v3QzTTfi/u KXqLsLbBy1/4g7MhftJ36RaO/4fbaR8Z7DUXHSZuwWNl/laABkgu4YNUzNLY 647qJUxILLqzilvX5f6J65FGYrKGHs+yBH0g1oLjR6jnq8s+K1HWygj6BU0X AqUT5PL6I21GBi3NJWzz4uysh11WeqfStkAzA6zL0Tlyp/3K7RjqLCbatSbL B1dv3gmk99rIIiJAzxPSvqD6EiOc3c3ABwcK7geP/4pNKrEcvuuydTCkp9bU fyWw/FLUhai71Dzsf4ZefNWba2o76F2tvJGJHpgzNPS4oxLPbcl4dPrGaCdj hnvtsB8KM6odYmfB00dtnliXK1rc5tIgaNC5yxnhtPeRmKzk7tNZ/7YmA9DI F2xx/Piq9AsR69BsDyVEvs3WI3dfjRSFTcX9o9mp05r1P5SG2AhPdDOtF6xx yLui6DFDkxJTmnxH9yzSzr1kYuGDO/a3jeiljH0T0yuCvy21FRScNpFxMAUH nkqBxN3oJXPcs8TxaPJDJB/7KLdV5nKq+VKAipHNejIY2u0h7rRnTYEsfh5n NRqTlTPyeGcFP0VtSHVtjh805f0nW6cI+oJ7m/53s5krYnLXSYidR9d7awzM qKjwv44HRluz+0qPc17swUBlWD5vxecsa1NiSsOOAshytG7Hpj+1oK5g7OiI 96HA3EViI3ovtIwe+fairiP0hQ4MeJ+ocOfQuZ8ZjriisvMGiM3p8UM15VmB gNZIrfpsmTwh46mv9NT7EVn8fF0rERcTdtobl3HeTM45O+up6zCDgyqzveh+ m/6CPP5q5JVin25i1W9rIdPAzG9a+t+duPVAbNY3sYL35cYUW29qNb+uOMSy p4ex1fJW8Il/Cw1KDAcKq/PrbClZXf6C0lsuJMKODvoitedUmXKOxN3oL3PQ PqtETWZuN1N+BQLaYut7O30S05fhjC5+3lzWX3yDWdNZ7vE1Zz4bavrwFa1s l8gX5Jnp/Mw/3JzdLsTFMYklTy/Dt3t4JPBc5OdE311n6+11DLcwNlsJcQGx qC8xXCivzq+Rfgt5gZbSrjC/rakVnEXjbhkKYhbSyd54vnAeoG+0qTVCQBc/ 3xnyZWCkTrnja/7BPzIe1EZ6WP4L8kXVGd42UZVlqNGdQYJjDfWra89Vy03l 1Vl9ieGkLOqcZnc9cMGEXlZ0FQmxFbyYzVhTTBNFwg46D0ivsyuAXooyCvcA 7ZN//CXYQeqCLH6+3OPdiPMw/VJFsl63F9zvZA732DH3ggZGTSBfkGcvImK4 NWeXiKssy1Xd5uVJwvxohn9Ya2lO3FRanbUgMZyUS53J+ohZexejyU3nZ/Mi OjA8D4xkH4gDF4OqdMEpT9CZJrMUodi5mkmbn+doQ+bQxyE9dHLKgy5+Hl9u KoYPZJ/0t92LCkR+kPipFtyzu3HvaUzQ+ZxhuoocMVlQHsJRUs0JY0uvbInQ Vth1ympBsA6+f9lzb1FgXZhkdSa2YqG/OkcHGe9tsf7aPc+Zv6sBieGmfOqM 1EdkEVPpma9fwA6MTavi/C1b0JkisxR59j1Az+w9dB+rp1aO/qYNIouft6wA iXUedkYUid1RdamZS0rv6aEYL8OOdvoL8twL1NvW0OsR93ATibnrQ+3kfkx2 5rwldbAmo6VS3Uigcr0p954E/vg7i5lRuGMQ3kFdmjoTTwMX3yyslSYHW7z/ WeAJ10OnAYnhoZzqjAbdaGpO4StC9BmpQTN0OMLIb0RsLs6EhB7GZFHGoDMJ tRSxfTvbt/ohXoUnWuiVw9ehWnOgi59v2ZO1RtlOVQwt2H4W+SESl3aeRYxQ 2TWMskF8ztzb49b02IGsF6HxPb86WUbMhocKuvsEklqLfnW+taB0uW0izGuc SlHnXEFE/q2MPf/mX+JttaEFieGjvOqcPp9MjTSiv1PNofFp/jkgyMnZ0DIR fpX/A6qcvDJ5zuUMOr+mlyI4tquXFyF71uCq/A4pF3Tx8zirESubWd5L+sbr pTsN8q0Y6o+5H6p6//LqzPnA7m0G3s8qRX2XK6JSRzg0bVtqvzK55Drj5RDg SZCgzq9+dLQwTajGc94VAQdCTUgMH+VW59cbwTEzU+P4T8JIZUHBg0kdeCqz 3soadKabG4gc5QPoiLwZJb13lmqgi5+nfrnkECtKtdvsIamZsOj+qfLxJhXD +/nVOTf/QuVeZwXDAvo8y2ocE5B0aKE/omh1LphLYhB+KNKExPBSdnVG8+Iy 1LY573PeQOR5L5Bycv0faByZqkDqe3mDzrTjTpOJgoACoMtehkKpBGPxcyce 55qHpKk7H8g7FKlUMVnJNmiFkbqhgbwK1I8FS2wC1HgFeqtQt094gTpXoGq4 KEgpMQ1fxqBodWa1WRYaBNGExPBTdnVGg+9ZeJ5ZJMrDSJoitsITbVhlcjjl BJ13N8K488+zz3jSXPuh2Ll6QVxGUgY2qUvB4i9tfBXUZaBNgEnL96DMZBuk j5PoDCuFyXlCSqRxEonQBH1KabK6I2omGeQnLqmrzoz0dUFbqGh1RlrEZBDq Y9GCxAigAupcuFoMfHV8+RMRw4+0E3X3NjbaJityKpUTdKbWDE/yKpGKhW7d Cml3lAwgBxE9MDVIweJvGvIVayVEvJh3nTRirZZ33mBvHXsL7mPyd7nt4Fh2 51C7scZW1PUWNcWkmHWWWvbZzLQ0u+bEtt8UA7Gb2uW5fOGWrpY6o4erDHyB PLHqvPfAdYSh/4I7imhBYgRQAXV+/SI4dpj5HtxDXvLJrnk/EjVVraZ1fCpe kSwqOUFnyldQ0UIGQGMgnmGdB50zBwxWRQyReOR39BmpJr2vcrXJueya1JJ3 6JASvdFWvP3ZNCvVXRDJeVePkTU4iUith28MUYOpsXYbLrozNg+pzeXwt7jL Ptzfjc6fxZqPnR791DNVbPRz4WAj1dSZpbZ8SbBi1Zk9NkNokq0GJEYIlVDn fE6FULHLecyMJ5yTM8HJP4/1HMTM5zyRF5U51MgIOmcCjpqaEwpUGDHlSGIg kquRqb9cHv11Z3POZDCaLb9zkNu0pMyfYqYYuvhrzEfbKVHATMc/ct8mx+yS c+E/sJjqGjrfx+efUxvZdmzyAlVB02Rx3AoGv7423I6J7g1YFDSwqHoYiEjF Z65Ym8jxuNYPb0xOh2anvK7M/PdaU/9l/yJ/MYqI99qI+q9dsJiyPzTW3HFy eMw+4fJ84XFNfDSSWQNYQ8e710O/oHLCsljVU+d8+9PyqHPhOURMVwG1JUYQ lVBnYjs4Xl+gzryDbIjNxW+ujQ32mhvq0uty5Iovsl6xzEMZQWfiqW+oSamO SYA+QZ1FCq2E9OPgv9xvKkjgQDe+N8duCR0Gl73msvdUM8vxji7+9CHzaWrj UdD7J8p4M1Ljk7r7bQ6W1bazESUf1570axpaLSOf3xM5270EaOxSGwUOqbWo /7p9+ERHWhzTimkZHL180z8XE9EEkQ8i8egbl62DtpSpk8DUg2dJluyQDbJu ksPiGWOG2NFe9RLqxNq2YtW58PViJ4KpKDHCqIQ6o11qBd95NZEcdKbHsyrW MQnQI8RP7q6szcBIY5Z6vcQD3NaOFT5BbEQFPTM5xuwKFORooWyBvyRQS3Af RIu24yH3kDm7eIxv230/cf+gROKhd+Qolp/mvBVxFrj95A30lIPG1Vn7VESd 2QEITd9JyUHn1CI+0Lw/thGgNKhDT26hLpGKfWvvOVj49JSkeQBfFCSomeJc dj8rNNNGC01UUO9ldbe9TT0PXzttyrbzNlo+nRbS/TKbLo51uaJkU24kUk9v tOo1PGKJS82gb43j9aDOBaimztrNlpEUdCZSGw++Sh9iyddD0Hlfg64fmZ1a ifV74611hiIYzR1vFPYWpv+fQXyJ15OZMZyLdB5ARixxp25WCnSDqh8Pblep PFMpSVn3CGa0fj4vopNk5tekhqCxQr1l2c8FIlZcRKozYxoXSdW1j1BNnTXb xFJw0JlIbjyNxZaj4eAk7vx9dz5RR3dNlUvxcsF31a4VrvoW9OGQQB8pWYt8 56Gnrwl5YDqHHB5/eDGeyF1yL7nxJBryXbtgNSH5vPwlIRnDuUjTezRqKWV8 YRlAe2tU6bhVhjQbsM5Pw2KbPBOLnt6GtGX6rDCGyDvBpKwU9EVRWJ1Z2qXl aKkkKqPO7HfRrjqzgs5iOWgPVccJv9ivpiJaXTAFoBUKdV3un6QuhcS8syfr 5mwbvOrnzMreTSxOOixZKcfecS9wOHsyplbNIfv3rBzozZC9jb6I6hVMNGjX 6Krbfl8XSrMw1wcbqq9a3VnnRC/zoVHXnGR2/DbwTfgSp87Ey8B5pp9ApZ6l 5QPUuQB20FkkgiviNQ/x850zbwhIRqoI2Btn7vysh0MPmpYjORBGJOc/66Ru Pdb6ezwqrMojv88XVd7ctUsZzoygs9rdP3IgbZ2qz3X5emvBcwqZFnHojE9i jTi1xTY2Nxf4tdUVLFaKGneSpDh13ln29Im4uB6pjDojPX9yaFOdWUFnQ92w 93GsGMvRcCg0G7hzkyz/zNefWvGl6loigChQNTk0EuDKgikJ2bPIaBA+GDdH Ni/R0Ph+oLjly2E4o0FntTtn5kG7bVdZ2s9uIvxpJ3L8ldW/pVj0UO28PnZ5 F2eBoTh1ZjW5QhvJVgcQd2bADjoLSvFCuuxWTdAZkIZ8T+zumv89Mu9W4Cw8 JsTqnTPkzNZSyRKrfltLqTHr+c2AxzdeSdBIgZh2E9oHHSBCIq/xabHMW9Xz +pBRUBk4vR+i1BmtW6S+rGbTjKWjmjpr80FjB50FdpPIulmqJugMSATNhJGk znsP3cfSm3aLzS/Ntbyzgp+qKRFhodpfY6VG8BDr3zmtLTXNvSM375ezWbQo GJ0GNXmkl0a2cXcW7Jh7Qc6GWGSP1UBeX2ErbM4Dgyh1ZjUsVf/LKo5q6qzJ siN20FloXxE6RaF6gs6ARGSqM90BWJaTMzNQqUha14uQvd2AveWK6mgyWnWq M7E2aWtExVluKIEdkuMbBVgZWEMeOZztItSZ5TPXxJdVmoqoc7GkMNW75hah SNBZaF+RzB4CQWcAVWcJOTmZ3UymIUCpMGuuNEGNq1BiOEUlYaTmVos6v1ry HGfmW8qMiLETmDGZ4zuVgsgNSeH9piLUuSAbnDMNUr9UQp3ZuQHaqddAkRh0 pshkJ0LQGZBZn/sy7GjH2ibCsgyBjAFeEDx6GXH+So8OQMXqx7XDzn1nG3NH lJu+xTJRtfNDZ1IdECUt6dwWrM6Fil90rGcVUAl1RrMus7dTi0NvJQedX9Mz nSHoDGikewbVM4rROHFzaqQRy/Z71BNVp8758YX8giX0kku41ci4ZG6ap/oQ qaWbVlRM2f1jMwhV582w4xia6m4a/fu6Rr6rslRCndmqp516DQTpQWd6pjME nQGmOqsYvqH6LeebP2RSxRr79Bd5YXi0qkKd2Xau1Mq7HNT+g1B/zP1QS67J rUdu1Nita7PPFBm3KUids5OGeLW+CqiAOrNVT5OOCBlB5/QD9y/8/OiV2ed6 2/oAxZGds60MVKglN58okwdesghay1RfVhhrUEXNWZ8sfWEFnWsGvasau08F bWmxLvssq92sEHVOzrt6EC8B1jE+/Uz8rrubWPre9yWOe1wOskvwheF+q8XS 2338WkQrDgeK8qszW/U0mZciJ+gMADnQvVdFdd6Ne09jtPHO1YFE81SdOrO3 XLmzt54HRtC+HBr9oYnNH670ItPWGs9+ucTs7cWrzgVdT8WNTEVhHZAyaGEo G0rZ1ZmdnSi5kLOsyAk6A0AOtFeYmn2hqSf78FjwBb17a6jBiChQda6KXmGs 8tL6saCcH4ZY8w0xSoqLt5rRAkRizmVFLGjjSVf4ef64xanOhVPOscMDbmnS TF4slXhONXxcCN+0mbI3TnP9TMqtzqzsRKzzs/mk9sRZTtC5aoEZVRJA1VlN 9wvlsyLljFj1DuivkCqHIn3LtUShBjX2e1dkXI5uPpPTZm0azjmI5GO//e28 bxprG3LPxJKUyVpKnYmt2Mx1W0fe2sVM/9c1+4sSXhRiOzheT19VdvRfccqr zhmXGoo2DWd5QedqBWZUSUEzth6516U/wCNq924a8j3V4HMnAPS0k3EF6JxC DWp3hGXsNAXmjz5SpHbW57+yW1vyQzNN1gsub3DqMjNbrmXE+wM5H9WSf6Wh oX3Q+TfOeW2iQDL05Eb/y0BZ1Tn1yGNF3fuYcQBfSmlwk4CgczFgRpUU0Op+ VafrkiqANf2b26XXfLAMVK0ijYR+AkRq41HQ+yf7cH+32WhoMPcMjrtuheP5 XWg3VeEdqVCd5ZTdpVZ9NmSHbR7AF4VdK7nkG+tsqDNZP5td51mhRPJJ6O5f v7w7F1f2RqUt4tBt11h/a4OQPaa2uXvY4ZlSTpczn4Gci02/g9zofxkoozoX rBzJo0srACvorMmsckAX7IYdudCamh4YqhFxrdnconlvJxfosINcCrpAUr+E rr/bQW7+jR1DlzyT06HZKe+V4Y60Kg1cn0/sJCJ/If2l2NHzUxV0LFCl6Hnk mGxb39sP5awKzNjnWRBWzJ4JdlDwuiPWgmOZkd8yPfClP0xy7fH8P3w3XY4R C3MadEPH4LjD9Rdf4MeHz8oTDc0369Ze0Pl1+dSZSC3hA0b0UHRoyLukUc8k O+isteQ9QEfEvf2Ysk+TJPKPdocjrFpymlzQDUqEJ4JIxe5NWKhTkrFvYnoF 2Xl2E4/+Y7Cx1vTep5d6GlQ4RBV2DpFsOyfmnT35HVaE7YO6CvncEflK6voe z+PynmHETZCUD1qJppnWaijlUWdic8behh4Q6zsnQpqZelMIK+iMHbTP6jG9 FdAEpPGc3TVVDJbnDgm6PmoiRx2s3xsX9Ddpaf56tJXaf4wnXfMvWBtPdkYn TV2X+6cKbk4FZSzSakOI5PxnyGxo8+/8wpsvIq7C+vEgV3tDVL/kxceFUGl1 RoLOWuwsXQ51JlLxmSto2ryhrnX065gWw80Z2EFnziGkAMADGipVr5knvddp c1SrUJAwgVDfIxH/9nxGmg2HzvhKJKq/+tHRknvoC8eFlBtmm2gpuw3T/DH2 XAmLsH0QVyGj12sRkIT5CuhXhdUZcWJosrO04uq8m4jitlbUam7sHJ/UsDS/ LhZ0HlBtRwWqAbRVo3olz/Rep+vJLJmeKmJULN+TCms8c6d0fciL4Fi2g4cK ybq5YC6le0M+VtssLphVw6JtH8RVyOc0QJ3wPZ7lcu/iFVbnvNNeqyfYwhnW 0n8FIvHIf/mUiTFQvG3Io50x7iVgnKIpdO0JBNQH9QeWP1pXAvrcre/FjGio oDMz0s+Ze4w1qjtqJOsSq3fO5OY7i5m4nZZm98Dh7F9KcEuirkK+PvB5/apE 0hTLUixrQSKxHbJnPVyVdp4IY3cz8MEBpjjzRSLYpBLL4bsuWwcjMR5r6Hwf n3+ukAlavrKI7RXvucKebhU4JQLVDXLoVWk2SmYT1qpRIBA0YVvAMYNYm7Rl JY+n+0o+cVqtZN1UfGq8Nbtl1vT8//sJ3k+xl1yatPfkgiZNlol74t2SiKuQ x1mN6lcFOnVsRV1vMWursEbbpCivghhYQWdiKzb3tdtuO9nRjBlqmztO2Bw3 p6JrFfKiEsmNp1T3stiTxcg/Q8FJ3DncUaTWrKFz1DMViizGOFiMhGaD/v90 Oy+e6zYVXqKhy3Y92/5FPgqWReTvwFI0HJoN3L5+6ddm9g3AWqwfue8EvguF 5qLLua+8uqHUNwKqHlRW1Gk6txmyt1Uik6es5G03IYma6PZ+YMD7hGM32I04 sza5eh2iiBfzrpNZAx4zWv4YWH5Z6jMTyScz9DZIYXzb7n8spcoICTrzBVsR /RJby8ZBfhMmWY7OhULT/q/cjqHOYq2Pak2WD67evBOYDTEV6XlCZrSUEXT+ Yml11j3UhmGm7vecuJ+SGOcQKQ3Y4QHXdwoXehel7K2fsIbWU/YvphcUKxhX tiwivdh65PTWgO5hgGDQ0LMaDdvpeI16OWkKgNpuAgpetqbHDuR8xdz9CpCJ 8+p2iCI2F26Nd+Y0N2MX3Lu/GHv6LLFD9YJenL93+7rjDGJGNXbY/hyKS1xR SNCZ16+CJDcqGB9RRoZkL2zEaW86OXTSVGfssfsW0LGWr+JTf6CcGyKT7qRR FnWube6wDI584sL9oYdxRSvGFS+LeBl2tMv4pgfe8jwC4xkQyF7UdSS7crjt uDK+u06an5YASRg+cDG4xX0Lia3gxXyQjkdNnvmHm4W9sgLsJcku0l38ezNp 2bn8snytaNCZrw9J3vmvaIWpJtQZPfgZyPD9iHeBHVlI29d9lMJgxxxhDQam VUP7ZREAwMXeA9eRbEpopUPPWctdg80JhZO/gdiBsWm+rCl0WAafmmzP2g/S pqjM+VDKkdbouW9wF51ak8do7u4ftlPWjwL9spCgM5/TAHH+V19bY9S1xdFj bWfZ00c/wiLz6qsZfZRFAAAH6vU6yHYP1nUsBvHBtttDvMMv0Im9PLVXiFuj +nSHE7QpIs/JLRXDB7LO9KqbpYtm7JsuBEp3Gs8b+qAvNLopiwAADoglTy8m SC8Ufl+6i3KFW2ApC3K2absS4W0fzWjGy60mVa07nCAHHt75LIjzv/pm6SJB 5xbHjxwJCogbXs1Z7dpBV2URAFAa4qlvqKninrHckCw9z1vMD0Zs6PUIOHej 0cy684GSuc+vGbrDkCgiFX8wE4nrOFDPAxp05jsuIt1omR6Y7WeRHyJSc9I0 AtKAjjtjH503V64hILpCb2URAFASZL55zSl8RdHhdyXZCI6ZKfNIuSqYSoPc N4EDi9He5tyJXoiVzcwHIGOyglt56xG0KSKP0wCxspmqRN69en0X0YvI2Ede qe6sdo2gx7IIAChFLu3TUN/lilRCnnPqo342slSIVb+tJaOfbc77wm7aMm7J Gs+cvYiJZU8P/TpmG7dq0B1OUOc/z8mt5BArSrX1nn+LVIrxxEMRN8t+S1Eo gn7LIgCgKIgZeOjjEE9ZkBLvl7V6NJONLJr8kAjjGW9M4IkGydnmUGdiIzzR nT39M1q1UKlieh61yQdjEh93mmJyztlZT7+SESagQvb81W3aRng8lJHMoPPG Pgqg97IIAGCRtwQb+/ClMu9rOatHv0f9FyF7u3hvA/EqPNFCWzn2UPFexNux yQu55plM+5Ga6tgyEX6lZ93homASX59nucStJdZm7V35rk1oW2PiiXfgoIDq Nk2DxEN5gu9EDLfmboQ2R0xWFCiLAKoPIrV001pTGfM5G1vkiQppFvRefRjc FBOuIpa9pzLOtKImcEaa649aekxsq5BMQmusUOhBHQom8TUN+Yr1Pc40F8Va Le+8wXZE7C24j2FCqtu0DDL1jGeuCpoSptURk5UEyiKA6iRXJFjm6LPeg855 P0PraCAucjskUiveIbLco7C/BJFcCjhPmbAm65WZ+FbE1VXP3DeSS/igUWD6 mU5hbK2U3LRemIwxtk1yyKCjz4gdHZ38+VUuuJDzJ6SWvEOHeIpodADSMZKn qAw9zwgrHKhuoCwCqFZ2ou5eqjbfOIgvlWvgcja2qGjrxcqxuxn8kNoQa0yj f1+Xshvm5stjxp6xG5PT5Kyfqx9YTLWY6ZQzsEQ12yKS0etWIyXiFsed4D98 V8+Ya0hJquJNAw0615iPtlNduzHT8Y/ct8kBE/RdqkMGC+aiAE0Wx61g8Otr w+2Y8ZRnQdde7TSJkN3MdgsUAc1Pru6Tm0CgLAKoWojUEj5AiQJn+zs55Hxx AmZGaA9ic8beRubrYG2fzIryaRdcJ/kkdMs1NthrTmsQPW32B+bIPCK1HvFd GSVnBWLNnacvuoMrVSzNzKDzwUHfU8ZAXgPWYO7utzk8U9ENxjCmnY3oN9fG BnvIob2tlpHP75UeoaUf8urM2YR+bzPwfjbIWqlqC60DZRFAFZOK+0epoGfz AL5YBjnIJlXqMYMll4xUY3H9q2oTp1UC6XjME2ytelIxvJ9fnfOFkHLPilUE lEUAVQ3x4v6Vd0grxtjvjiq+SjOFnFjjyJTe6lFz5xazzbe8n8WjLCADWfSa kKAY+elUpSt9kCpIrMs+C+MvMkBZBFDtpH6eHD1KOrhbP5ou3X5fElTJg/6m 3RE7C54+0uffZHXNlX2Q7v4DqQziaSu9L8gFlEu0IiESoQm63LvJ6o6UK0dE j0BZBFD1pJZ9NjOZlWT9fJ49VVbGdZ+F7375TVRXApcb4w7SXCbQyiBdJiQo TbZZdNGqQ/rZNMCCLAaURQD7ANqCVlygdQaRCF/pMcJOWE42Q/Y2Wpz1mJBQ DpLzLnLVYY1D3pV8IhyRWg/fGGqjhLvdhj+ABVkMKIsA9gGplemJPqOhrtU+ s0/zJPYe48ebYCcsL0jQuWbAW55iAd1BpOIzV6xN6fOKyfohKTGzU17XSDcp KLWm/sv+xU24TxxAWQSwD9iOh//2ZWBxn8a2iHj49u17sBOWEyToDC01mKTW ov7r9uETHc21Bqy5wzI4evmmfy6WhHsEAAAAlJl8hyfsHfeCDlvUAAAAAEDV Qax/57S21DT3jty8D+EDAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAACACvNfStYdhA== "], {{0, 114}, {650, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->Automatic, ImageSizeRaw->{650, 114}, PlotRange->{{0, 650}, {0, 114}}]], "Input",ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztfQ9QXdd55+0FJ0172/RlN21ogkNKXsO0ShWWkI602hTS4kqlBTUpS2W7 DLjWgjbVgKoakoxBHhu5G79MYzSxUHfFxGaUNUr81q2RRzgVdoU6QjHPMarE uDgCD8RgCwlJDGKQePC+/b7vnn/3z0NIthvbfZr5Eee9884995zfOec737/z J3V/07B9Z93f7PjLurw//Ou6poYdf7k7747Gv8aPsn7OsrJetizrB3kW/Tfg f4o/vn//Sn8CH2c+Xe3TX6U/NqQu/cjKhs7ajRAp2sZoPXzGhvkUHFntZ8lE DH+W746HC+duG7rHrr21nzXy/2RDavF1SBzpYrQ3brOhJN/Bj638Eqhu3Mvo OvKSDdOLK9lu1QApLJC8NAJ9B9oY28uLbHCcIvy4YufD0D04xUiKJlXL313D AjPD/wRPD4wzFgG+IZoBqRkYfvZZxonxOewugKdEx03HsUCtY7yKlW/Dtp5x K4uKyX/Wg+I5yVksP9p/CGLN9zLKi3JsfH9qX3lNI7TtP8zoPz1tw2IKPuX2 yF/JpsAyzI/GGS2lufhLi3okWt0OTx47yUgMHrMhfvBB/LimOAec4h2MzoEJ rpArScHi6CFGbdRRldR0wNHBf2H0HdyFvR3Zgm/Rduyn3FsIdzz/TLYlOQUn 99Uxoha2pTR2CsvPG2/9NVl05TWI31PIsJzNNrTEX6Giuoesw6KDVl7B8l13 5BgdatkQaejF8ueN8ns8Az5zCg7UFjIsCzu0uPab+DF3x9BxRm9Xqw1VUeaP lQPF9fsZ/WI8b8/0879nP/9PT61TvdBU4DCwi2yI1vVgK8aWVDPw/8kVYQIG Oncwip1CG2oPnKKJuzACXZV5DH4Py7oLP+4ev6Y7CRZtmIg3YlXRgvuhf3aZ 4Pb0l+Xk/Cn+6FjbFnAshxGtfdyGs/PL94vZPj+MBQ5UR7H+QkZt12leJmWv whwWSMTKvL1q5XwdH9s/txLo1cWzNApcIb87FDT12jCVTMkXJg4lLw0znmwq w6UMa8ymwaWxZeDjc729mprEIr07ioxWlNvQMTz/QdlMWu2mjz0EpU4eY0tN NQ6mWzWVz93DGLjqNgR/snSGdoiyAqjsGmEsiXfZqmg6CX0tJQx3FGsfx7fG 3lNv/Rvy8Uksf2H4OXj6+VEGvsKfeRgx/UNoK81lYDfb1M8+Hv9fWX4Fy8/1 fx1ysN05qsetEizfPnhZlW9THboAo113Mhwu6tyDRXsmrquiHwh9I661EIti W7glCOvjmY7/mXb8DmOaXB/ex9jo/gLFRrDWxyBxLUWwPqSKXuMRcEeBCrmN 2UlDN6P6TL7ldfx4oucecDbuYwxfd/uiQhQw1gzLRekjNpy8tByVNUxRxfUF +IitjI7huf9uNHtprIdR5+4Q/hftEUVR0mA5Q8gaVDSCRTd2vAzUgdfNnl44 Ce3rHIZbtLIbi44bgyj4mJpPYPl9FXkGYWnQu0ew/KLuCOtjZndn8ViOdFYS 3A6kvzVxmMZvENYvyPlwGasf3lelOke0fDOW7xi+qqqXq93KaBfcYZUzcNbw l38i3yp1Bc4cuJsR4Wqi9fjD7lG1EVqqy9/E8n2N6/Wq2nrchjmAKnMezPS3 0cxjIG1xs+ybxAqlZEgVfk+2buUV3isR+n3v6IJRXNER1v3mHLqWiMF6rHO9 fN+89kEsb2xF1gfN8guJb8EGLLtB9Y9DvRobmmUJMpXp/ndd909CvCafENr9 juiy1GQPVGOt1brn8QwL1T2vqZrVNr98Bjo35THu6HrFBikqbEnfZXiuaYiP +7pMjcEClieOqImd83WbRJBqNZ6zMBSrZLjLcaQG6+r6Nz2eqvvhCgy2byLo 93UaID6dJOjupzZOx+u9wk9+LOFr44dkvakJiNcVEFS9Ttm3YWhumRDo9uVh 6Ch0CKEscFQ56ssIQZXLae4nAhJ0n8MsDLRuYDj1KHbNiAZuVgVQ9pqIMxqk /J4FBbuOsoSMsArkqwc3Q2Q0boN/7hZIzZGYGivLVX2DL2rTW35CFFh8nSRH 96DLwLOuTUdd/FgcdBl41r3NbB8edcVx16azLn6Mh10+6orjrk19b55rZvt2 MyJynyTRYz009r3BSF4+Z8Ng73epvc31UFUSZbBkkV9ShR/Xt3RAz/FRxuVk SjdnCS6PPs94or3RhuqSKJ/WS6Gm9XHGicmrfAqokd02z+JyydoYQ49YgbmB BxgFZvPzTOno1zK8yfDmbeBNMgGxfIugeePK5gTNG7gA/c1FBF2usAOGUZZE WJ6j3MwrjFMjM7ZqqeLN0ih0b4sy3P0iSsfV+ISSxKzfEkVT491Qie9dye+O Pbw+NuTb5NRmu0wUG/ymsclF8MjR9s9Y/pIhEv6qWV7oPRjumaK6XR70B48x 4gcftEnzQcxx9R6MxZTaWYXeg+FWUtOBHwu9B6MkssUmzYdv3MR5Ct8Sy1ea ikJWUpRswY835zt6UhTfY8Mj3c/ixwNDCX8Tc/Hj/IoHIH72IiPpP4pZDBZ9 azqO4MeDgz+EJ5o3M5zoDht6xhZW5x7u//gO08Y7SCFs4SSWF6K4Ub7gflIJ zOoz2kf9q1ZwNbKsu1ingVBCBimMpuMNDMc4+RhFuf5K2XwSDM5119E0ZuAk sGkG4I+WjOZLphntEC2/owuLjq7oolqkOA/9LRsZQt4pJcXWwIySdz5qzoWp Xqn6kUtktK6H1T4IS2h0U4sTNKquvodRe+CUTRof0pxUmieXu2x+3WzRrkXG RBxXlGigt+WJffkMfiHeTa0K2HSn9CH84ti0mlGqPfPn8D/7O+og6mxhIH1t uD5FiuC6iEHVjftsOi3K9iQnGL1NG5DBdcSWKWP23SWH5yqJ7B2bfWwp7MDy w/pwqtgFpE+mnchb3iLJdFvPuK/jM+zKsOvfg10wxRoPhMGuImjuv0Cwfsmt Ho+bWP0dnuV9vY3CxJvcigpzNCcOM2ojmoMbvgWJhRTB+qwqqkUzK1zHVH2j Wr8Jg3j+QGg6pSZZqScUe1S0nE/Q+qikNFce5RJSf0tNNX5cbL5j7h5b6fd4 1z/D6j2h4rNpnij1+Cw+x+h/0ZvEokJoQqGLgAPw86qlV+Bs13ZG1CnF7ezu L4adUNWBf6wbtjqbGbHElb+QjyURYKZ3p09v4DSQNDKtNmpNkxX8wpBi9Wmu Fp+J7UMEOeLXYdBbOSTIMHBqOKL6a0MkU6737aDBYz3/LVddEVguiIx18QnF Ws2agHC7HotKHlKhP5dveoU3f3MCha5vvyLL0wQVSkmG25T1MSxPiklZ3tAP Z5lCiXHe3snaSYQhUF5n1aRQT/J6oJhDxcQLEYx5WAc9k0sErScimglFABsY VOHqHpjEViL0U1OvQ2/Desa69pM2jiP8hfhueaQTNmEdm/RSQTIxzXv5plJq NvSZ+nE5X2crCSJDlwxdbpku7uq+MPgwY534RZhwoVawC7TtNhd5ORMsz3+V Ti5cfbjhWzRaC3q0fsctHzzNICdtouSdotWpqThv8mKjpwPgLqyrd1pxRTMl oN8LP4WoE3DqMmuChTZYC3KbWROMkCII7cpZSgWMEEbxLPPQGToG6kC8eBo6 K/IIoQdnTUhDuFz3sA2DCylJDbg6AK25FsPS5o5NnWdgmWfg6nob870ENSTV 05zHAoKCogbJfOPdd/nKR3Zj+T5D5vNQI0ViJek2bzDxBTVIUMw2BUWink3M k9QIWZ9IF16G/UH1LZnUICMk6advQA3xgqnJHlIVeaQwbGt1z2vESPD80y1l NTUDZ8dXVxsJYyXSp4oQbRL9oAq6RhcJSh4eJ8tVpVWG4skcwfoL+Sx4k20M CP2sym62ciFW186w2upNQoYdGXasnR286goDtmlQW4c/a+h9XYkK8lVCNrgN WLR1YNZLDFNzTBuK2FTUq0d2QHxqiYByv2gK2fYG2w01lLPTpn688wZ1Gc4v khPL5NZCKvIb7H6S9EE+Uvmc5n7SNAY4oQ6RTn0vY8bghD6wGf2vlQu/pAfa rwgssKG+dyrb2yQP8e5WD7nGUxShHxLZzfMTYZAhpJyVDzXxSYIkg9oOZ49B S4FDUMXx6M0H76mUJsEatjKDBGQWewP6mgoJqt6cpj6YxXoRmgFB28Emsh1c kad94TliuniF+iaKToYkOQOQxttLg9w9dAi9quWZGwhNhaTkHfY4UhgOZKz7 ZiQlDVaZ8gGdQRqu5rYO4MdXIfBQEpAvjLwEIzPXCJbQ4i4PUyMLPYTaYNPE 1KvQCneu6GDdpAKiHSHDhwwf0vPBdXgiVahQh6pfOHfiHrZA0CsPWcJro4TQ 7crgA+66Ez2wDY9C27QnkP/UVCSLnu+FBjxMNPCBIhdljO6f+AZbHVUXeWur 8g1e2QEsP2J4Yqp+D90DyO8yy/S71ORwnQMa/Funv/xut3zYiu/YUNgxjOUN Lt2IfJs6qf2GavNeUX6ONqvmHLP+iE3uVFj+erD+EJ91stTGEvNi1HeKepde xXI9dYXedhfsOmp5/WqVE0SYc4WxOXHpO1YfpIB7qRx/7Ebo2ZbPUPMiy5wX ljp7eiyKyk0olrgSGHrt0eYd+vCzu3QrsqSmN0xhsnt1VgX8126WVXLUXcm7 Nuqrv5jU8QOXlv31h4x6ZLdN45IZ9f/Ao67iU2ZegD2luQxLi/e7+qbUSUAN +PWXoWNjhGDIlvrg4hnwcN98kq+zTPlaDzgsMj8ER8K6Tp0KtCudbDJJK+va T5JijqAHPFzFxOWFypWgN7FrQ6x2RahXzGsfVOVKZL0kpyxOn4bn412MWHO9 Tb4i2fIJ5P5RUlUPzbEuRrw/YcOrFxZ9W9cnZIXhVqrAGXyVU5mfmZI5aaZe wJyo5/USTPbUEUJlNUGgj8nihovJZ7i4GzVRVF7DaGz9tg1dcRr3xKsz5FvB oSWfVuOeYo9t4bWt3Fqi26Hr7BUG/uID8l1Yx9t/P3nAECytR88lwYCR0np0 uIolDGOh9XFVfh3c2XOOIVefj7o/CjPprbPpbOwbu88HyufHGImkcW4LcXNd 9zCpCQmaqKRSFJpegi4c5uUVduI3yv03L0tPwaGWSgYO0YfF8DvF+F3V/V3Q PzrLQNH147qXs01NumQMrfMoiwfIGHIa8E8w6b2fJPcmQx63blcLSb1yxvyE 2SmGL6xntEtbexlj88vadKicMeVbbrXIyKkWnAx5M+R9X5L3s6pyB/JLdzBi T520Yezy0m/oFlF0zAnYV1PIcB8TpWV+38kpFbmnbRvLMH/uB4zGAoqUu/8x /PjRap/iNSiaKSGHtrvRrmplZftEul/w348oiihZwBA0tEbtd0X111+mc/PG CPe/GIO7jalJvS9GQJ91SziyB4FsEo/TsSb6cc49rCtHrK5bMwTeTWok52Ds yF5GRb4jDXfORvyu9pFuOHriDGN8+g0bLswv0ajMX4Tp6XHG2RPP2nCoYxd+ XJ7v12eyRbe85XuQwMM/QgQRhUrBpD4XakSC8R4himVjBt4U3W+XLz3Xz0dR cRx1NULZULy9CbYX5zKi1TGUQMfmQrXuHKQ0c/xvDVfGqA3VB+isbIZueeYA 9fUiXH5jmjE9PW3jH3ImHh/5sfag7Gy2qSc/KNuVjwUq2nrgeGKEMT497cgf j5O8mBiCwf5/ZHR3PmzDfVXF2ApHD4Qlxbx8WhhbDp0i12SC7juKH0kc+joP oTuMBdiKpkfpjGWGmh7gxpF7Z3HDITg7v8SYH/m+DS3lBfQgZwvsOf4GA/vh l9O/OJ0QRocTMDTwLOPQo1+1ocSxPhgg4MCPGInEaRtGJ6ezqAaL/p6Hy/gi CHdCflQyJvUT6K7MJWjGbOpkpQRCTUgjdHQzCPuldMgJUVaE+vxqZZU/1k7t fWSmEKYKsVeiOIzfbQrRfW0Uj0+RGwP7FOGXUVMKpmjm78DA5FUG1vmLckot vg6ncAhPucMo53GUZn+s/zUlDaj1OMQ4ZHoP6fkXsrwZRiTJoRStnmJ81QhN Y8MmR0/j2J1k9D/TbUNHUwV+aZz2rA8YwkxxzYOMg4eP2uRbTMLMyLivVvp7 EeaTKYKY1WFKvWx8padg4vwQo5vDecV23ImHnJMMZLYNvZ1NdAaiqexsYjR0 /ciGmWTqY5k5nJnDmTn8fpjDn1IjvQxzAw8y1ommYz/n7cVHDhpeX/9JsozU X/OTw/BcVwsDB+c2U4ateEDGO3CQiX5OiqJ0GIO937VJ8UINpyid/BKZVgXP bEfIpoLt9IsZdAZL6o/1IoQEnuq9j1GgX6CasjhMGvIH/1VdO9sHjRGLoFUl RrjV7+qnyjNJDkPGR0qzVuonWIBmp1faC1ivpS159hiWbynwSYdBp2kpiF8l U5I44QhEbDLXWV5LxBdUbyRRGNvL0AHmker/g/95xgjKVydA8p5dnDgGser1 BOOwUwg1+04wppOpX1PTJ8RmHnDDWkWK38AOCAjlYAILfNZQfg1qfXcD11qO KQXWb6Wdw9lmI/DZC7gkn/4hDU2shSLMGA4lDSkqv5dGoOMwHMfj53H3CPrr 7pyQc3+2D6ttjAR3nACpJAlT8+egf/8ORrFjqQnhlEFTzxkGysIybP862Xnc 44+3/nCXP+Ngmo2E2AO5+LNcvYr643o3iEYlse9pWeKlSTjtKGd8WpHJCODl bcDL2qOP9cZWcPk7sTwZFP28TaP1DqiGvyCGNHX+KOzCabGrwDzKaWOlWH5S 86dpUBs2+bXvtDWWtv2QqEowojHSGHMroXNkgaBeMdwoF5xqnxVNNrpXU5aC E8hlQxZWsSbp5oPWwn8mQ8IMCd9lJAxoEuQzAi57OXKMaJ82Ijh1q0gBUrH3 mOqdP5a/8MeZZKfjgZeIaawjlAImltDRMZKIMB2HGixWw0WrbPLlu0s3Oizm JGBe/LCsa+lVNrgKo6vaq4wga6VJC+d4wD70ebM3BttVEictngQsOVnEROiq LSQYG3cuk1AQUaiXw1waQl0ybjB3AouPJKLRvXrI/WPx2+lZjlszylZYfsVo zKdvlY1SueaGPZ+SucNuC++jcpO7ZiBCdjoieJmoU454mFjvo284E0NfXFpM l4c72DGoUNfqd9cSfpSpmRewvDAGC+AhbFfflG+AZfiGoYP1tLqMx0zrrgUx U8EowPCukVkdA8kDLGlfzSLtoMoxJA8W4Xb4SCNtg7NG+9XECrcQBxwTbomg 4ezH8yTxzGB/hqAZgr4/CSpPythN3EkI3SoS9ir2JVQXlcvCRpCO5xRnGuU8 1Ezj/Z3PQWc6K4Om5kwv1DsWwwoXV++U/amLqk1UeIATvHFv3txzrGnaTlKl awhmiVaH2S6zMVgYhKVmiqU/YQjm8tpBxgh9M8r7HYZ+VbcHj+Rn/x4qsPEV qvHUnyXwtf5pRkoY3dJ7oAQ0OL9gvm+IBO9PzHVLvFyru9hb5GUgz41eODdA U+8EA+nzR/IdDO3gBwQXTMuZh5MzvVhRveNfSAJNUZzU5lzZPf4QbcXJsLQu RrqWj5hvN31CGn21f0IdG3yF0VdmaXSzprjGXkbx/Y/ZZO6Vj8htHWCj7VVF S692UQ2rf0fQSrZ5ONtZzTA4HEgR8ytmi0Js+VV8UtPllbooaIT0HyhvjY5p uE7lzTyRGTpm6Ph+oOMn5YOS+MX5vhblsZSdrotUoIeh2FWUNHwpTEqGBSyE OocoSmp1O+SUlNiwkaXEDbEXleOnomSYtcuwzyidSvJNNvEJM5+rYMgmIx+b +ISZzyYbH32cn8smPmHms8nGR2rg8gI28QkzH6f5UoTU7kWq9wKndqn1WHiR ZMkNAVnV76opJ5Q3NmJ1NyccGNIHCJ2A1KRQ3IcsKhK6pRZJEnjt7L9A3+Eu RkdrjQ1FHs0Q9kXjXujo+j6jb+DlMOfWz4SMWxrp/pap+inZz8lz0FNbQPDK jNGGOEwkUwRLxyh6NGm3SYIYUZN7REtSlNfr6K4vKrPCl2R7nC/CrqM/ZaSM TMZhMTauTauwY5iB7/tfZWme9g6j8O+6bejayvHmBQ/AAIo5CM3oMK8dI57U kPuypXmMIV2TLf+tA8NsyMtS9S+zYQyhNJmhq5J/NVUqO/9ioQXOIsryycCf RVRPLcJEXzujIj+XErH/Pf5m6FLAvCQSBD73D/D0c6cZ2O7flNWkFmA68Syj qx1ftTTf+RXZVsrsVlTVDB09xxmjl5d+U60QKsJA96cRr5RhZIaR7ytGBsKp tXS5EVr6zzNSIkZPB6YH6g/uz/ena9Hvu78IJrWsUEOc5Gy7CINCOlxZuVTy sOe7iJ+zYSq+Az+OeFNIbVO1znN2Q4RR6ybeFxFW7Wpk8p9fPy4Lc46rHIIq HEiapvN9LcGls88wYrUbbTDO305xLTzU1csYPL4fZ4LxdHLvae19CRJ9TzAe qvH+2MrfDI2d/8RA6uSrNw5xRzFcU2+ZOvIXS5wFTsfdyl84FTRDzi5q/YAM AEqXNy4YzqhyL5O/+1jfQYjFYgRc2OgvtjR2EPrGrhKsP111jPVqKZnj6pLy Gcgom2Qm/JgkJgpsFsHNmjkhHu8GH1dljl+e0srZJeIrI6KPGQHZ9Y/l2vIa sSp2l3Rz0oNPJtjuU4zpxRV7tcZQ7lzj7CCcGU4dwvIsrnrMQkTKv4KuoTcZ OFHzjBXj2uBeRl64/0WGWhlqvVupBdfxC6Ew9foEbaTGuvsdn8NVnGo6K3JA z8p/ldtgKGVKuJsQijKunX0TA3cieuBFVruSc93djO6xa5oyq++OYZSRh24z alHm2WZfkCZtLzW2Cp2cRSnhDaOwOvazMnv4oi9UZI3qC3UB0vwrEG/ZzDDU Lg4dXRu69bUhSoxj+ZEjJKQf5ZgNw4dbLF9WynAfh0/dKos+LXvCMEfI7jWT YijupDWr+UMzfdwJyzSqubNRVy+9CyoZnSMLsndciS7iIvYiZ6irDmFRdjqB TCUdMlR5Sn9jyKDKFniR58kmH5Wofm6BXH2kMDn3EpY4sG19sHzBbnh64ioD n3HbzRBKJs5J0onIuL/GaAxfbyUvo/mYbDzZCo0wcOVdHTACZbiT4c7PjDuh 6n1Dlyp1rmEcM3XjSv2++G8Q39PGODB00Va6OivNfTBhRFLWaGenVKjasv6V V6F7ax7DKnjAJmXBrRHJYLV6ceM04wmxNPTgWsFK6une81ojUCZr1h5XqnDg qpwP3AyPVOHFs3wJHkLXTAaTvScvqJq99xNMvAh9T8cZ8Z4uGzpilLMhFnsI mutrGTU12/B4eM8TJNVe13LwW2dWQEufzYIF5cMWObH/cDUSGmEjilyGrSOn ud9WSR7Skkt7LSpyqfQchR3SgKTI5ZF0C2xKa2t51c3qskmvLi3rxnTTh2f1 ioYYqrz99StqPpBybGv3qyrI8vf1RMkynUyNdSUXymKnGHMpkfb6psjmys5L 5w4xtkW0ttDIi7c5w5EMR955juiIaLEPBn2H1NobZho0orq1lViplSlttK2y RqdliY5GlixR8S6Rxj7GrLYrzx2n7woccCq7GKNLKXGFcliGrFVo4XaycWej 1qhG+FZDcbNhrmy9YZxWPSDuY6R7EL5k1Grk9Q8bOpWsZS2UUKm25yxKKLE1 RNaJ0G06jEspMa9vmRcBk4MMpgq475SFz8Yw64dmh1KjgPS/Xis71PYrr5Bw yvYxhhdSuaEjKpwWs02nRbOSkc4vs5gk0grcLI1E5r60KrCgUKm00aHrkc5t 8CVFOZVVV/PDf+nmTZFJFjYSfWuBx59iuCzDpAyTfrZMiuqe9IbXqnaR/E9i hvyFOJPfhAFMBXToUw5w/oragACyvCrD9EUFimHaE1KRQzPsCt/M4N7OUEap HOfk9m/m4Y/UxW3SNmjhJ8XHJnF0Siv8SFKlV6P6PZ8+Hv4EM7KX0rSJVG2l qxAgUPUtUctMNuQhrakcf6vUwhbhFzVh1PIrb27egqGp5enRsFR6q1NLn+U9 dnnzpg7JEzWK5iXM4u5VLV4a3HPupNVz4c9UA9Zw2JfKazPlsCf0zLycSWqw 001Ja93D+MWgcWGFSiPlpiCqCvwisCDeAsEC+5Pab4wsWRl6Zej13qSXP4HU zRvJNL1UTklRNHAf0FrppZx3TW2jtdEmc55vr1VMpBRbwkTKkMoHcTBaGaOo xq0O3/LNwO8+JDhx6Uf4XWftRogUbWO0Hj5jk0ZYCUZrp2MgI4ocUGdrN4xh FyOUdjP9uPj9fCUZVyi8ysi56jnfGefRX7wZKsp4j0AguTk4Ulh8+8koRVLs UmV1vHmjieRhaj4B+yryGGnkDM3DsGs1QnjojeMhr6D7sGjvVCAkJ3X+KJbf xVk7ikAkghc0wy/xO777JLJD2mPFdyGHAOdumwzFYRTUY55jXiTxl+I5i6dp a3Bf3zeMfH8eYQ0U9Av+goKpCQrs3eaEsUTnvVdJdG6GfykKMTZSpHjITa7E wp34DzIUzFDwPU7Ba3TPX3ve6hRc1fzX3AuvTU8TUJZwM05NT47CcCLBGBo4 asPhgw/ixzXFvhzdbuhqrXFroOZjmJeLVoJLh42lUaxX3ADOcEofsumqWB11 MQ7xhiKG+8yCB0ikMBQ6SmeZzkQtCqSmKV631hPXFHojyO+pl1j9hpx7zZk9 P/yYip8UoxZMsiRfO+3CYcZkKY/WNJJd4ALjm+QoXCFJVSeKUL8IpFz40ltl aeAXq7HUtBHJPKJmqqw6Ocduyrv9xm51HiciIxzWfTmn9BtYPj6qw3NlrFfy p1je8AsA9i5C8mH5BaMz9OWERvreyA6bFk/J4fBc+JGGXst7s4KmaNg804vX /1AcWoCxnh2MqOH950/gL/pAqsAKoKgol2Do+7TiaVNIx6pyxg2It8bOJSKh ewjwkCxwIU+GnRl2ZtgpX1ZbTlUO5vUxPj4jFDvfjvgL1/hsZKP/dTWcnmBZ FUbklEHjwX7G6OUllbued8/xY9BRU0jQTHFdXAmeLH86LiWUyNJdy8hOaoos AXuQJuvqInS9nlBhbmBZFOrKga4IT65IIUIgN3bb0LlvmyarngmbQhqhyhnx 0bdG1nTOTxblc6f58raRdU0nohtGsul+0auSkf92ctSG4cFjtOB1fgOqinII xpjpuDJJ9zU59X/ZLbxmQ5qSYV+lXtS3IenpkV8BTR09jP7hcRtm5pNZ6t1X YPHy64zRRJ8NTzxUix8XB6LuAzkpZeI2fa2qPoOp+yOCl+OFqoM091c3YqqL ppM/ZeoL+ouF2ql4DP9z2Ej2qaR3426mSCO+5YURUisbmXuNtSQkyNDbMjUh auJMPsTNTQhZODSHnb9wZi5k5kJmLrxTc8GjmzHD+8Wt0UEDi9k5lN1JZHhS GdI53fMrjGdat9hqa9buHCu6an9mQhq5ehJjZ4zGS7+H1KUTsLc0l4CTULYi CiXlX2Rg131IvE4g24Vx8Y1UTuQwyjrP2HRVtbLC46CRbqJW33PpV1sphoYl Ucnby7mXEOr+5hDRX82iaO3jcBZZitCZtnUbNzFaBy66HnJZZkbo9KO9IaSB bxtRU5M9fDN3tVnYn2rtHSSqP8epvN48rQU1YNdTJi6/TivoJrIkKg/Jxr2K i47Mm/MCI1a9/j+rBoVHsZtnvYL7bfIXVF7q+uo8TTJDO6XIGJLY3AzlUPfD Ji/C8BM7Gbiyq0MBjm+05jHGyelrIsVYap4u4yW9t+F5SQz1h1TIvk6Tvi2c isLLk3BrVAwt7OdHhooZKr5PqLgckFTStktSce05lk2/EsMLPcwFRVIxzR0I Ad2LzJXmCyOVd8NZpGsQQVscRmpmH9NahjwbKrtGsKg6J4MRzhp2ta3ToKRF yU3jflhVzoy8klfr8pXdM4luaCrJJWixJ3oXxPp+wsC2/rJ6tVeht3ULw3Gq beg8O++qQACE29pIZ6V0hnV2EmlntHC6GjfNY8q7kJva79cTHZ72VZUKKTUH 488/wWhv3GZDCd/HU1S+HVoP9DFGLi0VyfFYcwJcqXBNvYFl6AZ7MtAII82y rC08N3fAGeaTsi5ywx/v3w/1xTkEy5F9kv8VaD/yKgPZ8FFZfhK/691RxBfR iMtoblP9FJITPlsIyG8wkpfP2ZR2Bz+ONdfzVSl8XQpd3ZNfUoUf17d0QM/x UcblZErXvQSXR59nPNHeaEO1SNlTCjWtjzNOTF7lMEL5aumOZXmWN+3d78lH JGdhtP8QI9Z8rw3lRZxdxSmC8ppGRtv+w7hvnKbbbRYNbbSgVmr+HJZ/3r1A Rt6X5/ou4Vmz9pvw5PFXGBcWV/RNi5Sf5zCjraKAaLUFP2479lM5M/TbZJlv o2nit9j/7GecFPdTpCAVs4BRQomMcB6QuO/OAsKt51bIzNDMDM3M0Hf/DPUa d9JGqSvfFkr6OBSr1GqFKA525zHKbj547HvQXr2e4ZTcZ0PPCHkZmN4VnxPP XFPqbk/KbPfe4PWMxr431ZRNk2vVP/0lyxbJeWnk+Pdhf9tXGRVFOcrkyJex 13zNTLr267KTUsuQXE4RpM9JGlVSpIQ4uNm4ktUpvseGR7qfxY8HhhL6ssKD D9pQU0yrm7jCjJGUomA2TB97yLjntBBLdxyhfh78ITzRvJnhRHdgP48tqHmb 5p4Sf/CK9i/x3AjgmXDHTjLcxKZdrfhxVZTeKodRXL8fp/P4nG+EvTewjTL6 n3iI3jRHibO0KmxvZrTH9tnQ1fMUftzTtQ8eaf0qA4fFpQR2TvnX4VDiTUZS p28wheq0M09NZyO96ts3nY0jZ1pnaHWsSM3yvBFzh9SFdDUYzhyeN2Lu2DRx sAacOWqJfRvC+PUxRYdoh7j6BgJV5S5kZAmSrZDqxUjpXsbxmeR/kc+7Qb7p sDhvPA7ZdBZaFt+F3FPsVxZXiaakU3w4pQ/hF8em9b4trMPuVtPfUQdRZwsD dwwbrgevdNiI3KSIW3GmSk4weps2hPl3qXQTKvR8dduzmoI6JYS7lxc0UX6w qeClhJzg6NIwPNlUxnB55FAqwpb4K+okq5wHaAeZHH4B4l0xRnN9FclTjuyg oq1YYGfbY6bMoILIw8iddnqFZJZ669PrBluwZ3swA0i4XqQsfmzcNkqctYmy pHlxCUvITK/M9MpMr3fz9Eq9Bj3VeYTQwOPVrto130cZnJdGoXtbAaOg5ZhN tuTPqTrC0tJrhV5o7olNnTYpKk0vpeR0gnHkSMKmG5VmQqaubKN5bbCccwEF qrZ/ejLZ6oPQFb7wmC89dkpR2Lr7i0ohadjeZB+sjHXDVmczI5a4crt47DUa U8OfXAi0ARc/T5Yn4y5Vise2KRxb+gwm6cDb11JiVIgiZm0XefbPGxWaVwYu J5cZKWne9VL1hpMlVC70H1tvbcYYpgjJDtP7U82YUBmc/CayTb8JUVp4wTMZ pX9D3lueNEZ+GUVkIxpQT5oQJ03DaqK9NFKwgGsAoczZTCHkVz6nvruh98pH jKKXh+OMzu8N2XAhZcwbMyi+0qbjipo3cBm31xKCbqZxD7CaN351UFjIvHGU zTKPsrpwdQ97wE+aHZB6HXob1jPWtZ/k0AKxIyHhsMAdnnNgaGiBnDYLJ2ma rTNuoarstqm7pZNPSOwPWyu6R4A0FYtqd/OujmkJrO6XTqsG8R+Xb21+GIne wwQTNT/ISEGs8+7glXScHvfsyvr07/KOgdTLzI/M/MjMj3dgfvyGrjRLqNws gle/UYbHBLKHLoGht09z67CRiFI6ZwuHvXVmGPXn3O/W7PmVrx5rxkcV2TRK M+akxHcQ76GaZFxALPNOmvrIsAmkhnDxNIckInQ5I55Arwc0WRsYzrqHbVpU dCadsMgy7atpquZC7k82MzZ/yHxTfWODdrqv5IyVImtlmCvhjefEvEXJwMoD 3AlYRW5xToSkFTI4c4M7tQL5f/R6NMEUEzTjMP7b3/KsuGxl8Trr/0WgGfL+ j4keLLPN48uaZ1OSPys0w1MSPz7f2wiRyG5G3+yymBg34d4jWiuvzcpjwVcI vzOituASG54UW+XSCDm4mPdk3WgVMOgttQRipuu5qOYHbyXrCPpZgdDIsKAU 74HPe7d0nU9h4JR9m7a3uRB3iLDp4Q+WkNNjgSJQjKu40g/LLUyPwBqgEyTl kVsKY0n7USHdmGzbtBspLVNmTklzgSKmCbbZRLXM/MjMj8z8eAfnx9xx/KK1 QLHKEG4isGHvScZcCj4sR4Zuj6Kh9gqCG/fRlmwkepaNdu/528RoH7wip8ba 3fFkQzlYngaB+CI4I6cGO0m4qeRWdQXVaZi0Tk2LOzp8XS4FIdbUAptuM5Fi o7gRO8/MFaGiDoNXB/pHVk+L4JEubFq4HhADD8hbwcx6Ba9YANbTIphDLnCD 4xcUvRZhIt7IiJq89SROVvqvtUwJGWxw/WX8wrjIXP0ikOzjw7L6sAXFyDcr V6TzpAcU3OILsm55QmgjsedeGnU0Nu4ZUQKgWvu9hn7/ZbNaAJyD8VMJF/Nq m1i7w1BgLtBt3uJGbzUXQnXjQa+SNOmk9fKvVQFyGMOvKicP7WzTQ1s2hDxH L4y8BCMz1wg6YjzcjyewIa82O0KjN3RSNl3OSDy82mYRWCo+LwlEC9XoM3uk 04M6EYiUqQTN2puZFGlvqGUPg2j130H/xFVGyowqMvYAc7TKmXEIfaRlTzCX aoTM1MhMjczUeEemBoXk/TO0FUcIurGUjGhb96jalsOs4Oq9smRqWU7sKgdk TU5pAe6TOliohC/KZ3pyDoa6BQmNbJjU49gU++k7aCip5AKWJzHDK30FoiU+ KXs/VITMaaIsfbOGBU6T/ConqkZo8oblIAhIdQHpRXi9puZP43eHmjbLSFOs ZKMNtbEjxGgjVlZfVhSYF8HApELxfiuvk2z7na9BTUmUoO4XCHgn3NTkUHEp qTdg4OGvMPIN72US8Sp2PgB/P/A6A4dUprSY68fvmnN8I4p8s7ypKm7Zb1MN rV8/L/0OAhcifkT17EW+UAmhB9eweqiV6QYeJsE5kB9jJJJ6DvB6fh8jx1gh NnwLEvg4hOlhkm0e3cWLV9IB2NB36zlA+x1rVi1PaGsaN+1U0PHEci00v2e0 lW69cm++MnTX2vKvD5yefFwy8Dtwm4Xucq3f9Kwp5j3tivlhsb1GDLPcDBZo dejaQRf/1BBoFGpqcE41PoBf7O85odZa1Yy1kF65yJNZfzrxD9DZ1sioram5 TT2nFr7afZZxXZNeX0/oGcJAPtxbJr2M5qKhujTwEKPYEIuiO8gLlqBj7tOp /7VEobfi1f0+goS36kHkBZiVg/IifmdoOhCbbIqiNpw6ss1juHjVwBlRUm15 pJPD7jZphvuTRepeuQZj3XczDAKb6WJL3FZQNF+2Gc1H/cFWE3kOD0mUF+pf pRmuxaIw/xxJbjOEW5E70sj3byG0vmAtVP1t2afaNZztVOkk1gzvMrx7T/FO eTtygqyzj0Nt1CFo3R052u05/kbg0rgQPlhhedq1KuqG7gmi+WZCmEoQt25J GgaSZ/Njg26cX9YvFhq4QZIJ6Zf8rDQ8+M1t1BTNFSsXXuQOEJ1ARe/AonsH 9d19gpVhce2hen4peqQRVQK3wWuSaluvJqlO7KdSj/s9DyRTIw297HqHuDmm flYW1p2hKjWd1m6ZoTrUfxnmR+OMltJcpcp0/X5lMJa6F5MOhoY5Wc7y+3yL kbAfrNkfQF8XreStdIyaTU+TzdyJuqhUToS4S/sPdGFOHmHWGTWx1zhfJFPh TSzP/qZrFJLDD4qBpVyEm62WDplzwRA0XdNUHt5/N8tYXNiJIQjdiJz71LWe GcZmGPsfhLFKVUk6zOmTj0ENSgE1fimgtffVQBaL1OVROJGYZCyCijI2nKPl S5HNp6H3dbU1Ssvt2g3qKtPG3EnYi9Tcq+npD25VTCb9YV+L1DuqQ/GOZ5Qv /GqmddNnfjX/f9MEL2m8SOooI628ujfm93VnZ7s5O1eXl39h9fLpA3tV/nyO F3cgv+QrNtTUk6C774iOM5G5+EPUFzTvag9j+QkdxaI6LDRXln9JEUEsSBP8 QpCEHSeF2jbMaXOdTUSxwuI9FbcD13/IFgTyinvu/6HEbUdjdzFMe2i0Dvad nGLgkvwR+RMlO2o/EHWrt860FypEKb+2tEZxv/5f3vqz+BqtZ+EZ1USyPg6c uiSn+TiWF7mVBFy106qW8YDTYVpHQDOlvt7aPFYjKkpZZMo6XvJdY5ZN/i9Q iK0q1G9CzaAaAwxPkwyALpOv750KMJyHVKTyYUS2HbLh3FJKKbpSMzDQVkow 5mo15a/hHDbSLTM0P6F/XulME8ZBRrhsKCMEjQXRwjuHApEtGTZn2Py+Y/On jCrnBh5krNPGjLy9+LNB44ot9eKkZ5+fHIbnuloY5fmO9lShDAAHGAMid4hU gLluSEWM5v4LOgtJuM3Q0MUoOqe7Lo27q7p7VHnr5Eg6z9AvTj5JeUAIoQFa ksvuiI71QB2KU3VRkWrEqWTBZkl3xJ+GjYVJWX3vuLSmhlh/QhUKMke4YcsU rQj43ak7a4OWTH+SUDnHDKalk121tnKB7xZ37xfPtaG07YckbCbT8GGmv40U oAxLm16ru84qEUIqHlPkDjq8ryp4Hyin8m3q5SBchJJGhIeR1jxlm48OujhE KOMqkcfHeJWB3cyWPD1t4x+yh46P/NjIwtFqU16LD2qGZUNFWw8cHx5lTE5P O/LHNO9GEkMw2P+PjO7Oh224r6qYRFIrsEs4xffiF48efYUCfwlGu5THFU1b m2at4WWVjX1gMmi9TQeg35F9sczT8gwkEgkJG/+Qy2p/bxx6DrYy8KV+XjaH su/vf4rRPzgUoZ/gxwl+lSOMePwHNr4P5S9s5WQzDkGkvPU6OlxR1PE4sYVZ 4YW2L8zMjVSr7P6JT5r0+qTWRo3yq267nJZmcO8dhlBfaVPcg69+dcm8ccW6 WrKLH4KBS8uEVSZS4Bggm2Ak3M1llLbiwI7NL+vgriW4NNzFqI06tqJKLs05 Bs66cvlGtAQK3vLNTFnifqbJ0dM02Iz+Z7pt6GiqsLxXFussBLhI1zzIOHj4 qE3pZ7BoYmTcVyv9vQjzyFKEOnUq3wGSOITUIRdzd423JFHDzumZuZiZi5m5 +C6ci15Hg88aDSyq+gbjwJGXcIotrpjpfFV8mVCXKGGUDhIUYqnpEerBpExn k/gF+ffIHvqCHHPXgYRgzcnKKdlH3y7DdinyXUkzUrhBJtLI/k0hZOaUBXQj kJfMASujFo9QZh76NqPMCRV39PU7fgWUq/MlTw/h7SGvUGRVqnGDkNuKoFeW WqO81w1QlqhdWPRg/6hazqQAmiSta6J7N5Q4FsPSBydBa4L1x7K8Xxmpbg4y rj3w3D8lSMBAHijxPqUibU0xzzxLrsLCz6gOi0JJVR2jsfXbyLT4CyRFTs4p kf+Tfm7geYyBR7Is2dBgCG2OTdpvrMuIK9KkXMAvxuL3U94xgvV5U7gtufdJ GMUXQFjzctLNnYJYWS7D5Vz1d7HovxluV5Wy8nADfODcZVzZk21e2SOb4jcy qvOW5wyBky/aEPfpBvVNI57Dd5aHHa29tEQS1LWKwdggZyuucsNzUpuaJMef 4SfvM+hG2ShL6Y7j9q5n4MTZccb05UU+Iyof5OQ8zIwPM/p7HrWhqbxATRpn M7Q8dYZxKZmquBmmqhUrNcXcEPywFTm4E5TngHx/v20kw9QMU9+bTNVStvVp KU9cmFeUlJl2UjMvwJ7SAgZuC5ylyBJ5uOAKiJxm2hPyK9B59irB4hL6nvIU JKd6GU0FjhqgvSfgEvYhQnMrjcOHPyBA6QmD6g4KvTKz+EjFREA36ZThfBya W5abXLhWpnh7E368vTgXotUxRt/YnHfs4TrMHP9bRqmx+x8YVlYa7Qq1AovT pxg97bU2XS6glLDkFlR+952UFJcT4yqh0NkItbE4IzG9wM+W/ZUizx9KOSo7 5nY1xDoVqdTmzryAtYmxlNu8rVqm8tPJ9nwFq6HxlFULEqk7EjwG8jycptXt +DElAx3654OMBj3YZbFTFLRIcMmhLpviw5H2XQJ2+WqIU96P4C2DoXJsWm8g FO4G28sYVrj6VifevAAn95YzXNkp4BouaRJ+0nFqKTnpxPkh6G4qYzhOMZ5T 7yePtng/J0hl9HY22bSy8MBugoauHzFmkimdrYKSoo4zEscO29C5t5maXVWi FMNacjS2l7bv2HDo6Cla+S/rGNvvePrZHSsGDpdNo4Ufi7Fi8DkPRwurmQtq iTOD/x948NUNFK75ahT6u/YwtpfjqDki3uFheOL5cwyZvG27SRocbDHg0jPB yMStBpo1FX3tjApKaV1cS/EKQ5f0MV66hC7SoTfx3D/A08+dZmBvSqtZisKQ Od8d9h1BXh6u9pvwTMh40st2T3qpBcb0adz9umMttBWUFyFLchhF5ffa0NJB Rvbjo7PqLV72DOao7CubfosfY09xP4m+sqmjhPcHv9praWeHs8Umd06fjuRr 6nHzMNpdz4iy3FLxTTqxGjxW701DKKQmhpgiZWwAUB6gbnuc90jbJsxun/4X Rmc9yieRwMVtqlnLw9BRuI5R0fa0TbFGKtgwKFv45apAE/hfP38QrrMynVLe 0V+HOboYhtbVfu32IEnsQmrXtiztOf0OVfC8IMFsH9bSGPEJY0ETGf91MxxZ 96mHX4Pp/m8xqovybSiqasOfidTgPEN1DdIRLdxcGnREe02Ud3Ovu09g4ENs eoZv67r9vdK2NPlJjFDiYMPSLJ8BlatsWBrP6MgO0vZNLaVtmA6V1A0zHKRD GsZriHubCMMKN/fLhq1QLhkRiWk0LGB4f280TESiDH6bUZHvpD2i8T9Pmv/5 iwxhPxmj4/DhFr8x158GWhGPdgXxTEaao4RobbP8GTlbLE6fhud7n2UMjM7a xFSd8pUMF7sZlS1xXqaVjwrv/0e+SzeKMMr1ZQ35JfhddeNeOBh/gXFanJ/4 37gcRZjiXNEIbT4xfFv/l8l20QQGtiJXtBCbwY0QDbFVK0hQyy/hRoiG2NQK 3zapHTpWuCNEZ9jUE+GTNtN3t953PfIXK69B/J5Chqvoqfhb/MVzbhi7GTBD 6cqzzItn9C0+VgGUN3cx+kXX87+fGFNxfuJFRt/T2P/xHvKa7OC7lR9iNNfX 2lBTsw0fUXXPEzByPUVQfbdCxhPRRgY206ZW+jpCKdDmz3FTRXPVJTkF+J1o JgNb+kduhxwWTwreBxu9y6YL5SxvKmYVBEph+2N9j0JtcQ4Bj1SGzuLR5xhj 88aG/TeyV/zGCnwSyXfu3XXeu/ZSc/wM8ZyPyEVlI5aX9ZOSb/P7711+kPYJ fJgtb/keJGauEbzXCCdnjKOoduJyb20h22L8GGMwMWzDyAilymDTetcjjEah vJTmGZTVWVJHGNvG7rQdTTmZsG34S2qd7GhP7nNsoGikrVpo+Qyg8WM2tRA/ xiZq+3/XI7ZqoZUtJsQ3ZSP/0O25p+So+k+AYnGrJF1f1zEYubDIMPKk83IU f5hRHXW8nVf7KBzFqXPUnT7eO6bijFjtRls7MuGJ8xuM+OgV25ytAH+tfmzk ZZeyMq18ldxC0Ur+sbxUaJEcrEX7CN7+wzaKdvJqpJTfbsQ2t5Dh6IeJFjLw OX+Q6cS3rRP/n9HCkZ77GCWOslU4xfhdVfOjcOjoAGMocQbn5Nkfk2pm4Fk4 1NHMqCrKUc4hdNHn0VcYl5MplW6FMvb075d3zakuiG6HrrNXGMGuc0c3S7aK lVPacFHMLROts6lpNBnP/phbJlpnU9OkM4678BkONHJZci8q07fgyfJ0UZls Ge23X3I77Wm5mi3h95fOxpXHplqUedt9nDGoruKFNNdzRCnzoPCo9p2xFIHI 2QMfJB4mV2Z3nXUfQvDcAEsPEg9TbPW6b5e+L1/nGbnynydbZvxb0FAaJRhC Ec2gGCOeeN2mu/yU5w8tJgbdkGblNuw9ecEnzYS8U/I8P0080Xf5Hz+JgQ/7 tfBJR/ONoq/wab7LCa1n5TtdIqIm/gl69j/A2FlRZC5FpHVlzWv1Thva9n+f VH8j5/myQoThlX4NZob+N6Ou8mGbrzpR/5T6KXmJnyWeZ9PDaCHx+F1FbXoY foxP42eJ531ckoRO++I5DHxU6fv4pcD7718zn/7sPrV+7v8Di8vvFw==\ \>"],ExpressionUUID->"94b6539e-ff44-437b-948b-689b249344da"]], "Subsection", CellChangeTimes->{ 3.746790794639846*^9, {3.7468324068772516`*^9, 3.746832407310075*^9}},ExpressionUUID->"f6449eb4-4bcc-4a10-9ae0-\ 341e0d85cc50"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{"Ft", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "=", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "ii", "]"}], "[", "bb", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], " ", ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.440895870234375*^9, 3.440895891640625*^9}, { 3.440896510390625*^9, 3.44089655715625*^9}, {3.442671255203125*^9, 3.44267125603125*^9}, {3.44267137046875*^9, 3.4426713811875*^9}, 3.44267142365625*^9, {3.442712951171875*^9, 3.442712951859375*^9}, { 3.44296369284375*^9, 3.442963696734375*^9}, 3.44296768475*^9, { 3.443374517453125*^9, 3.44337452140625*^9}, 3.443397833125*^9, { 3.45504301590625*^9, 3.455043130828125*^9}, {3.4550527984375*^9, 3.455052814484375*^9}, {3.5067782137090287`*^9, 3.506778214466072*^9}, { 3.506779064525693*^9, 3.506779068082896*^9}, {3.506779121543954*^9, 3.506779124996152*^9}, {3.511641116247309*^9, 3.511641117295369*^9}, { 3.511641238366294*^9, 3.5116412632227154`*^9}, {3.519945652604292*^9, 3.519945656025487*^9}, 3.5206470576621337`*^9, {3.536753629485641*^9, 3.5367536355419874`*^9}, {3.5367542796588287`*^9, 3.536754394482396*^9}, { 3.5451480077289762`*^9, 3.5451480136813164`*^9}, {3.5451480836983213`*^9, 3.5451481475869756`*^9}, {3.5451482301356974`*^9, 3.545148230279705*^9}, { 3.54514835065559*^9, 3.545148351119617*^9}, {3.5517190084457397`*^9, 3.5517190462919044`*^9}, {3.5517253476257124`*^9, 3.551725350072852*^9}, { 3.552315878168127*^9, 3.552315880549264*^9}, {3.5594364063879995`*^9, 3.559436470154647*^9}, 3.559498758930711*^9, {3.7095734439172153`*^9, 3.7095734562269197`*^9}, {3.7095736865240917`*^9, 3.7095736900622945`*^9}, {3.710786317142681*^9, 3.7107863175327034`*^9}, { 3.71171717351058*^9, 3.711717180665989*^9}, {3.711717560179696*^9, 3.7117175669990864`*^9}, {3.7118545714168224`*^9, 3.711854584457568*^9}, { 3.7119033420472937`*^9, 3.7119033423323107`*^9}, 3.7119033814345465`*^9, 3.7120954622856226`*^9, {3.712095557947094*^9, 3.7120955854366665`*^9}, { 3.737162821795579*^9, 3.737162839969626*^9}, {3.73780794558059*^9, 3.7378079860629053`*^9}, 3.7379793854587083`*^9, {3.7385815933232975`*^9, 3.7385816487654686`*^9}, {3.738581823928488*^9, 3.7385818265056353`*^9}, { 3.746791040438759*^9, 3.746791071688319*^9}, {3.746791171144439*^9, 3.746791205624802*^9}, {3.746791269817828*^9, 3.746791296817684*^9}, 3.7468070324753675`*^9, {3.7468331290932484`*^9, 3.746833137306533*^9}, { 3.746841946421612*^9, 3.74684196943189*^9}}, CellLabel->"In[84]:=",ExpressionUUID->"692d9454-9564-4edc-b98c-537bc559897e"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "2", "]"}], "[", RowBox[{"Ft", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.7467913000660734`*^9, 3.74679130814038*^9}, 3.746807032959241*^9, 3.7468331516324916`*^9}, CellLabel->"In[85]:=",ExpressionUUID->"ef4465ad-9a27-4909-84a3-05b1bcbbd87e"], Cell[BoxData[ RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output", CellChangeTimes->{3.760467953932428*^9, 3.7604682416064525`*^9, 3.760470340225836*^9}, CellLabel->"Out[85]=",ExpressionUUID->"11f55798-ab5a-48e4-8770-f4dfffb6ac63"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnV1MG2f+761zbs7FXBwuuUDiyLLERaQoQpZOoqgyF0REliDaCllsIstE yQG0JwvZnsJ2VUjVQFatq22MtiH9b6w2VlYxPbWy/zgVbha3i7PC2eLuGgUr 6zYQmQangQBBDoIwMPl7xi/zzIztebHnzfw+0q62XWPPY888v+/ze/1fp3t/ 8X/+m8FgeOt/pP/rF50DTb/5Tec7b/7P9D+0//qtnq5fnz1z/Nf/72zX2d/8 79P/Pf0vf5P+z4/p15P/+zUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAJUFX1uI/NV75b1zrY2YIYPJYjs3dOWLqdizLULy+24vz/xHZ9ulqWW8 ghcLAAAA6A8wNEBp8GdR30fdTSZDUWrNDqcv8kT03UK8iHnftqRvO8w6Mr0i /V4DAAAAdA0YGoCHnbU531BrQ/E7BKXB2v95OLkt7J0JfC16s6+Z1MCmztHp JZCtAAAA+xIwNAAfeVWZATO391++MRGaiTyIzf1zJvTVDVd/e2Mt+2YxnXRO PFzHS4pQYmMheKXLTP2t6ax77gVIVgAAgP0IGBqAF+LFnPts1ndmbOt3T8ZW CvjJiK0nEd8lmwlj3iu1ZsflifhqAS1KbCYjPqfjSOYPsKbf+eJwkwAAAOxL wNAAvOA/TQ4dxzLOsYE/R5ZLO8cIfHnGk/GJse4W+/vXfJPhSDQWi0bCkz73 h73WvFMOM7Z+EBTqdgMAAACqCzA0AC/5m8R00hn4MSVQVhIb84HLDjPHsVYQ 7Ijj8tfzqV15FwIAAABoEzA0AC97j32nD1Gq8vdfJ16KzmVOPfrGPWA1cjQs TYO13x0s6GQDAADQK7upxHeBWz6f1+1yprnY3+Ww2zvaT1+PvYJYAQcwNNXA 3lZy9hv/VyEZv+ethO+ttgFfvAxVScb77nzm7D9jzWciGS223pFrvm9nk5vw cAIAUHUs+bsKFYkcc8f31L40LaI7Q6OA8dUXu2vhj1szmhB7c2zupdrXAwCA QJ6HBq3Wvo9vTNyLxhPJ5PMUuzqAwFPPk4vxaHjSd+19+7Hh0AaYMX1B/YIk 89HxAXPWQNYcHXsAAQP9A8aXw94PnhP1OdlttPsW1b4gAAAEsuizGwVFvckd r+W3E4931L5iQCrEdngkt1MfHgytqn09QNmA8eWy+2DsaE1Od/f4lmDHAgC9 IFSQYOaeMejdpG+24u723Eb9VmAVHCT6B4xvAbaTwY9sjcbG9qEbkZ9hywIA /SBAkGBHHM7bc2uw1+kcYsHbkfut2zwLkDNXDYDxBQCgaqAEieWc0znQ1W5h SBMqDc/tvz+/DlKkKlgN9GYP05BAAgAAAGgNSpDYfcnsP+KplafJZPLpehnD SwEtQrwMXajLak3LcHhd7esBAAAAABSWIAGqFSSBpPadIJRKAQAA7DsIPPn3 sa6jNV3+ZbUvpRAgSMSzG3UdOtA6dKucVhVKQyR8juxgFszhS4L/CwAAYH+x m5r73GHCDNjxC1NPNWkEQJBIIBX3dJn0NYtkI9if7dFVe8z9EPwjAAAA+wla jQxN/qTVBHgQJJLIjYLFmi5O6kCTENsR58FswKbZGdlQ+3oAoIIQ+Ho86L5w 1tqIYY2t5y5d/+aR0AlE6kHguBQH6y7Obl0JAPzk1Iihsdu3oFU18rraBclW IjDcaqwzOz6dWeN5+sl231//5dbXs8sCH3hiZXrEiulDk3ASSIjN5Oxdj3OA 3MMNtY3WMwOu8anK9x5PW4qFyOT42Eg/s4bLZGnv7B36440JqOESi1LGl9ha f5qsGCsp2fbA3VTcN9BUb7IN35ycnvnbte6G9ENZ1+y8v6EZw01srT6e+3tg 3H15sNfBKmaknr5+p9v3zWxyq7TnksCTd4eajFAiB4iEwJf8fdRz0TRyb00z z0UhuIIET60sxqORNNH4oowbifwQz/zd2ULXo8PhFyVfuxoebqZe2dDlXxL6 AfiCr7uRzMpo/nhmQ8ObBCOB5MvEsxlPXzOGmdvfHfMFpyMzU/6xPgsprY52 u/8hVI/xsLeVvO8ddpjRKXNYo/XUL+nxLnSXG19EF6PEiF18t+zLLOtNFDS+ eMQpuIWzYCghOvix2/dtdHGjIjsLsfzthaaGpqG7yex9+yI8fJS6r9RvpE9s Lcenb40NnW0qNWwRfT46Bm/cLyZLiNSs23HIYDjYG/hZ4YUAuobYuO9sJiss a2yf/Vvr5bN5QZI5eQ3ZLSbmQ2Ju7x+9FXmi9XUUYHc18Faui2W7O75V6rV0 ikW9zftY+FqJtb8NmdMfgpm6fQnN+lLp1dWYz/adNdeZbM7APGrEXi1P/b6J 3DVNtqvRck/c+PPozbdJhWPAjE1dw+7b9+YWkmghOZ5aXogGvZf7rLmpf1jL wJcP1jT7BWaojI3u8iUlmmJFja8sggSltrH9d1fvfM/nFigJsRQ4f7im48aj nfydk4o4LZn3Vy9XKrOXvtvO0t7pJbf+avCyezwQmonMxheTyeSThdg/Z0IT 427n2+0Z8Y4Zrb/zRp+zbxH8p8mh49QLTnoWNO6PBbQE9YyQN46pxzu/qfbV 8EIJklN/mgo4baYao7X/qj8c/2mNMh54ajEauNJDPScNOisqIVkNDR7O7gT1 I+HtEsYO7dHR4oqK2tt3N2Y+bs6YcvdcSdGjFmgCiYH02g3657k/JZHwdVLy ADvhipaRZJLbOTHL+WvB+HppjYH/HPG8ZcFyF0abWk2iriBR2PjSIRvSaEbI 2ZqD7SbuSd/YOuSdilLWtSgLschMOPifnrFLObNLg5nPXJ54yHOfFLnEzchH h7FfuuPINks89trqM298yBVVfMPKSJEBK8MlQkmv9L66UvJUR2ytxO5e6TpK CXlm2mEuY43k6FhMX9swIIXtZPj6u+TDkhao7/riKanvs5Xw9VJ3jqnDE9dD dDzXOh5r7rsZLXRE3U5OXqTOzpjJ8fmcjjQJMuajpjdQcpLcZmysLbd5iO/R QayGR45R32Gbc2ZVewYVSSBJ/4id3vmdgte4s+jtzH4HfQGJy8iqkSKapzA7 a1G3I2vptK1JmGkVi/HZSGQ6eNvj6mstpFNqzfb3r41PpA/DkdgCYp25A7UF fbYGjO/uRuj9A6xV8kh9LuQx52uOyTZ3XQ0tvhT3vRBP/N0Harr9z5A/Q6K0 ioc28NX4xGWHuZa5LpdflHuZeBHzUt5FWpPkd2DqCRkMwUTnamd3bfrDJuT5 wE545qWcN4ideW8ntbVibe544W1fa2QEiWUgsFj02JY3uAasoc+/pFl7wYRY 8ORERl2b58eSZxM6xcJg8y6KX18ucKPJZBJ0deaLoeLJvbQDQOLovc1Hns4a KaICXw4OmbOXqFlHU3GI9ehoO/PgX+knRSPGl54+kEPS80J5Eh5OOE8ywsOm zlEx4zup5Tf2B1eQf4c/8+fHI/T6nymW/5ZtNoXaEGPrhXGJke7tZOBd8nEg feyp1IM/2ejvHBJI9gGMEd4URmdEwr2cS3E0GFqckdIplNphI+o6dWL0u9JJ ccSSrzP7UDT2+CXtQEqDJpC0jcVKxs6QFAupGew7S74e6uPqml3faytQh6zu iOtfr4q/EIlIWJwRsU5CYufRjY4aAzOmIPyvl0NDTbm93DY2J9lFqQ6cYI7R 7lus4Ptrxfhyg1ZlFehtJ6c/saNhIOz4oP8HYSlM1APOUs7I+EiWeJMR4mUi +AcbYxVHu93T5eXGZCVuzZtnzphRCQgJJPsAzlOGdXgTom9m/FlgIBODN/Xc rrZOmOgp+/BHER2URCAJJDxRGDTF4vBgqGRspwRbs2OtlKxl+dXVhmwrK2h1 exvBd3LuZjGlRhmIZ8GBI+TB0PKmveud0TsPxWbGIqLXUOMY126GcCGIRa+N sYXwVnWJQjPGt8KC5HWubqiOfkPBXZuI9fi9yCLqTNuLu49l3+VAt/+JEl8J /vPM1TNMP89ZNzclVQKb3zkPs7xRkECyP2B5SKRlAtD3j47cI8JBsiwMrJOa JkESSPg6pSMpFtg5/7LkBz7vJDHUdPqWtGJOtxc8J3NmvnQgBnml+AM+kfB2 MIIWRwdDz0Ve6kqwvzH353p7iJI+O8NySHAxlUITxve1HILkNdKyidYkkvpa p6Iua/Ydat+WFHMUB5H6wT94nBmmqWDrZno/yQMJJPuD3VTsiwGyArG2sX3o RuRn8fpWm8aoguBJX1f+uajtD2q81yeSQMJbgPBzoDfnIDnmjpdTq0CL0mMj YY1ktyKra/MslLomVA+IDVWjYkaipGG6aBQ89VcEmQUJB6WNbxZZBMlrMosv dNGMvq2EEkXEpaDABpXrCkKrkcrn/G9ODx9AVT4kkADCoJ8FCQdDfcDYirTu OUQTSPic5y9Dg1mHMXbQOVPe8WZ73nMqs4NIzYuuNPTq+NJjEJ+S+NrnfP0p bZGHw+tiL5YR+FA0KbFsFBYkyhpfGrkECZk5P+NsY3TRa/10Tkx1ymb4Uq4C SHYXrhJqhGQ9PIw+VpBAAgghbf7ezp7s9JFfIQXGViSxCkMxkAQSvkvdjY0d zb60AgcQJBFCE0EHZHU8uzSR9Dny9kB07TNaWWwoWVxcEsZNpux5cDPq7nHY ERy9713x3lsQaGUkCxJiMxn5y9hQL+Oz7Y5feeaKpx8ranwZyCdIkFK1HKI6 JzwPDebu9AOXwrJuwvhiYADVCfINj2D4DDV/DAS0AZ2Coqs5qsSL+K3fOywN xqYe58Qj3kJL5lYkvdukEqCHfZ44BZ70defscCUOIFR5ZtaqS+7mUTF2l/3n sqvDukv+ZIytjy/rpgDpM+ONvhbyDiFbwd+R2kMv1xWHQtGI+d6T0B9/y25T LNzWSBMkxNPQpTfZPUzICTXvfRp6UnwnUdD4spBTkBTImqjp8S0JkyR0KRl2 YHhaxpxyjifHgLWPRtdl+g2Q0HP5/ltgP0C8io4eyd4zfP3JtcTevOdE/rnC TnsTJepBSRhbUVnJn7KDPsV8DaOQxInKHEAQyy7gW5WZl1FXS3Z1PF8E4lMy GDu8JUWcjDAESbkpPRLAV+O3LzSxWoo0j0Z5jb4UQZKvy6M/ymT7QzDB1x9M MePLRV5Bkl7a1GAD+u3XHB6ZFjCmB6mANlhdUeSbJzYW7keEurn42V7yv838 yWRugEmHXPVQSgCoz4uIM7fnK79/SgfNshCyf6LN1Xmtm7qgS+N7isma2Fzj csZ5fHsl9n1sWdKJhG4eVX/C84OqdwSS2lHacKDpcw3vBlWLx6GJtWpFBvPN lvMIUGgSBMmrf7mOMKsoGt72L/HecooZ34IfLrMgYWdNCFP1iFvScGQ0+or+ raj+LZUqwab7XtJ3qLSuO8LJf+E8Hk4AoKB3csk9tdSBmRPC6xql+4pzbLfW QA/7PFEYxJfC7LxBBn3qJQbg0O1RZY1KC5KSrf72NkLv5c599W3umHojD5ge EkOnd1GNa+G2gOD9HUULEtaAIcHfvELGtwiyCxI0PSZDbfPYg9JfC1JyzjoC UOKtUrJ2J+7pYA0elb/jUD76rKfTLqAW6OPT7IxovBaWAZXEiBkt7V0Do7ei vPUMqJWXUkChHGgCCU9oqeg4YEqoSP5B0RpYdaN4dLF2KUGSH6unfut7liCR u3i2GEhRbRa+/CLRgoSVBiw0wKeQ8S2G7IIEDUjl4MmTQZ5i1ndI3tgHGgan KrEvZ8YioNQcdn4ne7ws+4VDAgkgBMTBKGEom7pQZkho1xTEpa/xLpqI04Pv R8n3Vk1TdyFEh+6pTNcy0gWRplUq5mO8Ro/h9cPhIhsaNbUtu5+rPRyQnhan riBhVjeQ8MX+RAsSpD9MBkFHYGWMb3EUECTse8DAdwJC4pKMDHZiMzrajFWm 2I1I3u5hTToWnnBbDtkvHBJIAAGIaAeqQTIP7OE+f4LPPbKV8HZl1ymhYZGi sHJjivv8Wdny6Iww0it+sKx0we3wcG5PVbnBV15JFqk2IlKR0awqO+TwxOT0 5hC7+C7PN8G2d2oJElRSZqi3eR+XunixgmTvofsYQ/IIayeihPEthQKC5PWL 8PBR5meUnsFE+5oYbkAywtLQMDBZAYWNDlrKXZIS7pHXufsKEkj2BQSOl+Xe RA7jOksgyZIZ4VRzcvS7Es1pkcbOEls6KwkaWiKNbF+g0AUTL+bcZ01Yk/3U G9x9lao/KnNvX/J35ZIyVHadbcbdv6TmTxeKCNAdFQ453LNip8/wgG8sRr/1 uZ39Xe0WZNY81nji3NAn3qn4OtfPxh4mq5og4QgMvnmbYgUJdxqfoHme8hvf 0ighSBhNobOUch/RdY60GxD/aXLoeE3TyNRy+Xac2Im7mYW+SrlHXufuK0gg qWLw1Xjw+nDXseyDZWyyD7qD8VXxN66Yag6REFvPYlNfXBn6VWtj/hhlsth/ 6yL3cUkPQrHjKf5kynnShB3tuvLXAu+c/q4mnJlBlpj53PUyhkYptCJGu1HK /HH6SBCpR0FXp4ma4fUq38csnx+IJ/x9h8vu/49mCPDNGpabrTm3zZT+Jhr6 /Eu0BiDwtejNvmbqp20Z8ImehVccAl9PP2EX7ebcD401Ws/2DztH3d4vve7R Dwcz9wBmtL7DGtPA8UuoJ0jockthgkGsIGFLL4EtjOQ2vnwoIUiI7fBIPfND eJLB8t5O05mxyfvhyT8P2w5ilre9sReVuKk5hT9KthjC1xai388uVvisAGgE IvXAS27CmLHp7NCV6zevvZ/dNgWPmERAXYuVa+pLbCwEr3SZWXld6M745vAd gRO68++56O9pLBpUyn+i8VjX0B89t4PhSCQSDt72fNxnpY75xpbesUJyRXsr QhNIaizHW4wZKXX6Q89XoZn0oiZ95C9eZ2x9zzeXEVfbycmLVN+JQ3bXnXD4 7vX+FqwCYSk0CYHP2y87BL58/yrZ6brW7Pjg5uR0ZGbK7x5sJ3VmrbnrSnBB QKcHgZ+UevSNe8Ca9YdQHzf1cIU7h51sTzo+1NrAfO64mRvqpQSL9WCIFSTs 1wse/SOv8eVDCUGCthcW/H2mN5lvrg/3dliMdWn5O3g1EFurjAeDql1iX4ym s/oBnZAdQJA+D375YC17VEQz+mxjc2KOY8SPnrbcIYqRElnOFT70DbSwvIOF EOVgz6yRp6gw48EYG6H86+RHmCztnb1Dn3iD0cWU9JOXsitCfVYHewNP8fVH Yf9nVMyAdBFQJUUuTrBgZz1O7mW29GtId9nn9xYr8Fuih31NVEmTjsEbzv4z 1sZa0mVh7x26Mh6cTYqYFsLD9nLE02fJPRGmk87Aj6V/0OywVPq5QydKZx5J 9frvaVaQvJbR+PKjiCDhxsskzWqsCK8S3tPs7Uvh7rhAVUIsBc4fLuAJQarM xOUfok7dCsT4CDz5rdN20CCUxm7fgiChkCnqVKHblfIrQnxWqqeBoT55nvb1 +gd/Hr1+zpxrUm+yfzItbLRHJqUWa3PHye5SSOJN1goJyquQBY7lrekNrJZ4 vZKCREVUEyQqJelxco9V6I4LVCE7Sf95k8Fkc8+xXcDL/i5JM8XQ6ADW5V8u 7/qItXsjTcygdRaTxfoGe9pF9v/p9SV4HdoZZwJ/c6GKo8KK0N1D9TQwdOuu HwlvV68ioXIYcs+Q2LGnmV+TmpHNSduQxdgJRKzlFSlIGHONSXRS16maIFFH nCJdX/IcHgyVUqb7mJfzgWtOrXAtMK++W7oYxOrkQANWcJ41M49OxMw49NEs 92HZ+cHbiQyzNrb2ubzB6MIyHSvZ21p/Eo8Erl90mJF6Bf68+owzQbGc8Dxq rAiZV1u6TlAZ0B5f2p5FWA4MNWLAWj+Jim1dTix4O4w1vYEVduYA7xwiWWG1 aKuwIOEYdvXSd0WhjCDhfoo6ggSdvJlDd/2mFKPQr6YiKrpX+die95zCDEcG gtyADOuWE2440Nq0ujbPj2UcgFNzY7act7u591qwZProbmph0mXP2XrslGe+ hG88c/xUqmSeRpUVoSmRWsg6Q8ey6MTciIWpRoQ5uLhQjW3r3hob7WDuKOo6 DZhTdQx885vECRLmZCgSlZrki2V/CRJWDwFqf9JfvymlIH6aOP+GgHRBRcDe OD/xk0Z/qMxkiuarMe4UJHQwhEGUax1NwCsn/ktszX3ammny0fQ7X1xYqjxt CEqKDXXcI2qtaCPibM7+IJo4xSA9rPTikBfH5ry3B5ntcfh8QGKpNGV/Ghob WQEbdW00J8O2dOK6OEHCmAzF/+baQRlBgvQVzKOCIOH0ENBrvylAQ2QGhxXu 4M0q6RLWLDEDam7KiCrmBjZx22XwgC/4uqkTXMN7ocLGVyX3iForQhJIVG6O mgWdaKOTlEUR7Kain7Qix6GyOrcUyhlQOwuIW4NcsrRfnCDhNCNFGwVrmX2V Q8LuFWOo0pMFoCSU67Xw4Cp0kHcaKrNO1NsK2nxKsLsafJesKxA0dpwN8Wzi fANW9BkhngUHjijuHlFtRUgCibrjY/KgQT2Bba/0AzoGiKS8xraFqipUzwLi JDSWNEaiBAnaMYBarG7O3aoJEhWeIMZUrCyV6zcF7E+2Z5wHscKnLSqbjr7X xFWXozlvUgXJ3g+eE+ldvWByixB2lnw9NUUcO1T/c0z2YVvsT1VtRfROyZOF ohiMDtgazrCSQK4dfQ7shGe+HGtRwABpIAuIXfJZUiOJEiScDvnqL1YgqgmS g72Bnyv+OaUpkMmil8gaoFlS37narL+6/Zi7X1IGTthuU4DyBUm2C3RZvu7M 6LQCKRMvIs4WA/ZLd1zJcI2aKyLW/jHmOFLT2DE4/kAbfZarVpBkataQbbpc l1SBo6gmek+h/f8pSkSRRAgSTjBIE4sVhiKCpFBOqwrzFwpcxtGxWJmerFcP 3Cca2ItDwBqtp+w5sj0qM9S+oRc3GiCFl7GxXyA3wi/GYqLKllFBIi37LrPd lXk4osy0odkZYbgNCGpES9kDWcRSfSsqB0YlRRUJEm7vyjIbvHNLTrTSe4rI jzriXakIQcKq31G+CK4MlBAk3OwdddLUCwiS8hdbIC9FIHUt7ocgSKqWV/9y HaHvDPE+5/K7TLyMulqw5tFoWYejjFOCFWDNaC3l/cDVt6KyqGSnGu2w82Cs mWkuys0+5TgitPNDZ9KWaIr7UQULErbIKZzeplWUECRoNnjuS1Kj2FYWQfIa T608TWZJxKORSOQfocAX1wZtJgMbzNJ3xTdJThaLLSSTz1Pc6dhAlUBshi8h 5b4SfM6aaXtF9bdk9LXemBpswHLtuHVItayoGgUJPW2W30YLfcuEz8HcjPOT l9WHwBPjDlQ/FBvBIFSQbERdJ9DiJPPQ39Y0slYhKCFIuN0/1ElT566VnrBc cQqUGLe5ooomAALq8Tw0iJTd1fT6n4k1F6ggUXe+PDUBhO7alMkLbej0JXS0 zzGpjhWhk/6qRpBwvRlld9JGhklldv0Tnh+0VJG0+ciDujTqmp33C0xHFiRI iJ1HNzqEyBvNooAg4ZpmlZxIBVKb5JtlwJ2boPrwC0ApiNVAH7IH1vYFeNqV F6ASVTaVgerglJ+LmqlzKdrKQxdUx4qqMqmVM/+u5q1AWSaVk0Ai5XQgM6w5 CFibc4azYQgRJFtzbtQxj1lHpldEbjy7qcR3gVs+n9ftIgd2XOzvctjtHe2n r8eU8SnJL0i4MkC1zDG2VJZRkOyy5ybopxIcKBdW+xFpAWt0Z1ZXkOwu+89h WS+NWr3iK0t1rKgaBQnXHpU7yJjpq9TqD01sfH+1A5lb3fDWrQSz/pNXkLDa 7BsOOdyz4svBOIIwg2KnadkFCTdlWnIPgbJht4upRJVNYbhDc2CE376B1X7k 8EcRKUmYaKdWlSeVUJvE0eHwi+z2rpVGHNKpihWhgqRaOrVyGkSUGVVn+SpV mAIpGCI163YgfhLTWXf0OS0ySwoSIvXQN9CCzJA82u2RoEbId8JTz6l8yPno +IA5960pd5qWW5BwUqYLTkRVCjJLn7FYuYp9OIOTynU8qgJM+5VCee1H8qCC RIWmPSiUk5M0eZlO+LqqjS1MVayoUtOOtATb7DZ0+ZfKeLtsH7z8w6hN90ge Yutx0HmSDrpgzX2e+8ktykIVEyTEZvL+jQEr7dbAzP/XPfNz2e4yYjs8Up99 SwVP0/IKkow7FEU990jmehi1DwZuO4LKkOneiVKu41ENYNqvFFjtRyS3UNDS +ZfcDNPX8Ija3g/1BZ7q7l5mUw0rQiVrxtujf9hmt8UVLeMYwjoO6yPDc2dt 7rbTcSRvPzCz46LbH566wkz2PTLo/z4SuH7RTr/SYGzpHftrycnXwkGyi5U8 TcsqSPBHXgcakMJM3b6EurWumcGsNLXNYw8q7sKrkgQSmPYrAVb7kQ5vgcqN vUdfnm550/PvkrcE2r0HKz2ZXHZIM4Ed+oPHrcvkz0JUw4p+DvTmsw6k6V4C X38U9n/m7O9qt5gMRoutd8R9J7pMb9G7uMLbNVuQlFPwjj8LDCDmp7HbtyDg vbYSgeFWY53Z8enMGs8zR2w9iXz9l1tfzy5X/FsiNpORr9zDXU1GIRtwbWN7 v8s7VSEpkrkAJO6s5GlaRkHCuh8MBlOvL1FOw72KwJ6SIDXEXwIZKtcAfcBy wRWuJN2Lu48J0Ki7UVc+olw3GFIzXkV1/6u1WI5o3uktlCpYEZoRl68YEg7+ c+TGO1bS3jVY+y57J6cjM1P+q/3WtC3uvjGX2knFviADAdjxC1MKuo9YxYnl nM0ZZ0/M1OmdF9BkBhnPzet0Wg0PN2ce8/LiSiWvZ2v18dzfA+Nu16CdmQRg tPaOuNxfBEL/+mFFhhwIuuGnsqdpuQQJgSd83SbU8h/u8ye04HLnDEo4fD5Q 0QAyt9OgGm1pATUQ0n4ko1etrihfnuqyvyt/n8pXny4EepcQcNm6oApWhG7d 4jxoBJ68N2qn1K6pc3R6CblHd1OP/n9vQ6353U8u24wqiGF2EzPJHpLU3JiN 3uWFnoXR1i58Tie6ZrPe5n0su2YTNVyvXNBaaWW72sojSIiN+85mVOnWt45G tDGR6jUn0yktST4Ib1RKA3LTZtRpSwuoALOuvKbbXyBfKjPiU0ivSNJFkttT 1U2gyUujqumlUwUrQvQq1uVfFvpnaTVyd6iJ2pxNZ91zLzh34e5q8F3Es13X 5vlRwd2LVZUpbRo7sTX3aSv9LpbfBgVuwEgPz/qR8HaJP0JNdnmJLgJRVJAg Tn6FT9OVFyQEvnz/Klq+ZKhrGrqb1FSbdHzB193IuMKRexXpr0ukIqOt9cwv lDU1A6hWWC2YDnT7n3DuqewgFWGZS2iSgKrd47ObYRXdyfpfERLRE+FUJ5a/ vZBRIyU8w4w8KHnS/ktcIWMUS2N/cEX0OzCOwybb1ajQszDSw5MxWaAASImT MiZbSUGC+KmUPk1XWJDspuK+gSbUN9LQOjKpLTVCgTyYGaS1kWG+J6uQXKUn GlAJRqOqwvGazCwtoc0Q0GQkVVuRZDfDMoeuagndryjT202k1aY7gmIN5yeK lzu+CA/nIo8q9CvI52ZQ1l5kl2PmJizuLIz08OTzC6GhJZt3UQH7pqQgoT29 iit27rBaqV8vkXoUvNJjRrMzsOY+7wPNRGpYcLNcDtlH70nVTnRYFmsavjvh pOdDQQLJfoEpSArEAjKeZOFZlKjLRZE4dRGypxb9Rjc46H9FiGbAuoV5z5CZ Kdgv3fHi9yBqbdXoV0A8mzifT/MrfamsP0zNerqP5v5SrGceTSDhmx5Fm2yF cj45ngP5WgEQ2xFnzjOr8Gl6dyP0PrMvB2/sjAueWox+7R6wMgqUMGPre765 5xXyMstUnoaEU3OXbbI5J+Kroi6bLP4av9BKLh8z2T+ZTm6jNVN8rj+gakAL dQv97luzY6314pohIOeF2v6gSo62zEat4+gGB/2vCC2xESar0GR+nkZwdKmL Wv0K8OWpkaacPamx/elBivcq9rYSk05bPsQp4XSJJJDwnCJRk61MBSWnONSA NQxMip+QJQROAgmxmZy963EOnLU2YobaRuuZAdf4lEgrWQBia/0p1RQ2+WQh 9s9IeNI31m8tUOZsbB3yTkViC8kSLMQiM+Hgf3rGLr3dbma/hbFt4Eauv1z5 yFueRuBrD75Em+6SHGwf/Pzr6GKK536mlNj1i3YzZYWwo11jU4vZVedTWxVO CQPUBKkZ5OiH7KQJ4fl1mXdE7I5cYw542Yg4mxXK3FMI/a+IPqFjB50zAvI+ UYtWMLuJBmmjpF6/AuLFnPtszk2TPuj9MbT4stg1p4+E97M2gsJ00hl8LLoU Fkkg4UucQEy2hILrEtA2mmQxPhuJTAdve1x9rYVaVNaa7e9fG58IzUSY5vo5 n+UqfQ1oAsmXiWcznr5mDDO3vzvmC1LGd6zPglHd6d3/KKsBi+yNNzFjU4/z y+n5irVnUao8jXi5eO+zfit7qBDWeOLc0B89t4PhyD9jC0+yd8hMKHDrptvZ b7fky9MarP3uIEsxEivTI1ZM5cHxgMIgxYZ0HU1a9EZvph9qKXlKaBqJtIqD ssmmOKqaVVtZdL8i9IQurCpzc3r4QD4IUnrY+vaC52T2leoOvCA25u+MtOZl BnbE8aFn4t6DheTTldQONXJlYe7eVzdc55FjdYN14M+RZSmPCZJAwus6Q7LN Kxv1q4yNLu/GRqJR5rN9Z811JpszML+B7Fuvlqd+T/mvxCQMy7VYFrWNVnvv 4MduXzDyw3JF+7MoXp6Gr8anbjq7jwn/krBGW/+ob3p+rfDPjz+LfjOzqNrg HkAN6Jmb1Pnl5vUrQ2fJdotS86moLmoZeA62MpG9AJ007heC/leElHgcuBTm 7+vI7NfHY0OROVzq59jsbZGTWtr492TyCM85FYoATSDha4lGh7QEuqcEo74g QbWugczDGfTPc+NlRMLXSdle7IQrui9KNtQrT9vbWvkxEvS5Lw/1Ot60MENa WKP1lKN38LJ7PHAvWmEBBlQLaWUbdA/am7Jbi/FY1/B16Vtlpm8JhRppJDkX jR6HMRVG/yuibwnswPC0AA8sOoaPz4Yic7jKnLRbOdKyZPYbnzubQ0hjsrR3 9Tup03C53UqRBBI+vxAS0lJ56qUMoC7ZEu1tdxa9ndlNSWQZlC7RR3kaACiA ek2KXtMjLVTuXV9B9L8iJLjQ4owImam35O/K+5J5aoQRj1z1WdviIAkkfEoV T/q6c8dUlaKo8oEWWJkvhopP86F9OdVveXVTngYACkAkvB2YIGtS+Y/OpulW T262/leECNTmqzEB81kY1pbHhla1tS0OovF4B1kiIS3V8sxlA0kgOeL6V4lM IyS4pGqLJPnRVXkaAMgP8TTQd0gNB2m+kLlapttXwYroUVnGDq+wQxiamVB3 IVS0WuU1w9oyDDOBLz+8H1vWa9IND2gCCZ/mRwY6MJ1s2yux72OS8mm1A9L+ t3SBFdriQMbZghpAb+VpACA7yIAkoV1eK8J6eNhCnRorWtuoJnpfEXInCG9o gw5FKp2nivhSmAlLZIqFmIk5+gJJIOHzCyG+FKYhJr+6eh13tiERXmCFvFLG Fm0aQI/laQAgN/m0dkN9mzumkCLJmyf1qy0qhN5XlBk9QOkFYeOQMiz67DkX ScnJIMSi15Z9HbMzcDVY2+KgIS0epVp0HDAlVPQ+JQQpZ+ZJgUA8adWca6Tf 8jQAkBXkaHz4owh/pWclPjJ3GNRMtUW56H1F9OA503l/UrgsRapsSggSYj06 2p47DTK6xlGZrlZXtDpTBRCnB1/eeKbZcgZG8IvKvRFUgq1hhKdAMLKS9Nxg kAe9l6cBgGzQp+OGTl9C/o0vfxismhOQ3lf0IuJskeQly8yYzhxnnZHCk0G2 k5MX893amY6CVwnvaYxu9FdloE6PNJ3exSJfLbE642yj20CgQ9+IJ/7ug8JK sLULkgLBk0hDJH2O/BdRzcPaoDwNAIpB4IlxR41iTpJcYJ0ncqojdL0i9Nf/ ILwhMkJNLPp7Mv7kgo6OjBqpP263mbnHfzKNtkG5QKHSoAkkaQ71BQqNIMm0 ssea7Kfe4Pqa9uY9JzCBJdiaBZkfzTOukTG0i6/Nvp6B8jQAKEW+Il7+TBK9 p1tw0fWKaP9Y01BoWcrQriV/XwPG7XZFbCVCYz1m7JDj6v3lzZi7rZ65qW4l fL0mURMh9QXD6FAWtuniZJJhUMhB9q5OE3Z8aPKnV/moWd5lhCf8fYd5CkJ1 wMuoqyUnykpXPqMSTnCplx6B8jQAKM1O3NNB9d4x9foSW/yvl0ousF7p5tjq oecV7W6EP6BsQI156G9rEg3AbiruGyDbX2Mm2/DNyWlyvuq19+3mWszcMxZK UK1Oia34DYcpM7jcNRH+e+DaeUsNaYirdUdFE0hqLMdbqNbcmPn0h56vyKF1 2a+oDhlen49tHbK77oTDd6/3t2CmHu+8rsM1aVIRp4Xr/CkAWnhSxUr1NZSn AQAvBJ7wdVMmo2QT4zLJe2WFzW7TATpeEbFx39lMphtizR/PiA3WsN5q60nk jnu4t4McimG02HpH3He+Z05mJ/C1WODqEDlrHmtsPXfJE16qVjXCTCA52Bt4 iq8/Cvs/y/Wox4yW9q4Bl3cqvs4Ya7uzHv/m+nCvLf0aY5N98PN7xScR6wda kJSc8rS3EXovl1ehYMWfOkB5GgDwgi8Hh6hYf2O3b0EeY5FLL6+ejDXdriif S1ljd/+7Outc1AMZPsKTOFH14ElfF78gofsPVEAeax4oTwMAARAvHlw9RZ7s TF2euBx3e6YjAdYwOKXrxgoIOl1RXnxaBgKL+9leygIyuVKXmUWVhJ7zW7xq FWk+gLU5Z6p+qh6UpwGAMPCfJoeOk5Gbpg+ni8/AkgpV71ZVs8X1uCJiZ97b SYbnDjncsynY1SoNUr7KM7plX5BPDinSFY1IRUazbVgOOTwxGTPYtAOUpwGA QPDFwICFzD90fD6XqqwmwVeiX9/6Jl5FRlB3KyLw5N0hMgcV1IhMoOWr+sss koHc3JaCdfHZ3cawz25IKE8DAMFk/SRyaBJATYhU9KrNtM82f4XZiDibs3pE d5lFMrE15ybvOqyhz79E5/ES+Fr0Zl8zpVVaBnwP99kNCeVpACAYfGl6tNNk qGty3ofcqSph77Hv9KF9ufkrCJJAUtPtl61gTV8Q+PL9q45DaYlmdnxAGt+Z Kb97sJ00tbXmrivBhY39+T1BeRoACGZ7OfrXW6GFfRHV3Q8Qy9Gvvrq3Xzd/ ZUASSKq6u5cE8NV48Iaz/4y1sdaANVrtvUNXxoOzyS34jgAAAACg0tBtOLFT nnm9tcoDAAAAAKAqINb+MeY4UtPYMTj+AOJiAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA gKz8F/jeVh8= "], {{0, 114}, {731, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->Automatic, ImageSizeRaw->{731, 114}, PlotRange->{{0, 731}, {0, 114}}]], "Input",ExpressionUUID->"ebf02131-adbc-400d-a4b0-edb403deaf90"]], \ "Subsection", CellChangeTimes->{ 3.7467908610581846`*^9, {3.7468324242091866`*^9, 3.746832424517336*^9}},ExpressionUUID->"78ebb825-030c-4621-9b13-\ 4621d38cdf95"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{"Gt", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "=", " ", RowBox[{ RowBox[{"I", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]5\[Gamma]", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "ii", "]"}], "[", "bb", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "//", "Simplify"}]}], " ", ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.440895870234375*^9, 3.440895891640625*^9}, { 3.440896510390625*^9, 3.44089655715625*^9}, {3.442671255203125*^9, 3.44267125603125*^9}, {3.44267137046875*^9, 3.4426713811875*^9}, 3.44267142365625*^9, {3.442712951171875*^9, 3.442712951859375*^9}, { 3.44296369284375*^9, 3.442963696734375*^9}, 3.44296768475*^9, { 3.443374517453125*^9, 3.44337452140625*^9}, 3.443397833125*^9, { 3.45504301590625*^9, 3.455043130828125*^9}, {3.4550527984375*^9, 3.455052814484375*^9}, {3.5067782137090287`*^9, 3.506778214466072*^9}, { 3.506779064525693*^9, 3.506779068082896*^9}, {3.506779121543954*^9, 3.506779124996152*^9}, {3.511641116247309*^9, 3.511641117295369*^9}, { 3.511641238366294*^9, 3.5116412632227154`*^9}, {3.519945652604292*^9, 3.519945656025487*^9}, 3.5206470576621337`*^9, {3.536753629485641*^9, 3.5367536355419874`*^9}, {3.5367542796588287`*^9, 3.536754394482396*^9}, { 3.5451480077289762`*^9, 3.5451480136813164`*^9}, {3.5451480836983213`*^9, 3.5451481475869756`*^9}, {3.5451482301356974`*^9, 3.545148230279705*^9}, { 3.54514835065559*^9, 3.545148351119617*^9}, {3.5517190084457397`*^9, 3.5517190462919044`*^9}, {3.5517253476257124`*^9, 3.551725350072852*^9}, { 3.552315878168127*^9, 3.552315880549264*^9}, {3.5594364063879995`*^9, 3.559436470154647*^9}, 3.559498758930711*^9, {3.7095734439172153`*^9, 3.7095734562269197`*^9}, {3.7095736865240917`*^9, 3.7095736900622945`*^9}, {3.710786317142681*^9, 3.7107863175327034`*^9}, { 3.71171717351058*^9, 3.711717180665989*^9}, {3.711717560179696*^9, 3.7117175669990864`*^9}, {3.7118545714168224`*^9, 3.711854584457568*^9}, { 3.7119033420472937`*^9, 3.7119033423323107`*^9}, 3.7119033814345465`*^9, 3.7120954622856226`*^9, {3.712095557947094*^9, 3.7120955854366665`*^9}, { 3.737162821795579*^9, 3.737162839969626*^9}, {3.73780794558059*^9, 3.7378079860629053`*^9}, 3.7379793854587083`*^9, {3.7385815933232975`*^9, 3.7385816487654686`*^9}, {3.738581823928488*^9, 3.7385818265056353`*^9}, { 3.746791040438759*^9, 3.746791071688319*^9}, {3.746791171144439*^9, 3.746791205624802*^9}, {3.746791269817828*^9, 3.746791296817684*^9}, { 3.7467913572329483`*^9, 3.7467913929364586`*^9}, {3.7467914248141994`*^9, 3.7467915012213964`*^9}, {3.7467915468503184`*^9, 3.7467916019331903`*^9}, 3.746807033746698*^9, {3.746833158416533*^9, 3.7468331856485023`*^9}}, CellLabel->"In[86]:=",ExpressionUUID->"e75179ba-372c-4a4b-91cf-1ca8844311b9"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "2", "]"}], "[", RowBox[{"G", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.7467913000660734`*^9, 3.74679130814038*^9}, { 3.746791532816335*^9, 3.746791533334661*^9}, {3.746791579057716*^9, 3.746791587805388*^9}, 3.746807034420087*^9}, CellLabel->"In[87]:=",ExpressionUUID->"560e53cb-cd78-4d26-b8d9-5ac4179da170"], Cell[BoxData[ RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output", CellChangeTimes->{3.760467953977292*^9, 3.7604682416500463`*^9, 3.760470340272522*^9}, CellLabel->"Out[87]=",ExpressionUUID->"4af9bd7e-32d4-4c4a-8207-0c1c089397db"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnW9MG2eex627N/diXhwveYHEybLkF5GiCFm6RGgFL4gSWTLVVsiiqRBE yUHUy5q0F9isglM1kNXW1SagTaCnjHZrZVVnr6Ps1a3ibnFbnBXmirvrKFip s8GVCTiBBAhykAk2w+EZ/3nG+M/M+BnPjP37SInayB7PM3+e7/P8/v7bScvP /+OfNBrNe/+y99fPewZb332358Kb/7r3Px2/eO9M7y9Onzr+i/863Xv63X8/ +c97//jO3h/93ueT/70LAAAAAAAAAAAAAAAAALiIr4V8XztuvH/W1ERoWHQt 5rPWG3+aCizHaNHH3VqZ/e+e9itTK3GMJwsAAAComPiyn/qor1WnKUi9odtG +RYFqw/9MuA437InY4RxZPq5eO0CAAAAqoTttTnKatIXVhwUvXHgD97IFr8j 0/E1/6f9bcmtk65nbHoJdjsAAAC1TmYzwkIYOgau3brrmfU9CMz9bdbz5a3R gY6m+lzx0Z2w3X24Hi+6d6E3Qu4bvQbmu7rT5NxL2OkAAADUOvTLOfJ0yrKm bR8gJwPP81jR6Niij7pi1hFc7ak3dF+7G1zNs4WhNyM+ytZ9hP0C0forKgii AwAAUPPEn0xajxOs6Wzwj76V4qYzOr4ya2ctZjnq0/XBTWrS6/MHAn6fd5Ii P7QYMyY7Qmv6jZuvUQ4AAACoXjKiozthc/0jynM3Qm/Mu651G/aZ3fJCHOm+ 9tV8NCHtQAAAAADls/MTdfIQsxn59VfhV4LD06KPvyEHjdp9Wx9O7AHpzmuC AyrHTixy/xvnlx64EQAAyE8sTL3XPkgFy9iMJJ0+X/zeNnDKmIk60LaYLSM3 qW/vRzbBmyM3iTXvVRO7NiDeHJ97Jff5AACgBDAtR+Nr896v7ri+D9eURas2 R82fnUf2NxrT209tF7Ug9wkBQA0QfzY7cUpHvG2fV6ZTG9NyNBsboKl7yxHe wXqOiqU2Ry2IxIPx5rqU7NSdoZa25T4hAKhq6NjzwJc280HmlWux+aJyn1A+ 8CxH6U3vlQMZp0rde67VWlj81+aohbIVcX9kbtI2dVhv+Z6BfwcA8EPH1p+G g37vpOP6UNcRxOGtVN3BsxxNrLreSx+F0J+7u1wTbpXaHDUAAEoh7rNpObG7 ho6L18khk9J1B9dyNPYjNdiuJQzm4T+XEySgMmpz1AAAKINEyHXVZhslP6Wc bq//USS6N4XHI1Sv4nUHAAAAqBpAdwAAAIBKAroDAACgUuh45K/jvc11vc4V uU9FCGXrTsI/euiAyXoHfAcAAAAVJBGd+0O3jtAQxy9NPVVVxFD5+51o0N6r g5qWgJqg4+tBN3nptLGJIJpMZ6988s1jvmX3cAHNaoGyyIqOdfKJ2m42Djtb ukEA0Xp5EqQHUDqJaJAabG3UmYc/nZye/e5mn35v4m9os81sVEZ6oFktUC5p 0dE09VEhtYnOLjb/Dv18esRIYJMeLMvR7fXglGP0AnsQY1f/8CffhqrfGCjr qJOpYRFsPI9K8ULRK99eatW3Wv8SSXXie+kdbmbSCipQmQ2a1QLlQ8eXnP3M Yql15N6aKpcX+OIK4iGqryn5+rZdnd0oZ6LDsRyNL02PnzEQe2/uDco9Peu5 Y+s6pMG+I6MT8UTZdx3LQVgqM+piJ5CTIYYFXUtHj2XoKkl961/YKHc6pZdc 5w7Xdd56vJ255lGfrYX5ofqj5EMJywhBs1oAB/TGjK2tYe9W15l//2MZBllZ wRnPRq99ZzXU7b1Ruj4qXPxNKXKQ8pejbEUy3amJ2UySKf3aP3aEOYruzOcR XPcKzzTbS0VwLE4rNupi5yCF7qDUN3X8auKLHyIxcfpAb/o+Oky8RQY3kX/7 yWFuZA5OHBr1S7UzhGa1ABaYhVPyZuvOOOY3S39eoeCNo05szF5lt/pmci4m 4gDlL0dZi5+u1x7kjiVCdbGjJPrwzPO7StKdSo662Glk7GyLocDfkg1Vbw51 5M6iyZnXZHVM+YMLxaxsoYBv1uv+X/v4lfMdhpxDEIZT10ruAvKc3qKz70Bd nxMtFkQvO/tShYQOWlzP8F6PFNCsFsBDLExZmNWLrtMeVHP5Wtz5O/Sqd+Qo 8x6022ZXhc4LZS9HE2uey4Z8TlU6ZG/HOMzUQTnujIXgfZ9v2v25fbTflE+O mHnjdtKw4guEkAn2RVTs3jBNZUct8Nw2PB8cyLkSjSPeLUFDjkcX/F/lts+r N/ROeBYEdOJjJKZpwP0cPfKy05KSnTqLc1kCaYZmtQAe6O15Rw+ziiPayeC2 qve1+PNG09Y24Y6e8pejm9/bDjcYrN/t87XRrzyXGlLD7CCDYrZiAqDX/WMd 3PUqoe93LpWrLwVQyKgLsepKz+xpzI4FMVeCjq8/vGs7wYkDE+BDZ0qk5lTk pkOOztQaIefBwwM0qwVwkXagazTHbL6Xcp9NmUhRr2B7iTrDzDQNbaM/8DdB lr0cZX43f8HqzcB4euHfcMkjeAIQzD4LnHTdxBQ06vzst0Z2URHxh9uKTF/v Qm13xPEh5yM++wh6PXjPt4Cq706QPJo6yoE+56IEFwia1QJYiC+7BhmjaqV8 tdIiTZ2c2P1xUyNzkbhGs2KUvxxdoLr0h23f5/k9+h/29oa0fLlW+Q9ELPSC w8yZapuHvRItURQ06vxg1p3ddMRjQ/aAIlPnov5RY+oI9eehMxGgXJI2jbpq 2ezsSlafLbPl0dT1UEv81Lns5ehObP35et5Ip6ypp6Hd/o9KLBYyDn381zYH JY06L/h1ZxfJm8tKj+BSIdl3WVM/4N4o95QAQCLETKfKRrK6oNmX+uiIV2iA AQuu5Sjq5jg26pc6N5ChcrpTCDlGnRdJdGc3FU2BHlZYZCnaiTXHugsASiI7 lzYPeV7IfTZYkK4e9da8/e1UWsEb9nkR+RbYlqOIm6P+gntDwtTALPLrjhyj zotUupMMnpy1taNOd8L08RzfTLoXnqHm1NcOXPGCnwRQKIlV1/mUY+/wR74q eVAl7INAL1E9Kd0QYZPEtxxF3BxEN8XXJbfpJ890dyF0W96/4bjHt+aMaN1J ZgL+edxq4fx2V/c79rnX/E48fRxRo5YC6XQHCZ7M7Hn45jVsuAdSLzNxYHha vQl4QJWz88j+RiO7fJS2nkZFkbL/DhMXnVpx97sE2trwLUezbg4hN25n0fO7 X3a15BZv5FtzRpzu0E89V97Mzf1JVqh7/2PPorBHTtyopUBK3UFN3ynyh/bl nlM2TlJjHPUjt4beCM34aqCOH6AKMiVHNHKmQuBH0r5vOxvuC+lF5UlHWMiC HdtyFHVztNl8As118dXg55dac1Jx2sb8JXVQjO5kQiWzP6Uz/9YtPO+j3FHj RVrd2XtUpob06B2qOzwyXaKUH7Ii0hwZ87/OfpoJ5pcu+BAABPHSZzuWelCP ksFq2e1I3m80u+pufMP+iPdlw7gcLd/NkalNkUHb6QiV0AIRuvP676NHuAmW +vPOJXGVTxTj3NmVXnd2173DLVy5LrHIocOOTiLvY8k8eDnB/AAgF5vTwwfY J7WuefxBFT2UEusOurDkr9cYl6NY3BxIhAPfsQjWHXrLZzvI+UpjOxkQWYJJ Oc6d3QroDuoKTGlt2/iDwpeOyRTLq1B0mOo5oB+agphqQAGgD7bcVgvMSKw7 u1sh+4n08fnaJ3EuR/G4OZCI7hQn7KGiOxHBuhMLkh2cbwi1TKIox7mzWwHd Qa2yaYr5BDOVZjWadjuycaU3/WNtRHXk5QFVALKRl91qgRmpdQfN/eRhnkqC cTmKy82BOKpSlAqxE6w7z1wW7nZHvDlXSc6d3YroTrZ4bPaCD3vXC3w6K/Fa my9b5WA7aO/U6wcnxSWbAQBmEg/Gm9MToexWC8xIrju7W97h9JTAr/QixuUo 4uYoz2iPqCdLo9nxU7GhCNWdnYfkUY6ylZGyhG3UeKiA7mSaNGWpOzL69wLb xWyMUOOwN7VrZapG17WOTK0ovMRmIi5RdVlAYSDF5KvMubP3uoWd/Yczc6lp zCe8nXRJlpy96SgtXrtFfMtRxM3BlTDh5OoI99xKf76U7uwvJFr8+EXAOGos VEJ30OVTmiIbxkzCqe7U+OSMd/KPw+aDRMt5R0CapmnltZSlY8uBqdujg0hd UCa0fvyOT2z/O0D5IGafitbToOPRF5j70SdCrqu2NB8OoxVu0w+0tqXTMvTr zIdsdl8hawVvUM9F+3igZEw0vuVo1s1R9oLhlWeogXOlMOtObrOAMvwyGEeN hUroDr3lHWnM0R3irHOl8OjpjdA3nwxbOlu0DU3G00MTrsCaJH206Oh9e18z Ic5qSr9a8Ez0FuzCQ2hNI1/MC2j/DqgHdAtfyptcFsnmVm7Hdaula58c8Gfv UbR5Ck3O7Aygbeno4sHbxiYCyxSBOkdKmadY8CxHUTfH4SFPefWYhe5HhOpO 7udF903AOmosVEJ3dhOB8RxDm3yt7hBS9oSmPiokePcaX5zKaTaUF52FCldN OiGQBrVaSNTEhNskvWz0vc4l/CdZBqhzpGHIw6tCJYblKFY3h2p0R2HOnd0K 6c5+Q6iUPY94sh1xntNpGlpH7u1ryVeKbGvs0tR13w6D06fKQA0s+DNGC/VS LwduoqUSQI1IFfM44HVz7Js8S3S0kUt3lObc2ZVRd2Q2M9Krk4N6QnDX3eQ3 n05dQkRHa+ofdUz6ggtJQzodjy6H5jzU6Dst2U8UCd4DVAkSVKAhep0rOI+9 r3NiuRDalm7r7QcSxAaUBzrzNI54typyfnjdHEInT4G6s69PnFhPotKcO7sy 6k4ZsRkYiM6NmwlNq9WzIvBxR+pjEG0W8t5C/uCBnVj4rjXd/E7B/YNezbtu 2pTCTde8fA1BhIC+NDgfY/rlnP2sgaM5emP/NcfkTCAUYdp4xaPPF4K+rz/9 8CT3Y4fPuVTX+WeB6spcxV4qUoHJACkejmcDiA4Bv+7sm5vF+SawjxoHldGd /b8iq+4whTVEdOmitx/f6mRWDkTL+U/9L4qePx1fcvaztelk7GNenHz3RUZk XYrwB43PxNe0cU90yNOIx7De0HtjMrha4IJsr/lJTmtF9XVheO4eaEqfPT5v L/0y6PxtX6tea/zV7ZyQg3jQbk43yMbToQ8dAsOhUX+R7YQw3UGDAVh6HAsF /FkVHTUOalF3NoPkW4SI9h/xx47uZNIB37Ln2XLckoY8lQH95O65n2H1I5QB 8bNzd58o5LUoCuKlxeam3FpynkfKDh/qGrsXKeEWTGzMXkWcQHyaPisKJBUU Wyz6TtT760y7Sa4JFCnsXNdF/ohF5tAngaH4ClOY7mwvOHr4HbzCo8ZBZXQH SU/OIJvuMOUciU5HWNhbmr6DhosuXqLDkKoRpIDgPQAb6ISJJSo1EfVfN2UV 5FA3eZ+XO4Z+6uo/lPkav8R/5YBWacMl35wUdcS+TcfDVF9qe3i43xnGNPPs L5VTdIUpTHf2pdubHQv572+FR42DmvPvsNZO4YtDtvws0THmXxfyRTYvG3Sn msBsIKLX7o20ZgwqdYbBu6V2OtmvckwxijXn5gc1V+KqVPnKP5ruTKHrtQfZ W7O95v+kj82zI44POR9hDLFAqpWyFN24CdIdNAiNeTAKhwRUetQYkE13ZKqJ ylZTF1zIkbWY6czknMBsHHZtDLpTTaDe5LLvLL3qHUGqfBkue9YEBBxxQ57U 1XuOU8YE0yqU3p539CRX+HrT8GfTvlmvm7p5uZuJwdC1WibcIdx53Lkl1IpU ABOoO7nFCoqExVZ81OUjm+4ctLieYf+dkrARBYIDzJjNDmH6eC4m9Aay9UBA d6oJjLrDlrXMvBRHBt0CTWUrzl4kYl9Vj5kUurObDCWN+O6MXejtaNEma1YZ 3+4dtJFO7/yaNNaVfa0KiuRzCdCdfRa8En29KzzqsqmI7uQLK+BTlAk77N0U 6sRMrLov6jVHR7wiimGz+x2lxhUAYkB1p3CIER+SNfyz0QR1nbcebwt8xDir YnXpDsdIqJJQxjzQS1QPZ2NSeNcpQHdyIuXqDtu+r/x0KSGV0J393je5Wpas eoYOa+oszmUhzzgzOYgNQWSeH5UZ3oHi4Eo8yda6ZBC+2dnNmcrUpTuSpUFV GHrZPYjcxiKmNt66k6tl5bR7UyaV0B00cCV9IWVpWcL2TBFW2ITeDky0aZqH PC/E/CLTHr3q+rPUOLh054VnCAlYEpWAk/CPZgPaQHfkgY6Hb3ejMqG/6M5b A42v7mz4R99AohXqDNbvBNfyUjiV0B1ml8GBZ5NB3DDG8GwddV4w3Wy5/dx5 wy5oFdBVFsAJqjtlmIs5fXiL+qMLklhxnkUmKHWZc9FeEqrWnT02H9vRDUpD m20mjy+fl+5kk9NLqJiqqYDuIJ0ZU8i0bWTKYvMrup4hmeyj5fZz589Ln+2Y 2qKMgJJgiSvIMT6LK2DCTfFQWbttieIKZGL7kaMH2XoS7bbZfe5gProTmyPN SNUKwjgy/bzK9jpJpNcdtIgii1zlGpixCoqjoze9Vw6IXUamSo++YZ9X0WQA lAbplSled7hGgBLRSgXgBvGqzZxbXbqT7NLww0Tnwew91b93J8x165bUndxC 97wziFWH5LrzOuw4ya3EIsp/igNmrIIyo5moAJGF7lkjrb6HElgXAVA6aL0C sbrDlYwS9fMLwE1aVJ05F9Ud2bui4IGO3ie7kV2P7jSJVnEsqjt09CE1eCx7 P4nmPnuVis6u9Lqz/WC8jRPLJioLBg/MWIW8nkkLvLjK4XRs7uNk5ROlV2uE etQiQHVHbBoax7kjrrhofNmJZhaqzpwrRZk7+aFjP7nRjpBEW799JtXyvpDu 0JuRmVuDxmxEPWH4T3L2mdo3gMWQVnfoTd9H3JAC2TY7u+m2p7wrs7EWeDEF uOiNGVtbgwqq00M9ajHgWKhzpiBRRd64uT8qNOei8t087BVYpFfRbK/NfY72 iiUM3ZdJp3fqBjfF9MiQ8wef65PLXUhXWe0xy/jXwfUyksJUgaS6ky7gnLn8 uj5Kzuab7CKTeIsM8olBYoxsItrCxkNUX5P8g+UD1KMWAxoSQBSvfF8Qju6I 2apwjWxyLufE8sxlOVjOFVA6yU7lX5LDva1aPm9YfVPHwKhjqvoVh0VC3UFK cLPoLFRY1qdrb4nYvbcDJvSDk6VLDzBlqwU7dzKeQd0Zx3xVZRgDGdCsmYYh jxjjIEd3RCQBMeH9GcVuJ4NCCx3IDlr3kjjrXKm6UOE0dGz1p7m/um6To0Nd 3G49WqNlZJT8k8vz90fPZfI9yIVUuoOW4GZRQiHuTEOckifDRrIJm1UQz2DL L92qii0CBIFWRRP3vqBHEF7Ogg2VTH9fXAUnuUFnHpGbRrUhsN9oNSON7qQd HBkaTWM+JcRmZF9Y4rh18klh6dnw2dqEOHx3YuFJm5m1G+jME34lDBaQiuSG Jz3ti3NKcZLahO532LwwFtUmsyPKy21VVr2A7mTArzt0fGVmAg0m1DS0Wv/C u6WI1MTClCUVbUI095H/t5L3xJj6NnzdnfEXc9T7ppQVV1GDBSQC9U2IK5WD 5u8IShBLh0qyj3Db1dkNVW4VEFuluJBRFQK6kwGz7iSiQWqwFd3p6E0jk8qa h+NhZ3/mlSe0pku3fYs51tWdIHmUz5SSdB3etpoyXiwQnRoBrX4vbvZIGXIZ BBRI5zSJk91hKh60wg+uJteKB3QnQ253oSLdVEtARx+7b5wxoC4doq3f8UCB Fic66p9Ai1HsqY/x3Bg1HYxEGZlJzyoFzc47sedBr3NiwIjGTRzqnpjJv3sC qg20hr/AyksZtgNkeyN7iPp+Fx8PDSctUXeanHup2qcNqfBD9JVRW1VN7Fvj V0/WkkASG54PDmi4NI54twQ9zvHogv8rctDICRfc20e8T829wNJDML7+2Ov8 vW2gt6NFp9G2mC0j5Bd+ZIZPxAXP9nR87QdOZnGK+ibTO0PXbANGZkLoIAOs EO0JzfpyZCHo97o/t//O2ns0N+tFd8I2tVgTLw/AgizYBLcRTJFY81w2pF6X 0rH9qOgQhrN2FYsON5hNZD0Q1bEZJN/iRlTzC6zFgBRTKP8fj60/jTAshgJ/ 83knqfEBY57Ycq3J6pjyBUKRIoQCyW6q/2sfv3K+w5B7CG374K10im6ZxJ/5 bl1gTlJv7L/mmJz2zU4l9xnaBkPfrbnodjTwp2SeL3H80tRTwdqTk1kskoaW frtvRUV1gAEcoDNn83hAnH+CXvePdbCvD2G67o8WOsr22txnafM1oTNfnYqo /HnLlmsgDtpmVT4YLtlpNslC8L7PN723Wh3tN+VL0a43dH1w8/Zdz6yPO+O+ iOISAimnUH4nIHVyOqFtPWP7bHoeT+oTHY/cG+tiFni6nrHpJWQ3kYg+/h+L vt5w8fo1c2pIItModrdW/HfQzGJh4zVeuDWT6xsCagPUxVNGA4L44lRq8ZPX RBCPhr+nbCdTa7vkim5W/bZcestnS4dltAx71+U+H6zgmWbL6euUoTJTaCkk 0Z36JmOXZegqSbl9j1bwzcB7V+wvVnaBl9+OzfaeziCuwlXm1zYjvi8mLnY2 8ZQfwtAxMHZnNoxtTQKokHTwyR4H+pyLZTx+G/Oua92G+tQL1fHu8Cjp+Mw+ bhs6a0o/klpT/9if/VWyrUYqs4krxK1klKI7lZ1CqwJ65dtLKatC4RJnqVBn ljabT5SJPed3YytBpzWnR10KbUtHt2XoGkl941+IgicH4NSUFuviyULHIvfd jtHBU8amTMFQQtvSabFed7ir65HLXjfiwPA0FPWQArmmUBWT7aBE6M/dLVx2 CgmJEVFFLT/xCNWXWmGm4vrisVgVvfIAThBTm8p6rskJ0pDrmM1XTeVAFYOc U6hKQTrGFg/ySRVbY2i342mbTS86+1LxfQLbYQO1CFKcs2aSUMoFEeu2iYDq ysqpAFmnUHWCFp4q0Zb0lWcoFU+EL985Gxyr73UuYTkkUM3QT139qdhmnjk4 tU62IZe201HLU51UyDyFqhI0xL2Er5ZtpsMaMMW0L8kDWt/+2KhfFT3IAHlB OkzVnaGWaqOIvXiQy6W/6K5pw45EyDuFqhO29UBqh3jSEX5d+KNbIfsJ3JZJ puEOWDsBQWT7rzW2kwEQnmLQy+7BI+zusG38AVwr/Mg8haoRtGJVySxmRCNw 5Tujt0x0JiBQcyBreKW3NZcZeolKOR5055wRkB3syD2FqhK033qpLOatWdvB lEZgCgBAc9kwhMUCNUR2Ga/vofg1Ua9FMu0bYGMoEfJOoSplydmbSWMqER2E pOwdtLie4fh1tIEjpFABgqDj4dvddbDlKQJ6iX7jVWfvBsUj7xSqTjidsIoX HkGybMopUVLw12vbywaIIRO8Cov5fGS3hK1WzwoIsyTIO4WqFLS+RInOv4hl ktOqgI6vPJwJrIjI80TUf48exwLMHIBAtoP2TiYbQsVtcSQiseH9DeMCU213 VFUg6xSqVtDewcX9XIiscx0xyR6OonrmojUexXYuBmodOh6m+nREqSTxmiPT 9V693VHVgZxTqHpZoLrSal205ym94DCnPsdtuZW8mI1HyYeCQzPokKMzW8uv xi47gJH4itvKtNRp6qNCsHhJQq/O2tqTs2FdF/ljrbbXrBDyTaEqBgnGKHLR kJYlOdmdjK3MOOoX/GzTEao7W4m6xlN3gfKgXz6YeDu5lNT12oMwzWaEuGXQ tQBCLDGyTaFqhn7tH2Ndj5qDNl/+nqdbkcnLrRmNIM46VzIS8TrsOEkcGfO/ Fmzg4Dp3oFYhUB7xJ5PW40lzW+uH02u1vISht+cdPUnD46Fu8r4C+91XHbJN oeqGXnCeYb1deTWXvWKNx7vMhv2+s2TdJ73IUKL4E/fIm8kNqrZ98PYDeEGA cokvuAZbkr1Bu/8wV7CLaHWT6f8ColNB5JpC1Q0dX3L2J4vaEboexzxSq5aO hT3jZwzEoe6JmZXNANneyFy1TARgLExZdFDxCVAOqV1PjUoPHfVPmHUgOhUH plBxJKJBimklT+jMw59OTvu8k9TND7oM9YThzLgnzLQ0pWPBW91M4JCua/Su 96+um+da6o5bJ5+AARlQEPGl6bEenaah1TZTUxbz3Z2fqJOHNMSxQeohiE7F gSlUJHRs0fcFOWzpbNESGm2L2TJCfvFDJIYGWdDxtYBrwnra2EQQTaazV+ze pVq+YoBS2Vrxf33HE6qtfB56xf/ll/dCG6A5cgFTKAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAICd/wfI5u45 "], {{0, 107}, {552, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->Automatic, ImageSizeRaw->{552, 107}, PlotRange->{{0, 552}, {0, 107}}]], "Input",ExpressionUUID->"66e4f6a1-ae3e-43a8-a893-20755bd4559a"]], \ "Subsection", CellChangeTimes->{ 3.7467908910396624`*^9, {3.7468324454768667`*^9, 3.7468324463204355`*^9}},ExpressionUUID->"152d1ffe-fcb8-4553-9ece-\ 7509e0f4acfb"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{"\[CurlyPhi]", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "=", " ", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "jj", "]"}], "[", "aa", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}]}], "]"}], "//", "Simplify"}]}], " ", ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.440895870234375*^9, 3.440895891640625*^9}, { 3.440896510390625*^9, 3.44089655715625*^9}, {3.442671255203125*^9, 3.44267125603125*^9}, {3.44267137046875*^9, 3.4426713811875*^9}, 3.44267142365625*^9, {3.442712951171875*^9, 3.442712951859375*^9}, { 3.44296369284375*^9, 3.442963696734375*^9}, 3.44296768475*^9, { 3.443374517453125*^9, 3.44337452140625*^9}, 3.443397833125*^9, { 3.45504301590625*^9, 3.455043130828125*^9}, {3.4550527984375*^9, 3.455052814484375*^9}, {3.5067782137090287`*^9, 3.506778214466072*^9}, { 3.506779064525693*^9, 3.506779068082896*^9}, {3.506779121543954*^9, 3.506779124996152*^9}, {3.511641116247309*^9, 3.511641117295369*^9}, { 3.511641238366294*^9, 3.5116412632227154`*^9}, {3.519945652604292*^9, 3.519945656025487*^9}, 3.5206470576621337`*^9, {3.536753629485641*^9, 3.5367536355419874`*^9}, {3.5367542796588287`*^9, 3.536754394482396*^9}, { 3.5451480077289762`*^9, 3.5451480136813164`*^9}, {3.5451480836983213`*^9, 3.5451481475869756`*^9}, {3.5451482301356974`*^9, 3.545148230279705*^9}, { 3.54514835065559*^9, 3.545148351119617*^9}, {3.5517190084457397`*^9, 3.5517190462919044`*^9}, {3.5517253476257124`*^9, 3.551725350072852*^9}, { 3.552315878168127*^9, 3.552315880549264*^9}, {3.5594364063879995`*^9, 3.559436470154647*^9}, 3.559498758930711*^9, {3.7095734439172153`*^9, 3.7095734562269197`*^9}, {3.7095736865240917`*^9, 3.7095736900622945`*^9}, {3.710786317142681*^9, 3.7107863175327034`*^9}, { 3.71171717351058*^9, 3.711717180665989*^9}, {3.711717560179696*^9, 3.7117175669990864`*^9}, {3.7118545714168224`*^9, 3.711854584457568*^9}, { 3.7119033420472937`*^9, 3.7119033423323107`*^9}, 3.7119033814345465`*^9, 3.7120954622856226`*^9, {3.712095557947094*^9, 3.7120955854366665`*^9}, { 3.737162821795579*^9, 3.737162839969626*^9}, {3.73780794558059*^9, 3.7378079860629053`*^9}, 3.7379793854587083`*^9, {3.7385815933232975`*^9, 3.7385816487654686`*^9}, {3.738581823928488*^9, 3.7385818265056353`*^9}, { 3.746791040438759*^9, 3.746791071688319*^9}, {3.746791171144439*^9, 3.746791205624802*^9}, {3.746791269817828*^9, 3.746791296817684*^9}, { 3.7467913572329483`*^9, 3.7467913929364586`*^9}, {3.7467914248141994`*^9, 3.7467915012213964`*^9}, {3.7467915468503184`*^9, 3.7467916019331903`*^9}, {3.7467917796337733`*^9, 3.7467917840254498`*^9}, 3.7468070357928214`*^9, {3.7468332178827024`*^9, 3.746833221181451*^9}, { 3.74683326704038*^9, 3.7468333082124023`*^9}}, CellLabel->"In[88]:=",ExpressionUUID->"db5374ca-9e97-4d0a-a3de-2e4025733b33"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "2", "]"}], "[", RowBox[{"\[CurlyPhi]", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.7467913000660734`*^9, 3.74679130814038*^9}, { 3.746791532816335*^9, 3.746791533334661*^9}, {3.746791579057716*^9, 3.746791587805388*^9}, {3.746791824210702*^9, 3.746791845191226*^9}, 3.7468070361321363`*^9, {3.746833379249485*^9, 3.746833404789989*^9}}, CellLabel->"In[89]:=",ExpressionUUID->"2b424323-6eb4-4e15-b44b-5a8bbc20de3d"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Output", CellChangeTimes->{3.760467954007326*^9, 3.7604682416742616`*^9, 3.760470340301077*^9}, CellLabel->"Out[89]=",ExpressionUUID->"e04df9af-bee8-403d-a863-8e270b7d1ad9"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnV1oW2f+58XuXuzFuVhd+iLgRQh0EQjGCNYmFPnCIcEglxYj3AYhh2bt MJuxM93YbYnd0tgprcqkMpso3Y1oIzITZf49dKZqidpaba0OVqZWpwqxaJXG LnJiNbZjO0Yxciz5eK2jt+fo9bw85+gc6feBGTpTWTp69Lz8vs/v7b+fGHzh f/4nlUr16n/d/68X+kY6/vSnvtdf/G/7/6Pnj6+e6v/jyVeO/fF/n+w/+af/ ceI/7/+fr+//x/hfVKrUP+8BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAADUAYn1hcDXrstvnTa2Eqo0WoPp9Njlv02HluMU 7/fdXpn9v33dF6ZXEhgfFgAAAAAAAKhbwC4FcJFYDpLvD3RoVWVp0lusZOAh 53lFPQm5zhr2JyjRNTGzyn9WAgAAAAAAAI0A2KUANnbW58gxo678XELRdQ1/ 7I9us3tnKrEevDHUmZLh2r7JmSVQzgAAAAAAAEB5wC4F8JETtmkIfc/wB9dv +WYDd0Nz/571fXHdNtzT2lQ4rbQvW2/9vJGoqIOpzQXv5X49/bfak465J6Ca AQAAAAAAgLKAXQpghHoy5ziZ8QtquocdU6HVEj5AKv4wQF4waQnmrGrSWz64 FV4rIYeprWiAtFra039AdLxBhmE6AQAAAAAAAOVRrl2aWJ/3f/mp54dILIn3 jQH+JB5MjR0j0o6/kb8EVio7/qjEyqwz7e8rmFfmt6+SU/5AMBQKBvxTpOO9 wa6cw5HQGN/1snUpAgAAAAAAAA2Jcu3S/JOr1C+5IruY3x7gQ+5H0b5s9fwa Y6lsqc15zwcWfZHTsCREu+WDL+dB2wIAAAAAAAAVULBdSm35LxzMfYr6Vc8a mL61Zvc38kQLLWzf+TLylHPJitj9bxwjXZoiGZ1H1zXs8JZ0IAIAAAAAAACK JBmL/OD5lCRdDpt1n/PD/RazubfnxLXQMwHhYMq2S5NrnlfVWTWlO3NrGRI2 KrEbj975xv2FT1yZEI+Qr3aPkGEBwjYVJPn5R9bhV7pyeWEag2lw4ir57Z3o FvzIAAAADQOOkwui3AFAASy5+0uVRDviCAsK2VK4XRr/hRzp1hB60/jfhXyF BiC57r9oTGtS4kX73NNaPw8AAAAgLSmD3+2wjvT3GDTZw7rHMjj6wcduf3g1 LsP4bxwnF0S5A4AyoBKxx9EU88GbI/pswNZh+12w74Hq7N5zPt+clccaM7lY 6wcCAAAApIJ6uvj9R8OpzFlCY+gdHH3Hmg4OMXdocmHmrb2j129HZaV3MJxc EOUOAIqD2vZPZFd+26hvrdbPAyiB5F374Wygn/oUubRT6wcCAADAROLR7JVX tMRx5zwUYyxFYmlmsk+rOmAY/H/e0DKzrOpufHXulvXlbKdwmdW0xHByQZQ7 ACiOeNjRA7cTAEe2o973Ta2a1p6x64FHkM4PAEA9QMVXQ19YTYfoE9FgDcRq /UDyg3py98pxNXF0hPy5fMWh7ejU+Y5cxq3urHtJJmIHx8kFUe4AoCyoBVdv 1tvc7VyA2wkAAACgcaDiG79HwkH/lOvSqLkdKYgDSqcYais42Um09LnuVXGH UBvByZ5853Djh3MlWuoBAACIz5pnUA1JOgAAAEBjkQhYNSoEQt9z7pJj1AhK pyxUhOzTEd2O8E512UKtTY3o8n6dPjICUgcAAMmhnvrePJDd1cf9G7V+HgAA AACQguSC56LVanPcIN1ef/BeNJbYVz9Rsh+UTjmoiKuXoLNvOvonXIGVRGXt suYbbcvryF4XSB0AACQHSdJpet27KacaKVKwsxGedtleP9nVShCtXeah8Wvf LkDYLQAAQIMCSqcCu5ve15H23m3D3uWKr0+uuE/nowGJ0+4VOF4BAJAWKkJa MiVSCAsZbaj7lsTSjP2UntB1DV8mvTOzvk+t5pbUOHScn5JPoRgAAABAOmqu dKhE9J/2/sPqfveK5J9dDXRwUmisgcpJ/cz4wKO2YPn+NcmgreWgcexTyPHn OAeSG4G/Wsti9yzExX9gQBHgmCpKXKeb3uHMBU3TEcfPDeTRSXf+0r5yZTZX fYV6FpxspzWf9tRnjSX6AAAAgBS1VTrJ2NzHFi2hIo69Of27DE+hZMh+OK9c Dg64H1Z+SKbSqTyesbCzXyu3qtQ1gOscKJSfTMAvCeTAMlUUt06p7YD1UOY7 dloDm7V+HqmgVmcmughtvzPM/FmjpDnj3xogo1A4uQAqsRH2Ot5MR/oZT1+4 9s398iVGAQAAlEgNlU7exB2beiDTE4h6Muc8rU9FpOmME1PRKnk6BdFufa7F igXb9t/ccVKLObJC+MklZZQ7jzkASgdgCaapIso6FY+iJB1qK3rnK6d1JLWi VU2tXa+M2G5Oh9dkuuXyJLnuO68nuiZmVgt2O2rB2Q2bQ2mSsTA50tGsNY3f mJqZ/e7qQKqizoFO6+1NEDsAANQPtVI6WRNX1TpALsj8zKXiG4822NSMRmyM fQ5ZA9vV/ih9D4nNiBJ8ckka5c5vDuRmbD/c0AI8yDpeuWx3mNepmDCSdD6J LM86hzqJVJlN+/6KDsxOu+1DhtQ3OTzg+Fe1EivKYesHa9sB/dh364VfCC1D 1+MISxLamurjEMXGakykbY5a+fbNDl3H2FfZG7wn/nE6hIF40T5XPu4a91Mk Yo9xDNPjWN1MZgAAMFMTpUMlltxDtBHeMfF90dmkWNBufSp1m/WHLTZ/lVgg B1pTx0vnxdlNQa4ToSeXpFHuvOcAKB1AEHyUzh7OdSou+SQdtf7k0En9Aa3J 6plHrzqerUy/Q7c51pquBAWFKlHJRFLwpoDhTXaWyFNq9SlyqdiHvhWyZ106 B970PZXksCls54AFraGnb3D0ooP8Nri4iWHjo5Y8Z9rUvdfv5xsoxAJWA/1Z 0qR37W7OvNNGVP7WnCFau473D0/Yb04Ffl2NN1COGgAA5amB0qE2b1s7U9ds atNHv9RPe01qJ3SlM7/hvuQIsxI6qb9c/25Mr06piQEywvtiSuDJJW2Uu4A5 AEoHEARPpYNrnYoLmqSjSl0jjLrni0NP6TZh9KJ+3hYUkMiDx6QXvpAXSbOu 9M0S9auzO+PSUQ961oR9DFtEUTooTa09b1z5/Mcof0ue2gq831ZwSFG/uUzN 9PsTLbag+GKeWapUBIjW3nMOb3ijStNvAADqHcmVDm2Qpz5Ne8o1z1YLKABq 2TvSnh3JA522H7l8t+Tm7MXO9C2rY45XgIXAk0vaKHdBcwCUDiAI3koHxzoV GzSAltD2ueZLtzzeWXT1pV/UNORZ4y3a5KJ0duMbqxslzf41z6A6syd3O3+V SJ3mo9ceLoT+HfBPkVdHe7TFRr3GOOaaDoYXKwVlLYQCs37vP5z2C2d79AVv Qehf+eDWzxs8RDf10D1wUD3gXkb+lFp2D2TG6tCg5xHG8ShLIraKfs2pv4yb DhWMEdHx+o3pnyqPUYrFcDAw4/3MaRs2tRIFo3TKPrMERwUAKITtqP/audR2 R2i6zpFhLGanxEonHiEH6SByba8zXEdXLbRSyI4jH18VteafOELvy93WWe6m h8CTS9Iod4FzAJQOIAgBSkfwOhUbJElHpT/vWy97vZHXKOpXPWt87++ZCSmL 4TuBtLU5ZCwlgJr05rev3rzlmw0EQguSZFig21fFmv+ik9z0vX2wYDyaJ/xV EzkZJGKLwS8dI10agjGq/Vd8i9zC8uijoXXYu4q++bI7KwrVg+7l2mytRdL5 qDXwhON77MYXp+39h5lyp8XiuAM15QBA9iTXZ97rQFYv8bxzHkMUqpRKh9qZ d/XRV1tEtyNc+rJRkWTDWujfhW/Ocu5NeCQCCDu5pIxyFz4HQOkAghCkdISt U9FBknTabT89K/9CxKQUYdunNoKTPQU367oh95LUIX/I9pUuQ1dD8t6lLCbX Ip/xoBIbP9+yvqxF30rbN8nBbZFc87yqLlC4SJJpwY2ZhBTFs/E+dNI5p4zh NrzmhX5KACBvdu85n29mLNyqbSxZIaHSyab08rqokTH57yWwNBOtOOj9nWvw m7CTS8IodwxzAJQOIAiBSkfAOhWdVJvTzGbeNuqrsF7Revi6fvcS9icpupzX mMlF7J9SBWT7Iixkjc3c4kg/Mxnl/3bb0ZlLZjQijjg26r7H0m1BbYS/Dyyi HvrdsONI5o2qt40TjTXfaBs6QkIOnVwqaB7dOS9v9yUAABJQtE8Sva4Ihv1I MqWTWPaMpJNg66pXNbU2a+0m0t/LdHFaYAXa+B27sZl+Mw4FDfaEnlySRblj mQOgdABBCFY6/NepyGwvOF/O2oiVY9KQV4qjQahFl4lxXh0e90t+u5XfvqQp JlYRzEpnL9tTADHm+XemiwVtXZk3aTrLP5pRIMm79sOo30vgoZNc85xtQgdc 1dRpv1tHMfMAUHcU+HSwRYlLpXRSmSDpTayOHDrZloL7e7JhyBXC0F4zd12s UveRS/x/YCwnF+4odzxzAJQOIAgMSgfbOsXLI89gNqG727lQ6alWvcOt2W1f nPTzXM1GCQ6X0qDbV6c1IKDEHBbwK509pCVZXuy8Of075/mY35lVTcPeWo0U Uv0mM4ntIWHXCPlgziyH7SHw6gCAfEnGQn8b6dLRFSbHrgceYTLypFE68jQM BLK95D5LeyhazJPfR3GFoOcPnSMTfr5iFs/JhTfKHdccAKUDCAKH0sG0TvHy 1DeaDTU9bL9byaBjXJ6Lk6pfe6UjpySdPZGUzl5BMZwUnAtaUlv+C9lqCQXJ nlJCx2CjX0R4ZigSvpilz7UIXh0AaDQkUTp5q+DwqO+xKB8hNdvRqfOpAhHE sTHPb1ibAm3PO4+nL+n4Fp3AdHLhjXLHNgdA6QCCwKN0MKxTzCRD9sPsVj0V JS05P4BIKqDmSkdWSTp74ikdNII6A2H8cI7DmfTYN5qdOAcv+LdqNVI4k3Sy IF7OWs1DAABqjwRKBwmXbXs/ULONFCNZmaM96Qg+xm5tU0tkX+Zui1+UF6aT C2eUO8Y5AEoHEAQmpSN8neIFqVtVpckvWo6gvArYCjpOWcwIlsG3Lru+X2AZ o8tb6VBb0cDf7WODjM82W/7gnKtQSq4EskrS2RNT6TCLf9JwKeCfD/EiDo7P 1CzrDHOSTppF0lww6KB0AKABEV/p5DOM5HHiCCUjc4iON8jwk3JbMRX1fWj9 yBfl5Sinm+NkDmkeff3wnFxYo9xxzgFQOoAgcCkdoesUM0+DtqOZ9VqlTzB6 ea7pdZVJ6Nl96Ps/r5kNjGLGKvblJfkpHep334UXC3vxEK3G02996HvIZd+Q WZLOnrhKB40NzlC6a0CJx8o3I1B12YLIb0RtLtwOsBW2gsGfpLPP7s+OIwWJ Ori6wgEAoCDEVjrUs+Bke/1sMmmZQ2iM73orHff0Ocu/JR9y6UqccEU43WXi OrkwRrnjnQOgdABBYFM6gtYpdmIBq4GVCb01M34wG+tUte5uYi382ZsdBa1x OieDVd2yfJROrjZj/qO0pj97IzyyNZDtS0hrVIyIq3T29janR3Xo76Rum5jZ rDpwiFpXtU8Gn+X/gO7RJlnFPBGSdPZK9TDC0xUOAABlIbbSeRKwZm8ajzjC yvboZGSO1vLxXBW9EA87egSVeclv0c3PO+9xGDZcJxfOKHe8cwCUDiAIfEpH wDrFT17pVOy0trvpeyurJpq7HSEW9/7xCDnIdO2U9wTl4KF0nv1ka2caprqz 7iVedfvRVPQqZeikQmyls7fhHzcw3p+F+qYirl6i5ASmb8ykE4mFSTo4UquK q0zXsrIcAAC1Q2Slk78/rFYOSO4kN2cvdhIHOsZuRUq2nkGhz1mi373C+9NQ wcJFHWA7uTBGuWOeA6B0AEHgVDp816kI5HfySkqHipB9GaFDdF6c3WS3HJFa jmy/LGelQ20HrMzscZZCrBT57Us2547oSgctRJPZuqu1j0E8KQWyKDVPDupG pyXSBYVJOjgC3ZGpnpuE4/4NLM8LAICiEFXpoHuvPIKleZJuW9Bisn5brZr0 bnzjUWRm0kgQVYLlq4C29mMf8YXr5MIY5Y59DoDSAQSBU+nwXKdikFcKzeP+ Mo4QaivwfubqnFtHNqQ/V4aXnQsVvS2clQ7tB0fhHxCIbl9toz7BFbywILrS KdU+pkpFGiTikeH5oraCk52EdHU2ipJ0hJ8UyU3/u23MwVBbbkZwNYMAAEBJ iKp0EH+6HDoa8KSoOxsrdP3uJSGfuht2HMm8FYtYkQy4Ti6MUe7Y5wAoHUAQ WJUOv3UqDjnnaZl4LSoWmDQ204/aYnGGuKgyRrk2mmrl6zkrnaKCwPx9ZPJL 0tmTROlQv7lMzczPqOzFyKtLhh9wJ+zs1elGpqQqslGUpCP8pIjfsRuZQ6Hu c96vWWE5AABqiphKB3FJy6KjAR/4yRwVhn582/7x7FatHnAvsxo9TCcXxih3 /HMAlA4gCLxKh9c6FYmtsOOl1FZV0huSWPSMGOjHbLE47sQ4Pici6NI0m1y/ VXoPrkqnqEwW/5QKGSbp7EmidPae+McPMz9D3W77qbxjLF8rJu8HTDyYGjum 7piYXpFsd8WdpEOtzkx0Mc9sw4hnEU4LAJArVCIh6pWUiEoHcUnLJliaG9TO vKuPj8zZ36xPu1cEfuMld382zJjtHRemkwtflLsIcwCUDiAIzEqHzzoVjfic w6Td3310Q+6lfKAOlVgP3hjqpEXQ0RHyZ64yJ0Whcqlc94C70ikSAlXevwIy TNLZk0bpoKd5lsqusVzXUe0r9qnb/qm/jJsOEYazrlDZBgr4wZukQz2Zc5xk FtDgI+0BABCdxFrYe228/0hma9R0mEcd3vAafsMuEXEP5a5Tmo2TAXwbAuqS rhbqgBkqEXsc5cRqrNTYljo4WCIsS4cGDVxn3VwAw8mFMcpdjDmAQelQ8eXQ 9N8uj/3B2Jq7RtYazK/ZXNPhDX4tkJKJZJ0fpXUzaLiVDq91KhZUYuX2FUvL vrmot7x7Y2omMDvtdoz2pK5rmvT9l70L1QsPl+apbzS7KWQOJbxKp7AgMG9z F624xSyzX1ukUDrUtn+iueAkqnrnRm0ufHNtfLDXoDnQ2nVy9IontM6zDgQ/ cCbpJB4HC2QOcWzM81u8zvdmAFAeVOyuK3X/Rmg6To5dvnbj6ttmfVNmzU49 ECR2kguei9Ys740Pv9LVWpDBSGgMvYOj7+ReZHUG+BYrQT3p1dJXhZKILQa9 rktjg+aib8QeQmO0+qRz2VcFjY2vFiuCIvTkwhjlLsYcEKZ09gfHe7lfX36S aF4c//weN71PLbpPtSo2PpMF9TVouJUO33UqHqmLsuvW9PZOtHaZB8cu3/Te iQqy97j6XLgqncLXa8zkYtkXU0/C7j8PdOg0XW/cLLjDSYSdpsyDqvvIpdr/ GFmkUDp7yZC9IHxNrIbg2ChK0uF56CCOywz7B/rE5/N8pT0AAKJBxe44LC2p GINP7q5nwg/Qgjkm+5yAXSu92WoMPWYWHO9qJQTsxmiwtHjtuqitaIC0Wtp5 RZgVI7SMAF7Q2PgDoz5haT+swRjlLsoc4K90qNjP5MhRFlOFU7RDenkKqIgr b+pv0HArnRqtU4mRkdLZjfnf0Wdfxyzmj/QeVZsdv8jJwpdE6RQHGVbRjLWn MEmHx6FDxR8GyAsmNM5c88LYzX+vQKU1AJAh1JLnTFsJ3w1SPbLWSa+sQaMd ROk0QSVWZp2MOxzhyCnaYY8Z0SFZai3GKHdR5gA/pUMlot9aTYdUbGkdIBdY vXu6a0PVXvOKpD4HDbvSqc06lZgiQ1096KkU2Cqi0mHk3SOFC6hEhBzImLtt Q+6IfNzzKWqmdOSUrFRMYZIOl6dNxKJhv9uRDXqhIfQn3rvBN54WAADR2Ym6 z2hVWpNjrrD+54q7P2fQ1zzplR1o8K2gHpql2Y7OXDLzqxVQGkJjsIzdvCuv vEX0cGye8G9L8HA4o9zFmQN8lA61/v1EBzPNIIPW0PWcptS/UGkHyUjVQrxp 30TVDn2KpF4HDb/SqcE6lRyuhjpHpUMtukyM11dI63satB3Nzrd+Zzj9tjvr wWsD2TDvUTfHWEoJqJnSEVDbQXyKknSau0YdZCVuOGxWq/X8cH+PQZMzAPaP b/OIzeUNLsbAjyMdT+c9V61y4apnvj7d6XUGtTY1oiMI44dzReHUzAqfyig5 he7rmHda6smc87SeoXJ0XUMfuKZuhxaiG/Hd1F3P6mI48PWN904wX9Z2xiOj wG0WLJJmDf7fXaood3HmAHels3PP1deCHPzGodSZuLCSr0KxG994GA54rp23 IBOGqF6XO+2bUJ8il+pO6NTvoOFXOiKtU3mBfkcarEqnSAdUeH2uJKbOOP7J TGDW7yWvZiahtmPwCv+qC6IijdIp/hRZK52iJB1eEK1dx/tHrA7yG1A6UlJq stUQGc9zIMf2vPM4oWof8RbHpu2bdgOIwa6IkxStWnag2/krtt2nsIZkqqDQ VNmqdDvrQQejG07b+4FKPaPlxqp3uDX76NgSqKWKchdpDnBVOrE5uykzA4jO waveioENydjClM2ctfCJ4875ClUU0r4JdZv1h7rrSFfPgyaC0hFjncoN9DvS VC4vyU3poPUe0/S5FitMud14NPDp5Oupe/28oev2z6/L92gEpVOCwiSdKiGR DBKx1ehi+Cef23HenE/UJfQnrGQgGldA3IvioR7cOvMc1vQBARDPnbn1QEG2 XYOy9YO1Ta3qvBLaKfqtqIfugYP5H1QZ0RFI/S6cGZHbS+6zuvxYtJgnv49W ucNJbs5eRJJ5Dg64H8p/+LLEAlZD9slxVWmWLMpdpDnASelQ8bkPjfR3Ijre IMPsSm3THYjoP6pokNfaNyEadT5oIigdMdap3ECXM03lGiPclM7OoquPw5sr EWmUDtLHNod8lU5hkg7fCzFqK+p3DKDZOoZXnYFHMv3WANCg7G763tKpNL2u Esms1LJ7ANkM+HeOlhT06BfYkyVHMha8ZMxrFta1nqjfPUP5OBzFlHRIsb3g fDl3XmESC5JFuYsxB/a4KZ2dsLM35QAkOs5PRbnUuE4skAP0DbbuLV/ptLja +ybEot4HTQSlI8Y6lRtoMe00FevGc1M6jOuXFCbXomJ2aXZAnk4RRUk6QtpR UYnorRE9YirtH2S3fquaNAgAgFTQgQHECVfkWdG/Siy70Y5qh0d9j2vwgJzB H87BzI9W60duVfPm5P+UERqhpNtCNABMWOfoPJJFuYsU0sNe6STXvOdSHkDd WfcS51Y+1PKtMzqi7BU9tewdaa9Hh079D5oISkeMdSo7qIirlxGqUtF7xUnp oOXo6e1d1uXC+FEzpSPbCVmUpCP0aE5u+t9lBMMRx96c/l0phz0A1Dnbs9ZD ROkyvNSCqxfZHw9e8CsjzQRNX8VhUVBr/gmkKoP+vG+dw0nILOzT4wgr5aYH taAwXs1JE+WOew5kYK10du85n29Wlc59Y8POEnlKXcaLujvvfJ4gdKPTSnCw cqEBBk1kpSPfK3Sh7P7sOIJ6ddTttp+K7+YycFI6aJlu+sXjfr4Nq2VLzZTO oUHPI+yfgwMhSTplSAfHouhGPMv1uRwBQGHEfrB1d/3hs9+KhQ5tG7A7WUpR uOcJhvUn47Vyqa3gJJJrw90MQ8t0KyllWNEWVG2VDvUsONkusILc1sz4QaJU XfcnAetRFfGSI1xnkWsNMWigdPgSDzt6GOdBhSZZHJROUVycYi70uCCJ0ilV kEBISJiY4ErSYVAcY8nZagIAuUD97rvwYo3r22levOAT2zH6NGR/AfnIF+wh bgXDsX9p1p+MWrmVq+iwgHlRo+69fr+4bkNlGHeGClI6jLg7pVlQWOdAHpZK J22VCbwcpo1zVac1wPBCUEtknxpDFW750RCDJoLSUfQ65UD6R0Qo7x/noHQK qrrVY+7bnjRKp9jOl28DPqxJOgiMW02aQ9aAAoo4AUAR8qjjLfqJ9uwnW3v+ XCGed85z3LGwf2XWn4yxwUTmnjkLr7gaxrGrIKUjZlsi0RGpyQhLpZMqvEB0 TgYFXQ6n515BoHv6/qEeA2waY9BEUDqKXqdcSGda5Sl/Yc5a6RSqp9L5qspH CqWDVsbIDqeFjMrRzMeepJOlhHGooHh1AEBoCJ8OteW/gFSXLl2ZrTLYvzTr T8Zo5T72jSJleXg1xEkGbUgTRFA60lBbpYOJp77RA8wA8s3pUR1BdDvCXB2L jYO8Bw2UjgCoROSmBbVQdee8a6VSJtkqnc2gDQnQVqn1Y9+t136OiIAUSqcw 84Wf2SAJIiTppCnMJlPYiQ8ADQbTwlcPupWUWIdaucK80pve4fy+xS/mNrni Po0cphWLo8oLxsWX0iwofHOAgbRKZ2/J3a9DmiSmM+51fWRElvaDTJD1oImg dBS9Trmydd+JOmEOdFpvlyjXyErpUDv3r/ey0U11gARKpzDzRcYOMlGSdGhK +HRA6QCATKHWPEPIzUTTkGdNDlYCW3BloxcEHnfZgjzeitmsQa5xy6VQdKZz rWuv4YFumEicdq/QBli6NFnZfjFAGlkPGlQkEMrOPVcf4iQnuq2zRacTG6UT n3OYtMj7dE3MrCrplOOE+EqnKPNFFmlxJRErSWevuI4f3pUOAABGCtroyCK+ nQv0pS6GfYbp4+ZXk4fpzpZr3HJJFG1B4ZoDBUisdNIOwfRBLIvGl0pA1oMG Skc41OaPV3oP5Xdm3aufRphZFlWVTuLB1NgxxNXOuhO0QhFd6TyLuE4wc/F5 14oXG9GSdAqzetNHfvbKBQAAWVHQRodXckpNiQWsBgxWLlOk8AvlZTa8k20b tZKgFpTieq9jmgOFSKx00hbK4XH/k0xAKXHcOa+U6MeaIedBE1npKG6d8oSK 3XFYEM+O9qQj+Di/ICsqHSr2MzlyNL8rE4cHnLxlTjIW+cHzKUm6HDbrPueH +y1mc2/PiWuhZ3I6NMVWOjt37Z2M/BTC+OFcXE4jkEe0JJ3CcrX0OPS6ZBE1 W4c8nfdctcqFq555bqWJgZojsI2ODECtXAGdyxhJOvxCeQu8Y8oqw0JHASnV gsI0BwqRWunQgRapwaeW3QPyqJMsf+Q8aCIoHUWvU/5Q8d+81pfz8WdE55Dz djRO3ySVUzrUVvT29ZGufNcAQv+/HLOPBKxk1HeMUKHXT00QV+mkPacosnXo iJmks/WDta0gdo19TYZ4xDNu1BzQWz6crdaXnIo/DHz590+/vLOSKP3e1Hro q0//w2n/c1Z6v2jQEOwufKhE9DubpZ3QdL/mvo+rN4MoyKMGco5GcKbXFwX3 EsoyztNguuRkHJdtoz7uFz/MXjw8KnXXFFQspG/IFYRIF91SKx16Eu4//306 rb5lyMOp4iLO01NJcBk0ia0CEZSOwHVKJTbu+90fWYf7ewxalcZgGpxwfB5E pkEyId8psbM+95l1/yfI7bF6y3mH2z99mdlktH3U/WPAc+28Of9KlebooP3r 8IZAa45KxB5HU8wHb47oM2+tPmy/K6+IJVGVTuK+y4LKPUI7QEbkOmdES9JJ Vz5hwrrGRfpOht0SXvOPd6bfvd+9VOoFBUWQcj/LAIszCylFJUJvWZxQD26d ea7E16wJxHNnbj2Q6YwHSlLQRqek73X3/icnjr7o/EVem3ketJIAkS/CxBWG 0uGj+JihazK+5irNI8/gISFfv6ZgmgOF1ETpEC1/djq4p9VjPT0VBYdBk9oq EEHpCFiniUeB66937Ss7la5r6APX1Exgdtp9ZbhrXx0PXJ+L7cRCf0t5QIhj b06L3ahaANRWNPCFY7y/Q8PG8Glq7Rm2uaYFa5zCh9j2TzRnPoLXtZioiKh0 EsueEYZbSztIRmR7WIiVpEOtfzemLxA6OovrPrtDAn2qaks4H2rSbHL9Vsap E9/4fV99P1z498f9ubiUw/ZQ1VMw/+bEIeusXEJ+AQAzBW10Spdm3Q07jsjw 2goBbWFzYNTHM4CSoXR4WLaxoK0r9/cyaefBAepXZ3e29boC0yrxzIFCJFc6 dDGfJoOhnXNaPe7TU0FwGjRprQL8SofnOqUS0e8nzfQS0fZNziwhszkZu/8f g7om/blLH5g0uFeQiFDxtd/m/um56bCNmlsZNqema3DC5vibx/fTvVWRskfi YUfWj6R+1SO3atViKR0qESEHtKjAbBtyR2QcxiNOkg4V9b5mYI4voe1zzbM9 8ZGnap7wb1dyQT/1vZld7UdtwWqLkm4uxnoJo2+uuDpUAMAeNm100ls6v5LL UrHi7s/tvry3dPRNuN/8UGtTI7rc3x+Z8CuqUPce83DE5xSRDixzoBDJlU7+ V+C64kQ7PeUPv0GTxCrAr3T4rNN9mfPVWAf9+NqTjrknRZMjueY9h1zU48tl kAa2nUPxgZbx6XbKrl+mOEqH2rxt7TyAvGmzcTIg6xJ2YiTpUE/mHCe1zNEl Os5PRVm7RJCnqqa8kKQ8Fh0rkiF71p5jkaxK/e4Zyt4O8qs0CwCKgJGDr1IP uEuEW6UrkrVPBsWoLUP3SiDa3pkR2PwidaGfNXN5p4oxdkWulu2TgPVobiAV 2XobUQpEv3ul1o/DGSxzoBDJlU7uV+Ca4yza6VlI2ieyGpPRRS6vQZPGKsCv dLivU2rl2zfTMkfVdsZTploDI4y50xrYxPO00iC90sk3UpFltAN+pUMlVm5f QcvfqQ50jH0VlWt6Thr8STrUkzD5RkdB1GTp2wM2T1VNeVER0pIVVSbXYpXP 2D+tBrKPVr1lORLtrMQ6VADAEvSWMnV+D7gfFq2kdMX4pk77XRHqcuT6Xws3 I9HYdd7vhnq6q28UCFR87kNjzvzovDi7KbujrypI9Jcsz+7qYJkDBdQkT0fF oz65aKcnSjKTx0E/od7ygWe+RL/6GsBn0CSyCrArHc7rNN95k9CduVU+dRBp eSzDcKzKSK10ZB/2g1npJGNhcqQD9ebojBNTMpc5RaVQBSfpJJZmJvsKvTmG s64QB5nDDDOuprzyd9FsFjtyAlYPx90KO17KbIDqU+SSrOuuAYAAGB3oSoeu UcvekXZxFgIV/+UjU2bBCzcjkahp/sccmrXUOuxdZftn699P5E4BWadnVgDN 1Obw3eUEljlQQK2UDteKEOKdnnmo6GentMzbTP15X7Uib1LAZ9AksgpwKx2u 6zR3m7Rvk73kCJefGKj+lWE4VmWkVjrIVsPDKyoBeZdTFm53Gnmo2H3v5VN6 dN0TnUOuu7IOWsuw6h1m5G8JSNLZWZ/7x4TpEHNMCa350gz7oLUMyIVqlclD bQes2Y9kUfVie9Z6KPM7VQ3HRYLtZdRnGQBEgKl0SgR+pF0V4iyE+B27sTn7 2cLNSPSSTUCS9U7I0Z15qqYhD5tMG0ZLO45ebDmB3OiyqkMlQzDNAQY16RzK oz2HaKdnnu0F58uqQpq7HaGa3wbyGTSprALcSofbOkWTB6u0GcpnLSnPpVvk wRC5zRCiCgkLGZXdjp/c9L19UMWkSu5eMYnYYvBLx0gXo8AdoTG+Rc49xrQV ilrwnEpEbloYco9XI+/EZmoYhrsLe7mk2jnN8inRj4QZV5s8iKBmUXuErhyV pmpFzc2gLdtEkXVlbABQJmhh3lLXHWkxIspCiM3ZTcgGisOMRG6xmoa9fKPM k+u+85kuCZWvQGlQmUPoTzuVKnOYBZ3k1gWPPXjmAIrESiftmuF+Iot2eiKg bVwQaj9b+AyaZFYBZqXDbZ0irqjSwcl5kKwl+dVMrgL6NTMzWzcyJWJFmLxX lJfxjJdMLUG6nGDo3wH/FGkf7ipRf1tjHHNNB0IL0QoshAKzfu8/nPYLZ3v0 hW+h6R65nm3VKhzMBc8TsdXMKCyG7wRmfbec71j0TcwvoNYP/9VfeQBywxCY 8bpdDuurPa0Fb5LaBYxjNwNRngn8SJhx1cmD+J2rL3b2tTepnfvXezMvLZ+4 BwD1AhJ8XmQZJh5MjR0jVIbXvNivrJKx4CUj0dbTkyv7hsOMRG0ANjVjy77P RnCyJ73JE8ZLwVi5N9pZn/skG7pMaE0Xpzl7seVEfdTVxzUH8kisdDYD1k4e 9dBEOz1R0MQWFKni+srCY9CkswowKx1O63RrZvxgLnvwhCtSIbsIcdjJNkkn b9JnDdp9c/Qzp23IWKp3epPe/PbVm7d8swGmdf84JjS7BPWKyqB0g+i94wlN xynrJzPz2BoSYS94vrvpe0tX6StgGojW3nNXPuetcdJfENl5qnU9y7tZ2RzK iFv/kDVQwX+3E3b2pj2Sav1rX6+AzgHqH8S3kq+uRiXWgzeGOglVi8VxB3s4 Ll2pUqMf+3ruk1zsHBZjCU3T4FRPoIjEw2nry/ReUNJZn4hFfiCtJzJ3Xqmb Ll5ebBmBnt2yTLBlC745kEFapZOpf8X1s8Q7PRmUapanqn2daj6DJp1VgFXp cFqnzF5pVVQtktFQeyddGfCY9FhzQtORotRW9M5XTuvIya5WQtXU2vXKiO3m dHhNIv0vitLZ/xbmwdGLDtIbuLeCtSORGAXPk6ues+KoPa2hp48eh6nboQeC NfIeY+epdqXArTgk4tavFM/A9iIXAOqLjO9GlbkEu3Ht8tjJVO9pkbIOqbVZ a7c6VZ1sG8kSwmNGIhEpVUI1WDzn5rzng6z7u6m150/jNofrE6fdOnra2JrR hhrj0OTfgytKdYAgIGWHFV5XH+ccSCGp0sk8POcS2aKdnkV/HQt/bh04QhsV 2o6BS99OTR6RoKJvRfgMmoRWAValw2mdIi+uqmqRrKXmcb9MdzSZKB1Gks4n keVZ51AnQeh7ztlJLx2CZR8y7I8lcXjA8S+F34Dhp/4LnlcG7WRRpe4Hx+KQ ebe+1lKq/zvNdnTqfKZEtv6cR9FRKADAlcRa2OsYNXdkjhHNkf7xa15RrqSS 6zPvdai7rbNrFKMeAiYzMt36hwZLmgYVj97xumwjr3Tlg3UJjaF3cOySyxtc lFNHEUHkx404OD6j7DIsmOeAlEone1fMtfKVaKdn+bfZiqXD9VM1r2qrdPgM mpRWAU6lw22dLrn7c1fjVaq0IfcDPPRvg4GULtSfHDqpP6A1WZnl1p+tTL9D zxyt6UpQCTXKpKIRCp5XBNl5iGpdfxE3a/VIbDbhuMnY3MeWdPFMBZdOAgC5 Q0e/aDqtt+lTQQSlI//in7IE2X6PWgMVY58UAN45IKHSyXZdZxGXXvB3Ip2e 1aHN+JoqHT6DJqlVgFHpcFunjD7IlVUtJv3bEKABhKl51zHqni929lERso+W mcTztmAduSQE0RgFzyuB7jzVSsQjjbCZm9v2aujHUGEkCeLWL11kL7+hER1v kGGQOQAgDtSKb6yDMH44l4n6FUPp7O+Rrl6C3U4CZECkQeeV0I7it0Csc0A6 pZMtD8ImLh1FvNOz+iPTZb0Ftx0XAK9Bk9QqwKd0OK5TNNarSsNERP8ypDKV WPn5dmilXlzXWEAzAQltn2u+9A+xs+jqS7+IZbeCuqdBCp5XhENrcuRag1kc MnWD0VxYdga51ijVM2g76n3XmCpzx68BEAAALEkse/b3OZN9Lnfci6J09qjf PUMtcMRwYOeuvTMdjaHpddXF/RnOOSCZ0smVfK9WUqAQ0U7P6tAFu2oZXsJr 0KS1CrApHa7rFFG1VYoMlM1aSk0tot+9Iui56wvU3VCxbW5eaNZX/BVfGqTg eUVQN2uVCv9l/c70Hl6Yu4Rs7EV3PolHs1deoafsIZN1KoKrSDgAAEVQy7fO 6HQmxxwSKSKO0tmjtgLvZyw/jt3MGxJkuOqngxjGOSCZ0tnwjxtYnIBFiHZ6 soAuWF3LUl18Bk1iqwCT0uGxThdJc9apYyajFd560WXKvI7Zb5en/q1rkCSd dttPFcp2Iy61GpfskAV1VvCcF8jOUy2yGu2rznDI0oGmhdVI0MaIqIc9GVuY stHVvAn9KbsvgrWGHgAATBIR91Cbuvf6fYajXySlg8RIy6OBu6yhlr0j7emd t9N+t37GCtsckErp5AQLR+Eg2unJgpTVV9PuS3wGTWqrAI/S4bNOkdprFZQO Ul+uoGA4XaagyxZseCsdIeUoy4xVZXcDOs2qtqate+qu4Dkf0Iumffpci2XW MV2fNt+5zORazO1F1EP3wKGiaiTphmLoxk4lNsJTl0+lGmEQ7ZYPviyRSgYA AE7iEXJQq+5z3i8I5hdN6aD3n23vB5RcM1lsqCUykyOqPeOO1o/QwTcHJFI6 OcHCscaveKcnm48+21TT7ku8Bk1qqwCL0uG1Tqlnwcm0OirfMwipL6cqcI09 i7hOEPkma8AeF3cD8kqVxkwuSveMcqTuCp7zAQ0z3qdlyPN7iaVFPZlznNQS Hebjz2VeiFxT7M47nyeKqpEg5UbVpz/5JTxDTp7pSjUKabdYSWF9TgEAYAOV iJAD2tY+172i41k8pYNeger6ylaRBZ4ErEfTR0odOr/wzAFplE5OsHCt8Sva 6VmVtNeslpYwr0GT3CrAoXT4rlNq0X0qfT1e0jWTljnNx8wmPUP60aTSgnR1 uC0Igg7XTFOlJhjimIDC3VDwfK+gFiIt+TrOTzHTAKnYfa+tT0scG5t68Cx3 uZHbY9OxMcXFHFbc/QTjjTUdqT4hoVWIVgMASUgskAN67QAZKdFATUylk1JY Ny3pjQLcOqVBh+hd/2b9ebexzAFplE5WsFSJYC9CvNOz2gdv+t9tq/E1Aq9B k9wqEKx0hKxTKrHkHtIRxVXCqHjEZz+lJ1osV26vbIUc3c30B+QqWtCO+PpJ 3MME+5pgjIXJiAlsRKDgOTPMWG04dlRDl3bUn3jP+YVvNhDwT5FX3zbrD2iM b5Fzj+mTJudvbTHbPvf7v7o2fJTQnnLNF/rek+FrL2gIotV4cviC3fV14N4K KBwAkBC6fr52kIyU7FghqtLZQ6r316PDQjh5l0fHmG+lTrdG4XNAEqWDI0kH 7+lZhXTKT23vEHgNmvRWgVClI3SdJmNhciTVlZ7QmsZvTM1kZ0UTko5ExcPX 6arahNZsu+X/p+fqGYM6JY2hvjQKUhOsimOCipKWnKCGzm5Q8JwRZnxo0PN7 YuO+3/2Rdbi/x6Cl25H39I/YXNPhDcad8M5G+Jtr44Om/ddoOsyjH3+/WGns AACQHGrn/vVedduQO1JmdxJb6ezvE2FnL11IqazaaljSd/IpA1k/9t16He+e QueAFEonK1i4ZvfX6PTMpPzUWCDzHTSpEaZ08KxTKv4w8LljfLDXsK+FNQbT 4ITj8x+jjMpyVGI95LkydrKrNaUDT19w+pcUa1WKRHLFfTojX4iBirsBWo5A RVjIaB1vsGyAgud7T/zjWZVcZfIAAKAc4nMOk0535tZy2U1efKWTyRJK3VVW fJKGg9q8be1MxWEQnRdn6zBuDUXgHJBA6eTsIq7Z/TU5PbejnnP62gtk3oMm NUKUTiOtU/nzNGg7WsrdUAyaPVcvTcoE0fAFz5H0wPoqKAcAjUxszm4idCOe 5QrWlwRKJ/UpK94xOt+2dYBcgJuUFLkyXGqz45dGKCErZA5IoHSyhYm4RrnU 4PRMxoKXjAShtXw8V+OypXwHTXL4K52GW6cyJxawGtiY64zeMZDrlKLRC54j 0YxV2jABAKAQqPjch0bC8Jq3stNeGqWTKjx198rxlEdc2+8MK3WrxEfO7DeM eBYbRfrxnwMSKJ10QSdCNzrNqXNnLU7PeNjRq6u9zNnjPWjSw1fpNOQ6lTV5 paOxBsr/IrubvreyhcYgRTRNgxc8R6MZ5e6DBgCADXTEhYZFcItUSif1UQ+m xo6lApg63ptZr7mRVkOonXlXXyqUq8XiuBNT6LnBD55zQAKlQ5dgJZ63BTnZ 7A1+evIbtBrAS+k08DqVL/kDq5LSyfcshphDhIYueI708JK9DxoAABak0zYP 9QxfsFbh3VFzLpi5zTz6LvKv7J4F3AUEEoueEUOquJAsbqRrApWIfjWWqsLU qOYTnzmQM28KpijGiZpYDX756Tdhjr9Ig5+e/AZNVJIbgb+W2OYGu9TclE7D r1OZQm0HrOluOuU7WiINi4lu6+wa/HpZGrjgOdrDa8AN+cIAoHxQTw1vBPUT L/9o6Vv9BhU7VCx4xaRtdPOJ8xyoPJ/FmahsgNNTduCZKrBO5UsuAadM21Aq Fpg0pg31FoszBOU+mTRowXMkzBjKUwBAo4HUYxE7ei1HYmlmsk+rOtBhvd1Y GTu7v5EnWlTE0RHy50Y3n7jNAZkqHTg95QeOqQLrVNZshR0v0T2rSjWrzbiM VaBSK9CABc/z3YSI4855OVfEBwAAO7VQOim2V4Jff+rDHh4nb6iV4BdffL+w CccvjeLnAJye9QmsU5mT6p6QalalG3Iv5dtU7RvnwRtDnbQIApUKMKDW/2W3 tKtbe0dv3oWJAQANRq2UDgAoHjg9AaAWUImV21csLSpVk97ybioEa3ba7Rjt SQVcNen7L3tBpQIAAAAZQOkAAAAASiOxFvZetw6/0tXapCJau8yDY5dveu9E 4yByAAAAgDygdAAAAAAAAAAAqDeozemxXCNp1XNjvsdwHwYAAAAAAAAAgAJ5 HHBeTPeYeG/0D8bWbNvDTGJ1q/H06HuZHhR/DWw0XBVoAAAAAAAAAACUSTpc jdAYXjSX4XhXKwHBbAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAADAjv8PqLwpfA== "], {{0, 121}, {1102, 0}}, { 0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->Automatic, ImageSizeRaw->{1102, 121}, PlotRange->{{0, 1102}, {0, 121}}]], "Input",ExpressionUUID->"55037f0f-d322-4293-9915-b7076eaa87ac"]], \ "Subsection", CellChangeTimes->{ 3.746790878526955*^9, {3.746832465983547*^9, 3.7468324662912836`*^9}},ExpressionUUID->"adfad804-e660-4fe4-afad-\ ec8a3cda721d"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{"Bmn", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"-", "I"}], FractionBox["1", "4"], " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"CommuteGammastdown", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.7467916134430103`*^9, 3.7467917126028337`*^9}, { 3.746794900325941*^9, 3.746794900955056*^9}, 3.7468070348696847`*^9, { 3.7468334204349413`*^9, 3.7468335082760105`*^9}, {3.746838309027896*^9, 3.7468383099083824`*^9}, {3.746838556404501*^9, 3.7468386074481454`*^9}, { 3.746838639940466*^9, 3.746838646651194*^9}, 3.74683870085217*^9}, CellLabel->"In[90]:=",ExpressionUUID->"ca610ef5-4fd4-4e1c-99c1-4d839ea19223"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "3", "]"}], "[", RowBox[{ RowBox[{"Bmn", "[", RowBox[{"1", ",", "2"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.7467917325303097`*^9, 3.7467917395115147`*^9}, { 3.7467949062368517`*^9, 3.746794918682787*^9}, 3.746807035264099*^9, { 3.74683359863151*^9, 3.7468336048382235`*^9}}, CellLabel->"In[91]:=",ExpressionUUID->"ecbb8a67-ac38-4eee-a94b-17751711d8c3"], Cell[BoxData[ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output", CellChangeTimes->{3.760467954037505*^9, 3.7604682417097073`*^9, 3.760470340324622*^9}, CellLabel->"Out[91]=",ExpressionUUID->"1b47b105-d345-4a31-a966-30075388c3c4"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzsvW9MW2e2/2vdK/10X+wXl5e8QOLKssSLSFGEkC4IVeYFKJElg1IhRBoh EyUXop4ck/YG2lEgVQOtGlenNbqN6UytNlZm6szUypk458Tp4GlDRrinuFNH wWqdBjImiVsgQJCDTDBsX++/3jbe9t7be3s/214f6YzmTABv7+d51lrPetbz Xf/XCevR/+d/0+l0b/4f6f842j/S9sYb/W+/+n+m/5/uf3/z9MC/nzp55N// 31MDp974v0/87+n/8Ub6/0z/S6cj/nsKAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAfvYSG08ioWAweC/yeD2B i/313Rcbm0klngsAAAAACMBPAeUBZhpQecCsBgAAUB0wxeUAj/8r4Jkc7m7C dCyYvm1g/MrfIxs7wv7E5sLNCfOBYd/arsIPCwAAAFQd4KeA8gAzDag8YFYD AACoDpjiMpF8Nn/DZmmq1fGhPzp2bS6W2OP/E3hy/b5n7KjecMoZeiYxnZjc XArPLwocWQAAAKB6QMRPARUPzDSg8oBZDQAAoDpgissFHr/vHmrHdJjedHbS MzP/aI2skUvGVxZD/j9dsrQw2cX0D4w4/ZGNZE4JHZ6MR+euXTDrMaztXV/0 hegKO4qdB+7+Q8TnNH8Y3JL4NwAAAIDKAxU/BVQ6MNOAygNmNQAAgOqAKS4X eDL29VhbHWY8+1me10j9yFbsu6sjpgZd5p2ftbv+6g/MBYP/M+P782fjA236 9IDUGYfc4bj0MrndkP0Q9QkN78xsFshbAgAAANUDQn4KqGhgpgGVB8xqAAAA 1QFTLA48EQv/8GA174sqws56yGkxHDCP/9dCsbeEJ54EyYRhvlo6Ms14Nype Gy2bxE9fDrbWNJ2033kC5XYAAAAAcn4KqFhgpgGVB8xqAAAA1QFTLA585ZsL bXXp79swemdT9C8/v+989/3bj4S/JeKd3/zcNnzS1Fir09U2mk4O2z6/GYzG paTXgApESrpVmvAantj4NcbPr6txyJKWnd2fnMdPXcwvkLiXiAWvT57tHL69 psKTAZoF/BRQHmCmVRLgjCjKMauT8dWC0dhGxW/FqozkWuTONfsINUN0WKP5 1LDNdfteQckg+ZFY3QFSz4AqQIAhjt0V7xkqwVdj9VW+pwbQRkq6VbLwWjJo 0+fLbdPo+zxLUr4DUArsoOjNQ3b3dDCyRIS3i/N3/zp1vreRMFXNZ31Pq8E0 AwAAAKoBzqh8LHn6CkZjtiAcN1YKeDL2ja2n2Wj9/e3Qo3Uio7WXWA1P2/sN 6dDf+KYr+Ft5xlpidQdIPQOANsCTS7fGTIcaez70x7bVfhigypGSbpUuvAYJ LgQpMiiHLM57cYgpAAAAAEUBZ1Q+IMFVJeDJ2K2RpqY8awffCE12E/E/ZpqY XVV+YUms7gCpZwAAAEAkktKtkoXX6PB1wBOD0AkZ+PcUWNPJj32/wIYCAAAA UBxwRuqTjHkGIMFVOeDL/pFXmsa+Xc+rjb3sHayhckfn/WtKa19Lre4AqWcA AAAAZSDBhSDEoHScs9vHrP3dRqJiXW/sHhi2OW/+UGZxBgAAAKB6AWekPpDg qizWfNaa9HAetn76XZ4iLfwXV2cdmeE6MOh9AvljAACqmL3EUsBts5oba3X6 tr5R598XN8EqAoKABFcRkolE2d8MMSjVMCJ724mXYKkAAAAEoEVnBEa+dCDB pRBqLKisoshOR3hr379nbqryjHiFrSl1RkEmKmwsAAAptmP+DzpNb3zmD68m dpNPvUMNmM5w2r2w32wCwD4gwcUPnnh0e+JYp/2Hcq+lKklw4VHPCdPglX+u V0UrEwAAAIlo1RmBkZcBSHDJj2oLKpXaW3B1UbpX2HHXwv6LgcUSXBW0plQc BXmooLEAAMTYXZ+91N5+cTpze5qyjdiB8VmtWgygnECCiwc8fs9paTRYrkbK 35q7ShJchNTq12NtDW1jX8cqMDzAk/FnZHf3Z9XRjBgAAEXQsjOqbCNfHiDB JTNqLiji459HvB8N9b9h8/6UR8Ju7ydnRy2Z3zJYPNG8Ml2VsaZUHgV5qJCx 4KEygti9xMbqRpVdqMcT0bvOsT6jgbzW98XdpReaGz98+dbZgydcDzmpLPb6 dp8npt6DVT14ciNyx20fGeg26smjGr2x22Id/dh5zfeP+UdrCJlzSHDlg/S8 hzDzJ6G40iKf+aiWBFeKaSekr5zwAN+K3fvaZRsmPEsGg7HvLbv7TmRjR+3n AwBAS2jfGVWckS83kOCSE5UXVDHwqLuXqu+qPefjFZnX/JpCfBTEoPmxyKWi gtjdzbmP2jHskD2k9XkmHGJx9XcNOv8Rje8kl29aa3VY26XZdW29gOdBW1en M5w12yj1Ql11jSZibMfufNTT0GQ+M3rJZrs0eqqNynFxug/pzZPBeFY+WXy6 VSbhNUhw7Sf5eHrsCGaweqIJlR5AAwkufPOfztMmY89HMyt5nzPt9L+/5rh8 NfC02NfYjYc+MWMV0G4+vSTvOAZeMbSdtn35t2DkCX1mlIyvLP54+8pYtwHT 6TtHrs6tVEYUBMhLMh6LBP0e58ejVstxUyPtNGobTSeHbZ9774Z5NL2JKu6O IREd3gEtUSHOqGKMPD94YvVB3vXbZx37hNgX5jf7yZU7E8XWLyS45EP1BVWE +Lyjh5w7h/rdDwqmEqSvKUnVHbJKPaMxChDE7qPigtjEPYe5Xo2an3jQZszf flgQBqKXy4TDPR18sCqyIgZfm7Md650K0VOR3uMftPp+k+mr0fcE9cZX+4pC u0KjLRgX9yG7950W20xWhh9/MXOBrN9qHPavyvRdAFHgyahnsP38zSjHZSTX Iv4/WI11nNnb7YxkDLv4dKt8wmuQ4Mol/rOzr0ZnfMsfU82C03uKl4nYvdtX 3rP2kSYCazSdehuZA5SXUfcJbN9M5vBsZrSV+PcOZ6R4aTAC77xUduPzX1ga OoZcfK4fT67/88pgK6arbRq8Oq/CqSX+cn6qA8v1o4JJ79ReGxh+z+H2h5Y2 wVjIx14i9sNN57t9TbWcV91nHX3fRjE+fIoyAE2nHTPR7FgH31lw9xvqOpw/ IVZ/vxcP/n6wePQjlnOu8Au1v1o5QcAwyuaMEPguilBs/V4aPWNOvzNMbxpx 3s1Zv6TXKL5+IcElF4hPQipPkh5qgakSKV9HUnWHvFLPiIwCBLE5oB/EimXr oau/hrLKna7Fsg5MYtHnYEK4c9m1cISPaOp7+5KNh0uj1h6jnv1ZrKXv4hXB +WR8J+Ls7JgK79A/vhdxdsicFHoWdH3EedgzPbnfjooQhsczX8nhWyw9lb0V dnQSf7zG6l0GT6gK8ZD9WN7evuShyYiJqOaqa7vwzQr7E6LTrbIKr0GCKwu6 nLVhZHpNRS9FDIr5vP13nW0nbV/NRmJxYmySm9HAlSFjnc7QPzlb9ERJaX7z WQ8SpuagLbid7029mBklE7p1ozOCdqQ7EVevQaf2iZ5UyMDgwPHJ738rMi47 D9z9h9JL1dDvXtgp9wzbi/3PHx3/Qbqb90cHOvRcf6Q3W8d5/S3pxV4njm5p GkzDn2vxUr987MbDfxntbqppOjk5+5vU97CXWLrrHO7Us2916GO3P/Roff+B XXoTHfJ+fLIJO9hj+4a9B4Gv351oSy+zdltws4TvogR78dBfchJ03OCHKm8u MN3Ghwf7uo1ZU5RA/Dmghqk4Z6RtI7+f9KoMemwnmjAh6/ee7/Lp7PVLqfcI Wb+Q4MpBmvlFY0HlQskcPVmcv+t1DBkxHWY8uy8Ryo/YNSWlukNeqWd0RgGC WC7aCGJFgcdunDYwoYe61jMZ9Q41ZwKZ9kwCig88sRKZ/cpmaaG/ANY64Liz VFxJbCMw3tmf0e6Lh+wmxZNCydU5e3cmxmt483pUgd0BK8BV7lwlwEAMwWH+ IDzty5aXHnM1uESnW2UWXoMEFwd88ztbezpoP+uNqVolRQwKZrA4Q+s5j0HW B6YtNnbkwp1f1VzijOuvHfbnDc13ww7y6Et4WSyemP/UjGGGQU9UK8XPDOS0 MQ55o0KWELF+G9KuoJ64pqzmF820atLpWkb8y8WfJbkWmb48wBYq6F+d8D+u TquRFTi1OsLiTzLxRHTGcZrZGh/smfhqLlq0Lm5nPeS0GOrbbd8Rh3l0nJle hG/7NxEr4MoBf+TuqWcmW32urkKB3yNivL9M9BxkfrffvYRC/Wo5qERnpGEj nwN5XnnWKG79UvVa9W0Td9dxWoNI2PqFBFcW0swvKgsqi+0F1/Gs5L+h3+4L LcWFj7OoNSWlukPeHQdCowBBLAdtBrEFwZf9Iy2ZlVXzJr+iXRmgbTiNiIWz vRJ0DdH3vzC9+QN/bH/fVQ74E98Fm49ZXPja9AgxUrraIZ+i+WQ6kSD624kA j3ksxFepaXXcR792sDIhhrmu0/WL4KkkNt0qt/AaJLgybIbsXZiY/ZdS7EV9 l1zBzbyD+SLsOEomyUd86lVpMq6fr8vP9qLrNdLSveZaLGiNudD+qPms7ymy PjMfWxHnMax59Pr9f60LatRC/jyxXo85I+q1us20ahKVIaH0VOmibx3WPRna 0NRgycLuivcMuyvBet1510CBX4+H/zxiaqB+29BjuxVZE7ySqTssxremQ/+Y MNGt5i0e1C9FMFsJEr77IPywp5/op/Jko0KdkVaNPJfdeOT6mLmB2XFMeEWt 3/t/6KlpPntj9r9HjPTGa9Bb7HQBElxcpJlfZBYUL3uJ1cis+4JZL1LmSMSa klDdIe+OA6FRgCCWgzaD2ELsbgY+4JRMqb7JlZzgIsichhBSFWdc88+Fza6d p57TZLBuHA9sSHpsoSif4Nrb9L9N7liaR2dAcVYldkP2QxjW6YwILN0Um26V XXgNElwM+FMPcVu74bxfzTx/cRi/XNNi//GlOo9QzPXjUY+FvJQtrriFPF5M T/+mizMa6vexNTt+gM40GE58FRUQHbBtkpQ+VSn0DPRpCBXeipIoTy57h9jL iiJsXeXAUTMznHIKDTaoX30e8fyujX7zh/om74rvu8SqENPZSfQEuHJhTJZO vE2goZdM1fTOqVxnpE0jz4JvLtycMNNtg9Lr91sBd0Zy4MjCEAg5D4UEFxcp 5lcrC4ojwyVc5kjwmpJQ3SHrjgOlUYAgloM2g9hCENryB83vjJ1iQ1WV9Q1K SnClcnJcbdz7wvzsPXB11ZM5oQ+DW8oOkvIJrs2grZ2MNdStxKtynnoHGnS6 jomAhEUvLd1amvAaJLhoKD3J2nbHfdWPlopAH5/pdC2ToZequBZGu4DP9W/6 h0m3IlS7gAV/4h08IOoSk9rg20Ebe4FKh53xrgiwvWz1FHbCHVUlScmehgjc YWXDjC+JyR6qHlkklp2Nhe98N78Nrwo+202T/G1u6iQtx4kdGfM9EtkdhwZf 82UyjCgKcOXAbiUk2QQK8uSoTI2QXt53drV2Oe+rdHyQqnBnpD0jz4A/n3ee YtfvqPeBxOs5me1kmk5HuGgJBDIJLvWXBoVY86udBUXwPGg7TBlL6jZrcaSs KcnVHZJ3HEiNAgSxLBoNYgtAHiI0fxBY+46TdlG38qfUBFeK0Fz9doy5PVHT 84f7RbLf+MvQJHlFU9qK216N/BikCS+uFLk1LS7BRXQMv8f88X+GYwKyb8x8 E39jApCRRMTZTYyC+dN5sbsXaenWEoXXIMFFQh8toWir95ExJSop0hTR3mTd pYS+tPhW4L10cKBreGdGG3eRdtd8b7IX9gynbwi7LPY8ME6VtOh73arIJTKn IUJ3WNlkSSrp+zxLijxjhUE1RmezW9OlyJdtBMaN9OvXwK09Zish0SZQEJJx 9eMBMflEqcQ8fVJDUFmodGekOSNPgv9654Jc65e5GkY40QszxeV4kUlwqb00 pKGlBUXCKXk9bAs+F/Ab4teU5OoOqTsOtEYBgtgMGg1ieSE1+lpJXVmu0qy6 kaoMCa7se5d1tBYrL0yUKG3F4cuzk1ZuYynz2PUIf0pNcIKLK9BBxK+N5n97 f7p4zSBz5UQDFxYqG0a20dDriojJPkhMt5YqvAYJLgI64BSghqE0eHIldNP5 ydT1H3kVGDKmRJ2a22Lam3SOV6Jd3fre1kxUsffnF0ZADjx+7+rQYT3W1D36 x+CKwP13pqZF5PVAmeAKcAnaYeXADRvA4wiA6F3VyRRtHOp3PygtMZ0pwNOa AJcYPZMs0lPuQJlmmsq7+CpwRloz8lm1WzKsX/aSl0D7DwmuUkBnQQkmYzMF 61yJW1PSqzuk7jjQGgUIYrloMojlA1+ZGWtvOHuLnGbcwzV1I1VZElzkzdl+ JjtUUACNrfPnrLidmM824f9VxKclHvnYY1ldTdPYt3wFpQITXNwitHTMMHJz UVgdEJuDRf/CQqWzc9/RTpVu9jjmhecfpKVbSxZegwRXir0ycGDQ+0TtLQVV 3lzA83JNyWF7SMp1n9IQrF3Q4YxIcSd0IIR1uRYqNm/CcXb1E4G8LaqVpAQB LpLd+45W1klBBVdRthbcp5ndcaEgQTj4oqtT/ZhNEFkCXBJtQopMcDUPeJ/K +2z5UXcXXxXOSFtGPhH1WDPr962/rZQ+MNQcE3o9HBJcJYDOgqJIPvbbjjdi DaYRT4Rvd8fdLgp926LWlOTqDqk7DrRGAYLY0lE5iOUB3wpNttcOuKNUI5t4 0GZkow9V7adMCa70Apx5h61/qun38DQzSC57rbkXkPFFd2+3aEUROltLgh13 LeTPfwpLcL2Muk8wOw+sYWRasJDT2sxotbUZQhb2brsOa/9oLn/7oVykpltL Fl6DBBdrMbBB9V8CJTVD+owe96P8q59VQFJnsTNnInwni/TjYQdtc7Qp3Hvo edMuWHKTKfCW0G1NM3CdXfmXXmkCXJnsCkUFD5Ms7G7OfdTOOnXBHqEItPYR +udZXAEujk0QC3Ev5nCZClbV3MVXiTPSkJGn+h4yU1gu7ejtwHi9TvD1cEhw SQalBUVCrCp6MgnJG+tqh/3CTLyINVVCdYe0HQdqowBBbOmoG8TysBN2dh7k qJ9l6X9iA94V1Z5MrgRXjoTjUUc477kSM8Pbp8J0Eyh8K/hhi5SMK1PNSFoj vhNVYQkubkGdGPFe5khdAxcWqgC2Owlx3jdyS0CfLKnp1tKF1yDBlVr1DzcS 716aiJnMUBagtsnyyexK/hFh7sCKSoDLB1s8n9+IsZ4902GH6LfSKkYPn44u NFCdIhWusxMvgVUqpQlwpV6EHUdZV8Z/hAQQZJdkt43NyFD9QUDZbQ2cZ3FD Gkl9fimIhEC5JAfV3MVXjTPSiJHHN7+ztbM3bFtIXRc5oNav0OvhkOCSDFIL KkWIOwUm6unpxJvgwpfcPfTPiBE4ErqmSqjukLjjQGwUIIiVAXWD2Lwkou6B 2vbJUEZTLjut1ONeUm36yZfgYlcT6XkPjM/me/V03JWRLU3MO3tfs4cknIdm LtTr+G98CEpwcX9IjDSKhi4sVAdbEecxVnHF4goXS+JLTLfKILwGCS7a2UkV MZOZ3TX/aOuQ9ylvUpRJLxhOuxdU8CmZC0f5jBhnO8DWfr+Muk+1Cm0iT8Es B0TCIfl5EbIfZgx92YXUuAJcB94LiGwfTAp4sgVJXZI8ZtWArwUmOli3L2cy kLTbGjjP4gpwFTu+x1f8773nz58BXP92/MQfQgq3uqZRcRdfRc5IE0Y+Pu/o wRRbv4Kvh0OCSypoLSgC+vgba+oZv7mQ/4pi5g6IyIpBgWtKenWHxB0HYqMA QawcqBrE5gNfvnW2oT3nDDEr8aKmAZUxwbWz5O7P/Kn8Mfzu+uylNkxXO3j9 SXInHr07ZTksIBGRH+YYi4QnSSgowUVfzNeJXBdsQh6RPCrALeISIsYlLd0q h/BatSe42G4pJfSQTa5F7lyzj5w0ES0nML2x1zp+xR9Zk/hCiW5NXe1jt6KJ /RHE9srsR2ZMTBcneZ+NW61aey6nRh2P33NaDh/rM5PZE2ZG7YSdXf0FtBAL fYroPtRqgydWIwGv86NRa69RTy5/vbF74G27+05kg1t8wj2CKXdsQJxFMpZJ 8PUHhuSiZ5B9ciGp+0ohuRy6Pjnc3ZTemejbBibcQV7Z7QykHAS7PS6oCCoa 4oAY/fMsVspYSEhDuDO92J7sSqDaLr7SnVEW6Bt5fCfiZDtDCO5nJ4wV7wAm /Hp41Se4pJjflDwLSn62Y9Pjnf2fBmJ58/V7iYU/D1JHSIZTzvnnYrIjAteU 5OoOaTsO1MwaBLEF0UIQm4csbfkMWRKgala8y5jgys4m8aV98BdLd78Y7WvT 6wzGvjHn3agwOfd8cBNTPE5IdIKL52fwxMqDez/HuPEGq6ufScgDKrKzEbnr +Wy025CJjTDzp/OFppe0dKscwmvVnuBinZ20+y876yE3p+cpl0OWqe+Kh2Fb P9iPjOUOX/Lp7GR/Q9OJS1/+LRiJxgiikeDfvhw/Zkg7d/M71yNCwh4Fno3V 3iQ9d+OgMxDdTKbwZHwpdPv3VlPv2PWf4lv3HOZ6ne6VUf+vyeRv30/2d0zc FamqzdbEIhWXFgTfXPy78zwRgRvaBi+5bv1jfvEJOXBPFudnPPbX25rPuNhg lW20LX3iSYbbEtpgEdXlJ/l4OtNR5ZDFeS9eHd4mHfS6Bk2dY1/OEovx0feO 4zW6urYL3xS5bcjtdyP7XU4iVEBfgIur3lDs+B7/1TfUIb4nuwKoluCqYGe0 H+SNPL7sH8lkZ6WrQOSFSHAJ1+ep6gSXRPNLUOKC2v8oW7F7fvfld6x9pkYs 3zrLA6Zve9sbzZEe3I4Fvhg2d3QPf3z11t0QvaxiscWQ3zVqJrIKtU2Wj30L myJnnMA1Jbm6Q9qOAzGzBkEsH5oJYvM8era2PAduUkXNfa6cCS7OFWadNB1d cciU4MpKNhYsnuR0Z9jdDHxAGh359AEAieysz9+wWVowXYNpeMr77bVRtvtA 0Y6xEtKtsgivVXuCiykklhI7bsemL7YVinMMPVOhgkmAnaee1w/mVy/Z2ViY 9Uy+PdBtJO1GbaPp5LDtc2/g4Yags0tlno0WFqhpvXz3l5lr9pH00xmIZzO/ Pub4zyB9Iokn1+97J9/qS/+TvmNw8lsBGnS5MAYclZr2guwllu44Bloxcrvn mX+Wbx7txhe8o53/5oqQ51ysMjOxes94V8r5FZkYlUD4DosY069GDtMTyvCa zf9I+nmQtsBj/rfM3MXCTE6OgEm+X9sKfticWW6tozPPZH2qxMavz+LiV1ZZ ydpKFInz8aee/hqenlZlRrUEV6U6o/wgbuT3Flxdmfd5aMj3q3qLrYoTXBLN L0UpCyqH7ZXQdTK2lwCP6UuuLwS8zo/HrD1Gem+INZr6rGOXr/nvxaS5V6Fr Slp1h8QdB2JmDYLYPGgriN1HrrY8B65Igjp95ynkTHCR5yOZP5YpxVQI7seV kOAq9jOc7ld091I8Gft6rK2uqs7T0QRPPPLbXjPoMEOP7RZdOsu5Sk94uQ+D skqIyCO8VuUJLrZRlGj5wSzPizV2nRl930bw/uiZrszpXmGRoq3vbS3H5by4 pOyzsaXmJYhFC/0GVJMpdfueCGE7NvtJH1GrWdc26l2IF/Dyu/HQJ51dzsgO nnWQwdfHRyGYGJXgoC0opLlzci0yfXmgifQ8WIvFdmN+Xd3TunKSXPaNHLRc i3LjW+Y8q67QfbpnM6OZQZagdVYJcGPgwl23klHvULOu1RFGYSegVoKrMp1R gadG2cjHQ3ZTZv2q3M2hahNcks0vifQFlQUT20shvRittls8WlsKoOSakrjj QMusQRC7H60Fsbns15bnkOkFrFP1KqWsCa7sO4qKG2Tux8mU4Mr7Z+hDJX3f VGgDTyyHqX2H/ihRVFl94TM6kBe3D+WxD5t3RlklLpktqkzCa1We4GJS08WD pSzwxM+fk63Da5sGPvHlHrfhyY2Hs+4LZKk5t9gyByL/WSd/Ezrlno0pNS9D r2dWCB2RPW9+2ABMWLNU4s7LsfHASswzmInOyhv8MDEqGacWEuBKxleXIkG/ 57N3+5pI1Yu2gfErX9/LLxtSueRN87JtsPjjCnzZO5g52+DrdFPZsFsJ8hXw 3vDaS8Tm3GRxoEgjrBhqJbgq0BkVBGUjn9WKXbxWocxUa4JLqvmlkbigsmBi e9KINZ2wfTUbebxOLjE8GY9FZv8y0cMYOcNZb0ztox8F15TUHQdaZg2C2By0 F8Tue6I82vIcljx9mbRKn2epvE/HomSCS+kEI/fjeKr1BCS4uN0Y+coat2OB P45T4m96Y4/1ncu5ym9ogD/2vXWEOwJKgTX1fhZSd+/A3BvFDP3uhVwNNG47 RelhkoLCa9Wd4GKOIURWESfIG/rYkVHvA/7E8m487B4y1vGK06aDt2aTnLq1 Sj8be+GILh9VlKfeAXJ6Fy78UJPM8SJm/iRU6NiLZW/T/7tm+63bGXHOMuuE cwW4hFpYfdtpm3t2MV6F9oEI6esGvct507yF7Dmn1ppAOyoccsIV4NLVmKwf 2HK5NMoVszmIhABXSrUEVwU6oyIga+SzcrPlKPYoQnUmuCSbXxqJC4oDJ7vF W9zC+RkUDjLkWVMy7jjQMmsQxGahxSA2Gx5teQ5cMXzl5ap4UTLBpbhj4CYJ 8+utCUhwcd9Aw4D3qaJPrCzVk+BKhF2Ud+Pp50tKizBPKynRqqzwWlUnuNiU sqjEPpm0FNQ6ajd+/w89NXnDnt01//mD8p+YK/ls9IUj7KBtTnmhnHjQZiTX jOrylXlhjxdFdsdLbxA6Xu3O1AaUOfXBEeDCTrrmn8QKsxQJzdxwXrQ0Eb3S mrrPO0vov6lB8EV3rzF3b8seyxaS6OcKnal+v0klsgS4hICGAFdKrQRX5Tmj oiBr5LNys+Uo9ihCVSa4pJtf+vclLSgO1L1pgnqz7S6/mDmn26b6pl6GNSXr jgMxswZBbAaNBrFc+LXlM7CjoFPVhGo6wfUiZD/MfFjreCBPMllAgos7EKXd OwPKA742Z6M8G7/Zx594Bw8wwyohj6Sw8FpVJ7hYmyPC+eJr0yMNByzuh8Le V3ze0YPtD3v2Hri6OmTWnVb22dhD7fIUWrDGEIEGxPtgI0CdrqbZ9r0IS53j mMp8tMcV4BJxgrkbj3hG2qjve6hv8q4EwVUtgkfdvXU5qwN/GZqkO6thJ9zR l/l/M7MLIylNAUarFBfgwpPx5cXQf9v7yBMidO5xqJPgqjRnJOR5UDXyTOkF HdGrPjOrMcEl3fzSSFlQHLYW3KfJBD1mGPREC7u8TEe5/Lu/MlL6mpJ3x4GU WYMgNoNWg1guBbTlOT+05O7PPKzVp1IyTskEl+LliNwrCfmr4IonuLhtN6tT k1ZjkNljMr1VsAU8d31JaeKgrPAaJLjEOSDiUn9tJ6GyKPAzSGfdkn3GQXZY K/FuabmfjT3ULk+hhYShEcV2LPClnbolZenr6zYaXnHMC/XSZEAlNMzOJtsx ldT/VDwcAS6xJ5j4zsOrvXRuTEDAXwkQ1zn3XZDJSE/X5P4ThzWflXMRVP1t aXFKWQ55yb7k1ela5J8vlF4ZKgJcKdUTXJXhjISAqpHP0iVWXYArVZUJrhLM L00pswtPRq9ZKBtusHoK1YdQPA+MU5LbKor8UMiwpmTdcSBl1iCIZdFqEMuh oLZ8ht0V75mMNVehOTKFrAkupn8BPQRl0EDjnFfmtb1FE1wcWVqsYfSO2i4V KAaRPaYmGc8FcAbO0EszdEoKr1V1gkv8CQtx78YosmP4RmC8LSufQKgZtPYX KbAXj7LPxhxql+k4u8Tj16LEI15HOjIYt5r1It0099Ixv3Q2D9yyFp2+111g 3y87XAEuCaoyz4M2tkq5vtipWSWAxx//tJQd0ROaHtQrPDDofcJ7ZYXuD65D Y8sjBOnLgQfuJa9i6iuED0JGgCulVoKrspyRIFA18lmd5VVVmKGpwgSXdPPL UEL9DKGk3SLG02Vu36g9RrKsKRl3HEiZNQhiaTQbxGYopi2fISv3otr6lDXB xXSSpQawLE0sOfF/zWnP01xrUCzBxbao0BVNmAAIsLc58w5dxV7s9JOz30Gv VFWRBBe+FXL2G6X1VRYG1tQ9MV3ywYF457v36OYl97y46kpShSBTREqW2Te8 MyO7VoOyz5ZcmZ06O3TJE35eFnemdGzAQHsK4buYF2HHUWYWipas5DYxFH1w ViocsU1JqjJZjaFrz8lRl64VQ8E8beA9+rZ5jdW7zPsCs0840bP5BRC9HHjI EuAqptFBBMyKHanvPfK+cbgccqD6w294H5Xw0irLGQkCVSOftX0Q/2y7P7uO sjccMb3x1b48HO8m7F7dYedPAsyoMgkuzSwNCqHml0FygoujqSXog1IVl+CS EaTMGgSxFNoNYtmHWAtMdORvXbOPD6ymTEF9/URgW5WEnJwJrr2IsyPzt8rT A4VT1Jov7V8kwZUpByp83w1Ag4yylgCrkomXkNHRZVEkwcXJ/ikGf2tg4ZTr jvyaz1rHXFQnDgdfabH/qIZXyAeiz1ae2IDtOS5YJ/Plj/YW1lt2OyNFLy9w yWquV247vz1nO8hUaku7s59V2CBLyY1WDAXFRmCcMhdFbi1lJ7jktfl4YvEf /xUqfmop7Y+LXg58FBfgykBEa8odqWtmF1+FzghVI5+V4BI/HHtPZn7/H2yn 0PHhk6bG2uy5UtvY/cY48a8Ob0TIH4cEV0q4+WWQvKAytQqCb6eyXcZUbNNG of0ElzQQMmssqNo37QaxNHhi/lNz5tqhKNS6rCRjgiu7SbfQJHzpxH929tHz pmHEl/2hBRNcyWXfCB3nYz2Oee0c+FYrnPukAuwDGy8h2C5WqSuKeDL+rEiP tlL4dSMhg10tl/MlRKfNlPwaURtce9y1gEyeE9FnK09swFykErwws6qYDtqC 4g6DNoO2duaXS+5/KhLOoY/UFkJZPkyuumhNGAqSzTujDVRQVeTILDvBJa9p XfUPGxW7FCB6OfAgQoCLujmrR0eAK6WdK4rSQMjgI2rkUyvegczuSYbhwJ/7 RzJHA/XmyaA0pW61q4PUWhokgs0vg9QFtTU7fkDUB3FF2xoGvE9FfJb8VGuC CyGzxoKofdNuEEuzE3H1Npod94Qm5rIUq8Qm9ORCxgQXt6eh+BumpZBc9AxS 10CwhiHvU44SL3+CC08+9Q7RpvtQv/tBxWubaB9OBlWAfchsLdVvx7OPqtbg Yg2F0teI0tvSw2TFy/aC63htcX3UcoLms5UlNmAvUgmtaMpqyCJafJh7cNb8 YbCsbUTS73OQ2bRJLWnOVrZUf7dVVjg2v2gLmKwKEDlNK3GwUqvYpQDRy4EP MQJcKTyxFAouodQzWp1dfBU6IzSNfE6wLsdwZNW+SijphASXGPNLI3FBEckq 2nQJzRhwREg6HWF1TRlqCa4qNGssaNo37QaxFDsx71lD8weBTcF7adntuRTk S3BlNek+JFKtrlTw+D2nhTKQdW1jX7Md1XkSXGwDVp2kHqyAKmQyqAK6jpLX w6UZkzJQ1Qku1uYo3dw5HrSZCB9HeIfmstyYFg6az6Z0AxoS+iKV8IqmjNSG Tlff434kxlpzWpzrGsqu6lyqAFcqVztd9aPq8oL/6hui3Dp2YHy2yB4maz/b 716S68xK4dBd9HLgQZQAF4Ko3EWxepwRmkY+PYEfuXvqZZzAWSUTUk45qz7B Jcr80khbUNuLrtfokSpSesrCSb7VXZh5oe4WrixrSgRVaNZY0LRv2g1iyScg Oma2iqwcY28Qqxi4ypXgwnfCU2wJnTo5xuTTWcfpJuK8vLZp4PJ0ZC2ZN8GF by76J/sM5Lm64TWb/5GYyxSy9/WWFfyx760j5bjdjzX1fhYq+5EJu1sUIuvH ekyDRZ1eRQWBBBeB0qddxKGJ3vb9ZvDDZqHnj2UDzWcrR2U7c1YrXE6K6cJD cJiqhxdMRkJEBa9UugBXVhsUnXqV3urAuZNuHA9sFPtpboZHtglMhHYHjtpD Sh2SiF8OPIgR4EIRlRNc1eOM0DTyabbCDlZHuXRVJW71rK5Oym3cak9wiTO/ NNIW1PPAOJ2MFPy212ZGm6ndSMPoHbWPsMt1JVAoVWjWWNC0b5oNYlOUtvxh w+kbItsGcY53Ref05EKuBBe3m3nzWZ9aeu07GxG/83xvI+HYGkxDH//x41OZ Q13TxS/dHw+ZiGmGNfaed/rF92CVva+3rFR4gotNCAvJBv/ms5J6JGr1myhM VSe42LSz0s6XMG56m29mvB0B6csc0Hw2NjaQsQAmBzbzLPzOCPckSNyS4YTo KnglGQS4iL7bGT14+ZTbNQEnudcyGXrJHb3d+NIvS/GcHM7LqPsEs6WVSXYY X5uzdR0YmV5TaupIWA55yVQsEwitgkAJlXbx1eeM0DTyqayGfTIU3nO3V9Ky x1We4BJrfplfk7KgWBcv+Lcyml2HbUFFi5SEUIY1JY7qM2ssaNo3rQaxtLZ8 bb/rodgdP7doTS0rKkuCC995eLWXHgLMMOiJJtWNrvYSq78Ep685bKNnzI0Z 3Uq9scc69rHT4w/+spoobZ8gV19vQASsiRCQmWeuqyDaHLO6E1zs3QGFjR7p fN8YttYedYQRUlMmQfPZmGOm2rf9SrWwZzLPItTSOVsVcTNmK+I8Rjce7736 cKfMhqB0Aa7dzcAHzRn33DY2o1AjPyTBF929lMGvyQ2eiXa6HftfKaFzy5S7 1chwqXB3c+6j9gO5nWtkRcJyyAu3+qWoABeSqJTgqj5nhKaRJ9n63tbMLOAS C0IyCRBR+1Au1Z3gEm9+KSQtKDa2F3ilbnfNf546+EHj0KcMa0oc1WfWWNC0 bxoNYsVry2fISi6ppBQkR4KLeAPM1YCGc96nqrdRyFCwi6Jk5OvrDYhAeOkp exSoUr+JolR3gotoLlxTBqPHGLdS1ZuVAMlnY3UUhSqW7CViP9x0Tlh7jHpd baPZavP8uJLEU3hi9cH9cCzf/oTJPBNDn1yL+K+Mn+lqxDC9sdc6fvXuUl4p DY56tojYAE9Gr1mo3ZLhtHuhyPETvvlP52mTseejmZW8H4AnY99fc1y+Gngq eMWWKsCFb35na2ercmqa3vpbNaW3UnjU3UvvUPcFz0R38rxtmp/NjDK6O1iJ HZ3SI35rpLlzYnZV2FsXvxZS0pZD3of9xdXJThVthiVqCQ1VmzMSZ+TLPKt3 nnpOMxmuUoR88a3gh5mjAYlthqo6wSXJ/DL/KnpBsfcNhV0ryxQ2o1C+JSFw Up5qM2ssEMTKGcSK15bPQHRqzshrqNIEtvQEV/Lx9NgR2hBinbY5xWr5JaFM gkuuvt6AKNiKiGIBPL7sHyE0+bD2yRASt8L3UeUJrt37jlbS8il7lYYybvpe N4L3dZB8NqZhn4AmDmn/H50hNA/rjENfzERWEvheYvX+jdGu9rEbs1++buAJ MJiDxTrT+O/tfR09E1/NLa4RvxubnbIc0hmOT8492/dCOBqbwk/lklHvEBUz Nw56FostM/Z2G5/IFZM5ER7IlSjAlVzyjRhZ34WZPwnxXAmpUDj3DXPfXjpw OlfPU6CFx26cNtAHnk1j365LXF1UG5oWiyss5OBS2lpISVwO+WC2MxoOS9RK cFWbMxJs5NWZ1Vs/2JmsPmb+dF6MQi7n0ekIkEKSAFequhNcEs0v+e8SFhS7 /ReS4GILm0ux8LIiJnAqE9Vm1lggiJUviMWXb51taJF8LzIr/aJO7rekBBee eOTLZLeOjE0/Rm27rkiCS7a+3oA4mEOlIvoqzEUVVMu3UlWf4GKLW5Rtf0N2 5kVThA3JZ2Ma9hW/ec10rd3Xgjb50G1hNKPyRFacZkn7/AW9bA1nvbF9ygk7 YWcnGbXoTPaQEOHQeMQ1QNrouraJuwJiYKbm/KAtuJ3vp5kzO+F7JU4PL9EC XHj8gXf0CHvBBmu7OB1DqC66LPC3FCGO74/w2/ZE1GNlCsqNb/klaGTuxhe8 o20tAtsrS10LKenLYd8jaF6AK6VegqvKnJFAI6/erN6Nhz4x07av3jwZFN/i nLxZnJEmkdy+oZoTXJLNb0rSgmK3/8V7QrGFzegc+ggPnMpIdZk1FghiZQti k4uewcZ9+nsiwBddrG6CSmZUcoJrZ33+rxM9B+lxbjrjmn+OYFSlSIJLrr7e gFjY0qxeN68XxFdmxtqI1ipnb6Ga3oIEl1zSyoUh7rQWmipqguCzsdvkYhWS ibCLCAywhiHv01y5RbZ5d14hILb1Q77TEPqaVX2X68G+yITV3Khptn1fTOxy OzZ9sY3MhLeNfR0TIgjJrTnP9+9Mtkr4XokTBYkT4MpyrOmvYBxyh9EI48sL nyoLvhNxdnUULM3FN0KT3fQG13DKGXomRtF1c8Fn62kwjXofCNpZS18LqRKW Qw7xkN3ETBhtCnClVExwVZUzEmbkVZ7V20+955gd5r7tZxG2V+Z+bzE09Lx/ 8RTdVFTysFZzgqsE8yttQe09cHXVF3DBNExhM0qHPoIDp7JSVWaNBYJYmYJY 5mpeSUWJtFY5hRq73UwJHEn7VLiYiBmeWIkEbkwNdzKJowbzmGd+HYnOEbkk VwI2c+bb1f7btX/JkMuWra83IBp8Z8HdT9xA6ZgI5L0Mu7s+c7GJcH+XZtcR DvOrPcElIWMggafegUMonalxQfDZBN683gzZuwjHWzPgju4vhGZjg3xZHbb1 Q/4LDkxQ3eNe2v+v+OrshIn83ONT9/kPU5LP5r/6HRkYNJgnpgUFBpnZyHd8 LDZWxJNr/+DIZwn7reTmUui2M+NY0zuro2Oe++sqd2xRC1aVJdtIEqerhesH qB/7bW7qJF3HhR0e+UrIa9zZiPzt8sArBvM71yMCT+tKWAup0pZDBlIrrIm9 oFhndv6kSaeiWoKrqpyRECOPwKzGX0R977Zh4rYYzIUjKifGNHaXfjWmmhNc JZlfSQuKqbvLP+uoT6c33Shlt1LIStZUk1ljgSC29CCWCoRaaesrUYCL+BY/ Oo5nNLh0r4zNCNNbKInEos9hoxg/12c06LKobep7+5KNh0uj1j4Tpythg2nI 4YusSTX+kuQrC/Es6PqI87BnenK/XdoyNppODY9nvpLDtyi2OUB5EuMAH3Rm G2t71xfNSVfurIecFgOGmPvLR9UnuJgmR0qWQRKVlgKb8pQdBJ+NuXmNWTz8 17qIA9xO0gXUDvnypZg3g7Z2vgCDccE8ig2sagTfjiLx81dD5NUTQ//kTHSf OgvHL+tfHb8prAKHoJhJZ++k8++V8NXQdeck5XnGh/uMeozjdeqMAxf4nCrJ +6PWXu6vYE2Wi1f+HtlA8tioTOxtzrxDHndymn3jz+9Pnei48I0gsX38xdLM 1EATVcaB6U0jztuhpfj+iYUn40sh/59sgx16feew8+6S0A7LJa2FlPTlQEnF /gfPZCOWh7HvXCbIsV/xLyLS36og6iW4qsgZFTfyas3q/aTDOfeIiankItZm egFv5vml9JYhEvBO/a67sRYznnUyEsqUHJ9UAa5UdSe4SjO/0hYU/nzeecqg wwyWL+Zzi5YJgSPnYNq51xmHXMEVlMJ7QYGTGlSPWWOBIFZyEJuMzV2bIvIm 5saceAJr7Dk3/uGn/n8JOGN4Hrn5B57kUvobdQyMvk8GJVN/DinUMYltRScN g7F7YHji8tVb30VWpek/EkiWrywIlTvF9MZX+4rSbSTTrMJ6dmQhV19vQDLb K0HXkLGOjHluBSPRWJrFH32XqRmFmPvLCyS4WIkApYTsqE6afHKL6oLks9E3 rwvrhbJd6ngqwJkWNvmq1tkmETxfnBXKLmBak78Fr75tInb0tY3m18cuu77y pPmLy/Heue4m4o9jLRbb9ZA4C8CYdD6nQ7+ZAtoF7HZAMoTbsljHPnZ6/k6k YZAKlFWCPq839Dhm0yZ+KfIP91hP2+DVfXufAuDJjYjfeT69880EMD1nRtkz vPHhU9SRXdqVTN0MijtWK2UtpEpYDrvr/t8xxWmNpuN545tXM1kvrGN8Fp2L M/yomOCqHmdU3MirNavzgyeeBD02SxO7ftN2Mr0DubjvaADTm85OXg/GsrLT 27E7V5zfPSv+Mfmp5gRXieZX6oLCn4fd54wYdR7x4yIR2T9ZnJ/xTJ416Wv0 bUOO6cgGas5RUOCkClVj1lggiJUcxK5PD5PdebJjimMmOnaqa7f/UOxaJXW9 jQo8ahtNx/KlXCgOHHM/RKbqT2ZKkK9EALn6egOlQUQ+Nz+3DZ+kFiDW2HVm 3Hkz+ER61rWcQIKLdo46xQQqSV0a4f1KygqCzyZsOBgvyffweMxjIfxbXoVP JtzKr4GJbwdtlPIUNuBdKfioyY3IjMdpGx7opg+JDMbufuvY/3f11ncLEqqe imhvsg8Gd9LLTjoUdL8/0GYg4qXu4cnrZI23eEhdBd81Ysq8ZmKTXeRWecJx bTr4y6rQqi0OJa2FlHzLoVJQM8FVJc5IwNdEc1YT17e/8Tg/GrX2d7OFAcRO 7IR19COn55vQozUFAr/qTnClSjG/pSwo7tUeaqd8ctj2uTfwELnUFoHSpqMU qsSssUAQC0Gs2pQkX6k+svX1BqoZSHCl2ApqZU6+qFMYNPucovhsG4Fxo45X WICGkR/kqwBnDXi7LbhP55I53OHRwGQbhZe7FVExqQrmwVCMYAHVKGktpNBd DqqhZoKrSpxRcSMPs5pD1Se4SkHRBYUQggIn1agKs8YCQSwEsepSmnyl+sjV 1xuobiDBRfAi7DiqK9wTUyp41N2LFevIoxIoPhsdCLWOzhS40MG23OU7gKAD jPxHY3RHlfoe96N8YQVdFq7DjrsWynnFWLB2AUKBHKA6pa2FFLLLQT1U3sVX gTMqbuRhVnOBBFcpKLigEEJQ4KQiVWDWWCCIhSBWTUqVr0QAufp6A9UNJLhI 6JwwdswZKX69Wwy7a743a3R1na5f0IutEHw2pn9xkS66bGzAc07ECGxyjsbW g4733JRYAR0b5JUkxXfCU6TpxxpGpvO2R1WMYpqKdEE7R6l176HnTfsMyk1a AcUpbS2kkF0O6kFsT2oOjM/K6wmEU+nOSIiRh1nNBZkEl9pLQxqKLSh0EBg4 qUmlmzUWCGIhiFWXEuUrEUCevt5A1QMJLhqql3dNs+17Wb0v1eT6sD2EYPsw 9J4Nj3r606FBQ3/+/sKZn9sOTNQTBi5/bw58yd1DHl9kyrPTkfmhIe8yOclp 45nvd/G1wEQH8avlL39lTDrP+Tij6sApKiYOLlsnQy/BxFczpa2FFKrLQU3w ZPy5qu0VKtoZCTLyMKu5IJPgUn9pSEOhBYUMQgMndalos8YCQSwEsepSqnyl +sjXARmobiDBxUD18tbVnPY8lc8pUCsRIfVLDsg9G74V/DAdqWDmT+eLCvXS PWLynVAkFz2DjdnnF4RjPZQ5C6COmfZfP8cT85+aiUZYRy7c+bXMHpcx6flj A3zzO1t7XXbt98uo+1Sr/UcQMqh2SloLKTSXQ5VTuc5IsJGHWZ0BnQSXVlFk QaGCmMBJVSrXrLFAEAtBrMqUKl+pPjJ3QAaqF0hwZdh66OqvEdiFVhj4oquT 186oDHLPRp98tY3NrAh4IkpEMfc0EI//5BnpbO/rfYV7NIYv+0e6R/zs7ocK QnLqt/Fk7Ouxtrr8l74VhxUF1elqz+Xciye7/R4+1mcmvRKzVHfCzq7+yr1z AQinlLWQQnI5ABXqjEQYeZjVLJDgKh35FxQqiAuc1KVCzRoLBLEQxKpMyfKV 6gN9vQGZgAQXl8Q9h7mep/GEBChxADQLQVF7tt31mYtNupqmsW/XBQYqiZ++ HGzFsCOjN37aSOLJeCzs/4O1zTT0ZWh954nvbLNO12C5+nMC31y4/nZ7v3uB q4eAP593njJgh0e+Cq0k9vDEcnj68kBTnd70O3fomQorgdXeJB1T46AzEN1M EvdBlkK3f2819Y5d/ym+RU5O3Suj/l+Tyd++n+zvmLgr9F0BlU0payGF3nIA UhXpjEQaeZjVNJDgkgOZFxQiiA+c1KUCzVrmYSCIhSBWbUqWr1QdVDuEAtoD ElxZ4DsPr/bWYIbTN+Q4D3oRsh/W6Uz2UJ4r9mqD1rPR1ctNF8WpTSafzXun xs50NWK1jaaTI5PXg7EtatzwRPSu670z5kYMa+oe/Us4vu/P4lux4PXJkZOm xlqd3thjfe/K7XuxhEr2kr41X9N6+e4vM9fsIwPdxnSoUNtofn3M8Z/Ml8KT 6/e9k2/1pf9J3zE4+W1Me1oogGKUshZSiC0HgKDSnJEUIw+zmgASXLIg74JC AomBk5pUmlljgSAWglgEKFm+UnUQ7RAKaBBIcOWy/dR7rkHXOOhZLPWN4I/c PfW6A+8FttCz4Ug9G742Z+vEsO7J0AYCT1N+2Jrb/YoKAABULRXkjKrdyJcC JLjkQr4FhQJaXVMVZNYyT6LRsZALCGKRoVT5SrVBtEMooEEgwbUfylUZBlyR 0k6FiHeLIdpTG6FnS674x5p0zUPeaLVOQabmFhuEZQgAQIYKcUZg5EsBElzy IdeCUh8tr6kKMWuZ59DwWMgDBLHoUKJ8pdqg2SEU0CKQ4MpL8vH02JGatovT sRJqIHd/cr5qdS+o7Xvzgsqz7cbnv7AYGi3Oe3GELGx5YbULOpwRzd2eAQBA UTTvjMDIlwgkuGRFlgWlMtpfU5o3a5mH0PxYlA4EsUhRonylyqDYIRTQJJDg 4oPyv+ZPQnnFPQAZoHq+tFR1YJBitQuwg7Y57QbcAAAohYadERj50oEEl9xo eEGlKmdNaXsUKCplLEoEgljUKFG+Uk0Q7BAKaBNIcBUg+SzkHu23z6le51SZ 4NHrb1jt/keJag4MMtoFPE1PAAAANOqMwMjLACS4FECjCypVWWtKu6NAUUlj IR0IYgFZQa1DKKBRIMEFAGrCNr19zbUIZ18AAAAAF0hwAQCALBDEAnKDVIdQ QKNAggsA1OSpd6CB7BniCKNWKQwAAACoDCS4AABAFghiAQBADzrBddwZehzL w6+rcQipAEA5kiuzU2eHLnnCz6u6yB0AAKCqScZXf80Xhj0OOY9DggsAACSB IBYAAPSgE1x86Ps8S2o/IgAAAAAAQAWz5OkrGI1BggsAAAAAAKAokOACAAAA AABQE0hwAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAIBw9hIbTyKhYDB4L/J4PYGL/fXdFxubSSWe CwAAAAAAAAAAAAAAAAAKgsf/FfBMDnc3YToWTN82MH7l75GNHWF/YnPh5oT5 wLBvbVfhhwUAAAAAAAAAAAAAAAAADsln8zdslqZaHR/6o2PX5mKJPf4/gSfX 73vGjuoNp5yhZ1DBBQAAAAAAAAAAAAAAAJQNPH7fPdSO6TC96eykZ2b+0Rp5 LTEZX1kM+f90ydKCsdVcphGnP7KRzLm1iCfj0blrF8x6DGt71xd9IfpSIwAA AAAAAAAAAAAAAABIBE/Gvh5rq8OMZz/Lk7mifmQr9t3VEVND5tKi6azd9Vd/ YC4Y/J8Z358/Gx9o02M6XZ1xyB2Ow81EAAAAAAAAAAAAAAAAoGzsrIecFsMB 8/h/LRRLTOGJJ0GyRivf9UWysutuVLwcPQAAAAAAAAAAAAAAAsC3YsHrkyMn TY21xDbc2Gsdv+KPrIFAEACk8Of3ne++f/uR8MQUkea6+bltmFpQtY2mk8O2 z28Go/G8pV8AAAAAAADFwOOhqZ6OYf+yCh+diIV/eLAqNoxJbi6F5xcF9t8B AACQyr7NV5917BP3nZ9WCwkjK/Qk4q0lmEqZwZMrc66ho+Zhpz8cIzfgyXhs ftreb8BaB1334prbke/+5Dx+6mL+fnZ7CSKRd7Zz+PaaCk8GAAAAAAAAAGLZ 2Yh4x80NOp2+z7NU5s/GV7650Fan02ENo3c2hf/azgN3/yGigL35w+CW5rYT AABohd145PqYudU0POW9e38xFost3r/rvWw11hH3Z4xvuoK/la1oR4q1BFMp M6SyUHvXmG9fdQq+MjPWptMdtgWfq/NokkkGbXqqn515yO6eDkaWYsREn7/7 16nzvY3E1bHms76nMHsAAAAAAAAAhEnGVx7N373hvGhposUPyp/g2l3xnqE+ vMbqE35AvBuyH6IeueGdmc1yF1EAAFAd7Mbnv7A0mMamH+dksfD4PaeFNELY kf3/qtDDSLCWYCrlBY8HJzuP8ow4vh2YqBfpy5CATXDl55DFqcGyNAAAAAAA AKBqYOJZTG/sG7G7bzvP1KmT4MKTS7fGTIcaez70x7ZF/F7ipy8HW2uaTtrv PAHNEwAAFGHrB3u7ccgbzWtk8OVbZxvIhJPB6okmlH8aSdYSTKWM4KuzE692 Ou7xDTbtWA/ZQ9pq+Maf4MKaTn7s+wWyWwAAAAAAAADK4ImNX2PLG4yADBPe qnBFEQAAAEl2nnpO1/a6o7y7+xdhx1EqDSDuhjWgSXY3Ax+0mD+d5xXOxl/M XCCOilodYe0luDrO2e1j1v5uo4E8+eoeGLY5b/4QK7vKHAAAAAAAAKBlkomE +ufq4hNce9uJl5VyqIvEEEilkgYCAApQ/nX6m896EGvsOjP+xwBPxdRexNlB VbrUXZh5kXchwgqtFPYeuLpMYzMr/KMZD9lN6blQO+wvLdtZ9qlORAADnph2 /aBAYDECAAAAAAAoCJ54dHviWKf9hy21n0R0gguPek6YBq/8c13jHZzRGQKJ VMpAAEAB1FmnmXtb/AVaL2ZG66if6XZG8l1cgxVaIeBbwQ9bOp2RHf5x3Pre 1lyj07WOzjyT/jGqTfUqSHDBYgQAAAAAAFAMUqO40WC5GuG971A+xFdwkZ2k 2hraxr6OaTZWRGoIpFIJA8EPnow/I9p5xZ7Fkft2e4mNJ5FQMBi8F3m8Ln4G 7b7Y2Kz0/aQ8qLZOd+87Wmt0hUXdM0kwoy0Yz/cTlb1Cq4eNwHjXoPdJgfTW Q1d/errU9F59WCAJVhDVpnqVJLgqfzGi7DEBAAAAAKhkqA5cmPmTUBwJqQ5J GlzpWPHWSJNeo7EiakNQAtoeiDzgW7F7X7tsw32EGgyLwdj3lt19J7Kxo/LT xf8V8EwOdzOtR6lmDW0D41f+LvTZ8M2FmxPmA8O+Na3PPcVRdZ0mV2Y/sTTV 6U3nPZG8ySsBFVwEFbdCq5CXP9pbT7mjL3n+eWd9btKM6bC2i9OiuqVwUHOq V0uCK1WZixFtjwkAAAAAQOWTfDw9dgQrU+MtQUgVmd+Nhz4xY6J7iOOJ6F3n GBGM6dv6Rr+4u5RfvCabvcRSwG2zmhtryd9y/n1xU3p4isYQ4Jv/dJ42GXs+ mlnJ36UtGfv+muPy1cDTYhsPiQOBHulRvuMYeMXQdtr25d+CkSd0H4RkfGXx x9tXxroNmE7fOXJ1bkWVvUny2fwNm6WpNn+/MWIBHR27NldQlhlPrt/3jB3V G045Q8+qYT9ZEmis0wII0OCikL5CxVtLWU1lecFXAp/bbJdGrZa+46TaefOw f5nvZ8mekgeK1DsRe3+/2/72QLeR8HF6Y4/1HYfnu6jIJBIx0B3OCLmy8fj9 a2OnTOnXS4uxT9gv/ZsRwwyW38+tSMxuqTzVNZLgksljVoy7TKHuMQEAAAAA qAriPzv7anTGt/wxdAKOErooiv46xDl1f9eg8x/R+E5y+aa1Voe1XZpdL7zd 2I75P+g0vfGZP7ya2E0+9Q41YDrDafeCNJ0SRIbgZdR9AitU+/FsZrSV+Hdm Y1UQRL5UKezG57+wNHQMufiicTy5/s8rg62YrrZp8Op8eesc0rta91A7lt7S ms5OembmH62Ru2piIxHy/+mSpYUp6Er/wIjTH9nI/Qp4Mh6du3bBrMewtnd9 USFJ3SoH/Sm9veA6To47dmB8tpgxkvJ1xFtLeU1ludmLzX5ht9kunSM25gSd jjDfk28Exo3Ej9S+7d/Max931ol8dAuGtVs/ux0iFyyeWA5PT/YZMMx4zh1+ nj0QOxuP/rWa3/Lsrvne1I/OvCD++1bY0Ym1j3vvL8aWwtP2PrpoxnDWG5Nc KqP2VKcTXC8TsXu3r7xn7TM1pl8/1mg69TZKJUAyeky1X7g8oOwx8ZfzUx2c KmeR1DaaXhsYfs/h9oeW4C4/AAAAAJSB3Xj4L6PdTTVNJydnfxMTIO1uzn3U jmENI9NrKMVVJSS40tuCiKvXoBN49IyvzdmO9U6F6JNT+oMPWn2/8f/O7vrs pfZ27tWPJU+fXtimMs9fQ2YIiB5txFs/aAtu53sU5vZTHb2xKoaogUAOMlY/ cHzy+9+KRLM7D9z9h9Kjb+h3L0jVuhEJpdxShxnPfpYnc0X9yFbsu6sjpgYm PifyYHbXX/2BuWDwf2Z8f/5sfKBNnw7364xD7rDmb8UKp9JMZRa0qLhOVzPg FrLoxK5Q0dZSXlOpIoxtLFAXtzU7foDYP9cMepf3/wj+POw+ZyTuDF7wLuQU sFEFPLrcgSAuIb7OU8W0NjNqYl777kboT6NEQRjxJ4zd/daxyc8uWQzSLRIC U52YWubz9t91tp20fTUbicWJt5DcjAauDBnrdIb+ydmiVcRlQFaPqW13mULb YxLsxf7nj47/sBG8PzrQoc8qdTZbxy/Z+Lk0+jpRgErTYBr+XFidPwAAAAAA EsFjN04bmKOpVkdY8G4V3/zO1l5X2lGvIpSU4ErhiflPzRhmGPREi5TB4zsR Z2fHVJiJspgLPo3D/lXe31m+dfbgCddDzv4M/8XVSQayfZ6Y2GdFZwiYaJyv p/xu2EGeRhfO/nERPhDIQY6LccgbFbKNIqZEQ3oB1psng8rfMdlZDzkthgPm 8f9aKJaYwhNPgmSNVr4jabKy625Uww0NxFN5ppJDfN7RQ363xkHPorDtv6gV Ktpaymsq1WR7znaQTF7xafun9jZn3iGzyQfyCL/jz+edp4jCqqbzvryKWPgT 7+ABojlmJqeEvwxNtva6o/kLuO47Wvtci/zXD/GN0GQ3pqvvdIbFzlckpjoR AWAGizO0nvMMeDLqGUwvYezIhTu/qmy6ZPaYGnaXKaQ9Zl6oTDtFy4g/T046 l+RaZPryACsIoH91wv8YgSwrAAAAAFQkuyveM+wOFuMLifOwGbJ3SYuBlaa0 BBcRP/lHWnS65rO+pwVfxkZgvLPfw76weMhuIusfrN5lvsjledDWlfvG1nxW om4CO2QPiSyFQWgImGjcYPHknUHbi67XyCn2WqGNVQ5CBwI1tiLOY1jz6PX7 /1ovJGCV/fPEFDjmjChcmYI/v+989/3bj4Qnpog0183PbcMnSZWe2kbTyWHb 5zeD0epra1WBppKBqQLSiVTyEbFCxVpLeU2lmjCpvLpO1y/53xIe9fST+a3m D4NbOT+SXPGPNRH/1jY2s8LzkpMxzyCW9TJz3nb2py26OoulZ/Gouzf9F2vP iewcgcZU34v6LrmCm3mf/EXYcZSsoxnx8brpciC/x9Squ0wh7THzsveTs4NJ VfHeKd4P1RGghnEh3ZOhDa2NFAAAAABoAo62gOGUc/65QIeLP/UQTcQbzvvR a51WaoKLKjZIv5OmizMF9GHwJ74LNh9zTo2vTY8Qp4q62iEf79WM3ftOi20m 643hL2Yu1BWr+8r/+QgNQbFoPL2DsxjE1r0IHQjUYG4bEdcoTnwVFRD80tvJ wpMHUJkKNJUk9JVV0dkt8neFrlCx1lJWU6kqTPaJV4AL3wp+2Ex+r9PepVyp O+ZFFU6oMi6veXSGqBEjptxBvvnGFeAq8NTUXxT3qpGf6gRMZqmmxf4jXxdJ 5VHCY2rTXaa05zHxmMfCHHXwl2XmJbnsHWIvK2KdzkgZb1kCAAAAQDl4ed/Z 1drlvK9elEWxs7Hwne/mt+FV4S2TKPnT2nbHfQRrEkpOcLGXPoSfRO889Zwm T+aM44ENMZ9EaPwWq/vKC1JDwMiJ8EXjm/5hMqoTKsDFInogVAffDtoO6tgQ 9ox3RcBegz0Rxk64o2rbA4CXSjOVKUr43XKIzG79sC6hKk/KCpVmLSWbSnVZ 9Q83kraPR4BrJ+zsrCe+Vu/Vh7m7XaZSJe/VRS4xT1/G5eUrfsvAFeDih3ai onwo6lOdhq4D1OlaJkMv1UovKOMxtecuUxr0mHub/reZJBV/WSYfzMiSmOyh uEJPCQAAAADqQAWl2pITIaEPalHdjMuQ4ErhW4H30pGiruGdGSH153sPXF31 5BH6/jsmhT+HUZXpdC2K+j2khqCIHC4bwQoX4Mr8rriBUB+iQIK9hGA4fUNY X6vngXGyrECn73WLmggA0qC1TveTXPQMNuqwI2PTkgVhxK9QadZSqqlUmSIC XFsPXcQEyS8PTohl1QjK6dEJrtoO50/bEWdnyweB/Bf0BAhwUdAmvb7H/Uhc pSKyU52FiQ90un73kkp5IKU8pubcZUqDHnMzaGtnMlQF+qLygD9y99Qzv15K jAoAAAAASKLVBBctn5K/3xMCyJHgYnuKNfApmXAgFH1byP2F2MNrpta9ptVx X8ylArSGoJgcbiLi7JZ+2CpiIJAAj9+7OnRYjzV1j/4xuCKw1Ie9sSL2ygOA Mmit01ySj6fHjmBirlvmR9wKlWgtpZpKlSkowMVIn/FonuNL7h56G10sp0cn uHT152y2zlcnZlf5fpwQ4BIgYSakYUo2iEx1PLkSuun8ZOr6jyt85YiZBJfR FlSnfkZBj6k1d5nSnMfkCnAV6IvKC1egnshIayURCQAAAACC0GiCixZMKHZp Qj3kSXAxETvW5VooEoJsBMaNksJRttad1k4RClpDIFhOpMMZkRLMCR8I7ZKM eQbomLd+IpC3azygOdBap9kUym49C7o+9y8Jv4YpaoVKs5ZSTaXKFBDgwncW 3P1kRz++8jk2E6O3BYvU1zEJrvSWu9323SbvbCOqZep52vZx2F5wHSeVvwY9 MWGVfYhMdfqOXsHap0yC67A9JO7GvEwo6jGrwV2mVPSYJQhwkbBlmVDBBQAA AFQkmkxwMQ3NhYe+ZUemBBdT7a/rdkb2XR7h/tyaj5IN5Rxe78R8tgn/r8U+ gql1r3lTTLMq1IaAkRPhKwygRSewg7Y5Oprfe+h50y5YCFfoQGgZTriuG0Bj WIESQW2dcsCf3586Xtt2cTqWb39NbMFOi3lmEStUqrWUZipVh7GNuZUeu/Gw e8hYp9O/OuHnvRy6G7IfEujItgPj9WRFyOD1J4WE1NZmRpuLp8voKiCsYWRa mII3MlOdeGVU9oH/ciUrgiSi/528KOoxq8FdptTzmKUJcFEllDqWyh4jAAAA oCrRZIKLkcxFWAhFpgQXG2cWLiNPLnutuYLJ+KK7t7u4fChT6164Q9Y+EBsC Rk6EZyaz8XbmtgvRAqlVjMCvoIHQNNxwXbysB4AiiK1TFvz5vPNUA192iypR MBRNgmQjdIVKtZYSTaXaMLaxNqtoajs2+0mfAcOM59zhgpdDaTl0AY6M9XmF x42sHqkfDxQszmNlwc56YwKvkKIz1ancUW2T5ZPZlfxvgrl9KTx9JzdKe8zK d5cp9TxmaQJcqRdhx1E2vVXT73mqIWsGAAAAAELQYoKLjs2QFkKRLcHFnrQW ituZn2mfCtM9sIi27y0CLggwte4iA1HEhoCRE8k/k/HN72ztVDTPXsd4GXWf ahXXol3IQGiaFyH7YSbsVU0ZBpATxNYpDZHdGmi2OEPr+XMXeOLZvOtUjWiv JHCFSrSWEk2l2jC20WBhBJHw+C8+22sGXYN57HokXmxe0BfuOJU8+X4ouX7/ q5HDVN1S4TtTRPVIvV7fUkDbfzs2fbEt/bdEKbMhNNV31/yjrUPep7xlbEyG wXDavaDOOYLyHrPi3WVKNY/JFeA68F5AVEchwo7dOG1g7jdiXfZQsbvCAAAA AKA51EpwJZdD1yeHu5swHaZvG5hwB3nlWHNhm/sgLYQiX4KL0Xot1MSKDiYz x+KJeWfvawJCF7Z5ULstKDzOkWMIkmuRO9fsIydNjelQDdMbe63jV/yRNUlV /swrInaf53JuD+Hxe07L4WN9ZjIiZO4R7ISdXf3OiKjNhZCBQBI8sRoJeJ0f jVp7jXoystUbuwfetrvvRDa4GQamBAK5BBee3Hg465kcOWVuJB7fYOxJT5Zv FovuzSuDSjOViajHatAVp1iRT56/LGyFSrOW0kyl6rBSS8RFJDzxJOixWZr0 TRabJyTQijE6XQ0jvny/gSd+C92wWdp6xjzff+98DePkNPC1GdugK5y1TNOv 8Vzjpb9+PXak3faPtf0zOfls/qvftaXnetHSsuynKHWqy+mP0o/z650LXe1j t6KJ/anQ7ZXZjyhVfxFtQ+V9vHJ4TM26yxTqHpMopWMSVLXFteyyoVrW0hyy uMJwOxEAAACoQNRIcKUjKNegqXPsy9lINBZ79L3jeI2uru3CNyuCwlk2NpOj vza+Fbvnd19+x9pnamRihmKkt5lve6P79l7J+GqMYjH83U173yH6p9ve/vLO j5El6p+WN/JEvEUe8cXMhboiofvu+uyl9KaAFD/ZiUfvTlkOCwtdCDkUMk4S pQRS4hDsrIfcI6aGfO/2kGXqu+L7960f7EfGMg/MyuGS8XTjoDMQ3Uym8GR8 KXT791ZT79j1n+Jb9xzmep3ulVH/r8nkb99P9ndM3F0XefIpYCAQA99c/Lvz PJEbMbQNXnLd+sf84hNyHj5ZnJ/x2F9vaz7jYmsk8F9cnXXMa1S0eT1RodEx JFAadzs2++lAU+3+uYLxX3CrGBAylSlZrCVTnFMcfv0i/ucTtkKlWUtppnIf yfWFwH9fTb9Dy6v03pl6TYedEUXytUwhTc3R4Q/OdTcebBv80BN8khD3ZrdX 5n5vMdQYet7zzC2uEy4s7e2WIkG/57N3+5qNFtv1ENl4Dl+/O9FWp6sZcEe3 Eis/uoeO7nux6dfYOexfxeP33UOmNuvvfUHKNz5Je81p98dDpgassfe88+6S OEdZylSX2x9RJJ/OTvY3NJ249OXfgsTiTRONBP/25fgxQ3pRmN+5HhGYvlPg 8crhMTXoLlPIekwubKZdxy3LFATV1IOdPM578YotrgMAAACqm/InuPCY/y1z z1SI9a1MI3KOIkohmIi9uExtYbZXQtdtlhahG7Us8sVs6TeJNZqO9/GT3tG0 STjmY95PwcsX+Iulu1+M9rXpdQZj35jzblTQFoZppoNZPDERoU4pQ1B0h2vg zo187Dz1vH6QK11Cy33UtF6++8vMNfvIQLcxHb3XNppfH3P8ZzBGVfATl2i8 k2/1pf9J3zE4+W1MaBlMBkEDgQp7iaU7joFWjNxMeeaf5Ruo3fiCd7Tz31wR ck6yusfEhDjjXVHoK+I7D6/21vW7HgopBig8WzDDoCcqfhw1AyqmMiWbtcw0 jxPzW4IRukIlWEuJppLzmXT1FLXGDMaeM6OXbAyOq/6IIpvNvQeurnqs0Xxq 2Ob0BiKrIjNbGfDkRsTvsg2zVZTdA8MTDrc/tBRPZv1YbNY5ajHq6xrNVpv3 p9wvlX6Nr7xOFwURVUl/dkwMD5De0WIdtTn+eIt4Rgn5Q8lTXQF/xPmnjYVZ z+TbaYdEzvraRtPJYdvn3sDDDaFWS5nHK4vH1JS7TCHsMXNgMu0EwvXhsy4R 6wyv2fyPJNsCAAAAAECdcie4ksu+kYOWa1nbUqa9eN3oTPGG2WyLoh73kuRg PfHIT4iQSAFr7LLabi2UMzhgulNhA94VWf8w00xHpKqM9CHICtfTb/LM6Pvk /u790TNdmZqQwroQW9/bWo5z7kqwl1MycrhKodhAyA2tIJ1eUm2j3oVCV/l2 46FPOruckR08o8qi42+tVTrJh25LS68rIuC0O7lyZ4KcLQ2m4Slv4OcYtZVO xmPh6c+s7eR8EZjq0SJImMqUtqwlaqaSZmc99CeiX2EafeewczosPdGkbYjX 2OGMyC5hJnGqK+GPZEShxyuXx9SMu0wh7TFzP5/OtBMctAW3BUz35Fpk+jJd BY21WGw35nnEDwEAAACgQihzgitvuBWYqKf8tZDHWPEOYIK3ePkgJSaY+4NN J2xfzUYer5P7DTy9dY7M/mWi5yAdP4ho4aQkrKZoqyMsZxDFdhMT2YhH4hDg iZ8/7yE+r7Zp4BPfvVj2Ho/UWXJfMJPXdjBeweedp57TdVl9f5jLKWXoDq/U QMgLuy2qaRq5VfzYHV/2jxwbD6zEPIOZPZNSW5LdNf/5A53E7qDYT+LJqGcw veMw9E/O5CuwoW9bYAfGZyuz3SMCpjKlOWuJmqlMEYr6Yfc5I2nVDD3/4Y++ qM7UFgkpwFVIrF4qUqa6Qv5ILpR7vHJ5TG24yxTaHnPfh9OZdjLbXkiAi3OJ uInUbWsbGL/y9b2YSEl6AAAAANAiZU1wEduEukHvct5wS5hgJnNqJrHunbNf 4z2q4/wMItvnp94BUoKj5s0cPVjh4ImVB/d+jiWyhTj6yT+b6SYmCIlDkCA1 PbAjo94H/FcqduNhN1nqcNgWfJ7n39O7/mZT1j+xciJKFAbkIsNAKEzm0B8z fxISJMO+t+n/XbP91u2MXq5ifeKIC1PtI/7l4rMNX/KebizSRo2YDDXI756k ob6pTGnSWqJlKsl+kaeo4jfB67GCoQW4ZP+7Uqa6Qv5ILpR7vPJ5TPTdZQp1 j5kLV4BLIJi+7bTNPbsY15rUPwAAAABIppwJLnzR3WvMjW8zLY+FCGayyqWS uhMmo94hSr6g3my7y6/Oiu9EnJ3U4VyJksLyEA/ajOTTSBQyZbt+c456dzcD H5DvokVQwoHzxyQNwVbEeQwT1DdqN37/Dz01eTfLRP3PwZzzaFoHo3AXe7ko dSAUhj30T7+PYyJuzaSNQMer3QfY42iFZIHxreCHzS2ToZfFBY/SA91Qc3zq fmEdZjLhg/TuSSqqm8qURq0lUqZyO+Y730QtqRqBonMVDVeAS04kTHXF/JE8 KPl45fOYiLvLFPIecz8cAS7spGv+SawwS5HQzA3nRUsT0bWzqfu8s4TOmwAA AACgHcqY4CK6G9fl7IDwl6HJFtpfn3BHXxb7G8mYZ0Ancde2teA+TZ5cCtCm zvTHaR0PKHA+Kw42UJTWinpv0/82LYZKH9riydjXY211kjrpSBkCfG16pOGA xf1QWHAVn3f0YPs3y0T9T8fozDPuH2bkRA5afb8JfJgSKHEglIXdm6e30822 70Vsp3Okv5VKGT2bGT3c614sPt12ws7OVwY9i0VnCyG9wzayryDUNpUpzVpL hEwlHrtx2kBtges7nWE0d/jlRCkBLvFTXTF/JA9KPl45PSbS7jKlAY+5D64A l4iltBuPeEbaqG96qG/yroQOOwAAAACgJcqX4CKKq/dduomH7CY6Rsj9p7yw oazYkAlPRq9ZqNDAYPVEi7aeeR4Yby1heygvkr81zd6CqwsjvspUaANPLIcp xVH9UaIbuOhIR8LDEEogtYKUl2jICL8l+1SUrP/JvSLEXtp6zbWofAFXyQNR jO1Y4Eu7zWa7NGq19PV1Gw2vOOaFBs7kNkdEAoRDdrguuU9cETb9w3VCHows POi9+lDIbCHMV+UluNQ1lSktW0tkTCUh1EPnI3UN5/2VV2QoGmJW60uQg+NH 7KAr549kQdHHK6fHVNpdpircY+6DI8AltgCPbF5M58bU7j6Mb8WC1ydHTpoa SXEwY691/AqUlgEAAAByUs4Krvjjn5aydwmUig7BgUHvEwEeV+qZYGa7IfAw nf0g8Y3H5afEYowUGQf+cdzaa9RjOr2xx/rOZfedyIa0mgLxQ0CIfhiHfL+K iag2AuNtWSEcIYPT2p97M4tR+SiTEFPpA1GYeMTrSAfr41azXmTkjD/19DNH u1ivu+gFtiy47c51ekFFVqIha2M6XcX/NDHQ3UJlbdLmC4H1KTtqmsqUpq0l KqaSTpSRyxEBaTIUeBGy9w37lxX4yyKnuoL+SA6Ufbxyekyl3WWqoj3mfrgC XBI6YD4P2g4zz6xWTSmeXJlzDR01Dzv94VicSLIl47H5aXu/AWsddIm9TQAA AABUB3uPvG8c5pZOK4X+8BveRyVfNcC3Au8doP5gjdW7LGRjJG3XxlGJEf1B qm/ZUmUJFIUjfgj2Ht285J4X172HlFXJFOGT97Ma3pnJVfhJrsxOnR265AkX FmuSi3INBJV2FiFd+yLsOMoszrpO1y/i3jWnMZPos2yhbAZtRwR8HXwnPHVY sKwNIS4tJGnG81lbIWe/0aCYlSRlTyam5TjcL5upTGncWiJiKjPldun3Px7Y UO9JqgGRU11BfyQHyj5eOT1mGRdjBXrM/az6WVl7SR0wmV4MJLXnyq5dSV73 bu8a8z3KbYuMr8yMtfH2SgAAAACqHI0luDYC40ba2QpoCkYibdeWOboS/EFL nj7qRYoOfhQAkV0bRbmENdZ81jpG2oIoKXmlxf5jeeJIfsozEPh2YKKe+BTB 0rUvf7S3sL2Vup2RonfKuHB0hwgxbCU0kymB9DYBAk3xkH1AcEJgd8137pD0 8pi9zZl3GhSzkRQcrfJSKJupTGncWqJhKrlSOUXmR+vrN0r3pFVOWVwSiv6I A4qPV7bFWIkecz/bc7aDjKy9NC27FzOjdazpKY9saQY8HpzsPMrTN4EewRqr rzxi/QAAAECFU84uijls3hltoPy18HJrSaHs1uz4AZEfRKhXU7/SMOB9KvSD lAKNXRtNuRJcRErEbA8Rki3EbYLa466FMqhsFaY8A8HIpAiWrs06mT1oC26L u24RtLUzvyy2T5xg0vuvGgFiWemlahLSZpFi1T9sEn9TgwuejD8r0oiqFH7d yD2qlkbZTGVK69YSCVOJL7l72P2vyfqBjR/Hl3cWFVClqi7K4pJQ9EccUHy8 si3GSvSY+9iLODuYtLjEDphZ0mHYIXuofCVc+OrsxKudjnt8mUT60cr6TAAA AEDlolqCi3MKduC9gNCC/Bch+2GxoSzZak0nKv7h7FA6HWHVBVSQ2LUxSBkC Saz6hw+Th4zbC67jtYKEtZWmLANBaLCQ9+aEntLuLLn72bBVcNUNA/csu/nD oLirMUIhgvPit9fwrcAHJsGFB8Q+rn5f77AKpHymMqV5a4mEqeTsI4XfmQIk Ux6XhKA/4oLg45VrMVaix9xH+mUOMvVbEgS4SLYD4/Xs9y7ndfLdzcD/3975 /bRxbXt8/oB58SMPSEiWJR4iRZHFAxGqzANRIksQpUKIpkKmamSi3srkVEBb FefoBnLUTKRTo9uQ5tY6rUVv3XNicU98pNAW9/Y4FUSJe+MIrBznB7nQxE1I gCAHQTAZX894xhiYscfGM95jvp9XMN7Mnr3X2muv9V2fHmz+Ylr2voevsaU0 E1MFAABQ6ZQrwMX+PtadPkgVpMGbcZmU96Nfm/EcF49fCuV6sk6U1aeDL8vu KWrQjaiIwSifguKIhxgr5xhz/mT97hJ1SoUmEyEI2Cq/pd1UQKKomjbvw0Le V16tRfhsrSqayTzckT+/P700OdDJhBSeNuLTw+37+v9Z2NlEj2i3VSb1v1uS sFVmxrCLoygoAG1MEoH2KBsCh6fVYqxEi7mD3QpwJbdmlmqabfv6rueo1Rmc l39WgmhhwcFGAAAAQJIyBbjYp/4u4RKsIA3eIu4EMy3sld9YLQT769OeRC0R J2itqgIVoVmOBHfNamRuLIfO1xeQuKIqWkyEmEKjXCJDbIzFcThdpaKYTXEn VS+juX+qKl+21crEgPljZRlZfNPzqrfc0bJnV6qOhltlUv+7JQlbZXaAq+wp bXsBbUwSgfYoGwKHp9FirEiLuZ3dC3AlE0/9jixlwEKVx4qGXQmdP9jijq7L PyuhR3BDf/C5JkMCAABQ6ZQnwJVlag9uk9zZiM/dm4vLpimL1R/KXdmMALLi j2yq0BDS1SXjKHZ658rR23krhU9Bkd+TOrYYmbHgQBMBerlpNJiITArNcc+M QpmNzBueQoHOVRZZwZP6U2NqauVy+0zu+Ax/M97mnVMyiNVpd9u+OufPiyQc 49RFy60yqf/dkoStcmPe/z5d1HoExaGJSSLQHmVD4PC0WYwVajG3UgIBLnbW 17nZU6VE3U+UsDQ5cLTL/yhHeOu+pzP1UA3tI/dzBMEAAAAA5ZQlwMXOeNvT DoZhuzPGPvJ3HcqRYJ9RB1WcYJBxZhTWL2wsBD6p1doHyI144Zg3B0YTCp+C 4uA99j/0OqqODUcI0WHWYCKejDn2c19RgNpqVvFCYVOyEnW/lT6Jq+5bcn3l qmr7xhdkvyQedjUr+qcTv407j9C1fWNP90DoQNOtMqn/3ZKIrTJLgwsBLi3Q xCQRaI+yIXB42izGCrWYW9i9ABenglWfCW9RjTkLBkvKq1uuhhPeWbmY6/ri zaFmmqIbz4zHyt4WAQAAQKVQjgAXO+ttF6z1DmeM63bt8Oc4unLt2HinSWm1 fqaCRlme/OY9FwkJCTxcgyRe5IYQBc6Cp6A4xMKTIhPyVaDgiXi9Gvv1H+5B R5vFSFWZmx2M79Z8gk2yq8/uTkViUuUNYiNv7tkmFqKBrwfeP2qmaaOl3TEw cm1OUuFI7CFVmLvOJma/s6Uvo00nvQ/yFFKxy//rPmm1tP05OC/5BWwiduO7 4Qsjk49lvp8X2aBbmJsyIS7u2R7IrwqSeHJj6LiBsnwYiO2Fu15tt8qk7ndL QrbKeb+dLlmAa9dLbw+ghUkizx5tgbzhaWAukwRZTHZ+8i8Mc67fYet4u9Vi oqj63sBT2T81d9Vp3WeyjUQV9dndrQAXu3ydaaoWo1uGug9/VBTeYlditwNe 10f2VgsXsTda2hx/HPZdn5VPG94Jl3smvpNsfOo75wmrOfVWpCao1d476Dr3 bxaaNtku3ZxHdAsAAEDpKEOA69Ws9x3B/d/ujG0sjPXU5G4AxKWC8E6GUg3k jDOj5MiWuecyEFQAJfa+MTjGFso9Fo6Cp6A40h67sd2r5pcURCETwa7OBodP 1tHVlu6vgtH5Vfb16rOpK/1Hm5xXJr59zyTj9oupCNXWgUuujkNtg5dvzixw n41NXLQdoExvD918vuNpZMneKr8rT8z6u9OhDHOXbyafx5xZs3LCHc+D/Q05 j1fsetTdkvoTphPu6Rc7J5Sd8bTkEyxi43f9/UdoqqZ5KBQn5Z1QFY23yqTu d0tCtsrNvLvdqw/tfuntAbQwSeTZoy2QNzz1zWWSJIv5OjbxlYthzvW0mtJ7 dg5zJgp5Kfz2XQpwJebG+ixidIuimz8P549QrS9OX2FsB2m6yfHl9+GHqUea mqOnkfGhDhNNW3q8kW1GfH3p4f89S+x89VJ26gNjf5C/m1mJDLfQTQP+qZnY XGTc1WFKD8h0yh8rv/IGAACAiqIMAa7MbdSOFupcPsCRvkDuBtfix5V27Mo4 MyZbvpY3mXsuZT6ARoi9b8jpOF/oFBQH38ubfkc+uV1rlE8EG7/tTnnX1AGb +/aWUEzivtcm6mBInMWyetjRR5zjv2V70exjHydUIekNrkfcLfxZgrK6wkoO 1PGox867l9WNg9cUhCbEMpD9TGhN6rfFa/RqwZWVZDnsOsq56abjzNi9rREq vgTD8MHYgtyiW5sP/9XZXMsN2PlDTMKRrkg03iqTet8tidkq1x/7TvIBl+oW z73dvawlWXoVjwYmiTh7tBXihqe+uUwSaTHFBZvjVRR1Cw25byhEMhW4RQhw ibdC4ueVVAKyLyLeHgtXNnja/2B56wA34uHPm7mLKodvNiveztUhvieVWrYQ 7LeK4v8bS+H/6ueywbjPW1o7Hc6hL8/ZTBRt6vQ+gPoWAACAElKGAJeczAuX 43H00FA4T2OawjVFuSbFnDOTp35BvOciTA2AfRk8zZ9g6vuDRCRwFSXrWgSc RC3d7tWsD3c+FE/EasTDuet0bbf/8fZQzOvlwEd82YahYXhqR1BA9I13+Or8 99/ztKS+v+ao5+6O80JGCslQz9zI17ZtLTZ+ppGmCggWZZeBSP1c9MDz9bES ngz3l+psjO/mbFz4dv4fl76jX1+KBty9LfyWUds8OL5nolvJMmyVSV3vliRt lSu/utLRv9ztw/JSqqVX4WhgkkizR9sgbXgamMskiRZTzLaSz1t7vRz8I//V +3JKr2/+xc0gXmECXOuL038fbNsvfrba0u2N5L2JYF9Mu09woby6T8YkN3ZO +3EfN1+biprctUiD5LvHpVZ25FqS7FJ4qJWmalrcEWRxAQAAKBllCHBlZF62 6pNwt3V5cxI4CnfpN5Zv/rkp5XQY7N5Zmc7IaeVqss5racSioVz5LVqjyanq sd9+oNyZGNkonAgxT0n6Zct47FKeqniYlbnYFcMdkq0G2WcTg1b+e9++OCVR AyiQeD59+WPeVy8gWCROt1xWTwGnS/GyXrxQNrf1ur65+sMlexVF2/3zwm+9 Xl2KzUz/cnXks97WOuH2mW7q9k7tjcrEDNpvlUk975ZEbZViqkO+EmB2dfb6 9YcyD7qUS6+yUd8kkWaPtkHa8NQ3l0kSLabY7lA+dTOjW1h/PpTnhoL77cTC L1nyWcqWeWJ5Lvy9eCvEYzzm9E0t5jf3ifmAs477QA4VelHx3pBRgFyaHGjp lNqgOOWBfApsgs5kVQ8BmzYAAIBKoQwBrswFVlbzaPbF1MV3Dp3+H0XSl0KC dyHZ2sK1FG2yfTW9/Q6Lk2twdzXQ3A2XJ0Sa1mXKHbJx92m0zUeQrHYRU1Ao y4HeKoWt3DRB0USISlMpf617TEpOfTnENMm5/eIZTUZHJaMzI6eLu/qvy91N fA1g51Bwdod47fpS9McL9gbuF4xvDvzjruJgUb5DtPhkFIoJi3IrlGKq6myf jW2vldgLlGOrTOp2tyRuqxQTPwzHBn9+JLFk2ZXY9ZE+q1m+6KnES6+SUdsk kWaPtkHa8NQ3l0kSLWam3aGcABe7EjrPX1qYT/olom7cbzwLj7qHGI5zA70d fEFfhmqL/TSTiz/1O9qzP0LX2c58/VN0SVF6FLsw3lfLfTZ3KqDYJVbIzeNK Qfd/EpCYoGwBLnmEP1dcd0gAAABAinJ0URQTAExtwxOzsdhc9Bevs62xa2TH YUoOUXCjIL1NQViANlr73N/fmomleDQzHfQNnbIaDcbG7uHx6BKB1U+c4yrv wpWNoqagANiVybP7ZHWVy4GiiRAFn+XqMsTGUlIOZMY3lvmvxU5hufqhJ56E Rj6ycv5tlbn5PecFz2Vfir95hs/2pFOh6IM2ZjRcWFxCLAORO0QLT6YgFaDU 2eGnr8/Y8oW5quo6znwdIHJhakNZtsqkPndLErfKjXh0lNeOq7X2fjkWis5x TzI1j6Fxr6u3td6Uerw/3Zc/OKux9CoVVU0SefZoC+QNT3VzmSTSYubTghO1 vwztI/elK5czlxpFQxstb9oczs/cvp/Cc/ECdumVqPst/nnmq51MnxooY4dv Lpl8EWKOyhQYZgtwySMEuNJ/DQAAACgFZQlwJXm/wvsne6OJ8ytae4dG+X7Q Skm7c1ThkqrZfai547PZ+m4v8xf/5H3iDmsCRf+naqP2wOJhl7WADkeqo+z/ Fc+bciNnYz4b50FK6u6KvrG0mjS7FmLSahpZpXzSQ00sRYM+N9Nr55uVU6Kg 63+MXL3+QNlN7hbyqFhnBlZEcRCbiP82PcbwlVzVRqNB9M9b7b1nh70/hu7O K2qiXtmUZ6tM6m23JHarTM3g4oNJv3ugu8NqptPrse1954VvruZ9kiouvcpD 1ReANHu0DdKGp4G5TJJoMfMIcK3c93Cy99sV2gkhk/C2WXsogxDg4uZlLepu Ofjp5LJkh8t8AlxphF2ups37kEC7AgAAQJeUK8C1S4R6BKIu69VAaCetsNuO pqg6BemrW4Ia3yuaiI2wKy0vJVOXkVEUaWJCOxSjuQ/z3ry0mrQoaaJ5h7h8 4jbiwIo8V4pHoZrBSckmcWCXYKvULSovvYpDvVedOHu0FeKGp765TJJoMXMK cImifPSR0//8ncAtSux6KdewMgshwEXV9DBMy5uDE8+kay1nPC05cudExIeG EkUAAAClQ6cBruTLyPAxKp9WgO4RPPaG/uDzcg9lJypOQVp3NE8fNy1RNBGJ mM/O+31yLZ8Et1/6wlpwGmXuMcViDYp+2/NAS+EjxSpARR6vhGeS75IdFA22 Sp2i9tKrPNR61YmzR1shbngamMskgRYzhwAXu/7A22mipbs9koGorCWrWLaJ GOCiqOom5rqMOCYnwFWT/51ce+B5my8F7drSSAUAAADYDZwrYtg3MJGvUTJx cMqWhpRZfMsd1d3YFSJ2sm66GNlNo3nVUG0KONfIkKMPkdYonIiMxy6TcSGW AGRdWC+Ghs960/ohgtMoKRTMrkcu8mK72b25tUFUAZK7ihXKTLK0nV/f933g Ci4qE4l6dct1kHuHFNz0giLBVqlPVF56lYg6rzpp9mgbpA1PE3OZJNBiigt2 uwDXRjzi7bZUU8Y3BwOERreSmwl1CrSw1iYHavjQY9foI9kia64FcP5Y2coN pt5QDscGAABAZcMm4i8KEaIkhxch5jBFGeqZG5V5bBPaSddK9l8mA5WmgHON KOqwK0yGcLLSiWDXJgd5v8/ChOISPxZKALIqJlYmBg50C3oXghKF1GfZhclB PovfdMofK1xEazeIKkAySZ5igWFWfQGXTtAwFH6l5J1lX4WHDuYqwgIlAVul DlF36VUqarzqhNmj7RA2PG3MZZI8iyku2K2pdGuxic87TDRt6fFGXhC9MgVN fgUBLjHZK1f8io9P1gxM5kyey4iSae7YAAAAAKTCxq6cNNGU4aTvceUZR6Gd NN38xTTBQtuqTEH66pYUydxCJkJwEaV6QiVmfF28Iu7mT7kj6oFNlZL0/e9O JQp2dfqLcml3iCpA0qdsdvk601S9tYrq1az3RIPrljJJIF4bmYOk/l+VCLZK 3aHy0qtYSv+qk2WPdkDW8DQzl0nSLKa4YE02MbLHxu+NMcdNVG2zczSqtO9t +WAf+bv2bckIlfqlxOLU5b7D6e7HMlr6/O/NeFpqjMaD50MrcjOwFhs/05j6 Q6YT7mmyQ38AAACApqQvgKqbXL9WWmaCcA3a6AzOk236Sz8FnGskKzyrOYVN xHLYdZTekT/Axu/4+lqaOtrfyL6wZp8G+lr7AhmHPX002JarzyZiPzgbq8uk 3ZHR6aWoqp6xhS0uOhu/7bYdfqujmRc6sQsCGusR99FOpfVBGZkUuabqoGRg q9QXKi+9SqbErzpZ9mgHZA1PO3OZJMxiZhTzuMsadvVRyMfY6ox1NsYXzt2S kBxEobDavjGpIbOrT8JXGFtjm9N344b7OBfjEuXo2YUg0+WJbO5SGwtjPeZz f//BeaSJ+WVhZ4VI4vn05Y8baUoHiW0AAACA9qzeHm6uoQx2L4Ftl4tnYzF4 po4y1Dl/XiTf9pd4CtKKIlr3CpQbTMETsXrn264Gmj7Sf+XOUoJNxGORwH86 Gq3d34YX1x+NnaqnqFrbyL9W2eUHox81dXofZKuUsC+m3SdM9OG+y+H51dfs 6tPI+AV7XbXR+rE3/LwMTnJGxZq/rTV3uSdnlxNcUfNc+PtLDmu7c/ROfIWf feqN/sDvicSTG0OdhwavKXxWYvskBW2bwO7BVqkjVF56FU4pX3Wi7NFOiBqe tuYySZTFFAW4DMd6P+1pNe9v7DrvCz3SW0rp2vzNSzaTwdR21ndzZnE19U4l 4s/moqGA78t/76i32JjR8DyX3sUuXhtsrOaX2Mrq/C1v9zGbJ5K12BaC/S29 gWdsfMrbbW10XBoLRediKR7NRK6Pez/rttbS5vZP3NfmVgl4bQEAAADiYNfv j7QbaNPJK0TcYJYCofyk7oxO5IJLOwUvw67DFGV1hSV0OTSmyIlIPJ/2X3S+ f9RMV5mt7/YNjYZiQpo+uzp7zXP2/WYzTde19v8tsrNsgV2JhUaH+t61mqso o6XNcfbr72/HyuUECirWhoYL1+4Fv3P12VstqUN3lbn5Pefwf4v/FFez4B/6 sCP1I+OhrqGfY0oF/TZzVPIpdYCSgK1SP6i79CqeEr7qBNkjKQgaXhnMZZIY i/n6rudoDW1uPtHLuP2T0Wd6i2xtwiaWogEP03si9dy5iktLq713cNgbCM/F E1t+LTbh7rdZjNXmZgfjvxPfIqs/NfzGe0JmaWIh+s+/Dg/22js4bI5+Zvib q9wTQmgLAAAAyMHaY39PLWXu8s3oJBU8J+zCTaaFpluHwkv68ZFKNwXsQ29b DbXv7KSsdINW6HIiSgi7FmL2b1WxLumfv+dpSYsI1dr9j0v/94EE2Cp1gcpL b09QoledHHskCTnDq9jFCAqGK5s95I4iggUAAADshrRzZbJ7ouW/x9wdifmA s46q7/bP6uwEWqop4Br00PsGJsotJaPbiSgZYoYV3SVcxZaWeb+dFgoUhyPl nu29A7ZKHaDy0tsjlORVJ8UeyUDK8Cp4MYJC4QW4cinVAwAAAEAZid/GnUcM jWfGY/q1qxvx6a9sJrPNfTuux0vQkkzBxh33mw7vg/I67DqfiJKQUQFS6Sp2 /b7/wxaj8XD3yB5+yGUBWyXhqL309g67f9WJsEfyEDG8il6MoGAEAa5yDwMA AACoCNLebPPnYfI7MkuQ7v5zUN9eor6nIE1FTMTuEVSAcjcNB/pE3+u00lco ll4J0ferTj6VvhhBoWQLcAEAAABg9ySeh739na6bpF64ysPOjv7B4Qo81K84 qYB+pyBNxUzErsioAO13jD0p92CACuh3nVb4CsXSKzX6fdXJp8IXIygYCHAB AAAAAADyyLQ4PO6ZQRYJAJqBpQcA0CkbC2MfGPuDL8s9DgAAAAAAALJ47LfX cofshuEIKnsA0A4sPQCATnkZdnX0Bp6WexgAAAAAAABkk5ifuHiq+5wv8gKl JwBoCJYeAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIDO+H8nU+I6 "], {{0, 178}, {1611, 0}}, { 0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->Automatic, ImageSizeRaw->{1611, 178}, PlotRange->{{0, 1611}, {0, 178}}]], "Input",ExpressionUUID->"22209a17-83ab-4acb-90f4-1a33d95054b2"]], \ "Subsection", 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.7422199554720297`*^9, 3.7422199575880423`*^9}, {3.7467909251350994`*^9, 3.7467909255028553`*^9}, {3.7468324978528833`*^9, 3.7468324981036186`*^9}},ExpressionUUID->"3a64254c-82af-44c2-b966-\ 898a7cdcbdd8"], Cell[BoxData[ RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", "=", RowBox[{ RowBox[{ RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{"(", " ", RowBox[{ RowBox[{"-", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{"Bt", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], " ", "-", " ", RowBox[{"I", " ", RowBox[{"Cmetric", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"Ft", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"\[Gamma]5down", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"Gt", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], " ", ")"}]}], " ", "+", " ", RowBox[{"I", " ", RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{"At", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], " ", "+", " ", RowBox[{"I", " ", RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{"\[CurlyPhi]", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], " ", "-", RowBox[{"I", " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"\[Epsilon]downupupup", "[", RowBox[{"mu", ",", "nu", ",", "ap", ",", "bt"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"Bmn", "[", RowBox[{"ap", ",", "bt"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "nu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"ap", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"bt", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 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.74222001333444*^9, {3.7467918697920494`*^9, 3.746791928704928*^9}, {3.746791968956151*^9, 3.746792112251458*^9}, 3.7467921713634367`*^9, {3.746792279978081*^9, 3.7467922815621862`*^9}, 3.7468070365364637`*^9, {3.7468336318968525`*^9, 3.746833908725961*^9}, { 3.7468340247915945`*^9, 3.746834030822856*^9}, {3.7468383208540077`*^9, 3.746838321475814*^9}, 3.746838694099639*^9}, CellLabel->"In[92]:=",ExpressionUUID->"a4194e54-7603-4147-878c-ffd04ef15266"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "3", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.738583861309019*^9, 3.7385838765788927`*^9}, { 3.7467922485866156`*^9, 3.746792260986814*^9}, 3.746807037572306*^9, 3.746834055321657*^9}, CellLabel->"In[93]:=",ExpressionUUID->"e08bedd4-6bfb-4f6e-99e0-3e51ae2b0770"], Cell[BoxData[ RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{"Gt", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["Bt", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["At", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]], "Output", CellChangeTimes->{3.7604679541443443`*^9, 3.7604682418257737`*^9, 3.7604703404262023`*^9}, CellLabel->"Out[93]=",ExpressionUUID->"1042f79d-b227-4cd8-b8a7-4daccad15659"] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Vector-Tensor tilded transformation laws Dia[2][ii][aa]", "Section", CellChangeTimes->{ 3.746807398335127*^9, {3.7468414728097258`*^9, 3.746841476141816*^9}, { 3.746842702353899*^9, 3.74684271348251*^9}},ExpressionUUID->"75f6db08-107b-4f20-80a9-\ f097134ae36c"], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnX9MG1e2x633/nl/zB+PP/kDiSfLkv+IFEXI0oKiFfxBlMgSRFshRFMh EyUP0HtZk80LbKpAqgZSta42Ab3G7L5Yba2s6nY7ym6cCHeL2+JUNipO6yhY qdNAZBKcBAoEOcgEm+H5t+/M+NfM3BmP7fORWjUpjOdez5zvveece85/HNf/ 7j//RaFQnPm36L9+1zPU8oc/9Jx749+jf+j4/Zn+3t+fPHHk9/9zsvfkH35z /F+jf3ku+s9voj8f++89AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAciS8vuj+ 2nL1nVNtDYQigaq589TI1S9mvC9CFO/rbq/M/aWn/dLMShjjzQIAAJQrYGx5 EH7hIT/sa1EpclKr0RlI91POE0i99FrONke/CUI75lzlP/0AAAAVABhbPuys z5Mjberck4ai1g5+4gpsF3dlKrzu+WygNbZaUPVMOJcrUeABAACKBIwtL9L6 m4DQdAxeuT7lmHPf987/OOe4fX18sKOhljl/qmOGqQcb4bxyTW0u2q/2auK/ qzppmn9ZWeIOAADABTC2/KBezptOJjefyvZB07R3NctGkwo9dZOXOlUEffqi O9MrU761LKpNbQXcpEHXlPgFouVt0ldZ8wYAAMAJMLb8CD+ZHjlCJHaXQ391 r+TfXVLhlTlzYlPJmMDud6+R0y63x+v1uF3TpOkDvTa9qyWUbe/bi923AgAA VCJgbPmRnrfoptL2S7BIAaY2F2xXdBrWzjQrRJPuylcLwYi4AwEAAJAzYGz5 sfuYPH4grr/vfeV/xTmjJPjoG9OQVslS+wxq7aDJnnWXCgAAUD2AseVPyE+e aR8ifQL0N+ZHvfWxYfCENh34UzZ36seukd/eC2xhdZDuhgL3vrHedlTmdwEA gNjgsCHh9QXXVzdsP/i5mc3yMrbZ4DnwqiKy7rrcllhOEG8Y51+V+n4AACgv cNiQTIBJUfOmxb+L+x5lS9UOnBO7D81H61M7XGU3uVTqGwIAoKzAYEOoLdel fWlPW80Z21qV7CyqduAcidw3HqxJzVI/ubxT6hsCAKCswGBDImu2M6lLEOrT Uy8qKvM7D1U7cK5sB+wfdjYoGzpGrrufQ3wKAACO4LAhoZ/JoXYloekc/buQ SFP5UbUDBwAAAAAAAAAAAAAAAAAAAIAKgQoHvjf2Hqzpta6U+lZkQcQzfmBf 28gNCHwAAADIgEhw/hOdilAQRy7MPIO0qThBn7lXVZGF6QAAAMqMjEiNTD+B tNUMqSriRMvFaZAqoGygwhs+u+nCSW0DQTS0nbr06TePiq3cKAuCvs/0mqhB OjQ5/7qc7hsQjZRIKRr6yEUQKSbUqnNMS+CUKuE2ZGfDN2MZP5e4grZ7YPTT bxerwjlZ6oFToY1nAWysBsV53SJBHznUUq/qHP1s2jn33bU+dfT5rWs1zG6W h8mndh5d70qei+slA2CTACq8bB2IP8YtY3fWy+MxlpzwItnXEDtK2np5blOg VRRsQ8LLTmO/hlBrB6+Sduec44ah+4AC+46PioQjgp8GLBdJI83AC9yD26DM XXOXJ6rmjh798GUT+a1naVO4UaZWvr3Qom4Z+Wcg2bzypWv0YPwkdJlU9qOW rP0NqclpNriDpb4hoMRQm7OG1rpYIYTOj3/O0haPQSS4eOczg74tWW60tkF7 YtDw8S3308K/yvG+dhb/frq5LlbHu7l7aOKGW4JypvlvaP27EU10hUeo+kh/ /t61+a8j0IYkytmpTkzOpU8EU689E03xS6j6bwZwTRMeg4xvMSzZwAvchhg6 hVLb0PH25K27gRDfSoXUsu10Y03X9Uc76RkJug3NiYsfMj2QfQXEyJr9vDoz IQdHXS9LfUtASYk/0rFnQdVvWdgq9MP0puT0l0uju2JbwOdU2PGa2utpn6B8 Y/TWw5I62CObc5fjrQFVnab5EL9rCLQhCQ+kqtfso68wA2R3YpaIPny6ICed knLgBe4k7fd7uuj9MdYL8tpwB7O7cex5bRuxzHh8S/m8fote95zL/g+z8dLZ Dg3jEoTmxJWpBxucV0TUlvvDRuJNkw95nanHls7E20QcGPfI3DtMbTrHGmvQ mYSqudVNyE/q433GVV1mX6GicrubjnfUiryojhlmnmKxSrTioplXt9Q5HtSa a+xQ/E7aDXNr3DVToA2JrDsuagjtmHOV8dHUork9OUf4nCT0QMyS757b7bTf NI8PtGWTr3gn38+nHHNut3cRMcW/BgXsPVNIO3DORDYd7zIf1/ox1zangYeD S56vmJ28ajW9k44lLk3BqKfWvn01fVa0ziH1wtqXNPz79bbnXO5KeoLzxk66 ZJfFHhAQCWpnwdITXwcS7SbfTsFXYTfo+Zvhg2F9t7YhT088ngacwZpjuDH7 9dXn7SUtiJ3y/vEKVAm0IVs/GBrrNCPfsWKI1CvHhbrkBHWYfDy3esVCbXgm OuiPAKEesC5j0KMcyGTgeViz6WtoM6LotCzxmQ8qvPFgynBMhV5K1TPhXC5y eRZ/nBoG7avI34VfWFN3V6O3vpBzTgKaPpFBaXDL+aYBEUklBigUhw1ubu5f KrTic35p0DVl1yv1kE3guxA7XZtLC+uPmh+WdHG1s0z2x9+kutbxu4VcpTSE 2ZD452avpr7lNaZ2FXUXHJxb8nKG5REU1TMjo4HnhO0j7SYD/C+3HXB+1I36 Eokjw9ZinN7x6vGM5ibUoqUreXOMNZLsoKVPIKOHsgNVSviFbSjuxBMQgA7/ Ov/l2y1Z9IRQD00L2lOtWHvzbNnazYulfddC94xt9fGB0j14BRBoQ5bIbnWj 4Ycsn0f9Ym6vS2mdba34gfCFWrJ00r4SUSPdMhp4TjDr1F4qKbQuc8HinN7U hu+OewndWO76TIeSl9jXZ30qY5lKpk8QSmU945XnuTkFypyYIyWxiue8maKz HZi+mE2qhF121297p/+tXP7F2nP2zdK6q9NbKkVND7lc9BskzIbshjZWN7Lm gGWcTnXt5l+keKHT2QtJRI0NyWngucCvU3vIqcaMVHEvFBP0jGtTL85ZOTeR TKZPEEfHXbdHGUIFjr9qhKeZzUE6GYMuJgM2wWEqKhz0z5EGnaaWfm0ZnPvL CP2hMRfvgWKxIWiM5vC4R5LTMZLqVC5KMfBciKJTe8kEEvSyxeTlomQeVEXt oH0Twy2JRCJ9Iu6KQduGJm+95EtTQHIyj+7BYcevGC6YTm5HIY5b/K8xXDyq Viuzk7oD8tKpve0F81uJlS5x1LzA7x3CY0OQGI1kr7MsdKoUA8+FWDoVSzGd M7SjjgWi7c/zxR5WRPNmGYFRWZFKn1CdtgZ24p5exmzK4ZUHpCSyZjub3J80 fujGc3aW2vGZ2plOOozZpOmKGTJ6aKllsicpMvycnJhsCBKjIXRksaHGLY+p X9eNoNO/c9Vyp9gCRLx1itoKuP9uHNHTPrtb91/mec5rGn4DFwnxdApJMU1R zCmSBL86hg8mf2nfJVeJD8rnJpk+kR4XO9233ejllLIElDm7D81H63HrSJQN 12gzQ6iwJjy88hp/l7wsIxWhVMSTzJOSzMfJicmGZGI0XL7Q3aeO//1jdzPT X1tsASJ+OkU9c1x6g3n2Klbe8J0/O55yfhT5DVwkxNQp1FGfegWyZj+y2LQP JpekxL5Rp1wNfSp9IrNPTJ985/iAARVCus6MAvd5E2rHO9nKNEG4XH8xIl5j 0qwfNHplIFOxg8/2c7W8R4rHhqAxmlaDm6PvMLzmu3mBkQZDtE54CoomH51K p5hmPkrV+Se7n182ubCBY0dcnYo+LTPDavR7qmkccxYq/oIceVBoxz3IF0Rt Ls66ZVK1OFV9Ao3zhgNkL302oSRFVfHSbTic/OYPmXx416C7D0yHGAkPWF3i qWR1GYWDM0t6rqe6cNkQ4TEadhqMsstSaB/MQ6de/zTeRA+Oq89al3kXj5VT cGpPfJ1i+ysKLo2Q/b6iacKDtMaIn+OTSdE8JH0ic4PxExy00ZY6nxOQki3n 6L7EqqzmoPE+7uVUyGfqoL+rxH7DHLYy1knbqNKRfrk8sagp4KT7uGwIlhgN ks5R7Fg46xS17Tbsp/1KfbvJW1yQJev15BSc2pNAp9iVxGpbjffzTCDlt3Ql d2CMRVR8jSQL5zkjfSIDezohM71qQB91UVwlGddcGmwH9NKGrqTlcZhsL5qP pYbK4caw2RA8MRokPT7JMfNi3vUFZ51irWEE+oRlFZzak0CnUEdxinxhTWRL wphqyk/27FMPz5TeKcFMn0D+T6ZsY5ISn+MGpANxHYjkKnnlGK6jP17Yqtmk bCl2d6UwkIO6RbjLkuCyIbhiNEigLUkhhy1nnXpu09O3U4K+R5kFp/Yk0alM veLMtI+6NnL8NJKKQEtnorY8E62EwNP9WGCnTyAwHzAR5hOQJ8jpOdFcJSxz pOixLPH37mRIeiyL1wKp2Halz84XXTwNlw1BYjTC3DiI2iao77Q8zjcUrjrF il0KCzJiGzg2JNCpdJ+yDDVN4z/l2JRmNrA0j9mOz9ylFlrWDAfZ0icQwPFX rSBbaTGCUwnYISosCaWpvNwi03ElZdnam8piK3aXismGIDEaoUcAWMvXAlaB q06xC9cKsToYB44LKXSKnQWXZ1uayeytH3UlfbjxRpM1LWMzKyW3+FnTJxDY JSlKW2cYkAg0hUa8k+lsD5K617os8KLU2vRQLCmXkIVTnQkqzUWeRsRkQzIx GsELD5bDFrNOMdteCAsqYRw4LqTQKWrbNVbP0CnilHUlxwSkC1moThinZ13T fx3t3E80n7V4X5ba3OdMn0CAkhTVCeo0KBQlFwArlaKQB6kwm57xo/GkA3r+ tlxApbnowWKwIWiMpnHYISzIzHW/w1WnmD8v5DgM1oHjQgqdypanlH/mqc3F bz4d1Xc1K+satCeHJ23edRm4I3KnTyCwS1LIKoEKEAfUVSLqDpqrB6kAVGj+ z21xlcJRMlcU0OBO3bCj2HKoQm0I1hhNOemU/IJTexLpVJbsgvI7AJs3fSID lKSoSlDHjqgpc3gjEelOT0L7j4gJ6tSSLFyCN0bD+tYKpAGXUKdkGJzaK6FO ycbzWRwF0icysINxGCIIgMxBzyOI2xyTldnF/+My/c0FN14UFdRG1Y+5tiW5 UbwxGq5mlqNOsfoqCoiQyjA4tVdCnSqvPLhU+sTpqUKZsexIt/AIgsS8WrBd M8iFa7aFkja+KQ70NRL5wWYFQHm+sJF15wfJ0nM1PeZHci2iGQMdsjTRXqTo PZ6wHcdvjaNOsaw4bx8O9oFjQhqdYn9KOelUKn2iptfiLxxpKvvM9GxfVgkp h9lDN9FiV8rColNoI4/6NuM9eQdQV+2DDanR4vOiUy991j/1taiV2rc/Z+RX hH3mzlS3ejxhO3QIcQ6Me/LsVbjpFJr5kCDvqTpJB44J0KmCJNMniq2XxdqD y6mwZzFQT6ZO/zZ7R3LpIX57euqJfF6XHCChZ9EDr6wAKI8XNuQ1pxojFlW+ u8SgQ8aV878bdL2XbuRK950ihcdruk0/Y5FF9AmJkz/ZhptO7SxZeoq+uMQD x4Q0OoUcKk9TJjqVbEzM4XVO1Z0Wd0oBGYEaUrFTeQXrFLXqHNMmn1Ci3TAn 38BUCrTKH65lAK34ALKSpMJ+sk+VmJ7GAasfk41ihwPyHl7gplOsQgr5qj5K PHBMQHwqP1t3x1ujW+qWEcdKsa8ze0rz7/GBskccx1R2BOrU1oKlP9Vmor5t wh2UvUrR3aq4yqK+8oynOrCoes2+xFe2s+75tE8T1xPiyLD1IcbJQUrjJsi7 MeSkU2iGXoz8+Q9SDxwPJdMpeZThLcCWz/RmcekTCOw+QeUhyQBv0JiRnHUq vDIzlm7bV9P58c/5TljIB1oOLaaXidpZsPTEtg/qttEvne45l528dlGniZ8N btFP2hcLdcnjCtMs5Kkdx1GnmMUo8lRP3SvBwLFQMp3ar7c9x/45WIluhD/X FZ0+gQAlKaqNstCpSHD+E50qpVIqPcntqc5N+Pnc5AkV8ZZ5QaQqHGLoVJTd UMB9Y+Jcb0ezMtaeXftW75DBZHUtrIvzrrJqM+Y5Z8dBp1gexXzdKJK/Iu3A cSCJTmVLoyiyVFfpoJZtpxtjDYhHv/YHOOGzDmrogxWxkA4gA1CdwlTAPCf8 dApN8IvZvT/acRR0p0Kr3tuGzv0iCzQtn618nRPUMtlD2/jkrlTDQacYmYQ1 jYYf5G1YeSGFTrFjiPLoZZyPZPoEJqAkRWUj5QEfHjpFhQP/HGlJW3phYSkq tPHM7/O4pi0fDXc3EZI85BIeTxMT6oV9qAn55nK7/orWKab2CWyPKFuk0Ck0 XSc1nXLoZZyHZPoELuTv5ASEUEqdKmi3qfU7YxmRItQD1uUwn3ePaSoITcf5 j0zDbak/g04VJBVKSKM+b89aQK9YnUrXEE5Qoxn5bl3OdpU3UugUuzSr/Nqx 0UimT6j6b/ISU/b+seyKGQKcQHVKbIc2N52igvdMqaNSMW1p+8gT5Jl7Glm0 XTYYxk2fkVa7y/MwEAzTI0fi6RTaM6WsdSrK1iMzugGqazXMZklcKEqnUvUH CqpeBSCBTrFbMsl6c8o7fSJD2ZekALghZR4Fs7JBnkeLKVItF6cDeOOk0uiU SHkUJWLnoaUn86VkP8JWjE6F5k2dKuQ62jHnqowX/8IQX6fQEp0J5FWRg0Ey faLY6hNZYbWZ5tKPACg/kJ6zousUI5s0Z/VIhkgpVCdN89g7uIFO8YHavDvZ tT/z1ajP3PDT60cU1Kl420fE43dAZ7onu0NPGBFdp177Lcfp5RmahuwcTiNJ C/fqE1mBkhTVBeqLk1insrqUqXDgzkQ3umjvmPBsiPDSSa9TFeJCz7KK8Pya 0d+8OkUFH5BDhzMGhjjYZ65okdoTX6d27htb6W0ICvRvKinJ9ImCzTsKwZ5V UXsSYQbqpXMF1SmRc2aYx0XZZQ0Y2X2xCgMj00/E2YNIo1NSlk+UDir02G44 lvHcEa0D5tlAKG4mcukUtRWYvT6kVWd+SfPfprnn5b7BLIy4OkVtuT+kp1DI eTOVqj4hvBcPs5JJWXkroF46ZyRc8DO/HYY67Ib8U1KJ1J5UOoUuAw6OuuTa z5EPO+vzNw26THo/odFdNFldM1fpR4Kbhq133bZPL6IHAZSH9cavfRsyaHQu AaLqVPiRRadGLk2o+kg/r5xY8UmlT6iHbC+Ev9ZowCIx9FPWlTJJxYF66ZxB MzwJcas5oo2DY6BnRekVJxRii9SeVDr13Kbfn228lUJ0l+S+bRrtbVEW89rV NnQMjltmqkWhEoioU0iV+AQYS7VgJ5k+odZZHuF4r9nd58UuUwCUkohnPB1s EDdnhukRSh/X2g7Y329TSilSexLpFOqdKKP1Hneo0Nrj+e9tn5vGh7vp3aqU Wv3YuOkLm+Onh6uyjZqIiVg6hVaJTyC/WvEZUukT7SbfDpangH20GUpSVDRo 5oyYOTPM7NlEH3bq5bz5lAZ926QQqT2JdAq1UVXSeoBjP9/KRxydojZnDbR6 DrLuIJC8W+LouAdXP0NaJm0cXP3dAFkS21CldELMiBrzfY3a7eDjr8beoFeK kEak9iTSKWQNQO/rV7mATjHAr1NUeGV2Ek25VNS1jPwzINOwVPR+1+YM7XjS JxBY81o5eUpANtAYinilk2iVGeIGrG8QzT+XVKT2pNEpxKeav7NSBQE6xQCz TkWCPnIITTdSqNvGpuUrUnvby9az8SCaNrowxXhdNGCRMB9V4rGoVtCuDeJZ FVaHcQaMYziiI4FORVasp1LbqapxSoBOMWD22MrfszgfVPCR/Wo/3UneOmC5 L1t33x71ym97N9U2DvMamFqydNLntX7UBb09Khe090TOGhGCYefnIG+b5pQZ f8WJ/EigU0ifdKKvSvq4gTeGTmTT8e4+xuOeiMxyIBxc8nxlGtLSkioJZds7 5DyWpR0V3njksn5sGOztaFYplM2d+jHTLc9KZo8WCXPer1Hh9fs3x95EymM1 nrbhK+ZEvbw/+RZD/xWtk148SRqALEGWfLWDdlyRTjqs8w7p9w1/7b5iEF+n 0GS/cjosL4TEQU7a14s3KpEXMewtp88PbTxLNPJ7uuj90e2aJo2D2iwZ+8q2 EcuM27uYrxXgojfWsPgfZuOlsx0a5iWU7UPXUwerBRJ+7r5+Ln6Tau3AFcu0 0z03Y52M3nadpu/6fHAn6P0idjqbOHJh5lmhuQsHV5ej9+2wfZHqs8x41Vv1 xn84PL6l1SBneY1eOzktTjv5f7TjeBnqmvV/sbncHl+i7+KLDSxTBMgE1KIe NHrFcPIyi1EkH1yVzuRZL8mpB/F1atM+mBwxsd8wV1EeiYxBjrHku+eOWo+b 5vGBtmzn7Gs13e9e+3zKMeem2+ZfgxhVA6e95X0PYtcZIJQt/YYvnQt4DqAh NcpUPRPOZUQ7IsFHf9OrazXnP7rSmRxSoUMrkXX726p8N4+Og+sZjZDP1Mn9 YCxErCoMNEQlTgdn5iHf2IPfMmxd4NuqQzBi6xS17Tak0lOaR10buK9fUvAY ZFwBC7z2VgCi6FRtg7ZbP3zZRNrdD1fwnUBDapRlr/McWbOfRzwgde3mX/J+ OAedIhrfc3LrNfzKM36Y+9Tte9PyCDZUlQRSJ39fn/Up9gUnq/XAAZ3p7nop k5TE1imkst++Sy4hpaFliIx0Cru9rQqolW8vJJMGc4eNXv803pQOAbUa3OIE BACgeBC/nAghKjRVI2pPjhlmnpY6q0BkncrMJ7Fv1Clq+8lqBuwtHzJ9xAj1 6ancVWuRRKCaM7ZKbWQJlBOI66/2nJ3brrwg6aR0Qtk2dmshSxtYyRFXp5D9 42GDu5LKz8oJsLd8QPoyE2+afLnXUJSf1KU8ee1mObexB6oHym/pSoYqsR/2 SbiX1W2jt0sXkGIgqk4hog+5smIB9pYP1Nr0kDr5nhdo+5uJKVfNKXVA/lDP bAPJE961AzasucRUaPH727N+OdUhFVOnMq3rlF2WKreLYgH2lhfowYECkeiI 15jahTYOO9aku0cAyAfSc62mn1yu7CL54ukUMo3q8/Zq9zKJBNhbXmw5R/el K04et/hf5/5RpCA5OEsBWUH5yZ5EblR9u8lb0UIlmk5RL+xDTYldaavxfkXP YekAe8sHast1KVMco8DZ81X7YENxPwkAEoPsBRo/dFdYNjUNsXSKWiaTURPV aWsAZEoMwN7yAzkrUfDs+facYX9yJQB18wDZkdkOqHtIf+UKlUg69dJtOFwd G9ISAvaWH2jtsgK5UsiByv1623PJbhEAioMK+z/X1VT6lirstw40pt5ZXD3m 0Kl737VZzS4mUQF7y4vIfePB9Dmy/GVnoqu4PqKonwSAUpHO+K2UTUFk0XbZ kOKD0cET2gZGsUFC2dylH34v/UMGs5tzqaPMVrRlxLFSoQIvA8De8gOtIlJ3 wfEqzxOKOEtpNfKo8MqDWe9KqQ/pA0CcHZ+5K37kRKUn/aFS341gEm+osrmj uwje0jYQPJrZRTZd78d3aDWake/WQaXEA+wtP9DO3flDdchKgF6dZs0x3Fgt namBMoAK+8k+FVHopD+QhNqcNbTGTukQrZfnwOMnKmBvebJEdqcEPu8yDGlB SG9IF5vP+kOmB1WdjQLIi/CKfUQTDwH0kYvVtfLkCrU2Z2iPmc6abtPP1d2+ VgrA3vIDyT/JM2/UhmeiI7UOODzuyVSXjwf7MLePBwChpJtmqnrNPng4c5EW 9OYh2xIIuviAveUH9dozkQigKvYb3Nl7Cm8Hpi+2pFs90RpFvfZbjhNNE57X 4F4BZEb4yfTIkZj7r+UD5zq4s9hQOwuWnpiD9IDOdA9H0iBQELC3fKGWrP2J gF1WmU5MWv2R7k4NO/wXqwamrpDEKqDyCC/ZhprjvXc/mZdLFVmZkG5+BCIl LWBveUKFl60DsbqIhKrHsoBUSKZCfoexX0Mc0E3Ormx5Te318YlLJ0mG/KRe BXXAADmT3FWBVNGggp7JThWIVCkAe8ubSNBHDsUWV4Sqc/SzaafbNU1ee7db U0to+o2ORLFoKuS7rounUam6x6dc39uunW6uOTIy/QTc2oCsCS87J3pUiroW w2y1ufWzs/uYPH5AQRweIh+ASJUCsLf8oUJP3bdMo/quZiWhUDZ36sdMt+4G QmheCRVe99omR05qGwiioe3UJbNruconDSgTtlc8X99wLJb/eSocUCue27fv LMqh52P1AvYWAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AIBy5/8Bw/cnVQ== "], {{0, 121}, {568, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->Automatic, ImageSizeRaw->{568, 121}, PlotRange->{{0, 568}, {0, 121}}]], "Input",ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztfQ1wXNWV5suzID/1kkyTzUy0jIKI6Ik2cdbxqDRb8nqDRNZeWO1IZBKP xsCopARGcm1cspPBGlKRISDBJs0G5FqQM0tXEpWnEEl6SBCslcRKYpGSKNQk opCKiNiiZCyBZWRb1dbIVkvv7Dnn3b/X77X1Y9kh0FQ+Bfrdd3/O/d6955x7 7r1/Xf+PjXfsrP/HHV+qL/xvX6nf1bjjS18t3Nr0Ffxp3bssa90XLMv6f4UW /Tvgv4o/gP8z/tTQH4v/0/inBnK/5n4N/FrH/5cH7txxSD4dZ7Q2bbehvMjB n62icqhpamPEn37Bhsm5xTx6xUa4mCB9agR69u9l3FFZYoPjlODPVTvvh86B CUZalPh5URTAOZga+jnjyb4xG+YAviGfuVMw9MwzjGfHZmxwAXovSxULc/II k8ffq0ouQGo0wWiuKLDxERUWrWmFxw/1M5IDh2xIPHYv/lxbmg9O6Q5GR984 Nsn1MnFhbvQAoy7qqExq2+HgwK8ZPY/txoZEbrLWwd5Dr7Gs0mJsg2rRivQE vtS/rx6iVgGjIvacDSlDaouvQuKLGxmWc6MNzYmXMcOUq9hvHXxrtOujnpRv 9fXPRDfsKnYYmJEN0foufO3ovKo+/pekwDj0dexglDobbajb/xz+PDU7AvHq QgZOEFSfW/HnzrFzxgAwZ8N4ogmzihZ/HXqnFwienKukbNKvwaG9NzEcrkjd 9zD9cGpBVeRer+JuagjT76+JYkkbGXXxF20S+DNvlZblJP0HkrR7DF/r3lEC Ql9BVNrQPpR6t6zwOUwweeg+qHAKGTfV1thQiknzvPQFdzP6zrrrxCvzL+Gz ji3FUB0fYcyLClWKBGkqtKe5nBrPQIHaJM82n5QmfwZ7KwoYKEqbZJkxTjx1 mVtR4AnvFkkMHFnOD+1jbPJ6AdVAsDbEIHnOJVjvVUnPcfleHSgRp3d2UsWn FJFkdc/jz+NdXwRn0z7G0Hmv1f89lJKYk1PxLcy0/5Sm5ANGJeePdjHqveFv IyZFYbIoEdZP/hDtycnyEsmSCDwLIx3VBC83+lubgEl8grDeJz+b05jV0L5t 1GyGGEpuxPTtQ2dV8+VgtDgah61WJQM/Ln54o8zrDCZ4af9tEMF8CFa0wYbO 0VRM1jtN41bvXvrqGJZVjnN/zzHMPq0aCNa/Xt5GBER3DBK1RYTQUh2Ri3us C005iyEKRMsParpeJSWQoAqEhZegY3MhY2v8ZRsWRZW2qP5Ps2CEcCivEny7 MTGmNJH/LZO60zAYq2YwV61ILSaN/y4VIr/L0pKrc/JbU/ktDEH7RoegS90a h1FMihClrhNZRQgqXf6eXpjBxzNmkTANfS1lDKeh24Yp0c7Pys+Sp9rxBDRG HQYrJMW7D2IWJ4yp9tteeneG1I/YlgI11TpbHrJhcGbhXy9jCzKFlk5CrMgi 6CK92Zygi4ST0LunhKDTbWyHIRxjEUaRLqSnXmY8NzJlq/FJCm1+lJSt7VGt b0Sb0AoZn5MGqlEjMvls2FZb+ydQW1trQ+1tlZigxLGYTYJRH5a9sYDPZga+ CWWYaRlnHkE9Ze+vsG6njN744WVseU7Yf0Bhh3wkpLyToo9QgxCNcpOJRoZj aBtGUm5LpUo/C0c66xkRPWhJZR0hfC1UhTHoeShGwP+KxWL0/ce+Ba17bmdU luRfKQc++uKLyrdDU8sDBE4ZsyHWmcQHp0GL9MOyHu4J6G3exBB5VJAR3jel Bs8frr0orssQMkxAd0Mxwci5BPb0niRY7/f4gooDZr9VWRiEDTY09bzBbbpJ ssobUJ+AuojF8NpV9iDmmpzVFt4Oxapx6N5VRhClk0lSCFX7kgxUKgtNwmDO InfVtLJvwsDMAkFL62LblJPRKmSUqbHmsXW7ITbIQNvcEQI4N0jfxgbHyBKr Wtg6gC8aJrz30W4VL7kn8CXxpQgU21CfGMeXXOMlJTX+EhoIRvvKIZZMEayP yd4g1T0Zu9HIt9CmsQDTzxv5dl26dl5rStLrxNmB+xnrLWURbY3jv44u6tek DQAnSTJ7SvzFBNPz3y1mIckHGWXGQFH2IHMQYX15mZK8TmTpTiSgHulcrygd 3Y1JuyeVGIUQL10Tc5JcY0lKT9lsP77Wuj6DypbzRXyta/x8sBhyOY113pqR PvJVTN8zrX0Lfkm645CoL2ZY4fPySiUZMsXmY9ItHS+pLJ+4xE3MkCTM4muj 8VsyLfb1ZLR1H1czv5zRF0Y6YDMm26yT0jTQ0jftF6LPpBFcFHodV2sHvpSY 0ARasSSz0Nzwrj5x6ZqYE+LaCfHvRaXd6UPQXOwQVKUj9QmYwGwRWqc82wct BRZD5ExK6Gb8hojlC5nCc18nB/eujf4PI39XD740bVgWagYmYc+N/RqeeW6c MefCf12mYKMiD+GvzjfKLLJhe9dYhnYgZ/E1bLtPqqHGBVfauQXio7MEbSrR eFcXJejGVXfCGFYC4ZOqO96FmW93TD2sxCZNTYoAzpIrsJ0UmWJGVeszNhxN LdywQlnCHDNvW8bAtmU/ph8xVmm61r7FOVmuuSxr5RfyCmbfVW9+laGurveq Fp6BgdbNBJ195Ks8tfXIRUItjjluJUInzr8LemcWCVoc81iJY131/koUVbVh +qePzqhB7fplivnjQmzuWCdUY3bVfg94LHlGtUuOq2stByFmFZwx9Uu4u6KA YQzDu3smVONUzud/C+2bIgSjcVuw1jOEDAkvvgzxrfkEldh0GCoJu/jgbN/d UIBNK7CkrwZtlOitEDt8nJEG+MwKJWyUL9tFI+f61n5kLLFW+irWVAQ54V56 4Up9Nk1uKvYieh+GFZUF5JMXsbIWmloeYsQTvTYkX5nC9HPGF3OtGsNcXr4W S9i2ktEdEB8+w8C3rpQyXSC1oPfrUIzFFpsytQqguvP3DFcb1Zz+VO/XIIrp EdZVomlO2QPQj+MNQnjYqAPO8jCOsD6i8l0Pt3QdYSzyagbolTFLujrCVK2P i1yN0Ybzs/RS6AtwKu0SrM0r4kCWFb/198MA2pAI6x9kOsMPe40snLJOTKqF RBHncKm6onAJ4nxSkzgPiip2QOxH/Yyjp+ev1Z8SBTk8C/tqNzK8V6L1mNe+ /gm1dqXdxQuQOvJDRlNxvg2lX38Ef364psg/tRa09NE3qlhp2GvZiGM5O3ml GaFdszyh1TBQ+f4zJQgHNrYPMVD3Oy6zDp/lrVsxdyMqRfe11iqtKw0ZV7R0 M1DR+M8rHUKwY84lY4wNpuO3HFoHThNWxqBrLns/fTTHqhyrLjWrXJLp6dcn YXJS4rgNYyO/ISfwwCFIdOxhVBY571EiLIKqvV2Mw8kRTD056dC7+GxycgxG koOMgd6f2NDZcT9W4M5tpdJs1z1RVA3NB55jTM4tSsam36CSD9xFJTLYrV25 62HSUinCc/Awo3v/Hvy5qAB/Lm08AMOpeUZq5Ac2NFcWUwHOTXD34dcZOEh/ QIkuDamTE4yxkaQNfT0/wCo+dl8dlKIFhLDeLcTvbMH0TR0/gb6hUcaxkyle l/tTWdkUJjjJUhsTbe+3oTfxfzHD+2o3qTbLDC2qbnnTP0PPQJIxNDpus+jW 4d8TcHpukWBNyN75PabvrC7IYPzmDrKWdCiQZryht6kySXOK1sVh6NQ8wSpb JueLRSVmerESe/JN4xANhA2xQcvvtf+SzNedY0YhmBGTNhwbfZF6NdkPvU91 Mtp3VaGdY0iGdKrS2nvhsScOMvoGsWuSI2Mih8nJNzHrVFpbiNJbcskII2b1 D5kD20zfveRVJggio8wK22DgnEswBjYk2bEhxk/jzVSwk6c7BMfrqnsgMfwm Q0VwC/3k9BHGQPd3bYjtacCft5VHOVZcxIvbEH+aQkuntDjMSqYNKX3YzPjU S4yn2m6xaWjW2kwZ68tCZy6Sr7hnOIRLhHHJZd2AqX5SlD3dQ19LxPKTFc0G kpvBE63g6QW393mJnYr78MGhST2W/9UKyZrliwm485uUXGbZqSgci1cYM1Bx 8yHGtAt/eam659ocx3IcuzwcUybgdA9LsCli0KumC47hGwgr38vHTR3BB72P 7lCzouQWzorrYFfXSyrIVYWRuGdhvOdeRoVjKEcNrPMgpOPAPUYR7jVafDLz 4FrwlCEW8jQIb4Oy3KxCDq4TAXb/QXVlCpKxcgIHlVNSp3QndKKB1+kZeaUr 7HVeFyfHl7/XncYMlW6Xlz6dpACZIqOJOvMiqE0cI4jFed03hs6o+saIMrxa CcO3E0Yzqhiq2g4xJtOuDLDnhbmJ7julGQsyHl70xsJQO5azMVDVgCL+phJZ iHfTENknVLp5dm4irPdLlfYOfBAfelOptCUr7QeK05rq3pm5DkTRVRSrkdEP mB8+qA3tB515rh/+KPvhz2VdyA+ZnnoO9tdtJGgvVAE+qNj7M+oGgjFWmaG/ 5PBuPmSFLsct70OeVtJ7A3qaNhCMdHoA/ITBnOmerzIick7ApOWNsAfNP4Q2 lFAtpX1oYi/aXy6zn2RJyCrm1EbdRZkrdpeyi67x8qZI4XVmpLDBbV/kVqVO LyKLnZsZ7UMzRSFNV2UaoVqqM8KCj4tikEQxIqxPXriH87w4zdSrjJ+2fZ4t FjUNZu4P/PSKOgbTTXVDA86tCJXOaejmmOypXK+8c3tFDGc6Cl8PZ7S0sat7 XLVOhVDSYHyq7z61ncapjtswOu9eq5p/jmNzEEbn6JpOX6D5ZhVF57hjnfig OqxztKVC2r0Nw5078WGpE5LUP7BtWGlPhQVgG4HVl7Kn9NJOGk70NDOKjWE8 2kQh6QRjxpmAnt1lDHZR1HWRhm1udvqokoDWXnVn1UPXsXmC6ixjaFeNKmjp Y3/fWd1Z2SSQZ85Mkkjn8OFk7zehqsghZP+wPrXS7nJ/z0YTQqczfMJfFnJy 56bh1eFfM3qeQBa3t9CmnJLQ6hdBZVMboz3+Axt6+n6LD185OaeWqL6U69dc vxrOQuqarrrikCIdiDYmGONpV+0GDcSPFzfjOz0nMpcW/a6GK0Pk8DeiCu5r +ODg7s8o5/ANajj8DOw++BrDFfvNqecW8dlM712Qj+nztRJHk6ewB1iJk6Q4 Sx5/EZ6VMdxtg/joHMHyrSMMf49RF3WUAeMfmdevlBKhSrAuvUGKgkL6JpPP QLy1gVFR5ERUh+RDybY9jPauwziZnZ6vW12n83RqBC/q6XQTPmjuPaFYpaZT HWvoMNA6sMk4UJ1tkF4VbegwsrMDi3af9YouiiUzxoj/IYumjbEkZMu/yEXb DsnYkOk/ma2EsI5RZ4os4oO58YNyJ332UUB35XK7XA9tOt1maB04Q7BulzWg gKdTw09BrG4TQ+oZNjildfjsvng3DBx+lLHNdJZtgpbuFxjJnu/btLxCPh0t JNGSIopzaur4OfGFIGLncqTJkebSkeY6mW7+JQ66Rah0TtV3YHjOJWidYfYF aEcrqp0tr602tA1MW/7A3KsvVLSxgVaSBs7ig6M9j9EeO96XdwP/pT16j0HP 0bMES57KA9S7JPkMvtBwLXdnmXxZpCN5RDBWBl+0fXelbJw/xibLnKI9tcvl Skg4kOGA+ZIo3Z17FXpjtzKiiibeUu6uTl5qZsBSGpSqgkiKkxVqUM8doMVC uWDoMfDLJJzBN9RncMtqyENyO88nOfBpDn4S03AjhhytmSywwSeMPqzHln2Y 8ZCxX05RyLDpwiogF1eysYI+TiEHHyuADmugTfFBVuh+UWeusE07qSIc9ChC vst9Q6cDUWXLZ0ZYOl2Deq8GborOi4nXbQz2NUV/Db0pvaHrLsyN0EHSTdEX kmi+UWl12sjdDI2dLzJSLmzPcSPHjbXhhlxLC7hihPQi9VTJCcOjLTUVlw5l 8+zVQkZ1fMSmvV+SFUbspyraNEAVKygjMnoujhWBZbz3LqtbdMDmX1wELfKy KVdqW9DMC7B/+waCImYxbWp7cvysIqZUlpZFDDVT+s8aknNV4BShmlURAxZe wge0ST6DGMEtfNl3YkcabEw5J4mRTsbYJVtkEAMlp6Y+RQw6gsvo6CWJcRIf GLsws/eKDOZGbjAz4nq1J7iyr/SyteSF3HM3/wpJsT6EnE41xAanGUY08bKo IYfEuWFifk00JPNKaOs/ycDM/zZHjRw11pQaQJYIHa+TSQ22Jrd3jakxzzw+ RMe30AGGO54iXdmYeWTAJNuShjPLn7lpqi5FF7ICOkZmg3RJ4QNDUcneWSIE NtskQ5bbIzCUWiCoFf+FsR54CC0sQnv8cRsS3RQeOTD0Ckym0gyUtE00yc6m wPLvumx11Bv3fdvg1ExBLtctsedgBmWNUBxZEaFY/Zo/cgC242eN0LPc1+nT M7Zuf2GVlCLns7EzXNvGdQmmCUL5MmZfwAftxpLkx2RjM63TpSiSGWy9corI rYXuqWehraKAYKgsDhTv6mZMpN1/L5Kaw6AaVEvxwbavPwLxlipCaG8Yy555 5rJntrr9ndl7xsCcvfdWRA59HOEMDLXfzDB1FIohKN37Kz4aCZGjRo4aa02N zLlCJTY20ioPKG870QvgmhqZesVaUwOrTpNdgBoBR5iSTyGmF3EVrN6raDIO nB9njA4N2HCo6xFM2mJsJFhLdrgniAT6ACGDvhHY1P5bxnlljC2PG3JSnaDE 9ZGQxM4XWb9ErJQY0vgP0zRRIWB1AGGpk5p9K7MRG8paf45Jx9VOl0nrQ3J3 wSg+6N5TGlR6MjcXLUUf2rFD67mrp8/7fV+vPhza6J9y+KfeSYZrxHUjfU6O PMOI1WywQ3pHqx++YNqs6sffLdmbxqqe3FK0Ep4EtXuThGWx5xmz8gD+HFVy VLlUVMHKcFVqfVTZwGoFQlMlEBIQoSkDLWElC7WdI9PdpaiSOcms2jheNlU+ qKrvW/GXk1KUToZPGG1QkTDpN2Bw/+2MqHObDZ1Hz63IJr5GVpXiGOYmk/Dk vrsYDdvKbaELOSWVcFtDMyMW77Zh4OipjGy051fHPIeth62OWtnM0vW0e3HA 8JvruX2RGyMaZFNrxPRLjRENsqk1lMPRU8oP8ldrRU8vRmJr/GXGohExEliI 3n3QprM8JC8Dy3myuUW0YJjUYr8MvPwT+UYaH0wdbqOdIwTVX5Ga78Lv5lyC 9bmVEM/c859xTDst3lW1/gj6k4OMgd6ETTtA8WcvUDHKqGjab0Pv2IzlX5pV riNjt6X6skn5FYoTYWV8VEfZGHt08kxZ0yZjWQ1FXvLMicYxOAoNm4c/i8Yx sH222sjDjWP0iqtqSnK8zPHy7cnLd2frCjWn++IxKmw6cjhDuJIPgdAZKYeN tHlnyNiUrTgafsLkGnD0KsWkWTjatYMR9e+NM2L4bw4hqVahfF9soUqqj4vR S28NdJEDA4zwnKHvQ2NpPsPS4UEt3a8oO1fy0x3v4sPGthubCgPbhlbHTyPC ysd8c7eL4qc+08zslyh9uqJx4p95m5qHP4vGeXBusql5lv8Smk+vkq7nBqC1 0CIsg65Lr+9Luk6R+tHgBOkaINNSK/2ZhyeunK5ymHfpg+hvq8zYOeaQS18s jPD6QpViod67ELaIr/c46JPJRCVoZ3CeuTOYsrZpbwX1ZtQ827TMpp0V2ZXX LOsWmUbf6nhr1DxsT66i7BlSJvUeVPVRGodzyaTBmxxCd5Dk+Jrj6zuBr0a6 rHyV4ZHGBWKFYMbHCJZm3b4ePIhg1VH/pCtTvGMGq7NF9C6f1UpycyPQWbeR oPoav0v+KhEGm8OCdHXYp94yswipgQcYpcpR5DR047Mp8P0jI5bF7hqxF5pd KZn37yhCU/SlIQ/VvoK78QHduXGRhNY7pBWNjMs8fI4C0UJeZlCSM7YI6s0V vk1EyssWqeUmIi4Lmz09XC/vqsgNwebgRsuspsvaR6jTopk4RY/H0KyRYkvw WfjlJrqlG9SnBHe8yJgD+GvV4SG3soTchsAXmY12fxsaK4oZRZVfs+GJkTMZ 5sE61TOj0FlTRFD5mucoKz5niWoJmhGr4HPAa6v2rxmbzVRS9ww3UDTSphZi UmxiILgtzXfvZJ4xFowz/FSO1TlW51gNy3dEfE61MAXDHTUMJ/wcZtMDTRqe 0PKuMJhhRNJ+QfbMcraHSDeWuWom+8MM5Vs5nVX8F+9T7/+W9KbJaZ+WwjqP 6GiuSkW/kGv3jOM0Pq2EQfFUdzLyjalWXE2J0BxddqVXxFGxFHeh00J04nxT HKLO5t7OSmudulJzjainfbMR9oYIj4jghztDl320lVFA6FZG28C0rY4ZtrKd 7lAMDd0TBOuMSGeeBRymHGXdUiQjNRvIAjQURusj6pM+zTd7its95R5YcXwW QdMm7GgA4wi1jaISIceJRWwSDaY3blpV58xkdf6tCXeCZkWYvq2iRbQvVtIm 09OVo02ONn9I2vjdHtt8g54+VZt2SNq0PVJzJuyYBN1uyRnzfF/VZGMpOOtu 16yaoByX5+i40o6qQqODb7Sx7DOKKcZCiCrauGtCMiXLUYHVtGVnzJjUl2JK pIkvi7lIplwose4ntTUs7GAHo42rpIlxL09o72oNbgbGfvF9RmvTdhvK+ezW kso7oGV/D2Pk1HyFSn2MPTae1yZqw/ZOitMxL6zTF1ioK2SNCujglDMXar/h E8h6CseS9PIu+Bn+DlShBlQltaCgxnmjqIm5HUvWxNyOpdaBliUydeFpuIsp cF/XUtzMGll/KbkZthvYuIQkx80cN98m3PTdtXJuoA0KsQ6FJkGNQ2bUse7T KAFxrbm3ZBG93YaOQ3R828Chf4HWmg0Mp/xOG7oCdv9m2WkUonDkgPSz2CH3 LmrmaktNM1dbaoq5YdcHGbfxCubil0haSUDkAQO3QFXVF4weZkXJm1OznahT aPkvapdrUhcpTBVJQl+WcVmOLDZzoeqtx+ksp+9S0jKuOmLVtKb4GsOFFhrU 916jGueH9jE26UCHwtYBPjNYrGqR7F7Dn2lbbaSijXF4Kn29LJEWDIWDxXdO i6Kycbd02GLAGVUb3yYuLRStdeso2hBnjd8Susarnjt9CNPTVXyW5aG45bBN a0qKvlmuwcjcEffBtRDav5OZLG02SN4GDqBaW95OkybcFAgwDsSwXK3TL8tY +0SOvzn+vgP5m7lEnzViUM/0wVOnTe+wWv6cH4XO7cUMSdHrxTN3pp/dRsJ1 FHYA0pUXaohxataM4N1YJ+ZrHIORTU4XDCQ3+usaKSCKbptI7KBPhGFFdth0 6a3ic/ghGPl3YYa0Tc3P54uT31UyjyVsc8nl5ev/q+Lyyj0ry3WIrJLN7qv4 oKumMMhmCl4wo1Q1m0PCGwxJ6sV8F2ZxBCJscTxv0PXq2QI7tIRTyyaPFr44 rC8D1GwOc5IZDRFspgMa8swDGrxmOHXsMDTkpNmsj1wMO1pURWnM9vOd3t69 3qFXAn9WVOHcAKanGC9fFSKN5Gg1F6Q0r1cvScXrJWwnwWs0OvHB1qWtA3lJ 4opYnc3HHIzuUUbzMs3VHKtzrM6xWmQ/Q+Ua94opVgc2XWn1OVxhNbYUy0V9 dxz/NVG/nrRPBjbwevlMh/d5+ym2d45yeJ+ks7kYJVsQaeph//u0QWc4TR6A 1vKlZv7sFxL6FXMdSpeCofZKhpdl4G6hz2rK5JmUyUZ/c/vfRYgwYrA91B+g b9PVroMspoO2MpbhkgjyGd4gGuLgkEmfgKx8rs0QBwzdZ0S1XiWfrzNkMjtw P2O9GZCRD1vQzCDMq2837Mr1Qhtu7qTbuHXdQVadwyW7myCCw0bEGzoknYOR UNHdNvnoJJ2XOplpxsxI1J6RRT4X9JYbUcDm/ccZl2aS5ks+bZnlDVLWoaHT 2v/9oTWT3lXiWYh5lW+TDYYlGzmJ5WRvPhDfpjElaf/l6rhMJ3IbJrHicuA4 rgss49JV3cJ2JORonKPxO5bG1MDTPDUjjJUSPcvJOrvHSRloXJ8xh2/iDSrn tQ4i9Tz3RDc0RjYzWgfOqDW+QOBeM/nBjPukpIz4TnFv9iVoXT4zaDQls/Yp t6GuK+XMydYBHPKyITYoPWYqEnSSNpZ4/evpQnWJcQ7gUVR2j7N4ELrvDdem 2iRzcXKUPA73DwQtBMXj2echVhYhhHpeV8djXmrzPnOCFiMtEVXHR3jtdh7g grES5glWqyXxzGFoKXYIfr9cWVu/OvNN1VoND9JRFb4MpiwWWpF9LukhtXCD l032kC5PMQQQA+5kokFe1xnYlZJSBZ1Bw+lGQih5JG+zbvwObAuVvJ2ibSXG PjEyY9jLfEP2kYU6D8dWNbKoYzouTnCSulnMpYA1oGJh6WMdTzSpm9KzHrS4 IhIrw/X8b6F9U4SgOVZ8J3RPnCNceLnaOGErR90cdd8Z1JUdBPP4wPD4q9ZF duCDxIQOflBW9UwvezKEN0NOuOtb++lAIoL/praw6EfF0RQIn5PiaLnlPylA aQZhK2N+TdPU6udH9jO26IuWA4qZkAGFX+SZ4Rd06bxNd86Xy3aEB1EEMlQb WZYW0UrtdJV1ehpGn7qbUeHItgX3GK+Ci4FNfOblzdGabzN6x8/yKKMijpd2 jqyOme6pX+GDvaWRjJp7B2ds7xxlzEs3DX0gb0Jfy2aCbuT6+9m5hjDuMAuJ UMsTEWqe16uvpUzxMXOl9qwQ7CLZLZ03F2rShBshegO01tHF1pjgSpBOfBY/ 9L8h6LYYTlRJzHBFNH8XB9Aa+SrZLyGjFZgqKtZt8Tj0/Z9/YtSWR98jFcKK +/gIaoQKCloWF1Ug0uv4oO/+z2eYwbSJuASqdt7D+E7fcZtqI8fq5VqGH89R MkfJP2pKKkeN725n5XE2L2LSJ+f4nF1hITCVRtJALGSeiIU8BiL+UREy84Q/ ScgsW77KHsT0SWOyukam58O5R+NQjRpjtWMI2B8ucq2ZPngUJP3VwZiCmHRY Y555WCPIfQ4fWb58lmsCq8Ww2SGI76gjYFtqa2uxmLqme+DRrmcZhlq6LCbq AONZmEz+mNGxt8mGutraPMrfxj91+NL/7BxWsSySict1N6yQiarzMk8llppk lDTJrqN6vJIK/ezzmCZWlrFCGlyjU+pkeDBY1vsdAir9v0nxaUeKpDANPi19 bwYo6U7gA++kVC/zMP+a6TWlm9nF7exXhLDxepX0HBztvI3haLI5N3fCUaww QqmIyxWTdnde2FKQ+3WWxbj/JGW/TKtpheTR58NlvZvz7sOvM5ChKmKeiCAW DM3K3Gn5F2vlcOaLwHJutqF94BlMaqyMK84ETt9TnMHpmOwkYSvJDjN3huvG zLHBKIxGOf/gHKh24Znn4qVT44zBRAw/5NL8sIhyRZsgc7diUrT9lRWav0Ih LanJ34jW9VnCKpmTxcIhVwNlnGNOjjmXlTkyXpAnrNRoAporCgh6BSfzrk9p H7unR+HZ5DHGHMAV4mdjW5CsIq0fNHYfD7k+JjPOqIi8SIVWkE81tNP1mDEv z4l6h8wHniKjGsb3Xx+6Tx3j+W5TcphQZamU68Vx6LlnB+O2yhKbpqT3hkwd /0WWEIgTDd84JfWV1QvOdwbx6ZOM03OL8pz+EO26wKaVJcsfEvIfV8I/deQD XwbrFUjQsTlBWyRzQWuFnNQBJOdgsv8RRq1/NKPTJcUJkx/UDM7z1tf0IukV skR3DLq2FxFUIyON3Rz3dcK4Z8SlIyI8w9OTiCBLcJO55F/IcVah9yCp4SH9 Jgz/6GsMZON7FMtZgZOb0wtkvY1LGh0pKSMGTVIwuG3ZucWG+Ojsh9ZAOJp1 ZOgUM8piz9vkupPXh4Sr08HNy4J6F9q5rm8BNk4byZOlyrPe36MqHzQ+zIit HPVy1HuLUM84OSAs2sRUINKnX2YcjN1qk+6jrEc6Lmdf/4SajNWcwovqJQy0 za9QeaV5kUgsFCllJNIE3SfSBH2iVeZdYFmPLDqv+DQGicYSRpYpVTrq3bkp GO3/ESNWt8k/pRY3Qw9WBiH0OdrINATtGx2C9T6ZeeZSmN6rGlAp+Xa09hfU AoOqx6rF5IQVJvaDqOvUws3CwEGFgokXOjFIb8RUTFRaRsQDFqyYGGbkGuGl gonGF4nGct+9Mk5K09E48uTDhmxSx4YYP40321BZ5KhFPzpmvLRhP/QdO8vA Nqp9Vzp8hD5pPu5dBJhiL2CCRp+issGmuzb0ubFmUI0vFM3wfKWNLybjPHV2 H1THYXTeJRiLOouQGvohI/atFiy0llZMS4xzZyXfAqe8KnIaW/Vl4sC9WpKc 7qlfsZNcOMppdeohTDo4o5N++GIkJpe2hB5cwPdviTu4rtSfdqjpkBnE9ilV Ed/BOebKl3G52XqZmm2pAlm4rUq+kDGk1ylz3Mxx8y3OTXW2Au1fPf26uhkK cdyGsZHf4M/JgUOQeKyFsS3qaOWqCKr2djEOD43acGxy0uFbpfLw7xiMJAcZ A70/saGzg/Y/3LmtVJ0VLF3+Tunt8PDBlxmn0+6fGU2YTT7IKBNqlwrifxUT GFuHPO1wY/uQ5d8VKeZ/CqFZJ0Josk9Gi7LXSBJGGAhkOd3Ed2Rh3z0M1FQ/ IKUTvRVih48z0sYlVf61ByVLVL7JESGcEZtlQ+mQhoG2rYYCWm3Tx5Fh9ZoH a16s0NSpwHyqIbn5nUpGW/9JW93vS5+Y3lAimZ0Z06HWFPkSwEkCk2MSyTJK ynUy2Q+9T3Uy2ndV8dVJyonBo1ztvfDYEwcZfYNJG5IjY3ny0rI3ya+T1sqH 6SpUR7M7lTZVPUNi8gMP2WBbTj6WVMb3EdgU+kmzliXbvgb7n36BMTm3KHc5 qyvpI9sPMI7Mu+ukeIMnvIcuF/rugjRCbEJVe9U2381voWszKlSYtkqPdN0J 5TgWlyvd1Rv0S+seZvQc9a4tkcFE8yM0hFUrLmnf6OfxQevT+noMrcguwMzg Q4wtDgsuSrZKfJj8RAS9m3YNpKbPNDrJh9zzQffRBpvuwFCDpN7fJ6eeRsu/ vqn4a5jW18iOz1wMvUbWX52sH21gyDL9kcnyg260KZcc3XJ0ewvRLSpLjWIG 5dvqoanlIUY88Usbho7NWOHXP7lTv4S7K4oZFXt/hoN0WscAngFxTpLeoPd5 6Bg+S9C3TekQmVCfLef0Lq/e7gydVhTTdyfT/VU2XV7luxhw7FnG47EmG6pK xPVRTDhCSeXtNuyJfRfLeTp5HGgjMMI8oSoP5sd+DLvLCxg8bRaV0wp/874n ITk5y8DXPiOF4NM9yW/VSN7ocWOmuvqi5aWubpLngzjR2xn7B9+w2X8is/H0 6PND+2yKpxQKZXTHU4xJF4pWwjp9g+JrXKoo2aZi8WeDE1SqTcXiz5s8dUOW bFOxQQV0namAWh8Ts/zJVAbXPm727WhCrOwUophrWvHnxw/1w+CvHmM0eoeL Z14orw+mzox+sTJX1Uy6eVwwwlCAFyEq2p7Fl04ZXsn/JftmjDxsjfqSLDRC bLJBPnrRTVABIukJ6O/YwSh1itFM3PMoFdqLOfQ9yYjVblSmmREZpWLa3QVI L7gEPabQ6E8/yhbJkThNg6Uoi4HF2VQa/izKYngmV8V9mA2V5++6XJ+/A/u8 1ifP06PQG7+bcQcvQzol+HPVzvvh+784wsDZXB3zTrPw6ONNfF0gwdm634Zh sf9Kn1Xgiw+QmxUaE2PKo/yATGpO0+G1vmbl1VWhB+TNPD16GLra72IYr1TW 7oLW7/+SMZZa2K3qPs9viLdseoVMY6eE3xBv2fSKCLLmWj4vSyRTTbSbwde4 oS2Z8RXdK7uabkoYjt+hTFxsv03N/7fLlXkya6fxmrwI5mD3zzdU0hSMdjYw ojwHV32TnD9Gp5klvODrwMlfQ0fDZkakodumNSeVL/vj1zOq9j5pw2hq4fyl yEj/U7NWv/6Dks05mOx9kFFTUmSjhbAXZXMg+Ybivn736uW/pI6O/h2NL83V UOSUMmpaf8ztu1PmNfc7fi7S2JQA88IUqnOu+yOvsv8IOh0ZzasVhEB9l35D r4uFHGAhPH+7DzJOuPAV0TS96mj59kfxCfBeUl5hzKz+4iscNI4IdYCFVH+J N7IE1K4TFQqcqbJLNoDW44zN7IZsdJz526j2wiM18BCjqsgJU+jD2L7kS5Lt 2gqwjNv8IrfQevC4cWrIV2TWpvpuhKrd0sXJEbIF6qBXzy36VahuTjDwQ5HH 1LpzxyH59HcZsT1oDFSW5KsdE0XlUNPUxniMjMcXJ2czfHFS0RCXqb8Iv+h+ htE3Om37TYo/Xyqpkl36FBwd+CnjyZ7nbRhPLWgv6Ry3RLSGRwWRMbaELH6v HQzZFPI20GXooh0MbAr7KWTQUfoUJhAlMrDQv8iJ8RKIcZGc2YkvblRWZVHV Azb8dPxsFse4mzoCv4g3MyqLHHXmAN1NXbknDr2j0wyflO6TDV18lcsS5ZHm 8QCWg6UpJUWE3mMx+EAUQhDhJTSUF3NBojAWspjEtVqf+U1G6aCNWM/vlXvL PHf8aM/DjLrS/KukQ2kTpq97GLsLJzGEMaZI7Sw4UERvtakMy3/jr9oKQ54e UQzBuko2yNnERYni/vbt15YPZS2GrvyubP4XzC05pbVP80Kv9NQgo3PXFg4I Mfe30JIGL2skDtkwkBzCn0dGhniVjVfa4t+yoamyWG85I3Z/k2EouwY9g2N5 MVYNK8jVQ5hnQOTJejEcvWtWL7ckDjGwajbVzMqT9WLIqkmNQ9YLYX3Bk5xe WT3DloCwBpRaU1QNe+KHGCMn5/jbf7ceOFCqifuhBi0NhF9ywj98UHxAKkyK glMmkwmKv2E4ujCn4muQGD3D8J1b8g35cqa9IkapavxZ1JDhyugoMVBjHUU9 /RL06sdI61e8jTwJWUsmhXBEUg1FLVkUn8sJcc2E+Ke6fv5lB/V1oWWwbc/D jAMH+2wYTNJxjiPDv4HBvmcYB9r32LCtJF+uS3ojmbdaTdBrGzP45ljvo9CA 40uDujI+egetXgzrO/oyxCf6mGonaii/L6cUn4maMbByNtWNPS9cMwZWTi0k 07Iz1k3U7wPGIEs1E7VTJIrewTUTtbvZE5pWjOfh1HCCsbeqWI7M3uiy53sw gF89wrfvMH1qiPG4GPi4kHqO65OxfQHy8NEEohCCHpd50vyeLEwd7MCjmFcI wwkPIKx6WzZHq2YnYCjxIKOxQt8t7X0/MUgkjzPmXFAxFX6aEcMoCqet/2QI N9UsewKTiEIIhkqTzwWJwmwqyfje8szvjUoKW4b3tkvohXtUN8eSP2d0PXqP DTur2A/mW5+P2lBesxN/3vvoD+DwyAkGli2XQeEcPpsa/Geor76fcXjK6KcH ZLNIyRTlMLAoc0CRR0dhUTaVhBUX5fDykOmRoLJEeTYVVvU2bhT4/1kzT1bu 1z/Er9a7/j8hh301\ \>"],ExpressionUUID->"df53c4e0-1f05-460a-a09e-772d77bdac3c"]], "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.7467907692860627`*^9, 3.7467907703835845`*^9}, {3.74684150486271*^9, 3.7468415294050355`*^9}},ExpressionUUID->"74c7fdd1-2c48-4f59-8f2d-\ f4ab67fc9ebf"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "2", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{"A", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "=", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"V", "[", "1", "]"}], "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "jj", "]"}], "[", "aa", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 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.746790941763169*^9, 3.7467909620381284`*^9}, { 3.746791014063071*^9, 3.746791016179489*^9}, {3.7467910797158837`*^9, 3.7467910797940025`*^9}, {3.7468067755280533`*^9, 3.7468067766137543`*^9}, 3.7468069922880526`*^9, {3.746841653863949*^9, 3.746841681766311*^9}, { 3.746841728335345*^9, 3.7468417291903343`*^9}, {3.7468420911938596`*^9, 3.7468420933267975`*^9}, {3.7468440951775656`*^9, 3.7468440964638643`*^9}}, CellLabel->"In[94]:=",ExpressionUUID->"d5108857-0f25-4f06-836d-91b950e996b5"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "2", "]"}], "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"A", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.738599772683138*^9, 3.738599779656537*^9}, { 3.7467909835342636`*^9, 3.746790992363244*^9}, {3.746807003771184*^9, 3.746807004048191*^9}, {3.746841684663064*^9, 3.7468416847338424`*^9}}, CellLabel->"In[95]:=",ExpressionUUID->"0bf80a2d-6550-44db-82c0-ad0d4fba8e17"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"V", "[", "1", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ RowBox[{ RowBox[{"V", "[", "1", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]], "Output", CellChangeTimes->{3.7604679835484715`*^9, 3.760468241856274*^9, 3.760470340456722*^9}, CellLabel->"Out[95]=",ExpressionUUID->"4f1ce15c-3e5b-4337-bf98-a2ba8c56f165"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "2", "]"}], "[", "2", "]"}], "[", "3", "]"}], "[", RowBox[{"A", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.738599772683138*^9, 3.738599779656537*^9}, { 3.7467909835342636`*^9, 3.746790992363244*^9}, {3.7467910287404957`*^9, 3.746791032001402*^9}, {3.7468070083750753`*^9, 3.746807008660968*^9}, { 3.7468416868709745`*^9, 3.746841686994643*^9}}, CellLabel->"In[96]:=",ExpressionUUID->"cde1ec4f-038b-4c74-a185-8761195aef3a"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"V", "[", "1", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ RowBox[{ RowBox[{"V", "[", "1", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]], "Output", CellChangeTimes->{3.7604679835658875`*^9, 3.760468241869678*^9, 3.760470340485346*^9}, CellLabel->"Out[96]=",ExpressionUUID->"b8a2a425-36f8-4a81-a4ab-cc16936e818b"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnV9MG9f27617X+7DPFweeYjElWWJh0gRQpZuoujIPBClsgRRK2TRVJaJ mgvRuTmQ0xvcVoVWDaRqXZ0W9GtM7y9WGyvnxumvo5xTp8LtwW1xj3B+xT11 FKzWbSAyDW4C4Z9cBMEwXGbGf/aMzdgzs2c8Y6+P9PvpnB46npm9Z++11/qu tf7Hmd5n/9d/MRgML/23/f/3bJez5c9/7nrluf++/186/vTSue4/nX3xmT/9 n7PdZ//8P8/8V/rP9v9vb//v6f+8BwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABA LZBemYv8w3fljfNtzYSBxWSxnR+88slk7PEmJfm6W4vT/7er/fLkYhrjzQIA AAAAUC6wxReSfhwl3+1pMRkOpN7scJGRh6LfD7UW81207L9owjo8tST97QIA AAAAIAHY4ouwvTJDDrY1HvxOUBqt/R+Hk1vlXZlKr0Rv9LXSFqapa3RqQYdG IQAAAADoF9jii5Gz2VgIc0f/+9fHQ9ORe7GZf02HPr8+0t/RXM9/PabTrvEf V9OCJh61Phe80m1m/l3TWc/Mmq4MQgAAAADQObDFF4Vam/GczXjBjO39nonY UhGPF7X5MEJetpkI7tupNzveH48vF7H0qI1khHQ5jrH/AtHyKhnX1WsBAAAA AL2j6y0+vTIb/uJW4LtEagf3lX+dGHyGYN1czr9GFoXdXFR6cdrLerd478f+ 5lVyIhyJxmLRSHiC9LzTa8251whj29vBch1oAAAAAADgQNdbfP7mDXXP+xK7 ClzZdNoV+CVVptFGrc8G3neYC1xkRSGOOd7/Yha7zQYAAAAAgAD63uKpjfDl w7kfqnspsIzpV3YfkGeaGJvtrS8Sv4tWdqfuf+VxWo0FFmKeRmu/J1jUXQYA AAAAgHLofovfWQ68VJe1sRovjD/GFlTbTJAvtTvJuAybjY4S3v7I1f+iNaeV MlpsvcNXya/vJjdA4QMAAAAApdhJJb4L3CJJn2fEtc+l/m6H3d7ZceZa7Knk jVT/W/zmT6Sz3UiYbUN/k/MU+md3M3n3K//nIfAmAQCgFTCtS8oJOwEdsODv LpaEfsITxyh0AXTJzkr4vTbWBUc85575vdL3AwAAgGldUk7YqQ+ehAas1r73 ro9/G40nksknKX56NZVOPUnOx6PhCfLqm/YTQ6H1KntHzAPSzEZvOs1Zmctx 9z0whWud3Z+9pxqy1rDRTs5X+oYAAKh58KxLigk7dcM8aTcerC3hQpx8efzB dqXvWDGorfBwdkodHQgtV/p+gEqzc899PCt9qjtHLlTv3AcAQC/gWZeUE3bq hXKNH8J8zq2vAsKi2Yx7OmrYDAYK2UoG37U1G5s7Bq9HHlX15AcAQC9gWpdq XdhZhvFDHHO4PptZqfZjLzXn68y+inbvXM2ZwQAAAABQIzDGj+W8y+Xs7rBw zCAmt8jjvzO7Wu1mD8tyoDfjBATBDwAAAABUMYzxYyeTmf+aTi39lkwmf1sV 3Vpc51C/h14/lDH7LEPh1Urfj8psr8YnfSOvnLU2E0Sz1d43dO3ruVp0hAIA AAC1AM/4qVkQwU/9K8Fqy2gTJL0w5T5nJhqt/VfI4NR06JbL3kRHO1suTUBv LAAAhKDSyX+6u4/XdfsXK30rlWcnOtJ0uG3wVk1KaArR+NzAbfzodPSpBOnI NCAlHGSydtxebKkH04tj0znhHPU0OnqMeROmc5/V0KsAAEAcO6mZjx0mwkA8 8/rkb7BU7O2l4t5uE3RVptH+3MDu+dHn6K8H+zN1lOtPeH6sFb8PtTQ1bCVM 3d54ivPPk6Q9Ywj2kElIcgIAoJD87jY48SssExmotRnPWVOte851MTcUCHvp b/SprYjrSCbo1eqKrFf6ftRhZyV0yUxYh6eW+HUt57ztWfmTK5Iq/m9XJ1R6 NR70vM5qn9rOX7721f1ym9ICQA2R3d0MzT3knFZ3twrBHipx7oBY1iXVhJ16 mRvKaH7wj76iFAh+qI3k3S+9Lic9Twz1zdYXnSM3J6usu9PGd66jh8yD36zw PyJU+93hiW/K/SFqc/W3JDaWUsq1c03FSWdLg8k2dGNiavqbqz2N+1P4UKvr zrp69k+u3rhMCku1AwAuqPSCv4/5OlqGvy1YQIC9vfQc2dNM+85b35tel2lg 4FiX1BN26mhuFBo/6dTSfDwa2Scan5e+1eAcfYXhCH4+TTye9va1EoS54zX3 /jyJTE/63X0W2pI73uP5z0WZewq1k96RPSEwXGR7gTxXV7w66EbMnXX8HHo9 JLopfQHpiKvsIuJlY7J0dPUOvOchv47Or2Mxh6jFr19vaWwZ/DKZGeK18NBx Zk6o09Vrd33qraME5te0f8J7obt/2H1zIvLL0mathHMBRaHW77ha6eNRne2j n0qnBe+k5r694eptyzRops+S/a6Pbkce4s4oprbn/nbBsn9jhNFid47eiqjQ AFrgbla+GTTX0crJHjIhY9fAsC6pKOwUOTcqS874YR1rg3aLibt6mjv696eR lImKa/QVJy/4qTOf7TtrPmSyuQKzqFn9dHHyrRZ6YzLZxqKy4iB4LIFu2VKc /XFvPOr6bqPwf6F+8bZnHD91vQEMTT4UMX5Q6ps7Xh27/X1SzuZOLQQuHK3r vH5/Oze6qYjLwl5fFRnYzqL/PG7bhwPR3PmaJxivkbJdgEIwXwo9n0znfLNF 1g/uH6/FfBctxad1vdnxPneZlcd2zNPewPkF43NDt3+uXNh6Z336vVZ21/DM SHSgy1+X1BR2ipoblYcxfl7498mAy2aqM1r7x/zh+K8rjKmTTs1HA1fOmenh a5SUwIVj9BUHFfwYaGfdgH+28EmpBNnFNH8nTo1EZYiCtGL87G6uLq0WtRby xR4PtXt/wbBy5MNeD+di/4rQHXIHOkyFC6KxbdA3GY3PC0Vz5mKR6XDw7173 5YsdZt4lCPOL74//uCrFzKY2Iu8eJZ73xJEPlnrgszWwF24aiarhu0ynltDH nPjrkO0I7x0RLa/cmPxB+B3R0L7bqeBn3pF+WzPBe0tV36cG4LGVDF97jf5e CKP1NTIuR8W3mSB7meOxqdMbL2VG766H3mgUXslMp12TD3HMRm6bzvx0r6jg lloOD59gbqPdNb0swX8ge11SU9gpam5ogWx7C6K170Z0pcjGsZWcuMQ4PQiT 4+MZsfaP3NFXAUTws/+MXb7Z7aK3uT3v62L/qL4vIP1JuAKY+fjdCLtJ9bUV s4nqzfY3r94cD01HIrE5VRQdqODn5EhUoXDPznroTf5K1TAc3hL1ULRx/oXH aTUSnDfWPRaaFxmrox76ew7X9fjR1n7UY39Pxgg80ht4JOp6uCiwlE+6Imsi r7G7OT/p7j7OtYCaHJ67IOSuDXZWpt5pQYafOOWdlejHpLZnfV3MsYVo98SL r5Mou6nof7jeGei1W5sFfJp4tobl0MDR4tdvfC1YuUaN2fCHJPmH/HVJNWGn 6LmhBVjjx+IMzB9oHucMGAPR2OdfELntyhp9FUAEPwbzpdDKgXeY34mUaHtK rUZHO3hndAlvWzaI4EfRYo95/1IWm29eyrNS6dUfx12nOcFaU9eoGOcGs540 9weXkH+WfuzPdTvp9T+uyNmxIBAmWYLFBv05r9vychBqONUAuz97TzVwRt7o ikibzlkZpwQjnNpcjE996nIcK24ENToDMj8xur7cQQZWwynvz5WTuzHqSubr bR35XlQoSPa6pKawU/rcqBzr0ZEXTo1+Jxx5pRbIrswbbz7nF7tHSR99NUAE P8dGfnh68B8ix3BFEsALjvlGOzmP/VdKgAh+lC32WBj+k5VyuJWc+sCOhtKI Zwb8ZYb7d5YDL9XxDFqkyy3v5KUi/MOsHAlWToiI7DiVPBEDKlHwoRGdvoSU +Zx+HHCygX/pEtn0k5lPX20pYqQQjc4JWd6fRX+3gHOpso2qN++62xqYp+QG sEogf11STdiJY25oFtQ9cvTdiFgRvcTRVwP6xJB9sIGQwCzYXQ++Up/dNrr9 C9jvhJr32Thf7PGhsOomdN4ho7DKF7Pxs5dNCEX297LD/dRq/NvIPOr53Y17 TmSucrjH/7AyX/POPfdx1DsmU4K1v5ZerEdfuKG+1X1PD6F5QAY8z4/kGBMd QGFno8yjfU5HwUPeZXcTgTfOvXBQeK3CHYtyx39DXRe5UPbbl70uqSXsxDY3 tAniJTPwHHHlIHH0lWdrzns681glglnIXyrkk8nJ7zOoX2AQDQQrXOwRv/Gz hxTXyi310iqrp6Ij1uyyeRF/iLM8EEUiS7s7Ju/gkHdyZjnujoHvp8rZScU+ cVobmaTIweuRR5LCS3gX8JwylmuhyNFSZqDSqcQ06XKYeRNdfoaIPPLmwYnh sOSnxLUu4RV2anZzx0U6SXbnZ2l/UPS+iGf0sfMo0JtNqCnhGl0K9jdnX4Ay CtjKGz9qCX72FDJ+9jLZDehlJSRd5ueqpKmOB8bpjT6I/NA84uvO0uWbB98P UIr8F3F8IPQEwwVzOdEoxBlfQkB3IOLq6cU7Y44m5NKVNn72tma9L7CnMumC c2zrEtZ1Hvvc0B6czUrKgRHH6GPn99BANvJ53H1P6Jk4MQhl0qAqbvyoJvjZ U874ofX506521PtNtH04I6JMFZozK8HJiQucgp8siKlfqTkG6A8kYCpB81Ac ajvuaefHqDCG2nN1hjVi/KC6WWmxIXzrEs51Xom5oTk4m5WkdCfZo4+fnZj7 eHnTiUqSjtyXdJC1vBH1nHPYERy9b1zxfVtu/xTJxg+1kYz8zT3Yy/ltu+OP 3hlx5yjVBD97Sho/SIJhFlF1J56EBrKT4vDlcKU+Z8yCH5ZsXQswfoDyyauG 8C4Lq+EhC8/6wapM/j3mflbOhoUZJm89s7xKCfDhW5cwrvNKzQ2Fodbit95y WBqNLedc4/dL5vlzNytJhrTc0ccOkkpcosolqnY+2FrefRj6t5f5JbLL758i zfihfgtdfo5fI4hufvfGh6GHYmajioKfPWWNHzQMnV39iuZ7FiMvjCEOD01V Sp2PX/Czz+6PnhM8LQSWEh9AFZPrg4B9tlDbsbFW/sKFK/JFkz/bakLbhmwi Eh4T27qEcZ1Xbm4oy+6s9xQhYspxNivivH9RwmSSN/r4+T06cjLzRCVqZaIx CGOnT/B0kl6Of/Y6L52BaB2NlrTVpRg/uRzD/E+ZbH8JJiSoQ5BAsAoHJWWN n/21YnKgER2DuqPDU2VU0kfKaBisI1Hk/VPrc3ciyjRBLkQBwc9esdpKWC4L VDNrEVd2kTzhieM92xexxrEGmrP575VT7nHJf4BiSw9hXJcwCn6UnBsKwltd S+6zqLlY0lQ4GOmjrwS5Jimldt6NqaHD2Z20rOoohekMpUymPUnGz9MfRo5x 97PGi/4FSV16UTWsCmUxlDZ+Cp3q5djbiHPScGw0+jT/FpiCY6oVH+ALfnBI sApT3TWzKQCaJb/0lVJFSgGtrp+Z6Udc09i6jGdWVJODlFTZCDvo8iLKWsC4 LmEU/Cg7NxSEq+EpGRTIN3fY59BASKLeV/LoK0Le+BEseop2qGlo98TKCp8g yvxyn1e08cPrSibm9grJ26WqzGTFjZ/CXj+ly9pQCV9nxsjlGefMyUs15QBf 8IMjnp5rTodMsKHwKpb7BaoU9CNSJBSOqC6zSKz0XkhuedRORAatlyLirnCu S9gEP4rPDeVgFLyE0dLR7Ry9FS1ZWxw9ispZMyWOvjLk8/eFjB9k1xDToQOp yZDhtHdO8Ewj2vgpODdJDyainj3hYo+YUNz4KVbWpoRQEHGH8t4kPQcONw5M qvOFFwh+5K8tO+vht3mpxXWOmwm1m6cA+gJxnypU+yKfb5sFWyg2uwJX/pSd B6lSWEYsIAPGdQmj4Ef5uaEczJ5eblUiJO4jc82UNPoKkfecNAyFD7BLmL66 mYknqjgqRyPNUCqcLdr4Kchclv6Zqyv42VPF+Mm3P86/UkG7HQmDcgJ/1EZ0 tJVQLUWxQPAjf23JlVjPUdflva+tWuuA5kA8kIrVvigsv4Cp9lRmz6r4LsNl KzyU/RDL7puDcV3Ct86rMTeUg311R/v8iVJun82ErzvznBJKxvGQMvqKkTPq DlC5UKnIaGbXaHJ4Y6IcVYiZx9Jg8z0Qelyxxk+BXFC6hENlwc+eKsbP3lp4 iOdTF27flvekcTyB23FvZ6Pc3kMiwC34oZamhq28rqZCjYyBaoBKp+UeYRAP pHKh8ELZD5byC9l8z/LTPFViwd+djT6Xe6jBty7hW+dVmRtKwnYSrzs9+p1A zXOkZYDEZgE8JIy+cmzEPc/Tz1Y0YJSeDzgtzI02OTx3y+uSicA3Zkq1UxZr /BR2QpXarlltwc+eOsYPpyx5BiHnWD5zM+8JZPqh17UMTy6qZSzgFfxQazOe s1ztvaTJDOiC9HI8eG2o+0Tm2zK22Ac8wfiypLmLeiCVq/ZZ6CHH0DmRWp5w 0smehGqh6rJBjb0y61fgW5ewrfNKzQ1q83Fs8pMrg39sa85NCpPF/vKIbzK+ KsmIpXbSOwcsdumHk67TJuJ495V/FLn4/qc07rIxlg9hPn8t+gTHBiBh9JVk c8ZjM9GfSZ9/IR/Oo9Ir0Rt9rcyTn3SSP0rZLArC2ZiNH37msuRdEs0D4uZR Kocaxg+1FR5u4P5IiSoNuerQphfdE3fCE38dsh0hLBd9sTXVjAWcgp/0kyjP 8iGeGQw8EFHuGtAPVOqej16yCGPL2cEr125cfdPOtrgqu8MvF9RxWkqvKIMC zXMpD3lp1qMjbB0XtVYzEaDGXtlPimddwijsVGBuUOtzwSvd/KZsCMbnhm7/ LG4jpub955qFPOe5HzWe6B78N+9nwXAkEgkHP/O+12dlXDTGk73uYqaRRCSN voLkGsHUmx1v35iYikxP+j0DHbTJV2/uvhKcK6M8TFHEembEGj/8vxdst0qt xf1/6WlpNFpfvcn7ZNJxry1zo+p1plPD+CmWS1Lyre5/Dl9dG+rttBgPNVvP DowFYitqus0LBD8SQ/OI9Z6BMLYN356VOpkBbUOl7nr2F7H9k9qn91YyhzhU r2hzz4g0A9AQiaL1oMR6yEtAbc582Eaou5qJAZVDiMibxrAu4RP84J4bVOpH 0nmS3+2kCKK81uz8L50Bzbqb3MP93R0WZlMyWTq6egc/8AWj8ynMDn+Jo68o tLv4uqv/RWtzvYFottp7B6/cDN5Nyjoja8j42U2F38q1+yS6/YvIXebLJNbZ PT+pdVBSxfgpXFdLmIiVhy/4kRCapzYfRsjLNrS7vfHZwZv/WoTcrmqF7RNa 6OFBEh5FCyxRx7WiCVMYw/d7qLZfK02U+KAee3UEliwYhZ045waVTn7tsvFE 7wI095BzZU0PNk27rLp8KlKp0VeZgo+6RG9KBY0fjvQX0UVT6QTZk9kly5G+ 46Nixo+25Xl8wY+Yu02nkvGw35MNdjAQ5jPv3JAaLgf0wXbSf8FkMNk8M/yM jGyJY+azFyewRMOv3OMSbgoSN6T/HKtiZa6hYoaCSNClr2E4vKXWXeITdmKc G9TKt8MtvGIHLCaL9Q/8tk2Z/6WXTJTMPWLdPqVru6lNpUZfZcTu7yKNH2re Z+P8vYDwDGnkYer2xtnLbq9Er/VkVQEDfpHhVJlUzPiR6VRXlgLBT4N1wEMK ccMz4nK5LjEe23y7GqPF7hxhvbb6/bh+nw1cdWmFq4FZTbioC2HFvUTbhzMF fmpuwqm4hozoB6rwJ1PQb1fiUrCzMvVOpq+Qpis5oM+rWrt5nMJObHNj+2df VxOyNLf10avW3GI+2LS7ufowHglcu+Qw5z3ZZVi2rNtHc7l+exUaffUR+VGL NH4KzAeBv6e2Z31dtIensW3o06nIdDhIXs1MJ1NL75h0XZNk1DF+Cn9F08ZP geBHEkSz9YVup8tDfqVr46fY2FUQrU6brVnvC4ThmDNYGNRKJ8keJPYpaqVF MyUPtXt/UXIaYTF+qPSCvy/Tzq+hzX1XIzWdi7EU7G/OPiqWvP4sKgk7cc2N 1Izblm0s3tp7NSjooN5JzU2M2LOWEvGCd1ZAZc26feqOur7TngWs2OhrC/Qx GYR7ookzfrjd1miEi4PtbiYjt0ZfYTVd2f3RH55dqcySDsZPEfiCnxJxUg7p 1FJyPv5DyO+5ZD+W9wGZz7jISHJTV/VXWahfxy/8oQwNpCoQf7gw/qsW7Ui2 jU7rWGy74O7QXkIGsT52RByruEwOKeLHImEp2Ix5HZmdsawu0pUEfV6MeeKq CTuxzI28Lp1oeZWMl5e2xiT4s2J2IcNGu26fPcVGX2ugk4RBWBgvzvjhdFsr fXGtoY7xg1TUzKFd44cv+JF6qqI2kmFPD6r8sbzkjQjU8gJ0Ctt2sHgRY6bl ZX4yiayAii7RSve7kW38oGU8xdXhrwhojyeMhqVqwk4cc4Ou0EgX4SBaLk0k xWTKp+fIHsal0PhGqLiGTctunz3FRl9rFNbvEiyJIM74KShfjK0hoCqA5qeA AsGPnCpYVDo57jQjmx/xzMD4Aw3HAgAJML7l4h39mJaX+eE/PhB6IvrKZS1E 8pFp/GzM+s5li1k1tI1GNF/AEw0b4ehZnEE1Yaf8ubGzHHyN9kQ1XvQviK4R RD0ev0DHNw9wm1CPg85jWnX77Ck2+poD6cbLIujmEmX8oHmLNNpOYiqkYsaP ZudbgeBHriuvoJkpngrtgGbYmnYdIYrnGlNzvk7kAyvR0rcQVIejZeMnvTg5 3JJdY+tsH/2kgwqenMrz+M5iqgk7Zc+N3Z+9pxoMxYVq5ZDpXVLUmbk76z1F aLCydw6FRl978LM4BXtLiTJ++OWdhVt2ao+KGT9HegOPsP8ODuQIfg6AjX2j NDoDj6v2a6s5Ut+NtFv/+NmDQtuH2QLKW3aKowvjB2m9ZCgzA7oY6ZXZsN/j cmZr3O3vSZYOR+/A+x/7w/El/Ho55bY/dYSdMudGpluHLN0125SzSPWGtYjr pIF43hPXZMiLpmaMn8K2fQIloUQYPwUBNdEnu0qjivFTTO+sgY4qRcEl+OFQ GHiVsA8CuuP3mPtZZNCfdcfE5umjGxymNusHIs34QdO76NXy5aD49r/U7/Pf ftRPNzIgjJbO3oG3mLIGl/rtLbmHJ5o7B67fwZoywMlV0eH2J3NusHuizNM6 Y+QUtP6hFsiuOo1W9s6i99EXATscCB2e+AHHExHGDy+PTLPiroNRw/gp3Pq1 0Eu3OFgFPwhomTuWI65ItVbWAlie/jByLL/oEKe8s6KnvJrVSCQYP1Q6+eVg vjieJKlPemFqtMtkOGTp/fdg7DE3XLa7uTQz7jqdlRIRxra3g6J0ucK/rF4N JSWQOTdobZLsjDzWfcTTMLA2v9aDIDoffTGw+ivEUDnw6F228cM3qIorHrWN GsYPqqvPviqBJneVBLvgJ0sR59fB5jdQDVAb4ctIinvxXLBSVNL4KbkjcMsC 83pSlwe1dm/shboSTau3khOXcoIiaercouh8+9NGmT6mxQZHG7A+OdBIEO2e eGHZBy2h89EXBZVO3HSgG9tB3UbKNX5yPYtZ6syD36xoerSLoYbxU9AnS+JG oAIKCH5YCnoHVHVlLWCfJ6GB4+hM8ktReaEbnNKRYnHGT6aFaxai7YNoSmyq B7URHW0lmrp8P5eI2eT7ZbC/VaSMtng4Jx0dbn9qzg0BFvzdjUjpPFYF3dhF JjS5wufQ++iLZeO+F3XVHGp13SmivC/L+KG271/vLMeU0jgqGD98FY2GXWSK CH4Yinh+wPipZqjlQB9i7db3BSRVvVFT8MwvBiuwI/AtH7FVYjJXoRMBynQR sN1Dcqstjr1V75JXNeeGAEwZPeK8f5HZ/tgMsgOL/2gHvY++eHhNTIpW4irH +Nmc8dhMyHWsw1NL2jZ0D0B546dARaNdIZxSgp+9wqzAyq5XgNLwyvtI1j8w x2qVJgyvvUWDzfeg6GfKs3wMprOemfIqA/Ouk6lAQhhbuod9kcUSITOOV5bo 9Mm2fvS+/ak5NwTYWfSfJzJLpcYLG6LoffSlQK1/P9Z5JP/lNr50K8FVdZQ0 fvLFvVmaHJ67mq/odQCKGz9PE74zXKmv5LISSqOY4CebVcohd1YCqg9eeZ+j 70YkykrRUJTKxk/RsrdUOvntqB09P3aMRlclPRsvD+Jof/Cx4N+zmyzGzwfd /vRY41fNuSEEs4ccHwqvZUK9JRp+aQS9j75Eipxcok/yhp+g8UOlfiSdJ5Fv 8HiPV7Lls5NKfBe4RZI+piU43RPcYbd3dpy5FnuqlnWgtPGzfc/dytG6YIrX K4Figh9+yjPzHjAcXdUBurqLRnZ5nxzoBqdwaSy+LK2wEiwvt4su1zk48avU IzPn6G0o4/TNXatOjkRlzgQ1+6YpgYpzQxDGYU6/QLaTi2Yd+1z0PvrSoTYf BPMZlHQTvj5vtojEQcYPtZG8c91pzVerI8z/2zMtp1UT6rdEEKhBhB1ljR/W C4qiWbePkoIftuslB81KvguAru6i4dm6ctL6VDyf8gea50zY3UyM47N8aHZi bkQRfrjH/1D4i+DeoHxfB2o8sI4LfaEZ3wW9Y+7fwH1G6tzUF9BF+Xq9j75M tldmPnM50Nbbjksef3jyCrce4rEB//eRwDW0SbfBeLLX/Y/4qsyaY1Q69SRJ Mxu96cw2Ala3QYaixk/6vs+BWneEqYdMiE2GVQvFBD+ZIvAcdCSPh67uYuGV 9ynq4tu9/+mZk895fyo1CdDYEJFPqVECJmcZAbXZuDWcDRgsHxpqbcZ7nun7 0Ng2PJEssTLwwmTySz4+CvQeKfawekHFuSEMbfwQTX/xevQhdWaRP/pUevV+ 2P+Rq7+7w2IyGC223mHP7SgiXdtJa3Wzy0BtJCOfe4a6W4zlLPD1zR39I75J 2WYP/ya2wsMNmZ9QunczFwWNn/TjgJPj2JJc914NlBL8UCvfDJp5tk+jw3df 8+4LQBq88j7F85J2454T5R1zdqIjuQj9oYGQgjE/vsc7VzpmKxl8u82I2/LJ Qm2uPlotJxDOrdIvv0Yo2pZRnwI89eaGMEw2R73FckwfUmcGmaOffhS5/oqV /igarX3v+yamItOT/rF+q/GQuef6TGo7FfuEDhLppI0jtbn8YOafgZuekQE7 J+HTYLT2Do94PgmEfvh5SSG1CvJd170UUNMnoJTxQ6UTZA96VDQc7fMnNLzj KyP4oZLBly3c90uYunyz2i7/BcignPI+7PduHYmWEbhBa4Mr0XcvC9/z2TAc 3rcu8s4ZRSwfUfeHaMhxbLLo0ldJv4kM1JobJci/yfKmtBaQPvqI5t/UNTq1 gHwLO6n7/9HbWG9+7YP3bZmrV9IolYCoxqZYQL/rdq+qWhBljB9q/Y6rFfWh S6p7ryZKCH72Nw7PWRP37UqsiALohfVgPxKbqevxF5G4sdLiY6PRcvIa6ON9 dodTUvDEXwn2d4TUgy+Gn+P8w0pZPnvUdmysNX8bODpmIpYD0e1fxHGXaqPW 3ChB7k2qqVaVicTRRzT/xSs87CwHX0PiHfiEo+qgvvGTLwKjruBnTwnjh0ov 3hlDk+kMh1oGvywV0K8w+AU/1FqcfLWFF0qVWhEF0AmcbokHiHgz7ZBa3ffK i52j4gTluhgUhH0tPf1oSruhgpYPrznRodaR7+XHVpCYkeqrLjbUmRulyOyY vA5fmkba6FOLX7+e0fwfvRA4IKeNI/njt3zVOmobP+iCqXozOMzGz04qTjrR lJCypIwVh1eSTrbgJ9Orkbt1WC76YmD5VDfc9O2iMS92H687Ry6UqRtEtS7K rUXb874ugwC8eiCqsrMSupTNBzHU2T76CUdvC6RqUGFSv15QZ26UIrNj6kg0 Lmn08xWSicYL4wcnLa+Fh7KBb5VFLPJR2/hBJrD6vc4LKw/bfPOSlhYqdT94 5RxXHtDa57un6WhXBn5hfxmCn+2Vmb8P245w3ylhsn8wBdGu6odr/BSJAlCb Mx+2EaIkK+jh6MCqy7IpaOmOTl/zeW/lPJZoygC+qDGyQxE9FfOZyEWduVGC zAFaRzEvKaOP9MYSjrpSCdKRPfiqLGKRTYEvROESCsi7Ur3X+c566M3DBi6s 0FEE6dR89AuP08pJlyOMbW+QM7iOioomFRZ0vJXmv02v06+hv51fFIcuITVd qnQ/UB1w0rGLmNCbd91tDaILHSAnlPr+oDJu9ANqjlVcpZaeI3ua8d8Jmuyj p127ADXmhjBswFRPMS8Jo4+2litRxTFfMkJ34dSNuOd5rlKDaHROSGpKWB55 haTC84faXP2NqSqUfDgX+1ckPEG6+61FEvyNbYO+yUhsLinAXCwyHQ7+3eu+ fLHDzL+Esd15PVsxUj6YkwrTqaXMW5iP341Mh8a9bznMvH7rdeb+/xcWfgG5 1xCZCvp9HtdLHc28ixjokN/gzUhSYmMDQI+wRW6Lb0aZtjiWl4MijzjoWn3c HVNiPeWXd84sfSaHJ7qCt6yHGKjlaVc7wd6J7b1JjDZYftUljrimdeyTVWFu lGA94mrFUXBbRUSPPmoVlKjGiZTuVLdqTfnkLYHsPri/i33mHelrK1bOtt5s f/PqzfHQdIRrFDxJyT3RU1sRVzZGorA4SvFSvYSx5Zzr06lZbEWQsCcV7q6H 3ih+vsX7Ipo7Xxu7DWZPTZKacdsy62Q+n4tKr0Rv9LUSEvsAotKO0945BfZq foVD+ntqGfDPpip3cs0nSx6y9PliOO8EXXVVl1liRvm5IUxG31s5ubVoxI/+ xtTQ4Vxu2BlfQqBZzdac93TmLzUr+MFjCcgf8QLBD7WRvPul1+U8a20mDPXN 1hedIzcn48sYJpYixs/+Hdp7B97zkMHIz4tYqyApkVS4sxS4qIwBaLJ0dDHv YeJO7FfZJjGgZ/KNj5lD041rVwbP0jVUZUjgmKKILKXbQEigINtx30j7fqWS 03hrwX+R+bqb7KPf4s6YQPo6Hb4c1vkZRem5Udav66HrTBaxo88tW1oiTIbI RzUbTtWI8cMR/HyaeDzt3T8eEuaO19xkkInvuPssBNM+1fOfNaUbqf6kQqCK SS/Hg54Be0tmjTGe6B66FpRzhEHCUgpIO7gZ+qbTrsmHFd3KtpITl+gyEcQz g4EH+AvL5l8mcXhoSh8ViQVQdm4Ikz2860jZK3r00RaopcJkW9OuIxkfUcNQ WMfhVBXIBx/rzGf7zpoPmWyuwOw6Mo+eLk6+xZSLMdnGonrInMJBLSQVAoAI FM0JzeW5E8a24duc9Ud9spaPYsn1iJvrpCtSBR0tK5cvnC3Pq6M6xuJHH80F KJEXj3jhjvQGHuG652oEDT4aDgyyUwmyi3n5xKmRaC04N2oiqRAAREElfJ1E WSuweH6Pjpyk9flDn1dS5EOTsXyIllfJ+IHJ9VQy9KHro1BSmrYQMRVax2JV 0WhGybkh+LsZeb+O6hiLH31O8X9hVVU6SfYQZf0lgGrVBFo+5euP1fcFFMw7 0wa1kVQIACKhfgv0NSmzDlCbc//8/E5Coc6FZcNaPoSx7e2gUGIXE6ST7Ond vuduZb3txk5ftRyYFJwbAuQKOxwfCuvEgSZh9FGFTInit4jgh9MvjEov/ngn tqgbVZQKoI4L86XQyoHfcv71V39wp7qSCgEAG9RG5N1M810RBaL1QsbyMTk+ ninhfWLOjBLTupF3KLbakqapyNxYDQ9ZmIO7+K7olUHS6KMN1IQ1zIiPiCu+ ortm67V/nEIggp9jIz8IpM8htmflapirQ5UlFQIARnIRcENDuydWRdbPzvr0 e63EoZbB8UTJ+mBMZRuJW0m+R1j5vdV0gvpzI7fXazatiYfE0Z8n7dntV7D3 EzXvs2X+jlttm35RDXoqAqk8SG81YccFWja2sdu/oN4tqk3VJRUCAE6Qo+vR dyM6z9HOspOa+dhharK5vi6V0r67ufooMTXaRhCcqELZUAtkRk1ouuCXKBnS LGrPjZxyWC9pTVJHH8n2EjB+qNXoaEf23M4p+ciooK0j0ar2WoijfMcF8pdK 99qoMJBUCACC5E+vjV1kQv/WD2v5FNaZF0baGXAt4jrJLhjV5TfLourcYLta GPST1iR59Kmn0VH2tRqOuCLFez9lUxQzexcaB3ya8J0h8vVOgX0eBXqzmV4l MpXQtpt6mWnSgKRCABAGaUWne+ePNMvHIKmZAvre3g6vV2WUXM25QetYmI1e WJygEeSNPjXvP8duwUUdOKzl0/CM3WZmpyeqi6Yl1o3VaWxLpvxMJU6qna5a qIgFkgoBoDS5WhC69mBQ27O+LimWjySFbd4r0jIYWtS1ySiIWnNDX4IfuaNP pRf8fXQOMj8pm9pMhNznzESTY+zO4kbM097A3ZI2E2Svqaqk9RhAMpVKuDio JOnIrRAq17BSGUgqBIBy2I57O5lEUVMvmdis9N1IY//80i3F8uF/8uWwsx5+ m/FT1JkHv1mpXtOHRpW5kRX86KItLJbR30nFSSfddIAw2YZuTEzRncGvvmk3 1xPmc+4QWyaC2oxfZzyZhMk+Mh7+Z+DqBUvdM4MTv8J+hLCz6D+fsWiIHsEe Gaja2UA4SJENoXUFJBUCQFlQ6QTZwyyzgiXQARpq/Y6rlfazE63vTVdnwAtF hbmR25V00BYW4+hTmw8jtz1DvZ0WI2EwWmy9w57b3yc5+YlUeiUWGBukW3MS zW3nL3vDC2D5cGFLqpZzismGVmmqqCpXcSCpEADKJL0YHGQ0Bs095BwssAdC LU+72ukzVZ3d81ONZNwoPTeymSnaj0TU4uhrnFTEZSlnl+fUvan+0CEkFQJA 2VBr98ZeoB2gpm5vHOZ8UXJmgMUZmK8hE1HZucFm6xCNA5Pa7rdUq6OvafLG j9EVOXhQdtdDb2TTn3QtbiwTSCoEADGkf50YfIaOcLS8M3VwifhaJaepbnJ4 7tZKV+gcCs4NJi1X670ma3v0tUte7Cdk/OSLdtZItBqSCgFAJOn5gNNCayxL N4aoKah08stBWqFaw3ufUnMjvRT94tZXcQ2/VRh9zZLv535wgT6kYifR7pqu +o6mLJBUCAAiyZzxwf7JQ6WiYzYT7H21OTdg9DVNTsxzQIVDKhUZbWP39yaH N6bTdFZJQFIhAIgkvTA12mUyHGpx3QH1z97uA/JMk4E46SR/hL2v5uYGjL7W ybYvL1ohM+OuNNSs7QpJhQAgkq3F6D9uheZq6aB0ANRi9PPPv51br72F8yBq aW7A6GufzRkP7ZojGvv8C/mOfvt7evRGXytjF4HtCgAAAABANUGlF++MOZoM hnqz4206vjM96fcMdNDRnHpz95Ug2K4AAAAAAFQf6eV48Lqr/0Vrc72BaLba ewev3AzeTW6C3QMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQBXx /wEt9JDc "], {{0, 115}, {767, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->Automatic, ImageSizeRaw->{767, 115}, PlotRange->{{0, 767}, {0, 115}}]], "Input",ExpressionUUID->"dfa9ae65-2c47-4755-94c8-3e599582c1a6"]], \ "Subsubsection", CellChangeTimes->{{3.440895754578125*^9, 3.4408957769375*^9}, 3.4410038390222445`*^9, {3.455042878078125*^9, 3.455043003234375*^9}, { 3.4550430723125*^9, 3.45504307371875*^9}, {3.4550431366875*^9, 3.45504313765625*^9}, {3.45505279165625*^9, 3.45505282378125*^9}, { 3.5367535507791395`*^9, 3.536753619943095*^9}, {3.545147981904499*^9, 3.545147992921129*^9}, {3.5451480361216*^9, 3.5451480635611696`*^9}, 3.548646755982729*^9, 3.559436180348071*^9, 3.559498749111149*^9, { 3.7095733147118254`*^9, 3.7095733166499367`*^9}, {3.709573634582121*^9, 3.7095736661459265`*^9}, {3.711717094956087*^9, 3.7117170956861286`*^9}, { 3.71171712788297*^9, 3.711717132164215*^9}, {3.7117171826731043`*^9, 3.7117171831101294`*^9}, {3.7117175469379387`*^9, 3.7117175568335047`*^9}, {3.711854545778356*^9, 3.7118545631473494`*^9}, { 3.7119033442924223`*^9, 3.7119033605323515`*^9}, {3.712095460921544*^9, 3.7120954609225445`*^9}, {3.712095552840802*^9, 3.712095552840802*^9}, { 3.712095584347604*^9, 3.712095584377606*^9}, {3.737807608883332*^9, 3.7378076101044016`*^9}, {3.7385815846478014`*^9, 3.73858158549585*^9}, { 3.746790780119294*^9, 3.7467907805274167`*^9}, {3.746841541971039*^9, 3.746841542324361*^9}},ExpressionUUID->"a8e0705c-4c0c-4b2b-b63e-\ 5a227e25e692"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "2", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{"B", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "=", " ", RowBox[{"I", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"V", "[", "2", "]"}], "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{"\[Gamma]5", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}]}], " ", ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.440895870234375*^9, 3.440895891640625*^9}, { 3.440896510390625*^9, 3.44089655715625*^9}, {3.442671255203125*^9, 3.44267125603125*^9}, {3.44267137046875*^9, 3.4426713811875*^9}, 3.44267142365625*^9, {3.442712951171875*^9, 3.442712951859375*^9}, { 3.44296369284375*^9, 3.442963696734375*^9}, 3.44296768475*^9, { 3.443374517453125*^9, 3.44337452140625*^9}, 3.443397833125*^9, { 3.45504301590625*^9, 3.455043130828125*^9}, {3.4550527984375*^9, 3.455052814484375*^9}, {3.5067782137090287`*^9, 3.506778214466072*^9}, { 3.506779064525693*^9, 3.506779068082896*^9}, {3.506779121543954*^9, 3.506779124996152*^9}, {3.511641116247309*^9, 3.511641117295369*^9}, { 3.511641238366294*^9, 3.5116412632227154`*^9}, {3.519945652604292*^9, 3.519945656025487*^9}, 3.5206470576621337`*^9, {3.536753629485641*^9, 3.5367536355419874`*^9}, {3.5367542796588287`*^9, 3.536754394482396*^9}, { 3.5451480077289762`*^9, 3.5451480136813164`*^9}, {3.5451480836983213`*^9, 3.5451481475869756`*^9}, {3.5451482301356974`*^9, 3.545148230279705*^9}, { 3.54514835065559*^9, 3.545148351119617*^9}, {3.5517190084457397`*^9, 3.5517190462919044`*^9}, {3.5517253476257124`*^9, 3.551725350072852*^9}, { 3.552315878168127*^9, 3.552315880549264*^9}, {3.5594364063879995`*^9, 3.559436470154647*^9}, 3.559498758930711*^9, {3.7095734439172153`*^9, 3.7095734562269197`*^9}, {3.7095736865240917`*^9, 3.7095736900622945`*^9}, {3.710786317142681*^9, 3.7107863175327034`*^9}, { 3.71171717351058*^9, 3.711717180665989*^9}, {3.711717560179696*^9, 3.7117175669990864`*^9}, {3.7118545714168224`*^9, 3.711854584457568*^9}, { 3.7119033420472937`*^9, 3.7119033423323107`*^9}, 3.7119033814345465`*^9, 3.7120954622856226`*^9, {3.712095557947094*^9, 3.7120955854366665`*^9}, { 3.737162821795579*^9, 3.737162839969626*^9}, {3.73780794558059*^9, 3.7378079860629053`*^9}, 3.7379793854587083`*^9, {3.7385815933232975`*^9, 3.7385816487654686`*^9}, {3.738581823928488*^9, 3.7385818265056353`*^9}, { 3.746791040438759*^9, 3.746791071688319*^9}, {3.746791218199999*^9, 3.746791220316177*^9}, 3.746807028665576*^9, {3.7468417056039705`*^9, 3.746841749159717*^9}, {3.746841934877225*^9, 3.746841936819081*^9}, { 3.746842058956802*^9, 3.7468420599152675`*^9}, {3.74684410678551*^9, 3.7468441080807676`*^9}}, CellLabel->"In[97]:=",ExpressionUUID->"8d2b1a88-353a-44d1-9581-d6dc9167159d"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "2", "]"}], "[", "2", "]"}], "[", "1", "]"}], "[", RowBox[{"B", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.7385998195678196`*^9, 3.738599826307205*^9}, { 3.746791128448927*^9, 3.7467911487067003`*^9}, 3.746807031096098*^9, 3.746841759702013*^9}, CellLabel->"In[98]:=",ExpressionUUID->"4e8f5e84-e8ba-41a1-8809-55e64b6e264a"], Cell[BoxData[ RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"V", "[", "2", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"V", "[", "2", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}]], "Output", CellChangeTimes->{3.760467983708576*^9, 3.760468241903183*^9, 3.760470340513102*^9}, CellLabel->"Out[98]=",ExpressionUUID->"c7e3200e-2253-43b3-9638-d7c4ec1e8f50"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnV9MG2fe761zbt6LuThccoHEkWWJi0gRQtY5QVEFF1SJkCDaCiGayDJR cyDak4VsT/CmKjRqIKvW1W5B2zg9b6w2VlZxdjtKt04Obhe3haxwWtytUUCp 00BkGpyGBAhykAmG4TDjsf3MjO35/8/8PtJ59Z6+zjAe/+Z5vs/v738/3vOb //VfLBbLm/+x+z9+0+lq/P3vO8++9t92/z9tv3vzZNfvTrxx+Hf/50TXid// z+P/dfc/9uz+v/+x+7+Q//sOAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAYCjSK/ORf/ovnjvVUodZMtga2k8NXPzb+OyTFCH5uhtLU/+3s/XC +FJawZsFAAAAAMD0gPbgJf0kin/Q3WizFKXS7nTjkUeiHxfxfNZ/pmH3uWPN Q5NPpT9sAAAAAADKCdAe/GyuzOADLTXFHxFKTXPfp+HEhrArE+mV6LXeJlIY 2zpHJhfNr2UBAAAAAJAPaA8B5KRmBsze1vfh1dGJqcjd2Zl/T03cujrc11ZX yX5atqPu0Xur6ZLKlFibD13sslP/1nbCO/PczDoWAAAAAACFAO0hBOL5jPcE 7WS0tvZ5x2afFnAoEqlHEfxCuw1jPqxKu/PD0dhyAYFKrCciuNtZn/kHWONb eMzMTwkAAAAAAKUA7SGE9C9jA4exjBfR9dfIUmkvIpFemvJlnIesx+V49zI+ Fo5EZ2ejkfAY7n2/pznnvcSsLe+FhPonAQAAAAAoa0B7CCH3lGxH3cGfkwK1 JrE2F/zQaed4IAuC1Ts//HIuuaXuFwEAAAAAwBSA9hDC9kP8eC0lNf/4ZfyF 6IKJ5IOvva5mK0fY5qlp7vOGCnojAQAAAKB82ErGvw/ewHG/d9i9y/m+LqfD 0dF2/MrsSxOH2lQBtIdQUnH8zVYXHpMhNclg8c1P3H1vNOdS+6wN7T1Dl/Fv phPrSpvmdiox/XXg1kQ5PHwAAPRCiZUkvTIX/vJG8Pu4qY/qgGIsBroK1Se+ 6o1t631rhgO0R1mytRL+c0tGPGOveWZe6H0/AACYESVWknw6jaXidX8cdmFg h0gnnyVI5qLXXXZaN1Qc9NwFEW9yQHsIY/u+70h19nBideALet8QAAAmRIGV hFgPX9iXc5VUvBlchn0YyEFshIeyFnagf2JZ7/sB5AHaQyBbdz0HK7Kr4kl8 cVPvGwIAwIQosJJsLQffzF4Cqzk9+gRyjoA8qZi3DQR8+QDaQygbidAH7XXW uraBq5FfIS4MAIAklFhJUj/hrlYrZm8f/FxOXg1QhhDz/g4rvae3+uZBwJse 0B4AAAAAUBYsB3sqICENAAAAAADAUBAvJt6pov1oDYPhVb3vBwAAAAAAANhh JKRVng2tQd0vAACASSHSiX95ug5WdAWW9L4VQ7AVHa7d1zJwA7K8wDbMagxE HHfSsygxJ56AhDQAAABTspWc+dRpwyzY4XfGH8NaTpGM+bpsZTBuTy5gGztm NYa1UB/dWrXyVe898KMBAACYkPwuPDD2C5QL5SGez3hP2CwWrPH8mIm2ZiUB 28hiPmMgNiLu/XSws8kdWdP7fgBAVYj0aizkfedEcx2G1bWcunDl6wdCx7AC gHHJ7sKWum58fk/vwgUhnk4ONWNKbs3yV5LN1di4f/hs5grNjt7BK9/MqxKG M6NtpOLBwRZrld358dQKzzMhR/l8+fmNL6eX0sJ+AOWNQVU4CWnEemL6K5/b RVqOpbKu+Q3X8PVxhUcL7Zr3fGTsumeor6utIdv7YxdbQ1tnz8Bfro7emVuF 1l6i0FV7EKnVxwnFeJpUbRnZSsZwV2O1rX3w2tjk1LeXu2t239SqJvedNdBp gIkh0ouBXsqYG4dur4AxFyQ9j3fXkVk9TX+eWpOphWSvJOnFSc9JO1bT3HcR D01OTdxwO2otqsgGU9oG8STQTXecODgYfl7ys8vhwSbqkzVdgUWhf0BJY1AZ RkLaZ/EnU77eJgyzt73t2bWcyNR4wNPbQCrOg93e74TK1FJspxJ3/INOOzpp fPcQcez1/DhL+j/WO914RPmJlipAbKW3ZN+mrIvorT3SEbfVojSUYu//sxf/ JrqwpohsI5a+eaexpnHgqwRtyc/DgwcpY9Ngctb6HP52C8vI1cXW8Ma1mLGX H0ARiLU77iayQL+i/ZOfUrzv/FZy/vY1d0/WGsmTeJ/7k5uRR/z/VOR9bc5/ frph98Ywa4PDNXJD9/WcWPl2wL6792O2bjwuYzuTu5JkZnTa3rg0lWtiSbyM jtRTl7Cd/ELBzHCRtmEQ0OELbd5YqtRn8/la1e3+h8K/oVLGoDr5L1hhP9F7 wl5la3cH59C9/eXS+B8bSU1la78UleWcST+LXjtDSr7dd7axa9D7xe2Z+cQq Yjfp5NJ8NOT/sLc5O/YdO+T67O6KkR/gjlISpQtPSFQiumoPClVEGkplXdtb l27+kEjJSJkkFoOnD1R0XH2wmTOnZMTdkLm++tmYC7hD3WdUAKs7YpLYBiAd yrDJn9t20j+3zvfh57P+zCLMpdLu/JC5+Mtjc9bbWs00yNcGb97XNbtga23q z02Z7cw7U3LvL47MlSQTa7N1+WJJxn9P4I7MU8K6Je8FBW9VqG0YiOWJ/gO0 zVQPhTdKWAzaQOzQcFTUfqeEMagOmpBmId2h/YE5bkyciOOdlGrCjgxHpSat Zc4Ou9doOH05FFstrbvSv0Z8b2ZXkipEfhgSfUWaztojcw+5cOej+dl/R8Jj +OX+Nht3J7C2DPjHo7GFUsHO+dnIVDj0D5/nwpk2O+sSmP2ND0fv8RhPkVtc j3xwAHvdG0NWKuKhv706c+Ha4ajKPqet5MLdCM1kKID7Cz4irKnn4meh8FSE n92ndBPH/+7zuPt7OhqshfZdB55Q90sBupOK4z1ULMTW4Yvx5Yhsr02cqylg KAi2o+7xR0pIBOa48LyF6524TiyHh16l7qTVPbUsfimRuZJsrUyct2PNQ5NP WX+amPe10s+owR1JFv7X4hBlG0YCGWtY0RMsOUp8fdaTfWwSGojJNQYNQBLS LJit0z+3WfA2Nxf8nfRj6A1K+Sa0QisiAguzuRL1OuldzNg6jZmRtRCbJnfh L3zDvS2FtFul3fHu5eujE7v78Ow8Ik6eJU2pPYqxtTbxLnuJ5jkTcUknF6Jf el3NDAVSae+6NLHwQtzDIh4FuvdVdAfQmcVI2sP+nuCvoq6nBOjbl8Ha7otJ 27+I1FJs8tpAC2MHruwLQSFQWUNszvk7qUUSa/XGCq/eKNvJ6N/d7/f3OMiE 46Ios2EhzhAWNW+HdB0PnY1zScpHkrmSrH/vPlBlH/iWkxuGeoT4AnzCblSk bRgIRK9Wtfp+LnXrSL6Wpd2/IEFzyzEGDUC/oP38RPEairyvSMr49fUHvs4K KUIrvRQasNP3Z2SHZBGI1ehIG3MtxGp6A4sKqk0jao8s+VljWSS9RFRNxL1R 91Ebeilb58jkonA9Qz2Tur7QU+S/pZ8EcsPQegJPtD/cc3Yx7Lg//lLOFYnU wyDlr85cTj+JDmhCNvnZYjnkjpROrmZDqfrP3M76wmKtxhWU+UaQXUOLCcHq I777uvZ62lzET1LvflXT8A+iooDyVhLq71acxBe5bi3EI1T1zoTIM2gBZNiG 3qAJaa2e2ZK/D5KvJXWipXRj0ALkC9YP/1hie0ACemI9scTmg6sdFRZmPE74 v16aGGjM7jntnhlFnMDawQmEWh34goLXN6T2yN0IJwosK/q2kZj8yIHGB7HD /QGB+S3UW886XxDz/o7syYOpcjUCcenTvOqNyd66iLXJoQMVahgbYDDST4Ku TBqK9FTz9LOZz95qLCCmsBrXmCxv2lKgq4SzrtU3r69rJzXtaammvigzDMGD zJVkAXfUHHB/X+DvET/7Wquyy3bpAJ8QlLAN3UBOrzwRTDRf60D/hNTHJtEY tIA86wj6gttrobPZsjQxVa47pIwIueqp6p7XHF1nR27eE5s1SizindmtrMJ5 3dBVGByIBX87Y23irSYWhSG1Rw6FRdpOtoi1Kn9BwfktxGrsdmQB9cRux7yv 0lfZ1x14pP1zQlz69JfZ755SovY+F0VV1tgAg0EGzjIro0xXyUZi7HwhnSbv stvx4LmTx4qFVfWfP5jzn1gqOvFFwe+/vJVkO7X6dLVg9VM+7sAX4BOCYrah B8jplW8EEpIxgp0KLEmOG0g0BvXZmPcdzaqf0kFM5JMij+dE3N/BeEsP9k88 E3mfT0N9dcqsG9qTK9ihUSojlMaA2iOP8iJtB+nKmEXiiJNkdLg5u1+cER/B lw/q0s/A8ohKJ/vg+SIFgIlRdlvJZZgzlZS0DGQGRDoZn8LdTjur+Yz0YnbF yCuZV4fCkr+oIiuJnBJFLoaVHIJATq+8hW+/BnuyjjSZYQhljEFxkC/I43xG ZZKoNCdU3WWQEIJB/Xh6e4fEorJI46C79kBQRaTt0OVR6GUlVJfnX0m9suu5 CWnK1d3TVmeAfRBQibwBSzj2FiLXq4Fhk3KTJHNXTy/dueSsRS5tBOPcmPMd y5z3sCO+OWlbvDIribwSxaK3pJBtaAp6euWLBbyY6KelrfwwhBLGoDj5L8iX ccdInhGl83O9IPIqZTC8KvZOGUFDffOsxKKxSNNfeyCoJdLIuukpdyujHXLL xzMi+jSizQEU81+JQ52ENJqM1UGTtLJldyM7Q59bD3wQUaZBLLEZ87ayY5MK 9vDJ9b3PYASRhubSSIvRKLSSIAlpfAE+XtSwDS1BTq98VYpbs56D9EcVKJGT bQzKg3xBHusiErgz926J0/msJgMlunyUhLHda1uxuB71nnQ6EJw95y76bwud sCZZpBHricjnnoEext92OH/rmyl+sjWA9kBRT6QhddNZRDUCejbRn7X9fRfC eqxjqiWkUWSsTvfcbEAltu/7jlQrLaJ2WQ0PNlhYKGlFL2Y9vxG4/2oEVR1P 72xSYrsKrST5hDTZP6hatqEV6OmVx/bSCbw7K0yO+uZlL59yjUFxtpYCp+gv yBNnYUQbxep8Ijl9tfcQuVeTY55uxiROj2V0a6/qn9CkjT7F9qOJv/zB0cDO 1xA6YU2aSCMeT1x4jd1jjZzIee7jiUfF3zv9tQcDNUUamneRXfYLFrYXIl/U jO0bnNQjbUvFhDQSyuqwrsCSYlcEjENufpBFoYZa+Stvzl5qYi87SkU8SfKe gYOeWQNoNMbuJuGbKrOSoAlpTe6InACIerahEcjplbeDEJKFpYw5yTMG5XkR HT5Ef0GeZ4Emz1g7/LqczpkjdRQMDAkkvRz74h1WARTWNBLlFUJSRFquejr/ p2ztfwrF+Vrn6K89mKgr0na/73h/DfqTVBwYmhQw0gZpUWJpHo4iPwexNn8n ItRHKgs1E9J2aKuDaGeZ8jzizi7diq+E2/e8r7Iy/BU9PmT7cuifjJEj78US 271NqZVEwYQ0NW1DC9DTK5/hIY34mH6bjaezP8wuSXKsSTcGNUCyxUpvneuT g/uyW6FunaLRygW9XOXcAigBklWCSHv543A908tScyawyGtyRtAerDtSWaRx ozNCjj+IT9tSPxJ9mf8BqaZzmrStUDUhjW6tI27WMGAa8guy5O6dJeBOwVAh EG+xOfG4UYwTXRBEvYZKrSQKJqSpaxsagJ5eeSKYiM+N2RaMXF2rJYZ6JRuD KuRFWskTNzrrrbrVO6vT/C/WcOpO/4IeN4Kk5Qv9HUWLNNY0VcGP3Qjag4Xq Io07HLCyyXO39LNCesKwzkqUytVE/6ubkEY77Q2QlAgoD2rzMkNjhUFylbNI HBTCJbe4GSoSh7YgEHFjiq0kiiWkqW4bqoOeXnn6nqE+N8avRq2ukr++RGNQ h3QC78rcSimRlhutrvNkK5ZIU7uRRTGQBhc0fPmKokUa5yQrLDhuBO3BRnWR hkZ4s/Ak4yGvNuvBkqa+r6Z/XP2lTU5C2tZqFPf8dYo9m5lB5tWGJmllCeI9 VqkfbL7qP4siU4pIsuun/j4KBkhvSeH5PEqtJAompKlvGyrDOL2W/gq5GQFs +6SqCWSkZEsyBpXIe2yqB8NFdAY1vJu2Q11nxOcnhmfQS6QxaigEba+iRRrS vC6DoAXNCNqDgwYijW0YFr4eL0iUn1E6RKxHR5owbSqv5SSkUebBkyVLpBOR mzcjIufkAmZARDN2yXCWIKUiF3QwTve9j8NGeDC7igjuw6nUSoIkpMk8Smth G6rCOr0WtzpWCybU00tGlPbLSsmWYgyqkYtfFyl0JZKREVqs1jp9s6o5/oit 9BbPk2Bv93qJNFRmZ+DL/BEr0jiJu8IybI2gPThoINJ2nocHWcGZ0lNo845K hgN5M+brqJE7rFAgchLSKM+hptXNgJFAXA3qJR1x09IUWW+z5djCq7C1YzHQ lU3qEeqDUmglQRLSZHY70cQ2VIV1eq3tDRYaJUM8n/GesGGNjmOvcLeV7Tnf Ebn7nQRjUI/1mPd1UqUVDKilF4KuzL5f6/ROix24WYr02kL0G9zr7utqa7Dm 5TBWd+TUwEf+8dgq1wOQj9oruGhIgi26+GroxIo07kR2QTV6BtAeXLQQafmo fZ5Smidfop53IKd/GRs4XNE4NL6kRTWkjIS0TM6Jtn0CAQMhpvZNOtx4gch5 zYUglsdcZC02po9XnwdUlwrME1BoJclvbTKVlYq2QaSezI7/7eLAb1vqcnZh a3D8YZjcrSXp7YKOGc7pldvnikg+CA132qiRzS9zvWdzOdjpeKD3gOxJWBKM QU1SM952G/ni9AYW89KISK9Er/U2UfrtkAsXPRK9CER6NRa6ct6RG+KG1TWf 6Bt0j3j9n/m9I+/3Z2wAszafvRr5FbVyjv9KP5HGSdhQWKSx5ajAVFL9tUcB tBBpxEZ4qJr5R3gyTnOuctsbnrE74bG/DrbvxxrO+Gefa6JkZSSkEY+DvbXK tG0ETAnqN1bRDDi1A/Irhdeiw0eoAzmz8NwooLpU8JdVYCVBE9IO9E8sS/8G KtkGsTYfutjFnruK7n+vDd68L04hEAuBk3XcgCx6eq1oOHyIcuBg9uPv+25N TEUi4TH88rsOe5W15Rw+84za0jYSY+epvli1juGb4fBXV/oOYRJGBLKRZAwq khupVml3vndtbDIyNR7w9reRA6wr7V0XQ/MC+k4J+TPJB197Xc2034z6W+P3 nqY46oNss399oKXGQknlrLbgnuz0K7sQ6+kSK9LYnxc86lRn7VEILURaoWI0 3oe8u/J8fWWwp6PBWrV7Tui/FJxd0Sz+Ijkhjdh8cLWjwjhdQAHNQUNjiiXz F0JsvIAHIjXzcQu19ht23jfqBxCRTiB3JVEuIU0F2yCS93DXIfagsAKIirVl Et25LQvQ0+v+nuDj9OqDcOATKt5G+pGsDW1drmFOoG1zNUb+AO27n7E2Ovo/ vb2gwDeXaAyqkl6Oha66+95orqskvVuOnoGL10PTCRGzEEuxsRTx9TZk7cd2 1B38ufQPSiTvB/oPY1i7Zyaz1SKWTO9rpYtz1cSwIm1HX+1RCE1EGndDEffQ NEZyQlp6Hu+uM9CiAWgP6sZXtUBSYtJFEfKFeEYZiVgANISh2Tw15RLSlLYN Ip34xt3Oqh8pQV03Pi/IQjL9Igo0XEU8gcp29paALsagF+ln0Sun7NnpUzbH R5NCRillaxawVm+MHPSJJPIpsGTIg7N8VfQESzmptRRpRkM3kWbcvFlJCWlE evXeF7vHFvLzkJC2d0GNR92ZX5zyJel/jliNjrRRpovplhwrBHSxqh4Kb2hy o4olpClsG8TK7aFGVh+WDLaG5lfY8wrp/0sPHucNb2XcaIW6WaImp3uHFl2M QReonKissxSzOT+dEdH0PvNrHuyfeFagb48ae71AxAoPkSKNWPC3Mz5v5pak uok0w05EEpyQRqRWHycSC7FoeAz3vNWWz9fVvb+iUryYC152G4XLwTkTuCfR 90llC2f1pZT85m6tTL5PT9Or6PQ90DsHuxToV+7SxJOzuxqcyb7YclP1lLSN zfv+zlpkMW3pHfaHovNLydxVt1Orj2KR4JXzTjtS+ccvwjNutELlvUQCd9KX Kl2erw3aG4MeMBSaBWv5KCp2LBEx7++wVvQEn7KTjnjnrqqKyOVLpEjj6Br9 SiTko41I4/4V44o0TkKaWPa7I+VxrCv0q+mIUQ0GBS1krmr1/aymHSgi0oj0 YqCXnq5b3eKZNvbpAp08qNyqSzyPBf7U3VhjbX7rOis9OB3ztdMPWXaqnoK2 kZzxtGdjX009l0Ml6ze3kvNjw46sosOO+eZKhAUyjpeKA+7vOWIdTTsv3ehS G9QxBkPBVGjCHKFcqAENVW96RjqYC6q+ziXmFFEL33h6cSINLfbJoNMALEUA kcaCm5AmEgONpZYJ8cvo6VcE5CRrAvbK6dFfDK990dRctbMgkL6LGSS8ualZ n5PevrGmkajUDvBagX5lpbaY7WT4j/aclTGikOknQRedxFPh8P4kUwYoZRv5 Eg+s8S08JqzoLL/dFxRguWsXdaPt7KxF3E307evfmmxHHWMwFOtz/pPIIPID p4MSTwnU9ltTV8cKduqrWzhVDKVLacSJtM0Ff6eIixscbUQa0iA6hzFFGich zVLVF3iYKMRCLBqJTE2MXierzvO9iQw0lhrQGnTjkNmuQdTfkvTmEk8nh5qz Dhldp9UIBR3aqJQGZrTaRk5YRDqOd9syj+dAbyAue7FSyDbIvprk1s1tUMZD tqzJUnNuorDEKuFGYySk6d/kn0QNYzAOW8noRy3ICVmWI7dQupHeWYXcfiAl m9KIE2mc/vmKjTbWA8hJY8BNSBNUBYAM/iibhDRAAlqGYGSKNPScXt0yElGy F7paoBFDmYPOc7yIDh+iL2nr8sUyP9nmSvRKd+bkhR3uD4hsMlYYRWxjazn0 NuncqzkTWBTdZo14MnqaDG0XS7J9EnLVFxs2gSSkGWRkmBrGYBjQsack8mqu CxXu6Z5ViIwyz1DSHSpKpKEV2dSXNWyVoiB0E2nGfK24CWkCe05m/atlk5AG SAHNEzOySEsvjQ81ZlfIivZPflKol5PKMGaXKHTKIzbn/J2kx6ymZfCzychU OIRfppPtbY09l5RqQ6qMbWzf9x2ptljqXSFprix67FfBlAxqWlPRYRP5jYIn q00z1DAGg5CdM5UFO+Kbk7NZFth/DZBVyK5PL6kbRYk0zvQr/b+sHHQTaYbs U8FNSBPalpbOVCyfhDRACqYQaVvJmU+dtuwmIDEbmYJYT0xnpgcebaarmyvr mo929bm9gduzCcVT3FTal7dTiciNkbPkCERqxs6xLtfuFwjPrSi678u3DXpm jazIV2YaeIGksucR9yEL9ro3VjhhjVj5zuOsr6jr6L9+1xhO17IVadnpbPkv J9N1yc3hsey7ENY/AZUzgLhEBFaESOMEUg3xZWWgiUgrVDdggIFrHAokpAlt S5tZMSAhbY+DbsRq5+VKE2loOSe51v0hlJDmk1mZ+cLtrMcwe9sZt/f6KDkV aBdyGk42RROrd7pvRJcU9LowirbMti/Lt43MpibTLUCJMUuTO8I4TRLUkE3D DpsohKmNoQQv4/7jzHItmSk03FJHbN/gpBF2XyI32pX3m4oQaay60ZKVMqZA C5HGTRE0SH0QC4kJaRSZWhVISNvjaNm7SYJII9KJrwbyHVAlp6Ktx0fPNWI1 LQPXI4XcZUQydqOPvjfMfso3o9jYOw3b0CmOfNsg0+dkF+Fm3HGsbJMXs57f mC4qZGZjKM7mXU8Tc7eUm+HPcVgZ54fOpEEigqpoxFOwSGMLP+y4P653Sz+Z aCHS0DKc7JPjjO41AJIT0nb5NdizHxLS9jx6ijTefYrZox6r6Q0spiWYa6b5 bYPr5nyJRDZi5dsBe3atlBNRZWLmfdkwzVepzvOMKTxr4/01WHZ4kGkwszEU g45oC9ItQi8Zx502xiXrR6IvDfJDE+n4dSeqqQoMI6MQKtLWosNH0KJY+8C3 Kwb5rpLRQqRxxY9B6oOYSE9I2zWNUF8lJKQB6EasdkBfnEgjktNeZ75HvZTW 5Rno3HXM2tg1hM8Ud8Qlo8PNub+m0LQphq/bbPuylrZRGmqGY753aKaaoKbT ZKkapjaGYnC9XrI7+VB7E0L1Ed99IwWx1h/4UNdXVZP7ToFaHUEijdh8cLVD iOQzFxqINK74MaQHUkZC2u679RP+zsClqWemWuUAxdGycIDdsrvEPsVWaGJb bKGXYrwm1EzAwjCTHJRJbzB1rriWtlEaKjcDOxVYovavjOou2jzNsJjaGIrB mYFe8WZQlszgJKRV9ASeGOxRsWacFezZKESkpWa87YjPEGsemnwqckfeSsa/ D97Acb93mJxFeL6vy+lwdLQdvzKro+9RfZHGFT+GTE+Vk5AGABnQNVbtjZg1 Fqq63f+w4FvFUmgW2wmvjCQx1oJRYnNkflKRAJ+p92UtbaM0W0uBUxjtzSvZ wNbQmNoYisDdjlt98mJOzyb60bauBv2hibUfLnXsz99mzZs34swJAbwijTVC y1Lr9E6LT7jliOQM+jb+VV2kcWtVJDf5URU5CWkAkAENQWos0go2XSfSidsj DvSU2jYSXZWVd/4k0J0/zOzrDjwqcjViIzxUnf/Dios00zWZ19I2eKBW/YOD 4ef0Jm6U1meiMLUxFIHTq6p6MCznhyGWg72MVmSFOxUbgQJnyeiz/JJRUqQR yXu461BeZmAHu30SFBp5pXTyGTVPaC563ZWdFqd3L1y1RRqnVgVr+XjGgJ0z 5SSklS0v5oKX3UbhcnBOaPBZP9CNWGVPLLsVJLdfN6uWk2yePzD2i2yptJEY /6i70Waxvto98m2iaOkBc3yeMm+TlqNRFUdD2+CDim6QDzAjuQ0Z2uDF1MZQ BLYUqekKLMq4HN27OItB3Wg5iNTDkPtoPmCJNfX67iRSlA+rmEgj1hN3rrqa 8+4vzP6/vVO/yl7l0DOm2gP++FBXpGV86SjGdKPJS0grVwq1t9MRM0Q0NDzd s38dlnNmOxUfVUGhCQdNmVNqBg2qczKOIBNhJM8PueXt3sMDahOv7Q0+NuCa zIepjaEIbClyaDgqYxdieUjMkUWfbcCYW7fszvPeQHj8IrOgor4/8EMkeOW8 I/9Ji/VQj+efsVVFXIVIBYfctEDZqCrS0g/8TjTCi9m68biUqn+1gYS0QhC/ jJ5+hRmq1g/sldOjvxjQdJig2fJYvn5ODahGCghojz7mTAGL9gqNGWexnQ4k FFk5qUY3Bb6vKdDQNnghxQBW+yef15QlAxnkGwORXn0QDnzi7utqa7BZrA3t PUPem9Gl/A61ldZ4t2KLNDlJAuknQRey+9Z14/PCrpWKBwdbrFV258dTKzxG SqQeRb78/MaX00vKPihiPRG55R3sarQK2X8q69r6hv3jCsmzzA3M+zuywkhu WqBsVBRpLCNRsl2S0nAS0gxZfwoYn63ocC6vQl1nbNH1fCMReq/FqqdCYw4f FL478IHOTc4VJ5oH7WyDF2q4YWVDQ73hQ2BFkWkM6V8jV882k69JTXPvh/6x SXJYxqW+5l1x0n11JrmZnP0bGUTDDr8zrqGbkXXykuPDWf/efSDneMBsnf45 YU3wkKRTXv/kcniwifqkzLBs8ZtJLT+c+Vfwune438EoZbdYm3uGhr1/C078 eP+pCulT+emfeiek7agn0oh0HO9Gz/KWA72BuEHDVdyENH2rOQDzshTowpR9 lQrDDtBXD4U3iB3i+YzvlJ0xm1l7hbaVvPuf7fT7JK3GqgjoYqWzK0oSWtkG P/kn2Twc1bOEQTrSjQGpprF1jkwuIm/HVvLB33tqKu1vf/RhO311TeU0u/Gs ZE9acsbTnl8GRLhH0KASn38y34GtaGm5YogasC4XtG+JAaYzqCPSiLU77ib0 SCB5AI0WcBLSsP3uKdMVOwGGgHSXZFdHNbPo2C/u7j6VfPjl0GuM/6i9Qksv x8ZGHJnTmfW1wZv3lXzrEZGDdQWWlLuwRmhlG/zknqR5T6MSjQGppinci2Zr OfQ2EgCqavX9rOHGxWqGIK3DAJGa+bglfxVR83mRoFLm3Ff8ryBKRl7unBA0 FWlIQpoR5lcqL9KI9NKdS2gtraWqceCr4lVgusNNSOMWygGAQNBUGfWm/3CM tqG7D221YdFKoaUeRYKf4/jffZ4/vd9/qr2B8gNYW3pHPld0tDoJEi40QAxC CtrYhgDoLY81wdNMSDMGYumbd+hqmgOng0VKWl/+OFyfe7fYk+jVhjl6UspO xPSQ2NovRUUclJCgEmNwWAGQ6loNlIyWIg3xZxpifqXCIm0rGcNdaE2ZpaZl aMzACm2nUEJat57rJ2Bu0MEu6q0kzAYXXFhdhlRjOx4463RkONZclzm+Y3VH Tg16A+EHq0q++JkWrNI3LwOgjW0IgN7yTFd8kUOSMeQ722M1p0eLdxl4Hh7M NoDVobIvl+hFyZ/eoKh5asxuY6LdI0hQic+FiEZm2/0Lau/wWoq0fBjXGKeY fIKcReYDJ5IPQhdPMvNhmnr9dw0b5aRhnJsozBsCAPQHjQKol6rBHtyJgtlP +WTMFJAFkXoam/xs6HVq+caszWevRuT3LMqAbJ1mPUZpYxv80EdzEy90EowB mRGJve6NFa+WQOWHHpV9xJPR0zW5UG7JW2X9w+S0r/tg9l9KCGCh/nm+8bJ5 JaOFW5vjTFKviQ2xEXFn/d1a+1ELsbU28e4+1hLPE4nmkk4uRL/0upoZ1bKY teUcPqPUWV69WumNxcAZ9hwIDc4FQBmDHHwq+0LqvORFxpfIm8upHBuJsfON 9HpQ67x0R4EKfbSaz7zqQgvb4CWzFxvDSyAN8cZALI+5ssqHp3lvvsRSr6h6 eml8KPv6WCra//NukvcutlPxMXd7Lphe6xi5LT6AhQSVeCKYqJLRoNcrWi1O r3M1rjFRPkbBcBLSiPXE9Fc+t+sEGSmorGt+wzV8fTy2rMopkUitPqYmHiQe zc/+OxIewz19zQX6kFhbBvzjkdn5RAnmZyNT4dA/fJ4LZ9rs7EtYW11Xs42C 5aNgrXT+CcRj0cjUxK2rH/62gfsAsHrn+77Rie8ikenYQu4rP1lV6hsB5Q26 g6g0t4I9boA2XJvTG10xyNgXtL5Mibqh/MndzHU9GtgGP2sRd5MWyd7qIdoY 0F2+xCwzkq1ZT9ZJp1+reeL5jPdE1p2H2Rx/mVh4UeyeidSjO/QWSWE76g49 lNKWAklI48vFQpSMgs1w8hs0yUJsOhKZDH3hG+5tKdRVvdLuePfy9dGJqQhT rTxLyjkSMhLSPos/mfL1NmGYve1tDx6itIenl9QM2MFu73cKd4fb0aCBPGZt POn+bHJOsZ5yytZK79pVO1eRCQdmEADCQFOP1JkAy+5kS5pnY39gjv/ErR3M uYGNAxNLcpZO5ORugKJ46ahvG7zQCR66Vi7IQrwxrE8O7ssFEEv3wNyY9x2l P6lvq3libe7mUL7hYcZ1cPvufOLx0+QmNWJyfub2ravDpxFPS02z668RqQU7 SEIar5cVKYFR0K2tjESRZ9hIGNd+oveEvcrW7g7OrSFr18ul8T9Sfk6RRRlC UEWkVdY1O3r6/+zFQ5H7S4o2lVO8VvpFdPiQjG+673X/A3ClAULYjnlfzZpN 6WO7NDhNY2qd3h9WDFeeg06GsmCt3piwdpqFQErJ9l0Irxvtm4pAbdsQegNm mLJWBLHGQKyHL+SzenhEBWK0+kfVt1PkZMpW/n2bdPV4Q7JicGhCGl8b2/wh UVG3tv4iDdX/lqInXyKOd1LSAzsyHNU9aU03jF8rDQBFQcKRKqQeofnnVHRj /JEh91tWCaqMvqn554ntG5w0ZYf8HOraBi9ZV57uw24kI9oY0FHsfKJiY8q9 n3ZMVQ+GjRFV35Vq01/jXjolO4+toa2rz005SBTouo8kpPG5EJGIcJnNT0Qd 3SXGNORXNrHlt+WDOWqlAaAYqrZDzC0RmLVl6CbDFa865KCW2R+jgtzmxEZ4 qBo5lkruC4p4Dg+5I2Yfpa1rq8zsUELzJm+INwa0yoanXwfi5ywz+cEHOnaH R8CnE3h3NsKqU8heJdDCXvv5ieKjS/M+vz0qPExTKw0AxSDi/g5M0L4gnkzg vqZl8JbGSWiIf7vS3n0txifUWOELqRE2RNU0XZqVHjM1CmraBt+fpiczatxI X0HEGwNj6l9pUVG+8oMPRPpifFO2kIiwbsUv6oAkpNUP/1gicxFZ2XRteKgT pqqVBoAiEI+DvXRXSaVd4kRq/l+37sRVmCtcGjRsJMjVwBRpUl/SzbuepszS ae3wl8VRTEXbKM32Wugs9Sh5Z2cbFQnGgFph1TsTRaskdxjyg6FUiPTSvTuz S4ZMKlAENCGN7+CATDdj+mM3ns7+MKv0nBEtQcZYlC7szb1HFvWGyxsYs9VK A0BhiPXIB3SSR8VJfNEgnTHkgE41sgjoJ8maXSUtfoQ8xpq3Q2USWdDLNlbD gw2Us0S5tgmaIskY0JGppWsBEJ8bM12QzNcy5bhYoaBjd3hciIjPjalPyKdX beLmeyIKe5FPqthW16iYsVYaAAqSKwKyVLd6Z82v0phjDrDXPDOl05qYnreK nsAT8a4I4knIVZ/ZNps8d83/DLPoYhs5EaJ/3aIkJBrDAu7IutJKDj0kFvzt 9OeY8yBMLz/4QCPCPAIePXkxxopR4s3U5XvIIZQnewqtW99juYsmrpUGAC7I wf/ABxEzN46g2F6bOEcJi8q6NtelCb6SUkbH3YoD7u8lVGXm503bTgcS5aPR dLGNnA/EMHWL4pBqDMhhoYRII1ajI21ZBwGj0y9VTSCjNtnwMFr6lC5mSU17 WqrpTzJix1Q6n6nb4wjPnmJkOZq5KbQUzF4rDQBM8mf/mk48btr1K8vmrLe1 Gmv689Qar+MaESHkt3cFJbjRdp5H3JnehuXhimSitW3kfCAmPftLNgbiZXSk nnZ7uCOFhx6ig8xY3qSXcf9xrH4k+tL0r28RWGkJnf6FIk+XWJ5yt+YbwqPz E4lHge79pm6Pg2RP8WTlEQncmXsK2hdo6wzUSgNlBpGOX3dWaOowURMiFbvq tFXYHB9NlpwQSiQjI7kTd+Fm1Px/C3l074X5ZaHp0Ng2snlHPGkkxkSeMRAL gZOZsEtBh1hGoVUfdrTbuT4islShpgzPCHnQhLRdanuDhQYsZiZVYY2OY6/Q H0TckttzviOYqdvjbC0FTtHKC+su2Q4XrRrgnZ9VdkCtNFCG5FrKlIc7aCsZ w12NVRbb60OFZ8Btpxa+pae57S5iDWf8sxIUGupokjlSyshoaBumTkiTawxE ejHQSzYNYHcoJVLxCc9JO1brvHRnaZ10FDP3lFQc77GVT8VKIRjbLvXONp4f Yx7BiOSD0HCnDTs8MPbLy1zQOeddTMcDvQd4WjEYHWQgEU8LElTTlku9uXCg VhooSzZjvg6qoZ+tB4+n+D9veHYX7a+9LnJoIGZvO3PB48ODE99FIlPh0D+u uE82ZoYJWlv7vN/MS+zktrUWfo9aCivsA9+ulPE6qJVtZPOOzDieXhFjyB4u dnVa++C1sclIeAy//K7DXonZT3omMg1tMo5iSss5hkfD/wpePt1QQSqTMt5Q 0IS0iobDh6iXF7Mff993i5xdTj+lKmvLOXzmGfUccqHhWsfwzXD4qyt9hzDb Sf+ceUOdO4yqqJLVJYzaxvJW7wWBWmmgPCHScbybWvxLTtAwGURqKRb+f1c9 F/q6HPTAGqyu+Vh335DHH4ouJKXvbMTaHXcTmcUrLP/N1GhjG7kYjfnG0yto DETqUeSmd7Cno2FXilgb2nuGvDd/SKTQnYZIr8wGLw2caK7DsLqWUxd84cUy VmjMhLT9PcHH6dUH4cAn2RFUmLWhrcs17B+PrTJGA2+uxr6+MtjTvvsZa6Oj /9PbC6VcKmYgL9JK9tzOFU+VTWRELFArDZQr6aXQAJXxUteNz5f1si+bXH5y hcP7U9mW1CFoYBvZmizT5TnvOWPQGGS0Ik8uVnmTTuBd/CIt3zlnL5wfCwK1 0kD5Qjy/e+kYeWi1dfliYKLFyCmWBldwYa/sGarbRqYHFFbTP26qPlZ70hi0 BO2TY8ZkRcUgNiLuTJe04s0ikIp1rNU9tTcnq0OtNFDWpH8ZGzhMRrYa358s Pr13D0Nszvk7ydhfrdM7ndxT77G6tkEVzmNHhqMm0mh72Bi0AukmwTOtsvzJ JZsV6WSLVKzXOn2z5ZBbLA2olQbKm/RC0NVAZiY7P53Rdjy64SHSia8GyNTu vbopq2gb6afRL298HTPPU93zxqAFaDcJ8yUrKk12JGXBHjX0u2kBg4RaaaD8 oX0moNMYEMnopXbbXl8DwTYowBg0YS3ibqI1mumSFdUgNeMlrQ6r6Q0s5gsl iPRK9FpvE6XfDrnwe2CQUCsNlD/pxcmRTpulqtF9B7LTSLYf4sdrYQ0kAdsA Y9AGJCGtojtQNlXnMiDSS3cuOWt3Navd+R6pPabGA97+NlJpVNq7Lobm1+Ah 5YBaaaDc2ViK/vPGxPzezW1AIZait27dhjWQZm/bBhiDJiAJaXuvKWsJ0sux 0FV33xvNdZVkTyFHz8DF66HpRAoeEAAAAAAAmpBvHo8d882ZrcMxAAAAAABA mUKsfOdx1lfUdfRfvwthZQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgD3I/wfy0PgQ "], {{0, 111}, {823, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->Automatic, ImageSizeRaw->{823, 111}, PlotRange->{{0, 823}, {0, 111}}]], "Input",ExpressionUUID-> "3b0279af-8728-4444-9d9a-110764f16f92"], "typo: i-> j" }], "Subsubsection", CellChangeTimes->{ 3.746790794639846*^9, {3.746841560444349*^9, 3.7468415606923532`*^9}, { 3.746841841778685*^9, 3.7468418549015627`*^9}},ExpressionUUID->"5fedca23-98a2-4885-b8e7-\ f38c010982d6"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "2", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{"F", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "=", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"V", "[", "3", "]"}], "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{ RowBox[{"\[Gamma]", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], " ", ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.440895870234375*^9, 3.440895891640625*^9}, { 3.440896510390625*^9, 3.44089655715625*^9}, {3.442671255203125*^9, 3.44267125603125*^9}, {3.44267137046875*^9, 3.4426713811875*^9}, 3.44267142365625*^9, {3.442712951171875*^9, 3.442712951859375*^9}, { 3.44296369284375*^9, 3.442963696734375*^9}, 3.44296768475*^9, { 3.443374517453125*^9, 3.44337452140625*^9}, 3.443397833125*^9, { 3.45504301590625*^9, 3.455043130828125*^9}, {3.4550527984375*^9, 3.455052814484375*^9}, {3.5067782137090287`*^9, 3.506778214466072*^9}, { 3.506779064525693*^9, 3.506779068082896*^9}, {3.506779121543954*^9, 3.506779124996152*^9}, {3.511641116247309*^9, 3.511641117295369*^9}, { 3.511641238366294*^9, 3.5116412632227154`*^9}, {3.519945652604292*^9, 3.519945656025487*^9}, 3.5206470576621337`*^9, {3.536753629485641*^9, 3.5367536355419874`*^9}, {3.5367542796588287`*^9, 3.536754394482396*^9}, { 3.5451480077289762`*^9, 3.5451480136813164`*^9}, {3.5451480836983213`*^9, 3.5451481475869756`*^9}, {3.5451482301356974`*^9, 3.545148230279705*^9}, { 3.54514835065559*^9, 3.545148351119617*^9}, {3.5517190084457397`*^9, 3.5517190462919044`*^9}, {3.5517253476257124`*^9, 3.551725350072852*^9}, { 3.552315878168127*^9, 3.552315880549264*^9}, {3.5594364063879995`*^9, 3.559436470154647*^9}, 3.559498758930711*^9, {3.7095734439172153`*^9, 3.7095734562269197`*^9}, {3.7095736865240917`*^9, 3.7095736900622945`*^9}, {3.710786317142681*^9, 3.7107863175327034`*^9}, { 3.71171717351058*^9, 3.711717180665989*^9}, {3.711717560179696*^9, 3.7117175669990864`*^9}, {3.7118545714168224`*^9, 3.711854584457568*^9}, { 3.7119033420472937`*^9, 3.7119033423323107`*^9}, 3.7119033814345465`*^9, 3.7120954622856226`*^9, {3.712095557947094*^9, 3.7120955854366665`*^9}, { 3.737162821795579*^9, 3.737162839969626*^9}, {3.73780794558059*^9, 3.7378079860629053`*^9}, 3.7379793854587083`*^9, {3.7385815933232975`*^9, 3.7385816487654686`*^9}, {3.738581823928488*^9, 3.7385818265056353`*^9}, { 3.746791040438759*^9, 3.746791071688319*^9}, {3.746791171144439*^9, 3.746791205624802*^9}, {3.746791269817828*^9, 3.746791296817684*^9}, 3.7468070324753675`*^9, 3.7468417607020445`*^9, {3.746841806678952*^9, 3.7468418384463234`*^9}, {3.7468419378272467`*^9, 3.746841939290864*^9}, { 3.746842062020503*^9, 3.746842063139872*^9}, {3.746844116317479*^9, 3.746844117564167*^9}}, CellLabel->"In[99]:=",ExpressionUUID->"93af11b6-7f0e-422e-9621-8933716e78d0"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "2", "]"}], "[", "1", "]"}], "[", "2", "]"}], "[", RowBox[{"F", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.7467913000660734`*^9, 3.74679130814038*^9}, 3.746807032959241*^9, 3.746841761629195*^9}, CellLabel-> "In[100]:=",ExpressionUUID->"e5fe5841-f64e-4bc4-8f9c-b3805ee0cb0c"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"V", "[", "3", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}]}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{ RowBox[{ RowBox[{"V", "[", "3", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ RowBox[{ RowBox[{"V", "[", "3", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ RowBox[{ RowBox[{"V", "[", "3", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ RowBox[{ RowBox[{"V", "[", "3", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ RowBox[{ RowBox[{"V", "[", "3", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{ RowBox[{ RowBox[{"V", "[", "3", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{ RowBox[{ RowBox[{"V", "[", "3", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]], "Output", CellChangeTimes->{3.760467983748146*^9, 3.7604682419438615`*^9, 3.7604703405473375`*^9}, CellLabel-> "Out[100]=",ExpressionUUID->"9b38f7e3-e24b-47d0-9d22-e6c44d86552a"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnW9MG1f6761739wX8+LykheRuLIs+UWkKEKWbqKoghdEiSxBtBWyaCLL RM2FaG8W8ustbFeFVg1k1braBrQN6d1Ybaz8bpz91cr+6lS4Xdwuzgpni7vr KKDUaSAyDW4DAYIcBMEwXGbG9pyZsT3/zsx4zPORdtWmznjO+Jlzvuc5z5// cbrrV//rv1gsljf+2+7//aq9t/Hf/q39rVf/++6/tP7mjbMdvznz+vHf/J8z HWf+7X+e/q+7f/ib3f8N7/4D9c87AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAGA42eXZ+F8Dl98911xPWBhsDa5z/Zf/PD79dJ1UfN2Nhcn/ 295ycXwhi/FmAQAAAAAAqhkQZkXJPk0EP+xstFlKUuvweIPxJ7IfEfl8OvBm w+6zJpyDE4vKHzAAAAAAAMAeAYRZcTaXp4L9zfbSjwXF7uz5LJbekHZlMruc uNHdRO0ObO3DE/PmFPQAAAAAAAC6AcKsBAW9zUA4WnsuXR+NTsbvT0/9czL6 5fWhntb6Wv4Tsp30jj5YyZaV5+TqbORyh4P+u7YzvqnnZhPzAAAAAAAA+mJS YZZdnol9dSv8XSqzhfGqHMjnU74zOdeztaXHNza9WMTNTK4/iQcvumwE9wHV OjyXRpNLRVQ6uZaOB72ew8xfIBp/F0yCZAUAAAAAACiLSYVZ9qex/uPMxWte C6S2MV5a+BV2Z++/xxfK+5bJ7MKkn3Ep8x6R+72rwbFYPDE9nYjHxoK+D7qc BZ82YW1+PyLVaw0AAAAAALBXMaswI9diF/cXvr/mjfASbndr4cnYTnrDP2Yk Cm5ydSZ8yeMQ+KWLQhz2XPpqRjtHMQAAAAAAQHVgYmG2tRR+oyb/Hfbzo0/x nq9vPw6ePkjr7d9/lXohO/Ms8+gbX6/TKlD3LHZnjy9S1EcNAAAAAED1s5VJ fRe+FQwGfEPeXS70dHjc7rbW09emX0LMoACzC7P1H4K9LVbC4Rr4SxK/Kl5P Bd9o6Q2quTIVU3H7U2/P685CSLC1wdU1eDX47b30Gm6L3F5P3/sm9GUUlDAA AMaDaUbSIXkBAAxjPtRRLAX+qC+pRdCj6TGdMANKsbUc+6iZ2UEQr45MvTD6 fgAA2MtgmpF0SF6oaJ5F+5zO7o+uj95JJFPp9LMMP/eZzGaepeeSidhY8Op7 7qMD0dU994xMDv0LUswkbvY6ciqq5sjIfdikAdXM9kP/ibr8Js3qDs4ZfUMA AOxh8MxI2icvVDpzQbe19GkmF+LYb0cfbxp9x4BSyI3YYP6dOdQXXTL6fgBA S7bujxzJB/nWnA3Ow9QFAIBx4JmRNE5eMAFSVSvhODtiukLoAIf1pK91D2/Q gL3GRjryoaveWt/afz3+C8xdAAAYCqYZSdvkhcpHgmolDnu8X0wtg6fC5JCz gbb8b93in91zGzQAAAAAAEwNrVobznm9vR2tDRz9SueP+EJ3Z1ZAr1YFS+Gu 3LkCBLUCAAAAAGA6aNXqDqZz/5rNLP6cTqd/XinSBggwM+SL6Dv7chuShoHY itH3A2BhcyU5Hhh664yzniDqne7ugWvfzu7FMyMAAABgL8BTrUC1ggS11r4V gUIQVUB2fmLkrIOwO3suByMTk9FbXvdBKqKn8cIY9EIFAKAcZDb995GOIzUd oQWjb8V4thJDB/c399/ak2GiQircNkC1yseMFk6mgh5bLk7ZE0yDJ93sMCX7 bK9fmSxE9ZMvE8OH6V/YdvYL+IkBACjBVmbqM4+NsBDH3xn/GaaKnZ1M0t9h 06TLtumofNsA1aoAE1r4aqQnV/C+9qjvAXhazQ25ODHoJGwd/mSG8+fpoDu3 M+kMpiFpHgAAIaws6R/7CaaJHOTzKd8Z214/qzKFbYBqVYTJLJzciHsP5OID mrzxVaPvB1DD1nL0goNwDk4s8juCzPpb8qHL3nim+N+uZsjsSjLie4eJ8m0+ d/HaN48yFeksQCGzWSVnNltZfkMYABAnL0ss9Z3B2UqVJQbBeANwLutYZiTd khfMYhvVrVrXU+GBZus+h+eTyWWRX5nqwvnVX259dW9B4mKA38K1QxDUSq6l 733t9/ZSL4Kltt75eu/QzXHMvdp3X9jZ+NjNkcEebnkKW0Nre1f/H6+PQnkK Rax95z20z9H/t2W+naIJd62+5DqeryPXV35OY2Mxo9lkuJVJBnsb62yugRtj E5N/u9pp33079zV5765WjLoj15ceT/09fNN3qa/Lw6vZQr+GPV5f8Jt76fXy hyFkNv11f6MVKoEAMiGz86Fu+r1oHLwjmECAnZ3sbLCznjqtavpoclXl64Vj RtIvecFEtiFUrdnM4lwyEd8lkZzTcJHRHvJpqDNX6+nIQOx52c8uxQaa6E/a O0LzUr8Ap4VrCSeo9fPU00l/dxNBOFrfHtl9EeKT46GR7gZKfx/p9P1Dqmgv x/Z6+m5gwOMg0Kq/9c5TrznrawWlgIPx9FpFvyIM5FZ2S/VtYrjI5nzwbE3x vipr0yN5V+u+d6IvMD3UbNwruXueZOidS99HvuC3iblVLFMMufDtO432xv6v 0zkDfh4bOELbmIp+35gg1xeSE7dG+s80WgmxJ0Pfcn1b3/W7pbQrmbnn8+yu XAe6wr/oPBDA1JCrd71N1L62xvXpD+JVgrYys3dueLuac5M2s6v69Hb8Ce4C Q+Tm7F/ON+zeGGFtcPcO3zJ2RSCX/9bvqKGyAzqDKRWrIYYZScfkBZm2YSwF 1cq4svvdDTbuBOpo7dk1I+yGqgNo4zMx1xMb9lnnCjyWPlZcFq4t7OhqHGe6 zzj22Vze8Ay64Xu5MP77RmpFtbmuJFQdqmafJW68SWng3SmosWPA98Wdqdk0 Wkgtm1mYTUQCl7qd9ryNHev9/P5yxT49BjzirUN1uOnuC2s/5P1uTfhfyB/9 LTlXa01XGFu/Xk1UK0ptfevvrtz+XszBWBZyPnz+UE3b9UebBSvKxL0NzPWN C+RmJtW3W3mbtd0hN/+675LvZjg6Gb+XnEun009mp/85GR296fO+2crs9gir 83eBxDO+uTALGfWBk/7ZCj/iASoJ+h2hDMd2NjBTZP7gfvj5dICZxou8sA7P Je7yoY7NaV9LHecbrK8O3H5oXGzP1urkR03MauibUnhkpX5G0jN5QZZtGA+t Wk/9aTzsddlqrM6eK6FY8qdlWmRkM3OJ8OWz9BxqN1nKPMVStO9Q7i2oG4xt lHkH0KPVY0MJWZ4ZHBauLWhQq4Xy//eFZoQ/JZkKttMykjgxlFAa+JpfUomG 81cjyZXyQjT7S9z/Rn5i3IfsSSuSSlGt2+sriytFBR7bRWJfi/9HbI+SjRCg lFU8Nha82tdqE65n1ub+wHiClmAlmZ2OT8Yi/+kfuZjXZiyE4/VLow9EbKbE La7FPzxEvOZLIvMt+TjgqmMufHAoofvMxejVXifHuUrr890JdrGsD4BcX5z+ +nLHEXrnx82JyIfTUxwZmTbXfAzIZiMdu/Y29absbmHeDibVRKqvp4JdtOXY 2vxJscCs7dXou3ZLWWwnveNPcGgmci12cb/w+sZmA5FLscGj9G20eCeX5E9J 6mckPZMXZNlGJZDv6Eo0dd9IFPN3baTHLtBeOMLm+WzKRMJ16/7IkXwvKBHX E3K0qqCWqVoL1xokqHX3R2wPzGwWvcfNuUB77hl0h5UMIydZS6ji4mwuJ3ye nASqbOHKDe+cS96LxyciX/iHupuLidlah/u9qzdHo5Px+PQsItueZbQaoJqd l1y2VqPv8RcakY2hEGpT/JVA1zk6rkTnZAY3kE9CnftrOkNPkb+GRAfpfpKe XUqOXvI4arnjGgrJOrEqOLvY5bswFdNvS1/U4LgHQFu2lic+aEReDuKEf0bh mQG5ORNop6dZosWXLD7/o2xnEv/h/aCvy02lPZQEz3qHOJd42N+OLBmmN/Kn qIrC/9TPSPolL8i1jUqAUa0NveG5kvuagiqzEPbu0HzF6gouyJZEzPWEhH1a XIE5BTsrNRauNejoHBeipbPSWG9izRth2dPF2iN/e40S5ZldiPQ7cvdXsf7q 0pArieFW7tRuyGuibuclF9avm0fRi0P7JB+Mek9ywpJs7cMT89LdLPRyUN8T WUT+LPs0VGhf3BV6qpvPJledG9Ua1uZ3biqMsNpIh9+mXg3q2C6Tuf8nF/vM Iai12tl+6D9Rx3nFrN64MkPO51/s7me98fL5HXzokOzPvZ7DxdWrvTes8uWi ip+XUsZ1J/wPjSvSSGcQULexr2noe1mn5qpnJB2TF1TYhnGsJoZOnRj+rnyQ CjkfbM898fqzIUWrk96gQa0tI9NljQ4J+1SalqvcwjUHGd3hoX+9LP1B5Axc 7tEDufnoeluNhRvGI/1vL0T7G/OLvGtkymQlmwSxA1Z3cE7vm0CCWvXoIiGM l1BVh2QjPfGxG406II73hSQGttFvOm+fRc4G2vI7MK7HQ0PIF6nIH1ycURzp 9E2oi9fN7YlqXn39dQe6T4Cg1mpH8IoRbYGUEkvOPg33MrFfyvN3ss+mPv9d YxF1Sdh7x1T5WxdCHWXcuS3+WQPVxvq9keY6epTcs34R1M9IuiUv4LCNigX1 1x36MG6CnG/k3EHE9YSGfR7qiyo1BIUWrjnUXlbS6LZXI2/lDzXlFFLYofaW kd7DdAboq+6Ot4ZvP5AbSI9siyw1npuVm9dWDHIu4OJMtaIFKzSAdX7qknyE WbXu5KvE7GMvKDmwjVxJ3onPoS767aTvaO4q+ztDT/Qwpuwvk1de53qMz/iE uVQKoM4KeX5tCGrdA/B8rYqP41n7UelM4wSoIKi77HYq/O7ZU6UiEQxuPl5w Rllq2oPzkp++6hlJr+QFbLZRmSB+aQvP9V2RIEGtYq4nJOyTOBdaULwYKLRw jdmY9Z/MjU7k3B/5pExvIZkKtHEmnSN90Wcy73Mx0lOPZxrUn0JSZw79K/yj wU66dJHAr1p3kBrXeRS2FMwkhpz5Ve9N+bEusiEzD0N9x7lRARi75rETSwEI at0DbGWm/9xLFVqprW/tvx7/RdEOCO+qVEjb4aAwD4IDmc2kJoNebjS4BUf6 qjpYXXd0MKZ4lLhmJLzJC5WpWDCSTQc7WCvtiVR4dyUkqFXU9fRLuCvvaj3q S6rZ2OGxcLwgoxM5bUF1o6yoOVTuMig4Ikc9vTqe6mLBeNWqb1DrjkaqdSeX OYteVkElFsQ5qcNMla+eWkCDrNW1iYH96LYQgloBabDvggJPQjEKJZJQiNOB VJnQMxlXzy7cvcJ5m4xWrTsbM/5TzLunPBsO24yEdZ7HbhuVB2eZqvTzKTSo Vey49kW0Lx8PeMA7qc4/gsPC8cKOTixkF/FOy9zHFcrQFWgYiK3IvVPOObuu GTSqMVy16hzUuqOdaqVyPye9LZz2FM2fTMnJvUcK6Wh+KqSHZKVYiQ2grxgE tQJS2F0H38y5ArDF9ZGbSV8L/zgfY1RSoUMTg+GqFY1eU3YIiG9GwjnPa2Eb FQdnmVKSY64nSFCr2K1uTY8cyX0UgwdDtYVjBhmdyPtCpoOewlQhbx+HVtay lC2uVRaOhenrTVpL+M563AierncvB+5I7fWsWLWSa+n4X0b6uzjf7fb82j8l z3Ohc1DrjpaqFanIkUdWFcFn0b68ye+/GNN0Ns7OhXsb0GegWXNnzklExTsN gMqAjYzFOy3w9lA0ONOmXkyP/KqClAZdxio3vSqJhcA3I2Gc57WyDY0hnydv /d7TYLc2nvWOPhItN8RdpozfAZUDdRuKvE3ZdLAzL9ZweDDUWjhethZC53Kj E+mjwVkW5e7jyMy9693HKPOgOrTeVtqNIl86mEbXyL3tJ9E//pbfFU66CFGm Wsmfoxdf5dd6Jeqbz737SfSJnGlE96DWHW1Va5FIzuJFYIrBVswg9g9MaJgV KfAJW4jW4cSKVtV42ZAn9UdCwF6g0PrTgqmwJ3vlzekrTfyJC1eQAAXrbKmI DRqyOCoYJrYZCeM8r51taMv2jP8EIcPkOMuUqqwlzUFneLEmFEgwJ54XRJ2F Y+ZFYuhYbnQiDwIt9WxtCxhSboSjWtXGGCsgu5T84h1ekizRNJwQ3R0rUa2F kiPsV9lcf4ikFBTgQ4KddHNNaKtad6f68T47+kvUHBqckNBCEimKaHEOJZBf gVydvRuX6jwXZ2M+9Cb359O4rQwb6mOGZFjAeJ7HvfnJH/tcuv3Ad5SXNoXV LPPlsColg4Z1csotIYtxRsIY1KqlbWgIGvkpZZ1Fdb6oBDIWdGhirxJS4pjr 3NtYnP5+ekGRS0O5hWMHiTgtLyrQdA/DOpKg6WBGnQ0Jk2QlaHgFqvXlv4YO c/PC7W+G5hXZGxLspF95Q61Vq/AUUsoeEDnpsBweTrxknwVd9xtXRTK2mwxr rcoqFUun8MAxNh8Hqhh2SldchLwMvKgwC+YjgNyMavMEFVWoxQ46sciSeRhn JIxBrdrahoZw41RFD+DYdp+WSq+7groNRQ79Ea8st0IpFWNQpzDeQ7GF44dV rWXbqqBdp+tafNMGdSLm+lot7YE5I25EWB5T9EeUrVrREsGqHzu7S9JxCtJc tQq7k9c2jdwv/4iQCmy8DSPt8cC1D9pM+tu4OxsdSjQXop7M5BsBjAJ9fTSJ GkIyJvIo7I4npDA9Vs7hNVonR8Zd4ZyRsAW1am4b2kFn3xDWhtaO3uFbCdGE bVQKKskQ1w80qFUkkgH1ynJMkVazin9QhRauAWy9snKqlUwF23Oi1dCOtDzV qn/9KAaktl4OsYBn2apV4KlQHkyCHoKo6JEhF81VKxoPlkcklwF5nXnPk7Lw /fa+cRwTNNO5GKWmeBcbvOQeOAS1AlJAjio0KoXHhqzkwdJglCI/A1fSBg1p EyA9gg7jjIQxqFV729AOWqtIrS6LnCBXeOsixH0q9qMUulnx3zg6RUtFup8i C9cC1qdXNxArsdiRa/EPcxsSxe1XsEA+DrjqLCxGqVZuvjaFWJyJbNWKFNFl UD4/GxHUuqOLauXbg0Vsv4zEw3AiJci1xHATgaemB5n+4iw3NkBGppgacg8c gloBCchosqMYwSSG63QsJzaMXToFbMQG8rOR5HLiGGckfPO8HrahHcyjO9Qd Sok5WtdTgY7cOBUU/dYVXrxu6feIlwKMnm5QR/wHVKX7KbFwbShsN0pEPJKZ +HBOuh/0+Kc18wuTW9ktkcfAF0JGqVZ008FQ5wo8LnfzclWrIJdBedKBIUGt O7qo1p3nsQHeIWTN4aF/lXZJsx5szskCdaBvV9stnYFciPY38m5JD0frTt7G IKi1+iGzWbV7T8R1o13UkDC0FcuMna8fos9mUAbzoY58GJ1UFyW+GQnfPK+L bWgJuZIYbiVqTg5/V6ZbHNJmUWGDRT1BIxl2OdgdLnbD5PMp3xkb0eg+9Ypw zaWrK6j0zCiwcI1YS/peo368omfQbMHJgx7fvQzGnza7Opf4Nujz9nS0NljZ zQFRf+Jc/8eB8eSK0F3Pxu1gnAMVwVeh5aOC5atWgeQTuX4ZDAlq3dFHtXL6 8eUo55Rmy7mwJwvZn8b6j9c0Do4vqBd7xeqr67a2MjZWSWemAE6yS8nItYGO o7m3ytro7vNFkkuKrFZOPrJyhGdS3NwQRZBLY71U8RACUzwPRlCV3jIyLWWr im9GwjbPa2Ub5PrT6fE/X+7/dXN9wShsDe7fDlGLvaIZsoyjK/tk3HvSRhzp uPzXIhfffZVGvS5ashKOc9cSz5RN/fqNiNPgiUJYcpPMPIoMtduI4/1jP70s NAUo5PdlU6HuQ6rb8iqwcM1Yn/K5bNQ80B2aZ7UimV1O3Ohuon/aY73BB5gk K5ld2Z19L7gL7aSJeueZngHvsC/wecA3/EEfYwOE1fkWr7O2wMNpnGoVhGxh Vq18fa44uh7pb8Irq6I1eqhWciM2WMf9EpFI9cIBiu31kbG7sbF/H3AdIBre DEw/x2HdRYqr61eTObs8m/j+3hzOnSVQIZCZ+wFqKiasjWf6L1+7cfW93PxJ L1Ly11z0kELDNmqChCyxMylxVhNDTD1OfWczSaAqXfJI8cxIGJMXNLANcnU2 crnDwUtCQJfPVwduP5Q3c5FzobP15QIYCl9qPdrR/0f/F5FYPB6PRb7wf9Tt pB2G1mNdI8U0beWNCA1qrWk4fszK6O3TH/i/jE7uDmosSE0I+6zN7wanGAW+ kR67QJfoPOgeuh2LfX2t5xiBIQpCkYVrRaG5c63D8/6NsYn45HjI19dKbUZq HR2XI7MSCmFK+ZrMo298vc6cZ5X+rvEHi+sCOUY1hLrZ32znzsnCnbtxiWxy faFyVSv/81Z3cK7kh8nnydAfOhvtVufvbvLmumzS78rdqOp9lkz0UK3F8pRF n+3uhPPNtYGutgbrvt39Ut+V8PQyHl8oXamGfzMVnZcKmIFcU2DiWO/n95dz XgU018A1MiVTv6GnydgypIoh90xKBHJ96pNmwojZTBqoX0VGGSUMMxK+oFbc tkFmHgR7j/Eb/BZB1mEuY//idXUYd+jIIH2iS32LraG1vav/40AkMZdRaIm6 jwj1fh/oCv+cXXkUC31Kn1JTzka6YMKQ4Hh6cyVJWZVr9zPUucxnd+YwvOcK LVw7qBOo696e1531tZT/093Vf/lm5F5aRoP3cmwsxP3dDfnXwXbSG/6x/A9K Zh6G+o4T7JyMvJi56dq4ThYVpFq3M7HfOwqPpCO0gNwl26egxu37QV/XhC6q Vbgsiih8DXmZCpzmT2Vad4wFqh5yPnz+UBGfKlJAQ3ZmBHpUpGlICcZIpx00 OboimqEXAT0j0zOJAGPyAk7bILPpb70uXkZeGeo7g7OSzIMpamRA3XhDRoR4 vw1PWzDKwvUn+yxx7Zwj3zjW5v54QlordiYRjGjxJany7EgkMIYZUB2C2bim K1zuVEZD1crJSEKStshsKtiZS2aXklCJG8NUq0EZBEWaAWncMRaofjbTofM2 i83lm+KfKuWbQ9GvvbzMCPTAkbvPxY3gpVD+dUyKDX0NPImTWoBOenWDsQ29 7hJf8gJG2yCX7ww28mqfMdganK/wO5Xn/ktXMCV6fsq4JcWrc2PHmBGhL5Hh aQtGWbjO0LHl+fmVsHk+m5LRoo75NY/0RZ8Vqf6nhQqSiFxJJlO1knMBF+fz ZaLikZ68tg5/krns5nLiWmc+8q0vJDPABguGqVZjdjNItfACOlbHNRkvZsJX vZXC1fCM8SddRWEyj4jmT6YEJ17cIP8OWR4Y9NXU+GXhVdhWPAlsLU98kGul XdPuf1Sxe0F0vPJ+FBXgTF7AZhubDwPtB5FJubl7KBBJzC6w5/Lb6ytPkvHw tQseB5KNLb4lYdyS+leQMGhEdN8E5lLlK+TogyEWri8cyWohmj9OyO3zTs4G 2qw1XeFFfgQjYWjTYJmzsUzVKlB8ZT5faB5qbx74fCI+GYsEr+beGltj1xVc Mcmy0Ue1Cr/FGNVKF3Dm3YfpCnTrRrFfzUAMPLQpy8aM/xRhOdwbEZ7/8+xN 1vKBVt7Y1+L/Ucv5AYtqJbPzoW47M9y65pF7FdINqxhoz3GsycI6JS/gso3M 1Igrf7ja1HU1UjbpaSszOzbkzgtC4pR/psxRLOPI0qucIItRI0LTeSohS0Iz C68QuJJVmqtcCN1HbN8bI8Nt3KXG2Grq6G9HU15Dy1OtaEIoQ/nq3Nvr6fit 4beYgHOi3nmqo9frC8Vmlo1ci/eWauXV06PnKvMV6NYL8qfR869ISGfQBeKV 86M/VeIPxXSObroyvSlMKkZ6glvkHtWhCQJaB4EjVfQZFEwC69N+T04AEE3D iYoOFEfHi3GF0i15AYttsElzROPvgklpxRBYtVBWkRrjaDVwRKtxb1PuB6kI N4hGFl4hrM0EziK92A+dDyvcBdLCxF5fz4sPwNRmRSGC1LDy6ZbyVOvmXKBd xsUrE31UK9Kto4ABqlVQT8+sBbqBSmF7NfquvUT7J161CpktSNB1R+sgFtWq lVycGHTmfVyGdmaUBNqrHeOOQLfkBRy2QbVIoFZ+YU1REbKzwU7aF2R/N1pc nhnkaDVwREhQq8HtqHJoZOGVwFYm8XEz4kxRdXJRLHbR6LBkYRmusqXt5KlW QcsntC+bWdhTca38+rqWatyHAnpCn+YU7fyyk30aQs2NDvuXe2VJE5F6VKpW 1PVR1zwcr/hixOgJu+Ii20J0S15QbxtbS5G3Kd+v/c3QvOxar+TT0fNUKEiJ yZN8Guk9rLuj1cgRIUGtFdK/WCMLrwDYEiUM6gqVFMsTNzwsWZB9U1alyFKt aBkTerCm9NoZploNeJXQxNs8GhZvB6qfjUnvAaL43pwO9WcNTXZ1NTTWtJJV a3ZhfLAxP8fWuD79AVMRxhx0cg1x6PcTOE9dOd368G2fdUteUG0b2w/9J+os xYOxpZBr11v0+IDuSap7TzRDR8SuoiLBsbqhkYUbTr5FbB7ihH9GzcRQRJlU QFgyv6hLWSEtS7UKGtcaP1gFGKZaD3SFf8H+PeUpEl1rxqAOoHLIfDfU4vz1 F4+FEye90kmbdopjCtWKtIm3KM6JKMPaIz/T9BJvHrR2a7o+yQsqbSPXoFbV 0eraxMB+olgM5/O495iFeM2X1DM6wOARkcv/GPEcrqlv67t5vzIOGqpTteb7 RLMjU+nZLuLIqoji7WhPXpoyQQsyVKsg9qAiBisfXVRrsWQsA/ojF7mNIyPT Kv3jL+/7Ttj5g0OgVi53nlznF4baV8zonAck8WJ65FeIFfxqZFpu2S5UmWid HaBMtaJFA6jZ8rcRvHmN5PoPn7pyngG8qpWTSGvCNV2lbTBroko3C63lLE3e OMcBSc4Hd7cZuvdEq74RqcTsFl4UYYcglX1XhQn1lVK8nbE6SSOVoVp51Qn0 L/GBCT1UqzC62JhEyyKqVf1gi8TKSmTfMd8DUK3Vyct/DR1mzULRMZaeFRcV qFYym/66n63lrkE4KyeADfMT0LEWrhaotA0q/lZ1nQfGvckL9GI2a/ofO1bf iNRicgsvxub9kSaujlCbNiVwaVbOD82EUrOUPq2TrFr5Srh4OoYZ0EO1ovmM +QdmRL0pTVTrTjaz+HM6RyqZiMfj/4iG/3y1z2Wz8CEaui8Hx2K7H5meTaef ZbJm2r0DkiHXYheRilfKjrGMVK2iyxy3/RBh7w7NYzZmpPCmBk/A5Gt6ZdSQ pzsKcdpNro732Yl8l0wTUkUjMrmFC8kFgSCoTpsiU0EPd5U+PJx4WSE/NJlN 3fSgIrNUZ2SpqnU1MXQCLb3g6P/bcoWMVS56qFZhlVRjEi2FY60biGkVOl+k ylbLUELXBAXAIJ5F+5DqIjVdoacKFg1UmWgdTiNPtZKZez4P235ISVcaEZji NodaWwuPEa8221oKv1EjbbAViZ62UQa6eztbAp1JaLK3B1MmXQyraERmt3Ah Qr+o6nqAq5Eeju+27oT/YSUVWyhE9TPsa/LeLZLPKUm1kpuPrrdJ0cCmQAfV KtRvBrmmi4Rea9duWNja2PDm1IAukEvhbmQyrO0OK6peqmc2Fr8bS5llji9Z 5dbGlAC5etfbZHX0/3Xq80JGiVmysfRBT9soA10OnTgXWqCXPyaLv2TJU1NQ NSMyu4ULoTcUKDVvhFXpLkFQq0L3gpbw2hMXLYUtRbWuT/nQs1/COTixaLaN GIL2qlWoFQ2LbOfvrTRUrVv81sbmLIwGyIZXplVxoBQ6S2utTHgdXetcgcdF X1CeZLXYzvimpHUgkg65NOltqWn6aHJ1A1l5QbWi6GkbZdhaCJ0jcs5eo1q4 4qVqRmR2CxcgFCotfnXntdwTsUr9ocnV76+0HWBv0/7GrRS37JGoauV1v7Uc 9PjuVUalC6VorlqFeX+KS+qphl9iF0cNgeLwGtBbtG9vBFQGvDKthz6MK8wQ QU/tdVatRZvpkNn0nWE3uvFvHU6s4H6Rt5YnPmisYVwKWV1Uqxk7B+lpG+Wg V48jA7HnOQ1QKdVKlVMtIzK7hQsQFM9UGd3HOxHTvSmGDIr4ChLP2NmwrGol Mw+CvcdYKUIc6fQrlqxbmdR34VvBYMA35N3lQk+Hx+1uaz19bVrnYGCtVasg 749o/mQKbx1yGSDNaxi0KmXAP3JVfZxhCC9mwle9lcLV8Izc4lEGoLpMawFU mWhc3Jhf1FrYioVXMYBq89Q/9hN2Bw65/Ld+hzUfvqWdakU7fZtxTdfRNspC n6NRD5BpXmy28lBFqJYRmd3CBfC1mb0jNK/icrmmEoWJujIdrQXI9ccR70n2 jJ9o6vbfTa/T0qWUaiXX0nev9zrZsArC8b99k7+omEYFQRoM+oc+aqtamUMW FOMcrcz9cJK7LcLqfHhgWiahqD3OMIJiZXYNxAznXLwyrWrKCeroLeH/0Dz3 3fZ6alQHybpDLkT7G5FdrXaqFVV9jGPNXFSMJ41aMXdv4BGtAQ52h3823STH p0pGZHYLF8DXZseGEiqcGDxnmjlSkzaXp77weg4XhAXh8FzwhWLjl7lZaof7 Qt/Hw9cuuNlPWqzHukb+mlxR6Uwms5lndK2kmcTNXkfu0kaEPmqqWrOPAh5U nBO2zmDK2HJPa995D6GpYbVNI/exHwxUSVAr+dPo+Ve44ts4iFfOj/5U6SsI r0xrW6BI7vH2o89PH3vV/4OYPaBVjgk2rVkL+JmDqNjmdr+yaCZZd7JPw712 wjUyVRDM2qnWX8JdB4oN1izoaBvlobQEcfAPfp9Zs5YEVMmI1Fs4mV15FAt9 6u3paG2wWawNrq5B3+3EArt8b2X1XMr5qlXNhEBPNeyl6juDs9KutZ4KDzRb 9zk8n0wui7xz5PqT+Fd/ufXVvQW8T4lcS8e/9A10NFqlrMy19a09Q4Fx1XqV fxMbscG63FcYEfqooWrl2YYWDR8VwG9krCLysBQa1OgATADPk1+8YM520ndU 2i5mKzFUCGba1xfVMDyi5IqwkY6832zVQbLukE9Hz9vtLt8UMkFoplrR+PZC wrip0M82ykP3WKltaDhc8WesUqmOEam08Owv8etvOakX3+7svhQYm4hPjoeu 9Dh3BVvn9anMZmb6z9TRM3H8nXG9fNG8nbWaiDuO54qwtQdmpBXjZYJGaETd 10uxgSZmFVAXyVD6ZtaXHk/9PXzTN9Tn5gYjWp1dg0O+P4ej/3q4qFEsJqJw DAl91Eq1ktlUsBN10VgOdYdSlXDCK+hlfOh8GGvskrCFhxGNwADdkVKmlXnf nUMJCRk0C6GOgp1qV6JNWOWjbjC2Qe6Qz6f85xzoi6KZZN3JpkLdh2rarj/i LB+aqVZ00jPSU6kCvWxDBPZJSjPpyqc6RqTcwpGkS1v78MQ88tZtZR79R5e9 1vH2x5dcuavrt2PidwRQPCFw25fI8KShJXDF3NdstaKS9ViwIaOjKybQjGND Qh+1Ua10xUV0a6RBw0fl8CKxd3Xr+7FVXEuXMJTXmEZggN5w66rVdIaKBHAz eU8SO7BQDrX8/KplUC9/Dthd5jKPvxp8lfOH2knWnfVUsMtW0+5/xPNsaaZa EclHdIQWsF1XR/SyDREKT7JqilFXx4gUWjiSdFm8qN3WUuRt5Px0X4v/R71W Nl4xopP+WQUlBMj1qU+a2as0/DYifWVGmiUx+/rS34JUglUXfysF/VUr28Xe oNBH/KqVzC7cvYIWarDsa+z/Ol1R3Uuzs8HOes4dDt7B0t2MzMSH2ebpDLzG 1kBVwqtZvb8z9ERgULlG55JDqdHgNO0ad3La6NDTXmcPWuHKoqlkZQ5l6tsD DwXPRCvVihyvmzPgnEIf2xAjt2JW0RRXFSNSZuHkwrfv5JIuS58/ckL3tcll LnV780GkU5SwzomEK3CcaTbXlYQMTxrSLInT87cISAEHHY5Z9Vat6EqnuBq5 OjCr1q1MMtiLphtb7M2DY5UlWWmQN5QBQ+ldfl01I15twCA4Zb2LhweQTyO9 h+UUBkQDpLWbizbnAu0Co0XglQfEC7V/dJRI0tRItTKV5JWvfZWBPrYhRm7F NGNGWwmqYUSKLJxtw0TYz4+WLvTzPDaQj4PSO6axECxKIbfnIHd1lu1JQ8Ko xDzMaDCDKzCntfbRW7UiM49RoY+ss9ei8jmTmUeRy2e5gXBN3YH7FRMYwEMY eXvQPXxHqcBmw4GIxoGvR72H2bcLglr3AlzVWuR4kTmckpXige5qtYuPQovk 8CEc5/zYu1+x0I22S4aWaaRakWWX6DTMS6kWfWxDhJzPw9SH6VyqYkQKLBxp eU+85kuWnqJQSaZ7TCOds1kIfSh7n7y/mLnn7zyS/5sKDn/RAymmdVpp2FAx PY5yBH5HjUvhIQZgUOjj1mr0PW79UtGYDSHZzFziK1+vk1OKgbA2vxucwuWi 0agKh6B2uoWwubyjySVZt03VuLj5Dp1qTdjcH0+kN9BwZbHTBKA6QIsRFfvR 1++NNNfJLgyIbCpreyLauOxL1I6m9l8XxtLaNQYiNx9db6spk6SpjWpF06tN LU70sI3yMEu5uQ/TuVTFiORbOJqhLNJYgc3lNyS6JrswPtiYFxo1rj/dz4je wvZ6aszrKoTTKPNNIUGtIm4ociPuzX+ZDrWDBDWRLIS9d0yWF1oerCbX5TUh 11d+pmvEpp/MTv8zHhsLjvQ4i1T9sjb3B8bj07PpMsxOxydjkf/0j1x8s9XB v4S1pfd6vnGDerStwkFml+9/jrY8ozjQ2vfZV4m5jIht03L92gW3g/4ViSMd I+NzuVEXcrL0jFcHjASpiyJQEblO0LKC/5mLIguQRt2H+Y2xclOfzeNLLGvZ 4nB9yueylz2L1Ea1srMuccA7acZunTl0sA0RVuPeJj3yTfSjKkYk28JR5VM0 IJ8FKUVuUDlH8vmU70ze20vY3H+Mzr0odcPk+pO7OfFAYzvpjTxWUg0KCWoV czAiB+gYq+qx4o1iLnkvHp+IfOEf6m4u1gio1uF+7+rN0ehknKvjnolJGvH7 QDS5LqGPmrc6IqyNZ72fT8xgK2mrVxUO8sXcnU97nHyPE1F/4lz/H/1fRGLx f07PPslZy2Q0fOuGz9vjbigU4rA7e3wRnoeWXJwYdBKipwlA9YDUVGGrBOxu ixI3upsIhYHTaPiisrRZMfgtBqg3qbEvNCPuxFAD/azsveEixcEKaKFa0VnX oFQCbGhvG+XJJeYYlwuGnWoYkXwLX5sY2F84dj8dSJXpQb0x6z+Z+6SBPcrJ 1Znbg2wdaeKw5wP/6J37s+mfFzObdP+m2ak7X14fOo845ezO3n+PLyh8R5Cg VlEHI5ImifEoB494U2/YgqBWci1972u/t/eMs56w1NY7X+8dujku87S6HJqo 1t37dHf1feQLRuIPF7DWtNW9Ckd2KTl+w9t5VPpDIupdPcPBiZnl4r9R9mni m8k5jQr9AhVIzqdqye12b1y73H+GamKiIsCb7krAIOIGUQa/WCulrr9f1jZ9 kgnxFfU8a6FakfTe/RdjmNuL6I3WtiHp283QaFkiVTEiuRbO7Y0iIrQWIz31 0j6pNdvr6bvXe1vEF2vC0fq2wKckDzSoVay/AOsEwHqUUyGqlRPU+nnq6aS/ u4mgnvBIMEIfgo90N1CRkkc6ff/A3BTMDBhXhWN7ffHHeCTou9Tf5Xm1gRtB QdQ7T3m6+i75bobvJDCrdKAq2N37RHx97sbcHGM92jFwTdWciZzgaxC+yC3Y ZTvpHX+i9YpN15+xOvr/JlZrTgPVyj5MYv/AhOlPQbS1jfLkvS6GlBnXhKoY kWwLR1SuqNDamPQeyC2IdQOxCoiu2dWu974J+nIJLyy2htaOHi/tS8PQHwoJ ahXzMCMRFAe6wr+o/eZKA0k0c5zpPuPYZ3N5wzOryBN+uTD+ezrwWGZhsSrA BFU4AEAfNK00Uih7RVibB29z5h+NYMryHGjtuegV4f0+d6FfxyF33/vIfxoJ zyopTIQ4lo954+V7MpoC46rQ5BNOjewni5eqGJF8C0eTMUXKZCG+/WqUZKVA glrFdjS7G+3OvJ/LiKAdbUGDTywlA8nIVLCdtijixFBi79T8NEcVDgDQBzIV aCMkLSvyeZEYOkYVVR74UuNA1gLcEmEKUVaTENF4TVempTUfr3C0tI2y35vL PayebNOqGJF8C0clmYjQqm5JVhJkI0CIdcdFIiiMSZDUFDSQnrC1B2aKGxhb AFxuTV3zYp4qHACgC+TP4e6D2swD5Prs37+8m6rIWJe5oLsQy4UjQmDz/kgT c75lbQtUyx5XQ9soQ6HOm1iYn2moihEpsHA0YHLfO9GS6fg7HEnGUW9kduHB 3ekFE8cClwMNahXbGCJ9lrke+43F6e+nleaCVQqok9BxIbpcUnCxNrVXTsBN VYUDAPSgUEjNIqe1ltnBq1qRZyi3am5FY4htrMQGGmiPC77aPgZTBSNSZOGI 0BJJsEK8stwgairsk+gILai8/QoFCWoV8zAjXll7R2ie/Q/Uo6szdxHgHU5Q 6+Ghf5WpNIHshIxr26cnpqvCAQA6UAgWstS1+Kb3hmzFqlqZdrr0kts0cr+q HqD+tlEQMKZu04BSBSNSaOHIW1a2mTs5F3DlPsftxVYdkqwUaASFyI4G9cpy OgLTatb0jd2p/Y0kJyHacIer3qsTk1bhAACtQRwphz6Mm7xkkzRwqlZyPpiL lbedD6WrSrTqbxsFn1JlJJJjoApGpNTCkRoCZVQruZIYbs27kzhdGOgULedQ ojpdapzCgOUTHpnuhwycWAs6Htj0dfakOwmRT2rdXrYiMHUVDgDQEtaXYm8P pkw9A0oDo2p9HvceY6aK6vRU62obBZ9S1SSSV8GIFFs4+TIxzJiO5YA3XryZ +0Z67EKhjyrX5fgyFThNsE1VqgzUfbpLe2CuxKMllya9LWyVTFdgrvA8yCeh zgPmr7OHdE8QyXxH3IkmfqGkA1U4AKAUZDZ101Ojn0vNWMjV8f5CsJDllf7o M6UDRp/b+7HVqgwl0tM28pF+IhFcJsLsI1Jn4eRc6CwjM4q6TBnJWnfc7XII HYlU/pe9OneCFGhQ6y4Hu8PFusYzTWaJRvepV3IfRLzW2zP+E4T56+xJz3zn VKUweXNkKUAVDgAoR6EoXFX6DJ/F/R8x9Vg/6Pt1c30+Nirn4alvPtf3Qa5e 6/+Lr0hemlk/ZGN/dKF6tb5etlEFIaA8zD4itRZOZudD3VTdHn45I3I9FR05 6yAOeq7cXVib9rXUcRfc9VSwy1ZVuY1cOIKEnoQaL4ylOWKDzDyKDLXbiOP9 Yz+9LARpFJzP2VSo+5BIKSQzgGS+i7gTyXTQU3A26FxE2hCgCgcAlGcz6W+j y4/YuoIpJZX2KxgmJICwNrzqLsEpqtu1RU7AwNZq7H3aXVIjoRuXydHFNvKR flgbVhqKyUeExcK3MslgL9WMkrC5Bm6MTcRjY8Gr77kdtYTj7EiUqYxHriev e2y0uHUPjcb+Hr56vqGGUmvVutqiQa01DceP0Y0yCcfpD/xfRifj+Ue0z9r8 bnDqGf0QCqEUB91Dt2Oxr6/1HCNsZwMzJo8OyLWGYYR7Z9m5F03FshCeYPmm 3dUAVOEAABHIbCrYSa8dZdvGARR091jqZIto+miyOmMDUHSwjcKq1DAQW9Hi C3TH3CPCaOHk+pP4bd9AVxvVx9za4Ooa9N3+Pr2OLsNkdnk6fKX/zO7mkTr7 uOiPzVerZOUGtR7oCv+cXXkUC32a7x67u7lu7egdCownV7Lom7a5kvzm2kCX a/cz1kZ332d35sp530wC04xG6CQUgsZUVFFZ7HJAFQ4AECW7EOmnY8zqO4Oz 1btqqKaQIlHj9v1QnTnOArS2jXzCbPWc/Zl5RHvRwnUD6Rcv4mCsejJxb4MU YcapXFrFoSMcoAoHAEiAfH7/yinKD2Dr8CfB2otS0G8NveG5PbTkaGsbTCox Ye8bN3f1SRbzjmivWrg+bD/wHc2fdZs04BkbrGq1euOlLW17NfpuPp2+KjMv igJVOABAGtmfxvqPU4fBjR9MlG6ut1chN2cC7dRZ+UGP715mr80HGtoGXeaF ODGUMJvEK4lJR7S3LVx7kKwikVZQe4BsOtghrlrZdid7JCIrD1ThAACJZOfC vQ1UcoTns6nMnpkixCGz6a/7qdSSPbyga2Ub2cXEV7e+SVbRUzXjiMDCtQbN KjJlwDNWyI24l6nWWro2PtLrhGjxTi7tJauEKhwAIJmcVw2EKwuZSVxx2WBB B9uoVsDCtWc17m3KiVYzBjxjpxCwWqLFAJmJD+dagx30+KerrLqNBKAKBwBI Jjs/Mdxus+xr9N6FCNed7cfB0wctxLHe4ANY0ME2qhCwcB1AglprOkNQqmVX tiZ9r9GVv4p14sid7Fj2+E4KqnAAgGQ2FhJ/vRWd3Xs7XAHkQuLLL+/Mru7V iVMI2EZ1ARauPUhQ6x4p3ySB9Skf5eEn7N2hebbY164MS9zobqIFLeykAAAA AAAAdIXtd0Sc8s+YsPWEJpDZhbtXPActllqH533qEHxyPOTra6WOvGsdHZcj sJMCAAAAAADQF3L5HyOewzX1bX0374PzkEN2KRm57u153VlfayHqne6u/ss3 I/fS6/CUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA8PH/AQeiWUI= "], {{0, 110}, {914, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->Automatic, ImageSizeRaw->{914, 110}, PlotRange->{{0, 914}, {0, 110}}]], "Input",ExpressionUUID->"bd50a829-0238-4ce7-a707-9d19e3aecb73"]], \ "Subsubsection", CellChangeTimes->{ 3.7467908610581846`*^9, {3.7468415726406765`*^9, 3.746841573089467*^9}},ExpressionUUID->"f6ff6a16-2683-409e-9568-\ 6e3be22bce6d"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "2", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{"G", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "=", " ", RowBox[{ RowBox[{"I", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"V", "[", "4", "]"}], "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "//", "Simplify"}]}], " ", ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.440895870234375*^9, 3.440895891640625*^9}, { 3.440896510390625*^9, 3.44089655715625*^9}, {3.442671255203125*^9, 3.44267125603125*^9}, {3.44267137046875*^9, 3.4426713811875*^9}, 3.44267142365625*^9, {3.442712951171875*^9, 3.442712951859375*^9}, { 3.44296369284375*^9, 3.442963696734375*^9}, 3.44296768475*^9, { 3.443374517453125*^9, 3.44337452140625*^9}, 3.443397833125*^9, { 3.45504301590625*^9, 3.455043130828125*^9}, {3.4550527984375*^9, 3.455052814484375*^9}, {3.5067782137090287`*^9, 3.506778214466072*^9}, { 3.506779064525693*^9, 3.506779068082896*^9}, {3.506779121543954*^9, 3.506779124996152*^9}, {3.511641116247309*^9, 3.511641117295369*^9}, { 3.511641238366294*^9, 3.5116412632227154`*^9}, {3.519945652604292*^9, 3.519945656025487*^9}, 3.5206470576621337`*^9, {3.536753629485641*^9, 3.5367536355419874`*^9}, {3.5367542796588287`*^9, 3.536754394482396*^9}, { 3.5451480077289762`*^9, 3.5451480136813164`*^9}, {3.5451480836983213`*^9, 3.5451481475869756`*^9}, {3.5451482301356974`*^9, 3.545148230279705*^9}, { 3.54514835065559*^9, 3.545148351119617*^9}, {3.5517190084457397`*^9, 3.5517190462919044`*^9}, {3.5517253476257124`*^9, 3.551725350072852*^9}, { 3.552315878168127*^9, 3.552315880549264*^9}, {3.5594364063879995`*^9, 3.559436470154647*^9}, 3.559498758930711*^9, {3.7095734439172153`*^9, 3.7095734562269197`*^9}, {3.7095736865240917`*^9, 3.7095736900622945`*^9}, {3.710786317142681*^9, 3.7107863175327034`*^9}, { 3.71171717351058*^9, 3.711717180665989*^9}, {3.711717560179696*^9, 3.7117175669990864`*^9}, {3.7118545714168224`*^9, 3.711854584457568*^9}, { 3.7119033420472937`*^9, 3.7119033423323107`*^9}, 3.7119033814345465`*^9, 3.7120954622856226`*^9, {3.712095557947094*^9, 3.7120955854366665`*^9}, { 3.737162821795579*^9, 3.737162839969626*^9}, {3.73780794558059*^9, 3.7378079860629053`*^9}, 3.7379793854587083`*^9, {3.7385815933232975`*^9, 3.7385816487654686`*^9}, {3.738581823928488*^9, 3.7385818265056353`*^9}, { 3.746791040438759*^9, 3.746791071688319*^9}, {3.746791171144439*^9, 3.746791205624802*^9}, {3.746791269817828*^9, 3.746791296817684*^9}, { 3.7467913572329483`*^9, 3.7467913929364586`*^9}, {3.7467914248141994`*^9, 3.7467915012213964`*^9}, {3.7467915468503184`*^9, 3.7467916019331903`*^9}, 3.746807033746698*^9, 3.7468417625815697`*^9, 3.7468418765321264`*^9, { 3.746842284655871*^9, 3.7468422881912074`*^9}, {3.7468441273413625`*^9, 3.7468441299878983`*^9}}, CellLabel-> "In[101]:=",ExpressionUUID->"c9572197-027f-42cf-809d-6e31c7061dba"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "2", "]"}], "[", "1", "]"}], "[", "2", "]"}], "[", RowBox[{"G", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.7467913000660734`*^9, 3.74679130814038*^9}, { 3.746791532816335*^9, 3.746791533334661*^9}, {3.746791579057716*^9, 3.746791587805388*^9}, 3.746807034420087*^9, 3.7468417637576733`*^9}, CellLabel-> "In[102]:=",ExpressionUUID->"371c2402-a77a-4c69-851a-ff4b08a88907"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"V", "[", "4", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ RowBox[{ RowBox[{"V", "[", "4", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ RowBox[{ RowBox[{"V", "[", "4", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ RowBox[{ RowBox[{"V", "[", "4", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ RowBox[{ RowBox[{"V", "[", "4", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ RowBox[{ RowBox[{"V", "[", "4", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{ RowBox[{ RowBox[{"V", "[", "4", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{ RowBox[{ RowBox[{"V", "[", "4", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]], "Output", CellChangeTimes->{3.760467983818438*^9, 3.7604682420188074`*^9, 3.76047034060067*^9}, CellLabel-> "Out[102]=",ExpressionUUID->"846cb2da-940d-4bd2-86d5-0749261e834a"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnW9MG2e+761z39wX8+Ly7vAiElfIkl9EiiJk6SaKKnhBlMoSRFshlCZC JmouRHuzkO0t3laFVg2kal1tCzobs+fEamPlKE5PrezGreJ2cVvoCmeLu+so WK27gcokuA0JEOQgCDbDYf7YfmZsj+fP88yMze8j7Wq3hfF4+M3v+T6/5/fn f5/u+9X//ReLxfLy/9z9r191u1p++9vuV1/4X7v/p+M3L5/t+c2Zl57/zf8/ 03Pmt//n9P/Y/Ye/3f3Pv+7+D+Z/7wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAABmILMyH/2L/9Kb59qaKAuHtbnz3NCljyfjDzdo1dfdXJr59+72 i5NLGYw3CwAAAACAKQD9kHkYC7zX22K1lKXe7nQHog8UPw36Sdz/SvPuY6Uc I9OP1D9LAAAAAADMBuiHna2V2cBQm638E0CxOQY+iqQ25V2ZzqzErvW3MtLU 2j02vWh6NQkAAAAAgExAPyBij4Oydwx8cPXW1Ez0bnz27zNTn10dHehoqhc/ DOtJ963vVzOS2pBemw9f6rGzv2s94519YmIlCQAAAACAEkA/7DAPYdZ7ho/E NbYPeCfij0pE3eiNB9HAxU4rJXwW9XbnB7cSyyUkIr2eigbczsPcL1AtrwUS Jn4IAAAAAAAoonr1Q2ZlLvL5jdC3yXRW86XuTww9T3GhNtd/RpekQ210ZmnG x0XYRE+j663LgYlINBaPx6KRiYD33T5HPsRHNba9E5YbxAMAAAAAwPRUr34o 3Lml7kV/chvHpawn3aF/pmWqPXptLvSB014UpisJddj5wedz2vUeAAAAAAAm oYr1A70eubg//yl1L4eW1X7E9k+B0wdZsff258mnitPn0/e+9LocjUXSsoDN MeANlwzZAQAAAABAnGw6+W3oRiDg9466d7kw0OPs6jrRcfpK/JmGg7Lq1g/Z 5dDLdTmtZjt/66H6J7GRDLzc7gokNIg95tDz0w/dAy858llkjc2dfSOXA1/d Sa1jPc3c3kjd+TL42RQIMwAAah9MHg9jEghQlSwGe0qV0R31JrQcZlWZfihi 44eAq72RsncO/0nLV6gqsiuR99s47Uq94Jl9avT9AAAAkAOTx8OYBAJUK3Qm /TjFMBe77rLnjrKOeO7uEfUA8Gz/6DvekJPRjV2BBaNvCAAAgBh4PB6+JBCg FqA3IyM5qzo0OLVs9P0A+pK96zmSO8ysOxtY3DL6hgAAAIiBx+NhTAIBaoCN hLcDRPUeZjMVfq+zqbGpY+hq9BfIjwIAoKbB5PH2YhIIUAZ63n+ikddR7b55 ENUAAAAAAAAyWQ711UFyFAAAAAAAgFLop1Nv7OOjUc3DkVWj7wcAAAAAAKBa QJKj6l8Nr+210s2t1cSkf/TVM44mimpydPUPX/lqHk66AQAAAACQA50MOPkh eJQzkNpTyVGZxWnPWTtlcwxcCoSnZ6ZuuLsOMs+h5cIEjKsDAEAP6Ezqr56e I3U9wSWjb8V4srHRg/vbhm5A2jbLnrSNarSBtfAA3+qy/qj3+z0UjeJaqFlf Gp/J12vQz2Jjh1lFaT17c29JSgAADCCbnv3IaaUs1PNvTP4MLmdnJ53w9Vhh 9jrDnrWNqrMBejPqPsCf6rW6o2tG349e0I+mRxyUtceXSAv+eSrQxcfmegOp Gm4AQGdWE2HvG9xpZtu5i1e+vCd3DCIAAHgoLJRDE/dr2N0og34y6z1jxXwu gMXj6ZkEsrdtg4gNkKMoOYpeT935wud2MaZiqW9yvOQavT5ZazPXsitTF+yU Y2T6kehNoud97bmUe3c0Xfq3q55sOhFwtTRYO4evTUzPfH2510ZZLPta3bfX qkZKpRPX+uy7Pubo+KyWWZAAYBi5hdLS1BuYry0Hqxlun4ttGcXh8XRNAgHb wG4DJBEkR32SfDjj62+lKHvH655dU4nOTAY9/c3MNznS6/3bUqZWFqz1b92H 9tmHvl4RfyG0dLHDm9hQfGV6Y/XnFDYepUm8QfTSV2+02FqGvkjxf9AnkeEj VTVZj966d/UE36mjp6bDhkCtQmcWg/3sat4y8k2RIwJ2dct8oLeJcUut78+s aYr5YPB4uiaBgG3kwGcDZCkkR9XZz/Sfse+zdrpDc6hIf7Y0+XYLM4jR2jke 03T0Q2czWc02geEiW4uBs3WlZwGsxz25cNS+N6aeKv+gTNSda2iKD2tzR3ff 4PvewFexhTWtooFeDJ0/VHfi6r2t/LdLR93NXESyOhLk6IXg2abcw6nhsCFQ s9Brt92tzI6trvPDHzYq+plsev6ba+6+Nn5oO3NMMOD+8NPog8q/qvC+tub/ dL5598aoxuYu19iNKOmh8NJ3s/L1kL2OESq9gaTqXbx2j6dvEohC26hx8NgA WdDkKEY6tAwG54pPe+lkoNvGWsvx0ZiGBCo8GkN7/GEh0GU75P52vfjf0P/0 tfPhqLq+kJopg0R0FEp9U8dr459+l9pQp3fo9eh7h6gXvQnk29M/+Tsb2ItT B0djJhb9HNnl8Ou2wgM5Mhx5YvQtAYAS2JWdMV7rWf9cCT8k/OEncf8rzKFA KW9gd34g3PZqYyvubW8QfELjC8Of/mhc5mR2beb9Vm4X751Vfjywg8Pj6ZsE osg29gTabYA0SHLUrt7r9s9tlXxhthb83fx72x9aVv1OmUVHbW+sPlotqUMK fd33tfv+qeaLFs71HszH/x6NTAQuD3ZYi51gY9uQfzKWWJA61ZuPR2ci4T/7 PBdf6bCLLkHZX/rg1verSvU5/SDYu7+uN4jO06QfBnv5b32gL/SLii+tJ/Ta 9MihOvRJqp3VDgDy2UxFrrzOvIZUo+P1QELLormRDPSxuRTWE75Epfm422tT b9osklhPuicf4IiG0OuRi/uLr29snjO9HBk5yt5Gu3tG+eKj3eORSwIpgSLb 2DNotAHSIMlRFvuFqZWywryggLRMMRbmDi0k7kSj0+GbvtH+tlLyqt7e9dbl 67emZqLR+DyiLh6nSQX30Pfi2GgMV6ZQdm3qLbF3ahiJbCr6Fpn0Quxzr8vR SAkeUc/41IKC00fWgTQNhB+hV34YzA8F6gs+NHmuUXrW0ymUlFVyFglUMdmV 6XdbELOjjvvmVNocvTXn72Y3VlS7N1F634qynY79l/vdwb4upuynLHjWl+Wp wUOlr297PWzc8PrcyY6aJBnNHo9kEkjRzSq0jT2EFhsgDpIcdXj0H8/K/yAS SSKQjkKvxsY6hE6CsvUHF/U+DEXeC7x93Qthrhyd/gVV0a7M6ve33Cet6KWs 3WPTi/LUT3Y59HKdSAkjI6pFuzbzgaaXF2h0R00u/oDqZvtH3/EGPDaXy5vd 3am5o8rOo+mNpcT0J27n4dJ6yuYKadwEMc0Py2m1huO+H43brbBihtUrraPf KTnr0u7xSCaBiNBgG3sA1TZAHOa94V+TQ4NTEoawvRZ+tT73uvYEF7HfSdGJ nxGHNch7gbmve/GBZlcgpf5ym6npP3ShZ4XU84NBWTkM9Grim+gCGoDeTniP 8lfZ3xt8YG4ZhaaXI99+T3X6BfSn6P2lTviTal6VzMOQi8s0VV/hlXk8+8lr LSX0DmVzTWiKSS0FeyRCXu2+eQO9w8YdT1sD+y2FmU6V0OzxSCaBCMBhG7WN WhsgzOa87yRvUBVO65CfJKNw6AV/p+ClNSJ5uPBe4D4qwqyjdnLtUPYVLqgy hyEdG3XwV6h/Rf2JrR7w6eVUY2ODyMOrDO4BgDxE8SjVh2hMpg3nYjQGHDZT ExdKSSltl91Oht48e6rc+aHBo1fz4QhLXXdgUf37jsvj4U4CwWYbNQwuG8DL L6G+XK1ehb3Go/BAPg5AJhU5X0DKo38xO/pe4O7rjl9H7SCN2vLuXfnsgMLL a6kfCJu5lz2fXk4dH418NtwgfJhwsAeQJZuOf+xy2Nhq2aGr0V9UmRveVSCf kCwUO1rqgHjoTDo5E3A77fXCaxvdqK3grI6ORNR+S2weD28SiDkVgvnAYgN4 eTo1mDvdPeK5K6XLs3c9R/JZKRgTsBGM11HEkqN2COmoHb4gF72sslJZtDxH lIppNrj0cvbkQmCNZP5eAICdwhJwZHDqMYYL5gvkUajT/qREoquCq2eWbo87 DyKXNlpH7WzO+U5x+0a1ef74PB7eJBDstlGzaLcBzGTjniPyLIpOBZz5sAeh NctwHUUuOWqHnI5iCkJn3O1oHJ5q++Os3NZtj6cGcyaw/2LEyH570uTSy63n g6ktNvNT9DQN9/AAIE12OfQKH9859F4Uz7tGbyW87eJDOIw5Cfmu2mZ5y+jF QDe/hVJ3+IXP4+FMAiFhGzWLZhvAS3YpeI5/Qyr0YkWTzMtrjPWY96yzC8HZ 9+Yl/zdyZziq1lH0eir6J89Qn+Czu5y/9s0q25WRS47aIamjkILQHLIbjxSq Nan9w9PmydsTw6eX579XcXV2uydu3tsHACTDCq97WY0MN4uEFNaE8Kdxz6/4 y2rpeIMLthkU76ZVnGBi83hYk0BI2UaNotEGMPM0NnqMN4QKHV3RZavxhL/M O7r9YOrfftfVLD6xlzthUJ2Oon+euviCuPcUM8v7zT9OPVBikCSTo3bI6ij0 bD3n8Up2OxHfU6GJisUxGkOeNr02fztKbIi5UnLp5YU4W36mg0JrAQBjyA9i s+Br2MhfeSs+3ip2gLiO9hgKxxZHPHHjXQKyqVf8NTF6PIxJIORso1bRYgPY QRYj6TV9fXp4fy60W7EbW2Y5cfMNUSEJ1ToWqxirVKOj8oWihY+ydv4+nFTR EA15L0hsu8jqqN191uSgDX3odYdGpivMikBUveXwWOxZ4afZznVmGbaS616O ZhVmUoEe4dOEluaAmXkSdec2rUe9CbwRh+3vvUdFCeFYcx1zzRDMUodSODhQ 2NIKo8fDmQRC0jZqFdU2gJ+CjpKsdkKnEjS0e+MyDoyKC0nKR7HyqNBRz/4x eliYb2x7JbgoI/ZVDPJeEGmTQlpHFYf3Kwl1Ouk/QZU0RXbXZoYYPgOSXl74 o7C99QTfFkv/FgAgQ2ErWqmiRw3obC/+5T/gnlHlB0vBe2arM6CqYxZ2UDmk RHjg9HgYk0DI2kaNotYGCFDY1EvpqPyEYkX92JHaUrlfVrGOEk1YtsiWeaUo vBdkjJm4jioejFXf6rlb/mkgUkSkuJi/+H7b4KQJ9p6i9PICxY8TOh8AZgV9 NwnkDAgqhnJg66iWd7PmOXJCmxnKvyuMHg9jEghx26hR1NkACQo6pGE4Umbz wk7K5m1PUes5pNcZz0nfvOQOSbGOKtqFqT8qRd8L6b7uaiGuo9AUyhxSBSnI qa4g/kavx8ZaKTPUQRSnlyP/pjBmnQfPXAYAwA8SKyZU7FzoYJMDz7i3nYIn N9ORE9KQXMZJBw9Gj4cxCYS8bdQoqmyADPmIYpmTLDodHePasFsOOn1xJZpP UOLHUunIXrGOQpqIcqh/0wknR+3ooqPon/ydDcLPaB6OrJb56YIKFURythK+ Ezat0yXwUJxejiC2FgLPEwCwgLQ7w99QhafIGVq6/QsqY/MC+DXC6KVKxGYk 34lX9khQfB4PYxKIHrZRo6ixAUKsJ7wvsrOlS0VyMgshVzMvorx35MxuQ0Hk IkdDp/8nqWso1VFF2ZXq0yBJJ0ft6KKjdp5EhkXRfYnZ04UikUI0MnN/Yuj5 upaRySXjj8hKpZcjwMEeoAd0JqN1V4XETsklwBSnSGGpYM0VAsuq/9WTxWBP LmlXbhgHn8fDlwSii23UKipsgBgbs95OKzPgsj+4mMmvV3RmJXatv5WVWMdc ge+ViiiGoohBhYVOqY4qHmyseiElnRy1o4+OKq5ik4zR5Rt4Wl/yTNyOTPzn cOcBqvkVf/yJCXZFJdPLEYpbmmM7yAD2PJnlRPjKcM9R/pVtbOka9IYTy6rc C1oTQW5kQHH8H8M0eXp5wsVUAVPmyJZEQXWj7N5xeDwexiQQUrZBbzyMT358 aejXbU15o7A2d/1u1D+ZWFWlh+lsJms276rKBkiRb/5fb3e+c21iOjozGfQO djBT2+rtPZfC8xWq58tSdGSPWUcVxA+H6roJpJesqKkIRvTQUfRmZKRBpKOo c8Gl8sKQXpv/8spw34nmxn1NjjOD46H4ihl2nWXTyxGgpTlABDp9189sIanG ljNDl65cu/xWFzdmTuUccDRKXClHVANFqeaV4v+VWYuNHqeIekX1oLpRyTfF 4PEwJoEQsI3dLxi+1CMejIguwy8Mf/qjssAIm6dqvmNHtTZADmb/ddU98JJj V75STY6uvqFL18N3UnKni5S+psJ4kVIdJf55yQ5C9JNE8Pe9LbZGx2vXRbuP TMLXyd8owQGReuioUmU71digsnx6OUJxS3Pz1BMB1QqdvuPd3VRSx1yf3F3h 4/NorU2nZ1bh24TmDBANmSqN/1eA3pj9YxtF2CtqAM0b2Tc4RWDgaxkwJoHg tg06/X3AdUw8JqgEihJ1OPvXUAtPDMNsQE9MpKO205G388N8qZ7gEnKXhU6e dV3eH4hJDl10VIns6+prUCmZXl4AWpoDuOHG/hbHnZBKWMUZrWhYnmjJG8Y8 h1027nj4CiNzlO4Wg55HEEpqrfC5mpNAcNoGnUl95e4U1RpI0NQbmJdlHlzj o4r9tw3BKBvQk6L3ukJlOkEdJUjARtLR6Uwy0Gvl9Puh/mCS4LGQYTqqytIX K6SXFyhOBsOQEALsYbZSwfNWi7XTOysOa+YaerPuQ1lGK9qgQ7iDw01R3Y36 j6NXY2Md7Dcun6BoOKhHbRiJbOpzlziTQDDaBr3yzUiLqPMFh7XZ8Zx4bhr/ b/oCyYoBfC4YJd2K0DiMsQF9UaocFOooesHfKfh5iTw9ZJKgtceX4C67tRK7 0pvLfBgMKjwyVophOqq66thy6eXnb1Xa9Rcn1prjiNx0PJ0LXXabhcuhOZNG 37mc6pJRUGHpsbI0PPS9J/wmFmUMqvQw2ZXpd/nBXnXdvnumHf+Nfl+suZF6 JYFgs42tH/3dBxGP39Y/6g/H5pfS+Utub6w+SERDVy447YVjPxkimQtGma5a Mw8xGzARCt9rhTqqSJhI/Dy9NefvZuJOtrbhT6ajM5Fw4DJvUdaWvnH1ufTy 0UdHFX9KNemoXHp5XY+/8kYJOh/Io5RJGIhZ/0abc75TlOWwK1ys3zOpQC+S c6LIXaNRU9Kji7DoKDqzGOznJ3U2tHnumDjj8FF4oCn3VTGe6euWBILLNri9 J3e7rX2Xw5IVedn0/MRoV050Uad8cxLJ7Vwwqu6Q+1uzimlCNmAq0O/IcnA0 JnHCpExHocWnHNJ957Y3UtEbY6/2dDTv+hqqyXGqx+X2BiNzKzp5ddBRFeHT y+UmNBYFJE0zR9VU0PdvnX9ORuqpLlDPnb9134wxQ26OVet4fKvo7tBJXhal xwdIbRfxTMWijEEVHmYj7nPyi6ys4fJGgn5fjE0DdEsCwWIbhXIAquW1QEJe Awe2axZXQyClkcwejNohZgOmArUTFumSBGU6amvB363g4oajj45CWrzmqRId lV2ZumBX5L3RrBVyjxSofbhR7KVbdtMPg71IfxWFWh3182QGTpX+LFWvA/1o esSRi2womgJmCOiENYwaVbckEBy2wTRjtzI31XJhIqWkbUJmPtDLRjlsb06V zvczfzBqh5gNmIriDBbJFhnKdFRR725scznJAPlR0qx/N9q6z2JpGZpakvtn LH6k0gFPACgNGzkvPZ0z8zCItqk7Mjj1WPGVZTk07WjUUetz/rNW/jcb2sai ZPNFMYCei6luHliMbkkg2m2DL2222F4JLiruPUU/vHWeOcAtE8ahH4Zdh80d jNohZgPmgk76TwgiBpKRN0U6Cu28wWD6qjTDdFRVWBc3n0hOejlCUYFSlUhG wGRszrgPUKULz+l5/wnkvZUa/F0SNGfJzDoqszQ50pLz1XWdH/6gqXWgPggq drG++vokgWi2je0ffccbLKWT+uTAD/0pGWLdnvMdp0zYx14EORswE+KVTmLc m0IdJW5mLjGQ1xwYpqMO9IV+wf45WKEzyetO2enlCNDSHMBB+tvRdsevb/5U LKPY1USe+ypNVeiobHr2I6c19z1llcOjPJ4adDj6379665tYIplKPU5nRKs6 nUk/Ti0kYpGJwOW3uo4OlzlIUkq1r6EabYMfF6ipbJAbQl2ilceTqPuYhXrR mzDxmR5DtduATIqmZ0p0G1Ogo4pODBXvE3VHFx1VKs3c8MFDleCaH1rqDg3/ ZdcLKyERHLALvyzBuRvA3uNp3PMrxLp+5YkrbdqArpXShTDaUaej0AI9xuv+ Lqx0+kfxdqY81LHf3foJ01MQlBpV4Rqq0Ta4tVVjAIHVS5ZWd1QQdqIXA911 Ju1jL6TabUAu3F8EofzwDgU6SlQJaPJcOBY9dFRxQpoJBmFXgE8vx0Stlr4C RvDsH6OHC86LOu6bU/wm6dnfRoWOojOpL4YK/RvVpUXJ1VGU/axnehHjI9Cx NxcJNNoGkw+vuaaSC2qJcj+47YPpj3hYqtwGZMOlqxUoHxuXraPE2qx0gqjJ 0ENHocULuWdjuuGSQvj0clyY/xATqBbo9chFpN9B6Wq+ShipoyouK8Im2JSt P7goPpKTgwwdRR12um/O4p6BXuVrqDl6SLKzaQSjRtYmB20U1e5NFPcAMR9V bgPyyWW/5Ck3qUeujspPIeeosw99vWL+P7geOqp4dK86568bfHq59exNVWKv OP5Wq6WvgP48nhpEKoLr+oIPVThpdK0kfcKuTEfxE5nzSqftD7G0ukod9js2 n3O7XVxiNnIHzZ19I97g7TmpzpCqyS6HXq6T92VNiZ62IcFisMeGVDpzyee2 7kDSxAtHnmq3AUWs3/OhAaR9re7bJWpHZemoXMvrPOacn1iMDjoqe9dzRHCG au5Iner08gLQ0hwgBL0c6kc0en1/SFU3JT3zzMV9jyXeBbGIUtp9SAD7HQve LJN+9HMqlfp5lXTJX7XnGOtpGxKwbR6pc8EldhnlagDLNpUyG9VuAwoRDQAq 2eRNjo7amPV2WpHrOEamH1WDbNZDR6FTLzlMnSjIp5fL7V5eEuHgM4Z9g1Mm nd8GVBOitlGqc0XYzb5Oa6XofK3suEmRiLJYz3hn5fXBlvhcA1rgVvsaqqdt SJBdCp6j+IBYVfTeRKl2G1AMvfbd+IkDhZfX9vKNpLD/eEUdVehmz3HQ6b1j +mZxOYjrqGdJ/2lhe2/VfUV0QHn38pJAS3OABKK2UYfei6q0UvSsTWcdVfKM m86kvhnrQre0HWOxVW1ewgw6qhoP9PW0DSnYpenIcOQJf5ZdYeieqah2G1BD iX1Q7HFBQErqKDr9fcB1DBlVfaTXp1pEZdPJb0M3AgG/d5SZQX9hoMfZ1XWi 4/SV+DNiuoO0jtq662kV5AqVnFxvFvj08qMjEW2zJ4qfqkRjjT3K07nQZbdZ uByaq4J4oea2UXnQtZJwEYS4WV9x02NRdR4z4mRo4r7mLbxROkrP2YUk0NE2 JGEPMpgHyI1AMvUphphqtwGV0Bs/hd0nCydzVGu/73Zqg135yukoej11+6rL YSv8kv3/eWd+0fD6owFVvZZgsjqKi8eimDkYlete7prQOsFL3NZ+b8R2FVGq p5iBVMPfR9Q2qnyrlsrouF8W/6FFIY7tjeQtAiJqxzgdheoQLpxSXZgmlsKs vLs3cI/NMD/YH/rZrAtHMdVuA1rYWpm96XYezm/4KLvzgjcYmbwkbNl5eDD4 XTR05UJX4Sctjcf6PH9JaK3+YPvrMszFrrtyzYsIT5YhqqMy9/xOVBlS1t5A Uk0Jsw7k0sttrpCaAigRRZI4nzCpgI1kaLitcZ/d+ceZlQq/S288iH7+pxuf 31ky6eMtgr5/6/xzosNPw6CeO3/rvtkfnKht1Al/icql7XufnD72gu+HSqaG lpRSZMc/sgXsCKj8E3Yst2AUUTvG6ahfQn0HSn3ZakFH25CG0VHUwd/7vCoz zA30n9ptgM6s3osEP3QP9HQ0W/kK009jyO1lM2Z29fR6KvqZd7inpVGOj69v 6hgY9U9qVlDim9iMjDTwH0F4GjtBHZV5GHIJxITiyQ46wqeX25z+ezjceFHv QeWdgbloNkvFHc1yZLiV/UlbT3BRy30DZkXUNqp0AThb4CBr55WNjeZTGcgW QYjj+fmWRJup8DttjYRE1E4pHZVJP1pIxKK7xBILj9JkApBoLFrN7sl49LMN adgha/XNzYdVZZgb6T812kDml+jVVx3Mq2Fz9H/gn5iOzkwGxwccu5qw9+ps eisd/5g5CKOef2PS7DE6emP5p9m/hq57Rwe7BFW7lkZH38io9+PQ1D9+fEQo 0QcZW1P3coho/wRSOorOJAO96E7Tcqg/mDTr0UkuvRxbk7fi1qNKMzbRDiSV djRr4QF+A1m2GAqocuS0jeL8hmM0JsPS0FIIkkEbcbluw0hkk96hn8z6ztlR 94BZRO0gOmp3a58Ie4e6mq3ojVgoe8fA2I3oA8xOHPWoRkZzNKCXbVSg8CTl mbQAQ/2nehtACi6s3WOCNvvZ9L3/6rPV21//wwed/NWrqQxc0ZxiLKBVOe0+ sg0ryegoeu22W9APXN1kB53g75Y6PhrDNUVcUPfKUpxeKw3SvJRbesqCznI6 NhqrmhcLUEDB1TPU9QZLZBlyGd2Hx2JyylKYoENusSSZHCZ2MLvLSvqnz0de EPxD/CJqh9dRp/5jMuTutNY1OgbGg5HE/RVWNWXSC7HQpbOskLO1Dd1IqGz1 WQpEhFA9wSVs19URvWyjAvknqSZD2FD/qdIGkIKL0k0/ssvh15Ejnn3tvn+a dVEtQn8dxcYzOX9JNjlqh4SOojNLt8fR+kfLvpahL1KmPcyll2fc7XjSyxGK nqvCjE2kealgOEIJkNoQs08tBNQhGHtqsezvDT4oMlV+JFmr566882M0hYPc +A9BY2fWffYOoP0NLIRE1E6h3wLV2n8ttlLC/2ymJi60MOsdZXV+NItJSiGH YuS9Nyn0sY1K8CuvaMqePAz1n+psgF766g2+4OLQ+VCZ2kRBkqR4jrOp0VtH oT6T/ExGzDoqm04EXGj1ze52b2TCvCJqZ3Mx+Aqr8FWEjqVAcwy41UJRfBc5 Dam06aCTAWfuwKLTv2DaJw2oRxjeLHmoxw0MrTsbWJSZhockDxD0aVsL/m6L BKImMzjhdFSzK7RQ9vr0cmSE65ireoqfCK57JIfSELR50Mc2KsGvvGrytA31 n6psoNASnLKdv1W+pv1JZDh3vk865wcveusoxIZ1CC8UYl851NoSnb4X5kPl ee3Q2u+/a9rjvF3Fmgy91cLfMOZtF73g7xQ+14bhiOwucuguvtKIq8KJT/Xu fwFphDqqxDEHvTH7xzZKUTouul8jl1ZXXHCBuAf7OZ+mjuXSrMVGTx0f+7bE qC8EZLh809mg9lUUWeaoXsMiOVrRxzYqwG/x1RzqGes/VdgAMqKOetGbKH/D qOojnfODFa0HNEpBHhTlDKiakyuf7NrUW/stQiqcJhfDJBt87nU5BBWOVGPb m4FZLDtNEhWgdGbl7s2RF5HE0/KhVDW3/OTu+CmRPrW0jsflJrEjh/sVtDS9 GXXnQvCESzsBwxBMvi5xTrFxx9PWoHimJ7KHqh8IkzkhKNMTT+vsPHygC5P6 /vD5qyGFWlXdelcP25CG00KqDvWM9Z/KbYBennDZ+NWzQrvRQheR6to1c70Z BQ4AbyKNmII8VmdC5aE3Vn9m21OlHszH/x6NTAQ8A44S7R0a24b8k9H4fEqC +Xh0JhL+s89z8ZUOu/gSje2uq7kuphrBWQGaST9a3L3vqdDHly84i26aiZ71 ef48pa4ievfa/GOZDgf+Q9BbrMC+5r5/D0WisUSSfYYPV8s9IuRwv5KWRqKX 1VlkDcgBKeIuWtf4uVTNvwsr3HWhDv+IJ07CdsTNzHlLtTq9sRW8vWJUg7ae 1nwSV/De1AH3jAlkolp0sI0KrEXdrSoTv431n4ptANUYJVMfC2Tjnlyoy5S7 5oLGYFhI3InuLog3faP9baWaLtfbu966fP3W1ExUKDcep7WesKPyGHcWGfEO 0lRjy1n3J9NzeLpp4a0Aza6EX7NK3Tz6PZS+ULsvY6fylpJlM6aQw/2KWhrJ CK3q/S9QgfSsJ2djhYo8OrMSu9bfSqmc6YmmwZz0zRNY9sVNOJk3tWUwOIex Pk4rgjNTbbEX1HuTT20lC3nbkIZPqFaTbmGo/1RuA+vTw/vz1X2n/UmJWU9I Ox1zJkfh0Rjac2yKkqPo9dSdL3xu1xlHE2Wpb3K85Bq9PplYVvMxRHTU7i11 9Q2+7w2Eoz8u4evEgr0CVIGOog69Pa0sLe1pbPSY8ke3/0X/vVIfgx7uV+og V1inqnz/C1SkMA+d3cddu3Jp6AzTLlhDFiLbt5O3RumNsDrEzaMYvfddqdI5 IxH4RU2xFyS0tf9iROMRodGQtg1Zn66m64Kx/lOpDQj761bQco/CA03yftIg TKKjBMlRnyQfzvh2N5uUveN1TyDMHml5+pspdhqy929VMwFEOTVeAVoB5HC/ 0qYDCfMaOVEU0InMciLsHexq4X1V49Ge4SthdbsqDuTcjUAajLBdg/Wke/KB CROvBb5fyza/8DCp/cPTSvtvmw6ytiFNLp6gJpXaUP+p2AbQY+VKWm5zxn2A j1wpqVraeyC1A/Yz/Wfs+6yd7tAcWnHybGnybbbEzNo5HjNvKZwWar4CVBrk cL+SG8mkAr25iLARsXeg6iFaHZxvekA1to18OiddOYcP+knixtvOZhuTZnDr XsWaeeEeWv1eGAm+HXNHa2A0rb6V4yi5TtRq+nUb6j+V2wBaiFEhPQ+JEMKu WQL0aNVSNpGATga62SePs/+2eaj9ClBpkDexYsspJMxrTC4oUPXQSf8JSpYb Vw533m1rG/5Mz4So7Tnf8cKweemEEwaBjlKfbIyoDgWVuaaGpG1Ifi5fVaGm X7eh/lO5DaCqr4KWg12zTNDUPsra7Z8r/YcotLar7w8RrBw0gj1QASoNerhf yXch4xuEG7fNR/Hv4kvwogEyoH8O9R8k40/ojfm/fnY7SWgKaRlEHdQrtvsT Hj6qnoi3ddfTyp0lNJ7w18qujqBtSJDv8lFxvnAxhvpPFTaAivh9b0w9lfgl RPUJrJTOLH1/O75kwhNzY0ADLPYLUytl3+fCs6+l8yyGGqoAVQlyuF9p04Hs vIRjypk9TgPmphlAzUKvR9/jbU5BO3TzIsx3qviNBB3X1Q5+RZ6h0i5epsYQ 21iNDDczn6gmNmig/1RlA+goQ+nUcSRyJUxXY75ytU5yJAGSHHV49B8SwWjE URjXtJ8EtVQBqg40zFvBjZQdaM76h1pKvAcIk08VsDS0e+PVLqToVMBJUY3N HT2usRux4gk6ItCVV22zAm4oD7vEyZ5vWCXobxt5H6iiJM1A/6nSBnJTIC0V JrIhAzKEHeZh1ywEmcgmHWBBmxsLhXR1U1sVoKoQ1IlL53ZyLaw5BAFh9hi9 +suuAR1BttLae3obDrv0V8gKyIPs3eqc15OqiqALw2Ws54OpmpJR+ttG3geq KEkz0H+qtQGkXk9CR9GrsbGOXIhB0JuUTT7HPBy2mpEfYEF+kvSQGl2BClBR ake3f6HM+0gvz7jbC50/0ZGI9INg74FaKLsG9KSwm7Z1B5LVLqTWY2Ot1KH+ YLJSMGoj6e/h3zjrWf+cupfmSdTNtY+rhWheCXS1jbwPVFGSZqD/VG0D9LPY GPdwLQfc0dIT2TZTExdaCqUTaJztWdJ/mio05gWQxqoVqs+QUExN1T9CBSh6 xLDLwf5QqWE39JNZ7xkr1dJ16rnijQxbrFQbZdeAntCZ5HUntwjVQkiK3b/X nRz79pfyUiqbnv3IaWXXJ1mDpUp/EvLc3oms1UqCgQA9bSPnA2UUWpb9Xb39 pzYboBeCZ7kFvWRYiRNRDc93ddq5u0WjZ0xmu6021bs65FefCSolVY0fMidQ ASp4AqwvKZrlSqfvhUe7rdTzQxP3n+Ujyfn9SCYZ7D8k90QDAATkW47URFwl 82DSfdJKHem59JdE8aSqzHLilruTFVGU/dyVmNqJ6oVYTcvQ1FLtvnZ62Qau 5Cg9/adWG6Azi8F+pkpdXKRPbySnPGft1EHn+O2l9bi3vUG45G0kA33Wmqpr 0ApSfVYhFMNmUeYMRef2aETZ8xWg6OF+XfPzxxo5J3/6Xd9nzCTHyETg8ltd 9n2NbW8GZjm3n4/3Huwa/TQS+eLKwDFK/fEEsOfZSvhOsCXD1r5AsmIDS9ND r82HL/XY65nG70P/5rsZjkR336PwTd/7/Q429N14rM9TSmXJJbsWeYeNgNTZ h75eqV0VxaCLbeR8oJopLQb5Tyw2kE0nAi5mhAdl7Ry+NjGdu9t6yn7WM8V1 DqE3ElfZ8Cll7Rq9Fflr6PL55jpGEFbpekeA7FLwHC+OqF7JhrpoknnFYdZV xV6vAEUP9w/0hX7OrN6LBD90D/R0NFuZjtBM/dGofzKxKkiF3VpNfHlluK9z 92caW7oGP/pmQUqAAoAkdCYZ6GV9teQogWqC3ngYn/zYM8K8SOxGzdrc0d03 9Ad/OLaQ1rQE0Wu33a3MKQLV+v5MbZ7ooehgG/nVTUXhpDH+E6MN0BsPop96 h/tONO8qwMbmzr4R76ffpTbQhZDOrMRD40PMsF2qqe3cRV9kEUQUAjLotkIj OPQIuIYavjHs8QpQZMxNBS0NAOTILIWH2EyMpt7APFhhWfK5ynVd3h/2SLUU advIlRqpOWcxwn/uRRswM+mou1mOhBB0WKq1g9G9XQGKTAWtpU4OQPVBP7k7 forZ2lt7fInqfJuIk1cUza7Qwh5Sm2Rtgyu2omyDk4qb3xngP/eqDZiXgo5q dEfL/0W216bezJW01UQuqIA9XQGKpL1V6MIKAMTJ3J8Yep45wml5d7r8YIW9 Cr015+9mTrgOOr13anNYvAQEbYMt2VY1N1Z3/7m3bcCkZFKBnso6qtBatkZP 5PduBSia9qa2qTIAYCSzEHI1M0mtzo9mdZwybHroTOqLISYleA8voKRsI/Mo 9vmNLxPKn6rO/hNswJzQm1E31z2qfFdJpK8s1e6eqbEBxRx7tgJ0Lepu5d1A LdVgAlUNH3kAKVWATsfGO62wgJrMNnT1n2AD5iWf+FSmCSedjo7xfewPOn3x 6q9JLseerABFDvfreoO1UScF1AKZxemxbqtlX4v7NmRK7Wz/FDh90EIdcwW+ hwXURLahp/8EGzA16wnvi2zDi1J9XPk4qmWPaOC9VgGKHO7XWA0mUANsLsX+ cmNqvnb3brKhl2KfffbN/Bq8oTlMYRu6+k+wAZOzMetlooWUrT+4WOhxsSsY Ytf6W1mJBRq4Nim0IKVO+eZqpT07AAAAecB/Agh0Zun2uPOgxVJvd77DHGnN TAa9gx3MAVa9vedSGDRwjUKv/M3jPFzXdGLw+l3QyQAAAPIB/wmIySwnwlfd Ay85muotVJOjq2/o0vXwndQGmAcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPj4 byHatmc= "], {{0, 114}, {792, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->Automatic, ImageSizeRaw->{792, 114}, PlotRange->{{0, 792}, {0, 114}}]], "Input",ExpressionUUID->"e7d53a58-b12c-42b3-b45c-9adac43e8c32"]], \ "Subsubsection", CellChangeTimes->{ 3.746790878526955*^9, {3.7468415837136607`*^9, 3.746841584080654*^9}},ExpressionUUID->"e2da2257-824e-44e1-a864-\ 83dcc8a30af3"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "2", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{"Am", "[", "mu", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", "=", " ", RowBox[{"I", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"V", "[", "5", "]"}], "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{ RowBox[{"\[Gamma]stdown", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.7467916134430103`*^9, 3.7467917126028337`*^9}, { 3.746794900325941*^9, 3.746794900955056*^9}, 3.7468070348696847`*^9, 3.7468417647021775`*^9, 3.746841880732951*^9, {3.746842315795163*^9, 3.7468423188346643`*^9}, {3.746844139429779*^9, 3.746844140813114*^9}}, CellLabel-> "In[103]:=",ExpressionUUID->"cd4dad90-0666-468d-8e24-e31030096e60"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "2", "]"}], "[", "2", "]"}], "[", "3", "]"}], "[", RowBox[{ RowBox[{"Am", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.7467917325303097`*^9, 3.7467917395115147`*^9}, { 3.7467949062368517`*^9, 3.746794918682787*^9}, 3.746807035264099*^9, 3.7468417655658007`*^9}, CellLabel-> "In[104]:=",ExpressionUUID->"424fc00d-fe39-4e40-b967-48b51112c072"], Cell[BoxData[ RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{"V", "[", "5", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ RowBox[{ RowBox[{"V", "[", "5", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}]], "Output", CellChangeTimes->{3.7604679838382473`*^9, 3.7604682420548897`*^9, 3.7604703406231565`*^9}, CellLabel-> "Out[104]=",ExpressionUUID->"ea340218-597e-486d-9c39-23e56633f785"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnV1MW2e6761zbvbFujhccoHEkWXJF5GiCFk6iaLKXBAlsgRRK2TRRpaJ mgPR7GxIe4qno0KjBjKaupoWNI3TPbHaWJkTZ6ZWuuv04HZwW8gIp8WdOgpW 6kygMg1uQwIEuQiCYXG8Pmy/a/ljfX+Z5yftrZkOtf3az3rf//t8/s+Tfc// 7/9mMple/bf8/3u+29P6yivdr7/wP/L/pfM/Xj3d8x+nXj72H//nVM+pV/7X yf+e/4ev5P/vXP4/EP95FwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAQENyK/PxvwcvnjvT3oKZKCx255mhi3+dTD7awEW/7ubSzH92d1yYXMrJ +GEBAAAAAAAMAOirauQeJULv9LZaTFVptLm9ofhDwd8S/jQZfM2e/7oxx8j0 Y/HfMQAAAAAAgLEAfVWVrZXZ0FC7tfo3g2J1DHwUy2zye2U8t5K41t9GSH1L 99j0omHVOQAAAAAAgCBAX1WnKJ4pMFvnwHtXx6dm4neTs/+cmfrs6uhAZ0sj +0uyvOQdv7eaq6m18bX56MUeG/nvWk75Z58aUJkDAAAAAAAIB/RVDfCns/5T tEfY3DHgn0g+ruD9xTcexkMXnBaM+R012tzvjaeWK0hufD0TD3ndh6h/AWv9 XShlwC8HAAAAAABABMbVV7mVudjnNyLfprPb8r4w8hY/TQwdwyiXr+cv8aXa Ll88tzQToDy9rG/J9dbl0EQsnkgmE/HYRMj/dp+j6GrGzO1/iPJ1JgMAAAAA ABgc4+qr0ic3NbwYTO/I/PKMt7C85I38K8tTPeNrc5H33LYyd3FFsEPu9z6f U04/AwAAAAAA6AoD6yt8PXZhX/FdGl6NLMv9Fjs/hk4eIMXz7z9P/yq43Cr7 4Eu/x2Euk+olrI4Bf7Si6xgAAAAAAMOwnU1/G7kRCgX9o9485wd63C5XV+fJ K8lnkFhXhrH11fZy5NWGgsa1nh1/JP8vvJEOvdrhCaUkiGciaeHmh96Blx3F 7Fmz3dk3cjn01Z3MutwfeWcjc+fL8GdToGkBAJANmTYWFdKlAEAzFsM9lcq3 j/hTSgRnDY/h9BWTjR9Cng4zZnMOfyJlCfXC9krs3XbqOoC94Jv9VevPAwBA HSDTxqJCupSueTI16HD0v3t1/FYilc5knmTZdbt4Lvsks5BKxCZCl99yHRme Wttz35HBIX9BgrnEdY+tEJo97LsL6gSoc3buB443F25cZldoQesPBACA8ZFn Y1E+XUrvLIRc5uqxQibY0d+O/7il9ScGxIJvxkYKz8zBwallrT8PACjM9l3f 4UI+QsPp0CLsXgAASEaejUWFdCmdw1d/YrbTPiO2yAZKbKT8nXv4qgXsQTYz 0XecLeaWzqGr8V9g+wIAQA5k2lj2eroUD/2JHXJ7P51dAdeBwcHng12F37oj ML/nrloAAAAAAOgEUn/az3i9np5OO0OJkhUT/vDtuVVQnnXBcqSP9vVD8icA AAAAABpC6k9XKEP/11z28c+ZTObn1QqjXgAjg/869WYTfbWwD8dWtf48AAAA AADsWVj6E6hXkOTPxtej0MSgTthaTU0GR18/5WjBsBaHq3/4ylfzezGPCAD2 LHgu8w9fz+GGnvCS1h9Fe7YTowf2tQ/d2JPplOXo3DZAfwrHiBaOp0Nuepg5 5g5lwLtdB+QWp32nbZjVMXAxFJ2embrhdR0gft/W8xMwNh0A9gTb2dmP3BbM hB17c/Jn2Nd3d7OpQI9FoenGBkP/tgH6UwQGtPC16ADdCr3xiP8eeD8ND9W4 2PLypZli9SX+LDF2iLxhWE5/ClcMAKh3SgJjaOInaO9Agz+d9Z+y7PWbuCFs A/SnKAxm4fhm3Lufjr63eeNrWn8eQBr44+kRB2bpCaSyjH+eCbloH3dvKKPX LUdZ8NxqKup/k0pIaD9z4cqXD7L6l+K5X1eze/P3AkRTEBimlt7QPFgPA2qH lPOAlmVjUS1dyii2Ud/6cyMdGW43N9ncH8yscPzKxMzEzz+58fmdJfYEqGr/ guwWrhxlyZ/4eubOFwGvh3gQTI0tjpc9o9cnZR6QnX9g5+MT130jA8zWChZ7 Z3ff0J+ujkNrBXFsr0ydt2GOkenH7Fll84GOQomZN56t/G+LAN9Y/TkjG4+V U1rb2VTI09pscQ5fm5ie+fpyrzX/gDa1eW+vaS9B8Vz2p2R8Ohq+EQr9LeD7 o9d7fqDH7So+GtZzMFoO4A2eWwz3k+bdOnJrRXvz1h+5+VBvC3EXb3t3Zk2i xpNjY1EvXcpAtlGuP3PZxwupRDxPIrWg4FmhPPijcC/dcejwcOxpzb9djg23 UcdAT3iR7xvIaeFKwkj+/Dj9aCbQ34Zhts43fPkHIT4zGfb12wklfbjX/w1f +V2LnY3M7eCw24ahXWRbHCdeLM1DL7WWDcWVHokuC/h2blvyx5TlRda/9R5s sg19XbaxoC0OOv2pDalvVCQX9/IeksYb8hoy+K4/9FViYU2WXQZf+urNVmvr 0BcZ2oafxoYPk2amg8nvaPfdihwYTeh4CwF0Bb5229tGPOsNzg9/4O5Vs52d v3XN29dOb7+Ew2HA++HN+EO529zgW/OfnLXnPxhmtrs8Yze03dvxla+HbA1E PlJvKC3hXJNhY1ExXUqgbWhLUX9S7uUhl93C2BXzKmUgb0ayG6oKoMOtuI7j UnpkszP4I/+1ymXhylJaXYPtVP8pW5PF6Y3MoVe3Z0uTv28l5KLFeSkhKV6Z e5K49hqhZvNbUGvPsP/TW7PzGbSdVy67NJ+IBt/rd1gLNnbU8/HdFd1+exTy aLAeyWHxrcXQ6YbKE9/Wk76C+7Ppzalf5fs+FdGfKI0tnb+7dPO7zIYEByC+ GDl7sKHr6oOt4sKzca+den3tc553HgRf3FfrKxiIQloMwAvS1AmjsZwOzq1z /fHTZJDakCsYnc39HvMgkMZW0t/RzHgH8wvDN+9rlwCzvTbzbht1rvlnRV7I pW8saqZLCbIN7SH154k/T0a8TkuD2TFwKRxL/bRCyoVcdiERuXia9GJZDVbu TbA8NXiQfgqaR2KbNZ4B1HF0dDQhyFUih4UrC5r8aSJ88oPhufKfEk+HuklB iB0fTYg9CalbXv417GcvR1OrtSVl7pd44NXCxtiE3C51iV70Z/6BtR70flth Z8H/FeigrbihL7Is7W2Yr1yMvz+cT/4zHpsIXR7stJQfaeb2oeBkIrVQK/o+ n4zPxKL/FfBdeK3TxnoJzPbye+P3OMymykdcj79zEHvRn0K+GPzHoLOZemE9 ORd3NlYzczNX+20NyNIt7lBax9YPSGQzE7vyBmHwmNnxRiglJTdmIx3qI51E lq5AiiuBaWdt6pzVVBPLS97Jh3KoH3w9dqHCFUvb+hd8OTZyhPwYHd6ZZeGP mPSNRc10KUG2oQcK8zextv5riUo+qM3MxHnSM4ZZ3B/NGkiCbt/1HS7M++E4 jhHHkYjemFItXGmQ5M/8j9gdnNuq+Bm3FoLd9HfQHxGzDFp8VtG3ldlaSfjd tJLRtwRl5kAupO7E49PRTwOj/e2VZGmjzfXW5evjUzPxeHIeUV9PslIXmFcv j1cr+glL862aOgL/Uvh73F6beot91nDc8sohbrif+z0OM8b46nouTS0I9N7i D8O9+xp6w4+Qfw1Jv9nfF/lF0OspTyGERyNrvgSgL7ZXpt9uRWwcOx6YE+mO x7fmgt3khol1+FOVd3KUnWzib963B/tcRKJ/VeQ5uRCHDwvrG9FlzZRDIUYp Kk1O+saiXrqUUNvQA5T+tHsiC1VvKEV9ZcKs/eFF3SoEJsjlgus4RtIjTc7g gog7khQLVxp0dbbzU9XrsEoevoZXI4K3i/UHge4GMRoytxQdstGfT7c+5Org q4mxTubWrsljIsWHL4qS3C0g6tkh69TujXtfYuT9WLrHphf5+0zIE6FlIPoY +We5R+HivNm+8COd5bEjzmryHPPGhUl3wDjs3A8cb2Y8KWZvXJw9FioO8s+4 N167ooENvrGUmv7Y6z5UWYdaPRGJzwjRFruaxm0+HrivXQIMmbNEKoG20e8E xaQlbywqpktJsA3tWEuMnjg+9m3tFBB8MdRNf+Mtp8OiDhm1QZM/O3zJmkaH pEeKHYwu3sIVB1ndodHvn1X/QyTCLDQcgG89uNrVYGImyfD/t5emhlrpd8ac vln5CrdVoSwyb3aFFlT/FNJ8+CIoT0iQ1EZjMzP9vguN6WPHBsM8M8fIh511 aULqfVjuC13AVO+Q/FnPlD0pWFdQVLJF7lHEQ+VIia9YyT2Z/fh3rRV0Imb1 TEjygS6Fe2q4WDsC8xo+gxt3fO3N5CqZkXQOpG8sqqVLyWEbugX1oR18J26A emUkFsBxHKPpkQcHp8QagkgLVxziVsprdTtr0dcL1elCmgDsErfEqOcQWfP4 gqvn9bGb94QmnCMXHFOD+7p+K7kqgS8EnYytlrPZghIforSbqTTfSmb9uVto coJ4BXlnjuGrqVvxBdRzvpPyH6FfZV9v+KHO7Al1Vpsg+bPOYfk/RQe7iUgu tUtKdHAVc+pYSHvZnXTk3OkT1eL8Gg99LjqITA3doUXe377kjUWtdCnZbEOf IN4VE8sdrUuQ5E+u4xhJj8TOhJdER89FWrjCbM4HXqJXxxFVR/5SoAcPTwe7 GJvO4cGpJwI/5+PoQIs826D6FMsYaWTtvcmT0m6mVq23/PpzF2mbXEDk5Lhs YtRROPheE55MojTodmqC5M96Zzub/KuHaPfR2NI5dDX+i6g4t7znS7FQhSkS xWX+M8Bz2fRMyOu2MVvtyVB6KY2SQjsyEhO9Srk2FnnTpfSpPWQklwn1lKxU 99EiJPmT8zj+JdJXcH8e8aeknNzyWLi8IKvjiICgClBQvQYqXClEBKBR76su A6Y10F5/oruZWvOtFNGfu3S5KPqyIhqJlJ5EXW5WkPwJCKVk0iJu95UoNupB wU4G0zVStAS8em7p9iX3AeSltdafu5tzgRPUzVZ8/ZdsG4us6VKy24b+YJw2 h31JvXkUGKDJn1zB0F+nBgtxy/3eGWlzCOSwcHkprY4rtRXxGAu8kRWboZUE 2HBsVegnZUSxdVgwUgPt9afqyZ+7yulPouBxxtvBmF3Q/sGsgAbEaB8YXQZr IPkTEEb+RHuNvp7Llv+Gb6X8HexguYzRk+IUHgrN9Sea5SUuxCbfxiJnupQS tqE7GKeNmPpoNUGSP7k+6nbSV2iDIkOTFskWLjPI6jieFzwTche3CmEaBu3v ZKrZ4qkmDAtTt2HOesJ/2u1CcPeduxi8xXcyr2j9ia9n4p/4hvoY7+1y/yYw K8wHoX7y566S+hNpKFFAUDu7J1ODBavfdyGmuw0Zkj8BgZQySOXNrlmNDdtN LOQsFPo16XteR5qBbKZEH3FiMg3k21hkTJdSyjYUBn+auvF7t91qbj3tHX/A mX7EPG20v8vUAnXlcTxNuUyotyC7XgrMSx7DKtXC5WV7KXyGXh3HhAVG+Fuo hsGzd672HyXMg5ineVPsnIJCK1qSpsEp9SYm7jyc+tNv2ZO/+E/mFac/8Z+n LrzA7h2KtbSfOffB1ENh24j6yZ+7yupPNKOpcH5V7GFSiVLDB2zf8LSOSgFp IPkTEERxUKPs1oJvJS+1sbcguULwBCUHiC5ipsgxJ2KZsm0sMqZLKWcbyrIz FziOCTA5xmkjqU5HcZDkT87xBEjSozwPiDQLl5lfE6NH6dVxfBFo62BzV1CT VhkM/Sk1F1cEueXUp2+yykKxtrEE5z1XjP4stssovZXF+cdoWkQbOC2SP3eV 1p/53X5y0Ir+GA0HR6Z5TApEuvOZHKMJ5IfA1+Zvx/n6tJWjNDyFBJI/AQ6e xr2FbVz2XXHnnv8Iq1BI1pSVQlMmvSSZlK7qQluSyrixyJgupaRtKAiaIcnn xGTGjPQ0za4MdGlcjxLSMpfpcNt8nPwuuSTKHSrewmUHycysrQ3Wp4f3Fc56 zWZVoAVQWsVrystCeahxEfrz2fejh5jd262vhRfFud+R3UzNL01p/VkeHORz oUMCEKZDY4lnpZ+ObCWtRWssFiUvCnn+6ORcBnRLaXMW3Z66BqzsKZMcdRAI 9N6omyQTdH8QJNhk3FhkTJdS1jYUhJnPyRnbKg1nNKkcGxUM6srjCKkjnlJm x0sigt8sMpQp2sLlp6Q/aw7cQGcEN3f4kxrNjWX6P03dwQUtPghS4cj3RxSs P9GWs5K/drSYWs0mz4rrz/Jx0o1tvru1vyWkFRjr9ke6L7RPQmP99Lo5lwGd gj4FikQ3kBqBAiIHmZVTtHb9hIbRbi0CPpWcG4ts6VKK24ZykPUmmNne2eMZ u5HgLDZGRZ2Y6mb1QJM/OfIEUE8pwxRJXSr6BxVp4QpQ6ppVS3/i6VA3LT81 nR/K0p9adNEkQDq80XAlBgvWn2U+BympGqXdTN0rsOL6k+0qJOBI+0eeaNZX Shj5PuvgpNZ7NOun18+5DOgTJAqgUGuLUo+UArKMgyQo7KV6Cg0jDeT5Z5rJ uLHImC6lvG0oB6k6+HYrReKzOh9Pg7g0uX6U4sQi9hNHFiVJKHATZeFKUHK2 NA/HqkgofD3+Dn21ED2YQxZYeXGa6U9GKRYJVxaHYP2JNGWlEL8/o7uZhOld IlBBf7JNwsR1+UUSThiuYHw9MdaG6aAlBTpIzgTJnwAXAgapiKZsO5Ir9kTL Bm0PwTI2Y8OFTYV3o2kZNxb50qXUsA3loL66g/3hNJfzcyMd7KHXKaIXtKqw 8lqrP0esHoNoxIEIoO+XVOAmxsKVoXhxqBKZxbPxMVqEH3AHkor5YvDt3DbH 18DWM1rpT/T6QNHsDP5Y68ML1Z9lOf8SkgA1Sv7cVUV/7j6NDbNigw2HRr+v 7ikueRcZDv+tVKDLKnW8tSCq2Tskf+4h8FxO6vOIuFOUi26Up4DKsvcWWljw 71yhEovhnkK6GV+3oXwbi3zpUqrYhpLgq4mxTqzhpbFva0wEQybiiZyFpyZo nkCeA/2RSh8YfzrrP2XBWl0nnis/OsnOABJdJSIsXCHWU/4XiR+vYoQ3txDx 2Kkvyu2/I3Roey1yawuJr0J+70BPp91ckvlYy/EzQ+8HJ1Or5S50ZlNuDfVn mZ6snT0rXH+WKTeO16+BVsmfu+roT8bYNZpavuJSN5KSwz/308TQsYbWkckl RVvGEWMH4zc/9A687GgpNMDIW/tI8HamGEeB5M89QG45Fb0y3HOEfjjMra5B fzS1LMr4hNTSiqc84sOshhAFvjzhIfpXYDpIemGB6u0OX5KPn0m+jUW2dCml bAPfeJSc/OvFod+0txSNwmJ3/XaUOLZF3SNqOJ9yDye9L1mwwz0X/17hxfOP 0rjXSYpPzHbmSuKJuB1cvRUxhviQR0BZC0c8+yA62m3Bjg1N/PSs2C6+WNGW S4f7D0oeoirCwhVjY9bvtBD7QH94saT68NxK4lp/G/nTHvWE7skkPvHcan73 Pe8qDv/FWhynBoa9Y/7gx0H/2NuDlA1gZsfrrDnIZV5H7fRnWUKUzPqTrbQl ZKFrlfy5q47+xDdjI83MN+FI6i7GNSwv+yZuxyb+Muzcj9lfCyafKqf08lvK l36Pg75nNbZ0vjLiu3LNPzr8mrMFQ58vSP6sc/Ds3SCxqWLm1lNDF69cu/wW vROSx43w0xP1/8vRnroKZSVIXBEfbtYSo1R/R2arIl2A6m3eK5VnY5ExXUoB 28DX5qMXe2ysnHv0IHxh+OZ9YVIBXwifbqmVHlB8U/ORnqE/BT6NxuLxeCz6 aeDdfgfpxDMf7fNVUqf6WxGa/NlgP3bUTCnnk28HPpuayS9qIkRsCE3m9nOh WUpLb2YmzpMtHw+4Rm/GYl9cGTiKyZBjIMrClaI4irfR5v7DtYnp+Mxk2D/Y SVwrGm09F6PzPLoq8nkb5ilMvNfkvccbZcKKGPpzfajdytyTy+/g2p3OQv2T QvUn++/NrtCCqA+KTF5Tf59XQ39WKs7l/Hrze86XV4b7uuzmpvzlZ/BSJLmi XPhvcyke6LdTRwpmcXrHGZ6unY2Fr8dc+UfP7oks5NCwiAmSP+sNPHvHn99m 89eNj++u0Dd9NLve6ZsV+ISi0Q3ZaoIqITTiwwG+MftBO3kOSPbkKALq6xDQ zEeGjUW+dCm5bQPP3gt5jrLHsVZAUKiUsn/u7i6Ui9I3QsZLiXex2Du7+4be D0YTC1mxsUG1V4R6pPf3RX7OrT6IhT8kY8CEA5As9h8tC/5uraYIq3Lm/4aI lXx0a0GG51ykhSsHERW6SgcHsRaHq2/o4vXonYyAqdq1QE/hvO285I38q/YP imfvhwePYaU9mTUURtMZB7rSn/jTVPiPva1Ws+N311l37Vwq4KQ/qAb7vCr6 s/xklCDX5QZ/mgy+Zqc3uP1O71eZSoWZ+Nptb1uTyXI2fP/vqF8dkj/rCnwx cvZgBT8nkvEruBYADcQoWkIuY0bQLlrYq4OKv4qgESg105ZkTJeS0zbwXOYr r5NVg1aDlt7QPC/zoFrraNBRXJMVIR5pjnGTyqOVhatP7kniyhlbYcynxfX+ NJ+ZlYXSJ6zDnyKGxTNdQ1J3QGmU7cYNfZFakRIF9edONvZ7W+HvsJ7wEvIp SxOUGlz+H1QPcmmmP/WRbJ9bnB7rLpSyW5yXEtUvXNSVuaHFcRSZr9DUEfhX He8Ke4ytTPisJW8G/ll2zKYwAIhAYC0AGs5jPvtyU1YRKf7tqKIS8jVUrfgT BLp3NY/EVAtDyJcuJaNt4Cu3RlpZHbjobc3ueI49IZr+X/pCac7oJLXvcTdt lh1tVoQ+RJo3HNPKwlWGzMEu7K+Yxf3RrIAxZNSveXhw6kmFHnRKiBmeCFVW AvUnvhB0Mv6+RvY4owAc8ZjhuXSol6oKNPFpYaEAmulPLa8mNKVDNk+DzTNe 0fOJ/H2pxW4BrdPCefHrXOSyVy9cjsxpH0eqCFVrg7V/MFsWT2KmtfcI8oqg T5jCNs/qvSz6Wd5emX6bHmHc0B14oFsLR9cr7EeRgJzpUrLZxtb9YPcBZG9t 7x8NRhPzS6Wo987G6sNUPHLlvNuGVBJzXy6oTU/97gcarYjsqE+fCDWbtKiD JhauLgzxacLa308IHa6Nzwe7zA19kcfsND9M0xGvAndjgfqzTLjV+PtfE6OF 8b6WnkCK+rOtlcSV3kJdw2BYYPq0XKijP8vfRXv9uT4XPF1q4mk7P7XCaapk S2F0DYqm88lFpS9fQ7T+3auxORc4gZkOeaLl0XXW7y7oIECbPyjtLZdFf+K5 xXC/lVpuc7vvjo6L69BZz7IWuqqULiWXbWRnfc5C6LKt73K0ZpnPdnZ+YtRV kHbYicBcjUAnHfQ56P1W3UuIVitCC1j0MKFJMQvXCUzxyc99XQ45K6rpVd9Y F/OoUa7ZCB+Yk+jz1FbDwvQnWgJJUaPbM741F+wm/JzW9uGPp+MzsWjoMn1r s7T2XZKrdkwMe1R/bmcT77eX7L51aGqJz0/Aau/AkdGhE/Cfxs8+xyOBXxWw 586O/6RHyU5N7G27lNwqL4hFZjGbhAbC0JR4pXOekf7qFCKe5Y1kwE0f5Vjb WELs9BZVQNcr41mjWrqULLZRKhPDWn8XSvEr5C+d+zW1pTbOTw1XtBb3ttE/ iC5mUSlk4TqB6QIyHTwbEXmfI/WFtaWFFX3XaPg7TVkxVG1vlTD9ubUQ7Bbw 4rs7G5n4jbHXqcJArMVxosfj9Ydjcysa+4LU0Z/IKIciWurP9e9G20q2yt+P wSzkh+TPumFnbeqctcqIH/xRuBfptCaw4gw9QZQebSZZf+KPp0ccBb+TpnP0 eIHOyJZR26uWLiWHbRDN84kzvLxHJQe5+VAv6Z+xnpuqLLQ0cn5quCIk+VPj kUM0Clm4HmC5gKRFEyol+GmdvlveDKpmgzVh+rNspg86e8tA7MX8TyS4Q8C/ vBfdDUwGSf4E+EDGSipO99jNPQqjjX7JRHehr8xrS5GORP2JuiOa28fi2mQE CQCNX0tov8xGtXQp6baxvRx9g/DHWl8LLwruHYo/Gj9LJFpUcazhj6KeQ6o7 P7VcEZL8qZNpswpZuA4otdcQegpXolKBs+bpu3g62MWIO9b0YAvSn2gLDnKx uqjmFoFm+lOzpwkvjqugEHBLYo7YNkTyJ8CHzRnvfqyyJZDJ7aUffd+FmLCQ NJqTqWf9mVuaHGktFuM5P/xBpqZ+SsIYrCbffVa1dCnJtrFzP3C82VQ5aZkP 9HDVii59coKk6nOvNF1R6TDkSCJVDYUsXHMKAz0LYMcDc1LUQAWBoYP0XXZD kpqSWJD+LBszqv1ixaGZ/tzfF/lF9vfhwdO49yjyMZqPB+7zNXxmewdjJH8C fMh+O9rh+M2nP5ZbAnlm8dtAKmMI/YmM5zaJrgJA2dnI3PmSntxMuVQt9s6e AW/g86SMA3SVO53VSZeSaBv0OFFJgcv16eF9WKVcR3KfxF70p9QM8Wi8Inzl G5/7UENL1+D1u/pw/ten/ixM9S2tTKK3Ge1jRiPYUaAErFGJNZ1dAvRnWWRf F4sVhSr6s1L5kTbBa1Yun6CZd5D8uff4Nel7HrGW531Joc2jUI2hdD68OP2J FrwT+95vo1WnLPIgr9xmrg89T6yZ6JkT+DQ6HScoehGt7SMTHI3O+MIoAjXg 6SzRNqjTTaLrg7qPt3njDKcgFSRSfR5K/a1IIka38Io8SwdPMuthJU7JLC8G x/YNT+shN44dbK2xUgH6k1VZr357CvlQQ3+WJ+JqVV1I9dhBEBB8h+TPvcez 70cPlbYPUUEiNTv4idCfeC7zxVCpy7e0tE/8aerGuXZidvMB1+gXlXrmbGdT f+mxmOVq66Rib1UlkGgbRJ6q5B4FlMuRlQ1FXbvUD+rV34qkYnALr8TWXV8b Uw5ILRQqczPq54emUo4RrVg1gsZbf7I1beWyBYOghv5kKTfyO3OHpDhZRFKW jyEkaxeSP/ca+HrsAtJ3SVyQSEv9yXlgMUfMYNb+8KJoz2Tu4aT3JbJuuWx6 Kc1mZnLMTZXwyHT9NPjprI/u4mRaESObaG1y0IoVZhoakDpakcEtvBw6xYKX JOP7kumQ28J4yUNjiWc6+aHxXPq6G5WL1ebY8tWfa4nR42jbANvQ1ys6WasI 1NCfy1ODB5nvoU11YVmWCDtGUwtI/txzPJkaPIz+5OFHIrZ/VGMo7TMXpj/x 7B2/uzRiRszkkdJrLc94O8hdsfoMbioxj2N3FcT2cuTVBn6L1SVq2kYNyKnZ pebYVAmPtTuUNuyxVjcrMrqFl1Puq5TclW4tOsDwpwqp6VCD9QcB1GHZ1Oa9 XaGCkZf+xLceXO3io2aNggr6c/uu7zAjB0IjjzHjWSYQ4oSB5M+9Br4c6Ue2 tcb+iKhumGrWH7EnbtQ4sNjiU2ivRQYb6VAf6YDArGfHq9YtL4V7Svf2o6MJ 6WNYjV6doaZt1IBslI2dCS+RBxlVgV61haYhqJsVGd3CyyGvBigNr0YkKaiy 5E+RjgIlYQ2TrdhamY/+3Jj1OxFPL+YYmX5sbB2ivP4sr03TKAmc3bJVSA4A JH/uNVhtP0UnFKH7rdIagzV/s9kZ/LGigbPEp8lyyj/Lb8pMxVfLfHqaqp2v XS6NNLeXabKS0U9nNW2jBttL4TMYvadpNXBTXupmRUa38DLK9UZHQFoolBml 0usPja99d6kLyd+zvnojzUzg49SfrFmlpgNu/x19dGmQgOL6s7zYTXRvN4mw TmdBDUgh+XOPwWr7efCduEi9hMbEVdafFQem4LnMrTEXehnvHEusirdmJMGe e2RMbjk19dmNyO25WuO8+YOezkacDqOmbdSCPAQOD8ee0qe5XrpfiqdeVmR0 Cy+jrBNj83BMyg/DilKpPi5BABVu/YknpQtFTf2JZ++FPEdLOgo73Bswvvjc VV5/lhW7Ye0fzGrS2pq9UiFpJ8ZO/vx1LnLZqxcuR+akB14VR3LbzyKoxlC4 5y27vK583Aar2r1GrRDv9yx9Uft6ww/VfbBlmZ+uISraRk3IEBXxBVLt6YzW pKgC9bIio1t4GWyVZe0JL0p4OXrcQHGj1qfzswi+8WOUKtKkt9+2/sDtzAbp BqumP/H1zO2rHkcpaQGz/bt/5hcJm/Z2Nv1t5EYoFPSPEify+YEet8vV1Xny SlL9oi1l9ScV+0DRyvlZvlIBDfeMnfxZqfuqhhghisRq+ymlPZ2KHgz2D81y qe1spMflFZ95BZUYdRReTkArXZlA9Rvl7DIWuvFuEWdf/gM8IE/zA/2Rn420 v1WkTlZkdAsvg62ypOWBs7xbxijG2VqZ/dTrPlR0b2A293l/ODZ5kVmXdWgw /F08cuW8q/SXJvPRPt/fK/W1E0RZCi6F1C5YolBUf+YeBN3oSjFLbygtT+tp ER+GudLmkdgmz0/CI/lz/Xvf8eODk0tyf2g5wH8aP/scMwVCO7Dnzo7/pPez gNX2sytYoW5258HHJ4++EPiBa79Dm99ipZJcJWB66ZmymTnhyCSL+GR+URrc K9CsGIktrDVBRduoDaEKsAN/DPiNWqdTRp2sSLqF47nVB7Hwh/QkMrPd2Tfi v5lYKp3C2zk1T2S2/pTSdiz3KOJB5EX1zhtsNtKR4XZzk839wcwKxzOHbzyM f/7Jjc/vLMn7LeHrmfhn/uGeVjOfk7mxpXNgNDgpWXnS753LPskQzCWue2z0 W2g0QV5B/ckyD1nm+kn5OMyVCkh75kz+xDfj3v2aRtAA+WC1/azctmUn5T/C 75ndTowWk36aBqcUTD6ourdvZqJ/aDfLLT7pL6GAM7hAfU3E1vqJb+iMk5y8 ibU4XPkjLyxXzicC/q9AR0FwF4udDYV6tlEbcpx0o91+SPcRTL7Ux4okWnju l/jV1x3Eg2919L8XnJiOz0yGLw048tKr9+psdiub/CsR2MWOvTmpln+YdUeW Uvy+/q33YNFLgFm6g3P8mrsiMxA5XcrLseE26hSQlidQ/cNsLP84+4/Idf/o oIvRu8RkdvSNjPr/Gpn6/v5jhRIW8c3YSDP9dpK7YIlDKf2J59KhXtTfYjrY H05rGXgl9npMzDK5kz+pLB3144+AEvBp+0l1sXOMJnjUjKB9hxQYbluE3WiC 8vDjT2cDZ2zogyiT+GQ3NCOXhmfvBvvbMGLy5l/Gp76Jx7+ZGv/LaH87OY6z Y8B/a2FDPk8Uundp6T2UgFq2wUHpm+Rn0vqnPlYk3sKRMkNL99j0IvK8b2cf /K3P2mh74/33nPSrq3f3YfeKF+3/zM76nKVdTYBrC921uFzKpc6iVXuJyIaA +ZtygfRildoFSyzK6E987ba3Db3nSJvrJw+MtAfeNUQsb1il5E/qlnrYlzTi CQiwYHYzrlzTTVX68JyygV58lAxSsx/l/IGV/fHzkRcY/1A28blLTUssvjCx MqLA85C9//8mVliuzs3M9Psu4jaKWVzvT4tvNMoEEW9YT1iXuS9cqGUbHBS/ SU1ywJSgPlYk0sKRMsPKrdW2l6NvIKFJNSsaWP1wxDlt8I3ZD9pLr2L/bZT/ NEVkGg5HDh7aWVSWfsU1UV9/oj1epHbBEov8+hPPLd2+hPYZMDW1Dn2R0Srt swRaS8h7mVupQBd6X6vgscfTwS4M2++dAe+n8WF1M65Y000PmG7z3eUXUUbz N5Qbs1g2XsHeO4D2WTLJKz53WXPNzG//v2nvcWvVKFhuKTpE5RpJGrSEgASv NUpekgF1bIML+uwT1JJO39TFisRZOL701Zt0meHBs5Eqdf+MFHchcwAlwxxf Xt6jg8crMLxbFuelhADXFjINh8sHhQgGmeYF10J9/UnmqGi8f8qsP7ezqZAH rbE1WdtHJnQgPnfZk2f53Ivx1cRYJzM/uPyMoC50ovuTA7qC0fC5cvCd6ngp oNEcOnJOuV1layHYbaoBq92cDDDajTYecxxp7AnWiILhD8OnKa0ly8xiqse4 +FNMH6hjG1zQZ58Ra7iqUA8rEmXhpVE7NYeRodNY1I69FpMqyX1D4Fw5ZhdN wa4tJEmJy+uLpgoUk9uVQ239iXpatFMvJQ1skvhV49kH0YunmZlmbf3Bu1qH 3RG2kv6O5oLdc95osqlAj8XUdNheynKu8KhSw932XYjJMM8F0Bym/qxwSaFC P4KKGtAnXbk8IvbwdxTMdiYgYcJRFVjt7jm/EzSV5ag3LrGZDHKAYr2aeQ6l oo5tcEA7IQwdqmZSFysSYeHIqHGOYWSIuFI99oo/Gj9rLSYW1PycrH8xeyfQ e7jwb4qIq6JBIq4hhqVELDXcg2WOQKUbsiE3XxW8u5XZXpt6a5+JiYDGRBS5 7ELic7/HwegkgJnbz4Vm5fK3yNVEAs17qdkUDn866z9lMWEW90d3f/iru7gy tv409HA3oBy0JU6lAM3GHV97s+BGc8gtr3Egqkysq0pXN6mz3WvA0p88Cj2Q 3FruYUm1QUuDDS0z1LCN2lCHsrFD1UzqYkXCLRxfnvAUdB1Hy/1SUa0msdfc 0uRIa+FUbXD++S53Qs7ORnrC6ywmqxxwjd0SHldFUoY4RBfV04ZChdrw9ZT/ RWakFbN6JgR5hoWBXECEDCKX8o4bqz+TbZ8yD+eT/4zHJkK+AUeF9lPm9qHg ZDw5n6nBfDI+E4v+V8B34bVOG/slzB2eq4Wu/tKRt4lELh3upy2w2iQmPHv/ 5vALZlOTvT+YzD8XeCbSX+iSxepaT2WH6njmFyAUpDtHmR6gJ/AKSnenXhQ5 ShSqU2MPP6Jt3OL2l1UDyQVT8fIZSote8is3FuBNScoaPPVaBdvgYC3ubVOj wkI96mJFgi0c1TAcw8iQiSoaNd6hPTyFbcr1p6mFqtsHvvHwNq0BSCwveaM/ iulJhCR/cokuxD0oY2+3kgYjWEjdiceno58G6A4hbBptrrcuXx+fmokz5diT rPSExpJ1qXVNU3wODmZuPe39eFq+Rn+KNJFAEkiaWgfDc+jNK7eciv65z97E vF7hW3PBbrqXlNUdfEB/DFqNWLoCKVCfdQTS2aNU4Y7nVhLX+tsw0wG3X8Tg XTTNT5k+Xezm85XMW2aYEX9eUTzUZSolaRP1Thg99Vp526gNXYqiXfWT7NTD ioRb+Pr08L5iUPtkMF1jYjAyUUWrxju7RB3R3M2RUl9i7JD77cD4rbvzmZ8f Z7fIHunzs7c+uzp6FvGSWR2ev8SXRD4jSPInp+hCCgNlDK/Io8GkGzZqXWpV nymiPxuJ9tKD7/pD0fj9JVnbpCrYRALP3rsx9Dz1ZWAtzte8l4MfB3wjr3S2 NBIq2vH61ThrvioyPgY75Boc819+u48YyaqT0n5AVuibhYm+gV67cnHoFDGo QkI+M9KqXZE56ezmn4RO/m5FWcsU0VAC1Z9Sur4gb2381GulbYPXuxthLC5P 6mJFQi2c2SeQQzI9jg608PtLpdnZIKabd3ALE8zW+YY/mlqWMvccSf7k6jxf us7LGl7Ri/4sS/7E1zN3vgh4PaccLRgh6l72jF6flPRtGxvlm0hsraa+vDL8 7+0thailudXlIYdcVT618dxqKnrlwpn2FkqZtHR6fJF7Vf4YMDiEJ9w/6Gql dwvzkZ7hK5J2PyQ+rkCaH7NtlOUl7+RD5bcOtD5XhP6UIBBKXya2b3ja8KnX ytpGbQonkVYNAOWnLlYk2MLRyyCXZNqc8e6nH9zm4ZgOclfyKvTOlyE/Xd9R wmLv7Bnwks4tGWYAIcmfXF5fJD+hHscaMpI/P04/mgn0t2GEwveFomR+o6/f TnRrPtzr/0bmwaOGwABNJABAEIrWGxabL2Hm9pGbc2vqbBno+Eg19Sfi7JVe R68HtKtFLfSg1nL6p7zUxYqEWziajM2R2YL42+tRXFUDSf7kupvkMqHews26 HscaIqX9tlP9p2xNFqc3wjg1ni1N/p4sEBPYXrUeMEYTCQAQBDmngNcBIRxq FJG1ffgzJRM+y0BnRQnO/xSd946otbZLSX5Dn3WOkrZR833pajs1J+AoS12s SLiFo+KKQzLVu7iqAiLpMa5Zpkh+Qh2ONUSTP01VywTy4qqbvNFgx0cTWrTl 0AjjNJEAACHgP0f6aX+h0K7LnC+9Mf+Pz26nZU3A5vO2yAWQlzcT1Z9ifS9b d31tlOo1dwXr5dKpoG3UoNhtjCsdzjDUxYpEWDiaWMjRiQIRVwwdhueW7t1O LtVpyh+a/Ml1xUOm4jK96JuPk98lxVY/6Qa04BGzVJ1YVxpoouKOpDmGaiIB AAKgusVSF6b66Nm1tRg6XdjVeWTFo6ckR4luNZDvUGgXVl2jiW2sxobt5G8h X4cZjamDFYmycEQycZQUIZ5SZrIxkR4pZMq8sUCHBXN4fRFPqbUnvFj6H4iv rtnYTWV3mU4D2/mplaoGVtqt905yo+GaSAAAf4pBDVNzhz9ZBwIUaZfK4w6I 9FrnCG1Ufz9i+Cl5eLb57tbBF1hCfdsoShFDN/BHqYMVibRwJLJQMxMbXwg6 6b9jztuqD3FVDTQ/geNugnpKGfNbSV2qVrci5UCSPw+Nfl9DYCHeAu1GA6uK QZtIAABPEOfGwXfiBm8cRPI07j1Kbetchbro0906NLUkRn4uhujUcMvZcKau 5Kf6tlH08+ijCFoG6mBFYi0cqX+voT/x1cRYZ8G/w+jPTxYl8RhhZkwY7elq l/hRE+4oGJkMZN6s8bu9IUWjtT0G6ChAph+4bjF0EwkA4EHJv2HtDqWNvZeR lBK2a4cLS/69BtvQ1ytiVl7UunXiPWajqm0U/Tx1UwRdBysSbeH4s8QYZTqm /d545Qnam5mJ88Wpl0w34LN08CRWGrdRZ6AuTRN7iCEKvjzj7Sj1lHMGF4rf B/4w3Lvf+N3e+EeNkb9UfBi9ToAmEkDdg+fS190N6rm5lGd7bebdNowUlp7x KuMYNtKhPjLrCLO4P5oVU6SPfm9/iK3VZb6NmrZRyIgTmYirQ4y+ImkWji+E T1MBwYpuTEp8Nh9zOW3lzj2i4slan3c6AjT5M8+B/kilUd3USFCs1XXiOfoP EU/yzlzgOFYH3d6QuU4cHUuQ+PIekVjQRALYExQ7jNWNH6/oWqnUzQNfmwu/ Sf6vosUn6hsUGbs3CGrZRh2kSrIw+oqkWjieWwz3E5EIdlEzvpGe8p22YQfc l24vrSf9Hc3Mc5O8G9ZVNR8Thq4gLyit5ycyDM2AZx9ER7st2LGhiZ+eFVMg ig7hXDrcf1Bkyrqu4N8yiPGlMVI16hZoIgHsEbZSgS7SHWjpC6U3uP/eAGxn U+ERJ3G5xmzu85dD0dhMfGYqcv0/z7sOEdrT3DHgv7WwIU4ZbK/F/kC6METH 7o2DKrZRyIiTdbygphh8RbJYeP4ZDHmIuYGYxTl8bWI6HpsIXX7LZWvEbKd9 U1R/NnwjdZWcJY1ZXKPjsX9ELp+1NxC6q14PTTT5s8F+7Cg5TR6znXw78NnU TLzwFTWZ28+FZp+QX0LxNn3ANXozFvviysBRzHI6OGfw2DujZRBHfBnPhNzF RASVh2JoBTSRAPYKeC4d6iVPgZoTvowGvp6Jf+b3enpOOMg5tRZ7Z3ff4Lv+ 8O25VfHOPHzttreNuLdjbe/O1GfkHUUF2ygWF9iHY6tKvIHqGHtFMlo4vvEw ftM/3Ndlzwsts93ZN+K/+V2Gce/DcyvJyKUhYtg31tJ+5kIgtliv4pOZ/Lm/ L/JzbvVBLPxhYdYnZrZ39lSYu02N5+5z5v/G3Ooa/OjWQi13mEFAJiZjvTXb 5aHFRybMHcoYf/E8gCYSwN4htxQdInOxWnpD8/W7/0umWBTQ4PL/UJ/1uWUo bRuFSs/68WwYeUV70cJVAxnSzSG66h5qTF551LgcNGO2jsZ8cABNJIC9BP70 7qUTxN3c0hNIgdFWpKjE7J7Iwh46PJS1DaoMAbMOThq8m2ER465or1q4Ouzc 8x8pePIMmhgsG9m4187Hv8dow17HicFsoIkEsMfI/TQxdIwItba+PV19FMVe Bd+aC3YTkegDbv+d7F57rBW0DbLTSF1Ndjboiva2hSsPksfI0W59D1DSnzWn Je+sTZ0r9CGqmwpZfkATCWCvkVuIeOySasPrEzyX+WKIKKbYw0ezUraRe5z4 /MaXqTr6Vo24IrBwpUHzGA2ZGCwruUyoh1t/lho175F8exRoIgHsPWhPF0jQ Eng2cclpgaMZbKNeAQtXnrW4t42Wn0ZMDJYZfDPupbp/Vh/Zg0xhwzq8M8t7 zzChiQSw98gtTo91W0xNrd7bkAm6u/Nj6OQBE3bUE7oHRzPYRh0CFq4CSPJn Q2+4ftqMiKaY2Fml+TyejY/R40cPuAPJ+ugMKAJoIgHsPTaXEn+/MTW/Z5/6 EvhS4rPPbs2vwYlRAGyjvgALVx4k+XPvFHHXZj3lf5Hsf1ppRhid7WMCnzwA AAAAAIA4SgNtsBOBOQMOJVCCjVk/kfWBWfvDi6WWp3huJXGtn5yiDD55AAAA AAAAseAr3/jchxpaugav3wVBVQDPLd2+5D5gMjXa3H8g8htnJsP+wU4im7HR 1nMxCj55AAAAAAAAQHZyy6noVe/Ay46WRhPW4nD1DV28Hr2T2QDpCQAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANQd/x8Zo/67 "], {{0, 114}, { 896, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->Automatic, ImageSizeRaw->{896, 114}, PlotRange->{{0, 896}, {0, 114}}]], "Input",ExpressionUUID->"246b96f5-4a3c-4569-98df-89a9ee10b2b7"]], \ "Subsubsection", CellChangeTimes->{ 3.7467908910396624`*^9, {3.746841593306051*^9, 3.7468415936332083`*^9}},ExpressionUUID->"ad9cf71f-84bf-4cd5-b455-\ b759250085b8"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "2", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{"d", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "=", " ", RowBox[{ RowBox[{"I", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"V", "[", "6", "]"}], "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "//", "Simplify"}]}], " ", ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.440895870234375*^9, 3.440895891640625*^9}, { 3.440896510390625*^9, 3.44089655715625*^9}, {3.442671255203125*^9, 3.44267125603125*^9}, {3.44267137046875*^9, 3.4426713811875*^9}, 3.44267142365625*^9, {3.442712951171875*^9, 3.442712951859375*^9}, { 3.44296369284375*^9, 3.442963696734375*^9}, 3.44296768475*^9, { 3.443374517453125*^9, 3.44337452140625*^9}, 3.443397833125*^9, { 3.45504301590625*^9, 3.455043130828125*^9}, {3.4550527984375*^9, 3.455052814484375*^9}, {3.5067782137090287`*^9, 3.506778214466072*^9}, { 3.506779064525693*^9, 3.506779068082896*^9}, {3.506779121543954*^9, 3.506779124996152*^9}, {3.511641116247309*^9, 3.511641117295369*^9}, { 3.511641238366294*^9, 3.5116412632227154`*^9}, {3.519945652604292*^9, 3.519945656025487*^9}, 3.5206470576621337`*^9, {3.536753629485641*^9, 3.5367536355419874`*^9}, {3.5367542796588287`*^9, 3.536754394482396*^9}, { 3.5451480077289762`*^9, 3.5451480136813164`*^9}, {3.5451480836983213`*^9, 3.5451481475869756`*^9}, {3.5451482301356974`*^9, 3.545148230279705*^9}, { 3.54514835065559*^9, 3.545148351119617*^9}, {3.5517190084457397`*^9, 3.5517190462919044`*^9}, {3.5517253476257124`*^9, 3.551725350072852*^9}, { 3.552315878168127*^9, 3.552315880549264*^9}, {3.5594364063879995`*^9, 3.559436470154647*^9}, 3.559498758930711*^9, {3.7095734439172153`*^9, 3.7095734562269197`*^9}, {3.7095736865240917`*^9, 3.7095736900622945`*^9}, {3.710786317142681*^9, 3.7107863175327034`*^9}, { 3.71171717351058*^9, 3.711717180665989*^9}, {3.711717560179696*^9, 3.7117175669990864`*^9}, {3.7118545714168224`*^9, 3.711854584457568*^9}, { 3.7119033420472937`*^9, 3.7119033423323107`*^9}, 3.7119033814345465`*^9, 3.7120954622856226`*^9, {3.712095557947094*^9, 3.7120955854366665`*^9}, { 3.737162821795579*^9, 3.737162839969626*^9}, {3.73780794558059*^9, 3.7378079860629053`*^9}, 3.7379793854587083`*^9, {3.7385815933232975`*^9, 3.7385816487654686`*^9}, {3.738581823928488*^9, 3.7385818265056353`*^9}, { 3.746791040438759*^9, 3.746791071688319*^9}, {3.746791171144439*^9, 3.746791205624802*^9}, {3.746791269817828*^9, 3.746791296817684*^9}, { 3.7467913572329483`*^9, 3.7467913929364586`*^9}, {3.7467914248141994`*^9, 3.7467915012213964`*^9}, {3.7467915468503184`*^9, 3.7467916019331903`*^9}, {3.7467917796337733`*^9, 3.7467917840254498`*^9}, 3.7468070357928214`*^9, 3.7468417698070917`*^9, 3.7468418838283405`*^9, { 3.7468423650397673`*^9, 3.746842370899153*^9}, {3.746844150161788*^9, 3.746844151472354*^9}}, CellLabel-> "In[105]:=",ExpressionUUID->"cd26ff92-0b09-4891-b5e4-c77347cf8a69"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "2", "]"}], "[", "2", "]"}], "[", "2", "]"}], "[", RowBox[{"d", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.7467913000660734`*^9, 3.74679130814038*^9}, { 3.746791532816335*^9, 3.746791533334661*^9}, {3.746791579057716*^9, 3.746791587805388*^9}, {3.746791824210702*^9, 3.746791845191226*^9}, 3.7468070361321363`*^9, 3.7468417719981585`*^9}, CellLabel-> "In[106]:=",ExpressionUUID->"c43d1927-3ad4-4935-a9cc-76f05057308f"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"V", "[", "6", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ RowBox[{ RowBox[{"V", "[", "6", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ RowBox[{ RowBox[{"V", "[", "6", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ RowBox[{ RowBox[{"V", "[", "6", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ RowBox[{ RowBox[{"V", "[", "6", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ RowBox[{ RowBox[{"V", "[", "6", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{ RowBox[{ RowBox[{"V", "[", "6", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{ RowBox[{ RowBox[{"V", "[", "6", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]], "Output", CellChangeTimes->{3.7604679839122295`*^9, 3.760468242122817*^9, 3.7604703406924267`*^9}, CellLabel-> "Out[106]=",ExpressionUUID->"c2e80a5d-3ff3-4c7e-8ebe-b70debdd4fc5"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzs3V9MW2e+N3qfcy7OuVgXh0suosORZckXkSKELL1B0chcECWyBNFUCKWp kImaY9C82ZDdtzAdBVo1kFHrajegmTizd6xprMyJM7tLnV2nB3cGt4WMcKa4 M44CyjgN5DUJToEAQQ4ywbA4+P+zbGN7/bPXWv5+Lrb2zDjGa/nx8+e3fs/v +b/P9vz8//lfNRrNO//H/v/5eWd/07/+a+d7b/yf+/+h7V/e6bb8y7m3T/7L /zhnOfev/+3s/7b/X577XzSa/+t/12hi//8eAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOyLrs37 /uK8+sH5lgZKk6Aztp8fvPrHidmlCMP7fbeWp/+9s/XyxHJUxA8LAAAAACAy zIcBAESEThUAqkd0yU9/0tWk0xyo1mC20r5nnHs/5uWs813jfjdKmYanVvj3 nQAAAAAA0sF8GABAROhUAaCKbK/N0IMt+oN7PJLe1PeZN7RV2jsz0TX/rd7m 2PMpXefo1CIeKQEAAACA/GA+DAAgInSqAFBN0k98EihDW9+Vm2OT074HszN/ n5786uZIX1tDbXbnpztjHXu4Hi34gIjZmPdctRji/1Z3zj7zEo+TAAAAAEB2 MB8GABAROlUAqCrMyxn7uWSOvra1zz4+u5InH5+JPPPRl9t1FLvvqzWYr4wF VvM8J2I2Qz7aam5M/AOq6Vd0AJ2e2KJrc96vv3B/HwzvVPqjAAAAACgW5sMA ACJCpwoAVSX6dHzwJJVIwu//g2+5cBI+E12ediRy77N6v44Pr9PjXp9/dtbv 847T9o97TOnkf0rb8pGn1PR+KFnmu9PUvOkM7lb68wAAAAAoEebDAAAiQqcK AFUl3enpzljdP4ZLfOTDbMy5r5gNOQn8eVGN5itfzyGvUnzMpvfy4fR9rnnH vYqbDAAAAMAR5sMAACJCpwoAVWX3CX22Pv7E59dfB19xPpcv/Pgbe79Jm/N8 KUNv6rN78ibzgwh2Vt3v1KRGF/2FsSVshwAAAADgBPNhAAARoVMFgKoTCdLv tPbTAQFPfGI1Uu783tr3tildiVprbO8Zvk5/ez+0iWiftCL/pPtbtZShfehP Qr5EAAAAgGqF+TAAgIjQqQIAyNxuJHT/G9dXk3hQBQBQXcTo/3ECIAAAgKxh uAcAAJDUzpr305bEBgHqDdvMq0p/HoCKifqs2lKKEe3roEOV/rQAgonR/1f7 CYAvJgdMpt5Pb47d9QeCodCLcDQr74OJhl+EFgJ+7zh9/cOO40OTG1V3jwAA oKIw3AMAAEhs95HjVF0qYKTtoBcq/YEAKgbBVaguIvT/OAFwge4otdvQUCd+ OfZku9KfGAAAqguGewAAAKntPLAdSx3fVNNNL2LZB9ULwVWoLiL0/zgBsNTg KmXotk0tovYOAACUG4Z7AAAAyW2FPJ+0N2gb2gZv+n7Cug+qWTq4Wjfgfhoq aCWMHwsonxj9f7WfAFhCcJVqNFu/nFnDs0sAAKgIDPcAAAAAUCbp4KrW6kPs FABKEA+uGs9brf2WNiMrzBo/ftfuuje3jrAqAAAAAAAAqNj2emDCOfLeOVMD RTWYOnqHbnw7jweyVQnBVQDgKB5czdQJiYZXnodCoefrEeyYBAAAAAAAAPWL Lk7Zug2U3tR3lfZMTU9+Ye2oj23ibLo0Htqq9IeDckNwFQA4ygquAgAAAAAA AFSN6NPxwZOU7u1r0+nqQ8xr/2hjvEaervvLEBKPqgyCq5XDREN/tVmO1Vhc y5X+KLKw4x+pP9wy+AXKmsm+bSC4yh2aN0D1knmXXnboDwEAAEDRmJWpYROl szgCYdZ/H6I7kkeQdNEhBNiqC4KrFbITnvnMrKM01Mn3J57jmUZcOOCw6DSU tuUjT1Vn0cu/bSC4ygOaN0B1kn+XXn7oDwEAAEC5dtYmLxko0/DUStbUjpl3 tCYPIzFafeH8/xpUCsHVSsgstQbHn+K2ZzAvZ+zndFVdpUQRbQPBVV7QvAGq jiK69EpAfwgAAKBITHQ94LG/nzi/qeX85RvfPA5X28Pjze+tRw8ZBr9by75w 5tXk+4eSwdU2eyBSkU8HlYLgatmlllqahi56Hvc8WyLBXswFl/D+v2wnACql bag7uBoJuodatIcM5t9NrxX5lpnIM9/Xf/ri6/vL0dKalPjNWzX2f6fzvvHb tuE+S5tRq0nTGds6ewZ/c3Ps3tz6dqU/JAAnSunSK6Sqh3s+mGiUz0fZiZY4 QAEAQMUwkfXY+cAiWQlLNuvYCQfo/qY6XfvQrfGp6e+ud+n3R/JDzdZ7G2UY a5id6I7gPyPCm2wv0t01Nd30Yu7aZHPWlkpcPfT+5CsMwNUFwdXyYqKLrt54 F9Q0fDfnSQfERefproZYnZLmT6c3BC5qBPf/5TsBUEFtIze4Gg2vLAT8vn3+ wIKE47n0mCVXV01iRDw25H1Z8LWr3qHm+Cv1FtdiqX9AzOatDruR0D3nkNlA ZSKqGqrB9NabpoZaDYlqNFtpX2hT1j+OJCYafiHG5PhFGGERpVJQl145VTrc F8dEVp/M/NV9235loMfMet6UeORk6bPa6W/8C8VGW2b52/eb6upH/BhsAABk LR2UEVM8RWHgUzv9rX9hQ5TlWXxY0TcN/jmUnKC+9A4di8/S37DNvBLjLxQk zl2yCC6Fur8W1h+1fr+Z+78wPzpak4mrNT3uVWF/BhQHwdVyYjbuWZtjP7ea 9t//M1J0ur8Tnr97y9rTkoww1DaY3u6z/v6O71nxf8rxc23P/+mCcf+DUVpj R//oFxUPXzBr3w0aamKn7HXRQQGxBaH9fxlPAOTYNiorHVxNpAkNdhh1rCGL MrT17Tcj0RtqGeysut9JxlaLbuXY8PQlg3917c4npV+rWM1bDaIv/LfeNcbC qpS2yTJk//LuzHxonWg40fDyvN/jvNJr0qda14n+zx+syfe+7W5M/foopRFX LNhs6Ru23R73/bgS2a30NUJxGO5L/UDVN9wXwESWA16XfcjSpC2tE9G29tkP zq2NzDrM9fuLazMdlG2PWZrNOfpiS9bjNmnpjG/fCiAkDQBlI0lwlVTb0Par a3d+CAmZRjKL7gtHa07ffLydHlXCPqsx8f7H7Q8ln6HKJbi6G1lfWc97J1fd PcmV5KFWx48KH3yBMwRXyyfeHcXuta7bOZfnQQf7xS9nnYmYQ56+0WC+4p4T L/V+e9beWsf6C9o3hu48qmjtlJ2N6U+bY5eva7fP8CxWIrD/L+cJgJzaRuXF g6tv/ceE29quq9Ga+q65vIGna/EgQDS84Hdf7Y5nIeoVeBj06uTA0eSvoG7Y u1XgN0BW1Dkx4uf0rFaM5q0CiWjG/i/JeOG6J7BeOK4S/cnneCfVJR4iQihy s7PsOi92bJWFajh90b5/v1AkQcYw3HNQZcP9AZ8g9qTyxqUOQ1b8sLah5RcD V+xOl8frux9YCIVCz+Zn/z49OXbbbn23LZnvTxnfdc6+zKn69nzi/ZPxF5xx zCu9Ck181lFmWBcBQDllygLE+nmfd5y+PtCmy50caFsGnRP++IBwoPlZ37TX 818O2+X0SJFGGd6+MvawyKz7gI+46fvkKPWmPUBMbJgnzva6xBuXY5cEu3jC QuC+zzfl+dIx0tuSb5CoNXR8eP322OS0zzc7X5Z9YUKWh6AGCK6WSyRI98TT +3SnHYFiq+LdjckP9Hm6CILujHXimRhfGbPpvXw49/0rfvoGs+odPh7/JK3W 6VXuPaDA/r+cJwByahtykFrmUM29t/z5cgi3QuOXmuLpiDrzZzMKiq/uPLAd Sz5uLLaVg6ioU/ueZ4Pjo1qhzVv5kpHVQ00DrrlSW8j2mt9uTs4zZRxfjYZX yMnt+B+G2o9k969N792a+EfhmXFi1uhPTBr72hvYk2PK0G2bWsSoLaqtkPfG xdgyhNKaLtIB3t07hnuun6t6hvtciQ0g/SZWqup+C7wwSk8FQgW3/TObIR9t NTdSeb7EcMBhSW4pOWabVc4gfICd8MIDX9KUx0U788YcqOaeq597vNO+4qa9 njs0/Z8Om3Wg57Qxb56wagvLA4BS7GxMfpg9ahfJ/cgVy3v5OnuUqTVYrk0u cKwHyjxzdR2u6XItEf+MKKd2pMf9E6f3ExOz7h9ty5op63tdi+VeKQhbHoLy IbhaFsz2nLMzPg+kWu2B7aI/892w/z+tHw/0dJgaCqRAiROWIVL1sugvelYr OSNP7RbkVY1NYP9fvhMAubYNOUgEV4397oUDO430YrkyQxtPxFK62FYOJkib U8UQ2p0LPMIBQpq34m0+dnTW8AmQRpc9g4bkfVdM3m/OHqYTVl/hcr65diML EzbLMfaAUG+236+641mlsrM29XETcX+pU445PpNiDPd8VMdwnyO6Ghi7YmZl q9YaYqWluZSDiP40fe3t2GiUiQ9HlyeG04350MCkGlNnIgF7G7sRa9sdAX4L mVg1hqlbgy2spxy1fZ4NkT8zAABHmT3mKbwWHfEHeQ/HrGdYddx0naNcHtPH B9aGPs8K8d9Fl1w96awU11Ilg0k5k21tB71Q7g9BFFylzHR5CgqBrCC4Wg6p Ixt4rKnjU77Pk5kJeRZE/W6B/diOf6T+oBVd3SnHo4o+cYmfxBdfHDSP/MBp t7yw/r+MJwAKaBuVs+EfeevU6PeFt6oyi3Rn8nY3dLt4TQTKjSy42mqbLdji MgVXa47ZHvCKSvBv3grHbD++ebpGw97DW/q/Xp4cbEp+S1S7bUaidDIR5RQK 4N11pAopEIy/9GDuJobdR45TdexZOa9ZEYZ7nqpguGd/6mjor+zHJZTW9N7N e7yq7DIvZ+znYktmXQ8d3IwEbpozWZ0VTSWSUM6TAuqsM/hayDsykSfuTAdb lv2tAACF5ZYYFZRUvxWa+m0HmfZPnRxwlVgaKL5KqnnHTT6KZeadp5OfL+sR Z/kxC8521p0qejCxBDLB8LJUoAX5QXBVetEld3/8cbiAMxGiL2Y+/1VTnlUR pe8fF5TOsuyyFMiWaXXMV3bdHrlva6mLXyh7x18RAvv/sp0AKEbbkC0yt/Po Jz4FnPFOLNaKbOVgtnzW1E7vowOTfBsCz+atcMySp78xfp7OGx2W90bvPOSa e0nE7TU15tuyPxQsOwggpOtIH5OUUemcQ5XIWb9Qp53cDwHCcC+Ayod7Us7y VlPfMfrdgqBDRhJPnSjdW73nm8guQgUFV/MhavgkHbcHBK9jmY2p4aOJt61E yhMAQBaRg6t7sSorAbqfHCZKLg3ErAfu+hbIXRy7Afvx5Lsc7nI9q/B0PF0m PUm6ej4HITe8NFt92P1QjRBclVxsx1liqiYwNTFdxzKLsLfdDbo/6H7roP2I la8Wks5m0dR00osl99rC+v9ynQAoWtuQJyLtR5OVViRLxGKt2FYOYkMidd61 zDu0xbN5KxoTdJ5mdTfHBiZfcHyPFU9fgzgdYBlkBwEEdh07q+532Wfe1Dbb HiihVrO8ZWWu8tuGj+FeEFUP92npXfzptmb47/bpn4TPwJnV8X59znerhoKr eRA1fJJ38Yh1Wowgcnpwr0TKEwBAFvGDq3ux+OrMZ2Z2/ur7E8+5D3Nh/4gp NYV4113xB/2VD66i4CoguCo1cYMn6WMy2EuiXrfgWmxMNBycpq3m7JNqLRKf kFuCzHL1+LCX94WK0v+LewKg6gNr0RBtybRS2ZcvIxZrRbdy/OTuSSWuCsyW Ead5K8jWvOMMu5PhkSC0u+F5L91VVXwjUmE5QYBiFSeKypSkSFFp/KS8dsKz f+w36WPns7cN3vTxCHZhuBdMtcN9SnZlD0rb8pEnJFZm6eug82xWdFWlBVfJ Gj4Joj3ATS2LBHfUAADCSRJc3Uue5Ei+ra7bOcex08sM2fJY5VU8uIqCq4Dg qtQy3Q6P7Kx8mEX3hZwDKQRXmkq/e3T53jVzvbxWW3tbc463EusFvieMiNX/ i/pASvS2IT+sGYHc4z/kYq1YysqryYHU4Ck4W0aM5q0kYZ/VyO6/jEPeda7v wiqsVOkS+gXlBAGEF28kJm8pnc4F5K5WGoZ7Eah0uI9jwvftrBtO6cyfzYTF HBeZVXcvK2RePQVXu0RrvcnluRx+DgBQ9aQKrsYGjGlrK/k8jmr53QyHqt/M pvfy4eQ/Fenx1qbf3m3uIJh7PrjqvDtf4kDJO7jKbIZ8f7IN9rD+dof5F44Z bvMtFFwFBFelRezfFK3mJLMdsLdmb/wS8SfMRBddvZmdZbKYXhIlFvltihSp /xfzgZQUbUN2WDOCrJp4skMs1op91J1Z2zHxlq6Cm7eyZB3xTOk6nXM8jrVi tS05BxDELLiaQiROc51AglQw3Iv0mVQ43MffLzuyqqGaP53eEH1MJEumaFBw lY/E8hyLIgCQA+mCq/sD09p3gwayL9WddgRKflT/YnIgtRg6fNkryrRn99nk b37ZYczetUM1XRovZYsHv+Aq83zy8hva7D/Z0HL+g99NPuMysKDgKsQguCqh TA03cZ9frHuHjFl9gKhHUbyatf08+bYyCYgxz1xdydUSr02RIvX/Ij6Qkqpt SIx5Gfji12ajXtvUbR17HCn2cvaMQBYr9wORi7Uiv6ZoiO5KxSPEWLoKbd4K w4Tv3+w9EWsYVKPZeifAM3Frge7INC75bn0VueBqAuvaOUwgQToY7sWivuF+ L7cagEajf9e1KEXYkxye5L9hhCfJCq7GJZbnFT/fDQBgT9rgKlnOKDUT6KYX SwuvZkpUUYeHpsSsohJdDXz5flbZeap51F90QOcTXE2fQ5r5U7r2f/MEeewx Iza8yGRCBZWA4KpkmNf+0cbkb6zNHigaiOLwztuz15rZHa14WwVjMol5cpmZ EyUWeVypOP2/iA+kpGsb0tqdc5yiODQ51oxA0MFPkiMWa1T9iL/gByVSg8T5 gQhr3lWKHWAUMW1JVOIXXN23+9B+PKtappK6ETXCcC8ilQ33sQO3/KNtrGUi v+PSSrPjH0knyMr3qZMgEhZcjYkvzymLa1m0dwQA4Eva4Or+oDkxwDoJsebo 8NRG8fEpuuRKPYHUmEb8RAyT2Zi/5yt1I/+BcsvOa087iz3y4hFcff2PkUb2 eML70SdZswuP56oYgquSeemznkj+xERf+OdZXIs6t1x2WeIdrSzKUydk0kjq TjkecbmdYvX/IlZgk7JtSChrRVN0zCLXpxpNsZBlRZGXVuynFFu7Juch7KXr 1srsD7PLvEZk/s27arF3v8r0GbEEBVf3yNYi6tsCfxjuRaWq4X5r0fUuOyum rsV2X8JnIZnVpZzrpQghZcHVveQNxJoIAGRB6uBq7gaZUh5rEntMNI2j/teZ KSiz5OqqKXZ0RSmI8umlzq84B1eZLZ+VXWarrtU+y/MMg8zUpeaY7YEM1yRQ HgiuSmVzaugwJdlPLKtuoUaSXVEanZkOymXFTnbjnFavYvX/IlZgk7ZtSIhd Q7XozpHtBWdn+uXyTqEhF2tFdvoTuYh6i2sx8z/ENoDX8dxAyrt5V6+srfHy PNEpOwggRvFGorZniozCYtUJw7241DPcM9tzzk4dO2uV24kh3G15h+pKGsuU StKCq8nU37p25xO5/BwAoJpJHlwlC5UnJ5XNtgeFp9RM0Hk6ObJlPQONP+IU J+Eh7B8xsa+82KDGObiaM7/ivzOITCg6OjAp+HQFUCwEV6VB9lSS1DQmjtRJ aXcuiDMXTD/HkdVW0615x5nUpXL4YKL1/6JVYJO8bUiHCdFmitIa2yz9o1/4 ix7QTkaW+JwIXz7kYq1I+QIyF5HVDuNBV95fKM/mXcWygquyLDqaHQQQo3gj E6Q72XlwMv9xqR+Ge9GpZbjfDjhOs/c1UqdG/BIP+ulpvVzqPIhM2oKryaoU oiaHAwDwJnlwlSynk1KkYjmxFMqKRsbmqIf1AxNijHNEjaCkYj0z5+Bqzvmw /B/VoeAqJCG4Kg0ix17onrIDvJocOMTqD8TbGZp6VCSzDLrdgP148lJLqLuS JFb/L2IFNunbhnTigZ2aTnqxlLufyebS1JhvB6PyTQNhLdYKfymR+7aWuny/ uPgxIgLOT+HVvKsY88TZXqfJkGNwNScIIDzytrPh/Yi9IVbuP64qgOFefKoY 7jcfOzrZGZaUvn9c8iMLU9N6ee8W4U1IwdWddT9t+8P0SpEDKy3iFMcGABCu DMHV7Bm1pthT+7DPmpr2sIqLMpv+0WbqhNUnuCZAHDETSCi2p4BrcDWn7BL/ jWAouAopCK5KgkhYEmMfaF45T1vE2hibjInJL8KT2eymqelyLZX04cTq/8V7 IFWOtiGdxH072usKFusuIkGnJXmdum7nnJzXKVmLtYN/R8zqtLU1s8OTTB6L bUc9Iui4TD7NW62YnehOkRuQPduUYXA1JwggPPJGxvaTbaXT8VjOP64qgOFe Csof7pnQl93sggCaGoszKH16cLJvRMHVXPHfUZGEXiYa8t254wvhiRUAyEEZ gqt7L71DWftjahpH/nHw9vjMbnpW+Ci2WUMv5jPE7GBpsWgV1+Bqzr3lHw1D wVVIQXBVCkTCknQ/sdw6bKKEF7YX6e5Y91C8omb5Lbosqf2wpYYpROr/xXsg VZa2IaXEwcc1Z0a//+ngHmMnPPOZObGupE6+P/Fc3quUrMVafa873wdmXs7Y z+mopo63fpY7vdmdc5wS+qyWR/NWi+jGgv9b2m7ts7QZtZlwBNVw6vzgb50T gfXcdW72oU4yDK6KXXCVWZkaNrGDNcZ+9wIGbmGYaFRQN4zhXhoKH+6Z5cnB JvZXRgl6+la65OoSBVdzxLe+qjShFwBUqhzB1UTGvqbkrpV57R9tjL+qbsib HGmiT8cHT9Y0DU8sizctzdm2I3JwNXspwbsQEHkaAvswTag+CK5KgMvJ4/zl liJhH6/DC7M63q+nYpvXxKmXIi5ygVnipi2R+n/RHkhJ2DaYyNLsxB+vDv6i pSHdLnTGjl+OxIJTvBbOB+UPRp9NWM/oqGOWq3/J887R1cCYtT0eWaUM52/4 X/DuWMp0RTmLNarp0niItSxlwo89I5066uTg+NPXi3Ryq2f6wJRo0NV7tNRq CQfi0byVjomuBzw3LnUYUt8v1WA61zdkHbU7P3faRz8eSHz1lNb03k0fK5if s1dIfsFVcQuuJmL7rEuuN9vvh+X93EK+9rspz40hy/HkkkXb1DFg9wRWuXdW GO4loujhntkO2FvZD0I01Jv2QFl69cTqEgVXc/5pvDayWhN6AUClyhFcZba8 w3XsP1LkBIr0Vj7d27bxe97xPwy1H6GM7zpnX4o5LeWaWco1uJr9em0HvXDg i5mXAde/dTXptaZf3c66zGjA0Z78oIIXg6B4CK5KgMyulzB5IOeQC+HHm274 R07FFwTyfOxCLjBLvlgR+n8RTwCUpm0wG/OeqxZDVjlycrh4Y+jOI25xGGbB 1d1wYK5d+i9qj1sGf+P40uP1+Xxez5eOT3tN8XQj7YkeW77Qq/yuiFys1RhP ntAmwsJnP3Z8NTm9f1Hj9PUPOwyHtC0f0DOJQPFWaPxSU+xV9R0jd7zeP9/o O0GJUPqAV/NWLCb8+Bt7vymZp1prMH90a+LhSiQn+shshny3B1v0mnhkOzVI 5caaZHUcT4yYBVejL/xZkdX9u+F+IumR4yrGhB84e5spDaVtOjd49cat2A+8 NnlXM22sRBjuJaLo4Z4ow5seXMq24Iquzft9P8yvq7F7EFBwlXnu7q1XbUIv AKhVOYKr+c7NLBqZ3F+pfXNjqOe0UXuowXRu4Jp7dk3sLTAyCq7uhr2/NqTn 4BbXMvEpl9z9yZ02NR32f8pwQgVlheCq+Mg9ZaKdOpEP11IkRTCRmd+1UOVd BXBEpqtx2NsltP8Xr+CqBG2DCT+k+09k5cjkwynPjdn0fXJUU9dqny1wpxKZ pbbh+Gbu2J/QGds6ewZ/6/T4F8L8W2J5r4hcrB3pcT+Prj/2un4f36Cui+VM Gtss/SM5O9O31wOxJtW+/5pYzttndxdE+C55Nm/l2Vr2OXqNqR+C7ozV/WPh 75EJP3INnKSodttMYtJC/CQTCj9hr4CcIADProOJrvlvxSKBmUvVtgzfmduQ ZQ+tAEz4vt1cr6FO9H/+YC35o050Dom7m25jJb4dhnupKHe4Z5ZcXewI4IHV ZoAb3gVXme3HN0/XqDahFwBUqyzB1dw5RpE0zvLIufaaHnehR54SBldZZWmJ c6+YaJDuStZXL+VEElA/BFfFR1YIkfQEXhHrMO+RR6WIdsyf+MjqKGU7jE/E EwBFbhtMNPSttT3roJMCGrro+ZJaSOxsZb1Gf9EjJJLMR/mviBguOZyLIY2K NO8yi77w3zhvSMYKKV3Hb6dCJeURMWHfaEsd1WoPbDOseowi9H1SyAkCcP9C mcgzH325nTwTR/vzwdt/X8ZJK7wxi+4LR/NkqMaLMSZwO04Ow710lDrcvw46 z2Y/HKy2MtoS4V1wNTpPdzVoVP7UEgDUqGLBVRmcDML12jkGV5kFZzvr9QW2 Qrzyj5xIvkpncQQSb7u95r/Rldr6NODiuKESVArBVdGRu0HZeeNi231oP87a Gsv/zyVOKYq/h5jH/ImO7Gbrhr1bZfmg4p0AKG7bYNbuDjexK32n+n2j6Wfa fP+DRtdDFz+tOJHHVdtse1DmM04qcEXkj0jS2EgpKtK8yyle/zAVdqB05s9m wqX/nhJf4rGByRe5Je4lmWoKkR0E4NJ1RMOhgNdl/7CDKIsRq1Nxi2+pYUja Drku6DS6dvtMdpex7LKkw2Fc4mAY7iWk0OGemXeezh6siCwX4I9XwVUmuv7w y4HEuIOCqwCgNBULrsohNLRAd2g5XDvH4GrOrS3wemZ7ztkZy3bQtwx9PuWb 9nro65fM8VwRXVPPNc+8CjaUvZpzX7fKxXX3nFKfhSK4KjrypyrxXeXY5xxo Z23q46bE0rKm0/FYzifpkJdsKUueoZgnAIrZNrYfOTvriSGwpXfE6fHPL2f2 4+9G1p8FfO4byc4/uRgpvppOJHmW//zoSlwRE6LNybeqaRz5x2sprouD8jfv MmJFVjVUy2/9HCKrcfGoRU2PeyW7NhRVP+KX1V7PnCBAnWnAThdyyz6yP5e4 FC+xkblJWmNH/0iizIbyZ22Vlji/iWr53UxOsVr2+WgcfnoY7qWkyOGeCTpP Z+etSnfSWVUpueAqE1l/HgotBPzecdr2q7bMgZiyK80NAFBEeYKruX9FFqGh FU9fA+szFZ7ucwuukiXWEzqdCwVWvruRkO+L0fcSpfCoBtNbln6r3eWdW6v0 XRJJvjZQQTJofjwhuCq2aIi2pNrFoVbHj1IuiUVZbTHRRVevPrEYqGux3Zf3 1JPsZsU7H7xMJwCK2DbCM7b21Nbq5p7rnoIpbTvh+fGRjlTcknrLMVcg1yOR H1hz1Pp9eVfdFbki8swU45B3XYwLEUKa5i0H7MhqafnGubbmHWc0h96xjZ5m j8Byi13kBgH4SM3c6G8QXBXB1pzjLUrT2O/J3fS/3zN3EfGw0uN4GO4lpcTh Prrk6sn+7df0uJYwvxYup9YKV0esPvXtBwEAdavq4GrOCQuFi9tzC65uLzg7 Oby56jFPxy78rIQTT8qC+tmFsacK/TIQXBUb2Q9IXQs67LMaWU2RR38bmXWY k0EqqnnUvynzhkxeslgRlbKdAChW28icRUI1/YoOlHYOcia6VTBwWpm01Upd 0YbP2pz8QmRRE0+K5i0Hm3PObuKw+6MX3DwfU8QHLH1DQ1ZRgMLPmssvOwhQ pAI/SzS8EloI/GPSZb/U0ZjJYTWctdK+UKTiTVSxNr+3Hq3RNF+b3c5peswz V9fhzLfFYQc6hntJKXG4zxcAVGsB7TLLLbjKEYozAIDylCe4uuUdqsvuM2UQ GiJzYBLOOOYPTqfhFlxlnVEV0+5cwGANgiG4KjZyOXB0YLLkJbXQv8Wrv2VW poZNqXTBVuu0fKuvpcRT11K9vkiL2bKdAChS29gOOE7HIlVU06Xx0g4DSkqd 6aDRfzCZP5BYobTVSl0RUcaQ2yk2UpGieVfcTtj/2xbiUaigDPB8VaEqXyw3 S3YQgG9OI7MZ8tq7yMqrxnccvp8wUnO3uzH5gV6jPe3ME+XKOtudSwQGw72k FDjc55TGLa0uKBSXU2tFc6jP9SSUz0LA7/NNT47dvk5WrtaZ6aDs2zwAAFtV 11zNrbRT8Ekrp+AqeX5ljAwO8AJVQHBVbOXc2CtwtUWmk9W1jPqUcMgduQ2z 9rj9oRgxlbKdAChK29hZ9VyMZdfo33Utcl6xMUtjF2J7Qg+qVLbk6W8se9pq xa6IKLiaP+pSdlI0b052wsHv3V/QtDNeATRWAtTc0XG67eyN2dd8b0/mXPIE YaeT5zvPVAbFcllyggCttlneDyuYaGis30DE/va7o7En8t7NLUPxvpc66wzm tpSsfdzxE9M4vS2Ge6kocLjPnIeVpuJDlCQYLw7+Wzm1Vkq6sUzYN5ocgFBw FQAUqGLB1YosQ3JkP7IsOOfnFFzNHq/lUB0O1ADBVbGRhdHkvNqKLk8MN6Ue BtW0//6fOWd8HCwSsLdVqIwYudoSq9GW7QRAMdrG7iPHqf2VQt7KgaXYXqS7 aw7Iztqdc5yiKP3ARFm3zlXuijITliJVW8tGiubNyaLLos+eXmmEpIZuBuxv ks+cqVOOOSFztTzTP7lNh3KCAEKLOO1seD9i7TSmTr4/8VwBsTH52Jq2HqHy N+Oss90PX/Zy2CxfDcN9BSlvuM/NrhT2bEXmRB8vCsitt1Bwc2hGqqoeCq4C gBJVLLgqkyeD8ZhDiUMMh+BqTsEBbtM/gAMhuCo2Ray2dsIzn5l1qbUW58Nl ErNcSmvqs9Hj92bnQ6Gl9TIVA5Qo+lSeEwCFtw3mtX+0UeDG6s2pocNUvhKj L33WExrqTXugnCvBSl4Rs/Y3m7mxpuH0wO0H8sjjqnhwlYmGX8T3Vc75b/en KhPy3ymTOJ+d6KGEZgjniV3IbjokpODqARJ1g0n6fjeOyCld+PuRVtMvvnyS O0rFn79kviuOWdDVMNyzMJHQfc/tq4M9HaaG+DvWNpg6egZ/c9PtC4ZFb5DK G+7zHAlCnXctq3WjocjjRSG5BVeP2WZL+jPJ86BRcBUAFKkswdV851nJ5ckg s0h3srr/g7chcAiukjuPNEUO7wDgogLBVeb55OU3cn7C5aV94/KkRJk/5GpL 6mNW+K22yPOC9xl/6QlxuxXZVUq43nwhTS05TxbhnSpAeNtIPL8TmKoXDzlq mq0+1lIjMXgJCnLyob4rEkI+zZvZ8g7XJT8I72KSr4POs+xzJwVuzGTdnzjq 8NCUvKZDYhVcZckt6S9xMQSVD9Npr2ZtPyf+5M9ts6+4/PMqGO7Toi9mvrSa DYe0TZah6390T/7NF/O3ybE/jPS2xO6CtrXPfndBzMes8ukPS5VnfaqIzy2U KONFwT+QW3B1YLK032oiRI+CqwCgTOUIruZOMmVyzm9cosJbxsET4JKDq9kB 2/xlowD4qEBwNd/TkfKT7HrJ1ZaFDkl6U3mstpho6M+DTen1Cq/aa/mOFCzZ oeaRH4QEQ8jmo7RVi/C2EasXJ/iU50SyaFYtnUSQofw7rNV3RYLIpnkT23Bq 3nGv8kpE2n5ga2ZP1oRuF83ZHCS/71fUgquEZZeFHaeWdperyofplNf/GGnM TK+516yoguE+Ifp0fPAkpescGQ+sR3PfYjeyMGGzHKM0lM782UxYtLxF2fSH pcrzuynX6cNMeO7unYmAeDefCzHGi0J4FlyN25y1taLgKgAoVTmCq+TxkakZ kZnm+yxWdEw0eNtMjgH6i568A02pwdUN/8gp8qBdw+B3a3K5WFA8ZK6KrZKr raJfIrN2dziz1KL0va7FPAulIpgFZzvfGy+82pviVluEcraNgl5NDhxi71be mBjQU1SrPbCtzNFFLVckl+ZNFqJsdfDayZ8s+ED++oUmWzJB2qxjvWXjqF/8 k1OEEL3gakqeqI2U4QKVD9PJi9z0Xj5M/D3uNSvUP9zH32hlathE6X5xM1Cw Hml0wd2//wkpXadzTqReVy79Ycny/EylKI6XR2KbgNS1KQ4gwnhRGO+Cq/t+ cvccQcFVAFCqcgRXc/tYmZzzm7b52EGmmh5qtt7LMyMpKbjKbD++ebqUUC0A L6i5KjZytSV1uRJuqy0mfN9urk+/mGr5rZ9PkgO5/4sjXsfBs7FiF0prtOVs G4XFz6GoH/Env//EmVD6TgXvm1PHFcmmeWfO0ORdQC83y1TwdtENTx8rE7bu lOORPPYspUlQcDUh+7xUjfRFPlXvxeTAMfKr4n5Eo+qH+71Yp+S5qC+tL2XW vhs07HccYnW8sukPS5a7CC5597owifBmZY4ZFWW8KIh/wdXkqIGCqwCgVGUI rub2sTLcJr/9yNlZT3zCVuv0avZMo5TgamTG3k7kaVCm4akVRS0VQe4QXBVb OU+4yKrGXOhLzF5qNV0aD/GLcyYKWB3tpR+E1ktMQg3/095RI073VfETf4Qo Z9soLL5RLn3Qxu4jx6k6jf6DSZlU1+FDHVckk+ZNljrkve8+5yBpodtFcwqu ViqSUIAkBVfj8qTEIbgqCLPq7iXC1bW97pxpelGqH+7TSYklVpRN1bAV57x4 mfSHHOTZ11OOzFVmO2Bvpfi1YRH+uhjjRcE/wL/g6v46+p/0+4PXpl9g7QwA iiR9cDW3j5XncRXMxg/XTh/JfEr9O18E2XvDigZXEzWOMi+oN9vvy+NEY1AP BFfFRoYUpF5tkSu7fXXtzid5e4ispZZGd84+85JvXxLPn+FwQvfOxvSnzZSA am8sylttEcrZNgrbWXadp5KpVsym75Ojij8nUR1XJJPmTSSd8i5onzsbFLpd lJ1nKMvvV6qCq3tkbtjBk0bgILrkIu8ov6CQ6of7dLHfEosepDa2iFN4Uyb9 IRfZ2fXlCa4mjnSsVAFqMcaLQoQUXAUAUDjJg6u5h8829nuW5BlxzDPD8b/I zA0KBleZ8EO6/0TmSqljXQ7ekdWdcPB79xc07bSPWPdd6rOYOzpOt529MSuv YmVQAQiuio3cu1fm1Za2g17IeQ0TDd0d7SAT6dtG/esCfvmxP1r6Hitm+S+/ NNTquuggv2pv2cjVVt7rlbNyto0i4j/8Y0Pel8mYFfWWY05gxYYKU8UVyaN5 E6VN+Re0z57haOqGvEK+j6w8Q01NN70o6eHsPEhWcDVPAVtNJk8beCCrRO47 +omPz5l6qh/u01NE04i/pKtLvV6UCrTy6A85YX50tLLy6zlsYOf9N+OnHles wLgo40UhQgquAgAonNTB1ZzDZ6mW380IOx5FUkzkicd6JrOxn2ruddwLReLP 9Q4KrjKboXs3+02Z/XSU4b/bp38SME3J2Z2XIM62nUp5Nee+bpWL6+65chRV kgKCq2IjV1sSP17PrsLX0OdZYb8i67Dg/d7k5OD4U0Ff9I5/pL6u1L2u0Xm6 q0FjGPQsi9W4Ege/Kmq1lVHGtlFMPMUudgOZJVdXjUw3gHCiiiuSR/POJF/V Hrc/5DlNyJ7h6C2uRQGfKVFEN02OaasSFlxN77YmUKedyiooLCu7cw7ipFje R62pfbjPTBGp0p6QpvKBM+WvhZBHf8gN+ZkTnagUyZwEZnlysKmSiUaijBcF CCm4CgCgdNIGVxN7/UjyTVslbK/NfGk1N6bncZTBfMnu8k5cZR/20Djg+sHn vnGpI/NKjfZEj+0vgXWB6RlMNPwiFDPnv91vSE0mJak6XjZ56o9VknIjkwiu iq2MuRbZv4KszJndSHBM9KXWXtjvtP7WFSjlaUKi1Gq+itMC/jyxmE2kKSqI nPJwYrGv/c/wOB6zqu91S3oqd1mo4Yrk0LyZLZ81VdKo2erjewxIdnD1xIhf wCPIrAfr8jzZU7qCq5vfW49mFQWQ20GuypIVrG6zByK83kftwz2riOihpsGx YKRg8IwJ0p36/b99eGhKjGcfcugPucpdqArr+opIlF2idN1fSpAyWgqRxosC f0BIwVUAAKWTNLgafew0kxmYJT5IlQdmM+T7yj5kadKyqxrkV9vQ1jfinBAc Vs3+EMQx34LP7a0s5unYhZ+VcivLgfrZhbGnCmmI2RBcFdvuhue9VBSAEid9 4yCvJgdY+8/IFeJOeOYzs474iYi01CpZYs5f3+l8JGov9pO750i+61WEMraN omKxL6r+3xx2RR78lI8arkh482ai64+9rt9b+yxtRp1Ga2zvGbbf8S9nZko7 0SKzppwCevuzl/t/dlj7z5kaqP3Jient/pHbE4HVIp1JdnBVyDbh6JK7n5j8 NXTR8yW8VyToHmrRHjKYfze9VuSnxkSe+b7+0xdf318WMKWUrOBqVtZunDzD y0rx+h8jjZk7mj8HePfx52dPvOH4Z8G7XAXDPStjltKa3rt579kB+wV31iYv xfI3aizOoChDszKHe3brkiqfM47ZuGdtPqTR9dB8brjwwWJPtPHiQCi4CgDV TcLgatbsWsN3NKkwJrL6ZOav7tv2kYEO1sGfGq2pZ3jE/kf35D8erUhU6YAY BMWpNg+Kh+Cq6GL75lO/ammfsB8YvtgKeT5q0VYwsrrHLI1d0Nfoe12L4j7/ IguaKbDkYPnaRlHx83FqjcZGme6w5k4FVySweUd/8t18zxT74etNvVec41O+ 6QnXtT6T9pCh6+ZMeDs8+8dYxSHq5PsTB6f1sgrofR5cmnb0NlOUoe2ijfbE 39DWa6TideDtfysUisyKBQmZcrDyNildp3OuhNKCieoQcUVz3la9Q83xVwqp XSBVwVVm7btBQ1ZsVW92PsZ4zRez6b18mLiZnXS+2GrAfryEHV5VMNxvh1wX dKw/rTf137wXyqpRmw7wGvvdC+L8daUO9zmHgzSO+qU44SIadPUeLflhU9a/ FWOw2BNvvDhQTsFV6qwzyKuGBwCAEkkVXGWiQbqLfCyrOdrrCip7blnwQCtJ kAX8hZ7bCyqB4Kr4kqfritgB5pedKFU37N1i9piXM47zBrKzLHtkNVFqlWr6 eKpYwhj3dyaGmAqnfvJSrrZRXOZOlnpSidyp4Ir4N2/iIBtd5+jUIvF73wk/ /s8efa3h4m+vtCffvVAUKFNAr8Zwrvec4ZCu3eqe2yDmC6+XJ37dFGvGuvZr /gPP2SQW3XG8M1fDM7b2TH9W6lN1MtRZLOctc8kHnsBeAmkKrjIhzy+NrKli yeFlOED8wDvie3It5bbMRCpCCT1JNQz3ySAem7Y1FmFNVgnYWp7+91hkVdy/ rtjhnlkd79eT34oEJeyYlw+uvVWjOdQ0fHeN21uLN1jsiTdeHCS34KqyjwsB AOBImuBqcuMDMatoGfVx7qLlpvzB1XhiT2IQVHbBVRAPgqvii+WypObVUt7W 7O52f/URfvL18Bus/7L8kdW9SJDu0UlUEJtYyVIW17Lo7y+1crWN4tJ3UjVL FRVcEc/mTRxkoztnn3mZ87vbWfVcJDb+FKgFShbQi72yacA1F86ZLCQrK+5/ ylMj/oOK7GWlb/E735mJzPyuJfMuxl96SqwsSIQ6E2Gog//Eq8n3U/NLAdUR pSi4yrycsZ9jJw1qqKZL4yGclC1AJhwUnw13ufIMVIm98KUkHFbHcM+E79vN 9ZpssSoBjvHxz4ff1O3//y0f0DMvxPzrCh7us9N9qeZR/6Z4E6Jkz8DjOYuI g8WeqOPFAX8gu9YKdcQ6je4PAKqI+MFVJrp87xprTD/UNPjnkFJKrRZQ7uAq uYIwDnnXpfxboBgIrkqALBQmpNJgYTm7UI1dfR3s5U8FIqt7TOjLbh1FtdoD EuRWEXswFfqEqDxtowTJAUjCcnDlpvwr4te8meVv308eZHP0gnsx/6+OVQaw wLEjRO2gQiv37QVnZ+JFtb3ug86rYxbpzkwPlXu4eQmXxnqwziXxiQh1Fssg JU73FnCut/gFV5mXAfpXTVmV5fPHQ6B05Ex43+Eu17Oc+8m89o82amqbbQ9K KBheLcM9EwlO2roNWQ0yqd58bSpU+Kwr7pQ93Gen+x5qtt7bEOWnG302YT0T i6yaP5vJjWQWJOpgsSfueJFPbsFVPuMIAICCiRxc3QkH6H7y+EuNvmV4XA2R 1b3yB1dzqo4DILgqCXLCKd3vOjNfzW9/Ge4XNY2kFMzy5GDTAStW4XaWXedT azuFzrHL0zZKkByAlHNKSFGKvyJezXv7kbMzEYGg9BfGDk4Wf+kdSm2FLlD+ lNzLb7g0eXBZj8xcr1Ax1XQtUx7L6qxkOW5P1YlQZ7EMUvKS250LPLut6JKr R8yCq9HFqdHO7JxV47vOWURWBYqGaEvmnuatCcAsefobNTXd9GIphzFW1XC/ vR74/6ztR/J9gDNW94+i7ihU/HDPrN0dZi1ghZ/vyUSX/2bvOkbt94f9dIBj ZFXkwWJP9PEiV27B1a5KPpIGACi/zMbzFL6TVSb82HOV/ZCUau51PlB8NYCU nDi0toNekPDvsaqO0yXurAPVQ3BVAmRujJAifoWFfVbjQSstynDeUYEEJ2Y7 YG+lDqpiJxwx51fqHLs8baO45A9fuTvocyj/ing0783HjlRyKPWmPXBwqiS5 Ci5QcZ0ooNc48o8Cp4YQE5hCAaX4wXbpnb0FP2HWPwzfd8RiCAlc9yuR+U7F MkiJSxaQHbfi6WOdUCqg4Or22sx/DWfHryhdx2+nUA1ABOzgap7uIlGJovRD 8apnuGei6w/HRn7RpKWohuMnG2pzPkitwXJtckGMU9xi1DDcZ/bgJy/kWJfj Ps9lbHQ1MGZtjx0+Um++do/74VBiDxZ74o8X2Vg5tAf9YAEAVGxnY/LDwxq2 ItWuckXDC/6v7f0mLSuuKmoxn/0ZwmOv6/fWPkubUafRGtt7hu13/MRQtROV PDl2M2B/k729htL3j3PK6+AmMwgqeNckiA7BVUkQj5lq+zzcikyVatFl0Wvy qVhRvkTCj3SPb8izg5U7xy5H2ygqEX1S01ig/Cvi3rzJY1NqOukDNnnGvZoc SL53oRAisQ/36MBkgejg7obnvVRsRW9xLR78yujyxHB6b3tN+388KJ5ttRsJ jhPZcfUdo3c57lci8p2K7NMhawYWvuQCmGjwtpkVA+DVDqMbsclvX2vW9q9Y XoFjmtdB25CLbLr5YuCR+7aWOo3+oqf0/LpqGO6ZjTl3PLJHHbPYJhYiO7FA 65W381QJ0L4xdOeRCGkw6hjuY/HV8eEW8rs7ZOy9cS/EpQArsxny0VZzIxUL pHfbWEdQlfweYg8We5KMF6StRde72Y2e/+YCAADZYyLrz0Nxz+Zn/+7zjtO2 PnZENDnQtgw6J3yz86EC5md9017Pfzlsl99tyxmrWUdSChb9yXfzvfjn1Jt6 rzjHp3zTE65r+5/8kKHr5kx4Ozz7x36TXkOdfH/iuQhdeOYuxSwE7vt8U54v HSO9Ldnz5/i8zNDx4fXbY5PTPvYNexEWOq8mVxCFS+hAdUFwVRLkuuCYbVaK YmGJEzeyUTqz3b8mbOcZX6kSi5IFuDJPiJR8qEEZ2kZxGz5rs6Dje2RH+VfE uXmTj2iLFOLYmbWlksAKrIK35h1nkq8qsnmTeGXRTTesU5koXcdvCuS2MZFn 95IztDjdGavnSUTAAdPFHvQQe7qp867lUn6N0fDK88yMbnpyzPFrsyGrK64x 9P2/3sLT3vTkd39O6HLare+05UkF1LcM3vZxisNAMcySq+ugWGj06fjgSYrD uWmJd1T7cB996kmcnJVdfCBvlvW+hi56Xuh8Uh3DfRwTfnRniH30mLa179od X3Cj4F3ajazN++7YL3U0xjvEI+3D/zXD8+sWfbDYE3m8yCyWgwH/frf61c0r vzDmRhSoRvPHjrHJv/l89wML6W50aV3ser8AABWQW15VZJS2qdv6+dTculgz ByYaujuaqACv6xxlPfvbCT/+zx59reHib6+0J6/q0MCkCIs0ce6S8CL5OQVX mc3Q/T87rP3nTA2UprbB9Hb/yO2JwCrCa9UGwVVpkHXY+B2TXUwmuyDtgKNa y+TVrO3n8Y/BOwGsMPIJkaKP5JO+bRSV3G1X0RO1xKX4K+LevDenhg6nd9yf dQYLbMoscRVMHM1TeDcoaxf8kR73T0U+KrMxd2e4JR0yTSyQ7z6YDz1fCW9H wy9CofmZu1/dHLlAPKDXm/r/4Fvm8+sgCq4WfdBDXHJJ2XG7G5Mf5M8gFBXV cPritTsIq0ojPGNrT7azxlH/68Q9ZqJr/lu9zZSm3mznunFb1cN9MuC8v26y OAL5NnRHX8zQH7RkpdbUdDoeCznQTTXDfcr+muvezVjqDkttQ9u/DttufumZ SqXUJEKLY7ftnw5YjqeWj3pTr80tZIEm/mCxJ+p4sf8Las9/VFppxFmwAwBU liTB1doGU0fPwKd22uN7tMw5XaEQovRN/uNWd1Y9F4lhr9ghCCWSSXCVVXD1 8+DStGN/DkkZ2i7aaE88d9fWG3tESB3rsv8Nu8+qCoKrEtkN2I8nf7+SnO6U czj1/pLwh7UK/ngz1bE6nQtS5NIQh3ofvuxVctRB6rZR6gdQ0W9e+VfEtXkz m97LmSpMRQKDxNq2wCtL3g1KpoaWnC28G4kFF3L2vOeKzUzsHv6RBLLg6rEh 78tCr81cconZcTsr7nelSSvQGds647Pf8XuzTwVvVoKC0gHDxH6xWzeuDp5r 0lK8T3ZQ73AfCdI98cVD0+Dk8sF/j4kuT2f9umu6XAcfmVSUeoZ7luja3NTn 1q7jpfYh2pZeEfJeJBgs9sQdL175R06UeEvyOfym8zFSVwEAyolZ/vb9ZFHx oxfcBxSbYZXOVtfeeaLquOFc7znDIV271T23QdyH18sTv44XRtO1X/Or5tQw KArBVakQ+/gkqMNGHqIR3zw78ayiXx/z2j/amPgwAo/JPkjmflKHh6aE5MRU nrRto6hUnlWRbBMFUf4VcW7eRPChaGBwa9p6JJkWVDfkPeiVxG7QImdzMyHa nE4zKlLUNMtuJHT/G9qerHifoTO2Wfqs8efqKwKfqxMFV4udTE1ccgn5t6Am 0dWAxz7Q0ZQMc2mPW4Zu8A/pq3S4TxXqLO1ICOZV0PNv8ROXEt1S4QzJgtQ0 3OexG1n50eeh7VcGe8xvGLNOGDG+Ye4ZvGL/8u7M/1wTZ7e7+IPFXpnGCwAA kKXtR87ORNVtSn9h7OBnqcTZlMXm5IpC7q/RHLiZiAnSnfHUXerUiF9FgWUo CMFVyeTU4hDT9oKzMzkVbxm+w3pQUhHE7F2aonNE6s4Jq69gNpoCSNo2imHm nadjP3r17KRT/hVxb97kATdF1rZEWl2BEOLOsut8cgVc5Gxu1pFAUp1exxuZ JVUk2B4N0V2pRX+FCnSASqhyuE8ngZe+MX9nberj1AF2/B9YqGu4rzjRB4s9 9YwXAADA2eZjR2fqbIM37YGDH4ESe+cVnACTB1kPitJ1Oue2815bev6mqe11 F39IDaqA4Kp0mKDzNFXShJa7xC4qfcvQV5Urskogj9vooEPi/wGiE2u+Npu/ B1MSKdtGsT+dPM9FpNI3MqD8K+LevFkbLQsHBksMIRIbM+tH/IU6FSI1VKM9 7ZTXXIkIy1BFroPcAFuxo+VAJdQ43KcSTjiFi5nlycGm+H3g3SGrbbivMPEH iz3VjBcAAMBValdLTE0nfUBFgLjSC8goCxk0NlyaXDvwyjIFYlWVuAuFILgq Iea5u7demgcWTGT+r1/dC4pamFqAVXdPavJOWVzLor//9gNbc62qJucSto3C 0mkkxcpRKobyr4hH8ybLuRcpxEGEEFmrYCa6/PDe7HKq2w/7rMbkywo/HyHP RtFf9MhrqkAWXC0W49rxj9QnL4Sd87y1MvvDLK+ztKB6qXC4X6A7tNxnh+m9 cnyDq+ob7itL/MFiTy3jBQAAcLUZsL+Z6taL1JknCshIdNp1hRAFVxtH/lGg BBIxAhutvnyngoLqILgqJWbT90nymX1NN70oxTFPskBO3iVoSMRtVM/kvFJt Y907FF8TUeddy+q4k0q/Il7NmwgMFjl2hEhbYleDjCUUEY9CMovlgj/h3Y3J D1JbTOta7bMy69TILKkiO/2JHFe9xbWY+R9id6zuuP0hKgMCF+ob7lPHwdcN e7e4xDhDdEfsn/ErC6DK4b6ixB8s9tQyXgAAAEfkI7MixdW35h1nkq9UV95m bFwtKWhMFsZhrzVAvRBclVa6lLGaJ5bREG1JBTQkaEjMkqc/cVhWbbPtgXru YUXaRnr1VOTIYOVQ+hXxbN6ppDJNkcQhZsHZnlrbtjufZEIk2SHEzK+40E84 02g1VPOn0xsymymRG2CLBNvJHNc2eyCS/h/iQVd1HWkK5aG24T69PZ/1Aykq WbeT34FWah3uK0n0wWJPJeMFAABww2x6Lx9Or/mLrLyI3RAKXaPlV3rQmHil RttBL5TvM0LlILgqMSIN4+gnvk1VbnEjNohJ0JCYRTpZNVt3wRVS02KrAm0j na1X+CBgBVH6FfFt3sQRcgXWy8y6f7Qt9YD5xIg/s/c9HgAxjfjTW1QyB18e fCeJFku1WqdlV5qdSEYtVigyct/WUpd8JWurbLzq4OHLXnX21SAptQ33u3OO UxTXOOfroPMspaH0/eM8Ogj1DvcVJPpgsaeO8QIAADgiBhQNdcQ6XWjltTVt PZIcVRS6RjtAal+PpugpXUR4WcApn6AsCK5KLpOJoe+kg2qcXpJdh+gN6aXP mjg3QR25QGzlbhvpbD3V9PBKvyLezZt57R9tTA7XVl/+TbtbofFLqZO7szI5 4wGQxlH/a+Ifpnf6HDBVYMK+0WRAst7smOWQylYmZDLqvk7nwgF3lFmdtram b4ym3bmQvl7mmavryOGhqYOPPgU4mMqG+/TpVDWdjscl/SaYpbELekqj66GD PHoIVQ/3FSPBYLGngvECAAC4WnRZUrVeih1tkNzGouA12gFKP6WLdaAk66kl qBiCq9JjosHb5sRvSxXZLDmITWciNyTy1n3kVeGesjK3jVRFSn4bNuVI0Vck rHkzC67uxEONrJyihMRiue5kR7sh8csk8zNjR8boc8IXqRr1eW9mdMHdb0yu lO33w3LsxsiCq7HP2et+nudjMi9n7Od0VFPHWz9LvpDI5oqn6p2w+pR5MhpU ntqGe2bjnrU5toqgmj50BwsdhhQ/9ujeNXO9hjo5OP6U+zRA9cN95Yg/WOwp f7wAAACOWNHCwkcbxDeClfRKhSFO6SoSXmZCtDn91LLwfjpQEQRXy2LzsSOx 102V+RiSBVczWUBNg5PLKp2el7FtKL08aS5FX5HQ5s1EF129+v1hm9J1Oue2 M2/ARIKTtm4DVW++dm95c9beWsee20SCdI8u72ExkRl7u27/DfW9rsVoJpsz uua/1dscX0ef6KcfynSlzJryxSPuTZfGQ6zpHBN+7Bnp1MWDP6/TG5DTSVnR oKv3aE0nvSjPCwRlUNtwz4TvO7qOxX7+2p8P3p4ORfJ0tUxkaXbsitlQq9F1 jk4t8pkDVMVwXykSDBZ7Ch8vAACAK/IEa1ZNrVzEttb6EX9mDGGiyw/vzS4r Nui0s+w6n4yYUl10qMB1kKdZaSgzHcJoWB0QXC2T7YDjtC52o3lul5OzsH/E lOo8Dne5nonUeexseD+KJ6LVGAa/W1Nxj1SutpGqSFmsSI5yKPmKRGneO+EA 3d90KLZkbh+6NT7l847T1z/sMNRShm7bZDASe1smErhp1sWX1R0jY96/uq9f MNYclFqWyj3T1BrMH8XecHrCZR9oi/3zWoPlqmd+Q7Y/RLLgao3x5AltfHFv OPux46vJaV/qzhzStnxAz7yIX3t6J2x9x8gdr/fPN/pOULpu5xxKAoAw6hvu o6sBj73PFNsMSDW0v2u97nR5vL59Ux6X0259p62hVkM1mq1fzqzxCydXzXBf MaIPFnuKHi8AAICzHf9IfSoXs3BaC5HwUNvnIc6Ije0yoyyuZek/rDRe+UdO 5Asa5yL302lPOwsWZwUVQXC1XJhokO6Kz1r1F8aW1PUDY5b/Otp1XEsZ2ga+ CETEubbMbkT1HzJbnraRfoJmHPKuS/Q3ykvBVyRi82Yiz3x37EM9p41aSqM1 tvcM2+/8wM4uY6Jrs+5rg+dMDRTV0HL+ssNbMLUsFki5ae172xQLmDSYOnoG r9723A+J9MuWCFlw9UiP+3l0/bHX9Xtrn6XNGMut0hrbLP0jzonAepS8jO31 wDc3hnra91+jbeoY+OzuQuGNzwClUOlwH91Y8H9L2z8d6Dn71n5nEo+0mt7q 6hu+enPs3tw6/yzdahruK0n8wWJPoeMFAADwQGxWLXBCYqwajbM9+bq6dueT zIAQC7rWHbc/VNx2wxTiFO+CdyBTmXzfQRtAQI0QXC2j6LJnMF7SqqGLnsfd LiR94kxNh/2fuSXC1KcMbSN1wqN6qr4o9oqqrnmXwUvvUKoGUpF9OgBlgOG+ ZOgPAQAAFCC18iocWmTW/aNtqcAi6yCn+ClXeat/K0UmuFowdLa7MflB6ugv lRSJghIhuFpWzMsH196KpVfpLI6AcjsWqaWXpcZ+90K1NEvJ28ZP7p4jsUyq gYmN4i9WBIVeUVU2b6ntPrQfT1U2UmIBXlAfDPclQX8IAACgCMxr/2hjcpeY 1beVd4tCuuhWIuHhvGs5nbT5Oug8S6VPOlCkaIi2FA+uMkG6MxlbxZacaoPg arlFn44PnoxtF2z6eGoNv7VczPacszO2obL6DpmVtm0suix6DXVqxK+oSGQh SryiKm7eUiJO5KxpHPlHztnVAJWA4b4I9IcAAADKwSy4uhMnVeVNQE1EVutO drQbErNy8tyr7Qe2Zr3C0ziZLZ/1SCIhdch7wHkfzKbvk2S5VarVOr2K2U1V QXC1AqIL7n5j7MgA82czYSy4SEw09OfB2JkL1brUkrBtRFf8X3/xTUBFd1Vx V1T1zVsq5ImcyivAC2qG4f5A6A8BAACUhYkuunr18aMPO51z25nBm4kEJ23d BqrefO3e8uasvbUuPi0/45hPxCAjQbpHp4Lqo+liqq2OvIdUMWHfaEvi2uvN jllVHGsKHCC4WhnJhBYsuFiYsP9au67al1poGyqF5i2ZDZ+1ORlbVVwBXlA9 dOn5oD8EAABQoJ1wgO6PPRuldO1Dt8anfN5x+vqHHYZaytBtmwzGDzRkIoGb 5vjJnrqOkTHvX93XLxhrTg6OP1V+uGkzYH8zfqbnWWcwZ6tc8pG6BtObqoXg asVEF6dGO3WaQ03WeyjHFrP7hD5br6FO9NMPq70vQttQHzRv6RAFV2u6XOo5 nB1UA116FvSHAAAAisVEnvnu2Id6Thu1lEZrbO8Ztt/5IRQh0xuY6Nqs+9rg OVMDRTW0nL/s8C6qJNYUmbHHng5T+l7XYjQ9idm/Xv+t3uZ43BXTm+qF4GpF bS37//LF5DwyxmOYZf9XX92d30BXFIe2oS5o3pIhCq5qTzvz7tEBqDh06QT0 hwAAAKBITHT53jVzvUZTazB/FMvdnZ5w2QfaYpm6tQbLVQ+mN1UMwVUAAFCu 9Cimod5yzB1QXR4AAAAAAEC46GrAc9Pa97apoVZDNZg6egav3vbcD0UQV61u CK4CAIByMWt/s5kbaxpOD9x+gD04AAAAAAAAUGYIrgIAAAAAAAAAAADwkNlQ WVQHHar0pwUAAAAAAAAAAACQCQRXAQAAAAAAAAAAAHhAcBUAAAAAAAAAAACA Byay/jxUmpUwirICAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAVEZ0bd73F+fVD863NFCaBJ2x/fzg1T9O zC5FGN7vu7U8/e+drZcnlqMiflgAAADIwCAOAAAAAABQKdElP/1JV5NOc6Ba g9lK+55xXp0xL2ed7xr3l3mUaXhqhf/aDgAAAPLCIA4AAAAAAFAx22sz9GCL /uAVGUlv6vvMG9oq7Z2Z6Jr/Vm9zLH9G1zk6tYiUFwAAAFFhEAcAAAAAAKic dEZKAmVo67tyc2xy2vdgdubv05Nf3Rzpa2uozV6c6c5Yxx6uRwsmsDAb856r FkP83+rO2WdeIt0FAABATBjEAQAAAAAAKoh5OWM/l9xDqG3ts4/PruTZL8hE nvnoy+06ir02qzWYr4wFVvPksTCbIR9tNTcm/gHV9Cs6gEUZAACAqDCIAwAA AAAAVFD06fjgSSqxSbD/D77lwpsEmejytCOxNzBrddbx4XV63Ovzz876fd5x 2v5xjym9OZHStnzkKXX7IQAAAJQGgzgAAAAAAEAFpRdlujNW94/hElNSmI05 9xWzIWeDYV5Uo/nK13PhHWkvBAAAoNpgEAcAAAAAAKig3Sf02fp4Rsqvvw6+ 4nxucPjxN/Z+kzYn/yVDb+qze/JuNgQAAAAhMIgDAAAAgMrtRkL3v3F9NSlw Uhpdm/N+/YX7+yByBkB8kSD9Tms/HRDQumI13O783tr3til9UobW2N4zfJ3+ 9n5oE8XZANQCgxqA3GAQBwAAAAAV21nzftqSSAag3rDNvOL5Npk6WpqaN53B XVE/o9y9mBwwmXo/vTl21x8IhkIvwtmn2TLR8IvQQsDvHaevf9hxfGhyo7pu kCpEQ7SlpG2J+6s9qw/JMwAVgkENAAAAAAAAymj3keNUXTom1EEv8HoXZtN7 +XA6tFTzjnu1qvJ8FugObYlhNw114pdjT7Yr/YmBOwRXAZQAgxoAAAAAAACU 084D27Ga1Pqxm17kF/bbWXW/k3oXSn9hbKm6dmeVGlylDN22qUWE3ZQJwVUA JcCgBgAAAAAAAGW1FfJ80t6gbWgbvOn7iX9EKPJPur9VSxnah/4kpKCWMpUQ XKUazdYvZ9aQsqpc8doOBT11D9QhuApQYRjUAAAAAAAAAJQlHlw1nrda+y1t RlaYNX7Ugt11b24dYVX1i/qsWgRXAQAAAAAAAAAAOIgHVzvoUPI/RsMrz0Oh 0PP1CDaSVhUEVwEAAAAAAAAAADjKCq5ClUJwFQAAAAAAAAAqiomG/mqzHKux uJYr/VEqb8c/Un+4ZfALVHuTfcOQILiKb1+BEFxVBZn3NgqHni2j6lsaGgMA AAAAgPh2wjOfmXWUhjr5/sRz7Kfe2wsHHBadhtK2fOQJbVX6w1SQ/BuGFJmr +PaVB8FV5ZN/b6N06NkS0NL20BgAAAAAAMSWWWgMjj9FXCKJeTljP6fTaKim S+NVuvRQRMOQpiwAvn2lQXBV4RTR2ygfeja0tDQ0BgAAAAAA0aQWGpqGLnq+ qhcauZiVqWETJebSg4muBzz298+ZGiiqoeX85RvfPA5zzpvZXg9MOEfeS7yJ qaN36Ma38+Lv7FNKw5Cs5qr43371YqJRPg10Jxot+deB4KqSKaW3UQWRezYF DWp7ymxpkaB7qEV7yGD+3fRakXvCRJ75vv7TF1/fXy6x68Qwl99+q573jd+2 DfdZ2oyJkSVOZ2zr7Bn8zc2xe3Pr25X+kOUUDtzqMVAa6vi1mdfVmusNAAAA UAgTXXT16vdn1oeahu+uYcaUKzpPdzXsT6mp5k+nNwSu9XbCAbq/qU7XPnRr fGr6u+td8TvfbL23Ufqdjy5O2boNlN7Ud5X2TE1PfmHtqNeIvzJSUMPIDa5G wysLAb9vnz+wsBIWsIAW89uvFkxk9cnMX9237VcGesysZem+2gbT231WO/3N /VBkt/DbREN/HmzSHrM9KPG+I7iqWArqbdRCtJ5NQYPankJbGrPk6qpJ9J/H hrwvC7521TvUHH+l3uJaLPUPYJhj2Y2E7jmHzAaKGLioBtNbb5oaalmjGdVo ttK+0KZC2pEQzPbjm6eTjdBChzDAAgAAAGRjNu5Zmw/tz5Zq2n//z0jRGeJO eP7uLWtPS3KGmYiT/P6O71nxf8rxc23P/+mCcf+DUVpjR//oF5WdvjJr3w0a 9qeVlK6LDpaeSJf7Psvfvt+kbxr8cyj5Ji+9Q8fiU/Q3bDOvSnqL6NPxwZOU 7u1r0z+lZrfMa/9oY/xddN1fhkS6TRwbRmWlg6uJBKrBDqOOvQIytPXttyGe rVSsb1/1mMhyYOoL2+C5Ji2lKQHVcHrg5r2DQqxM+L7dXK/RHOlx/1TiB0Bw VaEwDFWEKD2bgga1PYWNa2k7q+53kmEtTZs9ECn02g1PXzL+V9fufFL6FWKY S4q+8N961xgbwShtk2XI/uXdmfnQOtFWouHleb/HeaXXpE+NZCf6P3+wpu6b xiy4uhtSQ7fR6gtX+gMBAAAAyAyz6L5wNDZX0nU75zaLvfjlrDMx58xVazBf cc9xSFQpYnvW3lrH+gvaN4buPOK+01AsOxvTnzbHrl3Xbp8puLY5WPxu15y+ +Xg7fRlhn9WYuIHH7Q8Lp/HF3yG+fU9ncQTYM9sQ3ZGc5HeJk1HAqWFUXjy4 +tZ/TLit7boaranvmssbeLoWXw5Fwwt+99XueAqKnu+xyGJ8+2qWiGlfbMvK 6tHUNrT8YuCK/bZ7ctp3P7AQCoWezc/+fXpy7Lbd+m5bIi2I0pp+5fS/yG61 iXhL7AVnHPOlpq4huKpIGIYqRnDPpqBBbU9x41ra6uTA0WQLrBv2bhVof8yr yfcPJV96YsRfWnA7CcNcZtyhjBeuewLrheOl0Z98jndSfdEh4vmC+uysei6m QsmaEtKnAQAAAKpNJEj3xDP8dKcdgWKlo3Y3Jj8gJlf56M5YJ56JEtrb9F4+ nPv+lT17gln1Dh+Pf4xW6/Qq9zk0s+n75Cj1pj1ArOmYJ872xOKdqh/xF4v6 7axNXjJQpuGplay/zsw7WpP3SJSMAk4NQw7iwdXYXWzuveXPl0CyFRq/1BTP RdGZP5vhEV8V+u2rVSKs2m9iparWNrT9KhbfXimYGcZEVmb/fNVyjMr9aafO WIkv42yzJX9dCK6W0VbIe+NiLEJOaU0X6QDvbgfDUEUJ6tkUNKjtKXBcS9l5 YDuWTFyt6XGvFnrp5qwtddtq3/NsFI9ts1T5MJeMrB5qGnDNlTpJ2F7z2+P1 ezUqjq8yG1PDR1Op0/EBtoNeqPSHAgAAAJAPZnvO2RmfE1Kt9sB20Qnhbtj/ n9aPB3o6TA0FtvyKMycn8jSy6C96VitWECy1b45XXTLmmavrcE2Xa4m4O0Qh tRL2Pm9+bz16yDD4XU6ZODJZpdiewRI+KMeGIQeJ4Kqx371wYNAjvWzUUPpe 1yL3FZCgb1+VoquBsStmA5mtWmuwjLg47c5OJyJmYlbpSHh8vTowWXr2FYKr 5bKzNvVxEzEQUKcccxwDOXEYhiqPf8+mmEFtT5njWhIRZz7U6vix4BOrIG1O lcRpdy7weAZcvcPc5mNHZw2fAGl02TNoSN50VSb9hmds7ezutrSkdAAAAIAq kTq/QKM5YfVx2+ATr6z4udXcmH91q+93LwkLbOz4R+oPWjnXnXI8qtykbnuR 7o4vHA81j/zAaVdhfMnZ0OdZIf676JKrJ52P4ipy0+J/uqabXszNuCGSVQ69 P/lK2LJRQMOonA3/yFunRr8vvB+YWaQ7k7e7odvFY93J/9tXHSYa+qstkXSa RGlb3r/Ns+jlVsh9MbY4je3VDYcf/Ed7JkeGQ8HVPQRXy2b3keNUHatj5nfH MQzJAs+eTTGD2p5Cx7UEsuBqq2224PeTKbhaU/o5gGzVOcwlT2tiF7go/V8v Tw42pUbCdtuMmuqRkudYCe3vAQAAANQouuTuj2+uFHBaRPTFzOe/asqz+qT0 /eOC0oaWXZYCWUmtjvkKZp1E7tta6uJXyd4LWUR8fVTzjpvMd2LmnaeT56hn Jf/ks0B36I9av8/zJ5kfHa2HUsvZwnsGixKjYcgWmdVz9BMfj6NpeH776sK8 Cnr+rV1HBlaPddmnDjqXqrT3XPePtu2/Y80bb79tIBdyHAqu7iG4WjbpG51u AqedQc6/JwxDssGnZ1PKoLan8HGNyKAustOf2fJZj6RGuIFJvretCoc5ZsnT 3xg/t+6NDst7o3cecq2rTDy61dSYb6vnRDDWOVZE92pxLVf6owEAAADIQmwv XmIiKDCLg7WBlyDsbXeD7g+63zpo3yePSmJiSud1aGo66cWSZ9DMeuCub4Hc L7YbsB9PXtLhLtezYu+0G1lfWc8bv1p1p1KFiu0ZLEq0hiFPRDaUJivhqkQ8 v331iP40fe1tnYagO2fPPY6Kh0zbI3ApuLqH4GrZZGWu8tuGj2FIRvj0bMoY 1PYUPq4RBVcpM10wMhwJ2NtSP8nzrmXem/qrbphjgs7TrN/5sYHJFxzfY8XT lw5CKrCZ5Zc8x4rSaus0bLyKTgAAAACojrgz5/QhEeylZ69bcM07JhoOTtNW dlHHfRbRzg7mJ7NSOz7s5X2VYf+IKXWz3nXzr+An5HTgLKpfUkVDtCXTRPs8 GzzeQ5xvX5GY8CPXwEl2KYCPPCEOmaUFZZpfGqeCq3sIrpbPTnj2j/0mffzw ssGbvp+4320MQzIjQs8mw0FtT+njGlFwtWihy5/cPanE1eP2gJDYf3UNc1vz jjPsXzePA5t2NzzvpfuIEtK2FSB5jhV1asT71VBd1h3CEAsAAAASYTb911q1 NdrWa34ee43LLDNt5vF0Ph9m0X0h5+AP6qwz+FqEN99f2y7fu2aul9OqdmvO 8VYixMT3GBdWnh7PKF/qjQSdDpz/I4nUMOSHtZuZY1ZkihjfvgIx4ft21s+Q 0pk/myn1SOXSbE4NHSbzh7gVXN1TanBVUcOHWDAMyY7gnk2Gg9qe0sc1suDq sSFvwXzIV5MDyZA0dcQ6LeyhV1UNc2Gf1cjuOIxD3nWu78IsONvTb1C84LD8 Jc6xitdXIdKnRfthAgAAAOSXzoiT/4Jrf67+bvLxOr+yk3kw2wF7a/bmSRGP E2Wii65effoPVP4mE/W1+O3/Yja9lw8nL4ff/vT0O2Vq0xXbM1iYFA1DdljB 1axqgSUT/O0rTzkiqzHr3iFykcut4OqeUoOrCho+xIJhSI6E9WwyHNT2lD+u EQVXiw1YO7O2Y8mXcn4slauahjminEJidOt0zvE41oo1vRDhK6io1DlWuguu 0Ha8PDK7yrYaO0AAAPj/2bu/nzau/H/8/gPmxpdcICFZlnwRKUKIi6BoZS6I EiFBtBVCNBEyVSOIVhFEVWG7KqTaQKrW1bsFvRvS98ZqY2UVZ98dZT91+43b xe1C3sLZ4t11FFDXaSAyDU6BAEEOgmAYvnjGP8745/y0Z+zn4263xGDP8bzO ec05rxeANuhndZyqlafgqvMgIyvCUrLlx8u58d8KXGIUA/PU3RNfR0o6efp8 ajCxDDpyxSdnxZeqTSfvgqo1MFTGvAjeed9mtZgaz9vvPt4u9OP8PjxSv61y r77eRBc9A7xvN9V4eUKxagAk3slKCVuLkVzVB4QhbZJ1Z9NeUDvQbVxLIncM FhjJh7eRnkTqX/RjqSwqKcwxkQc3+07GYgfVYLN/HZT43JCXgRRb00Zb4n2s zB3O4G7sfxNJ/sRwHJ+rjGZnAAAAUGx6WR0zrwJjDfGpUZsjWDAXJeKVd+eu NaWtahU7khmT2pUh8TS3sogskIS3uentT/zjI8PTMmaoZG26Jrtf8kFM9QaG uvbnnacpEeONl1yV3vJD3tXXF2Ztxs7fD0i1jQU2VFpqEwUGpZxsRXJVDxCG NEvGnU1zQe1Av3Etibwf1o4G8o44oqGSMoOzksKcMvjbO2WWvS2lRB+rls9m t7lQn6Vygt0fKfGfCQAAAOVJL6vjF377SbUmfvs/OU6ktfyQdzYwzYq7m03x yCvmppzU7pqa085HYj7L6LI78U8NzaMBYoLKbC7c9y+I2DWhVG06NQeGish6 dEJm++Sy3WAotFjNR/rV15edJffbFt6XOrmVRR2psoFS7h5IruoBwpCGSbyz aTCoHeg2riWRAa7QMN4LjNbGH4Lx90zurM79c25F0kbWSglzSiHy2wYdb26P 97Hi9TLjNQPlYqz4nl8AAAAAQuhkdZzqF2M8Pv5Q6WlfWt0qgxJdFQhhupPN 7djokCYOqBGH5sQt3Mh/2DAWeJV6N8yyu8dYqGkF76UUqk2n7sBQEb+G6nl6 KX/ab3fR1ZX8cVmn9iRffT1hduddXWberlVjx83HEorRCZe8olSPhHspkqs6 gDCkZdLubBoMagc6jmsJ5FnsAif9iT2ulm73Uuo/xAoL1EgsiVARYU5BaYVJ u1yLKj6HVA3Rxyr17Ut7kB2bQLU6fy7PeyAAAACUmC5Wx2S/CZmn7bIj+ikk tLsWlZl+MTt++9HYK2rncN/OgvNM4n2K+KuYkKsjnq9K2w3Cbv4RtdtBmdp0 qg8M9TBh2kZRJmtb98DYnUDB7rzkWlVKO2CCxKuvJ7tBZ4eZn6Z63RFUucxa ssagpLU8kquahzCkcVLubNoLage6jmtxZMHVAkVsyNwX76qxSVfJb78CwpyS 0pKrejw4n9bHKoVfr153QRYAAAB0RBerY6LZh9zTdjmkjvQmVF+aeqnIsjYS GG2WnHJRyX7QcSIxzexwCeyaQiyC0uqYMSG664hlcFLwKkip2nTqDwz1xD40 i7GLXhLy6ac2MhmMttuhqKyRKenq68jWY2cXf6eK8Zj9R9U7WMSXcBJ3GyK5 qnkIQ1on/s6mwaB2oO+4xiI2oxZ6C9sPxltqso12tsuVjP5i5R7mFMU8cbXX GFJ0mFxN72NF/BdyNHITgl7PWmn+SgAAAChvelgdE7sg5J62y+lXT+9R/vxL oYNR8bSYxqb3O77hxFTa2ONeFvSXEX0BeM1/ma3AWBN10u4XfHySrE0np7pX MQaGerjP7VifO1Toi7cdcnXH36f5vGtedppQytXXDSb81Xl+QQABVReUEE+P SqyTieSq1iEMaZ/oO5v2gtqB3uPaQcZB7NxjOK3nILlPO3au/6is/mJlHebE YPaiewXeffrmTt0lVzP7WBHiFVEInXS4FH8lAAAAlDsdrI6J587q1R/LrHen yPRyd4k+byxaekeEJXd3otuP0L0xqY+Il/+JHcG28ItcFULUpuMvacUpysBQ E7MRGGujjGfGfvw193dvLzL7hY3LFlKnLk0+U2KNKOHq6wSzMjXUyP8iF2Xb 6kFiBSep4OoBkquqY6JRWXcIhCE9EHtn01xQOyiDuMYrYnOots+TLWwxL2Yd 58xUY+fZ32SmvPbnnafFJbczlW+Yyy+6uRj4gXbY+7vbrKZU6pqqO31h6FPX ZHAj8+RLqqKFgred4snWx4qAugAAAABQJNpfHYtpOyvd/qb3HX6rZn5vBUmY tYkBy+HklhJzurA4yFV86/ickOQT8yow1sD+g5phX/zgc/SXiaFTxsaRyRUx gyc1k5ezeFRxYDDby3OTf7k69LuWuuSgMFs7fz8aW5lIyk7k2jwSfTppP2Om jndf/VuWV46uBe/a29nMKlV/4UbguUJfUQlXXxeY3aCjlb9rtXgJJS65KvXY NZKrqjj8BnlvDHefiK+tTY2dgw5vcE3834owpAti72xaC2oH5RDXyIKrLKrx 8kSYVyuFiTz2jnaZqVNDE7+8WqLjZVySDcWiIXffMaE1c3Iq1zCXCxPdOLzb Xe6sT1xcqq75XP+wfczh+tLlGPtwkLvulKn5nZt+3vNcooQCR1/J1ax9rAgZ A1K5cisAAAAAJM2vjg9e+IaTXT4KtJ2VI6OZSE2764m86ddmYPQ0m+lpHg1o baZKruIFv9PkIT7zm+MT930Tfx5uP0pZ33bNvRDzQZG16Y4NTkmufaXOwGA2 F7xXu+v5GQ6S6bXhrx9FRI0MthpYzgOeyd9oOtE99N/Or7w+v9/v837l/Liv md14YzrZO54t9SqdpKuvA0StwoSqPo+I7WdyRNcXAv98sChuaKT+NZKrSmMi D119TYeLblPjuaGrN25d/2M87cCmdET+uQhDuiD+zqatoHZQBnGNLHFptJ46 aeIeDr7xofObqZnD0DZBx76J1aaW9+hZ7nHhTnjicmPsp2o7R7/2+b670X+S UqAATrmGuSyYyOPvHQPN8X2qVfW2D25N/rS6nfGcj9kK+28PtVj498DMZzo6 agGWs48VIa1dl0YDFgAAAOifplfHMeRpO1UfN2fUZZKX5WC2Zz9rYae6sjdg qILcq1A9OPVS4D87XKN9f2O4t8Nqqq5rPjd4zTO3Ljbpp1BtOhUGBhP5iR44 mbbzMZtam+OB4HUos+X/6JihptUxl+eT4vYUjY+wJ/liv8JsbevqHfrU5Q0s RpT/Ykq8+trGLLt7jGlXyjrs2yj13yUIkqvKYiIPHLZaA3Vy4MuH6/FjsNw3 kUW1j8+KyTQiDOmElDubdoLaQRnENXLn7dFez7PoxmOf+3P2jLo5tm3S2tY9 MJpxOH13Ixi7Bu2HPxPbXv7FvUUF3nlZhrkMOyt+Z581MWbMZ+yen/NfRCby yD14ikrdA4nRG789XnCv6KQcRe4+VoS0OhUGXWWPAQAAQEe0uzqOIxsoq9rp OKMuk6xVbaoHrsy6Yaohq2zJqxEnjlK16RQeGEw0/IO9Pa2bTB51PfSCoOER 6zptMVje9cpZcSuuVFdfRa9CrjfSEwgymk0XGZKrSmKWPBePZdmhuuntT+zQ EtfjBmFIL0pyZ1Ou4Kr+4xqx81ZqAWrFlGGY44s+D9y4UB8Pe5S589PpsKCt zkzEP9ZSQ7U6grsMrzitAjedYsrbxyqF6FsXp6+6BwAAAKAXWl0dJ5BHzKhu 94p6v2n/J8cJ3tEo6b+Oa1TEvoa4phjFRK7ia0Z8O8X6KxWqTafswGDW7400 VhuyMFubf2PK9h8M5l46VHDzA7e9p6pp/KG2GsmU6uqrJ+P7ezguZDWbLi4k V5WzG3ZfNBvM7Y7Z9O/nirs7mX8X0+MGYUg3SnJnU6zgqv7jGjmAVX0MIUT5 hTkSWxw4cT+jzLYvZiPChx53BY8PTj3n5fM5RGcxLSvQxyolGaeSFKhlDQAA AJBBm6vjFHJ2rHLaIaMuk8QZ5t769IeN3JTX2OV8rNnsDvl+i3b199Y8byeW XrJqACo5MHYfubpqU9fd1NI36vIGFlZS5/H3tzeeBv2eG5dt9UT33cIpC257 jxabdJfk6quICbk60vetyix+WFRIriqF69+UdS8Tv2+LiL8ZYUg/in9nUyyo Heg/rjFh2hZ/KWPD6L9fyfn7FVBuYS6Fl1k1UC2fBkRkVlnMgqvDZOz1rKbX eaZqRwNaOmaTS6KP1cW7hc4gZBaVLfMavAAAAFAiWlwdE8gnztWtzp/VnA4p sqplokvuPgs3561pGX+g4bpOq97+usRbVfSQFPMi6P6vnkaLqfkPt9PagkSD zvb4hyyvBqCCA4ObonOriqbe6968raP2IgsTo52JFSt11jmf5xQetznEeMz+ o/ZSG6pd/dI4HA896blVMVsTSw7JVYXszDvPUoaGAW/mgjttkAj/mxGGdESd O1sxgtqB/uMamcXSQr3rMgtzCfzMqrDNxpl2FpxnDNVvjY918ANnXb93Vfm/ WWGJPlbGbpeA955RbUVfcRYAAAD0QoOrYxJZad/USS+q+bsy6jJJWNVuzzlt tYkFzVhA0/Ueyfer4HR6P+J7vz7xuvyDjdFlz0C8tpex0/EfOSsdpQZGquEL 1fgHOiisQ3RqaZM3cardbasHql39UsnsWGHIbGOtZUiuKmPrR/sxo6Hp2txu xrVnnrp7jqTGh4hjwghDOqLGna04Qe1A/3Ft029viv/5mni2VWZhjrM17zpv Tt0gjl30SMzos0HHUleXVhSgy7WowRkLX7yPVYE+ocSPu9r5b7Kq37up+l8J AAAAlUZ7q2Mecm6s9iFf2ataZnV6pDmxV6TVPqPxKnfsvgXlMwZEPwveDJaJ hugeM/fxHOtzh+SNNoUGxm7Q2WFmV6CXJ4R1goiLLtA97JYYy3tT2ZeQWt62 eqDa1S+RvYfjx5OdS+KZDpnFD4sMyVUl7G9OvWcxmDpcWXrXMMvuHmKMiFlc IwzpiBp3tuIEtQPdxzWi4Kq4hnFqKa8wF7MXCXzaQuy/l7VZOkx3GjKUvFJu YXvrU5frRT05IqttS7uvAgAAABSmtdVxmmKe6pK5qiW3E9S0jPkjpV9Z5Eee QKw64fhJoQn1y8DoyfirmrudQe6S7a4HbvTUs8su6tSg+5HsD0eRgRFvNWuw vO1eErMCZTHLdy/GDt7m2A/DLHsHGrS6bfVAtasvyl4k9KPnDk27HKP2Q5f7 u22dnR1tb9yYeyVyfJBdoeN0tk8JyVUlsLcF6g1XKLPWY3TZTY4RtpOLqJdF GNIHNe5sxQlqB3qPa0TB1ewPOIqu5GFOuRjH2X4w3lJD3B1O2v0vpP91WZKr WqiUW8jWP0ebqg2GxqGpFaEfYmZdAJ0UlgUAAABd0drqOA1ZgE7Lq9royuRI Y+LJuLH98/9k9FLRHl4HVeVSOszuvKsrtpnH0jL85bR/xuelr8f7ZZgbe695 FzaV+GiUGBj7j5ynD9cpWcszCrG7RJ835tgCtz/vPE1RlsFJrR49U+nqi7Lk 7rakr+0MUnbOkC22E844F0QnFkoIyVUF7MzYj1LZxw/bvSU1Oo5c8Yk4LI8w pCNq3NmKE9QO9B7XUhmsAlVbi6bkYU6xGMfaCjpeJzdgUqed83LyxVmSq1qo lJsf9yEI6WNFIPZUl3A0AAAAQLnT2Oo4nS5WtXuR2S9s5sScV2JzgRhmO/zA e/vqUG9ncx37clV1zW/22z93+x5vRBVfJqu37tjfDvvvjL3T3WY9vHhUXfPZ 7gG7w+2bX1fuV8gfGMyrwFiDzFN1W9PDR6hsxeVe+O0nDdTrjqAmSwLElHzV eRA7VBt5Ho6ZD9weSJQ0lHKcP3NbiqH60tRLPWWWkFxVQOTH0dbm3331JDPf wCaFkoND7O6sygpD6aK/zlx70ywjXZaMazY2IrAhoWdg9M8efyiim7hWhKB2 oPe4xqz/Y9zWYKzrGLz9UBtbpkse5hSLcbHXWpsYsJC5Vbnbg7M8lBT31Kn4 mGjotk1wHytCRqNAjcQsAAAA0JCX857rdlk+GOzkGsEc6xz8QN5LXffMv1T6 DZIzIrXL7Etb1ZJ9mWMLot97JXXRiS4Hbl9qMVGxnTA9HzrvTs34D0176av9 zZbDxZyp5b07AttSCMW8nLqU7GSgq5TOgRIDYzvoaJO9T4NdbBqa7H7eRh5m ie4yyu8crSpNXX1mxzdSE/9bpFQazJJcPT4+J/PQ36uHjtPZNh0lxBIsnQlc 1iiu6jcy8sNFvBZlHz5S73Ru/LfEpfvt+Jyo31UxYSj9VbdX576xtx/lXlNK ro/ZnPd8Youdna+q7xy8evObWGDzTdDXh7sbzbG41vzOTf+vig54Td3ZxEJc U5Z2BoPcGHcYkEKuN/h1Q9scQTkPUHgfDhfTjgxPa/Z5cAyz5Ll4LNZwbfhv obAoQXd/Pe+96u1sCwAAAKguS06hlFSYu5JrDbUfNEtY1TLR8HdDjcn5qbQa d4cvcm+sk23ubO4amwqlHeVktp94uB6+1KmhiV8U/AjI4aPnRai0gREroye7 lTa3TSitmBuXydH68TotXX0uIcAyvuVZE50VzXIjlN+uIksdV4GqTzp+0kFy tfzDR8Krf482pK6l+LO0lRCGki+2vfEsFAz4JlyfDnY2EMkc8cnV6C/ekddi H1y2uHYQfR649bY19gtqbY4HCm501NKdTSzENYVpZjDIjXEHuw/Hm/gH2+V2 niL+pMR3XNsXN97HSiFqn0EAAAAAvWF+uXvxN1ThWURRUL+5ePcXpXc0lHJV W3AqzqzfG0ktaSlLn3tJ/CFHZuWHS9yL5OnsHA25+44V+BnxNLPukKCYAyOv l1OD1QZjrye1E2VzctBCUa2O4K6m9/do6OqT9TBbnRIOOqqSXD2IRlafJfa9 hIIBv9//jynPX64PtpsN6Shr31V6wnf4I3ML4fBzCYedS5BcLf/wEX+fW74r R1K/ScJZ2vIPQweZXyKqvu3dTx2DLYn/LTIXwazN2FvZZ4J5YtZ2iO5lv021 Xa5HSm0I1tCdTTTENYVpZTDIjXHxag8E2Z2nmBBt44eyhrGAtDZbxRHvY6WU o72eX0v9lgAAAKDMaKxoXjpyrdE6PqfqiSVxq1om8sBhq03+MNXyaSAiYTfC I1cX9yLGY/Yf87w97kRe7Bc1fTyzqUiX0701z1tGYW9We4o5MPJjO1akOs9y 3UAsXXRIw6uUA21d/dQeUYnF6DKTqzXDPrWO/O09HD+etqW1dTQgt3EZaq6q 5vnU4PHUtTL2upfF/qnlHoZYewuej+32Ucct2u31BR6FI1F+yUpRydXkHrMC cS2W4elii28Yu5yPFflgtXRnEw1xTVmaGQxyY1zmLlNptQUIm95+3k7YmtPO R7J2wqor3sfKfP4rSRVP9je976R1tOqkFxX/KwEAAKCyaXx1XMxOIqve/jqB q9r0JW3j5YmwhFzObth9Mb51gHrDFcq/DSH559W0OuaU2ORT8l4PchRzYOS3 NTfeaqAuuFfYBRPXqdny3lR6KxCt0c7VJyu/STyWmKUxhwI7V3Ng93TxyD2e GYPkqkqYNU8fsaiu6vOI3/pf3mEoD6nJ1eQes8JxLbmvmDL33V1RIHOnnTub BIhrytLIYJAf49hcN0labYHsfxL3ghKeOhWN5D5WKZlPYPV2cwAAAADt0/jq mJxSqr3WSGsnWtPuepJ1qZe2pDWYzzlmJbWaIisBFs7PHF6pnvgZXmXWOBpZ d0hTzIGR396K+wIV32XEbPk/OlZws5YmaOfqE3tysvSnFiZ9E46KydW9ufHj vN8kcbdtGiRX1RFddpOlc+VnNsouDOUjLbm6t+Z91yI0rhFf3txt6MXQzp1N AsQ1ZWlkMMiOcZmZQUn1cwj8/fwav7jxPlay9hXsBx0n+B9h9eCUej0UAQAA oCJpfHVMnpEs8qo266EhovkUh2obC2xImuQyO3770eTUlixulsNeYDTxi+v6 vatSficPue7Q3QmpYg6MAth1z/Fh34v4goU665zXfhdazVx9ovIbZaMl9jhn fna28reTHh+fU6R4RjriGUec7OOZ3OsiuaoGstRh7Fp95JfS6KeMw1B+kpKr zFN3T7zGraD0RerLK7uMZPrfjLgmnT7jWhptDAb5MS5Md/KCjty6N2n7+Q3G 8/SSUjWPFRevMSK3TduKuzutwrh6x1sAAACgQml8dUyuNVSuP7//k+MEOd3M TGCmNWU+nO2dGpr4Reqnxh67S877hWRUiAl2Vb9XbpFH3h+g60VoiRsTsGfS Yx8gs+zuMRqMXfSSDsrSaebqpzadpjWnFiXWI5u3bpK8CbaA9FPbso9nxiG5 qob9eefp1IJacu6ujMNQfpKSq6nykgK/0b96ehOPGRV4JqKZO5sUiGvK0sZg kB/j0pOrlm73kow/iKugm7oxanrbarzGyIkRn7xerpm7f5Wo5wMAAABA0Pjq uIgbD9KnXmlryf3t0F1Fl7S8LI2gjApZ7PGo3b8jc6lDruO4DSo6oo0dKZzY wufwb3jMLlhq+zzP9LAG1cjVJ/dvN9n9kp8YpHWEl/lque3M2I/yt7/IPZ4Z h+SqCl7Ojf+WuFRtjqC0en1lHIYK/DXik6vMjm+kRtxnRd6LzjgXZG6P1Mid TRrENWVpYTAoEePSk6snRwMyTrTvPhxvIp7gWN71KvF8UB3xPlaWgQl5qdVs x1t0FWsBAABADzS+OiZbfFKp1rVqSO9TQ67E9yKzX9jMRFJFgSUt7/inoFke b93d5VqUeYyL2C8kPe1QKkUcGAXFFj5U7X85HXpq+SH/6jPRjcc+9+f2/u42 q9lgsrb3jji+DqxEk0ugvWi04HIooxgdsxV+8J3TPnCuuY4yVNU1vzkwensy uFb427H1o/0YsRnHUNU0/lDxg44qFVw9QHJVDWRR68PbRIcrS6fz/cdfvnHy Ned/8l7EMg5D+UlIru4sOM8k/onA/XXk9kL5RTYQ1xSiy7iWRgthTokYl55c lXO/jS57BojmWHU99IKw19oOeYZbTNX1ts9m1gsMTGb7qf/bv9759sFK4TlA vpeJ97GyDHgUaLaV0RQs2a8NAAAAQBnaXh3zCo2qXH8+5/R1J+z9oMWk+JJW ZnJVdkE28jm+DieZxRsYBbHHYKus1gaNH68jybz60V/9N99pjn0pLM19n7gm pv0zk+5r/c2HK6+em7OR3cjcXwaaLYfflEuTefc78YrRfRlannH2NVFUfdu7 47SXfc3xPuvhL6GO9zj+UWiZxm1xIUgssJkHsUxO/A5FCq4eILmqvLTNzJYu OltuNdblpHCGvHzDUH4SkqsvfMPHRf4T8rfkbOAlFOKaUvQY19JoIcwpEuPS nrnIqUXDewpJmbtc87uCvnBcdQhWwT3Aa77hJu6uK6t8QbyPlcXmeqzEjY7c xsyRv0UBAAAAgKTl1TGLrEKvZv15tsIYoWbEt8McMC9mnRfqyZSNYkta3kxP fHJV9plB8tVKvEVGkmINjMJSn2TzaKCULUhEkH71iWY65q6x6SVi3O5FHv9v r6Wq/t1PP2k3CcoPpIrRGevP9Z2rrza32z3zm8Ri79XK5PuNsQttbr8WiORd BTJrEwMW8rt67KJH0TKBaacpDUpWdkVyVWn8dtjGXneWvU9ctlzA17Zsw1B+ EpKr5ENDCclV2eMfcU0peoxrabQQ5hSJcUSGVt79NjI73p66kZh76ZDA3bx7 a563EjnZQnuAU29ZzrOSRB+rVkdQWPq3EHJTvagbFAAAAIBAWl4ds2I7ORKT QTXzDum17g6n4pEn3468xvs/lVzSkpNVYXtUeJuaZO/wIRZxVLd7Rc5LlUSx BkZhyU9SR/0RJF59opmO+Zxj9kXGCNxb875LHL2rbnX+nHuUksXoYj/cOOie j2QsgA/XlV3sS1KnRwP5C9al9ekwGI594NtUKr3CbPk/OsZfm0ls/ZwNkqsK Sy3wY4w97uUs+1bZ7lENY4FXha5i2YahAn+O6OQq88TVXiPun/CTqzLboCOu KUaPcS1N6cOcUjHuVcj1BvF0RVppYmZ79rOW1KtYf+8VHr7WpgYT0Y974pP7 t7ycupTYZiu9Niyzed/eVC0g6AvHu8+wMtsFAgAAAMih4dVxHFk1S70/kpfq ZCeePf2dtbyJmNJLWibk6hCxR4Wcsiqw8CKOHypWN7K4ijMwBIgnveU0uy82 aVefWfnhUryZTu5NobxCl/n7d5Cn7POcT9xddHVxP1TV5ynQ1SK6QPek+sTF FrMj99aVyH8yEf9YSw1/aabkFUdyVVFpd8sjPe6nGaOAeRUYaxBam7dsw1Be 4pOrUmrX8JMe8rZrIq4pRodxLY0GwpxiMY5ZortStwYpWcF4ujKu8EkQnr2H 48fjv97Y68lbCocooSz5ZAezNmNvVaaPFSH90VXJe8YBAABAudHs6jiJnJ2q d4onNbnNznzOEXiu8AfELHsHGuKvX31p6mX+SeSGb9jKmxfKSsLsrbgvJDK7 On18X5yBIUB8Eaqj5imSrv7uI1cXt1SlLBfvZtkHGEcUXcxfGo486lh/eSp3 j4zUmkhArTliacyptTkeiFhFZn3NyAOHjZ/jipHa+jkbJFcVxc/XZa0JwN1+ jefpJSFl98o3DOWju+Qq4ppy9BfX0mggzCkZ45KFTGMKP2dM+0N4Iay6cei7 sJhWU0S5kvynUfhvud21KCXy7iy532Y38ipcj4IsaMxdYj0WDgEAAAAN0+zq OIncgyT7LHxOmbXuiRlY/QVnlqNh8jG7j292xLcDNAx4c0/kuX0LVTWmmtSZ LnlJGGJpQPVo9dLnV5yBUVh8WaSns5MSrv7WY2di4wz1uiOYu70JubZqdS7k uSpEMbqG0X+/yv2DRMJGSLaBiYboHrKpuqG2c+yeqLUk79USxfeoxuHv7tob kq+qXMHVAyRXFcbP12X5bnInZIV36injMJSH7pKriGuK0WFcS6OBMKdojGOW 715MFhXP/+el/cPIA2fP8cS/FJ1Z5e+obx2fy/t7ibcsZes48zLk+WNj/G9V OKwwi652/k1VbhESAAAAAB7Nro4JbNdaTlW/V7G9YjxL7m6LIRuq8fJEWL35 19a86zw3R6daPpvdzlW4K+z9fVP90J+uniU6WslJwpBddPW7eirGwCiIW3fo 6uyk+KtP9ooydtH52kSl+hoXWFsR20iODU7lOWi4v+l9J1E+U2D3YaJoXuJ7 bG633w2uifrKMNtP/bcvsS3aKXPnp9OH9wFmwdWR2GFU4HSkOEiuKoocM9mu 1PaD8ZYag+Vdr/Cm2+UchnLRW3IVcU0xOoxraTQQ5pSOcdGVyZFE4tFgbP/T w8zyrRmvvB2asLcnC01Ie85IFFwt8EiRrDGb/y1n+bfR9YdfjbxONO5StCUl 8+LhtbO8oiuHmq7NKdMtCwAAAOBAw6tjAjlJPj4+p8YxHq6zScaK1mxzBNaF HBqVgXkx6zjHzidz7CiI/jpz7U1L44fT60+IRszyqkWldhdQR+0zen12X4SB Udim394kp3FDCYi++ltBx+uJJV3W8pUpe3Pjid1C+ddWROveAof9ySa/wod9 bKX25cBJcgOrwXC0bfCLbwOLkQKry2hkMfDtjcud9ezHRB3vHp9c3OZWlMm2 VoVOR4qE5KqymGV3T64MVfSXiaFTlLh+LuUehrLTW3IVcU0xOoxraUof5lSI canpIntn6PzvqcWc9aSY7af3b77TbEq8J/MZu/dJrgf4+RAFVwv1cCSKWlAX 3CsFx240srq0MOef8vzl+mVbPT9asy/S1Dv+/6YCwcXViOgAc/ja4UOHLz/t pf90ubMh8+UP47i19388Pn8gGIr9bHh5Y1uvDxMAAABAA7S7OiaQVciktUkt JLUPITXpyt7XVQ3M5rzH3m5mN8i1X/ly+j/h2ESSiUbCwekv7bYGI7dtibdu FbsrgPf7iN0F1mHfhpLvpajUHxgFxRtbaPnrk0b81d+aHj6SPI34hiuU53Sj 8OUk0bclf/WAg1Vvf7JH1dFez6+F/+Ak5uXivc/7m9N3A1J1py8M/bfzK6/P /6+5haeHa6rF4AP/zJTnzi2Hvb/Tmtw7Y2nud3jT9rsyq9MjzVTB05EiIbmq tMjseHt81DaMBV5xI4yJrgdu9TVRUirxlnsYykJ8cpWXH5aSXJWxVxNxTTn6 i2tptBDm1Ilxh9PFr0dakilTqsH2ofPuvYcL4Werkd1o5Hk4vDB775uboxdT adXDQDbwZ/+KxIFEFFwtuJOZeMuFdwvvrXv/QOxTzUtQqpZ0+CVqz5ZNLfBr UIUVAAAAZNDy6jhlP+g4EZ/8FNhRIA0xe+QcLr3/uS6xSKPEPyG6EfTeGOlu 5E82Ta39jh8WuMU1L7kqZ81FtHM9csW3peNTUWoPDKF/gJ4yYmKvPrPlu3Ik Oe4KrJiIRWL+nxRcPYDcNiNxJ1V0LTh5y95zgt8pOO8Sq669f4yenl/PflWj y4HvZxal7AHK/Tciuaq4+A7VQ1X1nX+8fuvG1aFzjSbKQDX1uR5K6HFWAWEo jfjk6sEicbxCSnJVxvhHXFP6D9DVzYhPA2FOxRi3vx2+f3OgtXBEo+rb3s14 PigOWXD1+LDvRb6fTb1lIbuFRSRXqWPvT4urcP4yMHpS2GuTjrzueoytqwAA ACCVtlfHScR+GBWqkJEtJNjDU5NPS/dZRCOri8GA3x/bU7fMO7+84u5OPok/ avfvSF1ypT5M6sjwtJLb74pP3YFRUGKLUYF9KVoi+uoTq9SCK6adGfvR+BjN 3yqCOFZZoI8zE6ZtyWEvq4fU/vbqz34v7fhkqNf2mtXE29VC1TWftfUOfuK4 7bkXeLSiaN5UECRXVRFdC3odg52N8SyE6UT38A3pqYYKCkMcCclVojyj0H3m 5EZNGUU+EdcUo8O4lkYDYU79GLe/HX7wPe2w93e3Wckkpdna1t1vd9Be/6NV +aGM+EYXOI1CvmWRZ0wAAAAAyoHmV8dxxPpL0SbdrN1FVxc3qTa1jHw9v6nN 9QQxcZW14CL2R520+/PuQ9ABVQdGIYn2RtWDU3qpTCf+6pNNdgosEokNV/nX Vnsr7gvx1WSBPs68zkSFCr7pGJKrelBpYUhCcpXMlAqskBzx262JfyI9J4O4 phgdxrU0Gghz5RLjyF21BZLth7eLnkSSuETlLAAAAABKSTerYybk6qAETX3F 4w4QWVqGvylddbuCeIezBqeeS30dYtVWFp1S1RwYhX51vGmOwr2N1CT+6vNO LOZfMQlfWxFH9grUOCM3wpk6XHrdSFUQkqu6UGFhSEJylcwU1bS7ngj4wr7w DScfG7Y5gtuS/lTENeV+tf7iWhothLkyiXFEmrpgPVKiWkLJGrEBAAAAlJB+ VsfMM09fLTdxq+rzrCk5AWW2F/7vm/uh4p8FFoOYuB77yC+5oNzuw/GmKm1O 4yVScWDkl0wjFCpEph0Srj5Z6bf60lTO1sQHvCHKW4Yx0ZWf7s+tEPcXYq9a /ubgZJMRy7vevGcSdQ3JVX2orDAkIbnKO+MsbDATZVoll7tBXFOMDuNaGk2E ufKIceQz/UJJ/r3AaG38jfD3PO+szv1zTmo7LQAAAAD9SJxdEt2Ls/iYLf9H 8Qf8xvP00m6p/x5F7KwEvnGMfnztjj+8nffo3+bkoIWbuFq66JDUlRbxGWpu Gi9ZqQbGhm+YXT3p4LvDkXT1iRVTgTYfxOYfftmK2M4cqtu9kvp/UgvPvOmX /c2p9xJnNWtaHXPl8Z3PSp/JVR2FD6WUZRjKRUpyNXmoPDYueN/6XL8kmdeS XCsVcU1BuotraTQS5sojxpG7aguc9Cf2uFq63Uup/xD7xGqk11IGAAAA0A8m Mn/Pfcd9b15C9+RiY0J0l0Wrs1AJmN2gozXxqL/Rfj/32nV3iT7PTeipprGA 5G2rzLJ3oIFbFjSNP9T/B5hQkoGRXGQV6CysGRKvPrGvLO8OHGbR1Z5YJPKO A2dZW6WSNvkWnqnLejjsP57Z1ONKXyh9Jld1FT6UUm5hKA9JyVUiWhlqRnyF dqIqUCsVcU1BuotrabQS5soixpHVEgok28k9rrziHuwXvMnuL3pbNgAAAADI h9iTIOdovFaQS9e8U/Ctf442sX2kqVb7jPQDgswS3cVNf80X3eHyWYOWZGAk cwJ5+gVritSrT7RRzrPqZDYCY22JrT8nRwOpQ4Fs+4/m0QCZmWF2/PajBT49 4prKG/a6oNPkakUqszCUh7Tk6gGzNjEQP2dRMF/6KuR6g/tR6rRzXlI2D3FN yV+pt7iWRjNhrhxiHPHgo1Bjte0H4y018Z/k1VVgS9QeueIr5/skAAAAgD6l tiXIOR2vEUQ/WQNl7ru7kvX9pObztTbnnLRuH6wXfjvXYaEcN1wVe2Ak92lI b29dXJKvPvMqMMZ9srkrIu6EJy43JoYyf4sLmzxpGAu84v/DZKG5HA2ImYh/ LL5Ykzns9QHJVT0pqzCUh8Tk6uHX+7GTS3FRlot3l/N8QNv/Gm2s4lKrowFp e9sQ1xSku7iWRkthTvcxjtyMeqjLtZjjE2XWZuytyQ/G0O5aTL5f5qm756jU ch8AAAAAoComGrpt4yZ8+t81tD/vPH04JTW19I39NZC14D/zMuT5Izufr7U5 Hsg4e0t+bh/4tHb6TAFFHhiJWmTUG67QK5V/l3zyrj6z6D7PtfBI24DK4Zac Nac62+szN67EeotYsq1zt4KO16lcH2B00TNgja86ZQ173UByVVfKKgzlFA25 +5IVF2taxvwivonRBbqHu2kc63OHsg9p8rmhxK854pqy9BXX0mgtzOk9xpEF V2N/Z5/nWZY/k3kx6zhnpho7z/4m/oPE1l92iiu13AcAAAAAqC65K0b/O1WY 1emRZoo6Neh+lDG7ZqIbP921nzHHJucnB+ifZE2/UxtgGoemsu+Q1b8iDgx9 FaaTe/WZ6JK7L3bOlzJ3ueZ3Uy/AbIemxs/XU7W2a/dXtuYcrdw+nGTni+0Q 3WvO1VVke9bRbo7tbetzL0VTO12i64FbfU2UIsNeP5Bc1ZsyCkOcvQXPx/aE D4f732yuqzLwUCZrR+/g+8kfsjv9G7lfj4k8cPYcZ7/I2QJc9NeZa2+aZSaX ENeUpa+4lkaDYU7XMY4suMp9/xsvT4R5ewCYyGPvaJeZOjU08curZEGG5A5e 9umMsYte0uYbBAAAAIBDu0FnB7ssM/fSIe2dphIl+nQylkGtqmt7y+74i2fq H37/jM/7/5yjF5tNh7NvS3O/4/uFTXmT071N3wfsFgRj/dDf18t4olusgZGo RUYdtc9ovjCdIld/LxKkBxqrYwvP9uFbE9N+3wR9/Y+d9VVU/fnxqdB27GWZ 7eBNm5ldnHaO3vX9n+f6RasxtuzKkS1koiv3r9lqDYaqetsHsdecmXQ7Btti r1BV333VK3fY6wmSq/pTTmHoIDEETda2TgHONtdRBVr/sK+5HKCvtLPf6Lq2 /tGb30zN+Nlbx3B3I/vY0HrRcY+7e0iAuKYwXcW1NNoMczqOcWTBVaP11EkT mwyuf+NDZ/JbfPjJVJta3qNnn7PvPVk2obZz9Guf77sb/Scp83nXPEoCAAAA AGgZEw3RPez8tkBJN33Y3Zi/73Z8PNjb1WZll5x1zZ297129+f/55tflZ1qY zft2th+WFtvRKqw4A2N/0/sOu6nLOuzLs3VLExS8+sz2U//XjuHeDuvhOstk be8dcXz9z/A2ucOJia7Pea4NnWuuo6i6lgtXnL6lAgM4uhb03rRz2+TYcT90 9bb3QVhqvkWvkFzVoTILQyphopHFgPf21aFeW5vVxIW3sz399s/dvscbUemf GuKa0vQU19JoOszpMsaRBVeP9nqeRTce+9yf2/u72TkqZbK2dQ+MuiaD/K/w 7kbw+xvDve2HP2Nq7Bz84t7iS02/SwAAAACIia54h9jiV3U99ALSETklew0Y Ox3/Ed6RRL+KMDASnYXz98/Vgoq7+nqF5Ko+IQyVSMXd2RDXcqu4wVAEL3zD xxPlAHroMO5tAAAAAGWNefHw2tnYs3VztzOIGXVWyRWZdcCzWCnzY9UHxq+e 3qOxTUSDk9L6WxdLRV59fUJyVa8QhkqgIu9siGvZVeRgUNv+T44TiZLLeizA CwAAAABiRX+ZGDoVOyzX+OH0enkfDJSA2Z13dcXOEmq2Ha1q1B0YS+5ui4E6 PRrQ8hq0gq++DiG5qmMIQ0VVwXc2xLV0FTwY1MSEaRsVr7faMPrvV6X+ewAA AACgGKKLngFrrLmA7YvZCBa2SUw0/N1QrDVDpS46VBwY0dXAt3e+D2r4U634 q683SK7qG8JQkVT8na2i41qaih8MaklW39VlAV4AAAAAkC6+nQML2xQmErjW bq70RUelDgxcfd1BclX3KvVuU0y4s8VgpLEwGFSz6bc3xXOruivACwAAAAAy RZemx7rMhupG+32UvTvYf0K/UWugTg7QP1X6oqMCBwauvg4huVoOKvBuU0y4 syVhpGEwqIcouGrscS/j4wUAAACoODsrgb/dmVrYLvXfUXrMSuCbb+4tbGJS zKqwgYGrr0NIrpaLCrvbFBPubDyVPdIwGFRDFFw1dbgW8AkDAAAAAACALiC5 CgAAJZcMRgbqrHN+p9R/DgAAAAAAAIAgSK4CAEDJMev/GLc1GOs6Bm8/RMkF AAAAAAAA0AskVwEAAAAAAAAAAAAyRMN0t0EYJFcBAAAAAAAAAAAAEpBcBQAA AAAAAAAAAJAAyVUAAAAAAAAAAAAACZho5HlYmGcb22ghAgAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAABQJqLrC/6/ua6+d6GljjJwzNb2C0NX/zI5t7zNSH7dnZWZ /+lqvTK5ElXwjwUAAAAAAAAAAAAovehygP6op9FsyKmq3man/U9Fp1iZF3Ou t62UwUA1j0yvSk/QAgAAAAAAAAAAAGjL7vosPdRiyZ1WJVma+7/whXeEvTIT XQ/c6muKbYI1d41NL2HfKgAAAAAAAAAAAJSJ5LZSDlXf1v/JzbtTM/6Hc7P/ mpn65uZof1tdVXqG1XzGfvenjWjeXajM5oL3anc9+2/N5xyzL7BnFQAAAAAA AAAAAMoE82LWcS5eCMDU2u+YmFvNcuif2X7qp6+0myl+grWq3vbJ3eBals2o zFbYT9ttDdw/oBr/QAeRWQUAAAAAAAAAAIByEf1lYugUxZ30H/izfyX/SX8m ujLj5A74p6VYO/94nZ7w+QNzcwG/b4J2fNjbnKwwQJlaPvAKrSEAAAAAAAAA AAAAoHnJzKr5jN3zc0TgvlJmc97zia0+o0pAVlSD7ZNv5yN76r4RAAAAAAAA AADlxA7wfv25vf/NZq5MIlXX3Nk37HD75tfRSgYAYvaf0G/UsttK3/829FLs gX0m8vh7x0CzKWMTK6/plcObtWIAAAAAqGJ/O/zge/c3U3Lib3R93vftHc+P ITwbBQCAyqJEGD1AJC0L8U1l1abG7uHrtNc34/f72X40F9k0yNF2+w/h/A1o AKAibIfot1oH6KCMG376c5xY1VZre+/IdfqHB+Et3GgAAACKaG/d93EL99yT em189qWU10jVCzIYX3eF9pX+GwEAADRKiTB6gEhaDpjtJ57Di2j67dDtf62k Z1D3t0N3hxqrDy9v/cDdCsuvPp8abG7u+/jm3XuBYCgcfh5Jf/tMNPI8vBgM +Cbo63/sPDE8tYkvAAAAAADox/4j5+maxPkRUye9KP4lmC3flSPJMyjGtzxr 2HIDAACVQYEweoBIWgaYyAOHrZZqvOSe38yROWW2/B8di13ghgHvciVlVxfp TpOg+pCxJxQnf3/3yW6p/2IAAAAAABH2Ho4fNyZWc+fpJQnz2b01z1uJl6As F+9W1IIBAAAqmgJh9ACRVPeii54BK9V4eSJ/S+6dGfvR2PZkqsMVqqBLLDS5 StWfH59eQolIAAAAANCbnbD3o/Y6U13b0E3/rxIntNv/oQdaTVR9+/Bf5RQO AgAA0BslwugBIqmubT12dhmNZ689fFEoY5pIM1ZfmhLdwUa/BCRXqQab/avZ dWxZBQAAAAAAAAAAqBzM7uObHca6HnqhcGp9/yfHCa7vTDcdrpwdmmxy1XrB bh/obrPy0qxs8x2H+/78BtKqAAAAAAAAAAAAFYYJ0V0WY8fNx7sCdqJuevu5 3KrJ7q+c3CqXXO2kw/H/GY2sPguHw882titn8y4AAAAAAAAAAADwsT2qqNOj gU1BP5xoW0bZ6HAFJRbTkqsAAAAAQGKi4f8b7z5u7HavlPpPKUN7gdHaIy1D d1B7DSMNgwGgfFX8/U1VuHmCqrhtq130kpBMKbPsHWhgc6uWLlrZflYav40g uSoe7l0AAACVYi8y+4XNTBmoU5cmn1XQ4/fiiQSd3WYDZWr5wJu/+WyZw0g7 wGAAKFO4v6kNN09Q0f688zRlHfZtCPhZrjQrm1s99pF/S8Gvu/ZvI0iuSoB7 FwAAQCVITeSGJn6poKpRRca8mHWcMxsMVOPliQqdWWGkJWAwVJro+oL/b66r 711oqaPinT/M1vYLQ1f/Mjm3LKNQ3c7KzP90tV6ZXKno75M24P5WFLh5glq2 g442oZnS3Ueurlq2IkDzyPSqcilQXdxGkFyVBPcuAACAMpeYyBmEtUYFOZjV 6ZFmSsmZFRPdCHodl84111FUXcuFKze+fxwRN8vf3QhOukbf4V6hubNv+MYP C6qcWtLjSNsOeYZbTNX1ts9m1gt8Jsz2U/+3f73z7YOVqLALoPxgKBuHo3rB P3F7fKSf34nYbG3r6h3675t3ddWJOLocoD/qaTQbcqqqt9lp/1PRKVbmxZzr bSul+OoeJNDj/U23FL55yg+jB0WMpJrDrM99d+d/neP/Zbdf7u+2dXa+ZjVR Buqsc77gpWGi4b+P2hooU+vv3Y8F3NPjoeHqUK+NCw0ma1v3gN3xjT+0qcCX jgnRNnP14NTLgj8Z/WVi6FTsMZnCKVC93EbKO7mKiV9JlNfEDwAAKhETXXL3 WQ7jfHXjyL11LM6LILpA99TFpuRNH89sylx57UWC9EBjjbl9+NbE9Mzfr/ew l7LJfn9T4KWMLk2Pn6+nLM39V2nv9MzUHXtnbCeGCrM+XY40Ztndwx36Mxwf 9r3I+7NrvuEmrvZat3tJ6C9QcjCUh/3t8H3XsK2eIlKPVF3z2deb66p4+Uiq IZaPDCt5FFMFu+uz9FCLJXdalXT4NfzCJ/R7x0TXA7f6mmKfk7lrbHpJw8vw SqDL+5u+KXbzlB1GD4oZSTVob8V9gcq8n1E9dLjgben51ODx+M8XyNTFEuAT 432NpsNfZW7sHr5OT/j8Mz4vfX2wnX1wdbTd7pmXmc3e9PZXHe31/Jr4nZsL 398Y7u2MR59Yzrx38BOHi77JXV+D+c1rM78qd+/V0W0kM7kajawuBgP+Q4Hg 4mpExxEJE7+iK7OJHxONPA8r4HlEYMYeAAC0gdm8b2+qPoxXxvbP/1N419Re ZOHeLXtvSzzYVdU1v9lv//xrCRuuCv1duwt/vWg9/MMok7VzYOyO5iOpOMz6 34fqD6dulLmHDskInczKD5caLY1D34XjL/LCN8yuU6jXxmcL77yIb73grQ6Y V4Extj0DZT7/lYKtb0WONI3YW/O8FZ9iG9ocwe18PxtblHE/WdPueiL8HSo1 GMpB9HngFrsP8/CLf7h4dnx1b3YhvEEMl2hkZSHgdX3S15xIV1InB758uK7N zy25rTT+p9a39X9y8+7UjP/h3Oy/Zqa+uTna35a2cIit1s/Y7/60kf8dHS75 vVe769l/az7nmH2hyfdfQRBJS0KRm6fcMHpQ1EiqUcz2xrNwOPx04V9fdCdv acfH5wrmjVJxkzpqn8mdht4JT3/G3vEoU8ul24HlaNp//fuHLUb207Z9MZsl v8psB7+5djuwUeBCMC+nLlUbzjgX4n/I3tz48cPXbHvnuntyyvNX+tYnvcQB BKrpg8llJTPnupomJZOr3K7voU4r/2hGLN4d3nEUv6cVASZ+xVVWE7/9zen3 j2V51CRLLM3c3T8yfnvC//Pq9n6p3yMAAOTALHkuHovduM3nXfNbhX6Ynyjg qaq3feKZF7HLo4DdOUdrDe83mF4b/vqR+GN6mrW3OfMxt+es3TGbd+qWG3v5 jB03H+8mP5eI327lrsgJx08FAjB3NMnc7QxGeP9/mO6Mh3Mh205E/KlCR5qG rE0NHouPwJoR306e8cctyjgnRwPCluRxSgyGMpA4ZUlZL173BgtkF6O/+p1v JW5H1URiRDMSpdXY21drv2NibjXLKjN2opC+0m5Ou7HG7qh3g2tZvn7MVthP 220N3D+gGv9AB5FZLTVE0pKRffOUGUYPihtJte/l1GAiEAo4XE/Gzdw9pFL3 0ly500Nbj51dbEKMsly8u5w+wtlQ3upcKDDyt+bGW8mc8H7or7+rT3/+RdWd vvD2G+xXuNbmeKDYt0ln0yQ2uXr2T5Mee7vZaGruv+b2BX9ZZ4NcNLIY8Fw9 z+5CtLQM3QnqrDgGJn5FVGYTv1zb+JVD1XW86zj8pFAeAQBAKTth34132w6n LZSp+V06bT4vwnaI7mXnq+YOZ7DQbXp/c+q9AkdbzWfsk0+VWEIwW74rR7JE FC3X9hePWfONnGDfV6t9Zk38/IDZ8n90jHrdESQm4cwTV3sN92HVjgbyTmf3 1qcu12er08gsOFvjn7jV7pc8ukiiRpqW7D0cPx7fv2Ds9azl+1F2Ucapese7 KfLJstzBoH/xCXZ146Bb8LnO3fWAwxZPS2psmp0sx2ewNA/82b+Sf3cTE12Z cXIH/Hmq6jv/yB59DczNBfy+CdrxYW9y5wY6DsuFSFoWZN08ZYbRg+JGUh1g t3pyiMP1uTDPPH218R8/csWXdVc1s+Yf6+CqLxrb//QwT3TYmh4+wt1ET9r9 /KPcOzP2o9UCnjj/7GytTs8JRyOr4YW52GH3f80tPA3Hj7vvhD3v1sd+17E+ d0iJb5PupklscjX2LWnquxXItodwJzxxuZHdjpg7Ja5JmPgVTZlN/DixOwbn 8L4x45v483D70fQg3PjOrcl/BxcLVQWIldmY9n7lHO1vr+NPEKn68+MoBgUA oIC99ekPG4l7LHXaOS/liACzO+/qYsMT1eoI7haMTfuRwP/aPxyMlZ7K80xO mRkC8dQ4jeVd75p+ZmiFJI4FSSq7xDx19xwx9rjJHRpEnahC65qtH+3HquuH /p5R1It8EF/oPJSwP1TkSNMQYnVc3er8Od+fznbBiP9su2tRQq5czmDQPW7T kYR5cnTFO1Qf/9w1s/0jmVk1n7F7fha6r4nZnPd8YsvYJZXjTttg++RbudUF KxoiafkMHuk3T5lh9KCYkVQXomG6JzGuU4frcyE+amPD6L9fZfmRrXnX+Xhk NXa7Qvk/xtSA519TrkRD82igUIp7zdNrFFw5M5kZNl90h2VmQ/U4TeKSq9YB z2LODE8yeWigLH3uJa0lwXLAxK9Yymvil1vUbyeacxmyPP0pbH97cXK8+zh/ 1qDoznkAgMq0/8h5uoZ3czXZ/RKeXSWqqUu4yTPbK8HpL5PnUjNWbQOeZXkP 0/YCo7W5lp01p52PyqjczO4SfZ5dW1Q3jf5T1DEwdlVS1+9dJf6/6LK7N/m4 3Z3vKrC/13ieXspcERAP4qsvTb2UHbZljLRSI+tutY7P5b0+qbpbxuPjDyVN kaUPBp1jdh/f7DAa+Cdzhf/rlamhxvhVotrHZ0u9Q2z/Cf1GLbut9P1vQ6K/ P0zk8feOgWZTnrybpbnf4c1aMQCEQyRFJJUbRg+KGkn14VdPb2KPVuGCq1tB x+vxAZr9M2S2Zz9rif9ETatjrlAGkwjZvGu34Ru2GpquzRWIL1w+XHgmPJk/ z5UZFkyX06TNwOjZ02M/5i9iwizRXfFLUnfeLSH7WHyY+BVHeU388skoFCA5 IqSORCVZf+8t/5LeAAAqyngARnW4QqJvrNFlzwB7MlFGq4Xo89kv/9CYZelG WQYmZO25WXF350ktFK6apSvbD8ZbatiPjX8ysQB2+md8y0PuPmIWXPHDc2nb NjIt0p2WY/Yfs/w+9lhcYnWS/zyUEEqMtJIh9n0VOPDF7PjtiSXlscEpqR+b xMGgc8yyd6CBbbjzWmf3O2Nf/yT2QTyxfDMYbbdL3RtiO0S/1TpAy6kyFyvE +vXn9v43U31yTdb23pHr9A8PyqshUckgkiKSyg2jB0WMpDoRO32fqIdYqOAq szYxYOF+2Jj9MyQrBle97RGw15ooSpAKxOwvMne4Co53Nh9+1O7PV2OT/xYW Xe3cbxPSuisnXU+TCiH3dh77yK+D8IWJX1GU28Qvj/QjJHIiQrLnXUp5nUMB ACi2tP020g4Pxg6ycTFJ5lPyZEmlNPJedj/kee/82VyHJiXUNdK05GNrg7GL XhJ8LZmN4D3/IrnBYj/oOBH/jI70uJ/mfaX97Y3VjawdJ2PH4uJrowLnoYRQ bKSVAlF3i7LReZc820FHW+IrecG9InmeI3Ew6BoTcnXwvurHB6eei3yNVW9/ nTI3H6gQiKSIpHLD6EHxIqlOEJ9ewcP1m4HR0/GRmT05sLfmfTfZGvzI8LSg rFOyiVjqY2cHhpDcLJsPr+r3bgr5Rem/rlt6zzJdT5MKI7ZwG9J2iWsSJn5F UUETP2JEKRER9tY8b/OrR1U1jT/UQ5VmAABt2ovM/WUg1tOkqq5t6Kb/V/Hz OWXjeLIIP/9e3+eRXTCOiUZCM7Q9owihjEmsNqWm1idGfJI/tkhgtDnx6Qva 45GNnM6nmfQ9YyTqbhXsGU2chTzhCMrJWCgzGHRkZ8F5hv8FN3XSiyJfZH/T +07yNiFgvxkAIikiaSZFwuiB0pFUL8jz1PkP18dPBLOOXfRk+/YQW4gNBuuw b0PQn/ByajDxucfrfLBFcbPvjE0Ty4ebbbSYDeyp5Krksrr6niYJEA3T3akb mqjcdSlg4lcUFTTxI0YUp1CtiYJSxSgSZO2cBwBQELMVuNZqMpparwV0cFZF IakgLuFBYTbMkudiRtcM6g1XSFYNquSrR1fuX7PVEi9ddkvCg51551nuEa7U pirkZZUzfZXX+TTnn6TQSCsqcp14fNiX95l4akFHHbXPyGvfrsRg0JOI327l 3zsEr6MJqeOZBiGVEgFkQyTVHNk3T2XC6IHCkVQ3iNOv+Q/X7wadHdyTBGP9 7/+2ku0HeRkJ4SUKiXIfbHKV7ZgjqOGU2IKr7L9JxR2pCRN9T5ME4ZVg0XoW CBO/4qiciR85okTezXIhas4kdLkWsXcVALQg+US1/FYZuRAHChQrf8TsBh2t 6ScPCz7zFfH60SV3nyX5C8rwYhG1g6SdbWG2fFeOxD8fGQeviJBd6DxUQWqM tGIi1olpRfkyEHXeBHSXLkT2YNAX4mAdO+7MXa55Cd0NeOs3Ba4CQF6IpFok 7+apUBg9UDaS6gdx+jVfaprZCIy1xfNILZ8Gstem5rWAEVGikJdcndkO0T1m k4BOWIc2/fYmQ82IT3DB1VjJTd9Ijaxvk96nSYLwgnOh2VSpYeJXHJUz8VOy 4GoCsWU6zmr3a7mlFwBUjspLrqYKzSm4ZDuIN2NNo2S/jJdz47/VydxMEuap uye+qpN0DvT51GBilnfkik/yFD1VJk728FBrpBULWSWpwEg+vI30JJaBZ5wL 8vYvHMgfDDrDRB7c7DsZmyBTDTb711L7QC3SnalJdsFeKgCyIJJqk6ybp0Jh 9EDRSKofxF7TPIfrifLC9e96wrnCJbmxTcxnSCRbqi6M/k9PHdXy2ey2gEu5 /5PjRJXIvAeRIBKXlU3+Un1Ok5gXwTvv26wWU+N5+93HBXf68psHanu1hYlf sVTKxE/hgqsc3rtmIbkKABpRaclV5lVgrCF+K5ZcISr7K+/OXWtKWxIqdp4x JvWMWOuniqQhagdJ+NxSFXgE933IgiwT12T3y6mMpd5IKxJinUjVjgbyjjii qL4yg1PeYKhQ/NmmzAJoAPkgkmqWjJunMmH0QNFIqiNCCq7uRWa/sJnZjJT5 nGP2Re4kw5K7O9HMSlQfdn4iz0C1j88KyjkwYdpGicx7EFVhJe1G0+s0aX/e eTq5q1jAt4x3TWQ1flIdJn56o/WJn/IFVw/iT4L4swQ93UAAoKxVWnL1hd9+ Uq0YlOVur2hj0BV3Nzud0349fIlSe11qTjsfibk40WV34p8amkcDxFKC2Vy4 718Q+kRYwTJxao60YiDXiYWG8V5gtDa+0uA/N99Znfvn3Iqk/QzSB0PFIvvG lumuPNAKRFINk3jzVCqMHqDgao5tnKnMKtX4BzqYJ7N6wM+ZiMkb8BJ5tV2u R8IKEXJ5LXG7v4h257V9nmfid6PpdJqUVkOy4IdGPms4/KgKpCxLChM/3dH4 xE+FgqsH5DhR9GUBABRQYcnVrenhI9xkwHh8/KHSESithI5BiRrvhHhXVpG9 XHWEOBMkbqZN/sOGscCr1MfDLLt7jIVq8qd+WrkyceqOtCIgqyQVOPBFPJi2 dLuXUv8hdhqoRuJZP8mDoXKlnZNCeX9QDSKplkm7eSoVRg9QcDXrNs6dsPeD FhMVK67Y+el0zmoASWQIFjM/J59NiKinwRZcFZdcJSpsSCuXqttpEr+G6nl6 KX+o3V10dSV/XIsHt1Mw8dMdjU/80guuKhERiELNCWX7qBQA9KeikqtkswZV jqoR1d0T2l2LyqwsmB2/na3fXcZnH3YWnGcSH5yIt0lsn0h72M1uxRH+JFex MnGqjzTVkVWSCpxiy3kWkp17S377EgdDBUubY6MCFagEkVTjpNw8FQujByi4 mnG4PvrrzLU3zbH/dLTdPhHaFvKRkBdR1PycCASddFjgP4qnZEWk0JnwV+e5 +gaGhgHvsvhvp46nSWwJBcpkbeseGLsTKNigncwvSekIXzyY+OmPtid+6QVX lYgITIjushh4tP21AoDKUlHJVaJThkpH1V5ODVbzb/mKHVWIBEabYy9Y1g9z 94OOE/EPztThErjngpjjpZVpioXgI5bBSWGTPAXLxKk/0lTGq5KU/y1sPxhv qck22tlmBzK6okgaDBWMeeJqrzGkaGyODeUDkVTrxN88lQqjB5VacJUoF8kr KrgXWZgY7ayNfa7158enQkJaS8VfMXURhWeZdlZm/ide09UgohImmy00iEh9 RBfoHu4wcnXjyL11KV9NPU+T2PSOsYteEvLGUxt0DUbb7VBUu3MZTPz0R9sT v4yCq/Ijwt6m7wPeXljNf60AoMJUUnKVeIKm2lG1Xz29R/l3fYXOaMSnZ+U+ 2djxDSemCcYet7DNEERTXd4hOGYrMNZEnbT7Be7EIMrEySxbVIyRpqq0Kkm5 xzCzNmNvTTZ24O0uix3vOiqrK4qUwVCumL3oXoEPIK2Picbm2FA+EEm1T/TN U6kweqBkJNUT7lg9K55rYqIbwYmr5+spthv4J9/Oi+0GntqgdaTH/bTwNYw+ n/3yD42U0WRK5LZNdj8xr2e2X77MnoLgMsN1zc11gg74R3+ZGDrFxv3qxqHv wtLSGvqeJnHfi2N97lChhdN2yNUdf5/m86552a18VISJn9bofeKXUXBV/mMU MqsfHyVdzsda/loBQKXRUXKViUZlzdKJJ2jq1XfKLBanSKTbXaLPxyJU4eJO ekd0yBUahVOfOW8lsRt0dlgsAxNrAudmRJk4MZXKsr1SMUaaqtKqJOXoVcG8 mHWcM1ONnWd/E/9B4hAi205X1JI8k4TBUC6im4uBH2iHvb+7zWpKLWKoutMX hj51TQY3Mtez6RX+NTXHlmkvim0JikEkRSTNpFAYPVAykuoJUenUeOHL/wSn 6bGLzYe3bqrBZqf9YWnb+Jjt2c9a2Ns/1eoI7uZ5jd2N4N+udh+nqKa+W4Hn wRvxXvbkye79R87TphzNlNjM8JEr0z//9by5Ju9OVCa6HrjV18S+/NF2+w8S M6tlME1iNgJjbZTxzNiPv+ZeO6VamBmoU5cmJfT8KiZM/Eqt3CZ+ShdcZVan R5opA+/9DngWNZ68AIAKo/nkanQt6L0x3H0i/mjO1Ng56PAG18T/rWKaYEpH Hg3j8Cu9S8KsTQxYYrsfxBzN0ylyTU2ercuDeRUYa2D/Qc2wL15/n91ZYWwc mVwRPFJSUxSZU30VRxqzvTw3+ZerQ79rqUuOMrO18/ejsVmXpFxB1gfj6VWS DFTj5Ql+Aw4m8tg72mWmTg1N/PJqie7ifjzZBiUacvcdE3poLicJg0HvYpud vDcud9Ynri9V13yuf9g+5nB96XKMfTjIXXrK1PzOTT9vTUccptPGHFvAnot8 /zo21G+PDrzZXJf6KFouvDd+xx8WVLEQ+BBJEUnzUSiMHigYSYWLRlafhQ+t Rko2i11xd/PW/JSpsXv4hnduVXgZgKx2whOXG2OvnGOPaCwb862jv9VkqKrv vupd2Iz9BLPoPs+d2U+WItxZcr9tMeTIerGZYbYjTHRlcqSRqm4c/H8ZMwom GgnN0HYbG5so60XHPRElDjLof5p0KPp00n7GTB3vvvq3LK98eMu9a29nM6tU /YUbgeeSBycmfuWujCZ+JGULrnJZfd6brbU5HkS0/cQCACqPppOrTOShK/aI /HCaem7o6o1b1/8YDz1sZBf5577wDSdbZBRogilHRieOmnbXE3n3/s3AKLcN oXk0oJmgqRZyTS34o0ueUTK/OT5x3zfx5+H2o5T1bdfcC8GfPFkm7tjgVEan XxHUGWnM5oL3and9WodMgum14a8fiZtmsEuwzEfJZJUko/XUSRO3OnjjQ+c3 UzN+v2+Cjn0Tq00t79Gz3HohuQCs7Rz92uf77kb/SUqBE3CSBoNuHS5bvncM NMe3K1TV2z64NfnTamYikdkK+28PtVj4t8HMZFQpm0EwkQfOnuOUtLKWzMvF qWu5hzplahn5en6zvAeDshBJWYikeSkQRg8UjaS5RCOLge9pxyeDvbY2K+9E LDumzf0T6yr81vz2gjd+a6KoupZz/VfGXX/zP1qRmVQl7IR9jl5rNZtauTjq +s7n9/tnpjx3bjns/Z1Ws8Fgae4bu+N/SvxGJhr+bqgx9k/MtqsTP066x/us VM5EBBvxk5UHdlZmHD2H9wfTie6h/3Z+SdP0ly7Hx4MXTtexRVnr2v5w7et/ yn7CpftpUvpv5D6ur7yxq+PzfuX8uK+Z3X5pOtk7ni31qr13hIlfSZTTxC+N kgVXo88DaZnVw8/B80S52ywAgFK0m1w9XJ47bLUG6uTAlw/X48/rmS3/R/Ez BlT7+KyY9RF5VE2x1hjZhOnOtLkPr+qVWKlzYbIfB+sD+Ry2enDqpcB/djgF /f7GcG+H1VRd13xu8Jpnbl3UbFa5MnEqjDQm8hM9cJJ/FiYrUY9xuW9TTatj jv9JkVtKjvZ6nkU3Hvvcn7PnlMyx9V2sQ+5oxgGl3Y1g7AK0H/5MbFPcF/cW FXjnEgeD/uys+J191sSwMZ+xe37Ofx2ZyCP34CkqdRskBnD8Dpm/1a+a2O0r BkNdD70g+tbH7QUqONLNvXRIKysIjUMkZSGSCiA3jB6oWnCV2X7q//qzd9vq 84bC0iRX1cZshx94b18d6u1sZnOcVF3z2Z7+kas3794PZt8cy+6Fc1w6d/jz sT3/H7juP82RiOAiPi/DGft1sfz1UK+t85Ctd/DDUcdtz//NLm4qs07Q/TSJ /0PsztLxEfYwNxufrG1dvUOfuryBRRmbqTHxE3Hv0qXymvilyyi4KjEikKVI 4m8ST9gBQMO0mlxlljwXj2XZV7Pp7U88pRNX6pzsPqxqm+D06uLyloSp2t0y qxjpB1lBqGgV2xQsE6fwSGOi4R/s7Wm9XfIQnNHimmVY3vWmz3aILSVUT4lv CyUZDEUWfR64cSGRL6DMnZ9OhwVt42Ei/rGWmkQtPqJMmQL3HTl2w+6LZmkt pFN9UgpDf1hBEEk5iKS6i6Sk6HIgcSA9MRoaOwc+YTcKPgguhlOebWAvk0hs XURVv8uZdD9NUhsmfkW/dxVZuU38MqUXXJVwKWMP1OgrXG2NxBv87dDtf61g 7gcA2qXN5Cq3PDe3O2bTNyeRha3ElDonjydQ3e4Vpf/iFKKvgdxfxxXMZ19D XEcJXSPX1DUjvp2ivG3lysQpO9KY9XsjjdWGLMzW5t9knIjk/ouQTX3c7oWq pvGH6fsxyAFc5AVXppIMhmLipRMps+2LWREdpbmLeHxw6jlvrcohekwUE1fW kmr6eGZTbGvsZ5OXiMyqqaVv1DXhDy7G6igy0cjywuwUPfo7a+onkuUEIRdE UhYiqQ4jacJeZN5DZpmo+jfs9I+h0lVXLTexuohVR+0zahX4yEb30ySVYeKH iV9uWpz4ZZFecFVMRIhGwkGf2/HHTuKBWqxCxS2pRYYBAIpHi8nV+PK85bPZ jC0I/NrdIv5mMlar/GRvke7kz30kBru99ekPG7noa+xyPq6Eou4c8gMszrDc W/O8nQjhcsvxKTnSdh+5umpTA4lNN3kDCyupdeX+9sbToN9z47KNOCopIIHA 7V7I1jKbCdO2+EsZG0b//UrO36+A4g+GIuJv1KRaPg2ImGCzmAVXh8nY61lN L1BJ5egKrbbI7Hg7ZWgcmloRuRzaDtG98WoAVFOv495i9pp++9uhu0OJVSfb gQVyQiRlIZLqMpKydsLeD1pSXbOrGwe+nBVdqQDyYfOc6nWmy07v0yR1YeKH iV9+mpv4ZZFRcLWmedBB53PLMWq32y+zxTVSH4/J2jkwyhXYKLscOwCUJw0m V3fmnWcpQ8OAN/Oo4uFf20McDxD+NyffZmx+3ur8Wc17tCJLQia65O6zcO+1 pmX8QSWVF1z19tclPjvlGl8yL4Lu/+pptJia/3A7rUNHNOhsj18y2eX4FBxp XJ6Km1809V735n1iuxdZmBjtTEzIqbPO+Tz7ULgH38Zj9h8zEg1keXwt7AxU ZzBoQdoReIlFRHcWnGcM1W+Nj3Xw7jlFXyxzmGV3j1HCl4jZfXyzg93jQFnf vlWgqzJxb1S15qfuIZIeIJLqNpLGftGc621ipzoaQ6uBrYuodHXcQvQ+TVIV Jn4HmPgVoq2JXzYZBVclidWW7h6wO+jvkVwFAN3QXnJ160f7MaOh6drcbsaN lHnq7jmSuu2KOC1CFv02ddKLSv/RpIjfbuWFBwlLwu05py0+X6KaxgJbFRVT yA9QqanCfsT3fn0yXvOOoUWXPQPxokXGTsd/ZM7ilBppqfYrVOMf6KCwfs2p aVveFUG+/RibfntT/M8Xc1hYNWoMBi3YmnedJ9o2HbvokZiKYLcAWerq0s6G dbkWi7+/ayvoeJ2SUNMy+thls7BD/fKEoLJju0v0eXbermK3et1DJD1AJNVv JN0Je96tT1376ib7ffQvUUGsLiLV4QoV9bPV+zRJPZj4cTDxK0BLE7+s0guu Gns9a0L/bTSyGl4M/nvK7bjc2ZDawxorCOMPZz/TBACgHVpLru5vTr1nMZg6 XFnqXnPbopLEnAklI/WxwSnB93gpZC8JmdXpkebEk+tW+0yllIhLYJ/JKjDx JhG1+nkjh4mG6J54sfRjfe6Q7O+AQiNtN+jsMBtEpJsSogt0D/vE3/LeVPYZ ct79GETdLXFtbtSixmAoub1I4NMWYuOgrF1eGU3VY0pSM21revgIJX6dnsjJ 1L/rET7U4/2YymtPi5IQSRFJ9RtJUymm+NXLVtoCFBCri1hzwvFTccOFzqdJ 6sHELw4Tv0K0M/HLKr3gqtQN6sxW2OfoISuvWt9y+n/VQrYCACAHrSVX2cMg 1BuuUGbJn+iyu5e4WbPVvEW9bJza63GZS0LyyWZNy5i/8s7BkUfGqhSa9r8M jJ6Mv6S52xnkBsDueuBGPGpTpwbdj5T4qBUZaXtr3ndj6SbL2+4l0RvzmOW7 F2PHYHM87meWvQMNufZjEHW3sqdlik6NwSDKXiT0o+cOTbvYclCxelC2zs6O tjduzL2S+vGkGpdz5LUvzzLHLknNNK7c4pEe91Nxnwu3wZJqGwtsiPmHXJNc JFdzQSRFJNVrJGU279ubiB1Z1OnRAIorq4Kti6hIdVxR9D1NUg0mfkkln/gd KD/3K8+JX3YZBVdbx+ckP6ZgouG7A/XEnOUwytx9oqMKP8z2U//Xn9v732yu 46JkXXNn37DD7Ztf10LaBQCUprHk6s6M/SiV/ekbW8E7dXc9csUn4ogfWb1N y0vC6MrkSGPiyaax/fP/VOJuDXJapVTPFGZ33tUV21djaRn+cto/4/PS1+O9 AMyNvde8C0qdOFRipO0/cp4+nINlLZYoRPzQdNYNafvzztMUZRmczLpYTbWZ KFC8q2jUGAyicEm8DNJ3CHBn54l54mnnvJyVQ5Y5dilqpnEnzUWfKOTGarZ2 9gVwt1kkV3NAJEUk1WskTb9DVvV5Km3PcbHE9rcfafhoptjlMvQ9TVILJn4p JZ/4HSg99yvTiV92GQVX5ZbH39v0fcCrMkCdujT5TAdhgdmc93xiq682NXYP X6e9vhm/3z8z9c3N0YvNsaZdR9vtP4RRSxag3GgsuRr5cbS1+XdfPcmMOezc IHljFfuEThdLwr3I7Bc2c+JNSqxznk3015lrb5qVmjUp+2rZfoE606r97bD/ ztg7sUaUqTLpij86lD/SmFeBsQaZJ4bYA9rZMl0v/PaTBup1RzD7Q2Rm/R/j tgZjXcfg7Yfa2OhV8jk2E408D8fMB24PJGoAGo+PP5TW/4Nr4E7cHeRuFMnY ISA2XaYM7qS5mAPmLHbbqqQzv9tBRxuSqzkhkmowkkbX531uh32Ai0Hst9/a Zusd/OQLty+4qnwpOV1G0ow7pHYyBqAUfU+T1IGJH6nkE78DZed+5Trxy0FO wdUcuIrBJMuAZ1kDWYvcmO0nnqFTlOm3Q7f/tZKeQd3fDt0daqw+/GzqB+4i vwqgJS/nPdftsnww2MndA491Dn4g76Wue+ZfqvdO58Z/S9xVfzs+J+p3kXM5 tSt+S1sSkk2NYxPO33vDCtxtme3VuW/s7UdlTGJVe7Xcv+bl1KXkmcASTask kz/S4lkjeStKdi5taLL7ebkuZonuktLMvYS0MxiYHd9ITfwPkVwm7lXI9QY5 wzYY2hxBOZkf3ufDoo4MTxe3u/FBotew2MYT3CnIEyM+CRvTuNuscg2tmGdT V17jN6cvOtNrV6bU3oyBSCqJzNjHvFy893l/8+HakDJZO3oH37dz50w7G5Of JlXXMXjzvqLdOrRz8xQu2asuoWEsILkAC2gUpkmZyu8dyaGpe5f8uV+5Tvxy UKrgKg83ySRpqAxCJibywGGrpRovuedznebgyiAbZGxWBwAVpM5yaIKKEfDV v0cbUvdq8ecpyLmc2nt0JSwJmWj4O/YZFkdegThme+NZKBjwTbg+HSQ6LUpM hyr7asKQ47rU0yqx5I+0WFE72Y2tuV0QabWquLyKzjYCaWYwcGsflvEtz5qk jau7D8eb+NNDuQ0IiL8q8cUsxfVlNyoYe92iNhKwWxGkrvjYqn1yz5oRtBFM VR/hiKTCKRX7okvTY11mQ7W190/euWX+Hu397dXZu/YzidqwlKnlA6+oRjb5 f7NWbp6CEY11RDryuuuxRnq5QCGYJmUqv3cki5buXbLnfmU78ctO0YKrhBV3 Nz9DbThq9+9oMisZXfQMWAu3pePKNx0GftF9YAFANcwvdy/+Ju1mUzLUby7e /UWd2wOz5btyJPWbJJynKOWSsODEgFm/N5JaD1KWPveSpDMC6ekBqr7t3U8d gy2J/y1uSajsq0l+I6WeVolVzJGW18upwWr+YZzNyUELRbU6grt6iuJaGQxk pcpWp6QDXfFzfwTZT96ZEG0z816yJBu9uI0K4tYLzO7ctSZx3ZQIbJKQstFK 7Erk/pxK2LmKSCqIkrGPefHw2lkjdXKA/il3mncnPHE5WSFWWjubgm9EF5GU aKwjFpKrOoJpkmrK5R1p6N4ld+5XvhO/7BQvuJqQ5Qm4zA3AKtl67OwyGs9e e/ii0NtO3AkV3CcAAKWnsZqr2T2fGjxOxCWR+6NiyLmcQg/RchK3JOTODiR/ mGr5NBCRVs3xYG/B87HdPuq4Rbu9vsCjcCTKr1wkLh2q7KuJeh9kaNbFkpBQ zJGWH1uNv3Y0EB9N3HFLSxetrwekmhkMa55Eh3XJBVczNxtILi+QsOnt522I qDntfFSCDAO7o6Bm2CcmJRQJjDZLXRFk3Z8DBSGSCqJc7GO2AmNNVG2X61GB k8/MRmCsjUr98RKqEGd5H1q5eQqVcfCTetM5+zQsxGpE8+8OkjBNUk95vCMt 3bvkzv3Kd+KXnQoFVzlZzjVosOo+s/v4ZoexrodeKDxoU+9IyxkYABBLB8lV Zs3TR9xQJbWOLWYbDva8qrAlYfp6sOAhAtGUTYcWJ7mqhVL2khVzpOW3NTfe aqAuuFfYySDXiNby3pS4Zu4lp5HBQFa4knz8KqP5rOTyAln+qvgsVny6TAF7 c+PHDTXtricibsyx1hsmqSsCrrKcNjctaBciqQySYh9b+ELgnjF+xxNFkiEa uXkKt7PgPMO7Qx4f///bO7+fNs6sj/sPmBsuuUBCsixxEQkhxEVQ9MpcUCVC gmgrhNhWyESNIFpFEK0KbRVotYWuUlfbgLaB7lurjZX3rfNurHTXiUJb3G3I CmcXd9dRQK27gcokuAGaEOREJpiMX8+Mfzw29vzyjD2P+X7uEhl7nvHjc86c 55zvWSrGQAKDgjBJPypjRcaxXcXHfhUb+OVHF8FVnjyVq8ZLrgpqV92X7skp FE8nyWlwzwAA2Rg/uRpb9wwQlrp476a3NSbjxgQFcw45z4Mmy0nHomQTgVKQ XC0xpdxp4uxteE4zybIQQTi96rD9n0ZRvJeLQTYDUXuQZxSvPPZHhirlBdJk FyKW7/vlV1Y/MPNQ9l8I/ekqx1EJaSjleqEHHHjSYlDj+9iQq5sXVDO39I27 /PvmBeeQVfCjhQibQYynfHJrlTUreQLGAmGSflTGioxju4qO/So38MuLXoKr cbKEOBPGGCy5yv/imOMTgW3p1xIyTVoqXAEAyo/hk6uk3E2Cwx/41ei9k0F7 iR8JzT3u1X2vYWPhW5M9xPMg0zkZ2NLBuNKeXM1794xMKXeaBHxMd2TM9yQZ jDGvOpe1reYqAcbYDITClfooKOzuyY4LFfbR77uo7EJEU9Up95qu09sLwu80 Rd8OX5SocqbDdmDiOENfn2O5gSctChW+L6fJ/fCQd1309UJWJL2QVO2ZNtdM hSfNSa4ymeZmUFEgTNKRiliRYWxX8bFf5QZ++dBNcDWPdK0mXlJTFA1pZde9 w8KCEM0CUGEYPbn6Ytl5PPO8oVoGnIzlFFVYKSdXFqZxyLuZ/YqcicYJB3Fs dPa+PnefxuQq39ZkhLBKDSXcaVLwJ8jcDWTXPf1VJrVj2cuLMTZDRuGqCJ3P 3Bi7rs+zVsQ1CVpqGdtYxuoF/mlOyZ3h7qc6+TI2uvhxO6M6N3hwgSctDhW+ L6v4yiSj/iq7xOnoROBpcddsDOOpgJzkKhXXDFSAMElHKmJFhrFdxcd+lRv4 5UM3wdX406WpX5my0aK/Q0v4KEtmT5AgzcovA9EsAJWGwZOrOeZUtcheCY9B c3tAch7EXkRDN0r1PBinM7lKBt7C+TtFGObAPS4EdYlruMcHYw2DM7oOItcJ I2wGdsdvr09eQ6vdL6ffJx+5MXZxyZPdu1OtROqp7qy3KBWvouA1V+UHukJF n5qZDuz2bXtrwngePjND4fNiOYEnLfZqVPg+4XeR4lC/54H4ps1ecfEe1gjG UxE5ydUisxDAsCBM0pNKWJFBbJcWsV/lBn550E9w9dk/7YdzRAHM3a7i9BU0 hleQkJkp3f3R1ct33DBt4/ObRloFAKB4jJ1cff7vieaMOc3/8P7i3pUTR192 /iDqYMgGPZ17zZ7OjWRJjZOPsXuRxc9slkz9kM7Pg3E6k6sPZwbq8909Kijh TpOEC+qYhj84HVRONBAofjOwsa17Ps+n9qG+TqvFZLZ2DYw7rgUI/cO9mIQW 4j7RLfZZ+M5XTvvwybZGxlTd2Pba8MTlm8FHEj/k3Bi7GJMbW58ZJmYkyJtM Go+GZsbazTVNto8XHktsTDb6wP/lF1e/vCMlFMkjVHcwv3YE5dRQ8JoAKmY6 xFbc/Y2Jj7H0u0NyrgqkgSctFnUDrZ4sOk83cZdZ1z4+G5bYtDkyAr2u1SKb PanzpDkDrfSLMXSzhEAWCJP0pBJWZITAL65N7FeOwI99vPTV1T87p/5gt787 1Gfr6XnZambkCUSwsfC3E7ZmxtzxhueeUg+km+BqTr0uj5rEcmJXrPhnL18Y HbB1WrmjTLO1s2/Y7rjuD20XGz/wChI1I3PSqfPY/dnRY0wp4hYAQFkwcnI1 o/YsWNK8siQvgo6XTNIdpnuBibQumyzrp5qCnnQn7D3Xbi7l82CcyuQq+x9n R+qh2miKOjIo3U6ThJd/r7Zamw3XOiSbIjdD7KH/0ptt3I+urm3wvGt23r9w 0zM91JZ4rO6/tBjZjSz933BbXeKX+PbNwtUdWaJbV0LrC87BVoZp6jw75fby bzg1aE18AnOk3/EPsQfwnGRRMRNjsw7xGUuva1nOOHK+SZBHshTkkW+sVbC6 sorHkreIqRuelR5A/2x+7BCjWHA1HY5aTrmWqdzL5QOetHjU+z42uvVwKyoj MUc8yCeot/t3isvm0edJc6Zg61XTqKMlBPJAmKQjFbAiIwR+cY1ivzIEftny 3RlH2S/jMZ+YltXjDiu7Pr0EV9nH34425eRW62yue0qcPhvbCs5ODbZwu8LS 0jf2iXvW51/wed2fjHTx33F9l31mOVKEl+RqDAiRE3Z75ZuLYwM9bY38ORLT 2NYzMHLe4XJfsgsq8ZbXphceGi3tAgDQAiMnV7NHIlYNeNb3X6HwPNI2EZB6 2Nnw9KWdjWKXoYDck7vacV/iESlTwZJ2c6U5saIwuUr2RtI40KJUO02azJ2U 8QMxJuo3AzHpxtI7Ob9G/Nb2Ivf+PFBX3XT2o/NdyXcXe77LiG5VNZ0cPNlU Y+GCsG0iZHy+cfP3LXzir2s6ECkUSxKBenEmN7I41ZWxJZYBd0hOXQcZ90qV gmSWXHBEezbpuoLDg56Q6KqSiT5FD9Rs5Hv38FF+ydY3vJiqqhR40uLR3/dl TRzTIitCoSdlw25b5svVKbmqqyUE8kCYpB8VsCIjBH5xjWK/sgR+bHTr53A4 /GDlX5/1pdshjkwtSd7JzJKZevuCwsFb+giusmHvG1ZTFnIrClLshOc/7mvi 2qvM7W9fDuQEQDvhb99vr+Lf1vbZYp78KhsNXp++LD4pUzgZfMW5krxnvCgQ Y+l88xPPzbmZL9yfnx9oyWwDpvXczXXqxswBAGRi4ORqxsjzVrrfs56n2oaf edE8GXguZWa5k/KUX5IcLFEEuUJxicAg8tOX4y9n/WfpegEoTK4SUTfT59nQ 5TP0pFQ7TZr0nVQ5lt0AqNwMxKQby0nH4pN91mHvkfcs0V0lIgxFim5xr2wZ 8eQ53eaHhPJXeXwiUEiY63nIdYJIC2XCMCWkJjqlfoayk41E3CvkqQp/BFE/ JlcfjH00O1zHyDBu2357qxIlrhfR0Ky9S/gGRHPXoBDwpFpcjs6+j91dmm7N rEumwoYoNHrSrAxzsWO1C6CvJQSyQJikHxWwovIHfnHtYr+yBn5E3ayME23S 4skczESgh+Aq+2TRcZLMTXN3uuXd2bDse5h5h0K50wTP7jl7+Utn6s7c2Bcg 8S6jwykq8MqPYCPS1y9CX/ymqdqUc+WNx0+/foKrdjY12Bx3EM0CUKEYNrma 0yCWdxgE+zww2Wyqbp26K0MZhtTw0W+x+9oirP1DPQ3kf5RWZYW+5CrRL6Zu nnjZKc1Ok0Gyr7aIAfflRt1mYDf+9nZy0k3hyUdZKpQiowrIXl2R4/LdVVev 8KLqwZlCrfHsmrs3Yx32Tz+XsbTkRCcBJclGIu6VKicgBvUKOmOyiIbcA6kO usJdcsnbLm9EReyXRfc7qQbwmpbRr6RUK8F+4Ek1QWffx657h5tT71/TOvFd 8c28dHrS2LpnIPO965Ed0t0SAjkgTNIN+ldkgMAvrmHsV8bAjxiqSHSsF/yY n2cGUzf+0Hs+hSPstRdcZZ8E3W+15Agc5E+bF3qHR/7J5HFdVdd/3xXp+hfk qjiO2v3Z0enOgr2+RuLXxAtZ5KavY5HN8MqSP8G/llYehDcjvJnbCc+cbeJ3 qVSfFwCAUgybXCWfZQp0MgrPI1Wn3GtyVLdJR6nfoISMn81Pwi8EfinhjaYu uUqKBakJQgxAaXaaDJIxNhWjTPKiajOkp3DmP4NO88Q3loo6RVSwyJaupnfn Ck8/yRTaiWlqpRX8OETSsPmvJXLHYcso1SlKNhJxr1Q5AbnkLteq/CuMhTyD 6aYwvv3K/yBHa5IX9pThbthnYf/l0fY6dYsFBPCkmqCr79t7PPduU/or6vr0 BzkSrVLvSasnzdIV1N55lcISAmkQJukG9SsyQOAX1zb2K1fgl3Bb/ak7KV0x S4hRVzVP/Pu5gmuM556LmYoWXI2tzU/25tasWl93LcnOrMafLbtOJd+hqs8l IZ+V6WjI7u4Rjp6lFDY4oWPZutzpJLbljCdc5NhKAIABoSS5mqeAQeiSkC9N Rhbw6CefFfHbraYCME2nnfJP3LSBuuQqEfnIUl83IKXZadIkQz56W8PUbIZ0 d49Uay0ZOYv0+xCiW+LRJtHFLPbTYNdvnKlLN7wpaP5NBNjO/iOpv1SabCTr AKXKCYglKy14YyOB6S4yHGbMbWcm3fPBsHBkn3qgLqii9iK6GfRxkyeI1j1T g236NkZ1qwWeVBN09H3ktA5lDY9i0OtJyVRzVdPot4+1/KZLZAmBFAiT9IL+ FRkg8ItrHPuVKfAj6sOlBVefBR2/Tn6Q3JNWkk3vUCPpposQXN19vPiX8a56 UxaMpeejeQXOkRRSqO1wLEmth3ANWWfQW74xq6l1eklM4lWwZvKPM9LWT0US GwBgfAybXH2x7X2zWsRKR+9Mtdea6s565Q9e5GdoClQPeUW6QYpgzdNHpgUI x6DZQ5MiaEuukkNC6Q0OS7HTJBFCBYpbw1RshozyZ8Jo9LoLNIbxZKSoxB6c ifa0wyNzIqEiaa/Ez69jGzfH041OEp1KqTcndEcTNPRM3lJYxknIDEr0t5I6 Y+JLzv/nscffEVUWaaob238zct4+1FbL/avTsSRkWxNL21oPrwYDPu9fnX8c 7XvJnPN3llfsNx8YyjPRBjypJujm+2Ir7v5G7ZdGtSdlN+fH25I2kumwL8ip 82JjG/7Lk594V8VvYMksIZACYZIu0L8iAwR+ce1jv3IEflw/e/IjJQVXiXuo YpwiGwtdtmXVraragbHt1cCXjqGO3DiQaR10Lig7Yd9dcnTUpq7ldbES5RSE hELmG+dvi6XbJaq3KgjI1Nv9YgreWbCrri7ho+RMGQMAUIZhk6tkh8K+0Ct2 f3b0GKN0cjTpsnUyaMJYkFwYi80ReFyW4n/akqtFjao0DCXYadIIk4NoHsOh eDMQJ+/5tSUz5I2j9rGz4nwlFQ2LdpCRr5Qccp0l0c9Yev44t1qwe4qNPrh9 6c02c2pZllfs3p8UNw0TMoOMzS1qNIluTea0Z0PN3mWjP3ntr+T0cymnxjro 9G/QagOMAzypFujj+9hHC/YOYQ6cpevDmxomjWn3pMmdKRg9KZG92HrA/V6X hTExL08tivq70lpCIAbCJF2gf0XlD/ziusR+JQ/8UipMJqkT/wTbgYnjyQ+T PmmNRTZ/DvOsBu/4F+ZuOH9vyx3eVNU09L++pZWwJJwo6bzX43LYf9vZuN/p 17WPXvaHFcq/Zk0uYw6NzcvKFSf1NEyEYszumvtUlWRuljdlyk6IMp9luNwL AKBojJtcjccji1NdSWufmWLMxh4HPh9sZdTM2iNVntRNbJSCmMyYosCIyRJB V3KVrBVRPqrSQOi/0yRJ6vYb8HctE+WbIaNIn4inTrhCIt02MiNnoqlKYlQo 2RIlZ3DA9vK18fZ05Mw029533rh1dyX882ZkNxb5JRFxLt66fmniTCa6NtW1 Df+PumQjITMoWU5ALLmogredjcBVu605ZxaBPBhz25uXbufqtQK1wJMWjw6+ L/OsXWMddC1pubSK8KSk5h7TOnhxbnkrJ6/OqYjMX7ELz/WM9bdO/0Nxb1cO SwgKgTBJB6hfkRECv7hesV9JAz9SAkW8Y53dvXepO/nSwrPAkrzYnnsnf1eJ pjCN3WenrylPqwoLWnF1p6tfZXtAIuow2/3c74cTAK+RruPlivAtNndIwaVm kqv0aiMDAAph5OQqWb1Q3dTzu08+v3hh9GRLwukkIm3XXYXPgxzEQZ7E+aY6 9k1LTDy3fve4nGqBdCVXieG8ykdVGgq9d5rcC0iGCDSidDOwz3zvHUr/8iQe h4l4WOSVsjvIyIIo2UUjL6Lh25eG9zVA5YkymzrPOrzBR2q/STLGPjLmeyL2 2syStSh44+ZSXZs+290oM8eaWOnQ5NWFUAQKq9oCT1osmvu+nTXP6/wjqgqV D0kqxpNmn9Ek7MPr79qnnFeuOKfsIwNdVnPyv0/Y3f5wVDIBWj5LCPKBMElz 6F+RAQK/uK6xX8kCP0ICRbxjfTfo7BZOsaqa3vh6Q+KW723OvC598WqwWDt7 B0Y+dLhnby/dLyYIzIof5M/VIsRz+R8QL+QrPXNKqeAq/zdpWQBJ6W8AAH0Y O7maIPYo6HWM9LQkbZ75pb6xi+rdDdFsqIPKEynRbxC1QKqSq5lvR3Yfh2HR d6dJkqoJkThzNzCKNwMRk0s+DhNSVLVjvkKvJDrIJEbWsmG3LZ0/lJDyyyER ad/5xu2wD/V1WslO+kSc2Tdkd7i9/h83iyzhJGJsiWoNcsky6m9lw0Y3gp7R w6Z8mK2dtoGR8w73N4HVSLntZQUDT1oU2vq+nfDsu5z+HnNsdEa5yockleRJ 45z52Fz61nXhnYGeNuKYxmLtOj164bKXMxsy72D5LSHIAmGSxtC/IgMEfvFS xH76B35E1lfsx8VuBSY7hRUw7R8FytYboiF7G57T6e9EwVytrOTqQjTk7reY ZUzC4oU4asd9sgVXufJs33ht8qOMmnsBAKjH8MlVjSEakZTlQOSwu+rqFXyU uX382vK2AaIbmpKrxGnjUbtftKqEAnTdaVKkmmIkRewNi/LNQE7AkYiHiYIZ kQdnIkKTGFmbNTNISsqv5JCVFRLPXIkfeH8qKNW2T5N45y7XKncNsWj0IHic SgWeVDWpzKrlpCPwix6/gcrypNphCEsISBAmaQr9KzJA4BevjNiPuJMiHesp Z5Sg6exMGSZF6kHEb7emvhMlc7WI5Gr16Yk/9Tcy7R8vSma4+eMABSlcDsLu KcvKAgCo4KAlV+NsyNXNyHLEynkamDjK6W+PXS+fNFwOFCVXCXfTOr20S727 0XOnSX10coRNWpWdOpRvhqzmLPHHYZkPzsLPmadhIiD2gyYKokxmqbmipYaI sRmJdZBNc9pOGGEfePqTrXviFSOAFuBJVZF8mGVa3nIHCw5pYsNzH9s/nZPo RixEpXlSrTCEJQTZIEzSEPpXZITAL14RsZ8cwdW9yOJnNgt/SySHBtIEmW8X H1uWDZFc5b1E19SitKPnS5cV/uIISViFWVkAABUcuORqnP15ZrBBMGvVgzOP tHQnbHTl79dvh4w0h4We5Oru3anWauOFKEWg404TJ32YLiUrZ1hUbAYyLpIQ WSIenLMiZza28f3tpY2UHSSOv3vcYZGPJucpSA9aLTFkjC319LoXmGhILiS7 9GVnc+m7JVWztJJwgv/JGyQ1tRZQAjypYoTMKmNuP+cVqxHiVRGk+tYLUnme VBuMYQlBDgiTNIP+FRki8ItXROxHZH3z10ZmMqviJ30UsuruSe8JJVKoWcnV hl7XjzJON4UfnbKQgDhRahic+bmC7jwAQCDV/sCc9mwYxy/oCvvM/0HS61Sd cq+pKw6hBVqSq8SXYqwQpRjKtdO2fGN8ZEjrj1rVZiAehyVGFRSUouLCUabP s5H8ZybAFp0OQc5OrZUh0FRiyMoKif5WorIrOwXK3bFaBd1VuZCtczKnfQHj A0+qiGRm1WL7bFGiHJcv31JZMFmRnlQTjGAJwX4QJmkF7SsySOAXr4TYj1hs vtrInbD3XLuZU/229Hw0XyFqAGlIU6+kbIyQgJatWswLrioLCZ4uTf0q+SmH P/BTPG4SAFAQNrJ8y3PVc2tZxchgWmFD7t46IzpE7aEkucque4ebhaindepu 5XwjZdlp6bBKYnCqUVG5GYjTatFiA2JMZ22X66eM2ct9cM7sdrEAO/MVm5jW Dxe2DfZQQzbNSTxzFewj41MNrXa/6nkjRMWI6no8YEDgSeWyt73wYStT0zJ6 IyQ51J79j7OjJvthXzaV6kmLxxCWEOQDYZIm0L4iowR+8QqI/YjjoX0d67GH C9Ov8TO06rvss9L+iD52VpyvpJy1op5cuXspQzIfq6BWnA3/9ZQgxWBqHvau H5y8CwCg0iFOSCv85IiO5Cq75u4VHmYsZzwqheaMSRl2WjqsolTcUu1mIIbG isRFxGjUnCpKfthB20QgvavZHb+9XuJOEt8v02FfKGFTozyIGFtqYkj0zlR7 bSoeJ9vreKWyQ+/5VO9esnUOAoYVBTypHIQGzIYu+9/CEnPtX0S3HobmJ9sZ SVHQ/FSuJy0WQ1hCkB+ESRpA+4oME/jF6Y/9yF6hjqmlZ6n/34uszE70cCoc TNOpqTlDCe9oCTG5TL4swM7Gwp+SCrSyI1VecNWkYGxWbMXdL1Qa1LSM33pc ofcfAHBAyRyS1vUWHKRYAVCRXH3itwvq8ZVY/lTqnZauuhEfh2pYVG8G9nlg UrjRpnq7P//8TWI0qimnful5yHWCaZ4MPCf+MJ0VLNAixEb8k8nH8Aabc0m2 tFPJIEuwEvS6VgvcUfbRgr0jfWNMXa7V9Hq5WVT1h8bmn+X/S0kyzymm3HY8 QD/wpBIQQ0MUoE6auKI9aVEYwRKCwiBMKhbaV2SkwC9Oe+wn9KrzJI+H2NhW cPbCqSZOCaDZdv5Lw0yK1IdMUfGhfs8DaXsS+2XxylstTJXZXJO8b9kly2z0 6dM8B6NCEruxra1R1qlQ7P7s6DF+V9W0jH4lddIKAADUwcZCl21CtF3BJTex kGcwLT5T2z7pL0r8Qdt3S0J+Eed8Ruqs0YgS77SU3BBzwhV6rvNnaU5xm4Fd 9ZwSDoVz6hAEhAC79lhPV1NW2MnDTVKo2xfVPws6fs0Uupmx1ZlhazK6dtwx pKwKqT1lKiiezz5ZdJy0MC09r/5X8oVEBciLZedx5qjdr3pARiQw0Za6AHqn GINCwJOKoC6zalIlTVzxnrQYjGAJgQgIk4qE6hUZLfCL0x37EdqhVaev/BCc d0+eaTMzXFrV7vaHK9VJk7DRxY/becfLdDiCuyIr3t0Kfn2h7wjDtA5+Hvgl ePG44K7JDPyLH53Hzfl6Sfgk9qH35v/zxSlLrWglKht7HPh8sJV/73oZPSwA AEApz+45hTaUSinz2FuZ+dCe4v2xodfaGlOtIUkYs7V7YOT36RfZnf6t0rxb ITIVCy2jcxsV6m9KuNOo1t0qdjOwsTXPYB2v0t/rWiYCKjYamps61cQ02KZv bzxbcnTU8p+SHmsSDbkHLHlnKEQXHV2WxBvWDXrWMuEQESkxR4fd3xsuuhYg ZQaFX2zLu7PZwwvYyD3vRK+FOTY6e/95ui8vXcjB55Sqet1rqheYdQ2HR+b2 jVYA1ANPmtf3sbvLrl41mVVVI2kOhCdVixEsIZAAYVIRUL0iAwZ+cZpjvw1P X5bbYcwtfWMXvUublSoDkJd0uXKBMtHY9mrgS8dQh9lU3dR3wbuyzb0ik6i3 jvkEl76z5nm9zpTvWI1PYvPdWLGNm+MtTE3LyF+CWzmmi41FQgtuu62JCyEY 6xnHrYpVYwAAAI7doLObF/a2DLhDBmvsUEHMbzebTGZrZ48MXm1rZERFirR9 t/zsbfvO8cftVU2j31ay/kypdlpKd4upty/QprulyWbYiwTdwy01XJjdNfb5 7LzfN+v+5Hc9TdWExhQbDV7iy8kYS8/EDd/fZz45Y63inqnzCd+zsY3b07YG UyIAs53j3nDhpscx0sn9ORGSGRJSZrDKeuyomX8gaDrxvvP63II/dWdqzO3v uBd/4deeDkcbeiau+XxfXRw6ylhOuZbVN8IS4lcmsW5cQDXwpHl8H6kkoBDF iqsHxpOqwgiWEEiDMEktNK/ImIFfnN7Yby948VdmhmlsPzn03pTra/+PGwc1 m7cT9jkGrNyuMLedmXB95fP7/QtzM1c/d9iHeqwJU1PXNjh51f+AuD9sLPzV qLCRbBdm/3nTMzVoZfLXJ/M/urTswM7GgqO/qdpkfqlv9I/OK263+4rL8eHI 6eONvChrY+db09e+C1fg+DAAAMiBjYXc/by3rTtzA3P7Sgy7fdveykncGG3U pg6UZqeldezTp67UoOFmYKMP/NccYwPd1sRDtNnaNTDuyI1q2NjjpZnp0ZNt jVwMevo9p29NbKRo7FHQe8kuFLAxjW09A6MXLnvvhI0dspIyg/UDMz/Htu75 PJ/ah/o6uaiSMVs7+4YnXDeDW1ln+rtbwW8ujg10JV5jbukZ+ezW6tMiVhkN OjozKSOxybuAauBJy8lB8qQqMIIlBHJAmKQOildk6MAvTmnsBzKw0fAd7+UL owM9/Cko9yW+2j80fuHSjdvB/KW8nD6t1/F2apOcc91+kO91gltJV0GnPusb t+P86ICNO3e1DYy8P+G4PPP3xdVtRL4AgINEbMM7ykvxNPa7V2AAS0d6ckRV j+MHrWZjGZkS7LTU4FTxacgG5MBthhLwxDd2JJlRYPrd4XLYNnbF1W1O51aZ Ps9GGS4ClAZ40jIB4ymBASwhkAvCJBVQuyLYLkArvMoxjSocAABQAtgnd6df 5QobLH3OIPx7aUiH0NbhmdWD8rSj+057ODNQz1V9jNykaib7gdwMekMMNShX BMiG3baM9lfVkam7KKqrZOBJywCMpxQGsIRAAQiTFEPpimC7ALVwKsfVFKpw AABAqYjdnx09xjUjtbw//xgJAL1JT/ow5KhNXdF3p615+upMzPGJAEUh9gHe DHpCJDarmif+XZb5wdmCqxi0fQCAJy0pMJ7SGMESAmUgTFIGjSuC7QIUwwuu Ng55N8t9IQAAYGBiqzPDVl7F+rPFCJ4K9SMtGH5QYyodd1psM/Dl1W+C9NzV A78Z9CItwlZWHbbYfe/4y5wugLlj+PJdfL8HAnjSEgHjKQdjWEKgFIRJCqBu RbBdgGp4wdWq3848QoQDAACiJI/L8VSoI2wkMN1lOegxFXYaDzaDbmz77a3J jAJ1OmyAdmDf9AfGUx6whNQCM1KhwHYByuEEV5luVwi7FwAAJImtzU/2Wkw1 Lfbb0IzTnhc/uU80mJijw+7vD3pMhZ2GzaAfhMxgVb8H09tBqYF90xUYT5nA ElINzEjlAdsFaIcTXK19yfE9zuoAAEAeOxuBr6/OrUTLfR0VCLsRuH791so2 Qiqeg73TsBl0g5AZNHe7VnCHQTk42PZNV2A85QFLSD8wI5UFbBegHF5wtW0i gAMfAAAAAIDKJ+a3m4WMAvOqcxnjTAEABxFYQgAAANrxYnvunUPNHyw8w/kA AAAAAEDlwz7+x5StuaqxewRjpAAABxVYQgAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAACgK/8P8lqnsA== "], {{0, 357}, {1823, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{1013.9090909090911`, Automatic}, ImageSizeRaw->{1823, 357}, PlotRange->{{0, 1823}, {0, 357}}]], "Input",ExpressionUUID->"25d500ac-ac3b-47b4-9cc8-decbeb366fe8"]], \ "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.7422199554720297`*^9, 3.7422199575880423`*^9}, {3.7467909251350994`*^9, 3.7467909255028553`*^9}, {3.746841618642968*^9, 3.7468416189388075`*^9}},ExpressionUUID->"9b947347-44b2-4924-b1db-\ 5a028af71dae"], Cell[BoxData[ RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "2", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"V", "[", "7", "]"}], "[", RowBox[{"ii", ",", "jj"}], "]"}]}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{"Bt", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], " ", "-", " ", RowBox[{"I", " ", RowBox[{ RowBox[{"V", "[", "8", "]"}], "[", RowBox[{"ii", ",", "jj"}], "]"}], " ", RowBox[{"Cmetric", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"Ft", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", "+", RowBox[{ RowBox[{ RowBox[{"V", "[", "9", "]"}], "[", RowBox[{"ii", ",", "jj"}], "]"}], " ", RowBox[{"\[Gamma]5down", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"Gt", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", "+", " ", RowBox[{"I", " ", RowBox[{ RowBox[{"V", "[", "10", "]"}], "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{"At", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], " ", "+", " ", RowBox[{"I", " ", RowBox[{ RowBox[{"V", "[", "11", "]"}], "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{"\[CurlyPhi]", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], " ", "-", RowBox[{"I", " ", RowBox[{ RowBox[{"V", "[", "12", "]"}], "[", RowBox[{"ii", ",", "jj"}], "]"}], " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"\[Epsilon]downupupup", "[", RowBox[{"mu", ",", "nu", ",", "ap", ",", "bt"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"Bmn", "[", RowBox[{"ap", ",", "bt"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "nu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"ap", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"bt", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 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.74222001333444*^9, {3.7467918697920494`*^9, 3.746791928704928*^9}, {3.746791968956151*^9, 3.746792112251458*^9}, 3.7467921713634367`*^9, {3.746792279978081*^9, 3.7467922815621862`*^9}, 3.7468070365364637`*^9, {3.7468336318968525`*^9, 3.746833908725961*^9}, { 3.7468340247915945`*^9, 3.746834030822856*^9}, {3.7468383208540077`*^9, 3.746838321475814*^9}, 3.746838694099639*^9, {3.746842772556848*^9, 3.7468428925956497`*^9}, {3.746844161195377*^9, 3.7468441832212467`*^9}}, CellLabel-> "In[107]:=",ExpressionUUID->"d4687190-0c09-46a6-99e6-cf9f05303ea8"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "2", "]"}], "[", "1", "]"}], "[", "3", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.738583861309019*^9, 3.7385838765788927`*^9}, { 3.7467922485866156`*^9, 3.746792260986814*^9}, 3.746807037572306*^9, 3.746834055321657*^9, {3.7468429119830484`*^9, 3.746842915326128*^9}}, CellLabel-> "In[108]:=",ExpressionUUID->"d014ee55-0ace-4168-9fea-b52d11c026d8"], Cell[BoxData[ RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{"Gt", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{ RowBox[{"V", "[", "9", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"V", "[", "7", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], " ", RowBox[{ SuperscriptBox["Bt", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"V", "[", "10", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], " ", RowBox[{ SuperscriptBox["At", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"V", "[", "11", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], " ", RowBox[{ SuperscriptBox["\[CurlyPhi]", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"V", "[", "12", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "1"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "2"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"1", ",", "2"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}]}]], "Output", CellChangeTimes->{3.7604679840093985`*^9, 3.760468242238859*^9, 3.7604703407976255`*^9}, CellLabel-> "Out[108]=",ExpressionUUID->"c145a2ce-76ae-4b87-99cc-a3e6de79307c"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnW9MG2eex9Hdm3sxL46XvEDiZFnyC6QoQpYOFK3gBVEiSxC1QhZNhSBK DtBt1rC9wLUKpGogVeuqidE1pnuxtrGyG6e7o+zG7eFucVKcyo7KZOsoWKmz gcgkOAkECHIQBJvh8P9nZvxn/jxjj/HvI91pby8MMw8zv+/z/P7+2zHDW//x TxUVFe/9y+7/eqtrsOm3v+16/+1/3f0/2n7zXm/3b04cP/yb/zrRfeK3/37s n3f/y/7d/2nY/ffR/7wDAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAUmvDJHfW+7+OHJ ljqiIo66UX9y+OLXU74XG7To624uTv+uq/Xc1GIY480WGlgcAACAohN+4SU/ 62lSV2SlSttpJKmngs0y/cpnO9W4a98J3ah7SbxRLyKwOAAAAMVna2WGHG7R ZDfFKBrdwFee4Ca/K9PhFe/VvuboSUTdNeZeKMHDAywOAACAAkjt7eMQ2raB C1cmXNPUfd/M36dd314xDbTVVbGtsvqoceLBajjnUYBem3Ne7NbGflZ9wjLz qvQODrA4AAAASoB+NWM5kXBvqVoHLJO+pQyuLHrjKUWe06sJplGu0nZemPAv ZzgR0OtBijR2NsR/gGj6gPSXoDWGxQEAAFAC4SeTw4eJuP9q8A/UYm7/FR1e nLbG3VYss9zx0SVy0kN5fT4v5ZkkLZ8adCm/GaFq+cTJ1zOmJGBxAAAAlEDK GquPGh3/CPHc3NNrs44LnVqO7ysjREPnhe9mQxF5H0QOYHEAAACUwPZj8tj+ 2N7+4+8CrwVnsYUe3bQM6lSck0QajW7A4szoB1M+sDgAAABKYSNAvtc6SPol 7O2j8Zpvfm8cOK5LpRmoGvWG0UvkrXvBddyBmO2N4L2b9m9dhTDyJbc4AADw AZMZCa/Mer677vgpUFa+kfJ8asFEVjznW+KnFeJt88zrYt8PAAAlByYzko5o V1S+YwtsY71HxVKeTy2C7YfWIzVJN5qqg5wv9g0BAFBq4DEj9LrnXG3KqV/5 nmO5HA4a5fnUoojcNx+oTC5UL7mwVewbAgCg1MBjRiLLjveSVyE0/RMvysKt X55PLY7NoPMzfZ2qrm34CvUckhMAABAOJjOy8Qs52KoitPqRv0gJbZcY5fnU AAAAAAAAAAAAAAAAAAAAALDHocPBH83dByq77YvFvhWlEPGa9te2DF+HgAgA AIAyiIRmvupUExXE4TNTzyCvKknIb+1WQ9tMAAAARZCWquHJJ5DayiA574Bo OjsJggWUEnR41e+0nDmhqyOIupaT5y7ffMS3tWzxCfmvGrS7Nung+Mybkrlp QGaSUlVR10POgVRlgF5yj+oInIKFxYxsrfqnbKb34xfRdfSNXL41t/c9lsV+ anpj9VkQG0sh2b64SMhPDjbVqPUjVyfd0z9c6tHsvsLVzcY7ayVg++mtR1fa E3V03WQQzBKwEzWbC/a+2GvcNHp7pQRe4yIRniN76qIFqM3np9ck2kYcZiS8 4Db3agmNbuAi6XRPu64bO/ZXYD8A0pFwRPI7geUicQrz1HnugTKqsvcFF4m6 sa3LMHTeQt7yzq9hMc304q0zTZqm4b8FE7N3X3lGDsRKqEuhQyA9b++tSy5O o5EKFfuGgOJDr90xNldHOyjof/9LhnmeOQiH5r03SYtxoLutUZ3sJaBtG/qT T7aNbmy66OeGljqi4pDJW+gvjl75YVi7u9sj1D1kIPf07dzXkW5G4p3x1MfH p1OlxPQb71hD7Crq3htBXLsOPJYZ0964YE+d5zbkUCuUqrq2D8a/uRvckNDx kF5w9NdXtl95tJValBBlbIxf/6DlgbKbKUaWnac16QU5MOJ5VexbAopN7JWO vg7qXtvsOt+fCi/7nZfPdjRkGTxDaIam1vDf69aK9499jdXJX9JTDOdAZG36 fGysqVpvmdkQdw3pZiTullR3W/3MDWeQ7MC+OMpRq0I+dZ47SXkCn875/h6d Y3tpqI09n30XVcuwbcrrn8/lB5zzUdMe51+t5nOn2rSsSxDa4xcmHqyK2RfR 69Rn9cQ7Fj/yUdOPbfqa+IX3m7xK9hfTa+7R+kp0JaEBb9mzESANsUORut3q 59WZjl6bu2kZ0GkqcqMyUpjNxmZw8mwT8jET7bZAUZyW9LJn9GDsDlqN08vC b0G6GYmsuM5qCd2oe4n12+k5a2tiefB5Tpgxmnn/PYpyO29YTX0tmUQsNo78 2oRrmqJ8c4hNfhmScBSNUdinFkxkzfVRLWsxakY9m4KdFd+x5w9WabvHXfMC RxnST+09tZU9drRlIv3C3pNQgH0Gx3NB1yssoRmznincyj8MArJCb83aumIb QqLV4t/K+zUkSrFyDPKUUa3W3SO16G9WtdvmihVhS/oDRQWwpJuR9Z+M9dXa 4R84EUb6tetM8uTZZvGLPPnxhV71jrUxXwZC02dfkKpKWVDIU+dg2WGoZCxH hd42L2Yx6PDqgwnjUTV6KXXXmHuB/ycVe6PqBpxLyH8XfmFP3mClwf5CsUkL aHKFjBYFKCWSOQMVFYeMVF6fcCppMLrP0XZ+cnWSijs45mf+MtRULfO7tb3m fL8KvT5xzBZ4g/EXCGRrgeyNfU/Vzaa7vP2nUSSbkdivztykfd1nTh4yqs+4 BM8VFwzHRyifu0ZBT50Vrsu0gwyKv9xm0P1FB+pdJA4P2R/yyxqNNaVnTU6h 52ztiftjbZaUBSO5Anl66FdQvoRfOAZj7jxesWl6caIvfgrTHjPeuL/C2D9z pKRC9K4y26+PnkfQyxf/c9u4Z26pia0f06eXB+lmZJ7s0NQbf8rwK+l/WFur k6LnWOZ9T6Kh5216xl9dvlC4gp46K5jVaieZOIpsBXnXQtKr/tvUPHrO3PZb DiauUttjf6pUsUokVxAqVY2sJgUoIaJ+lfh2ns/Bavfl931HXrffvJcxSSna mojxYlUeMN/HGMNFHGUJqzjkeonv8uJIHa8qKrvIBd7fkWQzsr2xurSaMVUs 7YmqbrX+oxBfdiq9IYF8YSMlPXU28KvVDtOnkRAsUX1mQl6TLnGFqlOKnVaZ SK4gjpg8346w5ApcgWWKSEubDc5nWj/kwrjJRRxlCaN+zrOugG1WWvEPjnpE pFvEwWVG0PBNoXL7C6dW2SjGU2dDFrXaSaSXoJcVlL4bJ/2uVlQNOGXI18VC PLmC0AxOLqPDSRP3/b5zDfIsyo/0q4vlkBIOkj2EfO8V2w1Y2WD6uYghK4TN Weu78QcnjlhnxT0xNjOChG8K9l0XX62K8dTZkEutommo08ZW9BMjWr6cEVAa Sa97ziU/IVbMVDkkkyvU/fbgVsz3y1pNaGdRhkSWHacSYab6zygMh5Ql5wAj Kop380YHbO0MLdSZvEqpaqcXyK6E1PByqHIvgM2MIOEbopPkWyS77rX0dnYg dBo+vGi7zbeLkWi1oteD1F/MwwbG7+7o/E/rjLB9iLinlgn51ApJQ03Cu+Qk ykvX0IHEzynEL8ElkVyReq5l11A9czVbzT6BJ0qg1Nl+aD1SE1cVPCUM7Nzy xhHPqvSrJkmfXxI0jHmV098SOfdV9TmEewPxmZF0+EbIn3X7qet//rujkZEr XcG/i5E4taKfuc69za7VinZK/PBL11NhL6S4p5YJOdUK9d4nyJwhmYk150Bi e0rUjrgVafGTyRXpM2OqXl7g2wXsHVJtaiowFaegp4MYeM5rSRBHWfwTVYwb MA6SDykiqR6bGUHDN81GSuDRNrzsv3GmiVU61Tzmzft3FKNWqWTU9K9S6z93 BkSknkt7auzIq1a7b8vUkAb9I1XWj7p5dJVEw75MvwS9NneHUkIP5GTnCjT+ Gw6S3czVhHYW5cYryngo8cc/aPFj2IyuekYakTeqqtl8n7eDIi+I0zLj56YE 0tv7miPWh0JWFKMZkR6+SXU1SRuH/PXXItTqzc+mBmb0XHPKviCuG62SglY7 8qsV+1vjt0FCw75Mv0Qs1VYJ/feQ5Ir03cVqPRhPW+ycT6DApL12eJLM6WVH Hyon/L0TfNjyWVprGC+sotyAcVBrIGgDgNGMYAnfsI+xPB5HsFrRm5RxH+NH alotPpFvjKKCVjsFUCuOH4PH5hAJ+7J2U7HNEqv0rwiwkivScJcTctjLCfRt x+I5YfvSRcVussFqwlyhPDdgnM0569HkHQpwruI0I3jCN0gufYKj1rmcpx7B arXht7QxfkJKTxJFBa12CqBWqOs4SZ5wJ3JCYS01HSC7auXpPi0EdnIF8v9J t39Mfv/Frf4GCgriScDiOUknbMQRlxeXBe7BSoFuwBhIeS//7oUYzQiu8A23 J0m+NEXBavXcYWAercS7oxUWtNopiFqlux+n1zxnUhOSq9BqRV5Net071kxg /WDFwE2uQGC/XTKsJ6BYkII7HJ4TNGEjdk1erXF5wo3FK9INGGfTk6q7590S CqMZQcI30hw7iOzGqdHbHud6GqFqtf3AcpChhxKKHbA9NTYKoFapOWhpcjsc 0odZhhtty29t1zDjREUgU3IFArgCyxjkZI0laIVkX0fB2nyMG0NRqBswzoK9 OymtfA+t+MwIEr5hCp9wOLvZPOZBqFpx2+CKNj8YnxoXhVArbqZc7vNpektZ M+JJeHVjEy0rm0anFotr+jMmVyBw21kUt2sxUDjQHBsM9exIYWxcrDBWHa4/ snaxtAp3GRde0HAMzxpGfGYkHb6RvAl57RpidtPHrFbsmRoS4k0YnxoXhVAr etMzWsP6MoiT9sXsC5Dqg6E+bp6845n8w4h+H9F4yuZ7VdxzVbbkCgRoZ1G2 oD6EfNHz/Lz2md9C3iIJmV0c6OCNXu4YVsXW4EdBIz75vGcp8JgRNHwjuT2j 0LOPULVi/3vRFTRYnxoXhVCrnYjPzHIF5l/26ATVyyOG9kZVdZ3uxNC4w7eC L3FXHNmTKxC47SyKOr8MKBio50T6gZrVvwJj4jq96BpuYn+Oim7FGQWN+FQP ufg2V8VgRrCGb0pGrZQXtNopkFplyD0ovbLZnMkVaaCdRbmCOnmk1gWzEtcx tnOJ5xhwxUqxrTiToD6uQoZR8IZvOPY2T85wsdRKgUGrnSKqlWJ8ofzIk1yR hhuk03TbFwp1m0DRQIsXpE7hZOeWv2X2YZrUkBpxyP4cFbN/zgZqqWpGPZuF MqB4wzdC7a1AteJMbxS7CVFg0GqniGpVWrlyyeSK/ol82bPckgrebnal8HrW ccmoFC45Zos6Uoc36Jck7d2m16nPUG8ylglZMTImV0RRRKeCPKAR4YLFgtHO VFiK0ThxbaxqxTHn4hw72J8aE4VRK+5vKSW1SiZXVHbbAvkjUCWfw57pj1VE SmT10DO1tHZb7GlTDYNOLDPnk69xpjXmXXJbRNCxKVi96/Qrv/3zniaNSvfB NVYCRthv1Sc+Bkx7Bvbwl4r9Jm+Oo4swtUJTI+J02eazxOkK+tSYALXKSyK5 gm9SFucwrvT4NRv6yUT/rzJENooC8av+iSfK+Vyyg0SlpcVkt2etR9DVx9Vx PVpnxJ5bkaQkEoHQiDDGKNt2yPNxam4s04WLFFBXdlh+waKP6HsSI3dCjjC1 2pq3dfG7eIGfGhOFUSukFD1FiahVYggyr/b+cRbt3YT8SwooC9SWSsn4RVq4 RxHadTwbWX2AUQ6YfUqJTOQA7RaIMUeL0bsA2VjS4QDZk8jzr++zBzAZK26k IGexgzC14vRh0NvmMxutAj81JiBulZv1u6bm3bN107Brke8Gl7ukuQ/7wF4A k5+KNWEHT+I6vTHzZUvW07Ji58exQH2tGJusvvaaktsDdbfVH//Dba14L/do Y6pCHB6yPwzhO95zJjXnPCcKUis0kS/29mRPkCj0U+OhaGqljKa+eVj3W97h l1yBwGnVVSLCDEgBjZ6LVit5Oq4z8gCrG9tamYETxeeuJ2Bk2+L7pOitWVtX 9DShaRn5s5ua9jjJS2c7tbGi4ibDuHOOxzg+QbDtQ86GV4LUit3IIkdzkoI/ NRaKplb7DI7n2H8PVnYPxdc6eSdXIEA7izIEh1qxO64fGHK9lHpfqX4Occuo //LW1V8zx3kb7C8wvZzh59Pjx9XEu9ZZiX08Ml9dHrXaZXsjSF0fe7+7rVEV HQive7d70Gixe2ZX5PloOUM9clTnCVArjo8xT3OSAj81DgqiVpmSLHg2+yoe 9IKjvz467Hjk+0BQEH77gJb5sNL78AAKB1Wr7IlYuWB3XMfRCikRdU2gNpCB eXZOGpbaT3pjyfetUb8vn0WV9DvQhLeSdlewO0DmyHIRoFasbMPKeuNPyraw wimEWnEDi8qYm5wL5mcuFWhnseeRXg3EmrItPZxEhxfsfakoGHH4zNQzmtXQ SUrtJ72x+izg93ombV8MdTQgF5XrbcdX0VZs6BfOQXRjkt0ZyFut2AooZQij YimEWqHJPMm1VHg1YiK5AhfKd3sCEpGsVqz8Cukd0TdmLPpUynpNyxgVorkd O8WkL7JtBqFtO/2FZagldeegVvlIRhlSaE47M/YS4atWa14TWvdQqR3+YUXJ BlYchVArbqNXhVcjJpIr1L03REkq9yxZck0RAaGgaiXCy815ZyT2xaWX3KO6 1LFK02dfCNMZ9o2iGi5F5hznjUaT5Sppd3q8D4OhMDOoJJNaoQNZSl2tdjg1 BdXNxjsZMht4qRWn7jub9pU6BVAr7sgnRZ9SRSdXpCn5dhaAYCRmWbBbHORp dpqH9Vlbb+pYRbR84Q3FbBcdIDuZBcLYGpYWQK3ky7IoElsPbV37EavYapzm ZIDyUSvGIXr3OrpR95KCzwISkF+t0G6fiS9RUd08WCSSKySNE+LMsxYy4wAo SZDhtiLM9ZpzgHmyktC7KbLi/rQp5RXSnnYEkxk+7N+CsWEpqJUY6LW74+37 0n8QzXvXA8wTdV61is2XRHyA+zst9xRXJ4UL2dXqTcB2jFmYiKvvmRwI71yR EWhnUXagvSyEmmtuezfRBj8SmvmqMzVpUX3CMpNuARfxmvYzfgvGSqsCq9Xe ca3ToXuWTuTPsvsn875MC3FOtaJDD8jBQ2lLQxzose5dqdqRX6227pubGfu5 fPOhikoiuSLvWJB8cFdV6sCjQgI92EWAqpXQpBpO7ziRWYV0ODgxqE163Ym2 Me8q8hpzk53EZdpnpABqha0To9KgNx47jUfTvjyiuc96J7gRsxfZ1IpeD965 MqjTpH9I+2vL9PM9cN7MhbxqxZ59oOyDVbJzxeCk1AYC7BYoJeW5gB7sYpCw 86cf2/Q1zIcWoVa7UvW34abkW0ccHp58wrzEc4dhH+OX4GwIVgC1QvcDB0Y8 r2T4FUVka2XmhrEzXQhAaDvPWuyeqYvMQuKGIftdynH5LFoyoDpkMH/vXy32 aPUCIKtahR/ZOjXIpQl1DxkIK1OskskVmkEHhtJ+NIoRf/ST9sUSydKBHuxi QJP6CGE6wP0GhVcj0mt3jM05pGr3aDVt3Mf4q0odGcl8BvnVClXbkmgaL5zd ExP1rWWku0nF5/urqmsbMNmmykKn4sioVkjn+TjRUnqlvmOJ5ApNp+0Rjp08 d949Rq8LoETQqJCwpJoMfckEna3o8MrddOxD3TXmXuD+MCfZCe9MWPnVCvVX lNDeTxT0xvLjmR8d1yymoQ5m5xGVzjBqsnztcP38cEmxARXZkEut0M7zcZTX fz5NMrmi1eLfwvIKcGME0M5ir4Om1gj6iDKoFf+KLaYDkJlWgcCtAdR02xf4 32M+5Fcr1FKVz1ADgbOD9zjyqBXDLxElUUqvTBJ3SxwxeXFNTWRk28YolU7X gFiih6ukXAkKtmVQK3UnGeDxuWxvBCZSUkU0nbHPZmudzemkitnuya9WyGYA qw9T2YBaoeBXKzq8eGcczcmsqG4a/ltQoeGqVJNqHMkVCJx13VNZTEAm0MCK EFdepulvRLstn1xtBt1fdCTcF4S60+JdyeFq5qRYYJ4LILtaIY5WvD5MZQNq hYJZrSIhPznYhJ6qNC2jk8qVqp3NBfupWHBNZ/LifA04tS0CI+9A6YGeX4RY FfZYojg5B4CGn09bfq1NnDX26Y238nxi3JlrJaZWkUX7yeTRqpzcFKBWKNwv Jetw5DzQoUfOi71aNFRFNPfZ7ivWAbhDvw44PkpW/WMeQUXP2/TMda0Z8cDU kD0NWuRbo7c95vviZ5CSGBmDUNG0sWvDLcn0JXXXmCuQP9y+6RmpYV4cc6KC 3GqFTGYnespnWhy4aBAia66PalnfSM2oZ1OQwIRD897vLIM6RtYloWr5kJx5 iemtosOrjzz23xsHutsa1RWqRr1h1PKNdzG9n4yEhR3f6PDK/Ruj7yDdter7 HfjaQdGv7o+/y94vN4/78KRwAEoF2ftVDTh5B0FDXpMug1pFjVPrgGWC8scG rM37qck/GnsOJs1XdWOflVrktwPK4GyMl8CHQwHqG8uY0XjFsyjlY5VZrdCE wFIqtJdIvAIUBXPAIjvYTa7Q37+x+iw+LvDpnO/vlGeSNA/oMiT2q1qGbVOU by7XwME5X3Q48l+t5nOn2rTsS6haB68ka7GlE35OXXk/dp8aXd8F26Sbmp6y j+/eebW258pMaCvk+zpa0x0f35PzQqGlhd37djm+Ts50ZkI0G8x/dXn980sh wd/t7rUTy+J2kv/LqN1LU91o+J3DQ3njxif4YhXXEgEKATWqB8w+vmcXestv aRVS4UY09ltu8zhSpcgUGqtQ6bq7dXHtI5o+nw5JeRtlVqt0h0Nin3F6r/ko 0pY5viu5R+2akRtWU19LpjL9Km3HR5euTbimKaaRfhnCJR/YTK6Ue5C7RwGh auo1/tk9i61ajQ4Hb491xOI/7CqSSOjRnwyaKu3pLy7oE0+Vs8glsuL8QJ3r 5tHnEOok2fBb9MLLaSGStfdAQ1dCBkYz59Hnemnqjo5cmxa8FcyoVslLqvXn p4ISFUBWtaI3KWMyR0Ty2C8FgscyY4llYDS50pBFrarqdB2GofMW0kk9XMRa roYUkmSuIoksO08j1ce521YLUCui/mO3sE4Cr72mQ8KXrvYd2yM4XO0xkPb7 tT32pwI+iPAT5+jb2T9QQqXrH7tOiXRZZE7kiHsab89jOOPLqlZIh8Dacx4p 7aaViVLUCq/JLSPoxVtnErmF2SNKb342NaQ+wmYjhataCgDEgqRMCAldxYhm UFwfG+xoTPnno/GCDy9e+T+PX9pWkDGcMUq0Dd3lm/ia9sipVuklJWpH3ELn XAI8AZMrkvScMkLTP5G9DS6SKSRqCioA4AZxBgpv9ycju1J475adJEn7Tcof xBbjSCCjWiE9ow4ZqT3WzFYxgMkVCTIDmnjH4s++mUJnoWKbggoAkqADtvbE MaZ8KoPkUytE/SGrVi7A5IqEXp4c1CS+9jxThl+7hhIZWOVU3g4oHPqZoy9R Gl7V5yhIvnHRkU2t0gPyVO02sI6yACZXLGiJQZ44dcRnTh5K64dcy4W7RwDI BTLWrbKXXCiH3vsyqRWykprTTvA7yQKYXLGsu0dqU80rj9kCb7L/U6TPOXhQ AUVBB8iuePJUTavFVwZyJY9a0S+cgw3xQ2qz+X4ZLGMxAJMrEnrdcy7dWyNP 0fqSc6CO378EgAKDHArqP6P2XtI1G1nUil4gE9EUdb89CGIlB2ByRYMUVuQt WkdmoUILPkBxpM8Fmi5e4z9KGjnU6hVlPFRO59OiACZXNOiA+Dz5VEgZ5j6D 43nBbhEA+EGHA9c6K8vjeBUO2Pvqk18ulmF26Op94lkrc6eTfIDJFUvkvvlA qvQsd+Oa3b1cD8HrXwJAsUglBu+t00FkznHemOTTkYHjujpWD3lC1dhuGPo4 9Y+MVkpYv6T0yTTn5BRAImByRYN2IKk+43qd4yVFPKiMdnt0ePHBHZ+kdtIA gI0tv7U9Vp+iNpCBjWLfDSbi36mqsa2DB+/q6gihU/Mia55PYke1Su3wDyug VfIBJlc06Kzw3FE8ZEvA7G+z7BqqL6NB2IDSocMBsic64Td3iwAgDb12x9gc reohms9Pgw9QVsDkimee7Egqfc7NGDLrkDn2LrqkNQctD8o9XQVQEOFF57A2 FhfoIefKbgsqlFQ7+soOyy9lPCe3QIDJFQ2SoJJj6ehV71hbckNwyORNN62P xQExz6wHAKmkpnOqu61+eDlzkFL2xkHHPCi7/IDJFQ39xjsWj61W7DNSmUcY bwYnzzal2kkzZlG9CdiOEQ1j3jfgcAEURvjJ5PDhqEOw6VP3Cni3MkJvzdq6 ol7T/Z2We5KzCgE+gMmVAD1v743H8jLqdXzdag536LXcyGC0pZhmTyVfAXuJ 8LxjsDE6/bDzq5kQCBaL1HAlkKrCAiZXPHR4wd4XbbFIqLtss0jLZXoj4DL3 aon9neN3Ftd9ltaa2Nqlcik3AqRBDc3EACWTOGGBYLGhQ95xvRqkqhiAyZVC JOQnB6O7LEKtH7k66aY8k+Sljzq0VYS21+wKxMbS0Rv+K52xVCt1h2nC86Pj Un9j5eHhySfg6wYUTXjBPdalrqhuMt4pQ19/ZrYfk8f2VxCHBskHIFXFAEyu JOiNp9Q3lhFDe3SOanSC6qjlm7vMMd90eMXnGB8+oasjiLqWk+esngVYN6AU 2Fz0fn/dNbdX6q8kQy96v/329twaKFURAZMLAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAlCj/D/MaY4U= "], {{0, 113}, {570, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageMargins->{{0., 0.}, {0., 3.410605131648481*^-13}}, ImageSize->Automatic, ImageSizeRaw->{570, 113}, PlotRange->{{0, 570}, {0, 113}}]], "Input",ExpressionUUID->"aafc84fd-fb75-419d-a2d4-3bccdd6962e7"]], \ "Subsection", 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.7467907692860627`*^9, 3.7467907703835845`*^9}, {3.7468323812412453`*^9, 3.7468323814975595`*^9}, {3.746843004040305*^9, 3.7468430062071605`*^9}},ExpressionUUID->"5883c227-e983-45ba-9d87-\ a24584fb1294"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "2", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{"At", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "=", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"U", "[", "1", "]"}], "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "jj", "]"}], "[", "aa", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}]}], "]"}]}], " ", ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", 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.746790941763169*^9, 3.7467909620381284`*^9}, { 3.746791014063071*^9, 3.746791016179489*^9}, {3.7467910797158837`*^9, 3.7467910797940025`*^9}, {3.7468067755280533`*^9, 3.7468067766137543`*^9}, 3.7468069922880526`*^9, {3.7468325235438285`*^9, 3.7468325738800564`*^9}, { 3.746841941956887*^9, 3.7468419433321996`*^9}, 3.7468431477765765`*^9, 3.7468431873983917`*^9, {3.746843257788223*^9, 3.7468432613306885`*^9}, { 3.7468441989100027`*^9, 3.74684420008457*^9}}, CellLabel-> "In[109]:=",ExpressionUUID->"c0f56097-25a9-44e1-b64b-f9c68aca4bc0"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "2", "]"}], "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"At", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.738599772683138*^9, 3.738599779656537*^9}, { 3.7467909835342636`*^9, 3.746790992363244*^9}, {3.746807003771184*^9, 3.746807004048191*^9}, 3.746832586396632*^9, 3.746843148945166*^9}, CellLabel-> "In[110]:=",ExpressionUUID->"19bc66a5-19f2-46ae-b971-b82fc2549602"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"U", "[", "1", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ RowBox[{ RowBox[{"U", "[", "1", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]], "Output", CellChangeTimes->{3.760467984278496*^9, 3.7604682422880383`*^9, 3.7604703408256917`*^9}, CellLabel-> "Out[110]=",ExpressionUUID->"499f7d8b-11b8-4afe-9bc5-7646f6038297"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "2", "]"}], "[", "1", "]"}], "[", "3", "]"}], "[", RowBox[{"At", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.738599772683138*^9, 3.738599779656537*^9}, { 3.7467909835342636`*^9, 3.746790992363244*^9}, {3.7467910287404957`*^9, 3.746791032001402*^9}, {3.7468070083750753`*^9, 3.746807008660968*^9}, { 3.7468326750358877`*^9, 3.746832703754118*^9}, 3.7468431493431425`*^9}, CellLabel-> "In[111]:=",ExpressionUUID->"09df0f6f-08e9-4f36-a64b-8d6519351377"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"U", "[", "1", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ RowBox[{ RowBox[{"U", "[", "1", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]], "Output", CellChangeTimes->{3.7604679843102646`*^9, 3.7604682423083773`*^9, 3.760470340845497*^9}, CellLabel-> "Out[111]=",ExpressionUUID->"c32d2a42-64b5-4b18-a159-705a0c00adf1"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnW9MG3fW79G9b54X8+LykhdIXFmW/CJShJClmyha2S+IElmCaitksa0s EzUXot0sZHsDbRVo1UCqrqttQU8DvU+sNlZ24+zTUXbj7sXt4rQ4K5ynuFtH wWrdDUSmwU0gQJCLIBiGy8z4z29mjD1/fjOeMecjPY92u9SY+Z35/c7vnO85 53+e6v7l//5vNTU1r/7b3v/7ZUef/Xe/63j9xf+x91/afvvqmc7fnn7l5G// z+nO07/7X6f++94//O3e/23v/Tz9n3cBAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADEkFmZi/7d f/mtsy1NRA2L2eY8O3D5z5PxJxuU7M/dXJz+vx2tlyYXMxi/rEbAMwEAAACA aiLzJEa+12U31+xLndXtIaOPJJ/y1LO4/7xtz10gHENTS/J9BO2BZwIAAAAA VcXWygw50GLZ/2RHsTh6P4mkNsV9MpVZiV3vaabDI+aOkakF40Q04JkAAAAA QHWRDziwENa23g+ujYeno/fjM/+cDv/t2nBvW1Md/5A3v+QZ/241UzI+Qa3N hS53Wpl/13zaO/PMMNEMeCYAAAAAUGVQz2a8p7OZG1Nrr3civlQkS0NtPIqS l5xmgnvG11ndH4wnlouEKaj1VJT0uI+y/wJhf4NMGOdwh2cCAAAAABUnszIb +fxm8OtkehvHp/04MXCSYFMzfX+MLpZOzVCZxWkfm5HhnfKut6+QE5FoLB6P RSMTpPf33Y58SogwtbwbEpv00QHwTAAAAACg4hSO45raX/mTO5g+zfySJ/iv tMiIA7U2G/zAbRWkdYpCHHV/8PksFvdMG+CZAAAAAEDlodYjlw7lj87aV4PL Cs7NnYfkqUYm4PDO58mfJZccpR/c9vY5TILwRgGLo9cbKpri0S3wTAAAAABA F2wvB1+tzQULLOfGnyjSgmwkyVdb+8iEgoADLWj57GNP7yuOvJrXZHN2D10h v7yXWjegUgWeCQAAAKA92+nk18GbJOn3Dnv2uNjb6Xa52ttOXY0/P8Dnxsb3 ZF+ribA6B/+i5Fw2IDsbqXu3A38LQ5AEAADdgWODwqvVBAzGQqCzWF+U496E QhELYDy2VyLvt7A5I+LF0ZmfK/19AAAA8uDYoPBqNY3H03C/w9Hz/rXxO7FE MpV6muZ3/KAy6aep+UQsMkFeedt1fDC8VmXPiPkDaWZjN/qsOQnLsdH74AEf OHZ+8L3QkPN6TS5yvtJfCAAAIAeGDQqrVtOQzJMu0/5KSC7EidfGH25V+hur BrUZGcrZ05H+8HKlvw+gOdv3R4/ldEy1Z8iF6jV2AAAMB4YNCq9W04iI9XkI 65nRKm9cv5Hwth1g7xfYYzMVes/ZZGpqG7gWfVzV1g4AgOHAsUEdXK0miwif hzjq9tyaWan2Oy8152/PPYpW39yB834BAAAAoLphfB7bWY+nr7PNxvF+mLpX b+Du7Gq1ezssy8HubMgPxDwAAAAAUH0wPo+LTGX/aya99FMqlfpptcjQn6qG +jn8Zn3W27MNRlYr/X00Zms1Mekffv20o4kgmhyunsGrX84dxLAnAAAAUMXw fJ4DCyLmqXs9VG21aSXJLEyNnrESFkfvZTI0NR2+6XE10ilN+8UJmNMEAAAH KpP6x2jnsdrOwGKlv4qO2I4NNx5qGbh5IBUyPHRuISr4PEZcfSpJurPTrQk3 mTo4QS62V4P5lbHpvCKOeh4bOco8CfOZWwfoUQAAUIbt9MwnbjNRQ5x8c/In 2BsQ0glfpxlG+hrAQtSI8xhw9ddCvdn+/XXHvd8dlCgPtTQ15CDMnb5EmvPP U6Qr6/91kSmoXgIAYBc9zgYmfoR9gQ/1bMZ72nygI+SGsBB1clsGW31qM+o5 nM1sNXuia5X+PtqwvRK+aCUcQ1NL/DaUc77WnLTJE00X/7erBCqzmgh532SF TC1nL129/UDsiHMAOEDkjrOapi5yTq/HWaVhb5E4Dz7lG5RmWk2jWIhqeh78 q68eAjEPtZ6694XP00fbSU1dk+OVvuEbk1U2gGn9a8+ReuvAVyv8NwiVc7d5 ExtyPpzaWP0phY2ltDpPfjudIPvsDWbn4PWJqemvrnRZ9gy2vtlzd007tyff Blwhwg7qAIALKrMQ6GHeDvvQHcGOASBk5siuJjpG3vz+9JpC10LxBqWdVtNA FiL0eTLppflELLpHLDGv6LTBufpqwhHzfJp8Mu3raSYIa9uF0T07iU5PBkZ7 bLT3dqzL+1+LCk8WajuzrdggMHzI1gJ5prZ4J8/1+GguzFP/ZvhnWb8oE/WI bu8tGrOtraO7/30v+WVsfk25F0Qtfvmm3WIf+CKVXdNnkcFjjBFoM2lrZ23q nSME5me0d5N7ubN3aPTGRPRfSxsHJUkLqAq1dtfTTF+Dap0ffy+tojeTno/d Jr2e3s42mzlno9a2/v+Mq6b2pDYeRck/dLfsXVdPDMcqMDKPWvlqwFpL6yG7 yKSC80LpBqWhVlOBhWhP3udhY2gDrrxl5u2zd+Rm9JG8vwPX6qtLQcxTaz3d c9pab3Z6grOoK/18cfIdO308mZ1jMUW5DzzOQKdimc3euluOeL5eF/4v1L98 rdkwT213UOYEDlV8HpS6prY3xj77JiX7WKcWgueO1LZfe7CVX8501GNjP1wT Tdf2YuAsbpeHA9HUfsEbShyQ/lqASjBvCm1P5jP+2SIbRnEyy4nQ1Yuuo/tY OGHpn1RBQ7C1EvtTjy0Xpa6YHHF7bfr9Zva88M7ICpQr3qC01GrKs5CKwfg8 L//HZNDjNNeaHL1jgUjixxXGw6Fd9ODlM1Z67Sxy67BwrL66oGKeGjo01x+Y Ff6lVJLsYMavEy8MxxS8rHrxeXY2VpdWizoMhd6M9a2+f8n07wq5rUdz8X9G 6QG1/W1m4f5nahnwT8YS86WyNnPx6HQk9Fff6KXzbVbeRxDWVz4Y/25VsjtN rUffO0L8yptA3lDqod/ZwH5q43BMi7hkJr2E/o0Tfxx0HuY9IML++vXJb0s/ IBo6NDsVuuUb7nU2EbxHVPVTYwAhm6nI1Qv0+0KYHBfIhGxV3kaS7GauweZ2 X0KU90ytzd329josZfYwkyeK2Sg3UxMX7YjxE+3+ZKXu2dRyZOg48yVaPdPL 0r+Fwg1KS62mdAupMLnZE0Rzz/XYSpGzI29IhNn9yYwMt0fp6qsNIubZ+xs7 /LNbRb/j1ry/g/2hup6g/D+DK3SZT9yLskdVT0sxV6jO6nr7yo3x8HQ0Gp/T RLyBinnwRoa318JvH+L9fQ1DkU3JofLPvX0OE8F5Sp1j4XkpSTjqUaDrUG1X AJ2vRz0JdGWdvcPdwcdSvhU2BB7xCU/0mcTP2NmYnxztPMZ1fBrd3nugzT4w bK9M/Z5z+r/gm5UTuKS2Zv0dzFWFaPUmim+MnJ9nG7OIil5i93nWpwYPob/Z 1O6v5AShXI5DlrRD4QalqlaT+4ESLUQPsD6PrS84v68B5p2WGsLSE1iQftoq Wn21QcQ8NdaL4ZV9v17hPFJjAim1Ghtp413Q5T1tZSBiHuy9GQsRpBxO/7yc v4/KrH437nmJk4U1d4yIjmYwu0dTb2gJ+WeZJ4H87JHuwJPKhMT52S75eiom lc951rbXQtBs6WCw84PvhQYMDkZOkCnO986X7dB7h9X97vWJKBufnJ/5S7+9 voYHZp9nZy30eh1n+zzlTz7H+Aukw2gmmde4efgbSSkfZRuUylpNFGkWohPW YsMvvzDydWkdOLVAdmQfd9OZgIxjSv7qqw4i5jk6/G2JlwS5g6tSwS2445tc 5Dz231IGRMyDvzejMK+nqGBwMzX1oQvNlxEn+wM/iIhmbC8HX63lOa7IhFne 9UpDlsP9R9DHI19PhagKC1guhLD76oAOEbxosrI8mSfBPjadL0bvSi2O97D3 fespz6373JSBwCGpkX3f2e/X04ERzrtTsbcYYePeaEsD8wi5WaoyKNygVNZq FpBmIQYDDYYceS+6Lv3Pk7n6qkM3jc79Yf3hElaAvraWzsAC9m9CzfudnE3h 2GBEc8+5EIpRQceL2efZzdVyIie7uF5Y1GriTnQeDezuJLzHsx9xqCvwqDKv 7/b90WNoIEyBnor5uOXgee5BU9c8et8ICXdAGbw4jzxRAZ0fYa1R1BWeWo1/ Tt4M3L5XtKwA2WazRy7eOc5I3ie7efaHn+L7eNnkL/s1tR3kgug1ULZBqazV zCPRQowGEhOr4cXcRCJz9VVmc873Uu4tLJ2xQn5SpQhMXlGfRft+gGi2V4Xe jPh9nl1uRJ3d4WX0PE/Hhh05v+A8/sSlOBB5IUvraFzZ7aAQw8wfBaNxiPRU P9vp+J/7aBVxXVPbwLXoY+lJJMzbteDVL33BlPzxhbxP1i+4FJFxMVeDgmNw fCgiWweKZYPCq9XU54GOkUyK7MwbVF1vSM5xiGf18fI42J2rlGn1lVS8LYV6 m3IPQB2Na+V9HjXFPLsq+Ty72SIF9GOllkwWLFOubWOACWijf4XyhDsSys7R 4Z+HSA9QjsIbgSVgsnd8dHHUZXi3F35iq4xKQVs2Z30vs3+7XCU5rg0K6/aO 2UL0COe8knlbxLH6ePk53J9Lb5aJtXLyDuq0uqq4z6OqmGdXPZ+HltlPe1rR TZVo+WhGbEspaj1yKbdjyothYgGnmCcH4tJXyqgA44FkReUpGfigF0aFB3cR qKS/neNROYZjOjJyRA0rLweEaYPCub1jtxA9wjmv5BYuKV59zGzHR4+JsyUq Rbrzr9V+TvJ6zHvG7UJwd7912X9H7HAT2T4PtZ6K/mV0oJvzu13uX/tmpF12 VBXz7Krp8yC1gTnEN4t4Gu7PWUEFQ+KYxTwsuU4U4PMA4inIgTDtA/wqcttg ZFX5p+YoXKWzHB2JPdfTKYyEoWT1OcG0QWHc3rFbiDZQzxI333HbLCb7Gc/4 g7KF+tzzSm5PPKWrjxekNLhMU0pO3cG+TvLOo/C/v8ZvZC1+uIk8n4f6KXzp RX5vH3oa3VsfhR9JsUaVxTy76vo8aH45S/FqTQEF0QtxaHCqUvJ6/GKePXa+ 8x7nCXqwNOUAqpj8eAJc1oKGKRjwRgaQvA/72uspscWCHB8yKujxbFAYt3fs FqIRO7O+F/LOsYiF4JxXxNnAojwZlbLVx8zPseET2b+oTF9LNO9QrtVVZjlx 6007r9VO80is7Gsux+fJVwsWfpXZ+YdQUoYQBMn2qtGAaFdtn2dvc5jst6DP vfbI0FS5YXyo+pEbEqfW5u5G1RlALEQFMc9usYZIWD4WqGaeRT25XfG4N4Hh Dr8aGbQhJoi3eFBYnKivxFaWwpvY8ILvBykPFdcGhVHMg91CtIG3x5Y9XlEv sayHUBL5q4+d/PiScocvGpsV1eQk3447j4imoDJ8nuffDh/lnmqW84EFWQNz Ub1rGTm3XNT2efi7qwi/GlU/ckPiTPWrZu0C+GIeHHoq4XFQQYU2YBAKex2e cnJqOdiDWqHI6KtItuLe1gaOiestscWC7jOS/ARcGxRGMQ9uC9EMrj6nrB0W Ji/sUd8fli/hlb36+Cn4PCV7gu6shd/KxVIaWr1xUW8sP+Iq4o+V7PPwJoVJ +XpCCr6oapasus8jiKKXu1Qi6keeB85cr1SKdwnhi3lwZMnzE+IQi8KqowCq D/QNwpLg5mecsUoatpdDF7gmrsPEFgva6kRCPgjbBoVNzIPdQrSDEeUSJltb Z9/IzVjZVvvoPVThzilz9VWgUIBfyudBzg4pszOQjgpZXvLNlYzASPZ50Elh 7PeTnS5E43h4W2cgqO7zFOtIU0r1h0Q7eY+OXvRD6ox+LoJAzKN8M9lei7x7 hPskat03klqPMgGMBRIpxVJOzp+CgbV0RRjk0WdiiwFpKih+EBiuDQqjmAe3 hWgJc5SL7SaEJHeU75yyVl8NCnGShsHIPu4IM982a3WS2pkK262XKzOU7PMI KpHlx83UF/PsauLzFEYPFx7j/i46ktzkpPOo9dhIM6FZaaFAzKN8M8m3Pc9T 2+F7oKP+54AeQeKNOLKrqNiV3UExjqEUShn1mthi2YwM5t5I0XMxcG1Q+LZ3 zBaiMexzO9ITSJYL8mwk/Z3Zv1Nqt7eiyFl9dcj7cvsoWKh0dCR7djS6fXFJ MSnEtWNpcPoflvpbpfo8gqoc+WoNDcQ8u5r4PLvPIoPHuL+jRLi7ECjjBPq2 Er52i6VvQqu6QtxiHmppasjBGzBaaogwUCVQmYyi2woSb8SS4EaKrGmwTnUR igf0m9hiWQh05nw0sZcaTBsUvu0dt4VoDjvLu/alka9LNCdHevvL6epfFBmr rxLrCe+vmMF4xbJCmflgn435lo1u7z0Rwyu58H2YcpOEpfo8wqGksicVayDm 2dXG5+E0DM+yb/ircA8tBPqYieS19qHJRa18BLxiHurZjPc0Vz8vy3oBo5BZ ToSuDnYez75bJrur3xtKLEs3XzTeiKE5J9KNjQFn86v1B74Onseje7kaKkUQ 2YkC0waFbXvHbCEo1MaT+OSfLw/8uqUpf5E321yvDfsnE6uyNKrUdma7mL1l Hk16XjITxzov/73IJ++9TeMeZ3Za7tmrsaeYjgEZq68aGzNe594RQVh6AguF nB2VWYld72lm/vITfeR3co6MQpNncT6JVJ+HX4ks+6xEC3zUTIhr4fNQm5Gh Bt5eWKK1Qr6Bs/mV0Ym7kYk/DjoPE7bz/vgzzXwEnGKezNMYz+EhTg4EH4rt SA0YDSp9309vU4TJfnrg8tXrV952Weuy6y5i2C4XNEZaTnxYnp/jo79EDFFB eYUAKnXrjJkbyKzR04yt4qBqh3Ix/zwYNiiMWk28FpL/gmtzocud1jr+guYx vTj42Q/SjmBqPnCmad+Aef43mo53Dvy771YoEo1GI6Fbvvd7HEw0xnSie7SY RyQfWauvFlRm8e6Yu3HPZ7C6370+MRWdngx4+9vod6rO2nk5NFeuxct+SI3D SPV5+D9fcvIp9SwR+EOX3WJyvHGD975kEj5n9ouqOy1OC58H7a0t7knu2f/t q4Pd7TZTfZPjdP9YML6i5UQqgZhHZsId8dKzEKaWoc9m5VovoHuo9D3v3sa1 dyn79P5K9r6G6g+dozNS7i9oBkR5Hyde72WMJerUYnjALjwY9d+HAVU7SKh9 VrpB4RPz4LUQ9iPT35F9JwT+qxBJwWr2LSjjZrORpdGh3s42G3MumW1tHd0D H/pDsfk0/iC/zNVXDzo+fM3T+4qjqa6GaHK4ugcu3wjdSym6IOvI59lJR97J T+EkOgOLyLcsSAFrXd7v1ax60MTnEaYUy3iDFYYv5pGRcKc2HkXJS0705mv6 5cCNfy5ClVYVQy0Ezx0pEs9BShelqSXRuLTSLiK8EnWMHc5ZGSr/Da/opDzR oJF59WSTPDBqNXFaCP3NMqkvPc7DgqXcj6Yuck6UL8KWWovqpKchFVl9jREc 8WWmRqro83CUvciFiMokya7sWSlGza6Mivk8Opbb8cU8Ur5qJp1KRALeXDqD gbCe+v11uRlwwDBspQLnzDVmp3eGX1ixGOgsOxmwGGiOlXstkvHteFXkvxyN Y7rXCgsSs++NVq20lIBugA1DkU1Njj18Wk2cFkJPSLwzZK8XriQdb3H8gj9N Kfu/dJPJsoVEbJAHb7tvHFRk9TVG6hEv0eeh5v1Ozs+XuOkgUzbMnb4E+7Fb K7GrXbnsf39AYsJUBhXzeRSou1VGIOZpcPR7yVJc9w57PJ6LTEC2MDzGZHP1 DbNBWeO+Sj/PBq949MKV4Gzlw8/7QS1P9FkIouWjGUEkmlsuKmEwIvp2Kntf kPwaA76MeVHpMvMCGKNuGp35K3dmpTRwajXxWcje4fODv6MR2aBbeujta26x kFTa2Vh9lIgGr150WwthPaJ8tRob5MHb7hsP2q++9gimWmP1eQQeRImfp7Zm /R10PMfSMvjpVHQ6EiKvZG3JbO8ek69ZkoQ2Po/wt+jX5xGIeWRBNDle7uzz eMnbhvZ5ii1cBdGrzezmJokf7QsJM1eZFNmFZH7Eb61owWN9q+9f8s0I7bRP U/R7yvncrQfX2ou/LZXt8yaepVBvU+47ixshLQaNtJr4LGQ3PTPqzE33bu6+ EioZl95Oz00Mu3IOEvGyb7aEdpr1t2uPeL7WXzMydVZfX6B/I0PpOWXSfB7u BDSaDv98CcvZ2UhFb468zuq1cqdkIDK7ot3GDj4PH76Yp0z2k0MmvZSaT3wb Dngvuo4WIj7WUx4ymtowVH9UFurH8XO/EKFm1ATiF+fGf9TpMcq2pmkeiwv7 +/H8DQkhdETpqkz/xpleXYNvijrdlIbbg6GAUaZ7Iz0GsQmQNNNq4rIQamPm oxa2+Y39DTIhrgCNqdBn/qWS/ox+gzy76qy+3kCNhKG01l2az8OZgFb+w/WA Nj4P0vEyj059Hr6YR+7tiVpPRbxdqKrH9qovWqLpFmBc2PF/xSMbzNzJgj1J KWVCN2QlFc3I0G0aXIOk981q0Rwbjetey8OAzl3CVVihmVYTk4XkfFfCfnEi JaXaPTNHdjExBMtb4eIqNT0HeXbVWX29IRw/UbKngTSfR9Bw2Omf17fLA3oe HgIxj5JeVVQmNd5nRWtlTvaPPzTE7ReQAhM9Lj5Zj5k7ibgC/eGn0j5W1M5T krXJfgv2EvVCZKAYGIvC1AZND+GYI0yjmVYTi4XkxsJazgcWJLf3oZ6Mn6Ot a58gCfUk1HdUr0GeXXVWX3cgU3FZSka0JPk8aAUis7notzQpT8V8Hn0amEDM ozRSJ5griq1xOqAbNqc9h4nilcLUnL8decGk9ehDxYeyTzR1pqhzarXqbW2t XMWAgdIEnC7xmC5immk1cVhIduasbIlX1sCKBjCZpCqh2WBo6aix+vqDPxKr 5EQYST4PvwmzzvuuM1TM5zncHXyM/fcoRomYZx/YdDaKpS/4pDrfrQNK+uvh Vsevbz0UujxcIY3U4VMYT7Q8kgJN+5BvRMz+Vc6Pvrz+G24Pz+6AbAvPrMxG Al5PX64r3d5RZGtzd/d/8EkgkljCL4pT6dTTRqup3EKyozQUqanZXpdFmjAw SVXiV96EbmN+B8Pn4UzZYCjRykmCzyPImum97zqDJj5PMQlzpeebFAWXmIeD MJ2q88GLAC54sx6ktsRBT7TS1RD7wZ+ijmNT2l4JX8wLdJn2LPP8whB57d2o n+fvfNxLDxogTLb27v53mAYFF3td9vxTIJra+6/dxVoOwCk8Mdqpp9xC2NNQ 4fWcFYzxB/Sww93UnSOgFEOvvgT4g/ZKlBhI8Hl4FWG6VW1x0cLnER76FZ9j WxysYh4EtCUdy2FPtCr7XwEoz78dPlrYaIgXfLPSTF5585DVyKANMTvlMhsq sxDoyauD2EQtb6SFvJx+ZmFqpMNcU2/r/o9Q/Am3xdHOxtLMuOelXIUYYWp5 NyRJalv6N2NscaM1yi2Elh4RzSMxRZ4w61rz5Aqsw6/3ZIeRV18KrLAKeUn3 vXeL9nn4flRxQaP+0MLnQbXxucejx35l2MU8OYrEuYxSyQvIhlqPXEJq1GX0 q1F8ovHUy8oPoOz0Z5aGlpFomhJO05NeQEQ9uz/2cm2ZydGbqYmL9vxfI0tw WxQjn3q6aanHjMDgKAEY2yNavQlh9wY9YeTVlwSVSd5wo8fbfnNAxPo8a7Fh tAFGrXXgqxVdL3UOLXwewfgqnfYrU0HMw8KXkJUwJKBqeBruP4Yak3SJC3qi yQg5CuKrCn14amlqyJEP8Vh6Agt0s03BjUbyyAl2XFdjh/+HMrkZajU20lZo e1Ws5bV0ODcdo516Ci0EIwuBTgvS7I4VNls6yKT+9nkUQ6++VHjNJeqbPXeL iOlF+TyCZqR6m6RWAg18Hr5IRq9BMFXEPAxF4jzg81Q51HKwB3E4ZFVLKVSo 8vuvKvPh12f9Z/IhHqLlw1ia2eKoJOnmtiWUKuZhRP4iAwLsgI/8PovjSDW0 ihVLZR8WmMZ3xNnAImMVrHJ+36Y9+sHQqy8d3ngRotUzLdiWxPg8nHjv3uc4 hqaW9O3cIqjv8whEMjpVtakl5tkVFvRVfIMC1IbXlkdeUom5O8s2GGSYO4MS H357Zer3hbyS9UIwL6fh/xbJYp5c8xDCZO8c8kcXywxq4QRjiXa/YqfH0Kee MgvByfZi4CyR3TN13ocQxdCrLwdq7Zux9sOF99Xy6s0kN/hb1ucp9N9maXR7 76k+GBQjqvs8z5P+U1wBL65ZP3hRTcwjrJ2hN+vchQioSnhteWTOekC77Eo9 0YRzcOT3rEvPfOI2515i82nvTGE2wXZsuJHzW6R25uEl4I70hp6U/jLM2Yrx PUJPPcN14lViIZhhTpJjg5Fn2axumSFcOsHQqy8TKn3P60be2r03Ova04OyV 9Hmo9Hdk3wnkBTzW5ZPt8Gynk18Hb5Kkn5nRTQ/pdrtc7W2nrsafq+kgqO3z bN0fbebcAzFl4bGjmpiHX7DMPAQM91NtgLnqclDWlicPeqJJ7WclGLIjU+PK 7SVOtI3EVhHLFZYnSK2Y5ly0a0Tctbk71onhmEKTwDbUrBIosRDMMHFy+gGy w1b0GcwXYOjVlw+18TBUKISkp8r2+HItIPbzeaj11N1rfY5CrznC+hvvtJJp SmiUEqFE7yAsqOvzsEFOFH0GedQU87DTJznoU8JdDJirLgeelyu7Rk/BJZR6 6Hc2cB+eDJ9nz+H5YsCeCxcRJwcmfuR+xONg92HOLyk9srkY3LKvQ12BR6Vf Da5JKg9uoG4DG6YwEHoKU9Bn5d53eMColxt7goboNm/o1VfI1srMLY8bnYXt vugNRCYvc9sXHu0PfBMNXkWnZteYTnSP/j2xqnCeCJVJP03RzMZu9OVafqk/ vUJVnyfzwO9GHTnC3EUmy+TrK4NqYh5+538aA0ncYa66DHhteYrG9HYefHrq xIu+70vaAZr3IaR5E8L3WnpHLGrtrqe5hMOTG7qBLhFnhrjIX/NsxneWmctg aRmaSJXZH3i5MHmN+FBQt81wHSQUWAh2aJ+HaPyDz2sM9TKL8tWnMqsPIoGP Pb2dbTZzjcnm7B7yfhZDZGnbGV0eeVmo9VT0b97BTrtJzDZf19TWO+yfVOzt 8L/EZmSoIfsrlAxTFoeKPk/mSbCPE7qiW7bqc0tRS8xDrXw1YOW5PBa3/4ER ghWAPHhteYrXFu0kvMdF3GhQtUx9f1hCFqfItBdJcR4qs/JNIelv7hiZWhD+ y4Kbgvw7GrWx+nhVTM6b20VfeW9PdEiiAVV28i0EO0ylRp3NdtQY6mUGhauf eRy99rqD9hYsjp4P/BNT0enJwFivw1Rv7bo2k95Kx/9MJ4OMMGOR2lh+OPOP 4A3vcL+L21Td5OgeGvb+ORj+9ocllVQpyEstudOFdNTyeahMkuwyo67jkZ5A Uq9nvTpiHioVes3GfbiEucM/q+8mXYAyxLTlYd9xx3CsXF4G7eAt6cUs4vOI D11yU1pc0TKCsL+6pTOwIP47yoEjDsdxtqIbYIUDJbKQbSHYKTxJEYatE+Sv /t47cmfExfib/BvBdvrBf3Zb6qwXPvzAmf30CrujkpA0YxQL6Estb2yNJNTx eThRcZpsy1adooaYh3o24z3NbVxSQ9gvTuDrmQ/oEW7tdm1XoIh8je1ReXQk VrY8gb7G5440SWKmIj6P2S2qm83ORnI87/AQ9jcDs/sNARcMLlR9e6S24mPN hdcJx/BKxGeQk5irOLItBDv5J6m2BhUjMlcfuRQUvxFsL4cuIDkOfOpQDdDe 5yn0clFfzLOrhs9DZRbvjqGlcDX19oEvyqXpKwl+MQ/1LEG+YeclSPe9LwNV A69CvKgiNzucqHn0voikOKo3kJKcKuLziKkW3ExNfejKhmcJs9sbWynxHQUC ZrXHH3BmBtU3D3+jPIGC5IY02W/xI9dCsJM1Od7ULV0jb/WpxS/fzF4KjpwL 7lOdxhH18aev6hqtfR50z9RkOhtmn2c7nSD77GiER4wusbLw2scpFvNkpyVy jxvbeX8cHJ6qh1t5XTSxxR7ctWfIBTE6QDSWImXzKdIGcw/7QHhxXyPMPJ72 /saaddQPOz1flnlti0xUUfXM5cxzr3V+/D2OwRNItx+pnYV0glwLwU72rDSQ DlzW6hdaGROWc+P7FyE/iwzmctwaaFQworXPgxiwNpPHhXuj0z8vay+h0g9C l89Y0eAG0dzjv6/flFYWjC36t1Zm/jrk5F1+CbPrwylIaR0IuD5PkSA/tTHz UQshXoiCXoIanP6HYl+mIg4JQ9FgI127cWOgJReMN3eMhJPlHYrNyGADz9JV 1ACj5QD4csTIwUR0VTJIIh+5FoKb7O3ZQIktOauPjKwqnVpFZ7JooFHBhyAK onIPBORBaTJ5fHst/PahGi4NQxFppRCZ9Hzsc2+fg1PsRpha3iJnnuLYRFQt BhRMm5UXm82s0c+gt5XfzIbu9TRdrp0+UDVwZL1FnOeNe6MtDdKaFSC3krre kOgQeTo27Kgpiqm11zseTSTpxhjziejEnzxdx3N2W2/r8UUXxbkTRdJnx4ci y9TehpCMfuYd8XiuRRYxeRGZObIrezHBKYpDy3aMdFhzkWkheGFLX42U2JKx +ui4tzJNF5lB8+wPGipnup7w/ooryiAsfRPSZwWKpiCAVMF4qI3Vn5gOQKlH c/F/RiMT5Givo0hVvqllwD8Zjc+lSjAXj05HQn/1jV4632blf4Spte9arqmj QjAXA2bSS9lHMJ+4F50Oj/vecVt51+Faa++fIqX/+vwziE6FAn6v59W2JuGd 2tIycCOakjNyADAubBPa4gdQdk6N7bWQlNsMujMfG42L3T2prYS3VUpnJcJ2 zntHRHgnTzHJUI3J0dnpYD0owv6H6TSOTYBanvawfwphdr4/iTFkWthvicOe aaOGYmVaCF7Wop5mHG2xNUTy6qP+QJnmmUinTfUbzsig4AzkTsO9s+yWb7in pVgP2jqr6+0rN8bD01GuX/A0rfQ6T21GPbm8iAqqJ9V76hIm+xnPp1OzeBoW YS8G3FkLv1Ws1TXup9DUfmHsM/B2DirpmVFndmMsVGZRmZXY9Z5mQs48PlSw 8ZJvTvTJXHAVylrsS4M3piVfUor6PLmPxOacFOof6209/nga44mO7reaiCfV Qq6FYCQr2a2oiFoa0ld/fWrwUL7K65Q/WWKeDDKTRZ9iHjzOgPLlFoh5qPXU vS98nr7Tjiaipq7J8Urf8I3JxLLMX6OKz7P3rVzd/e97yVD0h0V8HYvUKAbc XgqeV8fpM9vaOpiHMHE3/qNi1xcwOIW5w8z96PrVywOn6TancuVtTANDlvKj GXjfJDT04v42T5gc50ZuRmWGZIvLpNnc2Z15LGHe3c2FwHnmNW90jdzBXQqB zFo6dCli5DuKfAvB+wUMMhuGQerqc3uNlsmFIRpRfeZMdeLzcMQ8nyafTPv2 LoaEte3CKBlicjqjPTaCmWTq/a/qlohUeTEgUPVklhMhb7/Lnt1XTMc7B6+G ZN9WEEGyZMEGrU++OdLnsuWz2LQi7q3L1/5fJKHskkItTQ05OBo+q/vi1dv4 +tJvpiYu0g0fiJMDwYf4O8AWnipxaHDKGH2D90OJhWAgd1s3kFhX8uqj00jL 5cKQmSwNgxGj5kw1oJBerLWe7jltrTc7PUFOQ7Dni5PvMF1fzM6xmO7roeRS 9cWAACANzcs5RUIHor8MkCQZuB1NpLBGOHMOj/m0N4alFIIP0pXrhCdq9OGS FbWQXB9dA3Ublr766BDwMoXtSNitwsPu9Q2aXqTNx94fmBUmr6kk2cE8eeKF 4VhVRjaqvxgQAKRCJf3thKj9tirIOjyE/Q0ysW9XKyoV/sjzcTglL6yEOAnN Y3Hjj4OpoIXkdPsG6jYsffU5vfpLi6YyKbKLEPWTBxxUh1ZiKtPWvL8j6873 BFWsIKsQB6AYEACkQ/0U7Gms4hcfgXV4CFPLu6FSKmimL43sAO/W/dFmNqpu avdXxYWpYhaS789wbDBikHCZjNVHBTBlmtYiYh7ODC8qs/jd3Tiu9g3GB41a WC+GV/Z9kQvPvgoTOlVUDAgAOKHWo+9l5+CK7eFsRLIOj9n9yUyZEi3mkiiz NBt5mJJ6JemaSlnIamTQxtzUjTKVXtbqo3PNSsuSkYgQV1tFT7I25Ew3lUDE PEeHvy1RBYf4mxXtNK4G1VQMCAB4yee1axpavfFqdHq216bfbybq7QPjybJl X0xTGpknSGFul8ipZwahIhaSP+L1WaAkRObqz5Ou3MFbcjwTNe93Zn+O2xab flANRurZqDLIsLPSUQu00aulM7Cg3VdUneoqBgQAzCD30yPvRY1cW12M7fTM J25zY/k5X7s7G6uPk1MjLQTBSR2Ihlogs5JB87mATDmQPqmAheTFwEYpUJK7 +kjdVgmfh1qNjbTl7u2cDo2MsNkxHKuuMIV8xEctkJ9UexCG1kAxIACUpHBF tXSQ5WakGwnW4ZHSNlr+pe9Z1HOC3TmqMFymtYWwIydqjFOgJHv1qeexEfbJ 1hz2RIuPZ8oVG2YPMTTZ9zzpP0UUmpQCj4PduZqtMiVI6EBMo5iZSKAYEABK g4yHq55QjzyHp0bWpAP0Ab4bWau+nLjGFkJrVJjzvbQUQScoW31qPnCGPXyL hmtYh6fhpMtpZc0TlTrTqmlLFfrYshFfgsSpmDPUcJOyQDEgAJQn38yhOsIU 1Nasv0OOwyNLNFsIg9gHwovV4TIK0NBCjCXmUbr6VGYh0EOXFfMLq6mNZHj0 jJVodI/dXVyPe1sbuGfTRpLsNlePWh4DSAlSmfgGlSLd+e1BV93JlAPFgAAg hq2Er52p8TR3k8mNSn8bhezdXzrlODz8d18M22uRd5moRK114KuVKvV4aLSy kJyYxxATWrGs/nY6QfbRMwIIs3Pw+sQUPar7ytsuax1hPTMaZkf0UhuJa0zc kjC7hscj/wheOWerPTkw8SMcTDm2FwNns44M0VVygAUqYK4h3KSU8cy6B4oB AUAUVCZJdjGbaslG5QAHau2up5mOpxPN709XYVYLRRsLyZ9HBpjQinH1qY1H 0c+8g93t9DwXepLLkPezb7hD66jMSjw4NkAPyiSaWs5e8kUWwOFB+Dk2fELc zSWXPKWpllZaBaAYEABEklkMDTCygaYucg620/Lkp8zXurzfH4TaGQ0sJFd1 ov+Mw4FbfZ2TjnpsYs56TvuaKkwOQjEgAIiGenZ/7GU63Gnu9CXA5kuTdwBs fcH5g+Iiqm4hbOkNYemf1PcYpAO5+rqm4POYPNH9V2RnLfxWrq6pOuSLPKAY EACkkPlxYuAkncCw/35q/87tB568TLrR7b1XtaOZi6KuhTCVtnqf/HiAV1+/ FFR8pXyeQo/N6s1HQzEgAEgiMx/ss9FqyfLDGg4mVCb1xQAtOj2oR56KFpJZ in1+83ZCx0/1wK++TilMVN+/vR7SYJNo9UxX64xBKAYEAIlk7/Lg9hSBSsfG nOaDfuQdVAuB1dcveaHOPg0JqXR0pIU95RvdvrjRy1NLAsWAACCRzMLUSIe5 pt7uuQvKngI7D8lTjTXEiT7yu4N+5B1AC4HV1zW5eeJFu1lmg5M1B8dfhWJA AJDI5mLs7zfDc1V9IZIItRj729/uzK0dgC1TDAfMQmD1dc7GjJeOwhGWnsBC YcTe3skeu97TzLhD4K8CAAAAAFAFUJnFu2PuxpqaOqv7XTqnMz0Z8Pa30Rmc Omvn5RD4qwAAAAAAVA2Z5UTomqf3FUdTXQ3R5HB1D1y+EbqX2gB3BwAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AACw8v8B3jmWXQ== "], {{0, 110}, {764, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->Automatic, ImageSizeRaw->{764, 110}, PlotRange->{{0, 764}, {0, 110}}]], "Input",ExpressionUUID->"14ac8d08-37e8-4f02-8187-b2bfe4fe179a"]], \ "Subsection", CellChangeTimes->{{3.440895754578125*^9, 3.4408957769375*^9}, 3.4410038390222445`*^9, {3.455042878078125*^9, 3.455043003234375*^9}, { 3.4550430723125*^9, 3.45504307371875*^9}, {3.4550431366875*^9, 3.45504313765625*^9}, {3.45505279165625*^9, 3.45505282378125*^9}, { 3.5367535507791395`*^9, 3.536753619943095*^9}, {3.545147981904499*^9, 3.545147992921129*^9}, {3.5451480361216*^9, 3.5451480635611696`*^9}, 3.548646755982729*^9, 3.559436180348071*^9, 3.559498749111149*^9, { 3.7095733147118254`*^9, 3.7095733166499367`*^9}, {3.709573634582121*^9, 3.7095736661459265`*^9}, {3.711717094956087*^9, 3.7117170956861286`*^9}, { 3.71171712788297*^9, 3.711717132164215*^9}, {3.7117171826731043`*^9, 3.7117171831101294`*^9}, {3.7117175469379387`*^9, 3.7117175568335047`*^9}, {3.711854545778356*^9, 3.7118545631473494`*^9}, { 3.7119033442924223`*^9, 3.7119033605323515`*^9}, {3.712095460921544*^9, 3.7120954609225445`*^9}, {3.712095552840802*^9, 3.712095552840802*^9}, { 3.712095584347604*^9, 3.712095584377606*^9}, {3.737807608883332*^9, 3.7378076101044016`*^9}, {3.7385815846478014`*^9, 3.73858158549585*^9}, { 3.746790780119294*^9, 3.7467907805274167`*^9}, {3.746832393873145*^9, 3.746832394209256*^9}, {3.746843021959738*^9, 3.7468430227041254`*^9}},ExpressionUUID->"88bcee7a-dd2b-4f87-92bc-\ 967315e40d50"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "2", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{"Bt", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "=", " ", RowBox[{"I", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"U", "[", "2", "]"}], "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{"\[Gamma]5", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}]}], " ", ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.440895870234375*^9, 3.440895891640625*^9}, { 3.440896510390625*^9, 3.44089655715625*^9}, {3.442671255203125*^9, 3.44267125603125*^9}, {3.44267137046875*^9, 3.4426713811875*^9}, 3.44267142365625*^9, {3.442712951171875*^9, 3.442712951859375*^9}, { 3.44296369284375*^9, 3.442963696734375*^9}, 3.44296768475*^9, { 3.443374517453125*^9, 3.44337452140625*^9}, 3.443397833125*^9, { 3.45504301590625*^9, 3.455043130828125*^9}, {3.4550527984375*^9, 3.455052814484375*^9}, {3.5067782137090287`*^9, 3.506778214466072*^9}, { 3.506779064525693*^9, 3.506779068082896*^9}, {3.506779121543954*^9, 3.506779124996152*^9}, {3.511641116247309*^9, 3.511641117295369*^9}, { 3.511641238366294*^9, 3.5116412632227154`*^9}, {3.519945652604292*^9, 3.519945656025487*^9}, 3.5206470576621337`*^9, {3.536753629485641*^9, 3.5367536355419874`*^9}, {3.5367542796588287`*^9, 3.536754394482396*^9}, { 3.5451480077289762`*^9, 3.5451480136813164`*^9}, {3.5451480836983213`*^9, 3.5451481475869756`*^9}, {3.5451482301356974`*^9, 3.545148230279705*^9}, { 3.54514835065559*^9, 3.545148351119617*^9}, {3.5517190084457397`*^9, 3.5517190462919044`*^9}, {3.5517253476257124`*^9, 3.551725350072852*^9}, { 3.552315878168127*^9, 3.552315880549264*^9}, {3.5594364063879995`*^9, 3.559436470154647*^9}, 3.559498758930711*^9, {3.7095734439172153`*^9, 3.7095734562269197`*^9}, {3.7095736865240917`*^9, 3.7095736900622945`*^9}, {3.710786317142681*^9, 3.7107863175327034`*^9}, { 3.71171717351058*^9, 3.711717180665989*^9}, {3.711717560179696*^9, 3.7117175669990864`*^9}, {3.7118545714168224`*^9, 3.711854584457568*^9}, { 3.7119033420472937`*^9, 3.7119033423323107`*^9}, 3.7119033814345465`*^9, 3.7120954622856226`*^9, {3.712095557947094*^9, 3.7120955854366665`*^9}, { 3.737162821795579*^9, 3.737162839969626*^9}, {3.73780794558059*^9, 3.7378079860629053`*^9}, 3.7379793854587083`*^9, {3.7385815933232975`*^9, 3.7385816487654686`*^9}, {3.738581823928488*^9, 3.7385818265056353`*^9}, { 3.746791040438759*^9, 3.746791071688319*^9}, {3.746791218199999*^9, 3.746791220316177*^9}, 3.746807028665576*^9, {3.7468327145191917`*^9, 3.746832717645952*^9}, {3.746841944173117*^9, 3.7468419673751373`*^9}, 3.746843150711471*^9, 3.74684319181361*^9, {3.746843300199735*^9, 3.7468433112667046`*^9}, {3.746844210205324*^9, 3.7468442113685236`*^9}}, CellLabel-> "In[112]:=",ExpressionUUID->"da42fbfe-60db-4b19-a3f2-7b0c57a1c8e6"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "2", "]"}], "[", "2", "]"}], "[", "1", "]"}], "[", RowBox[{"Bt", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.7385998195678196`*^9, 3.738599826307205*^9}, { 3.746791128448927*^9, 3.7467911487067003`*^9}, 3.746807031096098*^9, 3.7468330770061526`*^9, {3.746833110572871*^9, 3.7468331142241416`*^9}, 3.746843151369008*^9}, CellLabel-> "In[113]:=",ExpressionUUID->"6d71b64d-e4c3-4a97-a26c-783385c9fdb7"], Cell[BoxData[ RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"U", "[", "2", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"U", "[", "2", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}]], "Output", CellChangeTimes->{3.7604679844781113`*^9, 3.7604682423389063`*^9, 3.760470340875881*^9}, CellLabel-> "Out[113]=",ExpressionUUID->"851fc4f9-61df-4217-b6a2-b4217daa6c7f"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnW9MG2f2761739wX8+LykhdIXFmWeBEpipClGxRV8IIoERJUWyGLtrJM 1FyIdrOQ7Q3ergqtGsiqdbUtaBvS+4u1jZX9xdntKN06/eF2cVqcFU6Lu3UU UNbdQGQanIYECHKQCYbhMn9sPzNjezwzz4xnnPORdtXtmrE9PvM85znne875 X8f6fvF//pvFYnn9f+z91y+63S2/+U33Gy/9z73/0fnr10/0/Pr4a0d//X+P 9xz/zf8+9t/3/uWv9/6zf+8f6H/eBQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAA0J/M6kL07/5zb59sbyQsLLZmx8mhc3+ZmnuYphRfd3N55v91 d5ydWs5g/LA6AfcEAAAAAAAdyDyMke/3ttgsRam1uzxk9L5s94N6Muc/3bzn xxBtI9OPlDsv+gP3BAAAAAAAPdhanSWH2huKuxwoDW0Dn0SSm+Vdmcqsxi73 t9IBJVv32PSSeWJAcE8AAAAAANCFXIiGhbB3Dnx4aSI8E709N/vPmfAXl0YH Ohtrhd6H7RXPxJ21TMmIDrW+EDrXY2f+1nbcO/vENPEfuCcAAAAAAOgD9WTW e5xLwlk7BryTc48KJNyo9P0oedZhI/jOR63d9eFEfKVAYIfaSEZJj6uJ/QOi 5Xdk3DxeB9wTAAAAAABKkFmdj3x5NfhdIrWt+lI/TQ4dJdgsm/vP0eXSWTYq szzjY5NrAvfD+c4FcjISjc3NxaKRSdL7Xl9bLrtHWNvfDZWbvzMAcE8AAAAA AChB3lWw1LzsT+zguJTtFU/w36kyYzTU+nzwQ5ddlKErCNHk+vDLefVOo27A PQEAAAAAoBTURuTsvty2XvN6cEXpnr5zjzx2gAnR/P7LxFPZhYCpu9e97jar KCCUp6FtwBsqmK0zLHBPAAAAAIVspxLfBa+SpN876tnjzECPy+ns6jx2ce4Z CFKqjO2V4Os12QhLw6mJh8p/4XSCfL3DTcZVhGho0dS1P3kGXmvLSdmtzY6+ kQvk17eSG7iNbyedvHU98EVYQ2fGdPcEAABlYFpPMIpGANOzFOgpVH1/2BtX k8MCjEn6X6S7w0rYHcOfqfEZzMb2auSDdjboRLw0Pvu00p8HAADzgmk9wSga AaoBKpN6nKSZj11x27MZrEPjt5+frRqocnZ+9L1Ynz1mWJ3kYqU/EAAApgXP eoJPNAJUG9RmZCRrYQcHwyuV/jwAgInt2+OHsunZmhPk0lalPxAAAKYFz3qC UTQCVBnpuLcTvHSgGtlMht53NFobO4cuRX8GATwAACrAtJ48p6IRQApqwd9l 5ZyxDt8CeOkAAAAAAAB6shLsqwHBGAAAAAAAQEWgnobfquPiYs3DkbVKfx4A AAAAAIDnCkQwVvtGaB2KbKuDrbX4lH/0jeNtjQTR2ObsH7749QKIEwCgGqAy yX+M9xyq6QksV/qjGIXt2OiBfe1DV0GCxfDcW4gZ7YFKkC5usjHhIpMgGKsC MkvT4yfsREPbwDkyND0TvupxHqB/35YzkzDWEADMzXZq9hOXjbAQR9+aegAL dpZU3Ndjg+GtNGAhu6a0h/XQANfwu/aw9w7ExUwP207Q9tr5mVyxD/UsNtbE uNu2E5+Dvw0ApiW/zw5N/gTVwTyoJ7Pe47bn/dQJFpLFZPZAbUY9+7kkZasn ul7pzwOog3o0PdJG2Hp88RTv3ydJJxf97CWT1f2AUpm1eMj7FpufbT959uL1 u+WO7QYAQ5PdZy2NveRCdT/GCmEXQJz7L5b1RDfRiBktJJ0IDrdb6+yuj2dW Je4JPTPuy8+ufnlrOVPeb4DfHrRDJBijNpK3vvJ53LTZWGob215zj16ZwjzU b8+8F6KTV8ZHBno6m7M9NfawNXd29w398dLEzfk1aM6pgO3V8Bk70TYy/Uhg qdSCryNbo+GJpgr/dQmo9NqDJDYepTRbJbZTcdLdUm9zDF+enJ755kJvw96D WNfqubkO/hhgbqjMUqCfseeWkRurYM/FyCyQvY30ubP1g5l1lQ4PjvVEP9GI KS2Eehjo5Zo5HBqOPCn52pXIcCvzyoaewFK5b4DTHrSEJxj7NPFwxtffShD2 zjfH98wmOjMVGO9vpt3KQ73eb8v1RUuxk07e9A+77ETeA7PsnRRefTk/HJn7 l00uDxk1xXxkajuzrfpjYrnIxneeg3X2oW9EjyFaMNvpjadlXzkT9VgtuGF8 78EPvOTXscV1LO4Ztfz1Wy0NLUNfJTlbfRIZPsSYkz5TKTfmyTfbBZasLbbm 1y7HDbzAALig1m96WumHuMbxp3+lZa0VmdRi7Drp9dBnX261t+wt8oN/ndNM 20xHMMg/9LXvneiPjMb0HghLrX4zZK+hVRm9ZELFtoVhPdFRNKLCQioIOoxA am/KS6rqHf575X9DXPagLflvV2M/3n/cXmdzeILzqNf/bHnq9y2072RznI+p SvdkHscun6ZdOwthbekZ9n5+Y3YhuYYYTSa1vBAL+T/sb8uOLyeOuD+9vWrY u8eCx1HpUZ093FoiT9QUntCxMTeeDYzVvRV+Kv9+auKModQ2dv7u/LXvk2kV okVqKXjqYE3XpbtbuS+Yinqa2evroodcJJ3a3qYCWD1Rk2QjAOUwtk3/3LYT /vmNcv8qsxIPXTzjbCIKmw7RMDilgTBlazX2n/3N2cNfZXQR2+szH7Sy25Z3 Vv7hk0H9eqKnaESZhVSelfDgQc5U6kcimyX2JjSkINfDx2EP2oIKxix0bHMw MC8+K1EJspvxjogXR2NKn93skHqi+dSFUHyttH+V+Tnqe72ZyH6q/MHEkBjF GdvzBBoOer4r8BxS//Z1cFZc0xdUMnk0n6a8vzD3z2hkkrww2GkTr/HW9iH/ VCy+WCpJuTAXnYmE/uYbP3u60y64BGF/7cOJOxLmUeQjbkTfP0i87I0jN4C6 53fUsxc+MBrTPoC0nVq8HeWYDgVIf8G7RLT2nfs0FJmJSrN3o66R5F99457B vq5ma6FN1UkmNf9eQGVJJ8g+JqRl6/LFyxJwUOsL170DuVNtMfB78pvJyTMt iJ0SXf5ERRZvaiUycpj5BB2emRX5H0H9eqKZaKQA8i3EICCzPqX2JiSkoKAH l1p70BpEMGYhbN3++a2Cn3Fr0d/N3YP+oJKvwXliRZy9wuwdr7wubiMztj/G 11Mtxm/RG/HnvtH+9kI+Wq3d+c6FKxPhva14bgFxUR6n1H7BnfTao7WCkaX8 hIW6Dt+/Md3H7fXwO/sEX07iaCOGTqB86XW38dyMWnvP+fCizPgddT/Qu6+m N4CO3EXUCPv7gj/Luh4m0EeM2/8cvriyDZBKL8enLw+183bY2oEQVN1UNdTW vL+bWQmJDm+88BLNez3bYKpINExgjLidsY3p4X3oO1u7/BUbr5dNTikSC6lf T7QTjYg+q0wLMRCIXyq1NyGSKovDv6jAvVZjD1qDfjv7mXDxQoZ87EfJGPGN u77uGiUOVWY5NGTnPp9ho4vFodZiY538JZFo6A8s6e1VqonuliTv42VR9Iww BR13Jjyv2NBL2brHppfK3yiYdbJxIPQI+XeZh4HcmK++wMOKJPOQIDxnAsf8 iWdqrkil7wWZIDN7OV0ifkDlyMqP9x5eT7S0vHkXKaaz0Ica17uXJ6NsnHpx 9rPBljqLAMzO2M566A2eYlK1tauDUW4wG33r6PeyUneq1xMtRSMC5FmIoUAF Yx3jcyV/IkRSpXRoo3J70Bzk2zWN/lDimUEScXLDqtTW3UtdNRZ+5r38v14O D7Vkn2vH+CyWiK5+iBKYVie5qPunUBfdLYE4P6sqZbaZnP7IiSb1iKODgR/L kykyD7XgpEAt+LuyZwj+CVc/kCA8x2FvXPUvQK1PjxysqZxFAbqReRh0sxqR csTe1PJEPxshsR/zfC5Q24o8JYvi01Oxt6ejSejlK/bc5UjfGm+vZ+4fP+Eo gfr1REvRCA95FmIwkLOqxN6ESqoODoaV3jaF9qA59LiAsr4d+hTLKSndpQ8Y IXcTrdhvfsnZ88bYtTtySwCoJbI7u5vVuK4YtxSiENSi38Fb+yRLd7X4EPln H/OEBczO2G62kBw5v5fdt5Bai9+ILqKx05249zB3lX29gfuV0a3kg/Dc99nv mcFRzZ7LflbCogDdoFNd7PJXVtCDWpv7krwauH6rYCEMsuBzC6rSCEORd89n 8bjlbjD8GN/llZELhlhqusmlslcB1euJXqIRmRZiLJCzqtTehOg9iJOBZcVm q9AeNGZzwfdK9qEsnXxEXinzJE4l/F28RJ2Cx/NRaKAx++dms7dc1QwHLrmm HPLPPu6KQvzO2C4/z8I+esomeqRio23cFWpPy8+tYwENwrMIEh/Kyd57qdg+ YGIwbxyi51VFhKHQ5fNZPM5nORsxQmuivLtyeCSiWLmNaz3BKxoxpmtRLshZ VXJv+jnYlw2MqUwu4LEHvCDfrsNXUmSJukOyhNCoF8eiIKvCi65XPu4ti8o7 Y+izj3vCgibO2C5XhYReVkGxdv6Jq6DEXSwYw1fJzpmW+iJcwKjkbRhLiCmT JHt5J2O8ogVhjlJC+qIjm/O+V9kvTrzom1f2jbGtJ1hFI5gtRGfQs6pUhP9p eDCb3lGdXMBhD3jJfzupYDVP9yLLmc91Zcl7I8ORNbmflJfsq5gSWxGVd8Y0 E4ztaueM0WXIM54OXmPg9o9nZbQxpDYiZ7MbA7ZglGy0EYxxsKYFTcaqlr2t 6jR3CD34fhRDiAk9U6t3KoSIkiBtozGjSHwRrYuy3Aq+9QSnaAS7hegMclaV Kgzcnhs/xL0UQ128anvADPLtJKyLSpKu3FMmb0MX1PWX6J5REt6mr2+Pgo2Y 94TLieDqe/uc/0a5Y8UUO2PURjL62fhQH++9na5f+mblHTa1E4ztaumMIWXI WWT1z3kcHsxad+VyJZoJxhhY05KIaQOmZedH34v17JqLR10gbDqh5FxcnHy0 gaNpLPbMMKaJRO0UdWfCt55gFI1gtxCdQc+qEusYGtR9xbegehFVaw942V4O nOS+nUTqhJcllLuhU6lbl/qP0Ds2Pd7oWlzh9A1eY/O6wbB+0zV27of/+Ftn M6/pgqX8sWLKnDHqQfjsS8IeZfSM2rc/Dt+X99BpJxjb1dYZQ+UQHIXrxAuR LxMm9g1PV0hTpaFgjIYxLaInsIztioBxyE3MseBqRYXEdhjwxlKQLB77rBom R8mC7GIKum1gW08wikawW4jeIGdVyf48SFD30PgcBv2vOnvAzNPY6BHu20nc CFT3UqkOfvwpMxhzPWWSWYl//laLoGVY61hMcjVT4ozlSpXzb2Vz/CGUUNCP RkvB2K7WztjeGjg12IDe9JqDI9NlzOdFhcT8XAm1vnAzWm5UUy1aCsZ2OdOC LGWV8iTqya7PeJa7tchwM2KLta3jt/H1aUfyZQWfOyOQP5bWv+j7Uc4dxbie YBSNYLcQnUHPqlKnVLoMODuPhxeK2Xw09/3csqJAmXJ7wA6i5iq9gaLB7YY3 Q5WpSuOrHZQ0nlVPbt5EjjJcUwXO2LMfRpv4AZWG04ElZYFZ5NnX4qZp7YwJ d5DyTjGokJifK2FK7/XqBaGpYIxrUyBvWi5gGvKrLp7uE9RKsB/1lsoPMpfD 1py3o55n6obKUbKgy4KsJxHjeoJRNILbQnQHPatKZB6RGBq/sxa9xtYrzPgo tgf85J2xkofrnfXw29koTX2Hd65CQ68E85e7/YuV+CDCUHwZP6JsZ0wwLVTd bUeefU3ERZo7Y6LcShknekRILDjyMCdcvTx5bQVjXJi9crUJgIagZo8loC3M +GPVyWyvhN7kR/KNlqNkQUv7ZeT1cK4n2EQj2C1Ed9CzqkTfMDSGxvvhmDVW 8ddXaA8akEmSPeznKOWM5UaEV3ick8AZq0S3Lhqk1QyHlJhQtjMmGmWoJqOd f/a1OT1p7oyhao0sEgJa5MkV3DramPc1DE7psnKpEYxtr8XI8T/PCKcL82Cf X2gyVpUgAWEsFdB5pTcL1goycVjMgDlKBqRra/l6G4zrCUbRCG4L0R3eWbX0 V8j1zLcIpkcxqn4V9RSK7EEL8hGY+uFIEX+CGVvP2WFFB51T9/wO9HmvlDMm nicitcPKdsaQ5m8syiOo6LOPt7tjFh2cMeFPb5GqAkPy77xgILURG2sldCtk ViMYY2xAQqdKZZLRa9eiMoe9AmZARlvyckCV3uxajnGWtFjgasgcJctmZDi7 lpTdrxLjeoJPNILZQvRHcFYtnuoS9DhCp3fRecb9quoplNiDNuSSzkUSWFQq OsZ5pAdcvjnNonjUdmZb4jYIN/1KOWOoL80iJdqR64zt3PEe5rl7KnoBaSwY 29XFGdt9Ehk+xH+P0kmQfGiRF/Ldivu6GhrckzqdKNQIxphgoK4lw4CRQIIG WALaSFsGGqyjwcTKDYPmKFmWAj1Zz7HcgBK+9QSfaAS3heiP4Kx6oD9YaMYK 9WTWe9xGtDhffUG8v+zM+15Ue7hWYA8asRH3vszMlC2UCMssBt3N7I1yeW/J HShZisz6Yuxr0usZ6OlstuZ9XqLxxZNDH/mn4mviw34+3cZSMWdM5FxJlbPJ dcbEk8UVl8tpLRjb1ccZy+fT85RybPJxgHzIN/PT5NDRmpaRqWWdSg9VCMZY NYi+zfQAAyGnyqwM0Nm+NDjb7m3c9XULXDHc7cvwgopAykzx41tPsIlGMFtI Dir9cG7qL+eGftnemAsI2Jqdvx2ld2VFsuVigRbRWVXcKopK3Q2NdtuY2cTP cjacC7pmEoH+g6onQCmwB81Iz3odtr070dAfWMq7QFRmNXa5v5Xx0464Sdmj vYtAZdbioYtnnPbsD000th0fGPaMef2f+r1j7w2yNkBY2964FP0ZtXJRPKpy zlh+bAEHZmdM6Haq0HlqLRjb1ccZozYjI/WC9b604DMX2ba9Nj55MzL552HH fqL5tH/uiV5xaBWCMepBsP8AnsaGgClBQ8HqzeDp3PgvEDvEWYRFJT8/YeO3 +7EYZh5lYVCdSdmVyHjWE4yiEbwWwn669YXQuR57rfDXzGF9afjaj/I8AWox cKKxYBYVPavWNB89wsRkCPux93xfhGei0cgkeeEdp73O2v42OfuY2V43k5Nn mNZSB5yj1yKRry4OHCEUzMgTosgetILKLN8879pb/GvtrncvT05HZ6YC3sFO +hGrtfecCy2U0dWpnLdJ3b3udbdxcTDmvabuPBJPtKfbzl8Zam+wMP5w1skR K7UqV/sgN3Il1xkTvl7BKE8WtPOPZnpaPZwxdFRE2bdxb225fnG4r6vZWrfn 8Q+eD86t6ll+q1gwRm3dvdRVg6uxIWBC0IA2T66sCEHXfYwdLajl8FCL8Lms 5BzYskDP9TKUABjWE3yiEbwWQu/Od0j3EZFXLUZWjowVnBd0/tGz6v6+4IPM 2t1I4E9MqowODVmbO3vco6Ic2dZanP4NHHuvsbY4Bz+5saj6myu2B+3IrMRD lzwDr7U11tLRKmff0LkroVtJGZMAS7G5HPX1N2eNx/aKJ/jv0j8olfoxMHiU IBzjs+yGi5gxt7WVroTVEkM5Y9STeOAPvS0N1rbfXREc0zJxn4P7oKpjucXR xRkTp4ZV+Ki6oFgwllkgexuNsiwAFQGNvattfyToaIFxGgUrXxc+lpWcA1sm aOpBz1FiGEUjOC2EyiS/9jj2i37HYjT2kgtlpWbZPgyFG5MikT28fbAVUCl7 0J/M49jFk/bs1CWb86PpckYIZWsHslU/iMqO24or13Zc5H7U9AVLRZw1dMZ2 UpHf27Ov44/FQUqcapzef2mW0q2YM2Zo2aoiwRiVWbvz+d4ZhH49CMaeX1Dj UTvrSth04hfjc5h8fLTbAO+5rEg7bjmgS1b9SGRTr90Xn2gEo4VQqzdGWurE PyMtFWt7QTiPj/t/+siEZFqKDYsV6QmJFqlVfHZApexBZxiVY/bwRNhcn8zK GBvB/pqHBsOPxTItTXb8MpHrfsh0xqhFv4P3+hInTV6ZIZIdoDIJspfTchzs DyQ09Fsr5owZeQxQ2YIxKr32IJlcjMcik+T47zrzollTTpoT8XQ+eMFjFC4E 580Ra0QfKXVGjjQmYsAXIS+o26cxQ5sFtGVlj15hGZyiEWwWsvWjv/sAsqS2 94/6Q7GF5VTukjvptfvxaPDiGZcdqbSTriFlw2JFcuJUknRxVzNC4W1F7EFf eJ6YhWj/KCZ3ICC14O+y1vQFHwklQ5JDRTVF0H4WszMm8m5KvB6ZLmrr8cXZ l22txi72sjpM4uhgQKbkUi76OGPidzG0MyYSjMllvydaBQe0Qr9aBTGwwaCg tcN1Hb5/K7cDdNoLTZM7hKWRUlbWWOgeV7RzZpmgk/WwFoLpJBrBZSGp2XFH NmfV2nchVLJecju1MDnqzHpuxKu++RKRfvYUUHPQ812hnDiqADdC4a1m9mAQ +J5YeYFNMcy0grrXx8e6+I98ZWUJ/CmZFqkx6/KcMbTihqXE4Cdqa97fTUfA GtqHP52OzkRC5AXuCGNr6TuPq/iiFOCMiRELxmRicAl0uVA/TZx6oQxVsC4Q L5ya+MnwfsIuXx+rShjJdGFC7sDB96NYihzp/lq2AneYxhQRXaSJK86tRDfR CBYLodKzH7cz5kG0/I6Ml1cWmt/Wizla7LVLhcV2d9ejnlbu4xtidoBG9mAQ Nub9J5DH9eCpoMKjALMJNzQ2CpKUFRpMySGqJihdzyLPGdta9HfLuPjuTjoZ vTr2Bt2wjekU8mqP2+MNROZXdXJU9HHGkD7JOQzrjIkEY5a6gcC9ZCEW47Fo dCY8cYWu48439nGRCTO4DYAWoFuDmgYIT6KeI4gNCoYqKqZogpLGHCXA6ERC jHVAuolGcFhI1qMWd/eSIFthZGl4O1zYjyodFuMJxirc9J5DI3swAtup2Eft aC21mqhsIbFQpSV/4j4bJTu9yHPGRN3m0ekPBgQ0Y0LEgrGy1PjItAtThBcA jcCUNFmfGmzA3tEiH04pBMZSTU1B03wqp3Wj6CYaUW8h2cHuDacDS7J7lFEP J07RplVMB/sw5G4qYW+IYMwgSW2N7MEACKts1E0rKFRGV3HJH5Xwd/FWpJKx TVnOGFr+zHxZI9cM0lTMGTPsUyMWjJXZlTEbFK0OwRigEFSSqtgZE3S0sNT2 BzFMAeOt7XXNnR18uYZZUjy8iR74znS6iUZUWwg3NV6xhpCzroJqCiY5TpQY np7fMSSEZ7qhkT1UnOx8pSzEi755NVtmgV3YAJI/4fjIkv6hLGdMNPWp8l+2 NBVzxoza/EEsGCs3d8PJBatEMAYoBIczxu22eROka9JVwp/XXOP4+OvLv+IZ ek1f4KHSfYzaSN5iB+S90sbVFNc2tr3SM+DxBm7MJfE29Ndu89VHNKLSQrjp TqoyVmwn4QKKLyY5TrzsjRcXlK1+O+5qqmnsGrxyW9visnKpTmeMWpl0o7Fx 1XFIsfzGGLM20IFWDCUypzKcMVEC1BBftiS6OGOF9PuVniNWhAKCsXLbt7Jr AgjGnnPQrVaZODY/SxHfMrK9Gj6TU6czBVmLwjomhQ0zt1ZnP/e4mgjC3nna 470yQU/D2YMeBJMVUhJNLs/V2DKuKAqvSMqEm69KC2E3L5XHfFaR2OqJ8g6O 7BRUDXuMa4LZ7aEgzxL+Y3xBgUr1i7i00CiyBOHs3RLfVIYzJqjTLFmxYhD0 cMbEIj2DlOGIUSgYY2ALQ0Aw9pyjvuvRWmS4GeuaSWWWAv25UzZx9K2pB5Rg ypJCQcVGYuLtFqKhfehKtFD4i0rFrw5w34Wwn/TN4pkti6+TW0VQaSG0to1o HYup8s9Zh1+gFWGnoBo+myPC5PZQiK3b4638PVOt0l4UgDLOD83KFJG1qGim smxnTOjgEcf8iUr3w5NED2cMrXbJ3huD9pZULBjb4+dg334QjD33qHbGBNJ9 9WtmetbryBXH17ePRVOUeFysgrK+7dXp91qIZve1hRJz96jVb4bs2WVRYYsk ISbffI3RpJTpxM6bPsMYXnZojpkwuT2IEcXG1SvtqQTp4je0aRqLPTPID01l EldcqO9UeAhX+c7YemwUbQtUYx/6ZtUg37UEejhjYg/HIGU4IpQLxvZ+/9BA LQjGAHSrVZCLF4WRVQ6Sph5Nj7TlgmIN/YElenaz6HykYAoSJ2wjrC09I+Rs cflQKjbaZsl9AMne79Lwwtcm3HxVWggumBmF+R6brKq/odt8Kguz24MYcRRL TZMcBmZ7QsDVKgcXgpY7da2emwUKZspyxkRNrYu5dkZDB2dM7OEYNWaoQjC2 9wD9i3xr6PzMY7MtZQBeVMqzhS2pJSbnSsDrGJmfoiI+JssXjPEflhIlBnz3 EoM+weyCbSz1tuphZBXEycAyYxKsa120+ZiRMbs9iBHN8lY7MVYkGFNTraMR gtleRIdnRnRuK8cZ4yUC9q7TNjL9yBybsvbOmNjDMapAVI1gDABY0IVU/lYr PMCqGZfDphGzV7K/Gcx1BxW+ixLBmGDlKLEJ8l+pPjFn9s1XnYVgY3s5cJLg QnNSjV4NjdntQYR4U1ZYXJPjcXgQVSUY9Iem1r8/37U//zEbXr+a4GcFJJ0x wegoywGX95Yxan7LQHNnTFwVgmvEHnbUCMYAgAXtry53qxVXPCnerLdTs5+4 bNknz3bci4jnt2OjB3jvoqTDGPUw0Js/uuzrDdwv8lBTm5GR+vx74XXGzNhx XY2F4IRZ+w8NR55wm7VR+obJxez2IELUCap+OKLmh6FWgv28Vl5YOkhrApW6 5XUhi9PewhV7nF8vSjpjVOoO6T6SdzaIQ70+83hiu9o7Y6KqEKL949kSet8K okYwVp08nQ9e8BiFC8H5cjPGFQXdauVGVkWT2hS6LlQmOeHOyeaJzrHYGvLI iQtqlLXg2ExOfdTbYrNYD/eOfZPMFHuo+RPiMDxT2KZ/Vgg1FoITJmdB30DW rzZqwkISs9uDCKHL0dATWFJxOUEHaYOGxXJQ6Xshzyv5RCPR2u+7mUwz2fNi zhi1kbx5yd2Wz+0S9l95Z35WcerbTiW+C14lSb93lN59zgz0uJzOrs5jF+e0 q3rQ1hljo98ohg2LqROMVSWF2sNVEJMkIFSc06l7fkc9/0srcMb2PLGvhlqy ATbi6NDkT/xLMGW/KHkVtxagKjgs41dQZ4YN7JgLw0Ry6K1t7wPcZTbrA/3B B8ZcmaUwuz2IELocR0ZjKjYiQTzEHGr2bPfC7Kcm7K4z3kBk6hy/sKFpMPB9 NHjxjDP/Sov1SN/43+NrKkN/Itkei6ajPDV1xjJ3/S70GxG2XjJR9ARdWUAw JoL6aeLUC0UnGeoM8cKpiZ+MaTp8UL06Ic/NET+M8uXu1PpNT2sJT2x3d3PG s5/3qxI9gWVZ7yHr86ApEtupQFJ9fgR1Js3Y1k+FheCF3vSJA3/wec0q3WdR bw9UZu1uJPAnz0BPZ7PNYm129I14r8WW81vVdkbPbUvojKnJ7GceBt3IHtzY Sy6Ud610Ijjcbq2zuz6eWZWwUCp9P/rlZ1e/vLWM9y5RG8noF97hnhZrObtQ bWPnwKh/SrUbxr13JvU4STMfu+LOtsvWeLqlhs6YwAywdRnSBpFgzKgln4DB QRVZ8oKrBaaGyVqHqczq93nFha17bHpJ/MeiCLCmKww6X6/8jaAk6PzfXDGg qVBuIXhhhvfVNjc3GT51VQqV9pD5OXrpjTZ6u29o6//QPzlND484P9C254f0 XppNbaXm/kLnv9hWydp8AyFMCzjkAVVRSrnxnedgLsZA2Lr98+U1kUMUoZLB xpXIcCvzSpXp1OIfJr1yb/YfwSve0UEnf2qIta1vZNT7l2D4hx8faSR+QiWv qhuMlEYrZ4zKJMheG+rQHuwPJIybZhILxjQNSAJVzHKgh1D0NBVwxsrvQ8XP TvIV+wjicRhaLaG07uL2fzi4pwpfWRO6ZFUyrqQCxRaCl/ydbBuNVayOQC3K 7WHvkbkx5mT8YuHJZTt19699DbX2Nz/60MFdXT+3Wdh5RnFkLDU77sjvwTKC IWieSCrYmC/Nrnf472nrr8oaFI4HpOeb2gYjUmjjjPFyJczPxPb9NiyicAGx 3zNjxsoioPLQgY/sEihL6FbAGStz1OlOOjGR88SIlrcC8wU6JjIUmIqiyYKW WYlPjjnZ45j1peFrP2J7/BFPRtMEq4YothC85O6kqQ+eCu0BObwUPrlsr4Te RDI7aprMyEXQgkBZUT+Vnv24PX+V5t+Gyh96g+SJ6kcipWbKoAXg6rRt5aC/ M0Yt+LuyHpLaBiNS4HfGqMzyzfNodaqlrmXoq+LFVkZALBhTUuwPAAyoiEXO qbaAM2YhuvxS3thmcvojzu2xEDaXN7ZaQjUhUu/jmsiTvh8NfkaSf/WN/+G9 wZOOZuZob23vH/sM34hwGiTHp7GEQ0OUWgheOHsTTKg0GcrsgVr++i3u8HLw VLBIFemzH0abctuCcKi6pvBHKyrqPMOLh9gc52MyTkNInkiq6TRSyqrDvGn9 nTEmla/TaoPZGdtOxUl3CxoTa2gfmTS2J7ZbSDDWW7EVEjA9aPRJznKRf/BR WobCy0Wfn8zPM95f2bnz736H52uJZ23njvcwP0uJyRnYSQTecDlZXm1r5FzD xhdPDnsDkbtr2FYAtlWp8k3KGCi1ELxwW5sZiyByKLKHfLN3ouHURPHy/ieR 4WyvVK1TVEJyQizGzekPyhoixu/WJTsYguSJpOKBaEbV4V/Uep/X2xlD437a z1UXr/9KbymVuhs6d8KOysSI1n7/bSNnJzl4JyAGU8ftgQqDPsJydBQFPCWG gmkUutToylB7NpFi6x4LJ6Q1rJuR4Xr+xTXSwFPpR/HpT0deZlZqwtr2xqWo mrY/OZD90cQnJqUWghXuIG7utU6BPSBjEImXvfHimkzU09A6RSV+84cTpxpy +deSn1Pwh6lbvt5D2b9UkJZC80RSmtW8YEyPMLUodKR1Zxjk0KR53G97PfzO PsHKL5EjFpNJLca+9LrbePWnhLX9bXL2Maa1UtPS482lwGlhSxEdnHygikHO OHJmx6MztflYOwa8E9F4gi62XoxHJ//T03s4uy7VNff7omWmAgtkQg+PRPaO 3ZlUInrNO+bxXIosY/RwNpOTZ7IjmQ64zt9UW/yOls6Z2otQaCEYYfdcc+co FdgDtTLpzjo5En1u81WNFUmIZ5anRnLjzGoc/3E7JfkRdtKJSY8jlwE/4By7 IT8theSJJDwQajPqyb6ZxpWGNGhpNudmNLgnZcUM5YF444SLLF9yV8aV02sP mM4ZyfsLc/+MRibJ8YG2Ah08rO1D/qno3EKyBAtz0ZlI6G++8bOnO+3CS1g7 3JeyLXPVg7f0OH8TEvFYdCb8xaUPf9ksvgdEk+s930T422j0Vnwx960fruH6 UkB1g+4RMnrOU1txb4eczm5E8ynvjTICYjkKydIs1raenjbWtSNa/jCTwmvk aEmX6kKe/Enc5CU2Ci0EI+tRT6seomtNkW0P6IZeYoYXzfbceDbopoOnUQjq yaz3eDY2R9icfwwvPi32gan0/ZvcRslge8UTuqek3QMiGJPyQJDAEcYAe36P Zo+et6LR6dDnvtH+9kI9yGvtzncuXJkIz0T5PsvjlHppRN66cJ9ZNG+oTlhb Tng+nZ7H03VtV4PS4z3jccjZ64Q87z35gXJBRUFyiqGolRlPWe4Y0fjK8JUZ 2Ueegs5Y9pI2xwdTSfwODn80XkkJnNSVkJO49hIObVFqIbjgtBmVKx/AgHx7 2Jge3pfL/ZXuJIlMDdNbMIZArc9fG2nPuVhslODG7YXkg0epLaYx6cLsjS8u jZ5C4ioNbe4/lxsqF79hXjAm6YEgdSgYw9R4HBX1ho1aF+7yDU2csdrGNmff 4AdeMhT9cRlr2zUtSo+fxkaPqPiy+17234XQGFAOO3Hv4azZlD6AC8n8FBp5 qfiTSljbTo1djSqMPBeuEWDToDcWtQr8ohORLESHN15e50kRSOnWvrORDXMr CZRbCMZ3N8mMsSLItQdqI3I2L8uR8B8Qo61wQnwnTU9e7JDevQl755veUHxF zUxGRDAm1e41n8bFGqY2ijMmEoxRG8lbX/k87uN0gdKe5/Oae/TKlKq7bQ4M XnoMABIganzZoiBanH91zO1szp12aZ3k2+cu/Vckru7IQz2aHmnjiTvtrjMX r2OaIVIM/qxwxS1G87eU2Dc8bdaO8TnUWIhashuN7rp0nMi2B3SkuJT/gEwN qx+OGCAhvueS3bpOejnhdB5bc2fPgIcJh2DoQo8IxqTigUgatxpHB/IEY58m Hs74+lsJ2t0dJ0OMVmq8nxY4EYd6vd9ingNlKExQegwApdGzEkcO9Pnu6wBJ koHr0XhSsbKCnlEy90OsrHg4OlLEorh/JpJAOeKJmn8edAUtJNvK0tS6C/n2 gE5/luiDgcQtq9HTKAY6iUbCUc8kyd7ssa4SeXatQQpF7cf7j9vrbA5PkNdM +9ny1O+ZCguZbdzMhDlKjwGgNFTC30WUtfKbDiRwXWvvvRyXcsgEmQdFyTHE dWk9P6cw0WksKmUh2cmDenaVx458e+DNvCvtP1S7p1EExL+VHGGPpHErU4Gi KahgjH5SWgYD8+Jq1j0PpJtx74kXR2NVmJgzT+kxAJSEehDs51ovym3baGzQ dE9ZoQO+M6boad26Pd7KnlStXf5qOXhVxkJy80klZ0AbGAX2gFph3VvhooWJ uzxPg+eUUJnlOzfncDZ/MRKoYEzqdICM9OLHVzcfzX0/h3XoRiVA62tKDFjP CzCqa4VnMVXpMQCUgtqIvs8pMGpOkEua6rL0RDBTSbL1omDcmIK8D3InG94M VY8goSIWshYZbmY2GW36/eqBIntAR4KW1uQjMTS+nI+WVJl1Iqo06CQaiXgg EkNr6Aks5f8P+tbVm7t53S4/6WY/E14tamB5B7/6hFKmKz0GgBLk4tiW+g7v XLV4Y6mopznvWxEvjc+WVh7xI2k1fYGHMkML1MOQu4ndG1vHb1fLbWTQ30Jy noZ5u+YqtIdF0pkNjZWc+kct+h3c6/jzEarD0ygGmsaVcNTR4xVvnBbjpJm/ mA4RjDWN/lDCC0GirZWba6YJJi09BoBiIEf4g+9HTd6NIcvOevhtxoGobex0 nw/fl3CteGOeag56vpNbCJmfm2w7FUhWlS+mv4XkYhrGKBJUglJ7QA4FJZwx ai021pmNCPCa4jKqfqW1wIYHCXZJVZSkb42313Ov5CV8Ga2d+dvOINPnSyfd chl/izBCaHpMXXoMAIXIn+IbusmEuRepHFtz3o56ovWDmXXJiDTibND3wB2U GxbbfRL1HNE1dqQzulpILqZh3iJBxfZAPYuNsTfast8TLTz1Dx3gJQgQPUv4 jxFNY7FnVfIQ8xFoCbr9i0VuraAxNTo6kLof6N1v/rYz5SfdkFdqPihTZ6D0 GKg+qEziiqtGv9CHLlDp+CWXrcbm/Gi6ZNN+KhUdyx2iC3dvlngj5O69G5H2 /cyInhaS1QVJiEAMizp7oBYDJ9h8SsEAF+uJ1R91OuzisA9dMtBQnccBGlQw tseB/mCh8YLshCaixfnqC9wLkRjjzrzvRaIK2s4gmliJLg1oO+vq8kOg9Bio TnLdWqoptrOdipPuljqL7eWRwkPQdtKL33DjzOgxmqf9c3I9MTRqpGaOkvHR y0LMLhhTaw9UZinQT1frC0vkqHQiPH7CTjDj7DfowC9/c0knyD5bVRWP8OFt vswD23Jmkn/OolJ3Q6PdNuLo0ORPz3KZ4lyoMJMI9B+UaIBgCsrv0sC7aSYf 8yoASo+BamUr7utiynNsfWQiLf16k7C3Pl/3uum5eIS98/TZcR8ZDH8bjc5E Qn+76DnRwk4QoGctfb0g7tIjzfZ65F3muF5jH/pm1eyLfGl0sZCsLsikY9ax 2EP2EEEPYx2+PDkdjUySF95x2msJ+4nxcILpmccGfhmfzTk6EflH8MKp5hra CanWnQUVjNU0Hz3CPLmE/dh7vi/oGdzcLaqztr9Nzj5mbkIun3vAOXotEvnq 4sARwnbCP2/yFCWvS4NEeo5Kkq5cvtZQnb3VA6XHQNVCZRJkL7O8lxwqYUqo 9HI88l+Xxs8O9Di5WS1EY9urvQMj4/5QbDGlcAej1m96WukzanniNLOjg4Xk 9MamHLOO0R6o9P3oNe9wXxc9cYyeNTbivfY9f94rlVmdC54fogcREo3tJ8/6 IkvV6onxBWP7+4IPMmt3I4E/ZUcvEdbmzh73qH8qvsYb2LG1Fr9+cbjPsfca a4tz8JMbi6UCKCZhezlwkvNCiN6SAy5R9b6FcJFJ8395BCg9BqqYzHJoiNGi NPaSC9W7sGMipxOucXr/VZ31ayK0tpBshZQZT/HPoz3oBjJYUMIDqXqexkaP FEq6iUFVdlXUiZoDSo+BqoZ6cvv8q/QJ1Nbji4OVliDnljS7g4vP0d6grYWw ymSiYXDKbH2gnld70Ae0+YxJxYTYQJoolowI8XqiVqGYEEqPgWon89Pk0FE6 F9Xy3nTxxs7PN9TWvL+bTtgdcHlvVekE3uJoaCFMubr55ug93/agPYj2SaLH 6XNA3hkrOUI312vRUl1lWQhQegxUPZnFoLuZ1ga7PplVImuvbqhM8qshWl/9 HO+8WllI5lHsy6vX46a6q2APWoNqn0wpJsRKJkn2SDtj+cEZVaxohdJj4DmA i36APyaESsXOO2yw84KFsIA9aM961NPK+WJmFBNihtqMetguY8WbySONrIkO z0zVTQjPA6XHwHNAZml6rNtmqWvx3AT1GMfOPfLYAQtxxE3egZ0XLATsQQ8Q wVhNb6DKCr2VkBODFen4ijSyPuDyzVVPo6IiQOkx8BywuRz7+9XwQtU/zuVC Lce++OLGwjpsCFmebwsBe9AeRDBWfSWBytiIe19m+qwVmlLBSQgsEK0FAAAA AAAL+VbrxKu+eRN2AtaC9KyXTo4TDf2BpXxrNSqzGrvc38r4aRCtBQAAAAAA D9Tqt+OupprGrsErt8G7yEJllm+edx2wWGrtrndprdTMVMA72Ekro2rtPedC EK0FAAAAAADQmsxKPHTJM/BaW2MtPVLE2Td07kroVjINfhgAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAICI/w8a7T/s "], {{0, 110}, {815, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->Automatic, ImageSizeRaw->{815, 110}, PlotRange->{{0, 815}, {0, 110}}]], "Input",ExpressionUUID->"0dc22173-ca36-4acb-adb3-3d109362f1e3"]], \ "Subsection", CellChangeTimes->{ 3.746790794639846*^9, {3.7468324068772516`*^9, 3.746832407310075*^9}, { 3.7468430339794984`*^9, 3.7468430342617435`*^9}},ExpressionUUID->"37dd855b-c62a-4bcc-88ea-\ 4d1bfa1b423a"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "2", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{"Ft", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "=", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"U", "[", "3", "]"}], "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{ RowBox[{"\[Gamma]", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], " ", ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.440895870234375*^9, 3.440895891640625*^9}, { 3.440896510390625*^9, 3.44089655715625*^9}, {3.442671255203125*^9, 3.44267125603125*^9}, {3.44267137046875*^9, 3.4426713811875*^9}, 3.44267142365625*^9, {3.442712951171875*^9, 3.442712951859375*^9}, { 3.44296369284375*^9, 3.442963696734375*^9}, 3.44296768475*^9, { 3.443374517453125*^9, 3.44337452140625*^9}, 3.443397833125*^9, { 3.45504301590625*^9, 3.455043130828125*^9}, {3.4550527984375*^9, 3.455052814484375*^9}, {3.5067782137090287`*^9, 3.506778214466072*^9}, { 3.506779064525693*^9, 3.506779068082896*^9}, {3.506779121543954*^9, 3.506779124996152*^9}, {3.511641116247309*^9, 3.511641117295369*^9}, { 3.511641238366294*^9, 3.5116412632227154`*^9}, {3.519945652604292*^9, 3.519945656025487*^9}, 3.5206470576621337`*^9, {3.536753629485641*^9, 3.5367536355419874`*^9}, {3.5367542796588287`*^9, 3.536754394482396*^9}, { 3.5451480077289762`*^9, 3.5451480136813164`*^9}, {3.5451480836983213`*^9, 3.5451481475869756`*^9}, {3.5451482301356974`*^9, 3.545148230279705*^9}, { 3.54514835065559*^9, 3.545148351119617*^9}, {3.5517190084457397`*^9, 3.5517190462919044`*^9}, {3.5517253476257124`*^9, 3.551725350072852*^9}, { 3.552315878168127*^9, 3.552315880549264*^9}, {3.5594364063879995`*^9, 3.559436470154647*^9}, 3.559498758930711*^9, {3.7095734439172153`*^9, 3.7095734562269197`*^9}, {3.7095736865240917`*^9, 3.7095736900622945`*^9}, {3.710786317142681*^9, 3.7107863175327034`*^9}, { 3.71171717351058*^9, 3.711717180665989*^9}, {3.711717560179696*^9, 3.7117175669990864`*^9}, {3.7118545714168224`*^9, 3.711854584457568*^9}, { 3.7119033420472937`*^9, 3.7119033423323107`*^9}, 3.7119033814345465`*^9, 3.7120954622856226`*^9, {3.712095557947094*^9, 3.7120955854366665`*^9}, { 3.737162821795579*^9, 3.737162839969626*^9}, {3.73780794558059*^9, 3.7378079860629053`*^9}, 3.7379793854587083`*^9, {3.7385815933232975`*^9, 3.7385816487654686`*^9}, {3.738581823928488*^9, 3.7385818265056353`*^9}, { 3.746791040438759*^9, 3.746791071688319*^9}, {3.746791171144439*^9, 3.746791205624802*^9}, {3.746791269817828*^9, 3.746791296817684*^9}, 3.7468070324753675`*^9, {3.7468331290932484`*^9, 3.746833137306533*^9}, { 3.746841946421612*^9, 3.74684196943189*^9}, 3.746843152431801*^9, 3.746843195060937*^9, {3.7468433340275373`*^9, 3.746843352790815*^9}, { 3.746844223657961*^9, 3.746844224896682*^9}}, CellLabel-> "In[114]:=",ExpressionUUID->"2e527b5e-6a5c-4163-97ba-9ad2f37e9aef"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "2", "]"}], "[", "1", "]"}], "[", "2", "]"}], "[", RowBox[{"Ft", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.7467913000660734`*^9, 3.74679130814038*^9}, 3.746807032959241*^9, 3.7468331516324916`*^9, 3.7468431531448936`*^9}, CellLabel-> "In[115]:=",ExpressionUUID->"1ead8e98-105c-4f5d-823e-8d9c78c67819"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"U", "[", "3", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}]}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{ RowBox[{ RowBox[{"U", "[", "3", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ RowBox[{ RowBox[{"U", "[", "3", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ RowBox[{ RowBox[{"U", "[", "3", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ RowBox[{ RowBox[{"U", "[", "3", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ RowBox[{ RowBox[{"U", "[", "3", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{ RowBox[{ RowBox[{"U", "[", "3", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{ RowBox[{ RowBox[{"U", "[", "3", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]], "Output", CellChangeTimes->{3.7604679845102406`*^9, 3.7604682423797235`*^9, 3.760470340906415*^9}, CellLabel-> "Out[115]=",ExpressionUUID->"6d34b8d7-5bf7-4357-a73b-ebefa1a154d4"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnW9MG2e+761735wX8+LykhdIXFmW/CJSFCFLN1FUwQuiRJYg2gpZtJFl ouZCtCcHcnoL21Vxqwayal1tA9qG9J5YbaycE2dPreyJ24vbxenirHC2uLuO Aso6G4hMg9NAgCAHQTBMrmfGf56Z8Z/588w/8/tI5+icXWLPjH/zPN/n9/d/ nuz9xf/+byaT6e1/yv6vX3QNtPzrv3a9+/r/yP4/Hf/y9unufzn11rF/+T+n uk/96/86+d+z/+HZ7P+MZP8P6v9+BQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADSyKzOx/7ov/jB mbYmwsRgaXaccV/8/eTs001S8uduLU3/367285NLGYwXqxLwTAAAAAAAAHRC 5mk88ElPi8VUlnqbyxOIPRYt0sjns/53mrNqj7APTy1Ll3jqA88EAAAAAABA L2yvzgTcbdbywgzFau//MpraEvbJZGY1fq2vlXJOWrpGpxaN40+EZwIAAAAA AKAbCu4+BsLW0X/h6nhkOnZvduav05Fvro70dzTVczWa5U3P+P21TEXvILk+ H77YbaP/reWUd+a5YXyJ8EwAAAAAAADEklmdi357I/RDMr2D+ZPJ5zPeU7mw t7m93zsxu1wixE1uPo4FzjssBFui1dtcF8YTKyWchORGKhbwuA4x/4Bo+XUg YRxtBs8EAAAAAABALJmfJtzHGJ1T94Y/uavEJ1vtA/8eW6oc1yYzS9M+JpzN EWnODy8HJqKx+OxsPBadCHg/7rUX4umEue2jsNCIuQ6AZwIAAAAAACAaciN6 fl9BCtW9HVrB5GgtaDPLm57QP9IC/X3k+lzogsvGi4mXhDjkuvDtHHbPsHLA MwEAAAAAAJDCzkro7bq83LGeHX+KJZa8+yhw8gDt7vvNt8kXoovd0w9veQfs Zp5zsYjV3u8Nl4yP6xZ4JgAAAACAmZ108ofQjUDA7x3xZDnX3+1yOjs7Tl6Z fQnJcTXH5t8DA+1mwuYY+kMCm3duMxl4u30gIOcDqWTOr7/w9L9lLxQimZsd vcOXA9/fTW3gNsTdzdTdW8FvIgpKPsM9EwAANAfH0qRctQIAaM9isLtU750j 3gTGREcA0As7q9FP2xgHJvH62MwLra8HAADgFZ6lSblqBWPwLDJot/d9enX8 djyRTKWepblNV8hM+llqIRGPTgQuf+g8MhRZ33PPyODQvyDFXPz6gC0nWOsO j92DExpQg+w+8B1vzB/MzM7AgtYXBAAAgGVpUqxawTAsBJzm8vlUbIijvxp/ tK31FQNSIbeiw/kX5uBgZEXr6wEABdi5N3Y4n89bdzqwCCsWAAA6AMPSpEy1 gpEQKlkJ2+kxGLxibDYT3o49fDoD9ghbqfAnjiZzU4f7auxnWLIAANAHOJYm RaoVDIQAyUoccnluzqyCs8LgkPP+zvxv3e6b33OnMwAAAAAAjAstWZvPeDwD 3R3NLPFK1656g3fm1kCs1gQrod5cRAESWQEAAAAAMBa0ZHUGUrn/N5NefpJK pZ6slZg5CBgZ8kXk/YbcaaR5KLqm9fUAWNheS0z6R949ZW8iiCa7s2/oyvfz ezFaBAAAANQ8HMkK1CpIImv9u2Fo+1ADZBanxk7bCKu9/2IgPDUdueFxHqAS eVrOTcB8TwAASkBmUn8e6z5c1x1c0vpSdMROfOTAvjb3jT2ZHcpB5xYCklU8 RjRvMhlwWXK5ya5ACnzoRofpzmd569J0IY2ffBkfPUT/wpbTN+EnBgCAzU56 5kuXhTARx96ffAIrBEI64eu2UMPsPgrv6fO+/i0EJKsEDGje6+H+3ICd+iPe ++BjNTbk8tSwnbB0+xJp1n+eCjhzx5KeQApq5QEAKFBUI+6Jn2B14EI+n/Ge suzpKJUhLAQkqyQMZt7kVsyzP5cW0OqJrWt9PYAcdlYj52yEfXhqmTv2Y97X nk9X9sTSpf91DUJm1hJh7/tMQm/bmfNXbj1M69JBgEJmMlKCNDsZ7rAXAKhO Xo2YmnoC83pVI1rDuAJwbuvylybVqhWMYiG1LVk3k6GhNnODzfX59GqVX5ma 9/3tH258e3dJ4JaA37yVg5fISm6k7n7n8wxQL4Kpvsn+1sDI9Un8A9mzL+x8 bOL62HA/ux+Fpbmjq9f9u6vj0I9CPBs/eA422Nx/WuXaKVph1+FNbMr6FnJz 7UkKG8tpxdbAnXQiMNDSaHEMXZuYmv7T5R5r9qVsaPXcWdeNtCM3Vx7N/Dl0 3XthsNfFacxCv339Hm/g1t3UZuXoB5lJfeduMUO7D0AkZGYx2Ee/Fy3Dt3nr BoCQmQ/0NFFxqtZPp9dlvmeylyb1qhUMZCF8yZpJLy8k4rEs8cSCgluN8pBP gz25tk6Hh6LPK/7tSnSolf5La3dwUegX4DRvJWElsn6VfDrt62slCFvHe2PZ FyE2PRkc62umxPfhHu9fhCr2Kuxupu74h1w2Am3w22Q/8Ya9qZ7X9TcQS23o +i1hIHcyO7IvU+6HbC8GTteVnpyyMTuWd7I2vB95Ie9SMzGP4LF4gqGPKoOf egPfxxfWsaws5NL377dYW9zfpXJ2+zw6dJi2K6kjvPFBbi4lpm6MuU+1mIlq T4a+5KbOwat3yglXMn3X68puWPt7Qz+rfCOAoSHX73haqbNsneOLv4trBZRJ L8RvBbweyuVgyZuprWPwP2cVq+OgfEeB3/a2NRGmoyNxDV5hcvVPblsdVRHQ E0jK2A3lLk0qVivIsBD1KUhWxoPtdhYss2Cf/aM3Yo/1fh8lQEebVXM6FVM9 Gx3+R8LvFZd5K0vx7upsp/pO2RosDk9oDj3qvVya/E0Lta9aHJficoOqmWfx a+9QGthEmFu6h7w3b8/Mp9C2aZn00nw87L/QZ7fmzezowFf3VnX7ABnwqLhu eVmm2RfWetDzwwb/vyH/4WvPOVnrekNyx/EqIllR6ps6fn3p6x+ruRYrQi6G zh6s67z6cLtgOemYp5n5fO1ytpm19L0Ozukse8ttvxy84L0eikzH7iYWUqnU 4/nZv05Hxq97Pe90MMc7wmz/tT/+jGsizP5F/cGbvnmdx3QAPUG/I5ThWE77 50osG6XJrCTCV845D5U5axHWwUkF0su2V+P/0decjxRplpC/sz79aSuzG3pn JAarZC5NalYrSLMQzaAl64l/mwx5HJY6s73/UjCa+GmVlhfUCSt08TS9kloN ViBPsRIZPJgz/sbh6FYFOYRGVMWe7HCYt7KgiawmyvM/GJzj/5RkMtBFC0ji +EhcxmqU31uJ5rOXw4m1yio083PM93Yzkb+w4oFUl+hCsu5uri2vlZR5xVER De2+f8h9jsXEAEpWxaITgcuDHRb+DmZuc/sn47T+Ksv8bGw6Gv4v39j5vDAr QtjeujB+v4qdlLnEjdgnB4k3vAlkmSUf+R2NzAcfGImrvmAxYnXAznKr0uI8 u64uVzz3k5vLs99d7D5MH/XY5Q/5zHmKw2OzxlqGASlspaJX3qNeluwR5r1A QnJe+mYy0EtbjqXTlxCUg0Wuz9/y9hecCeUwe2KY5eRWauJcC/LeEJ3+pFa7 AbkSHT5CX0S7Z3pF/FXIXJrUrFYQbyEakx/YSrT2XYuXcnMVDImwuL6cMZBq 3bk3djg/7amK0wmJqEroWSrXvJUGSWTN/ohd/rntkte4veDvyj2DvpDE28jp 1TKquDTZk7XXldNC+lat7PTOhcTdWGwqfNM30tdWSsnW25wfXr4+HpmOxWbn Ef32LK3IDco5dglkZz3y4T7OXVY5DPKhDsLf8kSdrftSZEFkKgP5ONizr64n +BT5Z0gukOoB9MxKYvyCy1bPvq+RoKgQFfl81k9HKIqqlbWVNwxGNE53ABRn Z3XqY5Z4O+6bkxIwILfn/F300kq0exOll33W3zMNOQVlsWCXrBtTQ/vQbzZ3 +rUcKp6Pn0rK+pO5NKlTrUB/oEgL0QOMZG0eCC2UNcCCJDMR1r7gom4VBRvk PFLN6YSkepoc/gUJZyo55q006N3ZzkXKl6EVnYh1b4dWJNzFxkNfV50U2ZlZ CrttuUvUrbO6PORafLSDvc6r/6bIO3YJpOjIzSPpfaG9kffHPW+ykpAsXaNT i8K3QXoLaOoPLyP/WeZpsDCUuDf4VLWoIn+vJ8xt71+XmE+1lQq9R70OVJwu nb73b47iM4dE1j3A7gPf8UYM+jBfapE9w3pilUs5XiEF49QKYnN9dG0ixsRO Fmb+MNjSYOKAWbLuroffZaXRECf9yZcYv0A8dNUArR9aR34UFS+XtzSpVa3w SqyF6IT1+MiJ46M/VC5hIxcDXbnH3XQ6KGmPUhs0kbV9bLaixSGpnlKrcaWb t+Igd3do5G8VVgEk7i0h6EBuP7zaWWdiZ+8I/9dLEXdLfrFyjM0YrEETL2XA 7AwsqHoFSCKrgqMi+KkRspqNbKWmPnOiyQbEscHgA2Gp1PQLzjlbkfP+zvyp i+3iUBDyRTL8WwfrLg73eKfk5ejmDkF1r7/1lg09JEAi6x6A95ZJCpFnnoYG mEwvIaU65NJ4H+Nts5303OSUFfD0pEnyWbXc11NuSfTj1Xt/K7B5d6ytkX6E 7BB/FWQuTWpVK4i0EIOBeuoOfhIzQHk3kshaxemEpnoeHIxINQSJ5q041Kgu QXeHrkti2iYwkE/DA4co51Lz687ud0e/vi+2hgs5FpnqXNf1W8tWCnLB72At 6FU7VOCm6P9UsuwIs2R9le8Dg/hwBHexJtcSt2MLqEN+N+E9kvuUfT3Bx2oY UObn6UtvsX3Fp7z84ikJUMFBjkcbEln3Bhwvq7R8s6L9CHKgkWuz3wZuBMt0 WkM2kdwKjbfTGhI0zxn6YOQZvo+XTMETZarrCiwK/g3kLU1qVSuItBCjgXik TRyPty5BElmrOZ2QVE/iTHBJ8oso0bwVZmve92Z+makc7kf+UryTkEz6O1mh cQlrznK4vyn/z432EhUKOXOo3MkfzXFSclQEfsn6ih2RZF5DabMC0/ERe+4T 6t+RlNkiDjL9IDh4jJ0MgHEcXnE9KQCJrHuDnfTs7weoAqj6pg731djP4k9A mDcj3nsvw7dT6uOLQXOGfeejOnGLFXXdkeGo5EIVLEsT3moFfcoVjGRSge6C QdX3h3U+PwlJZK3qdPo51Jt3sh7xJuT4p/CYN16Qu2v3VUxnRxWj2JQ5VO4y SIiMs8JPuggMCUdjyapKIusrhSTrq1yFLPqxEtqtIG5JFRaofJfUAgpUp3IL UiCRFRBG8V3A4q7M7v49LIcE3kWGmxVQJYFNXbbmfCeYe5daBIdracK6yGO2 ED3C2qz0Hp9CE1mrhWhfRAbzOYD7PdPyXCQ4zBsvxburFspB/NLiD3GFjnNF zTYUXRN7sazwuqrlM7LRVrKqk8j6SjnJStV4TnvaWXMn2j6fEVNpvxE9n9/2 FA8DqaFXKdaiQ+hrBYmsgBCy2987ubM/niw+1JtBKyasR0JehM4+EtdRLQOS sSYt9odpacK5yGO3ED3C2qwkVpSrBpLIWu1Sd2bHDuf+FIMTQ7Z5Ywa5uyov C5kKuArrhuhDHNpHy1SxlVZFWEamrk9pI+497XIiuHo/uOi/LXSas2TJSm6k Yn8Yc/eyvtvp+qVvRoSfQZ1E1ldKSlak7UYeUX0Cn0UG85audFQxsxAaaEaf gWIjm9llL3p3FAD6oJgKi2k14Hr7pbgjylP08+Q4NBp/qScRhTiBJbV/xLQ0 YVzksVuIOpDPEzd+42q2mltOe8YfVm0rxN6sZLZDVxjUYVglGo6GPHA4MeSa N152loJncndXZVgGa3OUcIgj03ev9h2lLIQawPq11KkT+S7BNKpm7u0+jvzu V9zRb8LViDTJSj6JnH+d29OVaGo788HnkceCVxK1EllfKStZS2Rvlu70Uopi Wwxi39CUgtWPPG+wiegYja8p9KIjCU7yY0DAXqAw09OEq3Un4iSkweuX45YZ 6iorgAHZHCW03sKzNGFc5LFbiErszvmOF1ZeAT8Ea7OSVaakOOg6X23MBBLy wOPEkGfemHkRHzmau7sqDwLxS2vZw5klWeWmFksgs5K4+X4Lp8Vq62i86hIt RbIWeowUv8ri+G04KbbdHpLjpHT4Q1nJml3eJwet6NOvOzg8Vbn/HnNZSPkG O6pIrs/fiQl1lVdnazH4DvsnU3hkTDGxxwhFr4D2PI958ms+nvWTk51S3zp2 D5/BIxHqku+vTih6OBuP+x6Ieai4liaMiazYLUQd0GxPITssKvKr6h9tQW+t 2jpPNe/Ijwtl+fS2lmd/nF2S5NWQbt7YQVJMK0sLNPRjfS+sWdYHO2lKm/yT wgC7AgI0vATJ+vJvI4fYFeHWd4KL4k0OyXGqFlOQjdKSlbs/Cjv3oeUb7Kgi 3TwHV8Ox4qSYooVK60IsnMID12zeOmAoiis5nj5U5EqoD9WUwgMfQtie9bY3 st53vWUFMKArjCiZh2tpwpjIittCVIOdm1rVDovTPE1677WCOgyrxPoRfyy7 EymVWtAoMc1DsnnjpyhZK84q2V2PfJD3HTW2e2e1GzTM9rKauvwLWlwLvyVm 1d9RtGRFuwHLe/LFI5LyS5DikpUXhRTg1UHKNziHRNrFgevgs53wdbKPMip0 YC7kOBnJHwJoBfr6YMkR4ubqYM1221kJv8eOWegwK4ABbYkjIpiObWnClsiK 3ULUgy63IczNHd0DozfiVWuzUR2IN/saN2gia5UEBtQfy7JDWspK/kElmrcC FFuTVZKsZDLQlVs5tB44y5GsKreKKoC00ctRLc9ZtGTlFKxJTiNBwx94myWW QnHJiqZ+5alSs4C8xZxnSBn2PuvgJI51mRlGjFJXekINXnIPHBJZASEgQQos fai4o2Ox1hTzXaz6zAqgQWYBCE+cw7U0YUxkxW0hakILFaFdZJHAsc4nEyGO 02o/SmFelYkzsZeuyZJR3CfJvJWg6MprHIqW2fLIjdgnudOItDErGCEf+R3o IqaVZOUPKKyWYSJasiL9chkkutFUTGR9pYpk5dqAqdoZGcl+YeVFkBvx0VYC zyZLpm6eZqcEYI6QliP3wCGRFRCAiAE6QkDrdJj9wZvAlgbDz+TXa1YAw1Z0 KL8sCe4ZjmtpwrfIY7YQlWGe28G+YLKai3Uz6e/O3aeEFt+qwsnRLR9Z5lT+ ohOTqcj+fll1x1LMWxkKZ40yWY5kOjaa0+0HXL5ZJT3C5E5mp8qT4CoirSQr euhgaHT4H1W6eLGSdfe+9whLFEtsdahmIusrVSTrq+fRocPs76gcLiz6q1mh BCqOb7UOTGA4g5FLEXcL55LUcLG+ytsVJLLuCchMRtaRE3HXYMkRQrozUWAd glxiHrFuswIYFoPdeYkt1D+JaWnCt8jjthDVIdfiox1E3ZujP1QYCYeMU5Q4 SFFN0ASGLAf6QqUumHw+4z1lIVqcJ17j77x0LwWZzhkJ5q0QGwnvG9SPVzLu XOwwecDlvZvG+9Nm1hfi3we8nv7ujmZz8XBANB0/4/7MP5lY4/vqixk7DJpJ Vp4ErZwMLF6y8rRflc8vh5qJrK/UkaysQXs5Krmgi76gYigh89OE+1hdy/Dk knylR24nvOy2Vmq5WF/l7QoSWWuYzEoifGWo+0juxTK3OAe94cSKeMMVU3cs AKTHOA3Odsf8NBuT3hMOWalc7WOzQg6smJYmbIs8ZgtBITefzk7+/qL7l21N BVeMpdn5qxFqp5e0VJZzcWUeT3retBCHuy/+scQnZ9+mcY+D1quE7cyV+DPJ G4BKd8Qa4UTB76tJph+GR7osxDH3xE8vC29lISSRSQb7DsqeuivBvBVjc8br sGSfhLUvuFhUiWRmNX6tr5X+aY8OBO7j06tkZi27Bp9z2vI/NNFkP9U/5Bn1 +r/ye0c/HmRsgDDb3+WMz+b5NrWTrMXmQjkwS1auOJeWVI+2iFElDUwNyUpu RYcb2V9SJSm9EDGxvDU2cSc68e9Djv1E8zv+2ec4jJrXxEDNlsuZ1fn4j3cX MJ8mAZ1Apu/5qUWYMLeccl+8cu3yh7llk96eRO62aHhCfo/xF7Njv0BMHmdZ bok0G5PyE0DkgmaLVQu6FcCwNGGsVsBrIYULXJ8PX+y21XN/0ALm14e+fiBu CSMXgqebyqYuFL7RfKTb/TvfzXA0FotFwzd9n/bZaVeh+WjvWClBq787QhNZ 65qPHTUzYvvkx75vItPZm5oIUGtCg7ntg8AMI7+3UhPn6D6cB5wjX0ej313p P0pgSH6QZN5KQWaW7lyi5kvW21wfXZuYik1PBr2DHdSiUW/rvhieF9D5UuA3 pR/e8g7Ycz5V+usm7y9v8rQYNfLpurvNyl6Z+Rmk2hWvifWCipWs3L83OwML pf+SfJ4I/ranxWq2//o6Z6HLJHyO3FXKPmQJQw3Jio5sE/w8s4vMrStDvZ3N 5obsAWnwUmh2Fc8GS/ei4V6Mvt1BgDHIjf0ljg58dW8150xAKwscYzNiDqFo +JhVmiEJzsQrjGGFEmk29G6BdQisEqAeFRFNk+QuTfgSWfFaCPOR6fuBgaO8 4wcfUWFc5i2ockpivKBjw3QUl/oKS3NHV6/7M384vpCWHlxT945Qv/f+3tCT zNrDaPALOjJNuRnp9ggjvJD09lqCMilH9m+ooMyXtxcw/JYSzVs5qPDTVU// W/amesrt6ex1X7wevpsSMcW9CltLMV9fc/6NsLzpCf2j8g9Kph8EB48RxZUZ eTcZNJxYoRfJupuO/sZWeB7dwSXkEov1C3VO799VcUerIln5WRmVJL2yvEz6 T3KXL727gwAjQC6Gzh4s4U1FOmaIq4NAA0NyM0k4va0wTpRjKmi4r7cxCgzR 0JgKhQMMGKsVcFoIdWWZ1Pcex37eT1mOpp7AvCApybQw0qA/vPp3hPi9NS9Y 0MS8tSLzLH7ljC0/Gtbi/GxK2Mh1pvgrX4iKJAAzSMzvxAFPm9X1hiqFZJSS rKxaJMQRQWaSgZ5ccE1IBSUmNJOsGhUL8KrkFB8IC+wJtlPBsxaTxeGd4YaR loLdBUUnpg4CjTCyz7YSro7TfuoXY7OYnC5olx7W+63J1BiRoKtf43B0S5VN HV+1Ak4LyX7a6u3hlgb+L0l5O+2vcaeQ5/6b3kCyatiUcUjiHbImCA3uCN1f NC9Y0MS8NYHOJ8+vsoTF9eWMiPmYzK95eDDyjJ8+qogcEohYbSZSspILfgfr 78s5GZCRu5ZuX4L5zO3V+JWefM7bYFBkUo0cNJOs2hxfkE7gBZRvfmtUXsyF Lnv0wuXQnPahrXKQKxMDVoJo+3yGF+Vi5/N3C3e8oK+mvJcFSU6gwZd0VLLq il7GjNFwCW0bLuKnkQHOagV8FpLdgh74uw4gq3Nb34g/HJ9fKkbkdzfXHidi oSvnXDak9rp6nwTGIalafWsBLe6IHo6Qe8l00C5DffPWApZeNRFtn8XFznMn 5/2d5rre0DI3g5HQdCwwZ6gBZsnKk37l/r4wJNTaNvTVVGw6Gg5czr0ylpbe SxjzkAWhjmTlf4s2kpXuz8y5DsP131aNUr+ahmgYoqnG1pzvBGE6NBDmh/05 Jid840D7bDS0+/4hfVlApzdSlLxOKZ+7/fBqZ0nBqnH3cuGg88TxlQarVK2A z0JepWfGHPmYamvv5XDFQqed9PzEiDOvBokTvrkKEVjmuKRWC8EimtwRWryj h/oIZcxbV7D1qjAnOR96WFjD22Ojnex1TNvsJvTno6ksoMVJVrQIlKHCaNrd zVTsxui7TJI50WQ/0T3g8Qajc6sa7Mh7S7JyOubR65Mx3EFaQP40fvY1AWUL qkC8dnb8J53+UExL0tZLs/y2/By5KCI8hxYCyEr8pns8Ik/y4CcxLJnb/HnH RbSdESkcZDQAtu1JtWoFXBZCbs583sY0PW35dSAhrPVBUSpUlKPauFi1uqP1 mKc194PowhOihHnrio05/2lkDTp4NiTxFEgrFGtTEyctoIKKUwFeLVjlEktx knV7wd8l4sP1gzqSFZnEUUADycrrmGfU/tuAjthdj3xgLeNX5LSnEFNEj243 cnJXnsc8RxGDbzzue4BjKy2bEkBxeGzWGC8VOoodV0GoatUKmCwkf/Tgtw+t QmY+0EN7gawfRErLM41crFrdEZLIqvHAqRxKmLd+2EnHP2tDm6DICVuUyl3U OhuZ33GrYiM7cZKVN+AJHb6mZ/ZULiu3d66pRs+egJrQ4ZuSg11eZZ4GUYuj M/xFfaygxaci65ODVuy9rYperFIYqJ4Rja1L66TNR7VqBSwWsrMSfo9y/Frf CS6KbutKPh0/S1lXmVWUfBoeOKS6i1WzO0ISWXWSGKOEeesGbuGnvGFhpSrE Nc9G5pXeVJQroiQr2reEvlnD+O40k6wavEFogW0efP23gb3J1rRnP1H6PE5n 9RdtTVwvNTT3XrIg4fS2wjQyg7VZNDR3tLMzrpQ5BtLVNMTB30zhjLeyBvNh OkSrVq2Aw0J2H/iON8pIb84ZWMnwAZ2RQlgHJ1Vtz6vdHRX30irZsKqhhHnr hPwQ2DzEcd+cnIWhhETRQTYyt8FRRRUtSrLy5tJqf7MC0Uyy7u8N/Yz9eypT IqPWKPkbgG5J/zDSbv/lzUf89ZKdRCr2zI5RkBQQ5eYtQ2H8E3NXjs+/v/bP rMWvrjf4FPveWMhDwFv4rNCerk61gnwLyc2flRVRZUZUlEjdpDNSiDe8CTU9 7lreEbn6lzHXobqmzsHr9/Qx3bBmJSvToQVZdOS6tUu4s3TRrR2duktTIVdB hGTlpRzo4maFoYpkLVV9pcHU4xKXIT/p7uU973Er9+YQqA3LmSc31YWh/jWj uOIBKXAGpIpthYoKEmlVALntG+u6tLMaOVeoLaLrcxe4Za34m5aTm3//wpGT xXglK6ts1mh7unwLYTZEmQ4WJlm61RNjuR7JxUD2jKHSDMcitXdHcjC0eVeA Pw9IZr0nv3xeL9lNjNUJulMRkpXTi0D9hh4yUEOy8rOItSmoLCFZ5d9sifxY gTQc9d4HyVqzvPzbyKGiZYiPW8nvqbgWHWpG7E3+IkxmFoN9BecGcez9ySck Zw6sEjlRrDwEzO0lcbY2VRv5FkKl3RKto3FZBxnmZMRJ9GLOa+pHG2vvjmRh ZPMuz/a9sVa2oJBbJ8VzZurnh2bSp5EFtmy0TrBk5crg0oUYekUNyYrWLeYf khatpRSRrK8y6eUnqRzJRDwWi/0lEvr95UEHvwEQ0dx3MTARzf7J7Hwq9Syd McxxHRAJuRE9jzS3khC3ki1IOIVX8hfhzRlv0agb20ZjafLVDrf5NvbBHEiD TcmPojxG3tN10yienhnEmiZJ215+CKYBqZU7MrJ5l4MXPJJfJ0UmAy72dn1o NP5SJz80mUled6EKs9zgY6GSdT0+gnY9rLO5/7Sqk3sVghqSld8NVZuCSv69 Ng5FlcqSL9FQq30krmohAqAdzyKDiJSTkt6JChIJWTS80IbMtG1yeWrYXnCw WvuCi9SBi3caxTynleljc7Cjo/Aw8WqznZXQ24W31Gh7ukwLwQg9mb3Y55yp YLJ2BZIG2gnZ1MYdGdq8y8H3iMo+Jq+H+1lrJa5OgLjgdBRsaPXcKVHDKUiy 8ua/lBPAukUFycoXbxo5okukWCs3QZg/rVjzkdOAWpAroT5kDZRUpy+zuIY7 OYXlMhINq2V3cSQi3zuBNZGVXL/jaTXb3H+c+apQRWKI8it1wNJTAgt0z3Pi THCJtgqm6K9sa1NDUBt3ZGjzLgd9mmAtbTKPybxEVkUKSOXBmT5MtHumeVuK EMnKipRlP8c+PLVsqFOYGpKVLxQ1y2DnHqYUlKy8gKlx+p4BcuG0Y5UWkUdX ZvGChGvqcgZ67qxOfdxSiCTZ3gsV2rNzvwWrkdOtCepaP51e30J2XpCsBeRZ CE52loJniJynV6sJrXipjTsytHmXga9Y5B6T2RExvf7Q5PqPlzr3Fy/T+vaN JDtsVlWycobbmg64vHf10dpCDIpLVn5xH64R5+Lhts9VbkwPZ7K8SYEcP0Cv cNqxShyQis42EitI+AWw0lvNp2e+dFnytmw55Z0pjr/ciY8cYH0Lxo6stE6u Y5wJGVUkq+HGA8mxEMzQ28jhoejznADQS2NS6dTEHRnavMvAa5gpM7uPExFT ffKFCMj0Xa8LWXGzq3H8WXE1rChZyfT9wMDRoiYhDvf4pOnVnXTyh9CNQMDv HfFkOdff7XI6OztOXplVJ/tXacnKK+4j2j6f2dRK2SODaRiUalzADcvizvFT hxdzocsevXA5NCeqSZRmyGvHWgAVJGKbGPOGU0tUemQmNT5gyzuMiY7R+Bry 6vLLKrGN5CZX/+S2mfMpW8pJVvRBGW5Pl2MhmKFDadQDZCYUG6oTVGlq4o4M bd5l4Aoza3dwUcbHcYat6NTFWoDcfBT2vFkM7ROtfb47qU1aw5STrORG6s7V AXsxm4Kw/bN3+mepyygvMYNBtbxHZSUrE1JB0c7FylwPq47bxG++hwdmIhIK /maVylOqna6GGCSwxWnHKrlhoAwPCfnI72hkPzwJSi+rV79zt+SdtcQx98RP 7I/4OdS7n/UlxXIVeZBLEXcLcrZVTrKiqo9xqRkIPfnQqO0yew0PaQFwoC/0 xHCrHZdauCNDm3cZuMLs6EhchiuD41IzRi3S9urMTY/rUEFhEDbXOW8wOnmR XZZ2aDD4Yyx05Zyz+Jcm89HesT8m1uQ4FshM+hndH2kufn0g36NbxbxHRSVr 5qHfhQpywtITSGrb2WnjB89B1gTL1rF72MMANZLISv40fva1spPkVYZ47ez4 TwbYNTjtWDv9JWqMdx9+dfLo676/VzQJtOSfECcG+S+1+GgCXfpUQa+WOJcR 3cElUd9R5uqfhgashGNsphDVUk6yoqpbZjdy9ZFhIdihhARx4Lc+ryHLlEpR C3ck37zJzNrDaPALT393R7PFZG529A57v44vFTfxnYzKGzpXsspZEOilpvhR TT2BeQGftZkMDbWZG2yuz6dXq7xz5Obj2Ld/uPHt3SXsT4ncSMW+8Q51t5iF bNH1TR39I/5JeWKVewVb0eHG3OermPeooGTl2AMzK0fzTYE7m1hqqmEFFOjC ARgDjhu/dFec3YT3iIBTDJop2jAYEeFKKDEfWdTCTmZWfywmTVm6RqcW+f+Y V1aJ51xGPh0/a7U6vDPISqGYZEWT2wvl4cZBuoVgh56oUt/cfEj3oVWh1MAd yTTvzM+xq+/aKUVktfdd8E9MxaYng5f67Vm11nN1Jr2dnv09FW5mRooocwcl 4LTikZNxx/JfEZYu/5yAprtMoghNVcf1SnSoldkI5GUvVLyezZVHM38OXfeO DDrZyYhme+/wiPf3ocjfHiwrkYuJ6Bw18x6VkqxkJhnosaDa8GBfMKmHwC5v PPHBsyGsaUr82RxajPoCtEBIO1bmTbePxKvVyywFuwt2KuqtLCFZhfftZOcD sOutEPgj7XAsy5lksO9gXefVh6y9QzHJiq5+GrspJSHZQrBTfJICDNsQ1MAd STfv7CJwe9RJn4e4J9ad9MP/7LXW29777IIj9+mqHpe4jfUkLwjsGSVC/Wlo q9tqjutiQ5VGh/+R4qpexMBWHKBVxmrmPSojWVlRRfonY2bl6ANOxnVWtH4U Xce1XfHTd7UZ9QVoALvpU11PsETe9u5975F6QdNVKCdafk0VlchbQrJaXIK6 oO9uJscLepVoeT84V6JlNU2JEYeyV8jNZKDXUtfle8hR14pJVkTyYcpqUBfJ FoKdwpOsme7TNXBHEs0bObSWPrHurITfQ+KnchroSYDTg+hN37yEhgHk5szn bcVPaf5VWOAWjcxFahyOblX4R2jbFnkJtwJRWbIWR9Wrm/eIX7KSmaU7l9BW DKaGFvd3KV0NJ83MB3qaWFc4fBvLzDIyHRstzkNn4MyqBmoVTmupfT3Bxzyb yo0vF5ZBjaaiiZFqJSRrmaxaFlupqc+cucgIYXF546sVrpFXeyVXTDJxmaYu /wPetyolWZHAujGzzSVbCHZyJldDa53x70iaeZNL37+fO7SWjz+yMvaVKWGu cIWLAWQWlJTGemyXmsVxKS7Un4bMRao2nAVp16BOmFVVyYpudrJHgYsCs2Td SScCAy2of9XaNjyhL71Kg7yYDBja6nLbpmn0RgMawWrcXTorgHwaHjgkuPUf 6skUs/4Uz78oLe7IUlkDz/w87f1nW87tsN/h+b7KO8v4ilnIk0zUKdJWpjxT IcnKtItnwNhRVk2kWgh2ctul4UrYymP4O5Jk3sUpS4T17Hj55j7Po0P5DCgN +jcWckQpxM4WZG/T4vxpSAJ/Nd8ymsDg8C+ooIBUlazIyqNy3iN/d5P6eMn0 w/DF0zY0S5Ro7fPf000+AAd+tu0B5+htqeq6mPxDtAx9N+45VHyjIJF1j8CW rCXiiUw0Sng1B3qSFZMNVUJP0pQM81GVp9fdbflAn6VrNJKsnqy/FR1qZH+4 rPIleoh22XQyhSQrsu0SPVq6KKUj1UJwk/N8GDeGzsP4dyTBvJFZ9sQb3kT5 VQrVY1r0b6SLNAtJDxUvlfMP03d9PYfz/1Js/BdNZK1WHVBMElMpgsPzPirZ +A4xAHXzHnfWIx+y+5RWzdDgk0kvxL/1DthZzRYIc9sHgZlnmLYBhVptsCtN 6Mu2ODzjiRVRl001srj+fht1+4TF+dlUagvNTJY32x0wEKyKpBK/++bdsbZG ca3/kBNlfX9YsLM+HR+xm0pibu/3jscSSaqv3kIiNvEfnp4j+YWuobnPF1sS lhhWIvfgyHCUmlSVTsa+9o56PFejSwJfI3L74dXOugrlmcpIVrSe2rjKRKKF 4IXZyg0cQ+dh/DsSb95oYXKV0QnFsn2tMmoyS5PDhSnSdY5/u5euehW7m8kJ j6OQSCPBQ4UkslbxRJFbMU/+m9TpF8RrhWQirAMTovzPIigKciXfEXJz7Qnd Ajb1eH72r7HoRGCs316iqZe5ze2fjM3OpyowPxubjob/yzd2/p0OG/cjzO0D V/MTGeSjbKsNMrN67yt0kBnF/o7BL7+NL6Sr2DOt1a+cc9roH4843D02uZC7 60IRlsqp6YCWIP1PePohN99ZeJ4/84nIviNiuDC5nfC2i+moSzSf9d4W4Fwt UCpd1mS2d3fbGQFMtPx2Oi1sBdic8TqsFaOQykjW4qpL7PdMG24YZw6JFoKX 9ZinVaUaE5Uw/h2JNm9U85TMwy+CNB7Xrn8j+XzGeyrv6iUszt9FFl6Uu2Zy 8/GdnIqgsbzpCT8S3fgJSWSt5lpE4uZ4u+cVVRzjdbgbi02Fb/pG+tpKjf2p tzk/vHx9PDIdYwu6Z9W0TZWLQAS5knmPig8zIswtpz1fTc1ha1erVqsN8sXC 7S/67dwxZETT8TPu3/luhqOxv87OP85ZyHQkdOOa19PvbC602rDa+71hjm+W XJ4athMimgsBNQDSOKXYEyB7LIpf62slpORLo8mKYmpjyZVpjyDRSjS9OXR9 WvQBs6RkzX+kxfHpZErgpdJPzDoQKtENrIASkhVdddUtH8CMVAvBSK4YR9P6 L7wY/o7Em/fG1NC+Qqj9pD9ZYco0MqlZ20Hk5Prc18NtBSFKHHJ97Bu/fW8+ 9WQ5vU0PaZqfuf3N1ZGziGvOah/4d6GxJM63FRNZq7oWkbpIvBEcPCpOpmHz ElnJjdTd73yegVP2JsJU32R/a2Dk+qTIaLViN8she3nO3sFPvYFw7MES1n61 qrfayKwkJq8hcdLqEE2O/tHA1Nxq6Z8m8zR+a3pBiSa+gG7JeVNNuRPutSsX 3aeoASVS87rpuQMMVVwf/CsJD79e3pgJs/3s6I2YxGhI6QovJvHg9oLQz2SS e6t6npWQrEg9777zUczDRFRFuoXgvQCDDFQWgvHvSKx5s2egVFFZy+H+JmF/ qQK7m6k7Vwfaq+/ahK3jPZ5nSQRoImu1IQLFxAncERw9SFZWIutXyafTvr5W gnq8Y4EwHQQf62um0iQP93j/gn/sl17RrtXG7ubyP2LhgPeCu9f1ejM7cYJo sp9w9Q5e8F4P3Y5jluhArZA9+4S9g86W3NJiPtI9dEX6UonUUolOVqRKq26M DjiLZkzlgX9w8er/iybkWW8uiIBuCK5zV26JGghIt5ox29x/qtZfTgHJWnyq xL6hKWMHQuRYCAbyLhctynCUwfh3JNq8EYlbVWUhk5obh6L6yKjJCte7twLe XLVLEUtzR3e/h/aoyZ0AhSSyVvMtI4kT+3tDP8v6Wh2CVJbZTvWdsjVYHJ4Q q4P3y6XJ39CZxmIaiBkaY7TaAAAV0K6dSGWoYND3wUAgELwVS6TEJ0cxTXj2 d/Sf91Tho0FnYTrHQefgR8h/NRaal9KDCInxHfXEKk9d1D+aWki+1FTjibEY Mf4diTfvxWB3IWJZpSMW4tWvRT1WDiSRtdpZJnvE7skf5zXK1VEQNOeEekta BoNz/No3Mhnooi2KOD4Sr/kmn4ZptQEAKkAm/Z2EoN3EULB7gklEWu9BROO1 XpoVMFhc52hoIfmSw9qpMzX+HYk3b1SPVVFZta3HyoKcAohqw2+RxAnNKiKV A02eJyxd/rnSBra94O9i/khs41zDYahWGwCgPOSTUN+BPfL6l2Ih4Czkb+FI DNi+N9bKRLbMnf6aOOlqZiGFxm7VsvsMg/HvSIJ5oxmSDe9Hylbev2LpMZZ0 IzNL9+/MCm1sZzTQRNZqp0JkjDLbUb+1PPvjrKTKLx2B+glt5yKrZWVX0aZq PAJutFYbAKA4hZ5pJsGTs2oJvJIVeZiieuTqGq0sZC061Ey7W7B28tESo9+R JPNGVFaViirEH8tOnKZSPYnu4JLMy9cpSCJrNd8y4o+1dgcXi/8F9egaDdzp lwFJZD008rcKfSWQY5Cmg/mUxoitNgBAaQqpQabGdu/sHtOsWCUrMzOX3nJb x+7VzpPUxEIKAkb7ynFMGP2OJJo38opVnNhOLvgdub9jT1urDT1WDjRxospZ BvXHsqb90lLW8NPbqcONID8hOliHLd1rCuO22gAARUGcJwc/iRm5KZN4cEpW cjGQS5S3nA2makexamIhBYeSbirH5WL0O5Jq3kjHgAqSlVyLj3bkPUqsOQt0 TZZ9JF6bzjTEcVqtwpEZccjASrGgc4AN3k9PjJ8Q+UtFR8dqjNFbbQCAYhT9 J9auQNLQC59IMErW5zHPUWbNqEFntdoWUnAo1UzluNHvSLJ5ky/jo4zpmPZ7 YqUntm+lJs4VZqSynY0vk/6TRHF4So2BOk6zdPkXyjxazgAXh3+h8DzIx8Ge /Ybvp4eOSKhS8I54FI36NgkBWm0AQDnITPK6q05VN5oeINcn3YVkIdNr7sgz qXeOPsCPouu1l0qksoXkE/yqZHAZCEPfkTzzJheCpxmNUdJZyujVxmNOh43v QqQKvqw1eAbMgSayZjnQFyo1Gp4ZIEu0OE+8lvtDxF+9O+c7Thi/n57wgndW DwojDz6uDLTaAIBKFPq/1aKTsMizmO9Tpu/qx4O/bGvKp0Tl3DtNbWcGP871 Zf2P2JrgrbnohGxxR5ZqVPGraCFGT/vkY+g7kmveZGYx2Ef16uF2LiI3k5Gx 0zbigOvSnaWNWW97I3vb3UwGei21U8nIgyVL6BWo5dwEeyA1mX4YHumyEMfc Ez+9LORmFNzOmWSw72CV9kdGACl4r+JRJFMBV8HNoKt24niBVhsAUJnthK+T 7jFi6Q0kpXTRNwJMJgBhbn7dWYYT1DBrk5g8gZ316Ee0r6ROwLwtI6OWheQT /HCPpNQOI98RFvPeSScCA9TQScLiGLo2MRWLTgQuf+i01RO202ORJD0+itxM XHVZaGXrHBmP/jl0+WxzHSXVanXPRRNZ65qPHaUnCRK2kx/7volMx/KPqMHc 9kFg5hn9EAoZFAecI19Ho99d6T9KWE775wyeFJAb/sKo9p6KCy9ae2UiXIHK A7kNDLTaAIAqkJlkoIfeMioOhgNY0MNhqZgW0frpdA2mBKCoYyGFXal5KLqm 0Heoi4HvCKN5k5uPY197h3o7qSnP1HznYe/XP6Y20c2YzKzOhi65T2WPjVTI 47wvulirepWdyLq/N/Qks/YwGvwiPxk2e6zu6B4Y8U8m1ljj/7bXEreuDPU6 sn9jbnEOfnl7oZIDziC8iI8cLeUn5IOmUtRK7+vSQKsNAKhKZinspjPKmnoC 87W7WeCjUBZR5/T+vTaLmtmoYCH5UtnaifoZ9o72nHmrCTIUvoprseZJxzzN QuQZq1VpDWeMUECrDQAQAPn83qUT1Nnf0u1LgLVXpqDfmgdCC3tly1HcQpja YcI6OGnsRpNFDHpHe9K8VWP3vvdIPsRtxAxnnBQlq9kTK29pu+uRD/JV9LVd c/EKWm0AgFAyP024j1HR35aPp8pPzdvzkNtz/i4qSn7A5b2b3lMLg7IWQnd3 IY6PxA2l7yphxDvaw+atCkgZUZVhT3uATCrQXV2yFmea7IUsLGi1AQCCySyE BpqpOgjXlzPpWl8ZpEBmUt+5qXKSvbqhK2ghmeX4tzduJWroqRrujva8eSsO WkZkvAxn3JBbMQ/TlbV8J3xkoAnR7ple2QNWCa02AEAwOU8aqNYSkOn4JYdl r2/oYCE1Cpi38qzHPK05xWq4DGclKCSplpkjQKZjo7nhXwdcvtla7WjDA1pt AIBgMotTo10WU0OL5w5ktRbZfRQ4ecBEHB0I3N/rGzpYSO0B5q0CSCJrXU8Q 2rNkNWvC+wbd5KvUrI1cTMe0N49R0GoDAASztRT/443I/J451QqAXIp/883t +fU9tnCWAyyktgDzVh4kkbW2OzWJYXPGS/n2CWtfcLHY1ysrxuLX+lppNQvH KAAAAAAAAPUojjYiTvjmjDZcQinIzNKdS64DJlO9zfURFQSfngx6BzuokHe9 rftiGI5RAAAAAAAAKkKu/mXMdaiuqXPw+j1wG7LIrCTCVz39b9mb6k1Ek93Z 6754PXw3tQlPCQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQCT/H+jHsdA= "], {{0, 113}, {913, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->Automatic, ImageSizeRaw->{913, 113}, PlotRange->{{0, 913}, {0, 113}}]], "Input",ExpressionUUID->"471ffb2d-5448-4e2c-9940-d61b0a5d5e2b"]], \ "Subsection", CellChangeTimes->{ 3.7467908610581846`*^9, {3.7468324242091866`*^9, 3.746832424517336*^9}, { 3.746843052499525*^9, 3.7468430528932066`*^9}},ExpressionUUID->"348403ec-fb06-4b00-9846-\ a95c4a2aada9"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "2", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{"Gt", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "=", " ", RowBox[{ RowBox[{"I", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"U", "[", "4", "]"}], "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "//", "Simplify"}]}], " ", ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.440895870234375*^9, 3.440895891640625*^9}, { 3.440896510390625*^9, 3.44089655715625*^9}, {3.442671255203125*^9, 3.44267125603125*^9}, {3.44267137046875*^9, 3.4426713811875*^9}, 3.44267142365625*^9, {3.442712951171875*^9, 3.442712951859375*^9}, { 3.44296369284375*^9, 3.442963696734375*^9}, 3.44296768475*^9, { 3.443374517453125*^9, 3.44337452140625*^9}, 3.443397833125*^9, { 3.45504301590625*^9, 3.455043130828125*^9}, {3.4550527984375*^9, 3.455052814484375*^9}, {3.5067782137090287`*^9, 3.506778214466072*^9}, { 3.506779064525693*^9, 3.506779068082896*^9}, {3.506779121543954*^9, 3.506779124996152*^9}, {3.511641116247309*^9, 3.511641117295369*^9}, { 3.511641238366294*^9, 3.5116412632227154`*^9}, {3.519945652604292*^9, 3.519945656025487*^9}, 3.5206470576621337`*^9, {3.536753629485641*^9, 3.5367536355419874`*^9}, {3.5367542796588287`*^9, 3.536754394482396*^9}, { 3.5451480077289762`*^9, 3.5451480136813164`*^9}, {3.5451480836983213`*^9, 3.5451481475869756`*^9}, {3.5451482301356974`*^9, 3.545148230279705*^9}, { 3.54514835065559*^9, 3.545148351119617*^9}, {3.5517190084457397`*^9, 3.5517190462919044`*^9}, {3.5517253476257124`*^9, 3.551725350072852*^9}, { 3.552315878168127*^9, 3.552315880549264*^9}, {3.5594364063879995`*^9, 3.559436470154647*^9}, 3.559498758930711*^9, {3.7095734439172153`*^9, 3.7095734562269197`*^9}, {3.7095736865240917`*^9, 3.7095736900622945`*^9}, {3.710786317142681*^9, 3.7107863175327034`*^9}, { 3.71171717351058*^9, 3.711717180665989*^9}, {3.711717560179696*^9, 3.7117175669990864`*^9}, {3.7118545714168224`*^9, 3.711854584457568*^9}, { 3.7119033420472937`*^9, 3.7119033423323107`*^9}, 3.7119033814345465`*^9, 3.7120954622856226`*^9, {3.712095557947094*^9, 3.7120955854366665`*^9}, { 3.737162821795579*^9, 3.737162839969626*^9}, {3.73780794558059*^9, 3.7378079860629053`*^9}, 3.7379793854587083`*^9, {3.7385815933232975`*^9, 3.7385816487654686`*^9}, {3.738581823928488*^9, 3.7385818265056353`*^9}, { 3.746791040438759*^9, 3.746791071688319*^9}, {3.746791171144439*^9, 3.746791205624802*^9}, {3.746791269817828*^9, 3.746791296817684*^9}, { 3.7467913572329483`*^9, 3.7467913929364586`*^9}, {3.7467914248141994`*^9, 3.7467915012213964`*^9}, {3.7467915468503184`*^9, 3.7467916019331903`*^9}, 3.746807033746698*^9, {3.746833158416533*^9, 3.7468331856485023`*^9}, 3.7468431539447613`*^9, 3.746843201022601*^9, {3.746843415271546*^9, 3.746843436402978*^9}, {3.746844235753723*^9, 3.746844237161106*^9}}, CellLabel-> "In[116]:=",ExpressionUUID->"a89b7fda-4186-4cd0-98ec-27610bdfb5ee"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "2", "]"}], "[", "1", "]"}], "[", "2", "]"}], "[", RowBox[{"Gt", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.7467913000660734`*^9, 3.74679130814038*^9}, { 3.746791532816335*^9, 3.746791533334661*^9}, {3.746791579057716*^9, 3.746791587805388*^9}, 3.746807034420087*^9, 3.746843154487341*^9, 3.746843454540537*^9}, CellLabel-> "In[117]:=",ExpressionUUID->"de03d1bd-40b8-4122-8efe-77d926e1a1bb"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"U", "[", "4", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ RowBox[{ RowBox[{"U", "[", "4", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ RowBox[{ RowBox[{"U", "[", "4", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ RowBox[{ RowBox[{"U", "[", "4", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ RowBox[{ RowBox[{"U", "[", "4", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ RowBox[{ RowBox[{"U", "[", "4", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{ RowBox[{ RowBox[{"U", "[", "4", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{ RowBox[{ RowBox[{"U", "[", "4", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]], "Output", CellChangeTimes->{3.7604679845885324`*^9, 3.7604682424545636`*^9, 3.760470340970526*^9}, CellLabel-> "Out[117]=",ExpressionUUID->"192c52e6-3bb4-4f9a-a008-27f8a9f0f20f"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnW9sE2eex6O7N/diXlxe5kWknCzr/AIJocjSgaKV8yIIZClBrSIrpYoc VM6JdlmH7ZFsV42pSsKq66qQaIvTO6wtFrs13R2xi+nF3cbQmCrmGnfXiFjU LAlyIAYCSYhM5BA7k4tn/OeZ8b/589gzdn4f6U53VRj7Gc/8vs/z+/tvx8xv /Oc/1dXVvfsvO//rjZ7B1l/8oue9N/915//p/Pm7faafH3/n8M//67jp+C/+ 49g/7/xH887//PvO3yf/720AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAqDriK/P+b5wXPjjR3kzUMah1hhOW C19OBZ/FKNHX3Via+e+ejrNTS3GMXxYAAACoVuLPAuTHva3quoI0aI1W0v9Y sPRQL4POU7odDSP0I9PPxQsXAAAAUAtsrsySlnZNYblB0egHPvdFNvhdmYqv BL7ob0semtQ9Y9OLcM4BAADY1WSOIQyEtnPg/OUJ74z/bnD2bzPery6PDnQ2 N3CVR33UOnFvNV701EKtzXsumLT0v1Uft8++hDMOAADAroZ6OWs/nnKoqToG 7JPB53mcZ1TssZ88a1ATbOFp0BrPT4SW8xxeqPWIn7QaDzD/gGj9FRkCxQEA ANjdxB9NWg4TjMds8Pf+peIeMyq+NONgHGUc6en+8CI56fMHgsGA3zdJ2n9j 1mc8dYSq/SMPX18cAAAAUKNkFEd91Or+R5TnOYRam3OfN2pzvG15IQ4Yz389 F02UdyEAAACAwtl6SB7bRx9Dfv11+JXgZLTogxv2Qb0q59DDSjawe/J63gAA AIBdRyxMvtsxSIYkHEOSgZ7rv7MOvKPPpBmodAbzyEXy5p3IOtYIzlYscueG 6ysvqBgAALzAZDTiK3O+r6+6vw/vKo/N7lx1lsSK71w7c6oi3rTNvpL7+wAA oHAwGY1s1Luu/i1neAvrd1Qsu3PVKFv3HUea0l47VTe5IPcXAgBA2eAxGtS6 7+yeTMSg/l338m7Y9u/OVbNJ3LW11KfvQB+5uCn3FwIAQNngMRqJZfe76asQ mpMTz3ZF1cfuXDWHjYjnY0OzqrnTctn/FGI6AACUApPRiP1IDnaoCK1h+M9S wt9Vxu5cNQAAAAAAAAAAAAAAAAAAAAAAAAAAQCWg4pHvbKaWepNrSe6vohQS gdF9e9otVyFCDQAAgJVEdPZzo5qoIw6fnnqyG9NO8xMNOUxq6AMMKAsqvhry 2E8f1zcTRHP7ibOXbjzg248UFzCzG5BEVnEsk4/gx2aRHqdCtJ6ZxKY7WIzG 5mpoyjn6HnMRfXf/8KWb87V/Itudq0ZJREPkYGuT2jD8xeT0zLcXezU7Vr+x zXp7rTK6AzO7AamkFaeuuZecB8XJA/V8ekRPYNMdHEYjvjht69MSGv3ABdIz PeO9au3eV4dZGZVHuVdNxVafRLDxPFqOt4launm6VdNq+WskNZP0pW+4pVJd 12BmNyAdKr7o6qeNXuvIrRXYWxQiPk/2Niff7LZzM2uS9tUYjAbTbUz9zvhM ppKUeh0YO0BfRd13LYLrd6QS8YTka2G5yHZFVh33W1X8DKoA1LrOHvPQOTt5 M7CwJtWWUovuk/vruy4/2MysNuq36ugPajhov1fGznMwsxvAAbV229rWuPNT 1xt+96Oww3A8uhC4QdqtA6ZOnTr7HA79MVg2Xwc9EfgTc9KHfGg0UOlWutTK txZtfdK+9ZLh4i9RsatINhrMsUttcoSirP8eIbtTv0IvGcG0T8RjhE0Yvk9l Vl0W0UFpaO781fj1HyIxceJArfs/3k+8ZQ+tI//todPQxNyCfaOBsr17MLMb wAFtAJM/trrPObde+u8Z4sshz6Uz3QcKjKciNENTa/i/6+ZK4A/9usb0h+Cz qwJIrM2cY87/BvtsTMwVpBuNxIr3jDafx5uad3Sk7o7O6o/m/9dCUYroVGrV Wffa4/ng35JzpS8OdXJN6A6qdotzKhBaKOZcmw/6Z3yevzhsZ091ajmXILTv nC+5/8/z9R67evfU97rQ/nLUM1dvqvfcXrP7qdQ7kBeY2Q3gIRYmzfTWRd3l CPFqMblzCr5hH9CX8uiqrH7MgrARmTzTijzERJczLMt+iFr2jRykv0GHdWZZ 8FeQbjTWv7fub9Ravs1xhFKvvKfTktxpD4mSxDxfmBXjWAjd8funPdcco/3t +bSItipXkg4Xf3AeMb8voqIPhgwVXjWLxJr3wz2chTaN+DYEuwW+5g4SbdCa xr0LAmaS0o9K84DnOXrlZy5z6vGpN7uelWEnBjO7ATxQm3POHnoLR3TYQ5sl n6RUCU+R4btZsIvO+vTwHvSTVV3OebnO4Gknm5jgjmSjsblI9tXnb0O9HrSl t/yNp72CpysLhFoNjHWyHwZC0+9alCgu+ZF71cvu9C+UxuBcEPNRVHz13oT1 KCvrS0DQnO6nzZndQM07u1L6z9nM4AFmdgO4SIfF6+oOWf0vS/11Jr2tjnbP fvTFpJ/xLCzM/nmotZH7HGEWna01z3usDRNxzBl+jfEDBELbQNrMtY3+wNsp uY3DaCyQ3Zr91u/zfCj1D0dHY1q73MsCvpVIchxv5ZsdJveqc32M3WRE/OU2 ItOfdqMuO+LwkOs+nxMEtRq65V9Aj3NbIfvB1FX29Loel0F0q2tmN6BY4s/c g7SPjFfOD7U00c+cibTHrNfurrB2szmKUCd6H1jo45MuKfTyZdnRCSJ2x9be RN8/dnSmFJKNxlZs9flq3hh0djfe2OH4RwVuD7XgNLB+9ZZhX8ndizjkXjVm 0dlO58wjuzWR9XHRwKg+dYWGU7txeh1QLSQ95My7yueYs2Mqg1+TV1037uRN uUn2iWG9kPUttrsYn34k5JEybkPeF/guL47MYaeuvodcFG/scBkNNLRRqby+ TNpYCnzZC3yp1Krxi84223uQ0h3BnUCyL3Jdw4CnDNk7AIAFXAYzRc4buX/I i9HPgYQ8GPac9SnhRJ593w+O+IRnFHAvItFoIKGNhvc8a2Ws1cgiv+hUatVl EZ3tVEoeellBSaSsOd2cQCEAKImsocNyZIhHyF5WmBDv68/1rdUfGP27jOEc hI05x9up4oIjjjkxK8ZnNJDQBmEksVWGFkd20anYqsslOslkyBlrB/r6EO2f zfItl3vhHWpJ/TOF7MQAIA+JZfepVAhm/8d+DA/qc89AM0tzsB7zqbCziyVp +tFAhbfTBaEWyZ7UMYWXlzIHfEYjG9oQUpO+HrD3GbsRjOYPLjhv8e1jJlp0 kvWAf7ZZzKzP7jb+1DErbDshbtUiKJ/oIMmQaXjXL6x5BlJvMrFneFpIQgsA VJCt+44jTTjfU24ys27Ytyr9qmmyp4kUB8YCrxWzo0NOYQ39bsEuNmxGAw1t tFn9vDV/67H3t7/s1nHbNvLtYyZOdKgn3rNvcmt8ki1PP/jM+1jIAyl21SIo p+ig7u4U+ZPDud8JcTuzd2LU2vxt/y7rgAoolkyjqjpMlXSog4gGz+kpDRLy YN5GxfjWGJDMPcFZ3BiNhrTQRnw5dO10K6fkpm0sUPJ3FCM6mbTJ7EepDZ94 hBeAVDSMVV7R2dl+TA1p0B+gfv/IdInWr6jbmb0ToxNvypdJCACCeOm3Hko9 qAftIQyv6apvWIe8LA1ttru8PAO8QDyBeY2zEsh6eJqOOO4LuKMYjQaG0Eam N0UGHuW3IkTn9d9HD7DLLDWnXIuiOp9UMoxVbtHhvkel9zCI25nz4NGbGU4t GADIRdYVhiermVp296OqwMstwJvNoL2jifUmKsq3xoBqhxAdx2k0sIQ2uIdK HssRLDrUht+6l/VPmjrsQZFPTMUCOtsVEJ0cj0GJ/RtdZZxXnqgw2bOnPM0P AUAo6IONxQfO9UWLiWsUJLHseZ/th1Gab41hY95xNP0N+XssMRoNXKENpGIo xVHHfNEziGDRiYXsnax/Ib6zRAUDOtsVEB00wJemWG5Jpi15XV2HAzmRUuuB sTZCXFoLAGAHOcJj8YFncxIYsD7qucccBfrWaJCWAvw7wmE0GkhoQ5JTJbez RKksbsGi89RtZh90xPt4ca2aHxUQnWyn8ez9LJyTk5VvVsepzZCjS6MZnMS3 9wMACSTu2lrSm2sMPnA0J4G+Jq+uoTzJDTcr0rfGsOEbTlsL3v158BkNJLTB 1i/BIOrJ0GRwPix2PaGis3XPfpAla+Kz6/GtmhcVEJ3MIL8sRY722bevadiX Oo7SvaDrW0emlhTeOzMRL0tXWEBxIGNHsAR0kBqTJFibDebGFxTqW2NYdJnS Csn3CInPaGRDG5J/Vq6IlOrbKlR0cjuEiu4Li3HVfKiE6MQjpKmOQ5GTYKaq VP2ObfK2b/L3w4a9hO6UM1ieCWjSZr9SsWfBqSujg0jDTzpJ3nbVL3aYHaB8 kCACjo4ZSF0kozkYC6LXHzh6OJKDu/wHL2ioosMW5Fdwg8dooKENyd2HXnmH 2P3CMYsOd0CA6AQArKvmQyVEh9rwjTRxnnrihGupsKImh1tdGjZ36VSNzfrj Q+Pu4Aq+NB70c6J3HL0thDhfKPVqwTtuKjhVh1C1j1yfK5EeDlQn6OG9VIC4 NK+CtjeQJ0dCDlIOVORaX+6gRkV3+UCjIaVcUigYjAbW0IbQk4hQ0eH+vehR CJUN6GxXRnS2E0Ebx78mRzu7HOJhV//+nZ1qLzkv+FgafzzFGR6UF7WZDJdj +h4gK6gPXPqsK04XAoyZ0tSS19Ka+1QqvIMuGg1pHPJWpMUzDd7QRrWIToUD OtsVEp1c92Y5RxTxZDPiOqmua2wduZUzs7UU2QnXpak3XglDoKfGQD0nUstC OZnSGPs+MblbuY+k4jvooo6jyphB7ufiCG3kmNYSY9HkEp0KB3S2ZRSdSi2w ANTy5KCGEDEhd5t6MnUaURxVe/+oMzn48Xk0vk3Fo8/mZ73k6E912b9Qsv8c EAOSRVBHmFxLUq7FTWZ+wxbEtLXPTEbjvnmKL69GjVLTiG+jMqqDdmzAkU8u 1LQKFJ2coW/i9hK4V80H2UQH/+B3IURnbQairtXiXRL4QCMNLog2s/3WQv5s ga1YeMKSnmSnYG/Gqzn3RatSuOieq5wrRQroSyPtMabW/R/vRwUBx0Qemrz5 A/RjW7Fe/eJZILszN9hERvDZCeplyPVJb6tGpf/VFU6OQTzkMKiw/groKvCL To7lLvz3FV01DyojOrmfIqvoMMMThd9kavPB5S76TSZ0p74IvCj6/an4oquf 6Tsn3e1fJvL9LjIi6z6EP2g2prSpvtzpNgcGPVgGR2cf1Nx7zLviUkbQ+Q4Y g79bUd+vM0O+2EdUpJSpvtv+I5ZP5E6pqNs3GihyxBQmOmjKGUOPcyFvKLDC q+bBbhSd9ZD9LUJExXf8gdOY/In49irPuuulJziVB+rRxMmf8AxOlR3iJycn HineHm6zsn2khSa35hxH0LuPq6d0siiyUJILlm7Y5QbpMIAzAsUqGET8D1Q8 TPamcvz297vCmOwS+pzQFN98ChOdzQVnD7+LV3jVPKiM6CBVxhlkEx06WYjo coaFvd/pXYH2fTcvxaFJtQBSQKoegA3UJEqpa0CaVCcR2Fe5IAUda0labEFl x3No0A5sGDOOXgVG0zdcbXKEmFdycyVwqZcpfCAOD7nuR7Hte3I74RTdfAoT nZyKe4NzIf83r/CqebDrYjpM4Ex4xTdT1k10jgVWhfxDprwaRKeWwOT84Uz9 wJMpTcVmP2sveHatlpGIqAMTY9NjanPO2ZPc22vah/807Z/xeciLZ4xauqa0 1TzumcdcVZczp7XoqU2Q6KB5zvTTUzgvq9KrLo1solP+Btp5Ybzogjs0Mo4y tcE+K9A3weyKQXRqCTRALPqXLU9PaVbGWqOus4MdVFB8snQKVg8TrLvTrVjE f3XsPVOnTpXsHaJ/2zRotbt8cytl2QBz26MV7T4kSHS47QiKp8hWdtUlkU10 9prdT7F/TkmYFALB6WT0MYdo/2w2JtQuMD09QHRqCRyiw+0p3TLkfSH1e2Va wTAGzvDZzS9+xp7ba3Y9E2pmXniH9Pr+c5cnbgVC4UjkRZRbdEbFoy8iC6GA b5K8+GH3wWEvhqGT5ROdCpMzfaBIVZcA0clx3Cm6xUQOFRGdfHkEvLsq4YT5 sYTu95hZJAdHfCK2osxJR6mJBIAYUNEplDJUHG5PaRxGI7HiPZNJUqJbYSxw s6fEFFrm5P0WgTj0y4mHOJopsFKzqll0crrqFUnkECA6nLy4+v3W76vBa5qm EqKTG1Ar/xju/Cx7h/YL3u8l50BpxCax04+HYlOmATFIryLhjNOVHmpB8vOT 1zt8euoJxemuI7Icm6/oENo+2/QiLnXAVwklN9QzzyC6vyjsYeMtOlwhEz+7 TSYqITpoLkr6PslSocbMQBHWt4TaDI63ifZ+0EPMq6EcD+CPZNHhpBBI71kR m7UbMjnSTe1j/iiV2/BQXKIdD9EhDhit12axtuStHdFJZiZfMaIaoXnfk7cj BF/RWQuMoon29VrLt4IbeclLJUSHPl+wkKlCbcllIpCJG7ygx86KnHjFeFFk SpkAygVqh0V4iXMO/hIPwtTz6RF95pCj6XctJsMuOTs9kd1v6MXqTlitg0wY GnmJdQbziN11e24Vewd4dHJEtYvOdk4Se2Ob9XaejDFeopNT9ltIwpRMBUQH mbGYfjPkOQ/Sez8hzdK3maIeldgCCqYQoyrK8QD+SEwk4Baql+gDWYL1OWdf 5pBDtH8aiNImiAqTRnZ9qMjOmfRiszYhHn3+JBKJPFkVnFIjhJpJJEized/Z sw8xgB3WmZwAMR/RYR1pd66jH5l+Xl2nnCTlFx20O2LqLatYkx829FoFZc1R 676ze8SmAaR6ih5xzME5p6ZARluKEJ1UvXAGKY10EivTv2nNuFrQsmXup4ju r8sRncpQc6KTnPbzw3jX3uwPonn3aph9vi0pOtzm9vuM9jsVLerERdlF53XY eYxdrIarwZRg6LUKKnCmN6Uie9czrldNDymw8wGgdNCOBEJFJ7dlluh0+kR0 9nNjZkCb+rh9NtvLMREY3cf6FNEVOrKLjuwzULBBRe/YjcjPsvOTof0bi4oO Fb1HDh7KGlKipddRnYqzXX7R2bxra2NtuURVu+CBXquQCEtyuyhui5guDMfV TatcQJdpEaCiI7TcLKcfl8j8NyoemRjUpr3W3EYZuak74lK7t2USHWzd7ZQG FXvoQYc/Em39jtupufaFRIdaj9y+PKjXZP+R9mf2madVfPorr+hwO7fLeMzZ Tg8w5d11jQn4isn5odZuW9t29rP7T7pl8SPyBrpMi0HCPpx66DQ0sRctQnR2 FOevmcEZdcRhy+Qj9iWeus17WR9SvL9xMWQRHVTWW4Z9AhvzKp3NldlrVuOB zLGF0BrP2F2+qQvsOtIDQ64f/O5LZ7oPINO7Dplt34TwZ25UlrKKTrotc+bu qntJOcdoMo5u4i17iE/GEe1bE5HzE58ne5vlXywfoMu0GND0M0KYOc993YQX rKW3NMzn5yrOzkFnxrqX9atKmDQni+igolmjeTg75xf/V/ZhU6uKz/vX0Nw5 MOqcqnq5YSij6CDDGhiSVdKyPj+plB5CMzhZurkAU1snNKCTCfap+5xz1VQl DPAHjZg0DnkF+ATz9IMSdNKh4is/ZOMC6p6xfPWYOak7Uqb05opOPPp8IRTw 7xBg5uViB+1mSZxwLVVbSrAQqNjyw9nv3Ffso0Pd7P4RKr15ZNT+pdv79/vP ZQpIlIlyiQ46rIGhsiMb8pPpsljyyzB5a8JMChLs0/3SA/WgtQtd8CXmfckj OvwrfdheNXbmAEJuAxCNybXI/zuyyYgOFV8NeeyWbh07E5vQdg6MXfU/xmkW UaMk3jFYbQicHFrFlEd0WB6AJKkqadlh0pjplyWfXyLLmt/aJiSddSsWnrQa GJ+A2jAeUMJigXKRPOqkVUdQICqP6KiNvPIbWQPQidbTrrlCHelzmkxKMl+0 6Lz9P1Nuq0Fdr9IPjLt8oUcrtMTEowsB94U+ukm+pt1yNRTFJA+IpktwDFYb IDrioeJLt8fRzMC6xlbLXyNKiW7EwqQ5tVcjWnrt/7eU94vR7Wv4BjHjL2bJ D9pTvllFLRYoE2jQQYh/LN9gKR6ZLRuR6U+7U34DQm20B4r1nMnJIhCZIMeQ roQl2vq/CKzkebA3IpNn6FqhnS/2+SwO3UG8l1Icg9UGiI5IEtEQOdiKnnE0 7SOTyjLC8bCrP5NSR6jaT1/JcQ5shewH+bytyWjgFUt7JnIFirNLQE8TQowD dwwKQ6vFu1TwoYk/nbH/TJva+e81WG+WeMC4M1ywiI5u0L1Q8BLUsm/kIPM2 pZvwSCGx5DqRPuhUywAgHOwe0cl9CwqOPS0BFX3gSZ21Mxa9rd95V4GOJioa GEe7SexIj/7kGDkdijBh0bRJKehP3oo9D/lc4wN6NFFin3H8dv5zE1BroDWe Qhor5VEEmrwBGs6WRt0z5g2XDp3kjoaXFItfC4y+fWTs++LTJZG+x819LnH2 IwMyiJnolSCXVUbO9r+mCpQQEmveD/dwnv+mEd+GoKcm6dr92j6oZ+X+7Zwg PiBnX+B4Yqj46gOf63fWAVOnTp1qM3g9gJj3RFywqWdnAWVpaG7/6dB564Ce fm877cFUcs5WbPUZPanKc83xW4vpILe6RX3UOvV4t7wewDZrtyZkJiDdPzYv qo4B+4Q/OSgtsvOk+Sf/YO3NPGaNun6Hf4lfL6Y8HjxmFFQ8GvZft49ZrZd9 S7gfVbTVm8SCaDR1TWQzkGpkPWR/i508zS/JFgPlMLCZa8dWk736dng8H/yb 3zdJ2gb0ebLEVe0W55Q/OB8pwnwwOWv7Lw7b2VOdWu4lVB2Dl9NlthKJP/Vf fo/+khp9/3nn5LR/Zip5wlA1ansvz0Y3o8Evk7W6zAARwfeDXR0sEiEGAagZ UNvYYgvyPUlQmyF7h5DKKEJ30n6LxwEnQ76wUZ1KbzLpGQkjWj+ZiWI35WgP AWk+sWzXOGKvdabW3qusEWY2F3f8/umdjexof3u+Ku0GbfeHF69MeGf8bHuc O79VLOU0sPT1y11+Tqha+6x/msbU6pyKR26NddOHEW49QiL64I9mTYP2/U/P G1JLElYukWVjKXAVrQ4Wtl79e5dvY00WBaoGNKwjpCUse6h0scer+ejwlRnB m7e8opO+pNpwbipSDkPOatEpeBx8FmrDb02nQUgeM6RA8BhhKUG6DBUxsGUR nYZmfbd56Jyd9PjvL+Ezv0hJQv56BGaEdAYprXoZ5/n18fe7mnlqD1ObMBPG tt8AqpB0tskOe3pdjwU8CvFHnpE3C7+LdITxql+kryB/rgLjvru1gMX/kA+W dRFw9OOAnJgwjPBWHkoRncoa2GqAWrp5OpUCV7h9WSqrmaHN6he7t0I/N7YU clk4A+fS76yu02geOm8nbwQWylGFDVQdSFaA4L19cp9zdWywW5fxbyd96R9c uPy/vpC0zRtrpluSZGuvSzfK3UGFZU1FDoxDb6n0Ed5AQeQysMolO/CI0Jyc KNweFMlyEf2Qc4lHyN7UC5vK4ovHYiAxQF4QD5vwFmplZEfR7tx0kSTpuuFP ZmSKy0Z9Gbr6a6NOk/SZTzwo2b6KvYUXuRVHGvgcsvprrM+nYpDTwCoTZLRr 8c6caMKMyKmIudd87OpNZfMJnGoN7EaosLMrtUeptYqSrTnHkWwf5NKjflmi IzJJGxHxtvHgZm27c+RCVgOrSLJtakoOGH3lHUplD+ErW876w6W0qwJ2DdQT d38q8b6h312RBNfKkFh2v4uEhkoWKrKH04lrmJadvaXqctawkZMTmQ2sEkGT 1UsEZ5nhODRiRt7kA+2UeGg0UBUDxQB5QSZG1feRizXReZ6GHaMpubTNBWdP 5s9FZTohd1LzvqeWnTkyIq+BVSTMNAFeJ3pkNiI2fyM9QAfzNYFahwqTPUya T1OHPVgzqkNFSCNBqHSdpsGxq4FnpSI0y96hTAKOqFRn6pln8ABzZGyz3a2Z 26gsZDawCiQ1TSBFiWJkRCBwlS2jv4j4nE9gt4Fs0ZU+nVwItJiW8MBkQN6d euMVEbMLs4101CddEdCcciC3gVUiaFFzqWJkZDYipog/WpUmpboN2H1kd+ma Hl5zCqoCaj0w1kbwGYMVCztNqQCQyNmFL/3WQ7V3WlQY8hpYZbLoMmWqkUrk AiF1eXvN7qc4Ph1tilX7lVAAVqh4+IqxvvYOO6uBsU6i/ujY908L604iOvu5 UZ2aUSWqWQp69z7yrYGLoUzIa2AVSeKurSWTL1O8rwhSTSOoAwnfT6/pwBlQ FjKZqLW1V48/nrIeVRMtpgvf5CkvjS+HJqwGWnEI7YlLAVENfrPnxKIjHgCJ yGtglQmaLtN42vuqyNOH+BtZyZlUfOne7aCYFrqIsu/Q41yoHbMBVIjNkKOL rmtQm8lwyWLK6oFam/dcMGkb6lQHTZbfOq55fH6/P9lu/Vw/M9pDdchsyydJ vEis+T6iI2L1Wsu3KyA55UNWA6tQ0BHAxUNXiGSzgy/JFBpR823ZE34FDSAG gBRUPEz2Jrf9xQu9qxIq9iw49aVtJNn+njZdal1nj9nyqdMjqStUZq490XZu BhxrZUVOA6tY0oNx60pML6UWnIbU37HnZyXvVdNB+z3BqRbUvLMLKaeuqbsK VJL4kseipX3mveQ87FxKkGm4Xd9t/7FGp2QqCPkMrHJBkiuK3BMmuJn6O1YJ J+0i048GBD+9dElCRnNqu/wWKDPUy7vjbye3iWqTIwSGtAgZgS46CxvAhmwG VsFQrwNjTECxbq/Vn3966UZk8kxrtiUU2uLpddh5jDgwFngt2K/BDuhAp0FA GvFHk5bDSS9b62+mV2D/khdqc87Zk3RF7jPa7yhwon0tIpuBVTTUgquPCWDl 1VPmhjQd7jZomXuChsOSjZs0IhOHMvNNVB2DV+7CKwBIJb7gHtQlh6YZP5+N gu5wyAxzAcWpLHIZWEVDxRdd/cl+dIS6xzmHtJmlYmGvrU9L7DOO315aD9o7 muibkknni4VJsxpaNgHKIXXeAd3hQkUD4wY1KI4cgIHNSyIaIgeTuyBCbRj+ YnLa75skL37YrW0gtH02LzMsnoqFLtP1aIS6e3TC95374kld/WHL5CPwDAMK Ir44Pdajrmtstd6uJT+4JLYeksf21RGHBsl7oDhyAAY2P1Tssf+6fdjclZyr mJyoOGK//gN7ei8VXwm6xy3H9c0E0dx+4qzDt1jDNwSoWjaWAt9c9c7XUN2O NKilwFdf3ZpfA8GRETCwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAwA7/D5v3deY= "], {{0, 111}, {551, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->Automatic, ImageSizeRaw->{551, 111}, PlotRange->{{0, 551}, {0, 111}}]], "Input",ExpressionUUID->"cd70ded6-9fdf-4e99-a583-e02afd2c6407"]], \ "Subsection", CellChangeTimes->{ 3.7467908910396624`*^9, {3.7468324454768667`*^9, 3.7468324463204355`*^9}, { 3.7468430674229355`*^9, 3.746843067807335*^9}},ExpressionUUID->"49d946ff-65cc-4ee7-bfb2-\ 8d6ef2464499"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "2", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{"\[CurlyPhi]", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "=", " ", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"U", "[", "5", "]"}], "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "jj", "]"}], "[", "aa", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}]}], "]"}], "//", "Simplify"}]}], " ", ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.440895870234375*^9, 3.440895891640625*^9}, { 3.440896510390625*^9, 3.44089655715625*^9}, {3.442671255203125*^9, 3.44267125603125*^9}, {3.44267137046875*^9, 3.4426713811875*^9}, 3.44267142365625*^9, {3.442712951171875*^9, 3.442712951859375*^9}, { 3.44296369284375*^9, 3.442963696734375*^9}, 3.44296768475*^9, { 3.443374517453125*^9, 3.44337452140625*^9}, 3.443397833125*^9, { 3.45504301590625*^9, 3.455043130828125*^9}, {3.4550527984375*^9, 3.455052814484375*^9}, {3.5067782137090287`*^9, 3.506778214466072*^9}, { 3.506779064525693*^9, 3.506779068082896*^9}, {3.506779121543954*^9, 3.506779124996152*^9}, {3.511641116247309*^9, 3.511641117295369*^9}, { 3.511641238366294*^9, 3.5116412632227154`*^9}, {3.519945652604292*^9, 3.519945656025487*^9}, 3.5206470576621337`*^9, {3.536753629485641*^9, 3.5367536355419874`*^9}, {3.5367542796588287`*^9, 3.536754394482396*^9}, { 3.5451480077289762`*^9, 3.5451480136813164`*^9}, {3.5451480836983213`*^9, 3.5451481475869756`*^9}, {3.5451482301356974`*^9, 3.545148230279705*^9}, { 3.54514835065559*^9, 3.545148351119617*^9}, {3.5517190084457397`*^9, 3.5517190462919044`*^9}, {3.5517253476257124`*^9, 3.551725350072852*^9}, { 3.552315878168127*^9, 3.552315880549264*^9}, {3.5594364063879995`*^9, 3.559436470154647*^9}, 3.559498758930711*^9, {3.7095734439172153`*^9, 3.7095734562269197`*^9}, {3.7095736865240917`*^9, 3.7095736900622945`*^9}, {3.710786317142681*^9, 3.7107863175327034`*^9}, { 3.71171717351058*^9, 3.711717180665989*^9}, {3.711717560179696*^9, 3.7117175669990864`*^9}, {3.7118545714168224`*^9, 3.711854584457568*^9}, { 3.7119033420472937`*^9, 3.7119033423323107`*^9}, 3.7119033814345465`*^9, 3.7120954622856226`*^9, {3.712095557947094*^9, 3.7120955854366665`*^9}, { 3.737162821795579*^9, 3.737162839969626*^9}, {3.73780794558059*^9, 3.7378079860629053`*^9}, 3.7379793854587083`*^9, {3.7385815933232975`*^9, 3.7385816487654686`*^9}, {3.738581823928488*^9, 3.7385818265056353`*^9}, { 3.746791040438759*^9, 3.746791071688319*^9}, {3.746791171144439*^9, 3.746791205624802*^9}, {3.746791269817828*^9, 3.746791296817684*^9}, { 3.7467913572329483`*^9, 3.7467913929364586`*^9}, {3.7467914248141994`*^9, 3.7467915012213964`*^9}, {3.7467915468503184`*^9, 3.7467916019331903`*^9}, {3.7467917796337733`*^9, 3.7467917840254498`*^9}, 3.7468070357928214`*^9, {3.7468332178827024`*^9, 3.746833221181451*^9}, { 3.74683326704038*^9, 3.7468333082124023`*^9}, 3.746843155512896*^9, 3.746843208752458*^9, {3.7468434808237886`*^9, 3.7468434845506597`*^9}, { 3.746844250869506*^9, 3.7468442524680195`*^9}}, CellLabel-> "In[118]:=",ExpressionUUID->"493bae5a-b44a-4f02-90fd-800f87587ad1"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "2", "]"}], "[", "1", "]"}], "[", "2", "]"}], "[", RowBox[{"\[CurlyPhi]", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.7467913000660734`*^9, 3.74679130814038*^9}, { 3.746791532816335*^9, 3.746791533334661*^9}, {3.746791579057716*^9, 3.746791587805388*^9}, {3.746791824210702*^9, 3.746791845191226*^9}, 3.7468070361321363`*^9, {3.746833379249485*^9, 3.746833404789989*^9}, 3.7468431561043444`*^9}, CellLabel-> "In[119]:=",ExpressionUUID->"f200c59e-71e8-4b83-8c0d-1c1316ca0a33"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"U", "[", "5", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ RowBox[{ RowBox[{"U", "[", "5", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]], "Output", CellChangeTimes->{3.760467984617623*^9, 3.7604682424876437`*^9, 3.7604703410046034`*^9}, CellLabel-> "Out[119]=",ExpressionUUID->"7073a3bd-8cef-4b27-a6f5-817aaa805292"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnV9oG2fe78U55+JczMXRpS8CPgiBLgLBGMFxCEW+cEgQ2KHFCLdByKE5 dtjN2tm+tdsldktjp7Qqm8qcRulLxDYi2yj7dshu1b5Wu1Zaqy9Wtla3CrFp lY0d5MRq48R2jGLkWPL4eGb05xn9nT/PjEbS7wO77LayNHr0/Pl9n9+//31i 4MX/+980Gs1r/3Pvv17sHW7//e9733zpf+39n+7fvXaq73cnXz36u3872Xfy 9//nxH/f+4f/tvefl/6HRkP/710AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAACFSa4thv7uufj26c5WQsOiN1lOj178y/T8 owQl+n23Vmb/vbfr/PRKEuPDKgSMCQAAAAAAAADUDclHYfKD/na9piRNRpud DD0UbOpTT+c9r5v2NANhHp95LF4oKA+MCQAAAAAAAADUD9trc+Rop6G0eY9i MA99Eoxt8XtnKrkWvjbYQTtK9L0TM8u149uAMQEAAAAAAACAOiLremAhjN1D H16dDMyG7szP/XM28OVVx1B3a1O+pa9/xT7503qyrKeC2lj0X+wzMn+rP+ma e1ozfg0YEwAAAAAAAACoJ6inc66T6UAuXdeQa2r+cZGgLSrxMESet+gJrqHf ZLR9OBlZLeKwoDZjIdJuO8j+AdH+BzJSOxY+jAkAAAAAAAAAyEdybSH41Q3f 99F4SqlPfDA1epRgI7WG/xxaKR+pRSVXZt1sgFaeqW995zI5FQyF5+fDoeAU 6Xp/wJyNECN0ne/5+caAqQAYEwAAAAAAAACQj5y9rdG+7InuKPiJ+lfsvn/F efoeqI0F34c2Y0GUV1GIg7YPv1pQTMdJB8YEAAAAAAAAAGSE2gye35+1jbWv +VZlNox37pMnWhjXw7tfRZ8JLkgWv3fTNWzWFTg6chjMQy5/0Ygv1QJjAgAA AAAAAOAkFY9+77tBkh6Xw77HuaE+m9Xa033iyvzzhs14SK36XtNmXAKGM5OP ZB+JRJR8rWuYjEhwPdBJLl/8yT70qjmb5q8zWQbGL5Pf3I5tYv0GO4nY7Zve LwPyqobaGhMAAACgRsF0qCkfIQ8AgGCWvX3FSgQfdkUUiO9SLYmfyeEuHWG0 jP1ViuFdj6TWghc6WU8K8ZJz7lm1nwcAAAAARIPpUFM+Qh4AADFQyfiTGM1C +PqwMRPddch5B8x9oAg7d93HmjPyWGcll6r9QAAAAAAgFjyHmuIR8gAASIXa Co5nFn/bSGC12s8DqJLUHeehTBig9hS5vF3tBwIAAMBE8tfZS6/qiePuBSjz 2DDgOdSUj5AHAEAiiYirGy4rgEpsxfwfWFp1rd2jV0O/QmUAAADqASrxeP5L u+UAcwSa7KF4tR8IUAxMhxpEyANAbUEtenp0aeHT5V6EywoAAACgjqES679E I+HglOejEetBpAQkCB8AAIB6Z9U3oIUEHwAAAKDOSYbsOg0CYew++5FrpBOE DwAAQGNAPQu8tS+z548F16v9PAAAAAAgC6lF3wW73eG6Rnr9wfDdWDy5J4Zi ZB8IHwAAgMYASfBpetO/0Wh1GLfXI9Mex5snza0E0Wq2Do5d+WYRYnQBAAAa haoLHyoZ+y9n3yFtn3dF8c9WL6mwo2V/5+gNyJoROENS66FP7SVx+hYT8j8w UBPgmCq1uE6pKGnTp33+NjLWUAk+yeUZ5ykjYTAPXST9M7OBG3ZrCz0O7eem YlDYBwAAoBGorvBJxec+sekJDXH0relfGuoErkQ84u7Tawhd53v+hj6Rhc4Q dD4XAj5NIAuWqVKD63TDP5TubN902PVTA/l72I5j+lcvzWZruVDPwxMHGQmo P/V5Y2lAAACABqWKwidn045OPYBSmflQT+dcJ/UNfRspYoaA8AF4gmmq1Ng6 pbZC9gPp79hhD21U+3mUgno8M24m9H3uCPdnjZHWtPern4zBKUQl1yN+11ts HGDn6fNXbt6Lgx4EAKCuqJbwydi0mtZ+chHOm+KwhzU2mwrLoaZYhLy4GZKd z31gxgAiyFSAEbIZYl6nslKQ4ENtxm5/7bYP0yta09RqfnXYcX06slpfiye1 FjhnJMzjM4/zNjxq0d0l9/FHl1GNYeNxXLafJhWPkMPtzXrL2LWpmdlvL/cb 9ib1vg77rQ3ltA+VjD/BMUxP4kkQbAAAFKUqwodKLnsHmU21ffy7NdifypBc JPtb6fvIjguzG1L0BY5DTbkIedEzBIQPIAkxwmcX4zqVGU6Cz2fRR7PuwQ6C Lu/p3FvRodlpr3PQREu4Q/2uf6xINB2pVDIleXPH8iab39vb9hlHvy3YSdAC d92uiDwJgPnVVLGgN3X3DoxccJHfhJc2sOx01Mo3b7Ub2ke/jqV/96fBsUPM RHnJOfcMxyeUZ2dj5t02otL3FgjRaj7eNzTuvD4V+tfjRAPFdQIAUJoqCB9q 45a9gz5ttJY//ZwQdKgl40vhm6TLPtTXbdJntjZj98h/zMuWXEwlHobIPw50 thKaI46wAvt/wQOsfTtq1NJR6P1kVKwpguFQUzBCXsoMAeEDSEGk8MG0TmUn l+CjNZ4cPGncp7fYfQvo5cfzlel322n7U2+5FJYU5oTH4Je+kLeXyVNa7Sly ebvgX23OOzMOn31vBZ7J86vJInxQmlq7/3Dpix9iUgx7atl3pk3bc/XednYQ 4iG7iX1/RXLBUive07h1Dweiteesyx9ZL5wGAAA0FIoLH2aDpT9Nf8qzsMn3 r5KrEf+Vc5x2q5wtzTAyLUO0+vZa+NNBU+ZGsGpB4KmN2QsdrCnimhNzKSn9 UFMyQl7cDEkDwgeQhGjhg2Gdyg6a4KOh3akj3oXCKyMqSvYamEV9zBGWsK2q RfgskVZDm/37IlsJ9S93V3p71w74VqV9TElyoW4PF+f/GQpOkZdHuvWFR5mu c9QzHY4slYvgWpwPzQb9f3M7z7/ebcx7C8L46oeTP62LEd3UZuiDNuJlVwQZ JOq+x9LMvnGLI6yEFzMZf4x+zak/j1kO5I0R0f7mtekfy48RzVIkHJrxf+52 DFlaibxROuWcWYazAQBqhK1Y8MpZersjdOazZASLSFFY+CSi5ADjqtH3uCO8 bl6ojcWbriGzocLxqLOHMO9lW7Gpc+3Inkn0eKLVuselVoPjh5mH6LLPrgp8 CumHmpIR8sJnCAcQPoAkJAgfietUAZAEHw2h7/UsbBd9xu0lTy/7oqZBn/iv wc1tWYrcDrG26GBnMT3UZLS+c/n6ZGA2FJpfxJqssZNYf7xe1Buy6hvQsp++ r8v9LwV/r9RG4J39eQPQPB7cEhz/8JVr2KwjOMPYdymwJNB3RT309u/X9nsf IX9GPfL2pwfnwIDvV0Hvh4sC6XzEHnoq8D12EkvTzr5DXPXTYnPdhqINAKB6 Umsz73Ps8GPuBQzuZyWFD7W94OllbrqILlek+JnLeT3bwIWX+xu78NmcGduP frKux7NYxZ0yE0gjPIlA+qGmXIS80BlSCAgfQBKShI+UdaoASIKPxngusFby 8XIGp/Y13yrub0Gthye6867hDYPeZaXjA9HtS/Ew5pzmymDxLIkZACq5/tOk /RU9+lb63gkhTg3mOGgd8j9G/lnykTfzgNoB76PqhDrkB7+JDkdk47Q5w216 ww/1ywFA3ezcdR9rlsHUV1D4ZPJ/+d3bZIt6aehbLNt716ZCrIN7ae6vI+37 NHlgFj47G/43mzgn8wlP9DnGDxAOE6nO7P4djh/4R4BJPtQUjJAXNkOKvwUI H0AKEoWP6HWqBEiCz0HHj2W2M+SmXZZDoeAmX2cll7B/SiWQ7YstcKckhXGA VjIm/u22YjMfWdHwOeLoiPcuP6dGatX3mjZP4VKLnp6M9uVeminIamCkDR0h KeGI2bzRHIazfuyiHgAAjBTsk5girxQTPslHvmE2cJxPIjy1MjnI3vwbT9g/ v7PGuQwsUCUa0ddlpT6e9pJwttyqbf4IidvOzmZmCLlxa+WQfqgpFiEvbIaU ehMQPoAUJAsfcetUCVJhR0t6P2sbCZRZr+gGa+jzLmN/EmrJY+Fs34fGguIu OqQ8RG77Imyk0rf/mIXPbqZuJ2Lb825/Rq1HvgstoQ77nYjrcPpd9vd7H1bn 6EvdcR5CvWISwxH3jsLXuWZDU4fzDlQ6AAD1kufxwRZDrpTwocOl2E2M12U+ tT7/FXnDe/N20Uo1yAmetrsPOe9gvLtBIsHS5/JI4Am+txdN9jJZo+0ll/n9 /JIPNaUi5AXOkBKA8AEkgUH4iFqn8rO16H4ls1+WD2BDXimTLyZbFEWBo6cU ue1LmaplXPALn11umARrJxx9a/oX4RMwHnaYM+LgdfyxjvxAEkhZupzz0q4R ch7P7MHunAefDwCol1R8/i/DdI5/U2v36NXQr5isOmWED2ZLoODQKH+BKfjt c5FgaX1wPripDvMlpw4OjwfFKV9chxreCHlcMwSEDyAJHMIHyzrFzq++gUyN rC532XzFx/6h1szeJ09ie/WFD7p9ddhDMtQELY8swmc3XYgGfVsRtTFzs1fT NORXfGhYmFgF9ItIj6ZGfHwZej1L4PMBgEZDEeGT20ixuE72nrmfk6iIN0I7 P86tQjy8smwtuI+z311kdQtshxrWCHlsMwSEDyAJPMJH+jrFzrPASCYutYJ/ nBNiJE/Wf/WFT1UTfHblEz50acFZexd6PhKdH88J6IZGbQbPZ86/vORQJcGZ 4JMB0f5Vm3gAAFQdBYQPElvb9kEIg+sEvZCUbsDnQ0U9PRxZZXaEVbQ3Ustk b9oqEREShu9Qwxkhj3GGgPABJIFJ+Ehcp/hJzTsP8Vv4VIy0ZTfAUqJgM+w6 ZbMi2Abevuj5bpFnI2nRwofajIX+6hwd4Hy21fYb95ywu6nqJvjsyil8kNKC GQS1BngSGMnMlCqGOmBO8GFZIq15gw7CBwAaEPmFTy47CVModX6hadNYcF36 u2bIXdWmOTgRfq6OWBUWxCElvMsGvkMNY4Q8zhkCwgeQBC7hI22dYgepDFyh 1zCndExJUbDzMPD/3rCaOEWU6de3n5uKbVV+HHHCh/olcP6l/B5ARGvn6bc/ DjwUtm9UN8FnV17hg0YOpylelrMYuUQYYv/YTLVqc+BP8Nlj5yfX4bwkHyxd GAAAqC3kFj7U8/DEQZybDOqzYMDjRcqARIKxB4aa4txYEMtEaJFtbIcaxgh5 vDMEhA8gCWzCR8o6xc+zsONIepFV6FiMhhhVal6WXI18/lZ7XkuejolwxQ1Z jPDJVn3MfZTe8kd/VETiR7UTfHblFj57W/30iAH9YbRt4zMblUcKzW/lhjpQ G4u3Qnw9elKRIcFnt1jvJCxvCwBAjSG38HkasmcO3MOuCIabtfXgmAnZufBW pCyseKmuOLc0uQ28+Zj7Lu9BxXioYYyQxztDQPgAksAnfESvUzmIh+yZbbO8 gY3603k1OklEyQGu44dHr2cRwuf5j46DXLPV8Lp3mYd3qQjI9iVHh1Y+yC18 8g9KfuobzW/lhjowlU4Vqzqen+CDIxyx8HCvYukGAACqiMzCJ3eM4qk4Ta36 BtHNi78Hnw/b866uZs7OqLY4Nxb0eOIvFjAeahgj5DHPEBA+gCRwCh9x61QW csKnbKvnnY3A2xmvSnOXa57X3prvJefxZQULH2orZOfmpfN+vCJvhlT3qlDg TjZkFz4FoRE8LgmR/NY8qc5cmikmEvMTfHCEI1JRspfrMMQcJA8AQK0gq/BB 914sEQX5octYg+dTq/6z3J1RhXFuLGijDb7hYTgPNWwR8thnCAgfQBI4hY+o dSoPuX2+nPBBjEOi48LsBs8NAamQn+YV92JZX4xg4ZOIuLo5fyElejC3fWFu ACcA2YVPsbY1FfI6kQCzvOGlJ8Z+w8i0Mv6RggQf6UdDaiP4Xht3MLS269Gk +m41AQCQHVmFD+Jtx1IyNK+LK95ySYXuHnXGuTEgTUh5BJbQYDzUMEbI454h IHwAaWAVPiLWqUzkPCbNY8ESmoTaDH2QNg6FNcjm1ENgqFQxUrDwKShELN6D hm5feBvACUEB4UPd91jyTrTyPg4kHpLjCKM2wxMdhGLFCQsSfKQfDYnbzk7u UGh73feqVbkBAIDqIqfwQRzWOGJ00Sx49nB2RbZxmRKFmbNqjXNj2QqOZTZy bb/3UeXHxHio4YuQxzxDdkH4ABLBK3yEr1PZyMaUlgjuouKhibRx2GJzzwvy TiH6jqXZ4rlf7rsKFT4F9bgkZGeoIMFnVxHhs/s0OHaI+xnlYxhybjWOW3A7 4u4xGIanlKpMiDvBh3o8M27mVuAwDfuW4HgAALVCJZOy7swyCh/EYY0logAp xUyzv9/7ENtOXBimrt44N5Zlb19GqPG6EMN3qOGLkMc9Q3ZB+AASwSx8BK9T +diMuF6mzb+iQWLJJd+wiXnKFpvrdlzoos4XMuUziYQLnwKZUOH9y6CGBJ9d ZYQPerhnKOcpy10t5tyCyQdTo0e17ePTK0ptp3gTfKinc66T3OIbomY4AABy k1yN+K+M9R1Ob426duuIyx9ZlWHrkU/4oA5rDA2gkYaADDh7q23ec/fmyR7V Zz6iQe98ehzgO9SwRchjniEMGIQPlXg0P/2Xi6O/6WzNXjLrTdY3HJ7pyLqo dGoqlUzV+UFbN4OGW/gIXadykphzWfZsQMIw6F3OZTdQybXwtcEORhMdGSZ/ EmMTPguMZMRE+sjCK3zyCxFLMIbVkOCzq4zwobaC4815xxpx2rtS+ktTq7P2 Lnom6F91Tt0KTv15zHKAML3umX+q2FLEmeCTfBLOUz3E0VHf/USdb8YAUHtQ 8Tse+hgidO0nRy9euXb5HauxKb1mpx5g1j7JqHcw61Zu7pwI4bsJQf3slXJd K/Ns3vkisn9JKOlTABX7/JSe6wnXVLVpNS/QuPpKgSUseA41jBHyeGcIizTh Q20s+i/2GfNSghF0L419cVfYGqGWvKdaq9MdXhnqa9BwCx/h61RGqOTKrUu2 lj3hYLS9d21qJjQ77XWNdNO7X5Ox76J/kUenl6II9cgIFT75r9dZySVRD4rW NK5qCqcSwmc3Ne/Mi3WrPNR7y/nmlbGBHpNuX6v55Mgl3/wavrqplSlI8BEZ jojI+TSErnP8iwWxMxwAANmg4rddewcTcWT4sztr6Us5NOfU4pyTsFenFn0X 7BneHxt61dyaZ64QOlPPwMi72RfZ3SGRbg80okB6mzC0u4QGaxVraiUw2p5/ ONRChX80rn7fSOAZn7/BcKjhi5DHO0PSiBc+VPwncvhIgQAuRFCkBLt4cep0 VVF/g4Zb+Ihap7JChxNctbObP9Fqtg6MXrzuvx2TdA2uKuFDPY14/9jfbtCZ /3A971YnGXFb0g+q7SWXq2gEKyJ8CkMQJWhGZchP8BERjkglHobI8xb0MlP3 4uj1f65ADTcAUCHUsu9MWxHPDlKXUlKGLLvZ6kzdVh4cN7cSEnZjNPhBag+L vCrWxP6xGUwhI2xqf6GdhivySk7Q8A/FgtUxRsjjnCFZxAkfKhn7xm7hlo0q R2s/ucjr3dn6wLwaQdYc9Tlo2IVPddapwhSY8doBXzlnsIzCZycefNeYeR3R 511BnjJXwUZrdf1c1YqdVRM+VQ3wq0h+go+Qp03GY5Gg15WJkGEngPHE+9fE RtsCACA72zHvGb1Gb3HN5VfUWfH2ZY3zKmfI8gWN1OWePsLJLzT9onMe071p YZXL9HZbvWo//EGPzubx4JYiFhW+CHmcMySHGOFDrX033r5PUwS9yfyCrti/ 0OgHyGjFwles56Jy38BapF4HDb/wqco6VRihZrxA4UMteSyc15e5mOKUMkMc 91QySvanvQBtg95olUufVE34SKgLIT8FCT7N5hEXWY5rLofdbj831Ndt0mWN JEJnsg47PP7wUhy8PMrxbMF32a4WLvsWqu9dBypCrU4NGwii8+O5gpgDbrHQ 2ihXhe7r0nZaJNKPAV+IQtGaBsy+WRsZGUukNTvGyswKnBHy+GYI510FC5/t u57eFsQs6BykT8zFlXj2z3cS6w8jId+VczZjzjlIVC6Fx3ouMIZlqof6HTT8 wqcK61R50O/IgFX4FKiEMq9/FnYcSb9K3+eOsC/bXgtf6c+kyo54BWacyYEy wqfwU1QtfAoSfERBtJqP9w3bXeRNED5KUmyyVREVz3Mgy9aC+zihOTjsLwxk 27Pl+pForJo4OtFicfu63P8Sv/tQD739+5HpXHSIxLzv9r2rPcU32eq2GuTP Y/9Qa+aZ8dlpCkXI45shxd+W5zKJzzkt6cVFdAxc9pcNikjFF6cc1ozBTxx3 L5QpyMAKdm2b/fu665NXz4Mmg/CRZ52qC/Q7MrQ4wmX8wcKED1pQhaXXs1Rq ylHbC55e2rNj6Bz7bCY0G/STl9PqW98+cEl8AQe8gPApQn6CT4WASQ7J+OPY UuTHgNd1znow5/sxnrCToViiBoJkah7qweSZF3jkeyoC8cKZyQeqWOlAGdg+ Mh2X5gs7cuZZ/rURLIGkwEvLptxZcB9D11LbByEsxdbo/jXc6v45ul0RQe37 qgXSkxRbUpJiEfLYZggXQcKHSsx93MnMLqL9D2SEX3U7pgY480dl7fNqey5k o84HTQbhI8c6VRvocmYoX65EmPDZXvL0Cnjz3Z1ELHRj4k06+il3/+8NLqyp yOBXRvgg/XOzqFf45Cf4iL0QozZjQVc/muljes0d+lWl3xoAGpSdjcDbhhKO BuqRtx/ZDNRfbYwBPeulFD1+GrIfQXbC5mPuuzjubkoGudEccs6rPr+HYWvR /Ur2NMOkHRSLkMc1Q/IQInwy4pdoPzcVE1JMO7lI9jP324a3A8UT7qrvuZCL eh80GYSPHOtUbaBVu1nKFqgXJnw4mxKNxbOk/su/8kCOTwEFCT5S+l5Rydjk sBEtiXR0ZPJ+TVxoAkBjwMQJFG2ovZt85EVbtx0aCTypwgMKBlN0x8b0iAF7 FevclXUxMJaMkxs0Wkxae+scikXIyxT/w1/4pFb9Z2kHluF177LgFkLUo8kz 9MwscYFPPfIPH6xHd0/9D5oMwkeOdao6qKinh7OplvVtCRI+aCVJ5hhQdV0y nlRN+Kh2BhYk+EjtcZDaCL7HiZwjjr41/UutK2YAqBO2Zu0HiOIVfalFTw+y P6q9q2YWNNdVtAmRV8Va0zToq5AZzQdOJbd9pu4ubmx6DcWioAYVrns8xSLk scyQQngLn5277mPNElLG0pOzqAeWic8kDCPTteCcFUIDDJrMwke99+1S2fnJ dRj1+WgPOn4svMhLI0j4oPXAmRePBUU2l1MRVRM+BwZ8v2L/HBxISfApARs6 i2IY9j2qz/UHADVG/HtHl/k3n98v1D3cDJeyR4m6wGHWpq2sLDi8XdTqrL0r O6Jay8ffXPstt0/0gBfDxriTiN2+SbrsdJFNNpNIb+ruG7K7v5pfwbftymRQ KRMhX13hQz0PTxyUWKKBbapbpLw8E59JvOyK1IjnkC8NMWggfMSSiLi6OUZm meZcAoRPQRBdzdz+lUUR4VOstoGU+DE5wZXgw6EwArOGjCgA4EL9Ejj/UpUr 5+leOh+Q2236bN75IvKRgvvXYP/SvD8ZNWvLVOApQ9rKyoHhvEutBc5lM/eZ riJL+cWIpHYY3FMNs9dHX6S/PF3j1/25fyZEk3WdGDrHp2J4amxyih3VmkEl fYYUhafwYY00iVfHbAJahz3E8VFQy2Svttp94WWhIQZNBuFT0+tUAOyPiFC6 SowA4ZNXL65e8uaUED6FZr96+wBiTfBBQHsgshywh2qgPBQAFKCOguGyH2HP f3QczB0kxDH3gsAdC/tX5v3J0ltXrAfHTMgnS0+9oZLL3sFsxhAb7sveP+eQ Fj1OPY3ceLuTbqPWYnV8XazGbyoe+XOfXtfpvI0ly1KeVjjKIFNzE57Ch05l IjomwpKkNKvN82Lm2cuKuojGyachBk0G4VPT61QIbJYWsp2WvF3nLXzyxVTx TNgaRAnhg1bVyIyfSlvUYU/wyVDEVqyVqq0AwKUhPD7UZvA8UsZaTHMZ7F+a 9ydLNmvzyhpIN4oScy5Ltn51c+dEKE7tpuad3GpBEsqLJR9O219hyl0dHZ16 UOwLb8WmJ2xsiQBM1261bFBVV/hg4llgZB83Fp2Zt0SXK1JYlx5gUfeggfCR AJWMXreh9qvhrH+12E0SX+GzEXag3Qy0xtFv16o/R3CghPDJz5pRcYs6GRJ8 WPJTzzAvbQAAsPIkMHII3QhE5J5ocMP7k1GzVoTPusBHL/H+h3o8M27OOnsM g95lOtis4EJM+5qv6DFd+f2zqUOt/eRi8d+J413CsvdybslqzaCSOENKoazw 2V329hmQXo1s8r6hl4yq0rpQCaoeNBmET02vU6HkdQrY12G/VaQeCi/hU9Bj upSMqkUUED75WTMq9pfJkuDDUMTjA8IHAFQKteobREx/PAXNlENi6np+H3Bp 9z+bC55TWWcP0flROM6cnlSUtHF7mIpM8ElEyQHmjQjDmcmS5a44wcZHHGFh 6VrFqOmk6WpXdcMD07eROO1dYWYUW46jZJ8agEXVgwbFDaSyfdfT24IY2132 2YKzi4/w4fjo997HPD7zuJbOwPLIL3wKsmZUkUNXFLkSfHYLSwLiXdoAAGAk r32PKqLfhcBc6oreZzb8Q1x/j4T7n9TazPvtWcVhPOvLdl3M/xSRCT5U7PNT bGfP8jWpEK+T5EQJlpo2qKTNkJIoLHxSK97TRPqYVkX/zVpA1YMGwkc61MYP l3oO5HZWw2s3olyHfUXhk3wwNXoUCXJrsblu42gfphpkFz7Po54T3LR+0VXo 5Ua2BJ/CEkn06Zu5cgEAQFXkte9p+yBUYwU84yG7SaxZyymCJM0wTsXnPrHp M9u//qRr7ml2HFNhRwvnU0R18EHyebX93grnSnI1Evjyhu/WQpG6ByJADaqa 6wgvZYaUQWHhw9ovh8aCT9OxqcRx94Lgzp6NhpoHTWbhU3PrVCRU/LbLhuyv e3tv+EluQZYVPlT8J3L4SM5oJw71u+tL9ezKL3y27zg7OPd6ROfHcwl1DqJs CT75dXGZcejxqCKmtg55tuC7bFcLl30L0oNqAEWp2fY9WVCzVmjHNCYShoM4 I5ZKxiaHjZmbJKJ7IryObHiFFW/EFFVGfqn9/d6Hym6o6EDVnEElZYaUQWnh wwRp0INPPfL2q6Mgs/pR86DJIHxqep2Kh0rc97P1XtI7cMeg+1YswQQ0lhI+ 1Gbs1tVhc67pJGH8rWv2VwkrORWPfu+7QZIel4M2h84N9dms1p7uE1fmn1d1 zskrfFhHKopq3T1yJvhsfm9vywt0U215h9pHHcWWszSCb72+yLumqMXqixIu Oan7HkszdwqLMGL3VM/Xo+0Zx1GRSmu/+gYOcD4kl23Nn3jYYc78/SvuRYVv rVHtwN6f1xAyXYMrLXwYE27v+e8xGfotgz65e3vVBSoeNBmET02vU4lsr819 brcdzF7jEUbbOZc3OH2R2+v04Ij3h5Dvyjlr7pUa3ZEB59+LNQUQBBpSi1Cm uaoyyCp8kvc8NvRbE/p+MoqneRx+ZEvwYaumcBFQHyMR9Y116vYZbR/PrlX4 EyrxMPTVX298dXulxCBTa/Nf3/gPt/OPGen9kklH8PN071ky3zr2VpCu6w3v PVzt7mSBejB55oW8pklVg3jhzOQDlc54oCh57XuKemZ37n124shL7p/VGquK lmUjhEmKwhNBePFnauOWvaOM6tnd3Zq1H+CsUaLPuyLoM3a5v1QV7hdQ7VZz 6ljCDClHVYQP0fJHt0tMhj7Os7WWEDJoCtsMMggfieuUSq7fC3r/ZB/q6zbp NTqTZWDc9UUYmQappMqnBLUZC33pGutr1/Exi5pau4ccnmnJkif92cn4kxjN Qvj6cKZ7tbR+bViQUfgkH/mGOWKPbtWt2tNBrgQfau3bUWOe7jHYPPd4ngqs M5qh4mXFanCsg33/Pu9ysRewWY0FEP08Dimkui/+gucAoBLy2vcUr/K6E3Ed VsPuXRo0g2bfSEBAtGV+FIRGoBFLJdd+yIWX63snZpYL/7jglknMYDK/QgaL Z4n9nehT/q/O0dMWE9PVp9Vs3TNUvLjyetDv8C93V1bc1V7CpvgZUg7FhQ9T NajJZDooPEMf69laUwgYNKVtBvzCR8o6Tf4auvqmmdYLBvPgh56pmdDstPfS kHlPLPdfnYtvx+f/QgeGse2Y8TyujFCJ1ftz/+W77nKMWDlVOzU688C4w/UX X+DHu49lSkShtoLjzemPk9CvDRdyCR8qGSX79eiKaRv0RlUc8yNPgg8V879h ytsy9L2eBb6dwlA5VumyIlclqdniuV/C5ZNY/2VPfT9c/OcnfdnUq0PO+Yqb Qe7NiQP2WbVkQgIAZvi070lEXN0ajdkRVnFVRrR6s6AtvYjw4e/75ka4casZ IBT0CRJjT3KvqpjvSMXveAY7CF3noOPPk4F/hEL/CEz+2THYSR9xuq4h13dL CXwBFujRic9lohyiZ0g5FBc+uV9B6HrEfbbWEIIGTVmbAb/wEblO97ay7yas zN1A/u1NKn7vPwYMTcazH31oSb81vqsDReDbwBQj7KHJnqpi+7VhRB7hwwl1 YLYLtlW3epEjwYd6Ouc6ye1UoSHaz03F+OsGRI41jwe3yjwRWouJR5cKpn0z 7zWLvnnNlfYFAN5waywXLxTGNiM+OBGWIz2T6cJAtL07I7GtBn2hn7FrBYWB FRE+ehuv5oY7iehkVvUQ7W95F4q0zmNADkHxJ++zsONI9u/pr0gXMjpoGvw0 vJbn3NmKzXxkpW/hCL31oxkB229ZEOEgJk6v6oieIeVQXPhkfwXBWQOyna35 f80Ih8dxFd36ihs0RWwG/MJHzDpFLnCK396kVv1nkXAmfPngyqC88EELpYrs 14YV/MKHSq7cuoRW0tPsax/9OqbuMEj8CT7U0wj5h/Y8J3HJK9ASIHKskgcK KV3CIyY/Ne/M3GvzKOlD/eIbzPyg+88Ha6y0LwDwJK+Sc9FCYWxp+qYO5x0Z Mt2yfbel241oZLuQdysifPiUoMyKC/rlepurQH2UejbhT5iG46PXvf+fM/Zj hpLO9OSKf5SNMM91UJUGEiqm6qDH0oidIeWoSo4PfeYddv0kTPfIdrain5EO hWL+0mj70FfyKkBZRA2aMjYDduEjYp1SK9+8lb7AaTvjK1HxjpMK2mEPbWB5 WoVQXvjkGlmqY7fELHxS8Qg53I76egyd41MqVz0F/QolJ/gkl2cmevN9PabX PfNCVA9HjlW6UkDboGfD3Us/X4zsz2iyytWQkFjoWiztCwA84bS6Kx7nxjaO 0Z4il7HrHirx858s6YUm3W5EvSpCzrUirZb3aB8NrJTcVJK/zrp+a0xvKAcs 9m8qbPisy4yDiO+7RFpzR1fTUfPhpj5PmRxS6qH3FGvna42j365JPZHQ3AdR HYiqj9gZUo5qCR/BSeuyna3I32Vb62YxngtUqqKgBGIGTSGbAbfwEb5OGZ87 83rCcGaydA3ip8GxjBBUQ+yWIJQWPuoLGSo85oQsbRQqfs9/8ZQRXehEx6Dn jqoj3NI89g9xkr0kJPhsr839bdySd58pLsQCDUKu5IHKhejwEdTIXV/lYN3N iOvl9K8qi70HACqBK3yKxIFQibmPOwl5Gp0nbjs7mzOfLd1uRM8aIYkJRVQJ Q1FvNV1J4PpoZyboQ987EYhWTo7dCo41c99cTHEAjvDRVE7TRstWHLGHJFa1 RcweXoneKkTsDClHVRqYiohzk+9szVLYqYoe5y7XfNVPUFGDppDNgFv4CF2n WZ/73utfdkVKTwxUDqshdksIBe4OudsbIXcswmuEykBqI/DOfg2XCvGuhSTj S+GvXMNmTq08Qtf5Njn3BNPeJ2tFQSoZvW7jqD/hfvM9khv0MAx15feQoftG zYqqgYnEclSYLdRWyJ7ZlXhUzEBqyVYM1qVWp4YN7IvlsfcAQC1wku6L3H6w 2kRALXr+xOecFmQDxWE3IpdaTUN+3qEYaHMcLnR9gMlQJEpXJ12KhKY+tfcf zmx3+0yD7tAKv7udItF0h8eDq9TeURINfeGasNuvBlcqfv084cMjTRtJ4Cqe vcUftFRU1XtSiEbkDCmDwsKH1S8izmvZztYcaPsYdKZXfbaIGjSlbAbMwkfg OkWevFJf11zGkzpitwSAyNI0hGF4alU+7YaIRMJGxhQWienqHEyBjvl/hoJT pHPIXKSyt65z1DMdml+MlWFxPjQb9P/N7Tz/ercx/y10XcNXMy1ipYO5omAy /jg9CkuR26HZwKT7XZsx74ZTaxz6NFh+ALLDEJrxez0u+2vdrYXXpIbO0euh mNiUGCQIudJsQQQ1j7tTpAxsxWJKG2FHpjW6LPYeAKgIJEKjwBRMPpgaPUpo TG/4se/cqXj4o06irbs7W1AOh92IHvp8qjBl/mw74uoS0geLMJ1xfcfD0ZOl WBqRRmfu6zOzSoZo/+NsvOLxwW2Nxyc4Gb3oLF6vjzf1UeVS5Awpg8LCZyNk 7xBTcEC2sxUBjQ1DUSoIsCRiBk0xmwGz8BG2TlFFUDTBMweS8aSC4sxFyRn8 GXN3z1j93J2ucplPk9H6zuXrk4HZENf2fxKXnqiS+xVE+RQkIntHe0LXfsr+ 2Qy+jgnYKwrubATeLtZHFvdAtPacvfSFeMnDfvlcEHLF2YK4oStfa/Av40lt 37vak35p6Sw/AKgfEM9Lrm4blVwLXxvsIDQtNtdt7LG7TA1MnXH073OfZQPt sFhHaBJH5bB85IFWZ+28pA/R+srY9VnBd1xFhU/mLfWWC9O8ooK5N+q8ok1Q J5GUxBzUC6COkHWRiJ0hJVFW+KQTzAV/lmxnK/dTirTw04iRaXgRM2jK2QxY hY/Adbo5M7Y/WwDuhCdaJjMJiWNUbYIPHoMfQ9A18itUowqELMKniW4QN3LB RfpDd1ewtj6So6Jg6rHvdXnEn97U3cuMw9St+QcYNDJnq6nUXi3ndeVzrYF4 +Q/YQ2XCGrcj7h7WQak1vvH30rnNAFBHpD07mvQl2LUrF0dP0j2vZcpYZFSG tuPC7MYWkmGEx25E7mkrXGDmk3zgH3+p9FZJ6MxnJm6ERLr1i9dPENpqB6m1 peFZkwcVPlIq0CIfXeNVLsXPkOIoKnzSDy+4Frd8Z2v+B8UjX2TCQfXt/R99 MzVxWImeKeUQNWjK2QxYhY+gdcptXV1B5CJZ4dWPXSyBWoRPQYIPtRm7/bXb PnzS3ErQCuLVYcf16chqLeZJYqf+KwpWANlqKl0pCKsziXj5y8V1U+vhie50 dVpMBWABoDZIrkb8rhFre/rc0B3uG7vil2VnTq3NvN+u7bLP0hku2IUPWqlA cBIHXbjgxsSw1ZQNh6aTK9++ePU/gxFpd1zU45lxMycj1Gg7d+VmRFioALen vGDhI6F3TW5Uif1jM7Wd9ihlhhRBSeGTMagEp5bLdraWIrkZZ+U87eusrvAR NWgK2gw4hY+wdYpepFQSuUjGU/NYsFYjXZWBk+DzWfTRrHuwgyCM3WedpJ/J W3EOmugea4f6Xf8QlQtfRzRCRcHyoA1VK+xRAutM5rz8ZfoSbsWmzqWbEBnP +nC1/AMAAIEJhtF12G8x7T1kED6qK6eTgb70+8ZLkqT3ZigSE+ciRzp0KCp8 kC1UenW4qoN3higofDItEXmEuHOR7WytCGPVV1X4iBo0JW0GjMJH4DpFcwYr xMEiflIJcrhBQIoiGk8OnjTu01vs3IZWz1em32Vmjt5yKVwLVaBloiEqCpYH WbNEiyNcVtEhXtfKCap8gnVT8blPbGwDAqEdVwEA4Am1EhhtJzo/nku7T+QQ Pnt7pKeH4HWa1x5IlTbhOT6i02wRpdBxab54v9RaAusMUU74ZOqQCA5ZlO1s rfzJTP1wyb3RpTyBmEFT1GbAJ3wErlNUDlcQuZjlcF2DJvjQE699xLtQ6Arc s+R7GdVJHHOE6ylwSwCNUVGwPOhWU+kwou89i9aZ3Ho8/8N8foFZxMtfvG55 bgcj2v9ARkD1AIAcJB/59vY5i3Mue77LInzQFupNgz4Za5YqD3rxxct/gwof sVe123ecHazc0vV46uKyDecMUUz4ZCvPV0rSyUe+s7UiTEZ8NUNTxA2aojYD NuEjdJ2iGTEVSkQicpijnKnkyk+35isX4m8k0PIphL7Xs1BcgW4veXrr85Di S31VFBQJstVUulJA7q+4dSbpG4zm/FtN5FqjWJPWrZj/vU46pF9cx1UAAHhB PZo8YzBYXHPI/ak8wmeX2gx9kN5N6q0B8fYyeUrLf8RQ26ZC1aZSIINZP+X9 Mc4QxYTPenDMxPyOQlvfyna2VoYpEFfNXHhRg6aszYBJ+Ahfp4jIrfAblcx4 oqcW0eddkfDc9QZ6N2U8F1gr+UPk9uY6S1rhSZ1VFBQH6nWtsEeVdEMzm3Z+ wQdkJy9wdid/nb30KjNHD1jsU1FcbZgAAMgjGfUOtml7rt7jXH/JJHyQQAJ1 NI7HCNJ3icfdF1JNrkIsQenP8w8fZE2eDued+hlJbDNEKeGTPSKF6gjZztbK 0JGZVe36JGrQFLYZ8AgfMesUcQeXTRikljyW9OuaLZ77uQERKYfrGiTB56Dj xzLWPHIpVeWyh9Wg7ioKigLZaiolnLKt5NPbEuqfZcJQ80s4oo3p0UjjVHxx ysH0SyKMp5wBIb0IAQAQRiJKDui1ve57eaH+sgkf9P6z7YNQLZdfLuBpyH6E tWIrFW5CD5f20YCY8vzUMpnOPtWf8cbqR/fgmyEKCZ/sESm0ppZsZ2tF9mTU 601V7fokatCUthmwCB9R6xSp6lZG+CCV6/JaMjEVD8yOcKMZ7eVA6s+Uv5hC p1nFDrn1B1QU3OVeNO3R61kqsXLz+gxaPEvZzYd66O0/UGAJsC2b0Z2cSq5H pi6eMtKe6oO2D78qkncGAAA2qGSU7Ne39nruFqxq+YQPegVq6C1Zl6kmyeWE lo9pyTk1tMbRb9fEDEFWZNWb44wGzwxRRvhkj0ihiVryna2VYKdfriey8ogb NKVtBhzCR9w6pZ6HJ9gFULpXEVK5TpPnMXwe9Zwgqvn7qhD+QVnIKzU6K7mk 3DOqAqgouMsNQt6jZdD3S5G1RD2dc53UE+3W4y+kX4hcU+wsuI8RBSUckZYN 2tOf/RyZISfOmOnOjAdtdjIUq6uLYABQI8lFst+o7yejRQo4yyl8aMF13cba fPXm9EltzF7oIBhFMzwZK14Zm/GyMcaK3vbJnBhTDR3A94Ib9XdBhGWGKCN8 Mkek4EQt2c7WCqQ2gu+1VfnOQdSgKW4zSBY+EtYpteQ9xQYRFXXcsKqn+ajV YuQoQQa6loKhDu9DJMEktbFUqLqJhG/Vmz3PA6gouJs3CMxG1X5uipszSMXv +R29euLo6NSD51mvbva2gc0gKAxiX/H2EZw31rXTjRnnH0NoGwAoAFOoXz9A RouWhJVV+OwibQLqz2GRvYktVi6V2ljwvsX8W9GqB3WIiAyTqwWkzxBFhA+W BB+8Z2t52Ki56l44iBs0xW0GqcJH0jqlksveQQNRWH+MSkQDzlNGosV26dbK 5ryrq5lreTL3KvVT7QQT/KsucxYmJ4CwIYCKgtwgZK3p6BGmbTphPPG++8vA bCgUnCIvv2M17tN1vk3OPWG+ZvbQb7E6vggGv74ydITQn/Is5LviU5ErL+oI orXz5NB5p+fvobvS2q8DACAAavve1R5t26A3WmJ3klv47O5uR9w9jN+jpPiq XVLxiHfccoDZLW3nLpP+4GxoNuC7/u/nrAfp3VHXNeT6bklk/jV7Y6+RECZX I0idIUoIn8wRKbhQgHxna9lPZaPmqqyXxQ2a8jaDNOEjfZ3ubSPkcPs+WvtY xq5NzWRmRROSykQlIleZ8t2E3uqYDP6X7/IZk5ZWyrVrdsoBUnW5QvgWFSNt WX2tqkbbygAVBTlByAcGfL8k1+8FvX+yD/V1m/T0fYupu2/Y4ZmOrHMiOrbX IzevjA1Y9l6ja7eOfPLdUjnRCACA0iTmXBaD4czko5IrU37hk84woo/ssk9S s1CbsdCXLvtw33FzK9MK3NTdOzByweW9tbAu3sdFbdyyd9B3l0THhdk6DHJD kThDFBA+2TxooYUCqnK2bsV8Z43V18uiB01ppAgfXOuUSjwMfeEaG+gx7Ulj nckyMO764ocY586ESq7N+y6NntzbZvZk4enz7uAyqB4uqRXv6bQ1T/SX3Q3Q ygYawkbG6u9gqgBUFHwaHMuo5AqzBQCAWiE+57QQhmHfozIrWgHhQ3/Kin+U iVFv7ScXYX+pTDbPXWt1/dwIJZukzBAFhE+mApLgm2Hlz9ZUPPxRJyEhwBIb ogdNacQLn4ZbpyrnWdhxJL3cOEFZhaCZd/XSFVoYDV9REMklrLMa3QDQqFCJ uY87CdMb/vJXWcoIHzp3+86l4/TVt77PHanZrVIhsirANOxbahSdKH6GKCB8 2IxpwjAyLayPThXO1kTE1WOovurZFT9oiiNW+DTkOlU18ZDdxMeLwend2aB5 Uo1eURCJdazQ7wkAgJqACcDQ8Yh1UUr40B/1YGr0KB3P1P7+TOlu2g0Ptb3g 6aXjvlpsrtvxWj1VRCFyhiggfJjSr8QxR1iYCd/YZ6vIQVMeUcKngdepeskJ H509VHov2NkIvJ0p5Vx/VXd409AVBdFYR7XH4gIAwAM21PlA99B5ewXeG7Fm Pf5t1pH3kH/l9C3irkWQXPINmyQVOqtzqGTs61E6zblRrSkxMyQrfPImMMZp nHwc/urGzYjAX6TBz1ZxgyYrqfXQp0U2wQGzVpjwafh1qlJy93jlhE+uvVoj ZFCWoZErCiLNwlQfiwsAAA9QP45oJPUxL/1o7K0+aJ8iUPHwJYu+0a0pwTOk /GyXZxrzAs5WtYFnqsA6VSvUVsjOdvFpHguWKCRIbYY+SF/2EV322dXG/gEb taIg2iys31uHNZcAACgJUtpF7lC3LMnlmYlevWZfu/0WZPvk2LlPnmjREEeG yZ8a3ZoSNkPUKnzgbFUdOKYKrFM1k03eKdG9lIqHJjqbmZ+7xeaer7P+CuJo wIqCSBByY5a2AIBGphrCh2ZrJfz3GwHssXS1DLUS/vLL7xY3YBNmqPkZAmdr fQLrVNVsRlwvM72yTniiBUl16UhaDXjrGpxc+1biuHtBUGc2AABqnWoJHwCo c+BsBYAqQHevo5tkGQa9y7n2WFRyLXxtsIPRROCta3SotX84bQe1rT0j1+/A TACABgOEDwDIApytAFANqOTKrUu2Fo2myWh7j85bmZ32uka66SyVJmPfRT94 6wAAABoXED4AAABAfZFcjfiv2odeNbc2aYhWs3Vg9OJ1/+1YAjQPAABAA0Nt TI9m+7hpXhgNPIFjAQAAAAAAAACA2udJyH2B7V7x/shvOlszbUbSyQitnadH 3k93t/g0tA7lpgEAAAAAAAAAqEXY2DZCZ3rJWoLj5lYCIt8AAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAJCZ/w+X6A3M "], {{0, 116}, {1107, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->Automatic, ImageSizeRaw->{1107, 116}, PlotRange->{{0, 1107}, {0, 116}}]], "Input",ExpressionUUID->"5d7e18e7-4ab4-41ad-afe0-c63ce62fa97a"]], \ "Subsection", CellChangeTimes->{ 3.746790878526955*^9, {3.746832465983547*^9, 3.7468324662912836`*^9}, { 3.7468430795356708`*^9, 3.746843079796*^9}},ExpressionUUID->"41e09bcc-0514-4f4e-8bb0-825ef6c82584"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "2", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{"Bmn", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"-", "I"}], FractionBox["1", "4"], " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"U", "[", "6", "]"}], "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{ RowBox[{"CommuteGammastdown", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.7467916134430103`*^9, 3.7467917126028337`*^9}, { 3.746794900325941*^9, 3.746794900955056*^9}, 3.7468070348696847`*^9, { 3.7468334204349413`*^9, 3.7468335082760105`*^9}, {3.746838309027896*^9, 3.7468383099083824`*^9}, {3.746838556404501*^9, 3.7468386074481454`*^9}, { 3.746838639940466*^9, 3.746838646651194*^9}, 3.74683870085217*^9, 3.7468431576178665`*^9, 3.7468432125844536`*^9, {3.746843506971836*^9, 3.7468435106593122`*^9}, {3.746844266046089*^9, 3.7468442672691565`*^9}}, CellLabel-> "In[120]:=",ExpressionUUID->"e883fadb-6a5d-4ca2-ab3a-42ad5e764de0"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "2", "]"}], "[", "2", "]"}], "[", "3", "]"}], "[", RowBox[{ RowBox[{"Bmn", "[", RowBox[{"1", ",", "2"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.7467917325303097`*^9, 3.7467917395115147`*^9}, { 3.7467949062368517`*^9, 3.746794918682787*^9}, 3.746807035264099*^9, { 3.74683359863151*^9, 3.7468336048382235`*^9}, 3.746843158352392*^9}, CellLabel-> "In[121]:=",ExpressionUUID->"7bc8ec92-b7e1-4eb0-8b6c-f1ef13830045"], Cell[BoxData[ RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{ RowBox[{"U", "[", "6", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{"2", " ", RowBox[{ RowBox[{"U", "[", "6", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}]], "Output", CellChangeTimes->{3.760467984658091*^9, 3.760468242518027*^9, 3.760470341046876*^9}, CellLabel-> "Out[121]=",ExpressionUUID->"e2faacde-b6e6-4b89-b261-a5bf0655f54a"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzs3V9MW2e6P3qfc6Sjc7Euji+5QMqRZckXSBGyLB1Q9JO5AKVCgmgqhGgr ZKLmQPSbbsjurzCpAokm0FHrak+NJiWdidXWyuw401qdHac7bjeeTpwtnF1c 1VFAGaeBbtPgFhIgyEEmGJaPl5e91rLxn/XP9lr293OxtWcm2Mvrz/O+77Pe 93n/n5PDv/r//neNRvPm/5X8P78aGGv7538eOPvy/538Dz3/9ObpwX869fpL //S/Tg2e+uf/9+T/kfwvm/83jebC/6nRUP9/AgAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQFZkLHLvby67dWywx6zTaDQ6c8/g mNX+ZSC8HRf8YQex8Oz7//zR/PZ+GY5UpJr/gQAAAAAAAAAAoEhkfCvktY91 6ghNfobOUbs3tME3SUVuL3msvfpG09Cnwc29sh46PzX/AwEAAAAAAAAAQKnI ZyH373r1dGKK0Jn7hsd/Z02aHE1PEuMkqbomrgciO2Sxj9vbCv3Hh4PHCE2z 5fLd9XjRf1sZNf8DAQAAAAAAAABAqcjofedIO6HRECbLxU+/Dq7kLMMk41uP 5lzTI50GNkdFtFreu3Z7cS2WnXkiY+sh6p92URkt/cD03KrwFZ3yq/kfCAAA AAAAAAAASrUfDbnG2ho1ul9NXJ+PxA6K/dv4RujWBxZTA3euGGHsOjV6kZpI Zr04eqrLSGQWco79ObC+W6lfUYQqfuBu5PalobajJsuluXXk8wAAAAAAAAAA agW5vXRzqkt3xDzi4J9KImOPAy5rTpKKo8FksboCj2NKWJGpkh9IrroGtPSH 6/pdK7J9LgAAAAAAAAAAVNnO0vXf/sZ5Pyo8lURtIeq9/uHEcH8nNSOMMHb2 D1/48Oq/+5c2lTR/Sx0/MB6wZgrQHbcGnsn98QAAAAAAAAAAAPUt9sA5clxv 7Bu/LiZVCFV2EAn81VXKN6Fo0bXPAAAAACqxH/rk1d5zdu/ik0KlXeKbS3Of W4deHnavVvbQAAAAQJD96OJn4z0t+rY3ry48Q0YKFI0zf7GwQVdESTNDQSQp oQllHgEA1AUxvyCm70NtbWZ3+0OPt1KJODK2+VNo3vPpxX66kIv+jDuyV+2D BQAAgMJ2vrW2pAuiNYx6t6t9OADFIP9WPySEJpR5BABQGcT8wnj1fYiXJmZ/ Qu8HAABA0SKu/nTLfeSE4yGW7YGipfugtdnBhiwSQhPKPAIAqAxifmEl82+E 6fTM3CqSbwAAAEpH/uyzvmbUdwxN/z0Sx/JTUDbk3+qHlNCEMo8AAOqCmF9Y sfybrnvU7g1tYdkpAAAAAMgK+TcAAACoJ1TfR3fRuxIKeG+6nHabNWna7nR7 Az8U3JEBAAAAoOLI2OPAF9Njp7qMBKEz949N/zW4vlvtgwKxkH8DAACAepLK v1kDWF8KAAAAyrUfXfpysqvZNGi74X+wEnn0rf1/GjQaom3qdi1uj1UXlJ1/ I6M/eKwDL9sf7Ff7SCpof9M72Tv250AdpLVr/frW0aUEkEWtx4TD6itKKOf6 Iv/GUV83IQAAgEqQe0vOAb3RYr/HFgN57htvpOrUNk3O7VTz2EAs5ebfyPj6 3cuWZqL93dtr9dUnJKP37Mkf3nbevbRdi3V3aHVxfevjUgLIoi5iwmF1EyWU dX2Rf+Oqm5sQAABANcjtu9b25t7LwaxKvEwF22ZbsOqvM0EEhebfyHjk64m2 RqLt4myk+h31yqM7wxr9KfvCs1rsDNfR9a31S1kMGdv8KXRv3uf5wpX0V4/v 22Do8VYN1lbajy5cHTLpWib/c7vah6JadRQTDquDKKG464v8W446uAkLqpum CgCgZpDxzUXP5fF+s15DGLuGrc75SK016eSGf6pDa7kezt5Ci1xx9mqQf1Mz RebfyGjwcq9eox90hKLVPpaqITfvTLU1akznPOJHK+JDU1nLPCr6+qZ3DDw+ 4nwQK/Kvokt33F+47yzx2RlQjkupKuROJHn3jPYaibx7C3YMTn761WIN1SzY +c7WTk0E1xybWUQ7KIqiY0JFyBQlEPP5Un3+DU2VdPXWVAEAiBNx9RfaMVyA ZO/i5f7B0amZP9+6c38lKiW40i/1WnqnPpsLhVfuO4cNyThu/o03Up73Ryuu fh1h7HytX5DXepKdMc2gS2xe8GDJcUL7ij2Us8b0YNt7tiF1QhtGvXjvr0oK zL/Fl11DRoEPUTy6Evyby24dHXqtM9WTSnacpr5YjMo6GCa3l33XrMMnjMbK ZJvJ2D8+7tVqiPbfz2+L+D7RoanMZR7FXN+KIXf87zTRrUS/K1Lwnz31jR9L /aNXHct8xikSL6WKHMRWbs8MHiM0hs6R31+99Z8Ly5H0LAIythVZXvB9Pj3S lZo0begccwY396p9wNLthOyvpEdvR6b8u8q7qZUPMT/1ZZKjBGK+AGz+Lb4R uv2XDyfe6KX6yZpkB7t/eMp+87uIoqc/oamSSL1N1UE0MN2ly5sxFKTB2PmK ZXjiA7sLe/4CQAlPvJPpnNIrncaGIlGlcC6qM/dNB9Haf/FTb2hDRD8jtSqz lVMSjcqPUZ/ZOh18UY6Oxs/eyVPZWbVisjN173mfiGtP9ze9Ex0T32zk/qDt gLU99T16iyusnG4VCKC0/Bu5FZzuITSNbVN3NvncUsmes/fTi/2t+foi2hbr tzKVJUyOa/4z1VVLfe6Qe61Ct3ss7BrWawjDiHs1LuwrxYamMpd5FHp9K21n caabvsjHZu4XDJfb3lG68dG+6dngGVTFX0r12NsM2i36RtPgh7PF2tO9zYXP x9pSt5T5Leeiutc6kZEbp/VM+BH/kqt+IeazJEUJxHxBUvm3394KOMc6m409 b192+4KhcCQSWQnNfW49aSI0hOn0zNyqUp9nNFVSqLqpOogG/jiUHta9bM6b iCs9SyN3BE0Y+87Z76wgCwcApR3Entx3jZqzwk7Dr6//9/NSQTIeXf9x4c4N +0WLiQ1dhq6Jvwicbx9dmOlrOnOL7ZgdPLB3NFSyH07GNpbnr9ENBEs/YJtd iEia18cD+2N77KEi899BwWTOv+1Hl76yDXXoCFPP+GfCpyLsb/oumpKHY7ro 2yz1t+TzlTsfj3Ya8vQ9GDItB0svykjT9TmXK9cNS88caB5wPhTy/lVkaCpz mUch17cqyB8c3fSFbhn3bRT6R7sB61H6Xuh2CLgVRF5KtdiPLnxioUbx322W HrWli0GlWqvTziXV7t5DrnnHWjkRh+ckE2Ag5mcTHyUQ84VJ/0TipfEbD7Zy Q9ZuxHOOOmzi2NC1Yqs7qwZNlXg11lTtbfrfb+PGwJZ3fBt8rls8GvnH3OdW i4lNxCkpzQgAinYQsndwI0+xmdiHkfGt0OyHp9ksnP5Vq/fHGL/oQ665hxqy VmWSYWcf/VHlmv+WV3zNPaxlT4G21fb9i/J/KxlxWegfe9QawKIblZI1/0au 3TpjYJ4lwWOWzJ+3jnlLzDUgow9cY8dT36RvGxz/wH7N5bp2Zbw3dz6oPGUJ X4SdJ9k8vXbYvVbJV+Lk3qOrfcnHWzvgeMS37ycyNJW5zCP/61s1G550JC02 WyAWsvfQ/6jYxIM8xFxKtSDX/+M3pqbcUXzRv4iHXUOpmWOqXeu0v+1/tyUr 4pitAaWUt1IFxPxDREYJxHyhqL4P8dLE7E/5Ly257ptIZTWIzqm5J0o7eDRV otVgU5VVl6mx2/GDkNuVjG9+R+27wajLDTgAQLCcinDC8m80do4x3eHg91qE 6qFp+5ychZfPF2d+RTd28i2C4IV5V0nnPSqylnB/w/Mm3f6j+JuKyZl/Yzp7 GjFdvkx3VzvgWi368KV36dIQuq4LroWnbOc5dy6Khhh0r4v+NQx2FkHqV1Vu 8SnjWcB6nPrqvquP9vh8t8jQVN4yj7yvb/WQz33n081AkdkCvCYeFCL0UqpE 6uIK/1FM5TRty9TcturOx96ivftIdvbn6LDnl2oflnog5ucnIkog5gtGbt37 8qt/FE7CkHuLl+kCK5qW9wM7ivoBaKrEqsGmijPLMXVDzCwKHn2mcpKcSRzK m60KAIojQ/4tQb0CWL97mX0F0Nh2/pv1EjF2yz/Zc9q9wv6rnbnJJvp1Y6ct WNGX4NXIv234xuk3/yj+pmZy5t+YgiT0fSForj65E5xup56e49bAs+L/9GDF +wfbJ27/o0NrRuIR1yAnFgh951vg67Jm2B4b9z2V/JGCkauuAapzZMwKOAWJ C01lLfMo4PpWD7+KOrwmHhQk8FKqAzWKT80O0JktE9fv855XkCA3ZsfoGbPE 4SSAwsXCzkEt8dLgKe7SH8UU0lQBxPyChEcJxPwy2A/amulzaBhQVi8XTZVI tdhUZb/4bjzvK1mBKY+9Vddp7iqqCs8hAQD1kSf/Rsmu+NGcVY22NHYRKHHC sVTZGpZVyL/t3585Rv9cFH9TM3nXn67//Z0uats0XefZq4FfBKzYiT9yWqiq PtJelOeMxcyT/i3Rn5WR3bdpesdfnffg6ZfRot5LSgtNspR5lOf6lhk7W6DI ncNv4kExUi6lMkWDtk7OcyfoPmHe4xCG8dsqmkedWljX0DL19398zo05GnpD RSgNMb8YiVECMV8WmQ0skqcxa25htaGpEqkWmyoy7LKwq/C1wx6hMx3TH7Pm HuIk4KrX1wUAlZAv/8Zd5k83bWOeFb59aXLZ2Ue31JUtz55S+fwbuexIT3VC 8TdVk33/UzK29fPTqLBts8idwPstMoyenvknj8ncf8haiFShyop5ZYr5HOm2 LworiSwtNMlR5lGu61tmzGyBhrPe7UJDVn4TD4oSfymVKXuxnsBBDVvHoOKV FSWgF9YZxjxre7v+qSOcH39k0o8NGHhAzC9BUpRAzJdHNGA1p2+EYo1CxaGp Eqcmmypmi9vUDdFhfyDyNs09OWLWsQJAHZEz/5bIbL2doR92hfnEZ06lCEmR mYwtfX3ZmmGzX/fcDT0pvR2EmPxbfHPJ77lun2a+zXr56yWeO09QL52H6A4a ir+pm+z5NxHIsGsgtaWdxF1LsvoPRNPknOTeA/kiOM2pLlTpdeXZx/LYPdRE HYXhgk/AQEBiaJKjzKNc17e82NkChMUVKUtFHeZDxF1KpWLnQqfuslecYSG/ ibPWTy3F0+iFdQaL81GcXqMmZw+kPiDmlz4Q0VECMV8unPybghZ6oKkSqwab qpzib+3WgOgBGTvbM+XYpF+dy8YBoDJkzr/lFFUmDNz93AvKzNOWOjOZjIVu Wt/qNRKcX6R7ecpbYIemDKH5N3IrcLmfO2ggdG2nJmb459+eeEeNqT9E8TeV q37+jRksSHhzl5JdtEeWmjNb/kkz+5FVHkowNbEF1aKRGJqkl3mU7fqWGTNb oOhxSquokyHuUirWbsT7bpcu2Wg1mAY/mosInP/FnFKNpnHc97w8hyinvZCj T09020N0Be+cHkiHPaTgu1wZEPP5EB0lEPNLIKP3r4/3GbWmXqs3UmyuPjf/ ppytjdFUiVZ7TVX2YnkpszTJH529RzgtmXJueABQJNnzb4n9De85A6c/PeU/ VJ42x/btcboypzw9wIPYyjfWHnYWnoY4YQsW60YJy7+Rq54zLZxTxnO/V47d eetR+vcq550giFL9/FtmsEC85liSsnIrux8ix7iJ3PCMcDbBq+Li07TMQgMB JX0khiYZyjzKdX3LjJ0tUOQNsvSKOhkiLqWykbGtX7b4vr/Jwm29VJC82ou4 z+i5T1PW8h8UgOMDMZ8fcVECMb8EdvmGRmMc9T4p/C8VOf8NTZU0NdVUZRd/ KzYfsqRd/+QRTkOmnBseAJRJ/vwbd+uoVExj3nTnx5a61bRfXmT/5XbQ9qrY d0bk3qOrfdzdaIrWsBWSf+OsTeDxyXmxL51R/E3tqp5/YwYLEvsze/dn2pmB kyw1GJkd52lVXXyaxsw7/dXMIp+3r1JDkwxlHuW6vuXGa7ZA3oo6B9u+C02D 7nVh3yf0UtYubuslaapGJaR2wdMaxmbZd3LZra+GeMO9ruifUH2I+XyJiBKI +SU9D9qOZy5x8YWEzPkXva1kGaCpqhYFNlVyFX/LXXeP/RcAoJRy5N9y1iAU f43IlrrNnqFNJfHaxNeeJX/2jHCWiBInneGCb2KF5N+yXxmLeUP6Iuw8ieJv NaLK+TdmdYPEhSpMtWe6ayRDdVx2u3maIurYMJV5+FVUlhqapJd5lOv6lhtn tkCR+Uv5K+okG4s24YWnBF7KGpbVeg26IgqePUZu+Kc6NPoz7ginGHnush1l /4TqQ8znT3iUQMwvjTmrhL7vj8HtwueVrS4oS2lBWaCpqh7FNVUyFn/L2RlW 22L9Vhk3PAAoVVnyb0wXglasjAa7V1TDW5wXIsk2662GrPePQu2tOAc4P6zY ezoh+bfsGptiXur94hmmQz6Kv6lflfNvzKtVKT2HpKe+cWYXPFm6yjkTIaq9 ECmDnZzAY2qB5NAkvcyjXNe33JjZAkUGNfubvoum9C3GmeP04ntba7uI9yyC LmUty3qDr+SaM+ReyN6dHLI7QtlbAa66Bzn1KhT9E5QAMV8AoVECMZ8Pcs09 pO2Y/Nvj4qsQD5YcJ+iTqR108tqIrQLQVFWP4pqq7NkUEqbk5b56yHnHBABw WFnybwlyxdnL/djCZS2Z3FfW68Kd72zt5jMeoSs7838yHVuLvHsSkH/LWSwj 4nQ9942nX7+hPoD6VTf/xtxLUsrGUhUNXQPsYm0ZVknk9kaUM5Rgi/O86lgu UVpHamiSXuZRputbduxsgUKHSu4tOQf0mVuCHfikVm20vB8QsVJDyKWsZVkt uBIGNQXEHzktBqLro4XcQTu3SJRG0m6D9QAxXxCBUQIxn5/owkyvtutSMFo4 XxEPu0fo+ZUtI+5w1ac6paGpqiLFNVXZr35EF/oj130TbZzQZxxyLSvlhgcA xSpP/i2xH7Q1cztjhTvVmWoMbEMX/2l2otMw5AoL2tTgkJwcYJHJ5gLyb+vu Qc7POjLpF9iacqoEVH91BkgmJf9G7kTu/iW9Xa/O3DvyL66gsCVA+4sz6RkM vc4V8bdS1rwFEfUMD6E659yHX0mlMIRsTictNEkv8yjT9aWR8a1HfvfH1tHB HrM++fPNPYOj1o9vBkrMYeCFs6+ZRmOwOB9l38Z7m8F/HTG3Wq58fsWS6u4e mfLTJ4Tay6at274o6lWx9H0GFYqMrYf8/3515h3qWulSTxJh7Dw1ZrW7/Uub OSGCammVNajJK77mGTNo2iZ864euVE5JhyruZaMCiPkCCYwSiPk8pU6LvuuC a+HpoU5L8nsf3Bh/ibofiONjrgdRYV+Hpko11N1UsXMhNBJWB+9GPOdM7O9q bDv/zeFGDgAgV5nybznrNIsFt+g/7P3JJpHo+pfbSyvLwa+uDHcYLJ8sFHmz xhPvnyYg/5b9mcL3amOqBChidQZIJTr/Fv/JO/Wy3nTyvWtf+wPz/lu2fuqV a7PFscj7rfnusuPV1L1ENNuC4p+WnW+tLUyX9Ni476noT0oh4+HrFs7WJxoF 7TWf4C5L53FUUkKT9DKPMl3fpPgvgatnO3VZ42Pm4phHnIt8gy21t3VT7h5h bEUdotlIvXUh2oev3AqEwpFIOOR328d7DabXbd4fYyQZC121UPe5edQVXFm5 P2sbMOSZEMWToEupCgexSOCL6TOpK9Vg7Bm1OVwe338FKP/l8/zlykWLiTja a/0mwqYCmOJCNIXOqSY3/z5hajCcubWW51LHI65Bfl0FQMwXSmiUQMzPkTfm Z77C8aaZaDD1//bK9Vu+eSpOzfu+vGob7TE2JM+ByfLBrdCGsB4ymip1qIWm is11U8TNu96P3v9TL/urGtsmvo5ImzcCAPWiXPm3Z/7JY9wPLvY6j3wW+uqP 4/1tumQk7/r1pOPOSkyOifdVzL/FH9+2vW4iCH3vpflNtsPArtHQnnatoj6A +onLv9Gv1C324CZzD2QSs8Qr9hDPSjxMIUHDoHtV4HGzh8Ju96bJ2fFNFHLN O5a1DZRGYxz1PpH0mbJiH3Y+xVjEhybpZR5lub5kfPM7u6VZUxRRfCURY2/R 3m06tAkgU1GnsduxuBG67fzwwnB/JzWrkzB2vXFhxjW3tMXc5wexlTuOyV93 JQdouo4h642FTfFhUNilVDYy+sj74WkT1Tg0mAY/nF1cyzfUS4565i5bjPoB 51L6OeWUM6Iooaj1YdtB2wmiYA0octc/dYRPqwqI+cIJjhKI+Vz5Yz7jIPbk wW3npYnhvvT0J525Z3DMav/Clz+CVfew0VTJoFaaKibXnSKi+Bv5POz5bRuT KibaR64FN5F8AwCeypV/4+5RnlL5XvWuf/IIr5/GP//Gri9IhewCb+r3N71v 69P/hjPLmox4f2NO/ZeoD1ArxOTfdpacpw3tv5/P2jiMmQTCuxQ2W1REwkx+ qpvKPCSGwt1snva3/e+ye+rRlFbHhol4Esrtlia9zKMM15eMR76eaGvUlEYU mJuUdUAb3nOGw8vK2Io6x23Byr7br8ylLLv96KJzxJw6h3yWa8UWHZZjXTP3 UndVdgUbJaauyL1HV/u0R4os3cpel6QhBt3rFT1C9UDMF6FiUaJ+Yr780FSp Qi01VUyuO0VY8TdqhfUt66uZUR6h7/3djTwLsQEACitX/i1nUYmmCu87eO+V wD//xu9fcl70GM556dY2/sv85ddT4brZYr8nsCAGKJXw/BsZuXFaf3zKv5F9 C3CKIPF8Q8qWIhT9ZJE7gffZoZPhgk/ioCl2b6brSE53WTvkLtVbriw2LV++ TrgcZR4lX18yeo+dTkC09o9fcs76g9Ram0hkeTFALRQ6w1np0zrmLXqhqGH7 0TxZFKaiTuUH3ZW4lOW2G5m9mH6Hrj9lD/Lpw6eW+zWmZlBnVbCRpWaU3MgV 92mjpnjd8pxOiAJ/hUIg5otQoShRTzFfbmiq1KC2mqqs4+G/3PsgFrn3lX0s czc2GHvO2b2hLUx7AwChKpd/q/h6/5z8W+EXHGLzb4XWCJB7IXs3Nae9Y+zG /WQHYsH3mdXSSmgIXefZq4Ff8JakdgjOvz0LWI/nq3fNeRnH780gO2mk8bzv uajWn3zsHmpixkySCxJm1fRmnqY+p8hNpcrl4IG9oyF1bEeHPb+U5ztkKPMo 9fqST+amOlOX42iv9d9DW3mHUGR8KzRrG6Bf4xLd9lDBlWipGQUNbx16d8+p qJO3RlBZVeJSlhP5bMF+Kv0OneicmnvC+/xt+Sc7OuwP4lnzsUXsB1Ruqdum 5Hh52zvawI0ZVZ8aoVCI+WJUKErUT8yXG5oq5au5piq7+Juux+YJFPNfPs8X Trt1lFqWTp0CXdupiZkv5kLrMuwJAgD1qXL5t8rvd5O9B0ThXj3v/FtOBdEi v2hvc+Hm9NjrnVQd2vT+TW7/I1W9JSFjoesjbXpNFejbzriWJBalqQyB+Tdy zT2kPW4NPMv9H7gjUF5vBg+2vWfTfyG2UvPBkuMEW7zipDMsZShGrzI7fClf dSwrLCXAhoWGZLdQ0lvwMpZ5lHh99zd9F6k9ufSvX54vmfBn3mvnuzPTh/PQ cULfYv320MpoZq6v5JMphnyXsgq4+6Y1DzgfCrlRyB3/O029n9y+dpKT/VDc yI7cnptqadCfvlFitJvzpkxRqxcVBDFfHFmjBGK+zNBUKV/tNVXZxd8E0nYO vzfz51t37q9E8aIIAMSq5fwbs+s3HTQLFl7gnX/LDtrEG+519VZyKOlg23eB U6+hsvRvezfVcG6F5d9S+6PlWZzC6Xjz3f6P83yJfGapmXjM+W4Y8WxIyXfG Hzkt+W6WYzOLiruM0YDVTB+dtIk2ZS3zKO367nxna2+kFoksPON3VdO7/hXY ti+1Zi3vuJKtqHNs0l9gQFRGcl3KytuPBi91ZQYkWsv1sNBXM+vuwSO/6u/j PnTV31EuW2pylHbA8ajUCJ780dl7hPNDql6aW5kQ88WRMUog5ssNTZXS1WRT lV387ag1sMvrR5GxzZ9Cfvfl0fT6U6LVYnUFImUvjwgANaiW82/JYxjivHPp nlnMPxDgnX/LTugprp8pNzL25OG9orOyy+TewycqmdYtKP9GLjv7DHkWp5A/ e0aYAuSdtiCfx4Ttzol7Ztn39ZTCb5N52XnkGMgzD0JDHLXOK2omRAp76qRV ei9rmUcp13dv1XVaS7x0/vbPAr5/L+To0+efekStWTuaf1sQpqJOdcpKy3Up K43cvDPFFBsXsOUxR86cMSGDiIpIVf7RHskU3y4uuzR34Za6viHmiyNjlEDM lxeaKqWrzaYquxhdgVxuEWR8/e5ltmJh+4jzPmp6A4Awlcu/DThXyl3GNVf2 dqUF5zzzzb+xu1NpBOxTCTVMSP6NjLgsRLs1kNvUpxalZm4rvtvTs905UZU0 Uv1e5pZvv7wofrUvdxWSVqfj1tg1jnqfiP3Y8uHMYpUU7spa5lHC9X3xva21 sWVqblvYJaULsx++ZKmfqc3b8WYr6gjcPkwucl1K3mJh/42rM9ak340Pn+zv f9msax5w/SjwTG/4p9h2SeQ0pEODmsZxn4LqepOrnjMtGtNFH69pzJzMA6Xy r+pUATFfHBmjBGK+rNBUlQ+aqsKyi7/pLaL2gCajgWl265nGtvPfrCMFBwD8 lSv/trfiHMiKuVV568RWPS0W9nnm38hlRzf7z46N+56W9dhBBQTl39bnPnr/ 30K5M/u4wyL+tUGeeEeN6ftVxHKGvfsz7cxzIa1cdmzB3psuiqwfmLn27kti Hnlq37fmYfdPFVmXwXk1wDfbWUj5yjyKvr6pbfjErRtKRctDQbLQjiEJzpiC 56Jp2cl4KXk5WP7spJG7VYBGeMIhM4RPM0/6t8QcSu6gRlF5D7qmU8sZT767 Jg/O7s9Fm+D6Vlsxn3UQi3x3024dHewxp1Z1EcbO/uELHzr/vijPNHh5o0Sd x3wZoakqIzRVheUUfxO9GDZ7L2lJa88BoP6UK/+W80ZbfMVgaXaXHK+xDUjT O/58K/X55d9SxbtKfRTUF8H7nx5CLUrN3H0CCmKze4sIH4tldxuk1Hght4LT PemHwvCW+6fvueluos/J87ViZt83vbn3jfH3rDb7NRcf3pCoWTKcnrByS7GI vr7UCintkLvofpOFpPql2cvqyVXXgLZQx5vcCV7pMx5tG5qZW6/KeazWpSTj y1fTCSNiSFixMnLNO9bKtjai2xFmORVNUXsWpGo6CakUlDNbvrHb8QMa10Nq KuanPyz2o9f2uknfNTL9+e1gaCWSsnz/DlViyaAh2oftd1ZiEm9sVQT8hEpi vozQVFUAmqrDRBZ/y4Pbe6c6sGfckUov8gIAtSpX/o19l5cOuoKX2Msju+ZJ 65g3T2vPK/+W9fr4SLd9EXEWpOffuBvSCRm8SBmLPfWNs7PvxXaAE9Qsl7n3 2uiDT21JfxB29rEZav5z+fbX3W9w6jTyRBjGb4sKKaoYjom+vvEnQa9vWeTy jtSCfe72hdGgrVPaUrWyqtqgZjdgTffgBU5mILOeEfHNYvYKmqo1r/kUqgwm QBku5v6m/5LFXMntvPVmyyW/nLsI1VLMp5DRe3ZLi2no0+Bmvs5Uuq4aobd8 shCVchpVEfAT9RfzVXrY4qCpkvo5spFa/I0rd+a2pHnFAFBXypR/YzcbolXx jXYs7Bxkq7Z120OHGmge+bf9De85tkI037I2UOuk5t+4zXfTkPsx72dE/FiM 3PCMsBMWBH1p1sfEV90j6cy2vte+EEs+I543OePuPJXuCngetLG78vFlmvCK fJGtiuGYlLG2BFTXtGXct5H+j9u3xw1NA6Kqo1REtS4l89gKrTaf010vWJK0 lJythSowWYUvMnLjtL7R2PlKvyA9Zu4SJe2wZ6P0VwnCqZxfOfJuJFFLMZ8q x+CbaCO6PloossY0Pdeusd32nYTzqIqAn0DMF0Zlh42milb9pkqW4m8ZnLqC 9FlW1eYaAFBNZcq/Zb9iqPJ+03sPnQPM/pJ5itKUzL+R23et7cweQNRrX6W2 8lBZEvNv3EmV2mH3Gv9umfh35WtuzmoAoUsSGLFFR3r7J61p7FaEWmiWvTuw gFUG2csB+CB6poNbYp9BVQzHqjQWo773aOZdSepWaXirGrvF8VSlS0mGXRZ6 JpXAUjY5y1VEP30508uVM+uDXrIk4v1Uuebhcw4tGg54b/Ja2C6Pm95AWNZN 8Wop5qdqf/F5fHbmJpsIgY1jDlUE/ARivkDqOmw0VQppquQq/paWW9xO0REG AJSkPP3enCnHlak4WhgZj3w9wWyirT/tXMp6m1oi/xb/aXbipcwbHIlbzENt kZR/o8cgmbGLsGnwYms1k4/dQ01SH0zyydxUJ/1EaHv/dJ9eHLQ7bz3Kec/Z 61zh+ZhQ2wo3tkz+R3irZLVtMh52DemNA86HElZ/V7oSsijSaq2LR9XtTH8j 1QPXK3uX5ypdym3vaIOoUUlOJRzRx8wcAMWgmFkf+9v+d1sEbLvAkXNmqlMt VuFqKOanpyPy2eiWTvFJqdmuioCfQMwXSF2HjaZKIU2VfMXfKOSuf+oI5zwh /wYAfJUl/5bzikEJi+KzUnBE28XZCDsXu1j+Dck3KEJS/o3aritz1wkdX7D7 mwjazJ1ccw9xulVHJv1CliTQdpacp/WHnqNUPRaGkF3GqJ4ev4VL1L57Tabf /Ie0fd45WzOXYZqNTEReX8lSJ4c6LeTe4uV2TactKGqPiwqpyqUUX1Ens89I uhUSuCCIcbDtu8AWQzBc8Clk54W9RXv3ESHbLnDkTCM4MuWXNCyqSTUU89Nz vfishKV/tZQtcVUR8BOI+QKp67DRVCmjqZKz+Fsi67LSBLyDAID6Vo78W87U ZcM5rzKmhZPR+86R9nQyTf+q1fsjPeGmQP7tILZye2bwWPrf616evPlQTPIt FvbfuDpjTfrd+PDJ/v6XzbrmAdePKgjSZOzJw3uBKrj38EnJqVDKICX/Rq+s oQneW4qzv7CAZ/Zg23u2Ic+tzt9uZPZiuv62/pR94VnmoHP2UBCQTqTmyvJZ uJSagKHtuhSUVIs7IfbUVVi1DjL1mr7bsUxSyWHihGOp2v3loqpylkRX1Ml5 +sRW1CF/9owwYyPl7ASUqrNKvGIPiZqEQv7o7D3C6YgMil3uVMNqJ+Yzay2J 9t/PbxeN5+kFdEIqy+VSRcBPIOYLpK7DRlOliKZK1uJviUP7DIpOVAJA/ZE/ /0a/jWIoIuqyyOcrdz6mtranNJgs717zBh/eGud0/XX9zvsrQe+1906a0vt8 tVqsXwTXRYbVg+XPTho5TZngnmq17G96367kdnFZlPCmjA/x+Tfum0FC+NIJ znIGAc/sdsDKeTR5Lf/h2o8ufGLRp56KrIFYIrcQUNbGZCU+k6rgTfWii/+z 3VX3W4ZDK8dFYXvCCl4rIO76yvHFyTs6eV625yab9AqYt1xcVS7lqnuQfnCF hnHONaWILM5PrrrY7UVb3vUXT19UCrl264yhoWVqblvkHZNTBLKqBWMVqmZi PveoCH3/H3wrzwvcNWQ8fN2SvNtb3g8Iez/FpYqAn0DMF0pVh42mSglNlczF 37L3tdEoYXcJAFAN2fNvdAVmhjK3Co1vrwS/dljf7MnNjHEQxq43puxuf0ie uVhkfPlqej8h8bVMK4ncW3KdaatKBk7fNnI9pIoZcOLzb9wXZ3mWTpDrcx/9 /uuVgjlIzgtK/v253EkmgsZinIHY4S1IqBpunDVOMncxydg/Pu7Vmn/jjchx TzCd0oYO+wOlJnlFXV85pAY1v/vac7ZBUs3zyqjGpWQWsAgO49mDGu2boqqF cxett4551xQRJVN7WUqb6M6ZHyI4NNWJWor55E7gfTZ5p+seu3o3Ejv0BMeX XUPGvHtmCaGKgJ9AzBdKVYeNpkoJTZW8xd/2Vl2nuUXyiG57SCEbIQGA8smc fyN3gtPt7JqEtgmftFpN5UbGtiLL964Oc0oCNHZaby0ur0VFFLEp+k2iSzGA conNv2XV5GmdDr7IudlehJ0niaL3CVugo/G8r9D0gfxHK2IsximfqH/98vwv OZ05MuKycFYiybsJe2r34aau6YA8pRfJHxzd9ONuGHSvyvGJZSHm+sqBukeO WIaHmhtGPBuKjt0SLiW5Ewl8abeOneo0Ehq9ufeM1elfoYf/yRbh56dFgj+7 gIV6PMn4Vsj76TvDvWadhtCZ+4YnP/WGNgoNdbKeP1FDbM6MAkJ/+kbpfDT5 s8/6mlF/fMT5oMibfjK6dMf9hfvOkqhHjG70jafdUirf5BTSEbviqabVVMwn Vz1nuNPnNIT5jP1OmHntRsZ+9FCldyUX3VVJwE8g5gukpsNGU6WEpkrW4m/k 5t8nTNz0m+JHuwCgKLLm31IjZSbANbZb74pdjVJRJfY/lYfoUgygYCLzb/E1 N7O7VL73odSOdc2ttu9fFPmMdfdgevjDu1YS+yeCBrn70UXniJkeiOUsQUof bs4mUHK+vScj3t+YtX1XH8n1YpF92o/bghWsci2UiOsrh8zpUcMaeTGXcj8a umm1tBKaRvPwh27/g5VIOBT40tZv1Fs+Wdh4dGPkfxDFxgvMAhbi6Htf3fvi Qpf+mOW9f50NhKjPmbs20WUosk1PVspCxEPCnVtueMu9WrIZIXf87zSVbtmf +sbpgZqgJYQZeyFHn17yE5pTTKxMrbDK1VbMJ9e/Od/WqMmSfCrtd1a2NkP/ bu09Kr7oLpdaAn4CMV8YNR02mqpSf1CBpkrO4m/0lG+WVvK+YABQZ2TMv8VX PGPmzAcR+gHnkkrm4lYi/5YuI6yS3gLwJC7/RqXXmjL3W54aFKnZcaX286Je ltM9JN5TGnIedl6pYHYJEtH2tit0eCCWOLzfsXxPUHzNM2YQXdQ9L2aMI3JV RaWIuL5ySN/RqijAKPRSkttL7vNUJXnipXF39rh+76FzwGTsPJ5eE15w6imz gIXQGZv1bW9/vvCUMzTJlKvSGIdcy3mGLNydiQTffvubvoum9B/zXIu9szjT TX9Zsb0pt72jDaKfiFjYNawnemcWpN6iORO1lF2qq0pqLeaT8fV5x0h7VoIw 84FdE58FIuKLvrHUEvATiPnCqOmw0VSVUIGmSsbib+x+0OmoKsO+YABQZ2TK v2UWC6SjEfWCRj3hqBL5N6bhUEfxN+BHXP6NOw0+z9YD1OJTbelSEkz/ive3 Mzcho/i+q+Tz8Fe/69IRqSrZl+YihcZtOYW4W8Z9G7yOpxR6hr+8q0vYNT7H ZhYVHaKEX18Z0NNaRGwIUgUCL2U05BhM9ZmbB5wPD20JxN02qHCOgvPkEm0X Z/M8EZlnIX8xNG7FmFIJ9uzDi6+6Rwx0A8t7RR676KnII8kpjFB6G5RDRxV2 DekJWZ7Qg5C9gxNEGsd9yp6rVBW1GPPJ5yu+y4OmnKMkdJ1nrwZyF72KoJ6A n0DMF0JNh42mqtQflbupSshW/I1JjTKhKv/pBQAoSob820EsPEstFsh0nNvG XCH1JN8Slci/ofhbjRKXf2Mfunwv+3a+tbYcHSg9N559nXdk0s+r+c+pmJ36 00LbE5OxH73WV1OdwKO91tnw4eLYrBVXP3fqilzv7reDthOE5ti476kcn0Zj l7kpfoAv/PrKgC68rIptvARdyv3NufdSfWbCMOJezVszh306Cq7RYxew6Idd 4bxvz5k6Zk1D7sd5voZ6uulv0ZZYYM7BKezQ2Hb+G77rXDY86VXuxWYLMIUR ik48yHtUm3emqPWDMpXVkn8r9tpTezH/IBYJuKwnTYSh89Sr5tyZcIauCdfC Zt6D5UlFAT+BmC+Eig4bTVUpZW6qKLv+ySNsZBFX/I2MhX3TA5yZb8VfUgAA FJTz0llgpzdV0vPKGbbXRLSPOObXZd65oNy4xbiEtTW8ofhbjRKXf2PnJBxe jBwLOwcbuj5aKL39q4i3gdxNV5ln9qXxGw+2uM9sfCPk/dNwuvjPwLQvXOJY ckt8H5v0P+NzNMWl6/c2nPXKubrkmX/yWPGOq2JIfNsrTmoZiMznvEwEXEpy 7dYZ+o18kbXM7ISBQrVl2Io6hSddsDvHFRhBM8OrIiOjrGOPR77JvN462mv9 JsK3eSWf+843lrx/eE08OOwgFv5qqove0U9aIR3mQJYd3VlRRPmzlSqvtmJ+ /GnQ+XanTqvruuCiFscdxFbu2Idzl6MSpjcceQrQ8aSigJ9AzBdCRYeNpqrE H5azqUr/MWfSIPWLe50/CpzrvRO5e3Ws08AJTK0Wm7foSwoAgLwOYk/uu0bN WX2dhl9f/++SGy8dxDb/e+HODfvkYJuO6Ss1mAY/9C5L3m9BwnY/YsS3w/PX xnKKAOsHbLMLkaiMq0SZzcdR/K22iKz/xtTWyJk2QO4tOQcMJ6zz/JZzMXk8 vr3Qg23fBYPmsAZjz5tW+zWX6zOHbbTHSH+ooWviL8F1Htni3CVOhGHYeX/5 vtd+LvlRYjeZigZtncnP0g655dy3/uCBvaOhaMdVSQRfX+moNRraYY8864fL SsClfBawHqdvzSK3U/ZucXn/CbOApUgYZ+rYFH6ZRT5bsJ9KvUMvVagh2Rr6 7UP00jzi+JjrgZBa9Pwq6vCaeMA9pNjmj99/ZR/rZJt+DdF2/kbhrfRKi2+v BG9wptDTzGM3l0u/hag3NRPz4z/NUhVLDi2XIJ9TSThzTpeMz/A/769XVcBP IObzp57DRlNVQnmaKlY8Gr5z2dLMCSi8B2LxaCQUmHV+MMLNvCVHuxbrjax6 egAART3xTvbTXuk05hTc4HTMOl/pL+Q1Ki+WhTD1nPvoZuCx5K6yxO1++PjZ O3mK+SU9Zn3+E8D8MmPna+wvf8/7ROz7eOZ1FYq/1Rix+5+ue0bpZT6c96EH sfCtibZWi2OR90iD6WW1WwP8slypzQqL3/Z078IVXON7p+aW+GYfIF3Xu15x k/O3b49Tb4FFLTQojN3VSx3LwIVfX4moSEU024LKn3nE/1KmJ1JSCiy0oXB2 iytZUadYGOcUmSkymZx8tuh8i543TpjPXPEuPsl5jR7fDgduXh7t1qWfxw88 SwLfbbGzBYos0eI38YCys+x+Z7D/ZbMuX7H8THPZf9Yd5vtY0R+Yr0fBpTP3 pFpfy8gnwagKntjyq4mYT27MW7uJwoN6ap3XzGkT58bQDrhWhXf81BbwE4j5 fKnnsNFUlSBzU5WgCui5JgfTA7cCbVb26I7nYFe+0S4A1JmCvSZBCJ355f7B 0Umb3fW34I+bcoQiGbb74YMqWsIj7uaG4VSmTvyO8Nmvq1KLdj99Z7jXrKPO ZN/w5KdeKZMHoIpE5t+SN/zPt89T+5UQbWev3f6vwPxt9+XRTv3/GHLwK1eb +frM0umGDvsDfo8FGY/MZhaOHWboHJn+Qmjv4nCJbypIHKPmw4qsA3mw7T2b +kh554syH8v/dFWXiOsrBbnjf6epoqW/ReN/KandTNK9aF6DkYK3HI9ZB8mx 0bz1aPrbSlVw2tsK3fqAet+UojP3JJtUa9LF0cGezJChwdR/Mdk8bImY9c3M Fig2kYbfxAPK+u1xeilSqvXPP0ppMJ35kvfbscwHZjJsRYdAhK77clCOzTDV rwZiPrkTeJ+q/K4ddBab1bYfXfJwZkUKKgJPU13ATyDm86Oiw0ZTVYrMTVWC 01pJRg0XLanB7l88d+6vyLkqCgCg6uTY7ke5OK+r3vvq3hcXuvTHLO/962wg RE3wm7s2QXWMee8TBIoiOv+WoEvufDr5xglqgKnrGJy44hGehiXX3EPaUh2t w38Vexz4Ynos3XfSm3sGhif+cPXW3dATcbn06KLdomM7LH3nLt8MRKSMlpma RcdtQRlrZmc2/CJecyypI4qIu75i0V1cecr3lRnvS0mGXZbM5J8i781LTxiI R1xDRKn+P6eeKs+qaHtbS3dvXf1wanQonWui8lEnh8d/b3d9E1zZFtvdZ2cL EBZXwZyYpIo6UB3qj/l0AoHXzpVk9J49vXBMRD5KfQE/gZjPi4oOG01VcWiq AACqQp7tfhSMeV1F6IzN+ra3P8+qG0DGw9ct1I8zDrmW8XJFZaTk32RB/uwZ oYcn1a1vs7e1fC8QCARDERkqNLKTK8RPOs1jZ26yKRVo+pwy1IuvjEpe33SZ mgHnipQNByuC/6Vkdz0rsliJfBGcbtUUH/MyNbSLzMnkTmA46QzLvY2PAMxs gaJZC/EVdaB61B7z048k37nNzKI8wVuCqjHgJxDzeVDRYaOpKgFNFQBAFci0 3Y+CsQevIdouzuYpjZJ5QWY450XLoi5Vz7+lF2KImx6gUPtBW7pUrpx9LaYO eZHKKgpUueubLlNzZMq/q/DTI+RSsiUXiry74bM/NVW7IPVvCg/6yMfuoab0 nSuqXJVs2NkCRapICaqoA8qh8piffiRz9h4qLPNYCcy/qTTgJxDzS1LPYaOp KgVNFQBAFci13Y9ysQdfcA+vvRXngEaVHcW6V/38W/L2WbR3p96btl9e3KuB 24dZr508r9aAXNPfmEkFLe8H1FVIqkLXN12mhhh0r5ftO+Qh6FKyg5rumcUC 73fYhT/cCQO7S44BM7t+JzOoKTzoI8POvvSUguPWQFUXRvGaLZC3og41YGxS /j1Q51Qd89PTm/mvI4sGrGbBySj1BvwEYn5x6jlsNFUloakCAKg42bb7US72 4AtXO4lHXIP0WRC8wgKqSwn5t8T+hvecQQldKXkwqyfkzL9lQs2RE46Hqkvh V+T60rNwZd5wthyEXUp2UU/htczMemduRR3qvXwzpzBOZpZywXuSeZekNU38 fbOaI37ObIEiT1D+ijpb/sk2PoW5oKrUHPPJZWdfstXUttq+57XsLZ1zELb/ gpoDfgIxvyjVHDaaqlLQVAEAVJ5s2/0oGJ+DZ17uFN0HHBRIEfk39nV5w4hn Q22v+g9hVk/ImH/LdDhVusS7Atc3XWNT+cWNBV5KdqFNoUENs/uPRnNsZjHz kdQSJy23ME6mtco/qYAp46kh2t6b26zuPcZpUAo+QfubvoumdOP7hns9c8Av vre1tk/6typ3sCCOimP+XsR9hnriDGOetZLxnX6yCP3pG7y31k2oPuAnEPML U81ho6kqCU0VAEDFybbdj4LxOngmR4f8m9ooJP+W2N/2v0u98ixSRFEt2M1W ZMu/kRuzY1SRScMAr32+FKjs15dcdnSrIcYKv5Txdc+oPvfVOWM3MnuxLf0S iBt+91ZdpxuzSyJkJjP02EOHygjEFh30Lo36QUdIwCydsmBnCyRH72e924dn XpB7S84BPXHoKUsV91bjer16pOaYH192DRmTh663fLIQLZYBSO9/anjLvSpg ZYD6A34CMb8QtRw2mqrS0FQBAFSebNv9KBevynW789aj6fYF609VRin5N2oj E+9YK7WJ8JlbheooqkP6lMqYf9sO2k4kHzCi66OFmGpPTXmvb7qijuJjrKhL uffQOdBMDfaHXGHuRo3xX+btvzYZTtnvui+mtqhjBjXk9txUS+ehlV/0t+eu 2SGj9xxDx6ijavutJ/y8+ncYU1EnNffC4nyU/QztbQb/dcTcarny+RVLaokb M02CXPWcaeu2Lyp+T0FIUXPMzzw1hK7rgitrR3jG7nrQOdbWSJjfci4+E/L7 aiLgJxDz81LLYaOp4gFNFQBA5cm23Y9ixSOuoVRjWaxUxUHI3pE+D3qLil/X 1iXl5N/YrYQ7pvxqW5DExX0lKsNeV+Teo6t9yT4e0TuzUO23vdKU8/puB6zt io+x4i8luRn4iHrpb+iauD6/9DiyEgp4rox2Nul7rZ6lbTIRX789RU0t0L46 PffD6tId+1B7+/lv1g+f5fhPsxMvEZqjvVOfzYXCkZUH/hu2QVODhmi1fPDV UtGZPJXCVtQhmo3N1FirffjKrUDyaCPhkN9tH+81mF63eX+MkWQsdNVCTS0w j7qCKyv3Z20DBrWnLOqMumN+fC3oslqSj4+mwdT/2yuuWX8gxe+94fhgtMdE JB8r642FTUGD7NoJ+AnE/DxUcdhoqvhAUwUAUA2ybfejWEwl+SLF37hF8Lg1 HEANlJR/o9YveCdMqn/vv78V/PStrlZT16g9KHnQkV7opO+1L+Tde1hVynZ9 0zlPZRfYlHgpk4P9m/bJ4T6zjiCMXafGbM7boS12jsHuevCv02P9qf+175z9 zkqswOwKcnvZd9029nqnMTmWMXaeGrPavwxElLMMhqmo09jtWNwI3XZ+eGG4 v9NIjW6MXW9cmHHNLW0xCY2D2Modx+Svu5K/RdcxJDjXAVWn+phPxiL3/uay W8cGe8z0xOfkU9U/fOFDp/eeiMeqpgJ+ot5j/mGqOGw0VbygqQIAqAbZtvtR LKaS/IBzpUBjwdZc1WgHXKuK/0mQRVn5N6rmyLy1m9Ac6ZoORHEvJWJh17D+ 8GoO9SrT9aXDrPZNj3JrldfcpSwTdvrocVvwebWPBsoPMZ9Vi1GifmN+Pio4 7Fq8CcsBTRUAQFXItt2PYmXyb/n3IaKQYWdfevZbWTeah/JQWv4tkamvS3Rb 51W4IklO6cq9CtjkS1ZluL50mUrC4hKyw2Al1eilLAemok7+ctZQixDzKbUb Jeox5uen+MOu3ZtQdmiqAACqQ7btfpRqwzdObWBVuIx8ZoPyQ4VSQR0UmH+j SojcmWpr1OiHXeGaWIIjCrl919pemydB7utLV7RW7l6BNXwp5capqKPcISrI DzG/tqNEvcX8ApR+2LV9E8oKTRUAQPXItt2PMmVqu+Wf/0bGw9ctqRdAeFmm VorMv1G3VuTribZGou3ibETBVYrLh54woD9lXxC0cZ5ayHt9yZ3gH7pPXA4q pzAMV41fSnkxFXUaOuwPMKWgntR3zK/9KFFPMb8gZR927d+EMkJTBQBQTbJt 96NI5KprgMqw9dhDh16H0Y01tevpoCOk+o266pRC82+JVHf9znR/s7b3T/cV sddVBaV2/tK2ve0K1XA3uD6ub11cSvmwFXWOTfpV8YoKZFQfMeGweokS9Xp9 VaFebkKZoKkCAKg6ubb7UaLtoO0EcWh5KRm95xg6Ru3z0/ZbT/g52mu1Um7+ jUJGf/B8cPo1+4N66qzvb3rPd404Auu1Pwmk1q9vHV1KeTAVdRRdnxzKqNZj wmH1FSXq7/qqQn3dhDJAUwUAAGWVei9GaI72Tn02FwpHVh74b9gGTQ0aotXy wVdLeI+pasrOvwFA3WAr6mi6Hct4qQMAAIqDpgoAAMqP3F72XbeNvd5pbNAQ xs5TY1b7l4GIMmtYgBDIvwGAIuwuO16lpxQcm7mP9zoAAKA8aKoAAABALOTf AEARyJ3glT7j0bahmbn1/PttAwAAVBWaKgAAABArnX9rMI/+0VXQN6GoiioW AgAAAAAAAAAAKEY6/1bcoCuCd3wAAAAAAAAAAADCIf8GAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAIh1EQ9+4SvlrIHJQ7QMFgMrYD33yau85u3fxSazAcx/fXJr73Dr0 8rB7tbKHBgAAAAAAoFL70cXPxnta9G1vXl14Rgr7293I7UtDbUdNlktz6/Hy HB6UWzziGtSUorMGcIGhtkgJfYnajn7xgFWXevAJk+Wi3e0PPd5KJeLI2OZP oXnPpxf7TQ3U/6w/447sVftgAQAAAAAA1GDnW2uLls6xNIx6t4X8KbnqGkj/ qa7ftVKuI4TyQv4N6pKE0Jeo9ejH5N+KIV6amP0JYQEAAAAAAICXiKs/PZo6 csLxUNAaQ84Y7bg18KxcRwjVtOLq1yH/BjVIQuhL1Hr0K5l/I0ynZ+ZWERMA AAAAAAD4In/2WV8z6juGpv8eiQtcgxV74Bw5rjf2jV+/HxW+fAvUAPk3qFFS Ql+ixqNfsfybrnvU7g1tYdkpAAAAAAAAgFyQfwOoO1T+TXfRuxIKeG+6nHab NWna7nR7Az8U3JEBAAAAAAAAAERC/g2g7qTyb3jmAQAAAADqHRn9wWMdeNn+ YL/aR1Ip+5veyd6xPwfWd6t9JFBvkH+TTf0FLlnUUfRTzh0iX/6tji4fAAAA AEBtIePrdy9bmon2d2+v1VF/nozesyd/ddt599J2zZUaAiVD/k0WdRq4ZFEf 0U9Zd4iM89/q4/IBAAAAANQYMh75eqKtkWi7OBup/gilwuhRjEZ/yr7wDKMY qBTk36Sr68Ali1qPfoq7Q+Rdf1rrlw8AAAAAoNaQ0eDlXr1GP+gIRat9LNVB bt6ZamvUmM55JI3RyPjmoufyeL9ZryGMXcNW53yE5zCLjD0OfDE9dqrLSBA6 c//Y9F+DFVhVRMY2f7x/x/MXu21ydNDyWqeRoDbhSx7Ay5bhiQ/srr8FV6JF ti8kf/a98+orjocoGi4K8m9SIXDJQo7oJz70JcoZ/RR4h8he/02mxqs2xKOR UMDrym7Rkrdk52uDo1Mz170lWrTN4OXXO2fuV32RMgAAAADUrPiya8io0Zh/ 443wfoEej64E/+ayW0eH0l1cXcfg1BeLUVn7reT2su+adfiE0WgLlr1DTMb+ 8XGvVkO0/35+W9yX0RMtWnqnPpsLhVfuO4cNBL+zuh9d+nKyq9k0aLvhf7AS efSt/X8akkOGtqnb62VKzOxtLd112ycH2/SaLA3Gzlf6KS+bdemBi65zzH4n HMvzG3aWnKf1GuOo90l5DlJ2B9HgJyOW/vKyvOOJ7PE7HuTfpEHgko3E6Cc6 9CXKG/3E3CFlx+bf4huh23/5cOKNXrOezhH1D0/Zb34XEbwLqvTGS+0OYpF7 X306Ja1Fi4Vdw3rN0WHPL5X/AQAAAABQF8it4HQPoWlsm7qzyWeIkhwyeD+9 2N9KaA7Ttli/3ZHpsOKR/5wZPEZ/i3bIvVaJ4RPd/SYMI+7VIq/ICyC371rb Wy32e9H0n6azK5rW6eCLIp9G7i05B/RGzh8mEs99443USKFpck6m88l8204k 4LIOdeiYi6brGJz8k8sbCP20mT0kiUcj/5hzTY90JkfDhq6pr8JZo8L9zbn3 2pKXhxhyCZjnUl37Tzxv6fLct/IacK4g/1Z+CFwyEx/9xIa+RHmjn9A7pFJS +bff3go4xzqbjT1vX3b7gqFwJBJZCc19bj1pIjSE6fTM3KrAmCCp8VKzva2Q 1z7azQZ2orV//JJzNn+L5ndfHqVbtMkvl7Ky7vvb879vp57bVx3LmEYIAAAA AHntR5e+sg116AhTz/hnwmdx7G/6LpqSXU7TRd9mqb8ln6/c+TjVdy3s2Myi HK/f0wtq0nR9zuUKjSjS8yWaB5wPeeZQMqILM31NZ26xw+2DB/aOhtTxDxbJ UKWGrs29l4NR7i+kRmipP22Wcf5McpzyHx9mMgPpaQBf3Ss91yL+S8Dxppkg 9JZPFtI3GD1qTn1Shz2kytWnB7GtyJL3d21Zt695zP1gk8/kEzK29XNyvPy9 j5pE2JGV02s873vO825F/k00BK4yEBn9RIa+RHmjn5A7pLLSv494afzGg63c XNluxHOOOmzi2NC1BzFhnyu68VKpg1hk/vrEr5jwS5hOWl3fhqOlomm+Fi0e dg3RLZpMoQAAAAAAag+5duuMgRA93Mv8eeuYt8Q0DTL6wDV2PPVN+rbB8Q/s 11yua1fGe3MWe8iUL3oRdp5kp6loh91rFctPkHuPrvZpk1864HgkYPIFueYe anjFHmL/hAw7++jfUGQSCLnhn+rQWq6Hs0dh5IqzV87zmSBjYd/MaROTejOd /nA2dGjoV8RuZPZiG9HYdv6bdZKbZCCOWudVPFcg4urn3r0ic4m764GPh4xa 4Y8A8m8iIXCVh5joJzL0Jcob/fjfIZVH5d+IlyZmf8p/c5DrvonUawGic2ru iZCDF9l4qVL86YLrQpcu87TpX5lyBYSs26VbNK3pN/9BtWhUHjidNm8c9z0v 43EDAAAAgHrFQvYezhhSe0xQ3eBMP1874Fot2stP77CmIXRdF1wLT9lRA7nm HWvljmKJQfe66F/DYKdPpH5VpddwPQtYj1Pf23f10R7PL6bG3do+Z5j9588X Z35FH36RpW0HS44T2qyhK/1fb3vP0r+/YdS7Le5HsOjySszkn6O91tmw4PpC iUy1t5Yz/zb7rwPNmU9TUfG3w8jdgPWo6Mcny340eKmLHgv2uyJ8/wr5N1EQ uMpIaPQTGfoSZY1+vO+QqiC37n351T+iBQ+M3Fu83E7fQy3vB3YE/QARjZfq kPH1/7IPMRO5G0xD9nkxu3Wk65ee/tz7OTVvkGYYdK/Kf8gAAAAAUAt2Fme6 2TGk/rRzif9bb3InOJ2qdnLcGnhW/J8erHj/YPvE7X90aMZUPOIaFJ8ALPR1 IXsH+5nHxn1PJX+kMOSqa4CazWQ87V7hN4bZ8k/2ZP3jnbnJJnp80GkLFtp3 b3/TO9Ex8c1G7ndsB6z08EtvcYUlDaLI5+GvfseZJDAwLbisEEf8kdOSvYhP TcXfDstJX7eM+zbEfxj52D3UlPyUI5N+3kNB5N9EQOAqL4HRT1zoS5Qz+gm4 QxRqP2hrps+hYUDgSRDeeKnLfnTh6pApk+Um2keuBTdF17s73KJpeuwhYat+ AQAAAKB+kOt/f4ea2kToOs9eDfwiYBSf6XlKmyGQM4w1T/q3RH9WRnZWpOkd v7AJALJIzyIQWzsovuYeppcjEiccS0LnmrGzaKSNBchnC/ZTzDo7ou28e2lb 2qkkd/zvNHEHK2ot/pZChl0WzjJE7ZueDSk5mL0V54DATA7yb8IhcJWdlOgn LfQl5Ih+8twh1ZXZwCJ5GrPmFvIhsfFSMnrRaOYR07085S2whpcvcifwfgu3 RTtqDeyq9aYBAAAAgEqgSsE/jQp7Bcx0OyUOPJ/5J4/JPOTMWsOlbbV9/0Lq J4qRKWF0pNu+KLiWNbns7KNHT2IKsJMRl4WQPBbITb5dnI3IUaftxfe2Vi3z qeou/rbtHWUXC2o03Q5ptfLJXf/UEY2u37XC+0+UnH/bDd94s6XlzRthRV1h BK5KEB/9pIW+hAzRT647pLqiAas5fSs1nPVuC8tjSmq8lCs7+UZ0W+cPzZ0U Ye/+TDvbDMhR8AEAAAAAIBsZdg2kll0Ur49dUtaQk2ianJNc9Jl8EZzmFGYq voKpnDLLCTWGCz5hwx9O9R4xBdj3NzxvaiWOBbKTbxrDW+5VubIo0aCtM/O5 KP6WJbWtodka4H/HKjn/Rh+bwqohIXBVhsjoJzH0JWSIfnLdIVXGyb+JmAco vvFSrJzkW+HdKwTjFvGQXPABAAAAACAXM0pq6LA/kNI7z653JEuxnS3/pJn9 yGqOoZgy4EIr8GSW/2gIw/ht4UPIDd94i7SxAF1WmhmqyDRPII2tjo7ibzlS +TdBg2Xl598ETecrNwSuihEX/SSGvoTk6CfbHVImZPT+9fE+o9bUa/VGik1Z 5+bfBKX0aaIbL2Xi7G5DabY4FuWr0UY+951vFJ3qBAAAAAAoITNKIl5zLEmZ FpWdwZBjyElueEY4+wdWeQ1XZn2isEJG27fHDYT4cf3+/ZljWgljgf3NuffY eQIafa99Qd4RBbnsSE8XQPG3bFT+jXjDvc7/c5B/EwSBq4JERD+JoS8hPfrJ dYeUSTziGsrE5uKTh6XNf0uIbbyUiIyHXUN6duqbfsgVFr3hQt4vWHH20p+N 4m8AAAAAIDtmlCQxf5JVOEVktZ9sOyH7K2zqqPpruJ54R42pI/nVzOJzfn/C lh/XtF9e3GNOyXbQ9iqfqQhsdkvMWICMr7pHDOwp1PZdfbQn94Ai4upPjYNQ /C3b/rr7DUJYKg35NyEQuCpKaPSTGvoSUqOffHdIuTwP2o5nbpKjw55fCv9L 5uRrNI3nfc9F3KEiGi9Fit2b6TrCPluGMY+Ydc1FPfeNpybAofgbAAAAAMiN WZkicYVO9sZhIqv9ZH/ixuwYJ3ekgDVcTDEi3sXB2PLj2Qt/duYmm9p41ANn J0iIGQvEl11DRvYEEr0zC2XIA6SWWdZW8Tei2RaUvFPg7rLjVU2vc0XAPYv8 G38IXBUmMPpJDX0JqdFPtjukfJhTSuj7/hjcLnxS2fqEoosTCm+8FIjcmLd2 cx4tg8X5SP5QmW7RjvQ6f6yB5xYAAAAAlIR5Ld5uDUh52fvUN85sIChLAfOc OSSKWMMldK0lu3lfw1uc9YzJodBbDVlzQgphro6I8kd7EfcZ7orKlqm57XIM J+jRSk0Vf+OXS4w/CS1GCq8Eo5aMCcwbIP/GHwJXpQmKfpJDX0Ja9EvId4eU EbnmHtJ2TP7tcazozztYcpygT6Z20BkWWT9A/YUCyNjCR5yybxqi2x6SfTp3 gsm/dc8sSg4GAAAAAABcmaUWmoazXgk7o5GrrgEt0y+WYYVL7hwShYyh2HpE rzqWS6+2THfkc+Zv7Hxnazef8ayWHjnszluP0idBcM2f3BOoPe1a3RP0CXxt eKhlZmod06XkFH/jlUtMza45NrNYcCpJfHPx79+EngkZHyL/xhsCV+UJiX5S Q19CUvSjyHSHlFl0YaZX23UpGC08JS0edo/QMzRbRtxh8ZFBYOOlOHuL9u4j nCerdcy7Vpb5abv+ySOi1/kCAAAAQO0idyJ3/2J9q9eYHKbozL0j/+IKCls9 tb84k578IWyhXI6sKR/aARe/8VUR1KiEO4jVNL3j31FCZ1jgfnx0boqbUYn/ NDvRaeBXMprdllFw+aPtoO0EN/vWYv22XO/yqfpvtVX8jVcucTtgbW8c98la Sgn5N74QuKpBSPSTFvoSkqIfRaY7hEbGtx753R9bRwd7zPrkzzf3DI5aP74Z KDFvjZfUadF3XXAtPD301Ce/98GN8ZeoO4o4PuZ6EJX0ddK30q6i+JpnzMB5 sMo1+S2RrmiqHfZI3QAbAAAAAGpJ/Cfv1Mt608n3rn3tD8z7b9n6qU3Bmi2O Rd5zBVIlqlKdWUkFr3a+tbYwk0iOjfueiv6kFDIevm7RarjkTnSItrfiHBBy SNF/2PuTP4Xo+pfbSyvLwa+uDHcYLJ8sFJntwHoRdp4UV/4oe1ZP8utfsYfK tpTmya1h/fHJOfUOVnKLv/HKJb743tZqLFoyXQTk33hC4KoKQdFPSuhLSIl+ KTLdIUnxXwJXz3bqsrKqzOU1jzgX+f6i/Q3vuSaLK3I4aZT8CsebZqLB1P/b K9dv+eYDSfO+L6/aRnuMDckTYLJ8cCu0ITkmCG28lCTrUdXkFhWUF5V/k2Uf FgAAAACoFfRcAos9uMksKowGbZ0Cky2/eIbpxINh0L0q+lDYfe40OVvdiUKu ecdas4c5Cqrtz6yr4rviknwW+uqP4/1tOk2DsevXk447KzGei6GYqyN0ukJO BSpZJvbUMBHF38gd/ztN8i/jQv6NJwSu6hAW/cSHvoSE6Jfz51LuEDK++Z3d 0pwv88Yiiq8eZVDLJ02Fs0YHsScPbjsvTQz3melcn87cMzhmtX/hW1yTYZZd iuDGSymo1CV38lt51xSTO5EHoYiAexUAAAAAatvOkvO0of3381k7psUjrkF6 QMC3ijhbEMZsDYjdGTOrKov0t9L72/53WzTZFFXAJ7U4JZXVepNTV7wMmPpF Qssf5U4VaBpyP0b6rSARxd/ij5wWg6ZY8TdxkH/jB4GrWpQf/Wgy3CFkPPL1 RFtjsdRbJmQYztwqVYkslUGq+mLkil0+ebF76aZPuBz7pAAAAAAA8EJGbpzW H5/yb2R35TnTeHi+3V53D6anSQ2K3byS3Am8z446DRd8EsebsXszXUc02bRD 7vLUWRaFLs5MOW4Llm8RD/kiOJ2eTNM6HXzB//fTU7O4p2/YLawoYJ0RWvyN fLZgP6Uvyxou5N/4QeCqFqVHvwzJdwgZvcfOfCNa+8cvOWf9wVA4krS8GKAW h57hLEottRcAlew92m1fLM8WOLxV6PLJjN3+Nc086d+q9kEBAAAAQJ14FrAe z7eikFlxw3cAvx+0pQcYorf6Ih+7h5hkj7bV9v0LMZ/CyF04Sf8YZVViOXhg 76DzNUflLv/FlVlNLPisbvknzdzTR+StOARpAoq/kbGN5cDNmeF2olxXH/k3 XhC4qkbp0S9N6h1CPpmb6qQf817rv4e28qbNyPhWaNY2QM+dLbodQGryW8Nb 1Z9yVqHLJ6+c+gDYmRQAAAAAKodccw9pj1sDz3L/B+40Hl47vh1se8+m/0Js ieqsF9PESWdYyiiW3Ht0tS+7enmK7FW2JEonSTSahg77A6mry+KPb9teNxGE vvfS/CZ7DciN2TFD6sxqT7tWhUya2J23HuVmAhq7HT9grFJYzuCO0Jlf7s/j tdS+h+W+LZF/4wOBq4qUHf3SJN4h+5u+i6bk3+pfvzz/S6kncTcye7GNOth8 jXL6cB46TujLuAO1ALJevsogf3B0Z60CFrUfBwAAAACACKld4fIsyeGMODTa YzP3eYw5mHpxGk2/KyLmYKiZeGyveMSzISXRQ9fUOkz+KlsSRQNWM31okvMk +5vetzNpHU6dIjLi/Q39FcYh17KgryCXHd1Zp697ZlEBwz7l4swaFeSoNbAr e14T+Tc+ELiqSNHRL0PaHbLzna29UaM/ZV94xu++SO/0WiAvlFrpLDKRKDsZ L1+lbHiGs5Lb4vbjAAAAAAAQjipEbMizJIf82TPCbNPWaQvyqTjNdsXFDWPZ WQqUwm//edl55BjIM4Wk6HrAKmHPGzHoXpf0UTuLM5lsmeGcl16dFP9l/vLr qWFps8V+LypspMFNw9LJhZqrAC8vtsx7SsHib/Hok9Xl4Kxj/Ffp6SNlmYOB /BsfCFxVpOTol+cghd8he6uu01ripfO3fxbw5XshR58+f7ClVjofVcx+ATJe vsogd/1TR7KeLLxRAgAAAIAKISMuC9FuDeQO/VOLUkvmEHKwXfEjk37hQ8XU OIXpFLdfXixY/aYk7gIurU7HTYgYR71PxH5smewuO16VMvznIPdC9m4iORbq GLtxPxJZXvB9ZrW0EhpC13n2aqDk0qfDDpXK6XaouwRVLOy/cXXGmvS78eGT /f0vm3XNA64f5fpN+4szxwTlTMiwa8BQtjkYyL/xgcBVRUqOfgwJd8iL722t jS1Tc9vCbgp6O4/DFz31G7Wv2EMKSRnJePn4kRrAOVMZaXijBAAAAACVQq7P ffT+v4ViOb1X7oiSf12XJ95RI/03Ysb7e/dn2pmZVtIqjccW7L3pItb6gZlr 777Edra1bwqvWX0Qi9zzOm1jgz1man86QmfuG5603ww8zj1tInFGBHxTnUXs bS7cnB57vdOYPJl6c8/gqPVjt//RVlzcsXImfqSUYY/OijpY/uykMWtCn6yZ Dc5olO8n02e4xx6KyXQMXMi/8VGrgYtrPxq81KU/5RRcQS4Z/b67abeOpqNf g7GzPxn9JISUHEqOfgzRd0hq31Vxa0VTWxscireFNkuqFnkvX2mSA3hui1aZ wwYAAAAAKIhalKpL904F1BJnSjGLGMbSr/uZwaaE4jbkVnC6J70YzPCW+6fv Mxu0pX5Nn1PQNCMyFvbNnDYRGsJ85opnPrQSiUQeLwe/ukLtWdlgGrLPr0tf E8YZwiguUcJe0xT1FNkugYwvX01P7COGXBG5Tnp28Tden5waD5al+FsC+Tch R1JTgSvbbmTuUr+eyKqKxueIYj96U9sZ6DpHL7t9wVA4EllevPv1tfdOUv9l 1wXXwlPJ95WSox9D9B1CLYnVDrnXxFy7VDI/u+gfueoa0Jon/VsiPq48qnX5 RAdwNpWabtKw+QIAAACAKu1v+i9Zcvc0LCu92XLJvyl/SW7uXn5Cxn1ShrFP fePsuj2xA5YEdRXm3mujD57onJp7chB29rG7dwpLH5HRe3ZLMzUXxfLJQjT7 PJPP7l9+TZv839ouzkYkpuCUPALNyb+VNVtCxp8/l2lKYenv2g1Y05kyGec/ 8C3+xrXhG28p2xiw3Pk3Mha6PtJWyaDH0LeNXD80cVecWgtcHAexSMA19Uqe XQlKyUS/xraJW+FYzpfvbQbtFj2hIV6amP1J2q2l5OjHEH2HxJ8Evb5lkVOG D0L2jqxNb6NBW6e0Bc6yq1r+TWwAz2nRJBz1waPPT7ZwtwbXEMbO1/Jtdt3/ Sic9Z0//trcMHTYAAACAusQp/lw55SgdzC351TTkfsy7ry9+GEtueEbYuR6C vjTrY+Kr7pF0IXR9r30hltjf8LzJKWaep9JdQbFFhyW1A4Xpoi9vn5kukU2t FHMuSRoQKXkEmjNaETZ/RpiducmmtjJ+fhbmJpezrL3g4m8JepXZ0bJtwFfu /Bt3x8mKk20wW1uBK7ETWfxu3udxOf4w8cYJY1aCgPfzSz6Zm+qkFtt320P5 g1t8zTNG7dKqHXA8ktIGKTn6MaRkaCWg8vkt476N9H/cvj1uaBpQ1mad1bp8 ogO4fG+UXjxw/vNJNsf2Wmf2s5YVqsw9r/X3WwYv3FqpienjAAAAAEpARsMB 701X5dz0BsJiN3QrjFvOSDvsXuPfpRY/SWDNPcwONkWvB2QyZhqtaexWhKr5 Q00uYnvBAiotRxdmelO9aUPh8Q6543+nqcS/4UPJI9Cc1Trly7+lNloVdr9J QIZdFjpvVN3ib8k71DOsLVPxt0Ql1p+SsScP7wXE+NLa2ajRNHZavxT15/ce PpFrsmQtBa5E+udQU3GGRqc+vHrr7tKTOatO0PPLLKotutQxU6ZAWjkyJUc/ RpXyb9T3Hu12/JA6u6mbreEtaWUAZVelyyc+gK+6Bw2cKC3vjO69rQd/Hsyq Tqfvnbm7njt9FAAAAACAlqoXzQz7hC2LE1ukmnzsHmpie6zi1gNmJmxQ48He P92nl4vuzluPct5J9zpX+I0TU2V2eIypmfWGLe8HdkQPQStdwlqI50Hb8Urk 38ifPSPNEpbvCbTtHW2QljPJQ0Txt0Qituz7MvikXL8a9d/4qJ3AlV88ICz/ lt6TV6NpPO97XuSLmYTzcWvgmeiDU3D0Y0jboUM8qjhk+hupbKe+aXJOIfue ZlTp8okP4Dn7L8gdf9hnje5CYXNVAAAAACiC2l4t03cU+maZ7dkK2iWTXHMP cZZaHZn0C18PuLPkPJ3eOJBTkC1VP4ehPTZzn9/Ugd0lx2vp0W+zLVjsb5h5 EVJqYu+tOAfSx9jvioj9lPLYX3e/wUkEcBZDyYqkql0dG/c9LceHH/42xRR/ Kzfk3/iomcBVgMD8G/vtJfJ+5K5/6gidZhBfwFDJ0Y8h8g6RLHVyqNNC7i1e btd02oKVWZ7PX1Uun5QAnjNLWeb4Qy47uFVIsLkDAAAAABRD1eDKpFua3vEL m9PFebMsoCueWngoqT+8G5m9mC5drj9lX3iWOeic3BHvdCK7tqXkD2F+MiFh ZoK481Yh2TXNypMtITf8Ux2FK03JTjHF38oO+Tc+aiVwFSIs/8YmKEpmFMkV Z2860SB6no+io19GtQ4yNbus27FMUu/FiBOOpeqn9HNU5cxICeBs0jj93MoZ G3Nigr5shT0BAAAAoAYcbPsuZGqjiEgocZaiCOiKbwes7ZzusNAVjvvRhU+o nfhyx7CJ3BpKWRvJFbXrn2Q66CV+CGevimMziyInqbBDGCXmSbgp2bJM/yD3 QvZuom3Ct16poQpTAqjaxd/KDvk3PmolcBUiLP/GLqMufdtEXP3pgxS9E5Cy o1+auDtEji9OXrrkedlOBmF9n3NZecmcqlw+aQGcKrnJPl3EoHtdtgPLiQnl K+wJAAAAADWAW2w/z1IXcn3uo99/XXgDL87LX/59cfJHZ+8RTpdV0DCWM4Yl Oqfmssto7d+fOcbpZ/M/JHZQWXK0xRmXaQbFVhJjRhMNHfYHipvgkNjyT/7/ 7d3fTxtX/j9+/wFzwyUXSJGQJV9EQsjiIgitzAVRIiSIdoUQaYRM1QiidyuI qsK2CrTaQFetq92CtiXdjdXWyvsdZ7dWduP2E7dv/GlDVjhb3E8dBZS6DfRr GtxCCgQ5yAST4WvP2DNj4x/zy+Mz4+fjbrfBHs+cec05rznndWz8aVR9WWVq G1mL5fxNjSq/HQgWipav+Jupz72yp9InK4H8mxhGCVyFSMq/7YcmG9l8+5Fu 948lbkr+VYXs60h49GPJaiFqYPJvf/zCp+HeNNJU4vIpDOBMrVH+/ipR5FCK 1GbWgulvDY7gLnkZUwAAAAAgQ1Y5o+ap0NOcruPTiPt5qmj6JTV0k9qnzalX LGEYSyeiX4y1Mh1x8wuX5n/J6YjTUY9dsIhLwmtumfk3uXsT0D+4OtnhhKXf uyrnE8qLLT3E+e30onoz4Oit0FQX1TTmX5c4jKJ3osHPnI6Rs+1WymS2dZ93 uAMr7DZzdHzr519jiYLNj18ommrMdGIr7P/4zcFuW72Jqrf1DI5/7A9vSB7U 5RR/kz8ZUl3Iv4likMBV+lBFHCQ/O0jEpeE/mSpRKbMQ0qNfmpwWoobUCT5i HxxorB3ybRCYy5F9+SoZwIXz/E3Kardmf25W2UYUfwMAAACAIhJrXm5ZRr53 2anN/hqbJ799WuQz1r396ZGj6Mlg/J+wGgZ9v4j4s/3YonvIxo5hc1ZvpQ9X fpkXCetPhfk3ueNHfgx7YjKkYW1v8egV7zluYqSSSnc5mPpXNZ2OeUkjy/1Y +FOHvZky1dkG3/cG7q9EI+HgZ5O9VrP9o4WNBzeGfkOZKPO5G9H8H8otFKUa 3v787vU3Oswt9rf/ZyYYTn3O3NWxjuTIrNHuvBuTdExZxd80LtJeBPJv4hgj cBUiKf/Gv32QlH+Te5zkRz+WjBaihszpIWQ9+yFyLh8BAXxv0dnJ32Qq5TaZ F5T8jXt0wPuQwIwpAAAAABAhlV47muk65qlbwsyOK7X/Gr92SfRsEOFkM7ZT XbqiMr96i2p9zRM+PIY9ULTNGf9OX0r9N9mZBG5kV/Oyb4OIWVOHsCXauEt0 2hlWnoFji89bBzzLEkaz9PaS9/VUyXrq5Kj3+6wR1t737r4ma/uJdKKw4ERN bqEoVW9tNLe+9snCr4IDoBORa/ZUGlrSgeU0NpGpGA0g/yaOMQJXIVLyb/xE L4n5N5nz9HQQ/RgyWoga0ifY8saszO0tykzq5SMlgO9vB97iayxSpyZDiqeq 7d2bbhMsPlVethEAAAAADEy4gC614VrOf069260pvUMl1zcWPWzc9g8LO62m Uvuu0k8in/+xoz7Vgzf3vjcXLdTFzalhfmx0dkPU8aQIsmolVlVlVf2Sl+Xg B7ykLFrMa2fJfS6zKayppvvD7+IK3u0nL6LvD62U1GlmsbCrnzmGxj7394fK qwnXyRZOhgjaOdV6cSZP+8m0HMsFv9iEQE7xN3JGXsi/iWSMwFWAlPybcEab pPybvI0JdBL9DuS0EBWwkyFVnHKsMomXj6QATm/MOwTvlDreC8WUtL94xDPI PR/10J4BAAAAoKL46Rw1LdP3cnuOO187jjX0eSKlkiX85I0j4wFROYicYuPM n3Y6F/MWr6fjP/odzzG93IZux0wkXmRKQDrzkCFt0sKzJdcpMa/1s8fgsrIc ++vel9ivImbRYgGJn2bGTmYGLHWtY19EC5foKYKOR2an+szUyTHfj1JyePub c2+3MlOHLEPe1bxfzbelgjPQ+IWi5kFPJO/mdHsr7j42nyJ2ARGhxd8OkH8T zSCBKz9y82/6iX4yWogK2PoGqhUoU5uky0deAI8vuuzcRgyUeeDvS8VuzCLY udx1v2lv41JwxLdnAAAAAKgoPpV0uNRMPOLur+34YKF0uoTeDTrSM4HyTKLL S7jpKtcXPjl64/6WsIue2Aj7/zaYrpvUNzUbKXEsudXRW8YDj8UcTeZ3rPlH mpk/bBzy/Vzgq/ZWPf9lrj/CvUOXleV4HBhvKT7iIEhOCm7EE5Y2Z2B3PfT3 sQ4LZXvlauhXSeeKXrt53sLuF1l49SufBys0A42vHVR4Sglf00/cQJveCb4j nLFE0sgL+TeRjBK4Snwmafk3HUU/GS1EuZ3F6U5T7at+MhefSrl8ZAZwOnbX KUzB2f86vy4tt0rHHwacLzZRzAupx3PjR9nHI6n1+gAAAACAEPSyu6c+3xiN 3lty91lOiS2Sz+XxxI4acjYj49Rau152OK96PP9wTQ53WdkPtXSM/T0kpoec uzqMsgy67y3f8zsvJD9KzMZk9PqXrzN7FFIFEo/05ldjx85MX341MwDNt2lF 6V9/33m8tuiIgzCJ1bmpPu4tP2U7f9kf3io5EY7eid793DncWZ+6gp6Fzbyz hIp4HHScYL+xZsC7VuDbsvfFy/tPuEVkRcZHzJhXZEqBjj9a/Odoq3D2W7LB TAXWlazOVRHyb6IZJXDlQWz+TV/RT3ILUS4Vr2oGfYpXIJeHhMtHagBPSjy8 lZ6byjCfnvAEo2ImwqVS687hdouJaumf/jczG3wn7DzNTPEb0HKTDgAAAADQ ocS6b5hdISV4l/0sHrk51tpsdy3mXemRD9dDbnMExQ0W98KunqzSKfnUNtkd ntCa2E5tbnV0fjxb3/GWv2DxJSGuWHqetZbMe3Nbt/PeFr9ZoZxMAh312Kni Iw4Cpaex8ae0/fyk+3+D4Ydb2cMWOr7x48Jtr/PtweQgReoVFH7OqqcvvdSv yJIiwb54JWsHFRsfCYq5HR6+0b/OX3rF3ss4027N2gEzp6FZ28/0ZrzwqvfH Slxe5N/EM0zgOkRK/o1ecXeLD2iC/JuMVZl6i37SW4hCqXhFlShBWjniLx9B ATz/8T1Zuf1hKpPGqe8YmnTPBMM/beW8SUnE1n9cvPOFO51aT93dN4QbQMTv Tncc0Ul7BgAAAICKon++9XpqdSHV+urVW/8Jzt/yXhpuN/9mwCWpSH5izTvI 9LXFzwejE9GZiY58c0lSLO1DU9eDD6XNKDpcHT3VaW/pf9+/LGHJZPLA/j3d 30Ix3exPZu8tR6PRlXDQd3m43dbt+DKa4Je6yKrU9Gzb/2qttHNFjNTb/48v 9jZnp6CoetvvmIzT6XZr5gJQTV0XPvhU6hXkpfb+SH+LqGFXwakRIuZXJEeB 844GqmBKYf8712+Zhlpv6+ot6Xe2enbJ1W/O3/ypEjPikH8Tz0iBK5uU/Jsg ASgt/ya9jeku+sloIUrQO4E3jxJ0g+QQf/lICuBF5H+iCUK98IVL/fH+8Y/9 i2uH7u5kTPjPP2cjUmd4AwAAAEA1Yrqg4y+dSvUzkz3Mscu+8IbUkTu95h2o KdVJPvxX8YfB61Mj/V1MysJs6+obHPvLlZt3wo/kpW1ii047tzSKsvZcuPRp MFpke8IiR7YTDX7mdIycZXrflLXj7Ag3rOZKPZfaqSG/zE5t1BnXEvHLr/JL xFbu3fb93fnu2KD9TJeNnQ6UvHxn7IOjjun/vnn73kpMWe6HjnjsmVlGRSov lZ4akYh6BpjxU74dRjKehZ3H019mtpfecIRwyL9JYLTAxZGUf+P/sYiZV+ve fkp0si6X/qKfvBYiF7uOUo0CgGUh+vLpLIBnnmiT48P9vZknGjudeWB4fNJ5 7ebthf9vU+ZODQAAAAAAaqN/9g2xNY0rW9Vnb2v5bjAYDIWjMVk7dYrAFaA2 UT1uyX39nXS5Zjl/Wz12A+NHSiYE6KehqeYSUyO4i1WkdpBwqsbz7shTdX5C xSD/JoVRA5ek/NvBqrc/PaOvdLPhJ8tJTxPpMfpp2ULS1dX63CtEzqUSf/kQ wAEAAAAAyohdOGPSz8IiuegfXJ3sO3tLn+RX7Vz99iIlcUA4xi+yy1487Oxi B10FawdlklHFhrT0Q+/AUfbLavo8q7q/Ksi/SWLQwCUt/8bdSqaSlf/3Q5Pp zSMlz/7VafTTroWkq6sdmQjsEnh6pFw+BHAAAAAAgLLaW3R2Mu+82y4t7hm2 E8wXoG76YyAmcTTGTaU49k5Q2fIyg+OHb53Tizv5/w2/xEk4NWJ3ydVn41cq ZYZvhYe0dMTdk548ccIRJHPZlyTIv0lkyMAlLf8mZiYSa3/D9zK7HLPIppYF vkS30U+jFpKurkb1e9fL9h3ySbp8COAAAAAAAOW1v+G/YNFxNzjxaN452Gqp b3/t2uLjAgMMbqmL9Zx3RepILLMl3JFTru+NM9OmHPjlS/0Fa3dzVeuFtYNS sxMbBSWAMgWLCmajHgcdJ9h0QtPYV5u6ygoUQHL+bTfiedHS9PKNCFG1v/Qe uPKRln8TpJhqBr3FNm7dDjramI9tHvFLTL/pOPpp00LYYFWs0FkFSbt8COAA AAAAAOWWGcTVDvk2dNcTTtfeYQYEBerb0JtfjTUlByGUecATkVymKTNSsFzw S961ocrwS4oKDd9iYVd/ukx2y/Ri5nSmZifWCEsAZfKl+adP0InINTszm4dq fXtu0xgXheT8G6l0Hbjykpp/41NMRZfV73ztOJa6YahOZ1jaTDCdRz8NWsj+ vemW5Lk9NjpbfAVwRUi8fAjgAAAAAABlt78deCv1upo67QwXWHVCrFRho/Q6 lvyLsBIrvhGb7K4+vTEzYqFkVY2rQol13zAzOss7Gt2NzlxszVwrU68nmv7/ 91Y95+qyl8Vlpm10OcPx3I+JL7rszIoqc78rLCZHoQvIv8mg58CVl+T8W/JP lj0D1tRfNF2czR/fdh64mJuJ6poKbUmb/Kb76Ff2FkIvuzpNRXYCrSTplw8B HAAAAACg/Og1/0hzchRhOX9T2vKkymNf8VP1reedoZw5DnRi894nIycoE2W2 /3V+Xcbque3Q5KnkgIPq+GAhrrPzUhl737v7GvNMNUz8Mu98scly1nnHe5HZ jI8bvtHbcxPH2g8tEGPPfO7qJDp21zXQkroirX/wRZ4Y6JIg/yaLjgNXHvSG byg9mbfIxpGH/ip212lnbjr7RwuxnBRcJmdCnRyb+Uli0zJE9CtvC0kXfytV f68iZF0+BHAAAAAAgPKj126eT70rPz4R0NlaLqZL394x9GeXxzc7H2TNz352 ZfJ8ez1lqu8cuTK/LnnZaeqD9x5c6UmtW+2eXsBrerHozeAHqWyApWPs2vzS w+hKOOi7PNx+1Nzt8C1t0weJ9VsTqYRAzXNTcz+sLt12DrS1vf7l+uHrk/hp ZuwkZWronvjHXDgSXbkfuDHZ31Rroprt736+lJtn0Dvk32TSb+BKNvGt5VAm Xvmuuz8Y7Wowcczdo5evXudC2jfLReau0bEffI7nzMlYZfuvSc9XoeT9Eo2E g/97dfw083++7Ar+IrFdGSf6lbOFsIX1iuwEWinyLx8COAAAAABA+SXW/WNN Op3tkNhcCnid40P2Lhuzfouqt3X1DzucnwYjMbn5jPTCLnO3c+HQEhooKrEW +tQ5Pthjq6coa8fZkUn3rfAWnwLdXQ/9c2qkl/mvPRect1fiBeaO0NvLs9cm R15otyZHbdb2syMO52fBqL52YRQJ+TfZ9Bu4YkFHV/uZXhFOt9v+VKpl7G0t 3fE6HcP9ySBImUy11vbewbH33LfuPyp0fxVhqOhXthaS2negTtJkRY0ovHwI 4AAAAAAA5UZvzDs6KdORjqlgrNq7yPGIZ9Asc8sGAKmQf1MAgUtlhot+ZWoh 7GagNS/7yNqcwnCXDwAAAADAkNjayFSnY153i7lURO8tufvMFHZnA60g/6YM ApdqDBr9ytBC9henW0wmyu6JEtTmDHr5AAAAAACMiN68PdFaZzIPeiL6X3gk C719x9FW1WcANIf8m1IIXKowcPRTu4Wwmy+QtTmsgS8fAAAAAIAR0YnoF2Ot dVTrxZkoYVWlNcBOkzCfdS48JmdUBUaH/Jty1R24VGHw6KduC6F3Qn/pPHUp RE49M4NfPgAAAAAAQ0qOU25P9TbWdP/tXlXtU8Zs2VbT+ponjPELaAn5N1VU a+BSRVVEP+O2kKq4fAAAAAAAxkTHfvC9e+6M876xRilF7G/6X+8YcgXXMXkG NIb8m2qqL3CpooqinxFbSBVdPgAAAAAAAAC5kH8DAAAAAAAAAAAoH+TfAAAA AAAAAAAAygf5NwAAAAAAAAAAACWexcJfegr667CtFvk3AAAAAAAAAAAAuRJR T7+pFOTfAAAAAAAAAAAAZEH+DQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMplP/zRc90XnP7F R/Fn+f9FYnNp7hPHwO8GvavaHhoAAAAAAAAAAOjFfmzxH6Ndx8ytL19ZeExL /vPd6K33Blobmuzvza0nynB4lZQIOupNKVST/aLTGwg/3GIScXR886fwvO/j i71Ntan/bD7vje5V+mDB8PZjofc6zGfdy7uVPhLQnpJAbeQoDQAAAAAAoA87 XzuO1TBJJlPtsH9b4l/Tq56+9F/X93pWynKElcPl34qhTo7N/IQxLZTZbnTu vV4zZTLZHMFYpQ8GNKcgUBs7SgMAAAAAAOhD1NObTiQdOeX6vsAyy4IEGaoT juDjshxh5ZTMv1FN56bnVpF8g3J6Fo8GPROnzelGh/xbVVIQqI0dpQEAAAAA APSB/nnWccZqPj4w9VU0IX35afy+e+iE2dozeu1eTPpfE65Y/q2+c9jpD29h 2SmUw0508Zv5WZ/H9Zexl05ZKWHLQ/6tKikJ1IaO0gAAAAAAAKB3qfxb/UX/ Sjjo/9Tjdk46kqacbq8/+EPBHRkAVLDi6a03Udb2MwPDE+9fuXln6dFcJheM /BsAAAAAAAAAGAeTf3MEsb4UKo6fi4n8GwAAAAAAAJRGx37wOfp+57y/X+kj 0ZX9Tf9498h/B9eNv/UhOS1EvfxbFV0+KAvN82/k3Ia6UkV3urgWkoh6+gss 4cerDWOLBR22/Je+1xMt8bdVdB/lhfALAHJVe/wEgGx0Yv3OJXsj1fbWrTWE BWno2F1n8tS1vu5d2jZuCR+yWoiK89+q4/JB2WiafyPrNtSX6rjTxbcQ5N+q lpL8W5XcR3kh/AKAIlUcPwEgB52IfjHWWke1XpyJolMhBxtRTeazzoXHRoyo xLUQddefGv3yQTlpl38j7jbUHaPf6ZJaSCb/1u7wBbN9s7xlxLMDGYmt5VD2 Jb/jc/xWZP7twPj3UV4qh186vvlT+O78rO+6J+mfvtmvQ+GHWwasXrsfW7gy 0FR/bPzf25U+FDisCtohcS2wKuMnAOSiY6FL3WaTud8VRvEi+ejN2xOtdaam Cz75fTM6sbnouzTaazObKGvHoMM9HxWfYaLjD4PXp0bOdlgpqt7WOzL1z5BK M5wJbCGq139T4/IZwN7W8t1guit2NbWtxdujg/be3jPtVvNZ93I1n5nCtMq/ EXgb6lFlA3X5ovSB5BaSyb+JS7lURnpv2RND7vvxIv8qtnTbe917e8m4e8g+ WZ697pr+k8Nxcbg/GZFPt1vrzMMzm8X+hE5E/Q57m7V9zLu8U+rzJTeGanti qhZ+6Z1oMgQMd2fvnc1NPT3eP/7x54vrxpl/uvPNZFtd6qe1TC9iyS45qqcd EtkCqy1+AkCuxLJnwJocOf7eHxXXdU3EVkL/1+N0DA8kB+UUG6gnri/GVI1r 9Pby7FXH4CmrdTJETMAshY5/92F3jYlq+/P8toyDZt+uHuue+MdcOLJyzz1o oURfl/3Y0mfjHY1N/ZM3AvdXog++dv6XxWSiWiduKX9+Sm4hWuDzb4mN8K2/ vz/2UndyLGxK7UvZOzjh/PSbqOT3dwovnyGse/vzdsaSal72bVTraSlOm/wb ArVqKhWoyxmlD+S0EOLzb/RO4M2jpddF/jo72sL8o+dcRn1H8OxH76sv9Pae 6WIec6zaYX/R6RzcabH0e1dLfYGMxlBNT0x1ekHP4iu3pvtbKJOlfejPV27+ e2E5mp5oRMe3ossLs59MDXUwDxNL+4g7tLmn1uFXzk7YeTrdpzgyEdglpwtZ zaqqHRLbAqspfgJADnorNNVFmepaJ25vlgxLiY2w/+OLvc35Bug1xxxfl3zD KvKYEtF/M48G5nMHvGvkxMvS4hHPoNlEWYa8qwlpx01v33G0NduddzNv8Fc8 vcwDsHkq9LT4R9F7S+4+s1XwtwcHT2ZHUy98qKPjc4qui6QWoiEm//aHm0H3 SHujteu1S97ZUDgSjUZXwnOfOJ5vokxU07npuVWJw1r5l88g4pGANzX17RPX tONCb5PwVu90LVflKSlNg/wbArXKtA/U5YzSB/ICNfn5t53F6U62fbVM3ys4 RNn2D9dWzTsC+kd39xHm15rtnkixS70zN36UvTu7nOEikwdZ8hpDdTwx1ekF 7W2GnHZzXVP/+zPhjcI9k73NhU9GWpm4YHvFvajv5Wl09MY5M/cg6vdIWM8B ZVJd7ZDsFlgd8RMAcu1vzl5sSsakpouzm0V7rfSTldsfDrdb8oznOCrN7E1P yk2r73HrbdCffk/a2Of+XspLo9jCdM/R8zf5Meyz+87jtWIeGcx4sLH7Uihr 6Q2XE2hUMi9FdAvRXPr3USdHb9zfyn1y7UZ9F1KHTbUMXC22ainf58q7fIb0 ODDewuVtio1/q1zZ828I1GWgbaAuZ5Q+kBuoic+/0T+4Otk2dmx0dqPQP9oN OhrYZlgN7wjSOduSWTXB1MHjznDpyeByG4Pxn5iq9IL2Ywsf2VPp9282Sw+0 04XmUpfDfM69pNILE+3Ra/6RZsGzx7jTU3Wjytoh+S3Q+PETAHLRazfPpxbO NI/4i81coGP3PSMnmPcH5tb+0XedVz2eq5dHu82mbEpHEKynEffz/LSNmkHv GlFvK8Sg9x5c6alJHnyf64HYBxa95h2oPe0M8/+ejrh72BNRfFoFvRGYOF5j vxbJfpjSK+5uxddFZAupiNTIlTo5NvNT/vZBr8+OtaZ+PtU+MfdIysHLuXwG 9cg/bM3cikXGv1WvzPk3BOry0DBQlzNKH8gP1MTn3zZ8gzVsAysysS0ednax /6ga3hE8CzuPs22mwREsspaK/tk31Mj8O5G5cdmNweBPTFV6QfT6//6+6Whu +r3oXyQingFm3o5ul6ftbwfeOpb17NFgf3AopsraoS5aoMHjJwDkyiQoavo8 q0U6cewuLSaqvuMNz8Kv/BAr97WCier3ris/Kn4uAdOf1tmaJs7joONE6vh7 rjzYE/MDUoPZmh63YDHJk8Xp37LnoPh6sWdLrlM1WeNB9v/e9r/KnsdSJWIK E9dCKoXeuvvZ598V7kXQe4uX2tKpo3eCO5J+gNTLZ1C7846GTIqlGhZ2yVbW /BsCdRlpFKjLGKUPlARqwvNv9JPZ19NTvYpMbBM1R84w+Lx30TZD74Wdney/ s1zwiwrdShqDcZ+YqvSCmA+RfnK4ulU1xybmtnV3XvcWnZ1HspIfpoZB3y+V PqwqVm3tUDct0LjxEwBy0TuhqbZUSD3hCD4u8u+erfj/MvmRN/Dg0BK/TG8t MwJT5dUz/243pWV09lfFH1kZ9KqnL/Xi3nrOuyIinm4Fxruy/iVfuaV9MlRk RL+/6R87PvblRu53bAcdbPKpVImYwr9AZAsh135osjE9AumTeBIkXj5jyroZ q2Fhl2xlzL8hUJeXJoG6fFH6QFmgJjz/Jq74m6g5cobBzUku2maY+ZbMPzvS 6VwUt6xJUWMw6BNTnV5QKv3OTCCqt9nHrt0Tv0UvvTEzYmHCC3U4e0+4eMTd X0Od7D/bKnj61Pd6Vip9YNWrytqhnlqgQeMnABySeOC2p2oEKXiplzOss40H thQfFreQhHH0zYC0aUtESb/RkFUzJLHmTQ8pqFOuJanbeB4IZ6eIKbyc9xCU t5CKy9RFT57GrCkrYii5fMaQvMEHuNlv1bCwS77y5d8QqMuucoFaeZQ+UNhC yM6/8RPbijRacXPkDIOfk1ykzfCT36i2qZDYe1NhYzDiE1OdXlAsNNkuiMCS bvaN2VF2/RxlGb0lf4qs5phFu7XHJr767hPh08fEblkPlVBd7VBvLdCI8ROg knYjN14+duzlGxGiSj7SO8F3jikdiwlrs6s0BMta01TTPPntU6WfWEmZukDi X0Bzf7ns7mHH8zKrmtNRj53tpBcvEVP4A9RoIRUXCzps6dZU+6p/W9rwWP7l MwgSir+RGT8PKVf+DYFaC5UK1Iqj9IHiFkJ2/o2b2FYseoubI2cUooq/7YVd PUzRR6rTMX9o0mVBShuD4Z6YKvWCspfqS8x77G/4Xq5JB1r91NhkF+1aRnxr e7uBiSOCH39kPED2s9y4qqod6rAFGi5+AlQWOwPH0u9drfSRCNARTx+zQV7x wv7FZQVz6uj4nOJJyfTT0JSgUFHxdZd6QD/0DjD7j1nemJWQ/BEULpP5pOOf lTLLCqnSQipPkH+TMcNE5uUzCmHxN2qgQpu2Exk/DytT/g2BWhuVCdSKo/SB 8hZCcv6Nn9hG2T1RFH9L4eckF24zse+cvUy7arS7FqU88xQ3BoM9MdXqBe3f m26p4cJlzWl3RMq5Eaz0J7N01WHsol2L3f0gwVYBEWQ/iAw11aGK2qE+W6DB 4idAhbHjR6KWnHOjhtrjzvuyb/Ls+j+qlAjbCozb+I/Ud+aHxZXXllR/LDMP Wf5Mb26uuLyyQuq0kPKhY/eujfZYa5q6Hf5osS3Uhfk3GYkReZfPILJu8OPO cGXaAYHxM5+y5N8QqDVTkUCtMEofqNFCSM6/cRPbiv46FH/Lsr89/2emXlld 69gXRR+OhylvDEZ6YqrYC9qN+t/qqE9eldqm/g/mohJn33AtPHlRR2efKDoS TTDTL6lOZ5itJB/19AqzHxXrS0DVtEO9tkAjxU+AiiNw/JgZNVBnXEuy5+Fm 1/9RYwhGb/iGBPvp6X1NU9q2f5j5URKqA23fGmUrncoeLPPvueSVFVKlhZSP sC6Zddj/qPC/VDb/7UDW5TMI4UmmGhzzFWoHBMbPfMqSf0Og1pD2gVpplD5Q o4UQnH/jJ7a1OYKFsptVW/ytc3rx8DzW/djCR3YzM74+98mS5H301GgMxnli qtwLouNbv2zF5bRQ/uFCcuqAsxf1njcLQ2KmSaSRWn6rSlRBO9RzCzRO/ASo OPLGj9yoQUkI3bs33cZFNJk1yrJxO1yz9L+mKY17Yf3b6UUxr4z4gt6mtkuL fBd6OzT5nMh3IvSyi503ILOskCotpIyehCZPZNpJ8Znwggpmda/PPpHRSKVe PsMQFn8rnuQsK/LiZ17lyL8hUGtK60CtNEofqNJCCM6/iZrYlrf427Pt2TeO 9nvXtTpSzfBzWfM8zrjkm4yZbyxVGoNRnpjk9IKEeQ/iJ3kyG2XWWEZm+LKD wuNPZRZe8q4T/RMgP520Q523QKPET4DKI238yE1wVTKpnitLy4ZiFapx8ttb s4ywponFFfkRVx2aL+idPQN5Z278aKu4IsBiSsQUoUoLKSvulFLmnr+Gtguf VL7yleyyVxIvn2EQUfztgLz4WYD6+TcEao1pHKgVRukDlVoIsfk3wcS2ItMV 8hd/2wqMt6pR55A0fJupGfRll7rbjc6915tKvjXand9sykm+HajUGIzxxCSp F5SVPeiv3LNYBHojMHHcZD7vjQrqx9M/uruPCNIfZP8EKEQX7VD3LdAY8ROA BKSNH7nsepE1HSX9OjvKbainSkHvnDkVRlnTxODnOYh4kcrviFf7iuAFUzIm v1KbNcuiiJIlYkT+uZIWUl70mneg5vj4/31YfBr9syXXqfRwpd8dkbfCS9rl Mwwyir8dkBc/C1A//4ZArTVtA7XCKH2gUgshNv/GTWwrkn/b35y92JRu3YIp DU+/nWxu0/O23YVwBQPrOl0/8G0m8cu888UmykQ1nZueW1UwsFSnMRjiiUlS Lyhr9Zy6+2uri94LOzspc48rnL1746q33yLIfpD8E6AwHbRDI7RAQ8RPABIQ Nn58MjvKvi6ufdUvd4MVetXTx++io8Is2dw5FST0eVTE1/l5zrVcopAIN47P mhSx881km+28b1XUMI2fuSSrrJAaLaT8YgvT3TUd74VihV8QJSLeIXa0cmzI G5E/KpFy+YyCkOJvB8TFz0JUz78hUGtPy0CtMEofqBWoSc2/8RPbCv1Aem/J 3WfOtEY+R8dsznvsneCOMaZlCvDtkyv+tre58K+J7gaTqaF74l8Lm3slPqEE lRqDAZ6YRPWCsqrHE5w6SDxw2y1UxwcLua9FhWV4TdWxT7ERkd8OjdECDRA/ AYhA1vhxf3E6PR+i270is3+aNQWips8jLitURCqXIhzUmY6+GTBU51nKPneZ ojf8eCLx08xYu2XAExG3qISfuSSrrJAaLYRDJ7YeBLwfOob7u2zm5M+3dfUP Oz78NFhi3poozGkxd7zhWfj1UG4t+b33b4yeTDUq6sSI535M0dcp36aQNHQi thL63OUYfqHdWps8R/W23pGp68Eod9cRUvztgLT4WZDa+TcE6krQLlArjNIH qgVqJSmXcoZ3wV57JpPF7n6QHeT3NkP/M2Rrtl/+5LKdmdhwZCLAnkZ61Xe+ tdO5qDAVpUxZzgw/LyJV/O1J9O7nzuHOelOdbfBv/vCGGuup1ErG6v6JqWov KA86vh4O/J8r02+mGkg9E1Mpa/vZEYfTG1jazLmU+6HJRsLzHimJNd+IxdQ6 Nrt+6IRl7wFE/tO8ahirHRqmBeo+fgKQgajx4+6y6znmvqYaJ0Myl5bvfO04 xvWMW0Znf1V2SHQics1eYxIifW9ryfZW3H2if1rsO2dv8nxQHX+6tbSyHPr8 8uBxi/2jhSITvbI8jbifV1BWSI0Wwkr8Erzyant91nidu8K2Ifei2F+0v+G/ cNTuiR5+DiW/wvWyjapt6v3D5Ws3Z+eDSfOzn12ZHO5KpZVqm+zv3lRhYCLp 8hEvsRa69jqzB72lfehd98xc8pwF/J+8P9hGmfum5tdSp5mU4m8HhMXPggRb gqqSrkSgrgjNArXCKH2gXqCWm3Ipb3jni79RjdbG5JdQbYOXbwbDkWg0Eg54 naPdlqYXJv0/xmk6Hr7CbDpgG/aEVlbuzUz2WfLMf9BQuc4MVxfIZGo82dVq NtUfH3BcvaVO5i196Crl3/T+xFSvF5TrWTwavD51nmketdau4UmXxzf7n1TH JfifWd/fL1+0N1EN3Y4vBdtnCK57iuy9ksuL3vxqrKnWcv7mWp47L9Ou0lDY quIM2A4N1AL1Hj8BCEHU+PEX32ADc1tb+r2rsj5BsOmbKWffN1noNf9Ic3Yf tbLzbcqCnx0jZkU//Tj8+V9He1vrk0/GjhfHXbdX4uJXQHCXWN6rE+Ut5CA1 VN/8xmlvNBVFFV89ytlbdHY2Fd5P8Fn80f1b7vfGBnvS7+/qbV39Iw7n9dnF NbUGYdIuH7mexSMzjtRiJRPV9KJz/pesgRv9eMF51mw+517aIab42wFh8ZOT 2FoOMZ3V4Pys77r7g9GuBr5lm7tHL1+97mPzwcHgN8tbktshAnVlaBWoFUbp A5UC9YGslIsG4Z0r/lbX6VrcCN9yv//GYG+7NZWIs3a89Ma0Z25pi5vg9iy+ cts1/mKHtZZJSd1QvAxTtrKemXjYZa9PzU4Znpj+75uB8CMJvQKRVFuMrPMn plo3VxY69sD//rmmVCeltqn//Zn8/ZNn8ejcJbvV3OdeSkdsQSHEFDJLx2+H Jk9RBavs0ruBiSOC31BkQxUoN4O2Q0O1QJ3HTwBCkDR+5NeVy508nOoTcmHM UjgrIvaAtgNvHTNlI6Hghuq4ygnl3rabq1si7/2U8haSHINEvxhrrTOVRhV4 V5V1QBv+C5aKL3PT7PKV0X5s4SNmooiJar04E81XVoJenx1rrTn98b//QUjx twOy4icvFnR0tZ/pFeF0u+1Pkrt6CNSVos2drjBKH6gSqFlSUy6ahHe++NuJ yZBe3v8b4MGnXjFAXT8xVbu5+E+MLbqHbEzbEFMQI77osrd0TN9lQkN26XgS Ewf03oMrPTVHiiz6zl66aKL6veuaHiGwjNoODdcCdR0/AUhB0vhx3dufHlfL e3lB7wTf4UdhljdmFY6/4nenO47k9E1rBryluqY6tBsYT//Qsg4omNLT7Pc0 T4WeSj+PSlvIAR27y08AoJp7R99zzwRCqXVD0ejyYjC1OPS8YG1O84i/6NVO pREaKl3MR7PLVz588s1k7neFC44p6Ii7h7JYrdwosuJznEiKn5pBoK4ULe50 xVH6QIVAnSEt5aJReOeKv+knx2uIB596+TddPzFVu7lYu9GZi63sB5rPOkOH y9Uexiz2rzvnWd0T5OoZ5alHpwi94j1nNRXf8SSrdD+Rv8L4jNsOjdcCdR0/ AUhB0PiRfwWQqt8rPfrQD70DR7nhV/Pkt08VHU5WefCM+h73MslxUaZn953H 2fpQDYO+X8r2NbHQZLuSq6O4hTyam2hnrmlDt+P/hLfyjh7oxFZ4ZrLPzI5U Op3hgivjmDkAta9U/gWQRpevTIQbBZbaCjbrHk/qc69UNvdJUPzUDAJ1xWhx pyuN0gfKWwhPSspFo/AuKP6Wt+wngQzy4FMv/6bnJ6Z6N1emqgP7aVT7xNwj 0R+3FRg/ftx5PyGsBWEyHRkPELYhItNWS+aTt/3DtcKnB1Gzp6qAkduhEVug nuMnADHIGT8+2/a/mo5AsqrKPltyneKGYdTz7oiSUR07YTh3UGfcDZfZZpBU m3yWKX2jn3h4a/KFJooyd783v8lfSHpjZsTCXKEa5o2VZApbyP7m7MWm5N+a X7iUU1ssD+5l3AlH8HGBw/nedcp8zPH1jtQDUZ+ql09b9PYdR1v6zaWITTC5 0tOMlunFCuc+yYmfmkGgriD17vRyRekD5S1EeJSiUy6ahXeu0JBegq1hHnzq 5d90/MRU8ebajfouNKUDZmOf+3spdzu9E3jzaPdHt64+L3j3QdxgnN6emzhW az53o0SenC9oxTYK3cxrNQQjt0ODtkD9xk8AcpAzfhRsASOnf/U46DjBR68h 34ait+4P3HZBMQFO5cf7ZRILOmzsT1T84mV/0/9a+k2WsD4JHfX/nv0K64Bn WdZXKGshO99MttWlZrYvPBbXNNIbCBbYAZBZQyd/iKouFS+ftviJGSYTddoZ Ljmky9ooioDdl8iJn5pBoK4gte708kXpA8UtJN9HlfwczcI7X/ytZTxQIENF FOM8+FTMv+n2ianazbUfC73XkclZ1NivRRISA/G6t//Ib3t7hOGXtE0nmanR NX2uB6X6FfSP7u4jgh9CWvV+AzN2OzRqC9Rv/AQgBznjR/6OltGv4N/apxR+ dSvKzgNXX54pFZUv9l4+/MlXXPlTsA+R5YKfXaKS+GX+0gvMcK/R7rxboqqq iIOU3kL2Vj3naqiTr9/6WcKX74VdPeb8r6JSa+gajo7PETD57UDVy6cleic0 1cZ1vUQV7NqYHeUqh5HwlpOc+KkZBOoKUutOL1+UPlDYQrKJTLloGN654m/6 KD1tpAdfWfJvunpiHqh1c9Gbtye4zThEvfk6JGfGTuqB7AjukrMemykOVnMk U5+/uOzq/abO6UUyenZGZ+h2aOAWqN/4CUAOcsaP/B0tffE+08nkQlfbpcWC pUtKEi5oqqmvF9b0rHix9/IRLOtT2rml98LOzuQImzo+cuNeNLq8MPsPh72Z MlH17a9eCZZc/1KEghby9NvJ5rpjE3Pb0toFWyj+8HVnfmONrN5CWah4+cSJ RwI3rkw7kv44Ovh8b+/vbPWNfZ4fpZ3drE0wxd1c/NZvJjLWGJITPzWDQF1B at3p5YvSB8paSA5xKRftwjtf/M3U6dJBhUFDPfhUzL/p84mZosbNRW8EJvhy WTInIR/KexAwHV2AXvWdP2Zquji7KSZJLshqpqi1sSwUZex2aOQWqHn8BDAg csaPj/zDVvaGljyjde/edBtXvFJZ5e34grM7XYHY3Dd99a2TfERU4X03M9fa fNYtP2+g/BPyEixqOO4MK13Pv7e58OnUyAvt1uRFMdu6+ocdH3oDD7akTizP JbuFMDv6yVsywxQaPfRAT62hE1GsTDPqXr7Sni3/43mrsFysSXrS49n27Bv8 Cz9x9S7oZVcn9ydErDEkJ35qBoG6gMTmUsDrdIz0n2m3UibK2n6mf3hi+po/ tBJTGvr471DvTi9TlD5Q1EJyiUm5aBneuXFHTcv0vcqHnxIM9uBTMf+mxycm S/nNlcm9p9nGA1tyPiY370HUWw+25uGx8z6RTTUednYJfktVPdArxdjt0Ngt UOv4CWBE5IwfuYqOkrMrzLtabvCloDIJvRWa6ko/ECyveH/6NrPJCzPM63FH FHU7d6Nz7/Wm9nmU/WpD+ScUIgin5K7nl91CUoutxC1vPIwZcGWneuhVT1+N 3N5CWVTq8tGJ5SvpTgM1IK1gRfZOpgVqDeUQlJ4m5S0nOfHzwKQGEd+DQH3Y fix8fazDQlm7hyddN/xzwflZ37W/XuxtZg6SmVR252FchayFsQP1YWJSLlqG d3ondLnH2tA6MD23TujZFzDYg688+Te9PDHTFN9c9Jp/pJmP+EffDOzICkzc QmwWURXjmZqHUoqJZdWVTXYuOl0/kPJy1aiM3Q4N3gJ10Q8B0AAdD18bajWb KsDcOnQtrMa4QkG/4tfZ0RbugOT2Ng9SLyzm3m5lB3XMFtjPIu4e/u2Mkn1e nsWjQc/E6Tz1rrX7hOJ0EU5lt5DEo5B/dllmtuZZamdz4VLHWGiyXdnSOdVV bDSxG3Q0sN8r8S0YnXVziazkth10tEn8E1HHYoj4SX7+zaiBmt0ysrF36quV ePY3008i/j91m9mDU1hUjWXsQH2YmJSL4cO7bAY7M0bIv8l+YmYovbmyn7wi 33zlsb84zUdzBZ9TBoXqgkpAbnDNsr8ZeM9u07LrYrbZ3wuIWlBZgqHboeFb oC76IQAaEO5lpjnza341orHsfgW94Rvi5z4cHfA+lNU7pBOr3qF0YXBzt3Mh frC/4XtZEELbHEFJcX0nuvjN/KzP4/rL2EunrJTwlIkc1in/BPF0EU5VHNZJ 8WR2tO7Y6OxG+n9u3xq1HO3zKJtio7JKXT5uzrzUivdPI27BfvHU8+7I09J/ xCyJyvyNisXfjBE/Sc+/GTRQ0/HvPuyuaexzf19gMp8gW2hqtLsWlW3MVm2B WsWUSwE6CO8VQtyZMUD+TfYTk6Pw5spZ5ib7NVbyBA4IgiVBywHo6I1z5jpr ++leSbpswlWMNYO+jdJfVXGCbXS0o8rWAEZuh1XQAnXRDwHQBB1/9P3doByf OdrrTKa6dsdnsv787vePVJq9IbNfkVjzCmYfy5zSn3waLLrsjWzYaxq5GU3N GRbutChjVjPzc1I1gAaGJ96/cvPO0qO5TJkCkdkz5Z8gni7CaYXyb6nvbcjM BmfaW+0rhO18V6HLR0c8djZxJbXmRvZmT+JmAtBRj53raalb/M0I8ZPw/JtB A3VqD5F6y/mbxeby0euzY62ZH66wdn21Bery5990EN4rhbQzo//8m/wnJkfZ zUUvu3sEo3zZcVhQhi6FnPmi7KpGsUXvBaKeXuGDUCdV5elYJOj/1KOdT/3B iOJZ3IZuh1XRAnXRDwEgHDn1i2TVlc2uIiVzSj/9aG6inR3Z13T/7V6MCZu7 844GwXuVbveKwrjOlwmVmz1T/gmFP1oP5TRVLOstSWpnovQ3proN5qPjc4Ts e5pRocu37R+uldV9Ss2s4O8tcfu4CXYeJKX42wFJ8VMzCNT8AaUq2lFnXEvF 2y+9t3gps3CaUhY9qi1Qa5B/Iz+8VwppZ0bH+y+kyX5i8pTdXDnFsmT/du6H pFiImS+6vx1465iEovcCOWemcTKEHHz5GLYdVkkL1EU/BIBw5Iwf+f2XxQ+u 6TXvgCBkydqQfWfJfS69kV7rxZlo+gOY4iccNTY7Izr/trfi7kv/VnJfu8hp IWpgTk7qtLDj6PbJEGk7g1fk8iko/ibcxlTs0gPhUgsVi78pRE781AwCNX9I 6TZZf3zA8Wk4Vvib9+9Nt2R+f93rs09kjxKqLVBrkH8jP7xXCmlnRsXGoLMn poCim2s/NNnIR0vZa2Cz9y63vDFLQsX7A3Y28hEpRe8FcrbRPDIR2K10Lse4 DNsOq6UF6qIfAkA4csaPfL9C9B2dtR+irF/Bls5m/tp81rnwOBPv9te9Lwkm VaixpTXR+TcZJ197lTpIptvf6VqmHwcdJ6hTrqVKP+QPqciZkV/KJruj0eUM i6iJRf/g6uSmv6lY/E0hcuKnZhCoOcJl1PU97uXC3WXhMhklrbfaArUG+Tfy w3ulkHZmVGwMOntiCig58pw4LPc1Fv2zb4hLnxzpdC7K3cdaXfGIu79G9gJ/ +kd39xH+3Jj65U5QhJKM2g6rpwXqoh8CQDhyxo+CGa1i72jhfohihks59mML H9nZzemyxnQHuTWFVBnv6yT/RvBqfhktRKUvTp745HnZnhs/ai46yq6Uilw+ LvkgNemRvdO6yIJdwsn5BM3MJyd+agaBmiPMv1FFW6Wgv6ooeldboNYg/0Z+ eK8Yws5MWfJvenhiCim5ubKfvHIL6dOrHn5zx2NvBbaJeBjTazfPW2qPTcxt y2ymv/gGGwQnR9xrQZDDmO2wmlqgLvohAIQjZ/woeCci8pbOfV8gaVwjGNNR 7RNzj7JCpnC5kFohhuj8G9czrD3uvE/q+3/pLUQlzDDkj1/4Xq2tGfSuEfi0 qcTl42q4SS5lk937ErUSh94NTHC3+uEt5p+tfPGnqa+iFRgfkhM/NYNAzf/T Nd9IOgFHdU8vFPnHwvzbicmQ7EWZ1RaoNcu/kRzeK4awM6NiY9DXE1NIyc2V /eSteVnWbhqpyZCZj2ge8RfbeUY77B43lgt++fuDCEN0OfrYwDFiO6yuFqiL fggA4QgaP/I1AURWyMlZLy8hXtGJ6BdjrUxnyPzCpflfcnoxWTstJrtL/d51 6T+n8NGSl3/jF/dZ+r2ran6yqiS3EJWkTvwR++BAY+2Qb4OI7mY22ZeP3okG P3M6Rs62WymT2dZ93uEOrMSZxykd3/r511jhKhb7i9Mt7LVIJdDoxFbY//Gb g922ehNVb+sZHP/YH94oMDjI6n2J22ZduFu92Z5bZTf1X9W5SSUjKH5qBoFa YPfR4lfe65/fKb4pnDADKXO4wX5OtQVqrfJvJIf3yiHszKjXGHT2xMz+HAU3 V1YklpUbF0w6osznbpR+50X/POs4YzWfGHLfLzKbh44t3fZe995ekrW3Jr0T mmqjrOe8SvbeEZS0Sim5KPLJ8ux11/SfHI6Lw/323t7T7dY68/DMZtHjTET9 DnubtX3Mu1zVe7xo0g61vEAVaYE5h6DBjcZ9ij76IQBkI2n8uO7tTw+mxK18 5/+9pHi1H1t0D9nYMV3OaiZW1mQbuc+HQ0jOv/GfrGRuRvlJbSEqyZweNapL lYOcy7cfC3/qsDdTpjrb4PvewP2VaCQc/Gyy12q2f7Sw8eDG0G+oYh3s3WXX c2znp+Htz+9ef6PD3GJ/+39mguHU58xdHeuwmEyNdufdvE95Ye9L1M1FRzx2 c+YvDk3LT/3Xhgq9hiMpfmoGgVoqwTZtVI9b/iZtVReotcq/kRzeK4ewM6Ne Y9DbEzOLgpsr64WFjHBJr/lHmtN/bnnFu1pysT+9E3gzve91sav26+wom5uU VUBgL+zqMdf0XHmwpySnkFNKtNQz/dmP3ldf6O0902XjeiZ5ZuZn435mtWct tGiHWl6girTALJrcaBy99EMAiEbS+DH1Yo+SMPCJenpNQmKq2vKrmajW1zzh w2O6A0FPSUYYLIzk/BvXo1MyN0MDUluIStInnoT9lfKSevno7SXv66lq9tTJ Ue/3WR3+ve/dfU3W9hPpYvEFF4dypSqoemujufW1TxZ+FfSh6ETkmj31dtI6 4Fk+3LcS7n8qpvOVVejj8LZQqeRGmyNYtGNVLiTFT9Ho2P+71N1gGb0l85Qh UEv8xDUvV7ywacinYJ101QVqDfNvpIX3ROxRdG0rXslDIuzMqNcY9PbEzKLk 5qKX3T2Zd1+SY8j+5uzFpvQf237vFxPHuF3Li+5Mzb2ekBPW4hHPoLnE8n9R cqZpi00L8XObD8/Mz7YzN36UvXAkl/bShJbtsOwXqNItMEWDG01AL/0QAKIR NX7kuijijkcwqSDt6JuBncLxlX4S+fyPHfWpXpS59725aKEhYE5N72OjsyJW yJVEcP6NX9HQMr1IdDSV2ELUwU6zoY6Oz5G5ZkDi5YuFXf3MG8HGPvf3h3aM ovcWL2Vq5RfOk3ClbFLpkYszeW6lzE2UtyDG028nm9MJiSPjgRKpGLawBid3 8EU/mX29TuQmDuojKn6KQ2/MOzqpPGdSPARqKfYWnZ1s/9+k8BV59QVqDfJv BIb3xGboo4Em5p6p7xy5dk/RWiH5SDszqjUG/T0xsyi5ufZWPecy7wLaJ0Pi 4xudWPUOWdhRt7h5egfCdWpFgjO9G3Sk686nNtsVfUTsUUU8A2ZKlfXRz8LO 44LHSd3orKiZPfyVLZ60EcxQElXz1tg0bIflvUAEtMADDW60LPrphwCQjKjx Iz+fofSo/OBQ8W3m7wptQk3Hf/Q7nmM6UQ3djplIsdfK7DnhqDQKIzf/xk97 lhDwK0NiC1EH2+23jQe2NPpCaSRdvv3NubdbmVlFliHvat5iNfxtVXCdIF/K xjzoieTt0nC1LI4OeB8e+ppYaLI9fXt1u4uWzNhd9b7C7TFpyvNOcCswbiu1 rKB8iIqfYuxvz/+5jW0u8oexCNTi7TxwZSZvFrxZRKrCQK1B/o248E5vzIxY hAu2K1VdnLQzo1Zj0OMTU0jZzbXzteMYe7Q1zZPfPhX3R/T2HUcbO8Cva339 y3WRzZHbtbzYPBmuuGvRqTt5j2rz9kSqOqhKyzlz5mmLa2Z8zqTBEdwt8lLp Z98Qm7SoJ2ArYQJo1Q7LeoFIaIEpZb7RsumoHwJAMqLGj1Lz84/8w1ZTDurk 6I37W8JuUmIj7P/bYLqOUN/UbCRe/JNzq4W3jAceK/1lByTn3x4HxluK9x6J odobHCmYqd0Vm2FVkoTLx+yQzm4ledoZLjCpgX9dWKhGBF/KpvDUCH6ThXxj BHov7OxkH+HFTuzextw7bTUnx647X8lMHsjJvzFj1d+Mzv5a7GeXEVHxszRB 91XJMBaBWiQ6/t2H3WzHOH8JO0mqMFBrkH8jLbwzE3pz7pVTrqUKHB1pZ0at xqDHJ2bWQSm7ubiMosg3AnQi+qWjm/3Chm7Hl9HCe0zk/CHfkoscp6ipO4c9 i0c+n+hgX82VWlco8nAFZTGY54mYuT1PI+7n0x2ZYi8BBR0eRVtkGok27bB8 F4iQFnhQ5hvtMB31QwBIRtj4kVupJKrX92x79g3h3JiMWmvXyw7nVY/nH67J 4S4r+4mWjrG/h9ZFvC3MXS1FWQbd95bv+Z0Xkh8lf6YNsfm3Z/edx2uL9h5J Iq2FqCK13EPcNp2VIOHy8Tu21wx4C82oyN6mLe8/4da/FKnLzdWjKDRc2g5N nmL6O5a+/F2X3ejMxdaak2MzPyX4srE5+bedsPM0deydYJHFjOVFWPwsLrXy 9FR9/RGq2HURB4FahMzLcVWSb9UZqDXIvxEX3nPzyqmm/bw7InKGiIpIOzMq NQa9PjEFFN5c9OMF51lmjjGV2jwiVniQT+9EA870UmjqxIjnvpSl0OJqUoma uiM8pPjmj99+7hxpr+fniFKtr98Qt3tsfontldCNTG6HYxv5dLnEOyD+1VLR DAy9EZhgJ2EVnPhdjbRoh2W4QGS1wINy3WiF6KsfAkAu0saPXEdFXEF1Zt8Z Uwm1TXaHJ7QmNjbmVgvnQ2x9x1v+gsWISiE1/8ZvRaSPqhQSW4hyqbfbVONk iMx3luIvn2AXgyIrXATbtJUsZUMNFN5/jbtMhUcT8UWXnZnwn7uDFZ3Yun/T 8Zy5/ncT/p+YL6D3HlzpYQ+ef8FHx8NX7Obm877Vyq3mIC1+FsG8bj464v3X xfri10UUBOpSuOatSvKtSgN1+fNvBIb3nW8m23JmwGm631AacWdGncag4ydm nn8s9+aiHy+6X7GxM/ts5y/7Fx/lrPRPbEeCn14a7qxPR+Z3fUvbEmuzcfNt iixhFjd1J2Vn2ftmf+/vbPXCpdnZcd/a3vuqNyI2NrIf2Nt7pt1a8COTz3Zb V2+KfeijUOzQR+/OOxpKVuzn51ZRbVOhir0rJFK526GaF4jIFnig+o1Wgt76 IQDEIm38yG0VV3vceV/EzU0nojOZOcCHWdqHpq4HH4p4gyBwuFp4KrC29L/v Xy7ygqYkQvNvz7b9r9ZKOOEVJ7WFKMQWZSXnBskh/vLx8/DFjQIKvqkX8bpf 2O0ptpqGjt2/PvbbZKOmmp53fPLlfDAYDMx4Lv+ht6n+UEdrN+p/i6nJ39g7 +Wkg+J/ZG+/0mo+0TtzerGR/lrT4WRC9+dVYU8t53+oeF0UUDWMRqIt/yE8z YycphZnALNUZqMudfyMzvCdvljnnqN1WX2ftuuAMzF3ttWp+hASeGVUag76f mBmq3Fx7W+Gb79qb09+aHOb3D487ki4O93dlkgy1Tb0XP/aHt8SuORXg5tsU m6QnbupOyvqtUXa1IlVv+12vEJ++qG06/5no7aUzH5jJb+SX/nCqvvPS4cyM qNpi3LsnqtMxr7xIv/GUsR2qeoFIbIEpKt9oxemuHwJALOLGj/Sad6CmVF8l 50/iD4PXp0bSsdps6+obHPvLlZt3wo+kjecyYotOO7cAhLL2XLj0aTCq+K0V ofm3zK5b1BnXkj7mEstoIQqwjy2VSkupT/TloyMee2YCUpH3X6Xf1CcHQQNU qee4YCOnUpUx6J1o8DPn+GC3zcx0bHoGx52f5k/FPItHkzf673tT/7LW2jUy /fkPFdoZkENc/MwvtYdsm+X8zTVaEEUUTiNBoC74CWzyrc425F5UkgnMUp2B utz5N8LDOysZZLTPvxF4ZlRpDPp/YrJHp1ovaG9r6c7NK+9PDA+kR/qpbMDz g6N/dnq+DK1sy11Sx8+3oeyeghkJ1WpSVQR3ZYvUFot95+xlLlSj3bWoZPcd oytHO6yGC6Txjaa/fggAqcgbP/Lb0FRwdfne1vLdYDAYCkdjMl785UVm/m1n bvwo83Klx61C/VBtaNlC0rUO+twrRBbtEH/5dgPjR9KJisJLiuinoalmU/Fe PVd8tUgpG+HMgYpULtIMefEzj/3N2YtNlhEfs7JTrfwbAnV+9KO5iXbKVNc6 9oXoQuUiVGmgLnP+jfDwnpYMMrbCwbY8SDwzajQGwzwxiQi/RXDzbYrOk1Gr JlVllKwtxu02rvbjAESphguk7Y2mx34IAKEIHD+yCx9KxRPdITH/xtVFL7nl PVG0ayHpWgdHJgJFNi6vGCmXjy+WVWTTIm6D8sKlbNIRw1RsaEY/9A4cZb+s ps9Tweps5Udg/MzFrTxlr4Nq+TcE6sPSBaUb7c67+Wdm7i/7/vw3/4rU8XLV Bury5t/IDu8ZqQZ5YjL0RMvvJPLMKG8MRnpikh1++fk2RSrUqVaTqjL4JcOd 04uHd7Xdjy18ZDdTqTWJ5z5Z2tPdz9O/arhAmt5oOu2HAJCJyPHj3qKz8wgT US4t6jQqHkZg/o17hVrJHSRl0aiFpGsdUP3e9bJ9h3ySLh8/msjbFWE/kFtx I3xTv7vk6rPxC2cyo4nCQzM64u5Jv8s/4QiSs3ypHIiMn0J01P/7tqaxr7gq eerl3xCos7HJN6ptyH2v0LJoesXdTb3kXZf4Arp6A3VZ829kh/cMetnVqfXs IDLPjOLGYLAnJsnhV9R8m7w1qVJj/KNkNbz8+CXDda/PPsk5/1xuR78Tq3Sv Ki6QljeafvshACTajXhetDS9fCNC1Az2/Q3/BYvBxu/k5d8y23sdOeX6nrj3 pyVo00LYWgcKC5aWi7TLx6+m6S9YSporaC8sZZN6v9YomL2fqf9Q7wjm/5jH QccJ9lkvTPsYFJnxk5NY841Ymi7ObvLtV838GwI1J518Ozk281PhSjXMa2jp O0pWcaAua/6N6PCekaq0X6v1Yh8yz4zSxmC4Jyax4Vcw36bgry5Uk2orMN56 dHyuQMaTHHxtsZpBX3ZFrd3o3Hu9qdxOo935zaZ+czv6Vg0XSNMbTc/9EAAQ LfNqr3bIZ5Adg4jLv2V6fZYLfv1V3tCkhezfm26pIbUysMTLx69wKTSaiIVd /el60y3Ti5mPTC1EqhFWpMlUqsn/Np9ORK7ZmfdxVOvbc5s6bFcGQq/dPG9p G5tdF14nVfNvCNQMNvlmPusM/Vq0THQsNNku/bRXc6AuZ/6N6PCekYrbzT1u bRfnEXpmFDYGIz4xCQ2/3HybImkBpiop+2+EU4KffjvZ3DYe2NLuYGXKpFVN dZ2uH/hzn/hl3vliE2Wims5Nz63K3b0ClKuGC6TljabzfggAiLW/HXgrFT2p 084w8a/CxCAs/0ZvzIxYkr1CS5+IzbaIVPYWklr4Yyqyr1klSb98iXXfsDn3 FRhnNzpzsTW9BEY4wNlb9ZyrG/CuCb4j8xasyxk+tFtUfNFlZyaom/tdYbW2 6AVZ6FXf+ZbDEypUzr8hUB/srnpfsZjqWoc/+MRT2CeuaccrXWaqyGvqvKo7 UJcx/0ZyeM+g98LOztpznlVNN0Eg9cwoagwGfWISGX75+TYmU+2r/u3Dk2Xo vSV3nzlz+viYyOxnoYvVbekctUmwPHlvc+FfE90NJlND98S/FjbJ2bikKlXD BdLwRtN/PwQARKPX/CPNyY6F5fzNNf3f8PSGb4hdqlBsG6zyfoLAdmjyVDKY Uh0fLMR1e3LL20LSNXAK72tWQbIu39737r5kV58yD3giwin37AtBy1nnHe9F Zm8jbjRBb89NHGs/tLaF/fbcxTJ07K5roCV1VK1/8EVyy22AtvKsPE3/B5Xz b1UeqLOH4aVJLRVY5YG6fPk3ksN7BpNCP+b4WtvECrFnRkljMO4Tk8Dwy9Wk SrHY3Q+y07h7m6H/GbI12y9/ctnOLJ/lZgamGnxrp3OR/MxIOkdtYmuLPYne /dw53FlvqrMN/s0f3iAqbV2dquICaXejGaIfAgCiMeunkjf98YkASZPrRUls LYeCjPlZ33X3B6NdDfwgzNw9evnqdd/sPPsvvlneyvPzlH9CIfTegys9ybhN dU8v6HuSUjlbyHbQ0VZ0X7NKkX/56M3gB6m37ZaOsWvzSw+jK+Gg7/Jw+1Fz t8O3tE0fJNZvTaSSCTXPTc39sLp02znQ1vb6l+uHz2zip5mxk1TqNeI/5sKR 6Mr9wI3J/qZaE9Vsf/fzpRhmp1dY6r44esoxn+emUD//Vr2BOnO/SCBp6jIC dfnyb8SGd05i3T/WZBnxrWk8WCT2zMhuDAZ/YhIWfvmaVFSjtTE1aG8bvHwz mPzV0Ug44HWOdluaXpj0/xin6Xj4ClMD3zbsCa2s3JuZ7LPoY4C/v+F7OZ35 aDzZ1Wo21R8fcFy9ZZjEju5VwwXS7EYzTj8EAERjuqC6zLrHgo6u9jO9Ipxu t/0p35Ik5Z9QQGLZM2BNjS2dC4eWQ+hO2VpIemq38qmGalN4+RJroU+d44M9 tnqKsnacHZl03wpv8S/3d9dD/5wa6WX+a88F5+2VeIE5EPT28uy1yZEX2q3J QYS1/eyIw/lZMEr+upEqkGohLW2OO9v5LkY58m/VGqgzOxtK0OdeEf3OGYG6 fPk3YsN7Gp2IeAbMzed9q1rfTuSeGbmNwfhPTKLCL1eTqq7TtbgRvuV+/43B 3nZrKj9g7XjpjWnP3NIWFwOfxVduu8Zf7Eiek1SG5IZOVgXGwy57feoiDk9M //fNQPhRoYsOlVENF0irG81Q/RAAEI3emHd0UqYjHVPBWMV7FkYQj3gGzYeX VOhXmVoIu7VZsU29K8Jwlw9UlmohlrY/z2/nb7flyb8hUKvOcHe6nBZStvwb oeE9jd68PdFqaZ24XYH9o8k9M/Iag+Huo7zICb98TaoTk6EnFT0UAOPS6Ear jvgJAHmxJWqpzrzLqUCKdDVOo+1NWYYWsr843WIyUXZPlKA2Z9DLB6phps1Y 8q88ZZUr/3aAQK0ig97pkltIufJvRIZ3ztMVzyvdEzPRSox3CD4zMhqDQe+j vAgJv1xNqvwF4QFADVrcaNUUPwEgH+Z1cJ3JPOiJYAKsfPT2HUebMU+j2i2E rUFN1l4/Br58oI6iK0/T/6R8+TcEapUY+E6X2ELKlH8jMbyTgeQzI7kxGPg+ youA8CuoSUViChfAGLS40aotfgJAPnQi+sVYax3VenEmSlhVYL1gX4+azzoX HhuxW6RuC6F3Qn/pPHUpRE49M4NfPlBuL+o9bza/MD1zJ1jYHddgesf6doeP /79Dy1uqVCZGoFbM4He6pBaSSblktVUZWw7lHgNx4Z0U5JwZfmMULnT5HL+V kH8z+H2UV8XDL1eTqva48z5mvwGUR/lvtGqMnwCQV7JrcXuqt7Gm+2/3sMGi VMz2WzWtr3nCBo6lxm0hVXH5QKFY0GGTuB0AR9K+nMUZ9zbUQFXc6eJbSCb/ dli9Q8KWQ6A/haOZmPxbVdxHeVU0/PI1qVrGA4+1/naAKlHuG6164ycA5EfH fvC9e+6M8z7GdVLsb/pf7xhyBdeNPyPFiC2kii4flJlgVFuG9accI96GGqii O11cC0H+rWopyb9V0X2UV8XCL1eTisT9OwCMorw3WrXHTwAAAAD1aJR/AwCA asLXpDJ1upYxbwagLHCjAQAAAOgF8m8AAKC63WXXc+yknJbpe5j9BlAeuNEA AAAA9AL5NwAAUB29E7rcY21oHZieW8ficIAywY0GAAAAoBcbs6PHTFi5AAAA AAAAAAAAoBZ6a/mbYDA4H/B73e8P2SiujnlD9/iHHt/sfPI/Bu9H40jGAQAA AAAAAAAASJcIOurNtq4zvYWcabdS/Z4oFjIAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOjY/w8i90rp "], {{0, 305}, {1664, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{1017.9999999999998`, Automatic}, ImageSizeRaw->{1664, 305}, PlotRange->{{0, 1664}, {0, 305}}]], "Input",ExpressionUUID->"01f70c5c-779f-4061-805b-b91b65444d31"]], \ "Subsection", 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.7422199554720297`*^9, 3.7422199575880423`*^9}, {3.7467909251350994`*^9, 3.7467909255028553`*^9}, {3.746843120631447*^9, 3.7468431211370955`*^9}},ExpressionUUID->"b3f5276e-edcc-4c7d-95e6-\ ba5cbeaba7a1"], Cell[BoxData[ RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "2", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", "=", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"I", " ", RowBox[{ RowBox[{"U", "[", "7", "]"}], "[", RowBox[{"ii", ",", "jj"}], "]"}], " ", RowBox[{ RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{"A", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], " ", "-", RowBox[{ RowBox[{ RowBox[{"U", "[", "8", "]"}], "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{"B", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}], " ", "-", " ", RowBox[{"I", " ", RowBox[{ RowBox[{"U", "[", "9", "]"}], "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{"Cmetric", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"F", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{ RowBox[{"U", "[", "10", "]"}], "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{"\[Gamma]5down", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"G", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{ RowBox[{"U", "[", "11", "]"}], "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{"\[Gamma]5down", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"d", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", "+", RowBox[{"Sum", "[", " ", RowBox[{ RowBox[{ FractionBox["1", "4"], RowBox[{ RowBox[{"U", "[", "12", "]"}], "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{ RowBox[{"CommuteGammadown", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"Fmn", "[", RowBox[{"mu", ",", " ", "nu"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", 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.74222001333444*^9, {3.7467918697920494`*^9, 3.746791928704928*^9}, {3.746791968956151*^9, 3.746792112251458*^9}, 3.7467921713634367`*^9, {3.746792279978081*^9, 3.7467922815621862`*^9}, 3.7468070365364637`*^9, 3.746843160970861*^9, 3.7468432231440268`*^9, { 3.7468435725174932`*^9, 3.7468436591048775`*^9}, {3.74684428636384*^9, 3.746844312982067*^9}}, CellLabel-> "In[122]:=",ExpressionUUID->"4f54febf-ed21-4ef7-ba80-15685e9e54ab"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "2", "]"}], "[", "1", "]"}], "[", "3", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.738583861309019*^9, 3.7385838765788927`*^9}, { 3.7467922485866156`*^9, 3.746792260986814*^9}, 3.746807037572306*^9, 3.7468431653137655`*^9, 3.746843678634367*^9}, CellLabel-> "In[123]:=",ExpressionUUID->"5cfb0378-df1d-4c65-b152-3684d90c223a"], Cell[BoxData[ RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{"G", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{ RowBox[{"U", "[", "10", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"d", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{ RowBox[{"U", "[", "11", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"U", "[", "8", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], " ", RowBox[{ SuperscriptBox["B", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"U", "[", "7", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], " ", RowBox[{ SuperscriptBox["A", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{ RowBox[{"U", "[", "12", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{ RowBox[{"U", "[", "12", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}]], "Output", CellChangeTimes->{3.7604679846983843`*^9, 3.7604682426005907`*^9, 3.76047034108278*^9}, CellLabel-> "Out[123]=",ExpressionUUID->"3c63fea2-7be3-44a0-b92a-f1e14c867bf7"] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Lagrangian Invariance: \[ScriptCapitalL] = ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["\[ScriptCapitalL]", RowBox[{ RowBox[{"(", RowBox[{"2", "VS"}], ")"}], " "}]], "+", SubscriptBox["\[ScriptCapitalL]", RowBox[{"(", RowBox[{"2", "TS"}], ")"}]]}], TraditionalForm]],ExpressionUUID-> "f151d1d8-acbe-4639-833d-2e2cd4f9ce73"], "\n", Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnW1MW1e677fuvR+urvaH6498iJQrZMkfIkUIIV2iqIIPRKmQIEqFUF5k mai5gNoeQ3ILoTdAlGCixlEbW01Mp7XSoMzUmRMrMzE98fTgyUAqnCnuxFFA OU4LPabBU0h5sRxkgmHleu9tA7a33/aLX8L/J82odTfbay0/a63nWet5+V8n tIf/z3+hKOr0fw//3+GmzupTp5q63vmf4X9p+JfTrc3/cvLdt//l/55sPnnq f5/4r+EP/1/4f//jv1EU88+vAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAChQSMj3bc9hvXOF 5LsloEhZ9Q33HdaNreS7HaD4ya8src677+jbTqjVR2urDqo7jXfcc6H8tEQw GEDRhH4Z7jmpcy7lux2goJB7ZpHQ/COr/pRGrT5eW12tPmO882g+BK0M5AcS nJscvtZcUUKVdDn8G/luDig6NoIvwhLUWkFTJR0Of75bA4qZfMsSWZ4wn24d GPMFmZWQBJ87B95VUmUa8+NAcWzRGEDRkPAQfnuteT9NlXc4XuS7NaBAyMHM Wg9M3Ght/Z3Tx57SkhWf83ONUqHUfDURWJflCwFIApmxnVGr1Zq2vi8+0VYo YB2ALHk1YzvHSJBW94XhgwoK1gEQTCHIEllxf3b41L257Xrs2jNLUxlF1+rG XhS2eosBFA35T9uZE2r1CW3fVYP2LQrWAWDI1cxa+cFw+Kw95p5tZcrSqqR2 VeseLBb65AFvKBtPzQdwdwCEs+ExH4B1AKQgb7JE5hxntGZPnNfA+oLjrIqi 6CMWb5Fs0BhA0QQ95gZYByAOOWdWeJqcP2aeXIv9lCwMd6poij5h8b6S/jsB SAusAyAOWAdAKvImSytjfXsUpdUfWjyB7R+TOVuLgqIUWluRuM9jAEUD6wDw IOfMWnL2VVGlB9ssT4PbPybPbS17KGpPi+150djW4E0C1gEQB6wDIBV5VW5p iio9YpmO2Yj9jo4SiqIazJ5gsj8tKDCAooF1AHiQ3TrguWJ74egoD3/nAfPT XCpnJDA1ajF0NFSE5zMDXdNmeVI0oUNAQsRYB2TF5/qTqae9pfldtfpYQ8Nx bZ95yPU8mHtBYhxcqzTWbK6vs2t8aH5EV61qt/m23/6RoGfosu762LwUx2IC ulAYCF82cyY/L+5pSyNLXUro0qqG5g69eegHLrJShi6IEyT5OlIYCJaldc+N wxmNTBwl5R3fslrgemB6bOgvj+OShBTd0bd0OsxG0Df5wPbVlW6tRv1OVXhs GZHqMlhGPEvbRJe8cOr7rTNrb8wACrYOREtgLpCokZkuYsQ3YuxoUTNJeCr2 9sVl+wk//3VLtdrkLo5TJclmFllw3/pMr7/Q0awJj0s5vVdr/zWskD8YGnbP r8Y+mfO7g9CvrptdtTwSUtPnXMhNE0ABIdQ6IIEnlk5tr2VsanOzYDSl27rG yupOqyengfZBr6U5vAWV6l0Z7kBZN55MW46UJuxxnMlfa3AH4p+XvwuFg7Bl Mw/yQ4KLLlMds9bRqrY73kS1ORTweb6z9BwuDT9R9aFlcjn1miykC5IIktQd KRyEb8GhwAtfGO9TS9sudj9TqM2PZnx8TE+6RmwDHdwmqNDak297az5bu5Ki lW335otkBKXQYdYWJ4aMbXWllKq27Ypl2OWZ+XUpLGMkuPTL07Hb+qb69hvu 31jxZQMn95smk07W4htA4XcHskig1EjSyOwWsZeTpsN8Kq6Eu2cukM46WPb8 9c9W6x+uaWtYLTzptRrx3W1V0pSywy7J8WO6ZoXmHw5oyii6RnvtD1brbYup Y7uZsKt79KX8jQCFhTDrYO2Z5b3T5gkerYME3AONKqXmpidXVwhk7l67ihHj TGdu9o3nTsDiL/5ePTLsU1B7+sWXisi6C4WEkGUzT/JDpgfrmaUu5dZPFpy6 A8xTylbLVPLk1oK6IJUgSdmRQkL0Fkxejvayag9zIpfyyfWA+2odndIeDz42 1e0uotF7LXYASWjxiZUxKlW1HddHp5f5Rib8jMvU1DboWV4cu1SdOsdjEQ6g aM8iSSVQLkQ1MrtFjDsAp48PTsUcjHMht/SBgYlXxWE3Su1ZRFadut3ML6B3 rfKOQGDC1EhTZU2WZ2t8/1lS2KJX1WGJKG+xTkd/6EhKgQhqq0/2ZoACQ4h1 sDZrPXduNNlpEAlOfF5H76ox/JCLLYHMj/ZUZyPAAhpPVpz9eyjFPsOj7bkD iNdyhKYULbY5kctb1l0oLLJfNvMlP+sL9tMKZpSPDU6vpniOzFqbFOzJfPdI kk4J64JUgiRhRwoL0VvwyqSJNZsycXRn9JbKRsvP/KNOltzGBpp+u3fkn8Wh vrCIGMC1RfeNlooSSnlMb/8xpZsxCXlvNVW//baSDlueSZ0hi3MARVsH0kmg jIhpZJaLGBeQss/ojrECuEul8lbbTLHIhtTWwer04LHk54GcUbaruvd+Di7d yOIDHWMa0Kr22IzEL0e7d+HuYAcjwDpY+V5fqaDLj+tHkyz7xGttUlGKVuus 3FYvWXFfPXbu4kd72SuwMoM7rUOKkMYH3IZaiqrqi6meGZqzaRWJUXg56EKB kfWymTf58bv0NVSq45rNBvw4WM8ui7t1Tt4nBXZBKkGSriMFhtgtODzsGmVG I8MQcOkPJzk7XfUNX6hWHdOPPC8uTz+hA8j2l1H2T/JehyWw7NIfTKleFusA irUOJJNAORHVyOwWMVYg408nOHWUrvt8Ig8xigKR2jr41a7dm8S45k7yKxv1 9305qJVMZu3tlayTWcKGG3LpS1kH1qozd6eL6PoPSET21sH6pGk/K0z7TU+S aLKcXSx/rP3apPnYecfCz1Z1aYYqkJDGyxp0kH0XCo1sl828yQ8n6hk5+s5E fg6q2erj0W4EdkEqQZKuI9kz5+g43OGYk+JVPIjdgiMZcjL05Q6rPWq9K3HY maDLmpqPrB7J4zXkHb3XAgcwahoojg88ybDLZNWl35tUvZRvAHOAOOtAGgmU GTGNzG4R46yG2KADsjCur6cl9jcrzJmVnMixPI9xTebv99bUd1qf5iRN0Pri 6IUKVhYq9d/H/x6Lju66pm7z/WnUa96ZZG8dkMUxfV1ZheZq8hQrUZ+6+kGR B+spCXotZ07bZ0kk8VdGKpCAxssZdCCkC4VGtstmvuSH+Kwa5n5mV/3gj+ls yCem/YoUxpqwLkgWdCBdR7InbG6Uq60zUryKB5Fu8xGVNZORYQirPacTXLPW AxM3WpuujPhWtz6Z+XFGmv1R3tF7LWQAI47lsS7HGbBgD6t9fF8k6wDmADHW gSQSKDeiGpnlIvbbaPf+WKuBNUWVR4yuBUlVgwKcWenflmhck8Bjc+t722/c SOCXpzOyGQprk+b63ez1AGqugQTkqXcQuZKS8ySczN07/d4fvczVW3j5qqIy cMPOkNjGc26W9J7YhGwxbpb+kd5TQwKiD+TrQi6RIxG0DPKz4Xd0sQdmNXpX mpZyPy5zniIiqCShC1IJUq47EkshWwcRV95MRoZl2ak7Z5vfrrWymm3rjYkY VfaFo+uiRMtjwekwmy7Hyta7vqwkhJHvRL8IuQcwB4ixDsRLYA4Q08gsF7F4 q4HzN8vQey0rCm5mpSTks7bQCXc3rGkQl+kivNpf7JKr9Ab3a0q7QYA3CFms g+jBqXwn4WR+tPe02cMtUWszliZWxqukuKWNazznZhnnIsIG3EU+DE+xyycF RB/I2IWcIoN1IIf8RAPxFKftC6m34xWP+SirUx/Uu5aFfl1iF6QSpBx3JI5C tg44V14qyWq25Ha4l2I+mR+9esezNYRhzfbmmX57XIZY4h/THb/ukWZ1LDAd ZjMfAn00uhBlDGMdxPlF5GAAc4AY60CkBOYGMY3MbhHbmBo8FLUaSNA7ajxZ 0zwwOvNSBj20wGZWGjhXgZi7m7BpcP3MJ3Zv7OAweedOyVVJMFJPIUxZm724 UgeAnMBZ9wKq1ZAV32OH5drHfbpLer3+iuEzo+kPf532szK2qevKZB2QFffA ewOPo3NmM4VL2vxs2Teec7MM75/1Zs8a52nknxoy9Fxor6XZICwya+/qzz4j seguFArkldu4T8DhQ47lZzM+94A5paJCQl5rC5OMRVFx5t/T5IvIqgtSCZIc HckCWXdhobLEsZlhg9ch7eXo+fMp0m5sDhcPxXLzkuUAkjWPuZ7pMa3qHM7a z8Pv6KjY7heRmwHMAZwCLKgElSgJzBViGpndIhYJVW78csT9ly87Ndor954u yRVmW1AzKx3rbkNZeKbUmyajJnlo2tpSzjt35KskuHmzXFTFCoH8rLhMJ5ga hg1VSk4G6fLa4+EP1OdsM2ndz9YWJ+7qNW/Xdd586NtyNCTB587rV667F8nr ZWcfG7Upk2fR2qT53U+c/q0zl2hsfWkG60N2jY+4WdZ2XTN0NTd39OkvdHZ+ anXPhcKrot3YqtGe7Tw3MDab9dQS1YVCgKy4PmckiKujyh5FldceZT44kzZL XT7kh3WTZl7Z50zhucWWKgjPiJKKlpsTqTyls+6CZIIkcUeyRY5dWIwsbZEy VJysOD95P0Uh8pUfDDXR5H0J23Nc8kYRyKTDCBpAMufo3Mc+LOhqKeRzPfx5 60wzRwMoH8su0wfMiDVUlcbsiCfO2P4zQxkUJYG5Qkwjs1zEwnZWXWnVEW2f 2eb8STa7gKOQZlbsC3yub8y6np5L+isGfb/xG09gPVKtZlfvaOSiwO82HEpa wTo+GaxUvPJaTkSMg2Iy3kEBQ5YnLR9W0WUa82OeUJnwjnPxS9fLSS6nSrrj TWEEvZauLkeMOEeLQ6WrLJN14/lzO+ezC8VOfuQnk+o/64Epu75xL0XvbzZ9 lyqVnJAuSCVIknZECLLf4Asl4srL7xMS+smiaZLrgj4LCmj0orUw5FM/dhpF IYFiGinTbigJBTSzopDQovvrtgMq9WdRZ6qNoPeb3lN/+PufTylyXCObp3WR ayBKgqzsYVbnH//wrMAzD5DlZw8n5kVtiGtL049dYvnHpE90Ad0ChCxPmE8q qV01+of+JHneX7nN/V8a2JwqslTQIHP2rtO2+AA6n1VNpftGIY3nze2cvy4U O3mTH86XmOLLIEdCgbnpidHb+hMVygPNfTccnoXUBqagLkglSNJ1RCAFuAtz bGb9arLMbMvaHQr4PN993XmQzii1u9wUzuhtaonhgRkvsjwIBUpRSKCYRsqy G0pE4cwsjkj1YUXjF09idOb1BXvXnlJFxgmj5CKa+I53K8n2XcsTgx+1X+c7 Kyss1gMTg+3tvxd+mb7+H4OHt8pHC6Wkovv+oqQdKwBWffazFeHtpMboTmH6 +O+f37dXLhd6Mj96rsfiTRDmqF9O8lrDghrPn9s5X10odvInP5vVfxS12o/1 PPR9qGk4ptX/Ydg1nfIGXGgXpBIkyToimELbhaOsjuv3Jr2cp/J+UhehcEYv GpoqvCgwiKUoJFBMI+XYDSWjcGYWAwm4jHW7KUXT4E8Jwf4R19BtQQd5YDPO kaL2myZFHfmv+oYvNvU/WIzfbVbn3Xf0bSfU6qO1VQfVncY77u1yE5p36DWx /lqaU7c88ZeY5NXkzdbacu4co7SqocU4lvBFm69c8Dhu9GlZRzC1WqPtv/HX nwKEBD033+35azSWPDQ/0n+o3TabgzJzOwkyd69dRacP19rUcqXPoMtE8r5v nuQpoLuZ1z2JL4qwxvPnds5TF4qdfMpPJtV/yMuZ0c/USkVp3bk7Sao4Ce6C ZIIkUUdEUFi78CZRx7yEk/BQwDdxu6OiNL8ndVEKZvQicZFU/BkyEEpRSKCY RsqwG0pIwcys168j5d5464tt/gRbQQd5YWG0u5IzDsRd0DO6d9OhK+P+WAOD uWE/3Tow5mPTlzHheAPvKqlEX9zoVXhqnWdlrG/v2523nywmVelJyPfAqDna aRn3bSZMC/02cfviGcNnZ6v3xrhOkRdjunfqja6Cv+koIpZd+oOcXpLm6GDe 1sxZepIvI2uT5vcHkpzZRmvC8nvtC2w88d1tVb3VevtHybZP4V0odvIpP4wq xC6E6Tbo0JytjdG++et4Cu+CVIIkUUfEUEi78BapU34tO/ua83pSt0nBjF7U zHxDV5vcUxQSKKqR0u+GUlIwM2srFRivx07kJ8jzRRKXqZJB3NXh2jNL09ut 8fHZZMX92eFT92LiKpknyyi6Vjf2IraaA1u7J1Xo07p//LP3UirzbHXpQ70j CUlZucQL9PHBqRhTmJXkI6aJgk8dvzjckSQLXMZUZlVAPPP3xvyZf6RbxSa/ 01hTFs3ZrMOoapI4P0PQa2lWpG00/QFPcZn8N150F1KQWxHK/KUxf5bPn2Cz +k8Gl7nRdH88aRzyL0USdSQF609Mb5WIk6Uwuw6an2YowQLFKZ7NozDeYoKz tvc/zsVJXRGNXjTKiWq0pEm9snmnyQOt6h6RsAYiQ7FsiPEUhgSmoSgayUcR zazXS86+KuY/8J+Hcz9BnoMOIpWaqWQ1LzJkfcFxVlV52RV32hnWyc9oE+qn sA8nHPpFWpL8wI34H15+zzwRTGEbhE2A/UmKObI5dXlMj/BvVC0kjXOOCc06 bxr5HIgzxvC10yd3VNlmppS0Uh29Kir5MF2ppixbMGf/6Jwj+a+5WWs48aI8 /42PtEN4F1JSBCKU358g6mKd0WVu9AYnftksBCmSpCOpWX3heZQy38I3+lpV rf6bwsrJsKnB8vrQrj8Z+Oib+Vy0o3hGb9M6yCLKKRR4PtTBZS1Vnbb+tCzL nUMRrGZ8FIoEpqQoGslP8cyslbG+PXSShLGbP0F+gw42U1vw+z5lClNMrYwn gRUzAorS6g8tnpjDec4zLd4QiFxi1hrcfCf5ZGH8ctdA6kN+5tRuV0x5vi02 /I6PynhOMNjqFYpW62xB3oMVGRnXXucqL1O763ld6wWTLJJ3i5DP2sy2MLHW cL4bzyGqC8VOXn+CzVP0TC5zyc+Wxt1sU+MKsRWAFEnTEZEUzg3+Fpv5N/h9 aEngn/8sECfTghk9YTkQorU23uS8aoIoCgksikYKpVBmVrScRGX3KM8iXRBB B2tPTDXsRYy4yD5W2+dLYBWxjxISpUYMgViHq8h2yRvKx/oUbVWM5Ye9fUhW z5GsuG58Osp3ec40cm/2FQ+R0TSR6LF2GqeX8G9xmbm5VJ11SHlqGldWmJdN j8pEP7r8Nj76clFdKHby+RNEl+vMsjpvFhItM7hjmpB/KZKoIyIplF14G1Hn 1SKoM144oxe9h8oi7iCTWhs7k6KQwKJopGAKZGZFN3H+bYIrHp3foIPoDpXF xcF6wDOk1+yjY66hN/yj51T8HkHrgemxob88jqsswH93EEmxy1NEI71PEUfE 47dMbfg3988LaR+Pvv25rWVPSYcjO8dIZDTlIXpwmnorIV5rU3joylus0wlP heZHdNWqdptv+3kqCXqGLuuuj82n3J/WJs0nPh5dTKPiJK81LL7xohHbhWIn j/Kzmdc9k6zO4bX9Qy4nUMJilXcpkqojIimQXXg7L90GNlqc35u6oCic0Yu4 AWeT7ZxLd18U45xjREpgposb8Y0YO1rUavXx2oq9fWOxql34+a9bqtUmdzJ9 p4imiQAKZGZFHQD4z2Q4Tbhkyw3mleffvp3OaQmxyA4Vtl/qu2/cttocTtcj z4sU8rC+OHapmtl4dtUYftgmcqx7UhaFFNd8tnYlRSvb7s3zpS2Kj4/LxKco wsqUpVW5qXqXVqs79Gbr/cdpzufZ1QyFIJMRmnNbP2nThNeauqpqdafxT+75 ZEISDbRMpRqF5uydKopWtfHlkuVPlczF7yRxOYsQ9Fo63s+gaDmZsTSy6lCC v5/oxotFfBcKExKaf2TVn2IkqLa6Wn3GeOdRkkKEeZSfaPWfDEoREf9DfQ17 OMpz8p93KZKqIyKRaRfOXJYS//THwXq2s2ITd+cA+XSY7Acw+NhUtzuLI8TN PCdvaMrleJgsK+9kVPlLpARmt7i9nDQd5vPESLcYFtM0EUCBzKzo/Rqvw16k 2MSWb+r6pFkrQZ3izOF2KD44pdr2XbylECmpTCs1X8UWEWP2oyzyCnKrDU8O Pd60RRn5FG1rpH/6rzf6mg+Ubu8R/XbP8C/Jz+heeS0naFFB2W8sJPDY3Hpq wPmcvYjZCPrGBjRllPKkeSJJgvRXj00HdiU/diBrU5YmJZ1QGTD6n3lTJXPb zZ5+Z3Ijj8zdO3XsumctAxGMxtnxqG/iGi8SabpQcKwHJm60tv7OyVnoZMXn /FyjVCSsIVHyJD+b1X/S3yGGfhnueZvNSdRgdC/xvDGvUiRlR0Qhxy6cpSzF UUzO8DLpMMIGcD3w5ItGBXOKqB9Pm70j4BlsZg/odkhtZe5AMjMnT3ESmN3i xnpE8CRpXBjuVNH0gYGJZGehxTRNBFAoM4t4LUdoXutgddb2IaOZK05Hs1UE PeZusXWKs4CEZm1tqvQJwejyupMd/abBf7VarbcNzSoe0yBiNWTqmUOW3MYG mn6bJ+koX9qiTH2KEjsYmJue+O7ezc+61fvYHfBoQuqkra9lrBLpa3K9Afjd hpOn7LPbRj+i29DVl8b4HWC4CyZFpW7MH/+jrQc81s7q3UqN2b3IG4hJVpz9 exKcHLh5lCLjImPCaMoyVZVTxdmJabwopOtCgbHyg+HwWXvMYRe3n+6q1iWW TXydF/l5vVX9R6lJlVyUhObHB9tqmPUkbCC7f0vyY+VNil5L3BExyLALZy1L 2ykuZ3h5dBjhA7jqG/m0UUlTymN6+4/JQlJJ0DtqfP+Izva3L4/RScIt3yzC u+EfWyt2ZxYCJlICs1zcuJDPeI8Izm2jPCHzvFSNLHwKZmaRGVtreULc8dri I3O7tvUdxbazv1ePjM2/n8rR0TUJ+b7tqQ6LQKQkGQnMuEfv3TLrP2yoSGUw 0PubTd/5Eu9K2GjizKyDVd/whWrVMf3Ic/79KC5tURY+RckJ+Ub6aulUMXrc nUXmfpU7BbIwfCbxNJurHJFqPNlfmd7bqL/rnvEzPzQJLk6PD5naqhRhERqZ CSYTdM5hNS68nYvQ4f06xgacGr+ta2RcORSNn415/Sn1nI3g4s/uW50VnDzz Z9sT3HhhyNGFwmF9wXH+WEJOHu78KnkmhJzJD0d4SH8a0b/DLn37+5zLCQ9w Rw0PbAMdtaXhZu/T6O8kd64T2QUxyNERwUi+CwuTJe6h4NIvjyxaLoX73hbL k/lAAU8aBlluXoQPIMNGcGbE1LyfpkoqNB9/PfxwcnouwCgDG8ElHyNU5gvN mo/Mf/2J0SgWH+gOnJEj23NhsfbsVtfH1y7UpbcOJJDA7Ba3SIaW2CSNzO9S vYuu+5z/uLX4pokACmdmcXp42RHzBHftQ4LPXbf0vea/z6/Nj+lq6Uim66DX qusfnc/2fFwgxGdvqyyt7brp+jXxtycBr8thNes7T9aWb1oKdPkhrf7r0emE kzCOTK0DJqampuYjqyeJU8rruLRF2fgUkV/sV+8lsYfZnKWwDrKGO6xQVrfd 8sQsJtGA+lSHsRtBn+uOsSsiRXR57clOvfkbV+oAkOz8KoMec2OCMbv70OAz XsWLzFqbFHRp1TvqLY43VCn5KvUIarwQ5OtCgcD+dqUH2yxPY6YWd+vNn52M IwfyE95vx/oq0hedYykprz3WnFEQk7guCEPejghD8l1YiCyx6Zvipgw3b9hf JcHvomCQQ4cRPBm3s7Y09dBm1nc0H6stD+/U7Ng2d+hMtxzumcDWySEJvXyZ 9YV/kbEyZfmoy/7TfzDBkkmtA8kkMLvFjdujY39TsjCur6f5qqIX7TQRQEHN LCZU4Y7xfHef3mC6ZjD83uFZ4H5dEvQ+MJ9v6zh/SXfRaHtavAlkM8v5w/pl NV0Z2ao/sh6Y+XEm3ilrK23RajY+RcRrOdaaVFll7egUMYmsdZC8CttOhbMO ErPdRsNDpA46E+40DgqUSDnIhKCkhJwMUgD5KSTksQ5yJUv5RjYdZqcMoNyQ talb73fZ5wiXSkX25NJZLm6/jXbvj7Ua2NtM5RGjq9DrvsoMZlaOYQcnla7I hWzciI9l7rqYEAgcTVvU/MWf9Jn7FDGWcknSsOgVj/moot6cPN6T/VLoD4kQ //SDe39xx1lNmdwdCPky1hih98RmYIvxq/SP9J4akvRLgbyQwNSDoeF495Xs jisz/SrITyEh/S6cQ1nKO7J4R++kAZSZ0LT1lI71M8+NdZDl4hZvNXAe3clz iewgMLNyDJvzJ6l2HTYNbp7pt3tjXW2Jf0x3/HqCQRHRPKndZY2Z5ynizBP+ uOPwt3+lqXwv8TYt7s+zyLm0w+GiaaiKNrtP0gHj/CpjDW0uhj3yYXiFvHwy p3m9gCwQ391WJsKxw566gEV2QH4KCr/b3GdOmlNdMuSRpbyTo9F7/cYOoKwE vdberkiyjtxYB9ktbhtTg4eiVgMbKn6ypnlgdCaPZXcLB8ysHMM69vM7p5GQ 19qi5I915jt85mIEqKSBM7wwlnKF5spn3U09Ftfzzb8jwbnJYaOm/myqSIcw G88GDymlLgb0pkKCE5/X0bSyyTKVSe7NLF7M5cul6M1bHuKfGjL0XGivpdmY ETJr7+rf2RPtzSAwYWqkqbImyzMps/ZAfnYi8sjSDgIDmC1hlebOKcaniPvX nFgH2S1ukVDlxi9H3H/5slOjvXLv6ZL0dVVAajCzojD6eRnPBcrKDwau2g6f ccCrkDOB3vtaBj1Z5Cki3tuner/1hUhoyeMY1Hc0ayIxNc1dxjsuX7r0IKxH X+pKSSACCbiMdbvpat2I1FpWxK+ytuuaoau5uaNPf6Gz81Orey4UXgbtxlaN 9mznuYGxWeh2Rc56wH21jt5V3Xtf2iwMkJ+dh1yytGPAAGZPaNra3rutWnEu rIMsF7eA21BXWnVE22e2OX+CXZAPMLO2w/j2l0jsiJ4b2JiFFMVBwCZM+aRa VeOn20LLpYI/mTN4s+ByuFU26u/zJEYW92bIzw5DPlnaIWAABRD0WrvbrdPb DhlyYB1gcSsuMLPiYZysVMeSVxwrVNYmzfVvJS8OAqKQf470HqrptHrkKPDK n8wZvFGQ+fu9NfWdVjnys0F+dhZyytKOAAMoADJn7zp1xxuj8uXAOsDiVkxg ZvERmDAd2dM5XFQJs9YXHGf3ZBXjsDMhyxPmU03bbWESmHn6i2Tyz5/MGbw5 MMWgW9/bXgaRBH55OiORBEF+dhLyytIOAAMoiLAhcLS89mhcSQC24kxJ5PMz MpwzYnErHjCzkrL2zHJCox8vGvuA+B/qD72fVYzDToQxDU63smW1t/A7uroy qY6d2TfwJnMGbwrsmnk6Np/eht9xsUuiAzfIz85Bbll648EASgqX017GuwMs bsUCZlZqyOKD/qaLw9L7pctA6Jfh3vfPjfwTcy4VYdPg+vl++8+xtyvrfqf+ uHQ1Pli3tLdab/+406P730TCa+b1M5/YvbH59MiCU3dKqurkkJ8dQg5k6c0G Ayg18lsHWNyKAcysDCChxX8M9v7OuSiHd7p0kBdO48fm8V9xV5eSoNeqVfKn nNrhNT5AZoSmrS3lSZKW4a4cZANkSSQYQMlBxSvwGjML7DTIittYw1+qgoqt 0g4AL3634VBSCdpndCNRGMgUyJJIMIBSQmZsZ9Tq47XlkSEtrWqQKe4AFDqY WQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAJAHMjtyuV2jVqsbqkr39DtXSL4bxA8J+peDG/luhcyQ4PJy sEB/AAAAAACAHc2qb7jvsG5sJd/tkB8SCvw26zTUUJSixTZXiLopCXn/3FZR Qh+xeAuxeRIR+vlu21s0fcLifZXvpgAAAAAAgE02gi8mh6+1VtBUSYfDn+/W 5ITQnE2roHYfGnxWkKfzZG3K0qR6q2XwceANtg7WnlmaKitabk4E1vPdFAAA AAAAEObVjO2cWq3WaHVfGD6ooHaOdbDk7KuiqFqDO5DvlgAAAAAAAFBwbHjM B0RZByS0+OSbvzzNm2MS8Tn/NDaToaP+q0eGfQqqgIMOAAAAAAAAyCPirAMS 8n3b23Rx2LcqdbsyZz0wcaO19UYmbirEazlCF2zQAQAAAAAAAHlGjHVA5u/3 1mstU5LfG4TmR3TVqnabb237twU9Q5d118fmQwnPr/vHrxxquulJkwWHCzoo PXLju39YP+3svHCpu62l5/eu+QTTJrTgcdzo0zZru/v7Ot7X6m7xPBPzvEtf SqWkVG2dSfmGX103dR1nP2zWnLs1uZyF7UJWfK4/mXraW5rfVauPNTQc1/aZ h1zPpc8HJL6Pr1fnXb/v7ejqaG7uvvXkTQ6sAAAAAAAoWoRbB0xsaV27fVZ6 LY9MW46UUgqtbW67IZA6ZCAwYTpeo3uwmKo13BsUyrpeq4fTwFc85qOKmk/H /Vv3DiTweLDlLZXmd+MRi2DNd6+r5r27vvT9JKHA3NT311tUNKst767t+2by l8X0ijpZchu7je4l8vqFo6OcPjAw8SqjQSWBJ5ZOba9lbGopakYxxsJtXWNl dafVI0vMr9A+vl4PuH/XbnQFyIbf0VVCv2OaeClD8wAAAAAAQCKh+bGrmoqy Ov1YSm2ZQah1ENbGj6haM9GZs4bM2VoUVHxWz7QhA8HHprrqVNYK9wal1uoN bn7Gdn9Pi+0591fE/72xXkXXXXVHVGsS8lpblDRV0uXwZ5jlaNnZt5/VnJss M2vpH39N1jzXj50ZXgi3YG3SXL+b2md0Z2IdhK2z906bJ3guGkjAPdCoUmrS XqYIJts+sl07dt6xsM5ZZDQCwwEAAAAAcsb6E9N+BaO77TdNpjs/FmQdhBVa c73iqNkjRywyWXH276EU+wyPtmfDzyBkYH3BcValOsuqoHzv5XsD2316Tx9b 7oHM2tsrKbrRNLGpuJK1qdutlVUa09/T2llRAi59Fas5N1t9iU5QibzyWs4Z GVWZvJoYOEDHdzwJa7PWc+dG55M0igQnPq+jd9UYfpAnWjzbPoYH/48fGNl+ vXpsOrArUwsIAAAAAACIh7xw6huUFSdN47+l1cCEWAdkztG5X9XJHndLT8Bt qKWoqj7n0rYPoyEDlulU37n2xFSjTKIS876B9XKJWAdkxW2soWll271kOneG 7c9Wc46STbbVle/1lQq6/Lh+9J/8jSVea5OKUrRaZzM7288OwX3kN/0AAAAA AMDr13OOjsMdjrn8NiJ764C9OKAP6l3LsjRISNDBJq+8lhN0yYd2nusD3jdw lghnMnAPbHkZCUWg5kwWhjtVNF1v9qxl4MQ/aWI9exT7TU+S3A6tTg8eC/+w B8xPZaj7JtQ6YOzKfRQt060TAAAAAEBRM2NVl6dL8yI72VsHyy79Qfk8QwQG HWz++ay1ScF3xbDx1HygJP4N3Gs5ZZWzSugTFm+6U20yO3K5pbqUpkoPtOiH EoJ/U2jO6wHPkL7lQClF0RWa/mHvNr09NG/vUFK7682TGcUqLI7p68oqNFf5 MjhFHll16naHW1E/mPK6Jdlfy9HH12T+XpsyUwsIAAAAAGCHUZzWwcpY3x5F xFFfejjPEzru/TEhA/6R3lNDSaMPyI+D9bvoQ4NTcSfmnHVwwOzZ+jziShRx keKsg0yjj9cDT75oZGI7En37k2vOKz8YanaF/8O2qOetHm5zBArN2fr6Yxyr hBBJQbpb51wVpopL3UcmVqJVQamarIzlR+aGTvfLJEUAAAAAAMVIMVoHnPZe 3uF4IU9zOFefWH8YJuFnAx35MNyAyydTRR8EPeYGijo2OB1XoYB1HNp+5RGa traU09WXxhY5JZbNpRPv0cR+f+CZTacf8sUd6v9q1+5lFOT4G42kmvO621DG /kGi8xJr/kTtlLVJ83G96GrO0buDrEMDtiNlHyP2VyRsPDzap3SiLSAAAAAA gDeIYrQOViZN9VnkscwWToGkqC3nE+KfGjL0XGivpVl/ITJr7+q3J3WneR3V ihO1U7I2ZWlSHYt4vId+c5ubK+o+dmyr8kwWH+iq9zXdnNxShEN+7/gfde2X 7ngSE4dyZgiVYIkk05xDPmsz3/PsVzMuN7tY82d11qbrsnkzywS04nvssFz7 uE93Sa/XXzF8ZjT94a/TfrapazOWJkGBw3L18TXx2dsq2OsbEpod6uoamg3B vwgAAAAAYBNprQMSmnfdMl4xXOnVtpy/6fo1M42QvHIb91GpM4Vuf5zx26FK 9a4M3k6Cz113jJ3NDVXKilp1W9+N+9P89bnWfDbjTQ9TgyASdFDbdc3Q1dzc 0ae/0Nn5qdU9FwrbCHZjq0Z7tvPcwNhs6i8nM5ZGitrVPZpQbYt1iW97v6Pv fEfLab3FOROMcyIiocUnNmNXi7b7kv4SUyW5x2Qd+2mJX4nd1ISr9K6YSOck mjNnWCVT11d9I1fZDn6ktz3NoI7w2uLEXb3m7brOmw99W9ZMeMyd169cdy+S zZIEwj2LJO8jCfn+Zmx9V3v2TCdPLAMAAAAAwA5HSuuAzN+/eObmBKNxsYfG ynZbvCdMzOMrrs9PqMO8U1XKFb0tKa89ynxwxjaTQpf0OzpKKEpt9aVrTsg3 rKtTUTHQSs1XE4k64cr3l0/fYWuYSZTuknO4FxaNm83XZKk5C84CmgBZnrR8 WEWXacyPeewIMue4+KXr5SQTZxEmJtQiW/LXRwAAAACAHYd01gGZtX+kj1YB 41JZqpptsxK8Oe572GP53X3OBK+RmKdCvm97qndRpXVthsG7jjHX+Kj91rWz DRU0T3zr2qy1u3f0N/afeSsdCGgle8Eh6sw8E7haCdlrzrt6R1+KaBhZnjCf VIZHUv/Qn6TUwSu3uf9Lg4Y1+/juUDInT30EAAAAANiJSGUdhLVBU/Pgs8gJ MXlua9lDyRM4zJ7K02UGdyqnkDXP4JGy6u4/e5ZiLy9Cv7kHPyiPq8/16pHx 5FfREAPeSgcCmLU1q3JwfB2NwI0zxJJpztEIX1GH+as++9kKiqJrjO4UYcv+ ++f37WWrZe/V2n8V/GWv89NHAAAAAICdiVTWwZJT17WZpZ9z3af4K4KJhDtJ Lk3Z5rVZq/aA7sEir+rKZB86enArH9H6guPjLnuk2i9/pQMhcLorX2CstHB+ VvElyZJozlxKVXGH+WTuXruKTl+yLZLMlMqofENqct5HAAAAAICdikTWAZlz /ut3voiyyBYLpmhV90jG1c0yh/NCT2kdrHyvP3rVHUyqujIVgd+JHiwTr/X0 VVf0DJz47raq3mq9/aPodEic7hrnDCMDkWuaOIuGX3PmSjaIu9Nh69Axqnq6 65V5WzPrViSBqZXrPgIAAAAAvKGsPzG9VUKJZddB89Ms7gA2ng0e2i2B6z4/ 6a2D9cnrHdbUCumSs+8MlxB1Y+rrjpvPZPBAyZV1wAR3X66MP6Ln1ZxXpwaP M4pz5WWX4EIG/pFu5uKAojVWX6p3kFWXnvXvidQdE0du+wgAAAAA8May+sLz yJWKb/S1qlr9Nymf+cekL3NNi6xNDtSE1bPtNb8SyNAs4fvTDO4O0rPhd1w6 N7rAxCAb9aJDDHjJmXXAXHg4zoS/S1HR87eoMxWP5szcmDCKfWW7fVao3kxe jvbuYg3G+sEfU74kWqRAKu+y3PURAAAAAGAnI3k1tEih4RrTE3lqla0v2E8r xFoHr8n0H06H9dsV5+WLozK4P72O6q71psmV9M+KhgQemzVlYa247c5PrEdV vOYcfSBJAlLuJb77l7Un1OrjDVWqPX1jfO3mUlGFqdG7Ug5bxPl/d715Uiox kKSPAAAAAAAgJVJbBytjfXtoij4+OCVXNC4b7RoXoJo9C/aOy39fcBg/cS1L 1bBYuMw5uUu5T4LeUVNrBb23Uf/N5Iv58S3N2e9z3dY17qUr3jU4fk4ejREm FHjhdRoOJY84jirk9Ae2+RTDH3UEUp11SBqWLkUfAQAAAABACqS1DiKp6bdF j675Ru2uJSlVxA2P+QCVYank5IRcn1746vcffZHC/Ukc4YEtpUq6HP5cZtXc CPoeOyxXe7TvNlTtZjXnioZmbYfebB19+iK+KDMfXPxvUuMueneQevSJ19qk oqjyFuu0DKaR6D4CAAAAAICkSGodRHLLbDt5JtOWDwYk1sAX7FpFJrWSUxJy 6cv2HNrKayo1XD7P/aZJyVO6ZoTQesHc1U/SmJForHEq6yA0Z+9UUbSqzTYb SnxJaH5EV62KK6JNgp6hy7rrY/NZGROoiQwAAAAAIDmSWgdcXvqtXJdkzTN4 OpXnOQnNP7LqT2nU6uO11dXqM8Y7j+Z5VMpYOJ/2NOXQ0sFo7w1mT1DEK1LC mjAlHQ55ghrSIkxzJq/cxn0UnSTogOXVY9OBXcnrOJC1KUuTklY0fvEkwPfz 8BebW3L2hVtba3BnFcEN6wAAAAAAQHIktQ64FPf1g9PR0mKOc5eTe56vByZu tLb+zsklRCIrPufnGqVCqflqglex3GJhtLsynet7Ol6OdtfJWEuXLe9besQy nScXeGGaM1eoInWZs/XFsUvVtKJSN+aPf2g94LF2Vu9WaszuRX6LkL/Y3KtH hn0Kak+/M7scpLAOAAAAAAAkR1rPohlbaznVaJkJa3lkeeL6+Ysj/0yq8K38 YDh81h5zhrwyZWlVUruqk5U5jsClLarsZlKSCm3p9E21fly2MsYhn7WFpuS8 m0gOCS7+MvGn7mo28yhVphl4MDUfyEh7jgQdNN34/qFV/1FnX3+39oOem+MJ tzmrvuEL1Uxo8F33jD/EfeX0+JCprUqxv9k0MpPU+Z+sOPv3UIp9hkfbaydz 9csULba5zNPmCu7jJqEFj+NGn7ZZ293f1/G+VnfLNS9zVWsAAAAAgCJA2qhk Epofv9nzgbbnsuHKtVuuX5MrbOsLjvPHEpyOIvnqY4pe8X0NcwQdr2RmQ1h7 b9NImcc1jheOjvJcBx1wkQ6pSJcGNpJvak9d9x0Pd32zNmmu31Ojf5hwTbAR 9LnuGLtO1pazpdHKa0926s3fuNLUxeCy3caVyQvN2bSKDO9ZxPeRhQQeD7a8 pdL8bjxiEaz57nXVvHc3ZX03AAAAAICdgOT1DjKEdTUvPdhmeRpzvJ4Y18wL 99gBoa5BzJ8fkrFOGRN/UXJAvpBnWYgEHShbrN6tywK2qFl8mIDgb5Aw6EBE K/zfG+tVdN1Vd8SBjYS81hYlnfMEUwAAAAAABUherQMqwQWdO3Wn0qrWnI+K UJWS0d6bLDPylGtjHJ8+LFG0Wmdler9M8AYdcCWP4077BSJp0IHgRsza2ysp utE0sSk5ZG3qdmtllcb095T+bAAAAAAAOwG/29xnduchsw4JTD0YGnbHOXtn eHfwmnN6UVbqv8++FDGbllM+tx8m2/8eVfdInrIVCSUSdBDn08UZa5JYB5xB F58QKSbowD/Se2oo8+gDIW1wG2toWtl2bx6GAAAAAABAwUN8d1uVNKXssKdP fb/ud35cKeSIfmXSVC9brlG2TLCi2eLNQzyyKHgrHXAH++nCQDKDCzqIvRUi S25jAx35MGw+XD4pb5Yn7sYqA9sTAAAAAADkn8CEqZGmyposzzLS+Mn8aM+B rK8PyI+D9RVy6YehnyyaivpUJR4KFLYCddzBPheJQNH1Zs+a6NHigg62v434 p4YMPRfaa2k2JJnM2rv6M7AKRbdBGmMHAAAAAADIynrAfbWO3lXdez9zrw+y +LeeyqPbfMgzgAk6SFbMSySrs7aOfU2WKfG6dM5hrYO4cA+/23CIpvZ1OiRw 9okEHdR2XTN0NTd39OkvdHZ+anXPhcI2gt3YqtGe7Tw3MDYrb90CzjpA9DEA AAAAQKFDQr5ve6orG/X3fWlrJcewHnjyxZGDn477M40iYOqUCU52lAom9U1r fd+wrzjT5jOeRSXbksRymXx2p6s9kSH8lQ5yzorHfJTmS8FEAs9sOv2Qr+ju fAAAAAAA3kDI/P3emvpO69OAEEV01TfcV38i0xP7dc+fDA7p3YqI/6H+0Hvm ieXiuzaIwJSiU0Xcfkho8QezprpON5ylsZYM3koHeYAsPtBV72u6ObmVISnk 947/Udd+6Y6neH87AAAAAIA3BxJ4bG59Tz/yPLT1yS9PZ7IyFFbnx2+cM7uz z18kEeQX+0Xj0FRC0bDigix7bJ+2tXT09XW0tOktTm9Qqv7wVzrIC2HD54nN 2NWi7b6kv8RUSe4xWcd+WpLGCAIAAAAAAKJgTYPTsUfuG37HxS7Hi/w1CkgM f6UDAAAAAAAAthE2Da6f+cTufRmjM5IFp+6U2VNsGUFBcphEtaq3Wm//CLd+ AAAAAADAT2ja2lJO8VIQLigAAAAAAACA3MBly0xCXE0uAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AEXF/wcTVyJU "], {{0, 123}, {1034, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{614.7272727272725, Automatic}, ImageSizeRaw->{1034, 123}, PlotRange->{{0, 1034}, {0, 123}}]],ExpressionUUID-> "eb46420c-b11d-4dac-97d8-d23d89ed3b44"], "\n", Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzt3V9MG+feJ/DR7l7sxVwsl1wgZYUs+SJSFCGkTRRVcAFKhQRRKoTyR5aJ mjWo7WtItiZUAaLGJGomamOrielprTSI99Q9J1b6xnTjdnF7oBVkG/fUKFg5 Tgs90OBToEAshzWxncl6ZmyD7bE9Ho/tMXw/0q7ekxr7mfHjmec3z/P8fv/9 lPbo//xPBEGc/a+R/+9oe0/9mTPtva/9t8j/aP23s52afzv9+qv/9r9Oa06f +R+n/nPkH6nI//vwvxAE83+/BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAoMTq04v7m7oiJogxmq8M576czvHjTe/97tz9ctMYJswMO oUztmDO/Yw5EWjgtecIJBAAAAKnQIe+kWddSTWxHVjf1mKcWQ6kvDz0Zp04o 6y+OeTeL39Y0dsAhlKkdc+Z3zIFIC6clTziBAAAAIKGw323pqqsia09Rt7/z rGzS/n/et93Q1lWxY4x9bZR9dusJ8Oay6y/9zXsV6k9nZPRYeAccQpnaMWd+ xxyItHBa8oQTCAAAABIK+2c+VStqVIaxucTRAu1/PKp/LfqsuLpR03eZunJe U68giMrajhE5DS12wCGUqR1z5nfMgUgLpyVPOIEAAAAgqaDbfLzDOMm3dIex uez6cuj8sRqSG2Qo6jWDt775JeNOjaLbAYdQpnbMmd8xByItKU9L5MV3qK5T KtXxprrDqh7jHddSmrfdQXACAQAAysmmd0x/dHByo9TtgHIV+m2s//Tg1Hqp 2wHlr4R9iX46Yz7bOTTpDbxg/lfgydTQ6wpiv9o8XU7xL05gvuiQ9+v+o9TU Rjk1GnYHdE4AeBFYcY/d6KwliUqdw1fq1kD5oSM96OsbmkMkUaNzrJS6NVDO StyX6A3Xh0fP3FvaPiYKPra07yfIpsHJlTIYKuEE5o0OLEXuiJraSqKy1+F7 UermAGxB5wTY9Z4v2C6oVCq1dvBjw1u1BGI3yBH9T9u5UyrVKa3+ukH7CoHY DUSTQ1+ilxzntGZP0uqD8KrjvJIgyGOWeTnHHjiBeaMXbOeYO2KX/uP3tbUV GB6DfKBzAkCSFx5zI2I3EC/gMbcidgMplK4vbUzq91ZU179t8fi3/zO9ZOuo IIgKra08tm3hBObtxSNzI6Y2QJbQOQGAhdgN8oPYDaRS2tCDJIjqY5a5hAki n0NXSRBEq9kTKHaTxMAJzBuGxyBb5dE56dCK+5u7IyaKMpitDud8xu2um977 37vlkrG2bFpO+2cnLAZda200gxTZ0GV5WFbbiiFfecVu9IbX+YWpv7tD87pK daK19aRWbx51PgkUvwsxGyvq1FbBC3NybnloeXywXtlt8wa3v0vAM3p18Obk ct6PlHNtv4zkMVwsWv9ZuaetJonsyOq6Vo2OMo/+yOVbKMAh5NeRCncgsiCy L4U9t44KOi1JKmt0X8c+Keyfmxz9ano5lPDNldu0kVSx24uA1/2d7dNrfVq1 6rW6yLll+lOvwTLuWd/Wb+mVKeqSdYH7l51xAsUPj8Me82GSIGuaTqq2O9la pyCIw5TzafwDfBMXlMwv9DUVzytbTG65pw0rzJEKujDS3nGjroN5i6baffqk BGuRF3/WUa8yuVLGMqE/3HazXvumTv+eXvemVn/rmzlfGd5q84vdinG3pUPe SbOupTrpZtTUY57iS2MbejJOnVDWXxzzbkrR4HzurZK2vKBCvztHept47ncN +qnVYjcGSkd07Eb7H1p6tAOWydn43Zz5rd0ebDtQ32P1FPVxRGDeookMEKop p5DxgZiW03OWY9UpI5D1KX0dQTQZXH6ePylY+2VG5HCxBP2HDqw5Tc3sNVnZ dWc+NagJ+b2e7y39RyMXcLLubYv7aebbWsk6ktQHIhtiQ4+Qf8UbMf/I0sUV k65QmX9a8PKZczvHbUM67t5XobVnvNsFvbZuBUEquu4tl8cZzD92C67NjBq7 mqsJZVPXNcuY07Pw+3qkg9GB9d8eTd6m2lu6b7n+YPvuxqylU3HI5M70Sy27 E5j31EbIv+gYPMCN/JrfH59d8of4j5wO/PEPy5uV7AsV6o8m51ZL8MwzH9Ie aQ4Xxmdu01GC2Nthe5L4NrwvjozJv6XaGlXGvy1Er5PPl8cv1yuOGZ2r7J/T Qc/t92z/LI9zL7ZzFuVuG/a7LV11VWTtKer2d56VTdr/z/u2G9o67pK8r42y z2590Oay6y/9zXsV6k95y0QW994qZcsLiQ4t3x9S7yfIBu2NP1utty0m3fYg rqpv4llxGwQlJDJ2Cz62vHHWPMMzJqT9rqE2pUI94inWrYheutetZDqwoKMQ 1XLu6XHyjvvnPxkOVhB7L+WZsDe39suOqOFiifoPPTfcwlzkMraWXp0abGRe pei0zKZ/Bl7SjiTlgchInqEH/WxigL3d7tPaf8/4yrDfdb2ZzPa0JDBtat5T PmfvZX4nkA6tPbQy8b6ySXdzYu4p35mJvMZpau8a9jxdm7xSnzVBcfmdQAmW pYVdhv3sSKpl+OeMv+fwqv1sBfPKA30TZfnAXMIjzeHCSD+xdewlyJPDswlT HvTqWI+SJBuHZp7HX8xm1K9X1g9+t7b9bdlBPtlgdDFvu+Ex9xrzffpaLOI6 ZzHutmH/zKdqRY3KMDaXGNHQ/sej+tei81nVjZq+y9SV85p6RWS8U9sxwh/+ FPXeKmnLC4jrzJH7W02HdS52cY4mg4pSWb3FbROUkKjYLbhovXBhIt2TVDow 81EzWdVg+LEYN2x6eaK/XnDXFddyemPq0l6i4qDhp+fb/3XecowkKjpsS/lc 9nJrvwyJGC6Wqv/EhxAnhucyLXWgF63tFeysVt94mt9FaTuShAciK3nGbhtu ExvRCtldxYwAD7RZfk17yul1l7GVJF8dGP9XeTyTZ4g+gcE1162O2kpCcYKy /5xx3wQdmv+8vf7VVxUkQSgyLfMuyxOYf+y2OTd8gu2EWVc/PnMZDrOTUR1W bxkuuJDySHO5MHI7Kw8aXc+3/ys3w1vTaVvY+leuRIXyvGM1aZjtdxmaonMx Gz8aT38y87xMeqiYzlmUu23QbT7eYZzkW17I2Fx2fTl0/lhNdI5IUa8ZvPXN L2muM8W9t0rZ8gKi174bZAI3UtmdWIfl2URfFebddiMxsdvGD9SBCrLmJDWR 5qZMz1vblURFp3UxyPvfpUNvuK6fuHD5nX3sT2u/wZX5WYjIlnOX+jp9QsXb 0JJNW5G6N7+g7Zej3IeLJes/PifVwE7LUM7NjF8a/fNwC3tB3DM4xfvKEnck 6Q5EXvKL3SLnXK0QdFoYfid1NP303KZ37GK98gQ1/qSsRtXiTiB7sEwodpr3 WXeKp07qcLYYuUxPYP6x2+927T7m3GR9h/hvs9HsKaM9qVskPNIcLozsiCX5 YRQ3siWbP5rZmo7hpiTIvcnb4l7GfiZ7O2y/LtoGzmwP92ROROeU0WhNGNkN 0mSAXrR3s8uTU7+mkJNipwbJunN358pneQPkTUTsFnabDrHd6JDpYZpQg3si V9loflTYm1LQbT7xrmP1V6uqWsgAVWTLC7fZLcf2y1LOw8WS9R/uxpd9l1PE QvQbITS8D4pL3JGkO5AcLTl0R3WOpbzfJ538YrdoSkMhp+UlG7upKCfvOWf2 vDc0vGP1SL5PUIYnMBa4VZwceijweOlNJ7UvU4xcuBNYeHnGbvHH4C3DWcaL 0e5K7qMeFD3fgRQkPNIcLozcaDxxsxu9+oBqIZOX5nJ/fqhv4o+Uz+PepLLh 4rWLb9zyBMunk+beOWU0WhNGdoO00guvTVysZc/JAeqH5PBszdHX3N5n/nZO Lrk6oUhExG702iTVvL9WfT196h56c2pwj5Crel4C85ZzZ+2L9MsVh65GyABV XMsLttkt5/bLUs7DxVL1H9prVTPTm1l3Z0Qulg9NhyoyRNOl7UgSHkiOIpFg jcq6kPf7pJPXdq1oQCHktDAisdtZvhWnYf/Mrc72a+NbCcTC/oWfF6S5M8rt BEb3/SXuoRBg1c6MffnvGgU9gYWXX+zG3U8jcUrWNRSxzWJZ92bKlIRHmsuF 8Y+JvkOJo3H24cNW7pF4+9jvkTxlmd++hi7633yOXiaaLK+dmC/FdE7ZjNaE ktkgTQaCbnPLHvanxtuZYZcqUH236ERuISeS6KV7Z9/4yzyT2yoyDKtjY58s 23+ESGk5t446eelFwjpq3/jAmdFcd70VqP1FV5CSUgXoP7H7NdFAObN0du7L ZZ5z5bGZsWAdqdgHso3cQo/t4rtvsp8W1tOpwQu25aRRJxt3dN5K3Ie+4ui9 LFFBJXmdwPgeCkXnXW9O3YPp3Lyb3Qp9Agsvr9gt5LV2sD+4rF9BvLuW4zX/ paRHmsuFMXk0zi3N5Vvry03E8H+P3CVULjNNOShMfbcijNakVbRBmgxwhybh TRx2iMLEbrEHI4WbSKKXJwbOmj3cLzW4YGlne3ddmkVQObxvSsu5ddRJE/Ts NvzoP0Z+XFdP57qgulDtL75CxG6F6D+xRBYVZ+3JW9eTX+kxH2eHJdtrFeWq cB2pyAeynbxCj0SZd9+suxyu9YR/WZ64fseTcP4iccfIuUv2pJoLtG9y8ORN iXYkyekExrMkkcdjFyLBmMFT6ma3IpzAwstreBxfQZE1Iou9MkuRBdmS8Ehz uDC+mB0+EhuN04H5CePpBs3QxMIz3j3JzNWPr7AgHfjV3v8qidgtqvCjNYkV a5AmB1xWVcb+LntZJX2CAhMfu9Eb3mmH5cZ7+sErFEVdM3xoNP05VvIyHowU 6GpAb7iG3hiajg0d4mn3hK0/yanl3OO7yACnxRxdGE/7ZkcN/Re7m0h2Dyy9 aO+9ZM+tPHd+7ZcXsePtIvcfoZkB6NC8tYPJoVdRe+7/ZClKVZKOVIgDEUpO oUeSzLtvnk28+27mHFzx08VDugee8jmBdNBjbmEOl1T2jK3menQ+h642abNb cU5g4eUzPGZWB7JnIGu2nNhi5nJNDSfhkeZwYYymnmj7ZNz11Sc9au21e4/W 0xSVY9/mB2NLbbPRGc8KSAeW3A5zf8+H9oeOaw1V7LBnY9YyQE2tp3sTeRHd OUs5WhOl9IM0WYivnEnZyge7HP3cZTyY8701uDZzl1K/2twzct+7tZKYDjyZ unntpmuNfvl0Ss/uNy3QLHzQbX79/Snf1lO8WK6d6mzjopxbHl1H3dR7w9Cr 0ej01MWeng+srqVQ5OJgN3aqted7LgylTTAreftliHvklVopNYNS9B92hw7z lvqpDI+J2fIxQgq4lK4jSXwgOSl06CGiL0Vl3OFOb0y9/2aGbPYRGz8aGmKp llMij6S803mQzQmklxw9B9mjEzUnG/I67/+aMOtWpBNYeNyqPFEjpVjVxezZ cugFSxvzQqXGtii6pSUk4ZHmcmGMdO/m6rpjWr3ZNvVLhqht6839P39leqdD 23eFutynfVNHDX817WVTUYb9ni/07R268+cGPn9Y/JTvIonpnMW529Ihr+Pq 5a/SL70Ornu+uaXX1FeTBFnTrP3AljaRUTHvrRI2uxCez1tOkWX3+AsKiN5w fnRKFfFaXbQse2VN03HmH85lS5hLP3Vb3q4j96vN0zxXvMiQ4PInzmduLg9e YbIfB+Ytvb2OhI4cv5VkKrYrpuX8RUNK0355eeo0vcV0mNa6aPFKsqbpZOR/ nzpn+2emHlSa/iOkanPYP2un2vYR5CGN6XtvhoFBKTuSpAeSswKFHmL70paM u29Cv1jU7dkrvhWDXE5grPAfkVIna7facJqYO+LJ1jpFwilUXbAtCPzJxpdP ZF2MF9+yKqAQoRxJeKSFuMPuOKI7Z9HutvSC7eygPV1EST+dGX6rNmlOnjdR TJHvrVI1u0Bi84nEDihzUAzB9blpZ77+7vaWdWqbNCKd2XxaQVQ1UPd9aWpv PHeZL31iYPPgFWRBCL1k7z1rS35O4rWqiIyfKLLlvEVDStH+naFk/YdbS8Y7 hKBD/qW5mYnb1KlaRaNGf8vhWc2Yq7S0HUm6AxGj0NNGosV337RbFraVvwn5 vZ7vP+s5TAqq+FYEMjmB8VC3bBPUy9HqRB9bg4k4pJ/KPJUZ27Iql26ZKwmP VPo7LEQV725Lbzivn027sCEwb9UqyAbtJ1+5FnzMLSnkm3/wWU/9nqQifUW/ t0rU7IKJJZSW6iHP5vL0j4/lmu+X9v9yfzq/VaHhfwwfVRL5qqzt+3ZNqqOS i02v/Xxt5H7fYHRlCEx93757cF+hdm/RyxMX+i3zKd04tuiQUFm9PH8mtuX8 RUOK3/6doXT9J161uaJJ+x7FQ/+2uvWElvrzmHMu41KcUnckyQ5EHJmEHik2 H1D7+HdacYRVfCsCmZzAWF4XqdPD7mrxehzCRwlSp3cuEgmPVPI7LEQV8W4b uSudve7k/xQ6+MvIsb2piUDZf1dsX6VZ9HurNM0unPjsthQZjZg5xHe6b/LN ZspEpIU3e7uHZdzCskUv3etWktk3U8TDEOmrUTApPt40u4Op/yV+N+Gb9xfd cv6iIUVv/85Qyv4jpGoz/Wxh4kOVoqK6+cKdNGvaS9+RJDoQsWQSeiSLLTlO mUUK+b0zt3W11cIqvhWBPE5gPNFE0jQl5CH+kJxUW7MUXIhuWRVYiFB2JDxS qe+wEFXMu+2L2X/Xpls6G4mP3ujiqeDA/Kcnto4z8ewoxb+3StLsQorPbue/ AGnTO3a5/dJ3a8nHs7nsukN1nVKpjjfVHVb1GO+4EgNgemXKqFUJp75k96a5 oYRWPY5beu2p6Au1l25984ufpgOekdf7v4k+2KH/NT6g7rbN4zmOpJ46qcPc qDHL841lm4a7sEt+QQ66zW8OpXkmExkUcdk+UjeMiW857b3bqXyl8/bP0oxv RLZ/Zyhl/4kVh806WAot2brS12wtfUeS6EBEk0fokSxzmtanU3qNyS2TCrzy OIGxJwA792pTfPGNXVm3gMW3rLbIplvmRMojlfgOC1HFvNsGPOa+tJsZndfP WH5J0wK/k7oYq7BZ/HurJM0uJC4vDSPP1RFMfNR+5NoDX2KbmRWqZzuHJr1s SRcmFczQ6woiYachvTrWo6xRGf6369fVQPwf2WA5Mdh/EVj7ZZx6jeTPgEqH vN8Z1cd7LA+88fIxoT9mbl8+Z/jwfP2+7Vv5mJKjDSeMrvUyeJazNqZLk1dZ sAM6x1LB2+kb71OSAh610ZtOil2Oo2zPnNgtZ4F5iyb7Qg3yreSfVelbnl/7 M0P/yS5eHFbAYCmWap4nrVPpO5JEB5JO+KHplcr8+lJE1WHzo+IuqY8/n+Qt NbVoe/O9Cd4CUJIrlxMY211LtFmyZKbKtDqOLMi+j3K5oCXzOakG9tOz/jZj W8CqBorULSW2e440Rbl0zmLequhfLW99wr+ij56/c+HWTCDdG684Lppd4aI3 WMJmFxJXvYuRZzm/4GNL+6udyTkI6Q3Xh0fP3EsYGzCv3E+QTYOTK+w/h1cd fYeSK8jEaoWnJLliyhkc5lv2tvztQMORgfGU4nRcrmPy5PDs9rt20GvrVjZ/ lP78y0ZocWrEyLdxRTDDZ1PeHLabC7/KbPuj+AO0rA/8Y7kUKt/OVjg4N/SS /Z0LjvR1iPxOqo5tddIqoNK3PNoOke3PBv0nu9juHkFDiNgEaPIFUw4dSZID yWBzxfNTxhRMX1JNyibqS6nSNInqSyni8QXvpoDww6F3vlwW1p68lckJjMdu OeyuDfmfjOq4IgDKs9ZfnhZqvq48Lmgp4lUXs/42uRJdMtqDmaPdc6SpyqNz FvdW9Wziwjv8mxkjMdB7d9JHWM9/+vDyt77iN1iyZhdUPClZxQHqhzym5yPx 13nlgavJ2/oicdM5rdmzwfPi+Jwm/cTWqUl5DZcZhtyrn0z6D5HY7URnyoNi JkA7pOi8yxeSs+UaUxMdb0zq9x7qcaAkgiTiD/wbKGfGbhu9XO9p4d3VJVq6 FB9bQl6rhm1hHeX0b/v3UrecI779O0NJv4X4DJSQIQT9q6VtD9vUpEKlMuhI 0hxIPuSx5C9RfPcN/6YA2v+vf8ln97M8TqC4zEixwoI7PBeuOLGTk73eWbS7 Zl1wKFe750jLVXFvVZGBC//K62fuPw2lf2wYCROuXY1mhizFvVWCZhdS8KGp gV3Ckeeuf2Z33n6e6glMfFRRXf+2xZMw2oyuh2RXrkb+7zfeSI3FuLIFPNsS X3huqlI/iJlRrUpzBXjhc7yzn2fxBhMeVrRbF3O+baNGQKrYrFCWFX30hvMq s3pJed4h5YwDk+LjjaHpjDlS43tektYGl7blsTcX3/6doZTfQqxqs7AKKbH4 iNhvSFwXUfqOJNGB5EMeoUeC+O6bAmS1lZ5MTmBsAjeH/W5CCgvuWsInDuLd NdswVaZ2z5GWr+Leqlbt3akj/JfM/JTxwtfpont67W8Dpz71BOkSNFiyZhdO 7EhzmHQL+z2jlPpg0o4zNhbjq57AxG4kz1giuhW61ez5fxuuv/xpaiVlGi11 s1usza5/f9+RPL3GrvwklckLL+OHeeuDidQvgV2WKSJxKGoE8Ig9GMl8r6fn re2RU1fTYZ2TckVN0G0+9d7EWpZfa+xZcnXi0KikLefk1f6doYTfQryUlZAK KZEI+m0uj2PKo6qSdySpDiQfMgk9tnvmMrCb3Pk3u8mNTE5gdG1MLmWDuKUy 5XKeiyy2sSv7FrDYZrE897CUzO450vJV3FvVi0fmV99IWVNEP3fdOJ0uueiG e+RUu8EVj+hLcW+VoNkFEz3SSIjU0nfrttXmmHL+5FnJcNUNr01eqWcGB1UN hh+3/Sxf+CYuKPmDoLB/bnL0q+nlxEJC2+fdeFuWbrNbWtGdjPuTEp5kxjZj R85iFF9si2imH1doyd6jjITYXbbF5MJSoeXxwXplty0hfSgd8IxeHbw5uZz5 hxiYt+jeTN5oydfEBUsbO1g9ZHq4LUzKs+X5y7P9O0P+34LoLhSr2iygDC7t u081sA+VeZ7slbwjSXUg+ZBJ6LFNfPdN/hVwikE2JzAwbWrek8Nz3XjSs51b xES8+PrkrL/N2BawbFlihF7uaO+4UdehUqlONtXuS96BEnn9Zx31KlPyaDO4 5v7KrO/u0F2k9LqOaLLuUh0pSK7Io7XN2WGVUv3pTELRZ7/L8KbBlbq2mg6t /WhWH1YPu7dFTSW5t+bf7ALhjpRPdb1KR5lt3yfHcdF1jKQi+XDYTXPC4yw2 T4gi8j5d95b5/yLtZrf0NmYtnYqkQ7B+O515XSJzu6mS9LHzTkKHln+yUmfU zGW/vl51znjnp+UMP4rn06bGqvQPXengrKVdQVa0ffwwtW47f/HE9Sl9HUE0 GVyZtnfRS/fOnLgpaJI6tgE/+QKQT8vzJkH75StbcZDt8vwWRHehWNXm7GVw Q7+N9b/K5rpq5U9RW9KOJOWBiFe40COXvrRdmW3Cks8JDPsfftzGrH5poR6k T6EU5fcMa9j7b0oFvZ2E9s19Y+7T9uipy31aTRdldQrc+BCruZD1txnbApbt AV1ul7tnbtNRvh0ofK8PPRmnTh5QfTixwOUZiQwDvtXX17QYf/Bxfxz8h+W9 L9NGW5IfKQgUWnJZ3+9ihmvNdfWR3/cXruX0P8TijtbYR4V7FG3UPc9q9G8i Y+9XdMnpREKrnrEbmtraNuP95EJjpbi3StBs6dGhRVuXMnsuU7Km+bTukmn4 r1ar9bZBo+QJ3F5yz3tzqP7APdDLUFco/Wa3jMcUua7e0msaqxMO4NX+sd/S 3qHYD8o+1NmNwv6ZW52df5ri7k30hnfqI7Wigu/b3/oTdlq24sDgpC/5awv7 Pdae+j0Ktdm1xrOFlL94Ivcgd++lqfS3R9o/bVbvFxrLpN2AL77leZKo/bIk oDhIory+BfFdKFq1WaHOlFI4MoB5MNzVwFwxFafNrj/SfF8l60gvJT4Q0QoT euTcl7b+stw2YcnqBG56xz9oU5CE4gRl/zndK+nA/ITxzWODtr99coIkDvRN 7JCUgclCv40NvNlvexw9D/S6y9hKRn5EvPV5E8Tzlmf+bb7ctqk5y2nM7XLH pCPYm5Jqm6vNRJKNQzPxp+7sU52K+iuTCQv4n89bTpHkEXYxGB30fHramO5x t/RHCkIwA4nOM0NTT9glZy8C3skh9X4iU+cs8miNDnm/7q+PXIkV9R1Xhu99 /9DxfkN0nzUd8q8seJxjlmtdTZEIo6HL8pDvUlOSe2v+zZZWvD3RSzftX3BN 3PvcTL3dWpspnCMPaUzfe1NnXnKKgLgrHvkqTzL/+Euim92SLzVCj86/NDfz /b2RD/tUB9lny8dTkljG5Rh17h4bPxqOnrcnPFfhZjar6gdTa6/HbXrHLtaT +9qou64FH/PHdGBt7sGoqauuItJ5xhcCvItpuCWyyftumGIQZLriU8y3PPvg 9mAbc6OoaPtwct6XcRT6IrD2q+vznlquJ/OksBbXctEkb7/cCCkOkkr0tyCi C73cqhfJnNND+qmnqW/LXky+sw3pmqpJgjyopu5kepiZ1yHkoxAHIk4hQg9x fYk58+u//WTRcpXd9nVYHi775f2jYcjpBDJeBBbGTZpDJFFZq37vs7H77rkl PzMGeBFY9zI9ynxRo37HzK6pY6qmNp4rRP0UGQgt2985Qt3fPm6MDmKTI53k P/R7XbFOWKuzzfnTrV1hLhTjxjZu9VCj/psn6bd+5Hi549IOJK+M4pY/1Wyr 68Td4g+mJN+mn7uMB6Mf53MZzw3N8M5gF+JIQQify3D6jH171r3oPFTGzlm0 0Vr0JaHlv3/efzRhbiVB5ApzzT6bEpnl2+A85d9sCdvitXcdqG7qHXH+nnon o/3zTofVTPWcbqqJx3FkzREt9dnEXJrmseuWhcVu7MlXnqDGn6S/iea+2S2d kHdc30RmyrrG7hDB+vxk4VXHuydSkqxyj+mypSR9EfA67xh7o/2HrGk63UOZ v8y4toRbIpuU64at7MD/3QU85raUhwx7jgw/5r/WLFrbK8jqutdUW0621ilS SseKaLk4BWq/nAgpDsJP3LeQYxfyT+prs1dB567MNU0nNEIWYOd7CKIU9kBE KEDokXtfYvNtJv1kuN8N+5WIfCpYHLI4gSmC67P3bWZKpznRVFNJcOdWoxs0 fe5wLWwbotOhZ8925jicnboia183Tv6+dXzRHVuH+ib+SP2LNJ3wOHsCt/8J lzIuzSv5+2pul7toJrfEmwUTaNdXkdtK3Ebv73xTJ1wV4MjI/PdF25kztqRU cYU8Usgu8sWdS912wdU1zpJzuAijtdRPnHb8ub85fteKfKiqS2+2Tc2uCXiy VsR7q5TNliuhsRuzw7Gh4R2rJ/MaA67knOBxKf2b/fq9NKuvuedFiN1yxS5d rj7cZXmUsO+SW3qR61rWrPLY7AYyJaA4iJQfhy4kFwUIPYrcl0oMJ1CWYpv9 E/bgR2M3qW+IAhsj9HLHjasTG0mvPqBayIR9K9wzc/5xV7SrNPTduNibfhUT lAT3xSnquz73JDw34b73zHNhIj5Nglst+yiAd32IrJVpszNhh/TZYjd2/1T7 tfGtkvFh/8LPCzwbIXMLEPhLdcewZztDj2JiN4n79k7A/RJTH8lyiewkrqQp eqcSyFf24iBSZmNCF5KNAoUexetLpYYTKE90aHn6q9HJue0jFi67NfmaiX8N YcGaktvl7o+JvkOJ42p2+ZPimNG5PQUN98w8zYPuaFfZ3255XJDNuiBebKFa 8oKoWPk8SecmpLjVstsniXbLQnl1pTJtdmbsUD9TD+ESX9xKTHOx4ui9zFPX I5rtX+ANhXm2UJl21ceGx3y8osWcNokf89ysKpdslrsF7Z/9bnQseUdMQebd oo/7kr6FhOXTvvGBM6OIr8uKuOIg4qALyYfPZdabJS5wU8y+VHI4geWCW3RK KrvvFffCkuPlLnlcze1bSc1iwQ1N05RM4mI3rFCSJ9o39929r5LTxhZi3k2K Wy03jNwzOJWtkI28lGmzs2B/9WmD7kjgNnLukn0+cSMh7ZscPHkz5VLArXIk BIfwbNjIn40k8rmfqg+8kTab5UvugaRCwBpdYNDeu51MzjGdPUvBtZxwy6cT 5/K4hDbRf4xcLq6exne0E2QtDiIOutAuVKC+tHvgBObjRWD+Xn+9sq7L4i5E vY9McrvcvZgdPhIbV7MZQU83aIZi+f+3o4MecwvJ92CWfjZvf5cp7IvYrYzQ C7bOGoKo7bJ7pft9S3Gr5Yq2lEWu7O3KtNlZsAEX/1ZTOjRv7VDwZ6/keyDA zJSRwp8VMM+UatXXPuxr77c4t7IV0YEl95hR3XI+89469rKG7TAC+WdMbaTk qyai+wgIMj49SvtmRw39F7ubSHb9Br1o770kabQIJZK1OIg46EK7UIH60u6B EygG/dzzHxe0p1StddVEZW3HSPqKOYVrQk6Xu2gSibZPxl1ffdKj1l6792g9 bfrHVafxmKL5uit+UHRgxT1m7u8z2B+MXztCVvY6fOHg7OdvUVPoNPJGB2Y+ aiZJRbtlVkjpWKHvmv+tNrqSs3xq1HLKtNkCMDHUfp4nNhs/Ghqq0uQ928oy SnvHLmnU8TRg0SwuJ5kMROpBR4angvT87TMDX3tDdGjd4ximdOybMDS9xjtO b5aUoexlLf9slrtC2O+63kxW1Q98K+1D2ujy6abeG4ZejUanpy729HxgdS2F ItcEu7FTrT3fc2FocnGn/V52IQHFQUS+MbrQblOwvrRb4ATmixlyjBnalbWd puJeW3K83PldhubqumNaJiPeL2mjtq13981+NdTT0dV3hbrS19Who4a/mo7W BPQ/uqPv1Oh6dQN/LfpUI+SG9juNzXvI+sFxSZ9YSnGr5XIpKDW2RQkbVnhl 2mwhmPmyyvJK+sGsX61tNE1nyHcPLK4g4IE26lue6n75vTNvrRDYcYQUBxEH XWi3KVxf2iVwAiUSdJtb9giokSchXO4gG6bAepOy7YNtiQElIUXfCz80Haog iMMGV1HT++SrTJstDLMZSnmifPLHsqu7ld02705KGlMQ9PK3Aw0tPdZHBaga z1srBHYYgcVBxEEX2lUK2pd2A5xACW3ODp9kCgY2Ds0UafUOLneQEf2v8YEj DT1Wj/Rzo1L0vfA/ho/ur+34zFNeZSDLtNlC+WdMx/b2jK2WxcExhQsbmk3T SI6cGe2fNne+sf0JLe3/7dGCRGEcf60Q2EkEFwcRB11oFylwX9r5cAJFov2P RoduDH/zS+KdL5aGPTk9e+HagcsdpEc/nTGfad++Por2Lzz6TZrhGvreDhZ8 bDmlph7IP3oL+x5cO9I+skODaMmwgdvZxGTCkbvV5V7eNMIi3p+3VgjsHLkU BxEFXWjXKHhf2ulwAkXjap+lL6FVrAEtLneQFhO4ne00TydEapEO2pu58rLg t0ff29Hote8utV8ek3idrbSY3VsD7Vek3cW580QCt5vn3rfPJyYTplenBs9I VcuVXWf7Suftn7FudSfKqTiISOhCu0Mx+tKOhhOYj9CyXacglM2DY4k7vp86 qcORiE5ZrOVGuNwBv0jgdvPdS/ZfE6cjwr4p6uT2fP75fAL63g5Hh9b+Pjzw p6k1mS7DoNcmjQO3HizLObqUgdCctaMmTX5QTJpDVrkWBwFIB30pTziBeQv9 5rh62Ty+PVVjcM1lVisqFOpPS1ApAGBLYN6qVfAP1/gK9gHAzuRzGY7w3+kj UFUBshJWHAQgO/SlPOEESoLe8Dq/NFM9Hdq+K9TlPu3rmh6DZdyTPfE+QAHR Gy5jQ9rhGuoXAwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMgfHVpxf3N3xERR BrPV4Zz30xlevOm9/73bHy5a46SzSw4TAAAAAAB2HjrknTTrWqqJ7cjqph7z 1GIo9eWhJ+PUCWX9xTHvZvHbmoddcpgAAAAAALAjhf1uS1ddFVl7irr9nWdl k/b/877thrauig1t9rVR9tmtiafNZddf+pv3KtSfzpTZbNQuOUwAAAAAANiR wv6ZT9WKGpVhbC4xSKH9j0f1r0WnqKobNX2XqSvnNfUKgqis7Rgpt4hmlxwm AAAAAADsUEG3+XiHcZJvxSBjc9n15dD5YzUkF9so6jWDt775JeMGMVnaJYcJ AAAAAFAWQr+N9Z8enFovdTsKjvZ+e1V7SqU62Vqn3Kuf3Ch1e9J4EXjqC+z0 8IcO+J4GXpS6FQAAAAAAZYIOrLi/vqE5RBI1OsdKqVtTBCH/yvyU4QhB7O2w PZFleBSYv6urJauPWeZk2TxJ0KH5/+iqrSSPWeZ37kECAAAAAEiD/qft3CmV 6pRWf92gfYXYLbFb5MCf2Dr2EuTJ4Vl5pkDcmLV0KmvfGp55unPDGjo4a2lX vtIxPI3VlQAAAAAAggU85tZdFLttTOr3ksRBo+s5wgYAAAAAACgjecZudGjt 4ZdfPSrl3jHaO/XF5IKgzVP0c5fxIEHKeLMbAAAAAAAAr3xiNzrk/Xqg/XKp SzCH/TO3OjtvCchL/3zecoqU72Y3AAAAAACAdMTHbvTytwMtWsus5FNYoeXx wXplt80b3P5pAc/o1cGbk8u86erDvgfXjrSPeDLnZ4xudmu/9cN9K/VOj/5S n/at/pEHy6GUvwqtehy39FqNtu+SXvemdvBz53LG+DTkpKKlztKpVlkXMrQs tPxgZODceV2Huu+v7pyKo9EbXucXpv7uDs3rKtWJ1taTWr151PlE+kyV+R5j 5B1+d44M6s6/rVFf+Ny9gzf0AQAAAAAUgtjYLfjY0t7cbV+UfgROz1mOVRMV WtvS9jBtfUpfRxBNBpc/zZ/5Z0wnGwa/W8vQIG6zG7m3ue+Oh4uPgm5zy94G 6r5v21/R/unhjleU6j89iMZrQe+93oY37nqzHyod8i/N/nCzQ8kVPNvTpP/S /dta1jCK9juN3X9yRZrkc+gqqxpN08+zflT0Dx9aerQDlsnZ9Vicy4Rytwfb DtT3WD0FKZAt8hhf0usuY5/RtU6/XHHoasjGoRlsOQQAAAAAeBlanryurt3f TE1mimUY4mK3SKB0TNkpJJzJGb1k66ggkhPIP//JcLCC2HtpaiP9RwamTc31 6cPJ6GY3RYd1fmuijT38bXEi7fvB2KIkm6+7ooEPHZq3dihIorLX4RNYj+zp lP4QG9e0WxaC2V/+csNj1p5zLNEv6aDH3EJWHDT8JCh2i4TPb5w182WkpP2u oTalQp1tIlK8XI8xcmg3T5wbW6W5eHkP0sUAAAAAADDCD02HKpiR9SGTO8vc i4jYjQ0xKo6bPYVI+EFvTF3aSyTHL/S85RhJVHTYljKN98OrjvNK5XnHKu8x 82524w6/Ts+VJqcX7d0HCLLNNBOf3aODs7c7D9SpTf83WxQc53dSdWxco7F6 eVd4JqLnLG8NsYHMsxnTa2SmucXtgovWCxcmltMFqoGZj5rJqgbDj4XJypLj MTIn/4KROS76+cxQo/D4FAAAAABgZ6NXpqhWRe1p04M/sgUcucdu9JKj55Cy h51DkZ7fZWjaCqaiQks2bQUhoGJ18KGpQcEfsEQ3u52yzG8PGpj1e7GPozdc xgaSVHTdSxcRCTyEHOOamJzqF2z8QB2oIGtOUhP/4n81PW9tVxIVndZFIfNi uRJ7jNnXvgIAAAAAyNCSQ3dU51gqaRtyjd24dX2HKefTgjRH5Ga3OHZyrfJt e+rUG29kxC3FjAZ03Kfkn4VSXFzDThoSe1rMbiGxVthtYtcsVhwyPUwzs7o5 N3yCICobzY8ErvXMhcjYjV4d61GSZIvZE8SCSQAAAAAoIwtWVU2W1HwFl2vs 9tRJHS7cZiXxm93i77Boba/gmaF74TE3Jld243bAEdFQggsbkyfm+D9j/GpH fTVJVDd2UKMpKUEyxDVhv2eU6misjnxorfrS2PxWVEV77V21BCl0JSq9Nkk1 769VX0+TeJN5yebU4J5IK1qGs81W8v51AY7xZWjZrlMIjk8BAAAAAGSjDGM3 ZvaqomC1rbnNbsm1sxM2u/nGB86MZtr1Rv883FJFHhmeTZxtYmO3pEkon8tw hCQO9jjY9+NiN6E5ScL+hx+3MXsKU/eUpY9rNn40NFRF/sO2XCixVjMhJ1HR bmUyrdBPbGevCQlUM4sm9d8zOLUp7q0kPsbEZZyhJZv+UsLKWAAAAAAA2Sq7 2I2LrcQV8haC2+yWGGExueVbyeg/Rhpw9XSWXW/cEZ0YnkusyMZEnZXbUmRw CST31G+VFdjwmI+Tycs12Zf6H9sGqVFv0mTR73btPiZ8SZ4QTBvXhF2G/ewf pCzL5PKocFEkk5Lx5GD+0XFs3i3nLWnbSXiMXAxORndKBt3mk1T+8SkAAAAA QFHIIXbjwiWBm7w23KYWwWnhc8fNfMUXMTL/4psdNfRf7G4i2WWQ9KK995I9 7SrB6LuwMUvqEW3MWjqV0XemQ2s/mtX1zYNj3m2Fuem17wbrD7aPuLdCipBv /sFfBruv3PGkpuLngkQiJU5MF9eEvFYN3+tfxhYTtpo9gZeheVvvoG0xYynw rRZveKcdlhvv6QevUBR1zfCh0fTnb+a4anXBBUu7qHQiBTrGl/TyvS5FFRuD by7aBntt86KbBQAAAABQXNLGbnRo2fm58Zrh2oC2490R5+8ZB8ZPnaa3VBGt ddXsUJsga5pORv73qXO2f6YN4tjliEQ15RSS+T7wxHnH2KNprVPUNqm69Le+ neMvFR302owjkZglvtmtqfeGoVej0empiz09H1hdS6FIBGc3dqq153suDE0u Zv1wesHSRhBVfRPPkv/DU4/tg64OnV6v6+iiLFPzKdXPIjHdQ5uxt0Pbd4W6 ote9qe03WSd/WQ/xnpJ4nFJHObcnUUkX13CRb5pgKvRk3Nil1p7r6blm44kT UwXXZu5S6lebe0bue7dizchpn7p57aZrjY6XYBO/ZlLqY3y56R2/zn6P71C2 R37MuQEAAABA2ZAydqOXv718bmSGiY/YCRdFty15jV/efA5dJUGorN5sbQl5 xwablUQCUqH+dCY1fNv44erZO2w5bf7KbmJwG73E5ejI5WNyjGtE59VPQT91 W96uI/erzdM8ERC95Lj8ifOZ29xYyXxao9kjPtFk6Y4RAAAAAEBGpIvd6EX7 O1SsJjWXHF6psS1K8M7bP4Sdz9qjn8q4ni8SuH3dX19FVDd3GYbvOiadDybs n98431pL8qS8CC5a+wYm/mD/b97KbuIays4P5jXfJMQLn6O3UkRcUzUw8SyP htFPZ8ynFZGTSd33pSnt9txlvvSJQU2yn5Y6/5iDEh0jAAAAAIC8SBW7Rcbq Js3w4+jsCleEugAZRdjpLHK/wZWmoBgr6Bk+tr++7z8864mzfqE/XMNv1SSV in7+k/H0p7GtbbyV3cRZtGmURZj6ieXlSAqT08U1sbwfeU2EbXrt52sJgmww ujIk+vB9++7BfUyGSGKf1v676A97WZpjBAAAAACQG6lit/Wpwd54VTJu1xjB W586L9wUTHXGBgcXrdrGrcyNiZiMkccPb+WQDK863uu1/4ve1uzkym4icZEF T7oMiXGLSJMLZKeJa1484hYx5jMRRi/d61aS2XPLRMsDEILK1WVW9GMEAAAA AJAfiWI3emnqr997o0N5Lts8qewb9+X7vkm4rU8ZY7eNH6jj110pGUC2Wro6 1vNabEaGnreeve6MTR7R3rudylc6b/8sxSY9LrJIWuZXANEpzqSQkz+u4arU 5TcfyhZGZwKpbLOTyzYNu2BSgli42McIAAAAAFB04YemVyqJfFUdNj/KYf7s xePhI3sy7BoT/sEpf5o9dgu7b+qsmWOF9Sn9Oa7EwIvZz3QjjwuzsK5YsdtL esN59QCRNL3FG9dszg6fZMKaA1edooua+cb7mEk3glRbvZneg950UuzKRWV7 lq9DiOIeIwAAAABACWyueH5yZvIl1aRsor7M+Jq/u73Cx8F00D3UEBk8HzS6 nks+eBYw75bdC5/jyoWJVSYziZGSYmsbr6LFbsx8oeNc5LMqavv/FlspyhPX MBOOTNh1oNu+KPaLoZ9NDFSx4XzL8M8CqpNLt262eMcIAAAAACBPktfm5lI1 VjaYHhageHZ41X62It/Y7SU99+ezkdBjY+rq5QmpV3XGcZFFi8m9kf21eaP9 02b1/kjM0nXnF3a5aHJcE3tBmpT+jKB33KhVq1Sq1+qq69PMmXLpQyMaKGfG MxfddLanxeyWqhtIcYwAAAAAAOVL6thtY1K/lyTIk8OzBcnRwSbASMpZkbtV u+7q/111GN93PpWqYSm4bIfFKzFGB+YnTJ215L426kv3yvKDrbjG53XeHmzb R9a+bnD8mn4jYOTk+lcWvzc0VKbfyxYLl8i3bMsZvoHYEkfleYekyWokOEYA AAAAgHIlbewWLcW1LadE0Dthd65LNoB/4TE3EkQ15cwrIgo5P7j46b+/83EB VnXGRU5sNVHZ6/AVM0/9i4B32mG53q99vbVuDxvX1LZqtDrKbJ14tBLI3pJo ps0jw7P8r43Nu2X+Auh5a7uSIGo6rHMprwotjw/WK5OKttMBz+jVwZuTy0K+ 1XyPEQAAAACgPEkau0XzAW7LHk/PWd4aSh8ibS677lBdp1Sq4011h1U9xjuu bNvPVu3aCoJQWb35tDPkpPbvPbJVKaAAuAz5h0xuaYskCJWu9llm9MbUpb1E xUHDT2ly+scykGSK3UJL9h4lQSq7bIuhlO+dv4Le+pQ+0tomgyunvYHijhEA AAAAoExJGrtxdbi2RuZ00DN8Nt2OJ/rpjPls59Ckl50roQNPpoZeV2TdrMRt pMpSnDsbJrBqNXsCebxFNmyMWalzFGw/XWbi4hpur2LaBKGM59Omxqr0devo 4KylXUFWtH380M/zDfFX0Hv+k+FgBbH30lRumSERuwEAAADAriJp7MaV9GoZ novVunZcuJpmxxO94frw6Jl7S9tH68HHlvb9BNk0OLmSfhC/OtF3INt+q2ye TfQ1x0q8FUbYZdhPVB+zzJVo65WouIZ/UixJeG3ySj1ZcWBw0pd8bGG/x9pT v0ehNrvWeON1/nk9riJbRYdtKbeThdgNAAAAAHYVaddMLtg6a4g2ywLNTqvd fPfy+L/4x+ORsO6c1uxJysEYXnWcV2ap5sylmjzQxyT5F9vMuREV9aAguVSi Ql5rB0kUeGovDTqw9tvMF331bC5/Yr966LvZZb+Q2CY2KXbzh7/foXp69Vf6 tB3vjjh/T/nbTe/YxXomYchd14IvxH3k3INRU1ddxSGNaXwh7aYz3nm90JJN W5FjnCv6GONvEFr3OG5d0rZr+65c1HV0D1qcy6krPAEAAAAAZETaXCV0aPnB SP9b2v6rhms3PucZ9scw6SgrquvftngStjhx4UPmqR/2NRn2ZGUVCay61FKW RUi14tDVFHuzG7fDLpPMtRW4STGCVBztsz5il63SQY+5paKFerCaEtW8CHid d4y9p5tq2ELdNU2neyjzl87MdQDz3+yW7zFywv6ZkY7aA+qh+9F4jf7tXvdr b9gWELwBAAAAgIxJXt9NGK6UQOpsC7djLvOMFZcRpVHsokfmz48UtmQ2cxSV jQXNhSI9blIsMTkku7sw99WM/CTd7CZa2Of8sKW6utnojG2rDMxbtQqihJsT AQAAAACEKFHs9jLsn5sc/Wo6aaGakHm32AxRrmkJY5jAqt2yUIDK4VHhVfvb lRWd1sXCfUQB8E6KcZlhpAmsuG+N3Kuf3L5SNmGzm2984MyoJHFi2kYs3etW kmTzRzNbReA2Zm93Hzhw2vTgD8y7AQAAAICM+VxmvdklkwmHoNfWrSBIRde9 5czD6KDb3KI4QP2wkfFVfNgs9wVdzchUN9ur7BuXyTkViH9SjJsGlSZ24+b1 Eqcj6XWXsZWM/mMkuLt6urDZXXwuwxGSqO2yexGmAQAAAACIF5g2Ne8hFJ2W 2awxWdg39d4BMXNbG25TSyFXx9EbzqsHKjSW+RJkKckDbwZI+rnLeDBL6hjh n8DO60XercXsCXK7zHyzo4b+i91NJLt0ll60916yCyrPLRa3UjfLrC4AAAAA AGTETcGQrw6kS02Z/Prlif7GnKfe6J+HW2q3SodLLvSLRV3bkq6knXwFPObW lAyQ3EzZHkkOJzqv19R7w9Cr0ej01MWeng+srqVQJIKzGzvV2vM9F4YmFwsa U3HrM6UJRQEAAAAAdik27bzyBDX+RPjonV77W/+B46aZXHa9MYsA09WVzt/m ok13sN0yGyy72ICL3RJTxGz8aGioIpTn01Toywl/Zbci42I35CQBAAAAABAr tDw+2NDwjtXzNMeYJ+x/+PGxwx888AkNLpiS2aITVGZBh+atnS36MW8hC8cV Smr6Fzb7YpY66cLxVnYrOmab5B6+tJlh/+zo4IUvsQsOAAAAACC9sH/mVmf7 tfGtkCfsX/h5wS8wHNv0julbTgmd6gp7vjA4CrJgkvbdp468YZ7JNfyUjeBj S/uh2PLI4JrLrK5tHXT8Js0iRv7KbsUXXpu8Uq/sGPHE6gNEIm7//IPP3+se /MIjtMsBAAAAAOxCbODWeWsmYdi84ui97PAJnxvbXH5w64LZlXvOSenQv9kv G0dnfeUauLFo/yMbdbZD965e92YX9fnUwjOpDoc/iWVpBNdmRo09b2r7LlPU RV1HV7/pzuTsGnKXAAAAAACkFwncRs5dss8HEsI02jc5ePJmYZY1QmnQ3rud ylc6b/9cbilcAAAAAACA2R3WoSAJPnw7kgAAAAAAAKDouByG/EqcjRAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOTs/wMe Jkr1 "], {{0, 139}, {1172, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{739.0909090909086, Automatic}, ImageSizeRaw->{1172, 139}, PlotRange->{{0, 1172}, {0, 139}}]], "Input",ExpressionUUID-> "7249d746-c814-4cf7-bb74-2ce11fb3589d"] }], "Section", CellChangeTimes->{{3.7468306940093365`*^9, 3.7468307862107296`*^9}},ExpressionUUID->"a675d1e4-5e97-4ebf-bf2f-\ 3fd69b5e1553"], Cell[CellGroupData[{ Cell[TextData[{ "Lagrangian Invariance: DL[tt] w/ tt= tilde index (1 = no tilde, 2 = tilde)\n\ ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubsuperscriptBox["D", "a", "i"], "\[ScriptCapitalL]"}], " ", "=", " ", "0", " "}], TraditionalForm]], "None",ExpressionUUID-> "62756f97-26ec-41bd-af24-fe7e1d2ebe36"], " = ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["D", "a", "i"], "A"}], ")"}], " "}], TraditionalForm]],ExpressionUUID->"2e61d3e6-9866-4836-af9b-1b735fae21f4"], "\[Square]A + ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["D", "a", "i"], "B"}], ")"}], " "}], TraditionalForm]],ExpressionUUID->"9a606c33-a005-42a9-b7dd-39ca634a835d"], "\[Square]B +F ", Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["D", "a", "i"], "F"}], TraditionalForm]], ExpressionUUID->"32f14e4e-e6bb-4baa-b661-f7ae73948fa8"], " +G ", Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["D", "a", "i"], "G"}], TraditionalForm]], ExpressionUUID->"d316bc5f-dcc3-4ba2-845c-3ad3ae55c4c5"], "+d ", Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["D", "a", "i"], "d"}], TraditionalForm]], ExpressionUUID->"4db84f86-2a6c-404e-8b4d-c5e9e4d0b730"], "+ ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["D", "a", "i"], SubscriptBox["A", "\[Nu]"]}], ")"}], RowBox[{ SubscriptBox["\[PartialD]", "\[Mu]"], SuperscriptBox["F", "\[Mu]\[Nu]"]}]}], TraditionalForm]],ExpressionUUID-> "577a24cf-e421-4c53-bdc4-eb1265051b70"], " -", Cell[BoxData[ RowBox[{" ", RowBox[{"i", " ", SubsuperscriptBox["\[CapitalPsi]", "b", "j"], SuperscriptBox[ RowBox[{"(", SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "bc"], RowBox[{ SubscriptBox["\[PartialD]", "\[Mu]"], RowBox[{"(", RowBox[{ FormBox[ SubsuperscriptBox["D", "a", "i"], TraditionalForm], SubsuperscriptBox["\[CapitalPsi]", "c", "j"]}], ")"}], " "}]}]}]], ExpressionUUID->"2c1555e1-e342-4fef-99a8-d8d0ffd60410"], "+ ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["D", "a", "i"], OverscriptBox["A", "~"]}], ")"}], " "}], TraditionalForm]], ExpressionUUID->"9725c9e8-7e74-4e66-9a47-a38be7673876"], "\[Square]", Cell[BoxData[ FormBox[ OverscriptBox["A", "~"], TraditionalForm]],ExpressionUUID-> "bb6a7688-9a0c-463f-8faa-19f36e62235c"], " + ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["D", "a", "i"], OverscriptBox["B", "~"]}], ")"}], " "}], TraditionalForm]], ExpressionUUID->"739dd6a8-5f53-4209-8baa-8acc64188e18"], "\[Square]", Cell[BoxData[ FormBox[ OverscriptBox["B", "~"], TraditionalForm]],ExpressionUUID-> "aefce0b5-0c77-45dd-974f-fa892b3c7d82"], " +", Cell[BoxData[ FormBox[ OverscriptBox["F", "~"], TraditionalForm]],ExpressionUUID-> "9bb14d1f-302a-4dc0-9524-9bbad880c5f7"], " ", Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["D", "a", "i"], OverscriptBox["F", "~"], " "}], TraditionalForm]],ExpressionUUID-> "9c1fe414-63ee-4c7e-9153-dc9a1f2a7f9a"], " +", Cell[BoxData[ FormBox[ OverscriptBox["G", "~"], TraditionalForm]],ExpressionUUID-> "9c224e7b-0012-4eb9-8c63-47284e341e67"], " ", Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["D", "a", "i"], OverscriptBox["G", "~"], " "}], TraditionalForm]],ExpressionUUID-> "c3510370-d622-4e20-b9f4-938978a16ad4"], "+2", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["D", "a", "i"], SubscriptBox["B", "\[Nu]\[Alpha]"]}], ")"}], RowBox[{ SubscriptBox["\[PartialD]", "\[Mu]"], SuperscriptBox["H", "\[Mu]\[Nu]\[Alpha]"]}]}], TraditionalForm]], ExpressionUUID->"1d27e2e0-fc1f-4565-b6bd-43a1c0b47c72"], "+ ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["D", "a", "i"], OverscriptBox["\[CurlyPhi]", "~"]}], ")"}], " "}], TraditionalForm]], ExpressionUUID->"4cfbf513-fbfe-4415-9e53-c0ad830c752c"], "\[Square]", Cell[BoxData[ FormBox[ OverscriptBox["\[CurlyPhi]", "~"], TraditionalForm]],ExpressionUUID-> "ade9f27d-35dd-4639-9c3e-c3bb8ab16e47"], " -", Cell[BoxData[ RowBox[{" ", RowBox[{"i", " ", SubsuperscriptBox[ OverscriptBox["\[CapitalPsi]", "~"], "b", "j"], SuperscriptBox[ RowBox[{"(", SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "bc"], RowBox[{ SubscriptBox["\[PartialD]", "\[Mu]"], RowBox[{"(", RowBox[{ SubsuperscriptBox["D", "a", "i"], SubsuperscriptBox[ OverscriptBox["\[CapitalPsi]", "~"], "c", "j"]}], ")"}], " "}]}]}]], ExpressionUUID->"8c5b8fdc-8f53-4a89-a4c3-e4b7b13df2a8"], "\n", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubsuperscriptBox[ OverscriptBox["D", "~"], "a", "i"], "\[ScriptCapitalL]"}], " ", "=", " ", "0", " "}], TraditionalForm]], "None",ExpressionUUID-> "c97ea5eb-d0ee-4c68-bbfe-87f725e264f5"], " = ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox[ OverscriptBox["D", "~"], "a", "i"], "A"}], ")"}], " "}], TraditionalForm]],ExpressionUUID->"c8163412-4605-4c56-b570-07531a314d5b"], "\[Square]A + ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox[ OverscriptBox["D", "~"], "a", "i"], "B"}], ")"}], " "}], TraditionalForm]],ExpressionUUID->"4812c351-0858-45b5-8306-be016e5e7151"], "\[Square]B +F ", Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox[ OverscriptBox["D", "~"], "a", "i"], "F"}], TraditionalForm]], ExpressionUUID->"ddff1d99-58b8-4c19-9110-10c4f4cabe3d"], " +G ", Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox[ OverscriptBox["D", "~"], "a", "i"], "G"}], TraditionalForm]], ExpressionUUID->"87d334c0-becf-41e3-8dfa-a628d76641e7"], "+d ", Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox[ OverscriptBox["D", "~"], "a", "i"], "d"}], TraditionalForm]], ExpressionUUID->"ecd26a0c-b578-4256-9036-a76be7522a17"], "+ ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox[ OverscriptBox["D", "~"], "a", "i"], SubscriptBox["A", "\[Nu]"]}], ")"}], RowBox[{ SubscriptBox["\[PartialD]", "\[Mu]"], SuperscriptBox["F", "\[Mu]\[Nu]"]}]}], TraditionalForm]],ExpressionUUID-> "072ea3a6-cfb1-48c1-9da9-00fd99659383"], " -", Cell[BoxData[ RowBox[{" ", RowBox[{"i", " ", SubsuperscriptBox["\[CapitalPsi]", "b", "j"], SuperscriptBox[ RowBox[{"(", SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "bc"], RowBox[{ SubscriptBox["\[PartialD]", "\[Mu]"], RowBox[{"(", RowBox[{ SubsuperscriptBox[ OverscriptBox["D", "~"], "a", "i"], SubsuperscriptBox["\[CapitalPsi]", "c", "j"]}], ")"}], " "}]}]}]], ExpressionUUID->"b6c7b83c-6cd7-4034-9f5d-5b27bac289ca"], "+ ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox[ OverscriptBox["D", "~"], "a", "i"], OverscriptBox["A", "~"]}], ")"}], " "}], TraditionalForm]], ExpressionUUID->"dd7fb724-f33d-425a-b393-3599d03d6ed4"], "\[Square]", Cell[BoxData[ FormBox[ OverscriptBox["A", "~"], TraditionalForm]],ExpressionUUID-> "78676126-4b8c-44bb-a3f4-d9e9b81fcfc6"], " + ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox[ OverscriptBox["D", "~"], "a", "i"], OverscriptBox["B", "~"]}], ")"}], " "}], TraditionalForm]], ExpressionUUID->"66b815ef-578c-4c7a-88f6-fabeeeb6473d"], "\[Square]", Cell[BoxData[ FormBox[ OverscriptBox["B", "~"], TraditionalForm]],ExpressionUUID-> "0591ea94-74a5-4652-8354-d38b0bea833c"], " +", Cell[BoxData[ FormBox[ OverscriptBox["F", "~"], TraditionalForm]],ExpressionUUID-> "44008986-17d8-41b2-9e8a-41a5ef936d73"], " ", Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox[ OverscriptBox["D", "~"], "a", "i"], OverscriptBox["F", "~"], " "}], TraditionalForm]],ExpressionUUID-> "ff8803c8-a877-413f-bec7-a7c72ef2d91a"], " +", Cell[BoxData[ FormBox[ OverscriptBox["G", "~"], TraditionalForm]],ExpressionUUID-> "6c35772a-ee08-4621-82aa-ffe2021e4850"], " ", Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox[ OverscriptBox["D", "~"], "a", "i"], OverscriptBox["G", "~"], " "}], TraditionalForm]],ExpressionUUID-> "89a53e19-13eb-4087-baf7-8b9d13ab39b7"], "+2", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox[ OverscriptBox["D", "~"], "a", "i"], SubscriptBox["B", "\[Nu]\[Alpha]"]}], ")"}], RowBox[{ SubscriptBox["\[PartialD]", "\[Mu]"], SuperscriptBox["H", "\[Mu]\[Nu]\[Alpha]"]}]}], TraditionalForm]], ExpressionUUID->"0c784670-3405-4e34-a47e-95f0174726a6"], "+ ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox[ OverscriptBox["D", "~"], "a", "i"], OverscriptBox["\[CurlyPhi]", "~"]}], ")"}], " "}], TraditionalForm]], ExpressionUUID->"36b46739-5040-442e-8c01-71551943f430"], "\[Square]", Cell[BoxData[ FormBox[ OverscriptBox["\[CurlyPhi]", "~"], TraditionalForm]],ExpressionUUID-> "9dc55c47-95af-47cb-a5fb-4ffd540e78fc"], " -", Cell[BoxData[ RowBox[{" ", RowBox[{"i", " ", SubsuperscriptBox[ OverscriptBox["\[CapitalPsi]", "~"], "b", "j"], SuperscriptBox[ RowBox[{"(", SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "bc"], RowBox[{ SubscriptBox["\[PartialD]", "\[Mu]"], RowBox[{"(", RowBox[{ FormBox[ SubsuperscriptBox[ OverscriptBox["D", "~"], "a", "i"], TraditionalForm], SubsuperscriptBox[ OverscriptBox["\[CapitalPsi]", "~"], "c", "j"]}], ")"}], " "}]}]}]], ExpressionUUID->"ec237948-6ee8-4f4f-b653-c57d22a84c3c"] }], "Subsection", 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.74222055188433*^9, 3.742220561271173*^9}, { 3.7468073670301046`*^9, 3.7468073760050945`*^9}, {3.746829764231292*^9, 3.7468298276440716`*^9}, {3.746829858389183*^9, 3.7468299756839895`*^9}, { 3.7468300490731544`*^9, 3.7468300561987934`*^9}, {3.746830218823106*^9, 3.746830239591096*^9}, {3.746830378901266*^9, 3.7468303857302523`*^9}, { 3.746830719636977*^9, 3.7468307204182134`*^9}, {3.746830800477953*^9, 3.7468308958942165`*^9}, {3.7468309290693417`*^9, 3.7468309609789553`*^9}, {3.746831003983164*^9, 3.746831039359952*^9}, { 3.746831204016987*^9, 3.7468312801495547`*^9}, {3.7468314793159084`*^9, 3.7468315622697616`*^9}, {3.7468316351975713`*^9, 3.7468316717231665`*^9}},ExpressionUUID->"eef3f427-f737-45ee-8083-\ df6ce6ebf1b9"], Cell[CellGroupData[{ Cell["\<\ Integration by parts commands: Put all derivatives on the bosons\ \>", "Subsubsection", 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->"c55c1013-20b2-4050-ad8f-\ a21d88051380"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ByParts", "=", RowBox[{"{", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "ii_", "]"}], "[", "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[{ RowBox[{"\[CapitalPsi]", "[", "ii", "]"}], "[", "xp", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], RowBox[{"D", "[", RowBox[{ RowBox[{"efield", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "z"}], "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "ii_", "]"}], "[", "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[{ RowBox[{"\[CapitalPsi]", "[", "ii", "]"}], "[", "xp", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], RowBox[{"D", "[", " ", RowBox[{ RowBox[{"efield", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "y"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "ii_", "]"}], "[", "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[{ RowBox[{"\[CapitalPsi]", "[", "ii", "]"}], "[", "xp", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], RowBox[{"D", "[", " ", RowBox[{ RowBox[{"efield", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "x"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "ii_", "]"}], "[", "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[{ RowBox[{"\[CapitalPsi]", "[", "ii", "]"}], "[", "xp", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], RowBox[{"D", "[", " ", RowBox[{ RowBox[{"efield", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "t"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "ii_", "]"}], "[", "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[{ RowBox[{"\[CapitalPsi]t", "[", "ii", "]"}], "[", "xp", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], RowBox[{"D", "[", RowBox[{ RowBox[{"efield", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "z"}], "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "ii_", "]"}], "[", "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[{ RowBox[{"\[CapitalPsi]t", "[", "ii", "]"}], "[", "xp", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], RowBox[{"D", "[", " ", RowBox[{ RowBox[{"efield", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "y"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "ii_", "]"}], "[", "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[{ RowBox[{"\[CapitalPsi]t", "[", "ii", "]"}], "[", "xp", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], RowBox[{"D", "[", " ", RowBox[{ RowBox[{"efield", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "x"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "ii_", "]"}], "[", "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[{ RowBox[{"\[CapitalPsi]t", "[", "ii", "]"}], "[", "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.7468302573736577`*^9, 3.7468303419446325`*^9}, { 3.7468355577527127`*^9, 3.7468355734760647`*^9}}, CellLabel-> "In[124]:=",ExpressionUUID->"c88f9b10-9a05-4a10-98d4-ec1f6f169734"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"efield__", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "ii_", "]"}], "[", "xp__", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "\[Rule]", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox["efield", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "ii", "]"}], "[", "xp", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"efield__", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "ii_", "]"}], "[", "xp__", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "\[Rule]", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox["efield", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "ii", "]"}], "[", "xp", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"efield__", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "ii_", "]"}], "[", "xp__", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "\[Rule]", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox["efield", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "ii", "]"}], "[", "xp", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"efield__", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "ii_", "]"}], "[", "xp__", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "\[Rule]", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox["efield", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "ii", "]"}], "[", "xp", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"efield__", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "ii_", "]"}], "[", "xp__", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "\[Rule]", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox["efield", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "ii", "]"}], "[", "xp", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"efield__", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "ii_", "]"}], "[", "xp__", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "\[Rule]", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox["efield", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "ii", "]"}], "[", "xp", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"efield__", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "ii_", "]"}], "[", "xp__", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "\[Rule]", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox["efield", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "ii", "]"}], "[", "xp", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"efield__", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "ii_", "]"}], "[", "xp__", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "\[Rule]", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox["efield", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "ii", "]"}], "[", "xp", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]}], "}"}]], "Output", CellChangeTimes->{3.7604680358609304`*^9, 3.7604682426692066`*^9, 3.7604703411149263`*^9}, CellLabel-> "Out[124]=",ExpressionUUID->"933236af-3eef-48c8-b468-c8a13e867af8"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"DLA", "[", "tt", "]"}], " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["D", "a", "i"], "A"}], ")"}], " ", RowBox[{"\[Square]", "A"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox[ OverscriptBox["D", "~"], "a", "i"], "A"}], ")"}], " ", RowBox[{"\[Square]", "A"}]}]}], "}"}], " "}], TraditionalForm]],ExpressionUUID->"a3cffacd-df8a-4bcb-9668-2ef0a936f236"]], \ "Subsubsection", CellChangeTimes->{{3.738596907992287*^9, 3.738596935982888*^9}, { 3.7468303656970797`*^9, 3.746830366150126*^9}, {3.7468304222647696`*^9, 3.7468304446110106`*^9}, {3.74683160911321*^9, 3.7468316279838734`*^9}, { 3.7468344436380267`*^9, 3.7468344436380267`*^9}},ExpressionUUID->"050d55a2-0a15-48a4-8dfa-\ cb4c445fea98"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"DLA", "[", "tt", "]"}], " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{"A", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], RowBox[{"Lap", "[", RowBox[{"A", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"tt", ",", "1", ",", "2"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.73859694003712*^9, 3.738596998485463*^9}, { 3.7468304096857557`*^9, 3.746830415061169*^9}, {3.7468304532989902`*^9, 3.746830505726555*^9}, {3.7468316793981867`*^9, 3.7468316898450575`*^9}, { 3.746832311196719*^9, 3.7468323113334875`*^9}, {3.746834134239809*^9, 3.746834134333682*^9}, {3.7468342486846952`*^9, 3.7468342489816694`*^9}}, CellLabel-> "In[125]:=",ExpressionUUID->"286a7ae1-7ac5-4fd2-8d1c-c9ca01f7e9dc"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ RowBox[{ RowBox[{"DLB", "[", "tt", "]"}], " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["D", "a", "i"], "B"}], ")"}], " ", RowBox[{"\[Square]", "B"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox[ OverscriptBox["D", "~"], "a", "i"], "B"}], ")"}], " ", RowBox[{"\[Square]", "B"}]}]}], "}"}]}]],ExpressionUUID->"63f8c828-d1a2-40a6-bcd6-d9bcb415bd14"]], \ "Subsubsection", CellChangeTimes->{{3.738596907992287*^9, 3.738596935982888*^9}, { 3.7385970113191967`*^9, 3.738597016480492*^9}, {3.7468341733929377`*^9, 3.746834189196767*^9}, {3.746834444722932*^9, 3.746834444722932*^9}},ExpressionUUID->"9b13b755-0629-484e-b8a9-\ 02b5762058c7"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"DLB", "[", "tt", "]"}], " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{"B", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], RowBox[{"Lap", "[", RowBox[{"B", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"tt", ",", "1", ",", "2"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.73859694003712*^9, 3.738596998485463*^9}, { 3.7468304096857557`*^9, 3.746830415061169*^9}, {3.7468304532989902`*^9, 3.746830505726555*^9}, {3.7468316793981867`*^9, 3.7468316898450575`*^9}, { 3.746832311196719*^9, 3.7468323113334875`*^9}, {3.746834134239809*^9, 3.746834134333682*^9}, {3.7468342116929817`*^9, 3.7468342191508007`*^9}, { 3.7468342522212057`*^9, 3.746834252549163*^9}}, CellLabel-> "In[126]:=",ExpressionUUID->"f89d942a-3257-4d04-a9e8-62731e12bb57"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"DLF", "[", "tt", "]"}], " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["D", "a", "i"], "F"}], ")"}], " ", "F"}], ",", RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox[ OverscriptBox["D", "~"], "a", "i"], "F"}], ")"}], " ", "F"}]}], "}"}], " "}], TraditionalForm]],ExpressionUUID->"74dd1711-eb53-4c93-8120-416355ff7a9a"]], \ "Subsubsection", CellChangeTimes->{{3.738596907992287*^9, 3.738596935982888*^9}, { 3.7468303656970797`*^9, 3.746830366150126*^9}, {3.7468304222647696`*^9, 3.7468304446110106`*^9}, {3.74683160911321*^9, 3.7468316279838734`*^9}, { 3.7468342690987387`*^9, 3.7468342873651514`*^9}},ExpressionUUID->"797fd13a-47da-454c-b332-\ d6e9e5b49234"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"DLF", "[", "tt", "]"}], " ", "=", " ", RowBox[{ RowBox[{"Expand", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{"F", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], RowBox[{"F", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}], "]"}], "/.", "ByParts"}]}], ",", RowBox[{"{", RowBox[{"tt", ",", "1", ",", "2"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.73859694003712*^9, 3.738596998485463*^9}, { 3.7468304096857557`*^9, 3.746830415061169*^9}, {3.7468304532989902`*^9, 3.746830505726555*^9}, {3.7468316793981867`*^9, 3.7468316898450575`*^9}, { 3.746832311196719*^9, 3.7468323113334875`*^9}, {3.746834134239809*^9, 3.746834134333682*^9}, {3.7468342486846952`*^9, 3.7468342489816694`*^9}, { 3.746834294400001*^9, 3.746834304445488*^9}, {3.746834340900341*^9, 3.746834341524053*^9}, {3.746835620477548*^9, 3.7468356301816254`*^9}}, CellLabel-> "In[127]:=",ExpressionUUID->"53afd21f-2bde-4b3b-a260-1ce00d3cc3da"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"DLG", "[", "tt", "]"}], " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["D", "a", "i"], "G"}], ")"}], " ", "G"}], ",", RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox[ OverscriptBox["D", "~"], "a", "i"], "G"}], ")"}], " ", "G"}]}], "}"}], " "}], TraditionalForm]],ExpressionUUID->"a22e08da-1e09-469e-b08f-da067b662704"]], \ "Subsubsection", CellChangeTimes->{{3.738596907992287*^9, 3.738596935982888*^9}, { 3.7468303656970797`*^9, 3.746830366150126*^9}, {3.7468304222647696`*^9, 3.7468304446110106`*^9}, {3.74683160911321*^9, 3.7468316279838734`*^9}, { 3.7468342690987387`*^9, 3.7468342873651514`*^9}, {3.74683432248897*^9, 3.7468343242884827`*^9}},ExpressionUUID->"e53e2c05-16fd-420f-8ab0-\ 0e81f0cfa078"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"DLG", "[", "tt", "]"}], " ", "=", RowBox[{ RowBox[{"(", " ", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{"G", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], RowBox[{"G", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}], "//", "Expand"}], ")"}], "/.", "ByParts"}]}], ",", RowBox[{"{", RowBox[{"tt", ",", "1", ",", "2"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.73859694003712*^9, 3.738596998485463*^9}, { 3.7468304096857557`*^9, 3.746830415061169*^9}, {3.7468304532989902`*^9, 3.746830505726555*^9}, {3.7468316793981867`*^9, 3.7468316898450575`*^9}, { 3.746832311196719*^9, 3.7468323113334875`*^9}, {3.746834134239809*^9, 3.746834134333682*^9}, {3.7468342486846952`*^9, 3.7468342489816694`*^9}, { 3.746834294400001*^9, 3.7468343362568207`*^9}, {3.746835594211018*^9, 3.7468356072396207`*^9}}, CellLabel-> "In[128]:=",ExpressionUUID->"31b48167-0d7c-43e1-8c67-b73f4641eebd"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"DLd", "[", "tt", "]"}], " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["D", "a", "i"], "d"}], ")"}], " ", "d"}], ",", RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox[ OverscriptBox["D", "~"], "a", "i"], "d"}], ")"}], " ", "d"}]}], "}"}], " "}], TraditionalForm]],ExpressionUUID->"13a5ea2d-2ec6-44b9-9736-9e05c3d4e93b"]], \ "Subsubsection", CellChangeTimes->{{3.738596907992287*^9, 3.738596935982888*^9}, { 3.7468303656970797`*^9, 3.746830366150126*^9}, {3.7468304222647696`*^9, 3.7468304446110106`*^9}, {3.74683160911321*^9, 3.7468316279838734`*^9}, { 3.7468342690987387`*^9, 3.7468342873651514`*^9}, {3.74683432248897*^9, 3.7468343242884827`*^9}, {3.7468343797740192`*^9, 3.7468343877282696`*^9}},ExpressionUUID->"b1d68eaa-715d-4375-b4ee-\ 15efc8a10a46"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"DLd", "[", "tt", "]"}], " ", "=", " ", RowBox[{ RowBox[{"Expand", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{"d", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], RowBox[{"d", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}], "]"}], "/.", "ByParts"}]}], ",", RowBox[{"{", RowBox[{"tt", ",", "1", ",", "2"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.73859694003712*^9, 3.738596998485463*^9}, { 3.7468304096857557`*^9, 3.746830415061169*^9}, {3.7468304532989902`*^9, 3.746830505726555*^9}, {3.7468316793981867`*^9, 3.7468316898450575`*^9}, { 3.746832311196719*^9, 3.7468323113334875`*^9}, {3.746834134239809*^9, 3.746834134333682*^9}, {3.7468342486846952`*^9, 3.7468342489816694`*^9}, { 3.746834294400001*^9, 3.7468343362568207`*^9}, {3.7468343884159393`*^9, 3.746834390445628*^9}, {3.746835646786049*^9, 3.7468356538215685`*^9}}, CellLabel-> "In[129]:=",ExpressionUUID->"33b91af0-de34-4c3e-9422-82d15b6a9785"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"DLAm", "[", "tt", "]"}], " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["D", "a", "i"], SubscriptBox["A", "\[Nu]"]}], ")"}], RowBox[{ SubscriptBox["\[PartialD]", "\[Mu]"], SuperscriptBox["F", "\[Mu]\[Nu]"]}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox[ OverscriptBox["D", "~"], "a", "i"], SubscriptBox["A", "\[Nu]"]}], ")"}], RowBox[{ SubscriptBox["\[PartialD]", "\[Mu]"], SuperscriptBox["F", "\[Mu]\[Nu]"]}]}]}], "}"}], " "}], TraditionalForm]],ExpressionUUID->"fb6f02c9-2e5b-4853-93db-768ff498b994"]], \ "Subsubsection", CellChangeTimes->{{3.738596907992287*^9, 3.738596935982888*^9}, { 3.7468303656970797`*^9, 3.746830366150126*^9}, {3.7468304222647696`*^9, 3.7468304446110106`*^9}, {3.74683160911321*^9, 3.7468316279838734`*^9}, { 3.7468344366017537`*^9, 3.7468344698031597`*^9}},ExpressionUUID->"dc9b07a6-de59-4fd3-af72-\ ccf4d0eda904"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"DLAm", "[", "tt", "]"}], " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{"Am", "[", "nu", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"Fmnup", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"tt", ",", "1", ",", "2"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.73859694003712*^9, 3.738596998485463*^9}, { 3.7468304096857557`*^9, 3.746830415061169*^9}, {3.7468304532989902`*^9, 3.746830505726555*^9}, {3.7468316793981867`*^9, 3.7468316898450575`*^9}, { 3.746832311196719*^9, 3.7468323113334875`*^9}, {3.746834134239809*^9, 3.746834134333682*^9}, {3.7468342486846952`*^9, 3.7468342489816694`*^9}, { 3.7468344775343776`*^9, 3.746834511009919*^9}, {3.7468345978162737`*^9, 3.7468346201300364`*^9}}, CellLabel-> "In[130]:=",ExpressionUUID->"76bd2272-2919-4232-a775-811856339a5a"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "DLPsi[tt] = {- ", Cell[BoxData[ RowBox[{"i", " ", SubsuperscriptBox[ OverscriptBox["\[CapitalPsi]", "~"], "b", "j"], SuperscriptBox[ RowBox[{"(", SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "bc"], RowBox[{ SubscriptBox["\[PartialD]", "\[Mu]"], RowBox[{"(", RowBox[{ SubscriptBox["D", "a"], SubsuperscriptBox[ OverscriptBox["\[CapitalPsi]", "~"], "c", "j"]}], ")"}]}]}]], ExpressionUUID->"1b37ea96-89a7-4e17-b95e-91df63247d6f"], ",- ", Cell[BoxData[ RowBox[{"i", " ", SubsuperscriptBox[ OverscriptBox["\[CapitalPsi]", "~"], "b", "j"], SuperscriptBox[ RowBox[{"(", SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "bc"], RowBox[{ SubscriptBox["\[PartialD]", "\[Mu]"], RowBox[{"(", RowBox[{ FormBox[ SubsuperscriptBox[ OverscriptBox["D", "~"], "a", "i"], TraditionalForm], SubsuperscriptBox[ OverscriptBox["\[CapitalPsi]", "~"], "c", "j"]}], ")"}]}]}]], ExpressionUUID->"3a65188e-31ec-4ea6-a7a6-ba1fa43e9c1f"], "}" }], "Subsubsection", CellChangeTimes->{{3.738597279555539*^9, 3.7385973231010303`*^9}, { 3.7468350177431993`*^9, 3.7468350873894763`*^9}},ExpressionUUID->"81f84422-a48e-4f87-bb6a-\ 855bd4441a73"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"DLPsi", "[", "tt", "]"}], " ", "=", " ", RowBox[{ RowBox[{"Table", "[", " ", RowBox[{ RowBox[{ RowBox[{"-", " ", "I"}], " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], RowBox[{ RowBox[{"\[Gamma]up", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"bb", ",", "cc"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "jj", "]"}], "[", "cc", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"cc", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}], "/.", "ByParts"}]}], ",", RowBox[{"{", RowBox[{"tt", ",", "1", ",", "2"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.7385972962894964`*^9, 3.738597413817219*^9}, { 3.74683512604104*^9, 3.7468351428369017`*^9}, {3.746835187850502*^9, 3.746835254521659*^9}, {3.746835295755268*^9, 3.746835344941128*^9}, { 3.746835393459791*^9, 3.74683539494446*^9}}, CellLabel-> "In[131]:=",ExpressionUUID->"c92ee6e4-2f9f-4ad0-8934-f137e10746ae"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"DLPsi", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.7468371593286643`*^9, 3.7468371707733793`*^9}, { 3.746837489253231*^9, 3.7468374903478785`*^9}}, CellLabel-> "In[132]:=",ExpressionUUID->"01385701-a0af-46bb-b6fa-c0b3e3176bef"], Cell[BoxData[ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ")"}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ")"}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ")"}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ")"}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox["d", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ")"}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ")"}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ")"}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ")"}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox["d", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ")"}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ")"}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ")"}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ")"}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox["d", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ")"}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ")"}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "0", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ")"}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox["d", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ")"}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox["F", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["A", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["B", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox["A", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["A", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox["B", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["B", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox["F", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["A", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["B", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox["F", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["A", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["B", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["G", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["B", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["A", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox["A", TagBox[ RowBox[{"(", RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["A", TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox["A", TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["A", TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["G", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["B", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["A", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox["F", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["A", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["B", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox["B", TagBox[ RowBox[{"(", RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["B", TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox["B", TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["B", TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["G", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["B", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["A", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox["B", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["B", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox["A", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["A", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["G", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["B", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["A", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}]], "Output", CellChangeTimes->{3.7604680361242466`*^9, 3.760468242919054*^9, 3.7604703413334837`*^9}, CellLabel-> "Out[132]=",ExpressionUUID->"547b2273-e245-4715-9282-4de39f1c6601"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"DLAt", "[", "tt", "]"}], " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["D", "a", "i"], "At"}], ")"}], " ", RowBox[{"\[Square]", "At"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox[ OverscriptBox["D", "~"], "a", "i"], "At"}], ")"}], " ", RowBox[{"\[Square]", "At"}]}]}], "}"}], " "}], TraditionalForm]],ExpressionUUID->"288476f4-b7da-4f51-bec7-e1df7ff41e91"]], \ "Subsubsection", CellChangeTimes->{{3.738596907992287*^9, 3.738596935982888*^9}, { 3.7468303656970797`*^9, 3.746830366150126*^9}, {3.7468304222647696`*^9, 3.7468304446110106`*^9}, {3.74683160911321*^9, 3.7468316279838734`*^9}, { 3.7468344436380267`*^9, 3.7468344436380267`*^9}, {3.746834719519888*^9, 3.7468347261037197`*^9}},ExpressionUUID->"e8e96f1d-40ac-440f-a36b-\ 82e4c982f252"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"DLAt", "[", "tt", "]"}], " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{"At", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], RowBox[{"Lap", "[", RowBox[{"At", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"tt", ",", "1", ",", "2"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.73859694003712*^9, 3.738596998485463*^9}, { 3.7468304096857557`*^9, 3.746830415061169*^9}, {3.7468304532989902`*^9, 3.746830505726555*^9}, {3.7468316793981867`*^9, 3.7468316898450575`*^9}, { 3.746832311196719*^9, 3.7468323113334875`*^9}, {3.746834134239809*^9, 3.746834134333682*^9}, {3.7468342486846952`*^9, 3.7468342489816694`*^9}, { 3.746834727196327*^9, 3.746834730539262*^9}}, CellLabel-> "In[133]:=",ExpressionUUID->"1a72afc5-3f7e-449c-a4c8-21220750c957"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ RowBox[{ RowBox[{"DLBt", "[", "tt", "]"}], " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["D", "a", "i"], "Bt"}], ")"}], " ", RowBox[{"\[Square]", "Bt"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox[ OverscriptBox["D", "~"], "a", "i"], "Bt"}], ")"}], " ", RowBox[{"\[Square]", "Bt"}]}]}], "}"}]}]],ExpressionUUID->"61666501-fb40-410a-bcd9-41cf3334b432"]], \ "Subsubsection", CellChangeTimes->{{3.738596907992287*^9, 3.738596935982888*^9}, { 3.7385970113191967`*^9, 3.738597016480492*^9}, {3.7468341733929377`*^9, 3.746834189196767*^9}, {3.746834444722932*^9, 3.746834444722932*^9}, { 3.7468347377477365`*^9, 3.7468347400140004`*^9}},ExpressionUUID->"708a98cd-f91a-4a5b-970f-\ 74ec587b0b67"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"DLBt", "[", "tt", "]"}], " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{"Bt", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], RowBox[{"Lap", "[", RowBox[{"Bt", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"tt", ",", "1", ",", "2"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.73859694003712*^9, 3.738596998485463*^9}, { 3.7468304096857557`*^9, 3.746830415061169*^9}, {3.7468304532989902`*^9, 3.746830505726555*^9}, {3.7468316793981867`*^9, 3.7468316898450575`*^9}, { 3.746832311196719*^9, 3.7468323113334875`*^9}, {3.746834134239809*^9, 3.746834134333682*^9}, {3.7468342116929817`*^9, 3.7468342191508007`*^9}, { 3.7468342522212057`*^9, 3.746834252549163*^9}, {3.7468347408102665`*^9, 3.7468347425858717`*^9}}, CellLabel-> "In[134]:=",ExpressionUUID->"39d43a6f-dea7-4b6a-becd-0b16b1edb6e3"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"DLFt", "[", "tt", "]"}], " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["D", "a", "i"], "Ft"}], ")"}], " ", "Ft"}], ",", RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox[ OverscriptBox["D", "~"], "a", "i"], "Ft"}], ")"}], " ", "Ft"}]}], "}"}], " "}], TraditionalForm]],ExpressionUUID->"12a710a7-f5b7-435a-ab56-3945c85f3274"]], \ "Subsubsection", CellChangeTimes->{{3.738596907992287*^9, 3.738596935982888*^9}, { 3.7468303656970797`*^9, 3.746830366150126*^9}, {3.7468304222647696`*^9, 3.7468304446110106`*^9}, {3.74683160911321*^9, 3.7468316279838734`*^9}, { 3.7468342690987387`*^9, 3.7468342873651514`*^9}, {3.7468347488376417`*^9, 3.7468347488376417`*^9}, {3.7468349543524046`*^9, 3.7468349543524046`*^9}},ExpressionUUID->"7e542a9e-7fb7-46c3-965f-\ ed3f499485a6"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"DLFt", "[", "tt", "]"}], " ", "=", " ", RowBox[{ RowBox[{"Expand", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{"Ft", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], RowBox[{"Ft", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}], "]"}], "/.", "ByParts"}]}], ",", RowBox[{"{", RowBox[{"tt", ",", "1", ",", "2"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.73859694003712*^9, 3.738596998485463*^9}, { 3.7468304096857557`*^9, 3.746830415061169*^9}, {3.7468304532989902`*^9, 3.746830505726555*^9}, {3.7468316793981867`*^9, 3.7468316898450575`*^9}, { 3.746832311196719*^9, 3.7468323113334875`*^9}, {3.746834134239809*^9, 3.746834134333682*^9}, {3.7468342486846952`*^9, 3.7468342489816694`*^9}, { 3.746834294400001*^9, 3.746834304445488*^9}, {3.746834340900341*^9, 3.746834341524053*^9}, {3.7468347488532305`*^9, 3.7468347488532305`*^9}, { 3.7468356711648316`*^9, 3.7468356789304123`*^9}}, CellLabel-> "In[135]:=",ExpressionUUID->"454739af-6d48-422e-bb43-5a90fe4be41a"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"DLGt", "[", "tt", "]"}], " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["D", "a", "i"], "Gt"}], ")"}], " ", "Gt"}], ",", RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox[ OverscriptBox["D", "~"], "a", "i"], "Gt"}], ")"}], " ", "Gt"}]}], "}"}], " "}], TraditionalForm]],ExpressionUUID->"347c50cf-b7b8-4616-b9b4-4fe1a8a581eb"]], \ "Subsubsection", CellChangeTimes->{{3.738596907992287*^9, 3.738596935982888*^9}, { 3.7468303656970797`*^9, 3.746830366150126*^9}, {3.7468304222647696`*^9, 3.7468304446110106`*^9}, {3.74683160911321*^9, 3.7468316279838734`*^9}, { 3.7468342690987387`*^9, 3.7468342873651514`*^9}, {3.74683432248897*^9, 3.7468343242884827`*^9}, {3.7468354983065453`*^9, 3.7468354997313757`*^9}},ExpressionUUID->"9afb6dc8-fdc9-450e-b535-\ 125bbfaa8750"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"DLGt", "[", "tt", "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{"Gt", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], RowBox[{"Gt", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}], "//", "Expand"}], ")"}], "/.", "ByParts"}]}], ",", RowBox[{"{", RowBox[{"tt", ",", "1", ",", "2"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.73859694003712*^9, 3.738596998485463*^9}, { 3.7468304096857557`*^9, 3.746830415061169*^9}, {3.7468304532989902`*^9, 3.746830505726555*^9}, {3.7468316793981867`*^9, 3.7468316898450575`*^9}, { 3.746832311196719*^9, 3.7468323113334875`*^9}, {3.746834134239809*^9, 3.746834134333682*^9}, {3.7468342486846952`*^9, 3.7468342489816694`*^9}, { 3.746834294400001*^9, 3.7468343362568207`*^9}, {3.7468355001600695`*^9, 3.7468355364573116`*^9}}, CellLabel-> "In[136]:=",ExpressionUUID->"e894862a-a0f2-4453-804c-56008bafae43"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"DL\[CurlyPhi]", "[", "tt", "]"}], " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["D", "a", "i"], "\[CurlyPhi]"}], ")"}], " ", RowBox[{"\[Square]", "\[CurlyPhi]"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox[ OverscriptBox["D", "~"], "a", "i"], "\[CurlyPhi]"}], ")"}], " ", RowBox[{"\[Square]", "\[CurlyPhi]"}]}]}], "}"}], " "}], TraditionalForm]],ExpressionUUID->"f3cfe3fb-4e57-4c15-939c-800b1d91f296"]], \ "Subsubsection", CellChangeTimes->{{3.738596907992287*^9, 3.738596935982888*^9}, { 3.7468303656970797`*^9, 3.746830366150126*^9}, {3.7468304222647696`*^9, 3.7468304446110106`*^9}, {3.74683160911321*^9, 3.7468316279838734`*^9}, { 3.7468344436380267`*^9, 3.7468344436380267`*^9}, {3.746834719519888*^9, 3.7468347261037197`*^9}, {3.7468357510413914`*^9, 3.746835753337531*^9}},ExpressionUUID->"c77aa115-5905-4654-9f9c-\ a2759b6d601b"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"DL\[CurlyPhi]", "[", "tt", "]"}], " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{"\[CurlyPhi]", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], RowBox[{"Lap", "[", RowBox[{"\[CurlyPhi]", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"tt", ",", "1", ",", "2"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.73859694003712*^9, 3.738596998485463*^9}, { 3.7468304096857557`*^9, 3.746830415061169*^9}, {3.7468304532989902`*^9, 3.746830505726555*^9}, {3.7468316793981867`*^9, 3.7468316898450575`*^9}, { 3.746832311196719*^9, 3.7468323113334875`*^9}, {3.746834134239809*^9, 3.746834134333682*^9}, {3.7468342486846952`*^9, 3.7468342489816694`*^9}, { 3.746834727196327*^9, 3.746834730539262*^9}, {3.7468357540408125`*^9, 3.746835756571534*^9}}, CellLabel-> "In[137]:=",ExpressionUUID->"abb2f62f-bea9-40f3-96e5-80fe20a7b53f"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "DLBmn[tt] = {2", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["D", "a", "i"], SubscriptBox["B", "\[Nu]\[Alpha]"]}], ")"}], RowBox[{ SubscriptBox["\[PartialD]", "\[Mu]"], SuperscriptBox["H", "\[Mu]\[Nu]\[Alpha]"]}]}], TraditionalForm]], ExpressionUUID->"1f0b26c6-2ded-4b87-a427-0f2d38c2cc44"], ", 2", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox[ OverscriptBox["D", "~"], "a", "i"], SubscriptBox["B", "\[Nu]\[Alpha]"]}], ")"}], RowBox[{ SubscriptBox["\[PartialD]", "\[Mu]"], SuperscriptBox["H", "\[Mu]\[Nu]\[Alpha]"]}]}], TraditionalForm]], ExpressionUUID->"2d40dbd8-510d-463d-86c9-bed19ca1186f"], "}" }], "Subsubsection", CellChangeTimes->{{3.746835863631716*^9, 3.746835901505658*^9}},ExpressionUUID->"6a2adbab-e91e-42a8-9de7-\ 9daa95189f65"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"DLBmn", "[", "tt", "]"}], " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{"2", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{"Bmn", "[", RowBox[{"nu", ",", "ap"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"Hamnup", "[", RowBox[{"mu", ",", "nu", ",", "ap"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"ap", ",", "0", ",", "3"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"tt", ",", "1", ",", "2"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.7468359043341513`*^9, 3.746836003715567*^9}, { 3.746838239532629*^9, 3.7468382399713955`*^9}, 3.746838676566914*^9}, CellLabel-> "In[138]:=",ExpressionUUID->"8d23faf6-9040-474f-b986-8e7309ec5819"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "DLPsit[tt] = {- ", Cell[BoxData[ RowBox[{"i", " ", SubsuperscriptBox[ OverscriptBox["\[CapitalPsi]", "~"], "b", "j"], SuperscriptBox[ RowBox[{"(", SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "bc"], RowBox[{ SubscriptBox["\[PartialD]", "\[Mu]"], RowBox[{"(", RowBox[{ SubscriptBox["D", "a"], SubsuperscriptBox[ OverscriptBox["\[CapitalPsi]", "~"], "c", "j"]}], ")"}]}]}]], ExpressionUUID->"edf69598-4412-4c77-9fa2-c383d6048cc8"], ",- ", Cell[BoxData[ RowBox[{"i", " ", SubsuperscriptBox[ OverscriptBox["\[CapitalPsi]", "~"], "b", "j"], SuperscriptBox[ RowBox[{"(", SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "bc"], RowBox[{ SubscriptBox["\[PartialD]", "\[Mu]"], RowBox[{"(", RowBox[{ FormBox[ SubsuperscriptBox[ OverscriptBox["D", "~"], "a", "i"], TraditionalForm], SubsuperscriptBox[ OverscriptBox["\[CapitalPsi]", "~"], "c", "j"]}], ")"}]}]}]], ExpressionUUID->"19efbc69-417f-4c93-8cdd-c49ba77bd5f9"], "}" }], "Subsubsection", CellChangeTimes->{{3.738597279555539*^9, 3.7385973231010303`*^9}, { 3.7468350177431993`*^9, 3.7468350873894763`*^9}, 3.7468351721050277`*^9},ExpressionUUID->"b610785b-3330-4368-9551-\ b240f88d4600"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"DLPsit", "[", "tt", "]"}], " ", "=", " ", RowBox[{ RowBox[{"Table", "[", " ", RowBox[{ RowBox[{ RowBox[{"-", " ", "I"}], " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], RowBox[{ RowBox[{"\[Gamma]up", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"bb", ",", "cc"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "jj", "]"}], "[", "cc", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"cc", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}], "/.", "ByParts"}]}], ",", RowBox[{"{", RowBox[{"tt", ",", "1", ",", "2"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.7385972962894964`*^9, 3.738597413817219*^9}, { 3.74683512604104*^9, 3.7468351428369017`*^9}, {3.746835187850502*^9, 3.746835254521659*^9}, {3.746835295755268*^9, 3.746835344941128*^9}, { 3.746835393459791*^9, 3.74683539494446*^9}, {3.7468358104937954`*^9, 3.746835818775408*^9}}, CellLabel-> "In[139]:=",ExpressionUUID->"304e1599-7bd5-48e4-ad9a-a5f752ad0851"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DLPsit", "[", "1", "]"}]], "Input", CellChangeTimes->{{3.746835829957114*^9, 3.7468358315412207`*^9}}, CellLabel-> "In[140]:=",ExpressionUUID->"2fedff06-04e8-4e29-b077-4eba6928f6d5"], Cell[BoxData[ InterpretationBox[ TagBox[ FrameBox[GridBox[{ { ItemBox[ TagBox[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{"(", RowBox[{ TemplateBox[{"47"}, "OutputSizeLimit`Skeleton"], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "2"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"1", ",", "2"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"0", ",", "3"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"3", ",", "1"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{"Bmn", "[", RowBox[{"2", ",", "3"}], "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", 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[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ SuperscriptBox["Ft", TagBox[ RowBox[{"(", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{"\[ImaginaryI]", " ", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"]}], "+", RowBox[{"\[ImaginaryI]", " ", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"]}]}], ")"}]}], " ", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"]}], "+", TemplateBox[{"45"}, "OutputSizeLimit`Skeleton"], "+", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"]}], ")"}]}], ",", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{"(", RowBox[{ TemplateBox[{"47"}, "OutputSizeLimit`Skeleton"], "+", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"]}], ")"}]}]}], "}"}], ",", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"]}], "}"}], Short[#, 5]& ], BaseStyle->{Deployed -> False}, StripOnInput->False]}, {GridBox[{ { TagBox[ TooltipBox[ StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource[ "FEStrings", "sizeBriefExplanation"], StandardForm], ImageSizeCache->{98., {4., 14.}}], StripOnInput->False, DynamicUpdating->True], "OSLText", StripOnInput->False], StyleBox[ DynamicBox[ ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"], StandardForm]], DynamicUpdating -> True, StripOnInput -> False]], Annotation[#, Style[ Dynamic[ FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"]], DynamicUpdating -> True], "Tooltip"]& ], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], StandardForm], ImageSizeCache->{80., {1., 14.}}], StripOnInput->False, DynamicUpdating->True], "OSLControl", StripOnInput->False], True-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], StandardForm]], StripOnInput->False, DynamicUpdating->True], "OSLControlActive", StripOnInput->False]}, Dynamic[ CurrentValue["MouseOver"]], Alignment->Center, FrameMargins->0, ImageSize->{Automatic, 25}], Appearance->None, BaselinePosition->Baseline, ButtonFunction:>OutputSizeLimit`ButtonFunction[ OutputSizeLimit`Defer, 140, 33866084167735575198, 5/2], Enabled->True, Evaluator->Automatic, Method->"Queued"], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], StandardForm], ImageSizeCache->{93., {1., 14.}}], StripOnInput->False, DynamicUpdating->True], "OSLControl", StripOnInput->False], True-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], StandardForm]], StripOnInput->False, DynamicUpdating->True], "OSLControlActive", StripOnInput->False]}, Dynamic[ CurrentValue["MouseOver"]], Alignment->Center, FrameMargins->0, ImageSize->{Automatic, 25}], Appearance->None, BaselinePosition->Baseline, ButtonFunction:>OutputSizeLimit`ButtonFunction[ OutputSizeLimit`Defer, 140, 33866084167735575198, 5 2], Enabled->True, Evaluator->Automatic, Method->"Queued"], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], StandardForm], ImageSizeCache->{69., {1., 14.}}], StripOnInput->False, DynamicUpdating->True], "OSLControl", StripOnInput->False], True-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], StandardForm]], StripOnInput->False, DynamicUpdating->True], "OSLControlActive", StripOnInput->False]}, Dynamic[ CurrentValue["MouseOver"]], Alignment->Center, FrameMargins->0, ImageSize->{Automatic, 25}], Appearance->None, BaselinePosition->Baseline, ButtonFunction:>OutputSizeLimit`ButtonFunction[ OutputSizeLimit`Defer, 140, 33866084167735575198, Infinity], Enabled->True, Evaluator->Automatic, Method->"Queued"], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], StandardForm], ImageSizeCache->{120., {1., 14.}}], StripOnInput->False, DynamicUpdating->True], "OSLControl", StripOnInput->False], True-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], StandardForm]], StripOnInput->False, DynamicUpdating->True], "OSLControlActive", StripOnInput->False]}, Dynamic[ CurrentValue["MouseOver"]], Alignment->Center, FrameMargins->0, ImageSize->{Automatic, 25}], Appearance->None, BaselinePosition->Baseline, ButtonFunction:>FrontEndExecute[{ FrontEnd`SetOptions[ FrontEnd`$FrontEnd, FrontEnd`PreferencesSettings -> {"Page" -> "Advanced"}], FrontEnd`FrontEndToken["PreferencesDialog"]}], Evaluator->None, Method->"Preemptive"]} }, AutoDelete->False, FrameStyle->GrayLevel[0.85], GridBoxDividers->{"Columns" -> {False, {True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], Offset[1.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], BaseStyle->"OutputSizeLimit", FrameMargins->{{12, 12}, {0, 15}}, FrameStyle->GrayLevel[0.85], RoundingRadius->5, StripOnInput->False], Deploy, DefaultBaseStyle->"Deploy"], If[33866084167735575198 === $SessionID, Out[140], Message[ MessageName[Syntax, "noinfoker"]]; Missing["NotAvailable"]; Null]]], "Output", CellChangeTimes->{3.7604680363702164`*^9, 3.7604682431996994`*^9, 3.7604703416057663`*^9}, CellLabel-> "Out[140]=",ExpressionUUID->"775e87c4-1b24-4d84-a9e2-d41ca6ed6890"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Lagrangian invariance", "Subsubsection", 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}, { 3.746843815578687*^9, 3.7468438204024487`*^9}, 3.7474210409756947`*^9},ExpressionUUID->"1e21029e-2e90-43fa-9df8-\ 1ed556709fbf"], Cell[BoxData[ RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"DLTotal", "[", "tt", "]"}], "=", RowBox[{"(", RowBox[{ RowBox[{"DLA", "[", "tt", "]"}], " ", "+", RowBox[{"DLB", "[", "tt", "]"}], " ", "+", RowBox[{"DLF", "[", "tt", "]"}], " ", "+", RowBox[{"DLG", "[", "tt", "]"}], " ", "+", RowBox[{"DLd", "[", "tt", "]"}], " ", "+", RowBox[{"DLAm", "[", "tt", "]"}], " ", "+", " ", RowBox[{"DLPsi", "[", "tt", "]"}], " ", "+", RowBox[{"DLAt", "[", "tt", "]"}], " ", "+", RowBox[{"DLBt", "[", "tt", "]"}], " ", "+", RowBox[{"DLFt", "[", "tt", "]"}], " ", "+", RowBox[{"DLGt", "[", "tt", "]"}], " ", "+", RowBox[{"DL\[CurlyPhi]", "[", "tt", "]"}], " ", "+", RowBox[{"DLBmn", "[", "tt", "]"}], " ", "+", " ", RowBox[{"DLPsit", "[", "tt", "]"}]}], " ", ")"}]}], ",", RowBox[{"{", RowBox[{"tt", ",", "1", ",", "2"}], "}"}]}], "]"}], ";"}]], "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.7391007116602974`*^9, {3.7422205802424297`*^9, 3.742220581342843*^9}, {3.7468318682702103`*^9, 3.7468319711287336`*^9}, { 3.7468347488532305`*^9, 3.7468347488532305`*^9}, {3.746834784202216*^9, 3.7468347895354424`*^9}, {3.746836276935848*^9, 3.7468362843054657`*^9}}, CellLabel-> "In[141]:=",ExpressionUUID->"129215b9-2784-4b34-98e7-db3f4fff3dcf"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DLTotal", "[", "1", "]"}]], "Input", CellChangeTimes->{{3.746836269353221*^9, 3.7468362985271664`*^9}}, CellLabel-> "In[142]:=",ExpressionUUID->"28fca461-fcb8-4228-b9f3-56c78fbc8a8d"], Cell[BoxData[ InterpretationBox[ TagBox[ FrameBox[GridBox[{ { ItemBox[ TagBox[ RowBox[{"{", RowBox[{ RowBox[{"{", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], ",", RowBox[{ TemplateBox[{"94"}, "OutputSizeLimit`Skeleton"], "+", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ TemplateBox[{"49"}, "OutputSizeLimit`Skeleton"], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"]}], "+", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"]}], ")"}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "2", "]"}], "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}]}], ",", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], ",", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox["d", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", TemplateBox[{"89"}, "OutputSizeLimit`Skeleton"]}]}], "}"}]}], "}"}], Short[#, 5]& ], BaseStyle->{Deployed -> False}, StripOnInput->False]}, {GridBox[{ { TagBox[ TooltipBox[ StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource[ "FEStrings", "sizeBriefExplanation"], StandardForm], ImageSizeCache->{98., {4., 14.}}], StripOnInput->False, DynamicUpdating->True], "OSLText", StripOnInput->False], StyleBox[ DynamicBox[ ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"], StandardForm]], DynamicUpdating -> True, StripOnInput -> False]], Annotation[#, Style[ Dynamic[ FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"]], DynamicUpdating -> True], "Tooltip"]& ], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], StandardForm], ImageSizeCache->{80., {1., 14.}}], StripOnInput->False, DynamicUpdating->True], "OSLControl", StripOnInput->False], True-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], StandardForm]], StripOnInput->False, DynamicUpdating->True], "OSLControlActive", StripOnInput->False]}, Dynamic[ CurrentValue["MouseOver"]], Alignment->Center, FrameMargins->0, ImageSize->{Automatic, 25}], Appearance->None, BaselinePosition->Baseline, ButtonFunction:>OutputSizeLimit`ButtonFunction[ OutputSizeLimit`Defer, 142, 33866084167735575198, 5/2], Enabled->True, Evaluator->Automatic, Method->"Queued"], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], StandardForm], ImageSizeCache->{93., {1., 14.}}], StripOnInput->False, DynamicUpdating->True], "OSLControl", StripOnInput->False], True-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], StandardForm]], StripOnInput->False, DynamicUpdating->True], "OSLControlActive", StripOnInput->False]}, Dynamic[ CurrentValue["MouseOver"]], Alignment->Center, FrameMargins->0, ImageSize->{Automatic, 25}], Appearance->None, BaselinePosition->Baseline, ButtonFunction:>OutputSizeLimit`ButtonFunction[ OutputSizeLimit`Defer, 142, 33866084167735575198, 5 2], Enabled->True, Evaluator->Automatic, Method->"Queued"], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], StandardForm], ImageSizeCache->{69., {1., 14.}}], StripOnInput->False, DynamicUpdating->True], "OSLControl", StripOnInput->False], True-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], StandardForm]], StripOnInput->False, DynamicUpdating->True], "OSLControlActive", StripOnInput->False]}, Dynamic[ CurrentValue["MouseOver"]], Alignment->Center, FrameMargins->0, ImageSize->{Automatic, 25}], Appearance->None, BaselinePosition->Baseline, ButtonFunction:>OutputSizeLimit`ButtonFunction[ OutputSizeLimit`Defer, 142, 33866084167735575198, Infinity], Enabled->True, Evaluator->Automatic, Method->"Queued"], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], StandardForm], ImageSizeCache->{120., {1., 14.}}], StripOnInput->False, DynamicUpdating->True], "OSLControl", StripOnInput->False], True-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], StandardForm]], StripOnInput->False, DynamicUpdating->True], "OSLControlActive", StripOnInput->False]}, Dynamic[ CurrentValue["MouseOver"]], Alignment->Center, FrameMargins->0, ImageSize->{Automatic, 25}], Appearance->None, BaselinePosition->Baseline, ButtonFunction:>FrontEndExecute[{ FrontEnd`SetOptions[ FrontEnd`$FrontEnd, FrontEnd`PreferencesSettings -> {"Page" -> "Advanced"}], FrontEnd`FrontEndToken["PreferencesDialog"]}], Evaluator->None, Method->"Preemptive"]} }, AutoDelete->False, FrameStyle->GrayLevel[0.85], GridBoxDividers->{"Columns" -> {False, {True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], Offset[1.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], BaseStyle->"OutputSizeLimit", FrameMargins->{{12, 12}, {0, 15}}, FrameStyle->GrayLevel[0.85], RoundingRadius->5, StripOnInput->False], Deploy, DefaultBaseStyle->"Deploy"], If[33866084167735575198 === $SessionID, Out[142], Message[ MessageName[Syntax, "noinfoker"]]; Missing["NotAvailable"]; Null]]], "Output", CellChangeTimes->{3.7604680365995417`*^9, 3.760468243409342*^9, 3.7604703418175983`*^9}, CellLabel-> "Out[142]=",ExpressionUUID->"fb3e7d32-2b69-4473-874c-581585102f14"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Length", "[", "FieldListWithDerivatives", "]"}]], "Input", CellChangeTimes->{{3.7474916702524204`*^9, 3.747491675001278*^9}, { 3.7474919052505856`*^9, 3.7474919420892987`*^9}}, CellLabel-> "In[143]:=",ExpressionUUID->"093770a7-7635-48e9-9ef6-eaf8bb2afc12"], Cell[BoxData["756"], "Output", CellChangeTimes->{3.760468036630021*^9, 3.760468243496662*^9, 3.760470341833207*^9}, CellLabel-> "Out[143]=",ExpressionUUID->"e3f4f959-3a7d-45be-a90f-860f01862fbb"] }, Open ]], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"DLFinal", "[", "tt", "]"}], " ", "=", " ", RowBox[{"Collect", "[", RowBox[{ RowBox[{"DLTotal", "[", "tt", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "_", "]"}], "[", "_", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "_", "]"}], "[", "_", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ SuperscriptBox["A", TagBox[ RowBox[{"(", RowBox[{"_", ",", "_", ",", "_", ",", "_"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"A", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ SuperscriptBox["B", TagBox[ RowBox[{"(", RowBox[{"_", ",", "_", ",", "_", ",", "_"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"B", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ SuperscriptBox["F", TagBox[ RowBox[{"(", RowBox[{"_", ",", "_", ",", "_", ",", "_"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"F", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ SuperscriptBox["G", TagBox[ RowBox[{"(", RowBox[{"_", ",", "_", ",", "_", ",", "_"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"G", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "_", "]"}], TagBox[ RowBox[{"(", RowBox[{"_", ",", "_", ",", "_", ",", "_"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{"Am", "[", "_", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ SuperscriptBox["d", TagBox[ RowBox[{"(", RowBox[{"_", ",", "_", ",", "_", ",", "_"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"d", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ SuperscriptBox["At", TagBox[ RowBox[{"(", RowBox[{"_", ",", "_", ",", "_", ",", "_"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"At", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ SuperscriptBox["Bt", TagBox[ RowBox[{"(", RowBox[{"_", ",", "_", ",", "_", ",", "_"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"Bt", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ SuperscriptBox["Ft", TagBox[ RowBox[{"(", RowBox[{"_", ",", "_", ",", "_", ",", "_"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"Ft", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ SuperscriptBox["Gt", TagBox[ RowBox[{"(", RowBox[{"_", ",", "_", ",", "_", ",", "_"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"Gt", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ SuperscriptBox["\[CurlyPhi]", TagBox[ RowBox[{"(", RowBox[{"_", ",", "_", ",", "_", ",", "_"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CurlyPhi]", "[", 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"}], "]"}]}], "}"}], ",", "Simplify"}], "]"}]}], ",", RowBox[{"{", RowBox[{"tt", ",", "1", ",", "2"}], "}"}]}], "]"}]], "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.7468319955757027`*^9, 3.7468320148227177`*^9}, { 3.7468347488532305`*^9, 3.7468347488532305`*^9}, {3.746834797909934*^9, 3.7468348090835834`*^9}, {3.7468363133812723`*^9, 3.74683638481828*^9}, { 3.7468369217123685`*^9, 3.746837005675399*^9}, 3.7474911926690598`*^9, { 3.7474916417300153`*^9, 3.747491648061041*^9}, {3.747491721987088*^9, 3.747491726753625*^9}, 3.7474918878476315`*^9, {3.747491973148552*^9, 3.747491975969486*^9}, {3.760468124382265*^9, 3.7604681320024223`*^9}}, CellLabel-> "In[144]:=",ExpressionUUID->"5fcbf0a0-8c4f-4024-9753-b4b98c2cdf62"] }, Open ]], Cell[CellGroupData[{ Cell["Lagrangian invariance: untilded DLFinal[1]", "Subsubsection", 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}, { 3.746843815578687*^9, 3.7468438204024487`*^9}, {3.7474210409756947`*^9, 3.7474210616067142`*^9}},ExpressionUUID->"4ec82ef1-79f9-47c1-a124-\ 8111854e05eb"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DLFinal", "[", "1", "]"}]], "Input", CellChangeTimes->{{3.7468370117740946`*^9, 3.7468370309574337`*^9}, { 3.746837080764648*^9, 3.7468370912951527`*^9}, 3.746838715879922*^9, { 3.760468146753761*^9, 3.760468149137547*^9}}, CellLabel-> "In[145]:=",ExpressionUUID->"194e4482-22c2-4bf8-9ef5-69909049754f"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.76046813786259*^9, 3.760468149893775*^9}, 3.76046824429965*^9, 3.7604703426863365`*^9}, CellLabel-> "Out[145]=",ExpressionUUID->"e25f1eac-1fc9-4f19-aec5-27ff6143430c"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Lagrangian Parameters", "Subsubsection", 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}, { 3.746843815578687*^9, 3.746843837798028*^9}, {3.748967594262095*^9, 3.748967624435231*^9}},ExpressionUUID->"efc81674-9fe7-43d1-9a6e-\ 0cad028a9f5f"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"UList", " ", "=", " ", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"U", "[", "Index", "]"}], "[", RowBox[{"ii", ",", "jj"}], "]"}], ",", RowBox[{"{", RowBox[{"Index", ",", "1", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}]}], "]"}], "//", "Flatten"}]}]], "Input", CellChangeTimes->{{3.7468443547295876`*^9, 3.7468444563391085`*^9}, { 3.7474837351808915`*^9, 3.747483749026657*^9}}, CellLabel-> "In[146]:=",ExpressionUUID->"142fb11c-8c2b-4f32-888b-0be972f4dd31"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"U", "[", "1", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], ",", RowBox[{ RowBox[{"U", "[", "1", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], ",", RowBox[{ RowBox[{"U", "[", "1", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}], ",", RowBox[{ RowBox[{"U", "[", "1", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}], ",", RowBox[{ RowBox[{"U", "[", "2", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], ",", RowBox[{ RowBox[{"U", "[", "2", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], ",", RowBox[{ RowBox[{"U", "[", "2", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}], ",", RowBox[{ RowBox[{"U", "[", "2", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}], ",", RowBox[{ RowBox[{"U", "[", "3", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], ",", RowBox[{ RowBox[{"U", "[", "3", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], ",", RowBox[{ RowBox[{"U", "[", "3", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}], ",", RowBox[{ RowBox[{"U", "[", "3", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}], ",", RowBox[{ RowBox[{"U", "[", "4", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], ",", RowBox[{ RowBox[{"U", "[", "4", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], ",", RowBox[{ RowBox[{"U", "[", "4", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}], ",", RowBox[{ RowBox[{"U", "[", "4", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}], ",", RowBox[{ RowBox[{"U", "[", "5", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], ",", RowBox[{ RowBox[{"U", "[", "5", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], ",", RowBox[{ RowBox[{"U", "[", "5", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}], ",", RowBox[{ RowBox[{"U", "[", "5", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}], ",", RowBox[{ RowBox[{"U", "[", "6", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], ",", RowBox[{ RowBox[{"U", "[", "6", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], ",", RowBox[{ RowBox[{"U", "[", "6", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}], ",", RowBox[{ RowBox[{"U", "[", "6", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}], ",", RowBox[{ RowBox[{"U", "[", "7", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], ",", RowBox[{ RowBox[{"U", "[", "7", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], ",", RowBox[{ RowBox[{"U", "[", "7", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}], ",", RowBox[{ RowBox[{"U", "[", "7", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}], ",", RowBox[{ RowBox[{"U", "[", "8", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], ",", RowBox[{ RowBox[{"U", "[", "8", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], ",", RowBox[{ RowBox[{"U", "[", "8", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}], ",", RowBox[{ RowBox[{"U", "[", "8", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}], ",", RowBox[{ RowBox[{"U", "[", "9", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], ",", RowBox[{ RowBox[{"U", "[", "9", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], ",", RowBox[{ RowBox[{"U", "[", "9", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}], ",", RowBox[{ RowBox[{"U", "[", "9", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}], ",", RowBox[{ RowBox[{"U", "[", "10", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], ",", RowBox[{ RowBox[{"U", "[", "10", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], ",", RowBox[{ RowBox[{"U", "[", "10", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}], ",", RowBox[{ RowBox[{"U", "[", "10", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}], ",", RowBox[{ RowBox[{"U", "[", "11", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], ",", RowBox[{ RowBox[{"U", "[", "11", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], ",", RowBox[{ RowBox[{"U", "[", "11", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}], ",", RowBox[{ RowBox[{"U", "[", "11", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}], ",", RowBox[{ RowBox[{"U", "[", "12", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], ",", RowBox[{ RowBox[{"U", "[", "12", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], ",", RowBox[{ RowBox[{"U", "[", "12", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}], ",", RowBox[{ RowBox[{"U", "[", "12", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}]}], "}"}]], "Output", CellChangeTimes->{3.7604681529775095`*^9, 3.760468244335061*^9, 3.7604703427207537`*^9}, CellLabel-> "Out[146]=",ExpressionUUID->"ab14dbf5-256d-4b20-9153-8f5650492ca5"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"CoefficientEquations", "[", "2", "]"}], " ", "=", " ", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Coefficient", "[", RowBox[{ RowBox[{ RowBox[{"DLFinal", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "Ii"}], "]"}], "]"}], ",", RowBox[{"FieldProductsList", "[", RowBox[{"[", "FieldProductsIndex", "]"}], "]"}]}], "]"}], "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"Ii", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"FieldProductsIndex", ",", "1", ",", RowBox[{"Length", "[", "FieldProductsList", "]"}]}], "}"}]}], "]"}], "//", "Flatten"}]}], ";"}]], "Input", CellChangeTimes->{{3.7474209745049*^9, 3.747420992190564*^9}, { 3.747421158079099*^9, 3.7474212238627663`*^9}}, CellLabel-> "In[147]:=",ExpressionUUID->"b64e3587-e551-490b-97e9-72be77a0ab5c"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"LagrangianParameters", " ", "=", " ", RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{"CoefficientEquations", "[", "2", "]"}], ",", "UList"}], "]"}], "//", "Flatten"}]}]], "Input", CellChangeTimes->{{3.747420231526963*^9, 3.747420296607997*^9}, { 3.7474209454085655`*^9, 3.747420966431074*^9}, {3.74742100343132*^9, 3.747421004574643*^9}, {3.7474214427028646`*^9, 3.747421470990159*^9}, { 3.747421832288439*^9, 3.7474218340468335`*^9}, 3.747483758427367*^9}, CellLabel-> "In[148]:=",ExpressionUUID->"ea84238b-8da3-4b56-850e-39240368e5c7"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"U", "[", "1", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"V", "[", "10", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"U", "[", "1", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"V", "[", "10", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"U", "[", "1", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"V", "[", "10", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"U", "[", "1", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"V", "[", "10", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"U", "[", "2", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"V", "[", "7", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"U", "[", "2", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"V", "[", "7", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"U", "[", "2", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"V", "[", "7", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"U", "[", "2", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"V", "[", "7", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"U", "[", "3", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"V", "[", "8", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"U", "[", "3", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"V", "[", "8", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"U", "[", "3", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"V", "[", "8", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"U", "[", "3", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"V", "[", "8", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"U", "[", "4", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"V", "[", "9", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"U", "[", "4", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"V", "[", "9", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"U", "[", "4", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"V", "[", "9", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"U", "[", "4", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"V", "[", "9", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"U", "[", "5", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"V", "[", "11", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"U", "[", "5", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"V", "[", "11", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"U", "[", "5", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"V", "[", "11", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"U", "[", "5", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"V", "[", "11", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"U", "[", "6", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"V", "[", "12", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"U", "[", "6", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"V", "[", "12", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"U", "[", "6", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"V", "[", "12", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"U", "[", "6", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"V", "[", "12", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"U", "[", "7", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"V", "[", "1", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"U", "[", "7", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"V", "[", "1", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"U", "[", "7", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"V", "[", "1", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"U", "[", "7", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"V", "[", "1", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"U", "[", "8", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"V", "[", "2", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"U", "[", "8", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"V", "[", "2", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"U", "[", "8", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"V", "[", "2", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"U", "[", "8", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"V", "[", "2", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"U", "[", "9", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"V", "[", "3", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"U", "[", "9", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"V", "[", "3", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"U", "[", "9", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"V", "[", "3", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"U", "[", "9", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"V", "[", "3", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"U", "[", "10", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"V", "[", "4", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"U", "[", "10", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"V", "[", "4", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"U", "[", "10", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"V", "[", "4", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"U", "[", "10", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"V", "[", "4", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"U", "[", "11", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"V", "[", "6", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"U", "[", "11", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"V", "[", "6", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"U", "[", "11", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"V", "[", "6", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"U", "[", "11", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"V", "[", "6", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"U", "[", "12", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"V", "[", "5", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"U", "[", "12", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"V", "[", "5", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"U", "[", "12", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"V", "[", "5", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"U", "[", "12", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"V", "[", "5", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}]}]}], "}"}]], "Output", CellChangeTimes->{3.760468153073067*^9, 3.7604682459009237`*^9, 3.7604703442562246`*^9}, CellLabel-> "Out[148]=",ExpressionUUID->"f4c3ab48-f649-4287-afc1-6708bf7969dc"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Length", "[", "LagrangianParameters", "]"}]], "Input", CellChangeTimes->{{3.747421816977276*^9, 3.74742184807049*^9}}, CellLabel-> "In[149]:=",ExpressionUUID->"06fc88c5-cfa7-41e0-bebc-60f9cf91fcf4"], Cell[BoxData["48"], "Output", CellChangeTimes->{3.760468153083599*^9, 3.760468245931072*^9, 3.7604703442847214`*^9}, CellLabel-> "Out[149]=",ExpressionUUID->"1599f534-2be1-4d1d-8d34-b676ea2f9530"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Lagrangian Invariance: tilded", "Subsubsection", 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}, { 3.746843815578687*^9, 3.746843837798028*^9}, {3.748967594262095*^9, 3.748967618196615*^9}},ExpressionUUID->"b81693a5-99e4-4336-9bf6-\ 9460db37b893"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"DLFinal", "[", "2", "]"}], "/.", "LagrangianParameters"}]], "Input",\ CellChangeTimes->{{3.747421481965914*^9, 3.7474214886060715`*^9}}, CellLabel-> "In[150]:=",ExpressionUUID->"d2cf050d-504d-42e9-a285-3f5fe8a66698"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.7604682459867887`*^9, 3.7604703443541365`*^9}, CellLabel-> "Out[150]=",ExpressionUUID->"2c917e9d-6f83-42e7-84a7-cfe2173b9107"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ We have U[1][i,j] =V[10][i,j] U[2][i,j] =V[7][i,j] U[3][i,j] =V[8][i,j] U[4][i,j]=V[9][i,j] U[5][i,j] =V[11][i,j] U[6][i,j] =V[12][i,j] U[7][i,j] =V[1][i,j] U[8][i,j] =V[2][i,j] U[9][i,j] =V[3][i,j] U[10][i,j] =V[4][i,j] U[11][i,j] =V[6][i,j] U[12][i,j] =V[5][i,j] \ \>", "Subsubsection", CellChangeTimes->{{3.747422337550041*^9, 3.7474224069020667`*^9}, { 3.747422489478747*^9, 3.7474225084625173`*^9}, {3.747422629942858*^9, 3.7474226765511737`*^9}, {3.7474837796112547`*^9, 3.747483928435478*^9}},ExpressionUUID->"f51c2ab5-f9e2-4b6f-a1af-\ 4acc02611799"], Cell[BoxData[ RowBox[{ RowBox[{"UVPairings", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "11"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "5"}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.747484050743515*^9, 3.74748408515549*^9}, { 3.7474841860432234`*^9, 3.7474841860985203`*^9}}, CellLabel-> "In[151]:=",ExpressionUUID->"07c5de27-6940-4ead-a83c-29996b33e454"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"U", "[", RowBox[{"UVPairings", "[", RowBox[{"[", RowBox[{"uvpair", ",", "1"}], "]"}], "]"}], "]"}], "[", RowBox[{"ii", ",", "jj"}], "]"}], "/.", "LagrangianParameters"}], ")"}], "\[Equal]", RowBox[{ RowBox[{"V", "[", RowBox[{"UVPairings", "[", RowBox[{"[", RowBox[{"uvpair", ",", "2"}], "]"}], "]"}], "]"}], "[", RowBox[{"ii", ",", "jj"}], "]"}]}], ",", RowBox[{"{", RowBox[{"uvpair", ",", "1", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}]}], "]"}], " ", "\[Equal]", " ", RowBox[{"Table", "[", RowBox[{"True", ",", RowBox[{"{", RowBox[{"uvpair", ",", "1", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.747422163746269*^9, 3.7474222145342274`*^9}, { 3.747422269558553*^9, 3.7474223203347435`*^9}, {3.747422420767337*^9, 3.7474224804545565`*^9}, {3.7474225187593184`*^9, 3.747422520846409*^9}, { 3.7474225775910597`*^9, 3.7474225793747787`*^9}, {3.747422618559149*^9, 3.747422621094794*^9}, {3.747484005669436*^9, 3.747484034802576*^9}, { 3.7474840899073687`*^9, 3.747484164426958*^9}}, CellLabel-> "In[152]:=",ExpressionUUID->"c73f1a46-4a14-4a27-934d-0e948247cd85"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.76046824602635*^9, 3.760470344383358*^9}, CellLabel-> "Out[152]=",ExpressionUUID->"2a577768-375d-497e-b2c0-443b495fc004"] }, Open ]] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Lagrangian Summary, true if ", Cell[BoxData[ FormBox[ SubsuperscriptBox["D", "a", "i"], TraditionalForm]],ExpressionUUID-> "13791bd9-6bc4-48c4-a643-87a65ca07465"], "\[ScriptCapitalL]=", Cell[BoxData[ FormBox[ SubsuperscriptBox[ OverscriptBox["D", "~"], "a", "i"], TraditionalForm]],ExpressionUUID-> "a0a16d7e-d72d-44ee-b9a6-bf1c2d24acc9"], "\[ScriptCapitalL] = 0+total derivatives" }], "Section", CellChangeTimes->{{3.7489697452702417`*^9, 3.7489697482479353`*^9}, 3.748969821491645*^9, {3.7604710772865314`*^9, 3.7604711189505053`*^9}},ExpressionUUID->"84b247f4-ee56-4274-bd15-\ 8ccd45286fee"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"DLFinal", "[", "1", "]"}], "\[Equal]", RowBox[{"(", RowBox[{ RowBox[{"DLFinal", "[", "2", "]"}], "/.", "LagrangianParameters"}], ")"}], "==", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.7468370117740946`*^9, 3.7468370309574337`*^9}, { 3.746837080764648*^9, 3.7468370912951527`*^9}, 3.746838715879922*^9, { 3.74896976712537*^9, 3.748969795572439*^9}}, CellLabel-> "In[153]:=",ExpressionUUID->"a6d74484-0c36-44a4-aa7b-0133cac24767"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.7604682562010093`*^9, 3.7604703444534316`*^9}, CellLabel-> "Out[153]=",ExpressionUUID->"ff496b29-2271-4beb-bfe3-012b14958e8f"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Algebra ", Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ SubsuperscriptBox["D", "a", "i"], ",", SubsuperscriptBox["D", "b", "j"]}], "}"}], TraditionalForm]], ExpressionUUID->"802bd518-e28c-4727-b17d-67ae7cf0f367"], " \ntt1 = 1, tt2 = 1 for both untilded D\[CloseCurlyQuote]s" }], "Section", CellChangeTimes->{{3.746831725880522*^9, 3.746831726815978*^9}, { 3.747484799938679*^9, 3.747484810026211*^9}, {3.749400068041915*^9, 3.749400077475848*^9}, 3.760469455825238*^9, {3.7604695068292027`*^9, 3.760469512017312*^9}},ExpressionUUID->"49f4e60a-1458-4862-b69c-\ 34bd19ad322f"], Cell[CellGroupData[{ Cell["DD", "Subsection", CellChangeTimes->{{3.7308122301647825`*^9, 3.7308122628657265`*^9}, 3.731162255630625*^9},ExpressionUUID->"c1c4e56f-5b25-441f-9fd8-\ 7ab145d549b4"], 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}, {3.7468347488688517`*^9, 3.7468347488688517`*^9}, { 3.7468348138789315`*^9, 3.746834819742332*^9}}, CellLabel-> "In[154]:=",ExpressionUUID->"25a9fdfa-e609-4414-b6eb-6066a3222562"], 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}, {3.7468347488688517`*^9, 3.7468347488688517`*^9}, {3.7468348206347437`*^9, 3.7468348230502777`*^9}}, CellLabel-> "In[155]:=",ExpressionUUID->"46047ed1-87b2-4447-99c2-d3bd1b9c898c"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "]"}], " ", "=", " ", RowBox[{"Join", "[", RowBox[{ RowBox[{"SUSYTransformFields", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"SUSYTransformFields", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "]"}], ",", "t"}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"SUSYTransformFields", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "]"}], ",", "x"}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"SUSYTransformFields", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "]"}], ",", "y"}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"SUSYTransformFields", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "]"}], ",", "z"}], "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"tt", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "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}, {3.7467923123961535`*^9, 3.7467923131571245`*^9}, { 3.7467929973395042`*^9, 3.7467930409880095`*^9}, {3.74679441639699*^9, 3.7467944315313272`*^9}, {3.7468072496760235`*^9, 3.7468072712489595`*^9}, { 3.7468347488688517`*^9, 3.74683474888448*^9}, {3.7468348245200787`*^9, 3.7468348288163815`*^9}, {3.747486407562873*^9, 3.747486443162782*^9}}, CellLabel-> "In[156]:=",ExpressionUUID->"0cc5fc54-80a8-4945-9247-a111c9c1b0fd"], 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}, {3.74683474888448*^9, 3.74683474888448*^9}, {3.746834830114916*^9, 3.7468348317756753`*^9}}, CellLabel-> "In[157]:=",ExpressionUUID->"6ad7f292-a804-4faa-8c3f-f05f5f294674"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"AlgebraDDTerms", "[", 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}, 3.7467957549741755`*^9, { 3.74683474888448*^9, 3.74683474888448*^9}, {3.7468348326658783`*^9, 3.7468348341917543`*^9}}, CellLabel-> "In[158]:=",ExpressionUUID->"4070dbab-9e12-42d7-a59f-551a0f3fc9ef"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDD", "[", RowBox[{"ttl_", ",", "ttr_"}], "]"}], "[", "Field_", "]"}], " ", ":=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"AlgebraDDTerms", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "ttl", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], ",", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "ttr", "]"}], "[", "jj", "]"}], "[", "bb", "]"}]}], "]"}], "[", "Field", "]"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], " ", RowBox[{"(*", " ", RowBox[{ RowBox[{ "Convention", " ", "is", " ", "left", " ", "D", " ", "upper", " ", "index"}], ",", " ", RowBox[{"left", " ", "D", " ", "lower", " ", "index"}], ",", " ", RowBox[{"right", " ", "D", " ", "upper", " ", "index"}], ",", " ", RowBox[{"right", " ", "D", " ", "lower", " ", "index"}]}], " ", "*)"}]}]], "Input", CellChangeTimes->{{3.7371651794635396`*^9, 3.7371652120755053`*^9}, 3.74679305350698*^9, {3.7467932064359465`*^9, 3.746793225682712*^9}, { 3.7467954617802973`*^9, 3.746795495723437*^9}, 3.7467957612333603`*^9, 3.7467958034604874`*^9, {3.7468070673325195`*^9, 3.746807092855509*^9}, { 3.74683474888448*^9, 3.74683474888448*^9}, {3.74683483504224*^9, 3.7468348357753468`*^9}}, CellLabel-> "In[159]:=",ExpressionUUID->"2692095e-ab42-4a13-9a2b-3355b2ca7b08"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"HoloraumyDDTerms", "[", 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}, 3.7467957634027576`*^9, {3.74683474888448*^9, 3.74683474888448*^9}, { 3.746834836583665*^9, 3.746834837800394*^9}}, CellLabel-> "In[160]:=",ExpressionUUID->"f624eeee-9190-41e7-b2d0-c129382a3fe7"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"HoloraumyDD", "[", RowBox[{"ttl_", ",", "ttr_"}], "]"}], "[", "Field_", "]"}], ":=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"HoloraumyDDTerms", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "ttl", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], ",", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "ttr", "]"}], "[", "jj", "]"}], "[", "bb", "]"}]}], "]"}], "[", "Field", "]"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.742225289456066*^9, 3.74222531191052*^9}, { 3.7467930547097673`*^9, 3.7467930857543683`*^9}, {3.7467931254668207`*^9, 3.746793125506708*^9}, 3.746795767960672*^9, 3.746795804190172*^9, { 3.7468071163587976`*^9, 3.7468071267130146`*^9}, {3.7468347489001255`*^9, 3.7468347489001255`*^9}, {3.746834838635146*^9, 3.7468348395134706`*^9}}, CellLabel-> "In[161]:=",ExpressionUUID->"3abc7123-6975-4881-8daa-0fe475263196"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"ClosureTerms", "[", RowBox[{"ii_", ",", "jj_"}], "]"}], "[", RowBox[{"aa_", ",", "bb_"}], "]"}], "[", "Field_", "]"}], ":=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"2", " ", "I", " ", RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{ RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{"Field", ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "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}, {3.7467930919155087`*^9, 3.7467931216905055`*^9}, { 3.7467958187717485`*^9, 3.7467958192030635`*^9}, {3.7468347489001255`*^9, 3.7468347489001255`*^9}, {3.746834840315051*^9, 3.7468348410650005`*^9}}, CellLabel-> "In[162]:=",ExpressionUUID->"28b797ea-2bea-41ad-96e1-e2c2943ad409"], Cell[BoxData[ RowBox[{ RowBox[{"Closure", "[", "Field_", "]"}], ":=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"ClosureTerms", "[", RowBox[{"ii", ",", "jj"}], "]"}], "[", RowBox[{"aa", ",", "bb"}], "]"}], "[", "Field", "]"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.737914721265608*^9, 3.7379147450069656`*^9}, { 3.737915477761877*^9, 3.7379154839432306`*^9}, {3.746793132307049*^9, 3.746793137090722*^9}, {3.7467931772354884`*^9, 3.7467931884903183`*^9}, { 3.7467954368361535`*^9, 3.746795451338724*^9}, {3.746795815715252*^9, 3.746795822315354*^9}, {3.7468347489001255`*^9, 3.7468347489001255`*^9}, { 3.746834842232836*^9, 3.7468348430293913`*^9}}, CellLabel-> "In[163]:=",ExpressionUUID->"f50f53c3-1888-4082-b2da-c7d831bb96c6"], Cell[BoxData[ RowBox[{ RowBox[{"Zeros", " ", "=", " ", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.747492646523921*^9, 3.7474926623698654`*^9}}, CellLabel-> "In[164]:=",ExpressionUUID->"489e6849-77da-4669-8dd0-225745cc2a1b"], Cell[CellGroupData[{ Cell["Test it out", "Subsubsection", CellChangeTimes->{{3.7467952717303915`*^9, 3.7467952734741063`*^9}},ExpressionUUID->"db4d44bb-da08-4e1f-8db1-\ a7ec7eb3fa45"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Closure", "[", RowBox[{"A", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.7467950450708027`*^9, 3.746795049363615*^9}, 3.746795850748537*^9}, CellLabel-> "In[165]:=",ExpressionUUID->"1d2e1b2a-15cb-4fef-adb0-83a0a48fbbb2"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["A", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["A", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["A", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["A", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["A", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["A", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["A", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", "0", ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["A", 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["A", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", "0", ",", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["A", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["A", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["A", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["A", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["A", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["A", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["A", 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[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["A", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["A", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["A", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["A", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["A", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["A", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["A", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", "0", ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["A", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["A", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", "0", ",", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["A", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["A", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["A", 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[{"0", ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["A", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["A", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["A", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["A", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]}], "}"}]}], "}"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.760468304562464*^9, 3.760470344663229*^9}, CellLabel-> "Out[165]=",ExpressionUUID->"e8972471-c88f-489e-95e1-7f9cade299cb"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"AlgebraDD", "[", RowBox[{"2", ",", "2"}], "]"}], "[", RowBox[{"A", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.746795052214951*^9, 3.7467950572912045`*^9}, 3.7467958535001483`*^9, 3.7468071501072993`*^9, {3.7474868166118155`*^9, 3.7474868196663713`*^9}}, CellLabel-> "In[166]:=",ExpressionUUID->"d554badc-d418-4168-ab03-f3af76886fcc"], Cell[BoxData[ InterpretationBox[ TagBox[ FrameBox[GridBox[{ { ItemBox[ TagBox[ RowBox[{"{", RowBox[{ RowBox[{"{", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], "}"}], ",", RowBox[{"{", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], "}"}], ",", RowBox[{"{", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"V", "[", "1", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}], " ", RowBox[{"(", RowBox[{ TemplateBox[{"6"}, "OutputSizeLimit`Skeleton"], "+", RowBox[{ FractionBox["1", "2"], " ", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], TagBox[ TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"]}], ")"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{ RowBox[{"U", "[", "12", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Am", "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{ RowBox[{"V", "[", "1", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}], " ", RowBox[{"(", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], ")"}]}], "+", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], "+", RowBox[{ RowBox[{ RowBox[{"V", "[", "1", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{"(", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], ")"}]}]}], ",", TemplateBox[{"2"}, "OutputSizeLimit`Skeleton"], ",", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], "}"}], ",", RowBox[{"{", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], "}"}]}], "}"}]}], "}"}]}], "}"}], Short[#, 5]& ], BaseStyle->{Deployed -> False}, StripOnInput->False]}, {GridBox[{ { TagBox[ TooltipBox[ StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource[ "FEStrings", "sizeBriefExplanation"], StandardForm], ImageSizeCache->{98., {4., 14.}}], StripOnInput->False, DynamicUpdating->True], "OSLText", StripOnInput->False], StyleBox[ DynamicBox[ ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"], StandardForm]], DynamicUpdating -> True, StripOnInput -> False]], Annotation[#, Style[ Dynamic[ FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"]], DynamicUpdating -> True], "Tooltip"]& ], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], StandardForm], ImageSizeCache->{80., {1., 14.}}], StripOnInput->False, DynamicUpdating->True], "OSLControl", StripOnInput->False], True-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], StandardForm]], StripOnInput->False, DynamicUpdating->True], "OSLControlActive", StripOnInput->False]}, Dynamic[ CurrentValue["MouseOver"]], Alignment->Center, FrameMargins->0, ImageSize->{Automatic, 25}], Appearance->None, BaselinePosition->Baseline, ButtonFunction:>OutputSizeLimit`ButtonFunction[ OutputSizeLimit`Defer, 166, 33866084167735575198, 5/2], Enabled->True, Evaluator->Automatic, Method->"Queued"], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], StandardForm], ImageSizeCache->{93., {1., 14.}}], StripOnInput->False, DynamicUpdating->True], "OSLControl", StripOnInput->False], True-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], StandardForm]], StripOnInput->False, DynamicUpdating->True], "OSLControlActive", StripOnInput->False]}, Dynamic[ CurrentValue["MouseOver"]], Alignment->Center, FrameMargins->0, ImageSize->{Automatic, 25}], Appearance->None, BaselinePosition->Baseline, ButtonFunction:>OutputSizeLimit`ButtonFunction[ OutputSizeLimit`Defer, 166, 33866084167735575198, 5 2], Enabled->True, Evaluator->Automatic, Method->"Queued"], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], StandardForm], ImageSizeCache->{69., {1., 14.}}], StripOnInput->False, DynamicUpdating->True], "OSLControl", StripOnInput->False], True-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], StandardForm]], StripOnInput->False, DynamicUpdating->True], "OSLControlActive", StripOnInput->False]}, Dynamic[ CurrentValue["MouseOver"]], Alignment->Center, FrameMargins->0, ImageSize->{Automatic, 25}], Appearance->None, BaselinePosition->Baseline, ButtonFunction:>OutputSizeLimit`ButtonFunction[ OutputSizeLimit`Defer, 166, 33866084167735575198, Infinity], Enabled->True, Evaluator->Automatic, Method->"Queued"], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], StandardForm], ImageSizeCache->{120., {1., 14.}}], StripOnInput->False, DynamicUpdating->True], "OSLControl", StripOnInput->False], True-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], StandardForm]], StripOnInput->False, DynamicUpdating->True], "OSLControlActive", StripOnInput->False]}, Dynamic[ CurrentValue["MouseOver"]], Alignment->Center, FrameMargins->0, ImageSize->{Automatic, 25}], Appearance->None, BaselinePosition->Baseline, ButtonFunction:>FrontEndExecute[{ FrontEnd`SetOptions[ FrontEnd`$FrontEnd, FrontEnd`PreferencesSettings -> {"Page" -> "Advanced"}], FrontEnd`FrontEndToken["PreferencesDialog"]}], Evaluator->None, Method->"Preemptive"]} }, AutoDelete->False, FrameStyle->GrayLevel[0.85], GridBoxDividers->{"Columns" -> {False, {True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], Offset[1.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], BaseStyle->"OutputSizeLimit", FrameMargins->{{12, 12}, {0, 15}}, FrameStyle->GrayLevel[0.85], RoundingRadius->5, StripOnInput->False], Deploy, DefaultBaseStyle->"Deploy"], If[33866084167735575198 === $SessionID, Out[166], Message[ MessageName[Syntax, "noinfoker"]]; Missing["NotAvailable"]; Null]]], "Output", CellChangeTimes->{3.760468304708287*^9, 3.760470344807439*^9}, CellLabel-> "Out[166]=",ExpressionUUID->"547e840c-1c0d-4fad-b830-45f6d7d567b0"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"ClosureTerms", "[", RowBox[{"ii", ",", "jj"}], "]"}], "[", RowBox[{"aa", ",", "bb"}], "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "ll", "]"}], "[", "kk", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"ll", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"kk", ",", "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.7467931402745256`*^9, 3.74679315017838*^9}, {3.7467933158121614`*^9, 3.746793366187093*^9}, { 3.746795030973838*^9, 3.746795031467517*^9}, {3.746795520092596*^9, 3.7467955218675566`*^9}, {3.746795858422198*^9, 3.746795858827448*^9}}, CellLabel-> "In[167]:=",ExpressionUUID->"96e6fc8c-3312-4502-8890-d4b076eeed59"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "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[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "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[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "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[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "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[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "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[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "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[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "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[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "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[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "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[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "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[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}]}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}]}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "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[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "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[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]}], "}"}]}], "}"}]}], "}"}]}], "}"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.760468304872532*^9, 3.7604703449656*^9}, CellLabel-> "Out[167]=",ExpressionUUID->"e09a4648-0ffa-40f8-8c38-5809c8103d84"] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ AllgebraDDResults[tt1,tt2][FieldIndex] = True if the algebra closes fo Field \ FieldIndex, False if not. tt1,tt2 are tilded indices: tt1,tt2=1 for untilded, \ tt1,tt2=2 for tilded. set tt1 = tt2 = 1 for the next two untilded subsections.\ \>", "Subsection", CellChangeTimes->{{3.74748589807438*^9, 3.7474859927542334`*^9}, { 3.7493829745987787`*^9, 3.7493829930707884`*^9}},ExpressionUUID->"8a0bf033-a4e4-4871-b7e6-\ 05ad6c104523"], Cell[BoxData[{ RowBox[{ RowBox[{"tt1", " ", "=", " ", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tt2", " ", "=", " ", "1"}], ";"}]}], "Input", CellChangeTimes->{{3.749383010539157*^9, 3.749383013350893*^9}, { 3.749383162056017*^9, 3.7493831621347337`*^9}}, CellLabel-> "In[168]:=",ExpressionUUID->"e133bc9e-5689-43a8-a000-6a10951e4f21"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "4D, N=2 Vector Algebra, both untilded ", Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ SubsuperscriptBox["D", "a", "i"], ",", SubsuperscriptBox["D", "b", "j"]}], "}"}], TraditionalForm]], ExpressionUUID->"1107a6cd-11e4-4031-8a5d-b5ee2fd5265d"] }], "Subsection", 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}, {3.746807497233589*^9, 3.7468075031958065`*^9}, {3.7468296820915112`*^9, 3.7468296830639353`*^9}, {3.746831745123742*^9, 3.7468317664650936`*^9}},ExpressionUUID->"231a1b16-656b-454b-bdf7-\ 3325c412556f"], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ SubsuperscriptBox["D", "a", "i"], ",", SubsuperscriptBox["D", "b", "j"]}], "}"}], "A"}], "=", " ", RowBox[{"2", " ", "i", " ", SubscriptBox[ RowBox[{ SuperscriptBox["\[Delta]", "ij"], "(", SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], RowBox[{ SubscriptBox["\[PartialD]", "\[Mu]"], "A"}]}]}], TraditionalForm]], "None",ExpressionUUID->"f71e3502-4279-4aed-b97d-0f78ed66d7e6"], " , AlgebraDDResult[1,1][FieldNumber], FieldNumber = 1" }], "Subsubsection", CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, { 3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, { 3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7489657721006823`*^9, 3.7489657980188217`*^9}},ExpressionUUID->"1d0519df-4c37-4fa6-88cf-\ 82f165397828"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"AlgebraDDResult", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "1", "]"}], "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"AlgebraDD", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", RowBox[{"A", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", "==", RowBox[{"Closure", "[", RowBox[{"A", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], ")"}], "//", "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.7467952243325853`*^9, 3.746795228378704*^9}, {3.7467958756928205`*^9, 3.7467958785625825`*^9}, 3.74680715401178*^9, {3.7468446254355555`*^9, 3.7468446494149933`*^9}, { 3.7474860077188377`*^9, 3.7474860087554984`*^9}, 3.747486047405324*^9, { 3.747486115588872*^9, 3.7474861164111013`*^9}, {3.7493830419080243`*^9, 3.749383042701928*^9}}, CellLabel-> "In[170]:=",ExpressionUUID->"5c6ca21b-9b45-4ab3-b789-8ccf1712fab8"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.760468304898377*^9, 3.760470344997978*^9}, CellLabel-> "Out[170]=",ExpressionUUID->"ee29147c-e107-4e1a-a4e1-90ae1d61d510"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ SubsuperscriptBox["D", "a", "i"], ",", SubsuperscriptBox["D", "b", "j"]}], "}"}], "B"}], "=", " ", RowBox[{"2", " ", "i", " ", SubscriptBox[ RowBox[{ SuperscriptBox["\[Delta]", "ij"], "(", SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], RowBox[{ SubscriptBox["\[PartialD]", "\[Mu]"], "B"}]}]}], TraditionalForm]], "None",ExpressionUUID->"e2ab9f94-9907-47af-8fdf-0d9819c18c62"], " , FieldNumber = 2" }], "Subsubsection", CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, { 3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, { 3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7467956828758698`*^9, 3.746795686091745*^9}, {3.7489658073325233`*^9, 3.7489658088329782`*^9}},ExpressionUUID->"a23a8e07-8825-4394-a44d-\ e2d261dac7cf"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"AlgebraDDResult", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "2", "]"}], "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"AlgebraDD", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", RowBox[{"B", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", "==", RowBox[{"Closure", "[", RowBox[{"B", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], ")"}], "//", "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.738583987798254*^9}, {3.746795246915931*^9, 3.7467952488448153`*^9}, {3.7467958844446697`*^9, 3.746795886747491*^9}, 3.7468071546608844`*^9, {3.746844679908654*^9, 3.7468446820584345`*^9}, 3.7474860491142173`*^9, {3.749383043697567*^9, 3.7493830442365*^9}}, CellLabel-> "In[171]:=",ExpressionUUID->"53da7ef8-d1a1-4396-bee0-6ae13ea499fe"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.760468304918262*^9, 3.7604703450191927`*^9}, CellLabel-> "Out[171]=",ExpressionUUID->"4568a482-42e7-4127-a7e9-e73f403e5b08"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ SubsuperscriptBox["D", "a", "i"], ",", SubsuperscriptBox["D", "b", "j"]}], "}"}], "F"}], "=", " ", RowBox[{"2", " ", "i", " ", SubscriptBox[ RowBox[{ SuperscriptBox["\[Delta]", "ij"], "(", SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], RowBox[{ SubscriptBox["\[PartialD]", "\[Mu]"], "F"}]}]}], TraditionalForm]], "None",ExpressionUUID->"72ea26aa-6380-408b-b591-b53aaafb79a3"], ", FieldNumber = 3 " }], "Subsubsection", CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, { 3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, { 3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7467956828758698`*^9, 3.746795686091745*^9}, {3.7468041140403814`*^9, 3.7468041142897005`*^9}, { 3.7468347489001255`*^9, 3.7468347489001255`*^9}, {3.746834847337947*^9, 3.746834847884678*^9}, {3.748965810890964*^9, 3.748965814377738*^9}},ExpressionUUID->"7977f7ab-7eff-42f4-8821-\ 0c5ced46ea89"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"AlgebraDDResult", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "3", "]"}], "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"AlgebraDD", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", RowBox[{"F", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", "==", RowBox[{"Closure", "[", RowBox[{"F", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], ")"}], "//", "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.738583987798254*^9}, {3.746795246915931*^9, 3.7467952488448153`*^9}, {3.7467958844446697`*^9, 3.746795886747491*^9}, { 3.7468041151219344`*^9, 3.7468041163163404`*^9}, 3.746807155277139*^9, { 3.7468347489157157`*^9, 3.7468347489157157`*^9}, {3.7468348489896574`*^9, 3.74683485006394*^9}, {3.746844689452404*^9, 3.7468446914908075`*^9}, 3.7474860498713923`*^9, {3.7493830449173317`*^9, 3.749383045270408*^9}}, CellLabel-> "In[172]:=",ExpressionUUID->"0e4150b3-7d9e-4ea2-8e51-1e7633a7d5d7"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.7604683049785023`*^9, 3.760470345073433*^9}, CellLabel-> "Out[172]=",ExpressionUUID->"e6413bb6-34fc-49f1-ac01-de61e042cecd"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ SubsuperscriptBox["D", "a", "i"], ",", SubsuperscriptBox["D", "b", "j"]}], "}"}], "G"}], "=", " ", RowBox[{"2", " ", "i", " ", SubscriptBox[ RowBox[{ SuperscriptBox["\[Delta]", "ij"], "(", SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], RowBox[{ SubscriptBox["\[PartialD]", "\[Mu]"], "G"}]}]}], TraditionalForm]], "None",ExpressionUUID->"dc4f57a2-7591-4e8c-8578-33a786eafa07"], ", FieldNumber = 4 " }], "Subsubsection", CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, { 3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, { 3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7467956828758698`*^9, 3.746795686091745*^9}, {3.7468041304980903`*^9, 3.7468041309100285`*^9}, { 3.748965817048818*^9, 3.7489658189762506`*^9}},ExpressionUUID->"1555d8fb-2a93-458b-a491-\ 307771530922"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"AlgebraDDResult", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "4", "]"}], "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"AlgebraDD", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", RowBox[{"G", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", "==", RowBox[{"Closure", "[", RowBox[{"G", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], ")"}], "//", "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.738583987798254*^9}, {3.746795246915931*^9, 3.7467952488448153`*^9}, {3.7467958844446697`*^9, 3.746795886747491*^9}, { 3.7468041314416847`*^9, 3.746804147477379*^9}, 3.7468071558037453`*^9, { 3.7468446973003473`*^9, 3.746844699226978*^9}, 3.747486050219936*^9, { 3.7493830456874156`*^9, 3.7493830460526257`*^9}}, CellLabel-> "In[173]:=",ExpressionUUID->"40bd8831-ce76-40d1-9e75-a00e6f2935a9"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.7604683050386066`*^9, 3.7604703451235437`*^9}, CellLabel-> "Out[173]=",ExpressionUUID->"3b11b271-353e-4725-b366-e2a25ca7934e"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ SubsuperscriptBox["D", "a", "i"], ",", SubsuperscriptBox["D", "b", "j"]}], "}"}], "d"}], "=", " ", RowBox[{"2", " ", "i", " ", SubscriptBox[ RowBox[{ SuperscriptBox["\[Delta]", "ij"], "(", SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], RowBox[{ SubscriptBox["\[PartialD]", "\[Mu]"], "d"}]}]}], TraditionalForm]], "None",ExpressionUUID->"4c5d0f1b-ba67-4f9d-a242-499da369afb0"], ", FieldNumber = 5 " }], "Subsubsection", CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, { 3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, { 3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7467956828758698`*^9, 3.746795686091745*^9}, {3.7468041304980903`*^9, 3.7468041309100285`*^9}, { 3.746804167332865*^9, 3.7468041675702257`*^9}, {3.74896583020805*^9, 3.748965831542252*^9}},ExpressionUUID->"898b3dbe-11e0-46c0-bae6-\ 43cb7b3573f6"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"AlgebraDDResult", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "5", "]"}], "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"AlgebraDD", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", RowBox[{"d", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", "==", RowBox[{"Closure", "[", RowBox[{"d", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], ")"}], "//", "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.738583987798254*^9}, {3.746795246915931*^9, 3.7467952488448153`*^9}, {3.7467958844446697`*^9, 3.746795886747491*^9}, { 3.7468041314416847`*^9, 3.746804180389103*^9}, 3.746807156283599*^9, { 3.7468447062612877`*^9, 3.746844708054984*^9}, 3.7474860505552063`*^9, { 3.7493830463957634`*^9, 3.749383046704858*^9}}, CellLabel-> "In[174]:=",ExpressionUUID->"c583cec7-da87-4685-8bed-ecfd2e54fa97"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.7604683050886517`*^9, 3.760470345173565*^9}, CellLabel-> "Out[174]=",ExpressionUUID->"5014cfff-4068-4492-8c46-6bc78b8a3258"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ SubsuperscriptBox["D", "a", "i"], ",", SubsuperscriptBox["D", "b", "j"]}], "}"}], SubsuperscriptBox["\[CapitalPsi]", "c", "k"]}], "=", " ", RowBox[{"2", " ", "i", " ", SubscriptBox[ RowBox[{ SuperscriptBox["\[Delta]", "ij"], "(", SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], RowBox[{ SubscriptBox["\[PartialD]", "\[Mu]"], SubsuperscriptBox["\[CapitalPsi]", "c", "k"]}]}]}], TraditionalForm]], "None",ExpressionUUID->"7b25d6a1-7b9f-4dff-912e-b601f9462ad9"], ", FieldNumber = 6" }], "Subsubsection", CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, { 3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, { 3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7467956828758698`*^9, 3.7467957093182344`*^9}, {3.748965833520466*^9, 3.74896583850887*^9}},ExpressionUUID->"3c792501-93d9-4464-b13c-\ 455b322a6582"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"AlgebraDDResult", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "6", "]"}], "=", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"AlgebraDD", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "kk", "]"}], "[", "cc", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"cc", ",", "1", ",", "4"}], "}"}]}], "]"}], " ", "\[Equal]", RowBox[{"Table", "[", RowBox[{ RowBox[{"Closure", "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "kk", "]"}], "[", "cc", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"cc", ",", "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.738583987798254*^9}, {3.746795246915931*^9, 3.7467952488448153`*^9}, {3.7467955657964067`*^9, 3.746795640354241*^9}, { 3.746795890012149*^9, 3.7467958937229385`*^9}, 3.7468071576763477`*^9, { 3.7468447147771397`*^9, 3.7468447174146566`*^9}, 3.747486054754898*^9, { 3.749383047051797*^9, 3.7493830475907526`*^9}}, CellLabel-> "In[175]:=",ExpressionUUID->"8c0712d6-5454-4ffe-8516-b6d743a0d250"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.760468305277104*^9, 3.7604703453445206`*^9}, CellLabel-> "Out[175]=",ExpressionUUID->"5ceddd0f-09fe-4066-9edc-b25e9fa1c33c"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ SubsuperscriptBox["D", "a", "i"], ",", SubsuperscriptBox["D", "b", "j"]}], "}"}], SubscriptBox["A", "\[Mu]"]}], "=", " ", RowBox[{ RowBox[{"2", " ", "i", " ", SubscriptBox[ RowBox[{ SuperscriptBox["\[Delta]", "ij"], "(", SuperscriptBox["\[Gamma]", "\[Nu]"], ")"}], "ab"], RowBox[{ SubscriptBox["\[PartialD]", "\[Nu]"], SubscriptBox["A", "\[Mu]"]}]}], " ", "-", RowBox[{ SubscriptBox["\[PartialD]", "\[Mu]"], SubsuperscriptBox["\[Lambda]", "ab", "ij"]}]}]}], TraditionalForm]], "None",ExpressionUUID->"459bfdc0-0422-49e8-a222-b008960ab4eb"], " , FieldNumber = 7\n", Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["\[Lambda]", "ab", "ij"], "=", " ", RowBox[{ RowBox[{"2", " ", "i", " ", SubscriptBox[ RowBox[{ SuperscriptBox["\[Delta]", "ij"], "(", SuperscriptBox["\[Gamma]", "\[Nu]"], ")"}], "ab"], SubscriptBox["A", "\[Nu]"]}], " ", "-", " ", RowBox[{"2", " ", "i", " ", SuperscriptBox[ RowBox[{"(", SuperscriptBox["\[Sigma]", "2"], ")"}], "ij"], RowBox[{"(", " ", RowBox[{ RowBox[{"i", " ", SubscriptBox["C", "ab"], "A"}], " ", "-", " ", RowBox[{ SubscriptBox[ RowBox[{"(", SuperscriptBox["\[Gamma]", "5"], ")"}], "ab"], "B"}]}], ")"}]}]}]}], TraditionalForm]],ExpressionUUID-> "956d6086-ff15-4d37-98c6-00755d602184"] }], "Subsubsection", CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, { 3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, { 3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7467956828758698`*^9, 3.746795686091745*^9}, {3.7468041304980903`*^9, 3.7468041309100285`*^9}, { 3.746804200318131*^9, 3.746804240053707*^9}, {3.74680432554387*^9, 3.746804336909229*^9}, {3.7468050801419106`*^9, 3.746805100373829*^9}, { 3.746841296333973*^9, 3.746841355175333*^9}, {3.7468413946111727`*^9, 3.7468413969638214`*^9}, {3.748965842889092*^9, 3.7489658441604424`*^9}},ExpressionUUID->"89b7b384-8055-477e-b7ea-\ 4cc3979f5551"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Lambda]", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", RowBox[{"ii_", ",", "jj_"}], "]"}], "[", RowBox[{"aa_", ",", "bb_"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", ":=", " ", RowBox[{ RowBox[{"2", " ", "I", " ", RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]down", "[", "nu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"Am", "[", "nu", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], " ", "-", " ", RowBox[{"2", "I", " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"I", " ", RowBox[{"Cmetric", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], " ", RowBox[{"A", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", "-", " ", RowBox[{ RowBox[{"\[Gamma]5down", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"B", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}]}]}]], "Input", CellChangeTimes->{{3.746804354420742*^9, 3.746804354698959*^9}, { 3.7468050126457977`*^9, 3.746805074136135*^9}, {3.74680511128192*^9, 3.746805165236924*^9}, {3.7468053158322053`*^9, 3.7468053335810037`*^9}, { 3.74680550552096*^9, 3.746805530545571*^9}, {3.746805594980097*^9, 3.746805595781765*^9}, {3.749382948299866*^9, 3.749382955872037*^9}, { 3.7493830991033697`*^9, 3.7493831030791063`*^9}}, CellLabel-> "In[176]:=",ExpressionUUID->"a537b15e-4bf0-476a-990b-3c5c3e6b0355"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Lambda]Table", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Lambda]", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", RowBox[{"ii", ",", "jj"}], "]"}], "[", RowBox[{"aa", ",", "bb"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.746805604570979*^9, 3.746805658227662*^9}, { 3.746806044124957*^9, 3.746806044220275*^9}, {3.749383107016781*^9, 3.749383115071719*^9}}, CellLabel-> "In[177]:=",ExpressionUUID->"0e0ad6f7-ca25-44f0-8ac4-bd8e7e7f87a3"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"AlgebraDDResult", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "7", "]"}], "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"AlgebraDD", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", RowBox[{ RowBox[{"Am", "[", "mu", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}], " ", "\[Equal]", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Closure", "[", RowBox[{ RowBox[{"Am", "[", "mu", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "-", " ", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"\[Lambda]Table", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], " ", ")"}], "//", "Simplify"}]}]], "Input", CellChangeTimes->{{3.737165038807296*^9, 3.7371651069241114`*^9}, { 3.737165285723156*^9, 3.7371653236966653`*^9}, {3.737166072620324*^9, 3.737166083371173*^9}, {3.7371664781159277`*^9, 3.7371664922267447`*^9}, { 3.7378155693508234`*^9, 3.7378155763432236`*^9}, {3.7379147586267443`*^9, 3.7379147590527687`*^9}, {3.7379148782155848`*^9, 3.7379148799806857`*^9}, {3.7379152561332006`*^9, 3.737915257270265*^9}, { 3.737977810482625*^9, 3.737977811493683*^9}, 3.737979648631761*^9, { 3.7385839504811196`*^9, 3.738583987798254*^9}, {3.746795246915931*^9, 3.7467952488448153`*^9}, {3.7467958844446697`*^9, 3.746795886747491*^9}, { 3.7468041314416847`*^9, 3.746804147477379*^9}, {3.7468043445732574`*^9, 3.746804347340818*^9}, {3.746805172730974*^9, 3.746805251677202*^9}, { 3.7468055536216993`*^9, 3.7468055583468037`*^9}, {3.7468056889959183`*^9, 3.7468056937751846`*^9}, {3.746806056497301*^9, 3.7468060582362785`*^9}, 3.746807159168933*^9, {3.7468447252976427`*^9, 3.7468447276633115`*^9}, 3.747486056829548*^9, {3.7493830494673615`*^9, 3.749383050607041*^9}, { 3.749383130633822*^9, 3.7493831323038206`*^9}}, CellLabel-> "In[178]:=",ExpressionUUID->"2e363191-8fd7-462c-ae58-d173673ed00b"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.7604683053525877`*^9, 3.760470345453532*^9}, CellLabel-> "Out[178]=",ExpressionUUID->"f976a82c-28de-41bc-8665-52c0b25e3892"] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "4D, N=2 Tensor Algebra, both untilded ", Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ SubsuperscriptBox["D", "a", "i"], ",", SubsuperscriptBox["D", "b", "j"]}], "}"}], TraditionalForm]], ExpressionUUID->"b49d4170-6af7-47da-a4e3-e59e0cca36c9"] }], "Subsection", 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}, {3.746807497233589*^9, 3.7468075031958065`*^9}, {3.7468296820915112`*^9, 3.7468296830639353`*^9}, {3.746831745123742*^9, 3.7468317664650936`*^9}, { 3.7468318351526365`*^9, 3.746831835748044*^9}},ExpressionUUID->"a4501bf7-c65f-45e2-8e1f-\ 64df51de0b67"], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ SubsuperscriptBox["D", "a", "i"], ",", SubsuperscriptBox["D", "b", "j"]}], "}"}], "At"}], "=", " ", RowBox[{"2", " ", "i", " ", SubscriptBox[ RowBox[{ SuperscriptBox["\[Delta]", "ij"], "(", SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], RowBox[{ SubscriptBox["\[PartialD]", "\[Mu]"], "At"}]}]}], TraditionalForm]], "None",ExpressionUUID->"3cfb5cc9-79f9-4aaa-afa4-e79d4bfb0100"], " , FieldNumber = 8" }], "Subsubsection", CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, { 3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, { 3.7467949641466155`*^9, 3.746794979356092*^9}, {3.746839278644126*^9, 3.7468392788196526`*^9}, {3.748965847200727*^9, 3.748965848829669*^9}},ExpressionUUID->"c037d1a5-01ab-480d-9064-\ d37f11e0d6ad"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"AlgebraDDResult", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "8", "]"}], "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"AlgebraDD", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", RowBox[{"At", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", "==", RowBox[{"Closure", "[", RowBox[{"At", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], ")"}], "//", "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.7467952243325853`*^9, 3.746795228378704*^9}, {3.7467958756928205`*^9, 3.7467958785625825`*^9}, 3.74680715401178*^9, {3.7468392820425515`*^9, 3.7468392840266848`*^9}, { 3.7468447461002913`*^9, 3.7468447496831436`*^9}, 3.74748605739742*^9, { 3.7493830520374327`*^9, 3.7493830526644597`*^9}}, CellLabel-> "In[179]:=",ExpressionUUID->"546887f6-4818-4c12-a94f-048ceee53639"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.760468305418564*^9, 3.7604703454636326`*^9}, CellLabel-> "Out[179]=",ExpressionUUID->"fefe70df-51e8-493e-b7ca-593f78aa3c6d"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ SubsuperscriptBox["D", "a", "i"], ",", SubsuperscriptBox["D", "b", "j"]}], "}"}], "Bt"}], "=", " ", RowBox[{"2", " ", "i", " ", SubscriptBox[ RowBox[{ SuperscriptBox["\[Delta]", "ij"], "(", SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], RowBox[{ SubscriptBox["\[PartialD]", "\[Mu]"], "Bt"}]}]}], TraditionalForm]], "None",ExpressionUUID->"7d3830b6-0e9e-46a7-a738-77101ec2fba6"], " , FieldNumber = 9" }], "Subsubsection", CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, { 3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, { 3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7467956828758698`*^9, 3.746795686091745*^9}, {3.7468396501310425`*^9, 3.7468396506117897`*^9}, { 3.748965853696239*^9, 3.748965854864091*^9}},ExpressionUUID->"c9d2c55a-848e-49dc-8b2c-\ 7aa260c9aa38"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"AlgebraDDResult", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "9", "]"}], "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"AlgebraDD", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", RowBox[{"Bt", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", "==", RowBox[{"Closure", "[", RowBox[{"Bt", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], ")"}], "//", "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.738583987798254*^9}, {3.746795246915931*^9, 3.7467952488448153`*^9}, {3.7467958844446697`*^9, 3.746795886747491*^9}, 3.7468071546608844`*^9, {3.746839651354822*^9, 3.746839651728978*^9}, { 3.746844755892473*^9, 3.7468447583798327`*^9}, 3.747486057881037*^9, { 3.749383053282952*^9, 3.7493830537087135`*^9}}, CellLabel-> "In[180]:=",ExpressionUUID->"967c6b00-1312-4d8d-a409-5c32920f0f0a"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.760468305438697*^9, 3.760470345483865*^9}, CellLabel-> "Out[180]=",ExpressionUUID->"fa76bc48-a445-49ff-8bc2-fa24326eb563"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ SubsuperscriptBox["D", "a", "i"], ",", SubsuperscriptBox["D", "b", "j"]}], "}"}], "Ft"}], "=", " ", RowBox[{"2", " ", "i", " ", SubscriptBox[ RowBox[{ SuperscriptBox["\[Delta]", "ij"], "(", SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], RowBox[{ SubscriptBox["\[PartialD]", "\[Mu]"], "Ft"}]}]}], TraditionalForm]], "None",ExpressionUUID->"7ac96eef-dd2f-44ce-abff-d35e603238fa"], " , FieldNumber = 10" }], "Subsubsection", CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, { 3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, { 3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7467956828758698`*^9, 3.746795686091745*^9}, {3.7468041140403814`*^9, 3.7468041142897005`*^9}, { 3.7468347489001255`*^9, 3.7468347489001255`*^9}, {3.746834847337947*^9, 3.746834847884678*^9}, {3.7468396653420925`*^9, 3.7468396657549887`*^9}, { 3.748965857871641*^9, 3.748965859318201*^9}},ExpressionUUID->"05dda03b-8067-497c-8664-\ ea914d70c897"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"AlgebraDDResult", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "10", "]"}], "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"AlgebraDD", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", RowBox[{"Ft", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", "==", RowBox[{"Closure", "[", RowBox[{"Ft", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], ")"}], "//", "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.738583987798254*^9}, {3.746795246915931*^9, 3.7467952488448153`*^9}, {3.7467958844446697`*^9, 3.746795886747491*^9}, { 3.7468041151219344`*^9, 3.7468041163163404`*^9}, 3.746807155277139*^9, { 3.7468347489157157`*^9, 3.7468347489157157`*^9}, {3.7468348489896574`*^9, 3.74683485006394*^9}, {3.746839666378714*^9, 3.7468396675321836`*^9}, { 3.7468447646293983`*^9, 3.7468447671313295`*^9}, 3.747486058276928*^9, { 3.749383054197531*^9, 3.749383054566739*^9}}, CellLabel-> "In[181]:=",ExpressionUUID->"9feeeb15-126a-4388-91b6-51af7342cc69"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.7604683054895115`*^9, 3.760470345538706*^9}, CellLabel-> "Out[181]=",ExpressionUUID->"ea021660-0d8c-4782-9fbb-587da8cb6f54"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ SubsuperscriptBox["D", "a", "i"], ",", SubsuperscriptBox["D", "b", "j"]}], "}"}], "Gt"}], "=", " ", RowBox[{"2", " ", "i", " ", SubscriptBox[ RowBox[{ SuperscriptBox["\[Delta]", "ij"], "(", SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], RowBox[{ SubscriptBox["\[PartialD]", "\[Mu]"], "Gt"}]}]}], TraditionalForm]], "None",ExpressionUUID->"a49829c1-fb19-4703-bc84-774bd85cf597"], " , FieldNumber = 11" }], "Subsubsection", CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, { 3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, { 3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7467956828758698`*^9, 3.746795686091745*^9}, {3.7468041304980903`*^9, 3.7468041309100285`*^9}, { 3.746839677582308*^9, 3.7468396778076735`*^9}, {3.748965860691866*^9, 3.748965862097959*^9}},ExpressionUUID->"ef63852d-bff4-4094-9630-\ 757f5f7a7a70"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"AlgebraDDResult", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "11", "]"}], "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"AlgebraDD", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", RowBox[{"Gt", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", "==", RowBox[{"Closure", "[", RowBox[{"Gt", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], ")"}], "//", "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.738583987798254*^9}, {3.746795246915931*^9, 3.7467952488448153`*^9}, {3.7467958844446697`*^9, 3.746795886747491*^9}, { 3.7468041314416847`*^9, 3.746804147477379*^9}, 3.7468071558037453`*^9, { 3.7468396783332996`*^9, 3.7468396795167336`*^9}, {3.7468447730800686`*^9, 3.746844774286476*^9}, 3.747486058721121*^9, {3.7493830549269514`*^9, 3.7493830552607965`*^9}}, CellLabel-> "In[182]:=",ExpressionUUID->"aa1006cf-7889-4e6c-a6a2-379831d2b169"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.7604683055436554`*^9, 3.760470345583803*^9}, CellLabel-> "Out[182]=",ExpressionUUID->"d7d1ad4c-edfa-47d8-8ef9-573d6ef330c1"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ SubsuperscriptBox["D", "a", "i"], ",", SubsuperscriptBox["D", "b", "j"]}], "}"}], "\[CurlyPhi]"}], "=", " ", RowBox[{"2", " ", "i", " ", SubscriptBox[ RowBox[{ SuperscriptBox["\[Delta]", "ij"], "(", SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], RowBox[{ SubscriptBox["\[PartialD]", "\[Mu]"], "\[CurlyPhi]"}]}]}], TraditionalForm]], "None",ExpressionUUID-> "a88b4c29-c08d-4e28-8e99-8975d1c00e38"], " , FieldNumber = 12" }], "Subsubsection", CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, { 3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, { 3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7467956828758698`*^9, 3.746795686091745*^9}, {3.7468041304980903`*^9, 3.7468041309100285`*^9}, { 3.746804167332865*^9, 3.7468041675702257`*^9}, {3.746839701322327*^9, 3.7468397017451973`*^9}, {3.748965863562757*^9, 3.7489658650371103`*^9}},ExpressionUUID->"e4710319-0a5c-4d20-a364-\ baedc3f787ae"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"AlgebraDDResult", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "12", "]"}], "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"AlgebraDD", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", RowBox[{"\[CurlyPhi]", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", "==", RowBox[{"Closure", "[", RowBox[{"\[CurlyPhi]", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], ")"}], "//", "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.738583987798254*^9}, {3.746795246915931*^9, 3.7467952488448153`*^9}, {3.7467958844446697`*^9, 3.746795886747491*^9}, { 3.7468041314416847`*^9, 3.746804180389103*^9}, 3.746807156283599*^9, { 3.7468397022648077`*^9, 3.7468397043282285`*^9}, {3.7468447859040537`*^9, 3.746844787111452*^9}, 3.7474860591550274`*^9, {3.7493830556137543`*^9, 3.7493830559426355`*^9}}, CellLabel-> "In[183]:=",ExpressionUUID->"34c9ed1e-f3c7-4a06-99af-c769f288781f"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.7604683055695934`*^9, 3.7604703456035843`*^9}, CellLabel-> "Out[183]=",ExpressionUUID->"d5165930-d344-4fcd-bef5-e0fc5800e9fb"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ SubsuperscriptBox["D", "a", "i"], ",", SubsuperscriptBox["D", "b", "j"]}], "}"}], SubsuperscriptBox[ OverscriptBox["\[CapitalPsi]", "~"], "c", "k"]}], "=", " ", RowBox[{"2", " ", "i", " ", SubscriptBox[ RowBox[{ SuperscriptBox["\[Delta]", "ij"], "(", SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], RowBox[{ SubscriptBox["\[PartialD]", "\[Mu]"], SubsuperscriptBox[ OverscriptBox["\[CapitalPsi]", "~"], "c", "k"]}]}]}], TraditionalForm]], "None",ExpressionUUID-> "94ece1f2-be9d-4feb-974f-7a984aa640ee"], " , FieldNumber = 13" }], "Subsubsection", CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, { 3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, { 3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7467956828758698`*^9, 3.7467957093182344`*^9}, {3.7468397282515197`*^9, 3.7468397403192024`*^9}, {3.7489658662996883`*^9, 3.74896586753656*^9}},ExpressionUUID->"80af076a-9b2c-471d-b5d1-\ b9579828586e"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"AlgebraDDResult", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "13", "]"}], "=", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"AlgebraDD", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "kk", "]"}], "[", "cc", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"cc", ",", "1", ",", "4"}], "}"}]}], "]"}], " ", "\[Equal]", RowBox[{"Table", "[", RowBox[{ RowBox[{"Closure", "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "kk", "]"}], "[", "cc", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"cc", ",", "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.738583987798254*^9}, {3.746795246915931*^9, 3.7467952488448153`*^9}, {3.7467955657964067`*^9, 3.746795640354241*^9}, { 3.746795890012149*^9, 3.7467958937229385`*^9}, 3.7468071576763477`*^9, { 3.7468397475183973`*^9, 3.7468397494183197`*^9}, {3.74684479825742*^9, 3.7468448011304903`*^9}, 3.747486059606282*^9, {3.749383056285948*^9, 3.7493830574609904`*^9}}, CellLabel-> "In[184]:=",ExpressionUUID->"9d33882c-be42-40c9-aeb8-bc216bcaa36c"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.7604683057163525`*^9, 3.760470345743491*^9}, CellLabel-> "Out[184]=",ExpressionUUID->"406a0485-9f45-4856-a7ff-d8b805cd2407"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ SubsuperscriptBox["D", "a", "i"], ",", SubsuperscriptBox["D", "b", "j"]}], "}"}], SubscriptBox["B", "\[Mu]\[Nu]"]}], "=", " ", RowBox[{ RowBox[{"2", " ", "i", " ", SubscriptBox[ RowBox[{ SuperscriptBox["\[Delta]", "ij"], "(", SuperscriptBox["\[Gamma]", "\[Alpha]"], ")"}], "ab"], RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], SubscriptBox["B", "\[Mu]\[Nu]"]}]}], " ", "-", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"[", "\[Mu]"}]], SubsuperscriptBox["\[CapitalLambda]", RowBox[{ RowBox[{"\[Nu]", "]"}], "ab"}], "ij"]}]}]}], TraditionalForm]], "None",ExpressionUUID->"ee16d7f7-6012-4385-a62b-2593e22f5e2f"], " ,\n FieldNumber = 14\n", Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["\[CapitalLambda]", "\[Nu]ab", "ij"], "=", " ", RowBox[{ RowBox[{"2", " ", "i", " ", SubscriptBox[ RowBox[{ SuperscriptBox["\[Delta]", "ij"], "(", SuperscriptBox["\[Gamma]", "\[Alpha]"], ")"}], "ab"], SubscriptBox["B", "\[Alpha]\[Nu]"]}], " ", "+", " ", RowBox[{"i", " ", SuperscriptBox[ RowBox[{"(", SuperscriptBox["\[Sigma]", "1"], ")"}], "ij"], SubscriptBox[ RowBox[{"(", SubscriptBox["\[Gamma]", "\[Nu]"], ")"}], "ab"], OverscriptBox["A", "~"]}], " ", "-", " ", RowBox[{"i", " ", SuperscriptBox[ RowBox[{"(", SuperscriptBox["\[Sigma]", "2"], ")"}], "ij"], SubscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", "5"], SubscriptBox["\[Gamma]", "\[Nu]"]}], ")"}], "ab"], OverscriptBox["B", "~"]}], " ", "-", " ", RowBox[{"i", " ", SuperscriptBox[ RowBox[{"(", SuperscriptBox["\[Sigma]", "3"], ")"}], "ij"], SubscriptBox[ RowBox[{"(", SubscriptBox["\[Gamma]", "\[Nu]"], ")"}], "ab"], OverscriptBox["\[CurlyPhi]", "~"]}]}]}], TraditionalForm]], ExpressionUUID->"5dcd0c66-ad41-4265-8b35-805f1cd02728"] }], "Subsubsection", CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, { 3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, { 3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7467956828758698`*^9, 3.746795686091745*^9}, {3.7468041304980903`*^9, 3.7468041309100285`*^9}, { 3.746804200318131*^9, 3.746804240053707*^9}, {3.74680432554387*^9, 3.746804336909229*^9}, {3.7468050801419106`*^9, 3.746805100373829*^9}, { 3.7468397665571055`*^9, 3.746839802623133*^9}, {3.74684113959402*^9, 3.7468412441025996`*^9}, {3.748965869080965*^9, 3.748965874387665*^9}},ExpressionUUID->"5be24836-507e-45b6-92e8-\ cbd9856335b2"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalLambda]", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "nu_", "]"}], "[", RowBox[{"ii_", ",", "jj_"}], "]"}], "[", RowBox[{"aa_", ",", "bb_"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", ":=", " ", RowBox[{ RowBox[{"2", " ", "I", " ", RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{"Sum", "[", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]down", "[", "ap", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"Bmn", "[", RowBox[{"ap", ",", "nu"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"ap", ",", "0", ",", "3"}], "}"}]}], "]"}]}], " ", "+", " ", RowBox[{"I", " ", RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"\[Gamma]stdowndown", "[", "nu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"At", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", "-", " ", RowBox[{"I", " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]stdowndown", "[", "nu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], " ", RowBox[{"Bt", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", "-", " ", RowBox[{"I", " ", RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"\[Gamma]stdowndown", "[", "nu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"\[CurlyPhi]", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]}]], "Input", CellChangeTimes->{{3.746804354420742*^9, 3.746804354698959*^9}, { 3.7468050126457977`*^9, 3.746805074136135*^9}, {3.74680511128192*^9, 3.746805165236924*^9}, {3.7468053158322053`*^9, 3.7468053335810037`*^9}, { 3.74680550552096*^9, 3.746805530545571*^9}, {3.746805594980097*^9, 3.746805595781765*^9}, {3.746839806824238*^9, 3.7468398386752944`*^9}, { 3.746840467179223*^9, 3.746840577643236*^9}, {3.7468406269686317`*^9, 3.7468406318670626`*^9}, {3.749383193849097*^9, 3.7493831951918926`*^9}}, CellLabel-> "In[185]:=",ExpressionUUID->"76dfafec-712f-46bf-ae08-7861e520faf9"], Cell[BoxData[ RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalLambda]Table", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "nu", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalLambda]", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "nu", "]"}], "[", RowBox[{"ii", ",", "jj"}], "]"}], "[", RowBox[{"aa", ",", "bb"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}], ";"}]], "Input", CellChangeTimes->{{3.746805604570979*^9, 3.746805658227662*^9}, { 3.746806044124957*^9, 3.746806044220275*^9}, {3.7468406679832497`*^9, 3.746840718939666*^9}, {3.749383201625013*^9, 3.749383231791641*^9}}, CellLabel-> "In[186]:=",ExpressionUUID->"cf3ca8e5-3b75-460a-b931-4d582b5e4be7"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"AlgebraDDResult", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "14", "]"}], "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"AlgebraDD", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", RowBox[{ RowBox[{"Bmn", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}], " ", "\[Equal]", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Closure", "[", RowBox[{ RowBox[{"Bmn", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "-", " ", RowBox[{"(", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalLambda]Table", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "nu", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}], " ", "-", " ", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalLambda]Table", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "mu", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "nu", "]"}]}], "]"}]}], " ", ")"}]}], ",", 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.738583987798254*^9}, {3.746795246915931*^9, 3.7467952488448153`*^9}, {3.7467958844446697`*^9, 3.746795886747491*^9}, { 3.7468041314416847`*^9, 3.746804147477379*^9}, {3.7468043445732574`*^9, 3.746804347340818*^9}, {3.746805172730974*^9, 3.746805251677202*^9}, { 3.7468055536216993`*^9, 3.7468055583468037`*^9}, {3.7468056889959183`*^9, 3.7468056937751846`*^9}, {3.746806056497301*^9, 3.7468060582362785`*^9}, 3.746807159168933*^9, {3.746840916662865*^9, 3.7468409703002744`*^9}, { 3.7468410055494075`*^9, 3.7468410239541225`*^9}, {3.7468448121247234`*^9, 3.746844814154869*^9}, 3.747486060619709*^9, {3.749383061021573*^9, 3.74938306190895*^9}, {3.74938320985802*^9, 3.7493832111041126`*^9}, { 3.7493832981630635`*^9, 3.7493832995282393`*^9}}, CellLabel-> "In[187]:=",ExpressionUUID->"46f576b0-d8d1-4987-bcb1-cbe33cc185d7"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.760468305990533*^9, 3.7604703460337095`*^9}, CellLabel-> "Out[187]=",ExpressionUUID->"26917123-ae43-4b0d-8984-52a94311636f"] }, Open ]] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ SubsuperscriptBox["D", "a", "i"], ",", SubsuperscriptBox["D", "b", "j"]}], "}"}], TraditionalForm]], ExpressionUUID->"b787cd9f-3d54-40bc-8bf0-9d2e11f3db61"], "Summary" }], "Section", CellChangeTimes->{{3.7468448382541714`*^9, 3.746844841062807*^9}, { 3.747484813570861*^9, 3.7474848147061768`*^9}, {3.760469519547567*^9, 3.7604695387481346`*^9}, {3.760469620890786*^9, 3.7604696426093655`*^9}},ExpressionUUID->"2bf50357-56b5-4a46-b6f3-\ 0a9c8c2e92b9"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"AlgebraDDResult", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "Index", "]"}], ",", RowBox[{"{", RowBox[{"Index", ",", "1", ",", "14"}], "}"}]}], "]"}], "\[Equal]", RowBox[{"Table", "[", RowBox[{"True", ",", RowBox[{"{", RowBox[{"Index", ",", "1", ",", "14"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "tt1", "\[IndentingNewLine]", "tt2"}], \ "Input", CellChangeTimes->{{3.746844857362361*^9, 3.7468448795383835`*^9}, 3.7474860644092245`*^9, 3.7493830656655216`*^9, {3.7493833451039195`*^9, 3.7493833528869457`*^9}}, CellLabel-> "In[188]:=",ExpressionUUID->"01e69f9e-5b44-41b8-982e-796fc2849dd2"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.7604683060111523`*^9, 3.760470346059741*^9}, CellLabel-> "Out[188]=",ExpressionUUID->"ed20a42d-edc8-4c78-890c-63e3a8e567b0"], Cell[BoxData["1"], "Output", CellChangeTimes->{3.7604683060111523`*^9, 3.76047034606386*^9}, CellLabel-> "Out[189]=",ExpressionUUID->"aa095773-1090-49ad-b09d-4b61be8f8427"], Cell[BoxData["1"], "Output", CellChangeTimes->{3.7604683060111523`*^9, 3.76047034606386*^9}, CellLabel-> "Out[190]=",ExpressionUUID->"57c8b00a-8348-4cc2-b1a3-03ae96c31c50"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ SubsuperscriptBox[ OverscriptBox["D", "~"], "a", "i"], ",", SubsuperscriptBox[ OverscriptBox["D", "~"], "b", "j"]}], "}"}], TraditionalForm]], ExpressionUUID->"75e10edb-605d-4fec-97bf-917b56cfc7b4"], " algebra\ntt1 = 2, tt2 = 2 for both tilded D\[CloseCurlyQuote]s\nA set of \ solutions for closure of the bosons is found called \ BosonSolutions[tt1,tt2][ss]\nwith ss = 1,2 the solution set for vector \ closure (ss=1) and tensor closure (ss=2)\nBosonSolutions[tt1,tt2][ss] also \ closes the fermions" }], "Section", CellChangeTimes->{{3.748967208753737*^9, 3.748967225437399*^9}, { 3.7604694706248198`*^9, 3.760469481026225*^9}, {3.760470900885562*^9, 3.7604709191033535`*^9}, {3.760470994710614*^9, 3.760471044448345*^9}},ExpressionUUID->"ce746ac7-01b2-483b-9190-\ 1d8878b0e6da"], Cell[BoxData[{ RowBox[{ RowBox[{"Clear", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tt1", " ", "=", " ", "2"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tt2", " ", "=", " ", "2"}], ";"}]}], "Input", CellChangeTimes->{{3.7489672276061687`*^9, 3.748967230946096*^9}, { 3.7493837695279007`*^9, 3.749383772558878*^9}}, CellLabel-> "In[191]:=",ExpressionUUID->"af6c44c1-8561-498f-97be-5d652191cab7"], Cell[CellGroupData[{ Cell[TextData[{ "4D, N=2 Vector Algebra, both tilded ", Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ SubsuperscriptBox[ OverscriptBox["D", "~"], "a", "i"], ",", SubsuperscriptBox[ OverscriptBox["D", "~"], "b", "j"]}], "}"}], TraditionalForm]], ExpressionUUID->"b326e8b0-9065-48fb-a1c2-4de3d330a827"] }], "Subsection", 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}, {3.746807497233589*^9, 3.7468075031958065`*^9}, {3.7468296820915112`*^9, 3.7468296830639353`*^9}, {3.746831745123742*^9, 3.7468317664650936`*^9}, { 3.747485777994775*^9, 3.747485785708703*^9}},ExpressionUUID->"f63683a9-76c4-492b-84a0-\ 1d3685d7d2b3"], Cell[CellGroupData[{ Cell[TextData[{ "Write ", Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", SubscriptBox["\[ScriptCapitalV]", "n"], ")"}], "ij"], " ", "=", " ", SuperscriptBox[ RowBox[{ SubscriptBox["cv", "n\[Mu]"], "(", SuperscriptBox["\[Sigma]", "\[Mu]"], ")"}], "ij"]}], TraditionalForm]], ExpressionUUID->"6d5bb7f4-cba1-483d-98fc-062f47317f21"], " where ", Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[Sigma]", "\[Mu]"], "=", RowBox[{"(", RowBox[{"I", ",", SuperscriptBox["\[Sigma]", "a"]}], ")"}]}], TraditionalForm]], ExpressionUUID->"760265e0-1fea-41ad-9c3f-187ac208a421"] }], "Subsubsection", CellChangeTimes->{{3.747484907482937*^9, 3.74748503017214*^9}, { 3.748794296430113*^9, 3.748794373458696*^9}, {3.748794410945099*^9, 3.748794413085003*^9}, {3.748965180611999*^9, 3.7489651836751823`*^9}},ExpressionUUID->"d2083a11-d487-4d07-a416-\ 7dc059135060"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VtoPauli", "=", " ", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"V", "[", "nn_", "]"}], "[", RowBox[{"ii", ",", "jj"}], "]"}], "\[Rule]", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"cv", "[", "nn", "]"}], "[", "mu", "]"}], RowBox[{ RowBox[{"sigma", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}]}], "]"}], "//", "Flatten"}]}]], "Input", CellChangeTimes->{{3.74748504062373*^9, 3.747485160051494*^9}, { 3.7474856683226585`*^9, 3.7474856802272177`*^9}, {3.7474868896844997`*^9, 3.747486890426865*^9}, {3.747486980149089*^9, 3.747487084491024*^9}, { 3.748794388681857*^9, 3.748794415876154*^9}, {3.7489696973049583`*^9, 3.748969698150667*^9}}, CellLabel-> "In[194]:=",ExpressionUUID->"915b67de-3769-483c-ad5f-7b1411ccc874"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"V", "[", "nn_", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], "\[Rule]", RowBox[{ RowBox[{ RowBox[{"cv", "[", "nn", "]"}], "[", "0", "]"}], "+", RowBox[{ RowBox[{"cv", "[", "nn", "]"}], "[", "3", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"V", "[", "nn_", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], "\[Rule]", RowBox[{ RowBox[{ RowBox[{"cv", "[", "nn", "]"}], "[", "1", "]"}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"cv", "[", "nn", "]"}], "[", "2", "]"}]}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"V", "[", "nn_", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}], "\[Rule]", RowBox[{ RowBox[{ RowBox[{"cv", "[", "nn", "]"}], "[", "1", "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"cv", "[", "nn", "]"}], "[", "2", "]"}]}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"V", "[", "nn_", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}], "\[Rule]", RowBox[{ RowBox[{ RowBox[{"cv", "[", "nn", "]"}], "[", "0", "]"}], "-", RowBox[{ RowBox[{"cv", "[", "nn", "]"}], "[", "3", "]"}]}]}]}], "}"}]], "Output",\ CellChangeTimes->{3.760468325879239*^9, 3.7604703460934005`*^9}, CellLabel-> "Out[194]=",ExpressionUUID->"53104d58-fa20-4e1d-82f3-831acf134e4b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"V", "[", "2", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], "/.", "VtoPauli"}]], "Input", CellChangeTimes->{{3.747487134809781*^9, 3.7474871419937134`*^9}}, CellLabel-> "In[195]:=",ExpressionUUID->"b879a717-904d-40fb-94c5-7b9ab58ce4cc"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"cv", "[", "2", "]"}], "[", "1", "]"}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"cv", "[", "2", "]"}], "[", "2", "]"}]}]}]], "Output", CellChangeTimes->{3.760468325963962*^9, 3.760470346113546*^9}, CellLabel-> "Out[195]=",ExpressionUUID->"9a78b624-564b-4b80-a92b-0a3297002b7e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"cvList", " ", "=", " ", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"cv", "[", "nn", "]"}], "[", "mu", "]"}], ",", RowBox[{"{", RowBox[{"nn", ",", "1", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}], "//", "Flatten"}]}]], "Input", CellChangeTimes->{{3.747493290184162*^9, 3.747493329761492*^9}}, CellLabel-> "In[196]:=",ExpressionUUID->"a5d1e3e8-1904-44d2-a820-66cbfe005a1f"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"cv", "[", "1", "]"}], "[", "0", "]"}], ",", RowBox[{ RowBox[{"cv", "[", "1", "]"}], "[", "1", "]"}], ",", RowBox[{ RowBox[{"cv", "[", "1", "]"}], "[", "2", "]"}], ",", RowBox[{ RowBox[{"cv", "[", "1", "]"}], "[", "3", "]"}], ",", RowBox[{ RowBox[{"cv", "[", "2", "]"}], "[", "0", "]"}], ",", RowBox[{ RowBox[{"cv", "[", "2", "]"}], "[", "1", "]"}], ",", RowBox[{ RowBox[{"cv", "[", "2", "]"}], "[", "2", "]"}], ",", RowBox[{ RowBox[{"cv", "[", "2", "]"}], "[", "3", "]"}], ",", RowBox[{ RowBox[{"cv", "[", "3", "]"}], "[", "0", "]"}], ",", RowBox[{ RowBox[{"cv", "[", "3", "]"}], "[", "1", "]"}], ",", RowBox[{ RowBox[{"cv", "[", "3", "]"}], "[", "2", "]"}], ",", RowBox[{ RowBox[{"cv", "[", "3", "]"}], "[", "3", "]"}], ",", RowBox[{ RowBox[{"cv", "[", "4", "]"}], "[", "0", "]"}], ",", RowBox[{ RowBox[{"cv", "[", "4", "]"}], "[", "1", "]"}], ",", RowBox[{ RowBox[{"cv", "[", "4", "]"}], "[", "2", "]"}], ",", RowBox[{ RowBox[{"cv", "[", "4", "]"}], "[", "3", "]"}], ",", RowBox[{ RowBox[{"cv", "[", "5", "]"}], "[", "0", "]"}], ",", RowBox[{ RowBox[{"cv", "[", "5", "]"}], "[", "1", "]"}], ",", RowBox[{ RowBox[{"cv", "[", "5", "]"}], "[", "2", "]"}], ",", RowBox[{ RowBox[{"cv", "[", "5", "]"}], "[", "3", "]"}], ",", RowBox[{ RowBox[{"cv", "[", "6", "]"}], "[", "0", "]"}], ",", RowBox[{ RowBox[{"cv", "[", "6", "]"}], "[", "1", "]"}], ",", RowBox[{ RowBox[{"cv", "[", "6", "]"}], "[", "2", "]"}], ",", RowBox[{ RowBox[{"cv", "[", "6", "]"}], "[", "3", "]"}], ",", RowBox[{ RowBox[{"cv", "[", "7", "]"}], "[", "0", "]"}], ",", RowBox[{ RowBox[{"cv", "[", "7", "]"}], "[", "1", "]"}], ",", RowBox[{ RowBox[{"cv", "[", "7", "]"}], "[", "2", "]"}], ",", RowBox[{ RowBox[{"cv", "[", "7", "]"}], "[", "3", "]"}], ",", RowBox[{ RowBox[{"cv", "[", "8", "]"}], "[", "0", "]"}], ",", RowBox[{ RowBox[{"cv", "[", "8", "]"}], "[", "1", "]"}], ",", RowBox[{ RowBox[{"cv", "[", "8", "]"}], "[", "2", "]"}], ",", RowBox[{ RowBox[{"cv", "[", "8", "]"}], "[", "3", "]"}], ",", RowBox[{ RowBox[{"cv", "[", "9", "]"}], "[", "0", "]"}], ",", RowBox[{ RowBox[{"cv", "[", "9", "]"}], "[", "1", "]"}], ",", RowBox[{ RowBox[{"cv", "[", "9", "]"}], "[", "2", "]"}], ",", RowBox[{ RowBox[{"cv", "[", "9", "]"}], "[", "3", "]"}], ",", RowBox[{ RowBox[{"cv", "[", "10", "]"}], "[", "0", "]"}], ",", RowBox[{ RowBox[{"cv", "[", "10", "]"}], "[", "1", "]"}], ",", RowBox[{ RowBox[{"cv", "[", "10", "]"}], "[", "2", "]"}], ",", RowBox[{ RowBox[{"cv", "[", "10", "]"}], "[", "3", "]"}], ",", RowBox[{ RowBox[{"cv", "[", "11", "]"}], "[", "0", "]"}], ",", RowBox[{ RowBox[{"cv", "[", "11", "]"}], "[", "1", "]"}], ",", RowBox[{ RowBox[{"cv", "[", "11", "]"}], "[", "2", "]"}], ",", RowBox[{ RowBox[{"cv", "[", "11", "]"}], "[", "3", "]"}], ",", RowBox[{ RowBox[{"cv", "[", "12", "]"}], "[", "0", "]"}], ",", RowBox[{ RowBox[{"cv", "[", "12", "]"}], "[", "1", "]"}], ",", RowBox[{ RowBox[{"cv", "[", "12", "]"}], "[", "2", "]"}], ",", RowBox[{ RowBox[{"cv", "[", "12", "]"}], "[", "3", "]"}]}], "}"}]], "Output", CellChangeTimes->{3.760468325989926*^9, 3.760470346133383*^9}, CellLabel-> "Out[196]=",ExpressionUUID->"06718403-de67-4dd5-859a-f99f858b62f0"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ SubsuperscriptBox[ OverscriptBox["D", "~"], "a", "i"], ",", SubsuperscriptBox[ OverscriptBox["D", "~"], "b", "j"]}], "}"}], "A"}], "=", " ", RowBox[{"2", " ", "i", " ", SubscriptBox[ RowBox[{ SuperscriptBox["\[Delta]", "ij"], "(", SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], RowBox[{ SubscriptBox["\[PartialD]", "\[Mu]"], "A"}]}]}], TraditionalForm]], "None",ExpressionUUID->"0f4efea4-eea7-446f-9eba-9b2597fa5e3e"], " , FieldNumber = 1" }], "Subsubsection", CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, { 3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, { 3.7467949641466155`*^9, 3.746794979356092*^9}, {3.747485791788161*^9, 3.747485791788161*^9}, 3.74896595756443*^9},ExpressionUUID->"fb9af884-56ba-4e29-ba22-\ 167757593c8d"], Cell[BoxData[{ RowBox[{ RowBox[{"LocalField", " ", "=", " ", RowBox[{"A", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"LocalFieldNumber", " ", "=", " ", "1"}], ";"}]}], "Input", CellChangeTimes->{{3.747496390463257*^9, 3.747496425281234*^9}, { 3.748786525924238*^9, 3.748786528879302*^9}}, CellLabel-> "In[197]:=",ExpressionUUID->"9fc5b2b9-e55d-4491-b546-fed394d2d3ff"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDMinusClosure", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", RowBox[{"(", RowBox[{"Collect", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"AlgebraDD", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalField", "]"}], " ", "-", RowBox[{"Closure", "[", "LocalField", "]"}]}], ")"}], "/.", "LagrangianParameters"}], "/.", "VtoPauli"}], ",", "FieldListWithDerivatives", ",", "Simplify"}], "]"}], ")"}]}], ";"}]], "Input", CellChangeTimes->{{3.7474929944818563`*^9, 3.7474930651472597`*^9}, { 3.747493152219424*^9, 3.7474932477784343`*^9}, {3.7474934178914785`*^9, 3.7474934832105627`*^9}, {3.7474935638267813`*^9, 3.747493591801224*^9}, { 3.7474963739738455`*^9, 3.7474964449288054`*^9}, {3.748795026042665*^9, 3.748795027776865*^9}, {3.748965282772246*^9, 3.7489652841431913`*^9}, { 3.748967256264186*^9, 3.7489672582499332`*^9}}, CellLabel-> "In[199]:=",ExpressionUUID->"e42d6eb1-2bbd-4d7b-a1cb-da7df5ee3c75"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDEqs", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", "=", " ", RowBox[{ RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"Coefficient", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDMinusClosure", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "aa", ",", "jj", ",", "bb"}], "]"}], "]"}], ",", RowBox[{"FieldListWithDerivatives", "[", RowBox[{"[", "FieldListIndex", "]"}], "]"}]}], "]"}], ")"}], "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"FieldListIndex", ",", "1", ",", RowBox[{"Length", "[", "FieldListWithDerivatives", "]"}]}], "}"}]}], "]"}], "//", "Simplify"}], "//", "Flatten"}], ",", "True"}], "]"}], "//", "DeleteDuplicates"}]}], ";"}]], "Input", CellChangeTimes->{{3.7474933413160763`*^9, 3.7474934023534203`*^9}, { 3.747493509609391*^9, 3.7474935432809353`*^9}, {3.7474936064895945`*^9, 3.7474936161297655`*^9}, {3.7474936564987297`*^9, 3.747493747940831*^9}, { 3.747493832482408*^9, 3.7474938407374077`*^9}, {3.747496458745552*^9, 3.7474964697370515`*^9}, 3.7475105609270287`*^9, {3.748795270744809*^9, 3.748795274222528*^9}, {3.74879531011075*^9, 3.748795321437098*^9}, { 3.748795652987978*^9, 3.748795656902155*^9}, {3.748965289858489*^9, 3.748965292697112*^9}, {3.748967259459038*^9, 3.748967260813509*^9}, { 3.7489708313422194`*^9, 3.7489708325427723`*^9}}, CellLabel-> "In[200]:=",ExpressionUUID->"81d86a4b-f88a-44fc-a5d6-f2c75170bacd"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Length", "[", RowBox[{ RowBox[{"AlgebraDDEqs", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "]"}]], "Input", CellChangeTimes->{{3.747493880500272*^9, 3.7474938897376738`*^9}, { 3.7474964759857783`*^9, 3.747496478481014*^9}, 3.748967263446204*^9}, CellLabel-> "In[201]:=",ExpressionUUID->"f4bab2cb-69f5-4e80-914d-b90b0a9817bf"], Cell[BoxData["13"], "Output", CellChangeTimes->{3.7604683267791686`*^9, 3.7604703469349556`*^9}, CellLabel-> "Out[201]=",ExpressionUUID->"c0e02d5c-b0fd-4624-af09-baf120678c25"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"LocalField", ",", "LocalFieldNumber"}], "]"}]], "Input", CellChangeTimes->{{3.747496499638111*^9, 3.7474965053367357`*^9}}, CellLabel-> "In[202]:=",ExpressionUUID->"e9ed25d9-a086-4e6e-a774-15d988559195"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ SubsuperscriptBox[ OverscriptBox["D", "~"], "a", "i"], ",", SubsuperscriptBox[ OverscriptBox["D", "~"], "b", "j"]}], "}"}], "B"}], "=", " ", RowBox[{"2", " ", "i", " ", SubscriptBox[ RowBox[{ SuperscriptBox["\[Delta]", "ij"], "(", SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], RowBox[{ SubscriptBox["\[PartialD]", "\[Mu]"], "B"}]}]}], TraditionalForm]], "None",ExpressionUUID->"2d073bd3-7145-4d25-8e00-a99712577124"], " , FieldNumber = 2" }], "Subsubsection", CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, { 3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, { 3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7467956828758698`*^9, 3.746795686091745*^9}, {3.747486227215621*^9, 3.747486227215621*^9}, { 3.7489659591128283`*^9, 3.748965968040195*^9}},ExpressionUUID->"729edd39-124f-4c6e-846a-\ e4426174199d"], Cell[BoxData[{ RowBox[{ RowBox[{"LocalField", " ", "=", " ", RowBox[{"B", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"LocalFieldNumber", " ", "=", " ", "2"}], ";"}]}], "Input", CellChangeTimes->{{3.747496390463257*^9, 3.747496425281234*^9}}, CellLabel-> "In[203]:=",ExpressionUUID->"d20aab44-1ebf-42a0-a443-868dfa06cbbf"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDMinusClosure", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", RowBox[{"(", RowBox[{"Collect", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"AlgebraDD", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalField", "]"}], " ", "-", RowBox[{"Closure", "[", "LocalField", "]"}]}], ")"}], "/.", "LagrangianParameters"}], "/.", "VtoPauli"}], ",", "FieldListWithDerivatives", ",", "Simplify"}], "]"}], ")"}]}], ";"}]], "Input", CellChangeTimes->{{3.7474929944818563`*^9, 3.7474930651472597`*^9}, { 3.747493152219424*^9, 3.7474932477784343`*^9}, {3.7474934178914785`*^9, 3.7474934832105627`*^9}, {3.7474935638267813`*^9, 3.747493591801224*^9}, { 3.7474963739738455`*^9, 3.7474964449288054`*^9}, {3.748795026042665*^9, 3.748795027776865*^9}, {3.748965282772246*^9, 3.7489652841431913`*^9}, { 3.748967264484933*^9, 3.748967265182363*^9}}, CellLabel-> "In[205]:=",ExpressionUUID->"7498256a-ec94-4157-a412-1d6afa428829"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDEqs", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", "=", " ", RowBox[{ RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"Coefficient", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDMinusClosure", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "aa", ",", "jj", ",", "bb"}], "]"}], "]"}], ",", RowBox[{"FieldListWithDerivatives", "[", RowBox[{"[", "FieldListIndex", "]"}], "]"}]}], "]"}], ")"}], "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"FieldListIndex", ",", "1", ",", RowBox[{"Length", "[", "FieldListWithDerivatives", "]"}]}], "}"}]}], "]"}], "//", "Simplify"}], "//", "Flatten"}], ",", "True"}], "]"}], "//", "DeleteDuplicates"}]}], ";"}]], "Input", CellChangeTimes->{{3.7474933413160763`*^9, 3.7474934023534203`*^9}, { 3.747493509609391*^9, 3.7474935432809353`*^9}, {3.7474936064895945`*^9, 3.7474936161297655`*^9}, {3.7474936564987297`*^9, 3.747493747940831*^9}, { 3.747493832482408*^9, 3.7474938407374077`*^9}, {3.747496458745552*^9, 3.7474964697370515`*^9}, 3.7475105609270287`*^9, {3.748795270744809*^9, 3.748795274222528*^9}, {3.74879531011075*^9, 3.748795321437098*^9}, { 3.748795652987978*^9, 3.748795656902155*^9}, {3.748965289858489*^9, 3.748965292697112*^9}, {3.748967266019973*^9, 3.748967266830842*^9}, { 3.748970855426833*^9, 3.748970856670473*^9}}, CellLabel-> "In[206]:=",ExpressionUUID->"7c02ce60-7304-45ab-aea8-5b3e80930425"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Length", "[", RowBox[{ RowBox[{"AlgebraDDEqs", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "]"}]], "Input", CellChangeTimes->{{3.747493880500272*^9, 3.7474938897376738`*^9}, { 3.7474964759857783`*^9, 3.747496478481014*^9}, 3.748967267741399*^9}, CellLabel-> "In[207]:=",ExpressionUUID->"1da31871-aa24-468f-b08c-466c20f96493"], Cell[BoxData["13"], "Output", CellChangeTimes->{3.7604683275903125`*^9, 3.760470347767578*^9}, CellLabel-> "Out[207]=",ExpressionUUID->"42fff2cb-3864-4521-a9ca-31d9c177e82d"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"LocalField", ",", "LocalFieldNumber"}], "]"}]], "Input", CellChangeTimes->{{3.747496499638111*^9, 3.7474965053367357`*^9}}, CellLabel-> "In[208]:=",ExpressionUUID->"5adf625e-bcf4-4984-967e-6173440e152b"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ SubsuperscriptBox[ OverscriptBox["D", "~"], "a", "i"], ",", SubsuperscriptBox[ OverscriptBox["D", "~"], "b", "j"]}], "}"}], "F"}], "=", " ", RowBox[{"2", " ", "i", " ", SubscriptBox[ RowBox[{ SuperscriptBox["\[Delta]", "ij"], "(", SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], RowBox[{ SubscriptBox["\[PartialD]", "\[Mu]"], "F"}]}]}], TraditionalForm]], "None",ExpressionUUID->"ddd7f9d1-2e37-4455-bcbc-676180a014f0"], " , FieldNumber = 3" }], "Subsubsection", CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, { 3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, { 3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7467956828758698`*^9, 3.746795686091745*^9}, {3.747486227215621*^9, 3.747486227215621*^9}, { 3.747497464520861*^9, 3.7474974673291535`*^9}, {3.748965960222494*^9, 3.74896596979602*^9}},ExpressionUUID->"24968e46-3b53-4604-a916-\ a310238ddd02"], Cell[BoxData[{ RowBox[{ RowBox[{"LocalField", " ", "=", " ", RowBox[{"F", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"LocalFieldNumber", " ", "=", " ", "3"}], ";"}]}], "Input", CellChangeTimes->{{3.747496390463257*^9, 3.747496425281234*^9}, { 3.7474974694092073`*^9, 3.7474974722809887`*^9}}, CellLabel-> "In[209]:=",ExpressionUUID->"8840eae0-18b7-42c3-ad16-640e3dc43a65"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDMinusClosure", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", RowBox[{"(", RowBox[{"Collect", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"AlgebraDD", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalField", "]"}], " ", "-", RowBox[{"Closure", "[", "LocalField", "]"}]}], ")"}], "/.", "LagrangianParameters"}], "/.", "VtoPauli"}], ",", "FieldListWithDerivatives", ",", "Simplify"}], "]"}], ")"}]}], ";"}]], "Input", CellChangeTimes->{{3.7474929944818563`*^9, 3.7474930651472597`*^9}, { 3.747493152219424*^9, 3.7474932477784343`*^9}, {3.7474934178914785`*^9, 3.7474934832105627`*^9}, {3.7474935638267813`*^9, 3.747493591801224*^9}, { 3.7474963739738455`*^9, 3.7474964449288054`*^9}, {3.748795026042665*^9, 3.748795027776865*^9}, {3.748965282772246*^9, 3.7489652841431913`*^9}, { 3.7489672687721643`*^9, 3.7489672693641253`*^9}}, CellLabel-> "In[211]:=",ExpressionUUID->"c373f924-4d1c-46ea-ae5f-af63094168dd"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDEqs", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", "=", " ", RowBox[{ RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"Coefficient", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDMinusClosure", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "aa", ",", "jj", ",", "bb"}], "]"}], "]"}], ",", RowBox[{"FieldListWithDerivatives", "[", RowBox[{"[", "FieldListIndex", "]"}], "]"}]}], "]"}], ")"}], "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"FieldListIndex", ",", "1", ",", RowBox[{"Length", "[", "FieldListWithDerivatives", "]"}]}], "}"}]}], "]"}], "//", "Simplify"}], "//", "Flatten"}], ",", "True"}], "]"}], "//", "DeleteDuplicates"}]}], ";"}]], "Input", CellChangeTimes->{{3.7474933413160763`*^9, 3.7474934023534203`*^9}, { 3.747493509609391*^9, 3.7474935432809353`*^9}, {3.7474936064895945`*^9, 3.7474936161297655`*^9}, {3.7474936564987297`*^9, 3.747493747940831*^9}, { 3.747493832482408*^9, 3.7474938407374077`*^9}, {3.747496458745552*^9, 3.7474964697370515`*^9}, 3.7475105609270287`*^9, {3.748795270744809*^9, 3.748795274222528*^9}, {3.74879531011075*^9, 3.748795321437098*^9}, { 3.748795652987978*^9, 3.748795656902155*^9}, {3.748965289858489*^9, 3.748965292697112*^9}, {3.748967270404604*^9, 3.748967271231758*^9}, { 3.748970867971706*^9, 3.748970869537696*^9}}, CellLabel-> "In[212]:=",ExpressionUUID->"f2d70174-3cbb-4826-97cd-fbea937a55d7"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Length", "[", RowBox[{ RowBox[{"AlgebraDDEqs", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "]"}]], "Input", CellChangeTimes->{{3.747493880500272*^9, 3.7474938897376738`*^9}, { 3.7474964759857783`*^9, 3.747496478481014*^9}, 3.748967271987453*^9}, CellLabel-> "In[213]:=",ExpressionUUID->"3ec5b027-96a5-4fa5-8cf0-15eda9c52661"], Cell[BoxData["17"], "Output", CellChangeTimes->{3.760468329907422*^9, 3.7604703501198835`*^9}, CellLabel-> "Out[213]=",ExpressionUUID->"53286ecf-2839-4037-a422-eea6e749ee5c"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"LocalField", ",", "LocalFieldNumber"}], "]"}]], "Input", CellChangeTimes->{{3.747496499638111*^9, 3.7474965053367357`*^9}}, CellLabel-> "In[214]:=",ExpressionUUID->"0948c9e4-aa6a-4e48-90cf-0af674336371"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ SubsuperscriptBox[ OverscriptBox["D", "~"], "a", "i"], ",", SubsuperscriptBox[ OverscriptBox["D", "~"], "b", "j"]}], "}"}], "G"}], "=", " ", RowBox[{"2", " ", "i", " ", SubscriptBox[ RowBox[{ SuperscriptBox["\[Delta]", "ij"], "(", SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], RowBox[{ SubscriptBox["\[PartialD]", "\[Mu]"], "G"}]}]}], TraditionalForm]], "None",ExpressionUUID->"8a7ea15d-de4f-4302-a241-4813b501ee37"], " , FieldNumber = 4" }], "Subsubsection", CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, { 3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, { 3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7467956828758698`*^9, 3.746795686091745*^9}, {3.747486227215621*^9, 3.747486227215621*^9}, { 3.747497464520861*^9, 3.7474974673291535`*^9}, {3.747497563453846*^9, 3.747497563796384*^9}, {3.7489659611441717`*^9, 3.748965973772861*^9}},ExpressionUUID->"689100a5-b296-4717-afda-\ f31b3c94d97a"], Cell[BoxData[{ RowBox[{ RowBox[{"LocalField", " ", "=", " ", RowBox[{"G", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"LocalFieldNumber", " ", "=", " ", "4"}], ";"}]}], "Input", CellChangeTimes->{{3.747496390463257*^9, 3.747496425281234*^9}, { 3.7474974694092073`*^9, 3.7474974722809887`*^9}, {3.747497566214872*^9, 3.747497568821742*^9}}, CellLabel-> "In[215]:=",ExpressionUUID->"b71e4f22-abc0-4146-a881-2b98be3100b3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDMinusClosure", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", RowBox[{"(", RowBox[{"Collect", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"AlgebraDD", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalField", "]"}], " ", "-", RowBox[{"Closure", "[", "LocalField", "]"}]}], ")"}], "/.", "LagrangianParameters"}], "/.", "VtoPauli"}], ",", "FieldListWithDerivatives", ",", "Simplify"}], "]"}], ")"}]}], ";"}]], "Input", CellChangeTimes->{{3.7474929944818563`*^9, 3.7474930651472597`*^9}, { 3.747493152219424*^9, 3.7474932477784343`*^9}, {3.7474934178914785`*^9, 3.7474934832105627`*^9}, {3.7474935638267813`*^9, 3.747493591801224*^9}, { 3.7474963739738455`*^9, 3.7474964449288054`*^9}, {3.748795026042665*^9, 3.748795027776865*^9}, {3.748965282772246*^9, 3.7489652841431913`*^9}, { 3.748967273084135*^9, 3.748967273659972*^9}}, CellLabel-> "In[217]:=",ExpressionUUID->"cb731292-ffa4-4717-b58d-6d41316967fe"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDEqs", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", "=", " ", RowBox[{ RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"Coefficient", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDMinusClosure", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "aa", ",", "jj", ",", "bb"}], "]"}], "]"}], ",", RowBox[{"FieldListWithDerivatives", "[", RowBox[{"[", "FieldListIndex", "]"}], "]"}]}], "]"}], ")"}], "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"FieldListIndex", ",", "1", ",", RowBox[{"Length", "[", "FieldListWithDerivatives", "]"}]}], "}"}]}], "]"}], "//", "Simplify"}], "//", "Flatten"}], ",", "True"}], "]"}], "//", "DeleteDuplicates"}]}], ";"}]], "Input", CellChangeTimes->{{3.7474933413160763`*^9, 3.7474934023534203`*^9}, { 3.747493509609391*^9, 3.7474935432809353`*^9}, {3.7474936064895945`*^9, 3.7474936161297655`*^9}, {3.7474936564987297`*^9, 3.747493747940831*^9}, { 3.747493832482408*^9, 3.7474938407374077`*^9}, {3.747496458745552*^9, 3.7474964697370515`*^9}, 3.7475105609270287`*^9, {3.748795270744809*^9, 3.748795274222528*^9}, {3.74879531011075*^9, 3.748795321437098*^9}, { 3.748795652987978*^9, 3.748795656902155*^9}, {3.748965289858489*^9, 3.748965292697112*^9}, {3.74896727449786*^9, 3.7489672753493137`*^9}, { 3.748970882655526*^9, 3.748970884514419*^9}}, CellLabel-> "In[218]:=",ExpressionUUID->"dc724abd-ef64-4f2e-b433-5381f78aad94"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Length", "[", RowBox[{ RowBox[{"AlgebraDDEqs", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "]"}]], "Input", CellChangeTimes->{{3.747493880500272*^9, 3.7474938897376738`*^9}, { 3.7474964759857783`*^9, 3.747496478481014*^9}, 3.748967276137932*^9}, CellLabel-> "In[219]:=",ExpressionUUID->"d796e61e-9953-4c1b-872c-5f221333d769"], Cell[BoxData["21"], "Output", CellChangeTimes->{3.7604683321686935`*^9, 3.760470352443263*^9}, CellLabel-> "Out[219]=",ExpressionUUID->"9c480c52-a5eb-499d-802b-aa4b34277bdb"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"LocalField", ",", "LocalFieldNumber"}], "]"}]], "Input", CellChangeTimes->{{3.747496499638111*^9, 3.7474965053367357`*^9}}, CellLabel-> "In[220]:=",ExpressionUUID->"b24774bc-c44b-4ce0-acee-9f0987fa0509"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ SubsuperscriptBox[ OverscriptBox["D", "~"], "a", "i"], ",", SubsuperscriptBox[ OverscriptBox["D", "~"], "b", "j"]}], "}"}], "d"}], "=", " ", RowBox[{"2", " ", "i", " ", SubscriptBox[ RowBox[{ SuperscriptBox["\[Delta]", "ij"], "(", SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], RowBox[{ SubscriptBox["\[PartialD]", "\[Mu]"], "d"}]}]}], TraditionalForm]], "None",ExpressionUUID->"9539277e-e20f-45ad-a3fe-66c2391a6f66"], " , FieldNumber = 5" }], "Subsubsection", CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, { 3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, { 3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7467956828758698`*^9, 3.746795686091745*^9}, {3.747486227215621*^9, 3.747486227215621*^9}, { 3.747497464520861*^9, 3.7474974673291535`*^9}, {3.747497563453846*^9, 3.747497563796384*^9}, {3.7474976471954*^9, 3.747497647897377*^9}, { 3.748965962266481*^9, 3.748965979113331*^9}},ExpressionUUID->"7f89c892-adc9-4712-8c76-\ a75e80fbf51b"], Cell[BoxData[{ RowBox[{ RowBox[{"LocalField", " ", "=", " ", RowBox[{"d", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"LocalFieldNumber", " ", "=", " ", "5"}], ";"}]}], "Input", CellChangeTimes->{{3.747496390463257*^9, 3.747496425281234*^9}, { 3.7474974694092073`*^9, 3.7474974722809887`*^9}, {3.747497566214872*^9, 3.747497568821742*^9}, {3.7474976499458833`*^9, 3.7474976533042154`*^9}}, CellLabel-> "In[221]:=",ExpressionUUID->"76f6e8ee-7827-4fc4-b75e-a9dd313cca1f"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDMinusClosure", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", RowBox[{"(", RowBox[{"Collect", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"AlgebraDD", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalField", "]"}], " ", "-", RowBox[{"Closure", "[", "LocalField", "]"}]}], ")"}], "/.", "LagrangianParameters"}], "/.", "VtoPauli"}], ",", "FieldListWithDerivatives", ",", "Simplify"}], "]"}], ")"}]}], ";"}]], "Input", CellChangeTimes->{{3.7474929944818563`*^9, 3.7474930651472597`*^9}, { 3.747493152219424*^9, 3.7474932477784343`*^9}, {3.7474934178914785`*^9, 3.7474934832105627`*^9}, {3.7474935638267813`*^9, 3.747493591801224*^9}, { 3.7474963739738455`*^9, 3.7474964449288054`*^9}, {3.748795026042665*^9, 3.748795027776865*^9}, {3.748965282772246*^9, 3.7489652841431913`*^9}, { 3.7489672770635853`*^9, 3.748967277540977*^9}}, CellLabel-> "In[223]:=",ExpressionUUID->"15da10ad-8f6a-4f9b-be7e-e3653cda335f"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDEqs", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", "=", " ", RowBox[{ RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"Coefficient", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDMinusClosure", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "aa", ",", "jj", ",", "bb"}], "]"}], "]"}], ",", RowBox[{"FieldListWithDerivatives", "[", RowBox[{"[", "FieldListIndex", "]"}], "]"}]}], "]"}], ")"}], "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"FieldListIndex", ",", "1", ",", RowBox[{"Length", "[", "FieldListWithDerivatives", "]"}]}], "}"}]}], "]"}], "//", "Simplify"}], "//", "Flatten"}], ",", "True"}], "]"}], "//", "DeleteDuplicates"}]}], ";"}]], "Input", CellChangeTimes->{{3.7474933413160763`*^9, 3.7474934023534203`*^9}, { 3.747493509609391*^9, 3.7474935432809353`*^9}, {3.7474936064895945`*^9, 3.7474936161297655`*^9}, {3.7474936564987297`*^9, 3.747493747940831*^9}, { 3.747493832482408*^9, 3.7474938407374077`*^9}, {3.747496458745552*^9, 3.7474964697370515`*^9}, 3.7475105609270287`*^9, {3.748795270744809*^9, 3.748795274222528*^9}, {3.74879531011075*^9, 3.748795321437098*^9}, { 3.748795652987978*^9, 3.748795656902155*^9}, {3.748965289858489*^9, 3.748965292697112*^9}, {3.748967278411985*^9, 3.748967279417452*^9}, { 3.748970899154714*^9, 3.74897090034398*^9}}, CellLabel-> "In[224]:=",ExpressionUUID->"fc72778f-8cff-4851-81b8-557e77dce104"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Length", "[", RowBox[{ RowBox[{"AlgebraDDEqs", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "]"}]], "Input", CellChangeTimes->{{3.747493880500272*^9, 3.7474938897376738`*^9}, { 3.7474964759857783`*^9, 3.747496478481014*^9}, 3.748967280417349*^9}, CellLabel-> "In[225]:=",ExpressionUUID->"f04cc7e3-a38d-4670-9a80-e828c36f9473"], Cell[BoxData["21"], "Output", CellChangeTimes->{3.7604683343894033`*^9, 3.7604703547227955`*^9}, CellLabel-> "Out[225]=",ExpressionUUID->"a3cb6e5f-628d-4eca-a954-b73c96b249fe"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"LocalField", ",", "LocalFieldNumber"}], "]"}]], "Input", CellChangeTimes->{{3.747496499638111*^9, 3.7474965053367357`*^9}}, CellLabel-> "In[226]:=",ExpressionUUID->"d51b969e-f20c-4d9b-b11a-6c853320702a"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ SubsuperscriptBox[ OverscriptBox["D", "~"], "a", "i"], ",", SubsuperscriptBox[ OverscriptBox["D", "~"], "b", "j"]}], "}"}], SubscriptBox["A", "\[Mu]"]}], "=", " ", RowBox[{ RowBox[{"2", " ", "i", " ", SubscriptBox[ RowBox[{ SuperscriptBox["\[Delta]", "ij"], "(", SuperscriptBox["\[Gamma]", "\[Nu]"], ")"}], "ab"], RowBox[{ SubscriptBox["\[PartialD]", "\[Nu]"], SubscriptBox["A", "\[Mu]"]}]}], " ", "-", RowBox[{ SubscriptBox["\[PartialD]", "\[Mu]"], SubsuperscriptBox[ OverscriptBox[ OverscriptBox["\[Lambda]", "~"], "~"], "ab", "ij"]}]}]}], TraditionalForm]], "None",ExpressionUUID-> "0f12be07-4478-46dd-ba98-5f7db32323f5"], " , \nFieldNumber = 7\n", Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox[ OverscriptBox[ OverscriptBox["\[Lambda]", "~"], "~"], "ab", "ij"], "=", " ", RowBox[{ RowBox[{"2", " ", "i", " ", RowBox[{"(", RowBox[{ SuperscriptBox["a1\[Delta]", "ij"], " ", "+", " ", RowBox[{"a2", " ", SuperscriptBox[ RowBox[{"(", SuperscriptBox["\[Sigma]", "1"], ")"}], "ij"]}], "+", " ", RowBox[{"a3", " ", SuperscriptBox[ RowBox[{"(", SuperscriptBox["\[Sigma]", "3"], ")"}], "ij"]}]}], " ", ")"}], SubscriptBox[ RowBox[{"(", SuperscriptBox["\[Gamma]", "\[Nu]"], ")"}], "ab"], SubscriptBox["A", "\[Nu]"]}], " ", "-", " ", RowBox[{"2", " ", "i", " ", SuperscriptBox[ RowBox[{"(", SuperscriptBox["\[Sigma]", "2"], ")"}], "ij"], RowBox[{"(", " ", RowBox[{ RowBox[{"i", " ", "a4", " ", SubscriptBox["C", "ab"], "A"}], " ", "-", " ", RowBox[{"a5", " ", SubscriptBox[ RowBox[{"(", SuperscriptBox["\[Gamma]", "5"], ")"}], "ab"], "B"}]}], ")"}]}]}]}], TraditionalForm]],ExpressionUUID-> "3af9aaa5-0b2d-4df5-9cc1-9b5629ef66e7"] }], "Subsubsection", CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, { 3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, { 3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7467956828758698`*^9, 3.746795686091745*^9}, {3.7468041304980903`*^9, 3.7468041309100285`*^9}, { 3.746804200318131*^9, 3.746804240053707*^9}, {3.74680432554387*^9, 3.746804336909229*^9}, {3.7468050801419106`*^9, 3.746805100373829*^9}, { 3.746841296333973*^9, 3.746841355175333*^9}, {3.7468413946111727`*^9, 3.7468413969638214`*^9}, {3.7474862348309937`*^9, 3.7474862348309937`*^9}, {3.7489665405117817`*^9, 3.748966542831262*^9}, { 3.748966633559536*^9, 3.748966677424404*^9}, 3.748966919128932*^9, { 3.748971703483138*^9, 3.748971705860566*^9}, {3.748975938792149*^9, 3.748975945893471*^9}, {3.748976013026861*^9, 3.7489760130270844`*^9}},ExpressionUUID->"5bebdfc2-7bb7-4f1c-b428-\ 198239f14f11"], Cell[BoxData[ RowBox[{ RowBox[{"LocalFieldNumber", " ", "=", " ", "7"}], ";"}]], "Input", CellChangeTimes->{{3.748966071586817*^9, 3.748966075509182*^9}, { 3.748966797273872*^9, 3.748966797353215*^9}, 3.748966916891461*^9}, CellLabel-> "In[227]:=",ExpressionUUID->"4aa93657-e703-4546-ade8-754fe15cb5ba"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Lambda]", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", RowBox[{"ii_", ",", "jj_"}], "]"}], "[", RowBox[{"aa_", ",", "bb_"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", ":=", " ", RowBox[{ RowBox[{"2", " ", "I", " ", RowBox[{"(", RowBox[{ RowBox[{"a1", " ", RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}]}], " ", "+", " ", RowBox[{"a2", " ", RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}]}], " ", "+", " ", RowBox[{"a3", " ", RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}]}]}], ")"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]down", "[", "nu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"Am", "[", "nu", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], " ", "-", " ", RowBox[{"2", "I", " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"I", " ", "a4", " ", RowBox[{"Cmetric", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], " ", RowBox[{"A", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", "-", RowBox[{"a5", " ", RowBox[{"\[Gamma]5down", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"B", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}]}]}]], "Input", CellChangeTimes->{{3.746804354420742*^9, 3.746804354698959*^9}, { 3.7468050126457977`*^9, 3.746805074136135*^9}, {3.74680511128192*^9, 3.746805165236924*^9}, {3.7468053158322053`*^9, 3.7468053335810037`*^9}, { 3.74680550552096*^9, 3.746805530545571*^9}, {3.746805594980097*^9, 3.746805595781765*^9}, {3.74896669810314*^9, 3.74896673459186*^9}, { 3.748971712110408*^9, 3.7489717140585623`*^9}, {3.748975951983173*^9, 3.748975952110795*^9}, {3.749383865056628*^9, 3.7493838759913654`*^9}}, CellLabel-> "In[228]:=",ExpressionUUID->"2fba21da-2de9-4f5a-ac0e-98dbfd4a3d74"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Lambda]Table", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Lambda]", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", RowBox[{"ii", ",", "jj"}], "]"}], "[", RowBox[{"aa", ",", "bb"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.746805604570979*^9, 3.746805658227662*^9}, { 3.746806044124957*^9, 3.746806044220275*^9}, {3.748975955245373*^9, 3.7489759553513308`*^9}, {3.748976084694819*^9, 3.7489760848424053`*^9}, { 3.749383870656556*^9, 3.7493838848477592`*^9}}, CellLabel-> "In[229]:=",ExpressionUUID->"8819f3aa-f7ab-4084-9c96-e9a984090ccd"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDMinusClosure", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", RowBox[{"Collect", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"AlgebraDD", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", RowBox[{ RowBox[{"Am", "[", "mu", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}], " ", "-", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Closure", "[", RowBox[{ RowBox[{"Am", "[", "mu", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "-", " ", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"\[Lambda]Table", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], " ", ")"}], "/.", "LagrangianParameters"}], "/.", "VtoPauli"}], ",", "FieldListWithDerivatives", ",", "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.738583987798254*^9}, {3.746795246915931*^9, 3.7467952488448153`*^9}, {3.7467958844446697`*^9, 3.746795886747491*^9}, { 3.7468041314416847`*^9, 3.746804147477379*^9}, {3.7468043445732574`*^9, 3.746804347340818*^9}, {3.746805172730974*^9, 3.746805251677202*^9}, { 3.7468055536216993`*^9, 3.7468055583468037`*^9}, {3.7468056889959183`*^9, 3.7468056937751846`*^9}, {3.746806056497301*^9, 3.7468060582362785`*^9}, 3.746807159168933*^9, {3.7468447252976427`*^9, 3.7468447276633115`*^9}, 3.747486056829548*^9, {3.748966800357626*^9, 3.748966822426412*^9}, { 3.748966855769305*^9, 3.748966899217395*^9}, {3.748967060423177*^9, 3.7489670624186296`*^9}, {3.748967139679923*^9, 3.748967140446787*^9}, { 3.748967289390843*^9, 3.748967290234539*^9}, {3.748975962935253*^9, 3.7489759630401773`*^9}, {3.7493838917283077`*^9, 3.749383898031501*^9}}, CellLabel-> "In[230]:=",ExpressionUUID->"43ef49bf-3bea-4440-b256-d0004742d5b2"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Dimensions", "[", RowBox[{ RowBox[{"AlgebraDDMinusClosure", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "]"}]], "Input", CellChangeTimes->{{3.748967000132847*^9, 3.7489670075291*^9}, { 3.748967065448983*^9, 3.7489670662308064`*^9}, 3.748967291722481*^9}, CellLabel-> "In[231]:=",ExpressionUUID->"bbd88ee8-e241-4b5d-bcd8-a672e1647710"], Cell[BoxData[ RowBox[{"{", RowBox[{"4", ",", "2", ",", "4", ",", "2", ",", "4"}], "}"}]], "Output", CellChangeTimes->{3.7604683366821923`*^9, 3.760470357072937*^9}, CellLabel-> "Out[231]=",ExpressionUUID->"e011da6b-2dd5-47ae-8845-59dc9e6236a4"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDEqs", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", "=", " ", RowBox[{ RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"Coefficient", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDMinusClosure", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "[", RowBox[{"[", RowBox[{"mu", ",", "ii", ",", "aa", ",", "jj", ",", "bb"}], "]"}], "]"}], ",", RowBox[{"FieldListWithDerivatives", "[", RowBox[{"[", "FieldListIndex", "]"}], "]"}]}], "]"}], ")"}], "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"mu", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"FieldListIndex", ",", "1", ",", RowBox[{"Length", "[", "FieldListWithDerivatives", "]"}]}], "}"}]}], "]"}], "//", "Simplify"}], "//", "Flatten"}], ",", "True"}], "]"}], "//", "DeleteDuplicates"}]}], ";"}]], "Input", CellChangeTimes->{{3.7474933413160763`*^9, 3.7474934023534203`*^9}, { 3.747493509609391*^9, 3.7474935432809353`*^9}, {3.7474936064895945`*^9, 3.7474936161297655`*^9}, {3.7474936564987297`*^9, 3.747493747940831*^9}, { 3.747493832482408*^9, 3.7474938407374077`*^9}, {3.747496458745552*^9, 3.7474964697370515`*^9}, 3.7475105609270287`*^9, {3.748795270744809*^9, 3.748795274222528*^9}, {3.74879531011075*^9, 3.748795321437098*^9}, { 3.748795652987978*^9, 3.748795656902155*^9}, {3.748965289858489*^9, 3.748965292697112*^9}, {3.74896646470501*^9, 3.748966481142193*^9}, { 3.748966980329461*^9, 3.7489669917689943`*^9}, {3.748967292501384*^9, 3.7489672932881193`*^9}, {3.7489707899595118`*^9, 3.748970791327216*^9}}, CellLabel-> "In[232]:=",ExpressionUUID->"3b253423-e4eb-405e-a82c-bcdcb3269bcb"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Length", "[", RowBox[{ RowBox[{"AlgebraDDEqs", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "]"}]], "Input", CellChangeTimes->{{3.747493880500272*^9, 3.7474938897376738`*^9}, { 3.7474964759857783`*^9, 3.747496478481014*^9}, 3.74896729732123*^9, { 3.748969441641419*^9, 3.7489694468799477`*^9}}, CellLabel-> "In[233]:=",ExpressionUUID->"a964ae68-2a8f-4fa3-ad2d-6a0cd9af2e2a"], Cell[BoxData["40"], "Output", CellChangeTimes->{3.760468337569336*^9, 3.7604703579948254`*^9}, CellLabel-> "Out[233]=",ExpressionUUID->"1b84d271-30d6-4df7-9a0e-b4f89794f00a"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", "LocalFieldNumber", "]"}]], "Input", CellChangeTimes->{{3.747496499638111*^9, 3.7474965053367357`*^9}, { 3.748966504446074*^9, 3.748966505904224*^9}}, CellLabel-> "In[234]:=",ExpressionUUID->"6c2b1cad-c7d1-44ba-aaf2-c1d339c06c4a"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Solving Equations, solution is stored in FinalSolutions[tt1,tt2][ss] Solution Set ss= 1 for this the Vector Algebra\ \>", "Subsubsection", CellChangeTimes->{{3.7489677698312817`*^9, 3.748967780199047*^9}, { 3.748972486308576*^9, 3.74897251391574*^9}, {3.7493835711024337`*^9, 3.7493835816704755`*^9}, {3.749383699006539*^9, 3.7493837028302116`*^9}, 3.749383740939508*^9},ExpressionUUID->"81f3b4e5-ad4a-407f-b63c-\ 64c85b3476bb"], Cell[BoxData[{ RowBox[{ RowBox[{"Clear", "[", "ss", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ss", " ", "=", " ", "1"}], ";"}]}], "Input", CellChangeTimes->{{3.749383513236498*^9, 3.7493835160946445`*^9}, { 3.7493837050150137`*^9, 3.7493837051269436`*^9}, {3.749383982974845*^9, 3.7493839862306633`*^9}}, CellLabel-> "In[235]:=",ExpressionUUID->"121c4d53-5eff-46ef-9b58-ccfce18400d1"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"BosonNumbersList", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "ss", "]"}], " ", "=", " ", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "7"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"FieldNumbersList", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "ss", "]"}], " ", "=", " ", RowBox[{"{", RowBox[{ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "7", ",", "13"}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.748969333121933*^9, 3.7489693988383923`*^9}, 3.7493835981924334`*^9, 3.749383714681528*^9, {3.749384061791787*^9, 3.749384083486664*^9}, {3.7493841197508016`*^9, 3.7493841201349845`*^9}, { 3.7493850825114827`*^9, 3.7493850887423773`*^9}}, CellLabel-> "In[237]:=",ExpressionUUID->"8c3af65c-47a8-4525-a383-b6b4d9355662"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"BosonAlgebraDDEqs", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "ss", "]"}], "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"AlgebraDDEqs", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", RowBox[{ RowBox[{ RowBox[{"BosonNumbersList", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "ss", "]"}], "[", RowBox[{"[", "Index", "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"Index", ",", "1", ",", RowBox[{"Length", "[", RowBox[{ RowBox[{"BosonNumbersList", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "ss", "]"}], "]"}]}], "}"}]}], "]"}], "//", "Flatten"}], "//", "Simplify"}], "//", "DeleteDuplicates"}]}], ";"}]], "Input", CellChangeTimes->{{3.748969325590454*^9, 3.748969329010118*^9}, { 3.7489693756376123`*^9, 3.74896943185653*^9}, {3.74896948893606*^9, 3.748969543541419*^9}, {3.748969623685299*^9, 3.748969652021121*^9}, { 3.748969966308803*^9, 3.748969967451939*^9}, {3.7489715297447653`*^9, 3.748971546561779*^9}, {3.749383598820228*^9, 3.7493836035464973`*^9}, { 3.749383715663767*^9, 3.7493837165662193`*^9}, {3.749384135140419*^9, 3.749384136227512*^9}, 3.749384174767242*^9}, CellLabel-> "In[239]:=",ExpressionUUID->"26724dd0-8ce3-4168-bd42-1bcb7ec83e18"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Dimensions", "[", RowBox[{ RowBox[{"BosonAlgebraDDEqs", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "ss", "]"}], "]"}]], "Input", CellChangeTimes->{{3.748969546970845*^9, 3.748969556759946*^9}, { 3.748971556754339*^9, 3.748971558346437*^9}, 3.7493836052127523`*^9, 3.749383717173459*^9}, CellLabel-> "In[240]:=",ExpressionUUID->"b35bf98b-a239-4c74-91d4-1bb434d5a3b4"], Cell[BoxData[ RowBox[{"{", "95", "}"}]], "Output", CellChangeTimes->{3.7604683378253736`*^9, 3.7604703582652817`*^9}, CellLabel-> "Out[240]=",ExpressionUUID->"46ca3d06-dbc4-4fe6-8bae-4898a960089d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"BosonSolutions", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "ss", "]"}], " ", "=", " ", RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"BosonAlgebraDDEqs", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "ss", "]"}], ",", RowBox[{"Join", "[", RowBox[{"cvList", ",", RowBox[{"{", RowBox[{"a1", ",", "a2", ",", "a3", ",", "a4", ",", "a5"}], "}"}]}], "]"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.748970005478078*^9, 3.7489700126343*^9}, { 3.74897004406227*^9, 3.748970092758891*^9}, {3.748971606543949*^9, 3.7489716451722813`*^9}, 3.748971767189884*^9, 3.748971805374961*^9, { 3.7493836148123302`*^9, 3.7493836154600906`*^9}, {3.749383717913845*^9, 3.7493837184542217`*^9}}, CellLabel-> "In[241]:=",ExpressionUUID->"ad41a71a-6fb8-4895-9614-3a6c86dc9250"], Cell[BoxData[ TemplateBox[{ "Solve","svars", "\"Equations may not give solutions for all \\\"solve\\\" variables.\"",2, 241,1,33866084167735575198,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.760468350242319*^9, 3.7604703706612606`*^9}, CellLabel-> "During evaluation of \ In[241]:=",ExpressionUUID->"640f1b89-26f5-4861-8a28-ab015091ea73"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Dimensions", "[", RowBox[{ RowBox[{"BosonSolutions", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "ss", "]"}], "]"}]], "Input", CellChangeTimes->{{3.748971794889221*^9, 3.748971812440453*^9}, 3.7493836163382597`*^9, 3.749383719037591*^9}, CellLabel-> "In[242]:=",ExpressionUUID->"46c37b6a-3f5f-445d-b7d9-00cb05efc448"], Cell[BoxData[ RowBox[{"{", "640", "}"}]], "Output", CellChangeTimes->{3.760468350300036*^9, 3.7604703707483163`*^9}, CellLabel-> "Out[242]=",ExpressionUUID->"afd4d45e-90c4-4dac-956e-29120fd0cc5e"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ SubsuperscriptBox[ OverscriptBox["D", "~"], "a", "i"], ",", SubsuperscriptBox[ OverscriptBox["D", "~"], "b", "j"]}], "}"}], SubsuperscriptBox[ OverscriptBox["\[CapitalPsi]", "~"], "c", "k"]}], "=", " ", RowBox[{"2", " ", "i", " ", SubscriptBox[ RowBox[{ SuperscriptBox["\[Delta]", "ij"], "(", SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], RowBox[{ SubscriptBox["\[PartialD]", "\[Mu]"], SubsuperscriptBox[ OverscriptBox["\[CapitalPsi]", "~"], "c", "k"]}]}]}], TraditionalForm]], "None",ExpressionUUID-> "84acea98-f082-4aae-8fd1-e953693854a7"], " , FieldNumber = 13, closure is satisfied with \ BosonSolutions[tt1,tt2][ss]" }], "Subsubsection", CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, { 3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, { 3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7467956828758698`*^9, 3.7467957093182344`*^9}, {3.7468397282515197`*^9, 3.7468397403192024`*^9}, {3.747486296238436*^9, 3.747486296238896*^9}, { 3.748966031953535*^9, 3.748966041540716*^9}, {3.7493834446309233`*^9, 3.749383458030445*^9}, 3.7493836469152617`*^9, 3.7493837277980385`*^9, { 3.7493919102917747`*^9, 3.7493919149637985`*^9}, {3.7604705093162565`*^9, 3.760470514372678*^9}},ExpressionUUID->"4e199379-bfe4-4a28-9363-\ 74078207059f"], Cell[BoxData[ RowBox[{ RowBox[{"LocalFieldNumber", " ", "=", " ", "13"}], ";"}]], "Input", CellChangeTimes->{{3.748966071586817*^9, 3.748966075509182*^9}}, CellLabel-> "In[243]:=",ExpressionUUID->"e2620477-7ff1-4f99-84f5-d3101408b07a"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDMinusClosure", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", RowBox[{"Collect", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"AlgebraDD", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "kk", "]"}], "[", "cc", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"cc", ",", "1", ",", "4"}], "}"}]}], "]"}], " ", "-", RowBox[{"Table", "[", RowBox[{ RowBox[{"Closure", "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]t", "[", "kk", "]"}], "[", "cc", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"cc", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ")"}], "/.", "LagrangianParameters"}], "/.", "VtoPauli"}], ",", "FieldListWithDerivatives", ",", "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.738583987798254*^9}, {3.746795246915931*^9, 3.7467952488448153`*^9}, {3.7467955657964067`*^9, 3.746795640354241*^9}, { 3.746795890012149*^9, 3.7467958937229385`*^9}, 3.7468071576763477`*^9, { 3.7468397475183973`*^9, 3.7468397494183197`*^9}, {3.74684479825742*^9, 3.7468448011304903`*^9}, 3.747486059606282*^9, {3.748966053435618*^9, 3.748966056973206*^9}, {3.748966099029307*^9, 3.748966109197792*^9}, { 3.748966140483706*^9, 3.748966221885426*^9}, 3.748966296185226*^9, { 3.748967282096521*^9, 3.7489672827552223`*^9}, {3.7493845135835333`*^9, 3.749384523350835*^9}, {3.7493848736874304`*^9, 3.749384885463258*^9}}, CellLabel-> "In[244]:=",ExpressionUUID->"2c784c23-6e35-4cc5-a50d-d53c2b8aa51b"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDEqs", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"AlgebraDDMinusClosure", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", "\[Equal]", " ", RowBox[{"0", " ", "*", " ", RowBox[{ RowBox[{"AlgebraDDMinusClosure", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}]}]}], ")"}]}], ";"}]], "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.738583987798254*^9}, {3.746795246915931*^9, 3.7467952488448153`*^9}, {3.7467955657964067`*^9, 3.746795640354241*^9}, { 3.746795890012149*^9, 3.7467958937229385`*^9}, 3.7468071576763477`*^9, { 3.7468397475183973`*^9, 3.7468397494183197`*^9}, {3.74684479825742*^9, 3.7468448011304903`*^9}, 3.747486059606282*^9, {3.748966053435618*^9, 3.748966056973206*^9}, {3.748966099029307*^9, 3.748966109197792*^9}, { 3.748966140483706*^9, 3.748966221885426*^9}, 3.748966296185226*^9, { 3.748967282096521*^9, 3.7489672827552223`*^9}, {3.7493845135835333`*^9, 3.749384523350835*^9}, {3.74938528664089*^9, 3.749385317239235*^9}}, CellLabel-> "In[245]:=",ExpressionUUID->"c18bed2e-b5d2-4972-97cb-edabae1d85e2"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDEqs", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1"}], "]"}], "]"}], ";"}], " ", RowBox[{"(*", " ", RowBox[{ RowBox[{ "Sanity", " ", "check", " ", "that", " ", "it", " ", "is", " ", "not", " ", "trivially", " ", "satisfied"}], ",", " ", RowBox[{"it", " ", "is", " ", "not"}]}], " ", "*)"}]}]], "Input", CellChangeTimes->{{3.7493853863110037`*^9, 3.749385391126153*^9}, { 3.749391839661545*^9, 3.7493918562999225`*^9}}, CellLabel-> "In[246]:=",ExpressionUUID->"bad3146f-d37a-476c-b4e6-594e9e1ec5a1"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"ClosureResult", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "ss", "]"}], "=", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDEqs", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "/.", RowBox[{ RowBox[{ RowBox[{"BosonSolutions", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "ss", "]"}], "[", RowBox[{"[", "SolnNum", "]"}], "]"}]}], "//", "Simplify"}], ",", RowBox[{"{", RowBox[{"SolnNum", ",", "1", ",", RowBox[{"Length", "[", RowBox[{ RowBox[{"BosonSolutions", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "ss", "]"}], "]"}]}], "}"}]}], "]"}], " ", "\[Equal]", " ", RowBox[{"Table", "[", RowBox[{"True", ",", RowBox[{"{", RowBox[{"SolnNum", ",", "1", ",", RowBox[{"Length", "[", RowBox[{ RowBox[{"BosonSolutions", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "ss", "]"}], "]"}]}], "}"}]}], "]"}]}]}], " "}]], "Input", CellChangeTimes->{{3.749384394545407*^9, 3.7493844846569977`*^9}, { 3.7493845299906125`*^9, 3.749384537783476*^9}, {3.7493845929038415`*^9, 3.749384594527071*^9}, {3.7493982107163277`*^9, 3.7493982205066504`*^9}}, CellLabel-> "In[247]:=",ExpressionUUID->"292c921d-08d7-44c5-b3d3-f39fdfb7f393"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.760468505606039*^9, 3.7604705253603306`*^9}, CellLabel-> "Out[247]=",ExpressionUUID->"bb434968-5a69-4fde-91af-758805a2e85e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{"tt2", "\[IndentingNewLine]", "tt2"}], "Input", CellChangeTimes->{{3.7493858760568547`*^9, 3.7493858786545386`*^9}}, CellLabel-> "In[248]:=",ExpressionUUID->"5f07b352-d950-44b0-a8ab-45c3ca89afd1"], Cell[BoxData["2"], "Output", CellChangeTimes->{3.7604685056547384`*^9, 3.7604705253891754`*^9}, CellLabel-> "Out[248]=",ExpressionUUID->"110cf87c-b9c6-4c7f-9f06-17b71f7568f5"], Cell[BoxData["2"], "Output", CellChangeTimes->{3.7604685056547384`*^9, 3.7604705254031496`*^9}, CellLabel-> "Out[249]=",ExpressionUUID->"2f2ad5c5-ac1a-4ec7-a718-ae48edc15495"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", "LocalFieldNumber", "]"}]], "Input", CellChangeTimes->{{3.747496499638111*^9, 3.7474965053367357`*^9}, { 3.748966504446074*^9, 3.748966505904224*^9}}, CellLabel-> "In[250]:=",ExpressionUUID->"f7606bda-5078-432a-8a16-209687d54741"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "4D, N=2 Vector Algebra, both tilded ", Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ SubsuperscriptBox[ OverscriptBox["D", "~"], "a", "i"], ",", SubsuperscriptBox[ OverscriptBox["D", "~"], "b", "j"]}], "}"}], TraditionalForm]], ExpressionUUID->"962b0a1a-2915-411e-abde-37da01411f21"], " Closure Summary" }], "Subsection", CellChangeTimes->{{3.748972467289494*^9, 3.748972471022188*^9}, { 3.7493847916781607`*^9, 3.7493847988378963`*^9}, {3.7493848533503027`*^9, 3.749384856206504*^9}, {3.749391805891867*^9, 3.749391821571368*^9}, { 3.7604684571855135`*^9, 3.7604684576726913`*^9}, {3.7604686784693737`*^9, 3.760468686241353*^9}},ExpressionUUID->"a2c8f04a-0774-42d1-aaa5-\ 4ce733fac499"], Cell[CellGroupData[{ Cell[BoxData[{"tt1", "\[IndentingNewLine]", "tt2"}], "Input", CellChangeTimes->{{3.7493858638824186`*^9, 3.7493858669343605`*^9}}, CellLabel-> "In[251]:=",ExpressionUUID->"183b4543-7198-403e-88c8-9671bdadc833"], Cell[BoxData["2"], "Output", CellChangeTimes->{3.760468505694682*^9, 3.7604705254293194`*^9}, CellLabel-> "Out[251]=",ExpressionUUID->"f88ed985-4ba1-47e0-9062-8545f37e9834"], Cell[BoxData["2"], "Output", CellChangeTimes->{3.760468505694682*^9, 3.7604705254436398`*^9}, CellLabel-> "Out[252]=",ExpressionUUID->"369ff5ed-565c-40be-a875-7815c175e799"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TildeTildeVectorIsClosed", " ", "=", " ", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDMinusClosure", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", RowBox[{ RowBox[{ RowBox[{"FieldNumbersList", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "ss", "]"}], "[", RowBox[{"[", "FieldIndex", "]"}], "]"}], "]"}], "/.", RowBox[{ RowBox[{ RowBox[{"BosonSolutions", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "ss", "]"}], "[", RowBox[{"[", "SolnNumber", "]"}], "]"}]}], "//", "Simplify"}], ")"}], " ", "\[Equal]", " ", RowBox[{"0", "*", RowBox[{ RowBox[{"AlgebraDDMinusClosure", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", RowBox[{ RowBox[{ RowBox[{"FieldNumbersList", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "ss", "]"}], "[", RowBox[{"[", "FieldIndex", "]"}], "]"}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"FieldIndex", ",", "1", ",", RowBox[{"Length", "[", RowBox[{ RowBox[{"FieldNumbersList", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "ss", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"SolnNumber", ",", "1", ",", RowBox[{"Length", "[", RowBox[{ RowBox[{"BosonSolutions", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "ss", "]"}], "]"}]}], "}"}]}], "]"}], "\[Equal]", RowBox[{"Table", "[", RowBox[{"True", ",", RowBox[{"{", RowBox[{"FieldIndex", ",", "1", ",", RowBox[{"Length", "[", RowBox[{ RowBox[{"FieldNumbersList", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "ss", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"SolnNumber", ",", "1", ",", RowBox[{"Length", "[", RowBox[{ RowBox[{"BosonSolutions", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "ss", "]"}], "]"}]}], "}"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.7474929944818563`*^9, 3.7474930651472597`*^9}, { 3.747493152219424*^9, 3.7474932477784343`*^9}, {3.7474934178914785`*^9, 3.7474934832105627`*^9}, {3.7474935638267813`*^9, 3.747493591801224*^9}, { 3.7474963739738455`*^9, 3.7474964449288054`*^9}, {3.748795026042665*^9, 3.748795027776865*^9}, {3.748965282772246*^9, 3.7489652841431913`*^9}, { 3.748967256264186*^9, 3.7489672582499332`*^9}, {3.7489726116995783`*^9, 3.748972619365851*^9}, {3.748972682357362*^9, 3.748972791037031*^9}, { 3.748972966310253*^9, 3.748972981329225*^9}, {3.748973241500346*^9, 3.748973263939262*^9}, {3.749383657038707*^9, 3.749383665753677*^9}, { 3.7493837288161883`*^9, 3.749383732049836*^9}, {3.7493841399580865`*^9, 3.7493841441638517`*^9}, {3.7493854379925833`*^9, 3.749385461445446*^9}, { 3.7604701354692864`*^9, 3.7604701462073345`*^9}}, CellLabel-> "In[253]:=",ExpressionUUID->"72290d82-6a34-428e-add0-4c3ea129491d"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.7604687557458506`*^9, 3.760470768887027*^9}, CellLabel-> "Out[253]=",ExpressionUUID->"60345996-6d1b-4d42-a7da-f03d71a57ff3"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "4D, N=2 Tensor Algebra, both tilded ", Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ SubsuperscriptBox[ OverscriptBox["D", "~"], "a", "i"], ",", SubsuperscriptBox[ OverscriptBox["D", "~"], "b", "j"]}], "}"}], TraditionalForm]], ExpressionUUID->"39314252-3aeb-45b3-9851-2b46ccdaebd9"] }], "Subsection", 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}, {3.746807497233589*^9, 3.7468075031958065`*^9}, {3.7468296820915112`*^9, 3.7468296830639353`*^9}, {3.746831745123742*^9, 3.7468317664650936`*^9}, { 3.747485777994775*^9, 3.747485785708703*^9}, {3.7489660173011217`*^9, 3.748966020042103*^9}},ExpressionUUID->"b7de8be6-86f6-4396-9b5b-\ 049e868ca721"], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ SubsuperscriptBox[ OverscriptBox["D", "~"], "a", "i"], ",", SubsuperscriptBox[ OverscriptBox["D", "~"], "b", "j"]}], "}"}], "At"}], "=", " ", RowBox[{"2", " ", "i", " ", SubscriptBox[ RowBox[{ SuperscriptBox["\[Delta]", "ij"], "(", SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], RowBox[{ SubscriptBox["\[PartialD]", "\[Mu]"], "At"}]}]}], TraditionalForm]], "None",ExpressionUUID->"77c92d67-60c8-4ac3-9172-ab5f868cb4c6"], " , FieldNumber = 8" }], "Subsubsection", CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, { 3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, { 3.7467949641466155`*^9, 3.746794979356092*^9}, {3.746839278644126*^9, 3.7468392788196526`*^9}, {3.747486288199726*^9, 3.747486288199726*^9}, { 3.748974323535056*^9, 3.7489743255671864`*^9}},ExpressionUUID->"0bf66b21-1968-431b-bb6c-\ fa4de97e2134"], Cell[BoxData[{ RowBox[{ RowBox[{"LocalField", " ", "=", " ", RowBox[{"At", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"LocalFieldNumber", " ", "=", " ", "8"}], ";"}]}], "Input", CellChangeTimes->{{3.747496390463257*^9, 3.747496425281234*^9}, { 3.748786525924238*^9, 3.748786528879302*^9}, 3.748786783015108*^9, 3.7487869038980494`*^9, {3.748790053993587*^9, 3.748790061029888*^9}, { 3.74879017489659*^9, 3.748790205675115*^9}, {3.748790238885991*^9, 3.748790242805265*^9}}, CellLabel-> "In[254]:=",ExpressionUUID->"e42015a7-2876-4169-ad23-8af00bf36879"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDMinusClosure", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", RowBox[{"(", RowBox[{"Collect", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"AlgebraDD", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalField", "]"}], " ", "-", RowBox[{"Closure", "[", "LocalField", "]"}]}], ")"}], "/.", "LagrangianParameters"}], "/.", "VtoPauli"}], ",", "FieldListWithDerivatives", ",", "Simplify"}], "]"}], ")"}]}], ";"}]], "Input", CellChangeTimes->{{3.7474929944818563`*^9, 3.7474930651472597`*^9}, { 3.747493152219424*^9, 3.7474932477784343`*^9}, {3.7474934178914785`*^9, 3.7474934832105627`*^9}, {3.7474935638267813`*^9, 3.747493591801224*^9}, { 3.7474963739738455`*^9, 3.7474964449288054`*^9}, {3.748795026042665*^9, 3.748795027776865*^9}, {3.748965282772246*^9, 3.7489652841431913`*^9}, { 3.748967256264186*^9, 3.7489672582499332`*^9}}, CellLabel-> "In[256]:=",ExpressionUUID->"4ea5c6ad-907f-4bb2-b4c9-c6a80c0e03a8"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDEqs", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", "=", " ", RowBox[{ RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"Coefficient", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDMinusClosure", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "aa", ",", "jj", ",", "bb"}], "]"}], "]"}], ",", RowBox[{"FieldListWithDerivatives", "[", RowBox[{"[", "FieldListIndex", "]"}], "]"}]}], "]"}], ")"}], "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"FieldListIndex", ",", "1", ",", RowBox[{"Length", "[", "FieldListWithDerivatives", "]"}]}], "}"}]}], "]"}], "//", "Simplify"}], "//", "Flatten"}], ",", "True"}], "]"}], "//", "DeleteDuplicates"}]}], ";"}]], "Input", CellChangeTimes->{{3.7474933413160763`*^9, 3.7474934023534203`*^9}, { 3.747493509609391*^9, 3.7474935432809353`*^9}, {3.7474936064895945`*^9, 3.7474936161297655`*^9}, {3.7474936564987297`*^9, 3.747493747940831*^9}, { 3.747493832482408*^9, 3.7474938407374077`*^9}, {3.747496458745552*^9, 3.7474964697370515`*^9}, 3.7475105609270287`*^9, {3.748795270744809*^9, 3.748795274222528*^9}, {3.74879531011075*^9, 3.748795321437098*^9}, { 3.748795652987978*^9, 3.748795656902155*^9}, {3.748965289858489*^9, 3.748965292697112*^9}, {3.748967259459038*^9, 3.748967260813509*^9}, { 3.7489708313422194`*^9, 3.7489708325427723`*^9}}, CellLabel-> "In[257]:=",ExpressionUUID->"e873d64b-ad04-46e3-9b52-039bd22c7bad"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Length", "[", RowBox[{ RowBox[{"AlgebraDDEqs", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "]"}]], "Input", CellChangeTimes->{{3.747493880500272*^9, 3.7474938897376738`*^9}, { 3.7474964759857783`*^9, 3.747496478481014*^9}, 3.748967263446204*^9}, CellLabel-> "In[258]:=",ExpressionUUID->"c0622173-49c5-4a66-8441-622a7bfe1ba0"], Cell[BoxData["17"], "Output", CellChangeTimes->{3.760468756528957*^9, 3.7604707697079053`*^9}, CellLabel-> "Out[258]=",ExpressionUUID->"96043fec-35dd-4681-9f4d-46848595174a"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"LocalField", ",", "LocalFieldNumber"}], "]"}]], "Input", CellChangeTimes->{{3.747496499638111*^9, 3.7474965053367357`*^9}}, CellLabel-> "In[259]:=",ExpressionUUID->"ced7d947-395e-404d-bf6e-f5cd78b15496"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ SubsuperscriptBox[ OverscriptBox["D", "~"], "a", "i"], ",", SubsuperscriptBox[ OverscriptBox["D", "~"], "b", "j"]}], "}"}], "Bt"}], "=", " ", RowBox[{"2", " ", "i", " ", SubscriptBox[ RowBox[{ SuperscriptBox["\[Delta]", "ij"], "(", SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], RowBox[{ SubscriptBox["\[PartialD]", "\[Mu]"], "Bt"}]}]}], TraditionalForm]], "None",ExpressionUUID->"af466a9e-2d35-42d2-be00-6fd9e1bc5733"], " , FieldNumber = 9" }], "Subsubsection", CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, { 3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, { 3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7467956828758698`*^9, 3.746795686091745*^9}, {3.7468396501310425`*^9, 3.7468396506117897`*^9}, { 3.747486290038866*^9, 3.747486290038866*^9}, {3.7489743547755203`*^9, 3.748974372214446*^9}},ExpressionUUID->"c7922909-c56f-4248-800d-\ c84f541a50ea"], Cell[BoxData[{ RowBox[{ RowBox[{"LocalField", " ", "=", " ", RowBox[{"Bt", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"LocalFieldNumber", " ", "=", " ", "9"}], ";"}]}], "Input", CellChangeTimes->{{3.747496390463257*^9, 3.747496425281234*^9}, { 3.748786525924238*^9, 3.748786528879302*^9}, 3.748786783015108*^9, 3.7487869038980494`*^9, {3.748790053993587*^9, 3.748790061029888*^9}, { 3.74879017489659*^9, 3.748790205675115*^9}}, CellLabel-> "In[260]:=",ExpressionUUID->"58d1ab1d-66ac-48a2-8c68-a9a6d42989a3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDMinusClosure", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", RowBox[{"(", RowBox[{"Collect", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"AlgebraDD", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalField", "]"}], " ", "-", RowBox[{"Closure", "[", "LocalField", "]"}]}], ")"}], "/.", "LagrangianParameters"}], "/.", "VtoPauli"}], ",", "FieldListWithDerivatives", ",", "Simplify"}], "]"}], ")"}]}], ";"}]], "Input", CellChangeTimes->{{3.7474929944818563`*^9, 3.7474930651472597`*^9}, { 3.747493152219424*^9, 3.7474932477784343`*^9}, {3.7474934178914785`*^9, 3.7474934832105627`*^9}, {3.7474935638267813`*^9, 3.747493591801224*^9}, { 3.7474963739738455`*^9, 3.7474964449288054`*^9}, {3.748795026042665*^9, 3.748795027776865*^9}, {3.748965282772246*^9, 3.7489652841431913`*^9}, { 3.748967256264186*^9, 3.7489672582499332`*^9}}, CellLabel-> "In[262]:=",ExpressionUUID->"3f99070d-170d-46f8-a8ba-7b837d643bc8"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDEqs", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", "=", " ", RowBox[{ RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"Coefficient", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDMinusClosure", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "aa", ",", "jj", ",", "bb"}], "]"}], "]"}], ",", RowBox[{"FieldListWithDerivatives", "[", RowBox[{"[", "FieldListIndex", "]"}], "]"}]}], "]"}], ")"}], "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"FieldListIndex", ",", "1", ",", RowBox[{"Length", "[", "FieldListWithDerivatives", "]"}]}], "}"}]}], "]"}], "//", "Simplify"}], "//", "Flatten"}], ",", "True"}], "]"}], "//", "DeleteDuplicates"}]}], ";"}]], "Input", CellChangeTimes->{{3.7474933413160763`*^9, 3.7474934023534203`*^9}, { 3.747493509609391*^9, 3.7474935432809353`*^9}, {3.7474936064895945`*^9, 3.7474936161297655`*^9}, {3.7474936564987297`*^9, 3.747493747940831*^9}, { 3.747493832482408*^9, 3.7474938407374077`*^9}, {3.747496458745552*^9, 3.7474964697370515`*^9}, 3.7475105609270287`*^9, {3.748795270744809*^9, 3.748795274222528*^9}, {3.74879531011075*^9, 3.748795321437098*^9}, { 3.748795652987978*^9, 3.748795656902155*^9}, {3.748965289858489*^9, 3.748965292697112*^9}, {3.748967259459038*^9, 3.748967260813509*^9}, { 3.7489708313422194`*^9, 3.7489708325427723`*^9}}, CellLabel-> "In[263]:=",ExpressionUUID->"6edfe89c-31d8-44aa-a97f-4c6b9f6321c1"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Length", "[", RowBox[{ RowBox[{"AlgebraDDEqs", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "]"}]], "Input", CellChangeTimes->{{3.747493880500272*^9, 3.7474938897376738`*^9}, { 3.7474964759857783`*^9, 3.747496478481014*^9}, 3.748967263446204*^9}, CellLabel-> "In[264]:=",ExpressionUUID->"21eb5716-31f8-4ace-811c-a5c5b4ced669"], Cell[BoxData["17"], "Output", CellChangeTimes->{3.760468757454933*^9, 3.760470770617496*^9}, CellLabel-> "Out[264]=",ExpressionUUID->"d338530b-ff4c-4fc2-8f33-cb0d12a4056d"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"LocalField", ",", "LocalFieldNumber"}], "]"}]], "Input", CellChangeTimes->{{3.747496499638111*^9, 3.7474965053367357`*^9}}, CellLabel-> "In[265]:=",ExpressionUUID->"54e0e7c9-3f3f-46ce-8df4-00575e8513b5"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ SubsuperscriptBox[ OverscriptBox["D", "~"], "a", "i"], ",", SubsuperscriptBox[ OverscriptBox["D", "~"], "b", "j"]}], "}"}], "Ft"}], "=", " ", RowBox[{"2", " ", "i", " ", SubscriptBox[ RowBox[{ SuperscriptBox["\[Delta]", "ij"], "(", SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], RowBox[{ SubscriptBox["\[PartialD]", "\[Mu]"], "Ft"}]}]}], TraditionalForm]], "None",ExpressionUUID->"d183824e-63ef-4642-8b99-cb5bd14eac9e"], " , FieldNumber = 10" }], "Subsubsection", CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, { 3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, { 3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7467956828758698`*^9, 3.746795686091745*^9}, {3.7468041140403814`*^9, 3.7468041142897005`*^9}, { 3.7468347489001255`*^9, 3.7468347489001255`*^9}, {3.746834847337947*^9, 3.746834847884678*^9}, {3.7468396653420925`*^9, 3.7468396657549887`*^9}, { 3.7474862914783926`*^9, 3.7474862914783926`*^9}, {3.7489743566164293`*^9, 3.748974374304059*^9}},ExpressionUUID->"32c90936-2bcd-4a1d-9122-\ 493a3e262de3"], Cell[BoxData[{ RowBox[{ RowBox[{"LocalField", " ", "=", " ", RowBox[{"Ft", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"LocalFieldNumber", " ", "=", " ", "10"}], ";"}]}], "Input", CellChangeTimes->{{3.747496390463257*^9, 3.747496425281234*^9}, { 3.748786525924238*^9, 3.748786528879302*^9}, 3.748786783015108*^9, 3.7487869038980494`*^9, {3.748790053993587*^9, 3.748790061029888*^9}, { 3.74879017489659*^9, 3.7487901786479187`*^9}}, CellLabel-> "In[266]:=",ExpressionUUID->"9a4d21de-6e7a-4c84-be24-d9407ead1adc"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDMinusClosure", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", RowBox[{"(", RowBox[{"Collect", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"AlgebraDD", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalField", "]"}], " ", "-", RowBox[{"Closure", "[", "LocalField", "]"}]}], ")"}], "/.", "LagrangianParameters"}], "/.", "VtoPauli"}], ",", "FieldListWithDerivatives", ",", "Simplify"}], "]"}], ")"}]}], ";"}]], "Input", CellChangeTimes->{{3.7474929944818563`*^9, 3.7474930651472597`*^9}, { 3.747493152219424*^9, 3.7474932477784343`*^9}, {3.7474934178914785`*^9, 3.7474934832105627`*^9}, {3.7474935638267813`*^9, 3.747493591801224*^9}, { 3.7474963739738455`*^9, 3.7474964449288054`*^9}, {3.748795026042665*^9, 3.748795027776865*^9}, {3.748965282772246*^9, 3.7489652841431913`*^9}, { 3.748967256264186*^9, 3.7489672582499332`*^9}}, CellLabel-> "In[268]:=",ExpressionUUID->"0673736b-9904-4af2-bce1-a2d02ed1b6e0"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDEqs", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", "=", " ", RowBox[{ RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"Coefficient", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDMinusClosure", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "aa", ",", "jj", ",", "bb"}], "]"}], "]"}], ",", RowBox[{"FieldListWithDerivatives", "[", RowBox[{"[", "FieldListIndex", "]"}], "]"}]}], "]"}], ")"}], "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"FieldListIndex", ",", "1", ",", RowBox[{"Length", "[", "FieldListWithDerivatives", "]"}]}], "}"}]}], "]"}], "//", "Simplify"}], "//", "Flatten"}], ",", "True"}], "]"}], "//", "DeleteDuplicates"}]}], ";"}]], "Input", CellChangeTimes->{{3.7474933413160763`*^9, 3.7474934023534203`*^9}, { 3.747493509609391*^9, 3.7474935432809353`*^9}, {3.7474936064895945`*^9, 3.7474936161297655`*^9}, {3.7474936564987297`*^9, 3.747493747940831*^9}, { 3.747493832482408*^9, 3.7474938407374077`*^9}, {3.747496458745552*^9, 3.7474964697370515`*^9}, 3.7475105609270287`*^9, {3.748795270744809*^9, 3.748795274222528*^9}, {3.74879531011075*^9, 3.748795321437098*^9}, { 3.748795652987978*^9, 3.748795656902155*^9}, {3.748965289858489*^9, 3.748965292697112*^9}, {3.748967259459038*^9, 3.748967260813509*^9}, { 3.7489708313422194`*^9, 3.7489708325427723`*^9}}, CellLabel-> "In[269]:=",ExpressionUUID->"7db880cd-021c-483f-ad2a-23f504885947"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Length", "[", RowBox[{ RowBox[{"AlgebraDDEqs", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "]"}]], "Input", CellChangeTimes->{{3.747493880500272*^9, 3.7474938897376738`*^9}, { 3.7474964759857783`*^9, 3.747496478481014*^9}, 3.748967263446204*^9}, CellLabel-> "In[270]:=",ExpressionUUID->"a81492ff-879e-49ad-a797-584f3195dbc3"], Cell[BoxData["20"], "Output", CellChangeTimes->{3.7604687597573557`*^9, 3.76047077293904*^9}, CellLabel-> "Out[270]=",ExpressionUUID->"62ff9c1b-98a2-49b4-98e7-61ee1f14fd0a"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"LocalField", ",", "LocalFieldNumber"}], "]"}]], "Input", CellChangeTimes->{{3.747496499638111*^9, 3.7474965053367357`*^9}}, CellLabel-> "In[271]:=",ExpressionUUID->"eec5d6c1-d1aa-4ef1-860f-cda8a465b998"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ SubsuperscriptBox[ OverscriptBox["D", "~"], "a", "i"], ",", SubsuperscriptBox[ OverscriptBox["D", "~"], "b", "j"]}], "}"}], "Gt"}], "=", " ", RowBox[{"2", " ", "i", " ", SubscriptBox[ RowBox[{ SuperscriptBox["\[Delta]", "ij"], "(", SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], RowBox[{ SubscriptBox["\[PartialD]", "\[Mu]"], "Gt"}]}]}], TraditionalForm]], "None",ExpressionUUID->"1ac734db-1bee-4536-96ac-b2e6b30f5ec8"], ", FieldNumber = 11 " }], "Subsubsection", CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, { 3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, { 3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7467956828758698`*^9, 3.746795686091745*^9}, {3.7468041304980903`*^9, 3.7468041309100285`*^9}, { 3.746839677582308*^9, 3.7468396778076735`*^9}, {3.7474862929907045`*^9, 3.7474862929907045`*^9}, {3.748974358387362*^9, 3.7489743760634737`*^9}},ExpressionUUID->"44f137cd-9a8f-4d45-b647-\ 5cb306386138"], Cell[BoxData[{ RowBox[{ RowBox[{"LocalField", " ", "=", " ", RowBox[{"Gt", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"LocalFieldNumber", " ", "=", " ", "11"}], ";"}]}], "Input", CellChangeTimes->{{3.747496390463257*^9, 3.747496425281234*^9}, { 3.748786525924238*^9, 3.748786528879302*^9}, 3.748786783015108*^9, 3.7487869038980494`*^9, {3.748790053993587*^9, 3.748790061029888*^9}}, CellLabel-> "In[272]:=",ExpressionUUID->"7220b935-f2aa-4e42-b93b-2135a234ab7b"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDMinusClosure", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", RowBox[{"(", RowBox[{"Collect", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"AlgebraDD", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalField", "]"}], " ", "-", RowBox[{"Closure", "[", "LocalField", "]"}]}], ")"}], "/.", "LagrangianParameters"}], "/.", "VtoPauli"}], ",", "FieldListWithDerivatives", ",", "Simplify"}], "]"}], ")"}]}], ";"}]], "Input", CellChangeTimes->{{3.7474929944818563`*^9, 3.7474930651472597`*^9}, { 3.747493152219424*^9, 3.7474932477784343`*^9}, {3.7474934178914785`*^9, 3.7474934832105627`*^9}, {3.7474935638267813`*^9, 3.747493591801224*^9}, { 3.7474963739738455`*^9, 3.7474964449288054`*^9}, {3.748795026042665*^9, 3.748795027776865*^9}, {3.748965282772246*^9, 3.7489652841431913`*^9}, { 3.748967256264186*^9, 3.7489672582499332`*^9}}, CellLabel-> "In[274]:=",ExpressionUUID->"dfe2f84c-13bb-4c61-b36d-b217a19f0b28"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDEqs", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", "=", " ", RowBox[{ RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"Coefficient", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDMinusClosure", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "aa", ",", "jj", ",", "bb"}], "]"}], "]"}], ",", RowBox[{"FieldListWithDerivatives", "[", RowBox[{"[", "FieldListIndex", "]"}], "]"}]}], "]"}], ")"}], "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"FieldListIndex", ",", "1", ",", RowBox[{"Length", "[", "FieldListWithDerivatives", "]"}]}], "}"}]}], "]"}], "//", "Simplify"}], "//", "Flatten"}], ",", "True"}], "]"}], "//", "DeleteDuplicates"}]}], ";"}]], "Input", CellChangeTimes->{{3.7474933413160763`*^9, 3.7474934023534203`*^9}, { 3.747493509609391*^9, 3.7474935432809353`*^9}, {3.7474936064895945`*^9, 3.7474936161297655`*^9}, {3.7474936564987297`*^9, 3.747493747940831*^9}, { 3.747493832482408*^9, 3.7474938407374077`*^9}, {3.747496458745552*^9, 3.7474964697370515`*^9}, 3.7475105609270287`*^9, {3.748795270744809*^9, 3.748795274222528*^9}, {3.74879531011075*^9, 3.748795321437098*^9}, { 3.748795652987978*^9, 3.748795656902155*^9}, {3.748965289858489*^9, 3.748965292697112*^9}, {3.748967259459038*^9, 3.748967260813509*^9}, { 3.7489708313422194`*^9, 3.7489708325427723`*^9}}, CellLabel-> "In[275]:=",ExpressionUUID->"58796b12-1eba-4c33-b6ef-0d0765406f5c"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Length", "[", RowBox[{ RowBox[{"AlgebraDDEqs", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "]"}]], "Input", CellChangeTimes->{{3.747493880500272*^9, 3.7474938897376738`*^9}, { 3.7474964759857783`*^9, 3.747496478481014*^9}, 3.748967263446204*^9}, CellLabel-> "In[276]:=",ExpressionUUID->"84c23512-a205-4d0d-8111-359bdb20dbb8"], Cell[BoxData["18"], "Output", CellChangeTimes->{3.7604687619941945`*^9, 3.7604707751847*^9}, CellLabel-> "Out[276]=",ExpressionUUID->"a1bd6555-f753-4319-848f-1a31c5c0c577"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"LocalField", ",", "LocalFieldNumber"}], "]"}]], "Input", CellChangeTimes->{{3.747496499638111*^9, 3.7474965053367357`*^9}}, CellLabel-> "In[277]:=",ExpressionUUID->"a27d0b3a-5080-4409-a900-11b17c2942c8"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ SubsuperscriptBox[ OverscriptBox["D", "~"], "a", "i"], ",", SubsuperscriptBox[ OverscriptBox["D", "~"], "b", "j"]}], "}"}], "\[CurlyPhi]"}], "=", " ", RowBox[{"2", " ", "i", " ", SubscriptBox[ RowBox[{ SuperscriptBox["\[Delta]", "ij"], "(", SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], RowBox[{ SubscriptBox["\[PartialD]", "\[Mu]"], "\[CurlyPhi]"}]}]}], TraditionalForm]], "None",ExpressionUUID-> "668cb412-8a18-47cb-a073-36792b1bc624"], ", FieldNumber = 12 " }], "Subsubsection", CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, { 3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, { 3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7467956828758698`*^9, 3.746795686091745*^9}, {3.7468041304980903`*^9, 3.7468041309100285`*^9}, { 3.746804167332865*^9, 3.7468041675702257`*^9}, {3.746839701322327*^9, 3.7468397017451973`*^9}, {3.747486294430385*^9, 3.747486294430385*^9}, { 3.7489743601067057`*^9, 3.748974377936059*^9}},ExpressionUUID->"fe7e20ce-ad90-453b-9c35-\ 2b63cc0b81ff"], Cell[BoxData[{ RowBox[{ RowBox[{"LocalField", " ", "=", " ", RowBox[{"\[CurlyPhi]", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"LocalFieldNumber", " ", "=", " ", "12"}], ";"}]}], "Input", CellChangeTimes->{{3.747496390463257*^9, 3.747496425281234*^9}, { 3.748786525924238*^9, 3.748786528879302*^9}, 3.748786783015108*^9, 3.7487869038980494`*^9}, CellLabel-> "In[278]:=",ExpressionUUID->"58d9eea4-d638-433f-a224-ef04d7f5bff4"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDMinusClosure", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", RowBox[{"(", RowBox[{"Collect", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"AlgebraDD", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalField", "]"}], " ", "-", RowBox[{"Closure", "[", "LocalField", "]"}]}], ")"}], "/.", "LagrangianParameters"}], "/.", "VtoPauli"}], ",", "FieldListWithDerivatives", ",", "Simplify"}], "]"}], ")"}]}], ";"}]], "Input", CellChangeTimes->{{3.7474929944818563`*^9, 3.7474930651472597`*^9}, { 3.747493152219424*^9, 3.7474932477784343`*^9}, {3.7474934178914785`*^9, 3.7474934832105627`*^9}, {3.7474935638267813`*^9, 3.747493591801224*^9}, { 3.7474963739738455`*^9, 3.7474964449288054`*^9}, {3.748795026042665*^9, 3.748795027776865*^9}, {3.748965282772246*^9, 3.7489652841431913`*^9}, { 3.748967256264186*^9, 3.7489672582499332`*^9}}, CellLabel-> "In[280]:=",ExpressionUUID->"08fc3746-228b-4196-9d20-f2ecc8fe595f"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDEqs", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", "=", " ", RowBox[{ RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"Coefficient", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDMinusClosure", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "aa", ",", "jj", ",", "bb"}], "]"}], "]"}], ",", RowBox[{"FieldListWithDerivatives", "[", RowBox[{"[", "FieldListIndex", "]"}], "]"}]}], "]"}], ")"}], "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"FieldListIndex", ",", "1", ",", RowBox[{"Length", "[", "FieldListWithDerivatives", "]"}]}], "}"}]}], "]"}], "//", "Simplify"}], "//", "Flatten"}], ",", "True"}], "]"}], "//", "DeleteDuplicates"}]}], ";"}]], "Input", CellChangeTimes->{{3.7474933413160763`*^9, 3.7474934023534203`*^9}, { 3.747493509609391*^9, 3.7474935432809353`*^9}, {3.7474936064895945`*^9, 3.7474936161297655`*^9}, {3.7474936564987297`*^9, 3.747493747940831*^9}, { 3.747493832482408*^9, 3.7474938407374077`*^9}, {3.747496458745552*^9, 3.7474964697370515`*^9}, 3.7475105609270287`*^9, {3.748795270744809*^9, 3.748795274222528*^9}, {3.74879531011075*^9, 3.748795321437098*^9}, { 3.748795652987978*^9, 3.748795656902155*^9}, {3.748965289858489*^9, 3.748965292697112*^9}, {3.748967259459038*^9, 3.748967260813509*^9}, { 3.7489708313422194`*^9, 3.7489708325427723`*^9}}, CellLabel-> "In[281]:=",ExpressionUUID->"49fba5cc-20a3-45b1-8494-9dca227cca34"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Length", "[", RowBox[{ RowBox[{"AlgebraDDEqs", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "]"}]], "Input", CellChangeTimes->{{3.747493880500272*^9, 3.7474938897376738`*^9}, { 3.7474964759857783`*^9, 3.747496478481014*^9}, 3.748967263446204*^9}, CellLabel-> "In[282]:=",ExpressionUUID->"5ebea7b2-ccc1-4bbf-9dc3-0c534e972a80"], Cell[BoxData["17"], "Output", CellChangeTimes->{3.760468762863901*^9, 3.760470776027835*^9}, CellLabel-> "Out[282]=",ExpressionUUID->"f8ad5457-1abe-4b3e-8be4-b2776e1fd620"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"LocalField", ",", "LocalFieldNumber"}], "]"}]], "Input", CellChangeTimes->{{3.747496499638111*^9, 3.7474965053367357`*^9}}, CellLabel-> "In[283]:=",ExpressionUUID->"f2d6cc8b-5d5e-49f6-a394-7b8b7f365166"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ SubsuperscriptBox[ OverscriptBox["D", "~"], "a", "i"], ",", SubsuperscriptBox[ OverscriptBox["D", "~"], "b", "j"]}], "}"}], SubscriptBox["B", "\[Mu]\[Nu]"]}], "=", " ", RowBox[{ RowBox[{"2", " ", "i", " ", SubscriptBox[ RowBox[{ SuperscriptBox["\[Delta]", "ij"], "(", SuperscriptBox["\[Gamma]", "\[Alpha]"], ")"}], "ab"], RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], SubscriptBox["B", "\[Mu]\[Nu]"]}]}], " ", "-", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"[", "\[Mu]"}]], SubsuperscriptBox[ OverscriptBox[ OverscriptBox["\[CapitalLambda]", "~"], "~"], RowBox[{ RowBox[{"\[Nu]", "]"}], "ab"}], "ij"]}]}]}], TraditionalForm]], "None",ExpressionUUID->"ce1c437d-2d13-4007-8308-05896e693d32"], " ,\nFieldNumber = 14\n", Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox[ OverscriptBox[ OverscriptBox["\[CapitalLambda]", "~"], "~"], "\[Nu]ab", "ij"], "=", " ", RowBox[{ RowBox[{"2", " ", "i", " ", RowBox[{"(", RowBox[{ SuperscriptBox["b1\[Delta]", "ij"], " ", "+", " ", RowBox[{"b2", " ", SuperscriptBox[ RowBox[{"(", SuperscriptBox["\[Sigma]", "1"], ")"}], "ij"]}], "+", " ", RowBox[{"b3", " ", SuperscriptBox[ RowBox[{"(", SuperscriptBox["\[Sigma]", "3"], ")"}], "ij"]}]}], " ", ")"}], SubscriptBox[ RowBox[{"(", SuperscriptBox["\[Gamma]", "\[Alpha]"], ")"}], "ab"], SubscriptBox["B", "\[Alpha]\[Nu]"]}], " ", "+", " ", RowBox[{"2", " ", "i", " ", "b4", " ", SuperscriptBox[ RowBox[{"(", SuperscriptBox["\[Sigma]", "2"], ")"}], "ij"], " ", SubscriptBox[ RowBox[{ SubscriptBox["\[Epsilon]", "\[Nu]\[Rho]\[Alpha]\[Beta]"], "(", RowBox[{ SuperscriptBox["\[Gamma]", "5"], SuperscriptBox["\[Gamma]", "\[Rho]"]}], ")"}], "ab"], SuperscriptBox["B", "\[Alpha]\[Beta]"]}], "+", " ", RowBox[{"i", " ", RowBox[{"(", RowBox[{ RowBox[{"b5", " ", SuperscriptBox["\[Delta]", "ij"]}], " ", "+", " ", RowBox[{"b6", " ", SuperscriptBox[ RowBox[{"(", SuperscriptBox["\[Sigma]", "1"], ")"}], "ij"]}], "+", " ", RowBox[{"b7", " ", SuperscriptBox[ RowBox[{"(", SuperscriptBox["\[Sigma]", "3"], ")"}], "ij"]}]}], " ", ")"}], SubscriptBox[ RowBox[{"(", SubscriptBox["\[Gamma]", "\[Nu]"], ")"}], "ab"], OverscriptBox["A", "~"]}], " ", "-", " ", RowBox[{"i", " ", "b8", " ", SuperscriptBox[ RowBox[{"(", SuperscriptBox["\[Sigma]", "2"], ")"}], "ij"], SubscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", "5"], SubscriptBox["\[Gamma]", "\[Nu]"]}], ")"}], "ab"], OverscriptBox["B", "~"]}], " ", "-", " ", RowBox[{"i", " ", RowBox[{"(", RowBox[{ RowBox[{"b9", " ", SuperscriptBox["\[Delta]", "ij"]}], " ", "+", " ", RowBox[{"b10", " ", SuperscriptBox[ RowBox[{"(", SuperscriptBox["\[Sigma]", "1"], ")"}], "ij"]}], "+", " ", RowBox[{"b11", " ", SuperscriptBox[ RowBox[{"(", SuperscriptBox["\[Sigma]", "3"], ")"}], "ij"]}]}], " ", ")"}], SubscriptBox[ RowBox[{"(", SubscriptBox["\[Gamma]", "\[Nu]"], ")"}], "ab"], OverscriptBox["\[CurlyPhi]", "~"]}]}]}], TraditionalForm]], ExpressionUUID->"8cbec652-86b9-4c4e-bd4e-644503f70ccd"] }], "Subsubsection", CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, { 3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, { 3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7467956828758698`*^9, 3.746795686091745*^9}, {3.7468041304980903`*^9, 3.7468041309100285`*^9}, { 3.746804200318131*^9, 3.746804240053707*^9}, {3.74680432554387*^9, 3.746804336909229*^9}, {3.7468050801419106`*^9, 3.746805100373829*^9}, { 3.7468397665571055`*^9, 3.746839802623133*^9}, {3.74684113959402*^9, 3.7468412441025996`*^9}, {3.747486297838811*^9, 3.747486297838811*^9}, { 3.748974368374832*^9, 3.748974387624366*^9}, {3.748974800366748*^9, 3.7489748283377237`*^9}, {3.748975031260829*^9, 3.74897519200307*^9}, { 3.748975280187872*^9, 3.74897528043862*^9}, {3.7489753380030317`*^9, 3.748975384519353*^9}, {3.748976024242681*^9, 3.7489760469667788`*^9}},ExpressionUUID->"cec81870-08aa-4b56-aa86-\ 4f2cace8e8d9"], Cell[BoxData[ RowBox[{ RowBox[{"LocalFieldNumber", " ", "=", " ", "14"}], ";"}]], "Input", CellChangeTimes->{{3.748975431348178*^9, 3.7489754349879637`*^9}}, CellLabel-> "In[284]:=",ExpressionUUID->"d2941532-c3ea-48ef-a02c-5d208964447f"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalLambda]", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "nu_", "]"}], "[", RowBox[{"ii_", ",", "jj_"}], "]"}], "[", RowBox[{"aa_", ",", "bb_"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", ":=", " ", RowBox[{ RowBox[{"2", " ", "I", " ", RowBox[{"(", RowBox[{ RowBox[{"b1", " ", RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}]}], " ", "+", " ", RowBox[{"b2", " ", RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}]}], " ", "+", " ", RowBox[{"b3", " ", RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}]}]}], ")"}], RowBox[{"Sum", "[", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]down", "[", "ap", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"Bmn", "[", RowBox[{"ap", ",", "nu"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"ap", ",", "0", ",", "3"}], "}"}]}], "]"}]}], " ", "+", " ", RowBox[{"2", " ", "I", " ", "b4", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"\[Epsilon]", "[", RowBox[{"nu", ",", "ro", ",", "ap", ",", "bt"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "ro", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"Bmnup", "[", RowBox[{"ap", ",", "bt"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"ro", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"ap", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"bt", ",", "0", ",", "3"}], "}"}]}], "]"}]}], "+", " ", RowBox[{"I", " ", RowBox[{"(", RowBox[{ RowBox[{"b5", " ", RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}]}], " ", "+", " ", RowBox[{"b6", " ", RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}]}], " ", "+", " ", RowBox[{"b7", " ", RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}]}]}], ")"}], " ", RowBox[{ RowBox[{"\[Gamma]stdowndown", "[", "nu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"At", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", "-", " ", RowBox[{"I", " ", "b8", " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]stdowndown", "[", "nu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], " ", RowBox[{"Bt", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", "-", " ", RowBox[{"I", " ", RowBox[{"(", RowBox[{ RowBox[{"b9", " ", RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}]}], " ", "+", " ", RowBox[{"b10", " ", RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}]}], " ", "+", " ", RowBox[{"b11", " ", RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}]}]}], ")"}], " ", RowBox[{ RowBox[{"\[Gamma]stdowndown", "[", "nu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"\[CurlyPhi]", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]}]], "Input", CellChangeTimes->{{3.746804354420742*^9, 3.746804354698959*^9}, { 3.7468050126457977`*^9, 3.746805074136135*^9}, {3.74680511128192*^9, 3.746805165236924*^9}, {3.7468053158322053`*^9, 3.7468053335810037`*^9}, { 3.74680550552096*^9, 3.746805530545571*^9}, {3.746805594980097*^9, 3.746805595781765*^9}, {3.746839806824238*^9, 3.7468398386752944`*^9}, { 3.746840467179223*^9, 3.746840577643236*^9}, {3.7468406269686317`*^9, 3.7468406318670626`*^9}, {3.748975454158135*^9, 3.748975573767836*^9}, { 3.748975737676373*^9, 3.7489758261756477`*^9}, {3.7489760524656143`*^9, 3.748976052591613*^9}, {3.749392003229625*^9, 3.749392016992*^9}}, CellLabel-> "In[285]:=",ExpressionUUID->"46bb89e4-1ff7-4c63-9360-458b8031696c"], Cell[BoxData[ RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalLambda]Table", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "nu", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalLambda]", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "nu", "]"}], "[", RowBox[{"ii", ",", "jj"}], "]"}], "[", RowBox[{"aa", ",", "bb"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}], ";"}]], "Input", CellChangeTimes->{{3.746805604570979*^9, 3.746805658227662*^9}, { 3.746806044124957*^9, 3.746806044220275*^9}, {3.7468406679832497`*^9, 3.746840718939666*^9}, {3.748976054744322*^9, 3.74897607333829*^9}, { 3.7493920180869985`*^9, 3.749392031308953*^9}}, CellLabel-> "In[286]:=",ExpressionUUID->"91202c36-785f-4f07-ad29-db923fc6eb24"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDMinusClosure", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", RowBox[{"Collect", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"AlgebraDD", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", RowBox[{ RowBox[{"Bmn", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}], " ", "-", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Closure", "[", RowBox[{ RowBox[{"Bmn", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "-", " ", RowBox[{"(", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalLambda]Table", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "nu", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}], "-", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalLambda]Table", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "mu", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "nu", "]"}]}], "]"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], " ", ")"}], "/.", "LagrangianParameters"}], "/.", "VtoPauli"}], ",", "FieldListWithDerivatives", ",", "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.738583987798254*^9}, {3.746795246915931*^9, 3.7467952488448153`*^9}, {3.7467958844446697`*^9, 3.746795886747491*^9}, { 3.7468041314416847`*^9, 3.746804147477379*^9}, {3.7468043445732574`*^9, 3.746804347340818*^9}, {3.746805172730974*^9, 3.746805251677202*^9}, { 3.7468055536216993`*^9, 3.7468055583468037`*^9}, {3.7468056889959183`*^9, 3.7468056937751846`*^9}, {3.746806056497301*^9, 3.7468060582362785`*^9}, 3.746807159168933*^9, {3.7468447252976427`*^9, 3.7468447276633115`*^9}, 3.747486056829548*^9, {3.748966800357626*^9, 3.748966822426412*^9}, { 3.748966855769305*^9, 3.748966899217395*^9}, {3.748967060423177*^9, 3.7489670624186296`*^9}, {3.748967139679923*^9, 3.748967140446787*^9}, { 3.748967289390843*^9, 3.748967290234539*^9}, {3.748976150022376*^9, 3.748976186398181*^9}, {3.748976221981041*^9, 3.74897625273479*^9}, { 3.74939203703743*^9, 3.7493920457171974`*^9}}, CellLabel-> "In[287]:=",ExpressionUUID->"b9a811ae-6bdd-4635-b163-db3fb3c18c68"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Dimensions", "[", RowBox[{ RowBox[{"AlgebraDDMinusClosure", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "]"}]], "Input", CellChangeTimes->{{3.748967000132847*^9, 3.7489670075291*^9}, { 3.748967065448983*^9, 3.7489670662308064`*^9}, 3.748967291722481*^9}, CellLabel-> "In[288]:=",ExpressionUUID->"b33f5c54-1406-44dc-b7fe-537819d95cc3"], Cell[BoxData[ RowBox[{"{", RowBox[{"4", ",", "4", ",", "2", ",", "4", ",", "2", ",", "4"}], "}"}]], "Output", CellChangeTimes->{3.7604687710626354`*^9, 3.760470784114619*^9}, CellLabel-> "Out[288]=",ExpressionUUID->"6905b40f-7c0f-413a-b3e7-224419048b99"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDEqs", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", "=", " ", RowBox[{ RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"Coefficient", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDMinusClosure", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "[", RowBox[{"[", RowBox[{ "mu", ",", "nu", ",", "ii", ",", "aa", ",", "jj", ",", "bb"}], "]"}], "]"}], ",", RowBox[{"FieldListWithDerivatives", "[", RowBox[{"[", "FieldListIndex", "]"}], "]"}]}], "]"}], ")"}], "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"mu", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"FieldListIndex", ",", "1", ",", RowBox[{"Length", "[", "FieldListWithDerivatives", "]"}]}], "}"}]}], "]"}], "//", "Simplify"}], "//", "Flatten"}], ",", "True"}], "]"}], "//", "DeleteDuplicates"}]}], ";"}]], "Input", CellChangeTimes->{{3.7474933413160763`*^9, 3.7474934023534203`*^9}, { 3.747493509609391*^9, 3.7474935432809353`*^9}, {3.7474936064895945`*^9, 3.7474936161297655`*^9}, {3.7474936564987297`*^9, 3.747493747940831*^9}, { 3.747493832482408*^9, 3.7474938407374077`*^9}, {3.747496458745552*^9, 3.7474964697370515`*^9}, 3.7475105609270287`*^9, {3.748795270744809*^9, 3.748795274222528*^9}, {3.74879531011075*^9, 3.748795321437098*^9}, { 3.748795652987978*^9, 3.748795656902155*^9}, {3.748965289858489*^9, 3.748965292697112*^9}, {3.74896646470501*^9, 3.748966481142193*^9}, { 3.748966980329461*^9, 3.7489669917689943`*^9}, {3.748967292501384*^9, 3.7489672932881193`*^9}, {3.7489707899595118`*^9, 3.748970791327216*^9}, { 3.7489763001679688`*^9, 3.748976310828599*^9}}, CellLabel-> "In[289]:=",ExpressionUUID->"c9d9ab41-e5b8-4549-a9f4-75288eba6106"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Length", "[", RowBox[{ RowBox[{"AlgebraDDEqs", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "]"}]], "Input", CellChangeTimes->{{3.747493880500272*^9, 3.7474938897376738`*^9}, { 3.7474964759857783`*^9, 3.747496478481014*^9}, 3.74896729732123*^9, { 3.748969441641419*^9, 3.7489694468799477`*^9}}, CellLabel-> "In[290]:=",ExpressionUUID->"cdbcbd12-dbd7-422f-badd-01d1e6f93b34"], Cell[BoxData["46"], "Output", CellChangeTimes->{3.760468780983872*^9, 3.7604707937977104`*^9}, CellLabel-> "Out[290]=",ExpressionUUID->"085f35b8-fb11-4f7b-81a2-b7e329293b1f"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", "LocalFieldNumber", "]"}]], "Input", CellChangeTimes->{{3.747496499638111*^9, 3.7474965053367357`*^9}, { 3.748966504446074*^9, 3.748966505904224*^9}}, CellLabel-> "In[291]:=",ExpressionUUID->"cd920bd3-2a36-4e7e-965e-76dfc43b85d5"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Solving Equations, solution is stored in FinalSolutions[tt1,tt2][ss] Solution Set ss= 2 for this the Tensor Algebra\ \>", "Subsubsection", CellChangeTimes->{{3.7489677698312817`*^9, 3.748967780199047*^9}, { 3.748972486308576*^9, 3.74897251391574*^9}, {3.7493835711024337`*^9, 3.7493835816704755`*^9}, {3.749383699006539*^9, 3.7493837028302116`*^9}, 3.749383740939508*^9, {3.7493921692999477`*^9, 3.7493921752034883`*^9}},ExpressionUUID->"19da1e95-28a4-469d-a45c-\ 1612bf8b6d93"], Cell[BoxData[{ RowBox[{ RowBox[{"Clear", "[", "ss", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ss", " ", "=", " ", "2"}], ";"}]}], "Input", CellChangeTimes->{{3.749383513236498*^9, 3.7493835160946445`*^9}, { 3.7493837050150137`*^9, 3.7493837051269436`*^9}, {3.749383982974845*^9, 3.7493839862306633`*^9}, 3.7493921716442194`*^9}, CellLabel-> "In[292]:=",ExpressionUUID->"5d72daaf-293a-46fa-b279-97d45d6ba13d"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"BosonNumbersList", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "ss", "]"}], " ", "=", " ", RowBox[{"{", RowBox[{"8", ",", "9", ",", "10", ",", "11", ",", "12", ",", "14"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"FieldNumbersList", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "ss", "]"}], " ", "=", " ", RowBox[{"{", RowBox[{ "8", ",", "9", ",", "10", ",", "11", ",", "12", ",", "14", ",", "6"}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.748969333121933*^9, 3.7489693988383923`*^9}, 3.7493835981924334`*^9, 3.749383714681528*^9, {3.749384061791787*^9, 3.749384083486664*^9}, {3.7493841197508016`*^9, 3.7493841201349845`*^9}, { 3.7493850825114827`*^9, 3.7493850887423773`*^9}, {3.7493921420769157`*^9, 3.7493921466357546`*^9}}, CellLabel-> "In[294]:=",ExpressionUUID->"4a59b7da-dd14-424c-9154-6a6a34aa486a"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"BosonAlgebraDDEqs", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "ss", "]"}], "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"AlgebraDDEqs", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", RowBox[{ RowBox[{ RowBox[{"BosonNumbersList", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "ss", "]"}], "[", RowBox[{"[", "Index", "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"Index", ",", "1", ",", RowBox[{"Length", "[", RowBox[{ RowBox[{"BosonNumbersList", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "ss", "]"}], "]"}]}], "}"}]}], "]"}], "//", "Flatten"}], "//", "Simplify"}], "//", "DeleteDuplicates"}]}], ";"}]], "Input", CellChangeTimes->{{3.748969325590454*^9, 3.748969329010118*^9}, { 3.7489693756376123`*^9, 3.74896943185653*^9}, {3.74896948893606*^9, 3.748969543541419*^9}, {3.748969623685299*^9, 3.748969652021121*^9}, { 3.748969966308803*^9, 3.748969967451939*^9}, {3.7489715297447653`*^9, 3.748971546561779*^9}, {3.749383598820228*^9, 3.7493836035464973`*^9}, { 3.749383715663767*^9, 3.7493837165662193`*^9}, {3.749384135140419*^9, 3.749384136227512*^9}, 3.749384174767242*^9}, CellLabel-> "In[296]:=",ExpressionUUID->"1f1e6656-0b41-4625-b2fd-89feb4b475da"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Dimensions", "[", RowBox[{ RowBox[{"BosonAlgebraDDEqs", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "ss", "]"}], "]"}]], "Input", CellChangeTimes->{{3.748969546970845*^9, 3.748969556759946*^9}, { 3.748971556754339*^9, 3.748971558346437*^9}, 3.7493836052127523`*^9, 3.749383717173459*^9}, CellLabel-> "In[297]:=",ExpressionUUID->"b34f1ad4-b0c0-45f0-9975-109f8ef04c69"], Cell[BoxData[ RowBox[{"{", "113", "}"}]], "Output", CellChangeTimes->{3.760468781383219*^9, 3.760470794201674*^9}, CellLabel-> "Out[297]=",ExpressionUUID->"161eb677-d62e-452f-ad38-a2ef0ac38cc0"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"BosonSolutions", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "ss", "]"}], " ", "=", " ", RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"BosonAlgebraDDEqs", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "ss", "]"}], ",", RowBox[{"Join", "[", RowBox[{"cvList", ",", RowBox[{"{", RowBox[{ "b1", ",", "b2", ",", "b3", ",", "b4", ",", "b5", ",", "b6", ",", "b7", ",", "b8", ",", "b9", ",", "b10", ",", "b11"}], "}"}]}], "]"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.748970005478078*^9, 3.7489700126343*^9}, { 3.74897004406227*^9, 3.748970092758891*^9}, {3.748971606543949*^9, 3.7489716451722813`*^9}, 3.748971767189884*^9, 3.748971805374961*^9, { 3.7493836148123302`*^9, 3.7493836154600906`*^9}, {3.749383717913845*^9, 3.7493837184542217`*^9}, 3.749392192166051*^9}, CellLabel-> "In[298]:=",ExpressionUUID->"966abae6-f3e5-4499-a56b-bc65dd3ad693"], Cell[BoxData[ TemplateBox[{ "Solve","svars", "\"Equations may not give solutions for all \\\"solve\\\" variables.\"",2, 298,2,33866084167735575198,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.7604688945410557`*^9, 3.7604709069984417`*^9}, CellLabel-> "During evaluation of \ In[298]:=",ExpressionUUID->"9cf1ee90-1b65-47f6-9b71-ffeec910a798"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Dimensions", "[", RowBox[{ RowBox[{"BosonSolutions", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "ss", "]"}], "]"}]], "Input", CellChangeTimes->{{3.748971794889221*^9, 3.748971812440453*^9}, 3.7493836163382597`*^9, 3.749383719037591*^9}, CellLabel-> "In[299]:=",ExpressionUUID->"6769f57d-e4c9-48f8-ad6b-6db8bd911ee7"], Cell[BoxData[ RowBox[{"{", "512", "}"}]], "Output", CellChangeTimes->{3.760468894617487*^9, 3.7604709070677176`*^9}, CellLabel-> "Out[299]=",ExpressionUUID->"3b5d6f81-df3e-4dbe-9daf-8ec7ab1b1c6b"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ SubsuperscriptBox[ OverscriptBox["D", "~"], "a", "i"], ",", SubsuperscriptBox[ OverscriptBox["D", "~"], "b", "j"]}], "}"}], SubsuperscriptBox["\[CapitalPsi]", "c", "k"]}], "=", " ", RowBox[{"2", " ", "i", " ", SubscriptBox[ RowBox[{ SuperscriptBox["\[Delta]", "ij"], "(", SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], RowBox[{ SubscriptBox["\[PartialD]", "\[Mu]"], SubsuperscriptBox["\[CapitalPsi]", "c", "k"]}]}]}], TraditionalForm]], "None",ExpressionUUID->"5161b1c3-b4bf-4641-89bb-daa6116d68a0"], ", FieldNumber = 6 " }], "Subsubsection", CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, { 3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, { 3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7467956828758698`*^9, 3.7467957093182344`*^9}, {3.747486233439009*^9, 3.747486233439459*^9}, { 3.748974362876294*^9, 3.748974380943577*^9}},ExpressionUUID->"d04dc00c-7a33-405e-9c14-\ c0ef834cc12e"], Cell[BoxData[ RowBox[{ RowBox[{"LocalFieldNumber", " ", "=", " ", "6"}], ";"}]], "Input", CellChangeTimes->{{3.748966071586817*^9, 3.748966075509182*^9}, { 3.748974654683647*^9, 3.748974655525069*^9}}, CellLabel-> "In[300]:=",ExpressionUUID->"c8238ea8-8063-4f3d-a1cd-7350059cf0c4"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDMinusClosure", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", RowBox[{"Collect", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"AlgebraDD", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "kk", "]"}], "[", "cc", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"cc", ",", "1", ",", "4"}], "}"}]}], "]"}], " ", "-", RowBox[{"Table", "[", RowBox[{ RowBox[{"Closure", "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "kk", "]"}], "[", "cc", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"cc", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ")"}], "/.", "LagrangianParameters"}], "/.", "VtoPauli"}], ",", "FieldListWithDerivatives", ",", "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.738583987798254*^9}, {3.746795246915931*^9, 3.7467952488448153`*^9}, {3.7467955657964067`*^9, 3.746795640354241*^9}, { 3.746795890012149*^9, 3.7467958937229385`*^9}, 3.7468071576763477`*^9, { 3.7468397475183973`*^9, 3.7468397494183197`*^9}, {3.74684479825742*^9, 3.7468448011304903`*^9}, 3.747486059606282*^9, {3.748966053435618*^9, 3.748966056973206*^9}, {3.748966099029307*^9, 3.748966109197792*^9}, { 3.748966140483706*^9, 3.748966221885426*^9}, 3.748966296185226*^9, { 3.748967282096521*^9, 3.7489672827552223`*^9}, {3.7493845135835333`*^9, 3.749384523350835*^9}, {3.7493848736874304`*^9, 3.749384885463258*^9}, { 3.7493976454042315`*^9, 3.7493976484514723`*^9}}, CellLabel-> "In[301]:=",ExpressionUUID->"afae96be-03ba-49e5-9e5b-e88121e126a5"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDEqs", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"AlgebraDDMinusClosure", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", "\[Equal]", " ", RowBox[{"0", " ", "*", " ", RowBox[{ RowBox[{"AlgebraDDMinusClosure", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}]}]}], ")"}]}], ";"}]], "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.738583987798254*^9}, {3.746795246915931*^9, 3.7467952488448153`*^9}, {3.7467955657964067`*^9, 3.746795640354241*^9}, { 3.746795890012149*^9, 3.7467958937229385`*^9}, 3.7468071576763477`*^9, { 3.7468397475183973`*^9, 3.7468397494183197`*^9}, {3.74684479825742*^9, 3.7468448011304903`*^9}, 3.747486059606282*^9, {3.748966053435618*^9, 3.748966056973206*^9}, {3.748966099029307*^9, 3.748966109197792*^9}, { 3.748966140483706*^9, 3.748966221885426*^9}, 3.748966296185226*^9, { 3.748967282096521*^9, 3.7489672827552223`*^9}, {3.7493845135835333`*^9, 3.749384523350835*^9}, {3.74938528664089*^9, 3.749385317239235*^9}}, CellLabel-> "In[302]:=",ExpressionUUID->"8e6e3ebe-e1a6-4fb6-afbe-cb73f058f5a1"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDEqs", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1"}], "]"}], "]"}], ";"}], " ", RowBox[{"(*", " ", RowBox[{ RowBox[{"Sanity", " ", "Check"}], ",", " ", RowBox[{"I", " ", "am", " ", "sane"}]}], " ", "*)"}]}]], "Input", CellChangeTimes->{{3.7493853863110037`*^9, 3.749385391126153*^9}, { 3.749391839661545*^9, 3.7493918562999225`*^9}, 3.7493924675076303`*^9, { 3.749392497613017*^9, 3.749392506835636*^9}}, CellLabel-> "In[303]:=",ExpressionUUID->"1daa702e-9865-45d0-8448-190d0a1ca13c"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"ClosureResult", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "ss", "]"}], "=", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDEqs", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "/.", RowBox[{ RowBox[{ RowBox[{"BosonSolutions", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "ss", "]"}], "[", RowBox[{"[", "SolnNum", "]"}], "]"}]}], "//", "Simplify"}], ",", RowBox[{"{", RowBox[{"SolnNum", ",", "1", ",", RowBox[{"Length", "[", RowBox[{ RowBox[{"BosonSolutions", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "ss", "]"}], "]"}]}], "}"}]}], "]"}], " ", "\[Equal]", " ", RowBox[{"Table", "[", RowBox[{"True", ",", RowBox[{"{", RowBox[{"SolnNum", ",", "1", ",", RowBox[{"Length", "[", RowBox[{ RowBox[{"BosonSolutions", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "ss", "]"}], "]"}]}], "}"}]}], "]"}]}]}], " "}]], "Input", CellChangeTimes->{{3.749384394545407*^9, 3.7493844846569977`*^9}, { 3.7493845299906125`*^9, 3.749384537783476*^9}, {3.7493845929038415`*^9, 3.749384594527071*^9}, 3.7493982470536656`*^9}, CellLabel-> "In[304]:=",ExpressionUUID->"24cccbc7-891d-43ec-a11c-86b815e8ae91"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.7604690278516073`*^9, 3.760471041519206*^9}, CellLabel-> "Out[304]=",ExpressionUUID->"760a4d88-34e8-4330-bfea-666f27fb6414"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{"tt2", "\[IndentingNewLine]", "tt2", "\[IndentingNewLine]", \ "ss"}], "Input", CellChangeTimes->{{3.7493858760568547`*^9, 3.7493858786545386`*^9}, { 3.749392450900177*^9, 3.749392451555766*^9}}, CellLabel-> "In[305]:=",ExpressionUUID->"285a99b7-c6d2-4925-8fc4-db9915a51ac9"], Cell[BoxData["2"], "Output", CellChangeTimes->{3.7604690279263973`*^9, 3.7604710415638685`*^9}, CellLabel-> "Out[305]=",ExpressionUUID->"6a59acaf-32d1-46e2-8e1a-da9ba1ff7abb"], Cell[BoxData["2"], "Output", CellChangeTimes->{3.7604690279263973`*^9, 3.7604710415758953`*^9}, CellLabel-> "Out[306]=",ExpressionUUID->"0442f262-0e8f-4649-a40c-acc5372949f1"], Cell[BoxData["2"], "Output", CellChangeTimes->{3.7604690279263973`*^9, 3.7604710415788794`*^9}, CellLabel-> "Out[307]=",ExpressionUUID->"4308daa4-d89e-4217-a782-4663926db356"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", "LocalFieldNumber", "]"}]], "Input", CellChangeTimes->{{3.747496499638111*^9, 3.7474965053367357`*^9}, { 3.748966504446074*^9, 3.748966505904224*^9}}, CellLabel-> "In[308]:=",ExpressionUUID->"f53a60b0-9b52-4226-8215-12f4b77cd5bd"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "4D, N=2 Tensor Algebra, both tilded ", Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ SubsuperscriptBox[ OverscriptBox["D", "~"], "a", "i"], ",", SubsuperscriptBox[ OverscriptBox["D", "~"], "b", "j"]}], "}"}], TraditionalForm]], ExpressionUUID->"96f8ca73-9c4c-41dd-a7aa-d408fd51ad37"], " closure summary" }], "Subsection", CellChangeTimes->{{3.748972467289494*^9, 3.748972471022188*^9}, { 3.7493847916781607`*^9, 3.7493847988378963`*^9}, {3.7493848533503027`*^9, 3.749384856206504*^9}, {3.749391805891867*^9, 3.749391821571368*^9}, { 3.7604688204617233`*^9, 3.760468823758676*^9}},ExpressionUUID->"a6e8883f-6c15-4d9f-b014-\ 30a1f3d728aa"], Cell[CellGroupData[{ Cell[BoxData[{"tt1", "\[IndentingNewLine]", "tt2", "\[IndentingNewLine]", \ "ss"}], "Input", CellChangeTimes->{{3.7493858638824186`*^9, 3.7493858669343605`*^9}, { 3.7493924784039354`*^9, 3.7493924788354487`*^9}}, CellLabel-> "In[309]:=",ExpressionUUID->"ba3dadb6-cf1b-4d7f-85bc-1df6d8d0baff"], Cell[BoxData["2"], "Output", CellChangeTimes->{3.7604690279717846`*^9, 3.7604710416078434`*^9}, CellLabel-> "Out[309]=",ExpressionUUID->"ef2d3927-ba5f-4a51-bceb-903f8c9fd882"], Cell[BoxData["2"], "Output", CellChangeTimes->{3.7604690279717846`*^9, 3.7604710416157804`*^9}, CellLabel-> "Out[310]=",ExpressionUUID->"10d7f5f3-5438-47b6-93f0-a6ab21351977"], Cell[BoxData["2"], "Output", CellChangeTimes->{3.7604690279717846`*^9, 3.7604710416207714`*^9}, CellLabel-> "Out[311]=",ExpressionUUID->"b7fd4e8d-a586-4b55-b29e-e23b3b85c377"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TildeTildeTensorIsClosed", " ", "=", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDMinusClosure", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", RowBox[{ RowBox[{ RowBox[{"FieldNumbersList", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "ss", "]"}], "[", RowBox[{"[", "FieldIndex", "]"}], "]"}], "]"}], "/.", RowBox[{ RowBox[{ RowBox[{"BosonSolutions", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "ss", "]"}], "[", RowBox[{"[", "SolnNumber", "]"}], "]"}]}], "//", "Simplify"}], ")"}], " ", "\[Equal]", " ", RowBox[{"0", "*", RowBox[{ RowBox[{"AlgebraDDMinusClosure", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", RowBox[{ RowBox[{ RowBox[{"FieldNumbersList", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "ss", "]"}], "[", RowBox[{"[", "FieldIndex", "]"}], "]"}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"FieldIndex", ",", "1", ",", RowBox[{"Length", "[", RowBox[{ RowBox[{"FieldNumbersList", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "ss", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"SolnNumber", ",", "1", ",", RowBox[{"Length", "[", RowBox[{ RowBox[{"BosonSolutions", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "ss", "]"}], "]"}]}], "}"}]}], "]"}], "\[Equal]", RowBox[{"Table", "[", RowBox[{"True", ",", RowBox[{"{", RowBox[{"FieldIndex", ",", "1", ",", RowBox[{"Length", "[", RowBox[{ RowBox[{"FieldNumbersList", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "ss", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"SolnNumber", ",", "1", ",", RowBox[{"Length", "[", RowBox[{ RowBox[{"BosonSolutions", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "ss", "]"}], "]"}]}], "}"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.7474929944818563`*^9, 3.7474930651472597`*^9}, { 3.747493152219424*^9, 3.7474932477784343`*^9}, {3.7474934178914785`*^9, 3.7474934832105627`*^9}, {3.7474935638267813`*^9, 3.747493591801224*^9}, { 3.7474963739738455`*^9, 3.7474964449288054`*^9}, {3.748795026042665*^9, 3.748795027776865*^9}, {3.748965282772246*^9, 3.7489652841431913`*^9}, { 3.748967256264186*^9, 3.7489672582499332`*^9}, {3.7489726116995783`*^9, 3.748972619365851*^9}, {3.748972682357362*^9, 3.748972791037031*^9}, { 3.748972966310253*^9, 3.748972981329225*^9}, {3.748973241500346*^9, 3.748973263939262*^9}, {3.749383657038707*^9, 3.749383665753677*^9}, { 3.7493837288161883`*^9, 3.749383732049836*^9}, {3.7493841399580865`*^9, 3.7493841441638517`*^9}, {3.7493854379925833`*^9, 3.749385461445446*^9}, { 3.760470156799983*^9, 3.760470162148756*^9}}, CellLabel-> "In[312]:=",ExpressionUUID->"9242bc11-44e2-4777-8f9e-ccd559d67136"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.7604692844481688`*^9, 3.7604712987489915`*^9}, CellLabel-> "Out[312]=",ExpressionUUID->"8a454698-82e7-4a75-88b8-b5498109ef1a"] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"4", "D"}], ",", RowBox[{"N", "=", RowBox[{"2", " ", "Tensor", RowBox[{"{", RowBox[{ SubsuperscriptBox[ OverscriptBox["D", "~"], "a", "i"], ",", SubsuperscriptBox[ OverscriptBox["D", "~"], "b", "j"]}], "}"}]}]}]}], TraditionalForm]], ExpressionUUID->"f4717e99-1a42-46cd-a4d2-3e5af0be09ba"], " and ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"4", "D"}], ",", RowBox[{"N", "=", RowBox[{"2", " ", "vector", RowBox[{"{", RowBox[{ SubsuperscriptBox[ OverscriptBox["D", "~"], "a", "i"], ",", SubsuperscriptBox[ OverscriptBox["D", "~"], "b", "j"]}], "}"}]}]}]}], TraditionalForm]], ExpressionUUID->"b643d3e4-345f-4824-bac3-0c0db204b9a0"], " full closure summary" }], "Section", CellChangeTimes->{{3.7604701908013163`*^9, 3.7604701992490435`*^9}},ExpressionUUID->"7b100121-0387-4741-8636-\ 61706c80f836"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TildeTildeTensorIsClosed", " ", "==", " ", "TildeTildeVectorIsClosed", " ", "==", "True"}]], "Input", CellChangeTimes->{{3.760470275152011*^9, 3.7604703234229927`*^9}}, CellLabel-> "In[313]:=",ExpressionUUID->"639a01a5-0b35-4747-a14f-cc361d210ab5"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.7604712988440943`*^9}, CellLabel-> "Out[313]=",ExpressionUUID->"62f62760-b9e9-455d-a0d6-cd98ac6306e9"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Optional Save Point that saves all of the above.", "Section", CellChangeTimes->{{3.6749929593177195`*^9, 3.674992968413362*^9}, { 3.7107778820331907`*^9, 3.7107778881715417`*^9}, {3.7423960696736193`*^9, 3.7423960744829483`*^9}, {3.746554525269208*^9, 3.746554604682954*^9}, { 3.7493987452584815`*^9, 3.74939875825815*^9}, {3.749398819954095*^9, 3.7493988202100267`*^9}, {3.749399784418043*^9, 3.7493998002663302`*^9}, { 3.7604676532973576`*^9, 3.760467681088952*^9}},ExpressionUUID->"3ca2c2f4-f30f-4e08-b490-\ 58b2f2a67c25"], Cell[BoxData[ RowBox[{"(*", RowBox[{ RowBox[{"SetDirectory", "[", RowBox[{"NotebookDirectory", "[", "]"}], "]"}], ";"}], "*)"}]], "Input", CellLabel-> "In[314]:=",ExpressionUUID->"dab9e6e3-e296-4883-b190-18fcf3898997"], Cell[BoxData[ RowBox[{"(*", RowBox[{"Save", "[", RowBox[{"\"\<4DN4UpToTildeTilde.m\>\"", ",", "\"\<`*\>\""}], "]"}], "*)"}]], "Input", CellChangeTimes->{{3.6749964440771713`*^9, 3.6749964706518908`*^9}, { 3.6749966708752985`*^9, 3.6749967567156177`*^9}, {3.674996916350927*^9, 3.674996917019476*^9}, {3.674996960737018*^9, 3.674997063199394*^9}, { 3.674997173455406*^9, 3.6749971740559635`*^9}, 3.6749972115493174`*^9, { 3.6749972644653716`*^9, 3.674997264588353*^9}, {3.6749977223773317`*^9, 3.6749977343389697`*^9}, {3.6749977860580053`*^9, 3.674997807324068*^9}, { 3.6749984319349337`*^9, 3.674998454389694*^9}, {3.67499848451736*^9, 3.674998495068243*^9}, {3.7107747002772045`*^9, 3.710774708502675*^9}, { 3.710774742101597*^9, 3.710774744205717*^9}, {3.7107747805197945`*^9, 3.710774783872986*^9}, {3.710774923671982*^9, 3.7107749482923903`*^9}, { 3.7107749798041925`*^9, 3.7107749800742083`*^9}, {3.71090443890324*^9, 3.710904439581279*^9}, {3.7109044972025747`*^9, 3.7109045692766967`*^9}, { 3.7109046763158193`*^9, 3.7109046775588903`*^9}, {3.7109047297458754`*^9, 3.7109047310949526`*^9}, {3.7109500103086805`*^9, 3.710950015004949*^9}, 3.711015229987541*^9, {3.711017844082059*^9, 3.7110178620820885`*^9}, { 3.7110180087124753`*^9, 3.71101801107161*^9}, {3.711018302206262*^9, 3.71101830566246*^9}, {3.7110184318676786`*^9, 3.71101846284445*^9}, { 3.7110184995285482`*^9, 3.711018529492262*^9}, {3.7110197504670978`*^9, 3.7110197821409097`*^9}, {3.7111700231301126`*^9, 3.7111700329726753`*^9}, {3.7111702590786085`*^9, 3.711170299968947*^9}, { 3.7115811679206743`*^9, 3.7115812217937555`*^9}, {3.711581262678094*^9, 3.7115812793980503`*^9}, 3.711581397804823*^9, {3.7115814557931395`*^9, 3.7115814643076267`*^9}, {3.7115815073860903`*^9, 3.7115815096772213`*^9}, {3.7115815857745743`*^9, 3.711581587471671*^9}, { 3.7422233564345903`*^9, 3.742223356957213*^9}, {3.7422250827224894`*^9, 3.742225109905814*^9}, {3.742442250369144*^9, 3.742442270203165*^9}, { 3.742442310918994*^9, 3.74244231769621*^9}, {3.742442871902109*^9, 3.742442873545989*^9}, {3.7493987934032145`*^9, 3.749398803378765*^9}}, CellLabel-> "In[315]:=",ExpressionUUID->"b2005f18-efab-4bea-9215-e97954f731b7"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Optional Load point to Load all previously saved data. Comment out all the \ above and uncomment this section to run from this point.\ \>", "Section", CellChangeTimes->{{3.749398830658264*^9, 3.7493988342339287`*^9}, { 3.760467684519012*^9, 3.7604677661211605`*^9}, 3.760469010639547*^9},ExpressionUUID->"edb43e4c-6e9c-449d-8a2b-\ 28a0eff747b5"], Cell[BoxData[ RowBox[{"(*", RowBox[{ RowBox[{"SetDirectory", "[", RowBox[{"NotebookDirectory", "[", "]"}], "]"}], ";"}], "*)"}]], "Input", CellLabel-> "In[316]:=",ExpressionUUID->"dc94526e-862c-4549-b0c0-4e98ef91eddb"], Cell[BoxData[ RowBox[{"(*", RowBox[{ RowBox[{"<<", "N4TVUpToTildeTilde.m"}], ";"}], "*)"}]], "Input", CellChangeTimes->{{3.742447734672681*^9, 3.742447736272915*^9}, 3.7493988868760805`*^9, {3.749399491515788*^9, 3.7493994932985024`*^9}, { 3.749399830467062*^9, 3.74939984305057*^9}, 3.7493998825557117`*^9}, CellLabel-> "In[317]:=",ExpressionUUID->"f3d658d0-2eaa-4c7c-85da-73df9709b326"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Attempt to close Algebra ", Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ SubsuperscriptBox["D", "a", "i"], ","}]}], TraditionalForm]], ExpressionUUID->"be23db71-8888-4452-80fc-9b7a9511e243"], Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox[ OverscriptBox["D", "~"], "b", "j"], "}"}], TraditionalForm]], ExpressionUUID->"b4a187fc-9832-491d-a09b-668fa86fa483"], "= 0 up to gauge transformations. There is no solution, even without \ imposing the tilde-tilde results. There MUST be central charges." }], "Section", CellChangeTimes->{{3.746831725880522*^9, 3.746831726815978*^9}, { 3.747484799938679*^9, 3.747484810026211*^9}, {3.749400068041915*^9, 3.7494001134180827`*^9}, {3.7494066516890545`*^9, 3.7494066661848483`*^9}, { 3.749406849977332*^9, 3.7494068571212597`*^9}, {3.7604711995588756`*^9, 3.7604712025348663`*^9}},ExpressionUUID->"001af4b3-a842-415b-93b5-\ f7c611a0c3da"], Cell[CellGroupData[{ Cell["tt1 = 1, tt2 = 2", "Subsubsection", CellChangeTimes->{{3.7494004816582723`*^9, 3.7494004843061743`*^9}},ExpressionUUID->"d709655d-8321-47e6-adf8-\ dca2e21c919f"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Clear", "[", RowBox[{"tt1", ",", "tt2", ",", "ss"}], "]"}], "\[IndentingNewLine]", RowBox[{"tt1", " ", "=", " ", "1"}], "\[IndentingNewLine]", RowBox[{"tt2", " ", "=", " ", "2"}]}], "Input", CellChangeTimes->{{3.7494004852791653`*^9, 3.7494004892504425`*^9}, { 3.749400537282079*^9, 3.7494005561222143`*^9}}, CellLabel-> "In[318]:=",ExpressionUUID->"bacce989-d1a8-408e-bb7b-e3cc56f4640a"], Cell[BoxData["1"], "Output", CellChangeTimes->{{3.7494005455313473`*^9, 3.749400557348095*^9}, 3.7494023431660843`*^9, 3.749402569020705*^9, 3.7494970496273727`*^9, 3.7604713364649754`*^9}, CellLabel-> "Out[319]=",ExpressionUUID->"31ba7041-c354-4018-84de-a092497d1d87"], Cell[BoxData["2"], "Output", CellChangeTimes->{{3.7494005455313473`*^9, 3.749400557348095*^9}, 3.7494023431660843`*^9, 3.749402569020705*^9, 3.7494970496273727`*^9, 3.7604713364690137`*^9}, CellLabel-> "Out[320]=",ExpressionUUID->"6624557d-454d-4bdc-8331-63d3c4cc940c"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ SubsuperscriptBox["D", "a", "i"], ",", SubsuperscriptBox[ OverscriptBox["D", "~"], "b", "j"]}], "}"}], "A"}], "=", " ", "0"}], TraditionalForm]], "None",ExpressionUUID-> "652a603a-c382-4ee0-8a7a-40c74abf62ee"], " , FieldNumber = 1" }], "Subsubsection", CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, { 3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, { 3.7467949641466155`*^9, 3.746794979356092*^9}, {3.747485791788161*^9, 3.747485791788161*^9}, 3.74896595756443*^9, {3.7494002221313963`*^9, 3.7494002221313963`*^9}, {3.749400350844643*^9, 3.749400351307625*^9}},ExpressionUUID->"205da802-785c-4106-bfff-\ b750ece28438"], Cell[BoxData[{ RowBox[{ RowBox[{"LocalField", " ", "=", " ", RowBox[{"A", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"LocalFieldNumber", " ", "=", " ", "1"}], ";"}]}], "Input", CellChangeTimes->{{3.747496390463257*^9, 3.747496425281234*^9}, { 3.748786525924238*^9, 3.748786528879302*^9}}, CellLabel-> "In[321]:=",ExpressionUUID->"e9be1853-1d00-496f-a3a9-6c072ba66d8d"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDMinusClosure", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", RowBox[{"(", RowBox[{"Collect", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"AlgebraDD", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalField", "]"}], ")"}], "/.", "LagrangianParameters"}], "/.", "VtoPauli"}], ",", "FieldListWithDerivatives", ",", "Simplify"}], "]"}], ")"}]}], ";"}]], "Input", CellChangeTimes->{{3.7474929944818563`*^9, 3.7474930651472597`*^9}, { 3.747493152219424*^9, 3.7474932477784343`*^9}, {3.7474934178914785`*^9, 3.7474934832105627`*^9}, {3.7474935638267813`*^9, 3.747493591801224*^9}, { 3.7474963739738455`*^9, 3.7474964449288054`*^9}, {3.748795026042665*^9, 3.748795027776865*^9}, {3.748965282772246*^9, 3.7489652841431913`*^9}, { 3.748967256264186*^9, 3.7489672582499332`*^9}, {3.7494004185551434`*^9, 3.7494004426991215`*^9}}, CellLabel-> "In[323]:=",ExpressionUUID->"a89cd3bb-a388-488f-8c03-f7203ab45395"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDEqs", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", "=", " ", RowBox[{ RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"Coefficient", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDMinusClosure", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "aa", ",", "jj", ",", "bb"}], "]"}], "]"}], ",", RowBox[{"FieldListWithDerivatives", "[", RowBox[{"[", "FieldListIndex", "]"}], "]"}]}], "]"}], ")"}], "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"FieldListIndex", ",", "1", ",", RowBox[{"Length", "[", "FieldListWithDerivatives", "]"}]}], "}"}]}], "]"}], "//", "Simplify"}], "//", "Flatten"}], ",", "True"}], "]"}], "//", "DeleteDuplicates"}]}], ";"}]], "Input", CellChangeTimes->{{3.7474933413160763`*^9, 3.7474934023534203`*^9}, { 3.747493509609391*^9, 3.7474935432809353`*^9}, {3.7474936064895945`*^9, 3.7474936161297655`*^9}, {3.7474936564987297`*^9, 3.747493747940831*^9}, { 3.747493832482408*^9, 3.7474938407374077`*^9}, {3.747496458745552*^9, 3.7474964697370515`*^9}, 3.7475105609270287`*^9, {3.748795270744809*^9, 3.748795274222528*^9}, {3.74879531011075*^9, 3.748795321437098*^9}, { 3.748795652987978*^9, 3.748795656902155*^9}, {3.748965289858489*^9, 3.748965292697112*^9}, {3.748967259459038*^9, 3.748967260813509*^9}, { 3.7489708313422194`*^9, 3.7489708325427723`*^9}, {3.749400458403777*^9, 3.749400461474213*^9}}, CellLabel-> "In[324]:=",ExpressionUUID->"c4ae92e9-3d80-4033-9803-975670337b28"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Length", "[", RowBox[{ RowBox[{"AlgebraDDEqs", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "]"}]], "Input", CellChangeTimes->{{3.747493880500272*^9, 3.7474938897376738`*^9}, { 3.7474964759857783`*^9, 3.747496478481014*^9}, 3.748967263446204*^9}, CellLabel-> "In[325]:=",ExpressionUUID->"4bc298cb-98b1-466e-b86e-a3ae9d4b1ab6"], Cell[BoxData["40"], "Output", CellChangeTimes->{3.749402369344755*^9, 3.7494025812692585`*^9, 3.749497050225095*^9, 3.76047133704062*^9}, CellLabel-> "Out[325]=",ExpressionUUID->"b5e87d67-ce5d-42d0-8ffe-df978798350d"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"LocalField", ",", "LocalFieldNumber"}], "]"}]], "Input", CellChangeTimes->{{3.747496499638111*^9, 3.7474965053367357`*^9}}, CellLabel-> "In[326]:=",ExpressionUUID->"a56a8d08-0f22-4f75-b542-babb23fd35e8"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ SubsuperscriptBox["D", "a", "i"], ",", SubsuperscriptBox[ OverscriptBox["D", "~"], "b", "j"]}], "}"}], "B"}], "=", " ", "0"}], TraditionalForm]], "None",ExpressionUUID-> "a3e37d54-82ff-468f-8fd8-02b28e1702b5"], " , FieldNumber = 2" }], "Subsubsection", CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, { 3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, { 3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7467956828758698`*^9, 3.746795686091745*^9}, {3.747486227215621*^9, 3.747486227215621*^9}, { 3.7489659591128283`*^9, 3.748965968040195*^9}, {3.7494024132510557`*^9, 3.7494024132510557`*^9}, {3.7494025205883026`*^9, 3.7494025205883026`*^9}},ExpressionUUID->"a36695d2-55ea-4b5e-8aa1-\ 28e605e6d111"], Cell[BoxData[{ RowBox[{ RowBox[{"LocalField", " ", "=", " ", RowBox[{"B", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"LocalFieldNumber", " ", "=", " ", "2"}], ";"}]}], "Input", CellChangeTimes->{{3.747496390463257*^9, 3.747496425281234*^9}}, CellLabel-> "In[327]:=",ExpressionUUID->"ddc3cec3-92f0-4ccb-960e-74153a96380b"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDMinusClosure", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", RowBox[{"(", RowBox[{"Collect", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"AlgebraDD", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalField", "]"}], " ", ")"}], "/.", "LagrangianParameters"}], "/.", "VtoPauli"}], ",", "FieldListWithDerivatives", ",", "Simplify"}], "]"}], ")"}]}], ";"}]], "Input", CellChangeTimes->{{3.7474929944818563`*^9, 3.7474930651472597`*^9}, { 3.747493152219424*^9, 3.7474932477784343`*^9}, {3.7474934178914785`*^9, 3.7474934832105627`*^9}, {3.7474935638267813`*^9, 3.747493591801224*^9}, { 3.7474963739738455`*^9, 3.7474964449288054`*^9}, {3.748795026042665*^9, 3.748795027776865*^9}, {3.748965282772246*^9, 3.7489652841431913`*^9}, { 3.748967264484933*^9, 3.748967265182363*^9}, 3.7494025466596117`*^9}, CellLabel-> "In[329]:=",ExpressionUUID->"2b972354-054d-4f08-8db9-00d9ea1d9ae4"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDEqs", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", "=", " ", RowBox[{ RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"Coefficient", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDMinusClosure", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "aa", ",", "jj", ",", "bb"}], "]"}], "]"}], ",", RowBox[{"FieldListWithDerivatives", "[", RowBox[{"[", "FieldListIndex", "]"}], "]"}]}], "]"}], ")"}], "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"FieldListIndex", ",", "1", ",", RowBox[{"Length", "[", "FieldListWithDerivatives", "]"}]}], "}"}]}], "]"}], "//", "Simplify"}], "//", "Flatten"}], ",", "True"}], "]"}], "//", "DeleteDuplicates"}]}], ";"}]], "Input", CellChangeTimes->{{3.7474933413160763`*^9, 3.7474934023534203`*^9}, { 3.747493509609391*^9, 3.7474935432809353`*^9}, {3.7474936064895945`*^9, 3.7474936161297655`*^9}, {3.7474936564987297`*^9, 3.747493747940831*^9}, { 3.747493832482408*^9, 3.7474938407374077`*^9}, {3.747496458745552*^9, 3.7474964697370515`*^9}, 3.7475105609270287`*^9, {3.748795270744809*^9, 3.748795274222528*^9}, {3.74879531011075*^9, 3.748795321437098*^9}, { 3.748795652987978*^9, 3.748795656902155*^9}, {3.748965289858489*^9, 3.748965292697112*^9}, {3.748967266019973*^9, 3.748967266830842*^9}, { 3.748970855426833*^9, 3.748970856670473*^9}}, CellLabel-> "In[330]:=",ExpressionUUID->"565a4751-4a1e-4efc-9cc2-ce973142da3a"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Length", "[", RowBox[{ RowBox[{"AlgebraDDEqs", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "]"}]], "Input", CellChangeTimes->{{3.747493880500272*^9, 3.7474938897376738`*^9}, { 3.7474964759857783`*^9, 3.747496478481014*^9}, 3.748967267741399*^9}, CellLabel-> "In[331]:=",ExpressionUUID->"64460cad-9019-4d0e-8f63-5982108de4fa"], Cell[BoxData["40"], "Output", CellChangeTimes->{3.7494025884545155`*^9, 3.749497050807895*^9, 3.760471337677929*^9}, CellLabel-> "Out[331]=",ExpressionUUID->"f2194751-e155-4b91-9ab0-d4b43c6b9610"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"LocalField", ",", "LocalFieldNumber"}], "]"}]], "Input", CellChangeTimes->{{3.747496499638111*^9, 3.7474965053367357`*^9}}, CellLabel-> "In[332]:=",ExpressionUUID->"ca5aeb5a-a627-423c-813b-1cf815733e55"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ SubsuperscriptBox["D", "a", "i"], ",", SubsuperscriptBox[ OverscriptBox["D", "~"], "b", "j"]}], "}"}], "F"}], "=", " ", "0"}], TraditionalForm]], "None",ExpressionUUID-> "d8409f15-6c84-4667-b8c2-7a3c68c60141"], " , FieldNumber = 3" }], "Subsubsection", CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, { 3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, { 3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7467956828758698`*^9, 3.746795686091745*^9}, {3.747486227215621*^9, 3.747486227215621*^9}, { 3.747497464520861*^9, 3.7474974673291535`*^9}, {3.748965960222494*^9, 3.74896596979602*^9}, {3.749402416434515*^9, 3.749402416434515*^9}, { 3.7494025180362406`*^9, 3.7494025180362406`*^9}},ExpressionUUID->"7d48686b-675b-4939-bef5-\ 323d36995ec9"], Cell[BoxData[{ RowBox[{ RowBox[{"LocalField", " ", "=", " ", RowBox[{"F", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"LocalFieldNumber", " ", "=", " ", "3"}], ";"}]}], "Input", CellChangeTimes->{{3.747496390463257*^9, 3.747496425281234*^9}, { 3.7474974694092073`*^9, 3.7474974722809887`*^9}}, CellLabel-> "In[333]:=",ExpressionUUID->"d7025e6d-0320-4ca1-bf8e-9c30120efbde"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDMinusClosure", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", RowBox[{"(", RowBox[{"Collect", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"AlgebraDD", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalField", "]"}], " ", ")"}], "/.", "LagrangianParameters"}], "/.", "VtoPauli"}], ",", "FieldListWithDerivatives", ",", "Simplify"}], "]"}], ")"}]}], ";"}]], "Input", CellChangeTimes->{{3.7474929944818563`*^9, 3.7474930651472597`*^9}, { 3.747493152219424*^9, 3.7474932477784343`*^9}, {3.7474934178914785`*^9, 3.7474934832105627`*^9}, {3.7474935638267813`*^9, 3.747493591801224*^9}, { 3.7474963739738455`*^9, 3.7474964449288054`*^9}, {3.748795026042665*^9, 3.748795027776865*^9}, {3.748965282772246*^9, 3.7489652841431913`*^9}, { 3.7489672687721643`*^9, 3.7489672693641253`*^9}, 3.7494025479277163`*^9}, CellLabel-> "In[335]:=",ExpressionUUID->"4df89edf-edef-4f40-98d4-ca09b63f3cd6"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDEqs", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", "=", " ", RowBox[{ RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"Coefficient", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDMinusClosure", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "aa", ",", "jj", ",", "bb"}], "]"}], "]"}], ",", RowBox[{"FieldListWithDerivatives", "[", RowBox[{"[", "FieldListIndex", "]"}], "]"}]}], "]"}], ")"}], "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"FieldListIndex", ",", "1", ",", RowBox[{"Length", "[", "FieldListWithDerivatives", "]"}]}], "}"}]}], "]"}], "//", "Simplify"}], "//", "Flatten"}], ",", "True"}], "]"}], "//", "DeleteDuplicates"}]}], ";"}]], "Input", CellChangeTimes->{{3.7474933413160763`*^9, 3.7474934023534203`*^9}, { 3.747493509609391*^9, 3.7474935432809353`*^9}, {3.7474936064895945`*^9, 3.7474936161297655`*^9}, {3.7474936564987297`*^9, 3.747493747940831*^9}, { 3.747493832482408*^9, 3.7474938407374077`*^9}, {3.747496458745552*^9, 3.7474964697370515`*^9}, 3.7475105609270287`*^9, {3.748795270744809*^9, 3.748795274222528*^9}, {3.74879531011075*^9, 3.748795321437098*^9}, { 3.748795652987978*^9, 3.748795656902155*^9}, {3.748965289858489*^9, 3.748965292697112*^9}, {3.748967270404604*^9, 3.748967271231758*^9}, { 3.748970867971706*^9, 3.748970869537696*^9}}, CellLabel-> "In[336]:=",ExpressionUUID->"a02514ca-3049-4391-a2c5-fba617856045"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Length", "[", RowBox[{ RowBox[{"AlgebraDDEqs", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "]"}]], "Input", CellChangeTimes->{{3.747493880500272*^9, 3.7474938897376738`*^9}, { 3.7474964759857783`*^9, 3.747496478481014*^9}, 3.748967271987453*^9}, CellLabel-> "In[337]:=",ExpressionUUID->"fd820bf6-82f2-42e2-a16c-66f510ff9b39"], Cell[BoxData["40"], "Output", CellChangeTimes->{3.7494025947639904`*^9, 3.74949705201119*^9, 3.760471339016877*^9}, CellLabel-> "Out[337]=",ExpressionUUID->"33615180-1b80-477a-8265-d5e1377e43a2"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"LocalField", ",", "LocalFieldNumber"}], "]"}]], "Input", CellChangeTimes->{{3.747496499638111*^9, 3.7474965053367357`*^9}}, CellLabel-> "In[338]:=",ExpressionUUID->"6f83972a-88e0-4787-aa6e-1a481802330d"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ SubsuperscriptBox["D", "a", "i"], ",", SubsuperscriptBox[ OverscriptBox["D", "~"], "b", "j"]}], "}"}], "G"}], "=", " ", "0"}], TraditionalForm]], "None",ExpressionUUID-> "13165bac-8e92-4be5-8a85-32edfdbb4097"], " , FieldNumber = 4" }], "Subsubsection", CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, { 3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, { 3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7467956828758698`*^9, 3.746795686091745*^9}, {3.747486227215621*^9, 3.747486227215621*^9}, { 3.747497464520861*^9, 3.7474974673291535`*^9}, {3.747497563453846*^9, 3.747497563796384*^9}, {3.7489659611441717`*^9, 3.748965973772861*^9}, { 3.7494024217702255`*^9, 3.7494024217702255`*^9}, {3.7494025157481284`*^9, 3.7494025157481284`*^9}},ExpressionUUID->"6a2c5085-77d1-48dc-a81f-\ ce6fdc5b52bd"], Cell[BoxData[{ RowBox[{ RowBox[{"LocalField", " ", "=", " ", RowBox[{"G", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"LocalFieldNumber", " ", "=", " ", "4"}], ";"}]}], "Input", CellChangeTimes->{{3.747496390463257*^9, 3.747496425281234*^9}, { 3.7474974694092073`*^9, 3.7474974722809887`*^9}, {3.747497566214872*^9, 3.747497568821742*^9}}, CellLabel-> "In[339]:=",ExpressionUUID->"ed970a20-b92e-4602-87d3-7753f65f2534"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDMinusClosure", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", RowBox[{"(", RowBox[{"Collect", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"AlgebraDD", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalField", "]"}], " ", ")"}], "/.", "LagrangianParameters"}], "/.", "VtoPauli"}], ",", "FieldListWithDerivatives", ",", "Simplify"}], "]"}], ")"}]}], ";"}]], "Input", CellChangeTimes->{{3.7474929944818563`*^9, 3.7474930651472597`*^9}, { 3.747493152219424*^9, 3.7474932477784343`*^9}, {3.7474934178914785`*^9, 3.7474934832105627`*^9}, {3.7474935638267813`*^9, 3.747493591801224*^9}, { 3.7474963739738455`*^9, 3.7474964449288054`*^9}, {3.748795026042665*^9, 3.748795027776865*^9}, {3.748965282772246*^9, 3.7489652841431913`*^9}, { 3.748967273084135*^9, 3.748967273659972*^9}, 3.7494025499073925`*^9}, CellLabel-> "In[341]:=",ExpressionUUID->"0f82e909-f5c6-4e4e-a12d-5bddc1ae25e5"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDEqs", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", "=", " ", RowBox[{ RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"Coefficient", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDMinusClosure", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "aa", ",", "jj", ",", "bb"}], "]"}], "]"}], ",", RowBox[{"FieldListWithDerivatives", "[", RowBox[{"[", "FieldListIndex", "]"}], "]"}]}], "]"}], ")"}], "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"FieldListIndex", ",", "1", ",", RowBox[{"Length", "[", "FieldListWithDerivatives", "]"}]}], "}"}]}], "]"}], "//", "Simplify"}], "//", "Flatten"}], ",", "True"}], "]"}], "//", "DeleteDuplicates"}]}], ";"}]], "Input", CellChangeTimes->{{3.7474933413160763`*^9, 3.7474934023534203`*^9}, { 3.747493509609391*^9, 3.7474935432809353`*^9}, {3.7474936064895945`*^9, 3.7474936161297655`*^9}, {3.7474936564987297`*^9, 3.747493747940831*^9}, { 3.747493832482408*^9, 3.7474938407374077`*^9}, {3.747496458745552*^9, 3.7474964697370515`*^9}, 3.7475105609270287`*^9, {3.748795270744809*^9, 3.748795274222528*^9}, {3.74879531011075*^9, 3.748795321437098*^9}, { 3.748795652987978*^9, 3.748795656902155*^9}, {3.748965289858489*^9, 3.748965292697112*^9}, {3.74896727449786*^9, 3.7489672753493137`*^9}, { 3.748970882655526*^9, 3.748970884514419*^9}}, CellLabel-> "In[342]:=",ExpressionUUID->"475c0dba-f1bd-42fa-9a70-a2727064bdb1"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Length", "[", RowBox[{ RowBox[{"AlgebraDDEqs", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "]"}]], "Input", CellChangeTimes->{{3.747493880500272*^9, 3.7474938897376738`*^9}, { 3.7474964759857783`*^9, 3.747496478481014*^9}, 3.748967276137932*^9}, CellLabel-> "In[343]:=",ExpressionUUID->"efb62262-1539-48ba-9993-ea8549187e35"], Cell[BoxData["40"], "Output", CellChangeTimes->{3.7494026011848946`*^9, 3.749497053174268*^9, 3.760471340245042*^9}, CellLabel-> "Out[343]=",ExpressionUUID->"8dd09a23-28d5-4c10-9dd7-ba37fa6d1748"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"LocalField", ",", "LocalFieldNumber"}], "]"}]], "Input", CellChangeTimes->{{3.747496499638111*^9, 3.7474965053367357`*^9}}, CellLabel-> "In[344]:=",ExpressionUUID->"5f2ce7a6-3141-46cb-8899-cdcba5cee8d1"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ SubsuperscriptBox["D", "a", "i"], ",", SubsuperscriptBox[ OverscriptBox["D", "~"], "b", "j"]}], "}"}], "d"}], "=", " ", "0"}], TraditionalForm]], "None",ExpressionUUID-> "e30bd82f-7e0c-4382-834f-7679f236b2ea"], " , FieldNumber = 5" }], "Subsubsection", CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, { 3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, { 3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7467956828758698`*^9, 3.746795686091745*^9}, {3.747486227215621*^9, 3.747486227215621*^9}, { 3.747497464520861*^9, 3.7474974673291535`*^9}, {3.747497563453846*^9, 3.747497563796384*^9}, {3.7474976471954*^9, 3.747497647897377*^9}, { 3.748965962266481*^9, 3.748965979113331*^9}, {3.7494024253551292`*^9, 3.7494024253551292`*^9}, {3.749402513284159*^9, 3.7494025132846537`*^9}},ExpressionUUID->"87550882-def9-4703-91ed-\ f00a0bc9f66c"], Cell[BoxData[{ RowBox[{ RowBox[{"LocalField", " ", "=", " ", RowBox[{"d", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"LocalFieldNumber", " ", "=", " ", "5"}], ";"}]}], "Input", CellChangeTimes->{{3.747496390463257*^9, 3.747496425281234*^9}, { 3.7474974694092073`*^9, 3.7474974722809887`*^9}, {3.747497566214872*^9, 3.747497568821742*^9}, {3.7474976499458833`*^9, 3.7474976533042154`*^9}}, CellLabel-> "In[345]:=",ExpressionUUID->"9fe5455f-2c26-43b3-b5d5-09f166597751"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDMinusClosure", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", RowBox[{"(", RowBox[{"Collect", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"AlgebraDD", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalField", "]"}], " ", ")"}], "/.", "LagrangianParameters"}], "/.", "VtoPauli"}], ",", "FieldListWithDerivatives", ",", "Simplify"}], "]"}], ")"}]}], ";"}]], "Input", CellChangeTimes->{{3.7474929944818563`*^9, 3.7474930651472597`*^9}, { 3.747493152219424*^9, 3.7474932477784343`*^9}, {3.7474934178914785`*^9, 3.7474934832105627`*^9}, {3.7474935638267813`*^9, 3.747493591801224*^9}, { 3.7474963739738455`*^9, 3.7474964449288054`*^9}, {3.748795026042665*^9, 3.748795027776865*^9}, {3.748965282772246*^9, 3.7489652841431913`*^9}, { 3.7489672770635853`*^9, 3.748967277540977*^9}, 3.749402550672137*^9}, CellLabel-> "In[347]:=",ExpressionUUID->"01b370f2-47a1-4dab-b213-131acf246f62"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDEqs", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", "=", " ", RowBox[{ RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"Coefficient", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDMinusClosure", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "aa", ",", "jj", ",", "bb"}], "]"}], "]"}], ",", RowBox[{"FieldListWithDerivatives", "[", RowBox[{"[", "FieldListIndex", "]"}], "]"}]}], "]"}], ")"}], "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"FieldListIndex", ",", "1", ",", RowBox[{"Length", "[", "FieldListWithDerivatives", "]"}]}], "}"}]}], "]"}], "//", "Simplify"}], "//", "Flatten"}], ",", "True"}], "]"}], "//", "DeleteDuplicates"}]}], ";"}]], "Input", CellChangeTimes->{{3.7474933413160763`*^9, 3.7474934023534203`*^9}, { 3.747493509609391*^9, 3.7474935432809353`*^9}, {3.7474936064895945`*^9, 3.7474936161297655`*^9}, {3.7474936564987297`*^9, 3.747493747940831*^9}, { 3.747493832482408*^9, 3.7474938407374077`*^9}, {3.747496458745552*^9, 3.7474964697370515`*^9}, 3.7475105609270287`*^9, {3.748795270744809*^9, 3.748795274222528*^9}, {3.74879531011075*^9, 3.748795321437098*^9}, { 3.748795652987978*^9, 3.748795656902155*^9}, {3.748965289858489*^9, 3.748965292697112*^9}, {3.748967278411985*^9, 3.748967279417452*^9}, { 3.748970899154714*^9, 3.74897090034398*^9}}, CellLabel-> "In[348]:=",ExpressionUUID->"3e8111e6-70fa-4b7e-b9a3-d20be3df078c"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Length", "[", RowBox[{ RowBox[{"AlgebraDDEqs", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "]"}]], "Input", CellChangeTimes->{{3.747493880500272*^9, 3.7474938897376738`*^9}, { 3.7474964759857783`*^9, 3.747496478481014*^9}, 3.748967280417349*^9}, CellLabel-> "In[349]:=",ExpressionUUID->"16753cab-23a7-4e58-aed9-20725ed38901"], Cell[BoxData["45"], "Output", CellChangeTimes->{3.749402606614696*^9, 3.749497054367241*^9, 3.760471341515275*^9}, CellLabel-> "Out[349]=",ExpressionUUID->"da350f4b-7bac-461b-bd06-b035fda9d8ef"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"LocalField", ",", "LocalFieldNumber"}], "]"}]], "Input", CellChangeTimes->{{3.747496499638111*^9, 3.7474965053367357`*^9}}, CellLabel-> "In[350]:=",ExpressionUUID->"9736a480-37e9-4009-8765-b807c17c0945"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ SubsuperscriptBox["D", "a", "i"], ",", SubsuperscriptBox[ OverscriptBox["D", "~"], "b", "j"]}], "}"}], "At"}], "=", " ", "0"}], TraditionalForm]], "None",ExpressionUUID-> "b9b56d61-3405-4063-bcda-b5046957e481"], " , FieldNumber = 8" }], "Subsubsection", CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, { 3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, { 3.7467949641466155`*^9, 3.746794979356092*^9}, {3.746839278644126*^9, 3.7468392788196526`*^9}, {3.747486288199726*^9, 3.747486288199726*^9}, { 3.748974323535056*^9, 3.7489743255671864`*^9}, {3.7494024785230827`*^9, 3.7494024785236197`*^9}, {3.7494025108364353`*^9, 3.7494025108364353`*^9}},ExpressionUUID->"844a0cb8-17d9-4cc5-b1b7-\ a616091ac1ba"], Cell[BoxData[{ RowBox[{ RowBox[{"LocalField", " ", "=", " ", RowBox[{"At", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"LocalFieldNumber", " ", "=", " ", "8"}], ";"}]}], "Input", CellChangeTimes->{{3.747496390463257*^9, 3.747496425281234*^9}, { 3.748786525924238*^9, 3.748786528879302*^9}, 3.748786783015108*^9, 3.7487869038980494`*^9, {3.748790053993587*^9, 3.748790061029888*^9}, { 3.74879017489659*^9, 3.748790205675115*^9}, {3.748790238885991*^9, 3.748790242805265*^9}}, CellLabel-> "In[351]:=",ExpressionUUID->"2db37450-7ea5-49e2-bc0c-ea10439fce06"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDMinusClosure", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", RowBox[{"(", RowBox[{"Collect", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"AlgebraDD", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalField", "]"}], " ", ")"}], "/.", "LagrangianParameters"}], "/.", "VtoPauli"}], ",", "FieldListWithDerivatives", ",", "Simplify"}], "]"}], ")"}]}], ";"}]], "Input", CellChangeTimes->{{3.7474929944818563`*^9, 3.7474930651472597`*^9}, { 3.747493152219424*^9, 3.7474932477784343`*^9}, {3.7474934178914785`*^9, 3.7474934832105627`*^9}, {3.7474935638267813`*^9, 3.747493591801224*^9}, { 3.7474963739738455`*^9, 3.7474964449288054`*^9}, {3.748795026042665*^9, 3.748795027776865*^9}, {3.748965282772246*^9, 3.7489652841431913`*^9}, { 3.748967256264186*^9, 3.7489672582499332`*^9}, 3.7494025514320307`*^9}, CellLabel-> "In[353]:=",ExpressionUUID->"e50b5ac8-3593-4f73-b4f6-26873890acb8"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDEqs", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", "=", " ", RowBox[{ RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"Coefficient", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDMinusClosure", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "aa", ",", "jj", ",", "bb"}], "]"}], "]"}], ",", RowBox[{"FieldListWithDerivatives", "[", RowBox[{"[", "FieldListIndex", "]"}], "]"}]}], "]"}], ")"}], "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"FieldListIndex", ",", "1", ",", RowBox[{"Length", "[", "FieldListWithDerivatives", "]"}]}], "}"}]}], "]"}], "//", "Simplify"}], "//", "Flatten"}], ",", "True"}], "]"}], "//", "DeleteDuplicates"}]}], ";"}]], "Input", CellChangeTimes->{{3.7474933413160763`*^9, 3.7474934023534203`*^9}, { 3.747493509609391*^9, 3.7474935432809353`*^9}, {3.7474936064895945`*^9, 3.7474936161297655`*^9}, {3.7474936564987297`*^9, 3.747493747940831*^9}, { 3.747493832482408*^9, 3.7474938407374077`*^9}, {3.747496458745552*^9, 3.7474964697370515`*^9}, 3.7475105609270287`*^9, {3.748795270744809*^9, 3.748795274222528*^9}, {3.74879531011075*^9, 3.748795321437098*^9}, { 3.748795652987978*^9, 3.748795656902155*^9}, {3.748965289858489*^9, 3.748965292697112*^9}, {3.748967259459038*^9, 3.748967260813509*^9}, { 3.7489708313422194`*^9, 3.7489708325427723`*^9}}, CellLabel-> "In[354]:=",ExpressionUUID->"d69dd959-7a4e-4c9f-be0c-3bbcae45e824"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Length", "[", RowBox[{ RowBox[{"AlgebraDDEqs", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "]"}]], "Input", CellChangeTimes->{{3.747493880500272*^9, 3.7474938897376738`*^9}, { 3.7474964759857783`*^9, 3.747496478481014*^9}, 3.748967263446204*^9}, CellLabel-> "In[355]:=",ExpressionUUID->"57bd71ae-8ccf-48e3-a7f9-2ef3373b03b6"], Cell[BoxData["38"], "Output", CellChangeTimes->{3.749402612121209*^9, 3.7494970548731613`*^9, 3.7604713420802517`*^9}, CellLabel-> "Out[355]=",ExpressionUUID->"92c004c8-8d08-443a-894c-d5342ab01fd7"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"LocalField", ",", "LocalFieldNumber"}], "]"}]], "Input", CellChangeTimes->{{3.747496499638111*^9, 3.7474965053367357`*^9}}, CellLabel-> "In[356]:=",ExpressionUUID->"719afbbd-e095-4205-aad9-8e67e4f0f775"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ SubsuperscriptBox["D", "a", "i"], ",", SubsuperscriptBox[ OverscriptBox["D", "~"], "b", "j"]}], "}"}], "Bt"}], "=", "0"}], TraditionalForm]], "None",ExpressionUUID-> "83398c96-9fad-48c9-949b-331194f83e7e"], " , FieldNumber = 9" }], "Subsubsection", CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, { 3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, { 3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7467956828758698`*^9, 3.746795686091745*^9}, {3.7468396501310425`*^9, 3.7468396506117897`*^9}, { 3.747486290038866*^9, 3.747486290038866*^9}, {3.7489743547755203`*^9, 3.748974372214446*^9}, {3.7494024819388666`*^9, 3.7494025083485055`*^9}},ExpressionUUID->"c17bbd40-b4a0-4662-bf41-\ 42e51c81e954"], Cell[BoxData[{ RowBox[{ RowBox[{"LocalField", " ", "=", " ", RowBox[{"Bt", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"LocalFieldNumber", " ", "=", " ", "9"}], ";"}]}], "Input", CellChangeTimes->{{3.747496390463257*^9, 3.747496425281234*^9}, { 3.748786525924238*^9, 3.748786528879302*^9}, 3.748786783015108*^9, 3.7487869038980494`*^9, {3.748790053993587*^9, 3.748790061029888*^9}, { 3.74879017489659*^9, 3.748790205675115*^9}}, CellLabel-> "In[357]:=",ExpressionUUID->"938ceb08-da15-419b-877f-faf73d6b85ef"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDMinusClosure", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", RowBox[{"(", RowBox[{"Collect", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"AlgebraDD", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalField", "]"}], " ", ")"}], "/.", "LagrangianParameters"}], "/.", "VtoPauli"}], ",", "FieldListWithDerivatives", ",", "Simplify"}], "]"}], ")"}]}], ";"}]], "Input", CellChangeTimes->{{3.7474929944818563`*^9, 3.7474930651472597`*^9}, { 3.747493152219424*^9, 3.7474932477784343`*^9}, {3.7474934178914785`*^9, 3.7474934832105627`*^9}, {3.7474935638267813`*^9, 3.747493591801224*^9}, { 3.7474963739738455`*^9, 3.7474964449288054`*^9}, {3.748795026042665*^9, 3.748795027776865*^9}, {3.748965282772246*^9, 3.7489652841431913`*^9}, { 3.748967256264186*^9, 3.7489672582499332`*^9}, 3.749402551909714*^9}, CellLabel-> "In[359]:=",ExpressionUUID->"01f2f3b1-6ac3-4a29-afcd-282930c860f2"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDEqs", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", "=", " ", RowBox[{ RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"Coefficient", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDMinusClosure", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "aa", ",", "jj", ",", "bb"}], "]"}], "]"}], ",", RowBox[{"FieldListWithDerivatives", "[", RowBox[{"[", "FieldListIndex", "]"}], "]"}]}], "]"}], ")"}], "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"FieldListIndex", ",", "1", ",", RowBox[{"Length", "[", "FieldListWithDerivatives", "]"}]}], "}"}]}], "]"}], "//", "Simplify"}], "//", "Flatten"}], ",", "True"}], "]"}], "//", "DeleteDuplicates"}]}], ";"}]], "Input", CellChangeTimes->{{3.7474933413160763`*^9, 3.7474934023534203`*^9}, { 3.747493509609391*^9, 3.7474935432809353`*^9}, {3.7474936064895945`*^9, 3.7474936161297655`*^9}, {3.7474936564987297`*^9, 3.747493747940831*^9}, { 3.747493832482408*^9, 3.7474938407374077`*^9}, {3.747496458745552*^9, 3.7474964697370515`*^9}, 3.7475105609270287`*^9, {3.748795270744809*^9, 3.748795274222528*^9}, {3.74879531011075*^9, 3.748795321437098*^9}, { 3.748795652987978*^9, 3.748795656902155*^9}, {3.748965289858489*^9, 3.748965292697112*^9}, {3.748967259459038*^9, 3.748967260813509*^9}, { 3.7489708313422194`*^9, 3.7489708325427723`*^9}}, CellLabel-> "In[360]:=",ExpressionUUID->"7335ba6b-153e-4c57-8f74-67ac262e90c3"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Length", "[", RowBox[{ RowBox[{"AlgebraDDEqs", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "]"}]], "Input", CellChangeTimes->{{3.747493880500272*^9, 3.7474938897376738`*^9}, { 3.7474964759857783`*^9, 3.747496478481014*^9}, 3.748967263446204*^9}, CellLabel-> "In[361]:=",ExpressionUUID->"6c79a32c-2cf0-49de-b7ad-8ac65d828c30"], Cell[BoxData["38"], "Output", CellChangeTimes->{3.749402619244396*^9, 3.7494970554123106`*^9, 3.7604713426663475`*^9}, CellLabel-> "Out[361]=",ExpressionUUID->"d63027c5-1379-4d0e-8c2e-724dec2719f8"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"LocalField", ",", "LocalFieldNumber"}], "]"}]], "Input", CellChangeTimes->{{3.747496499638111*^9, 3.7474965053367357`*^9}}, CellLabel-> "In[362]:=",ExpressionUUID->"c82728f8-2864-490c-8a1d-c7719bc4feec"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ SubsuperscriptBox["D", "a", "i"], ",", SubsuperscriptBox[ OverscriptBox["D", "~"], "b", "j"]}], "}"}], "Ft"}], "=", " ", "0"}], TraditionalForm]], "None",ExpressionUUID-> "4a6064d0-50bf-4c20-9267-3da57c136454"], " , FieldNumber = 10" }], "Subsubsection", CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, { 3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, { 3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7467956828758698`*^9, 3.746795686091745*^9}, {3.7468041140403814`*^9, 3.7468041142897005`*^9}, { 3.7468347489001255`*^9, 3.7468347489001255`*^9}, {3.746834847337947*^9, 3.746834847884678*^9}, {3.7468396653420925`*^9, 3.7468396657549887`*^9}, { 3.7474862914783926`*^9, 3.7474862914783926`*^9}, {3.7489743566164293`*^9, 3.748974374304059*^9}, {3.7494024843867817`*^9, 3.7494025055567417`*^9}},ExpressionUUID->"1122043b-3661-4ef0-8b32-\ fe863a53ff1c"], Cell[BoxData[{ RowBox[{ RowBox[{"LocalField", " ", "=", " ", RowBox[{"Ft", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"LocalFieldNumber", " ", "=", " ", "10"}], ";"}]}], "Input", CellChangeTimes->{{3.747496390463257*^9, 3.747496425281234*^9}, { 3.748786525924238*^9, 3.748786528879302*^9}, 3.748786783015108*^9, 3.7487869038980494`*^9, {3.748790053993587*^9, 3.748790061029888*^9}, { 3.74879017489659*^9, 3.7487901786479187`*^9}}, CellLabel-> "In[363]:=",ExpressionUUID->"ab56a5b9-30d6-40be-8584-dd1de8f02803"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDMinusClosure", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", RowBox[{"(", RowBox[{"Collect", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"AlgebraDD", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalField", "]"}], " ", ")"}], "/.", "LagrangianParameters"}], "/.", "VtoPauli"}], ",", "FieldListWithDerivatives", ",", "Simplify"}], "]"}], ")"}]}], ";"}]], "Input", CellChangeTimes->{{3.7474929944818563`*^9, 3.7474930651472597`*^9}, { 3.747493152219424*^9, 3.7474932477784343`*^9}, {3.7474934178914785`*^9, 3.7474934832105627`*^9}, {3.7474935638267813`*^9, 3.747493591801224*^9}, { 3.7474963739738455`*^9, 3.7474964449288054`*^9}, {3.748795026042665*^9, 3.748795027776865*^9}, {3.748965282772246*^9, 3.7489652841431913`*^9}, { 3.748967256264186*^9, 3.7489672582499332`*^9}, 3.749402552440271*^9}, CellLabel-> "In[365]:=",ExpressionUUID->"790312fb-d5cf-4e00-9b3d-0eaaaef48a16"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDEqs", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", "=", " ", RowBox[{ RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"Coefficient", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDMinusClosure", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "aa", ",", "jj", ",", "bb"}], "]"}], "]"}], ",", RowBox[{"FieldListWithDerivatives", "[", RowBox[{"[", "FieldListIndex", "]"}], "]"}]}], "]"}], ")"}], "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"FieldListIndex", ",", "1", ",", RowBox[{"Length", "[", "FieldListWithDerivatives", "]"}]}], "}"}]}], "]"}], "//", "Simplify"}], "//", "Flatten"}], ",", "True"}], "]"}], "//", "DeleteDuplicates"}]}], ";"}]], "Input", CellChangeTimes->{{3.7474933413160763`*^9, 3.7474934023534203`*^9}, { 3.747493509609391*^9, 3.7474935432809353`*^9}, {3.7474936064895945`*^9, 3.7474936161297655`*^9}, {3.7474936564987297`*^9, 3.747493747940831*^9}, { 3.747493832482408*^9, 3.7474938407374077`*^9}, {3.747496458745552*^9, 3.7474964697370515`*^9}, 3.7475105609270287`*^9, {3.748795270744809*^9, 3.748795274222528*^9}, {3.74879531011075*^9, 3.748795321437098*^9}, { 3.748795652987978*^9, 3.748795656902155*^9}, {3.748965289858489*^9, 3.748965292697112*^9}, {3.748967259459038*^9, 3.748967260813509*^9}, { 3.7489708313422194`*^9, 3.7489708325427723`*^9}}, CellLabel-> "In[366]:=",ExpressionUUID->"03cf2996-7ad3-41e5-8ae2-48a81390b759"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Length", "[", RowBox[{ RowBox[{"AlgebraDDEqs", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "]"}]], "Input", CellChangeTimes->{{3.747493880500272*^9, 3.7474938897376738`*^9}, { 3.7474964759857783`*^9, 3.747496478481014*^9}, 3.748967263446204*^9}, CellLabel-> "In[367]:=",ExpressionUUID->"70b8c598-2223-49fd-b65a-21e8f0cebd0e"], Cell[BoxData["39"], "Output", CellChangeTimes->{3.74940262483451*^9, 3.74949705666868*^9, 3.7604713439406023`*^9}, CellLabel-> "Out[367]=",ExpressionUUID->"61e0d2d3-32a2-49b6-ae31-dedd5571b427"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"LocalField", ",", "LocalFieldNumber"}], "]"}]], "Input", CellChangeTimes->{{3.747496499638111*^9, 3.7474965053367357`*^9}}, CellLabel-> "In[368]:=",ExpressionUUID->"677f2ebd-416c-4d54-9dca-d36f60f593a8"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ SubsuperscriptBox["D", "a", "i"], ",", SubsuperscriptBox[ OverscriptBox["D", "~"], "b", "j"]}], "}"}], "Gt"}], "=", " ", "0"}], TraditionalForm]], "None",ExpressionUUID-> "7040c583-e17c-403f-926d-ff646b1ab9bf"], ", FieldNumber = 11 " }], "Subsubsection", CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, { 3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, { 3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7467956828758698`*^9, 3.746795686091745*^9}, {3.7468041304980903`*^9, 3.7468041309100285`*^9}, { 3.746839677582308*^9, 3.7468396778076735`*^9}, {3.7474862929907045`*^9, 3.7474862929907045`*^9}, {3.748974358387362*^9, 3.7489743760634737`*^9}, { 3.749402487882969*^9, 3.749402502381095*^9}},ExpressionUUID->"b7893591-1540-4b1c-bcbf-\ bb5f9bfdb5bb"], Cell[BoxData[{ RowBox[{ RowBox[{"LocalField", " ", "=", " ", RowBox[{"Gt", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"LocalFieldNumber", " ", "=", " ", "11"}], ";"}]}], "Input", CellChangeTimes->{{3.747496390463257*^9, 3.747496425281234*^9}, { 3.748786525924238*^9, 3.748786528879302*^9}, 3.748786783015108*^9, 3.7487869038980494`*^9, {3.748790053993587*^9, 3.748790061029888*^9}}, CellLabel-> "In[369]:=",ExpressionUUID->"89a3cdc1-681f-49aa-96c6-ee208780db99"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDMinusClosure", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", RowBox[{"(", RowBox[{"Collect", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"AlgebraDD", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalField", "]"}], " ", ")"}], "/.", "LagrangianParameters"}], "/.", "VtoPauli"}], ",", "FieldListWithDerivatives", ",", "Simplify"}], "]"}], ")"}]}], ";"}]], "Input", CellChangeTimes->{{3.7474929944818563`*^9, 3.7474930651472597`*^9}, { 3.747493152219424*^9, 3.7474932477784343`*^9}, {3.7474934178914785`*^9, 3.7474934832105627`*^9}, {3.7474935638267813`*^9, 3.747493591801224*^9}, { 3.7474963739738455`*^9, 3.7474964449288054`*^9}, {3.748795026042665*^9, 3.748795027776865*^9}, {3.748965282772246*^9, 3.7489652841431913`*^9}, { 3.748967256264186*^9, 3.7489672582499332`*^9}, 3.7494025532799883`*^9}, CellLabel-> "In[371]:=",ExpressionUUID->"0af8fab7-ebe4-496a-8cd3-57c9f94282ed"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDEqs", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", "=", " ", RowBox[{ RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"Coefficient", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDMinusClosure", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "aa", ",", "jj", ",", "bb"}], "]"}], "]"}], ",", RowBox[{"FieldListWithDerivatives", "[", RowBox[{"[", "FieldListIndex", "]"}], "]"}]}], "]"}], ")"}], "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"FieldListIndex", ",", "1", ",", RowBox[{"Length", "[", "FieldListWithDerivatives", "]"}]}], "}"}]}], "]"}], "//", "Simplify"}], "//", "Flatten"}], ",", "True"}], "]"}], "//", "DeleteDuplicates"}]}], ";"}]], "Input", CellChangeTimes->{{3.7474933413160763`*^9, 3.7474934023534203`*^9}, { 3.747493509609391*^9, 3.7474935432809353`*^9}, {3.7474936064895945`*^9, 3.7474936161297655`*^9}, {3.7474936564987297`*^9, 3.747493747940831*^9}, { 3.747493832482408*^9, 3.7474938407374077`*^9}, {3.747496458745552*^9, 3.7474964697370515`*^9}, 3.7475105609270287`*^9, {3.748795270744809*^9, 3.748795274222528*^9}, {3.74879531011075*^9, 3.748795321437098*^9}, { 3.748795652987978*^9, 3.748795656902155*^9}, {3.748965289858489*^9, 3.748965292697112*^9}, {3.748967259459038*^9, 3.748967260813509*^9}, { 3.7489708313422194`*^9, 3.7489708325427723`*^9}}, CellLabel-> "In[372]:=",ExpressionUUID->"62241599-be81-4a9a-9083-d21d9b8fa0bf"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Length", "[", RowBox[{ RowBox[{"AlgebraDDEqs", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "]"}]], "Input", CellChangeTimes->{{3.747493880500272*^9, 3.7474938897376738`*^9}, { 3.7474964759857783`*^9, 3.747496478481014*^9}, 3.748967263446204*^9}, CellLabel-> "In[373]:=",ExpressionUUID->"f254e1ff-c0e4-4832-8c4b-e22f6cf22e4a"], Cell[BoxData["38"], "Output", CellChangeTimes->{3.749402631286667*^9, 3.7494970578982644`*^9, 3.7604713452294893`*^9}, CellLabel-> "Out[373]=",ExpressionUUID->"7b413b4b-7cb0-4645-bc65-04a86a8a4de7"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"LocalField", ",", "LocalFieldNumber"}], "]"}]], "Input", CellChangeTimes->{{3.747496499638111*^9, 3.7474965053367357`*^9}}, CellLabel-> "In[374]:=",ExpressionUUID->"90b5e18c-2f19-4701-b46a-2997ffad5bb5"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ SubsuperscriptBox["D", "a", "i"], ",", SubsuperscriptBox[ OverscriptBox["D", "~"], "b", "j"]}], "}"}], "\[CurlyPhi]"}], "=", " ", "0"}], TraditionalForm]], "None",ExpressionUUID-> "50f35b5d-87f9-47cb-8428-965cb067eac2"], ", FieldNumber = 12 " }], "Subsubsection", CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, { 3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, { 3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7467956828758698`*^9, 3.746795686091745*^9}, {3.7468041304980903`*^9, 3.7468041309100285`*^9}, { 3.746804167332865*^9, 3.7468041675702257`*^9}, {3.746839701322327*^9, 3.7468397017451973`*^9}, {3.747486294430385*^9, 3.747486294430385*^9}, { 3.7489743601067057`*^9, 3.748974377936059*^9}, {3.749402492882146*^9, 3.7494024967870865`*^9}},ExpressionUUID->"5d438b76-ace2-48e3-b168-\ c0d91150e30a"], Cell[BoxData[{ RowBox[{ RowBox[{"LocalField", " ", "=", " ", RowBox[{"\[CurlyPhi]", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"LocalFieldNumber", " ", "=", " ", "12"}], ";"}]}], "Input", CellChangeTimes->{{3.747496390463257*^9, 3.747496425281234*^9}, { 3.748786525924238*^9, 3.748786528879302*^9}, 3.748786783015108*^9, 3.7487869038980494`*^9}, CellLabel-> "In[375]:=",ExpressionUUID->"29b96f87-4ac1-45e2-a4f2-db18f26d8a91"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDMinusClosure", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", RowBox[{"(", RowBox[{"Collect", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"AlgebraDD", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalField", "]"}], " ", ")"}], "/.", "LagrangianParameters"}], "/.", "VtoPauli"}], ",", "FieldListWithDerivatives", ",", "Simplify"}], "]"}], ")"}]}], ";"}]], "Input", CellChangeTimes->{{3.7474929944818563`*^9, 3.7474930651472597`*^9}, { 3.747493152219424*^9, 3.7474932477784343`*^9}, {3.7474934178914785`*^9, 3.7474934832105627`*^9}, {3.7474935638267813`*^9, 3.747493591801224*^9}, { 3.7474963739738455`*^9, 3.7474964449288054`*^9}, {3.748795026042665*^9, 3.748795027776865*^9}, {3.748965282772246*^9, 3.7489652841431913`*^9}, { 3.748967256264186*^9, 3.7489672582499332`*^9}, 3.7494025546783743`*^9}, CellLabel-> "In[377]:=",ExpressionUUID->"25ec6a2a-ff38-49d3-8f2c-5d0b4233c7a2"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDEqs", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", "=", " ", RowBox[{ RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"Coefficient", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDMinusClosure", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "aa", ",", "jj", ",", "bb"}], "]"}], "]"}], ",", RowBox[{"FieldListWithDerivatives", "[", RowBox[{"[", "FieldListIndex", "]"}], "]"}]}], "]"}], ")"}], "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"FieldListIndex", ",", "1", ",", RowBox[{"Length", "[", "FieldListWithDerivatives", "]"}]}], "}"}]}], "]"}], "//", "Simplify"}], "//", "Flatten"}], ",", "True"}], "]"}], "//", "DeleteDuplicates"}]}], ";"}]], "Input", CellChangeTimes->{{3.7474933413160763`*^9, 3.7474934023534203`*^9}, { 3.747493509609391*^9, 3.7474935432809353`*^9}, {3.7474936064895945`*^9, 3.7474936161297655`*^9}, {3.7474936564987297`*^9, 3.747493747940831*^9}, { 3.747493832482408*^9, 3.7474938407374077`*^9}, {3.747496458745552*^9, 3.7474964697370515`*^9}, 3.7475105609270287`*^9, {3.748795270744809*^9, 3.748795274222528*^9}, {3.74879531011075*^9, 3.748795321437098*^9}, { 3.748795652987978*^9, 3.748795656902155*^9}, {3.748965289858489*^9, 3.748965292697112*^9}, {3.748967259459038*^9, 3.748967260813509*^9}, { 3.7489708313422194`*^9, 3.7489708325427723`*^9}}, CellLabel-> "In[378]:=",ExpressionUUID->"3e9a7c25-94ac-4ff4-b7d1-6348101b462a"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Length", "[", RowBox[{ RowBox[{"AlgebraDDEqs", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "]"}]], "Input", CellChangeTimes->{{3.747493880500272*^9, 3.7474938897376738`*^9}, { 3.7474964759857783`*^9, 3.747496478481014*^9}, 3.748967263446204*^9}, CellLabel-> "In[379]:=",ExpressionUUID->"4ff28bf3-9d4c-4f94-8fae-3c5ae7feaccf"], Cell[BoxData["44"], "Output", CellChangeTimes->{3.74940263702704*^9, 3.749497058422534*^9, 3.7604713458127565`*^9}, CellLabel-> "Out[379]=",ExpressionUUID->"80af9c90-f48c-4b43-8bb6-750a3f002ccb"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"LocalField", ",", "LocalFieldNumber"}], "]"}]], "Input", CellChangeTimes->{{3.747496499638111*^9, 3.7474965053367357`*^9}}, CellLabel-> "In[380]:=",ExpressionUUID->"375fa0d8-96b2-4b58-80f2-c2add21a7a82"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ SubsuperscriptBox["D", "a", "i"], ",", SubsuperscriptBox[ OverscriptBox["D", "~"], "b", "j"]}], "}"}], SubscriptBox["A", "\[Mu]"]}], "=", RowBox[{"-", RowBox[{ SubscriptBox["\[PartialD]", "\[Mu]"], SubsuperscriptBox[ OverscriptBox["\[Lambda]", "~"], "ab", "ij"]}]}]}], TraditionalForm]], "Subsection",ExpressionUUID->"65451eee-f701-47d5-8776-e00a3d655ec0"], " , \nFieldNumber = 7\n", Cell[BoxData[{ FormBox[ RowBox[{ RowBox[{ SubsuperscriptBox[ OverscriptBox["\[Lambda]", "~"], "ab", "ij"], "=", " ", RowBox[{ RowBox[{"i", " ", RowBox[{"(", RowBox[{ RowBox[{"a6", " ", SuperscriptBox["\[Delta]", "ij"]}], " ", "+", " ", RowBox[{"a7", " ", SuperscriptBox[ RowBox[{"(", SuperscriptBox["\[Sigma]", "1"], ")"}], "ij"]}], "+", RowBox[{"i", " ", SuperscriptBox[ RowBox[{"a8", "(", SuperscriptBox["\[Sigma]", "2"], ")"}], "ij"]}], "+", " ", RowBox[{"a9", " ", SuperscriptBox[ RowBox[{"(", SuperscriptBox["\[Sigma]", "3"], ")"}], "ij"]}]}], " ", ")"}], SubscriptBox[ RowBox[{"(", RowBox[{"[", RowBox[{ SuperscriptBox["\[Gamma]", "\[Alpha]"], ",", SuperscriptBox["\[Gamma]", "\[Beta]"]}], "]"}], ")"}], "ab"], SubscriptBox["B", "\[Alpha]\[Beta]"]}], " ", "+", " ", RowBox[{"2", "i", " ", RowBox[{"(", RowBox[{ RowBox[{"a10", " ", SuperscriptBox["\[Delta]", "ij"]}], " ", "+", " ", RowBox[{"a11", " ", SuperscriptBox[ RowBox[{"(", SuperscriptBox["\[Sigma]", "1"], ")"}], "ij"]}], "+", RowBox[{"i", " ", SuperscriptBox[ RowBox[{"a12", "(", SuperscriptBox["\[Sigma]", "2"], ")"}], "ij"]}], "+", " ", RowBox[{"a13", " ", SuperscriptBox[ RowBox[{"(", SuperscriptBox["\[Sigma]", "3"], ")"}], "ij"]}]}], " ", ")"}], SubscriptBox["C", "ab"], OverscriptBox["A", "~"]}]}]}], " "}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{ RowBox[{"+", " ", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{"a14", " ", SuperscriptBox["\[Delta]", "ij"]}], " ", "+", " ", RowBox[{"a15", " ", SuperscriptBox[ RowBox[{"(", SuperscriptBox["\[Sigma]", "1"], ")"}], "ij"]}], "+", RowBox[{"i", " ", SuperscriptBox[ RowBox[{"a16", "(", SuperscriptBox["\[Sigma]", "2"], ")"}], "ij"]}], "+", " ", RowBox[{"a17", " ", SuperscriptBox[ RowBox[{"(", SuperscriptBox["\[Sigma]", "3"], ")"}], "ij"]}]}], " ", ")"}], " ", SubscriptBox[ RowBox[{"(", SuperscriptBox["\[Gamma]", "5"], ")"}], "ab"], OverscriptBox["B", "~"]}], "+", " ", RowBox[{"2", "i", " ", RowBox[{"(", RowBox[{ RowBox[{"a18", " ", SuperscriptBox["\[Delta]", "ij"]}], " ", "+", " ", RowBox[{"a19", " ", SuperscriptBox[ RowBox[{"(", SuperscriptBox["\[Sigma]", "1"], ")"}], "ij"]}], "+", RowBox[{"i", " ", SuperscriptBox[ RowBox[{"a20", "(", SuperscriptBox["\[Sigma]", "2"], ")"}], "ij"]}], "+", " ", RowBox[{"a21", " ", SuperscriptBox[ RowBox[{"(", SuperscriptBox["\[Sigma]", "3"], ")"}], "ij"]}]}], " ", ")"}], SubscriptBox["C", "ab"], OverscriptBox["\[CurlyPhi]", "~"]}]}], TraditionalForm]}], ExpressionUUID->"63163ca4-1906-4484-82d6-c9a00b3bb4d8"] }], "Subsubsection", CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, { 3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, { 3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7467956828758698`*^9, 3.746795686091745*^9}, {3.7468041304980903`*^9, 3.7468041309100285`*^9}, { 3.746804200318131*^9, 3.746804240053707*^9}, {3.74680432554387*^9, 3.746804336909229*^9}, {3.7468050801419106`*^9, 3.746805100373829*^9}, { 3.746841296333973*^9, 3.746841355175333*^9}, {3.7468413946111727`*^9, 3.7468413969638214`*^9}, {3.7474862348309937`*^9, 3.7474862348309937`*^9}, {3.7489665405117817`*^9, 3.748966542831262*^9}, { 3.748966633559536*^9, 3.748966677424404*^9}, 3.748966919128932*^9, { 3.748971703483138*^9, 3.748971705860566*^9}, {3.748975938792149*^9, 3.748975945893471*^9}, {3.748976013026861*^9, 3.7489760130270844`*^9}, { 3.749402656314017*^9, 3.7494026662917204`*^9}, {3.749402736003664*^9, 3.749402761107051*^9}, {3.7494028255814605`*^9, 3.74940292957936*^9}, { 3.7494030059302683`*^9, 3.749403012130484*^9}, {3.749403223988676*^9, 3.7494032339720445`*^9}, {3.749403386412226*^9, 3.749403412411317*^9}, { 3.7494034866111946`*^9, 3.7494035370740757`*^9}, {3.74940357064256*^9, 3.749403571243368*^9}},ExpressionUUID->"ede232d0-d24a-4d82-9e83-\ 5a799722d4af"], Cell[BoxData[ RowBox[{ RowBox[{"LocalFieldNumber", " ", "=", " ", "7"}], ";"}]], "Input", CellChangeTimes->{{3.748966071586817*^9, 3.748966075509182*^9}, { 3.748966797273872*^9, 3.748966797353215*^9}, 3.748966916891461*^9}, CellLabel-> "In[381]:=",ExpressionUUID->"b4a04213-f33c-44c4-a894-eb04e9024fa2"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Lambda]", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", RowBox[{"ii_", ",", "jj_"}], "]"}], "[", RowBox[{"aa_", ",", "bb_"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", ":=", " ", RowBox[{ RowBox[{"I", " ", RowBox[{"(", RowBox[{ RowBox[{"a6", " ", RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}]}], " ", "+", " ", RowBox[{"a7", " ", RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}]}], " ", "+", " ", RowBox[{"I", " ", "a8", " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}]}], " ", "+", " ", RowBox[{"a9", " ", RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}]}]}], ")"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"CommuteGammadown", "[", RowBox[{"ap", ",", "bt"}], "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"Bmn", "[", RowBox[{"ap", ",", "bt"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"ap", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"bt", ",", "0", ",", "3"}], "}"}]}], "]"}]}], " ", "+", " ", RowBox[{"2", "I", " ", RowBox[{"(", RowBox[{ RowBox[{"a10", " ", RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}]}], " ", "+", " ", RowBox[{"a11", " ", RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}]}], " ", "+", " ", RowBox[{"I", " ", "a12", " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}]}], " ", "+", " ", RowBox[{"a13", " ", RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}]}]}], ")"}], RowBox[{"Cmetric", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], " ", RowBox[{"At", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", "+", " ", RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"a14", " ", RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}]}], " ", "+", " ", RowBox[{"a15", " ", RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}]}], " ", "+", " ", RowBox[{"I", " ", "a16", " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}]}], " ", "+", " ", RowBox[{"a17", " ", RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}]}]}], ")"}], RowBox[{"\[Gamma]5down", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], " ", RowBox[{"Bt", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", " ", RowBox[{"2", "I", " ", RowBox[{"(", RowBox[{ RowBox[{"a18", " ", RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}]}], " ", "+", " ", RowBox[{"a19", " ", RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}]}], " ", "+", " ", RowBox[{"I", " ", "a20", " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}]}], " ", "+", " ", RowBox[{"a21", " ", RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}]}]}], ")"}], RowBox[{"Cmetric", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"\[CurlyPhi]", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " "}]}]}]], "Input", CellChangeTimes->{{3.746804354420742*^9, 3.746804354698959*^9}, { 3.7468050126457977`*^9, 3.746805074136135*^9}, {3.74680511128192*^9, 3.746805165236924*^9}, {3.7468053158322053`*^9, 3.7468053335810037`*^9}, { 3.74680550552096*^9, 3.746805530545571*^9}, {3.746805594980097*^9, 3.746805595781765*^9}, {3.74896669810314*^9, 3.74896673459186*^9}, { 3.748971712110408*^9, 3.7489717140585623`*^9}, {3.748975951983173*^9, 3.748975952110795*^9}, {3.749383865056628*^9, 3.7493838759913654`*^9}, { 3.749403019939516*^9, 3.7494030384980574`*^9}, {3.749403628538812*^9, 3.7494038510988035`*^9}}, CellLabel-> "In[382]:=",ExpressionUUID->"0f0a7b7c-07e8-44ec-b30c-db5b67b9e62a"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Lambda]Table", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Lambda]", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", RowBox[{"ii", ",", "jj"}], "]"}], "[", RowBox[{"aa", ",", "bb"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.746805604570979*^9, 3.746805658227662*^9}, { 3.746806044124957*^9, 3.746806044220275*^9}, {3.748975955245373*^9, 3.7489759553513308`*^9}, {3.748976084694819*^9, 3.7489760848424053`*^9}, { 3.749383870656556*^9, 3.7493838848477592`*^9}}, CellLabel-> "In[383]:=",ExpressionUUID->"dad571fe-79f6-47a2-a0f9-f8290d196caa"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDMinusClosure", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", RowBox[{"Collect", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"AlgebraDD", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", RowBox[{ RowBox[{"Am", "[", "mu", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}], " ", "-", RowBox[{"Table", "[", " ", RowBox[{ RowBox[{"-", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"\[Lambda]Table", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], " ", ")"}], "/.", "LagrangianParameters"}], "/.", "VtoPauli"}], ",", "FieldListWithDerivatives", ",", "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.738583987798254*^9}, {3.746795246915931*^9, 3.7467952488448153`*^9}, {3.7467958844446697`*^9, 3.746795886747491*^9}, { 3.7468041314416847`*^9, 3.746804147477379*^9}, {3.7468043445732574`*^9, 3.746804347340818*^9}, {3.746805172730974*^9, 3.746805251677202*^9}, { 3.7468055536216993`*^9, 3.7468055583468037`*^9}, {3.7468056889959183`*^9, 3.7468056937751846`*^9}, {3.746806056497301*^9, 3.7468060582362785`*^9}, 3.746807159168933*^9, {3.7468447252976427`*^9, 3.7468447276633115`*^9}, 3.747486056829548*^9, {3.748966800357626*^9, 3.748966822426412*^9}, { 3.748966855769305*^9, 3.748966899217395*^9}, {3.748967060423177*^9, 3.7489670624186296`*^9}, {3.748967139679923*^9, 3.748967140446787*^9}, { 3.748967289390843*^9, 3.748967290234539*^9}, {3.748975962935253*^9, 3.7489759630401773`*^9}, {3.7493838917283077`*^9, 3.749383898031501*^9}, { 3.749403918372656*^9, 3.749403935418086*^9}, 3.7494039728021383`*^9}, CellLabel-> "In[384]:=",ExpressionUUID->"cab4b7d5-5518-416e-ac82-c4bf6ed731b5"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Dimensions", "[", RowBox[{ RowBox[{"AlgebraDDMinusClosure", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "]"}]], "Input", CellChangeTimes->{{3.748967000132847*^9, 3.7489670075291*^9}, { 3.748967065448983*^9, 3.7489670662308064`*^9}, 3.748967291722481*^9}, CellLabel-> "In[385]:=",ExpressionUUID->"78025b2c-109e-4067-9b75-cf5db6812b67"], Cell[BoxData[ RowBox[{"{", RowBox[{"4", ",", "2", ",", "4", ",", "2", ",", "4"}], "}"}]], "Output", CellChangeTimes->{3.74940400246513*^9, 3.749497059481036*^9, 3.760471347539424*^9}, CellLabel-> "Out[385]=",ExpressionUUID->"99c11756-5af5-4892-a694-3f5f15a0036b"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDEqs", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", "=", " ", RowBox[{ RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"Coefficient", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDMinusClosure", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "[", RowBox[{"[", RowBox[{"mu", ",", "ii", ",", "aa", ",", "jj", ",", "bb"}], "]"}], "]"}], ",", RowBox[{"FieldListWithDerivatives", "[", RowBox[{"[", "FieldListIndex", "]"}], "]"}]}], "]"}], ")"}], "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"mu", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"FieldListIndex", ",", "1", ",", RowBox[{"Length", "[", "FieldListWithDerivatives", "]"}]}], "}"}]}], "]"}], "//", "Simplify"}], "//", "Flatten"}], ",", "True"}], "]"}], "//", "DeleteDuplicates"}]}], ";"}]], "Input", CellChangeTimes->{{3.7474933413160763`*^9, 3.7474934023534203`*^9}, { 3.747493509609391*^9, 3.7474935432809353`*^9}, {3.7474936064895945`*^9, 3.7474936161297655`*^9}, {3.7474936564987297`*^9, 3.747493747940831*^9}, { 3.747493832482408*^9, 3.7474938407374077`*^9}, {3.747496458745552*^9, 3.7474964697370515`*^9}, 3.7475105609270287`*^9, {3.748795270744809*^9, 3.748795274222528*^9}, {3.74879531011075*^9, 3.748795321437098*^9}, { 3.748795652987978*^9, 3.748795656902155*^9}, {3.748965289858489*^9, 3.748965292697112*^9}, {3.74896646470501*^9, 3.748966481142193*^9}, { 3.748966980329461*^9, 3.7489669917689943`*^9}, {3.748967292501384*^9, 3.7489672932881193`*^9}, {3.7489707899595118`*^9, 3.748970791327216*^9}}, CellLabel-> "In[386]:=",ExpressionUUID->"eec594e4-0d46-4a06-b84f-4d0871af1f91"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Length", "[", RowBox[{ RowBox[{"AlgebraDDEqs", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "]"}]], "Input", CellChangeTimes->{{3.747493880500272*^9, 3.7474938897376738`*^9}, { 3.7474964759857783`*^9, 3.747496478481014*^9}, 3.74896729732123*^9, { 3.748969441641419*^9, 3.7489694468799477`*^9}}, CellLabel-> "In[387]:=",ExpressionUUID->"838f0372-72ef-4906-bbd5-2c805be2c04d"], Cell[BoxData["77"], "Output", CellChangeTimes->{3.749404028578804*^9, 3.749497060662509*^9, 3.7604713498160734`*^9}, CellLabel-> "Out[387]=",ExpressionUUID->"baf718a5-94cd-433d-9fc0-409669c81b02"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", "LocalFieldNumber", "]"}]], "Input", CellChangeTimes->{{3.747496499638111*^9, 3.7474965053367357`*^9}, { 3.748966504446074*^9, 3.748966505904224*^9}}, CellLabel-> "In[388]:=",ExpressionUUID->"836bddc1-56d5-4d01-8d5d-f4b7303ff848"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ SubsuperscriptBox["D", "a", "i"], ",", SubsuperscriptBox[ OverscriptBox["D", "~"], "b", "j"]}], "}"}], SubscriptBox["B", "\[Mu]\[Nu]"]}], "=", " ", RowBox[{"-", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"[", "\[Mu]"}]], SubsuperscriptBox[ OverscriptBox["\[CapitalLambda]", "~"], RowBox[{ RowBox[{"\[Nu]", "]"}], "ab"}], "ij"]}]}]}], TraditionalForm]], "None",ExpressionUUID->"9ce39267-9738-4060-a89f-3e16548e2d42"], " ,\nFieldNumber = 14\n", Cell[BoxData[{ FormBox[ RowBox[{ RowBox[{ SubsuperscriptBox[ OverscriptBox["\[CapitalLambda]", "~"], "\[Nu]ab", "ij"], "=", " ", RowBox[{ RowBox[{"2", "i", " ", RowBox[{"(", RowBox[{ RowBox[{"b12", " ", SuperscriptBox["\[Delta]", "ij"]}], " ", "+", " ", RowBox[{"b13", " ", SuperscriptBox[ RowBox[{"(", SuperscriptBox["\[Sigma]", "1"], ")"}], "ij"]}], "+", RowBox[{"i", " ", SuperscriptBox[ RowBox[{"b14", "(", SuperscriptBox["\[Sigma]", "2"], ")"}], "ij"]}], "+", RowBox[{"b15", " ", SuperscriptBox[ RowBox[{"(", SuperscriptBox["\[Sigma]", "3"], ")"}], "ij"]}]}], " ", ")"}], SubscriptBox["C", "ab"], SubscriptBox["A", "\[Nu]"]}], "+", " ", RowBox[{"i", " ", SubscriptBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"b16", " ", SuperscriptBox["\[Delta]", "ij"]}], " ", "+", " ", RowBox[{"b17", " ", SuperscriptBox[ RowBox[{"(", SuperscriptBox["\[Sigma]", "1"], ")"}], "ij"]}], "+", RowBox[{"i", " ", SuperscriptBox[ RowBox[{"b18", "(", SuperscriptBox["\[Sigma]", "2"], ")"}], "ij"]}], "+", RowBox[{"b19", " ", SuperscriptBox[ RowBox[{"(", SuperscriptBox["\[Sigma]", "3"], ")"}], "ij"]}]}], " ", ")"}], "[", RowBox[{ SubscriptBox["\[Gamma]", "\[Nu]"], ",", SubscriptBox["\[Gamma]", "\[Alpha]"]}], "]"}], "ab"], SuperscriptBox["A", "\[Alpha]"]}]}]}], " "}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{ RowBox[{"+", "i"}], " ", RowBox[{"(", RowBox[{ RowBox[{"b20", " ", SuperscriptBox["\[Delta]", "ij"]}], " ", "+", " ", RowBox[{"b21", " ", SuperscriptBox[ RowBox[{"(", SuperscriptBox["\[Sigma]", "1"], ")"}], "ij"]}], "+", RowBox[{"i", " ", SuperscriptBox[ RowBox[{"b22", "(", SuperscriptBox["\[Sigma]", "2"], ")"}], "ij"]}], "+", RowBox[{"b23", " ", SuperscriptBox[ RowBox[{"(", SuperscriptBox["\[Sigma]", "3"], ")"}], "ij"]}]}], " ", ")"}], SubscriptBox[ RowBox[{"(", SubscriptBox["\[Gamma]", "\[Nu]"], ")"}], "ab"], "A"}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"b24", " ", SuperscriptBox["\[Delta]", "ij"]}], " ", "+", " ", RowBox[{"b25", " ", SuperscriptBox[ RowBox[{"(", SuperscriptBox["\[Sigma]", "1"], ")"}], "ij"]}], "+", RowBox[{"i", " ", SuperscriptBox[ RowBox[{"b26", "(", SuperscriptBox["\[Sigma]", "2"], ")"}], "ij"]}], "+", RowBox[{"b27", " ", SuperscriptBox[ RowBox[{"(", SuperscriptBox["\[Sigma]", "3"], ")"}], "ij"]}]}], " ", ")"}], SubscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["\[Gamma]", "5"], SubscriptBox["\[Gamma]", "\[Nu]"]}], ")"}], "ab"], "B", " "}]}], TraditionalForm]}],ExpressionUUID->"7f2e251a-896b-4cf0-ab04-1403b7c2ee28"] }], "Subsubsection", CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, { 3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, { 3.7467949641466155`*^9, 3.746794979356092*^9}, {3.7467956828758698`*^9, 3.746795686091745*^9}, {3.7468041304980903`*^9, 3.7468041309100285`*^9}, { 3.746804200318131*^9, 3.746804240053707*^9}, {3.74680432554387*^9, 3.746804336909229*^9}, {3.7468050801419106`*^9, 3.746805100373829*^9}, { 3.7468397665571055`*^9, 3.746839802623133*^9}, {3.74684113959402*^9, 3.7468412441025996`*^9}, {3.747486297838811*^9, 3.747486297838811*^9}, { 3.748974368374832*^9, 3.748974387624366*^9}, {3.748974800366748*^9, 3.7489748283377237`*^9}, {3.748975031260829*^9, 3.74897519200307*^9}, { 3.748975280187872*^9, 3.74897528043862*^9}, {3.7489753380030317`*^9, 3.748975384519353*^9}, {3.748976024242681*^9, 3.7489760469667788`*^9}, { 3.7494040633960037`*^9, 3.749404077803393*^9}, {3.749404320307985*^9, 3.7494045104833603`*^9}, {3.7494045512989826`*^9, 3.7494046042504616`*^9}, {3.74940530435376*^9, 3.7494053059139447`*^9}, { 3.749405604571086*^9, 3.749405604571086*^9}},ExpressionUUID->"584b0c06-6593-4245-91e2-\ 62ac62d41363"], Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"Amup", "[", "\[Mu]", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", "=", " ", SuperscriptBox["A", "\[Mu]"]}], TraditionalForm]], "None",ExpressionUUID-> "b8df3864-91f6-485a-bd50-96c400aee409"], ", forgot this one" }], "Text", CellChangeTimes->{{3.5595058748817196`*^9, 3.559505896619963*^9}, { 3.5595059940175343`*^9, 3.5595060010259347`*^9}, {3.74678782171711*^9, 3.74678786098053*^9}, {3.7467881807248545`*^9, 3.746788190022028*^9}, { 3.746788346555399*^9, 3.746788346555399*^9}, {3.746788643343294*^9, 3.746788643815591*^9}, {3.7494047903303566`*^9, 3.7494048127854605`*^9}},ExpressionUUID->"a9567c50-79fc-4c98-9ea0-\ 8d218af2c178"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Amup", "[", "\[Mu]", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"RaiseSTIndex", "[", RowBox[{ RowBox[{"AmHolder", "[", "\[Mu]", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", RowBox[{"AmHolder", "\[Rule]", "Am"}]}]}], ",", RowBox[{"{", RowBox[{"\[Mu]", ",", "0", ",", "3"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.5595058981330495`*^9, 3.5595059444937015`*^9}, { 3.7113879792638707`*^9, 3.7113880306928124`*^9}, {3.737154372023514*^9, 3.7371543849622355`*^9}, {3.737159515714714*^9, 3.7371595253561463`*^9}, { 3.74678782201628*^9, 3.746787825946167*^9}, 3.7467878778048897`*^9, { 3.746787909745264*^9, 3.746787924140156*^9}, {3.7467879975357356`*^9, 3.7467879981953106`*^9}, {3.7467881857567434`*^9, 3.7467881927209597`*^9}, {3.746788351399992*^9, 3.7467883622182903`*^9}, { 3.7494048344188623`*^9, 3.7494048611295433`*^9}, {3.7494049529790893`*^9, 3.7494049533374643`*^9}}, CellLabel-> "In[389]:=",ExpressionUUID->"60e68af9-624c-4965-b409-4479aa4dfa09"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Amup", "[", "mu", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}], "//", "MatrixForm"}]], "Input", CellChangeTimes->{{3.737154400322974*^9, 3.7371544155276656`*^9}, 3.7467878270506954`*^9, 3.7467883634435215`*^9, {3.7467884066390657`*^9, 3.746788406756423*^9}, {3.746788439379644*^9, 3.746788439504629*^9}, { 3.749404883538143*^9, 3.7494048883057685`*^9}, {3.749404959970332*^9, 3.749404982825347*^9}}, CellLabel-> "In[390]:=",ExpressionUUID->"c8910aca-4b86-40a5-b31b-911cb91a459d"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{"-", RowBox[{ RowBox[{"Am", "[", "0", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}, { RowBox[{ RowBox[{"Am", "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}, { RowBox[{ RowBox[{"Am", "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}, { RowBox[{ RowBox[{"Am", "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.7494048889091253`*^9, {3.7494049562631254`*^9, 3.74940498316192*^9}, 3.7494970607016535`*^9, 3.760471349885253*^9}, CellLabel-> "Out[390]//MatrixForm=",ExpressionUUID->"a75c6737-d808-4396-bb5c-\ bfa53a596c09"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"LocalFieldNumber", " ", "=", " ", "14"}], ";"}]], "Input", CellChangeTimes->{{3.748975431348178*^9, 3.7489754349879637`*^9}}, CellLabel-> "In[391]:=",ExpressionUUID->"740a0140-d618-4c72-9e0c-224d89aa513b"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalLambda]", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "nu_", "]"}], "[", RowBox[{"ii_", ",", "jj_"}], "]"}], "[", RowBox[{"aa_", ",", "bb_"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", ":=", " ", RowBox[{ RowBox[{"2", " ", "I", " ", RowBox[{"(", RowBox[{ RowBox[{"b12", " ", RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}]}], " ", "+", " ", RowBox[{"b13", " ", RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}]}], " ", "+", " ", RowBox[{"I", " ", "b14", " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}]}], " ", "+", " ", RowBox[{"b15", " ", RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}]}]}], ")"}], RowBox[{"Cmetric", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"Am", "[", "nu", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", "+", RowBox[{"I", " ", RowBox[{"(", RowBox[{ RowBox[{"b16", " ", RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}]}], " ", "+", " ", RowBox[{"b17", " ", RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}]}], " ", "+", " ", RowBox[{"I", " ", "b18", " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}]}], " ", "+", " ", RowBox[{"b19", " ", RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}]}]}], ")"}], RowBox[{"Sum", "[", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"CommuteGammastdowndown", "[", RowBox[{"nu", ",", "ap"}], "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"Amup", "[", "ap", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"ap", ",", "0", ",", "3"}], "}"}]}], "]"}]}], " ", "+", " ", RowBox[{"I", " ", RowBox[{"(", RowBox[{ RowBox[{"b20", " ", RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}]}], " ", "+", " ", RowBox[{"b21", " ", RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}]}], " ", "+", " ", RowBox[{"I", " ", "b22", " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}]}], " ", "+", " ", RowBox[{"b23", " ", RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}]}]}], ")"}], " ", RowBox[{ RowBox[{"\[Gamma]stdowndown", "[", "nu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"A", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"b24", " ", RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}]}], " ", "+", " ", RowBox[{"b25", " ", RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}]}], " ", "+", " ", RowBox[{"I", " ", "b26", " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}]}], " ", "+", " ", RowBox[{"b27", " ", RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}]}]}], ")"}], " ", RowBox[{ RowBox[{"\[Gamma]5\[Gamma]stdowndown", "[", "nu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], " ", RowBox[{"B", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " "}]}]}]], "Input", CellChangeTimes->{{3.746804354420742*^9, 3.746804354698959*^9}, { 3.7468050126457977`*^9, 3.746805074136135*^9}, {3.74680511128192*^9, 3.746805165236924*^9}, {3.7468053158322053`*^9, 3.7468053335810037`*^9}, { 3.74680550552096*^9, 3.746805530545571*^9}, {3.746805594980097*^9, 3.746805595781765*^9}, {3.746839806824238*^9, 3.7468398386752944`*^9}, { 3.746840467179223*^9, 3.746840577643236*^9}, {3.7468406269686317`*^9, 3.7468406318670626`*^9}, {3.748975454158135*^9, 3.748975573767836*^9}, { 3.748975737676373*^9, 3.7489758261756477`*^9}, {3.7489760524656143`*^9, 3.748976052591613*^9}, {3.749392003229625*^9, 3.749392016992*^9}, { 3.7494042706916876`*^9, 3.7494043048268905`*^9}, {3.749404647579975*^9, 3.7494047323147717`*^9}, {3.7494050073866777`*^9, 3.7494051280428796`*^9}, { 3.7494053121302547`*^9, 3.749405383242344*^9}, {3.749496944162429*^9, 3.7494969467467413`*^9}}, CellLabel-> "In[392]:=",ExpressionUUID->"5cb72d3a-fb99-4113-b7e0-67b2c78b0d24"], Cell[BoxData[ RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalLambda]Table", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "nu", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalLambda]", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "nu", "]"}], "[", RowBox[{"ii", ",", "jj"}], "]"}], "[", RowBox[{"aa", ",", "bb"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}], ";"}]], "Input", CellChangeTimes->{{3.746805604570979*^9, 3.746805658227662*^9}, { 3.746806044124957*^9, 3.746806044220275*^9}, {3.7468406679832497`*^9, 3.746840718939666*^9}, {3.748976054744322*^9, 3.74897607333829*^9}, { 3.7493920180869985`*^9, 3.749392031308953*^9}}, CellLabel-> "In[393]:=",ExpressionUUID->"56bfa145-69ff-4d47-b826-dd20b7d226ed"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDMinusClosure", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "=", RowBox[{"Collect", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"AlgebraDD", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", RowBox[{ RowBox[{"Bmn", "[", RowBox[{"mu", ",", "nu"}], "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}], " ", "-", RowBox[{"Table", "[", RowBox[{ RowBox[{"-", " ", RowBox[{"(", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalLambda]Table", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "nu", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}], "-", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalLambda]Table", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "mu", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "nu", "]"}]}], "]"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], " ", ")"}], "/.", "LagrangianParameters"}], "/.", "VtoPauli"}], ",", "FieldListWithDerivatives", ",", "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.738583987798254*^9}, {3.746795246915931*^9, 3.7467952488448153`*^9}, {3.7467958844446697`*^9, 3.746795886747491*^9}, { 3.7468041314416847`*^9, 3.746804147477379*^9}, {3.7468043445732574`*^9, 3.746804347340818*^9}, {3.746805172730974*^9, 3.746805251677202*^9}, { 3.7468055536216993`*^9, 3.7468055583468037`*^9}, {3.7468056889959183`*^9, 3.7468056937751846`*^9}, {3.746806056497301*^9, 3.7468060582362785`*^9}, 3.746807159168933*^9, {3.7468447252976427`*^9, 3.7468447276633115`*^9}, 3.747486056829548*^9, {3.748966800357626*^9, 3.748966822426412*^9}, { 3.748966855769305*^9, 3.748966899217395*^9}, {3.748967060423177*^9, 3.7489670624186296`*^9}, {3.748967139679923*^9, 3.748967140446787*^9}, { 3.748967289390843*^9, 3.748967290234539*^9}, {3.748976150022376*^9, 3.748976186398181*^9}, {3.748976221981041*^9, 3.74897625273479*^9}, { 3.74939203703743*^9, 3.7493920457171974`*^9}, 3.749405612450926*^9}, CellLabel-> "In[394]:=",ExpressionUUID->"7bca0d1b-183b-46f1-aa60-9d114893f6f2"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Dimensions", "[", RowBox[{ RowBox[{"AlgebraDDMinusClosure", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "]"}]], "Input", CellChangeTimes->{{3.748967000132847*^9, 3.7489670075291*^9}, { 3.748967065448983*^9, 3.7489670662308064`*^9}, 3.748967291722481*^9}, CellLabel-> "In[395]:=",ExpressionUUID->"c0242db3-9b55-4a5a-9493-573cb78ec934"], Cell[BoxData[ RowBox[{"{", RowBox[{"4", ",", "4", ",", "2", ",", "4", ",", "2", ",", "4"}], "}"}]], "Output", CellChangeTimes->{3.7494056277210283`*^9, 3.7494970644117327`*^9, 3.7604713562655735`*^9}, CellLabel-> "Out[395]=",ExpressionUUID->"7267cb09-404e-40d2-9093-f6b73023663f"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDEqs", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], " ", "=", " ", RowBox[{ RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"Coefficient", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDMinusClosure", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "[", RowBox[{"[", RowBox[{ "mu", ",", "nu", ",", "ii", ",", "aa", ",", "jj", ",", "bb"}], "]"}], "]"}], ",", RowBox[{"FieldListWithDerivatives", "[", RowBox[{"[", "FieldListIndex", "]"}], "]"}]}], "]"}], ")"}], "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"mu", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"nu", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"FieldListIndex", ",", "1", ",", RowBox[{"Length", "[", "FieldListWithDerivatives", "]"}]}], "}"}]}], "]"}], "//", "Simplify"}], "//", "Flatten"}], ",", "True"}], "]"}], "//", "DeleteDuplicates"}]}], ";"}]], "Input", CellChangeTimes->{{3.7474933413160763`*^9, 3.7474934023534203`*^9}, { 3.747493509609391*^9, 3.7474935432809353`*^9}, {3.7474936064895945`*^9, 3.7474936161297655`*^9}, {3.7474936564987297`*^9, 3.747493747940831*^9}, { 3.747493832482408*^9, 3.7474938407374077`*^9}, {3.747496458745552*^9, 3.7474964697370515`*^9}, 3.7475105609270287`*^9, {3.748795270744809*^9, 3.748795274222528*^9}, {3.74879531011075*^9, 3.748795321437098*^9}, { 3.748795652987978*^9, 3.748795656902155*^9}, {3.748965289858489*^9, 3.748965292697112*^9}, {3.74896646470501*^9, 3.748966481142193*^9}, { 3.748966980329461*^9, 3.7489669917689943`*^9}, {3.748967292501384*^9, 3.7489672932881193`*^9}, {3.7489707899595118`*^9, 3.748970791327216*^9}, { 3.7489763001679688`*^9, 3.748976310828599*^9}}, CellLabel-> "In[396]:=",ExpressionUUID->"eadae415-0a50-4b2c-8745-fe875576dd28"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Length", "[", RowBox[{ RowBox[{"AlgebraDDEqs", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "]"}]], "Input", CellChangeTimes->{{3.747493880500272*^9, 3.7474938897376738`*^9}, { 3.7474964759857783`*^9, 3.747496478481014*^9}, 3.74896729732123*^9, { 3.748969441641419*^9, 3.7489694468799477`*^9}}, CellLabel-> "In[397]:=",ExpressionUUID->"84a1612c-9cd8-432d-8df3-d68f9c61c4cc"], Cell[BoxData["82"], "Output", CellChangeTimes->{3.7494056404629965`*^9, 3.7494970680017805`*^9, 3.76047136469632*^9}, CellLabel-> "Out[397]=",ExpressionUUID->"ef5ce405-3ade-4343-9cde-4c19a1ba26f1"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", "LocalFieldNumber", "]"}]], "Input", CellChangeTimes->{{3.747496499638111*^9, 3.7474965053367357`*^9}, { 3.748966504446074*^9, 3.748966505904224*^9}}, CellLabel-> "In[398]:=",ExpressionUUID->"7256d50b-b249-4a69-af5e-09968fb1a902"] }, Closed]], Cell[CellGroupData[{ Cell["\<\ Solving Equations,the only solution to close just the bosons is the trivial \ one where all parameters are zero\ \>", "Subsubsection", CellChangeTimes->{{3.7489677698312817`*^9, 3.748967780199047*^9}, { 3.748972486308576*^9, 3.74897251391574*^9}, {3.7493835711024337`*^9, 3.7493835816704755`*^9}, {3.749383699006539*^9, 3.7493837028302116`*^9}, 3.749383740939508*^9, {3.7604712757942204`*^9, 3.7604712999841146`*^9}},ExpressionUUID->"4d12dc3a-9dd6-43da-82e1-\ 2fd729144e99"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"BosonNumbersList", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], " ", "=", " ", RowBox[{"Join", "[", RowBox[{ RowBox[{ RowBox[{"BosonNumbersList", "[", RowBox[{"2", ",", "2"}], "]"}], "[", "1", "]"}], ",", RowBox[{ RowBox[{"BosonNumbersList", "[", RowBox[{"2", ",", "2"}], "]"}], "[", "2", "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.7494061043026266`*^9, 3.7494062075696025`*^9}}, CellLabel-> "In[405]:=",ExpressionUUID->"09bdeec3-8442-47d0-acf8-753e19315649"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "7", ",", "8", ",", "9", ",", "10", ",", "11", ",", "12", ",", "14"}], "}"}]], "Output", CellChangeTimes->{ 3.749406151258669*^9, {3.7494061897830524`*^9, 3.74940620946654*^9}, 3.7494970680653734`*^9, {3.7604713647261133`*^9, 3.760471383736466*^9}}, CellLabel-> "Out[405]=",ExpressionUUID->"fa120a34-6769-4b9c-a138-aa69de6d47d4"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"BosonAlgebraDDEqs", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"AlgebraDDEqs", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", RowBox[{ RowBox[{"BosonNumbersList", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", RowBox[{"[", "Index", "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"Index", ",", "1", ",", RowBox[{"Length", "[", RowBox[{"BosonNumbersList", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "]"}]}], "}"}]}], "]"}], "//", "Flatten"}], "//", "Simplify"}], "//", "DeleteDuplicates"}]}], ";"}]], "Input", CellChangeTimes->{{3.748969325590454*^9, 3.748969329010118*^9}, { 3.7489693756376123`*^9, 3.74896943185653*^9}, {3.74896948893606*^9, 3.748969543541419*^9}, {3.748969623685299*^9, 3.748969652021121*^9}, { 3.748969966308803*^9, 3.748969967451939*^9}, {3.7489715297447653`*^9, 3.748971546561779*^9}, {3.749383598820228*^9, 3.7493836035464973`*^9}, { 3.749383715663767*^9, 3.7493837165662193`*^9}, {3.749384135140419*^9, 3.749384136227512*^9}, 3.749384174767242*^9, {3.7494063042503133`*^9, 3.7494063142096786`*^9}}, CellLabel-> "In[406]:=",ExpressionUUID->"ca63282f-015e-4414-80cd-0445c4b5b781"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"BosonSolutions", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], " ", "=", " ", RowBox[{"Solve", "[", RowBox[{ RowBox[{"BosonAlgebraDDEqs", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], ",", RowBox[{"Join", "[", RowBox[{"cvList", ",", RowBox[{"{", RowBox[{ "a6", ",", "a7", ",", "a8", ",", "a9", ",", "a10", ",", "a11", ",", "a12", ",", "a13", ",", "a14", ",", "a15", ",", "a16", ",", "a17", ",", "a18", ",", "a19", ",", "a20", ",", "a21", ",", "b12", ",", "b13", ",", "b14", ",", "b15", ",", "b16", ",", "b17", ",", "b18", ",", "b19", ",", "b20", ",", "b21", ",", "b22", ",", "b23", ",", "b24", ",", "b25", ",", "b26", ",", "b27"}], "}"}]}], "]"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.748970005478078*^9, 3.7489700126343*^9}, { 3.74897004406227*^9, 3.748970092758891*^9}, {3.748971606543949*^9, 3.7489716451722813`*^9}, 3.748971767189884*^9, 3.748971805374961*^9, { 3.7493836148123302`*^9, 3.7493836154600906`*^9}, {3.749383717913845*^9, 3.7493837184542217`*^9}, {3.7494063473137856`*^9, 3.74940641621016*^9}}, CellLabel-> "In[407]:=",ExpressionUUID->"5146f716-c580-4ad8-b6b7-542564f502f6"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BosonSolutions", "[", RowBox[{"tt1", ",", "tt2"}], "]"}]], "Input", CellChangeTimes->{{3.7494064619612193`*^9, 3.749406465833441*^9}}, CellLabel-> "In[408]:=",ExpressionUUID->"7fab8b2a-044a-410c-8a87-2029e8b1b3ac"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"cv", "[", "1", "]"}], "[", "0", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"cv", "[", "1", "]"}], "[", "1", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"cv", "[", "1", "]"}], "[", "2", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"cv", "[", "1", "]"}], "[", "3", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"cv", "[", "2", "]"}], "[", "0", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"cv", "[", "2", "]"}], "[", "1", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"cv", "[", "2", "]"}], "[", "2", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"cv", "[", "2", "]"}], "[", "3", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"cv", "[", "3", "]"}], "[", "0", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"cv", "[", "3", "]"}], "[", "1", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"cv", "[", "3", "]"}], "[", "2", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"cv", "[", "3", "]"}], "[", "3", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"cv", "[", "4", "]"}], "[", "0", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"cv", "[", "4", "]"}], "[", "1", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"cv", "[", "4", "]"}], "[", "2", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"cv", "[", "4", "]"}], "[", "3", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"cv", "[", "5", "]"}], "[", "0", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"cv", "[", "5", "]"}], "[", "1", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"cv", "[", "5", "]"}], "[", "2", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"cv", "[", "5", "]"}], "[", "3", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"cv", "[", "6", "]"}], "[", "0", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"cv", "[", "6", "]"}], "[", "1", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"cv", "[", "6", "]"}], "[", "2", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"cv", "[", "6", "]"}], "[", "3", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"cv", "[", "7", "]"}], "[", "0", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"cv", "[", "7", "]"}], "[", "1", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"cv", "[", "7", "]"}], "[", "2", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"cv", "[", "7", "]"}], "[", "3", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"cv", "[", "8", "]"}], "[", "0", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"cv", "[", "8", "]"}], "[", "1", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"cv", "[", "8", "]"}], "[", "2", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"cv", "[", "8", "]"}], "[", "3", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"cv", "[", "9", "]"}], "[", "0", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"cv", "[", "9", "]"}], "[", "1", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"cv", "[", "9", "]"}], "[", "2", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"cv", "[", "9", "]"}], "[", "3", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"cv", "[", "10", "]"}], "[", "0", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"cv", "[", "10", "]"}], "[", "1", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"cv", "[", "10", "]"}], "[", "2", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"cv", "[", "10", "]"}], "[", "3", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"cv", "[", "11", "]"}], "[", "0", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"cv", "[", "11", "]"}], "[", "1", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"cv", "[", "11", "]"}], "[", "2", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"cv", "[", "11", "]"}], "[", "3", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"cv", "[", "12", "]"}], "[", "0", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"cv", "[", "12", "]"}], "[", "1", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"cv", "[", "12", "]"}], "[", "2", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"cv", "[", "12", "]"}], "[", "3", "]"}], "\[Rule]", "0"}], ",", RowBox[{"a6", "\[Rule]", "0"}], ",", RowBox[{"a7", "\[Rule]", "0"}], ",", RowBox[{"a8", "\[Rule]", "0"}], ",", RowBox[{"a9", "\[Rule]", "0"}], ",", RowBox[{"a10", "\[Rule]", "0"}], ",", RowBox[{"a11", "\[Rule]", "0"}], ",", RowBox[{"a12", "\[Rule]", "0"}], ",", RowBox[{"a13", "\[Rule]", "0"}], ",", RowBox[{"a14", "\[Rule]", "0"}], ",", RowBox[{"a15", "\[Rule]", "0"}], ",", RowBox[{"a16", "\[Rule]", "0"}], ",", RowBox[{"a17", "\[Rule]", "0"}], ",", RowBox[{"a18", "\[Rule]", "0"}], ",", RowBox[{"a19", "\[Rule]", "0"}], ",", RowBox[{"a20", "\[Rule]", "0"}], ",", RowBox[{"a21", "\[Rule]", "0"}], ",", RowBox[{"b12", "\[Rule]", "0"}], ",", RowBox[{"b13", "\[Rule]", "0"}], ",", RowBox[{"b14", "\[Rule]", "0"}], ",", RowBox[{"b15", "\[Rule]", "0"}], ",", RowBox[{"b16", "\[Rule]", "0"}], ",", RowBox[{"b17", "\[Rule]", "0"}], ",", RowBox[{"b18", "\[Rule]", "0"}], ",", RowBox[{"b19", "\[Rule]", "0"}], ",", RowBox[{"b20", "\[Rule]", "0"}], ",", RowBox[{"b21", "\[Rule]", "0"}], ",", RowBox[{"b22", "\[Rule]", "0"}], ",", RowBox[{"b23", "\[Rule]", "0"}], ",", RowBox[{"b24", "\[Rule]", "0"}], ",", RowBox[{"b25", "\[Rule]", "0"}], ",", RowBox[{"b26", "\[Rule]", "0"}], ",", RowBox[{"b27", "\[Rule]", "0"}]}], "}"}], "}"}]], "Output", CellChangeTimes->{ 3.749406466608164*^9, 3.7494970684955525`*^9, {3.7604713652961073`*^9, 3.760471384336603*^9}}, CellLabel-> "Out[408]=",ExpressionUUID->"29a25cd4-137c-4cd2-bced-74d4a97b0f99"] }, Open ]] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{1920, 997}, WindowMargins->{{-8, Automatic}, {Automatic, -8}}, PrintingCopies->1, PrintingPageRange->{Automatic, Automatic}, PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}}, ShowSelection->True, CellContext->Notebook, Magnification:>1.5 Inherited, FrontEndVersion->"11.3 for Microsoft Windows (64-bit) (March 6, 2018)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[579, 22, 8999, 124, 330, "Title",ExpressionUUID->"dfab12f3-523a-4891-ab6d-6353bcfa0aa5"], Cell[CellGroupData[{ Cell[9603, 150, 236, 4, 99, "Section",ExpressionUUID->"8ce62cfa-2467-4484-bfab-5a2bb7149ea5"], Cell[CellGroupData[{ Cell[9864, 158, 148, 2, 43, "Input",ExpressionUUID->"975ad481-c1b0-4e59-bfe3-ee6c3e1eed6f"], Cell[10015, 162, 992, 14, 70, "Output",ExpressionUUID->"d0dbbf9e-aad4-4401-8334-eb2b3532653a"] }, Open ]], Cell[11022, 179, 1066, 15, 43, "Input",ExpressionUUID->"b7114112-5e91-426f-9ced-519c54ea443d"], Cell[12091, 196, 198, 3, 43, "Input",ExpressionUUID->"40416904-6941-4b10-9b84-5112928ae3b6"], Cell[CellGroupData[{ Cell[12314, 203, 212, 3, 43, "Input",ExpressionUUID->"3e91090f-6d43-4d25-bd32-ac5b3a3b4b22"], Cell[12529, 208, 938, 13, 70, "Output",ExpressionUUID->"243528e0-3416-49f0-bb4c-9d60253fb825"] }, Open ]], Cell[CellGroupData[{ Cell[13504, 226, 214, 3, 43, "Input",ExpressionUUID->"040c79d5-fb4d-4274-9ad8-f752eb2f4ca6"], Cell[13721, 231, 7435, 109, 70, "Output",ExpressionUUID->"16fdd409-426b-44b6-a1b2-337252ca4de7"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[21205, 346, 157, 3, 76, "Section",ExpressionUUID->"62d82f07-5d34-4926-a0a5-de6ed881cb59"], Cell[CellGroupData[{ Cell[21387, 353, 238, 4, 67, "Subsubsection",ExpressionUUID->"38404d85-6a74-4447-aa3b-b53b5dce3a6b"], Cell[CellGroupData[{ Cell[21650, 361, 2701, 62, 73, "Input",ExpressionUUID->"45107846-b855-4e53-aae5-dedbb1c6b043"], Cell[24354, 425, 1939, 50, 70, "Output",ExpressionUUID->"a655ec2d-4910-4ac5-96ba-a2595c5a7871"] }, Open ]], Cell[CellGroupData[{ Cell[26330, 480, 873, 22, 43, "Input",ExpressionUUID->"f8b7c5cd-31bd-40ec-acef-e07fe690ea62"], Cell[27206, 504, 619, 14, 70, "Output",ExpressionUUID->"775da42d-fd5c-4ab0-b721-c0b8db5ccb43"] }, Open ]], Cell[CellGroupData[{ Cell[27862, 523, 1171, 31, 43, "Input",ExpressionUUID->"90fd07d0-589f-401e-9361-220e7953227e"], Cell[29036, 556, 2715, 68, 70, "Output",ExpressionUUID->"959d82f1-dc58-4614-b299-ddce3a952604"] }, Open ]], Cell[CellGroupData[{ Cell[31788, 629, 449, 9, 43, "Input",ExpressionUUID->"32a0b0b6-03c7-474c-b1cc-3f3beac65ccc"], Cell[32240, 640, 4885, 124, 70, "Output",ExpressionUUID->"a945a21e-5e68-4c82-8ac5-2deda25845bc"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[37174, 770, 255, 6, 67, "Subsubsection",ExpressionUUID->"3dcdbc13-3f52-49ae-8f7a-2ba58f9e9eb7"], Cell[37432, 778, 1113, 28, 73, "Input",ExpressionUUID->"b7505a06-a085-4f94-bdf1-bb3f5c975bbf"] }, Open ]], Cell[CellGroupData[{ Cell[38582, 811, 254, 6, 67, "Subsubsection",ExpressionUUID->"5f079067-ab5b-4732-b778-bf9d364d51f5"], Cell[38839, 819, 1286, 30, 102, "Input",ExpressionUUID->"b67c8b50-4dfa-40da-b6fa-73e9df85c419"], Cell[40128, 851, 1001, 25, 102, "Input",ExpressionUUID->"73c889c4-d826-4ca4-b0a3-7d23785f4526"], Cell[41132, 878, 370, 8, 43, "Input",ExpressionUUID->"beff1b47-2715-42c4-9d6c-1d4e9586da12"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[41551, 892, 956, 15, 76, "Section",ExpressionUUID->"c50236d8-bfd6-4c67-bc1c-bc4c6ff2c66c"], Cell[CellGroupData[{ Cell[42532, 911, 885, 22, 82, "Subsection",ExpressionUUID->"216e9394-7d2c-4685-b30f-27c35fd1a130"], Cell[43420, 935, 3045, 91, 218, "Input",ExpressionUUID->"86d0e59a-a838-4eec-b77d-1d550331c9c9"], Cell[46468, 1028, 756, 20, 43, "Input",ExpressionUUID->"15bd1ad2-c05a-4d00-93bc-b38640a0ae02"], Cell[CellGroupData[{ Cell[47249, 1052, 285, 6, 43, "Input",ExpressionUUID->"9a77a2c4-b8ef-42db-97e7-fbe88c343834"], Cell[47537, 1060, 283, 6, 70, "Output",ExpressionUUID->"909fa0cf-3b00-4fbe-8279-e7bfef6c3a5f"] }, Open ]], Cell[CellGroupData[{ Cell[47857, 1071, 368, 7, 43, "Input",ExpressionUUID->"01b72134-b921-498b-8bad-0c84fdcd47eb"], Cell[48228, 1080, 196, 3, 70, "Output",ExpressionUUID->"4b73708c-465c-42ab-b9f3-23fe1451f0d9"] }, Open ]], Cell[CellGroupData[{ Cell[48461, 1088, 433, 10, 43, "Input",ExpressionUUID->"cec1f2f8-706a-4128-8c2f-056fb50e0f1a"], Cell[48897, 1100, 198, 3, 70, "Output",ExpressionUUID->"714e9ae9-6387-48cd-8124-0bbfee41a06b"] }, Open ]], Cell[CellGroupData[{ Cell[49132, 1108, 326, 7, 43, "Input",ExpressionUUID->"fb279d2c-25f5-4e18-8b2b-871ee32b098d"], Cell[49461, 1117, 345, 8, 70, "Output",ExpressionUUID->"f7b17f33-e7c5-4b10-b12e-7f154906f32b"] }, Open ]], Cell[49821, 1128, 460, 12, 43, "Input",ExpressionUUID->"761ddfa6-0ecd-4ab6-9833-c7e4f913871b"] }, Open ]], Cell[CellGroupData[{ Cell[50318, 1145, 435, 10, 80, "Subsection",ExpressionUUID->"c9f8c06e-cccd-4878-9cf6-57c38c92fecd"], Cell[50756, 1157, 1096, 23, 43, "Input",ExpressionUUID->"177c1870-f60d-4066-90cf-25d8a2c341ac"], Cell[CellGroupData[{ Cell[51877, 1184, 217, 3, 43, "Input",ExpressionUUID->"b3bb8aad-dfd4-4288-9655-b413b006b0c8"], Cell[52097, 1189, 890, 26, 70, "Output",ExpressionUUID->"16d55cb3-a384-4069-b89f-e1562784a3b7"] }, Open ]], Cell[CellGroupData[{ Cell[53024, 1220, 692, 15, 43, "Input",ExpressionUUID->"6ba0ccbc-f977-4c3b-88a6-f4eacc7f6e79"], Cell[53719, 1237, 1724, 46, 70, "Output",ExpressionUUID->"746cef43-69c3-4c63-ba6f-e2ac06d6172e"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[55492, 1289, 512, 12, 86, "Subsection",ExpressionUUID->"05fd81b8-c980-4f98-b396-d779a42a978c"], Cell[56007, 1303, 1147, 24, 43, "Input",ExpressionUUID->"91141bcb-2ccd-4428-9c54-6a2d82e3d180"], Cell[CellGroupData[{ Cell[57179, 1331, 217, 3, 43, "Input",ExpressionUUID->"8eaab46d-fd1a-4b9c-b384-6fa94b0dc54e"], Cell[57399, 1336, 888, 26, 70, "Output",ExpressionUUID->"92eacbfe-3f3b-401b-b30e-61c796dbe2e4"] }, Open ]], Cell[CellGroupData[{ Cell[58324, 1367, 713, 15, 43, "Input",ExpressionUUID->"5443c6d3-5606-4d77-a896-6d00977e7e24"], Cell[59040, 1384, 1732, 46, 70, "Output",ExpressionUUID->"3b06cb4f-da87-4502-a0ca-44ef6bedb374"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[60821, 1436, 1219, 32, 82, "Subsection",ExpressionUUID->"6044be20-c5be-443e-a695-41d6db5e4ca0"], Cell[62043, 1470, 1352, 33, 43, "Input",ExpressionUUID->"0d417862-dcd7-4073-be22-8a676da50294"], Cell[63398, 1505, 1308, 28, 43, "Input",ExpressionUUID->"2086db6f-4954-4a31-ab75-77a810597789"], Cell[CellGroupData[{ Cell[64731, 1537, 599, 15, 43, "Input",ExpressionUUID->"1aadfe0e-322a-475f-a0c4-ae0155b85c40"], Cell[65333, 1554, 8682, 258, 70, "Output",ExpressionUUID->"76df4db9-ff58-4b76-9aa5-1c7d3d7192ec"] }, Open ]], Cell[CellGroupData[{ Cell[74052, 1817, 651, 16, 43, "Input",ExpressionUUID->"b9d4ffaf-1f6d-4432-9fdb-85298d5b4a4f"], Cell[74706, 1835, 8684, 258, 70, "Output",ExpressionUUID->"21e4e475-b99e-415d-a228-3d91ddda630b"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[83439, 2099, 729, 16, 80, "Subsection",ExpressionUUID->"6e43a43f-2b98-4d8d-8b67-4d4337cff1d3"], Cell[84171, 2117, 1295, 28, 43, "Input",ExpressionUUID->"31caad4b-d322-457d-ae84-0d8897743f7c"], Cell[CellGroupData[{ Cell[85491, 2149, 448, 8, 43, "Input",ExpressionUUID->"3724d280-295b-4e57-943f-3a2fc83a65d3"], Cell[85942, 2159, 343, 8, 70, "Output",ExpressionUUID->"3fad4b3e-7b1f-4eda-8185-db13fc47080d"] }, Open ]], Cell[CellGroupData[{ Cell[86322, 2172, 423, 9, 43, "Input",ExpressionUUID->"8de64486-ef25-4b9b-a280-480fef182382"], Cell[86748, 2183, 347, 8, 70, "Output",ExpressionUUID->"14e3a61d-3517-4c9e-ab4a-a780b330b39b"] }, Open ]], Cell[CellGroupData[{ Cell[87132, 2196, 404, 8, 43, "Input",ExpressionUUID->"4daee2fb-ecd7-4c69-b4b2-fc3c810c4417"], Cell[87539, 2206, 324, 7, 70, "Output",ExpressionUUID->"aa2aa774-2bd0-4168-bea0-ebb3aaf31da7"] }, Open ]], Cell[CellGroupData[{ Cell[87900, 2218, 402, 8, 43, "Input",ExpressionUUID->"4c6ad7f8-fea4-4f2f-9e9e-2097dca6e005"], Cell[88305, 2228, 324, 7, 70, "Output",ExpressionUUID->"d474f439-8723-490f-97d9-06a324738def"] }, Open ]], Cell[CellGroupData[{ Cell[88666, 2240, 401, 8, 43, "Input",ExpressionUUID->"de992436-4ead-4a83-b62d-0afbc044074f"], Cell[89070, 2250, 347, 8, 70, "Output",ExpressionUUID->"252e28ba-f330-4d21-87ce-be16bf577c93"] }, Open ]], Cell[CellGroupData[{ Cell[89454, 2263, 514, 11, 43, "Input",ExpressionUUID->"068122f7-85a3-4f78-af93-7f37ee9027b3"], Cell[89971, 2276, 502, 14, 70, "Output",ExpressionUUID->"d7f5bb27-513d-43a7-8632-20aafa212a85"] }, Open ]], Cell[CellGroupData[{ Cell[90510, 2295, 753, 17, 43, "Input",ExpressionUUID->"6fb31a28-2784-4d3b-b15b-8ecaa49b7563"], Cell[91266, 2314, 2728, 78, 70, "Output",ExpressionUUID->"4f92def6-b2f8-4338-8dae-e27830fdefd7"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[94043, 2398, 1055, 32, 87, "Subsection",ExpressionUUID->"67cc34ff-98e2-44c3-9f54-9ba3cd7231a5"], Cell[95101, 2432, 1773, 44, 73, "Input",ExpressionUUID->"8815af00-c847-4bc9-aee6-5d4b231fba69"], Cell[CellGroupData[{ Cell[96899, 2480, 362, 7, 43, "Input",ExpressionUUID->"a4acd264-79d2-47d4-b09c-ea7d127d30da"], Cell[97264, 2489, 1093, 34, 70, "Output",ExpressionUUID->"08f264d3-1f5a-4900-8ba0-4f03594e5d62"] }, Open ]], Cell[CellGroupData[{ Cell[98394, 2528, 359, 7, 43, "Input",ExpressionUUID->"2b8c2e5e-9749-454f-936f-69062163afe5"], Cell[98756, 2537, 1091, 34, 70, "Output",ExpressionUUID->"fa3bad98-a25c-4cf0-b0c3-351713f4cb77"] }, Open ]], Cell[CellGroupData[{ Cell[99884, 2576, 415, 8, 43, "Input",ExpressionUUID->"a6ea7f97-96d6-41a9-84ec-7eddad57b505"], Cell[100302, 2586, 1092, 34, 70, "Output",ExpressionUUID->"7aa6564b-9100-4b0f-a822-142edacc377c"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[101443, 2626, 855, 18, 80, "Subsection",ExpressionUUID->"a5576215-4afa-4539-949a-65196b08f0df"], Cell[102301, 2646, 1546, 32, 43, "Input",ExpressionUUID->"24c20b96-4f97-4d43-a230-1e229a2c59a7"], Cell[CellGroupData[{ Cell[103872, 2682, 533, 9, 43, "Input",ExpressionUUID->"3942945c-db4f-46ff-8d71-7d9cc3838034"], Cell[104408, 2693, 1119, 35, 70, "Output",ExpressionUUID->"9358feaf-796d-4b62-a72e-f0ed7ec07aa5"] }, Open ]], Cell[CellGroupData[{ Cell[105564, 2733, 510, 10, 43, "Input",ExpressionUUID->"38656c17-7a9f-40d9-8979-17593ef3fba0"], Cell[106077, 2745, 1093, 34, 70, "Output",ExpressionUUID->"4d8495c6-9ada-4d78-81f9-f6170e6f3d69"] }, Open ]], Cell[CellGroupData[{ Cell[107207, 2784, 688, 15, 43, "Input",ExpressionUUID->"3be63a86-e27d-4ee6-9bbc-d55ae11c2038"], Cell[107898, 2801, 202, 3, 70, "Output",ExpressionUUID->"dd53f707-a334-4c19-9b5e-98be042e3444"] }, Open ]], Cell[CellGroupData[{ Cell[108137, 2809, 491, 9, 43, "Input",ExpressionUUID->"f2003e4a-0481-4bad-ab8c-df8c603d51db"], Cell[108631, 2820, 1123, 35, 70, "Output",ExpressionUUID->"b9c5756c-f520-4cdb-b422-13e2b7f6fa01"] }, Open ]], Cell[CellGroupData[{ Cell[109791, 2860, 505, 12, 43, "Input",ExpressionUUID->"6817fa8d-003b-48b3-8a31-ca7fcd0d4362"], Cell[110299, 2874, 205, 3, 70, "Output",ExpressionUUID->"d62e3d3e-db58-4135-9d19-1f39276f279b"] }, Open ]], Cell[CellGroupData[{ Cell[110541, 2882, 507, 12, 43, "Input",ExpressionUUID->"7d662a19-2547-4dca-b0ea-ddc8921a3b4f"], Cell[111051, 2896, 202, 3, 70, "Output",ExpressionUUID->"168599dd-9534-4fce-928d-8df181ee6ddb"] }, Open ]], Cell[CellGroupData[{ Cell[111290, 2904, 482, 11, 43, "Input",ExpressionUUID->"60415334-cf79-4a58-a5eb-18167fb5a2f2"], Cell[111775, 2917, 203, 3, 70, "Output",ExpressionUUID->"a0b929ca-748a-4210-8675-7b489dd5f40d"] }, Open ]], Cell[CellGroupData[{ Cell[112015, 2925, 838, 18, 43, "Input",ExpressionUUID->"bf8c0e30-8cee-4920-9f08-e37606457184"], Cell[112856, 2945, 7230, 213, 70, "Output",ExpressionUUID->"7b132a2f-a388-47d5-af55-9fb5e603b056"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[120135, 3164, 983, 24, 122, "Subsection",ExpressionUUID->"98e87774-272f-42ac-b4fa-5d65db3bb1ba"], Cell[CellGroupData[{ Cell[121143, 3192, 582, 13, 43, "Input",ExpressionUUID->"728c8cd0-fd9b-40d9-9da7-31f8f1b72aff"], Cell[121728, 3207, 474, 13, 70, "Output",ExpressionUUID->"18bb4bf9-fc24-4e5b-bb9a-56681a992e8b"] }, Open ]], Cell[CellGroupData[{ Cell[122239, 3225, 510, 11, 43, "Input",ExpressionUUID->"dd934f89-22e2-4f90-94d0-2b0a465972c5"], Cell[122752, 3238, 1280, 40, 70, "Output",ExpressionUUID->"64b85d73-5755-4bc7-9ba0-8c15739ea7b2"] }, Open ]], Cell[CellGroupData[{ Cell[124069, 3283, 622, 14, 43, "Input",ExpressionUUID->"4118fd6c-ca8a-4e4a-b552-dd41957d8a03"], Cell[124694, 3299, 1311, 41, 70, "Output",ExpressionUUID->"7719058f-1061-4bcb-91e5-445bb6015776"] }, Open ]], Cell[CellGroupData[{ Cell[126042, 3345, 643, 13, 43, "Input",ExpressionUUID->"f401ef01-7d38-4ad7-9ab0-559411823ea5"], Cell[126688, 3360, 3372, 110, 70, "Output",ExpressionUUID->"d80916e4-d7b0-4160-852e-4ae727b2ba0e"] }, Open ]], Cell[CellGroupData[{ Cell[130097, 3475, 644, 11, 43, "Input",ExpressionUUID->"66365ae3-e3c6-4cd0-92c8-6603c4587dca"], Cell[130744, 3488, 1448, 44, 70, "Output",ExpressionUUID->"9c1522dd-bfbb-4cad-80c8-851d7a5a36ff"] }, Open ]], Cell[CellGroupData[{ Cell[132229, 3537, 644, 11, 43, "Input",ExpressionUUID->"72a210a6-7b58-40d6-aa5c-698eac04b5fc"], Cell[132876, 3550, 1452, 44, 70, "Output",ExpressionUUID->"363e4469-bbba-476a-a0f3-0f0769e025a5"] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[134389, 3601, 1115, 18, 131, "Section",ExpressionUUID->"5a37422c-9958-4134-8fc9-4e234f8c2e51"], Cell[CellGroupData[{ Cell[135529, 3623, 7829, 132, 222, "Subsection",ExpressionUUID->"fc00eaf6-70c4-4c04-8d33-aa6df0600733"], Cell[143361, 3757, 3452, 58, 43, "Input",ExpressionUUID->"946515f7-8a4b-47db-9901-bd0e3f6ea91a"], Cell[CellGroupData[{ Cell[146838, 3819, 460, 10, 43, "Input",ExpressionUUID->"2056d412-6643-4e6d-8826-b9195adc09b1"], Cell[147301, 3831, 335, 7, 70, "Output",ExpressionUUID->"60169a7c-5e18-4714-be12-a416b9d7eac5"] }, Open ]], Cell[CellGroupData[{ Cell[147673, 3843, 510, 10, 43, "Input",ExpressionUUID->"a5896db2-66d5-48d0-b3e9-fefe38c649dc"], Cell[148186, 3855, 339, 7, 70, "Output",ExpressionUUID->"e37b07b9-ef19-4676-8629-9fdf98b795c9"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[148574, 3868, 13489, 225, 210, "Subsection",ExpressionUUID->"f9560984-e0cf-4af4-afec-0d033821ebc5"], Cell[162066, 4095, 3256, 59, 43, "Input",ExpressionUUID->"3e2c0bcf-490e-4067-8348-075097a1e09b"], Cell[CellGroupData[{ Cell[165347, 4158, 436, 9, 43, "Input",ExpressionUUID->"e5a36bf3-1541-4628-99e1-480d87ca6a0c"], Cell[165786, 4169, 357, 8, 70, "Output",ExpressionUUID->"711bfc9f-af4a-4096-823a-0e62e6533ddc"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[166192, 4183, 13377, 226, 194, "Subsection",ExpressionUUID->"b5a3c00d-e1be-4ad4-9a12-654b0d6734d3"], Cell[179572, 4411, 3502, 65, 43, "Input",ExpressionUUID->"8485138e-3ba8-47c5-afb3-461564a27dd3"], Cell[CellGroupData[{ Cell[183099, 4480, 387, 9, 43, "Input",ExpressionUUID->"4a6a16ab-da17-4463-a687-c793672e86bb"], Cell[183489, 4491, 1475, 45, 70, "Output",ExpressionUUID->"78b2fb25-028a-435b-aa3e-842131f43943"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[185013, 4542, 47520, 785, 201, "Subsection",ExpressionUUID->"2bb1e4eb-51b8-4951-b32f-2c268171ecfc"], Cell[232536, 5329, 3891, 75, 73, "Input",ExpressionUUID->"480933de-9eda-471a-b4e2-5fe15122fb33"], Cell[CellGroupData[{ Cell[236452, 5408, 483, 10, 43, "Input",ExpressionUUID->"473c8a37-f111-4682-ad15-b780db356561"], Cell[236938, 5420, 1446, 44, 70, "Output",ExpressionUUID->"05832e95-9bde-4b9c-8918-97d01d8eb4c3"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[238433, 5470, 37763, 626, 200, "Subsection",ExpressionUUID->"0eadac48-eb1e-4e53-aa9e-6cda374698ee"], Cell[276199, 6098, 1498, 41, 73, "Input",ExpressionUUID->"8e268e2f-49ca-4c28-98ad-d442b8fb4f34"], Cell[CellGroupData[{ Cell[277722, 6143, 468, 10, 43, "Input",ExpressionUUID->"a8e4bad8-1dfb-48fc-863a-75e718bcb4c2"], Cell[278193, 6155, 356, 8, 70, "Output",ExpressionUUID->"8be984d9-4a69-42fe-bd0b-d5e9a6962d6b"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[278598, 6169, 44368, 733, 206, "Subsection",ExpressionUUID->"ea2711c5-30cf-466c-8aab-356b111bcc2b"], Cell[322969, 6904, 3947, 76, 73, "Input",ExpressionUUID->"c46207e4-3e4c-416a-8143-6b31ea85e256"], Cell[CellGroupData[{ Cell[326941, 6984, 535, 11, 43, "Input",ExpressionUUID->"2208abda-e080-4d40-9fca-02a61141c9a3"], Cell[327479, 6997, 1447, 44, 70, "Output",ExpressionUUID->"c3fb886e-f2a1-4eea-8db5-cb03db6a3c14"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[328975, 7047, 165840, 2722, 220, "Subsection",ExpressionUUID->"8859e49f-1d1e-40da-82bc-713f2ec7a8fc"], Cell[494818, 9771, 5300, 123, 228, "Input",ExpressionUUID->"ace54938-6662-434e-8ff8-66706f6b24fb"], Cell[CellGroupData[{ Cell[500143, 9898, 507, 11, 43, "Input",ExpressionUUID->"58fbb374-a452-4790-8ba9-b102d5e2eef6"], Cell[500653, 9911, 885, 25, 70, "Output",ExpressionUUID->"f4b77504-3116-4c5a-8c77-35a057aed14b"] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[501599, 9943, 1119, 18, 131, "Section",ExpressionUUID->"ce0c5757-eecc-412f-a33a-cbc8bf3e7a4b"], Cell[CellGroupData[{ Cell[502743, 9965, 29352, 483, 212, "Subsection",ExpressionUUID->"3ac61c69-9009-41c5-973e-c1aae22cbb41"], Cell[532098, 10450, 3798, 68, 43, "Input",ExpressionUUID->"7e2ecd30-e8fe-441d-868f-9b9716212360"], Cell[CellGroupData[{ Cell[535921, 10522, 485, 10, 43, "Input",ExpressionUUID->"be04c82e-c74f-422e-8cff-fb4320a15c67"], Cell[536409, 10534, 338, 7, 70, "Output",ExpressionUUID->"79a94f2f-49b5-40d4-9724-b6d7fa18aae5"] }, Open ]], Cell[CellGroupData[{ Cell[536784, 10546, 562, 11, 43, "Input",ExpressionUUID->"b2ec2118-8e15-451a-ac30-414120c8ad2c"], Cell[537349, 10559, 340, 7, 70, "Output",ExpressionUUID->"246d3139-8463-422b-be60-8568a8f5861d"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[537738, 10572, 32564, 536, 219, "Subsection",ExpressionUUID->"35a180db-f3a3-41dd-9b43-0592428f05b5"], Cell[570305, 11110, 3256, 59, 43, "Input",ExpressionUUID->"dac9a839-2421-4db2-95cc-b024c1e96cfd"], Cell[CellGroupData[{ Cell[573586, 11173, 513, 10, 43, "Input",ExpressionUUID->"14149be4-2940-4252-8f00-90fd096f3719"], Cell[574102, 11185, 360, 8, 70, "Output",ExpressionUUID->"b0de2762-f121-4fc1-8261-10df30806822"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[574511, 11199, 34622, 574, 213, "Subsection",ExpressionUUID->"f6449eb4-4bcc-4a10-9ae0-341e0d85cc50"], Cell[609136, 11775, 3510, 66, 43, "Input",ExpressionUUID->"692d9454-9564-4edc-b98c-537bc559897e"], Cell[CellGroupData[{ Cell[612671, 11845, 412, 9, 43, "Input",ExpressionUUID->"ef4465ad-9a27-4909-84a3-05b1bcbbd87e"], Cell[613086, 11856, 1480, 45, 70, "Output",ExpressionUUID->"11f55798-ab5a-48e4-8770-f4dfffb6ac63"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[614615, 11907, 16363, 275, 213, "Subsection",ExpressionUUID->"78ebb825-030c-4621-9b13-4621d38cdf95"], Cell[630981, 12184, 3729, 70, 73, "Input",ExpressionUUID->"e75179ba-372c-4a4b-91cf-1ca8844311b9"], Cell[CellGroupData[{ Cell[634735, 12258, 483, 10, 43, "Input",ExpressionUUID->"560e53cb-cd78-4d26-b8d9-5ac4179da170"], Cell[635221, 12270, 1448, 44, 70, "Output",ExpressionUUID->"4af9bd7e-32d4-4c4a-8207-0c1c089397db"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[636718, 12320, 11127, 189, 203, "Subsection",ExpressionUUID->"152d1ffe-fcb8-4553-9ece-7509e0f4acfb"], Cell[647848, 12511, 3573, 65, 43, "Input",ExpressionUUID->"db5374ca-9e97-4d0a-a3de-2e4025733b33"], Cell[CellGroupData[{ Cell[651446, 12580, 591, 11, 43, "Input",ExpressionUUID->"2b424323-6eb4-4e15-b44b-5a8bbc20de3d"], Cell[652040, 12593, 338, 7, 70, "Output",ExpressionUUID->"e04df9af-bee8-403d-a863-8e270b7d1ad9"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[652427, 12606, 19878, 333, 218, "Subsection",ExpressionUUID->"adfad804-e660-4fe4-afad-ec8a3cda721d"], Cell[672308, 12941, 1910, 50, 124, "Input",ExpressionUUID->"ca610ef5-4fd4-4e1c-99c1-4d839ea19223"], Cell[CellGroupData[{ Cell[674243, 12995, 545, 12, 43, "Input",ExpressionUUID->"ecbb8a67-ac38-4eee-a94b-17751711d8c3"], Cell[674791, 13009, 404, 10, 70, "Output",ExpressionUUID->"1b47b105-d345-4a31-a966-30075388c3c4"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[675244, 13025, 43535, 718, 220, "Subsection",ExpressionUUID->"3a64254c-82af-44c2-b966-898a7cdcbdd8"], Cell[718782, 13745, 6378, 148, 189, "Input",ExpressionUUID->"a4194e54-7603-4147-878c-ffd04ef15266"], Cell[CellGroupData[{ Cell[725185, 13897, 534, 12, 43, "Input",ExpressionUUID->"e08bedd4-6bfb-4f6e-99e0-3e51ae2b0770"], Cell[725722, 13911, 890, 25, 70, "Output",ExpressionUUID->"1042f79d-b227-4cd8-b8a7-4daccad15659"] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[726673, 13943, 277, 5, 76, "Section",ExpressionUUID->"75f6db08-107b-4f20-80a9-f097134ae36c"], Cell[CellGroupData[{ Cell[726975, 13952, 28157, 464, 212, "Subsubsection",ExpressionUUID->"74c7fdd1-2c48-4f59-8f2d-f4ab67fc9ebf"], Cell[755135, 14418, 3865, 69, 43, "Input",ExpressionUUID->"d5108857-0f25-4f06-836d-91b950e996b5"], Cell[CellGroupData[{ Cell[759025, 14491, 508, 10, 43, "Input",ExpressionUUID->"0bf80a2d-6550-44db-82c0-ad0d4fba8e17"], Cell[759536, 14503, 730, 20, 70, "Output",ExpressionUUID->"4f1ce15c-3e5b-4337-bf98-a2ba8c56f165"] }, Open ]], Cell[CellGroupData[{ Cell[760303, 14528, 561, 11, 43, "Input",ExpressionUUID->"cde1ec4f-038b-4c74-a185-8761195aef3a"], Cell[760867, 14541, 730, 20, 70, "Output",ExpressionUUID->"b8a2a425-36f8-4a81-a4ab-cc16936e818b"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[761646, 14567, 17580, 291, 203, "Subsubsection",ExpressionUUID->"a8e0705c-4c0c-4b2b-b63e-5a227e25e692"], Cell[779229, 14860, 3540, 66, 43, "Input",ExpressionUUID->"8d2b1a88-353a-44d1-9581-d6dc9167159d"], Cell[CellGroupData[{ Cell[782794, 14930, 462, 10, 43, "Input",ExpressionUUID->"4e8f5e84-e8ba-41a1-8809-55e64b6e264a"], Cell[783259, 14942, 867, 23, 70, "Output",ExpressionUUID->"c7e3200e-2253-43b3-9638-d7c4ec1e8f50"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[784175, 14971, 17828, 301, 197, "Subsubsection",ExpressionUUID->"5fedca23-98a2-4885-b8e7-f38c010982d6"], Cell[802006, 15274, 3815, 73, 73, "Input",ExpressionUUID->"93af11b6-7f0e-422e-9621-8933716e78d0"], Cell[CellGroupData[{ Cell[805846, 15351, 413, 10, 43, "Input",ExpressionUUID->"e5fe5841-f64e-4bc4-8f9c-b3805ee0cb0c"], Cell[806262, 15363, 3668, 118, 70, "Output",ExpressionUUID->"9b38f7e3-e24b-47d0-9d22-e6c44d86552a"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[809979, 15487, 19697, 330, 195, "Subsubsection",ExpressionUUID->"f6ff6a16-2683-409e-9568-6e3be22bce6d"], Cell[829679, 15819, 4027, 78, 73, "Input",ExpressionUUID->"c9572197-027f-42cf-809d-6e31c7061dba"], Cell[CellGroupData[{ Cell[833731, 15901, 511, 11, 43, "Input",ExpressionUUID->"371c2402-a77a-4c69-851a-ff4b08a88907"], Cell[834245, 15914, 3643, 117, 70, "Output",ExpressionUUID->"846cb2da-940d-4bd2-86d5-0749261e834a"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[837937, 16037, 16604, 279, 201, "Subsubsection",ExpressionUUID->"e2da2257-824e-44e1-a864-83dcc8a30af3"], Cell[854544, 16318, 1616, 43, 73, "Input",ExpressionUUID->"cd4dad90-0666-468d-8e24-e31030096e60"], Cell[CellGroupData[{ Cell[856185, 16365, 500, 12, 43, "Input",ExpressionUUID->"424fc00d-fe39-4e40-b967-48b51112c072"], Cell[856688, 16379, 833, 24, 70, "Output",ExpressionUUID->"ea340218-597e-486d-9c39-23e56633f785"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[857570, 16409, 19709, 330, 201, "Subsubsection",ExpressionUUID->"ad9cf71f-84bf-4cd5-b455-b759250085b8"], Cell[877282, 16741, 4079, 79, 73, "Input",ExpressionUUID->"cd26ff92-0b09-4891-b5e4-c77347cf8a69"], Cell[CellGroupData[{ Cell[881386, 16824, 563, 12, 43, "Input",ExpressionUUID->"c43d1927-3ad4-4935-a9cc-76f05057308f"], Cell[881952, 16838, 3646, 117, 70, "Output",ExpressionUUID->"c2e80a5d-3ff3-4c7e-8ebe-b70debdd4fc5"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[885647, 16961, 78447, 1290, 328, "Subsubsection",ExpressionUUID->"9b947347-44b2-4924-b1db-5a028af71dae"], Cell[964097, 18253, 6470, 151, 160, "Input",ExpressionUUID->"d4687190-0c09-46a6-99e6-cf9f05303ea8"], Cell[CellGroupData[{ Cell[970592, 18408, 585, 13, 43, "Input",ExpressionUUID->"d014ee55-0ace-4168-9fea-b52d11c026d8"], Cell[971180, 18423, 2913, 88, 70, "Output",ExpressionUUID->"c145a2ce-76ae-4b87-99cc-a3e6de79307c"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[974142, 18517, 12926, 215, 164, "Subsection",ExpressionUUID->"5883c227-e983-45ba-9d87-a24584fb1294"], Cell[987071, 18734, 3918, 70, 102, "Input",ExpressionUUID->"c0f56097-25a9-44e1-b64b-f9c68aca4bc0"], Cell[CellGroupData[{ Cell[991014, 18808, 511, 11, 43, "Input",ExpressionUUID->"19bc66a5-19f2-46ae-b971-b82fc2549602"], Cell[991528, 18821, 734, 21, 70, "Output",ExpressionUUID->"499f7d8b-11b8-4afe-9bc5-7646f6038297"] }, Open ]], Cell[CellGroupData[{ Cell[992299, 18847, 593, 12, 43, "Input",ExpressionUUID->"09df0f6f-08e9-4f36-a64b-8d6519351377"], Cell[992895, 18861, 734, 21, 70, "Output",ExpressionUUID->"c32d2a42-64b5-4b18-a159-705a0c00adf1"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[993678, 18888, 18003, 298, 130, "Subsection",ExpressionUUID->"88bcee7a-dd2b-4f87-92bc-967315e40d50"], Cell[1011684, 19188, 3590, 67, 102, "Input",ExpressionUUID->"da42fbfe-60db-4b19-a3f2-7b0c57a1c8e6"], Cell[CellGroupData[{ Cell[1015299, 19259, 543, 12, 43, "Input",ExpressionUUID->"6d71b64d-e4c3-4a97-a26c-783385c9fdb7"], Cell[1015845, 19273, 873, 24, 70, "Output",ExpressionUUID->"851fc4f9-61df-4217-b6a2-b4217daa6c7f"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1016767, 19303, 18229, 306, 125, "Subsection",ExpressionUUID->"37dd855b-c62a-4bcc-88ea-4d1bfa1b423a"], Cell[1034999, 19611, 3827, 73, 131, "Input",ExpressionUUID->"2e527b5e-6a5c-4163-97ba-9ad2f37e9aef"], Cell[CellGroupData[{ Cell[1038851, 19688, 440, 10, 43, "Input",ExpressionUUID->"1ead8e98-105c-4f5d-823e-8d9c78c67819"], Cell[1039294, 19700, 3660, 118, 70, "Output",ExpressionUUID->"6d34b8d7-5bf7-4357-a73b-ebefa1a154d4"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1043003, 19824, 20177, 338, 118, "Subsection",ExpressionUUID->"348403ec-fb06-4b00-9846-a95c4a2aada9"], Cell[1063183, 20164, 4054, 77, 160, "Input",ExpressionUUID->"a89b7fda-4186-4cd0-98ec-27610bdfb5ee"], Cell[CellGroupData[{ Cell[1067262, 20245, 536, 12, 43, "Input",ExpressionUUID->"de03d1bd-40b8-4122-8efe-77d926e1a1bb"], Cell[1067801, 20259, 3638, 117, 70, "Output",ExpressionUUID->"192c52e6-3bb4-4f9a-a008-27f8a9f0f20f"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1071488, 20382, 12285, 208, 165, "Subsection",ExpressionUUID->"49d946ff-65cc-4ee7-bfb2-8d6ef2464499"], Cell[1083776, 20592, 3691, 67, 102, "Input",ExpressionUUID->"493bae5a-b44a-4f02-90fd-800f87587ad1"], Cell[CellGroupData[{ Cell[1087492, 20663, 623, 13, 43, "Input",ExpressionUUID->"f200c59e-71e8-4b83-8c0d-1c1316ca0a33"], Cell[1088118, 20678, 734, 21, 70, "Output",ExpressionUUID->"7073a3bd-8cef-4b27-a6f5-817aaa805292"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1088901, 20705, 20750, 346, 106, "Subsection",ExpressionUUID->"41e09bcc-0514-4f4e-8bb0-825ef6c82584"], Cell[1109654, 21053, 2030, 52, 229, "Input",ExpressionUUID->"e883fadb-6a5d-4ca2-ab3a-42ad5e764de0"], Cell[CellGroupData[{ Cell[1111709, 21109, 571, 13, 43, "Input",ExpressionUUID->"7bc8ec92-b7e1-4eb0-8b6c-f1ef13830045"], Cell[1112283, 21124, 916, 27, 70, "Output",ExpressionUUID->"e2faacde-b6e6-4b89-b261-a5bf0655f54a"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1113248, 21157, 61990, 1020, 322, "Subsection",ExpressionUUID->"b3f5276e-edcc-4c7d-95e6-ba5cbeaba7a1"], Cell[1175241, 22179, 5421, 125, 417, "Input",ExpressionUUID->"4f54febf-ed21-4ef7-ba80-15685e9e54ab"], Cell[CellGroupData[{ Cell[1180687, 22308, 562, 13, 43, "Input",ExpressionUUID->"5cfb0378-df1d-4c65-b152-3684d90c223a"], Cell[1181252, 22323, 2966, 93, 70, "Output",ExpressionUUID->"3c63fea2-7be3-44a0-b92a-f1e14c867bf7"] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[1184279, 22423, 41927, 707, 321, "Section",ExpressionUUID->"a675d1e4-5e97-4ebf-bf2f-3fd69b5e1553"], Cell[CellGroupData[{ Cell[1226231, 23134, 13848, 400, 293, "Subsection",ExpressionUUID->"eef3f427-f737-45ee-8083-df6ce6ebf1b9"], Cell[CellGroupData[{ Cell[1240104, 23538, 509, 9, 67, "Subsubsection",ExpressionUUID->"c55c1013-20b2-4050-ad8f-a21d88051380"], Cell[CellGroupData[{ Cell[1240638, 23551, 7788, 213, 266, "Input",ExpressionUUID->"c88f9b10-9a05-4a10-98d4-ec1f6f169734"], Cell[1248429, 23766, 7890, 231, 272, "Output",ExpressionUUID->"933236af-3eef-48c8-b468-c8a13e867af8"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1256368, 24003, 906, 24, 81, "Subsubsection",ExpressionUUID->"050d55a2-0a15-48a4-8dfa-cb4c445fea98"], Cell[1257277, 24029, 1234, 30, 43, "Input",ExpressionUUID->"286a7ae1-7ac5-4fd2-8d1c-c9ca01f7e9dc"] }, Open ]], Cell[CellGroupData[{ Cell[1258548, 24064, 803, 22, 84, "Subsubsection",ExpressionUUID->"9b13b755-0629-484e-b8a9-02b5762058c7"], Cell[1259354, 24088, 1285, 31, 43, "Input",ExpressionUUID->"f89d942a-3257-4d04-a9e8-62731e12bb57"] }, Open ]], Cell[CellGroupData[{ Cell[1260676, 24124, 851, 23, 81, "Subsubsection",ExpressionUUID->"797fd13a-47da-454c-b332-d6e9e5b49234"], Cell[1261530, 24149, 1450, 34, 43, "Input",ExpressionUUID->"53afd21f-2bde-4b3b-a260-1ce00d3cc3da"] }, Open ]], Cell[CellGroupData[{ Cell[1263017, 24188, 898, 23, 81, "Subsubsection",ExpressionUUID->"e53e2c05-16fd-420f-8ab0-0e81f0cfa078"], Cell[1263918, 24213, 1447, 35, 43, "Input",ExpressionUUID->"31b48167-0d7c-43e1-8c67-b73f4641eebd"] }, Open ]], Cell[CellGroupData[{ Cell[1265402, 24253, 951, 24, 81, "Subsubsection",ExpressionUUID->"b1d68eaa-715d-4375-b4ee-15efc8a10a46"], Cell[1266356, 24279, 1454, 34, 43, "Input",ExpressionUUID->"33b91af0-de34-4c3e-9422-82d15b6a9785"] }, Open ]], Cell[CellGroupData[{ Cell[1267847, 24318, 1103, 30, 81, "Subsubsection",ExpressionUUID->"dc9b07a6-de59-4fd3-af72-ccf4d0eda904"], Cell[1268953, 24350, 1775, 43, 73, "Input",ExpressionUUID->"76bd2272-2919-4232-a775-811856339a5a"] }, Open ]], Cell[CellGroupData[{ Cell[1270765, 24398, 1283, 41, 84, "Subsubsection",ExpressionUUID->"81f84422-a48e-4f87-bb6a-855bd4441a73"], Cell[1272051, 24441, 2134, 54, 131, "Input",ExpressionUUID->"c92ee6e4-2f9f-4ad0-8934-f137e10746ae"], Cell[CellGroupData[{ Cell[1274210, 24499, 337, 8, 43, "Input",ExpressionUUID->"01385701-a0af-46bb-b6fa-c0b3e3176bef"], Cell[1274550, 24509, 62127, 1745, 1673, "Output",ExpressionUUID->"547b2273-e245-4715-9282-4de39f1c6601"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1336726, 26260, 959, 24, 81, "Subsubsection",ExpressionUUID->"e8e96f1d-40ac-440f-a36b-82e4c982f252"], Cell[1337688, 26286, 1286, 31, 43, "Input",ExpressionUUID->"1a72afc5-3f7e-449c-a4c8-21220750c957"] }, Open ]], Cell[CellGroupData[{ Cell[1339011, 26322, 861, 23, 84, "Subsubsection",ExpressionUUID->"708a98cd-f91a-4a5b-970f-74ec587b0b67"], Cell[1339875, 26347, 1341, 32, 43, "Input",ExpressionUUID->"39d43a6f-dea7-4b6a-becd-0b16b1edb6e3"] }, Open ]], Cell[CellGroupData[{ Cell[1341253, 26384, 959, 24, 81, "Subsubsection",ExpressionUUID->"7e542a9e-7fb7-46c3-965f-ed3f499485a6"], Cell[1342215, 26410, 1508, 35, 43, "Input",ExpressionUUID->"454739af-6d48-422e-bb43-5a90fe4be41a"] }, Open ]], Cell[CellGroupData[{ Cell[1343760, 26450, 956, 24, 81, "Subsubsection",ExpressionUUID->"9afb6dc8-fdc9-450e-b535-125bbfaa8750"], Cell[1344719, 26476, 1452, 35, 43, "Input",ExpressionUUID->"e894862a-a0f2-4453-804c-56008bafae43"] }, Open ]], Cell[CellGroupData[{ Cell[1346208, 26516, 1055, 25, 81, "Subsubsection",ExpressionUUID->"c77aa115-5905-4654-9f9c-a2759b6d601b"], Cell[1347266, 26543, 1364, 32, 43, "Input",ExpressionUUID->"abb2f62f-bea9-40f3-96e5-80fe20a7b53f"] }, Open ]], Cell[CellGroupData[{ Cell[1348667, 26580, 922, 30, 81, "Subsubsection",ExpressionUUID->"6a2adbab-e91e-42a8-9de7-9daa95189f65"], Cell[1349592, 26612, 1584, 41, 73, "Input",ExpressionUUID->"8d23faf6-9040-474f-b986-8e7309ec5819"] }, Open ]], Cell[CellGroupData[{ Cell[1351213, 26658, 1310, 41, 84, "Subsubsection",ExpressionUUID->"b610785b-3330-4368-9551-b240f88d4600"], Cell[1352526, 26701, 2201, 56, 131, "Input",ExpressionUUID->"304e1599-7bd5-48e4-ad9a-a5f752ad0851"], Cell[CellGroupData[{ Cell[1354752, 26761, 210, 4, 43, "Input",ExpressionUUID->"2fedff06-04e8-4e29-b077-4eba6928f6d5"], Cell[1354965, 26767, 13029, 328, 230, "Output",ExpressionUUID->"775e87c4-1b24-4d84-a9e2-d41ca6ed6890"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1368043, 27101, 559, 8, 67, "Subsubsection",ExpressionUUID->"1e21029e-2e90-43fa-9df8-1ed556709fbf"], Cell[1368605, 27111, 2465, 44, 102, "Input",ExpressionUUID->"129215b9-2784-4b34-98e7-db3f4fff3dcf"], Cell[CellGroupData[{ Cell[1371095, 27159, 211, 4, 43, "Input",ExpressionUUID->"28fca461-fcb8-4228-b9f3-56c78fbc8a8d"], Cell[1371309, 27165, 10656, 278, 176, "Output",ExpressionUUID->"fb3e7d32-2b69-4473-874c-581585102f14"] }, Open ]], Cell[CellGroupData[{ Cell[1382002, 27448, 286, 5, 43, "Input",ExpressionUUID->"093770a7-7635-48e9-9ef6-eaf8bb2afc12"], Cell[1382291, 27455, 202, 4, 49, "Output",ExpressionUUID->"e3f4f959-3a7d-45be-a90f-860f01862fbb"] }, Open ]], Cell[1382508, 27462, 7276, 170, 213, "Input",ExpressionUUID->"5fcbf0a0-8c4f-4024-9753-b4b98c2cdf62"] }, Open ]], Cell[CellGroupData[{ Cell[1389821, 27637, 606, 8, 67, "Subsubsection",ExpressionUUID->"4ec82ef1-79f9-47c1-a124-8111854e05eb"], Cell[CellGroupData[{ Cell[1390452, 27649, 337, 6, 43, "Input",ExpressionUUID->"194e4482-22c2-4bf8-9ef5-69909049754f"], Cell[1390792, 27657, 408, 10, 49, "Output",ExpressionUUID->"e25f1eac-1fc9-4f19-aec5-27ff6143430c"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1391249, 27673, 579, 8, 67, "Subsubsection",ExpressionUUID->"efc81674-9fe7-43d1-9a6e-0cad028a9f5f"], Cell[CellGroupData[{ Cell[1391853, 27685, 671, 18, 43, "Input",ExpressionUUID->"142fb11c-8c2b-4f32-888b-0be972f4dd31"], Cell[1392527, 27705, 4753, 150, 137, "Output",ExpressionUUID->"ab14dbf5-256d-4b20-9153-8f5650492ca5"] }, Open ]], Cell[1397295, 27858, 1063, 28, 102, "Input",ExpressionUUID->"b64e3587-e551-490b-97e9-72be77a0ab5c"], Cell[CellGroupData[{ Cell[1398383, 27890, 596, 12, 43, "Input",ExpressionUUID->"ea84238b-8da3-4b56-850e-39240368e5c7"], Cell[1398982, 27904, 10525, 342, 253, "Output",ExpressionUUID->"f4c3ab48-f649-4287-afc1-6708bf7969dc"] }, Open ]], Cell[CellGroupData[{ Cell[1409544, 28251, 226, 4, 43, "Input",ExpressionUUID->"06fc88c5-cfa7-41e0-bebc-60f9cf91fcf4"], Cell[1409773, 28257, 203, 4, 49, "Output",ExpressionUUID->"1599f534-2be1-4d1d-8d34-b676ea2f9530"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1410025, 28267, 587, 8, 67, "Subsubsection",ExpressionUUID->"b81693a5-99e4-4336-9bf6-9460db37b893"], Cell[CellGroupData[{ Cell[1410637, 28279, 256, 6, 43, "Input",ExpressionUUID->"d2cf050d-504d-42e9-a285-3f5fe8a66698"], Cell[1410896, 28287, 362, 9, 49, "Output",ExpressionUUID->"2c917e9d-6f83-42e7-84a7-cfe2173b9107"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1411307, 28302, 592, 19, 529, "Subsubsection",ExpressionUUID->"f51c2ab5-f9e2-4b6f-a1af-4acc02611799"], Cell[1411902, 28323, 1078, 32, 43, "Input",ExpressionUUID->"07c5de27-6940-4ead-a83c-29996b33e454"], Cell[CellGroupData[{ Cell[1413005, 28359, 1623, 41, 73, "Input",ExpressionUUID->"c73f1a46-4a14-4a27-934d-0e948247cd85"], Cell[1414631, 28402, 177, 3, 49, "Output",ExpressionUUID->"2a577768-375d-497e-b2c0-443b495fc004"] }, Open ]] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[1414881, 28413, 643, 17, 85, "Section",ExpressionUUID->"84b247f4-ee56-4274-bd15-8ccd45286fee"], Cell[CellGroupData[{ Cell[1415549, 28434, 672, 17, 43, "Input",ExpressionUUID->"a6d74484-0c36-44a4-aa7b-0133cac24767"], Cell[1416224, 28453, 182, 3, 49, "Output",ExpressionUUID->"ff496b29-2271-4beb-bfe3-012b14958e8f"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1416455, 28462, 629, 15, 170, "Section",ExpressionUUID->"49f4e60a-1458-4862-b69c-34bd19ad322f"], Cell[CellGroupData[{ Cell[1417109, 28481, 177, 3, 80, "Subsection",ExpressionUUID->"c1c4e56f-5b25-441f-9fd8-7ab145d549b4"], Cell[1417289, 28486, 1007, 22, 43, "Input",ExpressionUUID->"25a9fdfa-e609-4414-b6eb-6066a3222562"], Cell[1418299, 28510, 757, 17, 43, "Input",ExpressionUUID->"46047ed1-87b2-4447-99c2-d3bd1b9c898c"], Cell[1419059, 28529, 2569, 62, 102, "Input",ExpressionUUID->"0cc5fc54-80a8-4945-9247-a111c9c1b0fd"], Cell[1421631, 28593, 583, 13, 43, "Input",ExpressionUUID->"6ad7f292-a804-4faa-8c3f-f05f5f294674"], Cell[1422217, 28608, 777, 20, 43, "Input",ExpressionUUID->"4070dbab-9e12-42d7-a59f-551a0f3fc9ef"], Cell[1422997, 28630, 1728, 44, 102, "Input",ExpressionUUID->"2692095e-ab42-4a13-9a2b-3355b2ca7b08"], Cell[1424728, 28676, 725, 19, 43, "Input",ExpressionUUID->"f624eeee-9190-41e7-b2d0-c129382a3fe7"], Cell[1425456, 28697, 1281, 32, 43, "Input",ExpressionUUID->"3abc7123-6975-4881-8daa-0fe475263196"], Cell[1426740, 28731, 1606, 33, 43, "Input",ExpressionUUID->"28b797ea-2bea-41ad-96e1-e2c2943ad409"], Cell[1428349, 28766, 1092, 25, 43, "Input",ExpressionUUID->"f50f53c3-1888-4082-b2da-c7d831bb96c6"], Cell[1429444, 28793, 576, 15, 43, "Input",ExpressionUUID->"489e6849-77da-4669-8dd0-225745cc2a1b"], Cell[CellGroupData[{ Cell[1430045, 28812, 166, 3, 67, "Subsubsection",ExpressionUUID->"db4d44bb-da08-4e1f-8db1-a7ec7eb3fa45"], Cell[CellGroupData[{ Cell[1430236, 28819, 309, 7, 43, "Input",ExpressionUUID->"1d2e1b2a-15cb-4fef-adb0-83a0a48fbbb2"], Cell[1430548, 28828, 13741, 372, 70, "Output",ExpressionUUID->"e8972471-c88f-489e-95e1-7f9cade299cb"] }, Open ]], Cell[CellGroupData[{ Cell[1444326, 29205, 443, 10, 43, "Input",ExpressionUUID->"d554badc-d418-4168-ab03-f3af76886fcc"], Cell[1444772, 29217, 11961, 309, 70, "Output",ExpressionUUID->"547e840c-1c0d-4fad-b830-45f6d7d567b0"] }, Open ]], Cell[CellGroupData[{ Cell[1456770, 29531, 1696, 36, 43, "Input",ExpressionUUID->"96e6fc8c-3312-4502-8890-d4b076eeed59"], Cell[1458469, 29569, 145698, 3473, 70, "Output",ExpressionUUID->"e09a4648-0ffa-40f8-8c38-5809c8103d84"] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[1604228, 33049, 447, 8, 94, "Subsection",ExpressionUUID->"8a0bf033-a4e4-4871-b7e6-05ad6c104523"], Cell[1604678, 33059, 361, 8, 73, "Input",ExpressionUUID->"e133bc9e-5689-43a8-a000-6a10951e4f21"] }, Open ]], Cell[CellGroupData[{ Cell[1605076, 33072, 859, 18, 86, "Subsection",ExpressionUUID->"231a1b16-656b-454b-bdf7-3325c412556f"], Cell[CellGroupData[{ Cell[1605960, 33094, 1082, 25, 78, "Subsubsection",ExpressionUUID->"1d0519df-4c37-4fa6-88cf-82f165397828"], Cell[CellGroupData[{ Cell[1607067, 33123, 1535, 31, 43, "Input",ExpressionUUID->"5c6ca21b-9b45-4ab3-b789-8ccf1712fab8"], Cell[1608605, 33156, 178, 3, 49, "Output",ExpressionUUID->"ee29147c-e107-4e1a-a4e1-90ae1d61d510"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1608832, 33165, 1099, 26, 78, "Subsubsection",ExpressionUUID->"a23a8e07-8825-4394-a44d-e2d261dac7cf"], Cell[CellGroupData[{ Cell[1609956, 33195, 1424, 29, 43, "Input",ExpressionUUID->"53da7ef8-d1a1-4396-bee0-6ae13ea499fe"], Cell[1611383, 33226, 180, 3, 49, "Output",ExpressionUUID->"4568a482-42e7-4127-a7e9-e73f403e5b08"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1611612, 33235, 1249, 28, 78, "Subsubsection",ExpressionUUID->"7977f7ab-7eff-42f4-8821-0c5ced46ea89"], Cell[CellGroupData[{ Cell[1612886, 33267, 1581, 31, 43, "Input",ExpressionUUID->"0e4150b3-7d9e-4ea2-8e51-1e7633a7d5d7"], Cell[1614470, 33300, 180, 3, 49, "Output",ExpressionUUID->"e6413bb6-34fc-49f1-ac01-de61e042cecd"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1614699, 33309, 1151, 27, 78, "Subsubsection",ExpressionUUID->"1555d8fb-2a93-458b-a491-307771530922"], Cell[CellGroupData[{ Cell[1615875, 33340, 1480, 30, 43, "Input",ExpressionUUID->"40bd8831-ce76-40d1-9e75-a00e6f2935a9"], Cell[1617358, 33372, 182, 3, 49, "Output",ExpressionUUID->"3b11b271-353e-4725-b366-e2a25ca7934e"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1617589, 33381, 1196, 27, 78, "Subsubsection",ExpressionUUID->"898b3dbe-11e0-46c0-bae6-43cb7b3573f6"], Cell[CellGroupData[{ Cell[1618810, 33412, 1478, 30, 43, "Input",ExpressionUUID->"c583cec7-da87-4685-8bed-ecfd2e54fa97"], Cell[1620291, 33444, 180, 3, 49, "Output",ExpressionUUID->"5014cfff-4068-4492-8c46-6bc78b8a3258"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1620520, 33453, 1190, 28, 78, "Subsubsection",ExpressionUUID->"3c792501-93d9-4464-b13c-455b322a6582"], Cell[CellGroupData[{ Cell[1621735, 33485, 2039, 45, 73, "Input",ExpressionUUID->"8c0712d6-5454-4ffe-8516-b6d743a0d250"], Cell[1623777, 33532, 180, 3, 49, "Output",ExpressionUUID->"5ceddd0f-09fe-4066-9edc-b25e9fa1c33c"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1624006, 33541, 2432, 61, 123, "Subsubsection",ExpressionUUID->"89b7b384-8055-477e-b7ea-4cc3979f5551"], Cell[1626441, 33604, 2011, 53, 73, "Input",ExpressionUUID->"a537b15e-4bf0-476a-990b-3c5c3e6b0355"], Cell[1628455, 33659, 1095, 29, 43, "Input",ExpressionUUID->"0e0ad6f7-ca25-44f0-8ac4-bd8e7e7f87a3"], Cell[CellGroupData[{ Cell[1629575, 33692, 2473, 52, 102, "Input",ExpressionUUID->"2e363191-8fd7-462c-ae58-d173673ed00b"], Cell[1632051, 33746, 180, 3, 49, "Output",ExpressionUUID->"f976a82c-28de-41bc-8665-52c0b25e3892"] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[1632292, 33756, 911, 19, 60, "Subsection",ExpressionUUID->"a4501bf7-c65f-45e2-8e1f-64df51de0b67"], Cell[CellGroupData[{ Cell[1633228, 33779, 1097, 26, 78, "Subsubsection",ExpressionUUID->"c037d1a5-01ab-480d-9064-d37f11e0d6ad"], Cell[CellGroupData[{ Cell[1634350, 33809, 1486, 30, 43, "Input",ExpressionUUID->"546887f6-4818-4c12-a94f-048ceee53639"], Cell[1635839, 33841, 180, 3, 70, "Output",ExpressionUUID->"fefe70df-51e8-493e-b7ca-593f78aa3c6d"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1636068, 33850, 1151, 27, 78, "Subsubsection",ExpressionUUID->"c9d2c55a-848e-49dc-8b2c-7aa260c9aa38"], Cell[CellGroupData[{ Cell[1637244, 33881, 1478, 30, 43, "Input",ExpressionUUID->"967c6b00-1312-4d8d-a409-5c32920f0f0a"], Cell[1638725, 33913, 178, 3, 70, "Output",ExpressionUUID->"fa76bc48-a445-49ff-8bc2-fa24326eb563"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1638952, 33922, 1306, 29, 78, "Subsubsection",ExpressionUUID->"05dda03b-8067-497c-8664-ea914d70c897"], Cell[CellGroupData[{ Cell[1640283, 33955, 1634, 32, 43, "Input",ExpressionUUID->"9feeeb15-126a-4388-91b6-51af7342cc69"], Cell[1641920, 33989, 180, 3, 70, "Output",ExpressionUUID->"ea021660-0d8c-4782-9fbb-587da8cb6f54"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1642149, 33998, 1200, 27, 78, "Subsubsection",ExpressionUUID->"ef63852d-bff4-4094-9630-757f5f7a7a70"], Cell[CellGroupData[{ Cell[1643374, 34029, 1537, 31, 43, "Input",ExpressionUUID->"aa1006cf-7889-4e6c-a6a2-379831d2b169"], Cell[1644914, 34062, 180, 3, 70, "Output",ExpressionUUID->"d7d1ad4c-edfa-47d8-8ef9-573d6ef330c1"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1645143, 34071, 1276, 29, 78, "Subsubsection",ExpressionUUID->"e4710319-0a5c-4d20-a364-baedc3f787ae"], Cell[CellGroupData[{ Cell[1646444, 34104, 1555, 31, 43, "Input",ExpressionUUID->"34c9ed1e-f3c7-4a06-99af-c769f288781f"], Cell[1648002, 34137, 182, 3, 70, "Output",ExpressionUUID->"d5165930-d344-4fcd-bef5-e0fc5800e9fb"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1648233, 34146, 1307, 32, 81, "Subsubsection",ExpressionUUID->"80af076a-9b2c-471d-b5d1-b9579828586e"], Cell[CellGroupData[{ Cell[1649565, 34182, 2093, 46, 73, "Input",ExpressionUUID->"9d33882c-be42-40c9-aeb8-bc216bcaa36c"], Cell[1651661, 34230, 180, 3, 70, "Output",ExpressionUUID->"406a0485-9f45-4856-a7ff-d8b805cd2407"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1651890, 34239, 3016, 77, 162, "Subsubsection",ExpressionUUID->"5be24836-507e-45b6-92e8-cbd9856335b2"], Cell[1654909, 34318, 2697, 69, 102, "Input",ExpressionUUID->"76dfafec-712f-46bf-ae08-7861e520faf9"], Cell[1657609, 34389, 1392, 35, 43, "Input",ExpressionUUID->"cf3ca8e5-3b75-460a-b931-4d582b5e4be7"], Cell[CellGroupData[{ Cell[1659026, 34428, 3359, 73, 131, "Input",ExpressionUUID->"46f576b0-d8d1-4987-bcb1-cbe33cc185d7"], Cell[1662388, 34503, 180, 3, 70, "Output",ExpressionUUID->"26917123-ae43-4b0d-8984-52a94311636f"] }, Open ]] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[1662641, 34514, 546, 14, 115, "Section",ExpressionUUID->"2bf50357-56b5-4a46-b6f3-0a9c8c2e92b9"], Cell[CellGroupData[{ Cell[1663212, 34532, 738, 19, 102, "Input",ExpressionUUID->"01e69f9e-5b44-41b8-982e-796fc2849dd2"], Cell[1663953, 34553, 180, 3, 49, "Output",ExpressionUUID->"ed20a42d-edc8-4c78-890c-63e3a8e567b0"], Cell[1664136, 34558, 176, 3, 49, "Output",ExpressionUUID->"aa095773-1090-49ad-b09d-4b61be8f8427"], Cell[1664315, 34563, 176, 3, 49, "Output",ExpressionUUID->"57c8b00a-8348-4cc2-b1a3-03ae96c31c50"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1664540, 34572, 888, 20, 339, "Section",ExpressionUUID->"ce746ac7-01b2-483b-9190-1d8878b0e6da"], Cell[1665431, 34594, 468, 11, 102, "Input",ExpressionUUID->"af6c44c1-8561-498f-97be-5d652191cab7"], Cell[CellGroupData[{ Cell[1665924, 34609, 961, 21, 96, "Subsection",ExpressionUUID->"f63683a9-76c4-492b-84a0-1d3685d7d2b3"], Cell[CellGroupData[{ Cell[1666910, 34634, 950, 27, 69, "Subsubsection",ExpressionUUID->"d2083a11-d487-4d07-a416-7dc059135060"], Cell[CellGroupData[{ Cell[1667885, 34665, 1194, 31, 43, "Input",ExpressionUUID->"915b67de-3769-483c-ad5f-7b1411ccc874"], Cell[1669082, 34698, 1420, 44, 49, "Output",ExpressionUUID->"53104d58-fa20-4e1d-82f3-831acf134e4b"] }, Open ]], Cell[CellGroupData[{ Cell[1670539, 34747, 289, 7, 43, "Input",ExpressionUUID->"b879a717-904d-40fb-94c5-7b9ab58ce4cc"], Cell[1670831, 34756, 350, 9, 49, "Output",ExpressionUUID->"9a78b624-564b-4b80-a92b-0a3297002b7e"] }, Open ]], Cell[CellGroupData[{ Cell[1671218, 34770, 510, 14, 43, "Input",ExpressionUUID->"a5d1e3e8-1904-44d2-a820-66cbfe005a1f"], Cell[1671731, 34786, 3572, 101, 137, "Output",ExpressionUUID->"06718403-de67-4dd5-859a-f99f858b62f0"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1675352, 34893, 1126, 28, 81, "Subsubsection",ExpressionUUID->"fb9af884-56ba-4e29-ba22-167757593c8d"], Cell[1676481, 34923, 456, 11, 73, "Input",ExpressionUUID->"9fc5b2b9-e55d-4491-b546-fed394d2d3ff"], Cell[1676940, 34936, 1182, 29, 73, "Input",ExpressionUUID->"e42d6eb1-2bbd-4d7b-a1cb-da7df5ee3c75"], Cell[1678125, 34967, 2285, 52, 131, "Input",ExpressionUUID->"81d86a4b-f88a-44fc-a5d6-f2c75170bacd"], Cell[CellGroupData[{ Cell[1680435, 35023, 399, 9, 43, "Input",ExpressionUUID->"f4bab2cb-69f5-4e80-914d-b90b0a9817bf"], Cell[1680837, 35034, 180, 3, 49, "Output",ExpressionUUID->"c0e02d5c-b0fd-4624-af09-baf120678c25"] }, Open ]], Cell[1681032, 35040, 256, 5, 43, "Input",ExpressionUUID->"e9ed25d9-a086-4e6e-a774-15d988559195"] }, Open ]], Cell[CellGroupData[{ Cell[1681325, 35050, 1205, 29, 81, "Subsubsection",ExpressionUUID->"729edd39-124f-4c6e-846a-e4426174199d"], Cell[1682533, 35081, 407, 10, 73, "Input",ExpressionUUID->"d20aab44-1ebf-42a0-a443-868dfa06cbbf"], Cell[1682943, 35093, 1180, 29, 73, "Input",ExpressionUUID->"7498256a-ec94-4157-a412-1d6afa428829"], Cell[1684126, 35124, 2281, 52, 131, "Input",ExpressionUUID->"7c02ce60-7304-45ab-aea8-5b3e80930425"], Cell[CellGroupData[{ Cell[1686432, 35180, 399, 9, 43, "Input",ExpressionUUID->"1da31871-aa24-468f-b08c-466c20f96493"], Cell[1686834, 35191, 178, 3, 49, "Output",ExpressionUUID->"42fff2cb-3864-4521-a9ca-31d9c177e82d"] }, Open ]], Cell[1687027, 35197, 256, 5, 43, "Input",ExpressionUUID->"5adf625e-bcf4-4984-967e-6173440e152b"] }, Open ]], Cell[CellGroupData[{ Cell[1687320, 35207, 1250, 29, 81, "Subsubsection",ExpressionUUID->"24968e46-3b53-4604-a916-a310238ddd02"], Cell[1688573, 35238, 460, 11, 73, "Input",ExpressionUUID->"8840eae0-18b7-42c3-ad16-640e3dc43a65"], Cell[1689036, 35251, 1184, 29, 73, "Input",ExpressionUUID->"c373f924-4d1c-46ea-ae5f-af63094168dd"], Cell[1690223, 35282, 2281, 52, 131, "Input",ExpressionUUID->"f2d70174-3cbb-4826-97cd-fbea937a55d7"], Cell[CellGroupData[{ Cell[1692529, 35338, 399, 9, 43, "Input",ExpressionUUID->"3ec5b027-96a5-4fa5-8cf0-15eda9c52661"], Cell[1692931, 35349, 178, 3, 49, "Output",ExpressionUUID->"53286ecf-2839-4037-a422-eea6e749ee5c"] }, Open ]], Cell[1693124, 35355, 256, 5, 43, "Input",ExpressionUUID->"0948c9e4-aa6a-4e48-90cf-0af674336371"] }, Open ]], Cell[CellGroupData[{ Cell[1693417, 35365, 1303, 30, 81, "Subsubsection",ExpressionUUID->"689100a5-b296-4717-afda-f31b3c94d97a"], Cell[1694723, 35397, 509, 12, 73, "Input",ExpressionUUID->"b71e4f22-abc0-4146-a881-2b98be3100b3"], Cell[1695235, 35411, 1180, 29, 73, "Input",ExpressionUUID->"cb731292-ffa4-4717-b58d-6d41316967fe"], Cell[1696418, 35442, 2282, 52, 131, "Input",ExpressionUUID->"dc724abd-ef64-4f2e-b433-5381f78aad94"], Cell[CellGroupData[{ Cell[1698725, 35498, 399, 9, 43, "Input",ExpressionUUID->"d796e61e-9953-4c1b-872c-5f221333d769"], Cell[1699127, 35509, 178, 3, 49, "Output",ExpressionUUID->"9c480c52-a5eb-499d-802b-aa4b34277bdb"] }, Open ]], Cell[1699320, 35515, 256, 5, 43, "Input",ExpressionUUID->"b24774bc-c44b-4ce0-acee-9f0987fa0509"] }, Open ]], Cell[CellGroupData[{ Cell[1699613, 35525, 1349, 31, 81, "Subsubsection",ExpressionUUID->"7f89c892-adc9-4712-8c76-a75e80fbf51b"], Cell[1700965, 35558, 559, 12, 73, "Input",ExpressionUUID->"76f6e8ee-7827-4fc4-b75e-a9dd313cca1f"], Cell[1701527, 35572, 1182, 29, 73, "Input",ExpressionUUID->"15da10ad-8f6a-4f9b-be7e-e3653cda335f"], Cell[1702712, 35603, 2280, 52, 131, "Input",ExpressionUUID->"fc72778f-8cff-4851-81b8-557e77dce104"], Cell[CellGroupData[{ Cell[1705017, 35659, 399, 9, 43, "Input",ExpressionUUID->"f04cc7e3-a38d-4670-9a80-e828c36f9473"], Cell[1705419, 35670, 180, 3, 49, "Output",ExpressionUUID->"a3cb6e5f-628d-4eca-a954-b73c96b249fe"] }, Open ]], Cell[1705614, 35676, 256, 5, 43, "Input",ExpressionUUID->"d51b969e-f20c-4d9b-b11a-6c853320702a"] }, Open ]], Cell[CellGroupData[{ Cell[1705907, 35686, 3256, 82, 189, "Subsubsection",ExpressionUUID->"5bebdfc2-7bb7-4f1c-b428-198239f14f11"], Cell[1709166, 35770, 313, 6, 43, "Input",ExpressionUUID->"4aa93657-e703-4546-ade8-754fe15cb5ba"], Cell[1709482, 35778, 2556, 67, 102, "Input",ExpressionUUID->"2fba21da-2de9-4f5a-ac0e-98dbfd4a3d74"], Cell[1712041, 35847, 1196, 30, 43, "Input",ExpressionUUID->"8819f3aa-f7ab-4084-9c96-e9a984090ccd"], Cell[1713240, 35879, 3041, 62, 102, "Input",ExpressionUUID->"43ef49bf-3bea-4440-b256-d0004742d5b2"], Cell[CellGroupData[{ Cell[1716306, 35945, 408, 9, 43, "Input",ExpressionUUID->"bbd88ee8-e241-4b5d-bcd8-a672e1647710"], Cell[1716717, 35956, 252, 5, 49, "Output",ExpressionUUID->"e011da6b-2dd5-47ae-8845-59dc9e6236a4"] }, Open ]], Cell[1716984, 35964, 2479, 55, 160, "Input",ExpressionUUID->"3b253423-e4eb-405e-a82c-bcdcb3269bcb"], Cell[CellGroupData[{ Cell[1719488, 36023, 450, 10, 43, "Input",ExpressionUUID->"a964ae68-2a8f-4fa3-ad2d-6a0cd9af2e2a"], Cell[1719941, 36035, 178, 3, 49, "Output",ExpressionUUID->"1b84d271-30d6-4df7-9a0e-b4f89794f00a"] }, Open ]], Cell[1720134, 36041, 273, 5, 43, "Input",ExpressionUUID->"6c2b1cad-c7d1-44ba-aaf2-c1d339c06c4a"] }, Open ]], Cell[CellGroupData[{ Cell[1720444, 36051, 450, 8, 106, "Subsubsection",ExpressionUUID->"81f3b4e5-ad4a-407f-b63c-64c85b3476bb"], Cell[1720897, 36061, 413, 9, 73, "Input",ExpressionUUID->"121c4d53-5eff-46ef-9b58-ccfce18400d1"], Cell[1721313, 36072, 924, 23, 73, "Input",ExpressionUUID->"8c3af65c-47a8-4525-a383-b6b4d9355662"], Cell[1722240, 36097, 1481, 35, 102, "Input",ExpressionUUID->"26724dd0-8ce3-4168-bd42-1bcb7ec83e18"], Cell[CellGroupData[{ Cell[1723746, 36136, 415, 9, 43, "Input",ExpressionUUID->"b35bf98b-a239-4c74-91d4-1bb434d5a3b4"], Cell[1724164, 36147, 202, 4, 49, "Output",ExpressionUUID->"46ca3d06-dbc4-4fe6-8bae-4898a960089d"] }, Open ]], Cell[CellGroupData[{ Cell[1724403, 36156, 913, 22, 43, "Input",ExpressionUUID->"ad41a71a-6fb8-4895-9614-3a6c86dc9250"], Cell[1725319, 36180, 378, 9, 35, "Message",ExpressionUUID->"640f1b89-26f5-4861-8a28-ab015091ea73"] }, Open ]], Cell[CellGroupData[{ Cell[1725734, 36194, 362, 8, 43, "Input",ExpressionUUID->"46c37b6a-3f5f-445d-b7d9-00cb05efc448"], Cell[1726099, 36204, 201, 4, 49, "Output",ExpressionUUID->"afd4d45e-90c4-4dac-956e-29120fd0cc5e"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1726349, 36214, 1674, 38, 81, "Subsubsection",ExpressionUUID->"4e199379-bfe4-4a28-9363-74078207059f"], Cell[1728026, 36254, 242, 5, 43, "Input",ExpressionUUID->"e2620477-7ff1-4f99-84f5-d3101408b07a"], Cell[1728271, 36261, 2740, 58, 102, "Input",ExpressionUUID->"2c784c23-6e35-4cc5-a50d-d53c2b8aa51b"], Cell[1731014, 36321, 1822, 35, 43, "Input",ExpressionUUID->"c18bed2e-b5d2-4972-97cb-edabae1d85e2"], Cell[1732839, 36358, 743, 19, 43, "Input",ExpressionUUID->"bad3146f-d37a-476c-b4e6-594e9e1ec5a1"], Cell[CellGroupData[{ Cell[1733607, 36381, 1508, 40, 102, "Input",ExpressionUUID->"292c921d-08d7-44c5-b3d3-f39fdfb7f393"], Cell[1735118, 36423, 180, 3, 49, "Output",ExpressionUUID->"bb434968-5a69-4fde-91af-758805a2e85e"] }, Open ]], Cell[CellGroupData[{ Cell[1735335, 36431, 214, 3, 73, "Input",ExpressionUUID->"5f07b352-d950-44b0-a8ab-45c3ca89afd1"], Cell[1735552, 36436, 179, 3, 49, "Output",ExpressionUUID->"110cf87c-b9c6-4c7f-9f06-17b71f7568f5"], Cell[1735734, 36441, 179, 3, 49, "Output",ExpressionUUID->"2f2ad5c5-ac1a-4ec7-a718-ae48edc15495"] }, Open ]], Cell[1735928, 36447, 273, 5, 43, "Input",ExpressionUUID->"f7606bda-5078-432a-8a16-209687d54741"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[1736250, 36458, 752, 18, 70, "Subsection",ExpressionUUID->"a2c8f04a-0774-42d1-aaa5-4ce733fac499"], Cell[CellGroupData[{ Cell[1737027, 36480, 214, 3, 73, "Input",ExpressionUUID->"183b4543-7198-403e-88c8-9671bdadc833"], Cell[1737244, 36485, 177, 3, 49, "Output",ExpressionUUID->"f88ed985-4ba1-47e0-9062-8545f37e9834"], Cell[1737424, 36490, 177, 3, 49, "Output",ExpressionUUID->"369ff5ed-565c-40be-a875-7815c175e799"] }, Open ]], Cell[CellGroupData[{ Cell[1737638, 36498, 3167, 75, 160, "Input",ExpressionUUID->"72290d82-6a34-428e-add0-4c3ea129491d"], Cell[1740808, 36575, 180, 3, 49, "Output",ExpressionUUID->"60345996-6d1b-4d42-a7da-f03d71a57ff3"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1741037, 36584, 1009, 21, 96, "Subsection",ExpressionUUID->"b7de8be6-86f6-4396-9b5b-049e868ca721"], Cell[CellGroupData[{ Cell[1742071, 36609, 1207, 29, 81, "Subsubsection",ExpressionUUID->"0bf66b21-1968-431b-bb6c-fa4de97e2134"], Cell[1743281, 36640, 653, 14, 73, "Input",ExpressionUUID->"e42015a7-2876-4169-ad23-8af00bf36879"], Cell[1743937, 36656, 1182, 29, 73, "Input",ExpressionUUID->"4ea5c6ad-907f-4bb2-b4c9-c6a80c0e03a8"], Cell[1745122, 36687, 2285, 52, 131, "Input",ExpressionUUID->"e873d64b-ad04-46e3-9b52-039bd22c7bad"], Cell[CellGroupData[{ Cell[1747432, 36743, 399, 9, 43, "Input",ExpressionUUID->"c0622173-49c5-4a66-8441-622a7bfe1ba0"], Cell[1747834, 36754, 178, 3, 70, "Output",ExpressionUUID->"96043fec-35dd-4681-9f4d-46848595174a"] }, Open ]], Cell[1748027, 36760, 256, 5, 43, "Input",ExpressionUUID->"ced7d947-395e-404d-bf6e-f5cd78b15496"] }, Open ]], Cell[CellGroupData[{ Cell[1748320, 36770, 1257, 29, 81, "Subsubsection",ExpressionUUID->"c7922909-c56f-4248-800d-c84f541a50ea"], Cell[1749580, 36801, 603, 13, 73, "Input",ExpressionUUID->"58d1ab1d-66ac-48a2-8c68-a9a6d42989a3"], Cell[1750186, 36816, 1182, 29, 73, "Input",ExpressionUUID->"3f99070d-170d-46f8-a8ba-7b837d643bc8"], Cell[1751371, 36847, 2285, 52, 131, "Input",ExpressionUUID->"6edfe89c-31d8-44aa-a97f-4c6b9f6321c1"], Cell[CellGroupData[{ Cell[1753681, 36903, 399, 9, 43, "Input",ExpressionUUID->"21eb5716-31f8-4ace-811c-a5c5b4ced669"], Cell[1754083, 36914, 176, 3, 70, "Output",ExpressionUUID->"d338530b-ff4c-4fc2-8f33-cb0d12a4056d"] }, Open ]], Cell[1754274, 36920, 256, 5, 43, "Input",ExpressionUUID->"54e0e7c9-3f3f-46ce-8df4-00575e8513b5"] }, Open ]], Cell[CellGroupData[{ Cell[1754567, 36930, 1416, 31, 81, "Subsubsection",ExpressionUUID->"32c90936-2bcd-4a1d-9122-493a3e262de3"], Cell[1755986, 36963, 606, 13, 73, "Input",ExpressionUUID->"9a4d21de-6e7a-4c84-be24-d9407ead1adc"], Cell[1756595, 36978, 1182, 29, 73, "Input",ExpressionUUID->"0673736b-9904-4af2-bce1-a2d02ed1b6e0"], Cell[1757780, 37009, 2285, 52, 131, "Input",ExpressionUUID->"7db880cd-021c-483f-ad2a-23f504885947"], Cell[CellGroupData[{ Cell[1760090, 37065, 399, 9, 43, "Input",ExpressionUUID->"a81492ff-879e-49ad-a797-584f3195dbc3"], Cell[1760492, 37076, 177, 3, 70, "Output",ExpressionUUID->"62ff9c1b-98a2-49b4-98e7-61ee1f14fd0a"] }, Open ]], Cell[1760684, 37082, 256, 5, 43, "Input",ExpressionUUID->"eec5d6c1-d1aa-4ef1-860f-cda8a465b998"] }, Open ]], Cell[CellGroupData[{ Cell[1760977, 37092, 1314, 30, 81, "Subsubsection",ExpressionUUID->"44f137cd-9a8f-4d45-b647-5cb306386138"], Cell[1762294, 37124, 555, 12, 73, "Input",ExpressionUUID->"7220b935-f2aa-4e42-b93b-2135a234ab7b"], Cell[1762852, 37138, 1182, 29, 73, "Input",ExpressionUUID->"dfe2f84c-13bb-4c61-b36d-b217a19f0b28"], Cell[1764037, 37169, 2285, 52, 131, "Input",ExpressionUUID->"58796b12-1eba-4c33-b6ef-0d0765406f5c"], Cell[CellGroupData[{ Cell[1766347, 37225, 399, 9, 43, "Input",ExpressionUUID->"84c23512-a205-4d0d-8111-359bdb20dbb8"], Cell[1766749, 37236, 176, 3, 70, "Output",ExpressionUUID->"a1bd6555-f753-4319-848f-1a31c5c0c577"] }, Open ]], Cell[1766940, 37242, 256, 5, 43, "Input",ExpressionUUID->"a27d0b3a-5080-4409-a900-11b17c2942c8"] }, Open ]], Cell[CellGroupData[{ Cell[1767233, 37252, 1389, 33, 81, "Subsubsection",ExpressionUUID->"fe7e20ce-ad90-453b-9c35-2b63cc0b81ff"], Cell[1768625, 37287, 518, 12, 73, "Input",ExpressionUUID->"58d9eea4-d638-433f-a224-ef04d7f5bff4"], Cell[1769146, 37301, 1182, 29, 73, "Input",ExpressionUUID->"08fc3746-228b-4196-9d20-f2ecc8fe595f"], Cell[1770331, 37332, 2285, 52, 131, "Input",ExpressionUUID->"49fba5cc-20a3-45b1-8494-9dca227cca34"], Cell[CellGroupData[{ Cell[1772641, 37388, 399, 9, 43, "Input",ExpressionUUID->"5ebea7b2-ccc1-4bbf-9dc3-0c534e972a80"], Cell[1773043, 37399, 176, 3, 70, "Output",ExpressionUUID->"f8ad5457-1abe-4b3e-8be4-b2776e1fd620"] }, Open ]], Cell[1773234, 37405, 256, 5, 43, "Input",ExpressionUUID->"f2d6cc8b-5d5e-49f6-a394-7b8b7f365166"] }, Open ]], Cell[CellGroupData[{ Cell[1773527, 37415, 4943, 127, 250, "Subsubsection",ExpressionUUID->"cec81870-08aa-4b56-aa86-4f2cace8e8d9"], Cell[1778473, 37544, 244, 5, 43, "Input",ExpressionUUID->"d2941532-c3ea-48ef-a02c-5d208964447f"], Cell[1778720, 37551, 4967, 130, 189, "Input",ExpressionUUID->"46bb89e4-1ff7-4c63-9360-458b8031696c"], Cell[1783690, 37683, 1442, 36, 43, "Input",ExpressionUUID->"91202c36-785f-4f07-ad29-db923fc6eb24"], Cell[1785135, 37721, 3904, 83, 160, "Input",ExpressionUUID->"b9a811ae-6bdd-4635-b163-db3fb3c18c68"], Cell[CellGroupData[{ Cell[1789064, 37808, 408, 9, 43, "Input",ExpressionUUID->"b33f5c54-1406-44dc-b7fe-537819d95cc3"], Cell[1789475, 37819, 265, 6, 70, "Output",ExpressionUUID->"6905b40f-7c0f-413a-b3e7-224419048b99"] }, Open ]], Cell[1789755, 37828, 2643, 59, 160, "Input",ExpressionUUID->"c9d9ab41-e5b8-4549-a9f4-75288eba6106"], Cell[CellGroupData[{ Cell[1792423, 37891, 450, 10, 43, "Input",ExpressionUUID->"cdbcbd12-dbd7-422f-badd-01d1e6f93b34"], Cell[1792876, 37903, 178, 3, 70, "Output",ExpressionUUID->"085f35b8-fb11-4f7b-81a2-b7e329293b1f"] }, Open ]], Cell[1793069, 37909, 273, 5, 43, "Input",ExpressionUUID->"cd920bd3-2a36-4e7e-965e-76dfc43b85d5"] }, Open ]], Cell[CellGroupData[{ Cell[1793379, 37919, 504, 9, 106, "Subsubsection",ExpressionUUID->"19da1e95-28a4-469d-a45c-1612bf8b6d93"], Cell[1793886, 37930, 439, 9, 73, "Input",ExpressionUUID->"5d72daaf-293a-46fa-b279-97d45d6ba13d"], Cell[1794328, 37941, 987, 24, 73, "Input",ExpressionUUID->"4a59b7da-dd14-424c-9154-6a6a34aa486a"], Cell[1795318, 37967, 1481, 35, 102, "Input",ExpressionUUID->"1f1e6656-0b41-4625-b2fd-89feb4b475da"], Cell[CellGroupData[{ Cell[1796824, 38006, 415, 9, 43, "Input",ExpressionUUID->"b34f1ad4-b0c0-45f0-9975-109f8ef04c69"], Cell[1797242, 38017, 199, 4, 70, "Output",ExpressionUUID->"161eb677-d62e-452f-ad38-a2ef0ac38cc0"] }, Open ]], Cell[CellGroupData[{ Cell[1797478, 38026, 1022, 24, 43, "Input",ExpressionUUID->"966abae6-f3e5-4499-a56b-bc65dd3ad693"], Cell[1798503, 38052, 380, 9, 70, "Message",ExpressionUUID->"9cf1ee90-1b65-47f6-9b71-ffeec910a798"] }, Open ]], Cell[CellGroupData[{ Cell[1798920, 38066, 362, 8, 43, "Input",ExpressionUUID->"6769f57d-e4c9-48f8-ad6b-6db8bd911ee7"], Cell[1799285, 38076, 201, 4, 70, "Output",ExpressionUUID->"3b5d6f81-df3e-4dbe-9daf-8ec7ab1b1c6b"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1799535, 38086, 1300, 31, 81, "Subsubsection",ExpressionUUID->"d04dc00c-7a33-405e-9c14-c0ef834cc12e"], Cell[1800838, 38119, 290, 6, 43, "Input",ExpressionUUID->"c8238ea8-8063-4f3d-a1cd-7350059cf0c4"], Cell[1801131, 38127, 2792, 59, 102, "Input",ExpressionUUID->"afae96be-03ba-49e5-9e5b-e88121e126a5"], Cell[1803926, 38188, 1822, 35, 43, "Input",ExpressionUUID->"8e6e3ebe-e1a6-4fb6-afbe-cb73f058f5a1"], Cell[1805751, 38225, 724, 18, 43, "Input",ExpressionUUID->"1daa702e-9865-45d0-8448-190d0a1ca13c"], Cell[CellGroupData[{ Cell[1806500, 38247, 1484, 40, 102, "Input",ExpressionUUID->"24cccbc7-891d-43ec-a11c-86b815e8ae91"], Cell[1807987, 38289, 180, 3, 70, "Output",ExpressionUUID->"760a4d88-34e8-4330-bfea-666f27fb6414"] }, Open ]], Cell[CellGroupData[{ Cell[1808204, 38297, 294, 5, 102, "Input",ExpressionUUID->"285a99b7-c6d2-4925-8fc4-db9915a51ac9"], Cell[1808501, 38304, 179, 3, 70, "Output",ExpressionUUID->"6a59acaf-32d1-46e2-8e1a-da9ba1ff7abb"], Cell[1808683, 38309, 179, 3, 70, "Output",ExpressionUUID->"0442f262-0e8f-4649-a40c-acc5372949f1"], Cell[1808865, 38314, 179, 3, 70, "Output",ExpressionUUID->"4308daa4-d89e-4217-a782-4663926db356"] }, Open ]], Cell[1809059, 38320, 273, 5, 43, "Input",ExpressionUUID->"f53a60b0-9b52-4226-8215-12f4b77cd5bd"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[1809381, 38331, 702, 18, 70, "Subsection",ExpressionUUID->"a6e8883f-6c15-4d9f-b014-30a1f3d728aa"], Cell[CellGroupData[{ Cell[1810108, 38353, 298, 5, 102, "Input",ExpressionUUID->"ba3dadb6-cf1b-4d7f-85bc-1df6d8d0baff"], Cell[1810409, 38360, 179, 3, 49, "Output",ExpressionUUID->"ef2d3927-ba5f-4a51-bceb-903f8c9fd882"], Cell[1810591, 38365, 179, 3, 49, "Output",ExpressionUUID->"10d7f5f3-5438-47b6-93f0-a6ab21351977"], Cell[1810773, 38370, 179, 3, 49, "Output",ExpressionUUID->"b7fd4e8d-a586-4b55-b29e-e23b3b85c377"] }, Open ]], Cell[CellGroupData[{ Cell[1810989, 38378, 3158, 75, 160, "Input",ExpressionUUID->"9242bc11-44e2-4777-8f9e-ccd559d67136"], Cell[1814150, 38455, 182, 3, 49, "Output",ExpressionUUID->"8a454698-82e7-4a75-88b8-b5498109ef1a"] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[1814393, 38465, 1005, 32, 96, "Section",ExpressionUUID->"7b100121-0387-4741-8636-61706c80f836"], Cell[CellGroupData[{ Cell[1815423, 38501, 279, 5, 43, "Input",ExpressionUUID->"639a01a5-0b35-4747-a14f-cc361d210ab5"], Cell[1815705, 38508, 158, 3, 49, "Output",ExpressionUUID->"62f62760-b9e9-455d-a0d6-cd98ac6306e9"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1815912, 38517, 547, 8, 99, "Section",ExpressionUUID->"3ca2c2f4-f30f-4e08-b490-58b2f2a67c25"], Cell[1816462, 38527, 233, 6, 43, "Input",ExpressionUUID->"dab9e6e3-e296-4883-b190-18fcf3898997"], Cell[1816698, 38535, 2296, 34, 43, "Input",ExpressionUUID->"b2005f18-efab-4bea-9215-e97954f731b7"] }, Open ]], Cell[CellGroupData[{ Cell[1819031, 38574, 363, 7, 154, "Section",ExpressionUUID->"edb43e4c-6e9c-449d-8a2b-28a0eff747b5"], Cell[1819397, 38583, 233, 6, 43, "Input",ExpressionUUID->"dc94526e-862c-4549-b0c0-4e98ef91eddb"], Cell[1819633, 38591, 406, 8, 43, "Input",ExpressionUUID->"f3d658d0-2eaa-4c7c-85da-73df9709b326"] }, Open ]], Cell[CellGroupData[{ Cell[1820076, 38604, 944, 22, 166, "Section",ExpressionUUID->"001af4b3-a842-415b-93b5-f7c611a0c3da"], Cell[CellGroupData[{ Cell[1821045, 38630, 171, 3, 67, "Subsubsection",ExpressionUUID->"d709655d-8321-47e6-adf8-dca2e21c919f"], Cell[CellGroupData[{ Cell[1821241, 38637, 426, 8, 102, "Input",ExpressionUUID->"bacce989-d1a8-408e-bb7b-e3cc56f4640a"], Cell[1821670, 38647, 281, 5, 70, "Output",ExpressionUUID->"31ba7041-c354-4018-84de-a092497d1d87"], Cell[1821954, 38654, 281, 5, 70, "Output",ExpressionUUID->"6624557d-454d-4bdc-8331-63d3c4cc940c"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[1822284, 38665, 965, 22, 67, "Subsubsection",ExpressionUUID->"205da802-785c-4106-bfff-b750ece28438"], Cell[1823252, 38689, 456, 11, 73, "Input",ExpressionUUID->"e9be1853-1d00-496f-a3a9-6c072ba66d8d"], Cell[1823711, 38702, 1136, 27, 73, "Input",ExpressionUUID->"a89cd3bb-a388-488f-8c03-f7203ab45395"], Cell[1824850, 38731, 2335, 53, 131, "Input",ExpressionUUID->"c4ae92e9-3d80-4033-9803-975670337b28"], Cell[CellGroupData[{ Cell[1827210, 38788, 399, 9, 43, "Input",ExpressionUUID->"4bc298cb-98b1-466e-b86e-a3ae9d4b1ab6"], Cell[1827612, 38799, 224, 4, 70, "Output",ExpressionUUID->"b5e87d67-ce5d-42d0-8ffe-df978798350d"] }, Open ]], Cell[1827851, 38806, 256, 5, 43, "Input",ExpressionUUID->"a56a8d08-0f22-4f75-b542-babb23fd35e8"] }, Closed]], Cell[CellGroupData[{ Cell[1828144, 38816, 1048, 23, 67, "Subsubsection",ExpressionUUID->"a36695d2-55ea-4b5e-8aa1-28e605e6d111"], Cell[1829195, 38841, 407, 10, 73, "Input",ExpressionUUID->"ddc3cec3-92f0-4ccb-960e-74153a96380b"], Cell[1829605, 38853, 1115, 26, 73, "Input",ExpressionUUID->"2b972354-054d-4f08-8db9-00d9ea1d9ae4"], Cell[1830723, 38881, 2281, 52, 131, "Input",ExpressionUUID->"565a4751-4a1e-4efc-9cc2-ce973142da3a"], Cell[CellGroupData[{ Cell[1833029, 38937, 399, 9, 43, "Input",ExpressionUUID->"64460cad-9019-4d0e-8f63-5982108de4fa"], Cell[1833431, 38948, 203, 4, 70, "Output",ExpressionUUID->"f2194751-e155-4b91-9ab0-d4b43c6b9610"] }, Open ]], Cell[1833649, 38955, 256, 5, 43, "Input",ExpressionUUID->"ca5aeb5a-a627-423c-813b-1cf815733e55"] }, Closed]], Cell[CellGroupData[{ Cell[1833942, 38965, 1093, 24, 67, "Subsubsection",ExpressionUUID->"7d48686b-675b-4939-bef5-323d36995ec9"], Cell[1835038, 38991, 460, 11, 73, "Input",ExpressionUUID->"d7025e6d-0320-4ca1-bf8e-9c30120efbde"], Cell[1835501, 39004, 1119, 26, 73, "Input",ExpressionUUID->"4df89edf-edef-4f40-98d4-ca09b63f3cd6"], Cell[1836623, 39032, 2281, 52, 131, "Input",ExpressionUUID->"a02514ca-3049-4391-a2c5-fba617856045"], Cell[CellGroupData[{ Cell[1838929, 39088, 399, 9, 43, "Input",ExpressionUUID->"fd820bf6-82f2-42e2-a16c-66f510ff9b39"], Cell[1839331, 39099, 202, 4, 70, "Output",ExpressionUUID->"33615180-1b80-477a-8265-d5e1377e43a2"] }, Open ]], Cell[1839548, 39106, 256, 5, 43, "Input",ExpressionUUID->"6f83972a-88e0-4787-aa6e-1a481802330d"] }, Closed]], Cell[CellGroupData[{ Cell[1839841, 39116, 1146, 24, 67, "Subsubsection",ExpressionUUID->"6a2c5085-77d1-48dc-a81f-ce6fdc5b52bd"], Cell[1840990, 39142, 509, 12, 830, "Input",ExpressionUUID->"ed970a20-b92e-4602-87d3-7753f65f2534"], Cell[1841502, 39156, 1115, 26, 830, "Input",ExpressionUUID->"0f82e909-f5c6-4e4e-a12d-5bddc1ae25e5"], Cell[1842620, 39184, 2282, 52, 1487, "Input",ExpressionUUID->"475c0dba-f1bd-42fa-9a70-a2727064bdb1"], Cell[CellGroupData[{ Cell[1844927, 39240, 399, 9, 486, "Input",ExpressionUUID->"efb62262-1539-48ba-9993-ea8549187e35"], Cell[1845329, 39251, 203, 4, 70, "Output",ExpressionUUID->"8dd09a23-28d5-4c10-9dd7-ba37fa6d1748"] }, Open ]], Cell[1845547, 39258, 256, 5, 864, "Input",ExpressionUUID->"5f2ce7a6-3141-46cb-8899-cdcba5cee8d1"] }, Closed]], Cell[CellGroupData[{ Cell[1845840, 39268, 1190, 25, 67, "Subsubsection",ExpressionUUID->"87550882-def9-4703-91ed-f00a0bc9f66c"], Cell[1847033, 39295, 559, 12, 830, "Input",ExpressionUUID->"9fe5455f-2c26-43b3-b5d5-09f166597751"], Cell[1847595, 39309, 1115, 26, 830, "Input",ExpressionUUID->"01b370f2-47a1-4dab-b213-131acf246f62"], Cell[1848713, 39337, 2280, 52, 1487, "Input",ExpressionUUID->"3e8111e6-70fa-4b7e-b9a3-d20be3df078c"], Cell[CellGroupData[{ Cell[1851018, 39393, 399, 9, 486, "Input",ExpressionUUID->"16753cab-23a7-4e58-aed9-20725ed38901"], Cell[1851420, 39404, 201, 4, 70, "Output",ExpressionUUID->"da350f4b-7bac-461b-bd06-b035fda9d8ef"] }, Open ]], Cell[1851636, 39411, 256, 5, 864, "Input",ExpressionUUID->"9736a480-37e9-4009-8765-b807c17c0945"] }, Closed]], Cell[CellGroupData[{ Cell[1851929, 39421, 1049, 23, 67, "Subsubsection",ExpressionUUID->"844a0cb8-17d9-4cc5-b1b7-a616091ac1ba"], Cell[1852981, 39446, 653, 14, 830, "Input",ExpressionUUID->"2db37450-7ea5-49e2-bc0c-ea10439fce06"], Cell[1853637, 39462, 1117, 26, 830, "Input",ExpressionUUID->"e50b5ac8-3593-4f73-b4f6-26873890acb8"], Cell[1854757, 39490, 2285, 52, 1487, "Input",ExpressionUUID->"d69dd959-7a4e-4c9f-be0c-3bbcae45e824"], Cell[CellGroupData[{ Cell[1857067, 39546, 399, 9, 486, "Input",ExpressionUUID->"57bd71ae-8ccf-48e3-a7f9-2ef3373b03b6"], Cell[1857469, 39557, 205, 4, 70, "Output",ExpressionUUID->"92c004c8-8d08-443a-894c-d5342ab01fd7"] }, Open ]], Cell[1857689, 39564, 256, 5, 864, "Input",ExpressionUUID->"719afbbd-e095-4205-aad9-8e67e4f0f775"] }, Closed]], Cell[CellGroupData[{ Cell[1857982, 39574, 1044, 23, 67, "Subsubsection",ExpressionUUID->"c17bbd40-b4a0-4662-bf41-42e51c81e954"], Cell[1859029, 39599, 603, 13, 830, "Input",ExpressionUUID->"938ceb08-da15-419b-877f-faf73d6b85ef"], Cell[1859635, 39614, 1115, 26, 830, "Input",ExpressionUUID->"01f2f3b1-6ac3-4a29-afcd-282930c860f2"], Cell[1860753, 39642, 2285, 52, 1487, "Input",ExpressionUUID->"7335ba6b-153e-4c57-8f74-67ac262e90c3"], Cell[CellGroupData[{ Cell[1863063, 39698, 399, 9, 486, "Input",ExpressionUUID->"6c79a32c-2cf0-49de-b7ad-8ac65d828c30"], Cell[1863465, 39709, 205, 4, 70, "Output",ExpressionUUID->"d63027c5-1379-4d0e-8c2e-724dec2719f8"] }, Open ]], Cell[1863685, 39716, 256, 5, 864, "Input",ExpressionUUID->"c82728f8-2864-490c-8a1d-c7719bc4feec"] }, Closed]], Cell[CellGroupData[{ Cell[1863978, 39726, 1208, 25, 67, "Subsubsection",ExpressionUUID->"1122043b-3661-4ef0-8b32-fe863a53ff1c"], Cell[1865189, 39753, 606, 13, 830, "Input",ExpressionUUID->"ab56a5b9-30d6-40be-8584-dd1de8f02803"], Cell[1865798, 39768, 1115, 26, 830, "Input",ExpressionUUID->"790312fb-d5cf-4e00-9b3d-0eaaaef48a16"], Cell[1866916, 39796, 2285, 52, 1487, "Input",ExpressionUUID->"03cf2996-7ad3-41e5-8ae2-48a81390b759"], Cell[CellGroupData[{ Cell[1869226, 39852, 399, 9, 486, "Input",ExpressionUUID->"70b8c598-2223-49fd-b65a-21e8f0cebd0e"], Cell[1869628, 39863, 201, 4, 70, "Output",ExpressionUUID->"61e0d2d3-32a2-49b6-ae31-dedd5571b427"] }, Open ]], Cell[1869844, 39870, 256, 5, 864, "Input",ExpressionUUID->"677f2ebd-416c-4d54-9dca-d36f60f593a8"] }, Closed]], Cell[CellGroupData[{ Cell[1870137, 39880, 1102, 24, 67, "Subsubsection",ExpressionUUID->"b7893591-1540-4b1c-bcbf-bb5f9bfdb5bb"], Cell[1871242, 39906, 555, 12, 830, "Input",ExpressionUUID->"89a3cdc1-681f-49aa-96c6-ee208780db99"], Cell[1871800, 39920, 1117, 26, 830, "Input",ExpressionUUID->"0af8fab7-ebe4-496a-8cd3-57c9f94282ed"], Cell[1872920, 39948, 2285, 52, 1487, "Input",ExpressionUUID->"62241599-be81-4a9a-9083-d21d9b8fa0bf"], Cell[CellGroupData[{ Cell[1875230, 40004, 399, 9, 486, "Input",ExpressionUUID->"f254e1ff-c0e4-4832-8c4b-e22f6cf22e4a"], Cell[1875632, 40015, 205, 4, 70, "Output",ExpressionUUID->"7b413b4b-7cb0-4645-bc65-04a86a8a4de7"] }, Open ]], Cell[1875852, 40022, 256, 5, 864, "Input",ExpressionUUID->"90b5e18c-2f19-4701-b46a-2997ffad5bb5"] }, Closed]], Cell[CellGroupData[{ Cell[1876145, 40032, 1158, 24, 67, "Subsubsection",ExpressionUUID->"5d438b76-ace2-48e3-b168-c0d91150e30a"], Cell[1877306, 40058, 518, 12, 830, "Input",ExpressionUUID->"29b96f87-4ac1-45e2-a4f2-db18f26d8a91"], Cell[1877827, 40072, 1117, 26, 830, "Input",ExpressionUUID->"25ec6a2a-ff38-49d3-8f2c-5d0b4233c7a2"], Cell[1878947, 40100, 2285, 52, 1487, "Input",ExpressionUUID->"3e9a7c25-94ac-4ff4-b7d1-6348101b462a"], Cell[CellGroupData[{ Cell[1881257, 40156, 399, 9, 486, "Input",ExpressionUUID->"4ff28bf3-9d4c-4f94-8fae-3c5ae7feaccf"], Cell[1881659, 40167, 202, 4, 70, "Output",ExpressionUUID->"80af9c90-f48c-4b43-8bb6-750a3f002ccb"] }, Open ]], Cell[1881876, 40174, 256, 5, 486, "Input",ExpressionUUID->"375fa0d8-96b2-4b58-80f2-c2add21a7a82"] }, Closed]], Cell[CellGroupData[{ Cell[1882169, 40184, 5370, 135, 221, "Subsubsection",ExpressionUUID->"ede232d0-d24a-4d82-9e83-5a799722d4af"], Cell[1887542, 40321, 313, 6, 43, "Input",ExpressionUUID->"b4a04213-f33c-44c4-a894-eb04e9024fa2"], Cell[1887858, 40329, 5091, 136, 189, "Input",ExpressionUUID->"0f0a7b7c-07e8-44ec-b30c-db5b67b9e62a"], Cell[1892952, 40467, 1196, 30, 43, "Input",ExpressionUUID->"dad571fe-79f6-47a2-a0f9-f8290d196caa"], Cell[1894151, 40499, 2917, 58, 102, "Input",ExpressionUUID->"cab4b7d5-5518-416e-ac82-c4bf6ed731b5"], Cell[CellGroupData[{ Cell[1897093, 40561, 408, 9, 43, "Input",ExpressionUUID->"78025b2c-109e-4067-9b75-cf5db6812b67"], Cell[1897504, 40572, 274, 6, 70, "Output",ExpressionUUID->"99c11756-5af5-4892-a694-3f5f15a0036b"] }, Open ]], Cell[1897793, 40581, 2479, 55, 160, "Input",ExpressionUUID->"eec594e4-0d46-4a06-b84f-4d0871af1f91"], Cell[CellGroupData[{ Cell[1900297, 40640, 450, 10, 43, "Input",ExpressionUUID->"838f0372-72ef-4906-bbd5-2c805be2c04d"], Cell[1900750, 40652, 203, 4, 70, "Output",ExpressionUUID->"baf718a5-94cd-433d-9fc0-409669c81b02"] }, Open ]], Cell[1900968, 40659, 273, 5, 43, "Input",ExpressionUUID->"836bddc1-56d5-4d01-8d5d-f4b7303ff848"] }, Closed]], Cell[CellGroupData[{ Cell[1901278, 40669, 5374, 139, 219, "Subsubsection",ExpressionUUID->"584b0c06-6593-4245-91e2-62ac62d41363"], Cell[1906655, 40810, 767, 17, 52, "Text",ExpressionUUID->"a9567c50-79fc-4c98-9ea0-8d218af2c178"], Cell[1907425, 40829, 1215, 25, 43, "Input",ExpressionUUID->"60e68af9-624c-4965-b409-4479aa4dfa09"], Cell[CellGroupData[{ Cell[1908665, 40858, 694, 16, 43, "Input",ExpressionUUID->"c8910aca-4b86-40a5-b31b-911cb91a459d"], Cell[1909362, 40876, 1388, 40, 70, "Output",ExpressionUUID->"a75c6737-d808-4396-bb5c-bfa53a596c09"] }, Open ]], Cell[1910765, 40919, 244, 5, 43, "Input",ExpressionUUID->"740a0140-d618-4c72-9e0c-224d89aa513b"], Cell[1911012, 40926, 5455, 141, 189, "Input",ExpressionUUID->"5cb72d3a-fb99-4113-b7e0-67b2c78b0d24"], Cell[1916470, 41069, 1442, 36, 43, "Input",ExpressionUUID->"56bfa145-69ff-4d47-b826-dd20b7d226ed"], Cell[1917915, 41107, 3690, 77, 160, "Input",ExpressionUUID->"7bca0d1b-183b-46f1-aa60-9d114893f6f2"], Cell[CellGroupData[{ Cell[1921630, 41188, 408, 9, 43, "Input",ExpressionUUID->"c0242db3-9b55-4a5a-9493-573cb78ec934"], Cell[1922041, 41199, 294, 7, 70, "Output",ExpressionUUID->"7267cb09-404e-40d2-9093-f6b73023663f"] }, Open ]], Cell[1922350, 41209, 2643, 59, 160, "Input",ExpressionUUID->"eadae415-0a50-4b2c-8745-fe875576dd28"], Cell[CellGroupData[{ Cell[1925018, 41272, 450, 10, 43, "Input",ExpressionUUID->"84a1612c-9cd8-432d-8df3-d68f9c61c4cc"], Cell[1925471, 41284, 204, 4, 70, "Output",ExpressionUUID->"ef5ce405-3ade-4343-9cde-4c19a1ba26f1"] }, Open ]], Cell[1925690, 41291, 273, 5, 43, "Input",ExpressionUUID->"7256d50b-b249-4a69-af5e-09968fb1a902"] }, Closed]], Cell[CellGroupData[{ Cell[1926000, 41301, 500, 9, 53, "Subsubsection",ExpressionUUID->"4d12dc3a-9dd6-43da-82e1-2fd729144e99"], Cell[CellGroupData[{ Cell[1926525, 41314, 544, 14, 43, "Input",ExpressionUUID->"09bdeec3-8442-47d0-acf8-753e19315649"], Cell[1927072, 41330, 435, 9, 49, "Output",ExpressionUUID->"fa120a34-6769-4b9c-a138-aa69de6d47d4"] }, Open ]], Cell[1927522, 41342, 1419, 33, 73, "Input",ExpressionUUID->"ca63282f-015e-4414-80cd-0445c4b5b781"], Cell[1928944, 41377, 1276, 26, 131, "Input",ExpressionUUID->"5146f716-c580-4ad8-b6b7-542564f502f6"], Cell[CellGroupData[{ Cell[1930245, 41407, 245, 5, 43, "Input",ExpressionUUID->"7fab8b2a-044a-410c-8a87-2029e8b1b3ac"], Cell[1930493, 41414, 6765, 196, 281, "Output",ExpressionUUID->"29a25cd4-137c-4cd2-bced-74d4a97b0f99"] }, Open ]] }, Open ]] }, Open ]] }, Open ]] } ] *)