(* 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[ 2232554, 47307] NotebookOptionsPosition[ 2167253, 46227] NotebookOutlinePosition[ 2167810, 46248] CellTagsIndexPosition[ 2167767, 46245] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["\<\ 4D N=4 CV No closure.nb Demonstrates the Hypermultiplet can not be closed as well as the cross terms \ unhatted, hatted. There MUST be central charges.\ \>", "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.751391341347107*^9, 3.751391342592647*^9}, {3.751391491416864*^9, 3.751391492527258*^9}, {3.751728205105069*^9, 3.751728234740034*^9}, { 3.7517284582651443`*^9, 3.751728465312806*^9}, 3.7604669688075733`*^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->"65e9b759-d921-4a12-9e52-b3e8b17f8777"], 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.751391484877924*^9, 3.751391640118247*^9, 3.7515627819892397`*^9, 3.751727175577553*^9, 3.7517302415953074`*^9}, CellLabel->"Out[1]=",ExpressionUUID->"ca84e92b-aa91-449d-9f35-6374a1f03a23"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"Rep", " ", "=", " ", "N4CV"}], ";"}]], "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}, { 3.751391488622774*^9, 3.751391489515162*^9}}, CellLabel->"In[2]:=",ExpressionUUID->"1b130993-d415-41ec-8260-109b938b0e03"], Cell[BoxData[ RowBox[{"<<", "Adinkra.wl"}]], "Input", CellChangeTimes->{{3.742447734672681*^9, 3.742447736272915*^9}}, CellLabel->"In[3]:=",ExpressionUUID->"042a2f57-aed7-4239-853e-081c663f644e"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BuildDate", "[", "Adinkra", "]"}]], "Input", CellChangeTimes->{{3.746787320836362*^9, 3.746787327269121*^9}}, CellLabel->"In[4]:=",ExpressionUUID->"c17f1cbd-b2cc-47d8-bb22-2dea690d5840"], Cell[BoxData["181104"], "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.751391546888075*^9, 3.751391646651647*^9, 3.75156278218165*^9, 3.751727175798234*^9, 3.751730241750988*^9}, CellLabel->"Out[4]=",ExpressionUUID->"88a33f1d-7372-4f04-a138-fd61b789e13f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FunctionList", "[", "Adinkra", "]"}]], "Input", CellChangeTimes->{{3.742447779550374*^9, 3.74244778619457*^9}}, CellLabel->"In[5]:=",ExpressionUUID->"bf6a110d-7d1e-40d6-8a3d-bf72cf4f7c1a"], 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],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],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], 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], \ 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.751391648963276*^9, 3.751562782246532*^9, 3.751727175844352*^9, 3.751730241814582*^9}, CellLabel->"Out[5]=",ExpressionUUID->"25c91f81-3a9a-4927-98ad-3c7f995fb895"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["FieldLists", "Section", CellChangeTimes->{{3.433789921484375*^9, 3.433789960375*^9}, { 3.439841823375*^9, 3.439841989390625*^9}, {3.43986276128125*^9, 3.4398627673125*^9}, {3.43986533615625*^9, 3.439865419203125*^9}, { 3.4398664394375*^9, 3.43986646815625*^9}, {3.4398673761875*^9, 3.439867401953125*^9}, {3.440882791*^9, 3.440882814046875*^9}, { 3.440904558828125*^9, 3.440904564703125*^9}, {3.4423496106875*^9, 3.4423496150625*^9}, 3.5517238206883764`*^9, {3.67499392291263*^9, 3.674993925768364*^9}, {3.711387721211111*^9, 3.7113877482476573`*^9}, { 3.7113878175186195`*^9, 3.7113878219728746`*^9}, {3.711390567267896*^9, 3.71139056769392*^9}, {3.7113930943174353`*^9, 3.7113930951044803`*^9}, { 3.7113948776934385`*^9, 3.7113949804623165`*^9}, {3.7113952539569597`*^9, 3.711395261886413*^9}, {3.7114193010506587`*^9, 3.7114193015116854`*^9}, { 3.73858035657756*^9, 3.7385804281216516`*^9}, {3.738580808452406*^9, 3.7385808207731104`*^9}, {3.742218923572253*^9, 3.742218931301695*^9}, { 3.7422207869805517`*^9, 3.742220813310706*^9}, {3.745946114842868*^9, 3.745946150529788*^9}, {3.745946218451417*^9, 3.7459462286979723`*^9}, { 3.746788281451227*^9, 3.746788291250942*^9}, {3.7468395874815607`*^9, 3.74683959779451*^9}, {3.747491409449876*^9, 3.7474914098577285`*^9}, { 3.7513919513976793`*^9, 3.751391979675706*^9}, {3.751392041520072*^9, 3.751392049677381*^9}, {3.751396150008305*^9, 3.751396152645523*^9}},ExpressionUUID->"146d1a2f-83d1-445b-8d6a-\ 794175dd6981"], 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[{"Ah", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"Bh", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"Ab", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"Bb", "[", 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}, { 3.751396167913517*^9, 3.751396183627287*^9}, {3.751396229554102*^9, 3.751396230020978*^9}}, CellLabel->"In[6]:=",ExpressionUUID->"9099ef07-609b-4251-9dee-91b068d2226b"], 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[{"Ah", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"Bh", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"Ab", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"Bb", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "}"}]], "Output", CellChangeTimes->{3.751396235239861*^9, 3.751562782313159*^9, 3.751727175921846*^9, 3.751730241905506*^9}, CellLabel->"Out[6]=",ExpressionUUID->"120310e7-cf98-4f26-9814-431d58ab2c7c"] }, 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[{"d", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Fh", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"Gh", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"Fb", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"Gb", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.747420586390733*^9, 3.747420591983321*^9}, { 3.747420654207153*^9, 3.7474206764630346`*^9}, {3.7513962421753187`*^9, 3.751396259070472*^9}, {3.7513962936278563`*^9, 3.751396295578923*^9}}, CellLabel->"In[7]:=",ExpressionUUID->"8066522e-c829-472d-be77-e6e61bd97324"], 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[{"Fh", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"Gh", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"Fb", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"Gb", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "}"}]], "Output", CellChangeTimes->{3.751396264092161*^9, 3.751396304192374*^9, 3.751562782379534*^9, 3.751727176002096*^9, 3.7517302420563793`*^9}, CellLabel->"Out[7]=",ExpressionUUID->"f45518c7-8b1e-4360-a41b-226eea2a7d96"] }, 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]h", "[", "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}, { 3.751396276563796*^9, 3.751396276640635*^9}}, CellLabel->"In[8]:=",ExpressionUUID->"d6cf5ead-d887-482f-96d5-830a92aa83e0"], 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]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "2", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "2", "]"}], "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "2", "]"}], "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "2", "]"}], "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "}"}]], "Output", CellChangeTimes->{3.751396280402501*^9, 3.751396311781858*^9, 3.751562782448288*^9, 3.7517271760718117`*^9, 3.751730242221065*^9}, CellLabel->"Out[8]=",ExpressionUUID->"2a1d72b9-0b63-45c0-8f0c-d176e4c9b2b4"] }, 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->"198fb917-2abb-4596-bf71-170ffacf4abd"], 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[{"Ah", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"Bh", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"Ab", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"Bb", "[", 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[{"Fh", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"Gh", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"Fb", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"Gb", "[", 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]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "2", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "2", "]"}], "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "2", "]"}], "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "2", "]"}], "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "}"}]], "Output", CellChangeTimes->{3.75139631458607*^9, 3.75156278251258*^9, 3.751727176134603*^9, 3.751730242403861*^9}, CellLabel->"Out[9]=",ExpressionUUID->"0ca317ea-50ee-4b51-94c5-709704155802"] }, 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->"1b56d7da-6bae-45fa-9eaa-9ce085f24d82"] }, 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->"a258e7af-c0e2-4fb2-9b20-42c32a245bdf"], 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->"eadedea2-d0ca-405a-acfd-2008d4caa418"], Cell[BoxData[ RowBox[{ RowBox[{"FieldProductsList", " ", "=", " ", RowBox[{"Join", "[", RowBox[{ "FieldProductsListDynamicalBosons", ",", "FieldProductsListAuxiliaryBosons"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.747421398201582*^9, 3.7474214203261704`*^9}}, CellLabel->"In[13]:=",ExpressionUUID->"20f10eb1-7c84-44ad-88f6-aa8e3d68c644"] }, 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[{ "\[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[14]:=",ExpressionUUID->"25922e74-2331-4af3-affc-1cf53f19daf7"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"InverseCmetric", "//", "MatrixForm"}]], "Input", CellChangeTimes->{{3.711390024176833*^9, 3.711390035195463*^9}}, CellLabel->"In[15]:=",ExpressionUUID->"1deeca4a-a357-43a6-ab57-86bda9bbcedb"], 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.751392265555632*^9, 3.7515627826206636`*^9, 3.751727176245304*^9, 3.751730243078597*^9}, CellLabel-> "Out[15]//MatrixForm=",ExpressionUUID->"ee019972-9ebf-4819-8974-\ 14170f730585"] }, 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[16]:=",ExpressionUUID->"ba5a332b-93ce-4e6f-8955-3f84c915f02f"], 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.751392265639867*^9, 3.751562782680243*^9, 3.7517271763227453`*^9, 3.751730243172635*^9}, CellLabel->"Out[16]=",ExpressionUUID->"44dbced7-80b1-498d-8576-18626047ad5a"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "\[CapitalPsi]hup[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}, { 3.751392224449909*^9, 3.75139223200811*^9}, {3.751392277817267*^9, 3.751392281467915*^9}},ExpressionUUID->"05fd81b8-c980-4f98-b396-\ d779a42a978c"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]hup", "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", "=", " ", RowBox[{"RaiseFermionIndex", "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "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}, {3.751392295434292*^9, 3.751392310793388*^9}}, CellLabel->"In[17]:=",ExpressionUUID->"86313cce-3736-408a-97c3-dcafebc2821a"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"InverseCmetric", "//", "MatrixForm"}]], "Input", CellChangeTimes->{{3.711390024176833*^9, 3.711390035195463*^9}}, CellLabel->"In[18]:=",ExpressionUUID->"a54d5106-5a0d-4fed-8627-385765bcbd82"], 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.751392316259945*^9, 3.75156278277617*^9, 3.7517271764132977`*^9, 3.751730243284512*^9}, CellLabel-> "Out[18]//MatrixForm=",ExpressionUUID->"09ca6936-5840-4877-bffb-\ 71a92635ed5a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]hup", "[", "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}, 3.75139229615466*^9}, CellLabel->"In[19]:=",ExpressionUUID->"38eafbe9-cbc5-4800-928b-47635a85c495"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"-", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "2", "]"}], "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "2", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "2", "]"}], "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"-", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "2", "]"}], "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.7513923163478413`*^9, 3.75156278284617*^9, 3.7517271764886703`*^9, 3.751730243388076*^9}, CellLabel->"Out[19]=",ExpressionUUID->"c8671077-e76e-4375-bae9-42b990710b2f"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "The Field strength, covariant and contravariant: Fmn[\[Mu],\[Nu]]:=", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["F", "\[Mu]\[Nu]"], " ", "=", " ", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "\[Mu]"], SubscriptBox["A", "\[Nu]"]}], " ", "-", " ", RowBox[{ SubscriptBox["\[PartialD]", "\[Nu]"], SubscriptBox["A", "\[Mu]"]}]}]}], TraditionalForm]], "None", ExpressionUUID->"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[20]:=",ExpressionUUID->"7a3a156c-a91c-452a-9cad-35dbb7a0b895"], 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[21]:=",ExpressionUUID->"5fbdfbe1-c567-4dc5-91cf-ab612175844c"], 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[22]:=",ExpressionUUID->"42a7688c-56f0-4c57-b339-cb9446a84602"], 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.751392324420165*^9, 3.75156278294223*^9, 3.751727176581897*^9, 3.751730245287737*^9}, CellLabel-> "Out[22]//MatrixForm=",ExpressionUUID->"61e548b4-778a-477c-9f64-\ 7a65c5cc8efa"] }, 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[23]:=",ExpressionUUID->"a45cd7bf-e473-4c27-995b-f58e166cf9e4"], 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.75139232451224*^9, 3.751562782989504*^9, 3.7517271766353483`*^9, 3.75173024537512*^9}, CellLabel-> "Out[23]//MatrixForm=",ExpressionUUID->"2c84ce96-de15-4b1d-b568-\ 2f1ff6d9dde3"] }, Open ]] }, Closed]], 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[24]:=",ExpressionUUID->"ffdd2876-f36c-440f-b110-9897c02218bf"], 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.751392356476143*^9, 3.751562783064623*^9, 3.751727176749641*^9, 3.751730245475222*^9}, CellLabel->"Out[24]=",ExpressionUUID->"2120ea98-2ce3-4217-aacd-da8541636a50"] }, 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[25]:=",ExpressionUUID->"6d9b3fa3-8a68-4114-9b64-974c14f9bdec"], 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.751392356632124*^9, 3.751562783145907*^9, 3.751727176799046*^9, 3.75173024557593*^9}, CellLabel->"Out[25]=",ExpressionUUID->"ac2278e2-73e2-45c4-80a4-3cbac0f75b8d"] }, 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[26]:=",ExpressionUUID->"ac87510e-9e32-4f96-8bce-d323bcd068c4"], 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.7513923567070827`*^9, 3.751562783212904*^9, 3.751727176873412*^9, 3.751730245675397*^9}, CellLabel->"Out[26]=",ExpressionUUID->"0333e5f3-00ce-4a49-bba8-93110590dcb8"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Lap", "[", RowBox[{"Lap", "[", RowBox[{"A", "[", 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}, {3.751392341884214*^9, 3.7513923709256973`*^9}}, CellLabel->"In[27]:=",ExpressionUUID->"43b758c6-bc68-4721-ad5e-962d85ac7d6c"], Cell[BoxData[ RowBox[{ RowBox[{ SuperscriptBox["A", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "4"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox["A", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "2", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox["A", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "4", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox["A", TagBox[ RowBox[{"(", RowBox[{"0", ",", "2", ",", "0", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{ SuperscriptBox["A", TagBox[ RowBox[{"(", RowBox[{"0", ",", "2", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox["A", TagBox[ RowBox[{"(", RowBox[{"0", ",", "4", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox["A", TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox["A", TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox["A", TagBox[ RowBox[{"(", RowBox[{"2", ",", "2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox["A", TagBox[ RowBox[{"(", RowBox[{"4", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output", CellChangeTimes->{{3.751392356791687*^9, 3.751392371430683*^9}, 3.751562783281386*^9, 3.751727176936573*^9, 3.751730245775506*^9}, CellLabel->"Out[27]=",ExpressionUUID->"d1f12313-4b0c-4a36-a5cd-44671d96012a"] }, 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[28]:=",ExpressionUUID->"8da9bcb5-4f5c-4ed0-be3b-60bc976562b7"], 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.751392356892016*^9, 3.751562783345986*^9, 3.751727177005313*^9, 3.751730245875677*^9}, CellLabel->"Out[28]=",ExpressionUUID->"1d5eaf39-8f71-4014-b962-19f8a2d02476"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Lap", "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "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}, 3.751392380478155*^9}, CellLabel->"In[29]:=",ExpressionUUID->"417fb4b9-da6b-40f3-ac1d-c5cd311fd1dd"], Cell[BoxData[ RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "2", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "2", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "2", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "2", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output", CellChangeTimes->{{3.751392356991308*^9, 3.7513923814524603`*^9}, 3.7515627834131727`*^9, 3.751727177072069*^9, 3.751730245975624*^9}, CellLabel->"Out[29]=",ExpressionUUID->"427a2d64-c5b1-4474-abcc-26ef09b67724"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Lap", "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]hup", "[", "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}, { 3.751392380478155*^9, 3.75139239001615*^9}}, CellLabel->"In[30]:=",ExpressionUUID->"7b711a68-2e1a-4a6f-a290-56ae7e78b4e2"], Cell[BoxData[ RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "2", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "2", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "2", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "2", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output", CellChangeTimes->{{3.751392356991308*^9, 3.751392391024762*^9}, 3.751562783477375*^9, 3.751727177133175*^9, 3.751730246074943*^9}, CellLabel->"Out[30]=",ExpressionUUID->"5bc8c085-e19d-461a-8725-ea112a67e78f"] }, Open ]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ 4D, N=2 Vector transformation laws Untilded, unhatted 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}, { 3.751395133465472*^9, 3.751395135090357*^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[31]:=",ExpressionUUID->"898da542-502e-45f3-9fc3-ae94defeddd0"], 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[32]:=",ExpressionUUID->"784324e1-d57e-4de8-8e9b-dad0c7f272d2"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Output", CellChangeTimes->{3.751392593445323*^9, 3.75156278355947*^9, 3.751727177233124*^9, 3.751730246186688*^9}, CellLabel->"Out[32]=",ExpressionUUID->"5f6e9717-bc4a-4723-b26e-d7f486526df8"] }, 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[33]:=",ExpressionUUID->"e69ca3ae-2fdf-4f60-87b4-f429c799abc4"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Output", CellChangeTimes->{3.7513925935333138`*^9, 3.75156278360522*^9, 3.7517271773025093`*^9, 3.751730246274312*^9}, CellLabel->"Out[33]=",ExpressionUUID->"689b3698-7397-4c49-b1de-1a91f972df54"] }, Open ]] }, Closed]], 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[34]:=",ExpressionUUID->"ba21e04b-e0f2-4bdd-8bf3-5e928cb1713e"], 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[35]:=",ExpressionUUID->"cef848df-50ab-4b75-aecc-f720dca868b6"], Cell[BoxData[ RowBox[{"-", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output", CellChangeTimes->{3.7513925936309*^9, 3.75156278367109*^9, 3.751727177401305*^9, 3.751730246403707*^9}, CellLabel->"Out[35]=",ExpressionUUID->"f127be3b-cae7-44a1-b711-fb2b7f3e6811"] }, Open ]] }, Closed]], 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[36]:=",ExpressionUUID->"27123cbb-771f-4854-81f6-bade6618ce56"], 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[37]:=",ExpressionUUID->"d7f53fba-d399-4a9d-bfb5-4dea8dba5d4d"], 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.751392593750697*^9, 3.7515627837462807`*^9, 3.7517271775005627`*^9, 3.751730246508483*^9}, CellLabel->"Out[37]=",ExpressionUUID->"15c1c90f-e997-4794-9ad5-5b1189a83fee"] }, Open ]] }, Closed]], 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",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[38]:=",ExpressionUUID->"98254835-0aee-4877-97ca-f3aac4f1a0f5"], 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[39]:=",ExpressionUUID->"3dd8b134-77de-430c-8b15-fa245e43cb8b"], 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.7513925938448963`*^9, 3.7515627838473263`*^9, 3.751727177601343*^9, 3.7517302466199417`*^9}, CellLabel->"Out[39]=",ExpressionUUID->"16c4ab1a-4c08-4790-a5d7-dcff1145f1ad"] }, Open ]] }, Closed]], 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",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[40]:=",ExpressionUUID->"6a500431-cdd7-4b4a-a476-2718f7dceadf"], 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[41]:=",ExpressionUUID->"d121cbc2-8073-4a04-a218-81e41b9c33a2"], Cell[BoxData[ RowBox[{"-", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output", CellChangeTimes->{3.751392593945051*^9, 3.7515627839474487`*^9, 3.751727177701406*^9, 3.751730246720849*^9}, CellLabel->"Out[41]=",ExpressionUUID->"801615fd-f75e-4204-9c88-777b6ca28083"] }, Open ]] }, Closed]], 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",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[42]:=",ExpressionUUID->"5842c48d-29ee-4c2a-9a88-3fce86ee144e"], 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[43]:=",ExpressionUUID->"6cb6082a-9711-496b-87c2-14e417c68807"], 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.751392594044479*^9, 3.751562784047282*^9, 3.751727177799169*^9, 3.751730246836677*^9}, CellLabel->"Out[43]=",ExpressionUUID->"a87688dd-ccd6-42a2-913c-afdd35d5a690"] }, Open ]] }, Closed]], 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",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[44]:=",ExpressionUUID->"74bc0418-8f18-4513-9ba3-7fa733dcf2da"] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ 4D, N=2 WF Hypermultiplet (Chiral-Chiral) transformation laws Untilded, unhatted 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}, { 3.751392607560453*^9, 3.7513926165495977`*^9}, {3.7513926936061783`*^9, 3.75139269380335*^9}, {3.751392896386306*^9, 3.751392896536479*^9}, { 3.7513951372016287`*^9, 3.751395138361322*^9}},ExpressionUUID->"ce0c5757-eecc-412f-a33a-\ cbc8bf3e7a4b"], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnQlcE1cexycJWoukrdRVqGsVtR5o63p1VbS1CvXCtR5brbitaPG2Ui8q XnWLrq1bxa1VsVp2RTzwQjwAFW0VW8V6UJVWxVrwAA9QBItckyXJTOZNQpKZ yZvJTPL/fj67n10Mw7zJe79573/6jZ0+dLyaIIiZdar/a2hoxFszZoTOHfZC 9f/5+0czJ034KOzD/h/NCpsQNqPrWE31D6dX/6dERRD6/60DAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJKD80p6R AQGx1546+0YAALAFLFWAB3dOTXvZgyBU6na946/DnAEAuQJLFeBO3rn5Hb0J Gm3Q5PQC0tn3BACABbBUAe4U3944sLF+omg82vq3UBvnTL/pGY+dfWMAAKDA UgW4U3xr0/BWKv1sIXosTSl8UnhkdmBdw5zxC/s6u9TZtwcAgBFYqgB3Kkq+ Dw8gqNmSWlhF/fD4HGrONJ+5/UGVk+8RAABYqgAPTBPD85mg5fRsMfsndCIB AOAUYKnKlsrS7CPb130Tn3FXNk5tkry2enT96inhVStk66Vyyw9Uz5n5wQ01 +jkzMPZiDR8AABcA09osu31p78b/xKacf4hdXWW8VEUctSIoe7Q3tIOX3kym UnV5P73E2fejM8yW9eOaqKzPFl4fAwAa8mHO0c2rF44fEfTX13xqG4wFnvXb du89fMrcmD3Hsh/LLKID09rUR5v7ehgDV7pEZ+DUORkvVRFHrRCqTq5sY4pY el61KtvZN6TTFaQu616L2zQwzZl6vhEn7kpze4AiKS04Hh3e408e6kb+w6bM +zI2ITlFT3LCtwtC3vIxaIC6aYdJa/fnysbrh2dtVpUnDmtIX0VDDP8iH98b TL5LVcxRK4XKw4vrU09ATQyYl13p7Bsqvra4mQeP9zs1Z9REz6kXZGNSAuRF 4W/fDGml8m40elVijZvzwpMbhjxPLQOfQTNkEpKNZ21WFG3sUdskcsFxV7CN Tc5LVbxRK4jiW3Fjujes693xg7mpubIQx7Ls40kZN3kc3MiqnKPbj8nj5gHZ UfYocVQrokXP9ZeLbCzwvP9++CK9z/MavCBLDrMJ09osPrF+6CsvqBu1Hhvz HV5vppyXqnijBgBADlCWDU2dZv1GrDpl3RrwIGNqXeYQPyzhdwnvEQAAAODH +YjOtGSrCL+AXdbUvfKPuEBPk7irQ6ILJL1NAAAAgAcHR75AIEw8atUggHxS Q/SL/A0O8gAAuC0kmb1tUZ8XiT6xV519KzXz+4pBjLI3aBxzw4rRndQlDn2O u7ZXHIh8RvvnELDlAgDgelBZhyp1u147c+WqccU3E6YO9PMktG26h++2HtFR mrusFfMS8J1/wM54Hlxa3OVFQlOr7ZS1UCwFAADXgRF2lyjTfSNxsEnZaxPT j3PIFKLr2UItLEAWkJX5J3cuGPG2fwMPdaMWA8bP2/LzPWffEx8eXFz2RmM1 QTRfcFD5gqJYaGEnGrVcJYt4QUe5/fVwk7R7DVnKNZj8xpEPGnhgk3csa7O0 4PTW6OnDjBdp1WPwqM92nnb9pHsxR00W37uejYtruQ/FWS8VxaeXjW6qIbqE RcXvS90eMUgf9uVFTDqUJ8qfww6pOxvZE7xdToYkr64c7mmYOWP35Tr7bnBQ eGmenwcVS8PzbVV+5pu39GUBHC51iGNtlmUdmt2zsdr7z8Pn/js+KXVn9Mfd DbE/eE8WZHlZucO5QFguYkTsUZfvmUlgp97LnXr1DwmPXLU9NasAg9rnxIY1 eRbJI8s/+r5hPsulkow9yMzNvalHoyJaDEotdvYNuSX3d81savgOOi9JU8Ks sYepPm31pPJpsSidd0Y8lfekIQLX/CS4WIrja9NQQUWtDQxLMSUHkbq0sc2M W6GgjRdx5Wbi0DpsezMJRi2KtqN4encMCV+fllUi9IGQWQn91UTn5ellph89 SA+jLk4sPFvh8DMQmbKiuP50ErY+Vjlw30Nn35L7YZxF1WgHRFx44uy7cZiy WxfiJvX2Mkwpbech6y8Isk9WlBwc46/fvNd7YeHpRwIugGFt6q1DGssmR9lL jLshNdE/8jqmc66MtF2SUTM2mSs/px9KTdq0esG7XbWWY3q+0eiVW9N+umzL InP+h9Tk/fGrl0aEjuxY38PsAr6B4zaeucV7e1BVnjzajwgYn4HuAc6uaU8/ 6eknyqz+rjy4v21qA9aTlEVlM/ei+PeVAYZumPXqRJ3/w9l3I4SSrLRvv1q1 auXSiKmTQ/p1a2aQdW37Ph+vc6xKWO7RD/Q2FJWqw+CU+zy3io6vzbKihCEv E6/2Tcoz/9N06hbOcy7L/nzt14yjKSmJ29YunhPckpVKQOGp7TEu0lCcLTk9 8xojc7ceOKo40o6aRcWThMEN2eP0UE+I5bcknhZlHdqy4G/tDaU+TY+rduD8 Tb8U85lClzf3IojA2Cvoz+jQXxXRsGXsLV63JTn3z8/yY7/mFHHWcCVI3blP g4x5+e2i0hRaVPlSdEjPgB4GerZtQM0o346BYxevTsrkv2VCMFWk4W14d3ht Pt49o/pAG7LHwvdRVZEwUEvtYF8ff0bs7dudU9NeZi9SMWu2O3fUd1YPM3uJ dYr+SciFyMr8E/ETXvNGL6Xt/Y+k37ga4fVTxbdTfD7yo6f313StTT2Bd6Jy nV4B0gaMC5WFjRxDADu001BF+A9KdRVrGPn4TsbOtaHtDStL4+E/yoGqXKW3 V3QyLCgvYvp3hdx/z9G1qf+7dWouFPnwwqx6lMhqQtdJ0JLaLAtYxMO1s0dt aZjqtvai8MsV30ycQtkGje90dbu+MVwshPqKl8+aFTEmz6z5C30hsz2D3EBc qCxkmwvpgjy9tzGwvnEnhtErJxdMfZz17tQ2n6RmC9tqlqQsbmUUZDMDiw0c XZukLnPD69X7nCM1vE3IH1ea8rEGxEtR/SxrUQ9kgYrnFHP+qDFru44OlFKj 8s4pcyT/hx0pV4rQn5wOb0ddw0YithygXKiq5597zuxhCjwEAfwxnn9dbNPO AjX6aWuFHxPUP8K0dSeInmszOS4qR9dm5R/5ObdrDLFg7AZeRNRFKSKGaScm re3iBbM5e9T4tV3H6h5Oyzv/jG+moqlaPeKLPBkHihtcqCpVx/cOrJ/CfpYe Hh9tAYO7FAiSLMWBpC+piFd67rojZKDMS7DN2/vuCXpUuNYmY3aufiO/e0yS oCbptN0aUo1aFG3XGR3EjdHL8g1Io2egnqE77mC4JZEw7qYM9bQrj5ja0BiB QqwSweiVjRq5LgBadkCwv9jYjch4hc/TBYg7trWJmJ0lWynO13apRi2Wtldz 8/j4l1guaf9FyVwTSZhmgiqiEduJIytoF6ohB5yysKHaDqmpUlD2aGMvqrC5 T/h2V04XY5ULUxOv/v2YoNFeXRJELS4B9it8axM1Owes/Znjbz0+uDSQiiMy EhA8ZsbyPVzz9wVrO/kwJzl6fkj/N9C/3eONzlGn+KXHCRu1AETUdnYXMD3c Q45zUkbQE/i5if+TwHsuDMqFahrXTdNt06uvw/snFRlkrSSYjszKDDotuXk5 /fDhMzdr6pNqBqvMrwPWWkNMo5GB8Tf4/S6+tcmYnfl8cVWXD3z8Ti8/xOZr hGP+vjBtJ68kj2luHhuvr6gzZtrO6/ymnLBRC0BUbUetoJTWcWuY++Cb0dRv aIjQZLlaNegsVOY8YsrU4zlzAOGY0relCZDGjT6R35gY4lkncOUxu1tA7o08 bMG0cFITfWZl8bHsYFubqNm59aBUnsmyZbcy1wxthabUVNMsYo/d1SZE200h WCY0qi4fx2Txyt8x4tioeSGutut09zeNQ8WdqE2MPWivshAaOss+dZJ3s5JS 5FIyzuhCZTmknuavaM9+mpCaKjb56WHP0kv7szSFeVEZ0yvBMQmIpe21iYhT AtNumN2jlojK5Lx7xLg2HTc7m3KQmeVGLM+ycwcCtL30QCRb2QntiKUCa3xJ 6GIQW9t1t40FhUxw2CcgB0bfOXvQfYk+h6KJPIq0IC5U5of6SGDWq0yyyC63 pWjblDoOC53TuLqjL6+dAGuCOZasjawyHu9EfGsTi9kZ9epyHAtvbSd1B0f5 spWdWHhGoKVVMmO7TgJtZzwvNJ7EnB9tPZnLi+gET7MdhX7PYJ5D4RxYLlTW v5hnvUFqqqigfj2RT7iiwDLicSioyNrnO5asXZK9uCl9Hc62LIxrE4/ZmYnG pMfSY2qmzbHw1vbirHkN2H+CpxULRTJju04CbUcNdPTDseWCYXYm5s+QPL+h G0GM2uv8eEhzFyoC0rOeQppsOzeFORUqM9y08knCIMPG07Nep5GTd2bb2QZU fff5y6aJVbvmnEfuMPlHHEwZejCuTVxmZ8ZxQGu1vdAd3tpudrZyxPQnobFd J4m2M/XimOcZuM/aOkR2Mm0/P8n8vKr8yIf+skg5tHShIrBnjjjPE6CpPMwk FIh9whWJsmPLWnMs3mUsxkgvIq/3vsxxrMLSk+1Mqh2nmh4Y1yZidnbwJM68 oYxoieW/2rocX21nvU8NCA/pxzdqLkih7flmJneb3R6RExBqzSg7saIDwTZu O4kaXKgIFs8TUlNFhDklKdHYbqSq/NS8wLoqImDulus23XMFSZGtTQIWNDm9 wEFpIHVZm9+krsft1INvbaJmZ9Zrgj+WuynbVlC+2m6pkIKtrBhHzQUptN0y esTGuYYJaSNCU6gSFobGJYTfhI3OLwVZowsVAd1JGleNNNXt3BHGRCBtghtZ UZiLtQElXYLpue4jVu0/fdfyHVX5NCtubjfKZ0z4vTvvpKPCboDRam6JGPjW JmN2dvilXBT3oajabl4p1wE7OcZRc0EKbTdLuDAoHvG3z25aO4TSCa3awCnx B/ZvjprUuS6++ewI1l2ozCcgNVUymPOgfQ+aQzwtyjqc8MWMD4K7v+bDDoPi gaZW22nf2hDAwoxdxiYI6kZtho+fFfWfDTsPpKToO+D8a9JbLbXGTlId+i3c gS8GGDVW2zNlUGBZm6jZuUmPXQ8ED0AP3301X203PxcIjmrGOmouSKHtOt2J ic3Zf8TOIyXv/hK/cPzATq9oPeu3DRz+SdyRfBkcuG24UBksU1MVmFCjCJAT rliHI32a+fLwHn8y7ywmEG/fGHt2i5Ib5/bGfB4ROiIo4HVjxyV1o1bd+w4Z N3dJ/PeZhbite6ixelQSJ180hrWJ1eysGG2X1tiuk0rbLW1iykvqselCZYDU VKlAD+P4s5bIqpy9/x7QCJOq6xFe/kU8UIODBBZgI3jNzpYKZjsyzVnaLrGx XedEbVea88u2C5XB0rnAYbcGCAANN8XcA8W8xYzDaOo06zX4yx9lV6ESWf78 m2kKBa/Zma+C8dV2814eQj07EhvbdU7UdmUl9dAu1OC4K3b2h+YBt5wtmY5T 8MvGiMmTZMKiry6I7EJG08RwzqW8s//s2ViNfoPefoNmLIk/+P2F64ZWC08f 5V46m/Lf6And0I+piCZtY28oy7OCuoekcgwxRTuxHGQsPVyYtZ2djSj0GI55 1JyQRtst/4qStJ1yoaqJfrMuc7hlZ6Wm1viQnYi4o0bPRxgLO+Sdm98RKVHi WTsw8pszd60MpLTwyGy0B40CKwwzBeFxGg/J/Mx1YQP9vDz8QxaauVnL01eY mvHh6aLCrmlfvU5fmL3bRswOP21nHKDUxYnes36xcnVJR80B0Ha7UC5UzkUk 2Ic4PdL0FiEvbeuvxWgfdgh183YbRd0Fotn3uHw3xbfW9jFFsKoIH//wpMt2 Ds8VJQfH+DPVCGXe/NESxj2EL460sjTx70xfHpa5jCmoqFa/Of40lpMdqw4D Ydexzk/bWQXzbV5c4lFzQBptRzPgTChD2+kGUlzKhxrJWREswSN1d1BRwhJR VvHkyMSOiLC3WJTOzTx+JaEf8l3LvGm7OUxVGXyvSHauIrOxIXWXlw7ypL6y 12KuYFr+5lZQOwGx/LTdIu/SagdkiUfNAbC32+bxvrlNePamtHikdg6JgBBw GxPy4qegpVqGb7rE1d3FOrYrLVUNNW3hql5VmDGVPslo+03PMD6O0sIjkcEN NYShe3LfmAv3MPwhGqaCmXE+2DyA8NJ2NLjFODGsukElH7VdnKbtimiRU3hp HkcXKoJFAQooO4Ad1IOGQ9tzj36A2M0bhG24y8eehFjhlJbOwA7rwrPdInXn Pg3SP07vBmO/2qNPv1rxzzFdDX7nevWD56/PLMRstjJfcTZKmvDUdnZSqs1C WJKP2i5O0nbHSk9LA6m7tDiQuwuV+TVITRUdrNpuKHWlMl2taZctt/gtQ8QK p7R0BjG0Xac3Pl/bFxM+rF/HJvq4At9XuwaN+HDRhh3n74lzVDcvw2sr34GH tltYe+z0EJR41PaQRtstQkcU0EiUzEror9bvAUK3/cyrekj2j3HvmA1W1Ix4 dwTVdluhC5yuZahPa6Lz8nS+3xWyu1OatrPjQBRhJq0Rurs3PSWsn554aLtZ BI7DRZUlRgpttwz5ln+1bdqFigOlrXcFgC8wG6l/JWzTrmPJhfK+a7HSBCQm O5G1obJuluGu7ebvCwdacjgFKbQd9cXTyLzatsGFigslGKAUBj5tz2HV/xEW oH5kzEvMdw3a7hQoCyqz6Oq+/1V+TbOCq7bfPT3VF4kork2E7MkVeQyYkULb zctnce7z4ixoF2rQxotC/B+W5xTFFc+RO2ybjAP2PVZTMJs+OKuUPVjT2SQC SrO/sTv8Kljbq3l4ZXFbpEynFzHpUJ7lpzhpO13x1e6bQs5IoO0WJc3lfboR 6EJlAV1TRQaTL5X1FhaaDM4KbJa9sdEMkXypTqLs5NfdmUQylarD4JT75rsz LtpekrasA/IZ9at9k/IUlZJmQAJtt2whKlnWrQAoF6oDrcx1ln2+OBdQBbiB 9gxyQNtZJ0p7URBWMAvAk7mx0RzX0vZq7u9b3OkZZkTa4Z9eLmaJjV1tN3Qb 8WA+wD2LTWaIru1Pfl/m78F6mILcVRLBPwu1RiA1VXTQvFSh2m4my8K6lrMS ZxSRtYGCarurWA4LUpd1r4XIe9CUo3nMO8u2thccXz/0JUav1H5/iTqpSGHX ia/tZYcWm3WStVP/3KlQWah2C/naw/Kp4i8wbolb1YFEtV2oq5plbBdWcOzp /TVdTTZepSUu6cQpyyMDis/tnvAqU/NN3TogKjmrxPD1WtN28mFu0qKQNnWY f/MJ/iglV8EHGXG1ndWZnZD7pp12oTrecds8VVmS1FT3rQMpVJRYsYuCitKY xca3+zxdrpPbCugr0i9w30Nn3w9GSguOR7N6Zvn2GrVww76d09FvrFqR3l5/ 9EjswgndGzKf1Pr3ith6oobGtYpCVG0vP/01+hyrZTNwzU8yfWCUC1Xl9d6X OY4Wf0GtwfTIbfSHxYR71YFE3aAaYvoJIdtlRNsFbrkRg4y89y3WuLqjr2NP QOaQD3NS1n4W2otqOGsHz3qdRkxevlvxqm5ERG1nKltSeA1ekCXXIw7lQvVu uPwSjls076znaO4kYAkSVS7QVY1ou6Ag+QcZU5EqNO2i0hQnCWjPWQm2H06k 5OblEzs2fTl/Vshf2TmJzzcNDpu2MHrDzqM/5D5R2qvZJmJpO1PZ0ojU9S35 QbtQsS1P83Qt5aW0yB/UYS1s0iJXEFK/8c76fzxj+n4d9tE4BWT5u0u1Ur59 l5SLSNp+f9dMlrZpa4Ufk6+72XC3KlXHd48+wnRF866p+BofADQVByJpx5dA dwaSecF/356fHvYs/fUqMGnRCPp+xNxzVq6AtguHrMrZ/WkAkh9GeNUK2cq5 Grb03Dw+/iU8LlQU8/QlFwpCkAuMrVho2QEmvp1nPmlVxfFppkYeRPOZ2x8o 05rB2LWU1pteMKDtAqkoPr1sdFPUbeHdcOx2GQs71UYNf4Na1BpslB9h/j7A KkxlV6ErtKo8cVhD6gp8DlZoIw85e5HswFRLcKNzpftoO7v4vB6rTaPsUZix axa7Qby6ddflP8rXFEM+/G3j8FYqRzZ+1rHsmhqaUoTzDwBofVotsfxXIebu smPLWtNf0MD4G1x+BU2N0QZNTi9QnpmdgqmWoCb6R15X5tGDL+5yoK54kjC4 IVuBPNQTYvkl2z8tyjq0ZcHf2nupkMtoNO1Co9LzsbRxqcw/k7xu/rRhfV5v 5kU81+IvwWGfrP8+mzkLVJSV8Z2WZGVeWmzoa6bsBhXRpG3sDXyTO+/s7Fa1 2Q+WaLbgoHzPL8oE3ZkIbDjOFHNWEwHjM+yl1aHC7jNohoKFnZ2FIUVunRww 5rCg4DbGWkUMHTNdu/jedWPziCs/px9KTdr0dcRgtiBTL7JGo1duSzl57pr1 7hPXzv+Qmrw/fvXSiNCRHeubx1RrO/RdSmeBOUjZte+ijG8Nb79BM5bE70tJ ToiNqP6J5zNBy1MLy0tOLA1pU0elbtdrZ669v/f0UW71wA/ujv033euKjbr1 m5/EbEv76WLuQ96vpLKCm9RjSdy+ai4rD4LByzt40Tf7Ug9nZBke4o3bWB6R O4Oqk+/8AwIf551T016mvi//yL2F1q5SWnD8X7S9UaPqMiM2u1TwjcsCJi1X Q0xMcynDBKN1+mX5a8bRlJTEbWsXzwluaV7ET4+ntse4yC9jE5JTktMzEdm7 9QCXFRWnjtWE6HmLmjrNBoyJ3n8aT+Q/SWZvmdvNEAmh7f2PpN8Qva0oPrdk mKeGCPkkohP9x+1EOFc8jnvb2/qts4bBO9D38aV5jfknDYEF3nEYk7tDxXXL Lx2Y0M4wPWo8bz4tupy0biK9H9BvXY5kK/4IRuoOjvI1DMhmG1BlgkPrMNlp 8eqYiOO1wLN+2zf6h4RHrtq6/8zNx9iOdSR5bf24JoYzRc0mzbKiuP5IYpTd YiA8tF3tO+l//I7aSItzHjQgll9UVF0pWcKU3GzQOOaG8AlI3v3l2wl9qPOW 5wudhnwQ/ukX0Z9FTnpvcDs6b13bvs/H6/bnKny7TsFUkhFYAFPOyEXbseuY 8smJDTM8EFtm8NIDkfRDURGtB6XiCk0HFAVay1GgyR2h+Nf0zf+aPfyN13xM 3hLNM8269R8dsST++8xCF3oVM89NQ4Qmu9auXTaAjpnBFNjXEMFxV6xuxRgv v4YY/kW+W7iCAAsYs4zS+mI4FbqrgorwH5TqSiXCZAPomDlMYyx7cQsXNnSl 91ZtPz8p3R0CMoMu2OVGQdqOwrwQIXxLHEDHLEBqdNhpz1QU9yH1ObdJqQNq 5kpCP3rOcIxRd3OYrgoy71ysWEDHzEGjT+25xk5MbE7t1gRV3gZcB6ZNgJoY MC/bHSpeOQLzuBTZ4lkBgI5ZULRtCl39yV6/bKbQoqsbqQAOMD0yHGt06xZk J75jfFaexJwf4VnhB3TMHKa4h8EMaDtR7kbiYI6fBNwBpMOXT/h2l8rDwc3V JUHGB+U1ZCmccfADOmYJ2rrRXqLcH3tmmgqsQp0WQI9pO+pdb9VVMDRYwVSa GA44IgE6Zg7ah85+wAOdsSK8DzLgalBdEWHrbh3kEflOiSuAFyB+QMdqAGmU YC9//Gneig4enD4JuBWmwDPYlNYIdbRREa/03HXHZQ0AzgV0zBIkTdhegzPG SMVuBEZW5ZzYe/KWQqtpAxgoO7Gig9GYrNyy6iJRUbJ3pMElodguUYoAdMwS pEWaHbcC8mZkp5kb2ui4SWswoGZMjXptJwO6H6Y2l8rtEqUIQMcsIHWZG16n R2q79xPT9oLdkcH4rBaedaGqH4AAnt6PC25ssHa2XAV7dyPGxpGEWv3m+NMu VhdMXoCO1QTiX7b1TJhq2yrC/91jT5h/0TsmcLfGAxQJ3RtF2296BkiZ6WXX olvsNXjZiQzomCWkLm1sM6P16fnpW2supFp8axPVBY8wL7T+5Pdl/mrfOXtg 7gI6fUn2PSN99Wun6dQ4t069JHXnPg2qWy0gPi0Wpcu3waXrADpWE2Tm5t5G r3GNry3jA/F6pefrjS1dFfoSGRqIjgAYyn9OGOKlXzo9lqZa7abk2lD1w0HY JQV0rAZI8urK4UZHWM/ok2hMUPGFA7N7Nlb7tPkk9fpjqn8xEjhU/PvKgBc9 oTgGwIbavburvBckL+4IO3bpAR2rkYri08sMXSk1RJewqPh9+r6uC0a/5eNB +AyYuOvXIr3Loar81LzAuoZHFzBr3b7d8fPfbqlq1zv+uoudYwAMlGUd/qjT i4QXMfGQe+lb1dkN3auFw7/3qp/ca+CyAHTMCsVZx2Iixw/s9IpWTTcET2M3 1yYr845tiRjxtn8DD3WjFgPGf8JqRAgAKCV5abErd1506ZY2FpC/pces35xZ CHGgTgN0DAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAArPwfthxo/w== "], {{0, 111}, {500, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{462.0052083333329, Automatic}, ImageSizeRaw->{500, 111}, PlotRange->{{0, 500}, {0, 111}}]], "Input",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}, {3.751392687243217*^9, 3.751392687243429*^9}},ExpressionUUID->"3ac61c69-9009-41c5-973e-\ c1aae22cbb41"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{"Ah", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "=", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "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.751392708472478*^9, 3.751392743888644*^9, 3.751392778881392*^9, 3.7513929081847258`*^9}, CellLabel->"In[45]:=",ExpressionUUID->"7400a52c-d456-4e40-a511-5f1fff35db25"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"Ah", "[", 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.751392709592078*^9, 3.751392779396138*^9, 3.7513929085015297`*^9}, CellLabel->"In[46]:=",ExpressionUUID->"3f4350ac-a4bf-45c3-b2db-92c90930304c"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Output", CellChangeTimes->{3.751392933340622*^9, 3.75156278416017*^9, 3.751568557291152*^9, 3.751727177880212*^9, 3.751730246971624*^9}, CellLabel->"Out[46]=",ExpressionUUID->"608d65d3-4a97-4797-aeaf-ed4e28dcf178"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "3", "]"}], "[", RowBox[{"Ah", "[", 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.751392709906418*^9, 3.751392780098948*^9, 3.7513929088157454`*^9}, CellLabel->"In[47]:=",ExpressionUUID->"40c65433-347d-41fb-b193-33a434581df7"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Output", CellChangeTimes->{3.7513929334442987`*^9, 3.751562784229397*^9, 3.75156856025771*^9, 3.7517271779526443`*^9, 3.751730247093614*^9}, CellLabel->"Out[47]=",ExpressionUUID->"ca955c32-b57f-484e-9a1f-3bb8f62624bf"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnQlcFeX6x4cDkiKncvkrxFVBzQWtVNQ00EzRcsty/wuVWrhv5YLhFoX+ Nc3lmhoEUSqalBumHLwKXcVSMAVTXMAFNMUF1MAUkOF/zsycM+/M2WbmzHbg +X4+937updOcmTnv+zzv+z7P83v8xs8cOkGDYdjs2vr/Gjou/I1PPhn36bDn 9f9nxIzZkyfOCPuo/4w5YRPDPuk23lX/x+n6/9TRf97wv6sAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABIys/u Hh0YGJ/7ROkbAQBAecAgAAZuHp/e1A3DXDTteydchsEAADUbMAiAnlunFnaq jxnR9p2SXoQrfU8AACgEGARAT8lfcQObGEaAq1s7/5YacjC8NTPjb6VvDAAA +QGDAOgpubF5eGsXwzDAgpbpih8VH5obXJcYDH5hG/IeK317AADICRgEQE9F 6X9nBWLUMEgprqT+eGQeNRhazN5xr1LhewSAGkFFybmkH9av+/fKhR9P1jN2 VHCPoKCunXouT5bvoB8MglI8fZx3aMc33yZk3FZBWMf0i3s803elcRiw/hE6 QgAAkAq8Kmfr65gFmn9xWKZTfpUYBFUZSXkoe7B3XEdPw1bNxaXL++mlit4M jud+HdpQfy+etUK2ny03/4B+MCwc1NjVMBgGxv9p4QMAIDX5upHevoM/jozb dTAjJy/vxr0y1gfwiuKCyzknfk3avGFRaK8WE2KKFLlPUTA8S56e3FPHVg1o QjkGdyz8uCyTTyUGQVVGUi4qj61pa1oKPOeyLk+5W9EPg5gPm7lYHwa8PgYA koBXZcd2tbSQtojGP+i78/8ofc9igFftGfos8UwuWLOgnfdk+Ea1GAQVGUkZ efqfyIbGUYwNWJD3VLE7KUpZ/lotbr+vaTDU8w4/elue2wMAAh6uwWvAhKQr 1eX8oSRnQSPysVyx4V8WSn+cpB6DoB4jKSslN7aMfa1x3fqdPvg0pUC5YVyS G9ncjYffpwaDBusxLau6TD7AGeDkGjS+HSd/e7CwGu1p8cyNHYxP127FMcm/ T1UGQSVGsqZSlnckKeM6j8mEV+an7kiDXwqQFco1+A2ePHnYW52aPY96hGdb dhgUNj/6wInb1cgpkNz8ehj1kHIFGsAgAADgPFCuofumP6k/PHlAxmkLH1Xf ytzKisSBWirQ0DJ4nxOH1QEAAKTAzDXUBJBAgyZkLXgGAAAUAMfzflzSpwHW J/6S0rdijiSuoWJ/xDPaf4VE/6rSap2s2G7GQ7PATWeUvhsAAGoeVB2Ti6Z9 r58LVGgopdk13Dsb2aUB5lqr3dRNKpR9uPdtKOUYPLDFf1QofTsAANQwaL+g WsllyQ6UjLKiqhMFwqsOjPGmAg1tBqc8UPp+AInAnxYe+3nRqH7+jdw0Pi0H TFiw7cwdpe8JAGi/gPm0WpejTr9QJW2s4eqhDxq5qc47mAUa8Pv5qXErJg01 2BDMo2G7PkNmrd1arRQkxDOSeMmdy3likVtwX7KXXFFyYnmoryvWJSwqYV/K jvDBBgUST2zywVtSfSMLY929o5irEwBODY5fWjPcgxiN4/cVKH03NrDkGp48 KDh7MlWn06X8J+P81WIHUjvLM799wyDIoCbJODTQsCE7P2nVAB+9wWw1JmJV QpIuOTF+Xr9WGgzT+AUsTslzPKsVLy8rdzjVy6GLiGoky3fPtlcEw596TQN6 9Q+ZFbFuR0pOkTjOIj8+rFkdpIqkMPV9Yp8ohzDI00e7R/hqxH5J3i916zvi g/A13+tOXylVyVQC+HN352xf4gftvPSwuiVqUNdArC1H9vKryxiTGp+2w+d+ qct7KMw43fr+owaYoeY4eONJNZRH0IEGd9c+Q95s7I51mbE+qxh5uEd3EkcR itliFCOLYUtdsbcirgi1BuIaSUlcA4pH/U4hs2IO5zhi/fCcxP4arPPKdHq9 fS89jLq+9NGlsnsbO7tJ+pK8u7+7eMfR6ldtVO0hR6Ye7YDwrEdK340dKNfQ LXLn9+MDtRo3/1Gzovf/duH23wZb+eRhzsFtc3s2MTxNfaEZRxWlB8b6E5b2 +cUnlD7ZpwMNBJ61xnx3/L7ZQ+GnY7sb/rGLS6eRqY7dsrKuQXQjSR8oXTyT fjAlafPXi0Z205rf8nM+oWu2Hz55ztZx0unfUpJ/Sfh6Wfi40Z0asm2pd/CH cZk3hBi/yvLkUD8scEIG6vj+2PiK8V3OPCr5CU1Z0XX0GbdGTe5cl/2Gmo/5 /OfU33PsHCddzjmRptvz46bIucM6/ou1E6lWwjVqpuT63oixHRu4Ya61/N+L zBTcbKvk2ppAoqtjvdpRp9WvREcLZWjadPvyiKVyXUbfGUFi0QWpHximhotL xyG6u4pW0tGBBsPj9Fh7zLKZeFywvDX1qYEJVx35QsbhfO6FjFQdMdPnDWr1 PGaOhzbow4iv4hOTdcnp2bmOHjjLYyQrHiUOacx8DDfNxHh+Q59YhCx6+xVC D9b0NtyDF24+X8JzwJzb2gvDguMvon+7tnowcUUXrHGr+Bv8ricKB0ajP7cL 5j845T7PSzx9kpOwpE8DN8Z1vFouSQfZPSkpe7BnTGt0VLZfkS7EhOFVpz7r Sy4Q2kcddoYNH+kaXLCW3eNzra9AKNsuXCyaOlZSPOiABBoahcXetn4nxrks mfjezePTmzKXyqILcctlJGnVESMBa08KuRD+tPBowsSX66OX0vZ+j9fa2PCA 3gEJhcifntzd2M2duJgGeyeqQH45QfYRk6vruG+ErT3Lz+4e7c30Di1f3ZYP sQepYMgUE8setxnbBJxIGqOuglYFSnH7xDT/52cdshOUvLS0LzUUfZpF5/Ef io//Wh1ATE9PbOavxQJv1WGQQAM284ito3aja9BPvcEpJZLcDHMlKb4+tmxG 0vzQzKGEt5Lre6b29kSsn6b9m9FZ3FKqKh7GBdVheXNUSpHlKGXium4U8/0M SLgm+GKmOKbp/dR9f30hOAdpMB/bnddm8l4qPrkTF0yoHbtifeP+rG4KRMh6 22vWDgHGslQX2Zo0SqwjDhk5NPYFyuDb7tHw9J8twR7U09b3jhY+j22RsyQI neCYX/A+EZcTMhpJkV1DlTGrij5b51EZVPjbT7qLD9G/nJjVnrpMoybRVxWY l4gKOoEnFvWnA6a87EFcLw/0epgHNu939Z9dOyXMXYPAI/G/d33SkJzjTrRl 4M79rDn1jEbMh7kW5Yhp44BhPTZlKzBFS/MiqfWWvWMi+pMSNrvJW9qb4RrE 3p7IZiTFdw1VjGbZRu8gSE/gXsY06ioazagvbymxuj4d3hl5Nxqs4/vHHDPk 9ObXiPfC/bBvkISK0qPLQtrWJnLnhInYK273pOZJ4epX6KE49KebAq5Be8+2 /fbdkf0lXfrpTeP92+nRcHXPEJPFlixwKbVrYCOZkZTENegpe5j4bhP0sgJS /oxDTvigdRTD9s0deQjhgQYT+O9rWqPvRe9ues85X0NaMjkbtNHzC9xZTVMG 0LNxgasUsqMNgcBAvwM83PIRdff2ejQgJwD6PeDINGkykGV2DdIZSalcg57r Rya8wAjW+y9J5nEYWVm+Z1hj6vUK2+o6jqiBBgpkkSPP4AEEgpz+CTuHdwoQ 1yA8b4cOZ8t+7HZ0UguOViJ3abDpSW2odv99YFlwYBBC4KCxn6zcfcK8UMIi gl0Dfj8/ee3CkP490e8O6tk56rh1qymlkZTQNSC5bRS8csLzTWZZ8+ykHxxc qwtD5ECDAfPOjOAaVAodqnAqJU+88My60N5+2trNB4TGnbFf2cVwDYLrc4mM ShIHSwb4QScQarD+EZdt3Dwag7ap2l15bv/H77CLxzHOmlHCXAN+MXlsC3ZN hEEZaez0ny9bH3tSGklJXQN6VEv9fJz7WdNn8q7YuGRl+nKIHmjQU/nriqbM 3x/rOiETtJbUBl51eHxzZ/yBToV3oYdWnzk59lLqGa7h7S+uC3MNtOHl9KWi UZwxjSpc0Tw/d5ct04KeADyHrcyx85xlN7I3DmUUxehpHr7brpkX4hpMWXAm XF26fBydY68uTFIjKa1rqKq6u/lD1Ddg7tj4AxwEoNBM3ZdGpCHvFr+dk6Tj urlzCAkCDVUWCknEuSwgMoXpYXWMBuGLw04TgGYMWg52iW6aycG62oQe2Fos KluuTZZJIMKe4Xr449TaxtfCNWPcVALPx6cIcA2P90cwHQOmHbXM/g5FYiMp tWuo+ovUfTLBbVGB7E+95+1GM0sMFR/NRE0VtoZZoEGE1lHmyatKRdgBm9CW RK4G9GKB7AI4bNIR7Qg9Y5IcWHkic1Y+Z4q4hkmp1jPQnj5KHGy0vlpscSbX zT8a5OX4aLxdA0sAivsdSmwkJXcNdKDECIdM/nNLepjeEmMFYnCU7IoPiWAH GsQ4cDYKfKEjB/qbqw80uudsfWGIYOszzbv0HjF3Rep1e/m69PrH4aFIVw3I eASHJN/acA3ovOOn6UGnhhofLWhats1H4+0aUAEo8iu4nchJbSQldw0WMvnt RUzoTTH7LZE/8Zi9ciyzmYEGMUxERene0X6stx3070xnWpLWEOitrvM1oCfn CMcqDOSYRYShSNdecTh4EQdkyT1O99DyZ0g9OmIW8y57ZAavuSQC8XYN7JRF bnsu6Y2kDK6BVgWkX5fN9QmySWTUsFSWH/rIX6bsOLNAg+MmwigpYELj0nv6 abXLO9dE0A2j8zWgJ6dJ05ejL9rbMpRcXd6JGuSiKI0/2jHVNLhlk7UxeTdr 9W5FSRFtSLPj5RuVyXt5R/s76k1hKy/Ystx8XYNZXgq3E2bpjaQcrqGQFW6w p4KF7LDQTWLZ0dUdMWxYojTSJyxEDzQY2yYiY8amKiYgmMqyMsdO/ugNo7MF GigM+p+1NEEhyTYKwGnJAqFiBWzwqpytr1MvTsbdVvHZBX5u1s5hys8kvuuJ OSJ0zDT1bKNk7/P2XYO5BbZ9fQrpjaQcroFZjE9ia9NE5w3Sm0RCthTzmxgn j/iqyIEGY7N1esCAIrfYlN3I2rp4YrAfFYTVtuwc8nlspoBewPSGUfwyotIr GT99GRHSt4OXaUtazydo9JSVuwR2d7LWRLL87P6J7etr/LrO227hyvp3FTsu kMxM8ho8O/WWSEsU2l6Jk+nNkdLDyztiZvLX+NNbuvUDiKpbjX/vdScFTje6 2loa18BOWeRoaqQ3knK4Brxqz9BnmV9iL4PaWEmtDZ6asJ/qp+M3csGxIpkS H0QMNJRd+31hAMMvaNr3jT8vsPEiYJGiw18bjIDrM82DR4QvXbUo9A0vN4yX tCMNvcm1H3PkDn77/NYZAxu7YtbQdn43hqNGsema2Vt7W9/Pmr5R27ZX6LzP Nm3fq9OlJG2JiZo6tC2Rl6v17xVuyXEIBz2Zt3fwIiZ4Zf6uzwL13tajbo8p UQn7dMmJ3y0m+5R5uAdHxGQXC78Tvqt6vq6BvSvhrvsnsZGUwzXQxew83ph+ YCcsnjAw4EWtR8N2wcPnbzlUKNvO3izQIDDcj6xbjFdyaz9xVZYDAxUwpyhl +Wu1DCvDtb8Z25mhkcfu76fzqRtBRK5EKzkpOhIz9AW7jWV57iXJZ7SX6Ejs UxaMH/pWp2bEfopo5h4avjThv9nFEhQfoCfzDqXC8sewbYycPqzny/odmcan ddDbI+etiU+74ugaTL2uQWIjKY9rMD+vk04UVwTMAg12FB0tUZKTtjY0EO2v qg14+6u0PCc8uVY1RJ9cC7sDNC+OV0gUPUAQIT8fx3N/+DiAXctiDRfMp9W6 HE7bHCIRRXX9PtDjEQGzRoWYW0jbQmpyugZJUcw1qDjAxw408LnVsntXT+z+ blEIeaBB4d1n7JdCD5MBWzy+uSmwgcXO9fmrBxlfP7+QKHqW2Cf+koM3eCth Kiv/hKKeb3tfS32EMcxzyCL7zoHcMtRRXbMPxJ7wbyWsSvhaSL6ugd36Rykp UTMUcw0cA/FKwAw06Jf7jUM+X2eLFZGzJk+ePHZU3w4vak09jFxrN+85ZNbq +NSLd5QR4Ck6Hxc+ZbJKWLI+SwI1kJsx7z1jRdEXOdngpxqHilQ7OETLjm14 DVHh0b7SRz8e0s5cKTYtEp7+U5jzhy52xdhXm9DNr1ztZ5gQWwYeimRygapH OiDWpyLM9TBFdg3s1vOqEduUxzWYf4t6XQM70CAQ75e69R310eL1PyjlGiy+ cwUR/+c2tAmohfl22XbD7NTnya3VHU3bNj42Cs2mc1Bo9+7pOX7UPWja9Fi0 w+a2saIk67v53SnVJg3WY1qWjbdFbhlqYZMOKdaO2SpouxzVWDmHoJ+I+nVs K03xcw0MDStMVd1bwDWwcaRHw5MHBbkXMg7ujo6Y+Fpj+kTJu88H6w7llMq7 gsLP/thfazf0KROaFu3jxF5Bkvo2zRcdsGBxEXkZficbdENMx059KyuOTO9E XsYv9PMMbokHRPIh8ZO52zL7at0yENClWCo6G3EIdEgYsJOcwM81MDWsVCW2 KY9rQMskTajTNYjVowG/X7B33iA0WdFv2DwhPSgBi5CCaVYEGQzyYgg8BAxR y2a7B71NyMojjLPIv4nyzG/fMJxBaTzGx1iOj6h5y1AlU/9lWWFrZdhJaebn GszKgQPWnpTgGYQAsQYWYvZowPHcr0MRR2OoaIg7b0XpBeCFYZtvRYiMFivG ePfuFOU8pOzhlv6Gn52TtLIZ19aP8LCx5M7b845qtwxVzBM5p2qBZANayI4c GDZ3Q7xcA7sdsJqScxRzDeocNqL3aGBL6oklSlDT+Wf37DpWkkvxzI0dEOfO p/sVGnMU7hqI9nAuloMgXDA2wLK42TF06tHIpDApBKb0gTqXf3xhyxzZ1Pnh 5RqYpdDq0mFWyDW4YI1bxd8Q/XscRoJm0OZC3J7/+1W+Opd8zkPR7k/927Tc dN7C6gJpc2ZPrYuNGK7BqGDAUfvUIoRknKWcW0ODIQ0WOCGDR5N1eamOrsFM N9tWwQsP12B2VKVUp2OLyOMamAlamMwSK9yRoBm0+QDga68APhRnzWmMDLPO 7x/jISiKugahuSIGM+Lw8s/gAizIs1xa2tdBpyM5zJSbauIajG+eHlfWG1Lw cA2s3CebuQfyI4drMLeNapXBl6IZdBWj/Iq68nMzt/M/hAbsw+ql2H5FOh8r KkZaPtGtmEsTYds3Yth61GEeuhq8nrrOHCwiYmGIijCEeDit7ri7Bra7kbOn NgfkcA1o0oIRNcrgS9MMusrCS3ayTvROA6ulIO+GMiqq2CL1OtDzTLLNevuo w2qyHxaonq4BrzobGYzafGsSJVxdw+0T07yR3HJ3LGR3gcTPwA85XIPZAb58 TaB4IUGggcSsW0d1qQZSG/noL6jB3oniqU7MPFBS8syT7H2AVFeRsen69dZd Ut/EQWGur6qPa9Bz/2JkO2Tp6IlNPnjL/FOcXANe9UcEI+tJbVpYVbK4BvYB vvq2TiSSBBoIzF4yuAZJ+GvDcPQtD0y4yvMC4mQoiYOh0orWrieynqwXO6iH ahmGNsJUPrHcTpSLa6AaTBg/o3npzaRbqgsfyeAa2JJEao2jSRRoqDLv1qG4 2amWsMoZhJzJo33KlP6Nyu5t7OxODUKVl7mhVGvXoOfuvsiAZ+gH1A7/7FwJ w5jZdQ10zTv5AWFdvSpKziX9sH7dv1cu/NigUTZ2VHCPoKCunXouTxbrjUvu Gh5dW+7PbHwpON9bUiQLNKD9mEwXt9PJCOAPs5wB85q1Q4hdR6uhlXbfB0bX w/yC990nD8rsCSupBNQ1VI9qaDPI/iC0d+g7FW2TZ9s1sDp3aPw6RB0T0H4O XcMwEEFG3ojUrqHsYCRLlNiiTqbySBZoYKZTUnRemym5d6wByqsoDpQzIKCu QenSG8M29lmDdSV1P9S512YjlgiVuik5tWviS3TrRk2bwKhkSiTNmmvA7xck LQlpW5v+Z16DZugEK+fgFcUFeXpyTx1bNaCJadiLWEwtrWugm20ZX5Q6twxS BhpIFTgGskThq7/yKgqrnEFwApiaFr0GI6PF1p0lAtBebeOvq3HisEF9K7nl qa48LjqydlbQ/yAqmr3GLI7d9/NMtMJVb/H6xaQeil/M0NsUs/Uq3V7ZIdUv cyR1DeUnNjAKgV2x4I0n1Rd/NiBVoMEoeoCOFnmyEaq98ioKq5zB4qas8sS3 rzXDok7ZHIBoDY4rNvOokhnGBtfggs34vxX+ThGAJrn005vG37wmZGjj9/N1 m74Y16sV3ajFBh71AkZNWSluVy+6Ulton2IrSOgantyJC2auxLm0r1IEyQIN t77/qAHr/dZvvPKsOt+C08IqZ7CS4Wlo7uNmf8d9aOwLpivJ3N2YBZm90KJ5 c+cIQBOgnbVrVECt9Pq5oz9t/mrhnJBXmzDm+3O+g8KmL14b+3PqbwWPxN/3 oSE2cTuuSuUa8KpzywYjJdD6zc7L0RfVahKlCTTgF/a8y64Cx3qsPVbdV1Ky w6WcwbC40mAvjUizF1lGS9elEI3hjnFucrptlYDYEzstb6orfLu8OQid/Si2 aqtEruHuztm+6EW1tWalCQjEy4QkgYZbpxZ2qo8x4aveD3Dh3reh6EsOjr9o /hmy6tB73m67q5OK/RHGUKGb24xtCqoDm5yUiGknUoM6Vsc7azsjsroGWrFK fAUV8V0DXpm/67NA9HjGs1bI9rPqDDGQiB5owAvPrBnc2oX5YrV9p6QXOcsU dx5YLRQbNYm+avaSjZJE837n8LvSp+UKa2VQRkad8vVWoI/j1NR6QE5kdQ1I oEF0VTqRXUNFyYnlob5oRKZ+4/E7VO0XmKVSmOOBhrKc/8wIMNsvjFxwDPyC FDBqrKycJvFqf0NPN4VLGwgj41TBXEOZnhv16qpH90/+yOoasmK7Gb9JdFU6 s0Jd4R3oijN2zunRBHULmjbdVv6u3nMkCnZbcAcCDY+LjqyZ0rku83KuWOCn 2y7DOZJEMMtvLZy9kG2aXTlHctFtiBZbeUExh07q1DnRaRLSzlKD9Y+4XGNi 0CjsBgRSpkDTR6miby0rHiUOYZVj8emxTvLkYc7BbYvefsUTPUBxdW0/Liq9 UK1xZxNsQUWBL7ns9qXU2KVDW7PaUhC1MIfyVL1pcnaYku/mbr1UF9maZ8Iw ul7i0VdaXMisOac6TULbWTqTRxOR4rML/JgZ467YsESRimdZ4FUHxngT32Gh tQe/K5XcuZxHcPFM+sGUpM0bwocw7Tnl5nxC1/yoO3YqN88quad/S0n+JeHr ZeHjRndqyE6e13Z8c5mxNlCkl/C0MDP5m4XTh/Xp2twTe7Zlh0Fh82P+i5jc irIyLl/35EEB9QAXMlJ1yT/98MXYPo1Zt++ODf9qV3q2jacnuZx1JEW3Z3v0 is8nD3rVqxbGpr5P6Lo9eX/XxPkhM2SxsEVLTujV1MJavrotn8dwRE2c98L9 yix+b6eHaVww/5FpPFoRKQy9iNXv0Q4LPUYRa7JLCW1LjcZEt+fHTZHzBrVi Lw4NeGiDPoz4Kj4xWZfMMCw37jl0UmgWaMDv56fGrZg0tJ9/IzfMo2G7PkNm rd2acdv++lzy8ljX2s0HjF37ywkxCzr0C/LcX6PILUl9v8GfLE3Yp0tOjA/X /8Xjmb4rU4rLS48uC2lbm0PP5aePEgez65KlwLv7sPlxe8EpyMfd03OMSzU6 Bwl/eku3fsALbkLky+hJp8GCpmUrcdRPFPEpHAfnB7qIFZotI9pklxgxbKnD Py4aaNiQnZ+0aoCPm8an1ZiIVQlJhvc2r18rjUGmKWBxip2DC0lcg9439ewf Miti3fZfMq+LbQ1xPG/bp92JVEJt7/eSriDur6Lk1NJhHq5YyPzwAOO92ClQ KiuKe8OST3ecek0DehEvYdvu9Et3nCVmWJ2g1SyJFdrKLyJCehoKVAVHuwz1 cSQWU56kh7gBhbNn+UGrJwnqcSzuZJcYNbgGeo/m7tpnyJuN3bEuM9ZnFSNj 9dGdxFFEnmQ97/Cjqo/5cgfHc2M+bEacd1lO+yx7uKU/sgsQT/UIcEbKbmRt /XRsYFPK+2vb9hy/LDaTw27aImj3JQXCDcZti7j1rZJCvzFXbFwyT7sNk50v 9B6NfCG1xnx3/L7ZK8FPxxJSRS4unUamOhCMUBX58WHEUHHBmrWLv2p5GCDK OY4GYgCAgZQZ43YxqR8ouzbmhbE4yAXzH5zCU1UPJjtv6PFpU2PhccFyY9iM f2crNUJ3U3LFBm25aHU/TyfLiSwtBQDnlvSgDJHsKfpUYN2J1saIpWq+6ACv YCNMdiEggYZGYbG3rQ8TYzJttXhpdA9WDRY4IcOG7j7yfpxo6w04BxcT3zKO LllXXFQ6rjOJWtNtWfgKzsNkFwQSaLDTmsToGpRvTeU4N2PeM3XYs92+5OGW j0zvp2ZW5QMSQncb4VxJLQp/kctj51EupV8Ub8F5mOzCMAqS2OvRgFb91PeO lqbAQibQmhF7ySFHJ7Xg9H4AQBDGKJ6hLHpxpkidwu1hEnt0mqoxgw4JgQc3 lSoTMNmFUZoX6cvtbI3+pPKtqRzk4Y9TjbqXGqzPnBwbqwPu7wcAhIG0KRTY bJo/JrHHcbqHsnyho1xa2pe8Yc93l/HaW8FkFwitAGnvbI1WAVK+oa1DMHuy 2Fk1IdpHTrO+ApwO05LYSocgkaG6SjnPRC5MD6sjaGMFk10o3M/WkHYDTlZZ zwbtOW6v1v6f3bPrGD/rLOsrwPlAVLbk2DhQXaXsraJVAvJyvKduKeLlOWGy C4U+W7OXO5e71CQQp0AOtnjgVTlbXzf5OHtPbaxXdZ71FeCkmLJopI84OFmg gdpSuWAv9th5k9f9wmQXCq18bk/elqk8Kbpqt5wg2x972jVPbq3u6MbpkwDg MGVHV3ckRpvU/c2pQIMj8nSyUVG6d7QfeawRsruA778Nk10gxRnTKE1Uey1W 0b7GfJOKVQaiTGKvnw599sh8P3hl/tG9x26oXgwccC5Mvc5tl2U5iKmiQexm jlJgavLbYvaOe/ytDkx2gdxLDzO+ONtt15AoP++kYrWBtOW1s6FGuzkzJG4I R1kzm9IC0vLk7pZBTYjTj1brJNo5UMfvznAsfP3IhBf0K3mN5vUJJwT1RITJ LhDENUxKtT4OUaFpGVOvpQGvyo7tys0h5iwJMj012oeLHEVO1P0EcCZu/TG3 tSHooH1rZoYjPWKtQSYlumJj9irUP4gjJi/Zsnt8rjAvCZNdKEhbQxuugS7J EbqtUxdI0oKt0XLz+PSmxha0zIwsQ7jqpRFpqj+mBZwUk/q377QtYu/Qycis 6kUy8apTn/Wtq596AhphoMBkFwaiuWo1WQupT3fpOER31wkyGuyAVx0e35w8 VHxu5nbL7ZRLbmwe3trYm44pJvDo2nJ/Dd3MBQAkoPxM4ruehqEXtCylWFzv 8KTwcOyabX+oWFqfUs922C9UwWQXjimIYK3erSgpog3pTL18ozLVvM7gAZ69 tTcxWiyvB8ih4vlij65NyNGCBrAMGl+uzn6qBjgB1N5BCu+gboqSIzs5vl8w ApNdIJTAiOXiF2rpIt7PpBZw/NKa4WQqCEuEvCRr/9weTTRebeenXP47bXkb clCZktlKrq0JbODh5IF4wFkoy/nPjIAGmCc26WA1mn02qfwj9jX9lPPvve6k SI8Mk10opYeXdyTe28D4P2nnYGp6K+7PpB4qSk4sD/XVGB68S1hUwr6UpM0b FoW+4eWGeQ2YtPPCQ8PBWWX58QXBdYmXEzjnm327Ehb2a+XSvnfC5Rq4vwQU ovTW4fg1P/9ZTTbsdsGvpEfHbM0uFvXgGia7MPDK/F2fBbpjmEfdHlOiiCba 3y0e2U2rf0se7sERMSL/TGqiJCctOmLCwIAXtRrs2ZYdBoXNjzmcU4ouEvQu Mm1b+Kh+/o3cND4tB0yYz+gnCwCAkwCTXRiGpreR04f1fNnLHdP4tA56e+S8 NfFpVx5WW68AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAVE/+H7yi6xs= "], {{0, 109}, {521, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{477.17187499999943`, Automatic}, ImageSizeRaw->{521, 109}, PlotRange->{{0, 521}, {0, 109}}]], "Input",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}, {3.751392953248116*^9, 3.751392953248334*^9}},ExpressionUUID->"35a180db-f3a3-41dd-9b43-\ 0592428f05b5"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{"Bh", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "=", " ", RowBox[{"I", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"\[Gamma]5", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "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}, 3.7513927106207952`*^9, 3.751392745089884*^9, 3.75139281625089*^9, 3.751392909461108*^9}, CellLabel->"In[48]:=",ExpressionUUID->"2938d898-6a9f-49d5-b809-9926c7d3c56b"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "1", "]"}], "[", RowBox[{"Bh", "[", 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.751392711448798*^9, 3.751392817037744*^9, 3.751392910110114*^9}, CellLabel->"In[49]:=",ExpressionUUID->"f476ab62-c1b4-4676-a60b-b9e2052a782c"], Cell[BoxData[ RowBox[{"-", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "2", "]"}], "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output", CellChangeTimes->{3.7513929727959957`*^9, 3.751562784311708*^9, 3.751568597772798*^9, 3.7517271780302057`*^9, 3.751730247300417*^9}, CellLabel->"Out[49]=",ExpressionUUID->"17a4a504-962d-4385-959b-087801c0085b"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnQlcVOX6x8/MIBkyluZVyGuKmQva4lYuUKZYrplL6hX/JXZxX0hNCrco NJdSyFxTualY4o4pYC5dxUpMw1JKQU20wAVMwYuAzPznzDlnzntmhpk557xn G57v53Pv514dZ87yvO/7vM/7e54naPTUQWP0BEFMr2n5r0ER0S9Pmxbx/uBH Lf/njSnTx4+dEvnv3lNmRI6NnNZptIH8mOU/tyyfJ/+3GQAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAMBC+dldw7t2Tcy5r/SFAAAAAIArYMECOPz14+QnfAhCp2/T PekiWAUAAACgVlSzYJX9eXbP+s8S036+XangVVR78k/PbleXYDD2nJBRaFL6 mgAAAADAAdUsWGQsKNCHuoyO8ZngxShD8Z/r+zYi34HBp3VwMz1lFb2mZt5V +sIAAAAAAEU9C1Zl+e7BDRhPykAMWVwAW3/5Kb62cUgLnfUNhCxIK7pXdPDd sFrWVxIUuSK3VOnLAwAAAAAKVS1YFXfWh/jaXJh+m86DCyM3FSX/jepK0PaQ XlRJ/+HRmbRVPDl96y2IjgEAAHhORfG5lC+XJ3y2ZPY74y2MGhYWGhLyfLsX F6aC0FAU6luwio+tHfTUo/qGLUev+a6omqyVD0pzD25d/UVS5nWlzdn26v0e 6rkknfP8bX+FmgoAVAcwjVBQ+lVXTObszS8RTmj60SHYpwsHFiw1UPb3noi2 /mQgTKfr+GZGiXJXYjLlfD6ynuVC/GuEf3W23PEDFquY3a+BgbSKvom/OvkA AHiA6faVw5s/nztmWM8Xngmgwq5+9Vp36T5k4vtrdh3JvauySR3TCAWlX7XG VFGUl2sh5/TxT/o0oj0YXyL6R5hHhQILljqoPL6slc0pf0SXkKvQdVjsYe3b jXVV2wOvjwGAU0oLj8ZHhfzDR98wePDEWZ8mJqemkaQmb5gT/nKAdYXXN2k7 ftU3eaqRXeEZoaD0AyhM5t2DalvNQEc0DtlxS+nr0SiwYKmGB9/G1qNnNj3R Z1buA2UuozB9YZcanr1om1XUCYw+dl2eywO8gaJLXwxsoavbcGTCbqfBlqLj 6wY+Qg+GgP7TVJLLj2eEgtIPoCjOnlUfXFmxwIKlIoqvbRrVpUGtuu3eej89 TyE9THFObFMfHp4qbRV6InRSltISHkAblP29e0QLolno2nN3XEzb+f/592NM tMJ/wJxsNVgXphFaHZV+gAOmkyufYyy89aLjSl+ONoEFC3CgLPdoSuZVHqE2 U+WVw1uPKOV0AVqDPpEx1Gzaa1jCj1Xvhm5lTqrFHrkMTv5DxmsEAMn56/PB IIYRDyxYAADIyc/RHRjXREcEdd1RlRfz4H+bwvxsTow+PL5Q1ssEACmprEju a6RHQbOwvWDcXkBp4Ymv4qcOfiW4vo++YYuQASM+2n4CEg8BwMvYP/xRNKV0 3OEqN0TIJw1Er5hLMBsAXgMihgH/3Asoyz7wbmgjfd1/Dnn/k6SU9O3x73Sx 7sCgGCwA8MNkyv16Xo/HiB6JF5S+FOf8sbQ/68HUb7TmchWiGDZrwyMfpmJf zEPGf4aDwsSsARuQGg0YQ9a6Toxxd131i9JXA4jCWi1BbwyLTLMdUZnMh0Y3 paaunut/Bb02AHgEXc1Jp2/TbXueWqfv4qvJk/oG+RHGVl2idlatxCvNW9iC dXYCZ+9zcz+3zsZ2fIww1Gg9cVW13vhowgakRvXGcOuLkbRl+xFzT1UofTmA CC4ffKu+wbElU+787nQOY++Yi9V1IAIAD9jFS+F283i4vHuAzYPxJaYe9aCi HNOvtvrGb73MBsSgZmMwmfePCKTFMC37p/+t9PUAgim7kzzwCeLpV1Py7WMt jPBPRzTrn16syMVJj+lBwfHtc4ZREqBmfcbM2vLLDaWvCdAmzOJFNGyeoIo8 ZLH8uWKIzYXxH7jA02Is5J7IB9vKhWWEyqb006IN3L20fmjbWn61Q+duK3D3 TIqzDycuT/jP0VxPk1DwGgNGHMQwZMHq9YvGDSKNhCxV3WNAVPxmzB1nLMZ8 6uDmxbNGD+rVrjGiSavzRPtuvUfOjF2//8R1yI7iyd2d0+oRRPiuPPu/YDXb euL5MSfLeHynqfjGxVxc5OTdlmwqqCg+sXBkEwPRMTIuaW/61uj+ZCKpPzH+ QL5Uvwh4KybThWVD/Kz2M3qvw2jSIkVnZwX50LsYnity+ckvXibbAYhu8YZj hMqn9NOmDTDiKB0RFLb3tsuPXj385sPWz9YNXONxnj02Y8ALKoZZceZKyid9 Glr82+YjYixGkpaanDjzleZ6y+IX1H5uuscOmwselObs+izihUZ6REtvcae7 dGIafNj+sEnb8Sucl51UG6bysnLRlyn2S0r/XNq+pvNyl7ezZtSh3VRDxOq7 Tv5xlZTvmk5gx+qphkfFJGxNzy7E49VcSYxs/DBSmafg8JvWsSxHp6Tb55cN eM7OeqWlzj9fWnZIPVOIl3Fzx/Qm1sfcYf4hBbtsYcPWf9aytAU0m5fBu6Im XR/PQISt/EnwEiB+hMqp9NOkDbAli93vVVkBiZFY8juPJ4fFGPDC3ouvoceA Vxv4Eh2nLM8qQm7q3o3kYS1I50t0RdmyP35Y2Iv0iKwVmcLnrv0q45cLBffY 3yorvJb1bfLiiYNaPUxflD64e/z3fCquKAGOhV5ktqPJfGbd8wQx7mCRk7/7 YZlNzdcniV9tK0l8GBS/uu3Co9Yeyi4RsSSbspN764kOSzLYUXsrI5L+fqkl XvSTlxcfnylbQLgmBZQtWTD2ic66p/TViKbsWtam8d39rUZj7DBwbZag09WK kv2jgq1LwKNzTwhRG2AYoTIq/bRqA1fThjHzg35s4v9cfBKtphI89AivexRt DJhhxTBW/GuM2PCj49mi6ed1na33q2s39LDQq7Z1Fw0aOD3p1DXXbklZzncf 9myuZ65K5U2FVODDkDWsCq786dQTYAsY+hNxv/L7DfYs6fwvGQfSUzZ+Pmdo J6Pj5T/ScOSyrw79dM7VSdLP36enfpP0+YLoiOHt6vnYfUFg2NvrT7qxCudU lqeODCK6jslE90unVj7LPNepx/gcngmg4u65I2k0u79aE/+p00ekb9ktevnG lDQPsDylNQkJyxZEj32zX4enjHqH7yKIzqt+lfamqifFfyzrSgoXiTo14352 tQiolpLsQxuWW41n0oTwXp2bWt0X47M93lktrttj3uG3yLMfna7tgLSbPAMe 4keonEo/zdoA0n/K3V4VicwLqaYixhiww4phSFsKjT/u3JiQvLy+SZcF/A7t wFThIzmntOjgu2F0eWx1uzEc0UjO75mHLWvZ16tiZ/Zrzik/ReNnDHk7xtpY NjXjTA67xl+7JclaK8bldkrFveQBDbi35M7td+T+newDW+a89qy/Dn0yvmGz N/5WzHNQnNvcjSDCEs+jf8aeCzdonniN3/dhAB1WFI8Y4oT2kyi5fHpP3NvB 3LOqQdv+wnvJgGVDd/qDntSE0ybukGpnG9ecjQ8P7RpiJbR1fXqnENgubHTs 5ylnBO0RGGwdl3hrIUSPUCmUfs7Rsg2wFZvd7lURAUn7+J8E/JZwY8AOci/1 I9ddr/pimBqPgjpC3j4f29pXiB9y/+amfo3o61NJ5IoXf/04+QluwMFA9E38 VdahIdLldgYb2BE3EEhp97Gksc/URb/K2P3/Ui7xWO7JyTCwfVIB8kf3b67s xJwLvx6XJ3/HajaoS9CX0WNGtri3Xnx6678CGVuSIbhU/WD0ihZXv3+6az2k djDd/Stz+6qIZ61DzOATPEJEd0VScedLLZFTv3NyZl0VYkeoNEo/p2jYBlAx TNs3j7vcUiICEqGthYQaA3bQe3FdMYDxYfiH7EzmUzGhln/JOQz1nEtpw+kd qE7X+c0M8WYqL3aVwIlHdAm5sl4AKobBVcDQ8exM1NFG8dXdE+kje+pF69u8 usbDg3ty5D5s51ejDUztdn/ygAZ1KZp+dEh8yPXm15PqK2RF3s/9G+vD6lH+ oRfWgSy+tnGIVdNIynpbvSc0O6MkLbYFtUraHQy5QOwIlUrp5wRN2wC7b3K3 V0WrqTQO2XFL4A8KMQYJODjqcY/uBe0XxicViyR39+vkc32oafsuPf81du1J 3qrgC/N72taCkM9Oaiu+lz0vBFnKPEh5ww0bM8GnbsXsw5iZvEtW+MGjqFTB 99vSzt9B/+REVBv6a1yUXpcSpA0fNakQ4w7hOKqnj6gUsCKvhzqt0OQG3ENu /jwjiInjGWtEHRGUnWHbfRNE6KozHg4tsSNUGqWfI5q2AXTf5GavilRTIV77 6KrgxybIGDBTkhvbhLkX1ydE7Cd57wHPzQvlLuJVd1atCrbCpPasi5HNM9cv c4k5VAyDr4Ahfh/GbKsohboxgop738qcRH+LXj9scb78Z7VsUJd56Q25gXQR WMN67mPFAD/UMBtLD1LmTkc8FbrjLyE3yi70rV7Ze0PQo8I1QvEq/TRuA+y+ ye1e9cK2Vxk7EBkfxmAMIkHupfWi464+iXoRvESSqPMjyAUi4XSNV+Z0QDAK +zASiGHMEvkwZir7oBH6tQJyG5lhRaKM8NVRDIMv69NqTtB0GDPsVCxgh6Uh 0HYDgjWrxTmxTel4TptFGQLWLWwjFOvkpm0bYPdN7oO0dzb9m3764uPDoo1B JOy9uBP2IHEqnh6vrQgAu4iH7eVvbciJjEIqTaEo68NIIYYxS+fDWLh6dMzj HBV08LxUHmetleW7BzegHzW+6AcvJBLDUFjNCYrDYKXs7/Xd6C1SQNRWb23E QcJp+6gnnn7jiKC7ZQ73BUXF8Y1QnJOb1m0AEcO4Tbo5Nu5J+vnjyNkUZQyi Ye/FnS3lzA9jjIWnx2uXZOoifdslyKIpd7bs3f0LwuhcRYqu/UZNW7LL0w4d gn0Y0+0rqfGzw3u/iP52yIsd4n7ksaRLIYYxS+rDIFl7NLyqNFyxjWV97XFf KiIAl0oMY4UyJzdRU4APlceXtZJgjMhGydVzGd9+e/KqBwXNTebdg2qzlilY Q2LNlabgXWoD3wjFOLlp3QbQfZObyeF+/tK21CZRT4RMOiM+u1GMMYik7NbK Dsy9uI51c49y+Hq8hQeW9nmCzM0hewds+K5IyKCxL4U6IgXXqYh7Ks/te+f1 bkGIUIPCww4dwnwY0/nUUU/a15Yhu6SNmrz9osdDTBoxjFliHwY9mKbt02la pTPYPDsDEZEqn5GwSCmGMTPm1CPxArZvrObYitXjKjAiL2QBf6rCkl/NsGVH 3G5v7NIkxx0WlGfNrgi8iwZgG6EYJzeN24AZ3Te5rbqAnCcGzt6H4URahDGI pShzEl1eTP/ouztdLRHo+f4jxJJs+U/i7X0YjMF5Dym7dmbloBZoPTbyMqJ3 ufVHhPgwthQ/GwZdx3fWZPMt/oacFwup6lM10vowZvPNjW9zKrr5EqP3e9AY Di06wY2Tm65np6RJ09zWDinFMGbGnAQuPYAjBRmRTFsT+WcVsbADnPAwQM3x YQTXBkFjIEYi7ozHuyqMIxSjGEbTNmDmimHc7Zgq9sXUZN4/JxRQkp+RdkhY JWeBxiAeRKniegG68/VE5q51td5c7rajtyRw1GiYV2RPsdWgtuGBRyfAhynd F2MnqDAOWyCgKyt6Xoz39EFqH8b8J9UPzoZnHj4S1QycuQtd5skqW43lyEeW VAxjpooh8OzRBriAndxELOiKgSRlWKcjd+kSnCChuEN5ZKzxsHB8IxSjGEbb NmBG903uj4fYiA23Rgo1cQk8RxNmDOJBfBhX27oH95L7M7OykZh7UpGUTrs4 jJ7oPuM3JWS9qKLew1fG24ex62Al4rGz7jHusSm5D8MK/xj8iJk/uHkIbBa/ 3XaA3P3ZV9mSCEnFMNawbS2ltMpeCKovxXrYKhOcjAkPGkBz4jbikiPYhFMe 5y8YRyg2MYzWbYCzb3JX76XqxtbkxNVC6O0LMgYM3C9YSvfccuXDMN0eSZTr jGDnw8ieoWyDrWzAvDJ3fi9vH8a+1Y7QQ0b0vFhEMUanSO7DoOfmzHNwowBE hyf3iVE2PGKP9HnWYsQwZbcPLZ6x4NtcV7M4OWahOAw+2HAfzsoD8mHbYPrV aT98wvZcNyeMld8tesJmm77OK996DlunzkOBAcYRilEMo3Ub4Oyb3NwCU1mX sG/NQAp9a4iRWPM2Biwg+/2ItDvOP0P1G7WaisIdKm1NTj30BCSCK2/2ZJHi 7cPYxYcFR+ckE8OYZfFhuG+ccJ+Vj+xJOQdnleUH/x0sU96fGDGM9b27UdmZ TLnffLHm4DkNxrvVCI/Spmql7MjClh7uLtnJnBxN/v/69Iq4UPa9rRNthu5R zS6MIxTf5KZ5G+Dsm1yeUHDLVnA63FkPg8RIrHkbAyZs54BViSUKU2JaUstH QJO4k5JF2UzlZeVurJC7aCrnw6AOJ4U7cQJfH4azV7IirAyUdGIYszw+TIGd JMZdSy8kfoXGFcuOLW1LEIOTRfdS8QAxYhgq7iRnwh3AbmA1KoQwkw7Aj7PC aumIru9vuehSMsdM5tZJq+eEjEKRuxqTOXvzS/T3eRbBwDdCMU5umrcBzr6J bIaVeNXZm80/PbvdY/qnQrowNUTRGft0dEdxuzz+xoCLorOzyA4azk8ryn9J HuhPPZZm8zJwFi4su37h0ObP544Z1vO5p4xsixwisN0rI6Pjtp1y0iCe2yhZ SR+G65PYj0d3n3d/5Y7ugbAkFOnEME4vEr8Pg5x12nDlErAJkmxcsfzsruGB RNDY9fIURRQuhqEO5eUtfFTd4ZPNgRNTRVFeLh9y8m67nAGYXmO1uwxL+ObE dcex/uB+9qb3OzOJGUFDZx0X68BYYX0Sz8438Y1QbJOblDZQcilz2+KY8J7P BdjCJHUahgyfsGTnMSfvyAOc7vUd902ORT+KMndM6fCYjuxAV3FhAd180Kap Ls/a3MtHdHsFvsaAj5JDC9taJ9u+ib+yz9X0ID9teR9r3Ekf3D3hJ0wOjOlB wfFtH458OYAJaOkbPtV9aMT4abOWxH86d+oE+nU7axDPjX4o6cOwxY098zH4 +jBcb02oYo0tOym8GqcL5PBh7OpxUT6Ba8UaEyw1hk1M2vfN5rjxHWrhm7Hd IkYMcz65F66SU4CHsIE+iZ/8/TvZ3yYvnvZWvy7PBPgSAjHUaD15g4uF3rJO zXntWX+dZVJtNWTMjLjP1m3fl5aW+k3S5x+Pf7k5tVU0tu01dxu+CgPowbqH uXJYRihGpZ80NmC6/tvmKX0bGKp8mcYOA9dm3eD3nWc2d3d22oXum55s3cZo Lf8R2CMibn1yalp6ysYVcywLrq+hTURcRoF1naI7mOuIgOCoDSkpiYsH/dMg oKWLPQKMARemyis7P+hqGVl+tUInxCXtTUtN3jB3aCfSRPx8w2LWninCczG2 IUZC/taH2zIvObYiJYvTfvx2sC+3bbG9CkXJSkR84yR8fRj7OE/V+ZKmgjOr I/sG+fsEh8+1mwTKM5baWttL0b9MDh+GrSPN4+lZZo+kuWP6tn/K6FevddiQ 9zYdLJAtPCxYDGMyn4oh8zXwlJwCPAM5j+DqGzH+hGU2WxIV8g8fAgvcZFin lFw+vWfNouiIYT27Pt/U32qFDVt0eXXg2+/PT/rvmSLcpTvQraWHx6AYRig+ MYwUNlB4dO2gx92+cZ6nG5SWyTFBFY0jNWieePVBwcnU1bMnD+5hffuGh5p2 7P7GdIejjdLCE18uiujV2fIZY7MO4XEbf+NbecwZAowBI2XXsjbHTh78IrlN sNh8yGtDZy5LPHLpDp61r6QgdfbgJoxTWjtkROIZNy5o0Q8bhzesQXR+M4Oy Kk5KICG2Y7g41OLDPCjd/QbbHpFTuJUtkafXvzTmhASzszw+jOOxnZCGoXIh WAxTfvKLl3XKDPzqDBpQxV/UwrI33PNJn4aYvBfrWJYioCoSNGgsW/8LjGIY zDZgMuV8+U57P8IzdETD5gnZHukErHlbzoqzoXEkrLU0BaCIMchA2R/fx4Y2 ojUvBvfCMxuUAs3aWRXVC1Eo2fPOcfnuk+RqdySVD8OVvLK6X5P53IL+ftRv NX5mzXlJCroq5sOoWHcnRAxjelBw7D/DyZVO7i5gAPq+MPduKL66e2J3f3vb FYGhZtNuAz79QXXdlJF5wEc/NlEeEQRGpR9eG8hPmviE/ZuzUqdJmyb2jWMo /AfMce/FUEGYh50UyEITQBSvMKyIMUiNVa/F7EQMRMiCdB7NkqgXZ22D7ihB kWLF9BC+yzdfHwbp0E240lSwrSIIY6+pmVSwpbToYEw/6zmsTt/m1TU8j1w9 RzEfRrVl9j0Ww5iKb1zMvZh94ruUjStnDn4hoAb1eRU0ain8bX30hPEqYd7y LIkbdqJV93EaVf6pD227Noq6Qf2nzU/a/9+si3+Sp+f3/847eyrtP/FjO6Mf s+w4Wide1tZZIlq2y0D0irkkw+VjVfphtIGy4yu6IK1ojM/2iFqaeOSXS0U2 J+vB/wqyT6WtWzTqBeS9G9wnZFmDMM57xrG9mF3nbMqBEsYgMRwHhiCCY/bw 7fZoOrnyOTLKkZ8xgauLcNvWSkLsOze5Xb75+jDcpmxVf95kPv1BT7LeXt36 o5fvIsV7Sz8c1ck6OurU6zcbm5DJKfL4MI6/In6qkQp7MQxf9I9M/UpQrxJs OH3aCiLti0az3gS3b3aEzGBF2pGQksIvTl6v4kYsO453w9CSmQFRW1V2WOQO tgUMzjwLmZR+GG3g5s8zgujFTt8ydM5Wl5lHFcVZG97rTHdo0hOhk7JcWDq1 l6/hrCAhKxN1VztLHqQxBqWwc2A8ipg5QlYw1vsOiZ7OqcgibyKkI5zOTYTb jpn8fBhWcs9YuIuaRQ9Kc/auiRrcq11j0u0JfLpTz2H/nrdu2883JF/lwYex w1EMwxdhVYAwYjr7dW8jRv2GKPRPtlkv6UYOldjhElkVX1vVw2YF1ryPFHfV CCtK9o8KZrfv9RutuaypTlhs2Tp807JsSj9cNlBZcXRyO+prgkZ+mOnZ5pFd Il0WTHYRhDFfz4hkVBqqqDAshTEoxe0LC5+3bUZExUjJoETdwECmqShlvUo1 S6JxEBi7FrTz82FK8xa24PHlSiGPD4PWfrShTh/GXgxDEIM3ZDmr9XEx+8SR tLT07V/Ez0GKDBB1/BNyNLV4aR10vsXSiaPi3sFx7dhh7nnWCZlWzyJnjVMM sI1y8LmCsin9MNkAVaOPcFaYxTWMmF/vN3qtcw/ERRCGK4ZRhdlIYQyKwBnL JGIifk4VEQqLlxwTvV0WFuDnwzgUp+VUhFYNoIfh4CiG8Uygy5ROVYEYprqB O+7N0XP6EkM2nvVUbMoJvap0z1Il6HGMyN6LNmRT+mGxgbI7m3qToSHjsAW8 HBiKP5a/4eciapG7+/WqgjCoGEbOFkUukMIYlADpKmW1DXF9apxmpigtXkK6 r1L36DJuxsuHQdMGqZtVZxqOYj6MOoeGY2UYD+tl0WE35cUw1QxU1YbDh8k7 /Baia6kfue46nyUFkfFrzZvlFtPGs7+QSemHxwYqjy9rZfnnTTpuuSboqkr/ XNqe3P44PUomWwDoq2yFySgn3SlqZEMKY5AfunkBS5tFGWIMzmEVU4V4yb6l kUu3ipcP49BSQfmbdYpCPoxKE5AdxTCeVqtj9uCKi2GqGVh9GGvLQp3t2/gv Z1eW9vNwflAdEi1bcij9cNgA0z1BzFmDtWuhM0FLQUbkw3qi65jMKtaW/B3z utbTBXbur5ake6/wYf5a+38PoVO56BiXg8xAL6Y/ODaQ5mUULo63ePgwDqdU qrhZZ8jjw3BTtAj5O3F4iKMYxtNqddSoBzGM3KDrl1h9nVV1ydJhSQbfOAqy c9GaD8PNQdDUsoXDBsiFQPROk/RVdETL/uncpsoX5pONjaSosi4VGjYGhnt/ LAxGgzCi46L2STpkVrWY/uAYoQzMkzvl4cPYZTy51Ksrixw+jL1HR6hFfm+H UDEMCakP19rxgTeAr5YF0sdQWBDGzJkitObDSFdmR3Jw2IBVutM0epeoN0aZ 0MPcU/KirBkN1BuHrwrNGgNN2YFYuyqFYsW39uEONb1TUm3F8TeqOk7y3Iex 94ucNRNXCXL4MKjKncGx5ZnyCBbDWLiw7VUQwygAPh/mCuftCyvwcnDU457M D+pEs8uWimqyUUVc0XrvNze+7UuXqdcSmjUGK5z9iJtl3VOy1nXiLmG2duHK YzKfjQ1DLs1ZMwsrnvow109MQirqWJ5e+K48ie9BOHL4MI5V41Qiv+ciXAxj Nt/6YiQBYhgF4J4jiDigpN6gqBmv7NbKDraBr7Xe5dwgpKaWLWw2gOFKyGY6 SJ0xSuhbt07CBdVNd67QsDFYcYyZiK66wJkfCLKjd9wZNeWk3D4f2xo5RPAn xh/Id/yURz4M07nY9rGqPCKVIIMP4+AbqDQwJVwMYxk0x9aMGBGZlq+ZE29v AZOml3PcKbT0PaecgipPS12gYRkn7tw0MZBnymwjY2uuU9VFY1SLho3BzHiS KGK7ojupWPt6XJ6Cpe2cwe2RodO1HZB20/6ePfFhSg4tbIt8Rv/0qynqXtdk 8GEcfQM1ytvEiGEAxUDnKxHrFydUKFCBb5fkqMbTUhdoeNnCZANYIGNxvnQs yGVdO1WjYWMgcVzUxHbf5h40q1bgenNvbHskF8s45INzxZyV1q0Pw+3LwKfC p3JI7sPY68NFVGCQFDFiGEBB0BqtgmuDcN0P1/3rq4JTbEqd5Y9cgC5bmivN isMGcLF/eB0iKGzvbWrhU03JF15o2hiclSOLSLsj5gv/XDGEszRUUatQDRSm L+xSA3Fjek48nM/an2sfpvDo2kGPs4u1Pui5uOOCHJiK4nMpXy5P+GzJ7HfI tr+jhoWFhoQ83+7FhalSDAWpfRhHfXjwvFSFKxs6Q4wYRnVUq77V6PolNHTG OewW1jTw/s2VnWxxPA1mqEnRdko2cNgALsiwc23yAf6xtD+hzpizWzRtDI4+ TN3ANUI2JQxM9UIatQZhbBSf3jn2abZfrb5l17jU7BLrlFaVD2O6nZcyL7xV TfbvAvpNScsT5nE4nuXRSNSXQVofhoqmog9NnUEYcWIYtVF9+1YLnW85OdGC 5H92tWVEVgRVANQNoMIIGkJNcQPSloxEwlnrwhfQKvGqxgyBRNPG4LhSBw89 ck/4t3G34WoXuNKUFh6Njwr5BxtUCew2Yu66vdunduY8mSavrD18MHHu2C4N 2E8ag7tFf+WyXbtbTBVFeWRPwZzTxz/pw3R9laxVgaQ+TPmJFegjIwxE2Mqf 1Cfm9TYxTPXqW43KcQ3E1GNCwh/IpCcwhIIcJKnXUXcFWRxA1BNQEhw2gAvS lnTElI8XBWtRzUuhaWOw92HEpduzDdatQ7th84Rsz3Zkdy+tH9q2ll/t0Lnb 3Po8xdmHE5cn/OdoLt7F0XT7StqqjyK6NTfqPZip/eq0HzZhyU5x3ov9FZh3 D6pNPzosDXmdIaEPw3n7JP4D5nj4/uXGUQyjyswpwClIVRaB0TNk0hM0493K nIR0WdJcMRAzp78bm1ajIcTbAC6oWs1PNm2qSTWvFa0bA1Wlhx3RIpKS7u6c Vg/5ptD44x46dNRJokeBrKuH33zY+lmRZ15VU3L13LFtGz+dPSP8hUYEyiNN +kVOnhu/bvvh7/PuSbDtYpPcRaeGVY1UPozJfG5Bf6Q4r8UNe2bNeXV6ME7E MAp3VAf4gHQpEmi9yDcI6TeNdGbREa1e2XtDe7aDzANIeRPtIN4GcME8SaEZ +ipA68bArUcnIg5z8+cZSNdIHntwNrDvPpDFivGMxJLfpZ06ePV8FI/p5Mrn mB8TmxpWNRL5MDd3TG+CfqmxRtQR9aZo2YthDMS4Q9qcfaolFftiGDGaj8+U LQLSgRAnlv+MR3bJYSxH3QUtXYD6AD0SLyh9ObwRbwO4sD1J7e6DtG4M3GRY oRmmlRVHJ7dDlvsXtlzxeF5gA/s++rGJrmouspVnxOp2PEFmH4btHyeZGMYs hQ9jqryy84OuqLrEv0b4V2fVG113FMM0bJ9UoPRVAZ7DHt8L3XOxcw7PGY8z 0RFPTt96S2uBdwr2LEbK2UZCxNsAJuhlQnPJ9QiaNwZOux+B8zlnG14nMPoY jz04Gth3U6iBTQGToyqmrD4M6p5J2VsKsw9TUXxi4cgmqIKoboPRW1XswJid iWF6x1zU5kpUTWFPXYWOysry3YMbCJjx8pMm2nIW1Cv3cgvbJUGzDrx4G8CE dZnQpBSWxguMwYyITKz0TbrM619zqqzw34OzgX23hRqQY6/28T/xukgByOrD IGIYSd0zNtoj+kkWZe6YEdoI9V/0LTst+UG9R0gUpftiQAyjbdBK4ELPlMuO LGzJc8ZDJzpjzwkZhZq1GrZLgmYdeBw2gAWqW6KG5xAvMAYrfyx/w892I13H ZHpclazwwKc96jBHUQIOEVAxjLvuXawYRpaQF9rKk0TSQgSIeyZh0fKKe8kD GnAXcHfnd47cv5N9YMuc15711yFfYzC0iYjLKMC0LzU9KDiZunr25ME9nm/q T9Ru9ly/yPfW/hfJRKsoKxM21oqvreph58LI4Q8DeEFdcYGdN8vuJA9s5PmM hzowAf2nadiB4eShaHjxxWAD4qHWLy0fJOExBulmbM+5fyN5SAvbotQhNrXI 7S8+uH9u/TvtaddHRwQER6Wc4+1YsIF9d/EHk3n/iED6tyRLPWYpOjsriFtz w0AMTpYmFQp1z/ANB1PxjYu5Vs7/knEgPWXjiugBXMeD9s0ajlz2ddrx0zm5 VZLz8/fpqd8kfb4gOmJ4u3r2pUiMbV9dwBQGFE9ZzndxlINUN6j/tPlJe9NS kxOjLX/i91DPJelF5SXHFoS3qqnTt+m2Pc/NT7JP4OxPh9PSt69ZPLV7c8fU eX2TtuM/Xrt9X1radz9k2+758p+47gjADjrxCi+w/NePk5+gjTk4Zk+VM15p 4dGPmQNTg67jtMTcUsEXrgrY2UbLanY8NiCS6xmRejnEmdIh3hgwzthiyT89 u11d2+10fW/jb8VVOmXF5w7MR3bitUOGb8m+I8CFQ8UwbuIPaOoxvhx2dpkj l+rfMw+npe3+elXszH7NuUEY2sEwhrwd82licmpaasYZZM2/dkvUWSjqnrXs n/43nluTvHyroWbTPqPivzmBrUiOyZS75f3O1nwDY/f/S7mERHUqik/PH+xn IMLfi27P/L6buhB3z85qJKrym3Yr93o/7GwgqtFV+dl9Y9tYJz2ngcT7d86l rB7XiT4wJX31g5jLUikAOttIKb2THEw2IAbrwbTComJRiDQGvDM2DkzXf1/9 r7Y2z4Tenx47nXPxclEZWU425+cftq1ZHNUb2c7XbfTGkp15QjcmrBjGbfyB FaLjjH/iWOhF27CDGMZ0+8rh9YvGDXoluL4P4VevdY8BUfGbM6/zO6mRxIex XMyLvcOjYhK++ubk1bs4o9AmU87atxtb7cq52KDszqbeyDGQW/VUUeYkx6CT 59Qnlvyq1fhwdeBEVBvmTTVac1m4JZqu/7ZhbA+69rbfo+0HvhX1weL4j2LG /2tAG6Z2t/HZHu+s/kbwLKcu2MwIgQ271QMuGxB3AQond4tCjDFgn7Fx8aA0 Z+fSwU6jEFz0DVuM+HDdSZ4LKwdWDOO+uh1biw9r/FMVPgwqhllx5krKJ30a +ugbNh8R80lSChmXm/kKeQKiD2o/N13728AquJIYaR0OOqJx68TLzp8mIsfF GbACtAjae1q8HKL494zNH7875MVnAmxp94aHmnbuPTJ6ftJ/zxRpdYlyAvvc DEREqnajMCR4bYA3zN5TunJeUiPGGNQ+Yz8ozT2YHD+Lluiw1Hmi/asDxn/w adIBHLVqETGM28q0x8Y9ST8KLbe2cQqiVTb0GPBqA1+i45TlWUXI47h3I3mY Va3EM29dK5QdX9FFRxtCv03nqzQEVkIvYSljQBvIlcrnZTChbx0R3D9da939 7FHUBmxVSbV76CzYGGDGpkDFMG5c2fv5S9tScV3Fjj6lgj2RtOJfY8SGH287 eLVMn1ydrt3Qw14Wf7h9PrY1k5vmOkMECVhpd+8D4IJpvKjluhYywy76RNM5 +70gqKugDdAtcmQ7IsGOYGOAGZuBFcO47T16efcA5lEoJkGXCMSQXDWZKs1b yKjw+RbwUTlI9xkidNUZF646e56o2XqSAE7OJ/civHNQSETZgVj67OARYkm2 V8yjStkA3Tvbgx5/akWwMcCMTYOKYdy50Eh3DG7griQ/I+2QtrV2iKdaP3Ld 9apNialX411BOTSH3Z0wjz1PlCG5HlA/leWpI4Po/WCfWbnaa1YnL+zj0tV6 c3mBV7gwitnAn9QpiSYbPZMINgaYsW3waVnCRmy47aqp0yjt1hcycwv3TT3q qtIW48MoXFsbL3e+nljTZgY9ZmS7cNVLcmObMOEqb/LiABEwZ6xksda5J/kV a6x25O5+nXpWfsTMH7znWSliAzYhhFaLBAo1BpixbXBax7p2ZatubE36Ni20 nZ/C9Nty56nSoUsnjpyGYdvWeDAbIOeJWp03AOyw20kiIGqrt7j2kmDri+c/ cIFXxayUsAHbtjoi7Y4sP4gZgcYAMzYCG1pxJykvSYtllCAGQ8RqNoedFPrW 0HaJA889VfaTEnc9kBO2OoH7lPn/7Zpua+ql0XkDkATbjrJunYQLWgzry0JB RuTDcgcr5ENmG6C31ZpNkhVsDDBj22BDK9boSvcZv1XlCl49OuZxttoqp7XN uc3dCI2XOEAK97mRbbM+rWYHjj0mc/bml2w35U4TxdSz8prbBzBhMp+NDZN5 G64xkEcUOHFTofc5ejLbAC2EcHeYok6EGwPM2AisGMZ6jwGtEq86i0GQ7Q8e 0z8V0qUR/dHOq361/eXp6I5aL3HguWwbOXrTdnsOFOSm3GmivDi5HhCPLdnT K4MM4qHDFDriqdAdf3lfUN+KjDagbTGMCGOAGdsGWhmGIihyhV0ntaLMHVM6 PKZr0z3pYsWFBfThXeDMXVRd4PKszb183CR2qR9Wtu3Op82ZH8Y8Ku+p6IUU SeaeEjrChqH0j767kw3amSqvHNtz/BqmftmAZik7trSt1T78B8zJBnNAqSjZ MzyI2iiF78pT+mokRDYboIUQWuyYKc4YYMa2gYhhiCdbtzFaK/4F9oiIW5+c mkZ2WJ4z8uUAX6QLW/G1jWRbbWt37A0pKYmLB/3TYOwTnaXpcETZrZUdGE+1 d8xFFzE9VNDrtjmmdkBT5l3vaFCnl1NU3BrQ65F4QfqLBdSNyXxuQX8/wl3h 0OrHzR3Tm1Az7fStt7zvFAlFHhuwVYbRYMdMkcYAMzYNWhmmQfPEqw8KTqau ns30NTA81LRj9zemx207dY1zuFJaeOLLRRG9Ols+Y2zWITzOVVttbcA2JeR6 qo6gR29eU5zKMuOcWfc8c1voKaEj2fNC6M8ZiSW/s+/dC5LrAWzcv7mpXyNr VLN5AsRiKGg9oV7/0pgTGk5+8BgZbIDWtWowHi7WGGDGZmB7KLiLP3g3tzIi PbMHJCXfi4pTmTkqd1dP4K8fJz/hQzu9XC0QKRt7+o0jWgvoAlKRf+rdFuT+ yNhramZ1WLJdY1vQm3VOzKk2Tp3UNkAlYhiIEXtk7zIpBizGADO2FbTZqCY1 UbhAfJhxh6s2qgf3kvszYTkvkyyazIdGN6W82UemfuW83DJ9jEjBLSV074+F wXqbRAoALJSf3TU8kJw/m0za5D3evgBM5tMf9KxFnr83m5fhhY1iXSClDVC5 OVrrW4fLGGDGtsLKU91VpvVy7hcsfda9D8NWofTGE23Tmc3dqYicU+ecGg7+ T4U+T2WmcYRkZL8Pg3c5dQAOyn9JHkieShMhC9KLvGu8eIrJlLP27ca66ujA UEhoA/cLDq1btuWUdp4qVmOAGRuRp2pSE4UTpGN1lSWAkK4WurYD0m56XdTK ZLqwbAglw7Prd1mcte/d0Eb6gFbvpV+8e2RhS2rg2NL0iv9Y1vUxP286WQPw Qe/Eq6sbU5ga265aRmBQqrkN2MBsDDBjX8+I1NNRJu1ponBjE7pUVeCuMCWm JeXvBTSJO6mh2CUfKopPLBzZRE8Oio6RcUl7mcQ0HyKgz7gdv98h/bbK8h9n hdWyDpyuM1bv3Zk0+5Xm1rx7rUclAakoy/52SvvHCH9i3IHqtY5XnlrXxbJ4 BHdP+Kl63bgj1dYGbEhiDNV7xkbFMGGJ55W+HKWhe4A6r/dIh0Orx36qOPvI mpgxfds/ZdQTtZs91y/yvbWHsktQj930IP/IluhhrwTX99E3bNZnzHsplzQ/ HABpKck/lLhs+69e6vxXgelSxpq1m88UeV3MVhjV0gZsSGcM1XbGZsUw3pMj LIqSQwvbWp3Vvom/sl6M5e2nLe9jbbIA+ykAAAAAUAP7hz9KqZqJ0ElZ3uCU icZUeWXnB119CcKvVuiEuKS9aanJG+YO7WS0PCQ/37CYtbCfAgAAAAA1kL9j Xtd6usDO/T/9AWILLGXXsjbHTh784jMBvoS+YYuQ14bOXJZ45NIdcF8AAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAA0zv8Dg76TWg== "], {{0, 115}, {748, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{671.0286458333329, Automatic}, ImageSizeRaw->{748, 115}, PlotRange->{{0, 748}, {0, 115}}]], "Input",ExpressionUUID->"94b6539e-ff44-437b-948b-689b249344da"]], \ "Subsection", CellChangeTimes->{ 3.746790794639846*^9, {3.7468324068772516`*^9, 3.746832407310075*^9}, { 3.751392990009074*^9, 3.751392990009355*^9}},ExpressionUUID->"f6449eb4-4bcc-4a10-9ae0-\ 341e0d85cc50"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{"Fh", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "=", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "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"}], "}"}]}], "]"}]}], " ", ",", 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.751392712158503*^9, 3.751392746426461*^9, 3.751392838620247*^9, 3.751392910734806*^9, { 3.751393013145874*^9, 3.751393024544281*^9}}, CellLabel->"In[50]:=",ExpressionUUID->"da10ca15-db82-4fb6-adbe-e4ef84890a51"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "2", "]"}], "[", RowBox[{"Fh", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.7467913000660734`*^9, 3.74679130814038*^9}, 3.746807032959241*^9, 3.7468331516324916`*^9, 3.751392712841555*^9, 3.751392839390808*^9, 3.751392911279395*^9}, CellLabel->"In[51]:=",ExpressionUUID->"d95b8895-15d8-4a0d-81ab-b04159ddcca2"], Cell[BoxData[ RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output", CellChangeTimes->{3.7513930382630787`*^9, 3.751562784385531*^9, 3.751727178134392*^9, 3.751730247699601*^9}, CellLabel->"Out[51]=",ExpressionUUID->"9ee8f8de-16d9-48dc-b731-44e8c020659b"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnQlcVWX6xw8XpEKu5fJPGccEMxe0RVFHBRwTNCXNch9xGrHBJTdKk0JF KXRcyiUz0yQmBUvMDVMuJliKlZCKpZiCmkiBC5iCo4Bc/vfcc84977nbWe5Z L8/385n5/P/M9d7znvOe93nfZ/k9AZNmj5iswzBszsOm/xoRFfv8m29GvTPy MdP/M3rWnGlTZkX/e8isudFTot/sPcnT9Mc3TP/ZYvo8/n/XAwAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADAhZozu8cFBycX3lf6QgAA AAAhwDIOOOSPH2c+4YVhHrquA1IvwgwBAADQGrCMA44oPbmgezOMQj/w9Zxy o9LXBAAAAHAGlnHAEZW/J73YBp8Wnl5dAtvriBkyeHbuHaUvDAAAAOACLOOA IypLtozq6IHPDSxkqaHibsWht8Ibm2dIQPT6ontKXx4AAADgHFjGAUfUVn0X E4yRcyOzoo7845F55Ax5cs72m3UKXyMAAADgEFjGAUdYpoHPQwNXUnPD6n9C pw0AAIBgaivPpn++bu2HKxe8Mc3ExLHhoSEhvbr3W5YBWWLCgWVcbTy4V3Ro +yefpuZeU3peG42FH01oYZoAvo0ivzhTY/sB0wxZMLSlJz5DXkz+xc4HAAAA uGKsL0j5O2aHdu9lQYqYQFS1jKvHuilI9Z97o7r54rETD4+er+ZUKXclprmx 6bW2Ho7nBq+PAYAUXDGM8fMf9kZC0q6DuQVFRSU3q60+YKytKL5YcPzb9C3r F07o/+TkTeWKXCfAEfx5FZkoPHns/Yg2pI33xmJ/hKVFEKpaxtVj3RSl7tjq zpb966Mea4sUu5LyzGV9G3F76JYZ0tQv9ug1eS4PAPCj3+nNvewd/eyiCwz5 7Nz/lL5mgBvG+j0jmpifmwfWNmTnTaWvR5uoahlXj3VTlgffJLSg1iQsYn7R A4Wuo7IwoZ0Xj30dOUN0WOiM/AbsiQHkhYeVbxUxOf0STE3tUFkw/3Hi0Xli o1aUgb9eACpbxtVi3RSnsmTrxL4tGzfr/q93MouVXJSqi46k517l4box1l3J 3n5Y0WsGGhicrLzOv9u0Tw+WgcdXUxjzPn6OeoJdlh9T+nK0irqWcdVYNwAA NAJp5QOGTZs2cnD3to+hxr1J++eGRr+98cDxa2DfNcgfH40kHyQE5QEAABoo pJXvs+EX8g/3/yRSt8rugodXy9TVpr2oJ4Py7cP3QcYkAABAQ8TGygPuARKU 10WuASMPAAAgFUZj0ZeLwppjYckXlL4UW8DKC6F2f9xD+r9GbvxWvRIo+Zt7 U5GX4A0/K301AAAAbgqpi+Wh69r/q2IVmgSw8oK4eSahZ3PMs1GX6RvUqV5+ 89MJpI33weJP1Cp9OQAAAO4IbeJV24QarLxQqPajamxTYqw/MN6PDMp3Gpb5 p9LXAwAuYnxQduyrhWMHBT7upWvdPmLy/G0/X1f6mjhRXW0tM8aFmur7kBel ASgTj7XusLZAnSa+3v2t/J1LSWO6NfZpEhq/o4zNlVJZkJ28bu1/jxRxzUe/ fOhfj3up0dDbBOWNt65kJy2fOgJfJDGfFl3ChsesSRFZItW0Dp84lLJi/qQR zGKNpk8E9R8yYV5CEhRrCEBi62asvH6xSCwKi29Js9DVVh5fNsHfE+sZnZi6 L3N77DC8a4AvNu1gqSQ/J5Sqq2eP7tjywYI54yP6B/kz6pWIl27a4g+2HT1X 5XwhIiQXGkFdjOoxGi+sHuVjnoqT9hUrfTVOsGfl7/9ZfOanbIPBkPlN7rnL FVqea7+tGkYeaQPC991y+tGr2a8+Yv5sM7+Nv3H9/pq8T5/H5UZV1o8MDcqv P30l/f2I1iYb0WF83Pup6YaMtOR5gzroMEwXEBSfyXlL44QH9wp3fxj1tzY6 VGOhdce+vZ9p5W0jvLB+T9EdDRxTjDXVNS5fpqtfIr11q9k9x7FOhlDM+7rI mLi12zMLykWw+1eSo9s+gggTlWW/an6pVaLxW3X55N7VCyL7ddDr2O6MGb8+ Ly/NKHBk681aix5Yyw7JJfIOA+DJjZ1z/M0PtMeSLBVMQyegVt58ahjTP6Ax Y07qWnce9dYKQ9FtDSzNVtTeTgohzIwO6zU5z6nnjA5k67GVv/IYa+l//90c w+Xlwj/+SSUbInos3p5hw19o6Y31nLUuvwIZ1N3raWPNfdJd1mKt/u2HZYPx PQPm+XC7wZHxm77I+fkCWoZZXV6S/03aiukjOj9CzajAAWu+56MzowRimD9P bHDcJRf2fjJYN0msPIpPs+6RMZuyHBo1VowFaUN0WI+VOfTrezMnmvxyRXNO CDfLqL+1amQ15BZPR4yZvXh58q4Mw7c/FBQVFZ3/Oedg5lefromfPK57Cy/z 1PAKjIw/XGq9Bao5s3ucnxe+XoXMOC3E0w/IBDEtTegjYvPvKn01LJBWvnfC zv9OCtbrvALHxmzc//2v18zHrfu3Cw5ue6uf+YzWTN0p5Xa5ahhLvnheuinJ zvT30erywDGHeT212qoDEwPNFvOx+OMqCIHTQXkzvo3Gf/bjLZsHZzy1uY95 vB7dx2QLvWpqUcICXpmTeqLEueGuLvz23YEddNRVqbwzl+JWXh7rRnvszZYo fctHC8f01tsO5dHWE1Z/kfXTWWf++lPfZ2Z8nfrR0tgoypYh+IW/lpTHMkPs UFeTMSEAC56ci+5qTnz8LHWDZx9VwhYS9v2lZ81tgyjM+5mN+48VO1UaMd4p zUlaGNbcdH9s8rWoVB/8di3Yr621VhtUXt0bN7Gb6eZ7Ngr8Z0LeHcHf89vq YPOTavpw4in1N3ahFW51nXqvOGLvhFVZsmWU+dyntfbZiOg3FpHq1At/K39u U3LhEFJdXpz9L9wB4uHRbbjhhtI+Dzoojz+y0DXH7K+D94qXdSQ/9WLqZQG/ Q5p4B7sI+9yrOPRWOOkrUrehZwSsC3/NzTYY9ny5IWHe0A7MeCu5wutDXov7 IDktw5CRc7qQtny2HR45oqB1q72bNrwlc3hsm2RbzAcEGzvoHb5gy7lKPi/I 2ZT+GBaefB79Gx2GU8KtXV2Sv3lKWEt0F+PjNXDuh5m8vJ2lJ5a/YNrxIobe ssyaGZ8OEhdiU/3nnvEd0fnYdXmOkMXaWH9y8UBiEeuamKXaFQyBsPIeWPs+ yYWOI2ikFZOlfbZ4nIrtQT5OXyzxF6d2CAlkB635ScBvkX57NQTokbE8Hr35 muOLOTDuMfKhCuhlc+t8QhdvIZb6/o2tQ6l+uCrxfvDijx9nPsE8qErxUihq 3WhtZNdeCvzMezR1yjPN0K/SD/gn96ZX+JD9glLLkD/dv/FxbyoM93JisZz9 ekjlE+Tpe3p2nfhu5kVB0czK35NexF8E3OV7p+q7mGDqSyEoLwmMfo44Xl6z tgnwiFG5WB5Y4LBM57le6uHa8RmBj8UcYsnnubBkIDkDW7fdWKSF8zwalO/2 6jGnRxEkkC00tfXe76uCvIkdxexvK4RdsiigY5l9xFn4lrLypj3esMxKPr9h rD8RF2r6lwx/MncuGcaRWXkeHn1ezRHsN1MI6r5RSNABVlnrZhutcKkGp/Lq nukDfOkvMx1gX9iYz6FSAH+FH7HagqI9mKx2QZJivHUx5bVgNJaBJ68eEJ5v gEPtGIPCBiHeEwjKS4LtrO6xJo/39uz+9aRws4fYExuY9IvSfluxQU6IrWK2 87IJykAH5dmc8Gh1uQt92KsMCR2Jl9TK0Sovhyb+hdNYHvxva7gPeYf4lBXg FO15Gb+vD7UL6jvwH1M25fHO36M2jTghH+ZpxTtEULAoBFkqOJRv8EVp6yay la+nigXoFHSuEiJl3+8wnL+N/uV4TFfyOx5vs/GyTKtsdeF3b/VgeiQGTs+2 yZ0TwJ1db7bArIGgvBQwz/ICo6vU89LUQZ47dOTadJxnnjJUCRqUZ5F4Rfuw v/TeVcEvmOU4j2GhG04rs82rKkrwp8bi3A9Pf5L3afTsolCmmQveydfOX94z 3PLPtfa+FC0ZwBg+X08IB5S1buJb+XqLfghq6PnLgd7MnUF+hU43dkWpLLaw 4oct41qjXnpRFS+RRcMCBOUlobbq6NLIzg+b8ySFNW5WwwovKffLVj1Lz8MR O/5Q+oJYoIPyrAnJF3a8QI2r3XtZrjw7eqfXedC+60rMAmQsLD3lUTvLKw6I bg8EbRJwUE+CvK5X15HBylsjr3WTxMqbqL6d9kob9Gv5ViGhJ195liBz9Tpy xRJkIN/+cvrD6HSCoLxaoZd3AecajYCGI9XuU6KD8uwO1dtb/215hadmubZe VxYmtCO3/QITOF2DHgtbggHi6+BZPGip56LNnJDOtojfW/Y0KteQ38rLbN2k svImrh6Z/BdG7mLgogyu0a26mj0jW5L3XBZ3ogwmHud3QgaBehcgKK9Oqv9M 6k8eTLQRsxYEYuUFZWXLCRKUZ73Uo1OfFHEXTacpKuGIpsfCtgwWLgm3PE1+ xYNopR7mtFjPKYgpkfv8cufA0vDgEITgoRPfXLn7OMd6QMFW3njrSsaaBZFD +qG/HdKvR+KPTg2d7NZNQiuPVKOQcK84vmJ5qXVNpn4udc5mzc9pr/gyboJU QtZMv5baD1ANFTqsr6n+X8ayn9dOGBCgf7hdxISkn9kLmhhW3jVRL6lBg/Is juv7pau6eYm5izbXQBEIq0MXTvXNj3tQYxkSd9HJA2IuLHxb05YfXBXxBD4Z cMXaz4RpJdFCDQRyxiLrzu5/42VrjUfuy7gwK288nzHxSetae1yafuLMry46 XTTktW71Elt5m0i0DouYX8TBk0MXj3hiURkSzxZrn4OHR6+x2eVSHWzo8KLr 7kRACoz1WZPakdOVTUZVVZyM7Um/aGFzC9gSnRlW3pUsNelB3xoW/RA6PC3S Lpo2oJzuqphU5M4gRR90j721y9nCSfs6MOxRbGWB/M/S2sq7mBEhgOqS0x+P YKhk4JcRu5t1kRVi5S0FOBY8PXq+sbGAg0SMrNbNjLRWvr7+xpbXGAln3tik A2zK/Ggh4dOjDyM33HitIN3A1Q/DicqSDWHMhyWxxBkVaNNGYnNDpCwnmhLo ln+lEg4duea2UtEasByMiLKgQXm2t6Z2f5wl9YVxnKwqzTFkFQty0NGiInos 8bSMvh0kYu58WUYSfjwav7qOtVufJCD7K8ViQBalSgsc9jwCrPy9/XFWBVP6 sUs5uX/ltG4UUlt5ZiQa47QfRlxkfvN2o+nRuLZAW/GKGRFlMwsCdSE4Q91w NhccoBD0gilYUEUhkLM5B6cZIohqbRDVBn1QZXfC06d+Zs044fMXGH9BViRZ N36IlZ+a7bhO5MHdtGGUzdFj8XmK6DBbneV12IC555TYONoWLLM+Mt5W3qqz AK/bLpt1Q5DcytOZBhQ+2LwfnN0QunjTaueM74KstQVcofroqm6MK5ND/sIS YdTSObHhgCbGdBqWqSm1TnP+1UPteg4Y/dby7KtsxYO06RSYUy0bSFCeLbLg uGkdbv07Cn2gdK2ZvEEcpNrRiZWn+tTgKKfHa2XlZalHswtdpEY9MradIW8r b5WvyCeUI5t1Q5HcyqNhCOqeOEs5QN9T5q0jJvP4vSLVHRC6zSje2NRDkktZ kjccgvLqhHY9CepyoijEC8Kxuh8t6lS5WBl9PGd7KJRaHf5Jz6hP6EUGT8lr 5EqmE61hImfUGzkzRhlu2/8M0QbFbJ4U7q1j6b2irJVnJiJyifLwtvKIiAEB 1yObbNaNiQxWnvn0MZazA+KkYiTT1tUc+negiMUshe+/5MO4Kq6ZgS5ivuEQ lFcpPATWVAjxjjzxzMbzbAf5ysvLupNbXLW302XkGzj1AzPTaBn9OMxuUlcy ne5un275ZjklXyybMUeVBeXpcZ2IRbWVf2KeZL4nY011DYsdY5oS5aw8uiUj pzi28ldnF8/Xytd9u/wJptHkWvMul3WzQg4rX2YVmnfadgFxhqBOKsK7PjKN lzqzY+j2CvQlyXCQrydnFATlpaGuutq13Cj62Ki1oDwJ3i6hkS4kMsOJ3B8t TSlIlFJm0Oxx3JZ1Tr5qb8XGWzk31z0V0pfS4kLXMbz6wKUl1FhfkPJ38ovl dfJUnJkf4OXIJ0yVAJtuS/tFOWKKN1Vfu5CV8lH85LEDn3tKT8uVY37dB02I Tdxhr/U8s/GZklaeabWtTQnb59mv3NZoOv9+GnmsG4cLFt/KM7U0CRy6OOg6 JtpJZW58jAVMSRJHT8lY/+ObPZiXI9NBvp6aURCUF5HqkvyU+CnhAWTumb59 j8h3N+dd469qyyeXmy9Vl3J3rIiLHPhcK8v2smnrkHGvr9x19Jqg3YSj01XN mf1TujbTBfSa94Wdb8abKUeRnZhaDZvjSoMGeUaEelcIbIugK3J3zurR3APv l1F7YSnZNsWS2lSTnzLYy2WZYnp9Zu+IJy5VWcvw9CGrdqjGB6WGdRFm34Uu cMDan0Qy8cYHZcd2vDvh+VaUU0TX+qkBY6KmvTl/5ZoP4me/Tj5uT6/A8dbC 0cwTtJJWnhYM5GaF+Vp560au3FU1ZLBu9pDDyhvr94xowvwRp1k0lOdNHz49 df/XKYnTejTGAsbMPyZWDbt12j+ObHoX1b+fyco8WHALjLw4lGd9hK91ng+1 Cx8du+T9heQCxbVHEgPa6SSmLKHx2rmUWS+29LSZcxT6Hq9s4tK3Ef3O0ykD HMcULL+o79x/wrzFG77YazBkpm/dlDh9RGdzkaA+sH+svT2ACkeEBOWxJ7t0 1ZvLof3CohKT0jJMg9qyHn/i3p5doxJzysyPu7Jky6iOHvjxNjDms/T05BUj /uopQlQCjfayeYBFxlh3ZdfiYJNt9Wkc+npi6j5DRtpn8WN641s1H+/wuE2n K8S5GNNmaeFLz/oSBef4b727I/eSbSNOXPDtP68FejNfMetouJJaE3zP2nyt vLWvgJfsv9TWzR5yWHlap5HrnTQtI6nxk18Mekrv06JL+Ki3tx4qE897ihcs WF+MqnOMAUcQusSms8ya76+SEwRNRuLZ6tr4w2r7uVuuXOGRTSOYOs/24Olx JcbIVrxjPmvPnzRicPe2Zi9H0yeC+g+ZELsk9bvTFS7ENWQdEepdadkh+eqD sryMTxbMHBnWq52vuVNqzwGj59g4kO+VH/98edTgPqbP4I6dxC3nOGiVsIKe VeUvPMQdVgkzR/Z7xnSU1rXuGPLSmHmrkw9fui2Obagqy1gw0p/atjUJGZ98 mmWTZm7s1QizvGJ0i0PyDVJQZ0nVVl5i62YXeay8baBESNsjUbj727JAqzVK JplBQFyMBWlDdHbO7GhNB69EKdTRJ0JIxWgs/PyNIGaKp2M8sNYd1hZwcj6Y 03GVED+Rf0Sod0XpVBbUT8uisqspqn/7PiG0DRl798SC39l2kZt2EJH41zUx q4aRt0Dg5TVrm1La0LZGLSLVWchbZisvP4pZeYWym2zTI2WTGQTE5N4fG4Kb Y00fiz9unVd8ZdVQy6PllSiFOofDki+4eIGlqdOtZxpBU/+u/tby1wS+wxey W0Xi2PsIi+iEFMg/IvRtVTyVBVkqvXRTkhWRnhEdc1CYOvXwbdFFPDhz00bb ULgUdoQjfI0aXyuPdN/DNFEwpZiV556XKCq0KIHlGbUN2XlT/guRkvJzSbGv T1MJi9blS+Ao+WPTPx9y0OUQ8azya8KCdmJ1cXJWH1vfFxHU1j8bFrMq+fDP lyosG9sH/ysrOGHYvHzi39rQKcye7Hm25mOvfMmiFhQZEd1nzUlVjkygqi9q b+7DEYaJN71NcXv59qkx5n38HH5SLs15nRmTZW03ICHWivqsRo2vlUcXCmXz DDkij5W3/RXXF1Ih0P2q6OmoOfETVuzebQUR/0HjXb8bYf49t5XYHO8Yj5jP aoxWgvhiib+4sIjfODU3gLwGXafQhdud5rnVVuZ/9nYfUjlfh4XOyHdyt4jT UyOZqj5pFBkRndCljswZWqddAws7K1YmnpPXxRZcFVDnPSp2DqNCXenjLUNR H2Nt08DPyjMaQGAKavlyp2FZeUbtLYn2xE/YMJ75coieNT9KJnRPdk0S+9hD SFW3W3jAjqlBZKL5eVbR9CFXAm11tUdmdie+JmDCu7nc8p/pJdepboMyB3ml RnQtJ5qKFqtiK05LmihtxVzn1oVlvSxdXTywtl2SLwt8SfGDbTM/P6rBE/HS K2z4bFIBnSfT8rPyzAYQImbqSoc8Vh5VjrIgv5W3rb3VqvhJQ4bozeFAaNSq gIKrJlU9cw13IYhjaY7Asbe1hZq8T5/HXeI6n0mb7Fs0hQ7ySo0IDcrLKTfn EFrNXgMJV86ovXtoanf0NXFFTMBuNFbhJArbsj6nhbH8rLyNyBtDZVGVNKi4 vLWagRvsyRsguDvOQXsIuquj+eGa84L4fC2319wJ1be3DsE3klzbUDL5bd1o HydzsmjPy/If5JUbER2UV6Zhug1oTIe7EIr6QNT+zbPdNWFVu5nVSidRWOVf sazzvKw8Um9LDlb950TFrLwSrwmaRG1GTPETQB7+t3vOIw4OC0QukOXh8imQ RDN2hFv5umOrO5v+ud2EAS7c+31VEL5LseuCwGVadVL1s3CEgiOicpzYIvuy wdTwVCR5WARIyVyarstzXDl326ztqkiisK6lcrrx4GXlbYR8lR8sKwpZebPG RYnov8MCMzcS00RIBbCifPc7gZ3abzhnZ4uIWw1u77UNYlh5Sr7SFf+nuTuJ vTB0WU70I3J0Rmag6IhKdy4KbuHh12fYBz+IqdAuHLew8kRxCo3LfhLbo5Mq 5Eesm8M6CyLwsPI2sQBVDJYNeay8jXmVWwvawWVgfgv2u+gKvPfNskDMGX5P 9wkhCQ1Cy4p9sNgfwI8gHhX5c1siE6zHq8d4iJqiVl5o7hC+sLi8t8dtn53W 9heW4PLsroqx88X9RuQKzORqTVp5a00wl3VorRPOVSQ/QkwwLiPlYeWtsvfl 6nHmInJYeev9D6ZU0qytlXd9sDaxfs74YvEn1B7Q0RD39sehqZU8/ZBiVENX 5M7wwNrF7napxIo4Pj/CjGfhGxglfIPuNyLXEFFRQRGqDyZY6Rq5miZnfWRW 0zPFsz4QHDv3uFt5652D3ewg9SGHlUdzUykUqV+TwsrX3/+zuIjizE/ZBoPh 613J7783/tlm1mPGsICXY9Zu22swZOScLiwquQknedGoq9kzkj7J8/dDqkjz hJARQzU5b2x5zZuUEtUkbjMibVt5pCEaq+HjSv7m3swlztIKUHmM9WcSwpFL cygKzdXKXzs+A1EYMN29yN3FEo9BHOSw8rZV6golzdpaeUv7P9GxqdrTYd1G H7ZWYwVE4go6x3TYy4k82zgyPfZKhJPoK8ElwREdDyKBrVnTtRdUkGcuBHcZ Ed06R5tW3vbc7bLsJ9ozAkePJZ5WU+nBrfMJXehHhvli0w6W2n6Kk5U31p+I Y+TtK9BIQigyWHk79k4hR4dNooiEYsu2ws6KC3G7Mb+vH4Xeav59hMXJsRcH XNODbullznJ3XHKuCdxjRNrOvrNtKOOJjVpR5sqSZKsCx3t3LTlMZWYPj27D DTesx8zFyldlLeuGfEb39AvppfzvXW3l2fTP1639cOWCN3D174ljw0NDQnp1 77csQ9LJJIOVt7WtSqXcWO88pbTy1s12tVBWqVWsyuSFRAbRNVBpK1998+Me 3qQ/QSlJW3FxjxFp28rbWepd7ax3hemkVWsq2o19CUFIXYF+1OKzzE7ErFae qQbMs6syje1Gi0TqA6DkVt46q9OF2luXsRY0ECPH3j7Wgvnu2BNHNTDL5LFW MduFmGhU+05plfID45piAeH7bhELqWoKxl3AHUaEWnkNat/Zipa4GK9kOtAU 6KDEnfLMZX0bIYZ+4PTsUnr+Obfy5Uc2jfgLvZjrAp5LPCa0tNNYW2HO4io8 eez9iDbkN0p/AJTayttmddrtIyYT5pxhBMlS/a3bJbjsHONFA+hJh+JCmTwC auWVEHNAwd1fTXA7Qgj2aqnczAHuMCKxOh0ohLWVb+a3kaVboFMovSPLe6fO g7yFypO7pjxNZ0TrOgUnZhRUmc94jqy88VZx+qLIzg/T/1urobMMxWJsT431 e0Y0IX9O+gOgtFae8M6hN1C5gzxxPYxMbMxOGa8oEPpsKK46x/jg/j3pUKzK 5AXX/6rppIYvO3ps7RnzQtqqc/JV7ZlEK9xhROg+kPBLaAprWxY45jAPQQlr mMc3jaSi3Ss/siYm5P/og7lf//Hxm/d9NbsP4874D9qUfSg5fkrflvQn9YH9 Y79w2oqRF3QmpBwHQEmtfM3x9ejtMw0o/OOflA1OE+3MaHyweT+In06tbFDe 7XvSoViVyfdYk2f7xtQd/7RvWyzxpNNHgKo6KNkdGwdfkD2wWf9ZHqjFLDV7 uMOILux4gZrUrorJKAHTyrtWLnr/elK45bXzwFp3WMuxbe2dS0ljujX2aRIa v4N1V1BZkJ28bu1/jxSJu3Qab10xbHgvqn8HvY7D+uXTNGjs6yt3iWffiWtA gowyHAAltPKMmYAjsIWxuNjIOAsM4zpBgooVwD5WzhkHxVnHY7piXuwbrUMT /2L5pvHpShoiQmrpyXbtNJmlZg83GBGS1UPXC2gIZtWPS0dIxlnJEwtdc4zj lodqGcnBGXI1+1XCH+piZMExVVfPHt2x5YMFcyP/1gZDedR/aPTM+DWbv8r+ vviuJMdsWktNlgOgVFbeWH926TBE8M5k6Z7ZeF5xG4/DVHJ2qbeyXWxSEdTR Hdst4VImj2+6dNjTow+zbeaurBoq8lsgFOqt5HTZmsANRoQslUjtv4ZgKNi4 cJa/cWouclDicXajBQfYnSF0PZQeW/mrtB5tfp1nXYeuQJRJKlAiK39j5xx/ 9Ev1jWIOq6PlRL1N3giG+U3fWi6WnbdORcBRROivIWBVGmm3CznRnYqLJFft /jgq0cbLa9Y2BdU9LPsNt9FYcIMRoZvAsOQLSl8OfxjlTkLbcdbVHplp6U1v MlJ/23aF89JJy6N56aYkOwuUonbQtfwBLsht5ZGgvDwHQPGtvLHuyq7FwagV 9W0U+cUZVdWK1+R9+jyabO+LTdonjlZheXpcJ6sbquVW1KrGSpTj8TYbL9sY EEpEnVP2BR14VVjkllx23GjmuMGI6ICOZrUvEBl2lpbrjmAc35r6xR7lcXZD 5dFQuWM70OUMcthBua084lSR5wAospWvrTy+bII/mtXQrOWk7eoy8QRXkqPb IppIQoUOGFhVZZLfLE0aP8BUKXHgrsc7VnCu5KX32AqXzJuXHU2meDlC8yPC hX28XLGPqsAS7DbDVyKSsb7xP7vR8mi+WOIvTvfQiB0MWvMTr4sUgMxWnvZA yrXptW2pJviuVuTunBvaBrXwuk69V6qkN7QttpkDrQJj0s8K3JAYjUXb3ulj dvgGTP78M7orBATlJYOpRWbHFUx4Fz05p3uhzgHpo4FOIBouaNe5bYvmR1SW /aplPzkk7qLWUu8s/LZutI9lIMGTczlrS5Qf/CCsKeXwF+CeRYPybH0iaDso i9vEur+JpIW0xvoD4/1IiyPPAbD2btrwlowBskZMbLl/u+DgtoUvPeuL+sA9 PbtGJeaUiSIg8KAsL+OTBTNHhvVq54s1af/c0Oi3N32HlFfUVlcLe+mMxsJN r7VlXDbWc9aHudf4XXZlweH3R3XDh++JBb+z7eI9RqEEi28KEAyzo7Htfa4y JHTkWcmLbnpH7PhD5AvmCLEeatm5bY32R4TKZgrfq0i3lHHn/vW0UR0ta16P hIwK1l98cP9s0htBPq6dhuigPNvBB7WDMlQn2VRdmZbxkWmSLdo2QXnjrSvZ ScunjhgU+LgX5tOiS9jwmDUpfG2QBWPl9YtEg9TzP+cczEzfsj52ONM0kzuZ 1hNWf2k4drKwyCGFp77PzPg69aOlsVHjurewLs3Wd3thKSUr5CLVhd8mEvuH ZgHD3lySus+QkZYca/qLz0MDV2ZW1FQdXRrZ+WEPXdf+XxUL+j3jg9JDG1EB Q0L6LDJx4+Hz11mci/j2JvXdCc+3Mv9rXUCv2D2nyFFbcvBYfVOAC1CFOXaM sll6uhG/7CDmYi6V+jEr13KidXIkHcmH9kdEny49salZQvy5ki9l3Ck9uaB7 M8twgt/ecq7S4bal8uzBJcgJrknIuG0FtwVsctCgPEswGlWMEa9ikTZ/uAH7 NTfbYNjz5YaEeUM7WDcqxfHRh7wW90FyWgbRJdyC6+3C0aD8+tNX0t+PaO2l a91hfNz7qen4lJg3qIMOtyZB8ZlChAIkl0TzfLhdxMQ1Xx8XR0AA8YHrB/wz /RKyt6mtPLlkpI8nFvl2bBD1464UOBtvXdzxznhUyZDAr/ugCfMWb/hir+Gb 7/IvkHMjY8fn65a/O+2V/gGNqc81azPq3c15Vruvy4f+9bi3oj1MGwBIUQ+d RW/auRnWRZh2bgJyLegVRmgSssuYdX4UTv8TF82PCD1dCih9knEp43pF1379 5B/dLLZb599t2n82fXX0ZOHFyxXVuNZ64akfdmxcETMEOQY2azN65a7iewJ/ kQ7Ks7p06CRYMUM8Ypg/EeYwEozwDBv+QktvrOesdfkVyCjvXk8ba3a28Exu FG+YNvi06NJvSGRM3Novvs67eke0oBviS9cPfD2n3OaLq29vHYJI7ohxZK4u OZW2ZPZAf3tbOwf49R72xkdpp67b965UFx1NMZySRlYBIKHbRZm33yvfi4vs h6taCc4JwSV0COwm7UuP+QIULuUTF82PiE751jWZ+jm/tgxKLGWceHCvcNeq kXZPskx0rTuOtz3F8IIOyrPr4dDqPULdJnZRhZWnt4vEs240/rMfb9l8ofHU ZrNmrIdH9zHZ7pu5TSXAO5OsQaRNRU1jeHCvOPeb1FUJs/8xvN9zT1mpIPo9 3affsDGzFy9P3nVQzF0N4ALVJfkp70wMfoJcr/Sd+01aKnxRIurrCRQIzVPO BDkbH0iL9kdETwlPLCqD30FbyaWMCw/uFR1KWzOfTBWgafpE0AvDpy3+IPWg GPpvSFCeVXOPkgdXvmmU+KCyqE40A+8VL6MCh3zrILRC9bH1fT3I+zB063mH M4LOepW34xvg3siuWYFiydtUVmJXRNxgRJS32QMLHJbJp0kNLGUEaFCeZbNH 9+xWLGQmIUhQ/vHozdccuwWotH/3nA/1t84ndKEKLpwXeiB3TLvHBECFnF0U Sq7qsldGk/mEbpS0qfkRIeevdgsP8Mg5gqWMgg7Ks/aBQnp2K5b+KhlohaDz BtmUlVdYuEMiUJF5502o6fCNZqWoAJVyPm0wNQll9ZiRtYGabGxqH+2PiG5L 8Si2soCH2YGljAQNyrNtmxGVaabzp6o0x5AlOPdPJVDyiWwVgmiNsGTNehQD LV1ky32iwzfQ8Q0QF7oZAWfdPFH4nfDcarLlmX20PiJ6JvBsoQ5LmQU6KM/u hKdP/UzrRvj8tau3gFNVlOBPeTSc++HpT0os0aMEt7+c/rBlPoTNLXCyq+V+ xwCAP1SaKy6CF58nUzGkJXypYY04JpofEa6QbMaHWysECljKLCBBebbNnuOm dbj176hxqXCkQpAlLkOHLdwuBZHZK5xlWUDCN1pdQAA1g/QWbBWzXZ7ImOUg E2W4LcsPSo7WR2Rp7+L7ylIeLh1YyhDo4zlbOqtZrJL8pGfUJ3TFIp6S14h3 DaPK4B6XQfZF2taSsgNdlMpeKfm/3XMsXRc0uoAAasdyjmvWdO0F6d3N5EHG jXbvWh9RWU70I4L8ObCUWaCP5+YT+oC55xxtlq4emYxokDLaqZxN6Y/xrmFU G3Rchi05oXBJOMd9kdYw1hek/N2ygWG7D5R0iWYXEED9GOvPJITLd5wnw5ds Dl4NoekRIU/fb/rWcj4yybCU0dBBefMYW3VOvmrPXYGL7jbXPRXStw35UbQ1 6snYnnxrGFUH3dOQrdsRsz2HPK1pZQNxU7Alabh3TSWgHizFUNJH5zUfwrZB 2yMiPTke2FOhO//gd/mwlFlAK+UJAqLXFzFT5Styd87q0dyj64DUi7UXlpIh EotgdU1+ymAvliIFDVCRO4PUCtY99tYuZ8EfdF/Es6xD/SAKhMygjC10JIt5 x4x1V47uPVYiRiM8ADBTfXRVN/NU8x2+sEDKmUWGL0VV9VQWDY+otmrvOHNW hjcWubuY77+GpcwCEpTHnuzSVW+2dH5hUYlJaRkGvGPawgnPt/JGGphWlmzB W+aZO999lp6evGLEXz31EbH5Wo9N38yJpu4D6qawBcnb5FnWoQXQSknnm390 f8jQIDXvgsKSL0h/sUCDwVh/dukwH4xNvsxFLHXlApqhqBMtj+jGzjn+hGGa s/0m/2UWljIStFK+ZYfkq4zGu5jnQ+16Dhg9J3HHiRJGPOde+fHPl0cN7mP6 jL59j8hEZy3zNANi5admO968PbibNoyaETJW98iFsf705l7cdjsFi0Is92Hl r/QEcIeaSkCF3L+xdWgbc4y1w1qJzvNkvpYbJdtod0RkGphO9/fJx4VkdcNS RkEr97IFo92e+2WrnmW38nQBr9AdptpBElOdvRp//DjzCS9yf8isMsDzWJ4e fVhr3kFAA5SeeKsjfirRD56dK0U9D1FL64mN3yt7fxyJ0OiILDu69n2SC4Xu 6GApM4M2ftJkboaIIN3oHFZSIBJMHt2GG2644w0z1mdNakds/B6d/YV9LUMy akPA1Fi4+9uyQB3dZBwARMXS4tZ/xlaxg2VEVrY7NZrU5oiM9ScXD2yMB4Xb L8oR0rbY8j2wlNWjFWFssu0NAUvA3ZEkTnl6XCdiy9fKPzFPQ68NP4ynUwYQ 7h27+1jivfB9KrQXUW7ByGzB5aY93S+QAaiImp/TXsHjiVjI0swKcQ39/bKs zau3nXDBsqgNzY2IbATvsoknvgyWMroiTJO5GeJDih7bLywl1xbXd5jqx2i8 sHoUkelk1Xu3Mn//W6FtdK06v5158c7hZZ2IN8hSe1L52+rg5j5ul5EIqA3y RC+FoQcUpTwjobuIaywsZddyonWkp0J7uRnSUJW1rJt5SryY/Att540PSg3r IsyKQLrAAWt/cmsTT1BbeXzZBH8dfit6Riem7qOqLbywVhFTd/56G49V1NX8 OD+8sfl2Bc/9ZN+u1AWDOpjLLbXu4gI0QHXBN7OCmmO+2NSDDeB9bBjUndjc V/Q1tmEvZWhQPjz5vNKXow6MdVd2LQ72xjCfxqGvm6aEISPts/gxvfWme+Tj HR636XSFO8biHVBZcHhj3OQXg57S67Am7Z8bGv32pqyCKnRza9r/HN4WO3ZQ 4ONeutbtIya/nX5J8+8FoBmqSrOSV3/1i9vGzhoaxks5GzelSLHGNtiljA7K u520i4tUl+SnJMwc2e+ZVt6YrnXHkJfGzFudfPjS7QZk4AEAAACNc2DcY2QN XeiMfHfYtgAAAAAAQFK6c1FwCw+/PsM++AECWwAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEPw/fMte2w== "], {{0, 113}, {674, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{586.4010416666662, Automatic}, ImageSizeRaw->{674, 113}, PlotRange->{{0, 674}, {0, 113}}]], "Input",ExpressionUUID->"ebf02131-adbc-400d-a4b0-edb403deaf90"]], \ "Subsection", CellChangeTimes->{ 3.7467908610581846`*^9, {3.7468324242091866`*^9, 3.746832424517336*^9}, { 3.751393055510989*^9, 3.751393055511248*^9}},ExpressionUUID->"78ebb825-030c-4621-9b13-\ 4621d38cdf95"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{"Gh", "[", 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]h", "[", "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}, 3.751392713523842*^9, 3.751392747972975*^9, 3.751392859122904*^9, 3.751392911701079*^9}, CellLabel->"In[52]:=",ExpressionUUID->"e61fbb4c-1e28-4d58-9ad7-be20e79a348a"], 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, 3.7513927140589857`*^9, 3.7513929122531548`*^9}, CellLabel->"In[53]:=",ExpressionUUID->"91b9755a-2623-44e1-9fad-746382b1bb16"], 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.751393078387075*^9, 3.751562784481082*^9, 3.7517271782348557`*^9, 3.751730247804338*^9}, CellLabel->"Out[53]=",ExpressionUUID->"2ed5f620-9445-487a-98d7-0747f2cecd91"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnQl8E2Xex58k5bA0KsgLVEQsp5aqy+ULFBSh3EUUWA+KSpEWELCVw2K5 ZC1slZXjVbmE7S6lXHKUsy1SUCgq5axAuYrQgrYcLZSCpdfkbZKZzDNJk8xM npnMJP/v57P72S055nkyz2+e538GjI4aGqlFCE2pW/1fQ8NjXp08OfzTYY9X /5+/fzRl/NiPIsYM+GhqxNiIyV1G66r/OLn6P39pEDL+bwMAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACgRB7ezcu5 VPCAEvFWquTm5ctXisqJXxMAAADgOpQha9VLCIWnFot484ONE1AdzZIc4lcF AIAwys9sezs4OOHSQ3dfCKAoaIXvuuy0iDfnzOuF9KDwAOBu/vx10tM+CGm0 Qb2SLoPIAxgF+99D2sei1pcKfSNlSB76GGo1OK1EissCAIAf+SdmdmiAGPR9 PswoFGN0BTyT0rz4tlr0UuTRMoFvLMme0UiLek09VynJdQEA4JySP1YPamZU dp1Pu8BWWrPI94/KvOfuCwMUw5HoIOSDog7eF/Su0t2xDRFq8Xk6bBcAwD2U XF8zvK3GKO+o+/zUogdF+6aF1DOJfEDEtzmCj+WAZ2LSak29974uqOL9noc3 V4c0RLUEPxcAACBDxf2fooMRLe9pRVX0Hw9+Qot8yykbb/Nf0QBZKktz9m1c /l1S5g0FuEUeXI0P9EG1Udi2PJ7vyF35bkOkRT0mnlLA5QMASQitzbI/zmxf /X8JqSfvSCGzFiX3rdNnASPvVv+EK79cSDtqtVB2d3t4ez/j4Uqj6fxehgJ2 wbc2TGyENKhJqzkZN5y+uDAtvlstJOiJAABmyi79NK3TE8rdGxBam8bYRX8f s+uz8+JMwmpHUZe+Gdmw+qP9aoWtP1NDPkq1yM8MbawzivyghNOyJaxIO2r1 UHV40XMWz/djyog2LCve9EYzZBL52Qeu2b0lqKrcrZ8F1zbe/37vfJULPlaA N9S9/Ixvozv6Gm8exYZgkVmbVeXJwxozn6JDw78sIOisqpb3lR8019iXd0Ev I4iko1YVlT/MbUjPgxYNnJGjEJ28djDySdPz19evx8T41HM3OcE1VEVh1v7F I4P1xldotM/325Hvrb8fwBtj1vOZY/uTN345eVRwYx9m+StX4cmszYri1d1r W6QuNPECwaVCn6D56LZF5Ov7xxxyfjZ3FSlHrTJKrieO6ta4XoMO73+alqeg w2r5md1jg9jAWv8OfcMix0VFf/zhuIhh7Z/SWgJuO722DrIqAIfseftxhKFt 2mbE9LgRLZSu8KTWZsmhlUNbP65t+uzoFT+StISXXJrbwkfAtpwWeZlcZlKN GiAHdePcv8f2ZndbVvjqe0z5+lSR9z6cAZ6cXBY1/sNJsxcsWrEuef+x88bi RQ8LFr6oeIVXPGU5B3dk2rej2kJV5e7feEBJO0nA7ZRkH1gRGzmoY2u9eeOu q9Oia7/Rc7+2Nt0AAH9A4QEAADwVUHgAAACnUFTOhjm9n0C9Ey66+1KE4LLC V+yOraN/KgxsvAAAeCp0PotGG9Rzc56qlM71PfztM3M7P4F0tdpNWAYp+QAA eBqsvKuwSCwRKw1TRxHqrgAKgqosOLx51lt9Axv5aJu2Ghg5Y91vN919TUK4 fTr+5WZahFrO2qM2WfEgGHlHTdssyVbh70DKDn9l3/uNfIiJPJG1WVp4ZP3i qGHmD2nbfciIzzcf8fy0felHbcynyCHFpbw70qyaipIj8SOf0aHOEXFJO9M2 xgw2lozwQ+P35kvydcShDMdje9BpDP1jf/f4+1aZUNTFRcN9TXfO6J3qLBZB ztNafvS7V42FBVwurkVibZZl753Wo5m2wVPDP/1X0o60zYs/7mb8nQifMqjy snKXg5SJfIgZeUZdvm2KnbhtF6j/dMeeA8KiY5dsTMsuJKD5uQkRzR/BMhSM HTeQcirSOIXKWtsLQQiEm7m1Zcozpt+g07x0Ndw1NUE0lib/P2OeMG06QpYe E52S7/raNFVi0epDIlItAeeUIX10C/OGqM/q06RSR0hoHbEdmqpG7RDfBh3C olemZ98XOy1U9qYBWtRpQQYbRn47I4L+cDT7eAWZiZCOsuLEAUwad/XCDAjZ ecfdl+R9mO+iavQDY049cPfViIZstGTF/T2jAo0b+fqPzz5yV8QHEFibRnuR zrbdhrG7pREtGhB7mdCZV0EKL+OoWSvNhd8y9qbtWPPNrDe76G1H9ljTkYvW px8768hGc/LntJRdSd/Mjwl/u0ND65RO/5APVh+9LnirUFWeMjIABUdm4vuB 40tfZOY76pDS84dMNSfxmVRGnTSvouTqomBTKYn6deNO/uXuq3EB4vHwefvf N1pVNJr2Q1JvCdw2ur42jcX6nkY1FWg6GdOJ5DBNcCzSl85n7k9NTd6wbO4n oW041SFofPXdP4j9KmFTSmpKRtYlVuau33ZVceQddQ1UPNg0pDF3tD7asQnC FsbD4uy962a99qKpiKhl0mqHzFxzrkTIjXR2bU+EQhIu4H+7unAwPQ+N2yRc F3RZsnPr5NQA7sNOFecOT4IynPisj7mhQ1BcumxlYCVBgown2lYjwiDv8tq8 t3Vy9eG2hgLaVRWbBpm3maKaYwqF7sGNIWXFYCWM+s9vhlk90DouPibmg6jK gkNJY19ogH+Uvte7O37na5w33jD+HZMKsD89vLW0S216Hl6Py1NIVckaYR2s HMbtV2EUh2phXIoaFDg4Te32MSlyWkv/WNjRtKD8UNSPRfzf5+raNH5v3ZqL T945NbU+LbW68OUytEu1KvIm4UFbGaO2NVh1XXZa/MeVXEue0MuP/TCNNqjf ilM84qmMtTQfsSqSTB1d+jfmg6z2D0oDc7ByUFkepaoxt0pEhL1XbkOaqgX3 U+e2NcuylcnFAa6uTcqQteql6t3OvhqeKdQvi9oynzMw6aqAkYgle053bIFK 5yxTyqgJK7yBCanSsnPIM9+k4OfvUy8U438x9rw206jZiisKXrK0g1Xz2KOP Wk2myAMRIBzzidhDNvAGyerSWLbxCPVYlsVzUbm6Niv/Ksj9o8YADNaG4Ifi TssRW8y4OCWYWyuUMWryCm/g9LdlRF54zvjtzIn0R2i1b32Zr+DAcnNTP02H d3avnMCdSx+fj9aBIV4ORAmXopGs8hj7KHyu786boqaK1NpkzdHVz+U3D8gS +CSfwttD3lFLovAGS587FqGha8x9aGTo938SuCSJMDtYdWjYpquV+ywtb8zo tGGLC919gd4Aq1oBwVuk788jB9LVljT3xTAR9EWGCIkntjYxc7RsK8X9Ci/v qKVSeAPW544hcE4K3/QTtomhBjXlungUBeNg9Xtjfk4lbXnDFR7SWuWg7O7q nr7mGW8SvdFDksykrB58cV4fZg8p3KJFbm3i5ujgZb/xfNe9PfNDgrtjBIeO mrxgG98KAKIVnrqTm7J4ZtiAl/Hv7v5yp7hfhSXViRu1aCRUeCw6i4Z/iHJu 6lv0e7SPjvuvDB52cdAOVsu4rlkum7541P69w2oOylYFbD9oTwpPlbQ+vCn6 0cygpCvC3ktubbLmaCE/XNXZ3R+/3jMAswKb4VkBQJzCUxdSRrW0jqU3VuYZ NWnzZWG3nLhRi0ZShceto7Ti8WvXe/u7kfQ7dCg8Ral2DiaDlT2bWLL8BN4/ gHgsCeDyBFTLhqQKX/lXYogvPWm9p2YLCQcntjZxc/Szg9MEJtqWXc9aOrSt hrPcUIuYbU7nSYzCW8K0LOg0nT9ekS0o38eMa6MWgbQKbzDcWvMBLvGoNhq9 x1mdIjzU9vm/H8Dmn7qRvSNVKWXozA5WjruKXZUMkNYqNQUZEY8wC/zzdE/w sZqRuMcTu5PUo7gs3jtJgmvTdXO0JX+ZXW5oQbaTKxCh8KW7Y7n6jvRvzRdZ MUx214PUCm/4w1yeyAKPPQN2hPT/ZBseZ2nMvGiujGIvmIOV/aMxcpjzQJMt BsxrKd4woS6zeYj5Vd1prByk7uKHrTIBT0Zya5OIORr3+fIci2CFpwx7Rvhz 9R3NPirS9iqzEd4gg8KzfhkGX/TJL47m5+wcJjnUandh3D9YZ164B46DlfMv 1hlzkNYqKbjXT5Yzr3xIrfD3c+Y+Y/58AdYtgmuTjDmajdtkxtJ9YpbDsQhW +JLsGY24XyHQroUjsxHeIIPC44Y7ZoocOWjYbbD1TFInV3VFaMR290dOWjtY MZiCQizyZOp5KewJ0eMCU6XvxM1mLfEwbhghuDZJmaNZhwIzV87CewQr/MXv +3FXtHhjoOxGeIMsCs/WoGNnNWSnvdWIOSvbfXGY/XtV+b4xgYpIV7R1sGJw 7x9p5hNgqPyBTUCQ58wrH9Ir/IONbIIer6ogBNcmZo528VTOPqfM6NGC844+ TqjCV/34xdPcFS0+BYDcqPkjh8IXWJnijSbTqIN2gkixMxFu3yg7tLA94hq9 3UQNDlYMm/mEtFYJYU9MHmaEr76RTq3tb8km0deKPkA8j4syZK99hf4Cficg cmsTN0dzHhbCsd1TObaLClV4W4UUbXclOGr+yKHwthEmDk46bPAbCk+lS2GY mqSggLGr3V9eskYHKwa+qzSvHXkq5nkjrNFA3rQ4qqIoj3DLy8qj6yeMHU8z bszwl19owvXYI12dFl37h0Uyrxk/5vP0a64OhFVsfokb5NYma452+dFcnDhG UoW3rr7rgv2c4Kj5I4fCU4bkoVYluXTotc+v2bP8Mcmw+pAJSbt3rY0b36ke CnhzxuFCd3tY7TtY2VdAWqtssGdD5/41l3hYnP3Dpi8nvx/azUZ4+aOr1W7S v+3JoHkZPtqqfXcedHvuKS2RdYobsZ0ZN2iIrE3cHN28+5bbogdgROgeW6jC W58RRMc/Ex01f+RQeIPh0LiW3C9xMrHUjXNJsyMHdWyt923YLmT49MR9BQo4 gjtwsLLYprV6UhqOksDOvFIdlIyJ6guiu/+PdRczkTTwX+F+KyMH3Ig9Ygcv TzWBtUnUHK0ahXeHEd4gl8Lb2srUlwrk0MHKAmmtcoEfz8nnOlFVudv/NbAp IW03Yp0ipARwE4RslmGy5mhbBXMcveYuhXeLEd7gRoVXm2vMsYOVxdbpoLyd m2eAB6YS7rRi3cjGZXR1W/Qc8tUviqt6iS1/4e07xULWHC1UwYQqvHXHELEe H7cY4Q1uVHh1pQIxDtbQxAtO9orWAbq8LZyuU3hudcyH4xXCnK9PSexgxpPL SN5L+cf/0aOZFv8FGwQMnjwvac9Ppy6bGjo8vJt35njqfxaP7Yq/TIOat0u4 oi6PC+42ksthxBYCJXKosfV8EVZ4bg6j2CM54VELQB6Ft/0WNSk87WDVov5T z/K4ZHeltdY4yW5E2lHjZyWCpSHyT8zsgJU68a0dEvvd0Rt2BlJatG8a3ulG hbWLryQPoa+dpDmRKshaHjEowM8nMGy2lRO2PGOhpf0fmV4t7BDMaB+fttVB XI8whWfdo/SHo15Tz9n5dFlHzRtQeKfQDlbexSi4xzoj8nQwoc5sGKAnaDd2 CW3LoNWS7ghZvxU5n07J9WW9LbGuGtQkMHrHWSfH6Yr7e0YFshUOFd5u0hbW bUQu4rSyNPnvbPcfjgGNLdKo1b4SeYTIKQ+/E4w4cbsLU/jSvPi2/D5c5lHz Rh6Fx7PnLKhD4ZlmVXwKk5rJXRgqw5R6O7g0EYk9q3iwb1wHTN5bzcngZza/ sKk/9lsrvGW8NWx1GnIPSm6GI7u9oQxn5w/2pX+yF1ZcILT8re2iTkJnhSm8 Tbam3c7LMo+aN2CHd8y9nZ82r/5pWvfY8iffvZnNlDo5NgJiIG1eyE+awCan 10bD15zh6wzjHOTVluCGG7tI1cIqypzInGr0/aMyzdNRWrQvNrSxDpm6Nvdb ceomgS9iYOuhme8Hh4cRQQqPB8CYbwy7TlLZR80Ttym8KtrxFJ2ZwdPBimFT yAIKFxAH96+RUPi8/e9j9vRGEatuCLEwYXY5taU/cEO/yGy6KMOJz/oYp7NB o9Ffb0tN2ZW08B+jupi80vUbhs5cmVVE2JBlveIcFEURqPDchFaHBbVkHzVP 3KTwGtS4TcJ14t9DFMpwZm4Ifwcr+zZIa5UcogpvKpylsXzaM53XXRe2GDG7 nNrSH6RQeIPRKH1p54roYf07NDdGHfg/36XPW2PmrPr+5E1pju3WBX4d5UcI UHgb+4+TroUyj5of8ii8TXiJChqYUtmbBmiN+4HwDb8JqkKS80vi61aDlTSn 3hvBFd5ReAOvzzJVvrXQaUGG0N8K2+mpTeG5sSKqMJzWCNNbnLkl7J+kBCi8 VZRObTRuX5FkI5AKORTeNkRc+dW8GQcrCdS26lUAuUBurJqWuA28gSMa6vut pUorkJmcZM62yr6hhr/CWz81XGj84UbkUHjcX8+g8GreJgcrKdRgklIZ5BQ+ l1NHSFxA+75RT7K/NSi8W6Btquyiq/fe1wU13RV8Ff7GkYn+WOxxbRS2LU/i MUiCHApvXYyLd08Zd8E4WPusPi3GO2J7ZlFdER6lw7XSuGDx4zQgc+ihs0vZ 7aWdLFKgNosct7OwihW+mjsX5rbDSn/6ofF7821fxUvhmSqyTp8XykcGhbcp ma7s845IBysH6NYqMYQ8rZxnsdh0ck4gtOLNj1ZI5Gl1E2WHv+3Gpp9pNO2H pN6y3qPxUfj76fHtsddon++3I19ViWwYMii8betSmfN2BUE7WF1op26w7SzG uzQrwA+8P5ELCs85XTqLlLCDVaiews2P1niWwldza+fcjnXYEemHf3a2hCM2 ThXe1NPEh30B/9w3RSK5wj+4Gh/ow5lSUc4smRCewVojkNYqOXhOq1iFtxJn cT3TOek2qsjywMEV3lNsiYVp8d1qYSLfZ8L+fPbJ5VjhCw+uHPokq1fagL/F HVaxvBukV/iyvXOt+tg6qa/uVugMVqclgp1hO6vkC5jb4lW1JXGFF+vI5hjh xZUve3hraReL7Vdt6U4Gacr7KICSE1vHPs9WkNM+GxyXkn3f9PPaU3jqTt6O OWHP1WX/rUnoR6l5qj/USKvwVeUpIwM486nkDTzjYHW937d1srMsaa3eW1tS rDRxohxFFbexiqUP+iJDqTe3HfAHZUDIzjvuvh6ClBYeXMzpz+Xfc8TsVTs3 R+G/WLUi9V25f1/C7LHdGrOv1Af2jFl/6IZifYVCkFThy498i89mtXiGLD2m 0GmjHawav3e+ynW1iAxuJWZG7qAvLSG8q7Yk7iTVoahDYrbOmMKL3H5jJhpl 717scfH7fq7NgMKh7uSmLvs8vGcbPafivx1863d868MFWz1E281IqPBszUwa vyGzspV66KEdrA0aLzhD4hKte/m5mncJ2IJFoYt0ZGMKLyqo/nbmRKyaTVBc uuqEAe91K8MmxI3cv3b20Pdrvpo5Nex/uZmMjz0TGjFp9uJVm/f/nPdAbQ9o Hkil8GzNTDPuqZzJF8bBSmyRWid5qS8RRvng7mxxNy32CWJqQv658t06lt/X Zd+NW8CWv7dUQBXa40ntSKTwt7ZM4Sicvlb0AeW6pE1Xq9F0eHP/XUKfaN2t lVx7BYChYncs4xYT6ebAMjWE7+ELMiIeYX5e1SY84k9Jwr1ulQoovKsKT1Xl bv0sGMstQ361wtbzrrYtP9cORj5JxsGKY5305EGBCkqBtSGLLVzAxsMLzEWt qjg4ydIuBLWcsvG2Ou0brKVL3vbQbgQU3iWFryg5Ej/yGdyp0aDx6I0Klne6 cRv59ri4ldgsQuK8gYBd2JqxYtdpVXnysMb0Jwg5ZOHtQpTsXXICW2/Bi86Y 3qbw3BL3Ruy2qXJGUeaWqdwm9dpnuyz4RbnGGerO76uHt9W4sgm0j2231vDU YpJfAOCVb/VowXkxZvCyA/HPMj/QoKQrfN6CJ9To+3yYUag+8zsNW29BiwbE XlbnMUQo3nW4rniwaUhjrg75aMcmCEvXf1icvXfdrNde9NNgH6PTBYXHZRQQ aRlTWXA0ZfnMScN6v9TCDz3a6m+hEdNX/pTDngsqysqE3pxUZX56QvgLlpwI DWreLuEKuVs8//i0trW5E4tazNqj3LOMOsH3JyLbnbNlorUoODLTWTIeLu9N Bk9WsbxzszbkyMhTAuacFxzS5lm7SKFjVt9QcvOyuUXFhd8y9qbtWPNtzBCu LNMPtaYjF21IPXzikv0eF5dO/pyWsivpm/kx4W93aGgdg61v328+k0HmImWX fowzPzsaBAyePC9pZ2rKpoSY6r/41umzIK2o/P6h+WHP1dVog3puznP2fQ/v 5lUPfM/WhH8x3bW4aJ99ZfqKDenHTufdEfxgKiu8Rk9L8sYln3KyJ1j8GoTO +W5n2g+Z2aZJvPIHkSnyZnCN8p+5W+R0/vnrpKfp3yswdnuRvU8pLTz4T8YC qdN0npyQUyr6whUBm9KrQ+PSPcpUwWqdcVmez9yfmpq8YdncT0LbWJcENOKr 7/5B7FcJm1JSUzKyMNm7fpuUXZWkjtlH8pxHXd0WA0ct3nWETL4AReWs+7Sr KVpC3+vdHb9jqltRcmLeMF8dCpse05H5cicR0RX3Evs2sH/pnGEIDgy+d2ZG M+GpRmCZdx3WFO9S2d7yM7vHBplujxrPng+Lz+5YPo7ZFRg3MPtyVH8cowx7 RvibBuSw/ag6IaF1hCy3ZHVM8lHb4Nuw3csDwqJjl6zfdfTaPWIHPYq6tPKD 5qbzRc2mzrLixAFYOpXToiICFF7rP/6/wg7fWJt1ATRCC06rqkqVImHLeDZq tuKK+BuQunHu32N702cv38c7vvF+9GdfLv48dvw7Q4KYzHf9i70/Xr4rT+Vb dxq2Io3IoppKRikKT1zHPIXchAjTtDgyj5fujmWmRoOeHZxGKpQdUBV4fUiR pniMkvMZa/85bfjLLzSxeFF0dVp0HTAyZl7ST1lFHvRAZudNh8JTPGsHrxhA x2qELeOvQ6GJF+xuy9hIAB0a/mWBVziKABtYQ43aum+4FaZrgwYFDk7zpIJj igF0rGbYVlzOYhtOrerC7LPafXFYvisEFAZT/suLgrpdhX0sQoiXNICO2QGr 9eGkFVRx4hj6dV6TjgfUzIVN/Zl7hmdMu5fDdm1QeMdk1QI6VjN4tKozx9mh cS3pnZuoyt6A58C2IdCigTNyvKF+liuw06XiBtOKBnTMDsUbJjC1pJx162aL N3qH8QpwCNuJw7UGu15BTvLr5rnyRZ/8AnNFHtCxmmGLhJjMg46T7K4kD+H5 SsAbwLqJNYne6FHZO6S5OK+PeaL83pgP5x3ygI7ZA28Z6SzJ7q9tUyylW6He C2DEsjVtUH/JRTA92MFS9BgOOxIBOlYzeOc750ERTJ6L+C7MgKdB92GEbbx9 sCnyn5BYCI9B8oCO2QVrx+AsA/1h/sL2PrxeCXgVlhA12KDWCH3M0aDWPbb8 6eEmAXcBOmYPLNHYWUs11njFbT1GVeUe2n74ukqrdQMEKDu0sL3ZyKzesu0S UXF/+9smV4VqO1KpAtAxe2BN2Zw4HbCnJDdR3dSyx0uakQE1Y2kQ7DiR0Puw NNZUb0cqVQA6ZgfKkLXqJWa8jvtMsc01uH0fzDM2+7gHVQ8BRPDwVmJoM5MV tM0S2MebMbeqRFrtK5FHPKzKmLIAHbMP5oN2NDNsNW8NCnzzwAP2X4xuC9LN +ABVwnRg0fePygRBszzyWnVNuASPPIkBHbMHZUgf3cJslXosan3NJVpLrq+h ++4h60LuD67GB2r9P9kGdzBgMJZ83/a2v3EFPTMx0avTNinDic/61KuWkSat 5mQot6Wm5wA6Zh8qa20vs2e5xkeYeVr8Wvd4qZmtI8NYakMHERQAS/lvm97w My6g7vPT7HZu8mzo+uQg77ICOmYXirq4aLjZTdZj8WE8eqjk1O5pPZppmzw3 Pe3yPbp7MhZiVHJ1UfATvlBkA+BC7+S9VeQLU+Z2gN27/ICOOaCi5Ei8qRum DnWOiEvaaewnO2vkq018UJOB47acLzY6JKrKf50RUs80gcFTl+/cmjSzbxtN UK+kyx55sgFcoiz7h486PoH80Li93qVyVcdXdauWj8BeS45518AVAeiYQ0qy D6yIjRzUsbVeyzQlT+e29qYq8w+si3mrb2AjH23TVgMjp3MaIAIAzv389IRF m097QfscDOr3jBUr12YVQcSo2wAdAwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADD+H9+uKAM= "], {{0, 114}, {502, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{456.1432291666666, Automatic}, ImageSizeRaw->{502, 114}, PlotRange->{{0, 502}, {0, 114}}]], "Input",ExpressionUUID->"025abed0-8d40-4f83-b25d-a30f6f685a1c"]], \ "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.751392687243217*^9, 3.751392687243429*^9}, { 3.751393364819536*^9, 3.751393364819746*^9}},ExpressionUUID->"602701d3-e105-4d1d-ae10-\ 91f651b2c81b"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{"Ab", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "=", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "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.751392708472478*^9, 3.751392743888644*^9, 3.751392778881392*^9, 3.7513929081847258`*^9, { 3.751393460981185*^9, 3.751393486217782*^9}}, CellLabel->"In[54]:=",ExpressionUUID->"5f89ccf0-7af7-4553-b6fb-49ac952d4e07"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"Ab", "[", 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.751392709592078*^9, 3.751392779396138*^9, 3.7513929085015297`*^9, 3.7513934868438396`*^9}, CellLabel->"In[55]:=",ExpressionUUID->"061090a5-fb29-4fc5-bc24-9f0b38fc5e94"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "2", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Output", CellChangeTimes->{3.751392933340622*^9, 3.751393501424675*^9, 3.751562784581517*^9, 3.751727178333932*^9, 3.751730247922201*^9}, CellLabel->"Out[55]=",ExpressionUUID->"ab76b756-ebf2-4c15-abdf-2911098562ba"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "3", "]"}], "[", RowBox[{"Ab", "[", 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.751392709906418*^9, 3.751392780098948*^9, 3.7513929088157454`*^9, 3.751393487271359*^9}, CellLabel->"In[56]:=",ExpressionUUID->"c150172e-bab5-48b5-807c-807e8c9babd6"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "2", "]"}], "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Output", CellChangeTimes->{3.7513929334442987`*^9, 3.751393501523747*^9, 3.7515627846528473`*^9, 3.751727178406066*^9, 3.751730248026969*^9}, CellLabel->"Out[56]=",ExpressionUUID->"e6f2a208-7cc1-424d-9ea3-d73877e94e98"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnQtYVNXax9cMSIZMXvJTyOMFNS9IF0U7GmAmWF4gS007QqUWqHkjbxR5 Iy9HsxSPqWkqpaJJecOMwRRLsRLT1BRTMAUt8AJmaArIzDcze2b22nPfe6+9 Z++Z9/c85zzf5xlm9uz1zlr//a7/et/gUZMGJSoRQlPq6v5r0MjkZydPHvnu 4Aa6/+fliVPGjp6Y8Ga/iVMTRidM7j7KR/ePb+v+c173ev3/rQUAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4 ce+vkqLCsjsaDn+qqbx24cLFimri1wQAAAAAgPeg0Z5c+xRCI9W3OPzxna3j 0AOKZUXErwoAAADwRqpP73glPDy98J67LwQQGaMa6bHqVw5/XDS/N1KBGgEA AABI8OdPE1r4IqRQhvbOuACCxMsoy30NKetP2nKX7R9qtDsH1UdtY3Mqhbgs AAAAwJsoPT6jSyNkQtXnrbxyLhYCUlT9cXrXuv+lq3+5WevGq/Am7pYsbK9E TyUerWL5h5UF7zVRot5Tz94X5LoAAAAAb6Hyj3UDmutViI9vp5C2SkqQ9J2U /7d7Lke/YRTkS+mibmn5oEfE4UhSKPJFkw7eZvVXd/ekNEao9dz97hSvAAAA gNypvLJhSHuFXoqgiAXqijsV+6ZF1zMogeCEFUWsE/e8qa3eObipKUnjg4Z8 UAbrnCgYdIWi3mvLy1zXf/eurYtujOqw1jAAAAAAQFNz+/ukcGSUIjkVtcZ/ PDjdKEjaTNl6Q+TcRM2tdRF+ZjESs/EciBGRuHNpYYgv8kNxO0pc/IviNa82 RkoUOf4E+IwAAADkS03lmazPly/73+IZb4/VMWJYdGRExFNdei7MFmN2N6sO /wf6LDZJEYv/CVcpYlF5aM2gRxsom3UYtfo7kT/abdy/W7Rv6yefZuRfdee6 fv2L8U2QAgW2nZ131emLy3MWPl0HsVIvAACIBKEpBSx83oFGW7DpGWQDMXbh NZrCj+Mb6z4soE7cltM2KlfpBMmMmKY+ekEyIP1XKG0lIFV/7RrZOUC/W6ZQ dHstz42bHlW3Ml9qjgyCZNaBy3YHXVNbvH1OuD6DpQj4z0fF4F8FPB39orxi 7phBfbu0bEDN0g+17dwzduikucuzjv1+W2orNaEpxdstfMXqoUGtYt9OXbd9 b35BUdGVG5Yef01NRcmFgiPfZW1YMTO+V5vENeVuuU4i6L9LkY7C44c/7N/c qEX8UPJPAi/+Oimy5o2WCvtShNXLAH7UHl7a0axE67u7cMflg4mPGOYf/4DI 8QvVZ68xfoCamvKTuWnx4Sr9KxTKx57PKoWdNMCT0dy88OW7wzvW1T2XPdC6 R9+4xLGGPPYr4S0amH+1QT1eXJBdIB1NQmZK8XYLn7EKk4soQyLWn/3H3ddM An3RhocM30mBWkZsuyHspxlz7K5oDLMgaRiUfMh59h7gwP1vUxubIhr1f6/I 3amG6tN7RofSx72DujwXlzhmUtLbb41JGNz5X0rTv6u6vrAZ6tIAHk1VwbcT wx5GAY1i5qw/fPlvxmp8/27JgYzRj5t+KT51Oo1b5Qbbvy3ITCnebuFjoUYC +ydm/e4pk6G+aINYErSyMLW1L4t0h1GQgFlRMCqvbBzxdNN6jbq8/m5OiSRu sebq2fWjo5r62vnt+asipyw/UeFlkxPgbZQem9beTxnSe9nP9h/EzGcSKYk+ bIEkBAmhKcUbLXw0LqkRZavOYz/dW+ZBOweaoyufNH27TosOC/1xVUUHs/Lt uwKs0dQW5249II2FEhCNyoIDq1MSB4Q9qqISIvpM9fOjUpdbbt8AgOdRW73v zRAU+Mjik87S78Yq1kZCZmfDcXePwKhGgmPHjh1M+4UoHmr7ZEzCO6u/OXLV g3QIxZ8fDzZ+SRFMIwAAAIBDNL+s7YFQ6Lz9rkzHf6559QHzQtWo4bLzXpdH 8ESsunfpG53rbZ7cep3Lg9qazAEGVyBSoLbRu2XsyuXE3fIjW9ImDX4upImv sln7iIHD5351BE6TAQDgRs7MjjTkA+u27vufxfuKnGiSy+ph2INz17Sjnrtc eQ+8eonKFcw0ooxL8yoxUlWwd1pkc2Wjfw1598OMrJyv0t5+2l9/I9xTBhYA AHHQaIq+mB31MIpKP+/uS7HF/X82RvubxIUCtQzb/KfD11fdWNnVvFnjg16Y e9nO81TNnpQHVP+K80Ybhi0kHQbk1YgMRv/E2u6mOA5fdcrdVyMehsPsSlV0 gtrsSNFo949qTf2g+6z7FZ4vAMADMRZXVChDe31VIsl5+V7ZkicYZsUxuU5c c9+80oBWLyFDD9yx87obp1O7PSypAzhuQ+phIEBuRPKjf+PTeGMU+6NZx2rc fTlicXHf6018rHvzFc3vTVmVUb+UCxKMUAAA+ECvQb0zJHxC/NCYNrQWadJ8 9UUnz0YMNdI2NqfS/ktNDdO9OgMsgzAQZqdGyqOv0X4zPMgYwx1ic/5y9/WI g77mZwtkq3bWL8ldXfpFyxrN/bLDX80cRlll2vZPfG/zqWvuviYAEB7TGoSa tVtWIM01yETpsfcjm+sPkzVqOmqrs2IIjJ0dJeo99azjEh/6ZzFfkksSkSlF NAufPMJAMN8I8dEnhZVpRHOzOHfdojGD9CGB/Bt3ihqYlLbJve1LiPP39smN ka3+JrShV4meSjzK5hyppvLahSJSFJbcFOyG11QeWRjfygd1S5iXsTtna3Ks vh9QABq7t1SoT7TAVAGYL9Z1kgHAARrN+aVD/A3RPmq3PHob3f6zyKUDFPQ0 rp+76k/a4nSRqT766bOGMiUEOpOSmFLEs/DJJgxsqZF7f5Wc/jlXrVbnfJt/ 9mIF1/OvJEefILhpZMXJ4qwP+zfT6dJ2w1N0IaHOzkyf/lw7nT5XBofNynHm 63aGprqqmrcVg8Cb3P1jSVhd2xUCb56Y2tCozXxGfvK3jT+2S/WOKYg4DVuE 9eoXl5SybGtOQTkZfVKcntDyQaz0XFnua4ZckBgdau7f2fFyK6WzL82WoMe6 93n59eSln6l/kV7DDkAyXN82pZUhYLrO3+9hFTnwglHID43ZV+HKX5V+9ubD SO+Ri175M5+5nf+UIqaFTz5hgKsRQ+ppaK/geoypT9ms45BpH6iLbnG4P6RG nyC0acTPJ2rg8039ULeJzCqXd65lDjPU+uNdm53Eeu2D+qb8zmvFMQ6xzR+s 5sel7U2f1D/jkujfziH+jbrEJa3Zz6sbhaYgs58SdV2cR2cVbuQlGN9feNcQ w/kvCEE9Xpq19ZDnVQQCeEJFvg5V/+QT9hyeMkWjPfRWiOkXoEThifkurrI1 t78ZEWKY2xvMOsJxk57AlCKihU9WYWBcqrqnbvtsVLhK6RsyLGn1nh9+u2po EHDvVsHezdN6Unt5nI7JkBh9ktCmEQMBdYav/8l6n46qw6PXul2G5vK4ammo Ef0ea1nxHzbXdLoKXACa9yu7j6F3as6dytubk7Xh45lDu6usv0H9ZvFLt+z/ +YyjfZpffsjJ/jrj4wXJI1/p0thy+Q6KfmPd0Stc1tva6uz4YMvJ6tjKJ0y3 dtIhwbc+qsov499x07yxXetZ3qHWw9//KvfHAif7NBcKjhxQ7/xiVeo0vHkN hUd1bQD4U3lpabihn0vDuvN+8YjOYjhFO180h34AmvSdS4kRIyW5r+t/gApF 54Hq6+yfsPlPKWJa+GQWBnRleGWH7h8ctFW93NwXwAdFLMhhLUh4jj5Z8N1G HxSZdth26NwtWWhKGQzIuMj50xjOisLf8nPVhtVkekw7Rs1bI/6qiDdSPkrP zFZn550sFMMtgFeBc3BEznVq7mQObMr8Vr7K0ensfgYGDTzzhScCFPjN8Yue seFsJcv4ObOpF0LR6efwf7u0JNb4lZu2S7/C7v2IgJ0FoO58bM5Nlm9x/15B xuyoh30Z7xPYdnYetFkE9JP68Tl9KM3rYmlTOaFfzZub457D7oMxY8/NQsB7 ShHCwmcb+YUBpUZ0YqxHeqH9ZyujotCv4APSf2X7vXiNPlkw00iThLVX7V+M ackQpqces88C5xvLF8w0QqoKHJ1sMRGW9jOXN9LcLzuE9es0oOr9KqsMgH6W CArLKMP+6d71ld39jD/5F+eViN+913LvhrVdx4xh65kpSNr+e3Mx+Ei8HZNh j5PQlTzm1QRxNnzqfXSGSYBtXoX/lCKMhc8msgyDq0fGhzRI2ufEDHx+fh/j jNes5eoiljMej9EnC2YaQZMOOtLUJjUi1LlX5gMyQvUVy4rIf4pjcNMIqSpw 1ptTvI5rVV7eOa53ALbgKkOfX33CtZN0+vbcD1qISdz8ZvGAIxLMitaIvV0H x+xPM9+feq8tLwM94s3cu7Yu2tDc3hPrGZpPRnCXIgZuq1PbU/rBdc+Jlv+U IpSFzwYeHQZ4ViEwaSvb9Znj6JNm34hHjBqjZcS2G/Zfhx9mbxS0mndoWFMw OwJfRFBw9G7R5SudxyDn5ySsRrSmw3S0T4JF9Z6yH75Un7uF/8uRpFDj27hQ XkkI7n+b2hi/O+ztOgyq/lrXyx9/P91QTv9R+hvEgFBQGwEyeyJ2kcsHEx8x JAN9FN0mp/M6Bmt+QEYoctVJ1ycCvlOKMBY+azw5DLR4HkmBmjFTVa7AdfRJ crsotRV1Cc72X+hXCpW1MNmnTbdU/MpjuGmEXBU48mpEay7dgwsSTpWNb+SP N76LUjnsg1J35BBMRjXjZaDOrx3mpx3odJ+JoBl7IDvipUhhmhUIU0VNFPBw TNpe/m1H6PW643O7r3G9VaSmFLIWPg8OAwpmH4FBXzruaWQDMqPPh/NfPm+6 /k6LDjt65cWdA806QRivo/vViACmEa1AakRraV1DnA6smSKQYwATQJ/p9cO+ BIENYjzBa1Q4TutSAh4KPccGh2/zJEdz5ZVVUY0NVu2QpKwzZPx1lYWprY22 q9BFedwWJGJTCtHZ2GPDAAO3OnB5/iIx+ny4tfFN49X7oeSfHEU0lk4ndNjE CrerESFMI1rh1IgWy9OaCJmdzWLTr7Z65+CmxrvNIblHBKKmESOYxnZXLAGS ANu247CZLl2MhzoVytA+6We5lL2yB22G5LadQW5KITkbe2oYMMHUCMeTJnxH nx+mrkzOI6dwfrT5m9pTqn9/syA6PAIjPGbE5MU7XO0ywFmNaG4WZ6fNiOvX E//siJ5d5/3Ezo4jhGlEK6gaYdrp9bA6RF9sVgLKh8Z8zt+yzgHCphE99Al9 UCNeTu3hpR0F+EW7GVN9CVWfcbmlpCvqGI7rUnCp5EBuSiE4G8s0DDRlp5bF 9w5W1W3dP37dKee+AYYa4VaSi+fo84E+Wems0h2jH5NdpVp7Zs/bL1rWrUUu O725qRHNuewRbSxrleh7No2Y8NUFNoEnjGlEK7AawfdDjUNp86ycLWh/hQ8a mU1qY4odxE0jOmq/W9SCGQ5kihUA8sJcV9yTAsAkRYLj38+vsPv0W5Qxa8z7 n7Ga/4zQU70SRU0tYLkDRGxKITgbyzYMjid3o2cwF8aCoUZemHuZgxrhN/q8 qMgfbzwapmwwbbujFQxPp9dHiwscfc+qKydXDmqPl+nS0Tp5h1NlwUWNmA9t mfFRdHt7dQHbmmBaxjYl2YIqwqoRrfb6hjdwOYL80KhvXOhUhdcEeOzlA9it 1lwtyFIL0zfTAgFMI1obBV7IvC0gM8ryEh40zT9z93uCcZGSIso6ncatcvR8 p1/KG3CexOifjwrNO8lG0BCcUgiaRmQaBoy50YXVkNZvLizo9uE++jwxtxJw tj7e+mJcXdNtcal6g7n6rhlnGkbLSY3c3ZPC1CJINWwBt2Nu+DalE0MvS4RW I9o/qAZVZlyTtVhSLmj6Djzhqy9n1FKU49VWphECdh3rE77uMugCboWetZyZ 4uSBUYq4UP3bUF6b+zkybGZgt3yTm1IImkbkGwZYrsOFjDdWLF3H8CyuCo7z 6PMEUyNjcu3vP96/kxlrWvNVaNZRlzLpuLPaxa/GWo1YdNhhc3nW0JqQdNAK rkZo55gJFypsnJkdab5pDA2sf8CxLGckEJamERK7uqaGSnggRe92zzYU4D5w OyXRjVf3QHU3q+cbt+G4046Z1FIelX6e42fRxRzYbW0QnFKImUbkHAYGr+YD rbv1fnnaotzLzgxC9JMdvxmP6+jzBTuh7ECN4NM7izr29Klz01eLGH/S4Vdj rUbwDjvUR3De6sK3KR1XgWOP4GrERoUNZxYyOg1oedOo4R6+S4xkAtM0QmK6 qLm965Vgi7sd8b+jcnoiAohAJwxJntZ3D4biQv5N2o7ddtpJJN//p+xC4a7E LrqfNZ/2l3T5Mhdy2qaLJDelEDSNyDkMqPvmYnUUbP+C74zHZfT5g+UWRqpv 2X4N1Z/REBjsevwxja+uHNthrUYsD3LyyCwJZhrRiqJG6I6Z9N1zKI+xtBhj W6q2et+bISId77IyjfCfLkz1jc0oFb0n/CL1puEAefC0G8HT+m7Ass6ha/Ar l31n6zjzO7naLYLglEJuNpZ3GFC3rsXjq885S4xUXlzYxTiXcqg6ZQGX0SeB WVDZc0qUZ6V0oFa3wFbzjrITqbTEMt4mtPg3R4HFVo1YHZ3gbg8QzjSiFUeN lFlYR5x1HcLSSnharOrQks4IDc4UoO6/NcRNIxf3vd7EomWew8aXgOdCp93k 5hZgwE2K8C0JpdEWbHrG+FYuPyOQm1IIzsayDwN9M9k6yoi47BL78xgdJFwr cjPgNPpEqDj9XrCvvT2O6lOZLwUgzp3ZmerCMkqdvd65GrFe5R2/vwOEM43Y vE7yaoRZFpjCUaaIPvVGp8UMDXBR8Oh14rTxJWwaMVfJNscPp6AFPAE67SZ6 WT9NTUVJERsKS27ambU02uNz+rCXIoj7AU8ztLRw+dA9uSmF2GwsWBjc/j3/ yw9S4vo8GWhO7jZsFvHKW4u3H7rK6Xo11VXVdibr6tN7Roc2UgY/NX2LjTev unJi7chwalsrMHYKmfozHEafELf3L+xsiN8B6b/S31Vzv1S9vL+hzqcypPey n7nM6nShVxNk1YjlQU7Oyxl9CsPyYBoRxFAjGu3OQQ+xm5FMdVxV0eMy9ny9 ad7YrvVQ8ND3DpeLZKMmaBqpuvTjjDCGFCFeoxKQE3Sq0LldjS/3bhV8m/nB 5Ndjnn48kHHSng0+dTpNWG+5ZNt6xHAN7gc8jeD77M5y2jREphSCFj4BwkBz 9eymiQOa+ti99aquL61xsaO6+T1PburtMDNs/lBVx17x0+es2rJLrc7J2rhm 3rhBHQ2Hl1UhvZJtaRWOcBt9Imhqi7fPCdf9jvzrRb41L2O3Ojtz/ayh3fUB 4e8XnbLmpP0aO45hm7tgq0Yscy8Oe/lpyk5+kjAgOMA3JG6Wxa+jOm+Juf+1 EA2VxFAjdFldFjdQF+QZsxIHhD2q8m/cKXrIOxv3lYmWy7QyjXDcIMZks+md fENHf3iCa9ACHgCW6hew1Iy+BPTipIj/Y7Rm4I4wjdE5g++zu35clMCUQs40 QjwMyg+uGfSI0+FmmZWlnJkunAY1JGTeGzWob5eWhpO/DVuE9eoXnzw/4/uT FaTrgnAbfVJUXTmxKXXC4J56ea9s1j7ihaHTl6Yf+J3X06WE1Mj9uztfphvM Mc6+0fXTlMpnEo8IMHOJo0as98UEarVMBivTCIcN4sqCA2nx4SrsTVRhL3x0 oEiG28MASfCsrCA1E3RPcLs+7N+MkA4xTD5CZGX5gGeeiVvpHEDQNEIyDDSa ws/fDrOsY2QPBWrWblmBS5smhoMzrlXxEhF3jb5wWK/CjhuiCahGmCZP2uyq 0Z5ZEOtPfVxLF6zLnHCbGpGwccvSNMLmUqtuXDyyY/3MuGcDsdUgKGrEB1w3 bQEPA98E5F52wx6Vl3eO6x3gYC1ii0/d1r0GfvSjtDxO2KzlqxydLpp3gKCF j2AYlGaMa2E5bAYatgptZdmXhCJg4EzneoRKjDzovDyUyLhr9IWD7SrMVo0U zI5gvN6BT4mugY9UfSflUwmQuxX7UmIMO4AKZejzq1lu9rmO29QID1uv0DBN I7pRaRr3/jJHLEpNGjt27IhhfZ58VKU0/ZVuGu85MGlJeu65a+7pPlF+dl3y W2MlwuzlJ6D8vQG8tTrhn0Dpsfcjmyvx0G0UHDt5fsY335+48Ie+Ltm9v0pO H1N/lja6B/4y3cNOp/SLUnr6dQLeepJrCzYOELXwkQqDqsMrnsY6naieiNLN OQdO/V5h1kr3/ykrOKZeu2jEv7FB93F+ksiQGGHRWUws3DT6AmLdSpWwGsGD zcnrze70Rk1GLd+hzv46Y8n7I7obIqdh45gZ3L0xriCOGrH+FPJTMSksTSMc CXqse59hb85a/rm71IjNe+5GJDrcIoObPwm0hMawOLelt9V9evSqnXuue9iZ xjicK7Ne9hd3DjReOOEW2CJZ+EiFwfVfpgYbk7DKDpEztzpMwNZUnlj/Tg9j Wxwlihx/wsEvkkqM1EFj9lVwvDbhEGz03Qb9jYyj49jpzU6NMJoEGYa+99Sz Dt79/t3C3auTBhstQNRCNnvtl79cE3wCBzViiZVpxPEWHgPds2fhb/l7d6xO Gf10U3qrJijq9WX7CpwWzSaL5vQX/VQEzQO8ULYJXSf/ZxgC0DZIotapyiur osy7iwoUGJKUdcbJRgJVzt08Qk2ar74oH3M1Xc2M6PFY0Sx8RMKgtubghC7U ezhumoxjONdsmBb8HCkNqSZGDAg0+m4Ejwc9TozN7NQIs0mQlPu0iqNG8AJ6 ZqSpRixNI1yfXDQ3S3ZNj8FP2wUPnp7joEwQ4A3gEympLg81d/aN6YJJEZcP TZzL7ItFupiVLflC9yshKupEs/CRCAOqdJt+YklYwaoZa/XRT5/Vy1Cl/6g1 tk+kSDkxohVs9N2IZXF4J4e+2akRq+qjYWk/C/AdCAC+EQuYphF+BXY0msKP 4zFto680su6snTYHgDcgQJKZYWL0Q0M2OOsXY4aRwpXuE5MN8J0OEu0sjYhm 4eMfBlW3NvbTTy3c+sJfWv6yv4PEQtHOFyWbGNEKNvpuhe7qSEWFw5wPKzWC HwSjpgjJnh9xmxqRZhRZVRrhO0VbdsojUh4ZkCm4XY2QGinJfR3zfzRJWHuV TXBhZntxm6LyhFl7jdhzjUgWPgJhUHt4aUfd37bqtvkKp0u6+8eSMP1EZ7Nf yfHkbrpwEKc5KRcEGn23YtlKxmHzFFZqhFmIVdJd492kRhSoabv0K8Q/hzd8 TCN2wNtMU9894D8fFUvzoQMQFtJqxNC5TGF+Q/ZrU/GSGBfnNGkh3HokhoWP dxiYCt3zMdMa2sDZavVSlpfwoBKFJ+bb7yTmZjxRjeCtlCgcVKFhoUas9oAe GvO5ZFOg4qgR5gkjJH6LARchZRphvqlFPDhrGgiwRHMue0Qb23UVREPVNWab 85QXvgw5c7a78sWZQrfr4jy2uQ3suUlWaoR5TEBu6xHvMNCvXLwfcvWqw0bP i/Pz+yBh6n4TQ96jbxfqziNzYNjPVbJQIxandRxal92OGGrEejkWuf2iy5A0 jWBgT6DGd64/aQv7zV7ANhI5y+zCrEi0VALWCY5bYkTLmNZkpUYELdsiOLzD wOBvaZ28g9dwUfHzIHPHvOLE1KaSTuZTyHn07aO362DYf2h1XY1YKhxbDYil gxhqBLdAm3DQhsltEDeNmLC6ybLao5c88syN8FYjxYxdRW4FQ/aNeMT0BqBG REMq9buo6vT4ZvT1DW/oZsDQefslvGTpkfPo20ejPZ0ajf2m7dbkd1WNXD0y Pggr8uCH4naUCPwdeCGGGrEyY6D6aHGB9JycAphGKCwdSnKb+QFCMFP0/DJv Nz6Nx+cZLnt/VTdWdjVPVsI3FCYI88FBbusRyTDgdRkFm57BC21R1tZGDZed l97kjCPv0XfIzXOpnbAn4gA0dm+p9atcUiMa7bEUxjkdqfUbskYENWJpxpBq vkgQ04gBq5sMasQ7IediZex+ci1UzihEINHNU9vI28cowNEqbuiLbvmgF+Ze NsxzhnM69ouQSAd5j74TmKX+FYrOA9XXLXdgXVEjt/cv7Iy9RvnY81ml0rUC UYigRizbvkjVIiWQaURrecbK3VMQ4Daop1ESMcDI43H0yVuk7KS4eWoPea9H 5MKAJ/rkmJ9xopN4xTMceY++c67vTg17gP6CqiFzzlQyFkynaoSuuEu9wPWK iG5FcDVy59LCEF/GreN8Rl5QBDONMN2Gxjc3P48A3gVehJPHMmQhJLhtKTIK Lkmz/o898PVIjtU4CYUBf755pSEKjt59k7IhOWteIxHkPvouUJ6z8Ok6mCDp My63lB4Yx2qk/OCaQY/Qa64y+Ml5h7lKkZrKM1mfL1/2v8Uz3tY3Px0xLDoy IuKpLj0XZgsRJkKrkaq9qRbdrkNmZ0vxdKtgphGDTd3iHqOuaUcFF2TQw1eC 4MsQj5I7DNMIty3Fe9dXdjfLb7nZqgVq9yMahMKAP/qE8EP6G3hpSSySatba ErmPvmtUHt8++jG6D6ayQ/i8bGOzM3tqRHOzJGt2XMe69P8WGDNRzb0dCZ7E Y+CgFgofhFUjVPYPv2/STIwIaRr5e/vkxha3WBQTr0TOvZrxvIQqFwg91jFO 5nJqdGJRqyR0UZ4Uf5b2wFdz6tFeXkjm6V4fSCq07LTBvxrYMf2yHKJA7qPv OnfLD6YlRfwf1oC11/BZa3d/NQn/7epW1efW5O5Ln8Vo1aoK6ZW8xWFPZ1fQ 1FSUFOkoPH74w/6mhpKC1ZYXVI1UH1nBKEPqg6JX/iw9+6oeoUwjpgrMePCI 422GHr5SBHef+qBJhzjmIzA1wjGtgW3TSPcZwS7nv3ye39d3M4TCgD/6QFKg if9dFCIL/yqF3EefJZqbxepVc0f2aqdSujDV+jcMG/bW4u28dYjlRWh3DnrI OF2QavdphYBqhO7BbSRg4MwCaT4fC2YaKf3szYct7m+jpotPS/MuAGKAlfhA w7M4Tv+YGuFUsOJG/nisu43060tYgDUCk6sFi0gY8Icy2Ldp3Voe/lUDHjD6 3Lh9+cyhLzd8NGNq3L+bI5z6rWISJsxKW/tV7g8ld4R5rKAL1/ugIR+UCfMh QqkRugc3MgkqEp24BUIY04jmt50vWdagRZFphz1dywOOwAvzcv6tYW/CRTn/ ueZVk2dfgTo+t/uarBIjjFkLK5chK4iEAX9Md5LrIXF34AGjzxNWXfOIoDm6 8knT53VadFigTxFIjVzfNqUV/qaqOkkHpHvCSBDTSOnxGV0aISbBCSs4tP8G PImaPSkml5mv78TN3M6xYBHLPjeib1BiikjJl2e0Cb6UR6Wfd/flcIFIGPDH fCcF8iUKgQeMPk/EVyN0kQrBTCNaIdSIprZ4+5xwfN8joE7cltNSTgUTN41o yk4tjW2vYN5YVZ+38srl8osHBIPe9eZRFZzO5rGsoVpbc3BCF3NMtpmy9YYM E930NoeQc6OwEAkD3hjXNVmd7/aE0eeH2GqEblMobA8jwmqkpvLIwvhWuNmm UdNRWyUtRZhHHRF/00hVwbcTw6yyIkPfOwxSBNDiO7A8ppHa6p2DmxrfpFlY Rpmrf1eaMc584l66Pi7H0AXt2X13aUEkDHhjWNdk5QX1jNHnh9hqBDONCFqx 2apMKApL+5nbW1Xkb5sa2RxXIsoO3Rf/KN0NGiMWPZf5mEbulh9c+lbXesy3 80Hh726+ABs0AAXeD12FFv/GUaNWHVjYwRRiAzIuuvIneEklGWfq6IL2StQv 5YIMczt6CIUBT6j2czLapvGQ0ecH3jRQj9CHxE+s7W76KAErNtfcyRxoUZnL Vzk6nd02xb1bBXs3z3zhiQB8Z8LHJ3TkvLwyQo9emvtlR7M/mTFhcNRTrQPQ Q22fjEl4Z833RXTKpaaqiltYWrZN5Ji0rLp6Pnft/EHtLTvJ6kvW7CuSdGoI EB38EWDQl39yfJeqW5kvNTdOy+GJ+c5KCuJSJDB2slylCONIhayWUSvIhAEf qLOEstqmITP6wi0oIlBx+r1gZukGHzQ4k1CtTlvQtRbJhYqm8tqFIgPnTuXt zcnasCJ5IFNCGIVWs/ilX6gPHy8sskvhLz/kZH+d8fGC5JGvdGlsWdRC1fn5 BaaqcfypKvxuHiV1GgXHTp6fsVudnZmerPsX/wf6LM6pqL59aEFcx7oKZWiv r5y2dL/3V4nxC/yWn6vO/vLzuSOimlpcvh8a8tH2vJMOvj3FhRMHc9Q7t6xe 9P7YmH8H1kGWNGoWv2xn0d/ynSwBocBn1KAZe7j/UP78aUILY/iGpOyqsPdG d8sP/te0f+qj6DY5XdZWanpu9EFj9svkHIgtiIUBZ67mJSgVKGTogTvifzZH +I8+yQVFSOj12rRgqXd+sSp1ekw7y2deg05QRbyR8lF6ZrY6m7F4XbnBdwtO o/1meJDhMxSoQ2zOX0S+nPDFOX3qtu4/Iu3rI8Tqrmg0RZvf7WGwnqt6v5r1 O5Zpqak8Pn+wvw+Keyc5zPT5To7t37+TGWtZFVUIgnoMfmfdLtAhgF3ofViW HlQrqk/vGR1qMCnZzEbeu3Um65Mx3Y37p/rHBLln6vC5UUhDnRiQCwNu3N2T 0titHlrW8Bx9sguKwJBYr0kMrpVpRHOzOHfdojGDngtp4ov8G3eKGpiUtin/ Krt9EEHUiO5ievaLS0pZtuXro5eJLsAaTeGaN1oaUje297irbm3sh6kLp8dy q8rXPWtLVfKnYYuwXoabsHlH3vlrcrGDAW7kSFKoMXiaNF99kdfvRnP17PrR phSff4Owl15PmvNB2tyUsf8ZGGqqKa16IurtT74ukXNKxAjdo4Rj52JJQTAM uH66O88Xs4bP6BNfUARGKmoEN42sOFmc9WH/Zr7KZu2Gp3yYkaVPK01/rp1S 35svbFaOzJ907FOcnmCIHAVq2Sn9ou0batD2FCSTSAAgNHgTXiKegcrf8jb9 d9qQno8Hms+H+TzQuke/+OT5Gd+frJDNeuME+r75oJHZss6M6CEeBiwwPfMK V8yKOHxGHxYUbtBbY34+UQOfb+qHuk1cfqIC03J3rmUOM5SzaBiUfEjyh1bY U3V4xdMKY9TFbDxn95mB9lcLWK4WAMgj1qE5D8NUGkiBQmJzPKBdmvvCwFxd 0737EazgPPqwoHCE3hozEFBn+PqfblpJOVMLToWiy9BcD5NwN8+ldqIe8Jwd FsCSSDJS+ACgpfvWeW/ZBNbQazdqPfMbz0gLuysMLi2JNawvbt6PYAHn0YcF hTPYPXfU1uRuyUKTIdvFagNyAWuigSJXnXSgT29tfNOURPLSonyAjDmX2Rd5 5k9YIKr2phoT9fXR4gKZrKFOcUsYGJsIK1Bw9G6ZpJg4jz4sKNzB5FmThLVX 7d91UwkUz8op4YepnTm7Do1pY3ysEKzHMQAIRW11dnyw8ZGt/3tFXtj9ixX0 7VLUe215maeIEfeEwR/UloR8euByHn1YUHiAmUbQpIOOShqZ1Ig7CwsT59YX 40zNpJQoamqBA316uyi1lSmF5El6DPAaTPut+mqcs47y643k8RTtfJG6V/5o +o8eda/EDwNz10XZlI/jOvqwoPDB1BLImTwzptoMNApaLWAlNhGhu2+48EvB KrrL5jcFADj0Ex8KTNrqKY8UgnB+fh/qRgW8tMDT8kiih4G5T+hI9S3hP40A HEcfFhQ+uC7P6FcKX6ZeNOjj5M5L7f2zY4q5L7pcflMAYIn5oa9Rw2XnZZE0 dwdleQkPenQSScwwoArC6x54m7ZLvyLsR5GB8+jDgsIHus20M08vLeTkE1RO 0GgLNj1j/lLOHOamwkEe8/UBrwTrlATpEdtgtyho3MZyj5RsYobBZfUw/ec4 27mQCNxHHxYUXrju6TVv/BkOX8up0YADsC/lrFTyvdIlnX1deiUASBzzCURP ffDniTFvoECPRm7703Mz6GKFgcxMIzxGHxYUPtCeXmdCrnC+ufOs51RPwmrh +viM/MRR4V86NaRsMG07vZGoqS0+tOvwFUK9gwFAFKoOLelsiOaAgTMLIHhx am7veiWYekCL21Hi7qsRFnHCwGgakUXPQX6jDwsKd6purOxqkmf9Ui44SEnh FlaEwledEu8ihaRmT4rJ/+xEt2Oil1lR2ZCEjEo/L/zFAgA5NNozC2L9kbNa kd7H9W1TWhl+5m2mbL3hkXs0OCKEgbnSiBx6DvIcfVhQuFORP15hS55ZY9z4 M+A5hYA02pNrnzJ9rR6rfnXw0oLZEcbXqdDi3+goo4Jq1jFPacsBeA/3rm+M aW7Ii7ZbBvkRissHEx/RPaAplc8kHpF7hzwXEToMjMZOOWTU+Y4+LCg8uJGX 4Nqtw85Qe1YhIMwC7egO/PnThBZUEsnSM6N3Ij328gHJJyABwAalx6a11zsH VH0n5XvJ4usA87rctkd6oTfJM0HDgDoo4YOG7xK3SR9biIw+LCicwdTImFz7 9//+ncxYU1bJw2xvGu3+Ua2p7FD9SVts9z+vvLJhSHtjDsmiluCdSwtDlEHT d3jTzAV4FNWnd7wSpJ8YW43f6DlPGRzQaI/P6VNPtzoEtp2d54GNQR0jWBhQ x0wk392M1OjDgsKZe2VLnnCuRujCfZ64l6o5uam3IXhsK1IqcgIejXyqORU8 uDdJ38jAx7PkGeB9VJ/KfClAPy9GLMip8Kxft6toNIVr3mip8FIpQiFUGNwr 27926eZjEr6rREcfFhSOYN177VZfwcr1KzoPVF/3OL+bRnN+6RDKx2XRMbDy xJ5pkc2VgR3fybnw94GFHagYM5/Gqry0NPxhf0/atwK8FeOjsbcKkvLs1C7e mhXB8c4wIDz6sKBwxWwIsVf6rDwrpQO1vRXYat5RKefaeFBTeWRhfCulPn66 JczL2J2TtWHFzPhnA31RYP8x2367pVdgtdU/vRddzxBj4VM/2b09Y8Zz7RSh vTMueGNSDfA8qgq+nRj2MApAY/Z614pce2zt07pVIaT3sp+964vbxNvCQJDR hwWFG8aGg7ar5Blzd97x1FBZcGB1SuKAsEdVSvRQ2ydjEt5Zs7/gNi5TNfdL D2xOHvZcSBNfZbO2/RPfyfrdiyMH8Dxul+5PX/rVrx760GEHze95q9dsOlnh cVlfznhTGAg3+rCgcOD2/oWdDQptQPqvtB7R3Sj18v76407w1AAAAAAAgMBo aou3zwn3Q8i/XuRb8zJ2q7Mz188a2l2lEyL+ftEpa+CpAQAAAAAAEai6cmJT 6oTBPR8P9EPKZu0jXhg6fWn6gd9vgRABAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAA3Mr/A2++bdA= "], {{0, 113}, {730, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{620.703125, Automatic}, ImageSizeRaw->{730, 113}, PlotRange->{{0, 730}, {0, 113}}]], "Input",ExpressionUUID->"cb5b7524-45a2-4144-9158-af20e9bf2ca0"]], \ "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.751392953248116*^9, 3.751392953248334*^9}, { 3.7513933782714148`*^9, 3.7513933782716827`*^9}},ExpressionUUID->"4462f9bd-a087-41cf-ae71-\ 9b38fcedcee6"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{"Bb", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "=", " ", RowBox[{"-", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"\[Gamma]5", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}]}], "]"}]}]}], " ", ",", 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.7513927106207952`*^9, 3.751392745089884*^9, 3.75139281625089*^9, 3.751392909461108*^9, {3.7513935075377502`*^9, 3.751393539173621*^9}}, CellLabel->"In[57]:=",ExpressionUUID->"86e8d28f-c750-4031-9608-c010647b8c43"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "2", "]"}], "[", "1", "]"}], "[", RowBox[{"Bb", "[", 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.751392711448798*^9, 3.751392817037744*^9, 3.751392910110114*^9, { 3.7513935089986477`*^9, 3.751393509084099*^9}}, CellLabel->"In[58]:=",ExpressionUUID->"a64994b0-cbd3-4399-a8f9-1aebf8e10fb2"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]], "Output", CellChangeTimes->{3.7513929727959957`*^9, 3.751393551843639*^9, 3.75156278472608*^9, 3.751727178500757*^9, 3.751730248139497*^9}, CellLabel->"Out[58]=",ExpressionUUID->"b4f97ba0-2193-4a18-a1e6-c553568bf9a6"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnQt8TNf2x8/MRNpGhlJ/pKkSVY9IH4ReJGlV4k21KK64Ktp4P1JU2ng1 bbhBS1xFo8gtQsWzUTJxJXqJtqKIIkriFdrEI1ESN/Ka+efMOWfOPjOTmfPY 5zWzv5/PvZ97Yx7nnFl7799ea+21/MbPHDpBi2HY7Cdr/2toRPSbs2ZFfDLs 6dr/8+6M2ZMnzoj8oP+MOZETI2d1G6+r/eP02v+U1r4e/98mBAKBQCAQCAQC gUAgEAgEAoFAIBAIBAKBQCAQCAQCgUAgEAgEAoFAIBAIBAKBQCAQCAQCgUAg XIfHfxXk5xU9MvJ4q7H0zpUr10oqoV8TAoFAIBAIBA+MprMbXsOwCMMDHm9+ tGMq9oRmVT70q0IgEAgEghuV5/eOCgpKynss94Ug5IUUNt3XnePx5vzFvTA9 EjYIBAKBkJs/f5n+vAeGabQBvZKvIG3j3hRljsW0DWduL+f6RqNp39CGWJvB 6aViXBYCgUAgEOwoPD2/c2OMQt97SlYxn/wKKFT8cf77jf9KMpy5XyPXJbg9 5QXx7bTYaxNOVnB8Y2nuvKZarNeci9WiXBcCgUAgEM4p/WPjwBa4oNF5dPRv oyW0Tb+Z2Q9luBY8HObjQeirrgnZSNrIxYmoAMwDm3m0jNO7yg/ENMGw1p9n yCaLEQgEAuHmlN7aPLydBlc1WPASQ8mjksMfhdU36wq/yDX5nEMRwqip3Des GeU30mHDlxWhBVImzBJFU3/s6iL24vLxnY1hTbB6nOUQAoFAuB1VpRdSv129 6l/L5384uZZxI8NCgoNf6/x6fBrKBRFEVdl/o4IwUtWkl9SQfzw6l9Q2L8ze cU9Kp0nVg43BnhZdM2jLJffVNdXl+Yd3fP1NcvZtmWz80fV4fw/MEwvfW8Dy HTfW/6MJpsVCpuWgYYlweSCNUBR5d1eMptytb2B2QB5vQVgEjNcTvZdTqsbq n0DBIwmlx9YPffFprW/78Yk/Svm9yqLir+8jOnnjfjSNpuvYLJn8H3e/m9YU 02DN2yzKuu30xcXp8T3qYZyEEAJRFxV5//2oyzPKFcmQRiiKvLs1xqqSgvxa 8k4f/2JAC1LWeGLRv6AqYHwxGvO+GtOk9jF61wvfft7Oc6zVNvMHNdPh2mZg 0jn0oKWk5vjKDhb53lC+o9MVD1LeqR1uuLZZeORmnTZgrLmx59Mg3NOm8f77 lzdQ2jBCAMaHhVlrogK9cHNS7PE6OCMURd4RBPhh0gZmM9BgLYN335P7elRK rapZ/35LTd2qhtPLELCp/k9sE3K602ID5uXLKBVuHp3wrHlH6eUdMi3ecPEO 45iUsar4bGbCmCC9eUhqX+qbWoimZgRn8GrV53/N3Ldj2axxQc08qLVeucIG zghFkXcEAX6YFOlboZBRAzZyxaJtGvlEH3Mej0DAofTWlnE9mtVv3Pm9T9IL ZPbFV54/MDGALgXg07lP+IRJM6M+nDIpclin57SWEgFd3tqGyh8hOHJw1NNg doHWt+3oj+NGt1a6sIE1QlHkHVGL8eTaV6kh0HHpcbkvR52U5sW29uDghCG1 DUoKdV+Mty9umhhK76St8NKHzF6dU4K2GQjOnFk3c/KU6QuXr0zcti/z19/x FmOPi1a8onhhg0DA48+vhqEEG+FU5B9Nza47ZcIWY82NzB1H5HYdIOSlNPdI YsyEgYEv6gk3je6J1t37jo9dbR2fQiCEgIQNwq2oqUoZqKcMPmx/sdzXg0Ag EAi4IGGDcCuABBtteALSNa5AefGJ7Qkzh/Xxb+qh9W0XPGT057tOoHoOCAQE jMb87xaFPoOFJl2W+1K4IFjYVB2IeUL/XDjKWjGp1gbgoQJjyNnQjYrqB637 Te6rQQilIvfQRyEttI2fG/7JF8mp6bsSPuyBn/GUo+IxAuFikKWoNNqAnrsK FDun20O4x+be+diuz2C6eh2nrnPrmUS9NgARxRvDvW/GUMmK2MJTVXJfDkIQ 5spUWn1YpMGSumM0ZYxvTZx4673xHEpFRSB4Qq9ovZJVd1QNSiiK6urrvrsk VdsAXJRsDEbTwdE+pLW3H5z+l9zXgxDCtcPvNdXZ9tnMX9yLLA3RP+aKW+0w jNVFx3ctGEmE5NoMmDBv22935L4mhDqhVjTMt+2qXBWuaLBybPBJxgPacgZl hEoWeVejDTy8unFEp/peDUIW7nTan640NzNp9ap/H81newQGrjFAxCbBxnj/ RubGpZOG4kaCeTXpGDokKmEr5MY6tcZ86vDWZfPGD+3XuSVQb6HR84E9+4+Z G7vx4Inb6GwWV/B6ts9j9oq5nYnuAjFpEK/6lQ+LvIL7os0PVaUn4se00mFd I+OS96fviB6MN7PwxiYfKhTrGxGuitF4eeVwL7P9jN+vzt4W8JKHK09+8ybe 9UBwzzsYI1S6yLs6beD6isHkj+4Xtv++w5fezBz7lPm1jX0Sr7P9fGjGABcw wWbN2RupXwzw9cCrOcXUGokhLSVpbp+22tqtvl/gwnTWKs4B1eV5e/8V8bcW lvpjuB/Bt12Pbi8398RAtK06TV6zL/+hCiInxsqKSsGXKfxDHu6Z1QSz11GI PvWmxV6bcFLwEeLKvbMx6Jg1bXhUzKod6bnFcKTOjaTIlk8BZYWKMseaB7gU XaLuX1o55FUrkxaXRs+9sTJDOfOKi3F39+xW5sfcZXGGWjusQz0VVfjvD57B 8Oh22Npfea8LwkeolJF3VdoAXYTZ+eRPJ6XoseW/c3hyUIwBLvS9eOpCh/Rt 5ol1ncGsCfboTsrIdrgiE1wjt+L6z/H9cJmE6Z5s3S984frtWb9dLnpEf1dF 8a2c/6Qsmzq0w1PkRWn9eyX8xKUyjBzAWOh1WL+Yq0KWpfI/VgQ+ab8I+f2c OY3Ib9FFfP3Qzpu5IYqwAfFq3Dk8an1GbpmAB2LMTemvxbosz6KH8r2sSPLz xc4lM5rObnhN3Gdki4fHjG0oQ04MCFuqRT8gOueR3FfDG7jHvavKDo7zN68L Ty88wSeDAcIIlTDyrlYbuGkYSc0P2olJ/3PwSrDqi/+II5zuUbAxQIZOsDHj XW/0pl9sQ5PGMxu6m+9X03lEJt+rtrRb9XtndvKpW461SkXej5/1bqulrkrh DZUUIGzIlXTS4RI7//bzynbU1wxIZu1hdPBlllDUpd+yDqWnbv5qwYhuett7 aug7ZuX2jF8vOApEnfkpPe2H5K+WREeM6tzEugKvT9j7G086MRX71FSmjfHD giZkgzurU2tfoR72zGMil76renjhiIFk3/bEhC/tPiJt+57RqzenGlhQ+5QS V61auSR64thBXahSfky6rzsn7k25J6XXVwaZO180ejLujKOVQelAr2NTkPke HjrSaDoNMdzl6BoRPkKlirzjqNYGgN5bziZ/YP/Lp+qLEGOADp1gg9tSSMJx +8ZUXhBPLY0Dk6/x+B5S1dQhnOxTXnL4o7D6xLcqW9swck7yfs/OrF3LvlsX O3dQW0a7FhIvffD7MV8mpaQZ0rLO5tFr/K17gtba6v8V3fjDrouDLivtjcWd EydYUfUoZUgz5n062yDY8vhB7qFtC956xVsDPi7PsPmbL5ZyHCkXtvbEsLCk S+Df6Fhzs7ZJt7h9HgTAsUbQUBfHt5dG2bXT38e9788MdQ3d+SfcS0bU7hhO f9qbmIUC4jIUOwWxQoQCfWQMgkd+heARKlnkXdU2QGk8FpM/kJQSmPArj+/i bwzQAe6laeSG23VfDNVSjVeLzPuXYjt68hEnj+9uGdSCvD6F+Lg48ecv059n eiF02MCkc5IODSEORi7Q8knY6MATy48lT3y5MfhR+l7/SL3KQQPgM6RPYHIR 8KfHd9d2o2LNb8cVSN/Xm/YJY+RlhM7JFWYKpad3/N2HMjAJ3FDuB5UYWTt2 Bqc7TrxUPmJUHsYj4J7EujnzRzvu4roQOkKljLyr1wbABJtOY4873GcCSSl8 2yrxNQbogPcy86ijfChK2HAfEUbTqZiQ2ncyYqnsuWoYRW5LNZruY7OEm6m0 WPXYxRpqVuVLewUCHYyssY3HCYqMlN7cN7WXN/1hGm1A38QcdudA8eH8lJUC B9u8Wu0TpQH0CRO0/jxDuMf27nfTmsplWi7P4zsbw5oQotEVCkCJ01KhzBDb jlg6reJKDhA6QiWMvKvaBujNlLPJH6z60jJ49z2eX8jHGETg8LhnWd1L9f+2 hHmRT4jLQTCc/H1vY+a+foE9ev994vqTnNOPLy/ubVkLgv91Ul2ewNxFwcBS xuLAHWzAYS5qWWnIwsZEHQWlk0k4VMQq+mmn4dID8C8nogLIj2naIvGaDPMT 7RMmZxpsUgaMpYWMcMlgWi4PEexQ5VbdLiL1irLs0zEsZN1ZlkNL6AiVKvKu ahsAN1NOJn+g6gv21uc3eT82XsYAmbL82FbUvTgOMNGv5LwxvLAohLmyB+3m Km2u7RtiebvarIvKzxdhPmEHPcxFPgoEX9iYLOWwQG3Dq4b5vexp5KdotSOX FUof/6V9wpQl+DL98AIwewWdu5oR3FDCFA0X0Zpg0qt/hz777/B6VLBGKNzI u8ptgN5MOZ38L+/sS81NAj3JEIxBIMC9dFx63NErQWnBKfESVES8dBEO6C+S KY7AG5mFDTjMRS4rLYqwMRFnH1qAH8vjuCU11nDkybC1TbCBdxDVbGOCywUg mNDzM4+9mDIRr7t3aV5sazLXK2BpFo/FDNoIhRp5V7cN0Jsp5+7cB1s+IJ++ cE+yYGMQCH0vzpKFAI8WRxlsqUtAr+xh+7lbGxDQkSnzky8yCxupEmxM4gmb Wm4enfAsIwfbf1Eah/htTeW+Yc3I5w/PT8IJkRJsCMw2horYQKXir409yc1U 86gd0jpZRUM8YUMnDPByqsMboTAj72q3ASDBxumRn2OTXiCfP4wTo4KMQTD0 vTizpbzFYZSxcFwfrY64OjhR7hBg0ZT6rO7Dg0vCgoIBggaNm7V8L9tGJLyF jfH+jbSE+eH9Xwe/O/j1LnG/cFjSJUuwMYkqbICDhCScqkncsAxwbYNJ38qS fi5Wgo0ZwsacOF0RXKg5vrID8Uu5Ul9gMYUNcXybgHNJEHgjFGLkXe02AG6m nEwOjwtXdCJ2jloseNpZ4WcrhRiDQCrure1C3YtjrzgzEsR1fSw+tGLA8/jJ ILxFwqYfS/h4y63ruI5OFdX3wKDmwoEP3+7pB+R5ELBsRMJP2BgvpY17wboG Dt4hbtz0XVc4DDHJEmxMIgsbMNhNGq3dk572oI/+6bCINOksh0bMBBsTZWOh SZehfaKbY6nJD6sQikIQVdjQywTnOgbQRijEyLv6bYDeTDktBEGnmmA+8w9A CGgLMAahlGRPI8ugaZ/+aI+jJQJMD2iILc+VPpBvLWwguvFZUnHr7Nqh7cC6 cfhlRO91OjfwETaWA4YWdJquHybmci1SJ2GCjUlsYWMy3d38PqMcnSc2/iCL TnlgcYyX3j0CPHzj7dxUgzgtgK0QM8HGRNnYpEyV9BpWPkVZkVRLF+mnGhER VdiA2yg9FneW9TYK4giFGHlXuw2ACTbOtlFVB2KepOYmhtOgrDDLkFHAq5Eo T2MQDpD94ngBevDdVOquNfXHrnba91wUAEnJs0igcCxVtS2wkHk8hE35gRir fAz9yCV82tQCw1yCJya2sDH9QTTIA+QBm70A4BT1mbsXXPvxEmEtpTgiLWqC jYko2sCxaR3CAfSMx7tSmTIRWdiAY42DhcMboRAj76q3AXoz5Ty6RPt2mLVc iImLp6ufnzEIBxA2jvZ61Y9SBlOzsh5beFKWA6VWHhst1mvORTnyh8HUfZY/ GWdhY9W9S8BjB4e5BAkYogsbOsOQwgub+7OTJ0NXG7DaOOD7ROsSYSIhaoKN 2etbX66kaBcETGQV388pKWILG/oMLIfwDcQRCi3yrn4bADZTzurS1N3+G5+4 2vG9fV7GAAHayB0JG6r9JY58DSCshI0M1WBI6GIL1E/mTAxzFjbWHYX4xyjp YS7JpkN0YQPG4qmH4yTVEByzzMdIGPbo78U/+i0kwabifsayOUv+k+9oascH MipiAw/aMSj6QUKpEVvYgEX2WCYtQByhECPv6rcBYDPl5BaoWsGYdQcKPKO4 npBcbs7GAAXAMxBheGD/NUQDVrOpyNyy09L1VV5hw8yjZrNIcRY2QHEhAp5+ PHCYCyiRzR4JhA3TDDDn1QMAtyTDZ1VTefgDf4mOIgpJsDEbg5N0PqMx/4dv Eg9fUKG7XIlwKNaqOsQXNo92TLUYOquCYxBHKLzIu+ptgLGZchjgYFbSYHT3 M8eShORyczYGSFjCiHXFKYpTY9oTo6B5q7iTovnjjJUVlU6skLloyidsQBVK 4Cy3gauwqflx6fNMecCzXJW0CTYmaYRNkVWajbMeZ4D7C3RLVhxb0QnDhqUI 7iPDAiEJNoSHSsozgAh6q6vS5Iq6qczZ2s+yiOnrRR2BXnLOaMrd+gb5Bex8 HfBGKMTIu+ptgLGZql2+OyTdtDflFJ6e3/kZ7YvBPagCqOCMfTq6q7CtH3dj gEXJ+Xl+HnUFOyp/S3nHm3gsbRZlwRwCFbcvZ2z9auGEkb1ffVFPdwLCfDr3 GRMdt/PULVtLYnaOllPYMIWK9Xh09nrnV24rD/iddpE4wcYkjbAB4qcWHOkE +swm7ZasPL93lA/mN3GjNGUe+SfYEIF+aas2uTtczpLAxFhVUpDPhbyC+06m heqT26dOnEwy6YPhr7/c3JM5cnRPtO7eL3wC9ZrJH3yecVPojdBChV14FN4I hRZ5F9MGyq5m71wWE977Vfq3aOQbPGrK8j3HbvO6ZLteAdvNlG1xkpLs3TO6 PKPBu+9VXV5CdmO0JG8TGlhoFwmuxgCPsoz4TubJdmDSOfq5GqsLDasHmD1U Wv9eq36FpGqM1UXHd3425s3m1K5B6/tirxERk2fNW57w5cKZU8ifW+fhP/qT 9ALGsGX6SeQUNnS5Zgq4woYp4fhnwUmcYGOSRtgYTfuGNrCanZ2kxlG+Vn3Y 1OQDP2yNm9ylPuY3Yt7xYkniqkISbC6l9INVLwvBEtolKPKTf/wg9z8py2a9 N6iHjd5gj65ex+mb6lr9ifHYoE2nYBb06PCcFsqABYP1LE/qQRmhECPv4tiA 8fbFrTMGNtPV+WPqu7yzPucOt888u7WXvWAZuJl6oWOA3lymxCc0Im5jSpoh PXXzmgW1q7CnLiAiLqvIvHiV3to8vJ0Gd2L4R21KTU1aNvQ5HY/ONdbwMAZY GGtu7Pk0qHZkedUPmRKXvN+QlrJp4YhuuIl4eYbFrD9bAudiavXhgrde8SYK weDf9dnO7Ku2vVnxcrv/fN/fk9nH2TqzRc6KSVw9KlyFjbVHiEdrLRNYDNy6 NIR4SCFs6HLZHB5p7ZSSvHDCwMAX9V5NOoYN/3jL4SLJvMu8E2yMplMx+GkR OPWyEOwA/JzMREqIX1E7xS2PCv4/DwwKzPO5SgDchLKMokIYofAi72LYQPHR 9UOfdfqLcwyOEBmwtmdmQY9Ts7ZJN6uLTqZ9PX/6sNDXWnub3XRde7072yYy Ul584tulEf26175G36ZLeNzmi1zLptmDhzFApOJWztbY6cPMvkqtb7vgt0bM XZl05OoDOJqmrCht/rBWlFJtEDw66awTXVry8+ZRvvWw7mOzCKuijZYyXSF9 1YWhHGFjLDr7deRAP28P//CFVrubyqwVr1IfIFlTWmmEjW0okKf2kwTeCTaV J795UyPPbODOgP5Y+MU3aneR338xwBeSpMGRbtvCHtDnLFmbD4iRd8g2YDTm ffthoBfGDg3m23ZVLqvcA/OpMXuV5UCPE9RCoDyQxRgkoOL6T7EhLcg8Gh0W 9Mm2K+wKzRF5ywFxGZWMHCQCOfv92S7fA5IdbZnEEjbV5fvepXteM8rp04WL tdo3JpyQqjeSbMJGwQl+fBJsjNVFx/49Cl/+pG6LhgB/L8gtKkpv7pvay9va dgWge7J1zyFf/qy4ntPAPOChnZgkTWIFxMg7XBsoTJ76vPUvZ6ZRq4BW1k1z CLyHLHAubQh3zVN2CnmBx09kr5ksizGIjTkHjNqe6LDgJekcGkURP5y5Wbxt WosYKyZLuC7fXIUN0Mccc5SSwTwfRJ+cMpouLBnsRby35cuJl6Qrsy+bsFFs NwHWCTbG0jtX8q/knvgxdfPaucP+1rwe8XoFNKkpvrgxespkhbBodY7IKv3g qKdFMarCU59Z9ncEjf0Gz1qcfPC/OVf+wCPyj/8qOH/K8O+Eid3Bl9UO4Y5J 19QVigRrjumwfjFXJbh8qJF3iDZQcXxND6ANj/6V0KgVSUd+u1piUV7V/yvK PWXYsHTc34DfXef8OJjZXWO/Xx7dsdrxiVEpkMMYRIahajDMP+Z7ru0vjSfX vor7QwqzpjDTKpy29BIR665VTpdvrsIGHFaOXk+3+sL0/WZmExN+ecnhmEHm /DSNNqBvIsdUNIFII2xsv0X4/CMW1gk2XNE2nLmdV58WaNh92jIi7g8Nnrnz xuLOQZqF8UO1QCsWPHfxm5O367iR2iH8URhYBLR51A6FxZqcQbe/gXnKQ6LI O0QbuHtmjh+5AmrbhyzY4fDcU1VpzqaPu5PdqbRYyLQcB5ZO7PrrYZMOl1j/ E52P6qzGlzSIYwxyYaVqWPnWbMFrMms9h0fPZlSOkfYYpi2MrlWY0xai3IQN ndtPWXhdtZWMptOf9sYnwMZNx6/ea0j7IXnFZ+O6mWV/oyaD5kPL+mYPEjZW 2CbYcIVnCSN4GM9/118PMSdEENoXAjaKuuUDc/lgJW6V3loXarEC86mTVGel FKvKDo7zpzf6TVskXlNVFzC65h68uVqyyDssG6ipOjq9M/ExfmM+y2Y3G9Pr pqc90ULhwF1jup0VSWV+KKJmshjGIBf3L8e/ZtmhCPKm4u6Lxj4+VJdVwnrl ahRFYpPJ7DhznpuwKS+Ib8f6w6vL8/YnRg3r17kl7uTxealb75EfLNqw88wd eVZ5aYQNWM3SgjKFjXWCDYYN25RjrybJldwTRwyG9F3fJCwAiiFgjbxX5alq RVM74CQMpVh31aPDkzrTY5/9mRf8pD+NlFVbIUA3CYKnDyWLvEOyAaLAIGav gIxjqFMDWq/x6+3LEgfuGmaCjSLMRgxjkAXGWMYR4hu0m1Ahc0KU7dlzh7UO uAkbm8q6jBrXygbl2DCwTbBhlwlMlftWQIKNuwHbbc5IHPXEhm8+zzarleG5 FevguViA0RyBzSgtSBZ5h2IDFQ+29MedSPqRSzipGoLrq9/1cuDfyN/3dl3u GjDBRsr2TA4QwxjkAOioZbYNYe147B6BkTshCmhHS9yjQw8bJ2EDHlokblax 531skU3YKHO82FawYVnsi/TayZ9g42aA6XMwhE1B5ntArkzTyA23uawzwCEC tUlcZnlwOJsOiSLvcGyg5vjKDrVvb9V12y1eV1X+x4pAfE9kNxKNdzrQ1tkb lErRdJalIxliGIP0kD0aaAKWZgkxOJtVTBEJUdbtnBxqLU7CxqZzhPw3yx6Z hI1Cz0TbJtiwLbVH7dZlT7BxM6AKG3MPR43l07ivcTdWDGI5aSgOkdYyKSLv MGyAahIhJFRhbuNoL0mmKCvyKS0WNCG7jgWncPeioCYan+6DlVIHwCWEzZ/r //EEOJUL9obZZClohXRRhwbQuI3AQXSMg7CxCXIp4mZZI42wYZ4aw6TvQsIS 2wQbtqX2iKkAJdhIDbioCU3kM6d30nRZnsXV4wLscdQmbJgnIFS1lsGwAXx1 ELwnxQWMBms/OJ3ZevryYrypk2Q1VyGgYmOgeHQ93h901wj2oFofEcIPegvp og4RwsDY3CkHYWN13sphYrwCkULYWGs/TCnJ/1bwTbDBwbPT1RZ9cAXg1dwA Gjvyc9eYGPOG2oSNeOWARAeGDZjTgVpH7xX0ixEm9BQzyF6SM6eZytz4JhUb A0nFoVirEotCs3ytHSNK+k3xDC6GCKkrGsVe2FiLJXst15WMFMIGzLGnsO0B Jz+8E2xqubyzL0qwkQF4wuYG49fnV4jm8Lhn2UwaykS1a5mCCsoRZWnBsvZ3 N7/vSVbjVxOqNQYzjE2Kk7WeLTkbujGXMEtTdfkxms7HhgGXZq9nhxm2wub2 iWlA5Z/apxe+t0Dke4CMFMLGtuSdQpL/mfBPsDGZ7n0zBkMJNjLADEMIiG8S v6CgabDi3toultlAbR3eme5KVa1l0GwAwpXgjYSAImlERnHjRqsuK266c4SK jcGMrXdFcCEIxvyA4X3P484q6fDL/UuxHYFwgzc2+VCh7atYCRuqlbPlZXXJ JCUjgbCxEQwK9WvxT7CpHUnHEkePjjQUqiaK7ipASh5mREv5VvhnlH1QZLDV ASrOF4V9Mk4IeEiabvdsPmlVd3EbxaJiYzBR8hJEaO94OzV4344rkLEunz2Y rUA0mk5DDHet75mNsCnLiO8EvEb7Ut9UFa5rEggbW8GgxDw6IQk2CNkAJzEB ixrDqcgz/9/q3KUSg60OUPFaBskGoIB77TxJr5HDonyKRsXGgGO7qAntUc6M Uys2k/bu/thA4CSYfvinF0oZK61TYcNsP8GlPKnCEF3YWGenC6gUISpCEmwQ MgJWneVdw4SpScAcCfYwKmUps0yTA8C1THXFZmHYACwOjmqE+YXtv0+shoop TcMJVRuDvbJpEYYHQj7wjzXDGUtDHYUWlUBxenyPeoC26T01s5C2P8fCpvjo +qHP0ou11u/VuOOqVDUm8YWNbXa6/6I0mWs12kNIgo3icKvu3uCixtfJxgig 8+ui+Pju2m4Wj58Kz8eJ0XJLMmDYACxwB3UD/AFeXzEYU6Z32imqNgZbYdPY J5HPToWCKr1IolR3jYXS03smvkQ38NW2D4pLyy0zT2l1CRvj/YLUReEdnqT/ rfmgGYYCvoq8qvRC6rerV/1r+fwP8SVg3MiwkODg1zq/Hp8mmcYXV9gQzljw SSrTXSMswUZpuG93b76TMOOYNq88Q6saOAJrnMoAqA0Ih4OKUJKHAbclPbbq vHk1bN4h6abKDAFH1cZgu3z7jzjyiP+nMffmKsmkLS8+mhAV/H+0+8Wn5+iF G/bvmtmd8WRa9VmfeThp4cQezehX6v17Rm932NTeCbY5TiRS9tUSVdhUnlgD PkdMh4Wt/VV5WcOulmDjXt29wbxfHTbzGB9HCTAT8nS2AHEo5ap3R+D1CgQ9 ATmBYQOwwG1Jg83451J/NaYNE6jaGKyFjbAKAHQbevPQ9m27KpfdNu3h1Y0j OtX3ahCycKdTIVSam5m0etW/j+bDXRyN928Y1n0e0bOtXstipvZqFDhyyvI9 QiSN5YurSgrwRtF5p49/MaAF+fnStpoSUdgwTALHe8gClkYhNbYJNoo8t4Ww C1A9hqefDZgJeU2D97KnAR2mVFe0xMRoeEcf6lERwm0AFkT16Rdat1Zl2rAZ tRsDUU2IHtECjkQ93DOrCfBJIQnHWao8IhDJyuV1M3PsU+bXCgyZ1U3ZzQvH dm7+cv6c8L+1wEAathoUOX1hwoZdmT8VPBJhL2Y07RvagHwOgk/cc0IsYWM0 XVgyGCg3XHtfLydeUqassZNgI3MzegQXgA5NPK0X+AQ+XbmBrjQarEOf/XfU ZzvAPACUYVEPwm0AFtST5Fs0QAGo3RiYxfQEeGzunpkDtNHksDGnQwDOXV50 gp8eW/67uFMHpyaYEKALCgk+cc8RkYTN3d2zW4Efqq8XdUS5+dXWCTY6bFKG Oqckt6TqQAyV9ebhMWMbj8NIgLLlPg3iHYIoy1FhiU4CUBiEJl2W+3I4I9wG YGF5kurdHKndGJhHcfmeb62pOjq9M6AB/rbtBut5gQ4BeGgnJjkqGElXyBGa C8QGiYWN8eTaV6kvE3riniPwhY2x5saeT4PAjBXveuHbzyvXOW+bYOMbmFwk 91Uh2EOnBPDdndETEcdpkDH7YS/M3nFPbX57AjqUI20oHBrCbQAS5NqhuvP+ AKo3BkarI57zOWNv3sgn+hiHjTkYAnBSO4I+gCZFSU+JhQ3dFFhyQ4IsbKpK T8SPaQWmKjVuNn6HglWNyV6CTf+YK+pcntwU2uHJd6jWVO4b1ozHNFiYPNVy YkK5KWROoZtBqFbVC7cBSJjXDlXm3JK4gDGYgMQVMwOTr3F6N6MaDPeNOR0C cFo7AoiaBSb8yukieSCpsAGdUZI3DKU1leDHW5K9e05IC1DUaNt3W/6zciNQ BOUHYlCCjboBC57zjVNXHIlvz3EaBGc/fe8pWcWqtRq6GYRqVT0MG4AC0T5S xXOICxiDmeur3/Wy3EjQhGzW1dOKD30Z2oiKZPEIN4AJNs46l9EJNpL4NMDe pjii1kYAEmyk7i9T9ShlSDPmqu4sJmjL4we5h7YteOsVbw3wMTpdQERcVpHi d7Clt9aFWukaKZQzAi6gPufZirTiQco7LdhPg6CqaT54lopVDeMUjIpXZAg2 IBxiUVNzHMo1jAHn8Z2U4e0si1KX2LQSpyKt+vGFjR8GknpIgzX3j0q9wFlt 0CEAZwu60XRwtA/5XRIcGio5P8+PWQZEhw1LEecglonhjBK1v4yx9M6VfDOX fss6lJ66eU30EKYaIVWc75iV3xmOn87Lr5O8Mz+lp/2Q/NWS6IhRnZtYl0zR d+q7hCp1COnSq4tOpn09f/qw0Ndae2MN2rw6KPLj9f8FTv1XVVSw+Dr6CZz/ NdOQvitx2cxebW2P+GtbdZr8z/W7DhgMP/6ca7nna3/AvCMEVMDZmH/J6D9/ mf48acz+Md/XOQ2WFx/9JxVv1Wm6zkrKL+d94YqA3jaqOW0ejg0I5HZWpFaK LFDxgGMMkGZsoRSent+5seV2gj7efLG0TqVWeuHQYmB73iB41LbcBzx0HZhg 42RBBw8NwTtWTy9z+FL9e3amwbDvu3Wxcwe1ZbprCLz0we/HfJmUkmZIyzoL rPm37gkMpdKGJLLOF70gre7J1gPGJfxwAkKFH4CKvB/jCHtr7Dd41uLk/Ya0 lKTo2r94PdF7eXpJZdmxJeEdntRoA3ruKnBoGQ/Pz2shqGydemsRuz70FCGo yVfl+QMTA8wzoV2X4+MHF1K/ntSNjLfiAv4w5JpaMgBuGyUPhcMEkg0IwRzX ljl7WRAwjAHajA0D4+3fv/57J4tcITetx07nXblWUoHXkcs78/POxGVR/YE9 fuMW7y7fU8B3t0In2Dhd0OmMd5jOMRgLvWAbBg2p/eD0vyDdmz1EETZeTTq+ 3j88KmbV9h9O3nwI2W9pNOZv+6S7+Rinvtc/Uq8Cq0xV6enFw7x0WPjH0YHU tTgRHiXZ02zdU+xpii0/p1b3sjtwIiqA+qVaJF7jb4nG2xc3TQwlS4x7PR34 zntRny5L+Dxm8t+HBFAlyvWvhH749Q+8pz5lQZ/L4NnWXDnAsgFhFyDzeXNB CDQGuDM2LKrL8/asGGbXX8FE69tu9GcbTt4WkEFBJ9g4L81HFxKE6ilVhLCx SbAx3r+RuXHppKF9/Jt64LIhdEhUwtZsIY9apRiNeevfb2mWIvYzMysebOkP pMfw612IcBXADt3CUyxKf8/a+s+Phr/+cnNLJQDdE6279x8TvTj5v2dL1Lpu 2YF+bjosIk29/hocuDbAGWoyl7hkB0QEGYPCZ+zq8vzDKQnzyOgYTaPnA/sO mfzpl8mHYFTfBRJsnJakOzbpBfMr1d3Bxz5ggs2aszdSvxjg66H1bTs65ovk VNyDN7cPngSi9QtcmK5+pzcXbiRFmseIBmvZMemaffsHDjSJ7u9CKB0Zk/DV DOU512D+g9PV1u7QGlltwFKOTL0xayHGgGZsEzPBxom+fVy4ohPhAZYtcioe wGkvXeiQvs08sa4zVueUADrv0Z2UkebUbo41glRNxfE1PTSk7B205VKdspc+ mSh1xWaEAqE6Uaq5/obE0EoAa73goAtsnWS0AbI9kHpdxwKMAc3YBHSCjdNm rNf2DaEkkGy57iJBJ9gQrrl6ozf9ct/mDo1nNph7ZGs0nUdkupzEtcP9S7Ed qToAjg/eAv4u9bp/EdC4lNKPsgeuJbnck4pDsWTooSG2PNclJle5bIDsMM6i 6aFS4W8MaMYmABNsnOlqoAkI08VXVphlyFB3/h6gkB11Di0viKfOMbrDdA20 FMRC1p11IOrp5CvVlv5GwKSmMm2MHznBDpiXr77ufdJCPy5N/bGri1xC18hm A38QvghVtsPGEWAMaMYm4dKZhfbtMJt6E8Es9dZBwgHka9PIDbfrtiWqYKBr uu8YgEWEnB1toJOvpG2JjlAslHsTLz+78CS3SpNuR/6+t4ln5YXN/dl1npUs NmBJrlBrUTvexoBmbApGL13H+rbu9t+44Gmn7uwjsJzyzKOOSp1SwkbmNigS 8OC7qZSDTouFzsl1IOrL8mNbUVbk8noPwRJ644k1j9rh0mNFKJZGgd7vLHEp 75YcNmDZgEcYHkjyhZDhbQxoxrZAO2Gc5a6XGWKpIIxOF/E1fawezyiup/aq C1QTVWfylYze2nFbuRp0L0IWex8g+UqtuySEGFj2no0brbqsxqiAJBRlRT7l uq4tiW2A3ICr9twub2NAM7YF2glj1ni95lysSx/ePDrhWbpULKODz4WtPTGV V11gL1/pV4rctUp26PJQzmsW/W/vbEv7VpXukhCiYDSdjw2TeMOuMoBH5DN1 S7HrqT+JbYBMrnDmslAmQowBzdgW6AQbs7OieYekm/YWdbzLwzPaF4N7tCBf 2n3dOcs/no7uqvqqC0A5ZSf54bTQVe2OgBVGU+7WNyx36iyrnKoy6trPBMEL yzENl3RHCId0aGiwF0N2/+lqW2cSCW1A3Qk2/I0Bzdg0YAUbAr/INVZd5Eqy d8/o8owmoFfylarLS8jYn8/cvUT53cqcrf08nGRfKx/2+eHAE1N3ezWnAHfq LKvcpasbIYRTcWxFJ7N9eA9ZkOt+dbsdUVX2/Sg/YuYJ31sg99WIiGQ2QCZX qLGFqDBjQDO2BSDBBnuhY4DeXNXHJzQibmNKmgFvOb1gzJvNPYEOdKW3NuPN x809xDelpiYtG/qcTj8gOkfl6zudH+5M6OYtDqMemIuXVAWaXDBTqmyhvVja pz/aQwczjTU3jn1//BZaydweo+nCksFemLOKYe7H3d2zWxHT7+wd91wvCAUi jQ1YKtiosIWoQGNAMzYJWMGmWdukm4zm5ng3lq693p0dt/PULYYLo7z4xLdL I/p1r32Nvk2X8DhHzcfVQcW9tV0o+do/5ooDiwIzh522QVc5YM0ix05d0O/H aApjDnSGJl0W/2IRiufx3S2DWpj3Dm1XIa8NAZm4qNW+MeGEqo9esEQCGyDz TFS46xRsDGjGJqErKjtb0F0butM0U77aAqYkuUx1UPsYTWc3vEbdK5hSZUvu omDydXps+e/0eHKF6kYIiBSe+qgdvpPS95uZ7Q7ruGMsq3yb7kl5bqP0xLYB IltSh43+XvK2m0KAYAxoxiYBu6+qMs8KFveyItnZA1AlwIWqg9YFkGPv6LH8 +cv05z1Ivx8z6QjPT3vp3SNqC3QjxKPy/N5RPri1tJq2xcWHj2OMptOf9q6P x/TbLMpyl65zBGLaAJFAq7Z+N7CMAc3YZuh0EWcl6VwcQNhMyqxbLVc/ShlM OfDc4XyH0ZQxvjXhyGo4c7v9dhlkzhUBs8Djo+vx/lpLkjkCQVD5W8o7eKQb C16SXuKe2sZozFv/fkuNO6oaAhFt4HFRxoaV206p56lCNAY0Y5vAdBFV5lnB 5HHRilecCxu6Nrg7ZPqZMZ7d2ouIVNqV8cQY8X4x5DWiCgAjYw1v4qZzA/mH 4A65Z3dXbVOcFtvZLX01IG5uAxbgGgOasU23syK1pGxTX54VXIC+3nWWKgK6 kmk6DTHcdY/AndF4eeVw4iCDVVfQ0pwDH4W00Dbv8HH6lYdH4tsTo8lycrD0 +sqgZ7xcPlqH4EtF7n9mBD6DeWOTDrnX4l5zakOP2qHi32vVr+5147a4rQ1Y gG8Mbj9jgwk2YUmX5L4cmbEkz9RVna84NaY94d1q3irupIrCt4KpKj0RP6aV Fh8pXSPjkvdTRQA8sOYDJu3+/QGu8Goqf5kXVt88moLmfL1/T/L8Pm3NhY/U 7dREiEtZYUbSyl3n3Gk01a48V7MS1289W+IeOyOnuKUNWBDFGNx7xqYTbFz8 dA87yKao9qtwkxFhN/Yel+YeSYyZMDDwRb0Wa9Dm1UGRH6/PyC0DrcZYXXhk W/TIPv5NPbS+bQZM+Dj1qurHCAKBQKgRt52xqRbVWixkWo4r3JBQyjLiO5kV 7MCkc7S0qf31DasHmJtkIe8xAoFAIBCKpXD3oqAmGp/ug7/8GS3WZow1N/Z8 GuSJYV71Q6bEJe83pKVsWjiim75W03h5hsWsR95jBAKBQCAQ6qLiVs7W2OnD Xn+5uSem9W0X/NaIuSuTjlx9gDQNAoFAIBAIBAKBQCAQCAQCgUAgEAgEAoFA IBAIBAKBQCAQCAQCgUAgEAgEAoFAIBAIBAKBQCAQCAQCgUAgEAgEAoFAIBAI BAKBQCAQbs//A8s6p4E= "], {{0, 109}, {755, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{670.4036458333335, Automatic}, ImageSizeRaw->{755, 109}, PlotRange->{{0, 755}, {0, 109}}]], "Input",ExpressionUUID->"de891d58-d75b-4d18-9600-b5bdf252d814"]], \ "Subsection", CellChangeTimes->{ 3.746790794639846*^9, {3.7468324068772516`*^9, 3.746832407310075*^9}, { 3.751392990009074*^9, 3.751392990009355*^9}, {3.7513933965507708`*^9, 3.751393396551046*^9}},ExpressionUUID->"dfc45c5e-b57b-4d7d-bb36-\ 55d31e089e24"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{"Fb", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "=", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "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"}], "}"}]}], "]"}]}], " ", ",", 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.751392712158503*^9, 3.751392746426461*^9, 3.751392838620247*^9, 3.751392910734806*^9, { 3.751393013145874*^9, 3.751393024544281*^9}, {3.751393559651286*^9, 3.751393573383724*^9}}, CellLabel->"In[59]:=",ExpressionUUID->"09aba392-0b0e-4175-b319-34ad77a91c4c"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "2", "]"}], "[", RowBox[{"Fb", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.7467913000660734`*^9, 3.74679130814038*^9}, 3.746807032959241*^9, 3.7468331516324916`*^9, 3.751392712841555*^9, 3.751392839390808*^9, 3.751392911279395*^9, {3.751393561360929*^9, 3.751393561435438*^9}, {3.751393608659534*^9, 3.751393612000443*^9}}, CellLabel->"In[60]:=",ExpressionUUID->"ee73a25e-cdd9-4e84-bab0-35e07288aea7"], Cell[BoxData[ RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "2", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "2", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "2", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "2", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]], "Output", CellChangeTimes->{ 3.7513930382630787`*^9, {3.751393593516858*^9, 3.751393612313402*^9}, 3.751562784801939*^9, 3.751727178601491*^9, 3.751730248254661*^9}, CellLabel->"Out[60]=",ExpressionUUID->"12ff306e-e591-480d-b23d-4b2079e2e22a"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnQt8DFffx2d3I9XIKuolqcclqlSkF4IHSfoooa7VonjE06KN+yV1S5u6 RcPj0hJVlIo8RaioW5RslGiJqiiiJUqCCm3ikiiJRhLZfTM7uztndje7szNn ZnZm/9/P530/76ub3Tkz/znnd/7nfwkYPXXgGDVBENNrVv2vgaOiX502bdSH g+pU/T9vTZk+fuyUyPd6T5kROTZyWqfRmqp/nFL1PxOq/g/y/zYAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABY8+ivvNycgod6Dn+q L7595cq1onLs1wQAAAAAAAC4J3rDuQ0dCWKU7j6HP364fSLxhGplLvarAgAA AABAHpSf3z0sJCQx55HUFwKIhkk9dl77K4c/zl3YjdCCegQAAAAAT+XPnyY3 8SIIlTqoW9IViQVk2R/n9yZ8lqg7e69S2gvxAArS3ybUT03dVurqH+oNewY+ RbTon1YsxGUBAAAAAODe5J+Z3a4eYUbbY0JGIZdAOCyQLlB/L+pKOsRngn4U ltK8xa3URMcxp8pc/MPi7I8aqIluMy4+FuS6AAAAAABwX4r/SOjbmNRqGq82 gS3UlIDsNTXzgRQXU1m+Z1BDs4zVEIOXFkgmYz2Fk1FBhBcx9WiJS39Vuj+m PkE0//gwPB8AAAAA8CyKb24a3EplVGqhi3RFD4sOzQyvZZRuAZGrc10+zuRN xf2EUG+LeOy3+RKIE6Ex6kBVrbdXFbD38z66nRBen6jhsuYEAAAAAJGoKL6Q 8tWqlZ8tm/3++CpGDg0PCw3t2O6VxamQ4MGLipIfokIIk3RMK6o0/ePRWSYB +ez07XdFPzkuPrZ+4HN11I2eH73u+yLFn1s/Ls09tP2LL5Myb0lnyw9/Xxzo RXgTEbvzWP7F9fX/qU+oibBJWfAGAoD7gGk+gchzQBHoDdlb/kXYAU7NeGFR iT5P9FiWxtBplv+EqkoAO2V/7R3V1pf0/KpUHd7OkM6Nd+frSQ0IFeHXYl7G LacfLkxb3KUG4ZLaBAA5Qoqo1R+PG9irXdM61KJTu0XbV/oPmfrxqpTTV0vc bWLENJ94euT5dd0Q/2b9349N2HUwMzs39+Zd65BwfUVR3pXsk9+nbFo9Z0TX Z8esL5TkOgE2kA8rt4qcM8c/6dPYpB29ieifoE4xV/T6nM9H1K+6jb41Irad t3MfqwTk7H4NNaSA7Jv4K9xoIag8vqK1ZS/0lKSlb8ruJ79Z9WaRAnLukRvV Pm595fVd80PIyAKV778/vQ75MoBC0d+7suPD4a1rVk2ATzTv3CtizHjjsdew kCZ1LK+sf+c3FqVmu4+GxDOfeHrkuamIGUvUgaEbL/4t9TUDLCCLhNQ2PjQV 0TR0512pr0emVEnH9e82VVUvHV36GMCVx9/F1jdPQkSfj3KlFWM3jo55xuhw 8PENm7RYd/E2Y8etryg8lx4/IkRrfPvUL7yWku9ZiwrgOZRlfzcl+GnCt16/ +RuP33jAMPTHpXlHksa+aK5QoanRZuJaCeLD7YFnPvH0yHMX1KNfnzEpVyF2 RyaQRUI8dk+EDdPJIxtNaBGQdf2jjzk/0wRco/jm5pFdGtaq1+6dD9PypJ+F ys/vHxtEF27yb9czYsy4qVHvTxgXOajtP9Tmf9e2f32r1BVBAUAo8k/PbOWt Duy28ufqZzxLsiH1Rgxd5BYCEtN84lmR59awUo/qZm3Hf3mwAFwq8kF/as3L 5sfXZslxqS9HnhTnxDb3csGdaBKQkCLhEehvXdw4tntDr2omTR9t2PRVWUWw bQMUSmX5ofcCCb9nlp1zdhxpaq9gInBeKlQfUAQm9RjQf/z4QXS8K0XtFi/3 i/xg3YGTt0A3yo0/Px9keooQ9MiDstyjKZnVx7bZoq+8nr79iBs4xwBxKM4+ si5mTN/g57SUw5EM/XptdOwq6+NsAFAW+rMbOhNEUNxhNtPjn+v/84RFWNSr u/Kyx/nplIhN89ZHf1FZFwUPYdcsWyorkvsao64IFdEifB+kOSmD0sKT2+Kn DuoZ2MBL3ahV6IDhH39zEspEAAAgPhfmhRm3SzWb9/r3skO5TjTkDd1QxDHV Pv4UyAv5Y6MeAQWABD2qI+JBPCqAsuyDM8Maq+v9Y/CHnySlpH0T/34XH/IB S1OoHAAAQdHrc7+e1/1ponviZakvxR6P/94c7mMWgyqiafDWPx1+vuzumvaW w2sN8frHN6rZ9lbsj3lC+48ITwwjtIdbmwGoRy64u4VnbehkflFD1v4i9dUA fDFWFVNrwyN1ljNxveHw6ObUTNwj4VfYyAOAcjBVkVWpg7p+k+eWa8yjguUv MeJ8x6U7Cdc5MKwOrTYDhxx5WM3n7p6P7fC0WyVoS4a7mwGoR064t4Xf/XKE OXSfmHu6QurLAfhx7dA7DTS23bRzF3ajctqI3jFX3HBqAQCAA7Rm6Jbkxgn7 x8Y9S2vHBo3XXXOyhWWoxxb904qr/2j+mdnt6nn6wYoMzADUI1fc1sL1hgPD /U0v6fP90/6S+noAPpC1qZsQ9moGno1uz2oqlin6xwXHv5kzlArybNFnzEdb f7kt9TWxoqyMS7pMedkjcCADFs1ANGq5Mts9NYOZ/NMLwhqTuWL1Go7e7qwq BeOkW010m3HRcYlFcsvshXN5xTKfiBZ5Lg8zULp6fHA1YUjbWj61w+buKHD2 lIuz0xNXrfzfUWcBwBawWzgWbIIe9feupycsGTeQtHnCp36b7gOi4rfgbxZc 9XqePrRl6UejBzKT9+s2Ce7ae8Ss2ARI3nedB7um1Sfs9bmjE6PURMcxp1gL Fn3x7Su5uMjJuyfMzFZRfHLxiGYaokNkXNK+tO3R/clekL7E+IP5gvwcV0pu XDi2Y9Ons6cP79M1uBmjYAX1oo2f/+nWYxedtNigCj3VgNoIHo9ef3nFYB+j qY/eJ4/WliV/5rJKsKVXJXLKemrqNqcLZvmpL181lol8dvr2uzwVGo75RLzI c9mYgT31+OivvPM/p+t0urTvMi9eK5LzlPb78v4m/0xA+L57Dj96I/3tJ42f ree/7ne234/TwnGBBj2uPnc95ZM+jao2Si2Hx1TZvC41OXFWz5ZVG0Z1QPDc NNY62TGPS3N2fzbqn40tRZLJCaJRqy6dXvTzJlDIwqGr9+Q+kIGXRV9eVs77 Mvl+Sekfy4Nr2m+FcC9rRl3THkEz6osHdv7YPuW7pxPYMW4QIqJiVm5Pyy7E oCevJ0Y2fRIps1mQ/rbxLZa2w7WFkmtn9q6YHfFKS63a2Z0x4rhNm7EivYpo 2DLxprjDANyMOzunNzMaTPuFh93AzHGC1h8mvIlxh4rY/FX+/957miBDu8PX /MxnqeI/n4gZeS4fM0DVo9G1O6RrQC3G1Kdu1HrwzKW63PsyWPKtoBsJOffP 0LGCWmLZby6MFZeF44IeiLem+4DXGnoTHaYwqxY/vJ081Fj8H0dXlLLfTyzu RcpRY+mGiLnrt2X8chndjZYV3sz6LnnpxIGtnzRbVGC3+B9dKaIoBThUlobo FXOV+57C9G7anWn1J1a0Mv9MnyTWux2B1COKT712EVHrD3PvaavPTu6tJtov y6Df17sZkaYvlzSOlzr8GvxPvxpWQ67/Qp8hU+cvSdyVqvv+RHZubu6lXzIO pn3zZfzcMcPa1Temmmq8AiPmHsm3ltbGVcmLnKBCJ52DApEeDGX2VWj7RGdV l1EiU/SGYxMCzW+LmggZk8lSFVWUHBgZaFyq6sw9yTEGC8N8ImLkuazMwLRC dYrd+b/RIVq1V+DQqHX7f/ztltE99Oh+9sGtM1+hYhvcOMW4OugaU17qsYmO CuKjBRIdpIPZBYeFY4MOejTiW2P4xp9sAzOoQq/k5qvdkHQel2xe+4iAN6cn nb7pWBCW5Xy/oEdLtfnC3LwftBuoRzJYqOD6H3ZlGF0N3peI+9WF36BPro0K J2XT53OGdNLaXvtTjUas2Hb45wuOzq3P/piW+m3S54uiR5k1EoJ/+LsJp5yY hB0qy1NHBFivL6fXvGS+o1OPSaGxKN34+ku+KmSERp28bv/xPIcnd/oH+RkJ c7o/7UXYBsCbY6fJ2zV7v7wmVwAnxb+vCDFaQt2acWedtW6RHbl73rC8Nb7E 1O9ZOR5N5KW/Q7qzVKq2A3R3XPdg8Z9PxIw8l5kZ0J0K1c93WnrUnkfI0qdS Q4QuSpORgEQ6oTvzzyDngFwKJPK0cIyg4SUaIiz+uP13ozRvsdl11TfpGref MknHagSqfUqLDs0MN/m23VtAMuIDc37LTNfp9ny9NnZWv5bM8DaTkNCGvhvz aWJyqi4141wOLbBu3hVE6/DZ7NhS8TB5QEPmeJzttmwx7jRt9JV3+OxNF4td eSMubOlKEOGJl9B/o+NPpDjeLbuZtcGqI6GPV48Zn6W5dByTf3rJa1VbJ0RA Mvv/Dk+Bsqyeit5wZn4PalZk2bpFTpDqq7Hl1eFwGms63eMWHsZ7PsEeeV4t 8jMDSj1WiefOiTnVByyZ1BEpSPom/iqHcZGYtwYs/DNIrGBw/M8cfouXhWME GUiDyA23qr8Sc/0EDTF4aQEHwXvvUmwbby4K8NGdzf3Mk4k7eGtdhdmzVZqX gudmxwbak8nvLSB9dMeSxr5YD/0qbbf/pFxlGwxJTuz+wUkFyD89urOmkzn+ 5I24PMepmngxlepFHrdGEzRyQdoVTmE8xX8k9CUtnzyTelDyQ1SI+Ush6NGj MQfPV+0E+6c5Ds6XIZaVkeCcYEKGf3tT67hrfkv+84kAkefVIUszuHVyUmCd qENOko8uL+xhmugaNV2XKwf/Ixr02Pbt4w49KUisINfMRx4WjhF0IFOPOtrk mdUjJ6+73nA6hmxTxQgmYc9V3TBTNo1K1fntDP4vnrgghcuMPKVamSvqBaBB j1iqwdse0/MqwlB8Y8/Ebr70l6nUQa+ty2JRH4N8Z5+02s6g8fZWPgRB0d+7 suXdEPRMn0w0O8A9npPEvPUI7t4T8fZC0KMH8+h2QrjxiEyJZf8tWaXcpaOR El1sK+pNYR8zaeA/nwgSeW4fRZsB6tTyi9oug/JydNCjM/8MWiCxaejOuxx/ kKOFY+XQyGdYDQStvuVKjrkJKo5F80Tz4C49/j12/SmXU2/MmxGS0M9OycWb TZE9LxTRFCzS+XFDuwoxZZFgVo8Gc4kMOiWZbc3bgh936C7dR//lZFSQ6TtY VCTGRVnODzPbMz2oPSam2+S8cIA6CLMCgh49FrM9yMrjxJIbR8c8Q6WMqTpM S+RV1sbinCGIsLXn2M8CfOcTASLP7aJkMzCgfloV0YjpCnZL0KBHJ/4ZpECi g/6bzuFq4dgoyY1tZh6I4/No+pNcXGcX5oUx5VPITlf147U9Ayx/Lrf3xZxq Z75+kYt1o0GPmKrB41ePBkvBW/pGcem3dTdzkukr1OqhS/NF0VhFJzYNa4Se VmNtKYXMEhYg6NFDkXzJEA5LRpjv0/3iD/JPl6D1Veue+25zvVW45hO8kecK NgMKZl/LgTsc90SXHjro0al/5vKO18zjav7xYT7PDo+FcwYZSJslxx19EhVv rsZcocqTgsPRLaP1gKgnkvyRWD3iDno0CKQeDdYB84TrZShQT504c46x+iJy xQKkCt7/emJN1H4g6NFTodcLDhtwd6b45tru9clx+QVGpVzAc7RUnBPb3LSn C1qSwW1xxTafYJ2EFWsGCGi4l7sftdBBj84PFu9vfs+yUow7zE8H4LBwztAD cRa9iThmXd86WYpl0fIpfJ/r7w9y/it6NgQ/pFWP2IMeDcKpRwNyemUmcF4q 27COyvI9gxqabrIo5x0iSEeSP6hixWbjh6BHz6Tsr4Suph20PILBWGIqJqBS B/VIvIizTDSdfMHtuArffIJzElaqGTBB1CPXRF3RQIIenV6quds7HicAXwvn AT0QZ69GzsJwy6N0eevE6DnlsC6QQxDFIrb75cGBReEhoQgh/UZOW7abbcdS zupRf+96avzsiN6voL8d+kr7uJ9cCJPFHvRoEFQ9MpMuSdiXMrtueYvVtcd9 JXRyVfkvyW/6Mm6CUB1ImY53d9+JA8JQeXxFa9wvsvSY61DhihNmYCy/Q8Gl 0By++QTjJCxTM9AX/LJyRLcAbc3mfUYk/OI8fIqhHnmWQRYYNOjRyRnuo/zl bSnfCCYnAE8L50zZ3TXtzQNxXPqeuXhx2DoVHlzepwlpDGTnwY3casjThUYp xAz9qryw//03rHsqsVcL3NSj/lLqyGeta0WqG7XoM3LyN1dYTxoCBD0aBFaP NpF+avsVMGygCwhoiFGpApuHtY9Upeo4NL1QqB0yHVfD/7wDkCOWPne4qgW6 A2bpGDBiQWZRte9ObtLccQv+x37Oo6FXLjXRfUa2iyfi2OYTjJOwbM3gTHQH ej5n8SwY6pFPdonwoJOzk2LydAQgJicAPwvnTlHmJFNtBHWdmbscLc60Y5Yg niKWZUvyIK3VI8+IUw6U3Ty3ZmArtLg1eRnRu52u5VzUo6UggwWNqsP767Jd qqRtYMTbYPT/C6seDYY7m95lJIp4E6MPOCkRxijL9sJbR5A7rL+VnaJj6yhm hSlMC0HgXg/mIBN5ZCAC+CnIiDR3bhV/6hMESjqqnaWYkdKrDue5i3b6aYm4 c64IUIzzCcagR5maAR0ZyG4FpPU2C30iLWjQo7PJuWJ/jCWCneH+KsnP0B3O 43Ruxd3C+YCEIzpe+pGgfVWtt1cVSLULQHS7ZLEQls5QFljIaQ7qsXR/jFWd Fu3QRRxORdF4GydOdVcQWj0yI/0IVhsrxIfvP2s3egZGVgBuiq9KEtLiwQLH QqasMd9wnB1yARlBT8KcKwy7FSbpyCJO2Bj4xN1Rg0wLrsktfPMJxqBH+ZoB 4ktkcZaE9LYj3LzEBO1bc34YTXspmWUPqbNvjnEInC2cD4h6HJdefcDJ44fJ /c1CRkvMPSVVM00r36Oa6DbjohQbEtv6e04fmcvq0ar5OI87T29MsM42gqtH Ol7djA8x64SjO0BXhbLagpE+BOsKwHwoO7a8LePKxKjXagmtkZPDAcAFmr6B L/5EMipKDowMVNXyith0xmktfUp6dU+8zPG36Iofrh31YpxPsAU9ytkMjKkT TzTv0O2tmUvSbzgLcKUlGcccW9FAgh6dnbCj/WiYpkiqylZcHyhXC+cFUlLJ gXrUn93Q2bxMStpU0Uo9il73xgJdAcz8yJztOFxWj1Z5RpxDGtB4Gx5l7W0R XD2iQUfmm+AocB19MZn3ijLg4XsxVe+hGm6ieNtvLYEX0w2HoEfPhHbFYyu6 JRnGsq4+DVqM3+msZe3jvwuu5Owd067qnXYSTuYQutw3+7ArjPMJxqBHOZsB dd9YVqdEa5S5eXMQ2p3o7KGYu8MQ1q0qyVSaGnzSsrhYOE8QB9co3X37n6ks Tx0RQFm+qu0A3R1J3R6n1yAFRKVTj8wcIjbRDi6rR6QOJwVHj5MwQY8GUdQj 83ETTjahiCOdcUBfWX7ovUCM1QxyPnndh3FVbDN6eGK84RD06KG40MnCzbHu CMAODt3NEB5un2j5JraFgjHOJ/gmYXmbAXXrmry47pIzx2PxtcXtTDt0V+v9 ig0jntPheSgzyzI4/mf6PxmPnvmkZXGxcN5YFH51EXGFKTHPUwu3X7O4U0I6 yvXlZeVO3iumYpFOPaJS32TixLLfHF28q+qx8vslTZjTJ7dCtQIFPRrEUY8F VqGPDluxI95a1JFOnTIPSubdVZaC7rdOX5IIjkeDyYQg6NFDof0bcot2Y8BN OvJtzqI3ZG/5l+mrWLvs8M0nGCdh2ZvBnz9NblJDHRqRmle9gKSNhFOvMZFB E4pJmdQ68YY9JUD2UXpa/VxoF3MrDHS5JLPRefk3OFk4f4rOfxTgVd3BqLmc XdU9aTEvA3NF+7Jblw9v+XzumKE9Xn5OS3c3Jvzb9RwRHbfj9E3bd4OOHqGe lHTqkakGrWcYZ593fuW22szx91eHQEGPdq8Qv3pkNquiqNYHSxeyoB3p5ed3 D/MnAsYm4Cksrzf8NK0983JEcjwazCYEQY+eiCtJnZjRVxTl5bpCTt69amYq e7lm7OBdsIWWgmqi7dvH2cSP45tPsE3CgplBydXMHUtjInq87GfZGtdtFDps wrJdx25xul4HrqDy8/vHBtVTB3Sctc3Ol5fdzNowKoQ65vfrP51z/U/RRoR6 gylsi/gVZe6c0v5pVVC3pCsVlxdRxb3pPKzyrC29vHi3m+Rg4TgoOby4rfEF 7Zv4K31f9Y/zdav6GB2t6sBuK3/GJx31jwuO71gw4lU/sxNX3ei5bkNGjZ/2 0bL4T+dOnWB64hqvwOEfpjF3KEyPn5Tqke7RYwavemTqZK6x1nRLAuuKE/wR Qz3qDXsG1nZhHTEfDWjDJybt/3ZL3Pj2tYiAIR8dx1WD0ToNnES0Aq1lf5w/ nHYw+x6IR8+DdsIL32bo0f3s75KXTnunX5cX/aybq7NGU6PN5I3WEsveZpAd vAu2oLFGzs6JaLDMJxgjzwUwA/2ti1um9G2oqfbWa9u/uT7rtmvfeW5LN4cH 65Yf1bbuOmLW/LXb9up0aSmb18dNHNjaWIxIG9g12p62dMMRIUGPxLNtgrTG cn7+3UfFJSSnVg1q0+o5VVLHWxM0Ki6jwKgQzG2VyI6cG1NSEpcO/IcGw+k8 Nwvnj77y+q75IVUThU+tsAlxSft0qckb5w7pRFq8j3d4zPpz1RdxdZUqET7n 9Zd8qYKJ5M8t2JF51Tbnjmyw8t93A71ValKum1WZdbShlLVSXfUNuqoerX2b 1bcF1xec+yKyb4CvV2DEXKtprTxj+cvmL+C7tbFBDPVI90Jie+uqpo6kuWP6 Bj+n9anfJnzwB5sPFeBzuJJlOqwvxq2TAQFlgBx9MoPt8f5K1ay7LCr0/7wI LPCLVMQO6nlgX/4Fw3yCL+gRuxkUHl0/8Bmnj9vFk0cqUYJFhRCje/Cj0QN7 tWtqrORTt0lw194johcm/XCuiGtWutgjQr3BDVsm3nhccCr1i9mTB3Xv2Ny3 6ikZE8yn2xyklhae/GrJqF6dqz6jbdE+Im7TRVdrONuDm4Vjoexm1pbYyYNe Ifeb6katQl8fMmtF4pGr+FqOlhSkzh7UzLwjqB06PPGcE/1fdGLTsEY1iM5v Z1DvCf0aml9G6erPu4t6fFy6563Glk8xilrQxcbV6n+NOYl7yRFHPdpGCDgQ 0sLy8PfFgVbzkhjNEAEAPekQJHRBX3l97yd9GmHSjcZXA/thB0/Q0xy8EeCO wRj0iNMM9Pqcr94PZqb/VY+KaNRyZTarQ2RjYrUURaElGRHqDZY6Il0qCxea st9/jA1rbIpt1BAhH269wq7qNZWzExR3uJwRF0rh5TVlq1Q9Pm21U58kRztt odQjM6+EzqzRGy4s6u9D/VZTFjluriOZepQoXNw2j0mMZogAwDwd4172sDqK b+yZ2M2XwIemZvOuAz49gTlOnifIfOWlHpsoWs1ijJHnGM0gP2mi9WxGUbdZ UDPr3rgUvgPmOFdblJvuSSeFeYVAkhGhi4LkEelSWbigGCONzbtaDYvOAijU swsI2XnLTqihEHKFJa5qJ1fVY/a8UMbnq4uRpntNEtpeUzMpR1hp0aGYfsbA D5U66LV1LsZ4sEQy9cg1gYgndOlgy0PBWj/TLSi8mBA9YbybMG9VFjh2jSBN OnAbf/7pBZZ9PUW9gP7TFiYd+CHryh9kTNGjv/LOn9b9L35sZ/RjVcbfJvGa eyfDMkBrBWuIXjFXxbl2rJHnuMyg7PjqLki3Xe1L3aOWJx755WqRRds+/rsg +7Ruw5KR/0QeusZ5prnRTSdeIqEFqUZkrH9uxEExEJGQyMKFhCEdCSIwZq8L 0tGI/tSal0nPXn7GBGYInNN25AJi3XGbwK0e0YnC0ectaYz1GoxetVuX+m3S 8gUjOxlfkLr1+83GGbNqhTjq0fZXeM6cHCGruVqd68mvWq9T7N5tCZFkm+B2 oMkmvkTcr/hWBbKKCNJ0lYxy//LUrWruedWedCaj2I5f1HZ3Opp2Bt3lFnO6 pUiR57jM4M7ZGQGmqUz9fNic7Q6TUyqKszZ+0NnUVltNhE3KcvBGUq6eGiJV MKORakR0IoZ7BMALZuGSYCUdWTmKbSG78Ki9B0dPZ1RYlLpsMqPjNuE0K9A1 9choEE84qUH6uDRn37qoQabYY/8XOvUY+t68DTvO3hZ25fUs9cgo6mVCftV6 naE//3VvLcbgN16onw1KUMD+mT9ovDfGoN/im2u7W2qNGDNAUy44OVil2gta nlCDxuuuyacCAF39G+vaIVrkORYzqKw4Orkd9R0BIxZksvMt0Ou4w9q20jge JRzRrYxIczSeW3gSBLJwSbh3eXFHy8aW10kH6Yir5+//JGNtkarJtQmbFB7H SXCuqUdmg3hBEy05I456REvoWxBfPdoW9ZJrtV5AdqCLAq5giYqHh8a1o6cj 9imol5J7IS+BaF0tMED3AsYqwkWLPMdhBlSpc8JeTULHlJ/68lVy26D2Gb3e vkySyPEo4YjQoEe3eBEEsnDxYcxOJHz89naD3yQOUrUtH+SwAJdr6tGmxwqj q5F74FFxj9blNxWwuQPkggAHUowUA29i8CZn/aYtMI5F3HFXWy3oyS+38rl2 ES3ynL8ZlN3f3JvcBGuHLnJJaFH8vuotHwfzXu6eN8R3PEo6IjroUbTW0o4R yMJFB+kGbrR2fl2G7SbeSh2kapVG4UROuKQe0SIP1GDd0M0lmXqU4r1Asx2N CF+0GQBI0BBrTOoxL/0dJH6xQeSGW64sfUhCn5QVd12GWasc2w5UpMhzDGZQ eXxF66q/bdZh601Ol1T6x/Jgsrah3Z65ZK89NTF8L5d2upyRdkTm3ARnwZOi IZCFi4yp+yFN0JIMPq+QjYRwiyBV6xIuDgWtS+rRpiGj9IO1RSL1aCzKehP7 7ziBmcREyMzrAsgY3OqxsvzQe5bYRS4r7/Xl/VjOY+6FcGurGJHnvM3A3HiR zyHg/a8n1rQb41eQEfmkmggZkymmR0fqEeXvnBdSX+Xfub+7FKdShHr8c/1/ nkBXWt5+XVvPj1tUaaY7S5pwcJjugnq0ORN3i8HaII56tJFtojbxrP4yCP/Z +3meVZR+tziQcIT/C51DTYQFoyXLfIjoE3Lx+Lgp+kupI5+1XwVONLTt++3M c2pEqGzAEOxtTASgab8sw1VLQva2slKPzFREua2tvM2AXK14OyJITaUinu+f 9hfjny8vJHs3Y29n5gTljYgn8rZwI9YtOXifblgnILtRlWbKxtiM1AX1aJXN 7TApTELEUI/WQpqQKrvNVj3yH6xNLCVrfIm5p90ukkFeuEltIhYzPNYybmZ3 jRGOR37IVCYr9Sho2UzB4W0GxvjM5tG7eT0uyn6eZMYOFWXNaCjFAZnyRsQb OVs4SdnBWKuS73zTW6xdfO70WMnAWoTqD6/Zq0drRdp9RrZbKgUx1COaRGZG kjo5QqhHsg5zrpnzP6frdLpvdyV+8vHwl+pZj5kgAt6IWrl1r06XmnEuJ/fm XfA88kSevkfe6vE6o/AUt4KNh0Y+Y/4CUI+i4S61oKmeHWhjtTub3vU29YOT JUoakZwt3Gpva4R/ekvWhk7MWdd/1m53uS96w/nYcOTSqu3vyVY93jo5CamQ WXX3InbnCTwGjoihHm2rLEqU3WarHkfp7gv0WzbVgdRE27eO/OX8DwElwjyy 5Be2cffLEXxn5rK7a9p70ZYpo9yxivsJod6yXVtxmgGvyyD7BSPFjanEk3p1 V152g6RjLihoRPK2cHt+Qt4FyhgzXhVaIu6cO6Wi37sU24Z+ZIQvMf5gvu2n WKlHveF0DCOPW4Je86wRQT3a0VESeWJtIm8F7JJp25FT8g6qgHTgy5phxIFw bZzHKCbmHkWSWSLvnAIBUu+5QRY61hCvf3zDuDAZs56rL5koCxQzIrlbOCnj UTTE4KUFfFY+264rb8TlSVgk3B7MJpsqVdsBujvWY2ajHksOL26LfEb9wmsp +e6rGkRQj7aaTaowZustjJDq8dg4ZkdOt6zXBIgFOqnykw0MTz7HXDyrQhNy areknLVVUvVIOp+9Tc5PqVoT4kUxI5K3hdtRFG2WHOf1jcxAHbdNIbmzLzYY yTPXDp5/oZghc5yqR2ZXR1e6P0iE4OrROv2KR10v3lhX4MSRc20f64ba+NqL ADIFbTLCQzZYCT800Is9jCK38qpIjK6tcuzEgckM+HNgWF0iIHzfPWp1dptq hzxQyIhkbuG2tZ15hof9sXow8mWil7J3hcK0xV1qIAKyx8T0fNoEHavHwqPr Bz5DawZ1wMtxxzlJx4riCylfrVr52bLZ74+vYuTQ8LDQ0I7tXlmciv1tEFo9 2qZfBc5LlaxAPNJRwohgZ3bW/dN5e+9dovBiQvSE8W7CvFVZblipSnxQ2cCj 2CnDf+5LxP3q+u7n0Z01nSxROrIqFW4QrF24aGAyA/6QR0K1yRv4+/L+hOzK 2thDISOSuYVbq8d6/uu4bHDNmEvBm3BXx6OF4jO7xr5AJ8yqnw+JS80uMU7S 1alH/b28lHkRrWvS/82v3xRdHjetZxs5YEKIwDlh1SN1goDeMekcj9T17BnU kHE9NiXCsPD37ulPMu8qX++9K7hJHRsLsjt8EQRMLgVGpR1ODm2rWpE8e0CI Daq+KEeTvHAbzxJpSFpi5Xnj6uzXOvGGnKzALgoZkcwt3FojBQ458pD7tzG9 T26dQkJTWng0Pir0/2hHon/X4XM37PtmamfGnWnWc336ocS5Y7s0pD+pDewa ve3YLT4xbvqKImMVmJwzxz/p09j0vcIEzgmqHstPrkbvF6Ehwtf8LG3w34Nd 0xgpPD7ErBP48x6lDXrUn/+6t5bRJUpC1M8GJUhVl8StQLNdNMTUYxz9fcjk zNFtiBxbS72b48DlHa/xG77EYDID/pCGpCKm/HdJoEyzS2xQyIhkbuFM9civ LNWj2wnh9enJqlHLldksHBEPriYMaVvLp3bY3B1OpWZxdnriqpX/O5qLfXnW 37uuW/vxqK4ttWoWy6RP3eChE5bt4qcbra/AsGdgbdOtEyZwTkD1yHj0JL4D 5rB5+MJi03+TW7k8RwhQsgBQAEiJRWJ4CsfFDZmcOc3MdzMnId2xZVcNDwld phNs5QUWM+AP1ebg2ebN5ZpdYoMyRiR3C2cWG+EVssVw9WiIsPjjbKQ0FbfA ynN7I/1t6oyQ5/G6Q0puXDi2Y9Ons2dE/LMxgfJUs36Rk+fGb/gm/ce8hwJs 4WkdIlTgnFDqUW+4sKg/0mCmSkG9uO6S5NqRhNmCs+rC2iRew/mK2oR6yqoi CiAYSGtp7m8Z8iVcurQjxq8iWvfcd1tWjkfGfIUU95MVWMyAP+Y7ybXok/uh jBHJ3sIZlb15+B7vnJ2B+HnYup7oapnOPbd0DLmWWPab4DOhC50KcaA/teZl 848JFDgnkHq8s3N6M/RLtTWijrhN7rlVIC5B+E/cXIhLP1qHepLIqSIKIBgV +2PMkdFeXlO2cstzRqqnuj4zk+2AzUbpxi0MHIBKr+6Jl6W+HC5gMQP+WO6k YurQKmNEsrdwRpUVrp0IKiuOTm6HCK1/br3ObqajC5p5qccmOgpKo8tI8g3O ZInI6pHuoSxY4Bx+9aivvL5rfgiqznxrRGw771YHZOWnvnwVTb72JUbvw7OS FqbEPG91Q+VVEQUQDjqiiceWnJ4eXZyZGRMy8ez07XfldihmQI995VtAFYsZ 8Ma0lilodlLGiBRg4UibZhXRKDipwOVvYHif6vpHH2PrekJbkzipZkbntot0 OCiqekS1sWA9wTGrx4rik4tHNEPDROs1HL3dvaQjxfXEyKZIcXgslTmtyj2Z vlmYtG5AftCBKDymDrpugGszc37SREtAhVtEIHOAbrDIcVVyC7CYAW+Ma5ks 8zKqQwkjUoaFW+IJjfRNuubSXzOWURddT3RrEqfVzJAT9uD4n126Qm6Iqh6R oEfhtDHt3uR9J4syd84Ia4wqR/XznZadcJsDaytsIzP9AqNSLnAUunp97tYP OxtPpALGfLWRbhMPQY+AGbTlFo9Im7Ijiy3+bZYzMzoha3tMyCiU58ke3WBR TfSOuSJD3ykJJjPgyYFhdQiZH/JaoYQRKcPCDYbfV73lYxlIyJhM1iWeCw9+ 2r2u+eDb1VNLNOjRWRN5OuhRLB8vZZ80ghbsQrSxUIFzFQ+TBzRkjMhptIAt j+5nH9w65/WXfNGzYI0maFRcRgEOB4f+ccGp1C9mTx7UvWNzX6J2i5f7RX6w /gckxb6irIzbW6bX56x/tynjsokOUz7LvOXaZRdnH/lkcFty+Boi5MOtV0oZ AavcuoEAigTdrA3c8SfHbym7n/xmY/YzMyod/fpPk6t0ZPaKkrVIwGMGfKDW WZkf8jJQxIjwWLhwKyZ7Ht1OHtzKsrS2j00tcvqLjx9dSHg/2CQ6OTlz6Kge Z04bveHAcH/TD4lTEcWm2EuVWhiULJQ2oLUxpjdCX3z7Sq6RS79kHExL2bQ6 egBT8pkkcaMRK77WHT+Tk1stOWd/TEv9NunzRdGjhrWrb11aUNv2tUXm+uo8 Kcv5Po7SpfUC+k9bmLRPl5qcGF31Lz5P9FiWVlRecmxRROuaKnVQ12/yOP2e /nH+oXVohyCqB0RE3Lojl247OQAhZXPSghGv+hn/Wh3QMXrPWdOoLbkz3LqB AAoFXR14dcn886fJTUxGGxizt9qZubTw6H/NkSQaVYdpibmlnH9SeugpUUOM OyzbrFqMZsCZWxmRapGSBURCESPib+GCr5jsyT8zu109y3BCPth0sbhaOVx8 4eBCxAFVO3TY1uz7ropnNOjRicMNrWaDtSwSrbJInfRbZrpOt+frtbGz+rVk Oh5N0k4b+m7Mp4nJqbrUjHOI4Lp5l1fwBaqNMQXOCd6CRFOzeZ+R8d+exFPx EjkL1nb7T8pVxB9YUXxm4SAfDRHxQXSw+cf5VE7T37uy48PhaKsgCv92PUfM mr92217ddz9kXTYZQ+qOr1YtWTD+za4Blrp59RoPXrDhlJXH8tqhdxp4O/Wf A54FPWtxzUY0U35+/9gg4+Rs18//6P6FlC/GdTJFkpAbukP4K+KKCjolChYH LhL4zIAbpftj6kuas4MdJYyIp4WLuGKyvaJbv33x77YWTahu1nb8f9d/c+xM zpVrRWVkS5Scsyd2rFsa1RvxYtVr/NayXXmcNrl00KNThxuduYb5FAOHyuJt xjZBj/p719MTlowb2DOwgRfhU79N9wFR8VtcOmMVRD1WXckrvSOiYlZu+/bU jQfYngJypmw/TKvs/ubeSClyHC6+sptnkxdO7dHM3h6hGvw79X//8+Szt+0/ hbLcY1t0Z4WoAwrIl5NRQSbradB43TVexqG/dXHj2O6mPlc+dYLffCdq/tL4 j2PG/3tAkLlPlval7u9/8S232di9oHMk1bXHfSX33ukYzYDrr0tZLwg7ShgR HwuXYsVkxePSnF3LB9n1vDFRN2o13NYJwx466NF5nXC6pDnuUwy3UI9o0OPq c9dTPunTyEvdqOXwmE+SUkhf9KyeLdXkaWnw3DSZuxTsYU6IdlTK27jZJEzW gjGv+XFpXuZ3Sctjp/57wCsvP2fVZsj/hc6v9B8ydf6SxF0HcaplwGOo/H6J JfcZS8xb8W8ZW/47c/ArL/pZymRpnmjeufeI6IVJP5wrkvFqyoC+bxpiVKqs PY8k2M3ABcyuCYFqCEuAIkbEx8KlXDHZ8Lg091By/EemUEyauk2CXxswfv6n SQd591tBgh6dtlYxtxImo9QSb/L6WTcESQjSdB/wWkNvosOUVVlFyB15eDt5 qDEq1ZVqSLKg7PjqLiqTFfTbfKlaK6DT04RqxAMA+BGlloLyMB9LqYjA/mmO G5DJAunMwJLTJ2GfRLwoY0ScLRxWTAMz6NHJJuJR/vK21NGMNHEjwkLHPxjx rTF840/3bPYT+rMbOhuNTdVuSLpiKgreuxTbxpx07zifFHHPynrLCXgaF+aF mZYJ+ZZ0Exmkd3zzOQeUcdoilRmYGgErKKFPCSPibOGwYhqhgx41xNRjDhXh tT0DzPdBmpw1QUEMyVFz8NK8xebMPVcLcrotaBPqsLXnHGyP6NAF2dbkBzyU S8m9CKW9uYJC945/iliWrZT5XhIzePz35nAfNrFhskERI+Js4bBikqBBj872 YkirUKazuiQ/Q3dY9iHiyB6hQeSGW9Wbkrn+pFIc0WhNJGfB5HTogjj1mgAA F3QzdDXR56Pcx1Jfj5tD3y5VrbdXFShFPEpjBn9Qx5eYC5VIiQJGxNnCYcWk cKV/K+2lrOe/Dim4SJ19y7peqIFZBX3qUUe1gM3qUcqOVxi5//XEmhYb6D4j 28H2qCQ3tpnZOasM5Qx4EuawE7LbyNxTUNTJIbl73qDulQ8x64Si7pX4ZmAJ D5N1uXUUJYyIq4XDikmBBD0620Sg/WiYTS1JVdlK9m2FzX3Sne0RTB57Oypa ltANfFlMBUjogownDcBjob0NhF/Udvnv/ATk8sIe1I3yfXOR0vy0opuBxfEy Sndf+F8TAwWMiKOFw4pphnYnOstBK9HFmsP9NJpRX9BlkchUmhqyLwXGfo9A f1LgnoniQFe7cl6F6e/d0y1t2OU7aQAejcXhUK/uyssyPXITnoKMSOpVV6qT VkwzMDleFFSoRAEj4mzhsGJS0O5Eo0ex24yL1SnwG0fHIH3lguN/pv/ThS1d CfmXAkOqoDtJjKJ3E3J+d0zoDdlb/mUZjrPAV3OtXQUMHPBU9IbzseFi+p3k B3KL/CduLlSkxBbTDEzhYc5OOWWE3EfE3cJhxTRDBz0aB+jXOvGGPacb2Tnx afVzoV0amz7aee2vlv94JrqDAkqBsU+MQs76Zd/f08AYjrPAV2XXawI8B0u1 DaU61nhi8supiOfCdv6psNM2BLHMQAkhgkxkPyIeFg4rJgVa6ZEiIHJ1LjN1 uihz55T2T6uCuiVdqbi8yBQn4D9rN9XYpjxrSy8vJxnrsoBOjHK2m8hZGG6+ W0ooO4y0+GEGJNhCO13VdWbuor3U+srrx/Yev8m11REAiE7ZseVtjabsO2BO NlguSkXJ3mEB1D46Ynee1FcjLOKYgSk8DHd3NgmR94j4WTismBRI0CPxbJsg rbFwun/3UXEJyam6tJRNq+eMeNXPWxM0Ki6jwDjS4pubBrdSkV7KwKiNKSmJ Swf+Q6PtE50lc/+boezumvbmPULvmCsO/NhoygxBhKz9RbyLFAa0CpPjjSS6 12A0+TJ6sLsnXhb+YgEAE3rDhUX9fQhnfSI8jzs7pzejVoTp2+8q8swaRQQz sNRFbBG+T+6+BgqZj4inhcOKSYJWemzYMvHG44JTqV/MNrdE1DzRvEO3t6bH 7Th9k3GOW1p48qslo3p1rvqMtkX7iLhNF4vlP/UWZU5S2dsj2IKe9Suhgq7e cG5DR/OA0IAEW7LnhZo+pyWW/UY/dGXUawI8jkd3NvdrbDxuaLkS/I8Upvh2 tfpfY07KOw2SNUKbgSnJQgkHVSZkPSK+Fg4rphG6/aIzh5viuZsRyc4ekEJP Sqmgi2SQORr7nz9NbuJl2mswoz3JwOAX3joiwxMMwNPJPz2zFbmD1vaamukh YskBFh3VonNijifJaUHNgMrH1BDD9/7p/MOyQL4jwmLhsGIaDJXfL2nCzgGr fBD1OC69eqN6/DC5v9kVrZh4e73h8Ojm1Cbiqanb7PcLMkUsUDDrgj78fXGg 2hIHCwDyovz87mH+5CTfbNJmJWwGOaM3nJnfoxYZldRiXsYtqa9GbAQzAypF V6VqNyRd5vWQzch2RLgsHFZMNPvDWWsV5fOoYPlLztUj3aFAWUFB+nNbulEu aLsbIupF8H0urCOVcs8IFSb7hGqUIqQBj6T8l+Q3yVgdInRRWpFSXmrX0Otz 1r/bVOWh0pFCKDN4VHB4w4qtpxV0V+U4IqwW7ukrJp39IdfYV5zoDQeG+1Oy sNqSnkhPTFXbAbo7CnLW6vWXVwymQsfD4o+jdQWKs/bPDGus9mv9QdqVB0cW P0+9MpbiA8W/rwh52kcZJ/iAB2NyPXmqgCxMjW3nqV5HFA83AwWD2cI9fMW8 lRGpNrlVZRn7ihtLQGN1pcILU2Kep8S2X7O4U/Jy2bOgovjk4hHN1OTr0CEy LmmfOePei/DrM27nb/dJrVxZ/tNH4bWMr0zIjC/27Uqa3bOlsZSTrH3wAEBS lv3dlOCnCV9i3EHPUlCVpzd0qVrhArut/NmzBm4XjzUDBSOIhXvwiokGPYYn XpL6ctyAovMfBXhVVzzfdKih9O15cfaRdTFj+gY/p1UTtVu83C/yg/WHs0vQ XZL+cf6RrdFDewY28FI3atFnzAcpV+X9IgAATUn+4cQV3/yquL2hQ/RXM9at 33KuSEGHKTzxSDNQMMJZuGeumHTQoxLKzuCh5PDitsZtQt/EX2n9WPX0dav6 GLs0wvYcAAAAAACP5cCwOlTSEBE2KUv2WhgT+srru+aHeBOET62wCXFJ+3Sp yRvnDumkrbpPPt7hMethew4AAAAAgMeSv3NeSH2Vf+f+n54AZxqDsptZW2In D3rlRT9vQt2oVejrQ2atSDxy9T4IRwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEA6/h8ZxA6l "], {{0, 110}, {874, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{805.2994791666666, Automatic}, ImageSizeRaw->{874, 110}, PlotRange->{{0, 874}, {0, 110}}]], "Input",ExpressionUUID->"6d6d2eb8-f403-4c6d-837a-3a6f47f3cfd3"]], \ "Subsection", CellChangeTimes->{ 3.7467908610581846`*^9, {3.7468324242091866`*^9, 3.746832424517336*^9}, { 3.751393055510989*^9, 3.751393055511248*^9}, {3.751393414303721*^9, 3.751393414304016*^9}},ExpressionUUID->"edc2d2ff-44cd-4ba8-b0d4-\ 25cd6203a0b4"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{"Gb", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "=", " ", RowBox[{ RowBox[{"-", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "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.746833158416533*^9, 3.7468331856485023`*^9}, 3.751392713523842*^9, 3.751392747972975*^9, 3.751392859122904*^9, 3.751392911701079*^9, {3.751393620629169*^9, 3.75139363917699*^9}, { 3.7514051489979477`*^9, 3.751405149628683*^9}}, CellLabel->"In[61]:=",ExpressionUUID->"ae987ce6-ca14-4782-88b2-46b99cc47dca"], 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, 3.7513927140589857`*^9, 3.7513929122531548`*^9}, CellLabel->"In[62]:=",ExpressionUUID->"ababec00-d39c-4fd8-8e76-8f7362b2d820"], 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.751393078387075*^9, 3.751393652563038*^9, 3.7514051531697807`*^9, 3.751562784898242*^9, 3.751727178699155*^9, 3.75173024838936*^9}, CellLabel->"Out[62]=",ExpressionUUID->"0433a41e-ba33-47bb-8207-6506e36cd2af"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzsnXl8Tdfax/c5ibSNREu9JHUNUaVCB1NbRK8SrbFqqCquoqUUpaW0MTVt uFRruIpSmtbUipmSRIle4ipqakmLKEIlpiiJkunkzRn33mfe81pn/75/vJ/3 6sk5e52z1rN+63me9TxRg0Z1H2JkGGbMvWX/p/vA8c+9++7AD3o8UPY/Xn57 zLA33x78Roe3xw5+c/C7zwwKKvvH+gaGmVH2UvP/XwoAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOnk Xdj4TqeqQUwZdT7eUaL14wAAAAA8im8ndals3qXCHuw8Z3suNioAAAAAAAAA AAAAQDV5F5f1rGdgLISXG73rstYPBAAAADhzPnFwTeteFcTETEtFdAYAAAAA AAAAAAAA0Er2oY9aVTda4zJh5fp+e7xQ6ycCAAAA3GAynV78OqIzAAAAAAAA AAAAAIBusg9PbFyJQVwGAAAAFZhKT0zrEsogOgMAAAAAAAAAAAAA6CTvz6Wd qjMOB9fMXflaPxEAAADgg6L83eNiyyM6AwAAAAAAAAAAAACog9tfhmFqjVie A9cWAAAAKrh7JcmxhYUwPZfhyicAAAAAAAAAAAAAIB5uyjHDhHWdlHFX60cC AAAA/Ofa8fhmjoKczLDt2Vo/EAAAAAAAAAAAAAAAnjGZTn/er7LNn2UwNmy9 NgsXZgAAAFBG4S9J3cJsexkT8dDMY39r/UQAAAAAAAAAAAAAALgnb9es5kH2 CzPh5Ubvuqz1EwEAAABiuLpuTC17poGhUdeUqyatnwgAAAAAAAAAAAAAABcu 7B7yULA9MMM0nZleoPUTAQAAACIpKdo9srFjU6s64POsYq0fCQAAAAAAAAAA AAAALgU3k7pVd7iw0GIGAAAA9Vz7dcKjIbaNLYiJXfBzodZPBAAAAAAAAAAA AACAg3PzXg61F35hqtWdi8AMAAAA+inYM6uRI+2g4r0JR9B0BgAAAAAAAAAA AAAQgSkjqYORQV4xAACAQINX1sxoaDPyyG2tHwkAAAAAAAAAAAAAgLtXlsZW htsKAABAYHL1yNgodFIDAAAAAAAAAAAAAASR/fUbDzo8VuHMuL1/af1EAAAA gJxc/W5EFZQ1AwAAAAAAAADAofD4ht4tWyaeRlsHAIAWZKW9Vt7hrmIihy+/ XqL1IwEA7EAkgABG1enNux/KhHWbllmsxscCAAAAOgdqFgAVwEIDQCSXfhpZ I5hhDMaGbVaewQoCAKiLqfSnd5vaPVUGpmaDxLMIzABADBAJIIBRfXoX7Jr+ qCM2E8T0SDqnwocCAAAAugZqFgAVwEIDQBzZhyc2rsSWEWr3Vvp1k4aPU/Dn 8U1L/5OYcuQGXLMA6APTkSXN2RszTMOEnYVaPxIAwAZhIgEAOdFkepcUJveL cmQjGBr3SkP9TgAAAEA5oGYBUAEsNADEkffn0k7VLWl7wQ2i6xitK6j9qAO3 tHkc8923SFuD1GZzDiA4A0DgU3AzqVt19spMrWarLmIHB4AMCBMJAMiJdtPb KSGh1cJj2PYAAAAARYCaBUAFsNAAEEfexWU96xks5RRipqXk3s7d8V6stdtD 1OD5mXdUf56Swo09qrIlHnp+koOTKgCBDq+0C67MAEAOpIkEAGRE2+nNvziD nAQAAABAEaBmAVABLDQAxFGU/9/RLRnb2knNLbH94+5xthX08JjV11S+tVJ0 c2lMiCMy03n5SRxTAQhwCm4u71AZ7ikAiINAkQCAXBAwvZ0uzjSdcxCbHwAA ACAnBGz3AAQ+WGiAaorvZO5Y/cWXKw9cVr07kmOZhN7TbqZ97Tj9J+6yUou8 PYu7P/KAsdqjgxb9qPJHA0ATclgPEvo6OV2ZqT1pG67MAKA9pIoEAGSAkOld fDupCyczIbpL6g0lPw6oT6BINQAAoBJCtnsAAhssNEA1BX9tGtgozHzjy2Bo 1j89X8WPNplOf97PfBoMK9f32+NuHKFlK2hi56pB5hXUKfFXeEpBYGO6cT5t xeeTh7zS7unHI6zXtkIrN2jRpufwDxZt2JV5i7w8VjmsBxF9nXg1DBmmUsW5 p7BhA6A1EAkggCFpet/ZGleZ3QLRcSawCBipBrTifEqvyFpd3olfun77gYzM zIvXCpxeYCrKzTqTsf/HzcvmT+rX+uEhi69r8pwAkAlJ2z2gEhhhf8BCA5RT snd2fcdh7H7D3Ey1Prhs7Sx+vabB89oR9DIAqObO9d1zRsf8X7CxWnSP4RM+ S0xKTjGTnPTVpL7PRVhOw8ZajYYt/D6LpPKYMlgPMvo68cu5GEMH6VLPAEAU EAkggCFtet8+Nz062LEJMo+9vCtPuQ8DqhIwUg1ohKn02JKnGH8xRsd89dvf Wj8zAMRA2nYP6ANG2A+w0AD9FP8Qb8+UMzIdJ2QWq/S511Ontyjn36JwrKCK keP3XFbn8QBQj9w/vuxWz1CpWr+5G91ejcndu6Tb/bZVGtHl3fTrpByJZbAe JPR1MpXueSuaFTQhzNAdueo/BQCAC0QCCGAInN7nZnVh98Egps+mS8p9FlCT AJFqQDMEeAUjOg7Z/Ifq1dEBIBgCt3tAGzDCvsFCA4FA3sXlA1pULV+p8Wsf pGaptZDzTsfXDhYQrLStICPTasRRPRobELgU/LWxTz2mTqvFJ256Oepmf/3G g/Y9N6zrpAxCVoEc1kP7vk5/pvVnFY2Radp/720tHgMA4AAiAQQwZE7vsxu7 crdCFZO1gLIEhlQDmuGXV9B8tf/L7TlIQQaAC5nbPaAMGGFfYKEBIIGCzN2b D1wQYDxMJefTVu9SLXgEgCrYCk0E3Vu7/Stzf/IcuL92YER5+9YbxPRIOqfi MwY4f87vyRU2TeccRDooAJoDkQACGBKnt1PPtXAm4ViRgh8HAKADm1cwqsuw YT3aN675AFczV6jzZOfB7y/atv+yPv2BAPiCxO0eUAaMsG+w0AAAAEjhyPim 9q3VwES1XOcpOFP89/LYUEdsxth3DpqhyMOdP2c1CWH1zf3MzAzkgwIAANAd N78bfi/nvB85bgOOrADoHptXsPnCX23/cPevrMwyTufcRioTAAAoDYwwAEA3 3Lm+/9s5o3o8H10l2FitXkzXPh+v3X8DDlqgPNt68zIfhqZ5dIRwXhnEtI/7 A/NTDkwHFzzJuQrMtB2boe+cEwAAADrFqbznYy/vytP6kQAAGuPiFQQAAKAe MMIAAF1QkLH9vVbVjZX+0fODT1duTl07550WltsJUYPnZ97R+uGAREymzO+m tH2QaZt4SutHcQ+v8W6V6ovOekh+MJVu7F7B/9BM0da4e8L/0RclwX2xf3RD UqqZET9XlQaTFgAAtMSpplkQMzAZN3SBKuhcAhE9fHgFxQBNCwBNwAgLQc/2 Tc9jB0BRCo9v6B1pDI8dnOKoNGgq3TmotvVM2m7pr7glSDFF+bvHxZZnDMaG rddmkWo98y4kjegUFcqE128xer3nzmV3sqbX45QZmbjVx3iuHY9v9iATVK7B 8IWIMHokL2NCFU5gRsNqZlTMVaXBpAUAAE3h1zQzVhj6zS2tHwkEPjqXQKQP nzivIB1A0wJACzDCQtGzfdPz2AFQjrM7XqsSFN5+1AH+yTNzahtbMYcOcWcI NM/AH9hNts3KM/SXSz+7savDWRLCjNqd7/tPsg9PbFwJ97+8ULA9vga3eEvM iGMFWjxHgM1VKWDSAgCAhlxIeYXdFg1MndgtuDcDFEXnEoiC4ZPnFaQFaFoA yAdGWBx6tm96HjuQF1Nxzt61k16x9lWp03HIhFW/XNH6mbSg4GZStxrMYy9s zna+GWPvzF52Ju2SijrbNGLfZJlqdedmkLnJCuPP+T0dvpKwbtMyi/37M3Pw MVjOjUO69SCpr5NTNbPaH+/U4JYcjXP11h9LezUqH1qh1eQ1Ob5+u7yMtMR5 c7/enelvDx/ZJ23AULb6Du1Y8cmEQd3bN67J6VFVsUaT1h36jYtfum3/ZV11 Srr26/RnqxsZ5uFJ2yhZObqjoEBMtLuw4C4uLGtG8d/LY0NR00xL7t488X3i 5CGvtIn+h5EjUSIfe6Zz/xGT5yxZm/a/zBtebR5FUo1GCSQjdAyfSK+gjEDT qg8ELSAEGGEpUGXfZD6SUDV2HWLKu3ImUy5OZ3lX3aIpyts/vV+tIKbZ4ISV W1JXj+9S3uzqZYZtz1bk41wwFRYUSj5yy/Imt9a/W5lh+m7Icv4PJUVJncJt WfRPDTmoSRY9kILJdGp2z1DLxB60xeX3pZHc4xOigm3hQoHKofDgl88ZzH/5 8JjV1yQeqyVbD7L6OjlVM/PzLpK80DlX7Q2SDExU7JYbXl96Ia3/fZbXVopc dM7f95dz0gYGxXdOb/jPwKerc910xmr1WjzzeEQIN7rIGGs1GjZ/Y+YtHTi2 TaWH4lrZfMe+em8BFci/cGLPmmWfTRzTp2PrJrUe4M3LijWavNB12Iefrvrx WG6Rj/c5nzi4ppEZtQfaSzNOT43lGhXUNFOTvMPr3uabevcE3Vu7/aszd7jz D1Mk1eiUQLJBzfDdeQXv/pV1/Oe0lJSU1B8O/HY2l2YvOjStqgSqoDUV5WbJ 4QK8eA3qRz1ghCVDpn3zdiQJrdygbdmR5LNVe37L9/7AJtPpxa/XLMeM/8n9 l0vm2IGVwg1jfEppwViSB/qOjpu7OjXjugzBGvOZ975yfb+1t7TISetvUSOG Zv3TVfFKyvEtyeGHufPnrCb3Mh0nuLl9cOPo2Iq2Dwoa+AUOpNRxdd2YWpbf r+nUnaq72hWgKP+/o1taBmRgIupMSb8s9A2yv37jQcu6iV3ws5R9W6L1IK2v k+nggidZq2Jgasasu6buE1A6V4tuLo2xHp98B6+vfdnP9gWHMzN/F/ALyzVp A4CCc/umt69rPsOafXF9Jy/+Nv2XUzm32S+z4PrFoz8kfTK8e/37bF+2MbrN nP9dCOzvzXRsRRvH4sX9Vu3IP3t484KPB7auG+7bm2yxBI3aT17jMf0+b9es 5kFl0jds7mlKvDGeuHFydtcnnRxNylLxH/+cvVOWo6Fp32xOazsj06j/3r/l eF/gC9sxv1L1nhPmr03b99vxn9O2bliaMK5z3Qfc/eQGJrrXrtvOb0KRVKNS AskHPcPnegUtF7J6tY4qz5uLxmr1e773SUrmTfoMNzStigSmoC2+veHlWv4p IAFEPvZMu5dfGz/765Qjf/hwIAOxwAjLAjn2rexIsmn2xL7P+nskiWz+0rTk DE/r63rq9BblDEzVuokXPX4iOWMHTigSmuESWqlx39GLd3qcPz4xZSR1MDJN Z6azuuNa+mDbmzOTD/nKZZQDMkIzNvs2dEeum//GOZN2XOl3TgwgA+skLyO8 4/ijLidW6ii4eHT5sDZhltkY3rTb4qOiag8W5W8bEG2O6ld8YPL+v8Q9iVTr QV5fJ3uanN2q9PwkR101Q+tcZTsRBBvfTPTmsWNvILr3IHlDjkkbAFi8ZJbr 0t3GrDx00bvqKzj940ft6trUaBjHNRd4FNxc3qGyffH6kekKZMdcMWnNR/2e iwjmC7TQyo917DXqw+mLVm1K+XFfRmZm5slf0renrv1yzuQhvRtXtr06qteE vdedDa7p5LZXqwZr2fZLNmwiU12Cg99eJY+OZzOUrL+pSgcEvWPOGQthaj6+ 6KRLJt6d6/u/Tuj4D6fF5saTTJFUo1UCyQRVw7cZtGfi1309qGW4MTj6ldGL tv7v98uW+wx3b2ZsX/WepbgoU+kffRf9mEuXGxmaVi0CVtAWXFvQ1Mk4y0xk 826TV+9BhTd5gRGWDc3tm7WIa8+nI8rxV47tSDIjcX2yxyNJUHB038m7sp11 l91e+TqSaD524AG2oJnlR9+87PNJvZ4JdzWv91frN/vbnT+f8FbO7Mj/UpO/ X/n5tPED2ZMsa59jX1960MeO5oaSwuR+UUzLIQe4UeFDC56wvmmQSuUjeGXf Tv9+IC0lZeN3C+M9pISFhse8HvdZYlJySnL6sdNyXvYs/jvn/J9ug1yXPu9h +/QwJuFXuvQlteRd2BQ3oNGDwUxQueh/xR8UfVUp79zsluaeXEzFexOOUJnl mZ+x86t5c+fOnjZ+xFt92zevbYnKhD/R9p0vvs+SUkciK+01c3KFwdCoa8pV 4REIidaDwL5OTuX0GabBjL0qfjzFc7X4h3iHT9xH8JpzA9HYd47gdgUSJy39 2GRhWLk+X/3kb5H/O7k73ou1JVIRfpiVwNXvRnCLETL3G+Zmav1M+sF6Anrx iTAD5ycICmrQbdjcLXu9t8Aw3TifPHN0zP+VyVqXdqvXjsc3q2RTuRO3Uq+9 im6d2JViY+O3i+Z85vZEYHy09fh5yzan+EHZoWCRRRu82b9z00fcJgTKVoSc 9UDaaLnwF3neGXjmzta4sr211cJjnnY7040za8Z3rxXkWHRM5+UneS+mSKpR K4HkgbLhs7Fm46PPfLLb3RWGvIvLetYzWKZZzLRUiqIz0LTqENiCtuD6Ba4H b0XCsKb8Gw1l1O7z0do0i3PYG2cy9u+yeMbe69HoH077fETHIZv/ILYZCm3A CMuLVvbN7ZHEcp1h0da9Wbe9PYnpVnb60kltH3R3JMk+PLGx30cSfdt2mii6 ndS1Kt+s+krJcMUSCXWZciGxE5f9lifk1z+xojXDxCae5P4bW17V610tNbj0 08ga/CBUENMp8Ve1d2EpKTFAHAV/bexTjzu7G85IF2PXTKWHP2xnlUINE3YS q9+8c3xO31YtYyy0alDFtiIiG8cOiv988zHhAVkOthuX4uphSrMeJPZ1upw+ mCt5QzzWEVUEmueq3UXjR/D66JJn7F9wkzk/i/gsSZOWdm6cjG8QIuY0evfq 8s7Vbd97QObwXD0yNoqvFpDVrxYFF48uebNtVe7XHxrWasR0QSUUCk7/972m lcxHIYcT+O6VpJ6sDOizORD7zjt1Nyvj/qCEoyLdLOaiDQmvR/MLpnVfc0mu h+W3m9HgVqkOMe+tfnRZyvs9fcUnccNGjvls6xHnBDNapBrNEkgG6Bu+1Sto YOo0Tzzt2WTZ3FMand/FAk2rBvoTtNt6c1OODUx0l1Shl7uL72asnGLxG3Pe R1Rhc+AMjLACqG/f3B1JgtuN/U+qoKpu2YdmvFDXyI3OOIJcfh9J9GvbaYO9 giFtNzfHBPesfPPxSty3Cm/zL/+j52ZxHtlkZQ7nn+5eXfCMvbzqSwlZrl1X 1IW/i2mUBysxJQYIp2Tv7Pq8H15kUQ57Ky5R+odUTLcuHVi7cOATloUfFBzd 54PULLEJM9ZaGZbTx6gf3ZTy84Ik60FkX6eSH2fU4GrdavzRKQzFc5VblNtX AwK2KLfoyJeESUs39h73vLo0/vNHSm+bz9ZgaN4/PZBaptm/GSeGpiGTUGFM pszv+F4C85Y0YYu4utb2hLSwrpMy8gt/mmDPjCUhU0gh2LI5jM2Eth2bIe3k nHd49auR9l9E1svv3Exy1AxUB+shaGDKTdHvQItUo1gCyQGVw7+8f0T0A6N3 ZHt/1amp7eyiuuaiTBr8U9C0KqBDQetc4ky85XRUgWO34zpPrzpPw+IiGBhh RVDTvrk5kgQ1HPBR6hlRR5K8P5d2MoeAzaXtbjlaPAs5kujTtlOIa2sVSQUH 8i5sHG5rPGGdMMaGLyzyp/2EWXvc55T2xu2C7ZRkpQkZU2J4W48WJ0FuoxkU cFAH1zXSdM5BwXb17pWlsRZHghYN5RWHDd8bmIj676dminPn5KfE17MeQJzq XXhHkvUgtK/T+VmdOTPOyLQZ+5tqsWmq5yrrXfQVvDaVbusTaTPmNWPWXRP5 gSInLe1kbnzJ/B3fU7tJi3avvrn4oOAcObs4NxPzn4M0pIT5henYijaMG9om ntL60QIaF/HJRES/s94laV8QVn9LENOia9coR42mQGg04x5+sMNM7Y93Srf/ bHE/edOZnAJJuJimPNbQjPhZQYtUo1oCSSewh8+5VxIxerWaVYpFAk2rAjoU tM6ZGJIsp6NVvUOAle8/LwfBGdHACCuGOvbNdOPMitdbcqvuGqOaTN4mvhu7 GXv5piZtn+dUvBJwJNGjbacQmUMzZRTl7Z/erxZbiselOJ4Hcv63JuUkLxdr /+iGtveoUn3RWe0tk73LpG1caveesMDecsI5VC34t2ZE1mm01mGgLP9BENwa PuHlRu8SdZ3ZEdP3Ws/cFUnWg8C+TqbSjd0rcKyNfN2T/YDqucr1LvoIXrPV e4KYFz++IPrnFTtpqebEFO7FEAMT1XKd0BV/dmNXx59TONPcU3BzeYeyCWi4 vwJ3/ZoReR8Z+IG9/hhLROe3U0Tf3+RwafG/7mGcCYRGM+5gy+bY7eLQnXJo XJullTud6U7W9Hq850X0U2ksoRlJ5poKqUa1BJJOgA+fvWCl9m10cUDTqoAO Ba1zJoZEy1nw19LWvO6oTCgzbh/57VEIBUZYQZS3b65HkvB2w9OyZTiS2CeG 2COJ/mw7jcgfmimjKH/3uFhOezGDsWHrtVkCbf61AyNsb2E0vvJJNgEnYe1D M9xGM492SaWmoCnlFOXvmda3/r2Wpl2viSrYpQ9j+Of8nuzqeKTVuktiBsoK kvrPb7ki9quSxXpo2NcpPzO+Fs8sq+d0onyust5Fn8HrU2tesH+9EpPD5Zm0 FOEyP8Xkwxf/vTyWPcqRcDFWOpYLAgZD41e3Lh7O/4JUja7qCudiGkHlGgxf mHlHpne/fW56NL9tUKA2mmHL5tg3cfmOzBaXvu9qPMJwTmBQu+ioDrFtr0FM jySZLhETKNUol0BSCfjh382Z9QRrNWTsfqUQ0LSKo0tBy8/EkGF3Zovp2QnU JBbFgRFWGEXtW+6+Zb2rKXYk4cwNB4KOJPqy7XSiSGim1Jw7mtStOvdtzcXx hAhmbmSQEO2kfWgGjWbohLWEIlJxKILNGjIjsm9d3un42rZNreGMdHHbhjzW Q8Plxv8m5S3R7x265yrrXfSdoX1z+RuOr1dqcrgck5YmrqUP5qmGst0wdovw FcKpEUpEOzmpWG8OWvyWxTucakNhy1aE66nTW5TjmcqYaam5sroDOCkHjL4a zXSIOyPTN2kRz0FM+7g/ZP1p+JqcqkJzJYU7hzcpbwxpOGkTReEk+6ZpMDTu lSZHbhiBUo1uCSQZPQyf2zeWdO8xNK0K6FDQOmdiyJDYwK0qafsS1CzE7RN6 9lwYYcVRzL6pcCS5+d3we6UcSXRl2+lEqdBMGRd2D3mIl20YPSXZ38p2JYUb e1S1zTr5MvdubZsW2zKGQ8vOA96duWH/Df9WjejQjOnG+eQ5E/t2eJb72THP Nk34SVilPzSaoRLOPV86KhuLhldgxMg89vIuUaNlO8SJu8krk/XQcLk5NzhW zRlI+1zlFOV2Kmjvyp6hD8v49UqdtHTB1s2wfdmt5uwV4RPlyA/6Pd72NrJh 3aZlFtvaIvC+I7n90sD5EMQwD49ZfU32L5kXKKfK/y8EhRrNWLGIZ/kvjvHP L3SUJ7JhyxqlzSxw0vJF5t5wIVCq0S6BJKKP4XO8gr6FosZA06qADgWtrI1m bHB2B9uXoEXZf4/QsufCCKuCEvZNhbiMmT/T+rOfIeZIoiPbTicKhmZKS7O/ fuNB7ltXvDfhiH8XJs87dg1jhaHfyBXgLjmx9Z2XWkeVdxoxEzV4vj93zcSF Zkwnkwc8/IDTJxqr1ek4YOTaM8LOqWg0QyNsqxo6f7X8CyfSf/jh4IVbvndO pwIjokvXnljR2v4enVaeFfznMlkPDZfb+VmdeaZGrXJqtM9VrnexwYy93l56 N3tWo2DRwsYNEictbVzfPqtjDfO+ZqzVaNhXP4oSn87xC6rrRJmOrWjDFTmu dxDkreake5zrmDFM+CvTZCsawIW1FWZIz7IWi1KNZixYxbMPmywYlwBoCDP+ JwraL5uhxU3kxN2rC56x51r7f6DzBHlSjXYJJBFKh2/K+WVuvzZR4ffW7thv 6S++b3PxvIJkL0BoWnXQm6CVudGMGdd8JIRmxAAjrBJy27fCX5K6hfEWgJ++ ZcHwayeKOZLoybbTiKKhGZeaeEam44RMP643siUrg5iByTLvbgUXjy3oXs/A H3Xt8Rt8biBiQjN3ryyNdaprYmj2zqKMPOERYjSaoRFT6c5BtW2T/6khB2nL tj2fOLimdamE3hs7e5fPW17cO6plDE0T1fWM3XeMTNuxGQJ9LfJYD02X244B D3FNhqSGnv5D+Vwt5XoXfZaA42TCy+NrlTZpdYnzUU7GLH21Kbi5vIN5o2ev BrspkUHSKZV2Lv00sgY3LmMwNOqaclWp6cM1yCT7W8SjZKOZUrt4lr9jmvMq kyP1Vx0ocRO5cm5WF/uXbTS0GXlEQtIIcVKNfgkkCWqHf3h8M8ec9Ed98byC 6qhrsUDT0gNNglb2RjNllPw4owZvNybMjFCx58IIq4a89s25TpTB8NQradeV MgDcfUFMDhVsO9koG5opLb267HVev6IQZtC2bB9/w+ZlOddEMl3O2Jzib/0x b+Sdm92yEm/Y9zMzM3y8r4jQzJ2tcU41IsQndnLKKZN+BRs4yEkffB8FOs09 7JRj/LygzQvNSEhhZdMgw5mEY0LyRuSyHho2mnH2kqnVQJzquVrKL8rty69Y tDXOUayV52vNz05P2ZklykSLn7S6hVcqiuJ97ep3I6o4NVXkt7m0aAzhjWWB W/IuLmzLF1bhzLi9CobP7dqP+CololGy0Uyp/QsUmarhBV4NVTPU3Gmiwk3k Fn4jvKZTdwqry+yAQKlGuwSSCKXD5wlmPw7mbCzPPPceeG89Od0wnIGmpQta BK0CjWZKubNF1reVDSr2XBhhFZHNvrkeSaTfKfaKo+uf6Bwq2HaSUTo0w6+J x/gVoePctIoct4F7ljPna9X00QjPT7jdJ/00g4JDM6bSbX0ieZ8Rzkw+KHK1 csspy10XAigF266LolIbDpwqx/p0LTrtzlK8WBwjIEyfyGQ9tOzrxIuImWky 52cVPpbuuVrK9S76rufA5pxUilzEybO2XvMXeYtc9KTVKU5JhoT1DPWfq0fG RgWXHfh6JHFmkvPhV5aSEcA8aw5/2M6pKq2APoaiuL16uJ+GhVIUbTRTar12 FM7M/F1uo8g74DMa5FGIhgo3kVtKCpP7RbFfeXi50btENSomT6pRL4GkQe/w OSlhfpTm4Mdzib4FCU1LE/QIWpdGMzIccjkdUhx0X3NJjseVCRr2XBhhVZHF vrk7kjSdma7oQcHuupeQQwXbTjCKh2bYPo92Qplx+7yFJ05MaWV7pVMsz5xk dZ9seQjXDozgrSXfykdwaMaptZy0i2NsiJM2i61fuE1OaaxBx6sWYjA065/u 3f/FiykYmZcSskTr0vzM+Fr29xFyq1cu66FlXyd+Viqjjm6hfa7yvIu+7kez bnPn2WU+3tYTO3yxk1avOJ1k6Sz5ZSo9FGe2OWHdpjkdRpyqOzJK3BrQHwV7 ZjXifakGQ+NeaQrbK4dOpuZShkAUbTRjKZ5QXt4KaQ7sna9pM7w0uIk8wRbD t9ntp1edF17snDSpRr8EkgTNwz89NZZh7qndrM3L781Iu+Brk2X90mVTN3YL wZEZaFqqoEbQOmdiyHHINR1Z0pwvzIhbXOTvuTDCKiOHfXM5khiZlkMOKJor xlnC4qMqsO0Eo3hohltP2D5vvTV85AoMfiDDavn7bJIpCs/vo+TPvTDBoRmn SwdSFhG3nHLNmHXXxL0LUBf2yhg9yZxcim8ndbGY/9CKTXq/tTbTx27LqzQb wgzdkSvlw/ePbmh7Kz+KDdqQy3po29fp0AJeJSSfJaZlgfa5yvMu+hhCfkq8 PWGHf+Pe3Ee1nJR+xGImrZ7hTXVyT7JeMB1bYZYF7m6vO7u7KWqEQSw3TsY3 4N9FcrqspAwOnUx0irVopDSaKbix85Ox037I9KZszS4RearZu+Isy2mRx+S7 ibxgb63lIKzrpAxBYWcCpRr9EkgSNA/fOmdaLTzmz/mazUtnmJj/HCQ5zRGa ljIoEbR8aSrHIbcof1NvzlVKMhcX+XsujLDqSLVvrkcSyb4vf7AdSaTlUMG2 E4sKoRlnT6P3ICknUZ9XtqukcMcb0Ux0l1Q5qplZYaelFV/1FoSGZlx6okm4 3YlGMxTCTU1RuyiWTBTsmv4owzw8ZvU1n2abV+bCEPbqZ+elXeW215AxE5t4 0q+/kct6aLrcnG2yKi0qqJ+rPO+i10oC/G59vGJxlhu+4vsRi5u0gYqpsKDQ x8rhT3VyT7Iesbso3RbU4gsGM/KLK51x+tMX+SUzjEz7sSeUv4pkmahoNOMO SwKSj8tEJlPm918u2nFCiQM41+Sqtl3KAPluIq9YlSEXYUUFyZNq1EsgadA9 fOu0qfH4opO+NoO8s9Mb24RieMfxR2+r8njigKYlioARtC6NZqRHATiRQdt0 NbQZeYS0xUX8ngsjrD4S7ZubI4nPYm5yYDuSSLuKDttOLGqEZnKc2s2Yo4qj dntQ8ZwiYNzqH9YrY/KmR7p6TrzXGxEamnH9bkXXM0GjGQ0oKSiQdseXTU2h twZdSeFPE2LLG5iWH6w647WP5PXNcY6jeni7t9KvS4xnmEozVvzT9n5+S0eZ rIe2y+38rM48O6NKGjD1c5XnXTQwEfUTL7ibgdmHJzZ+0PhITIvqbva7w+Ob SYv+i5q0gULB5VM7V3w+ecgr7Z58JNzI/hiRjZ/vNz5hzaGLrrOK3zaU1JOs Z65+N6JK2WPXf37LFTeTzUUABAe/vQrdFsXzR0pvfnpa2SFbitPJfyzaD41m 3GC9FK/hZSLnh1fnkql0iHcT+cDl4gwTzozb63fuNXlSjXoJJA3qh3/pp5E1 yhlj+iZneT5lF+XvHhdrKWRuMDZsvTaL7IUHTaspAStoZW80c3bHa1WC+QNv nniavOK9xO+5MMKqI82+uR5JVLkyU+o4kohuNGNGv7adfNQIzdjsIQ+PRz9T 6c5Bta2vGZhy0/aQxzf0jmSi3lwqvnWFO24uf8PpqeQNzfC3aUn1PNFoRjUK Lh5dMfnN2Chbm4DwOk37frTk4GXhMoNNTZEa2haMqSg3K1MIp7NueNlJ8/ZP 71fLyFRo8crc7/dfdp19xXczln/Q3H49NarXhL1S4zIW2MO737VQZLIe2i43 58vmKsh7Jedq/h8H1nwS17fdkxEODVOxWkzvt2au3+NmLvmB2+Q1V+9i1OD5 mfxgYu6BdW83fdDQsM3KM0WnprWzvszRgLjw6Ir2wf5ex/aIiElLO6binL1r Pur3XIT9cGas9kibXgOHvTth5pzPJo96y/bTBwVH9/kgla/Y+RdXST3JeuLq kbFRwV4KarnMSX6lESAIU+lP7zoViFOjpLMVq/ZDoxlnrKXRtbxM5FTe3wwd ReeIdxN55O7NE98nTnqta8P/C+Z/8QZD8/7pfho40qSahnKdBOhXgKXm+bP1 zYaVjFFPjfvWzTuXneyWDGxpLX4X0WVMWrZ41zE0bSAT6IJW5kYz5shgJd6o I+pMSb8s3/PKB+F7LoywJoi2b26PJKpcmSm1H0nE98iwojfbTg9qhGZMpRu7 V+B/iNeWdvbLueGxw1du/X5FwrCm5eXz93IQeqtFaGjG+VaO6EoLBX8tbR1q Wz6PvbyLvL0+YLi+8/OOZXMv6J7asS+Pn/rpJJs8MxjN0lfgJsJeFlM+2/bu zYwfkj5597XOLR6PcAri+09QuQYjv/J0KC47Akx68YkwQ5lMrd9zyNiE/yxZ uzUlJfn7lZ//e9hzda05ReGN2k9es/+GXJqH2w3KV7FBFunWQ+u+Tvzu4aqk aiszV02Xf1vxdqeqQR5nXHjTbouPXhH2npbWHq5ZXlzv4sMNGoYbzP9PZNuB CUuTklNSNy+bb17LIUENByak51gWct7FZT3rGczniOjRX23enPhJ938EyXC3 WtykpRaHWTATWr7VWx+tOfBHvosFMN04n/zv16ND+IbUud0bVb0ITaWH4sxt rMO6TfMgxV2dxqQeCangT5fL137XtZZOwZ/Hd6ZsPXo1EH88KY1mTia11/wy 0dmNXfmzgo6ygYS7idxy5/qBpZM71rSnLT3R8eWnq/O/e6bpzHR/5wJRUk1N uU4g9CtAp08Mr9+637gPF367KaVM/i1fnDC8e/37LJ8Y3Xq8O58hgSOCplUf PQhaGRvNFJzbN7EJLy5jbNgu8bebhE4RwvdcGGFNEG3f3B1JOq08q+CjcjAf SVK3Z9yQttT0ZNvpQo3QTGnpnqEP8z/ER1yjbGmvnDykU5NHwkMrN4jt+f7y HTkKrGKiQjOmnGNfDO4UFRYc3Xey09mkMH3Wk/b3UM0XoUOup05vUY4xRreZ 878LtunG9k8RkhBogVNpQcFkabNEnDk6xjl9USyVIhd5rSSRf/bwpkUzxg98 pV3Lp2qHmf/CWK1eixe6vf7B1JX/PZYrd7Eebg6S/6mwUq2Htn2dnOW9GjJS ibl6fffi7g/5nJYCM6ys6zGcmXyQn97BTTeqWjfxQnHOweQvJo7s0dYyS4Pu qd2szctjXEoQ3Lm+/5sZA9s3L3uN+XJcwrLf8mT4scVNWvrIz0me2KOWXfBX iOmTeMyHvM/dt6x3tXKMw5CyC80+1b0kbBCG9WzCVLw34YjnTCPXFh5EHtWp 4NysLi6mw0OBFyAI0Y1m7NFJjS8TcbqWWJGaSagOhLuJnDAVZ+9Y1KeuLSgT 2fa1uTsy8ktsnX95q7JWs1UX/f36yZFq6sh1YqFeAfKxpIhPGNS9fWNrGLFi jSatO/QbL/WQAk3LBLCm1YmgdWk0I9Jylu0IKfM6cpdDUHDDNz89mkvw3kv2 ngsjrBXi7JubI4mXLuqkogvbTiHqhGZcu7qQ0KzTdewdV3pzTCsYmim+s/Fl Nv2sbeIp9j/dvbI01nr91Gj855D9ejszqIUpI6mD0c3tGGspdSuC+mRxy+Up 4iswlZzf9GnHajIFZSwTjLQ7WdySgKr1fNG4r5Nz+Uc1SoDKPFdNptPfvNOE 3xvPMwamWt25GX5dSbM4ggzl+8/LcdLV3HQjScVXZUCTSasyBef+F9+quq38 dpDvRlQOrB2pGibsLOTVubVCTysWe58FH52vnZ3GhBa4oIDb56ZHO+10qI0s D6IbzRQe/PI5S3axxgc6Z4cYJWaEbDcRjzu5O+PtTsuw8J4Lfsx1PDCbvMTS dM5BddxzMko1xeU62VCvAJUGmlamhUYmOhK0Lo1mRPygeRm75vSzlaWyEt7k xc92ZRJyDcIjZO+5MMJaIca+uTmSGCsM/YY6B23A23ZK0Sw0Q0DPFKFjFxqa yZgSwzd9nstE5PBuxnVfc8n276bSE9O6hFr/vObji04SUJgxILlzaWHLB5mK D0ze73yzl9OTXZgviHtrmBdrk4W8CxuHtwlzv8mKIuje2q27fraPrAqxnBUa bHwzUZ1CmBr3deK0x7UOXAV5L+9czV45vIbbOVaxVsNaD7j9L2FdJ/lWhVYv 0H3MuH3OE6HkxxmOT9Tcr6LJpFUTS0cAuygNYmKmpeb6L9GtP2JUy3WX3fR6 o6MSUWnp1e9GVCnbkes/v+WK17nm2mXP17VE4BbTwQVPMs6wMglIQEyjGVNx zp6ve5vTQgyaNpqx4JLMQMetB7LdRCy2KkmMp9zagl3TH+VNIPXuBsoo1ZSV 68RDuwJUGmha+7MEoKbVlaB1zsQQYjkLrp3dv+GrSX3ZLjyM+QblgE/E9itR G7L3XBhhrRBh37j22WE6BibTlywW2LadXjQLzfiqHqY8bvqHyhua4feM8Pr6 3AMjDLbXhbcfdcB6sLyTuyOus6VEpMHY8IVFAqtBysb135aOf2sYIUyZd1SB U/elxf+6x0MKNOe6n7ANnfvryzzVsw995MjwsVIpqsu7U1du++/RM3+a6+Le /Svr+KGUr+e82Zz7MgNTs0HiWfIUiUe4K1QtNaV5XyfnTHs1QjMyztWCvfNb GNinD3+i7ehZibt++SPXId2L/87JOJSyZMaApzmT03MvdQeWXB33XfZOT421 vU8IM2q3Kn3BPaLFpFUR3jG2zGbGbRJwjLVgdbN3XJmd/ha/zGkQM2oPDdW+ rh4ZGxVc9rSdl5/04TBxLk6Icr4iOTGlFe9r1GerbiXwu9GMKe/KmcwzGft/ 3LxswbgeT0eUY2y7pOY1+lxCM3RYXbLdRDZ8xWXMsJLJjsS+0n4iq1RTUK7T AO0KUFGgaQNY0+pN0DpnYoRX7fvRXG/MiB89bNiwAa+0e/KRcMfkDrq39rNd y1ZB2skrxI3QC2TvuTDCGiHGvrk5kmjRmFgygWzbqUad0Izrp0g3PjLg3D/U +MB7673YG2GhGbZDpe3NmTZjf/P07qbSwx+2K1/2qkpVBs3bYO6uPuujAc9Y bGbFyp0nLj6mXQFPt7+dhsg/bfJOx9cu575E9t3sWY0csk2I4eK6C8KYhF/l s3fZhyc25vTdCw2Jjfvy4GUP38md3B3vxZbnfHsRo1fTVFCHXaFy1gIiuq+T +pXzZZyrVq+1BeOjrSat9ppMVZR39Kv3m99neznTasRRLyvbmqtTjhm6I9f5 P7EOcDJqvSozaUnA6RjrV5KVK/mZ8bWMIT3Hj2Fr3DLUONtt/TWMTPuxJ/wY Oz89Q5n9K+C5e3XBMyH8b9HIvJSQFThnQ+1wKW8iEOP9o771r/SLYrgWz6fi gEm2m8gMG5cps/Xl+q075UmH3Fr/rlNNPE8NgoWiklRTTq5TAe0KUFGgaUsD VtPqTtA675UiiXzsmXavvDF53jcIzcgGjLCGCLVvPMegFWoLLAeobacdXYdm XLq2ea+EICw0cydrej0Bb15afOf0lkWje9h6Zln3vilL1hy5ovG3ZDr+XYdw GRuaSML4cMOlcu+p1nNl7Unb3GxfJ1a0Zj9cyHU/7tSSsa1S3sWFbR2HYAMT ET168wkfN4mL8rcNiGYTKKpUX3SWnrRtNk4hn9AlvK+Ti69M8Uvxcs3VkqLd Ixtb3yaq30cH/Isms4ejEG96z1uuzuX0wfYi0USoIyUmLQncODX9KUdQWNIV PHPAolJk5H080+4tdYEYTMdWmEWArw6YDvhFTc2gDJdg3IUPUBVZFlwbzQiF hPnMD4AScJHHH0h2E5WanTA/TWCzeh4es/qal4e8dmAENwFIrppyqkk1heQ6 LdCuAJUDmtZKQGpaHQpaFynlvb0yj7t/ZZ3+/cD2DYvi3mxRlfUIRbZ9be6O jHwCtzBXSN5zYYQ1RKh9c3ckkSsdRW0C0rbTjzqhmdurh7tMZAJCM871RoxM zIhjns90wkIz/PYxZTSZ87MCYwDSKL6d1KUycz8zM8PNVn1uVhfuLyjAC8E1 d3Ldcyy6vWNoY3b6eaov4crJpPacUcQmnpTjaVTBnI8kh1zhQnRfJ8FVFmVA prlasGdWI8u7RA2enykkkdreTtoYOmix+0Oo11wdbtFXIua2EpNWc3jGx4yU RGW3BU41L6jum4KbSd3MrsLa4zf4mVvEaVWm1nIOONxWdfbdDwX4gXN5E4bp 8dXRTDecydi/KyUlde2Xcyb145Sarxg297T2q1ZA6WByINlNZG9vbfs+fTbV 4hX+ZXyepPxFNammhFynCMoVoHJA09oIPE2rS0HrnIkh9naG6UbWpnHWYvs2 onqMS83S2qHnE5L3XBhhDRFo39xkNBHQPF0kgWfbAwId95oxwy8Y6CNoKCg0 Y9o3m3dpht6VG9iYb/MZmbZjM1x/HF4dFYO105+Qt/VrnvgPr61bCNNz2XF/ 5xOvth4lTXKtcC/5ylXAnOS+TpqEZmSZqwU3l3cwq5XwV6YJEoRWzs17OdSL +c3c+JLnXB22KLeHAKvaKDFpBVGUd2LzN/Pm/mfmxHeGWcpEx7aKiXmq8bPT k0XvuPkp8ZztzMBEd0m9If4B3egB7Quq++bWlg9qlo39kVbrLvl75nbRVz6K pgJX2Gbfjumneet55VBg8Xr+LJdGM/59sXa/PSn3UxCakZnL+0dw+mL7rD9f xp2tcZVl/wlUk2o6r+lBuQJUCmhaBwGnafUpaPmZGEamUf+9ott+m0ynP+/H tfnGhu2W/nZTzseVHZL3XBhhDRFo39wcSei9b6K5bQfu0Cw0Q8YccE7I9Lqf CgrN8BcvGQVjgQt/bxhzn4f8Fmt3P4eMqTD0G78jGlwHu0xnvay01zglI6oM XnJZiLTg1NUhxZ3iF/wOv/IEcwnu66RFaEaeuVqyd3b9sj9327DJH+78OauJ 2Uno9mLa4fHNyqZtn03u76zZ/XK+yuSqhhKTVgCm0owV/3Tebs2Iz+LLPT4h ilfTsuGMdCmLxEUP0LA/Wr+EIKbz8pP+j93lxkdw8NurtNc9VOFys0OaS4Fo FFi8XnAuy+D3ZQdbtV4CGs1YQGhGTkylP73blJ0SLYcc8MfFyGvcKdNPoJJU U0Cu0wT1ClAhoGlZAkzT6lPQujRlk5qlWZS/qXcUd9TGhq3XZhG1mfEhds+F EdYWgfbNzZFElmvCmqCxbQfu0Sg0Q0zeY17GhCr+7vUCQjMupdKEOPaBelzf 8EH0o3UW/ubGW2beiRwIy4GR+6xXUrjjDUe/GDE7L6euDlVnT4V2DVL7OtEa mjGV7hxUm5FWE+Dmd8PvdVtYOyd98H3eHETZ66a0rGyIbN7ls33+32pTEs2l jqkoN8tchOj04b2fdrTX6pdwbfPS4n/dw52RkjM5XZUt6fujqfR4fKxZgbcf e0LA7+m6nAk8FZIO3/Fu+Q5f/PhCoH6Hci9eL7iWZYicuNWv79V+D5eERjOl CM3Iizk5lsXfekq8k5R8P4EaUg2hGboVoCJA03IJLE2rU0ErpdGMByzNR7gY wl797DyxtyqI3XNhhLVFoH1zPZLQVIvGCc1tO3CHOqEZl5lMUN7jqanteA/m +U6BgNAML4XMR2stQCK5R8dW5cyKpv333vb/j7n7rAzdAJ30T9OZ6ULj85w7 XFSdPXml2PSwa7gJzUjXz35/oti5anbLSM4TM2s/A/Nol9S/eP9stc9S1Kba kDNpTaUbu1ewrXrR5Ytvn5sezc0wlHztjv/9mAliBiaTlmLIw5SR1MFo3scH fveLu04cntm3/CXeUJVNrzKdTB7wsJPWUpvwpp3XyZo56aIe9XHzSJbF6xXX RjN9Nvu3DK2nOTIazZSxY8BDnEGoonCu/7Z0/FvDpPDmgJZVrD9uk36S3mjY sCnzjsrnF+CkJAmp4ss74FMlMuWW66WU2WEoQHcE3oikEEiaVq+CVq5GM/w3 dUpCVrKSW+DuuTDCGiPQvrkcSfxOavLMnR+mR3vd0CMfax5jo1WTWpwHCGXG 75Ngv8ix7YCDGqEZV+vtNiyrFfwkMS87i/+hGedwj9tWJoBg+KWzhd535u6z kjM07LkQtlkn6rIqZ+rSdWrmbYI62DXchGYUHrUcc9VSE97/3uieHsQ8z+/j F7o0R0iJLA7gFVImLZvJHMT0/CRHlKou2B7v1IRdam0l55uqxP++BTeTulVn 5EFZ8+sq5zRB3jnveg5qMudnGd/fC7kHNy5auztXkwRLORavN8Q2mjFz4+jY igRVRhVUalgWCFloDmRbcdcOjGAL5wrJ/eZNJ7pEpqxy3QIh08O/WQEF6I7A G5E0AkbT6lbQytlohgOnIoftnRUqc0qIUXUg6yqAEdYYQfbN9Ugi3W3u0r/G b8LKfixJ/mVSbDvgoEZoJj8zvpbzbGq58BeZP0U0tlolDgzl+8/LcWcY/T0A cntoMuZYT98NWQqPAchKSeHGHuydGeH3nWU9653nXUOOGL1axM7LSSul69Ss t13DTWjG30xmGT5R44veN5e/wfBvCV1d9noIwzRM2ElXZJuQScvtltVgxl5R b8GNC9u2M6lJcUeXPMOf4ZHjNpC8sG9t+aAmIxfKlnKlKlvbX5Q4B/mFOb22 nFbbpQyL1zuiG82UcWrNC8Q0minltdJj1FE4puPfdQjndSvQEOPDDZfKtG1b 6pnYEZT7zUvAk+fuiVrIL4GossNQgAoSMCMKEE2rW0Ere6MZOy4uRKVyNgJ1 z7UODkZYWzQPzZTe/SvLUWzh+M9pKSkp369P/PTjPk9Ucp1+US+NnrtqU0pK cvqx05kXr0lcbYTYdsBFjdCMS4lL6bU9ZebGyfgGnG0rjBm2Pdv1VX6FZkyl h+JacV/mKdADyIUXDTEyLyVkCTtm8m+nSstOufZlP/ZZxMnIgmsLmgazw6Go YRlfT+pg19C214y2dSatvT6ND7y33rbarE0JK1Wce4oqA0rMpGXzcET3qnBN CJRcW4ln0MoIZxKOEVyeytoxNohpt/RXMamVrleG7zfMzZT9KQMZ13OQwtFq GxYvkIjdXx5kWLxeEd9oxr6ECWk0U4peM3LhdEG7WpOVOX7/La+gGUlVEXxD jgTSBHKGHygKkCVQRhQwmla3glaBRjNWSn6cwb+FRPD+S+CeawNGWFME2jfX I8nAlJsKPZqLUC+bHi/v+sv3H/oLMbYdcFEhNONmapFX4Ktg7/wWBscTGgyN uqZcdfbE+BOayd85vRHnNcbHXticHZjVGQOYP+f35M7XTivPCnwD+fqKOuUi PvbyLhFvlZPWnx0NVadm3XUo0zY0o7WoNtfJYXt8l+ydXZ8xhg5aTM10tULI pGVLyIq+im5V6Vwk11ZyrsutmevbL2w3ao1M+7EnxP6MrjJeB3ZMTvh3IlQw iRZMpT+921TU7i8HMixeH4hvNFNamrdnUZ8+g1OIUbYIzcgDz28p0NTfyZpe j/0NpNYIUhWSJJAGkDT8wFCAXAJjRAGiafUraBVpNGPBxYWotQ3xAoF7rg0Y YU0RaN9cxbNyRxLrJSYuMosrQmw74KNCaMZ1GpPZTOrqlvgm97APGd7zwxN5 vMf0GZopPL6hN1vKzMBE1JmS7mcTTUAMd68ueIZbNFuiApS2z/JyXYSU/ubg lNZCUC1Bn+hu19AiNCPXXJWO+XpXiC1lqKQwuV8UU44ZuiNXuwcSBSGTllOU W3Q01lUeSK2txC/PyIQQ/fuaMpI6GM1pkJMPik9i2z+6odN3qM6lj4DBOStV ndCMtR2qVuW15Vi83pDSaIY8EJqRB3OdOhZhHoBr6YNpNXEkSSANIGn4gaEA uQTGiAJF0+pW0CrUaKbUTY8MrW2IFwjcc23ACPMpyjux+Zt5c/8zc+I7w8oY 8Epsq5iYpxo/Oz1ZEdMj0L6peSTZM/Rh3ifJfomeENsO+CgemjHX6+bWhxTZ x1wdrqdOb1GOfdbwdsPTstmJ6j00c3334u4PsSM1Rj2ZsBdxGfrgFrNlxPZ2 4RxUJe2zTlEVcXeQT0zhVNgL5fd3IxzurqGLQkDqh2Zkm6uysK13RSYqdssN 65HHyLQacZQ6pUDIpOVUwBYdjeVveWYkXtzmX0g0Mh0nZJKXYWij4GZSt+pl TymxsaZLm1S1WqUECqZ9s+vxv0D/S2+J5tTUdoyG5bXlWLzekNJohjwQmpEF J7UpLLxyaAF7vq8UuUieYjlqQZIE0gCShh8ICpBPIIwoUDStTgWtYo1m3PTu YdgLF8RB3p7LAiPM4nq7zYZSt3EF2jf1jiR3s2c14vvPJRdgdPkIMmw74KN0 aKZgezy/ECUTPSVZWtM1Zck7vP7Nx9i+S8ZHWyYkZ+RbVp2n0IzpRtbmKX3r s+0zmYjOb6dkSbBlKoeMvXP9t6Xj3xpGCFPmHZVHUnjk8Phm7A8pukUgd5+V kI/Ki86Lu4PMuwSkVIc+pTBfrdXVrqF1aEbr3GlzclcF8w99blYXhtT7lT4g Y9KypkNCNNb5JCvR52atWsyxrmRmGFq5teWDmmUrov7zW65ImoOuEouqaj8E wF1QZpSvyflHSu8QLZOIZFm8XpDSaIZAnEMz0b123db6mXxCnpuIZ6nCmZm/ C5j8nLIbJBas9gFJEkgDSBp+IChAPoEwokDRtDoVtIo1minNPTq2qpO8ZZrO OUjoDCdvz2WBEeZiKsrNyizj9OG9n3as7lhfSnRdNCPUvuUeGGHgTnnFjiRn N3blrS3JBRhdIcO2AyeUDc1Yb8OxEH1lhuXO9d1zRsf8HxusjGzdZ/KSLWtH NeeP5fnFaTsSJ7/Zoir7yvDo1uO/3XNZkv1QPWTsFdcZoi3KXrjjKQ0JgQyZ ItEcJSkyXG46soQ7axvOSCd++XHgyhVrFkfA47wXKx+aISlrwjzhw5m5xy1H noj6iRdomq02SJi0ptJtfSJtz/Bol1SxTQOdsxGk+Tz5eRqG8v3n5ZB2PnKQ e3xCVHCZEO6RJPUM65JhFRz89ip6Li4SgKuMVNT3XpS/bUC0wci0W/qrNtZH psXrBSmNZgiEH5oh0vHiCnluIo7UF6w2uWUb6Qs9kySBNICk4QeCAuQTCCMK FE2rT0GrXKOZW+vfdcrxYO5nZmYQ+S2UkrjnssAIu8VUurF7BXGaRABC7VtJ 4cYe3JCkUkL97w1j7uMvL6kFGF0hwbYDFxQNzRTun891C5dZxNgFP9OSTmW6 cT5l4ccDW9cNNzK+Ca3Y5JW3Zq6XGJRxfLa6IWPvz3L8uw7hwV4Hrx7Ghxsu VXJPvbM1jqs03KZ/lOz/skVNJuGw19+i+O/lsaG2dwliRu0ReVOFoyRFxok4 1cwoCYxyYYuf03bfRzT8mu1qOHJlmquyYJ7wBubtf8+IprfzoPRJayrOOZj8 xcSRPdo+VTuMqVDnyc6D31/830zW4hQVFHi3gi5Fucu2s7SlM4Z2fz66SjAT WrlB266j56w4cNlHmJt/kpV2orl7ZWmsw7gamGp152b4EWS/9cfSXo3Kh1Zo NXmNz2NvXkZa4ry5X+/OlLpNmkqPx8eWPWTYq5+dl1qewl3nWWILPpCK076s aFnOq+vG1GKYsK6T/JmebiBm8XoksBrNWEqjcwUqkY4XV8hzE/FCM4JqquRn xtey/ynJrjlPkCSBNICk4QeCAuQTCCMKFE2rvaAt1UDTKtVoxunSkOV7IDY+ ZYa8PZcFRtgtnFUv/4URB8Ltm3NQMpQZt0+m7k0cFG80U6pLJxsNKBia4e1c ZsSfdjUl/8KJPWuWfTZxbN+nq/O+qftrdR48cvKcJWvT/pd1WxmToU7IGFhx CoVXqjj3lJv925wfGOzbQu4Y8JDjnUSnpHKUpCg5ce3AiPLsgDSrnC8WTsK5 bvyZ6odmZJqrsmDtKflw7dpUNku1IHHSFpz+MeHFJ8IMZfYnqsu7U1duSUlO Shxf9i+h97SbmZpbmL9nWt/69xqMDVuvzfL81tyi3POPnd/8acdqwcZqdfvE fbpys/kNxz1f12huiNZkcqq3Qx+nTA0jURvzpGwQ02rOXn80oPVCvV/5PBfS +lsTjCR3OjBlJHUo+3YqVZ15XA694ryijUybsb8RWJCcZJxbFjKR4zYooSUL j65oHyzEzcKHqMXrEddGM9RVoOLCb2NKqOPFFfLcRJzDoLDeQ5z+jKR2W/AF ORJIE8gZfgAoQCcCYEQBo2k1F7Sl6mtaxRrNZH/9xoMMH7k0s0KQt+dygRF2 hdv6Wf4LI45PEWHfrHUVOIhsS+0FNizF2CyGAk5gPTrZaECp0Iyp9MS0LqG8 SfX4opMEG20/8NRrRkHUCRkDK+e5Lgsj81JClusZ0/yLGJnHXt7l66fndn8W vaY4byJGUF1a/K97HNNVctME9eH6Ch54bz2FJ37h3Mmazqt/pEZoRpa5Kgv2 X9yvJUYm4ietyZS56oPmlp5l4W3+tfkPznZZlHd4ao/QIKbv++Ob2N/di3pn i3KHBLXt+kLVEKbZ2/OO5nKW/+0rSa/UM5fLrRg5fs9lj4/EOQ5LOtFcPTKW o2P9TdJgD5W+83nYIQvskuBMwc2kbuYcDNkC2dyUctWUQ8DB2csYpW6AZh96 r14IE8YM2pIl+G8JXLwecG00Q18FKi7OoRlKCgYS5ybi9rkTZqPYq9lyVIDU BHIkkCaQM/wAUIBOBMCIAkfTaitoS7XQtMo0mjH9vrFbKP99hcSntIG4PZcH jLAr1iCRZdUrWDVInH1zPpLUbJB4Vs5Z5dKoXZGONnp0stGAQqEZa1EIlvBy o3cJPkKShvqhGXVCxsAKK4QsxCaedH1NyY8zaviXslu0Ne5e2zuJ9xVwvCjC 5URO+mBHncoQpu8G4e4mreFqlbaJp7R+HFXQIgdYlrkqC45fnF5vochJazKd Xvx6TUtvwfB2b6Vfdxl9wc3lHTguVS/1otmi3NZXluvz1U83XF5r70JlMDTu leapTC7vtoKwVGqWkqLdIxtz9s2nV533b0Kzh8pg45uJ3q6LlxQldQq3vb+0 +uEW6eL1OxGK84o2MNWarMyR6c31w51LC1tW4n6PtcdvkFN/ZR+e2PhBke4F MhevB5wbzQQxQ3fS6TG04nIrjY4DJoFuIra5rZDTTd7p+NrBtg2i5ZAD+co+ o0KQI4E0gZzhB4ACdCIARhQ4mlZbQVuqgaZVpNGMWSzxxFgZUYPnZ96R+sbK QuCeywFG2BnuEqgTu0Wxi0Qi7ZtLQb/I4cuvyzWvnDtsmmm58BeZ3p1Fj042 GpA/NGMqOb/+w5bcCRtWru+3x+mtl+BA/dCMOiFjYIbdBSxUqb7orMumZCrd Oag2c59/VSXZEo4SlAAr5ATKSJ56ZB4es/oaeVLEJ+wNX/3Mf7aGoeTJ4z+y zFU5sNlYJXtJKI24SXs+cbDlDOst94bTccNr20HuPWgvrmbO/axOK896erBT U9uxW56omAIvT0NInj/3UOkj0+/G0bEVbQOWlFl0YfeQh4Jlz/3mtynXvssn pViqjXGFJTNse7Y873x865sNzXGZmGmpucKtH7GL1w2ujWZoDxQ6h2YoufVA oJuIW9HX7zxttrAPnfk/NoiRQNpAzPADQAE6EQAjCiRNq6GgLdVC08reaMaU 88vsLvUM/D3XfeiNNAjcc7nACDvh0l5KIUQ7mgoPfvkcdyWIu3Hvjuub4x7l LzGFfg49OtloQObQTFHe/un9ahk5b1ep6qDVgRCXKVU/NKNWyBiY4eU2e6hm lrnxJf+LabPbioSpwh6WhcnI7JXDHXchKe3xxGnvS7/7SAh8R67KhRM1rrZk sbE0d6MTNWkL9s5vYbBJ8s7LT3o84eSk9XdIdy/1LTlFG6oMXnLZs8K3zzSv 7+aod21BmB+4TGGmTm9RzmGJhCVpsIdKn5l+nCE3mfOzoCdkybu4sG1lJW7x c4tIW79v3XWalgnuvmZeYhEPzTwm0dFQcn79tLaVgpmw8J4LfhQRlyF68bri 2mimQ9wZAt0U/sM6NGzQkftHpJuI20DBr7o3eWenN7ZG+gxhr352noLbSh4g RgJpAzHDp14BukD9iAJM02onaEvV17R3ry54Rs5GMwUZP7zdxOW+TK8Je8mP y5QSuueywAg7wW0vpcCFERvSHE32ALT9h4uoMyVdaoUonpFxvLOXyLVo9Opk Ix/2XobkXSD3wLqxrapzwzLGR5+ZuY/6OmYO1M59VStkDMzwy864uchpvYcS 5HdbNO41HAmlYgt2TXdEz/2UkVzDTkc2i1tY0U6/+0gIGVNieDuyz2aR0pFp rkrHamPprfwgZtLeOBnfwF592ntBGI5S9VLfklOUmxm121t9GfuO5uMgcG7e y6GOQQkpWXN9+2dtK9rvOQg9xnKLcvvK9OMOWVzmj+nGH0t7WlMB5T+48Ve0 mYEpN+X8AP3AqZFim5FRTybsFSkyCy4eXTKwZbj5PFX/fc+9g71B/OJ1gpOl 7Fnq0AS3Q4qNoWk0ZKKQ6SZia3T4lYNk3xoEVvUhEGIkkDYQM3zqFaAL1I8o 4DStNoK2VG1Na+bsxq78zVF8o5k713fPfqtpef7bBTEtP1h1hvA6Zg7I3HMd wAjzYZeAovd3JDqaXPuqR0SP3nxC5IrlNOeKGvLNV4NqO1aaIk5gvTrZSKfo dlLXqgwPXwUwXbl7M2P7qkkvPhHGvdgVFNRwYEJ6Dg1HJD/JPT4hKpj3VSnd 8lKdkDGwUvz38ljWvroKmPyU+HqMoXz/eTl+my9u3LP7mksiH8zeltpPGcmN y0R0eZfWuEzZHrVvtv1uuvYiQU2ceh6pU/5InrkqEevJRfNr1BIQMWm5zQRb LTzm5U9uLn/D9jqvhzX7HQ0DUzNm3TXPb8e1eJUiF3nZyu5eSerJVjBoGp/s +3JB8d0TS99pYnt7UWKVTe/3JUrZOuS+huz+z4uzdyYOfNyRCih3P0drc3k+ tSdtC4yrxBpgMp1e8lZ9XsncSp3/vTozT8AWYbpxPnnm6Jj/Myu6iI5DeO2J hUDB4uViuxfGQ3xGLhlwKrRbJ4MctfRVgFQ3UcGeWY3sE9V7gTK2mod8pQU1 hAgJpB1EDJ9+BegM/SMKQE2riaAtVVHT2t/keHwsb7MXNQ8LLp9KWzK1ez1+ ZrI59bplwg5RCS1aQeqe6wBGmIW7BJS4MOL4HOmOJpeEsbIp1uzt/xy4LOxY kZex69OejcyOdHvEk9ttXHxQ1cuD69XJRhSmvCtnMi2c/CV9e+rmZfPHd+XH U6zcX63f7O9S9h4+nemR00f+l5r8/crPp40f2Ltx5WCnNwhv9MK05Ix8uUyf qTjnYPIXE0f2aPtU7TCmQp0nOw9+f/F/OTtCUUGBfGaW/ZbM4/z9QFpKysbv FsaP61zXeWOy7HThMa/HfZaYlJySnH6M84VdvCb9IqBKIWNg59ysLp62xcLj G3pHlhOaGci1e5ETt4qfpJd+GlnDtsqi4zZ5lJF3ru/+t72cYJCh2buJpHfl 8wo7/2nvUywQ5yKTqix/2eaqFC6nDzZKbeOuLYInLTfi77a/FYc9Qx+2vM7r YS0/M76W/Qm8VzpiX+lH+I/b97NMN76/7DfPnvC8E9unclI1KsT0XpVxU6jq 4xbl9pGZwLleyrz48QV/5u7dv7LKVNC29YmffjTgGd5VXyvGR//5/qLvdv78 a9YNwU77gusXbBpp4+q5H7zZoqqzQDITVqnzlC+3pP5wIMMiGM7+KZte0ge5 +5YP4Euy8Ead3l+66USu19+r+O/sQzsXxVl/FANTtd7ri7fniHYukL14WSl7 /Oe0lNS1iz4Z1aaum6leq9Gwfy9euzUl5cd9GQ4FS8+EZJ171q+3at3Ei1o/ kz8Q6yZi/QwGptpj0/ZfcfsqiyS2TP5A6SVKhATSDiKGT78CdIb+EQWmplVd 0JaqoGk5bqvkNd98PKCts/YMYXp+tp7nqnLPmaO7U1M2frtoxkfDOj8d4Vxb iWEqVes3d2PmLdpcucTuuXYCxAjL4rN1qRpkunE+bemMod2fj64SzIRWbtC2 6+g5K4SGP1yRx9FkKs7esaj7Q9z1ZtaifRMW7Tp5xYc32Hy7YeVH/Z6LsPy1 Meqp8RuP2OR3SWFyvyiLylIk40i3TjaicG0rIzNB99buOGDO9/svyyfTC07/ mGDdEytFdXl36sotKclJiePL/iX0nnYzU3ML8/dM61v/XoOxYeu1WfLMWzm+ JTksv1ohY8By9chYu6SMHLfBZvHLTG7KvI5lJldEDUl2czEyMSOOSQjXWfoU W5Sk2/tod2+e2PzFULuP0RwbpSubxRXu/NdXoyU3FVrUKH8k31wVjaXYDrmy 2TfCJ+3N74bbU76NTNuxGV4WrZ/nU07nBS8FIsywtQ788meaLv/+xauNHOdT m0d3z+HTZ87mFhTlZmWePrJvzaJPRnfg5HtUqv7yzPVZogLEbFFun6FJzpD9 yvwpurX8eedy2R63cj/PxQ5uHZ9Q3V0sxtfnoPuMUEw3sjZPKZN//G8y9IEm 3fqPn/75ys0pqdb8Imtg4ss5k0e8Fhtlj+aU6ckJ8yUe64hevOLmIYc+m+nY dNVuASkXJLuJuNGZqnWGfb2bd6YrvnN6/acdqwVLrd1BGgRIIC0hYPjUK0AX qB9R4GpalQVtqaKatvh2Uhfn+7BKENm8x/tLN9EXlLFC8p5rhX4jLJvPlls1 aP6x85vNksNYrW6fuE/LtH3Ze4573pxoZIxqMllcLWIrsjqaTDfOrPmgj/OR pGzVNH6+37gPF367KeWH/x49xQZP5834aFi31lGOIoGVqvf8aMlBp1PJ2R2v VQnxWf9Q1OPq1slGFoqEZkIrN3i2Q9/RcXO//f7gBVntNafmXnibf/EqThTl HZ7aIzSI6fv++Cb2B5HrIElKaEatkDHgwqYCWu5Dzfw4ru+zdcON4rsm7R/d 0DYpfKUP+cR0+bev3rSnwZgdUK+N/vCTOR/HDXu1a8P/szlhwp9o+84X34uW jgRx4+jYitYxGSsM/UZK40L6YOt/2mi+8FcVPlbGuSrhAYKD315F6xVBoZO2 pHBjD7agqI8jGKdqtJdX+lkgopSXwud3ipTZKTerh9sLpHyM1er1cRWZ/sMW 5fbda4kdsp+ZPwJCM8bIYd8IKwmZe2CE601kn1RhZv5K66zXloI/j2/8ZHS7 Wr7npJXwJ2LlEU6EL15x85DCCWmvdWOFYK+LE8S7iXL3fzvyaVu2j7Fa/Z5v jJw88z8JY4f0aPQP6z9GdBy67ncx2ePEorkE0hbNh0+9AnSB+hEFtqZVTdCW KqxpC64vfc5fCSSMijWatLa4+FZtSD/lK/+fcIjfc0upNsKy+mw5vZaC2nZ9 oWoI0+zteUdzOV/I7StJr1jKElaMHL9HbE9zBRxNBRePJE0d5f+RpIzIZ7q8 83nSkSvuzUtB5p4VKUduyz4X9OxkA+Lg1O5z38e84ObyDpwkAVrqS/uPOiFj 4ELBxaMrPhjQsobNrobXf3bQNPGSrOTHGTXsv6MstUPzfk9f8e/3ej77eISj 2H7QPbWbd+g3furK/x7LpfUA4Az7vQUxA5N1Fs7n3sq37JsPvLfeVz9eGZB9 rgrDHoz2kRdHMIInLSuNfB/B/t4w5j77a73comILRFRrsjLH24efnuooQy2w w2DxncwdSXMm2K6rs5Qd4l7oOuzDz1Zu/1+WRB3JKcrto4QFd8i01DICslN8 J+vADytnxY96teuzTz4Szq3bVbY/NmnZuf+IKYu+3XPiomx1uihdvAEGv0Wg mF6ZWkGDm8hq6j9597WODf/hWFLhdZ7qOWLy17t/o6Xknf9oLIG0BgpQZugf kS40rQqCthSalgBo2HNpNcLy+mzZCx3WF5fr89VPN1xebjqypLllmRga90oT VVlIQUeTlyMJw0Q+1vzZLr1GfTgjcf12mS81+I2unWxAFOcTB9tu03tuyGu5 dsfY9q+AK/mlUsgYKI3L7SfgD/ar3wYmukuq1/yiAKSkKKlTOGcbV2vmaDpX HQ3vaCmk44rASWsqzVjxT8cW5uvUaU+m8npYK7i2oKn1Ap2R6RB3xsvpg+/S 9FH4WnW4Rbl9nBHuZs9qZB+yDqvQAG3A4iUD5zQGpsmcn7V+Jv+gwU2kO3Qu 16EAZSUARgRNKxfQtNpDxZ5LpxGW2WfLfgnmn6vVnL3uF8GdrOn23jydVp4V 9MBW9Oxo0vPYgQgK9s5vYbAtyc7LT3qMJ7Jlf3wnIVCGWiFjoAInprTyU6kC G5x9ufakbTq8FMYWJbbq86eGHFRFn2s4V8/N6mKxddTefxQ+aTmHNV9HMD8P a2wVI183rdgUPoa5n5mZQdZ3zs5/n01YODUxdNi7GWgFFi8RuBT/VKMvmyxQ 4SbSHzqX61CAMkL9iKBp5QOaVnso2XOpM8Ly+2w5VYOqDF5y2fOzbOv9gF9v 6BY9O5r0PHYgghsn4xuE2PbrlkMO5Ht+JWfx0ntf2D1qhYyBGpxMas/gZxJA wfb4GqQKbHVgSw1bFVrNmHXXVPlgreaqLeHNdxFmYhExaTl9zYKCBn7hrdYr e1jjn09NJef3bNp70V5u8Vr6YPs7eu9PxGnVaijff14OUYuMW5Tb19mkaGuc o+kiL9ErPzs9ZWcgdN0CRILFSwSHFjzB2Slp8oJS4ibSHTqX61CAckH/iKBp ZQOalgRo2XPpMsIK+Gw5VYOYUbu9vKMjNGNg6nRJ9aMpExc9O5r0PHYggkuL /3WPffG2WnjMSxTU/95w9KFOyBioQ0lhcr8o287VcUKmCl1DqIb9usgT2Kqh lcdJq7n6pzWdJoh58eMLNP7ioiYt9wjmvV8qtxgCr/6wJVGwbeIp2//kHGOH pnluj1V8O6mL/f3CmckHCWvOwGY/+q7nwOYiVopcdI79d+s3NvlQoDTfAoSB xUsCt1cP52yTVHlBbYV6qN3yAhWdy3UoQLmgfUTQtDICTUsCtOy5VBlhJXy2 OwY8ZFN03rNSuTUM+YvFN3p2NOl57EAEuccnRAXbFlqV6ovOegs2sI3SVEsp Vwt1QsZANeyl54gUjaSRufEl63cVyozbp9fvyqVOi2oNATWZq45jmvfTHLmI mbSm0mNLnrL/vt4TAjOmxDhOnTN/Z78h58OaLSvMxzGW/YkZ5uExq68RJsw4 Z3ZfZwQ2F9G56J/5eFsv0DrQAWLA4iUC9rv1x1wQRu7BjV/Mm7/2lytaPwjg oXO5DgUoC9SPCJpWPqBpCYGWPZcaI6yEz5ZtIOgr55zbavB+w9xMPx/agp4d TXoeOxAO50aqkWk7NsNLWNX/xUshaoSMgZqwQWomYvRqxNC8cGpqO+sXFdZt mu5SFh2w+tyGeuc7LeaqI0+Mmk4BfERO2htHx1b04xh76aeRNYJtO0J0r123 2f9i7qP62Mu7HD8Sp0mZx2+SkzBjaNQ15Spxeyen0ZKPPpj5KfH2ip786hnm MublKgz9xls9DQCkgMWrOSVFSZ3CubskKvMDGdC5XIcClAPaRwRNKyPQtEAY lBhhRXy2p9a8YF8tPnpVsEURDUzVuokX/Xxqy4fo2NGk57EDwZQUbuxR1XHI 8uGK5DRKozUpxRPqhIyByjji1JUqzj0F/4EHctIH32f5lnSZr8jFfEJhUTcA rfJctcWhBIsrUhA9aU2lOwfVtsra+0d9676GdN7FZT3rGRzTgJtxd/vc9Ghj 5LgN3FRCh1T2pGmvb4571CplI2olHCQvA48XlDQybcb+5kk6Xtg95CF7vhbD NJnzM/ufTqxoXXa+SPZyAgZAGli8msPtyWhBtbulIMDRuVyHApQI7SOCppUR aFogAvKNsDI+W//rnnEuozlHeH2gZ0eTnscORMBJtyjbrofu9BYo/nvDmPvs r6U0KcUjqoSMgdqYSo/Hx1p/LT1m4vkD5yuKHL78uv4OxFycq+gLEh4SUXmu 2uow+8q6IRNpk9Z0bEUb69i5iYIOrGfYsEdaPVXdui9y8+jMjfyCXMSV7YK5 +y+z8JekbmHWM2ydKemXhT2rOrBFua3PWT/xgjsVn314YuMHjY/EtKhueyk3 RfPw+GZMdJdUWrpOADrB4tUYjlS2njS5hXEAEI/O5ToUoESoHhE0rbxA0wIR kG+ElfHZsnXPqjVZmePt809PjXV8vPfLaDz07GjS89iBGEylGSv+6di8fC1J e0p5AIYk1AgZA024cTK+QYjVh4BotRtsWSIG5pFW6y7p3sfi5HcKYxJ+VXEf VXGu0l2UW+KkNZlOze4ZalG2rebs5XYHzTu69b1W1Y0R9d9PPXNr1/RHrbLZ 0UI079zslg+Gumvhl79zeiPLG3ZK/JXdP0zF2SnzOlpS8ozRbeb+TOQZlt8c 1krU4PmZ/OTL3APr3m76oKFhm5Vnik5Ns13NdmRaFh5d0T7YRz9KAGQAi1dT uId989fbqP9eqCogFzqX61CAEqB7RNC0sgJNC0RCtBFWxmdbcG1B02CbousQ d8aLz4Pb0IFhWi78xa+nLtW3o0nPYwei4OxfnM3aLeaqm8F+vZJCFA8ZA+0o 2DOrkdXR3nVShseWhrqkKH9Tb0tt1RCm74YsrZ+GAFgrZ0Plai2qzVVbhVtf WTckIsukLcrbP71fLaP5G2g2OGHlltTNy+ZP6vdcRDAT0XHout9vmvVTSeFP E2LLW76llmO/2LJ+5cTn61rOce5+GFPJ+fUftixT9KHlW71V9oYpyUlfTe71 jLkrQ2hIbNziY7nkSjJOUW7m4QYNwy1lLyLbDkxYmpScYv9mQoIaDkxIz7GM 3VYcw8BERI/+avPmxE+6/yMovOP4o0hUACqAxasdXFvhXJkfAMnoXK5DAYqG 4hFB08oNNC0QDclGWBGfbe6BEbZah8YH3lvvrREK9zLa/czMDP8yV/XsaNLz 2IFYCjeM8feQxRby4i/esu17z6a9F2nW0CqEjIGGmEpPTOtiTSjqvPwkuWpS da6uG1PLql3HrL6GW5YW+O1mPJduVgh15qrNjhmYOrFbaIsuyzhp8zJ2LYob 0qnJI+FGpkKdJzsPfn/xzox87nuairN3rRr/yvPRVYKN1ep0HPL+5j+87XQF F4+uiB/Z49nHI0IYY7V6MS/2Gjc7cdcfN4m2OWxRbktu1YXinIPJX0wc2aPt U7XDyubhPbWbtXl5TMKaQxd5t0nvXN//zYyB7ZuXvSa8TtO+Cct+yyN6lCDA wOLVAF4BfzMdV57T+plAYKFzuQ4FKA6aRwRNKzPQtEAKBBthRXy219IH29+U W9DPFUcLqrLHLu/uqp1b9Oxo0vPYgWiKtsbZF5qPK3Xc+6G8THJLFLVt4inl H1YxlA4ZA825e3V55+qWW1F15+owFc8ttu6HRuM/h+xH5qudO1vjOBfhjcxT Qw6qfENQhblqK1dL4b0/TFrZyUnr75jt3jMTAAB6hlfAn2Eqhs09DecVkBud y3UoQBHQOyJoWtmBpgUSIdUIK+Kz5YRmhqZ5Hmzx7aQu9rf0v9qbnu2bnscO xGMqPbbkKf+ipRlTYhxLktv307r8Jx8qUv5pFUPhkDEgguxD79UzJ9KEtx91 AEbSITzqNE88rb/Drxf+dKh67bxPSs9Va0udIKbPJlXLtUkFk1YBSn6cUcM/ qQ8A0DPOeQsBV9kYkILO5ToUoFAoHRE0rQJA0wIZINEIK+OzvZsz6wnfoRnT kSXN7R/t7x0QPds3PY8dSMQWt/W1zC/9NLKGteSXgYnutYtTftNc/+exl3fR VtuVh6IhY0AMhcc39I40T+NaI5brOqxmKj38Ybvy5rK6daakE9rGUTNKipI6 hXODMyq3m7Gi5Fy1dhI0GBr3SvtL3ndWEkxaZWC7p4Uwo3bna/04AABC4Vf7 hNcLKIjO5ToUoBDoHBE0rTJA0wJZINEIK+GzNZVu6xNpfc+BKTfdv2FJYXK/ KOsbGhp1Tbnqh/TTs33T89iBdEylOwfVtqbAeeyqYOuPZiWIefHjCw4bdfvc 9Ghj5LgNdEcElQsZA8Io/CWpm7nYLBMzLTVXn7+gyXR68es1DdgyPHLty34c /5NmFRIUnKt3c3Yumb3qED2/PiatQrDd06gs0g4AUIn8zPhanI0RXi+gMDqX 61CAAqBuRNC0CgFNC+SDOCOsjM/WURGowYy9bt/y+ua4R61rKqJWwkE/gkl6 tm96HjuQCdOxFW0sy9z95RfrGg97pNVT1a3LnNt5qmB7fI0g+u+PKBQyBkRi S4TQ63HvenJ8Y4TyvcO2z9NY3ut8rjrApFWKy+mDjRqHIAEAFHB0yTPstujh vACArOhcAul8+AEMNK1SQNMCWSHNCCvis809PiHK3BWFaTs2o9D5P9riU0Ls lZ7tm57HDmTDZDo1u2eoJbjaas5ebunovKNb32tV3RhR//3UM7d2TX/Uag0c 9aXzzs1u+WBoQLRckT9kDAimIOOHt5s8yIQxQ7fry3KWHFrSomwNR7eZ+7O+ Bi4MNu1K+/Rg3c5VB5i0ysEtyh2beFLrxwEAEMq5WV04d2aY2pO2uZzgAZAf nUsgnQ8/IIGmVQ5oWiA7ZBlhZXy2+TunN7K8Z6fEX1lpZyrOTpnX0dzLXoC9 0rN90/PYgcwU5e2f3q+W0bwqmw1OWLkldfOy+ZP6PRcRzER0HLru95vmKyIl hT9NiC1vWbktx36xZf3Kic/XNTRss/IM3cXMbMgdMgakk5+9M3H22l/1FWUz /ZG+aPGKY7m48+UDR6zWisY1G3U5Vx1g0ioHW5T7fmZmBv05FgAAJbh7dcEz IeyOGMpvIwuAouhbAul9+AEHNK1yQNMCRSDKCCvhszWVnF//YcsylRdavtVb Ze+Zkpz01eRez5g774aGxMYt9t9e6dm+6XnsQAnyMnYtihvSqckj4UamQp0n Ow9+f/HOjHzuzmYqzt61avwrz0dXCTZWq9NxyPub/wiIuIwFGUPGAAC6+TOt P4q3gEBnW+8HbDO81YijgbOZAwBk5cSK1twN0V0KEwAAAKAh0LRAJyjhsy24 eHRF/Mgezz4eEcIYq9WLebHXuNmJu/64iUgDAEAD5AsZAwDohu21Z6tpNnRH rtbPBIDMZK+b0rKyIbJ5l8/2IesAAOCeU1PbcauZtVp4DGoYAAAAUUDTAgAA AAEDQsYAgDJK9s6uz8kTrjD0m1u+/wgAAAAIIG6fmx4dbN8KDUxE/cQLUMQA AAAAAAAAAAAAQDHu/DmrSQjrj4pquQ5JWAAAAPREwfb4GpwrMxGjV6O6JwAA AAAAAAAAAABQlKvLXud0PmZiE09q/UQAAACAWpQUJveLYnfBcGbywb+1fiYA AAAAAAAAAAAAEOjkHp8Q5SjkgraSAAAA9ETmxpc4hT2ZlxKyirV+JAAAAAAA AAAAAACgA3jtj0OYUbvztX4iAAAAQA2cdsChO3K1fiIAAAAAAAAAAAAAoA9y 0gff5/BMGcr3n5dTovUjAQAAAEpz7cCI8pwrMx0nZOLKDAAAAAAAAAAAAABQ C17aMCrtAwAA0AGXFv/rHlyZAQAAAAAAAAAAAABawbs4Y6ww9JtbWj8RAAAA oCBOrdZwZQYAAAAAAAAAAAAAqM65eS+H4uIMAAAAfcC7MhPGjPoRV2YAAAAA AAAAAAAAgOrcOBnfIAQdZwAAAAQ+aLIGAAAAAAAAAAAAAMjg1vp3K3Muzozb +5fWTwQAAADID6/DWqWKc08hMAMAAAAAAAAA4P/Zu+/AKqq0f+Bzb0LUkKCg P0hkKUEUCbgrzZUSl4WgVJEiIrAIKgiCgoKgVKOBF0QpywKCYFaaEqQvJEGK C2EVEAgKUUgQCEhCC4YEIe3O7/aZuX36mZnv56/3dcPNzM2ZM89zynMAAFRS WrSqi3tyxkx1Hn/yjtqXBAAAIK3czc8xEzNU0+TdZWpfEQAAAAAAAAAAGJkl O7WL2TVcFUZ1X3XKovYlAQAASKa8ZEv/OHcpM1PrwZk31b4kAAAAAAAAAAAw vJyPn410jVlRDydsuITJGQAA0ImS9KRG7g0zUdSYbwvVviIAAAAAAAAAAACa Lj43r20N98BVzWHLL6MGPwAA6MDVY+Pjwt0vuIfGrbuGFxwAAAAAAAAAAJCh LGt1Z/fYVQQ1cFOe2lcEAAAgTmX5vjeao5QZAAAAAAAAAAAQK3/NqLooawYA AHrBKWVW/e7kY3+ofUUAAAAAAAAAAABc5SX/HdvWPYhVa8i/8irUviQAAABh Luwb/qBrO2gYlbj4hzK1rwgAAAAAAAAAAMCH4otLOj6AgSwAANC2O1dXda/j XmxQf/SqAhwxAwAAAAAAAAAAxLr0/Rt1XcuMo6uM3XtZ7QsCAADgw0Iffb9T Vde8THTnMYdwxAwAAAAAAAAAAJCtLGt153DXoTMNW6fk3FH7igAAAEJ1dcO4 +q6j08yPPbM1H0enAQAAAAAAAACABlxPS2ruHtdKGLL/Osa1AABAA0oPLGpj wuoCAAAAAAAAAADQIIslZ9kr9UyuajBdJ2bdUvuSAAAAArKc2vFirXDnvExM w+mZqMkJAAAAAAAAAACaYrHkfPFWi0jn7EzcsEW5t9W+JAAAAH/yj05pXgPz MgAAAAAAAAAAoHXXM2a1qYLZGQAAIBvmZQAAAAAAAAAAQEeu71vW+0FHfRiq 6exMnDoDAABkqSxLGxTnPB+taYc1Z3C+DAAAAAAAAAAAaF7pL3uW/nPBggXz 1h7BOmQAACCMxZL7n+XWt9SCxZ9n5mNeBgAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwNiKL2x+q1ut MMqq4Ye7KtW+HAAAAEbFrdQeD9heUVH3d5+/sxBvKQAAAAAAAAAA0Lriiyv7 NjJRdtFVxu69rPYFAQAAcJxPGVbP8aIKo9rNzMDsDAAAAAAAAAAAaFj+kQ8S 6pgd8zJRVQZ+eaJM7SsCAADwZLHkLHsFszMAAAAAAAAAAKB5+UenNK9BYV4G AADIZ6FPzuwRSWF2BgAAAAAAAAAANKv4txXd6lDuMa45e0vUviIAAIBAykv2 TUisitkZAAAAAAAAAADQIvb5MhRVf/SqAoxuAQAA+e5cSXW/vyKoviux3xMA AAAAAAAAALSAveqYoqJ6Ts2+o/YlAQAAhOjaiaRW7mqc1Mid+WpfEAAAAAAA AAAAQEAWS86/Bj3gHNIymZu2/zoPG2YAAEBLyn5M7RXlfJFRMQ/OOf6H2lcE AAAAAAAAAADgV/Heua3DXBtmoquM3XtZ7SsCAADg7eqGcfVdywxMzXqmX7Wo fUUAAAAAAAAAAAC+XNg3/MFw18QM1XJOZqnaVwQAACBEZfm+N5q732i1hvwr r0LtSwIAAAAAAAAAAPBQWpTaq457FAtHzAAAgLZd+2nyoxHOt1oYlbj4hzK1 rwgAAAAAAAAAAIDt3MLnI121X6jajyzAxAwAAGhc6f65zdxrDqrfnXwMh84A AAAAAAAAAAApLNmpXcwUlhYDAICucMqamU0d3jh2S+1LAgAAAAAAAAAAsLpz ZUXiAxi5AgAAHbp6bHwcjlEDAAAAAAAAAACy5P/71fvdg1bR1IQDv6t9RQBG cuf3vNycglsWAf/UUnzlzJmzhdjkBmQipm1f/Wp0TZQ1AwAAAI0iJqYC0DM8 aAAAoLy8PS9VdY9YUbGjVl2vVPuSAAzEQh9f/gRFDU0vEvCPb60bRd1lWpAr +VUBiEdS2+ZsDqWies3MrZDokwEAAADkRVJMBaBbeNAAAEBxFvr7t1u6BqtM VL0mKWcxMQOgJGcE2HrJTwL+ce6MDlQ0IkAgE1ltu3TvrEfdczNhVJ/Uc5J9 NAAAAICMyIqpAHQKDxoAACjNcmx5a2bHDNU0eTf2XwIorWDPYMp875gvb/P9 hxZ6c+97qYY9MorluCwA0Yhq25VlaYPi3EsRTM377UHxTgAAANAEomIqAL3C gwYAAEoqLUrtVYfZMlO/1dqLQopqAoAot/NmNTJTTww/zPds8uLsyTXNVIfx P6M0E5CJsLbtsRohYclxvPMAAABAAwiLqQD0CQ8aAAAoiFPdBVtmANRzcGxT Kpwas6+E17+6vX3SAxTV4MPdGF4GYpHVtrkbZ7AgAQAAALSCrJgKQKfwoAEA gEJKi1Z1eQAjVAAksMdypqqDFxaEftaT41jzKrzjRgAlkda2PTbOtJx/GG8+ AAAAIB9pMRWALuFBAwAgXcXt3F3rPv1szaHLdwR/RulvJ7as+GdK+rEboff2 UvPYMtNg6g5smQFQza1zs+LDqQhq4Ka8EP/F+WX/eIAyUwmjs4R3RQDyI61t V9xK7cFalhDfI+OGDL8FQMekiIRpMoJhAAAtIS2mAtAlPGgAYGClOf99p+X9 RHdopb9vGdosymQ/QbjV4ExBU+JlJzb1jw13jAq1mn9InXy0smxzn1rMxEyN 6gtOIzEGUNPVr0bXpExUTMPpmZeD/vD1jFltqlC8IkYAtZDWth0FB3DiDBDC NkOx6MMRvTs3r3efo01Wa9jsqR79xny4cOuRX0tIi86kiIRpQoJhUMX59H6x 9Xu8lbRi485D2bm5F695lvO3lBfmnck++O3WlYumDmr/0PBl11W5TgAikRZT gSahHw4GDxoAGJDlZn7morEtIu1LWBv2yChW+4L8qDwwr7F7NOde04JcAR/B nhMJo/p+VKDGkBC3oos58mXDvW0BiFNalNqrDmUPAqftveB3F5ul8vzG99tG 2HrLqBc/OY9zBoF8pLVtx1o41xuQeuz5vaRGHaBvlhtn1r83oPHd1njwrgat Ow8cPtJmSP+2de9zh2ixrZ+bmZZNzgSNBJEwTUowDGqw0MeXP0GFyhzf7vOf /1D7mgFIQlpMBdqDfjgEeNAAwBgsxVfOnPhhz+Z1H709pG0t9yAJ0VMzFd8k uZbamqmuk3MF9L3lRSvaRbiT0e6rTqmQjFro/a/HM6/bCGrErkLlrwIAPF3Y N/xBe2cYGZUwelb6z1c4S5gs5deP75k/qG20vas0P/bM1nwMZoFGENa2z83t wbwEw6gBWy7J+usAvJVmf/Nmi/upqBrd3//8wIWbnBZfcTtv75rX/lzD1USr NBm1JPe2WlfKIUEkTJMRDIM6eAwJxnQdvvVXYispAKiHsJgKtAb9cGjwoAGA ru3ofx+7wzfXfmTAu8kDGjj+P6KnZujii6uGtKlVtUbzl97LyBP4kirev6z3 w/eZaz/68tJvC1VZBvnbnsGsr59qOfjALTUuAwC8lJ3Y/lrTGu7nM7b50wOH jxgz9q3XRwzr0+xPZtd/j2757NozRo2TQZvIattnN/dkvwcFjzADCJN/5J1G Eeb4Dgt+8F8oo/jiyr6NTO5H44WZRMzOSBEJ0yQEw6COkIYEzfWbjfxsZwFO wQTwg6yYCjQG/XCo8KABgI4dWzJm5OtvTJszb+nazXt++KXQ2uHfKZj7F0fH RvbUjC78tqgv+7Xbcv5hTPADkMNy+efPX+vIbCX0EBmdMG5hViGeWtAegtq2 x4Fr0VTy8XIlfi8AbWt+u16Np2IenHM8WIWQS9+/UZd5YOKnpwk92gWAEM4h wbgeI0f2Yc5XcqjW8PHuw95duuPgZWMPBgKEgqCYCjQG/TAPeNAAwEAwNaOY 27/NbRHBvE3upeZkY7UiAHGKs/cunTS8W4uHox0rcmwnETzzctJCz83UAFpD SNsu+mrU3azUKnbCJix3A2U4zvtrmrw7lGGPS8v+cZe7mdaovuA0YjbQNOeQ YOslPzn/w53f83KtcgpuYWgLgDdCYirQFPTDvOFBAwBDwNSMUiyHFz/OjEWZ qY7js7EiAgAAjMajtudjz+9F7AGKODk9wZ7X392g84tzduUGicIupL/AmkPE TmfQOK8hQQAAUBT6YQAAmVksuV9N73g/1THltNqXwofoqZny7ZPuiv7TQBSs Dubg2KYUITm+RtuqdNBoAQBU41HTLIwamnZd7WsCiZAcYFT8sSox0tXsTFS9 FmsvBfz50muLW4YzzfTZDy/4jxkQVzBIbgNyI/reMSQoEJ5uAC1BP8yHkfs3 I987gG6Vl+ybkFiVMpmbtv86T1PPtvhdM9dOJLW6nwqr0mTUEiKOSSVTcfbk mqyJGRWrmWm3rUoIjRYAQD3cmmbmaiO+uKn2JYEECA8wmIjXacSeILX0dvR3 14E3UfH99t7y/6OIKxwIbwOyIv3eiRsS1Aw83QBagX6YLyP3b0a+dwBdYl4B Hdac0VrFdEkKmuUfndK8hvUj4oYtQrfmU+nOpLrs+i3tRh9XpTimptuqtNBo AQDUwikVZQ0/Erdh34zWaSHA2D/iIabd1ayz9GyQ7cucqZmgQTLiCi20Ablo 4N7JGxLUEDzdAORDPyyMkfs3I987gM64XgFU7UcWZJP5CghIqrNmzu56qWa4 lN2apaLgwNdTX3g6vma4uXbDrsMnr/3xCr9PuH394Jfzx/RxfEKjdj0HfPj1 wRsqrZ7wqGbW4MPdKlQz02Jbvfnrin7NqkZWS5i2viDY3644e0/KwgX/3hes eryb5I1WN6xP35Fdqz+a/HLvzs3r3cc03Op1W7TvMmhC0oodBy8b56Skaz/N eqqOmaIemrpDI4+NEZWWCpntLiu9g8Mj1MEpLYWaZtqnlQAj/8gHCbb+nKpR 6+V1J4K8xzit1Ex1GP9zRbDPlzauEB8J0woGw1ppA3LQxr0TOSQoIVlTBhpZ gx9IGYAQ6IfF0FT/JnHSp6l7BwDfLJbT8/ra0rYo6uVteWpfjSBSTc1Yu7vD n/3dZPugh8atuyYy6SsvPjhrUP0wqtWw5DXbMtZN7FHV/iWP3Jkf4geUZu98 x5p91/hT3/c+XrM14+v5b7Wxp9fqdLke1cwiqDH7SpS+Bm221XNzezgbZ1zi thsBf/TCnsH32H+2RuzSc6F+vpSNVh8qbuds+ufQv9pHrtwDUrUbtXnyzzER 7NlFyly/2chFm3Nv6n1g20IfmZTgHDvuPOlXNBIClFw4uX/9yk+mjBvQtX2L +vdx2mX1ui2e6Tny/Y/Xfnu8sDzI55xPGVbPTI3Zr8oORqBzZiSyexTUNNMw rQUYJZdyC26F8PLiBG/me8d8GUr8KFlcIToSppUMhrXWBqSkmXv3NSR45/e8 Ez/sSU9Pz/jm0M9nC7U8hC53ykAja/Cg15TBUl6YlyuBi9cQXyoH/bBoZPZv gZK+yAeadLQmfZ+s3f9zSeALtlhylr1Srwo18XvfXy6Z9w4Aobu6YVx9e8fQ csZuxYfaJSLd1IxV/r9fvd8+hJm4+AcxbxXbiNk9VQZ+6VrQWLBnsP0KTa0G Z4bwRZed2NQ/1hydOCw9z7VkwkLvfrmBY3i104qfFA4NLYcXP868RUxUvXYb ril7BRptq+VFK9o5gnsz9cTwwwED3GufDXJ+wdHUnF94/IWlarQ6UHruu1md H7FlWGF3N+g8cNqyLzN/PM0evyq9fjHrm9SPRvVufI8r24rvMP9/F3T8vVmO r+7gfnJF95AgRsnZo1sXfzi0/SPR7FEA/6KbdZ623u/i8OK9c1uHUVT1qAU5 Ghkr8OfGqXk9H/cYBpFX9T/9bd5u8YmL5bt5jZgPNVPNBh/4Q4LvA5SnyQAj BJzgLYIasaswxH8oSVwhMhKmlQ2G9doGQqGde2cPCdo3ZPVrH1eV07ubazfu +85H6blF2nsvKpIy0MgaXPSZMlTc2vR8/dBiTB5iH3uy0/MvTZz37/RjvwYZ QAah0A9Lgpz+zZr0bZk3ZeBToSZ9sa2fm5mW7e/5up4xq00VE1XrkZSLfn8j OfcOAHxZslO72PuK6K4TswIcDEo4Sadm6PKSHUPibXPO1e+bdvB3YZ/h+GJb zslkwuprmcMc1xhJTTsSbCW0bU9iWHTnMYe4C3BzZzhGWM1Ul0lnlI2LXOu4 HMKovh8VKPuu1WpbZQ4jCDe/lhJo0K6yPLVbtLMZBz6o15sUjVYH7GM49s28 vcatOXIxcExSmvPtB50eccZKUayxI50pLVrV5QHXkxvCOkyQg62kz/oPBv09 JpwbhUc+8FjXfmPen7V07Zb0b7/Lzs3NPfVj5s6Mrz+bP214/+YPOH86rt/k A9c9O1zLqR0v1gpX89gvyThTPGWFh7+5NtibOAQ3ssZXZ/9BQ3i/A3m0GmAE ZaH3vx7vap1mqu3wQ6EP94iOK8RGwrSiwbBu20AINHXvzvfFk0kb/v1y22hz ePwLY5du/98vl+2bGe4UZe9c+85TjnJ/fxq49NtCbY0hK5My0MgabHSbMpRe W9zSI9aUWGzrXtPW7UeFN2mhH5aM6v2bo45r37/GVOE+Oc6kb3bKxjS/SV9Y ePzAaXvzPWvZufqrYEmf6vcOYCjFF7ZMGtLs/nAqrEr8P5IOi6mdUXxuXlvb iVFU9buTj2l5oae0UzNWeXtesk39m0zNeqZf5T8DUVmWNijOMwU+sth5jWHB is+UFqX2qks99szWfM9ffWxiSylvM3QeFfUpqsnsAwr+eg231YpvktzD4l3X BKw4wAzxhZkHzud9YoHIRqt9zqAlqsqAz78PtQT97cJd7yQ6l/kQnmoJdfWr 0exKhNS9pgW5al+ToTji82f/EmVi/RXCwpr0Grlg24HcG4HqSFtunE+bM7bd /7OG4l6HgV47kdSqhjNHnrJdW4NPPpTfPLk33Wnzl0vnfzK135PRXqMB5kfb T1y4cmt6CNL+s2bpggXzZk58bXD3lg/7XK4mTYlsZnzMqe2SHyX4WAgKwXAo cjc/526aUdSYb0PdMuMkJq4QGQnTygbDOm4DQWns3pmpfPOjT360z9f+heKL K/s2MtmbWbuZGRqanVEuZaCNnjXoO2UovX7BUY0s59j/MtL+szp5ZEvujgar BgM++HqPfXA4kDPZB/emb/5qSdI7fZr9ySOSiuk6fOuvxB6GojXoh6WlVv/m M+mLrNF84Nil2w/kBSxCa7mZn7liasf7fSV9+UenNA856TN23w6gnNLfNw9o xH7Wm87OFPjIWeij73dyvKibJu8mNroIieRTM+79gMKqNZ5c3Z6iElNOsf8b Uz044D5Eq5sb37ZG5gM3eZUYZYaAgu9zl9jlzGHsgCzCb5VLWWi5rboGEGyj Isk/BWxJWcufdH3BLeb/IOB3iWq0WnfjVFKTCCG50p2rq7rXcX7v+lthcvXY +Dju2jms6ldQ6cWs5a91rMX+C0RGJYyexWuDf2nOf99pWcMWqLuHKO9cSe3L RAIDturx6HmP082s7g1LzhI4CGArKZD8Sjy3YFrv9ZckuVLucTMqbCk1IgTD obBNbdRxf0XCCqQIjyvERcK0ksGwjttAUNq7d8eQoDXda52S4/+N4BybsnXJ 3VJ+0sJ92SiZMtBGzhqMlzLs6M8+3sJExffI4LuDvuJO9prp9nFj1ufENJye eVmWKzYU9MMyUL5/85X0hXca/88MXlXd8o/MfuYRM3t2xj3JZRdK0mfcvh1A QZUH5jXmDC0Ir8jhOihK0NuZNDJMzdC3f5vbIsIRHvNdZ2jLPWNbrClgX+HV xU+6qgc/l5xXEfj33k11nZzr/TOsJVJhQz9V8qzhym9n12VHYrW5dyczDbdV dtXoYGcQMFWjBc98iWi02uY65p5TOCV0v6b3d47ZmkytB2fq5hhv19fiYcQe LHKTn8WS+xU3hw0Ljx8weZuwqsuu5VJRPadml5R9P9m1bjO0EU5NYuq6UM4u tOP4bHF5XfHRdS/Guv4ioSzaDw17nTNqBioDwXAo3Lm5VdywRbm3BX2K0LhC VCRMKxoM67gNBKXJe798cHT8fWN35Qf+qdMzOrlylnpLc7UwOKVwykAbNWsw YMrgWeJMeM/prgLHxDwN/7r2vBaeL4KhH5aFkv2bj6QvrOmQDzLOCEr6in9b 0c02BWwrbXez5L9j2zKPW4hJnzH7dgBllW0aR3G1nH9YyCN/58qKxAccoxPK HygvPTmmZmi6JD2pkSNC5led2xpa3+OxbpZ9DKvHGkIu5/5Qn+e0so8bDrLP XWrn53ZnNToz1WH8z4Fzaglpuq0yo4vBCg5Y6B0DYp1tuF67DdcE/kKBjVbr HDVbwu5q0KJNpxdfW3aY9wouV+ho0+6fh7WwYCk4y/HVHSgfOqacVvvS9K74 wuZRHaLYqWtM/Fsbj4k6ONUxGhBGtenZMy6M1Rtr/qAZ37jzHTYNPtwtvv9n 6vtJWNnPYxYJG9Pkh2A4KNdQj43weRk7IXGFqEiYVjQY1m8bCE7f987aVxIz dp2SRaAFUjxloI2ZNRgwZfBc6yKq53QfVe8OcasOXliAyRnB0A/LRpn+zXLj zOpX2rJLG5vjWkzbkS0q6bv0/Rt1bRM9LTo+XYv1waEnfUbs2wGUxV0oKLyE oKNKgMZm5wOQZ2qGmXGmqIQlx0P/ogv+tz79VBH7vxwc29T5R6tZZ+nZgJ9U 8UfB+d98duaX/tXH+SFB97lLy0Jv7l2N9cKR6PTk0Gi6rbJHF4McQMBU7wmj nv3wguA/r9BGq2knp7P3hpiouLYb+GZaZzf3dP9zDbY0H0qLVnWxtj7TvdXY D6+N4NoXEApX/TFGTPc30/Mk2Kl0adk/7qI86eGgGV+Yui6ufnHEbile7c6e VtK9LbfzZjXiXCxmP+WGYDiIC/uGP+g4T9bU6u0UMfMyNoLiClGRMK1cMKzb NhACnd87s7tK6c3+wqiQMtBGzBoMmDJ4rnUR2XOW/r6iPef8WSqSmvAd+cej EAr9sIzk79+8k77oTqP25EuQ9LkaBgePpM94fTuA0spL9s8c2Phu+3lSL72X IWy0R3+PqkxTM+zXZeOnt10R+lVdOzTaWX3GbH7ho3xh0RBTW9v67u6395bA axGiJDepPue9oNy4k8bbKjO6GHQd9en1z7i+XpGLw6VptBri1T6FrIev+GNV IpNoBFvQqwH23QEmU/MXty8bxf12FJ1aNRrPUg9hVZqMWiJ2XNTt1rlZ8dyT g/R60AxT18X1ZpcuobNXXA9eLoYHz9ULSlccNSIEwwG4j4uNur/7/J2SnL0r QVwhSSRMSx0M67UNhEL3987khjZSHS4mH1VSBtpoWYMhUwbuWhcJ4h+mnp6L XpcJyQ79sMxk7d8Kv1vZv7ZsSR+rbbjxSvqM1beDDlSW7R7Voqo5ounULcbJ o5nnVMBCETLJNjVDF+ckNXB2uYIPmWXPegt/JbFqawfZ5y45ZnWQ4/dLVqI/ KG23VWZ0MfgK7aJVr7q/XrGLw6VotFpyLXMYJ2yxdgKJ2/g/IdnT2zFpS9Ay +IS7emx8XLi1LfVJPVexy6MwlOIdiGFcz5jVpgqnq2w3M0OScVG33xb15TR1 4xw002XSGYm+ydwZHWx/m86TfpXuT2P/TNbVaqvKnCEjYVrrAYY/xReXdHzA UURx7NaTklXaER1XSBMJ0xIHw/psA6Exwr2zjz4nfehYrZSBNljWYMCUwXOt iwSrR9hVJZ1fgpKlzgPTVEiDflh2svVvCiR9RV+NultM0meovh10wDmkL3GS TjTWLlRtlN4NhXxTM+zzy4TtM60s29ynlvMTRKz7ZUdBQfa5S83zjGPFBgO1 3lZZVaM9Kq572z/iIQm/XrGNVluYwg7OLzth/gEBw6Kswws0PuLtOuE0qtfM 3ApnxX7OF2Sc952CPEN0inpo3Lprkn/PnIlyrU0BhEymg2Yc7NMoEu8d4x59 oo3iOQwDRsK09gMMn4ovruzbyESZzE07pfws6PBZ/0TFFRJFwrS0wbAu20CI jHHvrCHB4HG4ytRLGWhDZQ0GTBkkPWjGibVvy/klSD38IpyGQhr0w4qQo39T YF7G5rc9g5nfISTpM1DfDjqgod5bIkyBbj2dVCvn1Ax9cnV7V5/Ybc1Z3v/8 vDsiMlcb8YXg9RtMbW3F/3Dn53bnRF9KlVPTeltljy42mX0g0I/eyZ/bLFzw a9cHkY1Wa67vnNu1ri3wM9dvNvLzbwWFRp5TGNqtE2U5vtq2gr/63cnH7AUL vDcgSFjKCew865hRVPQLMyXb0s7G9BU2pC8DFkqug2bsHDtcgvTJ/HhNgEZQ E7/XwMnATsaLhGntBxg+OOdlJKtz7klMXCFRJExLGgzrsA2ETKP3bin4ccGg DnHRdzfoOmjFj78H/XnOkCDZ/ZuaKQNtrKzBaCmDxAfN2Hgv+sLUjBDohxUi df9W9mNqryjOAxA3bJEsSR+3dqKQpM9IfTtonnZ6b2lY6N0vN3CGc08MP6yb 1bayTs0wvaKZ6jg+m+dwC1OONYwamiY0cmPX1n60R0bw16CUdg15kPXyEX3i ZIi031aZ0cWgJeBYK+GlGWsV12gNyTPRkHCVvqJKi1Z1sSVh8dPTShz/xUf1 BmISKH249P0bddnzMsIPJQ8Fu0MmeTRAODkPmqFdUzMSn5jm+ZRJsSpVMUaL hGk9BBieXPMycYM+OFTot/PJXTNtxAf/PiNsBEhEXCFNJExLGgzrrw2ETrP3 fnRiK1cXG1Ij5AwJKpO8CKVmykAja+BLSymD5AfNWFV+O7suJ+QhqSfRSkiD flgx0vZvF/YNf5Cb9D3xwp7rcnUA7FeDkFVq6NtBQ7TSe0ulIHPYPRqIIniT dWqGvUgvmko+zienvXN18ZMRzv7wsef3si7Mcjl7a/rBGyG2OhUPmvEcJVPq DHGtt1V21ehg44rl2ye5S4lyxlpL8jPTd+cJWoYhvNEaFqdUFPG1L/y4+tXo mh7n/XFPYLQRcOYp+OM82YElmppwQMbpc9exJsTX0BBMzoNmaNcXOGKPpNsK bufN4hZe19KGJqNFwrT2AwwPjnkZc7DzZ23zGveJebUJjCukioRpSYNhnbUB XjR675x8JIR0j5nIs7W9+97ZSMhRGD6onTLQyBr40krKIMNBMzS7tUj6sdLQ SkiDflhBkvVv3kmfu0iFPFwniwlfpYa+HTRDK723RJjDpLRVbSMomadm2JsB +b09Wf8wdsIm9kjQubk9qHpBznl0U/GgGVYi7NRi/g8K/FrNt1VmdDF4wQFm RUSN2KWspdaOTegC9zgLbrQG5bEEjqQTLUN39dj4uHDrC61PKqsZeeZlklQz ADsLffT9TlU5Xy5rv5I8bq0bFWLHolGyHjRDO7YdRVNzfpG0U+TknpQKiyjE MFgkTOsgwGBzzsuEUOfcfsiCqElDYXGFRJEwLWkwrKs2wJN27521+tpMdZ2c GzhI486YE73JVPWUgUbWwIt2Ugavg2YkGEZgnZDi1nv9JSkuVwoaCWnQDytK kv7NV9LXck6mrKmY61grEavU0LeDVmik95YG+xROxYtiyUvuqZmS3KT6rncQ nz2nJ6cnOLtCj3lq2xrCe0JfY6PiQTPcdUFKvVW131ZZo4vBdu8yI+eercuW fzUSevtCG61ReeRZGqz6ZaGPTLJ1OFG9ZnrEyawo2kniLQNGVbp/bjPO92oy Ne+3R+b+yn34rJb2ZfAh60Ez9q39VaWtkObgOpdZg72uoSJhWg8BBqO8ZMeQ eFPV8IErj5YE+9s55jVElfITFFdIFQnTEgbDemoDfGn53nNmJFLUXQ1adXj+ ndl7LgQLY5hBaWtEl7iN4JkZ9VMGGlkDL5pJGTzXukgxjGA5trw1N/Ql6/nS REiDflhhUvRvXkmfmWo7/JCsq/FYj7DwWRX07aAVmui9pfLbnsGuwE9L6zlD IffUDE0fHNvU+eXdS83JDq2tsONnbnVHR1QzYEtoK0xUPWiGPrKYUwwpaA1k SWi/rbJGF4PcQkl6kms5CXc/uO2gzypiDswV0miNjNPUyc2z/LEcX22r0+Rr Y7XnWLe2DsIg1o1TSU2425E89ivJwz01Q/QaYMHEHDRTemP3R+NnfpMbKHmx RQvS1Fr34Co057rseu02XJP4V8jFUJEwrYcAw6m8ZN+ExMiaDUduOBFkxW3F HwVncrYMb26NRkWGcLzjCqkiYVrSYFg3bUAALd+7o80kLDkeyggVsyidotr9 8zDJq9JJSBloZA28aCRl4Mb/UgwjlJds6R/nkVOQ9XxpIqRBP6w4sf2bd9IX QY3YVSjDlXI4kz5xq9TQt4M2aKL3lgh74YTSRbHkJv/UjKuGjE1iyqmQ/g3r XOAmsw8w/72ybNer8VR8j4wQaziwamsrX8zWPQzo6tKVOKVC822VM7oYcJ87 9yw5TrE4+/5TMQfmCmm0emUpKy0L8uRwmzq5eZZvpUWrutgeGp/VtLiDxjat l/ykwkXqS87Hz3ILOpipzuNPyr8byd5QcdCML6fXPxN0M5HFkvufz5buOil5 esjubxV7V0rDSJEwrYMAw8E+L+NRWCM4bgUkAXjHFVJFwrSUwbBO2oAg2r53 R7Op++elp4K9a4vPzmrujMOju07MuqXI5QlDRspAI2tw003K4HXQjPhZANbk oLPFmjq8cYyo50sLIQ36YeWJ7N98JH1Bi7lJwZn0idvsj74dtEELvbdNZWmp 6CpWzMIJrdW0DKosa3Vnd6waXWXs3stS/wYLnb36b3wDG3tZbwd2+SDHdsjQ F1eza2tzEltFnJ/bnRN8KrISWPNtlTO6aKJiGqdc8BXk5x+d0vx+88Pt2tRx /ih7wPzoxFb8Ri08CWq0elF6+fTu1f+aNvyFTo8/HG1m/hixzZ8eNDF5/ZGL 3q2Ke6glqXmWH1e/Gl3Tes2Nn952xUdL85xgpcLD31yLgwBF+TW9P3fxlDWO EDkqEiL7RBsOmvHh2meDKPU2E3leuTI7TCWhlUiYRjDsImxexvqOiO+3V9TY CP+4QqJImJY0GNZDGxBK8/d+6fs36lYxtxuYlud/VJB5QEzmpu2/ziO7XyMi ZaCNnDXoNmWQ/KCZs7teqhnOvfHWKTmEVUjWQkiDflhx4vo376RPkS0ztDvp E3zQjI1x+3bQGLJ779KLWaunvZYY5zwmILphy4EfLD98WdAbkFk4IXbilTdL eWFeLh85eTcC3WPF4S9HvTbSacSrfZ/6c4znENldDVp3Hjjc9TMjX/1w9wWx d8FklyHXQrHQu19u4Pg3Q9OLHP+t7MSm/rFU3Gsr8kKeZ2fCPzVe355boRUI PuVsqyW/Hlr/0aSBnR5n2kz12u36vz5n4/7Lgr5an0urvEcX44Ytyr3N+ZnC QxvebHm/qWmHNWfKT8/s5MwCXCfkOmYbQ9ws7JeARqt1loqCA+s/GPT3GFfq YK79cId+Q0e+PXnO/E+mjXnd+acPC48f8F4GN55kdvsq1tSlcvXY+LjwANW0 vBoktw4G8GWhv3/bo0acEgWHHRx7oHDQjCdH4W7VNhN5VJ630UzFObIjYVof wbCEkbCvg2hDE+wYi1DwjSskioRpCYNhFRMi1Wk/wKZt7Wf7a01rmOOemPCl j0+2dhfLh7Z1VL6L6TFuT77wcWNjpQy08bIGvacMEh80Y5scrMG565iG0zMl Xw0rGvEhDfphdQju33wmfYpsmaFdSZ/wg2YcjNa3g0YR3Htf3/2vrg+G22YZ Ep+fOOPjqc7IwWS2BWb8+7cCd01L+Vfb3inK/ib1o7df6t7Ga9IkdGFVmrzx uc+szbECvFrDZu1C0Kbxn8ySVO+xnR3s2sgYTc35JbQO0rX3PDpx1Jrt/1md PLJlVSqu3+QD10PuX9m1tdWoXc89QFyRpdrytFXL5Z9Xv9mtVpjfFhfdstey rCv8PtN+uof3GiT26OJDTZpGm2z/R2zHockrUtPSM7auXGR7nCPCmg5Nziyw P8vFF1f2bWSyRbnxYz/fujXlo95/CpNg56+wRqtZ1tR16rN/ibJ/21Rk1YTX P1h/6Ffvk5EtN86n/d8r8RHcvpT9XTnanlZOyrPQRybZDlmO6jXTT5ToPWhM 4itPS5ga0QwJRkVCU/rbid3p27Ou6vHvJ+agmVOpndXdTHR2c09uk9BM2UCC I2Fau8GwfJEwU8KXL/N972wUO5YgIK4QHwnTkgbDSiZEpNF+gO3xG6Mbtx80 4f0lX25Jt0bXq5Ylj+rd+B77b4xvP9HXgCGBd0RKykAbK2swQsog4UEzpee+ m9KCMy9jbtop5eciEpsI2SGNDfphVQju33wlfd3WnJXxUllsSV/Gzuwb4h41 I/XtoGGk9t7XM2a1qUKZ4zvM/98FZ39WWZY2yHHsmsnUenAmzxXPrDoAMq6X tgUwc8a2+3/hXh2YIKJrYkuLvUIm9NWw1tfWmmnDu7V4ODrygSaJfd9dtauA 1xtK1YNmvIJPJZ4UOdrq9X3Lej8YtFnyXP/jeCSjqWmHuYsP2Ithaj2ScqGi 4HDap1Pe6NPxiQZR9i1drTo8P85rg/zt6we/mD20c2vrz9iWBCev/LlYgj+2 sEarPSUFaVP61HeFo9XaDUg5HiT4LPxuZf/aVSh3X8o8aK6mLn51sSIcYTNV /e7kY/4XwXif30FkFqkV5+b28Oo6/FQgAV4EHzTjmqBUczMR60wNB7GL3BRD aiRMazMY1nckTAuKK8RGwrSUwbAyCRGZNB9gc9nXh09+uXfn5vXsq8iq123R vsugiTPW/Pd4oYjNAYZNGWiDZA0GSRm8DpoR2HNaKvLTF3ZlPxFh4U1f+zir kNQAh+CQxgH9sFqE9W8+kr6Gidu01jsaom8HrSOy97Zkp3Yx+1gQ6Kij7sD3 CKeiVa+6/60swwWWyvNbPu5aW6JU1MZMPfb8XpJ2B7Pryip25ou6B814Lc5U okClxG3VYsn54q0W3JPb/DNRtR9ZkB3SQlzLseWtKVPVwQsLPLoO9mIYUaVB JaBKo1VY6bn/JSXUcRaHDqPavrf2zO3g/8rq+tZJj1JU0+TdZZwqrA4aOY2l tGhVF1u5gvjpaYGKaXkOGhNae0Ebbp2bFe/xpkPlXmkIPmim7PBnf7evfVUz 3fAcq9FIH0ITGgnTWgyGDRAJ09oPhmVPiAim+QBbbsZOGWgDZA0GShm8DpoR 8Actzt47f5CzLJVDdItnP9mbS8g2CN9IDWnc0A+rRUj/5iPpM1cb8YXmFnXo vm8HPSCw9759aUnb+6nq90076LnplHUgO++BIPae1o4ppyW8XpviC5tHdYgK 8Z0QirC7G7Tv+cl3ZNUvZR2lHW5+LUWZMo3qHjTDPr/VceMKBJ/SttX8NaPq +mxj1es3rX+fz/8lqufU4DGLYyXJPdSE7zwbQuW3s92/UfWsX5VGqyR7yXpX yBRGtZuZURh6T+74I8a13XCZEyc7aKIY0dWvRte0htmNn952JWBD8y6AQ95K bK2wHF78uFen0Xv9JbWvSw+EHDRjqSjY/+/+tsFwk3oHzdh5rWTQzIJ8AiNh WoPBsDEiYVr7wbC8CRHZtB5gy83gKQOt96zBUCmD51oXPj1n6bWzBzd9PnUg cwoPZSuyN+QjoeeVKIrMkIYF/bBaBPRv7C7a3XUMTdPecjx99+2gE+T13peW /eMuP0ugWTvReF8w+8SQEXskPYor/8gH7vUnDjXierw9Y82O/2ad+c1WtfXO 73knjqT/e/5rrdk/ZqLqNUk5S8aXHhL2eQ1KNZjS31e0dyyDUGnlpOdieyWm ZiRsq6UHFrUxMVcf/ZeOY+em7P3x10J3YFnxR0H2kfTls4f8ldU4/R+n7mZf SeL7DLicGYnOz4mgxuxT5Fxwv9RotAriJFnWbnPSFh5Jlp1jmL3rmvzM1x/y iLvG7Ce+4NfVY+Pjwq2X2n3VqSDpvGdlQlSaFe7k9ATON2nAg6RlEvJBM5bi K2dyz2Qf/HbrysUT+vw1pgrlfEuqW6bPa2pGM10ueZEwrblg2CiRMK2DYFjG hIh4Wg+wZWX4lIHWd9ZgtJTBc61LdK2BHywIZHbS2JEjRw55odPjD0e723fY 3Q2e6ml9EPacukLcHfpDZEjDhn5YJUL6Nx9JnxpHP4um574d9IO03rs4J6lB Fap+q7UXvQbN7uTPbRZOCXum2CMGUVTyT9Ldav7RKc1Zp8JFRiRO+uzwZT9v mduFu95JrMrq3WLGriOsTkNAzCG/UpYDshQc/3RYt7io8PiB0zwORS3LnOte nq3YGdMcyhfPl7CtOgau7cyPJkxdF3CpT3lx1ufvtr7H+eNUwuisALGSYyVJ FWrErkLP/4kZAyejEqk8jZYEHklWSEuAvJXkJtU3R/SdOI6pwEppY7DdebiG meo8/mQIN85OBByMNiQljTtXFz/pcaS3mXou2fOcbhDAq/gGT+Z7x3wZWmES eXjXdScksAyKtEiY1lowbKhImNZ4MCxfQkQ+rQfYskLK4KDTrMFwKYNnQCJQ 7GNPdnrh1WkLv8DUjGTQD6uIb//GCTgdNFvCWqd9O+gKYb33zY1vP0BRDabu 8NGznlzdnukWeO5EY5dAv9e0IFeiyy2+uKSje7OsiYqJH7v1ZJB9ruUlO4bE M9P7NessPaudldvMPIV0YVjF7c3P13F/H5xtrXeurEh0fL1m89+GH1SlMIrX WJnsW7alaquV5fveaO74mLhBHxwK7bBCJnSPCBSNBFpJcjlzmKuEMRHvbjka LQlunJ71hHsoTNTCY9ucRY3Y2HvYzdxMdRj/M9mD7ZbjqztQVNDDGd2yp7fj PsqowSWIr+kD1OyVhPdBM3yp3qS5E6Bq7+IJHWGRMK2tYNhokTCt8WBYpoRI E7QeYMsHKYObLrMGA6YMXsFq1zUhVzG+83tezi+Hdm5aOum1NrWYcenYji8t 2JVdQkaQEAh5IQ0H+mEV8e3ffCV9bZf8qMSlSk6XfTvoDFG9d8Wt1B4PUPdS c7J9XMq5uT3Y3QK/IQj2wyjVLrzyW7tGNGfinJiG0zNDK4h9KrUz60b4HuGq JttqGSlepmzM+Y/cP6uFPjmzR6TzT/bnpadUWd/O3vzoJPvUjERttXT/3GaO cGXYolw+C6ldx0mbI19e5jtLCriShF2SlIi2LUejVR2n87ERs4w2d0YHr7CL iIrfgZQWpfayjWI1mLgpxGUvrNMZlHqW9chnzeHg56FACDyLb1BUn8+zcn04 k31wb3p6xtefzZ86iFUIvXrUghyVn1ru1Ix2lqURFQnTmgqGDRgJ0xoPhuVI iLRC4wG2fJAyMPSXNRgyZfBc6yJ0d4blRt6WCd1rhTGfFNdnQkYe2ZvuSQtp PKAfVhHP/s3HmjFVjn6WhP76dtAfonpv20YzM9VxfLb3E88pomJyHELH85Nd /1aisQLOoWMRVN+VJ0LtpyrLU7tFu/6lds7JpblbUCOpaUekOHSl8NBo19LJ 6M5jDjm+i9uFuyY5AiGTuekzS7OuSPCLhFBjakaStlpatKqL7V0a/cJMXuGK w7mFz0cGWFGQu/k5/ytJmKrRfoaVlCZHo+WlvPjk1i8WLvjnnClvjbQXMU5M aNfuieZPzUoTHNmXpCc1YpqkiYrvkXFD+AX6yLOIqPgdyM1t79Wz3vjDCRsu hZoOso7/czDf985GnS2GUgBzFLW7+al79LysZHh4/f8ur4NmQvtir2+d9Ki9 PZOwRQVTM9LQTjBsxEiY1ngwbOSaHhoPsOWClIFNd1mDMVMG7loXM9Vs8AHB x35bLDn/GsQaoLb2xp1W/Fwk5eVKi7SQxgP6YRXx7N98JH3a3W+iet8OEBRJ vfcfm8bd42fphePgOfcbttqIL/gkcewBdokykbw9L7EqZdcctvwyn2+PVVqH iOGUUHEP+ZXmpAYLffT9TrbvskbNlxduSk/7z5q5Hwx50n5SW/UHuk9Zdjy0 DaryUH5qRpq2WnlgXmPrP/dZpj4Ut3+b28I2+ONzOe7Ria2szXbAFt8rdV1D c8GKuCpGjkbLg4XOXv03ygfha8wKT0yO49R9bTo7U8xD4pVnEVPx2x/HNxBG dV91KvQb99ruER7+5lqEZXx57ewQl/ASTYaHNwDPogFmqt3o46HEBrfzZtmG XdQ+aMYOUzOS0EwwbMxImNZ0MCxDQqQZmg+wZYKUgUNnWYMxUwavk+/Ezv6X l2zpH8e+a3PT9l/nERAu+ERYSMOFflhVPPs3H0lfiLkJgVTu2wFCQFLvfX3T e/GPNlzys4/RMlsn6cZ7eYbUmUhl2a5X3VWyhbwXWKV1NJUZydSnVdzO2bZ0 bJ/OzevZQnTHiXvTl68/dkX1PlObUzMWevfLDShxO9aLvhp1t8/KzwWZw+4x U22HH/LzCOZvmN72AVNs6x6ffMdrLa9sVH8RW8oL82xFiHKOHvi4q6uSvIjt wJeW/eMudosUvdTQO+7iOdynLAt9IinRFhx2Hn+Sxx/T+1km4q2nOdyxd/vX +OyHF/T6NUr98AbgXTQgdsr2kL5X1+4D1Q+aoTE1IxFtBMOGjYRpTQfDmJoR d++qBtiyQMrgQV9Zg0FTBjEHzfhhP3yEzRT14ifnydxVQVhIw4V+WFU8+zfv pE9je5zZVO/bQfeu/7xi4usjxXhtSNua9r6xXotBoj5o5MjpC7NkelYLs8bX YmIAquXgA7d4/Xv2W0CCs+o83s4t52TynT1mbQ/UVGbEKUBhhD7Nx9SM+Ogu 5N8otK0WZ0+uKXoVky0yMVGP9sj4nfOfT8/oJDIWUho5jdZCb+5dzfnUCy6u e+vcrHj2+jfRi42534897KKGppG2AI5hyU7tYrZlqUO/+tHXMRz+fbfqOc59 yr7yx3IqbchDHjGt0qJbdt8g6bo+ryjdGJuPJHl4A/I+aGbA1tAeQ0euQcBB M1a7hjzIugOlwhuDRMI0WcGwcSNhmqS4gjeJEyJaS286BNi+6O+ORCLn6RYf eBg1ZZDqoBnuh/6xKjGSc+8yVXLTeUiDflhVPPs3r6Qv5GVj/t3+ZlZ8wBd6 7GOt2zkltKjPuoBIauJ3Ivovcvp20Cmv4vkqk6mR394+if2G5b8Vl/0WEL2E wDVTbydwKyVrO7DGElJ2F22APs3H1IzMdy1FW7VXLA/9eHR/F2Jr5/dwS3Ha xoWI3LoeECmN1hZJuv6yfT8qEBTzle5M8jiEXWxtJeaq3D0SwX/f0qLUXnUo acje9xLygpa2zXtH6S3m/yDh5wdQeHjz0q/3FaqyAlCKhzcQoQfN2NzIGl+d lHpQ3FInCoU3hDxobvK9ZQgKho0dCdPkxBW8SZoQ2RHyAIbwV0CA7Yv+7kg0 Up5u0YGHYVMGKQ+aYWHt9HR+shyFZAnpUd2kfgTQD6uMV//mnfSJrx7jdX5N yKKsfyxRVQtI6dtBpywnvuoSHR6gCSvJ/FDTFXJsm6ws29yHWSYoaCuupJnI ec4m2Zix6wS8F1grSzWWkBqsT/MxNRPqSmYJfqPKO5GLVr1KcXcJXV35SgRF NU3eLX01HzkR0mjZZwQ0mX1A0EewR8PsxC/Zylr+JLeFx07YROyDfXPbe/VC fiUFI/v59dpZS8yDHFF6SGyLP6uo9bqU4OENTPBBM1an1z9DxkEzNOf0EEqx 8MYQkTBNWDBs7EiYJiau4E/6IFM7bzoE2DLS0x0R8nSLDTwMmzJIftCMi9ek iSyrYvQe0qAfVpnqUzP0nd/z3BUtTvywJz09/T8bUz7+cMBfani3wLjnxi5Y uyU9PS3zeE7uxWsinzZC+nYAv4guR2nHSQDN1HPJebx3PnL3TopbO3Hts0HM 5QgLckqvLW4ZztyRho7T4kY7BujT1D1rRt3ztR0nUZrve2ej84FzHJlXo/qC 02T2FH4Q02iZVSKCz6rwXq4murYSp0OziqaSj5NanspxmGkY1WnFT0JW/XnX IrjXtCBX8qvUOe8oXebZaif7GIWwAEACEjy8AQk/aMb1CJNw0AyNs2ZkRVIw bOhImCYoruCPnCBTeeTcu14CbIaO7oiYp1ts4GHYlEGGg2YcKr+dzd2FRGqQ Q3RIg35YVTz7N++kb2h6kUyX5pUKWZvH83t/D/4PQ0VM3w7gF9G9t81vi/qy n9Jua87y/wzpTr3kDO6Zqcee3yvgowr2DGZuyNcBZMQy3PlZ6k7NqB3y2erk MGd8Vx6Y15gyR768TDPN1YGQRssUOBW8UdoRQ7KJrq3kWTVataHv4Cz0iaRE 2xV2Hn9S6N/QO8I0QCcmMe62CAW6RDsL/f3bLYUGAKJJ8PAGIfygGZou3r90 wIBh6flEVMXG1Ix8CAqGDR4J08TEFUKQFGQqjaR710eAzaabOyLk6RYbeBg3 ZZDloBk7r10zancj/hAd0qAf5iovPrn1i4UL/jlnylu2w32GvJCY0K7dE82f mpUmS9fDs3/zTk/kS/ocm5jYxBZg9EBI3w4QANG9t/Xyri5+0j2/KcmQpri3 AGclhrnaiC8E7JD1WHTRdsmPQq9GcYbr09SYmpGqrYpnW9Qa4VzQUlmWNiiO qkKN2FWo3gUJQkijZZWMFjwG5V1/WGxtJW5RGiqC3L+vJTu1i9m2Qm/aYeHr qw6OberxBSqz40NPPNdMKjM14zisU63iz1I8vIGIOWiGMJiakQtRwbDBI2Ga mLhCCJKCTKWRdO/6CLDZdHNHhDzdogMPw6YMMh00Q/s4I0PtbsQfokMa9MNs 3lOoThLPSrjx7N+UTPr2j3iI85skL1NASN8OEADRvTenzioltJy1zbXMYVK8 BTxySWE7ZE9OT2A+IpJ7+hjh2H2aIWoBKT81I1lblcSO/tWpuMRtNxwBuZlK GJ2lufcYIY2WVZ9Z8BgU94htG5HbirnLsM1U18m55K1/syktSu1Vx3qJIs98 9DrBU6lzUnTE8t28RtzvMPTSW4KdntGJUrH4sxQPbyBiDpohDKZmZEJUMGz0 SJgmJq4QhqQgU2kk3bseAmwundwRIU+36MDDoCmDbAfN+Di7h2I2XJCF8JAG /TCbpbzQfvJKztEDH3et4/xi5CmebMOzf1Mu6buTP7cZ+4glCQowev0KMvp2 gADI7r2PTmzFPKNiTq9jvwVErEflzB0L2yHLWfooy/lxMrJt/DRUn6b21Iza a6dtS4+q2f7Q5+b2sF5QwpLjRBTN4YWMRst0HSLGoDzzrBqxS8WUT3bU1GV1 sGSuf7O6ue29etbHofHT266IaoDeawjlWpWkY+wHykb+SkS/pvePMFH1W629 qM7fSpKHNwAxB82QxnNqJr7f3ltqX1MoyI6EacKCYaNHwjQpcYVAJAWZSiPp 3vUQYHPp5I7IeLrFBx4GTRlkO2iGLswaX4vy0HL+YRIbOeEhDfphnyz05t7V nF+L5LMSbnz7t8JDo03sJi9b0nd2c0/OsyW6AKM3Mvp2gEBI7r05L0FxuZtE 86SsOEdgt2k5trw1q99pOjuTxHe6P+yXqWONge55vinkn5ohaU7f1uCjqQUn 7AF5TOOUC1pqrU4kNFoLvWNArPMaHu2RIfRIO26eJXbYs3RnEmvls6nq4IUF pL0CHApPTI4Lt76j+qSKTa+8Fv+Eh7+5VlNrtQng2PIvXTsMorxkx5B4k5nq tOIndXofiR7eAMQcNEMa7tQMkYGlTyRHwjRxwbDRI2GajLhCMJKCTKWRdO96 CLC5dHJHJDzdUgQexkwZ5Dto5ubGtz1W0VD3UnOyifwWCA9p0A/7xKphKP2s hBvf/q2ybHMf9pSkXKnQH5vG3cN9vMQWYPRGQt8OEBjBvfft7ZPYL0GfKxMq D37Wph6VfDTYpj/2oaVh1Jj9AtNaVpwjMDtm1XBQcxmwQKfXPyPu9rWH6cYd 5B/LlaitSsLW4E3Um/83O16jp3nSUjRaS0XB4bRPp7zRp+MTDaKoag0f7z7s 3WX/zWU6nfLS0sCdp1fJaMuN83tWzB7R++n4muFU5ANNOvYcO3/1octBNlFz 8yxxnfadKysS3f2riar9yILsELZw3/x1Rb9mVSOrJUxbHzQpK87ek7Jwwb/3 5Yrakm2hTyQlWq8w6sVPzoutnODrUFQyaxGQzePVLGsxoqsbxtW35tY9p4bS PH0g5uH1S0cHzdirdrPLEZAYWPpGcCRMkxcMGz0SpjUeDJMUZCqNpHvXQ4DN pZM7Evl0i486aGkCD/VTBlqFrEGug2Y8Ng3Zvwdi56cID2nQD/vErlsr/ayE G//+zXNSMpKa8J1EpzexyH7QDK3xyA0Mgtje22OWtkb1Bad9XJ/tWOfwkB7e XUMedH+Y4CWprDhH0Dd27dDoqsw9qVY5XyjWmnPDDGkqPzUjUVuVhOPEw4ca NNDqaZ6iG21pzrfJz/4lymTtguJ6vD1jzbb0tNSUidb/EnlXpzkZhWUl+2cO bHy3ydy0/dd5/j+aXTJ60fHzWz/uWjvcXPuRAZM+XrPV9oETnn7EbA0U4lpM ywiUkhStepXVFEUtquEEWmFUwvwDoUQoju3eIa02ubBnsGP5i7gSCpbs1C7W r6ZGrTknpCj+6/k4m6kO438msFY24W6dmxXPHoGnYidskqM2c1nW6s7hfAYB uIh6eP3yPmim4/hsbUUGbtwTNkkMLP0hNhKmSQyGDR4J09oPhskJMpVHzr3r IMD2oI87EvN0SxN10NIEHqqnDLTyWYNsB83k//vV+ykuqRITOZAc0tihH/Z3 JTbyHTQjrH9zFK9gEX7coT/MZDTl7DFkKOmm9cgNDIHY3vs8e7zCTD2XnOc9 gGZ7kM3UY8/vDaGDYB8ALbgmFetDhLzuLy37x13uPkf0uQnKY53UYL7vnY2G GNG8nTeLUwJJiakZSdqqJFx/8VCfMgIJb7QWS+7a91rfbfuX0R3+sfVXVgRe Xnx0Rp/IMGrguxNbhBBbMiWjI8I69nymVgTV6s2FWYWsx//WldQXGtmKuVaP nbj/st9LYiVrojrtq8fGs6KsULckMClP8NUmzC1HU3N+EdrRlRal9rIdiSjZ 2F1JblJ9buyn9gGUGsV6l1FyrXvPP/JOowgqinp5Wx7vf0vgw+uH90EzGj7/ yHNqRjsFA4mNhGkSg2GDR8K09oNhcoJM5ZFz7zoIsD3o444EPt3SRR20VIGH uikDrUbWIM9BM5ZfNveK5H4un/kpFZAc0tihH/ZUWZ7aLdoZFzVM3CbbbJWw /s0z6avXJOWslA2LWy+RkulEG61HbmAIpPbenGNGKSox5ZT3z1R+O7tuyOt1 y7dPutv5YcKHC1ijKPy/sYLMYe4qihHUwE38h5vUxn6Tdkw5rfblKEKNZcCS tFVJuP/i2h0tFNhoLZacZa/Us598F93p9czrXndfWrSqC2tINUA1Y6ZktOMn qwz4/PsbXj/rqr1vMjXvt8dfEVfObgUz1W70cQGJQWX5vjeaM/FVw7+uPR9a g2ZSnnDzaymBNjOzI0wR1a3txawCfiF8eT7OJqp2izUFEn24ody+tKRtDfZX 2WDiJilzmvyjU5rfLzD5JfPh9cPzoJkwasRuzQ5pee1K00zuQ2okTBMZDBs8 Eqa1HwyTE2Qqj5x710GA7UEfdyTk6ZYw6qClCzzUTRloFbIGWQ6asYWjnHDX Km7YotzbYj9YRgSHNA7ohz151TCUicDoxaugX+yoVdelalqeZ5jatF3yo0Sf ztB65AaGQGbvzbyj7WrWWXrWq7+00LtfbkDdE3LBQ6bAoIibZcIMnkEOJ7ah Hhq37ho533bImP2ncu61JIuF3ty7GutdociTIklblYKzbomcZ0nITVijPZ8y zJ5kBVoZwqr/H/BQPPYu3QBDzaz9Wd3WnPV3YadndKLcv1TQtILj8A4nPuv8 2SlPkHVoN7LGV3fesPAI88K+4Q+GW7+xPqkSrHlz4x5Trv4BlNplrzbG+iaj qJE786X55BPbX2tqm5dpNzOjkH/vR+zD64P3QTOaniv0nJrRzoJ8MiNhmtRg 2NiRMK2DYJiYIFMFxNy7DgJsD/q4IwFPt5RRBy1l4KFiykArnzXIcNCMpeDH eT3su5NYfM++EYXYkMYN/bAHdg1DGWYl3ARHL2WHP/s7+0kQVtPAl+tbJz3K fcRk+nNoPnIDIyCz9+asbfZTwCF383PW/6nr5NwQF2UyoY6IIjZM0W9+QU7+ mlHunXrCTzRWF3PCr8aHj3jijuUqUgFJkrYqBXvEouWz0gQ12tIDi9qYnAFj 91Wn/MbfBXsGuwPLADWcWeFWzWHLL/vvZl0tLeCnuasx2/EbB7bGPxmz2lRx 90RVBn55IvTQhEl5gq5DY91yi/k/8LpCp+KLSzo+IMcGc3Z9Y8eXbaxDkCXF fq/ZHrGYB+ccF5kGV57fOLNjjXAqKrrv4m8FzMsQ/fB68z5opsukM+REYnwx ubaTZpalkRkJ06QGw0aOhGldBMPEBJkqIObeNR9ge9HDHfF/uiWOOmhJAw/1 UgZa4azB6s7VxU9KedBMafY3b7bw2i/Tb/IBwudlaIJDGjf0w1zM/mhZJ4nE RS+uOWjXHy6m4fRM3mWcPXA6GfcnB568FkYHkRsYAZm9N7fsjI89ho6ld2F8 TuxiLz4UUci0dO8s99xuiEEOu9vRwFoLf5ioUuPDRzxlT2/HeV8EPcpQPIna qniOsF/DpQkENNobp5KauGojtx1+qMT/T7JSiSazD/j7KVbJaGrMvgAf506y goSp5xY+H+m+qcBXyHV95ycdq7v2OfBNstglo4OtQ2PfsoB1KZYbv67o61il Jv2Lifs42wxNL5LyFxgKq4iHs0XGPZ58QGCgXnoxa/nQttG2aL/xu/5Ptg2E +IfXA2sZrf9oRzMs9PHlT3BvZ8QejQy+kxkJ0+QGw8aNhGldBMPEBJkqIObe NR9ge9HDHfF9uqWOOmipAw91UgZa0azB6ezmntwIRPhBM7ev75v3esuq3I8L o9q+t/YMyXXM3IgNadzQD7MxNQzlmZVwExm9WOiTM3uwjl2y5mvxY7eeFPjE ss7nihv+xecvN3A/abKUdNNB5AZGQGbvXfHHqkTm0fd+t5akJzWiTFUHLyzg c82X/tXH/Zm9118SeG2uk6lDDHLY2WhMj7e1m41avpvn2jmt9itMWR6V3pWp gCRNWxXJEVervslXBAGNln3UXcKS4wH+SdGqV0NJJVzbNExUvXYbrvn/OHan VyN2aYB84s6V1L7M/vqWSWnBNxdU3Dm54q0WkSJCKWZ5f7CQiR1hBr5lH/+2 In93ytA/u1epSX3UoONkea4GU3dgV7NwFkvO8tcbs7/UqBrd/29dbjGPV4Tl xvm0OWPb/T/bIEBM1+Gc83P50MDDy+bcGsYhfL0oAVjFwx0tQYoy78ogMxKm CQ6GjRoJ03oJhokIMlVCxL1rP8D2pIs74vt0Sx510JIHHqqkDLRSWQPrQ04k JXLCKUFNsfTy6T3LZ/RuxC19bH3PPdo2eZegJUOqIDakYdFJP2ypKDic9umU N/p0fKJBFFWt4ePdh7277L+splJeWhr0T+B10Iw1LdqzYvaI3k/H1wynIh9o 0rHn2PmrD10Wu9hJgujFa0metZW1evOffK+tOHvvx32bRZmYGU/L4cWPuz5S +KRqgAvXReQG+kdq731ubg9/PXbZiU39Y6vwO4rOjv1Uxk7ZLvx2L33/Rl3n SpL4SVv8Bjm3r+/7v0H1zY6Oy9Tq7RSiz4wLhpmh0PQ5xfyVbRonPtjjS7K2 KsblzGFmUQcyqo53oy08MTnOtUjMZ1V/lv0jHgqeSpTkJtV3XUHgCgbMT4Yw /cc+ldIa1by78mf/I+HFJ3fOePYvUa44qlq7/muzi/jGJOyS0UGq4LIiTOrZ Dy8Ebbt3fs879WPmjo0pH38w5Mk6ZsqT+dG/vbv0q90//JR3g3dQWnr9Qm5u bs6x/2VsXrfgvdfa1Ar3+nj7VML0z7ZlfHMoO9fm7G8lJL0KNaHwu1VDHuFk stHNur27YsvJwoB/soo/8o/sXjrJ8XcxUbUavbJsZ4Hg1Jfsh9dSfOWMvX3l nvhhT3rG10s/GtPhER+tvX6zkf+37Ovt6enffudojxpqk8zQk+O7rfVIykW1 rylEpEbCNMnBsCEjYVovwTARQaZKiLh37QfYnnRxR/yebsmjDlqerEHxlIGW NWug7YmDIzrK+eXQnvS09V98OKSjZ4AfQfX9ZGPm8ZzcIM5k7ctI3/zl0tkf jOz+1xjP2koUVaP2oAWbc29qaiiX4JDGTQf9cGnOt8mOh6VGXI+3Z6zZlp6W mjLR+l8i7+o0J6OwrGT/zIGN7zaZm7b/Oi/Ugn5tFx0/v/XjrrXDzbUfGTDp 4zVbbZ854WlbvmCOazFNWEkBF2miF0tF/q6lvR9kP2+2gH9g8tK9p64EKQt3 pyh755oPBv09xv6vzXFPTNx8zJngVJalDYqz/Vd5lnXpI3ID/SO29756bLwr 4ImdsMk5vmPtDdIXdrX2BsLKGzJvf55Hl3qxn1Nsj3PCwpoOTc4s4A5A3Sk6 ufXTEa5hxuhmz8zU0FoLn9hrWhombpN+nyGxfBRpUaICknRtVTB7sR3yeobQ 8W+0RV+Ncq36NlMdx2cHeGhDzJ5Yhy8ErmDA2okf0pCm5fIvn77YzJ09OUd0 9x/NOXO2sLS8MC8359h365d+NLYLk2FRNeo8P2djnqBhMaZkdNCpSdYtB1+X Un5z1dOelZz9CDllc7t5YnIdX3MxwX4PTp8RwHIjb+t0aw7C/TIj72vRa/DE Wf+yJhcZB47muCcmPps/bfRLiXGu2RxrUjN5kcj1YEQ/vMKaIsuArRp46TpP U3V/FRo6w4LYSJgmOhg2XCRM6ygYJiDIVA0B9675ANuLHu6I59MtfdRBy5U1 KJwy0PJlDVYVt1J7eO44lkNs6z7vrtiisUkZB5JDGjdN98OsYlzRHf7B2exf Xnx0Rp/IMGrguxNbuNpS4BieVdAvrGPPZ2pFUK3eXJhVyGp4t66kvmDf+1Y9 duJ+oce7SBq9WG6cWf/eAM+kz/rUNH960IT3l3y5Jf2b/2adZiZPF87+YGSv 9nHuIoE16vT9YPlhj7zv7K6XakYErX8o6HL1ErmB7hHce9sXBNoT0sjodq9M mvPhpIFPPRJtpsyPPjnnO4H90sGxTZ19QrD1LUFZLv/8+WuuRRq2AaiXxr7/ 0fwPJ418sWfT/+fMo6P/0vGtT/8jOLAhyI2s8dWdL9BqI74Qc6ye9jDVKZ1a L/lJgV8rYVsVcQHh4W+u1WptAr6Nljna2CZIgsCqaRzgJ0OvYMBaYBbyAp6K 2zkb5/Z5xHPfvTdz7UYDvEOg0DElo4OftcTccijrUnhMzZhjR37BrwpO4aHR puCf66kmNecnrTZ51ZX+dmLzR2M71Q/eJh2i/5IoySZ90h9eYU1Ra23SVYbF gcSo0i+CI2Ga7GDYWJEwratgWPUgU0Wq37vmA2wvergjXk+3DFEHLWvWoFjK QMuZNdC2/fAr/h5qkMlP9bot2ncZOHbSgrWbMk8HW/9PMrJDGjet9sOsol6+ D84rLVrVhTV7GHgbCDNr4PjhKgM+//6G149bji1vbX+gTM377RF2GI0M0Uvp xWOpM8aEnvRZxT7Z461/pR674rt7Kc3dvzr92C3J24KOIjfQObJ779KLWavf G9K2rvORj2781MszRUULld/OruvqHCSpbFn8S+bq/3un71N/jnEX2w+7q0Hr LoMmzljz3+OFGo5QOZjvLYwammawyWb2nnF7r37fOxsr5P+1krdVflyrWYKs 2iIY70bLvLiDJwh/bBp3j+tnA+yiYioY1G6xpiDQL8+Z4S6SzPP8u4rbubtS 50921rllWFOMZ3qOfP+TNTv/lycyymGVjA6y3o99yxoqZwTSqridd+ibNXOT xrzY86nHH45m1+2yvh9btO0+ePT0pV/uP3lRsjpdGn149YR7Koo12zW/liL5 wje5kB0J08QHwwaJhGl9BcMqB5mqQoAtMV3cEb+nW4aog1Yg8FAgZaCRNaiN +JDGQaP98PmUYfZ5mUDHodr341DOhv1oj4wAkynM7iHbXyxh/gHfc4K382a5 CsB1W3OW1wU7yBi9BEj6KCr2sdZP9eg35v3ZKRt3Hr6gziY0PUVuoHMa6b0l 43XSFoTCtTHZRMX3yAi4+kWHKstTu0WzXjJKtRxV26r7ODZNFNLxiWejtdDZ q//mjqOC5USupT4BU4nSa4tbOpYNm6kuk84E6GC5o5pByjIrjl0yOkgEeyd/ bjPXLRutRgqoBg8vATzXMFAt5v+g9jWFzGiRMI1gWCBdBcNGbgMIsCWljzvi 83TLEHXQ+gk8kDWoTCshjQb74dIDi9o4dsGHUd1XnfI70cBUXAk2O8k6aKbm sOWX/f+9dvS/L6QP9ENX0QtPRr530Bit9N7SOTk9IcRQCpxYE/oNpu7QfKlw /piSuY7o8YnhhxWJHlVsq86jh+U5i00J/BstK5UIliCEmEowVYyC7bRiFphR 1L3UnGyyvnOm/Qc9h4VVtMFoJwuDivDwqs+r8qcSh7JJxXiRMI1gWADdBcNG bgMIsCWkhzvi+XRLH3XQ+gk8kDWoTDshjcb64RunkppEOJ/ltsMPlfj/SdaE S+DZSdZBM9SYfQE+0T01I+gkR91FLzwY+d5Bc7TTe0vmVGpnV28pbEug0ZTu TKpLavinDKYQruOdWK/dhmuK/GK12qpzOVbwEsHEEtBoyzaNc33ZYWFDPw1U iZRJJbjZk6Xy/P4tBy66isxcyxzm+sTA5xOxzhI1VR28sICoh4xdMjpY5Fy+ fZL7SEDOMqSS/Mz03To5awDIg4dXfUcW/4X1mtTYGJ0BI2EawTBvOgyGjdwG EGBLRRd3xPfplj7qoPUSeCBrUJ2GQhpN9cOXlv3jLtfVJiw5LsmhUa5TGoMN LrE3ytWIXXou1Gt20GH0EjIj3ztoj3PzbBj17IcXDNJaK8vSBsU5YiSq6+Rc BU4N0TTm6yIv/FOMWoNOarXV3xzrnzXbLQhqtOwEIfAxneyt+pzquPZlbB1T Tjv/X1aSNWKP/0MBKm6l9nB9XjQ17TBh5zMwa/OCVxtgVspx40bHNzbtiI6O HACS4OFV3a11o1jvSK2N0RkwEqYRDPOky2DYyG0AAbZUdHBH/J9u6aMOWi+B B7IG1WkopNFQP1x4YnJcuLO51qyz9GygmmLMCUqBJ1yYUsDBypSxiwbfa1qQ G9o1O+gyegmRke8dtKnw8OZPFy76+scral+IcizHlrcmNqQhTe7m5xzfVSQ1 4TujfldepVoUO65OlbbqziMCpxvkEtJoLfTx5U+4/r6Bl6tlT2/nzonm/MJ8 Q56phHPZUpAki/kTU9RD49ZdIyxsYCWVwSJYZqWcZ9E/W/LVKOAxiADC4eFV H/PF8s12yWDASJhGMMyLToNhI7cBBNiS0MMd8X66ZYg6aJ0EHsgaSKChkEYr /TBrq5qZ6jg+O8BWmNAnXE6vf8b1LAc5lYnZfBfsyCpvOo1eQmLkewfQCmYK lYoZu45vvUZDOT2jk+OLiuo101gL6tiY6NFJuQREjbbqXsWkpcMCWAQ22htZ 46uHkGdd+v6NuuHO6Ci+395bzP9iO+jzsef3uv9IFnrHgNgg3yRrOYepWc/0 q8TltayDloKc0liSntTI9ZOc8g62OttVqo34IlDBBwAx8PCqq7I8tVs0+xWJ ovHagGA4ZLoNho3cBhBgS0EHdyTk6ZY86qB1EnggawB+NNEPV5Zt7lPLHeIG GQVinaAU+CdDr3vGmvH07EmC0m30EgIj3zuAlrhnUWtUX3AaQwh+FGQOu8f+ LRlvNZ0HWwjNCLYKQloKt1XnPBT/VRmEENxoLfTulxvY/6X53jFf+q5wXHxx Zd9GJnczYK8Hu3VuVrw5dsIm9kI39xobf4thrm+d9Kgj0Iqpn3yYvPVhnElJ M9Vh/M/+ApsL+4Y/6NroTVEt5v/A/E8nV7e3Rr9pAfIzAHHw8KqLdcimg2Ib S0EsBMOh0HcwbOQ2gABbJB3ckbCnW4aog9ZB4IGsAQQgvx9mTcVaH+URuwPN IP2xadw9rp8NPPXD1D0LdipTzoxE968PPOPpSd/RS2BGvncAbbHQJ5KcvZzh 1omFiPUVxY5add1g6ZoHz0L6PFcsiKJwW3VWCQ62XZdM4hqt5fjqDo5791jJ 5uBIsqIeTniijiM6Yq/ysh0zF+b16ndWpvX9ZZb9mNorypFhNZyeeZnftSqD KRntuM7GKRd8TUnmH53S/H7zw+3a1HH+KHsN4dGJraj4HhkaOngCNAgPr5pY NRkcSRC7bAsQDcFwULoPho3cBhBgi6T1OxLxdEsfddDaDzyQNYAApPfDFjp7 9d/crTrYNIprNW+wqR/nkUD2K+ky6UyAzqfij1WJke7nqu2SH0O5aMeF6zx6 CcDI9w6gRTdOJTWJcAwjYC7VB+caBhP1cMKGS4YfZvEYeoqikn9SsJdXsK1q u2q0yEZrsZye19cW/YRRCfMPsM+uLM7a/k5CHXNM43czztzcO+tRRyjlPuCy +Ny8tvdH+jpgrmT3rGb2D+yW8hMTAFoq8tMXdrUvGDPHd1jwA5EZFvf0Uoe4 YYtyuasDCw9teLPl/aamHdacKT8907lx2L0UsCxrdedwKmHJce21JdAWPLzq YS8RtH23zQYfQEilIQiGAzNCMGzkNoAAWwTN35GYp1uGqIPWeOCBrAEEIrsf ZjVs1oPsk60cX3hIP1l4aLRzT535vnc2Bqq2xZ7xvJeakx3yAJQRohd/jHzv ANpUun9uM8dAe8+p2X4P3DOk8pIt/e2VPyOogZvy1L4aAjCvWieFC7Yo1lad 9VeDbdclkSSNtrz44KxB9c22b6DVsOQ12zK2rlw0ddDfY8KpmK4jNvxSZHu7 V5Z9Pzmxqv1bajv+020b10x5+hF7luHrD2OpPL/x/bbWeDOyasLr1g9MT0v9 fFq/J20HM0RGJE5adryQ3ICBVTKaeqhJ02h7DBnbcWjyitS0dNc3ExHWdGhy ZoH93p3VG0xUTPzYz7duTfmo95/CortOzFJsixkYGR5elbA7Cs+i8aAFCIb9 MkwwbOQ2gABbMG3fkfinW/Kog9Z24IGsAQQjuR8u2zQu1BCXOWiGO+Fifa73 bzlwkXVj1zKHuT400HlVrDqHFGWq6mdK1wfDRC8+GPneAbTLQp+c2cOx4qX7 qlPkxjqKu7phXH1HZDVu3TXsAbTjHjfjv7awTJRpq849syaqYeI2rVX5lbDR FmfvXTppeLcWD0ebqWoNH+8+7N1lu7NL2J9pqcjfu3biC0/H1ww3127Ydfi7 W38NFEeWXsxanfRGn6f+HBNBmWs3avdsvwnzUvb+WkR0n8OUjLZvyr5QUXA4 7dMpb/Tp+ESDKGs7vKtBqw7Pj0tef+QiZzv47esHv5g9tHNr689EN2w5MHnl z8VE3yXoDB5epXFqy9t0XXNO7WsCnhAM+2GgYNjIbQABtjAavyOpnm7Jow5a o4EHsgYQg+B+uHz7JNfkSJC9NuyNY5xFvPadLx1TTjP/hTU1M2KP/w6h4lZq D9dH8tlSZKDoxYuR7x1A2+5cXdW9jr105CMLjLZQzB/n2Xxm89+GH8TiV5fb 2yextmmbqSeGHw6wTVUOCrRV5zl3PM+YIwEareQK9gx2t/bAVXABwLA4teUp qnrUghyMq2gQgmFvRosrjNwGEGALoOk7MtrTrQBkDSASof2whT6+/InQdrhk T2/nnkZhn7romLKZdqSc+dE7BXP/EnxqxnJseWvXr+Yx0WDk/s3I9w6gA/lH 3mlkW+YR3XnMITzC7tdiw9YpOQZLzQL7zR1zqjcAJXdbdRypE0YN2KJouTax 0GhlUPnt7LqhrRECAMPyXLQQuLY2kAzBMJsx4wojtwEE2Hxp946M+XTLDFkD SIDMftg5oRNsaubS92/UdVS/N1Hx/fay6vLZSq889vxedgU1C71jQKzjM4em F/n+wMqytEFxjg80NeuZfjW0p8rI/ZuR7x1AL8pObOofa+tL649eFWoJR12y 0Eff71TVVvS14fRMQg8ZVE1leWq3aPbkjMLHzTjI2VYtdPbqv1nf/s377fld 2k+WExqtPHJmJDobegQ1Zl+J2pcDACTilvrEgIy2IRh2MnBcYeQ2gACbD83e kYGfblkhawBJkNgPW+jdLzdwLEDyW9DeeXCSQxj17IcX3Bd/69yseHPshE0e UwXuQ2SazD7g8yOvb530qGOiJ6Z+8uHQrtjI/ZuR7x1AX8p+TO1lK4VKtZuZ UWiwZMTJYslZ9ko9Ezo0v659Nog1BKXaFn4Z2+qdgt3L5609op2/PhqtTJzF eCntVhEHANmV5CbVZ70VMSCjfQiGEVcYuQ0gwOZBi3dk+KdbLsgaQDoE9sOW 46s7OPaGe2x+cXDMy0Q9nPBEHccYUdjQT92bfkp3JtUN83VMTOGJyXG20ltU x/HZZZ7/o/NL4DXRYOT+zcj3DqBHzml6QyYjVtfTkppjojmws5t7MoNQagaf Bm+rbmi0crmcOcys8hQkAJAua/mTzDvRT8YKWmPwAANxBW3sNmDke9c9PN1y QdYAkiKuH7ZYTs/rG2nfEJMw/wC7cG9x1vZ3EuqYYxq/m3Hm5t5ZjzriYXd1 3+Jz89reHzl4oc8dQCW7ZzWzf2a3lJ+YyRlLRX76wq62A1Moc3yHBT+E2lkZ uX8z8r0D6FVp9jdvtrifiqJG7DTWc115ZHkbnv2/ETGLgtRfIWzYtuqGRisf dsnoxJRTal8OAJDo3NwenGpmU3d4rfsDTTJsgIG4ws2wbYA29r3rGJ5u+SBr AMkR1w+XFx+cNai+2TaT0mpY8pptGVtXLpo66O8x4VRM1xEbfimylfOtLPt+ cmJV+2xL2/Gfbtu4ZsrTj5iadlhzxs+5J5bK8xvfbxtBUZFVE163fmZ6Wurn 0/o9aSugHxmROGnZ8cJQiwQbuX8z8r0D6FxJ/u6UeV//pK3KuWJZfs1cumx1 6P2/Ybnrgjp4Fw5VlCHbqhsarXyYktH3UnOySViuBACEuXN18ZMRzOswkpp2 pFztawLpGDLAQFzBYcg24GTke9cpPN3yQdYAsiCvHy7O3rt00vBuLR6ONlPV Gj7efdi7y3Znl7CbvKUif+/aiS88HV8z3Fy7Ydfh7279NchYUenFrNVJb/R5 6s8xEZS5dqN2z/abMC9l769FvLoqI/dvRr53AADj+m3PYNRvAb3b0f8+ZwtP GJ2l5uwjAJDq5Or27Lehr1rZAAAAoG/IGgAAAABAORZ698sN2DXNRuwqVPua ACSWv2F62wdMsa17fPIdtgYDgA+nZ3RiVzNLWHIc69UAAACMBlkDAAAAACip 8sC8xqylwtVGfHFT7UsCAABQzq1zs+LDXe9BExXTOOUCZmYAAAAAAAAAAEBO t3+b2yKCGZKKa7sBS4QAAMAwSncm1WVtmYkZuw6lPQEAAAAAAAAAQG5XV77C OvyYSkw5pfYVAQAAKKKyLG1QHPMKjKamHf5D7WsCAAAAAAAAAAADKDwxOc5d ywWHHgIAgGHkbn6OVdWTei45r0LtSwIAAAAAAAAAAGPgnIAcQY3ZV6L2FQEA AMjO4/U3Yleh2lcEAAAAAAAAAACGUZA57B734JSp6uCFBZVqXxIAAICsrh0a XZW1Zabr5FxsmQEAAAAAAAAAAAVxVg6j2D4AAOjdpWX/uAtbZgAAAAAAAAAA QEWcjTPmaiO+uKn2FQEAAMjF45w1bJkBAAAAAAAAAAA1nFv4fCQ2zgD8//bu 77XqOowD+Hc/FPHHxYa4EDQPKV40b+bVHN5U0jEkwquikEGsm5JZE70JbLCL gkBOpJGIImcGBf5IIutCXfMIEaW7KZxbECo7yjxpumo7y++K2vnayEB08v2e s9frL3jffeB5Ps/zADPAlJGZ+UF7j5EZAAAAAOJwvb/z8dkuzgBQ4VxYAwAA ACAxbh5+Y+G/Bme2nbkRdyIAmGZTzqvV12UuaMwAAAAAEJ+xX7Lro+ZMdZDe +v1o3JEAYBoNHn3uTmMmaOw6UYw7EQAAAAAzXPjDJ+urSxWrmmBDtj+MOxIA TI/xkU+fT0WrzKqaN+Vuxh0JAAAAACYmBt59dm6pbBWsWHtoSHMGgEow8kXn ymhgZn7Q3vNz3IkAAAAA4G+3ftrZUh/Vrha17b1qDT8A5W743NZUbfS6Pdbx 8TWvGwAAAACJUezrTkflq9nBi0cuxp0IAB7A7fHezU1WmQEAAACQZPmDry61 1gyAijBllVndnK5zv8WdCAAAAAD+Y3zkqy0tUR2rofX9i3/EHQkA7sOl3lcW l2ZBa4Kndn9bjDsRAAAAANzdrcsfPLlQLQuAMjY6nN2wJPppsOy17BUnZgAA AABIsqGvNy8t/TReMGvLqatxBwKAexZOnH1r3bxSX2ZBuv0bJ2YAAAAASLxi X3e6tnR0Znnz/oHRuBMBwD0ZPtSxrHQ3rXrV08fy7qYBAAAAUB4KxzubotLW 2tbTBaUtAJJu7MyuNVW+FgAAAABQnsJwYM/Lj1aVFsI8s73v17gjAcD/C/s/ f6GhdrIv88jyHTkLOQEAAAAoN2E4cOD11XMnuzOptl2Dv8cdCQDuKn/2zaZ6 fRkAAAAAKkDhy7fXzNKdASDB9GUAAAAAqCyF3j0bF/+zIiZofCfn6gwACXK7 ePyl1ORxtMYnDv7ovgwAAAAAlWDs/MkP38tkMjs/+s5XZACSJAwHP9v71xOV 2b0vl9eXAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAB4SP4ElfWXcw== "], {{0, 297}, {2185, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->Automatic, ImageSizeRaw->{2185, 297}, PlotRange->{{0, 2185}, {0, 297}}]], "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}, {3.751393450786901*^9, 3.751393450788233*^9}},ExpressionUUID->"3a64254c-82af-44c2-b966-\ 898a7cdcbdd8"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", "=", RowBox[{ RowBox[{"I", " ", RowBox[{ RowBox[{"sigma", "[", "3", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{"Ah", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}], " ", "-", " ", RowBox[{ RowBox[{"Cmetric", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"Fh", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], " ", "+", " ", RowBox[{ RowBox[{"KroneckerDelta", "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}]}], RowBox[{"D", "[", RowBox[{ RowBox[{"Bh", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}], " ", "+", " ", RowBox[{ RowBox[{"\[Gamma]5down", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"Gh", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], " ", "+", " ", RowBox[{"I", " ", RowBox[{ RowBox[{"sigma", "[", "1", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{"Ab", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}], " ", "-", " ", RowBox[{ RowBox[{"Cmetric", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"Fb", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}], " ", "+", " ", RowBox[{"I", " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}]}], RowBox[{"D", "[", RowBox[{ RowBox[{"Bb", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}], " ", "+", " ", RowBox[{ RowBox[{"\[Gamma]5down", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"Gb", "[", 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.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.751392715557753*^9, 3.7513927492646217`*^9, {3.751392794464078*^9, 3.751392859521097*^9}, 3.751392912704957*^9, {3.751393674125366*^9, 3.751393927580069*^9}}, CellLabel->"In[63]:=",ExpressionUUID->"73d5387a-6f6a-4523-820c-54297d2397b6"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "1", "]"}], "[", "1", "]"}], "[", "3", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "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.7513927168421507`*^9, 3.751392750285492*^9, 3.75139291349807*^9}, CellLabel->"In[64]:=",ExpressionUUID->"372d7980-651c-48a1-80e1-bbabaad3a090"], Cell[BoxData[ RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{"Gh", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["Bh", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["Ah", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]], "Output", CellChangeTimes->{3.751393939960011*^9, 3.751562784994755*^9, 3.751727178798225*^9, 3.7517302484938507`*^9}, CellLabel->"Out[64]=",ExpressionUUID->"162effa0-dcc1-468a-bafb-80ba08fceb5b"] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Vector-Chiral hatted transformation laws Dia[0][ii][aa]", "Section", CellChangeTimes->{ 3.746807398335127*^9, {3.7468414728097258`*^9, 3.746841476141816*^9}, { 3.746842702353899*^9, 3.74684271348251*^9}, {3.7513951120669317`*^9, 3.7513951254487762`*^9}},ExpressionUUID->"75f6db08-107b-4f20-80a9-\ f097134ae36c"], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnQlYFeX+x+ccyAzBkvyLZOSSK2rlel2wvAa5YZZadsVMTFxS0+uGoWnc 0MeyXCoXTB/uFXFfSFTAREuwxCUllVJwwwVUwBQND8ucP+fMzJl3Zs4257zv nDnw+zzPvc+9CDNz5sz8vu/7W5uOmTpknJaiqBm1q/5rSHjkP6dPD/9k6DNV /+edj2dMHP9xxNj+H8+MGB8xvdsYj6ofzqr6T/+q3zf8bz0AAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAIBq0d0898P6b+JSTt+rdPWlAAAAAIDTlJ3b /Z6/J2Wky/LjIG4AAACAe1NZljjUj2LxoIZ9WUC7+pIAAAAAwBnK768PqmVS ttD4C6BsAAAAgLtTkr52SItntI1aj4n9qRjckQAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAADgckqLMjcvnzr0jcAGntpGrYIGj/h8Ryb01wIA AADcFF32gVm9ArS+zw/75KuEPak7lv+7h5ehVrtpxMrcUldfHAAAAADIxNgr UusTHJGS95j9Ea1PG9OM6UMSsv6sqvqQGK62Z8+4nMe2fxUAAABQDYpa7ysH P2jg4dNv6vEHgh/nLuxj7LGlpfpHXVKPW/LWsSkveFKURtuuT8IlUDcAAAA3 QUnrrbu/7e0XqPZ99+SLd2anIzsbpU1DNR+UWkL2Kuwl/7d5HX25js2UT8hH GUWq2lACAAAA5lDWej/YNb0+RYXtzhP/Q2X5toE+7K6t67gTOnKXYDclN9cP DDD6SD3bBjbXMvdHstkEAAAA1IXC1rv05tJOtakBc3MrJP9078zMemzTf4/w Na5Xj5IbG4a10hhjf0GLUoofFR+cFVyHgkQXAAAAdaO09ab1Weu6UtSEg8Vm /u3XZa24neOAhKvYzy2P8oc/T+tJsXcmlZ1BUP7wyGz2/rw4Y2uheqKBAAAA AINLrHfF3wXXbj40d9hb3w1lhc2bijnrUtkw3QSvJ0OWpApm65j+Cb1phKgo zT24dc33CcdvQ+4KAAAqAIdR0t0898P6b+JSThMpYVaJ9TbBB9o0VOC7hx8p clKz0HTOdyPrGxT2ibDN58qkv1B1f+aF+nkY7s/AuLNmfgELur9+CO/gbdhR azRdRmU8JHQaAAAA+8BhlIxlX57MJqbL8uOY5UUl1hsFCbRpw5YXKXBGs1Td mbUfNtZYvjOyfs0JKo8ua2PK7HlasyKXwDkAAADsBoNRqixLHOrHHcKDGvZl AcaMRdVYb8HZkEBbz9W/Ez6bRYpSF/d4wr6PbLo/9fwj029jv5KKH6Prs/dD az7rBgAAQEEwGKXy++uDapmULTT+AkZlU4/1RuEDbV7U/FPlRM9lkZKc6Gae MqScvT9aqtfkM9ijYSU34kf38Kvj2/GDT1LzINYGAICrwWGUStLXDmnxjLZR 6zGxP+GMdqnKeptAA22tB6X+RexEttDlHtlz/LqMLSpdee3Q1sMgPQAAAC5F jdZbJYE2AAAAAMCESgJtAAAAAIALVQTaAAAgBE3nblnw+rPU63EXXX0p1ZPy fVFP+jwfhjd6BTiJagJtAADgh62T1Wjb9d6RB5aXDIXnors8S3k80XbSaugB qBaQQBvmMgcAAFwLr2swEIowXJd76HCrEtBAW9svjrr6clwHXVFwdMenw98I bOCpbdR8wLi5m36/4+prspvCs4tfDdBS1Iuf7gf7BbBwukY1arkiG54L8hjm YHriVDfnjVJpUebm5VOHMkdoFTR4xOc7Mon011IffKCtFhV5DHNpOF1y51Iu LnLy7hF7PctLMhePbOJBdYmISUhK3Ro5qI6xl+bEA/mkzogRWn8qqhe77+4X dblmPLeADWj64rJhXsbHeEySZIKVxb8q05Up6rgp0z3Gdr5ync7VD3/Zie// qcHUAdhpo6TLPjCrV4DW9/lhn3yVsCd1x/J/9zA8EJj3lVgeGfzPHRpoaxy0 sxDrwau+6N0zKOzUe6FT7/5h06JWbE3NLsIjdtfiIho/hRQbFhwaZbwnbtE9 ks7a2Ie9NWqaIQu4lLs7ZzQxPhOdF6bZfoQrSnOS1kzs+0pDplOFx5PNuvcd szD28OX7pHSuajfx35h/vfK8lqKaRe52/pktOvD16/U8KY/azQaMXvFTrhLN CS2Q/9+xzxqXmcGrTjpzGU4aJWOvSK1PcESKqXCM1qeNacYsgUPWn8X1zeIw 8gTW5IQDbUSkDcXLt2PYtLVp2WZnGdgJnb2tv5bqvCSDH75amBHBHl/1KaO6 +/H9ue47VdLWNDjpnqsvCXA1zCNdhc+AyDM2W52X3IgPY5ruSvANGLZsbwF2 ncg/9Z9eAVrTQ9s8OMnJYtrbmZO5lr8GFGlOaJHyh/tHBxpuZ71n5mc6mJbn rFEyuEY9pHM/cxcyq2At1T/qEiYpUae0kQ608Q7JC79nHEjds+G7T9/t5iP9 ZE83Grlsc9rJ89bckad/SU3em/Ddosjw9zrW9xQdwD/4w/UnbjjyMFeWJY9s SvUcdxxdCJ1a9TJ3y6emq2HcuEXubpncQHAnoZNzjafk6rKehnwGql7tmNN/ 2/jlyrKDYwPNypoJzHkRpbdWM5eHGLbwZKe07erSQeKLtuezkyPv0AcG76FG 02Fwyl35GwYnjZLu/ra3X6Da992TLz716cjOxkPgdO8Iok45fx4/lJKSuGV1 9OzQls+YeZi8fII+jPo6bltySnJGVg5v328U4rWzRANt5il/tG2wn/DTemrH x8l7Ch/fzz6w6dM3XxYsNb1qBc/b8EeJzAfp/MbeFBUcdwH9GfemaCi/lnE3 5B1PUe6entlUqPLq32YCRKH1v30Wwgx8bBeTZvuVrizL/G7mmCF9e7R5XktZ BOfsyJLsuQ1Eh9fWnfC/B7b/0gJoy19cx3Qa1i3p2K1zzig92DW9PkWF7ZYE WPnwk5bqOu4E6TX7rWNTXhBaJ8UG2ej+Wt/bi/2k7d85rFSMhtdTjk7LTzpy ILqiID1h/EuCFaBPn/f3XJYRgDM8MP6dEgqQHz2+u6pbLfa2vBWTp9qe/3z2 iIAJhyAXrubCpTFoqMBBqbJc03R58YVj22Mmdq5jTttqmTOVjkHrE4fUFR7d OZ8kG4SicB7TeUpvLu1kNCPe1NSfimX9qVNGyXDe2ubnAiDhJ4/wNQro/v73 hBs3rD4luiBrTcTApt6egWHzjxYJdjRlGUtf4c7Za3WWYnlRUt9s99VnHT9c yfXESX28kUda265v7Bn7UmQN672nREFG+sQq020RLZxUBZI9IgA6TtRcHt9Z H2wMvDqRJ6DL+XlWZ1/JYyVfKy1gigMK8KAmpDm2tqb1Weu6mnsRXO7BeJgS 3YoRI5Fr0TpOGSX2bkw4aEZM0fDTgISrMj6Jo2QvCBI8QhgzASpKE98JMG/0 TG8BpdW+Ni5Twa07ZmnTc1my/Psio0C14JftKRfuoz/JnNaOPUyDgNgraq1g Z7NHNE/XFS2AHd0CA+4P44nCIEP5p2a1krr4cAxlZqJI5vCfvdtBd8PtU9ED uzfzNnNMF3swTBs3mXsHp4xSxd8F126aTavj3WXeVMxZJcokuKwVTtow5m8L t+pDtt9if07rzy8a5MWcrvFLsRcUfQDwS5veVJ2KqptDbYUKj09mj6LVDv8y 39VlMpYwZo9oNB3/tW/tJOG99PT8eBME22oijhpSs5jqsxAwhC3o0+u6mxU2 56M/pUWnd3wztJEguONy5zy/2GjzRtIdR78TLEYJrfMKfPewzbxZHBCUtuLj k7nnk08ELS0+GBXq50HJ893hg4i06Zm8oAD0sHZlPgvhHkUD/EpAbTDZIx7U 0G1XKw6aBu8ywFiiGgpvRZv23On84GKzkdxa1NQjTtR5mgpValEfTJnQUHRw HFsJYzEXr24ulzZ2QKeRdl9kOKZteIySKyaXEZQ2U7qUb4Mx3+5OSd6bsPQ/ o7sZK0rq1Q+dtzar2AUON1LSVsX1I+OeEyzbAhcky3gVK8sSh/qx30IjYRhX PXA2x/vtRbkV0kADNCSpkfApYVTDaVvx2I+bZtIzmn2e5rDJ0B1e3JoRsbcX Xrpm5uBYQts3Vw5TkbTp9RcXhrAmxTEvMSaj5Njksgf7FwX3DELoGTp6+pLd 9rbqclja6HvXkpfPC+v/KnruoFc7xxxDzLmhz0DstKH9OjY2JKv4t+8WMnzs gnXbT99x2ZdOUNqQnFsWWeUt11KGs3/m4sxhK7DZI6bPdd10zeyVUx1GHXVd QQ/gEiqPLmvDfP8YcydoffpHgZTo6QqanOWY29BUzuZDzT/xN+IfM4FpN3Fx e1/meD7Ukj9VECs3ZvIzDEy4IvvPMRklxyaXVZ7f9++3ejeVJM3aWeromLTR F5JHvyiuiTO00Bw9ZcclVQdbiEobGnFgX0azebDmKPx+JPeSOVtDSgrOpcPv Rk09CmQ+P0D1wdRACXe9UuVPX7wgeroc3ThwvQU0dUZ9W2Bc8/Ovm+ngWIZq sW+EajrzVPwdH8zVWL0+M1tmWRceo+Tc5DLdjaxVQ1qJQq/2tEdzRNr4/EYO D02Xf8dmyy1YdgVkpa3qJdrwoSC7qxY1Zr8dDUXRyhFhuJy+nb0nRRXtspns EUFI+nHB0peFdxMaktQ0CjIinuIMjhMOQzPwARoOx3aFxefmMr0FmC0bA7Kd cerg4nMxCQY4e0k5Cb9j8qFisuR8QFxGyflAm6nFDW9nqCXZNk7vgLSV7osS ChvlM3yRuwwJIi1tkhiBfYsl5EUT5SEbKigbq2AFiGSP8D+UtmJQKrMXUAn3 t0yqzXz12HsKmSmvdqQkKuerN5l9iyAO+DA3uono2DLCQBbh0sIxq7wzILZF 3lVhMkqOBdpEoNksdn4W2dJG6/eP8BecA10LqR7i0sYHXjm8qNm/2rg/5xf0 Mt1MwcrKsHASV1C6AEH2iOBfxCX/6oieAwqBphlgcegJkfYOkt1s9nLKe8zi y7feiouCRVf6hBeFx8YQbmOdqE4mc+KFF3F5HmNcRsmxQJsYvgaB+yy2Aq+y pU3chM0RF64LIS5tZtz4tiKw/N5HfDOZSpwRP7i4EECcPYLAtTzlUabVAKAK eB8FkaRuSbhNZuFkZfmRKR2Zv5T2tPx794ynBAfHUHJllANXd9mSwNdc2+HH Y8FllJwLtPHwQUPuy7IVeJUtbaYUIA4Vbb3tQAFp47tk83fV6qOOJGMIFqXG vui4Wgw5jjR7BEH4/JC5n4BaqfiRL2zE4M2TciVxsODh8qDe/Py63Q7vssyV 3ZkXsEWvnbckVkp8cKfd6Y+uLg40BPWwVUBg4tFWvrWCvTUOuIwSvsllvEAz 2MpBlSttknWUiouLzaGEtEk7plp3UCAbYdSbp0tf2oESxrZcgZnsEQTJ/YSG JDUIfs9OaHiHOJNETuGkzZ6W5sJtzlgz3YFo1XkjDdD67I2vcTfQ3s01JqOE cXKZdBVtPfYhV9qk0uBesRUlpE2aN2h9b8unT1PhKWz3NmNnA6rp+PUubv5v NnsEAV23M++OMm29AdfD+6yINRkQv0oyokVckam1/sCScJv2mVm7HHzh2LCj luo86qgijaRkwOuU3ZWnmIwSxsll9+PHEpU2cWDX1Q2u5aKEtJnJ7LLlSOE6 mfgET0rYt3ejcbpH03fnisYlKI3l7BH+N6AhSY2F9044UUxtHfGrZHfhpGny dS3zjegZJNZSS/WZ+YdD2mZqUKnkHBN7QQNV9teSO2+U0EBb46CdhQ5/AANy d1VypU28K3S3OiYlpM3MatD2jaVv/5Ewf9zATi18vOq3DR42J/5ggauTc6xk j/BIG5IoMGcQUAGIr4ngVl2YgmuftNH6Y9PZgc6mGm3znFnXTfSeOmaB2ZkC GqpJl003VKdsemGgasQee3NcnDVK+AJtepA2WygjbVK3sNvdKOvZIzzQkKSm gm55yOWSCVNw7Xq6mHiQ0U3aODbXqgcBU1W4acvm+HAcwqDeNidjXvaDMdCm N2e6rSdjg7QpJG2E4uzEsJ49wiMNLPr6x0L6fw0AFR1yI2jlVyfxnSs6L8mw 4T8Qp5QbkJ1JYpopICmdUw+I3fPUjo9Tpg4ZY6BNL990y31yxKNLVduj3gIu kzb3yrfhskdC4y/YWI1LjYNKGsPaT9Ef6yM/mqgSFnx7xk2ycFBXIblnW66B 4nqPaDTdR2XYcSelhZn+8/bJ0idunrXqcv4R0Ji4UtFwfh4Ehll7Zgea45U2 R1zfakIZaZOexZ2kjc0e0VL9Zp6345LdvSGJ2S/LhbjH3UN36yS7q8kyUHT2 tv5a9pImHrCjd6uw5suIvNI5/b0L0W2NaaIq3rIZ4Iv4cBptuiBrTcTApt6e gWHzReklZRlLX+HuKZ7UGnEdoo10VnnSJh4G4XhCkasAabMJmz1id/804Ube gHuVOtLntvT38ZR+Xy5B+2K79W6RYIpGqUhGJWQYKKRte4OIdbftuovSvYC8 niRXv32H2ZnIG86oPHxMHJ+rraI08R1+/rLAKc1/F1rta+MysTgiJEWO1pOX 5Elbad7iVjIOrkKUkTbJUtCAe0gbNy7cnrERDNeWhipwSwF1gZpKp/O6rSA0 UNbW0pzKyExTZHv1I9gfLGYbVKo3MZIHrU/HtRQR9qbgF7S0/vyiQex30fil 2AuY7J449mGj5ESetEn6bHRafhLPZSsFxNqs8yDpk8aWGhNZQHJLnah7BdwF Mg4uKcJXyWKciHdF2hMgRtEVruos3LN7UFPT7Shf4RaBVQR9c0LtKWKoAxlX MTKyKvDpN/U4s8kpLT4YFernYXgwtO36xp65g+FEHHzHZubBs7r9lOfKRpI5 Dbhb1p/ehdLmFrXtzGQrmcbB2R62gPuB+vHISpvQ3W1B2hBXpPfgT7NlLiEP jn5O9LLa0+L77s4ZTYwf3858FRcjzGTGs8ym9b99FmLox+/bYMy3u1OS9yYs /c/obgGGJUa9+qHz1mYVY97Jik2N1Z5msqRN2IpEdQ2u7cFF0qah/FrG3cB+ HqzQ+nPRwfZnj/B/Bg1JahzKSZswScl8BIR3RTZquUKusJnzqNsu0+M6dVRZ 17DdeXLPKEWX8/Oszs9SvSafIeTaISFtekO4LScpdtrQfh0bG74m//bdQoaP XbBu++k7ZD6GeO6MtW9KhrRJXJ02ZrWoEmWkTZI0aHfrNtfBunRqUeFbfs+V xa/xb4k+LKG2S4BaQKWNbC6Z8FUy4xAoO7Oxnye7pApeddIBL5LEJthKISh/ uH90oNEVp/H+19fXnPvs9IP8jJXTOnnZMr9OIswAdIvgiFkuLgwRmBrLvY9k SJso99JqczbVooS0makDJTLNCidI4MBp3K8kBJCJUnVSkjHu4qYWfIG2VtNn ymlH+hLLdjuYXJGObRINpyy5c+ncyUOJW7+cPrqnnynSp9z+132lTZ+bKFhI W/ZJ2i9tYrl0qwmkJpSQNkKz6UlizB7BhTt4XwGnUEraJL1uBG8r177bgPVO p9aR1SzO5Iq0p9uJBJE/R9uo5Yg5MSOa2XFep6km0sbGTfgvy1KbUHulzdRJ mwGTh1l5lJA2ccdgOcNtXQKXPWJ+rJVNpLtUd2u/BshE6JAk52yXxFZQm2xq A+KwK5I7kGgtanltpvsrcUQrDfOpLc/KscLp1VMnfjRl/pJlsZsSD538s7gM lW+S0ibc/7qxtOmRMnkGC+X5dkkbujqyKpTqRwFpk4wwU/cO18HsEQHu3pAE kIlSaSSi/RSaZozsnhzIihRgd7O4a2vfr8/9wuyjfzlxSgRlpI1QGomL0B1d 2YOvRtRoOgxOuSv+vuyRtodpizsgv6Nt33dPvrrrEy2jgLRJu9KpcYQTB5s9 YnfvEbOIZ7vLGZwBuCHo4GaSBvni9r7oU2XyBjy+Gx8awJ7d0YAXijT/X2r8 +XwVvL1HQNoc4m5SdKcn+U/kM+yz8yUCK2tT2oyTVZFAZ8PmCzJuK/oZsEJc 2h5dXRzoKbilau5UIL/3iFmgIUmNA+1GQs4gn1r1MvoqMSfim10YXJED4846 7xGRFqKK12Z8vgruQjblpa26xAuKUhf3eAJRt5BJh/J5ybYubUVH1g55jjfU 2qavxBx1Y13Tk5c23YFoYf2yqpvLsb1HbE6usYX0rpIb4IUf6PzvAKi0Ecsa Ej5XbFEJ6kTyG/1dHo66A2lnPIFZqCz7dWZP9h/qPTM/E5MrkkEZaVOq56fC lPy2a3x7X/4Rad0zJjn7oTFYZkna6Ht5exaEtanN/1vD0I9T8tx+G0tW2thh u8j9VPOWjcseGbrN2flq4jY1btWQBDr/O4IiuwChN8BQQVPIh9hwRkbK90XV Fn4L6NqMy/Y34EBWpA2UkTZ0KdI0OOkembO4hNKiI8unBf0fvwXz7z1i/rqk HVO7I99nlSl+Y+2hg3Hzx/fgqy0on8DekZvTb6s2EUIORKWtLHMlejedTdwi Cps9gqHmVBh54T65rMkgLgU6/zsCmnphZ9NF+YhiuI0+Xr/uLa760u6xNXYg LW3j12ZoiM3ZfBWzKCNtfNTSWpmz+0Lfu5ay+vPw3i19tHa8Zl71Og3/aMmu aiJqDASlDWlkR/BFwASbPeLrt+QcjksUVwa537QjQC5o6gWRrCHxCC3Kr1mL p7m8uM4L03D6+UX5KiZpKzwX3YUNseFsYo+iiLQhfhV3WnY6wMPr59O3b/h6 3sywfwh7UDzdJDRiyvzl63Yc+iXvkVo9aU5AStrQ0DbRFwELXPZIu5g0PMsW aWUQNCSp7qDeQiJZQ+IRWiQXjeK1mbEOvdRUxUayklcRaUPsXk0ZzCF3yra7 Q0jaUG+8AZ8nph1Wb76N8Wo1mo7vHsIVDxd3jcA37hBQK0h8ikxoVTJCi7NR /9h0DfeuQ1wb7kGFLNjJtLU38uKMrYXEO64QNL/oOkQwM7T6AtLmrLTRldd2 fdYTbXTn/UTY5nPqdeIygXgc2SMo4qrtapSFBZiHd+KR6LUljX8xLxc1JonA 7knS0YvyrluXC7Hxw8hIoIi08d5jN5xE5hggbU5JW3lJ5uKRTdDApa/fmK0q 1rWSG6tfr2+IhbV/5zDWL1pc9EostQBQC/xOh4jdMJu52jk6uZjE7kkqbSaT SDqyoIC08eNWa5A7paZJm3DknAGHB4UXH985s1cAKmva1t2W/KpePyR97/L6 YUzsAP8yWzgy0kB4yn2cJwDUBprmYaEzlTNInyiCeVm0PnFIXTPKRmiTiKKA tPGuXS3VP+pS9c0hQalZfqTyR9sG+wmfXU/t+Dh5HaYe388+sOnTN1/21iCH 8fBoFx6TUYDpxaMrCk4kr5k3ZejrXZt5U3WbvxIaMWftz7n8ZrBcp5P1fNIV +Wlx4S+Zahur1qJt467ge8TzT81qVUt4Y6lmn+5X7+4VwAG6UByy/RbOQ4u1 hnh/P2kf1KoFYNCSw8T7LZCXNrTs1J16KTgDU7Qr/DbxhmCsgd2Aiw5fcucS Myvzwu8ZB1L3bFgZOVioR6yaNxq5bEvK0d9yLA/bzDn9S2ry3oTvFkWGv9ex vrgGyqdD30VcCbzz6HJ+imF007fpoOkLE5JSkrfFRVb9xOvJkCWpxWUP0xeF tamt0bbrvSPP6ikf/5VX9cH374r7ipvqLkTb+rU5sVvSTp7NuydbkXVF19nb krh1xSeCKkgeb9/QBd8npf54PNt4E6/cxHWLAJWA2kz/eftwfr2inNt6/pHp ZP0hUmnzG7U0t5ToOY2Ql7bC70eazPuEtGrlleONvMEe/Xn8UEpK4pbV0bND W0oWKlV4+QR9GPV13LbklOSMLMTe3yjEGDvBZsAtQ7zLhEftZgNGL9+bia3u j6ZzN33S3Zh25tPn/T2XEcUpL/lt4VAvDypsTmQn7vzWionKH8S/4Wv50gUf Q3ady4NzcwPk1zhD9K36wYfbcI9WRwcfK9L6QChtGk3X4YeKFNnfkJY2Wr9/ hD93/OCk6tW2HIeRxxedwWjAiX9qCV71277aP2xa1IrNe09cf4Dz0afpnLUf NjZuKn1CPsqQvla6+/H9kZJwbyrmrOXvQ4a0af0n/k/eS1x8fLJ082uTBtSS s+7SfAuwF75hSIOA2CvYXgh0MhTBxHsEJOtA2aJU0tLGd4/U1p3wP7doUGo/ KpI2vAa8GnEtLsJ4W6xFwUr3RXG3RkO1HpSKtUsrADhA5U9fmPqBYwy35Sxk Jyn7DIg88wjXUa3BSxt556cAwtLGf0EeVHhy9dqzqQkw4GbhJ+t5UKHxFyyu fflMJw9q2JcFNSIeDKgb3idpaF+Mx3SyOSROxSPkwkqb8kWphKWNGx+poQIH pVanrshqAgy4efh56Lam0p9Z141bIbf94qhyVwgAljm/oBdrPHHVTDF1WMqO hjRIm0aRlEgRRKUN6bICGcukAANugVtr3zdNi7U+j/t+/Fj292pMSwHADbiw rR/3AA9MuILlkHmpsQmnFC0Rffx7yrfbjhCpB7dxYoLSxo+PfJpakl0jIjvK AwbcPGj9ha1AfPqEF9lXoHHQzkLFLhEArMKPKdRSA+bm1oTeuxghJ23896Kp M+rbAlA2EoABt8D9LZO4HrNa6vWZ2VaUnK/0qRl+WsB9oE+vYycV+lDzT8hr gVDTISdtuYlvMQf2omb/Cl8KEcCAm6eyLHEo3x3FRqMApNKnprQUANwFZL58 w2lbq1VVMGmISdvFhSHMcb3fXgRbaSKAAbcEX3Jiu1HA37tnPMX9LrRnBFSH aY/gW2/FRXB+2Q0haSvIiHgK9tGEAQNuHlqfvfE1inuqbWWXcbWxGsqvZdwN pa4RAOyE1p+LDoaNm1zKzmzsZ2rtg2vOI/Jd+E+KL4KFBhHAgFsEablgq0/R 4/ylHTzt+k0AcBWmLGjYKVig4sTmSeMnskwYO+zVlxqK2op7PNmse7+wcdzv TBz7edp12adhd9AaqkWvnbequevLhYABtwTSJcbDI3yNtR44vJ9WOP+drryW /sPRG0o1BQIAq+jSl3Zg4jvkBtC4M8wrX7d5hyA76NHmea0DAyXLH/7wnjHu WYsK2014Ik/NBgy4Jcr3RXHZNTYCi2hLPUE7o+spw2vMRHjADaD15xcN8qJs tWUAiHF354wmRkOhTO/NmgwYcAvQ+qx1XbnPa31txo9lFM58ZO7Y/FPQdhhQ DY/vxocGGKMPLVfAzk1hrh8Z95xn1dZA+9q4zGrWCll1gAG3DJJgY+3O3Do2 5QVu/nvgu4eRbrGG0GT7dw5DzB5QFdxoWp9+U4+DgVUM06Kiefe4HFhUkAcM uCVofdqYZowD9umpm82PPSy5sWFYK26GjHC22qOriwO1/rN3w0MMqI2yc7vf 8ze8zk0mx0MfDCWg9b99FlKnyngq23uzRgMG3DJ01sY+TNqMWe1mbot3i15d A6TBSkODOA9IRQNUStnv2972NrzNQYtSXdCbsUbBDgsDXVMaMOAWoemLy4Yx Yfdey4+iOaElZ/bN6hWgbdhmTuqlB4cXtxYljpZcXdbzWS9oDQeoGHbvBupG mKLk6I6wX3MJYMCtUF6SuXhkE63h5nSJiElISt2zYeWnI//Z0JNqOGDCzj/v G4KOlWXH5gbXMd7AnjPXJO1KmPdGS027PgmXquVeFqg+6LJ//LjTs5Q3NeEA WF0iVJ5a16PKaAb2WXES7rArAANulZLsw7FR4wZ2auGjpeo2fyU0Ys7atOyH qKDTFfmHN0UOfyOwgae2UfMB4+bsuVz9bwtQHXiYnxa3bMfZGjBU2BXQlzNi 127MKoZKC1cCBhwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAML8Px80wyM= "], {{0, 117}, {585, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{453.4166666666665, Automatic}, ImageSizeRaw->{585, 117}, PlotRange->{{0, 585}, {0, 117}}]], "Input",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}, {3.751562948023963*^9, 3.75156294802419*^9}},ExpressionUUID->"74c7fdd1-2c48-4f59-8f2d-\ f4ab67fc9ebf"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{"A", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "=", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"W", "[", "1", "]"}], "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "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}, 3.7515630105061493`*^9, 3.751563062980873*^9, {3.751563109128388*^9, 3.7515631095382147`*^9}}, CellLabel->"In[65]:=",ExpressionUUID->"9ef3b9ca-f2d0-49a4-acf1-104aa9d7c8be"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "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}, 3.751563011162417*^9}, CellLabel->"In[66]:=",ExpressionUUID->"4c81f54c-7005-4ec9-b89c-35df314271d3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"W", "[", "1", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ RowBox[{ RowBox[{"W", "[", "1", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "2", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]], "Output", CellChangeTimes->{3.7515631388158216`*^9, 3.7517271788725557`*^9, 3.751730248595685*^9}, CellLabel->"Out[66]=",ExpressionUUID->"9ed2c12c-72d3-46da-83ee-0050ffdd4e8a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "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}, 3.751563011638714*^9}, CellLabel->"In[67]:=",ExpressionUUID->"9e6610bb-2d88-458c-9829-20a20e444e09"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"W", "[", "1", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ RowBox[{ RowBox[{"W", "[", "1", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "2", "]"}], "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]], "Output", CellChangeTimes->{3.751563140578517*^9, 3.7517271789389668`*^9, 3.751730248692462*^9}, CellLabel->"Out[67]=",ExpressionUUID->"60b87aef-2c3d-440e-af47-7b54f824db1e"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnQl4FEX6/3smATEmKJE/kGU5EpEj4gEBF0hAhCC3KCC4hFVAwyGnCkQj h9HAH0UhiIhBMAoEJNxBSMJCcCEoCXIKUUgAE44EIUEMGCbH5Dcz3T1d3XP1 UdXTk3k/z7P77MLQPdNVXfXWW9/6vsHjpg8dr6co6u16pv8aOjbm2bfeGvvu sIdM/+elaW9PmjAt+vX+02ZGT4h+q8s4H9Mfzjb9p5npf5j/dw0AAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAECtwXD1zM41nyWln7hV7e6vAgAAAAAA4LFU nNn+cpAvZaFzQg4EVgAAAAAAAHKortgxrDHF4EMN/7jY6O6vBAAAAAAA4IlU 3l4TUdcaVQ1adw6iKgAAAAAAAHmUHVo19NGH9E3bjkv8oRS2AAEAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAqAWUl2Rv TJg+7LnQRr76pm0ihoz6cEs21KwBAAAAAACQhCF376zuzfSB/xz+7ifJqRlb Et7s5mf2AQ2OXpFf7u4vZw9zYZ3w8KS8e+7+IgAAAAAAaB01wwZL7T99QGR0 eiF7O2PN/nEhtL96nzW/aM5f/dqRqc19KUqnb98r+QJEVgAAAAAAOEbNsOHS vlcb+QT0m57zF++P8xf0stSt0VP9Yy9oaiuw6PicjoFssUIqoM8bWSWai/sA AAAAANAEaoYNhtspLzanHu+bWiS8xYmYTpb766hWgzPKSN1fMmVX1wxsZkmj +T4W2kpPPyKbmBAAAAAAAEDlsOGvbW81pKio7YXCv6iuTBkYwGSrnh5/1EDk 7pIpu7J2eBudZWsyYmF66d3SfbMiH6A0rQEDAAAAAMA9qBw2lF9dElaPGvBe fpXNX906ObMBnS3z8Rn7pSZSQZV3/jcjnGIeTgZT+rnyzsHZzCN65O1NNzW1 WQkAAAAAXktl2dnUb5cv+2zxnDcnmRgzMrJ7RMTTHXssSlNJEq122GCsObX6 aYqauK/Uzt/9tLQNuws5IPl3jHeVifU5+N3XZzH7cAR/hT43QlSV5+/b9OVX yTnXQScPAEDtBdNYZ7h6Zueaz5LST4BXj/dhrMld/wxlh5AP96uhh3ZL2FD1 d3HB1Tv2Lnjt82HM7/en4n9x9/tgNOZ9Prqh+cvUidp4psL2A6ZHNGdQYx/z IxqY9IudD2DB8OfOsR38zclEna7zK1l3CN0GAADArWAa6yxnzH3pmaRzQo67 JxJ1KUgfEdRy8Jtxa7btzcnNz79yUyilMVaWFl7Izf4hde2KuaN7PjJ+VYlb vidRzL8x30Te8cOfDGjGBBV1qZgjpGZp5NbaCBuscMIqHRU64sBd0vdziunh rHqthc7xw5H0MQVUH17azhptP6hblk/gHgAAAO4Gz1hXXbFjWGP2Kj7U8I+L vejENrMZJBJ9aMTXv/7t7u9MEmPNjqH1maCiRcTWm6Rvp5WwgQMRVumjEtwb QpdkLOpWR9yvtj6iBkExh65j/yZV/41ryL4E9gVpAAAAng+esa7y9pqIutao atC6c14UVUkJq5oMGJ96sbarSspy32ukXoCtnbCBuw8irApfeZrcjVxTlhcX 4ishkmQekZ7qPuUk9n5admXdmG6NHwjs+Oq7GYW1/S0AAMBrwTTWlR1aNfTR h/RN245L/IGs6lVziAqr9C07TPpqbzH5DTG3Yzz6xVPsr37so8Nkb6apsIGF E1b5UfOOVZK6jTgM+QdTcy5L6HfG6oLMTQcg7AEAAADcAxNWBQ+eNGlYv44t HkKjqfqtnhoU/U7inuzrXhBQ0XBBhSrCKs2FDaiwqu3gjD9J3QcAAAAAaiNM WNV15S/MH9z7k9ZuF9/1pr1QGjSoaBW5qxZK812hJWEVAAAAAHgaNmGVN4MI q7wzqNCQsAoAAM/CaMz/bn7vh6neSefd/VVqJ5W7Y+8L+GeU10mV7KHpzkYk rPLU1j+5uot3BxWaElYBAOAxMA57On37nlsKPWvc9xxunonr/DDlU+exySu9 ulyX1jsbmWyVZ7b+za9Ge3VQAcIqAABkwE1zvZIvwIERkhQdn9MxkPLmQqge 0NmIbQJ6XOsba/aMCvLqoAIRVnmZe5s9jFXFh7fMHflcaCNffdNWA8a/t+H0 H+7+TgCgPdhpjmraelmuNqe52sWlfa828sU5t2IZ68pLsjcmTB9GX6RNxJBR H27Jxl+zxjM6G0ltFfbWJ4qNsMp4qyBzzUcTh5r7CeXX8LHeQ2YkrK/F9eBQ YRU5cwlj2R8X8nGRV3iLTHNUlmUvGt3Sh+ocHZ+8K2NTzGBz/SB/atLeIiK3 swvr/K8U27oJAIALo/H80uF+lrdj3K5C0f+qwlCh6rKtwnAP2/0qDQZ37ztV HP3qWXNxGRy1YnGMdYbcvbO6N9MH/nP4u58kp2ZsSXizm7lP4J765XU2N2Av rLr3Z+GZnzPT09Mz/pvz66VSBTYDOFufNKiwasWpgtRPBjQ1Rd2tR8Wa+kl6 WkrS7Oda6ylKHxw2LyNfofMClkEF+8ikjrlExfa3HbijKaBB87Ce/aNmxC7b lJFbgiHQKkiKbnE/4idWnPmKJY2pUjXAqrvbX2qpx/2Qgh7v0uelV2OWfpN+ 4qLdWpAAIJUbW99uaeldnRbsd/1mVJXn7fpyUt+nmtD22z73hXTtO25B4oGL t0nFWOUl2d/E//upf5reppCY7WWKr1ey99PeDXwpn3ohA8Ys+0HpRKCEom9e f9j8DKnIL35W8jWUj3WW2n/6gMjodKvzj7Fm/7gQSxNTfdb8gqtxpXU2d4KG VZZM4IiewQ/wRmN903bDZ32cni+z5+NqfdJwwqq6Pr2H9G1cl+o8bfnJUuRH 3/0jZWQbc5Co2OccR2jhQ/WLvYhxckSFVSSr9hAJq1D8AjtGzVi1P1d25GDM TemvpzotzuKSPDezopmLqyK6M9z8opMv0YcU1PXFeZsOeY8fHUAC+k0xETAg 5qTL4qFlV9ZF0QV8bQhsNnzp9/jtpouOfdC9Gbs8weGZcz17ShDyYqpQSswJ lXf2jAm1zEcPzcuWqVnBMNaZ96R8AvpNz/mL98f5C3pZrqKn+sdewDFPSets boYJq7rEbf1mXHiA3jd05IzE3T/+dv0vczxx73bu3g2zelh6ZqDck304Wp84 nLCKeV9GfX3Edl/YeGJ1V8sbqus4IlPBT9FiWKWWsIrbBDx3OmtvRuraz+eO 6BJg+/sebDp66cb9P591tgV44seMtO+TP18YM/bljg2FcUhQ5Gtrjl6RPOhV V6SNDqbCx+egy6FjXzzJPpvph9TYUjOUXEZ/4/r4SZ0eED6hkFEfbMn8KdfF FuCF3OwD6Tu+Wxk3a1iHfwoyYF5RjgoQUHZ5Z+yYDg/7Uj51Qv8Td/Qv1//C wXV+XxpuVs9SDerFn3BVKLa6Yt/roXZDKiuYN4zKr62kvx4yZI5NUxRX/b5k sPBLi/nt5CjMfNU8LOh0HYak35A+ZCsf6wy3U15sTj3eN7VIePcTMZ0sVzFF s4MzlGcJJXU298MVr9G37fLxQXuO32VX1g63ZGl8qIiFGXIiK4WtrwKcsMr8 M7snHLbfn8oLF7Hyo4HJl2TfjacvyvstJzPdMvHNHtSa53LP4BcQ8Vrsp0kp aelpWafyCGlm1BFW2afybsqQxvzf7KufkCTt5bEsAeY+/yRvOexXN3LO2l/L pHS5s+t7UlRk0jn0z9jhVEc1bp10RdLXwsael9G+oaNCB2fckniJqnu5yfN7 P+zLu06TVvOzCJaYBLSF4c8do9qgr0j7j7LkjMjGmuPv96Ej/fbx+10vXqor sj+fOW5o327thLE9Ck6tCDqkM+jrT/xWdhTJqx2M65qKYTaD5D06xWPdX9ve akhRUdttZE7c3oeeenr8UYUTldTO5n7osMoUUnZNynO8bmXiInPIMTDpFxm/ S1HrqwAirGoUvfq642/Izm5kUjrXjkxtzs+6yH3gku+sbtUeh3dnCUv4Wc6F jFXFh5InPMFbpQb0+o/4nIx5VAkKSy5G/ujejS+61GWGiBfiC+XVc1eIcFvQ x2fsl/IGc4sQgh9ZtfrXhgINvpMAfqoPL23He898fadtkLGrzYpmpYf3xsrS c0c228u+0oOPnTlaHsaaHUPr86+ubB+QER1ROK+pnPKrS8Iso5M/Nf2HUkn/ VOlYZ751PWrAe/m2H0P2PmSPVFbkdzY3cj17SuhDM/a5kP2fX9CH6UVNWyTm Sx+EFbS+CiDCKmr6QWdqODaswpTbdHh9lgd1y/Lx30WI4c81Pf2Yt+nxlw4Q +F3Osd0VVXQ0tezyjsm9/JGhT9++b+JJEUeGzQvS+wUBM1p9W7CyU4/L6SP5 z2dA8u+yL2ZVflqfzwOvLC+GwMoLsH3ROiUclbw6vPfHmsiGljlTviDZkPe/ WZ0CKSHYpk6rFIeHDzVxv7zRjdvWEeJuk8M76XFt6KFbsJ3nHKVjHfNAJu6z M5ujex9KRiozODqbdkHyOU1mbJLRNWW2virsG/MP5qV2rtau+ntdpB/zFAKD EpX1F7vkzo/gDTLBkbswxefG4lNfRg8M9vcNjZp3uITXPSuylljfpu4rT6nf dTGHVTXsqWFuXBXrHVf84+b0c7fRP8me0Z65RqNmiZfc81pX/TeuIfp0/Kn4 XxSEQVwUzU0Ns3/SvmIBUAo/WyVTlUFv/WAIgYqOzWpju61GdU7IURrj06oh ewTN3i5TTXj9WNzAriH+dq45MdOtAkVrykLi6K10rKv6u7jgqt2TQdzug8KR CmNn0yZcWk9HNeVnDkUit/WJcyc/riX9vVxt7XGfJJVHYg9QsI8aV06sqnzH S82s1+XVUbIuByi9/pnx2e4QCuAPq2qsxnHcw5RT6eBmzhTmEnr9yI+L3JTS YfWfzDehOrxyWFkQxKVnrdPNnN2Qr6r9VN45tDCqXT3LgdlX380olB4PYB3G rQ48vO6tOGHOni2yRbHUp7zkxJbPhjXlSTXcHFahsUe753b9IbdNcI116KHy 0BEHlJza02zMgIt7xUue5DrS0M3XZFwDT+tj5/zmvuzvcqHWvrRjCDtHE1Iv kwqr+MIArvmMNWcXDvaj79XiicRz7hkfiIRVNfRBlWboZaUezmV7rPw+jwGh VhaDXAHN0jPTTa+Zv7pFNgZ4FNwYHhy+VflZB2PNsdjugnffpRLDBYbb6/o3 pK/z6tSJTQQXV5w/qbERKLo9rKopy4sLYb6PzDMIGMc6RFhFG2vLBnNn0ySo 7Efm2hZH62Pn9rrXra+zc7U2shejOA53AKmwqjRnCrsq5DxGykv3xQ5q7ENJ UB+RgVRYZeLywfH/4C0tQ+eniR2yqyt2DGvMNIS8DC0WsAqrGJClBOaeBtRi kO1jeVIQO1y1IwUP+XC/7NnBcGBRW8tF/F9ccKHAzsWxKCSvrhhuvaD7wypU /CxvswzfWIcu2cJXnpZ/IRKdTXsgYZX8c3BKW58AhyY+IrI75S2ItD4BR3H4 X3sWRoZHIIQPGvPW4u1iqyPJDquMtwrSEuZE9e+B3juiR6f4I5YgwnpGNbDR uOXb09O+T17ywZguFkeyBg0HzVl1qtSdQS7BsAo5hcog3vmkwBrPuPMYNWZh lRlb/S2EVYBrOGkWRp22sebQG6H8t19PRUw5JW+rzmpXFUDNO/o3siFlRWkK hcG6MAmgFv+mgQyBxS2BRo75D76xjhNWKeskRDobeYzFp5eN7hUcUC9kwOg1 p127W/LCKtlelApbHzvc0XVXfrCoXt1xHF59dvebLwid6inRZnfywirjubQx jwg9r8xFM8dM3XKB7ZDmyhGJM4b169jC/ElzKZORr89fvfnEH+5fahENq9AN eqah7R4KtoETICk2ElQCdmGVieofPmrO7ywY7GWA2o21Ignu3mLTG+UnTG58 N8XiVsUdbrWREeqotoMzlPtSM27kOE8VKYKbnvRU75m5Ej1ysI11qLBKyXMm 1tlIczymMzeoimgIXlj1/IeX5YVVylofP9zumP6hWducTbboXsyD1OJcZ7/f cOXUF0PbCMSYYopSyQmrOM25tX10nd9MzJVkg+lWyIZVpsF27Wu8E0d1qXF7 XBUSRS1c+Bpa4/Xc1HQCxdntQkBYVWPHKAzPZYHaTHFW9P3sUKZgk84OnBqH RV6CovTMe8GWNTKdqqJBFvKKLi68Fz1xYCvOohzupQ6g4k9J+YEYxzpcwipy nY0ovOFaxPTNy6a6ikCcIr/1SWAtgeRqKr/93eR67OMS5fNj9du34ioYq5EV VpXvjuUHVVTAyIU4y0CQh3RYZaPfEBHSI6Ox4FC22UavhVpLVBthlSK5Ao2t wYIbBfmAh8ANgNgdg+1Yd8oREOZ98jzdrXlSHPT4NsaXiD0EpKFJHxmypH0r fGMdLmEVwc5GGCT7JGJbBKnbYmJUqoI8oezWJwESVjlTHlbdTRnMBi/oUsgp 6NkKkb9XclglqGYo5etpB+JhFSfIZHHl1HR2fnfr8+QF/+aVndBGjxxCYRWO hbbN8XN3O0UD2geVNGPZRONjW2dBcgmti+kv03mCwAbLzvNWr6x61goGeRWz canw0CJeuABS2sYZxrEOj7CKcGcjikWAfV9I514vzfoo87IrgQ23alY8CMtt fSIgxhFOwip0JpJQf4dzAmF/rysppuSwSlj6ShtbqxIhHlbZkVg4VWZyuVzh 86R7wqidKuV2+MIqHINM5Z2dLwudEiM+O+ppXQZQFy7fi0nyzcdGXiWxqk51 5cGpHel/aVs27u/tb9/PuziGc9yWUERz6xHOz1PEzggDxrEOl7CKcGcjCv3Q RLpsIVtgGAZhOa1PCCTbMzb9tv3PcJ69En2J+Sp3MVJMyWGV8KS8BhKA0lEh rOIqs3PP1vGQiOQweavm6op9r4eqd4jVRlilfJBhix1Y0et6TT1BwCoEqE2g WVMMO2i2cJaATFeXJN+tyF7RlX6pH+2+9ZrN+Ce8uOLjtHd/XxRqFnFp7eD/ 3U2TrT9RrI8ExrEOEVYpyecT72xEoZ9bcxEmkGWXFnVkhnephop2kdP6xLBG jI7SziWpsW3pd7ZJy/ij0kJwLoBkHp+L07hSwyqbVZ5HimTUCKtsK6U6SeAj OUA0h2k4tKQDRQ1LIVC1yC7YhVWX9r3aSFBn2WmNdaB2UG0wKNs65rKmhLQu QtW6lMPmLsvG2ZNXKRknDXvjNLcDaMZYk7v+GfYBil2C4RvrUGGV5D1cBOKd jTTXjkxtXkcfEZXmpIoBVwREVvkPO8hqfXIw50fsb59VnE550d8yATVpNT9L stMrP0wSdl1Xn3cdVtkGJFrwppOKGmEVv0wAjcPMHne8l8thWqyVqeAJa1wU dscHZmFV0fE5HdEzFDK7NOApGK6cXD9vQmQwo6ENaNUp6oPVR69LHx+4rCkx X1zh6ylBH8Ia0zmrNmsjr1Jw6opR/uipTq8c1lqal4uRRDux4BvrOGGVknCI ZGe7czFn88exUX2eamLdBGjQNOLlNxZvO3Rd1vc1Vhgq7E0hFWd2T2gfqA9+ evZGO1c2vZirx4bT26VNBr+dWYRpypbR+iS5s3+RKTI3LXYGJv3CPQNjVVH6 8gEWj259aK9lP8uZgDgLd3Fhj9SwSij19CjnNCtqhFV2Ths53Whg7dkDIicn 7/5+ffykTg9QwSPeE1SpJgpGYZXh95/mhPFiKn37Pkm/3va4/WJAJCX7PzeP XT73hUS+FLPgk7mjn23iS4mvOc6Dy/QqMOp0jvD1FO1Pez17Cl1Hpi41cV+p o0/ZjMPyqzVZdbZarFKHyk7E+5RiGetQYVWLiK035f0AUp3NeP3X9dMGWkqK 2Ceg04urJNYZMZ5a38vxDoL1jgHteo6e/f7KjTvT0zNS162Knzy0nUXqFxDa M8Ze0CUfea1PDmN1wbb3w00RrN8D3d+IT96Vnpby9bwRXcy9xK9uZKx8E3Kp 2SSpYZUwG0amADRp1Air7KxYXTxe03uRPG/8wLBHA/waPhY5/J11+4rVTEjb CKtkyhWQ1QF7Jd/2Ez456VZffYAoJRmLutUxLwYTfrzM9FlUINr1lSwpJmXI 5g5BfzO0OJrYsMpYc+QteunhyvTm5Oougndf3tTPPEYd1bLzhitafINQ2Yn4 A/sYxjpMwioSna3k4Kqh/BJm9pCYvad7gqtz95b82HvjhjIu3FSD5mE9+4+O WZD8v1OlBPIf8lqfKOacedzUYT2eaFKX0jdtE/H8iNlLkw5cVLSih7BKDOqE VbYbspp+XDbCKhlyhbLcAwmjw9HqHQFhz396IN8D9QqAWIy5Kf31drJS6GFY SYpWNNVD7kSMMDcrIqyi9T+W3aIWiflO1SmYHEetqSqBv5N2QPcvlAicpIJL WIW5sxmNed++GSZ06XOEqSO1XpYrqmEtPUGcg6WKuKv1VcY2YHBucwdhFY1K YZWGJZFCYZWUr2q4eSl7+9dzo+h9H4ag3mM+lishADwGc1G8h6kGD83LFm4Y FywZxPYFaYpWNODpnXQe7/e1It1bhvNb7rQ4y8VmkfBQthnJqnXD7XX9LS+l jTWWdkDGUl/9hCTV9DV4hFW4O1tR8mTBkS6GBi3btxSWe6PxHzLXdWBFp6ru d2F+qD7uan2VkRowSB1bcudH8D5PSFBKGLeFVRpW+PMX7xQV0Djqg2XO+Chu xqRJk8aM7PPUowF69l/51AvpMWTGkqTMc394TlktG0p+XRPzxiSNMH/5SQ2X +bm26j/3UVTo/DRb7TayQSCtqCu6PUfufZE69LGe6mL3NIUvlGmhMWe3pNjI ak6iNV8FBLSKuoLSvVLhCjcIy99IBWNnMxxe0Q0pIBfwZG/TSHjg9MVSa9BX 9Xdx7rH01R+N+Vcz65Bpemwuzz9aUlVia8uqiJtaX23QnykqYJA6tsgRJGgP dcIq27sQnSYUIRRWyYQuqD1v+bceHVbZbTg3otE+Y6IsLy6kjn3Zz72iJR2s uUtJ9gXIGT2Fdk9OkTT0WTY6ma80aa+r+p4WUFcf5iFIqmx761zcY5ZXUsOp KjOcSRfm6cBYfOrL6IHB/r6hUfMEavaKrCVPsY9VkZIfY2e7cWJmMNPh9W27 z93kNFFfWXby63e6Mqaxeqr7lJNOXnE6VVXH2REJt0Gs9bWF0InOxcFeaWEV r1AjpeR4i3uBsEqIjbBKQom0e38W5v2Ws3d7YuyEbo25XcCg3q8u25d7R8MT giOMZ77rH+BScaoS+kfar9HqIpCulhUyd4+dCYRXcVjKBgGqSiKpMZAw9CHF 5RtFr74uqjVsV7jSvNZ/X/4SnY6xmwnUEJy9J9bNi6ryHS81sz473vYc1xx6 /TPjs5XkcnF1NsR1P3j0BznijudYbCVcnyrVaqrKAqHW1xo2NnfOTzdIC6v4 hRqJntMhijphlc1y1Yw2wyqhsEruws14q3Dn7EHoseLgYbMznJjUAZ4LXbfU Qd0Kc81cBAmyInSgVnJw3hX8oc/ZCpGNcCQexyvNmaKjeAQGJYpcrDAFB7V7 AJAD9T7FGAbz7ZS5/mOsObtwMNMcLURYizsHU2djzzJQwdEr8ssl/MOKo189 a+4ker9xq+yLD7Wcqqoh1vpaQyiVdOHFIS2ssnEOD0v4mcBvIA5oqwTwdSDK vN2MxrzPRyNBmtmxas2vDuo0AZ6LOTHuoCSouWaudU9ZRwWHbxVvwqfWtgL/ 9XS4Tclt//lQg9adkxDiGG5+0Ymf8/Shph8SsTduuJ3yIpOo8YDqmeg+GkYb QyQoDeg3PYdevZeX7oulV22mUaVvokTfJztg6WzsyYKAkQslxVQ0lqDdcaon f8cLmk1V1RBrfe3B1Qene4vT1Jw0gQFyptWMhs+1OcdtYZU2O56NY5XSJKSw vDKucgmAhqALCts9k248+sVTXOs7LTJu80+RvTOyYRX/9I2DsArZ/hN1YovP vjH/EAwAYvbWb2x9u6Xl50v1+3IPfL96bMtGY83x9/uYi60ENhq3fHt62vfJ Sz4Y08Wi9G7QcNAc+daOvHvg6GzVh5e2U5JXLL+6JMw8/NrN6B6P6WyKqiSU n1YZQq2vPYRl+5xWkpIUVvEt1jVXTl08bgqrdFTj1klXsN9HMUqEVQ6w+u1Y f7v/vz8t0OaCC5BFyfZ3Q9u2WvmrnWWCeS4QN/7YoF5YxT99Y38pwW3/ifYX QkEsJhhcOyOxDuSm5xa1vVDqHU0Yrp7ZueLDiVZDSIqq36pDj8Ejpn+4PPXY RfxaR3ITa1V53q7EGcOYH0Ifh5m/evOJP3DdAkdnY2vxKFHOW8oE2zMhKc6K vt9ZjST34zVhFVrL0uW7LCGsstlelLII1RbqhFX8cZvSSOEkW3AJq/gXtfHt 0VyhWIAMpSdnNkb6vLRKduhMR/ZEDP/19PWdtkEQIFacXN+P3sTzoSK/+FlG Xt5mnHGVB668s2dMqGXvS84yxHjrwuZ3R7WrR5lLCHXtFzXeYtAx5uXw5twv Der6wsI0rAdJ+OeYPGpixdHZzLOt4gyDOXyyUyzs/II+lDaLFlnx4NaXDN0c 3MjmuIqohLBKcMbQ6eEFjaNGWGXHD1ADZb7tgVNYhWCzVNc/OH2jdOkB4GGU 745Fo/T2H2VJmRTUcsKxcRQRekRz5p96Xa+pJ+TUOLY9DOjiF1m3/2Qkxwy5 /50W9jDlHzjo/a8PX/6L98yrygsPJE94gq3R6VPnsckrZaiAHKGOzxgBcHQ2 iwYsJGa7oqwqnfK6ny8RMS9PPGBLyGNbXzpmnRsvBHKUKBAfVglDNbtSVQ9B jbAKPSLB4qhKpjvBLqxisXnIzsJ7oJZQXbFjGJercnRO0DFqhVX8zQvhCGCs ORbLKlQb1Is/IXeZwR00cz3Actt/YlzcBRQdm9Wmrj6017KfHZ8NKLuydngb 69lEefpqu3jsxKohN0u6hg6qvrix9jXTuNw+fr/Gp1mPbX3pGGvOxEWir7Oj WkJiwypr3XYaufv+GkGNsMpGsCR9ilEFAsIqGqHGr3b7xQE0BWh30lMvxBdK 21jh78uQ2zS3UUqgM4LV3lz29h97IcHayrG60vDnjlF0zCNdS1Ndse/1UKrJ PxafcvWwrh2Z2pwbxvE4YvHXZR41sarV2cR8k9z1z6Amk7SOXeNOsDUe3fqy sJr00jgwBxYVVqFrN8vHtFbwUSoqhFVCwZJW83tEhFUWbB4yhFW1n6srhqNN PjD5ksQLqCVZF+SR0CO6SNZIxuk/HrZKgABq8W92NkULVv2nIfuB2YeF1RWd Qx8PEZnWoIsNMWCZtT1YtKze+QjXmA0nOR9+y+lCx2ZW2sGDW18m/BJFOl2H Iek3hG+0mLDqzv5FHZDP6B/vm1qkXQ2dGFQIq2wrgmlTeUhIWFUjPDeqgYEL II3ArkqOLIRetpPvMOc390X7ptXJ8N6NdYOaMXeXdfpPgK3Hgu3Uw2njZWWQ GEcdn3oh/f69eF++i+CKn53ulHBU6aDkwROrWp1NDGaXs7rM8KtxC1AUD259 +dzYFRfGLU6ogOHvny3jvUYuwyrOYJ/+QJNW87PEW/uxVJadTf12+bLPFs95 03I4ZWRk94iIpzv2WJTmlmYgHlbd/X1RqC/vwWrTLZmYsMp67hi9uLSaaICn wberklsgGDW+JjfTHfsCmQ3YG3EO3ubeOjDpF+XZZVvzulGp/FiT08bLMqri JcR0VIuwDc4tjngmpTheSXRi9TifbXU6mzj2vNyACo7cdYveSXdVKFAjeHTr K6AkY1G3OtxLHdBncmYR11rOw6qSg6uG/oMLD/TBT8Uflh5T8RYFPFy7uJCB dFhl2BvHlxVptbAXMWEV/5Q9A4alsTqU/Lom5o1JGmH+8pMe4mOiwK4KAZ3p iPm88UcAphQFmpZvPOZziaow+9hWsOINNdUVP80MZ/6iwUPzsqVt/5mx0d67 zBggGmNpZQrto1YNRyKo0tlEYt44qG9+gHThJ23ubgjx6NZXRtnxbRMeD7S+ d/q24fGsdYmjsMp4qzB1fpTZAoWlyaBp6bKLuxkrSwvzTeQdP/zJALaApvtM 2smGVXQKF32q2kxVkRRW0UV4eWhTsW8PuzWy3YhnpNYFdlWyT32qsv7lu3+Y nU9ucpIqnDqHyt2xyCBqBl1Lso4KZiSf/mM5NPER7uqNmiVecvHNeWGV8hQN GpnQyRYPQkvJFvNcHEAtO2MRqzdpl3RZi1OGEI9ufeWUlxxMmBHx/7jUU1DP UfNW79oyHTXDNgUAz63K3Jc0b0K3xtwnA0J7xmw8dB1LBGSs2TG0PnMvknVU nUM0rKrIXsEzGFd4mIgkpIRVbDkGtGt50DEH45nv+gfwq7m5D/0j7de48eC3 aAR2VXYzk9XZX3VrQcUfd/o2oLtaIovoSSd7Rnv0ITedtmb1C+xyz8HpHlnY WldxvqOopEqRNr7o2AfdLVVdAhuP23TGxVDD2zTEYbjKqdQ80EFFlc4mEnNY paOm/f+PQj1CrE6jvPWNVcVH076cM3VY76dD/Kn6rZ4aFP3Oqv8hEsFKg0Hb 45/xVkH6yg/H9mwdoBcxoPs1CBv5xuJtmAIqGu5csw81/ONiN8XjBMMqpIgY hgGTKMSEVUXfvP6w4PkGNl58RptPAcCBwK7KwREzczDj6zpHjcq8hUokPN+W Zw1tonHIow+yp3s6LdiPc79eoI23hlU3z8R1ZiRVVIsnEs8pfTvuXMsvviti POU5S2Bw6EUKxXqkeJJ4ZxMNfcbnkZAQzxCrW1DY+oa8H+Kff9Lf9OoFBg9+ a0HyrvS0lKQY05/43ddncUZpxZ1DC6Pa1fOYkrJ3Lp89tHntp3NmRv2rGYXy YMtB0VPnJazekvljoZiXVCKoqFVoa6wipMIqVPKKb8AkBRlhlfG3HS8K3eWp 7gmHPWsVC0hDjF2VeULXU4+/dMDVrhO6Q0eiqlRNeeGiNpRd8C+ChI6gFtvJ cqtLldoegLxjBTgqZSBjKWK75DkQ72yiYZ+kqHdEI8hvfaMxf8O7XS0b5AG9 /pN6EXnrKsuOLxjm50NFvRMTxl7dvRGvVCSVWlYOd+jefcKqGmJhFaqUsHSX OjMOyFD4qwQRYVXR8TkdAyk+wdErMFbKADTIza9Goy0emXTO9jO0PWzQ7O0u wxZEj2SnVB8GijNfoWwxjX7/2lCAe1Es9B31ofrM3/p+nwfY///I25tuqrYQ N9YceiPUOg9iqeGLhiW9k87j+JaqQryzicb6JN11kksGMlvfaMxb9VoLy7oi oM8bWSU2P9dwe11/ZHbCJ/pVB1XDKi737uZSR/jDKmN1wbb3w9EtNf86URtd 6RzcCnZhlbH49NLBXHUMGvtvDVCbEOyp2VVNs1XPZv8kopNxG2ckSorY6p2Y oXvcLgJZI5uTepR//fqspCqg3/QcNY95okXN/KnpP2DYaeI20dy6UpYP2c4m AWYu9uNXBtQ28lq/ICnaElPpqBaPJV2y/8QRraadItQaR9WwChFWubfoMOaw qrIse9HolqhcTYx21L3wnBsp5cIqS6VXmzzViPcOQ0xV6+FFDg52AM0Tup4a 8F6+mH0CbqAgMiLZPenZKS6tlMSUahtWWQdblRUChtspL3KSDzwSMs4FS0c1 DUsuVn5F1SHc2cRjmYs9SvYvq/U5l3IfatC6cw6nBy6l7E4ZtjxUDatOru7C 3sm9RYdtDMCpsISf5V2qNGfrTPoYjnVeadtl8U/a3ftjuLRjCP8JyBdWlZcc XPpGpwf4l/Ohwt/dcAH2/rwBfuRgZwujuvLg1I6mLiFWyYOmvxxUe1FC7vwI wetP8FwJd/ZZcEsyyTHHoAdJsO3Lc3Ofnuofe8GTNmpYCHc28dDGFx60Ayin 9bmaeq72oJFowY0ybHmg5afNkPTu4AQY7s1zVt5NGSKwqvTVT0iStgN273bu 3g1z6VMMXCzh035sfFaxVjXqVoSVuGW2iOH6+czVC4a24Xch2hjNZRENoNbA r3xnG59bKhdLc9hAFz5DNzv3DZeIMM4hXo1LOMaaBwoqYvEBNf2BK45+9Sw7 UmHUOiIHwTwqHuBDsLOJhz6X7VE7gDJaHy1J6dzv9Pa615nPedzmcumZ94L5 /jw+1LAUTD7bAow1e0YF0eOYmlulxrI/LuRbOHc6a29G6toVMUP4sRDNg01H L/0u/fDxvHyH5J34MSPt++TPF8aMfbljQ6GvUUCHvgtZk1Uc3xufm8e9PwuZ H/BbTmZ62uZvPxzTu7Hg69elhn+6LeuUk19Pc+HkwYz0HRsTP/pg0qB/NalD CQlsOnrZjvy/PHR8BWRC+0LbnZgs1a/qSFWDoyN20JzdOLMgd/LjWiI9tkFQ zCGyuWXbsKrxK0tUPcRhdTr10XV+KwnjrbmVsg81cb+HnF6zgWBnE8/1rGg9 DtN7FZHc+mi84cq3ljW5dae/pXO40IKdW9N3fLcybvag1jbLKBN+ARGvxX6a lJKWnsabZ6/cVLTlayOsMt4qyFzz0cShz4U28qX8Gj7We8iMhPU51zGneog7 ZvvUCxkwJuH7bIzuXjjdPKrupgwW+p2TIKjrsHfW7ISAyku5cWImO2ByZ/2M VUXpyweYJnQZhUS54YKpLIMNdPtbFateflil0z09MlNNwaH1cK7/w4MS9uLU j6ErZbceQVIKuc4mGotC282aeWlIb/3b301mD13qqd4zc528eNzaR7vCKhyh heIWR4VVK04VpH4yoKmvvmnrUbGfJKeaw4bZz7XWm8sOhs3LwLl/RCSsMgWB PfpHzYhdtvH7o5exRhLY3TwMJWuetRc8K6dB87CeloewYXvW+T88RWUJEIKr yW5Zly3+MDaqh9l2WLbUkDNCF1GQRTyor4g65gaIflV1mXrZlZW9G5rv2yR0 RupZzAEkVw9OX3/itx5SuNI+hDqbxC/gZocHaUhtfb5jsItNQ2Tto9nNZS2E VVzCsK5P7yF9G9elOk9bfrIUeWB3/0gZaTmeTz4tr1Fqu5sHULsxXDm5/t0x 4c2ZMD6gXY9xC1cflZt/pn2uaDAqXvIWMKrCgAExJ1XZcOHCKpVHtrIra4eb RlSdvn2fpF9vY5+buAbyocameW6uygyhziYWNl3mQdpsya2PFmV2tWn49/a3 72c/Ozb9NrYvXcvgEoZ0PFBn1NdHbtlEBMYTqy3V9HS6jiMyPcqnAgu13s0D ACRAwo+F0aurWg6DCatUNrJjYirTAm1yZhGR/BhrfKejQgdneHqNXbea/1it 7z3IS1xi6xtrctc/Y525XLkxsMlDHdW4ddIVbN+5toFaDTspZYIUlRiYfEnd r+hmvMHNAwAkcXZ+d5HjsFhopx0ZWi8F0CV0VT36x8ZUwaM/yCl1OEbkJ8+b +ME3F+RtOyFDesjcPR51Uss++DubaJgTHx60+yC99ZHNd1cCtntFSzr4ivqk l4MIqxpFr77uuO+w8k4vixm8w80DAKRxLqUf29txrbMKMxKTj6mqMbh3On15 ykEiXqN2oWMqfZ3HJq90dujP7Nf0kOxh1rA3jtkDepBanOshwYBzCHQ2UTD+ JDoqOHKXhyT9ZLQ+okRyZT3NCav4dQaN1QWHdh6+onn/IrVAhFXU9IPOFm1s WOVmw1uV8Qo3DwCQSnVF2uhgZrkh0qHdy2FiKipiYYaLQM6ScJDpJ8C1izQ7 Mk3jrs52ld6A8KGe//CyRzxJWa2P1F50oUJHD5XwdG6XzfXcPbHuJCHYykGu PChQX8HAoEQyBlqao3a5eQAARli9pdkBe95RZUUraz2Vd/aMCdU94Bu19rhL Az3arEnmJGWtLegnrsijh+CWzmaNIjR75E2InNbnFeJ0XiqOK4LAN72nH5QH 2aWSRbwHBerUR9LvXVPUMjcPAMAJtzSmmszY5DUJbOlU3jk4O9KvUatJW10J 46v+Lr6Qt3N8R9N4M/2QHOXK+QV96Bbxf3FhrUohuqOzWUvee8qRN5mtj5wE dBZWXTsytTlbZ5BvjmrWsT/+0gEYAmi4EuGu5EDcpqrXHAGodW4eAIAZ6+o4 sMGy8x6xTaI6lphKUJbTNfJ2BIqzounT77Uyf6hyZ6Nr1njQfCe79Y01+8eF 0NmDB6dvtC/6Y49aMKkDdFf07u+LQvWc1bDXI14OhGyqepiNv3zAzQMAnIOU sISElR3kxVTyxlikLYImryupfUGuyp3NohdyvU+hEZS1vvHU+l70j7WbdKJj Kv9Huz/djJ4OUWW7WSTvUxvDeLlwciBXB1etTn1uMQ9xB+DmAQAisB6VrZUZ EiUYa46/30d6TEXJ1EgzyRwd9Wj3rddqab5cxc7mYcIqha1vNJ5fOtyPsmOy VHZy96zuzfRN2r2TceGvA4va0tGX1V2h7Pel4Q/71ZrDEcqhjWLop9Q/9oKT x4Lq1SkqfOVp9b6k+wA3DwAQg+HQkg6W3u8/ZG4u7ARYuVe85Ek5QZXw9LoY Ku/sfNkiPapLRW0vJPSDtIBqnY0RVnlEoWosrV9Zlr1odEu9+Sd3jo5P3pWR unbF3NHPNvGlmgyYuPU3Sy2A6ooj71myrz5U+Mwvd21LnvNca137XskX4LVn Kc2ZohP3FjPpUAu1xgvFFeDmAQCiMNacXTiYXuo688sFiHFj69stLQOQOrUU 3Yk6nc3qWOUJhaoxtn5Z7oHE2PEDwx4N0FP1Wz01KPqdVftzeWdXjVVFBzbE jHwutJGvvmmrAePf4ZXHBW5mRbNxg/NjlciBuFrkheIKcPMAALHcu7FuUDPL dnnrZZCxUpnLB8f/w9e0ptM/Mz7bo8sqi0SFzsYIaz1B8eJtra9xkLBqYqbj zll1N2UwGzV4kXwC3DwAQApFx2a1MeteAvpNz4HhXTWsMUarrkl5XhPQku5s 9Bl5H2rUTtWLO0vCO1tfyyBb/07CKs6HzRsyzCjg5gEAUqg4s/3lIPO70HLK Oi/JabsZRhWvU7mWohYg2dno80o6XccRmX/ivTJWvLj1tYuxZs+oIDpscOgJ gJjh6zoMSb/hTboJcPMAAIlUnE550d/8Krgu0QIoxGjMW/VaC533zqoEO9u9 4v2rl25Qt0KlNLy+9TWLVTTlyAu0JDW2LZ2HadIy/qiWA3cigJsHAEiFSSNA ZEWYkrS4jl6fqfDazgatr12Ymnf2Hc+YtYA3tx24eQCAdAy5/50W9jDlT03c 65XjBnmqj63uZhpxQnst+9nbn7AXdjZofY1zZ/+iDpawYWDSL1xgZawqSl8+ wHy+wOvbDtw8AEAGd4r2Jy3d8ovXpbjVwXgxK3HV+lOl3qTKcIKXdTZofa1j rC7Y9n54XYrye6D7G6awIT0t5et5I7oEmIIEv7qRsaug7WrAzQMAAAAAANEY rpxcHzd1WI8nmtSl9E3bRDw/YvbSpAMXb0NEBQAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABA7eL/ANZ59j0= "], {{0, 118}, {797, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{552.3958333333336, Automatic}, ImageSizeRaw->{797, 118}, PlotRange->{{0, 797}, {0, 118}}]], "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}, {3.751563181189541*^9, 3.751563181189848*^9}},ExpressionUUID->"a8e0705c-4c0c-4b2b-b63e-\ 5a227e25e692"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{"B", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "=", " ", RowBox[{"I", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"W", "[", "2", "]"}], "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{"\[Gamma]5", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "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}, 3.751563012636648*^9, 3.751563064099186*^9, 3.751563211211494*^9}, CellLabel->"In[68]:=",ExpressionUUID->"c2775763-4bc5-4057-b0d5-4e0d9097557b"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "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, 3.751563013219215*^9}, CellLabel->"In[69]:=",ExpressionUUID->"6be2e42b-3f90-400a-903c-19937fd9fbde"], Cell[BoxData[ RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"W", "[", "2", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"W", "[", "2", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "2", "]"}], "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}]], "Output", CellChangeTimes->{3.75156350277843*^9, 3.751727179034285*^9, 3.7517302487949057`*^9}, CellLabel->"Out[69]=",ExpressionUUID->"0477c8ba-56d7-4aa3-8413-54ef9c965bbb"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnQl4FGXSx3smMWpIQJAPyEaEIGfAg8sVkqgLQW6RQ2CBZQka5AYFiXIa N7AockQEDYJZgaCE06BkghwuBDVBICjEhQSQgCQcCUKCkGvyTV/Tb0/PTN/X UL/n+b5nNzv0dPdUv11v1b+qwsZOGzTOimHYjAcc/29QTNzf3ngj5u3BDzn+ y8tTZ0x4bWrsq72nzox9LfaNZ8b6Of74tuP/ejj+A/6fawAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AACjU3Unf+/mTz5Nyb5yV+9TAQAAAAAAAERS/sdXMe2DLBiGWSydR2eW6X0+ AAAAAAAAgBiqDy9vg9HUsSTm631CAAAAAAAAgBiqvo2vTzlzVqzPnPwqvU8I AAAAAAAAEEXppQ1jujasVa/DP9/OKADtHAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABPaqosNb5w17IbyBvzW0 eZ9xczb9fFXvcwIAAAAAAACEUVmatXhUUz+sc2xCyq6MzXH9a2EYFoRN2FOo 95kBAAAAAAAA/FxIjm3y4H0jvzhZQf73ov2jMQNNa604uWN4RERyHnQzBgAA AADAlKjtzNhzU3tbsU5LMsudf7qeGUsO+ArE5h+tVOl7hXL5xymP+jt8S2u7 bilnwaMDAAAAAMBsqO3MVFekjwrDIsZlo1G4o6ufJN05P2zaoXKP/1YDCo/N 7VAPownuMTGz2K7n+QAAAAAAAIhCA2fm1MbnMSw6+TT6t9+W9Se+0II1bJl8 SeEvFEHp7+v6Nia8Sv+24c2t5E3oNS37ln6nBAAAAAAAIBxNnBnccwvpmFKE /OnutdXPBBDfZsVeSiioUvLrRFB6af2QVhYiQhi5yFZyu2Tvm9G1iNMKi12V f0enswIAAAAAABCINs5M5c11kQ9iQ94vQmJ+9iOrn6LjgS5RO+2oLPvv9AiM uvyMkmrqjwdnUTfhsRmbr1frc2oAAAAA4FNUlp5K+3xl4odL5r4+wcGYYdFR kZFPd3h2cToI1mWhoTNT9P0W2+mb6F+yprejnLkGjZPO6yFUc15p4P09ltCX 7/I/oXdGJaru5O/d/MmnKdlXwJwBADASSqxO5b+f/Grdh8m24zdga3yvY6/J 3fgc5oZm/9oHanXp6OvMXM+eTLqMmNU67P1C7R9zuz3vo1H18a53SOMUFMdN mNuvoR9+E/om/+LmA4pQ/sdXMe2DLAbq1gIAAICjxOqEN0wI8SfX+s4rssGh u9exV5YU5DvIO3b4gz6NKWcuAIv7Ua13rO+jtzNza/sb9Wm3fNCWy0ofng/H 5a95pYnF8+WL+pgMqg8vb+Pcn9SxJOar8B0AAADiUWB1qq7YObghfQg/F70N cE9jr9k5qDZVC9kkctt1vc/HpOjuzDDPuAULZddHaEJxxuKu9wm7LudNqBsS d+iK4mdS9W087dZasT5z8vWqBwEAAGCjwOqEq6YDnN5cvw2nwZsDKEpz5zQA P18u+jszF2zD6FWi9vjPtW4HUpoX38xfhI9K3QQrFjU5R3F1W+mlDWO6NqxV r8M/384oAO0cAACGQYnVqfTQmkEtHrKGth6b9J26ImTAVKC1kG3fO6z36ZgT Azgz1z8d5dyvxaQXK3NQMZTnH0zLvigi3mivvrB/8wFwtwAAAABANpc/GgzC Ofno7Myg7eYef/lAKfI9V3LTbFlQ/QQAAAAAPkt1ZWrfYEpw1Tx6lw5BHUAJ iPEQJCGzdqA+It5quEn0rhu6nRoAAAAAAOqCCOesI1eAN2dSTi2Iopy5YCzh RCXzP+BRO9dWwwAAmA+7Pf/LBd0fxronn9H7VHyTym9m3x/8yEhQo9WAsZnT GHLWPkNHdSI+/lnvswEkwRQ6WbHuM3ORjK/9+NouGDbiK82blgAAoCBU10qL td3zWwtM9IIxFddPxnd+GPO7r+2kj+/pQYRgbDWmNAZGPx+IzT9ayf8PAANy PTPWbTFLdcXeV8Ox8P4ZkGkFAPPCvF67pZyF0iE1KTw2t0M97F4eLQ3G5sRc xmCv2T0ihBLOte6f8Yfe5wNIg8mYY+P3Mw9g+aFl7TFscOpvOp6aRtirig5v nTfshfAG/tbQ5n3Gzdn081W9zwkAlIB+vWKhLRNz7+3Xqzac3/vPBv5KvsTl r053irO+WDFtMHmEVpEDRvxrqzrVbWY0tlvn1g1tXyuwdtT8LUV896Q0d3/y ysT/HMwXWrSouDGoB0c4Z79xYf+698YPws0GC6zftvuA6Ss2Kj/10mHeR/du fH/O2EG9OjR5yNkhG6v7aMfne4+aFb9ud9YVKLEVjr1m39hm5C2MsVEjXIkp MFjYa+sKZDTRtZdePZuvFHkFN9RZHypLsxaPauqHdY5NSNmVsTmuPz7oLAib sKdQla8DAM2w288sHxJI2PPYXQWC/1VFeYWmYtmK8ruKfV9lebne+b2KI5/+ DR/CpcR8bdmrU3nunjejGlvrPTLk7Q9S0jK2rni9K24QKjgY0oxNb/BaPzIk FcZX8Xdx/+gHic/WC0kSHORQ0hhUBRXOrTpxIe2DPqEO57/liNkOs7GlpybP eqGlFcOsYR3nZwj2Zr1TdSdvx4cxf21sZXw4zLHd6PrME40CMBRr0/YTVu3M v2UCBb8ia6fcg1w8OO4v+CYiOHpSyjdfb0yY0KkWFjZ0zuFiWWdWsWMGpjiE 0z5y+uzEzRm5xQo4eBeSY5s8iHT8K9o/mni6NZrWeuP08gFPuVivutR95Lnl +4y8rgBKcW3bjKbEb95p4T5+W3asrrs+mdCTtka/+5t16Tl2YdKBczfVWkbv FGf9J+HvTz3iWM+bxe0o5f8HPBTvWdq9rj/m90CzPmMSv1PopSOJwv+8+jB+ D7Ho1T/JOQ2ZqxOxK7cGR8fanC2tnJt3P6zHul8U/GXFGZtBQHXjT487Uu7t s4y0LBhb8j8Rd04pY1AV5uoC/LoP6NkwAOs8dWVOCXKZt6+mDmuFe6ZKzC8o /+2Hxb1w/xB/WnuNnL/mi8yfzxTdZr6uvPhSzrep708a1OZB6rys4d1WfC+m mZseKOHz+GG9Zp+T94a2X/k1Zf64vh1bBAfWbxs95K0Ne4tk3zhV3DmUwHod Rk5fsy+3TOq123NTe1uxTksymefYqSTUQg5qrzmx9ml17xEXf/+pm0Dn6vOQ tu0guE9czm2+T5de2jCSHOzOoV7jIcu/lr8auFJ49N0o58ZciT5XV7Im02Pl cVSb6SyIyrLdY8KJd99D87Mk6pDkrk54ps8vuNe0bPaMn/yF3YhDWLHes88q tK8TZ2zG4aJzFpK/9bXkP718Eu3JFj70gKhrVMIY1IURzlHPzojPfuSm48nS SHw30WHofhnXQewyiBz0wBkpRy95f0jL8757t0dLqxEeagEYxJ1TAybZevrn zD0Zaes/mjf0mWDu6dcJHbX8i30/nfKWaj3+fUb61ykfLYqLGd6hvr/LAUKi X1l3hMcq3FBdkT4qDIsYl41uJo+ufpK+qdMOed2tKULlrVMHbBQ7v0hasdTt LbK2fj5u5fo0mwAcdykpMXH5orjXRvfr1CLYyjkWhnX5+BfVrwvQl9Lflkfg Mmys7gMJx729pnCIoie3rpwThXNzdy5/TJ4esobJHEZDZ80QhFy7ehTs/yee GbVY2g+wXRMfBpO5OpXfTB34KPZ4z7RC168+HteJOITDhe6fIT8kWiPS2IwE MgAX65PiNYF6I2dmXerWS+nJJtMY1AbRzztMK2rFYfe2dadgcSvqU31Tzkv7 KsqX8+AxuudOyd43o2uRX2xsj44lMMv7X/Z+x2v9y4/jZ/VricgCnQQGR74y e2lyarotPfNEHuPuXLquvuehBJW3Uwc0ZF8S37aIy92buXs2zXvxSVYwITAg eu76X0vFPClE8+To5NPo3xgpRcOWyZdEnZZCoE8WSR2/BKmz3MrOH/sq4ZVw djJ30BboPOPT2GuOvdODXP3aJezjX/qqK7I+mjl2UM+ubR5x5/5TKCn+4Rq5 zFHR6Fh5pY4pGyrLJu3WyVudbm1/w+GojNzB0bAxUSb+9KIgxBqbkaA9W1zv l/CL118IkZZ1XPGThO+SZQxqg1xdg9i1Vzyf3u7hpFviJ7Eb7Y3T8W0DpLhk d69t6NeYOkXDBjm9cPnHKY+yw1B+WN/kX8z1vHBhpsLJezrwiphDKa89wdrj B3f7R9o5oZ4PvjaGdEwpQv6EDjt7KUFOGYh0mPg/9UpyaQYogdJjm//uzENp E3UE9INWX1tEdxmyV5ac/nELIZ11Q4A790Aa9pqdg2qzjy4v30qJyjAljymf O78v6xhAegvTvisR9U9lrU749z6A9ZmTz/0MEmXyi/lEvq8r3dh0BxXOtR99 2GtMAZGWSR1mKsMY1Aa9umkHvSkfaXdOUmjXXnN0Nj6wgKUfEM4523Bqx2ax dBmdqeM+TRL0raOpY0nM1/ucZMNNLsvK/ZVe3DmpWxCygFvb9UzKEVDIjz/L rgMv7EdWP0UfyGVfrBlo/J+k2b/2yY/OX/tycgMfsiLAI3evrosmLEiG1r08 779vdmInQzElX9lOqRULP2z8PmnJP88aVL0bopbZ4luRDoNL2tQ7slYn6m6M 3+vGZ7D/sJxOl/GlF4WghLHpBrNx5sufoj3ZmkRuuy7xCyUag/rsHfMXQVdX 9eeG6EDqnokp76XI3/kSRtRYdeza4++vrTkiup7izMIezic78sMj5gpt5S6I ZK2lvJXUZkBhd66GruVn3g5CO1gWfb/Fdvom+pes6e2oYzRonHRen8WJif/L fcexodJbPmJFgCfILJsCrlfh0Tdbuam47rwiW26miFSFucNlYLQIrhyN79ul WZCbY6K9NHXAGZPBsKiPTwhfU2StTlV/Fl343W2BGJMc4U0vCkAxY9MDdOPM M9MK6cmGvfivi5Jvm1RjUJey/Pim9NV5T6Eyn5QSFmBmiZI2ExaxTaxDd37n AOc/N5vJ0SVI9PkrpVzVFeXduRpn+0rmXkmZL3M9ezJ1CKt12PuFusgbXCVA FiyUnXCRARHs5U8rACZG0feFs2UWghV7/OUD8lYhuj6Oi2w1153i41s/HBzK 0qjo7M6hPk+bF3ZdlfqbKLI6ySnP5GJM50QwzMaZN4R7ZktP2pxk5kqUMQZl Qa6ONRaKC+pNidWWo64giYQ8ERoe1C+DJg1w50SAV3I1Rg8rtmSeftBwdCsW 4ArnlGsmQJiTQYugAUVgXhYSdr5caK0LCz51DQ/lNzf0rk8e559TxjdyObgS ISNnGwQS3d25mtK8+GbU+bR7L1PaK1yZ1Ulmeab7U1LI2DSG2TjzJyxubniV uvXycyVKGIOyMFfHJwtE4pnitwPILFHan5Gia0VSlvrp2yUB7pw46GbITsIX pAt98VRX7BzckLrPygXExKKScI6EMCdoOue7lP+x7nlq69po+mZllorf3ZQY yLHJ8gOLWxMHCRq48OwFNwdXZMf9+6ohzgPq784xmh+pGSKFVidUOMeTXuRF DWPTEkQ4x1ukeWj8Y9TNV6LdgVxjUBrm6vhMK29hNG0+4rcDLsXsXtqheAXx H7TuPnFr96LoiEiEiH5j3liyQ+i8PMnunP3GhfQVc0f2fhb97shnOyX8qL/+ UkV3DikGpxDeB+mC8+nWs7mBWsI5AtKceMLpgGmpPry8DWk2Cur/7TWHJoaz n1crFjn5hLSUqLPdXDA2/8ifSO6PsXj5USMcZ/5IZAN/tSC6jpBIadil0OrE COdkW4gqxqYh6MaZZ0m8W7isvb9cy0eRaQzKUn59dSf66rxngtiJTgnbgeI9 y/o8ild34kO7PvuuREoY3rXoaUSadoXr1ae+ef2l58M4Vf8Ce3JKc+fsp9PH PObasw6f3Txmytaz+j93qrpzqJyDMlG31focmEpt2e1MpaOmcK6GNqfuyWcU OyJgHJjJywr1E6Op/u69R1nPq3SzpMurLbVGryTHnTPPnfPgrftnyO8pRWV2 DFP4w7wKpfQdUmZ1QoVzMm+yasamGczGmbdxEyMYw0LmfqOAUEWeMShMSfZk Sh9rfejN7d5elagQqA62JFcXyY6rO6dg9kog5ZdOrB7UykVTLGRGoRR3zlk5 7sTP0vn1pFxR/XXVRF13zvHKWP8Kqx4vABu7m29cNdrQia30tl/JTbMJjabK RU3hXA1tTkbIPQHKU5QZSw83VHiJYwRXNNICMiUn54QRcQAyNEeCRCpkHdz1 u8iXlMJPkByYyFgwlnBCzAUqtTopKJxTz9i0ARXO8e1NKr+Z/QBtm6xYUFlh pm1fgaRRKdKNQXEQSZv3F/HNLyfR94HZjukA4l1L72YsE+cYFCcC/FsJ7tyd b2a7iK+Chy1ScjqPbNR25zhqHwE7IOSd4tIqAW/m2USjDb6qwrkasrmQQXJP gNIwi63kNqeecNPyV0rLsrwPXiRDEiypFbfeTb6sq4bpKmwgZwNZZMSdlUKr k4LCORWNTRuYjTN//pSJ47E7rZHLtcSth2RjUBzEnfO206+6ndqffjuh2zGt cYnOWbFuM3/VoxoCLU0S+DuKdudcBunqfOfdo7o7x8iGaQKxWT94uwlMPxyX vRK+L3Zt5qkeqgrniAh/LR2rPAAVQaXyiiQr2XAnuYhWYDo7uterm3iGtY2l ldiM3cuXz1EJYplFuMrCOK7iEpRKrU6KCedUNjYNQDbOfH3k0MkR7F8NX65b Sb18qcagPHeLllFjgL25c2hzIV2HlLm4c/rVhzKNg+jfkW9fINqdc52EaIDU PAfV3Tk3ghyv+mH0gWXfLtKGR3ylSdMSOcK58hv73p+56Nt8b+s6/thC0zkf hYlIK1RKwIYjnxNZH11deXBKB/Jfcsd6/rljxoOsgyvQEo1wgfSe8MWB6QMs XHqk1OqkoHBOZWPTAGTjzHMJ9BwHzHUmGl4fcZ+cshQpxqAGSAgoxnbT/WeY vt8WS/sBtmu6BryPrqbdT2FOkUqwC0OEvK9Fu3NIP0ASA+UaaDRw59i/OMaz sCPRZlbMobpi76vh2tWSyxHOEb87j0zXbs//+tOkvacM5t0DCiCiv700WHoV TGxv/IqsVV3Ix7BF1LbLnAXJ9eCyu8/d/m1xOC7SM1oDjdubJzkvUWg/FqVW J0Q4JzPdoLqxqQ1r4+w1W8fufMWaLU5kS+UUzUkxBnVwps49hdyL02a3Jp/f Rk0TjqgZjbVXlFfwmCbbf9CzexvjkJPwCZnEunOcTbR+7XA9o4U7x53H7SXt goQ00Whz+aFl7TFscKrssYbCkCOcI6ORWpZsA4aCiTaopGVyrYYQ04yad6yn O/mcnIWrfE+84TKtOPaa3I3P0TdQaFxLodUJFc7JbFWkurGpDWvj7HBR2iRf dLfQFh6b2+Fha4vIrnRzevQ9dSyus7ydviRjUAmqRsl9Lq/i59SBQeSNar4g U+Fu0eVXzuzb+NH8ccN6PNUiGBniHNLhhVFxCVuOXuKaF1v4oac7x3bPXJ9Q vs/znznXUzJgGaMW7hyiB3Di0Ttiiu6ZaDPRWB4Le22dZk2npQvnSCmLtg0V AQMhpkxPIq4PlAjBD90K0tvYcY58jq9nghcoZZcV6zT6sMwhVorD+GaCZQ8K rU7MS1CmD6amsZWdy97y/uyRPZ5q5Aye1Q2NHD5xyfZDVySdsttgD3fjzO0b VpK9bWqnhy347O/KM4uose/OOpSKnI29/GXPNZNgDKpRtm9xe+Kl0zf5F+ZO 26sKbSv7EPFJa3i3xJ+U8+XsVUWHt7w76m+N6NinNbRFt6ExE96Ys2TF0vnT JlI24OcfPuLtjAKWD8OOienpzjHTNGiUdedcFcuGbPCohTvnphbPa3qIDqoH R09K+ebrjQkTOtXCwobOOVysVaZajnDudGovpfpbAmaEiUWrZgauD5TgVfRK 1mRy3lYANn5viadPcRZG6QVrTs22EaeIonob4TXm8lcnVDjXJHLbdckXoJax 2a/8unFq34Z+mCeCOw1ck3NV3DFPbOzmLh2Mbpwfa9sumOggFtI9JmFdarot I239qnkONyPAr11MQmYR8XYuvbR+SCsLHp4Kn/5ZWlry+4Me8RM7QdIN0oxB JezVF7a/E+F4BQXWipqYkLLLlp762fyhz+BGExgQPXvNiRLFTs/hKs978ckg snEb/nXvbsk+V8Z5NeOjEP79SniAxYo71bSb5KpY07OQRGz0TKw75xr9kzDi Vn20cOfc7Pd57p5jPUmZP65vxxbBgfXbRg95a8PeIi3TCJKFc/RUTWX6WwIm BMmjsdXairJ7+EPCnyb6zGp+fIN8dfI1qspZ+4zL0yrN66A02xasaedNlwzn zdWwYwvC1RFyVyflhHNqGFvxwTWD2MMZ3SEy2UdaArexAxpdbNgy+WJV0ZH0 T+ZOGdz96WZBjmu6v1nnbi/P4KT57hRnff5eTK8ujs8EN+80MmH9r0r0cZVm DOpRfilnY/yUwc8+0SgAs4a2inxx6KzlyQfO3VTsQSorSp87uCnttNeOHJF8 gsdFL/lh/fDQ+7AuozNJU+OqPsSIeJUF3Lkardw5bl7bmHeDRLJwruLIp3+z GGU1AHQBDW2pV/rEFgMIcudIfRcRam6SlO91zVWoU7EzNOfSn804oAkUzcbt KSicU9jY7Pa8z1/viIZbvOEwpJaJuYJ+WMIS3G0i0Oii3i2mdTEGvSj/7fv4 qMaUPs4Pi3h701lh7XDJQgyiIh4VHJLoOYKc68l478YJ7pxk3LhzBhbuShHO 2auKDv1neKi/9pOIAUOBGo96E9zEN01iGqd3WpLJkw9xzaHgiK6GKL+5oTex K+K0tjMOyOrnb30tWRvBlGLCOaWNrTBlkkvtHkXdpu2aus6pJAkaMI/foSND cw+6aTeKVgvq3vZBF2PQBULtSQdg/bDIRRkiBraSv2ZYxLYrbuRqajgPAhHr yYhdQnMXRLI+b8iesbq5c4YsDMERLJyzl149m382N+u7tPWrZw3+a6P7yM/r 3YhSKYp/XRc3cYJBWLAyR6W0pdKgaVD1LFzsWkTPgLBYnIkSr7juaMTrB5wt wozWnwQBbYIqpjpYDuV/rHuenhDKnhEmAQWNrfzwqq7I5MvgJ7tPX5Z84Odz JU5/s+rPotyjtrXvjflrY6bq0Y+/npcIzbmf1p23MJo6jv6Fz3oYgx6wfDkM C5/9lQhfjsB+ZPVTeOyrMHMiW0PFO29XRVynx2JKu3NS9C2ao407x/0W+euP WrgK58RirTPtCyONcZOI259MRwxqLS6gNacy27V5RdRaZM9N7W2lTmnCHr6J yQRoGy4CkaqYG6fj2xJ7IgOH5nCYJntKrs/2ohOfxPYNC/IPHznfpUSiInPZ U/Q9lVseoqCxXTs+M4x6xVtbR83b7LV2tbI057O3ulDNpq1Y1OQcL48mGcy5 z13pDRMENkaLaXWMwVC4+HKCgqtc8F5G1oAhcTNYnd70Dli5NszkqccX584x 5Uu02es0zsw74M65wBXOicWA3QUlYD/5Ze9gXkW0Rlgfa7fOFLtlVHWmprhC xFrkbDSHYQ1i114RdBe5W11xsyF+W/ky+Z4OX5BuqGZzrjBtgZV7GVXd2fly Y+eNY+VAmd/Can1uXJbMgLNSxoZMCQkb9W62sKpJxjHwWiXtJTRXcyUzlhZv GWKehRrGYChunFn8tHNUvQVr0jb5vMRFFQ9V1QsJYc2P0dvD4dRleC8OEufO 3SlY3ErEwfVCG3eOs9nHMaY7x00zDf4sJ98NZ3OzDthsGVs/XTEP6diD1Q1K zDNiER+gBegbQWYPCq+w1yJvCyntWYksLy3JnmzBWLAnnnuDGghr3IJWBrRn slLuN7trOrO5s9ecWtSf+i2aPJF0Wvbqp5Cx0TUybhq+eYeu/LIGjl3j3hnz EppjC+f0HcRAoYYxGIfK23vHd0AfaDnBYbfqKZ3Vj9yuKV5b94hz5zijEFhD SQwDaOdYcIVzwuoa6MErviKcA6ShVb6G/UB5lPowaVY/rN+G0yIW2/Lrqzux Y7MChTHlN1MHUrGpyA+PGLTYyQmar1SqLyjiCQf3mpZN7uHvlOyd3Y/o5Gax tuuZJLJpm3sUMTa6YiV42CJRvhwJsVnwHMvK3/mSp9AcKpzTd0yqEzWMwTAg 424Jg5E3LtNtbaPe6kdyNjRyjV5DrOL0Kkg1Onmxxizk1M2dM+bzwu04J7A5 JxWM9RHhHCAJNEeprjvHLrPy4M4haVYJIpm9Y/7i8sh6L/wnubZtRlPi8gXW XOgMe76GMhtMe82xd3rUchyuXoOxK3fY0r9OWfbumGeI8oG69fvNVaoHrDLG Vn14eRs5cdQ7vy/riO9/3SpM8NlbVmzEV+7FJ7S2nE99pxlqGINBoAaHMbR7 L1OOFXJe6IZQP7qOVfXqYYpy5zizzPS/WLfo5M4ZtJsHVzgntKCPlkr6hnAO kIR27hy7zMq9kINJswruD4ZyYVk/l5WBP5niHJIegI3cUSD2G2uI5vP7yamR f32Cmi0VWL9t125DJr2dtONA/i2lkzkqvcGr7uTtSpo+uFeHJvjPFPL4Mz2G vbpg7ZbjVxX0EJQwNnpmmZy8GzEy3p34rSgz9kFvs+QKty2IqG8J6dJ/6Q8K zx6ViO+6c5fX/ON+9EmWHQ7lSJKstcd/rv/uDRmpzLtkiXDnOGlcQ1ysO7Rx 59hvH8wIc/HcwhXOCW0ITC4FIJy7p0HfsOoKg9kPlJvuneQgSxw/LHr1TxIS A5yVgU/9W1m2e0w4kWa0BP196QWx136n+OCK6ZH/528NDR88ac7S5NR0G056 6mfzRlLaVGvT9hM+/rpAwfA3u2DNVG9wJYwNf/3JDjXgbpsFa90/4w/Wn88s xIerGnG4mydMbAxeuf3b4nA0NCdbEeRa5okvMjHphghXkVYn5EpFuHMuNbNe a3/0RQt3zk1XUmOUMrkgVTiHg5fVgHDuHker1lWuhsppYs80DbZauk05LmWc Jbe4leeKnGlWKcHAknOfDmxlqRc6KnGn2xBcyeG1A+tQ59Go/xuZyo1v1qZP oAooYWyEzK9Z3A5ZUWQyxPcgWzxTkjOzoXFzUp4wrTF4o3xPvEt3aLk1C65B MCP90Lhck+V6ecq3CnfnXF3E7jNzjaibw9HCnUMrhmi4s5j1R7JwzsGZLT1B OHevo5U7x84KuT6z9OBgnLoPJByXGgRnCif5VzwmzSpk6oQL5X/sHNEKax61 5pS3eZSF/3n1YfpUJPbLcodp3+AGantLTgdApZXX1r8SQI2CMhOmNQbP0Pl0 Bvk1C64znY00xc9eczI+Gjk1j/OphbpzV7ImI536JMtItEELd47bmNcgpUxs pAvnHK++T0dhIJy712Hnv9STE3AkIuirhylhk5pmpQ/ksgvzHKwm/DELedWe tVKeINT4jrN9oFmvYYk/epZRXc+eXIs+FwHDCATBjnOa6g2ulbEJORN8difS tZWsjzB4B2kuJjYGz3AjabIbKJEvO4ZgLOGEkaoanT3MSTz0ThfkzqFbY+Jj npxDg6CBO8dxkwwarpQunHM8NIeSRoyItRWaRicCqIBWpRAucTO0SByJkskN YXE1EsHYkv+5sfALa/5Rn/7ArMN/cD/gHeS5s5CzIAWcj0JqDROr37Wru+EH l5owc0MI/9xzMzrDYmJj8ATpaaP4YUPeL5LzmuLOR3gpocBg8xHYE+sslvYD bNdcr1mIO1e2b3F75DPWx3umiX3FV5aeSvt8ZeKHS+a+jk+rHDMsOioy8ukO zy5OV8O8NHDnuG6SEfWxcoRzAICDLp5qvmHxzD6Cs+Xp3Wsb+jWmvl1SNasL 3F4l3HccU3MhdQaES52Ul9co8kmF0osmfoNrZWxCwLsUBlARQq+tgw2NiY3B I9z3u6vOViwX2Lk2o9YFXNsV3xGp5g0e8s6pUpbTwevOsQeiWbBGzRdkii3B 5rrTFCq1XFbdnXMtqzFqr3g5wjkAIEEb9av3hj26+kn0gSK/iBk6gDs7fZN/ kR//5raLdI1XMzUX0hvN/basP/MFDRonnfewONhrdg6qTX9OBXfOdIMAtDE2 YeweXhcLi951g3zdG6aVnChMbQwe4D7CMbabcg74+6ohrLekhx7RRqA4Y3HX +5hzDe4xaX8hY5Te3bnig2sG/YXxW6xhTyUcltROx15ZUoAPkco7dviDPvTs P9W6EKvtznHLaow5xlGOcM43Kf51XdzECQZhwcocYzb6cQF9w6oW3WU/s9S+ A80LNBzzkSLpD+5sPtbiUF3xw8wI6n+o+9D8LNFpVorSi6mT+4YFYsFtuk7f ftLjMscem6jM46nVjF1V0MTYBIKnYGrjN5B0zo2Yf+HF1MbgAVd3TvioPrfQ XaOdbokxQ3NOSo9tf+1x55hazNo6IiE9t4xYODy5c/YbBWkLRrZ5gPnfGvWb aiuQvTlhdqMqzn9U150jA+/oTTNmaE6ecM4n4RqGvpgj96HJBp/d4BdXkV1n JHOSBB4eqPxm9gPsXwHNEdCdSXBEV7NKAO3+pNREIdQjIoNLJsJI0ST85RiM JZ4kXveN2iRfNOIiz4OpjcEDrk5L+NADUtoWUbCDM0avC6CgG1o6zzvk+RHz 1+7aOq0L6840fWHN/r3J81/r2pD5ZHD483FfHLqiSCCNqUmRLV/0jKruXEXW KvSWyS21Uw8QznGwn/yyd7A/Zgysj7Vbp2MjBuGgcn2BQ07FkzW9HXpzQqeu W/sSHcb3UMYlCW7rOaZfMSqZU7BtiBfQLE/QwEXKpHgYFaIJm0ZqYmwCwd0G Czb13++Fm7EIgkS+Mdirio6kfzJ3yuDuTzcLwmo3f6pf7Ftr/pvPvPIqy8u1 XcYEDncWBDI0UIQ699a5dUPb1wqsHTV/C6/vV5q7P3ll4n8O5ivuJNhvXLB9 /K+Y51sGWwW8bwLrdhw2ccl2hRw58gSOrH6KPrxc+aJnVHTnWL++dsu+FLjC OUPW3gLGBy0fUCXAy2nJ3rBZizp0GVenhfuUVDK41Fw43bnrJ+M7U5I5rMkT SafVf6qZoZPKVHmQIJO1mcJME6G6sQmGHGr5WLNmpiyCIJBpDOV53yW8+GSQ 40msF9b/jYUpu2zpqclxjr8E3t9jSUZJRdmhRSPbPGCxtnt+a4F2dka2BMSc 1yUjLnRr+xv1kSNFrTgsxOGllbECAp4X949+kPiszIywV8ounjq0Zf3SuTNH /rUxhlKnab/YKfNXrN26//uC28rHzpipr6oJ52rUc+dQYbaWy74kuMI5lQpP AJ8HzYSqMS/PRUKGovx2ybWTMLG7v+PsMqdVU83Ksv9Oj6CWESn1ZR5BVj+k bZp5UN3YBEPfSSv2+MsHdC3KkIx0Y7Db8ze93YXQJQR3+0faOeQhrCw9tnBw oB828q24jvTRNXW8WS1/ZUTnrh2fGcYka4QuNUzaiz/gybSz89AQSVlEDPmS D7MHV3eChkruHKqrIX6g+6YfMMacZXe4Cuf8sPH7zLkkAXqD6M3cjFJVgKL9 ozEujlXir5suKL3rd+1B6of1WLDtnR7Obr6Pzdh8XeVIQ/mlnA0TugWRq0in gWtyrip4cNQd6p58RsEja4PqxiYY550070ZYojHY7XlrXmlCbG+Ce0x0M36u /OaG3ki0IAhL+EXDKDCrs4TUdg3VlQendJCy1DBpL3/ra8neGl2jDo88gZ9A NHXnEOGcquNNlXfn7NUXtr8TgSrRgu4b+YXngjXd4QrnQjumFOl9VoBJYRKU aoxe4urZqHfE2F0qRMk408SwoNq16ZdDcK9p2SqUG5fl7vtsZWLi8kVxkyeO 7NWlGeHJBT/Z/fVPvi5QeoQek6xUMwOiIuoamwiol2Mge3KrqZBmDBeSYwlf zoI1aZt83v0PcOeb2bQ/Z8Fa98+QWgIuDWTkqMRXGys4Uzck7pDQyAya9kJn wLmBKSvWaJ67pu4cEiNVdbypwu5cZWnW4lFNUbVhvYZjNxvYl6txJ5zrPfus 2VQ0gFFgNmKqLBFuK447xaeXqGGxXHfOufqppp04uWJkVEQkQVTbBpTvGNIh emz8R2knLim5kuDNb516PHPu4FQ2NuEQL0cTlpM4kWQMzPQBP6zfhtMew5JM RF3FqkaPODVpBH1Tzov616zubSIjM0zaizcmiTg8HVf8JOoMpaGlO8fkkVXe 7zAKPdk3syR728yoxqgrZ239zJIfjJtjJUG2ThTmzRcA+oOWKqggAsldEOny wKpYYcTq3It+pTrBQLencOty9taPY54kKi/8/MNHvJ0hvwcUCfOSNe0OTmVj Ew45sMPEK6cEY2Bmg/KNKkZ8FfWqGr3w28qXA51XJ2aqcvGepd3rOivYRWbZ UOEc30xhxuHRKk7uMoxGxVY/9prdI0KI71A5Nlt5O3VAQ/ZKzZfj5nL3Zu6e TfPIoh4nfn7tYhIyi5RYeFWt/i699HF3F29Oo90B4KugW6RBWy4reWhX/0rJ LnNucV308Ecbi1xyQOtO4KWX1g8h6y8sWKM2b2Uo0MoAqWQ0sR+iorEJh3xx mznTKsEYLq/5h3OKlPe2yUx5qV45/btXU4e0cr6fBQXzq+6eWvd6R8oLdDx0 4dPTTok7dSbtxZc/RR0e1VrssmAq5ZllbXCqOvW0HOGc/caF/eveGz/ohfAG /lhg/bbdB0xfsTH7ijhnyV569Ww+wemfM/dkpK1fFTeA7YOR1AkdtfxL2+Fj efkeyTv+fUb61ykfLYqLGd6hvmt3suD2PRfRvZdlomz1N3MHTv6035axNen9 ad1acvvQWJu2n/DvNVu/sdm++yHXec3nf1fkigCfB301KDxbpCw/viliqWJ0 LNLgunMNRy/LV1rDJgi0tk6J0iomIGDm0icVjU04VzJjrRop2FVCtDGg/oCX yXQEh8Y/pqmv4pbCY3M71HNeY8Rb638t9XjOpaf2LETiM7Ujh2/KvSl2v4MK 53gEY2iLXUX7BTFvfNxr+V/2fptt55cfx8/q15KzS3UQGBz5yuylyanptvTM E4j7c+m6LAUBKpxbdeJC2gd9Qv2toS1HzP4gJQ33Z2a9gDsh1rCO88XsUlXv 8+/3QLM+Y1Z8naVM8z3Fq79vnZzTWFZf3Ht8TgQgFGZ1UnryLzoZQZOm3Gx3 zmJ5eth+bu2eViCdhC1Yi6htl2WcCRoQULN1gOqoZ2yCIfQqOtdiyEK8Mdz8 chJdU8zXpJTZgukhnEOwX/nfJ39v73TSqKjFoWN5Z8+XlOOjRfOO/7Al6f3p vZEgT73GLy/ZLq0EiRHO8YZtkf6WysbJlfB55Bo2kkf26z6gZ8MArPPUlTkl yFXevpo6jIiditmeq+LOBdZv+2zvkdNnJ37x9ZGLtxT7IdSo/i7JnswNRQqn AbbkF7OmEgCNYQY38O3cRYFueDVoElLDEgwboHUk6s1iWLuEfdK9WaaSzlp7 /OemGAjsCZWMTeQJ6NwpRRZijaG6YudgRqTE44EgRqt/Tr/qTt72ZYPdxqbY WENbjXh37RGRGUAGRjjH30CYSUYrHSfX351jdgoEQfeN+OzHG5yj2Y+vJeZn WSwdhu7XtvBZA4xf/Q0AXqj+7j3ncEMFFU15C6PJYwb3icvRJLHFuHPqJ3b5 YbVQltWxlvmB/LCYdPPG5nBUMjah0OFBXUT+iiDaGBj3j98D+XPHDGddaYzt pmInLYeqO/l7U1fMoeToDHUf7dhzwIR3lqbskT0ZARHO8cYkmWS0783WRFt3 ehmlgaxsYkuPDY45qr8BwAtq9I2k6iA0nRNEuXNqto4su3gq89tvBcX2XSpB ZHRkpTNBFiy8f4bZh61r1aTULc5hlObVoog0BntN7sbnnJEEvq4mdOzUF30V z6B5BB4//27hsvb+1AZNJ7WAiiDCuQaxa694Xq5oWYtvOTPmqf4GAC+cWhAl cMEXCtkaS9EpV7yQo9XVK2Wl4/AYFvhA9HL+b3EpzRi/X1IyCNkyN5u329Bd MYWhvLEJhhrKqfGwAwURbwyIr8Lngfi2r+IZRjjnh0075PWykWS0brU8qoE2 YJl20NvyRq9sOjeQVBYzVX8DgBdOp/aiLVmp+HlBRlLKUU0znnd/tq1MPahK j+IadtJKWPiC5c5JffDL98RTybU62JJcn3iBqGBsgqj6c0N0oKAB60ZFgjEg iiw/v5hPvGntGF+FPQfWXn3h0FeHLxl0iLlcUOEc3/4CGVTHDvCWFWba9ik+ CEZj6FEjfEXN1HNEUC8kSZ2OKVpjuupvAPBEdUX6qDBqY95nTr7p5rtrAFLR RrxP+Tp5subxSc1eMb+LpdbolUU+4c3pZmy/k4oXhftLaIckY0A9EO/VDWjO kSVrJKRlZhwTLAhGOMcfk2TieGw3hrx15u1kiCO8qBntQKVeQ2NtMWP1NwB4 gq5Xwjv2zz8irjn3PcH1zFjGmbNYOo/O9J5tZUXzrNhLCQUS/Jb8nS+RBwjE Zv3gOz+KLsbmdFf0r9mUhhRjYM1N9j4Tk5nhwp7Z4Qu+imcQJ5bPz0cnR7An xOFuXiuTVzgi21UePRgTxfUVjaV5q78BwC3M3h9rNH2zrwgilKPqdmp/YuEP rNtx+MSt+Ty5J7SEEwvAxu8tkfCdzonkQQMX+VTIVA9jc4ZWjFKzKRKJxoBs K7y5c5d/nPIoPQeW3WMZr4+QUZdtcJiAG19tTpktni7oZKetcc3hfWbvICRc D4Y4wOZux81g9upvAODi3P7Xq5t4xozpKHUpP7C4tcAeeoi74lj0gv6+9IIE Z6woM/ZBKlrig/FSjY2NCq2YNp4g2RjsNfvGNiNjSnWmfeFe3sWMpeMEqW7/ tjjcGjJrh28q51iKCCvWbeavnp7TiwfH/YVp7M+arXlq4/OY6TsIMXowPgGh swOVLsXpKgDV34AvYq85GR+tcczETFRX/DgnupYFi3h701mvsufitNmt6SXP fWtxXpDfImTShmLfc641NjZKIsUnjDEm8ozBfmJjN/La3QbZSF8uqEXU0425 oSe8+MLPF3cTJIxwDiMnLCdfdPeo4kPHHra2iOzamPooGuc8FtfZ9B2EyEYE pJH0nn3Wi4GhdRC8A9FMAlR/A76Js/eOT0aE5FNZmrV4VFMrVrvrsES3IwKr 7uZuoOb9OQgbOuewtEFjVPBK9oAwI6OhsZlbOCfTGOz2M8uHBGJuesOW5nzz ZlRja6M2b2WcvUUEn1nvqdLflkc8HOgzNTgc0OoP6oGNXeUy5bkke9vUTg9b 2nVLOVt5ZhGV73aGKytyNvby5+lrYQKYKVTsomYuqAPsK7X2UP0N+Crlh5a1 J+w1aMC8XDBPdzhW+HnE1G9raJsh42YmfLh26zc2W/rXKR/9e8LfWgZbCQ+l fa/5W7K4I3IEUVn21XAiVxuAjdxRoPDZGwnNjI2SSCk9mEkLFDEGehviuAOd YxNSdmWkrV81b9TfGvljjfqM3/Y/YmY9GXwm7lLEzE92bU+Z+0JLwo3x2VUA Ec5hj7VtF0y4NCHdYxLWpabb6FsU4NcuJiGziLgJVFbagjUKn/5ZWlry+4Me 8dNs6o2KIHVe3utlkApQ36m1h+pvwGex15xa1J/cy3sbdHLPU3b+2FdJ78XF DOsRQY0fsoa26tpz4CtvL0z574kSGYWA17bNaEq+YjSZdasn2hibs+OcsJn1 hkJBYyjNPZA0e1zfji0cO47azZ/qF/vWmn25Zegx7VWFBzbFDXshvIG/NbR5 n3FvpZ3zWV+O1XGuYcvki1VFR9I/mUtPE/O7v1nnbi/PSNhy9BIrBn+nOOvz 92J6dXF8Jrh5p5EJ638tNf8aibhz3rqdO8vBfCp9A9XfgE9z99qGfo0JXWjL RIjQaQwlurZanxuXZepiOYFoYGxU5ZoJldv3mjFoCTN5k08w5vPcLVr2JL87 x/QX8rGdJlR/A75N4dE3W+Fb1+Be07LhPaIZTt+meZfkvHvGkVbb2MieWn7Y iK8u83/YONybxqAVaCshUyoqFcRes3tECHkrPDbfQLpYW9oPsF3zoRsG1d+A r1NxcsfwEHwz0nTyBt/QSBgde82xd3rUwpU5ms66NQJqGhvZiMBi6TB0v4ka vd7DxqANTMMNvhGl9wJOUZynHsJ0tb7DIJsmHDHRgyQIqP4GfJ6Kn1MH4jIS LHJRhlqzUAESuz1vzStNLPfu61tFY7tbtG/t8k3aThCWxT1vDKrDNNwwpaJS eaihpe47+VDPpg9vLqD6G7gHoMIm4NGpTHF6fAcfXi2FAcZGAsagOlcyY61U 4sx8ikp1KNu3uD3hz/RN/oVx6OxVhbaVfYgWytbwbok/+a5BQvU3cA9Qnvvt 1I4PY0HY+D2++yzrSvXRtV19frUUBhgbGIMGoMK56OTTep+OMbBXX9j+TkQA hgXWipro8Gds6amfzR/6TLDjHgUGRM9ec6LEh/RyHoDqb8D3KSvcl7x86y++ JpkwCPZzmUlrNt4Lq6Ug7m1jA2PQAEY45yu9cJWi/FLOxvgpg599olEA3nkp 8sWhs5YnHzh3E8wRAAAAAABDsXv4Q1SLkqjJORBcAQAAAAAAMBuF2xZE1LeE dOm/9AfIaAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADm4v8Bzq+txw== "], {{0, 121}, {837, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{568.442708333332, Automatic}, ImageSizeRaw->{837, 121}, PlotRange->{{0, 837}, {0, 121}}]], "Input",ExpressionUUID->"3b0279af-8728-4444-9d9a-110764f16f92"]], \ "Subsubsection", CellChangeTimes->{ 3.746790794639846*^9, {3.746841560444349*^9, 3.7468415606923532`*^9}, { 3.746841841778685*^9, 3.7468418549015627`*^9}, {3.751563515967943*^9, 3.751563516546554*^9}, {3.751563617434753*^9, 3.751563617435069*^9}},ExpressionUUID->"5fedca23-98a2-4885-b8e7-\ f38c010982d6"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{"F", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "=", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"W", "[", "3", "]"}], "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{ RowBox[{"\[Gamma]", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "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}, 3.7515630135769587`*^9, 3.7515630643896112`*^9, 3.7515632143173513`*^9}, CellLabel->"In[70]:=",ExpressionUUID->"8eb6c0fe-bd0a-403e-8e9b-4294942c45ab"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "1", "]"}], "[", "2", "]"}], "[", RowBox[{"F", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.7467913000660734`*^9, 3.74679130814038*^9}, 3.746807032959241*^9, 3.746841761629195*^9, 3.751563013941752*^9}, CellLabel->"In[71]:=",ExpressionUUID->"59e8fc66-55f4-4f7e-bb40-d1662501b6ae"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"W", "[", "3", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}]}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{ RowBox[{ RowBox[{"W", "[", "3", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "2", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ RowBox[{ RowBox[{"W", "[", "3", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ RowBox[{ RowBox[{"W", "[", "3", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "2", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ RowBox[{ RowBox[{"W", "[", "3", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ RowBox[{ RowBox[{"W", "[", "3", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "2", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{ RowBox[{ RowBox[{"W", "[", "3", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{ RowBox[{ RowBox[{"W", "[", "3", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "2", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]], "Output", CellChangeTimes->{3.751564031161603*^9, 3.7517271791346273`*^9, 3.751730248904497*^9}, CellLabel->"Out[71]=",ExpressionUUID->"b4366f2d-a7b8-406b-94ff-7ec8f800ea5e"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnQl4FFX2t6u7A2JMUJAPyCBLArJEHIGAAyRRhCC7KPsQBgENiyCgINHI Fg38QZRFRASJGYGghD0oSZBFIYgJsinEgQSQzQQhQUgwZOt8qaqurltd3V3b raquznmfZ+aZgaa6bvWpe3/33LMEjps2aLyZIIgZtar+a9DY6OfefHPsO4Mf qfo/Q6fOmDRhatSrfabOjJoQ9WbncZaqP3yr6j87qv4H+b8rAQAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMDzKbl+Zlf8xwmpJ29X 6H0rAAAAAAAAAKAhpWd2jAjwISg6Lc8EOQwAAAAAAABUFypKdw5uQNiwEEM+ yLPqfUsAAAAAAAAAoA1ld+LDatq1cP8N50ALAwAAAAAAANWHwsNrBz3+iLlR 63Frvi+AIAkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAxBcX7GV8unDX4+uL6PuVGrsIEj39+aAV2Y AQAAAAAAAK+nJGvvW+GNzXUfG/LOh4nJaVuXv9HVl+y2ERi1KqdY75tzBtkq OjQ0Ifu+3jcCAAAAAAAAYEZjpUd+XYDZPyIq9QrzjdbK/eOC6N5zPeN/9bje c3/89HoTH4Iwmdt2T7wAehgAAAAAAMCL0FjpXdr3cn2Lf+9pmXc5f5yzoDvV idlM9Im54FHBErknZneoSzD493wtPd/j1DoAAAAAAAAgB42VXsmdpJeaEE/2 Ss51/JaT0R2pWzARLQakFap4C9IovB7frzHlsvZ5IriFmX5KPCUPAAAAAAAA GA/Nld7d7W/WI4jIHVcc/6KiLKmfv80z/PT4YyVq3YA0Cq+tH9LKRAVvhC1M LbhXsO+tiIcIj45tBgAAAAAAAEShvdIrvr40pBbR992cct5f3T41sw7tnLZY xn7mEW7XsqIfpocStueTVlBh+8NDs2xPqfmMzbc8KpwDAAAAAADvo6zwbPKX K1d8vGT2G5OqGDM8Ijws7OkOzyxKgSwmReig9KyVp9c9TRAT9xU4+bujy1ox oRp9E3/H+8VysD8K3wd6LmGej8NfoY9OJcqLc/Zt/uzzxMwbYO8AAHgjmGa5 kutndsV/nJB6EupzAl6HtTJr47OEE4Le3w8pTPLRS+mV/513+XqRs2v+8clg 20/rR8T9qvdcZrVmfzKqHnkzNSK/OlPK/0DVU5rdv4GFfEr9En518gEslPy1 a2x7P9J3bzJ1Gp1epNLXAAAA6ASmWY6qUORDryGdlmfqvYRoy+XUYQHNBrwR G799b2ZWTs61W45hhtaygisXsjK+T16/as6obs3Hr83X5T4BJZA/Yk4V2SeO fNi3sU0v1SSif1JLgHg/HqL0UNiAYRMRPOzgPQ2+0jVVz2ftK01Nrp+PpI8p oOLIsjb27d/DphU5KnwHAACAfuCZ5SpKdw5uwFzFQgz5IK8aOctsR64iMQeH ffHb33rfM6AAa+XOQbVteqlp2LZbet+PQfEYpccBCRg2Ry7Xd9Oan7aoaw1x A7c/pToB0YdvYL+T8u9i6zETmPNAawAAACODZ5YruxMfVtOuhftvOFeNtLAU Mdyw7/jkixBxZ3AKs96tXz33fTjxHKXH+SokYDh09S+qfpcAhdmxQT4StgC2 p2Qmwqecwj7HFF7bMKZrg4fqdnj5nbQrMIMBAOB1YJrlCg+vHfT4I+ZGrcet +V7dPA6PQ5QYNjdrP+nzvXlwom58rMc+bcf8rE8sPqL37RgTj1J6CGzAsC8x 93iZit8kgpKcQ8mZVyXMGdaKywc2HwSxCgAAAGiNTQwHDpg0aXDvDk0fQTVw 7Rbt+ke9vWZPxg2Qwd4Cq5cgYFgBnqj00IDh1gPS/lLxqwAAAADAi7CJ4S6r f7X9wf2/6ESrvHtwgu51oHqpRcRuyIT0JjwpYBgAAAAAjANPDANeDBIwDHrJ y/CggGEAAAAAMBIghqsTp9Z1Br3kpXhUwDAAAMbAas35el6PR4keCef1vhXv pOzbmAf8H4usdvlozvBoYwMxLAeDmvetz0eBXvJOIGAYAACp2HoDmcxtu229 YqjFzEDcOhPb6VHCUuOJyatzivW+GR3xdGMDMSwLI5q3tXLPyADQS94JEjAM FfMqreV5R7bOGf58cH0fc6MWfce/u+mXP/W+JwDwMFhx0j3xAlRxUZPcE7M7 1K2anQOjVmETDFhmueL8jK+WTxtMX6RV2MCR72/NUKULswGMzdvF8N2L8cPa P+RbO3zuljyhn7gw60DCyhX/PZQjqkqAGuatKryAYevtywfiF08cRL4IhG+9 J3oMnL58o8K25oAuoAHD1b1iXllhxqJRzSxEp6i4xN1pm6MHkE2x/YhJe3P1 vjMBSkocm3+KobTkfjXf+gByYMQJ0ajliiyY89Xn0r6X6/tgEww4ZrmSrL1v hTc2131syDsfJianbV3+RldfQhVJYwxjcyaG7/915czPB1JTU9O+y/ztUoGR 62/9vnSAzRcaGLH7ttuPXj0w+kHqs3UD1vwu7up4zVtt0IDhVacvJ3/Yt1HV ZrDlyJiqFyE1JSlh1vMtzQRhDgyZmyZuOyCGqt3r8X0bP3h33CBu4b46TUK6 9Rk1KzYeCvfhQIOKedbCPy/k4CL7ym21psTLCVFNH0RKQOcdGE3NAKZOo9OL VPpOyRRdPXt4y/qPZs8Y2bdbSDNOQUt6Wzpp/kebDv9W5H7/TtevrgE1EgGJ WK3nlw3xpeTTuN1XRP+r0pJSTTdeODd6ZSUlep/Mlx77/DkT+Yo3n7H5lrKb UT7LlZ7ZMSLA7B8RlWov+Gmt3D8uiD5d7Bn/K7YnL8/YdAAVw5TXfVi3wIc4 c7O5UZshb32QmnPHeP4HtregmXh6/DG3fhc2ntafWPI/sWPFaN5qww6wpqXH wF4NahKdpq48VYCM9N6fScNbkaPB0iutvDh7x8dj/9XYzLGlVl07/7NhTQKF bOmyamfOXQPYF5bVAP+SggYMq9Ziu3THDAI71J4ocnrMis1pWfkY5LE1K6mP mei4JJ1912+lR9Hf5QFx8kWXTuxaNjvymZb+ZvfPxUZAlxcXpmS5ksRUG0QT 0aBlwjVthwEYnJvbZjSjDKzjgv3C0qlqJt/92aRe7WzztuWBoC69xi1Yc/Ci apKgOD/jv3H/bvdY1VsSFL2jUPH18vd+1KOOD2GpFdR3zIrv8bl6pJP731cf JZ8hEfHpz7JvA8MsR/rxLP69p2Xe5fxxzoLu1FXMRJ+YC5j0jDRj0xObGO4c u+2/40L9zT7Bw6ev+fbH/92gpMn9O1l7N731DKVn6hovX6zyaupw26riY56Q 8LebT6JyInjYwXsSvgSLeasOGzBM4Vdj5Bc/8UODrCfXdaEegqnDsAMKgopL fj+6qDfpZybnn96Rc9d+lf7LebRydUn+tVPfJX0weVCbB213ZA7uvvxHKW0s 9ACHILQQvWMu4n2PNAkYVkUMo/jW7RA5fe1+l9pPmIrSlFGBROj4THTOPf7p U8yzmXZYThwCBujoviH/aljDYcj1nuw7bNr8xQnbU1K/P5qVk5Nz7pf0vWlb P18+d/yIDvV8qNv2CY6cezDXcadAOXZ8yGUrbMppnYYFGBFaSlXh3zf6lOBK V3htQ2R7P5OzF7Zu4yHLvsHflzb3+HvhdhcKjnr4NzKmBPiwty2+c6galBXt GRNMeZwemZsha4lVPsuV3El6qQnxZK/kXMel4mR0R+axD0hTvgmRamw6w7Zj Nrfu/MEhZ2qk8Nr6IZTD0EKELUwzkB4u/y62HvMG9E10G/qgpGGBcvPWADZg mPwdw5cfcf7CFF9ZxMSe9ku8JO+rmGWaCHxpRuLxa+6nnZLs79/r2dLsCdOU CDxTDGsTMMyGSVCCLXn9J3OGdfbnj+/hRqOWfbX/57PugiRO/piW8k3iJwuj xzKSDyEg4pX4YwJm45yzG7sRRETCOfTP2EApXTyotAx+4SmOnKBk/5pvj1xx 29jIejc3PX5Oj0erng8v64RJWCAf1+xvjTMlA3IpvLorZkz7KmOw1Aj+T+yx u8L/wsV1fl8WSllOnVpxJ935h0gqSve9GuxUCNvBHCJY/Mfq0LoO8+XYFEVq mJkBEMSMXT2uHHiZPHw3mdoPTL0p3XOheJa7u/3NKl0UuYMXscC6BIVP0kUh ydj0hxbDVRuBLgnZro8pbT8faZn9En71ZLmCwmxzyGCVuF/drhhIPG3I8p8l f5NC89YAZID1o9bdcP0w9ox4xPZLy/Ix2pSwC8+zc4oL9r0VYYvN8Ww9zImb zf5f5oHU1J1fr46d1b8lN+zTpnn8w16J+SghKSU1Jf10NqsFr93C68nTrcV2 2b2kgQ24YxY6guFDHT/x5GLNiNnrfyuUZn/kihAQkpiHXvzmp52ZQKkX466U S7qeUkqunVo3oUcDVOz7+vSc+XGapJCz3OOLe1XtFhE9bPdOUIxMhuY53k7J XztHtkLfj7aL0+UsM9bKE/N70jNt27j9wjNFRWnGJzPHDerVtc1jbuJ6cIYI ok4bG+baE7+Urf2RUEl811SM7TRZ1qNTOssVX18aUovo+24O/2OIS9Ay9jOl z0eqsXkCNzKmBD8yfZ9AEuL5BT2pYZmIRk3X5BjBFYEGDLcffcTtCo3E08qU E0rMWwPQAU475C5yhxHDsg5Kbp+LfaKmHEF7/+aG/o1td+jJDnZX/PHT6024 Hk7Nto0lf8V387XZ+ZNDD+I42xIPq8MZ5OwlKykP6uHECf/kOIX8u/8n+aLo QGLyfX/QYQdnPfZpO+ZqDr4UdbHVlkdMwmJpO+a9tAuywiwLr8f3I98O8qjx btEP00OZi0LAcLWg4siyNpyXzMdn6iYZ4e9MhouJCB6Q5j6d3AFrWcG5n7bE TerIzSeyrylO3IzysFbuHFSbe3VlkRK2zDIC5zWVQypSSpz4EdO+L5DwD5XO crZIgIn7nHwpesIocJIuAvnG5vkgrsWG0zdru+TKgg0YFop8QAvwys4/km3e mrBvzD9EDbD87w0RvrbHJr6qBo218nhMeNW/4wT2i+di6gjbDt5k6jI6Xcd9 uyyYTQTDw6YVOdgubs07/VlUv0A/Mnz0SD5HT5WmL7XPhOGrT2t8LMGPG1FU pLHw6s7J3f2QNcvctteaU2KLZ+b9uCX13B30TzKmt7VdqX7jNZc0ejbW2xc2 vhKKBpCQFVr2KIiFrmR3WyE9nkd88RAwXC3gv2Udlx+TbM33/4yPoMIGFdQK KMn+4a2OdQlHsAkee4gpBwsxcb88xcFGgTqidzptUWpsK/oVdoj+FULpLFf+ d97l607nItazIXiSLggOY/NcWBe6iWjE9dJ7JGjAsEDrYaQAL/HC+1flWoFs 81adopzYZswA3Qc/sJ+ULudydr5IULnGIV17/nvC2mOS61Ewpw8kYR8fM8bB CkPWvDDO6iBYyk885cU7hza2X5rTyNI+5xBm87PjMzTfQWAWw5VM/Ux2QVRQ pP1W5hSbI8tsHv5BribnNXy14N9z8gFe+psM6Eg/ByBguDrA9QzLDMZj7Eex cM09/lYrfuAB0Wl5plJTpFPDnBEwa4fMV+jG8dh+XYL8nFxz4gFdC97avWcK nRi4ZjkFNQT4YDM2z+R+3tKnWEMatOUPvW9IADZgWHAPeH5LL2ZcQe/vl2+W uMwbO8gABRKsLu0cyEy5Uk9gz84LR2aaKjUYuk2qHEa/3WgvEVOUhrl/TNm4 JNyTPvbVs1aeXTjAl/66pv9cc06HuR2/GK60V2hnH6a89p2oetRmvio4un5E IzQ0AmuHSmR6sQMBw9WCsqLDCyPb1KJSL19+J+2K9Dcd69pkLyiKgCFGi6ll xEdxPldx/smtHw9uxIlk01kMo4qxzfO7/5T5m2Cb5ZTUEHDAY4UQPtCDYE/3 SLABw8I+ujsbXmUWL9nHMTawmDd22AEKRUQj7nSJ20PUpUwjI04ADdLQOMhT MSqK4YLMKczSw1aGLC7YF9O/gYWQGkuAF1XEcCVd/KcxelnJlXkqSncObmD7 LTQ5yaKq/iJ3rELtnTtfT66F2hgEDAPiYBcmGT4KPkxEHAehbBQBSu5s6FOP vs7Lr09s6HBx5Qf3SJkjGt3FcGVhdmyQ7X5kZkTim+XQgGGBk3QhMBubR4KI YRXLmeIBCRgWvNXDE5tjW1yUm7cKsAMUel+yF0TYf2Jp20N70W/7Si0rQwEJ NtAh/V8JKophe1pu3frjVu5ITfkmcel7YzpTpTjr1Os/e+3pAt0MTS0xXMXV Q+P/wfHkBM9LkbDWXrbPAFpkjmughEmuo2cEEDAMiIPNscWX73PdSWKaknPV koOLWlMX8XtpwYXLTi6OxTdyfdUQ+wX1F8NoXQJ5J6H4Zjk2YFhhNLUaxqY+ 1rxfVozqHuhfK6jvqPhfhPP3OWIYe+MArKABwwKBAfdzl7b3wbi4KDVv7JTc +rQjM0D3bWW4jllp20OHkjhuShm7BRFXWju+7u5ZGBEahhDaf8ybS3ZkiCwQ J1sMW29fTlk+O7LPM+h3hz3TMe4nRPqRTaDWTB9sa2kd8GTnnsNfnbduy8k/ dZ7PVRTDSIUWG1KKVbLlUxTXKRWk9Jekl7hBiWr1Z+e+oZ5+PAd4BmzIMcas MWvl4deCua++ggXUXl7Yn5h77G8kfpVdUZSe3dPYIwal9JlVEapoMI2Mwv7Y Zjk0YLj1gDQFxZxUMTb1ORHdiTXjHjOzhBKWOGJYQaKZBrABw4INWdg4VUyL izLzxg97yG5+5K3t7lytrDudIB4mlmRJexj5e5f2bUJaCNle+Qt5zQodk3+1 DImsOPvtGy869iIXL2zkiWHruZQxzR1rFJsbteg75vWtFwwwk6gqhnlRsmbn 5TH5oIU3uaGM1htZyaliNziicPRgm0xPDz+Qr9Y6i85sCmO6gGqBtXL/uCDb u4ClkwJDxfeLm3Beffkn9Te/nkK5UkwPjV6ZR72brMyzX1yZSLNhO8HEmuCs BHZ7K0qDccA4y+EKGFbN2NSFU4xaxNrN2awJySp9QQOGhV7Psm9j7GF4HOlV lJueuv+KDPeOEvNWAySAwb1QQSIS2UlJWxzFsKJ8RlmUXDv96aBWDtkhQdE7 BGWHHDHM1oJgsJg6vbEmS2KzCR1RVwxXrZLrX+HkjNUkxu0RqIhOgmxIHfLQ yZL1TfGtg4XXVvfg/oIq91pi4v+NUdIH0J+89Cim5T3m6ZRVUAzynIEFZ94N pLaTtFuYBnmFFV3c8bto15DQIamGsPEJ/kTcaSkDxDfLYQsYVs/YVAbx9Ipw uSCNegkPz2JmPZzCBzesp4VbVpcOtJD39sk3bzVAxLC7KKnye0kD6tlvm52U NAZx1OsWmm5vImlHhJ9chhgu/jbGoViW//CFqhyvq4baYpgXmihqg8kWNnF4 AUlfimPJevkgLZbsyCyyLRrmgXvQag54MqyLA3t7SicNMuQ0a8j+8AXaecQJ MeVnZCtO7CJhKvN4kFRDNK2ku8I4y+EKGFbR2FSGypZ6IKhT96FvLT5wVSj4 kFWYendvEQIJGBYK50C71HG9+qRIbiX3XEaueasCUhPPjRhGy9ro10TPwTNs JrrP/E2PEwh+TVfB31GyGGZbvTDouAeRi+pimE2XZvAlZh11+5TQl5qrnGkj H7kLT5m1ksNL23PuTIsC4/bJTf+JBfB80GoDWMIMuPAbUApk6PCx91qqW2fF ec6qw+R928EQNmwL7VBY+AIvrOyXElqAcZbDFTCssrGpCv3QRBaCQ6v6eHhD BNbZK/T6MG0yCMdm3GRWXQ356ZnyzFslENE1NvWO88+w1c5lVnTHhIMYxlqT QRJsJXPmdxQ6YpAshh1SDj0kqEYiqothJ9GDQnnTyFEIZ2muKN33ajC2tFa6 8zhKTedNTvFie+AQMAyIgT1YwZSAxoUXNiyxT3RF2aHXO9D/sm3cfofJ7+8d Mx7kXBxDMwjKm+px3jy2hZz4VB2MsxwSMKzo1ExlY1MX+rk1EVGuv/DSog62 mV9ywU+N4cRCu3UtcjNfQpb/zP4V5dpVkp4px7xVw76RcbVtz0+OaU3PNg2b xR3TdUd3/FOktYt+Ypibti8mRFOyGEY6odAY0dengRjmmgQhvJYhuwz0KIR2 5A5OknyM6xT72S471YhM7lMG9cAhYBgQhYQ2rPLgRLURUjPrSzNWdaHf6MfD t/3Bm/wcL6642vC93xcFkyu+p5X8urd5sn2IYivI4Zvl0IBhyY59BNWNTW3I lvc1zGGRKW6a2rANoWS2gtIUtCQCqe7aJFx1JjFyT8zu8Kj58bCuTGl/dBEn 62wo8yDJMW/1sGUoOPc9MoWhqp5Vi3npatbItpaWlArIPa640k8Mo9sZGqFS PFLFMM+pYoCujny0EMN5vKKj7k852Yxm9iiEqrdPBE6Ix1O52n62i9ySBm7h SpuZQcBw9aCipERZxgl7SKpSDKdjDp2Umqv29GEL0TP+Vydzq7OwYSWTZMne WI+LkSCxVmZtfJZ5gGJ9qvhmOTbWRZmRqG5s6lN65tsJbeuaA5+e9dXhG7wR lFw7tW5sKB1Q0nDAjAO5+tepdg+6PaHhl8YqyNw2teOjprbdEy+UnV9IlwVm 8zFLT23s7aOwjaAs81aTov2L2lPTTr+EX9kf2Vqem7qyL+UeNwd3X/EzZiVc cuP8/o2fzB0/vGe7x/3N7C8S0OH5UdFxW45f478w3CA0PcUwV9ySuC/SLlUM 82WkJxSBl4oWYpjbCJ5GwIvOHPr4R0xO/PabjXGTOj5EBA579wiWimfWyp/e 7Mi9HY3cwpWMmRnxEAEQSdWau3HuhIhAW3q7f4uOke+tO3ZD+uQgpaqSTBzf TQlhgUwVcXeR9rywYQVlrGwRrWai4+gjnna0zbp5zUT70UdEJo5gmeXQgOGm Ydtuybr/SnWNrehi5pYPYiJ7tmtod0HUaRQ24rUl251IVjG4cctZb/y2cWq/ BhbCv023UbPmr/5qV2pqWvKGtXGTB7Whonb8g7tFO5PKktBmREjAMNH8ibb+ VJGsgB5j4+KTUqoGtX7VnFHPNaxpaTs2Lj2Pml4Kr60f0spE+kWDp3+RnJzw waDHLBhCQeSZt3pYKy5vnx9a9eR9Hwp/LS5xd2pK0hdzh3UmXwPfmhExWLuY Wcvzjmx5r+o5M0Eo5kaPdx82dtKb7y5Z/tHcaa/ZbMDiEzzynTTukQTXH6un GGZ7WDPgFcOOuSeGKlFuRwsx7CRpXfg0tmpOS5w7vl/I4/6+9Z6IGPL2hn15 uHwVznpvaVZRvOT6mf1pe7Nugxb2TvL3f0J6JywPBEUMjV7w4RzbLGoyk64b iXqYPVJRrVmh47spesa+kTGF7ozs9kiFNwnLT6m2Z4grc3OpAxqVJ6UbCIZZ DlfAsDrGZpemrvDv+NLaU39Ku+bpjd2FAjkosfruuEG2LldEnSYh3fqMil6Q +MPpAmWrtHYjQrcnDVomXC3PO5by2ezXB/d4OsiPIGeYTt2HzuD5JIvzM75c PLZ3l6rPkNvwuPW/KS/0Kte8VYX0OcS+PviZf1ZpUXOjVmEvDJu1LOHgxTsY b64gc9ucF57yowv1ksL7vS2ZF4t4uoVsu/Z/rwTX5E7yjpG6eqYfSvXcShXD jp7nh00rcjAPQQO0EMNOHER67pLIGp6ON+NZ+TiAQaGbepuDuy//8apthUJT m7uMTpeS0Y3EgnLTw7GCFGgV/WKyZytCBe1Prevs8K7J817aHqOJaNZp0zWP WIsdQL1AWtatxRUwrIax5R9aO4jTz8gpEsM7aUvQqXCTpiNCtyd6h9XpZd66 UZSXMntwM2bLUztsZMJpgQ1OwdH1IxrVIOyTPD8CTb9GhyCGxaCNGOaHrOj2 uJgcHASh6hYAIAJrVlIfsxMPMFpNRVL6CepWVS+uBj2KFSmGmZqEJqJR0zU5 bud3TH097G5hh+YUngN6UKhElMr/XmWBvpiNzWrN/vKNEG6KsmuqDKnliixR PyxlCXr0FNN8RGhSku5hdXqZty6U/P5jbHhjW1ywhQh9Z9MFcc0j6EIWVF0d NNCaRmKhHqzwZZ77evIghmk0EsM65Wjw0x6rrF1J2RkAICn+Y3Xoo0SdR+Zm OBbzuby0v93UJKWfoDK1R8J5vPdrR3pJSbalkXCHGsezQhLJOXQldzb0oRKJ eKWMPQdkIvUxT0jQyGtZ8ld8N6ZbLrehs1TwGltu4mTHaZamTrO2zR5x+jd+ A+cIi0faifqgUKV6FdB+RFQbEQoPyBjVx7z1gEpiZdxlFiJsYVqB+CmH/jUD Q7fdcBKmq4ayEolUmSd1UciaF8b5vDGLZekmhnXKN2S7Ptl/OCVZJ95N/m/x 0a9N8hDmrTzlwe77P9b+5wGCCJ6Xwl+0kBNGKbUauAEM6r0sUuc9piah2KgP rueZJGD2t5IUrb2bgKdVVENAC+xL+5WFL513+rOofoF+PsGRcx1y60rTl7Zj nqrCUGqMxlZyZFVXE/tz+z/VY/rShIO/XCywOz/K/87LOp66bvGYfzVm8/It wgXlKCeqdsnOdnQYEbuL9IQoPhXN26PgKOGq+TxmlwQlTGE99mk70u+am/4a NzTUQkw7rFfDEof2HyR4xbCcWDvPQxsxzP8W5VOuHMhePA4xEh5RK8Yzcfqr 6YjnVmspzI4NquE8nJVjcpIKlyF1HhSW53WLpHmPCgWx3dKkvbliro8WKbU9 BEmxc/bmOB7sFiZhiypjXQvKi3cObWx/dhyfrb20HWE2Pzs+Q8lWEaOx3Tw5 M9Bm8ObW4XM2u62uUFZ46ou3u9has5iJ8Cmn3LzitNuthkY1MFl0GdGN9Cjm nN4jViiVzNuTcFDCohz7fMh6kuaaQ6JncCr76u0sdSz5LlDVR5oYZgvaMGav U+NphVQvMcypYW7DkOXlNcF65us+/oLZIhphbt423lP9EXTz96A5e5wsklT7 JwYpJ4xotK2aIVgS5j1WfRH1o9bdEPVr8J0S0vrQ/b5yKO0gc+p19yDYjnJY Fz5ukXY2wsRaeXbhANpFTzQV0XbNPbiMDelIGDjqvUxxFa5YEeK2Mok+bmGd RoSG8+nf56JSNfP2HG6fX/R0XXaOavpEwiWZyw3pJq0bEMDpvqm3PuRl87lP kpUmhouvLGol4eIeizZimOcdItFeDPNrmBu3vDzgKZTfSxpQz1WjUofSJRLC ZdHVR81IHu68527SZnSpxJIOBZlTTASHugFrRDZYszXH8dwiEixohxGMmxfk 6fn3npZJrzHFBfti+lPVvUzmtr3WSCzk5QRMxsZkVjrpDeGe0mOfP0cO0+w7 bq1zL6hObmG9RsQGDHtAB2QSlczbQyi7t29iB3SKUhJ05DQoVOcUSH6dN7fl E6WJYV5XNU43cONQrWKGHUtDe+smF9AS8gTKeW/Qyvs3P+1ckzU2KrFCymXF zUXK4L6bLgM52AAJC9F/wzkJE3vJrU87cs8XRIbPldxJeskWIRD28TGMW1Yq BNQcMOlLLD18bKCRBhhrzlsrT8zvSbYPrlt/3ModqSnfJC59b0xnKjC1Tr3+ szH1F8BibEyeo//whZJ0Iw211XI9IefsfFF7t7B+I2KCMIUCLTRDJfP2DOxZ CbZXQFn3aqflAnRPgeRmSwkoH2mxc0h1R3qwBnUw6iaG9XiheLk8qvUyAKoN f++Y8aCLjT+dTGE3NikV/NDoAnXFMDcR2IUYRgIkZITS7RvzD4e3331hH5qb 22Y0o4YvtT6zALYgZNx5QNxefjh3+uXF2bvXTB9s6x8R8GTnnsNfnbduy8k/ cX0FHmOrOLKsjRIffvH1pSHkztHp6cmJ6E5Vs/XIXfJ7ectAxxHlbpsXWs8U 0GXAR0cxtxWWiXrmrTsFZ94N5OzW2y5OV7LD5KkdT0iB5NXRcqvPJYlhXtdp /QcrD53EMNVS5xr27xGAm/NIGDe4BfAc8ne8E9y6xerfnOzsyPVO3OTDQzsx zH0pnL8RbICE6OqpKEhxORvCh4ZMq+Kq5xa544rUb3RJRenRmaH0SA0jhlUH h7FZK/ePCyKUnS/f+XpyLaf5YnnpUQ+66/qtCt43IiUY2LwFoAsBsSiOS+H7 3DyikQHbU1t4EpYghnkBGB4xWFloI4Z5KlSfFue825Bc5YlP8XeLggl3BDzZ JcxGeAhakdKXiD4KXmnvpeDUzAaIwXccfUR01hhXn6ibfMF9KZxUhi89tbE3 7TixEBGf/izjAIw3yQhtQsuK9owJpkJlTX7//ugyvrEj56G4xTA3pdpQagGH sZFLrWKnECkRTUTrAWncWt3nF/QktG/D7X0jUoKBzdstjk24FDdNdiyt4EGN DGirEzNSCWLYoU6F24xRD0cLMeyk8L4+5WL4Ylj5YHlxyKLxI+YeN2RoDSCG 4m9j0GxNiUdvWhX2LLsTH1YTtUrH9lJsiw2zqfvrJyXoeTv8ghICI7IHSMhz RLu+LlsjS42nqk1daBXAYWxUol9Q9A5FJxi0M/ZBbgQduanU4+zV+0akDMOa tztK9sY69FJRmunm6ID1pB+aDFNHcH1YKV4MOwpsp7kzBkELMYwmojLoUtBM DTFcef+vKzkMZ34+kJqa+s32hA/fH/lUXccxE0Tgi9NXbNqVmpqSfjo759ot 8At7LRWlOwezfmHpR29aiWHu6afjG2GtPB7DpF3UqRV3Uu5ZDlusQHh2ZQMk xHS4Ew+dMN4kJOQxtZ6qYdWCB7VUoPt2oSHlN9e/UtPW4taQeM2IDGvermEi YViUZ7qdWteZu+h7UAd5a+WZ2Ajk1ly2NRcrhm9kTEEqM2MOadMcLcQwv7qv TuVi+GJ4bOodlb6LV8bNTLQfetCxVS/gpVxGbd5MvBh3RdrRM/fkWr2YIl4g GbrMsUEFcgMkmAs5bIddpwyU/LVzZCsTPWqsEZWkt9lMRH59bFkHZkh4VR/X x24otaCVsYm5k6yNz6IdAegcNA/vt+IObxmRgc3bNXwvruIilrc+H8WZT/2J uNOeVHnD3sOIxkXvJFFiGHWVUB9zJa2NggZi2Iks1MmXzu8Mq167cH5rcp0r DQIacn3VEPSn75d4SeIFtEqgc/DZojVeEA+tzGZMdviBUv7Ekv85eRsur/1P PeYDs47g2zqSYyGaz9icX2z3hEMCnR3tsjWFIbsDsD0KqXoOrkv1GgLvGJGB zdsV9D4FxUIM+SBPySLN78Um2Q2iOtze4iZT+4GpNx3HLEYMF+1f1B75jPnJ Xsm50p9dWeHZ5C9Xrvh4yew3JlUxZnhEeFjY0x2eWZSivYVpIIb5ElSvxAHH XZuaYvjwRG5rcsMW3wMk41BeWE7MGDpRq6lPzm/phVqpvZz+/Zsb+je2fTuO wF1+dTX+espm6uHtN0d7m+k5/z6IYT5aGZsYyKrUNW3eab36L+PFO0ZkYPN2 CV/8OGZMSOUy9xDcU7PJbu6ODUEqaPgPmX+2kKPIBMUwt3W1iWjYYl66jBqA /P2IDV08h6qLYcdsTT2bSTlWh8ZRTcI593OXtueOWs0mYoBHwS0vTDScvlmO uECbgqmnT45/+hRqpfQXsa1+Sc3YL+FX5bs4fqXxkcncHQKbqYe5sHDuf199 tCZzGqiNGDZciy5tjE0ce0bUIQIjdt+mpYXHdJ1QgDeMyNDm7QL+pKQwbJJ7 IKh5jxgp5Kct6lqDvVf/npMP5LJG6V4M5x9aO+gfrLwxB7aLOyK3Gra1rIDK uco+ceTDvrYWS3p5DtUWw/xsTZw+H6k4doZVraiFQ70R5ecvupD/W3z0a5M8 hHkrTxmkfKGC8sIIqD5RrSg39/W39aBBz78ajPkEyzEfvyE7Z55hy/8SRJ1H 5mbgC5CgGjqzc456Ypg8DWfGZji1oImxiYQ8SaxNPkC6lbmR6o+5wBtGZGjz doGjGBbfJt4pTI8V+8zvmW5hO4Untk94kk3zN7cOjUvJKqKmRFdi2Hr7SvK8 yDa12L9r2H9q6hUcWztr5c5BtW1fp5PnUF0xTJ8KoU9VP7cwfT+cHH/CSQVI LNBdyVCUnr/oAd829MUYZ3MO5YVlV63UxBXDbYdB7g1vsaHCcsPAnFH2bQwy g5KgB2FMLTUSnBUk6MZ5qJ9ZPTGM6knaDWggPMnvRy7E/sSKM5S0aNgm4arx lKMD3jAi5eZtLc87lvLZ7NcH93g6yI+o3aJd/6i31/6Qw3oAy0pKtE2/cpR8 wcMOyikdaYPr9xOdTXb3Yvyw9g/51g6fu0Xw84VZBxJWrvjvoRxsbtPi/EPL p4f9P9bNG9Bt5Nx1u7dO68J5Ms2eX3tgX8LcCV0bsJ/0D+4W/dXhG7huhU1m 1M1zqKoYLs1YhT5TpTnpOLi7/U1ONp8vMeso/txp7wgYtp75uo8/p0+ljpib t43XseSTaBzKC3dcfoz/WldkfN61KRF3wq1JoElnFmLaYVXq8GVMb4s+5EZT 49e9yJxVuUg0lgW/1DDb3QMNFVaaqcfl95VDH/Tn+pnVE8Ns9LXiuv3ao4mx iYSUKCZi6v8tDjZiopkzvGFEysy7JPv7uBee8jMRRN3AAW8uSNydmpKUEF31 J74P9FySVlBadHhhZJtaJnPbbluvaDfJc8WwsgkBaVgvKc+CPiwQtcW4emA0 7WJT6MHmYb19OXX1+2O7tfQ3i1iJfeuEDH9tyXZ8Mpi+ByS2UC/PoYpimGMe +Fc6mfAakcsM6XSDCgVbAGPgcPTgooASKUF9hPdHaNKZY4Qtnrt1bJbUIOjx h5k4oo4L9uMMZ3LI1LOL4VtnYjvVZV6Tf645h22CoDW2o59ZNTGM5COwpQMM hOrGJhq6jVHzoCBDJpo5wwtGJN+8rdacTe90oY6F/Lv/J/ki8oKXFZ5YMNjX QkS+HR2ih+1xKz4pckhynGwWInz5EVHbBbZgnfAWg03/d1GKRzlFV88e3rL+ o9kzI//VmEB5uFn/qNfnLl+39cCPV+6p8tVs8zL9PIdqiWE0B0eFlU4J3F7k VTf2RMIlnEsXL0xan3Z7gA6IKS9M7pXMxJNDDwrtwdAYBlXKnhRfWeSQUMqA f9/q2HeD0qLF9qrCuAu2k+l4jxL8lnmqiWFkIkWKyhoH1Y1NNMyTFPWOGAIv GJFM87Zas9e+0pR6w/17vpaez9NRJXc29EE8Zn5E3K8abiM5DTIUTAic1pZS Jk+2BYOPeUKCuyNq1nGhNJxDDBLaMWMBHZ1+DftUEsNoECD1JtSYflBuviF2 HALdCSJg8oZ8XK+gY5g0iS7t9gDtcajdF5Fwjv+Ziu8XNxHXlgiJs2WDCnCS d2A0wadqOvrXpsu4lyTH4xIL0XPetvk9H2L+f/MZm2/h+k5qJ/5gw38sOc1b XlQTw6iY7JFwHtt1tUJ1YxON/Ul6TWF2LxiRPPO+nBBFKWF3HickrkytFB6X cEpd2dKHJVNRduj1DvImT7QFA9qj0AlsAqMWvjWtxTASMKyj5xC/GLZWXN4+ PxQVm341Ir8641Ehs6XHPn8OLSvhR4zbjccrlZ8c09rhgfpyG9MD3opD1EH9 xmsu8ZY+ugHog+Ii1dnQAjWa5PLjeDG/Cxx4fZ8Jv9q1mYXIv/e0THylQsi3 2+wiPUE1McyGGRgzQUBlY5OAbSH2omnTC0Ykw7zZ5g4Wov+Gcy53AeyWXIfM qfMLejLzkYloFJKYJ/kKHL9fnYDowxKcfmwLBkGXOOLEDln+s+S7lIjWYhgZ nY6eQ8xiuKwwY9GoZmgYdt0G4zZ7lhKmYTatzM8ts2o0B4fafbYra7zbBfSC o/dcxEjk7HxRfP1Jdr+synTktFpIx9iUAjWEEF8M218QvAFUVL9RlyeVKolh srGCrQSHvCVVf1Q2NvFQC7EBkxBdY/gRyTBvtu2vUF91RAjpkDllz0qjkNoq lLPiS3X6oQHDQj3Q2TNHTfbaGothdnS6bhjZuGUG2fuOgsxtM8Mbo0LY3Lrz kqMeEx3hAD+quWHw9OSzMu0MSRMIHP/lF+OCmMtCwHC1gav3nByJ0gdqFtFJ NKirWYWkiax5YQ7vvooprmwZSYevxOqItlYejwknGrtW1yqJYda7ZSb6xFww WvYcicrGJp49Ix5x/voYFsOPSLp5o4k57usqs1lsOh2p/L5yqK99dO51O5f8 vR/1qGOvgyP9+JsNGBYSCdbKPSMDbCpFk2R82mJZVC23iI5OR89h2b2kgQ04 oxYM5OZz/07W3k1z6MIpdiyWtmPj0vMwrawqlShEwvuZ2yY6Tf0484a02y7M OvjhkPbk8C1E6DubLhRz6oQIxAIBXgNan8rZ716UGttKfP1JCnSvOmjLHzjv 1lGd4qwq7BTHCZZ63cKWHMRYs4JuF+LuTFYdMYy2tjSu5lHR2MRDu8uMHFHg iPFHJNm80ZJNTqPFEJgypPrVXLr/Z9KQVnYVIOporPz+2fg3QmyTvUw3Ghow LBAbgNbg1aBSDa/iVtXXDk5STcbwAoatty8fiF88cdDzwfV9CN96T/QYOH35 RqmqzD3Wwj8v5FCc+yV9b1ry+lXRA7kKlubhRqOWfZ165ER2jkuyT/6YlvJN 4icLo8eO6FDPsRStf/teC5lWJspRt0ShtTx33xq0tyDdgykybs3Bc38KHGqR u4DE90Y915D61+bAp6N3nrSN2p5Gp3F6LKArTNFIJ3KCauZeQ2puGroMYW4d XpQT2wyxeonRbjLgi+EGo5fmFOP7Aiqn2+/fH112E4Kijhhmj/ksxMT9xqwX oKqxiedGepRZi3x57TD+iKSa952vJzPJmGaix8wsNzKRnYV0bdKae2J2h7r2 MYa+vf63Qpe3Unh27wLE9Vc7bMSmrDsybpwNGBbcKCF1KTHutVlBSEq6/2Ue SE3d+fXq2Fn9W/K8FuRN+oe9EvNRQlJKakr6aUQbXrulNPYHDRhedfpy8od9 G/mYG7UcGfNhYjIp9mY939JM6quQuWnYuo2o3lDMUiuo75jl32Rgq8asVYlC 6+0LW94Z2aaW44ACOjw/atb81V/tSv3uh1PnbQaTsuXLlYvfm/RSt0B7Jnzd xkPeW3fMYedyad/L9WsKxgIBXgVSY4etF1G14Upd2bdqwyUjLp3dNctNdnYF 2jFck244XDFsMj09/AC/1JJs6BCU5kJ7DTXEMHrMp19dIAyoZ2yioWoL6JzB hxfDj0iqeXNrrQuIN2QW0vdIxXrjf5/9u71d4pqbtZ/0f2u3Hj6RfeFSQUlZ wZWc7JNHt6z5YHofxH9Yt/HQJduvyNvOswHDwu022EgSrHttHIIQg2Ej4dCW HgN7NahJdJq68lQBYgv3/kwaTrnu8XlsVBHDvvWeeKZP5PSYFV99c+zqXZzG rHmJwpJrJ5MWTOvZzNm2yAUBnQe88UnSyT+dO/BLcg5vTD2pTo1qwEOhPMCU Hqa20kvej4l8huzsIzt+nm0SJ3TgKAn0kA5nWTPXIEkZ+KuOkzndZhGVitUQ w2zVI3PtiV/iq4qhAyoZm8Qb0Lm2G14MPyKp5s1+Xli8/b1jhj19bWzqHXw3 LYvy4uztSwc79YtyMTdqNZLv/pIEEjAs6BJnI0katEy4Jv87HfAIMcxutSj8 aoz84qfbvAtaT66jehmbTB2GHah+5Qh0K1FYXnwl87vEpbHT/j3wmXaPOzQo DHiyyzMDhk2bvzhh+17M4h/wFkqundr4zpjQJrZJ1b/NM+MWyp856brENBgj ObMXRNhur2/0KU0OcFkxjD0kg852b9Bm6PhJAkwYE2qvmdA0ZBT6V2+vPC3r J2J/IAsxNsW4fmESlYxNLIxrWq9+rPgx/ogkmre1Mmvjs/ZFWaj0BLP5wizz FFFenLMvafm7tgQlljpNQnoNnDT/o8S9GLqwob4IAdu4n7u0PX3aqNt5jYqg 9efddO5D+kNJrfhhdAxRohAAtECNguS27Dm5kfaysIlhNaqOu6zbJh755YOY 2D8TETwgze1xpwHQtfq9Pe9Y337QGPGCEUk1b0TmCYk375Z5bmEDhi3EtMNu R45EkugWya8eSMBw/ah1N1wPj4myq2ZKzyglCgFAE87OC7etR7hq2NKuVBy1 tcVDimET5vIREkH7jGAKk0A8G0Fz9nhgQXWp4Dc20djyT70o6djwI5Ju3sjh u8Uy9jN3YRWszOO2eLZWXD6868g1lYo8egBowLDQW4a0huRuqYpy01P3y4xY 9hjQ+snTDrlbGRgxrHMVdI0xUIlCANCCc0m9mTcC1yHRlbQ1icc1rQF+/5fU lUmHVOnoIRb8Yrhkb6ztEPlhYkmWMQWPAyoYmyhslQmF84kMg/FHJMO8UfHm PicODRXgxORQ8bRG7GkuFjZgWNglzvqQ6wasQcqb0U/PuPX6aJjOhkKF9dCy pdzn4M0Yq0QhAGiAvVKf+O51gBNwi2H2d5FWPtqj0cvYrtMxb5pUUtUGo49I jnlzmry772bLNv3hNnnxDpnnBmQXIGQbaJc6bgdDUiS3MnhzW/GF9dBCoKp2 APEkjFeiEADUh0mnJReOucegWp88cIthsrk2hS8x66j3/Ci6GJtdIRi3a4kD hh+RPPNGqkm4E8N//PR6E6bFM7cIM5lV9+TQg957FM46e4Ui86k+TbZPcmJO yHDrGkavXYPWTxYIc2Ujajwp11JVjFmiEABUh/XSEA2nb/behUJVMIvh8wt6 0tfye2mhV7nr9TA2u0LQv8QWJow+Ipnmba3cPy6Idmc9PO0r5zGthdfWs03f uN7Re78vCjazRdq9D9bZS3n8us/8zdWzvXpoPNIOLGT5z+xfnd3YjTB87Rrx Ya6IL93Y/WskYNwShQCgNnZHTd06K84b8dhVf26tf9XXPqk2D9+m5DwpLz2K noC80levsbHZFIIXuX2MPiIF5m09vbE7rfScOnhpJez3ePjTjfk+TzJK2eKN L5QdNmCYmoUatkm46mwWIpviPWp+PKxrY9tHUTf7iehOXlC7hg1zFcoitBcC 1aXKjR4Yv0QhAKiHtfJMbAQ4h6Vx+Yf3XqPrCL8W2bNdQ7tLhvbLNGrR9z8T 6b+d+OHWG+KlMfJbBEzekO99WxONjc2mEIRC4wyEoUek0Lyt1vPLhvgSTirH Fp769q3wxuaGbd5Ou3D34KLW9COyJ5EV/r4s9FFfrwm/dwaaNkgTGLXKoSt9 Qea2qR0fNbXtnnih7PxCm3/e7i0vPbWxt49AbQEDQFc0og2gT8wFN784mj1H EKGrf9HuJvUDShQCgDvsVQe90huJHyYuwvJAUEiYC8KfqO8jOWrC5jg1EY+H b/vD2IuSSzQ0NsOH1/Iw9oiUm3dZYcaiUc3M5IvVKSoucXda8vpVc0Y919CH aNh34rb/3SEvWlH607sRD1GaOXTmZ7u3J85+viWlAL02RKKSEzBMNH+irT8V LBLQY2xcfFJKKvOUalrajo1Lz6Oegy2kxEQ0DJ7+RXJywgeDHrNo1ilJRQoy p9gCZbiF9figvnSvKdojBJQoBAD3lBxe2p6ye7+Bc7LAzHWhrGjXCCqktqaI BtBGRjNjsykEodA4A2HgEeEz78Ksg2tixvcLIRu51m7Rrn/U22v3ZxWhWsZa nntwU/Tw54Pr+5DHNOPfTr7o1ZMaWmG4QcuEq+V5x1I+m810u6vas3fqPnRG 3Jbj1ziHCcX5GV8uHtu7S9Vn/Ft0jIxb/1uh8TZYjtxKj2LUnvuqI0hRBS8q 2iMElCgEAAGslWcXDqCPIN01ZwRU4+a2Gc1ox86Mzbe8e2bWxtjs9XhbROz2 jnBAI4+oGpm39rA9c4ViA7weRAxPPOB6B1R+L2kAo/Wq0XkolCgEABHcv7mh f2Mqrr7lCvAOa4wtxdtsfnZ8hrELG4lDA2Oz5U17UWqMcUdU3cxbWyq+X9xE nLvP+7mft/QpYTHMlnmsbrszKFEIAGLIPf5WK/K4zb/3tExYszTDrgxbdEnI rjbbELWNjS43aiFG7vpD+MOGwKAjqp7mrSFsVQSh7sPej7Vyz8gA+mG4rAaG tH0xtR+YerM67R6gRCEAiKP0zI4RAeSWsNmUDdUkjEpnrJUn5vd8iMxkaTEv XdNO1rqjprHRRYRMpg7DDhi6nRaLMUdUjc1bI9iqCIaMn8GOPRjYVceN/OSY 1vTjatgs7piB3iU8QIlCABBJ6S9JL5FpF0TYwrQC0MOqYrVmr32lqan6SgUV je1+3v51yzYd96KnargRVXvz1oIb6VFmmxPPePEzalBw5t1AH1flB20TTnXe nUGJQgAQjc1lB3pYZfJTYjtU52mZAozNWwHz1gA0YDgi4Zzet+MRFO1f1J4S e/0SfmXlsLU8N3VlX6r7njm4+4qfq7FNQolCABBNSdZ3U0MeJfyIiXur8aSh JhXH13WFaZkCjM37APPWBjZguNoUyxXGWnF5+/zQmgTh+1D4a1ViLzUl6Yu5 wzr7Vz0l35oRMWtPF1SnOGEXQIlCABBLUe7+hGVbf612UVXaYL2YvmbtRpiW bYCxeRdg3tqwZ8QjtqJq4VNOgVRBKLl2amPs64Of+WfDmoS5UauwF4bNWpZw 8OIdsEgAAAAAAACvIXfbvNB6poAuAz46Ch54AAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAKD5/3jctKI= "], {{0, 117}, {943, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{609.2489583333331, Automatic}, ImageSizeRaw->{943, 117}, PlotRange->{{0, 943}, {0, 117}}]], "Input",ExpressionUUID->"bd50a829-0238-4ce7-a707-9d19e3aecb73"]], \ "Subsubsection", CellChangeTimes->{ 3.7467908610581846`*^9, {3.7468415726406765`*^9, 3.746841573089467*^9}, { 3.751563664713581*^9, 3.751563664713908*^9}},ExpressionUUID->"f6ff6a16-2683-409e-9568-\ 6e3be22bce6d"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{"G", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "=", " ", RowBox[{ RowBox[{"I", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"W", "[", "4", "]"}], "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "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}, 3.751563014274693*^9, 3.751563064633049*^9, 3.751563215475349*^9}, CellLabel->"In[72]:=",ExpressionUUID->"8a2a5474-56dd-4762-8c9f-f363344ffd5f"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "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, 3.7515630146068697`*^9}, CellLabel->"In[73]:=",ExpressionUUID->"620890c9-075b-4380-b25e-dc2459104430"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"W", "[", "4", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ RowBox[{ RowBox[{"W", "[", "4", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "2", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ RowBox[{ RowBox[{"W", "[", "4", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ RowBox[{ RowBox[{"W", "[", "4", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "2", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ RowBox[{ RowBox[{"W", "[", "4", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ RowBox[{ RowBox[{"W", "[", "4", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "2", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{ RowBox[{ RowBox[{"W", "[", "4", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{ RowBox[{ RowBox[{"W", "[", "4", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "2", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]], "Output", CellChangeTimes->{3.751564051506834*^9, 3.7517271792351847`*^9, 3.751730249021946*^9}, CellLabel->"Out[73]=",ExpressionUUID->"212601ce-d2fe-4d72-89f0-e4f3d1d8e1ce"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnQl4FFX2t6s7ETUkIJEPiIgQQJaIC5sDkigDQXZRQHAIo4AGQdmUJRpZ zBj4QJRFRAwSMwJRCKtBSIIkOBCUBIGwRSEBJKAJQoKQYMjW/e/uquq61Wst 91ZVd5/3eWaeGWi6q6tPnXvuub9zTuiE6cMn6imKmnmP6b+Gj4/559tvj393 xH2m//PitJmTX58W/drAabOiX49+u8cEP/PLTP9pYfof5v9tBAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAADAC6g+veOlXr2SCu6ofSEAAAAAAHgkEEsw/HF46kP+FKXTd+qT fN7n7wYAAAAAAGLRTCxR9fvpbxM/SUo/fqNOjY8vPja3SzDFEtTvjexSgxrX AQAAAACAZ6KZWMKcMQvxpy+j+4pcpQOr8t8TB7cwf7af/yNhbfX03RgwPfeW wtcBAAAAAIBnop1Yoq5654imbHDnR438sETJ4K78yvqR7XWWTw5flF52u2zf 7Mj6lksJjV5dWKnglQAAAAAA4IloKpaouZkYXs8aVQ3ZcFa5qKqm4n8zelHM fcgoq2P+8MAc5m60mbn5uiqHkgAAAAAAuKWm/EzqV6tWfrJ07luTTYwbHRkR Hv5kl6cXpyknbNJeLFF+cO3wh+/TN+8wIeGHMsU+2vqVA+7utzSD97nWv0Jv ETlqKwv3bf78i+TcqyCVBwDAZ8Dh+lTW5QIqYzDmb3yGckDrDzIVStFoJ5ZQ F4Oh4NOxjU1fNvCuqG9OV9u/wHQ35g5p6me+G4OTTjl4AS6q/vp2fOdAc+pQ p+v+cnYFuU8CAADQDDhcn8q6XEALGGrKigpNFBw79NGgFkxQVY+KOUxw3UY+ XTOxhLqY7sPaV1vqnN8HUS+TR92h5R2t4XVD3cpCMh8DAACgJTC4PnV1uYDW MBh3Dm9gMQYd1TJ823UFPlFDsYS6lGYsfuouYV/QejcahcQcvEriYmq/j2vM uAU9Nei9wloSHwIAAKAtMLg+FXW5gAYpz3+viaIxtqZiCTUpL4hr7S8iaGTu hp6KmJJHQvpUfmXDuKea1g/u8sq7GUWgrQIAwDfA4frU0eUCmsRw5LMn2Nzl I0sOEf88rcUSqlJVeCA197KIRJyh7lLW5v0Q8wAAAACAJvnj0xEKC6sglgAA AAAAwAupq0kZHMQIq9pG7ipV+3oUprI055sV00c8G9bEX9+8ffiwMR9szYHa WAAAAAAApIAIq/RRK3wqqqrK3zs7ooU++MGR736UnJqxdcVbTwVAS3MAAARj MBRuWtD3fqpv0jm1L8U7qdkde3fQg1GgVjL6qLF5pAHkrevBCqt6rTmp9tUo h6XHiD4oMjrderZoMGZOaE0r9/slnoI6DgAAXMG019PpO/XeWuRBTt+juH46 rvv9lN9dj7y5xqd3uz5rbB5oANe/GMsEVQHU/KM1al+OUlzc90oTP/uxg4UL +zA1tgNjz/uS5QIAIA5umeuTfB5knyQpPja3S7BPnyP4uLF5lgEYjHvGhDDC qg5DM/5S+3qUoepmygsPUY/2Ty22zUgdj+nGysyGZpSrcnHKYqgtObR13mha WtZ20MT3vj75p9rXJJjrpxY/3UJPUW3m7fE9RwOoCrvMUc3brcwH6yOPeSPs j3Nhle/6FNPlgrEZCRgAOeyEVYYbl7ISl0wabjYVKqDxI32HzVix0cvGw93a /nZjioraUWT7F5x6X089OfFIlcT3N5T/eb4QFwVFN4jd/JrynMVjW/lR3aPj k3dlbI4Zap4WFEhN3ltM6hMxYjAejY1gmq0NiL0AqUVAMQyGc8tHBlgelgm7 7NyI039VXVWtqLKguuoOts+rqapS+xGrPvLFP83DZXAMipXt+pTT5UozNm8E pwEQBRVWrT5xKfWjQc1NgXe7MbEmU0lPS0ma82w7vSnICO06P6NQfucFLH5F 7ptU/r6s6z2O++jeyJvViAky/cZ/fsvBPxZE9Y6ZFHYaPdS198CoGbErN2fk l+IJtC4lRbe8F+keVpL1siVT5xHTAA0nNvZhbo3PpBYBbXBt28xWFsvrtjDT /YNSW1mw6/PJ/Z9oRnfg9ru7dc/+ExYm7L9wk1SMVVma89/4fz3xoMl1t47Z If/JKN37cd9G/pTfPa0HjVv5A4aFQDLF/33tfstGKvKzn+VchkzXp6QuV5yx eTu4DIAonLCqnl/fYf2b1qO6T1uVV4YYxe0/U0a3N0eIOJqc44g3ZKYmDMYT 656kqEn7yhz83U/L27MfMyj5N1W/pksCgrtEzVibmV8hI2I35KcM1FPdlmZz Obnr2dHM+2teZVd1c8NAdtaEKawKjdx1Q+1LAnwD+sExETQoJu+2u1eXX9kQ RQ/wtSO4xcjl35VgXxuKj/4nooXe+mjI75lzNWcKOz7YjLpzxGoq9owLs6xH 983PkahZkev6FNTlijM2XwCHAZCFE1Yxz8uYLw/bHw0bjq/raXlCdV1GZcn7 HhoIq0ybx79LLv3uMCDh2qIGUvGnZIRu1kPAsyez92akrv903qgeQfZfpWHz scu/yfz5jKsjwOM/ZqR9l/zpopjxL3Vp7G/zBiGRryYeuSLFxdVVp40NpXpN zEX3P0c/e5y9x9MPSj0BVYRrm6Y04d1JmAoNKEL5b8t7maWzVKN74o//7ebF ddX7XgtzGFJZwXxmVPnHGvryEH85Pk1WXPXbsqG2Fy3ku5OjKOsV84mdTtd5 WPo18Wkhma5PSV2uKGPzHWQaAGk4YZXZnCJWHHJsT5VFi9kkzuDki3I+kCc6 Kvg1Nys9feemNXFzhrS7z4HHCQgKfzX246SUtPS07BMFXKhx5TqRJR9tixo2 aj/erUHN7ZRhTflfz1//epK4R+XOzfy9X8977nHe5jegXuTc9b+Ui7SuMxt7 U1Rk0ln0z1j/qaOatku6Iu79FOXa8Vmh/AhT++k1wAswGI+936++xeI6xWe6 387UVed8OmvC8P5PdXxQTzkFp1AEdekM+gaTvpKsZ+CND8b1nrJhToKk3Tp5 ro+0LpdDrLH5ErIMgDSIsKpJ9Lqrzi9vz0t02ENsEPMfh6c+xF8o/ajBSacU tSVEWEWiLSqXCmPpuuJnKW9kqC05mPz6Y7w9aVCff6deECG4MruRkK7JJcgf 3bn2WY96jFt4Pr5IwgB3ZeCU6jwmZXlVVQWgQVjFrGnbNTRD1KGzoabs7OEt 8ZO71XcQVlH1HC3T0jAYdw5vwH93eeeAjOiIwvme8jHrYy3OKpCa/oMDOYcL ZLk+8rpcK9KNzReQYQCkQYRV1PQDrtRwbFhFUBvMfgSL4sc6qLCKRFtU+wPQ nmtOSX+78ss73+wTiDg6faf+CXnCCoTNO9B7bSJkdNy2zVZOUyBKdR4+1XYY UIE7fyZGWuR8MjTJVQX/m90t2M54sS2dVikODz9qUqY0r80oUR2gdn64Ij3O 4q71tsd5rpHl+pTQ5TLgMDbvRqIBkGffuAeYh7pl+Lbrzl9X+/eGyADGYoJD EmSbjEPyF4Tz/IziImQum0TGY2AOq4xsjTDnRUV0iiv5cUv62Zvon+TM6MS8 TZMWCRe1+hwzSnVdwwY2W3KpqT8AEAZ9+oMhBCo+Oru9/bEa1X1FrtzTDFo1 5IiQOTskJnOvHo0b3LN1oIP3VDk/bM1XUFTEmhPCHZYs10del0uDzdi8GKkG QJaKwrhW9EW5O9rjXkkwicSWUTARgtIl86iwikxbVPxhldHaJo67bxLnGlzP ncK8i14/+sNirZ1Ws1iU6jpdl3/tXvsm/176+0/7GsRVACmw+nBr+x0EPfXo i/vleTy2tsge2WqfytLjWz8Z0Zyn01D92J2LPTo+u+tPqb8JFteHV5erzYBB e+AxALyc29KffUAeWXLI1Ssv7hxmjXaIiZlVDqsIC6uMhMIqI12Z0gJ9Wwml uKx9mhm+5Q8MV0UCWqnuR41I+a12X1xj3r30uSnhgJJwDjy01za5bWac6APd KTHcYG05Uo96ZeqkZjZvjiOFYmnWxEVWqodVxvKCuNbM9XRaki1tWcXj+rAu H5iNzYvBYQB4ubnhNevjHHPYlTa89nvrEkagRI5F3bCKtLDKSC6sMnH5wMQH eBvJsAVpIhx0XfXOEU2Z296cL+bUDuxKFPjCosJae8kHNFoHiFH1V2JvRgXR bMZmPG7pdwdS8NYfZEpeGqr2L+5AB1AvLDx/ycGbYxFM/r56pIbCKqPx3MJ+ 7MIk6bAMk+vDuXyQMDbvRa4B4ObgpDYCzalgYaR18XIRit/asyiyVzhCryHj 3l66Q+iMJMlhleHGpbQVc6MGPo1+dvjT3eIPi4gsSAurjETDKqTglEFUn5NL 6aOZf6Zy3bQLGKW69Xtdtl4zc+VU55cPQWcXgAB1h5Z3xO4cDMaDb4RRNjYc PuWEtKM6a7uqIGr+kb+RMykrmNK51jOOIGrprxpID1i6JdBIaf6DyfVhXD6I GJsXI9MA8FJ1/bNu/syz7LolLKpXdxmK153Z/dbzvUPtKogF9ruTFlYZzqaN a2Pb88o8N3Pc1K3nBdskeWGVkXBYhR7HMz+rwypgR3AFobI7B5KCPeDgsnDW rsgiDQYAxGEdSoKrHxFL3Q9LHrKxYakJE7Y7rq7+y6tKLM6ce6itb47FszHP nWbmGnDLk57qOytfZEcePK4P4/JBzNi8FnkGgJmy3CmMZlJ/3+ztrpZfNC3Q kFqa7yb3VHXlxGfD29voMYXMpZISVlmrUK346bq/lZAvtjcmcjJOqjEX6bDK 5FrXv8qrL6pHTdgjYGwo2rOFL5o1XM1PTSczkF0ktFKdp0u8U7Lscf7dhEbr AAlKsqPvZf2YjEM6B3Buh0VagqLs9Ht0d1w6VUWD7OJlvbntZ9ELB875LDLh MkVBVPwJMV8Ql+vDKKwiZ2zei3QDwA6y2Xe9uN/c9OY9bKhj3Qq5wdpyn1vy 3MdjEsKqyt2x/KCKChq9SMIkCPRk3I16Xwakwyo7tYaw6B1xvzZV2Oa+eS01 sCdFlOrcH9o3f8YhygUAGzgH6E6DKhoHrTultDwq+Og5ervOk+Kg5dssGFSj bHdQDS36iAcTd1WYXB9GYRVBY/NiJBsAdpCwypXysPZ2ylA2ckG3Qu5AyysE fl/RYZXNQEORV4jChbskjZl4WMXJL1kCqDk/ubkhZxawFUk2ob55K2fbN08F eEp13t/Y9o/VhoYW8CpQSTMBeYD95AXR27oL6S/R24vgRivP8bYVrHrWCgZ5 FXNwKbNoES9cACnu4AyX68MmrCJsbF6LVAPAD3KG4mIxQhuhiBu+wzUDYb+v OzWm6LDKdvqV1KNV9GTcdVtUeRAPqxwIKtzpMLmcj+3do3/6Md+q3GzBVqmO wA425cDQ3BgAULgMMJEOHnbyKpHt1+pqDkztQv9L+7Fxf++YeS/vzTHUcVtC EbUn19jB9fMUcCzCgMv1YRRWETY2L0aKAZAASfWMT7/p+DVcz17xo6L5Qnch akzRYRXSd4tGYgJQEWGVUZGwipvDzt1Glw4QSVrytsl11fteC1O/ZNVeqY7A Nxgy9xPwbZDeMmT6rnAtAVkX9NwHlwUvC9U5q3vSj/nDEdv+sPNctm8u+6D8 9m+Lw8wiLq0V/t/ezDUHFtpHApfrw7d8EDc270WKAZDBeozrLO1cmhrbgX5m m7WKPyI6CucCSBp3Bbliwyq7jZ7EZm7KCKuMyoRV9nNRXafrkYwfmrSsOris M8XXMqmBA6U6gt39hEbrAGa4jCgheYCtal1M+zW3Y+McyavkNPut2hunuRNA MwZj/sZn2BsoNM+DyfVhXD6IG5vXIskACMHUjzg+O6s+mfJCoCW8adZ2QbaU Tq/2yQTX0hexYZV9lCJNWqOMsMqoTFhlXx/nOonH1fNySUtLL2Uq9PVEV5Pc FcChUh0B3dzRDxSWwfEAwMCdExFrk2v7wIoQh7Ct6lyNmrWTV7mr+3YBo/zR U91ePkSmI7R0uBhJcP86TK4P2/JB0tgqLuRu+TA2qt8TzaxVPo2ah7/0xtLt B69KumRDdVW1VioWLEgwAGJUZC7ubF6OqMFJp7i7a6gtTl81yNK1Wx/WZ+XP Ervnc13chYU9YsMqW7WnNLkg19IWw0wu1ygRVjmoLXJ3rMB2aA+KfDN593cb 4yd3q0+FjnrvUKmqj41zpTr3Cmi0DhCFy/3KaNTpGtsHVnD7tas5U+g5MvWo SfvKnL3KzgnrqT6zfpEUV1l1tlqcUodqToT3KZXv+jDqcskYm+HqLxunDW7q RzkjqNsLa/P+FPeeFr2rto4ppRkAIQx1l7a/38sUwQbUj3gjPnlXelrKl/NH 9TAbSkC9yNi1J8qkX57YbJLYsMo2G+a8bZGh5MTn0YNDA/3DoubbPDLV2cue YN+AtLtQIqxysD91fydNj17y/ImDuz4cFND4kciR72zYV6J2BtqFUp3DvtE6 NNAD8IGc7xBMhPILWoWFVQbj4bfpAyN3TW/y1vWw8QbSVn9GZ6ujWnX/+orm oiojX3MyJlXoKZBc14dPWEXC2EoPrB3OH2rmCJEHUrQlSC26J4c0AyBH1ZW8 jXFTRzz9WLN6lL55+/DnRs1ZnrT/wk25U9o1ElbVVu58kZtE3DfpHPdXXDdR vf6ZiTmED5CUCavsz149r0+mS6U6BzRaB0iCpnrI9cPhF7QKsmFa/2M5LWqZ UOgyP4up46g1VWXT30k7oIcXRCWyKBiFVZiNzWAo+OqtrmjRmCtMhtRuZb6g H9ZiCYI7WCqIKgagPPZRhOv6d1JhFV/FzSk2DcYzi4YG0J/V8rGEs8S9hWph lacJIF0r1TnshWTBIQnQYgHABBrw8LZjWBHfWIZrttxtabab7KxtRTbfBwqE 3ebYt8bSDoh39de/nqRMJgWjLhevsRUnv2lTz8XQqFWnVrbt/mgCh81zH1jR qap73bdDVB5VDEB5xEYRYt1L/oJw3uudyfy4MT1U0IDpuXRKqrJsX+wQy4mz Tt+pf4LIw2VpqBZWeVafTFapPmTDWTdbNvslQ/VTdW1S+ktizBuTNcKCVXke UleAHs+Re4LE+j22p7pO1/PlbAF30r69W8jc3aJio4r0ODono7W+Cgio0lIp jSVWXS5GY6s6tPopZHpc0ON9ZyxL2n/yQpk17qv9uyT/aPq6JeP+0UJvfZ3z 4iArllSViGmzCqKGAaiAvaIYc1glVJNgMB57v5+5NWlwkwmrdqSnfZe87D/j eljMqVHjIXNl6cdEoUxYZf8pRBcFzDBKdT01YNYZAZcMjdaF4NAkVMQzfiM0 F0pyLpIov2fITxmoZy5p8l4BEz/5LX0siGuNZbxxNu4RS/2YhlNVZrgmXTjF AArpcjEaG70ttaDvEDFvs8tav5ryvC/f6ck0jdVTEVPyXDyadKrqLlclEmpC xgA0h20zOje1veLCKq4EgzUJFxUutZUFuxJmjBjQpaV5FQ55tEe/0a8tWLfl +J+KuncIq9zCKNUF6yH5GUszctryeCuG05sGBrlVriqEvk2nRI/YSaKqJJLq RBF+D5ks3yR63VVBd9F+eyuu1/pvq16kMzJuhI6qwykt8TUoUEyXi8vYkK77 oWP/kyssY2BpK+G+qlTDqSoLJAxAg9h1unNd4CAurKosWtxexJtrAWXCKrvN qRnPCKuqbqa8YHZirWN2CNxqXFo2RIFbCvgiqJcmOdOK7/dcbQ/ZCEdkOR6i gmAQLkFkBg5qtwCQA+19iisMVkyXi8nY2FoGKjR6dWGliH9YfeSLf5qNRB8w Ya3jIjqNp6qMZAxAg9hKX9y04xAXVtm1E++64mcC3wEnoK1yza1d77Z0NobD CXa3VEa3QwBAUepMgf/AOpWFcMd/QmSHKFXXP+vGz1X6UdMPCmhEwm5zTIR/ ckTrRS/oOZrMkcdWFNPlYjE2trIgaPQiUTEVjSVod57nKdz5vJZTVUYyBqBJ uBHhtMG4TM2J0xggla1mPKHYTbWwyiNsjO75L3LJkDupFgAcg56dkQ2r+AfZ TsIq5PhPUMUWn33jHrBxCUKGkl/bNrOV5esL1MarDL8uGM9GUiFdLh5jqzu0 vKOcvGLl78u6mlOTDnUUx2K6m6IqoeOnVYGEAWgS21XP5TApUWEVv8W65iaq O0SlsEpHNW2XdAX752DFYDwdFylcqc79M2i0DhBBubCKX3bhWMzAHf8J7i+E Yn9W7r4zEtuB3OS0o3YUifmw9FEhrYa+FZe4fW9ufmHhleu2eTFDTVnR+fyc H1LXr543tnebiU5OncRCaFVVQpeLw9jYWTxyxPOWMcGOZuqVZEff62pGkibw mbAKHWfp9nEWEVbZHS82mPSV9rdTyoRVdsVx6s9IcgtzwFGPGr/pZKEoftrw vM2XJTRkBPAt0JVO+sAXIfAfWAfp1uq8jQPoQzw/KvKznyUk5e08jzslak3F nnFhluMvXeC/Pr4k4rs7KAB3gT4s/MtfMPkmfhGTR62qOIzNvNTKTi+Ywycd 1WFoxl+8Pz63sB+lzaFFKB5sAKKhfxFu1XM+XkREWGVTY+iyfkE7KBFWOej+ p/ZEb7cgEg7ZeHVpLaAcSrXB4QbsMtg2iOaaf+p1faYelzLjWHRS13r8Jz45 JiKsajZoYuoFnGufMn3GCIDD2CwyMOHFPs4uxJzyupcvGinLm9XUM86DPNYA xGOWuiE4PwcUHlbZhmp9Z+VrXVdlRomwCq2GYNHWTEw7LEp1XHjCiSfgASgV VtlNCuD5BHbguBnX8zFdI2rMk/X4T0gXd1sEhVX6Vp0nf7EX++BRj11VNdTK kp6hg0rvrq1/1RT3d4rP1P4a67EGIB5GNsM90c7GCQkNq6yj22nEHv2rhxJh le30YYpqSC3N17DYiFWq90s8JSXDbJ+d8+LSWkA5+Ocy5I7R7WQS6HJgbW8u +fiPfSOb3Zbz3UfVXzvHtNfR31qKloa5b6FDJ09m9UhWGrR9Ykj0Owl7clw1 qJQMP+/nUauqUsYm5EryNz6D1lPTOnaNd4Kl8WADkIS1Ty+Nk/7AgsIqdPtm eZkGZz46Q4Gwqvb7uMa8T9B2Kk+iUp0HNFoHCKCUZN0mj4QW7SJZIwnVfzwE j3m6tPbfjdkXzDn0l/0L3MHcN86z3fmryCyCLCi5TViY48GKZeXqI9xj7jbJ 9eG3VBc6b2alKTzYACTCn1Kk03Ueln7N9ikTElZVZC7ujLxG/2j/1GJNy+hQ FAir7Od/aVlnyCjVBfdUd0jOjE42X3lMqgf4AEDb0Nt28ivduS39Udu15lrv XNswpAXz6ZKq/2yw77Fgv+5w2njpPdXtwirF8OBVVSljE4K5y1k9JmOm/Rag KB5sANK5tiuu693ctw4a+f6Zct6C7zas4nrs0y9o1nZB9lVFv4M8iIdVt39b HObPu4da7o0svqe6Q6DROkAEtPE1uZXu6GePow8s/UFcE2/z8d/gpFPy8832 7exsdx+cNl5OoypthFUepwRQxtiEseelRlRo5K4b5l4Zo90OCtQOHm0AMijN WPzUXUhk1e/NrGLuB3MdVpUeWDv8AS5m0Ic+EX9IUkxVU34m9atVKz9ZOvet ySbGjY6MCA9/ssvTi9NI2w7psKpqbxy/N6amx3gxPdU7PrvrT1mBn/1ddd+T x9co/SUx5o3JGmHBqjztN0Mx8lc6YnUQfOtl2oOgOfmm4z4twtHbwX6mFc/5 1FX/NKsX8xeN7pufI+H4j0a9sEqpGY5EUMTYBGI+8mhgvoG/LRtKafu8g4dH G4A8yo9tf/3RYM6PdOgVn5ZfYTnGdRZWGW4UpS6I6ngP93fNhkxLL5IWBKHp VqXXYrJhFZ2wRW+gllNVrFJ9RIrA4WROse23D43W7XA4fVtFPCM/r8jml59r NfdCuc5JqnCKHGp2x97D/xVQj8d2VDAjvvoPRb2wCo1M6GSLB6GlTIt5IQ6i Vp62iNWbdUy6rNVFxAaPNgD5VJYeWDEj/P9xqaeQ3mPmr9u1dXpP5KE3RQXP rs3alzT/9aeacq8MCusd881BWYUk5h6/Fg3lsUMfDWLbJSky+4ZoWFWdsxq9 fXJLh4jCKNXFdhp08l62cTKntxTHrQuJozrXD2gQMX+L2yKI8vyspFUr/3ug UKN3mI/h9KaBQfypcOqhb9Mp0SP64KMyb4FD9MRjowxsPi1x3fOsU3JS2iMJ +74H3O4DlVTJ1carGFZxKjVX3RE1iiLGJhBzWKWjpv3/JWESxOoqelH5BmCo LTmS9vncqSP6Ptk6kClcXfs/5PJqqqq07boMNy6lr/lgfO92QXoBvjigUdfR byzdLi+gsr0C487hDSzvTnZCvRWCYRUyMgyTeyQIo1QPbrr0NI5LtO3JI7FN MZ3xFrTTuZz18r2W1waHJMhNtgHaBZV5E6mD4PeFNtG09cMN2dKebgszcZ7g 22jjrWHV9dNx3YNZN/hYwlmZj6SjsOrOX0Wnf85KT0/P+D73l4tlZLYiSNZa 6sZKVYgbm2DowXBtWreWIFZX0YvKNICqgh/in3s80PT0BYcOfXth8q70tJSk GNOfBNzdb2lGWXXFwUVRHe/R6Tv13lrkAbZVcfnMwS3rP547K+of/FbbDVsN iZ46f8W6rVk/FpEozuU6xvhRIz8sIZ/pJBVWoQJXbO6RGKxSHVt/OfuePBI0 n1zPE/c7netfjGU+ykmVOuAdoCd0RNIvlUWL+QfYVvBvi2x3H5a2k5XWLlW4 GgCiYVVtyaGt80b1Dq3P+2B9844jZ3+YXngT75ODeFek7ZLnQNzYBMPeST31 6Iv7RTlSVb2odAMwGAq/fren5Yw8qM+/eZ3/a8qPLRwR4EdFvRPTlX13z6o0 FzVqWT6GI589wX6Y7cAIMhAKq1BdhMUy7pqxX7sFkpar1em6jMqSrIq1wbZP tY5q3jW5ROSbcG1U/fWvJ7lq98BlGHRU2Kj9UoaJAJ4BokciI9gryXqZssfk +v7x9SXcO2LbvqN+VL8F297vZw152szcfB3DZzJhVY+4bf+d0CtI7x82ekbC 7h9/vXrLvHDeuZm/9+vZT7cwH1AEPxiV8EMZvm+JhiV9k85he1+lIG5sgrHe SdF6Y1W9qEQDMBgK1r7a0rK1COr3Rnap3TeuurlhIHISFEjFn/KAbJUVhcMq OtVpRhFhlZFEWGWou7T9/V7oSLHAu6K+Oa1dwQ8tx8WhVEex7QgqXvOJtlFF Bzc4gKs30fywRUAm3MEZiZEiTua8BFITdhEYG2E3JYcKbNCAlVQFDZiei6c8 k/tS+g49Pjxw2YEvKr+yfqQlReZHhS/KwBVZcYdoSvlzzJA1NhEwC3EAfzKg ANT1otIM4FJStCWm0lEtH0m66PimV+6OZb+XgznUGkfRsAqNlpUaIok5rKop z1k8thWqTAtuOmGzhmOq8itr+jaWklt2h22rQ/GaT66NqtvNSN66HuzndF3x s6zrBjQOl+Eh4o4cVmh2i0vDmMPhsA+rrJ4Wp2aADqtMt6tnUoHz9yzKeqU+ 86hi6cplaWLJlE9KSVZrAcLGJhzLQixF9a2mF5VkAFyXcj9qyIazTlNzXFZZ Ib0QRhQNqxBhlWI5By4/JtuiynK3zYpogYZUpr3h0p+0e/ZnuHEhkd6iEtiL 5S8It7mx49Nvivj3qCTA3UAuThLgoZtiQDiopJyAjs7ebglWmnAVOjYfiTs5 djVnSth9M/a5qWE8t7Afuwi2TCiU7Q64hU9PDYw970mnNCyEjU04dPJf9Amg ul5UggFwM/Xcjb9EgkBl9EIYkX+UIwLkRvVac5LYxyDU3E4Z1pTv0dwdQNtj ESfMowsWrPj5dRofn12CyR1jLzI11BZnJo1/zNqszFW6VQrFR2e3r8e/sVTr eXtEPKucJMBdjG0w7hkTwn4LJapHAXVBt0LDt/yB861t4xzio7jsp2eaj+GW 7lenYzDigZvN2CxzA402r/PcbsAEjU04dHQk/gRQXS8qwQD+WPtv69QX1y1P b254jXmdx22l6f6Q/EcerwIHhYuWJdiPAAzlf54vtHD2ZPbejNT1q2OG8WMh mobNxy7flH7oWEGhUwqO/5iR9l3yp4tixr/UpbFt96Ggzv0Xsf1U5YOtyPTO X0WmL75ne9JH/xnXo4V9Cw19h2feSdiU+fOpohuio8Gq0svMbdm5eeW7vLZm HIHBQxZ8sSvj+9x8y028+LuLW4RKAtzE2Gj1qAcWcQNiQd11yNzdOH9wmwrW RiExB8lmm+3DqqYvLyusJPqZzuHUNRiO7Th/7kdNylR19IsMCBqbcK5mR+ul yMjV9aKiDQCNN5q0SLjoKhA7OKkNY6ha3Upz8YZ5afw1Nys9feemNXFzhrSz 20mZCAgKfzX246SUtPS07BNI6HHluqx2aWi0TEaBRryvtd89rQeNW/FdDrZG XhiLTGtubXg22Pml876G6Mfq1un3WojvbOlSbcVJAtzG2EjzH8/dFAMi4JYA ZrIMNi7uHIbYpwLNe/lhlU735Ogs+7onxeBrvWQlZ1B/rpRQlgjkjE0wFnm2 FJ2Gml5UvAHc3PQmW3epp/rOynfx7HHbH+0Kq3DEG7LFOXbCKsONS1mJSyYN fzasiT8V0PiRvsNmrNiYe1X6sRqRsMp0YU8PjJoRu/Kb745cvoXz58VbZCoi rNKHTP5KnGsvy51in/RzSxNq6SknTzonCXDfwo7LBnvyphgQBdcI3d2uVhTo 7h5TcwM3IOJVTbS2Q8M8WckZLvGlbzDpK48YOOkMQsYm8gLEd3hQ14uKNYC6 6p0jOEGOm9AO2f5odiutibAKFVatPnEp9aNBzf31zduNif0oOdV87DXn2XZ6 8zTnrvMzPGM6iUy8vsjUFYgkwO1mhMsGqz0OFVCMuh+WWCeYY1S8FCyMpN8z aFBMniLdz7iwivyBoxCQsEpWHoD7gfyo8Wmem6syQ8jYhMImHEQLs1X1oqIN AB3K7C60+3vHzHvZ14qrhPIxkDIEv77D+jetR3WftiqvDDGF23+mjLaUrWnD /xDFF4pMXYAmDdw4kzvFyzrT54+qpegBFSBRNczo1RWdhcGEVcRa2xlKTq4c 2yc06J7Wg8YmnnS/7+KFVTJ2yuzxk44KG5rh6QN21ShRt2JtkS22kbi6XlSk AaBjZN3r+tj8IWylXcKdw1K0kxnz5eEbdk+04fg6y+RirP3ANYhvFJm6gJME uO12hWSDVROUAmpwZkGEQCcsFLrNTrO2C7KV27XRI3TJlf4di+nOPh/u9CoW eGGVZOky0j1eXP2vVsFvbIJhJvqJbySuphcVbwBIEOgutIOttEDQIQ5+VMSK Q45vFTKua3DyRWUvUTl8osjUBagkwJ0TQ6ZL8HdzFcXZ6ZlFalVUAQpwNmUA hdkbFGUkJB9VNBN+52T6qpQDRHqNGtFHiRLUdZA3Zlr6FL+qvXHMAVBDamm+ V+x1CBibIGr/3hAZIGhKsg2qelEJBoAokfz8xn/uSovFBYF8EzXUXTr47aEr Wh28qzxI1qVJ9Lqrzn8HdjPlVWdePLyryFQKnCTA/WaE25HxR67Tex8SbToA rVBXnTY2lLGTQe8VetwcX0VAsk8C7hJ/zLTE8bXc76Kr//KqEq+IqlQztt9p mYf4zKGKXlSSAaChnWsVOnq4yZO6Wb6yJ46eJATa33X6AVfpcNZLqDxKgBxe VmQqAeSpcedMnA9nNzuK9l6k4QccwaoCzB2w5x8R18TXR7CI8O9u3b3Pi7OX ZF12t5Hn1mIZXREKdz5Pv0cANecn7/lRVDE2qzMUW++mpheVYgC8WZyu58dx cxD4fe9hK20DOz/OXdaFyYg6iKu9BK8rMpUAt3VyJxCtSI9j99b8vLH58P0u Ty/rBtzD7YsxdAX3SuhgwLWWwAqyp6PCPzkiTVXATsChAl9Y5FUpRDWMzeoM xda7qehFJRoAUgnoKqz64/DUh9g5g/z+qGYdO+7Jth6M8KwL2gOZ6BgdtYAi U54aRE/1mfWLswfz8oGJD3A9SHmTHM9s7E15fFk3IAjr1ji40cpz3nHghJW6 6n2vhVEPCeiIVX5xcRfm0ZPeX6IkO/peJpPghflDhY2NcYbi691U9KKSDcBg zJzQmr7ghtO/caznKr+ynhliS9lm4W7/tjhMHzJnByirGJD+rm7K2bj8jFdW VkKRKXoMYflqzTomXXYUZxcfm9vlfv3D4U+1cLDBMVc/eUFZNyAEg/F0HNNs ChJWjjFv8O/Sh0elFTlfc2oqDsyJrG956KT3l0B+i5A3N5R6X5CrsLExzlBQ Caejf6i4F5VnAIYTG/vQ39dh0omOqQIfjniSvlxebs0skvfzxkheKsLL2ZDz YikDkrQPFJmickSa0OjVNiPSynK3Tet2v65Tn+TzNecWMQln6z6lOm/jAH+h px6AN2BtSOKVGRIcVJ/e/XqnYH3ok3O+OWg/WqvqSt668b3oCsBmQ2dmFUvd 8TPJHB31cMS2P7z0+VPQ2HAIq5T1ojINwGA4t3ykWeVj1w2gPG/37IgW+mYd 38k4f2v/4g42C1/5b8t73R/gNfUROODK2dzlZ6w9kFVpy6YAUGSKSAKoNo90 CrIkfEP6jo9PTElLN0/Hnjf2n83q+XUaH59dYvmOTFrYtCMLm/FlamrSh8Mf 9FOsRTagEaoOLutssZnAYfPyPdX2yWK4+svGaYOb+lFBHXuPnfP+mm++TTc9 UBvWxr85vKPl1CYorHeMo6BLKDUV374USu+Oo3YU4bx0jaGYsTHOUPw0GXW8 KBYDqCnPWTy2ld78rbtHxyfvYq/Wn2o2aNK2X2+aY7W66sPvWTKrflSvWZ/v 2p4899l2lvgQnnwWugUfHXwOjD3vItpE9epu53F7Jr5eZIr2WmnaLulybcmR tM/nTh3R98nWgaaHyFLQNDN+y9ErPN9fWZrz1ZLxA3qaXhPUtltU/Ppfyr10 pww4w2A8s2govc91NZXA56m4kLvlw/cmDB/QpaWlpLrRQ117DxwbszD5fyfK 5FVQXds2sxW9jisyS1FNlDE2a8cqsSWZKnlRjAZQnr8/IXbi4K4PB+mpBm2f GBL9ztrM/Ar0PQ21xfu/jhltnhesb9520MR3Ui9ATIXATel1130OPS/2mi5z PHy+yJSbxeMuxgYAG+5c2zCkhSXp3W4lZKwUhlE+6/XPTMzxhfpbBYyNKV8S fy6jihf1NQPQONezo4UFEkjxrxd1mbPBt4tM0ZGm3tQyAlCI4qOz25v36UED pueCb1cMa4zRtmdSgc8EtKSNja7k8qPGfCtuuLMKXtQ3DUDLIGHVpCznv0jt 7ZSh7KmXFwtTfbvIlNPOuesKCwAOqT6946UQ846j1ZQN3rnz0hoG47H3+9U3 y3IUnaWoBUgaG10VLmX6rdJe1IcNQLvcKVn2uPuwiutw6+1n975bZMpp52R0 eAZ8nuqTKS+YNSRU+KIMUrP2ABqDoWDtqy11vrukEjS2OyWZ65Z/LXZCpcJe 1OcNQKMYjHvGhNDxktOelsiMIV3nYenXvPp0yGeLTK9mR+uZFJxXlnkCisGk ESCyIkxpWlwXn09TaMvYlPWiYACaxSqactYLtDQ1tgMdfjdrFX/EB8a8+WSR KSoJiEw6q/blAJ5NVf7307reTwVSk/aCwydC3dF1T5n2dWF9Vv7s63dYO8am pBcFA9A0ZaffC/V31kuWybL6Xkjsa0WmnCTAO8s8AcWpKM5MWr71lA9sxNTA cCE7Ye3GE2VefXYgHG0Ym5JeFAxA41RkLu5sSbwMTjrFBVamsCF91SDLxCII ib2ePS/dR2v1qYgpeR4cHgIAAKgDeFGAw1B3afv7vepRVED9iDfik3elp6V8 OX9UD/M8hYB6kbFrIST2eoq3LejVWBfSc+jHP0H8DAAAIBrwooANVVfyNsZN HfH0Y83qUfrm7cOfGzVnedL+CzchogIAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQD3+ D1WMP0M= "], {{0, 115}, {797, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{589.5781249999995, Automatic}, ImageSizeRaw->{797, 115}, PlotRange->{{0, 797}, {0, 115}}]], "Input",ExpressionUUID->"e7d53a58-b12c-42b3-b45c-9adac43e8c32"]], \ "Subsubsection", CellChangeTimes->{ 3.746790878526955*^9, {3.7468415837136607`*^9, 3.746841584080654*^9}, { 3.7515636877448797`*^9, 3.75156368774516*^9}},ExpressionUUID->"e2da2257-824e-44e1-a864-\ 83dcc8a30af3"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{"Am", "[", "mu", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", "=", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"W", "[", "5", "]"}], "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{ RowBox[{"\[Gamma]stdown", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "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}, 3.751563014899308*^9, 3.75156306483564*^9, 3.7515632184430447`*^9, { 3.751565525675372*^9, 3.7515655258100243`*^9}}, CellLabel->"In[74]:=",ExpressionUUID->"9ee4334b-e668-4b22-b488-65c0888bbe8c"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "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, 3.751563015287098*^9}, CellLabel->"In[75]:=",ExpressionUUID->"77495382-a11a-4e4e-b02b-9cb1e69f9664"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"W", "[", "5", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ RowBox[{ RowBox[{"W", "[", "5", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "2", "]"}], "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]], "Output", CellChangeTimes->{ 3.751564064922573*^9, {3.7515655292172422`*^9, 3.75156553442414*^9}, 3.751727179334632*^9, 3.7517302491376467`*^9}, CellLabel->"Out[75]=",ExpressionUUID->"2cc68188-19d2-45c6-8861-c5f77df60556"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnQl4FFX2tyudgBgThMAnRGQVWUIchYADJHEYCLLLCAgMYRRwwiKrgkTD ZjQwLApBRATBjEBUgiwGIQmy+IcgJMgqRCEBZZEEIWEwwZCt83V1VXXdql5q u7V1zvs8M88MNN11q07de+65v3NOy3HTh4y3EAQxs47tv4aMjf3766+PfWto Pdv/eXHazEkTpsX8u9+0WTETYl7vOs7X9oeTbf9Zb/sf5P+uBgAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AABAd8rP7RgZHp6Ue1/vCwEAAAAAAABcAw6bADeOTW3mRxA+ltCeyZfgLgEA AAAAABgPcNg8k39ybqcggiGw96uZhVa9rwkAAAAAAABAMJjDVvbbua83fJCU fupOlY5XgVD824YBTclb4+vXIaS1hbpLfadn/6H3hQEAAAAAAAAUBnPYSAlE sB/lXXdJzNbfqy2+vnFYWx/y/hARi9KL7hXteyPqIfvltYxZnVeq9+UBAAAA AAAARnPYqsp3Dm3EBIx9iWFLC/Q94a8o+b8Z4QR9fzKKqug/PDSbvkuPz9xy W3+3GwAAAAAAoAZjQIet4u6GiNoOl3bgpgt6urSOW+H/QO9lzP3h/RV66wAA AAAAADxQUXw+9bNVKz9YNve1STbGjIiKjIh4ptOzi9Mgl0k+RnXYig+vG/JE PUuTduPWfqenr2i15n44uqHtJgTUiv7iXLnzB2x3ae7ARr7kXRqQ9KOLD+Ci sjRv35aPP0nOvgn2DgCAgcE0WRkupQIAsGGtztn8N8IFrd7dD5nnMjGOw2ZM bPdn3SvNfdzfH0kfU0LZ/74e2zGAVIf4+HR5KbNEjd8AAABQDKbJynApFVpy JX14cItBr8Vv2L43Oycv7/rtMt4HrBVFVy/lZH2XunH1vNE9Hh+/rlCX6wSU QD7EPBu5J4+8178p7dHWJmKP1ThXCw/GcdiMSmHG4u61xA3ccZfqB8cevon9 SqqOrGjv2MU97LMyD/svAAAAYADPZGW0lApNsVafWf+MqwieSywhEZ/+9Kfe 1wwowFq9c0hd+8P0IZpHbLut9/WYE+M4bAalODe+lZ8ET56+SxYicspp3OqA ym/jGzITGNF/Tl4l5u8HAADAAp7JylApFVojwadt3H986mVQo5mc4pw5j9TM 7Rs+jOSwGZayvEOp2dckhKatVVcObDl4VYUbVHx905jujR4K6vTyWxlqfD8A AAAWME1WRkmp0AFRPq2lRcdJn+wtqFFHp16K9fhHTzOPtcOSI3pfjlkxkMMG AAAAAAAJ7dO2HDRp0tC+nZrXQ13Zuq2fHhjz5to9WTfBm/UWbnw4lH66IKYF AAAAAMB7oH3abmt+pP/g/v+oXKKCe3As7XVUVaQMCKTFtK2jdkGyn3dQWpj1 ReL0oc+FPOJnadI2YvCod7/KgvotAAAAQA3DyacFvBhETGuJTgSX1gsoy9n7 RmRTS9Bjw956Lzk146vE17r7kw8Yes4CQA3Cas37ckGvBkSvpIt6X4p3UrE7 7oHAx6JrnDzVFYY2NvBp5WBW8z69visjLAlfc1bvqwGUYi9CaAmMikl3KHWt 1fvHtaJSAHtv+BHOWgDA+6E7vPhYQnt8ddVca5J5uH0uvksDwrdWh8lranS4 wOjGBj6tLMxp3rc/GU17tP7E/BMVel8OoIxf9r38iG9g3+nZf3D+OG9hT7oU TL+4SwaccgAAwAjrY/RMvgRZqGqSf3Jup6AafQpmAmMDn1YupjNva/WeUcG0 mLbdoIz/6X09gBLK7qa80Ix4sk9qPj8Weyq2MyOZHpRRrMvF6Y21suDIV/NG UALj1v3Hz/n87O96X5MoyoryiyBxExAP42MQTdqszDGmj+FdkJEEP5zrPpbJ SpuUCnMYm7f7tH9c3jC840P+dSPnby0QesTFOQeSVq3876E8sasKdvNWFScx rfXOlQMblkwcQr4IhH/DDr0Gz0jcrLDHNB/bC3ti3+alc8YN4VbVqN8srEe/ 0bPjN0BVDVn8sf31hgQRveMq/y/YNEAL8cz44/ymgIqwFv9+KQ8XuVfvqDMr VhRnLR7dwpfoEpOQvCtjS+ygh2w3I4CYtDdflZ+TirWi8Pz3GTu/WPvBypUr FsVOmTRpzIioyMiwFtTbYfEfB40aAXFYrRdXDPO3m/e4XU5Tgdt/VV5Wrqko qbzsPrbfqygr0/vsqfz4J38ne9cSj8/cclvhxeCYrDRKqZBnbDrgyqe9/7+r 5344kJ6envFt9k+/mDpu8OvyQXTMqmXUrjseP3rtwEsP2j8bFLz2V7Hfj9O8 1QYV064+cyX1vf5NbHu6NqPibC9CelpK0uzn2lhsa2rLsPkZor16D1SW5u74 YOxfm1rQQsdN2nbv+pfGtQkUsvrx6p15f5hA+4llNcDwJaW/LQ+r47rLzJ3T s+rTOxffsR//4eIfy6d8x0wCO/bdTfSMuJVbMnIKMXi5V5Jimj+ItMMoOPCS fQZQ0jwdI2iBaFdY6r2xHRqdAWK4tW1mC7vRdF64X9i0bRPyro8n9Xmann59 H2jVrc+4hWsPXr6r1sxbWpj134R/Pv2YbQloFbtD+ZFR4d73e9X3I3zrtOo/ ZuV3OBYpueT/998NyHtIRH30g5LLUD5ZaZZSIc3Y9AT1ae0x8OE9Wj7EnWSb tB/2xtL0PNUsXz3YDnHCMStWaxpILPtZwlhxmbfasAOs7dtrcJ9GtYku01ad LkJGeu/3lBFtSQ9dcRfXsl+PLu5Lesjk/NM3ev66LzLPXkSrw5UVXj/9bcrS yUPaP8iYWUjPxO+ldDHQAxxOnS/RN+6you0P/c5O3Ffk4u+OrmjL/FL/ZNF7 M3Go4tOi+Ad1ip6xbn9Oidz7Y81J6WchOi/LZN/125kx9JcbQkNedfSjjh7v wZCtN/S+RsAEUKZuI7B/7Ol7Qp8uvr4pumOAjyuDC2o6bMU3+Bsq5Z94J9IR 0MBROvJm1pRgP/ayxbdxVIOKkj1jQuxrZb35WTJlfBgmK61SKqQZm87Q62PX +G3/HRceaPELGTFj7e7vf75pj5rdv5uz9/M3nrVbZpAJ0/yvpY+gXwA/y4Sk Pz18Ei3cGjL8oKSnhsO8VYcV09ITwqhPjznrbayn1nez3wSfTsMPyB2Kfedo l2S8MDP5xHXP005Z7nfv9G5jMcI0JQJj+LS23eefBVd+c+n4sT01AoiEHzG/ rqz24MLZzL0ZqRs/nDe8a6DzEB9uMnrFF/t/OO9JeXDq+4y0b5I/XBQ7dmSn hn68LwiOemXDcQHLcUFVedrolkT4+Gw0jnDio6eYGz/9MFYphkJsD/Hij2kL hj2Cjrx+wMpc8wUPALEUX/s6bkzHBn6Eb62Qf8Ufl32OUvzrivAgu8HUSTjl aWUjqSrf9+8Ql/6sA8zn1KU31lCXh0x7Y9MUObXMkSv6sogYu3pcPfAyGf3z 8ek4OP2W9HdW+WSlWUqFJGPTH7Y3rqVd16WHXAXKiq9vHGYP3/kSEYsyTOTW Vn4b35Axf4GYFXJiK6dwq0Lz1gBWTEs+x8jEI65fmNKri5kw34DkX2T8Du3Q uvGZXVNatO+NKPpwwNhuLUdQmvtz9oH09J1fromfPbANpwEfjX9gxCtx7yel pKWnZZ7JZf2567fVcq2UbM3kUXEvZXAj7rCF9o/O2PfO855/ihNH8q8dNXfj T8VS3qbzm3sQRFTSBfTPWPVRozZJ1yVdlibQp40U+CXQgIEo+9/OUW1RGw9d kilntbBWn3y7NzVhhibsF54tq8qzPpw1bkif7u0fQ5VgPHDK59DlhrHtuhM/ ky+FYo9c8X2nYugjWnm3TvFkpVFKhVRj0x/Kp7X5892Sct2L2WifjXSHBiT9 aIZxkTC7FRExK0RrGpb4g4zfUmTeGoAM8JGY9TfdX+GekfXoJz1saYHUCffO hfgOteX4pfdvbRrYlL4+I4e73XHj2NRm3GCjLm+Kwq2ZLNjIsLI3iEwnPJw8 4S+c8E5gz3+lXhYrsiVXhOCw5ALkj+7f+qgroz76R8JV4wlVUa2I7SIfnv6F 8ZNNAXlUHVnRnvOi+PlN+1yGGoZJ4rDtWwdleE4S4WGtKLpwbGvCpM5ceSFN bVcOkjys1TuH1OV+uzL5AWfrh+k7lUPmNdinlwBi+nculGAeUDpZaZVSId/Y dORm1pSQejP2CeTZXVzYm7aiJs3X5hnQaXMCFdN2fOmIx8gRojUlYo/J8kQU mLcGoAOcfsiTxJvxaaUfW1irT8RF2v4lRyAknsvpI+mNuI9Pt5cyddx+y4K5 bwwP+6zM0/oaUAdJs54aznoMRUVUiq/tnNwzAFm2LKF91p4WUdyGfN8f5G3E 0IQsXkjEIPB2BCCm9WKc35TOicclx2nv/74hyn78qCADqCz3/97oHETwwea3 OOSXHHyJifvlHYSzp8l89BbJl6TH26dcC19F4Bmlk5VWKRU4jM24IIG+xjO2 mKDsJSumFYpZoYVbm0dsuy3zB2WatybsG/OoqAFW/rkpyp++bVLqP5Dk7fwH YU+nDeve+58T1h2XnGXG7JtIIj44bpbjAIqcBRGc1UGwzoYKsA6ShlM9Zp+2 mqlvw66JYut7F3y/Nf3CXfRPsmaE0t/xSNO1vxhvSmZPCe2AmNar4cZpZQrV qBNnDP5n/ok32jqf5hNdErOVRqwopagrgmfvkFnZ5OaJ+AHdWgW4+M6JB3Qt lOqIZRFE5Joz4h+n0slKk5QKbMZmTNiAtg/RhBszNySomFYgZoUUbiWef/ea bCuQa96qU5IX34IZoGdFAftJyZHG8wsikZnG5tSFb5Pq1f6yc7Djn5vtJWJS TZnr177fASqm1bCnBn6fttpR3Ju9n3L6MN7OnkJ/hcUyYmm+AQ+X2EmVADGt 91NRcnhRdPs69voeL7+VcVW6M4Z1iXEUokSwEE++eFDZxMUkGjuj2MJLC099 9cHQJhyVl84+Ler4tX9u1+9ynwmuyQpjSoVh/Rlc3C9Y/hRrSMY/I2PFtIIx q4tb+zDjavXufiXPDo95YwcZYIclRzx9EvUqJeXUoM4whYzDdzRKbNTDYnfo 79PqIaatVsmnraayepuiXyu1jAzzMhp3vgIxLSAJdn2RETFwhlGLcRASpwlQ dndTv4bU97w8dWJj3pfjKMbiqKtDobtPW12cG9+Kvh6ZSX8YJyt8qwBmYzMk qGIweO5uA4Y9WFgxrfAp8N1N/6ZHJV/ww4DDvLHDDlBILYwEtyXu8hyF9Rz/ XJZ6HznBN2hSjzt092l1EdNWq+fT2rh2aPyjnJhMyII0scttVfnOoY3oZ2HU cyUQ0wISKPvfhh70lh+b/O83F7lXSgI7ZQcXt7N/ScALCy9dcfHlWCIVv60e 5vhC/X1aNNtI3vEivskK2yqghrEZD8SnlZUUryWImFbwUg9PfJw2JxzVfpSa twqwAxR6X3IXRjkesbRdHq94i4dyYR5BHCStiy/9sWdRVHgEQvjAMa8v2yG2 a7Zsn9Z650pa4tzofs+ivx3xbOeEY9KiJbqIaatV9WmRciI04gskXnHMADoX /HELiGkBKbByXIwvuLX68Ksh3NfXQkRMOSNPIeAoSxtIzD/+J9/CZSwr7nCc PEpskKQW9sJcFHJqYOKbrHCtAqoYm/pYC86uHN2zZWCdVv1HbzgrLL/j+LTK 68arCSqmFThtv5+/vKOf0ncZRaF5Y6fs9kedmQF67irCPfqXussr3Lu8fzPS Qshet5/Ka8/Bz28dlapdoZaq87tf+we/iR4huhq5PJ/WeiFtzOP82raWJq37 j5n61SUpM4lOYtpqlX1aVNNF27DL8jVOsIU+FBd7VwsQ0wLicTQ8xW0qVd8t acZ5feWHCm99OcUe2PB56KVVBfb5n30NHV+OZXaijwX1ScV1Abt0Wohes3Ik pjdjm6xwrQKqGZvanIztws6oIh4Ex6dVkkulPqyYVrAfB6sgxSSoUGbe+CnK nkInAgi1kmeD2wTxMLEsR/sHzPdpFcqbZVB2/cxHQ9ryMifENCuX49M6KqU4 8PXp8traHEmNBigQGZXGZyjq+rS2hXLjK5z07NrEuD0ChQc5lR65OS/Wmzmp 6WJj7+ri6Blkv04Q0wKeKMiMYdqIY54VOXsrO/JCc0Xn5rS0B0+oIC0FEuFR 9OX836IWNWy9X5XDBkgDiYQzUgaIcbLCJaZVz9hUhdOYQ8QSzDlHEPKO9AUV 0wptOSt2x9VhRsWJCpbkZ6bvvyprmZFv3mqAKF09Oxt3v5zM3Ap2o601yBZD N4mLoxWgAxEevgyftnR3HNejJQJHLJLXoRKVUQkcTOBGbZ/WSfInYquIrKS8 8kFkqfPmhojt8EJYIKYFPMBOzrIrqLvDRX8EOXVNc997ngrlcOSXzrnDWNT+ TAsGA3lcyJwj7arwTVa4xLQqGpvKIHFXESd6SNdUQttDYcmw8UZhOQEb0eWW Y6XUCzJ3lLLNWw0Qn9aTnL7yXsogxsNCN9qawovTWoies37SY++EZqGKfI6S fVq2KjKDgtvObqM0n4VU92nZBAoGf2L2UU83ii0rx9tUkiERfqlzfeA9fRDT Ah5Ac4hUUBY5twKUvC92dMwJqr/yImf7z2RzOMAgqaX1EgpLNOCF9d6lnddj nKzwiGlVNjZVsScEPdCqS88X31hy4JpQ8iDrKOrdkE4IREwrpJFAe41x7ZD0 ddvKfaByzVsVkCJsHnxatKigfu19eT6tHhWxKNhqgcxzFNocSfZp+S3RFShV UBmVgqYh8lDdp3WhyvOYSYG+1NxbShn5qK8NEBHlPH0DzBKAkWGPKlQp0+ck qZXYtLeq4tDUTtS/DE3Yz5vD/twx80HOlyuum0r7gYbzQ9imCeKVexgnK1xi WpWNTVWomyaymi5yMG30Hk9s6FXooTCdvwh+Z2QycayWkgxEOeatEkhEaGz6 XdefYTu/yOxugw2OyFA/n5abLidGxCLZp0WKBlPID+nrJ6at1sSn5VoFIbCc IQcTnHBTVfm+f4cYpRoJ0pYRxLSAZyT0D5IHR/FFSM2XKc9a3Y16K5+I3HbD afbhf7niKrX3fl0cQgp3jVZj6t6WyY4hii1ZhnGywrQKqG5sqkLdt2Z/WXtB KEhb/MviTrT4Vmrlc63h6IQ9Hl5zq1+GJf7A/pVdPKAkA1GOeauGYz/i7kSp MDWuHTUpNW6RcFy1wwZreVm5wJvGdZD082nRXQlt9wJFY6T6tE6xEfmKSh3F tNXa+LQFToUuPRw7IiFQ9GCi7PDyjgQxNEVZA3SJuDN5ENPWIKrKypQlVbBR GpWURfw0MSl1jRyJrr5E7w0/ujB2V5JaJQZftjfecMIDEmt1zua/MTdQbIQT 32SFaxVQ3djU5saxqc1qWSKi0zz06WP7VMrqUKkxaPI+6aS1T7rmalHJPzm3 UwPLExHdmVZF6EJMVoRQFM+RZd7qQWekuj7dLj+b8kIAda9aL8jE2S+k7ObF /Zs/nD9+RO+nnwi0sE8luNNzo2MTtp647vzCcJVdevq0XB+VP+cIfV74yp1d QdnFw3UU01Zr49NymxhSuA1rs4Vo2IMJe+8houWEDap38bBWFJ7Zv3bu1KHP /qUxs7cO7hT1yooteY5yFiCmrQGUXT+9ef6EqJZ00kpg687R76w/flP6Oy4l 5Vkm/PdLghiGqSBtIcLHZ7vxMZ0ktQpyzGm1p4Xo/NIRo8XWWAfVQnR86YiY 3Ah8kxWeVUBNYyu5nL11aVx076cdEyNRv0nEyFeXbT98U9b1uosYlJ/bPSE0 yNLymdlfuPhm24u5fmw4pdJoPGjmgXz5PTu0GREaOadwri9alL1tWucGPqE9 ky9VXFzUm153mJTD8tOb+/opbnAsw7zVpGT/Ytu+z7aVHpD0I3uzrZX56av6 24PVlpCeK3/A5NBaKwuObH1n9N8bM1FwS5Mneg4fO+n1OcsS358//VXaBnz9 Qkbxm55zo6N6+rRs8zUGvD4tPy9DtqqfbfiCoVe7DLTwaV2kZns8HmWOYAKj Jifv/mZzwqTODxEth885Uqiu62ibWOY9/1QAVQnOv17YCy/FJrw3f1rM0I6P WdBXDMS03k7h/g/JedX3gVZRL8YufG8ePRn6WMhFR+Iayh5SYKqg7gz//RI9 8d7MmkK1qa1NTNxX5O5TTnOp/ORfR96H0gVaDVDFmvhmEFgmK1wpFeoYm/Xm T5unDWjkS7gjsPML607/Lu07z2zu6V4d4fjFwPY9Rs9+e80XX6enZ6RuWpcw eUh7u7w7MKRHrCuP14AjQsS0xOMdQgPt60twr7EJG1LSbIPauJqcXmr7ho5N yCywzy3F1zcOa+tDRilDZnyampq0dMhjvhj0FfLMWz2sVVe2vx1u8yT9H4p8 NSF5V3payqfzh3clXwP/2lFx684U4blC7rJu+613tmZfLnHyPcjmWf95JaQ2 d5Lnq1j1XO6lxlGl+rT8OPDDPivz3H7YWnDm45gBLQP8QqLn8+a68szlTzPf ocs8r4VP6yLUI3CHbXNO8vzxA8KeCPRv2CFq2Jub9hWoGsAuKUibO7QFNcX5 El2mfZCNRuQq7+dseqtbHds1d0vKLUUOcQgQ03ofhRmLu9citzCJ31+jjQ5N WOj2UqaUPA3kTJmb9IEVtPG9WJ/WWn3sdWq1Far9yFGPE/L9Lvo2+hAtunx+ Xe8l1RVoTEZ8bSgMkxUmMa0axlZ4aN0QbotzV0g8JqYsQahSkD2OOmfckL6d mtvNu36zsB79RscuTP6/M0UK5ECajgiNnDdqk3StsuB42sdzpw7t9UyrAILc NXfp+eJMp1Pv0sKsz5aM7dvN9hnyhChh408yit47Ic+8VYU8DounT0UtTdpG PD989oqkg5fv4pkd0GWdIOpGjEo6I7BPKTq6cWSTWoRjkneWdenX2sNAPm1l 6c4Xmzo+2CvpIvtXbNcGi+Vv47P0aAGrjU/rLAXxvAvQlPwTS/q0sdDTTutJ 2865XJFubZvZgiACXlh6MokTtgIxrTdhzUnpZ3ERj0UV1JIyLNAgp3qVIdFY kEifltJ82g+pm6/N8zhNY2rr4AjS8uq4Ggf09E3L1AZcYlrMxma15n72Whga pvKEzZDarMwR9WDtlqBHFX3tR4RGzvXuMKKXeetC2a/fx0c2pTWzvkT4W59f Ehd7otLT7BVgrNz4FSG5pAxWnF01z3XIVfRpuRlSrAtkrT6/aJA/9XPNRWR6 qoNuPq0xUhjKcr6dFsZ06KgfHHvY/cac2onXahDajt2hKM0BBwxF6Y014Q2I +vXmZ/Ezba8sH8g8cmkZFqi3ydnPYkV6KUK2MU3nZZkCh2n8AzjuPCaSsrub +tn3704lcI0DMhn6WSYkaSY5xJVSgdfY8pMn8/KgmXmyRWgLfkd4ejocPE/Y B6Qm0gcFqpSrgfYjQnPJdW92oJd5a49d086E4n2JiEUZReKnHOpptgzfdtOF hFUN70gkUl01qYtCzoIIzuc9CPLZ7sZEYN/p2VQwtrRoX9xAu57HxxLaZ61E 6Q5GdPNpFWTVYYPMsWUsvzYxbKPrCK0DtAq0HUOI7QUo/GlD7KuTDMKCVaf1 OIwQyY11/3qAIEIWpDknSyHHdlKqCnBVAeoZvNTpi+kaJlZKwY0Dk0jtRO8o vGm0El4IaH11aU9ZEfhSKjAaW9mR1d2RHvOBT/WasTzp4NnLRY4psvLPgpwT 6euXjPlrUzaD3Fe42oN9FhXRJgw3uozI3kWCXl/0LvShk3lrDsehtc3ncV9L cGjtWI9/9DQZBc3PfJWrmfQlph/WK3mG1/2BBK9PK0HAZq0++XZvsvBI0CPj Vu1IT/smefk7Y7ra35r6DQfOxaaFloc2Pq3zryifdZVy5+LiZ9geyo/ErL8p aPlk4WtUiKWiQhIXLu+8jui/kXFHcW58q1qupZ6c5y6pUhZSkUDNkL6k6cuu r6AvadLefDHfjxa3pG+CJF3ZnQvxHeyqQgMHaUnYYryYE5y1SKnAaGy3Ts1q SRu8pV3kvC0es7Eqik9/+mY3ujOHhYicctrDK06fdnnKSVQFXUbEHnAYo8OI auZtHHgOragwuzNkAUNL7WGxMzkVYVUrXCMSfqlwgfoz0nxaNk2VMXvPicCV pbm71s4YSmvdg5/s2nvEvxes33rqd/3X9xrq01bc2zexE/u4XVabdwWv7rFn QYsRsJ77sl+gYEKERlgeD91g1OgA1VC71bw9LtY6pFu6tGM7VImqpoBcwvTF avjF7eNInEME0rqJ/brqRWppdxkDNxBsDwWs65c2KRW4jA3pK9dy9DvZ4kIu rC/hsYaGPkFavUZ0MzOGEXTqXxK2WjXzNg6cOJUP0bxD0i8ylxsyaBkUHMzp oSi/3gsenBLWPIfUpPm0pVcXt5Xw5UZGG5/WKc5DoqNP+8eut5ojVyI+PMIp 4ABiWq+h8l7KoIbuukb+unwQarcSpKToIqJm22vu9OVp7mXcS4nFBxABFU1Q 8FqR+7nL6SNrS/9FXUAbTGDcg2iTUoHJ2JjkQRdlVD1TfvyTv5NGYvEft861 /6ZTkFavEaFiWt1bd5GoZN4GgROnkrasO+NSLamzItq5sJjHen3SfFqnxlic NnamoibqaZFzKHvESXR/Fk5PJTOIaQGRkMc6rpvaVN+/9VHX2qy12HMHpHyt uClFGdz3y606glUd+BIDN12QMD+X3f6oMzfaL1JaVnY35QU6RBnxwXH9k0I9 gx7fyy457ow2KRVYjI1J5QscsUiS+0dh3zG5jwHm7fyH9kFa/UbEimndbJa1 RiXzNgYOxb7kZd0VLrPa9VZEV59fEEmgY/QYbJcmSENKr1CDNUIKvzx082n1 e6cuLuyNXoiEzdfFrX3Yf2fi4DzA488dMx90YwlUvgCDpe7Ez0Q/dPTIXl2f lpuy6sanRVQHMmRm+8Y8ynuDxQhvqAp4Mur66gO3Ixu2TbcWKRV4jK3qyIr2 SiLqpb8tDyM3gC7PMsgGrxZi1NeaFj/UcURM0o2QIlczVDJvI0A322UJXZKp 5KVy8lgMoYhGI/8kHt1sST6tUwtg/QcrG518WnsB6uvYf0cEBZkxqEgmkEg4 I9a15lX2ML6YFhBJ4Y63Qtq1XvOTC0sgly1xc4gT2vm03JRV17stVnUguuom ClLNjEZ4M8j02LLdt+gdV6X+IofK0rx9KYlzmGL1hL0Cf5/Bk/7z8ZHr+JZm 9RZ91VMqcBgb0+pXyaHt3S8n13EpHyUnXk8tmFVB1xHlb1sQ3tAnuNug949i 6vGqEO/1aamSNSyKA+NOlV4kRTNUg9PDVGASluDTOqkaDDFYuWjj03LXXELH g3uuNlJaB0kQ09Y4ik7PaoRYS+eXjkjoUIm6GermF3DfLxeFwamW8SS+RNRH P8g4VXKaKITOKSpK9owJsR+5+wT88/0rssdu8wZTV49qSw4w8Klery36MDk1 ncQR7QxqNG6LQBU+sXCTf0216OMwNnLFVByiIT09H6LdoAxujWfqdEzrXpne NyIlmNi8PXLv18UhaJBWcQdbfhEActocm2aIwCX3lNnTSCX4tLyKCh6TIo2P Fj6ti5rtOuWBkvWaOCcUEoQHIKateZTujmuIWIvE8yytCkKy/Tdp+E2C2A4L Fp+eU0/JaRzvXPpAYEQO1YG8sDD9qwVnVw7rGODjQzQOmfG5q/pLFSVZ8wf6 +xOzj/DbZMhDm3rCKoDD2Oy631axOxSdJ1Ch0Qe50jJyb6jHgab3jUgZpjVv T5Ttjee10lCazMUPhxrpQZMSbgT3R4fifVq+n+wyr8Q8aOHTcrxBmvA1ZzH/ igic5SgShNAgpq1pVJXvHMpGaaWfZ2nl03KPFPmvsLX6RByTWVC/TsIpuTsx Nq1eeJJkVQdi+pS5ofzc7gmhQfYUKn6rYpriaykTezUifwfbHtm0i76BKupT Gi1UmnVr4yu16X6jpsRrRmRa83YPIy9Bl3WlyVyn13fluisGaudtrT4XH4Vc mtse02J92ptZU5CKvhh0YnqjhU97LX0E7zd0ygPlimRcHCd5AMS0NY4rqN1a iH8kXJV2nss9DlYvsO8kskJXKzYdWK7qgPki3s7UvSS+7H87R7X1oUYtWz9J e8Wewrx2oaPQjC0JbsTbVIu+VsYm5kpyNv8NLQhPpVkZvN2GJ7xlRCY2b/c4 x1QVV028/cloznwqJelGCxwtbCjctM4R5dOiEQ/7x9x5yCZCA5+28tv4hpxf 0Cm4zT+ilRbbATFtTeO31cNQqx2Q/IvEL9AqR4wXQUUriiDxUpktdRw4K4gC iWU/uzjiu7LuXw2ZD8iUBDjEEh5rjiFpa9J6QLjFxEk02iUkCkMWh2c7zdkr D7gv8WoKvGNEJjZvd1DbDRRfYtjSAiXKA+eOWpKjGarDbfTs49NxcPot/pjF +LQl+xd3RD5jebJPar5p5OHu0MCndW4Wr4+u3qmqsAT9A4hpaxq8srRy9FTo fKumm8FRxSDV1O/f2jSwKf3rCkStDpzLeTkvi2wymoKuYbnvPe9PvWiew7y/ 7Hv5EfrHlGomKUy86GtlbGIgqxnXpidJvZrh4sU7RmRi83aLswPDzyaQyhXu sbJRE6Zu7YoPQ2o9BA57+3wxx6sS9Gm5fYR9iMatF2Qao0CHMlT3afk5iXq1 E3JKcpFUIBfEtDUMbllaovGMLXJ8BLS1k3puxomPkJWK+SG2RxUZuhiQ9KPy gxHnKtOjUrmOPpuMpqAgLZIEIdh9qez6qa0fr0zak+UifUwG6KJvukZL2hib OPaMrE+0jNp1h/IQDFOgVQHeMCJTm7cbnCelsel3lXwh93hO8xYhUijMWNy9 Fnutgb0nH8hnjdKzT1t4aN2QR1nHzNLy6YQjch3aiuLzqZ+tWvnBsrmvTbIx ZkRUZETEM52eXZymyyuitk/rnJOoV8937kilqW5MLKYt/GlD7KuTDMKCVadN shlQUJYWAXUzVCvIzDVsujwdeqjUaMyHWM7OnDtcc+aKqvKjs8Lpv6hfb36W zEIE7J1/pOnaX7Td/KId1U236GtibCIhz+bqkjeQqp1opoJXbvCGEZnavN3A 92nF9+x2CdNiwzHzGzNI66D45PYJTwaxs3+78IS0nBK7QsadT2u9czV1QXT7 OuzfNR44Lf2qbPfTWf5Bo1crYXV9WuqYBr2x+vV85y/9Uko4mldM6/x89cUc B168srSyqx1qEhjhdkMgVeK3WRktTolUxe44ZCIkQWctpngXiexaB9W3s6c8 xNx2KbWj8YC6hVRQzkQYKQpHrqeBxMpzdg+hcfuka+ZzAHl4w4hMbd5u4Htu ynT13BCcSRKmSgsPJc6I+H9s0DW4x6j563d9Nb0b5860eG7dgX1J8yd0b8R+ MjCkR+wXrmokSsJaUXQ1z0buySPv9ac7oevYXVdVn7Y8azV6W5VmXiu8GM5I /SwTksRKYkWIaf/Y/XbIkxFfadr1URTWc1/2C+SU5NURy+OhG3SsMSQaXlna zonHnRewqqxPujcnEk56NGc0r8qXmH5YFRcta0YoepObTNuw/h/MxOImJVYW ziVq2eYOqIxWSTIacudddI5QHVZipLhsu/ZoYmwiIT0NH2Laf5aEmDGXyhXe MCLl5m2tLDie9vFcup1f3dZPD4x5c93/5bGTYEVZmbYTPNenVVbFDukeLi0H 4Y/LG4Z3fMi/buT8rYI+cHHOgaRVK/97KA+vI2S9cyV9zbtje7QJtIhYif3r h414ddl2xd4s/yKqdw6pS989xdUnZKOiT8uxEKWLnXJ4I5WgJBcU01qr94wK 1v28D8ADryytm4o9pCfpJ7wVRfOq+OpTPFfLb3nTqNUTDzMpsZ0X7sep8+El ozncztvn4rsEMVPZX9ZekP+So/55WOIP1B/apuu0xLnRfbpRXXGDn+xmW0nX 4tLQIliPrmjLvOaOJHcTobqxiYZqH/94q1amzKVyhReMSKF5l+V+l/D8UwG2 uSWo5aDXFybvSk9LSYq1/Yn/A72XZRSVlxxeFN2+jo8ltMdXV7V7c7iyQEVF D/7Y/npD5JsiE4+I9PqZ5qQiot/XDrz0ILWsKNNIuKfk2vnDWze+P3dW9F+b EigPtxgYM3V+4vqvDnx/9Z46pwxsXTXF1ScUoJZPi6ao4FjslMM7ORU/TGEx LalT0uOoFFADMWVpyZfXQjz54kGhTBxUGKBG1+nq0quL2xIuwb+F5LddsEdF Sh3VaBXX6+ZW26NuV+H+D/s/aiG74i5Z99Xu9PRvdmxImD2wjb1Vbse+C3ae KsG3fiKTIVKM1DyobmyiYe6kqHfEFHjBiOSbt9Wa9/lb3ezLZ2DPf6VeRqaV iuKTC4f6+xLRb8aGMd+u6X6K0x9BQZz21qlZLdkDTQmTJztrCUe/2cq3bgoh YkRCb1xMoInVSqtPKEAlnxYV19mfYK0ZB/UtE8FXMovN8+JF7VyJaan9b/Dc 3WaL6wAu4BXcdpl6TzWkE9NcBtlJqXOY7lShjpnB/vr5Fdz2yC9v7kv0XrDt 7d4PMf//8Zlbbiv5TXsnUwcTD1QUZSzuHtRg4PJvCngh2eJrOyf3DLBfQvhb n18qVTQsB6hP2CvpIp4v1RDVjU00jjupV54IdrxgRDLN22rNXfdKc/uLGdj7 1cxCp9GX3d3UDzmQ1TjfhFNYSW5kqari0NROMidPtqWUkKCRPVPDVE/bI9r7 tNRZBol+YtpqNXxaa9WV7W+Ho80NAmpFf3FO/x6CaNan6GGWHV6OFiV2ebhw fkGk7W8m7jfn7h1A4R3lu0y9Z/q/zz4qQpHNnter0bHUWeNKLyvjdqnQ39Cp CS8RULcus54E9p2erbCoBbfh4MTP9k1o6v4EkK2+S4TEfV2E48ayZ/e6zsny UdfYJECvp5LqJRobLxiRPPO+khRjd2h9iOYdkn5xbVKIDF5ad04sXFzYm12g m4QlF0j+Bk4Irn5w7GEJ8Te0pZRAoIz1QLD18vaA1j4t6rHLKeeODcw+bUVx 1uLRLVCVclCjcVsM4NBW8xtDi9pu3zg2tRmaYOVqpSD3ibX0fYgANjhumxvh AVlAVXTdQja2qcqs4rKuRef4NCw+Hh9nn9YxYWJQFvH98w6hoZa+s867/1br uc30rI2lRzlZV58uFiFvZdQflY1NPPb11IR5du4x/YhkmTfbr8pjRz/ktEgP IaVDpGpHasNHTpVX6fE3tqWUYIAakUk4kgXUQ2ufFhHTauCxe4ANFyu+20XZ 22ZFNkX9WUu7rsuOGqgzRdnBxe0I0bedzHxpQAQ0a9XUEXR28cJSfRLrTvzM JIVXAY9w3TYXGx/qlMpXdJ4IGvhVQUOVsyCC9/6qmInJprXyfhJLWNgp5ixY HJLVBfkQIYMyFNYmYtdlC9Ev7pIZhUQqG5t49oys5/r1MS2mH5EM875zIb4D oxT13NEP8dZ0EVL+uupFf8foPF8ql8K97/eq76jYIv1AGRXTCnUXZVVtmhwD URbLonZ9P8QGJHRoxU7FvZTBjTgDl1TkiuL+3Zy9n8+jMiId+PqGjk3ILMCx uGKsH8Iqf3wEagzmn5zbqYHNdYlY9F3Wf6Ico+L7tObtkwi4BC2I5OosqSQ9 vq3EuoXotnHIVqzl3vhOpuoNu/nzpP2diFh2EEd1BZ5PKyoZBxU/CzYdE/h5 NivcxK6LisYmHmqhN/MxPR/zj0iGed9Y9y9H81XPPSbYNGq9RDv3f08Z1tbh gIg6qKq8f37Da2H0ZG/zB0JmpJ6XfOmsXEooSkYVR6J+S4M6V0Xn5rTk1vD0 JYamqNgrip2KNXxNrMW/X8qzc+Fs5t6M1I2rYwdzHVGKh5uMXvFl+pGTuXlu yT31fUbaN8kfLoodO7JTQ37508COfRYxzSwUgr1+iJh+9EVHN41pU48IaDAw cS/5avyU0texznI7NdjVtoZunwdIhSnM4sIrsDfIriU1/QpdTTAnEnIqJ0tW gsnA2adt9NLyPDwpWrwsTlEdqNFUbtdCEdGwc7KvibXxKhqbeG5mxli0yILR DvOPSLJ5o06RUEc/pieRnlVJ7WGoIMcYw9/c+FOx22suPr93IRKFqxsx8vOc uzK2saiYViA4ida5wlcnkHXqSLfs5+wD6ek7v1wTT1eG4eMfGPFK3PtJKWnp aZlnEP/u+m2lghrUY9dQUK16SynfOq36j0n8BlPdSNXqh7D6mYBaoz49dgex rrLrpzfPHtLCl7trs1afdCR3BzVado6+EruH40fUr5NwSlpgGzA0SFEXtrKB tTI/fVX/R/2Ixq0XZEr0G9nZDHfBt192DmbfPi0amnB9Wh+fZ0YccM6Dlg23 VpiIQ0w0tKtMBIvOyabWxqtnbKKxZwzpnKSGF9OPSLp53/1yMlNDw0L0mpXj YWZhd9Z6ViW1Yb3588f/7OjwVC0tOk76z7qvDp/MvfRLURnZ6yr31NGta5fO 6IeE8oKavrhs+1W5u3JWTCsYnESKe2M8BsLh1OEwbCcxrfXOlQMblkwc8lzI I36Ef8MOvQbPSNycfROzKk4Vn9Z2tc/2i54Rt/KLb45f+wObOatcP6Tw0PpR zEYmuOvzkxYsTXx3zisD/9rY5uv6+oWMeiuD1/64ouTQ7CjKrbW0CIueNX/e +BdC/A1T0gHACr1bIeiN7bJ346KfJfuzyNaHs60EhCIekkCjBErraIkDyTtQ oeK05MokXLmCkiJC7E+bXhuvkrFJvACdi4nhxfQjkmre3AqWAj4YsrPWX7RT WZq7fflQl1FKLpYmbUe9s/64Ei+LFdMKd1tg5RlYj4GM4tOiYtrVZ66kvte/ iZ+lSZtRce8lp5Jn67Ofa2Ox3fOWYfMzMDdQMwta1A8pLcz6bMnY3k83ZjLA Als/8+LMhK0nrru+59bKgiNb33l5cCjVWNm/ftjIqUnH3XwYMDlkxP6tMeHN 6LkxsP2z4xbJnwCperYUGFWOuQtppXdg/9jTmpyKsj6tGjoHNjWbRLJPS5a0 VfyAfImxaeaN0pKoZGxiYSI2OhZdx4z5RyTZvNHdpZAP9ueOmY6qA2PT72K7 aCVUlubtS0mcQ+fgsNRvFtZn8KS330/ei6OXFiKmFQxQs/IMb+w3iqS/+fYa 3KdRbaLLtFWni5A7cu/3lBF2wbP6AjkDYo76IQAgHjXqnNAJYpo2o6R9WtWO J9Durlr6tMwZIo76Cbqja1EdRy8hfZvzYsQLRiTRvFFlu7CkhzkX8E5vzQPo MZnAfud+/vKO1G7dG/uNssoWglodeJJO+lOn1nez24lPp+EHtK1grDPmqR8C AOIhG3OIWyPEQkU1Zeh7FUD6tD64Ch24AK1jIFFPqyDfFumP1mreHi84ecFv bKKhUyw1bialJqYfkXTzRrw1IR/Mu701j7BiWl9i+mGPI0fkGV7YbxTtL+nr vksO0sZdag1hU2Om+iEAIJ4LjuoZ2N7oqxlrk09oeo5z/2z6qpRDqjR0oGA3 qmLki9wcMblhorK98fTJ7MPEshyvWHBUMDZR0KXwhOWFpsH8I5Jh3ohKU6j8 COutWeq9sZ2tO2KtunL46yPXVaqUbQBQMa3QzhFpWs2N9pfkZ6bvl52hZhSQ 6OIjMetvujcxJsW4Jh2sm65+CACIhCplTAU0oPibO0p/Wx5Wm573RGQucGp5 ec7Odgf7XKSVHTY0ehnbb5QeDGe1Ip0x+4hkmTfqg3lO+0LP3znibbvWtFfS RYWXb1xYMa1wgJqN6AYFr0VqxFJ3z7xFjynQXhLTD3k6wWN8Wp27HGqJGeuH AIBIGEER2eNp/nGo/+Yapj6wqL0q2mLA87GOW8hOx3b8idlHveeh6GJsDg9H //x3TJh+RHLMmyPp8SxrZ/sYcvvWeYe35gHEmRfa76C9xri9lUlft6121VxV gkmCEJqx0X5GXN/eazFv/RAAEAMbMyEaz9hSM/ap0inIjHmQXisEcrTR3rhP RG67IWcauLiwN/VEAl5Y5FXBcz2MzRGPMkr+u2LMPiKZ5o3UPfDk0944NrWZ H/0CchtSkIljIvoAmhc29CqUiWlvPUl/kiPkIKXItcxeOVBCdBHtEKR2o16D YPb6IQAgiCNsElR/5UUznmVqASOqFzgtZUORtYnoHVfl/JLDf/bKyLnGxkbH o7wo/93sI5Jt3tbq/eNaUaHFh6d/4VrvWXx9I9uOlhurvPfr4hAL27DG+2BD r4Rzd1EO1w6Nf5StTxiW+AP7V+c39yBMXzkQ7SUhkNXLxiFN+0JJA+qHADUA a/W5+CiNo2fmo6Jkz5gQH7uzOmyjm6Jhxb+uCA+iltOIRRly0taQZxE8eVOh 9+0wNDY2WmEoV9hsQEw9ImXmbT2zuSc1dpfhVsqhDXgi8pmmzhFIMivN1xs3 iQ5YMa3dCWncPumaqwAl2a63geWJiO5N6Y+iQe+TsV28oHKg+FR9RK1h7jbT 4oH6IUCNwFGtzitjg7hwRIFcVTu03vx5zQv2v5Xt0FY7wpjydQsmQENjM730 1Alzj0iheVutF1cM8ydcVGcqPr37jcimlsbt38y49MfBxe14CzG52Wzg7zXp lq5AM+MoWsaszuOGs4uyt03r3MAntGfypYqLi2gFiCN2XX56c18/uSkARoJN 1ReKQzo6BOlSN1sXoH4IUEMoO7y8o918AwbPywFrdUdF8bEPXu1s70gd3GPU /FUbU9PT07ZufP/NCd0bkVvawI59F+w8VSJv6awo+XpkSyq8IFO3YBI0MzZa YYi19ae+mHhEWMy7ojhr8egWFvIOdIlJSN6Vkbpx9bzRf2/sRzTuP3Hbz3dJ f6yq/Ngce9d4XyJ81se7tifPfa6N3ZHz5nkNEdMSj3cIDbQrMIJ7jU3YkJKW ztyl2r6hYxMyC+z3gd6h+xCNQ2Z8mpqatHTIY76aNX9UEbbzo4XoF3fJw1SM JogRRPias9pdpH5A/RCgpmCtPr9oEBUD8dQpD7DdqjtX0te8O3FIn+7tH7Ot rmR3yx79ome8tXZP1k0Fx8G3ts1sQS1JM7fc9t6AEok2xuao49o6apd3hGDM PCKM5l2cc3Bt3PgBYU8EWoi6rZ8eGPPmuv05nI2ktTL/4OexI54LecTP0qR1 //Fvpl72ZoeWU5m2UZuka5UFx9M+nsv04fV9oFWXni/OTNh64jpnfiotzPps ydi+3WyfCWzdOTph40/F5p/4i7Kn+LiKLjqDqjW8pgy4AFA/BKhJ3L+1aWBT +5FNm5UQq9UYOnHDYvnb+CxzZx2LQwNjozN8vehU0bwjqmnmrTEFVMliEcFJ r+d2Zow4nw0p0+pFZcAFgfohQI0i/8Qbbcn9fmDf6dmw9GiGw8Fr3S0pt8bs JtQ2Nir92ZcY9fUN4Q+bApOOqGaat4ZUfbekmbgDZe8H8WknHnBvbJX3UgYx R+s1KosE6ocANYzycztGBpMbtBZTNtWUrau+WKtPvt37IVLY1npBpqZthXVH TWOjqtb4+HQafsDkBeQZzDmiGmzemsHmOgm1zfJ+7hcsf0rYp2WLLtYErRcX qB8C1DTKz6a8EKAsfx8QidWau+6V5j41d8VX0djuF+xfv+LzE150V003ohpv 3lrA5jqZUmiNGWv1nlHBlLPqtk0A0p3Zp+Pg9Fs1LLAN9UOAmgcdQAO3VmUK 0+I71fgQFhibtwLmrQU3M2Ms9DGx+YTWKuAQyrpruFCYGteO2gI0bpFw3ERn HviA+iFAzaMs59tpYQ2IAGLiXliPVKHqxPrutm1wSM+VP9T0OwzG5n2AeWsD KqaNSrqg9+UYgKJzc1r6uetLQh8MwVYL6ocANZCS/P1JK776sUbuZNXHejlz 7brNZ4pq2MmXO8DYvAswb21gxbQ1pSCVMCX7F3e0BxgHJP3IerU2Dy19VX97 X2DYagEAAAAAABiKPSPr0VW8IqechigahbXqyva3w2sThP9Dka8mJO9KT0v5 dP7wroG2++RfOypuHWy1AAAAAAAADEX+tgXhDX2Cuw16/ygEHjmUXT+9OX7q 0Gf/0rg2YWnSNuL54bNXJB28fBfcWQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAIb/D5Ffx1k= "], {{0, 107}, {924, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{695.0979166666666, Automatic}, ImageSizeRaw->{924, 107}, PlotRange->{{0, 924}, {0, 107}}]], "Input",ExpressionUUID->"246b96f5-4a3c-4569-98df-89a9ee10b2b7"]], \ "Subsubsection", CellChangeTimes->{ 3.7467908910396624`*^9, {3.746841593306051*^9, 3.7468415936332083`*^9}, { 3.751563704324812*^9, 3.751563704325135*^9}},ExpressionUUID->"ad9cf71f-84bf-4cd5-b455-\ b759250085b8"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{"d", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "=", " ", RowBox[{ RowBox[{"I", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"W", "[", "6", "]"}], "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{ RowBox[{"\[Gamma]5\[Gamma]", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "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}, 3.751563015604684*^9, 3.7515630651268787`*^9, 3.751563219643189*^9}, CellLabel->"In[76]:=",ExpressionUUID->"1e3a2e5d-ae3a-4549-ac86-703fd0c5da93"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "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, 3.751563016009026*^9}, CellLabel->"In[77]:=",ExpressionUUID->"fcc63c84-ed1a-4b9d-b833-24d45f046d44"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"W", "[", "6", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ RowBox[{ RowBox[{"W", "[", "6", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "2", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ RowBox[{ RowBox[{"W", "[", "6", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ RowBox[{ RowBox[{"W", "[", "6", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "2", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ RowBox[{ RowBox[{"W", "[", "6", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ RowBox[{ RowBox[{"W", "[", "6", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "2", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{ RowBox[{ RowBox[{"W", "[", "6", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{ RowBox[{ RowBox[{"W", "[", "6", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "2", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]], "Output", CellChangeTimes->{3.7515640788370523`*^9, 3.751727179434198*^9, 3.751730249396738*^9}, CellLabel->"Out[77]=",ExpressionUUID->"8da8dacd-5921-447c-85e3-d39096077aba"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzsnQl4FNWy+HsmIWpIkMU/ELkIAWQJeBUCKiRRJEF2kUXkAiKgbAKCskRZ DQYeiLKIgEFiFAhK2IOQBFm8EC4CAkEhCglbQBKWBDFByDbzn57ume6erbfT Pad76vd9733vyaSnu6dOLafqVIWOmNh3lJEgiMkPW/5X3+GxL73//vAP+1W3 /D+vvTt57Oh3R77d7d0pI0ePfP/5EX6W/1hg+Z+AQIIg/28zAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGiOsjPbBkZEJOU8 8PaNAAAAAAAA6ArwsgAAALwCqF8AAAAA0CVg4gEAAAAKsAhSuP7zhCf8CcJg bNUp+QK8OgAAAAAAAESAlwUAAOAVQP0CAAAAgC4BEw8AAABQgEWQQP7JmW1q EjaCO7+TWWjy9j35LqV/ntmR+HlS+qk7ld6+FQAAAAAAZAJeFgAAgFcA9QsA AAAAugRMPAAAAEABFkECxX8m9qhPvi8//5ZhTYzUq+s68djf3r4xn4Q84R7i Twlwu6XHICcMAAAAABoGvCwAAACvAOoXAAAAAHQJmHgAAACAAiyCBIqvre3f zEC+NCJyfnrRvaK9U2OqWl9d6MgVufe9fXu+RmXZ9n51bBUNfkT/TwqgogEA AAAANAp4WQAAAF4B1C8AAAAA6BIw8QAAAAAFWAQJlJf8d1IEQb+0jKJK+j8e nEa/usaTN96GQ6pqUn43MTLAnhDuue4cJIQBAAAAQJOAlwUAAOAVQP0CAAAA gC4BEw8AAABQgEWQgP39BD7UeZHtpTn8E/t9KkTF/dy9G7/8KvnYDRj6TFJ8 aHXfJ6sb6zUfkfCTsm8eAAD8QaQhYTo5AKgNJl4WAAAUYE99B1C/AKAEoEUB APA6YOIBAH/AYQDUASyCBEymnC+GPGZ5M0FVBn93psz5A5ZXN7NnHT/y1fVI +s3FB5BQ+teO4a2DyKPdBkO7oZklCn0NAACABkGkIWE6OQCoDSZeFgAAFGBP fQdQvwCgBKBFkXAlfUBIw17vxSVu3XMsOzf32u1Shw+YyovyLmQf/Sl17YpZ Qzo2HrW60Cv3CQB4AiYeAPAHHAb5gLcgBLAIErC8tNVvNTC4f2miPiaDysNL WtiG5hKPGpblKvAdAAAA2gSNhoTp5ACgMth4WQAAUIA99RVA/QKAMoAWRYHJ fHrNs4RQjGGRX//+j7fvGQCwAUw8AGgBcBhkA96CAMAiSKIwY0GHKsLehv3V 1QiJPXQD+Z1U/Bj3mE2Eie4zciuQfwMAAIBWQaMhYTo5AKgLPl4WAAAUYE99 BFC/AKAQoEVRIGKPt273UakXYaoaADCAiQcATQAOg2zAW+AHLIIUinPiGvmL SI7Tr85IRI3PQi5lxdfWDetQp2rNNm9+mJHnizIMAADgFkQaEqaTA4B6YOVl AQBAAfbUFwD1CwDKAVoUAYL2eI0NW4/9ak8BnGMBADZg4gFAK4DDIBfwFvgA iyCV0tyDqceuipAaU+WV/RsPQMYWAAAAAADAI+BlAQAAeAVQvwAAYAy9xxva a+zYfl3bNKjO3tqt1uSZniM/SNh99IZv7u4CAB9g4gEA8A3AW+AHLAIAAAAA AAAAAAAAAAAAALhC7/G2X/Ub/R8e/JWXayGn4J4vtcMEAAAAAMAt4C0AgA9w v/Dod0sn9ns5rLa/sV6zyN6DPt589I5v9UMAAAAAAAAAAAAAAADQK057vAAA AAAAABzAWwAAnVOavWdqVH1jzX/1//DT5NSMzUvf6xBINgEIHbki9763bw7Q GSZT7vdzomsR0UnnvX0reqB81/SHgv812OfmWbjC50ULhAEAfAufV3poARUK AL4IKFKkgCJlwFq0YI9XCiDeAKAlsFbCvg6oUwasBRU7bwEkBwAQUnZm28AQ Y3DMyHR7G3OTed+IRmRK2I/onPgb9AIAkFFecnBaTFXCYGzVcXMeaHAU3D4T 164W4Vel5bhVPl2/AaJlBmEAAF8ClB5yQIUCgK8BihQ5oEgpcBct7PZ4tQGI NwBoBdyVsM8D6pQCd0HFz1sAyQEAVFza+2Ztv+CuE4/9zfnPufM6WUeFG4lu 0y9gqJYALcIYu07JF2CKOjryT85sU9OnD/WDaNkBYQAAXwCUnkKACgUA3wEU qUKAItWAaOG3x6sVQLwBAH80oIQBUKeaEFQsvQWQHEAmpoqCw5tnvU6NzW3S fdSMDb/e9PY9qU7p3ZQ+TxBPdUnNdzwHfCq2rTUjbCCa9Moo9srNAfrCZuyI ek2XZeNp7LQMWdrhj9ImItGQ6kwn16Jo/X0xcUDrqoHVomZvKuB7IcXZ+5OW L/vmYG6ZwIsjFwbdYJHqE3vXfzJjRN+ubRpUJ+zUeCK8Y7ch0+ISdx+9IfQt 64Lbvy14ob6RIBrP2q2RlQNY0aLS0xC+bE8lUVpaKuGvykofQA8iwJuAIlUU tIpUW1pUG6KF5R4vQiDUUh+IswBM0IYSBqz4ctilDUHF1VvQlCH2kWDZVHzz Qi4qcvLuKLYoyouPLhjS0I9oNzI+eWfGxtheVS2SFESM3ZOv1DdyMZWVlsn+ aeVf5O+t7z9GEIO35Tn+Q2V5So9g+ozws6OOSxFeAGBhMp1f0j/QuspG7HSS N7d/hWKdiAGlyi0vLVV3q7bs+FcvGchF23jyxtsyvxqFhlRpOrk00fI2lxf3 oktuQmN23vH40av7hz5i/WzNkITLQq+PUhj0QcX9nG2fD3+OzH7asbj3HZ7/ d90Ago2xYeuxK7bn/q0t50sSJvOJ6VEENR+i6/SLICdaAeyp8vioPRVAydWz hzat/Wzm5EHdO4Y3rM7RnjWeCO/Se+xHn2746XRROc91riSNbGAkJh6CAAPw EqBIlQeZItWWFtVMYOJqj/fBX3lnftmfnp6e8eOx3y8VaTl5B6GWqug1zjKV F+Wh2Ni+dhvcHfUA+641fDTsAm9BNngaYk/BcuBjLaMtwfJnGw79XuL5hk2m nNVvNahCxP6sJVesbNtkAjnWorLBk6Yv25iRXYgmR0xuRDxSZfB3Z+iXW7B/ qNVjNLQbmlmC5Bt4QPGiZG/h3v9zcfjDRPcZuRVO/3Qna0oN+lv8hn/5t4s/ BgAR3NoyuaFVntrO28e/wiwxxc4vx3Z5ho4g/B5q1L7LiHkJBy7eVcpLu194 9Jv4/zzzL0sU0yh2m/wz8YV7Pouu4U/4Pdyo+7BlPwmuN5ZN/jdv17LqhpiV v8j5UvkaUrXp5OJECxPK7yZGUsLNX3Jz+6shtMoPJhb9IeK1oRIGHVB6+ciC rk3JPQrLkuw6ePbq7zJ/PV9wj3mZpYXXsn5M+WRc3xaP0C/bGNZp6f+u6vu9 mU6v70Q/LjQD0RJgT9XBB+2pB0ounUxd+fHwjk2D2bu97glu3XX2Jre19MUH Frf3s8R3QctyNLIn7I4755b0fsZhu1tZavzrxSX7sNnz0DCgSNUBiSLVlhbV TmDC3uO1nqga0DG0KkffGOu16D/1k/RcxeRcOSDUUhF9xlkV97a91lCYyyOC kKee7/zam7FLvkk/dZEnHQBIBey7FvHBsAu8BSTgY4gtwfKOJTMHvyA0WA5p /+r8tGx3hqAwY0GHKgaiTtOka+o+hjwUyQizCazZZvCk1fvcvjchmLJTuhmJ tosyGd/wduZI+vrE7BN8de0owCAjTK/rMXuLXPzbkSXNbF/TPVlwrSQAuIJa cRaCu8dm3eP7dPG1dYNbBxlciXzN+v2X/FCAXNHnn5gbZa9oNRBNYnYWyrvg jaPjQ/yZ2w5i+SRKU16ye1gY+fJqVJ999C9p10CgIdWaTi5OtPDhavrrtHD4 G0cn/ePhk0y7BgMRNuCAqGdEIQw6wOrVW/vJ9JmcfOKa55VYmvPT3M5Njeqv XPUpvbuu22M2JSXgAAWAB2BPwZ5SILenriEbr22aO+Sluv4c8SECH3uq+4CJ Hy1I2LAj/acj2bm5ued+zdyTsfmrpbNHDWzzGP3p0AEzDhc67g2Yzu3+Tx1/ 8s4jx5/W9pkZOpJSF3//dzeoEanqGlCkGlKk2tKimgpMaA32fNyWb0ZEBBv9 w16flLDrf3/csJ7efHA3e8+GqdbBIkTNfw1O+KlIW9krCLXUQrdxVuntlW0d XB/EhLTvM3vjIWijjRaw71gvKw/4WNgF3gIyvG6IqS7l/Z+rW4WrQ+hgeWHS 1jS3wbKff9jg2QfyHc+92gyr9oJlpmu09WFT134xa8Dzwc4K9tF6Q5Z8t++X s556Rp/6X0baD8lfzI8dzuwtMAY05q3E4zwuh2sqy9KGhBIRo46x6zBOrHya uq6fSh3MOO21c/44tj89ffv3q+Km9Wxa3ellWWQpOPKt6Z8lpaSlp2WezkHW fqTin4Irf7rMrV//op/NphDxv2krAAAQUXx1x/RhrWv5E35Vwt6IOy75oHjx 5SUR5Mx3osbD8ac8BWQklWV73w5z6ZTZQdys4/71VdTt2fEjhqfJ8sxsXapY CHl2VOTtf5Ms2TIYWvdOvyW+Sku+hlRtOrko0cKJih/j7Kk4npIbVrsG4+Cl ouVSpjBoH9qbCqoy6OufhU5+uV+0d2oMXfao3aiKj1vfj6/N8coMy3K9fU86 BuypVMCeqmRPnaHC21ee5myU+fm17DN22c7DuR7H+pjuXElbNCny/1liN4Ox VafkC6wP3z4T144WkpCZuzQfYJT/ffZAOs327xKWfuYy7DU27xi7fG1qugAs kW/CsmVL5seOHtqz7ZMui8yxG+OlOUCRakiRakuLaiwwYWpajM2f/+SgqwOb xdfW9m9msL7qyPkZGkoKQ6ilDvqOs0oLr7L3pdfHj23LPRZnodGguZv3W7f6 PXEh++gB62bv1H6t/+Vg2Ot2H5V6Edv5oVoD7LtmDJArfCfsAm8BLd4yxC6D Zesh1oRdh/PueboT09/5mYmzomu5CpbzT85so6dg+V5K7zpcJcVXqueMtfDA 6VUHxMxc+3uxyF/87PqOBBGTdI7935g5I14/lH395wlPcNPffkSPpN9U9ZTk lEoC+qD0r+2DmrFXW6uFmVJ0q8l88qPOlO/cKn4fvxhXlh39YsqIvl06tHD0 ltmgHBNQnD2jtsPljdXGfCu9UzrTpQrdNUVCt86Q9qJka0iVppOLFS2csLmU AkpustY8b5Oh8KW/SPguWcKgde6ci2sZIGW34cGtdT3r0+9dl2X/t05NCeV6 Gmo1SPFFwJ5KviDYU3XsqROl17LWjI6uw1YSgUFR4xeI6gZWmvPfqW1rknGu fWvlwc2U/sxaGJQq81wEljivgkf94rMkbvaS/cfi3wrjLoK+m66jvWXfAhSp thSphrSo9gITao/XQDRpn5TjXkfRG63e2JKSAYRaauB7cdbugezDOwYirFeG 2A5LFQ+yk+dYswCs69RtMifzhiJ37FOAffeGfUeLT4Rd4C0ogPqG2FWw7N95 yucZolpn559Y2KWpkZ0UtufWregjWGYOnMpzt8gU/KHk0f/m1NUEd3pDVFUV qRNCwpMLWP/pwa2Vz9vmjLwan+c8VFdduJ6GN07uyCyVBLRP5eElLThSKLFJ nW3Uu3iH2VRedO7nTa5KMUkCXFlqaZjM2/tW415dXv8WelYFgfKaYiFHhFt1 WhAx8ScXbeE9IFdDqjWdXLpoeR32ZKvWQw97rI5iJlsFELE/S3KsZAiDtjGZ T0yPsjw3p3GQcC6mD6QDLIOh/dBMjYZVLrG9GQfG7IcCdUUAewr2lAFLe8rB ZMr9nrtX6ecfNmjGTmmToWxFzkG9Z2WXlP08w3YsCIcSXIVgWpUS9A8dPSVb 3rZI8cmN/7G3BFSrmZVeAUWqLUWqIS2qycDkxtHxYdUn7c33/Knz8zrTMlOv QUKuFlKeEGqpgA/GWY59pKWrDnurbZZCfm7DFS0sLowB++4d+44WHwi7wFtQ BDUNsYtg2a/VsLkZFyQFy8V/JvYgS6TI/uF/l/x3UgSzkPUSLDvPzJXV8Kr4 6vZxnYJYGs/YqktC1k1Bf0v6h48Q/T8pYP1UpuMrn7Fdy6GkxCtkz4nk6HPV p/uxhwhHrPpV1e8G8MB5zbZdely0fntwMzHG2rHJj+ic+Ju09g22MyZOfg4i A2qf4MDBjxizT1o3EPdD5dQ9gleSHmddxUbHximekash1ZpOjkK0vAazXcxX cmMy7x4UQgt8g8gttyV+oURh0Dq5218l3/FDjcI7dP7P6NXHRZde23xaksjP j2uhgFMQptPrO7lSUdFJ5719a/oE7CnYUzs42lM2ThEWUTfsva2nXM6XEQq1 6+tHdOjdO9TPfmXtzUUSCLtVKUWjj/fJ91KYPv/Q4V8OoEi1pUg1pEU1HZjw wjpFW3fSRiXGFCAGQi0V8ME4y7HiS5bquLVlckOuEak6dHkB5IQlA/bde/Yd LToPu8BbUAx1DLHpzoX1b0WwJwQZQ8Nn786WFSzbGgWHR7/Maq+sn2AZcUbY Qnnx0QVDGjLq1KnztnsK/rcp/dxd9n85OqkVfZna9RMueX9R2qaW2wyQQgPC 3MOc6dayKQHkwD3TJLEhP9V2A4ETlX9iajPndihEu6XH5HrN1LAJV4RM2ybx vNyNE3E92jcKcnFNVY/g2aukCCJq1WnhP55cDanKdHJkouUN2NvFPCU3TGch P+KVj69KfmdShUHTnJ3DPgZrIEIjtojdq7i0vbf9zzUoaa4pvbuum0UADY9W cyhRltq8BeAD7CnYUzsY2lM7zvtgdXu+m56H4D1fX/3GQ85SoYO5SK5gWpVS SN/o40L7A16oE9YToEg1p0i1okU1HZjwwxyPMhD1uCewsARCLRXwwTjLseJL puoo/SuxYyBHIwcS047gP1EUU8C+e9O+o0XXYRd4CwqivCF2DpaDO4/bn49g rdkEg6sZ9BIso88IWygvOTgthtXXwWBs1XFznvgXdvvYePoqRuPrn+Rj8Ma9 nBFmDxFu3itDM2M9AKSUlxyaP7jFw9bB6G9+mCFhSxCpQrb11mBjJJ567YC8 pWE6taa9CweKQDAh4n7hqc2f96vHmdSpsmPG+BstXt55U+ovgEpDIpxOrvGg m9ku5i25Ob+pi014ZB4yQiMMGqIkN64hd01LOFdV8c+6GCZUx6GFiHysB80M hjb/2bV6HPcFSWxlDPAD9hTsKQWG9tSGYwNDvyotx63KvY/gyiT3Li8I4w4u 18tcJEccB7qh3A+xDhXi74AKuAUUqQ4UKZ5aVOOBCT8PChY/zYgN/qPMIdRS HJ+Ms7gVXwjMMdOx3IZu9v/VBuy7t+07WnQbdoG3oDCKGuKiI2sH1lMsWGbJ hh3dBMuKZITN5FGXlD712ZclO2+LXKHsXDwm/q2XM8IwRBhAAaONJZSMOuNy 8GUAMfGgjH4Q9Fk58jpvThhT1+HiKCrGHbZY1XbMinPiGtHf3mphpjSLiExD olMsiEVLZZjtYv6TPnfXvW3zN2QfMkIhDFriduZIznqWOE+HNcRBwPQZ/Ll1 akqov0Wc+qVcrtjr0NoULD6+gD01gz1lg9pRL8xY0KEKWxkQkfMzipBuSv65 oj9HIetlLpIjzkOEu02/gOhNWsNDP6Lr9IuwXywJUKRm7StSPLWotgMTYVgr UmhwT1pBqKUCPhhnOVZ8IRgnym5FS7+ETlN+x+clVJbtGxde1RjQatYOzOc8 g303e92+o0WnYRd4C4qjmCFWIVi++/24h9lWVUfBslIZYQtXD456nFMMEzYn TYSmrizb3q8O/cLRVXH/vXt+TEQki4iew95ftO3oHWECIzkjbLpzJW3pzMHd XmB/d+QLbeN/FvFKYIgwgABWGxxkEwT+3D/U0TOTVc1bemBBc8oF6zPvwhUX F0dSqsreBVXfMbMN6JHalgSdhkSmWJQQLTVhTbZyGHTizKExjRH6A3KFQVsw XeDolx219LCE2luW96J9r8wW3gb1mZ9b4Tx4CBINuAL21H7XYE+toHXUHSNc gmg8eeNt5KqAaQ5J6GkukgMKDRGmsIaH0MxBKqBI7XetXUWKpxbVemAiDNYe L3/84mUg1FIBH4yzkA4RpmEdUadfgurjAj1BH/fDPkIE+26/a6/ad7ToMOwC b0EVlDDEKqSDSThqR1fBsoIZYbM5/5u3a7EvXePh+FOC+3dcsVt2Y7Ux36Kq fao8u+u9VzuGVnV4aCJ05Aohh8qlZYRN59KGNa7u8I3Gek26D5uw+YKIzQMY IgzIhxmbiFCKTOZD74Q5CLh0PXn/+qoI6wiAYGL28X9YzUAYRY/mxJzd1Q8m Fv2hukU8u76j7Xl6JF8S/efoNCQqxaKIaKkIe7u45cLDnj76IH9xa3+5cs5G pjBojcI9i7s/QdpEY8PWY7/+SZLP5pg21XTnFtPp9Z3YPpLzWTZoRoolYE8Z wJ5aQeioOzaLtrza1+cj63/FhrFoJLgfMZOKUkOErVDhIY/nALgBFCmDdhUp llpUo4GJqeDXZUM6hQY/3Kj7kMRf+YeEcfZ48U4PQailDr4WZyEeIkziXJ0L GWEpgH1n8K59R4vuwi7wFlQCtSEu+zWlD3dUt8C8nmi4kxT0FCwrmhF2arht JLrPyBXWbYOZ3eBHDE9D7IGUXju9sm8zhxEEjWK38Rp5KRnhBzcTYxwaQBra vZeQXSzSEMAQYUA+JvO+EY3oxShzKAaXyp8WPsGRcukVX9ZhmuQVqg5dXmBV tU6TXBAtAbqrEn/fKkVgzIqRiJ6SXSbur5FpSFSKRTHRUg1mu9iPmHjI4wOw TlSh8QfkCYNP4hiqIzztpTa2XlVMHxUXDd9w2oUAKMCesgF7akbqqF//ecIT 7HSwwdC6d/otpZTc3mGP278J511f6Sg5RNhsCw+jk84ju6LvAIqUjWYVKY5a VLOBycnYdja5EvRDcPZ4X/n4KsbblBBqaQctxVnIhwibXVgQzNSIJjLCYN/Z eNe+o0VnYRd4C6qB1hA7NiU2GJ59fX+hUpaK7cAgLCr2OspmhC06du1bnBnM AcSI3fn8f/bg1srnA2hR4U6KN93ITk0X2uTZE8WXl1DlQHYeJRZl81xXQkb4 /q7pDm3KJBb5s5rk494RCMCWgsyRj9ByiNixZ+TThrQKq6IzM0Ktip2q06Ng VRPJurjjdx0bbyDQzpITBVPVFkzEnxbzOAg1JKrpG8qJljqwJ1vxxRTlu6bb B0lwNs9L8jPT9+VJKkuTLgw+C6fTqYbNojUUNRAtXt550/YAdJjP9k8My3K9 epeAM2BPOd8F9hSdPS2+tiqaGzoEE9MOK1gJaotusO8MKRklhwibbS9Q620A vQMoUs53aVORYqhFzZoNTDjlKwL2mjgn2ozVp27FZ9KpIxBqaQutxFkKDBE2 s6UF6WWRoYmMMNh3znd52b6jRVdhF3gLKoLMEDsHy6I6Eovn7rq3BTow2kLp jLBTn39hxQAsPRwybRs7wL68uBfRAE1dDXuguUANIDojbDLvHhTC+Q62uRED u0k+9CUDpMGMRA8gYn9GWh1rMm/vW81BmUiY4ZLz6StU2RBngkNJblxDh2uj GKVdQGsnr5l+lqITdw/oNCSq6RsKipY6MNvF/H2HmAqxmiEJLBmnmlZJDBkk C4OP4lC7biQ6Tfkd310w99w6NcUSivoR/VJYkuS4uYGkARqAGLCnHMCeorKn JvPJjzo7DLdhGggow72N4wSaP42i6BBhM3XIWgdtAL0BKFIOGlWkuGlRK9oN TFineAS017uft8D+yjBv8gChlpbQTpzlNEQYgSpmDRW103fTdRS3iwgtZITB vnPwun1Hi27CLvAWVAaJIXYVLLddlKloCGvLnOqkqMOO4hlhZm64jUBi2hGe lOjZOVH0hx0qB8iSkkeQlajdPjaeI0b83qnojHBx9oza3K+QejqeqabQmqYC cIFZjIo0HneqpRRfunAxfSCVBqlZY9l5jp49NKYx99oIJnrQDWcCiIkHFd1q dQ/jcIprUYJQQ6KZvqGwaKkAa7uYr4kKk61z/NXI7YtmUh9fqjD4Kg47Fdrs q2wyn5hOruWgPvMdfHiWh08Dp8/wAuwpF7CnZkT2tPTQ4tacX8dgaDNgv8JW 1R4M6mkuEhtFhwhbe6BV1VnFuEqAIuWiUUWKmxYl0XJgkjMvhiAeatSu02tT F+6/yuf7MekwiyccsxPjhDCEWppCM3GWY8UXiuOcplNr2nM9MewWF/4ZYbDv XLxv39Gil7ALvAW1QWGInYJlIxEx6pjCC8tua3RS1GFD8Yywi1b8fAPE2U4g N39KWedBOxAVaHHHQws5AC46I2yfIG9Dovywm+Q3iNxyW8IlAJ+HObCPwKtx xmmih7//uxtE2ObK8oMT2lB/2Sp+n0PRwz/bJj/CubiBCBtw4J6sG7Y6JF72 8I9OakU/kICu9TQINSSq6RsKi5YKsLaLeR6hJD3OVl7H7R/1IH9x6yo81s0j UoTBlzmxktVZGd+dCg+YTq8nXQpXLW4c8xeSKp8BBQF7ygXsKRp7eudcXEtu fwCHBgLKYA8GsT5fJhk5Q4RL7+z7ZMr8H3M9xW7kxiyawYU+ByhSLppUpLhp UQotBybUe4tadVrIlhFzuIkgIj8/jvOZAQi1NIZG4ixuxIQip1NesmNgKMEF u8WFf0YY7DsXHOw7WvQQdpnBW/ACcg2xc7AcQIzZW6TAnXKgg2V9DRE2q5IR 5roTBL8mpKeuk3BKfSrL9r4dRoT1ykA3ip2RRgq+ll9iM8JOpkpqvxEYIgzI hl1CiaDziTOccTOE2IH1ZUdXtKeW1ZNRW647ibjjxWW3Ub13eUEYOTeE0yVG dWytGkliks4J+huEGhKRYlFctJSGs13ssS/W1YOjHve3/2ThS39h/snaAmV4 mnRHUoow6BVTWWkZjzhyvRd8dyrcUnp3XTdy3bjsB8t1NkjQ+2aADMCecgB7 akZjT+396xh71HXKWeXbA1jVKQwRdoW1spfn6LTJlPvDVwl7z+K1XawFQJFy 0KgixUyLUmg7MKFe3RP/TjjHp/2LLy1oQ8cvwd1js+QlLJQFQi2s0E2c5TRE WH5Oh1WQQIurodOEU7gtLuwzwmDfOeBh39Gig7DLDN6CN5BpiF0Ey7wds1FA B8u6awmlRka4wGGUMF+3BFanZXabROpsONpSeedNV8+NGcVmhJ1fr7TGjzBE GDBXlpbKa4HDlFAq1Hicscs26yzcR31wMzHmMeqPOif+5sKku5roIWeeS+me OAw6t5jM2etftL0uoSEMOg2JSrEoLlpKw9kuNhB1WyRddeVW5p+c2aaW8cnI DvVdmMuTse3kFSxJEga9UHrj/L71X8we9XrnZ54MNjI/Rkibl4fExm86cc1Z qrjdonDdqXDPre/H17bcdouXd950IWxOzoPIymfAM2BPwZ5SYGVP7f3rWD+7 nK1v4VijGxgi7AKqz5U+j05jAChSNlpVpFhpURuaD0yu/zzhiSrGyMFpee43 jspLDk6LsQ5AMxhbddych2VayA6EWl5Ft3EW8iHCl/a+Wduf++Dtk3LwG9yD fUYY7DsbPOw7WrQfdlkBb0F15Bli52BZlQPCZnuwrK8hwmZ1MsK0weLgKRg3 mfeNaER9bHj6Xfo+z2wbGEKEjk7MQ5r9v7vubYcbQ5sRdhxwILXFPQwR9llK r2Wtnz06JpSeKRncpO3guWuO3xDvlzIllIpVtjiudBGjAfK/ebsW9SfuRwA4 TfQwVp+6VaI+oAdGGIm2Qw97t+aT8YsEtxxEpyHRKBYlRavk4rFNn0wf3PmZ unbTX6Ne5MB3Fm09dEPS/bqsiXbeLg4duSL3PuczRce2vNu2lqFVp+QL5efn d6Y+FjJtG7UUy7LWd/UX2rPFLRKEQeuYKgoOb5o75KW6tuDbWO/JTgOGj31/ xqKln82e+A790/v5hw36MIPr6HJbfOC6U+GOW6emhPp76AfrJJPcvnmAJMCe 2gF7SoOPPTWZf37foVe8GkORKKjoBoYIO0LJtl6PTnsdUKRstKtI8dGidrQf mJjJd7hrdKuaxtBnp33n4soWf2bN8AiqY2bdXpP350vPWEGopWf0HmchHiJM FiTU5Dx13SZzMm+gu190YJ4RBvvOBh/7jhZNh10U4C14BcmG2GWwrMoBYbMt WNbZEGGzOhlhk3l732rcL+Hr6mBrFxMcMy551w/r48e2rUqEDphxuBDx6xd7 hldsRtjxDPKjhmW54u+y9K/EjoG0wD/12gH8nDFAIQr3fdHdshD8HmoU81rs vE9n0f68wUjGSiKVOXNUX7FjII4rXXDscOPo+BB/yqB7qPBxqt/w2HLK851a Zy4QgscuKAh7mjlf13oGJBoS1XRyZUTLdOP39e/2qONHuCO4bZ/VWTfFXdM6 ttW5eJi9Xdy4ZatgA/l/hEQPj09MSUvPSF27glx6AX6thsdnFljXXfG1tf2b Gcg4MWzS16mpSZ/0/ZcfggYs0oRBsxQd2zLrlaeDrG+bCKwa9c7cTcculjg5 BqY7V9L+762wAK7eY78rSvYEh4Hex2Q+MT3KctNBfea78WBN5tNrnuXIO64h v3YAe8oG7CkDJvb0T6d+Siq+0tI/z+xL35V1S48qRs4Q4XMpXfV7dNr7gCJl 36mmFSkmWtSO9gMTh28MbtFxyLSPVn23I90SlaxbHT+ubwvrkMvgsI6xrnaA MXwiCLXUxxfiLIRDhEsvH5kZzkkHG1t1Tvr9LqYignlGGOw7+07xse9o0XTY RQHegleQbIhdBcs9ki8peKssyGA5Y0/2HV0tYrM6GWEXNTb8Gtsi1cmzR/UI fzI48LGWMf0/WLe3QAEBxicjbCo4/eXIHqFB/mGDZzvow7LMxc/YLqA3OwK4 pzBjQYcqhDGs09L/XaVlv7IsbUgoJXuG9kMzxRwYYzXWUPCs2e6B1UUtEOud 2Ut9DFWHLi/w4NNmrXneQY1IcwDo12ggGrbbcM3764ldgiu8MyECDYlo+oYS olV4cHXfx/0JHkQW7lK/ezAx+zi3EI1dHFinadLVioLjaV/OnNAv+tlGQQSZ P2rX6bXJTg217hce/Xbh8K7tLZ8hTxrGr/29GIEsSRMG7VFSkDazX0Obn1wt clDSaR6vuOjI2oH1qhB2vefcKkrM8CDvQrn0RI2H40+5r4l0HnyJ5VaMVgB7 6gjYUxY42NPLi3s5GTg3TTUBUUgeImwr3dHr0WmvA4qUQfuKFActytyM1gMT LtZzRjNG9O3apoFVmGs8Ed6x25DYecn/PV0k4zQkhFrCxVt7+Eic5TREWKLq MFXkpy/vzl4Ofv6tRn+aVeR9bewWvDPCYN8ZMLPvaNFu2EXfCXgLXkKa5LgI lpvE7NSpGVcNdTLCzuN6JZ6WRY3z43dP9tS+XqmMcMX97a/Vt38qOuk880/2 MQeE0fjiqKPQNdI3MGWndDO6OLtETTSjEDWHnV3nplyvA8dCTQGOGTU2wnpq o0FCrkeP1jE2kdgayF6nZ+9D5V3YveXVnBKOavoGYtEymXK+fS+cXZXsCYvY NF2WLehntP7urpx/dnGgtwdDeEsY1KT08v/iourTM6z8iIgPN1y4z/9XFgpT pzcniFbx+8o480cotDNmt/Tuum6kTQ+bk+apHeztzJEOoo5luzZNAPbUBWBP kSLXnt67vCDMYffAt0YcKofkIcJlx796yXq0SrcpA28DitQOKFIz0iHCmg9M lAZCLdXFW018KM5yGiIs4Qctzj6wdAjdUpUiOPyVzw7kYnKWzi14Z4TBvtvB zb6jRathlw3wFryFFMlxESwbq435FvJjMvFaRhiPebhiH19sRjh7TiR31bvp VFbAOf/OjK03mc/O7xVI/W2Dfyec058ZAVxx//qqiFpEjeqzjzo2vrmyuKdN TMTtFrJdJk7JAVLELhBz8eUlEXR/nraLMnkOwDn2L+IuFoHY0jFEzRrLzmNh U1layN84Okm1iUaoxnWhFa385HFPOFoLKzUatmpY3eW/BPWexe9MUZV1jxDT jji+4MqfFtq/0euDIbwlDKphnRRj8+X8iMj5GUXCVyH1I4ZGbLnh3MpJEddF CW59P762RTe2eHnnTY+y5jgdyaKyQhI8FawBbgB76hKwp0iRaU9Nx1c+Qzgi +ucAXCFliLCpouDQNwPr+dPH2WCIsDKAIqUBRWoF2RBh7QcmSgOhlvrirRo+ FWc5VnyJUR2lty8d3fb1rMHMhGWCbGM+7BOpIz7VBu+MMNh3GvzsO1o0GnbZ AW/BW0iQHLYjQeNHDE+Dql25eC0jzNefWRWcR/UhzggL7WVRdGy8gf5QcNeJ x6hCh/tFe6f3tPafNxhbdUkQ2WoeOwp/T4x9ZywmzFmehXE1yfXVbzzk5gQZ q8GCOA+QLYrKLT2xCyTn01eoggeBTTsdd/bEd/MrSY+jKsrqTtqIx3k7thZS 0atHN50coWiVHl7RwcD8uMFPR09anHTg14tFdkev4p+C7BPpaxYOe85W/Gx9 bf1SeFJl1so6I9F9hvPY1px5MfR1AoiJBz2d2lQeLwmDWnC2KSwqbvoOEdsU Vqi8Sffk/Mx3uKMo/IiJh7TQUvnWqSmh/pa77bnuHM+GmHMcqvd5ZwoB9tQd YE+RIduenp0Txf0pxMy6BTwgeIiwqfjmhdwL2Ud/Sl27clq/5+pWIegfFNr1 KwYoUgpQpCToohKz9gMTRYFQS8ehlq/FWY7qN7jO4LnLPLEwbtLYsWOHvd75 mSeD7cLt93CjF3pbVsH+czexe0IP4J0RBvtOgZ99R4tWwy474C14CSmS4yJY ljNCGrChTkbY+VsUtQ4iuLS9N+emjNWnbvWw1MTZHWbiOX1xt/PoTeaTH3Wu avlIzdojlm9LT/shefHcYc9bdUWNx3rOXH0a5zEWwnApA14EC/FzSXFOXKMq ridNPMhf3Nru54sxu+zjZkFE/G9KWWtRC8TayZO+pbF78oVc/97GcdyfUeRQ mzvn4lpa9waxqtNjtBDixrBqTCdHKFpUssyKsXnUrI0ea3TLi7O+/qD9I/TH iajxWR4WNFVZV4UYs7fI8Z+YvBsecygUEwav47BNIagk0pmS3LiGxoD+sZOZ 2SOEZrIn9FRKI9F1ylkBz86tKMPbbGEL2FP3gD0VhYL29MGtlc8HcH8LI/Fq fJ5+An/v4dRSUiTGRyd+J6zdJiASUKQUvqRI1YhKzNoPTBQFQi2zbkMtn4uz HCu+JBLy1POdX3979vJvISOMDLDvFHjad7RoMeyyA96CFxErOZx9G3o9wnwl JPh6RthxQADPSHFxGeH7eQuaCb54xf2cnQmT+tFzwCnnZM6aTaduYvCWUGA6 8323YN4Z6yphbNwqETvniebvre8/RhCNZu12YUbOru/IPISY1hxsOVdyhLeI BcIMyCZqj1xzQ9Cv4Xyo30CEDThwT+jtXV7+GhWR8kzwVBlmYCjSgEud6eSo RKuy/OCENtRlQofMPSasBoYJfgM8uUmeKutuZI60TVrCwqlQSBi8zp3zC56t ySzbBi2TLknUwGSetGZIyCMcje622gonTKfXk/oxmJh9XJDm5k6dIIEusmIB e+oesKdiUNSeuspa6nK4ofo4DxEWC2hdpQBFasWHFKk6UYlZ+4GJckCoRaHL UMsH4ywn36l7suDhOg/+ysv549iebQnTR3eow+xPhkS/uWxvdgmme4RccM4I g323gql9R4sWwy474C14EbGS4ypYjlj1qxq3qnfUyQg7FdiQYJERdmzMaCQi x592Xx8mLiPMnQ5sIXzpLwo8A6AjKu6l9HqMeJRYlO3CU7m8uBdbnETsU7FV rpLdFbgLxFP4YPORDK5Pb7mD1V+dRvhszYvpAwPEf6MKkOW4tsdB6DarM50c kWiVHlrc2nqV0JErcsUcyCk7/tVLpEgYA0esdr3J4LGyjj2QIibpnLSbR4lC wuBdyu/tHdOGvWrl1HO6HELh9alk/JTeTelDhjaNYrcJrJ9lTbmlwXCGF9aA PfUM2FPhKGlPXc5F4p91CwjAueNfv6+zcl1wIfvogfT0jM1fLZ01hDVVsEbQ shycxFtPgCI1+5giVScqMWs+MFEOCLVo9Bdq+WSc5VjxJfWIn+lO3o5p1Jw+ mtB+0zLyMNim9gzOGWGw72aM7TtaNBh2MYC34EVESo6LEl95I6QBO749R5iE 25Ccp0RBXG+KI0s4R4RBaAFeyP4JRiJ6SrazpHD6ChqI0IgtN0RdVpDQyoS7 QNz6qEzbFiHzNNmU3l7ZlnvSXOBcG1s6xkLk58fxWofsjiWBxOwT5Wguq850 ciSiVXp3XTfSyAe/Pl+UH0VhdfLdq+7c7a+6r6xjJlu5SRupjULCIIry4rOp 3y5f9vmime+NtY5biomKjHy2zQsL0qTZbPsMHVpOwnpl3JF+dy7cCe9PJePn 750fNrA8+5NRW64LVXhO7hnPVAvAEbCnngF7Khwl7en1L/pxV7qBqNM06Rqa G8cO1PbF43c5DREW9mILU6c3t6pcGCKsIKBIfU2RqhOVmDUfmCgFhFp2vB5q QZyFAm7Fl5FoPfSw0F4/TphMOV8MYaUbLOqoc+Lvd1HeLnJwzgiDfcfZvqNF g2EXA3gLXkSk5LgIlnXT4sPbeC0j7K29bicci/M9+jyiMsJcucVjcgqAN/9s m/yImzpM0/GVzzDiZKw25lvBTTLYPU+Udcy4bU7dOGasti0SZtzsHfa4gy4R 0iPo1pbJDa2Pb2g/NNPliyvOnlHbS5P72AYRYamMGtPJ0YhW5eElLeSUUN7/ c3E4uevr8pTfydh2Fk9q0A7XBwBto1r5RniohkLCIAKTOXv9i44Gm0RifXjR mRmhnGCq1cJMOZLn5E5owbZSL0FkHOp0ctDf/90NWLhNGgHsKS9K2VMvokF7 6nSOVd7GJtagti+ecewwxtMGioEe+gNDhJUDFKnvKVI1ohKzDgIThYBQi8HL oRbEWShwrPjiGfwn4IIlOwaGsp/a2Krj5jzcUq0s8M0Ig33H276jRYNhF/Md 4C14EZGS4yJYFhjTAXx4KSOMUwE8mQni3JwHf0xERtipH7WYLUfARync9mFY 8yarfnex609aBDviajXVc8xsQR+Fa+ecadtSr+kysW6Zq06q/AHU1YOjHqfH NAzelufmM9adQz//sNffW7ZhW+bpnNxLf6o0R0a5yFTx6eQoRMtk3jeiESGv w9Xd78c97HI6VUHmyEeMRMSoY26WS/6WORGPGULa9/rsiPAjgkri/Yyw5Rcp L8oj22jmnDz8aXfbDBepPS6ur37jIfZylX1AwNkhxN22msxn4mJIx7XrlLMi fk/n6UUYRv1YA/aUF6XsKZfiPzLXfzJjcLcXW9a2/mHgYy1f6DZk2kdJe7OK kJc4aNCecn9o60p/5eOrel3pSO2LZ5w7jIXM3CXovVaWp/QIJmCIsIKAIkWh SKN7j537Rerpa+gXj0KKVPGoxKyDwEQRINRi4/VQC+Is+cgZIuwG67xONoag /3x2BdujeZAR1pF9Z1Oa89+pbWvJqZ+xeQsdwxuS78dYr1mHLq9MWrg6/feb 6BNoGgy7bIC34FVESo5zsCy3CgiwoU5G2OkXxKsA/vy8zpx7c98lTERGmOlC QFAWQYft3wHVKMqaUoclom2HHr4n/I/Z9s7TiA35cFe6ixNtZVnru1J1rH5E zMpfJEQ+TiqLzxyUl+weFmbtO+LJsXfs8S4OeWf3bHuPFJi00xcGCtEia3Jk lx+TLpOBaN4r4y/Of6Z0uxwnTW2wEgaTeXvfarSxkzZd5d7lBWHswnXZTTi5 74fSJMPTcKtc50D3qgoghn//q6v5le45su5VzqMqXgxpOpc2rLGDt6Y2wW17 blG6Jh/sqf0KythTO6V5x1aOiK4T8HCjroNnL12zeVc6yQ/bEuOn9WxKPl1w 665ztp9CWXyFlQoVhlOI5BvdAOTbFz6chwgPShVmLKhtCm8PEda1QgZFKkaR 5h7+tH/rIMsf1Kjz8rjZX29NIxXp9o3L3h/U4mHy21oNn3cMzQFbGxpUpDYg MHGF/p5IDviIN8RZUkE1RJh7UYfjPEq2yy78PTH2nbFyGD0sojYlOeFDZF1o 7Ng5y7NQZlbAvouw72xMf+dnrpgUHkhITlCabvz+9ejoOpZHDgyKHDp5fmJK WnpG6toVs4Z2Dw20nnwZ9CHiGdn4qFPRgLfgVURKjlOwLLjK1z33f1wQRngi 5Kn2kTRRVH0FTSARe0Q/55PVyAg7m1eXVRBehOzQzsK99ReeEXbMMrucZAcA wri/azrb7xXZDoht75SsJHRs4EO0XHiY84Hiy0sialIrwtBpwikRm/B2RJ+b s7dt8VwZeG/jOE/2wDNBxMSfZNV7sG2cZl0pqaJlHRTSKHabrAJSqkLvEe4w AjLvg2WrK49gJAxMAw0/ov8nBeL90dI9cdy+x7Jbgzr29MD+92UNEpKNsoXW ZlcOoVdQWuzBntpQyp5SlJ3ZNjDEGNxpePIJV0fYKh5kJ8+JrkV2U4+cn1GE 7jVipEKF4Rzkhi/9RZ2vLjq+PWHzQYQvXwSy7QsPUocIk9zJmlLD+0OEda2Q QZESghSpyZS74cP2D5OfDu40bMsfdx0WSvHJjf8J8bc2OO2UfAHlL6U5RWoD AhNX6O+J5IGLeEOcJRWUQ4RZOB0IVWp4BCb23Q7SVQD2nRB+JNlUfPPCmV/2 b9/4yfvDIurYqzukhPyWsGtYE2u1rStvofTykQVdmxotV67bZE4mynYNuKhT 0YC34GVESY5zsCw/a+k0m1gwQZYfSz+5PTUywiW5cQ0d32LEql8Rf4sc6KaO dgxVhy4vcKUThGaEbxwdH8Iq2JPUMgIAaCrLtvdjTjSJbweklmPGbf7gqExM 5hPTo+h/qPFw/CmpjvvtzJGcL/HoMtnbthBE20WZHvb2uINIxNF23j6Z9aM+ 7Uoh4u66twluz6hba9+yxAmt4vdpy2DjIwzsWauOQZagv6cb6TDIr7XOWvM8 d/WFTNuG84L5e+eHDSRrFkcUH7eh6yNpNsCeslHGnpJc2vtmbb/gHu8fu+Np b7Ls15Q+QeSLjFp6GFXyDR8VKhAlglxBkGeLqihdZ+IOufaFF8lDhC2c39QF gyHCulbIoEhJeBXplaSRDcizRgZD697pt1zrUtsZKE+fkYDmFKkNCEwURDdP hIl4Q5wlEeRDhG04bYwrVRtmOvN9t2B/Ag+MjVslolSUYN9JeO27g/NvrNd0 0AfxgxoJ+BZPX+3RE6BT5Aai7uOLTiPr1oqJOhUPeAtexusZYfODv/LsrfnO /LKf7GO2NenTjwc9XdNZT4a+OmnZhh3p6WnkcMlrt/VzQlidjLDToAf5Ey7Q c+dcXEuWaxFEjN2T7/wpQRlhtgGyfsxdfhkABHGFvYKMxKvxeeKaWnB7YijX sN1pJDdbt5ekxzWzmVxpbVtsF3KoMHGfJSn9a/ugZgbqqT2PYGC6Nokm+PX5 uTI3DblxjWZdKe/OAjCZs9e/SBirT91KL477fy4ODyBq1lh2XlPKFydhYArn pA23cq4zl90a9PZXQ7jLj4g/jXF31aIzM0LJI5CdE3+Tskvr3F/lUcOyXOR3 6WOAPWWjhD0lP3x3XbfHBKrf/G/ermW5KipdjZMKFYhzkCu0ubE8rHvREpYA GuTaFz6kDxG2GRoYIqwkoEj5FWnp4RUdDPQa8Tx5yt6XrPHkjbeR+LwaVKQ2 IDBRDr08ETbiDXGWRBQYIkxR+dNC7plrxbszSUcbc4TBvrvl1KqJY9+ZMHvR koQN2/f/8kdRGTvHLVLw7B3J+LwF27BsyYemncBGnYoHvAWvIlJynIPl4el3 Fbo1pxDSIh6vHfiL/w81igoZYRevFMsWykzkZdXDLgtshGSES/YtaM36jPGp Lqn5+uz+DqjDnyv6s9dPj+RLIi/AtndKerYORXSBrN4XrJK5oN6zBPRQcY9z liSYWPSHiyV2ZfUbj9k+MO2wRyVOOmDkHJbPj5wvuCdstd7+bUbzADSrm1vi qFlXyttBE9nm0Y945eOrVtep8vCSFoQxcMRqjbVawUcYmOke0lrWUM4tG9mt QR2HW3ktlyEIuveIkeg65azUn9HZ+9WUfsARsKcclLCn9lSjwJFMtrHOclsd UuCjQgXj3KJEjTPCJvPP77eVtARQINe+8CN9iLDZXHwoYdCgkekQuykIKFI+ RXr/+ipbu0v+bZNL23vbLjv7OIo9TQ0qUhsQmCiJPp4IE/GGOEsqigwRtuK0 Me5tHeIBbWSEwb6LQWpG2NaRTIC3YO+U5Uf0WHdeyk06gIk6lQJ4C1zKi8+m frt82eeLZr5Hjhcf9npMVGTks21eWJCmyI8qUnKcwzrlgmXqyDYbNHsUuKJC Rtj558N2QPatnXHhD7H0ff+PzhZz7pQ3I2ydm8YaAYC6UT/gczy4tfL5AJbI yQwZlLR3ZJ89FvbjbA9uretZn/52YTM1PLN32OMOKsXZiNi6qJGEzUnjKdMj XUpjtTHfCu04VF6ye1iYIajKpAMoVremXSl1REsIpbdXtg2gC/wqy9KGhBJV eOokcQQfYWANtzIOXirBI3X2LuS2Br3CrQnnq4P1LqbslG5GuduzRye1cniH 6hwe1C1gT51Ab0/pQWyCN6noHh2Ihsnio0IF43gkR52McEHmyEe8N6BKtn3h Qc4QYUANQJHyKFL2vHv+nagH+YtbU5dGtIWoQUVqAwITJdHHE2Ei3hBnSUWh IcJmF2Mlva1DPIBzRhjsu7RvkpYRpvoyCfQWmKBD0EFmfjBRp1IAb4GNc4kR IVyopCBSctQMlg+Nacz5JmWaWeGD4hlhckwVe0qCgWjYbsM1PBPCJIUZCzpU YW43uPO4/fmMfHrOCBceXN33ceZhjaHPxB+GdDAgC/aIGQt1J22UYqyYIjol 7d2JlU87rw6T+ez8XnRpnR/RI+k3+fqUuwxJHLMk9JgM8jYM7Ydm8iR66Qox 4R0CySJAg7wWNGzYBlFzXWHVES1h7B5YgwiN2XmHCmmNRNT4LA25pRT4CANr klTEql8lXMB5ncrs7sI93Wkkus/Ixa9wncbWvqlR7DY5a8KaWeOg0oBRnQL2 1BnU9pTEerbdSDz12gFhL8f6eUSbWvioUMGYjixpxv0JhPc3lgzVZtZrA6pk 2xce5AwRBtQBFKkHTObdg0LslxLSENW2ZW0g6oUnF8h6FhINKlIGCEyURA9P hIl4Q5wlDcWGCLuYy0wwp/awA9+MMNh3qd8kLSN8dn1HdzfmCibokD923IyN OpUGeAtsTOVF1qm6OScPf9q9PmETEqWSoSIlR71gmamxtMmG7HEMmKN0Rrh0 Txx3HIOMshm1KD65dfRTzDhpY/OI+LTsEqvAucsIm+7kpc4Z3OJh5t/q9nw3 PU/qMlb5zL46FP6eGPvOWEyYszwLje+oOCdj2zFSJdlws+2dYgcluMqE3n9j N1GvM+wLJK2H7m0c50lrVZYdmRJB/0ON6rOP8rdtKd81/WGD0I5DZce/esmA 7FlIyD4hIgwiXqgiWgIha4arkS/w8uJeBMbNKDyBjTAwlXjsLkxicAygaoYk yJnyRE1UYSlDPAvXKaztmwxEi5d33pQlg84emr671igN2FNnkNtTs73bucDR XfTBbdb4JDlgo0JFwL5n64tT5Ngsm4vpAwO8WaAr3754Rs4QYUAlQJF6gKsT hBy6YXtcCEZga1GR2oHAREn08ER4iDfEWRJRbIiwfYgJm7ZLj2Mq4VrJCIN9 F46kjDBzsF2gJmGdrUbgG+OhTiUC3oJL6OZdhLLJULGSU3RsPDPglVAwWLbP YbF9EZomZhijbEaYOvPOgPsBYYb7hQeXTor8f0x5QEjHQbPX7Nw8sT33cV5e vX9v0uzRHeownwwO6xj73aEb0ospVD+zrwrOkuZdtNHUguOaGolnRx2XdsZB lfIt7nE2UkvfZqZ4oByoTSZwub8me2nc2jK5oe2/t12UKeSFFaYvGzP1s+NC kgPW8cEuh4xLh+2NULVhGgKnykAyNA4mlp2xhrR1WyRd1aC+xEQYmPMpBqJ5 rwxJwY1jAVXYgAP3pN8Rt7rMUHXo8gLc4l87RWdmhPpb/Md+KXL3KJzqIf39 392APn3iI4A9dQVye2pmD8YN8h+89mSJx6VqOrWGdKz9iOFpKAI7TFSoKJxj JXnakgdq7IWR6Jz4m3dsJAr74hk5Q4QBlQBF6gHufpSQiJU19cz46MTv7st7 HE0qUjsQmCiJHp4IB/GGOEsqyg0R/nvr+w61ZMSjxKJsLN+CGe+MMNh3aUjI CDPJO8GvmlGAKPrn4KBOJQPegktYEw0UTIaKlRz7CGz7XykTQv6zbfIj3PUu dxwD9iiaES47uoKdQBV6XgAbTHeupK/6eHjHpsFGgp/AGuGvv7Noq5xcsP2L 1T2zrwqmM993C/b3+AbVw9i4VSJ2zpML2GOkCDdlipVHv+rQgIg/6VE2Kv5Z F0M3ULEsw4mHFOmd5zDyst67iWtetUlvEDF2Tz6i76GbPLNgsiTsKR5BvWfJ nhzCxbqPStR9fNFpRONqKJhSPRlJCm+himgJhHSlDMS7/7cwDNUkNfWRLwym ioLjaV/OnNAv+tlGQUS1Js/0HPnB6v/mMgqivLSUV/k5DbeyWMP9iQvH9H05 rLY/EfhYy+jek5auP3bD0wLj7lTIi1gf3EyMsetCMVOB/r6YOKB11cBqUbM3 8e5sFGfvT1q+7JuDubIMrcl8Ji7GcpNB//nsitzKZOfyMIzbl2EP2FNXKGJP K39ayOwr+vmHDZqxM/eu64CS7q9uJLpOOYvEXmvTnjoIp0InZymozSvpDpJ8 E4PCvngChghrAlCkgq8mJCPM2s8xEp2m/C7T/dCmIqWBwERJ9PBEOIRaEGdJ Rakhwg5HpK3vAdu0OAnOGWGw79KQkBEuyY1raLsvgV0CmLOZKE6AgreACHxs K3vGloLJUPGS41i0E0hMO4J0T96Krw0RNiuaEea4Foj0pJcouXr20Ka1n82c Mvi5+pyX9WjDniMnzF66ZvP+/+XdU6B+Qp0z+wCeOFTC1Kyx7LwLh490h/z5 NZVtwhSJImclKstTegSzF0edRk8+auvt0HbePpS94lndTqzYHLPbZ+La1bSt l38nnEOsbi4vf83iNCCZSMKGdQxQk+kexUVLMFTbnMaNGhFVcG11xYdMYSjN +Sn+laeDLOuuZmiv9+cl70xPS0mKtfyXwIc6L8ooKis5NH9wi4cNxlYdN+d5 vDR7uNWK01dSP+1ez99Yr+mg6Z8mp5LXnPZyU6PFgQsNn53hNq5nnVghZBYZ cjxAPyJq6WGBLjvVeEdQ8eHV/UOpikB5XddM2SndLK+mZp1FZ1DoH6Z+kgLF Tq9vAvbUHUrY0/vXV0XU5Fy1Zv3XPtmYW8xVAeUlB6fFVCX3Pdon5aCx11q1 p/cuLwjj1EyGTNumRMBk3bwSs9nLBY2JQWFfPOE8RDh6SrbOo3lNAorUDTIz wgjG4WlVkdqAwEQ5dPBEWIRaEGdJQ7EhwvnfvF2L4IIqlFMInDPCYN+lISEj XLB/qFjTzz4YG0ws+kNWCgO8BVTgY1uZPuRKJkOlSA7VhY9F3UkbEQ9/Zoq1 bMvKB3JwSmWE2VPdEepJb+NujrBSqHNmH8CTK+xNLSPxaryLWRikhBiJp147 wCeH7M4qaGeF09zPW+Aw7t0G+lIQxyyJ1Rm+/9f2Qc0MNvs1eFse0q+kxwc3 HL8OebEou7AfzSBFdVFctARje5OCVgSeSBcGkyl3w4ftrV2Ngju9kXqRteTK i0/O6xfoRwz+IDbcdnXPTi8z3CrAL7p3lzoBRLt3l2cVsSzQvZspr1uXW42Q 2EM3XF+Ftd0hK2K9dWoKy/0ToU+YfQP+4kPmkeUER/SBR6JV/D40DjS79Fcd r0OvgD11hzL2lF02bye4dZf5adl0E+mSgt3vkelgY6tOyReQPZJ27en11W88 xF7pSgzZyT8xtVkAEUSM2CneQUJnYtDYF/c4DxHW9MwdHQOKVODVRGaEETQ/ 1K4ipYDARDl08EQ4hFoQZ0m6UaWGCJv+2N4nkHtdMWlx74B3RhjsuxREZ4TZ 9WOSMsKyBymCt4AKXGwrU2thkaiYnYolyaVJjmOw3KBl0iWU6o87PYFQcFox TiiUEWZ31CcJrjLpgOigHkNUzgirdGYfwBLGc7YSk3TO+TNUb0YhZ0lYIzCU mUTJlKixsayR5zZcQe2nOlbv+BGd52z5qHNV2//fePLG22i/s/jykohaCo1B Z7si0UnnkV9faRQXLcHY36R2t38lCoPJlLP6rQbWsCS48zuZhU5PX3p3XTfW HrnnoUvMcCvqw1UGff3zHaeP09M/CYOhzYD9Lqd4cE69SR1VU1l+cEIbifqE 2TfwN45O8tRWhu39ypjDZfV83L8QCXCjNmsnt/DkAkQX9yXAnrpFMXtamLGg QxWnhyCbSM9MTl41/OlahJ9fq+HxmQUoN240bE+dDlY3it2GMsLIPzmzTS2J m5wITQwq++IexyHCfsSYfdrMW+gdUKRu4Z6DE3JuhbNBIfvUj4YVqRUITJRD B0/k/VAL4iypcZYiQ4RJ74jb1oYgQkeuyJU7jl1h8M4Ig32XgoQzwidWPk2I /BPu3sLw9Ltybhm8BVTgYludJhoohETJcWrvHzJuXSGqFV9ZljYk1EGnRKz6 FdHV8QV9RthUeWXrRxHsHyqoyuDvzuijX5fKGWF1zuwDOOLQC6V2/YRLTsbB ZN43ohHxiLAW+kzDEyVcR+cRG9Tal3QUhRfHLInli6pVs4VEwV0nHkPSP4hF zqevBCI898eFaVei0WWurGiJgNbPSk5gVBppwnAlaaR1j8JTpRxrTqWBaN4r w8MeOzvw8ZA+YFXn9ki+5PIj5+d1ZsylpFQmp7pM5Hkx9r4BTw05M1JHhvd7 9eCox/0tb6xfCoJ6dTu7B1bn6DrZZ398EbCnHlDSnhZn7ZoaVd/o/CwWhVC3 xQe7bOeF0aFpe+p4sBrdHLSyM7tGtyLTwZHzM4rEv3OUJgadfXGN8xBhqKLB FlCk7jk7J8p+Jf6dGaf+mTJP/WhakZJAYKIYOngi74daEGeJvk0a5EOETQW/ LullO+lpw3XGHzfwzgiDfZf3RUKzDFIGRnAfR2bqB7wFVOBiW9kTDZRMhkqW HKpvpxKrvjB1enMHleL1n0MVEGeEy4uPLhjSkL37U7POiI06SQebVc4Iq3Vm H8ARjrF20+Iyd/urln/qPiNXSJ8FJvpQRG6dNYmFtnFpEvYe+XF2zOxLUonu 9BfTBwa4SSLIp/T2yrb+9M1rdN9SYdESjlU/8/etwhdJwlB6eEUHA+3J9lx3 zq2MMsW0fDMIWK5g7ZFrbrhfwrZkpfsL2odGWRG3se9wxlB8aRmzb8BbQ856 5PClv4i6SZria6uiH1Oi1Q97wA31sice0qh8ew+wpx5Q2p7eLzy6clJ4oIsv qBY5KOn0TRTPYEP79jQ/edwT7J+g7uOLTsvc7qy8snV+dE1/Iii4/8qfJIgQ YhOD0L64xHmIcLfpFzDcLAXMoEg9QpokekHxD8r80/G0lKyMsPYVKQQmyqH5 J8Ih1II4SxoPbq18HuUQ4dLsH98NdzodPGDGYfzTwWbsM8Jg32V9kUYywuAt oAMT28o0VVM0GSpPcmwFWrYfrm6TOZly2xG76mzGd4hGLzCnUGWb6aJjW6Zw zwIYmz+/6IgemkXbUfW0jlpn9gEc4RprF+0jqCY/foJHz7MLyGX3E3Mme06k gyZBP8XDjsm8vW81whklKgNN5p/fb+s2iSAfJnjU7L6lwqIlHEo/a7ePmRRh uHMurqVthFPEqGMl7j/JCsY9zyBgDbciJh70cEW7QfTkQl9e/lqg/aE83yGX wj2fRdewFeBK6DTCHm7FV0POfmQJBa6mOxcT+1MV5ugDc2fVKrO/ky8C9tQD itpTU0XBofUTOzYNNhIhzZ+qG+D0LYEBMTPX/l6M6AXqwJ6y+lLSTxL6TPxh iZFU6bWsNcMjgqkT2Rm5UqpzUZsYtPbFGdYRLffrHcAEUKQeL3hiehS9BPhm 1pyf19kYWC2ItQUjKyOsA0UKgYliaP6JMAi1IM4S9T0Ml7b35upX6UOE7xce XPJO26rcy/kRER9uuIB5s2g7mGeEwb5LQHMZYfAW0IGFbWUmGiicDJUpOSbz 2fm9WMXmljg3bFLqWYmmxWTK3fBhe2v38NBR3349opHdJPhEDq78XkrvOlzV xjcGwpkHd7P3bJj1ytNB7OPbaKeDmSoKjqd9OXNCv+hnGwUR1Zo803PkB6v/ y9rcKC8tVUEFFZ2ZEerPeVuo+0NyUOvMPoAjFf+si2H0nLPHW5Ie14wwVB26 vECw5LPLP/puuo7ybh09JYPxqS6p+QoaNMfaDOtijFx0QHAYJBhblb5Ca9B0 ZImtI5S3fQAZKChawqEiUy0395AgDNdXv/GQ7U+iVp328Cd3171Nf44vGLcd SjUQDSK33Hb/ObaOqhmS4M4SPriZ0p/pxyWofLfiwdnE92yHCqX6eMxJMT53 ju39en5kF39bkb8vafi/7RXmnrrJSSH/xNRmjlm0RrN266bvikqAPfWIQvbU dOP3r8l0JGEMfTZ2+6mSCjI7POE5F02kg9v2WZ2F4LCwPuwpmRRe804LzvCd mj3/b2OumLy56c6VtEWTIv8fGbPU7T4q9aLEcAy5iUFsXxygezVwkH4cCVAe UKSeuHN+wbO0dxE2J83ddUx/bO9Ti3hjzmx2C005GWF9KFIITBRB+0+EQ6gF cZYUTOYzcTEcBStJDktvnN+/Zl7fZo7q2tg8In6vpMI5b4F5RhjsuwS0lhEG bwEZ8m0rknyZ04FESzi5P3HhmL4vh9X2JwIfaxnde9LS9cduyM3xIZAcpwpq y5Js9+7nYu+tOPvAp/1bk3lMW0WQ6fjKZ2yXlF50hCum4psXcq2c+zVzT0bq 2hWxvblpXIpH6w1Z8n364ZM5uW7JOfW/jLQfkr+YHzt8YJvH/B0uENy6y/w0 ZNPBSnN+iqfSzTVDe70/L3lnelpKUqzlvwQ+1HlRRlFZyaH5g1s8bDC26rg5 D81XMi+KfNQ/ju1PT9/+/aq4aT2bOtkCC4HBkW9N/ywpJS09LfM0651duy3z xL9KZ/YBXLm8uJc781R2ZtvAkCpEk+c2XBEh82zdGzJzF0rnsSQ3riFrUYgc QyMBZ8esztDFuQpUddIDehRbg8wy9yPG7PNepxJ5KChawrmROdJoIMIGHLjn la9HgGhhYBcp8XU1PzSmsfVzfME4s5b5enWyV73ndhn5J2e2qWl/tIgPPB0J LD67Zx6rwKxa5MAN2XclOIrs4VY85Rws75d45eOrvOL74K88ixO1e2vSp3OH Pe8ivWVs/uIHCd/v++W3vDuiHebSwqu0i7V947IPR3eo4+hfkQTV7Dnnq50Z Px7Ltjobl/5EPoxVf4A99YAS9tTyVoc1IS8b3Hnc/nzWQnB5LoPsGdV0mezi fn3YU4qiI+uGcYOO4NY9PkjccbbI41uq+Cf/xL6E6ZTqMBB1mr21ek+B5C1O 5CYGqX1hgrUzv+xPz9ic8MnETk1dKOSGrcf+3+rNu9LTfzqSbY/RQG3iAShS Huzuk5sTfKU5/53atnrD8WtvsIcqyutgpg9FCoGJImj/ibwfakGcJWQ1WkIt 1k5s2qZvPx4W7RgSBRD9P9vK2X11zYWsgxnp279LWDh3bM/n6jr2BSWImvWG LNue+7fW0lnYZ4TBvotGaxlh8BaQIc+2IsuXsQ8krjh9JfXT7vX8jfWaDpr+ aXIqec1pL5NxljE0fLa0xlM20EiOqSJ/b0Lfx9mGwRL5Nh0cn3Dg3E2eTBx5 pjV57pCX6lr/mq5dp95NZVnakFDyv/JOQ9AgLvvto8Tv4Ubdhy394egNVPVV rBPcwZ3e4JS4lxefnNcv0I8Y/EFsuO37B6WiOdWN4kXJts6qndkHsOXWqSm2 GCRk2jZa+i2qL315d4vqk9Awn3HIjUTk+NMIhxSw2/j4ETErf1G6xpLrmBkM z76+X4mZL0VZU+oQsipaPcNe5pqeFa6caAnG2isS37CIH/HCcPf7cQ8Tttce PSXbw6oTvv9wflMX27ry3FyatepJ7yvpmqfPmm788eV/Wtv3H+gt+kMncy5c KiotL8rLzTl1ZFPCJ5O6sarUatZ/bdHWPKnRFjPcirecg/XI/GWK5X+ve9lx 5pRbN0Dgvoedv8/MqO8qBcz3PTBZmB+wp+5Bbk+tSXbybQd3nXjM1Yy30rzj S/q35pakGg2dJpySs8msG3tqw3QnL3WOJYTnrvfA6uF9hsYu+MISm2dQtbtU PvSrpbPHvxkTavspa4b2mrFCZhU3ehOD0L5I05YsUMWMgCxAkfJhb7ZAHn8Y syD1+B9FlicxlRedP7Hjk0mR/48IHbki9z53W1hOzKIbRQqBiQJo/olwCLUg zuK9dMW9lF6O7T6UIKR9vw8Sd2gvF0yBfUYY7LtoxGeEK39a+AQh7k8cMsLS T8WCt4AO6bYVab6M1d7fL7p3lzoBRLt3l2cVsUT93s2U160tKeSUYSCVHNOd C5s+HOQYLFvUe5uXh0z7aNV3O9J//G/Weaa4aPnCuWP7dAy1l6bXrN9/7prj DvHypb1v1g7gnYagRRTJCAc+1vKFboMnTV/23Q/HryI1qKyT4MGd38l01rql d9d1Y3kL6JL4WGSE1TqzD+CMfVuVOoq+6OPpg18g5/FJntB9dFIrWkL5ylxF wS4TbTx5423l/dLceZ1sX2ggGvw74ZwiC8E2kM5IdJryuxJDhO9kTalBPYWx 2phvXW2cawaFREvkDfj7v7tBq/0UxApDZdn2fszQB54QmxU6ef6k8ObSrFUv rKax4n7O1sX9XLba4GKs12yQs28mCma4lYEIjdl5x9NnmUcWUqYoIiNsDBn7 rbh4sejYeOe2LbzUJhb9plWpVxOwp+5AbE+LLy+JqEle6smoLdfdvxZT5ZUd jgohJumc9O/VkT1lU/rnme2fTOrckF9zUgQ/HYMmOlDAxKC0L9K0pR1Qm9gA ipQfU0XB4U1zh3YPDeRIcXDrrrM3Hb1jfTTW3oW8LU0dKVIITJCj+SfCINSC OIv/4qWFiS8J9XnEUeOJ8I7WjesN2zLP8x0iwxz8M8Jg38UiOiNsMjPtQSRm hKXPmABvAfENiLetaPNlTKKW+nCVQV//fMfp46ZTa9pb5c3QZsB+aYcWFZCc 0munUuZNFB4sWwh5vtd7X6Scuula/ktzD61PP3VPm+VCuuFK0kireHuaymfL 1xA6PEir1pl9AHNKr2Wt/3BYxBO0fgtu8cKI+dJ9eFYhGcpBCTnz6MEuwd1j s1RpJMU4Zso1ijGZ99GT5f38hn+phJ/D/Bx+xPA07ZbWkSgkWkKxldDwlFtj jGhhYLwp/hD7n22TH7F9dnj6XQ+fZDqe1QtPLvD0/fZVzz9Aik3F/dy9KUtn 0FNOGCxBepfeYz/6LHnP//Lku1+s4VY8Z6LZj8xXgQ9oHbCnLkFrT+mJe35E vxT+4TumOxfWv2U9/kbCdwDHI3qypy6ouJ937MfkxXET/9P7hWeeDGY3R/Z7 qFF4RM+h4+ckfHfo7DVkzZAVMDGK2xdAg4AiFcGDv/LIngDp6T8ezMrjTKe6 srin7S0aH534neRmlnpSpBCYIEb7T4RDqAVxFoAGLWSEwb6LQ/wZYdZKFLy+ mHNnsubigbeADKm2FXG+jC0YfkTU0sOua2bu5y2wddnukXxJ1A1TKCg5HoJl ggh5qv0LvQZM/Ghh0tY9iI+yAgpQenhFBwMtJz3XnXP7exXsHyrYG9EWKp3Z B3wNp7PnCDCZt/etZrEyCGd580I7Zm7maqGBFQYqNFTC1nDJQIT1yvBYXqsB lBAtwZiOr3zG+t3a7QMpUhhM5uz1L9odPL5dBVvpI1+wUHp7ZVuqD6eR6Db9 ggehr/hnXQxzWIVngJTqsIuHebzrB/mLW9se2UudggCtAvbUGfrYiJg2UKV/ bR9k9Wbl7Rbqyp56HwVMjF7sC4AYUKQosOVcSOTsZ+pKkUJgghQdPJH3Qy29 2EGIs7yPFjLCYN/FISEjzM7ieZ42bud25ki7WoOwi0KD3gL6fBnrQGLtkWtu uF9btibqEhNwupIcQCHunItrGUB7DhGjjpW4/yRLbrVbr+gC1c7sA77H2TlR AkMboVDRjYQ5jDIgHTMDEbnogAf1IBN2tVj7Vb+h/wKWC9do1m4dnPRHL1qC uby4l1VVIpsdoDbihYEVjPOF2MKDcaYPp7H61K2eGqUzJamWAIRYlI3Xa2eG W/HO2GU1eVOo8APQMWBPHaEDT5EB9cX0gZTXL1mH686eeh30JkYv9gVADihS uXA6uEZskfzQulOkEJggRPNPhEOopRc7CHGW99FERhjsuygkZITZpSPBxKI/ BOTnmBShkXh21HFpRRrgLaBDim1VIF/GOpBITDzoSdJtGWHBUspGd5IDKAHd cc5K1KrTSCYeagy1zuwDvsi5lK4EYrHJy0hIPqHqQfUHv6YvTzlYpKQDfP2L fvZQLDrpPPLrl+6JewLXQE8iCoiWIGhnmH+SEbZIEAbWzDi+ruZMMM7dfzBV Xjm04/A1VstcpmqUpwri7vfjHqY/aKg6dHkBVvLL3hrl8+rLd023PQi3MrMk PzN9X57kxouAjwD2lIN9oJXIWUj2MkipW806tKfeBr2J0Yd9AZQAFKlMWDmX upM2it2fs6NDRQqBCSq0/0RYhFr6sIMQZ+GARjLCYN/FfI34jDCnvbyQocDs 0cPSZ0yAt4AMSbZViXzZ3mGP07LXIHLLbd4btlIzJIF/QhQHHUoOgJyiMzNC /WkZ4xvtzYyl8Cy3mkOtM/uAL1JZljYklHIDiO4zcj3Vp/o0tsUl0L8SCfMr 4BfoScZbovUnfSqNeOXjq1p8k5KEgR1iN/p4nwf1z27txeklaK0/51Q7sHYq PMl8xb2UXrZLBhOzj/8j6I5Vg6mr529QxlS5c31a6qVJnq0D+ApgTx04v6kL +Tb8jaOTROkFa0M2qe3LdGlPvQ16E6MP+wIoAShSl5Tk71s5d+KE95fvzfY8 H/zW2rcCaE+mxrLzUjWgLhUpBCao0PoTYRJq6cMOQpyFA3QHcuyXJNh34UjK CNt7DhPCzrAwhS6Sp7iCt4AQCbZViXxZSW5cQ5tYeM4rMZ8U3Kjcji4lB0AN qyLOSERPyfZQyCBcbrWGSmf2AV/F1m8cyygDExiXjC9qk0bu9lepSwcS047o 5yfwimjZw3DP0Tq+SBEGdoUnT5159pxI+64Cu5uQi2CcJfYeZJ75lQmi8eSN tzFz51jbMnzeNVPl7tg3idzBaNYrA8YxAHyAPeVAt7gR3YjMOoCPz+13h07t qVdRwMTowr4ACgGK1BGT+ef3bZmUIGLMHvfnoe7/uTicTgg3it0mfTNAp4oU AhMkaP6JMAm1dGEHIc7ChKLj279cvmLzrze9fSM8gH0XiqSMMMsHEFSOi2CK K3gL6JBgWxXJl9EV3SQ8w1iZhhjiC7l1KjkASirLtverYxNGvnXBapGkVe/U Deqc2Qd8F6Y+R1Z7MT3DKuL1HLVJ4/y8ztSVg/rM11W1pDdEy15+PDz9ripf iBiJwnAna0oNWj49bVNc/3nCE/42z3/AgXvMv5ApmKdeO8D+kVgj7N2+TFZ1 n6F17/Rb2Nlephydb5hpSXqcbfACtx0cOQ6sSrUx33pqEAcAFGBPuZyMbSc6 1rt3eUGYvyVa7ZcixZHVrT31LshNjC7sC6AUoEgd4BSmeurD//fODxugWDK6 VaQQmKBA60+ES6ilCzsIcRYgDrDvApGWEWZ6CAtI8lIBl5VWCzOlKRfwFhAi 2rYqky8T3lyaVRHkaO940a3kAAhh+V2EHzFmn6eF+M+2yY/YPqtR79Q16pzZ B3wce4mOnA5jOoZlQAnkGeGCzJGU8tJlqaTKokWXH0ttN+p1JAuDybxvRCPr X7qfAlN8bW3/Zga7TWUXcpMRgTFk2jYHybaXHbqrDyxMnd6ccgLrNow/jl9t N1OOTr4ZotOU3905nFcPjnrc1nKHIMKX/sL809n1HQmpnZQAHwTsKZuL6QPJ JWg0dJpwSliceHn5a4GW8LD3rGwJllbf9tSLKGBiNG9fAEUBRcqG7ghKr60e 69y0gqRTUbKXjL4VKQQmMtH6E+EUamneDkKcBUgA7LsQpGaEzXfOxbUMoDRQ z3XnPGUPfphez3p9Q5sB+6VpF/AWECLBtiqTL2OaS/ONhmfNreapCHJE35ID oMFkzl7/IkEIlEZrizlCw96pO9Q5sw/4OCbzmThan0O1nhOcPlEE2oww682H jFtXqD+nWGXRoocZSW036l3kCYPp9PpO1LM7HPWloPYogp6MerY+5baxy7NL 98Q94efKH6NHk7h+n2W/pvQJorYpmszJdN/D0Isww62o+2yRdNVVYJR/cmab WsYnIzvUpz/KLv4nDzlK7qQE+CBgT7nc2jK5ofVthL69LLvYYwW6qfLK1o8i AgzGVp2SL4i3s7q3p14FvYnRun0BFAUUKReq30Lw09HvfflDnqtclOnOxUQy FSV7yehekUJgIhNNPxFuoZbW7SDEWYAEwL4LoCxrfVd7DUVwlUkHRGiAsuNf vWSwLskG/0445yaeYkrIpKoX8BbQItq2KpMvY0oQjUS36Rc8/KzsFrUEEbHq VyE3Td24ziUHQATrELqRiBx/2sMMMrLZiL+gT2oNdc7sAwBTTgaFOo4omRGm a88MxJNRW65j1wkKDSqKlrYnW8kUBpPp/JL+pFvmR0QtPcw2g8VZu6ZG1TfW bfFBxoW/Dyxo7mAriy8viagVOHR5gSt/rGTfgtbWa/ZI+o2xQKaK/PTl3a3F 3sawTst+wXKbgmMWaUJHrsjlbqUWHdvybttaBjIDVX5+Pt2+xl7DT4VjUatO a0+cAC8C9pRL4Z7PomuQ6iI4/JXPfswucalqLh5fMzq6jj8R3OmN1IuSjKwv 2FMvooCJ0bR9ARQHFCmbS3vfrO1vbNUlIctpTKSpouBQ8uh/10SzZHxBkUJg IgNtPxF+oZam7SDEWYBEwL5zqTj+3bjRY2nGvN3/hX/XDeAuLb+HGrXvOniU 7TNj3/5431UPF7RFXgaXbkNpzn+ntq0pt9oEvAWkSLCtiuTLio6Np/tcGKtP 3eqpnTO7IuhRYlG24MyuL0gOgIKybZPtGpAzbMIZ5ngsV25NlVcO7Th8DfHQ TzVR48w+AFgpPbS4tVWAJHZr1DG3j42valtetesnXEJkucpLdgy0zqcIIAZv y0NzTSxRTbTo6Rt8XVNwBIkwlBcfXTCkoZF8A+1GxifvzEhdu2LWkJfq+hN1 u4/Z8sddUnAry36eEVPV+pYipny5c2vyzJebGjycyKNP7RFEYNWodyzXTE9L +Xr2gOeDLVcIDIiZvvp0Eb6OHGu4FdG4Zatgq38bEj08PjElLd32cgL8Wg2P zyywPj7d7c0SH4VN+jo1NemTvv/yC+4emwUVVoBIwJ46UHota/0Hg1pY2yOG PP/K2DkLEjbsSLew/buEhXPH9nyubhXC2LD12K/2FEg7c+Qz9tSbIDcxWrYv gAqAImVTdmbX6Fa1iMDq4X3fnr10zeZd6elpPyR/8X+Tuj0dZHFvatbvP3eN 3CXjM4oUAhPJaPiJ8Ay1tGwHIc4CJAP2nQ2V+KjWpHWkADq0+JfR8zRzK6W5 mUuHRFg1SY3w18fNt6/Kod1DrSc7Q/u8v5lSWRIAbwE1EmyrIvmy25kjbRf1 LGP2qQcEYajq5miJC3xGcgD5lO+abpMxnkoJdn1a303XmX+w1i1EJ7mZtoM/ KpzZBwA7JvPZ+b2owlfPUyd8kCvffRjTsLqxXrNBX/5Uguia9l6ajSdvvK3v dhnqiBatBg1Ek5idWquJQSgMxdkHEqaP6hH+ZLDRElk803PkB6v3cQ/lmSry D2yIff3lsNr+xnpNuo/6gPdEHpnNiZvQz1qwalkFka8MmLYk6cBFqUGEOjDD raztca5WFBxP+3LmhH7RzzYKspbatuv02uT4TSeucRJQ9wuPfrtweNf2ls8E N2k7OH7t75773AKAS8CeuqL0xvl967+YPX5ozxeiWta2Hn6p16xDlz5vfRCX uPvoDRn9J33Innob5CZGk/YFUAdQpA7cLzy17evZ44b2jLJ6MgQR8tTzPYdN nv/1plM3EexU+pAihcBEGlp+IpxDLU3aQYizADmAfVcBU3nhb4fWfzJjcLeO 4Q2r28Ku3mPnfpF6+pqcrv/gLSBGkm1VJF/Gygh7aoxZcS+ll+2SYg5Q+5Dk AHLhdGr1XJ+QPSfSLo2L/mCWAiX5s0+UK3+3yqDCmX0AYPPg1rqe9a1n0psu g3I9Rbl6cBTZDMpofHHUUU8VXXpBBdG6kzWlBqHJJgm+JgzqULB/KG0U+Uqq AEAJwJ6qBqhQANAroEhVw9cUKQQmEtDuE/maeKsAxFmATMC+axRfU6eYegvK 5MseFCx+mj8jbDq1pr3tq0Xkdn1NcgCZ0OuCT8LpqeiE8/xccnz2U68d0FpL Gwalz+wDgDP5J6Y2Iws+g7tOPAaKWiHsfkWT9kk5PuMAKy1a5zd1sdbvDdpx nf/D+OCbwqA8lT8tfEJY2SQAKAXYUxUAFQoA+gYUqQr4piKFwEQsGn0i3xRv hYE4C0AA2HfN4ZvqFE9vQYl8mcm8e1AIdc3h6XddX7CyLG1IKHVBQ+ve6beE qX/flBxADibzvhGNqMKzRyd+d9/lZ+hpFBR+xCsfX7UnQ+9dXhBmDJm2TcPS pvCZfQBwSdmZbQNDSKvRcPw6qC5Aj8l88qPOVckZOk3mZN7w9t2oipKiZTJn r3/R4pa0GbD/L7RXVhIfFgalyZkXQ5vFAGLiQVS93gFAHGBPlQVUKAD4AKBI lcWHFSkEJmLQ5hP5sHgrCsRZABLAvmsJH1anOHoLyuTL7IcNWy487PKShanT m1P55boN448Lu2MflhxADqbT6ztZJdz1UV9KvIOejHq2PiXh7IHapXvinvDT eHpU0TP7AOCesl9T+pAjYIjI+RlFIFEIMZlyVr/VwOC71lBB0XpQsG/Nkg0n tPNWfV4YFISexkJodNgZoCfAnioFqFAA8BlAkSqFzytSCExEoLkn8nnxVgqI swB0gH3XBj6vTjH0FhTJlxWdmRFK9nYmoqdkO02bpl+CqNyuz0sOIB2T6fyS /tQg76ilh0tZ/1KctWtqVH1j3RYfZFz4+8CC5tRCiBx/mvpQ8eUlEbUCtd4/ Wbkz+wDAB10HBb4ZUgrT4tr4fHEUiBYFCIOC3MgcaaSLIbU37AzQHaD0lABU KAD4FKBIlQAUqRlES7+AeCsFxFkAUkAJ4w+oUzOGgqpMvqxk34LW1mv2SPqN yQmbKvLTl3cnBwETxrBOy34RKgYgOYAsyouPLhjS0EgKZLuR8ck7M1LXrpg1 5KW6/kTd7mO2/HGXzIBWlv08I6aqVWgjpny58/+zd+4BNtXr/197z1CNGaJ+ mOQyEhk6xdCJmel0GCWRXJKQgxMRxYkoRFPDl5RLQiOayqWM3NPMyKXDOEIY xRTGbciM20gzYm57/fbea1/W2td13fvzWfv9+qvG3muvy7Oe2+f5PM/aFZOf aGpo2WHFSYo7RnNosmcfAHGU5n7/WtxdTCQzfAu0twpUHljSXqIB1SsQLQiD pvCHWyWlHQv26QAApacyUKEAhCBQpOoCReoAoqU/IN7agTgLqA6UMMlAnTog TlC1WC8zVZ5d+058VYaJqJb4ivmYmRnpn03p82iU+QgRVZMmLj5cJHYfIiQH qEJx7o7UicOejrs/yshUb/Jw16FvLt6WW8KvZzBVFOxYOeH5J2JrhxvrNeky 7M2Np6hfDrag+p59ACRRUrAtbc43v6DYQAVMp7JTFy8Xb0B1TmiLFoRBU5zD rWows3JJqOAEINSVnrpAhQIQokCRqgcUqQCIlr6AeGsH4iygCVDCpAJ1KoA8 QdVivaz0fM7y5Fd7Pfa3ulUZY71mCc/0GT8nbcep65KEAJIDgELU3bMPAAAA 6Jvv+t7JcL1xEkfl6KI6DAAAAAAAAACCC+IsAAAAAADNUW/PPgAAAKB7CtZM jb/bEN2u24d7UC4FAAAAAAAAACqAOAsAAAAAIDCosmcfAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAEjlt/5OedKLxhkvFVU/GlkydPF5Wpfk4AAAAkAmUOAAAAAL/A YQAAAMABiwAAAAAAEFqY2MNLHmGYwZnXZXz5xqqRzG2GeXmqnxUAAABJQJkD AAAAwC9wGAAAAHDAIgAAAAAAhBo2D7Ddol9kfDlvWgcmCh4gAAAEHShzAAAA APgFDgMAAAAOWAQAAAAAgNCjcPtAxlhj9Fc3pX7RxK7vWYNp0i2rWIvTAgAA IAUocwAAAAD4BQ4DAAAADlgEAAAAAIBQ42b+jGZG5pFh+0slfrE4d1JtI9Nh 3K8VmpwXAAAACUCZAwAAAMAvcBgAAABwwCIAAAAAAIQee8e0ZMKZ0TtLJH3r 5uaJdzNM4/e2mTQ6LQAAAFKAMgcAAACAX+AwAAAA4IBFAAAAAAAINay+nKHa wPmFlaK/c+vS0qS7mSqS/UYAAAAaAWUOAAAAAL/AYQAAAMABiwAAAAAAEHLc ODMjNpypyvRfly/yG2cXv3g3Y2QSR+Xc0vTMAAAAiAbKHAAAAAB+gcMAAACA AxYBAACAcipu5m1d9cmnK/ZdVGQbSn8/smHpR2mZh66Jr1MCAMji8tejajMG pm6TqdkX/X74ataM9lUYSR4jACD4qGGdYZoJB8ocAGpAxAQACB5wGACgBgRx QGNgEQAAACii9I8Ng1tFGhiGMRjaDsyW20Ci7Mi6vtHhjJW2c/fBZwFAW0qv p/eoz1idwCk7zpV5+5ip8uzad+KrWl7wyBc+PFsRyFMEAChADesM00wBUOYA UAEiJuWczewT3ajbf5KXrt2yLzcv7/yVUpcPmMqL8k/m7v1h45cL3h7w+H3D Fl8NynkCQCZwGACgAgRxyoHD4BdYBAAAAAqo3D2nOWOnhmFenryjlK3vVcd+ lDCm9/uFmFUPgNac2znsHmuYEBGZOGpG5q+XBH6yqfzq4e1zB8RHWT5hMD74 5MYCvJYAUIMK1hmmmRagzAEgHkRMijGxh5c8wojFGJvw2a9/BfucASAMOAwA EA+COMXAYRAHLAIAAAC5VHyffLfdkDJdJuXJKxkqv740oarDYem67BgsDQAB oOzI5pdb1nI4w9Gtn+g/bPjoMf95ZfjQXq3uNdr/HtXmmZUnMS8EAJpQwTrD NNMDlDkAhIOISTESErx1uwzbeAq6DgAPwGEAgHAQxCkGDoNYYBEAAADIpPj8 skHt61Sr1fpfb2Xly7cRxbsW97z/TmO9B4ak/lAUcj1NAAgapou/fvZyxzrh XlzkiKjEsfNzikIshgBAB6hhnWGaKQLKHACiQcSkFFEJXmOjViM+3VLotfsh AAAOAwBkgyBOKXAYJACLAAAAAAAQmhTn7kidOOzpuPujuELAsNsat3tySPJ8 19YxAAAACAbKHACgU2wJ3phuI0b06ty64Z38hGX1Jg93Hfpm6nd7L4Z8ahcA kcBhAADoFDgMkoFFAAAAAAAAAAAAAAAAkIEtwdtu0S+2P9z6Iz/PzInCG9i6 AgAAAAAOOAwAAAAAAAAAAAAAAABAKW4JXgAAAAAAV+AwAACAxphMeV9P7XgX 0zHteLBPBbhSvnnibVH39g/FsRFuhLygQhgACC1CXumRDBQyAKEI1DKpQCcL IFdQkeCVCSQcAJogVwkDqFMeRAsqcQ4DJAcAoCvKS3aOT6rGGIwtH/8mH3qN PK4cSW57FxNWpcXIRXk3g30yQQSCykIYAAgloPQIBwoZgFADaplkoJMdEC2o xCV4qQESDgAtEK2EAdSpHdIFlTyHAZIDANANThPQYcXJW8E+G+CFgoOTW9di GCZm6IIQtTsQVAcQBgBCASg9KoBCBiB0gFomH+hklnxBJS/BSxGQcADIh3Ql DKxAnVIgqEQ6DJAcAIAOsJsApl7TeblkmgBg5/TWf9UOV9PumCoKd3/z9vNP xNYON9Zr0mXYpJU/X5J8kJtX9341d3Qv7iDNErr3e++bvddULy6jUVD/PLW0 T6tqEdUTp6wu9HdDinO3p82f9/nOvDKRB1ddGHSDWaoPbF3+/qQhPTu3bngn 46Bmg7jHnxowPnnpd3svir3LuuDKLzMeq29kmPve/o6SNwdYoVHphSwEWufA mGa5lJaWyvhWWektk+qnAoB4oJZpgUCdzAZQLVMgqEQmeFVE0xiQRRjoBcSA gBAoUMLADoEOA7wFAaQ6DFQZYoTeAABXTKbjc3pHmLVYJDNkU77ob5WVlgVU MaipiMpLS4nJiMqgbP+n/zRYIpv7xq66ovBCyov3zhjQKIxpOzRlxaasVRO6 VbNKwogtBeKPUZq75Y3E+sZa9/Z+64MVG7O+mfuf9hZ5UtssyhPUYHNmdjdr FGpgYpI2XfP50XPbB95h/Wyt6NQzYo+vpjDog4qbJ9Z9NPjvltVPB2Yvuv2j f6tbleFjbNRqxIL1eX+GgINjYg9MTLRedBjTeeIpyAktwDrTBlHWOUCmWRwl 547uWv3lh5PH9uvyeFyjOwW6uGaDuCe7j3jng5U/HC4q93Ocs2lDGxqZ0bvk xLMAqIAMtQydHDyI0slsINUyHUGTpwTvrT/yj/y0PTMzM+v7fb+eLqJ55U7r GJBFGOiCXmNAU3lRfp4KnL8C5ylwIIijDaIcBngLbpDrMJBpiH2F3hF3t+ho Dr0/XLnr1xLfJ2wynVj874ZVmAk/0uyNAQC8c3nN2EZWxdBm2rYSv582e9qb Phnx5MM2vzrstsbtnhwyLXXHqeta+S43r+79POWFh+81+/aNJ6wrVny8q1s+ 7FgznAm7vXGXQfN+kFKISxIFn790l3V5J2nhT0ouwZJcvaNK/6+O2A5SuH2g NXQ1tB2Y7V8aLJQdWdc32hiVNDQz315RZmK3DWnMrT51WvqLWoIhTVAJofz6 0gTuVTEyjwzb7zMMu/LpAJuNjmJm/SbhtqklDDqg9MyeGZ2bWvIA5he8c/8p i7/K/vl44Q3nzSy9ej7n+/T3R/Zsfoc9JxDbYe7/zun7vpkOL+9gu1wD06Rb lnI1CgICrDONEGKdA2aafVNy+uDGhe8NfrxpFD8/652oVp2nrPZaAF+8Y3a7 MIapGTnvBCVZXG9cOzan+8MuCWptqXnvP+ZsIyZLQTES1DJ0MhkQopPZwKpl SoImfoLXup2qz+Mx1QSqy1ivee833s/M0+yt0Y6AxIAswkA7+owBK26se66R OAdKAtEPPtrpuX9NmPN55qFTfpYDgFwQxNEIIQ4DvAVPEO0wkGOIzaH3hjmT +z8mNvSObvfs9Ixcb4bgataM9lUMTJ2maecDexkAgIBgyk1/yqororpMyLnh 79PF55f1bxVp8KRKatXvPefbQtXVX8GBdxMddZ4GpknSpqvKDnhx76jocOdp R/IsNV2Ul3w3KNbyKGreOWXvH/KOwT39NrOynUHqleyh3J2JYKYc8LdXh+W6 ZIRFdR6970/Bn/OmcQtQRuapiSfVCDSkCSo5nMt83iZq4caX0/7y8cnK8vSn o2xyHttnh6RrVEMYdIDVebb2bOkxdsWB877f69ITP7zbqamRdj0ghtLry566 267yROxTAGQA60zrW0mCdQ6UafaKpVXa6ncH/LNuuEAYmYi7H+zSZ/Q7M1JX bsj8YU9uXl7esZ+zt2R98+ncKcP6tr7b9umYPpN2X3WN5k3HvnuhTrjl5BNG HaZ7l4stpxFYwsNfWynCqwO+kKCWoZPJgQSdzAZULdMTNNmU4aPJaz4fEh9l DI99fkzq5v/9dtG6dfPW9dwtK9+wTjxhat3bP/WHIrqWrgITA7IIAy3oNgYs vbKwjYsjpTLR7XpMWbULbbTVBUEc0a+VD0hwGOAteIZshyHohpjrUt7773Wr CHWILfSembY2w2voHRYe23/KjgLXhuF2w6qD0BsAfVF8bsPEQa3uCmfCqsS+ mLz/T//f8HKcM3PiLZPQmZq3pxzyFalYqCzb+lKsR1fFgcpdLG5eWMSdnoMw ZnCGIn/F3r6Jh5hrJ5P87f+ylEUZDK26Z16WXglVWZYxIIaJH7aPXw12YOFD 9lvtvytj6fX0Hg2YB5/cWOD664cmtLF7mGpsSJQkqCRR8X2yYymuywqfXcCu 5Yyrabv1xv5zJUu5QmGgH5vHElml32c/ih2wcrNo6xtJ1WiPXPxx+etRtfka r4ZhXl6wz0nHwDrLBdbZiULrHDDT7BEuIH3mIUFqKyysRY8R8zbtzrvmazqV 6drZjFljEv6fOfY0GFt2WHGS9+ErR5Lb2kQuevJmupYFPFD+59EdmTbWf5U6 98O3+zwa5fbaGh94fML8LzdmiiDj2xWp8+bNmT7h5YFd29zvsSycuMFb1CFe LUMnk0boREwsXUGTszzG+MCj7+/0tFuz+PyXvZsZrPc5YXoWRYvCgYsB2VAP A/UdA5ZePce1fD5x6H9ZGd8uTxnRRrgtzkzjfu9+s92a6vfFydy9OzLXf70o +Y1ere51cRPqdhm28RSx80NpA0EcHQbIC6ETxNHkLbAUOAzBMsQeQ++IWq37 j0ndvDv/hq8zMf1ZkL307Y53eQq9Cw5Obq2j0BsA3VD6x/p+zfive8uZ2XI0 jok9+E4nzqNsmbLNvxtcWbb343FDej7ZvrmrD8lHzeb5xbmTarsc3lh9+Bey U+y89k3qHTOo2NpTyLvtR5c/zjBJacf4f3MOPBLRGuLPta+bQ93+69zmTThL nf23yfKPVEElCbvnZhnMkfKLzyeUs+RRu0TGzf1Jxm8pEgbauXYsuUVVORH9 rcvLuta3Ry56LK2/fGhcjLC2XORmFiADWGfZB4R15qPMOgfINHui9HzOkpc7 1uGrnIjIxFEzJPXvKj3x3zfa1LJEpo58yK1L6b2db1a/jQp3MhCJ+ztVIywl R2Z61tIxLOXfscJXqufqC+qecmghSS1DJ5NHSERMLHVBE5fgNTBN2qWd8K7u bFlWS4736bRfiL8oG4GMAdlQDgNDLwb8ri9/IqSBie2WJbX7U8Wt3BVTrasA vOPUbTI1+6ImZxxSIIiDw0BFEEeZt8BS4TAE3hB7Cr3DO437KEtS6+yCAzOf bGrkLwo71tat6DP0BoBOKnfPaS6wtjIbwdkHoEt3I03lRcd+XO2pQNFCVU8m TB4mdn3P6sKjK+tqYpvgwKh5zOBy8/fZcVYHLJIZ/UORpK9aPJPouBWFvD/d urzwUfvAo2dT8iv8/vTtTJdJee4f45U6hw3+RKErKF9Qgw5/gFSrgbt9Vt45 B0hVZSb8KMt5USAMdGNiD0xMNF+3oDmPeE5l9rUFMQZDu4HZlIYuHrHfGReG b0cRuCbAOsM6OwmWdQ6UaXbFZMr7WphdDAuP7Tdpk7xZTvay5Mjub+eWlP04 yb6RR9ziC5U4+4sytgfdcVyuskRG8cFVLzia+InZxgi8I1MtQyeTQwhETCyN QdPFvaNi7xyztcD3p45P62STwHoNU/NoWO8McAzIhmoYGIIxoGsfafmqw9Fq m6fh/77yLA3vF8EgiIPDQEUQR5+3wNLgMATSEHsIvcNaDno366Ss0Lv496VP W0qkLP3D/yz575h454us19AbADopWzfWxdy2mbtf8lt/69LSJGsrIwWz6e37 ONysv0pmxTHXQEAYM3ybvDYZ3ge30bxpriQzuRnnYLg0J/GNJVC9g+n9fiHv 2Zv2L3zYfktcCtvcsN3M4Vs9WDrTnjnN7Mfx0ybLL2oIatBwJnj9NQEzsd/1 i7a9Pg0T1lyR+YMyhYF28tY/a7nHtzWOa9/phZcX75dc3mz3Gy0kfLSfhiJJ UZgOL+/gSeF1TDse7FPTJ7DOsM58gmGdA2WaXSg+t35kh0i+pNWN/c/aQyVK onAuTxvGtO/ePSbMcWTdTjLi9xflaPzeNuU+j3NqAOYFKEGxWoZOJgGdR0ws 5UGTb3i7aOuOWaXR0AM1CXgMyIZmGBiCMaBr/Zgi1XF5zdhGQqtUbeD8QqwJ ywZBHBwGKoI4HXsLbJAdhsAYYtO1k8v/Hc+fN2SMiZvyXa6i0PvCj682sKwv x3V8og7vwHoNvQGgFOEuJJlt6rl+FCq4FgUH3mjm3iSEaTt3n1JfkhvB4Ino 8etk7nC7eCD56XaNIz0ck+JNc45KJIZJXHRYvCgU/m915rHr/L/sHdPSdjtq 10897e9IFX8Vnv3do9G58HEv23H8tsnyh2qCGgz4Cd74RT/7+qize08Y88x7 52TfM7nCQDVHp/K3wRqYmPg1UvMBp9d3d3ydQknzTOn1ZU+ZBdBQo7pLGbD8 lnTAN7DOsM4CgmKdA2Ka+bhnrup2fS0zX4WndmHxi7e5y5hOJxk5+4tyyE/N CbF5F2bLmLRJH6YtGKijlqGTg46uIyaW8qDJD87tUQamnnD7FZEEIQZkQzEM DMEY0LV+TKHqKP1j6eMRAhUfwYzfQ/5EUUJBEAeHgYogTs/eAhtsh0F7Q+we ekd1Grm9QIV3zS4YQs2g09AbAFopL9k1vX/z263jwv/1VpaMtJuqasrecYKP kXnwuR3KUlmmQ0vaeXRWlI9OuHn10Dcf9aonmK1JsbvCt+nNn9h0Se7zvLJv lK1HjdH4/PsFsvW+c8iF2cfos+OG3OOw1Ae2zgSv3wrJ46uftIuiwm1B6ggD RZTkJTcSaggZO6Eq/lqW5AyH/W33oAPr1jCDofULmxePFN4gma2MgX9gnWGd hRBknVU0zTxcWw6GVWkxclHeTXUOzt44MyNWOAZdr5OMXEewqZnBsA4c9N+2 FHhFPbUMnRx0CNLJrNpqmfKgyQ+3Cmc/5BRC8qeiByUGZEMtDAzJGFBYP6aC cXc2LbeD/L9MEMTBYXCHwCBO394CG3yHQVNDXLTny771NAu9ebLhQJ+hNwAc lWXbRsZVM1Zt+fYGKiaHqIJTR8kopHTH46jKqszonQq6JNh2t1mO869Xh9d1 ObgalVEuaUyq3RW2+ERyY9u1tJyZLc/q8CuCFNlN3pALP22yxJ6SSoIaYJwJ Xv97c64ve8lu0xVvC1JDGGjiSvZQgXaQObMmd2qC/QgiRsKRz+VD42LCzeLU K/1MxVaXZqRKX0ygHbDOLKyzG+pYZ/VMs4OrWTPaV+GrFiZhelaRqmnE3xf0 Fqh3vU4ych8i/NTEkyrdybxpHSzPpvPEU8jwykJNtQydHHTI0cmsymqZ7qBJ BNbiFhukr1gFKwZkQywMDMEY0LV+TIWJovxutLab0GHcr4TcBKpStQjiWDgM bhAYxOneW2CD7jBoZogDEHpf/3rk7XyrqtfQGwAOWwFJKKVKeM1hVOur//v2 ga7+iqIy19IdMx7gHJMe006e9XBwVQo4+ZlGut0V5xAcua0/KsvW96pjO4Ky nSn8sMJPmyzfaCGogYQ3QMplmIg7u4bfp6LNVSoMdOFstma72Ylzd8uob+VN gKXf87GHkJE9pudVuA/3CSV7Rxewzo6zhnV2oJJ1Vs0023GNSRnmvrGrrqiu WJztHBkdTzLSaIgwh3VFGK0h5KK6WoZODjaE6GRWXbVMe9AkAl6C139gFWSC FwOyIRUGhmAMqOoQYRu8Xeq2m9CkWxYhSoSiVC2COMdZw2FwQGAQFwLeAkuA w6CFIQ7AcrAFgdrRbegNgA2K3AyVcA469NvFSDwmdtcrsUKHQoH2uHlhUby1 MX4UM2X/X7wuGU71p84OF4cDHMXM+o3kwFIER5c/br87T684LfnrZx3xhbH6 8C+UFGE6h1woEzBNBDWA8BO8LWbu9vXRWwWzW4WraXMVCgNtXN0yu0sDi9dn bNRqxGc/yPKLXJdNqe6OYjq8vIP5GmrennLI2kfMffcZ2ocSCayzE1hnBypZ Z7VMM4drs2jzg3p+umodq/g47aMF0veFyUWrIcJWrCvC/vwQ4AX11TJ0ctAh QyezqqplGoMmU+HP8wZ0iIm6vXGXAUt//sPv5wUJXrLzNsGMAdnQCgNDLQZU eYiwBffKYawIywFBnBM4DA7IC+Jo9BZYGh0GtQ1x2c/pPYSjumOGLtAk9BZO UtBr6A2ADXrcDHUwsduGNLa5EwpHRQip/GFmAxdnUm4dlHX8peUI1QbOL7Q+ FLf5JgbmgW5Z/k2BP2y9hvw3dKIAp+o2Mh3H5ZZJ+7bzDocxgzMUeIL8IRdK npFmghownAneMGb0Lp8XwNsDpY7NVSYMIYlrOKzi/qxAY+8HFTs1w9ZVykNT NWIifeAA1pkPrLMddayzWqaZ48KPrzbgLwcbDK26Z17WSmVuHXSP45dIztPK R8shwqx9Rbhj2nHVjhg6aKOWoZODDAk6mVVVLdMZNB2c0NYupaIehCDB+8x7 5wjO2wQzBmQRBkqFphhQ9SHCrAeTRJIaoSVViyCODxwGO8QFcXR6CyyNDoO6 hvjczmH3CEPvR57fflUrS8X3YVQsUQaARGhxM9SiMHvoHdq4u87pBnbk1R0V HZkUY1V3XPUaB6/GRtHBXX9r3ygDo+68tiDiLB6LYlIOS7k5ty4vfLSqzWA9 +NwOntY3XczdmLn3mvibo9aQC+0ENTDwB0j589vLN090DGsQpLtLCrIzt+XL Kv2SLwwhi6A3KfH96LxjDfcMTPMnNl2yX4DNzPGoYZiXF9SzBO7AOgt+C9bZ ilrWWcX5U8XnF3UUdjiOYsbvVp4/8gq3oElBL0fZaDlEmLXfQNob9wUHjdQy dHKwCb5OZlVVyzQGTYJKGBGVioLtbMY731hLyJhTDwQ7BmQRBkqFlhhQgyHC LF9aVD2sOtCSqkUQJ/gtOAxWCAziaPQWWFodBtUMsXvo7egEqA3Xl70k0ocB gHpocTNUwjkovCoz4UdVa0ZN7Pqe1V18ChmTTU588AxXTCOYa1CSl9zI5dhq DMIrtDXJp8kg+oDn1Em7It4Xo8ev4ycNz8zuxjSUUN2n1pALDQU1MDgTvP57 +zirsGpFp/LeGK4xlEy3XLYwhCgu9eFGpsO4X8lNNnnn8qFx5nAvjOmVzpMk 1wSCKk3GgMrAOguAdXb7ohLrrNr8KRN78J1O1YSP29mOQBturBop0phSiqZD hFluk7UOGvcFA63UMnRy0Am2TmZVHQtIadDE28JjZLpMyvPtdd/Mn+G4X4T3 iwh6DMgiDJQEPTGg2xBhFXQ7b6iog56rL6hxumpASaoWQZwAOAxuXyQiiKPW W2ApdRhUMcSeQu82s7I1DYjL1o213WpdFHUA4AtK3Ax14I+2V6UliBC3CkPp Y8tOZfblFi5q1Zx3XPA8dg2/T3hsFeZc2NqwVGVG79Q0nRkonE6dtDYgR6cm 2m6qS/2SpbDtDkmFsuoMudBYUAMAL8Hrr1GJc7XO9alZsgTN5F6+XGEIVVyy AXT2VTaxByZa3uXIHtNd/GSeF20D+8XIAtZZCKwzh1rWWa35U6W7ZrcSPGuD oXWf7RrbaHtYqttJRpoOEbZ2LauGGm85aKmWoZODTLB1MqviWEBqg6YT05IY 5rbGbTs898bM7ef8OaXOtTCzi560ieAF4eDHgCzCQElQEwO61o+psZ3TdGhJ O6FfR9b7RUWqFkGcEDgMHKQFcfR6CyylDoMahtgt9DYy8cP2afxiOWyNToo6 APABFW6GWvxuq9dSxda74zbnIjz8tZUSjFZl+c5XW3PfbJmyzaVo6a91Y+8Q HNzAxPbZcUPRCVvNNGF+rzL2jmlpuz01mFm54gSaH40KZxxwMUK/DaLLRNUa cqGxoAYAXoLXzyWUZCbbS9iEPZpuFcxuVaX68C9kd22SIwyhzIGFvM7K5GYD fGA6vNzSG9RTGxnXFQdZ1cVAQ2CdhcA6W1DLOqtlmq8dS24h7Dbg0o5AGxwr wkRvCpONkiHCpde2vT9u+vd5vqJ1S5ijzqjBkENLtQydHHR0EjGxFAdN3E1L XHRYTL7RubOJYRI+2k/y1iYSYkAWYaAkKIkBhdGcGms65SUb+sYwQsh6v6hI 1SKIEwKHwQJpQRxLsbfAUuswKDXE7qF3VWb41iINzlSALfTGEGEQClDhZqgE v7BQhX4g7giGsDBSx7iX7V3QjjN29yeuueCm7F0Prrjx6Y0zM2It0zQEvVMo x95c0UJS2jFR37mSPdT+FUHBYWXZ1pdimdhuWaIboPGHXCgZwaO5oGqNIMHr s/fUuZ3D7gl3PLK4uT85/8naZmRwhnxnTY4w6BVTWWmZH3F0LDrYXG5SswFe Kb2+7CnLe+Oxg6t9EKeTdot+CcJJAi/AOguAdeZQyzqrZJodHeec1q3zuKPa NxuwKmcMEfbE8dVP+t06bTLlfftp6tajBCV4KUFbtQydHGz0ETGxVAdN3H1r 8LfUY/4MSfHpGa1tgVVUlwk5ylYrtIWMGJBFGOhANzGg2xBh5Ws6vJoEm8Qa Orx6iKj3i4ZULYI4AXAYOAgL4liqvQWWVodBoSH2EHr77ZitBrbQGw2mQChA g5tho7K0VFljGGdhoUaDA5wGy262xN/VW5eWJt3NfanT0l882DpPcy6UTDkp 3ZKsq34mFkxs7vJ/2G++2DChOHdSbdt3+I1kuQ4Vkrb/8IdcSO5mw0NzQdUa QYLXwNRtnnbOk/dWcHBy67uM9ye0r2/7KH+R7uCEttKSS67IEga9UHrx+Lbl H08Z9nynh++PMjofRnTrJwZMSFl94Ly7VAk7MpGaDfDO5a9H1TafdvMnNl3y IGzCXAcjuboY+AbWGdbZD8G0zuqYZkfHOZ4QKcxXi8Ra0IIhwh648ukARq9b pwlAW7UMnRxkdBIxsbQHTRd+fLVBFWNC/4x87zne8pKd45OsQ/QMxpaPf5NP dr6GiBiQDeUwULcxoOpDhE9v/VftcOGFt0s7QdhQIRpStQji+MBhsEFUEGeF bm+BpdFhUGaI3UPvgGwQZh2hN4YIg1CAeDej9HzO8ikvJ8XYpkBGNWnT/90l +y9K99achYWa1XvYbqYDCQ3zCz5/6S7uK94b47vNuTDe+cZamTUytjEKRqbN wN1EVUIqxOl7iG4SaGK3DWnMfWdw5nXub2VH1vWNZmJeXpov5f464yklboaW glpyat/q9yf27/RwXYd5rVkvoe8rs9buuijrfD3WHbsneGOGLsi7KfhM0b41 r7W5y9Cyw4qT5cend+I+Fj1+Hfdil+Us7xwuti+KV2QIA+2YKgp3r353wD/r 2gNcY737O/QZPOL1SbPmfjhl9Cu2Rx8WHtvvrSyhM+ls6sLJHpnZAG9cPjQu JtxHB1c3mRS2pwOygHV2AOvsn+BZZxVMs4n98XWXzvOBGGPEwbU4wBBhV7g3 Ra9bp4OO1moZOjno6CBiYjUU1MBETKzlBm5+uWUtY8wj47/ycGSzo7VkcDzX MbNut7HbC+QvV4VWDMiGXhio9xhQ5SHClpqEWoKrrttkavZF9c5XJYhP1SKI EwCHwQE5QRwH/SlWNoAOg2rINsQeQ++AbBBm7aE3hgiDkIBsN+Pqto+73BPO hN3WOOm5CdM+eNvm5RqMliBCooordAwO0GyrhYld37O6HI/64t5R0eGcpfNR 93J92UuuWtFHLybfZ2qdRMCIHkZADRV/LUuy95aIYmb9Ju7i7H2ropJGrtj8 7fKUEW2qMTF9Ju2+KuXe8IdcNExYc0XeBWglqKaLvy5/7ek6YYw3otr0WJxz SdoxrWNb3Qt0+Qne+1q0jDJY/iO64+CUpekZmVkbv1xgeZGrhrUcnJJdaH2L i89/2buZwRKLxY75bOPGtPd73humQpMTecJALUX71rz9zEOR1rvNRFRLfOXd 1ftOlbhpddO1sxn/9+/YqkItyr9XnOyJDrWCj4k9MDHRfNKRPaZ78RJN7OEl jwjknVCTRxGwznxgnf0TLOusiml2Tp5yErAHVPr7kW2Zm3Mu61FhKRkifCy9 s363TgcfrdUydHLQ0UHExGoiqIGMmFx+Mar54wPGv7Poqw2Z5nBp2eKUkT2b WydcRsU+PsFT+pfAKyIlBmRDKwwMhRhQxSHCpWf2TI4TLAcbW3ZK+/U6iSJC dqrWAoI4/pnCYeBDSBDHQX+K1eUXNXIYVEa2IfYUej+94rSGp8rDEnpnbcm9 pquXGADPEOxmXM2a0b4KY4ztMPd/52wqrbIsY0AMZxQM7QZmS9nixes4oeHu sO/63inZXXEWwBiqDZxf6OMp5Cx5VKAU5VpG2200MI3arjyvN0XHL3MV30vQ bFtXTBn2dNz9URF3t0jq/eayrYVSzahKQy60ENSrOxf3vCec8YPE4lhOiqKY KfuFxV78Arw6TdPOVRTuz/hk8qu9Oj7SOJKxrB+17fDcWLemVTev7v1i5uDO 7cyfsew0TPny12IVJFOeMNBHSWHG5F6N7L5o9YR+aYf9eJ5Fe77sW68K49Ci 7u2YpAzoCS6c28zUvD3lkPe6Q/dRlUSmO2gB1tkVWGcRBMc6q2Gaz8zu5mYu vXTCBJKQPUTYXgik163TQScAahk6OejQHjGxGghqQCMmIdZNRpOG9OzcuqH1 1ajZIO7xpwZMmLbiv4eLFGyFDNkYkA2RMDBEYkC3IcIyVYepoiBzfhf+GxEW 3vLlD3KKSFXvBKdqORDEOYHD4AYJQZztTGhPsQrRyGHQAnmS4yH0bpK0Sadm HIBgQqqbYcpNf8roYbcRNzWMQ9J0cn71l3YdAFzLF0W4K9wwBevOiIapeT6f gavHLrNhjqN6zdGgSU/wR+EoHDYhCbWGXKgsqCbTiS/+E8ev/PXtsdRrOi9X lFBYpciTg80vwAv28IVgCUMgKT3zv+TE+rY5UWFM/FsrT970/y0zVzdOfIBh WqZsKxPM+OCgZ8xu6fVlT1m6iMVOzfDVwPVK9lAXUSeyJRoVwDp7ANZZBEFR yCqY5htnZsS6xPuhNZRQO2QPES7b/+k/rZuhdJvkDzYBUMvQyUGH9oiJVVdQ Ax8xaU1ox4BsCISBIRQDug0RlvFAi3N3zB1ga6nKERX3zIc78gjZS+cZUlO1 DhDEOYDDoDqEegusHh0GzZAjOR5Cb2P14V9g4hsA6kOmm3HzwqL4u5iad07Z 69oO5uzsrna1IC0jx3ckOqYdV/d8HXA95yW4K8Vn5sTbuta0mZXtZ8uaa1cf Cz1XX5B2ivYFFKZWzXnHyXnkqlG2bqz93oQbX04L2NQgtYZcqCuoBStGNvDo mNRs1LLRnR7/JbL72/4dFq567Q5m/B7XG1z5w0zHLwZ9+EKwhCFgWKex2P2l MCZhelaR+Heae4gx8WsuurdLYtot+kXD81aPy1+Pqm3WtM2f2HTJp6y5TiAy K8DoVM8zh4FPYJ09AussgqAoZOWm2bR/4cNuhlLywwWekDNE2FRRuOvzvvXC bXvQMERYGwKglqGTgw7tEROrqqAGPmLSmhCPAVm9h4EhFQO61o9JUR2lV07v XffZ2/2dE5YZSyfzQe/LHfEZUMhM1fJAEGcDDoMGkOktsHp0GLRDhuTwfQkb YczgDNQAA6ABRLoZFxa/eJuXPV+8tgPSzpnfbGT4dq3qtqS6Kyc+eMbqf4ht s+maPZPeMa8kM5krtao7ZpUed8jxB4YGUKpL/1j6OOdJGpkHn9uh4M6qKKil uxe0NzhFJeqhjmNmp+34+VSRw5+q+Ksw90DmkpmD/m4vMLbetl7pfpbKrNVr RqbLJPexrSemJdmOU5UZvdPXrk3tCZIwBApBKsCsMCdukJAKsMKtdHRZUZD9 yn0uTtfoXTS0VL58aFxMuPlsuy475ifv5B7r6X2mmEbAOnsD1tkfwVDIapjm o1MThQ9Wyqxb4APRQ4RNxZdO5p3M3fvDxi8Xju/197pVGNszRfN/zQiAWoZO DjbUR0yseoIalIhJU0I+BmT1HQaGWgzoqs+j6vR/d54vZiaPGTFixKDnOz18 f5RDvsNub/xYd/OLsP3YJeKu0BtEpmr5IIjjgMOgPkR6C6weHQYtkSM5HkJv hVOkAQDeINDNKD6R3LiK5/kLtwpmtwpnJKoU6xd5G8QimZRftLpUSe6Ktfem 7ZRGbCkQc/wbq0YK1aPEUS/XjiW3sObfdFq9ZuH0+u6i3UVJmAoPfzL06ZjI 8Nj+U3ZfFQhnWfZsxx6ixEWH5a8zqSio3GIZ50U9kPj2Kp91sOXFOZ+92e4O 28eZxFE5PhwlrnqtCjN8a5HrPznX3ciY9aCZMAQdl1SAqLJDd0rykhsZq/ae MNY534OhZr3DNkfSyHQed1TEtQsnEFnQLm7VLbDO3oF19o82Cllb03zr8sJH qwqfrJF5NiVfP6F68HBrAikRY43RX4lrkAkkEhC1DJ0cfKiOmFj1BDUoEZOm IAbk0GkYGHIxoGv9mEyiH3y00/MvTZn/BVaEVQNBHAccBrlQ5i2wenQYtEaq 5AhySrb3EdOaANAK8tyMP9e+fjfDNH77Ow/K9ejyx52aQUrDCv54iBqGeXmq njEPCe7KrUtLk2z9b2oPXXJR1M3n19jYfyK2z44bYk/vzPznuFDNz8xNqnEO DFU1qKm4uf65+o77Lmg24nyURuM/hu1VMuFALUGtLN/5amvuMDED3t1XJMqH cgaYVX25Ir6q1y5mD7VPMyLCcGskDEHn2vEZj9RyKoGGLdJOy1TflnXSWtHR d/C1ipHpMO5X4tc7TIeXW7RtFDNlvyg7kDs1Qehbou+rZGCdvQPrLAItFLLW ptnTqqUuxxEGHvchwlKBDteKgKhl6OTgQ3XExKokqMGKmLQDMaADXYaBIRgD unliXVaIHvxz64/8E7/t27IudeLL7es4VxmiO/5r3tbcEjKSn74gL1UrAEGc FTgMMqHLW2D16DAEAKmS4yn0jl/0cyBOFYAQhDQ3o+JGere7mRrMrFwPZ3Nm dje+ZpCQC+IrIi17DgjdFV9Otd1zMHjeb+WNon2jDIwA8dMwT2X2rSr9F6nD UvKqgWtauH2gR9kzsUend7M9yoZ/Sz2mbNehSoJaumt2K85XGbogT8oWmrL9 n/7TImDGiCGLPcfyPqvX+EMfktKOyTt5NdFIGIJL+Y2tw1vzdYCSskmhyrJB wvAvP5ReT+9hiSAaT1gnskaVN+XWBoFzsogG1tk3sM5+0UIha2yaPU4y8j/r FojAvUdfr89y8jxwMnfvjszMrG8+nfv2AN4cwJqR807o92UJLgFRy9DJwYfq iIlVR1CDFTFpB2JAJ/oLA0MyBnStH5O7xc90LX/D+K51wpxHiuk1Piuf7IZR pKVqXUAQx8JhUABV3gKrR4chEEiUHA8Fw4qnSAMAvEKam2HpKmBkOo7LdX/p Bb37DExM/JqLkg5r/6KWXYOE7orXu+psZiJmAiaf0isL2wi7KIic9mJfQDGT 8NF+PatUfleQCGbKgXJ1DstzFKM6j97HFardLNo6kYssDMaWT6bmXFL6K6oI aun1ZU9ZDGnU89Ml+SocVkfaewVX3vpnvVevOQdIeVk2CjQaCYMkyouPbvxi /ryPZk3+zwjrSKOkxISER1o/NiNDnnfrmFNjk5PYblnX5J+dh2wAEcO//PDn prcamq/9/sQ1F8Sqz7J1Y4XXabzzjbU6q8HUFlhn38A6+0ULhayxab7wcS+h 3jAwdZqmnVfhxElEbWvl87fchgiLu7FXN058wKrAMURYQwKilqGTgw/VEROr hqAGL2LSCsSAfIIeBiIGVANh/ZiRaTVwt9g+RG6YTCc+HsBbbjCro05Lf72u 5umqC2mpWhcQxMFhUAJF3gKrR4chMEiUHA+ht25afABAIIS5GX+tG3uHl+pE 0/6FDzs1g7H68C9Ed4/gdwLR1l0RNib1cld5zUxkTH7ZOugeF+ddTOecy2vG NrJevqHdwGyFbTcIh290VBwVamIPvtOpmvmItWoPmb8uM+PbFbPfHfRofYvX WfPurpMXHxbXNsTPb6ghqJW75zRXUqZ48/fZcZY8rcddfgcntDV7K/02eN4A aB/V6m9MRsDQSBgkYGJzl/+D8YDMGuyiI5NiBAFLy5nZSiTPLRtAzPAvH3A3 QWKs57bXLzz8tZXBKBGgFVhnv8A6+0ELhayxaXbbx6osFUk0alsr37j2BDMy CaMOi1nhvZk/w5IQxxBh7QiQWoZODj4UR0ysKoIaxIhJIxADCghyGIgYUA1c 68fCwgZ/okgxl5ds6BvDv2pjy8e/yScgDeoRwlK1QhDEEeowlO5e0N5gjB7x xVUV3XcKgzjnz1CeYqUbiZLjIfQWGSECAGRAmJtxdd1bsQ80WfSrhzy9RU86 kFbBGDh3xR4N+XJZnc1M6jWdJ9VZ8dT71H9YcW7nsHtswwv6r8uX+oulJ/77 Rpu71Irv1D2aB7SL/ipuntiUOqZX59YNLU85+sFHOz3/0tQlqw9dUusn1BBU E7ttSGNGWRep61+PvN3jEKjC7KF3GJn4Yfu8vHwFa6bG322Ibtftwz3itwhq SfBXhM1PpLwo39L48sTB3R90sY9Kkdv85MLiF2/jv/yK6/DdnS4py3nBwMQe SU6yOIedxx2V8DzdJwSRYvVoAdbZL9RZ59Lfj2xY8N7wnjajZqZ6k1aPdesz +r35Gw+cUn+8mkYKWUvTLBQbq9545r1zetUbqlor37j3BIuevFnUfa0sT386 isEQYQ0JkFqGTnbHdO3s9uUfTxn2fKe//60utwYScXeL9h16j3wrdd2OvD/V Ls2gOGJiVRDUoEZMmoAY0IWgh4GIAZWjZIiwF6zzOvkYIl/48CyZW/MIS9UK QRBHUIrVybVjyS2qqi8zFAZxdqhPsdKNRMlxD72VVgEBoGOu/rp0wisjlPDy oPjaVt3YMG6AogONGDF1fo5272pRzrg6Tn+VaTNw9w3xX+ZbAV+DJ5Qj1GAe 9qCV5SzvzFV3hjFJC3+SEQ+49T71pyTLS74bFGuQ5e6a/izIXjAmLkIdN0/d o3nFni1U2V0JBGoIanHupNqKS3wtbomBeaBb1h+CPx+f1kmhIxRoiBIGE7u+ Z3WbLypvgsmNMzNi+cXhittmCu8Pp5cGZ5BWHS7A1g+qKjP46589TZz0zp5l zwouVfOCQ9OxjEH3ufi0gSaqTdc1Wte9wzo7jkCPdTZdO7n6rX7Nbzef422N 23XuP8zqxQ3qG9/AeZei2z07PSNXzXVhohSyONzC0tDoLaDcWvnDfYhwv43i TA+XWAjqEGG96/YAqWXoZAE3r+6cOybh/4Ub68X2Gjnpw7T0jEwLGemfvd3f Nj7b2KjViEXf5qu4N55CncxDsaDqL2LS3xUphBwJRwwoF7WGCAsP+teypAjB tWvULlvnqVoEcUSkWAVUlu0ZF2+7EequCJOjTiWDFGtQkSg5bqG36Jph79z8 fkYs44voB9sl2EiMa8Q7gQhmwh7sTwbk4ma5gox2puHm5ol8b1Bikxy+FdCy xM61rQ3TYuZuwQeKz8yJr2X9F6Ohw6uHJKTNHUje6eZoZiKyXs5UfOnkkZ+2 r1/1/uuD4us4Qg+Z7oq6RxMJ345Q667IFVTrPI7GE9YpurtcFdwdwkEPlnUf IttJ+YQgYbB4kvaH2/v9Quk+X+mWZGHfY8XNPJ2n5HgxyX6+vGE9itFWC7HE GGitxR7W2Q411rk09/vX4u5iImt1feez3eeEu84qbubvWPHy32rZr6BKi5GL ZAxL8gZBClkc7mFp3NyfAvPTRfvXp36zsygoW0IUWys/yB0ibOFazriaQR4i rHfdHhC1DJ3Mp+jUpz2aGWrVGzBvvceNwEW7l/SoYTt63W6vZ6vXCJI6ncxD saDqL2LS3xUphhQJRwwoFzWHCPNw2xCqySgKQrwFB2q/AgjimGClWL3BGzWu /hMhRZ1KBinWICNJctxD73aLflF4Am6ziUUTaX5Yeh4PDmjHdOTrp6LC/Uty QDDe13KpRn5AZdn6Xs49SNKb5ATKXRG2RGBc1JeJPTAx0fYPNW9POSTXnb2S PVTwIz4dCUczE4ZpMyvbd/7MRf0a6zXt92ZKv8YifkX7o0kipN0Vlbi+7CVG 2Jfp8pf/NvviLVO20WUUyREG/qxV10BG1PdtzWqcKK9nzlnyqFCNR49fR/IL 8+emtxoyaiFlDUIWet9HZgXWmQ8V1rngwBvNqhpjO8z7yXtfx+LzX/ZuZnBI 0fPT1VoUJkchi0SLsFQUlt1AVbSuWvGGUmvlF9lDhM0cX/1ksIcI6123B0Qt Qyc7KP1jfb9mTJPExUev+1jfKfj8pbvsPydjQqI3qNPJPEgJmnQTMTnQ0xUR IuGIAWWi+hBhO25rtZpUmuk9VYsgzkKAU6y+uHxonHPUOFaEHZDiLbD6Mq/i CfqKMHvrj3xH28AjP23PzMz8dm3aB+/1e6gW40bMs2PmrdyQmZmRffhE3vkr 2CEMdA7RwynsnOXnjozMsyn50lo9CDtFqFRb6AHXYkuBxnOWbMltZmI/UF5y I6G74m1dw5pkMHBXLWIwwaFFo0e88uqUWXNSV67f/tNvRWV8B0yyu6Lu0SQg jB2odVe0FFQxZ5K7/B+M8c431tpetZu/z46rytSqOe84sWrCEyQJg7M4Td4A KfdabsXNPK98OkCgsKKYlMME90MtOjLJHOaEMZ2W/iKnKt69RVgNw7w81c8y xIB15kO+da4s2/pSLFP3nlmH/d3oCz++2sCZxYqdmqFCNz2SFLJI3MNSsc2N lWHNHst4odRBqbXyh/whwnazhSHCWhIQtQydbKdy95zmliu9vXHn5+f96L1Q 58q+UdXs1xHG9EpXOknTAoU6mQchQZNeIiYnOroiYiQcMaBMNBgizFH5w0zh nmvNO0fJhOhULYK4IKRYvVJ+Y+vw1kyDuLh77bdDXZkhRp1KhxBvgdWVeRWP RMlxD70HZ17X6NTcAlKzeDy34w//XwRAPxDtZtj4fUFv/ov69IrTEg+gxjR5 MbiUlkXwOkLwCsmUlna7r2tEMbN+87BCcnbxi3fbPzB+tyzVpq67EpgVYYnD 60kiUIIqBktjxjDmmffOWdWCNWFljBiymLJ2JuQIg3OChry2MJwDyUdxM0/X AVJBW30QhYk9kpxkOcnO447KfYzuHiZV+oFEYJ0FEG+dTYeWtBNdh3xh8Yu3 OS5ElViVHIUsmtypCS5KIxB7hE3sj6+3kfVCqYFSa+Uf+UOEWbZ4V2q/fkMz C/Q5a4sMAqKWoZPt8F4HAxMTv8bbmrDgWsKM/eeq8GpSqJN5EBM06SNi4qOb KyJEwhEDykWTIcJW3PYIBzvx4g2iU7UI4shIsVqxdLE2Mv2/3j+ntV1LqCsz hKhTORDjLbBkmNfy4qMbv5g/76NZk/9jmTA+6PmkxISER1o/NiNDk4cqUXLc g0TtQm9uyzYfpeMYAKAOot0MK7cuL3zUUVWi3JHW0gpYetnxcGxAu3V5Wdf6 tl8XN2nCN1sH3eOiu9xVa1nO8s72/T3yd/dgRTigBEpQxVB6ZWGbqrYiusqy jAExTBVm+Nai4J2QLMgRBt4AKXl5PPdRREqbeZ4V1l1XJfr5mnLTnzJaIq8p ++WXde4d09LlHgZmu59ugXV2g3DrfHSqta+aZTPaC7O25vlZFxZuzWgzd7/S EIkchSwa1000gVkRLsweekfwRkoptlZ+UDJEGASCgKhl6GQ7LrVqPhQj75Mq he0U6mQexARN+oiY+OjmigiRcMSActFoiDDrYaxksBMv3iA6VYsgjowUK8ut jDP3jV119abjyFgRdkCMt8CSYF7dS4xsaLUYKlFyAhl67xp+n+CXtGmNBQDR EO1mWOAPXjFTd8wqOSrcWVqmpRU4sJCn7ew/ZGKPTu8WYbfMT6f9olzL5E3r 4KInXdc1is/Miee64hsM7QZmyx64QvuKMHVdYQMjqOL4rm9NJiZp0zUubDQy iaNyKHL9OMgRBt60pvhFP8s4gPtbr7CDinB3p5HpMimPvOJwG6XX03tYIr7G E9YpeSfOzu4aMA8zFIB1dodo6yyofjcwDeNW+u68awlaeeOo7PXM8iFHIYvG tGdOM+EDFd/fWDbHp3VigjhSSrG18oOSIcIgMARALUMn2zkzu5vz5GrXTz3t JSFnYtf3rO5UyKqvCFOikwUQEzTpIWISopMrIkTCEQPKQ7Mhwh7mMqvi5WoB 4alaBHHyUDcpynWxbtU987KJd2QtV4SpcxiI8RZYEsyrqbzIOlX3xMHdH3Sp b7sx2i2GSpScwIXetwpmt+LPeVdhHAMA9EG4m8GyBye0db6mVZnRO2WVYvGt gGabEYQFnLYcV8m2Ga3sf6oz6GNVGvLcWDXSxV0RrGtUlu0ZF2/7h5p3Ttmr oBU+jSvCll4cunBXgr1rxlKXW91yA7lsVeKiw/T10CBGGJzVbvxOR1JwDVJq RacqmaTETS3hqVYyi8M5/tz0VkPzG9H8iU2XFMmge409OsMoAdbZHaKts7BG l5E2ysfAxPbZcUP++VogRiFLgH/OFrTZNsvnVGbfqgamUduV54OjnJRbK98o GSIMAoT2ahk62UnxufRRT8dEMFHN249Ze8RrPu5m/gxejkydt4ZGncyHmKBJ DxGTEJ1cERkSjhhQJpoNEWaLcsbVcbEManTC0QLCU7UI4uShalK04POX7qrK jNhSIDyy2jJDhjqVCTHeAkuUeXWWGmq5GCpVcor2jTLw30LNQu/T67sLXnfF 4xgAoBHC3QyBw2ZkHhm2X94+goAUNQk3oFl01xXnbAuD8cEnN6o0+Kx888Tb he4Kf13DMkXC/vc2s7IVbbygcUWYb/G5+iuKIKn6zhJ+RjHzjljDxrrN085R aCAJEQYT+12/aNtpPNAtS1YAIcwGKF2dKd2S3IB3tGoD5xcSqP85io5Migk3 26he6UrzAG41h+Hhr61Uf8EjRIB19gTh1lnQHMnHZjQ7ghVh5VabEIUsCa6j l3q61w/lJd8NijUYmU5LfwmOxVXDWvlGyRBhECC0V8vQyZLhZ65kl2C5QKNO 5kNM0KSHiEmITq6IBAlHDCgX7YYI/7n2dZfKNKYGMyuXyLtAeKoWQZw8VHQY LHWkvP7V2q0Ik6BOZUOMt8ASZV55Ew00XAyVKjmVZet78Ut2tApI/1o39g7h +650HAMANEK2m3Fz80S+w+axeK9y76ftGzIpB312OeA3SwxjRu/SpD+dy5DK eq8tXfKsvQ9DpL1wSwVM7OEljwi0l3Ndgz/bIrL720rnadC4IuwcNaJgkSJY BERQRWJxVwzMa/83M5YxRgxZTGXGVrkwmCoK92d8MvnVXh0faRzJVG/ycNeh by7+L2/+ZnlpqV/N6TZAynTt7PalM4f3fCK2djgTcXeLjt3HzF2+76Kv11WY DVCmsW9dWprk0KxSJu/8eWppn1bVIqonTlntN3tQnLs9bf68z3f6m1XqGxN7 JDnJfJKRL3x4Vmn1r/vYFFJbhNEArLMniLfOBQfeTaxvNH+pVp0hq7xvRuMQ dJk2Mh3G/arwHaTTOruIukY7Zzm4dJNM8SDGWvkCQ4SpQHu1DJ0sFX6X18ge 09Vp8UqnTnZCTNCkh4hJiE6uSKGEE2NVQzMG1GqIsMsWaet9IHZZnPBULYI4 majlMHCvM79/tXYrwlQ7DMR4CyxJ5pU//0vDxVDpkuNatBPBjN+j0gh5Hhgi DIAFkt0Ml/qQWjXnHfdwihYnIdz/+7t10D2OI2myH6GyPP3pKL5SqdP4/hr2 jgdtpm1To5jbjlOvCt2VK0eS29pmWzAN/5Z6TPFMAgpXhHnbAKlc7tFcUEVz 4eNe5nO4r3Fjpgqp7aT8oVAYSk/8kPLMQ5Hmt7hWTLfXp63YlJmRnjbB/JeI 2zrNyioqK9k1vX/z2w3Glo9/k+/z0PwBUgsOn934QZd64cZ6TftN/GDFRssx xz/R1Gh2kmLipmR5jZ2vL3uJ98orKuQTeFlhTOLc3SLdYvu0OxEFfue2D+Sq 7pR1NjPlpj9ltKxezTqixoQVZ40ihxqLXKEJrLM3aLDOJRfyCm+IUB/ONKbl Zakx+qubss/WCq3W+caZGbH8MUNM9Ph1Wkx8sqabpKRneRBlrXzhPkS447hc xN/koa1ahk6WCtcshTu4LBXhEVp1Mg9CgiYdREwu6OOKlEg4UVY1FGNAzYYI W1rsMkLUCjO1gORUrRUEcXJQyWE4M/+5O6KE/as1WxGm3WEgxFtgSTKv3JlY 0HIxVI7kOJ1eG3XHrFJ56UCQ5WAwRBiELiS7GWf5iSMj82yKhwkRlnfZyDz4 3A5/OoLfb0QwEkIthAOe+KhQSOaC67qG9fHd/GN9v2YGu1bvvy5fhR+icEWY N2rEeOcba6lb7dFcUEVjv5Oi3i8ykS8MJlPeyrfaWTsHRXV4ceMp3gtcXnxw Wq+IMKb/mxPixDmWzgFSVcM6dn+yTlWm7Wvzc4p4wfyNS+nPW1/emtETdl30 fBReSkGRxr58aBzPxZKgnZyxuf8CP+clRzGzfpObtii9nt7DUgPcMmWbOk5q SV5yI77m1LJZgb6BdfYGpdbZE/zKYVXGzNFrnS8sfvE2vt7QYshvwYE3mlVl IpkhmySKB4HWyjvuQ4QxzJ1MtFXL0MmSKC/575h425HrNpmaLfm98wa9OtkB IUGTDiImF/RxRTIlnECrGoIxoDZDhE2/re8RITyulGXxIEByqtYKgjg5qOEw cNuWXftXa7YiTLvDQIi3wJJjXp21FmYhTNqk2SK5PMlxDb0btkg7raYGFE5P YDScVgwA4RDsZjj9SStJacfcP1P5w8wG4vZr8AZDaDM7snD7QA+uilnB/n3l WbXvrGtNSxjTaeqadzpVs///fWNXXVHlNylcEeab+45pxzX5DS3RXFBF47iT 9CZsZQqDyXRi8b8bWl3/qE6vZF91u/rS68ue4mW1fQ82cg6Q4j5cpd9nP15z +7jp0JJ21lfD0LrPdo+TMgT71IxMwqjDMsLXyvKdr7aWqZ2csXm48eU0X61b +B6mgllX1gaq3m+IDPhDZLjTqxe3olClg4cSsM5eodQ6u2Nid70S61Q48cP2 Ka7Cp9g637ywKL4W/7k2nrBOzVtecHBy67vkpCXJtFbecR0iHMYM30btYoOu 0VYtQyeLpvR8zrIRHSKtx41q02NxziV1jmuFYp1sh5CgSQcRkwv6uCI5Ek6m VQ29GFCTIcIWX0vgy5mJGbogT2EHHE0hOFXLgSBODsodhuIzc+LvYjq8esjl FdNsRZh2h4EQb4Elx7y6TTTQCJmS49beP3rksqtqyXNlWcaAGBedEr/oZ5WO DgBVEOtmuHQIqV0/9bSbyjSx24Y0Zu4Q11je2QZEi4t1HzxhRcZ2DzG4rmuY f6h6dXugENV59D5VuuqwVK4IO1uCUDoLQFtBlYBtaJGWMxO1Rp4wnE0bak0F +KpG402WNDAPdMvykRXnBxc+Ev68CtinV5z2+JHj0zoxjh+VtZTJDam0IXGH Fz8291OnfS1nXE3bBcv3MM/tHHZPuPmO9UpXoSbcwXd97xRozhqGeXkqHj40 gHX2AaXW2Z289c/y7tXoH1ToakW1deZPEOPuiVqTy8qObH65pWU5OGF6VpFE 4SfWWnnGfYgwanKIRUO1DJ3si5LcbZ/NnzdvzvQJo17p37ldY+ticNRDHf/z ybf5ai9bUK2TbZARNOkgYnJBH1ckQ8KJtaqhFQNqMETYVPjznG72nZ52PC/6 EwWxqVoHCOIU/ZAsh8HEHp3e7Y6698w67PZWaLYiTL3DQIa3wJJjXvkTDbRc DJUtOWX7P/0nX2Wr99Zf3TjxAReVEvTHAUCwINbNEFhkL00pLRlLI9NlUp6Y 7gNOn1yT9CmvH4KTNskZUvN7onB3Vxj7paky28LDD1GyIlx6ZWEbx6QtOjON GguqeKzuiv/eUOQiSxhKdy9ob7B5i12XHfMaJToLVv2Nc+K5W7WHLrnoXSHY Fyu9H9AxmMmKtFS82fnJmtG+isOnqtL/qyOSvHlnbO63Tpt3yXFzf5J0kjaK zy/qeLcW7XT4Q2S4mz16F6XyHTxgnX1AqXV2wd6w3XavVJnSRb91LlgxsgH/ gXpMxUjCVHl27fSOtcKZyKjeC3+QKpBEWyuPuA8RfmriSaJCD+BAS7UMneyD I3P7J8YnWElsUduWiY5unTQk+eONh8+rmYSlXydbICNooj5ickMPVyRdwom2 qqETA5q5dXnho2oOES7N/f61OLfdwX0m7SZ8OZglOFXrAEGcoh+Sc9MsK2VG JmnhTx7eYo1WhHXgMJDhLbDEmFdnwzdNF0OVSY69Rsv+4NSYnCKwho4j+y7u AkDHEOtmCC2yh6YKXOubMNGz7fjbmpSMNfFC7tQEF82i/mwLByZ2fc/qHrwV 1evlqFsRdsZo1GYaNRZU8XDBKcXtwmQIw7VjyS3sY5J8d0nlBbwtZu72cUje AClm9E5f6yr2bICvt+PM/OciHBclpY/r1S0fdqxpL3KVngoQDJDyV6fNv2QZ RaSma6eW9uaquNU3TO6KenDmdTV/IBSAdfYBpdZZSMHnL91lP3HV+unpwDrz mknariTm4ZTdMiPT0vM5SwbHR1nC2+ZvZuVJVpTEWyt3ePuqvGsPQAhaqmXo ZPGY/ryw75tFgx+yrmWEhcf2eysrX6U7pQOdzJISNFEfMbmhhyuSKuHEW9VQ iAFtnF7fXaiw5Q8Rvnl155xX2lQTHi6MiX9r5UmSm0U7IDZV6wBBnAyUOAxW TeX1Jmi0IqwDh4EMb4ElxLw6JxpovBiqUHKs2+F5s9/NUXPsmI1HZZoWkylv 5VvtrN3DY4Z98dmQxg6TgCHCIHQh1s2o+GtZkvPtd/cDSzKTmzGGagPnF4o+ 7Qsf93IcsOfqC2qerav/YDA++OTGAg3VvGvvU+szTJi1Q4WNPHxoWxE27Zlj 77oUbDurAA0FVTxc9EdzAw0ZwnBh8Yu32b+SuOiwj69cX/aS7XP+Al77plQD 0zBhzRXvn+NrvFrRqd4C31uX0ns7e16JKpGtuHV06X/iIpT5Uc69Xf5cJr6H 6fuSPXy3omBb2uC/Oaq4fTVtk0PBgTeaCSaSWGTj7e8o7HwUVGCdfUKldebB 79Gk4ng1fVhny6Lwklea87VIZK2u/7cqr1jCBZmunc2YNSbh/1nSs3W7DNt4 Sk5iiwJr5YKt84MA+RuIgPZopZahk2VQfP5Lm+8nt4bEDZ3oZBKCJvojJld0 cUVSJZwCq6rvGJB3kCPJSQKNLUsUSy8e375kWs9mrvrf+EB8ylYVVGiAIDZV ywNBnGRkOwwm9sDERKa+9w3L2qwI68NhCL63wKphXk0VhfszPpn8aq+OjzSO ZKo3ebjr0DcX/5en08pLS/0+d7chwubgdPvSmcN7PhFbO5yJuLtFx+5j5i7f d1Fp7YUKkuNWj20W7bavfST13Ipzd3zQu1WkwVkRZNq/8GH7IeUXHQFAOwS7 GWdmd/OmtMuOrOsbXYVp8veVZyWcNF8jRU/erOblluQlN+KpKYnDWWTg7q7U GThbrcytE9pWhJ2FqWHM8G3B6waiDA0FVTwXs4caDUxsnx03gvLzKiBZGIqO TIqxV1B7HI3KY9fw+2yS7DvgdWoGf43F+DrE93DbgoOTW9dyXFr8m1/+6n0x ovjolmnPPBRpd6KqJ/RdmXtdhjPGHyDlZ9QIz8NknnnvnF/xvfVH/rGfs79b m/bBu4MerW9kXDE+8I83U7/e9tMv+dckO6WlV8/l5eWdOPS/rPWr5r31cvs6 4W6Hty7oTP10U9b3+3LzLJz+vYQwU0ggsM4+oNI6O+Dmd1teX0Pb19NUPG19 WGeOoj3LBjUVPOWoVk+/uXTD0SKfOqrir4ID21IncorIwNRp9u/FWwrlJSWJ t1am4ksnrQo178hP2zOzvkl9f3SHph7Ue6NWI/5v8TebMzN/2MMpYChhctBK LUMny+PyoXGOtz6qypgdSm+abnRy8IMm+iMmV3RxRdIknHirakNnMSBrDQM5 03/it33bMzNWf/HeoI6u4VpVpveHa7MPn8jzw8mcnVmZ679KnfnuiK5/r+va F5RhatUbMG993p9ULWcRnKp1gCBOMnIdhpJtM1oxPnvaa7MirA+HIfjeAqvU vJae+CGF0+q1Yrq9Pm3FpsyM9LQJ5r9E3NZpVlZRWcmu6f2b324wtnz8m3yx 7f3jFxw+u/GDLvXCjfWa9pv4wYqNlmOOf8IStRlj4qYoK0FUR3JMFQVbU3ve wzcM5ji6af+U1B3HLvnpvX3reu6WFe8O+Gdd67eNMY9MWH/IFmZWlmUMiLH8 1e80BAB0DMluBi/4jR6/zpZoMyuEzPldzApBRht5p5tqZBJGHVaxdT+/uU2Y l7EOqiJ0VwyGR57frsUkFLpWhPmFqU2SNtHb+kE7QRWNtbsjkWpBJNKF4frX I29n7Le947hcH++w+Bj/+Oon7W+p78ZiPB1i8XDSzvv6rOnib5+80MoR49uS 6rsOnjh5uqi0vCg/78ShPatT3x/zlDMPwNSq/9ystflyIxrnACm/NY28S/Zf Clj+57InXOc6eUF0bsHBn0cm1fe0BOzvdzBZ2D+wzt6h0jpzODKNkXd1nbtF zRFdurHOdkzX8jdONQfdQu0RcWdcj4ETZnxsjqazdh884VgP/XTulFH/Soqx C4Y5ip+0QEndNenWSp7u5dFvI/0iogM0UsvQyXL5fUFvx1Uw9yeuuaDgKvSk k4MdNFEfMbmhhyuSKOGkW1Ue+okBzVTcSO/m2jxEC6Lb9Xpz6QbK1oI5SE7V OkAQJxV5DoM1+o584cOzFWKOrJ7M6MZhCLa3wCoxr7yOx1EdXhQ0mCovPjit V0QY0//NCXF22fUdSfHa+4d17P5knapM29fm5xTxRP3GpfTnrS0plJRhqCo5 pmsnV7/VzzX0Nqv31k8MGP/Ooq82ZH7/35zjzuKi+TPfHdHj8RjHyIBa9Xu/ u2S/S/R9euu/alf1Ow0BAD1Dtpth3W1kTStFRCX8e+Ks9yb2f6xplJExPvDo rD1yVNPeMS1tOsFf/ack+MWT941ddUX7O2kdSW93JBp67xyiELpWhK/ljKtp s/LVh3/xp9qHDyQaCarEEwgPf20lrf3CpApDZdn6XnUcroWfMJYXnvj+pPjG YjwdIq5usOLmibWzezV1a23khrFes37u/o8knAOkDExM0qZrvj7rvGQxpYAS VoSN0SO+kBaTFe0bZfB/XFdqM7N+oVXqAwmsszeotM6so6mvsgE93tCRdeZT +vuR9e+P6dTIvx7miHooSYUeXORbK3m61wGUMDFooZahk+UjnK3ZMmWbfEWt L50c3KCJ+ojJDT1ckSQJJ9+qun5BFzEga+nltPSfYj0oadRsEPf4U/3HTJy3 cl32cX+byEiG7FStAwRx0pDhMFSW73y1NXOfvx5cWqwI68hhoDXFyuucHNXp lWz3jFjp9WVP8aprfG96dS7Uch+u0u+zH6+5fdx0aEk7q4gaWvfZLm/QsAaS U3r+UPq00eJDbzPRj3b7z8fphy55fpdL83Ytzzx0g8JyIQDUgXg3o/R8zvK3 BsU3sL31Uc0fGzJdvmdb+cPMBnbloOL4gBPTbONOorpMyAlIhyWnu6Jp+xSq VoSdDzeMGZxBb/maBY0EVSz2Cjo/Jc0EI1kYnB6L/zD2r3Vj77B/dnDmdR+f dDYWqxe3otDX7zt0iP8hTXwqbuZtTZ87yTZJxIk5EH6y+4h3Plyx5X/5yl0c 3gApP/Xw/Ev2V+UOaAfW2SNUWmfbkEqDsWWntF/lNBX0jZ6sswcqbubv+37F 7OTRL3R/7OH7o/jNkcNuaxwX33XgqKmpX+06el6dZsiUWitAIVqoZehk+dzM n+HoeMgYmQef2yH3V3Smk4MZNNEfMbmiiyuSJuGUWlXEgKEA8alaDgRx0pDu MFxeM7aRkem/Ll/0kVWTGT05DJSmWM+mDbUuBxuYhi3STnt+qNbdx3aheqBb lo81XOdeacszTZy723PNDM/nfHrFaUknzKGh5PgIvRkm+sF2j3XrM/qdmWlr t+w/R2NvCAACCCVuhmq4TVFXARO7vmd1hhHRsV89bO5KZJX+Xx3RsH0KVSvC 9qZGBia2W5bPElYK0EJQRWPav/Bh62/T27lRojCY2Nzl/3A4Uf4id3t5ob+A t/TKwjZc50wj89TEkz50Q8Vfy5IiHG6MnyFNAYdfoOvHg71VMLuV/ZKD1I0H 0AqssyRUtKe25WAmqtPI7QWaFMPryjoHGVgrEEBUV8vQyW6UnDua/f33onJW trtnR8HgM73p5OAFTTqImFzQxxVJkXBYVV8gBgwytKRqEcRJQqrDwOmTOs2f GzbCDy8Piq9tP3LDuAH8f3pz/mFZQZ6uHAYKU6yluxe05zovhfkcIV24faBN Vfur3uENEa49dMlF7++WvYm6/3Igj+hKcgDQK7S4GepxdGqiSJ9fLJyNljE5 UQEWd8XAJMzaUaLpz1C0Iswrdmr89ndaDxkJAOoLqmjOzO6mMNcUZKQLAy/g 9RfGig94nZ0zjXe+sdbHyBdeATbD1GBm5ZJ1250DpPzO2OX1UouevJmsywDE A+ssAbXsqX05OGbAu/uKvAZ7eSumDH/385PyOkjqzjoHF1grEEhUVsvQyULs +z4YJuL2pDn+z1A44pAZvl1WelePOjlYQRP1EZMbergiiRIOq+oDxIBBhp5U LYI4CUh1GJyfl43caFF3DgNlKdZrx5JbVLUZnfhh+3zIJW+d13f1Dm+IMDN6 py9Jt/ucsoRHd5IDgD6hx81QjWPpne3aUl4DBHfys1JXHAicr2Lm1s+Z89N3 Fmn9yOhZES7dkmzrSkFeMCUTDQRVFLZaZf/TgohFhjCUrRtrv9lhYYM/8TXn whnwCmN8U+XZXRt2n+dl565kD7UftN2iX3wc8vrXI2+3u+vVBs4vJEp++QOk /HnO5Zsn2i9EWP1YUpCduS3/ptbnCigH1lnCz6hhT7nlYGOVFiMX5fl4PSvL 05++U155MKtL6xxUYK1AQFFbLUMnO+H3qhXXZ1WwIuxvOKk39KmTgxI00R8x uaKLK5Iq4bCqXkEMGHQoStUiiJPwMxolRU3s4SWP2LWZKjKjQ4eBqhTrhcUv 3mY/28RFh1WZXL910D022WuYsOaK3xO2Uis69YzYc+bQoeQAoEtsPW3CmGfe Oxcib2plWcaAGM6ZZ7pMyvNVtRny0LIi7Hym5AVTsgmWoP7OtRyhVifIEgZ+ GNv4vW0+3C1++yzB/BFrjXfHtOPOv/CyAb72cVTcSO9mP2QUM2X/X6LOOGA4 a9f9NwFzVpIL/Ubupk05IG+HIQgZYJ3Fo9ye2paDmYTpWX5SH9YqX5k7PnRp nYMKrBUIKFDLIpGhk4+vfpLhUcMwL8/n552rM4z8SZ161clBEVTaIyZ3dHBF 0iUcVtUriAGDDkWpWngL4qFlRViXDgNFKdaiI5Niwm3Ps3b91NO+KrOdY9x9 r/OW5CU3skuI72Jv5ydFOKgu6FJyANApRfvXfzJ/wTc/Xwr2iQQO06El7Yj1 vYmClhXhvPXPcgeOYMbv0c8DDYqgOqJd30ExucgRBr7/7KeWO3dqgiNyn/Wb 8w55CHh5HX58ZAOcT5lh7hu76gphLhMv++HPg3XmKo3MI8P28/IGlixBs25Z f2h/uoByYJ3FotCelpd8NyjWUC28/5cHS/zpHNOeOc1cUp3i0al1Dh6wViDQ QC2LQoZO5q0Zmb9laDsw23efSsGeYiPzbEq+jEymfnVy4AWV+ojJDT1ckWQJ h1X1CmJAEqAoVQtvQSy0rAjr1GGgJcXK6yBhZDqOy/Wx8Vf8Oi+vFtHPaHhn TwzpJYg6lRwAgE5wVq0wdcesUneera6gZEX4+LRO3HEje0zXVUViMATVUeI7 OPN6QH5QZWQKAy/P5isbcOHHVxuE22Q4ts+OG85/2TumJfPgczv4D8nEftcv 2s/N5FXQGVp1z7xMXALGWfLNhBn7z73q/ZMlmcnN7J8UdF2zTN2qUn34F776 sAHAAessEiX2tLxk5/ikiNpNRqw54qflaMVfhSdPbBjW2hyJ+pkf5wXdWucg AmsFAgzUshhk6GTH9sCImnF9X/kmz89Q4MofZjawO2RMVWb41iIZp6lnnRxw QaU9YnJHB1ckR8JhVb2AGBBIA96CSChZEdatw0BFirWybH2vOg6nz886Mm+M u+9Pim8uzasIcjV5ftGt5AAAdIOjcKVWzXnHCavIJAcqVoQLs4feYT2qLssR AyyothJfuc3ogo5sYTCx24Y0tn7TWGP0V56HHXFNVh1uNr9Y+saZGbHG6PHr XNJ5jtI+bzV4VzdOfIB7I+o2StlPXv20oEWhkekw7ldvTt25ncPusbe1YZi4 uT85/+no8sfN3m+Gj0QCADxgncUg255al4OrMRKRPj/Igr6tc7CAtQKBB2rZ L7J0cumOGQ+I3BvIS2CafyLyhQ/Pykiy6V4nB1JQaY+Y3NHBFcmTcFhVjyAG BDKAtyAGKlaE9e0wkJ9i5beFCWOGb/MlJX+tG3uH/bO+V5ydzaX9jYY/MS3J 8fO+K4Jc0bfkAAD0gYk9kmzTcqhh80ZZzvLODgc/qsqYHRfJOZoN3nOMHrns qv4czwALqm1gkL/OJGSiTBhMh5d34K7dpcybg0sFRN6f+Eh9zjXil0CXbklu EObJ57GN//B8P8t+Tu8RyaUCmkzNVuN1UB3nACnuPJunnfNUdVhwcHLru4z3 J7Svb/sov8b+4IS2TGy3rGuBO2tAN7DOIpBpT+UtB0uvDbage+scPGCtQKCB WvaHTJ1cWfbjpKRqBib+rZUnPS9E2bAvHlkP3+mV7KvStxOGgk4OpKBSHTF5 hPYrUiDhsKoeQAwIZABvQQSaJEWtXPnypQjHO3tf4hpf7YN9onuHgfQUq4nN Xf4Px6P0t3pr6VPBfdL3irNtLrn1TJ6aeNLHY634a1mSXZQYJn7Rz2JOmjtx nUsOAEA3XDuW3MJa+ojyFSsV+78a+fIIG8Nf6v3Y3+o6KkM5wm5r3K5z/2H2 z4x46b1t5wJzNK/Y6rsMzP2Jay4Q121JHQIoqHQPkFIoDCbT8Tm9La5PGJM4 dze/QWpxzuY3Eusb6zZ/M+vkn9YNHRY/KmHUYe5DxWfmxN8VMXB+oSefp2Tb jFbWYz6d9ovTATRVFGTO72ItqDbGdpj3E5GpAEG7GBsxQxfkCZOWRfvWvNbm LkPLDitOlh+fbmsR4yiV50KexEWH6RMnEERgnYWoY09N7MF3OklfDmb8z4/z SChY52ABawUCD9QyDzVjnPLivTMGNDIy1ds/P+/bvRfdU4UVt3KXvdXOPkwu ps+k3TKWg9mQ0cmBElS6IyZPUH9FSiQcVtUNxIBAJvAWhGibFD3733df4b71 Sv9OD7sc2VivSZcXh3P/OvyDby6KfxVDwWEgO8XK08A8i+MRS3P+cFGfLNo3 ytbqwnjnG2t9dZrhVwTVYGblis4ChILkAAD0Qumu2a2sei6y+9u5fsY36Z+y dWPNt6J6k1YJImjf/F6jz2k76h7NM+UlG/paW6hVZfqvy1d6/QQTMEG1Tbjw 15mERFQRBnteznwH2g5NWbEpa+OXC94e8M+64UzdLsPX/Hbd4tZwGzqsdyl+ 3Ceb1q6Y/ERTayzs5cGYKs+ufSfe7G9GVEt8xXzMzIz0z6b0eTTKfISIqkkT Fx8uItdZ4g2QYu5r0TLK6kNGdxycsjQ9I9N+c6qGtRyckl1ovXxbUzUDUzd2 zGcbN6a93/PesKguE3Kk7i4EIQ+sMx917KmzR5lU/IWN7oSMdQ4asFYg4EAt O1A9xinat+btZx6KNDDGes17DxuX8tGSbzZnZmZ8u+Lj/xvxz6ZRRmvOslXn Kav3XpO34SKUdHJgBJXiiMkLdF+RcgmHVRWCGBDIBt4CHy2TovY20WG3NY7z dsjEFrXDpTWRDhmHgeQUKyc2VoTD2d1xDhEWBuxmA7Rrw+7zvAu7kj3UflDf MuaYesAwhmpeSp48EDKSAwDQCSb26PRuXEVo12XHyHXKgScurxnbiItTxEzg oprACKqtPYiBaZK0ibaBPyoKQ3HujtSJw56Ouz/KaPbeH+469M3F23JL+Mc0 VRTsWDnh+Sdia4dbai+HvbnxlB8nsvR8zvLkV3tZi0KN9ZolPNNn/Jy0Haeu E61znAOkrC1ozlUU7s/4ZPKrvTo+0jjSGnq07fDc2JTVB84LdrTcvLr3i5mD O7czfyaqSZv+KV/+Wkz0VQJCgXWmmRCyzkEF1goEFKhljSk5fXBD6swJg5/v FG91tCwbfJq1f7LHv9+atuK/h4vK5R85tHRyAASV5ojJM5RfkVoSDqtqAzEg UAK8BZoJIYeB4BRr+eaJ9jVZPzuL+f0ceq6+4PwH6z7fjmnHnX/hrQgP3+7d clXcSO9mP6SUDdQhJDkAAN1w6/KyrvWt/fmbzkMRG0Wc2znM0nDJaPzHsL2+ qqb0QgAE9VrOuJoWl8jYfy5lyYBQE4bAULh9oL3g0M+oEQC0ANaZUqCQAdAr UMs0EoI6WWtBpTdi8gbVVxSCEq41iAGBQuAtUEqoqVNCU6z23d8i9vPmTk1w rN7O+s25dMytFE85wKsm5LUL87EibDq0pJ39pyWs7Yaa5AAAdEPBgTeaWcog ozqP3gf1RQUO292kXdqJkHEytRbU46uftNbI9dtwwf+HySE0hUF7Kn+Y2UBc aSIAWgHrTB1QyADoG6hlughZnaypoFIaMfmA3isKWQnXEsSAQAXgLVBHaKpT MlOstnVkfyvCF358tUG4rZ9DbJ8dvC79e8e0ZB58bge/TbWJ/a5fNHfMwZnX PR+wsixjQAx3QEOr7pmXxan/0JQcAIBeKDuyrm+0RZc2GrVMbJ98ECxM7MF3 OlWzzKlpMjX7YrDPJqBoKagmNnf5P8ymv3Wf7X+oe2QtCWFh0JoT05JsbmhV ZvTOkmCfDghRYJ1pAgoZgBAAapkaQlsnayaodEZMvqD2ikJbwrUDMSBQBXgL NBHC6pTEFKuJ3TakMdeoocbor256/IxtejtHGPPMe+ccJ3/jzIxYY/T4dS6r s44BwS1m7vZ4yKsbJz7ArS/XbZSyX9wZh7DkAAB0Q9nP6T0sg1GYhOlZRfBY iMVkOrH43w0NoWtxNBTUW4XblsxZeYCeuxrywqAhtoknDL0zxYBugHWmAyhk AEIGqGUKgE7WTlCpi5j8QuMVQcI1AjEgUA94C3QQ8uqUwBSr6fDyDlzrfpet vhzccnDk/YmP1OdWhMMGf+LY4ly6JblBmKcRwEVHJsVYejszHcfllrn+o+0m SFrbDXnJAQDoBlt1EDwWgrmakdw65AuQIKgcEAYNuZg91GgrOKRyphj4/+3d S0hUYRgG4NMgLjQrKMKQoEV3IgoJqtEgkRZabYpqEe0MCWvVRewOLYQICwlS ooHIFpEujO6Im6KCAkWQCpSCwF1gurF0ygulRZGBQ8czz7Od4WcWL+85P/+c 80WL0gs/hQxpRS2HnE4eI6hRJeGpYg/IlFLC4adOv4YwqMnk25qdWaOP/xZe fDow4ZO+trtHChfGcldUPuz61Fq9fOzguKCifexLfe9q4nOz9tX+9nnn/pbq taNrliY6xs+Ek4M9D2pLRgYBB7GVRZdeTjYGkgNEyUDn40P5c4OZQfkjnRY6 Q6+ubvzHi1RUCaowpNTEAVLFiTf/++eA0gs1hQxpSC2Hlk6eSFCjR8JTxx6Q KaeEw0yd/hC6oH7pe1G9d1Fs5AB3Xdm5hjsPm69fPrl3c25GkFtS3vi6d2TK 79Dn58eLs0cPeeOHr9xpajixZemMVUUNXX+Y55scet90Jp4ZBFnZhQeG13xw /9a1U7vW5wyvkJVZXFXf/nGyo+MlB4ig/p6WRM3tjuk1RyctJLuf1NXfmPxF KuLSO6jCkFLjA6RmB+c7w/AvSUj30gszhQxpSi2Hkk7+laBGi4Snjj0gKaGE w0qd/iR8Qe3rbK2r2l+avyQnFsxavGZrWWV9S2f/xG5ODva03jy2e8vK+Rmx vMUl+yubu/9wHPzdwIe2G2cP7ti0OjcziOUtK9i+62hNorW7959CIDkAABFz b8+cYOz9M4UVbX+5owQAAGB6swcEAACAdNPTeDo+b8aCDdsuPPMSGAAAgIiz BwQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAYHr6Bpu2iw8= "], {{0, 232}, {2566, 0}}, { 0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->Automatic, ImageSizeRaw->{2566, 232}, PlotRange->{{0, 2566}, {0, 232}}]], "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}, { 3.7515637854363947`*^9, 3.751563785437606*^9}},ExpressionUUID->"9b947347-44b2-4924-b1db-\ 5a028af71dae"], Cell[BoxData[ RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"I", " ", RowBox[{ RowBox[{"W", "[", "7", "]"}], "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{"Ah", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], " ", "-", " ", RowBox[{"I", " ", RowBox[{ RowBox[{"W", "[", "8", "]"}], "[", RowBox[{"ii", ",", "jj"}], "]"}], " ", RowBox[{"Cmetric", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"Fh", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", "-", " ", RowBox[{ RowBox[{ RowBox[{"W", "[", "9", "]"}], "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{"Bh", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], " ", "+", RowBox[{ RowBox[{ RowBox[{"W", "[", "10", "]"}], "[", RowBox[{"ii", ",", "jj"}], "]"}], " ", RowBox[{"\[Gamma]5down", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"Gh", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", "+", " ", RowBox[{"I", " ", RowBox[{ RowBox[{"W", "[", "11", "]"}], "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{"Ab", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], " ", "-", " ", RowBox[{"I", " ", RowBox[{ RowBox[{"W", "[", "12", "]"}], "[", RowBox[{"ii", ",", "jj"}], "]"}], " ", RowBox[{"Cmetric", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"Fb", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", "-", " ", RowBox[{ RowBox[{ RowBox[{"W", "[", "13", "]"}], "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Gamma]5\[Gamma]down", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{"Bb", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}]}], " ", "+", RowBox[{ RowBox[{ RowBox[{"W", "[", "14", "]"}], "[", RowBox[{"ii", ",", "jj"}], "]"}], " ", RowBox[{"\[Gamma]5down", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"Gb", "[", 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.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}, { 3.751392860232911*^9, 3.7513928777985783`*^9}, 3.751563016415948*^9, { 3.751563068038843*^9, 3.7515630705765743`*^9}, {3.751564089592019*^9, 3.75156431926234*^9}}, CellLabel->"In[78]:=",ExpressionUUID->"3b22c2fb-6385-4ece-91d4-c875f87f2d56"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "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}, 3.751563017655813*^9}, CellLabel->"In[79]:=",ExpressionUUID->"43c5953c-a7a3-454f-a0c9-277e2ebb0243"], Cell[BoxData[ RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{"Gh", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{ RowBox[{"W", "[", "10", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Gb", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{ RowBox[{"W", "[", "14", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"W", "[", "13", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], " ", RowBox[{ SuperscriptBox["Bb", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"W", "[", "9", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], " ", RowBox[{ SuperscriptBox["Bh", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"W", "[", "11", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], " ", RowBox[{ SuperscriptBox["Ab", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"W", "[", "7", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], " ", RowBox[{ SuperscriptBox["Ah", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]], "Output", CellChangeTimes->{3.751564343689372*^9, 3.7517271795342913`*^9, 3.7517302495835047`*^9}, CellLabel->"Out[79]=",ExpressionUUID->"c543ff7b-746a-42ee-ad6d-3b6b477d6164"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnQt8DOfawGdnQ9tItMKH1FGCoqEX108lWoekblEtWj3itIK4FKWoaNya NnxK63LaUkpzjgjimgqSqNBDtISSFCkSt1CJS5KylNxmv93szM47s7eZ3Xcu u/v8f79zfueszey878z7PO/7XINGTRk8liQIYvrjhv8aHBXz92nToj4e8pTh /7z1wfQJ4z6IHtPvgxnR46KndRulNXw43vAf0vB94//WAwAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAYKTizM53QkIS8h8pfSOqA2YGAADP58bRyc/4EISG bN8r6SKIOwSYGQAAPJ6ik3M6BhAM/uHvZ5VQSt+TOoCZAQDA49H9sW5AU6OM 0/q0C25FmsRd3ynZ95S+McWBmQEAwOPRXV8/tI3GKOiI0IXppQ9K938UVqdG 3AVFf1PwUOnbUxCYGQAAPJ7K+/+dGkLQgi6jtJr+8NBMWty1nJ58p1rhe1QG mBkAADwes0zzfSx8CSPoeP+EykDvAWYGAACPh6Lyvx7RwCDN/GpFbjpTYfkF g7ibE9FIaxR3AxJOW/kCLqoeFuxP/va7pOyb6gi/Uc/MAIBqwbRsy/8488O6 fyWknyrzpg2VKkZtEHRrRjfT2BZ0or7mCuV//hDVwc9ofNdourybdV+K3xCD emYGAFQLpmVrTMMJ9DFF33VZnu0lekAloy7JWNS9ljAJZhZ39QJjDt/EfifV R5Y9Z47CfFKzogD7L4hDPTMDAKoFz7KtrkgZ0oi5ipYYurjYG0KwVTJqXX5c Cx8Rm1ha3JFEj0k5uG02VT/GNaAnhCT6zy6ownx9cahpZgBAteBZtpV314XW NovDiMTz3qAE1DPq8oJDu7KvibBjUNVXDyQfLJRA0umuJ47s3qhOQMf3Ps6Q 4voiUdHMAIBqwbRsdYfXDH72KbJJ21Grf/KeQAvvHDUAAAAAAAAAAAAAAAAA AAAGKKpg8/ze9YneCReUvhW1ULkn9jH/v0WCwRkAAI+HTuLWkO17bisEkcdw 50xcl/qEtla7iaug1BUAAB4LqwKg44MFTC10qHkIqBSqqvjItrnDXgtu6EM2 adV/7OyNv91S+p7EcOf0oleakgTRcu5ekD7KwKgAoknrFXnwEKxxef97DX1w KgIsy/ZhybFNy6cMMV2kTeig4Z9tO+b5hSPkGjWlu3WxABf5hWWSraxK3bFF I5priS7R8UmpGckxA41l2fyICfuKpPpFvFD6X2N70PkefWMvefwLrEIo6sKy ob41r82o1EKl70a9VBz/7u8aTMVvcSzb8rx9H/VoSgb8bejHXyTtyti2/MPu vviLtFMV5RUuZ2FhuYgJeUZtomLndAI79Z7p1LNf5NTYFckZeSV49MLVhOhm TyCZucUH3jX+kjoqCAmAyt3Qi54dDdFqYIZO6RvyPm5vn9685gF0XpAp4Stj LJW2ZfnsyUN6d23hZ14RTULfm5H063Xny0YZd9RbP323f1CNKGgc8tZXJySs PVL07zH1azYsYStPuFLqyvVlW1M5h/QPi043p5hR+sxRLUz7qfB1p3Hlz+KQ hNg2eLKNmv45KbQAim9Ax8ipazLz7rswOVTeln4k0XlJVrn5oztZ0fT1iXm/ VmKYCEkpv5vYj8mbN2iBoLDUMqVvycswvUIG/PvH5DyQ5jcM5/d/Lxjc5imb a8Gv1ojtF5xYv1TZxQ2jQ/w519IQzdolXJbsSFl5f+/IYOOBoN5T84796dw1 MCxbo3lKa9mhr2CBaUtFEv1iL2KaAxVpARlHbYK1CJ3/LWtfxq71X899u5u/ 5fiebDJi2abME2ft2YNO/ZyRtjvp64UxUe90bODDu0Bg2Oh1x53aC1VXpI0I IkLGZqObh19XvshM/JTD5Tb/Vh3c3jypIWcyla99513oriwLqWkAXe/x+FN/ SfELpcc2j3shgHCAU6LbGLpj/cqdlx+XsJJM4YH3jOYbjabDoPTb4n/H9WVb fnfLm88Qz/fZVcT/9VMxnen5xHes5tjG889lH0hPT9m8Km5mRGtrat3XP3R0 7JcJW9LS07Jy81kheP2Oq8JI3lHbpPLBlkGNuGP2IccliFs8j+7m7ds49/UX a0rImqeudtic9b/rRL5RZzf0JIiwhPPoZ1eWDqQnpFHrhOviric3t0/NCOLq RLc4v3gMlP7kJ+GmLm/t4zPxl/KmqPz/fNjJ15EGYGjxWaaoBWB7j+rj88FG SV8j2i7knIPA5WV7b8c0w/k5cqeFB6e6cssA00aVJLqOPS71HvDG0cnPcNev lM1B1DJqw7i/HsJ74TotP+HMhaiq4sNJvD2Sf69/7rokwllgfHMCOyUVIx89 ur2yW216Qt6IL1S2mqh9WKcwh/EHIEBFJhhfp4YIHpghgSHO7G4wyYfwZZkF Fy/m/Lj1s6EdOFsgGvFLmKosPZ+9cnAbi4tJrgX0D/9Y2qlmofkRU34qFfWn ri5b408/br3oaFnOjHr0dGujvr1n5Y8xs/cd7nFAurO8mkZtuf14edVp5y+n u5YysZcfezEN2b7P6hxh0WLGYqpP8CppU8dXvsRci7fZUBuIU5gDpKzKxKNb 68Ia0PIZt0/NyKX0d5hav/x8q8oH+8d3tPLs6/mtyBd/I6U5M3gHdBm0gF5/ Pz2ujUlu82w79nF12VL63LVdDZul/VZUD/XLsjbMdfonXRF8T86TNz8UmXbp /HrqGjVmLaBnAsZIVBEIzdkp/nlr+vm76CfHpranL9Ow6erLKq4sTjuFNU/W rcubTyfPVoBITOdr6Q4CV5dGmB4o2fyFKRuO8mO5i7Oin7CiB5w7CfJ3pFpi +A83sIzCHubjAEH0WJUrfLG5umyr/iq++ofVkBLWUuFHxJ+WI+SaccsyWkA6 s7yaRo1fC+iR3uusInAqf/9O9iT6KiQ5bHGRigPva5zCGk3Hf+xZM5E7nXLs 4gCnJZhwSg8lzJwdt27PkcIH1i5vju7DsZq4WoDU9Jp8SqJgJy6sJn3utdRb zs4irmXLmscNmv3tg7LMgHxawBZKjFoSLaA3ub+bopd1ImyPeSeNDN4q/V7I aUxOYS0xZMuVqv3m/komtGTk8hKlb9DjYcVXUMh2hRp7PkjmbQCMYvCpj3aI 9mVV/ZUYZvZAy5v7bOqjV0P7z7OcUwPYli1iHpdtESmvBZQYtVRawMC1Q2Of 5jjcg+eniUjhYTtvGhYC1/ekKhinsN+bCwuqaHMfqgUgfVhyyv9c15MWm42n JiuUpUfp8za8ytcCzizk8sNLO5ilUONW87Nk1WoXFoTTP+2cYQ3fskXN4yGr fhP4V/f2LgwLCUUIiRg5bclOodUYnNYCVNnVtOVzIvu9gv526Cud44+KS1t0 btQuIqEWQMLPaESFcF9NH0b/GVl3/H9kcJQ7B+0UNg/tmvm26ZsnOrx7RJK4 dYCG7XKubFxuafYkfnCP6D1ATSYpvXci23Zb8ovsB5uasE8TA5Iui/5zfMuW NY+LeazVZ/d8+EbPoDoED4HVGJzTAtT5tJEt+bkGxkpKIydvuyjuhXRu1C4i qRZArbW0SBTchPrOdyPMKykqTa02FSZTmD3mmFMmRb5IgJOwBnmZgqtt8qh4 6Yu8xSTOtFuS+XV/5vgsNsoaG6w9iiR6z8gTGSuPbdmi5vG2AzNE5jSXX8+1 DLhtEbPT4UJ0RguYg9PMaDVdPlydJzZbSu/qqJ1GWi2g199ePxpVA0RtYtRe AdWl0Hjj5986iDwI6mbernS11Bg0OYU5rjRLUQDpw5KCBOeIzdLCDKVPGcyL EBO8B6jUnfpqQrDpldfWajfhX87IEEyw21F/Ij5XzHYU47J13TxuziJnVyKx JM/BHTihBR7uieXqAMJ/2EInq8Ap4RTQS68F9H+YikqZEbbBQI6lgTN3olsi Y4pKM3UU50GcwuyHxvBpjt6TLdzLO7m7eeLjpnmuTcQclSjLUyiHx7fkrSYh ewCq+LcVdN6ZhmjUaoJlGKrMIKtPnGLFt2yxmMdRP7XA4YjWApR+7/BArg4g 5h130gSsiFNAL4MWYL1FDL7EzF8czNLZ+UwSLm83Ytxs8FNUlIHjFOb8Cz/Y G9KHpQP1Rcp4grYFV4bUYH8PQFVf/eGL/k3MVqCR28/dVfzV1t8viGtuuiNx RjaMyxaPeZyNWWWGEzop1+5wRGsBXd7shtyfEG9GM6OIU0AvgxZATYXMRDlw G7Hbaf6UUqfWvkzIkkHjCL5TGIGpBMUiTwKgN8KeNFURkWvxqhuxtQcoL8xe OYIpH+oXELFoR6Fqen6xaV8CrCg0GJctLvM4J+aWEBK2JFoLXNjah/u4nTdL KuQU0MuiBdjqguzchqXaWbGIg7Xd50fYz6sr9o8JligzVByWTmEEyw0h/ikF aqj6kc3OkPMEbQur5eCs7AEqdTkJc3vXp48AdUOHJ+Sqq5UemvsgtHILxmWL mMddPPiz6syEP7HknL3LidUC1T99/gz3cTufIoFv1GKRQwsU81wDRhPulEO2 w2iRQxa6jzLFUXOM8AphxSmMYDGlkD4sFeyxSwVOASP8DY+VBaXL2T03vDVd YUVlRwAGNPdB8CEL37JFzeMchSIeyy2ZffOsWC1gKT+dNv9iHLVY5NACViLo 7J6bkGT8qHS6PklNHDURNG6d8mVFrTqFEdANqmkdyVMY0OtgTRAqySu0zBkk 0D0AVVa4a/aQ5lr6Hxr3fz9Jtd20WZEuOOEF37JlzeMuK/e7iWMk1QL8mswu 2PMxjloscmgBKxF0WuL1z67ZMTcyecf+YROT9uzeED+hcx0i6O3ZR0qUdp3Z dgqz34D0YXlgz5iOvX4ywc8WIeg9gNELvHQI3cREQzRqM3rNvmIVnF1sglrU HVlRWLAsW9Q83ix0+x3nBkAjdq8uVgvwzxpOh4VjHbVY5NACViLoHE8vdfP3 pHljB3R61t+3QbuwobMS96th1dhxCrNYpg8rm83koSAnaNWctljTLvL0Xxz6 4dtMAwKttv3IuAPX3CBmDLWoD98l1PGOYdliNY+7jRZQzimgl0sLWImgc8dc KrtOYRZIH5YF9LCvcL6YGWvGTzP+HfosTHOpK7ecoLYOOc3UeM3jlvLNfsCe UlpAQaeAXkEtoBJ3nhjsO4VZLEVBQOBq5X3angYakauWVj780EQGv/oRn4pv wKooiGQQ34XWBfCax8XKN7FagN+Vxln/lIJOAb2CWsDtcqkYp3BE4nkHi9lS FAi3rLpIye/rYt6foBLmf5UjpZkGzc5Tz7tkmTNI+BExP6sgF0wcqHtLRscW Wx6WX4PCKaz46/FqAe7jdvbUj3nUopFHC1iNo1bPynUM7RQmib4zzgq4a6XS h223L1cGCUeNHrhUU6ODKrv+/RtB/FlwR+Ongcspg+gBYDZpUsW530YPCPLz CY6cx3McV2QtNbeqxNMtiB2FCQcdH8RpAdalS1+c6DXjdxtXl3XUIgEtIATa KSy4Qgj3nGhEni451JnN/fx9LKdaEciW7ddJt4NE/bBqELNVD/N3mKOAuGiJ KYfdMDiAdW9hDcStepjyFtt/imPKY4tzkuSrY49hOUjy/fUOAgnEaYGHhYva CLu4zKMWiTxawFobJvfRAkzfNCGVaU2Ye9RKOqteDSqjZI+s46HLSZ038EU/ fnMBFnP8vDvBVhPCqme5OaTs7ojSn1040Jd+oC+sPo9JOPDNsw6CisVpAYt8 WJtNxmUetUjAL+CQe6kfNzM8o2d7bL8h9KxmMatOdR4E7CCZvUIUVNnFrTGD zYlg/p1eXxwz3J/g45Z7ANTmhrG4GdKLx7/vlGzT1vdh6f7YiEbGadSQ7fus zsGZTMfWuDO9LXbPNaK0ABrYY8SOY1f2UYtCMS2gbFso4ZSemS3QKYxgUV0E ikjgBfX6KaQFeCaggKZvLU4u0FVbSx9WTSCrKLihbtj2bJT+5CfhxkqfAQ1H fbUzPW130tJPR3ZraiypUa9BxJw1uaWYp4q/GO2WrxGlBbiJw3bLo8k+alEo pAU0RKPWCdex/w5uKP2ZuDDhTmH2zyB9WFoU1gLl+T/Fv86YgLQ+wcNnpxYw UUB8d6RUe4Dy/P9+1Lk+0WNSjkRHaom0gL5Ggaaunjqkb8dmRh0a+Hy38GFj 5q/deuqWNCPhF3+2p5RFaAELW5ODUskyj1oM8mgBi5gZ9+jGS+Vt6UcaNw9R m38rEMUviW/wxquSEgceAqoF7AVm4OdhyaHPRwczfYSsJIJZKyLhoF6KSKh7 RVnfTO3kK7EG5AbAuIv91ioXFoRzFqPtXH4RWoCn7msT4/eXSjYCaZFDC1hJ pVFFNXgHME5hHED6MF6UiGanqooPJ417gWli6BcQ8X/JBZaJYPy4EQKLnqJ0 ty6eOXEgJXnxtJEhjXzkea/UmZHhDAUpnF2ZbaOQcC3A1ywuNJdRHDm0ABps wKCGavD2qXEK48JNLGBug9xawOgFnjKgEeMFDnpz2jZbTcHK76zs7MN/+i7I at45mmzSevis+OEtMFxZ1E+7txagTbvsE6nz7lfF1t4ZoVrg5rFJgchTrk1E 7iyUeAwSIocW4FdXE9PASCkYp3D4utPOuG0sjz9qiGn3HLgWIUmti5xyoAQZ 1DUm5ZT9WkAW9k+X4u1PrZoy4f3J85YsW70x5cCJc6UVqMVeSi3A7aDt3lrA QNn5uHZIQ3A/YsK+IstvCdICTGFhhzrFXZBBC1jU21f96clJpzAH6D4sJTJ5 h6mbv38fxTSF1BJdJnyRVez4IfL7W2HfA8ijBaTzDitE+ZFvurM5HRpNh0Hp t/lbPCFa4H7mog7Id8jn++wqcr8QMBQZtIBlH15FsqSFQzuFBWcKW8VSFAgv zws4Am2GJY0kpKqK0r/q/zR96ieDOs3LKBC4c7ESF403fRi0gLPcTo3r9Bg7 KP+hn5zlenYcaoGavjmIX6Zxq/lZN2UdgwRIrgUeXFkU7MOZ2OZdNl5XsRIQ nylsFUgflhY0dxi7JHxYmhnHNgULGvGpkCOAGauZ8jjTh+XXAh5kzyzJWNS9 FqIIwiceKGIfrn0tUHJozeCnWWlGBr0Uf8TtVYBeei1Qvi+O153ZQXF+paEz hR2Wj3aE5cTKkTrkPTVFUS2A1/Ne9Ovnfcx9gWsN//5omUiTb+We2McttADO ZSWPFlBbpSZ86E7uGPd8gPnRkG1D4plwX1tawNgtdH7kc8hzbRzxQXqhJ5yP 9FJrgeqKtBFBnFlV+UGAcQq73uOen10uS/qwl9YUxSejdCeT/8Gc98ngXitO OLHTs9p9GOseQB4tgOrZoLDUMml+RSkelhxaPjX0f9iNfWDP4fPWpm6b8jLy 0Azy6rU1B/YnzBvXnY3OJfyDe8ZsOnxTzZ5NkUiqBSqOfYPOqUG6hq08od7J o53CGr9/fHnV1Swk1HDNDB5r6pD1X/WemqJoFBYmqztiK9CQ7XslXXRWhVkG xeHtiSmPFriwtQ/zJD21ZSpVdjV91WdRPVv7kwJeaN96nYa9v2SHR8l/ExJq AbZiKo3foLl5Kj5C0U7hgEZLzuC4S34Oqbwprl7A/pFPmyfXdc87x1zs4jtg JX0Ya/K4LFoAbesswwZGWe5fO3t46/ov58yI/F9uouiTzSOiJ89bvnbbgZ8L H6jYiOEaUmkBtmIq87oqVzdVEIxTuH18Jh5Vz8+Vg/RhzKD+dxdf2oqcDX3Z I5TL+3Yr3YexOi9k0QKIZPCiirhie415BhJpgdvbp3NEoH+tqQdV7UyvuWGN puPbB/7EdEW+KMDaqgPgOGFd87noLi/qWBt9VK62/+a3oKKxdWApv3kh7fvl c2NjM64L23DLogVQJauWts7SA1oAjxagqq/u+CQEXVV+tSI3nVG1Le3aobFP 43EKo/ATxzwr0EJ5WMO1S0Uk7m6eyA3pweDHt5I4RpDksMVFvJvUXfvh4+F0 5InwWuuyaAHW4KZEP3SlAC2AQQtU6o4tGtEcdbUENBqVrG4VoLu+qncDKfo+ o4Zrk6xyy86DqoWtGOzSauU/JsOb0PndIw9curW7iWMstIBRnA5dj6yFopNz OrLxin5vLiwQaHaRQQuw1ZC86wzrnVqA2yjBiM2maY4ozd4+o0dTVAOQbbst +UXVhiCq7NK6oW00JhmNuyiZZfdht+w8qFpQw4s/seSck847y1ofBoKivsi6 dMd5nX12Q08rasAg6/2GLkw6kldQcC53WS9z7ITIkCQZtADbIZEk+sVe9GjX MIo3nt8rH2wZ1Ij7mvqQ4xLE1U14dDdv38a5r3P7rmq17aPiRWVc2oOqKj6e 9u2cyUN6d23hR9Rt9VJE9Kw1/0Uy+ivLy8W+qFRVUWZClLlQsNF/3S7hMr7X vejXj9rU5s4t0WLuXlUfi9wNdA/D9nIViVUtYML50KNHt1d24z99G4iPSpVe C6DZLm7ZKM05TOlCKLitxDaRQsRZ/R3drYumHijnf8val7Fr/Tcxg6y1zH6y yYhlm9OPnMy33UQl/9TPGWm7k75eGBP1TscG/AB1K603XIDt6xQQNHDagqTU 9LQtCTGGT3wfC1+SUVpx//DCyOceNyylntsKHf3koz8LDWPfuyPhC6bdGxey 7auzVm/OPHG6sEy0/iovuUbPTEryio85aSYsfgER879LzfgxO69mHi//gWuW vBNUWAXO2ePcXHL70iKvcfj7WSXOyz9BlcmNm6UF2WK7DUqvBe58N8IsBsdn eppNhJWExhV7LvtAenrK5lVxMyNaW9sP+PqHjo79MmFLWnpaVi4iFK+7cFTk glPEOULyxFLt4y36j1y++xi2rAqKKtj48cs1vjP/Xv/cdQmRzJW6kwuG+GqJ yFkxnZjfd7Bzq7yX+FqA7bvnjER0gPS9M7Obik/XAk+Bi7CuAecD8uk8Ec5z 8Wk/7oscF1vBVt4/NDOsjs1Hb1wsK34SWqGOg9RagNLvHR7IXN92L123BYck xGRAxiviBCCJFvBt0O6VfpFTY1ds2n382j2cJ0eKyl8zulnNUcX6rqz8bmI/ JCvNj4g/bfepiNACZOCE/4jbBpZmT7I8VTmkIbHkNDSldwk2Gqdh09WXnXwB Sw59N/Klv9W0Am8S+t7Mf/98Ec9GpupR3qbFUeEvNWaMQ3VbvRj+9nsxyxIO nL/lvPqXWguwFYQc9dJ1T9SiBbCLOI/jakJ0zfzYM9c/3BPLzJGGaDswA1eo P+A+VP/0ublcodOuATdDYi3ATqmWiErzuJOAagARZx+2H4SWiEg8b3OHx0Yy aImhi4u9xYkFILBGIXdoZo0FibUA0xBEQwQPzPCwInKqAUScA9jecCQRMjbb Th3qnLXdmH2gq/megNvCuHe9JrJdUi3AalUIaZMMEHGOuLHmn+Z2QPa7krG5 Od6U3gjwOb+lL/PCDEi6rPTdSI+UWoBtCKL+5uBuC4g4B6Ahu478fYfHt6TX QrPQ7Xdku0VAZbBtLEii/2yhGbjui3RagJ1Jt++orl5AxDkCKeriqEk9W7TT yyxmgAXUqbV0JwvXukW7B9JpgYKUN0wX9iVm/uLp06gQIOIcUF2RMoTNZXaQ tHg5ZZDAbwIeD9LVrvHUZE9Lc+IhmRa4sCDcdF0RRY0AUYCIcwja6tRR0uJf O6c/wXwX6vMA7D42oN6KCx5ty5BICxRnRT/hNecppQAR5wC0S6PjeA8mXQh3 83HATaEbhnr+cYDTEwdX5w5k9gInJpZ4tBZVDhBxjqn6MY5JkXBUEOBR0dIO PoK+CXgP5gA8D9rNVh3fNHHcBJrxY4a+8kJjXpk67WMtXu4bOZb5zoQxn2Ve E/0z9ElKQzzbY/sNb7E9yA+IOIcgmd2Ouv6xFjNuOzyq+urhH45cV3FrS0BK yg8v7WCybKu7ybVwTIuibqsOoQLo/pyxDoboFiGV9394p8arUpuI3FkozTgA IyDiHIL0EHTgDUFUKrduwLX0Yd7UIA/gY254bT8lE0Aw94dtOT35DtiCpARE nCMofe7arszA7e9n2AYu3PYipqkT2rkP8Ege3U6MaFpjd229wjPOA5JiardK kOSrY495XuU4dQEiTgCIA93eFN04OvkZph1e8NsHkeaARn8K7saRgPvBtPjx 7zslGySbHcwas9XLCfmgMaUHRJxDKH3mqBYmU9iTUzY9tPod3fX1dI9Igt8I 4MGVRcFk4Myd8DYDFWd2vhNoXEfNJyVCDqx1KP3JT8LrGORM41bzs1TdGdZz ABEnACp3Qy+TW9yqvjPNj9+zPbo2tfSwGEugaD0nOARwkYrftrzpZ1xGoQsz SkER8KCL24MKkBsQcY6hqAvLhpq8ez2WH0HDo3Q5ez7q0ZRs/NysjIv3Di5q y4uh0l1ZFlLfF4qfAAj0iQAUgQUlaXEd4RSgCCDihFCpO7ZoRHPSOEtdouOT Uo0tkueO+HtjH6Jx//Hbz901ekqqK47OrmnnpyVCZnybuiNpzmutNWK7eANe QHnejx90qk/4EeP3gbijqf51bXeDfAnuteIEzIkSgIgThi7v4OrYsQM6PetP EnVbvRQRPWtNJrejPVVVdHBjzLDXghv6kE1a9R87i9O1EwDM3C/KTFi27bQ3 NWqyC3Upa/WaDbkuNlYGXANEHAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAGCD/wffDuVS "], {{0, 104}, {514, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{378.5729166666665, Automatic}, ImageSizeRaw->{514, 104}, PlotRange->{{0, 514}, {0, 104}}]], "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}, { 3.7515638106423197`*^9, 3.7515638106425323`*^9}},ExpressionUUID->"5883c227-e983-45ba-9d87-\ a24584fb1294"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{"Ah", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "=", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"X", "[", "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}, 3.7515630183935623`*^9, 3.751563082388885*^9, {3.751564386216909*^9, 3.7515643863432903`*^9}}, CellLabel->"In[80]:=",ExpressionUUID->"7ad6057f-cbca-46ff-b77c-aed56151b401"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"Ah", "[", 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, 3.7515630188387938`*^9, {3.751564413054833*^9, 3.751564413408669*^9}}, CellLabel->"In[81]:=",ExpressionUUID->"66355d21-5a2e-4215-8682-14ea03aa419a"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"X", "[", "1", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ RowBox[{ RowBox[{"X", "[", "1", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]], "Output", CellChangeTimes->{{3.751564407206102*^9, 3.751564418046207*^9}, 3.7517271796347303`*^9, 3.751730249692487*^9}, CellLabel->"Out[81]=",ExpressionUUID->"6a18413f-de40-4aa0-bc17-2ac6e0cfe2f4"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "1", "]"}], "[", "3", "]"}], "[", RowBox[{"Ah", "[", 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, 3.751563019229177*^9, {3.7515644147412148`*^9, 3.751564415203998*^9}}, CellLabel->"In[82]:=",ExpressionUUID->"abdd079a-76e0-4a9a-a302-5b52eec9f279"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"X", "[", "1", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ RowBox[{ RowBox[{"X", "[", "1", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]], "Output", CellChangeTimes->{{3.751564407305616*^9, 3.751564418127355*^9}, 3.751727179704878*^9, 3.751730249795556*^9}, CellLabel->"Out[82]=",ExpressionUUID->"502a8eba-9478-4d90-8425-904c01400628"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnQtcFOX6+Gd3kYzAFP0r5PECmRe0UlCPBpopZCpmiZeOcAo1vGReyguF tzD05y3FTE1TKRVNvGMKmGJHoQJT0RQvoAaa4AXMwHS5zP53dmZ23pm9zsw7 s7PL+/18zvmco+vuzLzPvM/zPle/MVOHjlNjGDa9vv6/ho6Ofe3jj0d/GtFQ /3+GT5k+cfyUmPcHTJkRMz7m4x5jNPo/nKL/T5b+88T/1iEQCAQCgUAgEAgE AoFAIBAIBAKBQCAQCAQCgUAgEAgEAoFAIBAIBAKBQCAQCAQCgUAg6ixVF/a9 ExycVPDE0ReiLNBjQSAQCATCLm7/OrmlG4ap1J36Jl9DepMGPRYEAoFAIOyh 5MycQG+Mxivsg6wy3NHXpADQY0EgEAiEs6H988KBTV8mpZ99UCvjr1b8uWlQ C0JZatw6BrRRk3rzjam5f8t4DQoEPRYEAoFAOBtEXN7XjTwCd0vMlcmaqLi1 ZVg7FaExsZBF6eWPyo/ODH3GcA1+MWsKH8tzEcoDPRYEAoFAOB21VfsjmtHe dA02bGmpDN706sr/TQvGKI2ZUV5L/eGJWZTefH76zvtyekgUAnosCAQCoXyq Ky6mfrd61ZfL5nw0UU/0yNBeISHdA3svTqu7yW3VDzeFuBtNifCtVyQ3JYzK 0eOpsGW0xuT8FahMpaPmceHRnV9/k5x7RwHrr5zHgkDUQWDsBo4JFiPkBtfl b3sVM4P/58fqcmZbxckNQ19oqG7efsz6nyTXUzhe8FVUE/1D96wXueNClekH 9HpzTngzDaE3ByX9buYDsND+dWB0F08inKBSdXs3q1K6X7ID5TwWBKIOAmM3 cEywWDkUpY/wbT34o/hNe4/k5hcW3rqv5XwAry4vvpaf81PqljVzo/o8P25D mUOuEwrEvRTqKTiTvXxgC8qScMdif0V7syzoNeaGsa1UljUmr4+JozZ7ZQej NfmsalWhND9jD0p6LAhEHQTCbuCQYLGCwHXnNnY3d1Q3izogZPOlfxx9zTDA dfuHNjDckwprFbLnvqOvp25QlrH4lXr2qUKj3mzkG3vyjhQXU/NjfBNarrGB swtrpPgRu1DUY0Eg6iAQdgP5g8XKgoct4TNwXOp1BYSVoVCRP7tpnTUgHURF Qby/G48zNaU31VivD/OkkLuKW1ujX2n2jHfge59mFDtOsJX2WBCIOgiM3UDW YLHisMuWULfuMvGbI6Uu5FTFT63tTN9dxyXZjr6cuoK28ERq7k0ecoTXFmXu PO5ARS8L6LEgEAgnh7Il/AZPnBjxRmCrhqAJ0aBN5/CYT9YfzrnjQlYEye2v IqibRMkSCAQCgUCIgrIleq77nfqDJ3+RyYmlj1zX719bnTLIi0qWaBN60Ilz SREIBAKBcDgmtkRdAEiWUEcm1jlT4nFZzo7EqRGvBzR1UzdvFzJk1Oe7c1A1 NAKBQCCEUidtibyNPeg4TvC6846+GlnR5h+Z2auF2vtfwz5dnpyasTvxo1c8 iOeA+jMjEI4Hxwu/n9+vMdYv6aqjL0UpVB+Ke8rrX5F1MZvRBEWLhyS2hMJX //43UZQl4YHNO13t6MuRD0MrFbVXaEy6MW0P1x0b40+Ws4Rt+t11w1oIhOKh upuq1J367C5W5NbpEO5fiO/WGNPU6zhpXZ0+7yhdPKTxSyh59XHd4VG+VLJE +8EZfzn6emTjxtH3mmpMx00WLuxLVVUPiLumQAmFCF5Tmr177kgyuNNm4LjZ 28/fdfQ1IRAGGE3RN/kaqtBhU3JmTqA3ZPep+N1AzmCxE4iHZDEOKVYfCibJ EviDosxNSyYMJUQC82jSsd+QaYnbFDGgASLahylvt8Re7J9awvU9nI3tSqeh Ds6ocMjFyUJ1Rc7iqNYarFtMQvLBjJ2xg4nxFp7YxCMljr4yRJ2H1hRY87ar 8l1r54EFcRRyg6ZQRO8GsgaLnUM8zNkST/4qvvBbZnp6esaPuZdulAuumIS7 +rAAkyXWnCtKXT6wud6qbDsqTi8S6WkpSbNeb6vWn9L9guZlFLpMsejfez9u gmGR+4q5f8GUtKix7uNOcfun2wavuHutEBYFxQ+kelOKkmJaPQ30gyrNfNdg Qck3iYPu3y4W0y73CKcGx6+uHOZh0GVjDpq8oQiaqlPfvEbMy4AwLVfkbiBr sNhpxAO0JQw+nxF9/J5hN6pq3mHYzKXphQ8FPB+Iqw8LJlnCXdNvSP9m7li3 KavzyoGbe3Q3ZWQ74qphtCnGq7RVogVL7Jc8/nNFUH3zjWEf5M1oRHlpNKO/ /tvMP7ZB1b7pllqcCadRy6A+AyKnxa3amZFfBsG6wPNTBqixrsuyGC18PyuG /C0ZcmZqHu0b3loN+yH5vtgjbPh7sSu/TT97vVIZLxdCAPf2TG9tWNCuC49J aNUSQzBTEmdPjujX3d/T+KI1D3lvRvLpW8IPTUSkYNeCdwf6GU7lPsHDV/8m YWv3km/fb4wR+jp07W+Cr1nsbiBvsFgm8YAAZUv0iN/z7ZhgL7VbwMhp6w/9 fPnO34TuevIw/8j2mb1bENugt8BcSiirDw0mWcKAZ71Rm381jXDhZzf2JP5a pQockSkuoQKGqtVgb8RdFy6c1BJPOFpu5u9+WdmO/pmByX846Aat4uEdGDlt w7F84eqytiotyg8LHpcLvoqn175MP92pJyU+6Gvvr+3qJulD8u359rydJ12v p5zLQ+o1PV4DY/MeSfMbj8tyvl04tF1Di9LjWS9qz1UBhxX8wbVtY4O9WN+l wlp1TLohmWlbXXk4OsBw0Gs4L0fQ1ixyN5A3WCyHeECD6aGtbt9j6QlzjXwr bm0ZZjina7CQRRm8zQnxqw8RJlmCuJ1eidnm5eZx8WJaxQ5KviHmBxVgS+iP JP+UFv1pVhcz/T89sYTfhfwGE+O4cj7rSEbqlq/mjujhZXoTzzaPWrnj2G8X rUU4zv6ckfZD8leLYke/E9iEq3x9Q8duOiXoAHVxWx8MC026Av7ZHysGUy9+ s7ZJtwR8KT+0ZTfBe9yWMLHrM9wn5D9qwe7MX/JtRDiu5eccT9///br4mRFd /sXxdbjUxBzFUnHzQFx0l8ZumKZewH/jTwnw5TFf9cfKYCKpDGtUP+GsJDMT y3O+H/+St60dRpABQCTYm//mromnJKwIK858j3h3VKouQ9Lv8f8dcbuBdMFi M0gvHlAhbQm9KdUzqcDyLkQtH6HWBiX9zns/F7n6EAGSJZrGbLxj+e05/E5D 6obFTf5ipRMUXM7NTDcoglnhbc0dEzy8QsbGfZGUkpaelnWuQPIQOdj/M2DE cVh2b/WjlCHN2Dfmph6fxO9lMPjE5r75sqcKfD7uoXO2XKrgtx7ERuEblFwK fvm9tT3cqRf/rYRiR0wIpQWM3swDBmc84PkVNU/yk+f3a+zG+h6fNvOz0PxQ ydD+tX9UO1AkOy3JErg94Lozn4WR22qnhGPwXUo4XvDdR0EeZrW9Gfw/P8br RiyfktzcpmyXNGpI+boFhc5F7QZSBou5SC0eUnAn58OAhtOO2shfvbowjNqs mrdaX8j7ACtm9SECJEtgU09Yiz7RW71k1Q23f53ckn30FmaniQGQf7j9Pxl3 B01Q4m9CvgivKT2ZzDlYefX9L4/TNzEI+GmOQQhOduOcUGSCG/UQvv8Y0sDY 5kSbf28vQvkTklCbvbIDJL1J55IJMiPtwBhnJ/eWsJXHCq9dy/tx1+fDurDs cwr+p2m8uvxK7tqh7Uy+THJbwqDTDdrfE5v6k5nQrUVE7QbSBos5SC0ejgQ4 0ftM28lbuwpefagcjX6O2m9bhey5b/lzNf9sDaUNem/f9RBEwwzskymGPata VSjJD1kClH+4/T9Nzyyiio4rbu6f1NeT+TKVulP/9Xn2FoOX/rwr/cpD8E9y pnWivqlpi/U3HOEou5k+kv18xOw/LK1heD7PvLu6FFkTEmAq2AL9+U/ubgpt Qvx7iXrEXU9/x52+RE6fn+pHRycEYqY08lxVwP9CyvNmcHyQMtgSOl1lerxh 71JzMx9sIWo3kDJYzEJq8XAszBlWhTVn+4jsQ/DqQ6OyMJ7ac21FLphPSqji 8+eHgPs/5hd6UF77k5F/2LUMkG0JHV0PzuQHiOjZcj/3QypXQa0eubTEETq3 5sf4JuDTEbn/aP/a1Ifty/bAZv2i/ACr88H2SwgP2pJhd+lOnUUrwikRb/3S 1G0m6eWlWTFPY6ZMyBTyQnHPRBps1IHbUO7CGsbDKYb1WndOuLaFshvADhZL LR4O5knpipcZeRm6i7+0wFp9wVzd1Z++/o5Lsq198sb+IUYVL1luHl1DRP+Q zK2iQPmH3f8Tvi2hMzZsYZ6YsF6y9HsqVIxhQKd8U5sY1uXdbHGanwne0fjO OYQ8E/Cprjy5KLJDfUN50XufZhQLsmal3wnLTyTNmh2/6VB2sdlxz8ZmCDBe UrYtoVb1nXxWlooDRuF2eP3gXYFPEc5uADdY7HBFKT2gzAjbqaCsvmAebn2f unp3LPZXa4kJwLERalIiGwfbEpIlS+gksiV0ZEFWC/BreZdK1Vbtj2hGPXBB 7jUIEEFbd+AmICRrgeEqckvH+s645IicUoRNmG3QL3iPg/JkH+2cZGJKqBvO 3MtbZMBwsMyNGSsK4v2pTCGBGbCQdgO4wWIliIfUALaE0OoG8asvgpMTnrdT bAoWhhrvVLqh5I61JaRLltBJZ0vouXli3HOsnNWA+Wk8ImZFxkQFdYMJ30FI txYA1GQJCsDn5hBxQtgLEJASkngGB1yXv+1Vri0hZK/TnlzRxShystcQMRUB wmIBkHYDmMFiRYgHb/DS86ui+vp51fcfGLXpvG0fN8uWENrxQOzqC4bJnLfV l4xlaVvTs38fXhQaHAIQHB798bJ99o53EWxL4A+K0hLnRA7oDf52SO+uCb/y UKrSJUvoJLUlgJogCj7F10wsQIONTpPISLQB5GQJAqZLDLIlFA6TceHYIcXl uR9yCzB47+pgDZG6fY9lv8h+ijY0iyAR0AgIzm4ANVisFPHgyZnYbvQ6qLF+ M/JtlSOybIk3P78pbP8Tt/rCYd4dW6488Nj4LLYs3+J91l489NFb3JbjmN3z R4TZEviVtOjnub0piDl30ZN3X7Nb9qRMltBJbEuA8URKes1WfJsCFpK/OPw4 8LTxO/mp6ZLN+GMDPVlCT+1PS1qyJQJawxwERJhEBUcvEDv/jdoK+MRzy459 NZD2EPIr04YIc+6zS4WxgLUbQAwWK0c8eMEK2tqhyBjtgwmMrJGIWX0xGDuu 29JrD7+fVJ9+LPbU1mlvnTMtsvaP3WfTLhBiSxhrhYxoVN0+Wp/Ps30TKP8i m3GZRVpbQqe7t2UsaExg7tiYw3YM+APsWN9Z+8C9j+hg00qWOhoJkiV0Zhp6 QGqYg4ALUEDBtzcUZHDd/qEN2DJjty+ruuLs6okBpBRr6nWc+CXv/QcejOR7 YQnn+BzkIe0GMIPFyhEPngB+BjtOdkBbaT2jUoXbX8JXXwyALWGt9KnmUcrg JsbLm3fKvhOjsdmpEasODRIBtsTjQ3FsSwLzGrlIwAxWUP5tlLQIQmpbQvcn OdfPiF126cX5vcwLHnFC4XawkQqTZAkIySqmNaGOK1FBWIE5p9hK/5YBOn8M 3LVs178TkXGq25UKa9ZmomnBqcwAJgEv/QtrN4AYLFaUePDCkGH4lH+3vsNn Lsm8actDxeyBeq0XelCMK0fo6osC8OlZsSXoqV4EvFp0grVFdt4ab1uCM5gM 42PtsGHkXxqhldyWYBKwaWx2VGAcAlzDg1x0OYriTZMlYERFQaGF84YipACs GpAgsMgX9v5jwHrqDl5bdGD5wObGuEb0nstChkdDhukFxCcuAGs3gBgsVph4 8IJ8aHZWsAKefyzky1Oi1I+w1RcJoIhHpz80/xlyhJxhNXl3oWF6ntC3FvLh Oau3xtuWAAeTmXsL7AWUf+v9P4UiuS1hpqOCrUxswDHFcsXUVh19P0C2TGB2 sgSMTaO68sA7fpynLfYNRUgB40yTsDrMfkx7kmCWz1na4ty1UfRIUE/v8MV7 i/m7QyWCaVxphzeYAtZuADFYrDDx4Af53Fq+tP6KLadExY3FgVSQF8rwUyGr LxqjOWTJq1+WGtee3OF9Wiec4rnFs6s/7Kk85W1LcOv+hHp1JE6W0MliSzBj gpkHaPUwDlhi4IZJFrVFpEjTJ52DSbKE+E2DbidrRL5mQQhegC4p6FXYAjA7 nMtMeXJ1RV7SXOMIuQYho5LO2du+Xh7AXhn2jteBtBtADBYrTTx4Q0yYqqcO iUyz0sCN6TcosNOgKUJWXzzlF2b7uVk6zledT3nbExNTJc0YSCRe2LLL1vQ0 X1vCJFdfYExc6mQJnTy2RCknZcLWvDag15/RMWUoasP8xm+SaVQo9GSJG0ff a8oZ7GV14C9CGLVarejELsYlpZBoONcaN/OeVuT9MDesLdW6XmHuCBqwV4bd xjmk3QBisFhx4sGfqguHxnfyVvt1n7Xj5B2TO9Deyts4mnJt+QyenlkCZZsS tPowqDy2mOiswpnIideUpK8m65vUAX1X/SawSto0/mi9vz1fW8JUQQvrny91 soROHlvCTFGbLUcN3efKK3RS8qEftiVM7PoM5jdidnaZTFFfyMkSJWfmBIIZ v2jgOGT0u9+2eeND/agcda82XSMXbDx1R9AeyLikHNdwlYVpTxIMHMuFPyhO nR3RWkP9hc/AD5LPK8sdwcA4GfhUWIvfDSAGi6UUj8rrubuWxkWGdfYx+kQb NQ9554Nle81ofHvAq7RVFh4SfufStimDmmkwrw59omZ9tm7HgfT0jNStGxIm De1gKFHxCugTa87SEI6w1RcPXlu097Ng/SP1eKbXBwnJB9PTUjbPG9GDEAgP 99C4DefKhasVpke3fbqery3BrfsTpomYnH9uVTVE5LAlzBS12W57ohf15Hnj BgW94OXRpGPosE+2Hi2V8QQAMVlC+8cvc4JYhoS6U1jSJQXkwrkKVP8EzVP+ ocNjFy6fG/WajxsmfKgc40aznUklE0DOgPENIkqJiRzLFRFtG1JS2qzd2A1H 5HxNeAPGl215g0HE7gYQg8XSiIdRs1vCq+vbG+weuEx957ltfW05VA3Wy+wx Q98IbGWQokYtg/oMiIpdmPy/c+XQCzeFrj4UiONG/OSI3i/p7TR183Yhb46Y tTLp+HWx+zBfvwFfW4Lr97BcwIWXnvs6ZpCfp1tA5DyOmV2VtaIz/QXSDY6R w5YwU9Sm7GaPJskSAvcfwI1Gf5Nbp/HL80SYwQgOZRmLX6lHeCkTf75JqRcw Mbvnu1k8m3cAgUXFtP5gVKERNfbysI9GkCWfxJV2io63XeKnAMD4sph+BbyA GCyWQjzKTmwYyh43YA6ezkzyLRBaPygRDll9SVGKLVHzeP9wZgBWv6SrzF8x ra7U6lfH5Ui2o8ljS5gpapNsQDwETJIlBOw/FfnHE43p9Aa8gt784nihkk+N TgeenzJAbcb/ABY+8M3yAp2WSmlDZC5KyMhVl/6L0vIrnWTWLOizlSgHzNqP ig4WQxYPHC/47qMgbssZS/CYyGao/bSrhaOcOGT1JcVUgVqf2SSVLcFOSmTy M3HdxUWDPcjfamVH8Y4IHGZLKDhtiZsswedStfdv5OzbPDeSdLNT+PaLXio0 4omwyOPb64IbY40azsvhxp+KVoTTz553lhcY3mKZ9w6EW3pG49k4fMGWS45r ZSkAYMNxU49PkuPMDDVYDFc8SpIntTRdVj2NWndqzZ2/QK35kLm2rQnSKfG0 rU4+suOA1ZcYvgqUry2RPz+E9XlLKTrA1B6vN6bmks6Hx+VH48INgTP9gav/ ep4xMr44zJYQmo8qA+xkCf3aNItcsMoaS+KnTZw4MXpkWOcXvNT0v9LU9+89 ZNqKpMwrdx0Tci+7tCn2g4kKYf7qPNi+tdsb/vuUheGzgCuV9xgsoMmwgkQU vCpaqWCxPztd1g2YRyp87qSZ75UrWAxRPLTZa14BJjp4vdxPv10cP3+93Hjo qPmnNP90+sYl0f9uYdxX9I/NZiWswSlh9/Aj+ZBq9R2HmbxouLYE+8W3/Hlc d+azMKKG17vpmNX70tN+SF6xILqHQWwaNQmfIyq/1E7ksSXMFsgrZ6NmwU2W EIjviz3CRr4/b/V3jrIlzD5zBwJ5uSsK4v3rYa27bb9l8o48KVnRxegV4rll gdEECGNh4YA/uLX5LW6XM0VHCa1wY/8Q6gbgJU3JFiyGKB73zs7wM05u7TV3 p1W/ZXVF3uZPelITQNRYrw/zrLxMpFOiHjbhaLnwy5MIKVbfsTB3RK2O9Qlo /GwJ1mw1w9L3nXHJ0rfXPC44uH5aBJVGSyqg+Rt3nb0rk55FtgQXk2QJ6/Ev Fk/+Ki64nHtk3/q48a80Y4Icvv3eW3VU7og2fuH7AV42E7pkQv18p01QDyFk J3z/uYfNbMBA53/erlQwy1EJylq/P+w1Vmqw0WBTTyqhyIQnTE0KvJpK2YLF sMSjtvrE5EDya/yiFuTad2ZkBse7W7MTlOqUMCDF6jsWbl60jYxcfrYEe7aa grLBzSGPLQF2PDOiTFuCmywh9PSBPyg+MCscLPLyi5iVYaXRHMJ+yLl+Fjrx ErMjzWoWewD3Omm61ttPRd7BeYNf9uQMNgawOGJAyTBzGeBZa7IFiyGJB9m0 k9gTYtbwGvhYdeqb14g7VXuM2WA+C0jJTgmdNKvvWLi5TDYqhfnZEiZtHoMS f5PgHuCA8iU4sJMlxPVUwfGCr6IAy4ToLLHpkhPu/0qD8CtamHFDzI40hqhU mF/wHl4twZThg8UfXNsVO9TYfsor6M2lsaNAX6d0r6rkgGECGPPyCGQLFkMR D+3DrQOIXUHY5Og/Vg/3sHKoL9z/lmKdEjppVt/RMHNsScGw6m/hZUuAtcwE Ci5Y0DnQllCmIJl0lhDrU+LO84LW3L4u88++6U9bqMjDT63tzDxtW1PkTP41 kEnlIFuCE9TwbjF86c7CilpzrS/hlKxq/7xwYM3nE4zdijCsQZsuvQePmPr5 6tTT1+EH5tj1rdAOFHIEi+GIR232yg76f2421cceHv+5IojYo8w63M7EdtOb EvJMUhaCRKvvULgjM6xOiOBlS7CbXip9qLSDbAkV1qxt0i3ovyMaMckSFjCd M+75ny+KlHlqcBLK9n0a0L7NuktmbFFiL7XvpTaHg20JbcFPCW/SQQ2NW8Co 2QcL6UoNbooXBrbRFgbh/fh0VIf6GNEytOcbkeMMFTfR7wS3ZNIzfHu+Bbl5 hRNrExjiQY8XEVNRYph9aa7YuTQr5mk1Fjwul5fUy4kTr75luGPBrRn5PGwJ k+gJz5OR3MhjS5hUtMnbj91uYCVLsL/UpDkAbx2HsI/yvBnNABnr+m42vzGs oLKwmjINncdlJ5aMDaBdYmbaT5lro22zEb0VtPk/TglqTEwB+2xz9s2/WVtf zePi48njX6Ibv2vqdZy0ToA33jzs1HSn0iYwxIPQO6IPmITNYKax/9WFYZiU TZIh4MSrbw3yyTM7T/dxpyykTPCwJTjHB6sJt0pADlvCTKcdWefE2Q/MZAkA oHUS9c3PTt2huCmOzs/jQ3GgKdhpSRbPTdUR9e94TelJQHHrlfv/7Sw0bT/F zegWoc70lJye2c7dxnjEiltbhrUzJn4KC+6bRZkdPOwAhngY0kT9Y/eJ8niR zo2n2WFiwpBWuhtc58SrbxUiTYWl9y2dFu23Jbj2idn0MCUhhy0B5u7SiB3h LQXQkyVoTB6yNcMVIZDaqv0RjFfCUpWHVeS2JYgow1RmopPf2x/vvmyh/ZT2 /tqunApfoW722qqj7wdgPs8tO2fLUL796+SWzI+abQsmAKfVJgpqtUS28gYj sPe2jNVvXp0Sjilb4Tjv6lsF112IDwXfTUvdy+21Je7kfOgLvO/uWOS+Yonv QSxy2BImSQiC9nnpkSBZgoSbnOMyfVoURRG4fGrsrYRi3md2thNb0jAca8Qn pvbrHrv/rPW0BJNAocAKfTKBx06lQzYXpfButOqq6NeWbbE7lTaRUTxsXkn+ tlfBtkhkQiaUBZIUJ159Wzy4Et8ROIp6YhOPlJh+yi5bAtedjmPVhihtropZ ZLAluEkISnXXSJIsYcDkISNbAj5/rhkGPuJByTf4f4dMuZf4nUubR9Nz3zRY t4nLs0ptb6rgjEUKQRX6VAmbpr7/G/9ZdtTWsDm2gd018ZTYWLwTZ98poMzH CNEiiUmYMdSGWG46oRycePVtw26KrlJ1GZJ+j/u62GNLVB5b3AX4jPrF/qkl yk2BMSKDLcEdb6HU7CCJkiV03NIeBWxErgenrYTAqDF53JNyjdhj6NV+QfMy 7B0da6awWkDrS1bykgprFbTdevkgK7YiKtuTwom1ifTiYT/EurhTe5TC+1OB OPHq28W9g/FBjCMP8xr22UV27pNNW4Lpbkp+gNegeYciuS3x6I/FAW6spye4 sFpSJEuWMFaBsXSA+D0ZAcBuK4H5TNspcJsHGxtCVxaPy4/FRxg7UPlFLbDH HWHEbPNY3q0vTcaX29zPgdiKCgsYcZxfaYzVC3C6zoeSigdPDr/TCPMLPfiA jO7ZGtKhEJx69e2jLGPxK/WY98srbFJmCbMw1m2JshMbhj7HqEu1X+eEbEGG RHXFxdTvVq/6ctmcjwyF3iNDe4WEdA/svThNOhmR2pbQHonnDNWFlcEFGcmS JdiFihQQfMU2cfU5oSDi2koAgMoCbguUktNL+relpj161hu1+dcHPI3J6kNx 9blyJORtPTnheebfN22x/oYNSWTZEuIVqNImnvBCOvHgD+FHbUA8QLJpvDKd vVycevXtpuLM3vEvehtfMnX74AS6xNuSLYE/KE6dH9kBeMN9wqekC5y5ADrQ WEDpbmcJaW0J0vkGPjplOiWkTJYgp1CxkCX11MXnhIJw2kqIqZGR5txUcWbn f2i/pY1KTIuYmW6MCdscSk4v6GXoL+3dbMzOCzYiLKyYCIyeG6A6Jo/VToSS jtWEVvLCVl0wZF36dEi6qcR9lYtTrz4vHpedSJwW8v+ACY99Rs3beHD3VLBz oV4hvr4h82jSPNYsSK+APrE7rM6NtQleXV5cqKfgTPbygfQIXYlbcEtqS1Tl rGG1fNRgoWt/U17SJYFUyRJ0w1tQfuRJynXtOaEgnLYSZn0+tTnfvNIKSzhj S/pA1QlpECfg81SpO/VNvibUpjKthxIRiau8XVj6yA7tw+rpB6MvytVd/elv c77KaAnEQzCELaHCpvzfkgCnyLokcerV5w/+oCh93eej+7T1UtuxS3o0Chr5 wbK94qwI7hXo9g9tQG4+Ug8rlNCWeHJ3Uyj7rD9kbr4yI3qSJUuUfPt+Y87z 9W627IIyn4JzwmkrYaEsjiiCcLPLLD8a/Zzxy0alit2hWcFTkUtvpvWljaGE 4mElosDovAeMK3LKrCG44iEGMqP7eX9/58i6NODsqy+YypsXT+7a8sWcGZH/ boGBPNs6PGbyvMSNuzN/LrbHtucLcxbQYMOWlkrpu5LKlsB1FxcNBppd6o2i l9ZfUaoOlSZZAr+8/21uv0+sV2K2qxvj8mJPWwnihVJjLw4/bkesH2xSKvJd qMrb9gbjGRJtoJqkTUoetcd1Jz8IYJ4tjEEPwIYDtEdwHiCKh0joJ2mvYCsB Z1998fCbOS4a8CzQcUm2hL8kmS1xb8/01uCXetWbdly5hS2SJEuUnJkT6I2x 8YtZA22uAcLA/W+iwCccmnTF9DNkrzDfWfvssWWBFEdxw7MqbiwOZIW3xL7L 7FkGRiydjrV3rqZtTpwbF5dxS6gwg52BPbGpP0E4/IK6uF/SVfFfKDPQxEM0 xicpaUIdXJx99cUjsy3BtCOQfl45fFsCry3a+1kwuIl61ovcYSvFy6FAT5bA S8+vHMzMMiDxCvsgq8xZXnongaNezVYl0MMLZv1i36IyIV1RfZINwxxBIKge M+2qMLV65NISzkVW3DxADgDV48Ge2mA/2ocpbzP+2K4Lj0Epv2JiBNJvbpIA STzEQ2klwevrCJx+9UUjqy3BbI9yDGqBbEtUV+QsjmoN5pnYkyvuWFhtjjDx vmjDBEYTj8SI2dnIkIAOy+1vIcBBHK7V2MDZhXZ6VJkIo6g3HQysU5fHe24p F3IKAxd3bNgW4BVjO8Q8315k742zAVN9oPnTmM5XAhuAOx5I4iEeg1ZyqgxG F1h90chqSwDJEjIM0zRpyYgFJf4m7KvKc/fMIGvNjLtn+x7LflFuaIOCM9pV TLLE47ITKz/o+gz76zRY8Kfbr6HQhhSwUwjMOHtrq09MDtQvAY/kNNDX4YUt uyzQAjQZn2FQyqOXZ12/L3zvv7itj+mXEhaD57BFydn5hYWXz63sa4zXCS8b qTr1zWu0Ww1mYK408116b8AGxF1zxtQ7SOIhHlLAnCjA4QqrLxrutiBpZXHe xh7070g+TLP6UcoQTh8lN/X4JH4O/icP849sn/vmy56gT1+j6TQ6gVdbP2vg NaWn0r6eMzmiX3d/T6xBm87hMZ9s+B/QfLhaqxUmmdz5bgJ9hto7VzM3Lhza jqs+iC4lNkceIATDHmdvagRWpse341+ECxrYQ3dZ7zFtEbO2BInw/H+uD80K IupPb54YRzbf06i6fZwEMcMHSON3KiXIBop4iIUsPXOqAAec1ZdOF8hA+YXZ fuw6fQ0WkQKpKaIJTC4ZbDnBK+5eKzRw5XzWkYzULWtih7ANAJJnm0et/D49 +0xBoUUKzv6ckfZD8leLYke/E9iE28TAq0v/RXSbL/FoC35KIA0Vb7/BHy9M PpielpIUq/8Tj6fClmWUV1WeXBTZob5+5+yzu9jWTz75q5i6gcu5melpu777 PLpfM87lu2PDvtibdc7K3ZNcyzuRkb5/x/olCyaG/9unHsbFu3nUqv2Ffzvp fuk0kE3/zG7shs729bA2/95exE8WwU3Pd84hYYJMjdAyQWTazN8HP21l9ntZ G5Tekl+YWy7oV4whEs/G4YlHyqFuy8zmpsEmHHOS2gMToIiHWO5kxahhtDSX EfGrD1MXSAmjamldk77/+3Xxs8LbmjtfeHiFjI37IiklLT2NpXduiXBgEheh OzzK1/ADKqz94Iy/YN0cgeSNEDX1/QdGJ/6QA63VBo4Xbv+0pyGFzKvvf1Ov A4es6oozCyM8NFjkJ7FB9O/bOO7VPEoZzO1AKQW+PSM+2XQAWREyce/sDNrU Zyo1jCO0hE3GYeKMwhs44PkpAzgNajRuncYvzxOm4o1UV56YFcoJowE/QbyD q34S6gqruLWuXxPDRKGAaakXIfvTwM1N+kwwCYEhHiIx9GdzcPInP0SuPlxd IDEwVK3oxTVJlsAfFGVuWjJh6OsBTd0wjyYd+w2Zlrgt946gGKgUtoT+knoP iJwWt2rHD6duQlWfOF6wYWwrg9vE/FFO+3DrAMA2sFnIqS3b9JpFt7MoGrUM 6mN4CNv3ZV296yyZUC4DM1nPYOEv+zwusjfRaE5Mug5TMWHHxApLlJ34Jrrz vwiDolHzkPdmffvzNTjaueZJ/o6lo8M6+9DhjgZtXg4b8V7syqTMKyLEr+LW lmHtVERwJCzp0kP4pjAzi0HdYMJ3Uo5nkRwo4iH6AhxclMoPMasPXRdIjCJs CTBZYs25otTlA5u7qZu3HRW3PDmV8OfMep0YD8RrVLGTUpQUYxAeFdaqY9IN 888UaJ4M342DcCK0t/K2fRod3JKyFb069B6zaOMpQSY3CdmSgsRhMXE5oQwJ 7lhDiDCPVIONTnNerwSBg8WDPnJK3X0IImJWH+kCATARJXdNvyH9m7lj3aas ZjlFH91NGWloXNDIN/ak4kskhKLNXvOKihK88K1XLNr9TGKw5A1CEXULecup HAxtSPhFLbCSZVGYPG/Cgm+vCT0J011cVFjA4AxnH+rkUPEwNjN0rCefF4JX H+kCITARJQMWBhPjZzcaBmapVIEjMl3S+npwJb4j6b211bYXcOM4kYmOcAro 5ElXr4UnDQl1vY6T1lkr2SBqIRsK36WBGWH+cw+7gE/VgeJB5Rs72pPPA8Gr j3SBMMCRfFYGNzwuXkynEQ9KviHvJcrB7Q3/fYp+DL3WnbOydTGte+pqFzWE hFxJeQNz5ReNgDIksJBFGTZKNgy7k+CyBe2ReMrF/Sy2LN9JNKB1HCUeVB20 M83sFrz6SBcIBLCsmsZsvGP5kdOl667ozAErcG3lNZ2c8Dx1NJB4miqiLlJb lRblR52J7G+b6URUVx6ODlA94xa55YzNCm6yEFLgDAXmSfLu9aFcHCUef5LO fOeZsyl49ZEuEAqQLIFNPWGt+T1tSzi4iasUAFMM1Fi/GflWDMzKwvjWtBPH 9WwqhAKg44lEh8N5p8TNaFEahtpSj6ZtJu6x1eK+5p/SawUHxgXq38ipJwWV iRhnhHnYPRXFGXCIeBgHETpNsy+hq490gWDoBv62LCuw15+373qpmmY5gtqq /RFMH04bLwvQ+9ppXiuEc8EcqTCfaTtdx2y33qTCEkJ3m6sLw8gvEDwcRKE4 QjyMgwhHpz+U5QfFInD1kS4QjP2WFfNJibt5yw9Tg2y7N9o/+6Y/TX/WWV4r hPNhPFV5N1p11Sl8yrYQZkhgQrsslmbFkC+q6/l2dLKLB9k6W78Wzdom3ZL8 1yAgePWRLhAMM8rWVhoqY4M5j0TZBa7L3/aq8dZsZUfT7WJc7CEgFAYwscUV XBO47sxnYfwNCUxggB54er6Ttpa5hC3GQmbxuJk+kvgpWz5/hSB89ZEuEI79 aajGeJnwk4JSAW7NVnPaJyUrurjZ9UkEQiTGwjQXOFmzJ6vyQd1w5l7eAQrq 2K7CXui157aL+p5lFA8nS5YQsfpIFwiGSUO1ZYMVLDTOtXS1LjpA61GNZvTX 1vqsMs4Z9haH1xadPJB9S5LGfYg6i/bkii4GafMcMjcfCZedVFceeMePPB9F 7it29NVIiGziQSVLOMVkNHGrj3SBQLT313alLSvrg93ZQ5YlH0ouL9WH4ujE XRuGN2C1snvYGnyAAivXEAhL4LqLiwZ7YLaa7yEA7u2Z3trwhj4/fed914tu gMgjHsbOEs4wGU3k6iNdIJDy3A9V9jkSqXiZAZfp+kKB685t7E7fXM91v1v5 aP78EOpzXtiyy4ygkXIFd1Y7AkHw5N7W8BYGz2HbVcg3YZObJ8Y9pz8fqdWv jstx6jlediKDeFDpiM7gjha7+kgXCOV+Vox9zw0ouXWhri9GgNxda8/h9q+T W5JuHG7GCJGE8+Lw44r3/yGckpLTM9sRkXGvN6bm1gX9KBijYm3TM6mgzthd UosHmZ+vwUYdUPawOSirj3SBMABbYkKm5Ydf8yhlMO3OcYE0MFNw3bEx/qR/ 5tmpO8wPB6DnEBlg55Y/+mNxgNp31r46s3kh5MY437z1h1tdzZKHBVUqosJ8 2szPctn5g2aRUjzI0gbFj2GCtfpIFwgDSK62YkswbdZcNwSJn9vW1yA/5k1K Ung8X+jVvQUpP2BaDtH1XeOKJhZCSVSdT3nbk9i6bM+wqIPgeMGGsa1UddGQ IJFQPJ6UHtu4cvtpBT9VqKuPdIEQgAmhFlttAF3NVV2GpN9z0fwvHL+6chiZ xcSZblaRd2hmrxZqnw6fZFz7+/ji9qSYGYuAKv5YGdzYw/XiPgjlQR0/kTlh QllafGCd9EiA1FnxgLz6SBcIwpgIYalRVVlqXHsyKuTTOuGUkp1coqmuyFkc 1VpNiFC3mITkgxmpW9bMjXrNxw3zGThhz+WHhBVVW/XrbEPvPg0WPOPrg3uT 57zeVtWpb/K1OufTQjgEbf6PU4IaY57YhCN1V2lyqD298RX9nh7Qd9Vvdf2Z 1EHxkGT1kS4QADUTzXxDM8pvVpcM/or84+vjxg0KesFLjTVo0zk85pMNx/JZ 0wzxmpLj22NHvh7Q1E3dvM3AcZ+kXq+rwoNwCJUlx5JW7v7dpQ17PuDXs9Zv 2Hau3EVdpnypY+Ih3eojXcCXymOLuxiMq0FJvzPWhP4ppa8eSNTXIIMfgUAg EAiEVfDaor2fBbtjmMczvT5ISD6Ynpayed6IHl56M8LDPTRuAzL4EQgEAoFA 2ER7K29b/OSI3i/5uGPq5u1C3hwxa2XS8esPkRmBQCAQCAQCgUAgEAgEAoFA IBAIBAKBQCAQCAQCgUAgEAgEAoFAIBAIBAKBQCAQCAQCgUAgEAgEAoFAIBAI BAKBQCAQCAQCgUAgEAgEAoFAIBAIBAKBqMP8fylxW2Y= "], {{0, 110}, {708, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{547.9296874999998, Automatic}, ImageSizeRaw->{708, 110}, PlotRange->{{0, 708}, {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}, { 3.751563827660755*^9, 3.7515638276610317`*^9}},ExpressionUUID->"88bcee7a-dd2b-4f87-92bc-\ 967315e40d50"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{"Bh", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "=", " ", RowBox[{"I", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"X", "[", "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}, 3.7515630196515417`*^9, 3.7515630842388687`*^9, {3.751564426361341*^9, 3.7515644274743223`*^9}}, CellLabel->"In[83]:=",ExpressionUUID->"0394b76a-7f3c-4fa2-a861-f40c923b9e6b"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "2", "]"}], "[", "1", "]"}], "[", RowBox[{"Bh", "[", 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, 3.7515630201126003`*^9, {3.751564429731648*^9, 3.751564430064851*^9}}, CellLabel->"In[84]:=",ExpressionUUID->"e2d28be0-dd5a-4030-bc81-f10953da3175"], Cell[BoxData[ RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"X", "[", "2", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"X", "[", "2", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}]], "Output", CellChangeTimes->{3.751564439941257*^9, 3.7517271797970457`*^9, 3.751730249908391*^9}, CellLabel->"Out[84]=",ExpressionUUID->"4ff0e6ed-f3da-4dfc-addc-28172595747b"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnQtcVNX2x88MSIWM5eOvktcUM0208lkq0EMx31lq6hWviYavfJUmia8o 9PoolSxNUikVS3yGFWCiXYVKTMVSSkFNtMAHcBW8yuvMf86cc+bsMzPMzDln nxes7+dz7+deHec8Zu29117rt9cKGD9z6EQjQRCz77f819DwyBfeeit83rCH LP/n1Rmzp0yaEfF6/xlzIiZFvNV9vJflD2da/lNs+Tz1v80AAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAYpSf2TsqKCg+ 557aN6Ih4J0AAAAAgG74++fpj3gThMHYoVfCBVi7rcA7AQAAAABMlP115utN H8WnnCqukucC+ScXdG5AsJj6TE0vJOW5kn6AdwIAAAAAmKAyHf7e9JLabU0m fnem5K9NA5tT3+7l3T6wtZFeu/vNzLyN/Ur6Ad4JAAAAAOCiqnzfsCZseMCL GL6iAG94oOTqluFtDdbvDl6aUnSn6ODboXWtFwuI+CT3LtZr6QV4JwAAAACA kYpbm4J9bL7MoK3ncPoyFaX/mRVEMKt2alEV84dH5jJr96Ozd9yUKbGlWeCd AAAAKENFydmkL9bGfrRywZtTLIwbGRoSHPx052eXJYNIseZRcjRu6GMPGZs9 Pn7DD0UYl1HbAu17X5+Vqbxvtv0VuqDLROXd3IM7Pv0sIfOaBoxXI+8EAPQC pvEruywQ0CKkOXvbc4QTWr2fBgpFwCNIMufjMY0sRuNXJ+zLM+WOH7Cs3QsG NfGi1u6B8b85+QAWyv77dXgnPyqjYzB0G5teKtNlPEMj7wQA9AKm8Su7LBDQ LGRFUV6uhZyTGR8MaM64Mj5E5M8wvwIeYFm14ya0MFS/agv6mASqMla3s/ni Dxpic2W4hodo5p0AgF7AM37llgUCuoA07xtaz2oDBqJF8O6bat8PoAcKU5f1 rOPZcmxbu+v7Rx69hv1OKr+PbsRMYkZiwPzcSuxX8BTtvBMA0At4xq+sskBA L5Rkz28MDi0ghJKc6FbeAgILzNptJEKmZWFXtZRc3TquZ5O6DTq/Ni81Tz3N jKbeCQDoBUzjVy5ZIKAfyOPrOrLhufbLM9S+HUAflOUeScq8IiBFQlZdPrTj sIrOhvzAOwEAAFCLvz8eBoIZAAAAAAD0SlVF4kATI5hpHbq/UO37AbBwt/DY l2tmDnsxsLG3sVnb4CGj3991DI4rAgAAADUTRDBjDFsDvkwNoCz7wNshzY0N /jF83gcJSam71rzZ0xcKzwKAS0gy96vFvRsSvePPq30rWqHi26j7TP8IAwkK Ta23EK3bQ9bG7qxgJmj9r2rfDSAVa7EFoyk0IsWmxCDNaeNb0fruPpt+A303 ANjDFDM0GDs8vytPmzO1Gtw8E92tIeFVp/0b62v7PggsxKx1e7j52RjGlfEl Fp2oUPt2AGlcOvhaYy/HVoa5S3oxJx/7R12orQMRAJzDrVO9Ei6AGJsP2/a9 Vsd1wUJsaNYeSPN3o/0Zwczjg1P/q/b9AFIou5X4yiPEE32T8u2jL6ciu7Ky qMGpJarcHFbIyoKMXQtH0oqg1gMmzt/+63W17wnQJ+w6RTRrE5tdu9ep6qC2 SN441y8s41cxWaDuLOT2xU0jOtX1rReyaGeBuxdSkn0ofm3s50dyBZz8wW4P WHAQzJDFlw9tWj55KGUhhG+j9r2HzFqzDXO/G4slnzi4bcX88UP7dW7xENdH of4jXZ7vP2Zu9Kbvjl2DM1XCub3nrUYEEbY3z/4vOI23kXh64vGyar+BLLl+ IRcXOXnF8gz8ipJjy8a09CK6RcQk7E/dETmYanXkR0w5kC/L5YAaDEmeXz3c 12o/4/c7DByApfz4Zy9Q7QZwNEjFMX6VkwXq0EL+XDWY2boGhO4vdvnRK4fG PmD9bAP/DX8KuAROe8AFKpj55PTlpA8GNLN4uW1GR1ksJCU5MX7ui22MliUw oMuiVCGeW3VU3s3Z+1H4M82NnAdDWJzqnt2fbOpDoBhbdpryyb7c2zrQd5Dl ZeWSbxPDl9z9a1WX+53XzyzOmlOfcVm9wj+97eQfM5TvnU1gx+qjhs2Kit2R ml2Iwb25HB/R4gGkMF3BobHWkatQV6bic6uHdLQzV3mp/4/nVqdpZMKoYdzY Pbul9R13XZImo+1QXRQT18yfPqz30638bD9rs+DX5iScuCp+XqXiGzvfGzsg wLqONw16de0vMpaSzv/89YYEpbsLXfeLlLVA+vhVUhaokIVghKuE7GbrakZF JiZi5R/CXhsue8AF9yw+Xr2H9G3iQ3SbsTarCHmoO9cTR7alXDDJRdfL/vxp WT/KNSK87m/VL2xR3Jfpv54vuMNdq6zwatb3iSveGNruAeamjIG91vwopASZ GuBwALyIflEXJS1XpPn0xqcJYvLBIid/99PqtuyVBiS48r9lcWZQfBt0DpsV l5ZdKvZhyezE/kai68p0bozeTI9gvlwB0RfznpXF23vGdlCzYYe2JQumAZFZ d+S5xt3CY58vGdr2oWp/W786Y3afF7H4ksUXtk0IMvG+y0C0aB9/STa3t6L0 u3GB1rXgoUXHRCoSMIxfBWWBSlgIdq6kjGTnDeOk+P+5+CRalSVwxGGhD4jD HrDBCWaYYTV688+OOUfy1MYe1uc1dB5xSOwt2/qZBrwy2+1mpCznh/f6tDGy d6XxTnzacGYsu7//FVz+y6mTwBVF9CNifnN1GS7NdO7X9AOpSVs+Xjiiu8nx fh9sNmb1l2m/nHWVZDr1Y2ryNwkfL40MH9W5kbfdF/iHTth0XPietKo8eUwA ETQxE90jnVj3FPsWZx51uQ/BQsXts4dTGPZ9uWHNh05fkfHx5yPXbklK8QDL W9oQG7t6aeSksYO6PmYyOnwXQfRY/5vsz1XbKPlzdRClYyTq3x9zytWUL5qi Y19NerKBu7EvygOhDpU4/+aua47LGM7OO/QalRMyGDoNSbkh/DrSx6+SskD5 LUQOkEZXbrauaMReZFUWifaAEU4wQxlSyJoM55Z0N28Zu7EfmHBJxHUYT6Ya Z8k5d4sOvh1al76qtv0Zns4k54/MQ5Y17qv10XMHtXG2HfM1BU+I+jA+MTkl Of10Drf2X70p1zIs1f2+kzikCf8Z3Dn8jty7lX1g+8KXnvIzoK/CJ3TBlt9L hAyBs9ueJ4jQ+HPon3EJ4iZt4q8Kui1MoOOI5kGvGLHNlkovnfw6ZkIgP401 dOffeG+5tkOaT77bh55eOsSk4Z9bSDLnize7+Dp1N5zQ6v00QStB9Rso2YN4 THJBnFhC8viVLgv0FLktRDZYp8791hUVmXRZ84u4y0myB4wgz9I4YuO16u/k u1H0uiyqDWXxuej2PmIckns3tg5qztyfFgJZQvn75+mP8CMSXsTA+N+UHheS 3W8usCPR8snKgqMJdntVU69/JV30dN2n5j3/LgkFyB/du7GuO5sgfjkmT5V+ 2Vxcl2DupPecbGk/c8nJHf/0Z41HmYhTbYKVL1rc+8GprhWSorAJLeifr8/q tNwLF7K+3/n+8E48f95mMELXX7Ki6FzmuqFtHb5M/owkpc3zodfKmT84SWq7 QOr4xSEL9BC5LUQuUMFMp7EZLveciMhEQhsjCfaAEfRZZh5xJW5inRnhETzS fCIqxPIveUlSz7mYMorZohoMPcamS7dRZWHfG8uDhthcpe8BFcyIK4rouA2U lPUoubLvjV5+3JcZjB36bsjy4GAmNU4fsHOn0R6pdjs+xUDjujRCN9pOufHV tMbqmU1N5t71TaGNGDdDjhqS3KxF2JcXq7hzcHJnewfEQn2/2BzhN1KUNccu aKqIvKo0JbotvVzaJYxcI3X84pEFeoTcFiIf3MbK3dYVrcrSInj3TfHXFGkP WDk47mGPnqXyf1tD2YCpwANc5tx9L1Pv9b5WXXr2+eekuOOCJcTnl/SxDdTg j47rKNxnIXtxMDLPeHBQTga4uIpYfSxmZ8bMns3kxCGelqIq+HFnyrlb6J8c m9WB+Y7GzTdcUmfW4eK6zCxCTE7DkbNnslfqmE0Nhk5VyLfpvrxqEG0IxpZP ztzmkFgvSI94gHBk8iExeUn77ZIXMfpr+TOSts04QYSsP+35qJM6fnHIAj1B bguRD3Rj5WbrilRlIV56/4qUdybWHrBRmhvdkn0W18kj7pOCN4lnF4cgI80y LQftFurOXNo3xPbP9WZarMCevX/lC9ahghmxRRHxOzNmWx0q7uWIKRJ+M3Ma 8xVG48gV+apkbLm4LvsrN+MH0iVgXarch4sBAcg/8RYdiZ87P3rTtxl5d5x9 ve0QMY4xxXdmjIZe008pcuiGW+7bvbj/uti3iGv8SpQF2qH60iwBbmPldut6 fmdf1m6kR5Lx2INokGdpvzzD1SdRd0KQxhL1gmhEBMzRuJB6qQRxqO/MSNer y+TMmOmDCc3RrxV6/pEdQRSqSWQdBTP4ToZa7QfHSTeAhZt1RWysMHFnxxuE PcaH3t4jWPDFmxuVrU9bkhPditF0dVieLm71wjZ+ccxyDnelpoWIhNtYuQ/n 3tr6OvPqsUSScdiDaLhncSf+QSJXAv1eWwEBbjUP3S/c1JBkjXoiT1Go7sxI F8yY5XNmLFw5MvFhnkY6cHGyp0nXqvJ9w5qw0zi2YIhQZBLM0FjtB4rM4KPs v5ueZ1b/prN2qNTWgzRnb3vObkSJWoXLjq7qZJtbmrZenK7o0ssKAMQGzPGN XyyzHIMmLEQsiGDG7VGdo5MfZV4+pkOgUu1BAtyzuDOknCWhIkec3ZFVF6e/ XYIspkofv7393dLQoGCEoEHj3lq519MOIKKdGbL4cvKaBWH9n0WvHfxs15if hemrpAtmzLI6M8jJPgbPSzpcto1cY73JX6ilDZdLMGOFth83gVPAY6oyVreT PBwwUJQ5zf4YkuD4m61yFzUAHu++8ifFgwjWc9Y0Ykp24Bu/WGY5Gq1YiCjQ jZWbSeNe/qpOtPEYieBpp7GclZRoD6Ipu7muK/ssrqPi/CyPUL+38MCqAY9Q WV2qPcHmH4rERMvta66OTpIYRxRA1dlv33z5+QBE20HjYQcQcc4MeS553KP2 NWqodmzjpu+6IGR84RDMmGV2ZtAMNWOQTo9eOsCdxfMiwpOVMwkecgpmzKz9 9I4/j+0bazOcWAVTKRLR3CtY9ZTdkBIW9C5M+3gAG9IUVNwAJ9zSIKYWAbbx i2mWo9COhYiC21i5LebASUcI/wXf4kliS7MH8XBbA3e5WlQS8CCxMlv55L29 M4MxjO8hZVdPO5Z0aBW5161jIsaZsZ0KtOFl6PbmhmxBxeVokFSymAJBLPI6 M2bzjS0TeCXifIjx37lrOYeWp3ji1cPIWyWvZSelyNM81xE5BTNm1n7EnXMB 7EGOESk/h/AgzfuG1uMPKY/DthUlp9ZOYWoqetVpP+UjMTMDJriQiImIOS1k n4Vx/GIUzGjHQkSACmbcbakqvo26n7U8XnCgND89JS1PbKdO8fYgBUTN4nph uvXVG+xTG+qOXeu2n7gsIG6kxHVZPLbS1jY8cO1EODN3v42y02CYRi4V1wcW TSVLSVXI7cyY/6I7zdnwwLFHQpr+c/eiiz1VmKuFQmeZZRXMmOniCcIbwAFO 4aYyKSXCMMFm+dH5xP3hCLLg11im7J6BaNJ6iuO5b4VBhqEwy8c3fjEKZjRl IYLhNlbuM0dcDIdfa4We0MTn10TbgxQQZ8bVvq/yTuJgdrY2EYuOq3JA1C4y YyR6zfldDQ0wqr338PcS7MzYdcuS9to5P1na2JTdmeGkgCy+xNyfXD01d+Tf bgtA7fjsC3PJh6yCGWvYtq6K2uYaBSo3lZiMwAF/ZrDiukAKWXX56w8GNLOl lsbt/uOW+j4ud15VWF4G4/jFJpjRmIUIBdlYuasbU31bbWpCayvh2cXagySQ pK0LZ4ZtMUmhXucFO2dGjQPONFxVBPb3cucAC3Zm7Lv8SEg+oqlkaQUeZXdm 0AQ6++CuNIHoYOS/H9pilagbZpYmmCkrTlsxZ+n3ua7mbGqQQpEZTHDRPwyn d6XjYPCupuKyvMx1Y9gG2X4NBi3bIzoRgB2u6p3nIgSM4xejYEZjFiIUZGPl 5v7Zgr2EfesHShVcR6IYW4w9SASJAISn3HL+GbrDqdVOVO6JaWur6qFLIBN8 LbQni5dgZwYp/kMjPliHSTBjVsSZ4f/EhJtT/EhckZc+qyo/+HqgcgcDpQhm rD+0G+kdSeZ+89mGg2f1Fu/WIgIqoyqC006RTurwV5RkxS/s3ZAJyNQLHh1/ 2oPGHwqC1szxtAgYxvGLb5bTmoUIg7excpm84FfD4HXZsyaJJB6mEGMPkrHl B6tTUxQmRT1OLytNW8Ycly3oRpaXlbsxQf7AV8+ZQd1OGnd6BqHOTNUPyx/h z2+ia0nhEsyYlXFmCuxkMy77hSHxK3QzS5fdGJYouTOLZ0gRzNAbcyXP5dVy uH2rRuQQ9t67k2FVkvXNwj5tmKYfGgvIsKA1czwOaOAbvxhnOc1ZiCB4GyvL kt0u/oqzqSj/5ILODY2PBfdki5WiJncyspvknaAoe5BO0Zn5Ad7VJTLKf018 xY+QoxZT2bXzads+XjRxZJ+Oj5m47jyEf+cXx0TG7Dxx1dGM+F2b1XRmHDPd rk+aCHVmHN0G0SdZcAlmnN4VfmfGyWHV6n0DpCC8La5oLbtBBEzapFhNRfGC GTo7r2zFpFqNkIMeimB/QtMKVx2RLM5Lmj+spRfzF00HTE34VVsBGQ7OM/E4 JYpv/GKb5WSzkNKLmTtXRIX16djUFjip3yx41NSVe45eE3W/Tnf/jhsrx+Ih RZm7Z3RtaKC64FWcX8p0PLSpr8uztvXzxtG+QYQ94KA0bVkn6yQ8MP437r2S lfkpa+kiBsbAXrG/YPJkyMqCjJ3vjXmhKRviMjZ7rNeI8ClvzV+55sNFM6cy P7eXd+Doeal5vBWcHw9R05nhyiaz4HVm+G6bBEkbV8fS/uSjCJRwZpwcVnUp Y2ODpabQNxK+/WZbzJSudYmAEfMzCpVKhkoRzJxL7IexVhXgFi7up5nXbl8d nWAEDJTQd9WwNg8xRtWk7YS4AwVajhOgyXfPT95hGb/4ZIFyWAh57fdtMwY2 8bL/mW2Yur4SlyXMRyVPb+vlLAuGbqwebd/BZC0j4t87PGZTYnJKatKWTxZa Vl4frw7hMekF1gWr5OqW4W0NVLAicNbmpKT4FUP/4SW0m4xzxNmDdCwDZ8+7 QZYp2bduyNSYhP0pyYmbF43oTtmHr09oVNzpIjx3YvEJF770lB9dqIW61ns7 My86Nj+lyt7+e0KgD7+Hsr1SRc1yRkIjJ0KdGfvIj8vTmmTB6U8jBgb4eQeG LbKbBMrTV3Vkv0O6s62EM+PksKqb12WZKxIWTRzY5TGTb6P2ocPf2XpQ0Tlf tGCGNJ+Ioo5yYKtVBbgDSUbwFY8qwok9EBN6avibIzox86SXV4dx0Yeu6KDE ELrZ9DxzimH84hPMYLeQwiNxQ/mNWpwhMPFBq1gdz7eiYaUmbeKvVBYcT/50 wfRhvZ9u5Wd5oPtadev16myHrMfdwmNfLA/v18PyGVPrrmExW37HVLBInD1g oexq1rbo6cOefbKpD2Fs1jb4pRFzV8cfvojp3F9pQfICLl7qiYCt6Kcto5rV IXqMTadNyn7US+5XLgENOTOVd/e9ynVp5BWJ5cruGY3PTTwmeWQq48w4Oawq oi2pUogWzJQf/+wFgwrDvDaDBlS1UgzNWV7VhqlT36XJ2Y7bPW2CxpOVbL2B UTCD00JIMueLN7v4Ep4hoD2o9aiXs2pvaFgJa9FOcahlD7JS9ueP0SHNGV2M FxE0b/sFzwRstPa4Q0xauZOmbGr23XNc1p0cQECQ0ZnhK2Y5nTBpPrt0sC99 uRZPbjiHYWenmjOjYSWeGMEMWVlw9PNRVKkQpVuM1XLQH0srvSHsA84sfg0H vYdtj6wMyPzgbZwUr1ghAYyyQIwWkp/wxiP2P6qV+i07tLRvUsP85kMWundn 6LDMA04KcKHHRrTgq6tlD/KB9kGzTPXBS1MFNGaifzhrB3ZHmYocK6mHCF3W hTozSH9wwo0MA+lVZ+o3M5MOv9wtOhg1yJqlNRg79N0gMCFbHao5M5qt5O+x YIYsuX4h90L2sR+StqybO+yZpnXoz2ug80vh75sip07RCIvXZsmZ+/lu1EMa tCj0rhj8iMgfNVAKTxiomFlwu0zxYJUF4rKQsoxPeiJtb0xP9Z61Kv7wrxeL bK5W5f8Ksk+kbFw+7pnm3PEXL/dnuKxhGed967hO0C5OgCqHSvYgGzxPhiAC o74W2mKSPL6uIxX3yE+fypdSuG2hJSNOziDgdWb485vLz5Pmk+/2oWr4NWg8 fu3elORvEla9N667dYDUbzRoATa9k1kpZ8Zp5Q3tLD087AUzQjE+OPNLdU/Z On3bKiLjD40mdFxX2VUQsvjq5pcD7N+ChvOqruDazWA+naGQLBCXhdw4NSfA 1sc8ZOEOl+eVKkqyNr/Tg2kFZSRCpmW5GAH07r4OMflgkf1fcSE+l7W5lEQ2 e1AeO0/GoxiaI1RhZKPP8MjZvMouap+s5HWJIty26RTmzHDifNbCXTduqLyb s3/DrGH9OregXCD/J7r3Gfn64o07T13HvC6AM2OHo2BGKKLLB+GCPPNVf5Nb gaJCGB/tsEm+/RsqutOCt2AZtnts55X4qLlTkwB3Mgvr/KyYLBCLhVRVHJne mf6OgDHvZXq2l+TWSh9njgqLi7CM+Vp6BKvk0ErhYpnsQXmKzy972taQ0UC0 aB9/SeQ0RYUpGvj7s21MadNVqzETg4Ma2bX0XZgzczdvWVsBX64YyjgzaOlI G9p0ZuwFMwQxbHNWrhMuZB87nJKSuuuzNQuRogREfb/YHL0lE/QLOrVKPMAr mZKs/YsGs+c6nVFtPXYtw3XkweouKiYLxGEhdMU/wlmBF9ewJwKMvuPjnLsi LsIyfMGMYhV33SCTPShMxZ2DkzujY1NKANCpiEJlgZPjOXGXRQmEOTMOVXB5 tabVAzQzPBwFM56pedmS2hoQzNQqtBH0Josv7IwcajvXaery0orI0SbCHhUF geJB0zQSuz2iKCYLlG4hZbe29qciRaaRSwV5MjR/rn3V10UQI3ffy9WFZVDB jGK9kNwikz0oC9LBymoY0mojOz3eorrAiev3Sj+jyzCaIGcGPWlIP6xGzvKo 5sxocyA4VpjxsMoWE3lTXzBTm0B1bio5M3Z5pQbNX12xI7ekylkRYLU3a+Lg HzPHtgFRSBaIwUKqMla3s/zblt22XxV1S3f/WtWF2h85zT5TXQaM1TbfZGWW 7lQ3SiKTPSgJ0x+Bo8PydCnW5rC6aULgZN8+yaV/JciZcejaoP7D0qjkzGj0 /LKjYMbT8nesJkp1wUxtQmVnpiznhxhbvVCqvPn8/bnseSV7AR6Bq+4EWXz5 EN0y5pknmSr6vo3a9+w1/I15G/Yezr2N212Sb/FSQhYo2ULY7gxS0hDWVonO RC8F6REPGImgiZnVLDL5uxcHNTL49xj84U84uw5JQv/OzN9x/7oPHZeSo14O ygSjxO7keEC6pNG42EwJcGYcEliaeFgryjgzDidVFW3t4TmOghlPy9/RYxwE M4qCLlXKKu7uFh5ZPiGQTUg6qYPnrKOB1IqglouumRX8f97GZoHD3pj/YXxi cgpFcuLmhWGMasvYstOU9d/g7FnJP7mgt8VLsoVQK4LkvSfltBiIxwen8ls6 n19CNVHC0DJJSfRtD2bznT+XBaJhGcnCAPujPdRAl9idHBe0gXnypAKcGbtt mktxu8Io4cw4qSGmGXE+iljBDAWlHgfBjMKoUfWCqo6YMOlJ9hyEX4NB/96R 61gHz17wL3YxtVF08bNX2hoaNBsTu89p+KUoY+MrDzJXajr4rXR8jcy0WcnH MyRbiFXb0ypyr6SYHx3eeYCfWC/KmtNEQyF6z9GzPZjLDkTblT2Umvy1D4Bo 6TelFFk8x6O6TJPnzoy9g+SslblaKOHMoAJ4Fsd+auojWjBj4fzOviCYURql nRlK6DuTay8Y8Mpbu/6opg5e2c11Xe1Ox0tIhJX9d9/otkTrkLizrsru5X/+ ekP2YiKLZjhDz4uXVoq80eVh0ZLyN7ZM8GEq4esMHdsD0tLd7fruKVkbu/PH ua1ZufqQ5jPRocitOeuXYcVTZ+basWlIZR7L2wvbmyfzMwhACWfGsQyddsT5 COIFM2bzzc/GECCYURp+EkHWxCWv4TVhDHg6ct8p1/2VHFKr4utyWDWoltX4 /lb9Rsb+XL184mbmtLrs1TwoPOsR/HClzhYvJS3E9W1QjXuQwmW0KrhB/djz mpsG3aBre3CMokiu50DP/BwmIua0lg62FJ+Lbo+kG/yIKQfyHT/lkTPDtlG2 faw610gtFHBmHJwEbcWmbIgXzFhGydENo0dHpOTrKfutfxQSAJPXft8cHmRi nYRuUz5IL3A/h6P9hRnE1uVALNNAN4JxDi+fiymTq2/BpwbOu9FQaWhONGX1 TqsvPqNldGwPjr0gpTZkd1IL9+WYPBVr5TmD34bDYOg0JOWG/TN74syUpi3r hHzG+ETfJI2tdwo4M45OghY1b1IEM4A6oLOTPEsVWZmfsnbAw2wd+4Aui1Jz PXTDnZQjEFsE2C7I42IFQT6JKaui48XLrISFeAiVdvRhQkMuC+VpHT3bg+Ni J7Xx92V+0kFLaliUG/ujuyAnuEzD3z3Ll/m5dWb4rR8MRNPWi9M1c8KORXZn xl49LqFig6xIEcwAaoHWd8W+VN0tSoseZiuFFzDmPU8CMjacVr0WVwT4z1WD ua9o3HzDpWqGD2neN7Qe+zkZnBk9VnyV1UKE8N2o+kRA6P5iegXUUukYQejZ Hhz3FxKLcv/1yXDeklFN8UMtUJi6rGcd7l5Nfd44lM/Zn2tnpvBI3NCHuUXc GNAxJkOsJ1NRcjbpi7WxH61c8CbVhnjcyNCQ4OCnOz+7LFn6aJDbmXFUjwcu Tla9+asjUgQzmqP2dM1Glyq8kbT8E8v7tmEa4/jVGb3552KB1lDxbdT9hD0i B1fJlcRpAwN8CVO7nrP2nKk2NMQ/QoXHgLXW/Uoo8lmIQKgAdT3qBdKuqRaj 056gZ3uwd2Ya+G+QIitjyyEyaDUsY6Pk5J5JT9jaURHGx4Ni2IIS1TkzZHFe 0uKwdshE1nTQjJQ80X6HY6aPAUtBUXmdGTqgir4lbYZlpAlmtEYt7ZqNb2ot Obnjn2xM1RjYK/YXEdsQUoUiwGgJCFwF1VFngA4s6AvNRBKo9cJExJ6xroBN 28Vf0eI06B4924P9kh044vAd8d/G36drTg3rHLZWle2+/Z8fvWjj/l0ze/De TMsX4w4djF80qWcT7pOmwOcjv3TZLN4TyIqiPKq1Yc7JjA8GsK1mMTVEkNWZ KT/2CfqOCC8idN0v2lP+1jTBTC3qmo1KXjG1pUbisQZjh14JF8R6Yo6H+GRu L4sGvf1eWYon4k3VHGB+SV2WUZLBQsRBraQGYsa/lwfqVPpLo2d74Dsz0vKw XG93wnpQsU2sh6UQbl/cNKJTXd96IYt2unV+SrIPxa+N/fyIpzo9DyGLL6es fz/8+TYmowczuG/9LiOnrtwj2Y2xvwlbThxbj2AZnRnez22dYPHVvsCMo2BG k+etAEcOjnvY9rNJD6bxMssNmqw8I8FenRQBllOIxXWcETK1ugNpKie5grFK 4LUQ0dAdbR5t1Uqv0l8rurYHutoPYbt/CUeZbu95qxHyTSFrMjwc1qz+zYO4 1pVDYx+gJyJp6bDqKb1y9ujOLR8umBP2THMC5cGWgyKmL1qzcdehH/PuyBNC 5I7JSz5TxiKXM0Oazy4djJT9tXhfT244p01XxolgRpc9AWsll1cNwmW65Vnb +nEBLclRFP65D2YUyBTxqyj9z6wg5hJYDxog8wNSJkVXYLQQKbBv0kg88eph 9XTIEtG3PfAK3EmIzNw4NQdpVSlgk86lANzHtbgKNiZi5R/yLkeCGk1igTy+ riN7PalnylhkcmZu7J7dEv1SU51ZhzV3ksuGvWDGi5icptvpppaB6GyldXIs ubSsM5pqlDzEHJu2WKkuOFB27Xzy5jULo6JSrwqbYcuuZm2d0suPHmddX4nL ui7ptvmgnkDv+PMYv1kxsFmINGxvUtcbJX3bA+9ordgwaVXFkemdkXX/me2X PR6wXArA2zgp3lUFR272kKrt8QTlnRmu9TYmwYxZDmeGrLq8590gdFnwqxP2 ZfVHMFTHUTAjtlIroAJcEl9SEtza2hgFw8LnpG4eYTSOXJFvd5MlV76eN5o5 MuDL7+DjjNLstM1rY2NXL42cNjWsX49WVj/G9FTvNz/F2mLSCpejwTfnKA0m C5EIs1548PtqGb3bA9JaSOQ8z9un1/ePPCpgk46mANDeFk7gTo0p0cdQaWcG ddXwtbLC7MxUlBxbNqYlKitq0GT8Dg17MmZngpn+URd0lQuu1XC5V0ljEFVW MGbQdWyGtA0RP0fP4kMM34KMiPyTCzpz5yU9Ee6eWRMWEhRsJaR9Y2an6d85 dHz0x0mnr+Ica1yHKT17+JgsRCLW9UJ/olkeNcAebEIUKwMTLgn61zxNnfBN OpcC8CNifnO5xiAZsS5rfhF0kyJQ2plBBDMYXTUu2iP51RVl7p4T0hx1ZIyP d1/5k3azSzR3v40CwYyOQbM5EpLLDq2UKALCP0i/eFP84nN22/OOX0pNZX7D lyZkZOfm/nF6dS/uTIS4w1Pk7b8zd60Pf8rqEXl5B46elyq+EASfgkNj2aGs Yw8fk4VIhDYwfc8tNcIe/lz7qq/tKYImZnpcwKDwwIe967NZKhHpBlQw465N GCeYUSQCZj/7yV3EAHHVsLWcrriTOKQJf551l8tz5N6t7APbF770lJ8B+Rov rw7hMYIqplYLWVlwPPnTBdOH9X66lR9Rr3XHQRHvxP0HOa1WUVYmeliVXF3f 286XUcITBjCCOuSie306dWZoxB+BuXdjXXef6r6Wj7Rj4GbKkrcMb2sdggai abt3PG674ALk6Iq+V2EsFiIJeiHTeY4Jgz3IOpl7yL3ricxIoeganVzk9oqV 985uerML4wNZxlfgrKSzgscXlwJwF44gzd+N9meuhenYsiu4g5C25RtTm9pq 4Fw1sSOCLLl+IdfKuV/TD6QmbfkkcgjfA6F5sNmY1V+lZJzMya2WnFM/piZ/ k/Dx0sjwUZ0b2Zc0MXXqu5QtLSiRspwfYmg3qUHA4LeWJOxPSU6Mj7T8ie99 fVamFpWXHl0a1u5+y0Lw/K4899fj3sCZXw6lpO7asGJmrzaOR+2NLTtN+Xfc rm9TUn74Kdv2zJf+wvJEAHbQOVZ02duzi0McDMFqzH2mpheKX8Zv75/Xwun3 8qYOi+e/JLNIsrOAHrLAIbnn5hydS+KxWIgkrqVHGJVQcsqKRHvAO5lLAs3t ehFB72z5vaTa0Vdy9sASZKteL3jU9uxbIsYqKphxE45Ajy3jO//OLX/UEv5H 5qGUlH1frY+eO6iNs32cryl4QtSH8YnJKcnppxFf4KqESDVzH4ir9vjg1P+K +Q7ZC8N63d9qwLg13xzDU12HJHO3z+thVUWaev0r6SKyaa0oOblkmK8XEfZO ZBf24u63z7fPzG8uqZScfmsC13C4sS++kAuZndjfzq/18u4w6YMsiT5GRemR uaF1XQ6Z2B+wFcVC6uYZiMdCdv8t4ebROQefSE8dcFiIFKy5bDXlxxiQYg/Y J3PJkNf++PSfnWwuCrOBPXoy58KlojKqSm3OqZ92blgxqz+y32/Q/NWVe0Rr 7DnBjNtwBCdZxxkRxeEA4LBhB8EMWXz50Kblk4e+GNjYm/Bt1L73kFlrtmVe cxWmlsWZsVz62f5hs6Jiv/zm+JXb2ALRJJkTN6GF1Yqcb43Lbm3tj6SH3Oqp zJSmZ5pjGMpzGhMrf9NxiLhmw50bctGH0R2FRz4b1/EflEdTv1nwa3M///EC Hh+j8l72lyvC+3Rsymac6rV+qs+I1yJXxx86dx3zuop2NCCIDjFp4h+BO09h rDf5C/kKFysDFguRdnU1D4ZjQLQ9yDGZY6Hybs6eVcOcxiX4GJu1Hf3exuMu l1c3cIIZ9+XyuIMDWCOiWnFmUMHMJ6cvJ30woJm3sVmb0VEfJCRRwbq5L1Lp EmNAl0U4cuWqczk+wmr8BqJF+/hLzt8dItwVH60CagZVPyy39UlRRxShEXi9 JiXVZ+NeqRcRnqzruAyFmhbCbkVxFQdTBdH2oPXJvPJu7sHENfMZGQ9H/Ue6 9B0y5d0PEw7gqIKLCGbcFrw9OvlR5lXouatOdSDaZq/eQ/o28SG6zVjLC4Df uZ440ipqEnjyXYOUZXzS08D87IO2nqv2Z+ek9djqIQN6RZ6zfhqh9MrZ9O+/ 9yjyyXU8sSJhk8tGxQ1E4OBUXfUTdI56FmIrdqrrPLU4e4DJnAYVzLjxae/l r+rkzWxG1EiJyguXrKQnqDqjN/9c7DBFkac2Wrs6GgydRxzSb5ii+Fx0e/b8 mutzc0i0StdbHgALrIJXtxUwqoHd2BKE7/2hqw+7PUhqdyxLZMtybuknWi38 rgYEe83qWQjTjkex7IkciLMHmMxZOMGM226nSKZYHbG6rCCG5KqnFRJhFloL SDv8Hfev+9hnDVl/2oWHziUW9VmLEsDMucR+hO7t3x5OqEB4GHbmOTNih0bZ gWgmp/AgsTK7pkyoqlgI07bbg8aCGkacPcBkzoAKZtw50kj3DX4orzQ/PSUN e4lvpUG81sYRG69Vb0rsPKbbSB164N2dTo9LLCpwEh/QPlXlyWMCmG3ggPlu 6+jqA+Rcg3UpcVfMitebQ2zOnXuThrpj1xbUFF9GHQv5i06g6K/HNIc4e4DJ 3AYnmHGfOeJiOPxm2XSiStd1isz8YoAzj7gKM7POjJpVu6WA9McxEr3nZLvw 0Etzo1sS+vbcANywmVaq0Oui48JKP2qUm+kRnCtjMHQbm+46z8SL5BiJl2Py RCzZuftepr/Al5j7U414jSzKW4hNLKHjqoOi7AEmcxuIYMadT1t9W23KyWmr +3MubNcYd14rE8904tTpg6ryfcO4csRuxj6SWNTxLAHghdtCEk1n7dChO+9A 5Z3EwdaJ0Ld+l1FTd+W6EcCgZ3Yse5/JB4tEXNPWjM+TRlE6Q3ELsW20w1Nu yX81WRBjDzCZI3DBFnfi89KUaFYq4uUV/il3/p1SBdfRfYUEz71W7pPy91aQ A3RT6e58/f/2zra1C9PvLAHgx7aLbFA/9rxOw/o8yg4ve5wgHp2946bbp0FW asvex++fH14W4YoUpEfQQ6vGRLfsUNJCmI22ns/YirMHmMxt8DK/RqLXnN+r G5VXjkx8mCvryuuqY+3ypvsKCUjS3I3Mm/Nv9Th2SHP2tuds9+9OJcWWwNLj kwJyQprPRIcqufWWnaryn+eH1jUQQfO2X3Ap/ytMinqcnStEdmFA3p7/G1sL a4Iz6ICSFsKIJdzlWTSLSHuAyRyBE8wQdN+0+CvOBibVYaGh8bHgns2Zj/ZY /5vtL09GdqsBFRI8l3kjiTldNgFB7t+dSqpmn8QHJGI7EFpjYgsVJceWjWlp JOr1HBnrtF1I5b3srUy5eAsBI+ZniOsnxUQtJLdC0DhKWYjuBTNi7QEmcxto hRlmeEZ8ksvflRRl7p7RtaGBajVbcX4pk9Tzn7uXTiqXZ23r5+3mOJgu4GTe 7vzbnCWh7NvSZd0wpNgyP13oCBeDMj709h4uaEdWXT76dcZVHK26AT1TdnRV J6t9+A1ZmF1TzMEy49G96Y3N2g2fOCfmo41UL1Sq3+u/p7zQxmRtLGXq1G/R zmOORag8oqL061EB9L4pbG8e5rvXGMpYCCOW0GmbTgn2AJO5DUQwQzzavoPJ WjPKv3d4zKbE5BSq3fPCMS809fHqEB6TXmB92JKrW6im3tbe3JuTkuJXDP2H l2lAZJbeohP2lN1c15X1WvtHXXAxR6HqX7dNOTUJer7e9UYG9XV5lcmtAb3e 8eflv1lA25Dms0sH+xLu6o7qkNJLJ7/esDwyfGSfIKb6urFZ2559X5kwb0nC f04XSTi4eWP37Jb0lOuJPkfvKGAhtgoz+mzTKcUeYDJnQCvMNGkTf6Wy4Hjy pwvY1gle97Xq1uvV2TE7T1zlRVvvFh77Ynl4vx6Wz5hadw2LcdXUWzdwvRH5 XqsjaGJOl3WuSPPpjU+zT4CmCx3JXhzMfM5ErPyD+5Vrxkl8AA/3bmwd1Nwa 0mwTW2OiM/LBiA+NxucmHtP3kQmPkdtCGBGsLuPk0uwBJnMWrk2Du3BEjQep MuHaJJBD/bqtc4UI4F097N8/T3/Em/F1+dIgSkgmobMeUNPIP/F2W2pbZOo3 M7OWLNDisC3rrXvE59Qmx09WC6HPbngRo7/WW+dT6fYAk7kVtFSCXnVTuECc GVc9VmzFKAg9ix5Jc9r4VrQT++DML52f22DyiTT8AkR3/lwWaLSJpgDAQvmZ vaP8qdmy5bStuvTwFYA0n3y3T10qR996cbq+e9SKQDYLoU/06LBTHhZ7gMnc CidkdVfwtuZzr2DVU+6dGa6spc7z3eTpbb3oiJxTn5w2fr/HQp6mT6/xpGVU 9xAv3TpygGyU/5r4CpWeJoKXphbpdmjIBUnmxE1oYailngyNXBZyryBt4+rt J3T1VvHZA0zmiJBVr7opnCD9squtJoQ0zjB0GpJyQ8+hLJI8v3o4rcqz66dZ kvXt2yHNjU3bvZN64ba1jBjvKF/Jn6uDGvrqNL8GyAyz+wZ/xoHC5OjOtTUm gwIWQoPTHmAyv5YeYWTiTrrUTeHGJoaprmIeWynLYoEtY47rK6DpDLakhmUI dIuISdjPHl7zJpoOmLz7j1uUr0aXEbMOk6A5n+7fk7DgxTbWQ/p6j0oCclGW /f2MLg0JP2LygVq9aqNUndjY07KKBPaK/QXeCViIDPZQuydzVDATGn9O7dvR AEzvUec1JJkAaY3bW5VkH94QNXFgl8dMRqJe646DIt6JS8suRR11sjL/8PbI kS8GNvY2Nms9YOI7SRd1b/yAvJTmp8Wv3vWb/h1+TJAX0zfEbTtdpOdYLl5q t4XIZA+1djLnBDO6PF8sC6VpyzpZHdeB8b9x7ozFAFLWDrC2coC9FQAAAABo h+9GPURLoImQaVk1wTvDAVl1ec+7QT4E4Vs3ZGpMwv6U5MTNi0Z0N1nek69P aFQc7K0AAAAAQDvk714c1Mjg32Pwhz9BqIFH2dWsbdHThz37ZFMfquZn8Esj 5q6OP3zxFvgxAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAgFL8P7NHIVA= "], {{0, 111}, {751, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{546.7500000000001, Automatic}, ImageSizeRaw->{751, 111}, PlotRange->{{0, 751}, {0, 111}}]], "Input",ExpressionUUID->"0dc22173-ca36-4acb-adb3-3d109362f1e3"]], \ "Subsection", CellChangeTimes->{ 3.746790794639846*^9, {3.7468324068772516`*^9, 3.746832407310075*^9}, { 3.7468430339794984`*^9, 3.7468430342617435`*^9}, {3.751563846817762*^9, 3.7515638468180513`*^9}},ExpressionUUID->"37dd855b-c62a-4bcc-88ea-\ 4d1bfa1b423a"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{"Fh", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "=", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"X", "[", "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}, 3.75156302050286*^9, 3.751563084828599*^9, 3.751564444751294*^9}, CellLabel->"In[85]:=",ExpressionUUID->"fce2c8ea-dc6f-4442-9e32-917a76647bed"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "1", "]"}], "[", "2", "]"}], "[", RowBox[{"Fh", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.7467913000660734`*^9, 3.74679130814038*^9}, 3.746807032959241*^9, 3.7468331516324916`*^9, 3.7468431531448936`*^9, 3.751563020988893*^9, {3.7515644465174932`*^9, 3.751564446901001*^9}}, CellLabel->"In[86]:=",ExpressionUUID->"3cac7f77-e659-4a0d-8153-e435bbbfa4c1"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"X", "[", "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[{"X", "[", "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[{"X", "[", "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[{"X", "[", "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[{"X", "[", "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[{"X", "[", "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[{"X", "[", "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[{"X", "[", "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.751564455778302*^9, 3.751727179873866*^9, 3.751730250025442*^9}, CellLabel->"Out[86]=",ExpressionUUID->"1af695fb-7ee1-457f-b1cf-89e234a94942"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnXlcFVX/x4d7kQq5lssvIXJBTROtVNRHBXxMMfcs90d8TCxccylNChXD 0MctxUxNEykVS9wx5WIupZiJqViKKbhTYAqmYMh2+d25M3PnzNxtljPb5bz/ eF49er13zsx3zvmc7/kuAWOnDRqnwzBsxpPm/xkUEfXq++9HfDT4GfP/GTp1 xsTxUyPf6TN1ZuT4yPc7jdWb/3AC/inzf+D/XYVAIBAIBAKBQCAQCAQCgUAg EAgEAoFAIBCIakjZhd0jgoMTsx8rfSEqAt0TBAKBQCAQ7safP09p6IlhHrrW 3ZOuIpFjAd0TBAKBQCAQbkbe2Tnt6mAUhp6T0gtMSl+T0qB7gkAgEAgEQnpK /7iwN+GzROO5+5XS/1jRHwn9GuDKRu/ZKrCZjhA5vadlPJT+p1ULuicIBAKB QCCkB48l8/MkXEwd4jOk1X1FuZuGtPDA5Q0WstBY+Kjw0AdhNS0/HRC5OqdE 0t9WK+ieIBAIBAKBkIHKsj2D61PninpsyJJ86c4Vy4t/nB6MkfImrbCS/MNj s0iR03TGtnsyOBtVBbonCAQCgUAg5KH8QUKIl1X09d98WSrRZ1Uy3k/0XErJ G9ZfgcqnOoDuCQKBQCDUQHnRxZSvV638bOmc9yaaGTM8LDQkpGO7rotSUW6h m1F0fP2gF57R+b84dt0PUqkLkyn781H1zBrGp0b4NxfKbD9gFjlz+te3dADp l/ibnQ/AoqIk59C2L75MyrijtCGr554gENUQGFOBrBHRCISEmKqytvwbs0OT Tw6jxEIEP8zyZv3bjTwcyxteHxND6d97I9r64CF0Hh4dRqcXS/Eb3FDPPUEg qiEwpgJZI6JVyE3jML/GA96LTdh1MCMrJyf3XinrA6bywltXs079kLJp9dxR 3ZqOW1+gyHUiOII/rxwz2WdPLOvbgNR8XljUz2jlQfCjIG1RlxrcdItV5NT2 izp+B/qVVJ5Y0dK6gXnaY2UO9F/ginruCQJRDYEwFcgZEa1GTFXnN3S05xqy iy4wZOOlf5S+ZgQ3TFV7BtWyPDcPrFHIzntKXw9CWxRlxzbx5OGqIkWODgt9 NxP2GWzF97H1qEkI6zs7pwLy93NFTfcEgaiGQJgKZIuIVik8VJ9v33Ep19DM pR2KsmY/W223MwgIlOYcS8m4zcNHbKq8eWTb0VsSzBJFuZvHdKlfs067tz5K k+L7OaOie4JAVENgTAVyRESrF06qT9e47cQvD+ajE0JNYTq9pg31BFstPqH0 5SAQCAQCgVAWUvUFDJg4cXDvdo2eAcVerWZt+kd+uO7AqTtI72mQPz8fTD5I FNSHQCAQCASCUn2d1/5G/sHjv4lUgPxH6ERQy1SWJ/czkEF9zcL2oQwcN6Ck 4NQ38dMGvxb4rKfOv0XIwJGf7DiFyg4gEAgEgjM2qg/hHgBBfbrweCT6tE5p 1sEPQhvo6jw/5KNlSSlpO+Lf6+KNP13U+QuBUACTKefbeT3qYj0Sryh9KWqh fH/0E4bnw6tjpJwNqjYPpPqEoAHzztzQiTqpD177q9JXgxCFpbqUzhAWabRG L5uqDo9tQmTq9Ez4DfnlEQj5INuveOhad9txS7VrgOzcuxDboS6mr9Fq8tpq vRVVu3kg1ScI1Zv3vS9HkZrPG4s5U6705SBEcP3QW8/qDb2nZTxk/HHOgu5k +YI+0VdVOLUgEG4JvaZ3T7qKUrOZ5J2d065OtT6D0IB5INUnFDWbt6nqwEg/ MqjvxQFpfyt9PQjBlD5IfrMh9lKvlDy2P+9cVHsqbnNAWpEiFyclpor8Ezvm DieCGJv1HTd7669/KX1NnCgtZde550JZ6WPksNUA1JqO+TdfmaXONV1p8F2q J8yVUfxUIFtEtDbMw91V38NrCcPa1vSuFRqzPd/VUy7KOpK4auVXx3K45rtC N29Y2AT1me7fPJKweMIg3Owx73qtegycHr8Fcj9T87t55tCWJbPHDmImg9du GNStz6hZsQkoGZw/D3e9Xw/DwnffYv8Fna2jwzqOO81ZaJiK/rqaA4vsW/el mdnKi04tGtVYj3WIjEval7YtakBN80B9sIkH8yT5OaEU3754fPumT+fMGNm3 W1BjRgEE4i2b+PGnW49fKnY+8xCVnGugRHvVYzJdWTHE22KKY/fZvJIIirLT X76Kd0zDms7Ydk+kuBI9FcgXEa0Z87Cn+h7/fevCL0eMRmPa9xmXrhdqeSq6 sXwA6Q8JCNt33+lHbx8Z/ZTls3X81t3g+v0wzRsiYFDf6vM3U5b19TfvcZqP jDabvTE1OXHWa811ZrkQEBSTxlniOqGiJHv3ZxH/aqADazz6t+jS6WVfLwwE L/y4ek/OQw14NUxlpWWiL1Psl5T8sTzoSfv15+9nzqxNCnt9xBcP7fxj+5Tt noFBxyLsw6dHr9yWllUAQQfeTIxs9BTQ/yL/yGjLW6xwB16K4utn966YE961 uUHn6s5Y8Ov8xsLULEfaz9LizQOr3zwxV95hIHhyd+eMxpYH2n7BYQnNsKIk 51By/Owpg3t0bOJjfcX8Q96amXQmV/h0jXvMts8f3TfAonl8g4eu+kXCLoF5 X71TF8OjjsPW/CJmiRE5FcgZES2TeUAAVH0WP+qwbgE1GVOWzr/lkA+WGHMe aGCpZkE3XnHtD6ED4QzY0t95jBWWeUOEHouXvsfAXvW9sA5TV2UWAoN69Ffy 8Ba4XBXdIbT0xslFvXENiemfbNI7PGb9N+m/XgHL/pQW5GZ+n7xk8qCWT1EW Fdg9/ic+3Q2UAIY60mO9o68J3wuQ7+aEQ4V2/u7kihbUz/RN4rxLkUj1gXjX aRc+ff1hhyLH9bCzkvvosPZL0+n39V56JPnligapEidNQ/7lW4M15Hov9R02 7ePFibtSjT+czMrJybn8a/rBtB1fxseMG9GunqXJu94zMDzmaB5bElNd4HVY yLvnhZwMI2SCMEszhr5RmY+k+Y2SglNfLRjUguk0BvGpMWrnFQELsen+1S1v BxsY3+WBNWqVeF0yV0V58YExgZYl5pmYUwJjjMROBTJGRMthHtAgV5ZOsTu/ Ghts0HkGDp++bv9Pv9+xuGMeP8g6uPWDrhYfTh11p6za5bZxOGnhnrrxic76 B4PV7QKHHeX11GCYN0zooD5yohi58WfbGAbTuQ2dLeP1aDfsiNCrptYsLODN GS73oaXZP8zv2VxHXRXXTqYKoQLVZ96H/ZN/8w+78okuwe2Dxf3G4zfoE16L MknZ9PncYZ0Mttf+tP+oFd8c/uWis/Pdcz+lpX6X9PnCqAhK2wD4hb2dcJq/ a6KyLHVUABY8LgPcLZ9Z8wp1R6cdV0IbEXrv9Vd8PIARWvTtuv0nbjktbWp6 mJeeMLdHXfP9sQnwpmKD8ds1Z7+2JlcNUHR7b/SYtuY7r68R+N/Y09wd4na+ 6saKYMuTqv1k3DlJOtEXnvp2/Mt1XE0pgqQannto/5vbx5+W0Jlz68hbuAfJ w6PtQONd/r8jciqQMyJaevOACt2RTfdipyXH7HlginI3DbH4hfRYyMI0DQk/ oE2zK38IcF4mpLqdSPOGCx3Uhz+y0PgT9t+NkluLKG9Rv6TrAn6HlHwOVKV9 SgoPfRBG+pLVLfwY8W/Zv2ccMRr3fLs2dlb/5vZ24t6GkLejP01MTjWmpp/P poVR7j1JNIqYTYot5Y+SB9ZnjsfVLskWyw7RRhd5hc3ZdKmIzxtxcUs3DAtL vAz+GR2nocQxaGlu5obxPeqDqtbbs+fMz9J4HX/knVncy7zlAYSfdV61MDIF 1dSESunfe0a2AI2x9eJ0gVOzqersxz2JWat13GH4U5bJlP31e0HeduYVuzT5 5DCvgTjewHp6Tt0qqeucPAgTFgElbiqAHhHtEKnNAz6E6jOL3s6J2Y4DckhV g6uIfom/aWFcOJSk5+APAQLhguJ/EfBboswbLsBYno3ccMfxxRwY8Qz5UIcs yec7Id6/HNvKS4hye3x3c/8G5PWpxDvKiz9/ntKQ6deS/6UQuUmxgfYcinsL cJ/Y8SSWy8LQ/b8p17gG++Gzul9QUj7wR4/vrulExWm8EXfLNsRROshSq8Dj 1utbj5mfdlVQuEvRHwn9cMvHz4AeFv84PZj6UhTUB5/KEytaQlI4VPC2eYc1 IM15cLggrPFgxGTSc8XhnKtXM7/f/smQtow9FAl/rWIqL7ycsWZQC5svk1z1 WSKTLS+vDzbtBzuRKk4QNRVIEBHtCKnNQxLunHo38Jnph1xkxFxZ0JOcoPwb rcvRgr8PDOprO/qEU88FEAgnNJNOhHnDBRzLtGPOokop1cff0W2qOhMdav6X jIgL7lwzjiCzPDw8Oo9OF//iyQt13yie9liZI+sFgEF9UEpw23oDRCX1F93e M7m7D/1lHrrWvdZlcii2gL+zT7H2IKbTa9pQX8Ta+EuKbSgUnv10QHi8Ig61 ZQjq8RrgXUVBffCxNWmBp5mP/0oIsxwZSVQOnZ4MMXYB2PJHhya0w2yp7bMy m/+FFGbOZHn0ZVB9VVXFxtgWhJGzzmqdI2oqkCQi2j5Sm4eyAB4k3+nbNFAe jA7qc+UPAavbNQrZeU/gDwo0b9gcGvMcp7FU/LM5jDpU4JO2jJOz5w38vj7R JKhLz/+MX3+adz4ItYnACfnstFa8xwRZ80KAmZNDejhsaNccpOwGyKqviqq3 QKe4cq1Zmv/TduPlB+CfnJremvyOZxusuy7TtFqa/eMH7Zkey56Tj9jkYgiA OHhigYL6oMP09QmPvaGel1SenJvL+xOXqGv88rQtNqEy+emRT9mYi1nPHBFi iuztqh4bufdPKKNwhtUfgmGha89zfwaipgIJIqLtIrV5KAztF/XA/Jl+V1UC BvW58IcA1e2w1z+5LdgQhJo3TIpzYhtTY3F+bkt/kre36uK8UGDuMMue4J18 dd/1PQOt/1xr7wuVAkZdv8xFksGgPkgluOGrviprwVL6RgnpT3Qv413yK3S6 4UvyZNFGhSc3jfAHT3WhtuABZgkrKKgPPuXFxxeGt3zSknTz1kdptwQpdumn 9MJjibNmxyY4ygmylhmB8XoyVZ/Oo/uUc7Jkm9LSqOVr+/4SehehTAVwI6LV sOJLyuP85a/QFjNou/R7BHHQQX0u/SFXtveixsU3UJYFHPMWAzCWVotPOPsk qLt4hRWBcpFAwBEn6GmU9+ROPAqrPthBfVUSqb4qIo2uAfi1fMsagJ4xeeYc S/U84IolSGF78O3kJ0H7QUF9aoWezwVsbCHxaNtkjI3umQ928Y5vZUy58jaP KMqObUJuowTn1MCZCqBOnmowD6kBdwpqP5Kgg/pcH8A92PyOdYafcFjc+g3D vMVAj8VVgCLgC+W567FWTLL+82Zh+/i/P8A5qexR+uJQVvVBD+qrkk71mbl9 bNxzjOSXwHmpXMMfKsv2DK5PLVJynC/IIPlw/iAqzVLGj4L61Enp3wndSJmk XFCTqSpry79ZL6cgxVJ6fHlb65Tl22xeuqwyhc4LEHayA2kqgDl5qsI8JAdQ fYKyPuUECOpzeanHJzQlzQnGpluseYuDHourVyN7QZjAOQSsDIM5LQ7jFEBp yO3ueHhgYVhwCEBw/zHvL93NtTOjYNVnun8zNX5OeJ+u4G+HdG0f9zOPMFDo QX1Vkqo+IL2dhHtJq5vWt1hXa8LXUif9lP2a/KYP4yZI1WmR6ehW+w66ukJH BipbG7ww41128i3vQqDWwqqYpUTb0pOye6YsZVgIhBQKgzQVQJw81WIePDHl /7pyVPcAw5NN+o5K+NV1eBBD9YksPysxYFCfi4POx3nL2xKvA6RNt0jzFkPp vTXtqbE4rzrOXHf47noKDi7v2xA3BrzD2kZhtbvpQpEEcoY2VV7c/94b7B40 3Fd5YarPdDl1TFN2rT+8mfiYKTuucp40JAjqq5JY9dlEsunsV1Swgc5G12MR qRKbB9sn6eHRcfiRAql2tnT8ifjzBYQU0AF1kKq6CYYZW0W++3xOZwoOf96X sm1eZZRgQq84OqzHzCye+XtwpgKIk6d6zIMnZ6M60PMwhwfBUH1ish6kB5xU XVTwpsPbIG26xZm3KOhdoavAD9oXimFPY0uz5H+WbNUnMqJSAKW5521rWDWJ 2u1yDRai+qwJ/lb0Hh3eW5fFq4JxFSMuBaK/XVrVV1V1d9PbjAQGL2zsAVfN 08HaXC8NPQrcYdOdrBQjV8csJ4py1/ZgPh2Ja+xTkRjayIyrjgDJs/JPTQxM VXsG1WK+nZzPF8qLzq2aGEi8RvoarSZ+xnvCgQftZzNgcef5OMdgTQUQg/rU Yx68oCPfuFkRrZMxgdGksgEG9bmaVMv3R1sjqxnupuK8dOPhW4LOd4Sbt0iA iDvnqzYQT+5Rc/SqfEUEPKC3FYsZsHbSscJBAwtQfSX7o1n1OgzDFwo4PQTj Ulw4sfkgtepjRrJhnDZEgM/cb9Zu0D2Bl29tBK9aDlBa34rAQpScoW44zE6g CIjQM6TgCq7woOJ2wGnKdQIdfpZH1nn2wOo3m2hbFkZmgDean1KCNBVADOpT lXnwAvDdcThzARp4YSovNUA7slwf2tJeQWbNOuKMWOB5vWDzFgmg+pwVdKp4 lDyA0iAGLOa0In0DWb4+HdZ95iUlNhK29dNcPjLeqo/VGVnEbac3FFBnG8lV Hx2MTeGNzTrp7A7Q1YFYWyd8488u3yoGIMqdMkXp621aQ1C05CioPoC5A/Di KATDnHAsOK81Z6q8uXdZX3/rqe6Ynb8L6iYDF7r4A79TUVhTAbSgPpWZBy8s 8fxPNOnQfegHi4/cdnXWT0spgTmbsgEE9bk6iQb7dzDtEFeDLYQ+UKHmLRYg AsSJ6jOd29CZmjyU6x/HUn2y1z+xQpeBoh6Zq50Cb9XHyn8RfPQPxqWIKCdu i+SqD4zMoW6Cs6hs8MVk3ivCeqFVlyUaC4J42S/pDxfyhqOgPnVCu6ahFUcS g82742yGL72VsWYU1VPGp07/RbuEnVhJAV1mmXtYEaypAGJQn8rMgxfETeNY XRCsMaXyZgq0+87VQ6G6aWDslnx4ikcNMblCQsxbPIBPKcL4wP5nKstSRwUQ xi+4Xj0czqwBgpSVU33MxBYuUQG8VR9QRJFAoIdHmqC+KllUH/NxYy42j4DX mnGQXVl26J1AiNnx2cteZza955ppIhLLDUdBfSqFR4V/WbB9PTG73cTKizIT 51rbRtcKGZl4nkMbRBkBaw9yrdEKayqAN3mqzTz4Qdy3hi+vu+zK0Vd0fVE7 ckfMt86q3DDiFZ2eGzKz9hjt5i1HtGLSBoWYNwys4txR0FdBSvSLxJrr2zju tGS+aVNZaZmL94o5lSmn+kCJTpo4tvR3ZxfPV/VV/rC4IXPGFlZlVKKgvip5 VF8+K7TPaZ9owDsK+jSI09jByaK7ZxKALVCpS5LB0VdFmhAK6pOAytJS0ZHU tN9AJVFb7B2TnTe0KPO7uT2bky0QVebiowBrD3L2kkGaCiBOnqozD77g3cBr 6ELCU500rKE7KwnqqSQzYHYqrm1aJt62t4LnnZ3Trq7uhZAuVOsA8CXCs5tF +RMEmTcUCi/MDvB0dIZIVSSDX6Wz9M6Vw1s+jxk3vGebFwx091XMr91ro6Li tp/JtX036CgL4kkpp/psw2act7nkq/psNZWwNpoSBfXZvUL4qs9OAQrHPk+g EZXVa22pOYYFjE+AU9DbVPXz++2ZlyOTo6+KMiEU1AeL0tzMLTHjwwLISHVD s/bh8zecviOoRAmfZEBZYJc7sODpOXUrIW9N92+lzB7cWE/+hW/fSUm/qsvF R0NLOB3WdvQJLqHNkKYCaJOnlOZRfC1j+5Lo8J5tfK270dr+ISMmLd11/I6g S3bkfSm7sH986zq6gI6zvrHzzea3aUMEGSTgO2CGmP7j8owI9L4S2BZhK8zY ObV9XQ+8HXz5lYVEUWU6Oagsc0tvT9Ft9QSYNySKDy/Co9P1WL/E3+j7aqrI M64iqjbpAruv/AWS5DNV5J/YPn/Uq76U01Tn/0L3YRET35+9NP7TmGmTyMet 9wwcyW6FyfSwKan66IYmFHBVH1PfCo0lpkvBs8sXiEcO1WenAIXTsFvKFW8I m5y0/7stcRPb18QChs0+AauGHjutGEe2Apulf1w4nHYw6z4SfRAg69Hpn2gS NjRqwbK55HTkocNneP4LFu2UVk3bFHY7JIwMScKzNpYPbv4MORHVb/H2+oP5 anY+geE0ro5UaMRPBRAjoqUxD9OdS1um9quvZz9mK4b2b67P5CfmTee3dHd8 Bm39RUPLbqNmfbz2m71GY1rK5vVxkwe1tBSlMQR2i7KnCVU4IiCoD2vaqrXB Uo7Nr0dEXEJyqnlQm1bjc4KXvnVEXHq+ZUIoyt00pIUH7v4KnL4xJSVxyaDn 9RBOsYWZNxTMU8Guj4PNWsu7ZuikuKR9xtTkjTHDOuFG7+0VFr3+fCGcizGL 57mvv+JDFLzDf2v+9oxrxTaLON6Q4n9vB3oxJ2F2NJ2StS75+uL4qj62L9Fx 1QVT/vkvIvsF+HgGhsew5rSy9OVtqC+A3ulbDtVnpwCFi1tnnjeSYsb1C3rB 4F2vVdiQDzcfgrii4TUf2Bej6iQ1hF2IJnrmnWz8T7dJ6wBDlzuPTucZnA0c BTKDvRWEjkkDJsxXhrw3rC05/er1rcfEuk7JVAHgZp97JRCxUwG8oD4pzKPg 2PpBzLaV9uB5Qke8Ba6KRVh8cbPHDurdrpFl71C7YVC3PqOiFiT9eL5QRKSE rCMCva/1myfersg/nfrFnCmDe3Rs4oPhm8EO3YfOsDlwLCk49fXiiN6dzZ/B jwbiNl2CUcpSmHnDAj/yiJ0yuOvLvl6Yzr9FyOvDZq1IPHoNUv5+cX7qHPpM gUvYcOHJTSP8a2DWSZg9jylZ91stqq+iZM/QBtZP9Ui8Qv8VXeRZp/v3uFOw lyJ5VJ+dAhQcyo5JwqMbiwJZk5IcTd8QcDFlJffR2fHpgUmvfMOqQc+/Wo7g 7UVHWDG07bUwNct2u61OwIMPuMHJToAY1AfZPEym7K/fC2JmlDnGA/NvvjKL k7a35OoqUYxX/hGB3lelI6UVMW8ZKL3xU2xoAzJ2T48Ff7T1KrewYSKRpHXc 4TI7LcXpMBX5sdU8dvLjAKRSfcx8Bzrjw1R1ceEAb+K3GnHIveKPYqpPoXBo 2/waOZq+IeBS8ufa4LpY7WdiTrGz0m4u7299rnzDqsHTIsbOS0HYJyMUPnX7 z4fjo5ANYKrx1I1PlCf0CWJENFzzyEuazJ6ICGo3bt2Y3b6TfOYD57pWSYRb 7CkXNVGlQP4RgZO54ts0RcxbasAu3uaFMmRhGo8mvMSDCwjeecdOKJ0UMoMj fDUPX9WXNS+E8XlHMcBAm3VD72kZhOOppPBQdH9LdISHrnWvdTwDITiimOoT mtgiErruq/WhQK1/qAoKLiVETZqoEuatyoTtSP1z/X+fwLDAeam2eeDAOQvv lvFA8wJljNMu4FWR+GBRP6mg9jI/wMwU3o9GIFAjoiGaR+mJ1V2AhqCGV3pM X5549NdrhVZZWvFPftYZ44bFY/7VgE6R1LvOXLa4xeTLTbOiyIgsdactOCkK IRNKmLfEMCSfeb6N3stD8lkwnV7TBvek5aVPYoZ4uWyXLCF2UuTgqj7mjO34 89bWYHWeHbtqtzH1u6Tl88d0srwdtev1nwMtINMWeVSf3bJjCiyseDVO1vGu 9qqtusTu3VYQyA+6KDu2SQ2scYetuTYvBeP58px7wbNU5/0vZMR0P3fjGwHs G6pUdIRI6EacMDP4ZIqIhmged8/NDCCtVPdi6NxtTvMmyosyN37Ymez8q8NC 38108jIR3pUaMhWholFkRLQbXB2B2dKYt1KwJB8nr6wteNcSndeQqBmMCnlK V0hgdATGXLaZ5qf6GA2sMRc1JCtKsvetmz6YjK31e6lTz+HvzNuw/dxf0kqj 6qX6GMWdSLRXbdUVpgvf9jG4DKiWCV3T1glQ971EI8Umcw/YWViAhpi8z1nA eGM1yCrzhLDLmqXLRMmdsgjofGR4075sEdGwzKOy/NiUdsTXBIyan8FtO08v wU7Liirj6FNqRHfSI6loM1Xs3KUwb6W4f2VRxzqYdTiNWiVeFziH446vOn5+ TzHWBKWa8JLYpJY4T87ip/qYDaxVlBgIII/qA0uXW5Ff9dkWd9JqtdVqC9FJ 3EHbI1Z2Nr+K6OCkrfShf1HmvpgBVJEEezhswKRm6Hal8HS1bBHRkMzD2vvb tqycc8pOf/kqbg8677Hr7SschRx9So0IDOqTsx2GQ6Qwb0Uof3RoQjtwthHj J7cb3KVwEKZtGRmnhZj4qT6bnhSMLjDqoFrF9bHLJ7rBpqy6gTvnHTSzfnx3 TScv+slaooh5fjO391pKTPevbo8aZC2SYAh6fUnUSAPGRsFYaOGAh6TCKpfa IltENBTzKH2wuQ++7zQMX8hLIBHcWDXU28mUlbPnDfkdfcqNiA7qk7P1rROk MG8lALoVW6xdXBdUu4mcSgdhssL7XcgAXqoPLBpADFaFbiXFVJ8S7wWYhWdB NcV4Edz4Z/eMpxxsFYnIYeuT5VmNBwzxVUj1sY506zQYumRbTlGlvfYckm+W LcH5Or+JX8OqjI7DrEIDZ9MnU0Q0HPOoPLGipfmf2w1J5ULJH8uD8H2NXSc2 3lZMh43cK6Tjp2AUHBEVM+8qMlA2pDBv+SFbvNG0Xpwu5hWyWfpVEYTJLuXh VIjyUn02jeeUH6wtCqk+S1HNXOi/4wKbdEg1nrkjnFCw+6PAF5utvWRnv4Cv EdzeYnsorPpKs3+Is9a9x/sZzd6XQ2XpsmOPMcmrXd2/HNvKC34qokTLohwR 0TDMg2owJ+a87MG3k5+0G8aWnx75lA4LHpchpxNF0RHl7ZwXXM/Dr/OAT0/C 7DArHLdQfUR5BBrRflRbT4sqquMCPb4JnOyjeag+m7NjVQzWBnlUn43ckrtZ oYPLwPzm7Be5rJV8vyiQvSgzf+KlziEkoUFg3SpvLOok8jNCojBzZn3AutqP PsGvxRK4rMsbbFxScGzx24HU0bSdwsv2mrJJWNm+suzkzGDyV+CqPmZ2m6aW RRjmgS80ovf+uBbywF4ckMYsVHllAd5eFnrnJhe434jEoGHzpmC3MBDdN42d 0Kqi6riEgXEZKQ/Vx9qhO81UUhA5VJ+dSrPKZF3Zqj7xg7WJFeSMDxZzRnUn /hqlZH80mKfD/1RCiXJbpor840njX6Zy5Xzq9P/fthzbwsvspDBMUl0KRPXA vw/qrIjIARjmYQlBbBK1W5QXmXCvPcUMj8G3PEqcJbnfiMShWfMmKT0Yy6qz LTaShO1SU9MzxaNGARwfD3FXfWwlaTf+XAXIofrA5CYKReqlSKH6qh7/fSuH 4sIvR4xG43e7Epd9MvKVOuwxY1jAG9NXbt1rNKamn8/Oyb2HPH1wqCzbM5j2 9Ak6lZBb9eFZG9PoDvUBb76/43cHhZdL761pz6rDI9kZNFB4Dak+ABXV4CXa HIA9pO5uetuLbH2lSdxmRJo1bwvUeT2N+LSLzA2dmDOX36zdarkvpqoLsWHA pTlsYshV9d059S5Q4dB898J335J4DAKRQ/XZVslTKOvKVvVJVwHDpkqMDms7 9Ci7gRgCBjdBA9Nhb8Td4u0HYx7hSRp+YKq8uZfO2tAFdIzac855L10bu5Um 95yo2NAwKOh54ldgy5vyBwkh1iRrbS2LMpqHyyvBW5oCdWWJhIg6tVdeUUEe qxDcZUQaNm8Ltn450QWswK7oOAYs7ryaUpvJAGYKH2ziwTzbT3FSfaaqM9GM vGAFGmFzRgbVZ0f/KOT5tIkslbAChm3nQcU7Rborf6weAt7nfknX+X+HTNkc pjuXNkYEk5EueqzDxGXp+a5XB6DNHIUEBcHu7pzRWIeFf3t6RTvq+jSRzSEH KkjxtoLXmKUDOy1ZtI5L3mkC9xiRhs27itLeIHpsyJJ8MSuWbZcKIftxaWF2 EvTwaDvQeJc9Zi6qr/jworbAZ3Qv9UrJU+9qL4Pqs9VaSsXosrceUqq+4xOY nQdVWbfHHWCV6RMYNwJOetIs66aKPOOqvs9RjasCgmLScjgahJ3CR9Dbc9w+ Nu45rOmMbQUl1sULqT4r0psHd/ATfy/S36hUCza4uMeINGzeOLZKoNXiE6K+ 8SbzjE+tqQ1398UGAXnLhiEfX2QGV7tUfczudR6Yb7N56erIK3eA5KqPnRYk oriTaNgVFGHk8NqH3fBX+XYP7gqzTB/mO32bwAUZbL4AfVkvKTwcO9haezlg 1HwuLj4rdlvbwAxOKP17z8gW5D73sSyqT3PNCyQ1D54cGFEbCwjbd59YWFVT sE4E7jAiTZu3va2lyBmGeQQje/1wPhSkLepSg75WQ8/JR/Jo+3Ou+gqOrR/0 HL3W6wLaxJ0QJPnKiy6mfL1q5WdL57w30cyY4WGhISEd23VdlAr9VZBa9dmm BQXOS1WsMDdQyZ9Y16RKJWbXWBPtLedFwaWEqEkTVcK8VZlSViwSV6YPAFzW 4RaTzDuzuFdzsmWoT42RG3++z1NKle+PfhJjA/E9zfvqnbpeVEyLdKpPbZ2O eSGdefAHPz2phd9AogWhlsqbOMAdRqRp87ZVfXX81t1w/a8cQtXfts7M6nT0 WSk6u2v8S3QCpu7F4DiqgpYj1We6fytlXnhLYGr27T/VeEuYRrM9YSeRIjBM WtVHuOvBO6aco4+4HkayJ2anThQUiBYSIGK95XywfabKIuFhB6tMn5jqUtJs 1YvObvsP5fzXBXZf+YuAbaBJ2vYc14wjvIC9mHSqDxROhGNHQ6jJk4MvQwZs 5QXLwurbMvG29iQSC3cYkabN21bbBA47yq/kKQOmt0fVqQ00JQXH4qeH/B/t uPPrNjJmw74d0zoz7kzj19YfOZQYM75LffqThsBuUd8cvyMmhstUXmipBpJ9 9sSyvg3I75UmMExS1Vd2ajV4v8zLSNiaX5QNbnu4631Gaok3Nusk/Hw8ZYP6 TBe+7WNg1fpQDF3T1gmS1blglelrH3/adrWoPPVll0ZY3FlX9x+sKgkpag44 OPDQte6edFWo+rXNgofVVubxXwlh9bDOo9Ot3yWd6ruyvRdlFGKrv8qPBOYh GHyB9sCm/m9xoBazHuzhDiPStHmzVZ+4d5+YVUg8MP/mK7O4TX0PryUMa1vT u1ZozHaXKrEo60jiqpVfHeMaHc0R0/2bxrWfRHRrbtBxWN68awcNn7R0lzi9 x76Cqj2DapG3TprAMAlVH+PR4/gMnMvx4UuITZ9B4ZFgjpAgBR5hB5bn1kGp BzwB1pOT6j405jnrl41MEbvyMGJF6tRfekGE6dtpzwGnhfSNVUOfMjwTcwrw d0um+oCoWil7i0gGXPMQA1EZvmmTJprMerCHG4xI6+bNLDohKiSJ4VrRY6Hx JzhOVMT5Pidn6e0jo4njNJEn0Y4pvn3x+PZNn86ZGf6vBhjI0437R06Jid+w 48hPtx5J4JSm9YNUgWFSqT5T1cWFA4CGHGbl8/K6y4prPhxmq0HzhbVKvA7z FbUJZVSmEYn7w6VMH/4G6bCXhh7loOxvLu8P6y0oy9zSm95biPbLMdMDSbsV HV1GXGT7pemMOVky1QdMNUBxNu0A0TxEQt1JroatftxgRFo3b2ZFZRHvPqPS Ox9XD13w0LWzlC7HYcCW/i5tPACPjmwwAPMTJQoMk0j14bW/wC811Jh+VDW5 zKxAUwzzm7y5ANbqxg5lxFGkEYnbw6rDE5Z42fYzlT8sbsi5IDyQNOHpOXWr 8HKiRdcXtWMYmNiX17adpQVHHqfSO1dSN8bPjY5Oy3Vs1kU3VgTXxbpPOceK 3pFM9YGqqUfiFWjfKxfQzEM01jvpNiVA3WBEWjdvZrUNoUcJleXHprSjvsQs kP619SbnGYSOY/HUjU90FndFz4di4w+5ILPqo3u8ShYYBl/1mSpv7vo4GFz0 fGqEf3NBVbXqyk5/+SqYzOuDjd0Hp3lKQUr0i6wb6s1sMYmAAksIPdtg3XWb 5YJq8ck1dJOOzBEleB58O5mZcgtBJNgp1IzpdMOX5LEusuj23o9GkmllTgzP 4op/yve5pedt7oxkqo8+IdVo7UpI5iEechlyo4nFDUakefNmtJEV2P2H4e2p 7Rd1nIerB+zmALbnswOdLi3HOZqsqg8UtJL1LIas+sqLTi0a1RgMg6xTf+w2 dUk+gpuJkY2AotxQKiuyyv6Q3yxNmnB1h3Ho6eB4F++vzadOFB1QIerVBgPA yMtrP/qEuA2pbasXYn0Zsgl4ufLOzmlHFx/weXOho4Hjux6dg9QqiVQf3U1Y mnZyMgDJPMRjWYY0mTLgCM2PyA3MuwoIlrPAt8kRY/nj7+qhuzn4YHG/OZ13 gMPooPhfeF2kAGRVfUBQn3SClnYnir6NhRk7Z4Y2ABWf7sVOS0+q5mCXhW3k oW/g9JSLAgWqyZSz9aPOFh9LwLivN9JtrFFQnzQwQ93sHAwRZw16PsHhoP9Q RLiIbbtn3CoilqVfuyd8Tbu4pZvtl+IzpM+QhUknsnJyfj+/ojudN+csZdjS fdJhvI1Eqi//yGhqVsD6RF/VWqw7DiTzEA9hYNo9DLVF8yNyA/O2cGPVUG/r QILHZXCuflpw8NMetakDYgGne2BQn6s+13RsjyxuVfZ8LmnhJkDQShUYVv4o eWB9xohcHqnb8vhB1sGtc19/xQc8M9XrW0fE8WpA4BBTRf7p1C/mTBnco2MT H6xWszb9Iz9c/yOQr11eWirsLTOZste/3Yhx2ViHqZ9l3OF32UVZR5cNaYsP X48Ff7T1agkjINOFsxohDLCShr2bXGyMbcG/ThS4CRq0/U9hl2ZX9REIz/1k NJ5zjlPJR3QJb+A4tUoa1Qe2xdHu4g7FPMRCrI9aPgxlo/0RwTFv6VY67jz+ K3lIC+uS2D42tdDlL1Y8vpjwXhA5GQt1ntBBfa78JKaqAyP9yN+SoTiGTdEP 87w4OFmqNZ0WtJBeB1PRX1dzLFz+Nf1gWsqm1VEDmVKN4Gn/USu+NZ44m53j kOxzP6Wlfpf0+cKoiBHt6rFLwxna9lpI1bUWSWn2D3GEnqwTMOD9BUn7jKnJ iVHmP/F+oufStMKy4uMLw1s+aV7muu24Jej3TBV5h9aBHVWI7MjwuHVHL//l wjODy92k+aNe9bX8a11Ax6g958hRW3M6XDqrEUKh0vztLMGWxog1+MUSWwBn b8Hd+i7OC7WjxfBGP5PSC4TrnYf7Pmpk93sZM5J5t7Ugo9DhrxBdwvtvvuzw E9KoPno202MTDmszSxOSeYjlTnqkTo4gdvnQ/ojEm7fkKx13wEARPRb84aZL RQ5ni6KLBxcADp9aISO2Zj0QMMeBQX0ufFxgYRN4FXJodYTrm98zjhiNe75d Gzurf3N7W3hvQ8jb0Z8mJqcaU9PPA0IpV8RpThVT0EIKDJO8ZYP+ySZ9x8R/ dwpOxULgzNTQ/b8p1wDXRHnR2QWDvfVY+IdRQdSPi6mgZbp/dbs1Bh7Ar91r o2Z9vPabvcbvf8y8QhpD6vavVy2eP/HNbgE1qc/VaTBk/obTLA/h9UNvPevl 0lmNEA5QIoDO0jXLeOOqvmYZLyxQk55ShBfEM2Ul92FV+NR7th6/LNOxGONE efGxWWE1MQdY3r6VPzitWWq5Yz7/+fSmk0BHKVQfOJtJFqIsBzDMQySWyuQK p5PARfMjEmneMq50XK/ozu9f/KetVcvpGred+L/1O46fzb56vbAUbyGRfe7k 9nVLpvcBvEZ1GgxduutWicBfpIP6XPq46KQqmKcGMNSRaBu2Ceoz3b95JGHx hEGvBT7riXnXa9Vj4PT4LbzOIiVRfeYr6donfHr0ym++O337IbSDG+Ds1b6H pPTB5j5ACWgYLrXS3HPJC6b1bOzweM4Wv04D3vs8+dxf9p9Cac7xLcZzUtRx RBBYfHoW4WfZfC39JDq8K15TXUxAKZ0tazcvmBsFx74c0+Z5XPrV9g95a9ZX P12FE31S8TjrmyURPdv4Uoe9tZq90nPYW1ErEo+4dE0TgY5NXfk/pVB9dM6d rtaEr6Vsyyw5UMxD9AUoXDoGLpofkRjzVmKl40RFSfau5YPterqY6PxbjLR1 evCCDupzXZ+ZzmuDemqgCtUHBvWtPn8zZVlff0+df/OR0cuSUnDf76zX8H7u uoCgmDTIHUnUAJVg66yEMtCNC2qebEXJrYzvk5bHTvvPwK5tXmC1ZfF7qXPX AcOmfbw4cddBmCoXIZTS3MwtH40JbkjOToaWXccuFDUFESX+CBSL3ZIAvKiC Dgvf7apCkQSqj76leiwiVbuePhyFzYPyBsjZ11tatD8iMeat5ErHhYqSnEPJ 8bPJUEOa2g2Deg2c+PGnSQdh9KcAgvpcdqOgup1CKFOvNoAsFX2Pgb3qe2Ed pq5inBA9+it5uCXqkmdVHPVTemJ1Fw/SBJwFINFpU1I1LkFUR2TJnZcborJE /ZZDx010wfgxwdb6JI2CRoF/9eGq84LUNHV844EFDkjTWld6NoqahzVNTNmW cBBxgxEJNm+00hGAQX0uxP/jvOVtiagexUIspIKOE7DgU2Pkxp/v2+wDTOc2 dLYYm0e7YUfcpiKcpawE+VidZ44D7lDt7hMRKoRKx9By6S0Wdnq68UVooSqg LXWTuQfc4GBCQfMgM5jcKEdM8yMSbN5opaOgg/r02LTjTpXc9T0DqVuhWDqV RACG5Kx5ccmtRVRGGd+CiqoFbJIbuva8k20Nfb6v2VroCJVyObk35m5vFjdM Vec3dLROPTBOeOm21E9jS7PcYp5WyjzIakUcetNrBe2PSLB5o5WOBAzqc7WN AroiMp3DxXnpxsOCc0lUAaDtn43ccMexKVGVwdzF8QvWxnEVLE2f78tQtAdR raCbKfNp7eEOwFZ99J3kXTtRvShlHn8QJ30wC1YojNZHJNi80UpnhQ7qc31o S3sF6/itA2rmEWfE2q33WMUsPT3tmLPq2JTqU7hDECyABqY6rMfMLCfbmuKc 2MbU2uQeihehJqjwCbwLQ8zp6lN8B7bqw5viWfDm3A1ZCyhiHtbwJ+2WuWah +REJNW+00lkBgvpciX+wfwezeR+uBltou/Mp1cfTlbYH2xMwpa8mqSzbM5hu FOJiHgDO97U6YyDUDL2Lx3ynb9P+joojkFWftZ+7k6bAmkQJ87A6OiKMD2T5 QcnR+ogEmjda6QBo952r9ChLuyXyk/qIL+gKOXiKRw1tl4Tiru3pT0rcG04e 6KpHrkvx/LN7hrVNtEZnDITasW7k69ReeUWL508CgKr68tMjibfULf2lMpsH 6ehwo4IVWh+RYPNGK50V2n2H4R687jMvORLPt4+NA1poBcX/Qv+VpUe5tktC AaWnXSTs0LsAzb44NKaqrC3/tg7HVVQnVSvVDQaOUCumqguxYYRFVh93371N 73hbX8OmoTsFHykBd89v8uYC91PNMpsHGf7k6kBQQ2h6RMLNG610AHRQn2WM vi0Tb9ubcPAmcXV1L4R0aUB+tPPa36x/eTaqg9ZLQnFP2AEOxLXdxJAAGI6r qE43LtqDUBXW6gpu6a0iuPnj/ElEPb5J4UDXD/JV9G/W978TiL+dsGzHHe4a kHSFeWAvhO780/0OpizIaB6aD4GzQdsjEmHeaKWzAlbqIwiIXJ3DTMUtzNg5 tX1dj9bdk66WX1lIHqlbW3CWZW7p7ekiCVr90Ak7rnYB2QvCqFvlDuVkgZYo zFN7W2gnp+6ZD3bRLmFT5c3je0/kimgNg0AwKT2+vK3F1HwGzs1yQ8uijnT1 TzQJCnFAaKtnPfkd+JYX7x0RQGxdXXcD0TKymQcZ/gS1C5WyaHhE4swbrXRW gKA+rGmr1gZLzWq/HhFxCcmpxrSUTavnjnrV10vfOiIuPd8y2KLcTUNaeOBe wcDpG1NSEpcMel5v6BuVqWmXF1FCn9D2faKvOpljwVQODAte+6t8FykNYCke 57s/cIPAaIpkcRf3SLwi/cUiqg2mqosLB3hjrurnIwDw7m/ETD5j2z33O9sF kcc8rHXtmoXt0/r2nkDLIxJp3milIwEr9dVvnni7Iv906hdzqO5v5n1oh+5D Z8RtP5PLOPIsKTj19eKI3p3NnzE0ax8et+lSkcZn5cKMdz3saXtbwANxdyh/ CoaRM07tbcmaF0J+zoAt/Z1+4m5QtAehRh7f3dy/gcX93nylO/r7IEPGXet0 /x53SsNpdZyRwTzI+H93ONMh0e6IxJo3Wuko6E5zrnxc7s299Ehu9gAU/HGX 8qdAZpOzsf/585SGnuQGgRnNiAe+vjT0qNaOCxAaIO/MBy3wbamh97SM6qBk BGOVQM06J2ZXG4UstXkQKX56bOTeP11/WBNodERQzButdBYqf1jckJvP080B VN+EI46NquJR8gDK9es2ceamqsNjmxDK/+lp39hvrkIe6xMwizo+urEoUGcN 8kQg4FJ2YfcIP3wSbvzuZnfYZEmBqersxz1r4lE3zeal31H6amRFSvMgsj7d qd+6NkcEy7zRSmeBTkxw1Y3CzQGapDtRfXRlePeKnDGd39Kd8Pfa3cgQL4LP C6EdifxtRigs3g9R7y4CGKFKyn5NfhMPOMFCFqYVustLBw2TKXv92408qqPk I5DQPB7nH96wYusZN7qrmhsRVPNGKx2QmKDJ2E6YmKoOjPQj5JzDkoxA7z+P tgONd93IM2oyXVkxhAiNDo0/AeapF2Xu/yC0gc635YdpVx8eXfQi8cpYk9mL bqwIruvtHifdCBVDunSQ8LOhIDW2XbX08oEg83BXIJs3WunupEfqSE+m9mI7 YWMN2HNUorkgJfpFQiH7No47rSH/ODfKi04tGtVYh78OHSLjkvZR6duemG/f CTt/f4Br3Mqyn2eH1bS8MsEzv9i3K2nOa80t9Xy07vNGaIDSrO+nBtXFfLAJ B6uvvGFReWZDF/PiFNh95S/V/Z4g83A/JDHv6r3SgUF9YYmXlb4cpSm8MDvA 01HFcvIQwd331EVZR9dFj+sX9IJBh9Vq1qZ/5IfrD2cVg7sbU0Xe0a1Rw18L fNYTLyQ77sOUa5p/ERCaoTjvcOKKHb+53Z5LKKZr6evWbzlf6EbnDmJA5uFe SGfe1Xalo4P63KECCQSKDy9qa5H3/RJ/o3Wf+ekbV/W1tKJDe2oEAoFAIBBa 5MCIZ4h8Fiz03Ux3kLGiMVXe3PVxsBeGedcMnRSXtM+YmrwxZlgng/kmeXuF Ra9He2oEAoFAIBBaJG/nvOB6Hn6dB3x6EvmvaEpzM7fEThnc9WVfL0zn3yLk 9WGzViQevfYACT4EAoFAIBAIBAKBQCAQCAQCgUAgEAgEAoFAIBAIBAKBQCAQ CAQCgUAgEAgEAoFAIBAIBAKBQCAQCAQCgUAgEAgEAoFAIBAIBAKBQCAQCAQC gUAgEAgEguL/ATL8yVY= "], {{0, 104}, {850, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{625.4973958333337, Automatic}, ImageSizeRaw->{850, 104}, PlotRange->{{0, 850}, {0, 104}}]], "Input",ExpressionUUID->"471ffb2d-5448-4e2c-9940-d61b0a5d5e2b"]], \ "Subsection", CellChangeTimes->{ 3.7467908610581846`*^9, {3.7468324242091866`*^9, 3.746832424517336*^9}, { 3.746843052499525*^9, 3.7468430528932066`*^9}, {3.751563869252903*^9, 3.751563869253195*^9}},ExpressionUUID->"348403ec-fb06-4b00-9846-\ a95c4a2aada9"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{"Gh", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "=", " ", RowBox[{ RowBox[{"I", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"X", "[", "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}, 3.751563021532525*^9, 3.751563085371201*^9, {3.751564459963667*^9, 3.751564460855208*^9}}, CellLabel->"In[87]:=",ExpressionUUID->"a24e1f27-51ca-4b7d-885b-c29e060bbfb6"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "1", "]"}], "[", "2", "]"}], "[", RowBox[{"Gh", "[", 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, 3.751563022123563*^9, {3.751564462708067*^9, 3.751564463118325*^9}}, CellLabel->"In[88]:=",ExpressionUUID->"2a877816-82b5-4c7d-8c13-6650ac684af0"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"X", "[", "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[{"X", "[", "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[{"X", "[", "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[{"X", "[", "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[{"X", "[", "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[{"X", "[", "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[{"X", "[", "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[{"X", "[", "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.7515644791699142`*^9, 3.7517271799681053`*^9, 3.751730250141199*^9}, CellLabel->"Out[88]=",ExpressionUUID->"3208695c-c17d-4c86-986e-9d885b748726"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnQlcFeXex+fMQTPkZJKvSOaCmgva4vpaYHERUhGz1LSESjRQU8NyoXCL Ql/ScrmWhml0Rdx3Ug4m6FUsRVNwwQVMQRNcwOVoyDbnPcvMmWfmzFlmzjNz 5hye7+dz7+dehHPmeWae3zzPf/UbGzssBscwbFoj3X8Ni4r712efRX0x/Gnd /3nnk2kTx38S/dGgT6ZHj4/+rO9Ype6H43X/qVZgmP5/axEIBAKBQAjk8b2S osKyR4SAPyU0ty5fvlJRDf2aEAgEQhSqz+54NyAgpfCxsy9Eeght/uo+GBal vi/gjx9tmoQ9oVhWBP2qEAgEQgRuHJ3S2gPDFHi34LTL9U3wSbV/ZeUZAX9c ND8YUyG1RyAQrkDpydk9vDEKVejHOeVCbBouTFn2BxjeJHZDJd8/JLQ7hzXB OgzJ1IhxWQgEAgEPzd9rBrfSq7zSo6t/B9wo+ANjcx84+8KkpLIkqROO9Yk5 XsXzDzUFs5rjWPD087WiXBcCgUDAQXN97YhOCr3UY4EL1BWPKvbPCGlsEHy/ 6B+KeO90XZhjU7thHljsoYe8/qpyT3wzDGv3dVY9OwshEAiXoubhf6cGYKTU Z1bUkT88NJMU/PbTNt2pc/I1SoZBtxWNP1heZv+QH99aE9IMa8D7HYFAIBDS YVJ1zydCF1FSz/on8C0gErWVRfs3/fhTWu5NZ7uGH11N8vfAGmIRO0rs/Ivi Ve83w3Cs3+Q8Z187AiEpkJZt1d9nd635d4r61N16s6vUSj9qgij8PrKZTs+9 GkRsOMsRKq4T/NnhPkq94A9OOSNWLHnVvV1R3b30hiSFovcHOc7eIN/eOLk5 psBadJiXc9PmL5dnJr3aAOP1dkAg3AFIy1Yf8u3rYYwM6b00t57ovdSj1kn9 qnFtFJalntevOUDdkSVdTJFATWQQxFh1f/PbrTCD4M89cM3yzNQVb/8yoKH+ afd677ti5J9F1CfgLNu66p3DfahPUWIjFpbVB9eX5KMmN6X2aLhJ8Jv6xh22 vd3lS+1vCc3IgeNY2KwiOcjmtUMxzxrevJ5e/SYnqc/fYgTpEDXl+dlLIwNU +t9Q4C8M2F1aH55RBIIGzrKtub8msKFJ9sJTL9aLhSTxqDWFCe08eGzXScEX xzqtuZ465lWfxt49Pvwis0Qutu/qs3vGd6OzD3x7vBERMyF26qcfT4ge3v05 3JSV0OvN9fUuDQ2BgLZsNYdXDXv+abxl57HJB8V1DsoJiUddVXRod65lM4U5 RF1x9qYDslFjCSBunv95fH8fD4wbT1W/acvzKurFZgSBQCDcHk3BgeT4mME9 n1cZN/TKJ9q9MmBswnK2eQeBQCAQCAQCgUAgEIIhiKKN8/o/g/VPueTsS5EL NXvin1A9F1GfzOAIBMLNIRMAFXi3oK0lSNoo7pxN6P0MpmzQddLKelX2BIFA uCe01NfD6ty2oOrZ1rc6VwjZQdSWHdk6Z9Qb/s098JYdwmJmrT99y9nXxIc7 Z5Jea4VjWPs5e5HKOAdK6rGWHZcVoJvAxZX9Hzb3gCn4UJZtZfmxDUtjhxs/ pFPg0NFfbz3m/gUTYI9a3ymvCBaFJXdFW0E1mmNJkW2VWO/oxLT0zE1xQ/Sl eLywiftKxfpGuBDaP+P7kXkRA+P/cvsHVYYQxKUlIzwNj83YdFSwwiLVx3/6 lwJSYUMYy7aqYN+Mfq1w7+dGfPFt2u7MrUs/fdUTfqFdorqq2uGwaCgfYkSM UVfvmGYhLtwBmrbuGTQoYmr8sk2ZBeVw9L84JbrNk0BWl76BCCaTCjn2QOSv CyZnR4HalziF29umtTXcgF7zs0R8ZPQlvzYvnTVleP8+7bxMK6Jl4IfT0/68 LryEiH6HvOWrD8L8DEu+RcA7y0/Az083UfrLR88YNiYhK044UvbE8WVrqAyD q0Ki1aacHUKbNbadcd8UuuYMrMQVGEoIbSMn0qhFUXsQT+8eEVNXZRU8dOQA UrB5EI71WpRDR6rfyYkmPx+b+2eN8I+Whqr7qYOofHGd2vuFpN919iXVM4yP kA5VWFzeI3G+Q3fu/mX+sE5PW1wLXg0it10SsE6Ju5fXjTMW3DChwNp0Tbki 2hGx5uHeMf76DX7Tp+ceuyfsMyAsW71ZSWneHUnf31MPjg2KvwxpDmSk9qKN mrbkXDydsy9z99rv54zsqzIfR5OWkUs2ZJ04Z82Oc+r3zIxf075fEBf1bo9m 7FRS35Bxa44L2tvUVWdE+mEBMbngZuDPFS9RExx7WO7pSobymOBkyqCGW71C c3VJgKGcRdNGiaf+EeMbKo5tHP+iN2YDQRKtD5Xh/uReS4+LmJJdkv2h3uyi UHQfqr7N/3scX7b6MoOtMa5yUqfiepHzCe+YzLBpF17IzVard25cmTAzvCPX 69tTFTgu/ruUzRnqjJz8QloEr99xVIykHbW25tHmoT7MsXng41P4LZLH9wv2 rZ/z5kuG0qamKWoYMnvteQ3PJ+fcuiAMC0m5CP7s6uIh5MB9OqZc5/d5UnP7 1HQ/5rvPJc4jbgOhPfllqLHDTrfELPjlWAmi8D+f9vS0pfQUfFuVWd5zenh8 sl7Ux4i05wgz4Du8bB9s/0x3HuYoCV5Xs3mwcUMqqD0oX24cndKauX7FLOQu /ahvfD+c9WD1XHpCyAcRtWWH01h7HlXw+7v/4mHM1z8hvj3TyoAfPb69om9D cuBvJZbIofqlJWjnLIMJ2SggRCIon6MC8x+SKYIBzeQOMOpA6JKsosuX837b 8vWI7oytDgn/pUrUVFzMXTGsk9mHia722sq/F/c0LDQvLPZgBa8/dXTZ6r+6 EXeRzLt505uS062M+lGCDth732Vu78U7mztj1ObbiVdWnhH+cZprOycFe9Ef psC7DUjOsy8KS1/k80lWJWfi+IqXqc9ibR7kBuCcZYBSOCXC2A4Sg+zRo/lL /S5Vg5adl1TzaP+EHhz3vqnXskL+F1KRN5114JZA7bXah+qETkZ9ZtlkrOPo siW0+av76DZF+zleMcQfSzpRnxOWdtXuaxJOwbxAYNrF87s5Z9SQ1V5LBWLh 9IzZn9tS9vsW9cX74E/0Lb+NNG+VfEXGxSRJ56yiyVNPseZT4FkJwRPjuVi8 jX3x4nDjDcXbvhi77ig7FrosJ/pJDr0XdrJj7zCV2OhdN6CMwhqm7T2G9VuZ b/9ic3TZ1v5TVvw3Z2gHbXnwwhLPSBHKTLlHKbUXL6bOGaOGr/ZaRoNySvAF 5a3fyZ1MfgqOj1pYKuPAdWPvQkWP9/asmsScTil2ZQjBSmU/FYdSZs5KWLPn SMkjro83Rc3BWE1MtccVwVNOiRRcxIR+Y3Z5I/2W0FmEtWxp87XuDT7ygCQz IJ3aW0LMUYui9lpTLz8aAeFw1LOnZ9gW8fc2gjE6Z5XY8M1Xa/eb+vUYUeIR S8udfYFuDy1TfgHbRAxOt8ajTawXvV7unp6xnbevqfaf1BCTJ1jaXGBjDyMD 3b7JESb30JYtYL6WbBE5X+3FHLVYaq8FevlR+M/L4JHqQndm1D3wTB+QrKCc s15vLyiqJc1xoNqjdFrRqbq3JoiUxxZTNzkpm43QFqx7na32QhZs1eHF3U1q Y1+ne4hcmh9KfrUwgxi8ZQuarwNWnrbzrx7sXRASEAgQED7ms0U77K1CIFjt ibvFGUtnRwx6DfzuwNd6JR7ll94nbNR2IqLaA2FdJLxCoIvVo8g/w5+a8B8J 3PHCIJ2zpqFdM102efFY9w+OiBL3jSChu107N961IncyO5iG97vekFlJ7pHw zn0X/SH5QcUQTmlkcNoV3n8Ob9nS5ms+t7Xu3J5P3wrya4yxsLMKgTC1Jy5m jGnPjtXXVwoaM2XrZX4PpLBR24moag9aU0nps7sZ8Z2fIk0rJipDrrYQKnOW PraYUgh5PjAIgdAGc0lCsq3wuGzxS6zFxM/0Wp71fRh1HOYbvQwN2o6EY/2n F/CMNYe2bEHzdechmTxzfKuu55sHsraL22FzIQpRe1MwmAmlovenyQV8s420 jo7aJuKqvVZ7e+04UO6xhtjYvXZUSQLjdV945wAw4cTNgt1qudTEMzpnGS4t 8yWP0mlFBQiG4ZvNBBlCu3MYKyLL7nd9jebU8on+xkde2aDrxH8L0QpI0NtL FZaYz2d7CXHZOm6+NmVV0ysRW1Rg4woEqH3lnnim1mOqUQsEVjMT2VUhttpr /zYWRzJh34YBOE76ztwBbnH0qRxt5FF8BnDO0j/Uhx8z3m+SBY/VT+5vnNTI OM8NsbijImU92svhCe1Zq8medz1RdnoZmZ+lwHw6TDQP75QYYPXxe4HCW7ZQ zNegv9jO4fBWe0K7d7QvU+uxuccFmm5FNdprJVB72mtD4YnN/MPGbJybRyWl snYX+s0DO5XDOTCcs4x/YQdLo3Ra8QB9giKcfPnC1AoD1t/1RF3xrm/DWpqs N2O2Xbjv9Edb+7Aooa3xivgZxyAuWzjmazoWlBpO4OR8q8PhrfaaglnNmV/B 3/xlQlSjvVYCtQdNedSE2HDf0Ntj9tQRp1a/gkmSaWILtnMWgKpoRCNNGmB9 hD45yiLS1exR12PpXV9Vkrsikip36eUdnrS9RDY9pOj0KDusHyQQly0s8zUj lhWzJ0yIt9pf2jKAebuFmxNFNtprJVF7uhoePYch6VZWJuDo7PrNEfrnddX7 P/IXKVOSH+bOWQDzDR78KUUYqP2Nzm4Q4+TLF86yZhzv+hpNXsqc/s+QW/qn Aken5MurNRuYO2BvxRKIyxYwXzt4kKdfW0ZU2KIL1j6Or9rXHfymNfN2C08x gDdqS0ih9mUs073exBp7yHIYKnA4AvdFxjhkhpHcSXA4ZwHMphSl04oFfYyS gdFeD3tjw7GgNHm/zgntSFYWkdmWngLMHbD70ARv2YLma8aLgz/mWy/rZlW+ am+un4LNthBHbQkp1J4jMs3qeQdIQo9Sk/U3DHHImN/4Nc4vg8npnAUAN5zG 9SJN+b56B206kEn+nXluHQa+64m7JbtnDW+rJP+hRdjHabLttkxLt90JI/CW LW2+dvglfj/1I1HVnl1D2AF7O8RRW0IKteeITFNib359zYo5kMrDVYVMStvz 67rEib0aY34jZx0pd7YLy7Jzlv4NlE4rDfSZ0bb3TSLY2RYY+a7Xe2MXDyeb ZSgwn07jVu0rk8FZxCKgxduW9YMGyrIFzddtArfdETYAEr57b75qzz47CA63 hjpqS0ih9hyRabankbh5Pm1uzOCez6s8m3UNGfF56n45rA4rzlka83Ra52b9 uCnAyVc2pyfa9Arc/ZdGfDqSKoCvVHYbk5B9zQVitECL9+jd9jrAISxbqOZr l1F78Y32WqnUniMyzRVzjqw6Z2lQOq0kgId0J+dVmeAyWppQdR+wIMOhrs1S AtooRDIjcwLXfG2ub9YD5Jyl9hIY7bVOVHuZuNX4YN05S2O+5L19k53vW3Y3 wEhXubSMYYf8UXg9E/4V/8adTgVQBv7dSx0Arvmar77xVXt29xOh/iMJjPZa J6q9y+UcUc7Z8NSLNhat+ZK33/LpIOXn18R9PFEmzFueJ6Z5Bcxik8+zZJ5b h3lhcb/LIGeKH6D7SULHE13OlF17QRAcfnO4as+83UJP8ZBHbRFp1J4zDlk+ K9Q2pHMWxwZOP2fHVTsrndZyG2vnIOKowQOUbGpTEHev//yWH3sWXNFoqePK zqHkACCbIomy/B+jB/t5efhHzGU5cKtzFptaHMLpSkOPwoiNjgP81J52rZIf jgVPP2/h0yUdtQWQ2tsD6Zy1uwIG83ynR5puLMTZjYNUHuZT7RTw9t3WiLcj BP2hcpDT2srC7aaoGyZKLPawCzrpafcT1ADX2sqd79B9jhgmOLqYJI6/HnMM ysGQ7Te34dDnp/aVJUmd7PtwiUdtAWnUnqutj+uoPdWHy56KqUZMPUxFndV6 DahFokWs2YkmL33ukJe82MXtaUzx564EXS0H6vuUmWtJ74II7bkFQzzJG/pi 8kVI4sA2q9oI1uWn9mZ5oxabUEs8agsgu71NHqR/0UZ3L57vt+2GvWcss1kV 1LEOYQXR7Ay8IO5e3hI3zJQwper55sK40SqMjUu+60FbGcQiXUDPF9XA2Fzj VrayYn98uI9+GhV4twHJeTCTzuhabcanxeo5hZfag4E0eqw4WCUfNSdOU3vn thmyn4qzs+x0zgKYVc9AxRPgAnrfnKT2LNONd6t3Fm4q0tRxpdPKJkCUF8zQ Mmh7M0J78stQfWVK7+Zjl+9QZ/yatvirMX1b6UtJNG0WPntVfgXkqWIvRqtl W3ipPTOR1mr5L8lHzYmT1F6B+XRMuQ79e2BDaM8mhNjvnKX/DKXTiouT1b6q 8GDim5TpRunhP3pWehEVdcN2Czr8ri9Wj/RtO+TThDXb9+UWFBVdv8O2QxA1 FSWXC44d3L32hzmRQe1jVsGpBSqS2msNL8r05KnDB/Zoo39X+r7QN3TUR/NW bzl1S5zDPrsosbWXLw+1N7MR2SjtK/GouZBG7c1iVFyjWytRsHkQrt8MRG08 XcSLP1LfYo1XJqn9bgKo9tYCIeBTWX7om3H+VL8ajoQpruIJNuqEWIOz9o5F cP/An89DWlfMgBNXsbtyQrVWpx4Yy7ntPNSe9VpviE3YXyHaCOAghdpzpJzI ohq5DSjnLAxQOi1cnBENTtSWHU4b/yLV/M7LO/z/NhWZJ0yx4zQwx95HPNS+ RVgM3Fa28sxoEELRTsbuy7Ixx361Z79BHGhiIhlSqD3o3KeQQzVy6xics7Bw EcuVyyC12uu9sbGDfShvrN/bn2211GSq6s6KXh7suy/8XW+X2uNtu0/8CX6Z NfdRe9IkS9+Rxh8sL+N6ZuxV+5vHJvsCd7khFrGjROQxQEAKtWdXCePTEMdZ UM7Z0DVnhLhPzI8zcogJdx+YlhxRrYKM8pUY7tcnbucp67VuzOyWjsSrkyP1 GzJxImXyNfFUh5fDoz9P3nvsphi7SmaHZddWex13LyZ0BRpGe2ET95Wa/5Zd ak8VwrX57pAbEqi9Wb132Z96BDpnGaDutGIikZeWuHn+5yiqmaAS6z3x25wy 2zeR3S/JoXc9OVJ6VT6+V6L3DBWWPRI5ikM8L62TqDryw6t0ToRC0X2o+jZ7 Du1R+4dZSd2B38FfGLC71DVCriRQe/M+raJmBzsO6Zx1oHe8lmvJ2182FmEL sLmSOGpP1Jaql4c9S57Wcb+eczOL7NyhcMQbC0+nNVN7yXA7tddxOz2h5xP0 oFQjvjzH9LzYVHtDfxYP+hdadJiXc1PSMTiA6Gr/6GqSvwdjAtv2Xn9dxmLP P3OWE5ROKy5gLi10ta+syEqgm0z5RX5lz5beBGfmuNB0WnmovRvZIcszk15t AAh+6KTsUvrmWlf78kOrhj1Lqxnu93LiEZeReq34al+1L4HVpddGcXhnQ2bO 2ixrbAvziZUixab+1MAE1R6uB7z0z28GmPrGNhj989G7PE2yNXviG5mpvdBl 5Ty1l1slInhoTm4f/4K36dbgnQMSqTBaS2qv7zI5L6ILcF9bhH+iLnGx8464 al9XnRHpx5g9mW/sKees473O2VnVkqTT1tMamPC0SHNy03vUOR33D152QsDO jTuKRui73nlqD75P/ULS70r9/eJSWX5o6dTA/6E36r5Bo+euTt8a+wpw03R6 9caq7P0pc8e/6kP/pso/KG7DYVE84yIjqtpXH/sBnDudioasOCHfSSKdswqv 974rdjRbBzQsU4MXnmJj97fWnxqYYNQTpCKTwBlfgXcLTrss9FVlHoQmvJei 89T+0pYB1J1011abxN1i9cqvo4I6qnA7HmjPpj1Hfbxou0vqvBER1Z6u5Eni NXROgYyPPqRz1ttn0VkYV8nOqZQ25bMesH/Ms6bJddwDzjDnOvgMcKTTCk6m 5lL7x/dKzp7IVqvVmb/lnr9SIY74gG1/JdioOJeH184d3rL2u9nTI/6XmVDZ pG149JS5S1dvzf69ROwgKPERS+3pSp5GpKjn6RCUc7ZbYhac1cPOKUPptJAB /eAOPrTVeesG0kcih3uac3SnFexcANW+tuzI1jkjg/waM18kLbuMmLFQXQS5 PRagDPWogivf3lWuhUhqf3vbNIbUqRpMPSBr57XhghWKHiOz70H6RPaSh9oS AsFwhjrmE9FcSerRELxVjraBZrc0IrF0AKm6eSnj56Vz4uMzr5tvoEm175uw 7ZexASrcw3/U1OQ9v1+4+UCv7Y/vF+xbP+M1QylF7+cikg9WwNuBgy9TubT9 FR+k9vwg6oq3fxkArh6vBhEbzsra1nXtUMyzcJyzIOwEK/cKbHA+tGHZoeIJ 9zdOYobQQPCncyRYYTg+amEp6yI113Z9MZqM9OCuAU77fPHOfRceusaxjjTX 147opDBMQ+CCTFiCTxvKxOyLLTeQ2vOgRnMsKbIt6PLw9hm7Sd5Sr7m+sn8z Mfr/goZloya5ZMc62UJXsnVoVbJvk+5J6PXBkUcOXdr91I/M1F4vmyPWAmuh 9OTsHnQcoNfbC4o4zCVGtdcN8JWUQsuG0JLsDxuTz9jglDMQlhtd7ad+nUnd W+2ZBfn1WGy2ZYuK3G3T+7UClV63G1n0h6wNOMTdv9YY90UiFNcy707rkh3r ZAtoMFFhiy4ItFub17jQ4Rf1bc5fZpXk7efcuiAOuddputeIBWlHCoqKLuQv CTbFMFgNAbp5bLL/01P3cxR1AaFKMurEuU1ykcPPMd1ZD8cGxV92axctiDuf x2sebR7qw3wcPfDxKfzqBRiMh3PeZPblVCq7RSXyykC0BlFbdjzjx9lThvfv 086LLAa16r9AJntNVRXfB5KoLc1KiTIVsNX7kbumXIH3WJf+OaNTQ+bcYu3m 7JX1McfVAPcqgvu8c6q9EeGhPo9vr+jLvvsWcCza00Te6r7UJ7aYusnBDSmY LeKSjbeEYUy3AYFt3bUIbIkjNLcuG3ttXDydsy9z99of4oZytU5u0jJyyUb1 kZOFlpt1FJ76PTPj17TvF8RFvdujGTvAm6PFgwPQfYK8/YZ8Nj8tXZ2xOSVO 9xPPJ0IXZVZUPzy8IKJLI92SCdpaYusrH98r0Y197/aUb6k2YUzwzq9/nrwx 68SZkru8V19V+TVyZnZuWvYFIx2Dxss7fN5P6Zm/6ZsQ6bjyN6xZqp+AouQ7 e4+wuWT2LQUe49CPc8qF65xdFbP1m6L5uVC61NGprxBsL3d+ijTJ3YQsN7Jl GKCVUL9iL+Rmq9U7N65MmBnekeu976kKHBf/XcrmDHVGTj4giuZNxIQCU+Io RE+0VDZqFzZm6a/w6q8SRNH6L14x+LBUwe8zOjXUaE7OH+6pxCI+j+tJfb+N nVjNg9Q3vC1fPWMkvAOMH5yd1Yp/WhOy5DsIbboX3h2MzLNg3BePbuO/zXNQ hGseHpoZ0tj8ppNfoV8syw7aW2nNNswYMMEnHT2Edu9oX8PHWO216rLAUEJI hl+4Egd5jGZ4Nuv62qCIqfHLNvx6/NoDmCc+gihcNa6N4ejBvcuqup86CMje 8sISz1idfR5qj/tO/A+/bR3QU54HzbFFZ1Bzcoego1+at0q+IvABLD/005iX nzO0hG4Z+OHMX36/DEeEax8XbFgYFfpyC8qo81SHl0JHfhi3JCX74i3or3nQ JCX4pKOHPibY6rXqmshF7aFLnMtSnBJtmAdr5vTKPfHUXCiwzkMyYYXKI1yH uoPfmMruObShdX0AtVdiIxaWCd170VOqxKIy3G5nLxuQxBmh+w4osfDUixYf WzpywKHHG+HC0MYcV2h2zAei7PSyyGA/VaN2YZFrTtte5wy1d2DnSTWkUGD+ QzLdrBiabEASR0L3FMOxgJhcK/WRgTgER/MfES4L5WZ1t8jwk3G9qafbrnZv DLUXXNmGfnuiEDLRQBJHcWPV+6b2Mta7XNE5LPUp3Q/B5uLmgdQDMzjtirOv BhKMtrB2pPkwyjUIr2xDN6SQf/NolwVJHAkY8mrL73Z4QntyLbQJ3HZHsktE yAy6jQKOhc3iykh1SYC9uh3jqixJAhoqCMwUoGfSZTprux5I4iiAoiW2Tq90 kUk3tWgh7IY4tZrspOBYN2FZUTg/BMOeaNc7+J0Z32Rfs5UAQhfVdyBssmjn W8bP8MRm/uEm0yg3kMSR1FXvHE7n9tpI4ruyc6idv4lwe4AuaY5nksoE4yvM +knfBFjbLfDfx4Wd+anyC5aK9iAcBkmcCbAVpq0kvn92THuS+l1UfwZB70u9 my675BY2iLrq/R/5Y63taAwBFG1WhcXlCSvpVpYT/aS7nY9kB5I4ErC7n+34 CiqtBnYTaoSLQjaadKvtvfbG0SmtG+CBERlWGl7TSbv8kusZALPnOym13C3e lvIDSRxN7W8JVCqBrUT4x6WLu3vY9ZuI+oMpsM2NdqfVZ/eM7+aN+/WZydX5 uup63uqoAGMsTosh07JLhVZXI09GCuz5fttuuJvNQD4giTMBZDTb6hZHW7SY wWZEXfHhXUeuy7glIkJMqg4v7m60PMu7CTIviJvn130y2EeJqboERc78cuWG XWp15u7UVYmThnUxHPVV/kFxXO8Ce6l5uOtdg9ejIRaxowTmpSOYIIkzAfSe s+GVAF6RzHx5Q2RC/WmshmBjaohsPUXRBXn4V+6WhbPGDhvYo40hMrNp655B gyLj5qf9N7/CsWJLpr6i7adtuoNsOGKCJI6CbsqG2WqhRTcKYbaxME4RV8c3 RL3h8e3U8FYGu2jHZW6zvxcPY5tODMdfjznmfhXQ5AWSOADAYW1tKvSuK6qN mv/IA0AEgt6vAbvhIML1oFrJqAbG5iIFs4LpzWi9EyICFkjiTBDarLHtjKaq JrEbKjl/x9Rz2WD7YtQDeXQ1yR/3nbkDPbWI6rM73vXVr5e2k1NRTig3hPbk l6GNdXrSosO8HFl3FHUfkMQBEPnrgo1uaM73l3EevJ7v16eVuadDX+JD6T7B GAgHqT69+W0v/XIJXJBZgQSfBVlcHUm91CCJoyGIS0tGGL1s/ZYeAcOONHl7 ZvRrhbfo8nnm5QcHkjobZ8wUm6S5uiTgGU9U3AMBQO7wkeCbUZ6R0APt6p0C kjiQGs2xpMi2uH42ekcnpqXrW+jOifxXCw+sRdiEbRfu6z0WddVHZxkySpRY wPQf07enzX6jowJKN2eEe1FV8NsnPZ/BvLAJ+5CskdT9ufpVnY74By87gebE GSCJY6IpOJAcHzO45/MqnOrAnsXsbE7Ulh5YHzfqDf/mHnjLDmExnzO6OiIQ Jh6WZqUs2XrGHRv/CIL4Kyd51bp8KN3PEUJBEodAIBAIBAKBQCAQCAQCgUAg EAgEAoFAIBAIBAKBQCAQCAQCgUAgEAgEAoFAIBAIBAKBQCAQCAQCgUAgEAgE AoFAINyF/weyYoUt "], {{0, 103}, {506, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{390.7005208333336, Automatic}, ImageSizeRaw->{506, 103}, PlotRange->{{0, 506}, {0, 103}}]], "Input",ExpressionUUID->"64bcfc91-c7c5-4180-9755-8eb1bae98f31"]], \ "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}, { 3.7515638106423197`*^9, 3.7515638106425323`*^9}, {3.751563919893865*^9, 3.751563919894088*^9}},ExpressionUUID->"208e8b16-c820-4d46-ae03-\ fe6f366aed37"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{"Ab", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "=", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"X", "[", "5", "]"}], "[", 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}, 3.7515630183935623`*^9, 3.751563082388885*^9, {3.751564386216909*^9, 3.7515643863432903`*^9}, { 3.751564502860894*^9, 3.7515645115688267`*^9}}, CellLabel->"In[89]:=",ExpressionUUID->"73ed1d17-5d1f-4c72-a343-a4f933752dda"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"Ab", "[", 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, 3.7515630188387938`*^9, {3.751564413054833*^9, 3.751564413408669*^9}, 3.75156450499298*^9}, CellLabel->"In[90]:=",ExpressionUUID->"1f00d30c-e77f-4d83-b2a2-6684cfeb776f"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"X", "[", "5", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ RowBox[{ RowBox[{"X", "[", "5", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]], "Output", CellChangeTimes->{{3.751564407206102*^9, 3.751564418046207*^9}, 3.751564521725705*^9, 3.7517271800670233`*^9, 3.751730250256837*^9}, CellLabel->"Out[90]=",ExpressionUUID->"55757bd1-4397-4e1f-86f7-2284d7507601"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "1", "]"}], "[", "3", "]"}], "[", RowBox[{"Ab", "[", 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, 3.751563019229177*^9, {3.7515644147412148`*^9, 3.751564415203998*^9}, 3.751564506516333*^9}, CellLabel->"In[91]:=",ExpressionUUID->"c2d2c91d-4ffc-4a4e-a2dc-c3f3f213b84a"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"X", "[", "5", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ RowBox[{ RowBox[{"X", "[", "5", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "3", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]], "Output", CellChangeTimes->{{3.751564407305616*^9, 3.751564418127355*^9}, 3.751564521806533*^9, 3.751727180139451*^9, 3.751730250346778*^9}, CellLabel->"Out[91]=",ExpressionUUID->"a3022e35-8a6b-4408-ac6f-eff032ffe6a8"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnQtcFNXbx4cFqZDVRF+F/HuBzAvaRVH/KmgGmDfMEi/9hfIWXvKeJoq3 KPSPlxQyM0mlVDTxjimLKfZXqMBSNMULqIEWeAGz1RCQ4d3Z2d05M3udmXNm Z5fz/Xze9/O+tuzOzHnmnOc85/c8j+/4mcMmKgiCmPO05n8NGxf92gcfjFsQ /qzm/xkxY86USTOi3hs4Y27UpKgPeox31fzjFM3/nNJ8nvq/azEYDAaDwWAw GAwGg8FgMBgMBoPBYDB1l8d/FRcWlD4iBfwpqb5z7dqN8iro14TBYDAYjINR dWH/24GByQWP7X0hEkPWntvUnSDGqR4I+ONHu6YST7kkFkK/KgwGg8FgHIo/ f57e0o0gXBSdglOu1SlfQudI9Nzwm4A/LlwWTCixI4HBYDCYuk3JmUVdvAg9 yn7vZ5UJifM7KqWZ7xKKhjN3VvD9Q7L2wLCGRJshGWoUl4XBYDAYDG8q/7hw cPNnyaqz92uk+kn1H5sHt6AcCFe3jv5tFLQvMWBm7t9SXYDdqSiOb6cguk88 XcnzD9X5C5sqiOC5l54guS4MBoPBYHhBqRR83OiwQLeEXClcCfWtrcPbuVBe BBG0XFX+qPzYh6H1tRfgG7W+kPcW3VHJmdWJcCNmnnzI668qDsc0IQi/T47X pfANBoPBYORKTdWB8Gb64wVXYvjKUtTrU/XD/80KJHReREZ5je4fT87T+RLP z9l1T7LAiF3RugQu9d9dV2r7/T6+szm0CVGPt/uBwWAwGAwSqh9sDnI3+BFh 266g9SMMDoPHU/1W6b0Izn8CHQzn5tHv8f5uhDsRsb/Yxr8oSnqnCaEgek/L q1PSVAwGg5EJ1eqLad+sS/xs1aLZUzSMHRXaOyioe5c+8el1eVZWn0oa9sKz iubtx2/8Ae3yTZIFn0c20bgKnvUidl4wUQVB40ssCmvmSvkSg5N/Q1sm4UlF 4bFdX36VknvbnoN/99tpTQkXwrvN0qzbVj9clhHfqx7By/HAYDDWgTEb2EFp hrEDZG3+9lcJE+DjZinQeBFJE1q5mPcieH1MJJV/HRzX2ZNSabi4dHs3y46n BJUPUt9qQWh9iSUnbpp/LDVF+z4KpEJHLp7/+bQIyywxGFjAmA3soDSTFUWq kT6th8yO3bzvaG5+YeGte1wJOVldXnwtP+eHtK3rF0f2fX5iUpldrhMK1L0U aig4k716UAudG+FORP+MSwQiR7ebtsU9MPgSjXyiT1nfpwugJnttB4Mf2dDe BRlunpz4nHYK8vDsPS1edekO6x0kq8vOZSZEBiqpT7goXuyfVoLdXgwGGhBm A+mVZvJCVxXHRhT+QVsu/WPva4YBlYnfQHtPLkSroL337H09To+6INbPjUeQ QedLoBIDPPk+toneqIlBCwvtvcGvunB4UiempIZPl9cjJk6eOWv2+5Ojwjv/ S6H/d2XXN3bUrbJdGAxyIMwGEivNZAcPR8J70MS0684yiVGZ+HXWe7QPlYUn 03LNh+6NIWuKMnedKEZjcupb28b2albfq8uYBRmIfoIn5O1LWyaFNHMz8/p5 KHvPWZdXji0Vg4ENjNlAOqWZHLHJkVC07jzlq6OlThT+J09/8Yr+7jquyLb3 5WAwOtT5JzbGTBwc8IKSDkO4PuXXs//42HXc8w4MBoORCzpHwnfIlCnhA7q0 ehb0Hxq0eSUsav7GIzm3nciFoPnz83DdTWKBBAaDwWAwwjHqHES1NqbUiMK6 GzsGNdWpg7XKNcKFaBN6yIHFo4KoKMvZmTAz/HX/pm6K5u2Cho7+ZE8OzlfC YDAYjCBEtSB0VACBhCIioU75EZX5Rz/s3ULh9a/hC1anpGXsSZjdy4N6EHWq MDUGI0dIsvDbpSGNiZDkq/a+FLlQfTjmKeW/Iuqi6sAIWZsHEkdC7qOft6mH /vgmcMN5e1+NdGgznRXK0CiVQVBE1h4f70drTvtt/s15g1AYjLzRlXV1UXTq u6dYnvOmPbh3IbZbY8K1XsepG+r0Tkfu5oEmIiHv0b/3VaReCU8s+bXa3pcj FTeOjWnqatxes3BZMK2oJQbGXJOhhWIwTg+zTASn4PReDiVnFnXxqtNRUwcw D2RHG7IdfbL2yGgfnUCi/ZCMv+x9PdJAlU9sSZiqZXQ2uqteLjIkQ22Xi5ME 8klp9p7Fo2hlSJtBExfuOH/H3teEwTDLBNG8bWK+PJcJe0NtgtxgribiZwPJ lGaOYR4oNRLQRx8KRgIJ8n5R5uYVk4dRJkF4NOkYMnRWwnb79l+Azt/7PmhC mGrQwOhOFUT3iad5ZhiS6jvXCmFRUHwf2TOvVufER7Z2JbpFxaUcytgVPYRq DeZJTDlaguoXOehLqorFuPAsxqEhyatrh3torXH8Idw/xSxVp796jSphDaM1 sOjZQDqlmcOYhylH4vFfxRd+yVSpVBnf5166US4iORLm6MMCFEisP1eUtnpQ c41L2XZ0jMYkVOmpyfNeb6vQLKu+AUsyCsXnhZJVlVWilQdiv6TijzUBT5uu 2HY/b24jnVvlOu7Lv038sSWq9s+xVoOEP41aBvQdGDErJnFXRn4ZHNeiKDmq 1TNAUc3SzHe1QRgpumw8ebR/RGuFtZvmi8+LPfqNGBO99mvV2esPZfJmYfhz d++c1toB7brsOEJLpDpSpSYsnB4e0t3P0/CiNQ8aMzfl11vCZzlqX7/743cH +WqXUe/AEet+QVLQnqbk6/caE5SaK/SLX8TMzCJnAymVZhKZBwRAR0Ib7RnZ 17c+a8pSNO8w/MOVqsIHwp4PrNGHBSOQcHcNGdq/mTvRbQa7YOCjO6mj2lHu D4xGDzCWWldiQMx14YuFbognHys38d9+WttO/zODUn63x91ZxMOrS8SspOP5 YtZKMj91oILouiqL2cvfy4rSfT96kUzlvS+6mqtWCQefnm8t2XXK+Yq9OD20 ZWpQDorOe4TmNyrKcr5eNqzds2atx7Ne5N6rAuZ28v617RPo/i8GXIhWHZNv IPNrqx8eGeuvnZmfXZIj8Exa7GwgodJMCvOAhm6V6RG79+vxgUqFm/+oWRsP /3j59t+UaT1+kH90x4d9WlB34yU0CwPG6EODEUjoXqLRW342Ptgiz27qqX0v XLqMzBR3yTJwJDQe4j+lRX+YXIuZwlyeRNxvvH+DOdq4cj7raEba1s8Xj+yh NL6Dhs0j1+48/stFSwcbZ3/MSP8u5fPl0ePe7tKEu/L6hE7YfFrQ1qmmKj3S lwicmAs69L9+8bL+0c48hfysoLLsJniP2+OmdK3PfUJ+oz/ek/lTvpWDjWv5 OSdUB77dEPsh2ICDxqkq2MsW9c2DMWM7N3YjXOv5vxN7mm8Ij/VVv68N1HZX afR03FkkDYzKc76d9JIX19S4CFr9KTm96W/umnAaYfJXceYY6t1xcek8VHWX /++InA2kVJqhNw+oMCWyFe17rDxpqhWC+tbW4doduisRtDxDiC8hcvQhwggk qNvpnZBt2m4qiuP1G/XBKTfE/CBLRVBwOTdTpV0I5oW1NbVH8FAGTYj5NDk1 XZWeda4A+ck4WJjLf+QJKE5v9aPUoc3Yd+WmmJTM703QerCL33hZ29jX8HDc QxdtvaTmaT8Xt/cliNDkK+C//b5miO6um7VNvsXv+6Bw5G1w9DUPf0jGfZ5f 8eRxfsrSkMZurO/xbrM0C2Fsua5T+deB0e1Ak+y0IkvgdEbWnvmoH+1Odoo7 Dj+YRJIF38wO8DC51JvA75PjvG7E/P7IzW3GDqQxPl2IW9hxubjZAJHSzASo zQM+tCOh8aN6JheY387oPAFq8R2c/JuA+xI1+hABBBJNozbdNn8l+qkeWUuv P3+e3pK97xb6bIUDCCQgFuZiohx6AhJ+EfJF5JPSUymcLZUy+B1e+25qlvAJ SCkF/unx3S96uOve+jfjiqXv+8k97BCiTqHRHteyfYk2/95RhDUTSGA1mxa3 aOrFY4J8SBswnK3TE0u/tccLr13L+373J8M7s5xzHfyXP7K6/EruF8PaGX0Z ckdCq/jSvr+exMwfTBzXWkDUbIBMaWYMavNAwu2caf7PzjpmRbB6dVk/3UzV vNXGQv4zlYjRhwggkCBmnrSkXtE7EgiTItnbUoJo6JJYiOSHzAEKJCAW5jLe rYjKCVLfPDA12JP5MhdFp/4b82zL1aJ6+z7DcQXBfm2cvYlE3FSNYj8fAeoU A6wlQ/t86r+7rhS7EggwNmyBYfzHdzaHattWI6oCd131tr6jNbeYT/WjY5O7 cBd/DY08Ewv4X0h53lxO9FECR6K29qEqVjtxKbiHFJYRNRsgVJpxQW0e9gXY y3vP2iVgaRU4+lA5NvY5erIlWgXtvWf+c0/+2RaqDwt6+WwUbRomyV8aBM7/ hG/oIWmdTyZ0AFVzCNmRqNWnazGaAB6FWUp/3K268gD8l5xZnXRf07TFxht2 eE2ffB/bBHw6gtQpDJV/be7LDmF7EPN+kv+hquPBjkgIP6ilI+To9ptFa8Lo S1S0fmnmdiMNWGlW1DOEMZMzhQhsuLshV2L0wT+h3IUlDNtSgui94ZztYyBq NkCmNOOA2jzsDBO9cSGas6NDNiJ09KHxsDC2td7cLR9YMJ9EGCjQC331T1Xi elCgQAJqYS74jkStoSoL87gEloq9lztN9y0KxaiVJfbYuet1WbrLIDq/my1u 2WfibHp8Fh3GMQn4VD88tTyiw9PaZKIxCzKKBUlb0U+D5SeT5y2M3Xw4u9hk 40VDriKMl5TtSChcgqeflSS/gFltO7x+6I7QpwhlNoCrNLP7Komax6VrXmYs ZthuIW4nnNEXzNXd/fXX33FFtqVP3jgw1LC+I9Pj2dmRQCOQqEXkSNTSkukW 4NcKyIrSW6BwGxYLFV91B24CwqEqGFmlZ0UieO4l6bUfGBtg5kDfwL12EsY+ 2jXVyI9QPPvhPt4mA0ZuJS69qC6I9dOpgwRLXuHMBlAnUjmYB2pA51PglgfG 6Avmwbb3dFfvTkT/bEnVCASf4aUzGGFfRwKRQKIWnSOh4ebJic+xFKr+S9N5 nJLVVB0Ib6af9ARF1cQDVSChA/CQ7WJLGFsBzqGEHRDDgKzN3/4q15EQsghW nlrT2WBykmcMMbI9YUcAkGYDmBOpLMwDOYAjITyXQezoi+DU5OdtNJuCZaG2 vF9/H1keGhgEEBg29oNV+22tuC7YkSDvF6UnLIoY2Af87aA+XeN+5rGoIhJI 1CJ1JID0Hx28kqyLDIu4osHkb8SLqwUAWSBBwWRwY0dC5jAqC/u2CyzPncZN t+BdrAbMGFK077HqJ8n3z9pcThohSfqQZgOIE6lczIMnZOn5xMhgX+XTfoMi N5+3fkbOciQEl0gSOfqCYXLurBUfY8XrLDmZNRcPz36TWwiUsLniujBHgryS PvZ5bg0Kqu/M2Ol7rtlse8gEErWIHQnwDFE3miYTskzBaAlciXHpEA9zeABd IKGh5ocVLdnmACeZHQMXRpxg7wFin1Pr5gE+odey458P0scG+WZkQ4OZqBVE yNx8npnzcGYDiBOpfMyDJ2eiuzEzjw0DwXIk3vjkpjBHQtzoC4dxwq2dBoLB 54bEqnwr91l565xxPrVf9H6rToEQR8KQGWTA1aXb7I35fMs0Aed60AtloHUk amvvbp0AehKEOzH+iA3ddsCE8RdHnAAeNXk7P02FpnMfBwQCiVoThTvgfC0G MkC6BN8CUJAhaw8Ma8C2GZujWNXqs+um+NNW7Fqv45TPeE8+8GAsX0nEneOz hYc1G0AUSMjHPHjBmtNssCLG9SIEKnP0CB99MRgKqltb1x58O/Vp/WOxNSXf UM7UgA0eiABHouJwDNuNIJSjlgvoNwee61nRnfIHtSNR+wfdZMeAbR4pEArz mbcf3EFRZWpaSZJ7aySQgKBOMU7/tJeOFGMRZmKxptGSAP05LzhlWU9Po4LY upJWLkSzNlOMc0slBnip+S2+kGYDiAIJWZkHL4AIgw3xYaBqtIbRaSKcL8Gj LwbAkbCUMf3kUeoQ/VqtJJactjXuDAqAbbw13o4Ep1EIzysEYXw5BEaL3JFg VFJ6bKiccHFpb8NDY7mv1N6EW6YGEVyBBIyTUH1fGNCQQg/Z59wGYx5Q2gf7 MFEA7MlHi2W5DllTdJBqlKx7h4LH7r0ssI0jTJg8fX7HAbBmA2gCCZmZBy+0 ksKn/LoFj/hwReZNa4dczGZK9EwldPRFARwLWnAkwGmZXzVvJiVZf2tB085Z vDXejgTYKIT+CWFnQ+C5nuXCXIJA7kiYqJxgTS7FxN+4D40ecSmq6HAFEjBm jOqHB9/25TztoM9OO9J+po7AhNEgZ1sLw7j2iIWJsbI494tIfaNPT6+w+H3F /KOgiGAqStkQBNYBazaAKJCQmXnwgn5oNla9AAL+EGYqIaMvEmA7P071wPRn 6N5wWsPgXbaOLdG0JTeEtyPBzfITGs9BKZColcSRYBr2MU/PonMLxKNYRzk1 Vcfe85cogchIICF+xtBXizUgXUUgDC/AYBTcbGthmOy6ZSITuVqdl7zY0Buu QdDo5HO2VaeXCrAmhq0V72HNBvAmUrmZBz/o59bypY1XrIUj1Dfiu+jmQCi9 0YWMvmgMvpA5VUBZWkx7elXybh13mrd/yXhHuidFrLpsybb4OhJG4nyBR+FI BRK10jgSpRyZhLXmKUAwB9x20Ynw4aloaqBzgC6QuHFsTFNOxy6Lrfcwwqip rBSt5GKCUTI5Aee64ibeU3Xed4v7tdVVppdZIEIPWBPDZs8c0mwAcSKVnXnw hepBWU8RFJFuodwrU51YaF1iLoJGXzzlFxb6upk7Eag6n/qWJyGmsorxsaPl 8vV8HQnjBVpYeXykAgmT1wnfkTCRv2YxPgOUBTbEo7SJ8ITvpM3SNACFLJAo ObOoC6jvxT3EIVN5K2/7kkmhvjohmbJN14iPN52+LchPY4JR9quExsK49ggB 9tsi7xenLQxv7ar7D96D3k85L69ABAPjFdicTA1pNoA2kaI0j4fXc3evjIno 94q3IRraqHnQ2++v2nfqtqBLJqsqq0zNs1UXDk/q5KXw7T5vp4lv1rxNm8bp Tse8h8zJLIG03xEw+jB4eDyeKsXGadhNPilRraPTohX+wYm/CJyNmcqZti30 fB0JbpafsJWIEflz855gIYUjYSJ/zVpKsr4qpjJ0asrh77bHTelan/AduTC7 TCLJGESBROXvPy0KYHkRik79ki/JQPzmLOjqJLg+5Rc6InrZ6sWRr3m7Eby6 xbFgAmjWpVMSAYT3DW8QlTVMiSrXhLfV9z5u1m5C0tFSOW+RwTNla0FgBvGz AUSlGRrzIG9f2j5jcDNX7jAbUHZ9K8nGNsqG7zy3Pdh8KNXwi8oOfSPnfbRh 50GVKiNtW1Lc1GEdtJmtSv++0abcDOEIG33xaF6TfR8Fanwzj/q9349LOaRK T92yZGQPyiA83ENjks6VC78SvhEDvo4EN+JhPl2LLD33ZdRgX083/4glnFej KmuNoW0uoqYwUjgSJvLXrD9AjZ2nLJk4OOAFpUeTjqHD5287Jt0MaSSQEHio Cji9+m9y6zRpdZ4Iu8VwKMuI71WP2lMk/HhTZyCgeqrnu1k8i3QAMXDZlPhg zvcNKIiXh88eSWd3UlfaaWysdRG+DADPlG1PJxQ7G8ATSKAwj7KTScPY3QRM wTOMSb8F1lIFtTGQheOHDejSSuuONmoZ0HdgZPSylP+dK0dQ7EHY6EOBClrG Tg/v85K3O6Fo3i7ojZHz1iafuC52QycXR+JJxYERTHOrkOSrzH9i6lkpFK9O zEEzo0njSJjIX0PWpxUCRgIJAYeq6vwTCQbxvBZlwBufniiU837R4SDzUwcq TEQewDQHvrIuMFYpl1pDpg4HGbvq3H95er7JltkyBAzVohB9mQSiQAKyeZBk wTezA7ilZczBo9WaNjvD5tpKUmGX0UeK8QJquR8TKkeCLURkBJlk7cXlQzzo 32plg8JWKHZzJGSsU+IKJPhcauW9Gzn7tyyOoKPrOnxCxq4UesqJMUvFnxsC GxONnl2Swz12KloTpn/2vGVd4KkWy7G3I9wsMz2ejcM+3nrJfsUqBQBMOG6K ScnSnJNDVJrBNY+SlKktuYOqpVHrTq25vRV0Yz50sXVXgg5HPGO9Yo/E2GX0 kcJ3AeXrSOQvDWJ93pwsB+jIoxwwM5cOO1SUH4sJ056XaXZb/TfyPBrjhd0c CaHqUwlgCyQ0A9Ms4uNES6yInTVlypSxo/q98oJSof8r16f9+gydtSY588od +xyzl13aHP3+FJmwdF0e7JDan0nvPGWmpSwQQeXdaQjsmywfEwWvSr+iENE/ OpzSBhSOimgCxQuoSjOI5lGZvb4X0K1B+XKIZro4cf56ucHTefJPaf6vqk0r xv67hWFe0Tw2q7kq2nAEj8ZGUmGP0UeLCSE0XEeC/eKb/zxZe+ajflSWjVfT 8ev2q9K/S1nz8dgeWrNp1CRskSgdiC1I40iYTISXzyzNgiuQEIjPiz36jXpv ybpv7OVImHzmdgTycKsLYv3qEa277bhl9II8LlnT2RAP4jlfgYcIEJq9woG8 f2vLm9xSZrI+HLTAjQNDdTcAs++tREoziOZx9+xcX0M/1t6Ld1mMWFar87bM 76nr7qEgek/Ls/Ay0eGIesTkY+XCLw8RaEbfnjB3pBsdyx1J+DkSrF4n2qEP nnvJ3Lc/qSg4tHFWuE7uQi9ASzftPntHinUWOxJcjAQSls+8WDz+q7jgcu7R /RtjJvVqxpxt+ISMSTwm9Sk2eeHbgUqrCi6JUDzfaTPU7Qdd5d5v8RETsy9Q 1Z93BBWUNcphpdZMDvsMeRlsXImZp+SQUsITJgMFXvqkZEozWOZRU31yehf6 a3wjP861bbfI9IJ3t+QkyDUcoQXF6NsXrhDaigSXnyPB7nUiI/m3EdI4EmBN MwPydCS4Agmh+w7yfvHBeWFgPpdv+LwMCxVgMLZDN9kxU2iXauQEwK8QHDjR IahIzwt13qElQ1725PQqBjBb9VfOMD0X4LlqkinNIJkHXU2LmhOi1vNq41h1 +qvXKHtQeIxPMq38kXM4ohbN6NsXrn7JSlIwP0fCqJZjQMIvCO4BAlgjwYEt kBBXOIUkCz6PBNwSqoLE5ksOOPnLDSqcaKZ5DdNyWvue+gbu5VVpRh6hV/L+ td3Rwww1ppQBb6yMHg2GONG9qsgBTwdgNMKjkExpBsU8Kh9sG0jNCsKaQf++ boSHhe184YE3ZRuOqEUz+vaGaSpHG4bFSAsvRwLMNqKQcYaC3RwJeVqRUQUJ saEkbqMuWPVm6zT/7J/zjJnkO/L0F68wT9taezijvwakU3ZyJDhnGV4tRqzc VaiuMVXcUjbZqbxgp7LC2U1IpDSDYx412Ws7aP7cpLzHFir+WBNAzVEmQ21n ortp/Ahp2hoKAcXo2xtuOwyLDSB4ORLsspaybhVtJ0fChWjWNvkW9N8RjRiB hBmMW4d7/ufTInnuFxyEsv0L/Nu32XDJhCNKTaS2vdGmsLMjUVnwQ9wb+rMM Vzf/0QsPFerzMriaLgKskg2HJxWFx1ITFk4PD+nu56n9hUYtA/oPnfLfL7Nv wZvwES0lUijNYJiHvuK3GNmnthGVqbzm0qyoZxRE4MRcXlYvJc7oSBh1+rbk 4fNwJIwOTXhuiyRFGkfCKHlN0lrrtgNLIMH+UqMiALwXOIxtlOfNbQbYWNd3 s/m1LARXCosCaehUlJ1cMcFfHwwzUWPKVJVsK3XmbUezCqetH92OekmVL4fM Xv55SpqKwrC192o2ftcFOEFVthDdoZYSGOZBLTqit5aUw2Cibv/VZf1EuijI ceDRtwT95JmZp/vE02ZkEjwcCc7ewaLC1u5I4UiYKKcjYfc3PsAUSAAA9ZF0 39xw5k7Z9WZ0fCoOx4B+YKcVWTxnVHvkuZNPSk+lTHpJ343F0yvsv7sKjWtM cfXbItYyzu+Xnk8c3tnTxYXw9p+1w1QSYvXDnCVhHh7EvGyh/WbYyLNShw3A MA+tnMMver+oWBcd1niGfTpMedGyjn7TOOzoW4SSprAWfXNbRdsdCa5zYlIS JhukcCRApa4esV25UQBdIKHH6CFbclkxAqmpOhDOxCPM5XRYRGpHghJVzmRa Nfm+9cGey2ZqTFXe+6IrJ5kXwuEL3QXSUoMz9c3UySHaVGZozr/DLiUyqqdE V+oGD17vbp2gmbw6xR2X8WpD4bCjbxGy9kJsKPhumitObqsjcTtnmg/wvrsT EfuLEd+DKKRwJIyEB4ImefQgEEjQcNU4TlOMRVYUgcOnIN6M499xnh27Rnr6 xmrcSSh8u0cfOGu50ojR+aDoTHxdV01LHRy0x/FQjZbtrjvUUiKheVi9kvzt r4K1j2gFplejxKvym1dBHHj0rXH/SmxHYB/qSUw5WmL8KZscCbL21xhWJojc eqYYI4EjwRUeyDVKg0QgocXoIWNHAj5/rB8OPuLBKTf4f4dEYkvy9qUt4/QN 3VyJblNWZ5Van1HBzok6xGTiq39fG+hFX0DYtivmzoCAUzkXwn/kCX6aE1M4 sNxOBkk9Bqg6SIxIRpsJYr64hHxw4NG3DrvmuYtL56Gqu9wXyxZH4uHx+M7A ZxQv9k8rka/shUYCR4LbukKuciBEAolabhaPDGYh54NTPkLgSTG90UM5RuzO 8grfgCUZtjaENZFDLaK4ZcHqNzxoO7cs8r9xbExT3dWKPdmnceClBL152A51 1OWum6NkXoQKxIFH3ybuHooNeIq5QeXwjy6y9U5WHQmmfin9AV694+0Hckfi 0e/x/m6sRyc4gRopyAQShoQv1gIAS2+P0cIuH0F4z9olcI4HSxdCXykqyo/H hhvKTPlGfmxLIMKAyfKwAotbAtowq23WK2+d3f1lYvKRHDjta8GlxOFqGyI1 D54cebsR4Rt66D59qGetAYdMcOjRt42yjPhe9QBfot/UzBJmYCw7EmUnk4Y9 xyyXCt9X4rIFeRHV6otp36xL/GzVotlUz8Sxo0J7BwV179InPh2RjaB2JCqP xnL65Jps12h/kAkk2DmJOromnEbuSzl7908QceUjAMCVAm6pk5JfV/Rvq+vh 6Flv9Jaf7/P0JKsPxzzNtSOBbyvzuJq22HhDWq9ebt1MeIHOPPhDRVAbUA+Q rgkvzzAvF4cefZtRn9k36UUvw0uqaB8Yp8/mNudIkPeL05ZGdADecO+wGSqB LRXA0BkLdCXs0DoSdMwNfG7yDEegFEjQ7aVYSKI1dfLunyCc8hFiMmLQ7JjU Z3b9Rx+uVPgHJ/4iYJdhomExIWxmuJc7rb7+WVnsC4AEcC2mN9QOhJw21NSS pCQSL2hllt4dkm/KcV7l4tCjz4uKspMJs4L+D2jd2Hf0kk2H9swEyxNqFsTX kzKPJS9hNXlU+veN3mmxG6xVyOry4kINBWeyVw/S97NDWWEbqSNRlbOeVdTR lQj94hf5qSwpUAkk9PVsQeORRoLr3N0/QTjlI0xGe2pyvurViog7Y836wJon kNprAqFO81mWtmCc/SToAA54XLBrY9rC1d399UbheEnQCMxDMJQj4ULM+O8K f4eQWdI49Ojzh7xfpNrwybi+bZUKG2ZJj0YBo95ftU+cC8G9gtoDwxrQkw/S LoQIHQmmga8Oz6GLzSSZ2RtkAomSr99rzHm+Xs1WXZDnU3BMOOUjzGTAUSkP bjY55MfGPmf4stFpYqdn1oGpyKE3UdxSSEgBzP4wNBPUzHjpCYsi+veki2P7 vNgzLGr+Rli6CACgD5FDKoXgmocYaAn3835+jiGz1OLooy+Yhzcvntq99dNF cyP+zfS7p2jYOixq+pKETXsyfyx+hCCmxJTvdiWGryxFFrVC5UgwDXxpILXx RQQagQR5+cBb3IqeRO+EbGd3w6XFlvIR1NukIF4cccIGdRxYhlTku1CVt30A ExMS7Z2yFe+614rvST3bZ6ZvsOz454OeU1DFsVck7TmsUn23f3PcvDBtjQtl 5wFLrRW44AUw4QBlEBwHiOYhEv2TtNWw5YCjj754+LURFw2oQu+4IhvdDyFy JO7undMa/FJlvVkn5JvDgkQgUXJmURcvgo1v1HoBjYMxFrj3VST4hE3mINAF wXzm7bfFkQU0jeIi/+ob8V1Yp1piX2R2nwID5vbFlbevpm9JWBwTk3ELMGag 4zZBCVeqyzPie3k1DlvzXSkn+KC+eWBqMBWfcCUCF+y4BsluwYU4JPkqnC+V EGjmIRrDk3SgJrCOPvrikdiRYCoPIG5BDt+RIGuK9n0UCM6gnvUidkLq+IMG 6AIJsvT82iHtXNgPVtnv/awyR3njHQTO2moyB0HfmGDeT7YNKnOMK6oMMlAT Etq6Y6ImFaFQjFpZwrlI9c2DC0brFOAe7I4M7ODb5G+OTWphPkr2+O62MF0k 1j/mYDmMuARzNIB4ZkMFJPMQj25J4oyvvHH40ReNpI4EMz0ib8IC2ZGoVufE R7YGhSUQ+wYiglXLiBAfgq7M/35GgFEsYuTCbOxFQIcV7TdzrkHVTFAQgxYW 2hhIZU4VRb3m4GG67vJ4dyPlQndY4OJODN8KvGLsUJjnW8uBG+emfnTs1Ekx YO5F85Ea8sL2YP2vQKj2z3QMEV3f215AMg/xaJckh5IsOsHoi0ZSRwIQSKDu kmlUdJHRX/GlPHfv3N4tQCdC0b7Hqp/ke6Khg9OtVYxAoqLs5Nr3u9Znfx3U yDCGBVs2YCLGW1N9cnoXzRDwUKOBUQ4lseqyQPfPqDUGhe+41VnX7wmf+C9u 72v8pRo8PYcvT8nOLyy8fG5tsOGYzjhJxCiH1GpvYkbL6kL4D8kQma9Xmvmu fm4gBsZcc0StHSTzEA9tYA50ruEMoy8a7rSANIk4b1MP/e+g7ZJZ/Sh1KKdY kptiUjK/uP7jB/lHdyx+42VPMJTv6tppXByvwn2WIJ+Unk7/ctH08JDufp5E gzavhEXNT/ofUFu4urJSmFlyu7YJDBVW3r6auWnZsHbctYMqRXLM1hrIGN6w O9Qbe4APVbHt+Ofbgt71sN1/Crs0k44EjXC1Pzd6ZgGTqaYcR8ImnR6oQrFa BtMygGjfoVZANlDMQyy0aNahzjXgjD66tUACyi8s9GWn5LsS4amQKh8awby5 UO2EVN+5VqjlyvmsoxlpW9dHD2Wv/jQNm0eu/VaVfaag0CwFZ3/MSP8u5fPl 0ePe7tKEW6xA2bn/cn0hL/FUFvwQR3spXr5DPliWckiVnpocrfkXj6f6rcoo r3p4anlEh6c102bfPcXWfvLxX8W6G7icm6lK3/3NJ2NDmnEu350Y/um+rHMW 7p7mWt7JDNWBnRtXfDwl7N/e9QguXs0jEw8U/u2gk6XDQJf1Mzmra6vW1yPa /HtHET9bBGc8n0WHhRnyxaW9jWxC+3aIk8r8fWhBK5Pfy5qdNG78stxy41/h lLyz6RQPVNoL6qnKwMxsrsTk4w6SaWAEFPMQy+2sKAWkNmpSIX70Ya4FKGGW Wv1aozrw7YZYXSYUFw9l0ISYT5NT01XprHXnlojQJXURtUdG+2h/wIVoPyTj L1g3h77UoevTfoPGJnwHL/ecJAt3LOip1Ywpg99Juw5sr6rVZ5aFe7gSEfOj A/S/b2Wj9+RR6hBujUkU+PQMn7/5IHYhJOLu2bl6J5/JyzD0xhLW8oY5WxRe +5HMTx3IqULj6tZp0uo8E+s7H6ofnpwXyjk9A36CegcTfzAfBGMXo7AhkYTd 8lLM0TY4syGWfqEFhnmIRFtVzM5qT36IHH24awFiYCy1ogfXSCBB3i/K3Lxi 8rDX/Zu6ER5NOoYMnZWwPfc271MDJI6E5nr6DIyYFZO487vTN6GunSRZkDSh lTZgYnoTV/lg20DAMbCas1lZtvk1s9FmUTRqGdBX+xB27M+6esdRpE9OA9Mv T+vbr/okJqIPVUpOjESHyY8Q0Y2i7ORXY1/5F+VNNGoeNGbe1z9eg+NiP3mc v3PluH6veOtPORq0ebnfyDHRa5Mzr1gzP7DZgU3KavZpiJjMaOanFQ0mf4Oy 9QpyoJiH6Auwc/4pP8SMPvS1ADGycCRAgcT6c0Vpqwc1d1M0bzs6ZnVKGhXJ mfc61fqHVwNiR6QoOUprOS5Eq47JN0w/UKDYL+ToDcaxqLyVt33B2MCWOkdR 2aHP+OWbTvN3tg3QpSdo7HYOjgJGOS/IkRDRM4V5pK7EuHTHjUdQ2Nk89JtN pCWG4CJm9PFaIADmIMndNWRo/2buRLcZ61jh0Ed3UkdpaxQ08ok+JfucCEFU Zq/v5aKzurBtV8x6/IwMGG39T0ydQ8LMKYkB81KldCT01VpgZH/YHbuah6Fc oX0D+LwQPPp4LRACc5CkxUy7YfLsJm0zLBeXLiMznc/1un8ltiMdtFUQgRNz LXSEBqI3DuScYxwCvVrS2XLewSwMnhoJEfJvZuUl/BYfcYJQqh3NQycwtncA nweCRx+vBcIAHrilvgwVxfF63fDglBvSXiJy/kx65yn9M+i94ZwF15Kpz1NX 66RhEHIldQDhjG8ZM+XacsjOFlvybe2hp/JorC6y3ZBYle8gy59l7GUeupRn R2rDLXj08VogEMCtahq16bb5R67PUne6MA6YaWtNyHRq8vO6+Q1lg1RMHaWm Kj3SV7cbsr0wpvxhWtvbJOhipX+GzM0XMEkzT5J3TQ/5Yi/z+IOO4TtO90zB o4/XAqEAAgli5kkLcRyDI2HnMq3QAToUWJu1HhbGttbHbpzMm8LIA/0ZIlXD cMlpcf1X5IS++IZNsy5Yf8nyrtAsVJVyLR42dzxxBOxiHoYOgw5T0Uvo6OO1 QDB6HZS1Fxws6OflsxFVZSzJYerx2vCmAKWtHeadwjgWzGaK8J61y3kc9tKs qGd0864VCT1YIvuF3nv/FPKeXV3Wj36G7MYfjo89zMPQYXCc6oEkPygWgaOP 1wLB2O5WMZ9EXKxbYsAkd2vVz/7ZP+cZ/Wcd5Z3COB6G/ZRXo8SrDhFKtgn9 6bOVaDOz6RbctMvgtDhXVEeHxOZBV8YWIVaRGsGjj9cCwTANaq3pThkHzHEs yjpg/V7rWmh9TRhnegIY+QF0Y3GqoET1wyNj/V0Io+ahIOrf1wZ60TN50PIM IW3EgafnM3VbmfM4YnokNg9dF3ihYhWJET76eC0Qju26U8MxmTYt15HKrVsG uC9rtWcfl6zp7GbTJzEYkRhy0JxsT62+tXW4tiKNqTRz8vblDW9p/6tgL6LW sGEXfiziAEhoHg4mkBAx+ngtEAyjO7XmgBUsMzSsdKpqOYA+3Fo7ISYmo3j2 w33MyRtZU3TqYPYtSF1HMRgtlafWdNZam+fQxfnOZFzV6p8/0zW+9+k7esm6 rWkqVfrurZ/On9RL281O2XnA0gNnBTbgq3548G1femck8FjEQZDMPHQCCYdo eSZu9PFaIBCmdK21Xu3s1slo+4xLS/XhGL1M14rLDfir7BK12tBfSPJV9BeL qUuQtReXD/EgrJXXc0zI+0WqDZ9MHta/Vwe6MwjdO2bBxiOiGvDd3TuntfYN fX7OrnvOd6gBIo15GCpIOELLM5Gjj9cCgZTnTnMx5VYZozsm0+I01V0oWDX0 LBfvzV8apPucklh1mbEy2qgg9l7HYHQ8vrstrIU2YNg20amiEmi4eXLic5qd kULx6sQch27QZSMSmIdOf+gIUWixo4/XAqEA7X0tPzcgu9aJqrvQAEpdSw/h z5+nt6SjN1yJCKW6eXHECdmH/TAOScmvH7ajTsOVA2bm1oXFUTCGVbVNz+SC OuN0oTYPWo3vSow+KO8uclBGH68FwgAcCUttcZ48Sh2iD+Q4mfSrlvJDj4/3 o8MyDWfurDD5GYNCjCC45d0e/R7vr/CZt7/OzFwYqTG0LG89bZtT+fAQIWvP fNSvvmZi926zNMs5uwqaA6V50IkMsu+vBGv08VogjMela1627kgwad1OevJI ntserDUe084kbTmeL/Tu3oI2HlCHQ1V0d3U65wojM6rOp77lKS6XwYkhyYKk Ca1c6qIXQYPQPB6XHt+0dsevMn6qUEcfrwVCAPp+mi2pARQtd+k8VHXXyTRf Wkjy6trhtGyJ07NMnXf4w94tFN4d5mdc+/tEfHvaxgz5PlTOe2MPJzvrwcgS 3cYT+xJGlKXHdqmTsQiQOmsekEcfrwWCMIgfzFWjKkuLaU8fBnm3jjst5/CW OKrVOfGRrRWU/XSLiks5lJG2df3iyNe83QjvQZP3Xn5A+U81VT8vDK2vtbHA uV8e2pey6PW2Lp2CU67VuVAWxi5U5n8/I6Ax4UlMPlp3V0wONb9u6qWZ0P2D E3+p68+kDpoHktHHa4EAdM3OTFct00XM6oy3r84/sTFm4uCAF5QKokGbV8Ki 5icdz2fls5NPSk7siB71un9TN0XzNoMmzk+7XlctB2MXHpYcT1675zfndel5 Ql7P2pi0/Vy5M0ZKBVDHzAPd6OO1gC8Pj8d31npWg5N/Y1wJzVNSrRtEZdNg bx+DwWAwGIx5yJqifR8FuhOER/3e78elHFKlp25ZMrKHUuNDeLiHxiRhbx+D wWAwGIxlKm/lbY+dHt7nJW93QtG8XdAbI+etTT5x/QH2ITAYDAaDwWAwGAwG g8FgMBgMBoPBYDAYDAaDwWAwGAwGg8FgMBgMBoPBYDAYDAaDwWAwGAwGg8Fg MBgMBoPBYDAYDAaDwWAw6Pl/icVvXg== "], {{0, 105}, {707, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{508.9244791666669, Automatic}, ImageSizeRaw->{707, 105}, PlotRange->{{0, 707}, {0, 105}}]], "Input",ExpressionUUID->"20b56ef5-2b7d-42db-a9f3-71ceddb5cc0c"]], \ "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}, { 3.751563827660755*^9, 3.7515638276610317`*^9}, {3.751563936859137*^9, 3.751563936859385*^9}},ExpressionUUID->"82fba134-33b8-4b8f-9185-\ 4d6bcca44fce"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{"Bb", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "=", " ", RowBox[{"I", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"X", "[", "6", "]"}], "[", 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}, 3.7515630196515417`*^9, 3.7515630842388687`*^9, {3.751564426361341*^9, 3.7515644274743223`*^9}, {3.7515645554103203`*^9, 3.751564561637124*^9}}, CellLabel->"In[92]:=",ExpressionUUID->"e5ee77fc-c11b-4907-a531-be89fd0bf05e"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "2", "]"}], "[", "1", "]"}], "[", RowBox[{"Bb", "[", 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, 3.7515630201126003`*^9, {3.751564429731648*^9, 3.751564430064851*^9}, 3.75156455721023*^9}, CellLabel->"In[93]:=",ExpressionUUID->"59b5ea18-6c66-4f04-be2b-98f4ab9a4beb"], Cell[BoxData[ RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"X", "[", "6", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"X", "[", "6", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "2", "]"}], "[", "4", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}]], "Output", CellChangeTimes->{3.751564439941257*^9, 3.751564573656619*^9, 3.7517271802339354`*^9, 3.7517302506114817`*^9}, CellLabel->"Out[93]=",ExpressionUUID->"0b886b76-c80b-4e5b-a4ca-2512f173a66f"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnQtcVNXa//cMSIWgefkrZKaYqaGVinpUoDyIec9SU4+aiR68lLfSpPAW hR7UUsiyJJVS0cRrmDF4BH0VMzEVSikFL6AFXsB08CC3Pf/Zs/eevfbMMHv2 3mvfhvX9fN738742zPVZaz3rufyegClzR07TYxg2/1Hz/xoZEfXPd9+N+GDU 4+b/5/U582dOnxP578FzFkROj3y39xQP8z/OMP+P0fx44v82IRAIBAKBQCAQ CAQCgUAgEAgEAoFAIBAItfPw76KC/JIHuIA/xY23Ll++WlYF/T0hEAgEAoEQ S9X5feOCg5PyHyr9RuQEN+Vu7IVhEYZ7Av74wc63sUd0CQXQ3xUCgUAgEAhx /PXz7Kc8MUyn7xKWfLn++DaUY9Pny98E/HHB8jDMFzk2CAQCgUCojOKzi7s3 xWh8B7yVVSokNaNJSjInYfrGc3dU8P1D3LR/ZGOs/fB0oxRvC4FAIBAIt6Ly z/Pfb/osyXDubq3Er2T8c9PQ1oRD4+HZObC9nvRtBs3Nvi/x66qEiqK4jnqs 17TTlTz/0Ji3qIUeC1vwe40k7wuBQCAQCLeBKHfx9yTjJz3jsyV0bYw3tozu qCO8GixkhaHsQdnh98IbWl43IPKLAt5RDE1yal4XzBObe6yc119VHIxujmHt Ps6oN7EtBAKBQCAEUVu1f1RLOi/kgY1eVSLR2Vld/n/zgjHKq0kvq6X+8dhC yrd5ev7OO1LHi1SAxUXRNZy0rsT1D/vw1qbw5lgD3u4QAoFAICiqjRdSv12X 8Nnqxe/MNDN5bHhoSEiv7i/GpdWfQs/6QvW9TSFeVr9m2NaLkvg1VgfG+5EB q2mvxuY/gQ6PRNRUFBze+dXXydk3lTPkB9fiAj0xL2zCviIX/6Iw8Y3mmB4L nZWDlh+iPgNp/cqXeUeoCNyUt+0lzAEoEu6WGI8njnzmcX2rTlM2HJXEr8Dx /M8nNjcbkE+DCTvOOxBiMfs2i4e19CB8m6FJv0ml1FL59/cR3XyITJhO13NS lnLBj9vfzWqB6TC/9suybnI+uDQ9rm8DjJcjhEC4IZDWr3yZd4TawKvLigrM 5J898cmQ1pRb44VF/YzUwRA8MXs1iVPb6Or2ang9TAS1J9Y+a/XRGyvaN115 L+U187IifJulR67X/Z3UFu79MJgIp+l8/vVpISobRtRj4Kxf2TLvCDVDNJk2 stiADmsTsueO0u8HoTWogIMr7orVt2niH3WcO5TBl5r/xjSnNjQ9NmRRgbJ+ wvVj056wXBu9fUJnxRl+v8Vqk8KrS3Mz4ycG+1qWnv65ganFaP9F1GvgrF95 Mu8IlUM0mSLnFiEUY35MO08eQRjKt5GmnsR4Y+vkvi0bNu3+5gfpRcpXq1Sd Pzi9C6Pn49/95QnTZsyd985bMyJHdXtSb9X56fHK9nqkYYhA1AGk9St55h2h evDT67vSG2znlSeUfjsI7VFZcCw1u+5siz14bWHmziMqcDxkAL/5++bp/Vt6 OipoI4I5vqHz1+WUoesEAoFAQOOvz0ehAhsEQlKMeUc2RE8bGvSMLxmm8Xik XZ+BU2LW2eanEAgEAiGS2uqUob5UgU378AOlSr8fBAKBQCAQCMEABTb6CfHI r3ETKkpP7YifO+rlwBae+lYdQ0aM/3j3KaTngEAgEAj3J2djbzrbH/zlr0q/ GwQEKvMOvRfaWt/0ydEffJKcmr47/p2+3sTvW38mGiAQosDxgu+W9W+G9U+6 pPRbUQvVB6Mf8X1yAqrFJan3FqJye7jz9US6iBFbeqZa6beDEItFmUrvGx5p sJbm4qaMKe3IprcBm35DVaoIhDMolWydvku/3UWq3LUV4c75mJ7NMI8Gnd/+ sr7fj5CFmNRtD7jpx/H+VIFNp+Hpfyv9fhAiuXr4zRYe9nO0C5aHUdIQg6Mv u9lCxGtKTuxeMpZMurUfMm3R9l9vKf2eEJqFObPCklEDvg3FZxd3bwo59gtl /cqZedeWhdy/smlMt4bejUKX7uKcW2fMy0xal/DNsQJXO4iksAco2BXY4HcL MzetnDGSsBDMu3nn/iPmxW9TcuYOwnUIqdunMEc6b+eietD14cPTjYq8OWmo Np6Km9jWA+sZGZt8IH1n1HBiHJUPNvNQsdLvDKFB6DMLa9UhIQ9teo4grk6e 0M4yGOtX1sy71izk2prh1M4fEH7grtOHXs+c9JjlsU39N1xz+QXg2gMswAKb L3ILUz8Z0srs8XYYH222EENaStLClzvozff8gKCl6S57cZyYXfQzh7etWjRl 5KDubR5nBD2aPBXUb/DEhTGbfjx1EzWd8+f+3nebY46GDTGNb3qs17TTrnUX 48ZblwtgkV90V5JNoDApss1jgDBgSeYkyypWdkoUQpPg+KW1o70tB+uUA2hi V51Unf76n8QsJ+zp+TvviIuKiF+/smbeNWchjAIz987PFKX4Yqv/4PG1QbQH WDCfxcuj/4iBLb2wnnPYWmEPbqWM7Ui8aygC+DUV+fs+i/hHa6vgKvGNt+rY t/fzfl4YiL5tt5lf7C+4r4F6ELyqskr024TwJBV/rgl61LEI+d2cBU2ouJxH xFf3HfyxA6r2zcegY/FdJ8yLTtiZnlcq1tXB81IG67Eeq7OY9XonK5J8IXkK xu5eXDuiq43pSkuTJ19am6GOzcPduL1nflvLd9xjeYaETjExujolftHsUf17 tfOx/qytQt5ckHzmhvD7HJHQ2fXRpCEBlmCFX/Dr636BP6/ESvE3/26GEZ5D +PpfBL9nCOtX3sy7TBYCkeuGsZSFeeqnJ/3PySNB1ZfAMUce8HsdKPYADabA xoJPg/Gbf7bPS+LnNvaxfF5d9zGZIopwKq+djBtExH8wj0fbDZqwNHFH1q+X Sh4wx3ll6Y2c/6asenvks49R70gfGBb/Ex89WyWA4QB4YIOir4hagLgpd2Mv DJtxuMzBfzu5tiP9SkOSXQ0ySuLYgHg37T5hXmJGXrmwD15blTYxAAuelg1u MWfWv0B/o3OPS617R33n8uLpOWc7KvGHDnnImvEdEpXDc1d3lYrSU98sH9nx 8Tp/W58GE/dcEnC/we9e3jaVnDhmRYe16Zx0VTIXuLr8x8mBlgvv40tPCToV xK9feTPvclgIbIDBW1w7P3D5FaL6It4eIMIU2BCGFBp/wrElVRTF0efi0OSr wl7KOkQ+4LX5nBeTyvyjHw3ooKcXu0RjoGGhDsfGbMT/Kyn806GTwChL+2Cx v7n6Mkwq6uKvWYfSU7d8vmRMb1/799641cS1OzJ+ueAsEXXup/S0H5I/XxEV Ma57c9vRAv7hUzed5n9XvbCtH4aFJ10E/41JKLfskHSD7zPyp/r+hSMGiv07 NsR/6vAr0nfqF7VuS6rBBczf0oaEhLUroqZPGtaD1ihm0+fL36T/YPUM47W1 wZZ5Xk0ejT3n7F4rmLJT301/vqmDn5OFIG+EaE5x/Mw94k9LGPIuynyTKIjR 6bqNMNzm/zqi1y/czDsH0luIFNAOngs7P1CUEhT/i5AXE2kPEAE+S4vIjTfr /tw/jiNvGQJHZFJeTR0RIcdUlB1+L7wh9aOo2rdh1aLk/5GdaT7jvvsyZuGw Do6uZt6+IVOjP01KSTOkZeXmM2f/jTtSxRfExRhZVD9IGdGS/Xm4Ipz2PLyX d2j7klde8NGBX4tX+OItvxt52BaxB/oHJZeAz3x7fW86ofxqbJEic73BywJJ Y49YoZM+y6+e/T52aiA71TVy119w33J9Bzed/XAAudV0ic2Av8/geP637wR5 O3Q9HNDu4wxeW2zdFyvJg3tUAkJQcYXY9Qs78+4MqS1EIsACm26TTjjdpoGi FOFjlcTYA0TAzzL3mLOcIe3YCIrs3b0Y09lLiHPy8PbWYa2pd6iGABdf/vp5 9lPs6IQHNjTpN7nXhcgYIxsm+EMj0L3Ha0qOJ9vcYX3D3ki94poPQKzZx2zc bHCWq81NUD6YpDZGbSn9F+SJ+8mNZ3f+y582JDlSbPULuvTR7PYPT3feNiII a2EG+fMNWJtRcPlyzn93fTy6G8u3txoM3yADXl12MXv9yI52TyZ91pLwLixH pw8296iDJHidiF2/8DPvTpDaQqSC2Yu4dn5Q9aVNyJ47Ql9RsD1A5fDkJ1z6 LDX/2xpO3zd4NYKZiG/sTHSo+e9YFWKuc8Uwjrqu6nR9JmVBcL5lhXYIaRrr Egrkfg/gMhevLG1/PRSVGTFe3/92mA/zZDp9l4EbclxSsSj5aZfh4j3wX07N 60I9TYvWG64qEwsFk9okfC/gDrn93awWypmQO/Pw1qZwyy8mkXYls4NhtlJm 1Q8Oz+hu64yYaeKTkM//jZTlLLAJpspSjlVuiLFsL3rbahkuxK5f2Jn3OpHa QiQD3Is4dn5A9QV75ePrIr4zwfYAjfKCmLb0Z3GeYGIeyX9fLdj/KmYZZBzU d8C/piee5l2of2n5AOtCDfnstGbCgBbyloUA+4wLSgISwCxzGI1CkB0bEy1k wRSTCJW9upM9i8pc6vVjVxUrFAhlktr02pqRAaN4kdp5lDEhN4as05DuMl64 ZhhllG2fn7vNLhFfkhX5GGbPjEwhuUvba5QHNv576bOW1ks6hoV+mSv83Ie1 fiFm3i1IbSHSwexFnDv/pV0DaasRexGDZQ+CAT5L55UnnD3y6v4R1qOZZ03m hWWh7JM9eA9f1wZ8da2ZFt11SL9/+cXxwGUOQ1kavmNjsmpeMV+UAKFyev8h UKwKhUlq0794K3YVgQgsxxZ3rhzBA+k34bJjSQsXxWw6eKLogaOntyquwFhT bMdGrwubfU6W5h3m6H/25QO3BH6L0NYv1My78se0YJi9iPs2dG/rv6mvHsZF DIo9CIb5LFzFQkBEi6cPDIZ6SAQE0sFEmIK1E4JQ3rGBu8wlcmxMZOdma/Bp +fVU1lbtH9USui/BG/sCG3gyGhZbgtE9h6BhdmABFy5IPNj5NmaL/vH39vKu fGftk/Lq4hrzY9pRNWBdVmYJOcngrV+4mXc1WIhAgAIbzpaf4zOepr58KM2k 4u1BBMxn4TKk/OXhtKXwPBytakvMyR5+gP/hCiR0lOt2EYTijg3cZW6SzrEx c/3YtCdYtdaBy9JcTdIWWlexvtGMb5UqxZKowIbEYktIxAYelX9v6kd5An7z dio0ZgQ35W17yWZFCbqDVB5f0826z/i1X5Yl6zFMFwwIDarDW78wM++qsBCB gHsRR0bmYfGabp7U8RoyKxdGa4JYexBM5Z31PejP4vxSyQ6Y8DscbVpfnUjl OAU4TOXSJ6G5/+OK8OAQgOBhk99dvc/V8WqCHRv8bmFa/OIJg18EXzvkxR6x P/Orx4JbYGOS1LEBugUpXJaMYPr7PLCINPFxKYFIVWBjgbQljj0K4TK1J9Y+ C3VpCKQse5ZtOxPvuJxVJYzY0Dv1Xn1S9uCCRZSGRIDWGbT1CzXzrhYLEQSz F3H2UTLFHpj/4oNw4sHi7EE4zGriCnuC0fXG2Oo8fp+79NCaIU8RmV9iRMLm o2VCvjVbfdfxqfKdXLUXDr7zar8AoP6DxMWBX8IcG/xi2uSnbTVwiLm3k2fv vsxnfcEusDFJ7NiAGW3yQzvWqbABlL947vUjwDeM38xLNUg25NcGKQtsTLQt 9U+6BO0Z6zNMcQs8DTdhPCxZ84LNkuKX8S/N+HwIHerkIZgAF+b+y1/fAOL6 hZh5V4+FCAAssOHahaoPRj/q8GwtL84yZBQJm2spxh7EACSJnB9M9757m/7U uoaT1nHOPZcAW8cGYnjfRSpv5NrLRLSL2sfppAhxbKzdhVY8dD3f2ZDHR7yO AljmwpQV7ZHWsTGZbm+ZypKj88Km/Mg15xe4Hfgv3Adu64QIWBu52oikLLAx 0bYkrF8GYQvQjiT/fsICN+0f2Yi9pFwO7VYbz62bSek3ejToPPMzIbsEJJjg sC8Wm8vn/gVv/cLMvKvHQgTA7EXc2SUmtsPWciGTWYJDVcLtQQyAY+Nsq6x5 kDK8ufXtLT2tUD8GECuDeEbzwyqpbcWF+JUAx6biYLRNnYbv2BXCxsGDyxxW CkNqx8b0Jzne1wq3w8903tmsIOImaCsCJh2SFtiYSNUpnlN3EXXB3NdE6KzC gi53BPcW7iYLvOTXBEriT4e1bD/TvpdcZgD/hJflQ1y/EDPvqrIQvgB7EZcu Td3jvwmHp6OIOL9QexAFEP904tjQ4y8JlBNJtonY6LGwBb8rUT8MNiS6+Hvx dmxsxpJiovxJZpnDW5uSOzZMfwSNN7bwZN3fALgw2S4Qab1ySHlYkLTAxhLa bahkw5c7AfbgQErRioG9S1hwriyH1xZ+/8mQVtb00+Q9f9xT3t9lemD55G4g rl+ImXeVWQhfgL2IIyVH6+lhtuMniIriBqIKuYXZg0iAAzTCcM/xY8jpq5Yf V9GxVjaOjRJN0ySMhBT9e3FF+Xg7NraThkQkKMFlLkYlm43kjg1YSUh/Cc7W FxB7ZEWlaqsO/ztQvpp8MQU2lXczVi1Y8d8CZwuMuIkgERtIMFFBOBoIIrEz eIK67puVRdnrJ9KDvH2aDovbK7AKQgIY6WDXqzEhrl+ImXeVWQg/WHuR0zgA uxGVNRzHEm8R2YghxB5EYw211ZWkKE2N7kRu0X5tY08r6rNaZ9mT70cpx4bd IObK4cXbsQFUE0mEB/EkKLAxyeLYsH9ujEMlAHAFwbOA7H4dlQJhUoxLiCmw sfzoHP0IOF7ww9cbDl/QWExclfCQmpcFh1MsHQw5qjbmJC3p34w6iRqFjE/K dWn4iGyAmjyuCo7BW78QM+9qsxB+sPYi8/H9bNJ1R7t/8dnF3ZvpnwnpS+uH gTv52aie4m+FQuxBPGXnFwV41hUTqPo15TUfTA5JBLyqsorj0GUvfOUcG9AF JeGqeeDr2NQeXfkUe38TLMIpRYGNSR7HpsSmzMbpkFZAu9Uae7R0v2IB0zfJ JnkkpsCGvLDL2etXz2EC9Sopn7D15B0sK2POD0sGdKAGj6gsUEMDavK4HOiA t34hZt5VZyF8sN+L7Ht4y7L3zOnRTEcMr6m+tIIaWmSt3K7K2TbIU7zSsiB7 gEF5Rhyh6WQzchqvKTasI/sH9YFhCb9A9moqb17K2Pb50mljB3R9xpeZEIT5 d395YlTsrjM37M2IPVFaScfGPhvuvEuFr2Nj7zYI7oKRosDG4TuE79g4aIB1 6ifQAVXf8LeTD/6wLXZmj4ZYwJhFJ0rlS54KL7Ahs/nyqjPVa/h0wsqCbden BUaJEb9blLpoVFsP6j/4DXkr+Vd1BWoYmPALn7QplPULMfMumYWUX8netSp6 woCuftZMUZNWIePeWr33+E1BO7TDqAC4Fz3duYuvpZvXv39E7KaUNEN66pYv lkz8p5+XR5eI2KwSy+FivLFldEcdEcQInLc5NTVp1cgnPfgJv9eFMHsQD15b uPfDYPOX7N0w9K3Y5AOGtJTNS8f0JuzD2ys8OjG3DN7RgNeUnNj1kfkrpXN6 +lbPhI2JmPnuotXxny6d+xb1c3t4Bo7/IL2IdZqz4yRKOjbMHArXHA++jg3b hRNR289oZtpKQ4hEDsfGQQMsR20/fvP35KXThgY94+vdvHP46Pe3Hi6R85ol psDmYsogeIKfCG6YeKBqvnZbhXaMquQkioTXjOrwOGVULTtOTTwkq2HzBUzW 8+ngg7B+IWbeJbAQ8wfcNmdoSw/bn9mKb4/XEnP4+at47rYw+0wZ6JWZr0vX a0pOp321ePao/r3a+VimUfcMe32+XQChovTUtysjBvUxP8a3fY8JsVt+h6Ib INQeoFB5I2dbzOxRLz5v9iv0rTqGvDJm4dqkI1dgltmXZe9Z8soLPqQQDOFE fbQr+4r9xHlCbvc/UwO92POdbStblJRL4htR4evY2EaEnHZ94iW5X0UODfDx DJyw1OZ2U5W1piv9HHBnt8nh2DhogFXSm+VGcIENbjoTTfS6QhP8RHABpGjZ bSAKwhzKgAm9MPqdMd2oPdPDo8vkmMzrGpAwAi+hcmZXIWbeoVtI6bHEkexh MY7gWfVBtvbY98yCXhlUHS1hKGUPklNekraYiaO6UvBWdnLLuFYNsD6TskiT sl31XI35UqIix6amYv/rzNRIliAtI/Gn17807RTUvVsex8ZBA6yA8alyIbjA pur01//Uud2SVzdg0FUtwmuOcq9WfLsNXJGWZ38NVCdgzFnO8R8QM+8wLQTH 8799J8gbcw0eo0stvfAOJHPBKk01mLdS9iApldd+igltTdXReGDBH2y/7FrB G9mQ1SU2o8rBkDgl5wDaH+sOmhcAJHRs2BW2TI0xbrqwYrg3+XJtnt9wEfIt TzHHRsVVfEIKbPCakuPfjCOkSOQef1bPAX8stcynsA1K0/g0G/YRpKSAXAD7 g6d+epJMVRVQM+8QLaQ4+e2n7H9WM03admlrOzSH+s1HLOF2bchwzWMOBL6Y idVOGi5kRBl7kBJwLpt5qw9Zkc5jUBT5w1kmxduXtUhxkroI32Odr2MDzDHH OEo1gNl5voPmZpNhmYqyw9HDLJlcnb7LwA08k7auoJhjo9ppAi4X2ODGW5cL LuedOpq6Zf3CUf/wa0A+XgWTaEp/3xT11kyVsGxdjpT5oR/HPa5CiwLfFYUP FvWTCmT3+AEWQvMe5cnx1HJl3mFZSOWJL/oCY3h8X+g/b03SkV+vlFnvZzX/ K8k7Y9i4cvI/WjNtNB7cTe6WcI2jOXqMh+xUIkM+JLQHRWB5NRgWGP093/GX +On1XYl4SHHWW+xyC85ZpRLioH8BrmPD3t+cPh43nf1wAKEX2LTFlHX7DGk/ JK/5aHJvywJp0nzYYqiF3wDyODYOlT3UcwyxsC2w4Yu+8dwdynbuOvy2FUTC HxpM+jhX95UR/O6Nza8G2H4LKs69OoMZfwO1Lk62zDssC7l9bkGAdd566JKd Tvueqo05m9/vQ42m0mOhs3KcrADy1t8Am3G4zPY/3cyKpBMkatEVlMgelMDG q3EptmYPIcis9xodNZ+lHKN0hyZrahXGORudn2PDdCzSFu58eERNRf6BDfNG DerehnCH/J/rPWDsv5dt3HXuloQOAHJsbLAvsOGLYKkiWODnvxvsy1ncKBP6 p7tsku5eBxbsqcFzMC/hvda+JzZK3uBEwHR4Qd2rZcu8Q7GQ2upjs7uTzxEw 8aNs1+6YzLnp5chpoakzXMMusJFPEM85EtmD/Ny9FNfLOizSbGydk64K3KaI 8EVTf396xCq57Sk1KIrCrpLZedk8P8emoiiuI48nVwR5HBtQstKKOh0b2wIb DBu1OafAAZfzTh0xGNJ3fx2/BBA9wJr4JORrLeGgXcBtFt6cEWEYcw4sHU73 ijqizmE3aoaZEATVdZQt8w7DQkjZZMyRMp5z6G4CvfeURMfxFifhGrDARsYR BhxIZA8yU/3g8Izu4NoUk/F0WGihcKW3fe+5U6EDfo6NneIua3iHOkA1Nizs C2xcqwSm55WooMCmXqGOwDh+9/KuqJHWXlHfoFdWRY33xWwRvrIIYTQ99mqs bMrbDGAqR/SIbQbZMu/iLaTy3tbBRBDXd+wKXl4NybV1r3s7CW4U7H+1jnCN ialk4EpmyYlE9iAvwKhQi2GIGzbhsDVG8UrvC8tCWQeZ0/AaL8cGlGIgP6wK +4AUc2zUuSjsFWxcVPSionPKF9jUJ8AaOYUcG5vcU9PWr6/aWWCsdSQ+LOIS R5qlh2fg2HcStu/Lys0vuPqnTA3j7NZ1mJcROTLvECyk9sTaZ81/27bn9huC fr2KP9cEEXclhxlqYoSTvs6J58V7lgU31/n3Gf7pSSmnIPFCOnuQDWr4FEOX lVli3Gi7000Vld6245yc+lq8HBu7yRHKf1h7FHJsVNoTbV9g46rUHl1PpXiB TX1CYcemMv9orFWnlJBYX3SggO57si3ew8ToWthekfghTk9D2weZaAuhR1+J SVVY5lM7qv4tyYp8TI8FT8tWvo3bZbRtDwR/Jb7xCLg+RKf57KoX9I1mfKt8 zQkwjpbEycWKh2Njl+RSxYe1Qx7Hxq77Vd5RIy5jX2DjqtQeud5RgY2sgMeW vNV6FaXHVk4NpJOWDjT3HE1VEKxE6rBEzVV8sLlH66xc5YbdAaG1g0y0hRCn g+g7KeHA6LBOw9P/Zv3zpeXEtEq4SvKSo217MK+la3GBYLhGdPGAbYsQsdAj 0lQRwiANzJVPysOxsbmyOS2MVxA5HBsHemWq6V4EEVpgQ0BUoaMCG5lRQlWD UGJMnv483U/h03TYf3YW2Gvu2TYOCD1YLbDlsPjRY3mGyHiAOpWCXEO0hViK nNtF7RMVCyTDPo+xk+9lOQtaqjSM7xwt24Op8lCMjcSi2Cpf28CImn5TooIL oO5slOuOja2z1H9BnurqawjkcGzAQnoa21lvakBwgY2ZS7sGogIbuZHbsSGK hOcyow8DXnt39x91aO5V3lnfw6bjXmiyzMEMWVcRVu9qg5YPMrUIypGytKCs /e0tU70oNX6NoWF7oBOLDOKrfHM29mYvOv+F+9TypeCm8zHhwFtzMLODxFXH 5uapWYDyj/nbm7CvSOLPIBA5HBt7yTv1dC8CCC+wMZnufD0RQwU2csNONEia 3GQN5sb0Ab2i9p9zXr5rl34VqvtBZDl1WJugz05eKnng2uXyzm+LOnnpnxuY Wiw6y8EOY2rsIJPTQpy/DWKQECCSRlYUN22ScEl12yAHmrYH++iKaI0Icudn 8MVic9XUFHP3YkxnIA3hg808VGz/KJccG3rEs/VhdblJakAGx8bOYVBp/Ep4 gY15xRzfMH58pEH8OYLggUzFw/jN3zdHBFN5dA+s58xPskq493NwDjKFMN0P olyHT4VedfmPkwN1Pg3mHYHRSqPtYlEV9M2REKlqpsjK0mlVt7iNmtGwPdjP qfTARq8qEbNn22vwKqLJ4BT2KBCdrtsIw23bz+yKY1OeEdcNeAyce5NkyODY 2DsMaqyXE1Ngg1AGcKeS5tjCa4oN64Y8QWvpBwQtTS9w0SV3IHEgRHyYOppd DwYWJr7RXIeFr/8FztVBwweZSQ4LcREiNelFhYycivKpHS3bg/1hJ3ZAeSE7 GaHWStrbB2KCgE4w39EfXmCXBXI6NuzxEzrMr/2yLNVIEDhCcsfGtgpdhCKE pIgpsEEoBagrC/3YqijLiBllld0LmPiRK4EaKw5bmQSID1cfjH5U5+qQI1Lq tuXkz6FdG8GDTItKs5JaCB9+HNcECwg/cJc8DdWkuccLLduD/V1DpBj4n1+M Zh0ZdQgtqoHS9Li+DQDfZsDbmcWM/Tl3bEqPJY58gjnE9QFdY08I9WqqjRdS v12X8Nnqxe8QI5Injw0PDQnp1f3FuDS4q0Fqx8a+Cj1wWZoKZRvEFNiojvoz 3Rs8tuBG2IrPrBzYgZpA6NNg/Oaf7/K0BsIhsXNsBCyuUkPCjPc+Pe3KmrGU 1jgMNQtHbdO4+CKdhfCECFw3Ir7Aa2uGY+qMWruClu3B1rFp6r+BY+66U2jp RQq1hmusGM/unf6cdTwWpu8UHEuLVNTl2OB3i1KXTXgW2Mj8hs0xFAn2Qeyz gRTQJ1BI69iQQVfwG1NnuEZcgY3aqKfTveFts8azO/9Fx131gWEJvwi4nuCQ xYc5sZTWYH5PrM6FWiALOgZkwEFbqCbCQJwdvljCectp6Pds0nU1boPcaNke bI/vwDFHHgh/Nvad3eVK2vtXNo3p1tC7UejSXZyPN+ZlJq1L+OaYq+lvbipK j8XPC/l/TPjFv9/4pRsP7J7bh/XNtH05MfNw0tLpfVsyj/QN7Be1w+lQe1fA q8uKiFGL+WdPfDKkNfXUEgxlkNSxqTr1Bfh9YR7wUv9wca8Cm3o03RuUSII0 PhuI2er0XcKSLwv1yuybAaUcg2uZSYQNTfoN8voidAyoX1KTMk0SWIgwiFNV h835z8pAjZYNk2jZHtiOjbj2/4e3NoVbY/w6rFWHhDyXNgoyXueSW3g9cxI5 MVxkZMkO/G6h4cuPI/p18NW7sIN7Nwka+9bqvaJdGts3YVWxkGR+sYSODeun J/AZscS1H1927AtsVNm3hbDn8OQnrD+b+CAbKxPdtOXq8yLs1YH4sFSFW2Rp TdtZW6F3XwLTHIQrJysLXAsRDDlh5+l27bRaNmxB0/ZAqglh1vcvoiXq/t53 mwPPFBp/wqVlzdygud1CppHcF1v9hyTxvfLrF47v2vLp4gUT/tEaA2ncdljk 7KXxG3dn/lTkosQEX5jWe9G9aY6QyrHBTRdWDAfkhs1e2fMbLqrTrXFQYKPw 0HmEyxSuGQbLdKtytg1iAl2ioyvs/hFqFUgRCTReWxvcTKIkL7A/ADIsmgKi hYiB/ib12HOvH1Guhlkk2rYHlpieiIjN7XMLgDGaPC7szA3aUz89yVnOmGkk F5sycwVeQzChgJ9e35V+PbG9aY6QyLG5vWd+W/BJfSGpakiDbYGNBzYjQ7Nb Tz0DqNEVN+3ReDWuO5iOFL3c7IfIWKgraFB581La5vgl0dHpN/jttvmfvOIt mYYt6BX0T7okwStIDjQLEYf1m9T0pUnb9sBq0RUaPq2tPja7O+AD/GN7oasL FrxBgzLUDmCKtOUYPyS/Y8OMCJegwMYkhWOD1xbu/TAYPCJ8GkzYcV69iR37 AhthCrEIRWCS/qKS5pYRzCAQDkEHGn2YXj92VbHNmzRe//6D8VTrgTd7ohAn VwzjzMbbovWGq5KclkweR5r9Rw4gWYhIqLOD7++rMrRuD8CoI4H7POvO3sQ/ 6jiPCztzg/bhEnAAgktB8b/wfpc8kduxAeNR0ozWguzYVBtPxU1sC5YkNW05 ZaeKvRqTowKbwdGXNZU7rtcwuVpR6xGsxKDMoMekE+IiwOycPo0XNnoLsCKK zy7uzvRg+ry2gocUBm76+d0eEuqdMhOvtOztQ7IQkVjODu0V3LJwA3uwVuRa GJp8lddfs2rw+F7YwQIbrukeTIGNLA6k3I4NUGAjUTyKiQjRCPYPy7L3LAht DTo1+k69V59UbwaKpOJgNCqw0TBgxkdElZ3daCeCgIhPsq7cEX4QXdjWz4Fn Y94SfUavSD6RV1DwR+7aMKa3gncTFj29V6qRsiWZk+ilrGFvH5KFiIQ0MG3v LW5hD2T/IPUpgqdlu6yqVnro0/5N6EyWgDQEc4PmOs1x04/j/SkfQ4KOIXts dz+phRGAeJQke1f1g5QRLdl7LldRkz0P7+Ud2r7klRd8dMDTeHh0iYjlpdRa J3hNyem0rxbPHtW/VzsfrFH7rsMi30/8P6C1v7qyUvASM974sr+NXyNH6A8B EdA5FzyH1KFjQyK8lebh7fW9vep6WjZCWsupuLpk2Q2gBUbbJzIUCxEFeVvX eB4Kgj1Iupm7yMNbKaM7Wg+rHjFpZZyvWPPwwqZ3gih/SIf5Bc5LvcA3jAIW 2HCc5mDHkAytZ2XnFwWw5UE8sFEpUDvM2TDxKBgrAjfeulxg4eKvWYfSU7d8 ETWC7Y2QNG41ce13hhNn8wvqJP/cT+lpPyR/viIqYlz35raSKb7dBq6gJQ1F Upl/NJZ0mZoGDH93efIBQ1pKUpT5X7wfGbA6vayq/PiKCc8+aj4U+u0u4n49 5hs4/0umIX33hlVzwzrYt/Lr23ab+Z/E3QcNhqMn86yf+eqfUD4RAjrgfitY L/rCslA7Q7AY84C3skqFH+n3D3zQxuHzsrYR8y1geXYZz1cpy1nQEpP0Tsfs Pxovp4diIaK4mRWpl6O9RVJE2gPczVwUYP7XAwt+f8vvxjpXn/HCoeXAtb1R yLjtefcE7AhMgQ3nac5UhcG8UDDHH3GE/5GdaTDs/+7LmIXDOji603n7hkyN /jQpJc2QlpUL+AI3RESwqfcBxKM6DU//W+znklyQ1uPRdkMmx/9wCo6SD44X bP+gj6Wi0jfsjdQrwGW22nh2+ShvD2zC+1FB9ItzX6vvn1/UWpRsnXa1iN0c 5oIjXCgGz0sZbOPjenh2mf5JDl9/w4bq8mMLwxs6XTIJR4Uoi9IpVD0WtuB3 KQpswP1HmgI/+YBhIWKw/FhKli5DQIw9QN/MRYPf/OOrf3WzuivUZfb42fzL V8sqCXXc/HMnd21YNW8wcPdv2vr11XuLKgS9HlNgwy3Nx9TmQb1QwHAAYNiw XYENfrcwc9PKGSNfDmzhiXk379x/xLz4bdk3XQ1fS+LYmN/Gi4MnzItO2PHD 6ev3oQWrcTw/cWobi0U5vjJX3ts6GEghcRaZm4gaoFn24SnXaYGt/k3DYWT3 huk/EtEfVHrs68ldnyS8myatQt5c+M1Pl+EU7dU8zNuxKmJAVz86K9Wo/QsD xrwZtTYp8+ItgWcsbsqY0s7yZJKpGTMNp/pGM76Vbt6XPECxEHGvrmSzOQQE 24MUmzkUairy964Z5TBewUbfquP4jzaedvmodQBQYMOpR3d8xtOWR0KWvVKL YwMW2HyRW5j6yZBWnvpWHcZHf5KcSgTxFr5MpFH0AUFL0+HNklAHhUmRloWg w9p0Trrq+HsEin7hRLQQ2qX26Err3BZliihkBphFKFFuhflKPbCINE3HawiU tBD6iiqFEJlsCLYHtW/mNRUFh1PiF1FlPwxNngoaOGLmh58mH4KgvgsW2HCY wcPiNd3IzIIy0UWpARq+PPqPGNjSC+s5Zx0rMP7gVspYSxEUz256lVN54ou+ OmoFDdt6sU6TYkr0JdFkRmgJ6fsHVQV4TEukpkuXBOiwwOHpmpp16BjlLMQq sqrpXLYwe0CbOQlTYMM5sOzq/hH00lamHkxSmISmBZ8G4zf/fNfuQ+LnNlqm TOp03cdkukfI4u7FmM50s7/zXjwgoqXpqxACCnT1r2YVNvgAtvlIIgDLuAFY uyU/ukdAWCkLoeYeypZhkQJh9oA2cxKwwIbL9gChbLYnXF6cZcgQWOGjHgBD cjZjq6Ioji7356s1pE7+SnzjEfpzh36Z68RzZyqstKmBiYDMxZRBmFutBSeA zekzMuGPYKs8FENFhBpjq/M0exzboIiFUOPFXZjmrGKE2QPazCmYAhvu7BIT 22EP9SaTWZqWCyAAPNgWkRtv1m1K9BbnFhE8sKGeq8aPqbCSRcIIoXZqq9Im BlC7x5BFPPR7NQd7vCZ8x4b5JnUNJ62DPjFcMRSxkD/JJIv2ZmEzCLMHtJnT AAU2XGZQ9/hvwuHpqPlSUlBRee4xZ9qItGOjpFo4LIB5PXqs/4I8J557eUFM W9pU3MCjQ8CAzswSArNLT/OTmdQSd7IiGb9GAseGFjTGvLGFJ93qa5TfQqyH moYVDgXZA9rMrQBDljnqu8oNMXQGht3tSFQUN3CD5kR6cg2XB0vFOS2wI1fa o7Zq/yhGBpljHwAqrDS8YyDgwlwtMb95OzXu5tcNYPxSODbWQYH8BldpAtkt xHqoRRjuSf9qkiDEHtBmboU1ZNmp6tT1Y9OeYJTWWAL4luEsmm9OdN2DZR4p /XwHqQE6WDmFif63b751lJl2dwwEfKy3y6ZNEi5pNPTvHNyUu7GXdI5NSVYk ubTcNeolp4VQhxpkQRJZEWYPaDO3whqyrMP8nk267uhEJ8SQm+mfCenbmnoo 2O14NqqnOzQnAorKHCXijK+r5bVDgJvytr1k/SxcpeO03JbWPzUCNrjpfEw4 aUZuGrSR0rEBvj3/t7eWuqljKJ+FUIcaVy5GtQi0B7SZM4AKNiQBkV8UsJub yrL3zOnRTEdMi6u+tIKKj/kv3Ecu7KqcbYM8OaqvNYHrJeLAl6b5QSTAZ+Eq HXd3CSOEKKxNpu4ac7iTPcs6pAGuji4VzdBhz4Tu+Uvr+2jdyGUhmi+wEWoP aDO3AhTYYE937uJrUfXx7x8RuyklzUBMbFwy8Z9+XsDMaOONLcSMTsuozc2p qUmrRj7p4TskKkfLhzsJUyLO5evmLw+nvzPN65IBgs9cKvFMnEr/+Ht7mYwl Xlt4/PsTN+B3vyK0ReXxNd0s9uEzYkmeO5pD4Y4Pwts+Tii9f3XUWWsBL6rL vx8XQN6nJuwrgvWs6kQeC6EONY2OEBVhD2gzpwAVbFp2SLrOGm6OeTzSrmfY 6/Njd525wYpfVJSe+nZlxKA+5sf4tu8xIdbZjE7NUHlnfQ/agx0cfdlJ9A+s HOachK56QGEi5xccMLjHUke3BH4l0StDaAvcdGHFcG+MS+8UAXB7z/y25L1y /s47bpmEApHBQqwKNtocISrGHtBmTsEoKnOd5m4PM6uR7cHaA1YlaV5Hi1U5 4FwlPm9ZCPU4X2z1H8yicRMJIwQUHt7eOqy1JezZIcEtozZwoToy9PqXpp3S ek+pi0htIVQBrTZj6aLsAW3mFODoE62mI2EBiFQ4NwlAKMAtdLSAQnpnH/yv n2c/5UkF99hlRUQR2nOvH9Fg0BchCcVn3utIxIF9B83NrieHtTCsR3z7Pkn5 9ckJlNRCyB4QD2z891qbyireHtBmboGpFeHSo3N/AMfGWb9DzYOU4XQMzz2K JHFTxpR2ZKiq8dwdjmdiUIVVJGwVxwfX4gL11kpyBMJM1fl94/yJnbPtrK2a 9/wlAjed/XBAQ6JYsf2yLPeZpesiklkI2RmkwSl+UOwBbeYmsFZEq+lImAB6 6U4cG0ZC041y4njutjAyHenQVycXgs8zob3IVn9WWRoxzcTDLRw8BFSqfk15 jajTw0JWpJe5xTKBCY7nJ05to6unXg2JVBbysCRj49rtZzT1rcKzB7SZm25m Reopt02T6Ui4AHO961QrAoZ36LqNMNx2l9wdjl9aO5qs6LOZ+2nMOfheaGu9 37Pvp1++fySuE7lkrO2Bxmtrg5t5u0E+DiEB1K0c+TZ2lKbFdK+vsRoQZCEk MO2h3m/mYIFNeNJFpd+O8liLZ+pS5ytNje5EBrj82sae1lagk4tq46m4iW31 xHLoGRmbfIDu9PfE/IbM2PPHPcKHq636eVF4Q8uSCV7w1YG9yYtf7mBRN9J2 5BIhHZV5/50T1AzzwWYcqtcnOEjtmY19zSdKYFjCL+g7QRYigT3U782cKbDR fGsPJKi5qI71KqnAqVvfs4x5RzZETxsa9IyvHmvUvuuwyPcTM/LKQdPAa4qP bI8a+3JgC099q/ZDpr2fekXzCwEhLeXFGUlrd//mXhcBEeBXsjYkbsstc5d4 r3jqt4VIZA/1djOn51PrsdBZOe7wgSBQnhHXzeLEDk36jXFtzAZgWDfEMicL 3bMQCAQCgVAnxXuWBTfX+fcZ/ulJdFLT4LWFez8M9sIw74ahb8UmHzCkpWxe Oqa3r9mn8fYKj05E9ywEAoFAIBDaovJGzraY2aNefN7PC9O36hjyypiFa5OO XLmHfBoEAoFAIBAIBAKBQCAQCAQCgUAgEAgEAoFAIBAIBAKBQCAQCAQCgUAg EAgEAoFAIBAIBAKBQCAQCAQCgUAgEAgEAoFAIFzm/wNLNOAc "], {{0, 104}, {755, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{558.4817708333328, Automatic}, ImageSizeRaw->{755, 104}, PlotRange->{{0, 755}, {0, 104}}]], "Input",ExpressionUUID->"f957bb20-b565-4475-9e2a-552f8b2c2a4d"]], \ "Subsection", CellChangeTimes->{ 3.746790794639846*^9, {3.7468324068772516`*^9, 3.746832407310075*^9}, { 3.7468430339794984`*^9, 3.7468430342617435`*^9}, {3.751563846817762*^9, 3.7515638468180513`*^9}, {3.7515639571206512`*^9, 3.7515639571209183`*^9}},ExpressionUUID->"a9c274d2-7a52-4983-9ea8-\ 9919a5eed79c"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{"Fb", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "=", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"X", "[", "7", "]"}], "[", 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}, 3.75156302050286*^9, 3.751563084828599*^9, 3.751564444751294*^9, {3.75156460586283*^9, 3.751564612051548*^9}}, CellLabel->"In[94]:=",ExpressionUUID->"84db2e42-af01-436b-b5cb-59bac6d2e837"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "1", "]"}], "[", "2", "]"}], "[", RowBox[{"Fb", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.7467913000660734`*^9, 3.74679130814038*^9}, 3.746807032959241*^9, 3.7468331516324916`*^9, 3.7468431531448936`*^9, 3.751563020988893*^9, {3.7515644465174932`*^9, 3.751564446901001*^9}, 3.751564606868237*^9}, CellLabel->"In[95]:=",ExpressionUUID->"10025f94-b93a-4000-b6a4-ac2a09f750c7"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"X", "[", "7", "]"}], "[", 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[{"X", "[", "7", "]"}], "[", 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[{"X", "[", "7", "]"}], "[", 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[{"X", "[", "7", "]"}], "[", 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[{"X", "[", "7", "]"}], "[", 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[{"X", "[", "7", "]"}], "[", 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[{"X", "[", "7", "]"}], "[", 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[{"X", "[", "7", "]"}], "[", 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.751564455778302*^9, 3.7515646225853567`*^9, 3.751727180334168*^9, 3.751730250847178*^9}, CellLabel->"Out[95]=",ExpressionUUID->"c7fa292f-46a7-4f81-afa0-5941e584cba9"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnQt8Ddfa/2fvRNpGttblT3IcJapU6IWgSOIoUfdq3Y84KtSt6tJSaYMQ Da+7qJZSkRahom5RkijRQ7QVRbRESdCENnFJlMSJ3Hb+e2571sy+zJ6ZNbed 9f183vfzvrqz96yZZ9Z61rN+z/P4j5sxeKIRw7BZT1r+1+DwiNc++CD84yHP WP6fYdNnTZk0fcI7fafPnjBpwgedx3lY/nG85X+GW/4P/P+uRiAQCAQCgUAg EAgEAoFAIBAIhKs8/jsvJ7vgkVnEn5qL71y7dqOoHPo1IRAIBAKBQChE+cV9 I4OC4rMfq30hSmKuvrC5E4aFpzwQ8cePdk3FnjCszYF+VQgEAoFAIBCK8NfP 0571xDCDsW2PhGs1xwmkPMAuG34T8cc5i3tgJuQBIhAIBAKBEE/ZnxcPxH0a n3L+fpXiv51/bl77ehiNqde76YViTkV1SUHaGMz49IydpUL/0Fy9f/DTWIuB qcVyXBYCgUAgEAj3Bz+B9fMkHbCOsRmK+oDFf8b1b4L/sIdnm4AWRtIJ7DMj 46GSF6EepXlLWxmxThPPlAn8w+KsuQ2NWI/ZlytluS4EAoFAIBBuTlX5/iGN 6AicBzZ0eYFiEbjiW1uHtjIQPxu8JKXoUdHRD0NrE9fhP+HzHMFxMV1yemZb zBObcaJE0F+VHopsgGHNPzlWY6KlCAQCgUAgoFLxIC7Yy+oADth2RSGnoqLk vzODMMr9Sy2qov7xxBzKCXxu1q57yh9JKw7hyxlqj1lX4PpgH9+JC22A1RLs NyIQCAQCwU9F8aWkr9et/XTFvPenWBg7IjQkOLhT+25Lk2uOUr+GUHxy0+Dn nzE2fmHcxh+KlHG6rJ6e9xO9VqSyftT6n0DPUCYqS3OO7vriy4SM2+oZ9aM/ lgZ4Yl5Y2L48F/8id9N/GmBGLOS9TPQqIhBQgDEVqKmmRiBgYq7O2v4vzA7o 4AkhFbM5+7PRDSzG5FMrbOdFOwXtLE7gvAGNiC4k/eN/k6viXdnfB8Lb+eCH 0AZDxzHp6oXT7n7zXkPMgPm2WJB+m/fDhalLu9bCBHmMCATCGTCmAjXV1Fog N2W4X7OB70fH7T2SkZWTc+seV9psrijKu5Z1+oekrZ/PH939uYmbClW5ToSL 4M8rx0L2uVMr+zWh/D8vLOJnVIIWIQGL+7dpfFODY/dP0MckUHVqTWvrxuZp VcuqlD1IfMvyiuFOYNTxm47vSVXu3oVB+Im9weffq3JRDggCAQMIU4GKampN QBW2chFjQPCWy/9T+5oRroHXnahDPDcD1jR4zz21rwehZ6gQlit+ndUJrOsX cZI/OCaUyu+jG9ATEtZvbo66DtXNExP/QQQQvH1C3luacvkOawdtrii8kBY7 OshEvIbGF3sn5desBQaBkA8IU4FaamqtIMAD9O03Mek60q/oB7zuRI3d2iCg Upwd3dxTQFiPcgLl0bwV39o2tmuj2vXav/1xap76M1L5xUOT2jJ1Ef3avx42 cfKMme+/O3nCkHb/NNL/burwxo4aVDQbgZAfGFOBCmpqDeGSB2hs1m7Kl0cK 0CmirjCfWf8K/QTbLDul9uUg9E1ZzomkDMcHnbaYq3LTdh3XgIemAObbl7dM 6tnI08EE6m0KmbUuswjtwRAIhKagPED/gVOmDOnTvukz4LxVp8UrAyZ8tPHw 6dvI99Mhf302hHqQSASIQMhPcdbxjZET+wc+byIDfx5PNO/Se1z0Ou7RMAKB QGgCmwaXj/8m0wgKHqEdq56pqkjsT4iPMAPWIvQgyt5xA0oLT++MnTHk9YCG nsbGrYIHjfrk29OofAECgUAgRCGpxTlCuwAiQGNYLHIA9U5Z1pEPQ5oY6/1z 6McrE5JSv419v6s3/nRrTg8OBEKjmM053yzoWR/rGX9V7UvRChWHIp8w/TOs JirrbNC0eSAPUAw6MO/MzZ3p0/ygDb+qfTUISRAVq4ym0AkpVlmdufrYuOZk lk+vuN9QvB6BUAeqELrB2Lb7t3maXQ8U597F6I71MY9abaZuqNFbVK2bB/IA RaF587735WhahY5Fna1Q+3IQErhx9O2GHqY+MzIesv45Z3EPMk8L6xt5TYNT CwLh9jDre48ElOjNIf/cvPb1avQ5hQ7MA3mAYtGyeZurD4/yo0SALwxM/Vvt 60GIBq85/Cxmr47c+YgOtM5zYGqxKhenFObKglPfzh9BCiBb9Js4d8evd9S+ JpcoKxOTAlJe9hgFdXUAvb5jjVuuzdLm+q42+O7VE+YqKX0qUExNrQ/zcHcP 8OH1uOHtanvXCYnazdvAvTgrLX7d2q9O5LiaNwvdvGFhIwI0389Ni1s2eTBu 9ph3gzY9B82M3Q65p6rl3Tx7dPvyueMGs5PK6z4b2L3v6DnRcSipXDgP937Q ALPXR4zJ9DFinSaeEZVrai6+cy0HFtl59+WZ5SqKTy8d3cwD6zghJuFg6q6I gXjrYR9sypF8WX5OLCU3L53cvXXVvFmj+nUPbMYqqkC+cVMWrtpx8nKJ81mI rKNYCyXvax6z+eqaod6EKY47iNr8OaT8zJev4V3bsOdm7bon0dGSPBUop6bW jXnY8wAf/5138Ze0lJSU1O8zLt8o0vNU9MfqgVScxD/04H2nH72ZNuYp4rP1 /Db+4er3wzRviIAiwM8v5Cat7NfYst9pOSrSYvYpyYnxc15vabS4Dv6BUaku u7tOqCzN3vdp+KtNjMCiZ9lede38kq8XBoIXlvx8f85DHUQ4zOVl5ZIvU+qX lP65OvBJ+7Xu72fOrks5+R7hXzy088f8lO+bhUGHcPjDZkau3ZWaVQjBJ8yN n9D0KaASdUHaGOKNVrcjsJWSG+cOrJkX1q2lych3Zwj8ury5JDnLkR9INF4x YI1axt9SdhgIgdzdM6sZ8UA7LD4moxlWluYcTYydO21Iz07NfayvWOPgt2cn nL0lfurGI2m7F43p50/4P75Bw9b9Ar93j5X8r96pj+GK5dD1v0hZbiROBUqq qRUyDwiAHiARXx3e3b82a8oyNm499MPlKTkPdLBsc2AavvDHSRjhnAlb8buA scIyb4gwY/Hy6DmodyMvrON0dkHaR3cSR7TCXVfJfbvK/vhpaR/cn8Q8nmze Jyxq0870X6+CpYTKCm9lfp+4fOrg1k/RFhXQI/ZHIbWF1QCGd+SB9Ym8Ln5f QL2bk48W2flvP61pRf9MvwSXdyzwx+gU73rtw2ZuOubQ4eG/BVmJfY1YhxXp zLt7L30C9eWqClzJ06ihr/rW4gy5wYv9hs9YuCx+b3LKDz9l5eTkXPk1/Ujq t1/GRk0c2b4BUTPawzMgLOp4Ptc9pjvUG7Hg9y6gAoIahjRLC6Z+EZmP5PmN 0sLTXy0e3IodTAbxqTV6z1URi7L5/rXt48k2hVYMWNM28TdkC2FUlBweG0As N89EnRapSZI6FSioplbCPKBBrTKdo/d8NS7IZPQMGDFz46Eff79NhGkeP8g6 suPDbkRsp562U1/tcjNlBGXhnsZJ8c76GYPV8wKGHxf01GCYN0wYESA1UYza 8rOtzsF8fnMXYryG9sPTxF41vWZh/m/N4t2TlmX/sKhXSyN9Va72F1MJDXiA lj3Z/wpy/7TrPjHlvn2wmN9E/gZzCkx4KUlbP5s/vLPJdhxPNx69ZuexXy45 OwM+/2Nq8ncJny2JCKf9HAC/0PFxZ4SHLKrKk0f7Y0ETM8Bd9Nn1L9N3d8ZJ Nfwk0vd742UfAzBCwtfdeOhUntMyquaH+elx83vW98RsxeG0rhi/XfMO6Wui 1QHFNw9Ejm1nufMetQL+E31GXNCc+qo/1gQRT6rukzHnna0qoik6/c2kl+ph PIhy2/AcRvvf3CH2jIxBnry0t/HIksHQblDKXeG/I3EqUFJNLb95QIXpCmd8 ofPyE/YiM8W3tg4l4kUeWPCSVB05gUDbaL44CXCmJqZ6nkTzhgsjAsQfWUjs KfvvRmneUjqK1D/hhojfodw/Bx6mfUqLjn4YSsWYte0EsjRy2b9npKWk7P9m Q/ScAS3t7cq9TcHjI1fFJyanJKdfyGYco1v3ZPFRpGxYnFPxKHFQI/bY+HZP thA7RxsfySt03tbLxULejkvbu2NYaPwV8N8YXYcaR6VltzI3c7q/eXv2mv1p qqAjkvyzy3pbtkKAE2idYwlGJaH6nVAp+3v/qFagMbZdli5ymjZXn1vYi5zB 2sYcgz99mc3ZX78f6G1njrFL80+OCRqI442tp+f0HbKG1KnDMnGKKWlTgaxq ahZymwd8SA/Q4gB3ic92LNqhPBzco+gf/5sexoVDu/cuxEkA4Vxg7C8ifkuS ecMFGEvDCZtvO76YwyOfoR7q0OUFQifE+1ei23iJ8eIe3902oAl1fRqJmgri r5+nPcuOcSn/UkjcsDiFiS5KeyPwWNnJBE4ow9TjP0nXXRUH4jO8X2BCAfBP j++u70zrOt6MybOVR8oHVdYVePQeHm3HLkq9JkoeU/xnXH/8LcDPiR6W/Hdm EP2lSAQIn6pTa1pD8nZo4bdl5zUw1bmwXBRW/Rg5sfRacyzn2rXM73d/MrQd az9FIdxvMVcUXclYP7iVzZfJ7gESqmbi5fXBZvxgR9niBElTgcxqahC5zUMW bp9+L+CZmUd5smmuLu5FTVCNm27M0UMcEBQBthtzymkUAxDOic3Ck2DecAHH MuOEMxUq7QEKD4Cbq89Ghlj+kqXKcJ3rKSOpDBGDocuYdOkvnrLQ943macPa HEUvABQBQi/3bRslkFQooPjm/qk9fJgvMxjb9t6Y6UIBB/z9fYqzNzGfWf8K /UWcgICs2Eqn8Cyqw+L1jTj0ViKw5+tA1BWJAOFja9IiTzwf34kLJY6VZCrD zkyMGLfYbMWjo5PbY7bU9VmbLfxCijJncyL9CniA1dUlKdGtSCPnnOc6R9JU ILuamkFu81AXILLkO3OXDsqPMSJAvjgJWD2vafCeeyJ/UKR5w+bo2H+4NJbK /20LpQ8bhKQ/4+TsfxMjGt8Hdu3170mbzgjOJaE3FDjBn57RS1SZJGtBMDBz upBmDhsmTCdDNgRkD7CaruHApMq6Wh+14MfdKVcegP9yemZb6jsaNtl4Q6Ep tiz7vx92YEcye01Ns8njEAF5OMUBiQChw44Bitfq0M9LrghP7uoB5CUam700 Y7uNtKYgfcJTNuZi8W3SxJgidxvrgY068BeUUTjDGifBsJANF1x/BpKmApnV 1FbkNg+VYeKlBqwxOx6rSUARIE+cBKieh73xyU3RhiDWvGFSkhPdjB6L87Nd 5pOCo1iXFoQAc4fFBQraI9QHvLF/kPXP9fa+0Olj9PUrXJAZFAHKUO4bvgdY bS2Oytw0MT2S7mW8R32F0Thieb4iflLRT1tHNgZPfqG2AQJmDCtIBAifipKT S8JaP0kk7Lz9cWqeKO9d/um96ET8nLnRcY7yiaylS2C8nmwP0GjoMe28Ilmr jJvU+vWDd8TeRShTAVw1tRZWf1l5XLD6ZcZiBu+Wf78gDUYEyBsnubq7Nz0u ocJaDnDMWwrAWNosO+Xsk6APJkh6BLqOJCKOQcEIpLInetJR2QOUUwRYLZMH WE2m4zUBv1ZoqQQwYqbM/ENU5wOuWIZUuAffTH0StCUkAtQqzNwuYsMLiUe7 pmJcjM98uFewHpY1/SrbtKI4O7o5taUSnY8DZyqAOpFqwTzkBtw1aP2oghEB 8h/SPdj2jnWGn3xM2loOw7ylwIyFT9AIxEgF7oCsVZisf94i9KDw9wc4S1Vc 1S8NdT1AWUWA1fJ5gBZunpj4D1YSTcCCZFflElXl+4c0ohcsJc4gFHD/cP4k q9rSLwISAWqTsr/julMuk3oiKHN11vZ/cV5OUd5L2cnV7azTl2+LBemKuixM ToG40x9IUwHMiVQT5iE7gAcoKntUSQARIO+lnpz8HGVOMDbgUs1bGsxY+F6N 7MWhIucQsNoM5rTgjFMAT0Pp0MfDw0tCg4IBggaM/WDFPle7Q4r2AM33c5Nj 54X17Qb+dnC3DjE/C5CNyioCrJbVAwRS5ilcL5mVa32jjXUmfy138lD5r4lv +bBuglydH9nBcK3vrGsqjJJQ3TrkRRnvcZN4BRcdtRZxxYgScCt+UjxiRZR2 IRFTiAzSVABxItWKeQjEXPDr2tE9/E1PNu83Ou5XfjkRywOUWOpWZkARIM9h 6OP81e3I1wHSBlyieUuh7N76DvRYnFc4Z687QndAhUdW93sWNwa8y9sWcXXC mUKUJErKn6ouHXr/TW7vG9dXeXEeoPlK8tjnuLUE8ebmY6d9e83lSUNmEWC1 zB6gjfLNaL9Kgw1MhrsHFp4ss6lwY5UGQ6cRaYVy7XgZvYr0MwiEHDACPEhV 40TD1mJR84CQE5zCY5/1o21bUGkmmDCrjxHrOTtLYB4gnKkA4kSqHfMQyLmI jsw87MKDYHmAUjIm5AecVHmqhTNyOEgbcGnmLQlmh8gnDmFipBj2NLYiS/ln yfUAJSowRVB264JtXazmEft412AxHqC1UIAVD0PH9zdmCaqQXM3SrsgUh5fX A6yuvrt1PCv5wQsbd5ivsTtY++vFYceBu22+nZWU4mrw1iWKb23oyX5SMtf2 p5Ub+siwq4kASbjKT1MszNX7B9dhv50un0FUFJ9fNyWAfI08arWZ8qngyQce TPzNhMVcEBI0gzUVQBQBasc8BMEo5VyzIsZnxkSqTxUDFAHyTaoVhyKtSmxW GKokPz3lWJ6ocx/x5i0RQKHnfNUG9OeG2mPWFajizAO+t2q6AmsHHysu+MMi PMDSQ5Gcuh+mEUtEnCqC2hWe4LZY5PYA2co3zKWNEhBX95uzDwxb4KVim8Kr xgOU9Lcisuily9A3HGZnUgREmNlSdLVYeNA6H3DK4k/Ew8/7qJrSBqxRiym2 pWYUBnijhXlNkKYCiCJATZmHIICYngtnMUATMUzjJQuYABf/wS4TLWTXxCPP kUWe6Ys2b4kAHqCzIlGVjxIH0v6ICYs6o0rvQk4M0Ij1mH1ZjU2FbU023kcm 2APkdGqWcNuZzYVss43sHiAj5Kbxxub85OxuMNWHOFsqPCDALRUrBUAhT5ul /LU9rZIVPQUQag5g3oE8ugtBsCcfAue17MxVuQdW9mtsPfkdu+d3UV1s4MIU lBB2cgprKoAmAtSYeQiCyAV4onnHHsM+XJZ2k08PwLhVInM/FQMQAfKdVoN9 Q9h2iHuGrcQ+ULHmLRVAJeLEAzSf39yFnjzU62HH8QAVr6lihSktRT8yvl2D YA+QkzsjWh4AalcklC53juweIKjkoW+IM0U3+JKy7xtpydAq2ZKNDkG87LcS gAt1w5EIUJswIWtZii8JxebdcTbbl+VlrB9N97LxqTdg6V5xp1pywJR0dl2G BGsqgCgC1Jh5CIK8aS5WLwTrVmm8iQMT1uN7KHQXD4zbFhBPD6klJc9IjHlL B4g1hac8sP+ZqvLk0f6k8YuujQ+Hs+sBUbN6HiA7KcYV5YBgDxAo0kgiMtoj vwiwWhEPkP3oMZ5NJRDZZh18V5UffScAYsZ99so3vFlX5WqWikSIG45EgBpF QGcBRbB9PTG7Hc0qijPj51vbWNcJHhV/wYVWjAoC1jZ0tR4srKkA3kSqNfMQ Bnnfnn1p4xW+AGDxjaXtqd2x0DquSsPSNzo9W2Rn/AXG/sL8J+IYV0rKoRjz hoHVUXckEitMinyBXHN9m8WckS1mbS4vK+d5r9hTmXoeIOiuUyaOrfjd2cUL 9QCrflj2LHvGFlfFVAERYLUyHmABRwrotIc1EEEFYx3kie2QRMndPEnAlqz0 JSkQAKymzAmJAGWgqqxMsgqbiSdoROXF3T3ZeUOLM7+b36sl1YZRY6E/GrC2 ocvRM0hTAcSJVHPmIRS8O3ktY3BYspNGOUxHJ1G9nBQGzHLF/ZzW8Tftreb5 5+a1r298Prgr3aYAfInwLGlJsQVR5g2Footz/T0dnTPSVc7gVwEtu3312PbP oiaO6PXK8yamAyzm1/710RExu8/esn03GCUG+aTU8wBtpTXOW20K9QBtfSpx rTwVEAFWK+MB2ilq4TguCjTDska2iZpmmP+kODiFxM3VP3/QgX05CgUAq2lz QiJAWJTdytweNSnUn1K5m1p0CFu0+cxtUWVPhCQVKgK3hAKBp+f0HaSra76f lzR3SDMP6j/49ns34Vdthf4YGHfOiLUbc8oVWTSkqQDaRCqneZRcz9i9PDKs 1yu+1p1p3cbBI99dsffkbVGX7CgqU37x0KS29Yz+nebstPPNlrdpczglJPAd OEtKP3RlRgRGZUlsi7wVZeyZ3qG+AW9PX3F1CVnAmUksKs/c3sdTcms/EeYN iZJjS3E1uwfWP/435r6aK/NT1pGVoIwBPdb+Asn9M1cWnNq9aPRrvnQw1dj4 +R7Dw6d8MHdF7KqoGe9Sj9vDM2AUtx0nO/KmpgfINFKhgesBsn1dsdpjpuw8 twwCXJTwAO0UtXAq2aXD9abQqQmHvtseM6VDbcx/+NxTsGr0cdOTcRQr5ln2 58VjqUey7iMHEAJUvTuPJ5qHDotYvHI+NTUZjPhsL3zxYoLVmmnXwm3JhFES JjzjY/WQls9Qk1KjVuM3HSnQclAKlN/wHbswSJ8KIKqp5TEP8+3L26f3b+TB fcxWTB3e2pQpzLE3X9jew/E5tfUXTa27j56zcMPOAykpqUnbNsVMHdyaKHRj CugeYc8/1OCIABEg9lybtiai3Jtfz/CYuMRky6C2fo7PCV4ebcNj0guICaH4 1tahrQx4WCxg5pakpPjlg//pAeGkW5x5Q8EyFexdGGTxu7xrh7wbk3AwJTlx S9TwzrjRe3uFRm66UATnYiyO9Pw3XvYhC+rhv7Vod8b1EptFHG+E8X/jA7zY kzBXfadmLU2hMTqhHiA3xui4eoO54MIXE/r7+3gGhEVx5rTy9NWv0F8ga+dx JTxAO0UteG6jZQ5JiJrYP/B5k3eDNqFDP9p2FOLqhteR4F6MppPdEHYhG/lZ drixP96krAOUPXcZky5Q2A0cF7KF4irCaNiAyfPloe8Pb0dNxR4ebcdG86d2 agAwCOB6dRGpUwE8EaAc5lF4YtNgdutMewg8xSPfAr4CFESMbu64wX3aNyX2 EXWfDezed3TE4oT/XiiSoKZQdERgVLZRy/iblQVnkr+YN21Iz07NfTB8Y9ix x7BZNoeSpYWnv14W3qeL5TP4kUHM1sswSmWKM29Y4Ech0dOGdHvJ1wszNm4V /MbwOWvij1+HVAegpCB5HnPW4IrMuOinrSMb18KskzB3HlOzxrhWPMDK0v3D mlg/1TP+KvOfmILSRuO/Jp6WcylSxgO0U9TChbJmsvDoj6UBnAlKicZzCLiY sxL7Gu3E+sDkWaGSbPB0QCvH9PYUFFZM7XovSc6y3YZrE/BwRD5hMweIIkDI 5mE2Z3/9fiA7G80xBqxxy7VZLvn5RM6vGoV/lR8RGJVVW1mtinkrQNkfP0aH NKG0fh5Y0Mc7rrkmMyaTUNrGHCu30+KckbIoj63PYye3DkAuD5CdH8Fki5ir Ly0Z6E3+VlMX8rakoZoHqJKU2jZPR4nGcwi4lP61Iag+VveZqNPc7Lbc1QOs z1WoJBs8UWLtyFSEe3pC41N/wCI4sQvFAKYaT+OkeGWkUhDV1HDNIz9hKnci IqnbrG0zbjtR6pkPms/vMZHhsqd4aq7KgfIjAidz1bdsqpi33IBdxS0LZfCS VAFNgckH5x+057Yd6Z0cboaLCPV5hHqAWQuCWZ93pBkG2r6b+szIIINQpUVH IwcQCgqDsW3vjQLFEiJQzQMUmyAjEabGrPUByVZrUTUKL8dFvDtFIyxYlwk7 wPrXpv88gWEBC5Jt88mBsxjB7eyBpgnqGKddwKui8MEiftRAnWdhgFktgh+N SKCqqSGaR9mpz7sCDUpNL/ecuTr++K/Xi6wuauX/CrLOpmxeNvbVJkyqpQd/ BjQRLlMur82KKiMialwTOCkuoRBqmLfMsNw/y3wbeUCA+0dgPrP+FTzClp/+ LlsGxtu+WUbspNfB9QDZM7bjz1tbktVrOG7dvpTk7xJWLxrbmXg76jYYMA+a gNM5yniAdsuaqbDI4pU/OUfA+qvsyovdu60ikB90cXZ081pYs447btm8IKzn K3AeBs9bnffdUBDz/Vtb3vTn3lC1FBQSYRqDwswEVEhNDdE87p6f7U9ZqfGF kPm7nOZcVBRnbvmoC9WJ2IiFvJfp5GUioy61FCpsxaDKiJjwuDaE3PKYt1pw 3D+XorW24N1SjF5DI2axKvCpXWmB1aEY4217LcwDZDXUxnhqVFaWZh/cOHMI pcX1e7FzrxHvLNi8+/wd5VyjmuUBsopHUeivsisf5ovf9DXxirEVwvhc2zio +2GysWPz+YftLDJAg07BZzGgVlkLLpZlcthrzfZlo+YOWgJMXjO8JUAxNTUs 86iqODGtPfk1/qMXZbi2zWeWY6dlS9UJAKo1otvpE2h1miZ28XKYt1rcv7q0 Uz3MOpymbeJviJzD8YBYPT+/p1hrglpNgSls0lKcJ3YJ8wDZDbU1lFToAGU8 QLBkuhXlPUDb4lF6rexaYyG7nDtovcTJ8hZWiR2cwNUWBhRnHowaSBdesIfD JlBahmmfCs/HVkxNDck8rL3IbcvWOaf8zJev4fZg9B63yb63o1IAUK0RgSJA JdtwOEQO81aFikdHJ7cHZxsp8XO7AjCVRZu2pWmcFncS5gHa9L9gdZ/RHjVK B8gt1egGm7WaBh7Ad9Bo+/Hd9Z29mCdLKJAFfrNr77icmO9f2x0x2Fp4wRT4 xvKIUSaMi4o6avGAB6niqqTaopiaGop5lD3Y1hffg5pGLBHkLJH8sW6Yt5Mp K2f/m8oHANUbESMCVLIVrxPkMG81ALonE9YurROr3SRQtUWbnHQAHjdAkAcI Fh8gB6vxEJNqHqAa7wiYzUegmcK/CNf4375ZTznYQpKqY+uTFVjhB5QHq+QB co596zUZtnxXTnGVvbYgam+ixcGubANnA6iQmhqOeVSdWtPa8ud2JayuUPrn 6kB8j2M3uI23NjNiow6I6UAqGhVHROvt+ZSEiiGHeSsP1WaOoe2ydCmvkM3S rwnRJrckiFOnVJAHaNP8Tv3BOkclD5Ao4HkL+u/wYJNWqfUzegSHwn0fB7zQ YsNlO3sHfL1w7Y22h8oeYFn2DzHWevt4T6W5B3PobF+ubhmDWE2r+Pf07cvn hvX9V5uGxLTv3aBNt76j5yyMP5oppSywfWRaIpVQU8MwD7rJnZQztQffTH3S ruytIH3CU0YsaGKGksEVVUeUv2dBUAODX5eBq36C2fFWPG7hAZJlFhgkx1dt oy6aqL4L9BwncbKnFuAB2pwva2KwTlHGA7RxvZRunujgMjC/eYcknh+Ufr80 AHOG34tdgilCAsG6WN5YxE8o/giJoszZjQDr6jDmlLA2T+ASr6xQubTwxLLx AfTxtZ0iz/Yaw0mvqF+Wl7F+XM9GXk827xMWFbv520MpON/ti4uZM4CIQ5ra 9Vmw/zzMctPsLDldLZEwzANfdCTHBHC/yIC9MDCVXQjz6mK83a2s3aPs4H4j koKOzZuG2y5Bcu82bmKshqrvkgbmykgFeICc3brTLCeNoIQHaKeqrTrZW7Ye oPTB2mgLXcYHizqraYWAjig9FAnm+Ag/uVCjnJe5suBkwqSX6Jw7n3oD/m9X jm2RZ25yGSbdRyUyMY2mHuEJnIZZJJWPsxIW9KzvKbgGLB/arLjoAjDMg5As No/YJym6TIbdnmJLaPDtjxrnTe43Imno1rwpyo5Ec2p6S1WbcENtWnqmuMoU wPGxkeseINertKtX1xhKeIBgkhSNKjVY5PAAqx//nZdDc/GXNDyQsjd+5Sej Xq7HHTOG+b85c+2OAykpyekXsnNu3UMRQDhUle8fwkQARZ1cKO0B4hkfM/o3 ojM+/N/64NvfHRR5Lru3vgOnto+0c+obR99u6GHq/0HGfWeze/mviW/hzVWx kNhTsAxVt0ukhur9ku0VwD5Wd7eO96Lab+kStxmRbs2bgD7TZ5CespG5uTN7 5vKbs08r98VcfTE6FLg0h40UXfUAb59+D6igaLl7YfvyZB4DBJTwAG2r8KmU vWXrAcpXVcOm8owRazfsOLeJGQIGuaCBGbE3Y/IEx8fYx3yyShTMVbkHmIwP o3+nCL7DVhu7lZDDTiZv1qu79ir/C5j/1Tv1Lb/m2of5qXgQF2xN1tbXEqmg efBeCd5iFahhSyZTwHpGKuAuI9KxeRPYxuskF8UCu7TjmLCYC1pKkb5/JboN 88gwH2zKkXzbT7nkAZqrz0ay8otVaMwtCgU8QDu+kErRURtVqoxVNWw7Ieoy f1MP/Pn5UPA+90+4Ifw7FMoEMd++vCU8iFLGeGAdp6xML+BfKYBWdzRiC44R GdMuHyLT6ko4pqtjqbwGUsWt4PVsGSEokY3ruKSeLnCPEenYvKtpPxzEAxu6 vEDKa2/bHUPM3lxe2N0MDYZ2g1LucsfsigdYcmxpO+Azxhd7J+XrY7VXwAO0 9bvU0vdytyRyeoAnJ7M7IWq+LpBe4ZQBFKkzASdAeZZ4c2V+yrp+/6CbZ/kH RqXmuGgQdoopiW0Lkrt6gIBzTHP1/sF1IKwFJDpeIuU3D9fBVQFeVBxSrTZw cHGPEenYvHFsPYE2y05J+sZc9tmfVtMi7h6MDgTyn01DF15ii7F5PUB2Bz0D 5ttiQbo28tNdQHYPkJteJKF4lGS41Rph5ALbh9uAWP02E+4Kuwwg5jtzl8jF GWz6AH2JLy06Fj3EWufZf/QiV0J/Vuy21BEnYCAOlI3Yi8OOuzZA4vOQlG/g Eqm7pgmymodADo+si/mHHrxPLrKaKYgnAXcYka7N2942U6JEin00o3itciEU pi7tWou5VlOvqWn5jP059wALT2wa/A9mrTf6vxJzSpT7V1F8KenrdWs/XTHv /SkWxo4IDQkO7tS+29JkWV8FuT1A2/SigAXJqhUEBzoIEMiWksyt4QYpiuIi hZfjIt6dohEWrMuUsyKStDKAAOASD7dYZf7ZZb1bUi1MfWqN2vLzfYHeVMWh yCcxLuLeU0pS6IGFrv+FPwJJxVd5Oqe7itY6LwtCPvMQDn6qUge/gWQbRD2V THGAO4xI1+Zt6wHW89v4B/9fOYSu9W2dmbUZALRSfG7vpBeZ5E3jC0ExdFUu Rx6g+X5e0oKw1sDU7DtgekqeOH/N9hSeQm7xmLweIBnSB++eegFA8npYSaOY nTpUUCBbV4BIjagLwfaZqouMByKcMoBSqlfJs4UvPrfr3/QBgTGgx9pfRGwP zRDbgmQtCKb+3sczbOs55xko5vObu2DwSniBThQZ8NERWorw4EuSCVt7kVhk fVvH39Sfu8TBHUaka/O29XMChh8XVlKVBTvyo5O0iNLCE7Ezg/8fE9Dz6z4q avPBb2d0Yd2ZZq9vSjsaHzWpayPmk6aA7hE7T96WovMyVxQRVUWyz51a2a8J 9b3yi8dk9QDLT38O3jtXIw9y8nDvB6y0FG9szk/w8/rUFQGaL37T18SpH6Ia xufaxslWO4NTBrBD7BnblaPq9Jddm2Ix5/juP1i1UqzKjgNwuGAwtu2RcE2s J2ybTS+2nQ2rHRKn+QiHsgeJbzXB/eo+sy9BceGv7u5NG4XUSrPKI4N5iAZf rA3Y9P9bFqDHjAl7uMOIdG3eXA9QmvDj8Z24UOvEbMAat1yb5doM8vB63PB2 tb3rhETt5vUYi7PS4tet/eqEq2pqFzHfz03Z8El495YmowvLm3fdwBHvrtgr zffjXgGpvsaUEY/J6AGyzADHZ9B8Fw1BRmz6HopXjjlChrR6hB04EV0H5SPw RFpPlzzwo2P/Yf2yUUlSVyGWtqReoxUXJZi+nbYgYltal/61IYhdqZJqQMx2 AytKTswJrY0feXSJz4bz0gIqXAg9TZQHrnlIgaxC/1zz5rrMmLCHG4xI7+bN Ll4hSbbECrMIKShKagBcCqLeTBtDHrNJPK12TMnNSyd3b101b3bYq00wkKeb DZgwDe+jlPZj3iMZgtWM/6CEeEwuD9BcfWnJQKARiMULemnjFdX9Pxx260PL hbWJvwHzdbWRPqrTAMX9caUMIP42uZr4QOTJwnkLyjO392H2GZLbT7PTDCm7 FatGY18bBasbXUnB4fdx909S3NL2d5mpBpKwUFkgmodE6DspIKNH47jBiPRu 3uzqzRJigHfPzwZiLALCPkxBRf4gKlPWw4St+F1eJ0lAVzgYgLmNCojHZPIA 7+6Z1Yy1wNSaeVwz+dEckSqG+U3dVgjLB+RKH3FUaYDi9nBq+4TGX7H9DHno 6WIheiDhwtNz+g7xpUuLbyxtzzIwqS+ybXtNAkeRqLLbV5O3xM6PjEy9Zd+s OblvFPih8LyEhA3hL9e3OK1tw2MEJSzzAnpQPeOvQvxmZYBmHpKx3km3KTHq BiPSu3mzq3aIPWKoqjgxrT39JRZn6dUduS6vrIzWxdM4Kd6ZNouZD6XqFV1B YQ+Q6TOriHgMvgdorsrduzAIXAB9aoXtvKipWnjlZ758DUwK9sHGHYTTwKUw KfIFzg31Zre8RECB4xQ1bLLxhs3SQbccdVXqySh5JMlgHnwzlZ26C8FhsFMU GjMaRyzP51xk8c0DH4+i0tOcGl5x5qEPQ5rYk7oYMN/WHx3Kcp4kIgLmFFWn tTEhmYd0qCXJjSYWNxiR7s2b1dZWZNchVuSnrl/ESQFhH7BzBNgi0A5M2rUS 52uKeoCgc6tID2XIHmBF8emlo5uB60q9RuN2acv9I8mNn9AUKAYOpYqjvdCK XOnGNR3WwaiDI2C897eQOlSMAEPSaw4KxqjL6zDmlLSNqm2LGXKtGboVeLny z81rz2j8fN5awjPw0sLT62cGetv54jrBo+Iv3JF0xRyY7sYSWtqpCyTzkA6x JOky3cARuh+RG5h3NSCuIxDaXIm1/AkP+zCdI3ywmN+c7q+AA+vA2F8EXaQI FPUAARGgMuIxJuQo+ZYWZeyZzY4qGF/ovOInzRz+crBVKvoGzEy6JNJZNZtz dnzchYi9+E/8egvTYhuJAOWBLY2zc3hEnkd4CBGWg3FFCfIS2/bTuFWEr0y/ fk/8+nZpe3fbL8VnS5+hSxJOZeXk/H5hTQ8m/45fwmeuLDi5fQaR8ub3wou+ Xjbf7O0VOm/r5WJIh3IFaWPoWQHrG3lNbzp5HEjmIR3SwPR7YGqL7kfkBuZN 8Me6Yd7WgQRNzHC5umrhkVU969KHyCJO/UARIF/fbUb/o0i4lTufy1oMCnBu lRCPVTxKHNSINTreI3hbHj/IOrJj/hsv+4DnqhB1RJal6kzyF/OmDenZqbkP VqfFKwMmfLTpv0AOeEVZmbg3zmzO3jS+KeuysY7TP824Leyyi7OOrxzaDh++ Bxb08Y5rpSwxJ09AGyEOsDqHvZtckhLdSngdKnBDNHj3X+Iuza4HSCI+h5TV /M45/O6ftT2x0b9TxP7zJZW4NzjtVTuHwqYOb23KhBAMBNvx6Hehh2IeUiHX Sj0fmHLR/4jgmLd8K53rPL6TOLSVdUnsEJ1cxPuLlY8vxb1PHyWIDaQwIkC+ mIm5+vAoP+q3FCiyYVM8xLLKD0mUa01nnFsZXgdz8Z1rOQRXfk0/kpq09fOI QWy3jeTpxqPXfJNy6lx2jkOyz/+YmvxdwmdLIsJHtm/ATSxk5RVKoyz7hxjS t6znP/CDxQkHU5IT4yMs/+L9RK8VqUXlJSeXhLV+0rLkdf82T9TvmSvzj24E u7qQWZZhMRuPX7nDE7HBXd+ERaNf8yX+mlpMyauw5oPwBrQRYqFLB9hZjolG jbWE6ZAJwJlcdMfASwtCbF4q4r3o9W56oXjf5+HBj5va/V7W7GTZeS3OKHL2 K5abM7bFM5hN8yO8IOqadzvU5nyjkHJejmFmNg9s8jF9ZntCMg+p3E6fYFRC AK8c+h+RdPOWfaVzHVBM4oEFfeTsIKD40pHFQPCnTvDIHVkO6os6BRQB8sS+ wGIp8KruMN4R7t/8npGWkrL/mw3Rcwa0tLed9zYFj49cFZ+YnJKcfgFwlG5J OOWpZju3MojHZG8V4fFk835jY787Dac6InCuaurxn6TrwBpUUXxu8RBvDyzs o4hA+selVOgy37+226qfB/Br//roOQs37DyQ8v1/M69ShpG8++t1yxZNeau7 v3WtrNdk6KLNZziRwxtH327oxRvQRogHKDvAZPtaXPqUdf0sLr04YSczvYjN hrNcQlZiX040zcOz7aSVmU4dM36oGn3O3r61P/DUR7U2MTf1mZFhr0JNWd6Z NWRAm8Fo6DHtvJTVGZzZFJE3ywUM85AIUQVd5VQUuOh+RBLNW8GVztUruv37 F/9mJgFjs3ZT/m/TtyfPZV+7UVSGt67IPv/T7o3LZ/YFIkj1mgxbsTevVOQv MiJA3tgXk5AF8zQBhnck2YZtRIDm+7lpccsmD349oKEn5t2gTc9BM2O3Cz2j hDpGGyxX1a1v2MzItTu/O3PzIbTDHeB81n7kpOzBtr5AuWkYobayW+cTF8/o 1czhEZ4tfp0Hvv9Z4vk79p9IWc7J7Snn5agZiSCx+jPkpmzFJ5Fh3XBhmxQB KpN1aze/2DUKT3w59pV/4m5g3cbBb8/56sdrcNQqlY+zdi4P7/WKVbZXp8XL vYa/HbEmPo03ZG2h+I81eDloA/Z8yJ6/HA/NXJV7YPUQ9ubXbrEdV2Fy94x1 Jn8tZ5to2YFiHpIvQOVyNHDR/YikmLcaK51LVJZm7+VOAnYxNm41yjYAIghG BMhfC5rJiYN6mqAJDxAUAX5+ITdpZb/GnsbGLUdFrkxIwmPCc17H+8sb/QOj UiF3QtEadKKus3LNQEcwqCHTytK8jO8TVkfP+Pegbq88z2kN4/dil24Dh89Y uCx+7xGYHi9CLGW3Mrd/PDboWWqmMrXuNm6JpOkI7JummtZLHqha6K7pWMz3 r20fH0RnPhixnrOzxE46zC2F1WJYPVQ2DzpKoGSfcXnR/4ikmLeaK50rVJbm HE2MnUtJExnqPhvYe9CUhasSjsDoiwGIAHm7YNAdV8WXxNcsQIaLR89BvRt5 YR2nr2OdHD26kziCUGkKrLSjL8pOfd7VQJnDgG1XHJoDk36lRPMURE1B8Xx8 haA22kIOqsr+3j+KlIVLmm/pIx4DFjAw1XmzJ+2jqnlYU8zUbUsHETcYkWjz RisdCSgC5NkIPM5f3c6T2pOqJMOQC0ZLQOBTa9SWn+/b7AnM5zd3IYzN0H54 mltWmbt/JboNnRXuPBsdCJnqd/+I0CB0KoeeS3vZQq0jAv2W6ykjyddR9PET 0Ca7+fzDbnB4oaJ5UNlPbpRfpvsRiTZvtNLRMCJAD2zGSade3Y39g+hboVoq lkwAhuSsmXJp3lI6G01owUZdADbtDdlwwcl2h9ED6LYGO0KjXEnsg7nZW2au vrC5Ez4ggYIr685U7BrNtMl+GluR5RZztlrmQVVA4tdK6Qb9j0i0eaOVjgIU AfJtqYDOjOygcUl+esox0XkomgDw8xtO2HzbsSnR1cbcMSAM1t7hE1ozegAF igIhahRMc2chLUU0DpVDJ7jgJ1ESX+wpMHMnBddm1C5qmcefVBQXYhEMldH7 iESbN1rprDAiQP6DXSZaWM9vI6BlJs+R9VtPsppd5nrGCWeVuGkPUOXORHIA NFTlU56X5EQ3w9zWE0aoDS23wLs/RJ1xi4I+1CmD4N5bRKqm2EwQvDEfgbfL 3Zn1gCrmYZVL6bekNgfdj0iseaOVzgogAuTbCIB9Q9iTGO4ZttJ391W6lyif nw+2QmC7wbqnqnz/EKZBCc+cAOgB9Dp7ILQMs7vHfGfuco+d1rmIjoJXq0d/ LA3wFF0G39prnr9Jsb5QwzysAZDwlAeK/KDs6H1EIs0brXQATFiPT6JMtHmi PukR/gVTdQdPD6ml7zJTrvv5zCdl7k+nPExVJf5SP//bN8vawlqnswdC61g3 +PXqrr2qxzMqG6i0DgEVnsk+oT6D5ovpClKQPoF8S90mjgqisHlYU7ndpgiG 3kck2rzRSmeFCevh8xLWY/ZlR470zRMTgdZdgbG/MP+J6Jmu7zJTQJlrnmQf Zkeg2xfHPubqrO3/sg6NTxFK12V1s5uA0BLm6ovRoQrHeeTm7p5Z5A7S/521 WY6bPeGYq3L3Lgzy4u8y7ODPmbvnN3VboVt40CwUNg9KLiWpMKO20PWIxJs3 WukAGBEgMUbf1vE37U1KeKO6+sbng7s2oT7aZcNv1v+IH23ovMyU68k+wKG5 vhsp2gIMjU8R6sZFgRCawlqxwY2iWIVHVvWsSzSGC3xj1ff2+3eXXD+zeVLP Rp42bapchwqR8fUf0TUKmofuJXM26HtEEswbrXRWwEqAJP4TPs9hp/QWZeyZ 3qG+Ad+HVlxdQh27W9uAlmdu7+PJk0ytfZhkH74dQfbiUPpWuVe5WlZbFvYp vy1MINT4zId7mbCxuSr35IFTt6R2sUcgrJSdXN2OMDWRJ6GaBG+k8hHVCNuv 8xtTFizduONAioX9OzcuWzRlwKu+tYhmoF8eKRAXnKkoOTDSn9zShu3Lg3z1 WkIx86DkUlA7YamLjkckzbzRSmcFEAFiz7VpayLqY/v1DI+JS0xOSU3a+vn8 0a/5enm0DY9JLyAGW3xr69BWBjxaGDBzS1JS/PLB//Qw9YvI1HUorOze+g60 n9838pqTeDKYBoJhQRt+Ve4i5Qcs9eN8VwhuHFiNmYiQcs/4q/JfLKLGYK6+ tGSgN8ZXt1+HlN2+emz7Z1HvjRnQLaRNQ3wKMjZu1bX3W+M/io47fPq2hIM5 61nzc7N23XO/818QZczDWjfP9X4uGkfPI5Jo3milowArATZqGX+zsuBM8hfz 6A50Hk8079hj2KyY3Wdvsaai0sLTXy8L79PF8hlTiw5hMVsvO1ezaJ+ijPcM 9vx8W8BDc7cpr0phrViLA57y25K1IJj6nAlb8Tvz9N2gKBBCizy+u21AEyJE 33Kt28QB5YPSbBuN/5p4WsfpeS6jgHlQuQNudO6j3xFJNW+00tEw3e74Yl/u zb30Ca7ZA1BEyI3Kq1oBMqSc3Ye/fp72rCe1cWArIXHR7IvDjuvtSAGhA/LP ftgK366a+szIqAlejWis7lCLLvHZNcZblts8yFRBD2zUgb/4P6wLdDoiKOaN VjqCqh+WPetaLNTNATzAyWmOjaryUeJAOiTsRrp0BnP1sXHNyR3B0zN22m/w QskASNgFJPHCZUarQBSBgEv5xX0j/fAJudl729xt8wULc/W5hb1q4yqdFgvS b6t9NYoip3mQ2aPu1AtenyOCZd5opSNgkhr4umC4OY8LVr/M7wEyVejdV11j vrC9BxkTtrvBIV8Kn+dDOpE54SwZLd6f0cMdHWOEZij/NfEtXKCCBS9JLXLH F1ASZnP2pvFNDTXR/SOR0TweFxzbvGbHWTe6q7obEVTzRisdkNSgSy0oTKy9 152UfAT6DxraDUq566YRU7P56pqhpKw6JPYUmPtenHnow5AmRt/WH6Vee3h8 6Qvk62NNkC/+Y01QfW/3OxlHaAwq1IOcQBsKk6Pb18joHwgyD3cFsnmjle52 +gQjFeHUnxYUNlaBn6Ny0IVJkS+Q3rJvs5gzOoqbC6ei+PTS0c2M+KvRcUJM wkE6JdwT8+03ec/vD3Dft6r857mhtYnXJ2j2Fwf3Jsx7vaVBXN1aBEIgZVnf Tw+sj/lgk4/UXFeHQ9XZzV0tC1VAj7W/1PR7gszD/ZDFvGv2SgeKAEPjr6h9 OWpTdHGuv6ej6ujU4UJN2l8XZx3fGDmxf+DzJiNWp8UrAyZ8tOkYu3StuTL/ +I6IEa8HNPQ0Nm7Rb+JHIuvWIhAiKMk/Fr/m29/cei8mBPP19I2btl8octOz CaEg83Av5DPvGrvSMSJAd6tqIpKSY0vbEa5+//jfGB/Q8vRT1vUj2uGh/TUC gUAgEAi9c3jkM2QuDBbyXqY7uLSSobpwYph37ZB3YxIOpiQnboka3tlkuUne XqGRm9D+GoFAIBAIhN7J37MgqIHBr8vAVT+huBYD3q0petqQbi/5euH1+YPf GD5nTfzx6w+Q84dAIBAIBAKBQCAQCAQCgUAgEAgEAoFAIBAIBAKBQCAQCAQC gUAgEAgEAoFAIBAIBAKBQLgL/x85mDmy "], {{0, 99}, {854, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{616.3177083333333, Automatic}, ImageSizeRaw->{854, 99}, PlotRange->{{0, 854}, {0, 99}}]], "Input",ExpressionUUID->"231f6531-8548-42ed-a6e8-153b5bc33852"]], \ "Subsection", CellChangeTimes->{ 3.7467908610581846`*^9, {3.7468324242091866`*^9, 3.746832424517336*^9}, { 3.746843052499525*^9, 3.7468430528932066`*^9}, {3.751563869252903*^9, 3.751563869253195*^9}, {3.751563973799446*^9, 3.751563973799724*^9}},ExpressionUUID->"87d7cc44-3354-4ea3-9792-\ bae1abda7f3c"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{"Gb", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "=", " ", RowBox[{ RowBox[{"I", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"X", "[", "8", "]"}], "[", 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}, 3.751563021532525*^9, 3.751563085371201*^9, {3.751564459963667*^9, 3.751564460855208*^9}, {3.751564667118046*^9, 3.75156467352498*^9}}, CellLabel->"In[96]:=",ExpressionUUID->"4d364c7c-a40d-4bf0-b3f3-fbb267ee5ecb"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "1", "]"}], "[", "2", "]"}], "[", RowBox[{"Gb", "[", 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, 3.751563022123563*^9, {3.751564462708067*^9, 3.751564463118325*^9}, {3.751564681363723*^9, 3.751564681422407*^9}}, CellLabel->"In[97]:=",ExpressionUUID->"18b25d3e-1523-4492-9d9d-af8ebf90bd3f"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"X", "[", "8", "]"}], "[", 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[{"X", "[", "8", "]"}], "[", 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[{"X", "[", "8", "]"}], "[", 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[{"X", "[", "8", "]"}], "[", 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[{"X", "[", "8", "]"}], "[", 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[{"X", "[", "8", "]"}], "[", 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[{"X", "[", "8", "]"}], "[", 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[{"X", "[", "8", "]"}], "[", 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.7515644791699142`*^9, 3.751564685671955*^9, 3.751727180434493*^9, 3.751730250930769*^9}, CellLabel->"Out[97]=",ExpressionUUID->"12aba787-e3a6-4944-830b-ed54fe679501"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzsnQl8Def6+OechGokaukfqWuJKhXpbQm9SLRK1F61VF1U0dpKS2tJG1uj +Flay1WUStMiWrFHSaK2S1xFES1REkWoxJIoiXKynPmffWbOPjPvzLzvzPP9 fH6/z+9XJ7M+8yzv87zPEzZ8fJ+ReoqiJlYy/a8+w2Jf+eijYZ/0rWr6f974 YOKYUR+MeLfrB5NGjBrxUevhAab/eM30Pzsfpyjz/00DAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA mqLk7LYBUVGJ2Y+UvhDFgCcAAAAAAAAAAAAAAAAAAAAAAAAAACrnxs/v1wuk KJ0+okPSJU1mBuEJAAAAAAAAAAAAAAAAAAAAAAAAAIC6yTs1rUV1yk5Ip/cy CoxKX5O84PQEDH+e3ZHwn8S003fLlboEAAAAAAAAAAAAAAAAAAAAAAAAAFAd RX8mdK9rTgcGBDYLb6S3Zga7jD9+X+kLkw2cnoC5nW9ooDU/22rJcUiNAgAA AAAAAAAAAAAAAAAAAAAAAAACiq6v7ddEZ84JUtFz0wofFO6dHFPZkpULG7E8 56HSlycDWD2B8pLtfWvZ960GUP0W5Gts5y4AAAAAAAAAAAAAAAAAAAAAAAAA oKe0+L8ToihbTjC9sNz2Hw9NsWUGn5648Y66tyzi9gRK7yVEV3TkRXusuwB5 UQAAAAAAAAAAAAAAAAAAAAAAAAAQhSP9F/RYp4X2nKDTP7HTheoDyydQdHh1 n2eq6us8O3zVQdU+eQAAAAAAAAAAAAAAAAAAAAAAAACQB6Mx+8vBT1IUFVxh 0PdnS1x/UFp8aFqPWgHmzGD3xN/c/AAVZQ9z9m786uuk4zcfSXcSN+DzBAAA QA4KxWL48+yOhP8kpp2+CyUKAAAAANEg8rfBMgIAAACAhgD/AQAAACGgVAFA cYzG7NXv1Nd5zgny+pkYDH/tGNY82DzgU6drNSSjWIpzuAOfJwAAAHJQKJaS s9sGhAZa21q3WnIcfA0AAACAVBD525q2jFfT+oc26PlhfMLWPcezcnKu3zE4 /cBYWph7KevYwZS1y6cPbv/0yNUFilwnAAAAAKAC/AcAAACEgFJFAsRlgDgK 0ue1reBfss+RGawWGnv4JvIrKT+yuCll5wnd0hzkZ3APPk8AAADkIFAs5SXb +9ayHyKA6rcgH8b9AgAAAGSCxt/WtGU00mfWvEj5iz48+pvzfyt9zQAAAAAg CvAfAAAAEAJKFQUQlwHiKMqObxjIYwukLTOop9qNy0Td7Lbsp/gn7aJKdZua U4b4+O7B6QkAAIAcBIql9F5CdEWHo9Fj3QVtORoAAACAikDjb2vaMvIIwGt3 G5nyBwQMAAAAAPGA/wAAAIAQUKoogLgMEIsh51DK8Ws8GsMay6/u33ggVwJZ Krq+bmjbWpWrt3j7k3Qpju8BjJ4AAADIQaFYig6v7vNMVX2dZ4evOliouc4U AAAAgIpA5G9r2DL6FYDrGzQf8/WefJi9AQAAAKgD8B8AAAAQAkoVARCXAQAA AAAAAAAAAIAM2ALwsJ5jxvTt0qJ+VXbcXaXRCz1GfLxq97GbEHoDAAAAAAAA AABIBcRlAKAiHhYc+37J+L6vhtcM1NdpEt1r4Gebj93VXL0HAAAAAAAAAOCJ LQBvs/I323949Fdujons/Acaa14FAAAAAAAAAACgDBCXAYBKMGTtmdyurr76 P/p98nlSSvrmJR+2DTJXOISNWJ7zUOmLAwAAAAAAAADANQAHAAAAAAAAAAAA ZAXiMgBQAyVntw0I1YfEjEhz9BU30vuGN7ROT+6U8BsUOhCP0Zjzw8yONaiO iReVvhRcKN0V91jIPwZpsQ2+C5oXDxAGACAAzWsqqQFNyIC1sEEALgQQbwDQ NFhrdeIBBQsAmgOUqpSAUuWAtbChj8vg7QOA3Fze+3bNgJAu44/f5/znnDkd rFOCqa5xl+B7JJrS4kNTYipTOn1E+8258C7t3Dkb36oGFVCh2diVmt4WDeJB gzAAAPaAppIB0IRWcBc2SIwKAsQbADQL7lqdfEDBAoCmAKUqNaBUHeAubBLE ZfD2AUBODPeSe9ejnuuckue8K/R0bEtLYlRHNeqZXqTIxQEoYOxIh6RLj3z/ XlPknZrWorqmW0aDeDgAYQAAbAFNJRugCQkQNkiMCgXEGwA0CAFaXRWAggUA jQBKVR5AqdJECJs0cRm8fUAejGX5RzZPf/PV8JqB+jqNuo2cuuHXW0pfk9zc 3/rRkxQ1aFuu8z+UlyZ3D7HtGH1x5AmDEhcHiMduR6g6jZdm4WlHlMa8YzoQ pcURr1geFhz7fsn4vtYjNInuNfCzzcfuSlEbRaJ43P8joX/zykFV2s3YlO/r mRRl7U9ctvTbQzklfh4cuTCoA5NIn9y7fsHU4X26tKhflXJQrV5k+66Dp8Qn 7D52099HrAru/Dbvpbp6inp6+m5CPhvCIVFTEQ2GZpGWyzKSIWxqT4yCoVcE sPWAKiFDq6sFLfsPgjAYhKyylRgewaArQDFAqcqJxpUqGcImWVwGMQs65Le2 xqJbl3JQkZ17Vxr5Ly06Nm9wgwCq1YjZSTvTN8b2rGwSuGBqzJ48SU7ngrHE UCLaoRF7kId/LoqsRHWbmlPm8k93MydVs8bDAQHDvrrv5o8B7DEaLy7uF2QR 7OE7XXLfgJ2SE1+/ojPL+tMTN94RadBFKxZD1p7J7erqq/+j3yefJ6Wkb17y YVvzK5TAGpIpHlcW9bTtZA+L2XnX60+v7R/yuOW31UNXXfH3+CiFQQWUPcze 9p9h/zInAR2YvN+2rf9ZuyLFRt+g+Zjl23PuayBMN9In49pZjSPVJe4PEBKp IVNTkQ5WZpGWzTISI2zuAvBHf+We/WV/Wlpa+k/Hz18uJDmBBYZebtRq642l hbkoViOu34ECYVIhRqurB436D35QfO3c4U1rv5g2cWC39pENqnJ0a7V6kZ17 jfn08w0HzxSW+jjO1cQR9fXU+MOglgAlAKUqO9pVqsQIm4RxGcQsAvBmbYOe bNbRZG2/2HD4fLH352k0Zq9+p34FKvZngS+vZNtECjmWatVBE+KWbkzPKkCQ KjV7FI9XGPT9WdtN5u8fYj6NTtdqSEax+MP7BsVTErkqa/t+R+8tdPNvRxc3 sZ+mW5Lfaw0ATtzeMrGB5Q22nLNPQqEue5izN3nJ1Pf7dnyxYbDjg60T/fak pJPXha/MmWuZNs0a0i3MYmdrR72x7JebCK/aibxv361h+aRiVvwiZjVRpGIp ObttQKg+JGZEWq5dyxnpfcMbWj/3Tgm/IVyKkkk80FJ6LyHaukjneyf7na8H 26QxhFr4O48nh0oYSMdw5ei8Lo3Ny6QBlRp2GTRj9fcZv17Mf8A8SUPB9cyf kheM7dP0cduT1od3WPK/a+p+aMYz6zvYbhf6zMsBGDKlwMQs0jJaRnLMIjsA txR+928fVpkTIejrNO03eUFazj1CMlgswNDLizptfdmDbW800FOICX2udac3 3o5d/G3a6T98LKcAeCCHVgf/wQUN+g9eKL58KmXFZ8PaNw7xTyWFNO8yY5PH vVdFBxa1CTAJWPDSbPLMO4e7Fxb3esGp9kZaqv3j5cX7QHOLBOIyRdCmUoW4 zArELH5isrY7Fk8b9JK/1ja0zetzU7M8+fMF6fPaVtBRtRonXhd4PZIkRtkE VW8xaMLqfR5vwSfGrOSueqrlwgwm2r6TMcJ2cGrGSV91WijAIDFq+mr/zr/6 p9vHeOPLvraTBFOzfwMPgjysQm4ipFts5gNpzvGw4Ni3c/o0qepRQoMrDN5y UYDyN969tP6dqBDOsXRU/WaJlyUTxdLi3UPDzcU41arOOPaXsGOIVSzmVgkB IV3GH+fu0M6ZY83D6KmucZcQPQA5xEMKrqW9aZOHQP2oxL+9/JJpBq6jwvsf 4HWPKISBdCxOr6VxR++JPgMQQ/bBWZ0a6+1fPeNsqw/DvXVdn2SUks/dTIA4 wJApCQ5mkZbPMhJlFm0BeOv4Ld8OjwrRB4a/OWHVrv/9ftOyke/Rvaw9GyZb 2n1T1f8xaNXBQkIkzgYYehlRra033FnRMtCjVkdBaJveMzYeht7COCO5Vgf/ wRMa8x/cY03BDH6ltpMqCnryuW79x386b9WGHWkHj2bl5ORc+DVjT/rmr5fM GDmgxZO2X4f1n3qkwFl2jBd2/7tWoPnKo8edIXvDqM2NkZfAwA82yLHOq14g LlMM7SlViMsYIGbxjrU7dL9/1a7A1RU2azs/cWuqR2sbEBg+aMaBPOetl/b4 SJS1ZVrpWs6bsvbL6f1bc1WQhSfqDF78/b5fznlrpHv6f+mpPyZ9OTd2GOMn OAiNeSfhBP+KkfKS1MFhVNTI4+yyg5MrnrceNECmxhSchsPZvx/fn5a2/YeV 8VN6NHZnBYJCot+J+yIxOTUtNeNMtuS9fcQsNQCCKbq2I25o8xqBVECF8Lfi T4jpX1x0ZXGUeVIzVa3S7NPeVpUEU3jsh1H/rO7RYxHjbNw5G9/K/ZFbLjkh YXFk7v63zYU9Ol3zXmm3+Z9HpGIx3EvuXY96rnNKnvOpT8e2tD1MVNvTpBcP iSj7Kd6RlPKxk53VDFw/aEkB3zOJFAbCsXkCwRUGfvOzv9MiHhbunRxjq4zD fL1UBLd/GFeT48boluYofU0qBgyZ4ihrFmkZLSNhZpFZUdQ/23rBIXd794qu r+3XRGd5ztFz0wnKjYKhlw1123pDwTX2YsL62WNacqv3TTQcOGvzfstSiTcu ZR07YAnSJ/dt/g+nIvTa3Uam/IHt0CsCIScWBv/BB9rxH1yxLtK+9nywjvXy AgKa9R6zdOeRHK9jwox3r6YunBD9/wJNl6eP6JB0ifVjlmCETttFjlX3QOn9 cwfSbGz/ftWSL9yuGOufbR+7bG1Kmh+k/pi0aunSxXNjRw3p0fIZtzuGVDuZ XR4gLlMWTSlViMuc0HzM4h631tayj3LVriO5D7w9KOP9vIyE6R1ruLO2eaem tZDG2pY+SO5Vi6uBfJUBu2JJtbvcdcWYaWvPF/GRjXPr21NUTOIF9n9jxtmI 2CqLhhs/v1+PmwIOoLon/iZr4ClyqQEQgOGv7QObsEU7Yn6GQJVnpE992ska /UfM3odecozG7O8+jAzy4bI4aPjZPl434nkzteRlfrY2BcJauItTLPe3fvQk RQ3a5tI8n6lS8N1Tzi+kFg8psTtdfuxkz1zT2i43kUt+EXAuUcJANHcvxDer KGTB89HtdT3q2h66KuvZbp+eFMa1znK1mNAiYMjwQEGzSMtmGckzi9YAXEc1 apOY7XmJ1RZEKxFHiAAMvUxoz9bvHsCuPdZR4T3T+fZ8KHuUlTTTsorCOk7t RjMzyOjFhzukxMLgP/iHJvwHFwzXM9eM6liLrSSCgtuNm8erg6Ih+7+TW1Y3 r9Y6chCPbiX3Y76OgSlqXJ8ryprKKT+lqCcCZmcKrDwx91Sc/U44t1Vvn003 0F6yhoC4DAO0olQhLnOHpmMWd7iztoGdJv0nnVe/4ryT8zs31rNzo44UtjTW lmnNakdYDGtOCh9OcqokCenwlv/lmubPPzQyKZ/1nx7dXtHaPs7m9dm5ZUKu CyHcwE2BPSnsAaNRK3+V9dxapfzI4qaIbLR9QLOgkN8PHM3erVq90+J9OZcu Zf606bN+zTlFCzb420djaeGF4yv6NHE5mPR+y8M/F0VaVEEwNf6gm9m7XhCl WMznrUR1m5rj+htWlULAsK/ElE5bkVo8JIQ9d6z5kCNeC2uYuWMVhc7LFiEM BGOkT8a1M900p8uK//yRNsAWgep0bYZkiJdXfLA/GSdG74etIpIAhgwXlDKL tHyWkUizePPYuPCqE/bmef/VxTmdrAqZqlN/VQ4JUTQYennQoK13bq4rXHU4 +g/b0VGN/rXhKgnfF96QEguD/+AvGvAfOBiNOT9wCycCAsMHTt0pbNi3fcdK cK/pWcUlP0+1b9XHYR+HRDCN9O3fTsdJWeKSIkWnNv7boa7lagyoSiAuwwJt KFWIy9yj2ZjFFTfWNiBi6Kz0S4KsbdGfCd3NBZ/mps33i/87Icp+UEmsrWuR hqhWBkXXto/tEMwcTKeP6Lwq85bvPzRH3I9T/Rbksx6Z8cSKF+wHciqiUISs mdGs56TAFDMmiw3bYeTC9QMR2NXh0a2EmCdtHgXS4dc2mMUQ0ykqNBu7Mueh /Z9KH+wd3cLVcaGqBS/N5n8hhZmTnHaZy+K3FKfFN7G6B06NJrwjSrHYei+M 3uvGwLGrFHz0lPMHqcVDUphwyddOdiO9e2CoTX/Wj95yR+AJBQoD0eRsf938 gB9rGNm2079HrT7BexOE3d8zE/2fEyTU+PmF8cz6Dm60G9Ux8aLSl6ZGwJDh hBJmkZbPMhJtFn3C2lNZe8JGKVoGIgYMvTxo0NY7L7mLUh2cJVyLEFYesiwf UqPiICMWBv+BDyr3H9i4LE5StcM/3Hq6WIxasApbANW2V6+wAMeRVTBg1D3s RvpW+O4KdAszBgUGoAgG4jJsUL9ShbjMMxqNWbi4DgvWh0XO2J0lytrau7ZG dnyVpSEksbaIE6MmSouOzRvcgOke79IZ2AP5/9uUduEe+78cmxBhO0bNuqsu K//x2YcX2+5LqvEHnmAPGH22ZzoxHZLIhlslK7x5uLXFgXQFNlcX9bCpiQb/ HL/eZSZRfsaIx914LsI2VTlvnQ6gBu6Qvv+JoxSHotqtPOP/OxClWMr+zr/6 p1tlzlQp+Owp5wdSi4eksMMlHzvZmVY8AdRrn10T/NiECgO5nJvJ3hSpo8Ki tvBdLr28vZfjzwkUM/cY7q3rapI+3RNVqjgpN4G9LwCvgCHDC0XMIi2TZSTa LPqGqeLWUXW4heJYAoZeHjRo652X3EWqDsNfCe25Lf+CqClH8R+DhTVExMLg P/BD1f6DA3vnW4baPT5Iy0XQUubG6rcecxEnNQwYdQfTSN8u8KP3oVgDtXkL Cmw2UQ0Ql2GE2pUqxGXe0GTMwsbV2oZ0Grs/D4G1tQue5NYWfWLURGnxoSmO thKUJTfafnMu30HMx8fZDqHXv7kgDwM/Q+HEKAwYVYTS4sNzBzWtZBkW/PYn 6cJ8aelVZeGhxClT4xM8zTI20vuGN3T1W4R97Fy/Ra/r8P7pB2Kv3x8Yc9z0 1Z23hD5FJIqFXaUQ3v+AyNsn3JIy4ZLPnewXN3W2y43IWlM0wkAKxTnxDbif roDa2rK/18Uwq4U4NGEQj6XYWKdr8e9dq8dyHxBhVaZkAIYMPzAyizRSy0i4 WfTNo/xFzzPyh/90LTD0cqBJW89dcvfdqNknTCdnO2rNVsgHCbEw+A98Ua3/ YMe5t7bTfjeRPLgyL5zduNuMOgeMMo30KdsLQlfNZfmUEKh9jQJxGWaoWalC XOYLzcUsLAqPrh1QRzJry5I9Sa2tJIlR2ryPI7l3XfZhzZ2B+XyP7NQwJisG yiZGYcAouTB6UkDtNyIebHRKHJitbdXJW3lP7uUsuZh848ZLs+Sa5VeUHd/Q pnIj5mcIszdoFAvSKgUcxEM4TLjku+Dz3rp37eZSdK0pCmEghjsZIzhfrsn6 xOzkL3asbvBYjO0Wy+3Tk8ICTbLUN/lK2V6nLk9QPoQeHDSVGgwZWvAxizRK y4iDsEkNewkI98QNGHp50KCtd15yRzAGix0v2x5Ch0nncX4I2kBxrQ7+gzMq 9R+sFKTPa1uBrVqo6LnphUgN7Z/L+3HUtXYGjHaNu4ToSVoWVwOoLnF/YOID lZfsGxtZWV8xYvoO/Gd0K65UadCrTqhXqeIgbFIjNi7TWsxiRwZre++HsZWk t7ZSJUZNXDs08ilOJVX4zFR/Oy6Xl2zvW8uuGJFVJd3fPTcmKppFVI+hHy3c dsy5LYAHBCdGjXevpi6ZNqjrS+xzR7/UcvbPPDpQw4BRUmG1dVJukpSRzlr/ srPfIsRKGg4vau74BGo3mpkhq2lk5mIL6+GASLGgrFLAQjxEwJo75jQfwZXD o59GaM7ECgNBMJ0JbU+63ZIjAtrqs8w9+fG7kT4ZZ245GNx7bk6Zbb4G5xnh E2WrAyw0lUoMGVowMYs0QsuIhbBJDisA9209FQYMvTxo0NYjHTBqg7Vn2fYQ ZG7xBLiivFYH/8ENKvQfLDiv01LU0xM33kEeFDB9yykYMCoMy+IqTk1+bLvG SIgilVeqNOhVV9SpVLEQNskRH5dpK2axIENW1Myf+4dIb20lTIzSdN6379Zg H7papdmn/WuUcNURKOmrjP4OVcVO+bldH77ePqyy0x1TYSOW+7PVV1hi1Hgh dejTVZ3OqK/TqNvQ9zdf8tsLgAGjxMJMZlE2o114fJzOSQx5e33spjT6Z1sv PCq703JufXv71XdPusz7zxEpFoRVCriIh1DY4VKz+Ue8/fRR3qLmgSjNmUhh IIqCPYu61TPbEX2D5mO+OSjI33DOHhLd8cl4Zn0HtlPhWs8MfZmQgoumUoch QwseZpFGZxlxETaeGPN/XTq4Q1hIpYbdBif86ttN5wTgeC/BgaGXDa3ZesQD Rs24FkpBYlR5sNDq4D+4ojr/gXbtoEtRIW/ORdbTjw1j78zg3vlBKFINGLVg XVz14VfICTmJUSyUKg161QU1KlVchI0nCsRlGotZSn5N7h3M+fj9TKvxhjsl RCJrK2li1KUhsJ7qNjXHj631zHyQAGpYKuKAznD9zIo+TZxUeMPYbT5tvJDE 6KNbCTFOHf50rT5clVXEswSBtRce98JygA3Te19PvTjyhIKVhNzG6TYZ5tNw vmDfl93se8BDOryV8ocSDS4YrainOk7KKuH312gUC8IqBXzEQyhMuBRAjT/s 9QZYhbVozJk4YdAezquFCCt+5cZwb11Xs2Fl2lC46UAIC6HowEdTqcOQoQUH s0ijs4z4CBtPTsW2ssukXy+CE4C/9tk1jJfgwNATBUm2HvmAURPlB+fX49gI wjSJCsFEq4P/4IrK/AcTN35+vx47K6rTNe+VdlsqFbh36FOOM+FcgiIcKQeM 0vbF1Y6JF5EdUSSkJEYxUao06FUX1KdU8RE2nigQl2kqZnFuD6vTvfjm/gKp rC07FEVYnMNG2sQoTd9e+w5nVGpFavjuPB9/8+j2itYVbRL13BsHWPdtvJmV kuZv51tvFF1ZHFWdc9tPUAuzfBxXQGL04a44p+4TworW2HvhMaqqAnySnzHi cduLU3hpwkhv71PF2W/xM3dQWnR62Zhw60cZUKHZmP/wzuyjgyl/CqFmn+FT s4RKsSDs2I+PeAiDPXfMV6BUuivO0RyeEzwW52Wk7csVVFwkXBi0CafpE8E1 Nrd/GFfTabS9a1z2hG5pjqJXqSbw0VRqMWRoUd4s0ugsIz7CxgvO4qEfMsks WVAC5zHJBhh64iDF1kswYJRmCwzSwwLCwUSrg//gDlX5D0XXV3bkLryFUFOO SNhnzb42iH3TcsFIOWCUtj/A0fuxyYWRkhjFRKnSoFfdoCqlSuMkbLxQKC7T Ssziam397w0riHvr3rW9SqTFOWykToxyGwJTfmXPWXuQQ6dsY1vKK4t6UvVj dqLo2Myea+znl847MWqkdw8M5ZwjhJpxQojAMJ9YRSr2Z3UXH6gKZlIwBi/O PviJhR+5A3MXgn7Ng3UWma/VaMz6nxFUJoiBpR/4WWdEigVhx36sxEMITLjk u2keU+dTPXQVa4SUtZGawL4cgoVBizjtItFTHSadx3ct3jO3T08KCzTFrH2T WWLkvL6KpCMfYAMrTaUSQ4YWpc0ijc4yYiVsvGBVGvvRHudh7jzH88J8pwkY esIgx9a7DBgVP1uQPQnLQZ9NN1BcLiAQfLQ6+A9uUI3/YKRPfdrJaV4W01hG Gh5sHOuncSQUSQeM0tYttyHUwt+xMeyEJEbxUao06FVXVKNULWAlbLxQJi7T Qsziztq2XJghqQ20Zy0RF+e4OwUD4sQoM0HYThA15ai35OC5me1sv3TKs5uL KB5HVvh65/g4zuv07dLwTowWZU2tyT2FsC3V7L3w9aO33OF/BEAR2OOzMZgM yxVgC95zB8byqzs+71bH0d1i6Jbf7ymv3otz4hvYPyg+/RxQKRZkHfsxEw8B sMIlXx0nmLyV81szr6M2EXr7QoVBkzgtlpLZbNZIn4wzf8jBvec6+bcs79cG RhXIRIOZplKJIUOL0maRRmUZMRM2XmTPiaGoxxq26vDG5Pn7r/lSPkxKyKSK Y3ZinBcFQ08axNh65yV3FLOrjKfXtOGYB9y/L/WDk1YH/8ENavEfDIcXNed+ +7oW/fdLLG+OdVQYMCoEc9vJytJt/xECEYlRnJQqDXrVFbUoVTOYCRsvlInL NBCzuFhbPRU18rikRUiskEG6dLPkiVF2r2z7o/M2SpgdVnPTiNZgZ+AORGWf 3BGu/mzL5Z0YvbipM/fOBb5HGDBKKMx2adFNDFDg8iWa8ZQ7MOQeXzE4ytZQ ILh6j3lbhfVAk4JjEyJsV+9HB2wbqBQLwo79mImHAFjhko9bKE6LtxdhcXua Pcpb1LyCmOHyQoRBs5xcwWo3i+9iqReMZ9abzbC7Zh3OwTtFdUu64vYgAD8w 01SqMWRoUdIs0ugsI2bCxgvrQ2u38ow/TjpTgE1R0f85gXMFNhh68iDE1nOt Noo1t9LiHQPCnKwD5t+X+sFJq4P/4BY1+A93L8Q34/aNcWosIw2OdVSs2z4I RsyAUcPdfQsmzf0px5tHZM5CohktjQwiEqM4KVUa9Ko71KBUrWAmbLxQKi5T ecziam0rUqP3Fkp9Wpu1lWzAKC1LYpQboFE+svB3MkbYf8cZpllesvfdcCq8 ZzqKPrpWGKG14quTA9/EaPnB+fW4z1ZYMx8YMEoo7FpoBO2hROP6sVNucwel RZmJ0zvWsNVxVYkemHjmlhLX6xF74xozMYkX/PobVIoFXZUCbuLBG0645LVX G3c2d+SSX5h/srSbEDNcXogwqBJjiaHEhzhyNQC+i6UeMdxb19X80bhtjeVa sIremdEkuGkq1RgytChpFmlklhE3YeOH9bnV++eqC77Kkosuz2ths54h3WIz H8hyecIAQ48bqrH1LgNGxa+5sVLzNonVdXj/NM7flwbASquD/+AWFfgP2Z+/ xu2grae6TDonfdsYi0TBgFF3WLaH+NhIazTm/Pj1qr3nMKpdISExipVSpUGv ukMFStUKbsLGD4XiMnXHLG6src82xSiwWVspOwzIkRjNdxozak4rjz/kYbct q/0su9TEumMXbemX6zqq9857fBOjrs9WWGc/GDCqAOUGg+hpyUwtNCYvzrlE wc33XpT54/ROjfXWf8O0jstIZ61/2Xb5fi+kIFIsCKsUsBMPvnDCJR1Vu2ni NXeOV96paS1q6J+JblvXjcidim0lrtxFkDCoAsPNi/vWfzlj5JudXngmRM+8 idAWrw6Onb3p5HVXkWJMiX8mDDdu/zCupumym76685YbSXMxuIGBH2xQ78x7 +cBOU6nEkKFFSbNIo7OM2AkbX278/H69CvroQam5nr390uJDU2Isozx0+oj2 m3NxXXqzAoZeaVRr65EPGL289+2agdwbb5OYDR31RaC+WBj8BzeQ7z/8kTaA u3+FChBViuM/lrVBGDDqBusuQvI20pKQGMVLqdKgV10hX6nawU7Y+KJAXKbq mMXV2sqyXZR2WFvJBozS8iRGbSbGP8NqpPcNb2j9zbC0e7aLPLttQCgVNioh F2ky+t66d52uCm1ilBuZCm3xbfgrob01La+nnnvjAIaxrYowXM9cP2NUTJht Vl1Io5aDZq05cVNQWM3UQktb2+A3TlOHrDC5A+Pd3JSpfRsE2P6hdrf3kn7F tY6L8Rz8bsCCSLEgq1KQUjyK/zi+aUHcoE4v1HZYrmp1oge8t3Dr4ZuCLtnt BgXXcClsxPIcrpdbeHzLBy1r6CI6JF0qvTi3k/VnjmnyJZnruwT62+DCIwKE gWiMZflHNs0a/Ept+/qfvs4zHfoPG/PR1IVLvpgx/j3bew8IDB/4STrXCeQ2 ScB1sdQTt09PCgv00hrLRSC5vRwBYYAhIwXlzCKNyjKSbxZp8wPcNSqiuj7s xSnfuzmyyclcM8zWQ6x2z4n784RnbcDQqxy123rEA0bNqfnqnLuu3Whmxk10 16sh1BsLg//gAaL9ByP980dOozTkmHdmxbo2CANGnbHOJSRxIy3+iVG8lCoN etU9RCtVB5IJm2xBGS1jXMag1pjFrbWVZbsobbe20g0YpeVJjBrp7X2qcE8S QL322TVP5sbejikkZmzSrh/Xzx7TsjIV1n/qkQLEj4Hvjk6+iVHnHalP6Jbm uP+lMf/MVyO6hwUHhg+a4XSbJRmLXrAfQOzCAuCVgn1fdjMJXsBjDWPeiJ3z +XTbcoROb17t4a8kmY3S2FQSslo0OL5Ec+7APAN9Ud/GVW2CXavJO6v35ONc E8QeEOyrAzaDeMXC7thfP3rLHcE3IJV4GG+eX/9B91oBzq/ZQUjL3qsz+bmj 1qmOrpX87HDp6WYRITrz/xHacdjshOTUtPSUtcvNX1DFgIhhszPyLZ9P0fW1 /ZrozKtV4RO+SUlJXNDnHwEIuggKEwYyKTy+ZfprzwdbHjUVVLnde7M2Hf+j 2MWSGu9eTf2/d8IrcnWX81htoibCG+mTce1MFx3ce64H78s1LsM4qiUIMGSk oJRZpNFZRvLNotMZQ5q2Hzzl05Xf70gz2cR1q2eP7dP0ccsZw9vHugvPMbwj MPSKoAVbj3DAqOHK0WmRnKyoPqJT4vl7KpcSaVB5LAz+g1uI9h/+dGlMJ+OK meHPs/vSdmXeVmOwIWbA6IXkLph88nzBPzGKm1KlQa+6g2il6kACYZM/KKOl j8ucUWvM4s7adk+6LM/JzdY2fU/WXQkfphyJUZo+PPpp7kl8ZBVN0ps0Y2T3 yGdCgp5sFtPv43V7pdCiuCRGyx5uf6Ou41cdEy8y//ToVkKMtaJWr3955DHY /SIZBenz2lag9OEdlvzvmk3WyktSB4dZ37WuzZAMng+f1cQAm41LTMN5B3rq +X4f9m9uW34JCIgYGr//GgGNp9j18P73aRGrWNB17JdCPAoOre7zVCDlA55V 9NavIISacYJb7cQuIavVOPFaWf6J1K+mvd+344sNgynzikqrDm9MdGny9rDg 2Hfzh3VpY/qNuQR99trzRQismzBhIIzi/NRpTL2lP4M5Co+uHVCnAuXQXc6f v9fyJMywerxUtUqzT3uuunMdhYPlajBZgCEjCGXMIo3MMhJvFrlYyqGnDu/T pUV9y6JQtXqR7bsOjp2T9N8zhSI2xoGh5yXe5KERW+8yYFSg6jCW5aUt68b+ IgICI0Z9nlmolmUoeVF/LAz+gwfI9R+uLOrpYv48tHwHeCF4wKi9lpXIjbTY J0axU6o06FX3kKtUmYtBLWwKBmW0ZHGZW1QZs7ixto1idqrk5szIkxh1nebp ZfukbLjeu5s50SykSoxyZ7D22XTD9t+N9Lm5PYOs56rvx9RgQCjGrOSuejfV sNb5CFb4jk5mN2qWdNM3D9w1tXYQ0rzz3NQs14p0PGH3qRbZPN9/EHbsRywe RmP2dx9Gcidhe0ZH1Wm8NMsvfWI8vaYNpas8ZFm+k2CwS8ikbPbuD4oIg5wY rvwvvl1d22COACrqkw2X/BvMUZAS9yxFRczeV8KZd2CFnBGchnvrupoLhMJn pnrrjOVcsIpp/0CyAENGEEppQlSWkXizKDVg6JUQbznRkK13GTAq4J0WZR1Y MtjWAM1KSORrXxzI0ch+FORoIhYG/8EDpPoPD67MC3daZlfdTDeFEDxgtOTE 169Y0mFEpgOwT4xip1Rp0KvuIVWpskApbOoLyryiwpjFjbXVVxn9HRa1GYhQ LDGKwQBfvvfONzGaNTOa+4F7aEBReHyczvajkC7jj1vF62Hh3rgelm3mpiCl 8yqeO8oBHjy8sTKqBlWt6oxjzl2cri7qYX99vN1sdpMozi5gBXHur2UnuEaP WWhK+mWD9fEG6kclytO7HVnHftTikZc0tp6b90pR1RpENKjq9l+Ce0337W5Y S7Aep6YcdX7A5QfnO86ouFuuiDDIhmW6hN0PCaCi56YX+u/4Wd9gWNSWm25m akth66Xg9g/japoMaNNXd97yKmiucVn10FXeap0A34AhIwilNCEqy0i6WZQa MPSKiLdsaMrWOy+581EdhjuXj237ZvogZvoqZW7vPHSB0NFUgBmNxMLgP3iA UP/BeGLFCy4vk9liAIhAyIBRY1n+4W8H1Am0dZkgbsAoTUBiFDulSoNedQ+h SpUNQmFTX1DmHfXFLOyQ0GEUhqUSWP3iGcUSo7761kqPm1HRaBOjuwdU9ev3 RvrUp50qm35SvebwZdvSUn9MWjRraGtLzXC1J3tMW31G2Y5ABecTYt8bgwkz l2Wirku4sfqtxzzsRWLtguftILHfvtKizsCVSavVoWL/R9wgHvbHK5fvavgr ob3V69NTz71xQNxONITiYTiyvK2OeZ8hz3ecsCjxwK9/FDpcobK/87NOpq2Z P/Rf9p0IlsfWN9lH0shSguV+pnb2nBjbcSpS4w9528YnPUoIg1xwVkpNaipu B4+VUgvWRYNuSXkZ73Eb2gdQ4w+T0Gf29ulJYYGmq+2x7oIPNeUal6lprINC gCEjB4U0ITrLSLpZlBQw9Co29LT2bL3zkntIrUGzlnpjfvwEUww49M1OLzwT 4pDvgEoNX+pl+hD2X7iF3R2ShnZiYfAf3EGq/3BuZjvuu+QzBxPwgt8DRo1F ty7lXMo6djBl7Yopff9VuwJle6GETjPBPjGKoVKlQa+6gVSlygaVsKkvKPOF CmMWN9ZW5ARb/JAnMep6FiyU+eXtvThXpK86eauXr4pfYpQZfGz3EDpMOu/p 6GUPs3eumtDX1vI69LnWnd58d+aaTadvKf2IPLw7BUEsNkXZ8Q0rUA1abbju Yrof5S1q7lim4KnT2HuXgqnZv2GhDY13r3/zepjzA8WgqbUQmI8XZcNMY/6Z r0Z0DwsODB80w2nQeUnGIkdVaruVZ0R5egjFw5o2sqB/tt30jV4L5kuLMr/5 uM3jtp9T7cZlevmYrCVYFajRewud/4nJQOHRW14aYVAcp5VSvwrnXCnOiW+g r9gvdiIz64AiZunANqdGT3WZdM6Pe3eNy5R3M4gGDBlZSKYJ5bCMpJtFSQFD T6vW0NMatPXOS+4CsQbLM5Z9B4lRsWgmFgb/wSMk+g+Pbq9o7aRJ9NTrs3Px WiEnE5du5zzRPzH+e/86wWMG5olR/JQqDXrVEyQqVTaohE19QZk/qCxm4biC VlTYtV7TiVHnUdE+xgrzS4w+zJ3XhMfBscV49oeuIT6nJMuE/umIBKRuyv2t Hz1JUQ2n73ajoc+tb8+cmecueLZo4eAYlD3M3rqob2N3nQqwLCb3DTNPEN2y T9nD7W/UdTwYTsuIR7cSYqx9v/T6l0ceE/kloxKP8tJD77ewHiZs8Kzj/m0t Z5bgKnpzJLyVYN3MGGEfgoWFTZRCGBTn7sV5L1anHPdVv1niZYGqz5wurB4a +jhHlXor1MEG45n1ZqMbQs044Zf25bavNwMNtUQBhowsJNKE8lhG0s2idICh t6JKQ09r0ta7LLl3S/K76/2jv3Kzfz++Z9uquFFtazHBaWjHt5fu1eIUMyRo IhYG/8E7JPoP7pJ3KpnmpjSuA0b5Qmr8hXliFCulSoNe9QqJSpUNEmFTX1Dm JyqLWdxZ26iVvyp9WYiRJzH6YONYV32pfGLUufOenooed8azCueXGM3fP4R7 v5FLfpHgHgARlD1I7vkk9QS1MMuN63NlUU/26+Pn4LGVodLbzIsyd87o+Xyw jvLEsLR7Sl6fMMy18fYbQOUZcr9Z5o0b6XNzewbZ3uY/V10QrbgQiYfh8KLm lqOEjView6cus+TE16+Y5UEfNHy1+9VOryVY7CbzMYkXhF08SqQQBmUpfbB3 dAv2Ryqm6s9tK3vFB8b5xnAvubfZ828Yu83POjvWJCwbGM5WIwkwZGQhkSaU xzISbhalAwy9DfUZelqjtt55yV3oTgTj3dwdU3rUCmCOFNZ3Snqu0msLxKGB WBj8B98Q6D+4HXnmew4m4AfO3c4pqu83mTluuJR17EBaWvrmr5dMH8ya+1wt eGk2bpbHPzBPjGKjVGnQqz4hUKlyQCFs6gvK/EVdMYubUhnRE2wxRMMzRs1w uyX7SOjzSowajy7mbBhVo/AQj3mTu57qOCnL9c1w2rPoqLCoLTf5HtkvOZEU 491Lm2L7NLAvGoREvrYgdiC7v7N0n7zksNs7BFEzTpYiOGbh8XF27y6ky/jj 1jqrh4V746wLLzp9ROdVmbcQnAiJeBjuretqtlEhb87l5WlYubLsjSAvGi9n ++ueS7CYuWMeFlLkRgph4EVp0bmU75Yt/c/CaR+OsYzBimkXHf1ii5fmpQoz csVp8SzzoaPCe6bfFX51buyv8gPjfHN/5yf1Tff+TLstN/wNrl38GR/t8QEf gCEjC4k0oTyWkXCzKBVg6B0obuhpsPVo4C6566nmQ47w2IXIxWjM/nIwa7nG pI46JZzX9mIsX1QdC4P/4C8E+g83vuzLfY06qlbjxOtoLhw7UFsfr+dyGTDq 34MtSIl71qrVCR0wSmOfGMVAqdKgV/2EQKXKQbywqS8o8x91xSxurK0KtsG6 oFhiVCkJ4eJcbOY1hOSVGOXKDx4DegAuf2+b+LiHamrjiRUvMK9PX2X0d3y6 EbAHLivktzi1tqhe940FG3OKylkXxoBhPblv2OYGVZWFkT71aafK5sdVc/iy bWmpPyYtmjW0tWUIeLUne0xbfca//g++T4NCPMqPLG5q+nO3I4H84eGfiyLN UY/b8u9Tsa1MvsbAHe4rw+2THH11/pcNKYSBB0Y6a/3LLp+V8C+r8OzUME73 8oj5GWIkz8X+kmCPrA8hgOqx7oL/9+5SPR4Y+MEG5f0MUgFDRhoSaUI5LCPx ZlEiwNAzKGzoabD1aHBechc9aKa0eMcA9nQznT6i/eZcDFe0MUW1sTD4D7wg 0H9w2dUorsoCa1BbH+84d0300VKPwTZHjNgBozTmiVGllSoNepUPBCpVzmlE C5v6gjIeqCtmcWNt/TQKRKFQYhSbmq6irKk1/RUVHolRlya9PKMJQA4Ktn0S /myjlefdLJybla0D3hXXCvsthuyDs1+zt7YICAwfOHVnzj2bVDPFPw6Q5Q6K fs9Yv2DqoK4vN6tpWeoJerJZx15jZn2ZcuY6+s3SEpkbk7+3c9WEvl1a1De7 fKHPte705rsz12w6fQuhOUMhHkZ63/CGlLiua/d+GFvJ7eyw/IwRj+upqJHH PUh93paZUU/qQtv0/OIor9pxyVDc9zCWFuaaOwplnzryeTf73AehXQJurH7r MfYHKnq3jqszg7s9MtJn42PMTleXSed4vEyjS1yGZ2BLCho1ZNxr+O/kljXE JIbsZrF9ZAOzTdHXadK282sT5q9OO38LfTwhnSaU3DISbxYlAQw9G8UNPQ22 HgViBox6wDJnio0u+N9fXMVzEwF+qDIWVof/IN3R3ECg/2Cv3nEQQL322TW1 +vxIrY93XLsmhk7b5ddzLS9N7m7eOEjqgFEaEqPeIF2vGv48u2P5Z6P72HSR iSqNmr/Us//4z5alnPwD/YxyApUqC9HCpr6gjBfqillcra3YmkYskScx6vIw MarpujinE+fCPDd/4JEYdbIOXgcHA9hRmDmpFkskWg458oDX37NNiZ7qMOm8 bOH5w4JD898Jt9dihzTvPDc1i2PomXbxjGYTH0cYco583q+52VOqVuvVsTO+ 2ZqaZmL7xqUfDWxayaw7I4bN8XPctr/YfW8lzY1AUIiHuaJD9F4As1Oho57t mf4X5z9bVaIYN0Zu8BEGI729TxWbgRA2juHBlXnh7C0kovsRcR+O9Ysflorb HhIOxqzkrnqz3Rz2w6/uJtp45ui61508DYnr2YwXUoc+7eTeyE1Iyx5bJNkd ozlDxsZ4Py9j+YRIc4GbwMUH483z34zqWMv0NQcFRw+ZODchOTUtPWXt8ulD uoUFWZcUPkE8Dg8fTcgbMIvuUN8diQEr8QZbLxRUA0a5B3WqRpa2h7Cq7T4L QmNhVfgP0h3NI1gpWP9wWV3URpcY8dbHF64DRgem+GdKrLkABQeMFpxPiH1v jBhGDY2qaX22kYNFHWjMmJnLMhFnDiAuE6gJzb1/P7GuST7WsE2XQSMtL2jo gKh6jA4JbfO6802JhEClykK0sGk8hMHq7Yu2Gi7W1u9qGc88/GleuLPS4J7i uTbRNtpZy8ttBFGxRyVZ3ZMjMeoasLhN/SuFuUM1C8/BlP+JUedkq9vJHQCu PNwVxw7b+fe2YpsSuUrOjGX5h5NG/bO67bTB1Xv838acIpcLtzU5oTjyKcaz MhpzNnzSppL5QCEdhm75/Z7TKYtObfx3aKClt1WHpEsojQJbRRPlbKAQD8t8 gYax20TFx9ZSrse5Xc3NKyFYtl/zCi7CwLQgCKD6Lcjn764Z9sRzm8GKbkTj 3BUB+5druJfcuy6FBsnraV09KEWQRua1ZMisJy+6densL/u3b1zw0dCoWo6c hRApKjm7bWgjs1JyaxYNV47O69JYbzpy7UYzM1Bux8NFE/IGzKI71HdH4sBI vMHWCwXlgFEWVxf1cLII0vVyVLXdZyAvFlaL/4D8aH6CkYL1D9el2sglv8hz 6sIT21dtPlSoyI5C0dbHB0IHjJq5mzmpmpIDRjFRzg5Qf0cQl1nhpwkNWT99 EFnDfOWffnPk2n3OpZc9zD3AuruACs3GrhQwDdMTxClVFqKFTfMhDEZvX7TV cLW24jOGLnNL/SbYJA+SpNbkSIwW58Q3cL6hqJW/Ij6LYGxd+xzoKg9Zlu/u 2/c3MXrz2LhQVhlwRWrQtlyJ7wFAR3nJ9r5Mjayg3lZy+y3mOqjx3WvZZ6CH 9f5os8tKrA3DnRUtOSONRMZZVxNH1De31NDpmvdKu+3+nCWZ67sE+viNADAy N/xQwq31wL1171LcPma3175jCociZu8jq5QDE2Fgz2NqNv8I/7+3dR1hmw+x ux4y17TmfvChU7bh/LXc3/lJfWd/QTCSN+1X9c4RDRkyJ4dfX6fxwI9nD2wo 9MjXDo18KtCHySu6sjiquvngtZ9aeAZZ/xRMNCF/wCxKiGruCB/xBlsvEOQD Ru24rGZIuDivartvh7RYWDX+A2JvROiNEOE/SLFU6xfm/f4VlJnwKN76+ETw gFETFzd1VnTAqPHsD11DnL5uxdA/HZGAWOtBXMb/yHknJzepqA/vsPQXz2Wo RdfX9muis58r5M25qHKjxClVFrjEZeSGMPi8ffFWQxJr++ivXEfPt7O/7E9L S/txa+Lnnw18vjrlQtjrE5Zu2JGWlppxJjvn+h2JSm/kSIy6zBMRP0gFMXcv xDdjRWrB1Jg9ea6/8isxaqRPxrVj/8xTmhXAlKtscdVTr8/O5V3sxG0+IGnX aGP51R3MDHR92Iux20977wLhotl0VJ3IpHwhJzccWd7W6kb4ahbt2EP99MSN d5B8DtzVFaKcDRnFw+eVmKdy66tO3mqTceuU8+rVll4kSmdhIwxM7ZOwsS+u Oz5Ed0m68/VgzuceQs0+g3GjqcKzU8MCTQ54p4TfhJRQuLaneEK3NAf5VWoE rRgyE6dXjh/z3vszFi5etWH7/l9+LyxhDwfhGdo7tjz7Mov2uXh6XYf3T/Nr UegBbDQhf8AsSoda7ggn8QZbLxAJBoxaKT84n7sDV4H5a6qCoFhYTf4D6qPx ACcF6yeuS7X+dnwVh2WRWdhHgQCx1scXwgeM2s0QwQNGaYJmjEJc5sdRykv2 vhvuVwHqjZ/fr8ckdsNnpiLoxU+gUmWBSVxGbAiD09sXbzVcre2wtHvIr9OK iw0yid8bB/7y/YfikSEx6ubu8Gsty6R4LPrWbZ2/P4nR4n3zmrN+o3+uc0oe vt2vAVf+XN6PLazdky7zP4ZMs9HNI8yGRdnalwdQrcZ8npHvW+semxDh9MkL zB08vLEyqrq/X7Rj6m4INeMECsuKw0hrgcgkHn5hbnrDzIAoP7K4KaUPGr4a 79YULmAiDMw0AWH9Pay+HxvRXZKch44pFsj7ha17g57qMumc0Hfo6rkRpRyw QhuGzBNClyLtW579MIuOLTkBVPd1F0VfMTaaUAhgFqVEHXeEj3iDrReKJANG LbisZiitRgiHlFhYZf6DHEfzfRalFazfZM2MdnqNcuwYNdI/f9RS6EchGrHW xzfCB4zSdNHhVQMHjkgjeuWTmMQoxGW+/8JagOrn1sIbq996zHHlSPJuBCpV FtjEZYSGMPi8fRRWw9UuSGdtrXuE2YgdNeI3MiRGXZ8knqNyb++Mj2QUIhXS 79Nz3A7qPhOjJWe3DQhl9T9HPT0KkJxHt1e0rsh6xcK0B3vRQxpTYizLS1vW 7SmbsOnDImek5/hZa8AVYwsB1PjDvLeks6fP+NZXj/IWNbdeLSJbho+54Y30 4uE/5s4nFW1lYOUlqYPDqAo+djnhCCbCwGrgL2yItqs5Ftsl6Sp3d4avLWzK YsxK7qoXWzvhGpfJU0CuRjRhyDwibCnScG9d1yf9NYvMJi89FTXyuPjqZEw0 oRDALEqJOu4IH/EGWy8UiQaM0m5mFSmtRoiGiFhYff6DPEfzfRalFazfOG+T lycxmp8x4nHlxtuJtj4+EDNgVB1gnhiFuIzPvZ+baeniGFCpYZd/L9zr60a4 HS1aLjkhNltBoFJlgU1cRmgIg8/bR2E15LS2h0c/zTmTNL0R3CJ5YtTch5/d clxHNWi14TqGeVEzBenz2lZgrjWk09j9eYwYe0+MFhxa3ecp5k71YS/MPiIo K1padC7lu2VL/7Nw2odjTAx9M6ZddPSLLV6al0qWPiURdgtuE7UnbBRoBO5k jJDOlDws3Bfft4Gj4f/gWf7UcTl4sHEs5QLv7fBGevfAUMef+9MLa+/Qp2wP RERjDQa2uSGuW6ak4sGT3QOqUWExO+9aF9b0VLtxmcQpGkyEgTXhS9gQbdeY QmSfCm7Nv57qNjUHvy0kNuwNSBvGbhPzQVxd1MPpGco0ckiVqN6QeUHYUuS5 9e3tF+NPRt54dHET66/FTxiksdGEwgCzKCVquCN8xBtsvTAkGzDqZmYrxewv APhCQCysSv9BnqP5PovSCtZvGA/Kjv9NXwVjnQ2k2Hg70dbHB2IGjKoDrBOj EJfxuXfOeB0dVT9yg/cez5wxqShcCAKVKgds4jIiQxh83j4KqyGftWX2Ujm+ XLGjRvxH6sSoYU88d+oHoq7dklF0auuo55iRr/pno2anZll7qntKjBrv5qbM HNS0EvNvtXt8kJYr7It17bBkQ7ZNxM4UnE+IfW8MJsxclokminbPqdhWzBMX s1DJNiVoa+3yTs7v3FhvPXZwhYHf/HyXp1Yq3RVXyUW6eH/15rYGzJ/7UwbD /nwQjJ9gXwBxzoZ04sEfcwF/FfMDvLKoJ4Xrdn4f4CEMTDFVEDXjpJDZXs6L pdVDV4mZvmWdwsBSaDjX11kakOqopq/uvCVKAF1dGsVMpwpQvSHzgqClSGbX kp9K4OKmzvaLRxBi4KEJBQJmUUrUcEfYiDfYeoFINmCULsycVMvZHCDY7qFV cI+FVeo/yHQ0T2CjYHnAXYuQahMlmz/SBlRUcouHeOvjHTEDRlUCQYlRiMv8 /b0Nn8uVrHE8Oiq8/4EH4i6YRKXKBpu4jMgQBpu3j8ZqFB4fxwydlNLaOqbv 2U8kdtQIH6RNjFr3OzNgvV2U4WHBoSUTov8fk60ObT9wxpqdm8e34d7Lq6v3 702cMaptLeaXIeHtY78/fFNMGZmxtDA3x0T2qSOfd6trO66Mm4idcJUQZZFw KzonstZTL448IbhGTpoqkaJTG/9t79WsD++w9BcBW5LZHeMZeOcOuFrLn5fC ahiuf2L89w/5XzoHtrG2FhERBD5FRNYFuhBq6VnLwlrtponXsNfPruAgDMwe ah31bM90QSPCnWtvxPnk3KokXeUhy/IxDPGsFJ6dGhZo8n36JotdJnUpaQsM /GAD+rUDjaB6Q+YFAUuRRnp7nyr8Hheju1CU5eOgCQUDZlFK1HBHmIg32Hqh SDdg9P7Wj5wW86knqIVZWD4F/ME7Flat/yDb0TyBiYLlhesyo/hchhdKi3cP DdfpqU4JvyljQVFYH++IGTCqEjBPjEJcxkcTcnpy1qy76rKPa+EkRsUrWxKV Khts4jIiQxhM3j4qq1Fesr0vuwBRKhv097aJj3N1iNhRI3yQNDFacmw5O5Vo MjIxK35RJr3HH+Pdq2krPxvWvnGI3kXLuxJULfLN9xZuFZcSdb4CxyKbrJuI na/i7A9dQwJ93L5c6J+OSJDMTWEPzaQ8FBuXH/u6bX1q9ilfr5ndvQFRg31W n2edPqJD0iWhCWKXmm3+/aycnR9/EqMsVaOnOkw6L7LNF7PRRlzYrggSiIdg zM6Gjvrg/+aHEzHK3C3ihcFYln8i9atp7/ft+GLDYKpKoxd6jPh49X9Z0yhK DQbviselgb/JguxPmD+6z6vhNQOpoCebdew1Ycn64ze9fSncxVJxQdmjWwkx Dn2mo+o0Xprln8a4/0dC/+aVg6q0m7HJ5+JqUdb+xGVLvz3k7/wR9xjps/Ex posM/vcXV8V2/3NtuQD99ESgckPmFQFLkcU58Q3s1+LnFjCmoBSFmwdmERFq MItc1HBHOBh6Gmy9cKQaMOq0YdbyHLDNDuMPzrGwmv0H2Y7mCTL9BydxlWgf pZXbWyaaXLzgXtP9VLHO4BFpegMGjNLYJ0YhLuOlCfNOzmpX17yQX73W8I1n fVgsTutdza9V0hjFZUSGMCqKWaw4lyAGUVOOInHiOSg4YJSWNDHKCdbMCPcl FKX42rnDm9Z+MW3SoH/V5TypJxr0GPH+jCVrNu//X+4DCUoXWJIs5yZijeJU CFG92tKLbnTNsQkRVKBfX6h9pKYZ8eV2nOm31WstPCviQ2IqWBzw3asiMjGK ILJj7QsjMvGBVjzEYO39+HTDhmSMMneHSGEwZB+c/drzwTrTlxXW86M5STvT UpMTY03/JeixTgvTC0uKD88d1LSSKVhovznX86HZDfyXn7ma8nm3OoH6Oo0H xn2elGI+4JRXzQ1q9GGRM9I9Li2ydlWLVfsc7yWAarfkiJ/ft7VLiV/lbdf2 D7EWdYlrA2jMSu6qF63WHDjrNxShjYZRtSHzioAAPH//EL42jl2OG0It/F2U nwdmERUqMItOqOCOsDD0NNh6gdcp3YDRvG/freFkClC5ExoE41hY5f6DbEfz AKn+w4Mr88I51fuhU7ZJ8fGXZK7vEsin8oQLPpGmN1wHjHaclEXKhhZUYJ4Y hbiMvyYsvpGT789CPbPwTiHpbkeqUmWBSVxGYgijppjFhrW9GwvhA+g9wfkG Kfn3BkqVGDXS5+b2DOLc1z9XXSA7TvE0Y1QijCdWvGA/mZybiDXKVbY3qKde n53rupZu/lr11HNvHPDjvV9d1APVN2Xxxh0HE72Y4NJyX0hNINf54ZkYRdCQ gb3/tOrkrcTlPRCKh0jsT9JfwcYQ4cJgNOZs+KSNZSRGSIe3Uv5giXFp0ak5 fYMCqEEfx0baj+7FJ2Qa+FcM6Nirc62KVKsPlmUWsvzwB7eS32xibs9fLTT2 sIceNSzvRVRQdvv0JJbrwqMkiVm69F3extyymISO4V5yb3PFUcTsfWiCb/au Patyk9hSqxuVGzK/ju+nCLHrhQQlRkVPCgCziAoVmEUnVHBHOBh6Gmy9YFsv zYBR4+/bewdxj8snOww4g2ssrHb/QcajeYBc/+HG6rceY79HKYZ25Z2c3KQi FUwN35nL+29xizQ94zpgFGUfVFLAPjEKcZlEmpC98I5kVju5StUBJnEZiSGM qmIWO87Wtn6zxMsotSR3Mgglx9xwLhIlRq3tJhhCKkw4IKBdOV7InBi1VkdY lbNSA0a1A6M3LMQkXnD9TfnB+fX8rkVkjSAXN+Su6PK8FpwmUWKz5OWlyd1D KBc86VXDzYup3yyZHheXfp2l+ri13/4UEXE+H9FbY9iWumPiRTGHUgRk4iEa x5MkN/wRKAxGY/bqd+pbJomHdHovo8Dl7g331nVlxYhe5mExDfytv6ww8Juf 77r81nh6jaW3vE7Xov9+t235OZXPQsssy0sPvd+CZaf+teGq304Ls3QZqB+V 6K1BBqNGRM30sbgKnh+IAJzjMh1VJzIpH9HBtYfKDZkXBATgJ1fYRU9gYnRY 2j2/rs0DYBZRoQKz6IQK7kh5Q0+DrRdu6yUZMJp3alqL6k4mIGzE8hyR2zw0 DKaxsBb8B9mO5gGC/YeHN1ZGcfRAw9htKB+SWc/UEFhxgWGk6RnnAaMB1Oh9 hCQhEIJ9YhTiMkk0oZE+/F64/ZL1VNTI48ViD0mwUrWDSVxGYgijqpjFgcvo itCx6wpQ6UnnoeFmolb+iujofoE+MWosv7r10yj2MwuuMOh7X229SUDWxCg7 FG0Us5OMbtrE4mTK3Y7nNtL7hjekHve7nzbTWlyUc3Xvh7GVKDYIDJO5CZIz ev2bC/KcLrLo2o5PBja1nt5lbMe5me14KA0XZ0nk1himtwOhZQOIxEM8NrUm 5VgWqREmDFcTR1gcD2/1TqzhNV6HjLM7P3iJnR/mzrO31eiedNntTy7O6cSY GEEZPU5VEs+aYfbSpY/dHMxsRBHVXNcOjXwq0PTE+iYj2DniYPeAqhzdJnp/ uqZRuyHzCP8AXEi7eG5iVKT7DWYRFSowi06o4I6UN/Q02HrhldvIB4wa839d 3NNS5c7C/ToS4Ce4xsJa8B/kO5oHiPYfuBvfzGvFY/bkoTny2V2jIsxZ0ei5 6YX8pRfPSNM9rgNGtVlWin1iFOIySTRhzvbXWQpk/EEE/VqJVqo28IjLSAxh VBazOCg58fUrbM9bWCMFdxSkxD3rpDxkf+OIE6OlRcfmDW6gZx3On2HHhCBr YtRlVC4gIZzFSQ+9g8wWU091m5rj52Z45g2KEhV2d3fb5bUcckRozbYV7ngj OxWpfmtZnyq3Eju491znG2dcCD+ab/zpGL5mQ1Ri1HBnRctA27Ml1G9HJB7i sag1MofCWxEkDIYjy9tazXoA1WPdBY/raMzQQK9TwFht8WqOWHPTs99oz9l5 PppjmJcFflGt06wQ/iVJzNKlz90crFuOXPILr4u0UXR9ZccnpeiL4qwzA6jx hwkVbgxQvSHzBHGJUTCL6CDeLLpA/B3hYOhpsPWCbL2JR7dXtEY5YNSQ9dMH kS57RftPPQJZUTHgGgtrwX+Q72huId9/yEsay2rBp6NqP7XwjMjai/KrW+d2 rB5IBYf0W3FQQFYU30jTLa4DRrvGXcIzMygp+CdGIS5DrgntY32stJyzT/Ru UTUoVTN4xGXkhTDqi1lY2LO3DmvbaGaG2MawnKDGcWTvaV8JYPq12hEc+BQe 3zKpXV12UlT/bOuFR4nvoOtA1n0o7FG58m4i1iLcxUk3+/StHasC+DScZ1fe iugc6yx1FsKGfZ7xxx3hxuHc+vauBzURHNxvbtKRrJyc388s7uAoJ9fpIzok XXLJYxrpk3HtbIrL10SPi3M66YOqBLO0g6jEKGMRiPXbEYmHeKwCRlBvCmcE CMPdC/HN7NO1vDdLYelhLx1mWA38qfGHvHnT9s/Zm3t5ZdkbQY474tPLpWDP Fx2r2WumBTRqYA8d87Wbg33LAsogjXf/SOhn3euBPvbMmhntpNhEdijVNKo3 ZJ4gLjEKZhEdxJtFF4i/IwwMPQ22XvCWh8vbe3GVtPABow8LDi1+r2Vl7uEC qKhPNlyCDroiwTUW1oL/IN/R3KIC/4HVgdB2J2EvzD4icBHScD1zzbCoEPOS b9OP03OEKD68I01XWLuQPGsALYB/YhTiMtSaMO/bd2s4ngCqbvwqUKo0LnEZ eSGMGmMWBiN9bm5Pe/xi+ava4RNSzgmMEFgzVcNGfvfN8Ib2w8q+N7D0QXKv WlzN5WvaiCuP7mXt2TD9teeD2ftqAwIihs3OyBfVLdOGsSz/ROpX097v2/HF hsFUlUYv9Bjx8er/sryUUoNBBm1TeHZqWCDnUaFuAMiGkWSito2TStnf62KY 79s1YC9Oi29C6SoPWZbPR9LYVQd9Nt0Qdmlu/RYr/kz2dI9z8bYXvDotdy/O e9FW9BU+M9WTwjX+vr13DeqtmTNeZB1XTGLUeHSxfcc/UVaSCxLxEIt1fYxk JSNAGNijw9utPOPlT5jSR69LgvaqSx1VP3rLHc+HY+uZ6qGrPFmPR7eS+zEN 4lrGp/ouVC57dC7hw0jbsYX6J0y1sC9XhJlZ4OuW3fxtWd6+xGH/dBSLoh7d nndychNn5dZw+m51tK1QBPUbMvcHJywxCmYRGeSbRWfIvyMcDD0Ntp6XrWcd 5Gx8DEcfCxJFw82L+9fM6dPE2ZTon42avVdQ5gJwAtdYWAv+g3xHc4c6/Adz bnTNe005w7yq9/i/jTlFPG7IePdq6sIJ0f/PvOJXu9vIlD8ELlbgHmk6Yevh w0F4iwCiwT8xCnEZUk3Ibg2KcEa5SpQqDnEZgSGMOmMWNi6VSCaV2eqD/xy/ yc9iFmUd+Lxfc3MO0V7faDyx4gX7IYWXUPqBsejWpRwLF37N2JOesnZ5bC9u NtPKE3UGL/4h7cip7ByPZJ/+X3rqj0lfzo0dNqDFk4FOBwhp3nlualYxCmti yD4425pyrR7W86M5STvTUpMTY03/JeixTgvTC0uKD88d1LSSSbW235yLxnox T8l8n78f35+Wtv2HlfFTejR2Zz6CQqLfifsiMTk1LTXjDOuBXRdRbENzQ1HZ NxFrkyuLenpS+yVntw0IrUA1+teGq/xkjK0VQ6ftEiag7FGenK9M3CSd+zs/ qe/2uGzM5Q1zjhd6PYujIYaHqnVD9n8nt6zaYNzam2fWMIlRcbutmbKBAGr0 PuXa7YkDiXiI5WbGCL2OCu9/QFzvFAXhLQzsEhe3E5RYHB79tE0Pe/EoinPi G9ivwHsDCuaXvj4Bdp8Zk6vw8drznuP6onN75rAKk6pED9iQdU+AamAPHfPR poDV6Z167bNrPmX30V+5Jq9j99bEz2cNbc1pK2FF/+zLH6/6Yd8vv+Xe5b0E YSi4ZvNJtm9c+smotrWcHRKLdqreY+bXO9N/Op5lMdCX/0Tin2gETRgyV0hL jIJZRAb5ZtEZ8u9IeUNPg633w9bTFnPPiqBTN3332dCOzma5ItXvi62cqNk9 lzIPpadt/37V/FljevyrtnOXLYqqXmfw0u0598ldccQOPGNhLfgP8h3NHerw H6wUHl03lLtkF9K8+8cJO84Veo0vyv7OO7lvVZw1iNBRtZq8s3pPvuB6C7wj TWap8+wv+9PSN69aML5DYzehWYPmY/5v9eZdaWkHj2Y5tLLqAygSEqMQlyHT hNcOjXzK8qkG6Fp9lIgqK0qrSKkqH5cRGMKoNmZhYyzL27uqz1Ns/95kOhsP mr3qwIVbPhJh5m2VSbMGv1Lb8tf6sBdjt5+2WZbyktTBYeb/6nPShzhcx4ki JqBSw25Dl/x47CaSwk3WvtqQDm9xSrZKi07N6RsUQA36ODbSfnLhxS1cUDwl 0cbUZcCo8e7V/QnzR/d5NbxmIBX0ZLOOvSYsWc83KQ944/bpSXaNFDplm+3J mj75tGXdTJ+8sO7ZzHvUU9HjzghKlhuzkrs6easBgRGjPs/k6044UVp8aEqM UzMqp2956UG/arCNN89/Y244Y6kVGT0v5cTvhaY/M5YWXjy5Y8GE6P9nq7/i LBoLrjynuWUDjWJ2kjt/F4V4iMTSOQdr598H/IXh3g9jK1H2x95xUpYXEffT o2AG0/voaMHqJmf2HBKve/ut8ebvX/27uWMJ1BafHj6VfelyoaG0MDcn+/TR TasWTOjKqm6qXveNhVtzhXr1zNAxn1V5rFv2XQhXen/dq86zwDzpHX+XXh3c Pzu1rrtMqK/zwNRRHmjDkDnDPwAvPzjfPuJKYGJUeC0umEV0EG8WXSD+jnAw 9DTYej+K3sseJPd03nYkBaFt+n6csANSoujBMhbWgv8g39FcUY3/YMd4Nzdl 5qCmlbgvNKhqZO8hsfO+TEpJS7fu/rCmBb9eMmPc2zFh9lxq9bCeU5eLXGHD OtIUFjexQLXiiikkJEYhLkOjCZnNHTV6LNkjYI6wR9SkVJWOy8gLYVQdszhh vHtp0ycDna2tyYFs8ergKZ+u/H5H2k//zbzIlEoumz9rTO/2YQ4FUb1uv1lr TjgZ3Mt7365Z0eekD5FIkhgNerLZS10HTYhb+v2PJ66hC1FY+3PdF64Y7q3r ygq+0OWUsUiMsgeMLj9zNeXzbnUC9XUaD4z73OTOpSYnTnnVXNmlD4ucIWzw AeAOSzWsxVe0bARe+FncoJcah+hFjco9NiHC9iJ9lX94oeDQ10Nf+IfZealW J/rtKd/+7xKal172KOv7BcM6vVDb3vSiSqPnO/V/O3Zx4n6flR5OGMvyj2ya NaRbWBDnSwhp3mXGpmN3Ld8C68sSZ1jvZk6qZjtOldHf3Rd6GBxAIh6iLyAw 8IMNxDSncIKvMJSXbO/LdI/3sdDHmorl5Zf+d7RgbdPwr/Kt7GH21kV93TYr 4KKv02Sgq1/BC2bomI4Ki9l519tvmVv2pxCOR2JUHzrmO35lqoXHx7l2vfBJ TWrhb6SKvCJoxZCx4R2AG2mmK4LAxKjwDvNgFhFfAMlm0QXi7wgDQ0+Drfen 6N1QkPCK77sQQrV6ke0tqw0btmVcFKHYAV/gGQur3X+Q8WiuqMh/YGP48+z2 BRM6NfBXI4U8H4Nm0wHmkaawuMmB6gMoIhKjEJeJ14S29tHixiN6Ql1KVdm4 jLwQRvUxiwuG66eT54z339qaCG3d88Mvk0/fcm9wDTmH16edfgDFjxauJo6w ZEW9TR9jTQlXW79Z1qjcgI69OteqSLX6YBmngOfBreQ3LYNpqoXGHhYYpwCu GK5nrv9kaFQ923cd0vSl4XNFLUGwtpAoNzBLTh79lWuuwExL++lQZi6nofTV RT3sT0L/xPjvBTerYB5pADUslegaLKXFw14D5qOOCGN4CwPjq/he6Pt728TH 7b8dlnbP08+YjhZ1IpPyvZ08e45jzBafeeJlD3P2Ji+ZapuyzVCtXmTnXmM+ /SJpz/9yxbsOrKFjPirQ2LfMs64MIBTNGTJaUADOfER+fxpMIa6ogfJgFpFB vll0hvw7wsHQ02DrwdZrBoiFxUJUYlRN/oMbyh7mHv8paVH8+H/3eumFZ0LY W+QCHmsYGdVjyLiZq74/fO46sg6xJEaagANCEqOaU6o0Uk1YdH2tecK7Th/R KfG8kJEE3lGZUlVS2AgMYbQSs7jixdpSVOhzbV7q2X/8p/MTt+5BuZtS7RiO LG+rs8lGj3UXPD63/P1D/A7uSILZf20huMLAb36+62KajafXtLFIu65F//0q SgqrDZeuyJrFrp/FWlV7EzAdFd4z3WutOwEoKh6O8dbkdsXhKQxGOmv9y5Td qfblJ9gL5LwuCRrurGhpbUmkp7rGXfISQ7Enm/sc7CU77KFjPpzPR3mLmttv WaFel4DcaNCQCQjA2VlOP4d03MkY4dBIIlIPYBZRoQKz6IQK7kh5Q0+DrQdb D4hAay4EUYlRVfkPygORJuEQkhjVnFKl0WlCW1aUCuk0dn+eJGPp1KZUlRM2 EkMYiFkAZNy9EN+sou09Ro08Xuz5l6x+swRVEfiGvbYWQLVbcsR9MPowd559 FnL3pMvyXiLAA/twc9+6Ts1wmndFbRG8y5n1dTScvlsFfaQVFI8ri3qazyzx bGsJ4S8MrCVBXwt9fi4JMi2J9FUnby3zcm5mmwZFPUEtzMLrmTNDx3zO32Q1 8Qidtguv2wAkQ3OGTEAAzg4uQqiFv/tRrscU+OmpF0eeEJZ6ALOIDuLNogvE 3xEOhp4GWw+2HhCFtlwIghKjqvMfFAciTbIhJTGqNaVKI9KE9qxo2OBZxz1P U81JmjF61reXhHXxUaNSVUrYyAthIGYB0HFj9VuP2V9Ou5VnkHROJgxWwrfm iDU3PYvn7gFVbcGtmjbMqo8LyV3sL1S7KWzWAkvtCRsFR3WGPfH1VKa6lRIP 2xq+7yFT2CJAGFiDbgMChn3lre0/I7Fcj8JYfvXwjiPX7RWGzIYvqs3K37wc jzVXXVd5yLJ8rISXXbfgy+Mt3RXnGLHOqd8rzstI25cruEc2gDlaM2SCAnBW Oxp/Boayx5IK7zAPZhEZ5JtFZ8i/IywMPQ22Hmw9IA5NuRDkJEZV6D8oDUSa ZENOYlRbSpVGoQmtWVF9hWZjV+Z48WHKS5O7VxW8uq5OpaqIsBEYwkDMAiCj 8OzUsEDby/E13pfpnFw/essd2S5RclgDRqnxh7zsmHUkRiXprAIgo7wkdXCY VYlR3abmeCvaII3ivH0rZo1//6Nle7O8z+a4vfYd2wD26tWWXhSqc5knqSLV rZR4/GndqRRAvfbZNRKfpCBhYC/0eR9Zzm43x+n8bCms6ph40fb/shwPb3mQ sgfJPe3HC6FmnPjbr8uVDaZazHfHPGa/SfXQVVeY/259YoKHJAK4o2JD5hZB Abij5w/F1hKeYaIhwWNowCwihHSz6Arpd4SJoafB1jP/HWw9IARNuRCkJEZV 6T8oDUSaZGNrQUmC16QppUqL1oS2rCgVPTe90PubtWz6E9goQ61KVRFhIy6E gZgFQAcrZ62nOk7K8rINtDgnvoH1l2rbL7l36FM2ne894ctu2sYNWgHcsA+E VZfOMdI/f2RfNgmmRu/x3B734Z+LIm150Yax24SHdDnbX7ceJYiaclQtj1Eh 8XDYVu8mGF+ECAN7f5aPAqqsmdEOP4HdEtN5SZDx0r05HswrpqinJ268g5l3 x3K0fDmfzH4T586f5kXUJj3TYeC1elGnIfOEsACcMXaB+lGJPp8RgjE0YBbR QbxZdIH4O8LE0NNg65l/AVsPCENDLgQpiVGV+g+KApEm8RSe2P7VsuWbf72l 9IX4RkNKlRanCUuLdw8N11UOHLT2lPetHCaMRxc38a+61Q3qVaryCxt5IQzE LAAqyku2961lfzm+PgFWZ05iPhZ/8D/hy/ySop7QLc2R7xoB3jAFJKIayeIF S+VSVGDgBxs8lY/f3/lJfYsbo2veK+228I/14pxO1pMF956rqro4JcTDsRdg WNo9WU6IGIHCcDdzUjU/fI8bP79fL9Dme4f3P/CA+Rfz0PPn3jjgeElGevfA UB9PklU/JvITkAhmYwgVoB+0xMu+teK0ePtoa267D/PUgwpVRn/nrQEIQDqq NGSeEBqA2+dB+JHrfHBlXritR0rE/AxhegHMIkJIN4uukH5HuBh6Gmy9HbD1 gGC040IQkhhVrf+gLBBpArKhHaVKi9CEpcWHpsQE1Ww0ZstZH7P3yv7Ov5S9 Y2QLSu9rCLsH1KxUZRc24kIYiFkAZLCkggqgRu/z9sH9vW3i4/bfkvKx+MXF TZ3t99Vs/hFvv2RSwzqqVuPE63JdISAMRw2JmF6yWGFrNmL7YLuv81BYZVPj Oqp2g9knRJSY52eMsH7zqiyKk1k8bHsBiFUdgoXBSO8b3tDyl54n+ll7rTgk m72rwpzI0IdO2cYuvXI0OvCksQtS4p61KmqRn4BEMBtDzI+F6jDpvCdf7tqh kU/ZP3mKilzyC/NP59a3p4T2AgUIQn2GzBOCA/C7F+KbVbQqjx7rLnirbvsx ro41HmnRf78wxQBmESGkm0VXSL8jnAw9DbbeCth6QAwacSGISIyq239QEIg0 ATnRiFKlhWpCS1a0MsUTYc0YVa9U5RQ24kIYiFkAZBjprPUvU3Z1VycyKd/b r82ZcesvSflY/OPeundtz6AiFfuzt6oWVkMk57IBAEeM9Nn4GOsLU01N16nY Vmb1/3zHD7/6MdedHjfe/SPBrMZNKrfRzAzPvXZ9wnp6oWPXFajP75NZPGxz pnx1LMcTccJgPLO+g/XenWqrrFgdj+Bn2r1Y1+p7sPdKmCeqB7h4O7bR2O4f Zsmvyb2DrV6HuE9AOpihY9brbJp4zV0yJ+/UtBY19M9Et61r+ym7qs2sCgT3 AgUIQo2GzC0lmeu7ODIDIRUmHODx8Zac+PoVneVrqv/PVRc8dLBhSoaEagYw i2gh2iy6heg7ws3Q02DrzYCtB0ShDRdCjP8g9dFsqN5/UBSINAH50IZSpYVp QmFZUWFL61pQqnIKG1khDMQsAFJYmT49FT3ujJf96+ZOPoF+/ZI0Do9+2qaQ faWGs+fE2LW3j4ZIAC44NpKopo7o8t63awbqIzqvynQZxGAsyz+cNOqf1c1f aXiHpb+IU7m2CiUd9Uy7LTdUutNfRvEgr2k/G5HCYDReXNzPPJ45gGq35Ajb ehRl7prcrq6+dtOP0y/dPzDvWScTU3RlcVSNIHez1Iv3zWtuOWD3xN8Y18NY lpe2rJtl2wWCT0Ay2JPcrYSNWJ7DrXMoPL7lg5Y1dBEdki6VXpxr6xPiKE6z hirtVp4hT5YAAajPkJm+ghPfjx01xsbod/u99M/aFblfRcBjDdt0GTTS/psx 736275qXAxbs+aJjNXPe0619NGT/d3LL6mLjETCLSCHbLLqD7DvCz9DTYOvB 1gPiUZ0LgdZ/QO6NuEcL/oOCQKQJyInqlCqNRBMa6VOfduKfFaV8D2F3i0aU qlzCRlgIAzELgJSSbRMd6ogz0MQVpousvurkrUwrIGP51cM7jlz3OGEWd5je pHqqa9wlLwq57O91MUEO9R218lf5LhIQgeHwouaWVxbca3oWsXLKpuTsrlER NaigqpF93p2xZM3mXWlpqT8mffl/E7o+H6yjqOp1+81ac6ZQnEErLd4xwNIC vSI1aFsuogvHEdnEw9a031fHchxBIgylRcfmDW6gNz+BViNmJ+1MT1m7fPrg V2oHUrW7jd7y+z2zvJaX/DzVUmQYQEVN+mrn1qRprza2rBa6ezEm07P10yiT nxhUud17pgOmpSZ/M6N/6xDTnwdVjIlbLfYTkBLW0DHq6WYRIZY+HaEdh81O SE5Nsz+ZigERw2Zn5Fvu3dbNQ0fVDp/wTUpK4oI+/wgI6RabCV0LNIMKDZnF /6zSqHm0H7Rt+g+99zkgFgw5GUsGR1mUQLXIN8fOdXxQQ7qFWdy3sN4fbbZq GwGAWUQNwWbRAwTfEZ6GngZbD7YeQIDKXAi0/oMU3ogzmvEflAQiTUBGVKZU aSSakGm9yxdufsEftKRU5RE2kkIYiFkA1JTuiqtk10feawPYVa99Nt1g/sGy 57pjoodZh/hTeHyczj+FzG6I9AS1MEuV2/XViJE+N7entSDE+/QxknhYcHrb NzPGDunR7sWGwZaVluda9xg6ce43m07fQmAvb2+Z2MC6kjNx4x11S7o84mEr q9BRjWJ2krbVHKEwFGUdWBU3snvkMyF6k+P9Qo8RH6/el1XMPqaxLO/Ahtg3 Xw2vGaiv06jbyI9T/vAmz4brmevj3+9rqWnU12kS/Vr/KYsTD/whNPEhD8zQ MUtf+mtl+SdSv5r2ft+Olm854LGGrTq8MXH2ppPXOU04HhYc+27+sC5tTL8J adRy0Oy154uwvksAMao0ZFJgLC347fD6BVMHdW0f2aCq2ber06Rt515jZn2Z cua6mM5AYBYRQ7JZdA/Jd4SzoafB1gOASMCFUBQN+Q9KA5EmIBOgVBVFW0pV BmEjKoSBmAVAjZE+s+ZFe67Pe/Fb1sxo2+9CqIW/M2/VmjCdcbJU+quVhjsZ I/x7Ao5xuiaNUdnD7mkAUx7dXtejrqVbcuOl6ijqkpRrh0aaN/vr9S+PPOZt G7lakEE87mZOqkYR2YJba8IgA/n7h9jLI320KQAANmDIFERrmhDMogDIvSOt ibc8gK0HsAJcCKUABQsAqgSUqlJoUKlKLWwEhTAafPuADNg+AV9pwRs/v18v 0Fb1yp2MfGxChPuRtaTASoyO3u9ZyZQ9SO5p3zKrombyGiLv5OQm5srtkC7j j4MK9YLD7DZqk5itGR9PavG4uKmzpcpr4I4bvn+MD9oUBokpPzi/nn+NGgDA GTBkiqBNTQhmkS+E3pE2xVt6wNYD2AEuhPyAggUAFQNKVX40q1QlFTZSQhjN vn1Aaoz0vuENreWsT4z//qHb39gmnljhTkZ+cGVeuD50yjaChZLVC91LYtR4 ek0be3iriQ37aqTk7LYBoeb8foNx62DDr3tsM9N1VO1GMzO0NRhaSvEw0lnr X6Z0uhb99/+F9shSomFhkJTsOTE2W1KRGn+oWOnLAQgDDJncaFgTglnkA5l3 pGHxlhqw9QCGgAshK6BgAUDtgFKVFW0rVcmEjZAQRttvH5Aa45n1Hax9ftxu /LRmRYOfafdiXWtiNGDYV44KBcOe+HoBhG+fNNK7B4ZaI9dhaffc/6a8JHVw mHXDrK55r7TbUPZLKiW/Jvc2T/ahouemF4Lr4oTRmL36nfo67doaCcXjUf6+ NYs3nCTnqWpeGKTCNsGBImWIA4AhYMjkQ/OaEMwiD4i7I82Lt4SArQdwBVwI mQAFCwDaAJSqTIBSlU7Y8A9h4O0DUmM0XlzczzrMt92SIwbWvxRl7prcrq6+ dtOP0y/dPzDvWWv+NHrcGeuPiq4sjqoRRP60Tcfw0Gbzj7j9QUFK3LPW2LZ2 g9kncK6iAHxjq7QB18WFgtT4FpqvwAHxsALCIBU3M0bobe0XCBjiAOAKaCp5 AE1Ig7CpFxBvCQFbD2AMaHUZAAULANoBlKoMgFK1ok1hg7cPyEFp0bF5gxvo zbnRViNmJ+1MT1m7fPrgV2oHUrW7jd7y+z3zDsnykp+nxlS25E+jJn21c2vS tFcb6yI6JF0iuI2ujcKzU8PMA3ypjpOySpz/0VaVAZ+hijBk/fRBZA0qmBq9 B16ojfKTa9qavoHwDkt/0fozAfEAYZAO9tCxmMQLSl8OQDCgqaQGNKEDEDb1 AeItKWDrAcwBrS4poGABQGuAUpUUUKpstCZs8PYBOfn/7d15YA3n/j/w55xE SiRq+yF1LQmlwm0bwS1JbnsjWmtbtdTFdWlLxVLupWIpbtrwtbSWKkppbhGt qKXcNtEKLVElRVKkRWyhEluIRMl2zi9nnTn7nJlnzpk583791zqZM2fmeZ7P M89nnucpyd2/ZuaYPpGPB6tJndZP9x09fW1Gbin7JQRNZcH+zQmvPh/eyF/d tHXvMdN3XZB/VlSvNGNBhD7n2yf5JJMarf696St6P6ZbxxvV0NeUFmQkL/3y JOb/GmkuZK5ZuymnCMtE6ym7eKAwiIfZdOxRsjhXMS/5gUiU3VKJDS2hBRQ2 34LiLSrEepABtOqiQQMLoERoVEWDRtWakgob7j6Ah2iqLm//T1QAIYG1Y8Yl pexOT0v9dM7gZ4KrH2kDA+JmrkU1BAAAgb4ZUpcYFqWPmZDtIy8WAQAAAAOx HgAAAAAAAGSk7Gr2psSJA/76ZJMAom7aNvrFwdOWJu+/UIycKAAACFewbW5U Q1VI134fHMYSBAAAAD4IsR4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAJSu8kHe3i0ff5Jy9PpD3sco+/3UV+s/ TE4/caeK4pkBAAA4RiN+aRHCAAAAAAAAAAAAABSi7O5XoyKCVIQQlarziMxS PscoP7VjSIg/0eu87KjixpUvpw8OadnvX4nrt397NDcv7+qtMqsPaCqK8s/n Hvl+14aVs4c/12rM2tteOU8AAF9CI35pEcIAAAAAAAAAAAAAFKPq0NJ2xORR 1fI8Hoco3zmgsekQfmTgokIN/fOUMI02Z10XwpU6PPrTX//w9jkD8Fd27oe3 OzUgMROyBU3RAxCKQvzSIoQBAAAAAAAAAAAAKEjld4kNTSk70ntWXqX7h6go Xh8dYB5U7rvxjMIGld1IjDbpPWbXBSSTQK409woyV06ODNRN0COt++0p8fYJ gbJRiF9ahDAAAAAAAAAAAAAAJSm5unFkt8a163f854w9+TxzdiUH177yeF11 0ydeW/N9keJWIeSUGFW3jIj/5NvCcm+fLICbNCU3zp/6ed/OLYv+PTKqsb+p RCMxChJAI35plR7CAAAAAAAAAAAAAAC4MyZGQ/vFxw/o2bFFXXY+tE7rp/uO nr7mmyPXkRIFuflmiEVhVjdtM3R60tAwJEYBAAAAAAAAAAAAAACUyZgY7br6 pPF/PLybn1ftXOF9rMgIMnZi9aT4cRPnLF66ZvPOfT//VlReXbYLlzyFxCgA AAAAAAAAAAAAAIAy2SRGAXwVEqMAAAAAAAAAAAAAoEwaTd4Xc7s3IN2Tz3r7 VHxTxdczHwn+0zBseaaVeGETJTGKuw9S5EuJUUm3Kr4AjRjDrcJWcTctMd6h 6Sty+G+mCspAowih/rqGIAIAvgjtPwAAAACAMxWlB6bF1SYqdYfnvsxHp1kc t04ldm5A/Gq0H78674G3T8aLpF7YxJkxirsPEuQziVGptyo+AY2YgbuFjall tmRe78AzqBQh1F/nEEQAwFeh/QcAAAAAcIQZDYhNOY+pC2IqOP5Ox/qEkNDR KxX6YCKDwibaUrq4+yA1vpEYlUGr4ivQiPEobEiMgkC0ihDqryMIIgDg29D+ AwAAAADYMo0GkKZtludiNEB8F/f+s5E/zQcTTWXhoS9nv/p8eCN/ddPWvcfM 2vzLDfeO8OD2kc+XTRpgOELb6JeGvvflkTtivC8vj8Im5h6j1O++gpUVFRSV e/sk5M4HEqPyaFV8CN1GTHj80ko+hBlrmR/pOfOCvCai3buwfnBE7cA6MXO2 Fro685Lcfckrlv/3QJ6SW+WC/Zs+XDI/YUJ8/MhX42KioyMeD1arScyEbJeF RaM5tyEhqqE6OOLZNSf/4Ph13wyp63bTjU6ILZGCSHXjdmzvpkWzXnulZ8cW dZlUdr3mkc/1Gj4tcf03R64rqrbcOrngr83UhLSa/Q1CtS9ACTeTS9lG+w8A AAAAwKbRnF06MLC6ixxEXtud7+2zUYryrE/+ptI9O7aasuWWwGHSipIjC4a3 9COdRyel7N6zJaFfbf3djP+2gOMBynK/fTummbr+nwbOeD9l154vl/2rm65A iPDQJJvCZi8x+vBu/qmf96Wnp+/57uivF4Xk42jefZ+nqbh9+sc9Oz9f8+Hy 5UvNo80xkS0NIzDqwNfW3vb2Ocqb3BOjsmlVfAq1Rkxw/NLKIoTJNjF6aUk/ Y+MQGrf7jtOPXtk3opb+s/VD1lzy0OlJTtmtVZ38bWZ0qkmvmedd3vfL6a+a /oD7S1l8EqPohFgRI4hUPji348NRf9ElSphy0LRtt2eebBJgWThaRsSv3Jl3 T0Pne6VMoz02M0b/o+XXEoI1lHA2WZVttP8AAAAAAGY3t01pqe/Kd5qXUSre 11Q+yNubumzWxAHdu4QFmV8obRr9z6kpx67yTzHpZppsfXdE71D9KGiTqEEr fr5O8axFVfDfNxroH6HiVv0s5HXay8mjW9SqMezzU8aDFO4boR/GVHUekcnh jpaf2jEkRB0cNzo93/SKq0ab8VqY4fGux/qTFB9lPVTYKGAnRvWzmQY/F1rb 8km/abuBby9Kzyvmd31o3X2fp8la9bTNKDP7PtR9e3ult09S3mSeGEUI8xYq jZjA+KWVSwiTaWK0onh9tGGMW026jMkqc/bZW58MN9aLYLL4N58eA3dKU3Lj fF5e3plT303va04ZhLzztcvbzlxAPzI2g2tDzC8xqkUnhIV6ECm7dHhBzza6 u+9XM6znsDlrP8/85WzhfaZSlN2+mv1d6qLxr7SrZerKhMcu+/GKb98ITc6m WCLjzgaYoYRbkV3ZRvsPAAAAAFBNk5vaSz9wE9w7Ifu+ON/x4PaR/857pS1r gR0rQTWGbzvLYxBNc+f8ptejgi2OpSIt2idflMmwY0XpNyPDde9s1qs758hd fscw3MFOizOZActbmaMNFyOQzDlW4eLvdSvq+AX3nHT0nsX/zpsXaxwL5TLN wZ1TFbewUWNMjD6TuO2/r0UFq/3DX5285usff7uuf+P5YXHut5vf1q+YROr/ adia74t4XCIad18Jqg6vinDYdui8svWat89R5uScGEUI8ybBjZjQ+KWVTwiT aWL0inkOo7/6zWRnq7tWVaT2CTaW4fDB+6Ue4j2heOMb5oo9dJerhQ3YF7B1 3G7O6yDwToyiE2JAPYjoX9XQr1TZf4rL12bKzn3/bo82alMoYV4R8T1lxRt7 NWQincsZ6CBVKOHW5Fi20f4DAAAAAJRcWhpVX9eLr1cz6QTX/YzcUnTkizef rO80rcF3KPjWqcTO9o/caVmWbOYq5O/7p24eokoV8VL6TffPuqo8bXgoiRpz lP2O+7FVxiyHH5l00OkEj7Li1P7NyZ9f2FVg/dUnEjqZBugoJUrEL2xUGROj uoH1J55ZdMDeS84lVzcMbKvSX+fo+Xv45EYF3n2lqfyj8OzJtLkDG7Fre72g 5edw6YTxfGK05MpXM0dGNPAnfjXC/5GYdc/1Xzg4DkKYtwlpxATGL62sQpg8 E6OV3yWaR3t7pzhdHvdO9tR6xjunHrYMy5tXOzi2lbEQNm6TfNXVp8+k9jRe aXWdsZ9xbxT5J0a16ITQDyLGnFFQjaGf/sR1j+MHRXvfjjMuSeKrmSOt9uYX Eyw6b4+qlud5+5zAfSjhtuRattH+AwAAAICSabTH/9PD8JzSISmD/kOKRnPu s39FBroaUTYJey/DrU55+Y4pDo7k7//WZg7zTKTCuJoNv50+Tm96jpC45DPs /8fsCOZqLO7e9n83JGTYDpsNlZiZC65Xz+NE7MJGnyExqiKtuyafe+jwU8aH St1od5/kkzx+l6C7r0zGlTYJzfKpcB5OjJbd3TlU/0aBSYeFmXxGZBDCpIF/ IyYsfmnlFcLkmRg15Zd1ey8mnXR63tnrnjGV4MhlP3vqBCXsYcGSCH9jIYye kOOqEJpKPiEBZNIBN9ZzFZQYVXgnhHoQuXMmsX0An9TPw5sb+zYzFgCfnMB1 88TUUMu9dzmuCQCSghJuS85lW9HtPwAAAAAoW3nWJ39T6Ycfw/vtEWHJF/OW PUQ/FthjaUbe+fPZ3219b2BEkIrYcH/0UlNRdOboqlfa2hxMZqPK2ge/L4kM MAw8Tvq+yK0/1Y2khUSmFLL+18Obq54x7Qj2clK+k80Xdd9bk/SelWf7GdbU D79RH/OezmUmdmETxfUjE8LrTt5b4PxTZ+f1MA7jN22xJs/9p0oBd1+ZNIeX tmW1G49O+vyBt09J9jybGK06tLQdjRYbIUwq+DZiguKXVm4hTI6JUfYGoxEj DjmdTsfsjxlAEn6Sw9tPYju79QVTlXa9wWjRqVmhpiyq3SLtmMDEqJI7IZSD iEZ7bGZM9eEs1gbn7kL6kABjIFZ1HZEpvNmSDtOVsTJ2n+PXDkGCUMJtyb1s K7j9BwAAAABFe3hjfVxD43jv+pP0109hHn+qv6JG+/Gr88zZi4r7e8d2tH2I 4LkkZlH21MYyH1XWakvTE9saBsSsFhV0TjdoWYsMXFTIumyarFVPmy6E1Uwc S8alYsfutfMcxM49uVg9jwuxC5t3sabJNJm8hcfAJM+7r1TXPhrAru3YYJQC zyZGbWdK8lk5FiFMSvg0YoLil1Z+IUyOiVFmg1FXq+NqtN8MDTG2IS2it93y 2ClK1x87ptQyFUKXG4xeW/uPRwwfDbBfpJ0QmhhVbCeEehDJ2/my7miPhEV2 6/H3N9dmXXf3AKYX7XSiP8zymdcLNDmbYu2ETNI9+ay3Tw3cgRJuwwfKtkLb fwAAAABQNsMCdOLNtbm8pK/h0UDd8slJm2x2ISnMHF3LznMEvxcs9YNCLH5k 6Fdyy5WY39gkJGZ1DvfxmcIft6afKWb/nyOTOxivQ6Nmay46PVLlH4WXfy+1 N0LL5J5crp7HgdiFzcuYqUkq0tRy9hNHfO++EjErZOphg1EqvDljlOfeRghh 0sKrERMUv7RyC2EyTIyyNxiNWv2Ls4+W5M5qZCq+L753RSY/UFRMYa4fssZ5 cv76kQkhhumiqtojVhS6efWEJ0aV2QmhHkROz2VPHFOR0Kht7iaOLu58yfzn PtNhLive2Kv6SqserVPHKmJizW15QQm35htlW5HtPwAAAAAomvh94KIDydNm Ja7/+lD+fXuH12gzXguzHlMmpOvqkzy+y3JUWa2KnXjivtDz9zxmiKbd87tv 8L0nt45OqG28DupXFxXwG5xkck/Vz62D9wu8mD7/wMUklXT4TWCkc/eVgElD E2wwSo2H9xitKD04f1i7moQE1u/4zxl78t1PJiKESQ+FRoxK/NJKNYTJMDHK bDDqcsc01rKx7m6265vYqxA7j1PMSowq0qJ98kW3CweFxKgCOyHUg0hpXmJL y3jwqGp5npsHqfxjYxyzrbWrWfPycPOLCY2IStXx71+vHW95geS3NoKioYTb 8Jmyrbj2HwAAAACoqyrPGB9ZWx3QYfZX0t80g+kA83jbk5L7W6weInTDR3Xf 3u7Oxkp6Fg9ZKtK0zfJcmezrYaXkXGKYYcoA6bAwk99jienO6vBfYpS1O5uL 1fPcOCVvFjaxsfMarrcSs4vG3VcCbDAqCg8nRgWTQquCEGZNcCNGJ35ppRrC ZJcYZVJ71b89brfTqT3FG98w3jk/MjZD8i2IBzCrELuIU2UHl0QYPhhABm45 y6PiUEmMKq0TQj+I3MocbREOqu9I3G73W5/cudHmgOJ6n2Xpu3liaqh/dbMw IPVS5V5mBjqt9hk8ByXcii+VbYW1/wAAAABAn4yGvMrurn/OOAzLb0tEGjTa 3E3PWo8q83mOYMaUqp/RmrSemynj3Jtp7xW+6wtVle8c0Nh4BH5ruuqxc08u Vs9zSRKFTXSsxKif1ZZ53Am9+8qADUZFIa/EqCRaFYQwOwQ1YpTil1ayIUxG vUQD1gajLuPawbGtjPeucZvkq546Qwljr0LsLE5d+2lic+NwdPjMr4p4FQw6 iVFFdULECCLMatLGShOz7BCPBS1Ye3DLvzaZZkMH9Z+fV2ncFdriGsmlMQQt SrglnyvbCmr/AQAAAEAM8hnyYvZ3c7k2mqiKjk5QWY8qu3v1yk/tGGLcmImo n3hm8WEZDynrnN70nOla9Em56PafX2ZmKNQZ+xnvmctM7klwCZFKYXOTpvCX 5cNjQ4NrhvUevv6Xuy4/b5EY5d0CCLz7SoANRkUiq8SoVFoVhDBbQhoxSvFL K9kQJp9eogE7tdd+4SFnH31YsCTCUIzVJHpCDpY3Z69C7CROlVzdMLCtoRVp PGJJHt/lD2glRpXTCREpiNz+dknv5rreoLplRPyn3/NKc1tnWIbuktO0Myua nE2xuipQM+nEH7r/Zt61MDb1JGLEoT+8fZbAGUq4mQ+WbcW0/wAAAAAgCrkM eTE7o3l7ez7LnRn13NsO7HbGR70fMw4pB8f+Y9cFeS4/yMasqagm3afmlrv3 17c+GW68kH5kVBrfJ0327mxP9NvjOivomHQKm5uOJ3Rmnm053AiLxOiL713h 1wIIu/uKgA1GRSKjxKh0WhWEMFsCGjE68Usr4RAml16iCZPa8yOTDjr98Rd3 vmSqAzwXk/cxXDYYrSg9MC3OsKducI9xmbf5v+RDLTGqkE6IdIKIHdZpIxnv 2FtWvLGX7t2K8LlppYb/Y2ctVmn3N4A+nyjhPlm2FdL+AwAAAIBI5DLkVZg5 upY0HkY02p2v1LEeVeb4HFFRcmJFfLhh2MmvRvv4D3NL5PdcZRcz1SWYJOW4 8x77w5urnjENxP150H7WZdRcz92VfuQOx2JJcXc26RQ2tzBDmtzKpMU0Rl6b DJrwv/sKcWwVKxOFDUbpkVFiVDqtCkKYPTwbMVrxSyvhECaXXqIBe4NRVysb V3w9s6apDlhM/yktyEzPyFdgM83MHvJXv5lsZ9oQKysaOvzdo0WCChe1xKhC OiHSCSJ2sV4zELI7g9fd/GJCo+pi2e753TdMP8D2baJHVcvzvHqW4HnyL+G+ WrYV0f4DAAAAgEhkMuRV/MV44/hVAEn4ycuvA5o2pXLvOUK3zOnAiCCVfryu cev4TT+5MWQqfaylbNwbsWH9Yci0HeypR5eW9CMt4nZz2zGE4u5skipsbmHN AFWT3rPynGc6H+QvMF8ygatC8b77ysDMKdPDBqPUyCcxKqlWBSHMDn6NGKX4 pZVyCJNJL9GISe25Xh2XmVtaP2TNJeb/GxbjldEq+rSwVyHunXLJ+p9Lrm4c pm8B/EjUjM3nBSeOKSZGldAJkVQQsWE1n05NYqf+yvtlOy+6eWJqqH91CR+Q yir/Fq8d6gWRpJPSbw2BIvmXcB8u2wpo/wEAAABALLIY8qoq3zmgsXH0W+AS czTkzYu1HlV2/hyhqbr81fu9m5rXHhy57bdiX+u3l+YltjQ9LbqzxtfpuTHG a2j1nqduJk4t7m/kUtudTWKFzS3n5sUR8khY59hBby/cd8XV+pbMALKKtI7b LWSGEt+7rwga7TdDQ5i2AhuMUiSXxKjEWhWEMDt4NWK04pdWyiFMFr1EE1Zq z9X68I6XjdUlTNt6v556HpMptmkQys798Han+oaXIsZtOV5KoyTQTIz6fCdE YkHEhlXaSNoR2RGN9thMXZMe1H++1YuFrNcOjcbuk/8a8uAGmZdw3y7bPt/+ AwAAAIB4ZDHk9fu+EaaRLqFLzNFgNf/L+XNEWf7RVcOjjCuWBtXvu2C7r67P dmRyB+O1eJQszuVWmNgjk5Y7g2hOrOtKyNCvuM2to7g7m8QKm1sMFy1mdQ6X wXhm9gEh0R9mCZx+wOfuK0RJ7qxG5nYCz+xUySUxKrFWBSHMLrcbMVrxSyvt ECaLXqIJk9pz9fNL0xNNU3T9/EZ9fM/8Dw8LlkTUqDP2s3uO/9Y3sXdqixhx yLyQbkVJ9qfTu+oXcW3SeyzFlyJoJkZ9vhMisSBih8WWAdKOyA5ocjbp3hmq VzPphPUy0qyGxcjOlGrwbXIu4T5ftn28/QcAAAAA8chhyIu9upfAJeaoKN8x xXZU2c5zREVJdvLs7g2Ms2zqRA9NzrnhjfP1kPtbxpuvRlzyGU5/cytztOlP 2i88xPz/qvK9b4ST8H57OK5DyNqdTeC2L1IrbO4xXLfmT6454+p135KLCzoa V08K7p2QfV/oN/O5+wqRve4Zpp3ABqNUySQxKrVWBSHMLrcbMVrxSyvtECaH XqKRxaqATpc6vHJgzGP+5tsduexn5p/0i/KNSpNi6klc1zNHq42F0Jgp1lQW Hvpyakyz6v+tbvnkJNqrZ9NNjPp2J8TLQURTXlbuolWyDCuSjsj2lRVv7KW7 xuFz00pt/tF2mYWuq0964SRBJL5dwhVQtn27/QcAAAAAEclhyIt5m1EiG+tY vDVq/zmiJPt/s3u0MQ4y+fQsGxONNnfTs8aLwfmFdtZkOvZ8pbKDSyKI5TYo zr+btTubxQC1+yRX2Nx17aeJzWuoo4el5TvOjVaUHpgWV1v/aK/u8NyX+cJr Pq+771scDatgg1EReSYxWlVWJmyzQcm1KghhdrjfiFGKX1qJhzA59BKNmPXh 9W1Ck3bJV+w1ygXH3+nYQP14dLdmdgr/8YTO7iW1fUXV9wubm65dr5WHs7at mtzzqSAVUbeMiF+5M+8e/cWzqSZGfbwT4uEgUnb9bMamj+aMebXH048Hq5lK FdLx+eEJSVuPXbU9A2YxcLEjsjhufjGhUfVpt3t+9w07Rd3mbSJ//7c2K24T Yh+iqBKugLLt4+0/AAAAAIhI+kNezBQAFWkamVLo7fOx3mfE+jlCcyd/16wB Lf2M/9Ck97iUX3x5lg2DGSW2XIfNCY0247Uww9+MSi82/L/yUzuGhJDQN9fn O5rrYYN5XBU4ZCRmYSu9cHTropnDejzdxDyjpV7T6CHjFm8/eJ3XKTvKxJWf +vrNDvXVoV2mfW7nyGVXs9eNMi6M2aTflH0FlLaS4XH35U5TcTsnY807Ewf8 9UnzPQ3pGPf60i15JaYbgw1GxVSevamnedZXcI3J+69TPHh1Tdk05824UOPu S8GtOw17d13WdffrC0KYXLjbiFGKX1qJhzAavUTPhD/2rDqD0NEr8ywT+kVH t73VqYGqQ2zK+Yqz83sY2+1pOwwV29CkcFyO3pM8cAEvL+lrce38aob1HPre F/uu3BfrYtCdMerLnRCPBRHdHOGt7w7/WxNTYFU3fTx28Kj4f89avOyDOZPG GUugn3/40Bl7LN++Y5ayNJynfNJGOjdPTA31r27kHL3QYtO2WK6/DXKhwBKu kLLtw+0/AAAAAIhK+onRQvPGOmoSPSFHCtvzsRbQs3iO0FRd/mrJgDZ1jQ9N jdu+vvbbQglMD/IQZoMqQoLJ4t+4DaaZVrQLjhuf8vX/NiXFd6pNQgfPOnSb 81gce3e2FtHbbvH+AWIVNs31Xze91aexn3WhMQvu1H9ttnupB8N+MY5WVDN/ Y3C754ZP+8/qz79KT9+za+PapPGvtNPvFBYc/lyCvbQpf/zuvmwVHd02+0Xd bBqdwLqR/UckJL0/563RAyL+pFt1MDx2+c/6JB02GKWnMuvz8W/GG419YyAr H21qhh8J69pz2BjTZ+LfeC/jCr/vup3xUe/qdqn6gHGDEua9P9s4jKZS6/Ip buZGEcLkgkcjJjx+aSUfwoT1Ej0Z/th7pbVq3yFY3z6HdB+VtD41rToCblip q8gBfh1GJWUW6mtxydUNA9uqdHNLwyd/umtX8qJX/uRHZW15ijx2AY8kdKld fbme/OvAMVMWp/wv64oIc0QtUU6M+nAnxCNBxLJXUztm3Ltbj14otanymjuX 0/7v9fAAy2jIvviy6+1otMdmxlSfdFD/+Xn2X2ixfZtIwk/N4IASS7hyyrYP t/8AAAAAICrJJ0ZZS8xJ5iVGZjsw1iPSUwP/NTjC+MDl59dhZOK+K5Tm4skH +33aobu4rmSjuf5rypwxfSIfDw5s2D5u4PSNe90biqe3O5sYhe32gbWvsPYy c0BFmrSem8l5vltVedrw0OpHvzlZzl6K1c8xmfXaKz07ttBnOuo1j3yu1/CE eSk/5BSJsEwSv7svP6WFae+Y5tP5kc5vfXiUPYuw8mHuxhlda6pI667J5x6w Fnci2GBUIMN6X3VaR0Rz0K2dLkPNb6ek23sWdKuhy24v+/GKsSky1Dh9VVV1 HZHpTtOAECYjPBoxofFLK/UQJqSX6NHwx55V17hN8pXKwqy0j9+ZOKB7l7Ag /VsTnWMHTbFZI/HB7SOfLRzVs2v1Z3SzwpM2/FoioQFVL/YfPIByYtR3OyGi BxF2r4bbdtJFhzcMaVqDmKOhdUzxIy++d0WSD5W2DO8JkHo1k044rhEWy3QT 2eTFwECpJVxRZdtX238AAAAAEJfkE6PFG98wd3TD3suQxIgVs7GdHcERL8xP y7V9B1UJ2DuwCNwojTuKu7NRLmwazbnP/hUZSLhRkaZtludyykRoTqzrSlS1 R6wolFIx88rd97SCYwtfMGy8qCKNW8dvO2U3B3Jz25SWuje0Fx1PfoN9j7HB qPRpclN7qe3MDGXvFRuXfIb7ARHCZAQhzA5+vUTPhz/2rLpeM8/LvQAroP9A PTHqq50QUYNI2aUfE2OaGXdZ9CNRMzaf5/b+1u1dM58gpENSRrnFBn8G8tmm sKx4Yy/dSqLhc9NKnXzMepkF+aykqnjKLeEKK9u+2v4DAAAAgLgknxhlr43W Pfmst09Hz3pFHZOgBn3fldZ0Aw8zTOkyPDOq30z2zGwEaruz0S5sBSnjm9sp JYTUa9mhZV27/xL00mzXQ5uG6R61yLTD0tpDxSt335PKcr97K7K+6SaGJBx0 PEPHcI9qNOjwRDPW3SVJJyXZyILZg2uroxqQenXnHLlr9S+sDfj81MOWcX8Z HSFMRhDC7ODVS/R8+Kv6fqH5G6XyBoIASug/UE+M+monRLwgot8T2TQl2Y9E z99TxL2TYihLoVHbrlukbg34LdfgeTe/mNCouhC2e373Dadthu3bRPVD1tjf sxEkRMklXGll21fbfwAAAAAQl+QTo/qRE6Ox+6Sysh/7rExjUiThx2K5j8UJ w96pxFMlquzu+ucMI/xq8udB+4UNr1EsbGWHVnZTMaUj+Knuk5ck7//lQpF5 2Lvyj8LcY+nrFo78i+lNZv1lG5Dq4nFUP91DTXrPcrBfjLd44+570rWfJjY3 ja4EkIEb7M8VNdPfJjY1iRhxCA/q0nZt7T8ecfB2PWuRLveKN0KYfCCE2eN+ L9Er4e/cvDhz+zzpgLP5MdKnkP4D7cSoz3ZCRAoiFjmj6sA38ys3ckZ6mqxV TxPSO6Ugc1wri2jiRyYdlMNanDdPTA31rz7bvhvPuIh9tm8TYR9DyVN0CVdc 2fbZ9h8AAAAAxCXxxCj7PUbJzLfS3Ln66cuhxMqjquV53j4zr7u48yXj5aA5 C0BTmPPx6D6hQf7hw+Ycum3xsFaeueRp0x2IWZ0j6EGOYmEzPJDqqZ+Imb3l 4HUnWbSKkuxPp3etZfw4iZmQ7WTcyzgVkYzdW8T/9EQizt2XhDtnF3QxzRUl pNHoddddlo6HBUsi2HvDSWZ/SXCk5FxiWA3SsvPmqzYNicXddCdcIoTJC0KY w8NyLvZeCX/M0G71jYvbLevtxRTTf6A+Y9Q3OyHi1GurnBGn6ca2SvMSW6oD BiZMYTb301/8ppEphVROU0wa7bGZMbpa03PqaQ6/3fZtIum86QS2FF3ClVm2 fbL9BwAAAACxSTwxeid7aj0pDdtWPji3fcmANvbWMZP+66MewOxUQu+xsfLB zkHMeqQWy4g9vLE+rqFhPFD97JgjAtNOtApbVcWBiR0Nhwkd/u7RIk5D3cwj fICzQUtJTfewJsbdl4KK+3vHdmTGQx6P2XaN0z1lzTHU6Z0iw6WplOTe9n9X tyZhs7+xk4U4vek55k66s0gXQpi8IITZcquX6K3wdz1ztGkPObdWupYcJfUf 6CdGfbITIka9tnjXS0VatE++yPMJUHcT64eE1GLHEjWJnfqrNMqYE5qcTbFE NzluThaneJ47N9oqZmLXeOlSdglXaNn2yfYfAAAAAMQm8cQou5fbInrbLW+e S0n27jn9ngpSEUdGpRd78/ykQPduLe0BnMJ9I+w+rGm0p+f3CzSWjSfXnBH8 diulwlZ2cEmE/iiho1fmPXDjD8uzPvmbrnSpA19ba39cV2LTPayJcfcl4N7u GS1YJZD7rK6DY1lLb0lmtiDYV3k/tV9D8ihZnGvnNl1a0o/nkBFCmLwghNly p5forfDH3mA0LvmMG18sMYrqP9BPjPpkJ4R6vbZ418u9Xo2tvHmxtqFEBpv8 lhWn9te9rxKWsINj6WPtM24k/V0mFUrhJVyxZdsn238AAAAAEJvEE6PSWBdF c+f81oRXWvoZTyU48sVFCUODbR6UZPkcQRd7ya9AMudYBYVjFh2dYBrJD+45 6ahhTs2Dor0z+zbW3RGVusMLa7JvUPgiKoWtrHhjL90MoOBX57s1qmlwacWg QCdvuubtfFlK0z2siXH33VJRcnrXZyuWf7j4nX/FVxv5alxMdHSXjn9dkMY/ 5cBa1VBXMML77bnD7Q/ZT+jYYFT6dNVfTbpPzbWdL/rw5qpnApgyEBq17bpb h0UIkw+EMFvce4neC3/MBqMO3m2QB4X1H+gnRn2yE0K7XpemJ7ZlWn13ejX2 2EkbyWGTX/0Lb24sAFKtfMcUy9+prvv2dslUJmAovIQrt2x7vf0HAAAAADmS dGJUo81Z10WMgT7urBYerN9s0KIteSVVrBNjSPoNUs9gP5XQ2qNEoz3+nx61 dRe/0WsrdqSn/S9lybsjn2mmWzavXsO+76zN4bbWnOuvoVHYqg4tbVf953a3 KeTiwe9LInUpGLtT0o4ndCZqMvQrqS5wJMbdd4NGm7vpWZtaKbBinp3Xg+eh zm59gfk7bDAqdX/smFLLwf3VZK16mrmV6jpjP+N8KxHCRFR2aGU3lTok/rPb FE9a8SHMDs69RC+GP9MWaa422ZQ2pfUfxE2M+kgnhHa9Ljo1K5S9+znpsDBT SANkkzaSwya/hovgR/puPMP9t7Onpev5+7+1GakXyVF4CVdy2fZy+w8AAAAA 8oTEqGNl575PetG08KCff/jQWbvzio0PGswr3OI+R5Sd++HtTg14j/Vp7lze t+mjOWNe7fGXJ5sY5jwFNmzfLXbg+BlrduzPu0d7FFykp5LKB+d2r5k8oGfH FrrBz5A/P9Pj1Tfmrtt64gbFpx4ahU2jzXgtjAhbtan4i/E17e6SVpg5upaa RI05Ktn3lL3+TKqpKMrPq3bu+KH3e5s29QsgCT/Z2TSSE901Z1XxYJKUw7WK F298g906YINRibu9Y0b4E61X/2rn/uoSCmbuzRRACBMawhy6cyaxfQD9rovC Q5hdHHuJXg1/BdvmRjVUhXTt98Fh7tO5JUZ5/QefS4yK0AmhXa+vrf3HI+xW X/AM6xMJnSzjiFvvDnmDRnsqMU73EkXPqafdKCAam7eJpPngrHSKLuEKL9te b/8BAAAAwPNu/7o+YVy8EG+OjGqkf9xuETlc0IHi4+euyKb8qMDuq6tJ7NRf Pbawy4PbBxa+Hm5aPTE44oX5abml7GcEZtMf1nPEi+9dofccoblXkLlycmQg 38GQ6p+wbHL0//NXNw0fMH7WB8mpaek6aamfzh72tyb612nVLSPiV/8v3/0V 2xyqqkjtwyzQKKunEhqFrSR3ViPB7xLrBjBV5Il+e+5a/G/D1EUhQ6aik87d 12h3vlLHOJAoYE8uy50l1SR6Qk4Z17/1zAajmjNpI1vVJV4V3KnvtnyRBlCo n6z7p1CUPbWx+c/VpNOIQ/e5/zFCmIAQ5kRV+eGpUcZzpjt8J51GzG2iFTaO iVGFhz/hlHcB6SdGpVN/KXVCKNfr+5cWhLMn06lJlzFZnHs1dlhecEOTPCpN srPpdDS5qb3Uumz1qC9+yXPL4Y0vW/xU9/qEUuObvUdll3Cll23ptP8AAAAA 4Ck2u0J4Ge1eKHtAwFOvL2oqCw+mvPlkfePXBtXv+39b8kpsBpMe5C9oa/Xr KQxFakpunD/1876dWxb9e2RUY9bOhu4OHBVd+KR/W1X9psOX77Q7LbTo0Lr+ jxqP3qTfvzPprUVoWtFOjPIgKhqFTb+XXFjCDkGDfIZpI7Ust0fRZWekvXyT nlTuvm6E2XQrBy4q5Fe6S84lhlmsx+XGanie2mBUIiFAtHtN/UzdPoMHX89s yPp7N9dkQwgzoJwYZe0gRv+qSqURc5tohY1jYlTx4U8o5V1A+olR6dRfKp0Q HZr1uuzbRMsFMwUvn878THNTL7liZqGsOLV/M0KHN/cNF84ne4+KLuEo29Jp /wEAAADAUzSnvugV7O+ka+tJ6lYd1lMe9vX0qLLmzvmtk/o09jN+ZWj/f3/5 W7H9R6qyW6s6WV15Qc8R7M687mI2bTN0etLQMF5HLru7c2hb0jpm7WkHJ69X 8N83Gpi+Luil2bmUHiBk+1TijRSGA4ZVWNmLr97c8HoAIR2SMngvx+YZErn7 7E0h2y88xO8g1nvuuLUanqc2GPXNd/4Z1E/Wze+vKt85gJkv6v6abAhhFI5s 7eaJqcwOYkiMmnk7MUqJfMOfRMjoAvpwYpRKJ8RwJGr12rRWM8O9leHtyV73 jGUUCZm2Q8qN5r3dM1o46h24TUUat0m+6u2fxJcP9h6VXcJRtrWSaf8BAAAA QE5ks8eoiLOu9F9VdfmrJQPaGHvU6tAuCTtPlDq9IFbjwLrniKaRKYU8v//E 6knx4ybOWbx0zead+37+raicvVmGewNHVYeWttPd0pphPV9d/pPj/bZuHZ1Q 23TufmRAKo09ECuK10cHmK+IrJ5KPFjYXJ5J7qZnibru29uNk7ce/L4kMoDU r7f8rOSqqAXJ3P1rHw0wnoSAvb0s9xWyszihE9hglBI3x3Jcc/P7L6e/yvyt mryclO/ehEqEMNORaeU+Ku7vHduRNI+M/JPhyLS7LpJpxNwnWmHzaC9RtuFP KuR0AeknRiVTf6l0QvTo1WvbuW+C1vjVufXJcIsY4s4+7F5QdGpWqH91S9Zj /Uk+swgr/9gYF2jxex9VLc+jfpbAl5JLOMq2VkLtPwAAAADIiWwSoyKu66K5 /uuno6KCTeOsnePfzyx03Z0+MrkDsUL3OYLvqDIroaMioVHbHKVGLZ6D/NTD llFYHIg5Z9k9lXiosHFyJ3tqPWa/P32mWx342lpprt7EkMjdZ3aZEbDmleXz tbsVxDMbjILYfl85kN3A90m56OYBEMIo//ab26a0VJNhX2Qt7Wj6tXS7LhJp xPgQrbB5uJco0/AnHfK5gPQToxKpv1Q6IUa06rUhY84mcI1f2+0Xebw75EEa 7anEON1J9px6mm+5sHmbSF4xwrcpuISjbBtIpP0HAAAAAHmReGKUecwRZ1RZ U1mQvqL3Y8Z1+dShkXP25HF8tztvXqzVQ0T1VZx0sIzaufEdVbZ6unHyaMD6 JKUCIOOnEvELG3e6VS4DjFMDqsrThoeSGmTs3iLvnRA3Ern7rL29+Kf7C/eN sKzcUat/4fq3ntpgFMT18OaqZ8zJcX7j2whhVH/7lQNjHiOtpmy5/cB8ZCRG zUQrbB7uJco0/EmHfC6gzyZGqXRCjKjVa9s9JYWt8Wu1ooJubqw0i5mBJje1 l1o3429OFv8Ome3bREN3SfCNA4VSbAlH2TaSSPsPAAAAAPIi6cSoVnsrc7QY A30GD4oyEge0NG/HNvxdLrNszO5vGU9sjEovpnZ6fEeVLy3px5xQo2ZrLjp4 X1aj3flKHdPnREiMym4dHlELm5u+GVKPhMbtvmN4MFeTmAnZ0n/Ck8jdZ20J 5EY20wJ7joZeIJlzjPPyWZ7aYBRExd4krlqTyVv4NAkIYbR+u37vbFXES+k3 Nawji5kYRQgz8HgvUZbhT0rkcgHFTYzKuxPCQqle274JI7C1t1xRQU16z8qT 4GQ6g7Li1P7Nqs8yLGGHkLJ2eUlfq2vYdfVJaicJwii0hKNsm0mk/QcAAAAA eZFRYrRxm+Sr9I5ccGzhC23UhmMH1Rj66U933Pz5FV/PrEms0XyO4D2qXHIl dUKf0EAS3K7b5O2nHM4eepC/oC1z5iHvfE3h/uvWcJPtU4l4hc19uvWQ6+gu oCHNHbM6R8hyUB4ijbvPbAnkVjbTkuWb5+5tVIQNRn3D8YTOzF0MIJMOlPI5 CkIYjxBmT8F/32gQQOK/LbA8Mu2uizQaMZ5EKmwe7yXKMvxJiVwuIP3EqDTq L5VOCOtwdOq1ddqofsgaIX0Tw961rBApzcl0Bvd2z2hRffXaPb/7hqCqYDsn Mey9DGlWLgVSZglH2WZIo/0HAAAAAJmReGJUnNf/So5v+XuIae3B8NjlPzva htMJmzll1J8jRNigzcLFnS+xnvh4DvtbYQ/gGCYsyIiU3jXVPeAHk+Wn9A/m TdolX5HD46kU7r5G+83QEOM5PNFvz12eh7EcIlCT2Km/cn5RHBuM+oKi7KmN WQWgy5gsfkvMIoRRCWEX0ocEkPC5aaXWR6bddZFCI8abSCHM471EWYY/KZHL BaSfGJVC/aXUCWFQqteWaSMVCR+8/z7/kyr7NrE562i1R6wolGxPp+jUrFD/ 6gZsQKrQt9Q0h5ey3iet5u//1mbBmW+gQ4klHGWbTQrtPwAAAADIjsQTo5V/ bIwLJKYRUCrbn93es6BbDWPPWd0hNuU83yXGrlhuPqI/RZrLZoqcGGWvERTU fz6dBYKYRUQFpBK8RYTCxpvuAV9F3vq/heFEHfjaWnls9CL87msqC7PSPn5n 4oDuXcKCSJ3WT/cdPX3tD6w9EyvKypw3UzZ7e2nuXN63fuHYV54Pb+RPAhu2 7/7S5GWbjl53UestE6P+6jeTue7cw2GD0Xtf/yf8z9FfXuN4RPCCB1/PbMgq AZ2WZdmmFqqOfNKtBUk67nRLT4Qw4SHs4Y31cQ1J1xGZ5jMTLzGKEGbLK4lR 2YU/KZHLBaSfGBVYf4X3QLTUOiEMSvXaMm0krDob2mRiat6btlmey+3n3Luw fnBE7cA6MXO2ukwzleTuS16x/L8HuO6abZ9Geyoxrvokg/7+wWWhjzns/V5N l/HF9664+iEF+zd9uGR+woT4+JGvxsVER0c8HqzmtsC1RnNuQ0JUQ3VwxLNr TmKvehe8UsK9eXMlULateb6Cs8m6/wYAAAAA3iLxxKhWu3fkY+Zu+tBdQgd4 WEPKhNRvvPiUgI2XmFcTzdQkekIOra64qIlRw1um7o5puMJ645TXI5W30S1s Qlz7aED1ObQKCyM1JLp8ky2Bd7/s3PdJLz4VpKqumKH9/j0vZXd6WmpyQvX/ CXykx+I9ReWlB+cPa1dTpe7w3Jf5jg/N3ttrZc7lXe/3buqvbtpm6Mz3U3bp Djjted3qo+rQyDl7nD2MWy0q1X7hIa4/w+UGo4bpJN5eqxmcqSrfOYCZL0rq 11t+1k6ROzK5A/EnCT+5GNRBCBMYwi6tGFQruO6cI6yZV6IlRhHC7PB4L1GO 4U9S5HIBqSdGhdRfOj0QLbVOCBuVem25yL8fGbiokO9M4nvb/92QdaSYZYc4 Bg3D2s6c5nNd2TeiliHMCVoQVZOb2kstOFaaWQdNDsuJlN1a1cnfOtJW/2Gv meddls/LzMtL8tvw0eO8UMK9enO9X7ZteL6Cs8m9/wYAAAAA3iH5xOjlJX2J sGcHs/LsTT2ZJxjBU2PYy1sZibGxF6GfGK0o/WFylPHITVrPzeSxDKN9rHSS uu7b26lMQvUkioVNINOVVJM/D9pPfRVlcfC/+xpN3uYZXfX7HQbH/mPXBdYz fkXJ8XkDAv3IsOkJkaajOxkYZPb2CvDr/tILjQNI57dWZBexBkfu30h9ta2q +gP1QhIOOiz5Vtsvci8MrjcY1W2CQzX9BNRdZk+lVJOXk/JtS7NuWhCn6okQ JiSEGX5yp8WZFtVFtMQoQpgdHu8lyjH8SYpcLiD1xCjP+kuvB6Kl1wlho1Ov WRlbQdX55ompoUwcCnppNtc3KyuK10cHGEumq/lczGUMJot/45vfKitO7d+s +hgdkjLozEqzWBKEa2jTlNw4n5eXd+bUd9P7qk1/GfLO1y4vP3MR/MjYDAnX ZInwRgn32s2VRtm24PkKbknu/TcAAAAA8A7JJ0ZZGQphG16UXFzQMYDd6Xdj FphdVRWpfYKJDUdjJmXXz6Z9umz2zJl7rnK70OIkRsuuZm+Mjw0yPI506r82 +wad4+qxR2+6J5+leGTPoFbYBDNfSZpb/omM593XaM6tfb2FSl8ge4zLvG3z c8uKN/ZiLWvqZNdOZm8vwydrDP30pzs2n9WcWNdVX61UHQfvs7//l/WiUnby m3ZZzTS0d6qGV5q5DJsAD2WHVnZTqUPiP7MtR9wxIzZ6cclnbD9T9f3C5tX3 cdoOl0PCCGH8Q1jJpaVRDUjsxBNWO4WJlhhFCLPD471EeYU//cD4ufw7dJbd oEIuF5B6YpRP/aXYA9FS7IRYoFOv719aEG5O9/B9O6uq4sDEjqaDVN+7v2y+ zLlRYBZvd7U9ARObBO0UeXPblJacLzIn1m8TqUjTyJRCrn/NfnHO9cxf9kVo HbdbsitiS4dXS7iHb67UyraOxyu4Fbn33wAAAADAOySfGGUtTSnoJIu/GM+e AkZl2FC3lKI1tfrVRQVWJ1ly5asZQ9sZvj6QzDnG7WspJUZLczM+XbF8+dL5 CRPGDevZNUyfEw1+qvu/Pv5f/gOex3SEWe8rwPUKk1JEqbAJZ9wrh3tpkQB+ d/9y8mj9mKSKtGiffNH+FWdt+KgiT/Tb42gcgNnby+niVw/yF5iWW+qTctH+ oXTzOplazXGORtnBJRHsUQV7a0mdnhtT/S94+V8Ud84ktg8QWnmt0oWNmq25 aDNUrtFmvBZGapFphznsDIUQxi+EabSn5/er1eSxxTk2F1m0xChCmB1e2WNU FuGvwrC8qqFeBMdMsZwY6D1yuYDUE6M86i/NHoiWaieEjVK9PjuvB9M/cTfr oadPx5hwnvFqUPldojnB7OJlM6YDZtynlY8rB8Y85l99wQakUlqpU09faFke VS3P4/q3B8e2Ml58LisznEntaQrKdcZ+Rm3vb5/mxRLu0ZsrvbKt9XwFtyH7 /hsAAAAAeIX0E6PMOIOg8RP2Hj2GhxHSacQhYa8pWi2bae6QD9xwiumRFxx/ p2N98z8G9Z+fx3F5F0qJ0VPLhsVERevFtG9kfJk2pGPca4kf7cq5SvPJgdls hecDqfdRKmzC6Qc2XS9GJCG87r5+fp/h4Zj03XjG4Zhy4b4RxgrkdNsg1jpa jUavu+64QTM9/js+miHzZcJp3s21nyY2Z282ZK9R1b3QXgMv/4uiqvzw1CiH V547i9fmHayjm7fz5ep/6j2LU2OOEMbrh5dnffI3NYlb9bOdICVSYhQhzC7v JEZlEP7Ovf9ioGXVcR53PEYuF5ByYtT9+ku5B6Kl2glho1Wvzfv66XHKybJY 7HAdVGPY56fceoI4kdDJ9LdOZ91qLS5j5LKf3TpJo5Krq7s3FGM1aetA7Ecm HeRWzR4WLInwN8ZuDpMZTds16iLypAOlws9cEbxVwj15cyVYtvU8WsFt+UD/ DQAAAAC8QvqJUfb8HQFbUVi/CakXOur9zAu3+A8dnd70nO1BdQ8FQQPnpxzK zcv7LWdprPkNSpW6Q2zKec7rrYmzlK7m3rWjX64e9ZR+oNvPP3zojD35lJaA Y8aO1KTXzPPSLE7OUSpswhmKq8TXwbPA4+4b5/fp/yRqzFEnYwOsh2gny4ey 9vZyMdRgag2c1ayy/QueMI0OuH6l+dapxM4NSFDzsGbmxU7tDHhWHVraDi// i6M0PbGt+cpTS4zaq4OGldb8yNi9RZwOiBDGI4TpGweHe3uJlBhFCLPL471E eYQ/6x3ZjNd8ThaHWeQik8cFpJ4Ydbf+0u6BaGl3Qhj06vWlFYMCzVfJ+a+2 dPvbD7rXM7365X5W1GL/wYgRh5zWEvZl5DHzS3PnwvqB+l1cRWi1cudGW1X6 UenFnP6SmfbLYTOFolOzQk2JNo6vYIGed0q4p26uRMu21qMV3D4f6L8BAAAA gFdIPzGq1V77aIC5l/7K1mv8DmJ3VNnA9W4gjjy8ueqZAEeHteTmkLJWrMSo UcnVDcZnKxVp0m76njzhTyaGzRMNpD8i5wiVwiaU4QFT8uvgsfG4+9fW/uMR 05/ErM5x8ifMvDanD9Gmt51VpEX0tluOD1f5x8Y408BJ/ZA1jhZ8YnYW09WR 5CuOT1A3pa5BdSMaPf/7I/8XZ/pNNonRqvK04aGkBueEGnB388TUUH/mygsJ Z+ziYW9BMH0GVlV7xIpCzl+BEOZeCNNoj82MIc2eXHPGwdeJkxhFCLPPw71E uYS/W5mj7dUT75ccuVxA2olRd+sv9R6IlnonhH22tOr1wxupxs6/TqfEtCKX lbry4en1/4oMNDXmTcIn7zrt9iMDs/+gqzfNmH1aXV1GO39bWZCRPOpJ8xIH zlZI5qPg2NttrSNm2OxvuFyNP3ZMMc9ldBmymcIZgB6jm7xRwj1xcyVctnU8 U8GdHNUn+m8AAAAA4AVySIyyu7uuX8V0QLe1nz3BPcZl3ubfg763e0YLu8dl 8/PrMGreUXc3nxI1Maq1TCUE15i8342tguxiXgH1k/EWilQKm1DXM0erVSR8 8H5h62R6ktt3n3ll2sE2jizM3j1OHqKZ+Tuu1qZjz/RxuodOefamnqZzDJ+b ZvfF86LDG0e2qUuCGvRd9q1u+OVXZucgEjv1V9ar4PodSPHyvwgq7u8d25E0 j4z8k6kACAtnzCpnNkPQ5ad2DAmpQVr/ZfNlN74AIcytEFaasSCCOF3ZUpzE KEKYfR7uJcol/DFrJ1pUFe/3peVyAWknRt2rv9R7IFpROiFmNOs1e3V0PxI1 fcOvJQ7PteT0t/NefCrIlGeqEz1kc24xj3jD3n8wavUvzj7KrBvsR15874rL n/rwbv6ZXzK/2Z78/rsjn2mmtqmT6ieenb7mi4yfT+bfcXt5nLLbV/Ly8s6d +HHPzi3LZ7zZrbFtlSckqH7fuZ/s3vPd0dw8nYu/l9o7Z2ZHb5ep8OtHJoQY FwV16xUsMPJ4CRfr5sqkbGtFreDc+Eb/DQAAAAC8QA6JUVYvmtPmHXZpclN7 WT1U+Pl3ePP9bHcHe61UlB6YFlfbzuOE4StqhvUeufx7XvMxxU6MarW/rxxo OlEVeTxm2zUBl4L9Cqist1CkUdgEevD1zIYSr5JW3L/7xV+Mr2l6sifdp+Y6 qSEcBxtZK1k5X+xOe3HnS+Zi37hN8lVnn2W2HAqqMfTTn+6w7kjZ1exN015p 6Wf5erlGe/w/PYwNQv3Gi08ZByv0CTV/Uq9m0gnvL7ToY25um9JSTYZ9kbW0 o6mcCKw7rJdGQqbtMN5CTWVB+orej/mTJq3nZrr5GglCGPcQpr/4QX//4LKT 9wfESIwihDni2V6ijMJfwX/faGBdYbyfkZTRBaSZGHWz/tLvgWjF6oQYUa3X muu/ffz3CHMySN0yIv7/1n558Pi58xeLyiqK8vPOnTi8dc2iyb2YhBGp32zQ 4u35D3h+I7P/oMu5zKzL6HrmV8W9jc8zW2A75X4W5t6pWc3sZYtcfY+dnRnZ C4063/zXsGCCoWzQnRKoJB4t4SLdXLmUbT2xKjhHPtN/AwAAAADPk0VilP02 pqtXu524feCTkU//STe0XK9p9D+n/ffH83R2tqh8mPv5olE9nm5iWoSmTuun egz+Z8LS5H1nbvAfvRA/McoanNHpkJTB/4LcyZ5az3AY2W+hSKWwCT4Bf/+3 Nkt9ITwzd+9+VfnOAY3NBc/FozGrlDr5JPfF7lgvNnMaxL59YN3QNsZVTEOe eTF+7qJl7816ve9fmtRwsEsvK9Okbhk5bOqc2WP6hwfy2pYLXLpyYMxjpNWU Lbcf0EyWGRPZukGe4OjXZy5+b+awv7YJVhP1E88sPsxncj1CGKcQZti/tZWr CbliJEYRwhzxbC9RTuGvouSnFZN7tNRHh3pNesz4PGVcB7F6a5zJ6ALSTIy6 VX9F6IFoxeyEGFCu15UPzm1fMqCNwxXazdRN2w59d13WdbenpDGYzJGKhMbt vuPss8xl5DLzy43kkTok/jP3FlcoOjpB5fq41hqRxSdtKh+z0Kj60UmfO0m+ 6ZcW0QsgA7ecxYqg/HmshIt0c+VStrViVnCOfKj/BgAAAACeJpPEaNX3C5ub OuZe2/nRwzyQGH2Qv8C8OBdRkz8P2s/3W5gb5EdGpcn7ZU0vFzbTvAAXMw6k xO27zzzDun40Zu/dMyq92NHHmMXumkamFDr78nPzmG1AXWyFY/bg9pHPFrIz R8GtuwyakrT12FX7o5+aysJDW9/950sd/p8huVYvcsjE5CwHHwbeyu7uHNpW FfFS+k0N9WSZbkbwjJFRzY2jasHt/vrafP5DZwhhXEKYcfLvjnzOR6bWdUEI c8iTvUQZhr9qZXduGxYYzJsXS1p5NTEqqwtIMTHqXv0VoQeiFbsTIlIQqXyQ tzd12ayJA7p3CQsijHrNI194Kf4/H6R8+2P+fcHZOdb+gy5m3bIvI8e5tHLA XmjU2b279tPE5sZ5fOEzv3K9OSa4JH4Jx831egX3pf4bAAAAAHiaTBKj7D0p uA8jyBvvDdqunM787rusK/dcP+lptDtfqcM8JwaRpJM8C4FpFR0VCe+3x+nL ojLg1cKmyVr1tP67h+6STTF38+5rtLmbniWmsu1qCNE0S8LpQ3TZrVWdDAMO atJr5nknpbjyj41xgeYi72IrHJA23VKWAST+2wLdf4iz7yQ1CGEuQ5ihFjdu N2hMvAtvjoxqZDpyi8jh7H+aviKHV+4aIcwhD/YS5Rj+2L4ZUs+7M0bldQEp Jkbdqb8i9EC0HumEyDaIsDNHLlL2zNa9XtvMQgzMQqP1gpafc/BwVnJ1w8C2 hml8jUcsyeO7ajF4GG6u1yu4T/XfAAAAAMDD5JIY1WpPzzVtzOFqHMNH8EqM Xk4e3cLw6BVYM27p/lJXn9cPTDHG7uM1pswM15Cw2d/4wLQ4Lxa2S0v66b5Z QJLa09y/+6yHaFePxhwfoplVodR1397uZHNC1ovNhDxKFufK5CKDrQvpQwJI +Nw0Yysn8cQoQpjLEMZ8nje+SRaEMCc82EuUX/hjq6pI7fMoiRhxyHv7SMvr AlJLjLpZf+n3QLQe6oTINIgwmSPHexQasRYuDnnnaxkUYi647EHJ2oIhuMe4 TPfWRQXvwc31egX3uf4bAAAAAHiUfBKj2jOpPU3d6T4pF719NuLjkRhlrw/G bZkai8Soq32RHCn7NrE5r0Ee6fJWYTNOJXC9S4t08Lj75TummK6un9+oj51t B8M8RFsONmqqLh/86tBVUx7/VuZo0xG7rj7p5HjFX4yvaaogtUesKPSJ0qpE D2+sj2tIuo7INJceySdGEcIo0Whz1nUhNO81QpgzHuslyjD8WSjNS2zpeiFB EcntAtJKjLpbf+n3QLSe6oTIMYiw9x90lc+t+Hqm6eJYznouLchMz8iX6Tw7 JhXur34z2c57E6zEWejwd48W+VrizJfh5nq7gvtg/w0AAAAAPMm4+pMfefG9 KxLvTlaVpw0PNQxQkN6z8py9kO0TeIwqn936AmF5VLU8z+nnmccZwn+/D+a+ +FCmyVuF7fd9Iwyj/dKvjwa87j770TjsvQwnwwQO9+7Rj0V0Tz5r/E/WmKSz Wc+V91P7mY4XTOZkeW9iDwhzacWgWsF15xy5y/wv6SdGEcLooJ0YRQhzzmOJ UdmFPyv6DpjziCYuuV1AOolR9+sv/R6I1lOdEDkGESZz5HrxTGbqWf2QNZeY /2+4EXOOVYh9smJgl6LeKZes/7nk6sZhEUEqXcWNmrH5vEyTv0qFm+vlCu6T /TcAAAAA8KyirJ0fr1j55S83vH0irmlOrOuqnKQGj1Fl1shM9V+pOo/IdL6W rsUMUzV5OSmfxzBL3s6XDQcIJNMO+85N8UphMz9ie3Nw1S187j47r+FibkXu 3GjzEOLi35hLYv0QzVqE08mYJHNPCWk1ZcstPEHLU3n2pp7+pNPiTIsBGOkn RhHC6KCdGEUIc85TiVH5hT9Ltz4ZrgtAGV7bYVR2F5BOYtTt+itCD0TruU6I 7IIIK3PkKmXveFVSXT6lbb89dx3/rYQxySCbNa7Lzv3wdqf6+hdTW4/bcrxU kv0WcAI318sV3Ef7bwAAAAAA9jFvBpImk7d4bfjJM3iMKpvfRQ+sFzlk3Jd5 LjYMrfp+YXPTEA0JIGP3FvE4zbPzehgfCvvPl8fr6xx5o7CZH7FHpRd75AuF 4nn3WRl5Z8OS136a2NzfWAXCB++/z/zLkckdyJ8H7TffFY32m6EhLi4d671i VcRL6TdlMXIMNkouLY1qQGInnrhv+f/lkBhFCKOBcmIUIcwFTyVGZRf+LJTd Xf9cbdI6bvdt158ViewuIJXEKJ/6S70HovVgJ0RuQYTJHBE/9bBlTupHaXpi W9MnLZY41u30WqPO2M+cLXosWcYFrvXJIPYGxBUl2Z9O71pLfx97j932WzG6 pPKDm+vtCu6z/TcAAAAAAEfMLwfWr7f8rDTHvinhNapctn/BExxfRGeNrlR/ RdDfP7jM45miMHO0/tFPLu+uu8fDhc34Mi3fNY09j/fd12gzXgszDCY8Oulz +4tLlVzdMLCtypz+YL+HfP/SgnB1yLQd7MS/ed+u9gsP2T3e7V0znzDUpiYt k7LkOfEANNrT8/vVavLY4hyb8iaLxKgWIUw4qolRhDCXPJMYlV34s2SYx2cV lTxKhheQQmKUX/0VoQei9WQnREZBxGLDDjWJnfqroweNKwfGPOZv+iSJXPYz 80+nNz1HyKg0771zIMT1zNFqy2SQprLw0JdTY5pV/291yycnbfrpjrTvITiE m+vdCu7b/TcAAAAAALs02lOJcYZ+tSxelubNsFykUXCNyfuvc/qzqvKfZsXV VrnezcQ0RKM/fI9xmbfdf6GVdS9Cxm+87XtPfx4ubMaNWtSk+9TccrG/TDBh d1+TsynW8GOtpl0YGMYkgx6P6dLMYsxBr+zbxOZ+Nk/BRadmhfo7unrlv6T2 DzIMSLaem8mtKoH0lGd98jc1iVv1s536IZfEKEKYYLc2vBFITCnXVjHbCvnO xkAI48IziVF5hT8rFaVfDQn1cpZKhhdQaGJUQP2l3wPRerATIqMgwuw/aPjt 7ZKv2GuuC46/07GB+vHobs2MH2XP5D2e0JmE99tzx3NnTRF7ZZ5eKw9nbVs1 uedTQSqibhkRv3Jn3j0fnkro+3BzvVnBfb7/BgAAAADgyJ0zie0DfOwVwcqs z8e/GW809o2Bf32ySQCx4PdIWNeew8aYPhP/xnsZV+wfq6LkyILhLdWkTrdX l//vyHXbIbLKh7kbZ3StaTxw6OBZh3hkRbXmt9ZV5PGYbdd89AHQg4VNZhuE Cbz7Gs3ZpQMD9cPtMcsOsTeLLMn++u2YZuom7abvOX9PPwNaN9IYPSHH8CH9 SqqBI1YU2jwFl2YsiNAfsE/ySabUayoL0lf01r+orA6PXf4zsqKypa+MQS/N zrU7KUsuiVEtQpirEGbr8g/vjjP81bhhPZ62OrK6aeve/xhr+Nex7395nXtr hBDGhUcSozILf5YMKwR6N0UlxwsoNDEqpP6K0APRerITIpMgwtp/0PTEMXpl nuVLm0VHt73VqYGqQ2zK+Yqz840LY5on5BpesIlZnSOXUm3l8pK+lnGwZljP oe99se/KfZn+IGDg5nqzgiuh/wYAAAAA4EDZwSUR+q61w0FyuSnfMaX659Rp HRHNQbd2f1I73xpJ/yQy+0X9m6tN2w0cMzXpw3Vffp2enva/lI/+L/5vbYL1 i/8ER/Scs/UIz3V+DFMkiG5z0mE78vn9alnwWGEzbtTiR8ZmSHoGgA6Vu2/K 4Ff/5M6jk1J279m1YeXs4X9r4s/alMcwA1p/WaKmfrx7e8o7z7fRP1/buxOa qsvb/xMVQEhg7Zhx1QdMT0v9dM7gZ4Kr/zwwIG7m2pwiPDvLlkZ7bGYMafbk mjMOKqGMEqMIYRxCGItp7Vy/R8IiHR0ypn0jf/duPUIYRx5JjMop/FnRrRBY w+tjs3K8gIISo8LrL/UeiNajnRBZBBHW/oOkVfsOwfq1iUO6j0pan5qWbrrg AX4dRiVlFup/g3EFYxVpEj750127khe98ie/4N4J2fddfZNUHUnoUl1+Qp78 68AxUxan/C/rihKmESoFbq7XKrhi+m8AAAAAAPbpd5ozvOzdd+MZpT2JcFd6 8fhXaxYmjHq1R1SXsCD9i+9N23Z7of/rM+al/JBTVMH/yDe3TWlpeBTisp+p rHmmsFX+sTEuUD9IGLdb8jspUbz7Jbn718wc0yfy8WA1qdP66b6jp6/NyC1l H1NTWbB/c8Krz4c38tdNDRszfdcFZ4OAZVezNyVOHKCfsFZd2qNfHDxtafL+ C8VoJWTNMBPHWQWUVWIUIczrEMK48kBiVFbhz0LJ7+v7NCM1vD02K88LKCQx Sqv+Uu+BaD3WCZF+EGH2H9RvfXulsjAr7eN3Jg7orn8e8XskrHPsoClJW49d tVjY5sHtI58tHNWza/Vnglt3Gpa04dcSKf44AKXzXgVXUP8NAAAAAMCRhzc3 9m2m6403bbNcsm9L+yrdFAndVkrqZ8ccuef647LngcJ2J3tqPd0Il3rYMqmP ayrt7oPX3TwxNdQ/6O8fXK50/Bl5JUa1CGFepbRGTEhh80BiVEbhj63i/t6x HXXLrM7fU+TdBkeeF5B/YlRp9dcRiQeRwn0jjJPJ1KTXzPPSD8oAwJ23Kjja fwAAAAAAg4Jjb7fVvawY3HPSUfSNPcY8FNO6a/I56Q3FiETswnZ26wv6seeh X10T4ej0KPPugxdVVRyY2JG0+svmy06HXWSXGNUihHmJMhsx3oXNA4lRuYQ/ K/dOzWohgayoVq4XkGdiVJn11xEJB5Gq7xc2Ny2zKaOtbwGAC+9UcLT/AAAA AAAs5ad2DAnxr+6Tt5ywsdDrY1NKoNEe/0+P2rr9QVrPzbzu7bPxKDELm0ab u+lZolJ1HLzvLt0jU6Xguw/eolsyS81hpUo5JkYRwjxPwY0Yz8ImemJUJuFP uuR6AfkkRhVcfx2RbBA5Ny/OmDUJIJMOlHr7dACAJi9UcLT/AAAAAAA2yn9J 7a/bzEIa7+37No3m3NrXW6iU+0giYmF7WJixbunmYxK+qoq/++AFZbdWdfIn jdsNGhPvwpsjoxoR425HLSKHs/9p+oocCb9XjhDmOYpvxPgUNmNi1KZaUaxc 0g9/EifxC1hxNy3RtuhM6NM6wL3EqOLrryNSDCLGfW+J7La+BQDXPF/B0f4D AAAAADhgfF9aUmMCvuh2WmJHxb+oqdjChrsPXsDMA+WN1x52nqXYVsXD0Ihp eRQ2Z3VQBpULvI9SEUL9dUJyQeR65mi14RbLbOtbAHDN4xUc7T8AAAAAgBNl ud+9FdmABJGx36LDLIqqY+u6EaIOj13+s9KvsAILG+4+SJtGm7Oui3GkXU5L 6ZopsFXxMDRiZu4VNiRGQSAaRQj11yVJBRH2/oNxyWe8fToAQJOHKzjafwAA AAAA10oLMpKXfnlSVnssyYfmQuaatZtyijTePhFpUFhhw90HaZN9YlRHYa2K h6ERs4DCBrKC+suJZOo1s//go2RxrhzjMQA45OEKjvYfAAAAAAAAAMAen0iM AgAAyN83Q+rqw7GaxEzIlvAe3wDAAyo4AAAAAAAAAIAEIDEKAAAgCQXb5kY1 VIV07ffBYSx9CeBrUMEBAAAAAAAAACQAiVEAAAAAAAAAAAAAAAAA8H23NrwR aEyMqkirmG2F2IoIAAAAAAAAAAAAAAAAAOTv8g/vjovXGzesx9NNAgibumnr 3v8Ya/jXse9/eR1pUgAAAAAAAAAAAAAAAACQH9PauX6PhEVGOxDTvpE/VtYF AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAACf8/8BbeciyA== "], {{0, 227}, {2483, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->Automatic, ImageSizeRaw->{2483, 227}, PlotRange->{{0, 2483}, {0, 227}}]], "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}, { 3.751564005804199*^9, 3.7515640058054028`*^9}},ExpressionUUID->"b3f5276e-edcc-4c7d-95e6-\ ba5cbeaba7a1"], Cell[BoxData[ RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "jj", "]"}], "[", "bb", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", "=", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"I", " ", RowBox[{ RowBox[{"X", "[", "9", "]"}], "[", 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[{"X", "[", "10", "]"}], "[", 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[{"X", "[", "11", "]"}], "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{"Cmetric", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"F", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{ RowBox[{"X", "[", "12", "]"}], "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{"\[Gamma]5down", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"G", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{ RowBox[{"X", "[", "13", "]"}], "[", RowBox[{"ii", ",", "jj"}], "]"}], RowBox[{"\[Gamma]5down", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"d", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], " ", "-", RowBox[{"I", " ", FractionBox["1", "4"], RowBox[{"Sum", "[", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"X", "[", "14", "]"}], "[", 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}, 3.751563024995591*^9, {3.751563088348955*^9, 3.751563091900481*^9}, 3.751563272418377*^9, {3.7515647079060783`*^9, 3.751564791739883*^9}}, CellLabel->"In[98]:=",ExpressionUUID->"ec979bbd-b9f1-4c45-8f17-e25a125d40bd"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "0", "]"}], "[", "1", "]"}], "[", "3", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "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, 3.751563025699321*^9, 3.751563274923177*^9}, CellLabel->"In[99]:=",ExpressionUUID->"c842c03c-a744-49b5-87e9-7d7c5b9fa73f"], Cell[BoxData[ RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{"G", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{ RowBox[{"X", "[", "12", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"d", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{ RowBox[{"X", "[", "13", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"X", "[", "10", "]"}], "[", 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[{"X", "[", "9", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], " ", RowBox[{ SuperscriptBox["A", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{ RowBox[{"X", "[", "14", "]"}], "[", 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[{"2", " ", RowBox[{ RowBox[{"X", "[", "14", "]"}], "[", 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.7515648191257277`*^9, 3.751727180531364*^9, 3.751730251024783*^9}, CellLabel->"Out[99]=",ExpressionUUID->"28dea653-5687-4d6c-baf3-d64e75f7c03f"] }, Open ]] }, Closed]] }, Open ]], 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:eJzt3Q2cjXX+//HrnBlqMd3ILybdIFHM7uYmm4zdllEUtUUlbJuKkLBRNopV 9Ce/xErS0mxuixVphXLTj7FCMsIoRm7LECOGmBnO+c+Zc2bOzZw5t9c53881 1+v5ePx+j98vM+dc5/qc7/v6znXz+dZ9YuCDva2apg2+tOh/Pdhz6B+fe67n i52vKPp/HhowuO/TA3o91WHAkF5P93ru9icSiv7jmqL/GX2Jpjn+bzsAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAIiKrSC/wKZ6IwDAHwIKgFgEFAAjIrsAAIBCNtue d5+8wWK94vmPLqjeFgDwQkABEIuAAmBEZBcAAFCoMG/j2B51rJqmJSYOmFuo enMAwI2AAiAWAQXAiMguAACgTt7Oz1+9q4FjJqIxGwEgCwEFQCwCCoARkV0A AECNC+cOblj25pNtayZqHpiNABCAgAIgFgEFwIjILgAAEE+2wtyD2dnZezPX frZk1j9HP/d4Wt0rND+YjQCIOwIKgFgEFAAjIrsAAIBC53Mm/Nbf1EPTkls+ 8FLvjonMRgCoQkABEIuAAmBEZBcAAFDLezZirX1Tm0eeGjH5/dXfHcu32wsW DdaYjQBQhYACIBYBBcCIyC4AAKCW6xGtIntyztp8/pHZCACVCCgAYhFQAIyI 7AIAAIIxGwEgFgEFQCwCCoARkV0AAEAtZiMAxCKgAIhFQAEwIrILAACoxWwE gFgEFACxCCgARkR2AQAAtZiNABCLgAIgFgEFwIjILgAAoBazEQBiEVAAxCKg ABgR2QUAANRiNgJALAIKgFgEFAAjIrsAAIBazEYAiEVAARCLgAJgRGQXAABQ i9kIALEIKABiEVAAjIjsAgAAajEbASAWAQVALAIKgBGRXQAAQC1mIwDEIqAA iEVAATAisgsAAKjFbASAWAQUALEIKABGRHYBAAC1mI0AEIuAAiAWAQXAiMgu AACgFrMRAGIRUADEIqAAGBHZBQAA1GI2AkAsAgqAWAQUACMiuwAAgFrMRgCI RUABEIuAAmBEZBcAAFCL2QgAsQgoAGIRUACMiOwCAABqMRsBIBYBBUAsAgqA EZFdAABALWYjAMQioACIRUABMCKyCwAAqMVsBIBYBBQAsQgoAEZEdgEAALWY jQAQi4ACIBYBBcCIyC4AAKAWsxEAYhFQapz/+WD2npyztgh+1ZZ3bO/efbkF um+T+VAF8QgoAEZEdsUbB3RpqAgAqMZsRKCCHYu6tmqVvue86g0xNaogAQGl gs2+bXoLTeu5/FQEv3z2w2e0SyyTsnXfKrOhCgZAQInCUVsaKiIW2RVfHNCl oSIAoB6zEXF+/PLZ6xM1zWJNaTNnLxN4RaiCDASUCq4pesup2yP45ewxbbQk pujRowoGQEAJwlFbGioiGNkVXxzQpaEiAKAesxFZjnz9UtPqpfVIatcv40Qk Tw8hKlRBDAJKjZzVj2nWywfOOxfuL9rsix+8XKvfaUVeLDbLZKiCeASUFBy1 paEispFd8cYBXRoqAgCqMRsRJO+HGfde56hDQmLjRvWtzgl8+4GbTqveMFOh CpIQUGqcOzi2oVVr0Xtzfpi/mJc1/Gqr1mbIrgsx2S5zoQriEVAicNSWhoqI R3bFGwd0aagIAKjGbESKvMMzuzS0OKbuWupry3PP5q58Pq1qcVXq9pqSHfZV W0SEKghDQKmycVCKlqgNXHsmrN86t3RYDU2r9+oqboDTBVUQjoBSj6O2NFTE CMiu+OOALg0VAQC1mI2IUHjm/wa10lxT9xW5F13/ce0Lrgn8jYM/PH5R8TZW fFRBHgJKleLJtqXqY5NzQv/Onz82I62GVinsiT3KQxWEI6AU46gtDRUxCLIr /jigS0NFAEAtZiPqlc7Sq1zSbnzJ1N3nnzxn9YgFqiASAaXM2f1jGyVqlbXu iw6G+BsH3v1zDc2qte6fySpVeqEKshFQKnHUloaKGAfZpQAHdGmoCAAoxWxE MZttz1s9ahTt+2qVus/bUVD2B4om8C91rJngmMDfm77dzw8gelRBKgJKoZ8+ 6H+1ZtFq1R+ZcTToD59YMfaOSlpYU3qEgipIRkApw1FbGipiKGSXEhzQpaEi AKAQsxGViqbu7z55g6X8qXtYP4bIUAXBCCiV8k/Nf+A6rXiWPmLNofKHxsUD H/29VeWiAlmqPfrGARZz0RdVEIyAUoOjtjRUxGjILjU4oEtDRQBAHWYjCrku sIYyJy+dwF+ZPHRd8Eu3CB1VkIyAUuzQ2t7XJDr2fZVqrfuPXb7rmNd647bC E9tWT+zRKsnxExbrr+9ecoS1XGKAKkhFQCnBUVsaKmI4ZJcyHNCloSIAoAiz EWXy9oyqlxjGzSGuCTxdqnRFFWQjoJQr2LH06ZTqpTVIbnpX9959Bg76a78+ vTo3udZa8t+Tmt83dy9DIlaogkwElAIctaWhIgZEdinEAV0aKgIASjAbUSg/ e+2STeU/EFSW7eKB1R+uOchxUE9UQTICSgLb0V3vPd22ZqLmX5Wk1oMnZ+Zy o0hsUQWBCCglOGpLQ0UMh+xSiwO6NFQEAOKP2QgAsQgoOfKy1kwb1vveZjcl Oe8RSbikXsu7nxg12fd5RsQSVRCFgAJgRGSXBBzQpaEiABBPzEYAiEVAARCL gAJgRGQXAABQ69SspzxmIwkJPd85rXqTAMCJgAIgFgEFwIjILgAAoFb2mDae sxGt/bDvL6reJgAoRkABEIuAAmBEZBcAAFAp7/CE31XxmI1YtJoNJn3LYiIA BCCgAIhFQAEwIrILAADEhS3v2N7sEnu+3bR6+fLFH0wd9ULHBldoZVWv0+mv f5867+PlKz7flFX6a9l7j56O7fKxtgs5W1bOfn34Ew+2b3qDx4ZdeX2zOzv0 eGHUjE83Hg1jlW7jO7597O+vs2rajS9/GtsJYqz3/OnvZzzcpGqVy1qPWJAT 7L6LvKzV6ZMn/WtttpRSx60KJkZAGRIBJQEBFXsEFEJFWEESsguhimkVCC6U x1Z4YvvaORNGDXz0/tSbr7WWfO+Sm6Y98dr0bbmxzR4A8eG9REVkYrmwxYVz exb9o+fvrrN6vJ+1dsM7bv9NrcpeG2Gt06TvlMXZMZ4WiWCzbxnWuvhDx/LR ubjs+f0TOhW/hkWrm/bJyYA/emj1Y78q/tnqydP2R/aRdBWfKpgeAWU8BBQB ZRoElBq2wtyD2To4fDw/DltrhrAyVkVAdqlirJES+yqon2UZqyLmYDt5YPX0 0Y/eeq1VK4/FmtJmzl7uswAMT/JsJH//hrHtGziCKOHSeu27j3h3XsY3u3PO uo90+ScOZ34+//VnHrzlVyVHw0ZtJv73UMW+YGrbNruklZtFq99pRZ7+bxGn PV94akaqczZj1Vr03hzwKH78nz1c75Skjf9W/ZwzDlWAnYAyIAKKgDIPAire Lpxd9FCd8v8+jVDyr29v99Bfhr75r+Vbvz+j64Wbih9WRqsInMiueDPaSIlH FdTOsoxWEVM4d2LtxEGp/5MYwp62Wto8u/Ws6g0GUEEV7FjUNdmRRXUfGDxn y+HAh7b8PV+80q6B64BSrVL3eTtET0iikX9qVocaJTkcwnXk8MVvzx9a/ojr gyRan07/JcBPXiycf2+S6yM3eniN8kNP7KsA4Qgo/wgoAgoCVNiAyj/+dvNQ /kqNXHLLB0Z8uE6XB/9NEVaGqgjkI7skjJQ4VUHtLMtQFTGD3I0fPP2b6mHt 4Xvn7FO91QAqINdBsFqlbu99eTLEq4rnclc+n1bVmU3CJyRR+OmD/ld7pvDl lknZer5+PPf8hc9HlZ4uuWdOwAeuTmYOudL5gwnW7hNPhPb6sRPrKkA4Aqo8 BBQBBeUqdkDlnzjkfCR6z9b/rlj2n9mj+zav6vv3ab1ur/x79YaswI9UZ+/N 2rimuEfu852b+D4LXOue3ku+j+r5X/OElVEqAvnILgkjJW5VUD7LMkpFKr5z uatGda6T4NpjSfVbdHmyr0Ovv6TV9dfBXtP/ywAALie/G9W4ciQzivM/zep4 nSufrrxixMafY7SByvy0dUhd72u4VbQRW/R7Qi6+e37r0OauX6mmjd4ecLqT Of32kk/cbOJXYW2a/mJdBQhHQJWHgCKgoJz5AurTrp5/q1q0Rp1WhPsgwIXz WXNGtr0q0et1atUfmXE0wm0yd1hJrAjkI7skjJQ4VkFacNllVqSis+V882an hhbnrkrQWo9cePCcxz9fOLdn/t9befcn9yiQgEcRAVQkJSsuNR+fEckqAN8v 7+rKK4ul5WMZp3XfPnXca1F56bNap4utcd7znl3Cmjy2PtCjWR5dwiprQ79U estDrKsA4Qio8hBQBBSUM2FA+T5nnZDQ853INrz0sXT337n1fzf3QPgdP00e VgIrAvnILgkjJZ5VkBZcdpEVqegKdix9OsXdl+PGwR8e97eTflo4uI5WFuuh ANBb9uI/OeL/knrN7mj36NPvbg77MuLuMe1KQyr1H5vFPqsVLo+1qLy0Td+t zxvEec+7u4QFe8TGZv+0W7LroHND6sLj4W6XnmJeBQhHQJWDgCKgoJ4JA8o9 VF2CPOsdUJk/eC1VH5ucE+75A5OHlcCKQD6yS8JIiWcVpAWXXWRFKjSfM/bV 7n85q7z7JvJ/nnFnFc0X56IB6GznyNZeIVO31cJwj4T7Ft9f+usRPFwjk2st Ksvll13mE8R6PawU5z3v2SWs1dRvAv1oXtZwV/PTBO2+Vw8pPI7HvgoQjoDy j4AioCCACQPKc6g6BH3WO7Cyf/BW0V7YEPCOvTJMHlYCKwL5yC4JIyWeVZAW XHaRFanIDq3tfU3piWiLdkPj9H2B9vaPb3XWfNGjA4CuzmSPquMdMxEsunTh l1lp7vBPS/8uJpsaX8VrUVksTR9d+u4z3jsoMXHAXB06gcZ9z7u7hAXtZbp7 wd0lr1nv1VW2MDdKRzGvAoQjoMpBQBFQUM+UAeUeqg7Bn/UOyv0weInkl5aG cT7C9GElriKQj+ySMFLiWwVpwWUXWJEKLO/w1LYeJ/4TtI6zvgtc2cKlwy71 2ZusXQhAX8czenmFjEWrn/ZJ+CmTNTLVfSj50+iDF2KwqfHkXIsqQes8f/+F ld4XbfXK4TjveXeXMItWN+2TgHcvnJr1VOmhqs8qdY/ixKEKEI6A8ouAIqAg gQkDyj1UXV/1iNt7lrJteLOh1260am2G7Ap9J5g8rARWBPKRXRJGSjyrIC24 7CIrEpaLBaueaVbVWjnl5Y+lt0v3XdnEqrUfsjPYqiZldqZFq3XN+G3cZw5A P+7HcFwHndYT10ewekLBosHupKrZIP2w/lsaPyWJXe2B17Iv2OzbprfwiuIE rf2w76O/yBrnPe/RJUzr8npOwEuh6/rcqL6U8akChCOgyiKgCCgIYcKA0rW9 p4vHPXiunRBWR0qTh5XAikA+skvCSIlnFaQFl11kRcJyPmfCbzVDzPfy101o 4rlXKmt9VuYG/S2P75VDUrOOk78Ku585AAR24rMJ91x/RVHIWOs06fveF7mR xKnvX+Ldlhj4jjDXWlRXXjp6a/G1P99jpQ7PEDnFc897tuRqPG59oJc8f2RC k0TXJ03tvy2SdZ11ELcqQDgCygcBRUBBDrMFlM7tPR3KXsoJ++yBmcNKZkUg H9klYaTErQrSgssutSJhMMq56PPHZqR57mmrds/w7BDuFS+9397x5ZyyOPu0 wpZ4ABCAb/ir7eEZFddaVFqjkcvOOP+Ln0eo5MzJQ93z7pZcCdrAdQEnFu5V MNR12TJYFSAcAaUKAQUEZaSA0r29Z5GLX4y73mv4WLUWvTfH+zKTUcOq4lYE 8pFdEkZKSFWQFlz2ClARg5yLPv3Rc17n/EO7KbrIkSXj+/5t1Iyl6w+eFTus AaCYx5ErlMd/xHKuRaXdctcnx0o+gOtY4yGCpSViJ5Q979klrHazOTmBXs9z qQKva+tnjmQsX3XwnO4fwA/jVQHCEVCqEFBAUEYJqBi09yzy41udvQePPi8b NiOGVcWuCOQjuySMlKBVkBZc9gpREUOciz6zb2yK5362aq37ZwbrFA0AhuJz Tdawq5x4rEXl/o++h0tdHiPSS2h73v38ePDnrdzXqasnT/PYDc5nqYKsvKwL 41UBwhFQqhBQQFDGCagy7T1bTf0m2tfM/3nGnVW8X1V7cMGPemxuWIwZVhW5 IpCP7JIwUkKogrTgsleIihjhXLTvTdGalpb+neqNAgB9+RwHjfl4stdaVF7/ 8mnXK3wObX1WC7mmGNKe92jJlaDd9+qhAEdM9xkV38eaHJOThp1W/ByLT+HB kFWAcASUKgQUEJRhAsq3vWcVHc5L2LZOb+k1boo+ftonCprOGjKsKnRFIB/Z JWGkBK+CtOCyV4yKyD8Xfe6HCc0qe+2QYHfFA4AhbXn7t17hL3Q2EoDvWlQe vFtaOeiw1K9eQtjzHtufYO0+McBh+czyUQ1LftLrsSbHShaVLuvzfqwfPTNq FSAcAaUKAQUEZZCA8v6SW7Sboz4vUXjm4651fQZO6j82F+izvWEyYFhV8IpA PrJLwkgJVgVpwWWvGBURfy46f83Ym732hzUO82QA0JmtIL8gSP+vgkWDvY4p Umcj5Sq7FpWH7DFtfI5uLaduj8dW6bLnvR4eD/gA3aG1va9JLH2tZhO/cv/T ztl3alrPZTG+3i+zChCOgCKgCCiIVWECqkx7z8DnNELhcd7DlQCWNs9uPavP 9nqpkGFl6IpAPrKrfEbKLmnB5btJRqtIKeHnoi8WLOvhfXI+IfbzZACIWv7R 3atmvzWi9yPtbr0pyerOsOSmd/UYOnrBlsNlLzJ6LxYgdTZSPj9rUXnwPsoX SUwcMDcWbUljsue9WnJZtFq3pB/yN6s58vVLTa+y3pR6x3WuH/U8kfL10Nu0 Rp1WnNT58/oQUgUIR0D5IKAIKMhRYQNK9/ae+1b+5epE7w/eMn2PPp1tTBFW hqoI5CO7QmWs7JIWXL6bJL0i5RJ+LvqAz07W4+ZzAIgd24Wc9Qte6fHHWiVx bq19U5uHe/Z9bvj4iW+MGNive7tba1UuCt3ERt1eXHHQK+E3DkoxwGykPH7X ovLg29VK92V5Y7nny2y8VrfXlGzvdZBzNy0c0PwqS0qbOXsLd7/WzjXteWGR 850KMme3T9RaT90W28WxlVcBwhFQBBQBBbEqekDp3N7Tcd6jutenrlV/ZMbR aLfSTGFljIpAPrIrLEbLLmnB5WeTZFYkKNnnovdP6ORddhp0AJCr6DD08n2/ rWZxHhSqtu73yoJN358pE622kweW/b8nG1W2WB0HrJJD4YVfZqV5Llzru96B aOWvReX+Ca9VIXQ+7sR6z3u25LqxcUpS8Rslt+05esb8ZctXLJk55eWimU/l hJSeozNyil827/DMLg0tjkN5o0HvLVmS/vqD1yYk3TM0M6YPOqmuAoQjoAgo AgpimSGgdGzvmb9/w0vNvE4dWFPape86FeWJDrOFlfyKQD6yKyxGzC5pwWU3 QkVCIvlc9Pmf3r7dswsKDToASHUmZ9lLneskuLLqstRu6duOBf6N3A0zu9au pLV8LMN5ge1k5pArvfMu8Cq9kgRYi8rN92EinaZbcdjz7pZcFq1mg/RDF3I2 L3vnpWc7t21Rr1rRj19S77Y2Dw0u88zXuRMb3x/Xs33Lop9Jqt+8++iZu/Ji e1RXWQUIR0ARUAQUxDJJQJVp76l1eT0ngmFnu3Bk+eR7PFqSagmJKU//b2Zu dEPYhGElvCKQj+wKi0GzS1pw2cVXJHSCz0Xbtk5v6fmlcNwtn/YJp6IBCJO/ /7+jWl9nLTkatHpx7t5zwX+ryIklw27WtJTRqwrsNnvW7D94JZ5x+mQGXIvK 7XhGL99Ij/YxtDjt+ZzVj7n+yap1GLZX2LHSRV0VIBwBRUCpR0ChHCYKqDLt PRuPWx/ua+RlrZnYo1WSx4skNbvvjTXZZdufhsWkYSW4IpCP7AqLgbNLWnDZ RVckPILPRe8c2dp7H+uwOiQA6Ktgx6KuySXXExO01NdW5Iaepc7lWeu2WnjU fmrWU96J57XegWSB16Jycx1uPFRPnua/aWhI4rbnL34x7vqSf6r36iqZt7mo qgKEI6AIKAkIKPhlqoDybe9ZWRv6Zah/9Ocf37dx0Xsvd3f3QdUcT4g//vpH 645GfeLAtGEltiKQj+wK8XcrQHZJCy674IqETey56PNHJjTxXMnR4Z45zEcR Syd2zRjar68QIydn0htdPK+DoKY1GvZxGAfBYrbNb9/qCLcjGf1u9Mq7BG3g OiM8mVyyFlXHWd8FOTr7NuPStCRt/LcRHtLjuef3jEkrPdYPXBvonj5lFFUB whFQBJQIBBT8MVtAebf3LPpu1+z+yqRAxo0aVPTnwOOPtLv1piRr6Ue7tN7v 7x80IX31d8d0+YRmDiuZFYF8ZJeEkRK3KkgLLrvUikRC7LnonbPv1LxdWW3S HqajiKGCRYM1SfqsPh98o6GOz0Gw2v0vZ0VQsTPZo+pYK3cZOthz/V7NotVu NidH/23WmWstKqvWfsjOED77p12v0OVLHtc97z43IrVPlKIqQDgCioASgYCC P6YLKN/2nhFK/vXt7R55asTk93U5e2DqsBJZEchHdkkYKfGrgrTgsgutSISk nov+8a3O3nvLqqX23yYg4m1Hv33n0Sa1nnpXwjexIvlp5pNXN+04+aujCrfB tuODDkm+d+OrYr0xZYaoMQkfJ3ePbVG65qxFu6Fx+r4I6+X407t6cvKvvOqv tRmy64K+W6w/11pUSdqIzeWvReUha2Sqz/f8wQU/hv2ucd7zRzN6lbQhk9kn Sk0VIBwBRUDJQEDBDxMGVJn2nmE87Xv+54N7vt302aJpw56+o6b775Tktn+Z tDLrTMR/K5g8rARWBPKRXRJGSjyrIC247CIrEjGZ56LLPqNXtIteWqp8A/Oz Ph/Q7CpLSps5e7lJQ2/Hd4y67SqtZv2+C3fQZwvSFZ5d2aepZ0C1nrot4sc2 sse00coQ0pAqkPxT8x+4zrGpQxeFuLTUgQkdfT5m2F3R4r7nPbuEpaV/F+lb xYySKkA4AspOQMlAQKEsUwaUb3vPatro7ZH8XWs7efDjFzrWTHC/Ut3OL6w4 GP6fpaYPK3EVgXxkl4SREt8qSAsuu8CKREPmuegfSlerLJGg9Vym+EKE81kA KyeiY+fI1y81vUqrVqn7PE5HQ7Qzy0c1dMeTRWvUacXJyF/Nz3FQTEOqAE5/ 8uINRZ/9ptYLfwx1ClCmDY71iuc/Cuv6f/z3vLtL2OXa+Cw5h0kXJVWAcASU nYCSgYBCWeYMKO/2nlatyWPrQ3pQwB+bbc9bPTzORVisKe1m7DoV1msQVtIq AvnILgkjJc5VkBZcdnkViYrIc9G+Z/slNM9xniatVX9khsomEuWyFZ7YuWHB PyeOGNCrS1rqHbdc63iYoEqNxne06fLMsEkfLt972t9fAUe2vPKHmp3nHxD0 1ofW9r4mUaum9f3sSFRbBcRO7o7hdb16uaSMy4jmKnaZ46CYhlQBOHdCKGtR efC8uFwsMXHA3MJw3zS+e76kealVa90/U9p1SCVVgHAElJ2AkoGAQlnmDCjf 9p4JCT3fiWp98sIzH3et6/mprSl3/vtgyH/JE1bSKgL5yC4JIyXuVZAVXHZ5 FYmSyHPRGwd5NRB3VL/DsL0KNy/v8NS2NYp20r3p26Xdr3vm+00Lxr3QsUHJ Ui9VajRu+8AT/Z4dMX7SpEn/GP38M93b3Vqr6Atb/bqHxn908JzHbzo67Vyl VYr8AlyM3jp//ZQ7LBatdoNJkfSgB2Lux3f/fIlnPkV9ndR3MVzNelmf96M6 rMSazb5jVFroa1G5f23b9BZenzS8Q4+SPX9k4chWNSzJLTu9sUHYhUhFVYBw BBQBJQIBBX9MGlDRtPcsh23r9JZeL2mp9ugbB0J7hICwklYRyEd2SRgp8a+C rOCyi6tItASeiz5/ZEIT3/XjGo9br2x7LhZsGNIq3KLk/7Dj4ymv9nmwfdMb XKdqL6vf5PedHh746uQlW77XpTF4XtaaiU+0dTUdr1K9afdB05auP3jWz6Wh /B92Lni5+y2Xaklt/rzk++I/CfIOz+zS0OJo9p668Liwt7bZd77WqYpmsbR4 ZPUJaT2TKgjbd8sev9F3qfo4S2recWGoF93ivGkBt+Xs/rGNPAPKqrXovTma ZVUvFs6/N8nr/QW0JArMljW/g9XxEFPPD77JDsuGWX/y+qjhLErLnvempgqR barBAidc8fwcwbaFYUJAyUBAhSVmARXnzxFsc8w6TPRq7+n9omUWVwrxAX+z VsGTrIpEpEIHl53sEkLWSDFrFTzJqsiJXTOG9usbjacfb3W1VrwAZbMeUb1Q 374jJ2fqci1n3+L7feKhijZii7Ln84qb0li02jdMyw6p0LaTexe82O2WS4u+ zJfUa9m+e+/infN411bXu48XyS3/9NqyyJeqtJ08uGSk4wRv8c6p1rr/2OXZ p4KetM3dMLNr7UrWX9+1JPvQLMfZ4OLx1uX1nHBO98bprfP2jW3qePrgxsEf HhdyiaRiKdOPUY0+q0O8WSrO2xVoU/I/G+X9+HDUy0zkZQ2/2vP1RD6i5alk LSo9FH3YTitCW9GKPe9FURUiY7TACVc8P0SQTWGYEFAiEFDhi01AxflDBNka 0w4TPdt7eiiz0Kf18oHzzgX7LdNWwZOoikSmQgeXnewSQtRIMW0VPImqiJAU KqVLHJ2a9ZT3q1q1Xz+0Jpaz0EBKmtKkjF4VSneO/KzPBzS7SqtWvePf31t/ yLtR8oVzB9fMefo31V0fK6FS42emZod/fMrdMOvxkrYYSc06Tlp/KPS2IcXt L7Sky68oXTAzrBvO4/nWrr70SdoL638OfQsRIqNdTI/zpgXYcfZVT9Tz+tno 73nInH6799snv7BIcnua4rWo9GLRajZIPxzCu7LnvampQqSMFjjhiufnCLyj GSYElAgEVLhMcV+0aYeJ7u09S5Rd6DP4XYKmrYInURWJVIUOLjvZJYKokWLa KngSVZGimuz4oEOSbzsLVaw3psyIvs1H2a+Z0m/F7jHtHNPgOrfNPRzCVZcj W55vWNnaqM2kr8rvJ+PqUOGS9MhrYZyOvnB+55Qnbyj55bo9x2fmhnktyNW+ r0RlbeiXoZ1Ojv9b55+a1aFG0dfK0ubZrWfDeytUODGJrPKVvyFlr59G1OXG 0/F/9vB68yRt9DbByzSVrEXVbsb2SK5El30I6HLLpOwQfpE970lVFeBf9JkT uoAbwjAhoCQgoASJPnPCEnBbTDtMYtDe06nMQp8hPERg2ip4ElUR+Bd67Ogi 4LaYdtSIGimmrYInURXRhbR+0b5fM6UNOnIyev3KsQkhnQy/WLDyqUZarWvG bwt2o/yPXz57vfsKQqORy0K6olN4Zu0LaVWdv5OgtXpx7t7Invkp+VBhDGFF b+16ECNB6/bxjxG9H6Avmz1r9h+84insLje+fBtVWbU/jT4odqGTCNei8lKy HrFbCA/UmH7Pe1JWBQhn+mFCQElAQME/8w6TmLT3LFbmTragZw/MWwVPkioC +cw7aiSNFPNWwZOkiuhE2LnoMufkrVrbIVmhd4LQVfFN0aEu0OlcgDLEVh5e a4BWv3LS7mCv73k2WNPq9poSQXOPkg0tvfM8tCGs8K1dDeqt2j3Ds2UnA0yi bFukaJdVPeB9fbOy1mdlrk4bqz/XWlRJ2ojNkbem2jgoxWcfdlsSvDOXyfe8 J4VVgHAmHyYElAQEFMpj2mESo/aeRX58q7P3Hg1+9sC0VfAkqiKQz7SjRtRI MW0VPImqiD6EnYv23sOO7eo8X587z8OWt2dUvcTQT4bvHNm6eIMvrdf+0fEr s4P8hvcN9s0nbg50XtZm//rv7UrPBifdMzQzup4VpR25gw9hhW9dzHU5QP4T EzCH7DFtfI6DPZefiuYFf5jSxeuYIvmyS8laVPWGLorm0FRmcQSt5dTtQX/L 1Hvek9IqQDhTDxMCSgICCuUz6TCJWXtPf20tE7T7Xj0U8M95k1bBk7CKQD6T jhphI8WkVfAkrCL6EHUu2rdBh8pVC88tHea8Bz7IiWInr+52Fu2GZnMDd5XI P/5288QQa31kzjPXl75y7QaTsqJ+UHHL246ah9AsWuFbu+ycfWfx28epZ/iJ XTOG9usrxMjJmfrkC3Tjexysnjwtmmtl536Y0MzjmCL7gmzxWlQW7Za7PjkW 1ZLFZa9rh7IIspn3vCe1VYBwZh4mBJQEBBQCMOkwiVl7T3tu5pCaPgMl+B+t Jq2CJ2EVgXwmHTXCRopJq+BJWEX0IelcdOnp31Ktp25TE+ClVwdCbMPi2o1u QVvbeXTDs2iNHl5Tzv3Gtm8XP+CxhEvqPzZH3bDEZt82vUUIHZsVvrXbmexR dbS4XZUo++ePWjRIlMb7OBho5IbC1RG95NWqPjY5R3UIl6tkLaroH1SxbXiz odfXPDFxwNygjz2Yd897Ul0FCGfeYaJ6aJh3z3tSXQUIZ85hErv2nqc/es7n r+ZQukqaswqepFUE8plz1EgbKeasgidpFdGHnHPR+admdfDcDVatVe9NIa3q F6bzp3YumTbo/t/VqmS94vmP/N+MfzJzyJVaWG1Y1vW50b3tV183bV+Qk+he 56LL68dy/tiMtBp67xDnCeFgHZsVvrU3146NyxKWth0fdEhyLyuplvXGlBnK rw/Bm/dxMLrY9Bpi4Tx3cPr7GQ83qVrlstYjFgQ9buZlrU6fPOlfa4N1DQrM tRaVpdqjbxyI9vElf2tPhPAQkIg9r5aAKkA4EcOEgCKgCCj4I2KYxD2gYtXe 0+emvuL9EMrpFBFVUEpaRSCf+lET/5mVvJGivgqqSauIPsSci3au/edWWeu+ 6KDu75K7cd6zv7vOWvImDy7w30qj5JaMcNqwHNnySuviV65e84kPdwQZ/l49 PaxamyG7/E3dvS5S6Nc627lAZOCOzQrf2ke4LaaB2Cn9NroGRhQL+PoMsdYT 1+eH9ov7J3RyHTrrpn1yMuCPHlr92K+Kfza655hca1FVrzl+hx5H6uMZvbyO d+UGoCcJe14tCVWAcBKGCQFFQOnwcgRURSRhmMQ7oGLW3vPIv566SvMW2uiT UAWV5FUE8ikfNfGfWQkcKcqroJi8iuhDyLnoiwXLetT12AW63FnhrfDMulc6 10lwv4XWqNOKcoZz6VKS4Z7/PPNjds7ZEAaGV2ds6+UD553z81r7xqaUfuX0 bFJxccuszm3/OG1X+bcZK3zrspwtpqPLHEAfmdNv9zwORhybP20dUtd9B361 +18O9Xqs+0hk1Vr03hzw2Hn8nz1cb5Ckjf820sFTshZVyuhVUXfpKeZqvOMR xaEs1Kt8z6slpAoQTvkwIaAIKF1ekICqkJQPk/gHVGzae/o0UXTuzlBPpyiv gloCKwL51I6a+AeXXeRIIbukVUQXMs5F56+b0MR7J7T76/gRA51LuPUZNPL1 SVOm/3vF/2Xu/eFMpBvp2wil6C1mbC9viK58/BrnT0W5QGd5bJvfvrV0S8pp lu6zwSnjMuJ2IlbhW/vhuj2Gv0QgwNn9YxuVHr+sWmr/bRGE9cXCtc82LXmR oi/27+YeCDnX3EeiROvT6YEezblYOP/eJNdbRNFT66eFg+toFkvTh1f/HOEr +PLtrm/RajebkxPst5TveaWkVAHCKR8mBBQBpQsCqkJSPkziHlAxae955OuX mlbXvNXtNSXbz11N/iivglISKwL51I6auAeXXeZIIbukVUQXEs5F5+1/s5Xv fijXldekPvzUiMnvL9/6fRjnpb16YjgkPfJaufu5dA6sX0twLzb7un6N3EPJ byvmC2fnd/L4xsVz7QOFb+3XuYNjnWvYXG6ZlK1yQ4Aiu8e0cx/CIvrruPjP 9tJASx667mjov+t5JApyPdTV9N4R79buE0+EvZnFDq3tfY0+a1F58uiWH8bQ VrvnVZJUBQhHQEWPgAqPpCpAOHMFVAzae9pyvnmzU0OL19jQktr1yzgRxk1D 5g0rqRWBfApHTfyDyy51pJBd0iqiA+Xnom32na918rk3PETW2vXvefyv4+f8 Z9P3xwNfGPFpRh1kP5feiBuj2zCyF/+pdFOqaQO/8HNTtPd9+MGfyNCTwrf2 y+M6Qp/VhniIAhVaaSeuYvfO2RfWb59YMfaOSqXDv1L3ecF6y3tzH4mCXinz eJSp2cSvwtpIl7zDU9vW0LdLj1PpgycuCdrAdSGkjNI9r4y0KkA4AipqBFQY pFUBwpknoIqc/+nt2/Vs75mf9fmAZmXuYXt4+PpwTx2YM6zsgisC+dSNmngH l13wSCG7pFUkeqrPRRds/ucffc7IRySpfosuzwybNO8/m3aX6ePhmiqX/GTQ E/67F9zt+MHYNIUo6arn1HzMqrL3RBf5ZdFgj6GmJb+0NG7FUfjW5Sm9PUaX xjhAlPZPfqjk8lk5zzWU48Rnb7S9suTxoggOgp4dw4JdD3V3DKusDf0y7IOt 7eT3M7o4r5bqf3TIGpnqE+AhdkNStucVkVkFCEdARYmACpHMKkA4MwSUy77F 93t/hyP/K+bcibVv9mte1fvlErRWL87dG9HD1GYLKxfBFYF8akZN/IPLLnqk kF3SKhItteeij2x5vmFlTXdVajS+o02XJ5ztpvs9cfdvq5Wc7q7bc3xmbuAT /jb7tuktnN/wqO9+9/OJPZaqDNCPxWcS3m1JNI9ZhEfhW5dn46AU58a0nLpd 9bYARbF5bH4X91MtzUctyw0anhfO75zx12auw6dFq9Vo0JKdYR8E3c8sBHv2 ymb/tFuy671uSF14PJx3sV04siq9529Kr5YWvULj9H36HR78xX69lz8NaW+o 2vPxJ7kKEI6AigYBFQrJVYBwFTugPF5kx6g0r29wFW3ElnCWbi+Wf3T36ulj Hmzo3bKm6G/Um1uNXpkd+YgwT1iVEl4RyKdk1MQ5uOziRwrZJa0iUVJ4Ltq7 XXbp7cq2vGN7v/0m49OP0v931MBH70/5n0RNF9Wv7T7ti+BfV7u9cOmwS7WY 7BPPm8ADNwb3apQX5UKoYVL41uXJHtPGuTkSbtIGHDzjK0Fr9beZu/LKHSl5 Oz8bc5/7ithlqV3nZp2KYFx5dgxrNfWbQD+alzX86pKNu+/VQ0GHzfmfD37n TN1XHr/9OmuZ+LTe/Ie/Tftg1VfbD54Mu09O/olD2dnZe7b+d8XiDye9+PQd Nf1FerXqHUf+85MVn2/KynbYV/4ytSr2fJwYqAoQjoAKGQEVKgNVAcJVsICy F4+O4m9l9p5vN61evmzB+68+3tb3W1xZ6/LGRxnb9mQHsTdz7Yrli+dNG/dK 346/q1VJ81W9do9Ji7NPRx0VFTis7MasCOSL+6iJbXDZjTlSyC5pFYnq8yo6 F318x6jb/JyI9uPCuYObPp8z4ZWe7W6tFdk91AmJjboN/yQ71C9ewaLBri+3 vvvEubyL44Uttz2XHmiFyvzjbzcv/c5ZtLppn5zUbzMCU/jW5Ss5F52YOGBu 2BeBgNiwHf32nUeblB7drHWa9P1/7/573dd79u7LzS/MPVj0Z/WGBdNeH9TB fQTUql/30PiPDkb6CIy7Y1jQ66GuRkMO9V5dFST6Ck/PuivE1WPDmd44nd4x /LrwrycGbA0a/z0fD0arAoQjoEJCQIXIaFWAcBUnoOxl1nyPmeSWnf8242Md zxtUzLCyG7gikC/OoyaGwWU38Eghu6RVJHJKzkVfLFj5VCPXV6P6tT3+8Z8Q vxi20z9uWvrhpOHPdrn9pqSy92SUVSUp9anhc7YcDuu285iciy69glPtqo4T Pwtye7arKE66rh54/ucDhwOu86jwrcvHuWgIdeHcno8mdG7g+7RLWdbaDbu9 Mn3z0SgW33R3DAt+kejUrKdcb5yg9VkVrOt9GCcZrMl93w9vWYPcTf0jWBHg am389oBjPZ57Pj6MWAUIR0AFRUCFyIhVgHAVI6Dsjtv6Z/wx+KeIxJXXN7uz Q/dBwybNXZSx+1hMLr1UvLCyG7wikC9uoyamwWU3+Eghu6RVJDJKzkUXt75J uuX3T7wW+Rcj//i+TZ/OmzbO0cej9e9+43nLdPKvb+/4+F/Hz/kkM6IX1/9c tGvxxJAb1HjdnKxnaXaObK3d8vCasyLfunyci4ZoF85lr5w/cfizndu2qFfN O/bvvr/v39+Y89l/D56N+sqjR8cwrcvrOQFfb12fG4t/0qLVbJB+ONp3lis+ ex4wNAJKFQIKCIqAkoCwAsIVh1FDcAVFdhmd2rULRdK5X3Te4ZmOFusWa0q7 9F2h9gnxaNqsX2nO7h/bqHKVJ94NvBihwrcuT8m5aOsVz390QY/NQYVnK8gv qFhHHs+OYY3HrQ/0o+ePTGjivKJk1VL7bxN07ROAAwFFQAFiEVAEFGBEFSy7 CC5UfJyL9mWzb5vewjmWo+9Q4ToRrSW1e2b1kTBu0s4amVqSPVatzZBdepyB Pbd0WFGg9VmZK/aty7NxUIpzg1pO3a7D1qAisp08sHr2lJf/cn/qzde6+/ck XFLvtjZdeg957b2Fmw5JaIoUOXfHsKBNMvctvr9kB7DcJyABAeVGQAHCEFBu BBRgHBU7uwguVHyci/Zls2fN/oNjKFu0+p1WhNZux7+SE9F1e7yyKbfcIMye M6LPK//a69174uIX4653JYpOCwie+3Fqq6u0Vr03nQnygwrfujylt2rfM2d/ 1FuDCufMkZVvDEr9n2ArH0XUPV4Kz45htZvNyQn4s64nOxy6LfF4FuHMkYzl q6Sv2gBUMASUz88SUIAcBJTPzxJQgCFU+OwiuGAGnIsu63hGr9AGfiDOE9HW So2fmZodIAEuFs6/9wo/LYByM4fULE3RYAunhmD/5Id+lRDanckK39qvC7/M Sqvi3Jw+q43Qdh5xVLBj6dMprgWVkm/vNGjcu/9e8X+Zu/dmbVyzbMH7Y/76 eKua3rOUKkmtn5+WlWe0i+TujmHBn71yX0avnjzN4+qN81Gv6Ec0gBARUGUR UIAQBFRZBBQgnymyi+CCGbjWqkvQ7nv1EOeinVzn5zUtSRv/bUSp5ToRraW+ tiI38F7Nyxp+tf+HKXaPaVeaoCnjMqJJz4LN//yjRavTf1ZOaCVW+NZ+nMke Vad4Uy63TMqOYlNQ4ZxYMfaOSsUjtdl9b3yedcbfd8x28sCyV3vUcT+45XBZ 6sP/3muk6xoeHcOCZbX7MrpvlyHHRKVhpxU/x35zARBQfhFQgAwElB8EFCCe SbKL4IJJ5G5e/M7kKf/+5pjqDRGktClEJDfiFp759PFGlqqJ3Wd+7TcePdk2 vNlQ09qm7/bzb0c39k92XtSzaI06rYi0V0bBjkVdkxOS2vXLOBHySWWFb11W zurHnFsSZcsUVCzOyxxF6vYcn1l+Dxyn0nlLCYs1pc0c40xI3Ne7tQRr94kB 1gA9s3xUw5KfTOj5zunSf3CsalHpsj7vny7/dwHohYDyi4ACJCCg/CKgAOHM k10EF2BaP77V2Tmkm038KrzfLDyz9oW0KlfX77twR5DGRBd+ydm75+PeTTVr ue3of1o4uE5JDDUa9nGQW6z9KT4bnBhB8Cp8a19b3v6t85pg2U4mMK2ftg6p 67hcUrfXlEA9cDz4mZC0fnxdNFdJ4sZ9vVsLsqLoobW9r3E/leYVXztn36lp PZcFmMsA0AkB5RcBBUhAQPlFQAHCmSe7CC7AxJy3K/teXQqq+ER0VS1M3o19 vLfD/vXf27lesFql7vOCnd/2dOF81qwXW16qJbV7ZvWR8M8GK3xrb6dmPeXc inqvrhJ/5EBcXCxc+2zToumEpcUjq0OfTtjsO1/rVMV78NUbusgA99q7O4Y5 JlFarVvSD/n71Ee+fqnpVdabUu+4zvWjLaduL/3Hr4feFs0zDgBCRUARUIBY BBQBBRiRqbKL4ALM7GTmkCu1sl13AonsRLSjCcbDa84GeNm8jWNL+h1Vu6rj hP/khHBSOC9rzf92aVK1SuW0EXP3Rrx2qsK39rCuz42ODaisDf3SeEvgIhZs W6e3dHwntYFfhLkgZu6O4XW9F7NI0kZs/iU2m6kbj45hLmXvB8jdtHBA86ss jscQCne/5ur3nvzCIueloILM2e0TtdZTt3E1B4g1AoqAAsQioAgowIhMlV0E F2BqNvuqJ+o5hvTl2visEPpTeN5FHJ4QVo20XTiyclq3Bq4W1klN2o/4YPWh s/6i5fyprM/mvNLjj7USteS2f57630PRnr1V+NZOroULrdqvH1oj/RIm4sJm X9evUdFXwvrI60fCbx3zw5Qu3gPQKr+PlkfHMO3GxilJxX3Sktv2HD1j/rLl K5bMnPJy0birnJDSc3RGTvEExLl2quMyeqNB7y1Zkv76g9cmJN0zNDPANS8A uiCgCChALAKKgAKMyGTZRXABJndu6TDnBam09O+C//T5nAm/DXbW2T/rFc9/ VF4HIO8NOrH2raEdS04La1Vq/Pqern2eGz5+0qRJE98YMbBf9/Yt61VztBVp /EDfySsycwuj3QMS3tq2+e1bi9+z9DIfzO74pv5VHddwIux/9YNzKcxSFq12 szk5em+kjtwdwyxazQbphy7kbF72zkvPdm7bonjQXVLvtjYPDR69YMthr6s/ 505sfH9cz+KBmVS/effRM3flcWEciD0CioACxCKgCCjAiEyVXQQXgLw9o+ol Ou7I/dPogyGdLI6LC+cObvp8zoRRAx+9v3Wr1o2vdjxycln9Jql3dug+aNik ef/ZfOh0rHJHxVvvHlP8yEkV7YUNoh+lQdwUP7Vk0eqnfRLZUgwXfpmV5tM2 TOu2RPCyDjml0yer1mHY3vBvBgAQNwQUALEIKABGZK7sIrgAlJ4IrX7lpN2k gApn949tVHw54J7h2XIuB0CpAxM6uqcRV9a8a9Abm3LDuwbi+dyTU/JLS8WO 8ItfjLu+ZDtZvhMQjoACIBYBBcCITJVdBBcAh5yMXr9y5EDK6FUsmxd/+Z+N ckRxZa3PyjAXKUDFtfLxa7ynEpaqj03OCWcycfbDZ7xfIUHr8nqO1CP9njFp rs2srA1ce0b15gAIhIACIBYBBcCITJVdBBcAp+Jboy1a3VYLj6reFLPJPzWr Qw1uioaPT7te4TMbcbTSOhzGKxQsGuw7G2k/7HuZl8bdz5RF8WAagHghoACI RUABMCITZRfBBaDUT1uH1HU0RubW6DjLXzP25qL9nqSN2EynaLiVmY1o2uWW SdlhvEJxzzEjzEaKHM3oZXVtpLX7ROYjgHAEFACxCCgARmSi7CK4AHj4aeHg OppFu6Fx+j6BgVVBnT82I81xxGg0chmPpsDTxkEp3nORsJdCNsyVce+OYWnp 36neHABBEFAAxCKgABiRebKL4ALgpfDsyj5NI2hMhIgd+ddTV2kWS8vHMk6r 3hQIY8ua38HqNZloPmZVWBcs/HQMEzkbsXt2DLtcG58lchMBeCCgAIhFQAEw IvNkF8EFwNfJ3WNbXFUUWvemb6dTR6zZvl38QBWLVrvBpKzzqrcFEuVu+vcr f7m/davU1Lvv/+t7n+WEOSazRqZ6z0asVzz/kcyW5CWPpFm11v0zGQ2AERBQ AMQioAAYkUmyi+AC4Me+lX+5OlGrVX9kBqsYxpLztH9SpUFr2M+IAfeSEG73 zNmverP8O7JwZKsaluSWnd7YwHAATICAAiAWAQXAiIyTXQQXAL8Kdizqmpxo TWkzZy+XqWIj7/DMLg0tVSt1n7eD+88REz+sfsxnLnL1ddP22VRvFgAQUAAE I6AAGBHZBcD48rM+H9DsKguno2PBeSK6Zv2+CzkRjVg59cEzl3o/olXliXdZ pBiABAQUALEIKABGRHYBqBhsR79959EmtZ4iwXT208wnr27acfJXPJCCmMk/ NatDDa/JSJI2YvMvqjcLAAgoAIIRUACMiOwCAABK2bZOb+n9hFa9oYvyVG8V ANgJKACCEVAAjIjsAgAAKuWfmv/AdR4zEYulyf3Lf6JXGAABCCgAYhFQAIyI 7AIAAEqd/uTFGzymIlqtOqM3/6x6owDAgYACIBYBBcCIyC4AAKDS8e3Db67s noxUq9R9HktkApCBgAIgFgEFwIjILgAAoNDFwrXPNnVPRRK01hPX56veKABw IKAAiEVAATAisgsAACj108LBdTymIqmvrci9qHqbAKAYAQVALAIKgBGRXQAA QKGCzNntE5mKAJCIgAIgFgEFwIjILgAAoNKRr19qWp2pCACJCCgAYhFQAIyI 7AIAAArlHZ7atgZTEQASEVAAxCKgABgR2QUAABTK/3lxt4YW51SkWmL3mV+f YSoCQAgCCoBYBBQAIyK7AACAQoVn1r6QVtU1FanUfd6OAtVbBAAuBBQAsQgo AEZEdgEAAIVstt1vdqnimIhYtFq3/G1FNlMRAFIQUADEIqAAGBHZBQAAFLLZ 9rz75A0W51Sk/siMo6o3CABKEFAAxCKgABgR2QUAAJQ6sWLsHZUcUxFryt3T Mo+p3hwAcCOgAIhFQAEwIrILAAAolL9+yh0W51SkzZy950P6nYvn92QsX/7l rrO2GG8cAHMjoACIRUABMCKyCwAAKFSwY1HX5MTwpiJFcjf1tyRo9716iHWW AcQMAQVALAIKgBGRXQAAQKUjW55vWDnsqYjdZs+a/QctMXHA3MIYbhwAcyOg AIhFQAEwIrILAAAodHzHqNuqhz8VcShYNFjTtJZTt8do0wCYHQEFQCwCCoAR kV0AAEChvMMzuzS0RDQVKbJ1aPOi2Uif1WH/IgAER0ABEIuAAmBEZBcAAFCo 8MynjzeyaFpSmz8v+T78GUXhqRmplbUkbfy3rF0BQG8EFACxCCgARkR2AQAA hQrPrH0hrWrRVKRdv4wTEU0nvpvfXrNoddM+Oan3tgEwOQIKgFgEFAAjIrsA AIBCNtuet3rUcDycddd7G/dkB7Xjq9XLPSyeN23C2IFtGlg1q5baf1u+6o8D oCIhoACIRUABMCKyCwAAKHVkzjPXa7pISOj5zmnVHwdARUJAARCLgAJgRGQX AABQ6MSKsXdU0mcuUqTeq6voFwZALwQUALEIKABGRHYBAACFCjJnt0/UbSpS 5MEFP6r+TAAqCAIKgFgEFAAjIrsAAIBan3a9Qs+5SGVt6JcFqj8TgAqCgAIg FgEFwIjILgAAoJausxGLVrNB+mHVHwlARUFAARCLgAJgRGQXAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AMBo/j/lNwIp "], {{0, 191}, {1924, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{609.1958333333329, Automatic}, ImageSizeRaw->{1924, 191}, PlotRange->{{0, 1924}, {0, 191}}]], "Input",ExpressionUUID-> "7249d746-c814-4cf7-bb74-2ce11fb3589d"], "\n", Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzt3Ql8U2W+//GTtKCWVhb9A5VhFUEKM8oiI7R1gaKI4AYqA8iACoKgoKAo IFitDMvIchlAEOwIFBRkH2irLA6UUUCwKFSBIqu0CBShRWhLk3+zn3RJcpKT 5Enyeb9e977ulTQ9yfnm5OnvPM/vafz8iKcGayVJGnVj6f96auCYB19/feDb PWuU/j9Pvzpq6EuvDnrxkVdHD3pp0Ov3Ph9W+h+/KP2fRVUlyfB/6wEAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPxDV1RYpPP3QQCVIJ8QGfmEsAgn REY+AQAAVKHTHVnwQkONtsYbq6/7+1iAssgnREY+ISzCCZGRTwAAAFUU5++a 3K+RVpKk8PBXlxX7+3AAO+QTIiOfEBbhhMjIJwAAgBryD371/kPNDKMqiZEV hEM+ITLyCWERToiMfAIAAHjq+tWT36TOeKFznXBJhpEVxEA+ITLyCWERToiM fAIAALhHV5x3Mjs7+2jm9i/XL/k46fUBCY1rSBVgZAV/IJ8QGfmEsAgnREY+ AQAAVHEtd/pdFQ2jJCm6w5PjB3cPZ2QFPyKfEBn5hLAIJ0RGPgEAANRiP7LS 1ruj07MvTpj96dZDvxXq9UVrRkmMrOBH5BMiI58QFuGEyMgnAACAWsyLIEod yb2iK/OPjKzgZ+QTIiOfEBbhhMjIJwAAgE8wsoLIyCdERj4hLMIJkZFPAAAA tTCygsjIJ0RGPiEswgmRkU8AAAC1MLKCyMgnREY+ISzCCZGRTwAAALUwsoLI yCdERj4hLMIJkZFPAAAAtTCygsjIJ0RGPiEswgmRkU8AAAC1MLKCyMgnREY+ ISzCCZGRTwAAALUwsoLIyCdERj4hLMIJkZFPAAAAtTCygsjIJ0RGPiEswgmR kU8AAAC1MLKCyMgnREY+ISzCCZGRTwAAALUwsoLIyCdERj4hLMIJkZFPAAAA tTCygsjIJ0RGPiEswgmRkU8AAAC1MLKCyMgnREY+ISzCCZGRTwAAALUwsoLI yCdERj4hLMIJkZFPAAAAtTCygsjIJ0RGPiEswgmRkU8AAAC1MLKCyMgnREY+ ISzCCZGRTwAAALUwsoLIyCdERj4hLMIJkZFPAAAAtTCygsjIJ0RGPiEswgmR kU8AAAC1MLKCyMgnREY+ISzCCZGRTwAAALUwsoLIyCdERj4hLMIJkZFPAAAA tTCygsjIJ0RGPiEswgmRkU8AAAC1MLKCyATN57XfT2Yfyb2ic+NHdfm/HT16 LK9I9WOCHwiaT0DkcHL9hMj5BAAACDQBOrIqOrCmd2xs8pFr/j4QeJeQ+dTp 9y9sL0kD0y658cNXPh8m3aCZla36UcEPhMynE1w8Q4So4eT6CQNR8wn4B1/N QYNTCcAvAnJkdebbVxqES5JG26pTylEum8FMyHya/yztMO9HN344+4NOUhR/ lgYJIfPpEBfPkCFqOLl+wkDUfAL+wFdz0OBUAvCTwBtZ5ewb36aW9Yijuryc ccGdtTwICILmM3drf0lbfcTyq0p/UKdf+1R1qWmP9HxvHBZ8TdB8VoaLZygR N5xcPyFyPgEf46s5aHAqAfhPgI2s8n9d9Gh9w5GGhbeMaao1XTa7jth92d8H Bu8QNJ9XT05urpXaD95TqPAH87PG1dZKnUb/dN0rxwUfEzSfFeLiGWLEDSfX T4icT8CX+GoOGpxKAH4VSCOr/NOLezXXGC6YUtyktLwreZvfSKhmPO7Gg+Zk K77xjwAgbD53jWwlhUsjthco+qmrG8feKklN3t/C3bvgIGw+y+LiGXpEDifX T4icT8BH+GoOGpxKAP4WMCOr4oL/joyVzBfM9LwS83/c/qb5snn7qM/Pl/j5 GKE6YfNp/ANTU63/7FzXU3ftt0UJt0pVFP8xC2EJm087XDxDksjh5PoJkfOJ UKe7nrtn0yezZ82akjhy6NChg/p3vy8u7t6/tOw9KUvpHGMH+GoOGpxKAAII jJGV9doYcUOXaZYLZpl/kl9LESzEzeeV45NjwqWqUt81J138iRMLnrtV0krx wzPpoRssxM2nFRfPUCV0OLl+hjyh84kQV3h+brtwqawwqdfUXLXmCgvy1Xz9 avbmzz/6OGX3WS6s7uJUAhBDAIysdLoj/+p3a+nRRVbpu/xAUfkHlF42x3ev E2a4bD6a/GMFD1Co8NcD6+a8P+Sprm0a1jC9Lzc3bX1fj2dGvD97/d5fCvjj 14dEzue5z4bXljRS3aYTM846ffCF9Mkdq0iK/oytEOEUisj5NODiGcIEDyfX zxAneD4R4govnMoudWDff8Z011pi2nLKTnWe3edfzRUr/H3dwNaRhoWjGs09 /TOYB+0GTiUAYYg+siq9YC54oaGm8gumooc5/W0Xj658u0+LG0svvzc06dC1 7+ChBgN6xzaoYX2Pojs8MSk1i/G/bwidz8JLK56sLxn/Mp2w7VTl4Sw5sfrd 2KqGb9vIv314wt1m74RTQELnk4tnaBM6nHqun6FO9HwCRuc/7mcOaVVpzLdq VGV8+9XsQMnOGS2sH8HqmlnZXvgdwY1TCUAkgo+szPfoXbkSWi+bNaPH7HB+ 97+8wqyvXm17ixRZq/u7n+w8ddluov31qye3pbz0F8uu5WFVWg6bRwdUHxA8 n/pT2wffZlypEREZP3xy2k+/2bVd0RVf2L91Zr/YKMMjNNo/P7w+x831G4RT TCLnk4tniBM5nGZcP0NYAOQT0Ot3DLndGFGN1DBu1XkVntCXX82OXf8q8Vbz B1ArdRuXzQ7jCnEqAQhF6JFV/pHEJuEK7m6YL5tutd/J2ftG86ramE6zvqv8 emvd58go6tlJDP69Teh8GhUd2PhSq1rWQ4xu81DfwUNGjHzt5SGDerb+k3Xt RlS7x5YddbffBeEUlbj55OIZ8sQNpwzXz5AVEPlEqCvITmxkrvir01jPl1/N zg/m9JIBHetUq9Xm72+nn6Qhm0KcSgCCEXxkVZi9ff3uypfnlKcrObH1821K r2klRZtfjJHq3jZt/x9OHnnm21ca2ProxkxMpYGBVwmeTxPd2Z8+ealznfL9 lU0iouJHzc7Mc3c4SDgFJnI+uXiGOJHDKcf1MzQFSj4R0g4ufcCS0Sbvb1Fl uwwffTXD+ziVAITCyKqU7vuFHSSpVdIWVy7OZxY8d4P1DatVc9ZhGvF4UQDl Mz9r2/yxgx9te0eUaYqJoYPTw88nzi67skwhwimyAMqnl5BPYQVWOLl+hprA yidCk62xXpg0ZEu+vw8HAIBKMbIqdXBivPFb+8YmXf82bXO2k/H/qbRnZW9Z u5l71NruHuWRT8IpMvJJPoVFOPXkU2DkE6LT6Tf1iTbmUyPVa5uS6+/jAQCg cpeWvCgbWYWFDfzosr8Pydeu/7EkIcLyDmikhm2XnXH4+MLzc9tZl+qESY+9 f4pb+l4T6vkknGIjn+RTWKEeTj35FBr5hOjys8bVNuVTKz0y9ihXAwCAwLI/ 6CQfWUldx/4Sat9c13Kn3yXJDdnqpO/Bpt41bH8pxDyz7YpvDjQUhXo+CafY yCf5FFaoh1NPPoUWzPnU6bI/m9j5Fqlz8mF/H4p/FG8ce0PUn/rO/zovoM9p 5sJ7LQFVq7EeAABekX96+l8jZCMrjVSn2ayfQ66Zp2X/eqPa9ecfc/LtbTfy b9ojnX4bXkI+CafIyCf5FBbhNCKfggrifBYXbH8zoZqk0bZ64IuTAV3V8sD5 A4n33CKFVWk5bF7gbipNYz0AgGh0+b8dzbY48vPurWlpaz+bl/hm92Y1pPJq Nerx2rvzlq9LS/9qd5b1x7KPnr0ctPeqcva+F1/f0Ki7Vp3nP3e2U7nduh6t 1Gn0T9d9c5RBi3w6Qjj9jXw6Qj79inA6QT79KuTyaavpdUo5GghVysu/LHqm dbWIm+MnrMx1VoPMz9qaPHvWv7c761FpkrNvfJtapWe18aA5Xq3s5f+csXTq uOeferhjiz+VftK19ZrHPd53wifrsl1Jje567p7Uj8a/0rNz+yaR0s1N7+4+ 6K0F/zW+wKBsrFf6end+8c6zD8XUDtfWa9pt8LhlP/zm72OCWziVQKiyb03s nuBvaFxwJjv3igvDAFu3DcPIv/qI5QF7K1IU5NMpwulHwZrPwkJ3thgtKrxW Pojk01+CNZx68hkUgjifFbDU9KR6zWZlBUJNT68/Pr2H8U3WSI0TNlx0+NBT W/vfZHxsrej5x1179mOb/17b0KzSS5W9/MwNE3rcFakx7onT7YWkRStS09LX L57zTr8H64ZL2jvvnfbNWQc/Xnjk66THjD9eq3GP1z9I2ZCWuiJ5TOl/ibih y7S0i5eCrrFecf6uyf0ahUn3DEpK2ZD++Zge1UpfXKQ09Mscr/9q3fXcvZuN 1deubRrKSvo1G7R94JF+byYu2rTrrEvFYhj58VQC8LfQGll5mW7P3Lut70pV acjmPH8fUcAjn2ohnN4QBPksOHVwx8rFH44f1afbA20b2c+Tibi1ZefHh777 4bIdPxU4/stFpzuy4IWGVaQx37o5/iafqguCcOrJZ/AKjny6RKc7PKOXYa5n pPT8hpP+PhrXFF9aFFfV+CZrpfaD9ziso9tWpEZJ0352dfpk0Z6PH9QYfuj2 UZ+fV7EydvXC9n/0a6Q1HnpMp5n/O1XmM3/h67ndamikO+JXnanoUHW67GVv d7jR+Go6Pbf+F1kNtjh/3wc9I8KkvqNGtrBEUJXGerqiwiKPn8WTJzmRPKjh TVX6LrdMWs7d2t/w4jSae/pnFHh6YJW6fvXImv8b+FfjlGkLbb3mHe/9S92q dp9zbaPWQ+esdWmOpb+F6KkEAMcuHprx+N1lru3eVfNP98/Y4v7gQqff8XKM 9VtIih28m0toEAusfBJO2Cs4tm/djPF972sWpXUUOqvoDk9MSs2qrHhyIX1y xyqGFljJp906GvIJe+QTQePcqlGNjNFp98GWgAnOqbRnzYEP176U/IeDR5YU r3g0yvhIxVvJ5Pz7xVskQ3u6hLnfqTMhK//04l7NjcVCKarLyxkXKiiO5Gdt m9rD8JhuKeVmFprq/5rKf7zw0pJHbrVdd1RqrKdGidv9nWV0WSse0UrtpmXY arfnMwaZnjVCmrDXK4XzwuPfTO7azHB1D7uxSde+ExYsz/jhsHzidOGF05lf rZg67KkWN1muvBUVaUUTgqcSAJzR6fcvbO/xxVEhz+78Zq99wvpMkdKIr7mb H8QCLZ+EEyampiu9/lq3in24Im79c7dnRrw7JXl1atrX3xiaVx36IePL9C8+ njlhcO82txpWS0lh4TF9J2zLKbuCrOjAmt7R4YZyR9zw/e4sjiSfsCCfCC6m P7RLRXUbkxk4uydf/yrRWr2qoPwldzFzdE3TA8O0fWdeUPRrigs2DYgxVNFq 1piw63ePjthwJIem32+a+qXRxg/YUVFNLydlWIPKB1SGmU6Go9FIDVsmH6u4 sHJ141jLO+PBnQJ7/qwFlRSl9mtc9lbF3rl3WZ51xA73LpqOWK7JUuMnR6Xs Pe24Uld45Ov3ujQz396JlM1DE1KonUoAcEnx5YPb0szWLp8/88N3nrk3qtzl T3vnA2NmL16f5oLU/6TMnzVrxqQxL/Xv3u6OCucAdJj3o5tHW3hpxZP1rc8T SPdk4Z4AyifhhN5SMDH1C7KKqNWm78j5G3eedNheTHc5J2PRO51vCZfK93u3 ND8vFT1+ozt3mMkn9OQTwsg/tW7sgNalcQqrEvNc4p7LnjzV8RmxxvjVvDHp e0dT3kTz/Zh25sRHSkk/OvzcZC681/LpaDvzO8W/6eTWvxuaf2k0rR9PO+fB 8sXC39f2Mc3Tq7yB4ZXjk2PCrZ/lMutnC3fO6Wi6+IRJ3ZccqvRQzKsaJY/u FNhTtn1MRFTcC2M/TF6Rmpaasf+Ibf+Y0+fdOZaDSx+QpITkQ/L/ZmurqFLd Us5c04us0ueTby+6eEW+mrf5jYRq5kAKXdkLqVMJAO6z61ltVD0sKdPN5sOG NT5JL8TYL6J8auUZ957NvJTAyNt7e0FQouaTcKLwdObClzrXCZeFKSK8y+j/ S8++pODvqJy9Ux5uppVXTmQrnkr1Wa9spob5WclnyCOfEIWtOmTWakqGm8Um nX7fu11MtYhWSVuELURUQN5Yr3X/nQ7rkbbGelXd7F1p/Yh50mTv+OynzTtV O1jSa5tYaGgDOGGP7IVdPJTY0vKSHa+yl5Ux3bxT4Loz377SQH5ZNLy6R5N/ VDFLhrJPtP1mvtfOzb3X8lY8kXRS3S2/Te+zG6W5a+eWdLfcXlFlbqePBd+p BABP2Hp9SObLVOfRWZ5dE/P3ff636HDrNda9KcrWxr8M+0OakPkknKFOp8v+ bKJxIpN1MBnWasB76UeVFEys8n9d9KhhaG1YUHa54L8jYy1P6ua9YPIZ6sgn RFKyc0YLSc793heW8GikmB7pjneSFY1tMONsXa1Ov6lPtPkj1jBu1Xm3ft3V X6e3NRYf3F3hbl3p7KQop9MdWfxWQqPqUS06jlxtV1Y6s+C5GyynPH7efgcX n0tLXrSGw707BYps6m0/y6u6Zla2es9uqN/eJPWamit7wfLtgcpM/fKUTr93 bHzp09o1f3PdL2m9zXe6NZoO/TM8mUbrD0F1KgHAM/JeHyaqbEF17rPhtT25 xp7aPvg2U2MfzT2vJzPsD1ki5pNwhjbdxaNLX4iVrw3XNm47YVOlOwu4xHLT uW3nh+rIntid5UjkM7SRT4imfGusdjP3uPM9fu23RQnGEUGY1GXRjwGwhaeM fDATO+8HRw+1LVIIkx57/5S7n9yCtMTmps+pG/vRmFqKWTguylUs78C4xpY7 C7Xrzz/m6Al2DLnd+DgfrWrMmhgnC6NGapywQdUSce7/VqYduiT/L7tGtnLx rVDM1KQ07IYmbTt2+dtLC/acVfoEhz/oYn0v4v5vTyDNgA2yUwkAnrH1+rAM IlTZgsoyLHHrGmvt2xN5S/eZX+Z5dzo+hCZcPglnaCs88t832tWSRzKqy7Ct 5TYUcMPl1a+XqWBLbixHIp+hjXxCQPaz9dxv+GYJYQBO1ZMPZpzunnl45cOW N8uj+5jWCXtu1OUOrehqLZXUbZF8SvFRXPps2I3mZ3C2yKIgO7GR5ZEqNdZz LPuDTrLLmEZq2iNdjXFlpc7vHm7uYafVPjs1R9Xr3sGJ8XavpXHsKqWFvWNr H7f+eKB9soLpVAKAR2y9PiyXxHr2PQQ8YJwa7byFSFn5p+d1vtU4kIgZuf5g YN02gspEyyfhDG153yzuXU++sLFKy2HzVJtuJPsTzErZciTyGdrIJwRVXLBj Ut8WNxq3a/n72+kn3aoze1Kk8jvbYMb5zUTbilSP72PaCqEtHtrwm4L3zLIp gORmA7GSorU9bRN7nRQnbWUl7zfWM/JxLUh+T8TtZuMVs1VELdxYgXL9jyUJ EdYnCKyFpcFzKoEQUVK0ZVjbatqqrd5ZF2iL/oVXvnHZI2OPqvSdarzYKtxS 3NyLW6Nt1SX5J7e6APke+fQeofJJOEPbhfTJHavIwhgmxU1KV3e6kWx6g6R4 ORL5DG3kU33kUyS2CpUb85H8TtZYr0yrrvLUXJGafySxibnUr2CbEvs6j5Ml wxWS76PhrDj5x5pRN1ke64PGenof14JsFU41b0ybnc8YZDdILn0tCRuUv4Wy pawBtg1E8JxKIERcy51+l6S4QAQXeKlxmYnxYqukMbJlfz21Fg35CPn0GoHy SThDmw9qJga/bu1v+x1KliORz9BGPr2CfIqj8PdFD5gLTXVHfu7VZXbeIB/M tJyy09FDr+VMbx2u+CNWOUvnNCXrK/N2D7fuW+zOVrw6fdbS+62VFmcFEEuz MgVlzMubJiXExsnEdh/w+rQ1uy669jl1uxaku3gideb4vo/cJ//dcfe1S/q2 8t6FJ6wVXe3NQz5V+QaBrQ2j+cofP3OnG5GRdb/0UXtDK04lEFoYWXmNtxqX GZkutk4GMFaWYX/jfu/tzqu0cpOdMmHIe/8+6t4Oal5CPr1GlHwSztBW9MOK JyPtkuit7Tvt50i4uhyJfIY28ukt5FMYtu58ThvTCck2mAmTRuxwWHdRfUXq waUPWJ7w0ZRjLv2Irbmfm7OSZGVMZ8VJt8qYJQc3vvbEA42rSWW4eOlzrxak O5Q64PYaZX6jtl7TbgNe+aLyK9f5j/tZT/3AVPXnIl74cnq3Boaj0jZqPfST r926m6PT71/YXvaifDNn0oRTCYQWRlZe4s3GZXrLxbZz8mHnDzUN+7XOGgGV FK94tIbT9Qu+Rj69RJB8Es4QZ92405JDTftnt17w1mmW//XnUhGbfIY48uk9 5FMQOv2W55uY/vKW2g/e4/0tFVQmb6znbBhTvHGsdam7XXWlICcjbctJN8r1 tmq8s60rzORFHuX9sY1ks7/CwgZ+5Ghek62Mqa3xxmrb6k9dyYkd63aedjS5 t/D0/rlPNbfOKzRpMmaN0wuTO7Ug6y7MVmGae16bn5Xv8Jp17dzce6ua38k/ P71N9lt0Z7PWp7k6J83Lypb1VFwX4yJOJRAqGFl5iTcbl+ktF9shW52tuDEP +11YNGScbe6bhroKkE8vESGfhDPEmZv8y9S8Mel75X/kuMzSLN21Ijb5DHHk 06vIpyByMwZZmq/5vuCgAttgxvmENFvlvFb0/OO2/26a/+beTMUz/+ppfs4o KWm/C89gK7W5GX55cdLxKZMvT7bbg8D4prlw4/X4jFi7vb+l6tK0LCdH7EYt 6OrGsWV6wkQ9O8n5dDLZVMnoN9fIh5uGTUkaOtk8xXdkc0Rdaf/oFZxKIBQw svIOrzYuK7V5wG2lQ4hpPzt8yuKCTQNiNNXC+y7eV+Ds5Oq+mdHcxel/vkQ+ vcP/+SScIU6n3/dulzJLQ9pNy/DqVBHLJAcXitjkM8SRT28jn2Kw7dXiTp83 /5MNZsKkx94/5SBLtnl9ZeclGsp9zXuk/+7WEcgqEi6No2wd25Rue3cydcP2 vBK72V8d5v3o4CdsmzXUjJx1xHZorpcx5ZuTuvgaFdeCdPpNfaLtfkeUNGGP 8xsoByfGWx9vV1A1TP26SZj5yWVm62mlTqN/8seuGZxKIPgxsvIOrzYuM077 r+bkhn5xwfY3EyJqNx266oCTgdr1P3KPHlk3uE3pt42TtiS+Rz69w8/5JJwh r3DH9NZ2EdRKsYN3V95NWRXWPwCdjGbJZ8gjn15HPkUg333yTnfrWn4lG8yE afvOdNCTqyAtsbnlkXZrVw0N6Kq436W/IDuxkeUq4coqZvdWPRtn50oN2i47 Y7cTrqOy3plvX2kQXuEvMuyjYb/UsVLndw+3u73hfEqk4lpQmZ0pXFzOLC/S 2j9e9/3CDpLUZ92Zyn/Yl8qU9by8n6wDnEog6DGy8gZPGpcVXtwydfSkr7Id jeoNZ81hUw7jsL9ck1Rn7FclCIF8eoN/80k4cfFQYsuqdue3qjRkc563f615 NpTjIjb5BPn0AfIpAtv+y05qYoKyG8w4nAdl3yez7czvbP9knG7nSZd+y26z Li1s1Mv3KKldf/4x5/OQdBd/WdSruaZalb7LjZV8WWGw+ojlFS9wtGymYzq5 dvOdrhyfHKMts9SxUvZb+bgyXFRcC7LtIWLm0qTH8xmDLI+3252tpGjzizEK Nib2gb1z71L0hngJpxIIeoysvMGTxmXGq6KTNjg6XfZ/Pp6/+WDF90DcG/aX XrFjntl2RfmL9Sry6Q1+zCfhhF5/5J+PRdidX63UbVy295elGMsmDoey5BPk 0zfIpwDk7Thi5/3g78NRzm4wo5Hqtkg+VVEVIWff+Da3aO+I61jf/FD5JLd9 Y+7xsHRw5fNh1oNISD7k/AeM9QpTza1V0hZHs5l013N3pLz0l1ukOnazc3X7 l3YyXZoqnHRnqulF3hHf3vSC7WYnFn6Z2CDMpaWRJraipYmz/j9Ka0ElX09p YH/BsmsDWBnZxDB5G2fTROueK3x1G0NXVFjkpHAl2+LEpTfEeziVQJBjZOUF njQuM+3x7f4G6BV1BHKNs7YkfkE+vcBv+SScKPVLWm/7mVC+mQqlN49RKy9i k0/oyaevkE8PlRQWurPDgx3bCtaAb6xn1njQnDL9+fN2r3q13S2aVp1SjhYf ntTF9DDrXLWizKVdw6X4efs96N2l02ctvd/yWXN10uPFQ3O6NtOW/kSkZQ5e 2dd29WTGuikDO9cJl+p2G7Lq50t2R6jTHZ7RK8L4AYqfuVO+kjI/c+Mb8fW1 dVu8lX708rbJdxqOSrbc0rB1wi0R/Wfnuvyhs6/tGDjeDU1pLci+6uX8+c1s UxalgWmXzE91YE3vaKnxS4tOeu0uTOHZw1uW/mvC4Ge73H1HlNZ2zNFtHuo3 Jmnl3tPlT6VtUxXX3hDv4VQCQY6RlRe437jM1OekTrPk0+7+bvMJdYO2xhur hbt8kk8v8Fs+CSd0+m9fb1fm5PpmKpTeMkattIhNPkE+fYZ8uqXwdObSCS8l NK5hOrVRTdv1fW/hnrMuracsy7aCVUkjDtcU/LJ75dSxfbvcXddaJK9ZL673 y9NW7zjrVvmwwllR8sHM7S1bRRknwEV3Hpi0aEVqWvr6xXPe6fdg3aphrQYm ZeQa3yLz0lSNVDdm5Cfr1ydPfepPYVHdxmR6OJfVNt3IYXucsj91au1rj9YJ M0yma/nky9OWrksr9Z/VybM/nDC4d2yDGsbXMmDqml0XK/yAFOfvmtyvkdbw GbpnUFLKBsvrlZcBS4q+HWec3xsmxY7+aMPqlPEPNTNWOBUExrJDt426tSD7 qpckRbi8JbFlYXVUwrCUjf9ZmjS0XTWp8TPjdl7wwv4Kuuu5O1e+Z3x7zWe6 3h2dnhk49PVx02Z+OGHEy+aoh4XH9Hk7/aTd+2M/R86fZT1OJRDkGFmpzpPG ZYdWdHWhi2kIIZ+qI59qIZxusLVysnk05Zhvfnnhrwe2pH+ZdTE0Bork0w3k 02fIp3IXtvyrW+kfv2E3NEl4eswH/3zHXGTQaBUWasxyrWlX82tdd/anpa8a q1WViGr35ILM35Q9p3HNadllwvKyZJ1myaeu5+5J/Wj8Kz07t28SKRnepXs6 PT2q3ASqqxd2fTplYNcOpY8xFEWTFv+U7/EnTt61zNnCxjLyf85YOnVc30fu b1nbWDCq2aBtfKdeg0dPWrR8x+HfnJ6T/Kxt88cOfrStYebYzU3v7j7orQVb sux2x9Zdz9m2bMyzD8XUDtfWa9pt8Fvrf1EWFaVTsJTWgspOIauumZXt6rGV hi1lgvHlR9zaMqHXW0s253phzmne7lXvPHZXpGnVdES1+JffW7n7l/JbkOsu nkj9xwsxVe0/j2U72inZJ0VtnEogyDGyUp3bjct0+r1jDXt8O2lcFlLIp+rI p1oIp3LHp/ewH1SWDhQTNgReo/ZAQD6VI5++Qz4VupA+uWMVSRvTaeb/Tpn/ 3i0pSu3X2BRUTYf+GQp3ctV9M6PinWE9OcjtC56S7UxRCY1Ut+nEjLOuPqnp ZUaVawcnL0u63h/YO+QzstzvoiMkkWtBXleQmzq+ZyNLjfrmuD7J+51UpPO+ Wdy7XhXJ+nmUbVts+qz5sSVCSJ9KIBQwslKb243LivZ8/KAmCIcEHiGfaiOf qiGcShk24CvzF5/25iGfqvLnJMoin0qRT18in0roslY8oq1gVp6p262JS5s1 yMhX5LneX7fyQ9Qd+fS1tvabzVROI9VrNivLpWljuu8XdpA01cq1g5P351fh +D0jX35ot5tn4CtfC+qW4mgXg6CpBRUe/19ifH1z/7wwKfbtZUcr3nW4rAvr x95p3gxF3nfRJDz81WUeN8V0U8ieSiBUMLJSmzuNywx7Xf27d71w81ICtxvr BR/yqTbyqRrCqVD5XdJK37yBqVSJvYN8KkQ+fYp8uu7qmXmxt0g1a0zY9XuZ fzkxvbs1rK5u1mAhHwx0Tj7s4THmpAwr+/ExqdmoVaMaFf5L5OPvOC/smabq 3SS9+U3ZjnVHPkgwP1FVacT2Ag+P30Oygkm49qVkV3eZDQTla0HyfYTLU1oL ypoYZ/d4tds8use4ZYPlLk+YFDcpPc/1y5QptI1jV52toJ2d43fPq0LzVAIh hJGVulxuXKbL/+1o9tGsXV+vXzz3zZ5/rVvF9Hh/dl0QEflUF/lUEeFU6ODE ePsRpUZqGLfqvL8PK1iRT4XIp0+RT5edWfDcDZIUMzG1fOlKtvZT8Tu5qbet 2ubShpWVK9w5p6PG9smJuqvzyOnJ2374Jc/aHev6H7lZe9MWThnw1/q27UPD pJ4rHE0W0pun6lW0bY2tZZkIK+V1+v0L27t7IsQmf2leqQXJc+jfHSWs7Gp6 pR+9sesU1PSMdHvm3m2YC5eT8fLtdu9dmDRih7/G0KF4KoHQwshKXWUblyml rT5iuWuzvEMD+VQX+VQR4VTkWs701mVWOCqeXgIFyKci5NPHyKeL8o8kNqki Nbpn2elyy0ztQqvwnZRvrBwpJf3owTk49/3oxubD0N4Z/87nDve6Lc7P/OSt DjeZHy7FD890UFA0zXqqIg3ZnFf2n85mDNKK9Dk9tvZx87sZdNUM20sznzXH O2srqwWVFK94NEr+5FKn0T/5dd/uMjU9l+aUlleQndhIW7XXmFHyXXD9PoEt xE4lEHIYWamqfOMypZ5aecbfL0Ik5FNV5FNNhFORikrKZXc2hIrIpyLk08fI p2sur3699Fu7yTubKiiVHVz6gC2tCtd+yjv5e9ICq6R4+yttTE/TuN97u/Nc anFnq5xUrahkZ1HpVD37JfNKmwp6xfmMQebD8XfpRnXlNn1wvMGKslrQ1ZOT myt4cq+7eHhy+1q2g2/YMvmYm5cnw9S1WtHRN8lfnb8rXSF1KoEQxMhKVWUb l0lSz08ysytwNGvXtrS09C8+nvlOvwfrWu8L1YycdcS/fX8FQz5VRT7VRDiV qKCkXFUa862DWR3wDPlUgnz6Gvl0xfUrK3rcKlWXpmVV8B6V2bhZ2U03eRnK g8XmhTumtzY+S+NBc7KVTOW3bMKljXh+QcVz7RxM1ZM31qvkzfE1w+wsy5kI sp0CbOudTbRS3PD9lS8kVVYLsm1nbNZ25ndeeA2uKb6yeUgb+cHEz9vv9pC3 7P4RRn7e2yV0TiUQmhhZqah84zLX9hcw7ZpE47IKkE8VkU91EU4l5BsFmuMX ZFMaREM+lSCfvkY+XWFYNKeVOo/OKl9gvnZu7r1VbXE19udX+Myu/bXuQOGl JY8YyuFRz05SVNMzOT776QgHH7TstU9UMlVPb+vi5WwZr8/IFzVHSBP2+muz U6+w7zvq5NqoqBak+2aG3Qwvv95MKUhLbC4/8pge6Rfdf7YKynoC7O0SIqcS CFGMrFRUdhWPk/sgNuapyzQuK4d8qoh8qotwKlFupqjL8YN7yKcS5NPXyKcL /lgz6qZKZviYevJb43rzkE+VrHeTN893v6xXsnNGi9Ifr7Dvnyuu/jq9raEy WeE8w31j7in9FPZZV/EUxJxVE2Nv1UR36PHhN4qqmV4jL+t5vAWJaMruEu6w PKWoFmR/P8Wvu5/kHRjX2K69aqspGZ7MrCtX1hNhb5fQOJVAyBJ9ZCX5lkfH Wn4VT/T4jS69qZZGozQuK0vofAZSOPXkU3VCh1MvWj7tt0iT6LvideSTfIqM fLqQzwtr3o65s+m8nyqY+mWoelkpngWkRllPp9/yfBPJs4WKlz4bdmOFe17k Zgy6SSvFDt7t58lNLgvqsp4+P2tcbbu8OlhMqqAWVG5NqMLqtJpM+03beLy4 u/ytIj++OpsQOJVAoLrw06IxLw/1xEsDYmsbP60N2/bz6ImGDp04O1P9z7CD UZA3eHSs5RuX9Vnv2r0K03gg+BqXBXk+AymcevJZRpCHUy9aPsuVTVyuKlfu 6leTYxweU/SfO8SZxbdtJDuACGnMN2LPxCKfKnNyNORTGfKpMoVHl5c5uo71 Z7VSu/47ryj6eXlZz902/ob6gMdzcgzlO410Z4/03+3+8+EPukieFQx9zX4b 0GAr61nOiC1ylbdkUVALKrMxq8P9U7zryvHJMeEuvkCXlN0W1nAHY2CqENPX gvxUAgGraM0o54MFH/LCF5mPX4EHR+pu4zIDw+ZEQdi4LNjz6ePD9+xgyae9 YA+nXrR8li+bdJj3o4evsFw/NJdFShP2Ct31hXyqzcnRkE9FyKfalB3c1Y1j 5XPvla8WlJf13J0wmbd7uEZqMmaNe235rAdimPJ3k30zOkPRMvAW8cmvIcFX 1jO2OpSpfIKo67WgsvWlCntI+kThl4l2S1M939ui7KQ4kfIc1KcSCFy6A589 EmXXCsCPtLe3WqT+UgofvwgPjtTtxmWlDq98OBgblwV7Pn38Cjw7WPJpL9jD qRctn94om+iv/X7Sunvzge+2pqWl/Wd18j/f73NXrfLH1/iJkbOWrUtLS83Y fyT79HnBS9TkU21OjoZ8KkI+1abk0EqK1va0zdVza7WgGmU9lVxa8mLpQXRL OW79L+cWv1BVklolbQmswkCQl/V0+gOJCbLEaqr1n51bUWxcrQWd3TU8WnYN qSr1XXPSy6+hEpbl5PKD8XRvi8yF99p/wqPfXCNKJoL4VAIhTvT2JgHD/cZl ev35j/tJNC6rEPlUCflUH+FUonzZZGDaJS/9rnJp10qtn972u/MfDCrkUwny 6Wvk020n5DfptNITSScVL6G1X4Tbuv/OP7xxoK4dSdbS+yVtjTdWm1+EaR+N WjVnHQ6oWNgviAjCsl6pi4cSW8oWfURKQ7/MKf8ol2pBOv3esXZbslZWWfKF 8jPrGsatOu/RU5qGzTZRUtJ+kTZHDtZTCYQ4RlYqcb9xWelXyo75ffoMSssJ mCYivkM+VUI+1Uc4lSifQBVmQ1XCNP1DztMFNYGIfCpBPn2NfLrr1zm95OF5 NOWY8udQZydcdRi6fIRJj71/yhgD4+662ojnFwiyYNFVwb1lhkXhzjkdNbYC jqb142nnyl66XKkFFWyZ3Fr2GO2fH17vtxGmqbAsFyb1mprryeGUbaznXu3d uwLyVOqu5+7Z9MnsWbOmJI4cOnTooP7d74uLu/cvLXtPyhJ8gjvgG4ysVOFJ 4zI4QD5VQT69gXAqUfbmtTfLJjuG3G73m6pKY74NrOVcaiCfSpBPXyOf7rl2 bu691m9ztxt2yUsZ/i7rFZ6f266qecZgSVFqv8ZSlQDstx8aZb1S5zYktpVt GRvV692D+XZlHKe1oKIDa3rb1mxqpLpNJ2ac9elrsFe+U2jLKTs9esYT9k1v RN0/IvBOpeFaUb75g8dlWCBoMLJShSeNy+AA+VQF+fQGwqmE7psZze2HYp7v NFqxaznTW8sHfiosqAlI5FMJ8ulr5NMtuj1z75alp+7Iz90syJ3PGFT5X+s+ tql3TalxwoaLpnqIVoofnhlwVTF5Wa+6Zla2v4/Hmy6kT+5YRVYO6jJsa47t hDmuBV3YvuCp22wXQG3ju5N2+rOmpy97wAYedmCwn0+rlbqNyxZsqp5VwJ3K wgunjL1q9/1nTHet5Vd7WoYFggYjKzV40rgMjpBPNZBPryCcihi3TZQJ0/ad 6ZVlVsfWPm4X9lC9k0s+FSGfPkY+3bJvzD227HjS2F9e1vP37H3DEvibDaWw 49N7lB5Q/Lz9gfeBMCwltpyXYC/rlcrft/qlP9u2/tHeGZuUmlVg/CBXVgvS XTy5fmLfFjfa/q1u91fTTvq/gFu2rFcrev5x5z9VKVNzSNmHVMypelYBeipt E+xDc7o7UCFGVmrwpHEZHCGfaiCfXkE4FSmze2PpEPHOHule2CbgjzWjbrJP e4jeySWfipBPHyOfbsjLHG0LqVZqP3iP27PuRZpdZqgeREmzDhjrIXVbJJ8K vKqeXZnUNPMw6F29sH3myLj/Z5uvFf1AnwkLN3wxooPdhbTRQwu2bk6e8FLH OrZHRsU8MGb5jrNiFGPKFq9intl2xf1nK/wysYHs2VzdP+LyL4ueaV0t4ub4 CSudPj4/a2vy7Fn/3p6t2vsXgKfS0ssiVKe7AxViZOU5Gpd5D/n0HPn0EsKp 0OXVr9vNGo2Q3vxG/f0XaVxmRj4VIp8+RT6Vu7pxrDyi7WbuKV//Ktn1cceG UtI+Z6G6/seShAjzE4VJI3b4syuHoa6ikV79x5SYQNwsw+TwyofN76Zn5dZA o7t4Im3e+wMfaBallZyLqNn22ZenrRaloGdiX9bz7Ip07bdFCdbPqEaq12xW lktz2EzzVF2qCZ/a2t90Z8jDWYXlBNKpLMhObGQ5X6E53R2oECMrz5VvXNZ5 dJZI31kBjHx6jnx6CeFUKu/AuMZ27Y7dbwxVmfyscbXlvyGE7+SST6XIpy+R T6XKTCitVXPW4QreuF0jW0nhLtWKNw+4zfpk/p3Af+ZfPUuP4fYmTQJyswwj WXNO266+IaXg1MEdKxd/OH5037/WtxtyVm/UfdArE2Yu/GLr/05eEbH+Yr81 uUdlIrt7Q2FS/MydLtV3bTffndeEbYtPo6RpP3vl/QyAU3lw6QOWgwrFfeSB yjCy8lj5xmVcZFRDPj1GPr2FcCp3ZsFzso3XNFLDlsnH1Hzv7Ne/SF7skCY+ 8qkc+fQd8qmU3faaWumJpJPl+/Ab6sZa6c9Pb3OhHn1ienfr03lv32dXWLYi dfXIBSTbTVVb443Vou6Q4AtOt08VTubCe2XXZPevSOe+Hy27MRT5+DuuzdST 33wP176U7GiOeEnxikejzG+sZ4uFXSHsqbTVNsOkIVvEOCZABIysPFa2cRkX GRWRT4+RT28hnG4o001akqKHLbmg1rtXUpTar7FkL3beDyo9e6Ahn24gnz5D PhWy/SVrlJB8qPxjSr6e0qA0tG+ucaWcULxxrKXnfXj4q8uKVT9il1kLjIF7 z1FeI+2cfNjfh+NPwtaCKnXl+OQYazlOK8UN3+/GGuqS4u2vtJG96r8uO+Hq dU1+871bisOFtbadWXxxS0jQU6nTb+oTbT6kem1Tcv19PIA4GFl5qHzjMi4y KiKfHiKf3kM43VK05+MH5VuORkrPbzipyjNfWD/2zjJFkwhpwl4//rXqV+TT LeTTR8inIrZZOka1688/Vq4AptNveb6JdJPLPSFt7eD8fBbM1YNA/jjYVjSH bLdMC0FrQQ4d/qCLh4Pkc6tGNbK+6JrRY3acdf1nbTffI6WkHx1+DmUTC9vO /E7xUSok6Km09bLQSo+MPcrXB2DFyMpD5RuXcZFREfn0EPn0HsLprhPJgxra KicaqW7TiRkKxsAVupA+uWOVMkUTb21mGhjIp7vIpy+QT0XkG9dWtgI3e+0T pf/UbVy2i0tAbX8d+/kPdmP1IJB3mig8P7dduCdFoWAiaC3IMes+FEaPphxT 9NN2l/fIKn2XH1BQ2JU31mvdf6fDkrxtyq5PqseCnkpZbTNw5/cCXsHIyjNl NibjIqMy8ukZ8ulFhNNtOv3BST0ibKnUSHVjRq4/6OYgVafLXvZ2B+NyssaD P/3k+SaWpw3hxmV68ukB8ukD5FMRu7JeRd/jpjWAYUq2nJDPAPRa+31XbOpd I7AHJ7lb+5vfR+6cms+mTXXNrGx/H5MLjs9+OsJ6EmMH7y5w9QcvfPlh55qW NbxKa3p6+c13Z98I8sWnPtlrScxTSWM9oFKMrDyRf3pe5zJVE1/Miw4h5NMT 5NOrCKcndLojC15oKF/tGCbd8+r/7T7rYo9ps/ysbf/s1TpSY/jx2LeXHb2q 1+2Ze7flKZ20qQlu5NMT5NPbyKci1/9YkmCrNJdPTkFaYnNJU63/7Fwlb6Zp C1qTp1aeUfOAXWearRTIK3Bl2+AGcnFSFeX2Ey/9iPdc4bsLXf7PGUunjnv+ qYc7tviTVpK09ZrHPd53wifrsi87Oy3XflvRq7n1kt8uMTXP6Ufp+rWDi15r a/5cunn3R95Yz0mrVdv0Wp/stuzHU6m7nrsn9aPxr/Ts3L5JpHRz07u7D3pr wX+zDe8tjfUABxhZuUyX/9vRbKMD321NS/9i/tQRnZpppbK0jVoP/ceCLzam pX39TVa2xbFfC3h73UA+XUY+fY1wekh3PWfz/Kduk48bNVKdZn2T5m879JuT xVjXLmV9mfJevwfrGn9a27j9mLXfmzNs3ZjAaZua4EY+PUQ+vYp8KnR8eo/K SnBFB9b0jq6iqEu/ibweFT1+o3/Ow9mMQVpfbOvpPSE4fcg24Cx15OfdW9PS 1n42L/HN7s3s53eZRETFvTD2w+QVqWmpGfuPWH8u+/R5FVdd52dumNDjLuM9 lBubdHshaVHpr0tfv3jOO8brsPbOe6d946yXQs6+8W1qWU9l7FuLf8qvtBiY f/DLDx4z/jqjm+N6L8u65EZF19ZYz2ll29YMU83qsWinsvDI10mmN7ZW4x6v f5CyIS11RfKY0v8ScUOXaWkXL9FYD6gcIysXXT4wrn54BZc4l/VZH7qrbdxH Pl1EPn2PcKpBd/Hoyrf7tLixbCCj2zzU78135y1fl/bVfzMPm0ebqSs/nT3l vaFPPtC4muVxter3em/hnjJzqI5t/nvtqk7b1AQ58qkG8ukt5FOpc9+Ptkye se11q7uekza7223hbnaAlDefd28DUI8ZW4UEcgzk04eaJmwIjZFU0ZpRngw4 jdQ76VcvbP9Hv0bG29jamE4z/3eqzJS5C1/P7VZDI90Rv+qMk2KY7uzPH/2t tbVYZ74PvmPfkaPH8gqL805mH/n+m5Xzp458xFbQK73IPz1t9cmrbh25rbGe RmqcsOGio8deWvKi9Z1TsXos0KmUNayI6vTc+l9k35vF+fs+6BkRJvUdNbKF 5beG+sxYoDxGVi7K2z1cU+kVzbna0rQfA3V9gT+RTxeRT98jnOopPP39ig9G dGlU0d3hSkTf2+O1f634/reKF0UWZu9Ymvb9lVAe85FP9ZBP9ZFP5Yyz8oyV PeOcmWnvj+17X7MorWszkSqxa2QryzCgot11vc94AOHhry4L1CHIxczRNU3v oPbmIZ9e9vfh+IZAtaD804sti2ejuryccaGCDOdnbZvaw/AYl/oeXL96ZPX0 nhXOVbOnrde8T/m7NorIGutJvabmOvz87Rhyu/GRhknjyafd/51liHIqZY0v Kj6PhZeWPHKr/HeGyMxYQIGgG1npigqLQnmoHGTIJ4QVdOHU+z2f16+e3P1V yvTEEX97/L6774iyX0Me/ecO9/V4ZsS7U5JXf7nnlNNGOSEv6PLp/4sn+VQR +XRL4enMpW8PiG1grjlEtbjv+UkeFRZKvp7SwJJhP7TXs0wXbDllp69/tUps b2CYNDA1NObqiePioen31zdeiTXa+AE7Kqrp5aQMsyRcSfX4+tXszStmjjO3 d7Op2aDtw48PfffDlC//d9LjGzPyxnpOPgLXcqa3Nk3W9dvEWq+ybECvkRq2 TD5W8VeCbBNAlWubQJAI/JGV7uKJrUvnvPP3x+Pu/JNtlB12Q5N7OvUaPHrS J6t2M8AOXOQTwgr8cOrJZxAL/HwSzmBGPgUh68Pv+62ZrTvIBG4bEEtvNI0U 0yPd4SJKqKzw97V9TPP0NFK9ZrOyKipuXzk+OcbWoEa0ZZu2xnph0ogdDkt1 x9Y+br2F5K82mF5TuHNOR435fei+5FCl50i+5XQw1jYBTwX0yKogZ/OHI+P+ n7OWYhFRcS+OS9l7Wun+RPA/8glhBXQ49eQz2AV0Pgln0COfwjg4Md54uH7Y WdK8D0jgbh9jK4pKTd7ZJPiJDjLHZz9t3oQ2TEqY+13Fb75tibQkRUkT9ojU z1TeWM/ZR69441hrh1e7GnhBTkbaFjc7+wni4qHElqb3QSvFDt5dUPkjMxfe a3kTgq+2CaggYEdWRQc2vtTKvGNR9L09Rk5Z8EX6fzMPH83atS115acfvDYg to79iCsiKv6N+VmV72oEEZFPCCtgw6knn6EgYPNJOEMC+RTHoRVdLQf7aMox 3/3e638sSYhwZbMAYRV+mWhe4FldmpYVUDkOcLqsFY+Y58g6rAXpdEcWv5XQ qHpUi44jVx8Qq+5qa6znfO6ZbV5frej5sgaBpmW8TrbQFduZBc/dYLn+xM/b 7+BCads0JJDn9wJeVHh+brtww8jqsfdPBc430oX0yR2rGD7XUW0f+/CrrIKK jlx38UTq++atkaxujnvmi6MedDeFj5FPCCsww6knnyEiMPNJOEMF+RRHSVFq v8bm8kK3cdnXffV7fzUtqQuwDNjY3jdNtf6zcwPxJQQo2zvvvBYkLFljPWcf Adu8Pq3UfvAeWQHQUO5r3iP9d+8frpfkHRhn2eDb6a49Xto0BAgmeXvWfjR7 zhc//ObvA3FV0Z6PHzSuwW88cFpmnpNruXUMZqHRtuqUIuzgCuWQTwgr4MKp J5+hJODySThDCvkUh+77hR1Mh+nDhYrWsoZoHc9clb32CdObFiG9+Y1IqzuD nm1+qUaq2yL5VEDGxzYBz1lby4K0xOaWR4YN/Mi227JhH40qAb3/8qXPhlkW F2ulzqOzHMynLMhObGR5JI31gOBw7vvRxsJ+40Fzsl1rJlDB4KqS/ZIAT5FP iIx8QliEEyIL7nzKpj/VHfl5vk9+p7WsMTDtkk9+ocoOf9DFdPyRT07y3RRH WFsymio8TySdDMQ33zYBz/gqOo3+qbJXcWr74Nts6/rbzvzO9k8Hlz4gBfL+ yyVFa3vWsb40J+X9oN40BAhFJcXbX2lTOjTStH92q+tDI53+4KQeEZKdJmPW +GbcghBCPiEy8glhEU6ILBTyaZ17VqvmrMPe/6PZXNYI2PV0uRmDbjK+XaJt xBD0zC0ZzWLn/eDvA3KLrbGe5GjOYc6+8W1u0d4R17G++aEd5v1o/cd9Y+4J 7P2X5RuahElDtji6NP6xZtRNlsfSWA8IAuZlApHSiK/zlP2kfPG+xBcxvIJ8 QmTkE8IinBBZSORTpz+QmGA6Rl9M2DOXNZytvBOT7L2KHrbkAjOHfClv93CN 5dNUVRrzbcClx0DWWM+s/DTgvN2rXm13i8aweL/48CTz1NDoN9eYVvIXZS7t Gh6ofQWNdPqspfdbC5vO9gLeNbKV+ZEBeiMAgJxOv+PlmNIxgPbZqTnKv0N/ ndPL/gqqDeh2BBAO+YTIyCeERTghstDJ58VDiS2r+qb2GNiN9cwzGzXSHfGr zgTe4Qe2wysfdrkWJCxZYz3p9patooyFyujOA5MWrUhNS1+/eM47/R6sWzWs 1cCkjFxjGS//9OJezTWGeX0xIz9Zvz556lN/CovqNibzir9fiQdktU1n7fIM XQTDXXokgIBwfvfwaoZpum62ETBvuWUVwF8HEBH5hMjIJ4RFOCGyUMpn4Y7p rY1HGfn4O1ne3N/DXNZwtvJORMUF63ob+xBWlfquOenvowk1Ov3+he2ttaDW /XcKOfXVCVtjPePcs1PXc/ekfjT+lZ6d2zeJLP1Q3NDknk5Pj0paufe03UzE qxd2fTplYNcOpY+Jatqub9Lin/IDu6RctGaU5apovxVIebbGetoab6y2tSHU lZzYsW7naUG3IgJQGWNVXyM1Tdjg3pJ6+24MJizPh1rIJ0RGPiEswgmRhVY+ rf0Aw6TuSw55q2pgfk88eFf959yqUY2MJ/H2UZ+fZ/mt79kqPGFS17G/BOIp yLWW+rXSI2OPBuJLUEPxxrGWbXCdzNqVr1l+auUZ2z8Y1/J3Tj7s/YMFoKYT 07vbhkQ16zw08sPdecpGHPI5zyZspgO1kE+IjHxCWIQTIgu5fF47t6R7feOs wmazvDRjz9wqP0zbd2aAVfXM25JqtfcP3iXoUupgl581rrZbZb38k6kbtucJ 8MEr+XpKA9fKWUFNPvHSbiuQ8rImxlmuwJGzjtjeMFO5b8LeYu8fLQA1bR5w m/2wSFOt/+xcJdfnK58Ps3+GMKnX1NxQvZ5CXeQTIiOfEBbhhMhCMZ85e99o blgkGNV1xG5vFK9M7dHCpD7rzjh/sDisBc+mHZKPsO7PT3T6Lc83MX6OtFL7 wXtcbLNm7E0nNWi7TIDEHfnAvN+KVFUasb3A34fjP7KdcB2V9c58+0qD8ArP uGEfjT8/vS3Q1vED2NS7RpmRldLdcGSr+C0jqwCdvw3xkE+IjHxCWIQTIgvN fBYdWNM72vCndKPhSxTVMF1g2gFTo2nzzNbf1X1mb9Lp973bpZphz4KmEzPO +vtoQlrJzhktTJ+k2vXnH3NeH9dd/GVRr+aaalX6Lj/g/31zbavyA3IRuppk FdrqI5ZfrfAx5r1CLFdO+Q2RK8cnx2itWwMDCCDlRlaSVF0zK1vBM5TbTzwA RlYIFOQTIiOfEBbhhMhCNp9FP6x40tDAX4qblK7y0sVruVsWzli2N3CKYzrd kQUvNNRQ0xNDSdHmF2NMpZ5WSVscVep013N3pLz0l1ukOk2HrhKgplfqbMYg rfk6EHiL0NWm27+0k+Gt0FY86c5U04u8I759fdM7Jt9Zo/DLxAZhXt+zG4A3 GKba2lG8m1gg3jBFoCCfEBn5hLAIJ0QWyvk0z9nzRmUvoFxITWzDPD2hXDw0 p2szQ3ksspI5eNevnsxYN2Vg5zrhUt1uQ1b9fEmQVe/yxnoJyYf8fTj+ptMd ntHLtEdP/Myd8hXV+Zkb34ivr63b4q30o5e3Tb7T8IZppbjh+00Pyj8+I/aW CIX9EAAIQpe14hGt3cCo3QdbFLUkqKC9SYCMrCA+8gmRkU8Ii3BCZCGez8Ks r15te4sUKQ35MkQrWiV7F3aUJG1Mp1nfheg7IKj8U2tfe7ROmGEOV8snX562 dF1aqf+sTp794YTBvWMbGCbZRnceMHXNrosifdZsjfWqS9OyRDoyfynO3zW5 XyOt4bp4z6CklA3p6xfPeaffg3Xl9diSom/HJVQzXjtjR3+0YXXK+IeaaVp1 SjnKAlwgUOXt/uK9vz8eHxsX9/Djr33yZa7C6dS2nXTMtDXeWH3dO4eKEEQ+ ITLyCWERTogs1PNZkLMlecYXPwZQIzw16X7JmL9g6X6F2x/DN/J/zlg6dVzf R+5vWdu4q0LNBm3jO/UaPHrSouU7Dv/m4n4avmRZ1K+V4odnUpSyyM/aNn/s 4Efb3hGllW5uenf3QW8t2JJVIK966q7nbFs25tmHYmqHa+s17Tb4rfW/8PYB ocrWpNSmW8pxfx8WYEQ+ITLyCWERToiMfAKwyFk1MfZWTXSHHh9+w+RPAHDL r1v7lxlXubaDEuAL5BMiI58QFuGEyMgnAACASi59NuxGu3GVNuL5BSG+AxHE QT4hMvIJYRFOiIx8AgAAqKPw0pJHbrUbWEWxKTaEQT4hMvIJYRFOiIx8AgAA qET3/cIO9msgmoxZk+/vowJMyCdERj4hLMIJkZFPAAAAdRReWvFkfdmoSqNp /XjaORqbQAzkEyIjnxAW4YTIyCcAAIBKLm94u6FsWCXVbZS053d/HxRgRj4h MvIJYRFOiIx8AgAAqOP8j+PurGobWEVW6bv8QJG/DwowI58QGfmEsAgnREY+ AQAAVFFSvP2VNrZhVZgUP3Nnob8PCjAjnxAZ+YSwCCdERj4BAABUcm7VqEay YVXcpPS8En8fE2BBPiEy8glhEU6IjHwCAACooihzaddwhlUQFPmEyMgnhEU4 ITLyCQAAoI6cfePb1GJYBUGRT4iMfEJYhBMiI58AAACqyD89r/OtDKsgKPIJ kZFPCItwQmTkEwAAQBWFv6/t01xjGlZFhvddvK+AYRXEQT4hMvIJYRFOiIx8 AgAAqKK4YPubCdXMw6oqfZcfKPL3EQE25BMiI58QFuGEyMgnAACAKnS6wzN6 RRgGVRqpbou30rMZVkEg5BMiI58QFuGEyMgnAACAKnS6IwteaKgxDauaTsw4 6+8DAmTIJ0RGPiEswgmRkU8AAACVXEif3LGKYVilbfXw/Mzf/H04gB3yCZGR TwiLcEJk5BMAAEAVhTvndNSYhlWdUo5ec+lnSq4dyUhL+/anKzovHxxCHvmE yMgnhEU4ITLyCQAAoIqiA2t6R4crG1aVyts9XBMmPfb+KbYqgzeRT4iMfEJY hBMiI58AAADqyNn7RvOqiodVep0+a+n9Unj4q8uKvXhwCHnkEyIjnxAW4YTI yCcAAIAqzh9IvKeW8mGVQdGaUZIkdZj3o5cODSCfEBr5hLAIJ0RGPgEAAFSR f3pxr+Yat4ZVpb4f0650ZDVkq+IfBFxCPiEy8glhEU6IjHwCAACoorhg04AY jSRFdXpu/S/KR0fFlxbFVZWipGk/07MYXkA+ITLyCWERToiMfAIAAKiiuGD7 mwnVSodVXV7OuODW0OjQiq6SRmqcsOGi2scGkE+IjHxCWIQTIiOfAAAAqtDp jvyr362G5Q8PfbLrSLZTB77bmiazdvn86ZNHdGqmlbRS3PD9hf5+OQgy5BMi I58QFuGEyMgnAACASnJShjWQVBEWNvCjy/5+OQgy5BMiI58QFuGEyMgnAACA Ki6kT+5YRZ1xVakm72+huQlURD4hMvIJYRFOiIx8AgAAqKIoc2nXcNWGVaWe WnnG368JwYN8QmTkE8IinBAZ+QQAAFDLpt411BxXVZXGfFvk79eE4EE+ITLy CWERToiMfAIAAKhF1ZGVRqrTLPm0v18Sggj5hMjIJ4RFOCEy8gkAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIBK/H/cyUZg "], {{0, 172}, {1693, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{523.406770833331, Automatic}, ImageSizeRaw->{1693, 172}, PlotRange->{{0, 1693}, {0, 172}}]], "Input",ExpressionUUID-> "8dd750e7-5db9-44dc-b52e-a9dfc94d9e21"] }], "Section", CellChangeTimes->{{3.7468306940093365`*^9, 3.7468307862107296`*^9}, { 3.7513943381119823`*^9, 3.751394338113104*^9}, {3.751394375651321*^9, 3.7513943772330847`*^9}},ExpressionUUID->"a675d1e4-5e97-4ebf-bf2f-\ 3fd69b5e1553"], Cell[CellGroupData[{ Cell[TextData[{ "Lagrangian Invariance: DL[tt] w/ tt= tilde index (0 = hat, 1 = no tilde or \ hat) (just the CC and VS portions)\n", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubsuperscriptBox["D", "a", "i"], "\[ScriptCapitalL]"}], " ", "=", " ", "0", " "}], TraditionalForm]], "None",ExpressionUUID-> "847ae3ba-ffde-4a48-a4e0-20ed884aaa4f"], " = ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["D", "a", "i"], "A"}], ")"}], " "}], TraditionalForm]],ExpressionUUID->"c410736e-2c4d-4f54-96ca-2150168d8eed"], "\[Square]A + ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["D", "a", "i"], "B"}], ")"}], " "}], TraditionalForm]],ExpressionUUID->"846f5119-28cd-426f-aff9-9c46faf4ea18"], "\[Square]B +F ", Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["D", "a", "i"], "F"}], TraditionalForm]], ExpressionUUID->"72d61adb-491e-4e85-85c5-cecd8c8b40eb"], " +G ", Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["D", "a", "i"], "G"}], TraditionalForm]], ExpressionUUID->"bee8de72-84bd-4295-a789-adb6fff982fa"], "+d ", Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["D", "a", "i"], "d"}], TraditionalForm]], ExpressionUUID->"86cfbb18-c7b5-48ed-a456-b6956eaf0a4f"], "+ ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["D", "a", "i"], SubscriptBox["A", "\[Nu]"]}], ")"}], RowBox[{ SubscriptBox["\[PartialD]", "\[Mu]"], SuperscriptBox["F", "\[Mu]\[Nu]"]}]}], TraditionalForm]],ExpressionUUID-> "7992d4f8-f9a9-474f-8379-86b69af9d7f7"], " -", 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->"a5a56c81-bdfd-46b2-a8fb-1b6afa6f2bde"], "+ ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["D", "a", "i"], OverscriptBox["A", "^"]}], ")"}], " "}], TraditionalForm]], ExpressionUUID->"beb21984-1b5d-49bb-ae08-aa8fef57cbff"], "\[Square]", Cell[BoxData[ FormBox[ OverscriptBox["A", "^"], TraditionalForm]],ExpressionUUID-> "7af9d42b-7b6d-42b7-b0f2-7e81ed2bd62a"], " + ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["D", "a", "i"], OverscriptBox["B", "^"]}], ")"}], " "}], TraditionalForm]], ExpressionUUID->"00594c14-d944-4d40-b172-d1186da2a4ee"], "\[Square]", Cell[BoxData[ FormBox[ OverscriptBox["B", "^"], TraditionalForm]],ExpressionUUID-> "626f010c-c3ef-4e34-8dc7-fe03b7cc9e90"], " +", Cell[BoxData[ FormBox[ OverscriptBox["F", "^"], TraditionalForm]],ExpressionUUID-> "e225a76d-90cb-42be-a518-a963a3f7ce40"], " ", Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["D", "a", "i"], OverscriptBox["F", "^"], " "}], TraditionalForm]],ExpressionUUID-> "13a07026-d827-46eb-97c2-a5360bb86519"], " +", Cell[BoxData[ FormBox[ OverscriptBox["G", "^"], TraditionalForm]],ExpressionUUID-> "8fd872d6-e358-4b28-a67b-a5490e488d91"], " ", Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["D", "a", "i"], OverscriptBox["G", "^"], " "}], TraditionalForm]],ExpressionUUID-> "3ad1ee34-ce76-4047-9624-ca413f665b60"], "+ ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["D", "a", "i"], OverscriptBox["A", "\[Cup]"]}], ")"}], " "}], TraditionalForm]], ExpressionUUID->"2882da22-9bc4-4829-b736-489d9e3d921a"], "\[Square]", Cell[BoxData[ FormBox[ OverscriptBox["A", "\[Cup]"], TraditionalForm]],ExpressionUUID-> "33a6af8b-b24c-48f3-9aa3-338c000da73f"], " + ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["D", "a", "i"], OverscriptBox["B", "\[Cup]"]}], ")"}], " "}], TraditionalForm]], ExpressionUUID->"b6e205c2-ade3-4f10-a3ac-049bd2897c65"], "\[Square]", Cell[BoxData[ FormBox[ OverscriptBox["B", "\[Cup]"], TraditionalForm]],ExpressionUUID-> "e8fe08c1-dbc5-449a-a044-32512361e93c"], " +", Cell[BoxData[ FormBox[ OverscriptBox["F", "\[Cup]"], TraditionalForm]],ExpressionUUID-> "1d7effe3-040e-4ead-a09f-ec5ffce052ab"], " ", Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["D", "a", "i"], OverscriptBox["F", "\[Cup]"], " "}], TraditionalForm]],ExpressionUUID-> "7704c443-69d8-4fe7-8747-d10dff77ce5d"], " +", Cell[BoxData[ FormBox[ OverscriptBox["G", "\[Cup]"], TraditionalForm]],ExpressionUUID-> "19fae949-9db0-4ca0-bf9e-d389fdf69a15"], " ", Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["D", "a", "i"], OverscriptBox["G", "\[Cup]"], " "}], TraditionalForm]],ExpressionUUID-> "4d662a17-9dd4-4873-916d-649b358f9b17"], " -", 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->"e6ada725-4fe8-4e4c-adbe-95406a1ba0cb"], "\n", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubsuperscriptBox[ OverscriptBox["D", "^"], "a", "i"], "\[ScriptCapitalL]"}], " ", "=", " ", "0", " "}], TraditionalForm]], "None",ExpressionUUID-> "857e2548-5d06-4c05-a46b-94eeeeaf2af4"], " = ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox[ OverscriptBox["D", "^"], "a", "i"], "A"}], ")"}], " "}], TraditionalForm]],ExpressionUUID->"aad0b3a9-110d-454e-9342-650e515b58e4"], "\[Square]A + ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox[ OverscriptBox["D", "^"], "a", "i"], "B"}], ")"}], " "}], TraditionalForm]],ExpressionUUID->"9a6d793a-682f-4b81-80f2-18995ed42ef5"], "\[Square]B +F ", Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox[ OverscriptBox["D", "^"], "a", "i"], "F"}], TraditionalForm]], ExpressionUUID->"cd4a85f7-07e5-4670-ab8b-39fe2235d7e4"], " +G ", Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox[ OverscriptBox["D", "^"], "a", "i"], "G"}], TraditionalForm]], ExpressionUUID->"a65c37a1-5a26-4f90-b3a8-2738ec6e717e"], "+d ", Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["D", "a", "i"], "d"}], TraditionalForm]], ExpressionUUID->"9af05aae-87f0-4493-87a4-c328ebdcbee1"], "+ ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox[ OverscriptBox["D", "^"], "a", "i"], SubscriptBox["A", "\[Nu]"]}], ")"}], RowBox[{ SubscriptBox["\[PartialD]", "\[Mu]"], SuperscriptBox["F", "\[Mu]\[Nu]"]}]}], TraditionalForm]],ExpressionUUID-> "9cfc3c2b-3f5b-41f6-b84c-db7783c2ef3a"], " -", Cell[BoxData[ RowBox[{" ", RowBox[{"i", " ", SubsuperscriptBox["\[CapitalPsi]", "b", "j"], SuperscriptBox[ RowBox[{"(", SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "bc"], RowBox[{ SubscriptBox["\[PartialD]", "\[Mu]"], RowBox[{"(", RowBox[{ FormBox[ SubsuperscriptBox[ OverscriptBox["D", "^"], "a", "i"], TraditionalForm], SubsuperscriptBox["\[CapitalPsi]", "c", "j"]}], ")"}], " "}]}]}]], ExpressionUUID->"75816b19-74af-423d-b801-207fd8ee76a9"], "+ ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox[ OverscriptBox["D", "^"], "a", "i"], OverscriptBox["A", "^"]}], ")"}], " "}], TraditionalForm]], ExpressionUUID->"510e5fcb-a76c-428c-abdb-42165916a28a"], "\[Square]", Cell[BoxData[ FormBox[ OverscriptBox["A", "^"], TraditionalForm]],ExpressionUUID-> "54be34bd-e3c6-454e-bb0e-025cc9f41c97"], " + ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox[ OverscriptBox["D", "^"], "a", "i"], OverscriptBox["B", "^"]}], ")"}], " "}], TraditionalForm]], ExpressionUUID->"a856fdc6-4d56-4ae7-a951-d1d176465952"], "\[Square]", Cell[BoxData[ FormBox[ OverscriptBox["B", "^"], TraditionalForm]],ExpressionUUID-> "a3de75e6-1768-43b1-b0ec-5b6ff087b395"], " +", Cell[BoxData[ FormBox[ OverscriptBox["F", "^"], TraditionalForm]],ExpressionUUID-> "1f42c70c-501b-40c3-a322-524ed83f3ff8"], " ", Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox[ OverscriptBox["D", "^"], "a", "i"], OverscriptBox["F", "^"], " "}], TraditionalForm]],ExpressionUUID-> "0ce5ed4f-01f3-4e76-830f-94dbb261fcaa"], " +", Cell[BoxData[ FormBox[ OverscriptBox["G", "^"], TraditionalForm]],ExpressionUUID-> "1bd6ce0b-9e73-4f5d-9d17-ef836c3ace20"], " ", Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["D", "a", "i"], OverscriptBox["G", "^"], " "}], TraditionalForm]],ExpressionUUID-> "5c5b3d18-7688-41f6-b04e-2c0f488103a4"], "+ ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox[ OverscriptBox["D", "^"], "a", "i"], OverscriptBox["A", "\[Cup]"]}], ")"}], " "}], TraditionalForm]], ExpressionUUID->"5de1d0bc-8883-4493-9b5e-74f639464a26"], "\[Square]", Cell[BoxData[ FormBox[ OverscriptBox["A", "\[Cup]"], TraditionalForm]],ExpressionUUID-> "e353b03c-f646-43aa-9746-b73abf09d1e8"], " + ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox[ OverscriptBox["D", "^"], "a", "i"], OverscriptBox["B", "\[Cup]"]}], ")"}], " "}], TraditionalForm]], ExpressionUUID->"b6ddef33-52be-41e7-938a-1a21f860b1ed"], "\[Square]", Cell[BoxData[ FormBox[ OverscriptBox["B", "\[Cup]"], TraditionalForm]],ExpressionUUID-> "1e56ab37-527d-43a8-86e6-22f3b971c4b1"], " +", Cell[BoxData[ FormBox[ OverscriptBox["F", "\[Cup]"], TraditionalForm]],ExpressionUUID-> "2490eb62-1782-4f54-be0a-1536dfe9428a"], " ", Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox[ OverscriptBox["D", "^"], "a", "i"], OverscriptBox["F", "\[Cup]"], " "}], TraditionalForm]],ExpressionUUID-> "dd9df86d-5bb8-49d4-8592-2b2adf968a98"], " +", Cell[BoxData[ FormBox[ OverscriptBox["G", "\[Cup]"], TraditionalForm]],ExpressionUUID-> "ad33c5ea-cc5d-4762-bda8-ea42f48b4137"], " ", Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox[ OverscriptBox["D", "^"], "a", "i"], OverscriptBox["G", "\[Cup]"], " "}], TraditionalForm]],ExpressionUUID-> "c0765a34-2da4-45ce-95c9-0a50c85751ef"], " -", 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->"291ae24a-bb27-449f-9b38-540f3ecbd7bd"] }], "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}, {3.751394570510356*^9, 3.7513946699079723`*^9}, { 3.7513947978274813`*^9, 3.751395012883698*^9}, {3.751395150801456*^9, 3.751395155557188*^9}, {3.751563370057508*^9, 3.751563371773787*^9}, { 3.7515634218303843`*^9, 3.751563465658939*^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]h", "[", "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]h", "[", "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]h", "[", "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]h", "[", "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]h", "[", "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]h", "[", "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]h", "[", "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]h", "[", "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}, {3.7514043238418293`*^9, 3.7514043293220177`*^9}, {3.751404753710738*^9, 3.751404758646131*^9}}, CellLabel-> "In[100]:=",ExpressionUUID->"3f377a93-d80e-49f0-8f5e-f9075395643b"], 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]h", "[", "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]h", "[", "ii", "]"}], "[", "xp", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"efield__", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "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]h", "[", "ii", "]"}], "[", "xp", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"efield__", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "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]h", "[", "ii", "]"}], "[", "xp", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"efield__", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "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]h", "[", "ii", "]"}], "[", "xp", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]}], "}"}]], "Output", CellChangeTimes->{3.751395026498981*^9, 3.751404332784391*^9, 3.751404761703573*^9, 3.751405173394849*^9, 3.751564863611259*^9, 3.7515655494003*^9, 3.751727180605608*^9, 3.751730251112934*^9}, CellLabel-> "Out[100]=",ExpressionUUID->"cd2445bf-4524-41c9-b889-e93600d8e4ea"] }, Open ]] }, Closed]], 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", ",", "0", ",", "1"}], "}"}]}], "]"}]], "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.751395184693346*^9}, CellLabel-> "In[101]:=",ExpressionUUID->"a76840e2-dba8-4fab-a228-9a91ee555f34"] }, Closed]], 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", ",", "0", ",", "1"}], "}"}]}], "]"}]], "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.7513951851557493`*^9}, CellLabel-> "In[102]:=",ExpressionUUID->"de777450-0fb9-4df1-b164-99cbd4d20e4a"] }, Closed]], 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", ",", "0", ",", "1"}], "}"}]}], "]"}]], "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}, 3.751395185608513*^9}, CellLabel-> "In[103]:=",ExpressionUUID->"79ff650a-82ef-4f0d-9454-a09fc74c934d"] }, Closed]], 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", ",", "0", ",", "1"}], "}"}]}], "]"}]], "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}, 3.751395187568398*^9}, CellLabel-> "In[104]:=",ExpressionUUID->"61af5b76-71b4-4d71-b4d9-0a7952594e0d"] }, Closed]], 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", ",", "0", ",", "1"}], "}"}]}], "]"}]], "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}, 3.751395188388343*^9}, CellLabel-> "In[105]:=",ExpressionUUID->"15d90e58-06ea-4c13-86ce-0187ba1bf647"] }, Closed]], 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", ",", "0", ",", "1"}], "}"}]}], "]"}]], "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}, 3.751395189110499*^9}, CellLabel-> "In[106]:=",ExpressionUUID->"3d565cab-275b-4bd0-99a9-5a92abbd118c"] }, Closed]], 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", ",", "0", ",", "1"}], "}"}]}], "]"}]], "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.75139519012138*^9}, CellLabel-> "In[107]:=",ExpressionUUID->"2e3930e7-b94e-4dbd-b2aa-f4b29eed10cd"], 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[108]:=",ExpressionUUID->"11a31063-9949-45a5-bd2d-484f70e21a90"], 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.7513952843843946`*^9, 3.751404346291092*^9, 3.751404771857979*^9, 3.7514051736686707`*^9, 3.751564900421801*^9, 3.751565549648657*^9, 3.7517271808583717`*^9, 3.7517302514588614`*^9}, CellLabel-> "Out[108]=",ExpressionUUID->"7ba55ba8-3ab3-4450-a9a1-b18a601fc23a"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"DLAh", "[", "tt", "]"}], " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["D", "a", "i"], "Ah"}], ")"}], " ", RowBox[{"\[Square]", "Ah"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox[ OverscriptBox["D", "~"], "a", "i"], "Ah"}], ")"}], " ", RowBox[{"\[Square]", "Ah"}]}]}], "}"}], " "}], 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}, {3.751395306935042*^9, 3.7513953096603394`*^9}},ExpressionUUID->"e8e96f1d-40ac-440f-a36b-\ 82e4c982f252"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"DLAh", "[", "tt", "]"}], " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{"Ah", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], RowBox[{"Lap", "[", RowBox[{"Ah", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"tt", ",", "0", ",", "1"}], "}"}]}], "]"}]], "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.751395191078611*^9, { 3.7513953102652283`*^9, 3.751395313885706*^9}}, CellLabel-> "In[109]:=",ExpressionUUID->"e92e137d-ef0c-461c-ad77-bea30f6ef680"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ RowBox[{ RowBox[{"DLBh", "[", "tt", "]"}], " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["D", "a", "i"], "Bh"}], ")"}], " ", RowBox[{"\[Square]", "Bh"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox[ OverscriptBox["D", "~"], "a", "i"], "Bh"}], ")"}], " ", RowBox[{"\[Square]", "Bh"}]}]}], "}"}]}]],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}, {3.7513953513659163`*^9, 3.7513953528988132`*^9}},ExpressionUUID->"708a98cd-f91a-4a5b-970f-\ 74ec587b0b67"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"DLBh", "[", "tt", "]"}], " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{"Bh", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], RowBox[{"Lap", "[", RowBox[{"Bh", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"tt", ",", "0", ",", "1"}], "}"}]}], "]"}]], "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}, 3.7513951915415783`*^9, {3.7513953533855953`*^9, 3.75139535422178*^9}}, CellLabel-> "In[110]:=",ExpressionUUID->"51f17f08-e240-4497-b766-24f5ee6316a2"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"DLFh", "[", "tt", "]"}], " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["D", "a", "i"], "Fh"}], ")"}], " ", "Fh"}], ",", RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox[ OverscriptBox["D", "~"], "a", "i"], "Fh"}], ")"}], " ", "Fh"}]}], "}"}], " "}], 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}, { 3.751395380825427*^9, 3.7513953820009813`*^9}},ExpressionUUID->"7e542a9e-7fb7-46c3-965f-\ ed3f499485a6"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"DLFh", "[", "tt", "]"}], " ", "=", " ", RowBox[{ RowBox[{"Expand", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{"Fh", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], RowBox[{"Fh", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}], "]"}], "/.", "ByParts"}]}], ",", RowBox[{"{", RowBox[{"tt", ",", "0", ",", "1"}], "}"}]}], "]"}]], "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}, 3.751395192328619*^9, { 3.751395382687065*^9, 3.7513953835070467`*^9}}, CellLabel-> "In[111]:=",ExpressionUUID->"80b4a854-295d-4a04-a521-c4404c26cfc2"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"DLGh", "[", "tt", "]"}], " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["D", "a", "i"], "Gh"}], ")"}], " ", "Gh"}], ",", RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox[ OverscriptBox["D", "~"], "a", "i"], "Gh"}], ")"}], " ", "Gh"}]}], "}"}], " "}], 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}, { 3.751395402237505*^9, 3.751395403391247*^9}},ExpressionUUID->"9afb6dc8-fdc9-450e-b535-\ 125bbfaa8750"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"DLGh", "[", "tt", "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{"Gh", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], RowBox[{"Gh", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}], "//", "Expand"}], ")"}], "/.", "ByParts"}]}], ",", RowBox[{"{", RowBox[{"tt", ",", "0", ",", "1"}], "}"}]}], "]"}]], "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}, 3.7513951929820127`*^9, {3.751395403914936*^9, 3.7513954045732594`*^9}}, CellLabel-> "In[112]:=",ExpressionUUID->"cb42041a-cb3d-4d96-94c1-0b7713bdb159"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"DLAb", "[", "tt", "]"}], " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["D", "a", "i"], "Ab"}], ")"}], " ", RowBox[{"\[Square]", "Ab"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox[ OverscriptBox["D", "~"], "a", "i"], "Ab"}], ")"}], " ", RowBox[{"\[Square]", "Ab"}]}]}], "}"}], " "}], TraditionalForm]],ExpressionUUID->"d2cabed4-0ef9-4178-ab2d-0f2348cae655"]], \ "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.751395306935042*^9, 3.7513953096603394`*^9}, { 3.751395440469432*^9, 3.751395442173005*^9}},ExpressionUUID->"6a86b3f8-6f53-46d9-97d4-\ d1cc8c21394f"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"DLAb", "[", "tt", "]"}], " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{"Ab", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], RowBox[{"Lap", "[", RowBox[{"Ab", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"tt", ",", "0", ",", "1"}], "}"}]}], "]"}]], "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.751395191078611*^9, { 3.7513953102652283`*^9, 3.751395313885706*^9}, {3.75139544284927*^9, 3.75139544465274*^9}}, CellLabel-> "In[113]:=",ExpressionUUID->"b811fe4b-3c6a-4a5b-adf2-9a3603be49f7"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ RowBox[{ RowBox[{"DLBb", "[", "tt", "]"}], " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["D", "a", "i"], "Bb"}], ")"}], " ", RowBox[{"\[Square]", "Bb"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox[ OverscriptBox["D", "~"], "a", "i"], "Bb"}], ")"}], " ", RowBox[{"\[Square]", "Bb"}]}]}], "}"}]}]],ExpressionUUID->"315aa807-f0d2-4265-9066-ac999b53ad82"]], \ "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}, {3.7513953513659163`*^9, 3.7513953528988132`*^9}, {3.751395458596857*^9, 3.7513954596257*^9}},ExpressionUUID->"1217fac4-e268-49ea-81fc-bc28d3cc1d8d"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"DLBb", "[", "tt", "]"}], " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{"Bb", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], RowBox[{"Lap", "[", RowBox[{"Bb", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"tt", ",", "0", ",", "1"}], "}"}]}], "]"}]], "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}, 3.7513951915415783`*^9, {3.7513953533855953`*^9, 3.75139535422178*^9}, {3.751395460113556*^9, 3.751395460664589*^9}}, CellLabel-> "In[114]:=",ExpressionUUID->"820ee4f6-8243-4736-8b56-d8976ce29cd1"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"DLFb", "[", "tt", "]"}], " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["D", "a", "i"], "Fb"}], ")"}], " ", "Fb"}], ",", RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox[ OverscriptBox["D", "~"], "a", "i"], "Fb"}], ")"}], " ", "Fb"}]}], "}"}], " "}], TraditionalForm]],ExpressionUUID->"3ba799e7-b189-4854-aba7-f82b72905649"]], \ "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}, { 3.751395380825427*^9, 3.7513953820009813`*^9}, {3.751395470866633*^9, 3.751395471773224*^9}},ExpressionUUID->"3d713b56-1d0f-4b96-9cee-\ 24b3fe4877ae"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"DLFb", "[", "tt", "]"}], " ", "=", " ", RowBox[{ RowBox[{"Expand", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{"Fb", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], RowBox[{"Fb", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}], "]"}], "/.", "ByParts"}]}], ",", RowBox[{"{", RowBox[{"tt", ",", "0", ",", "1"}], "}"}]}], "]"}]], "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}, 3.751395192328619*^9, { 3.751395382687065*^9, 3.7513953835070467`*^9}, {3.751395472196612*^9, 3.751395472714376*^9}}, CellLabel-> "In[115]:=",ExpressionUUID->"8a4b52db-7d41-47ee-ab2a-44c42cfe6574"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"DLGb", "[", "tt", "]"}], " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox["D", "a", "i"], "Gb"}], ")"}], " ", "Gb"}], ",", RowBox[{ RowBox[{"(", RowBox[{ SubsuperscriptBox[ OverscriptBox["D", "~"], "a", "i"], "Gb"}], ")"}], " ", "Gb"}]}], "}"}], " "}], TraditionalForm]],ExpressionUUID->"b61456ab-a71e-497b-9f5d-9dfc9efd0e02"]], \ "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}, { 3.751395402237505*^9, 3.751395403391247*^9}, {3.7513954837324257`*^9, 3.751395484603469*^9}},ExpressionUUID->"7b765d02-95dd-4366-afe9-\ c2d75e9dc169"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"DLGb", "[", "tt", "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt", "]"}], "[", "ii", "]"}], "[", "aa", "]"}], "[", RowBox[{"Gb", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], RowBox[{"Gb", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}]}], "]"}], "//", "Expand"}], ")"}], "/.", "ByParts"}]}], ",", RowBox[{"{", RowBox[{"tt", ",", "0", ",", "1"}], "}"}]}], "]"}]], "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}, 3.7513951929820127`*^9, {3.751395403914936*^9, 3.7513954045732594`*^9}, {3.7513954849212*^9, 3.751395485467914*^9}}, CellLabel-> "In[116]:=",ExpressionUUID->"2e770263-ec24-4f04-bb0d-5e97ef766a2f"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "DLPsih[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, { 3.751395565035478*^9, 3.7513955708791027`*^9}, {3.751396426606802*^9, 3.7513964539982433`*^9}},ExpressionUUID->"b610785b-3330-4368-9551-\ b240f88d4600"], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"DLPsih", "[", "tt", "]"}], " ", "=", " ", RowBox[{ RowBox[{"Table", "[", " ", RowBox[{ RowBox[{ RowBox[{"-", " ", "I"}], " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "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]h", "[", "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", ",", "0", ",", "1"}], "}"}]}], "]"}]], "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}, 3.75139519527966*^9, {3.7513955724919987`*^9, 3.751395611644875*^9}, {3.751395653939204*^9, 3.751395660143544*^9}}, CellLabel-> "In[117]:=",ExpressionUUID->"fff7898c-a6fb-49c9-835a-6ee65d4f1755"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DLPsih", "[", "0", "]"}]], "Input", CellChangeTimes->{{3.746835829957114*^9, 3.7468358315412207`*^9}, 3.751395594690153*^9, {3.7515649648032084`*^9, 3.7515649650684757`*^9}}, CellLabel-> "In[118]:=",ExpressionUUID->"850d007c-5a7f-4173-b44a-d651832bcadc"], Cell[BoxData[ InterpretationBox[ TagBox[ FrameBox[GridBox[{ { ItemBox[ TagBox[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], ")"}]}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", TemplateBox[{"45"}, "OutputSizeLimit`Skeleton"], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ RowBox[{"X", "[", "10", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{ SuperscriptBox["B", TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], "-", RowBox[{ FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{ RowBox[{"X", "[", "14", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], " ", 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"}], "]"}]}], ")"}]}], "+", TemplateBox[{"3"}, "OutputSizeLimit`Skeleton"], "+", RowBox[{"2", " ", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], " ", 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[ TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], TagBox[ TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", TemplateBox[{"3"}, "OutputSizeLimit`Skeleton"]}], "]"}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"]}]}], ")"}]}], ",", TemplateBox[{"2"}, "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->{85., {3., 11.}}], 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->{74., {1., 11.}}], 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, 118, 22356975128081287483, 5/2], Enabled->True, Evaluator->Automatic, Method->"Queued"], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], StandardForm], ImageSizeCache->{83., {1., 11.}}], 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, 118, 22356975128081287483, 5 2], Enabled->True, Evaluator->Automatic, Method->"Queued"], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], StandardForm], ImageSizeCache->{62., {1., 11.}}], 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, 118, 22356975128081287483, Infinity], Enabled->True, Evaluator->Automatic, Method->"Queued"], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], StandardForm], ImageSizeCache->{111., {1., 12.}}], 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[22356975128081287483 === $SessionID, Out[118], Message[ MessageName[Syntax, "noinfoker"]]; Missing["NotAvailable"]; Null]]], "Output", CellChangeTimes->{ 3.751395615396805*^9, 3.751395663999865*^9, 3.7514043465647793`*^9, 3.751404772110327*^9, 3.75140517398632*^9, {3.751564962200713*^9, 3.751564966108429*^9}, 3.7515655500383244`*^9, 3.751727181251226*^9, 3.751730252281958*^9}, CellLabel-> "Out[118]=",ExpressionUUID->"77f86501-2556-4199-8a42-9efec93afc89"] }, Open ]] }, Closed]], 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[{"DLAh", "[", "tt", "]"}], " ", "+", RowBox[{"DLBh", "[", "tt", "]"}], " ", "+", RowBox[{"DLFh", "[", "tt", "]"}], " ", "+", RowBox[{"DLGh", "[", "tt", "]"}], " ", "+", RowBox[{"DLAb", "[", "tt", "]"}], " ", "+", RowBox[{"DLBb", "[", "tt", "]"}], " ", "+", RowBox[{"DLFb", "[", "tt", "]"}], " ", "+", RowBox[{"DLGb", "[", "tt", "]"}], "+", " ", RowBox[{"DLPsih", "[", "tt", "]"}]}], " ", ")"}]}], ",", RowBox[{"{", RowBox[{"tt", ",", "0", ",", "1"}], "}"}]}], "]"}], ";"}]], "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}, 3.751395196898316*^9, 3.751395316490192*^9, {3.751395356283893*^9, 3.751395405311549*^9}, 3.751395597989881*^9, {3.751395629174822*^9, 3.7513956393293877`*^9}}, CellLabel-> "In[119]:=",ExpressionUUID->"dea0cec7-c4c6-447c-8ba7-3ce80eecde09"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DLTotal", "[", "1", "]"}]], "Input", CellChangeTimes->{{3.746836269353221*^9, 3.7468362985271664`*^9}}, CellLabel-> "In[120]:=",ExpressionUUID->"641ada1b-0f02-42ff-9c8b-3c84ed9b31ad"], Cell[BoxData[ InterpretationBox[ TagBox[ FrameBox[GridBox[{ { ItemBox[ TagBox[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox["F", 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[{ SuperscriptBox["G", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", TemplateBox[{"72"}, "OutputSizeLimit`Skeleton"]}], ",", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], ",", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], ",", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox["G", 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[{ SuperscriptBox["F", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", TemplateBox[{"71"}, "OutputSizeLimit`Skeleton"], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["Ab", TagBox[ TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "+", TemplateBox[{"4"}, "OutputSizeLimit`Skeleton"]}], ")"}], " ", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ TemplateBox[{"47"}, "OutputSizeLimit`Skeleton"], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], ")"}], " ", RowBox[{ TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ")"}]}]}]}], "}"}], ",", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"]}], "}"}], Short[#, 5]& ], BaseStyle->{Deployed -> False}, StripOnInput->False]}, {GridBox[{ { TagBox[ TooltipBox[ StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource[ "FEStrings", "sizeBriefExplanation"], StandardForm], ImageSizeCache->{85., {3., 11.}}], 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->{74., {1., 11.}}], 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, 120, 22356975128081287483, 5/2], Enabled->True, Evaluator->Automatic, Method->"Queued"], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], StandardForm], ImageSizeCache->{83., {1., 11.}}], 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, 120, 22356975128081287483, 5 2], Enabled->True, Evaluator->Automatic, Method->"Queued"], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], StandardForm], ImageSizeCache->{62., {1., 11.}}], 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, 120, 22356975128081287483, Infinity], Enabled->True, Evaluator->Automatic, Method->"Queued"], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], StandardForm], ImageSizeCache->{111., {1., 12.}}], 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[22356975128081287483 === $SessionID, Out[120], Message[ MessageName[Syntax, "noinfoker"]]; Missing["NotAvailable"]; Null]]], "Output", CellChangeTimes->{3.7513956751087923`*^9, 3.751404346810011*^9, 3.751404782482809*^9, 3.751405174259185*^9, 3.751564992888824*^9, 3.751565550338694*^9, 3.7517271814804907`*^9, 3.751730252604245*^9}, CellLabel-> "Out[120]=",ExpressionUUID->"9ab06abd-cede-4bd8-816a-a98725a49c13"] }, Open ]], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"DLFinal", "[", "tt", "]"}], " ", "=", " ", RowBox[{"Collect", "[", RowBox[{ RowBox[{"DLTotal", "[", "tt", "]"}], ",", "FieldListWithDerivatives", ",", "Simplify"}], "]"}]}], ",", RowBox[{"{", RowBox[{"tt", ",", "0", ",", "1"}], "}"}]}], "]"}]], "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.747491981091441*^9, 3.7474919983612723`*^9}, {3.747492064449931*^9, 3.7474920990095277`*^9}, 3.751395199378304*^9, {3.751396619918653*^9, 3.751396626347528*^9}, { 3.751564987733048*^9, 3.751564988047086*^9}}, CellLabel-> "In[121]:=",ExpressionUUID->"5cc14181-4778-47d2-bf0f-5202ebe31c74"] }, 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}, CellLabel-> "In[122]:=",ExpressionUUID->"6b59faba-e577-48e5-b9d6-3ea49a276bdb"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.751396659293619*^9, 3.751405207362074*^9, {3.751564979227936*^9, 3.751564999160541*^9}, 3.751565551749745*^9, 3.7517271829703493`*^9, 3.751730254058955*^9}, CellLabel-> "Out[122]=",ExpressionUUID->"cb05ca4d-fb8c-45b0-afe7-f19e56164b77"] }, Open ]] }, Closed]], 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[{"XList", " ", "=", " ", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"X", "[", "Index", "]"}], "[", RowBox[{"ii", ",", "jj"}], "]"}], ",", RowBox[{"{", RowBox[{"Index", ",", "1", ",", "14"}], "}"}], ",", 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}, {3.7515650068120337`*^9, 3.751565010506872*^9}, {3.7515651188206873`*^9, 3.751565123287027*^9}, { 3.75156544680542*^9, 3.751565447096615*^9}}, CellLabel-> "In[123]:=",ExpressionUUID->"324743f3-9450-414a-a80e-ac6e1848aa38"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"X", "[", "1", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], ",", RowBox[{ RowBox[{"X", "[", "1", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], ",", RowBox[{ RowBox[{"X", "[", "1", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}], ",", RowBox[{ RowBox[{"X", "[", "1", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}], ",", RowBox[{ RowBox[{"X", "[", "2", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], ",", RowBox[{ RowBox[{"X", "[", "2", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], ",", RowBox[{ RowBox[{"X", "[", "2", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}], ",", RowBox[{ RowBox[{"X", "[", "2", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}], ",", RowBox[{ RowBox[{"X", "[", "3", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], ",", RowBox[{ RowBox[{"X", "[", "3", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], ",", RowBox[{ RowBox[{"X", "[", "3", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}], ",", RowBox[{ RowBox[{"X", "[", "3", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}], ",", RowBox[{ RowBox[{"X", "[", "4", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], ",", RowBox[{ RowBox[{"X", "[", "4", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], ",", RowBox[{ RowBox[{"X", "[", "4", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}], ",", RowBox[{ RowBox[{"X", "[", "4", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}], ",", RowBox[{ RowBox[{"X", "[", "5", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], ",", RowBox[{ RowBox[{"X", "[", "5", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], ",", RowBox[{ RowBox[{"X", "[", "5", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}], ",", RowBox[{ RowBox[{"X", "[", "5", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}], ",", RowBox[{ RowBox[{"X", "[", "6", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], ",", RowBox[{ RowBox[{"X", "[", "6", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], ",", RowBox[{ RowBox[{"X", "[", "6", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}], ",", RowBox[{ RowBox[{"X", "[", "6", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}], ",", RowBox[{ RowBox[{"X", "[", "7", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], ",", RowBox[{ RowBox[{"X", "[", "7", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], ",", RowBox[{ RowBox[{"X", "[", "7", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}], ",", RowBox[{ RowBox[{"X", "[", "7", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}], ",", RowBox[{ RowBox[{"X", "[", "8", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], ",", RowBox[{ RowBox[{"X", "[", "8", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], ",", RowBox[{ RowBox[{"X", "[", "8", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}], ",", RowBox[{ RowBox[{"X", "[", "8", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}], ",", RowBox[{ RowBox[{"X", "[", "9", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], ",", RowBox[{ RowBox[{"X", "[", "9", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], ",", RowBox[{ RowBox[{"X", "[", "9", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}], ",", RowBox[{ RowBox[{"X", "[", "9", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}], ",", RowBox[{ RowBox[{"X", "[", "10", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], ",", RowBox[{ RowBox[{"X", "[", "10", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], ",", RowBox[{ RowBox[{"X", "[", "10", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}], ",", RowBox[{ RowBox[{"X", "[", "10", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}], ",", RowBox[{ RowBox[{"X", "[", "11", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], ",", RowBox[{ RowBox[{"X", "[", "11", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], ",", RowBox[{ RowBox[{"X", "[", "11", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}], ",", RowBox[{ RowBox[{"X", "[", "11", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}], ",", RowBox[{ RowBox[{"X", "[", "12", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], ",", RowBox[{ RowBox[{"X", "[", "12", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], ",", RowBox[{ RowBox[{"X", "[", "12", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}], ",", RowBox[{ RowBox[{"X", "[", "12", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}], ",", RowBox[{ RowBox[{"X", "[", "13", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], ",", RowBox[{ RowBox[{"X", "[", "13", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], ",", RowBox[{ RowBox[{"X", "[", "13", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}], ",", RowBox[{ RowBox[{"X", "[", "13", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}], ",", RowBox[{ RowBox[{"X", "[", "14", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], ",", RowBox[{ RowBox[{"X", "[", "14", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], ",", RowBox[{ RowBox[{"X", "[", "14", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}], ",", RowBox[{ RowBox[{"X", "[", "14", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}]}], "}"}]], "Output", CellChangeTimes->{3.751565012074512*^9, 3.75156512413378*^9, 3.751565450614328*^9, 3.751565561727689*^9, 3.751727183028431*^9, 3.75173025414618*^9}, CellLabel-> "Out[123]=",ExpressionUUID->"1fe14522-c265-4437-8e9d-c60e5e57e93a"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"CoefficientEquations", "[", "0", "]"}], " ", "=", " ", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Coefficient", "[", RowBox[{ RowBox[{ RowBox[{"DLFinal", "[", "0", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "aa"}], "]"}], "]"}], ",", RowBox[{"FieldProductsList", "[", RowBox[{"[", "FieldProductsIndex", "]"}], "]"}]}], "]"}], "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"FieldProductsIndex", ",", "1", ",", RowBox[{"Length", "[", "FieldProductsList", "]"}]}], "}"}]}], "]"}], "//", "Flatten"}]}], ";"}]], "Input", CellChangeTimes->{{3.7474209745049*^9, 3.747420992190564*^9}, { 3.747421158079099*^9, 3.7474212238627663`*^9}, {3.751565019686164*^9, 3.751565022397769*^9}, {3.751565178159938*^9, 3.751565215861342*^9}}, CellLabel-> "In[124]:=",ExpressionUUID->"aa91ca47-eb48-4460-a1dd-b55fb0839382"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"LagrangianParameters", " ", "=", " ", RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{"CoefficientEquations", "[", "0", "]"}], ",", "XList"}], "]"}], "//", "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, { 3.751565039048997*^9, 3.751565044752698*^9}, {3.751565142204685*^9, 3.751565142879727*^9}}, CellLabel-> "In[125]:=",ExpressionUUID->"9984847a-b619-4637-8024-6f9afdeec397"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"X", "[", "1", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"W", "[", "7", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"X", "[", "1", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"W", "[", "7", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"X", "[", "1", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"W", "[", "7", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"X", "[", "1", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"W", "[", "7", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"X", "[", "2", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"W", "[", "9", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"X", "[", "2", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"W", "[", "9", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"X", "[", "2", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"W", "[", "9", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"X", "[", "2", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"W", "[", "9", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"X", "[", "3", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"W", "[", "8", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"X", "[", "3", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"W", "[", "8", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"X", "[", "3", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"W", "[", "8", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"X", "[", "3", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"W", "[", "8", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"X", "[", "4", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"W", "[", "10", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"X", "[", "4", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"W", "[", "10", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"X", "[", "4", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"W", "[", "10", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"X", "[", "4", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"W", "[", "10", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"X", "[", "5", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"W", "[", "11", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"X", "[", "5", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"W", "[", "11", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"X", "[", "5", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"W", "[", "11", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"X", "[", "5", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"W", "[", "11", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"X", "[", "6", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"W", "[", "13", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"X", "[", "6", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"W", "[", "13", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"X", "[", "6", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"W", "[", "13", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"X", "[", "6", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"W", "[", "13", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"X", "[", "7", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"W", "[", "12", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"X", "[", "7", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"W", "[", "12", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"X", "[", "7", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"W", "[", "12", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"X", "[", "7", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"W", "[", "12", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"X", "[", "8", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"W", "[", "14", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"X", "[", "8", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"W", "[", "14", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"X", "[", "8", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"W", "[", "14", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"X", "[", "8", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"W", "[", "14", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"X", "[", "9", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"W", "[", "1", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"X", "[", "9", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"W", "[", "1", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"X", "[", "9", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"W", "[", "1", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"X", "[", "9", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"W", "[", "1", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"X", "[", "10", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"W", "[", "2", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"X", "[", "10", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"W", "[", "2", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"X", "[", "10", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"W", "[", "2", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"X", "[", "10", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"W", "[", "2", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"X", "[", "11", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"W", "[", "3", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"X", "[", "11", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"W", "[", "3", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"X", "[", "11", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"W", "[", "3", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"X", "[", "11", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"W", "[", "3", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"X", "[", "12", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"W", "[", "4", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"X", "[", "12", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"W", "[", "4", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"X", "[", "12", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"W", "[", "4", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"X", "[", "12", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"W", "[", "4", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"X", "[", "13", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"W", "[", "6", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"X", "[", "13", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"W", "[", "6", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"X", "[", "13", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"W", "[", "6", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"X", "[", "13", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"W", "[", "6", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"X", "[", "14", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"W", "[", "5", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"X", "[", "14", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"W", "[", "5", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"X", "[", "14", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"W", "[", "5", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"X", "[", "14", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}], "\[Rule]", RowBox[{ RowBox[{"W", "[", "5", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}]}]}], "}"}]], "Output", CellChangeTimes->{3.7515651550898542`*^9, 3.7515654557134047`*^9, 3.7515655627210407`*^9, 3.751727183773779*^9, 3.751730254923691*^9}, CellLabel-> "Out[125]=",ExpressionUUID->"0656378e-6ab8-4280-9361-218d0dc237f0"] }, 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", "[", "0", "]"}], "/.", "LagrangianParameters"}]], "Input",\ CellChangeTimes->{{3.747421481965914*^9, 3.7474214886060715`*^9}, { 3.751565594162302*^9, 3.751565594477269*^9}}, CellLabel-> "In[126]:=",ExpressionUUID->"50c40c9e-85c1-445b-9c48-8f4730b36c62"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.751565595457899*^9, 3.751727183864667*^9, 3.751730255001493*^9}, CellLabel-> "Out[126]=",ExpressionUUID->"69d74900-41ac-4db8-81e8-3479dd869410"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ We have X[1][i,j] =W[7][i,j] X[2][i,j] =W[9][i,j] X[3][i,j] =W[8][i,j] X[4][i,j]=W[10][i,j] X[5][i,j] =W[11][i,j] X[6][i,j] =W[13][i,j] X[7][i,j] =W[12][i,j] X[8][i,j] =W[14][i,j] X[9][i,j] =W[1][i,j] X[10][i,j] =W[2][i,j] X[11][i,j] =W[3][i,j] X[12][i,j] =W[4][i,j] X[13][i,j] =W[6][i,j] X[14][i,j] =W[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}, { 3.751565603550091*^9, 3.751565785231291*^9}},ExpressionUUID->"f51c2ab5-f9e2-4b6f-a1af-\ 4acc02611799"], Cell[BoxData[ RowBox[{ RowBox[{"XWPairings", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "11"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "13"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "5"}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.747484050743515*^9, 3.74748408515549*^9}, { 3.7474841860432234`*^9, 3.7474841860985203`*^9}, {3.7515661545947237`*^9, 3.751566161002676*^9}, {3.751566210798339*^9, 3.7515662461597767`*^9}}, CellLabel-> "In[127]:=",ExpressionUUID->"91529b2c-8eea-4564-8cf3-57b2c0c75b2a"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"X", "[", RowBox[{"XWPairings", "[", RowBox[{"[", RowBox[{"uvpair", ",", "1"}], "]"}], "]"}], "]"}], "[", RowBox[{"ii", ",", "jj"}], "]"}], "/.", "LagrangianParameters"}], ")"}], "\[Equal]", RowBox[{ RowBox[{"W", "[", RowBox[{"XWPairings", "[", RowBox[{"[", RowBox[{"uvpair", ",", "2"}], "]"}], "]"}], "]"}], "[", RowBox[{"ii", ",", "jj"}], "]"}]}], ",", RowBox[{"{", RowBox[{"uvpair", ",", "1", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}]}], "]"}], " ", "\[Equal]", " ", RowBox[{"Table", "[", RowBox[{"True", ",", RowBox[{"{", RowBox[{"uvpair", ",", "1", ",", "14"}], "}"}], ",", 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}, {3.7515661997255363`*^9, 3.751566203657736*^9}, {3.751566272939139*^9, 3.7515662756182127`*^9}, { 3.751566308884857*^9, 3.751566311323793*^9}}, CellLabel-> "In[128]:=",ExpressionUUID->"9f3f38d6-4d8a-4ff2-bb7c-3251e45afffe"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.751566315177843*^9, 3.7517271839879704`*^9, 3.751730255107957*^9}, CellLabel-> "Out[128]=",ExpressionUUID->"9ba459df-1471-4385-9174-34328f636885"] }, Open ]] }, Open ]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Lagrangian Summary", "Section", CellChangeTimes->{{3.7489697452702417`*^9, 3.7489697482479353`*^9}, 3.748969821491645*^9},ExpressionUUID->"84b247f4-ee56-4274-bd15-\ 8ccd45286fee"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"DLFinal", "[", "1", "]"}], "\[Equal]", RowBox[{"(", RowBox[{ RowBox[{"DLFinal", "[", "0", "]"}], "/.", "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}, {3.751566823779099*^9, 3.7515668240738*^9}}, CellLabel-> "In[129]:=",ExpressionUUID->"4a157cc0-e04f-4db8-a2af-ba7f381ab312"], Cell[BoxData["True"], "Output", CellChangeTimes->{{3.7515668202182703`*^9, 3.751566824586629*^9}, 3.751727184072296*^9, 3.7517302551953983`*^9}, CellLabel-> "Out[129]=",ExpressionUUID->"b26e11b1-ddbd-4a59-a203-421f3f2ea31f"] }, Open ]] }, Closed]], 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"], " and ", Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ SubsuperscriptBox[ OverscriptBox["D", "^"], "a", "i"], ",", SubsuperscriptBox[ OverscriptBox["D", "^"], "b", "j"]}], "}"}], TraditionalForm]], ExpressionUUID->"410d85ca-746a-41ea-a658-b0d00016f12b"], "\nNeither close on the hypermultiplet, there MUST be central charges" }], "Section", CellChangeTimes->{{3.746831725880522*^9, 3.746831726815978*^9}, { 3.747484799938679*^9, 3.747484810026211*^9}, {3.749400068041915*^9, 3.749400077475848*^9}, {3.751566860960198*^9, 3.751566870113977*^9}, { 3.751728435294661*^9, 3.751728448317643*^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[130]:=",ExpressionUUID->"8048423e-0fc4-4825-b264-416e5853107b"], 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[131]:=",ExpressionUUID->"19122f13-022f-484f-a248-be42552a0e3e"], 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", ",", "0", ",", "1"}], "}"}], ",", 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}, 3.751395239017105*^9}, CellLabel-> "In[132]:=",ExpressionUUID->"c464cb75-4b9a-4d89-96c6-3c4757ad5d3f"], 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[133]:=",ExpressionUUID->"e6081ac7-3e76-4efa-b374-ee56b50dcba9"], 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[134]:=",ExpressionUUID->"27aac183-4346-482c-a49b-fdc459fa6a84"], 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[135]:=",ExpressionUUID->"5c2e8330-954c-4247-a4dc-a0f40f6f428d"], 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[136]:=",ExpressionUUID->"e9a83383-e918-43c8-a674-a28bd1d8ab56"], 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[137]:=",ExpressionUUID->"ba2c998e-7cf3-45e7-9287-9ab1079b8d90"], 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[138]:=",ExpressionUUID->"22907a85-64fe-448f-9d0d-ee4dba7c67d6"], 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[139]:=",ExpressionUUID->"a8e95eaf-95a1-4b39-a902-712a12f84b45"], 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[140]:=",ExpressionUUID->"6ef83dbe-e3cf-4a0e-9314-ab418cad60d8"], 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[{ RowBox[{"AlgebraDD", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.751568236881955*^9, 3.751568255777894*^9}, { 3.7515683466042833`*^9, 3.751568364977194*^9}, {3.7515686348028727`*^9, 3.751568635294387*^9}}, CellLabel-> "In[141]:=",ExpressionUUID->"cb6915d4-bf38-4387-b1be-127342e0e774"], Cell[BoxData[ TemplateBox[{ "ReplaceAll","reps", "\"\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"SUSYTransform\\\", \\\"[\\\", \ RowBox[{RowBox[{RowBox[{\\\"Dia\\\", \\\"[\\\", \\\"tt1\\\", \\\"]\\\"}], \ \\\"[\\\", \\\"1\\\", \\\"]\\\"}], \\\"[\\\", \\\"1\\\", \\\"]\\\"}], \\\"]\\\ \"}], \\\"}\\\"}]\\) is neither a list of replacement rules nor a valid \ dispatch table, and so cannot be used for replacing.\"",2,141,1, 22356975128081287483,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.7517271843199053`*^9, 3.751730255459499*^9}, CellLabel-> "During evaluation of \ In[141]:=",ExpressionUUID->"3c84066a-754e-49b7-a5db-b69ab3f38366"], Cell[BoxData[ TemplateBox[{ "ReplaceAll","reps", "\"\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"SUSYTransform\\\", \\\"[\\\", \ RowBox[{RowBox[{RowBox[{\\\"Dia\\\", \\\"[\\\", \\\"tt2\\\", \\\"]\\\"}], \ \\\"[\\\", \\\"1\\\", \\\"]\\\"}], \\\"[\\\", \\\"1\\\", \\\"]\\\"}], \\\"]\\\ \"}], \\\"}\\\"}]\\) is neither a list of replacement rules nor a valid \ dispatch table, and so cannot be used for replacing.\"",2,141,2, 22356975128081287483,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.7517271843199053`*^9, 3.7517302554697866`*^9}, CellLabel-> "During evaluation of \ In[141]:=",ExpressionUUID->"d5c3591c-8368-4bf9-8be0-19a13bbf4632"], Cell[BoxData[ TemplateBox[{ "ReplaceAll","reps", "\"\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"SUSYTransform\\\", \\\"[\\\", \ RowBox[{RowBox[{RowBox[{\\\"Dia\\\", \\\"[\\\", \\\"tt1\\\", \\\"]\\\"}], \ \\\"[\\\", \\\"1\\\", \\\"]\\\"}], \\\"[\\\", \\\"1\\\", \\\"]\\\"}], \\\"]\\\ \"}], \\\"}\\\"}]\\) is neither a list of replacement rules nor a valid \ dispatch table, and so cannot be used for replacing.\"",2,141,3, 22356975128081287483,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.7517271843199053`*^9, 3.751730255474822*^9}, CellLabel-> "During evaluation of \ In[141]:=",ExpressionUUID->"24ce32ee-7a84-4022-a5ee-d3bbd5b46134"], Cell[BoxData[ TemplateBox[{ "General","stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"ReplaceAll\\\", \ \\\"::\\\", \\\"reps\\\"}], \\\"MessageName\\\"]\\) will be suppressed during \ this calculation.\"",2,141,4,22356975128081287483,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.7517271843199053`*^9, 3.7517302554798107`*^9}, CellLabel-> "During evaluation of \ In[141]:=",ExpressionUUID->"9a48c4fb-25c1-4580-a82d-c6cec7ea712e"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "1", "]"}], "[", "1", "]"}], "]"}]}], ")"}], "+", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "1", "]"}], "[", "1", "]"}], "]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "1", "]"}], "[", "2", "]"}], "]"}]}], ")"}], "+", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "1", "]"}], "[", "2", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "1", "]"}], "[", "1", "]"}], "]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "1", "]"}], "[", "3", "]"}], "]"}]}], ")"}], "+", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "1", "]"}], "[", "3", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "1", "]"}], "[", "1", "]"}], "]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "1", "]"}], "[", "4", "]"}], "]"}]}], ")"}], "+", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "1", "]"}], "[", "4", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "1", "]"}], "[", "1", "]"}], "]"}]}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "2", "]"}], "[", "1", "]"}], "]"}]}], ")"}], "+", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "2", "]"}], "[", "1", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "1", "]"}], "[", "1", "]"}], "]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "2", "]"}], "[", "2", "]"}], "]"}]}], ")"}], "+", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "2", "]"}], "[", "2", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "1", "]"}], "[", "1", "]"}], "]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "2", "]"}], "[", "3", "]"}], "]"}]}], ")"}], "+", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "2", "]"}], "[", "3", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "1", "]"}], "[", "1", "]"}], "]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "2", "]"}], "[", "4", "]"}], "]"}]}], ")"}], "+", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "2", "]"}], "[", "4", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "1", "]"}], "[", "1", "]"}], "]"}]}], ")"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "1", "]"}], "[", "2", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "1", "]"}], "[", "1", "]"}], "]"}]}], ")"}], "+", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "1", "]"}], "[", "2", "]"}], "]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "1", "]"}], "[", "2", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "1", "]"}], "[", "2", "]"}], "]"}]}], ")"}], "+", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "1", "]"}], "[", "2", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "1", "]"}], "[", "2", "]"}], "]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "1", "]"}], "[", "2", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "1", "]"}], "[", "3", "]"}], "]"}]}], ")"}], "+", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "1", "]"}], "[", "3", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "1", "]"}], "[", "2", "]"}], "]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "1", "]"}], "[", "2", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "1", "]"}], "[", "4", "]"}], "]"}]}], ")"}], "+", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "1", "]"}], "[", "4", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "1", "]"}], "[", "2", "]"}], "]"}]}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "1", "]"}], "[", "2", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "2", "]"}], "[", "1", "]"}], "]"}]}], ")"}], "+", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "2", "]"}], "[", "1", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "1", "]"}], "[", "2", "]"}], "]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "1", "]"}], "[", "2", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "2", "]"}], "[", "2", "]"}], "]"}]}], ")"}], "+", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "2", "]"}], "[", "2", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "1", "]"}], "[", "2", "]"}], "]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "1", "]"}], "[", "2", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "2", "]"}], "[", "3", "]"}], "]"}]}], ")"}], "+", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "2", "]"}], "[", "3", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "1", "]"}], "[", "2", "]"}], "]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "1", "]"}], "[", "2", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "2", "]"}], "[", "4", "]"}], "]"}]}], ")"}], "+", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "2", "]"}], "[", "4", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "1", "]"}], "[", "2", "]"}], "]"}]}], ")"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "1", "]"}], "[", "3", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "1", "]"}], "[", "1", "]"}], "]"}]}], ")"}], "+", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "1", "]"}], "[", "3", "]"}], "]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "1", "]"}], "[", "3", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "1", "]"}], "[", "2", "]"}], "]"}]}], ")"}], "+", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "1", "]"}], "[", "2", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "1", "]"}], "[", "3", "]"}], "]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "1", "]"}], "[", "3", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "1", "]"}], "[", "3", "]"}], "]"}]}], ")"}], "+", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "1", "]"}], "[", "3", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "1", "]"}], "[", "3", "]"}], "]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "1", "]"}], "[", "3", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "1", "]"}], "[", "4", "]"}], "]"}]}], ")"}], "+", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "1", "]"}], "[", "4", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "1", "]"}], "[", "3", "]"}], "]"}]}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "1", "]"}], "[", "3", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "2", "]"}], "[", "1", "]"}], "]"}]}], ")"}], "+", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "2", "]"}], "[", "1", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "1", "]"}], "[", "3", "]"}], "]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "1", "]"}], "[", "3", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "2", "]"}], "[", "2", "]"}], "]"}]}], ")"}], "+", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "2", "]"}], "[", "2", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "1", "]"}], "[", "3", "]"}], "]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "1", "]"}], "[", "3", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "2", "]"}], "[", "3", "]"}], "]"}]}], ")"}], "+", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "2", "]"}], "[", "3", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "1", "]"}], "[", "3", "]"}], "]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "1", "]"}], "[", "3", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "2", "]"}], "[", "4", "]"}], "]"}]}], ")"}], "+", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "2", "]"}], "[", "4", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "1", "]"}], "[", "3", "]"}], "]"}]}], ")"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "1", "]"}], "[", "4", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "1", "]"}], "[", "1", "]"}], "]"}]}], ")"}], "+", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "1", "]"}], "[", "4", "]"}], "]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "1", "]"}], "[", "4", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "1", "]"}], "[", "2", "]"}], "]"}]}], ")"}], "+", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "1", "]"}], "[", "2", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "1", "]"}], "[", "4", "]"}], "]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "1", "]"}], "[", "4", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "1", "]"}], "[", "3", "]"}], "]"}]}], ")"}], "+", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "1", "]"}], "[", "3", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "1", "]"}], "[", "4", "]"}], "]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "1", "]"}], "[", "4", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "1", "]"}], "[", "4", "]"}], "]"}]}], ")"}], "+", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "1", "]"}], "[", "4", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "1", "]"}], "[", "4", "]"}], "]"}]}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "1", "]"}], "[", "4", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "2", "]"}], "[", "1", "]"}], "]"}]}], ")"}], "+", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "2", "]"}], "[", "1", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "1", "]"}], "[", "4", "]"}], "]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "1", "]"}], "[", "4", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "2", "]"}], "[", "2", "]"}], "]"}]}], ")"}], "+", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "2", "]"}], "[", "2", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "1", "]"}], "[", "4", "]"}], "]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "1", "]"}], "[", "4", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "2", "]"}], "[", "3", "]"}], "]"}]}], ")"}], "+", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "2", "]"}], "[", "3", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "1", "]"}], "[", "4", "]"}], "]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "1", "]"}], "[", "4", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "2", "]"}], "[", "4", "]"}], "]"}]}], ")"}], "+", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "2", "]"}], "[", "4", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "1", "]"}], "[", "4", "]"}], "]"}]}], ")"}]}]}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "2", "]"}], "[", "1", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "1", "]"}], "[", "1", "]"}], "]"}]}], ")"}], "+", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "2", "]"}], "[", "1", "]"}], "]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "2", "]"}], "[", "1", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "1", "]"}], "[", "2", "]"}], "]"}]}], ")"}], "+", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "1", "]"}], "[", "2", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "2", "]"}], "[", "1", "]"}], "]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "2", "]"}], "[", "1", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "1", "]"}], "[", "3", "]"}], "]"}]}], ")"}], "+", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "1", "]"}], "[", "3", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "2", "]"}], "[", "1", "]"}], "]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "2", "]"}], "[", "1", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "1", "]"}], "[", "4", "]"}], "]"}]}], ")"}], "+", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "1", "]"}], "[", "4", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "2", "]"}], "[", "1", "]"}], "]"}]}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "2", "]"}], "[", "1", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "2", "]"}], "[", "1", "]"}], "]"}]}], ")"}], "+", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "2", "]"}], "[", "1", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "2", "]"}], "[", "1", "]"}], "]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "2", "]"}], "[", "1", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "2", "]"}], "[", "2", "]"}], "]"}]}], ")"}], "+", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "2", "]"}], "[", "2", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "2", "]"}], "[", "1", "]"}], "]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "2", "]"}], "[", "1", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "2", "]"}], "[", "3", "]"}], "]"}]}], ")"}], "+", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "2", "]"}], "[", "3", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "2", "]"}], "[", "1", "]"}], "]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "2", "]"}], "[", "1", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "2", "]"}], "[", "4", "]"}], "]"}]}], ")"}], "+", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "2", "]"}], "[", "4", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "2", "]"}], "[", "1", "]"}], "]"}]}], ")"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "2", "]"}], "[", "2", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "1", "]"}], "[", "1", "]"}], "]"}]}], ")"}], "+", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "2", "]"}], "[", "2", "]"}], "]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "2", "]"}], "[", "2", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "1", "]"}], "[", "2", "]"}], "]"}]}], ")"}], "+", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "1", "]"}], "[", "2", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "2", "]"}], "[", "2", "]"}], "]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "2", "]"}], "[", "2", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "1", "]"}], "[", "3", "]"}], "]"}]}], ")"}], "+", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "1", "]"}], "[", "3", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "2", "]"}], "[", "2", "]"}], "]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "2", "]"}], "[", "2", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "1", "]"}], "[", "4", "]"}], "]"}]}], ")"}], "+", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "1", "]"}], "[", "4", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "2", "]"}], "[", "2", "]"}], "]"}]}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "2", "]"}], "[", "2", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "2", "]"}], "[", "1", "]"}], "]"}]}], ")"}], "+", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "2", "]"}], "[", "1", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "2", "]"}], "[", "2", "]"}], "]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "2", "]"}], "[", "2", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "2", "]"}], "[", "2", "]"}], "]"}]}], ")"}], "+", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "2", "]"}], "[", "2", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "2", "]"}], "[", "2", "]"}], "]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "2", "]"}], "[", "2", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "2", "]"}], "[", "3", "]"}], "]"}]}], ")"}], "+", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "2", "]"}], "[", "3", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "2", "]"}], "[", "2", "]"}], "]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "2", "]"}], "[", "2", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "2", "]"}], "[", "4", "]"}], "]"}]}], ")"}], "+", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "2", "]"}], "[", "4", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "2", "]"}], "[", "2", "]"}], "]"}]}], ")"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "2", "]"}], "[", "3", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "1", "]"}], "[", "1", "]"}], "]"}]}], ")"}], "+", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "2", "]"}], "[", "3", "]"}], "]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "2", "]"}], "[", "3", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "1", "]"}], "[", "2", "]"}], "]"}]}], ")"}], "+", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "1", "]"}], "[", "2", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "2", "]"}], "[", "3", "]"}], "]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "2", "]"}], "[", "3", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "1", "]"}], "[", "3", "]"}], "]"}]}], ")"}], "+", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "1", "]"}], "[", "3", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "2", "]"}], "[", "3", "]"}], "]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "2", "]"}], "[", "3", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "1", "]"}], "[", "4", "]"}], "]"}]}], ")"}], "+", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "1", "]"}], "[", "4", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "2", "]"}], "[", "3", "]"}], "]"}]}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "2", "]"}], "[", "3", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "2", "]"}], "[", "1", "]"}], "]"}]}], ")"}], "+", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "2", "]"}], "[", "1", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "2", "]"}], "[", "3", "]"}], "]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "2", "]"}], "[", "3", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "2", "]"}], "[", "2", "]"}], "]"}]}], ")"}], "+", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "2", "]"}], "[", "2", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "2", "]"}], "[", "3", "]"}], "]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "2", "]"}], "[", "3", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "2", "]"}], "[", "3", "]"}], "]"}]}], ")"}], "+", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "2", "]"}], "[", "3", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "2", "]"}], "[", "3", "]"}], "]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "2", "]"}], "[", "3", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "2", "]"}], "[", "4", "]"}], "]"}]}], ")"}], "+", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "2", "]"}], "[", "4", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "2", "]"}], "[", "3", "]"}], "]"}]}], ")"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "2", "]"}], "[", "4", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "1", "]"}], "[", "1", "]"}], "]"}]}], ")"}], "+", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "2", "]"}], "[", "4", "]"}], "]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "2", "]"}], "[", "4", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "1", "]"}], "[", "2", "]"}], "]"}]}], ")"}], "+", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "1", "]"}], "[", "2", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "2", "]"}], "[", "4", "]"}], "]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "2", "]"}], "[", "4", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "1", "]"}], "[", "3", "]"}], "]"}]}], ")"}], "+", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "1", "]"}], "[", "3", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "2", "]"}], "[", "4", "]"}], "]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "2", "]"}], "[", "4", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "1", "]"}], "[", "4", "]"}], "]"}]}], ")"}], "+", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "1", "]"}], "[", "4", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "2", "]"}], "[", "4", "]"}], "]"}]}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "2", "]"}], "[", "4", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "2", "]"}], "[", "1", "]"}], "]"}]}], ")"}], "+", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "2", "]"}], "[", "1", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "2", "]"}], "[", "4", "]"}], "]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "2", "]"}], "[", "4", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "2", "]"}], "[", "2", "]"}], "]"}]}], ")"}], "+", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "2", "]"}], "[", "2", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "2", "]"}], "[", "4", "]"}], "]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "2", "]"}], "[", "4", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "2", "]"}], "[", "3", "]"}], "]"}]}], ")"}], "+", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "2", "]"}], "[", "3", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "2", "]"}], "[", "4", "]"}], "]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "2", "]"}], "[", "4", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "2", "]"}], "[", "4", "]"}], "]"}]}], ")"}], "+", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt2", "]"}], "[", "2", "]"}], "[", "4", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "/.", "\[VeryThinSpace]", RowBox[{"SUSYTransform", "[", RowBox[{ RowBox[{ RowBox[{"Dia", "[", "tt1", "]"}], "[", "2", "]"}], "[", "4", "]"}], "]"}]}], ")"}]}]}], "}"}]}], "}"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.7515682568200274`*^9, {3.7515683488687162`*^9, 3.7515683670035963`*^9}, 3.751568636375018*^9, 3.751727184352833*^9, 3.751730255495829*^9}, CellLabel-> "Out[141]=",ExpressionUUID->"703074bf-d391-405d-9596-d12517e4962a"] }, Open ]], 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[142]:=",ExpressionUUID->"089e572a-bbe0-4650-bf15-f55235566e99"], 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.751405249817627*^9, 3.751566877065035*^9, 3.7517271844234533`*^9, 3.7517302555957108`*^9}, CellLabel-> "Out[142]=",ExpressionUUID->"82c46baf-56bc-494a-8eb8-1786d5b83e82"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"AlgebraDD", "[", RowBox[{"1", ",", "1"}], "]"}], "[", 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}, {3.75140524027054*^9, 3.751405241470517*^9}}, CellLabel-> "In[143]:=",ExpressionUUID->"88a79505-8a21-411d-8df5-09aef013d43b"], 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.751405249967205*^9, 3.751566877180171*^9, 3.751727184487733*^9, 3.7517302556950283`*^9}, CellLabel-> "Out[143]=",ExpressionUUID->"84eb588c-98e8-4955-a6b6-e80f8cc0133d"] }, 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[144]:=",ExpressionUUID->"b64e1c4b-51b1-43d2-bd90-6b7011575516"], 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.7514052501430693`*^9, 3.751566877295805*^9, 3.75172718459298*^9, 3.75173025579583*^9}, CellLabel-> "Out[144]=",ExpressionUUID->"3ef3697a-e450-48c5-a78c-ab58601e10c3"] }, Open ]] }, Closed]] }, 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=0 for hatted, \ tt1,tt2=1 for untilded and unhatted. set tt1 = tt2 = 1 for the next two \ unhatted subsections.\ \>", "Subsection", CellChangeTimes->{{3.74748589807438*^9, 3.7474859927542334`*^9}, { 3.7493829745987787`*^9, 3.7493829930707884`*^9}, {3.7514052692549267`*^9, 3.7514053037746964`*^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[145]:=",ExpressionUUID->"4683d8fe-e6ce-4de5-8a7c-5f2ea6a37bfc"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "4D, N=2 Vector Algebra, both unhatted ", 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}, { 3.751405314474931*^9, 3.75140531586872*^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[147]:=",ExpressionUUID->"4e6c58c5-5ec1-451d-b6fe-3bde011d8664"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.751405323986579*^9, 3.751566886442955*^9, 3.751727184709999*^9, 3.751730255945067*^9}, CellLabel-> "Out[147]=",ExpressionUUID->"916786a7-8349-4ba0-acbe-50224f0725ee"] }, Open ]] }, Closed]], 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[148]:=",ExpressionUUID->"8500d42d-260e-49c0-855e-fb7f218c5df1"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.751405324147295*^9, 3.75156688651446*^9, 3.7517271847922163`*^9, 3.7517302560255117`*^9}, CellLabel-> "Out[148]=",ExpressionUUID->"7090f39d-fe52-49bf-b0f7-1363c9a6ea86"] }, Open ]] }, Closed]], 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[149]:=",ExpressionUUID->"5e75bf5b-df0a-4381-864e-81c44842e459"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.751405324242111*^9, 3.751566886577031*^9, 3.751727184875619*^9, 3.751730256127863*^9}, CellLabel-> "Out[149]=",ExpressionUUID->"cba3d420-bc7c-40a9-b62c-37746a03dbc1"] }, Open ]] }, Closed]], 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[150]:=",ExpressionUUID->"efce4fef-e0e2-4ecd-b8d7-2b19c904084a"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.75140532433887*^9, 3.751566886621231*^9, 3.751727184957768*^9, 3.75173025629211*^9}, CellLabel-> "Out[150]=",ExpressionUUID->"74622c00-538c-430a-8d60-1ae9a3edba22"] }, Open ]] }, Closed]], 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[151]:=",ExpressionUUID->"dfe44fe0-84e0-4655-9a80-edc1d9ddbffa"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.7514053244396343`*^9, 3.751566886696987*^9, 3.751727185134005*^9, 3.751730256394854*^9}, CellLabel-> "Out[151]=",ExpressionUUID->"d2361824-1cdc-4f17-a48a-4db302dd98a2"] }, Open ]] }, Closed]], 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[152]:=",ExpressionUUID->"f0adffa8-01ed-463b-a9bb-12869100774d"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.751405324653693*^9, 3.751566886893251*^9, 3.75172718533805*^9, 3.751730256600616*^9}, CellLabel-> "Out[152]=",ExpressionUUID->"58efd707-372b-43dc-bd7f-c95f50649be8"] }, Open ]] }, Closed]], 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[153]:=",ExpressionUUID->"bea29f96-3fa4-4f7d-9737-9f3676515625"], 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[154]:=",ExpressionUUID->"74dbdf26-def6-4783-9b27-6e9c887bfd2f"], 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[155]:=",ExpressionUUID->"580aefe5-938f-4dac-ac93-2a536799a5ae"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.751405324826857*^9, 3.751566887006461*^9, 3.751727185490629*^9, 3.751730256761239*^9}, CellLabel-> "Out[155]=",ExpressionUUID->"bbbe487a-a25e-4f05-91e4-a6d592567cd6"] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "4D, N=2 Chiral-Chiral, both unhatted ", 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}, {3.7514053359706497`*^9, 3.7514053495390863`*^9}},ExpressionUUID->"a4501bf7-c65f-45e2-8e1f-\ 64df51de0b67"], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnQl8TOfex8/MRFqRUKmXpKpErZEutl5Eel2JVoNqURQX0dqKUpQ2ttLU TWmJq2hsaRFqJ0oSFXqJWlJES5TEFiqxJEqikW3y5syZmfOcM5M5+zr/7+fz vp/31cnMmWfOeZ7/83v+/98/YMTEPqOMGIZNebLyf/WJmP6vyZMjPu37VOX/ 886HU8aO/nDk+298OHXk6JGTO4wwVf7jJ5X/s6oahuH/dwUAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAE4oK8o6sPnbVfEnbz/m/R7Ff57bvea/cUln7peLeGUAAAAA AAAAAAAAAADOKP5rd0RrbwOGYQZD+6GphXzeo+TczoH+HpiF9jEnQdIAAAAA AAAAAAAAAEBSyo8ubonZqGVYksXjLUp29a1newsT1m9Brln86wQAAAAAAAAA AAAAALBT9tPcOlYtwoiFz8gq4/4WpQ/WdPa06xk9118EPQMAAAAAAAAAAAAA AGkpuLl+eKd6NXzbDPs0OZunh0bBkZV9mj5lrN9iROzP+VBwAgAAAAAAAAAA AAAAAABOefxXdlZm7iM+CUHmgjuXL1/NLxH9mgAA0AC471NwcFwmfx9sAAAA AHANrDUAAABA1Zgrzq5+BcMikh7w+ONHm8dhT/ByjAEAQOvcOj7hOQ8MMxiD usZfhjgTAAAAkABYawAAAABXWAWNjit+5/HHWV90xXxA0AD0AzTOZkvO6Zlt fO1O2D7dPkjNA9snAAAAQFRgrQEAAAAYyT04FDPWmripiOsfmit29amFNemV XCDFZQGA3EDjbLYU/LmmRwOLf7VHq8AmRiLO7D7x5EOlLwwAAADQDbDWAAAA AGwoyo5ubsReGZVWzPEPCzJm1DViXade4NHTBwDUBjTOZknBzXX9mhssg9R5 flL+o/wDH4fVsIxawMhlWZyFUQAAAABwANYaAAAAgDUnJgVhHtjEw4Wc/qpo b2QdDGv8eQps+wA9AI2z2VBa+L9JwZg1wky2duMqLTw8zRpnPj9l8z1IbQEA AACEAGsNAMiDuSz36LZZA14LrOthrN8kfNSMjb/d4fYORXknNsVM7Eu8Q/PO vQd9vu0EFG4D8mORJgw1hi7NZX/7Pb6zJqwOVo2zDAIAqgUaZzNgDya9nui2 MJkyRPb/hAafAAAAAMAVWGsAQB5KC05ED2lkwtqPjIrfk7x5ei/84fLGxu7P YfkGxRn7Pw5pYPR9tt+nX8UnJG+L+aiTF6RRAQrx6Fp0oAfmiQ3emc3yL66v /HcdzIiFjE8Hw2lJKSvKOrD521XxJ2/DQAOKYjZnfjOkDr7SVRu86ZyTXs2V cebMnvVMeJzZI+53aOasCsSYQMApFwAA+YC1BgDk4nrcyIbVkQcNt1WsxGBo PzSVxXm1xXrO6BM2MinbFmOYK1JGNCZyq7qt+R1SnQGZufvD+LqYAfNrMif1 NuOL85KjO1XDOAkgYmIuzfv9cPyieWPf7hJQw2DoOOqkXvf6xX/tjmjtbeAw twDKcPfE+NoeWO1nOvd/f/bS7w9evMPVkEbtVEaYK99raKg6wuT0MkAexJhA wCkXAAD5gLUGcCAvZXmfpr6aOELF9f9ln4/p071Nw6eIdbNmk9av9uo/8fOl CaeuFLJfQf/EhQX/sGHbpOxTbM7Y8oYRa7cwlQxZ76WOJK7bC5t9qpTh768e GFbX5GjSi3fAxDFib0RehqABkJniB1veboBZNI3Zh25UvYiUX9/xWTDuNGDw fvfr6/LagVZOFLu+mta39bNGjKRe3/kZets9Wik/uril/XvWgva4KibvzIym TyF3Jebfse8nK7eeuaP61ZcdVg2TTehojzNr+08/wqyOAtIhwgQCTrkAAMgI rDUAhcpfefUHLT3x9Sck5qiag33z/ctbPx3U8snKS32iccfug0eNxRk+MPi5 p5DI8K35iRmsZI3Hd7bgjrhsD5r5UF6SOCQACx51Ej3sOLX8JduCP/GIy/HG t43PYS+8npBDDwvOTG9neQsD9MEElOHG4VHPWE7ivLxDxkcnXaCeMptL884e jBkS7GO5S43O7mHpKMg4FDOyR4AXsmOsXe+1D6N3n72pY2W+7Ke5dazf1oiF z8iCbjJqpqwoO3X3lxGh9TyQu5R4lLIeaHsXWJA5t7EHh4Mwa5wJJWkKI8IE Ak65AADIBqw1AIpds8KwwMjdavZLKc746cO2T2Pevj0/W3v0xkPKQlkZHB6K H/2ir20lrdZq3ApW5hIFN1eE1sGk0zTOb+iCYWFxF9F/u7aol1WLqNcs7qar v364Y3LlxTlJ1C8v3dLDxxp48GigCQBiUHJu7+ggX/tuzL/Na4NHjZk46aMP xoxE8yJ82r25UcokKBRc85zYAy+WtOPboN+81Wnu4ClRcHP98E71avi2GfZp crYbfF9dgItvI2iyhk/IlKXp+RreCxZnHU44WXXiliPm8usHNx+Cm1ZZxJhA wCkXAADZgLUGsIKoGfWGLlK1vWTOqY+bexoDuy75tWrZwd6DmNhGDZjP6htZ 3lkiTQPXLvzbxuci//T47vIOnlYt4q2obBeHIEV/Lmr7pPODkvvpU2tbtRtT xLcPnfwxAMiB+faFtaOp2zEUebdm+cfWD29GyeQP6PvJj1o/7wbcgIL0vbjt M3LrMix2AAAAAAAAQEVFXuLcNpZUAcMrAw7mqTjqLy858H4g5vfMwrN/M7zy 1vEJz5Gbq8A5iWx8rUrSN3T3sKRMNOkYlymecIenX1anlZGa05a/bLs8WuYG FXPF2dWvYNiYA/lO/tuxxc1tbxIef020CwYAXhRkHIqNHNWjbVMfYkuGV4S9 PmLuUnodipRYSyntmLCQqD25Oq4wAWRG6sbZhbn7PrJ0l7MiZS0kAAAAAACA 9ik+uqyTgYiaWAgFimI+s7ojhgVFpbDZndxa+e8nyGzz2ksusYo4726f0sgS Q4pb7J/7y9akiw/QfzkxKch6bXUbxF51+UFlf+de/9OpGcitb/pa38Qbi/od 0joBt+dK0kBPcisIDccBcZGpcXZp4eFpVE2jacj2Wyo+awAAAAAAAFAKu6Gf CQtb/qvKjzHPzwmxXOqTjbu/u/BAFsPV3kgagOxs2sWksQoHSx8dGNOG+BOf 8Onpj8S4bkfunRxvjVaNxgELcvhtuEgDDQMW2P+QRJcKAFqBsN5FtoHyd1QB dIysjbMf31kTVge5mTG/SZvB9RkAdI7ZnPXDnNCnsdC4S0pfimKU7o18wufZ weC+AgAAS8iQSQuRf9nf68Ps7QoMWMO2G2+5fH3xveXt7FUnJuzNz2+wnBvv npkaYP3Ddl+k8OrBzgBh8knQZ6vrr1E1iIGGcXBMnqhXCADa4+qu3ugO0Aeb nabqlDNAS8jeOLv4UHQL9H5mzOUDAEDTWFOzDMagLtuy3Xgzf+/c3PZPc3D1 BwDAnTFXnJ/fyyoQ+NZbeE71Xq+Pcxe9hIZ32JiDDNe8b6DdGJBbDsPDPZ82 JP7OGxu7P0foldMgW7QbsPpUp1AuoAYawSt+E/USAUB7PFj/PjI9QN8fQDwU aZxdkDGjLmXJ469+AwCgckg1o2u8XO3A1EvO6Zlt8NZpIlfzAQCgO0rSVv3L 1gik3cJUTQT+R8Y8z+m4iiJocIo2Swt3DyRy1w2GNv0P/iXwwqlct9fCGGuO +Z53axLSQMMLm32qVMwrBAANYjsrJ/Awjo5zl/wMc1nu0W2zBhA2lU3CR83Y +Nsdpa9JVyjTONtcsatPTVTQ6Ljid1E/QGnu/R79Kt7S5flZ+9x+/yaAxw/O /xg3e9SAroHPov1x/F/o0HPo+Nkxq7cd/CXrvssBFj6BSO2Uq3tsagZWv9mS DI08DQ+vrOnfuoZXzZDZW3OZfuuCjINxS5d8d5ipVBwFT4rzAE2DD5VP9KkD GxbMGNGne5uGSMe32s+17fLGkGlz1+w7cVvlFgPiAmuNjim6tSLY15a60Cv5 vtLXw5KcU/OIlna+9UZsPsfwOFJKVIxY16kXuNTUmM9usO+OWDZJYcm9VUOs 72vCIhL5VoqgBhoteiWLK7kADhQX89mrlBQ/hhxx2aAJGh4fbhQi85kL7lzO EovMbNcbCiGUFpyIHtLIhLUfGRW/J3nz9F64PY8UqWVio5kRVq5xNqLJ607Q MFecigyxLoTdI6/A5pcXBae3f/gPSp9f57hwHhM8gcjklKtjzOZLi/t5WYZ9 xB4H1VStXFvUyxqCBoTtcb2JuHFwaHXLa339Y7m047MfvD4/ZfM9mCLYUFaU ufO/EdQ5wVi/eacOL/p5UqYEY6PWY5ftynroBiEqrDW6huwAIrqVmfQU3srK fcTikin5usZaEzdxW1rNFccnt7P+tYjF+I/vLu/gadVYXnjnEJI0Yr6dkZDE +lADDDQko/DG+SNb1309c8qg8C5tG1E2FLi+/XrvsZ99tfHns/lMu+XrcSMb GrGJRzSR/aQHqIIG1vjzFCEzW8nOKYy7BM5YzkcGT4pcsjk5I0+cDTh+m1Wv NniTTeDNPTgU/ySDof3QVCkMgMRDIyOsZONsshmWBT0JGsiRgQTVOu6Bdbvn 26DfjGXbDh67cO7Xg3t3roma1rMZddmyj7OzwluBE4icTrnmkuISbUWr7LA1 15PKtE0SSh+s6WwLZZmS08hTPB9s4R/cfsKc795/GtNG2wLFKb52LLp7M1zK wAXMwbNXbkr97RK6XSrOu5n+05YF4/q0rG79QYyBXWN+uaHvgYW1Rs/kpo6s bl/gtJOewRFz2vKX7Su5p/NwlIGsXW/ZngLRTFPPb+hiuyj/aTvRgBuXuxsy Cd021GCgobPoovDq6YTln0d0aebDfNxlWZlbd5+9tUoBquDQoo6myu2V95JM jY/R/YuLe79M0/alpfaz/1ycwkNEpwkaAnd/kmy3Ubx82wyetDIlw2lHZpaY M7a8YaTWDN5LHWl9f7VXomlihHGUa5wt7i2tIoofrH/DbozN4oQXcARPHPLE Gr4Ye9FBuCvKO/FdVPizHpTHwdnGU+gEIrFTrvn+9YMbls0a1rtzC6SaxvRE 4/Zd+42aOn/t9pM3NH/ATPwEmKRt9aSAbCPIVN0psB9faeG+4YF4mkbtp2af gFzkKrFIi5YKnbenxJ+66VqjKM78eV63ZtZnyhvRM/UHrDW65tIX3ewrQ8iK s1pfDpxjrjjyQSC5jgePOslD+Ea7QPKTRBywdp7FVy8s6iwSLeCZG9Wxfgty 2f0eihho6DO6wMuHt84b8i8/WvTnVeeF8P4TP4uO3bg76edjGVlZWRd/S92f vG1VzOxRA9vUsb46oP+Mo3n0L22+uO/deh74jdd5/FltJ2hYj6flhWe1iLi7 P7IgwvK7J6z7Zlb/Dj6OF1ur/pDFm1J+Pe+qHOLML8mJP8Z/M396BHnn2PEP e29NGkP44RxigqJNbqeWW72TTWrPDtLACLtG+sbZehU07v4wnmJ3WsuwJEvp a9IaRXsj67gM4cz3L2+d3qeRyTbIJqzn+ouUFwucQCR1yi3MOfD1pM7/R3+W 6Xj5dH5/BuP2jRsFN3ZHDm/9tAdmqhb477lpoheSUT7r2mKi+rv2k1FntOT5 VPbTXPsukSE5TXg6cfbBYXgdlMHQunfSXe3FmDJgVTO8qw1ae5xtmndR/oGP w2oQv4x+NQ1Ya+RDzpmT4ErSQOtha+VaE7ZHr7UKZHIFfnY28WeeWgSS5mF0 XkPNCTRJL3RqBjJ9mM+s7ohhg3azM7GX30BDl9EF4YT25kveBuQrmEyt3h67 ZM9R1y5q5vvXExcSA+LgSY53HCMMajD/mXs1X65X+vD8oSQruzbFxnztdNdp bNFl+tJ1CUksqNx4xi5Zsnj+9NFDe7Zr6jQfht/GTfLdX+mjLb3rUa+Uu/Xo 4wcZ+zfS7zovz7CZ6y4UcAzVLOleYXEX0X8j65rrNYu7ye39lEdtI+wa6ev+ 9CloII3Rbb+O2rOJVAguGrAoaSz4I3XDgsixE6Z8vfcMPctI2AQinVNuybm9 o4Nsa2iHXpO+XLkt+X/ply5nnDiUuPX7Lz4aHlyPdv/4hHwcmyHK0138165B zdGZI+jLVKm20OaK0591I3aUQVEp2tpO2jQrFslp6as72Aazbcyv/D7OWngC ZhpOuX9xbitPPqLE47vrezaw/ja6TICBtUY25Jw5baDpGbSSB/2AHxw0sH9N QWWJpOWFGEka9mRODGv15VHy38tLDrwfyKH8Bwmk2Sd18EaX0UXxzfTVo0Mp F+7lHTI+OinrAfv3L87838ftfHFNw35K9fjOln7kBQ9K0KNi6NBNEqtlikrn OZcUXj29O+q9QGpJC7/2lDLs/sjMKBs8IzRzWe6R+NEv+qJv5dP13wlXOAwj vvXwp/Z9Ri163orKFqVKTl5UNcIMnyB93Z8OBQ3Sn40CYxN2gAZhGBuR9ID3 OwiaQCRzys1Lju5UzfK0tn3z65+c14vhBwqfD2lEFcNrdu6/TXC30/Kji1tS 3lWoubQLbI6XGiz9Rs/mWg896lJxJg00PLHpx/nKNkSBFSbogFKf2GZUnt0q kTNuQ8ehqTKcqssGrDUyIufMaYV0z3AoedARdi0XE8Nn++6692ybLcF7BGQn iD5TxUcWtcawvlvYesqhgTRFGJEAHUYXZnPWD3NCn0a0DJNH4KAZe7hIGSS2 bunevWdlFJYcn2FL4dPoETkbyOJZ23NBTTfiQcHpze/6234RvrUSMuz+HG0f BH1KwY1d47p6k29mMAa9HpvOrmEiHlLSi9RQ4yDawatWUNEIMyFD3Z/+BA20 fRhKaNwlpS9NYxCCBn/rY0ETiFROufauFgERC9PzGb6ZPThBnm5qtiR3HOef djFpkhwZPb6zJsxStKFBZ34kBmBKTjNX7BvkT/w6WMPO2+/x/8zCpLmW+4pv CbleIdLRTU80btup27ujV6bd5voG6DF35/+maStTyAWw1siJfDOnDbK5iRh7 EHViXxAxsbqG/UmYflsQ2O7E7v6NHKxYat+wgNFr2EslZCAtRPFmgQ6jC4cN DuYX+NEOh1xcThAStwnr1Lt3gL1gWQ8GGs5Bi2cJBPYTISBLHfkWOWpP0Kiw 9UwkxUAOT03uL1uTLlLOZ8mmGHUbxF7VWIxMoKoRdoUsdX96EzSs/myGWjVr 0n5l3rnobotF0BB0uC9oApHCKdeWH84+cnMSdYQMP+LgasUe6hmKhKYNRMGO JtMzqDEAQ3IaeYpnwt78/IaQQMuepKFj9z/ukL58xO0UELydq6RxdVdv+59r 8G50Dqw18iLbzGkFmQ0w6cUTZbhxeNQzlnNek6H95DhxeqCXl+zqS5Z1+03a LKjnj+0KfcLGxe/9cUPU2HY1nBtLVn09SCAtTPFmQHfRha1ChMSv54dkszkB IFIhiR4MNJxBFs/a4pQxKWL0wbJGPvxtqDUpaFTgLu6Hp9kTeyxPTVCXbdnc 7517J8db38VoHLAgR5s3n6pHGEWWxtk6EzQsoqXB0ObdvSvHUX9k6dNTdYd1 HjZxyO1kQJQJhLdTbnnp4Qlt8FX+lQEH2ccM5orz83t5UW+mxtN38l+QSguP zB/c8klLj6RhnyaLER44QeN7czIGYExOu7T1dfvvIvjgg1SBWr62547mhk0C CrPmNqLe/TzOg8r+Xh9GPkMaze2kAWuN3Mgzc9qgtDGthS3M0Ga86wJb8j/m /XTPmP354n2/Bz+Me9IWCQt3UjXfvhA/e1SPtk19vOq0Cuv3yfoDuZySLOQx 0NBddGHvaWXFVK3VuBXiSF6VPLoWHUh3TNWngQZZPGt7IupTq7AFYDlzZK7J rQqtChoVdNsfjFcLP1uwh8PPhEQNqHmEUeRpnK0rQYNQyC0b8LIDtCwvCUUh vfJg/fvEDGxo0/+gGAlC4kwgfIU+whedj0NC/rkZNN8/gZm00kNuzHmcpysO GQMwnz7Y7lKRDj4KMuc2tv7WMlgOagDEl8/6i/DaoWTM6Wx7B626b1HQ+lpT XpIyrm0No2fQrN16MjURETKZUJfJ8AU3V4TWISoIJiWcF7kMg2oaoOxmQR4D DZ1FF/TUERPWeX6yiJJXJX8u60dZVtzHQOONyMsijaRl+2bCukde4fWGGhY0 KpDsMhuBcxI5FAqTiWRiSkzyo94RpiJP42z9CBo2fzbvt+dnlTk2g+b/1Lsv yNm3CD0yRJpAeAp95oojHwTyzgyhLr74qlRzzPfq3QgU/7Wmi/XYR2jGryIg BhqMZ2pHxjxvvalEiohshg86Ko4QAs2h3YSFxBzlsbdDll3tx646WGse5y56 SSOXqgjU216UmncVUXBzHd5awmAM6hZ3gZe1o2soGVkK63tyGGjoK7pwKISR pvMXWYeI6VMztCCRgQaBZfvGPyFQ24IG1c0Yp/aTUWdYK4HX7UGmuoN5JtQ7 wihyNc7WjaBh9WezD7ijLso3L8t9QVuw8b6T7Yg0gfAU+ohqFxMWkcgrtkKN zoinUsWiLllIq80OkmgMwHCm9jhnUWsP6wMuVkRk6TVM0CP+qhjvqG3y9i8K fw73BzY2aj127c+8zunou35NZxfrYa0BQcMl5T9/+Zz99xSr5l0lWNUMzKfb uIM5UpXt2JqzK71Wktq+EXvhnUMS/Yw6ii7olSaV98mA+aJVmqCQazcOGGjw gNi+8c470rqgQbM5wp9xp10RnUG2xuP92KoD1Y4wBbkaZ+tE0LD6syEpMU4y pXsl6ygqkQckLDEauk44I6CESpwJhK/QZ9kjC6jnpZoAEKh0U0Y6wxuxV0al afDUg4wBGPuRIac8okVE5G+t29YGskMXNDR85K2PtQYEDZcgRriq1q45Y1Mz AobMO1l1G46s+Nlj5n13WYAWTlGEJF4rzblnvx3ZI8DbI3DwbJpZaEnqIrsR inReUvqJLm4dn/AcqmZIa717YPgzao+mBCKlgUaFbfvGu6mW5gUNSpNoC57Y iH05zH9GntXSdU7z7YyEpBP3tbMmqnSEqcjWOFsfggbhz0bx8bMGbAh8exu5 NZS0QKzdFyk8S6jEmkD4GmhcX9ST/Bq167026WsX4ZxT6Eq7as8UclNHVrde oSa3jaiBBtPqX7o30uY+R42ICnNSk1Ky+Z4rkVlAPljUWe2luKgRykwirUov KTpZa0DQcAHl7FjMmneFIdQMI5O7I35q8JTQJ/R26kiy8Z+x1sRNUhzy45QV 7XqHNK+jbO7sjcsxo/Gfo05Illauk+jCaquC4INNOypZdji5+9B+EWJVSGmg UWEbwDEHeeZZ6UDQcMhuYncIhWTh+k/biQ4ffobbkGfXGEVQ6QhTka1xth4E DcSfjfxHujTKvcUnUIEbXyQOCUAWuGqTDvGymBRpAuHtlIueBVgw1Bi6NJfL 7fBoM62XgUo3ZaTDvMRTh1SQMQBzFQkZB/r6xyJPP1G0wr/cBrldNSkKqQ5a hoYR6zr1ghZ9QXWz1oCg4QKqjK9S4ZorVjWDhbujxT9E6LemPBRSFmHlUuJt 0oCUbCBiwBq+GHtRwp44eoguzBWnP+tWg3oRQjwA2WD71mCgwRP8xvPBFv7B 8y31IGhQm0TjeGHTjjHMNWQCHu3ECj94ra7OwL4q1DnC1HeQq3G2DgQNij8b 5b9YWhpR4K1kujO0zuZYk39svM450hFrAuHtlOtwM3A+FHCYN1S5F0CdV6X0 3pEOJAYwYW9+fsPFCJMxM724Bhc6mgv4+mSvUq2W7agMmqChhaIMR/S01oCg UTV/75xSHfkptdvRj6S0cN/wQEMNj8HrThcy/dzEqQHvPHY7SJsYDKvtvSRT mk1C/snxBltw0X3iSSINoyj/QGTPeiZ8qjEGvR6bfkeSj7ahg+ii+Mii1tSv IFZvOxfYv7VONEMHJDXQsFQq1RBSw6IHQQMtZrfC5NGHxo3UZAOiV9Gg3Vqa 8NU4wjTkMtCo0L6gQfdnQ3DM4guPv+b0TQBX2GrG7Xj3npXBKVoXawIR4JTr uOPgmhbuILarci9ApodpoXekM5DHluErFCbNtaXrmEwR35ITLJ4xXk2gczUZ jdfCFmao7WfWIKeWI2UZmhQ0dLXWgKBRNZRfU/3JNoyUFh6eFuZVt8nY7ecY MvbK/s69nLl7VJvKhZrBvIgFtDBYKl3InlrgW3fE0p1JiT/GL5o3vEMDvN6l dp2eM1ee5Vj9wQPNRxf3L85t5Un7fEoSmjTY92JgoEGn+H7Kgqnzf8pyde/i c7ig3Cd9CBrU0AJj7iyPeF5R/BzKSw68H6i53nZqHGEqshloVGhd0HD0Z0Og fTXtfTvVUHwougV1JLnlIoo1gQgQ+iinRVwXFwuKn6GwAY2LOJXkqAVaorKL wgRqj+y2Mb+S/8lSMCLQuRrNAQ6LuyjkrfSPuaS4hOFppD4+GhQ0dLbWgKBR FZQpSPIUWcmxqBm0UgJmqBV8/EDjWEzSU/iyosw9sZP6dm/TEBcW/F/o0G3A +3NWbz1zR6YsKa1HF5lfvUn1JDVi3aeel37wLN8aDDSccWnr64yPjNmc9eOq 2APnedcV60TQyKWZPODV1hMPV71BQVpyo4mURJKSDDqeuKhxhKnIZqBRoXFB w4k/G4LDD82/X7O745Ckwc0tSqQJRIjQZ87Y8oaR8g24Gpw6qXLlFHKUFxdL f/ORZ4uaN9DA8FDHr2XcDWc75ZzTM9s8bWzauZPNDQ6duE5Pby9YZjdXZGz4 p+2H1miui3QU376UsuGb2aMGdHu5qQ/yWPm3eW3I9Kitp2463nnkokb8sloT NPS21mhI0JBl5iRBShg0X93PT82ovM8D+x8S0NHMCs0H2HX9oJbRdnRxJWmg J/3D5Wlkadl9aPwRqxohBhpEdpPUiSs6ETQcTbldDzXZBxCLSHpgvU68WzEW MHpNttasvdQ4wijyNM62oWFBw6k/G4JjFh8lLx1gw+MH53+MmzWsd9D/UVqT 4yWWHYemshxNkSYQgUJf/slt84b1Dgnu3Pn13h+t3Z/L8Q0y5nSmjoDxqY93 MF578c30DbNHhwVYU1J9mrQbPG912m1pDj+49AfhSuGVk1sXRA7u9rKfPfip Xb/zwA8W7jhym5dw4vRU3zEGCBi5jGbIn39y+4ftnjYEdY2/XHppfjfiZXan 2ZL0Dd09xOjQR6pwUjraaQtzWe7RrfOG/MvPNhkY6zft2j9i7OQZC2O+nj3x A+vtYfIIHPRpcjblJqceYmpN0NDfWqN6QUPWmZMEVTIxZcRMc2l+dhYXMrPv OxsWZzaP7BBJfCAzKjX4yHNEq9GFueL4ZFq5nBELHnVSUjNQG8TuAww06BBO aNInruhE0DBX7OpTk9sMZsvv9QkbF7/3xw1RY9vVwAL6z6A1fdYEahhhxRtn 26Hd0pqx9K/an418BcWGDlNz8KZGivJOrpkd3tC2Vr4U/s4/GmBU2i1MZaus C59AZHTKdYKzTvGMZfJ5Kd+EV35r0xONw96Z/sVXs6w7QYMR34xLEJmTiWFi nnqYb1/Y8GEPi8Gac3zavb2So+saYUfgWBSDxgDPtwrysRyV+odGRK3ZkpiU nLBuGT6GnqagiKjUXMsAEtb9eC5H4KS1CQlxC/o8a/IJn54u/HgR/cUFGInr hvyT22e9+ZI3cXjtVSPkg3lbT15xNBg037+e+J/3Aj2pNzn98dGU1aou1xp1 Cxpyz5wI1PiQ1b5SKI8fZPy0ZcHkYT07vehHOytnj6laqwlrKacDzo7V2CHS t6ZdgPp7GSuFgtEFvScjjgz7DoLiP8+lJO1Nv6u+CUg4Qgw0Lm7pLkviCq07 j1YFjYqKI2Oep34Is3xaGdbGzx7Vo21TH686rcL6fbL+AFcRUiUoP8IqaJxt hypoqD5R1oYLfzYSxxI2DUXRCmIuyzkQO6iZVcrwDx225EBG5c6FMPCk3NKN 2m+8yXbpEzqByOiU6wTHdb9ug9irri4iLzm6UzXMGNg15pcb1i9K9sDlkt/C GqQkR7QD4rzDK/s8Q0vOccSA+TWZk8q6ny8xDj7Y7DTqw4tmmNRrFnejLDct 8duZE/qGvtLYG8Mjt/Zd35niUNFQlHfi+y8junesfA1+RBW17kKBODcHmlSg T9cylhTmJs7s28imaNXsPCjuLIN+lX9s3cD61TD7TU45q8W0lX+uz7VGxYKG /DMnipw5q7j6t3BSZ3r2I1/EML4QF5pbptpb/yiFctHFtUW9qB9cdZknwAne Bho2/VzyxBWHY3ftChqOHlbuI58qP8IqaJxdxXV6GEfHaSC32qU/GwniRWmd q3Wd9CgORfkpc22bF2+ffst/JnvWkysmSbuYNHkWPzmdch158MO4Jynf2+g1 YqWLLa6lqNbJWQlq/C661eSD9e/b31yEVCuzOfP7j9rSD46qwoDVb7aEXfMb izJmqDF0aS5twUYzTNjbZ0kGavsg/y2nEoqv/TI3pIG1QNyEBX+68XIR819V kpcQ2QLDgqJSSuhp/JiGlHPdrjVqFTQUmTlRaEdRUimZ5vLru78Kry+SlEHM mdJXKHOF5pYpvBWsLlEsunh0LTqQdgeCYZQ48DbQKElb9S+DlDOPHbI3PfHL i9DYyBHFttsaNZHjjvIjrILG2XZK90Yic6k2/Hlc+7OROKZcqu8IQ11YE/ix qs7cHdqdyHcQKadTLh1nnqj07AKUolsrgp/Gaj81+wTdN/X6op729UP0yAGt 1xAeOubEj3uOPoVZqN0oqJFDlzoLrPr5ErJYdWzaMfoAlv/8pf0T1VD7hqwU GlF6xcZidGOLeE1Y5/nJ+Rx86iw/dEDw9tsUqY1AK2ZNul1r1CloKDRzkjgk /0uSVFBwY9e4rt5O51B+mJ5s3KX318dY58jJhVYrmuVEuejCnLb8ZYyOVN11 3Qw+Bhrmstwj3w3ERU45Or9Qf31ujTjZo9h2223ywZQfYRU0ziahOFFjWC1s YYZ64htn2PzZeq6/yDBMjpWJstXC511YM/2DsSphztJ0NvmHTGoGDulYa8ML m31K+rNWeZ1yaTjU2mCNp+90cQm3Vv77iSqOdJETK/G3Emh+r8DJvPjosk6k 1T/m81LopEVxh367km9Xksr+zs04lbT6y+H/aED6u7NoXm8ZTCMWPsPRjiDz izDr+3DpCSUZqDGCyvZ9skBRMyrv58jdHNQMC0TIFB6fk/oBtQBTmsMg8dHE WsMPVQoaSs2cJDRhSoofMefUvJAGlJ4YvgG9Jn8Rv+9/6Zf/xE1pHv+Vfe5U 0ncxozuiLzNgDVvFXVXNT8UOqpKpnbwsGVEwujg/J4T6yeJ7ibsprA00zAV3 Lmddzjjxc8K65dP6/sOvGvF66Q8KSwt3D6SkW/tN2ixFWC3PdtvxUzAQNCT+ FMoIK904m8ShjsB/3Po81S6b1voytm2yaSWcst3kTn99BWH+1qSagWHe1YZs v1RVGPdwx2RaKp2jtSM/1OOUS6H4wZa3UTdUg6F176S7VV9CQebcxtWcu4s8 zlnU2r5DFDssR0NxbyzqdwFvTezjLBhbhMza7LKPSWlB+tpPOla3vhwLGZ/u 4l4jZptq2JgD+fT/RG4JpTos4Awp9qq+gkBsaGoGq9wbR/CkVqNnv+lTKInn GgmbNbLW8ESFgoZSMycKzexF9EJsvN+0L/n+Xp5hkauqbEtRlH/gY0rTVYk2 HdJBDYSUML9SOQpGF4/vLu9As6A1Ym9Faa5tpRqhG2hwxVhr4iZ2lZ08oebf GrCmIdtvSfJkqmK7rWtghOnQ+lB7Y2P35yh9Tc6x+rO5TslDcGiGJVNCnfnc D2/4iFgeKwjj80FrXK9t5SXHZ5CB0/NTNt9z8fJ7J8dTWsGJ5D+pJqdclId7 Pm1IflkD5tcoKo2e6kl5vUXwaTxrnxMN4PyGLuRbiV3FgIbiQuLw8tLDE9oQ bxMwZN5Jdtli5P7X05lYYcNFekbF7dSRNqcGtZTxksYIGtmDi8X9S9Gv2Ldd go6G8W2+r79/dcqEhHWdekH1YbNW1hqeqE/QUGzmRKF4oYj91BfcXBFah3xz v8BJCecZiidLC/cNDyRz5Zi8ItUG1UlARTebSlAyunC26XZbqyhxcTTQ4IqE a4e5/PqOz4LJHR9HR3eOyLPdfrR5nOMYqnS7LTYwwo4Qnsny3OH8sanZrlPy UJCiQgl/a61D2PdZf3rGanG605dIvitqcsoluff7jBaI2OddbfCmc65C0LJH W3rVqapui+YoLvKahe6+BbS1LT6yqLXlXQJGLsvickhgM7Oq2tDMRXoG1UBD UtM/DqCuWW5jml1R+ujAmDbojSokJ8pp6aUGSul1v9aoTdBQcOZEoVTgipqX RXmsuIRYeA9HErXMjaygtTNWfesfmVE0ukAXXCtsfB4AFtANNDCs79r0LCdc zjhxKCkpeduqGFvXXQu1vZdkSrNCop7/xDMZ8HLUUQn3eso7POgdGGGn5O3/ OrQ2klTg7dPvm/2q6sxrUbO5JUc5/NaytJXXFrdPjEd8/xg9ECop2huJ6M8i RX1qcsq1guQqEIMTEnOUIRzD42EjFjo1w/HBoWR4GgizRDERpT7CZlDmM2A+ JzWD4NrSd7xcHGtm7XqrqvQM1EBDPTY+aBWPPF4xKqAwaW5z8qY3YIG9ku/z fzen5tgqMEhhQP9rjdoEDQVnThLaBlxMQYOS4+2J9VvncuuKUl66pYePfRES qx+3LEg4nppH6egC7eFl/SvpjSgVo7TgfML3S5f8d+HMj3BbueEDwkI6d36l zavRieJvyRwNNNgNrO1gURrdz1x+PfHbiBeRejeTR+CgT5Ozpd2TKrbddpuA DUa4Koozf4568yVvxAzQL/yD+FM3VaFq5J+bwdKfDcFBhQZbKirmiuOT7WKy EQsedZLNVkOKYyxVOeVauLt9SiNy8mfV4uHvnVOqV3EATfWUNtYc872ocSka OvL/RcqPLm5Z+edOS3TZUPTnorb4Uu70eOj09PaVt9ig3c5PjmwWBEwuHHJC dQhUsxwtGsQ0ixD0ZaqQB89hHVSNQYoL3GGtUZmgodzMSfkoqTbg2QeHIXWa dUeuvs1lzJFqJm0lOYCgUSWKRxcOWQRGrPXQo/ps5eXYN9yKJLmC9Foe1jnM RdnR+FmC2AYaZUWZ+76bTt3Z+YcOW3Igo1D6mV+h7bau1TkqMMKuwN1Kvx3T Ae1cYGgzbIbCsoa54tzcMPb+bOSfUdZTTD3xm1rAD81J2KazFmTMqIvc2GJF Kepxyq2cJdI3dEcctlg2rMzb+WlgiyYrLjjZx+DbeTviH1KLIWiYK1JGNMaE lRg8+GHck05NMHJTR1Z3pZjlbJ8TXMfg37GXipoPup+gQVjokwjOlnEMm6Xc kIqBm6w1KhM0lJs5UaTZgJeXHHjf7oPBRy5Gqpm0pQmAoOEcNUQXDibGJuzN z2+oYCqQBHNpfjZe45F5+uhX4Q3sAzX9uPjbGkcDDf+Ze1mNqy0XS7SSutKC E6tmvfvys+Rurna9bqNmxB+/IoOUQSDPdtvhZtaxOkcHRpgZc1nuL7sXjOvT 0m7mZnqycXjEgr1nHilR/GzO2PKGEZ9/In74zVklWtUcW/8W7VcQxfBBLyDr IJdUXspGT49RCupFzzrecEV++tR6yE3YbujRR+JcqQ00dORruojrVIIP0HHh woC16JVM9Ta79EU3TP4ONQKhJHu7gaDx6Fp0IJqeIfg4mDqAxNMUkajq/Axt rDXC24KPHh5c1zJ7N2w7RJ624PyQfOZEkWQDTuvL2W5hKtebAqkO0Npqe2nr 62KPp+ZRR3ThsENRd0aZWJgrdvWpab0bBViNucDRQGNQArslj4irRTTQQHNF vJ5qPyoqNVfuGEaO7bZjz3T1GMtLD4wwe8pv/Lq478s2fU+h9Yje2UoIsKQi UPqVcDk5pRQJ6m5IUS96UeINuuuI0DR+Z6ChON9TV4uNCXsXxKouBE/zqE4t r8MjLi3UGjiARn26FzSK98+l2cQJzcilpHJhGqg30chao7224HyRfuZEoQka YqSv2NLeLPCs5kPSfbW22tK6xmjr4qVANdGFY5vptjG/Cr0UduSn7Yrddlj4 F+cDuSRJ00SYr4EGDt6oTtSastKC40sndWtE/tDG+s0Gzfom4ax8+fZybLdR 83YbwSt+E/lT1AqMMDPm0ryzKbEfD2/9NHlg59/l3c+3nbgv+yxE7WwlEI0U /siCpTrABqeTU4pep40mjGwp/mvXoObW9GBvj8HrTouQm1desqsveYIijeml GIKGSDxY/37lRYTHk+6yd9e9V7nGB0WlqMKNhwtuJGhQdl4WhKf3p6/uQJ1/ /aftVPMgamWt0VhbcN7IMXOiOHTlEJ5Ve51SUO83aTOPDf2B4c/Y3kBrmgBk aKCoKbpwFDRk6sqE5wFWU+pOQM1GJOlRy9tAo4J4WMQ20Kjk8YPzCTQbAY/A gVPlsRGQY7vt2IBYPcby0gMj7ApzWe7RbbNQAxkZb34n2PzZuq35nY+Y6pgq 4z7tF11DOzmqqjOFUyglJ5pMPXJOaeHhaWHWpBXGHmrsocS0RuytqGzx9R9q yYmS1W2EARfS4oFwCvWtveSSFiZAFOppi84FDcdsCsEZufdWDaHMvT5Y1FkV JzW71VqjMg8N58gxc6KIX3JCeQT4KYTF95a38yAHQUs1s+ChgaCy6MJR0GBb GSEMi6Qgw7PsHLJ6S20GGra5Qqqe1GVFmQnLBjVHfnSTKShC8iIUGbbbDmNe RScgnQIjXBXm2xfWjg6th5z81OzUb8UvNxS7cJ7+bBQc522db0xYQtm/cMy+ s7oxW5HEKVp+zOZLi/tZNiQGzK/lJ8lZYt32fy7rh95+PeKvivTGKOJ0OREH PHOSdBizdE4xeo1YqT3Vy41MQR194AVn5NINNBQLYlnhbmuNFgQNWWZOFLE3 4LRUxhfeOcTj3XIPDkWeSk0dH4CgYUN90QXSOseKHBkatrZ60j/LziCXJKmK H/kbaFSG5EdiBw0amZQjYTRtvp+9e1rPeiZkVQ7suuRXCW3YZdhuO465xrza hAEj7JS8wyv7PINoGV6e3T7fni1y8hM3rP5sPtjsNP7nzScmBfGeYfQMJReU oyhBKYzVxXiazZkr32tosKx0fk3mpIo3w9MaxEvlIYBuSJWOG/EjRU9rlkh5 SeKQAKwaNuZAvnIXxBc3EjScLItCM3KpyfaYp6rvAbdba9QvaMg0c6KIvQGn ZOry7O9DawespcplEDQIVBld0NPn5BE0CM9wpZyUEAMNSYRBIQYaskHejbaL FPeepCL5dpvuZM7Tp0i7qG6ESwvOJ3y/dMl/F878CPcMHz4gLKRz51favBqd KFsAnZcc3akacskiZsTxxubPJtClEGl5JuO8rXpoYRK3wPvUcnKf5+sfe435 L1SO7f43GINej02/I+I7UxvE86yhZgWpMikfN+4bWBsLCNtzn9jVGrGQ8ela FANQQUPN5QNi4NBnHItIeiDkDalHh0YsfEaWatMz3HCtUb2gId/MiSKq5wNt kUVthdhzfk4I+RZeVLNltePgSSKi4aF2UGd0YT62GEmzxWFfHMEbotmZYm5a iKeTJMKgEAMNOTGbM78ZghQRGIwvvJ4gTWaI1NttRyfzwDmJ0jX2ViEqG2HH XF8rsmXym//Y9TZa++uJ9VuntJph9WczYC1f23NH0DA4/txyDKzwtnoi4qyt HmVYfLCFf3AYEsL10Tpja6GWyjXFR5d1spyeGIO6xl9mt/Euf5yZmpR0/AJj F2MeDeJ5ggoaSp8L4ClqNXEF4NqiXpgW8tOcg9fO2H47RQQNGbVuuqAhUKgk jFOQO1/N6RnaXmv4oXpBQ76ZE4XWlUPYREo5BPfGon7nPtCUI3jtCQLUXbN6 bzbpUG90ga5ull9H8mqmK0kDPZU8QCefR2mEQSEGGnLj0M9LIpVJ2u02kQCM zthulp5RocIRNpfmZ+N97DNPH/0q3HaPSWNZw+KCsbojV99W/CG0+bP13SL0 +N9BiJaj3bb62+ohV8jZ/Q/NrFZvxM6OknM7B/p7cIs3KogOp6RNRNUvozaI lzQcVVM6Ab479sGWnLPsav1axt3Q5j2CakREwomsyKp1UwUNAxbY/9Aj/u9G VfUNNYYuzVV8TakKja81PFG5oCHnzEn5XLx1NYmwiZTSbpWXxa75zOqOyOVI 3LVWfKiBkDSNMlWMqqMLx62KsDmfgdLCfcMDDUa+lsvCMVfsG+Rv/aYteiX/ Jf4nCDHQkB+LuRny60tTByTpdrvkxDJ0eqycYMKW/6rx81XOqHeEzRW7+tQU svzx4equ3ugFq6Ebi9WfzeD97tfXhWYpOzO7Y1wpBKP+tnoUQYNTYi3aklgN d4sQck593NyTc7xhvamYdyu0BvHtYtIcl/LyE6s6NcSiTguehlEDOhM28YiS J3l4JG/APvzPl4EatQMlIPPPFToblVHrpgoawva5j++sCbPf+AasfrMlGewe rodX1vRvXcOrZsjsrYwCSEHGwbilS747LMxeT/trDU/ULWjIOnOiUG1zuOYu 0kCeKZ4TCFJvosnDR2qwrWJ9TwpUH13Q3kHSgqa726dUho3evWexXAromMty 0xK/nTmhb+grjb2xmk1e7jnyk5X/Qyb/0uJi1/OYg4GG+f71g2u+HNPntcC6 HphXnVahvSfFbDh5m2/yoyYMNFBofc2kiSsk3G5Twgwc/neXllHvCCNPnGxS NnU0VFHzZfVn86238JwYdyfVwRL/jl2nXlBtNbdcIL87tx8dKdtUd108I/fO zW3vyz3ewCFGj2HeoDWIr6JvKZ7u4iHOUnJg+DP2T1P2aIBojvZ848ZatQO1 gBy4K70zlV7rRurIhC5AD3dMroO8U0jMUZazC1GgxCof5sbBodWJx0pQaYz7 rjVqFjRknzlJHHrvCrECRgQNXuN87+T4GuSVKOY8IABaIZvW8zk5oInogm73 h/lP2ynFjrAkfUN3Dy7KNpXizJ+j3nzJ21D5NQN6Tf4ifk9S4pa46ZX/4vVE t4XJ+SWFR+YPbvlk5VB32ZZd9TOGGmgsO3s94avw+h7G+s0GRX4Vn4C/4bTX mlUuBcaAtrP59aBxNNBQeTk2GVRYCY27JPqHSLXdNlecn98Lmakr46IXYy+6 n5yh4hFGHX6EOsyzhrriqEBCt9V2ibZ8oxkFxO+itGWiCuDf5ZM8MxIjSVsx Cm6u69fcwCveqLDlFjLEumwaxOMaJt92fo4fiHgSKutGaJtjRftqioCKfk99 vEPJjakMWjcS7wna5949MzWADJI5SPrkCRfzcTZZDS3kDN2d1xo1Cxqyz5wo qCyMCVOGkQnZZIr4lmuLk1sr//2E/UYSbPCiCLTeoPxsUbWHdqIL5B7DpMoC IjJVvLERe7I5/63ZnLXx045PWmb6rv9OuIKMSWnB6S/6epmwwZ9Mb8viaSWX DE9TaO/X63li7T9cmp6PfNlHd7YMaI4XnNX2n36Ec9cPRwMN9ct3tD7jUgSN Em23iYQfEp9qkw5J2HyWH+aCO5ezMrPvSyuzqHaEiWNNyxMnl4GGg4SuuImN ZRgNhjb9D4pV40ZLIsVToNvG54r05tqFLBbmEnUXZM5t7GFdQ4NHndSomzBR zum4RLL9c8vOi2knRWuLFhZ30fE1hA2+WMcipXsjn7R+msLKpD2SV/+a7gJU IJLi8II9cmjdlNM6vql65aWHJ7QhZ9om/9h4nfV6Qp5weRhHx7lqnlpeuqWH j/UjBNR9u/Vao2JBQ/6ZE4UWEQkJDpE9Dvdxxhtc2i7CExu8k/tmUAXQdkz6 7nxtRVvRRdGtFcG+6FsJ7PREJ+f0zDZPc8rTI0EajPp0+yA1z2FAih+sfwNR EVz47pIGGsQrqw1ae/y+w2ttljV8FgW6gYYJG5OiTi2bhNZnXBuChrn8+o7P gtHiHjU05aRRSmQNWS7PyydkClU6ExWVjjAapMnYplnE5VsEbhwe9Yw4/mwo tFVVcctEVYCmLLI+5SSTyTUbYlVONYenhdWoaolkw8Ut3Rmz4snH2ULdBrFX HT7LXJEyojFWHZt2zNXujQOk54PC+xTrrKKxJoN0yLNaGRVmp8ijdRM99axr EK+dOEXV53jOhZ5wMZzkkv78Apz53XytUa2gocjMiUArwhWUmkVqdBwVQoow iD0/ZfM9Vf1GLKG5Cqj2WRARDUYXlnoQ5Jb3xsbuz+Fz5Y7vfG7v6CBczeg8 Pzmf+w18PW6kRc0wYA1bxV11/veIDYhLq0/UL8KFulKUHW2rMu0Rf5XDtToa aKhWykaQYfcn8na7tOBE9JBGRuTtfOuN2KwyNaOiIvOrN72o31q6XhsqHWEH yxp5UJGgUXBzRWgdKdLUaUmkilsmqgS01J1VLmjB1eg2xKQtioeeElgbcBuM Qa+tPZGZxci5Xw8mIezaFLsoemLXZkbGAJVyVltFRmjWrrfE9SEh5xCFc90t s4r2mgxSKL63vJ2HKoIT2bRuuzGFBW4RXUVFXnJ0p2q2P+Yu6ZMnXIwNLpHq mLYxv3K6SCuw1qhW0FBk5kQ5tRzJshEWjJGnBtzmkJz4cfYmQRp2uqO4Dqq4 /EosNBtdoPcb/kv5PbPwrDCpED/knR/q64F5+/Rb/jMPNcPW7hafonquv1il NpR7cKh9qnVRjIksGa63ljZFmmNpp6OBxhuRl1U1rzpDht0feRYjcMnGk8q3 Tw1pgG61jS06LDymukoTh8pTCz7Y7DTx5fcK1Y4walmz4jd+18MDlQga5vtX 1vSz1K9JEGLRCjkriUh6IOYHaJQiS1dNYvplsfBdW/qORXXkmEmuJqgLtxCY aqKpyedOKi+IMziTqJ6Z6MGNMH9+gRBRgabrTZBISengREat2/aMY1xryvL2 fx1a23bOxyNBETXQaD30qMuVH6mG5pOvAmsNjjYEDblmThSKs6tQVbb4UHQL 23uxVAhRYZD/Qb8aoOzylPZVlh4NRxdIcYf1vg94Oeooz61i8c301RHBPrgw 0vITfgab9y/ObWVbDlwvQ8i+yUUxJrpkTDzsalWzCRrc9Dd6vxiNBD+S7/5K H23pXY86MEz1pI48fpCxf+MswhUWeUSCIqJSc0WSeoX30EGhe4NLeUuodYTJ J07ePG3lBQ1zWU5KXMSL9jo+VwlmfLA2z6LeWrP2qS1JSRGKjyxqbZvnXZeQ lKSt+hdxt4uXkSgzlBNkwTDMTlS3fMcEmMKkuc0xQ42hSxnbU3ICVWv7bL0l 5luzh9icarzeBGlxonRwIqfW/fjOFutmH6fd3ETmw7Wyx+fXfNTWyzZ7+wVO SjjPeXYl9z5Mog1ZDc294QusNXZUK2goNHOSkKlZvO4x+rtZjWdZKoToIuXX a7KG1YwKWq6L8v5skqL56MJszlz9QUtK4bxvz/9szirgcAea719PXDip8//h j49f+Cg+FiIWUKvSkBVnXVwB2ZzLpbhtS5xjepzRgWXfP8ua70eB9ym5nIi7 +7N4YFq4+Fvq/uSEdcum96bukQlq1R+y+Ieko6dd5DBlnvklOfHH+G/mT48Y 2KaOB+0NfFq/Pj8xo1Ck2UScHjooj3MWtaZfsyhLrWZGGA3SXBSCSYAygsbj v7Irf5F9O+K+mje8AyXFhcDY4p+fxP6Q8uvvPBxii/NuWH+vXZuXfDq6Uz3H W8syV89ZtSf5p5MZll/36p9iPR0ag1TmDVj9F+afuOP0VSXndg70twyjCu13 2EEvFBUMo1xg60Hp5MWW8awmRaILug1XLIC8nTrSKMitUQ2QCrPS7l5ya924 jZuv/bsHf7LuQtUxbcH5/V8gwn7NzgM3ZjzgsQdDDTQYRBu04QubM19Ya5yi WkFDoZkTheKVx1gAxcit4xOes94YgZG7q1QIi/IO/8dWvGwytJ8cl1Uk6GMV 59HmcZxWTO2im+gi/9j64c0oLkA+rXt8smb3+XyXc2PZ3zmnUmIjiQnQgNVr /t7K/bm8w8T8czPsfbKc2oMgHBnzvOV1LpUKsgSAqZAELRaowvKF3FTiFUPJ 22IXWKqE6BgbtR77n5Xb9iYl/Xwsw76NVMnkb0Pc3Z+jmYPImJ5sHD485scT t8XagYjXQ4dGznfvP02/ehFCYs2MsENSsfn+9YNrvhzT57XAuh6YV51Wob0n xWw4eVv8WkoFBI3Sh+tf83U2mk7Gl3Oa4sNzMxpwX1pUW+ksA6imUa/J2O8O U27msqLMHXjDbv5nr+qAbtYnEDa57kj/StJp3FyWk7Q0/BkPzK/JnFQJqv/I mYRvowrBWNIv1bhR4gCqMMto0cxwJXJp3ebbf3z7bmu7TGGNzY6czrx8Nb+4 ND+7cgt/bGvsgklvIKcDvg3eWbgjm+8WjDTQYBRtSOdbFpkzsNZUhYoFDWVm TgTRd+IWd0TLfeg0j/fxg/MJ346xqW346dgBXon6KoPS96G295JMLWebuERP 0YX5fnbCHFuDBjteT7V9e+j06G/iE5KSiZNfYju/Kmb2+GFhAbav7xvQa8Yy gfuUBz+Ms324EQudmuFiJFgqFciSwdAj7Oqu3tYXVgbDzeJuOryA35yPIKQN tOhoQNCo3Py++sbgSZFLNv2YduOhmDOIiD10HCktOL50UrdGlueitl+3TzfF fxAk3ERIMyOMJhUvO3s9Ad9CGus3GxT5VeUEkrglbtpruAZoDGg7m19JWtWo W9Aw+o/9nlvSJdmNlAt1sYW/azg9Xjj5JzZN+Ic1oDLWb9nv/QmzF/43auqo vq2fJf7RL3zM9j/4nL2qBFFDjioWOwfIzBYvn87vRS78PHLwq818jNJ6GZHH i0ynG1JegMJ9Y4VC9tEw1hzzvatyZheIUpiplNaNK5mL+jZjfmqM9ZsPmrc6 TcgFkAYaTPb+aI4xm8wZWGuqQs2ChkIzJwmyA8JESnUz376wdnSoNYUH3x4O m/TZgpjPI8e+2zvo/6xbJJ+XQj/69kfeqqC6oJRFaNwgmgn9RRfFf57btcC2 I2OBz0th4ixDaPc9Rsma1B9cvZJlWUoFJVGwivN0fnO+HZVM/jaUNxxQDjF7 6FRN8f08IicHH+rn9e6KbAOxrDGF9n69nifW/kNq49pHd7YMsJQ2c+yFx4g7 39IAhbKirANbFkweFh70rD2DzqfJK/3Gz/7u8AVVZcppiOKb6Rs+HR78nDUw 8Gn56oj5wnZ/TBDd5wkUyPK1bcAZjkLUDTmGJiwikc+RimiFmcpp3TiWOSFm hlWTIan9XNvXe4/97Ov4/b9kPxIsmiEGGoze8mSOMbuwH3COugWNCiVmThJK EbSYnsAFf6Ru+M/H/V590c9uVmB6onHHN4ZM/yL+f2fzVbTXEQypCeNjWGvi Jn3oNKpC8mekrCj75E/xi+ZOfLf3qy839UErKyrv27bBPYeOnxO76cj5m6LF h+htwyRZ/71zir0rlwvvZXLJYOo0lPlFmP2z5ew1qRRuu/sTuYcOC/YNrK3/ Nk8EZFKxBe9qg9Yev+8wP5jPrO5oeSoNbfofFC/x2G1vaQDQJwo1gCYwpy1/ 2fLZqkqt5IotWdqABfZKdpkw4ARRCzMV1LplAzXQYNDByJ2mYhVVOkH1goay IDYagn1B3RLUzUnrywEgF+aKjA3/tD93TPqD7SF1KW6THr9MyiTValXOXpNK 4aa7P7F76DCD9x+sxdi+TSeg3bpNWEjMUedhWlF2tG2FYNn/iw1ueksDgH45 PyeEZUggOlazMuFOegqCTMicW1SIW5ipqNYtG2StPaO/BJJjrO+mCZIDgoZL 0Dw3ft2B3Ryk35YCyxCgURBxm0myZiluk0Uixqc+3lHm4rPRLsO1sIUZ+p8W 3XP3J3oPHWZwsxehOR6aAVGB6o5cfbvqx8hWqSfmyLjnLQ0Aeubilu62J1pE 8ZMZ6xkHsxOCmineP/c5vlGNyIWZimrdMoEaaDBtfEr3RtrN6ihnvoU5qUkp OjEfkAcQNFyDPnqKN27WHPiJpI995nKH7H1AFBDbQ5Mp4ltX7lWkuE1VKszl 14/sPnrTlhh5L3Uku90NYkYqZVdoNeGOuz/Re+iwwWLK5CaLCJJUjE087KpP uU3QMIhYjOOOtzQA6JvyksQhAcRaj4XPyHJ1LCEqfxIlh9wbRqgHcug4RzXi F2YqqnXLBHkuxlxFQuZy+PrHXiP/nTjXk6OnrW6wZmJr+VGVGKTqhKnbAkAD 79xNRpU6btgKiAsqWbveAKKFipQbzLKghMZdsv6/iKAx5mDV7iJlj7b0sr2f DzY7zR1qA9xx9yd+Dx0WEHt8Zg9zXXBg+DOsVCC0wosazgnBDW9pANA9tjIE WVdne4yhYS06a9dbxLh5YdOOcRk3CQozldW65QGJS5k212QuB71pAi50NJep p61uyE/b9e3SZdt+u6P0haiU8qOLW9oDI/dIQRcLShJaQPB2TVr7APJjrji7 +hV2m5GMOZ3t+sPCP8hwgy5uW1PRGAQNMl7CsOenbL7nHs+62+3+JOihw0zx X2u61MCahO1xhzQ19ioQ+crK5dWwJEucz3e7WxoA3AEy0wDzm7RZnj2u/QDd heW4yrn0RTfiK3i/PZ9TZosUhZnKat3yQCZdMKWmFybNtRXWULOR8WLqavy7 6wKAUx5diw609zrBwuIuKn1BGsFckTKisX3cZFt9AD2AdDlxtRm5dXzCcx7W xZHaXxVPrHrhnUP2ew7xoaoyLEHSMg2teyfd1eppDFfcbvcnQQ8dRgitzH/a TlkadCkN0vGcwUaV1IvE7Fjndrc0ALgJ9mQD39pLLkl/5GA9QNdyP83c1JHE GsY1rUWKwkyltW45IJMuMDzvouvUC1WJSDcOj3qG3F22jfmV/E/nN3TBeHbX BQAXIColVJ2w5t7J8TVsDyrXPDfAzSHVsKpb/RbcXNevucG+L0Xz+nAR0kjb PNqrDKraYeUlRLYgVmS/RlFpbpTn52a7Pwl66DBSWrh7YIBMEbgKYH9ah6Tm 0jVJIbjZLQ0AboO54txca191OY7JrGYImo38keHyH7c+j8v6I0lhptJatxyg xvJ4PNky7oazEck5PbPN08amnTs1cLJOnZ7enk93XQBgxK5wYlB1wpaHOyaT jSrkdHACdIH57IauxM2DJlrYIdQM76YhrxCLASVbDzf0NjkcRliPG5wvzSW/ bXnbm1h9msxJda/iKHfb/YnfQ4cJIq3UfbLUyNM6Jr0o84sw230npmu0u93S AOBG2I0dpHfS0LyBhjWhxYA1Ddl+i8s3kKYwU3GtWwZQYzeCgJHLsqjHcvkn t3/Y7mlDUNf4y6WX5lsLguxncCXpG7p7MNT4AABvcLnM/sBybeLshqDmiibI mwK4YzZfWtzPC3PS2Ksgfe/HIQ2Mfi0/Sb788FB0C9p+s+Da4uCnvZxZeRem RLe2vGGPuN/JR9hclpO0NNyS+GcM7LrkV/dSMyrcb/cnfg8d1+BppdU4x5Pa xeo0bnkq34i87EL+R6ukMSx4xW9iXYK73dIA4FYUH1nU2vJoe/eelSFlFZ/V DIGpMlGlEJmBFvVg8M5sbn8rTWGm4lq3DCAGGtjzrYJ8LGnE/qERUWu2JCYl J6xbNmvIv/w8TUERUam5lnvXmmxswPwCJ61NSIhb0OdZk0/49HTtaDiAxrAX 7uFqISQCMYCYKzJ5IwNAVZQWnIge0siIr6ftR0bF77GtBR6YX/iY7X88wPeH 5SXHZ4TVsKy5wVO/3bMjfuZrzSy6t7Mop3IfuuOzYE8M86oR8kHlGyYlblk7 u38HvLWwl2dY5Mqz+e6x5aTibrs/8XvouKDgzzU9GmDVuMeT2iX/5HiDMxXI ETQ1V9TUR3e7pQHAvTBXnJ/fizjvcNVLVCBWxdWgUTPnu9unNCK21ZwdzqUp zFSB1i05pIGGZTRulOWmJX47c0Lf0Fcae1ferk80bt/1nSlRW0/dpByLF+Wd +P7LiO4dK1/j06Td4Kh1FwrcMRYFZMJccSoyxP58gTWoK8wVxyfbJEoT1neL puyJAZVRkHEoNnJUj7ZNfYxYzSYv9xz5ycqUjEJ0KTSX5RzaOH3Aa4F1PYz1 m4SP+iThiqszm+Kb6RvmTuj76ot+npixfvPOb/aftjju0JUHbrt+uNnuT4Ie OlVR+ujAmDZ49tD85Hz3qVNEWiS7Hl6kRttQw1lKFW/QMzI3uKUBwP14fHd9 zwaW7XazJRJlaVizFDSWIWDFajhpNP5z1AnurTIkKcxUgdYtObkHh9rHzbVo AwAKQjppQNaBS8hsFnDPAAC1QxM0KFbbukT0HjpV8fDcjIZupmZUUAQNFy2S KWWJYtfC7xv4FAgaAKBzck593Bw/DffpPvGkFO0tCQdLEzZo9y3mF6sKu9rT pGNcJh+1R5LCTBVo3VJT/vOXz9m+o1Z9VwD3gGx3AokHVYGmZ0hv2QQAgECo goaHx4cbmTIPNI4EPXQAkse5i15iFjSQskQeGdEuMVfs6lMTBA0A0D0l53YO 9Mdl50bj14u97SXKLgyGNv0Paqvpmbni9GfdaghzOJekMFMFWrfUkNYfntjE w3DsDagY3G/Ql5ANDR2HpkqhCWsdMj1D7DAVAAAJuLdqCLL5c4s8SfF76AB2 zBX7BvkTN1OVBnHlJYlDAqwraeveSXdFPcgqyJhRF9UzsEEJ2ksYBwCADdYO ZSYJcuEe56asXrzxlKZ8ws3mzJXvNTQI7NcmTWGm4lq31JDWH1r1XQHcipK0 Vf+yndt1/m8atDuhgISpWMvX9tyBfCsAUD3nN3RBt3++tZdc0lAMwQsJeugA duwJw62+POr0BXkJkS2IZcKvUVSayMefxdZfzUbdBrFXYSUCAN1izdOQQtPQ GnmJc9uI0n1eisJMxbVuqbmdOtJIfD9t+q4A7oY1m8vy/DZsFXfVvWdPKoVJ c5sTT7M3NnZ/jtKXAwAAC8gQgsDg/e7X13VvfSN6Dx3ATv65GQG4Hx0WOjXD QfS3nqiKEnU78vjOmrA66M2srRJsAAB4UJzx04dtn66MPMfs11RChaiUn1rd Sazu89IUZiqrdUsNaqABnSMAbVBwc0VoHTeK/Fly/+LcVkS7Iiwwcreb6+QA oCWuHhhW14PcBbrNUZfoPXQAgsKU6NaWG6lH3O+kpFE5mElLw3HvfZGibhql hYenWQQom5oBhw4A4C4U5qTELd72u8Z2wSJivpIau3KDWN3nJSnMVFDrlh7S QENbnVkAN8ce/9MCNrelvOTY1GDiUfYJn57+iPkvAABQDwWHFnU0ISfbJiwk ak8uTG0AP8zl13d8FuyJYV41Qj6Iit+TlLhl7ez+HXwqby0vz7DIlWJF3SRF +Qc+pqoZ2oyKAQAAlEeawkxltG5ZsHXXMmIh49Ph3APQDnnJ0Z2qYdJ2wdYO d7dPaWSJIY1BXbZlgzIJANoj/9i6gfWRPA0MC+g7LTnb3Sc3gDfFN9M3zJ3Q 99UX/TwxY/3mnd/sP21x3KErD0Sviy44/9PnrzUzIreudqNiAAAAVSBFYab8 Wrdc5GyfE1zH4N+x19fHYOkBNIZ9F294ZcDBPK0+g8Ix/7HrbS/iROyZhWfB /B8AtIr59oUNH/aoh6Zq+DboN2912m2QNQA1gmsm0/o0Qu9YL5+QKUvTNRsV AwAAqAcpCjNl07oBAGCFtUESHkPVG7ooy7lvjt7JOT2zjS/k9wKAbqgMYGJG hNbzoMoaM5YmXbhTzPzXACA9ZUXZqbu/jKDepV7eIeOjk7IgKgYAAAAAAGAN omlorGOyKFhdjkHNAAC9UfznuV1fTevb+lk0k79e3/kZIGoAynL/4qJ/NkBv S/8OvT76ZsuZO5BHBAAAAAAAwB27pmHCOi88VKj05chH8V+7BuE9m4wBL0cd BTUDAPSIuTTv98Pxi+ZFdO/Y2Ntg6DjqJOwaAWW5e2J8bQ9j/aZdB7w/J3bT kUuQOAQAAAAAACCUvJTlfZr6Om1FpFuuJw3AML/wUdDHEAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACq5v8BufQy aA== "], {{0, 120}, {1435, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{449.5411458333322, Automatic}, ImageSizeRaw->{1435, 120}, PlotRange->{{0, 1435}, {0, 120}}]], "Input",ExpressionUUID-> "383a2b69-21d2-411b-9113-26242d291c0a"], " , 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}, 3.751405493388556*^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[{"Ah", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", "==", RowBox[{ RowBox[{"Closure", "[", RowBox[{"Ah", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", "+", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"I", " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], " ", "2", " ", "I", " ", RowBox[{"Cmetric", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"Fb", "[", 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"}], "}"}]}], "]"}]}]}], ")"}], "//", "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}, {3.751405509384153*^9, 3.751405581831459*^9}}, CellLabel-> "In[156]:=",ExpressionUUID->"1275d9a6-70e9-4551-b215-1491fea58122"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.7514055873427553`*^9, 3.7515668870806303`*^9, 3.751727185572171*^9, 3.7517302568386707`*^9}, CellLabel-> "Out[156]=",ExpressionUUID->"791c9c18-d120-4332-b23a-229ae47c7a30"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnQl8TOf+/5+ZibQioVI/kqoStUa62Hpt6XWJVoNqURQX0dqKUpQ2ttLU TWmJq2gUaRFqJ0oStfQStRXREiWxhUosiWqi2Se/nDkzc55zZjJz9m2+79fr /3/9rk5mzpx5zvN8n8/z/X6+QSMm9hllRAhNebzi/+sTMf1fkydHfNz3iYr/ 8db7U8aOfn/ku6+9P3Xk6JGT240wVfzjxIr/F18FIeL/LgcAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAABUSmlBxv5NX38Tf/JOIe/3KPrj/K7V/41LOvug TMQrAwAAAAAAAAAAAAAA4E7Rn7siWvoaEEIGQ9uhKfl83qP4/I6BgV7IQtuY kyB4AAAAAAAAAAAAAACgIGVHFzdHNmoYlmTweIvinX3r2N7ChPotyDaLf50A AAAAAAAAAAAAAAAsKf1xbi2rUmFE4TMySrm/RcnD1Z287WpHz3WXQO0AAAAA AAAAAAAAAEBJ8m6tG96hTjX/VsM+Ts7k6d2Rd2Rln8ZPGOs2GxH7Uy6UsgAA AACqpfDPzIz07Ed8hHlz3t0rV67lFot+TQAAAIC+gLUGAAAAAAAAkBVz+blV LyEUkfSQxx8/2jQOPcar6hMAAADwIGCtAQAAAKSFcNDt2DEunX+/IQAAdIc1 BG2/4jcef5zxWRfkByEoAAAA4BpYawAAAAApuX18wjNeCBmMIV3ir4DiAXgu 0CWcSfbBochYY+LGAq5/aC7f2acGatQrOU+KywIAAAB0BKw1AAAAgERknZnZ yt/ecciv23spOWCgC3gi0CXcCQWZ0U2N6KVRp4o4/mFe2ozaRtRl6kUent4A AACARwFrDQAAACAFeX+s7lHP0ifIq0VwIyOpeHSfePIvpS8MAGQGuoRXwolJ IcgLTTycz+mvCvZE1kKo4acH4C4CAAAAboG1BgAAABCZvFtr+zU1WPZ2neYn 5T7K3f9hWDXLZi9o5LIMzgmFAKBloEt4JViCSUO1oUuz2ee7FN5dHVYLVeEc uAIAAACeCaw1AKAM5tLso1tnDXgluLaXsW6j8FEzNvx6l9s7FOSc2BgzsS/5 Dk079R706dYTUBUOKE9J/v8mdURWrSPZ2hO5JP/wNKvi8eyUTfdhoCpOaUHG /k1ffxN/8g54qkgOdAl3zqPr0cFeyBsN3pHJ8i9urPx3LWREoeNTYdgqixgT CBjaAAAgB7DWAID8lOSdiB7SwITajoyK3528aXovYhvoi8buy2L5BkVp+z4M rWf0f7rfx1/EJyRvjfmggw8cnQMqwC5r+DzWbWEybWdn/0+4DKIqzCU5vx2O XzRv7Judg6oZDO1HndTrMlf0566Ilr5E/o3B0HZoCpxdqJZ7J8bX9EI1n+rU /93ZS787eOku1+JjlXPv+/G1kQEFNJqTcsfti3OSoztUQZxCVkASxJhAwNAG AADZgLUGqIycA8v7NPZXv7RFHBAs+3RMn+6t6j9BLp3VG7V8uVf/iZ8uTTh9 NZ/9IvrHwaEIBYYN2ypxC4kbcSPrV60yeOP5YvJ/E6bBHMIGS5Bg9AsbmZRp u05z+YERDcnz9G6rf4NMaUAZzOb0r4bUIrQ7bHjjlOQfntmzjokYqD3ifnPy AoWomEN2fjGtb8unjYiiTt/5aTrbW9ooO7q4uf171oAmayom5+yMxk9goxIF tu/70cotZ++qe1VmT9HDzW/WQ5YodPahm5XOCeayG9s/6UiUBBl83/7yBhjH KYoIEwgY2gAAICew1gCOVGxbVr3X3JtYhUJjjqo25Dc/uLLl40HNH6+4zsca tu8+eNRYguEDOz7zBBYcvjE/MY2V6FF4dzNhOMBW/eN5zWmbXzOiNgtTqLt6 P2Ukea0+aPbpEjd/f23/sNomR8tHojc0gRG9FnkFjkkA+amYNFa+U99QudbB 6WVykZd2KGZkjyAfbD9Zs84r70fvOndL8WuTjtIf59ayflsjCp+RAQu6mikt yEzZ9XlE1zpe2Cj18Q0dH52U8VAPe8Sbh0c95UV9qYv0DBZzSc65gzFDOvpZ DgWMz72akKWHL61pRJhAwNAGAACZgbUGwLHvRxAKjtylxpxzC0VpP77f+knk 69/zkzVHb/5FG5QV8eGh+NHP25pgmqq0GLeCVZVH3q0VXWsh6RSPsuLEIUGo 46iTeBbH6eUv2Bb9iUdcakuEOPkMcvYMnp3exvIWBugQDSiCNfePjYhhn2Fq Bk4/IpWu6BZCLJ3Yg0g1seNfr9+8Vac8wcsi79a64R3qVPNvNezj5EwP+L66 gJDmRjBED7/QKUtTczUfkhWf3zM6hGpaHdjqlcGjxkyc9MF7Y0biOVd+bV7f IHHuJcAKMSYQMLQBAEBmYK0BrGBaR52hi9RrBJF1+sOm3sbgLkt+qXy7ZG8P QY7eAfNZfR3LO0uleFxY3xmhsLhL+L9dX9TLqlTUaRJ3y9Vf/7V9ci3krJSs rGRzDz/rUQuP1tIAIJC89LkNvTgkbFjnGcVsoHKPrRvehFYjENT3ox/0cVYO 6Jq81D2EcRM2dN2sgxrBfOfimtF0MQdHL8IOAAAAoCCw1gAV5CTObWXZehte GnAwR60/d1nx/neDUcBTC8/97eaVt49PeIYa08FzEtlYahWnru/uZdEfGrWP SxdzM0YoG4Gt47Oxfyq8t7ydt1WpeCMq00VSaMEfi1o/7jxx9EHq1JrkVzSZ Ir7+y8kfA4C0FGUcTjhZeTmkI+ayGwc3HVIitcCaiGLHhEKjdmfruHYF0Bn5 2Xs/sPY5skrlUhZgykle2qHYyFE9Wjf2IwUdokz11RFzlzKzjgEAAACAL7DW eDJFR5d1MJCxEwslQTnMZ1e1Rygk6gCbDcrtlf9+zB4V+tdccplV0uS9bVMa WMJIMau3iGLVqgxLLvOp5S/aro6R9UHHXH5u1UsIjdmf6+S/HVvc1PYm4fHX xblaANAlV5MGeiMK1baJAbSLDF3Csc7OVsWjcei222o9oQAAAAAAAFAcu4WL CYUt/0XNR50X5oRarvPxht3fXrg/w82l3kwagG1u2sScYhURljzaP6YV+Sd+ 4dNTH4lx3eXl2T9vSbr0EP+XE5NCrFdWu17sNZeXVvp39o0/nHqu3v6qr/VN fFHUb7BzA4BKIM1zsE0iOG8D4iJfl/DCu6vDamGDGQVM2gS+TQCgc8zmjO/n dH0SdY27rPSlKEbJnsjH/J4eDK4vAABwggqcVB//l/69LszeR8GA6rfecNvl 64vuL29jr2cxodc/vclyerx3dmqQ9Q/bfHaAV2N5d9w/Od56Pmc0DliQxW/e pow7DCi4/yGRlBkA0CHXdvbG94d+aPYp9aaxAZpD5i7hRYeim+Hj2a1mDgCA prGmdRmMIZ23ZnrwVv/++bltn+TQhgAAAMBcfmF+L6uC4F9n4Xl1u9EWZi96 AY/w0JiDbi5470C7JyE3QeCv3R/Xt2VNjN2XJfTKHd/fYj1K0meLa9WmcjDj DuPgmBxRrxAA9MTDde9iMwf4+gKiIn+X8Ly0GbVpqyH/dQQAAJVDaR1d4qFt RNaZma38JUmcAwBAjxSf+uZftv4lbRamqD/8PzLmWU7nWTS5g1Of1pL8XQPJ 1HeDoVX/g38KvHA6ZcU7+9axXlVdun8pF3Djjo4rfhX1EgFAV9g2niRextFx npLbYS7NPrp11gDSTaJR+KgZG369q/Q16QtFuoSby3f2qY7LHe1X/CbqByjN /d+iXyba0Dw7a6/H7+4EUPjwwg9xs0cN6BL8NN7TJ/C5dj2Hjp8ds2rrwZ8z Hri8wcInEBkMbfSNTetAdZssSdPI0/DX1dX9W1bzqR46e0u2u986L+1g3NIl 3x52V5+OQyjMXqB48KHiiT69f/2CGSP6dG9VH+tSV/OZ1p1fGzJt7uq9J+6o 2dRAdGCt0T0Ft1d09LdlPvRKfqD09bAh6/Q8shOff50Rm9w1vqQVvxhRl6kX uZTqmM+tt2+QWDZ2YcsNu6mIsfqY73i3U6GMO3zQ7NMlIl4g4JSiIj6KYHFR IWSZKw5D7vB6f4OQB8acd/dKhlikZ7rebgihJO9E9JAGJtR2ZFT87uRN03sR JXTSZKyJi2busHJdwjExX3dyh7n8dKTFpwuZUPfIq7A15kXemW3v/4PWudg5 LszQBE8g8hna6BWz+fLifj6W2z5it8Mko1aIXoTk5iIobLfrzcXNg0OrWl7r HxjLxW7fflz77JRN92GKYENpQfqO/0bQ5wRj3aYd2j0f4E2bEowNWo5dtjPj Lw8IXWGt8QCoxiUSVBZLSv7tjOxHLK6Xlu5rrDFxI7fV1Vx+fHIb61+LWul/ /5shtjADRSTyrUHBjTua9UoWN//E48m/eeHIlrVfzpwyKLxz6wa0bQWhgb/a e+wnX2z46Vyuuz3zjbiR9Y1o4hH1Z07pHLrcgRp+ekDIjFe8Y4rbPQRnLGcr gydFLtmUnJYjzvacGH5VqwzeaFOGsw8OtcwYhrZDUyTxJBINrdxhBbuEU2bX FvQkd2BnDRIkxngG1s2gf71+M5ZtPXjs4vlfDu7ZsTpqWs8mTyAnOK/2FTiB yGloYy4uKtZQFMsaW69AyXzkpIDoRUjun90rvVQ87IcW/s7tJ8z69t0nkQaa LKiBouvHors3IYQOQt4cPHvlxpRfL+M7qaKcW6k/bl4wrk/zqtYfxBjcJebn m/q+sbDW6J/slJFV7cucRlI7OIJ3ekXezhu5uiFj5xu2B0E0H9fCe8vb2RaC 5946hD1c5jtpCUmskzxVYNyhvwAj/9qZhOWfRnRu4uf+SMyyPrfsPntLpT9Z 3qFF7U0VmyzfJelavk0PLi3u/SJD/JeWmk//c/EBcVV2htwhcG8oyWYcx8e/ 1eBJKw+kOe3HxBJz2ubXjPQqxfspI63vr/Z8ME3cYWW7hIs7pFVE0cN1r9mt rVicDgOOECqcN6r/fOwlB1mvIOfEt1HhT3shGk62pUInEIkNbcwPbhxcv2zW sN6dmmF1OqbHGrbt0m/U1Plrtp28qfnDafInQKJ2CZQDqiuiu7pRgX77Jfl7 hwcTKR41n5h9As78KsUiPFpqf96cEn/6lmsFoyj9p3ndmlifKV9M7dQfsNZ4 AJc/62ZfH0JXnNP6ouAEc/mR94KppbzjqJM8lHG8eSU/wcSRC+s72y4rcNoO PBYh0v/qs33cFDHu0G2AQZQnb5k35F8BjBjQp9Zz4f0nfhIdu2FX0k/H0jIy Mi79mrIvees3MbNHDWxVy/rqoP4zjuYwv7f50t6363gRY6/T+HMaTu6wbujk RWixiSPi7g2pUgvLeEhY+9Ws/u38HL9HjbpDFm888MsFV4UWZ39OTvwh/qv5 0yOoEWUnMOyd1afcBCfOIecuxrx3ernV7Nmk9owjDdxhEuW6hOtV7rj3/Xia CWsNw5IMpa9JaxTsiazlMrQzP7iyZXqfBibbTTahnusu0V4scAKR1NAmP2v/ l5M6/R/zWWbi49fp3RluN3fcyLu5K3J4yye9kKlK8L/nnhI9Z4v2WdcXk/Xm NR+POqslr6nSH+fa95BulF7hx3aZB4cRFVYGQ8veSfc0GX5KjVXr8K0yaM1x tsepBbn7Pwyzdo/Ur+IBa42syDl52rmaNNB6Vlux4oTt1mVLDyoxg4g2J/7E U6nAUkSMzjOWOXJhTqj1/fxQ1DlsS0dkfVRF/RZks5uw5Tbu0GuAQfqwvf6C rwH7FiZTizfHLtl91LWHm/nBjcSF5D1x8EsneqWRxjgocOYebZcDlvx14VCS lZ0bY2O+dLrxNDbrPH3p2oQkFlTsPWOXLFk8f/rooT3bNHaaSCP63k3yvWHJ o82969C/BHdD1MKHafs2MEejj3fYzLUX8zgGchZZNSzuEv5vVD11nSZxt7i9 n/Ko7Q67Rvou4fqUO7Au8LZfR+2ZSCqEkBRYFFHm/Z6yfkHk2AlTvtxzlinZ CZtApDO0KT6/Z3SIbW1t12vS5yu3Jv8v9fKVtBOHErd899kHwzvWYYwfv9AP Y9NEebqL/tw5qCk+c4R8niLVBttcfuaTbuR+MyTqgLY2mzZFi4XSm7qqne1m to75hd/HWUtawMTDKQ8uzW3hzUeyKLy3rmc962+jy+QZWGvkRM7JEwNP7WAk GOgE4mShnv07Cqp5pGpPxEjwwEsau05Nw2Yf89lV7REatItdM0F5jTv0GmAU 3UpdNbor7dp9fEPHRydlPGT/EUXp//uwjT+heNhPsgrvbu5HXfOgBN3piQ5N MFENU1Qqz4kk/9qZXVHvBNOLZUTvqinD3pBSIG3wjN/MpdlH4kc/74+/lV+X fydc5XCHiY1JIL3rE15G90ZUpiilefKiqjvsBumLDXUod1CucTTcdpwHGJA2 thFJD3m/g6AJRDJDm5zk6A5VLE9r69e//NF5JRpxDPHpkAZ0Fb16p/5bBfdv LTu6uDntXcXPQrRj8+HUYLE5HuW2HHrUpR5NGXd4o+nH+Yo6ZOkWEnSyqU9s MyrPzpvYybih/dAUeY7j5QHWGnmRc/KkoFw7HBIM9IJd7EViGIDfW/uObSsm eJtgL31FqMXnR6l/Lyve/24wh3UNixnYJ4TwQ58Bhtmc8f2crk9iSofJK3jQ jN1chA4KWxd4396z0vKLj8+wJQFq9BjdLVRlru25oGt3PMg7s+ntQNvPIUGp hQx7Q0e7CUGfkndz57guvtSbGYwhr8amsmsBSQSczFQx3MuIcWirFVR0h90h Q7Gh/uQOvBsaTte4y0pfmsYg5Q7+hsyCJhCpDG3snTiCIham5rr5Zva4BXu6 6RmY3HGcf9rEnJIk+Cq8uzrMUg6itT4CBFR44E7pNZfvHRRI/jqofqdt9/l/ Zn7SXMu44lu3rlfILHfTYw1bd+j29uiVp+5wfQP8cLzTf09pK8vIBbDWyIx8 kycG1ZBFjE2KCrGviUisZmd/kG7kFgS2aMGOxXEVsejIopYI9d3MdvXHYwaa bCI2+gwwHLY5KCD4g+0O2bycIGVwE+rQu3eQvSBa88YdzsErc0kENjohoeoo Jaig1J7cUW7rAkmpiBweqOyftyRdop3tUo08ateLvaaxCJpEVXfYNTIUG+pN 7rC6xhlqVK/O+JV5Z7l7LBa5Q1BigKAJRApDG1vmOfugzklAEjr8iIPLFnvo hy8SmkWQpUCaTO2ghwdulF4qHjah1z+9KSQAsyd46NWNkBdU7Tw5nII6buMq eFzb2dv+5xocjc6BtUZ2ZJs8KbA5AcmirsjNzcOjnrKcEZsMbSfHidPYvax4 Z1+qZjxg0ib+rYrsXdiwRFOLjxAKGr2afd4IFTMIyQB0ix4DDFvtCUVAz/ep NnkCwIRECs0bdziDqsy1hSpjDojRvssa/Ejij61JuaOccJ4/PM2eLGR5oEI6 b83kPqbunxxvfRejccCCLG0OSlXfYRxZig11JndY1E6DodXbe1aOo//IsmS9 6gvrFG3icIbiBlEmEN6GNmUlhye0IgKAlwYcZB9OmMsvzO/lQx9MDafv4L9W leQfmT+4+eOWvk7DPk4WI2xwgsZ37lR44FbpvbzlVfvvIvjEhNKImr+y+67m bpsE5GfMbUAf/TwOkkr/XhdGPUMazQtlAGuNAsgzeWLQerPWQAvTtBn1Voat pgD5PtkzZl+ueF/u4ffjHrcFw0LNXW2CjF/YuPg9P6yPGtummvPWHpWCxwzC MgBdf4r+Agx7Ny4rpiotxq0QRxOr4NH16GCmlasOjTuoylzbE1GXXuItAMuh pPuCXx5oVe4oZzoRIV5NCW2hIIHoviiyoeY7TEOWLuG6kjtIad2yPS/dz0ge U6zTunZ5uO5dcnI2tOp/UAy1TZwJhO9zQTqb8XFmyD0/g+FGKDBBV3qobTuP s3jFocID98cWtlEq0olJXvrchtbfWh4XRLWD1c5bfxFem5e0OZ1s76BV1y8a sNZ4BlQ6ov7S7PNurehaiyxMmJRwQeSMB7pZgcD9gvnOxfjZo3q0buznU6tF WL+P1u3P5nS5shh36C/AYGaemFCn+ckiamIV/LGsH21x8RDjjtcir4h0Gy07 OBPqHnlVbCFWw3JHOZa0ZiN4TiKHAmUqP01MbUp+1HuH6cjTJVw/cofNNc73 zfkZpY6dryWZEHQOdm4uQl8PkSYQns+FufzIe8G8s0roizKxYFUf8516PReL /lzd2XpeJCiRWCkw4w630emRMc9aB5VIkZLNaEJHZRdCYFjKm1BozFEeez5s 2dV+TAtrjYdAH/yilNurhbxba4leGAZjSLe4i7zcJl1DS+hSWACUw7hDdwGG Q5WNND3LqDpHpENF0YJExh0klh2cJPmE2pY76PbLBDUfjzrLWkK8YQ9BlX8S haDeO0xHni7hupE7rK5x9hvuKKhKkO6lc/COcgJGshWRJhCezwVZR2NCEYm8 wi7ce41A1ZIvVb2rzZ6YeHjgJjotzFrU0sv6gIsVKVm6J5P0iL8mxjtqm5x9 i8KfIVyLjQ1ajl3zE6/TPaYmoOmMZVhrPISynz5/xv6rilVurwasWgfy6zbu YJZUBUG2jvPKL5dyGHfoK8Bg1rBUDJUB80WrYcGhVnACMO7gCrmDk0LE07rc wbBdItZlp30enUE1++P9RKsD1d5hGnJ1CdeJ3GF1jcPSaZzkYPdK1ku0IhtY xGI0dJlwVkBxljgTCN/nwrKDFlBETDcfIFHplo3ydjOil0ad0uBZCRUeuG2v hp0NiRYpUb+1PhsxKAFT7tDwQTmsNR4DZtKran2bGzatI2jIvJOVtw7JiJ89 Zt63VwSI5TSxSMHlksp1NKLn3jokzYOpqwDj9vEJz+Bah7SewPuHP6X8V5YO KY07ym07OCl6gWle7qB1xLbgjUbszXL/Z9Q5L3PGMN9JS0g68UA7kpxK7zAD ubqE60PuIF3jaO6ChdmLXqD/zBK0atI/tFRD1OazAzyLs8SaQPgad9xY1JP6 GjXrvDLpSxeRnlOYEr1qTyKyU0ZWtV6hJjeVuHGHu8CgZE+kzRCPHinlZ6Uk HcjkexpFnQb6oahz2kuPUSO0mUTaRU1SYK3xFGjnzmKW2ysJqXUY3RlOEscK Twh9SO+kjKT6FRprTNwoRXYAiTn73NcjewT5egUPns2wMC1OWWQ3m5XOtVs/ AYbV0QXDD007KtmBK7UH0X6Ro1OkNO4ot909vEezuO9sR4tyh0PSFLsDLCy/ N3DaDvzOEue/9cVvgiMdKr3DdGTrEq4HuQNzjaP+kampcm9aCpQThhuJQ4Kw ha/KpEO8jC9FmkB4G9rgJwgWDNWGLs3mMhwebWL0X1Dplo2yxJe04550UOGB +/oUKkT0D4zFnn6yHIZ/IQ82XDUpGakORnaHEXWZelGLbqWw1ngOdKlfpeI2 J6xaBwvDSYtpidCvTHsupKzwKi3Y+RbVJoB20l14d3UYuXk3Gv856oRkRfg6 CTDM5Wc+6VaNfh1CHAjZYPviYNzBB2Lg+aGFv4s/UPQgd9A7YhP4oGnH3ExD VFIf47SLOLStqs6wvzLUeYcZyNQlXAdyB801jvZfLB2aaEghgeoeRht31Ogf G25wDoLEmkB4G9o4DAbORwkO84YqDQlxP1gpi+CkAwsPTOj1T2+6uMNUOM0s 2yFkkKYCvj7VfVWrBUEqgyF3aLPcA9YaT+LvHVOqYj+odnsRWinJ3zs82FDN a/DaM/nuli3yWEF4hjzW1wahmr5L0qXZJ2TTThipX4rq8WpA9Z+PvSThI6mP AKPoyKKW9G8hVlc+F9i/uB4URQckNe6w1EBVk6jOTg9yB15Eb8WdcyAeVdIT FcjWS4N2aWkhUOMdZiBPl3ALWpc7mK5xGI7JgeHx152+CeAKW626Hd/es9I4 BQ5iTSACDG0c9yNcE84dVHpVyh1UaplWu2Fij62br5CfNNeW6mMyRXxNTbBE FnoVgX7aVKBeAy1MU9vPrEFOL8cKPjQpd8Ba41HQflOtp+uU5B+eFuZTu9HY befdHJ6V/p19JX3XqFYVa7Ub3yQWMCJhqSSj3JPjDdaP8Os+8SQ57xfk7o/s WcdEzDbGkFdjU+9K8tE29BBgPLg0t4U34xJoaWzSYN+RgXEHjaIHBxZMnf9j hiuJkKijlCpvSh9yBz3wIGMPlwY7mBMXrbCirHj/u8Ga69anxjvMQC7jjnKt yx2OrnEYjK+mvW+nGooORTej30lu+Y1iTSACngvaMRPXdceCGg5f3IKHTNJ1 r5YQRv6zi5IHetfv1jG/UP/JUooi0E8bTy0Oi7sk5K30j7m4qNjN00h/fDQo d8Ba41HQJiLJT52kxaJ1MCoU3EMvD+QHXnyKpDu+t5dg+NcesXRHUuIP8Yvm DW9XjzAOqVmr58yV5zjaaPBABwFG+hev081Sjaj71AvSJ6lZvjgYdzhwecur bh8Zsznjh29i91+QogBAJ3JHNsNcgqiYmHi48u0L1nwcT9EkE59kUP/ERY13 mI5sxh3lGpc7nLjGYTj80JI0p/YIHBI8uLlXiTSBCHkuzGmbXzPSvgFX21Un pbWcopGyoiLpBx91Iql54w5EhEABzeNuOotUs87MbPWksXGnDraKbXziOjO9 rWAR3lyetv6fth9ao3ky0lF05/KB9V/NHjWg24uN/bDHKrDVK0OmR205fctx 5FFlaOQvqzW5A9YaJZFl8qSBJQxo21WAn9ZRMdSD+x8S0IjNCsOg2HVxohBK C9J3x07q271VfSLLIvC5dt0GvDtn1Zazd2WqKdN8gHE1aaA38/PlacFp2YNo +RGrHCHGHWRmlIIZLzqROxyNxF3/ClRnQxSR9NB6nURfZhQ0enWm1gzH1HiH 6chm3FGuabnDqWschmNyIC3jHWBD4cMLP8TNGtY75P9oTdiJos72Q1NY3k2R JhCBz0Xuya3zhvUO7dip06u9P1izL5vjG6TN6US/A8YnPtzu9tqLbqWunz06 LMia6erXqM3geatO3ZEmBuPS04Qr+VdPblkQObjbiwH2oKhm3U4D31u4/cgd XlOU04wAx/AgaOQyRgeB3JPb3m/zpCGkS/yVksvzu5Evs/vfFqeu7+4lhgM/ pdFJabKnLcyl2Ue3zBvyrwDbZGCs27hL/4ixk2csjPly9sT3rMPD5BU86OPk TNogp59+ak3ugLVGCWSdPGngaidSQPA0l+RmZnAhPfOBs9vizHmSHSJJE1RC pgafeo5oOMAwlx+fzCjHM6KOo05KalFqg9yDgHEHDdKETdGMF53IHebynX2q c5vcbJnDfmHj4vf8sD5qbJtqKKj/DEbLJ02g0jtsR5Yu4XYYQ1ozbQgqd42j XkEzx0PqrD5QLwU5J1fPDq9vW0ZfCH/rH/UQnTYLU9jq8cInEBkNbZxAWEL5 ML6+2/L8nANfhVd8a9NjDcPemv7ZF7Os+0SDkdiqSxC0U0llYp6VmO9cXP9+ D0sRtHP82ry5kmNlNGmD4Fhug4cHz7YI8bMcsAZ2jYhavTkxKTlh7TLiHnqb QiKiUrItN5DsNUDkgQRPWpOQELegz9Mmv/DpqcLPJfFfXBrnc22Re3LbrNdf 8CWPvH2qhb43b8vJq46eh+YHNxL/806wN32QMx8fTRnAwlqjBHJPnnToUSKr jacgCh+m/bh5weRhPTs8H8A4ZGePqUqLCWtoxwfOzt3YIdJXZlwANGiuDGUD DGY3SQLpmvYyKPrj/IGkPan3dDddCjHuuLS5u9IZL4xmQ1qVO8rLj4x5lv4h 7nXXiqA3fvaoHq0b+/nUahHW76N1+7mqlypBDXdY8S7hduhyh2ZScF24xlE4 1s1pKMZWEHNp1v7YQU2sQkdg12FL9qdV7GtIW1HakG7QdsMttiNU6AQio6GN Exzjgdr1Yq+5uoic5OgOVZAxuEvMzzetX5Tq6sslN4Y1WLGPaIfLOYdX9nmK kdjjiAEFNJqTwrpDMXkf/NDsU/SHF89OqdMk7mZp9qnEr2dO6Nv1pYa+iAjq 2nZ5a4pDrURBzonvPo/o3r7iNcTZVtTai3niDA48IUGHLmrsyc9OnNm3gU3v qt5pUNw5N+pW7rG1A+tWQfZBTjvkRdKmtYsNrDXyI//kyUC2rFdCHlw4qRMz eZIvYhhuiAvDwxM6FjlH0QDj+qJe9M+uvIwUYA9v4w6bwK5kxovDkb125Q5H Zy3P0V2Vv8Mq6BJeyXV6GUfHaSBr26VrHAXmkGmdw3WdSykOBbkH5tq2Nr5+ /Zb/lGufcKnFlKJNzCl5FkU5DW0cefj9uMdp39voM2Kliw2wpZLXySEL7lQv ugHmw3Xv2t9chDQtszn9uw9aM0+cKsOA6jZZwq5hj0U3M1QbujSbsZbj2Sns Hb0kA7ebkH/IqYSi6z/PDa1nrUo3oY4fb7hS4P6vKshJiGyGUEjUgWJmaQDS kK4Oa438KDJ5MmAcV0midprLbuz6IryuSEIHOW1Knw/MFYaHp/DmtrpEyQDj 0fXoYMYgBLsqEeBt3FF86pt/GSSbdliSnzG3AT4iROjT5Ihim3GNWttxR/k7 rIIu4XZK9kRi06w2/IJcu8ZROGZyqu/sQ11YSwNQZef1Di1a5DvElNPQhokz p1ZmZgJOwe0VHZ9ENZ+YfYLp5npjUU/7+iF6RIFXggiPKrPixz3DnMIs1GwQ 0sCh6Z4FVh2KSdGsKpp2jHkDy3763P6Jaqiqw1YKjejAYmMx2LFFwibUaX5y LgfrPMsPHdRx2x2aEEeiFZMoWGvkRqHJk4ZDZYH4OQl5N3eO6+LrdBrlh+nx hp17f3mMdYqdXGi1XFpOFA0wzKeWv4iYSNUy2JPgY9xhLs0+8u1AQgJVuFUN fVRwbC3KGsU24x6TZqb8HVZBl3AKmnU2QjXQwjSlT1VdY3ON67nukpt107Ec UrYa/JyLq6e/N1YlzFmayiZNyJ3WQUAZy9jwQbNPS39OK6+hDQOHKh7UcPoO F5dwe+W/H6vkOBg76hK/uh9PGxY4mRcdXdaBakyA/F7oOmlR3KFfr+badabS v7PTTiet+nz4P+pRhvSVeznasdxMIwqf4WiDkP5ZmPV9uPSxkgzckMETrRho WkfFeI7cxUHrsECGTOHxWSnv0Us7pTkqEh9NrDX6QqnJkwZDvBL9p8w6PS+0 Hq2Ph39Qr8mfxe/9X+qVPwg/nMI/M8+fTvo2ZnR7/GUGVL9F3DWNTUN0qVM7 aV0yomyAcWFOKP3Dxfc590RYG3eY8+5eybiSduKnhLXLp/X9R0AV8vWKlkOW 5O8aSEvkDpi0SYqgW57NuOOnIJA7JP4U6g6roEs4hUOFQuC4dTmqXVGtRW1s G4Iz6kZlG+ROf30Fcf+tKa0DId8qQ7ZdrmwI/rV9MiNDz9Fwkh/qMbShUfRw 85u4R6vB0LJ30r3KLyEvfW7DKs5dTQqzFrW07x/FjtjxEN0XRf0m4K3JXZ4F Y7PQWZtc9l4pyUtd81H7qtaXo9DxqS7GGjnbVEFj9ucy/xO1YZTqKIEzlBTs cbUJDK2DVd6OI0RCrNG73/QptHx2jYTTGllrdIVSkycDhtWMuIXeRBNtf+rN fbzDIr+ptJVGQe7+D2ltZCXad0gHPRZSwndL5SgbYBTeW96O4Y1rRG9Eaa7h pupgGndwxVhj4kZ2ZaPiQ8/sNaDGodtuS/LQKr8Z1zuquMNKdwmnwei47YvG 7stS4DJYYHWNc53ph+HQ20umJD3z+e9f8xOxJlcQxmdDVrte9sqKj8+gYqpn p2y67+Ll90+Op3W2E8kVU02GNjh/7f64PvVlDSigQdQpZgYp7fUWOajhrL1O FIIL6ztTbyV2fQQeoguJz8tKDk9oRb5N0JB5J9lJr9Tu2NuZlGHDRWpH+Z2U kTaHCLUUDlOGDBrZoYvFg8vRL9l3ZILOlAkRwD8wsCptQkJdpl5UfTitlbVG Tyg2eTKgObGI+uzn3VrRtRb1zgHBkxIuuKnMLMnfOzyYSrVz52CpNugOBp6Y JucahQMMZ7tyjzWqEhFH4w6uKLN8mMtubP+kI7Uf5OhCzxF5NuOPNo1zvL0g d4iItu4wafIszwjnj00Gd53ph4NVMkr4W2sd0lTQ+tO7rVJnmo+J5PeiJkMb ivu/zWiGSYG+VQZvPO8qOi19tLlXrcoqwhj+5yIvZ/jeXECj3qIji1pa3iVo 5LIMLqcLNn+tyj3WXKR20I07pPYhZAvu1uUxVt7lJY/2j2mFD1Qh+VROizo1 UL8Pa438KDh5MqBV+IqX2UV7srhEWURXSgq1TI+sYPRoho5FdJQOMPBl1wob iwnAHUzjDoT6rknNcMKVtBOHkpKSt34TY+sjbKGm75J02RdJvE8B+bgGvRh1 VMKdoPLOEnoH7rBTcvZ92bUmlpDg69fvq32q6jVskcG5JVY5/NYidZPXE3dO jMfcCN16L1RQsCcSE65FigZVZWhDguU5kDcnNOaom0iNiJONqOvUNMcHh5Y1 aiAtHMVElMoLm2ea34D5nLQOkutL3/JxcRiasfONylI7cOMO9dgH4fVB8njU qID8pLlNqUFvQMG9kh/wfzenlt0qMGZxA6w1CqDg5EmDsUMXTe6gpYh7o35r XW5sccpKNvfws69DYjUZlwWpbqYeUEGAgXcfs/6hog6ZElKSdyHhu6VL/rtw 5geEo93wAWGhnTq91Orl6ETxd2WOxh3s7qrt5FF2VdBcdiPx64jnsSI7k1fw oI+TM6XdsSq2GfeYcA7ucGUUpf8U9foLvphFYUD4e/Gnb6lC88g9P4OlaxyG g3YNTll0zOXHJ9tVaCPqOOokm42IFIdfqjK0sXBv25QG1OTPqi3F3zumVK3k 8JrudG2sPuY7UUNWPKrk/4uUHV3cvOLPndYFs6Hgj0WtiVXe6bnSmeltK4bY oF3Oj5xs1gfu3D/khO5YqGaxWjTIaRYj5PMUIQ+ewzqoGmMWF8BaowTKTZ7M T5Nkh555cBhWBFp75Ko7XDRdrFRKWwkSIHdUihoCDIckBCNqOfSoDpuQOTZD tyJJqiGzRIh1CnRBZjRx2CCjcUdpQfreb6fT932BXYct2Z+WL/2hk0Kbcf1q eg7AHXYFYSry9Zh2eLcFQ6thMxQWPczl5+eGsXeNo/6MttQiKB1lQhy4U7DN ks1Lm1EbG9hiBTBqMrQpTl3fHTP9YtmCM2fHx8HNGq246GSXQ2z27Yh/wC2G 3GEuPzCiIRJWvPDw+3GPOzXfyE4ZWdWVnpa1bU7HWobA9r1U1EvR8+QO0vOf QnCmjWM4LfFeVTCw1iiEcpMnAwl26GXF+9+1+2/w0ZOxUiltKQYgdzhHJQGG g8GyCb3+6U1dzlrmktxMonok/czRL8Lr2W/U9OPi72wcjTsCZ+5hdVNteVxy GHeU5J34ZtbbLz5N7fVq1uk2akb88asyCB0k8mzGHQa5XjU9J8Addo+5NPvn XQvG9Wlut5gzPd4wPGLBnrOPlCi6Nqdtfs1ITE0R3//qrPytco6te4PxK4hi NKEXsCWSS4YwbRuoxwAGN89nHYq4Ijd1ah1sELYZevSROFdqA48q+VpBEiqW 4MN3QtYwoGa9kul2a5c/64bk76ojEFoOuQfIHY+uRwfjqR2Cz5HpN5B8miIS VZ3boaG1xnwpcfizzHYwMuPXpue2TImDY8knTwbi79AZnUbbLEzhOi6wogOt LbiXt7wq6s3UA6oJMBz2KR6Qk2Yu39mnunU0CnA5c4GjccegBHarHhlay2Pc gaeg+DzRdlRUSrbcEY4cm3HHHvHqMcOXHrjD7Cm7+cvivi/a1D+Flipmoy4h wGqLQeuxwuXUlVaZqLtbipvnixKKMN1OhBYIOAMP0fkeK1vsU9h7M1Z2IUSK SFV64R4RjGmhisEBPBrUvdxRtG8uw7ZOaKIvLQ0MaaCSRVNrjUranUv9XEg/ eTJgyB2Cs3RsWXMWeJYKYtnCWltwGW1utHXxUqCmAMOxfXbrmF+EXg07ck/t jN16WPh35wy1KknTFpmvcQcB0V9Prmq1krzjSyd1a0ANAGPdJoNmfZVwTr5M fjk247jhvI2OK34V+VPUCtxh95hLcs4diP1weMsnqcO+wM5vf7r1xAPZZyd6 oy6BaKSkSBYsdQc2OJ260tQ8bbSVZEvRnzsHNbVmHft6DV57RoS8vrLinX2p oxdprDjFkDtE4uG6dysuIjye8ry9t/adiuU/JOqAKlyAuOBBcgdtU2ZBeNVA 6qp29Pk3cNoONd9Eba01HpHdIcfkycChmYjAvNwbtEL+gEmbeGz39w9/yvYG WlMMILsDR2UBhqPcIVM/KSKTsIoigwE3OZGk5S5v445y8mGR0bijgsKHFxIY 9gVewQOnymNfIMdm3LHVsnrM8KUH7rArzKXZR7fOwo1rZBz8TrC5xnVb/Rsf FdYxzcZzGkq6hnHkVFk3DafQilk0mbbknJL8w9PCrAkvblvCsYcW7hrRG1GZ 4qtD9GIWJevmSE8wrC0F6V/qX3PJZS1MgDj0Yxqdyx2OmRiCE33vfzOENvf6 oahzKk6UhrVGhcgxeTIQuZiF9hTwkxCL7i9v40XdBC0V5IJ3B4b6AgxHuYNt 2YUwLJqDPI8zE6ouTG3GHba5Qg7jDgalBekJywY1xQaDyRQSIXl5iwybcYef o5LGRjoF7nBlmO9cXDO6ax2sert6h34rfr6p2IXzdI2j4Tif63zbwhLa7oZj Up/VPtqKJNbW8mM2X17cz7JdMaCA5h8lZ4g17P9Y1g8ffj3ir4n0xjjidGYR ByIhk3I8s3R7MfqMWKk9TcyDrEodjesFJ/oyjTuUCW7ZAmuNKpFl8mQg6g6d kQn53FuHeLxV9sGh2IOpqfMFkDtsqDLAwDr+WJEju8PWEFCWx5kOtSpJVVnJ 37ijIio/Ejto0MikLGUCavODzF3TetYxYWt2cJclv0hoHS/DZtzx59CYg5ww 4A47Jefwyj5PYUqHj3e3T7dlypdT5QSra5wfmn2K/1n1iUkhvCcfPUNLMeUo WdCqcXVxP83m9JXv1DdYFsGARnNSxJvhC+8tb4f7nEjkXYBvV5UOKYmzSG9r hklZceKQIFQFjdmfq9wF8cWD5A4ny6LQRF96Dj/yVvUYgLVGjcg0eTIQdYdO S/Tl2ZaI0eNYS2XRIHeQqDXAYCbgySN3kH7mivg4YcYdksiGQow71AA1UG3X L+5wpSP5Zpzpvs7TOkm7wB12JCc5ukMV7JJFTLTjjc01TqB3ItbBTcb5XPUw IihuYfnp5dQu0D8w9rr7v1A5tvFvMIa8Gpt6V8R3xgtFEd/CbVZQGpTyIeXe gTVRUNjuB+Se14hCx6dqUSrA5Q69FyY4dE5HEUkPhbwh/czRiMJnZKg2tQPW GlUi3+TJQDy7CcY6izsasefCnFDqLXzoLtBqx8EIRR4bRpWh2gDDfGwxlqhL wL7ygjdkmzZlvLwwOylJZEMhxh0qwWxO/2oIVp5gMD73aoI0CSdSb8Yd3deD 5yRK2sVcbajuDpfkXUj4bumS/y6c+cHYCoYPCAvt1OmlVi9HJ8qzRTD/vvNN vObYG/Vbq7TWYXWNM6Dmr+y+K+hBc/y55Si+yLm4evp7Y1XCnKWpDkdKtNvi hxb+zuGWkF6U1slcC1Varik6uqyD5djFGNIl/gq7Z66sMD0lKen4Rbd9mbFW v2J4P7oAlzuUPlAg0tuqE/rA9UW9kBZy25xDVOXYfjtPkzsEypikYQs28tWc 2qHttUa/yDd5MmA0ExEwndJOz31R1G/ct5K043vtyQX0DbXCNtqKoOoAA1/j LD+Q5KVSV5MGeit2BEw9j9LIhkKMO1SEQ4cyibQpaTfjZGoxPpOrPvFAdFR2 hx2Lpq3IFCkxLxjVHrnqjuLPp801ru9moakDDvK1HI3FVdIi0I5jHj52hZw9 CfGcba3H88XndwwM9OIWipSTPVspe4rKX5Y6lXJMlzhSVVMqArF39kNLzlv2 vAHN425qc4zgChKZrCIzMirhdLnDgIL7H3rE/93omr+h2tCl2YqvKZWh8bVG t8g5eTI/mmjJTSFgOqU1kOXl/Ws+u6o9di3S9+EVGXosJE3rTxWj9gDDccMi bOZ3Q0n+3uHBBiNfO2iBmMv3Dgq0fs1mvZL/FP8ThBh3qAqL5Ro2KqSpPJJ0 M158Yhk+c1bMPWHLf9H42SxnVHeHzSW5mRkVpJ85+kW4TVKTxjTYCdd29sYv WA0dZKyucQbft7+8ITT/2ZkFn9tFRDDm89+/5ueF1IHx2ZDVDgcqNLmDU7Iu 3mRZDaNFCFmnP2zqzTkUsQ4q93uZgj2RuNTfJuaU4xJfduKbDvVR1BnBDzvu iWdCE48oeQRIBPkG9P5/Pg/WqEkpCZXTrsihqqxKOF3uEHYIW3h3dZh94BtQ 3SZL0tg9XH9dXd2/ZTWf6qGzt7iVR/LSDsYtXfLtYWGOf9pfa/SKrJMnA7pp D9fsRxzsseI5h2CVLJo8naTH2x4mAGohwGC8iaTVUve2TakIHn17z2K5INAw l2afSvx65oS+XV9q6IuqN3qx58iPVv4Pm/9LiopcT7YOxh3mBzcOrv58TJ9X gmt7IZ9aLbr2nhSz/uQdvocJWjfuwGF0apNmQyrhZpwWhBDwHHUaR7132Fy+ s09162MiuAkgS+h3QxWFZlbXOP86C8+LMTrpvprEd+wy9aJqq8jlAvvduf3o WK2ouuvx3XL//Ny2/txDEQLy7rmZN8qKd/aljl4q68RKpMp4ibOU7B/+lP3T lD1TIHu9PduwoVZNSi1gh/UK7VtlVMKxCjUk8BD2r+2Ta2HvFBpzlOXsQpY+ scqluXlwaFXysRJUdANrjUqRffKk4dBTmLdNMSZ38JIQ758cX426DGXsDoTB qJLTejooB7QSYDDNBlHgtB1S7AuLU9d39+KifmMUpf8U9foLvoaKrxnUa/Jn 8buTEjfHTa/4F5/Hui1Mzi3OPzJ/cPPHK251562ZlT9juHHHsnM3Er4Ir+tl rNtkUOQX8QnEG057pUnFamAMaj2bX98cR+MO7dZ6U7tRK13jLov+IVJtxs3l F+b3wmbwig3187GXPE/sUPMdxrRH2VL+6IuRCrR3W9WYaCs7no1A/i5KGzmq AP59S6nDJjHSvxUj79bafk0NvEKRclvKopsYmNaZopIunMQjz7c7oeMHYk6J ynok2uZY0b6aIuCS4BMfbldy2yqDEo6FgoKyO+6dnRpEBc8cBH/qaMz9OThV gi3g5B3WGvUi++TJAJeOkQD1GJuTTaaIr7m2Zbm98t+P2ceSYG8ZRWC0OuVn 1qo9NBVgYMMMSZVERCa6+KIRuzO5/aHZnLHh4/aPWyb7Lv9OuIrdk5K8M5/1 9TGhwR9Nb83iUaVWDW9T196v1vFGbd9fmpqLfdNHdzcPaErUsdUMnH6EczsS R+MOTYt7jL7qUoSUEm3GySQiCr8qkw5J2E6XH+a8u1cy0jMfSCvCqPYO4x7L QpsAsoahvSvuq2O5jQZDq/4HxSqsYySmEsnVreOzRXpz7UKVJ3OJyfPS5zb0 si6vHUed1KjHMVlA6rh6sv1zy77M3T6L0eItLO6S42tI336xDlNK9kQ+bv00 hXVLe5Cv6eUel4+kONrggAxKOO2Mj2+aX1nJ4QmtqJm20T823GC9nlBHY17G 0XGu2sGWlWzu4Wf9CAGV5rDWqBb5J08GjLiId4iI7YC4S4hEv07bFXijwTs4 7hPVAWPTpO923lY0F2AU3F7R0R9/N4E9qphknZnZ6klOmX5WsL6oft3eS8lx uCFFD9e9hmkMLtyAKeMO8pVVBq05/sDhtTarHD7rAtO4w4TGHNCw2M3oq64N ucNcdmP7Jx3xiiI1tBllUEImI1kuz8cvdApdcxMV1d5hMgOcXNpkMu4Qb1kX h5uHRz0ljmscDmPBVdzIURXgmZCsT0ipNHXNRl8VU83haWHVKls92XBpc3e3 +fbUjsxC7Xqx1xw+y1x+YERDVBVNO+Zqb8cBymtCYQN866yisZ6JTKgTXhkn ZKfIo4ST/QEt8Nyn0zR/jgdk+NGYmyNgqpuAgD4CsNaoFkUmTzqMIl/+yV2U iMdRQqQph+jZKZvua9EEhuFm4AmPgzYDDEulCTbkfdHYfVl8Lt7xnc/vGR1C aB2d5ifnchzDN+JGWrQOA6rfIu6a8z/GvEdcGpDiZhQuhJeCzGhbCWuP+Gsc rtXRuEPjWrcMe0ORN+MleSeihzQwYm/nX2fEJpVpHeXl6V+87kP/1tL1B1Hp HcZPrKRxwXWKiuSOvFsrutaSIgGekZiquJGjSsBL7FmlmOZdi25FzueiOPsp gbWluMEY8sqaE+kZbjn/y8EkjJ0bYxdFT+zSxOg2dqWd81aSaJqx8w1x/U+o BV3hLHrLrKK9nok0iu4vb+OlkrhFJiXcbohhgVuwV16ekxzdoYrtj7kL/tTR mNt+nVjdTeuYXzhdpBVYa9SMIpMng9PLsTwdAaoadazAbRrJih9n722kYZM9 muGhB9R2aTnAwIcc8WMFPLXwnDAtkTgInt/V3wv5+vVb/hNXrcPWwJeYRXuu u1SpcpR9cKh9tnWR+oitGq53lzbJmmMipaNxx2uRV7QoUdqQYW9IBTYCF3Qi XX3b1NB6+Ebc2KzdwmOqq2FxqHi14Idmn5JEt1fpHXYwDZYHlcgd5gdXV/ez FM1JcDDNqB6tICLpoZgfoFEKLH1CyZmZxZp4felbFk2SY466mqAv6EJwV4hN T2t3UtNBHt6ZRHXyxE98hHgaCIYMGDRdyYIFUUrHLTIq4bZnHHGtVsvZ92XX mrbTQR7JjbhxR8uhR12u/FgJNh/xB9YataPI5MmA5jorSLktOhTdzPZGLCVE XDnknySgBmh7QP03KtJ2gIFVjljHfdCLUUd5bhiLbqWuiujoR8gmzT/i4fz5 4NLcFrYVwfVKhOkYLlIf8VVj4mFXC5tN7uCmzjEb3Gg9/pFhb1jyaHPvOvR7 5q6O1ZHCh2n7NswibWyxpyckIiolWySNWHhLIBymn7mUo0W1dxg3DV7xK883 4Y7ycoe5NOtAXMTz9spBV3lrfLD2AqMPrVl71ZbgpAhFRxa1tC0BrotTik99 8y9ytIuX5SgztNNnwbiZneje/o7JM/lJc5siQ7WhS9023OQEruX22XJbzLdm D7l11XglC9aWRem4RU4lvPDuZqsUQNBmbqL7I7nSwgurP2jtY5u9A4InJVzg PLtS2yJ335Eqwebu2gprjSZQaPKkQSV38RpptLeyOuKylBDxdSqg12QNax3l jCQZ5a3hJEUPAYbZnL7qvea0wnz/nv/ZlJHHYRCaH9xIXDip0/8Rj09A+Cg+ 7iV099TQFedcfDzVU8yl+m3Lu3P3LOM3ln3bL2u6IA3ex+gqQdy9ocWZ08Kl X1P2JSesXTa9N30HTVKj7pDF3ycdPeMiNSr97M/JiT/EfzV/esTAVrW8GG/g 1/LV+Ylp+SJNNOK0BMIpzFrUknnNopy8aOgOU9qjvNsEZeSOwj8zK36Rvdvj vpg3vB0tPYbE2OyfH8V+f+CX33j41hbl3LT+Xjs3Lfl4dIc6jkPLMofP+WZ3 8o8n0yy/7rU/xHo6NAal5xtQ3efmn7jr9FXF53cMDLTcRhXa/rCDWZoqGLdi gq2rppMXW+5nFSmSZPBNumKx5Z2UkUZBHpJqgJqQFTcck1kJJ2zl/O3fveNH ay9WHuvmXdj3GSb7V+80cEPaQx7bM9y4w813xF1b2RwWw1qjQRSZPBnQnPrc Fli55vbxCc9Yx0Zw5K5KJcSCnMP/sVVGmwxtJ8dlFPD/TDXwaNM4ToumdtFT gJF7bN3wJjQPIr+WPT5avetCrssZsvTvrNMHYiPJadCA6jR9Z+W+bH7BYu75 Gfb2Xk5tSTCOjHnW8jqXOgZVQeCuRAWvNajEaobaVxK1SMlbYxdY6o+YGBu0 HPuflVv3JCX9dCzNvpPUzvwv7t7Q0URCZEyPNwwfHvPDiTti7U/EawnEIOvb d59kXr0IAbNm7jB+YuXCbEcCFJA7Sv5a94q/09vpeH85Zz/+dX5GPe6rjidX WOOKR51GY789TBvMpQXp24nu5PzPbdUB00JQIGyy6LGOnJQ1urk0K2lp+FNe KKDRnBQJ6gqpzSDf5hqCsWR1KuyVKhR8QpbRSckp8ivh5ju/f/12S7uIYQ3b jpxJv3Itt6gkN7Nig39sS+yCSa9hZwf+9d5auD2T7+6MMu5w+x0pP14WWTew 1mgURSZPOuJu1S2GjZah6DQNuPDhhYSvx9jkOOL4bD/3/H/1QetVUdN3SbqW M1VcorMAw/wgM2GOrXmEHZ8nWr85dHr0V/EJScnk6TC53/8mZvb4YWFBtjvg H9RrxrKTd/iXEjz8fpztk42o69Q0F3eCpY6BrRpuvL6v7extfWFFPNwk7pbD C/hN+xi8u1rLjAbkDp9aLV5+bfCkyCUbfzh18y8xJxcRWwI5UpJ3fOmkbg0s z0vNgG4fb4x/L0S4r5Fm7rBDurL5wY2Dqz8f0+eV4NpexCd27T0pZr2QCaQy 1C13GAPHfsctl5Pqr8qF2mjhbxpOvBdO7omNE/5hjbWMdZv3e3fC7IX/jZo6 qm/Lp8l/DAgfs+13Pue2KkHUaKSSddABKivGx6/TO5ELP40c/HITP6O0HkrU oaS7YxEpL0DhTrhCoXp/GKuP+c5VDbXUKKWEEzrnor5N3D81xrpNB81bdUrI 2kQZd7jrR4CnLrPJuoG1RrMoMnnSwLZISIxkOfOdi2tGd7VmABE7x2GTPlkQ 82nk2Ld7h/yfdQPl90LXD77+gbdsqC5oBRcad652hy4DjKI/zu9cYNuXscDv hTAR9il400C3mjalTrh6JcuCl3JanmElB+78pn072pn/lTc6UA4xWwJVTtGD HDLVh7jVz+rdxtkOnq687NyNBOI83Vi3yaDIL+ITiFqhaa8QuVLGoNazeXj+ uMSThzRAo7QgY//mBZOHhYc8bU/M82v0Ur/xs789fFErCXhqo+hW6vqPh3d8 xhow+DV/ecR8YXtDd5T99LndLU2B5GGbcitdv1QZoO6hCUUk8j2LEcXhSjkl nMAyJ8TMsH4FiprPtH6199hPvozf93PmI8GSGmbc4dYMn0pdZrcjALSL/JMn DVqRtWh+xXm/p6z/z4f9Xn4+wO6QYHqsYfvXhkz/LP5/53K1sRNiByUaEzew xsSN+lBxVIUcz0hpQebJH+MXzZ34du+XX2zsh5dtVAzd1h17Dh0/J3bjkQu3 xIkS8WHjTtP+e8cUezMxF6bQ1KrhrjtS+mdh9s+Ws2eECvHYvaHILYFYsHdg Tf13rbKBmQabuvZ+tY43avv+0tRc7PY9urt5gMVBrmbg9CNiHm147JAGAH2i UI8nEvOp5S9aPlsrGZtOseVgG1Bwr2SXyQaVIZrDlXJKuGzgxh1uVDJqB6pY rRbgOWD2HcLcSj0S3EhK6ysCIBfm8rT1/7Q/dO7UCdsT6lL9pmyH3YmWdANY OXtGqBAP3RuK3RLIPUTrvRpuG9LpBCpd2YJvlUFrjj9weCTNZ1e1tzzXhlb9 D4qX0uyhQxoA9MuFOaEsowXRsfqnCXT2UxZKL+LVVkNUhysFlXDZoAr83fpa YKnL+u7yAKgBPFOOX9djTwZrE6bASgRoFEz9dqdps1S/qfIT4xMfbi918dl4 3+QaaGGaR68wnrk3FL0lkHsI/xmh+SGaAYuuK+K90Jijzp/agsxom1bOsns7 GzxzSAOAnrm0uTsSf65wj/VwxL0Dg5op2jf3Gd4Bj7gOV4oq4TKBG3e42xOV 7Im0m+fRZKL8rJSkAzpxPADUAx6bKd6QWlsQR5Z+9rjWw+sCAPZgjosmU8TX royzKPWbrmOYy24c2XX0lu2g4X7KSHYbHMwiVeI+11rAE/eGorcEYoPFJMpT FhcsJab2yFV3Kn/EbG5IYgpBnjikAUDflBUnDgkiwwAUPiPD1XmGqPxBFjNy b3KhHqhbxyfgEdnhSlElXCaoAzX39SlUHoh/YOx16t/JA0E5G7gDHgJWz+Ku SQSAQ7QjpwJLHbegBcQF17Rd7wHxKkjaALOsKV3jLlv/JyZ3jDlYuatJ6aPN vWzv54dmn/KE0gJXeODeUPyWQCwgM3jd+67rAixdGU087KJSyC53GER0NfHA IQ0Ausd24i/rwm0PPzSsVGfsfIO8bz5o2jFu9018hytFlXB5wEJWdyoZlQfC 7PJAyCBNZW3gDngIZUcXN7eHRx6f384emqgb1HGbJsvsAPkxl59b9RK7/Uja nE52dWLh79Syx1S/C7MXveBe7qBCJoSenbLpvsc/6B63N5SgJZB7iv5c3bka ahS22zOy3/YPf8q6KLhOicFddOhnW0LwuCENAJ4AlaWAAiZtkkc4th++u/BI VzmXP+tGfgXfN+dzy4qRwOFKWSVcHqiEDXcZ7/lJc205LPQkZ6KCu4rC/YIB vfLoenSwvT8LCou7pPQFaQFz+YERDe03TbYFCNADWGcWV/uR28cnPONlXfXo HWOJjKzn3jpkH3NYTWilkQmW1Wlo2TvpnqbODKTB4/aGErQEcgspsgVO2yFX vzFFYZ8SQ70SoRqGJRnifL7HDWkA8BDsiQr+NZdclv6swnr4ruUOodkpI8k1 jHtKjBQOV8oq4XJAJWwgQibqMvViZRLTzcOjnqJ2na1jfqH+04X1nZGAfsEA 4BLs0YZ6FnbcPzm+mu1Z5Z4mB3g0lFZWefPivFtr+zU12LemeFogoU8aGftH e5FCZecLOQmRzcilNqBB1ClIEyTwsL2hBC2B3FKSv2tgkEzxuRqwuJQgl0+i FSp5RswNhYcNaQDwGMzl5+dam8jLcb5mNWHQ7I4Au12B49blcFp/pHC4UloJ lwPcCZ8INZvH3XT2PbPOzGz1pLFxpw71nKxTZ6a35d0vGADcY1dBEdSzsOKv 7ZOp5hpymkcBusB8bn0XcvDgSRp2SK3Dt3HoS+R6QEv2I5zGTQ6nFdYF2nlw Uvzr5jd9yQWo0ZwUKLuy4ml7Q/FbArmDTFj1nOQ39id92G/BzN0SgqcNaQDw IOwVFtI7eGjeuMOaDGNAjUO33eb2DSRxuFJaCZcB3GuOJGjksgz6eV7uyW3v t3nSENIl/krJ5fnWUiP74V1x6vruXm7SaQBAIISkZoNPc2qPArd8NEHaFcAd s/ny4n4+yIlBd17qng9D6xkDmn+UfOWvQ9HNGFvOvOuLOz7p48xjPP9AdEvL G/aI+416fs2lWUlLwy15g8bgLkt+Aa2DwtP2huK3BHINkbBahUe0qV2okz53 yTPpn4XZfwsRu3p52pAGAI+i6MiilpZH27f3rDQp6wOtJgzuah5VCplVaJGd B+/I5Pa30jhcKa6EywBm3IGebRHiZ8lODuwaEbV6c2JScsLaZbOG/CvA2xQS EZWSbRm71hxmAwoInrQmISFuQZ+nTX7h01O185UBTWIvDCQeMUglcgVm+ejO xQgAKqMk70T0kAZGIqJoOzIqfrdtOfBCAeFjtv3+kFg6y4qPzwirZok6Ok79 evf2+JmvNLEI484CnYqt6PZPOnoj5FMt9L2KN0xK3Lxmdv92RLNkH++wyJXn cj1l18kST9sbit8SyAV5f6zuUQ9V4R5tapei+8vb2FJiXou84iJHEq/ORqjj il/FugRPG9IA4FmYyy/M70UelLhqFyIQ6wRl0KjF9L1tUxqQm24eluzSOFwp roRLDmXcYUlKuVmafSrx65kT+nZ9qaFvxVd5rGHbLm9Nidpy+hZN6ynIOfHd 5xHd21e8xq9Rm8FRay/mQZgKSIy5/HRkqD1MAsPSSjGXH5/cxj4Z9t2sISMh QHXkpR2KjRzVo3VjPyOq3ujFniM/WnkgLR9foM2lWYc2TB/wSnBtL2PdRuGj Pkq46upQp+hW6vq5E/q+/HyANzLWbdrp9f7TFscduvoQlhBHPGxvKEFLoMoo ebR/TCsiKWl+cq7nVEbmnhxvdduhp8Q4gtc4i1o9ip+vecCQBgDPo/Deup71 LBvnJkskyvCwbvk1td22Y7XBNBr/OeoE5/Ye0jhcqUAJlxyqIa+77wgAikM5 eEDSQuVQaTDg2gEAGoYhd9DswXWJ6C2BKuOv8zPqe5jWUcH9lJHsdAasNtxQ zVlhGm9sHQxB7gAA/ZJ1+sOmxEm6X/eJJ6Vo2EkaTZjQoF233b9YVdi1oEbt 49L5aEGSOFypQAmXmrKfPn/GduFa9XsBPAmqRQvkLTgFT+2Q3i0KAADpoMsd Xl7vb3CXtaBxJGgJBFBgcseYg5XfJNz6SdxFxFy+s091kDsAQPcUn98xMJDY azcYv05EvdQCmeFgMLTqf1BbPdzM5Wc+6VZNmCW7JA5XKlDCpYaqwfFGEw/D YTmgeggjRH/yWTO0H5oihW6saajUDl5VgQAAqIb73wzBtoYekYEpfksgwE5h 9qIX3MsdmPWT2ItIXtqM2rjagQYlaC8VHQAANlgbrpkkyKMrzD6wavGG05oy Njeb01e+U98gtP2cJA5XiivhUkPV4GjV7wXwQIpPffMv29lep/+eghYtFGXF iUOCrE9081d234V0LQDQMhfWd8Y3h/41l1zWvd4hfksgwIq5fO+gQHIoVWpb hy0ihpa9k+6JuYgUWX81G7XrxV6DRQoAdIs1x0MKxUNr5CTObSUsr8OCNA5X iivhUnMnZaSRvHBt+r0Anok1H8yyqa/fIu6ahh45aclPmtuUfKB90dh9WUpf DgAAwqD2niQG37e/vKF7Nx7RWwIBNuypyC0+P+r0BTkJkc3ItTWgQdQpUTPF C++uDquFD2Zt5UIDAMCDorQf32/9ZEVQOmafppIxRKXs9KoOCBmDuyz5RfBN kMLhSmklXGpw4w7ocwFoibxbK7rW8qD4nw0PLs1tQXZZQsGRuzxcSAcAnXBt /7DaXtQe0WOOyURvCQQQ5J6fEUQ0BUBdp6Y5ZEZak89FOIJ0oCT/8DSLPGXT OuCoAgA8hfysA3GLt/6mLaMNMTFfTYlduf5crhgSgTQOV0oq4dJDGXdoyl4V AAjsuwAT6hH3m6eXtJQVH5va0Zq2Fj499ZH7vwAAQBPkHVrU3oSdiptQaNTu bE+f8gCe5B+Ibum4bppLs5KWhhPtEUU6gsQpyN3/IV3rEF1OAQAA8AwkcbhS SgmXBVtHMCMKHZ8KpyKA1shJju5QBUnb3Vsj3Ns2pYEljDSGdN6aCdIlAOiK 3GNrB9bFcjwQCuo7LTnToyc9gCfmshvbP+nojZBPtdD3ouJ3JyVuXjO7fzu/ ilHl4x0WuVKcI0gbeRd+/PSVJkZs6IovpwAAAHgO0jhcKaCEy0XWtjkdaxkC 2/f68pgmrx8A7Nt8w0sDDuZoqZRMRMy/73zTh9Rdn1p4TjtWyQAAsMZ85+L6 93vUwdM8/Ov1m7fq1B0QPQDOFN1KXT93Qt+Xnw/wRsa6TTu93n/a4rhDVx+K uIgSHzGtTwN8xPr4hU5ZmiqqnAIAAOBxSOFwJa8SDgAAB6ytnYhIqs7QRRnO y9h0TdaZma38tZtjBgAAe/LSDsWM6FrHiy56zFiadPFukfu/BgDpKS3ITNn1 eQR9lPr4ho6PTsoQU04BAADwZKRwuJJBCQcAgA+Y4qGx1kjCsfoRgdYBAB5E 0R/nd34xrW/Lp/EagTp956eB5AEoy4NLi/5ZDx+Wge16ffDV5rN3IQcJAAAA AACAL3bFw4Q6LTyUr/TlyETRnzsHEd7LxqAXo46C1gEAHoa5JOe3w/GL5kV0 b9/Q12BoP+ok7CkBZbl3YnxNL2Pdxl0GvDsnduORy5B0BAAAAAAAIA45B5b3 aezv1FVYn9xIGoBQQPgoaL8IAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAIDS/D9P4Gez "], {{0, 111}, {1445, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{456.7416666666655, Automatic}, ImageSizeRaw->{1445, 111}, PlotRange->{{0, 1445}, {0, 111}}]], "Input",ExpressionUUID-> "66307241-bbf0-4b0b-8363-99bad3c71d6b"], " , 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}, 3.751405623845007*^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[{"Ab", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", "==", RowBox[{ RowBox[{"Closure", "[", RowBox[{"Ab", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", "-", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"I", " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], " ", "2", " ", "I", " ", RowBox[{"Cmetric", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"Fh", "[", 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"}], "}"}]}], "]"}]}]}], ")"}], "//", "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}, {3.751405509384153*^9, 3.751405581831459*^9}, {3.751405652846739*^9, 3.751405688132012*^9}}, CellLabel-> "In[157]:=",ExpressionUUID->"4447456d-4f2c-4863-80a6-20703d72957a"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.7514055873427553`*^9, 3.751405697192629*^9, 3.751566887147238*^9, 3.751727185658003*^9, 3.751730256928755*^9}, CellLabel-> "Out[157]=",ExpressionUUID->"ac4721c5-8a70-4be3-878e-c6d9af91be5c"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnQtYVFW7x9cMSIWQSR6FzBQzTaSLtz4V6DNFM9QsNTX181be0tTUtPAW Rn6Y5SVT01RKxRLvmAKm2KeYt1QsxRTURBO8gBkY9+HMnj0ze+09w+z7beb9 Pc85zzkGmz1r9l7rXf/1vv83eMTE3qOMCKEpD5r/V+/h01+aPHn4h30eMf8/ b0yYMnb0hJFvvzJh6sjRIye3G+Fl/scJ5v9ZVwMh4v+uAgAAAAAAAAAAALRO RXH2vk1ffZ1w/GaJmMuU/nl255ov4lNO362U6s4AAAAAAAAAAAAAAAA4U/rX zuEt/QwIIYOh7ZD0IoGXKTu7fUCQN7LQdvFx0DkAAAAAAAAAAAAAAFCYysOL miMbtQxLsoVdpWxHn3q2q3ihvp/mmSS+TwAAAAAAAAAAAAAAANdU/BhTx6pO GFHUjOwKQVcpv7cm3McucvRYfwFEDgAAAAAAAAAAAAAAlKbw+vphHerVDGg1 9MPUHOG+HIWHVvV+6hFj/adHrPypAOpVAAAAAAAAAAAAAAAAAIA7JX/lZGfl 3ReSOmQqvHXp0pWCMsnvCQAALUKYR4WFxWeJMtkGAAAAAO7A0gMAAADwxFR1 ZvULCA1PuSfgl+9vGoceEGpEAwCAvrhx9N0nvBEyGEM7JVyCaBMAAACQH1h6 AAAAAN5YVY72K34T8MvZn3RC/qByAO4AdPFmIffUzFYBdptt/y7vpOeDdxQA AAAgJ7D0AAAAAMLISxuCjLUmflfM9xdNVTt610JNeqYWynFbAKAc0MWbhcI/ 13RvYHHG9m4R0sRIRpvdJh7/W+0bAwAAANwVWHoAAAAAwRTnxDUzohdGnSjl +YuFmTPqGlGnqeeFNRUCAI0AXbxdU3h9Xd9mBsvYhM9LKbhfsO/9yJqWwQoe uSybtzwKAAAAAGzA0gMAAACI49ikUOSNJh4s4vVbxbuj6yDU+OP9sCME9A10 8XZBedH/JoUha5yZam3+VV50cJo12nxyyqY7kPsCAAAASAgsPQCgFqaKvMNb ZvXvGlLX21i/SdSoGRt/vcX7IsX5x75bPLEPeZFm4b0GfrzlGJSEA8pj0SsM NYcszeP++JXcWhNZB9XgrY0AgAaBLt7OsYeUvg90WZBKGxn7f8JDUAAAAAAQ CSw9AKAW5YXH4gY38kJtR8Ym7ErdNL0n8br5obF7c7lfozRz7/sRDYwBj/f9 8LOEpNQti9/r4AtZWIBK3P8jLsQb+aBB23M4/sbVVf+pg4woYnwG2F3LREVx 9r5NX32dcPwmDDGgBiZT1peD6xCrW41B35110i/aHG3O7FHPi4g2u8f/Bg2l tYsUkwnY8wIAoASw9ACAelyNH9nwIezVI8wbzRgMbYekczvWtjjdGf0jR6bk 2EIOU9X+EY3J1Kwua36DfGlAYW5/P74uMqDAJnPSb7L+cH5qXIcaiJcqIgGm 8vzfDiYsnDv29Y7BNQ2G9qOOu/Huv/SvncNb+hn4TSyACtw+Nr62N6r9WHi/ t2cv/Tbtwi2+9jYaxRxnrnqroaH6OJPXjwEqIsVkAva8AAAoASw9ADfy9y/v /VSALg5biTOCZR+P6d2tVcNHyGX04SYtX+zZb+LHS5NOXi7ivqD+SQgOQZFD t8jWT9mUmfiKEbVZkE6FsnfSR5I37Ytmnyxnv8SVfUPrejlaBBNNOQmM6JXo SxBDAApTei/x9QbIInTMPnCt+pWl8uq2j8IIDwOD35ufX1XEd9Q8P+z4bFqf lo8bEUW9PvMy3WQ/6YTKw4ua2z9qLejVq2HyT8946hHswURB7ft8sGrz6Vua X3ddYlUyuQSQ9mizdtD0Q+waKaAwEkwmYM8LAIAiwNIDsGP+6le/09yHWI4i Fh/W8lbAdPfS5g8HNn/QfKsPNG7fbdCosQTDBoQ98QgWNL42LzmTk9ZRciuR 8OPleiTNm8qy5MHBKGzUcfw05OTy52yL/8RDbINN7CWfQM+8nJTLjBJOT29j uYoBWnMC6nDt4KjHLKd1vn4R4+NSztNPpU3l+WfSFg8O87c8pUZnz7DkFGYe WDyye7AvtoesXa/rhLidZ667t3Rf8WNMHesHNqKoGdnQxUbLVBTnpO+cP7xz PW/sQSVfoux7utwOFmbFNPbmcUZmjTahhE2LSDCZgD0vAAAKAEsPwIpd3UIo JHqnlo1ZSjN/nND6UeQX0OOjtYev/U1bN81x44GE0c8G2BbWGi3GreBkWFF4 fUXnOkgmoePcho4IRcZfwP/tj4U9repEvabx11ku8Pe2yeabc5LnX1me2N3f GocI6OkJAFJQdnb36NAA+0YtqFXXQaPGTJz03jtjRuKpFP5tXt0oW7oUCaF/ TuxO1F3aCWjQd+7qEx5iUlF4ff2wDvVqBrQa+mFqjmd8ZP1DiHIjGFqHf8SU pRkF+tsUlmYfTDpefU6XI6bKq2mbDsCzqkGkmEzAnhcAAAWApQdwBSZx1Buy UNM+lrkn32/mYwzptOSX6rUIe69kcm/Vfx6nT2S5shxCByFoBLVOyMP+qeT2 8nY+VnXitdgc16ckxX8ubP2g88OUuxlTa1sFHa/hX/3t5JcBQAlMN8+vHU3f qeEosmsrOLJ+WFNaFUBwnw9+0OmxOOBhFGbsJpylsaeXZZkDAAAAAAAAXJKf HNPKkldgeKF/Wr6G9wSVZfveDkGBjy048w/LT944+u4T1I4rZE4yF+ussowN 3bwt+RVN2sdnSSTxEUmbDzEqUk0nlj9vuzdGjocDpqozq19AaMy+Aif/7cii ZrbrRCX8Ic0NA4BQCjMPrIwe1b31U/7kbo0oKHt5RMxSZhmLDFirMu14oYjY XXnuXaACKIzcXbyL8va8Z2l1Z0W2IkoAAAAAAAB3p/Twsg4GMqDioB6oiun0 6vYIhcbu57J3ubHqPw9QWeu1l1zkFIze3jqlkSW8lNBAIO/nzSkX7uH/cmxS qPXG6jZYeYXtr1T8k3f1T6cGIze+7GO9jh+K/Q3yQQFP5XLKAB9qcwj90AHJ UaiLd3nRwWl0oeOpiK03NHz0AAAAAAAAoEHszoFeKHL5Lxo/+Tw3J8Jyqw82 7vbmgn3ZLHd7LaU/tu9ps/gEp0ix/P6+Ma3IX/GPmp5xX4r7ZnDn+HhrFGs0 9v80V/BejDLlMKCQfgfkuFUA0D6kuy+2MVSsjQvgISjaxbvk1prIOtjzjAIn bQJjaQDwIEym7O/ndH4UdY6/qPatqEb57ugH/B8fBI4uAAAIg4qm9LAvqPhn faS9a4IBNWy98YbLny+9s7yNvWjFC7368TWOU+Xt01ODrb/Y5pP9grrEu4K0 EiXpvdn1Z3AJZsphHLQ4X7o7BAA9cWVHL3xP6I9mn9B0ThqgMxTv4l16IO5p /JHmkvIHAIB7YE3oMhhDO27J8eAd/p2zMW0f5dFEAAAAwI6p6ty8nlbVIKDe grOad5otyVv4HB75oTFpLPe8Z4DdipBftsPfuz5sSP6eHxq7N1fsneNQHeQN qD7dkpQnuClH2IpfpbtFANAT99a/jc0K0GwIkBRVungXZs6oS1vsROnhAADo BUri6JQgc0syHZB7amYron2bxIWBAAC4O2Unvn7J1oakzYJ0XWwLDo15ktfx Fk3l4BWIlhftHEDmwBsMrfql/SXyxjGu2utojA+P+VZMVxTKlMMXzT5ZLtkd AoCusB2pk3gbR8d7UCaHqSLv8JZZ/Uk/zCZRo2Zs/PWW2vfkVqjTxdtUtaP3 w7jK0X7Fb5L+AcDtKLl37of42aP6dwp5HO/UE/RMux5Dxs9evHpL2s/Zd13u msVPJnLb87o9NokD1W+6JFMnEsffl9f0a1nT9+GI2Zvz2L7rwsy0+KVLvjnI Vm+OQ6TSeYPQIQTzG31y34ZPZ4zo3a1VQ6z9XO0nWnd8ZfC0mDV7jt3UuE8B AAij+MaKsABbkkPP1Ltq3w9Hck/OJXvtBdQbseksy9tJq3Axok5Tz/MpyTGd 2WDfO3Fs0cKFO18Ptl7UCw1PFlFlgptyPN0zVUIdBnBGaamQbUxZaYmHJ5or MG4MlcN7wkaRkp+p8NalbKnIynG9sxBDeeGxuMGNvFDbkbEJu1I3Te9J+P1I nn4mNboZ3io1u3hjEr32VA5TeUGOFN/e9Tu6OF7RPoWntk74F60NsXNceJqJ nkwUsud1Y0ymi4v6+lqGfcQuB1lVq/yxsKc1EA2O3OV6K3EtbchDlp8NCFrJ pyWg/Uz2ySmb7oBoxoWK4qztXwynzwnG+s06tHs20Ic2JRgbtRy7bEf23zoJ VGHpAbhB9R+R3DlNfopuZOfd53DLtKRfY62J3/FbaU1VRye3sf62VJX+JbeX t/Oxqi7PvHEAyy0x3cxMSuFz6gGmHLJRdO3coc3rPp85ZWBUx9aNaHsNQgN/ udfYjz7b+NOZAra99NX4kQ2NaOIhT5lNXY2bb50Wnc3j9vnGQ+eddguiMJmy Vr3VsAaafpTrGQNd5UCNP94vckIr2z6FdbvAG8vpyaBJ0Us2pWbmS7MxJx6w h2oM+s6m9+alDSH+ksHQdki65HZC0qGX4VW3izfVh8uCVlSOivvb32jEvpvm SdAz7bq8MXT6om9STl9mmR8AB6x7wIAGfWcs25J25PzZX9J2b18TO61H00ec Dbbz6l2Rk4mS9rymstIyfcWs3LA1+JPFDk4uyu+tCbfFtGwpbdQZnz9a8Du/ rzD3m7cfRfrokqA6pX8cievWlJilCVVz0OxV36X/ehHfNJXmX8/4MfHTcb2b P2T9QowhnRb/fE3TAwtLD8CdvPSRD9nXO/0kcvDEdGL58/ZH2cd5pMpC9o7X bIGBNO6s5zZ0tL9c07bjsTihhzdkU8IxtGDK4WbBRtGVU0nLPx7esak/t5nU v2W32ZurFaYKDyxs72XefPktyXKjMXKGedx2Lpo56EWu4xbU/rV5yZnVLSj5 qXEdahhQvabx17neAEPlEL8flGUbjuMb0GrQpFX7qx0ELpgyE18x0osN76SP tF5f0yVsuhheK+p18Zb8qZYGmqe3LAS1f332pkOQR80VIt3IBzV8duUFB3Gv OP/YN7FRjzO+Lye7UbGTicz2vKa7V9M2LJs1tFf401gxjtcDjdt26jtq6ry1 W49f08tRdLWQXwGSr7WfTFCtDNlqRUX2BCwv2jMshEjoqP3I7GOQu1wtFr3R UuDz+pSEk9ddz6OlWT/N7dLU+k75YSKnBoGlB+DMxU+62L/WiBVn9L46OMdU deidENunNKKwUccFiON4h0phOgkdaydcYiVDsWewyIHI8XgI9f00j/OXoYop h3sGG0Qx8ua5g18KZMygvnWeieo38aO4lRt3pvx0JDM7O/vCr+l7U7d8vXj2 qAGt6lh/OrjfjMP5zA9turDnzXrexIMXPv6Mu6ZykEXcff8VWMPpuM2P35Zc 7bh5eYcMmn0glxmW2xZofuMm+X6QKqmw3HnSui9n9Wvn77go1qo/eNF3+385 5yIvMuv0z6nJPyR8OW/6cOqZoVbVyLfWnGCJQ5xDTk2Mae3kcqs9s5emM4h0 MLysyN/FW6MqB3EOeA0f/A2xY9vUZH51jQfO3ZJmefddcSnz2IGUHd+viHm/ T8vHGRJpYNSopMs68SVQleLd0XVcBnKmu5c2T+/dyMs2sl6ox/oLtB8WOZnI as9blLvv80nh/8e2u/H1D397Buuejh+F13ZGD2v5qDfyqhHyn5gTktek0f7W H4vIEvLaD8ae1pOtVMWPMfaOgSwpbeLTj3PShhJTjcHQslfKbf1FmgpgjaD8 agxce5RrZnhxwb73I61TuLaFDlh69IeSs6idyykDrGVZ5qUncpe7ljpQaRjE WdvEnwQKFFhCiNF5dTZ38NS+zlMzsanEdHp1e4QG7uTsoq+8KYdawYas7wi5 T3/1OT8D9hG8vFq8PnbJrsOujdpMd68mLyAHxMELnWh/RpreoKCZu90wCc7p uFkO0FfuPpzjsprM9Hdu+ppZnR91Nm42N3W+46bEfrD8fmKvevRnnb/Nacm9 zL0bHcbNJ3LmuvOFPGM2S1ZYZPwF/N+o+mg+mTCaQGvDy4r8BYOaVTkcoVuI CEoQrSjJTJhjmRaw6wQ2mZN+U5Y7diMIJYFDXWTh7+kbPo0e++6Uz3efZuYm iZtM5LPnLTu7e3SobUVo13PS/FVbUv+XcZHYoSRv/vaT94aF1aMHJL7+Ee+v zJTkZS/9a8fAZvhEEjo/Xa59tanq1EddyO1aaOx+ze4xnWITsjiktGWsbmcb zNaLfxH256x1K2DQ4ZS7F2Ja+AhRKkpur+/RwPrd6CpVBpYeTaPkLIqBJ3Iw iibcB+JwoYH9Y4oqcqScNESnc9hTQBFqMf8w9e+VZfveDuH3emIxNq8MEGGo FmzI+Y6UXs9YPboz7cZ9/SLGx6Vk3+P+J0qz/vd+mwBiw24/ySq5ldiXuueB Se4mIzobN+8uU79I5TNuVbkn57/c1IgLHYXX1wkdN2X2g1T2lA2BoZqpIu9Q wuhnA/BL+Xf6D6/jA2IPEkTvQ417/rwWmyO+vE5ZNDW87H9E/oJB3agczERi 4V6s9lxrGwbU5F8br8JmxhVknD885Z7gK4iaTGSz57WULlpe3tavfv6j8+oz 4qzh48GMWv2Hw/ttEd2AtfLwoua0q0pgal0dNmtNHdaP4yd3LYccdqlKU6Yc PjxMt5iQ9VlI1Nmle2KqOhlN5IoL7JiJHX8b2g9JV+bMXSSw9GgbJWdRCsqR w6Fowo2w671ICn/v2+vesskc4rYPmBvqmDRqFS49tLAlQn0SefjX4TE2TTCR ARWDDbneEZMp+3u6eOvlHTJwxi5e+3Q7tgwEv16zMovKjs6w5f7p8UjdNU7G zSt02NzUS4LGrfDPNd0JKZIoQ/676H+TwpDQcVNmP+joJiHqDxVe2zGukx+2 qhpDX16Zwa1vIxFbMgvccBsixrGsLtDQ8HJAgYJB3agcVGG+FTFerHYDRvsX V3PIUtb2lJ4MqXIIt1wWNZnIZc9r76kRPHxBRgHLJ7OHKNjLTs8S5I/jdNRm 8QlZTpNKbq2JtNR86LARAPbus6W0mar2DAwivx3UMHzrHeF/syglxvJcCa1D d1fI9HWvBxq37tDlzdGrTvBORcBPwMO/OKGDnCJYerSNcrMoBtVaxaFowm2w r49IqhZmf5Jm4xbENFuxW45jJy8WCREFj17DSzyhYmwxqjgH1A02ZHlHHLY/ KDDkvW0OSby8IGVwL9ShV69ge/mze5lymO5e2vBWGG6eYAxuPXuPOIPHG0ff fYLQTFp37oqVK/AeN12qHFW21o2UNsjjfcn7eXPKBdrpLdWSo26DlVd0FixX aWx4WVCkYFAvKgdemE8g0ou19K81HX3x6yFfNO2InpwKFMaicohKAxA1mchh z3v79NRgi30i5/jNSewRMeyQg18Wd+gnLDIaQZD1PrpM5KC/+ywpbdQZnxd6 9eNrYsIGezqHG/sK8ocy/SMfp+CwrXx1jis7etl/XQ9PIyw9GkexWZQCmxyQ IqKKClw7OOox0t7Q0HZyvDRd2ivLdvShNmGBkzYJs9HCb88/clzCbqt5jlP7 Spf3g8XY4lRxFtQONiR/R2wFJhSBPSZQne9EgOmHFG5jyuE4bv5dxqU5eIcK wBbjiRo3vaocVYRv/MFpkZiBlnkn3nFLDv+n5s7x8darGI39P83V4WOn6eFl oEgXb72oHFRhvuXxY01cZ4XKbHe7iVQOrOPvxS8d1BWSTCaC7Xkryw++24pY 7l/on8Y9cjBVnZvXk75FQY2nbxceqpUXHZo3qPmDFr+poR+mShEkOEHnG3bq 3WdNabu4+WX79yK61TslDTXvuuuW7oZNBoqyYxrRn/5ahiXZPC9S8c/6SOod 0n5GKCw9WkeZWRSD1lm1FlqQ6Xbfnt290O/RHov3Fkj3+e59P+5B68CJtWw1 3TyfMHtU99ZP+fvWaRHZ94P1+/L45mIoY8qhhWBD0neEWXnnVaPFuBXS6GBm 7v8RF8K0ZnUPU46CI+sG1Jdt3OjSq7Bx07HKUcU0EUKCOgniYlHvzZxNjLWE loeXgTJdvPWhclCF+dbZQXBltB18eC0YUaep5/XmM6MY99a/bRklg6FVvzQp 0oqkmUyEKoGkE7sQ14WCszOC6UuwmMxbRaB26wJO3lWHevfN9x+5y+XRv+0p JYLWMfuFi09WCrNiGlu/a2X8DLUOZvpn/UYE7VMy54RTs67G3b08bempLNs/ rnVNo0/orJ26ME1RBSoL0b1y6a0UXl/RuQ5ZgDAp6ZzEVRz0+i919xHKmHK4 WbDBTDLxQuHzUiXUwcz8uawvbZVxC1MOBcYNkxAFjpu+VY4qLAPNRsicZB4F x1SymQHVp7sI6gftDq8DynTx1ofKIWlltBXs2Nf6VAvuQ+oJYMMlQYcOiSYT gUqgqerQOyGCc0joS7AZ48NjvtXujgDLkBeVIawWmCkH63HboTFPWh8qieIi m4mEPmorZAcz/SO/kIjFhwXs8LBVWPMRrKctPSV5C5+zfLXdoi+7XYaCNNDf AvE5Y9rC2qDBYAztEn9ekBeia2ipXDJmKXNBCVMO9wo2HOpo5GlDRlU1IvcQ EhWQOAhw3xtB46Z7lYNumExQ+8HY05yFwav25V7bUb1LtDu8DJTq4q0LlUPi ymgCq6ElhpZCTQ2Ct4ET82CTSDSZCFQCyWIZLzQ8WVCERVtKkMZVX6ogV06x VD7wd5/luK0kd2FLUmeWLi6ytD8m6Z5wRYor6pv8vQujniCMiI2NWo5d+5Og OI0592o5G9njlh5QOdio/Gn+E/avTpKcMe1g60EplVeAU2zt49VeOin934ie eeOATF+jGwUbDi2ikH//eZIVXOBQSzmB3gv6yn5NfN2P9i1K4+XrCL0aVMC4 uYHK4VC5Y3TenNEZVDGp4BdWA2h2eJko1cVbFyqH5JXRVYxYhbzsC6NO6Fwx lhUsODEaOr17WkRBljSTiVAl0LJzEVEUTF9KSDS6U6O86PX6eFPvvheaeMjl B8AOgCSLi6jv2m07KSgOc5uv5dNwj1t6QOVgAzPg1bS+zRubxBE8eO7x6puA ZCfMHjP3m0si9HLG8y/r0mnKO/PVyO7Bft4hg2YzjEnL0hfazVXks6tyn2DD 1sXD/vDLavO7b9hjWg+uOMJM8udpz8ITPF4SIMC6g8pB61htwQeN2JPL/mvU SS5T9jTdzExKOXZXJwuiRofXAcW6eOtA5ZChMroKTwOQ9LLuDC2NELX5ZL/A giypJhOhphxXF/agPkbtel0nfe4iqHMKfe9DoNHjhrz0kQ9Z71DLe8lqwU05 2DYU5buj7UWptLioKDc9ZX+O0KMTaqLwR7Fn9JcMo0VoM4m8Mr4oPHDpAZXD NbRTZiN6JfqSe4wSKXEY2ewQiZOFR8S+sDfTR1JNCY21Jn4nx7E2QUXxjjco u7zO8Rep/2RvrY6Mxn+POibb6+cmwYbVqgXDH007LFuKObUx0XxJo2scx018 IrRL7AZ6wgRY91A5HDKguB1RYYm7QdO246lsxAlvQxZTOO2g0eF1QLEu3jpQ ORwqoyXwYnVs56e2EZYOqCxLHhxMjZd/jUkHBHlZSjSZCLbnxY8JLBhqDlma xyduuL9pHP0KGt2pUW5UMk8jckG9++xFKFQ0GBC0EvNOIIsOhFfrYI+rLpUi zcHI5dCS9yYDD1x6QOVwDV3q16i4zRerxMHBK8DiSSL2U9PEQ2nyo5yTR4vG qbeMal9iQA2fXXlBxqY87hBsmKpOfdSlJv0mRLoOsmL71Ho25XA2bm0WpMv6 aWw7XIECrJuoHPSO1QQc2rVTSXqM8yziWPYhbUb4TtHm8DpcRKku3npQOZiV 0VLYC1hdrynENjXzEBhd11GTf228ynsmlWoyEWzPu2fAI4jx7fM8L3CYRjS5 KcAtXuX09pEP7N33Qq9+fM3FCFORMzP/n1A/mon4+FT7VC1VFugYhsqhJVcK Op649IDK4ZJ/tk95CPvyNCRPCaa8aM+wEENN70HrThWxfePkyQItKUIQWJMa hGr7LcmSZ/9QcHy8wRZrdJt4nEzYKC7YF92jnhfx6hlDX16ZcUuWP23DDYKN 0kMLW9I/glSN9lxg/9T6FRIdxs2IwkYdl1UbwtYsYScybqJyOGnXzmYAiAeQ 9MwEcskeuFM3U70Wh9cRpUw5qvSgctAT9qTYr5UX7RwQjOiEf3FCh0fdilN6 b/0rdDe+XrMyeZ2ESDWZiLDndQg8EKplWJLN4wrM7Y82NwVUXpnKVvaCwd59 lo9QlBJjS+yh5/8TGeY1RNplUzF5LbQgU2tfsw45ufw5fErXqsrhiUsPqBwu oT0SEljRqk150cFpkb51m4zdepblIaz4J+9S1s5RrczrNos/EgcYQbJcYpH9 MD2g7oil21OSf0hYOHdYuwZEuUztOj1mrjrDs3hEALoPNu5eiGnhw/j7fRJF 95liw75T06sph+O4+aAx+3i2EuaPddyEuiK7jcpBjzEQ+2nCnfSRth+leURU lu17O0RfLfa0OLwOKGbKUaV9lcOhMlr8fg3bEJGI9dL0KEoPxD1Nf4P45S5K NZmIUAJpB0nkG8qzhlH14xUu4NGRBJn2ysNIbHZR10A3+Gq9+BfqP1nqTUTa ZeM5w5HxF8Rcyv0xlZWWsbyN9NdHqyqHZy49oHK4gPZIyJ5nKzsWiYORUc8O vR5QGHiIi2Q9r68oztq1clKfbq0aEmpD0DPtuvR/e87qzadvyVilgqP3YCPr s1fp9XVG1G3qOfkHz/KpdWzK4WTcBLei4IN13IS6IruPypHH8I4gVKaJB6vf qWD9wcekUc83mZCjgKwnIVocXgcUM+Wo0r7KIXll9JV9Q+vSHI9Rk/bxWQot ee6AQzoHPx8qiSYTMUqgKTPxFSPtE/B1UnVSKssr8KgsLZXfxpI6dtS9KYfl PQ1sHn/N2fY599TMVo8anwrvYPOZwyexU9PbitbhTVWZG/5t+6J1mhUjH6U3 L+7f8OXsUf27PP+UP/ZaBbXqOnh67OaT1x2fPLr9plZVDs9cenSkcigyi9LA KiD07RhQJVTiMD+0If0OiNflGP7DrqsR9YzKwYbId+RyygAf5h9XpsOmZWOi 21fMcdwUSeSoso+bUFdk91E5rAsZDVdVPFQ7QjQ85Z71PonWySh49JocbfqG VYMWh5eBMl28bWhc5ZC4MprYEAVglzNvnZrMSRdkoemBlNw790P8rKG9Qv+P 1jOdqNNsPySdY0mARJOJSCWw4PiWuUN7RYSFh7/c6721e/N4XiBzTjh9BIyP vL+N9d5Lr2dsmD06MtiawurfpM2guatP3JRnm8OnOwlfii4f3/xp9KAuzwfa l/La9cMHvLNg26GbgtQUp+f/Dpm6TrrMFxzfOqHNo4bQTgmXyi/O60L+mN3S tixjQzdvKboEUtKcnF55+sJUkXd489zBLwXaJgNj/ac69Rs+dvKMBYs/nz3x Hevj4eUdMvDD1BzaQ04/39SoyuGhS4/mVQ5FZ1EauNqJVBA8TeUFOdl8yMq5 W82wOPNF5IZEigSViqndGUAqlA82pHlHTFVHJzPauyjhLEFCbkx0acrhdNwU SeSoso2bYJt091E5TFU7ej/Mb+6ypQT7R45L2P3DhtixbWqi4H4zDsvW9lcm NDK8qnfxtsN4qrXWREDCyujSP47MbE2LM42hXeLP39PU59UoxfnH18yOamhb NJ+LeuNfDRAdHt7R4icTBe15neCshX1UAksWSv7+L6PMn9rrgcaRb0z/5LNZ 1u2h+SE079BlCNGpjDIpD0RMN89vmNDdYt3mHP82r6/i6edmOrOhk7ODcvzd f7JFqL/lFDWo8/DYNYnJKalJ65YRY+jjFTo8Nj3PMoBkpwBi/xgyaW1SUvyn vR/38o+aniH+5BH/xv3Rgt89fc4oOL511qvP+ZHn2r41I96Zu/n4ZUfrQtPd q8n/fSvEh/6QM18fjXq6eujSo22VQ+lZlA49euSkbIui5F7mj4mfTh7ao8Oz gYyjYe541Wjx7lrm8YGzkzhuSPSpGTfA06rCg+AfbEj2jjD7RRIosCUhKf3z 7P6U3Rm3tTcHseJs3LonXFHmjxPjlro3867Ab4nREkjHKkdV1aExT9L/CLua ao5vE2aP6t76KX/fOi0i+36wfh9fTVILaGJ4NdDF2w5d5fD2nrBR4SRQVzhU Rgv0YjVV5KYsjcIq95GXd+jozzLk957SPeah27dyYFOrvhHUeeiSfZnm7YyT TgGN2m68znU8xU4mCtrzOsFxFavbYOUVVzeRnxrXoQYyhnRa/PM16wel2vLy yYThDFbRQ3fjFEH+wVW9H2Ok8TjC85CaHAd/NPsEPUMCz0Wp1zT+WkXeieSv Zr7bp/MLjf0QEcK17fTGFIeCiOL8Y9/OH96tvflniAOs2HXnC6V5OPD0A736 oUlCUV7yzD6NbDLXw+ED48+wiFoFR9YNqF8D2R9y2jEu0mi+uscuPRpWOZSf RRkolvhKyIMLJoUzcyaFIoWThuQwbDnx8lWAgmewIeE78sfCnvQ/XH3RKIDh ZNw01UXLBQ4H9LpWORjTNYFnqKmaGF4NdPGu5la9jaPjNZSO7VAZLcCLtTDz wOLBYf7YRfxbv/r5gWwdSnSKU1ywP8a2o/Hz77v8pwJ73EstnRRtFp9QZglU 0p7XkXvfj3uQ9rmNviNWuVjELJW5Tk5ScJ95yT0t761/235xCRK0TKasb99r zTxTqg4Dqt90CbfWOxa5zFBzyNI8xpYKz0URWmQqIbiVhPKPnEYo/ePnmIgG 1ipzLxT24cZLxey/ZSY/KfpphEJj95cx0/6R5qR1Eo9derSqcqgyizJgnF7J onaaKq/u/CyqvkT6BoEShc8CYNhyiu9O65bwCjakfEfu/xEXwngIwZOKA07G jX+TTbUoyo5phH/hEnRTcopq23CdOtTxRBPDq4Eu3nbKd0djs6i23H6YldF8 HtHSO1eObV87axBVNo6IVIRhnwq1DvA4rPn/qLrTeYdmK8plnitpz8vEmfkq Mw8Bp/jGirBHUe1HZh9j5rtfXdjDvpxIHj/g+fbiA8jchHFPMGc0C7UbhTZy 6JRngVOLYVIrewhNO8IcwMqf5tv/ohbK6LCFQ2NSsFJYzHNsk6kXCp+XWsDD btfyRQeHbb1J099ItGYGVeXJS482VQ6VZlEaDrUD0qcfFF7bMa6Tn9P5VBhe Dzbu2OvzI9qzf9F8rbQm4BVsSPqOmE4sfx4xkavhrxuBxy22IVfIr1U89C9d xhQU1bbhnpEzponh1UAXbwqa2TVCtdCCTK0EN/TKaPMMX2/Q3CWumB8zaezY scPobv/mhf7FXpMWxqdduKWOfpN/fs30d8ZqhDlLM7jIymwSBwFlk2tDpEEf R5S152XgUKqDGk/f7uIWbqz6zwPVNNvFDrOk31Pg+cAiJ/bSw8s6UJ0FkP9z nc1v04FfLxfYt2wV/+RlnkxZPX/YvxpQdvJe7B1zLIPp3Jgr65NI63V4NqiS B1PVmdUvyPZlaR+axGF+nqN38pA4LJARVFRCbvo79HJO2Q6MxOAmS48ANKly qDWL0mBYSUjuz5N7cm5EA1o7joDgnpM/Sdjzv4xLfxKmNyV/5Zw9mfLN4tHt 8R8zoIYt4q9o5qviDF3t1GRCl9rwCjakfUfOzYmg/2XpPczdEifjppd+0+VF OwfQ0rMDJ22SKbhWZhvu+FcQqBxy/hXm8KrdxZvCofQgaNz6fC2smczKaIGQ Yzt76bdqhZpOHwYVYX/NKYkDIb8ag7derC6Y+3vbZEYXDLHNFm1ox56XRum9 xNdx21WDoWWvlNvV30JhVkzjGs4dS0pyF7a0bxuljs/xgNwPxf4m4tK3T08N tt6n8emIWZtcnkeXF2as/aD9Q9YfRxHjM1w8a+TMU8NZhzXq2FQzNa2UGuzm HQEcYUgcnLJ0HCGyYY0+fadPoSWqazJ4dpelRwgaVDnUmkUZMPxkpC3xZrTg 8fWJjP662qYYxQX73qc1gZVvPyIf9LhIDX8tjcMr2JD2HSm5vbwdYwI0otdi 9dVPUwVoQ20dcL2U+dDzdQ3oqYitN+R6IbWyDXdTYHidwGju7IfG7s1V+56c VEaztrGgKPkrJ+v343u3r4we3aEeNe3YzTOVxHT2+1f8JSyzFYXxydA1rhe5 yrKjM6gI6skpm+64+PE7x8fT2tFJZHSpJXtenL93fdiQ+rAGFNgo9oSrvguk CtR41h4nwsC5DR2pS0ldBIEH5GKi8cryg++2Ii8TPHjucW45ZtSm2GWPeBeJ HFU300fa3B+0EiTcSR9p/941uDGXj7sX416w779EHRwT+UUBQUEP0SYk1Gnq ea0Fz+6y9AhBeyqHarMoA2oGkHoSKLy+onMd6sqBIZOSzrHUNpUX7RkWQmXY sdlfaxB6UZiGnjeNwCvYkPgdcZgAkQe7UfHA2bhJdfAnI6bKq9s+CqP2gLJ3 OVdmG35/0ziHb0PD23DpgOF1CunMrNhDzgVmZbTQI2nT3Zyd03rgvS+D+0xL zdHud6EupE+g9TFo3nXXLZbYie4hJpGvi5bseSnu/DbjaUwN9Ksx6LuzrmLR ivuJPetUVwLGMOKWuOIV35KLSJgsPbSwJfnKjFyWzc1nkqTsxNcvESF49VZp LhI56MWtcjsKcgU35vIMp26C8vv7xrTCH1Qx2VNOCzk1WI/v0UuP1lQOFWdR BrTaXukSumivGJ/Q60JiN+yza2We5ApeA4g0205aNXgFG1K/I07NJcbs1126 kNIwFw6kB7tLvMUA+SoGPx97WN7dnyaMI9wXGN7qyN/7eefaWMqBn3/fL/eq 2CyYXhltRC2HHBZ8TmMyZX05GJt/DMbQLmvO35Pydt2Dm8fGYwaDrL4KZop3 R+MDK03spyV7XitYVgM5OBGLD7MEZURUbESdp2Y6vkS0jFAD6cooJZKUV9is z/z7z+MlcZD8sfQNXxcnntk7XqsukQM35dCOTRBeBKSM/4wGKEqJaUY99AYU 0jP1rvCrOTXl1oDpChOPXnq0pnKoOIvSYOzKJVM5aIniPqjvOpfKOU5leWJ3 ewMfydqFK4Vc4+kO8A02pH5H8IZi1l+s1zT+uvAPpF3KC88lfbt0yRcLZr43 1mKsFBkRHv5CqxfjkgXs1pyMm5bTPk2VV5O/Gv4sVijn5R0y8EMFdHjVtuGe EbnB8LqgNOun2Fef88OcBgOj3kk4eV0FqYNZGS16EWda65ijzY5bcrQQxmkG U9XRyfbw3ojCRh3nsv+Q44RLU/a8Fm5vndKIehg5NZj4Z/uUh6o5qqZ7WUve aAwPIIV/I5WHFzU3/7rTUl8uFP+5sDXxCjs9PDo1va35ERu40/m5ks06lc3Z Q0no3oMal6yloeDsjGBaqV3o/HQxL57DsqgZ0xUcD196NKZyqDeLMv+aLLvy nLShWMln3ZGrb/IZ88w54dR6rbNcCFA5qoVvsCH5O8L0Xhap9GoXx7bmVoRl GDoZNy31rMQoztrzzXT6Xk/JmkqVtuHuK9bRgeFlgbBF/WpMO7xXgqHV0BlK ax1iKqOrwcGw2uD35udXtVYSriLE8ToF1wzYwswZdbHnXKpYRTv2vOZJI2ND N8y+i2MPzfztH4Y83WTFeSfaJrHHtyP9cbYUKoepav+IxkhchcK978c96NRY Iy995EOuZLTcrXPC6hiC2vfUUA9Ez1M5SNN+CtF5NY5BoMw7U0F4+NKjMZVD vVmUgQy78sqyfW/bvTWE6MlYh1DdqQSgcjhHQLAh+TuCN2iz3serH1/TwGwg PabygpxsM1mnDn8W1cA+UMLKTBzHTasZVo9T+7va9bqMmpFw9LKSnlHKbMMd vg53FeuYwPBywlSR9/POT8f1bm53ivN6sHHU8E93n76vyCm6VJXR9Isy+91r M19aLbAFkU/2L233546xCu5+z1nicEVBxtR62MzQZsjh+9LcqQ08gBTq7kiI V6KP2gk1w4Ce7plKd027+EkXpHx/HJHQ8sM9QOW4/0dcCJ7IIfqwmD6A5Ns0 PFlrmRw6X3rEdy0fPSysrmUmb9h6sDJdy4Uh+yzKQPpdOUP7arMgne/rhWXI 63Dlvbj5ZUnH0x2QNtgQ+o447F88oM+vqWpH74etj6JQKzOHcUNBM3eLXDyK f4wLQa4IeqZ9uJWI1o2wG/BF049UN6OQP/BI21Gx6XlqnBsqsA13XHO1Y2Uv MzC8vKi89suiPs/bdD/lViIpK6MxsLMP65VrTfyOv+WAO0LrlsLnjJWW4O12 sQrufi+JxMF0MhFbBeAMPCAXeiZrsUZpPH27qC+TTAh5iF6sR4RemixVYAOP Ydxe5SjdG8MwoBNrE0pL+kIaLVfR+dKjv67lQpF/FmXAUDlE57rYkuUsCCwM xHKGdbjyMnrW6O7+JUfqYEPwO+K4W2+9+BdRt8KZghM7Vm45KD7K4g21PAlv auw4buJ3lw5eH5zxM8dd1WWkUPdprN904Kwvk84omquvxDYct4u3oYN+N1IA w8sJU3n+mf0r3x/W8lGsF17HNz/ecuyuAvOP5JXRNhy+fd1Vs8qFpbjAPt58 zlhpmp4m+0IKpvSvHQObWTOK/bwHrTslQVJfZdmOPtT5ijzumlKoHBJxb/3b iJ7zf3vdW+Z3OzR2v7adx53gQSoHbQtmQXzuQcbqdvTJN2jads0Nos6XHp11 LReMErMoA4eeICLlr6u0wqjASZsEbPH3DXvMdgEdqgSQy4EjebAh4h2RY7fO CSKBsIYqTwJuYCK4Z64s41byl6WkxsLZX9JSUlJ+2Bb/2ccDnwtADgS/NmnJ xp0pKcnpZ7Kyr9+pfnm5dy6J4UvgHTJgqmK+BEpswx27+mrHyl5mYHhZMFXk Hd4yC/elUfb5J5ChMprEoUOWx6+tJIxzJV6+0LSKFb3mLDmhvOjgtEhregtr 01ju0IJbI3otNkd6UYhesaJmrRzp7mV85P1t1k9JWpIG1F5yUSfzoR36/tfN VQ7HvAsR/YhJ7nw9mDb1+qPYM9pLgoalR2O+HM5RYhZlIHHFCu11ECYhlt5Z 3sabGgSN+hxWB/hyYMgRbIh4Rxx36wOTlAjrLFKDMq8zEyplQkTvV8dxG54i Vzsth6615kjvjQN/sf8idonirKRlA5th9+zlFTpciRoWBbbhTsbHaRMidwSG 1wWmm+fXju5cDzsLerhD3xU/X1P43mWpjLbg8O179tpqh7ap4ZmwV5wThzWb FJvWrhFMpouL+vqST0hg8w9Ss6V6Bf5c1hd//ronXJHowjjS9FiRhrsZU2tT 3mWWvi1G3xGr9CeFeZD7qKPzvPAkXitMUw51QllWYOnRhcqhyCzKQNJdOSMB 8pk3Dgi4VF7aEOwN1dv5AqgcNuQJNsS8I1jvHitK5HLYevwp8jrToZYnUXWU DvbaMo4bmSWLIyz2Nt3N2TmtRz0vbG0O6bTkF3ld3xXYhjt+FzozghMBDG91 5B9c1fsxTODw9eny8dYcNUwrZKqMrnLaz9pj11YcWu4oz9mSVl2rkOYvLyZT 1qq3Ghosj0dgkznp0k34jOb1cvkS4LtUtZ9w4sDRx/oKV5YlDw5GNdCYfQXq 3ZBQPEjlcLJKCk7itULPz0c+Gn0GYOnRgcqh0CzKQNJdOS1lSGCnIUZ2kM5q okHlIJEp2BD3jjDz7pRROUivclXMmjBTDjFqoZLjdmjMk7S/JCIFBXsIbQ+M tHGvA7Jvw5ne6QKNj3SKFoe3vPBc0rdLl3yxYOZ7hDP5sP6REeHhL7R6MS5Z sUg6PzWuQw3sriVM0eeLbJXRTorN3bhDFh8Y8RI/peLkcmrzFxC0Upr8bjWx vQsGY+jLKzNuSXhlevN6gbXYnKCkJ/Wjxz0DaqPgyF13ya2uEUWMz9CjQoCr HLUMS7LVvh85ceiELjbzln6waERRM7K1l8gBSw+B5lUO5WZRBtL5SDAWXGFV UefmRFCX8KU7POsAB58Tj3RIkynYEPmOmI4swvJzCcT3CmGF7LymjmEX5hkl Ri1UbtxKche2pG8zRZaUmkxZXw7G8hgNxmdeTsqVSxaQexvu6J0eMifZc7pp am94HdODrSiW/G/6fcfreE8YH9R3nUoSR5WMldH0vlpW2iw+Ifsgi+/uJyHO uvvRXgp/tOB3HkOCJc7ppjLLBaWHl3WwHKwYQzslXOK2G68syUpPSTl6nrXJ srDm9ULAVY56TeOvy/V3uECcjz9MyAJ/LOyJdJLY5gSi9Mb23amicigohjNV DpHqJWnGgj352kzkcMOlRwCaVzmUm0UZMHqCiJhXaWe+wqqiaIf1upQI6FtC 7T5v8iFfsCH2HcEXO8u3I3s91OWUAT6qHbhT76NItdDSmU6JcbuyoxdtMRFd Umqm9F7i6w3wi8qnOMm7DSdzhvG52pMSOaq0Obym8gKLi27WqcOfRdkeMzEJ SKLuGdUdufqmesuNfJXRf2+bTPdLUcgVVvvd/bA75K0JH5sUar+y3k05ys5u HxDkzS/qqCKXNg4ns4zm9bLGpVpKPCC2zP5oyVnLVjewefw1fT4juHBEpqYo iqJiOF3lMKCQfgfuC78aXfk31ByyNE+T2xn3W3qEoHGVQ8lZlPmn6VsYEfMq rQOsoENY0+nV7bF7kb+RrvTQ4yIptmm6QsZgQ/w74riREbcEsFBetGdYiMGI uqz5TYVHwFS1Z2CQ9WM+3TOVl4EnA0ZfG/EXrIZ/tk95iL6eiC0ptWCxTcNu XrbqIVm34WXHluFzo3lqiVz+i85PX/mh6eE1Ve3o/bCYtU8IDFVQ7ehLrspo xnmiZZCVibe1392PpnLwSsTFmyar/eSIJffk+818eEcd1u2nt/eEja7PABjN 652e5FYe+7pDQxR7SvSUjLvbeaGJh9Q85yNCegOa8N/5ITr1HSWh8tVVOjlV UAynqxziNrwlt9ZE2h98A6rfdEkmt5fr78tr+rWs6ftwxOzNrLN0YWZa/NIl 3xwUZdznfkuPELStcig6izKgO/PwTXrEwd4vgZMJVq6i15NKeijOvoC6FXIG G5K8I4yLyFoSdXvrFHMU6ddrFseVgYapIu9E8lcz3+3T+YXGfujhJs/3GPnB qv9hC0F5aanreczBlMN092ramvljencNqeuNfOu06Nxr0uINx29yujmmoO2L ph2RvsWdlKYcOIzearIdtcu4DafFGwQCnys9o+nhxV43xZRt+oCo3Y9Mtsro 3G/efpTxxQfUW3DWw57+asCeAX4PAFb+qdVae47cORvTNoB/1EFAjh7LNMIQ +atppUokxnhLs7LsG/aY/a+pawlL+i4+2bixXn1HLWD51Wo7KsgvhtP920Ut RrSozwtFLD7McXYh65s4Zc5cSxtCnmyJqayBpYdEyyqH4rMoDVpjFALBFsSY yiFonO8cH1+Tug11rAxEwyiL03siKA9kDTakekeYBoMoaNp2OeassowN3bz5 qN8YpVk/xb76nJ/B/DGDe07+JGFXSnJi/HTzv/g+0GVBakFZ0aF5g5o/aB7n jltyqn/HcFOOZWeuJn0WVd/bWL/pwOjPEpKIC07r2tRoDnCDW8/m0v6m4OyM YNq4SW8cJEOfdytUaGGlc/xFKa7LRK5tuKnq3LyevrSReXblBa0utbKh5eHF LYMkSUDiAn2tUVtRl6cymmk8gvjF2+6O8Maj1ImSF+qTqFvj0cLr6/o2MwiK OqpsR8AsES+X5vXE4iW0q6DjH1zYQ+IpTii2KVeyj6YKuBL4yPvb1NTzFBDD scBP1Ib39umpWMjHQ/anNAf2w26qqlrE8TosPVa0rHIoPosywKVjJEI9xiZn IWLajVX/ecC+XjfvuuuWLuUBRrtSyTxwNI7cwYZ07wj2mCG5UobInBY/NGJX Dr9fNJmyN37Y/kHLrN/pP0mXsQEpLzz1SR9fLzTog+mtObyq1PLh49W518v1 fFDbCUszCrBPev9WYv9mRLFa7aDph9g7jzDHrWGL+CtSzqQO3o9Sun/sGfAI fmmZQkeZtuFkUhCFf41JB+RtiSsAU+GtS9lZOXdl1F60PLxUsznFTDkcFHUF vJRdIEtldO6pma0CGF968Mhl2Wo0ydUoVMUxH5WjMCumMbmFMaKwUcd1amFM 1oQ6rpVcf92yHWPbXjFajEXGX3D8GdJ4X6oTk/Ld0Q9a/5rK0qU9pNf1aR2u Gsl0wMERJcRw2kGe0AS/yvKD77ayXcQ8sfxr41XOkzmlOXgbR8e7SvmtLE/s 7m/9EyKKx2HpsaJhlUP5WZQBI1gSHDpiDxv/cSYabtruwAcN2s5ze6gZGPsp 9+7NbUX+YEPKd6T4xoow2vTVePp2KbVDYnp8VIjqi3U+9e/yTnq+w2iU3lv/ Cjadu5jMKVMO8idrDFx79K7Dz9pscAyGVv3SWH02HEoUg8atz5dqLnXwUUSS dpHGffbETHGukX4bbqq8uu2jMHzUVewTWh3lZHKR5fZ8/SOm0MU06dDu8OLR moI9o6VauCVB8spoU96vi3o2o9keVzcxejJ4liPn81AqF12/sVZ50cFpkTXF PBIXEruxJtVTr7aFug1WXnH4W2SvyYekq+KkfCRU3rBYZxj99TqkQR3jKihB O0UZMZzs62ddj+q3TsjjfQWa8s/tFMwOrjmwHPJS7QBEHWnB0mNFsyqHKrMo HUZ5r/CcLkrE4ykh0pRD9OSUTXc09R1xh1EgprZFthIoEGxI/Y5YykmwR94P jd2bK+TOHa98dvfoUELiCJ+XWsDzGb4aP9IicbhKk8B8RVxagOLVHy70luKc OFvBaveEK6x3WHbi65cMtHHjnaxSDflJ0U/T1xRpIytl9oMSb8PLC4/FDW5k xC4XUG/EJo1JHFVVWZ+9ysjrlKnTh3aH18EDRxk0pHLQmqMh8ZXRpZk/Tmjt cJTWb8ZhjceZaoCXz3PKHS28EteK/LIMfm9+flWPjhzWFuEGY2jXtceyslk5 +0taCsaO71YujJvYqamRNVKl2dZVk0SaveM1ab1NqPmEp6Os1FhmGF32OqQo vbO8jbd1MAVt+SVDMTHcbnZhgUtoh5OfGtehhu2X+cv+lObAmlOBFde0XvwL r5ukgKXHjmZVDlVmUQYnl2P+oyLiNOpYgd98kpswzp6srm9XPZq3gMorlBIo E2zI8I7gjxzxTQU+tuCMSP238uq2eZ0DvJGff9/lP/GVOGztd4kpqsf6C9XO p3lpQ2zvqau6Tmz5cL3ltKUeca0StUkx9nFrMiddbPUEbVW1X1nSNi7K7Aep kxobgtfuguNbp0Y0wLfgxqfbLTiiuUIVWqcGO/5o9gnpBXntDi/ugSNdAhIr GlI5mD2gRZRqFucfXPROm5r0y3mhsA83XtJytrCKUFl2nFbAP5a+4UvOsbwS 0bUEffkWA9ueiG7O76Rwgzyh85LUnBM/1hHjVyAaMjzQdbkKFjIZ0SvRl1R8 3hUUw23vOOJbkpa/9/POtW1HgAIyG3FTDracCqyqWkRmCyw9dvShcig1izKg 2kkjkcpt6YE4+5ksRwkR3+PoICnINTQbHLX9nOVHoWBDjncEKw+xPvfBz8ce FrjNKb2esXp4mD+x62/+ARczTwZ3L8S0sC0NrpckbD/loq4TXz4mHnS1wtlU Ds6KnKNVY2DIpKRzApcozIckeNS3a0c0tj8P0oYBSuwHy+8n9sL77SL2ulRH Su5l7t04i/SexV6O0OGx6XkSib/i2/fg0NYOly+pSDQ8vNTrpmxqt1ZUDlPV 2ZhI2jcjaBxKb15MW/1J72a0kk9ECFBhsftE9Rl0e0oPLWxJDhZbBQqVjydd BqPCOFPFhcMyU9HN+R03UEUpMc1kaC6JK7q9N9+Q8tLcIXesOi9XwRqsqC3X KCmGl9xK7EvVXLSJSWY/d6soObfmvdbWh11oXEftgNhCOKqqWoTPPCw9OJpV OVSaRWlQOV3iHjniUvcSXyf7QXOSEPEFK7DnZH1LHFWMrBiV7eDkRrlgQ6Z3 xGTKWv1Oc1pVfkCP/27KLuTxEJruXk1eMCn8/4jXJzBqlBBbErqxZ8SKMy7+ PNUmzKX6bStEZXuX8YHl3snLQSAyT6ttJ3zBsSmtncLMA5/1bUnsN21qOe7N Ja1tr+T7QYvZpoULv6bvTU1at2x6L/remaRW/cGLvk85fMpFnlPW6Z9Tk39I +HLe9OEDWtXxZlzAv+XL85IziySaR6Rp34NTkruwJfOexa+zehpePFqTNAGJ FXVUjpK/cqwj+/vxtJTkzd9+PKxzPca4+qC+n29LP8Oa3Xcp42AqkdE3f+7Y Hv8KdFxNAuoPXrIj+2+dRwUKQM3JBlT/mXnHbjn9qbKz2wcEWb4qDdr7cINZ bSoaVg3B1hbTyQ9bxrOGHCkx+N5ctTDyZvpIoyhbSC1ASdBeaMx+NVOrlRbD cf9Mc4j1wbrz1Ue2hef2foKJ/w+HD9iYeU/AtIubcrAoOXi7GY7HwbD0uEaz KodKsygDmjufSIvaG0fffcL65IVE76xWQizOP/hfW1m0l6Ht5HhNu9dy4/6m cbwWUP2icLAh3ztScGT9sKY0Cde/ZfcP1uw8V+Byz17xT+7J/SujR3cgJlkD qtfsrVV784RFjXiTVqeWIxiHxjxp+TmX8gVVRMBWh4KXG/DykDFV5O5b2fsx /AkwD0LTQbErD1y4xZIIRpynJ8wd/FKg5beNwS9M33Haus20e5BK4pKNIfl+ 0NEjQmK8HmwcNWzxD8duSrUVka59DwMnPeXFWaZX6Wt4HfKQTXevpq2ZP6Z3 15C63si3TovOvSYt3sBXA+SCCipHxf3EnnWcDajEBLXvY56EdRZkqgsudNRr Mvabg7Rnu6I4axvRTFxs9p3aMNzdxcIlVR5rqUl5m5tXwJSlUeYVUIqaTSdQ s4rQNhmisZiAaXHHxANcglbQF5rlTpQSw003f//qzZZ27cLYqOXY/67acuhU 1qUrBaXlBTnZWaePbF756aRXsBOEgAZvLNiWI3QvRplysCo5lMUutxwbWHpY 0bDKoc4sSkfa7bnFg9GiIjpNBi65dy7pqzHtrGXRxGmajpKCXEIz+63ttyRL h28KN5QONuR8R0x3c5Lm2JpE2PF9pPXrQ6bHfZmQlJJKHhYTpiKpW75ePHv8 0Mhg28cPCO45Y5mYLcy978fZ/rIRdZ6a6WIYOMoX2PLB0q2MKmkkNIr46/zu 3HT30uYPBzLHzfwFteo6eNpHK77bmfLj/zIuUsL70vlzx77eMdhe9hjQoO/c 1ScYQ3dl39C6PuJdshnoQ+Uw74hffGXQpOgl3/1w4pqkq6yE7XscKS88unRS l0aWN6J2YJcPv0t4J1SkJZGehhfPQ1525moSsZc01m86MPoz89SRnBg/rWtT I6HmtZ4toJbNJSqoHKX5a16SdOa3U/uJ1h0t387G7ekX2ZRSoBoKjn337r+s kZWxfvO+b787e8EXsVNH9Wn5OPmPgVFjtv4u5JRWI0gaeHBd9agcGF//8Lei F3wcPejFpv5Geb2SqJNHtrMPOW9A5Va2YqG6eBgfHvOtQFNKSWo81RLDCXlz YZ+m7G+NsX6zgY7xGC8oUw621kV4WjLHHBtYeljRssqh0ixKA9sZISly5Ew3 z68dbcsmIjaMQyd99Onij6PHvtkr9P+s21X/5zq/99UPgmVDzUErrNC5MTUb ygcbcr8jpX+e3fGpbbPGAf/nIiVYlfA+gKyaNuaz5OInOVa1VNHSC4Ufvpde P534yUTu42YmqF3P975MPH3L+dCVZh/akHL6vqRhnVYcDFRCyvY91VN6N5/M ySFG+0l3N162gXngeHXu9XI9H9R2Ar2X7v1bif0tJdI8W/Kx4uFPNeCciuLs fYmfTh4aFfq43V/Xv8kLfcfP/ubgealq3zyN0usZGz4cFvaEdZnzb/7iiHni toRsVP403256pkJWsG1XznJQom2oMfRCw5OFZHJIVuOpnhhOYJkTFs+wCjUU 5g3+y73GfvR5wt6fc8SHXJgpB6ubPZWWzP98DXCOtlWOKjVmURq08mrJvIgL f0/f8N/3+774bKDd/cDrgcbtXxk8/ZOE/50p0LFG7AxKNybGsNbE79xGv9EI SrwjFcU5x39MWBgz8c1eLz7/lD/ehsH86LYO6zFk/JyV3x06d12acBF/Ztg0 7X+2T7H3Bxuecq+6H6OWD7Y+R1mf2I2bRLt9uhg3hIKeaf9iz34TP5ofv22v xFkK3PDk/aDE7Xs4sGdAbfdvL0VC5SFb8KsxcO3Ruw4zg+n06vaWV9LQql+a 3joHAQCgAir1pyaxe2RxL13UILbkagMK6ZnqMrXACZLWeKoohisGbsrBIo5R +03VCrLcEM2rHKqDWXOIMyD1VHDDKL2vDoAimKoyN/zb/tKxiRK2N9Sl+k05 CbNplXRPVyU7YCqP5+4HpW7fww7RBrGW5DVHGgVvHe6FIhYfdh6vFefE2dYG jq3HuOC5TzUAeADn5kRwjA0kx+qEJrVBlqJgk3PjWXv4JUhIW+OpqhiuGFTB vheaeMilcoGlJbt3jwZFAZWDDTxBTlT/Yk8Fa/6lwqoE6BFM/WbTtDmq3wXH x1uNpIyPvL+twsXfxrse10ILMt15WvTY/aDk7XvYIdxjxGaD6AZMGqo7cvXN 6t8hW4mflCPjsU81AHgEFxK72d5uCdVRdqwnIOzuClqmdG/ME0LDG4lrPFUV wxUCN+Vg2/6U746227nRjoOLctNT9ruPiYHCgMrBCv4mqt5aWncQJ5j+9olM +QxDQI9gLoteXsO/cuWORanfdPnCVHn10M7D123plHfSR3Lb9WCupzI3qtYA HroflLx9DxcsFk8esnxgecho4kFXfdNtKodBwloeD32qAcBDsDcdQ0YUNSPb 1aGFpPxJVi9ybvGpQaih4x3eSF/jqaoYrhDUqRl7EQqV9REQtPIP6t/JUz8l 2uy6JdZEbj2/tvKDFa2wtXsAGBC9xamA0417yAISgmvarjeGeM0j7emyLC6d 4y9a/19M5RiTVr1jCd6Wyx/NPuHm1QWeuR+Uvn0PB8iNPyfXdP2zb9hjnKQh vDqMHteJwTOfagDwHGxVDIou0/ZgQ8didfaO18hx80XTjvAZNxlqPNUVw5UB C1DZdtlU1gezRwOhfjRTqM2uW1JwYsdXS5dt+fWW2jeiXSoPL2puj5ncPYld WmjZa8FhW3XpHgQojKnqzOoXuG1SMueE20WJBb9ToQdT/bYmrbGoHFTshNCT UzbdcfcX3RP3gzK072Gn9K81HWuiJpG7PCGVjbs0RP2keWE1LMmW5u974lMN AB4FlZOAAidtUmbjaz9qd2FyrnEuftKF/Ah+r8/jlQMjR42numK4MlDpGWyp 7EUpMba6HHoCM1GUXUN4w18A4ML9P+JC7J1WUGT8BbVvSCeYqvaPaGwfN8UW I0D3YD1WXG1Sbhx99wlv60JJb/lK5F8988YB+wOH+VxVG6JgyZyGlr1Sbuv1 uIY7nrgflKF9DyukehY0bbtSvcFUBWu/zuLXSolIUjbO88SnGgA8DXtaQkDt JRflP5CwHrXrucVnXvpIcj3jmwAjR42n2mK4ElDpGYjI0Og09Xx1ytK1g6Me o/aYrRf/Qv2ncxs6IoENfwGAO5iSCUUrnLlzfHxN23vLN0EO8GQofaz61sOF 19f1bWaw71fxbEBCljQyNpX2OoXqdl75SdFPk6tzYKPYEx6RHeh5+0EZ2vew Ul60c0CwQqG4BuB+lodl8zJVSjF43lMNAJ6HqepsjLXnuxInaFaDBd3G/9hw BY1bn89nLZKlxlNtMVwJcCt7IrBsHn/N2YjknprZ6lHjU+EdGjhZs05Nbyuk 4S8A8MWugiIoWuHK39smU50ylDSJAvSP6cyGTuSTg6dk2CElDr+nIl4gFwZa jh/hIu7lcFphPY9wvkyX/Zr4uh+5EjWZk+4phVUeuB+Uvn0PG2QmqudkslFn eWwiUtYnkbZHT0pjag98qgHAE7GbRcjvzqF7Uw5r6osBPRWx9QafTyBPjafq YrgC4K5xJMEjl2XTD+0Kjm+d0OZRQ2inhEvlF+dZ64nsJ3RlGRu6ebOUCAGA VBCSmv395dtm2gPBjRy9IOEK4InJdHFRX1/kpMVYYcbu9yMaGAObf5B66e8D cU8z9qGFfywKe9TXmX940f64lpYLdo//jXp/TRW5KUujLOmCxpBOS37xFImj yiP3g9K373ENkYlag3dgqV+sfuaWV/KV6EsuTgPwamuEwlb8KtUteOBTDQCe SemhhS0tr7lfr1mZchYEWg0W2IocNQqZT2iRFAZtz+H3u/LUeKouhisAZsqB nmwR6m/JPA7qPDx2TWJySmrSumWzBr8U6OMVOjw2Pc/y7Frzkw0oMGTS2qSk +E97P+7lHzU9Qz/CDqBv7GWAhKIIGUQsYEaObJ7MAOCU8sJjcYMbGYm1te3I 2IRdtnXBGwVGjdn6+z1i31hZdnRGZE3L+hs29atd2xJmdm1qEcadRTzm/em2 j8J8EPKtGfGO+YIpyYlrZ/drR7Q69vWJjF51psAztqI2PHA/KH37HhcU/rmm ewNUg39gqV8Kjo83OJOGHMGzeSVNj/TApxoAPBRT1bl5PcnTEFftTUVilWQN OnWQvr11SiNyr83bU12eGk8NiOGyQ5lyWEbjWkXeieSvZr7bp/MLjf3Mj+sD jdt2emNK7OaT12kn5sX5x76dP7xbe/PP+DdpMyh23flCzwpKATUxVZ2MjrC/ buBB6gpT1dHJNhnTC/VJ1JUtMqAlCjMPrIwe1b31U/5G9HCT53uM/GDV/swi fFk0VeQe2Di9f9eQut7G+k2iRn2QdNnVoU7p9YwNMe/2efHZQB9krN8s/NV+ 0xbFH7h8zwPXEs/bD8rQvqc6yu/vG9OKSDKal1rgOQWOWMtm18OL1XobajrL vBIMfoLmGU81AHgwJbfX92hg2YM3XSJTPoc1n0FnuQRWrM6WRuO/Rx3j36hD lhpPDYjhspOXNsQ+bq6VHADQDpQ7B+QnuITKewFHDgDQKAyVg+bs7a5I3r6n Ov4+O6Ohh0kcVTSVw0XLZlo9o9Q19XsGPAIqBwB4ELkn329GnJv7d5t4XI6O m6RVphcauPMG+w9rCrsE1KR9fJYQCUiWGk8NiOFyU/nT/Cdsn1GvXi6AR0I1 W4EUherAEznkd4UCAEAYdJXD23vCRrYEBf0jQ/segKIkb+Fz7CoHVs8oIIna JaaqHb0fBpUDADyKsrPbBwQRunSj8eul3guTVRsGQ6t+afrqvWaqOvVRl5ri PNVlqfHUgBguN5SdiA+aeBBOxAH9QHgbBpDSoqH9kHQ5dGO9QyVySB3BAgAg HXe+HoxtBz0lr1L69j2AHVPVnoFB5PNUrftcZVny4GDrGtqyV8ptSY+5CjNn 1MVFDjQwSX855gAA8MXaKM1Lhgy6krz9qxdtPKkrZ3KTKWvVWw0NItvGyVPj qboYLjeUnYhevVwAT6bsxNcv2c75wr84Ac1WaGARLGreddctSNQCAK1ybkNH fEMYUHvJRR1FEkKRoX0PYMeeY9xi/mGnP5CfFP00uUAENoo9IfHhaKn1W7NR t8HKK7AGAYBHYM3okEPo0Bv5yTGtxGVxWJGjxlN1MVxubqaPNJKfT59eLoCH Y00Ds7zODVvEX/HsyZROUUpMM/Ll9kNj9+aqfTsAAFQPFUiQGPze/PyqJ7jo SN6+B7BTcHZGMGF2hzpPzXQ4A7Cet0oSfjtScmtNZB38edZXKTcAACIpzfxx QutHzfHnmL26Sr2QlMqTqzuYp+CQTkt+ET0I8tR4qiuGyw1uygGNKgBdUnh9 Rec6nrUv4MLdCzEtyN5JKCR6p4dr6QCgA67sG1rXm9oXetIpmOTtewCSov1x LS3PUvf43yidwzyYKUujCLd/icJvBuVFB6dZVCmbxAFnEADgiRTl7o9ftOU3 nW2NJcR0OX3lqg1nCqTJf5ClxlNFMVx+KFMOffWFAQAc++6AEct5LJVlR6aG kW+2f9T0jPvsvwEAgOoUHljY3gs7APdCEbG78mBGAwRjqry67aMwH4R8a0a8 E5uwKyU5ce3sfu38zU+Xr09k9Cqpwm+K4oJ979MlDn2GxwAAANpCnhpPdcRw RbD1+TKiiPEZcDAC6Jb81LgONZC8fbr1w+2tUxpZwktjaMctOaBeAoBuKDiy bkB9LKMDoeA+01JzPH1OA8RQej1jQ8y7fV58NtAHGes3C3+137RF8Qcu35O8 vrrw3I8fd21qxJ5e/YbHAAAAmkOOGk/lxXClyN06J6yOIah9z8+PwDIE6Bv7 1t7wQv+0fL2+kuIx/b7jdV/yBO2xBWegAQEA6AzTzfMbJnSvhyd1BDToO3f1 iZugdQAahRBSpvVuhD+0vv4RU5Zm6DY8BgAA0CZy1HgqJoYDACAEa7cmIryq N2RhtnNrHncn99TMVgGQJAwAesccxiwe0bmeN13rmLE05fytUvbfBgBFqCjO Sd85fzj9QfX1ixgfl5IN4TEAAAAAAIAUYEKHzno6S4LVXRkkDgBwE0r/PLvj s2l9Wj6OVwHU6zMvE5QOQHXuXlj47wb4kxnUrud7XyaevgVJRwAAAAAAAJJi Fzq8UPiCA0Vq345ylP61YyDRQMoY/HzsYZA4AMCNMJXn/3YwYeHc4d3aN/Yz GNqPOg77SEB1bh8bX9vbWP+pTv3fnrPyu0MXIcsIAAAAAABARvL3L+/9VIDT vkhuy9WU/ggFRo2CBosAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACA2vw/XltK xg== "], {{0, 110}, {1442, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{457.59062499999806`, Automatic}, ImageSizeRaw->{1442, 110}, PlotRange->{{0, 1442}, {0, 110}}]], "Input",ExpressionUUID-> "539d306e-3df5-474f-91c7-6d40b8a40bf3"], " , 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.7468396501310425`*^9, 3.7468396506117897`*^9}, { 3.748965853696239*^9, 3.748965854864091*^9}, 3.751405623845007*^9, { 3.7514057163131647`*^9, 3.7514057265109367`*^9}},ExpressionUUID->"395d1396-9be7-40e7-99fa-\ 7a716438f11c"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"AlgebraDDResult", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "10", "]"}], "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"AlgebraDD", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", RowBox[{"Bh", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", "==", RowBox[{ RowBox[{"Closure", "[", RowBox[{"Bh", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", "+", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"I", " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], " ", "2", " ", "I", " ", RowBox[{"Cmetric", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"Gb", "[", 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"}], "}"}]}], "]"}]}]}], ")"}], "//", "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}, {3.75140559796917*^9, 3.7514056012394543`*^9}, {3.751405734861403*^9, 3.7514057700590773`*^9}}, CellLabel-> "In[158]:=",ExpressionUUID->"cf370cb1-416a-45d4-9216-6b5d997d9d85"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.7514057804146*^9, 3.751566887213558*^9, 3.751727185752718*^9, 3.751730257028719*^9}, CellLabel-> "Out[158]=",ExpressionUUID->"37b088df-063c-4f7a-8cdc-574157c69227"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnQt8TNe3x/fMRNpGUqSuJFUl6lGRPjz/SNK/EqpBtSiKv1cbj1IUpY1X Ef4ebVBFqUiLUPGOkkQj+ieKKKIlSoKKR+KRqCaa9+TmzJmZs8+ZyZw5zzln Zn0/n3s/9+rkzJl99tlr7bXX+i3/UZP6jtYihKY+WfW/+o6c8fqUKSM/61e7 6v95d+LUcWMmhn/w5sRp4WPCp3QYpSM+VvU/22sgRPzflQAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADgDJQXZSVv/+bb2LS7xUIu U3L7wr7or2ISzz2sEOvOAAAAAAAAAAAAAAAAhFHy176RrTw1CCGNpt2w1EKe lym9sGeQnxsy0G5FGgQ/AAAAAAAAAAAAAABQAhXHl7dAJmppVmbxu0rp3n4+ pqvoUP+luXqR7xMAAAAAAAAAAAAAAIAH5T/Nq2sMWWhR2Myscl5XKXsUHexu jnz02nwZIh8AAAAAAAAAAAAAACiCglubR3TyqendevhnSdn8tT4Kjq3v27S2 tv6Lo9b9nA/lLgAAAAAAAAAAAAAAAAAAAAAgHcV/ZWdl5j7mk4eoL7h39er1 /FLR7wkAAABwasD0AAAAAAAAAPKhrzy/oT1CIxMf8fjjx9vHoyf46l8BAAAA LgqYHgAAAEBuiK5DQUExmYJaNgMAoFqM/mfHtb/z+OOshV2QF/ifAAAAACfA 9AAAAADycufkR8+7IaTRBnaJvQrRD8C1KLl9YV/0VzGJ5x66uPJSbsowpK01 aVsR1z/UV+7tWws16Z1UIMVtAQAAAM4LmB4AAABANnLOzmrtbW7a7NXtw9Q8 aDoEuApEvpOfGzn5261Ic+ngR1H24uZa1H706RKOf1iQMbOeFnWZdolf1zMA AADAZQHTAwAAAMhDwe3ong0MfZbdWgY00ZLRjx6T0v529I0BgAxUlO7t54PM vcb7L8117bDfqcmByA1NOlrI6a+KDkTURajxgsOuPXgAAAAAH8D0AIBS0Jfn Ht85e2D3gHpu2vpNwkbP3PrbPc4XKco7tW3FpH7kRZoH9xm8YOcpV8+sBpRA wa1N/ZtrDHu+4EWJ+Y/zkz8JrWnYBPqHr87inHoIAGqj7FF0sLs58tFr82UX 96AMnqSm5rBVufZbqOJ70aF1UQ3OXisAAAAAVILpAQCFUFZwavHQRjrULjwy dn/S9hm9iV2hJxp3KMf+a5RkHPokpIHW+7n+n30RG5+0c8XHnTxgawkogLLC /00OQsa4R1J+hfEfj043Rj9emLr9AQToHEJ5UVby9m++jU27C7orklNwbH3f prW19V8cte7nfJjwj/9cHOCG3NGQPdl2/sWN9f+pi7QoZEI6zFYFIsZiAmI4 AABIC5geAFAAN2LCGz5VY8i2C8Z+0YQOTxUaTbthqfaFGA1V5Fqv0PDEbNOb qa88PKoxud/sFv27i58wAg7DHOLweKLbsiTajs/8n/CQiGPRl+X9fjQ2av64 dzr719RoOo5Oc2JLV/LXvpGtPDXclhrAAdw/NaGOG6rzbPCAD+as+j7l8j2u ZcrK5P4PE+ohDfJtMjf1LuuH85IWd6qBOPmrgHyIsZiAGA4AADIApgewn7zD a/o29VZF4Is4O1i9YGzfHq0b1iYt6dNNWr3We8CkBaviz1wrtN+m3iaiEH6h w3dK1o1CnxH3pha1XZZKebMPUsPJm/ZAc86UsV/ievLwejpL2QSiExOBFr0Z cRXcCEB+9PrMr4fWJVKYsMgeTlnh0Vm9fHRE9KNnzO9WPiAXVSvG3i+m92v1 nBZR+PRblOEcm0xrVBxf3sL8U2tByzYFk3duZtPa2MREfh37fbp+x7l7irfE til5FPdOA2RwQeccuVnt66+vuLH78yCiWkjj+d6XN0BlTnmIsJiAGA4AAPIA pgewh6otzIYPW7gTFilkxXEl7wb0D6/u+GxwiyerbvWJxh17DBk9jmDEoKDn a2N+49uLEjLsCoAU34sjNArsDQ9ypqI0Yag/Chqdhp+SnFnzisn+TzrGNtjE K/w8eumN+Bymo3BuRlvDVTTQjwlwAFWLxvr3G2qqj3tw+phkFGQcWRHe098D 21jW8ek+cfG+87ccGIqRgfKf5tU1/mAtCpuZBWZdyZQXZafuWzKyq48bNlE9 PEMmLE7MeqTiPeLNo6OfdaN+yyV6Qou+LO98yoqhQV4GQ6a1ZuYAJSDCYgJi OAAAyAaYHsA25r0JQgER+xSRl14NJRk/TWzzDPL07vX5xuM3/6bN1CrX8Ujs mJdNvTV1NVqOX2uXCEbBrbVd6yKJoh8Xt3RGKDTmMv5vf0b1NoYsfJrF3GK5 wN+7p1TdnJVErIqyuJ5eRleERyMnABCGMUvQnoCGeYWp4zfjmAQBxuq+9uHV HZN6EjknZrwb9J+/4bSLCF8U3No8opNPTe/Wwz9LynaNn6x+iEjdKEYAxCtk 6qr0fLU6ZqUXDowJpHpe+7XuPmT02EmTP/5wbDieheXV9q2tkuVeAkIRYzEB MRwAAGQDTA9QLVjcw2dYlKIFM3POfNLcXRvQZeWv1e+ezJ0myCk9cJFdv8hw ZSmiH0SUw69NbC72T8X313RwN4Ys3o7Mtn16UnQ7qs2T1g9ZHqZPq2OM8uhG fgMdRAFZKcic19iNQyKHcZ2RT0gq/8TmEc1oRQT+/T79UdUH6IDLUJB+gBC1 xmYvi+FTNvq7lzaOocdzcFQe2wEAAAAUCJgewCp5CfNaGzIQNO0HpuQpeAJU lCZ/EIB8n112/h+WT945+dHz1EQPmJtgjyJXafqWHsQfaVCTjjGZIu3NiAzP pxg1rfrTa1413RsjG8QCfeX5De0RGpucb+W/nVje3HSdsNg/xblhALCbkqyj 8WnVF1Faoq+4kbL9iCzpB8aMFDM6FBK5P9e561sAJ6Mw9+DHxh5JBiSrypSL gowj6yJG92zT1IuM6RAlq2+MmreKmYoMAAAAACIBpgfAKTm+upOG9KnsCCk4 FP25DR0RCow8bM/25c76/zxhdhi966y8Yldu5f1dUxsZPEwRy75yf9mRePkR /i+nJgcab6xeg3XX2b6l/J/cG7etipbc+bqf8TqeKPJ3SB4FABPXEge5Iwrl 9JcBnImivFPbVkzq1z2gnpu2fvPgPoMX7DwlcstOrEO0MfrRNGTXHQWfUAAA AAAAACgTswiMDoWu+VXhJ6IX54YYbvXJxj3eW5acxXK3NxMHYluftitO2+Us lj1OHtua/BOvsBnpj8W4bwYP0iYYHVmtduDSHN5+MiX0oUEBA45IcasAoEZI YWFstwjC3YDolGQcIgpSvJ/r/9kXsfFJO1d83Mmgo+sfvlrkotHie9GhdbH5 jHwnbwdNawBwIfT6rB/mdn0GdY254uhbcRhlByKe8HpuCKjEAADAG8qhUsPW oPyfzaHmDg0a1LDN1js2P1/yYE1bc82LDr214Kadq+X9c9P8jX/YduFhXr3r bUFqlpL03WH7N9gEE/rQDlmRJ94dAoC6ub63D75R9EJzTis6nw1QHaUX9gzy 03qFhieaq7f0lYdHNSatTbfo38VNyyg5svhFfErbky4IAIBzYEz90mgDO+/M duFt/4ML89o9w6F/AQAAAI6+8uKi3sZQgrfPsguK17Ytzo16BXf+0NgUlns+ OMiscMgtL+Lv/Z81JP/OE407lCP0znGovvYaVJ+ufcoRXOgjaO1v4t0iAKib R5s/wNYJaH4EiM315OH1dF49JqXRpaWzFnYxTrk3I66Ku0EpyJhZj2b+BIXN AQBQC1Tco0ssNKHIOTurtbckyXUAADg7pae/fd3UBKXtslRV7AyOjX2B07EX LfTRpHeS/SnCZYX7BpEJ8xpN6wEpfwm8cYwb5jIc7dNjvxfSk4US+vBAc86U iXaHAKByTDtQEjftmBgXyvnQl+ce3zl7IKk+0SRs9Mytv91z9D05FyWP4t55 HlkTgzo3oy0fc2MP+sq9fZ/GQx8d1/4u6hcATkfxo4s/xswZPbBLwHN4nyC/ lzr0GjZhzooNO1N+yXpocystfDGRQQzHuTHFPVD9ZiszVBL3+Pta9IBWNT2e DpmzI5ftWRdkpMSsWvndUbYCdhwi8uwG0Q8+VL3RZ5K3LJ05qm+P1g2x5nd1 nm/T+c2h0+dFHzx1V+HCBwDAm6I7a4O8TekQvZMeOvp+7CTnzHyy2Z+3z6jt bP00aQUyWtRl2iUuFT3681vM2yc7G8TYw4NvhxovqkMjEwQUqeBCHy/2ThIx OANYo6SET3SwtKTYxbPSHTJujNCH28StAiOD+oJ7V7PEIjPb9nZDCGUFpxYP baRD7cIjY/cnbZ/Rm1AVEj11TWxUM7wGyIrFIXuymf+BWpMlSTTCIvnKC33o y/KzxXh6tx6o4hRG+RSc3TXxX7TOyNaxoZwmeDGRTwzHWdHrryzv72EY9lH7 LRYcpfJnVG+ja+ofut/25uJmyrCnDJ/19lvHpUWh+ej2hanbH0AkzR7KizL3 fDWSviZo6zfv1OFlX3fakqBt1Grc6r1Zf6vEdQXTA9gN1f1EgqpkqSm8k5X7 2I5bpmUIa2tN2sbN2OorT05pa/xrsbQCiu+v6eBu9I1fevcIdiyov5sRn8jl NASEPiSj8ObFYzs2fTlr6uCwzm0a0bYbRGz8jT7jPv9i68/n89m20zdiwhtq 0aRjrrKg2ho3j7otu1aN25dbj12y2quIQq/PXP9+wxpoxkn+Zw/00AdqvOCw wCWudM9U1j0EZwznLEMmR6zcnpSRJ85unZhyT9UYss0UFs5NGUZ8k0bTbliq 6KJF4qGW4SUouh3V5kkUNjPLMpCOrcm6kd8IyeizCtUXzIBSQh/lj/e824h9 i80Rv5c6dHt3+Izl3yWeu8ayYgAWGDeG3g36z1y9M+XEpQu/phzYEx05vVez 2tYG23o5sMDFRE4xHH1pSam6vFj7MDUclER0TirKHkUHm7xctggwdRTohZb9 we0R5nz3wTNIHQ0aHE7JnycW92hGrNJEqHPInPXbUn+7gm+jSvJupf8Ut3R8 3xZPGR+INqDLil9uKnpgwfQAnMhNDX/KbPLUk/LBEf3pNa+aZ7M7Gpucz/kS WXvfNvkG4sjAXtzS2fx+Td+Du+NEnLwhW4QcQwlCH07mbxRePxu/ZsHIzs28 7FtMvVr1mLOj2mhVwZGojrqq/ZfnykwnGiNrVI3bvuWzhrxm77j5dXx7UUJG dTYlL2lxpxoa5NMs5hb/W2KEPoRvEiXZm+N4eLceMnn94WqHxR70GXFvaunV iw9Sw43XV3RNnCqG14C+8vyG9si6NcHX5LBYLkeY9iH6rBYHmpy4JPh1fGfO 9mOQhm0vRHTOHTV8ed1li4hfUd6p7yLDnmM8LytbVKGLicRiOPqHN1K2rJ49 vE/wi1gtj+6Jxu269B89bdHGXWk31XJoXS3kI0DStRqUCKq1IlupqcAehWWF B0cEEKkfdWrPOQV5z9ViCEIa6oPemRp75pbtdbQk8+f53ZoZ3ylPLPKpQMD0 AFy4srCb+cmGrD2vdgNhHX3lsQ8DTL9Si4JGp/EImuMtMvkFT+gYm/MSxgxF nsecByIb5CnUf2mu3Q/DIUIfzulvEOXMO+YPfd2XsYh61H0pbMCkzxev27ov 8ecTGVlZWZd/Sz2UtPPbFXNGD2pd1/hp/wEzj+cxf7T+8sH3fNyIiRc84byz Jn2QZeD9/+Vbw+q4LYnZnVDtuOncAobMOZLD9MxNNlrouIm+SaQqMgy/JX7T 17MHdPCytJS16g9dvu3wrxdtpFVmnvslKeHH2K8XzRhJzSLK1Ia+H32axTmx DrlYMRa6M2uMytA6RWcfqWB4zZT/k3vjttUQCrUme6LI38U/LlJo6IM4MbyJ D/6WyHFtazIfXePB83emGFYDW1zNOHUkce8Pa+d90q/Vc4xIqm/Y6PhrKtE6 cChFByLq2nTt9A+v7pjRt5HONLI61GvzZdqHBS4mkorhFOYkfzk5+P/Ytjwe XsEfzGTd6HGj4Oa+iBGtnnFDuhoB/5l3WvS8Ltp3/bmcrEmv82TkOTVJVZX/ NM/cwZAlAiw8dTk7ZTix1Gg0rfok3lef7ykDRp/Ks8bgjSftzSovyk/+JNS4 hCs7+gGmR5XIuZCauZY4yFjYVWV9Qvc7a6UElbBBOKKTfuYZtcBSR7TWk5zt B88D7DotA1tN9Oc2dERo8D67FfvlF/pwSn+D3Ly/9YqnBvsJOl3Ld8at3H/c tv6b/uGNhGXkgFjorhP910ghHeQ364ATZsxZHTfDwfq6A8ezbRaj6f/OSY2e 3fUZa+NmUm4XPm5ybBLLHsf18aHPfu56qsWPMg5ttRhJ99BZmy4VcHTkDBll oTGX8X+jaq6FZdE4AKUNLysCTzDtQLGhD0vosiS8kkvLizNi5xoWCuw6vk3m pt6V5I6dCCK8YEehZcEfqVuWRoz7aOqXB84xQ3nCFhPpxHBKLxwYE2iyER16 T16yfmfS/9KvENuWhB3fL/x4RJAP3UXx8Ar5ZF2GKC97yV97BzfHF5LAJalS bbb1lWc/70bu4QIjDyt242kVU3TLjghw+oYOpsFss+JXfl9nLHsB0Q+rPLw8 r6U7n/BF8f3NvRoYn42qkmrA9CgdORdSDDzlg1Fz4TwQhw4NzD9TUJkkpc4h OPHDnC+KUMslx6l/ryhN/iCA2xuKRcs55Yrwwyn9jZJb6RvGdKXduIdnyITF iVmP7L9+Seb/PmnrTezizSdcxffi+lM3PDje2WKL1sbNrdu0r5K4jFtlzpkl bzTT4tGPglubxBs3eTaJ1Cm/CZ7+m74891jsmJe98Ut5dfkPp4MGYmPiR2+W jSsLvR2ZLbxeT14UNbzsSC++pJrQBzMPmb/yiTlV24QGNfnX1huww7EF6fyP THzE+wqCFhPJxHAMtZCGl7fNW1/+ZL14jTiSWDCUUf//dPCAnYJ7wlYcX96C dlUR1LOrw6ThqcKCdPyAr9Ww4zZD1ZTQh7sAaS+yvAsJOuJ0TvSVZyKIPHOe HTyxU3JNx2Gp8hzNCwRMj+KRcyGloFQ+LGounAhzHBiJoSV+f9P7ptiHsB0E Jrs6NoUyxCXHoloh1C+OQ204XlROi6JIgBP6G3p91g/0oK7OLWDwzP2cNu9m TLkKnn1mZxSWnpxpShRU41G7bayMmy5wxPykq7zGreB2dE8iPkkUMv9d+L/J QUi8cZNnk2ipUCHoiwpu7h3fxRMztdrAN9al29dKknA4mRVzuNgR4wBXFSho eO1ABvEl1YQ+qGJ/I0KUT8xKj+YHV3PYKtaOma4MGfrgr+0saDGRSgzH3NHD f+Sy9HyWX2Z2WrCXnZ5hyB3L5ajtitOSHDoV34sONZSMqLAHAfbus0WA9ZUH B/uRTwc1DN71gP93FibOM8wrvoXtzgqZ+q57onGbTt3eG7P+NOekBfygPPir 0yrIPgLTo3jkW0gxqMYuFjUXToPZRCKxeqjdJoXNDQhp9WKWN8dOZAyhReQ/ JppTRIU6DxUSLbcDJ/Q3LHZAyDfg490WGb+cIMPjOtSpTx9/cwG1cwl96B9e 3fJ+EC6/oPVvM+egMN3IOyc/ep4IpLTp2h2rbRBh3FQZ+qg0dZOkQogc3qDc X3YkXqad81INQeo1WHddZR50pcKGlxUZxJfUEvrAi/0JBCqflPwV3dkDv17V CE8/oSb1A5kxhD4EJQwIWkykEMO5f26av0Gn0W6Pzoo3EjLimIUql/3QT2Ek FJcgy4VUmfJBf/dZIsDUUaAOvbXgphBHwpz44cTqhdyhpAXJ6eQftItr8OP6 3j7mP1fDbATTo3xkW0gpsPUByRJpcQA3j45+ltRR1LSbEiNO7/iK0r39qJ2Z 7+Tt/NS58NvzCh0fe8CoyWNVJ9Pm/WBF5cKi5Sw4nb9hqk+h8O01kWq9JwAs qEjhNEIfluPm1W18ioVIKQ9Mbp7I46bW0EcloVp/dHooptRVtT3vvDOb+3g8 SJtgvIpWO3BpjgonoqKHl4Es4ktqCX1Qxf6G6cea984KlRjvdEurFBjHX8ct ldQWoiwmvMVwKsqOftSasP7tB6bY70voKy8u6k3ft6DGM/bwd97KCo8tGtLi SYOq1fDPksRwG6yg8l089e6zRoCv7HjD/FwEd5+n4kUtuu+/p7phk4DCrHmN 6LO/lmZlFseLlP+zOZR6h5SfOwqmRwXIs5Bi0Jq91kLLMpzuAZplEj2f6bXi UL54v+/RD+OfNA6cUG1Y/d1LsXNG92zT1MujbsvQ/p9uTs7lmrUhj9CH0/kb zNo9XY2W49eKExyr4vGfiwOYGrDOIfSRf2LToPqSjRs9HivWuKk49FHJlCpC vJob4jGlvjvs1k9WEkoeXibSC31UqiX0QRX7GweEd7W1GbxQwoAWdZl2SW3a NbLxaPMHhlHSaFoPSBEjCifOYsL3HSFF4PkoOeRfmOlPN8pCsnZlgdrC8zij dzjUu191/6H7bSYJmGYp4caOPczfQzRSkDmvsfFZy6OaqHQwaUHjE+G1c8mY G0ytugpXDAPTA1iDSll0rlR8IwW31natS9YvTI6/KHIRCL2CzLFbCXmEPpzM 32Cmo+hQ8KIkEYNjVdxe3Z9maJxC6EOGccPiiqKNm7pDH5VY9pqJgLkJHIqY qUQ1DapPlytUD8odXgtkEPqoVEvoQ9RqayPYAbFxVvNujeoKYMMlQn8QkRYT nu+IvvLYhwG8s03oRrkK7dNjv1euXiOWYC8ou9hRYEIfrKdyx8a+YJxUInlK JmEKdZRmSA4mLUg+kJAVx3ns+TArrHifFkwPYAn9RRCeYKYsjO0hNNrAbjGX eIku2oaW9yXhuZ49yCH04Vz+hkUZjjR90Ki6SOQc0UUZ4h4EuJaOSOOm+tAH XauZoM6Tkefsjh/eMPsAynb1baLc4bVABqGPSpWEPkSutiYwKmdigP9pE7wt nbCJTSDSYsLzHSFrbXRoZAIvn4tmXJDCQ8FUea+Uy4h04O8+y6lccU5UKzL4 LJ6nZOjITNIz9roYV1Q3eYeiwp4nFI+1jVqN2/gzL8+NufYqOZMZTA9gScXP S543Pz1REsyUg6ktplj6A1YxNbV3tPWkzgW06KV3j0j0GJ3I37DoUYW8Bi4S rV4Dh7LmBGovCSz9Le4dT9pTFEc02BJ6Pako4+YEoQ+LUiCt9X6R1qAKVHm/ wgpAscPLRBahj0qVhD5Er7auZHgv5GXbjz6t8sCypGDuilbT5aNzAuq5xFlM +L4jhu2MgCpjunEhUej2jZLBV+v0pt59HZp0zOYPwM6JRPOUqGfttE0cZIe5 91fyoTmYHsASTOxX0XFvzpjiHv5D56dV34IkK3bO2PnfXRUQR2e8ApJaT33u +W/Ce/p7ugUMmcNQQC1NjTILtkinguU8/oaph4h58kuqJ5w84lml+1d2wqwI 4Cj5whHcZRIlKusMoQ9aW20D7mjUwRz2P6POfJnRUf3djPjEUw9VEpJT6PBa Io/4kipCHxJUW1fiCQOiXtaZoaUgorYLD/Os5xJrMeEr9HEjqhf1M+r4dJ/8 pQ03zyr0DRGBQk8lclPDnzLeoZI3mNWCC32wbTHKDkSYq1xpnlJhTmri4Wy+ JyzUQuGFIs+rL21GidBWEmkNnCDA9ACW0M6jtejNiKtKXPq5Q8Y9tGy6i8SJ Q22h7+zd1HCqK6K21qRtUhyAE5QX7X2XUuHrGnOF+k/mhu9Iq/336FOSvYFO 4m8Y5V8wvND045IdylJ7E8UXRdrGctyEZ03bxKzLJ1ZU1jlCHxbZU/YdZmF5 v37T9+BpcMRZcEMW9TnloNDhtUAe8aVKVYQ+LKqtRVA+seww6Gi5LRVQUZow 1J8aL68ak4/wEs0UaTHhLYaDnyYY0NQctiqXiyfxePt4+hUUun2jNK+kK2SW FOrdZ69hofxDb791mB4DWbPAv9gHm66qDB8pDkbWh4JFPsH0AJbQjwAUGvTm ijHuYYf+gEHnROivpgUVxUmmsk4uzSGnXjSqeYoGNXx53WUJWwI5g7+hrzz7 ebea9JsQKGbIiulXq1now9q4tV2WKumvMW1yRYvKOknog95Wm8COtvJUgh/j 5Is4wH1KmW6/VZQ5vJbIIb5kQPmhD2a1tRiSBUbBbQqhTdZcBEZfeNTkX1tv cF5bxVpMeIvhHBxUGzGePsdjBYtlRId6RFxTmgeMa8lKWTQnHdi7r0NvLbhp Y4QpX5pZPkCERJoL+PlUR1coTBAFRuhDuUoXYHoAS/7ZM/Up7Pk5Q9iqrPDg iABNTbchm84Wslkx8sSBlj7BC6xFDkJ1PFdmSrOFyE+boDG5Gz0mpZGpHUX5 yRG9fHTE26cNfGNd+j1JvtqEE/gbJceiWtF/glid/mxg/tXqjS5ajJsWBY1O kzRghJktsU5qnCT0YaWtPJvSIO5V0nMYSDs+eJ9qFn8lDq8luIhBw+BdD8S9 QRrKD33Qk/3E2MSVFe4b5I/oBH91WoWH4rJT8mjzm3TZvz6zMzgdmIi1mAgQ w7FwRRCqpVmZxeEKzD2RMkMfVAaag1X0eYO9+yw/oTBxnikFiF4+QGSn1xCo y0156bXQsgylPWYVcmbNK/iSrtTQB5gewBLarBBB9tbRlBUenR7qUa/JuF0X WOZh+T+5VzP3jW5dZbpZZJfsgOEnSxVBMh+7e9cbtWpPYsKPsVHzR3RoQFTb 1Knba9b68xxrT3igen/j4eV5Ld0Z398vTnCjKzbMmzW1Cn1Yjps7GpvMsbsx d4zjJp78stOEPuiOB2I/d3iQGm76KK34oqI0+YMAdXX9U+LwWiKX0Eel8kMf FtXWwjdx2C6JRKhop0tRcmTxi/Q3iFveo1iLiYB3hHbeRL6hHIsiHX4KYw+4 vyRdd2wJYSRF2yiLoMuItVnxK/WfDOUqAnW58Xzj0JjLQi7l/OhLS0pZ3kb6 66PU0AeYHsAS2qyQ/GRKcgxxD0ZCPjv0ikJ+4PWqSNKT/fKizP3rJvfr0boh EYLwe6lDt4EfzN2w49w9CYtccNTub2R+8Ra9Qk+Leky7KP3gGX61ioU+rIwb 77YXXDCOm3jyy84T+shl6FEQwahJR6vfvmBNzMemUDOeTOaRIfonIkocXgtk E/qoVH7oQ/Rq6+vJw+vRxJZRk44xmTIZQWfAIvGDm9qVSIuJkHdEnxH3ppb2 C7hKtlqpveXkilSUlEivl0mdTqpe6MPwnvq2iLlpbU+dc3ZW62e0TYM7mdTs 8EXs7Ix2goPz+sqMLf82PWiV5s9IR8ndK4e3fD1n9MBurzb1wl4rv9bdh86I 3HHmluXMo+t8KjX0AaZH+ciykNLACijUrUJQyTfuUTVvAwYcER6vY2gd265n VDPq9jeuJQ5yZ365PC0+DXsT1b5iluMmS8pHpXncxJNfdp7QR3Fu1CuML7FZ FkR1SEQjEx8Z75Po74z8x0RnK1OgrBqUOLwWyCb0Uan40IfI1dbELskbu1zV fqrJ3FReWp0uSPGjiz/GzB7eJ/D/aI3dicLPjsNS7awoEGkxEfiO5KftnD+8 T0hQcPAbfT7eeCiX4wUy5gbTR0Bb+5PdrPdecit9y5wxof7G9FevJm2HzN9w +q40ex8uvVG4UngtbcfSiCHdXvU1G/c69YMHfbhs97G7vJYrq5kCFlm+yD98 NaP1QH7aroltn9EEdom9WnZlUTfyY2bt3NL0LT3cxOhaSMXrpFTkUxf68tzj O+YPfd3XtBho6zftMmDkuCkzl634cs6kD43TQ+cWMPizpGzaJKcfgyo09AGm R7HIupDSwKOgyDGBUH1ZfnYWFzKzH1obGWsCjPYhUpiCyttU7iIgFmr1N/SV J6cwmsvIoVZBQu5NVCn0YXXcZEn5qDSNm4iS7M4T+tBX7u37NLfVzJRR7BU6 PvbAj1six7WtifwHzDwuWW9iiVDo8OJQCvDM1p9SwJjVSmthIGK1dcmfJ2a1 oTmf2sBuMZceKer3KpSivLToOWENTTb0lbB3/9UA0eEgWy18MZFRDMcK5f9s DmX2aAiLZclXyTv8dVjVr9Y90Tj03RkLv5ht3DNWTcKqbbsETjuVeybmuYn+ 7qUtE3saBOKs49X2nfUcVeP057d0sXakjr/7L7QM9DIctvp1HRkZHZeQmBS/ aTUxhu66wJGRqbmGASSbFBCbyoDJG+PjY5b2fU7nFTYjXfgBJf7EvdCyP1x9 zchP2zX7rVc8yeNvj5ohH87fkXbNUiBR//BGwn/fD3CnT3Lm66NQ8VgwPcpE 7oWUDt2BtGsHKpTiRxk/xS2dMrxXp5d9GefI9qOr0fKjjbSTBWsndPYh0q9m 3ABH+QsXwoH+BrNhJYEIRwn2UXL7wuHEA+n31Rf5sDpuPWOvy/PlxLglHcp4 KNpTYrQoUnHoo7Ly2NgX6F/CHnStcnpj54zu2aapl0fdlqH9P92czDV0qQQU Mrz63PPfhPf093QLGDKHseMrTY16VcZFhh76cHObuFXmBFJbWFRb81Q+0Zfn JK4Kw9QAkM4tcMwX6dIrXKmeqqFLXje4mTHo4dd1+MrkjKo9jpU+BY3abb1l 73gKXUxkFMOxgqVdq9dg3XVbN5GXtLhTDaQN6LLil5vGH0p1CuaSM2M3WEEQ XfZTAHlH1/d9lpHwYwnH42xyHLzQnNP0XAo8a8WnWczN8tzTCd/M+qhf1/aN PRHh0bXr8u5Ui3qKorxT3y8Z2aNj1WeIQ67ITZcKxJkceKKCWlXXRKEwN2FW v0am2NfTwYNjzrNEuvJPbBpUvwYyT3LaaS9SaK47mB5FIv9CykDOLFkicrhs cjAzx5IvYgh0iAtD/xMvgAUoHOdv/BnVm/7F1ZedAhhWxk29bbwsjvJVHfpg LOAErhF0VcTwlhftfZc6NKe1CSu+Fx1Kptlqtf8efUpiO25xq27aMTEKyua2 qLbmoXxSkHFkxdAgL+wiXm3e+vJIlgrjdrJTlH94nmmb4+nVf83P+eYdCmVJ KdquOC2PUZRTDMeSRz+Mf5L2u7Ueo9bbMGuGUl8rpy24xL3o4pmPNn9gvrgI qVx6feb3H7dhHj1VhwbVb7bSvsY/hhiapuawVbmMzS+etSJe1SpvcHkK+aec Qij585d5IQ2MZes6FPTZ1qtF7H9VRV58xIsIBUYeLmWWDCDFxdtJwPQoD4cs pAwYp1pSRUH1FTf2fRFWX6SgB4EcKcRcYeh/Cm+Y65Q4zN94/OfiAMYMBKkr O7Aybty7fCqHwqx5jfApIEJ3J6s4bG+uUik8jihieOk6qFRXL33lxUW9DdsL DWr48rrLcsTAyw5EYOuqsjSFmNXWXKZoyYPrp/ZsnD2EKkVHRNLCiKV85Qhc DmP5AKruHN+i1Yt8ietyiuEwsabyysxYwCm6szboGVSn9pxTzHT5G1G9zOZE dI8CT9cX7lLmxI5/nrmiGajTKLCRRec+A3Z1PSYDaE+h6SeYA1jx8xLzNyqh Cg8zHAqLD8uFQZDHtJjqUPCipHwOOnuGB+0ftOsuLShHojSBqUowPQrEQQsp DYvSA0kSFQpu7h3fxdPqqsoP3ZONO/f58oTihGUUXm2tCBznb+hPr3kVMZGq B7ETgbsupvGWSRhWCujTQML0FYftzV0j30wRw4uJhHv1mJRGRgOL8pMjehmK 6DXawDfWcayX5w9NZxuhWmhZhqNPWE3Qq62rBstnyPyVtlgyb/K4ceNG0HsN VNn91/pMjopJuXzPMUGdvEvRMz4cpxDmrkq3J/rMFvcgoERpTAhUArQTecVw GFhU+qDGM/bYuIU76//zRDX9f7EzL/F71eG5xAIX9pLjqztRTQ2Q1ytdq96m I79dyzfv48r/yc04k7hhyYh/NaCU7HXs/XoMg2ld/itzYajxOhzbY0mDvvL8 hvaSPSzlQ4t7VM3niH0c4h4GSA8qLDYn9UN6Nahkp0hCcBLT40Q4aiGlwZCn kEL2J+fM/JAGtH4g3v69pyyMPfi/9Ku3CTmd4r+yL5xJ/G7FmI74xzSoYcuY 6ypblehRUEVmfzkaB/obF+eG0L9ZfL10p8TKuKm3BXZZ4b5BtOxu38nbJfK4 5dmbW34LgtCHlN9CG16ztrZ3vVGr9iQm/BgbNX9EB4Mhq1O316z15+UsBLao XPAbvzlPCSaUWW3NE7KN+5xV3zvK/7Q6GRwI+2tOxT0Q8qwxdNeV6qbj37un MHpwCO3/aEI5Yjg0Sh7FvYPru2o0rfok3q/+Fgoy5zWuYV0FpTgnqpV5Lym2 x4676J4o8ncBl75/bpq/8T61L4bM3m7z5LqsIH3jpx2fMn4chUxItzHXyJWn hrWOb9TpqmKKZKkQsZM3I7CEEfewK5/HEiJvVuvef8ZUWpK7It1pZzE9zoOj FlIGDJka0YvEGW2APNxDI76ttiVHUX7yJ7TWtNLtSiSC7ho5QrZL4TjQ3yi+ v6YDYw3Uorcj1dXQ0wHQxtk42uqtEqKn+2pQ05Bdd6R6RRWxN3delDK85UWZ +9dN7tejtaFrBukjzd2w49w9RzwCRgdqTzTuUI4DboOBRbU1q6g1RfFf2Zl/ pB3asy5iTCcfaiEyq3TKif7CD296iVi0KwjtC4HRtm1eRenJmZRD9cLU7Q9s fPxB2gRaezyRFDWVJIaD8/f+zxpSP1aDfBtFnrbV9YEMDTWefdBKtODils7U pcSuocBddCH+eUXZ0Y9ak5fxHzo/zb6QLLVTttnI3kbKR+Xd1HCTooRS3IYH qeHm567A3bp0PLyyuL15OybocJnIRPL283uKtiChLtMuKc2ddhbT4zQ4bCFl QC0CEqwDBbfWdq1LXdw3YHL8RZYCqbLCgyMCqIw8NvVLpUEvK3PFbDrbONLf sFgDkQuLXHHA2riJdSAoK/qKG7s/D6I2hpJ3Y5dnb/54+3iL5wOhD9FQ3fCS itCyTXJ7YFZb8z281j/M3je9F96O07/f9KRs5T4Lx0IKEhqnQYvu+++xuFJ0 pTKRtGKUJIZD8eD3mS9iIULPGkO2XbDlmpY/jutdt7oKMoYGuMgltPg+XUCy ZcmxqFbkKxO+Oss+QUuS0tPfvk545NULstlI+aBXy0qtW2gvuNiXa0iCE5Q9 Th7bGp+oQvKsrNaBKrDAH0yPsnDgQsqAVh0savYX7UXj4oBdjuuB/XylrJZ2 gVcRIsU2uXYYDvU3rApWjD2srqwiB8C0HUidKpp4gwPy5fR/NfK4tFtCRYhR OC8wvNWRd+jLrnWw5ARPr/5fH3Jg/2J6tbUWtRp2nPdxjl6f+fVQbEXSaAO7 RV96JObtOgd3T03AlAxZtRqqKDoQgQ+sON6gosRwSLD8B3JwQlYcZ3HTCD9Z i7pOy7B8iWjZpBpS/lFMRKnOMAmseQ1cxCnuQfLnqnc9bByMZu19u7qUD1zo QznSQ3gNkTyaNgqgMHFec2rSa1BA76SH/K9mVf1bAUIuTMD0KAsHLqQ0GFt1 MUMftMRyd9R/k81NLk5FWVxPcxMh0fqYy4KE46l6HO1v4B3NjH/l0yzmFv8f pGjKCi7Gf79q5VfLZn08ziDZFBoSHNy+9WuLE7ju2ayMm7pyRPUVNxK+Gfky VnancwsY/JkMEXuH7c1dw52D4bVBSebPkW+94olJGvqGfRh75pYD4h/MamvB Np0p11Plgnbema2MXZVC0FeenGL2+bUoaHSaPZsSKQ7CFCWGY+D+rqmNqMlo V3uLf/ZMfaqaQ226aLbojc9wl5L/E6k4vrxF1Z9bLRy2h6LbUW2IV9jqAdPZ Ge2qptjgfdbPnkwarWxqIXJCVzhUeBxbHPIvzPSnVeoFLkkV8uJZmEXFCLng gOlRGI5bSJnfJtVWPTtlOFY3Wi98w10usyNjbjBltdWUOAGhj2pxuL/B1HkW GAFWNJb91o3wyEi0Mm5Kapppi/KizIPfzaBvAOWs03TQ3typY3oYMLwsECIk 34ztgHdq0LQePlPuAIiQautqsNDK1ni+9+UNpZWZOxDiIJ7C3tTZgoyZ9bB5 Lpb3oiQxnNL0LT0whTA723rm7fks4MUmay9ZCXgSG38z4h98ixH60FceHtUY CStwePTD+CetinXkpoY/ZSu2lrNrblBdjV/H3gpqyOh6oQ+yWQCF4AwcS7dQ 4r0qL8D0KAzHLaQMpNmqV5Qmf2DW6+ATasaalqoregChD+sowd/AO8QZ7+Ot BTedNV6rL8vPzqoi8+zxL8IamAeKR6GK5bipIBGrrODUt7Pfe/U5atNXx6fb 6JmxJ6/JKU4lz97c4gE5cUyPBgyvXejLc3/Zt3R83xZmSTrdk43DRi49cO6x LOftYlVb0y9qbhvBzQq4CJh95JI5TNsSOqP3gqvu2+2H2CI/fZoPtjK0HXb8 sTh3agJ3KfnKSBIRLcGH8kSIQ4Ne7J1E12a7srAbkr87j0BoieUuEPp4/Ofi ADzlQ/CBMn0AybdpZILScj6cwfToLyeMeIHhgciNV9teu6TObJF8IWUgyVad ERZruyyV60uG5dirzf5e2fGG2OOpepThb1hsYVyj9bC+cm/fp42zkZdImsW4 Ib9ZBwQ+wKKfFgfYXGz9XuoYbCSkTSPsBjzQjBN2LCd4tN+jdrvRkam5jjhh lGFvbmmIlSOkLzEwvJyouPnr8n6vmoKB8tkmMautMbDzEeOVa03axl3GwBmh 9WrhchpLyw93Ou8FV90XxQ9hqqMILSKwBu6i85XNN8itNJ6xR9DDJFNHnqLX +hGemCIrHdjAvRqnD32UHJrHkLkTqkdKSw9DCq12cQrTo5B26lK/I9IvpAwY oQ8xOpKYkusM8KwuxHKM1WZ/GR1z1HXzUqAYf8NyC99mxa9Cb8U+8k/vXbfz qPAfzgfKSPFstWw5bsI3mBb6IXbjWeV62ZG4UlZwctXkbljMRFu/2eDZX8ef lzXVX469OS5Wb0KV/Xe4A8NrF/qyvPOH130yotUzWHu+zu8t2HnqoQwrkujV 1iYsnr66amMlxFCbYB5vLqextECfIltV8qbkr72DmxtTkT3dhmw6K0L6X0Xp 3n7UGYw0Mp5ihD5E4tHmDxC9ZOD+pver3u3AyMNqEz13pdAHbUdmQHiWQvqG DvTF12/6HsUNolOYHpfI+pBjIWVg0ZFEeFjsBq26ynfydh5b/+QRz5ouoLbo AWR94CjJ35BiC28XRLZhDUfNBFwUhV8nX0nGrfgvQzmOgQu/piQmJv64O+aL BYNf8UYW+L89eeXWfYmJCannM7NuPeBgYYofXYxnaB24BQyaJpvWgRx7c8vW w8oR0pcYGF4W9OW5x3fOxrVu5J3/BBJUW5NYdOxyeWtLwjh74iRJTSt4UWt2 kxXKCo9ODzUmwrD2lbMfmq+rRW9HZosfKaIXvDiy1I4UENPW/mS38VeS2qfe dVZeUcl6aIa+KXby0IdlhoaAFskkD74dSlt6vVDkeeUlUIPpUQtyLKQMxC94 ob0U/KKLJQ/WtHWjxkEtmooEoPWBoTB/w3ILPzheDs/OEHyQ53W2ApVfwbcj reW4jUyUqp+XRSPdKmfv3SN/sf+hzYsWZcavHtwc+xU6XeBIOUpgZNibWxkx qx2RnBEYXhvo717aOKarD1bh/XSn/mt/uSnzvUtSbW3A4um7trU1Q9vpcMz0 K8pejPW/FJoVrxD0+ivL+3uQM8S3xadJWWK9ArdX98fnX8/Y6yJdGEecDi/i 8DB9Wh1KIc3QNUbrMWq9+uJjLiRzaql4zzP7l4Ip9OEw59Y2YHrUgiwLKQOx t+qMhMmX3j3C42q5KcOw91RVRw8Q+jChPH8DaxtkRI6sD1OTQVleZwsoI8W/ GNNCylvCcSNTanHEcr/1D7P3Te/lo8MMdkCXlb9Kqzkvw97c8umoTHFOADC8 1ZF3dH3fZ7Goh4d7twW7sh0hhCFRtXWl1abbLmttcWh5pxzXT1q5rkxHA9Ki 12euf7+hxjA9fJvMTRVvwS++v6YDrosikdYBvnV19AwnDiXdja9wRWnCUH9U A41NznfcDfHFhUIfVqwkv+xfCnpiP3JX6BwA06MOZFpIGYi9VaelGPHsdsTI JlJVYTWEPgwo0t9gJunJE/ogddEdpQGFCX3wDiHKOW7Hxr5A+ya+mSrWoaal af6IOzktkHxvzlRu56mtpFJgeK2Sl7S4Uw3srkXMuOOKZNXWVgrYnbtjl90w 3Cdu4Ysza6gdobffOnHSwx2J6V3QaAPfWJd+T8Qr45WkiG9lt11Q8SjH+5MH B9VB/qH7H5L7Xy0KmZCuxrABHvqopVmZ5ej7kRKL5uxCs3bph49aFDYzS3kp H2B61IJ8CykDUbUpGGaXX2nVxbkh1CU86ILSSsdCO8UlhdeU6W/oTyzHknkJ hHcqYYVs/eYwHTBMjYp3CFG+cSvOiWpF32kKLkplotdnfj0US4PUaF96Iz5H qs2s1HtzS+X2gLkJrtPgU4nDW1ZwMf77VSu/Wjbr43FVjBgYGhIc3L71a4sT 5Nki6P/Y+w7ekcYd9d/koLhHpYTV1vQmX0barjgteVgq71L0jA/HKYS5q9It vHnaS+GFlv3BYUiwpDvVFHbZoOT46k6G8xdtYJfYq/a9fxXFmamJiScvsfZ9 xtoHS9xYGQ99+DSLuSXV99gDcZL+NBEr+DOqN1JJCpwViMod07NzSOhDRjPB DH0IDGmSAi/YzFdmyocTmh4nRb6FlAGjI4mwpZV2QMyvtIp2rK++0AF9n+hg RW6HoFx/A7d3hqcjeS3VtcRB7o48KabeRyEhRENrPDnG7frePjR7Irgo1Sol j+LeaYB/jXSBKWn35mTKMb56qyEnQUSUN7yWhdVGZJJNYN4zqhe+4a7jDJB0 1dZ/755C12CRSX5WIa0GzVjm6mN3yDl0fGpyoPnKahf6KL2wZ5CfGzc/pJI0 dnac4dK2PxK7qUpKUSD20V5o5QXD/te3RcxNdc4RPJpEJrHIiqxmgh760KCA AUce878a/ThAU3PYqlxFbnCcz/Q4J3IupMyvpu9rhC2ttKa0vE5s9ec2dMRu R/r2viJDd42k2bspGEX7G5Z7GWFWgIWywoMjAjRa1C36d8dMAX3lwcF+xl/6 Yu8k3mKhjJY6Aq9WPf/smfoU3aQILUqtBoM+G/ZzJCtHknRvXnpqNb5UVi02 oWt+Vfk5LTeUOLz6snxD76LMs8e/CDNF2MSt27IBI3joaJdMqmprxsmj4S2W xwnXX/jhTS83pAy0LwRGW5ys0EIfnJJ48T7Ojp45Qsk580lzd85+iHFP6uY2 cavtc4KiAxH49sfqmW/FqW87NUSRZwW/+LiAng5NOubIs0DCw9egif9dEqBS gVMSKtfdQaerMpoJeuhD2Gls8b3oUPPE16D6zVZm2Pdy/X0tekCrmh5Ph8zZ wbpKF2SkxKxa+d1RQfKAzmd6nBJZF1IGdMEfrhmSDLC3jOeSglW7qPIQk+6N s9tQp0Lx/gbjCpKWU93fNbXKkfTsM9tO40BDX557OuGbWR/169q+sSd6usmr vcI/Xf8/zBaUlZSwLrYWQh/6hzdSopeM7ds9oJ4b8qjbsmufySu2pN1lvz9m oNsDTT8hfo89aYU+cBjt3iT7Ign35jQnhIDnTFMzih5efeXevk8bDZnodVvV QB8QRzdHk6zaOue7D55hPHhvn2UXXGz2VwM2B7hNAKyYVKn1+3by4MK8dt7c /RACcvRYlhHGWUA13V2JFBo3cSxL8ohnzd/mWO1ZUuDxhcaN1SpwagDLzXa0 SoP0ZoIuHS/oNJbmB+pQyIrjdq4uZHmUXTk2N1OGkQdgQgpzwPSoAtkXUhq0 niwEQuSOsdAHr+jig7QJNak7cZhCggAYhXVqzxrlgCr8DaZuIfKbvkeKZas0 fUsPNy5RcYySzJ8j33rFU1P1G/17T1kYuz8xIS5mRtW/eDzRbVlSfmnhsUVD WjxZNc6dd2bbfMFwoY/V52/EfxFW301bv9ngiC9i44lrTu/eTFvl5vq3mcPa fyf/wkx/2riJL0YkQff5aqH8DSNdY65I8T1S7c31lRcX9fagjdXL6y67nP1V 9PBigUfZcv/o1sfRgXdpqq2ZYiaImxPu7PDvhUqdOulQvzjVKpwW3NrUv7mG lx9SaTosZvGBaR0uqunsSbz+fFscWn5hVC+Rlzi+mJZc0X6aQ8DDg7U/2e3I IJ8MZgLzAwVlfdw/Nw1zAjmcBVCBCPYDcapGW8gpPJgeVSD7QsoADykjYVFl bInmE2e7s/4/T5itdovu+++pL2zA6KAqmrSOwlGPv4HNMSRVZhGZ/eKJRu3P 5vaHen3W1s86PmlY+Lv8J/4aNiBlBWcX9vPQoSGfzmhj36tKGRF3Xdc+b/i4 o3YTV6XnYz/28b24gc2Jcrc6fjOOsTQ6YY5bw5Yx18U8LLGQlJRWieXgoNr4 l0nkT0q0NycTiii8akw+Im2XXh7oC+5dzcrMfihhQEbJw4sLMktUt2UJI/Au g4yzDSSpts45O6u1N+Oh+4evznJE316FQpUwcwl9FGTOa0zua7QoaHSaSrWS ySJTS+tp758b9mhsey5Gy7PQmMuWnyEF/8U6WCk7EPGk8dscHM80e/iqPtTD Q0kSnXrYiRxmgnbexzcVsKLs6EetTRepWlj+tfWG3Ys5FYhw046JsZUuXFEW 19PL+BUCqtHB9KgC+RdSBgx/SYj3iE057tFFog2o6Sbc0ZA9HLeNyoCxpXLu juFG1OVvFN1ZG0RbwRrP2CNmQJFYIZ/hEw3GWq96dfswNc9iNEoebX4TW9Ft r+eU0Af54RqDN558aPFxk7SORtN6QIpt+Q6LIke/8ZvzxNpZWcgzIom7WuOC fgIXPRuIvzfXV9zY/XkQ/hwc2Lq0OsrIxCTD7Xl4hUylB9zEQ8nDS2aGE8gm 9CGqKReO6NXW+tzflvduTlNcrm6pdGXw9Ei7T06pVHbVul5Vy87R6aE1hUyJ y3E9WHPyqd2ZgXoN1l23+C6y/eVT4pWFUtoUDlbON64wKmu8yIQ67ZVxcbaK PGaC7DNoQIPqt4nN5XwF2nGAHSdlOHggguUsmOpEIOjkC0yPCnDIQkqHUSAs KAGMiu9xjC7SgorohanbH6hRN4ZRYuZoOW45UKG/YahGwaa8Jxp3KIfPnVte +cKBMYFE3CN4UVI+xwl8IybcEPewlVCBaZWwaY3i9SM24jBF2YtNVa89Y6/b vsPS09++rqGNG+e0lmrIi494kW5WpHau5Nkkirw3Lys4tXhoIy12OW+fUdsV FveorMz84i1GWqhEfUaUO7z46ZVkIrqWKCj0QevUhoRXW5dk/DSxjcWh24CZ x8H5tAAvybcr77Tg+uLW5MPSeL735Q01qnwYu5ZrtIHdN57KzGLlwq8piRh7 t62LWjypSzMtq+NKE8erJvs0a+/b4uqlUNaco3St2BhWGPU1XqRR8mBNWzfj YPKKA4iGbGbCLKBhgNXTY5CXtLhTDdMfcz8LoAIRrNkXWG1OmxW/crpJCjA9 qsAhCymDM2swoVNheebUiQO3VSUndrw53V3Fen00vQIHGyk5UK2/gc834kn5 PrvsvMC4cMWN3Yu6ershT6/+a37mGvcwdQQmwhS9Nl+udknNTRlmek9ZKkMx I2J742nKU7Kr1NQUnzGPW5O5qUJLLWiG1XxlaZrImJFnk0id6Qg26Plpu6aF NMD35doXOyw7obg6F1qfCDNeaM5p8eP2yh1eC4VheVBQ6IPZqFpA7WdR3tHl H7atSb+cDgV9tvUqJBtbhcrQs8sg/rnqXQ9y1eWUx64k6AZdCGwbJXpfACt1 H+Qpnk5UFVD86EdYJwKBkN6CqqtdMCdKi96MuOrA+S6jmTC944hrRVveoS+7 1jGdFPLIgcSFPtiyL7AabQE5MGB6VIFDFlIGVJNrJDyiW3JksfkA187oIr73 UXcSEU1dx9Ha0dKjYn8Dqy4xznv/VyOP89zplNxK3zAyyIsIBbT4lFUy1JKH l+e1NFkH21YJC2jYrgzFjciko7bsnCn0YV+kzlIB0jdgcvxFnlYK0zbxH/39 xlGNzfNBak9Ajk1i2eO4PnhTYMRe62pJ8aOMQ1tnk7K32OsSODIyNVekALEo 7YTM0KyJzXdWIEoeXlxhWMq6LQZKCX3oKy/MC6U9GV5JXCV3r6RsWNi3Oa2G FBFRqaDIZEGtD52ekmNRrcjBYitgoXL5xMt+lBlrwXP+sKxU9L4AlruqwsR5 zSXod4mHefvuuCPmpe2H3MaqvNoFa+/i6BiOnGai+F5cf6pko+28BPbjufLi i9EftzFOdr6eHrUnYnPqqBptARL3YHrUgoMWUhpUApiwWWe82qO4d8hG1XZF F3Gz5dt7iorjHpWM/BkHq8xJjer9Db0+c8OHLWh1/d69/rs9q4DDDNQ/vJGw bHLw/xGvj2/YaD5SJ3QF0ZC15218PdWnjC0qbqpmZXud8YG1s5uYRdQI6VC7 iV/Z0yQXpyDjyBf9WxFbTlMUHZf8klofWPRNokHV08Dl31IPJcVvWj2jD31D TVKr/tDlPyQeP2sjRyrz3C9JCT/Gfr1oxshBreu6MS7g1eqNRQkZhSKtLKK1 EzJTnBPVinnPwkvU1TW8VOBR3m2CY0IfxX9lG0f2j7SUxIQd3y8Y0dWHMa7u qP+Xu1PPs2YGXk0/mkRkAy6ZP67Xv3wt7Yt3/aEr92b9rWYnQR6oVVqD6r+0 6NQ9q58qvbBnkJ/hUSlQMsg+mOWrgmENLJg6dVr5sGE8a0iRPINv2B3mWN5N DdcK0p9UAtTirENjDzsyLVtuM4ELdVY5XZ9uulS9r1tw8dBC7ETg6eBBWzMe 8Vh2caEPlvAO3uzGzlNjMD1qxiELKQOa6J9wOdw7Jz963jj/AiL2VRtdLMo7 +l9TbbVO025KjNrFch9vH8/JhqoXp/E38k9sHtGMFtr1atXz0+h9F/NtbuTL /8k5c3hdxJhOxDqrQT7N319/KJef44j3jbWqYYJxbOwLhs+xBTSoogO2Mha8 PMF+aRp9eU7yur7P4jOgahCaDYlcd+TyPZaUMeKcPXb+0Nd9DX+t9W8/Y+85 407TLHYqiiK3TUTfJFrqToiM7snGYSNW/Hjqrlj7E1HbCeHkfPfBM8y7F+ow q2l48dMrieu2GDgg9FH+OK53XasjKi5+HftVLcvgeXIAj374NBn33VHa3C4v ytxNtDsXmrnnaBjC8kKxJ9Me6/JJaapX2cTEVWFVNlGMIlArUBtDvk06BGOQ GnOwzqpQ8MVZRhUmljuRy0zo7/7xzXutzAENbaNW4/67fuexs5lXr+eXlOVn Z2WeO7Fj3dLJb2LHCt4N3l22O5vv1owS+mAN71BavvZl44DpUTsOWUjpiL5n N+g9GgKMVpOHix9djP9mbAdjbTVx0OYUSUQ0YeE6nisznfZlcSZ/Q/8wO36u qSGFGY/abd4ZNmPx17HxiUnkITIhVJK089sVcyYMD/U3/Xxv/94zV3NNeMB5 9MN40zdrUddpGTaGwf6ABmZEWDqmUXWRROwi5haHO9c/vLrjs8HMcat6Oq27 D53++dpt+xJ/+l/6FSogv2rJ/HHvdPY3F056N+g/f8NpxtBdTx5ez124Ijcr 6gh9eNRt+dqbQyZHrNz24+mboppecdsJMSgrOLlqcrdGhnekjm+3z7bFfhgo UPhITcNrUcGtf3gjJXrJ2L7dA+q5EV/atc/kFVuELBrV4YDQR0le9Oui2gIz dZ5v09nwdLbuSb3CFlAFqiH/1LaP/mV0tLT1W/T/4KM5y76KnDa6X6vnyH/0 DRu76w8+57kKQVRXxF4jSGXLeHgFvx+xbEHEkNeaeWml1V+iDijZjkikvAEH d9cVCtVDRPv02O95ql+KUiLqKDNBxDyj+jVjf2u09ZsPtvTQOEEJfbA1MsBT mu3MxgHTo34cspDSwPZKSKSEOv3dSxvHmLKPiI3k8MmfL12xIGLce30C/8+4 h/V6pevH3/zIO6KoLGhFGSoXwWbD+fyNktsX9i417dfswOuVUBEME96IkDXW jck32f6k/XUxWDoiz3P5klvn4hZOsn/cqvDr0Pvjr+PO3bM+dCVZx7Yknnss sWenFFUEByFyO6FqKHmYR+bzEKP9grNrPpvBK7hXn78RT5yta+s3GxzxRWw8 UU80vXszLZHv1GYOD10gm7j4rAasU16UlRy3dMrwsMDnzEK+Xk3a958w57uj l8QqnXM1Sm6lb/lsRNDzRsPn1eK1UYuE7RPZqPh5iVlazQEZxaatOsthirKh xlCHRibwyfkQrUTUcWaCwLAmrJhpjN5QVO363+gz7vMvYw/9ki3cCcOEPlhV 9KmUZo5ncICqkX8hpUEr0BZT97jgj9Qt//2k/2sv+5pFFXRPNO745tAZC2P/ dz5fxeFjC6h4MjGGtSZtc46IjqKQ/DUpL8pO+yk2at6k9/q89mpTL7zlQ9W8 bRPUa9iEueu2Hbt4SxyPEZ8zbLHuf/ZMNTcoG5n4yMYnKSPC1mUpc6FZEkqY sqiNcUPI76WOr/UeMOnzJTG7D4mcvcAXV94kit9OiI2Dg+o4f7srE5jCsK5r nzd83FG7iavS87Hhe3wvbqBBca6O34xjYh5tuPKsBgAnx0F9o0jMSlz2Vz4q EFNitgYF9E6ymYRgBVFLRB1oJmQDF/pgiZhRO1CH1XMBrgkm9yFY6dQlwXWo 1G4gAFnQV2Zs+bf5pWMLU5jeULaoOKVazBbDpIvHytmKwuG47iZRgnZCLBCd GWvJUMSkCKgKbgOeNQZvPPnQ4h3Un9vQ0fAua1oPSBGvytt1ZzUAuAAX54bY 6S2IjlFsTXoZLgmhYkeo8eyD3FIpxC0RdaiZkA1KAUCHJh2zGc7AUpqduz0E oDTwbDpBXZVdFaz7mAMME6BGsKg4W6zb/qh4ftoEo0SVtvYnu8ttfD3ei7kW WpbhQgbHZTeJUrQTYoHQqBGaN6IaMO+6yt8LWXHc+ptalL3YFCi3swW8Pbjs rAYAl+ByXA8k/rrBjvGUhF2xQcmUHJr3PF9vR+QSUYeaCZnAhT7YNkRlByLM onG0U+PCnNTEw04iiQAoE/xldHjDa9VBnGx6mdcy+dMRATWCiTfqdCO/sSW6 RUXF6QENfcWNY/uO38JyLx+khtu398EUViVun608XHSTKEU7IVYMQlKuYlCw VJl64RvuVv9OmeSSxAwKueisBgAXwdwEDWlR2MwsWwcbonKbLH60u+uoAqGG jrO3I36JqEPNhExQJ2vsNSxUfoi337o/qX8nDwflbBAPuCBYzQtbswmAAdHx nPI5nbitLSAieKzb9t4Qr5qkzS6Dfekac4X6Fyz0MTalehUUvDWYF5pz2hWq EShcc5MoSTshNsiiZrs029UPVsGNJh21UU1k9mk1IqqguOasBgDXwVQEIavV NrsfKo5gZ+19mxw3DzT9BJdxk6BE1LFmQh4wl5UtYkblhzDbQxAhkeayNogH XJCK48tbmN0mF0uAFwgt1c0/aJcqRYkAmdFXnt/Q3r59SsbcYHOYYtkflPdh JSpenBv1Cnvog/KgEHph6vYHLvauu+ImUZp2QiyU/BXduSZqErrfNdLgkkc8 a7QCtlNlcJkd+jmXEFxxVgOAS0FlLyDfydvl2Q2bD+Vt66srmSsLu5E/wfOd RZyyZaQoEXWsmZAHKpGDLQ2+MHGeqayHnvxMVHnX4N+DGADs5PGfiwPMfV5Q aMxlR9+QStBXHh7V2DxustkjQPVgHV5s7VPunPzoeTejraS3oCUytV569wg+ 4TAFrWodFSz5U9OqT+J9tZ7k8MYVN4nStBOyDRlh85u+R65eZQ7F/lQZ6pMI 1dKszBLn+11xVgOAq2FOYPCus/KK9IcWxkN5NXcdzU0NJ+0Z11QZKUpEHW0m 5IBK5EBELkeXaZeqCzfdPDr6WWrX2WbFr9R/urilM+LZgxgAOIFFOKHmxW4e pE2oaXp1uWbTAa4MFTSrvhtywa1N/ZtrzFtWPHWQiFVqLfeV5rqG6rIu8+Ij XiRttG+jyNOumE3oeptEadoJ2aascN8gf5n8cyVgUDVBNl89I1RSjZgbCteb 1QDgeugrL8wzdqWX46DNKNqg2h0BNlx+4zfncbFFkpSIOtpMyAEuoU/4mS1i blobkZyzs1o/o20a3KmBFZt1dkY7Pj2IAYAH5ugogpoXe/l79xSqT4ec2lOA +tGf39KFnDmM5A0SMu7h2TSkPWkbaAmBhGK5ztophvGowrqxLv0t7h1P0h41 mZvqoqVZLrhJlKSdkE3IRFbXyYKzP+EZexbMPC4huOCsBgBXxCxAIb3ih+qF PoxJMhrUNGTXHS6/QJoSUYebCRnAtelI/MNXZ9HP9vLTdk1s+4wmsEvs1bIr i4zlSOaDvNL0LT3cWCqMAEBEiFCb+RXm2vzaBcHlInWQnQVwRK+/sry/B7LS 46wg/cAnIQ20vi0+Tbr695HFLzK2ogV/Lg96xqMarfLCw4tbGa7ZM+Z36hXW l+ckrgozpBdqA7qs/NVF4x6VLrlJlKSdkA2IRNYanL1NNUMlPLMl1WQuDDU/ CxHbgbngrAYA16TkWFQrw2vu2Wd2hpT1hEbRBrYaSYVCZh4a4gxD9mRz+1tp SkQdbiZkABP6QC+0DPQyZC37dR0ZGR2XkJgUv2n17KGv+7rrAkdGpuYa5q4x t1mDfAMmb4yPj1na9zmdV9iMdPVEewDVYy4kJCKNkG7EAiYXyab/DABWKSs4 tXhoIy1hXtuFR8buN5kGN+QbNnbXH4+IrWNF6cmZoTUNJjho2jf7d8fO6t7M EDCvxump2qXu/jzIHSGPmiEfVl0zMSFu45wBHYgGzB7uoRHrz+e7yobUKi64 SZSknVB1FNyO7tkA1eDubaqXkgdr2ppSZd6MuGojXxIXr0MoaO1vYt2CC85q AHBR9JUXF/UmD01sdVwViHGx0qhUqvr+rqmNyA04Zy13aUpEFWAmJIcS+jCM xs3y3NMJ38z6qF/X9o09q6brE43bdXl3auSOM7doB+tFeae+XzKyR8eqz3g1 aTskctOlApf2UQG50VeeiQgxv3EgdmoLfeXJKabwpg71i1OVBDOgJAoyjqyL GN2zTVMvLXq6yau9wj9dfzijELeM+vKcI1tnDOweUM9NW79J2OhP46+xHPaU 3ErfMu+jfq+97OuOtPWbB781YPrymCPXHoFFcb1NojTthKxS9jh5bGsiQWlR Ur7rVEzmp00wKvLQU2UsweugRa0qxc/aXGNWA4ALU3x/c68Gho15s5USZX4Y Mx9UlnVgxCihqdX+e/Qp7m1CJCkRVYCZkJzclGHmcbMd3gEARUEpfkAmg02o DBlQ+QAA1cAIfdB0xZ0VKdoJWeXvCzMbuljco4oHqeH2xRww6TxNzWoK1vhx cFBtCH0AgAuRc+aT5sQJu1ePSWlSNAElNTl1aPC+O+wfVhTmuFCTjjGZfOJC kpSIKsBMSE3Fz0ueN/1GterDAK4K1eoFkhmqA0/5kF5sCgAAsaCHPtzcJm5l S2VQP9K0EwKMYD7t2JTqBwnXhhLXaugr9/Z9GkIfAOBSlF7YM8iPCFY3mrBZ 7A0yWfSh0bQekKKuRnD6yrOfd6spTMtdkhJRh5sJ6aEkStzRpKNwcA6oCkJE 0ZsMOWo6DkuVIp6sdqiUDx6FhAAAOIwH3w7F9oiukpYpSTshgKQ4N+oVdp8W 04YS22oUZMysh0c+0OB49aWoAwDAFWPXNp0EuXbFuYc3LN96RlWK6Hp95vr3 G2oE9rCTpkTU4WZCaiiJErXqwwAuTunpb183nf8Ff3UaWr3QqChNGOpvfMFb dN9/D7K6AEA9XNzSGd8letdZeUVF7gVfpGknBBDoKw8O9iNnU7UK/5jV0LTq k3hfTKtRYnxqJuo1WHcdrBIAuATG3A8poh9qIy9hXmth+R5GpCgRdbSZkJy7 qeFa8vepUx8GAIw5Y4Y3umHLmOuuvZ7SKUyc15x8vz3RuEM5jr4dAAC4QHkX JBrP97684QpaPVK0EwIMmKuzWy45bvUDefERL5L21LdR5GlRM8iL70WH1sXn s7rKwwEAEEhJxk8T2zxT5ZGOPaSqJA1RqTizoRNC2oAuK38VPAjSlIg60kxI Dy70AT0yALVScGtt17qutTWwh4eX57UkmzehgIh9Lh5jBwBVcj15eD03arPo SudlUrQTAirzL8z0JxoKoK7TMiyyJI1J6aIcRzIoKzw63RCqMsU94KgCAFyR wpzDMct3/q6y/bKI6K+lrlu/5Xy+OJkSkpSIOspMyAIl9KGurjQAwMC8QdCh njG/Q9lLZUXpiWlB5MvtFTYj/TH7XwAAoEAKjkR11GFH5ToUErk/F9Y4gC+F hxe3srSV+vKcxFVhRJtFkY4jcYrykz+hxz3U6TMDAAAoC2lKRB1gJuTC1GVM i0ImpMNpCaBm8pIWd6qBpO0erh7u75rayOBhagM778yGqCYAqJj8E5sG1cdy PxDy7zc9KdvVVzmAJ/qKG7s/D3JHyKNmyIeRsfsTE+I2zhnQwatqYnm4h0as F+s4kqTg4k8LujfTYrNXvT4zAACA4pCiRFReMyEnObvmBtXV+HXs/eUJMEOA 6jHv9zXtB6bkqfWtFI7+j73veJAna88uOw/NDgBA9ejvXtoysacPnv7h3aD/ /A2n70IABOBDya30LfM+6vfay77uSFu/efBbA6Yvjzly7ZGIhpP4iul9G+GT 1sMrZOqqdNX6zAAAAMpEihJRGcwEAACCMLaLIjwsn2FRWdYVf5ydnLOzWntD RjEAOB9Vvs2KUV193OgBkJmrEi/dK2H/awCQhfKi7NR9S0bSJ6qHZ8iExYlZ 4DMDAAAAAACIBBb9UFmnaVEwKjlD3AMAnJaS2xf2fjG9X6vn8CICn36LMiD8 ATich5ej/t0An5l+HXp//HXcuXuQngQAAAAAACA25uiHDgUvO1Lo6NuRj5K/ 9g4mOlhp/V+NPA5xDwBwavRleb8fjY2aP7JHx8aeGk3H0WmwuQQczv1TE+q4 aes37TLwg7nrth27AvlIAAAAAAAA0pJ3eE3fpt5WGzM5LTcSByLkGzYaOjwC AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAMvL/HLne1A== "], {{0, 115}, {1449, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{459.4604166666646, Automatic}, ImageSizeRaw->{1449, 115}, PlotRange->{{0, 1449}, {0, 115}}]], "Input",ExpressionUUID-> "d2f45319-fcc8-4eed-8ef3-b35acc21f7d0"], " , 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.7468396501310425`*^9, 3.7468396506117897`*^9}, { 3.748965853696239*^9, 3.748965854864091*^9}, 3.751405623845007*^9, { 3.7514057163131647`*^9, 3.7514057265109367`*^9}, {3.751405801541836*^9, 3.7514058253792677`*^9}},ExpressionUUID->"d418a05a-a735-438f-a82d-\ 7abc39c84cb7"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"AlgebraDDResult", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "11", "]"}], "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"AlgebraDD", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", RowBox[{"Bb", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", "==", RowBox[{ RowBox[{"Closure", "[", RowBox[{"Bb", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", "-", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"I", " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], " ", "2", " ", "I", " ", RowBox[{"Cmetric", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"Gh", "[", 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"}], "}"}]}], "]"}]}]}], ")"}], "//", "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}, {3.75140559796917*^9, 3.7514056012394543`*^9}, {3.751405734861403*^9, 3.7514057700590773`*^9}, { 3.75140580373523*^9, 3.75140580408214*^9}, {3.751405838285906*^9, 3.7514058501288567`*^9}}, CellLabel-> "In[159]:=",ExpressionUUID->"76158874-97d0-4920-93b8-3313abf66a0e"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.7514057804146*^9, 3.7514058548668003`*^9, 3.7515668872802896`*^9, 3.7517271858232107`*^9, 3.7517302571283493`*^9}, CellLabel-> "Out[159]=",ExpressionUUID->"8d3ff499-e248-49b9-a3d2-19a8bf3b56e2"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ FormBox[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnQl8TOfex8/MRKqRoVIvUlWi1tDF1mtJel2i1aBaFMVFtLGUlpbSxlaa uiktcdUSlaZFqvaIkkSFXqKIIoooCSqWxJKoJhrZZt6cOTNznnNmOfs28/9+ Pu/7eV+dzJx55pzn+T+/5////YPGThk4To9h2LSa1f9rYMTMf33wQcTHgx6r /n/eeG/axPHvRb79ynvTI8dHftBlrKH6H2dV/88fNTAM/7/NAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACQVJbm7tu0+uvEzFsPhbxN 2Y2zO+P/m5B66l6VWFcGAAAAAAAAAAAAAADgBZT9uTOivb8OwzCdrvOojBKe b1N+dsewQB/MQufYTFBoAAAAAAAAAAAAAAAAWFJ1eGkbzEYd3bJcfu9SnjSo ge1dDNjgRQUmka8TAAAAAAAAAAAAAADAU6n8aX49q66ix8Jn5VbyepeK+/Eh vnZ5pt/6CyDPAAAAAAAAAAAAAAAAsKX4+vox3RrUCugw+uO0PP7+M8WH1gxs 8Zi+UeuxcT8XQXUTAAAAAAAAAAAAAAAAAADq5OGfebk5BQ/4pJiZim9funSl qFz0awIAQAPgPm/duyfkCHLyBwAAAAA2wKIDAAAAeDom8+m1L2BYROp9Hn/8 YNMk7BG+JlEAAGiam0fffcoHw3T6dj0TL0G0DAAAAEgJLDoAAACA52PVZ7qu OsPjj3M/64kZQZ8BPJOyG2d3xv83IfXUPaiQdST/5OwOAXYvf2PvdzIKweYN AAAAkAZYdAAAAAAvoWD/KExfZ8rGUq5/aDInDayDNe+fVizFZQGAkuBJ1IE+ RBzYOTYTFBoKxTfi+za22O/7tA1uriei5T5TMv9S+sIAAAAAzwMWHQAAAMB7 KM2LaaXHXhh3vIzjHxZnz6qvx3pOP8+vyRoAqJaq8qRBDWzHdAZs8KICOKaz U3x93eBWOsvAhCxMLXpQtO/DsFqWkQqKXJHLWecFAAAAANfAogMAAAB4Gcem tsN8sCkHSzj9VenuqHoY1uzTdNi5Ap5Gxf34EF+7PNNv/QW4ya1UlPxvanfM GienWXsjVpQcnGGNlp+etukuJBsBAAAAogCLDgAogqmy4PDWOUNfCq7vo2/U PHzcrO9/u835TUoLj22MnTKIeJNWIQOGf7r1GJgGAAAbLEqLrtao5QXsH5mH t+PD6mE1OKs6AE8qS3P3bVr9dWLmLfDEk4PiQ2sGtnhM36j12Lifi2ApIbCH xH6P9F6cRhkW+39CQ2hAhYgxk4A1EwAAcgCLDgAoQkXxsZiRTQ1Y58joxF1p m2b2x581f2zi3nz271GWvffD0Mb6gCcHf/xFYnLa1tj3u/lB2hsAsObBHzHB PpgvNmJHHsu/uLrm3/UwPRY6OUtBtcBUUXjmYOKSBRNf7xFUS6frOi7TU6WL sj93RrT3x7N7dbrOozJAElMtd45NruuD1X0iZMjbc5d/t//Cba5Vg+rFZMr5 amQ9fIGuMWLj2XLHF1RHy7P7NTDg0XLfhDNOXgAojhgzCVgzAQAgB7DoAEwU pq8c2CJA4c0IO/BzjRWfThjYp0OTx4gFtHbz9i/2HzLl0+XJJy6XsF9Kb+wf hWGBYaO3StnC7GpCZJNHkecOtyrlFjlYQgW9MSwyNc92nSZz+thmRC5c7/gz kJcOAIzc+WFyfUyHNWw+L+MW44sL02K61cA46TniUj3LJX0xY1D7J/UYSYNB C7M9ZzNMoerw0jb271kHGmapmMJTs1o8htyVWGDXQR+t2XLqtupDB/dUx8lr 3mqicx0nc3oZoBAizCRgzQQAgAzAogO4p/qnX/tOG198IQqNPazm8N9079KW j4e3qVl9qY8069pnxLiJOGOGdX/qMSRWfG1hSjYrlebh7c24HRPbLRufC87e /Ioe67Q4gxzVuxmRxIX6YXNPVDC/xZV9o+sbHB288ba/OHrslahLcLoDAIyU 3d/8emPM8rzPPXDN9VJYdXX7J91xZw6d/5tfXpXdGbg4+0BsZN8gP2QDXLfB S+/F7Dx93YPX5cqf5tezfls9Fj4rFwyZ1UxlaV7Gzs8jejXwQe5SP//QyTGp ufc1upe1SrJsAmB7tFw3cOYhSSIHgDcizCRgzQQAgPTAogO4w/6jY1hw1E41 V7eVZf/0XsfHMf+Afp98c/jaX5QVszpcPJA4/llb13hDjbaTVrEq/Cm+vqpX PUwiiaaqPGVkENZ9XCaaJ3Ni5XO2dX/KISYxDN9RPoU983JyPj1AODWzk+Vd dND8FwDYcu3guCd8yL3keWpphqmi8PT+2JHdjZYnS+/suZMUXH+e0hdPZLUT 0HjwgrXHvcGPpfj6+jHdGtQK6DD647Q8L/i+HgGuJY6lqTTG0GnLs4q0tqMt zpnfzIfD6aQ1cFK6/hFwRIyZBKyZAACQFlh0ADcg4kyDUUtU7WSSf+LDVr76 4J7LfnWtotjbk1kwDl3I6htZ3lkSiebchh4YFpZwAf23P5b0t+oqDVomXGd4 g7+2f1APc1ZhUVWxua/RekLEo2swAHgr5Wd3j28XYN9NBnZ4acS4CVOmvv/O hEi0mMjY6dXvpSx7dKToyPoxLSllI0GDPvpRs9kIgPdQnLUbt0dDbl2GlVqV lOUeTM50nVbniKnq6v5NB0BLBAAAALgDiw7gisKU+R0sWoHuhaH7C1W8D6gq 3/d2MNbwicWn/2Z45c2j7z5FHuYFz0thY/FSnrWhjw+Ri9I1IUe0Ox+XYgI7 JhYg//TwzsouvlZd5bXoPPeZt6U3lnSs6TxB917W9LrWLBxDxOq/nPwxAADO Md06/8146qE/ihIJANY0VzsGLDR6V4EHlzMBHkZJwZ73rZ1ArQcQklUNAwAA AAAAeCRlh1d00xFxFAvdQ1FMp9Z2xbB20els9is31/z7EbI6oO6yi6ySU+9s m9bUElWKVtSAlzA/SnOWMx1f+bzt0mh5NQ6YzKfXvoBhE/YVOflvR5a2sr1P eOIfIlwtAHgZxdkH4qLG9e3Ywkgc/OOWVi+Pnb+cXvQkA5dTh/liJNBIEZCC 0sJjG2OnDHopuL6PvlGrkAHDP916TMzewfZOoHaJpkXotpsqPvcBAAAAAABQ D3YfBgMWtvJXlZ/TnpsXarnUms36vLl4Xy7D1V5LHYrsdTrFHmcVIFY82Deh A/EnxvCZWQ9EuOyCX7akXriP/suxqe2sl1W/cdwVpuuq/Lvg6g2nRsc3vxpk fR9/LPoMbOQAQLMQLlXIrlYRU2LAsynL3ouXIAU8OfjjLxKT07bGvt/NYkAd FLlCzLrmh7fjw+ohNzPWcOomcEcDAAAAAABggAyitLAXqPx7fZi9l4kOa9Lx +5tuX192d2Une+mCAXv102ssBYw7p6YHWf+w02fp7Hpfc+Fu5mTr4aJeP3RR Pm9ZhTSf0WHBQw6IISUBAKAMV5IGoBtaIzb3uKqzGQHNUX52x7BAvTEsMtVe t24yp49tRqyQvePPiJjjUnYgpjV6P7M5iQAAwDMwmXJ/mNfrcaxXwkWlL0Ux KnZHPWJ8cgQ4SwMAwAmT+dzC/la9I6DB4rOqNxp6WLDkOTTgwybsZ7jmPcPs NpvcFIy/dn3cxJaXMnFvvtArp725xeyXYOAW9xqTWxDzGf2I2ELxrhAAAJm5 v/5tZG4Du29AbK7sG13fYOwzJZPqU5b7WU/rLfdK1CUR9xHF2bPqU9ZrQYsd AABawVrhqNO367E1z4u1ibtn53d+nEMbWQAAALO5/PjX/7K1OOq0OEMTW4FD E57mdB5H0Wc4tZ+uKNk5jKg10Ok6DNn/p8ALR6gqTxrUwHpJjaimwRxBzWe6 r/pNvEsEAEBubNtkAh/9+ARvyZ4xVRYc3jpnKGGH0jx83Kzvf7ut9DV5HGX3 N7/+FObMVO3UzE58lkhGTOakgbVRfabrqjPivTsAOCB8JpHamskbIMWZnony tj7kyV+X44e0r+VXO3TulgKm37o4e3/C8mXfHmRyV7CTf3J2B7xNpMgFpAAA eCqlN1d1D7AllvRPu6f09bAk/8QCon1nQIOxm5g6xVPqofRYz+nnuRRwmU5v sO+XWLZ/YsVVuyuOvvaE74R0XCLNZ/ywuScqxLpAAADkh6bP+Lz3vVc80hXF x2JGNjVgnSOjE3elbZrZv5Y0WYteDpG0OWJHHv0/kEWy4qdsIecjoM8ATDy8 f+7HhLnjhvYMfhJt0R74TJd+oybPjV27df8vufdc7/cFzyQyWTN5NjZxBmvU clm2FsQZor8qsRUKCtvlfit0bf+oRy2vDQiMY9+OA09c9IEbiQ+myoIT+zYs mjV2YJ8OTZDVpO5THXu8MnLG/Pg9x26p3DUVADhC9jYSu+pcBkpu5hY8YHHJ lPxqfZ0pG7lNjSbz0Q86Wf9aPC+Iu1+PxGwjH5EioCYJNZ9p3T9NxAwfwBll ZXy2LuVlDzXxcJUVXstVnhxWz7XU3D0T8yIuAj89Z4+c8SVVn8GafZoucCxM xbcviffT5LnZGQngakJkk0drjNhoE9sL9o+yzGm6zqMyxHf+EhNNDK+V0htL OtbEwmflOp5QIEWyhojVQs4LHCFt8EGfAdxSfHLbe/9ojMoyznHdG0LgTCKn NZPHYjJdXDrYzyKLjd3lIAWrE7y/qi9LgZqM3o3Y4t853BH2aoWnp226C+lY bKgszdnx3wjqnKBv1Kpbl2cboj0uq/+xafuJK5Jy/4IHFPAICjIiCRFYW8kz HEF7WGO+zvtTM5Cb9Jr170XyT354Z2UX21rwzBsHkGRy063s5FQumbRgPiMZ JdfOHdqy7svZ04aH9+jYlHIEjOv2Lw+Y+MkX3/98uogpvwGPGPXYlEPqrh20 He6oBGPngbtE6WvPD5P5RJSlSVx1UN4n6rKMoRRNnxG+mS3fMU38n8dybjVi atSyTWnZhUIlBVP25lf01OrauxmRxAepPidQ/cNrw2Q+vfYFzPkKiBbJhiey PxJmhei3tGjcu7B0wPO0OF9a6j75z6XpsDNzinX3GtB48KwVW/cfOX/21/27 d8RHz+jX8jFnQ+nES1DoTCKvNZOpvKzcE3eTd7ZNa2oZL0naakgE2eaVqaZY WD+O/G/ffhzTRp9cxSn740hMn5a4MoPrsSPmrtmY8dtF9PCurPB61k+bF00a 2Ma6k8X0wT1jf7mm6oGFRQdgwcXPett/wNBVpz1xocBj0kPvBNu+pR7rPi6T x4KBdrzlp/DQOLehh+2aAmfsQONvPMeyCVN2JYIazGc8LMwouXIyeeWnET1a GpmP8XCM7fvM3eJSUis+sKSroXqG9F+Wo+oxkmSbKQxG32/pQKoaxbbjYEIb +gyKX0CHEVPXpGeX8IsAiNmVNjOfWGn1gDeoXdhU+/CiVP5dcPWG0/chi2T9 segzIodyatVnrIKVvHhNxSJX8OQuX6zJs3EXHKb90sJj30aHP0k7PnDIcxA4 k0hvzWS6d3X/hhVzRg8IaY2Ubhkeada55+Bx0xd+sy3zmuaP/wmJrBpj+Mws 7fQSrfxpvr1bB4NALfBItKJkz5hgPImm7mNzj0G+u0ssmWyWcrDXpyWeuO5e cinL+XlB75bWZ8ofSZ9THbDoACy4nDrMquBVLzphuzw18YJMfcEjzyk/85RW kCQcvfP8cC6cmxdqfTMjFn0aeW7wvJpHscGLClgv0oqYz3hmmIGbCm5ZMPJf DWlhoF+9Z8KHTPkkJu77nak/H8nOzc298FvG3rStX8fOHTesQz3rq4OGzDpc SP/Spgt73mzgg98zIZNPq3qXCfoMQtn99a/YgzUW1eiiIvpmlizAsdy3yeu+ mjOki9FxuOs0Grl0Y/qv59yV35z6JS3lx8SvFs6MIO98O4Fhb8UfZ4ijnGAR q8MSLqD/RloBNGiZcF3gAEiL2oeXDcJOhBlRqz5TvVf669yBVCtJG+Niv3T6 2+lb95i5fF1yKguqf764ZcuWLpw5flS/Ti2cKvwq+vpqonR3VD23B4Wme5e2 zBzY1GAbRwPWb/0FyouFzSTSWjOV5O/7cmrI/zFlqPoZQ96exbgb5UbxtZ1R Y9o/7oMZagT/e/5xcWsX6Z/1x1LC0LJuzehTWjK2t0lwLATqrLVdbD9Xx9hf +XxY3v7RuCmSTtd+QOod7UXKMmAVZ/xrDP/mKNtqgtKifR+G1bL+iCqWaGDR 0RxyTqEW0OQZWgqH54AfiDS2f01ByZZkRZLgFBq00LXX9GxkEjGdWtsVw4bv ZN1+VH7zGY8MM4h2D68+569DvoLB0Pb1ict2HXZnRWiRqlIWEwPi0KcAb6oY YH3EZu9WeXqhTZ9RXmm3u4kqpc/c+WEypSFwHd2yXPk+XY7NbMWDzQMaUJ9Y 7o2iHt7P3vs9/anx8w2bve58MYeYE99ABVIb2KHln69F5wmvJ5UZNQ0vKyQu klWvPuOIQzdwrI4hOovnRFRy5eTO6LeCqans0F7cKfgGmUUVcPHvGRsWRU18 d9qXu0/RMsEEzSRSWjOVn909vp0tEujSf+rna7am/S/r4qXsYwdStnz32ftj ujegBlR+xtAP47JFeczL/kwa3gqdQtp9niGVImAyn/ykN7FBbhedrtLdsVPQ mLz9qMNuZ2rSfMYXm3mU57e0VjmBEY1T7l2Y39aXj8by8M76frYdn4bSk2DR UTNyTqEEpPOMQwqHB2GfAzExLNPvrHvLdssL2zXYC6IxrO3nh8l/ryrf93Yw NyMgJHLglHXDD48MM8quZ60d34ty4X7+oZNjUnPvs3//spz/fdgpAJdo7NnR D29vHkxe8PBktSeogT5j5c6p6UG021hWCxR5NrNk3p0NnkeBpsqCQ4njnw1A 38rY89/Jl9n9dnhgTM8YRB3DaKfhWkEtw8vyQyQuktWSPkPaUBDQz1B4UHxy 05uBtilF9fV6SkFM+xGp93n+vaCZREJrpsK0mG41LI9tx1e//Ml5lSJ+yvPp yKbUg+/aIUO2Cm5LXXV4aRvKu0q4vtvMbzXoZkk+9UwCtcm8Z3ig5ZU6rEnI trt8P5Go5sMEZfV7JjbrP4qLFHuQwhBd11EZ0qc6iAAsOipGzimUgGzbJMad oE7sTumYWP3sbhCNACwIaeSEiKXoDrTs0JL2GDZoM4cAAI0cKFKPBHhgmGEy 5f4wr9fjyGbc4BM8fNYuLsoMSf7J2R3wbZT/gDnZJeVHZ9kyLbVQo2EGfYaA tAWmIOeVyLOZdSxnE/RBxdeSJvX0J99Mp2/3clzWbTZ/WvDLltQLlE0Z2e6n fuO4K5pM/1bP8LJB6iJZDekzqA0FgfAGamY0JU/eZDwNQUz7QkZb0EwijTWT PQoNilicVcTwzewhFvKYUzNyueM4EXWKPS7JlPrwdnyY5dHRYJcr9KlnEKjJ 6N2AvfrpNQGpLyWp8y3RO19XTE+FsKQwPNKsY7feb45fc/wW1zdAa0NC/ntc /btbWHTUjHxTKIFduZXhs5Ti2sFxT1j23QZd5w8SRBBnzHh+S9IgMmu94dRN PI3i7O0akdMiS7klFjQ+nlNaDhk5CMi0ZIMHhhkOWx6sYfD72+kp09wgpHsD 1m3AgCB7mbwWzGfMoM9YQGyBKfRKuCjbNWhSn6mmovhYDKrN8n3q72ZOtiqb ev3QRfnazP1W7/A6In2RrIb0GdKGgsCATUgXwxzcuq2T28xKQ1imfVFTL0SZ SYRYM9lSMdmfDzqJnULHHHLwtWMP9WBLQsMTwr1Hk8kz6FPPKFBf3PKybTSF bqKRjZjH9mfhDmnOSdxOQd23cVVoriQNsP+5Fu5GWHTUjGxTKAGl33QdbHG2 NiNgN9gyGTD/x/vF7i0S7/vd/2FSTfuDL8RU2SYfGcMmJe7+cUP0xE61nBvM ugONHIRkWjLicWGGrRyJpGG/91LzRNjsIJlpJOo3nzGDPmO22wLr6tSuTfsF eRan8EKr+owZ70xxcIY9bczy1LfrsTWP271vi/NxtFs0rdrhdYLE5jNmDekz pA2FdYSxRlQ/EwFYpjVmdwuvxbpJMXBLIXaDODMJ76ejquLgux3wWOWFofvZ Rz4m87mF/f2oU0ezmTv479YqSg4tHNGmpqUN3OiP08QIcpygaamBfOqZd7L3 179t/VXE2ESTolabl3bd1tiwSUJJ7vym1LufR+5H5d/rw8hnSO0l0rDoqBx5 plAbZM6nRk72uVF8fVWvekQ6xNTkcyLnlFDrBIVsH0y3zifOHde3YwujX722 YYM/Wr+vgOu1ymM+43Fhhr1tn22drdF20ipxMqyqefBHTDDdPFn95jNm0Ges 6aA6XYc3d6+ZRP0BZR0TDeszZrolO8a1yyqZoyhmlCI/Kh1eZ0htPmPWkD7j 6APwStQlkbR1yyAYsD5Rl9Uv1iuBbedbPQMP2S88iUukmYT300H0euDjLlJ0 dhbNAE1INb0skDoDj2wHxUHMZxgD6UMTnrbeVKIUrRfnzG9m/a0lNx3VBIg5 p3WceZ2DZ88LIedwlbcY8KpFp6o8fVLHWnrfdnN2asIZSG6oTtGilLmpiOLr 63BTVp2+Xe+E87xcRNxDEWalOm1kiTzmMx4WZtATewxYyMI0ETOsqrmxYjBl fdGC+YwZ9BkiScxyelu5j1YOLOuTrm19xozUltoInpfCtrz+qj1W0dee8J12 V3CVDq8zpDafMWtHn5HIB4DAMgjKz67qBakcEaH7j0gzCc+nw2Q+9E4w77oq agih+smw7M/4HtaomH/Vv3KgTz1DIP0wf0l7Yu4V7WjbZpaijUocyaF1MjJg obGHeQwzsv6qPQL3rkXnYcGS5zB1SUZqournz59Cbn5xytxUglWcwYy9J+3P l2pnh/dwtD/4ip7wymE+41lhhkPVlTTNDcnqVzHXcanxan3GZgvs//rC3Epr Lw9KlCDjaqJ5fYbaOA+nbs3oU6yEWbJ1qQGLSNFA1pkr1Dm8TpDefMasHX1G Kh8AC8QgSG3jr2HIXtjCbmkL4swkvJ8OwvqG90ejrSiIT1dxMiFZey5vo0Ox IJ96xjY3SGgnWtH6uQ09bO/ZN/GKKG+paQr3Lgl/Co8A9U3bT/zmZ16Hp/QQ Ts0Z7N616IA+4xbEfEnVcz5nbOJM0MgFma4NbHMT505Y8O0lAWsIReBS8MEn zyz02DNvHJBIZvOgMINe1oRhxqELRStrQiEPWURdxyXGm/UZqy2wfVPgmHEq YwGvB+gzNAt6fADDZ+Uy5hiTGzT6nGa6lZ2ceuyeJh4kC2ocXqfIUiSrDX1G Sh8As20Q5HQa1xzI4Zde1/PdU7wL98SaSfiaz1jOxAVYFFINNAhUuscku13o sRfGHdfCURQF1HyG6Xmv2B1V0+nPUZKfkZqexy+YJH9rj+2lKzt0fUa9dSLe tuiAPuMGys5RzDI3hSHEGT2TkQh+GvKY0Cj0VkYk2URDX2fKRim2+ASmgtOr I/sG+fsEj5hLsw4uz1hiN3mWzpDNc8KMm0fffQoVZ6R14d435gm1h1UOeK8+ Y7UFRupEnBRB90+TK9PQE/QZs/nOurfQsAPzxcbuyWf4G+QkMXDGDvS3xzdu TbTUg0CNw+sMeYpktaHPSOkDYLYNgvw96bQEJfUU6/RZOs/CPZFmEt7mM1eX 9CO/Rt0GL0390s2hoVPop+qqPegpyIh81HqF6t0Fu4F86plTnckfJSAwDjGx JkpUeOcOkZnwRiz6tPYSkNQIZSaR0p9TIN626IA+4wbq8qfSCZ8rVnGGhZGI pbZR6LemCJ5SHqxXlia9QVpBUiTQh7fjw4iaRb3+n+OOSVYy5CFhhtUyGsGI zTgsTSq/Bdt+RO2lryheq88QtsCUBgrWRQSBRxMBvniGPuOQO8d8OEjmdtLC VPw0/FH1hljOUOHwOkWOIlmN6DOS+gCYCdHeiC3+XTs3sfxUlaeMDEKW6RpT D/BxmxVrJuFtzYQe0FjQ1Rq1vIBL3PNgE82jXqV7TLKlqZQTiHQgT70Be/XT a25+IzLyp2cK4VFuKwHFoYicqEmNS3XQ8mf0WM/p51VpEex1iw7oM675e8e0 R5E7QbvdS0kqSvaMCdbV8hmx7mQJ089NnIYIz/VCGmBhWF3/ZTnS3PwFlAic /LHI1kg6rMmzcRck3MN6QphhMp/8pHct6kUIdNRkxPatNWM+Y/ZafQaxBSb/ kZ50ivtjR5+RaTnxEH2G7J9iww+bccS1lo1Gv1SpgbAoH75TS6uV6obX+Zsg 9hpNQrbdFfMCUTShz0jqA2BJJa3lURXl0kCamRC3ZfN/fH+V48Qr1kwiwJrJ voSRX4TjSY3DBKLKHQ3aJEsy9ypJQZ56hhK2ktT5tmQqgyFiNXkoilcl1BDk rEg2ldZmjZjqoOkzsuY/c8LrFh3QZ1xDuRlk3HFIRUXJwRlhfvWbT9x2lkG4 r/y74FLOznEdquc/BgcwFpDWcxakkrmKMifrrB9h7DMlk5j9S4v2RfVrYMDn HH27l+Oybkvy0TY8IMwoO7SkPfUriNO+0y32b62hFDVv1GcotsDOr8GObDmi HqLPOMyTDPbgSE0ZpdCmqnzf28Ga622huuF1iizmM2ZN6DNCfADK7qUvmr7w p1x344fHpbLaWGkVW7WpHf8Bc7I5Tb1izSQCng7H5YNrBqbDwboqdzRkFp/C zUx5QkuGd5NlQe2a1zH2V/I/WbJfBLrZk2e+dbDF2Wr7mTXIiZVIBrRa9Rkv XHRAn3EF5WaQ9rxMDiziDC0vghlq3Sg/0KpkTLo9uD3xI6D+2OU7UlN+TFyy YEyXxrj5Td16/WavOc2x1IgHmg8z7l2Y39aX9vmUTAlpsO/OtGI+Y/ZKfYZu C4zgWJcXnij5bUPgMfoMNUbCMPdOVkhjTfR3J/RVGZ5ZcVHd8DpDHvMZsyb0 GSE+AJbG0AxhgMmU++PXcfvOaa8CRHbKDsS0pj473PJdRZpJhDwdlBRr4tnk eIqt+MEWG9DojpM/j1qgPPU6rGGbhGvOgur8k7M7PK5vEdLN5jeAzmAnZ3YW fnyA5pmHJVwQ9F4ej6m8rJxh70N9fNSqz3jhogP6jCuQfAxtVV44gZ84U/2c Bg85wLspgB2a95T7qlUhVJbm7IqbOqhPhyb4jjXwmS69h749b+2WU7dlOsrX epiR88WrVHtiPdZn+jnpB8/yrbVkPmP2Qn3G0RYYgbajxGTcVHqOPlNA80jB PQqmHHSx0yL7gGARqfetF4n3XMOCxsfnqbJ43A2qG15nyGM+Y9aCPiPEB4BI ZNKQFK92HFJouPnFiTSTCHk6TNmbX9FTvgFXr2MnheGcAqeqsjLpV3HyFEPz 5jNWgiJX0DqMFGVue6/T47p2PRMvVVxc2Jt4md10ujxrQx8f4R06TObsDf+0 /dCazESSkrJbF9M3fDV33NDez7cwIo9VYIeXRs6M3nLiuuOdRz68OCrVZ7xx 0dGQPiPLFGoDnQE0Pgk4cxRhh0haCpn4qt5nXxS0HWZcTh3mS/9wgWmoLLHs RzQmgXqbPuPEFhjBYX8t37B4jj7jaLPsPgKx5ZAbwyYl7v5xQ/TETrWwoCGz aK3rNIEah5dG2Z/xPWx9Xak9iEWHdkur0AOTvw8AYcGhKSlevTy8f+7HhDmj B7T7Px/Kz4HpdF1HZbAv3hM+kwi2ZirK3Lpg9IDQ7iEhLw94/5u9BRzVi+x5 IdQR0D/24XZGbansetaGuePDgqwLqLF5pxEL1h6/Jc0yyqUzNVdKLmduWRQ1 ovfzDe0hXN1GIcPeWbz90C1eOpDTnAv0qX+6bTuj5fw6sFdEdPzmlNS05HUr 5oz8V0NfQ7uI6IwCyxgSvUjwTJvgqd8kJycsGvikwRg+M0v4mS+Z9KWyghQF MVUWHN6yoPonsE0G+kYteg6JmPjBrMWxX86d8o719jD4BA//OC2PcpNTT5ZV ukfzxkVH9fqMrFMoAjViZDXbi4ypoigvlws5efecDYuzuJQdIn1r2gXI2NtF frQaZpjMRz+glajose7jMiX1BbZB7Ec0ZD5j9jZ9xqktMIJjXR7FElBKaKbc GtZnTOakgbWpH8KgkJtunU+cO65vxxZGv3ptwwZ/tH4f1wlHJahkeE0Fp1dH 9g3y9wkeMZe2OS3PWPK87c8En/8yQNVnlJ9h6AjxAbiwuY/WpHg1UlqYGT83 vIltxX8u/I1/NMaodFqcwX6Mhc4kclkzOQc39vSjfX3GAtvC9K/Cn6he1B5p FvbGzM++mGPd2Or0eO6HBCspmb8n5v1f/cNteK+vxWLROcZOr6/h6LtIFDLT K7BQfal6q3utsuB4yurZ7w7q9UIzfwwfxs4935jmkJ5RWnjsu88j+nStfg0e l0avO18sxs2B/uKqarijEEWZ2+a8+pw/UfHhVyv0nQVbMi87toAx3bua8p+3 gn2pNzn98VGl67J3Ljrq1mfknkIRFMgxfng/+6fNiz4Y3a/bsw1pmQzsMdRo ++43astvpxmzqKi/vKpQMMyg95/FkXobYqfsxtn01N1Zd9Q3AbnGi/QZ17bA 5Cso/v8yLigOm24N6zNm86EJT1M/RKUnWaKjiuGtLE16g9zkUhoXPrwdH0YI kHr9P8cdk1h5pOkz+vEJ6jof5u0DYJtJtCXFqwtTZf6+uOEtrXN+YK/Ry/Zl V2/EiF5LlHu7aefvr8u0b5XNmsk5jtFL/cZxV9x998K0mG41MH1wz9hfrln1 BLJZOcfsI3YgQyTa4UXhwTUDn6ClTjmiwxo2n5fBuvE6MQ5GbO5x6qyD6kvs fT8kA0350F7dioiUFKTMHtTUJtDVDhmecJpBjis6sm5YoxqY/SanFDhg0npQ 8MY7Fx0V6zPyT6EotFhO0hkAVzUXTw2hJ6nyRQxTX3GhGbMI79ntmSgXZvyx pD/1g12bvwEWvEefcWMLTOK4espzBEO22rRgEKHfnFPkERAcbXw8O9vQjiqG l2pQQ/YZNJnPLezvR8yKTZ6NuyD54ULF7qia6KOksoM/3j4A5ce//pflhNer 91NCKC1Kn2/bi/kbB6/8ucgetJPrPkmn2OPyLOGyWTM55f4Pk2pSvrfeb+wa N3eYpQ7dyQEW2uJNdNfZ++vf5vq8uMNkyvnu/Y700zxX6LBGLZexa+tlEfp0 tUYtL6DuB6t+/vwpEa9fMKhligKSoDoo++OX+aGNrZ4KBqz7x99fKmX+q2oK k6NaY1i76PRyupUHpoaY1hEvXXTUqs8oMoWSOGQySHY2XXV15xfhjURSZnAk r47ngfoL6tWAYmHGgz9igml3oJYNl2TBW/QZt7bAJEiTVgsyJX6Yjq98nvKh 3DrysEcxAUGbTpJcUcXwIh0BjH2mZBLKdmnRvqh+lvKB6pn25TiOlQI8oTjq q66HLB8fAFNlwaFvh+FxjsZ84FWE1c0Dc5UR4dDISS6RXEZrJmef7sQemZ77 gVJ6c1X3x7G6j809RrdQvrqkn/2eFj3+QZ8a4QeU+YmTnsKcUbdpu6YOXUQt sGq8Tqh8j2IzjtAHMOezMPucyclWXSKQJUN9GYayYDHxtsXtBixkYVoRB6dK yw8d1H3bLYpySKBCR3ovXXTUqc8oNIWS0CxTJKpwLL6WNKmnv9PJlB+Gms16 DPjyCOtURrmgzgDKb2nViHJhBnWTa4U8Pgac4SX6jHtbYBJHkysZsvgqSnYO oxwZN5y6SaLNgWICgndUg6pieO1G+gH1xy7fkZryY+KSBWO6WE4n69brN3vN 6SK5ThUcciECJ60vVEl4xtoHwFR8+1LupexjPyevWzlj0D8a1iBerwJzg8Lz 8TPfmagS5i3PYpPjyiTO4JA6iQ0/bO4JcVYnlVgzObkwemEX1mzmDjerwM01 /37ExXEDkuYt/oYIrfEXOKWXHV7Rjewtixmf6zV1ScKB3y4X2YX8yr8Lsk+k rv18zD8akw0rXNvH2bEMph4Ln0UvZCYPrCU8BOECWlKtst2rLFDEmer7OWon B3HGAhH2hyfmZ7xDLfuVLAmZPx6w6PBDlfqMUlMoCa0iT4ok8/wTC0IbU7r9 BAT1/+CzxD3/y7p0A3d2evhn3tkTqd/Gju+KvkyHNWmbcEU1PxU7qOG3Eg5y qkfBMOPcvFDqJ4vfX8Dz8Ap9xmYL3G/9BYbn1dE6SXrXPuoZog5rEbrtplSf KI+A4Pgpkvys6kMtw1tZmrMrbuqgPh0szquBz3TpPfTteWu3nLot+09A66bn j03cmy/3NTiFXsnIFX2dKRvZ5eBLhdPbQEGYH3BSnKm+E2qM3HbR1TT31/YP aFUAdJdXfqjGmolO2f3Nr6PGyDpd+wGpd1yvAsU585vVcO7M8zB/SXv7hlfs zQV6fuGPRZ8R8NbEokyMeOvQOZvcdmiqKM765qOuj1pfjoVOznJzrxGycA1s wr4i+n+6lRFpq6JRS2Y1mWToLS5tdmjiDKvMKEfw2nC97+CZ0yjmE6oM/rW/ 6PBEhfqMUlMoCiVdX4I7Nv/k7A4B5Cf4+YZFfe2y4U5p0b4Pw9AG2dIdE0sE tXhQTTebSlAwzHh4Z2UXmhu1HnstWm0W02rD8/UZq6+aHusz/RyLN6Z5gIt/ PZRrq7q6/ZPu5G3L0QKRO2oREDwUGF5HCG8x2e5wljj6AHBF8cxM09kfXjGK WFEuCP3T7eLdr9BV5UdnkeHf09M23XXz8ruZk9FIUSwrWtVYM9H4a9fHTcjr qn5GmkYfp6cTU15v0a+azdnjRNI4t6EH+VZil8ygB75CTnurKg6+24F4m6CR CzLZZfSR23lfZ9qLDZfJM1TzGQltJThB7tFUKSlIx72LMS/YN4+CzuvxmC0g MPBRyoSE9Zx+XmXBvwcsOjxRnz6j2BSKQikAF1ueLb6+qlc98s0bBk9NPsdg MVBRsmdMMJnSyGQbqzJo7V00m2wmGUqGGc6kaa/1W2OPx+szVltg90V2CA6t 4SVbE1GTTGJCCXo++rC0W1d5BIQHmyY5PIvqFRBEBIbXKYV7v+xVF1ES/I2D v9qrbAt1ug8Ahg36JivXCZeyjx1ITU3b+nWsraWghbr+y3I0FLooD+HkaYFF nSm9F4NI5tLqsWZCuXtmVmvkaMm/xoiNZ909HJUPNvev58rNidYiQeTFCxUT moRsu8vzbcoOLWlveZegyBW5XBICbC6pri0N3STPoOYz6vHCQlsDeIeLPk7F g30TOqA3qpCKQqcFvyp0B/XeRUdt+oyCUygJTU8QVZ+hPF9cDsXwHu4kahGx WSHleHoAioYZ6MmIFTbWW16Ph+sztoQu90V2KIjrkRXxt9imqqspqyOeRTIP DT7Bwz9Oy5N8i60KgxTPBYbXFWU5P0e/+pw/YjfRMPydxBPXlRFpHH0A2Pku 2kQGOJrhyK1jkxELUEb/kGpKd0fVQ38gUWIt9Vgz2UEySYjBCY09zHBn4aeu eqzX9GzHh4eSRawjfFPFRJRiHJtFoXHoQk7iDMEfy9/wc5Nqkpv0movkGTMZ YzBVSMkJWjImns+SyilJnd+KvOl1WHD/tHv8382pYb4azJ8pePOiozZ9RsEp lERCPYHimeCLDV7ndieOUlWxua/RvhqJk7YqE6DPuEbpMANtU8hp9tMkFcXn kr9bvuy/i2e/j3szjhkaFhoS8kKHF2NSuAYdnq3PWBK6uDm6OGyx9Y99uF20 PNnK0pw9386kblQDe41eti+7RJZlSzEBwTsiTxhed+CuOKsndEGtPnUdRs9S QKWhJ1uyTs8ozYvB9xWa9QFQBJP56AedyKHuPi6Tzc5Jotxv9VgzWbizbVpT 8nFg1bzm7x3THnWRHkBtkaCvPeE7UaNrNADm/4tUHV7apvrPnVa1s6H0xpKO eHDo9Mzu5MzO1bfY8J3Oj/Pyt83rXk8X2LW/ipqPUFsSqFxmF4eis7OCKIWZ 7T7PECKMOiyIKjF/puLNi47K9BnlplDKR0mlJ+TtH41UB9ePXHuLy5gjFQTa kgRBn3GJ4mGGQ+qgHms/6rBndis0mbM3/BNzAo+UTk/WZ4gwgI0tMIJDIpZI I1NRfOzrOW8+/yS5Oa3boPe4WYlHL8ujzBAoJCB4tFiKAMPLjKmy4JediyYN bGO3CzDUbBYesWj3qQdyJS84+gAEzt7N6im0nS5p1QdAEfCUBhK2KdPF2bPq I3e4J8Za5Vkb+iAeeyw7Cxfu+Di4dfNV550sSrg6YUf8FAIx9BmTOX1sM0xY Pcv9HybVdGrwW5AR+ShrAVAleJ8+Q/QEIRFca+YY/Eu5reaJVy86KtNnlJtC UaTRE6rK971t95DhI4MjFQRaW3YvbnlZ9PHUPmoIMxxsXQ3Yq59eU8FUIAmm iqI8vE415+ThL8Ib2wdq5lHOB9Eeq8+YzGfnh7G3BSb/jDJniremoKcnfo91 HhedUaBAJCaPgODwMHqwWEoBhpc9Vdd+XTroeZtcKeti6ugDMDyZ3WkrEWdq 1wdACZDVnEu6OGXf6omxFtpcg3XU5I6irOkNkDmh06jDD8S5Uhvo4sjXfxWX 3QSnN+A6jA5r3T+N6m548bPemBK90QVBKSjwAn3mwR8xwWjyjOAzeuoAEk9T RIrasme0vOgUno+f+c5EIYwf072+ZRpv0nGkoDeaOHHe8izppDfJp1AU2l5D nI0GrYFyp8UZXJ8tpBRFa8surR+Wti5eItQRZjjsWZQXHOTAZE4aWNt6N/Ly 6/NUfcaUvfkVPa5ZRfzwmzMHNtccWf8a5UYSyZqyovjo8qm9m5J3qb5Ry+Fz vko+LWtxhxwCgmOPcvU0M5UYGF5mTBWFp9PjPhzT/nEySg/s8eanW4/dk0dO 5+sDgIP3r9FW0q/SUDoxcTnXpvxMHhdroc01RIma6I49QmtGnIFuKPjuJiwW zezt4FxdCJ6E8yi1qBOPG1VZ2MIEGrt6vD5Ttnc+zShSqJEvJdEOU2lxk5YX Haf9IhVEumdE+ikUxaHfkPBTNlt2ogWeNaRIerbWll3In6GhmjDDsS1yx9hf hV4KO4qOJ8VtPSj8i/OBXJsM2OBFBdxnE8/UZ+h93oUg6mP+8P65ZJoFh0/w sOmyWXDIISCgDSlsdF/1m8ifokpgeN1hqiw4vHUOar4k781vhbcPgJkIALTs AyA7llIU+8/N5VybokOqsVsuf8r+TBreyvoQ+PuMWHdShBLXqvKkQeSxljT9 icTQZ0Ti/vq3qy8iPJE0mr6z7q3qDXC76HRF+8LxwYv0Gcr+0YLwEpKstV2o q2HgjB2qG0QtLzqmsz+8YvTB1IH+6XbxEs07ckyhKBLUN12l3GYNp27i8X77 xjwh5iXJB/jPUFFTmOGoz0hRWeAEPF2zhlJ3AmrUw6+ZuEfqM9Q+7wKRwNyj sjQnecXwVsgdazC0i5Cj4kkOAcGx0716mplKDAyvK0y3zn8zvlcDJMqr3W3w ql+uyb+Z4u8DYDbf/XokpmkfAJmhHee56rnjFEp9k6YyxNxTUXJwRpg1pYix xyV7KJG5HnstOk98OYta36RkTSVhwYdY9xOmwQF1l11U+0xIh5pZ4eH6jGOu i4Au7QTEnExixKJPqy5x3tsXHZX5zzhHjikURXw9gfIs8FM+y+6u7ORDDoIo tQMyAfoMgsrCDEd9hm11pzAsCokMz7JzyFJBXuYzZo/UZ2y2wL3jz/DJTnSs H6mjW5Yr6IqcYrqXt3NGvwYG5HYP7rnsV2n7SsggIDiEIi56tHkiMLxOKTy4 ZuATiDTj59v70215Ch0H8vcBqN5eHIobPjwyNV9L/hZKQtmOcczwtHYtsSK0 CEIlmEwXlw62rC46rGGbj9JyxXpwb6wYjN7SfROviPTGKOL0bxIHvOiD9Bi0 9ITS+41doz0Rz4v8gR0bW/DM+iahm88oFoq7x9sXHS3oM7JMoShi6wm0jNNn 3jjA490K9o9CHk9NHYuAPmNDfWEG0hTMihz5M7bOodI/y84g1yb+Jbeeps/w tAV2fiWSR00mU86at5qQvbarn6bm8zIklGhkEBAcQxGNGTYKAIbXkcK0mG41 kMsVUczngRAfAIArlHpwjhoLxetPptMWaSFne7Hn+Yd3VnZBvXok8t9A99dK R7/4Oa+vNYenqjxlZBBWA5uwr0i5C+KLF+kzTtZHflnfJNSCDsxXlfcALDrq 12dkmkKpiOuXQsms5tnCjNa+VhuF81Yc/Hy80ydQlWEGPctRHn2G6COglB0Z Yj7DW+f0MH3GagtsxOYe5597fWxqO9q9JOHuoPpp+mokkhGh0z/zcrJkZyWS Cwj07gw8Pco0ihqHt6L4XPJ3y5f9d/Hs9/H2B2OGhoWGhLzQ4cWYFBl2Aqbf k15Hk9F8scHrlBNnzMJ8AACO0II9brPoiZXktjUgMO4P5r9QOTahUqdv93Jc 1m0R3xktc8b42g6wghTNlNZn8IChLhYUtusesUnXY6GTs7SobaD6jDSZuuoB sR61EpF6X8gbUs9z9Vj4rFz1Jc/AoqN+fUa+KRSF1m9ImGpHW21Rby72nJsX Sr6FH9WAXfWYjixFUm7Ve7NJijrDDOpPg8O+wJM3RD9HxSzpEGM03jqnR+kz Nltgge0hri7pR4sipNX6HNyMpbujpBYQHLszBM9LEWb/pyXUN7yOKeVW5CgY Ic61EepHrr2l6IopxAdAdQhveyoiztqeUh4HI7b4dw53HGEAa0EDFXyMlB1e 0c1ypKVv1zPxErsFruphTkZq6tHzD5iGDelgLobhqhtQfUbpHAA8k7A2Lmj8 saQ/pvo0QpfghVq2304RfUZGAZ+uzwjUXQnTIeTOV2PyjIctOvxQvT4j3xSK YmlmRyLs8aekKPhj0We4DzQlQUJ7+SfU8Ftw7aQGUW+YgS5zll9H8tK5y6nD fJVMDyCfRwE6pyfpMxZbYB3W5qVdtwX9Io67bKk3s5byeTsSZmRJKyDQ9+Pe lTxjVufwmiqK8vC+8TknD38RbpMB+dpVceNK0gB0LFTgYyzEB0BtqL/tKXKF nI1A0SRGrZvPlJ/dMSzQh1vUZCaid9JixfXLsqaTHRUkDqrVlOyBb/aN2LKz lk16wzYJ17R5j6CSF5EOJCuyCvhUfUaHBQ858ID/u1FPK3S1Ri0vUOXe35MW HZ6oXJ+RcwpFodY2cj3CoEHpi83Ldtt0am1X5HIkbi8uPtSISPktrcyoOsxw 3LwIm/wZqCjZMyZYp+drQisck3nP8EDrN23dP+1Pnm/jOfqMzRZ40GahqfAO uVjSDw6tr4Fk22dJBYTyYyvQ6b36twhb+avGz725oerhNZmTBtYWsnxzhToa Kkjq9iwfAPW3PaXoM5zKYdAm8iqQ9QSRf+LDVr6coybrxpl56SndHYWezneK Pe4YkFQd+7pbEyz6pODJGLWgNGBTDin5POP7ER323n8+D9aoMzAB6UGh0IG1 jAI+VZ8Rtlt/eDs+zH7j67BGLZdls3u4/rocP6R9Lb/aoXO3MOo5xdn7E5Yv +/agAINNz1p0eKJufUbWKRTFoReJEG8H5OHiOZMgxU2aPFqlpedp/ViHG6oP M2jvIGn13J1t06rjR/8Bc1iuCRRMlQXHU1bPfndQrxea+WO1mz/fL/KjNf9D loCKsjLGSczBfMZ07+r++M8nDHwpuL4P5levba8BU2M3ZN5iuD4P0WestsA6 /ze/vCq0ANlZlwFGdVHwZ9r2zlZ6JVyU4nMkFBAo8RIOz6dDy6h6eJEZQ57M T+pyqfwM48QHQPuFM2oGeRy4qXNIpbNaPSVYcvfs/M4B3KMmHGL0GCaQqvKk QeSxlqsG03gyko84O+59Y56wf5qyaQBE88qnmzXTqjOwBeQwSPowg+FSJBfw kaJFocvQX9s/qIe8U2jsYZazC1ENxypb6dr+UY8Sj5WAOixYdMzq1mdkn0JR 0OlU4IyKhFu8xvlu5uRa5JUo5tohAFqTIH4OPJpEE2EG3TwTC5yxQ4oNYnnW hj4+XBR7hLKcn6Nffc5fV/0dg/p/8FnirtSUzQkzq//F75Hei9OKyksOLRzR pmb1OPfYmuf2AUPNZ1acvpr8RXgjH32jlsOjvkhMxt9zxkst9dWLQVDHuW67 a3mGPmO1BQ5osPisGD84tXUIvqT2nH5e4j0CrWmURI43UgkIJvO5hf2Rk4Dq AO/ZuAteps6oe3hRdy+hXTPYQTvOULzo3tEHwLtOWOSGfztm8iBPjHxIxSi+ vm5wKx2vqMlsK4tgWA0p/WtcNBfGhVm+7VYdPxAxZ5OjBYNrbJOtaF9NEVAN 87EPtyupRMog4CNRq6Dd+p1T04PIUJ/DUQWZzcKcY0AaCAgoPIFFB0fN+ozs UygKLUYSMqMiM7PBELGaa/Omm2v+/Yh9sRbsEaEItD2UZ/fCI9FOmIHcY5hU OVpEHpE/NnZXHrc/NJlyv/+4a03LfN/z38mXkQGpKD752SA/Azbio5kdbVfv Xkol1w5fQ68BLzfwxTq/tzyrCPmyD25vHtoK9wqqGzjzkMseW56gz9j8dUWT fNHseuJGkr5XBa1plLb0GSKdjMRYY+oBCbuE88NUfPtSbk7ePQknbTUPL3Hc bJkxZDGfETX2EAW6D4ABm5Cu2X2dJiD9D7lMocU585sRmy891n1cpkbtxYkK aMe1nu2fWzaSTBtDWtvKsIQLjq8h+nqIdVZVsTuqpvXTFI4Z7PsRTW94Ub1L oqRZlsgh4FOOUPlWvFZVHHy3g+1NqieWf3x/lfWen8xm8dGPT3DX47OqYnNf o/UjBFglwKKDo2J9Rv4pFIVWAy5EoUWUQO7jjHcitl2FLzZiB8e9rRqgFRIq bY8mE9oKM0pvruoegL6VwFY+dPJPzu7wOKd0SitkU3LM2PudjEKH0Si7v/4V RGh3779Nms8QL64x/Juj9xxebrN70uk6DNnvwqDGA/QZy+7V3XfkDM22C69u 7phYINKbu0Cezaz4AoKp6ur2T7qjBdb+NUZsVLSHsiMVRFqa5fL8jKHTqEqm eKh3eNFoUzL3aRrq0mccfQCkf6i9HTQtlvUZNFm5oNFA0YxPOAdnhNVytdaz 4cLmPowlGORDbaF+47grDp9lMqePbYY9is044m4zygHSL0Xh3ZZ1etFaE1ga ZIGDXLK5K+QR8Imep0JmYMpphdvDR0fQbBaG8gey4YiAViOw6BCoVp9RZApF ObES2WoIa2pDao8clU+K4Ik9PW3TXVX9RiyheHjKcaSuPBoMMyzFR8iM6I9N 3JvP58od3/ns7vHtcHEmZGFaEccb+GpCpEWc0WFN2iZccf7HiH8Ok+Uveiu6 EYtK82Jstc19E684/1Ja12euHRz3hDi2wE4vxor0Yqwm9ZmK4mMxI5vqkbcL aDB2k8rEGbM554tX/ajfWqJGz+odXge7KhlQlz7j6APwStQlLcYhmgK1iWBV D158JaYDsaMRxUxMCUymnK9G1sPzjV/65lhOLiNnf92fipC0MW5JzJSeLfWM YTblHMFF1nFu0mvieviQM4nCMbBletFeE1gKZXdXdvKxDqayO3fZBHy7qYsF V3GpKwrTYrrVsP0x96MKMpuFsQExUorVMfZXThdJAosOgWr1GUWmUBSKl4Kw 2Yw8DeE2meQnTrL3QdOwaSTlWVPay0sGNBtmoPcbfq82fGLxaWHKJ36KvbBX gA/mbxy88meu4oytKTl+1/Rbf8GlzlWwf5T97nJf/4usHe53mjadweUbaluf Kb6+qlc9KSrQabZdMvSqkGczS56RCY49ijK3TQ9tjIoH+tZdFh9RXVmTQ7Wa BSM297j4pyHqHV7UrmrVbzzfhCOq0mfo7vEaL4vQDKWW9seW+5fN8v3H8jcs UirHsgU1QQ0/hMBkI0DN83RyPxMHowZR7XPR0zRhDWEFQgQM2n6KyZBP6Z27 jAK+7RnHuBYwFu79sldd2+ErjzxS1Hym/ajDbtd/xECAfzYRLDpWtKHPyDWF opAKLSbcl7vsQExr23uxVD5RwZN/GoYaoGQiKe92KDUaDjOQYiICfdDz0Yd5 bm3KrmetjehuxHWeNh+59dp1zr0L89vaFgX3ixGyh3Jf/4uuHVMOulvebKKH y6Mu7eozpnuX4wdbDHYkmPZpTuDVRKTeF/MDHJBjM1vxYPOABtSvxVSF7cjD +9l7v59DeFwjj3i7iOiMAjGUd1G6m6HQ3Z5dzzMCUfHwkjOGjOUAKtJnrEIu Bf6nogAXyg4taW9brdzXK5Uf//pfxG0vXtarzFDO9wXDMEdR27M6pieVpM5v helqjVrO2EeYE6gKPXDLTTHfmj3EXlvjxU1I8yald+5yCvgPb2+2Rm44nean MJ94Vj48F/9+R+vNXh2KB09NPsc5FCdP2Jk0KNJAQMCWGRYdO6rVZxSaQlEo zpOMaV3usVlxslQ+0dWqYf8PNCzOmM0PNk1CHzTFFiZZ0HyYYTLlrH2nDcW3 IaDffzblFnO4A033rqYsnhryf7i82TB8HB/7Haplceiq024+nmw+yKTY27I7 mNYOdGBdtAjUpD5jqsxPT4h41m405K5qjA/WVvLUe3jOHknLdkTfzFrscC1c +C1jb1ryuhUzB1B3/QR1Go1c+kPq4ZNuMuRyTv2SlvJj4lcLZ0YM61DPh/YG xvYvL0zJLhFj+EXrbobyMH9Je/o1Cw8VtDS8aLTpvnBSVJTSZ8ifBk/pTNsa t8iSxklH37T9xP+s2bo7NfXnI9n2H+PKDVHuZICEPC7RYY2eWXjsttNXlZ/d MSzQcvOr0MCKHfTaasEwBpm2ZsFOXmwZzxpSpCGhqoJix5S3MiL1goxb1QAp myttGyu3gI8bOQbYv3v3j9addx2ZF5/b+xlyYFE7ZNj32fd57CRR8xkGDQpt ZcWuUAIWHXeoVp9RaApFEVlYuHn03aesi1Bw1E6Xymdp4cH/2GrnDbrOHyTk lgr6WMWhGHHX9V+Wo2GtyT0eE2YUHVk/piXFSMTYvu9H8TvPFblVACr/zj+R Hhc1vlsDHzykbNDqrTV7C/jFi0VnZ9n7ADr11UE4NOFpy+uYVBeyXoOpDAqt 7HDhoOLomKE4zvWZh3/mVW+E92xP+GLBmC6NnSx8rf/5UdwP6b+e4dGgp6zw mnWbnLRp2cfE7+6Af0C/eV/vSvspM1uSJVX0zazkv6yhZrPwMbE/HrslylZK 1O5mNPK/fftx+tULje21NLwOueume1f3x38+YeBLwfV9ML96bXsNmBq7IfOW yIXHyugzf52d1VjQ6sXp1gJYgUo0DZpP/PYg5a6uLM3Z/kV4Ix/+J+PqgO5a JhA2hRVIo2GydYKpMj91efgTPljD5vMyJCg4JecTvi14BGOpHFHjdo8DqGwu l2c785XIJeCbbv2++s32dtXFKlwcOplz6UpRWUVRXnU8dmRL3KKpryCnHgGN 31i8PY/vRpLcwTFqUKQJNru8Jlh03KNifUaZKRQFudkwMRRvi1GqRfx0mnf9 8P655NUTbHso/PhvH/eqELVByfHQuCkZE54UZpju5SXPs7VuseP3WMfXR82M +SoxOTWNONomRO+vY+dOHh0WZPv6AUH9Z60Qsm25/8Mk2yfrsV7Ts90MA3vV BXmcGdogXkkaYH1hdVTcMuG6k5doQ5+p+Gv9SwHMf4nD3RiK39oqtiONNvSZ 6r38i6+MmBq1bOOPx6/9JZpCLW53M0cqio8un9q7qeW5rtuw98cbE99pJ9Dc UkvDi+aurzh9NRnfC+sbtRwe9UX1BJiyOWHGS/hJnz6o41we9ZuuUUafIXs6 86I+tviMhism1EzRsY3v/sMaFuobtRn89rtzF/83evq4Qe2fJP6xYfiEbb/z ORlXCaIGTi6XbBpk3pGfMeStqMWfRo14saVRL60bGJmTz3TqJOUFKJ/0Kwiy Q5C+9oTv3DkAuEGUcmCFBHyLMLtkUEvmp0bfqNXwBWuPC7kA0nyGqV8JmsrO Mq8JFh33qFmfUWgKJaEkeIvjQ2W6df6b8b2s58z4bnf01E8WxX4aNfHNAe3+ z/pZxud6vb/6R95qp7og51J8DOtM2egZX8spnhdmlN04m7TItkFjgfG5MBHW I7S7KKMOT2opDK9kXwaF5HO6zha4kj6+mahynDCMnQfuynf49hz0GX3gxO+4 lVHyW1vFXlJVZNYhOyJ3N3NN2b1CIusJH+2nvaABnwXErsrQa8DLDXyxzu9R O4w/uL15qMUQgGO7Uvd48y0NOKeyNHff5kUfjA5v96Q9B9LY/IXBk+d+e/C8 hyf5S0bZ9awNH4/p/pR1HTe2eXHsQmGbWSaqfv7cbk6oQKW/TU9gOJ9SN+QY GrCIFD7pE6KVAysk4FuxzAmxs6wSE0ndpzq+PGDiJ18m7v0l74FgDRAxn2E4 AEVT2dltXgAG1K3PmJWYQlEQCxqhFsEoxb9nbPjPh4NffLah3a3B8Eizrq+M nPlZ4v9OF3mQIoiW3GIen42mEJI/I5WleZk/JS6ZP+XNAS8+38KIFslU37cd u/cbNXle3MZD566LEyiimh6TDv/3jmn2roPurWjJtYOph1rOZ2H2j3fvh0YW zypJDo/SJI/Bazez4nc3Y8GeYXWVbQ4rH2TuugX/GsO/OXrPYX4znVrb1TKr 6DoM2S9SfrvX3tIA4OHI2O7HEdPxlc9rPw63ldvosOD+aW7TOZwgajmwUgK+ nKDmMwyyHpnPoFj5nqehen1GWVC5W0i/MK8Fsazn1lsc8FZM5uwN/2R9z9gU VCbFnmzHxpQIR3Vdlq2pLsAPL93MStDdjBm8RWwdxg6bHgK5k8Ljo9DYw87j zdK8GNsJBMvOjIx46S0NAF7AuXmhSsXDVrtCgb1OlAWZljm3HhC3HFg5AV9O SPMZxsp0JJXd47v0ygToM+5BgzTFW7lpDjyeN9pjXPnPCwAtgij2TDo8e8We LMbRP/bh9ko3H0/mc2JYHWxxNkyLqsY7N7NSdDdjBvd6EiEJRxsgulb9yLW3 XE8DtrJW0UbGO29pAPAKLmzuY3u0xVJ0WWE9eGJ2EVEzZXvnP8U3NhO5HFg5 AV8+UPMZJjmxYneU3a6SkndUkp+Rmu4hfh0yA/oME0iJE5NVKUAD7+VHxpme 3VkbEAvEQdRgiFjtzv+NVOypqoup6uqhnYevI8mrdzMi2e13EGtijq3JASXw xs2sFN3N2GBx2PaSQwokdx2bctBNfpJdn9GJVfnljbc0AHgJVeUpI4OsG4rw WbnuzopE5QZR6Mq9EYB6IIeOc2wmfjmwcgK+fJCHlcwlS2SmTUBg3B/kvxPn rXI0H/c8rGn/Wn5mJabq8NI29lAJztO5QNGig7pv02T9JSA3qA7vfjOI1sZS 1D/LstIr4SL5L4g+47wPtfUdH2zub3tLIzb3uDcUcmgbL9zMStLdjAWEZMGq L4P22TfmCVa6FloOSY1LeeOFtzQAeA+2mhdZYwx7sKRhgT036TVi3PywGUe4 jJsE5cAKCviygQTYTBIBmWlD79KL6zatZGo+7nkUHU9avXzF1t9uK30hauXB HzHBZBvZsIQLSl+QRjCZ08c2s49bw6mbNDUzAUphMp9e+wK7vUn2vBC7lrL4 dzLocKLYWxMFGfQZMnDCsKenbboLWqzq8brNrDTdzZgp+zO+Ry2sedgubyhS Za9rka/EsDq6ZbkifLjX3dIA4FWQeSDyBcb29Ab3bRTUzMXPehNfwf/1hZzy jqQoB1ZQwJcNMiWGyZ6iJHW+rYqLmvSOWxDU4N8GHQCYQJ5uKHFizd3MybVs DzdXuRvwZpD+Te72JjePvvuUj3WJpHbBxmsSn3njABr3IGZuLuMTJHtW135A 6h2tnjJ5FV63mZWmuxkjhHQZOGOHV7QKs1RyETCYKpMKmGhNRb3ulgYAb8Oe ChJQd9lF6c+BrOkNWm58XJARSSxmXJOOpCgHVlTAlwkyJcay8+05/bwrTeza wXFPkDkMHWN/Jf/TuQ09MJ5t0AGAFfaZAYMSJ7b8tf0D0uVVzjJbQOuQmVf6 OlM2OvcVK76+bnArnX2biuZe4glveseNpL0qxNWGqzA5qjWxNDdsGn0c0jG1 gZdtZqXpbsZIRcnOYUEybSVUAPtTVCQDnK4S88bLbmkA8D5M5rPzw4gHXI4U GquRiGbPl5HhCpy0vpDLKiRJObCiAr5MoJ0y8Ki4TcI1ZyOSf3J2h8f1LUK6 NXayYJ2c2ZlPG3QA4AJ+m9ng3NbNC0F9PAwgnwLcMJ3e0JNYT2lpMASEOOPf IvQFYkmgZFTiDv8GZycs1mMU52t0+W+bX/cnlqHm8zLAKUkzeNtmVpLuZkwQ 2cveU6NKnqIyKWA5n4XZbj3RGhR62y0NAN6I3RRFehcazZvPWNONdFiL0G03 uXwDacqBlRXw5QF1dyQIilyRSz0uLcrc9l6nx3XteiZeqri40Fp9Zj8bLc/a 0MeHoaAMAETAno6IP2WgBzKA+Hgw+XEBgCMm08Wlg/0wJ40Li7N2fxjaWN+w zUdpl/46ENOatv0s/mNp98f9XHj7l6THtLe8Z9+EM+SaaqrMT10ebsnP1Af3 XPYriDNawts2s5J0N3MPnr1cg3NgrF2sTRMsE8srUZfcnNWi3gIY1n3Vb6J8 vrfd0gDgnZQdWtLe8oz7D5iTLWXhqNVIhKkeVqUQ2ZsWMWTEjjxufytNObCy Ar48IOYz2NNt2xkt2eqBvSKi4zenpKYlr1sxZ+S/Gvoa2kVEZxRY7l1rTrsO axg89Zvk5IRFA580GMNnZmlHkgK0isl8IirUfruCS7A7TOajH9gebQM2aLOm LLEAlVBRfCxmZFM9fgt1joxO3GVbEXywhuETtv1+H98rVpUfnRVWy3KbdZ++ etf2xNkvtbSI+S5ineqd6fZPuvtimF+t0Heq3zM1ZfM3c4d0MVa/g59vWNSa 00XesQP1ILxtMytJdzM3FN+I79sYq8E9MNYuRZmTdc50LUfQDHDxCp/RwNgb bmkA8FJM5nML+xPnUO6aPgvEKiPrNOrufmfbtKaESsC5ZYM05cBKC/hyQJrP WEbjWmXB8ZTVs98d1OuFZv7Vt+sjzTr3fGNa9JYT1ynJQ6WFx777PKJP1+rX GJt3GhG97nwxRNSALJAuNJAT4hYy1wicZwBBFGcfiIsa17djC6Meq938+X6R H61Jzy5BF0RTZf6B72cOfSm4vo++UfPwcR8lX2Y4iCq7nrVh/ruDXny2oS+m b9Qq5NUhM5YmHLh8HxYSLULTZyjedB6INN3NXFHxYN+EDnh62sK0Iq8wnrFw NyOS3Qgjzga6Wi5y9nhg68cK+gwAeDoP76zv19iiHrRcJlEOjTWHRGP5G1as 3rN6/T/HHePeBEiScmClBXw5KNg/yj5u7jUoAFAHZCMnSAtxBZo8I31dLQAA 3gxVn/Hxee97FrqDlpGiu5kr/jo7q4mXiTNmij4zYb/rHRPqsSbiSmcyJw2s DfoMAHgL+Sc+bIXnKhj7TMmUog8xYWZrwIbvvMn8YlVhF6+ad03I4SNeSVIO rLSALwNVP3/+lO07atWzCPA2cHeLAOJx03UdlQE93R0hk2d4pCMCAABw4O7X I5G9rBec9UjT3QwgeViw5DlmfQbxWBN1pSvOnlUflWew4cnaO/QGAIA95Wd3 DAvE5fSmk9eLvYsnanx0ug5D9murKaXJfPKT3rWEtWyQpBxYWQFfFkjbHF9s ykGoFQG0Qfnxr/9lC3xD/nscGjlRqCpPGRlE6FdYm5d23QbZFQAAKTm3oQe6 m/WCHtCSdDcD7JjMe4YHEneTS5dIZKXTtR+Qeke0la7M6nluo37juCuwjAKA h2PtIGmQIF/xYUH62qXfn9BU4wOTKWfNW010AvtpSlMOrKyALwOkbY5WPYsA L8Uq6lpu3SZtE65o6KmTHKINK44/NnFvvtKXAwCAp0PulAl0/m9+edWzPa+k 6W4G2LHnpbf9/LDTFxQmR7UmYoCGTaOPi3cs/fB2fBja1FRjWfEAAPDGmkUj hUSjNQpT5ncQljljRYpyYEUFfDm4lRGpJ76fNj2LAG+m+PqqXvW8ZS/AnnsX 5rclHL+x4KidXr6+AAAgE1f2ja7vQ25qvSG+laK7GWCn6OysINyUEus1Pdsh R9Z60i3K9gGlouTgDMvvZRNn4AAIALyKsuyf3uv4OOaPTdirqXQXUak6sbZb 9eQb3HPZr4IHQZpyYMUEfFlAzWegVTGgPew7AgPWN+EMVDlV7wWOTO9uTQ+E lvcAAMhI8YElXQ1I3oEBC43eVeDp87IU3c0AgpL0mPaO63v1eKYuD8f7iYi0 fbBTWrTvQ6o4I674AwCAJijJT09YuvWMxjb1ImK6nBG3ZsPpInFyTiQpB1ZE wJcL0nxGWz2nAMBGYVpMtxqYtH3xtMOdbdOaWqJKfbseW/PgiQYAQFaKjqwb 1gjJosGwoEEz0vK8fWYGeGKqurr9k+6+GOZXK/Sd6MRdqSmbv5k7pIux+sby 8w2LWiPW9qGa4nM/ffpSSz1y64os/gAAAHgn0pQDyy3gy8ieYY8RqxAWOjkL AihAm9hFCd0LQ/cXaqrAUFRMvye97kfIxU8sPg3OkwAAKIDp1vkN7/VtgCbS BDQevGDt8VsQZAB8KLuetWH+u4NefLahL6Zv1Crk1SEzliYcuHxfrMUef/8Z A5uid6yfMXTa8izxxB8AAACvRopyYBkFfJnJ3zavez1dYNf+Xx7RpL4EADhW j3E8qmowakmu8+JGTyf/5OwOAdrN5QMAwJMozj4QO7ZXAx+qSjNreer522XM fw0A0lNZmpex8/MI6l3q5x86OSY1VzTxBwAAACCQohxYagEfAAD+IBKNxnqo iYLVWQvEGQAAVETZjbNJX8wY1P5JtGykwaCF2aDRAMpy78KSfzZGb8vALv3f /2rzqduQ5QUAAAAAACAGdonGgIUsPlCi9OXIR9mfScNx23N90PPRh0GcAQBA ZZgqCs8cTFyyIKJP12b+Ol3XcZmwCQaU5c6xyXV99I1a9Bz69ry4jYcuQloX AAAAAACA+BSmrxzYIsCpm7fHcjV1KIY1DB8HPUEAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACY+H8HWcN+ "], {{0, 123}, {1504, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{459.09583333333325`, Automatic}, ImageSizeRaw->{1504, 123}, PlotRange->{{0, 1504}, {0, 123}}], TraditionalForm]], "None", ExpressionUUID->"7ac96eef-dd2f-44ce-abff-d35e603238fa"], " , 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.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}, {3.751405896955653*^9, 3.751405909481039*^9}},ExpressionUUID->"05dda03b-8067-497c-8664-\ ea914d70c897"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"AlgebraDDResult", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "12", "]"}], "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"AlgebraDD", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", RowBox[{"Fh", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", "==", RowBox[{ RowBox[{"Closure", "[", RowBox[{"Fh", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", "+", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"I", " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], "2", " ", "I", " ", RowBox[{"Cmetric", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"Lap", "[", RowBox[{"Ab", "[", 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"}], "}"}]}], "]"}]}]}], ")"}], "//", "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}, {3.751405911629634*^9, 3.7514059731566973`*^9}}, CellLabel-> "In[160]:=",ExpressionUUID->"a900ec29-3dd8-4811-a9d8-4159f91da949"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.7514060052390747`*^9, 3.7515668873472643`*^9, 3.7517271859082117`*^9, 3.751730257229763*^9}, CellLabel-> "Out[160]=",ExpressionUUID->"1c927e1c-c096-4472-8497-28aeaa99420d"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ FormBox[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnQt4TNfax/fMRNpGhkp9JFUl6hp6cetxSXocQjWoFkVxEG1cSktR2riV pk5KG3EUjUrTIlV3oiTRoIcooogiSoKKS+KSqCaa+8yXPXtm9tp7JrPvt5n3 9zzf93yfTmb27Fl7rXf91/v+38BxUweN12MYNuPR6v81KHz2v6ZPD/9o8OPV /88b782YNOG9iLdfeW9mxISI6V3GGar/8f3q/7lcC8Pw/9sMAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACgLipLctI2ffV1YsbtUiFvU3bz 3K74/yaknL5fJdaVAQAAAAAAAAAAAAAAuC9lf+4Kb++rwzBMp+s8Or2Y59uU n9sxPMALs9A5NgOEGQAAAAAAAAAAAAAAANdUHVnWBrNRV7c8h9+7lO8c3ND2 LgZsyJJ8k8jXCQAAAAAAAAAAAAAA4GZU/rSwvlVO0WNhc3Iqeb1LxYP4YG+7 KtN//UVQZQAAAAAAAAAAAAAAABgourF+bLeGtf06jPkoNZe/t0zR4TWDWjyu b9R6XNzPhVDCBAAAAAAAAAAAAAAAAAAAAACAain9MzcnO/8hnyRTU9Gdy5ev FpaLfk0AAACAmwKLDgAAAAAAAACQmMxn1r6IYeEpD3j88cNNk7FH+JrCAQAA AB4HLDoAAAAAwADe0ax794RsQa3qAUArlN08tyv+vwkpp+97bumrNULuuvos jz/O+bQnZoQIGQAAAGAJLDoAAAAA4JJbx9592gvDdPp2PRMvgzIDuDm4CBng RVjFd47N8FxhJv/AaExfd+rGEq5/aDLvHFQXaz4gtUiKywIAAADcEVh0AAAA AKAm8k7N7eBnb1Zv7P1OegE0NAPcl6rynYMbYvYGfkOW5HvseC/JjW6lx14c f6KM4x8WZc1poMd6zrzAr4UiAAAA4IHAogMAAAAATim6Gd+vsWV76tU2qLme UGb6Ts34S+kLAwCJqHgQH+xtV2X6r7/osapMNcentcO8sKmHijn9VcmeyPoY 1uyT/Z586wAAAACuwKIDAKrAVJl/ZOu8YX2CGnjpGzUPGz/n+9/ucH6TkoLj G2OnDibepFXwwBGfbD3uweYAACCAohvrhrTSWTanwYtTCh8Wpn0QWtuyWw2M WJnDOccUALRB0eE1g1o8rm/Uelzcz4WevXxYYl1d7dEr8tnfh9I78aH1sVqc 42oAAADAw4FFBwCUp6LoePSopgasc0RU4u7UTbMH4Ls/X2zSvjz271GWte+D kMZ6v6eGfPR5YlLq1tj3u/nAFhIAeFFR/L9p3TGrJpNq3ZxWFB+aZVVmnpmx 6Z5n71jlo7IkJ23TV18nZtwGYx9AXh7+ER3khXljI3fksvyLa2v+XR/TYyFT MmG0qg0xZhJwwwYAQEJg0QEApbmWENHksVojN56zNpzHTZ+q0ek6j05np31a TBr1xtCIlFzbY2ky7x/XjNhX9o4/C4ltAMAWu/zi80jvpamUhAH7f0LlGvkx VRScPZQYs2jS6z0Ca+t0XcdnuOtyXPbnrvD2vjpu8yGgAHePT6nnhdV7Mnjo 2/NXfHfg4h2uxfHq5O4PUxpgOsy/+YL024wvLkiN7lYL4xRRAzIhxkwCbtgA AEgNLDoASwr2rxrUwk8Tihx+orHyk4mD+nZo8jixhtZp3v6lAUOnfrIi6eSV Yvar6U1cIQkIHbNVsg4spqzNr+ixTkvTySD2XnoEcdE+2PyTFcxvcTVtTAOD o+UF3i4NR4+9EnkZAggAYIPJlP3lqPp4uhqilKJUFB+a27+hAVdm+iWcdfIC Kame2XZ+Pmtw+6f0GEnDwYuz3GMP7EDVkWVt7N+zLjR/VDEFp+e0eBwZlVhA 18Efrtly+o7qwwXXlD3Y/HpjzBIkzz94vcbn3VR1bfvH3XFXHp3vm19cA99F lSHCTAJu2AAAyAAsOgAj1VuVte+08cbXopDYI2reAZjuX97y0Yg2j1Zf6iPN uvYdOX4Sztjh3Z9+HAkXX1ucnMVKnCm9sxn3l2CrW3Kmqjx5VCDWfXwGenZz ctXztpV/6mGmm40/v09jz76clEcPEU7P7mR5Fx00TQMAVlRPdGveaqKrWZPh 9DJRKco6GBvRL9AH2ffWa9jnvehdZ27ILA3JSeVPC+tbv60eC5uTA4GHmqks yU3f9Vl4r4ZeyCj18Q2ZEp2S80DDW9jrh8Y/6UV+lwvURCBTRcGZA7Gjuhst q63e2VoMKI4IMwm4YQMAIA+w6AAusO9BMCwocpeaPQDLsn56r+MTmK9f/4+/ OXL9L8owrY4YDyZOeM7W69ZQq+3k1axMV4purO5VH5NImTm/oQeGhSZcRP/t j5gBVjmlYcuEGwxv8Nf26dUX5yR7rapicz+jNQjh0W0NADwPazooG7HFPivW C5h9WALBFv2o+5e3TO2H5+fY8Ws8ZNHaE57gtVJ0Y/3Ybg1r+3UY81Fqrgd8 X7cAlxDH0cQZY8iMFZmFWg0dy8/tmdDOz/5tAjr0GTl+4tRp778zMQJNXTN2 evV7yRJrAUGIMZOAGzYAAPIAiw7gHESTaTg6RtXmsXknP2jlrQ/qufzXmndJ 9u4qxHgetpjVN7K8sxTKDK7ABHRMzEf+qfTuqi7eVjnltahc12c6JTdjOj7q /OjnfubMelYFyhD+FXT0BQAGirIXNvPikABjnRuldVorPLp+bEtKbUjg4A9/ 1HTuAeAZFGXuwV3okaHLsDqrG9PtC99MoGpNKBrXnQAAAABVAYsO4EhB8sIO lswN3YvDDhSo+NevKk97Owjzf3Lpmb8ZXnnr2LtPk6M8aEEyG++38swNffE/ 0mHNuyZki7QHw3NiH6NVKJtOrHrBdm20LBoHTOYza1/EsIlphU7+29FlrWzv E5b4hzgXDABuTVnOoaSMmit5HTFVXTuw6aBkWRzW7B07Biwkane+G9csAfJT UnB8Y+zUwX2CGnjpG7UKHjjik63HResyU5y/931r8zILkpUDy0VR1sG4yPH9 OrYwEnoTXiv98riFK+hJ5gAAAAAgGFh0ADtlR1Z20xGhFAu5Q1FMp9d2xbB2 UfvZbFlurfn3I/Y40a/e8kusYtC722Y0tQSWItbx5f+yJeXiA/Rfjk9rZ72w Bo3jrjJ9SuXf+dduOjXJufXlYOv7+GJRZyHdFgC0xpWU4d4YibK9nwB3pCxr H57Q4vfUkI8+T0xK3Rr7fjeLeVFgxErRMmORtvJWZaZFyLZbKj7iAQAAAAAA UBV2xyEDFrrqV5Wf0J5fEGK51Eeb9X1zaVoOw9VeTxmGbHc6xZ5gFSNWPEyb 2IH4E2PY7MyHYlw3jXsZU6zxq14/bEke7y0YaSyjw4KGHpTiUgEAkA7CDBzZ zILTPiAulm6/emNoRIo93ctk3j+uGbHo944/K5p0UnonPrQ+Mpgx/2mbwIQe ADwFkynnhwW9nsB6JVxS+lIUo2JP5CPGp0aCKxEAADwg4ygtbAcq/14fau9Q osOadPz+lsvXl91b1clex2TAXv3kOst58u7pmYHWP+z06X421U+cIPx7CQZt cf0dXIIYy+hHxhaId4UAAMjB1Z0D0X2sEZt/QtX5ioDGuJo2poHB2HdqBtV3 LOfTnsS5APZK5GXxtg9lB6Nbo+OZTS4oAABugDVfTqdv12NrrgdLEvfOLez8 BIduIwAAAAQm8/nFA6wyh1/DpedUb/Jcmh/zPBrzYRMPMFzz3uF2F01u+SR/ 7f6oCfF3vtikfXlCrxylqnzn4IbWS2pE9QHmCGos0331b+JdIgAAcvBg/dvI fAbN1ABRKXuw+fWnMWfVuKdnd7KuQc0HpIqY0VKUNacBZY0WdO4AAIAmIDWZ nonQLybv1NwOeG8dMatEAQBwd8pPfP0vW7OiTkvTNbEbODzxGU4ncRRZhlP8 WVG8azhRXKDTdRh64E+BF45wzV5apa8z8TshvZNIYxkfbP7JCtGuEAAAWbAl LRB46SckeEqujKky/8jWecMIB9rmYePnfP/bHaWvyd0g0jJH7sil/wey+lVs JdBk3jmoDirLdF19Vrx3B9yO0gfnf0yYP35Yz6Cn0GZeAc926T96yvzYtVsP /JJz3+U2X/hMIqkbtidg02SwRi2XZ2lEk/nrSvzQ9rV96oTM35LP9FsXZR1I WLH820NMtgkoeJqiFygzfKh+ok+mbVgyZ9ygvh2aIO0p6z3dsccro2YtjN97 /LbK7TYAgAclt1Z397OlkQxIva/09bAk7+QiohenX8Nxm5j621KKnvRYz5kX uFRpmc5ssG+ZWDZyYsO9r0dZ39SAhScLKDxCjWVaD0gVUTgCnFFWxmf3Ul5W qokk/rKC6znKk53/UAV3697Z6JfwSeaZeXulDjFpsozXe98LVFdNRXcui/dz 5LreEPGmouh49KimBqxzRFTi7tRNswfgVlui5yVKgDZuL0HJzZiOj2Jhc3Ic Vz2k+tUQ/pWQowFHkKMQkGUAVxSd2vbePyit1Z3jwktQ8Ewihxu2e2MyXVo2 xMdy28ftdlCA1cofMQOswXNg6G7X25/rB0Y/ZnmtX0Acl2an9oPvZ2Zsugcq HxsqS7J3/DecOifoG7Xq1uU5f2/KlKBv2n7Syp05f6kgXAQAkSC7FIlr+icL xbdyWG3fKAnV+rpTN3JbZk3mY9M7Wf9aLM+H0rurunhbZaJn3ziIZO+Ybmcl pXA5owFjGckovn7+8JZ1X8ydMSKsR8emlF0Grti/PHDSx59///OZQqYt9LWE iCZ6bOphdWei2Y51VIKx86DdInVA44PJfDLS4itePTP2jbwicTRFlWWwZp/s F/jNy3fMEP8nsZxSjZwWuXxTalaBCEoC/lw8VmvkRpuunn9gNP4xOl3n0emi O3mJiiZurwWT+czaFzFsYlqhk/+GVL+GJXLZabCAbDJoQUWyzP2Lywa+QAvv paXeU/9cth82ZE6xblr9Gg+Zs3LrgaMXzv16YM+O+KhZ/Vs+7uxWOi9CFziT yOeGXf3G5WXl2oqz2WFrXSqJDaNUVDyID7bF4UzpguRBqhFb+ju3nzDv27ef wLTRTkVxyv44Gt23JS7I4DLsyPlrNqb/dgnd6JUV3Mj8afOSyYPaPGb9QfRB PWN/ua7qGwuLDsCS/PQI68DWVKoMR0wnVr1gH6vezgNUBnJ2vmb9e5Eskc9v 6GG7ooBZO9AQHFfvmzDp9ghqMJZxs0ij+OqppFWfhPdoaWQ+wMMxtu87f0uN SlrRwZiuhupJ0nd5tqrvkSQ7TWEwekZJB5IjJ7bthjNosozwPazkv6aPX4eR 09bszyrmu/Cbsja/oqeWzd5Lj7C+udqLMdV/e0kq/86/dtPp+5DVr75Y1FmR IzjRh7RIWHUqeREh/809wVO5vLEmz8VddJjqSwqOfxsV9hTtpMDJ9lnoTCKx G7bp/rUDG1bOGzMwuDVSn2V4pFnnnkPGz1z8zbaM65o/7Cd+Aky6pqUSQTZp ZSocFtjttKJ479ggPGWm3uPzj0NGe41YBFJLzdfrMxJP3nCttJRl/7yod0vr M+WLqLKqAxYdgC2XPu1t/wlDVp/R+tLgHJP58DtBtm+px7qPz+Ah5aPta/kJ O1SsDb4xXHiPOoM8OngWzWPYkCX5rH8MRYxl3DPSwIvTtywa9S9/WiToU//Z sKFTP46O+35Xys9Hs3Jyci7+lr4vdevXsfPHD+9Q3/rqwKFzjhTQv7Tp4t43 G3rhAy94yhl1J8uALENS9mD9K/YmaSzSmwUj+h6WrLKxjNWkdV/OG9rF6HiL 6zYatWzj/l/Pu6qxOf1LavKPiV8unh1OjnY7AaFvxZ9gCJ+cQMyotNn45Cqr lbtB7allar+9bBC40WBCrbJM9Rbpr/MHU6zs3BgX+4XT307fusfsFeuSUlhQ /fPFLV++bPHsCaP7d2rhVMxX0ddXEyV7Iuu7DD5N9y9vmT2oqcF2Hw1Y//UX KS8WOJNI6oZdnJf2xbTg/2PKQfUxBr89h3ETyo2i67six7Z/wgsz1Ar698IT 4hYo0j/rj2WEE0K9R6NOa8kUrfKnhfZlniFdUHhSeu6BMXhlnU7XfmDKXe1F xzJg1WR8a4345hjbeoGSwrQPQmsTv4yalRlYdLSInLMowZWU4daUqup1J3S3 u1a/kIku+Jng1J95KipIyo3eeZ0+e9DMyV4zs5B5xHR6bVcMG7GLddMK+Y1l 3DLSINwCX33eV4d8BYOh7euTlu8+4tpp0HT/WvJS4oY4dB/AOyQSxk1YwNw9 Ks8ntMkyymvsdlcKpWSZuz9MobSRqatbniPtJ8qxh614uHlgQ+pTyt1buPRB 1r7v6U+Kj3fo3HUXiriEmpZ0wdCEi+i/kWX+DVsm3OB0WSpAVbeXDRJXv6pX lnHEoW8UVtcQlclz8im+empX1FtB1Hx1aETlFFz6YFHeW/R7+oYlkZPenfHF ntP0vC9hM4l0btjl5/ZMaGdb/bsMmPbZmq2p/8u8dDnr+MHkLd99+v7Y7g2p QZSPMeSDuCxRHvOyP3eOaIVOIe0+S5dKCDCZT33cm9gXt4var9JNcQ3YlDcW 6YKZa7vYbmbH2F/5fZy1lAlMZpxy/+LCtt58pJXSu+v7N7b+NhpKRoJFR+XI OYvaQFNlaHU07gN+FNLY/jUFFb2SbjCCE2bsGbYY1vazI+S/V5WnvR3ErZoM Ca055djwwy0jjbIbmWsn9KJcuI9vyJTolJwH7N+/LPt/H3Tyw5UZ+7lb6Z3N Q8gLHpGkdt0TZBkrd0/PDKQNY8nz0OTZw5KZdTZ4RpimyvzDiROe80Pfytjz 30lX2P5e+L4poGNiPvJPqN3Wa1G5wgtFZUc9t5fVh0hc/aolWYasZcCsI5B6 XMKDolOb3gywTSOqz/5SCmKqD095wPsdBM0kkrlhF6RGd6tleWw7vvrFT85L EfEDnU9GNaUec9cJHrpVcF/pqiPL2lDeVcI13eZnq0EbBPR4tP3oIy4FdNJY xhubfYzv1ECU7GGCDojdE5uVH89ewEiOga7r6HQZshqEA4uOupFzFrVCuso4 1NG4EXZ1GhPDUf/uurdsuoywjQMik6Ibz7LDMe0xbPBmDtaLaGhNUXgkwA0j DZMp54cFvZ5A9uAGr6ARc3ZzEWRI8k7N7YDvpHwHzssqLj82x5ZaqZHTf5Bl cEinXwpSX4k8e1jHOjVBH1R0fefknr7km+n07V6Oy2TRlBaPh+mlmqgDGO3s Wyuo5fayQ+rqVw3JMmgtA4Fwz20zmnQnfbqdRiGmev53W9BMIpUbtr3zTmD4 0sxChm9mD6uQx5yac8sdx4moU+wJSY7sSu/Eh1oeHQ12DEH2xUzpgibz3hEB xK+DNQnedo//ZxanLLSMK752Cu4KUdRgeKRZx26935yw5sRtrm+AphkE//eE +rO2YNFROfLNojbIBkxiaHTqxL44YmJ1ObxJ2PtbENKSyW7yj5wTWcoqscAJ 8ZzUHjK0FqLhs8ANIw2HXQ/mH/T+doccaU4Qor0B6zZwYKC9HF4LxjJmkGUs IE6/FHolXJL0czUpy5htfWlJGZbtk57/y5aUi5QjcrJxT4PGcVc1FuATqOf2 MiN99auGZBmyloHAgE3cL4bHt/X8RQ5zKo1imeoFJVoImkmkcMO2JVuyjzmd xEshYw87+NSxh3qGJaGZCVECpslUGeq+mCFdkDxINWCvfnJdSIhoT5hxYz9P 7pBmm8RwCuy+jaswc3XnQPufa2E0wqKjcmSbRa0gMwMmvQSkDNcPjX/SkgVh 0HWeniCCJmPGi4x2DibdA/ynbeL/FNkuzxg6OXHPjxuiJnWq7dwz1uX1IKG1 MA2fAbeLNGw1RyT+/d8jm2MKABE8SdRvLGMGWcZsd/rV1a1Th/YL8i4nZ4lW ZRkz3mPi0Cx7YpjlSW/XY2sux/F+L2OK9S30+mFL8tT/tDhDvbfXEYmNZcwa kmXIWgbrHcYaUYtiBGCZyphLJDwW697EwC1J2BWizCS83bCrKg692wGPT14c doB9tGMyn188wIc6dTSbvYN/eFlRfHjxyDaPWhq6jfkoVYzAxgkaVxjIfTFj uuClLS/bfxfBKQ2kltWmz+47mrttElCcs7ApdfTzyPSo/Ht9KPkMqT3hFhYd 9SPPLGqD0jC6LrY0S5tBsAts5SSY7xP9Y/cVivf9Hvww+VH7cyTMJ9l0+0Li /PH9OrYw+tRvGzrkw/Vp+VyzXeQxlnG7SMPeg8+KoVbbyavFEe6qefhHdBDd D1n9xjJmkGWs+Z86XYc396yZTP0BJb8nGpZlzHQLL4x7m1RbpIqjXZ861d5e R6Q2ljFrSJZxrPEX1hAZxXITDFjfyCtuF2SJwoP1b1vuefWsO/SAGClb4swk fEVLomUDH+eQwnNzaIZmQvKxZYGUF3jkNigOuS9mziuwjVKRUhqKshc2s/7W MpiIagDEbNP6i/DaW2UtCCbncJXb08GiA1Ahkzw1Ul7BjaIbq3vVJ2pSpiWd F7mwh/o0KbuDkMdYxs0iDXoajwELXpwqonBXzc2VQyhLjBaMZcwgyxApYZZz 28o0WtmvVBkFdrQty5iR7EQbQQuS2ZbOk1mIYp4ZyY9Kb68zpDaWMWtHlpGo xp/AchOUn1HVC5KHIEIfH5FmEp6ipcl8+J0g3lk61LChGn2did+p17u07M/4 HtZjN0F540qBGMswnmkenviMdVCJFMvZjFC0UW4jObSeRAYsJPYIj10psv6q PeqGRQegQH0ERBwMqqDoxjq8/Y1O3653wgVexq2uoWTKSb5Zc40cxjLuFWk4 lFZJ06mQrHLFNKR8erQsY3P69X19cU6l1QqSEihIfPSgeVmG6q+OU+/RqNPs NNhr9ghZ3TsRJlR6ex2R3ljGrB1ZRqoafwvETZDajV/DoA0uhQxpApFmEp6i JVE/ZcDCk3lFhah1IfFsqlijJovKpW9TKAXovpjh8SzNi2lPSOLixXKWru4E /RKvivGO2qZgX0zY03jUp2/aftI3P/M6J6WHbWrOUYdFB0Cp+vmzp6UZDMpj 1WQwY+/JB/Kk2tDhDRnVsG6SpxV67Nk3Dkr0M7pRpEGvXaoeJ8MWi1a7hEKu 4ziaMJYxe7YsY3X6te8LHFNMJS7UdQNZhmZZht80p51nHSB7j/KeZ9SBOm+v E2SpftWGLCNljb/ZdhOkNgzXNEhApdf1fPe0gOo8cWYSvqKlZacvoLadao5B oNKtJdm0Qo+9OP6EFk6daJD7YsY+wsgpm2ixHPlbu23LFdmhyzLqTTmARQeg glheq1qN54xNkwkctSij5lZBOYnzJy769rKAbSdF15J43TTln/kqol+gr1fQ yPk0N+Dy9Bi7QZB0fmvuE2ncOvbu06gmI62xdtrYJ9UeWTngubKM1ekXKQxx Uuw8IFVKAdsdZBmz+e66t9BoA/PGxu3NY/gb8ricLi+bbmclpRy/rwlN04Ia b68z5Kl+1YYsI2WNv9l2E+TvKKclKMmlWKdP9/OszhNrJuFrLHMtpj/5Neo1 7DPtCxeBqFPoZ+iqPdPJT494zHqF6t38ugA1lmHaBFXsibT5SVJjueK89JT9 uXzP9ciMLCMWdUZ76UZqhDKTSOm3KRBYdAAUyjm+yINBSQhNRs/k3Yqfgzwu 9Gm9nR5BdizV1526UYqEC5zKkp1vkE6PFPGz9E58KJGDqdf/c/xxyfL+3STS sNoNIRixWUekyd23YNuSqL3EFcVjZRnC6ZfSFqE0P+Z56qjl0RqAC+4hyzhk x7E4CkTSuQNm7UB/b/wYvYmWmjyq8fY6Q47qV43IMpLW+JsJfd6ILf1dndsD dVBVnjwqEFmaa007yMtAVqSZhLcbNnoWY0FXe/SKfC6xzsNNNKt5lW4tyc4X Uk4gEkLui5nrksgI1i8gDmkXRkwd/Au4kOGqSWlLddCyZfRYz5kXVOn6C4sO QIF6MKFSKZ4rVk2GhXerxVdH6LemZKBJWd2QTwnCSXthssmRDmvyXNxFCbeu 7hBpmMynPu5dm3oRAg0zGbF9a80Yy5g9VpZBnH7Jf6RnmeKW11FnJZws3USW IS03bfhgs466mh/J7E3aoSF+9v2YOnclNaHC2+vsTZAajSbB2+6JeYEompBl JK3xtySL1narnGRpII1KiGHZ/B/fX+M82Yo1k/B2w7YvW+QX4Xgo4zCBqLKd CuqrLJkzlaQg+2ID9uon113cYTISoJdr4VNHKwFfn+wKrdVCMJVBk2Ukz3Dm DSw6AMrfO2Y8hgwH7bYiJako3js2SFfba+S6U8VM6xdxDiK85g5pZYVh9XyX Z0uzcyjMmKKzBRp9p2YQKTElhWmR/Rsa8GlH3+7luMw7kny0DTeINMoOx7Sn fgWxenG6wP6tNaR8eqIsQ3H6dX4NdiS9GDeRZVB7BysuvTfRoJea+EE0gBux S0srlOpur1NkMZYxa0KWEVLjX3Z//5KZi3/KcXX/8KQ7yW2p3AFbGakd34Hz sjhNt2LNJALcsB2XDK45lg7H6KqUZcicPYV7XvAG2RczfIXilIW21CmDIfwr cqbF6w5qCTSoJ/cRdbGlWWr7mTXIyVVIjrNaZRlYdAAqFJlO4vNfOagoPjQr 1KdB80nbzjFkUlb+nX85e9f4DtWLNoPBFwtosbFU6pY9zcOvwbgVO1KSf0yM WTS2S2O8gqpe/f5z15zhWE/EA81HGvcvLmzrTft8Sl6ENNg3aFoxljF7pCxD d/pFcCy+C0uUcNi4jSxDDY2I6KhmZyrEw4diclJVnvZ2kOaah6ru9jpDHmMZ syZkGSE1/pbOzgyqu8mU8+PXcWnnNVjmITdlB6NbU58dbhmtYs0kAkRLymkd 8WxyPLNW/AyLDWhEx6nISy3Q0t1dlLpcPzT+SdKQsGPsr+R/spQgCTSoRzPJ QxMuCnkr98dUXlbO8DRSHx+1yjKw6AAolOlI2gRmObBoMrTiFGao9aH8QCNb TNKMiMqS7N1x0wb37dAE36gGPNul97C3F6zdcvqOTG5OWo80sj9/leo4rMf6 zjwv/c2zfGstGcuYPVCWcXT6RaBtKjGJ95XuI8vk0/xPcP+BqYdq2GBZqkod f2siw00G+VRcVHd7nSGPsYxZC7KMkBp/4mhGQ6q72nFImOHm/ybSTCJEtDRl bX5FT/kGXO2LnVR8cwqWqsrKpF+5yQMLzRvLYHiQ5t8m4bqzhz7v1NwOT+hb BHez+TuiM9ip2Z0FnxqYzFkb/mn7oTWadyQdZbcv7d/w5fzxw3q/0MKIPFYB HfqMmh215eQNx5FHLm3EL6tKWQYWHbUjyyxKghTFaMv1wgn8NJnqRzVo6EEB HRit0By/XVenahltRxpXUoZ70z9cng68li2Jxh4xT5NlnDj9IjhssaW9Le4j yzi6JbsIPMhGq1h4ygPrReKN7LHACfG5qvTrc4Hqbq8jZX/G97A1ZqV2qxEd 9csy/Gv8CXsNTanu6qX0wfkfE+aNGdju/7woPwem03Udnc6ySkSkmUSgaFmY sXXRmIEh3YODXx74/jf78jm+QdaCYOod0D/+wXbGay+7kblh/oTQQOuiaWze aeSitSduS7N0culhxJXiKxlblkSO7P2Cvz1sq9coePg7S7cfvs1L/nGaYeG4 Lw6MWElrFFKYse29Tk/o2vVMvFxxaXFv4mV2H+nyzA19vcTof0pqiVB1YsNU mX9ky6JR//K3TQb6Ri16Dg2fNH3O0tgv5k99xzo8DF5BIz5KzaUMcuohskpl GVh01ImssygJqs1iysizporC3BwuZOfed3ZbnJm4skMkCYXMdFXv4y8WWo00 TOZj02l1KHqs+/gMSa1+bRBbEg0Zy5g9TZZx6vSL4Fh8RyktFxv3kWVM5p2D 6nCYdW2J4sbQyYl7ftwQNalTbSxw6JwjBdqx+rWhkttryj/zVUS/QF+voJHz abexPD3mBdufibCtcAltSKuu24iQGv+Lm/tqTXVXIyUFGfHzw5rYVvnnw974 R2OMSqel6WzvsfCZRC43bOfgXp0+tK/PWDlbsP/LsOpvbXikWegbsz/9fJ51 P6vT45KCBKsnma0n5vg33b6w4b1+FstE5xg7vb6Go48iUaHsWGaF7oufadvO aDmqDugVHhW/OTklNWndSvweehvahUel51tuINFSBM+rCZr2TVJSwpJBTxmM YbMzhR/vor84tM6xqGHzXn3el0ge8Kkd8s6iLRlXHC1DTfevJf/nrSBv6iCn Pz6qNFKGRUeVyD2LIlCDRla7Y6GUPsj6afOS6WP6d3vOn5a3wB5DrbbvfkM5 73B2YsgOkb417QIkbp6rYRSMNOjNZHGk3onYKbt5bn/Knsy7GlJlPEmWqdnp l3wFxdUfk7r4jtbyTMOyjNl8eOIz1A9hEK6rY/LE+eP7dWxh9KnfNnTIh+vT uGq/KkEVt7eyZOcb5N6W4m9feic+lNAa9fp/jj8unchogSrLKD+r0OFd42+b PbSluqsLU2VeWtyIltZ5PqDXmOVpWdX7L8KelzK2m3b+/gbbRVvoTCKXG7Zz HCOWBo3jrrq6iILU6G61MH1Qz9hfrlu/KNltnEuuEWuQIi/RzikKDq0Z9CQt UcoRHebffEE6687pxH0wYvNPUHNQ0Gyfhi0Trlfmn0j+au67g3u92MwXw2PO zj3fmOFQI1NScPy7z8L7dq1+DX5EGLXuQpE4gwNN8PDo4pTi/OS5g5vadLk6 wSMSzjCocIVH1w1vVAuzD3LKWTmm0ioGWHTUh/yzKIqcScW4nrl0WjA9K5Uv YhjCiAvNC1eOTr5aRLlI44+YAdQPrrmIGLDgObKMC6dfEscFVLrDF4cUCE3L Mo62PB4iXKvi9lLNZ0g7epP5/OIBPsRM2OS5uIuSL1g0WUY/IUFVSfq8a/zL T3z9L8t5rkdvo4RQUrh/oW0L5mscsurnQvtOg1zrSTrFnpBn2ZbNDdspD36Y /Cjle+t9xq1xMcIsBeZOzqrQhhSiG8k+WP821+fFFSZT9nfvd6Qf3NWEDmvU cjm7Bl0WfU9Xe/SKfNomFs32YW+1KhmoHYr8Q04llP3xy8KQxlazBAPW/aPv L5cw/1U1BUmRrTGsXdT+cnoxCKaGONYRWHTUhiKzKArtlE2q39dUdW3X52GN RBJkiPlT4ip4HtC8cIU33XZLFIs0Hv4RHUQbgWCqxoCnyDIunX5JkNYeFqSs VSzOWdgUHaoidItzimK6gUbNITmiituLOMgZ+07NIETsksK0yP6WGoHq2fXl OI7lAPyo2BOJTP6qy77mU+Nvqsw//O1wPLbRmJ27irCWhGA15T84tGSSrxhB NjdsJzhzPKZneqCU3Frd/Qms3uPzj9Ndka/F9LePadFjHvSpER705iVOfpo+ l1mo17RdU4ceoBZYdU4nxL3HsFlH6Tew6ufP7J+ohrJKZMlQnXAtDxYDKFus bsCCF6cWcnCetPzQgd233aYIhgRu4mYGi450KDSLkjiUk0iy5Sm6vnNyT1+n 8yk/DI826zHwi6OscxflQu2F82pAuUjDdGLVCxgdqfqYuwseIsu4dvolcayU lCxnjzpcObc8Zo9iuoFn5BOq4vbajdf8GoxbsSMl+cfEmEVju1jOIuvV7z93 zZlCuVYqijE+htXFlmYpfThth3WNv6nozuWcy1nHf05at2rW4H/41yJerwLj goIL8bPfmaQSFqzIZJPFyqTJ4JCu1DZ8sPknpV+RZHTDdsShegtrNnuHi0u4 tebfj9RwsoCcGIpfeItmiQuc0suOrOxGtiDBjM/3mhaTcPC3K4V2Pazy7/ys kylrPxv7j8Zk34ma7eDsWG6mHgub41ihnP1pqPV9ODawkwa0VlqNzdClhqLJ VI/nyF0cNBkLROwUlpiX/g61tleysy3+uMGi414oNYuS0HYZUhhM5Z1cFNKY 0rfHL3DA9E8T9/4v8/JN3Lip9M/ccydTvo2d0BV9mQ5r0jbhqsbmI6o2q/xO VoUoGGmcXxBC/WTxuwa4Hx4hy9icfvuvv8gw/TnaIklkyldRvGs4JW/ff9om ifYE8ugGjp8iyU+pPtRyeytLsnfHTRvct4PFTDXg2S69h729YO2W03fk/Qkc ClICJq8vUMk6Ty9R5Iq+7tSN7BLtpcLpMFAQ5gec1GQwzLfWqG2XappM/9o+ nZbq72jcyg+VuGHTKXuw+XXU61inaz8w5W7Nl1CUvbBZLeeuO6V5Me3t+1yx NxToJsIXizor4K2JhdiCvnXIvE0uey1VFGV+82HXx6wvx0KmZLoYa8S0Uwub mFZI/0/kmi7h2Qc3SO3azVuHOELTZFjlQTmCZxrrvYfMnkEpX1BlwK/9Rcet UGoWRaEZIole7J93am4HP/L9fbxDI7+usXVOSWHaB5T21tLtRCSCGhQpYRCn chSMNErvrupCM5jWY69Faa7frsy4vyxjtU3TY31nnmfxxjT/KPGvxwI1kVuH tQjZdkuqqUQtuoGbAreXzpWU4ehM7ItN2pen9DXhONb4c0Xx3EvTuR9eMYpY Ki4I/TPt4l2vylXlx+aQId8zMzbdc/HyexlTKI02RXKXVY0bNo2/dn/UhPyy Osy/adQJesIw5fUW2arZvL1OlIzzG3qQbyV2XQy6iRCyg6iqOPRuB+JtAkct ymCXv0fu4r2dSS42XKTKmG+nR9gcTNRS0k7WSqtSSZCO+5eiX7RvGAUdzeNx ml9AwGOUCQnrOfOCygJ+N1h03AnFZlEUilWC2DNA0Y3VveqTb+4fNC3pPENp bkXx3rFBZA4jkxOs2qA+Yp6Yf+gaJSMNZ6K0x9qpscftZRmr06/rSjoEh97u Yi+Lpqpr2z/uTu5bOTab4I48usHDTZMdIwqV6gaiArfXEcLCXbYRzhJ6jT+G Df4mM8cJl7OOH0xJSd36daytIaCFer7Ls7UUrigOYc5pHQOMBaR07z6RjIlU 44ZN4d7ZOa0R7dK31siN51wFz5UPNw+oX1NJIK3TgcgLFqohCGggXnY4pr3l XQIjVuZwOf63GZ/WbFHoIlWGaiwjqY0nB1BbOc8wxsepeJg2sQM6UIXkpzmt 6lWhrQQsOipCwVkUhVLoLWq+HOUR4xJ34X3YSdQyT7KC1j8Xiv6oKBppoIuv FTbOWh6Pm8sytvQt15V0KIijkRUxd9loOxJiEgl8IeqItDtWVZifuC9we51S sO+LXvWQvA5f45Av9ynZA92xxp+dlaJNW4DlniO3j09BXD0ZvUGqKdkTWR/9 gUSJV1Xjhk2C5I0QNyck9gjDyMIjeT3Wa2aW4xNEyRPWEVaoYiJKxY3NctA4 bDEnTYbgjxVv+Lg4Vs7Z+VpNqTKosYx6fK7QujB5PJRUQHHKwlbkoNdhQQNS 7/N/N6ce+CowDqICi46qUHAWJaHJCGLKMpQkfG9syDqXG3CUqorN/Yz2BUmc PFWZkPB+ah6lIw205yCnCVCTVBSdT/puxfL/Lp37Pm69OHZYaEhw8IsdXopO 5rpPc29ZxpK+xa1EyGGXrX/8g+0iJMaaqq4lfxX+HFLyafAKGvFRaq7kO2vF dAPPCDjh9tZEWfbPUa8+74s4fPqHvZN48oYy2gw9nZJ1MkZJbjS+nYAafy6Y zMemdyJvdffxGWw2TFIcI6rHDdvG3W0zmpKrAKs2NH/vmPFYDckAVOt4fZ2J 34kaUaNBL/9fpOrIsjbVf+60XJ0NJTdjOuIBodPjuVOzO1cPsRG7nJ/c2eIK JncaOaF6fqpZXReNwnNzAinVl+0+Sxfy4DksiKoxDkKBRUdNKDeLUj5KKhkh 98AYpAq4QcTa21xEaKRMQFtiIMgyNaJ4pOGQK6jH2o8+4p6tB03mrA3/xJzA I4fTnWUZIhJg4/SL4JB2JfjOVJZk7/12NnV/GtBrzPK0rGJZzu4U0g3cWhdF gNvrCtyI+KuJXdCmKroOY+bIL8441vgHzN3D6vmzHSRBjT8H8AQGErZJ0UVZ cxogI1ys+EolbtgWyjM39EU881i2Bi7Y8VFQ6+arLzhZiHBRwo74CQNiyDIm 8/5xzTBhRSsPfpj8qFNzmPz0iMdc6X552xZ0r68L6DpARa1dPU+WIVp7kAjO XHIM+KXcSvMEFh1VodwsiiKNjFBVnva23R+GjwCOlAloS9kAWcY5aog0HJxa Ddirn1xXR8qq+JgqCnPxetTsU0c+D2tsv1Gzj3He67itLGMyn1sYyt7pl/wz yjOOCbKQqig6/vW8N194ityT1mvYe/ycxGNX5BFkCOTRDRweQDfWRSnA7WXG VJn/y64lkwe1sTs0Gh5tFha+ZM/ph3KlKjjW+I9IYne2SuyhoMafC8gKziUh nLJddcf4Cu2RwTpSckVh5syGyJzQafSRh+JcqQ10QeRrqYqrbYKTGXD5RYe1 HpBKdSu89GlvTP4uWgKhlAx4gCzz8I/oIDRVRvBxPPUGEk9TeLLacmU0v+iY LiaPfYbeAkNmjJ36b8uVOFyWfBZFkURGoHVA7rQ0nevjhdSbaG3lvbTlZbHv p+ZRR6ThsG1RXmeQA5N556A61tHIy47PXWUZU9bmV/S4VBX+w2/ODNZq5uj6 1ygDSYDzJJrC6vN45/FR6flKnM/KoBs4NhZXT9sLiYHby56q678uG/yCTaWU cQHlW+OPg3ei0VZar9JQeipxOcWm/ExuF1+hPTJEiZTobjxCC0OcgW4i+J5Q WOx92Nu71XQheMrNY9TKTTxWVGX1ChNovOr2skzZvoU040eh3ryUtDpMpRVM 2l90nPZ/lB+pHxDpZ1EUmiwjRucgWzqiBZ61okg+ttZWXlpnK21dvBSoJtJw 7GvcMfZXoZfCjsITO+O2HhL+xflALk8827W7pyxDb9QuBAGPeUXRsRXTejcl R6a+UcsR875MOiNrBYccugHaWsJG99W/ifwpqgRuLzOmioIz++M+GNv+CfLM NKDHm59sPX5fnmmTd42/mTiLgRp/DljqTWxwOsWmyI9qbHfLn7I/d45oZU0y 9/Uaue6UCAmTVeU7B5MnWNJY2oohy4jEg/VvV19EWCLpHX133VvV+952UfsV tBLnhwfJMpQ9owXhRSKZa7tQV8OAWTtUdxO1v+h4RLaMHLMoikPnIOFpz9co I81/2iYe+5W0sU/a3kBrygZky6CoKdJwlGWkKCVwAp6fWUupkYCa8PDrBu6W sgy1UbtABJt4lD44n0Sz1/AKGj5TNnsNOXQDx/b06ml7ITFwe11hqsw/snUe aqwk7+An4F/jbzbf+3oUBjX+7KGd3NXUPccplCImTeaDOaei+NCsUGsCEWOH SvZQonE99lpUrvgqFrWIScnCScJSD3HgJ3yA/eotv6SFmRCFmkfh5rKMY2aL gDbrBMScTGLEos6oLjUeFh1tIMcsiiJ+ERPlceCneZbdW9XJi7wJvAsEFAC8 ZRBUFmk4yjJsqziFYRFGZHiWnUPWA/IyljG7pSxjc/rtHX+WTy6iY8FIXd3y HEFXZHnbkuyklSNaIaPUYGgXLkdZkwy6gUMEUkOHNXcEbm9NmG5f+GZCr4aI qUCdbkNW/3Jd/gvnX+Nfvas4HDdiRERKnpa8K5SEsgvjmMNp7T9iRWilg0ow mS4tG2JZUXSYf5sPU3PEGv83Vw5Bh3S/xKsivTGKOJ2YxAGv7CA9Ay3dnfQ+ 49ZoT7vzIMtfx/4UPPO6SejGMoqF366BRUcTyDKLoogtI9BSTJ994yCPd8s/ MBp5QjV1IAKyjA31RRpIey8rcmTL2NqASv8sO4NcnviX1rqbLMPT6df5lYge OJnu5+6a1b+hAQkpgnou/1XaDhEy6AaOEYjGPBgFALfXKQWH1gx6ElFkfLx7 f7ItV5GcbCE1/gBXKBnFHKUVSpG4TAcr0mIyZa95q4nOMur8my9IF2+qL727 qgvqwyORtwa6rVY64sWPdL2tGTtV5cmjArFa2MS0QuUuiC8eJMs4WR/55XWT UEs2MG9VjgFYdDSBTLMoitgyAiWVmmc/Mlr/WS0VyIMsQ6DKSIOe1iiPLEN0 B1DKbQwxluEtb7qZLGN1+jVi80/wT7Y+Pq0dbSyJuUEgHx/bOBf3IXJAct2A 3meBp+eYRlHj7a0oOp/03Yrl/1069/1J1YwdFhoSHPxih5eik+XZABSkRner hVyyiOmUPBBS4w9whBbgcZs5T64id6t+AXF/MP+FyrE9CDp9u5fjMu+I+M5o /TLG10+AFaRWpnzEu3d4PSwwdPd9Ym+ux0KmZGpR0kBlGVFycVUMYiVqJTzl gZA3pB7d6rGwOTnqS5WBRUcTyDeLoojqhUJbcFHrLfacXxBCvoUP1VZd7Th4 9ShtlK0I6ow0TEeXIenPOOwLOXlDNGdUzHEO8T3jLW+6lSxjc/oV2PThWkx/ WiAh8kbbZMr+chRSlqLTP/tykmQJq1LrBo59FoIWJAtz9NMS6ru9jnnjVuSp CjH9vvN1tArQGxuyTjlNRliNv+oouBA/+51JKmHBikyHkznK42DElv7OYcQR nq4WtFGm55qyIyu7WU6v9O16Jl5mt6hVlWanp6Qcu8DYOB5pQS6Gh6oLUFlG 6RN/PG+wDq5j/BEzANNC0qBz8Gos22+niCwjo25Pl2UEyq2EoRAy8tWYKuNm i477It8sikLrHCRsUqUkJPhiUWe5jzJKOoT2ZA3q3l9hX3pFUG+kga50ll9H 8vq4KynDvZVMDCCfRwHypjvJMhanXx3Wps/uO4J+EceNtvj7WYdeUdKJe9Lq BkQyObrKeFKqjFmdt9dUUZiLN3vPPnXk8zDbMONrPyXsgrEGEWtvK7pKCqnx Vxsq6Vhqx3GuRq6Qs7cnmqaodWOZ8nM7hgd4cYuUzEQvadI+peaXZc4kGyNI HEirKbUD3+MbseXnLHtz/zYJ17U5RlCli0j+kRVZdXuqLKPDgoYefMj/3aiH FLrao1fkq3IL5k6Ljtsi5yxK+dzqSR4ZGcImVUpja15m2qbTa7silyNxf3Dx oQZFgq2rtIaqIw3H/Yuw+Z+BiuK9Y4N0er6+ssIxmfeOCLB+09YDUv/k+Tbu I8vYnH4Hbxaa++6QeSXJzbE4FiLDVbJSOEl1g/LjK9Epvfr+h676VeOn3NxQ 9e01mXcOqiNkyebM1Z0D0QtWvGOUe9X4m8798IoRrWhTEv0z7eIdzqUosgyn 9Gy0C7ziw0YgeSc/aOXNOVKy7peZl5uSPZHoWXyn2BOOQUjV8a+7NcGiTgme jFFLSQM29bCSJ6n4HkSHvfefz4I0avZLQFYxKHQ2LaNuT5VlhJ1ll96JD7UP fB3WqOXyLHYP119X4oe2r+1TJ2T+FkYZpyjrQMKK5d8eEmCY6V6Ljrsi6yyK QrWW4ppTSgN5vnhOJkgFkyYPVakRuPI7WVlRfaRBewdJS+TubptRHUL6DpzH clmgYKrMP5H81dx3B/d6sZkvVqf5C/0jPlzzP2QVqCgrY1y5HIxlTPevHYj/ bOKgPkENvDCf+m17DZwWuyHjNsP1uYksY3X61fm++cU1oYXGznoHMIqKPKA1 jpQsmUFC3YASJuHwfCK0jKpvLzJLyHOIQL0bKiiod6zx1351jJpBBgC3Xx8p YVarXwRL7p1b2NmPe6SEQ9w9hgmkqnznYPIEq6YO0XjqkZc4a0ra2Cftn6bs oT/RevKZZs20avZrATn3kSa04HApkuv2SGWi0GXor+3T6yPvFBJ7hOXsQpS8 scpNun5g9GPEYyWg2AoWHfUj+yxK4tDsVYidJiLL8NI872VMqU1eiWKOHAKg lUlqPc+WA5qINOjemFjArB1S7BHLMzf09eKi1SOUZf8c9erzvrrq7xg4YPqn ibtTkjcnzK7+F59Hei9NLSwvPrx4ZJtHq+9zj625Lh8w1Fhm5ZlrSZ+HNfLS N2o5IvLzxCT8PWf1aamvXg8CO8532SfLPWQZq9OvX8Ol58T4wakNQfBVtefM C6JvE8iIyEqvhEtifwaOVLqByXx+8QBkdamO656Lu+hhooy6by/q1iW0/wU7 qEuk8rOKY42/B63aCsC/nzJ5ZidGxqNiFN1YN6SVjlekZLbVPjCsgJRONDV0 B8b1WL7NUh0/EDFbk6OTQs3YJlvRvpoioNLl4x9sV1KAlEG3RyJVQdkyd0/P DCTDew4nFGTuCnM6AekMICCHARYdDSD7LIqCCt2YMK0bmZwNhvCvuLZhurXm 34/Y12vB/g+KQOvCzM/0WHtoJ9JAxhgmVUYWkTXki43bncvtD02mnO8/6vqo Zcrv+e+kK8gNqSg69elgHwM28sPZHdk9quTy4W3oNfDlht5Y5/dWZBYiX/bh nc3DWuEljPUCZh+usdGPO8gyNp8W0ZReNJ2eGEjSdKCgdeKWKOKVSDcgEsZI jLWmHZS20zcPTEV3Ludk596XUCxS8+0lDpcts4QsxjIOJxeK+xzSa/wN2MT9 mt3OaQKycJ7LtFmUvbAZsefSY93HZ2jUMZwobXZc39n+uWX/yLQfpDWdDE24 6Pgaoj2HWMdSFXsiH7V+msJxgn0Poul9LipzSXQWwxI5dHvKaSnf/MmqikPv drC9SfXE8o/vr7FeWMjcFS/9hARXHTqrKjb3M1o/QoAHAiw66kf+WRSFFiYJ iRgRDZC75om3ErZdhDc2cgfHLa06oG2jhKQeaQZtRRolt1Z390PfSmBTHjp5 p+Z2eIJT/qQVpC2ysfc76QUOd6PswfpXEIndtaU2aSxDvLjWiG+O3Xd4uc3K SafrMPRADeYzbiDLWDawrr4jZ2i1n3gVc8fEfJHeHIHWiVszsoyp6tr2j7uj xdPKdkB2SgWReGa5PB9jyAyqaCke6r29aJApmXMRDRHjDRFwrPGX5kEGSNDE V9YnzmR5gmaDw+oJ59Cs0No1re9suLi5L2OdBflQW2jQOO6qw2eZzPvHNcMe w2YddbUH5QDphaJwnwvr9KKxFq50yLNyudTympBHtyc6lgqZgSmHFC7PGR1B c1cYTtLJviECOobAoqN+FJlFEWi13oJS5kjVkaPmSZE6sWdmbLqnRTs32uOm tCm9HGgw0rBUGCFD3hebtC+Pz5U7vvO5PRPa4ZpM8OLUQo4D+FpChEWT0WFN 2iZcdf7HiDcOk4svakviQiMqyY221TD3S7zq/EtpXZa5fmj8k+I4/Tq9GEkf dnn2sCLrBhVFx6NHNdUjb+fXcNwmlWkyZnP256/6UL+1RC2B1Ht7HeynZEBd soxjjf8rkZe1GHtoCtQCglVGcdHV6A5EZCWKOZgSmEzZX46qj2cU9/nmeHYO I+d+PZCCsHNjXEz01J4t9YyhNeXIoIa84pydr4nrz0POJFIljrLEMr1or4Ur hbJ7qzp5WW+msht22XR7u2GLhZpi0ZooSI3uVsv2x9xPKMjcFcb2wUi9VcfY XzldJAksOupHkVkU5eQq5OBXWHhGnoNwm0/yEifbm5pp2BOSYtGp8PIkB5qN NNDxhv9S/k8uPSNM8MTPrxf38vPCfI1DVv3MVZOxdRXHJZT+6y/WKG/lHxht e04Z6nyR5cP1ZtMmL9T4htqWZYpurO5VX4pKc1rtp0QdKOTZw5InYoJDjsKM bTNDGqOagb51l6VHVVe75FCGZsGIzT8h/sGHem8vaj+1+jeeb8IRVckydBN4 jdc+aIYSS/9iy/hls2T/seINi4LKsTZBTVBDDiEw+QNQMzmdjGfiDNQgqiMu enAmrG+IQIggQdtPMRnmKb1hl1G3tz3jGNcqxYJ9X/SqZztn5ZE1ihrLtB99 xOX6jzgD8M8dgkVHAygyi6JQ7CuF6sxlB6Nb296LpeaJSp38ky7UAEUFVdpB XXo0HGkgFUPWcR/4QtQRnrubshuZa8O7G3F5p82HLu1znXP/4sK2tnXB9XqE bKNc1/miy8fUQ65WOJvWUaOKqF1ZxnT/SvwQi3mOBJnVNBepasJTHoj5ARbk 2MNWPNw8sCH1qzBVWDtS+iBr3/fzCKtq5LFuFx6Vni+GyC5KbzIUumlzzXOL QFR8e8lZQsacfxXJMlbNlgL/M1CAC2WHY9rbVijXRUnlJ77+FzHsxctrlRnK ab5gGOYoahcPx2Sk4pSFrTBd7dErGBsBcwIVnwdtuSXmW7OH2GJrvIIJacOk 9IZdTt2+9M5ma7SG02lhMvPhZmXp+fj3O1oHe3X4HTQt6Tzn8JvctTFJT6Qz gICmVLDoaAKFZlESMmVO2HizvpvVXZOl5okuWP4DpmtYkzHT8o6UNzOUFM1H GiZT9tp32lD8Gfz6/2dTThGHEWi6fy156bTg/8MfH/+w8XysdaguxCGrz7j4 eLKTIJNWb8vlYHqc0RtbQ78/Tcoypsq8/Qnhz9lNhFyVhvHB2gueOobn7RW9 Tkf0PazF4dbCxd/S96UmrVs5eyB1s09Qt9GoZT+kHDnlIgcu+/Qvqck/Jn65 eHb48A71vWhvYGz/8uLkrGIxbrlovclQSvNi2tOvWbh8p6XbiwaZrisiRUUp WYb8afCkzdStcUssiZp09E3bT/rPmq17UlJ+Pppl/zGu3hRlJAMk5MmIDmv0 7OLjd5y+qvzcjuEBlsGvQnMqdtCLpgXDKHrYuv06ebHlftaSIukIFRMUC31v p0foBXmxqgFSLVfaCVZu3R43ZvSzf/fuH667UHM0XnR+36fIOUWd4OHfZz3g sXtEjWUYpCe0KRW7M3dYdLSLIrMoCsVYkrG8jpFbx9592roOBUXuqlHzLCk4 9B9bjbxB13l6Qk6JoI9VnIebJnNaPbWL20QahUfXj21JMQkxtu/3Yfyu84Uu N/6Vf+ed3B8XOaFbQy88qmzY6q01+/L5hYyF5+bYm/o59cxBODzxGcvrmMQW skCDqdYJLeWowR3F0RlDcZzLMqV/5lbvhfduT/h80dgujZ2sfa3/+WHcD/t/ Pcuj7U5ZwXXrTnnnpuUfEb+7A75+/Rd8vTv1p4ws0VZV0fewkv+ahkebhY2N /fH4bVF2UKL2JqOR9+3bT9CvXmhIr6Xb65Cgbrp/7UD8ZxMH9Qlq4IX51G/b a+C02A0Zt0WuKFZGlvnr3JzGglYsIR0qAeegykzD5pO+PUQZ1ZUl2ds/D2vk xf8cXB3QXcgEwqZ6AukUTHZAMFXmpawIe9IL82++IF2CqlJyPuHbTEcwlvIQ hT2HhYKq5XLZsDNfiVy6ven271+92d4utlj1isOnsi9fLSyrKMytjsGObolb Mu0V5LDDr/EbS7fn8t08ksYyjNIT6WvNLosJFh1No8gsiiC6nmDxPrXInk4T rUsfnE/6aqJt64Qf/KVxL/1QH5SuZ/V8l2drOfPHJe4UaZju5yYtsDVksePz eMfXR8+O/jIxKSWVONQm5O6vY+dPGRMaaPv6foED5qwUsnN58MNk2yfrsV4z s1zcBvZiC7J8MPQ0vLpzoPWF1YFxy4QbTl6iDVmm4q/1ffyY/xKHe3Uhv+VV DLcZbcgy1Vv4l14ZOS1y+cYfT1z/S7RZT9zeZI5UFB1bMa13U8uzXM+/90cb E99pJ9AQTEu3F01QX3nmWhK+BdY3ajki8vPqSS95c8KsPvi5nj6w43wehZk1 o4wsQzZl5kUDbOlZDZdFqJnC4xvf/Yc1FNQ3ajPk7XfnL/1v1Mzxg9s/Rfyj f9jEbb/zOQdXCaIGSzUu0zTILCMfY/BbkUs/iRz5UkujXlqnL/J4l+mAScoL UD6tVxBkrx99nYnfuSrtd4EoNb8K6fYWPTZmcEvmp0bfqNWIRWtPCLkA0liG qe0ImqzOMosJFh2No8gsSoLs4zCRUhBNty98M6GX9VQZ3+SOmfbxkthPIie9 ObDd/1n3OMbne73/1Y+8dU51QSm00bgVPBPuF2mU3Ty3c4ltj8YC4/OhIixJ aKtQRgWelFAYXsm+1glJ4Kw5T+Dq/gnNRFXhhGHsPGh3nsO35yDL6AMmfcet VpLf8irGqqoiIw7ZEbk3Wc2U3S8g8prwu/2Mu/u020Dspwy9Br7c0Bvr/B61 RfjDO5uHWYr9OfYbdY0nD2nAOZUlOWmbl0wfE9buKXuWo7H5i0OmzP/20AXI 5OdH2Y3MDR+N7f60de02tnlp3GJhe1gmqn7+zG42qECuuE1GYDiKUjfkPTRg 4cl8kiVEq/lVSLe3YpkTYudYlSWSek93fHngpI+/SNz3S+5DwdIfYizDcNaJ Jquz27AAboD8sygJpdBeTPfvot/TN/zngyEvPedvd2IwPNKs6yujZn+a+L8z he6kBZIqN34P607d6B5qk6qQ/BmpLMnN+CkxZuHUNwe+9EILI1oJUz1uO3bv P3rKgriNh8/fECdWRMcMkwL/944Z9haCrt1lyeWDqRta9qeh9o93bXdGFskq STaP+iNN47F7WPF7k7Fg7/B67t8+j4BMULfgW2vEN8fuO8xpptNru1pmEl2H oQdESmL32CENAG6OjI17HDGdWPWC5bM1XfphS7nXYUEDUl0mbzhB1JpfpXR7 OUGNZRjUPHKPrFiNHuBpIPYygl1/PRLU8UzrSwMgCyZz1oZ/2h86JgnF9oQy afWkgzeTvko1UpatQy7AHg/dw0rQm4wZvMdrXcYWmW4CuYHCBa2Q2CPOw8yS 3GjbqsayryIjHjqkAcADOL8ghGU8IzpW+0Hh3pgKgkzLnDsIiFvzq5xuLyek 7wRjyTmSrO7ezVwA9YDmHwrpye6xIP0BFViSAC2CaPVMCjx7rZ6suNE//sH2 Shcfj/Zzr4stzYKlRnV45h5Wit5kzODeTSKk3GgDRM5qELH2ds2Pvq1eVbQ7 45lDGgA8goub+9oebbGEXFZYz5iYHULUTNm+hU/zjcdErvlVTreXD9RYhmnL VrEn0m4/STlzL85LT9nvJkYcgNpAH0OWRtOAHfyk1WifxeRP4AS0CGIQajCE f+XK3o3U6qlii6nq2uFdR24g2ar30iPYbXkQt2GOvcUBufDEPawUvcnYYDFY 85CFD0lQx6YecpGNZJdldGKVd3nikAYAD6GqPHlUIBGoYGFzclwdC4nKTaKa lbufv3ogbx3neEz8ml/ldHv5IM8lmeuSyLwav4C4P8h/J45W5egeDngkSB0T U1MYgMbt9AjEh8SNW2MDIoIq8K73g2gNLGV0WVaWXgmXyH9BZBnnjaSt7/hw 8wDbWxqx+Sc8oXJDe3jgHlaS3mQsIJQKVh0WtE/a2CdZyVlonSM1HOWNBw5p APAcbIUtssYV9gBJw7p6zs7XiPvmg806yuW+SVDzq6BuLxtIUM2k5pF5NfRm Lrhc00qm7uGAB1J1ZFkbe7QERQ1coCQHBnbfpkn7K0BmTOYza19ktz3JWhBs l1CW/k7GHU60+tL8mOeZZRkydsKwZ2ZsugfPuirxuD2sNL3JmCn7M75Hbax5 6G5PSHNkL2eRr6wOCXTLc0T4cI8b0gDgUZBZH5j/tE3y7NTtyQyuuyGomUuf 9ia+gu/rizllGUlR86ugbi8bZAIMU4FDccpCW6kWNa0d9xaoxb+POQAw8vCP 6CB7PyYsNOGi0hekEUzm/eOa2e+bbCsRoHmQTkyutie3jr37tJd1laS2scYz 3J594yA64BCvthpDFCRdVtd+YMpdrZ4vuT0et4eVpjcZI4RKGTBrh0c0+rKU axEw+CSTwpdoXUE9bkgDgKdhT/zwq7f8kvRHPtZkBi13Ls5PjyAWM64pRlLU /Cqq28sEmQCD4TkwPWdeqEkKu35o/JPkvrhj7K/kfzq/oQfGs485ALAE0V2h jok19zKm1LY9tFzzDwFPhhT0au6oXnRj3ZBWOvtOFU22xHVUveNe0l4GUtOe qyApsjWxOvs3jToB+ZfqxcP2sNL0JmOkonjX8ECZdhAqgP2ZKZLmTReEeeNh QxoAPA+T+dzCUOIBl+OY0moSotk9C3K7AiavL+CyCklS86uobi8TaMMLPBJu k3Dd2R3JOzW3wxP6FsHdGjtZsE7N7synjzkAcMKu2WJQx8SWv7ZPJ/vpyOly Bmgf05kNPYmRQ0t6ISA0Gd8WIS8SqwIlhRL37Tc4O1uxHqA4X6bLf9v8ui+x EjVfkA7ldqrG0/awkvQmY4JIUfacLEfyzJRJ+Mr+NNQ29ETzsfe0IQ0Anojd 8ER6hxnNG8tYk4t0WIuQbbe4fANpan6V1e3lAXVrJAiMWJlDPRktzNj2Xqcn dO16Jl6uuLTYWmJmPwYtz9zQ14uhagwARAEXAO0P77y9WtSeZQW1TjVAPhvA EZPp0rIhPpiTLoRFmXs+CGms92/zYerlvw5Gt6btQIv+WNb9CZ8aHPuL90e3 t7xnv4Sz5CNsqsxLWRFmScjUB/Vc/itoMmrH0/awkvQmcw2eolyLczysXcru repkk7Neibzs4uAF9Q3AsO6rfxPl8z1tSAOAZ1J2OKa95Rn3HTgvS8rqUKtJ CFPRq0ohcjUtGsjIHbnc/laaml9ldXt5QIxlsGfatjNa8tEDeoVHxW9OTklN Wrdy3qh/+Xsb2oVHpedbxq41a12H+QdN+yYpKWHJoKcMxrDZmdpRogANYy8L xfVPSNBiALFOZXJBBwCnVBQdjx7VVI8vrJ0johJ32xYFL8w/bOK23x/g28Wq 8mNzQmtbFt/uM7/avT1xbp+WFhm/hnCnenO6/ePu3hjmUzvkner3TEne/M38 oV3wJu4+3qGRa84UesYmVON42h5Wkt5kLii6Gd+vMVaLezysXQozpuicyVmO oGne4qXOetqQBgAPxWQ+v3gAceTkqmuzQKzqsU6jhu13t81oSogDnDsvSFPz q7RuLweksYzlblyvzD+R/NXcdwf3erGZb/VwfaRZ555vzIjacvIGJS2hpOD4 d5+F9+1a/Rpj804jo9ZdKIIoGpAFk/lkZIj9WQPjX1eYzMem20RXAzZ4s6aM yAE1UZR1MC5yfL+OLYx6rE7zF/pHfLhmf1YxuiaaKvMOfj97WJ+gBl76Rs3D xn+YdIXhCKrsRuaGhe8Ofuk5f29M36hV8KtDZy1LOHjlAawlWsHD9rDS9Car iYqHaRM74Aloi1MLPada9156BLs7jLgW6GrXkJXHA/SY0gOGNAB4MKV31/dv bBENWi6XKGPGmjGisWwNK1Y7Wb3+n+OPc2/nI0nNr9K6vRzkHxhtv2+upScA UAmkwwxkgLiEzCwCVxkAAESGJstQugC4JVL0JquJv87NaeJhmoyZIstMPFDz RgktzhXVHWLv8MdBlgEATyHv5Aet8MwEY9+pGVI0Eib8aQ3YiF23mF+sKuya VfOuCdl8NCtJan6V1u1loOrnz562fUet+hEBngfZkgmSQGoCTZWR3tYMAABP gyrLeHm99z2LLBAtI01vMoCkND/meWZZBinO5ZFdXzMm885BdUCWAQDPofzc juEBuIredMp6sTfvRCGPTtdh6AFttZQ0mU993Lu2sM4LktT8Kq3bywBpieON TT0EaQeARsANRf0IIVTXdXS6FCq31iFTZUQNXAEAACzc+3oUsoX1iIRbSXqT AXZM5r0jAojxVKPxY1V58qhA6+rffmDKXfGOE4uy5jRAVRlsRJL2Kg8AAOCE tf+jQYLsxNL8/WuXfX9SU/0LTKbsNW810QnshilNza+yur0MkJY4WvUjAjyW 8hNf/8t2JBn83xPQkokCErhibfrsvgN5cAAAiM35DT3QTaxfveWXNBQA8UKa 3mSAHXvyedvPjjh9QUFSZGtiafNvGnVCzEPoMuuvZqNB47irsHQCgPtjzZmR QpnRGgXJCzsIy5OxIkXNr7K6vQzcTo/QE99Pm35EgCdjzbKzPMtN2iZc9eyZ lEpxysJWxJPti03al6f05QAA4I6Q8Q+BzvfNL665vYeVFL3JADuF5+YE4j6T WK+ZWQ7HLdZzbVF2DTRK78SH1kcHs7YcCQAAEEJZ1k/vdXyiOmaeuE9TyS2i UnVybbfqyTeo5/JfBd8EaWp+FdTtZQA1loGONoD2KLqxuld9D9oOsOT+xYVt ifZqWFDkLg9X/gEAkJCraWMaeJF7WY85bZSiNxlAULw/ur1lLPVLOEsKM9X3 M2VFGN4ZRKRdA0pF8aFZFhnNpsnAWQ8AeBzFefsTlm09q7G9vIiYrqTHrdlw plCcDBNJan6V0u1lgTSW0Vb3KACwY98U0EI4j6Wq/OjM7sRjbQybnfmQ+S8A AAB4U3QwpqsByTIwYCFRu/NhLgZ4Y6q6tv3j7t4Y5lM75J2oxN0pyZu/mT+0 i7F6dPl4h0auEWvXYKWkMO0DqiajzZAeAABARUhT86uAbi8XtlaAeixkSiYc 4wDapCA1ulstSyjVqOXyLE8fx3e3zWhqCSz17XpszQWtFQAAySk8um54IyRn BsMCB89KzfX02RgQQtmNzA0L3x380nP+3pi+UavgV4fOWpZw8MoDcZ0Cis7/ 9Emflnpk6Go3pAcAAFAXUtT8yqzby0jetgXd6+sCug744iisQYCGsWsRuheH HSjQ6vMoHNPvO1/3IQ77nlx6Bvp9AAAgE6bbFza8168hmjbj13jIorUnboM4 A6gRXPaZNagpOmJ9jCEzVmRqNqQHAABQIVLU/Mqj2wMAwAdrQzc8sGo4OibH ubeUu5N3am4HP0jABgBAKaqjr9hxvRp6UcWZOStSLtwpY/5rAJCeypLc9F2f hVNHqY9vyJTolBwI6QEAAAAAAISBKDMa61MvClY/c9BkAABQmLKb53Z+Pmtw +6fQ2pCGgxdngTQDKMv9izH/bIwOy4AuA97/cvPpO5DTBQAAAAAAIBJ2ZcaA BS89WKz05chH2Z87R+A95vSBL0QdAU0GAAAVYKooOHsoMWZReN+uzXx1uq7j M2DvCyjL3eNT6nnpG7XoOeztBXEbD1+CJC4AAAAAAABJKNi/alALP6et09yW aynDMMw/bDw0YAUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAADciP8H4cM+Ng== "], {{0, 113}, {1501, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{457.82499999999857`, Automatic}, ImageSizeRaw->{1501, 113}, PlotRange->{{0, 1501}, {0, 113}}], TraditionalForm]], "None", ExpressionUUID->"69867c9b-e55e-4f3c-b3e1-e62e7d4abda5"], " , 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.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}, {3.751405896955653*^9, 3.751405909481039*^9}, {3.751406016006668*^9, 3.751406039895808*^9}},ExpressionUUID->"41f59a30-2c67-4b43-ad1c-\ 5ceca898d1c9"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"AlgebraDDResult", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "13", "]"}], "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"AlgebraDD", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", RowBox[{"Fb", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", "==", RowBox[{ RowBox[{"Closure", "[", RowBox[{"Fb", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", "-", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"I", " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], "2", " ", "I", " ", RowBox[{"Cmetric", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"Lap", "[", RowBox[{"Ah", "[", 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"}], "}"}]}], "]"}]}]}], ")"}], "//", "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}, {3.751405911629634*^9, 3.7514059731566973`*^9}, {3.7514060183847523`*^9, 3.751406018484482*^9}, { 3.751406050287119*^9, 3.751406066776762*^9}}, CellLabel-> "In[161]:=",ExpressionUUID->"07e48308-2e27-4655-a6c0-d76e6e7fa5d7"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.7514060052390747`*^9, 3.751406069920157*^9, 3.751566887414287*^9, 3.751727185990985*^9, 3.751730260455945*^9}, CellLabel-> "Out[161]=",ExpressionUUID->"16dd6cf7-7989-4d96-9feb-46583dd33f26"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ FormBox[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnQtcFNXbx88uSIVsJvkKZKaYaSJdvPVXgf6maIaapaam/r0VXtLU0rTw lkr+NctLpqVJlIol3jEFzEt/xVRMxVJMQU3UwAuYgXHffZmd3Z0zs5fZuc/s Pt/P530/72swzJ6dOec5v/M8vyd05MQ+o/QIocn31/yvPiOmvfDuuyM+6PtQ zf/z2oTJY0dPiH3zpQlTYkfHvtt+pE/NP46r+Z+rtRAi/m8TAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAVqkqzd278cuvkjJvlAm5TPn1 MzsSPktMO3WnWqw7AwAAAAAAAAAAAAAA8CbK/9oxolWADiGk07UbmlHC8zIV Z7YNDPFFZtotzQSpBgAAAAAAAAAAAAAAgCvVh5e0QFbq6Jbl8rtKxfa+Qdar +KB+HxcYRb5PAAAAAAAAAAAAAAAAj6fqxzn1LAKLHsVMz63idZXKuwmRfjad pue686DTAAAAAAAAAAAAAAAAcKb42rrhHYNqB7Ye9kF6Hn+PmuJDq/s88ZC+ wZMjV/1UBIVPAAAAAAAAAAAAAAAAAAColrK/8nJzCu7xSTczFt+8ePFyUYXo 9wQAgPYgTOEiIhJzBPn/AwAAAIA7wKIDAAAAeC5G0+k1zyE0Iu0uj1++t3Ec uo+vhRQAAJ7En0fffswXIZ0+vHPSRQibAQAAACmBRQcAAADwZCxCTYcvfuPx y7kfdUYGEGoAz6f8+pkdCZ8lpp26AyW0Dsk/OaN1oK0DgKHrWxmF4AkHAAAA SAMsOgAAAIDHU7B/KNLXmfhdKddfNJq296mDmvZKL5bitgBALRDJ1SG+ZDTY bmkmSDVMiq8n9GhoNu33bRnWVE+Gzd0nZv6t9I0BAAAAngcsOgAAAIA3UJq3 oLkePTfqeDnHXyzOnl5fjzpPOcevKRsAaILqiu19g6yndj6o38cFcGqHU3xt bb/mOvPYRM5PK7pXtPe96NrmwQqNXZHLWf8FAAAAAOfAogMAAAB4DccmhSNf NPFgCaffKt0VVw+hJvP2wbYV8GQq7yZE+tl0mp7rzsMDT1FZ8r9JEcgSMKdb WitWlhycagmbH5+88TZkIAEAAACiAIsOACiCsarg8OaZA7qF1ffVN2gaM2r6 hl9vcr5IaeGx75ZO7EtepHlk70HzNh8DSwEAcI1ZctHVHrq8wP2XpexmQnQ9 VIuzvAOIQ1Vp7t6NX36VlHkDDPQkp/jQ6j5PPKRv8OTIVT8VwYJiwxYb+9/X dVE6bWRs/wmPpQEVIsZMAg5OAADIASw6AKAIlcXHFgxp7IPaxcYn7UzfOK0X 8a4FoLF78t2/Rnn2nveiGuoDH+33wSdJKembl77T0R8S4QDADe79sSDMF/mh wdvy3PyNK6v/Uw/pUdT4LPXoBMbKwt8OJi2eO/bVTqG1dboOozLVc2/iUv7X jhGtAojEX52u3dAMkMpUy61j4+v6orqPRPZ/c9byb/efv8m1vlC9GI05nw+p R6zUtQZ/d6bC/gdqwuYZPYN8iLC5R+JvDn4AUBwxZhJwcAIAQA5g0QHYKNy3 ss8TgeramziBOOBYMW9Mn+6tGz1ELqAPNm31fK/+E+ctTzlxqcT9pfT6/qEI hUQP2yxl47MribGNHsDeO8LdlFvkYA4V9Ibo2LQ8630aTftGNiGz47om/AbJ 6gDgglvfj6+PdCi46eyMG6w/XJi+oGMtxEnYkZSa6W77J1P7tnpUjyiC+s7P 9pxdMY3qw0ta2D5nHei6pWIKT01/4iHsqUQhHfq+v3rTqZuqjyFcUxMwr36j kc55wMzpxwCFEGEmAQcnAABkABYdwDU1X/2at1r4EQtR1NLDag7/jXcubvpg UIv7a271viYdug8eNZZg+MCIxx7CYsVX5qdmuyXXlN1MJiyb3N3B8bnh7OSX 9KjtogxqVG9nxJI36o9mnahkv8TlvcPq+9jbfRO9gwn06KW4i3DMAwAuKL+b /GpDZH7TZx246nwRrL6y9cMIwrFDF/D6p1eUthEuzj6wNLZHqD+2E64b1G3C gh2nr3nwAl3145x6lk+rRzHTc5X+FgBXVJXmZexYOKJLkC/2lPoHRI1fkJZ7 V6ObWotU604kbAub64ZMOyRJCAHwRoSZBBycAACQHlh0AFfYvnSEwuJ2qLnw rTz7xwltHkYBgT0//Prw1b9pK2ZNuHggafTT1qbzPrVajvvCrZqg4mtfdKmH JNJqqitSh4SiiFGZeObMiZXPWNf9iYfYVDFig/kYeurFlHxmgHBqWlvzVXTQ QRgA2Ll6cNQjvtQu8hy9TMNYWXh6/9IhEQbzO6V39MbJCaFIT+xB5LjaCGzY b+6a497g2VJ8bd3wjkG1A1sP+yA9zws+r0dAiIojGXKNIWry8qwirW1ti3Pm NPHlcF5piaBUVikJmMSZScDBCQAAaYFFB3ABptIEDV2sareT/BPvNffTh3Ve 9otzOcXW1MyMYcB8tz6R+cqSaDVn13dCKDrxPP5vfyzuZRFYgpolXmO5wN9b 362HHJVgVFcm9zBYjop4tB4GAO+j4syu0eGBtn1kSOtug0eNmTjpnbfGxOKF RYa2L2+QshaSlaIj64Y3o1WUhPZ9/wfN5icA3kNx1i7CSw17dFmWbFVSnnsw JdN53p09xuor+zceAFERAAAA4A4sOoAzClPntDaLBrrnBuwvVPE+oLpi75th KPiRRaf/YfnJP4++/Rh1qhc2O9UdG5iKrPXdfcnslA6JOaI9+YQmE9ImqQD7 p7JbK9v7WQSWV+LzXOfill5f3OZ+xym7d7Km1LXk5fiM+PJvB78MAAAT441z X4+mn/vjqCAHwJIBa8MHRcXvLPDgSifAwygp2P2OpZGo5UhCsspiAAAAAAAA j6T88IqOOjKOckMAURTjqTUdEAqP3+fOfuXP1f+5j6oXqLvsglvpqre2TG5s jipFq3ogqpsfYLjPGY+vfNZ6a4xMGzuMptNrnkNozN4iB//tyJLm1uvEJP0h wt0CgNdQnH1gVdyoHm2eMJBn/4Th1Ysj5yxn1kPJz6W0gX6IAvowAqJTWnjs u6UT+3YLq++rb9A8svegeZuPidx32NZI1KbVPBG15U8VnwQBAAAAAACoB5tj gw+KXvmLyg9sz86OMt/q/U26v75oby7L3V5NG4DtddouPe5WgFh5b++Y1uSv GGKmZd0T4bYLft6Udv4u/i/HJoVbbqt+w1WX2e6r6p+CK9cduiL/+Xlfy3UC UPxvsJEDAO1DWlph21s1GBoDnkR59h6iNCnw0X4ffJKUkr556TsdzVbVobEr RC58LruZEF0Pe5hR8KSNYKUGAN6C0Zj7/ewuD6MuiReUvhXFqNwVd5/h0cHg bgQAAFeoIEoLe4Gqf9ZF2xqf6FCjNhv+dPnz5bdXtrXVNvigl+dddXOSvHVq SqjlF9t+tM+91tlcuJ053nLKqNcP+Dif99RNGdToUFj/A2JoSgAAKMzl7b3x na0BzTqu6kRHQFtUnNk2MERviI5NsxW2G037RjYh18muCb+Jm/JSfmDBk/jz 7M7ZBAAAHoAlp06nD++0Oc+LRYrbZ+a0e5hDcxMAAAATEZudnd/LInwEBi06 o3ozorKCxc/gAR8as5/lnncPtFlxcpMy/t75QSNrpsrYPflC75xxcbMzMEmf Ta7FJpdgBjX6wUsLxbtDAACU4u66N7FJDkzCAVG5vHdYfR9D94mZdEez3I86 W563l+IuirujKs6eXp+2cAta9QAA0ASUStM5SVFbflWQf3JG60BJshYBAPBQ Ko5/9YK1MVLbRRma2AocGvM4p4M5mlDDqXt1ZcmOgWT1gU7Xuv/+vwTeOEZ1 xfa+QZZbakB3GOYIblAT8cWv4t0iAACKYd0yk/jqRyd6Sz6Nsarg8OaZA0jX lKYxo6Zv+PWm0vfkWZTfTX71MeTIfu3UtLZ8Fkp3MJq293kQF2o6fPGbqH9A McrL+cRNFeVlkFHkirK7Z39InDVqQOewR/HGYSFPte85dPyspWs27/85947L jb/wmUQGByfPxqrSoAbNlmVrRKX5+1JC/1a1/R+MmrWpgO27Ls7en7h82TcH 2RwYcAiR3Be0Gj7UvNEn9q7/ePrIPt1bN8JaYdZ9rE2nl4ZMnZOw+9gNlTt3 iAQsOl5E6Z9fRARaU016pd9R+n7cJP/EXLLpZ2DQyI1sjeZppVJ61HnKOS61 XcbT6237JTebRrnFFZtzjv7BMd8K6dNEGdT4o1knKsW6QcAhnj09lhdezVWe nIJ7mhgtaWEINb4TNgh8t43FNy+K9x3lud4i8aay+NiCIY19ULvY+KSd6Run 9SLKQyVIaBQdbQyvGTKZc/C2POZ/oKpoJcngwk5MtCrUlFw9e2jT2k9nTB4U 06lNY9rHQf71WnbpPfbDTzccOufQSo7CaMxZ/UajWmjaUe/YVHCn+OSWCf+i NXZ3jAujQsEziXwOTp6K0XhhST9/87CP3Gk326gVoj0ruScKjd7pek90df/Q B8w/GxiyiksTD9v5+OOTN94G3c8dqkpztn02gj4n6Bs079j+6WA/2pSgb9xq 7IrtuX97TgwJi46XQ3VEkqAmXWpK/sx1a0NHy7jW15n4Hbc11mg6+m5by2+L ZxNx+6sh1kgDjUgVUK6EG9Q82StdxJwfr8fV9Fj3sTYv1kyPn2z46XQR2/75 SmJsIz2aeEjd2WrWUx6VYGjXZ6fAbmvGyqI8MTbN124r8s3RhRrUZN4+gfNz xbbJ4n9P5pOswZPilm1Mzy4UQVsgXpYHag3+ziq/F+wfSvwZna7d0AzxbcLE RBPDS1B6fXGb+1HM9Fz7AwusitZnxJdCjg8cQpnnm9GQUFNy+eSOJTMGP9/M wK4dEIR0eGV+arazyLkwfUHHWjoU1CzxmrwfQyNYtrGBDftNX7F5/5FzZ37Z v2tbQvzUns0ecjTYjuvZBc4kcjo4GSvKK7QVfLuHtXeqNB6PEkG0ZyV3/uxi NRXGG9Ci37l9hfnfvPkw0kb3FsUp/+PIgu7NiKmXEGYHz1r9XcavF/DdX3nh tawfkz8e16fFA5YvRB/WeenPVzU9sLDoAAQFGbEP2FY67aTTcARvgY38HLe3 ZiF3+yvWkEAcs+WyWyvbW9eCp147gGWYG29kp6Rxya1VgUGNh4UZNdNjysp5 Izq5Oz0aWnWftcnpV1Z8YHEHn5oNV8CyHFWPkSTbTGGwek85perettcau/ft cSDkqfZdXxs2bck3aacusRxeiAFDqBG+q5X8K/YPbD140up9TkMFVozZyS/p 6RW4tzNiLRdXe7qg+ofXjNF0es1zyPE6iFfRxiRxOSF2D9Efackha2f6/Su4 FuO7qPdUTP+JHy5M3Jqa9tOR7Nzc3PO/ZuxJ3/zV0lmjBrauRzbQ9A0bPOtA PnMSMysAvsTSHzn+tLrFe2UghEQ/1OjpVeft5v/SwmPfxMc8yjhQcLChFjqT SOzgZLxzZf/6FTOH9Y58Eqvq8rmvSbvO/UZNmf/1lsyrmk8IIL8CJF7XVJmg usSylRsL7OJRWbJ7eBiRVlP3oVnH4ITVKdYJE4W+OjnpxDXX2kt5zk9zuzaz vFMBmE6rIWDRATAufNTV9ghEfXFa6+uCY4ymQ2+FUQt6xKhMHso+3ieXn9TD 4Oz6TtZ7Cpm6DX+piKzLRmz5lhiKGNR4ZphBTI+b5g55IZgRBlqmxwWrNuxw Oj3WLCL9px8uZH5o4/ndrwdpY3r0KKGG1uhNEkI6vDpr4yFJq6FF39VStTnm Bzhl7ecz+7c32H+2Og2GLPlu3y9nXVXmnPo5PfWHpM/nTxtBvQLU4ES/kXCc JaByADnNMqboEystzvE+as9JU/vw2qj6p+DKdYdqD1VFG4DifxNfi9SSUENG yy8/E6DD7tisla3adTjPZSqv8e/8jISZXR6u+eLsDFStVqLE9zhjFxQ92FO6 K66ey4jUeOfipml9GvtYvxQf1HPdedoPC5xJJHVwKsnf++mkyP9jW578DZFv TmfdlnKj+OqOuOGtah5Ln1ph/5lzXPSEOdrf+mMJaapQ9/74U1oyV6v6cY6t xweLWC38kDRv/zCiHk+na9U77Zb2QmYZsCgMAbUGfX3U3fPr0qK970VbGupq S6uBRUflyDmFklxKG2ip7KtZdKJ3emqvICoZhgg+J/7EU2PB0nL0jpPGuXB2 dpTlYgYUfxo73CEybR5A/T4ucHvOltugxiPDDIfTo49Py1fHLtt52LVdofHO ldRF5IDYTY9EK0bNTI9WoUYELxSB2Iws+As1mNkOueddHz+2bW3mQ9pk0NzN +83KmysuZh87kLb9+y/mvNe31aOMLJ3gmFEpl6TyEpFjV1t5L7l3EP0zcXct LrubvWeDXXThFz1j7bliLsGnWb6OTjyP/xtlF6DFlF1VDS8rAg+I3UArQk35 taw1o7sE4aucv2/XKZ+l597lMOL5Jxa+2EyPrwvF19b2a277GgeleGrUJQhC DHGjUrj494z1H8eNfXvyp7tOMVVHYTOJdA5OFWd2jQ63hgTte01auHpz+v+y LhBLTOqmbz96Z3hEED2y8jdEvbcqW5TXvPyv7YOa41NI+MIMqaQBo+nkh13J 9TY8fp9mtslmrFqcG2J11pr21sFss/QXfn/OUgAFZjUOuXN+Tks/PmJL2a11 PRtavhuNJCzBoqN25JxCreDpNIykDs+BOBlpaPuYgupkqWIlwUk1eA1slynZ 2ARkPLWmQ82rtMPtpqXyGtR4ZJjhaHoMiBq/II3L9Fie87/32gYSWo3tGK7s ZrKmpkcPE2pcXNbyvvAo9qwqy06abT6zwK4T3HR2xg0R79OGPLtaSum1wjPm NFYVHEoa/XQgfilD5/+4L2QRO6kQev87vET0lfg84TWnsqOe4WVH+ipaDQg1 RmPu9/R33McnfPjc9ItcomUbxdcTehARCFH98XfJ/yZFUPOGFoVHWSAn6hFp d3lfQdBMIpmDk9kjwvzatnn50x8dFzAS5z7zhjCqdh+M7L9ZcFfr6sNLWtCu KuFCb3XK1aCjAh6ctxp62KWkThnU+AkwaCUL/ZCgc2TPxGg6EUecaPNsRoyl Iug6DM2QIfmBN7DoaAE5p1ALlDuNXVKHB2ETq5EYRv231r5hVWqE7RpstdII tVx4mPr36oq9b4ZxW9qwyIFTHg4PPDDMcDA9+oYNmr6Tk4Jtw5peGNB7ZnZJ xdHp1txLjUyPHi7UMIuh+Hul2iqmqeWv6b82XNFqnYh9yZugP1R8dfu4zgHY 4OjDX1yV5UZLXCJCZiYT4vZijPNxraCW4XUDGapoVS7UGO9cXP9GBF6tpg9t M2u3MFOgP4++/RgxXbTp0g1LrtJAMaxSkPM/f+90QTOJVA5Oti4/oSMWZRWx fDJbrIW95vRkXe7YT0Rtlx6XJGAsu5kQbS4e0mCDEsyghk2sNpp2Dwohvx3U KHLLbf5/syRtTnNyTuDnzOCpkNUQPvc1adOx6+ujVx/nfByGZyNEfnZcnZld sOhoBfmmUCtUsye7pA6PwbYyIrHaKV4nuwaYEdL+CetChW9Fyw8tboVQ32QO AQAeOdA0H7HxwDDDbsuDgsPe2WqXRM0JUsP3QR179w61VdBrZHr0cKGGCsAs CPFKtTWzsD08tYcuLxBbqtGkUGOydsWl1Fp3X/+Cnzelnacdo1NNguo3XHVZ YyE/iXqGlxUZqmjVLNRYsyIpDF3H7bdzZeQBWUrDQP3FsEphnv8FJWMImkmk cHC6dWpKqNkN1e1A1EEQFTX8kJ0JnvvQj7okNEWxPu0aTKehG9SwiNVUGO+D Xp53VcjLbEuq8WCzUO5QBhHk4xQasYWrVHN5e2/br6vyaYRFR0PINoVawKYF JL0opAxXD456hDTB1rV7N1EElcZEZLxs70vJk8GTNvIzk6OaPGL5veZjehQ6 OoFTog4VOQjJvWTF48IM++kxuOcEqgunADAJVGPTo2cLNXgARiDQK7X8r4RO /rTv2B9NPSKyZaJWhRoT0c/i4NRozBNIpw/vtDmP44DfzhxvuYReP+DjfPW/ Qo5Q7/AykKWKVrVCTdGRtQMb4KmVtVqO+0KcsMHEjLhI1F8MqxQWkxAfbodW rhBlJuHt4FRdefDt1kTQ8tyA/e6HQEbT2fm96GsMajJtG8+Y00RMGofmD25x v9mbdNgH6WJEOw7QuOZAGdSwitUXNr1o+154Z39ZodStFt123tTcsElASe6c xvSnv45uWS7Hi1T9sy6aeofUlpQLi47GkGcKtUJrV10HLcrWZgTsApvHdcDD PZfuKRLv8939ftz91thYkAOzVUcyRI9L2mVxOnXYNsgVeOQgLPfS9V/xsDCD Wboi7vR4748FYUynZU1Mj54t1FABGAF7+TkrVH26FdHlOA0LNSamPxji3qQV PxLqs8lt2y6VodrhZSK9QY1JrUIN81jBB0XOTxcxbDDRIgeklWJYpbi77k1y lHSt++8XQzAUZybh+4KQxoN8HEiKzkwPpccSQhK5ZYESHHjkPygOZVBTc/8s rVetTykxXYzZxz+wtVCcM6eJ5buWwaFUA2AGEZZvhNeGK3t2pPUK6rK58/ZF p7pi37g2tfV+4TN3qNk9SEGoLFCNFGVwo/jaF13qkZUsk1LOipxlQi+gELJ9 MN44lzRrVI82Txj867WM7vf+ur0FXO9VFoMaDwszZJger6/oR1tfVDU9OseT hRoqALN867wNamzgVYeWubTzlHOihgHaFmpMWFqjlbDZqe6W4FPpizrUgO4L qilUOrx2yGBQY1KlUCPDikCA1017ZNwlIliuggg9g0SaSXi+IEbTobfCeGfy 0GMJ4sl5cMy36t3XYImm/BPOFQQzqGGNqA+NedzyUIkU4FkNVVRapCM3mEEE +YVELT3MY8rE1l8VheKw6JjKChY/Y/7k3eMueVyqiAjQn3/hOXvqwtKJTKcP 75p4jpclrGtoqXQSnjy6gxwGNZ4VZtgVZEnTEpEqjFXf9OgcTxZqRDWosYDt JixhQNNe6aLGppoXauh27gR1748/5Z5Ue8X2lal7b8KGSofXDhkMakzqE2oq fk1+NQC/I5Hs7OyhJ+FrohhWMfAOmwIeaQsizSQ8XxCy6soHjUjlFSrStlpI 5ao1VZ8u5RwiHXh9NEtEXZa/uBUpkosX4Jl7ypP0SLosxhW1TeGexTGPEaGg vnGrsV//xEvHsHiD21BDcjssOgQg1Lik+qeFj9m+OVFy9tSDtV+8WHZMDiE6 P6pj0ZTDoMaDwgy7Zj3IMGC+JNMjtYirb3p0jgcLNSIb1BAwAwAQahzDLJTW O+57awdVWcZ78lEH6hxeJrIY1JjUJtQwU5I4lvdyhKq+9LC4SwKwKEuv6/z2 KQE1feLMJHxfEPPSI6BMnr7VIlHDZtMBlPWiHj036rgWDqcY4G/oxEMuPwB2 GCdagEd91x7b4UV2mHGa8pkJsOiQgFDjEsxJW9XiPGesKk3okLmZztsS5SbN GjP3m4sCNqI0pUvBRZPKMtWjp147IM0r6DlhhrVdHTU9SmnZvXf4I8o/IRzx YKFGdIMak908IEV06glCjcl0a+0bNEs7PzRydz7L71BH6szJzXgjOyXt2B3t rOxqHF57ZKmiNalKqLGUSGMIT95wic16xaPiLomgZaWith/t41nTJ9ZMwteg 5srintgDFtRt0qcuolOH0BcvApUe/RRkxD5guUPlt8M8wA1q2N7Qyl1xNvcP WoBXkp+Rti+P7/EfdfZqQPGntZeSpEZoM4m0qxs7sOjYAKHGBbSzfj16Ke6i ZwwRqdLo2VxhiWORh4S+qjcyYqnWqPo6E7+TIimDxFhw+svYHqEBvmGDZzF8 hisyFtscoaVz1/eQMMN+ejSgqYclOzam9iMqqoplxWOFGgkMakx4TCXqZXE8 Q6ixS6tz47gQSwIPmboNfwiIo/ZGLDaPqkKNw2uHHFW0ZtQi1BhNJz/sWps2 bqjtogxJswCsT4IHxV3SUV2ROiSU+m4MtSYd4GVNK9JMwtvBCT+yMaOrPXR5 AZdv/97GcfQrKL3ZdALlXCppB1LpoOqj2auZqLA2MGQVVkVN5u7yL/vCHldN il2qg5FRI76RIKd7gUWHAoQaF9DPKVSqzHPFotK4Ycdk9ucR+qlp+z5xTucd U1W6/TWqr0eXxAvUfyq7mRBNKg96/b9HHZPMwcETwgxH06MQ1013sH5qzRjU mDxYqLEzqBHBK9W+PbcEnYk8RKihzDytsLUyp9I+GQeLxPn4A+rcpzhDhcNr jxxVtGZUItSUH1rcijZkehQxKlPSJQErwIQtmDtQhicEOtT0XxuucA7cxJpJ eDs42dYy6oNwPLuxm0BUubXBHZulrJ2UDqw+2ge9PO+qixGmtgDMNFpCwGku 4ONTPam1Wj6mMhhCjfj16e4Diw4NEGqc88+2yQ9gD4p2e55SVJbsHh6mq+07 eO3JEravmzwWoSkevMDaZiFUN2BZjjRvQAHtqJT6sqjO1zrU6OlV5yVs5u4B YYbd9Cha008X2D61hrRQTxVqmAY1YvgcWlqh0QIAvuWBzvEQocZBK3OXrp54 GExPDiGHfdAOLS1bqhtee3D/jUaRW26Le3c0VCHU3Dk/pyWtXAz5oTF7OfY0 5I7lSVCbV4BqKb+77iW6tVjvmdmcFgSxZhIBDk52ERRCdXTLcjlcgbl+qXNr Q+X1KdxigzdY7jfLRyhJm2NNr6Kn0RIFC7UEWt9Tm4s6aFG22r5mDXJi5TPU u6OcUAOLDgMQapxDq0MRwVFTaSpLDk6N9q/fdOyWMyyngFX/FFzM2TGqdc2K zeIS5gaMwFgqvasoc7zO8icM3SdmkrN/adHeuJ5BPsScow9/cVXWTUn+tBXN hxn206MP6pssuOMPG7bdmVYMakyeK9TQi+/EOO+rLNkxMBTRifzsuOiJCB4j 1NCDJcSia93OiLX+HK0Mp7pi75thmmtdqrrhtUcugxqTOoSanE9epifD8XVg 5oj5SVCfV4CKKT+w4En6u8MtFVasmUTAC0I71CPfTY4PgOJHXe6Ah3kiJKzK DyNP3kWBDN0Mts3SX6j/ZC5cEmh9j6egRyeeF3Ipz8dYUV7B8jbSXx/FhBpY dJiAUOMM2lwk+dmZ5JhVGkZJCzv0klJ+4AXLSLqsCVvNTmD9kcu3paX+kLR4 7vD2DQmDnLr1es5YfZqjXQwPtB5mOJgeu085K2EKkgXL9KgdgxqTpwo1dgY1 ws/7sAM1y0MlsC+JMzxHqClg+KgQx0kTDzrZcpkLVO0fADI1TgaVVVxUN7x2 yGZQY1KDUHMpbaAfc6xkONk0WT67+rwC1IxdUg03czmRZhIhL4gxO/klPe0T cDVGdlA8zimCqi4vl345p05DNG9Qg4jILbhF4lVH0XX+yRmtH9Y/EdnR6kmA z2Anp7UTfI5gNGWv/7f1i9ZobpJ0lN+4sG/957NGDej67BMG7LUKad1tyLT4 TSeu2T95dC9BhYQaWHTs0ZBQI8sUSoFlaGjLPcMB/FSamvc0rP8B4VsqhpG4 64JWIVSV5uxcNalv99aNiK1ryFPtuw54c/aaTaduSq81mNF2mGE/PcrV6tcy PWrqFfNMoUZ0g5rLe4fVp7UPQ007JOZI8j56jlBjWZRpOC2aptq8ohFpdy03 eWbbwBAUOjohTyknQL6obnjtkM2gxqS4UGM0HX2XYW4v08mmyfrZVecVoE7K 7p79IXHmsN7h/+dL/750ug5DM9ysLRFpJhH4ghRlbp47rHdURGTki73f+XpP AccLZM+OZDyxD723lfXey69lrZ81OjrUspIamrYdPHfN8RvSxI1c+iVxpeRS 5qaP4wZ3fTbYFsvVbRA58K1FWw/d4DVXOczCsEv8RqGxKxh9SYoyt0xo+7Au vHPSxcoL87uSP2ZzqK7IWt/dV4y+HpS6KKUBprYwVhUc3jR3yAvB1slA3+CJ zv1HjH13+qKln86a+Jbl8fDxDRv0QXoe7SGnnzUrIdTAouMQ1Qs1sk6hFLhU i5RRa42VRXm5XMjJu+NoWBzZw7qHSKIKlQqr0LsvI1oNMxxOj9Kbd5GQ06OG DGpMHirUiGxQQxyoBWKX06HgprMzeLUjcQPPEWqMpu19HuQwFVvTyw3R45J2 /bA+fmzb2ii0/3RG5ztNoMbhxaFssZn9i6WA8UjLHUAyO2QR9Ei6LM8fL79+ Zl/6nuw72nuGZaW0MDNhVkwj69L/TMxr/2rI+Mo4tEoRPpPI6ODkgKp/1kUz XetjklhygQr3fR5T86l97msS/dq0jz6Zadnh6vSEyCDBRoPK6BPzcMp449z6 CT3MZf6OMbR9dTXH2n/j6fWdHR3W4PXRj7cMN5hPtEO6jIhPSE5NS09Zu4IY Qz+f8BHxGQXmASQ7mBABQNikr1NSEj/u86iPIWZalvBTYPwbN6BFv3v7dFGU uWXmy88EkDkG/rWj3pq7KfOSvR+p8c6V1P++EeZHf8iZr48SFs2w6DhE3UKN 3FMoBj1idGu/LJSyu9k/Jn/87rCeHZ8O9rN7WN3Ep1bLt7+mHX84OkB0D5E+ NeMGONq2eBEKhhmOpkfp+pgzIKbHtF1Zt9Q3ATnHI4UaEQ1qyv84MqMNTaXR h3dNPHdXuieK0XNNw0KNyXRozOP0P8Kib9dE6UmzRvVo84TBv17L6H7vr9vL VSJWCWoYXmPB6S9je4QG+IYNnsXYolZkLH5WxumRLtTIPdUQHZmZoyS+BzjA E2NV/t5Vg5pZJv+QLsOW7c2u2ZE5cG5v3G7DNXcfVaEziYwOTg6wD2PqN1x1 2dVNFKYv6FgL6cM6L/35quWDUr3OueQjuQ1WGkY31xVA4cHVfR5hJFPZw/Gg hBwHA5p1nJ6ngmcEBTVLvFpVcDz1yxlv9+3yXJMARASi7Tq/Ntmusqa08Ni3 C0d071DzM8RJYvzac8XiPBx4EoiGTA7Fp6QgdUbfxlal7sHIQYmnWXS5oiNr BzaohWwPOe1IHUlb/uAEWHQco2KhRv4pFEfOrGNC3lw0KZKZtsoXMYxlxIXh sitOH2HPQ7kww8H06KzuGDDjgUKNnUENz0i7ZgeRtjwGjxt9fMNHf5IlqUmU XZqEpoUaxupD4B36tvLDW1W6/TUqJ4HW9LDsZkI0mXGm1/971DEpww9H9+mr H50oX2r/vT8WhDECEo7tsQDpKC3aN8e6KQsw9Fv5U5EteqcCAIq2S4/Ls5bL 6eBkz93vx91Pf2L9R652sckz16o7ONLC+1+IblF7d92btouLkCNnNOZ8+04b 5vmeM3SoQbNl7jUDMyt+utpDlxcwNoZ4RpAK3DxwWxX5HzmVUP7Hz3OiGlp8 F3xQxAcbLpay/1YNhSlxTyIUHr+vgllFghQIbmHRcYZahRpFplAcxqGbVFKt sfrKjk9iGogk0ZCTp/Qp2VxhuOwKb/ntkSgWZjiYHsGZjQUPFGrsDGp4hD3F 2QeWDokwYBcxtHn50wO5kud3lOTOaYw/vyK0q3OIYkqCRm0nOaL88NKthqke hUbT2fm9zPshHWr09Krzcpw1VO6Kw1YEWV28qn9a+BhjiOSyLANYsBSSIGc5 Enbtn+QrYZDTwYmJIy9lZjYITumfX0Q8jOo+NOsYM230yuKetode9EAIT1sV HgnnJ41jvqckdRuHN7ZrQmrGrb7tpNz3AJp6hDmA+MygBjcPbMmQV8pWDWYj KWsA74Mi56cXcbC1NH/RoRFbbtAkRBKZXdFg0XGKOoUahaZQCrsiFEmSQIqv bh/XOcDhZMoPn/ubdOr96RGpXCB4o3CtvSZQLswwHl/5LGIiVRd1T8HzhBqm QQ2XSLv89uVj276eOZjyr0NENv7wj/l6GHKF/gxLmC6rmJLgHYmIyg8v1kTA 0H1iJnmYV1q0N66n2f9Bpw9/cRVHqwf+0Hz4EaqDFmXLFKWdnR1FHx7tN760 p/BcwrS3xqqE2cuz3Dk5ZlNpCCgnJSsC3cbcRF4HJwZ2NV+oybRtLm7hz9X/ uc9JB3PsYFH8nRGeXi5wSi8/vKIj1fEEGZ7pMmlx4oFfLxXZ1tyqfwqyT6St WTj8Xw2pNhc+7D28zIPp2MQ156Noy3W4NMuTDKPp9JrnJPuy1A9Npal5nuN2 cFBpzJCxU0xSfsZb9IpgyU67nOEViw4/VCnUKDWFUjBsVaRwqco/MTeqIa1H UGBor3c/Str9v6yL1wn3p7K/8s6cSPtm6egO+I/VPLotEy+r5qtyD7pUq/ze VoUoGGY4mB7FbkbgeXieUEM3qKmZ9IIGz13mioVzJtXsL4bTmz/63N/k+d41 4eL+8zflW+MrS3YMpGX7B0/aKNEuQR4lwf6vCP9+NYHyw2vz3g+sP3L5trTU H5IWzx3e3rwE163Xc8bq05JW8DGwK2MJGbeuUIbFvyx/cSvPz7F0+BgoCPsL Tqk0CAXUGrLlgrNn8e+t7zL68gjt32dFPQ5ONMrvJr+KuyjrdK16p91yfgvF OXOa1HLs3kN7+MXeZeA7iwAU/5uAS986NSXUcp/6J6NmbnR5JlJZnPX1+x0e sPw4ihqf5eJZI6edWo56IlNH2KoxD6HUbA/vVGIPQ6VxK1fKHiIbWe/Xb9pk Wt2D7LsA71h0eKJCoUapKRSH4aokuj8Aox+Kv1903FdO2/SUFu19j9ZcW7pt iETQIyIlXOZUjoJhRtmtle0Z1tV69Eq85hr7yoynCTVMgxqehDzVvuuAN2ct /1ZOoYae/q1DT0Rt+VOq+UV5JcGjUcXwVpXm7Fw1qW/31uZmOuQjPXvNplM3 lRj/S2kD8fcyAI3dky/5H7WrgkTi7fTVg/HM9y8ZRKw6F4T+8fAE10t1dcXR 6VQc+Pjkjbdd/PjtzPG0Tp8i+daqycEJ5++dHzSiPqwOBTeOP+7KB58UsprM 3O1A2zi7vhN1KbGrafCdhZBtRXXlwbdbk5cJHTI30z31mNrX+zkSYay4SKcx 3ciItTqhqGUTfTsj1va9e9UJ450LC56z7SIFneATMWRgSMgDtAkJdZ5yTs5d gHcsOjxRn1Cj2BSKQ737Erz+xde+6FKPunhw2KSUsyz1AZUlu4eHUUmObB6z aoNeVaGih00lKBlmOJoevdaTzX08TaixewxY241RlP2Vl/N75p5tq+JGdwyi Nj62RiQSYqy+svXDCGonK20HcJNcSsK9jePsXkoQakRDW8NLOsbL9oSb7Ksg kbdYJKkZ0vbT8gy06LbzJksESDcGFMngSE0OThS3f5v+JKZmBtQa/N0ZVw9r 1b3kXvWcFRIyGiuIXAOOqwoCyjrKDy1uZb5KaOyKXPdsY0kqjn/1ArGRcO5/ 6CKdhu4iIqlHKAdwezrvsNwnqLy3d0xr/EEVksPmsBZYZocKWHRcoTahRsEp FIdWGy5qQh3t/eISdJ1P7o59drVMkm6Bl5EiOa3ttIGiYYZD/64x+7SVsaUA HibUMFdJvlnZxjt5O6aSbh4WQvtOTc+TJm7HW5+QM0vos/GHpd3DKm+i4tHA 8DqkcM+nXepiuR8Bhn6f75GuAzveSMWMlx1Vq5Abx8ZjfqGsHiM1lO6Kq4d/ g6IEsapycCLBckvIwYlaepgluiTCez3qMiXb/g2iJRjrSJNVMRGlTsfqZ2gY MJ+TSkPyx/LX/F280bnbX3GWToMb1Mjol8UCXk0mjxeTCihJm9Oceuh1KKxX +h3+V3Pori+zAREsOq5Qm1Cj4BRKwRAWxBRqaFn6fqjfWpdbcpzqyuQetm4q IiWyyoSE46l5lA4zHEyPQc0Sr/H/QKqmsvhsyrfLl322aMY7Y83+KtFRkZHP tX5+QSrXTZqHCTV0gxo9ajX0MO9sRaMx5/Mh+B5BH9414dxd3vfm6E9UX0n9 csTTWPWoj2/YoA+kUoQwFFMSvCMEheF1RnnOT/EvPxOAeYcGx7yVdOKaFGoN 065K3oZTABOj6ei7banvImJUpjtbKClOG1Xl4GTm1pbJjalVwK2WN/9sm/yA k4QBuim96K2B8UiY/zdSfXhJi5pfd1j57g6l1xe3IaJEh6d4J6e1q3nEBu1w fMBnDTbYXG7khG4oqma9XTSKzkwPpdVshi/MEPLi2S2IChgQwaLjCpUJNcpN obQ/JZWwkLd/GFY4XD92zQ0uY549O5J6hrWUlAJCjVMUDzMcTI9CNumqxmjK Xv9v5AAeSZ4eJdQwDWoE68BMd1+dPrzT5jwxFpiq0pzd30yj71jlqLGyopCS 4NHyKQYMrysI85wvx7THG7joWg+bLrpcgzemEWdCAIRAJDlQuJtNXZw9vT72 hIsVdKnJwakia313zJDPzcbEhds+CHuy6RfnHKzbhExhQ/ykAjGEGqNp38gm SFipy93vx93v0GSmICP2AVdKYP6W2RH1dCEdeqmot6z3CTVkJxEKwdlN9rsA KffXjoFFxxUqE2qUm0JxpBEWqiv2vmnzmeGjh2Ntl7WldYBQ4xg1hBn20yN6 ed5VFUwFkmCsLMrLrSHn5OFPYhraBopHJaxHCTVCDGqcYNfFTBfw+qdXhHjT VRYf+2rm688+Su1S6wZ1HTU96egleSQaEnmUBLu30oPlUxowvOwYqwp+3vHx uD4tbN6PPvc3iRnx8a5T90RKZ7AbHxQyY5fAl6z0xwVhyBUhT3WItBDVpjF2 A/5o2hHNHEpJAbasc8kkp21gPTHowltyuB0+uaIoa0oQNie0HXr4njh3agWP hPmatRL6m+CEB0KQ0aEne6XTrRAvfNQVyd+xSyC0WgMvEGru/bEgDE+nEXxq Tx9A8m0akSq3UbQnLzqF5xKmvTVWCKOHR9Q3T+ON2gwRdKGxY2cvz5JO/5J8 CsWRRFhg7FzaLsrg+hxgVSpaW3YvbHpR7PHUPOoIM+ymR+WVBzkwmrb3edDy NPLy9PMkoUYsgxr6RW19PK0IVNdxNcn/oXaj4jMKlDjDlUFJsB869bTYkBgY XvepvvrLkr7PWnVLMVdV+5hZ+LdgV2PrNgFo1gkvtpSk9W/ictJNy5P0uKAL b8khSvjEdPURWk7iCHxnwfdw3GwT1GTaNkFfJpmW8wC93pMIIFXTdJsL+Hzl 8UJN+Z45DFdJoa6/tNQ7pFTjdQ9edBx2mVQQ6d4R6adQHIZQI0a6kTVf0QzP 8lIsYVtryy6ji5a2bl4KVBNm2E+PbZb+IvRW3KPo+PZVmw8K/+B8oNYmns3i PUmoEdOgBgPLALRcuc7E77h7H1qpLD66fFJX7NRD36DZoJmfp5yWxKbDGXIo CXgbCyte0qcShpcdY2Xh6X2r3hve6mGsw1qn1+dtPnZHpLlUipiZ6A2Xa+XM L/vT0tJ+2Jr4ybxBzwQiO0JfmbRsw460tNSM0zm51257cz6NuUrFCqeTbpog KXuzXUkp/2v7oOaW7PQA38FrT4qQVFldsb0vddAljVmuGEKNSNxd9yaip87e WvuGX03cGL9Pc6qoFwk1tI2kGeHVJVlr2tOn35Cp2+QfRA9edIxnvn/J4Gv/ FxVB/3h4gkTzjhxTKI5dlyLhO5crtOKC4EkbeQgVe4c/Yr2A1rQOyKjBUVOY Icn06A5EAmctpZ4E3MyHXy9yzxFqRDeosWK36RbDWavs7tkUhk2Hb9jAKRK5 qtojh5JgV4mmohYbEgPD6wpjVcHhzTNxgyZpHn77RWFEmqhm4Bh2XVlrwq3X DvzF/oteAeOAj1MbFFrpkyZzxhxTWXJwarQlyYi1Rab70EJ0PXolPk98XYte +qRkuSXp16d/6L2tlk9JOgwH1l12QQszIQ49gPFwocY++0VAk3eS218NoU3A BhR/WoGQFhYdV6jMo8YxckyhOOKXPtHeBX4SaPntlW19qUHQkiE2eNRgqCzM sJ8eB6XIEdCZpRIZ3mXHUCmRvAxqTJ4k1EhgUENi1/ldVEPLlBWDmmOPro9P +Ag5iqFkUBIcRBEOW7x5IjC8zjDeOPf16C5B2Lncgx37ffHzVVm6Pkmo3pMn +zhCM/k9Cdq+jGPyZ2neguYeN6pG44Ul/fzJ1SS4xfvpuWI9/9dX9MMfwh5J l0W6MI44XZ/E4U7WlLqUIaG5k5Tef+Rq7al5XmQmbN8Og2dCOAXToEaxmBwW HVdoQaiRZQrFEVtYYOSgPvXaAR5XK9g/FHs9NXU+AkKNFfWFGVgrMcmnRwpr v1Hp32VHUGsT/2pcjxFqJDGoMWO36Rb5xTfeydsxtWeQD/UH9GGdl/0ibTcK GZQE+4hFY+6OAoDhdUjhwdV9HsE0Gn+/rvO25PEvI2SBecYq5aJwaMzjtL/E Vzn3TGipyBx3E7R6c5nOX6TFaMxZ/UYjnXkpCW46O0O8qb7s1sr2uJ+PRB4d +EZb6TCYOPn1s2T1VFekDglFtdCYvUXK3RBfvEiocbA+8ksIp6DXetRMv0o9 A7DouEL9Qo1MUyiO2MIC7cyaZ+MzxvG0lmrqQaghUWWYIef0SEE2HVDKtg4z qOEteHqMUCORQY3JgZObBC8+9U5Z/4S4b5YdkisJzJ4OPA3NNAoMrz2F6Qs6 1sJuWcQ8TCcYjyxpTv8WhDfgcExZ/uJW9K9DcCa/J8GI+riJLSdWUvvXwJBV 4qRJKon1RdDpw19clXVTxCvjpdCIrzWBW1DqmfJh8O6BdVFo9M475G5dj6LG Z2lR5MCFmjq6ZblK34+UYD6lFgTWB9FPePUoZnquQk5WsOi4QvVCjXxTKI6o niqM1ZZfZcHZ2VHUJfzpbu1qx87zR7hVhQZRZ5gh3/SIQXaBVMy2DjNP4y14 eohQI5lBjQPXO4k6vxuNOZ8PwZKCdPqnXkzJl2rrLbWSYN/TIWx2qjCvQC2h uuGtLD6b8u3yZZ8tmvEO0dpy+IDoqMjI51o/vyBVnj2N8fftr+ItqvxQv7XS qjQE5s4y+JsrVQbv5e29GVOEwEx+Tgjvmioijrqm0l4HA1r0O4ehwdL7tVHc 55rywys6mg+59OGdky669/JVl+VkpKUdPcfath5rgC6GO6sLcKEmqFniNan+ jjsQZzQPEsrGH4t7IS0kFjqGqOGyfnfeJtQIFGBJYyLsyVcypcpLFh1+qF6o kW8KxWF0KRI2o9KSFvhVFtBSJrQndNDVAPU+bNKh3jADX+YknR5tXEob6Kfk QTb1PgoQPD1EqJHMoIbeLN5C26XHJfnKy+8mv9oQ/0PSaYDSKglkCjq+9Kg+ 30NcVDa89p4AFmQqaWfeMKofu+aGDEsnw5q+ZqCe7JUugdfiP9smP0AfWKGZ /FxQf9dU7A45H/semxRuu7LaHRjYqDizbWCIL7fwyURu/dw4HaAtVRJH12pK /yB2/Qa07Ix5tx7cIvGqNp8RXPsiE4RkRkYxny7U6FBY/wP3+F+Nfmyhqz10 eYGC+zLvWHR4onKhRs4plPZ36eKesBmV1labV5KV8dSaDtjtSNydXHzoEZEW BExRUXWYYb95ETb5s1BZsnt4mE6Puib8pswjYDTtHhQifCHwDKFGOoOav7e+ S7dslba3jtkLEXuGJauqk1RJqDi2Ap/na2bK6JW/aPwknBuqG15jZZG5wWfO ycOfxFjFQNlK2hlnfzJ2p2K+v/5o6hHxW9Qo6xWg/q6pNKGGU1433oNeK03N nJF/4r3mfpzDJ4vKyr5Al+6Kwx91h6cJ1ce+6tgIxZ8U/HDifpU+aOIhJQ9c iY2JDk3478IwjdoIk1DlD4ocYcsq5tOFGmHb9rKbCdG2B1+HGjRblu3ey/X3 pYT+rWr7Pxg1axOrsFOcvT9x+bJvDrrlxukNiw5P1C3UyDqF4tD9qbgmnTLA Xi6eMwlW96TJM1Z6+K383lZWVB9mMK4gaWHdrS2TGyMU0Humm2sCDWNVwfHU L2e83bfLc00C0INNn+0Z+/7q/2FLQGV5OeskZmdQY7xzZX/CwjF9uoXV90X+ 9Vp26T1p6frMGyz35xlCjVQGNYyUWvPEJe15DaNtpWSLr4RKAi1wIuD5mmgZ 9Q6v0bS9z4OWJViuknb6aMjb6rHozPRQmoghftW5BK1mPQzsAeD27WPV0Er6 TojA7TNz2gVyD58IyNFjmUAY5/hO+lMT6Um+4qwpe4c/Yvtryjo8kyZyjzdp olUbYTNYur40tdXsdyCfmE9vVyToyJumivigqKWH3ZxdyEI5t/KXru4fSiav uFmiBYuOM9Qs1Mg+hVLQ+jQRCPESx4QaXuN8O3N8bepOFHP2EACjslLribgc 0ESYwTTYRCFTt0mxQazIWt/dl4t0j1Ge81P8y88E6Go+Y2ivdz9K2pmWmpw4 reZf/O/ruii9qKLk0PzBLe6vGedOm/NcvmC4Qc2K01dSPolp4Ktv0GxQ3CdJ KcQ1p3Zrpq+JbkPbzHLZk8sThBrJDGryv3nzYUQnMGjRGSlFB2ofbaFL4gUp /o5USoLRdHZ+L2zJqYkfnl513stkGjUPLybwypYRSl835Z5q/lz9n/toI9Yy 8bKYMaKdX5C2elnKAP9uztTRng/qm6xZH+Hia2v7NdfxCp9M1mMIlmWR1vXG SW9i4t3n263V/g8u7iny5MYX62Qr2kdTBFzMfOi9rUpKkjKI+Vj4KmjbfuvU FEwS4XBmQQWN7FkHlMmA26kOsOg4Rs1CjexTKA6ueyNh0jc2M/PZCmGPrg61 6LbzpvZEDkYPaNF8MFSOdsIM5vQoRdYWmVkUgEbuzOP2i0Zj7oYPOtxvnu87 /yflEjYglcUnP+rr74MGvz+tjXuvKrV2+Pl06f1ikB9qN2F5VhH2Ye/dTB7Q nCh8rBsy7ZDT/kGeINRIY1DDtD9F3M5reGMbBxKJYmCJlAQy04zCUGvSAWn7 jPPAWHzzYm5O3h0J5SPVDi9u2C5bSTvjgEMGm3cadnlxIePWFYp1B3b2O0hj vSxlgarB5yLUFOfMaULuwvQoYlSmRr3IySpp+0Xf3V837yjZdoiMrpfRieft f4bsBiLW6VXlrrj7LX9N4eDBtjHR9MkpLnxJdDrjLjKI+bRDVb45ltWVB99u bb1IzcTyrw1X3J7WqaDRVz860VX+dXVlcg+D5U+4b6cAi45DVCzUyD+F4jBi JCHhImYEwX2ciUbG1pvwQ4O3cdzkqgPGHkpIepJm0FaYUfrnFxGB+KWaTNsm pvaZf3JG64f5bNix/suGrm9lFNqNRvnddS9hFQ2uXVYogxryh2sN+vroHbsf t1pC6XSt++93YmLjAUKNJAY1xBdNe5BqCI1dkVsq9MKs4OaZAmdsF4ivJBir r2z9MAKPTaTvv8yZSjJjzXx7/oaoyXRtUzxUO7xUr3kZS9pFDEL4UXH8qxdw sz4eMrsTClPinmR80xrrZSkLeMas26fSVFGDZiPGmgnn4NTo2s4WfXc4n9yd tTqD2kuaqd9w1WW7v0W2L3xAPLsMylNF4W2XZXrR+HtHHakrbTYij5hPtkw1 o0MN2iQVcL4C7djC5XGkPXjQyHKuR7Up4Za1AouOA1Qr1CgyhWIwysMF5dRR IiRHCZSmfKLHJ2+8rarvyE0YFRZKe93LgQbDDHNdEm16HLsnn8+d21/5zK7R 4YRKEzk/vYjjA3wlMdas0rjKgcQ8dtj8gfECVReqUWneAmvZc4+ky44/lPaF GtENaowFvy7p1ZzWYlHIK8AReXa1IisJlcXHFgxprMcuFxg0cqPKVBqTKeeT lxlJUhK1H1Lp8OKHg5L5VNujuFBjomZg6wQb3HR2htBcr8L0BR1rMb5nqXp8 aB3cSsKtjMfiywtak+GWLuD1T69o0Z3GaMz5fEg9IhW529fHcnJZOfPL/jSM 7d+tWrxgYudmetZ4m+ZF6SQhOXf7K+L6/FBBCEeDaLExTy/a6yFLo/z2yra+ lsHkpVqIiExivs34xYyzANUZtLmX+5kFFTSynuthVVptlv7C6SZh0WGiWqFG kSkU58RKzE5YWCEbdSzCbTLJTxpnq6fTsLEkzb5J4bVJDjQbZuDPm3l6fGTR aYFb9+orW+d3CfRFAYZ+K3/iqtJYe5oT81PPdeed7vYL9g+1vqcsGafY2uF6 p2lVP5xeUPNCTdmtle3FNKgpz/5xQhu7XJr+0w/LotKY5NrVUsGYFa5BiI2i zC1TohriKoL+yfaLjqiu4onWQcaGAc06Lv75iEqH186BXB7UINQ4sPcJDpuU cpbnPgSrYw0d9e3XI5vY5h9teAXID1UL4NY6/sfy1/zJr4lTRYOaoMchQmBb 1OhNQxxUAJFHpT6ieu3i52vC2pQIhIwcNF33hMV+evRS3EUlu0vLJ+Zb33HE tbaxcM+nXepaj2N5ZJbiBjVs53qYyQB32QoWHQbaEGrkmkJxbmfEUn9fqOxc fmCBLefKTQkUFwBlO5WWBJoVhkLG7DKi4TADqzOyPPehz8Yf5rlzLL+WtWZE hIGYY1u879KY1zF3zs9paV0UXC9GmPziOuMUXzsmHnS1vFnVD6e6ouaFGkbn XyEGNaWFB5e81bY2/XI+KOKDDRelr3iyIceutvJecu8g+udkq9S2p+xu9p4N M0lnbOxdDx8Rn1EghhYvSnM0HNpS6HLCEYhqhxd3IJexpF0VQo3JwbpQ83a3 m/AZa2s8BsXZBz7p14r4XqyTA14s4C3OddwpP7S4FTlGbKVMVNWAeAmxMuPo 4Js/LHMUvWmI/RNYkjanuQT9CnE5us+mP8W8tPuQm26tlH44AWv5pLTiJKeY X3YzuR+Vutx2Tir7GWhV2dmEd9pYHna+uge1lWP7jJTJAF9fZVh0cFQr1Cg0 hVJQOXUCHjbqaneTXyUbt7klgeKrVXCvdzWs0pgYuUmyOyLKi+bDjJrpcc1b LWiWDoE9/7sxt5jDE2i8cyV10aTI/yNen+CYUXwseuj+xlFfnHbx56mWhWzS vbWcme11xgfWSWNBbQs1RtOZOdG0R41XwFZ+48L+NR/1aU5zoEJE6kJE/F7u 0pwwRN/Vmr1zzZz/NWNPesraFdN607f/JHUaDFnyfdrhky6S53JO/Zye+kPS 5/OnjRjYup4v4wKGVi/OT80uEWNaFK05Gk5Z/uJWzHsWHjNoaHgpgVfefY1a hBoTof7l713V5xF8bHUoqNng+FUHzt9kOcIipLOkuUNeCDb/tj70uWnbT1m+ Dpu7oygGWZ4KtWfRoQZPzT920+FPVZzZNjDEPMQqNLlyD2b9tWBYZRBrr2EH P2wez1pSJCbh8oJi8fCNjFg9F5dXVULNzD5ozD5FM/VlFvNxM0AfFPH+2nPO Q/Tis3s+wk4uHowcuCH7Lo8tJW5Qw/IZcV9l3kfzsOjYUK1Qo9AUikNzpxT+ nf559O3HLI9cWNwOpxJoaeHB/1rL6n107d5NlMGHU1LubRzHaenULh4TZhQd WTe8GW33bWjV4/2EHWeLXEoBVf/kn9i3Km50xyBf84za/I3Vewr4xYtFZ6bb ugc69N7BODTmcfPPsckvVAUHW4UUXuvhxFLJ3kxDcZwKNWV/5Vk2tL9n7k9L 3fTtvOFdghgPqh/q9+nWjNOslXoXsw6mE9V5C+eO7fmvYHtNMrDBkGXbc/9W QFgWfVcr+Vfsc3+TmOFLfzh2Q5Q9lajN0Rg46LfOqZWDIzQzvPjhoLwl7SoS aswY71zc9MGgFvczRzqkdbchUz/84rsdaT/+L+sCNc8sr5klXu0Uasu1C2zY b+6a44wj0ct7h9X3E26Q5eHgWk1Q07HfHKQ91VWlOVs/iWngK7RGQGkYXSeE 4k7NBdanmGq4ULNDTFseU7NDFMMcwwHUNpZv4x7BmJ391Ljv4wA+M8toHeYQ +cV8443fv3y9lU1+0TduNfa/qzcfOplz8XJReWVRXm7OqSObVn086SXs+COw 4WuLtubx3VFSBjWsn5FyzBaa6QSLDoGKhRplplAM0RUGs6uqWQV1mIlddvds ypdj2lvK6olzQNlPpaWA5llaN2BZjpazg1ziSWGG8U5eyuzBzOnR/6E2rw6d tuDzpJS0dPKMmzDYSd/81dJZ44dFh1o/fmBor+kruOYo4tz9fpz1L+tRlynZ LobBffkFWztYPPmpsiBCwE+85uBHNCPUVN1L7lWP/ZcFE9Kh7/sJOxSRaEi0 IdT412v5/EuDJ8Ut++6H41fFGyxxm6PZU1l8dPmkro3NL3jd4K4ffJf0VrhA tzHNDK9dTrvxzpX9CQvH9OkWVt+X+Itdek9aul7IdOcMtQk1JOXXTiV/NNHy MLhHSPte73yefOqm4yEqzz20Pu3UPY+NC0Sj6Nh3b//LEh/qG7To9+bbsxZ9 Fj9lVN9Wj5L/GBwzZsvvfM7KVYKoEZTTtZsBlYnkb4h8I27RvLjBzzcz6KV1 DKNOgdnOoaS8AeXzgQVB9RXSPzjmWyEOe0JRSswnFNrFfZuxvzX6Bs0H2esV nKAMati6nOBZ7iJlOnn7oqNmoUahKZQC29khkXIUjTfOfT3aepxNbHuHTfrw 46Xz4sa+3jv8/yw7bsMzXd758gfesqe6oJXnaNxhng3PCzPKr5/Z/vEk96dH wzPRIuxZ8J6krII85rXi+ifdr5DCMjydpw1c3je6iai6nDAM7frszHf06csL E16Q5j7rPtamk3lTvGFbxgW2TFTpUeeuVh5Ebo7mnPI7hWT+MDHaj3u6LTwJ ntO+4vSVFCJ1Qd+g2aC4T5JSiMqyqd2a6Ynk6jazeDhxuUTVj3RVaV7mj0mL 50x8vffzzz5hwF2ba4Klpzo836v/xA8XJm7dI6YgCVSV5u5N/vjdYTHhj9qG 3ND0uX7jZ31z8Jwo5ZNeSPm1rPUfDI94zLJQGlo8P3K+sF0tG9U/LbQ5GSqQ ZG4Vn6XrIi0D1Bj6oBGpfPNpRLF0U07MJzDPCUunWz4CLUJ7sffYDz9N2vNz nnBJAjOoYTkSxbPc3dvFuIvXLjrqFmpMSkyhFLTafDFNxYt/z1j/3/f6Pf90 sM0MxOe+Jh1eGjLto6T/nS7SsMZtByV6E2NYZ+J3nqE/qQrJ3xEX02PNc9sm oufQ8bNXfXfo7DVxAkX8mWET5P/ZNtnWq3BE2l0XP0mtHWyd13I+svm3sHim UT4bSpKTd0ejDeHERNW7WikRvzmaG+weWNfz+/eZwRzIfbr0fjHID7WbsDyr CBu+ezeTB5itHeuGTDsk5vmR1z7SAODhKNRIjsTmp8qpAFZtWHP1dSisV7rL BA9niGbpppyYLxu4QQ2LvkdtnBWr7PM0VC/UKAtmUyPYT9grwW3TtL4uALJg NGWv/7ftpWMTVaxvKJt0T3mDsymudItmOZu8AELw0l2tBM3R2CFakdbRUok3 b6icdjMBtQZ9ffSO3exhPLWmg3kW0rXuv1+8vHcvfaQBwAs4OzvKzSBHdCze hhoyU7WHUrpQk5m7Oasfolq6KSjmywZlYeGDJh5yKb5gWe6e3TtGPkCocQme oMinHbzXgzUiVGA9ArQIJt2zCfLuS/dFmeMtjmr6h97bWuXiz+Pd5OugRdkw LWoD79zVStEcjR3CGEqEtBwNgG0HaqKkqKWHHc8xpXkLrAcSPZIui/XHvfOR BgCv4HxydyT+pMGO5SiK3WlEzZTvmfMY7yBNXEs3RcV8mcANatj2cZW74mze ljSBqyQ/I22fh3h6yAwINa7B4zTB/tVeB3HwarCFufJneAJaBHMZ9fEZ8aUr jzhKuqfLL8bqK4d2HL6GnZLczoh1b7+D+Rhz7GwOKIo37mqlaI7mDmb3Nq9Y DbE0pPqxa244nw2sBmVi6lfe+EgDgJdgaxOM9Chmeq6r0yNRuU7WwArom6w4 1NDxCdJEtnRTVMyXCer4kr2aicq9CQxZ9Qf17+QJrDwtsTwNS0WAlt9ZicGq n9ga0AAMbmTEYn4mHtyYGxARXJB3vRnEy2ZpT5d5WemSeIH6F0yocdrG2kTv kWRAs457fGmH5+CFu1pJmqO5AZnpLUo3B5WD5bSjiQdd1JXZhBqdiNY9XvhI A4D3YM2ykDXYsEVNGlbac7e/Qo6bP5p6hNu4iW/ppqiYLw9YpM2mFVC5N8ze MYSA01zGllieRdHx7V8uX7H515tK34hKqT68pIUtVIJSCC7QROnQiC2aLM0E ZMZoOr3mOff2JtmzI22iyqLfqZXPgXRvSR1kEWqowAmhxydvvA3vunbwul2t NM3R2Cn/K6FTbdQ0eqcX5EfuHf6IZf1ynYaEG1vRjxGF4HWPNAB4FVRmCAqe tFEe4duW8OC6+YKaufBRV/IjBLw6n1smkgSWbsqK+fJAJcmwVUaUpM2x5g3R 8+EJm4JaCndRBzyYe38sCLP1fkLRieeVviGNYDTtG9nENm6yLUOA5sG6Prna m/x59O3HfC0LH72JNpEF99RrB/AHDqsjdhqfYPm0ula9025p6szD6/G6Xa00 zdFYIcXMkKnbPL/TmPtpSNRPIlRHtyxXnL/vdY80AHgbtuSQwLrLLkh/MmRJ eBC7b7KcFGTEkosZ9zQkKSzdlBXz5YBKkkGEwNV5yjln4tjVg6MeoTbLbZb+ Qv2ns+s7IQFd1AGADezthuont7mdOb629Y3lnqAIeC+UxOe8n3vxtbX9muts 21Q8G5NQVvX2G0lbnYiz85HClLgnyQU3uHH8cUjQ1BhetquVpjkaK5UlOwaG yrSnUByzFQ9yOWlYoBKWxNwBedkjDQDeh9F0Zk40+YLLcZppMRvR7EYGG66Q cesKOa1CUli6KS3mywHeX4MIj1skXnX0OfNPzmj9sP6JyI4NHSxYJ6e1491F HQDcwibhIqh+cpe/t75L9e6R0yoN0D7G0+s7k08OIzGGhFRpAp6Ieo5cEmg5 lkQ7AB9HRy2WZdpxiFLxa/KrAeQy1HR2BhTpaQ9v29VK0hyNDTKx2UvSI90/ VMW+C2Z2nxC87ZEGAG/EVo8jvVON5g1qLAlIOvRE1JY/uX0CSSzdlBbzZQC3 giQJjV2RSz9ALcrcMqHtw7rwzkkXKy/MtxSm2U5LK7LWd/dlSWECAOEQeqCV JjN3a1GKlhXclNUHEt4AjhiNF5b080cOXPSLs3a9F9VQH9zi/fSLfx9Y8CRj +1n8x5KIh/2dNAIo2beglfmaPRJ/o15hY1V+2vIYc8amPqzzsl9ApdEk3rar laQ5mmuIxOZaPCJkjUIdqrIlLOV8FG37LkRsbuhtjzQAeCflhxa3Mr/jAb1n ZktZU2oxG2ErlVUpZD6nWTkfvC2P2+9KY+mmuJgvA5hBDXq8ZbjBnMge0mVE fEJyalp6ytoVM4e8EOznEz4iPqPA/Oxa0t11KDhs0tcpKYkf93nUxxAzLUs7 HxnQKrZKUuItgwwuFjBTVjbPLgBwSGXxsQVDGuuJoKJdbHzSTuuK4IuCY8Zs +f0usXpWVxydHl3bHHhETPly59akGd2amVV9J7FOzc5064cRfgj51456q+aa aanJX8/q355oIe/vFx23+nSRV+xAPRJv29VK0hzNBcXXE3o0RLW4R8gaxdIQ 07yEvRR30UUWLW4+gFDEF7+KdQve9kgDgJdiNJ2d34s8mXLVikgglplKp1Er +FtbJjcm5QIejR6ksXRTXMyXHMqgxpwIdLWq4HjqlzPe7tvluSYBNR/lvibt Or82OX7TiWs0laq08Ni3C0d071DzM4ambQfHrz1XDKE1ID1G04m4KFvIBJbC rjCajr7b1jYl9k3WkG0WoC6Ksw+sihvVo80TBj16sOmzPWPfX70vuwRfo41V +Qc2TBvQLay+r75B05hR76dcYjmRKr+WtX7O232ffzrYD+kbNI98uf/UJYkH Lt2FhUTTeNmuVprmaM6ovLd3TGsic21+epGXFP4WZY63eGDR05DswUv4Ra2M xo8yveCRBgAvpuzWup4NzVv+ZsskyqqxiBWaEgpsWIxq9fp/jzrGuXWQNJZu KhDzJYdqU872GQFADVBONZAl4hIq+wjcaQAAkAOGUEPrOOCRSNEczRl/n5ne yJtUmhpuZ8S6p5Bg1ge62k6KLvlhbecKQg0AeAH5J95rTmQvGLpPzJSijTFp qOKDBu34k/2HVYVNxWraITGHj4oliaWbCsR8qan+aeFj1hvXqq8R4GVQ7Z8g UcQZeDqN9N5oAAAAJqZQ4+s7YYMbmSJaRprmaIAFTKgZs9/5IOFubOKud0bT 9j4PglADAN5DxZltA0MIlaDx+HUiSr5myKwSna51//3a6mlpNJ38sGttYY0e JLF0U4GYLzVUxZYfmngQshMALUBYlQaSr5uuw9AMKURvrUOl0/CqJAUAAODO 7a+GYJtar0jTlaQ5GkBSVrD4GXahBnNjE3u9K86eXh/XadCgFO3VKwAAwAlL A0ofCTIYywr2rVmy4YSm2iUYjTmr32ikE9qOUxJLN8XFfKmhKra06msEeCcV x796wXpCGfnZcWj/RKO6InVIqOW9btFt501IlAMAQBbOru+Eb2sD6y674PFK jSTN0QACo2n3oBDyUXLqJ4mtd7pWvdNuibnelVu+NSv1G666DOspAHg+lrwa KbQarVGYOqe1sFwaM9JYuiku5kvNjYxYPXnj2vQ1ArwWSxqeWYto1DLxsobe OskpSZvTnHytA9DYPflK3w4AAF4DtWsm0QW8/ukVjzfIkqI5GmDGlq/ecuFh hz9QmBL3JBkJBDeOPy5qOUHZzYToevjDrK2EeQAAhFCe/eOENg/XBNJj9mgq AUZUqk+s6YiQPqzzsl8ED4IUlm5Ki/lSgxvUQAMdQGMUX/uiSz0v2gu4yZ3z c1qSfdxQWNwOLz8IAABAbi7vHVbfl9rdes2JpBTN0QBT0ZnpoUSfEdRlSrZd 7qylQkGE0147KksOTjULa1aVBo6EAMDrKMnfl7hk82/aMpQRE+OljFWr158u EkPckMbSTUkxX3oogxpNGSADgAXbjsAH9Uj8DQqgTNUVR6ZEWBIGY6Zl3WP/ DQAAAHEpPrC4gw+WieCDouJ3FsAEDfCiZN+CVvarvLEqP215DNErVqTTXpzS or3v0VUa0YUgAAAAL0MSSzelxHxZsLYd1KOo8VlwsANokML0BR1rmd/BBs2W ZXv7Q3xry+TG5qhSH95pcx5IrwAAKEPRkbUDG2B5NQiF9p2anuftUzTAB2P1 la0fRvgh5F876q34pJ1pqclfz+rf3lDzVPn7RcetFue010rx2R/ndWumxx5d 8YUgAAAAL0QaSzcFxHy5yN8yO6KeLqRDr0+PaPL+AcCEqRO65wbsL9RS7aG4 GH/f/qo/qRs/sui0dizNAQDwRIw3zq2f0CMIT60JbNhv7prjN0CuAThTfi1r /Zy3+z7/dLAf0jdoHvly/6lLEg9cuivikk/8ial9GuNPrL8havLyLFGFIAAA AO9FCks3ecV8AAC4YekcR0RVQUMX5zque/R08k/OaB2o3ew+AAA8kuLsA0tH dgnypcs105ennbtZzv7bACA9VaV5GTsWjqA/pf4BUeMXpOWKKQQBAAAAJmks 3WQQ8wEA4Amm1Wis85ooWNy3QKUBAECNlF8/s/2TqX1bPYpXlAT1nZ8NYg2g LHfOL/53Q/yxDGnf653Pk0/dhLwvAAAAAAAAMbBpNT4octGBEqVvRz7K/9o+ iPBI14c+G38YVBoAANSKsbLwt4NJi+eO6N6hSYBO12FUJuyGAWW5dWx8XV99 gyc6D3hz9qrvDl2ARC8AAAAAAADxKdy3ss8TgQ6tvz2WK2kDEAqOGQWdXgEA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAADAm/h/iWun0A== "], {{0, 107}, {1507, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{455.1661458333334, Automatic}, ImageSizeRaw->{1507, 107}, PlotRange->{{0, 1507}, {0, 107}}], TraditionalForm]], "None", ExpressionUUID->"c307a16c-c9cb-42cd-b85a-bd363959a5e6"], " , FieldNumber = 14" }], "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}, {3.751405896955653*^9, 3.751405909481039*^9}, {3.751406016006668*^9, 3.751406039895808*^9}, { 3.751406152544463*^9, 3.751406160656159*^9}},ExpressionUUID->"4e2a5754-ab2d-4870-8e36-\ 95dd9f8a769f"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"AlgebraDDResult", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "14", "]"}], "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"AlgebraDD", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", RowBox[{"Gh", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", "==", RowBox[{ RowBox[{"Closure", "[", RowBox[{"Gh", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", "+", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"I", " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], "2", " ", "I", " ", RowBox[{"Cmetric", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"Lap", "[", RowBox[{"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"}], "}"}]}], "]"}]}]}], ")"}], "//", "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}, {3.751405911629634*^9, 3.7514059731566973`*^9}, {3.7514060183847523`*^9, 3.751406018484482*^9}, { 3.751406050287119*^9, 3.751406066776762*^9}, {3.751406165585957*^9, 3.7514061842467117`*^9}}, CellLabel-> "In[162]:=",ExpressionUUID->"afb146d0-c180-4c3c-a3a6-b147df680fea"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.7514060052390747`*^9, 3.751406069920157*^9, 3.751406211974978*^9, 3.7515668875252457`*^9, 3.751727186122819*^9, 3.751730260579105*^9}, CellLabel-> "Out[162]=",ExpressionUUID->"736cbc8c-d3c8-4849-a511-897a69f7e191"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ FormBox[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnQlYVGX7/8/MIBVCJfkTyEwx00RaXF8V6DVFM9QsNTX1dStc0tLUNHEL Q1/NUsy0MIlSscQdU8BcehVTMRVLMQU1cQEXMANjn/lx5szMec6Z7ezb3J/r +v+v32twOPPMOc9zP9/nvr938OhJ/cboMQyb+mDt/9dv1IyXpkwZNbP/o7X/ 4433po4f+17026+8Ny16bPSUjqMNtf84s/b/3aqDYfj/bQIAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJVJdlrd341df J2fdLOd8jYrrZ3Ykfp6UfupujYB3BgAAAAAAAAAAAAAA4PFU/LVjVGtfHYZh Ol374ZmlXK5ReWbb4CAvzEz7+CzQbwAAAAAAAAAAAAAAAISi5vCylpiVR3TL 8zhconJ7/wDrJQzYgE8KjcLfJwAAAAAAAAAAAAAAgGdS/VNsfYvwoseiZuVV s79E1b3EcG+beNN73XkQbwAAAAAAAAAAAAAAAASj5Nq6kZ0D6vq3GTEzI5+j 703JodX9nn5U3/CZ0Qk/F0PdFAAAAAAISPlf+Xm5hfe5nI0YS25dvHi5uFLw ewIAAAA0Ciw6AAAAAAAAAMAao+n0mg4YNir9Hodfvr9xAvYAp7JoAAAAwBOB RQcAAAAAnIL7foeFJeVyb/oGAIB2sQTSnb78ncMv5y3oivlBIA0AAAAwBBYd AAAAAHDCjaPvPumFYTp9aNfkiyDgAABJxfUzOxI/T0o/ddfDa3IL9w/H9I9M +r6M7S8aTdv7PYI165NRIsZtAQAAAFoEFh0AAAAAsKfg5Ow2/ra2b37d38ks AttvAMDBc9KCvIhXo318lkfrN2X5i1rosQ5jjlew/MWSnFkN9FjXaec4tCQA AAAAPBNYdAAAAACARsn1xF6NzM3avFqFNNMTAk7PSVl/y31jACA7NZXb+wdg tnaGAz4p9Gxd89jkUMwLm3SwlNVvle2KqY9hTT/e59mDBwAAALADFh0AAAAA ICm5tnZAC515Yxq+ML34fvHeDyLrmneqwdEr81jnqgKAtqi6lxjubRNveq87 7+GhoDkk1tUdvqKQeRJS+a3EyPpYHdbhNwAAAODhwKIDAErBWF14ePOcQT1C GnjpGzaLGjNrw2+32F2hrOjY9/GT+hNXaBHed8jHm495uikBALCiqvR/k8Mw i3STUVxj+ceD0y0CzlNTN96BdwrwbEoOre739KP6hs+MTvi5GF6H+38uCvHC vLGh2/IZ/saV1f+pj+mxiInZ4KcFAAAAsAIWHQBQAlUlxxYNa2LA2kfHJe/M 2DijD75V9MXG7ylgeIGKnD0fRDTS+z8xYOanyakZm+Pf7+wD2QIAwAabSuPz QPclGZRtqe0/oaoOoByqy/L2bvzq6+SsmxCaAFJz+4eJDTAdFthsXuZNtz9c lLGocx2MVeANSIcQMwl4egMAICqw6ACA7FxJim78UJ2h35+pJP437ihei07X fngmgxw3s4ek3i8yOj3fGm8YTftGNyVSCLon/u7hme0A4B6jMfeLYfVx1RR5 E1GqSg/O7h1gwN+pXkm/O/gBpWGsKvr9YPLS+eNf7xJcV6frNCZLq8JGxV87 RrX21bGYMwF5uH1sYj0vrN7j4QPfnrviu/3nb7G1XVQoFfdSXm+EmWPpuQeu Op0cjDVXtn4Uhped6Xzf/OwKWEcqDSFmEvD0BgBAdGDRAZhRtG9Vv6f9VZF2 hR98rPx4XL+ebRo/SqyhDzdr/WKfgZM+XpF64lIp89X0Oq6iBEWO2Cxmv2Bj Tsoreqzdkkwyjr2TGU3ctw8290SVm9+/vHdEA4O9pWregq7mS+ixV2IuQgAB AC4wGnNXv9VY51y6YfVjclM7AW7/dHr/1k/oMZKA/gtzNLJVplNzeFlL2+d8 RLc8T+4bApxRdGrW048iTyUW1Kn/h6s3nbql+KjCLVcPjnncvGf38Y2YuCj9 HFWYMlYVnd4fPyzMz3wuo3/25dQCOFRRHALMJODpDQCANMCiA7imds+y5p2W 3vhaFBF/WMk7AOPdi5tmDmn5YO2tPtC0U8+hY8bjjBwc9uSjSLj42sK0HEYa TvmtFNy/lGlyGhdqKtOGBWNhY7LQU54Tq563Lv6TDrkcb1x9fRJz9FaemtHO fAkd1qxPRonwNw4AmsGSVspEk7EJOPWCZhwSZ07gQUnOgfjoXsE+yPa4XkCP 9xbtOH1NsVoTf6p/iq1v+bR6LGpWHpwuKZnqsvzMHYtHdQvwQp5SIvjMu6fq 4LLyzK6xof5kpNGmx9Ax4yZNfv+dcdGolOrX7tUNYp4HAZwRYCYBT28AAKQC Fh3AKbbdCoaFxOxQsuFDRc5P77V9DPP17/3RN4ev/k1ZNGsjxgPJY5+zPuSG Oq0mfMnIEKbk2pfd6mPiCThn13fBsMik8+i//bm0j0V4CWiedM3Vb/+9dUrt zTmoZKypSunlZwlCOow5rmTFDQDkpSQ3tqkXi3Qay5SoLP83XLie1Asv7LLh 32jA/DXHPcEHpuTaupGdA+r6txkxMyPfAz6vJsCVxtE0DccvYuqK7GIV73eN N899M5b6oTBNfUCNI8RMAp7eAABIBiw6gAMQ6SZg+FJF+98WnPighbc+pOvy X51rLLZewIQaOWgho09kvrJIAg4u1AS1TS5E/qn89qqO3hbh5bW4fBenP2XX l7Z90PEJ0d3safUsQpVh1Fd/O/hlAAAsVOQdTM1yXjhsj7Hmyv6NBxQjFBQf WTeyOaUgJbj/hz+qPJMB8ARKsnfhfvvIo+tmEVcDJTkHEmLG9Gr7tB/xwfBM 4JdHx66gZ7YDAAAAAG9g0QFQitJi25iTQHQdBu0vUvBWoKZy79shWODjS07/ 4+Ynbxx990lSowyZl8bEl64ye31PL3MyTLNOSbnCbdnwJNuHaJXRxuOrXrDe Hi0nh4rRdHpNBwwbt7fYwX87sqyF9SJRyX8KdsMAACgMS9mXDQMWEbezUMOF UoDElBUd+z5+Uv8eIQ289A1bhPcd8vHmY0I20ykt3P2+uaGbBTFLlQEAAAAA ADRKxeGVnXVEKMVAFZEV46k1nTAsNG4fky3LjdX/ecAWJ/rXW36BURh6e8vU JubAUljrp8JfNqWfv4f+y7HJoZZ7a9Ao4bLLP1T9T+GV6w4NfG580d9yEV8s 7ndI3gUAjXIpfbA3ue+FhuaAsFTk7MFzY/yfGDDz0+TUjM3x73c2uyoFR68U Mhe3qvTgdKqA83TElhsKPjACAAAAAABQFDYvawMWuepXhR/knp0XYb7VB5v2 fHPJ3jw3d3s1fRCy3WkXf5xRjFh1f++4NpaSq6gZ2feFuG977mRNtISwev2g Twq47cJI0xsdFjLwgEi3CgCAvBCe58ieFzpCAgJi7n2s94uMTrcVCRpN+0Y3 JQKD7om/CymvlN9KjKyPPMxY4OSNYLcPAJ6C0Zj3w7xuj2Hdki7IfSuyUbUr 5gG/J4aCYxIAABwg4yg1bAeq/1kXaWuyosMat91ww+XPV9xZ1c5WPGXAXv34 KsN58vapacGWX2y3YB+Tkiu2EC7EBP02uf4YzkFMb/RD44sEvUMAAJTC5e19 0e2uHzb3uKKTJAE1cXnviAYGv56Tsqi+aXkLuhLnC9grMRcF3WJUHFj0DPo8 u80+BQBAG1iy73T60C6b8z1YubhzJrb9Yyz6qgAAABAYTWcX9rGoIf4BS84o xZnTKeWFS59HYz5s3H4397x7sM3hk112yt87ZzYmfs8XG7+ngO+d06ip3N4/ wHJXDalWxmxATW/CvvxN0FsEAEAp3Fv3NjLtQXc5QDgq7qW8/iTmqEz41Ix2 lkWqWZ8MYZNjSnJmNaAs5dyPMAAAUAukdNM1GfoaF5yc3QZvjytwdSoAAJqm 8vjXL1nbMrVbkqmK3cChcU+xOrCjqDesQtCq0h2DiVIFna7NwP1/8bxxKlds JV36h8d9x7lRFGl644PNPVEl5B0CAKAYrFkQBF76sUmeknljrC48vHnOIMJH t1nUmFkbfrsl9z1pCiILdOi2fPp/IMtyRVALjabt/R5G1ZtOX/4u6B+QjYoK LiNVWVEOuUeuKL939sekuWMGdQ15Am1bFvRsx97DJ86NX7N5/y95d12qAfxn ErE9vTWPVbrBGjZfnqMS6ebvS4kDW9f1eThi7qZCd991Sc7+pBXLvz3oztIB Bc979AIBhwu1b/SJves/mTW6X882jZFGnPWebNvllWHTYxN3H7upcCsQgYBF x7Mou/FlmL81KaVPxl2574chBSfmE11H/QNGbzzj5tWkVFrpsa7TzrEpDTOe Xm/bMjFsWcWQO18Ps1zXgI1K41rwhJrePNMnQ1h9CbBD2zNkRdHVPPnJLbyv itGSGpp64/XeBp5arbHk1kXhvrV81/smzlSVHFs0rIkBax8dl7wzY+OMPrhV mBjJkEKjjuGtpez60rYPYlGz8uxXRqQs1zDqK85HDM5ADlbUqt6UXj17aNPa z2ZPHRLVpW0TysfBfOq36tZ3/EefbTh0zmG7ARKjMXf1W43rYDOOesZOgz0l J7e89y9Kr3nHuLBD5D2TSOTprWGMxgvLBviYh330TjutWKn8ubSPJcYOjtzp epd0df/wh8w/6x+UwKb7q+0Y/ampG++AGMiE6rLcbZ+Pos4J+oYtOnd8LtCb MiXom7Qev3J73t/aiSph0QHIfkyCexKKT+mNPEa7PEp6tv6RSd+zW2aNpqNT 2ll+W0CjifLbqzoSU4wee/aNA0g6kPFmTmo649McML0RDVczZL0n275cO0N+ uuHn08XuttBXkqIb67FJh5Sd12Y9/VEIfu377eTZ681YVZwvxL752h2FfHNU 9QZr+vE+njN25bapwn9z5jOvoZNjlm/MyCkSQHDAX5+H6gz93qrSF+4fjv8Z na798EwxzMiEQxXDi69wp9d0wLBxe4sd/DekLDcqmc1uhBlky0UzKlJvSi+f 3LFs9tAXm/u5FxRwgjq9tjAtx1k4XZSxqHMdHRbQPOmatB9DJVj2tv6NBsxa uXn/kXNnft2/a1ti3PTezR91NNiOC+R5ziRSenobKysq1RWOM8Pay1UsJ0lR qLqXGG6N1d3lH5Jnsn7Ykj/YfYUF3779GKaOxjGyU/HnkUU9m+NTL67WDp27 +vvM3y6g+8GKomvZP6V8MqFfy4csX4g+pGv8L1dVPbCw6AAWCjOjH7ItdupJ vGGJ8fiqF2xPs7fjGNUNedtfs0YFgrk6n13fxfaKTd+GRuG4zt/YncJvRQmm NxqLNGpnyNRVH4/qwnSG9Gvdc+4mp2pbyYGlnQy1ey7f5bmKHiNRdpr8cOtn 5ZTq+9veaMLs22NB0LMdu78xYsayb9NPXXJzqCEONPWG/1ZX9C/dx7/N0Mmr 9zmNH9xizEl5RU8t6b2TGW25uNILRZU/vBaq/ym8ct3hRciyXF8s7nfhH3rB H2nRIUpvBvwrsA7tu6j/bNTASR8tTtqalv7zkZy8vLzzv2Xuydj8dfzcMYPb 1CcaenqFDJ17oIA+rZllAS98bxg+8bRClGJFgeeGeWONn0s4b7cilBUd+zYu 6gnauYODXTbfmURkT2/j3Sv716+cM6Jv+DNIUZjhgabtuw4YM23hN1uyrqo+ dYD4CjBRu7iKAdm11l21Ms/2r1Wlu0eG4Ak49R6dewzS6J1inTCx4NenJp+4 5lqQqcj9eX735pZ3yhcRb1UELDoAlQsLutuegogvT6t9aXCM0XTonRByTQ8b k8VB8Ucb9XLTf+ywND3HVzIs7jQSOeA5OQ9hAz4pZPZ9yGJ6o81IA58hN80f 9lIgLRK0zJCLEjbscDpD1q4jA2cdLqJ/aOP53W8GqGOG1JR6Q2kzJwpBnV6f u/GQxPXUgm91ydIe8yOduvaLOQM7+tl/2kcaDlv2/b5fz7oq7Dn1S0baj8lf LJwxinwpyOGKfCvxuJsoywHExEubtE+sspjWG5Sez6b04XULz80IA9Sk3hAh 9KvP++qQOzYLaAm7Due7TAM2/l2QmTin22O1X5ydU6vVsxT/HmfvgpoJe8p2 xdR3GaMa717cNKNfE4P1SzFgvdedp/wwz5lEVE/v0oK9n00O/z93C5aPX/jb s9zuVdlRcnVHzMjWtY+loU7If2KPC14YSflbfy4jXBrqPRh3Sk2GbdU/xdo6 w7rJP+SfCZ+/fwRezqfTte6bflt9QbQEWGQH3zpDvjnKtEKhrHjvB5F1iW9G XQIOLDrKR8pZlOBS+mBLbWDtuhO5U6slN2TaDH56OOlnjsILksCjd+wPwAo0 FbPbtBxkKjGeWtMJw4bsYNZ6Q3rTG01GGg5nSIOh1evjl+887NoF0Xj3StoS YkDsZki8F6RqZkireiOAmwpPbFYY3NUbxMCH2Paujxvfri79IW06ZP7m/WY5 zhUXc44dSN/+w5exH/Rv/QQtnycwakzqJel8F6XY6lbdT+kbQP2U7O2Ry+/l 7NlgF3J4R85ee66ETURqTlCMTDqP/htpQaDGjF9FDa9bxC/LVYt6U3Ete83Y bgHouufj1X3a5xl591iMeMGJxS8316MrRcm1tQNa2L7GIalajcN4gSskDEqP S/7IXP9JzPh3p3626xQ9kYzfTCKep3flmV1jQ61BQsc+kxev3pzxv+wL+KKT tum7Be+PDAugxlo+fhEfJOQI8ppX/LV9SAt0CgldnCmWXmA0nfyoO7ECh8bt U83e2YxVoGOQf5i9pqN1MNvG/8rtz1nqp8AAxyF3z8e28uaiwJTfXte7keW7 UUlqEyw6KkDKWdQKmnhDq9zRDviJSSPbx+RVaUva1AiRfmNL2cWwVosPk/9e U7n37RAWVWxIdM08XYczmow0HM2QvhETF6WzmSErcv/3QTt/XMCxHc+V30pR 1QypMfXGxWXNcKoVrS7PSZ5nPstArhPYbF7mTQHv0wXSbHXJdD4rHANRY3Xh oeSxz/mjl/Lr+h/mehe+vQpqm1yI/BNqF/ZaXL4gRazSopzhdf8XxC/LVYF6 YzTm/UB96w2G0JHzMy6yCaFtlFxP7IXHJHjxyN+l/5scRs4kalQjJYGYukel 3+N8BV4ziWie3mbfCfNr2/bVz35yXP+IHw99PIxWBvxw+MDNvBtt1xxe1pJy VRGXfqslrwotGtCT1tbDD7vU2UnTG28eTrBEnSDG67hZmxhNJ2LwmgWOzZGR jAVdp+GZEuRIcAYWHZUg5SxqgXS8savc0RA2ERsToinA7bVvWeUb3hsHxEgZ 3aJWHFraGsP6pzA1h0Sja4oKJAIajDQczJBeIUNm7WSlbNuw5iL69p2TU1p5 dJY1UVMlM6TG1Rt6LRX3Bjq2mmtyBWz2rw1XpDgkk2ara19Dx+sPlVzdPqGr LzJc+tCXE7IZdOnFw2Z6DSlqYkY7SVcLShleBkhQlqtw9cZ49+L6t8LQYjd9 cNu5u/kZDd04+u6T+ATStlsPJA1LBdW1ckGsCNxN2nnNJGJ5ett6DAWPWpJd 7OaT2aIv5DWnJvqyx34iahd/XJQDwPJbiZHm2iMV9kZBTG/c5R8aTbuHBBHf DtY4fMsd7n+zND22BTEncLN60CpEJYXhgaZtO3d/c+zq46xPzdCkhfDPjysz BwwWHRUh3SxqhWw1ZVe5oxlsiyMmVD/H60SHAjM8m0/ZWhUgJ0rmXSEWPDaR uS5ERtd8pH4GaDDSsNv1YIEh72+1y7hmBaHtG7DOffsG22rwVTJDaly9IWMw C3wa6NgaZ9genrrDVxSKr9+oUr0xWRv1kqIu0wmh8JdN6ecpB+5ki6IGjRIu q2wfQKCc4XWDJGW5SlZvrBmVJH7dJ+y3s3/kAFGJQ0P51bVyYV4ReKVt8JpJ xPD0vn1qWrDZdpVxaOogrIoYecjOao851BMxEY1WrE+7ChNvqKY3bvIPyTNZ A/bqx1f5vMy29BsNW5KyhzQLJR6n4LAtbPWby9v72n5dkU8jLDrqQrJZ1AIy M2DiK0XycPXgmMcJw21d+ylJAkg3JrysaXt/UrYMnLyRm0cd7Q79Iick77L4 cjh0vnV+P0h0zU/qd4PmIg37GTKw93tkG1AeILqoymZIbas3aAyGw7OBTsVf iV18KN+xDzb9iOhOjGpVb0x4N42D0yMR5yGdPrTL5nyWX8GdrImWS+j1gz4p UP5L5QjlDi8N8U1vTApWb4qPrB3cEE3LrNNqwpfCBBImegxGoPzqWrmwGI8Y WKQlu0GQmYSzp3dN1cF32+BhTIdB+5kHRUbT2YV9qKsO1nTGNu5RaFXpoYVD Wz5oNkEdMTNDiPjHASoXIkjTG7f5hxc2vWz7XjjniVkhJa+WPXbeUt2wiUBp XmwT6tP/iG55HsuLVP+zLpJ8h5SWvguLjvqQZha1Qumg/Qi2JEedQbALbH7a vo/1jt9TLNznu/fDhActAyeA1bPx5rnkuWN6tX3az6d+q8gBH67bW8gqfUYa 0xvNRRr0yhdhZ8j7fy4KoVs6q2KG1LZ6Q8ZgOO4L2N1CVrhbkUCjU7F6Y6K7 kGHs+8aih0f9NjHzdVceih1eGhKY3piUqt7QTx8MWPjCDAEDCRMllsDUUl0r F/fWvU2Mkq7NwP1C5IAJM5NwlTeJzhRcXE2Kz8wKpkYXPJPAxYdUIThkSsgO aXpTe/+RO12malifUny6GLeP19EuTklubFPLdy2BD6oKQMxCLd8Ipy1Yzrxw 6xWUZZ0Hiw7gFjJlVCU1HewoufZlt/pEIczk1LMCVxNR6y/k3UFIY3qjsUhD ghny+soBlCVGJTOkltUbMgazfOucTW9soG+fZS7tOu2cyJGAutUbE5ISaSVk XhrTsn4y9VGHNaQakKoKhQ6vHRKY3pgUqd5IsEbgoIXYmozEBATJahCgY5FA MwlHedNoOvROCOecH2p0gT85D4/7Trn2q0iSKt9kdVlATG/cnpAeGveU5aES KOSzmrQotMZHahCzUOILiYg/zGHKRNZfBQXnsOgA7qG+AvwT/JSFpRWaTh/a PekcJ+9Z11Dy7kTMJ2eCFKY32oo07Oq5xOnJSJbWqmmG1LJ6I6jpjQVkQ2GJ BJr1yRA5PFW9ekN1ksep92DcKWaK7hXbl6jsDYs7FDq8NCQxvTEpT72p/C3l dV/0jgQyzbOHmsOviupa2UA7fnJ+pG0INJNwlDeJoi0DNiqNU/BI2X9hCpey yYJ3MRVg8UALrt2ckJYXLG1NKOfChXzmNvcEvZIvC3FFdVO0Z2nUk3hwqG/S evw3P3MSNywm5DaUkBgPiw7AhJqfFz9p+/IESfBTDtYu9kK5PDkEbz2phHWT PNTQY8++cUCkr1FDkYZdqyDMb9BCUWZIch1X0wypYfVGYNMbHHoMAOoNU+jF 13rHrXjtIEvVOE9HykCZw0tHmrJcpak39OQllvXCLCHLOTUWiYkAEnfpdV3f PcWjJFCYmYSrvGlejHjU3VP3XwRK2IE6gOzNocc6jDmuhjMsGugbOumQyw+A nNkJFvKR37Vmm8tIDj1ykz+BARYdgBmIa7eiRXvWWKWb4GHzs5w3RcpLnjtu /rcXeexOKfKXyOumsfD0V9G9gn29QobOpbkZV2YutZkXiecFp51Iw9ovj5wh xfQG3zvycaVHVnZoWL0R3PTGZDcPSBOgakG9MZlur32L4p3njY3eXeDmd8jD d7pYbbyZk5p+7K4qFFIzShxeO6QpyzUpSr2x1Fwj8E/zcInNzkVTkZhIUDJa sXYL9nEsCRRqJuFqenNlaW/kAQvoMfkzF/GqQ6jLGY5CT4gKM6Mfstyh/Htk DqCmN+7e0KpdMTZHEUrIV1qQmb4vn+spIZnf5YfFnVZf8pISocwk4p5NuAcW HYAhlKwAPfZKzEUlTvrsIaQbvTv7Wfy45FG+b+vNzGiyN6v+kUnfi5G+gVNd tv0N0oWyW9IF8j+V30qMJF55vf7fY46JVkWgkUjDfob0w6YfFq0YgNySKKiu 1i2aVW9EML0xoWGVoJd1jTbUG7uUPAYHi0gOedD0behjgR/KN3bjJ6kolDi8 dkhRlmtGKeqN0XTyo+51KeOGtVuSKaoca30SNBSJiUdNZdqwYPK78asz+QAn D1yBZhLOnt7oyY4ZXd3hKwrZfPv3N06gXkHuHagTSItUkecQsSALrt0XQ5GB rn9QAlKWTeT9cq8aQx5XVSpgioOWeyOFXaGLe4FFB2AK9fxCoYo9WyzSDQOX J7PnD99PTdkMCnOO75hCShBOOiST7Zx0WOPnEs6L2KFMC5GGoxmSj5knE6yf WjWmNyYNqzd2pjcCNNCx7xguiYe5RtQb0jXUirt+62TKKO0IEj9Jf0iZmxdn KHB47a6AVIU0Dt9yR8i7o6EQ9abi0NLWlCHTY2FjskRdJJCKTtiXMYE0USGe zGb/2nCFdSgn1EzC2dPbtrqRH4TlEY/dBGLAesZcUlooj1pDi2mcJR5IwbUB e/Xjqy5GmNwU0FNwcVWnBY+PT7bJVmv1mcKgqTdSFLw7AxYdgDn/bJv6EPKs qLfpKklV6e6RIbq6XkPXnix1t34RxyWUJBZOIE27MKye7/JccV6C4qyJOmug 0XNSFnGuX1a8N6Z3gAGfdvShLydk3xLlT1vRQKRhN0MK1nXUBbZPrSKBVKvq Dd30Rgj7REsjNkoMwLW6kA0aUW8c9Ft3aR+KxsbUNBLiixiyQ00LmeKG1x6p TG9MClFv7p6PbUWpNsO8sXF7WfZYZI/lSQD/AYZU3Fv3CtXArO+cHFZLhFAz CQ9Pb7uYCsMe0S3PY3EF+oqmTPWGzACUubsHZ5C8cTcfoTQ91pqIRU3BxYsd 6vD02Ce3G49gS3KU9jWrkBOrniffHfnUG1h0ADZQylgEsO6Um6rSg9MjfRo0 G7/ljJu8zOp/Ci/m7hjTpnbRdmM+xgBabCyWCGZLGvFvMHrFtvS0H5OXzh/Z sRFetlWvfu/Zq0+zLGLigOojDfsZ0oD1T+Hdb8gdtg2aWkxvTNpVb6i1e0Kc A1aV7hgcjFEJ//y4BKnhmlFvqBEU5kb+upMZbf05igdLTeXet0NU101VccNr h2SmNyZlqDe5n75KTaTjavXMEvOTAP4DLKg4sOgZ6rvDLo1WqJmEh7xJOfsj 3k2WD4DsJ2JMQAM/AZJdpYeWY++ivobqOts2/lfyP5nrnnh67KPp65FJ5/lc SvsYKysq3byN1NdHNvUGFh2ABZTpSPSMaNExSze0ihj3UItSuYEGt5io+RXV Zbk7Eyb379mmMb6fDXq2Y/dBb89bs+nULRGrpVDUHmk4mCF7Tjsr/uBZZkj1 mN6YtKre2Jne8D8HRA7aLA8Vzx4ozNGOelNI82bBD54mHXSyDzNXvNo/EkRa nQRirLAobnjtkMz0xqQE9eZS+mBv+lhJcAZqsnx28B9gg136DTsLO4FmEj7y pjEn5RU95ROwdWB2UI3OKqaqqagQf4EnD01Ub3qD4bFcYMukq45kgYKTs9s8 pn86vLPVohKdwU7OaM/7cMFoyln/b+sXrdIsJvGouHlh3/ov5o4Z1P2Fp/2Q 1yqoTY9hM+I2nbhm/+RRHQtlUm9g0VE7ksyiJEgljrocORzATbqpfVVDBh7g v8+imZa7LolVM+qONOxnSKl6DVtmSFW9YtpUbwQ3vbm8d0QDSvMyrFmnpFyJ 1FTtqDflhUufp/0R54XYZOdZbFT6PctNntk2OAgLHpuYL5flIFcUN7w0SE8n elMeMZBZvTGajk6h+epLdAZqsn528B9gRPm9sz8mzRnRN/T/vKjfl07XaXgm w9IUgWYSnvJmcdbm+SP6RoSFh7/c9/1v9hSyvEDOvHDaE/voB1vd3nvFtez1 c8dGBlvWVr9m7YbOX3P8pjgrF5tuTWwpvZS16ZOYod1fCLRFd/Uahg9+Z8nW Qzc5qUQO8zXsksax4OiVtJYoxVlb3mv3mC60a/LFqgsLuxM/ZrPCrsxe39NL iIawpOQops2mujBWFx7eNH/YS4HWyUDf8OmuA0eNnzJrSfxncye9Y3k8DF4h Q2Zm5FMecuqRtBzqDSw6qkXSWZQElXAxeVRcY1Vxfh4bcvPvOhoWRz60zBBI aSHzZmV6/SVErZGGwxlSfE8wAmKGVJHpjUmj6o3Apjf4QZs/cjkdFthsXian 1iec0I56YzRt7/cwi8nZmp3uFzkhedeP6+PGt6uLBQ+cdbhIfTGIEobXWHj6 q+hewb5eIUPn0sawMnPpC9bfEWDr4Q7aIy11VEnvz4XTK/myNH+84vqZfRl7 cu6q7xmWlLKirMS5UY2twcDzUW/8qxHtK2PRqIX/TCKhp7cDqv9ZF0k3zI9K dpM1VLTvi6jaT214oGnkGzMWfDrHsu3V6XHlQYStB5n7J+QZlvHmufXv9TK7 PjrGr93rq1laQRpPr+/q6EwHLbh+qlWon/ngO6jbqLjElLT0jNS1K/Ex9DaE jorLLDQPINE8BQ8JQiZ/k5qa9Em/Jwx+UTOy+R8Wo9+4H7bkD0+fLoqztsx5 9XlfIhXBp27EO/M3ZV2ydz013r2S9t+3QrypDzn99ZHDCxoWHXUi9SyKQA0a GW2i+VJ+L+enlE+mjOjd+blAb7vnlSGGOq3e/YZyLOLoYJEZAn1q2g2wtILx IGSMNBzNkBJsRgjwGTJ9V/ZtFYk32lRvBDS9qfjzyOy2FOlGH9o96dw9KVdB Wg84Fas3JtOhcU9R/4gbGbw2dE+eO6ZX26f9fOq3ihzw4bq9bJVkhSD/8FaX bX+D3P9SbPzLbyVGEnqnXv/vMcf4uG0yg6reSD354E2i6aMkhf04wAhjdcHe hCHNLctBULcRy/fm1G7THJjGN2m/4RrTmZjvTCKhp7cD7AObBo0SLru6iaKM RZ3rYPqQrvG/XLV8ULL9OpvMJcYglWVUF18eFB1c3e9xWtqVPSzPU4hx8MPm HqdmtKC5QwHNk65WFx5P+2r2u/27dWjqi+Ghafuub0y1K8wpKzr23eJRPTvV /gx+4Bi39lyJMA8Hmi6iIitF4SktTJvdv4lVvns4fEjSaTdiXfGRtYMb1sFs Dznl5B2TpXQCFh01Iv0siiJlijIuey6ZHE7PceWKEGY1wkKz8xWmtbH2kC/S cDBDOqtcBsxoUL2xM73hGGzXbiLSV0ShoaPBK3Tsp9ni24ZTb4OeUKFq9Ya2 HuF4hgwu//BSXXFI132j6ezCPj7EbNn4uYTzUixqNPVGPzZJusqA+38uCqGF KCybcwHiUVa8L9a6U/P1G7Dq52LbJosMCUjaxR+XZjqW0tPbnns/THiQ+sT6 jF7tYudnLn53cPKFtt4Q3Av33rq3bRcXIJvOaMz97v229GNAZ+iwhs2XM2tF ZpYBdXWHryik7d/R3CEFOISgVi3SP3IKoeLPX2IjGlmMHAxY2MwNF8vc/1Yt Rakxz2BYaNy+SnoFCiZDuAuLjgqRZRZFoR3GiSXhGmuu7Pg0qqFAug0xf4pf fc8Wmp0v/y7kmkS2SMPBDAmGb27QoHpjZ3rDIfIpyTkQPyzMD7mIX9tXPzuQ J0PeR2lebBP0iRagfZ5DZJMXVOpvyRL5hxdxwPPrOSmLCBzLivfG9DZXJdTO wC8nsCxA4EzVrhhkjZDUK6zm58VP0oZIKmM0wA2WOhTMWTaFXfMp6SogpPT0 puPItJmeN4JSduPLsMeweo/OPUZPOb2ytLftoRc8NEJTXvnHxgXJE+jvKUG9 JqFN7JqimmHUSp7QAB/Cph+hDyA6MyjBIQRZMqTVtxWD2ZzKGtIbsPCFGcUs zDPNX3Rw2JabFF2RQGKnNVh01IdMsyiJXQ2LKOkiJVe3T+jq63A+5YbhwaZd +n52RDpnCYbIXK2vCuSLNIzHV72A0RGrsbtW0J56Qze9YRNsV9y5fGzbN3OG krZ4GJ66P/ITrtaI/KE+1SJm28omL3hGEqP8w2szjvNvMHrFtvS0H5OXzh/Z 0XysWa9+79mrT0uZVEZpAYBhj2BLciQ66j47L4I6POpvxGlP0bnEGe+MVwjz VmQzOWN2J93gkN7aVnh6mjFEWk9vGnYlY1jTGdtc3MKN1f95wElTdeT8Ufg2 oGhqOs8pveLwys5ksxXM7/luk5cmHfjtUrFtFa7+pzDnRPqaxSP/1YjssGFw 30HMPJiO3WJzF0RarsOmVZ9oGE2n13QQ7ctSPhTppvZ5jtnBQroxQ8ROUckF me9QC4pFOwJzhkcsOtpCrlmUhGbVIob5VcGJ+RGNKB2K/IP7TFmQvPt/2Rev 46ZS5X/lnzmR/m382E7oj9U+va2SLqtsPqJKuPJveBWIjJGGgxlS6MYH2kN7 6g3V9KZ20gsYOn+5KxbHTq7dYoykdp80PNj0xb61EeP+87fkbCBWVbpjMKVY IHDyRpG2DtLIC/Z/hf83rgoUMbzVZbk7Eyb379nGbAYb9GzH7oPenrdm06lb ko+/XRVM0IR1RRKEA+UFS1trPz/T4WMgI+5fcFK6wTDfOsO2XHAWp/69dQqt KxDffoJWlOPpTaHiXsrrqF2zTte6b/pt57dQkhvbtI5jRyDKwy/0vgPda/hi cb/zuPTtU9OCLfepfyZizkaXRydVJdnffNjpIcuPYxETs108a8S0U8dRm2by pFsxhiSkxK3xJin20KQbRllV9uB5y3rvATOmUmomJN8XeMaioynkmkVRaGZN gjsM0Lqx+HhHxnzttElQWfHeDyj9vsXbiYgENSiSw7xO4cgYaZTfXtWR5pGt x16LU11nYYnRmnpDN73hCLGxnbviO3nVG2r2uA57OmLLDbFmHEXIC9oFhpfO pfTB6Jvqi43fUyD6H7Urq8SE2/4rB+OZH17xE7CMnRf6p0ITXS/eNZVHZ5GR 4VNTN95x8eN3siZSOo8KZJCrJE9vlL93zmxMflgdFtgk7rgrC35C3Wo6Z7cD wePs+i7kpYQuxkH3Gnw2GjVVB99tQ1wmeNj8LGYJgeRm39uRMmPFReKN6WZm tNVdRSk76zuZ0bbv3aMOIu9eWNTBtq/kddCPR5X+QUEPUSYkrOu0c1LuCzxj 0dESss2iKOTrL8IMUHLty271yYsHhkxOPeumvKCqdPfIEDIj0p2ZrdKgFmV4 Yjaja+SMNBzNkB5r9cYcrak3do+B22ZnJOV/5ef+kbVnW0LM2M4B5N7H1vRE Uow1V7Z+FEZub0VvUy6NvHB/4wS711Sp8oKgwPDaQ5jVS/aEm+zLKjFPsV1S MoS/qOUZaNlj5y03MSHVflAg0yQleXqT3Pl91jOIxOlbZ+j3Z1w9rNX3U/rU d1aHSOvpIHBROSo18KgKqTi0tLX5KsHRK/OY+dMSVB7/+iV8a+HcZdFF4g3V mURUJ1IWoJZ3nuHtj1N1f++4NuiDyifbzWEpscSWF7DoqAwZZ1EUSnW5oNl3 lFeMTdx1PqUn8tmVMk8yAi1ExaR0zFMHskYaDm3Bxu1TV26XDGhMvaEvlFxT uI1383dMJ9xcLQT3n56RL1XojjZeIeaa4BfiDou7sZXfmEXTwPA6pGjPZ93q IVkivn4DvtgjXlN4tI2LGQ871FYgN49NRIxJ3fqW1FK2K6Y++g0KEtYqydPb ApKFQgxORPxhN/EmHvDrsW7TcuzfIEpyso5wcxUSQcp8rK6JfoMWspJuCP5c 8YaPizc6b/trzhJvUNMbCT243IAWo0nj76QAStNjW5APvQ4L6ZNxl/vVHNr4 S2xqBIuOypBxFiWhqQ1CqjeUlH5vbMBal/t0lJqqlF62Xi4CZb1KhIjjqXrk jjQczJABzZOucf9Aiqaq5GzqdyuWf75k9vvjzZ4tkRHh4R3avLgoje0+TWPq DdX0Ro+1Hn6Yc16j0Zj7xTB0m6AP7Z547h7ne2P2R2uupH016jmkHNXgFTJk pgTCkWzygmfEpTC8zqjI/Tnu1ed9EZPSwKh3kk9cE0PCoZtiSdvuCqBjNB2d 0o78LsLGZDHZV4lxKKkoT28zt7dMbUKuAowa7vyzbepDTlILqO73gncrRmNj 7t9IzeFlLWt/3WEpPRPKri9ti8eNDg/7Ts5oX/uIDdnh+BzQGn64c86REqpt qZJFeMEoPjMrmFLyGbo4k8+LZ7cgymBqBIuOupBvFqX8KbHUhvz9I5DS4wbR a26y0apz5oWTj7Ga0ldAvXGK7JGGgxmSz85d0RhNOev/jTmAQ0aoptQbuukN b3GYbhqs04d22ZwvzsFcdVnu7m9nULexUhZtySQvaFplRYDhdQVup/zVuI5o +xhdmxGzBNdw0LY4wkwRAB/wdAgSppnYJTmzGiBPuFBhmHI8vWuni+z1PRHb P4a9kou2zQx5ptmX5xys5Lh2YUP49AMh1Bujad/ophi/Spl7P0x40KFxTWFm 9EOu5MGCLfPC6uuCOvVRUK9bz1NviCYmJLzzoOz3BWLuuB0Di466kG8WRRFH baip3Pu2zbuGi06OdIJWlwAC6o1jlBBp2M+Q2KsfX1VGAqzwGKuK8/NqyT15 +NOoRraB4lBLqyn1ho/pjRPseqjpfN/87IqwlndVJce+nvPmC0+QW9d6Ad3H zEo+eklKsx1p5AW791TDKisFGF73GKsLf9nxyYR+LW0mk4YHm0aN+mTXqfsC JT7YjQ8WNHsXz5es7KdFIZgrgp7tFG4hom0T5AZ8sBlHVHN2JQbIQs8mC52y q9ViGIZ2A2EcULmiOHtaADIntBt++L4wd2oFjY25usLiohzv1AhcpdFhz/TJ oBouXljQHZO+XxhPKHUKHqDe3P9zUQiaeMP7cJ86gMTbNCpNakdqzS86xvNp I5+if0aJ8WvXe4tI56o2RJ9FUURRG2jbmXZLMtk+CkiRi9pW3gubXhZ6PFWP MiINuxlSfjlCCoym7f0etjyNnKwCtaTeCGV6Q72orZGoFcEld1R08nm0/Zi4 zEI5TnslkBfsB1M5DT5EBoaXOTVXf13W/wWrmCnkOmsfSPP/FuyKdhnji809 4cHelZTuUWzOxCk5lpoLw9BuIIIEVHSnIL7VKI5A9xpc23mYrYeaztjG68sk EngeopaL4iGlYvqAswGdrzSv3lTsiaV5V/K1F6Yk6WFy9YLX/KLjsNOl9Ij9 gog/i6LQ1BsheiRZkxvNcCxQRbK71bby0np4qevmxUAxkYb9DNk2/le+t8KM 4uPbEzYf5P/BuUAuTxz712tJvRHS9AYByRW0XPmRSd+zt1R0TlXJ0RWTuyPn I/qGzYfM+SL1tCjWH86QQl5Am2hY8ZDWmTC87jFWFZ3el/DByNaPIR3furz5 8eZjdwWaXcUIpPFedXlWzvy6Pz09/cetSZ9+POR5f8yO4NcmL9+wIz09LfN0 bt61O56ceWMucrHC6kycolJK3v9XVCr+2j6khSWz3ddr6NqTAqRf1lRu70+e h4njyiuEeiMQ99a9jVHTbm+vfcu7NpKM26c6qdSD1BvK1tIM/2Oy7DUdqdNv 0PRt0g+i5hcdj8i9kWIWRbHrkcR/O3OFUpsQOHkjB/Vi78jHrRdQmwACuTco Soo0RJkhmYBne9aR60lADYK4tUfXjnojuOmNFbt9tzhuXeX3zqbSrD+8QgZP E8m+1R4p5AW70jYFNfgQGRheVxirCw9vnoOaPonz8NsvE6PSxfIht2sUWxuA vXHgL/e/6BHQzgFZNWGhVE6pMrvMMVWlB6dHWtKR3LbsZA4laNdjr8XlCy92 USun5KzWJFwB9Y9+sNXyKQkrY/96yy+oYSZEoYY0Gldv7PNkePSdJ7jz9TDK BOyHxZ2WIciFRUcLSDGLoghfOUV5HbhJoxV3VrXzIgdBTebb4HuDoLBIw36G HJIqRUxn1k8keJcdQ+ZPcjK9MWlJvRHB9IbArhm9mC9+dVlu6sohLZCH2WAI HSVFLZUE8oKD0MJhyzktAsPrDOPNc9+M7RaAGB483HnAl79claTnlIgiP5ED gMK3EEBLUDZrLBNHy/IXtdDcqBqNF5YN8CHWl8CWH2bkCfX8X185AH0IeyVf FujCKML0nBKGu9nT6pG2h+Y+Vnqf0avVJ/F5kGuxfScOjsnkJHTTG9midFh0 NIAksyiK0GoDLWH12TcOcLha4f7hyBuqqnMTUG+sKC/SQBqZiT5Dklgbnor/ LjuCXJ641/NqRr0RxfTGjN2+W/QX33g3f8f03gEG8k/qQ7ou/1XcXhgSyAv2 YYzKbCR5AMPrkKKDq/s9jgg3Pt7dP96SL2RdIgX6aayYy8ShcU9R/hJXgV2b UNKYWW4xKAXsEh3TiIvRmLv6rcY68+IS2GxepnBTffntVR1RjyCRfD/Q3bfc gTF+QOxtyf+pqUwbFozVwcbtLZbvhrjiQeqNg/WRWzI5CbVOpHb6lesZgEVH 9Ug0i6IIrTZQTrc5dl6jHWSrqSof1BsCRUYaUs6QJESDA7nc8BDTG84qqGbU G5FMb0wODOIkefHJt8z6R4V91+wQXV6gd5TgaJumUhQ3vFUlZ1O/W7H88yWz 3x9fy8hBkRHh4R3avLgoTbJNQlHGos51kFsWMIfTCcYjy1pQvwX+7T8cU16w tDX16+BdCKAlaHEgOwXmxCpyU+sflCBMiqWcWF8EnT705YTsWwJeGa2txrh6 HTCClNTkD4x3D66HBUfuvEts4fVYxMRsNSofqHrziG55ntz3IyaIG6oFnuVF 1INgPRY1K08mdyxYdNSOdLMoiqA+LbQFl1thwtl5EeQlfKjO8ErHzkdIDPsL xaPMSEO6GRKBaEMpmxse4snGWQXViHojmumNAzM9yZrRG425XwxDEop0+mdf Ti0QS+4QW16w7ygRMi9N0N5dikZhw2ufqW5BskRr4x/bX0cbZHljA9aKK93g mPvaoO+yWNm/l7f3pU0aPAsBWFF0LnHGO+MVwrwV2XZzMeV18MOW/MFiaJDq AHXUBrqm4vDKzuazMH1o1+SLzNa+mvLczPT0o+fuuxs2pCe7CN0SUVD1JqB5 0jWx/g4T8KOch3G548+lfTA1pCA6Bi8Bs353sqg3Eir8dPWGpypLmB0hT76c yVcesuhoF+lmURRajyR+kyolvYFbYQIluUJ96gdVIpDZWl8WlBtpoCudqDOk jUvpg73lzB8g30ceKqhG1BvRTG+o/esttIs/LtFXXnEv5fVG6J8WTyoUV14g MtjRxciTEm9MChxeY1WxuWtF7snDn0ZZnzHJEq3pN4w1iF5zU4LFlOaKXztQ z/TJEMHU8Z9tUx+ift18CwHYoJAWrjbsp3TkDlkfEB+bHGq7stpdHSrPbBsc 5MUuoDIR+0EGhwiUxUvkeFtJiSK4FOCHLT9j3sIHtky6qs5nBBXEiFQiSZFU 4aeqNzosZOCB+9yvRj3L0NUdvqJQxp2aZyw6mkXKWZTyd6miH79JldLpm1NG lvHUmk7I7YjcMF14qEGRxwmbio407Pcv/OZ/N1SV7h4ZotNj3RN/l+cRMJp2 DwnivxZoQ70Rz/Tm761TqE6wUvfxMZsuIk+1aGV6osoLlcdWojN/7dwZuepX lZ+Zs0O5w2s0be/3MJ9lnQu0U0IJ3yn6G+2DTT8ifIMcef0HjGd+eMXPC1MG +qdCE+1OuSjqDauc8NK82CbWX1VLSzVnFJz4oIU364DKsq12v2SX7YpBH3WH hw41x77u3BiLO8n74URdMQ3YpENynsviWxUd9t5/F4eo1K+YgCydkOmkW0KF n6re8DsZL7+VGGl78HVYw+bLc5i9XH9fShzYuq7PwxFzN7lVe0py9ietWP7t QUaen56w6GgVSWdRFKrtFdsMVRrI+8VxMkHKplR59kqNwOXf8EqK4iMN2hVE rcu7vWVqbQjp23cOw2WBjrG68HjaV7Pf7d+tQ1Nf7OFmL/SO/nD1/5CFoKqi wvXyYWd6Y7x7ZX/i4nH9eoQ08MJ86rfq1ndy/Pqsm27uTxvqjVimN7T8W/PE JfU5Dq2TpmgrsojyAiWawuH+4qgW5Q4vMpNIdh5BHQ1pW08Wn5kVTFE2hC9j F6H7rcZAHgB23z5SXi2nl4UA3DkT296ffUCFQ4yemwmEduLvpGU2nsjkJcya snfk47a/Jq+VNGFV91TTpmr1KzaDpPpLVazt9FZEV/ipzZJ4rUQUqcSARcQf Zji7EHV2jDKdru4fTqS5MKzwgkVHpUg+i5JQukTh8PEtR9QbTtLonayJdck7 kc0thAe02ky1Z+2yQBWRBt23Ewuavk2MPWJl9vqeXmwkfSoVuT/Hvfq8r672 Ywb3mbIgeWd6WkrSjNp/8Xmg+5KM4srSQwuHtnywdqi7bM53/o6hpjcrT19J /TSqoZe+YfMhMZ8mp+IXnN6jub42wA1uO9dlRzAtqDeimd4UfPv2YxgV/4Al Z6TVHcjAyUK3pAti/B2x5AWj6ezCPsgiVBtUPJdw3sO0GwUPL+o2JlmiNXUl lXryubH6Pw9QRqxV0mUht0Z2HkTq6q0pAdwbTJMngAasf4pqDYtLrq0d0ELH KaAyWU8r3CyUlJ47Ttol4zs+rt1j7f/g0t4CT25csU62gn00WUAVzkc/2Cqn TimBwo8EtLxyb26fmoboJCwOMsgw0n1yAulawDgjAhYdVSL5LIqC6uEYP0kc mZy57I+Qp1eHteyx85b6lA9aW2rBvDUUjnoiDfoMKUZ+F5GD5IuN3pnP+neN xrwNMzs9aJ71u/4n9RIyJlUlJxf09zFgQz+c0ZbB20ouH96Gbn1fDvDG2r+3 IrsY+bD3b6UMaoHXTdYLmnHIaa8iLag34pje0F1VMXbnOAJiGxkCkQJjkeQF IkuNxK/O5APitj7ngLHk1sW83Py7ImpKih1esqWahInWtHMQCRzmKdjl1AVN WFck1B3YWfpgKuutKQlkUT8b9aYkN7YpsTXTY2FjslRqek6UXdvHAEx/3bzN dLdtpHXhjEw6b/8zRCMSoQ65qnbFPGj5azKHE7atiqoPWFE1TKQjG4ZIofBT zl65ZmPWVB18t431IrUTy782XGE8rZNhpJd+bJKr3O2aqpRefpY/wdyfARYd FSL9LIpCC5P4RIyIuQR7aRTvrWy9CW9s6Db2O18FQNtG8UlkUg3qijTKbnwZ 5o9equmMbUIKogUnZ7d5jOMuHukB7df9ncwiuwGpuLfuFaQCwoV5C2l6Q/xk nSHfHL1r97NWmymdrs3A/U6McTSg3ohieoN/0ZQHqZbg6JV5ZXwvzAHUpZPn HO4C4eUFY82VrR+FoQGL+C2hWVNFpLqZb8/HL2IqVQIVDoUOLxqIimapZI+A YQk3Ko9//RJqCchNjXdEUWrMM7RvWmW9NSUBzbZlfH5N1kSoNoasnXAOTo+s 6ywGYML5lJ5uizvI99pMg0YJl+3+FtFO8SHhLDhInxaZO3pYpheVv3fkybvc BibSKPxEC1fLYtSwbXIh6ytQzjJcnlrag4aRbo7/yA4p7PJbYNFRGbLMogi0 AnNeCXikOMlSGqUoothTUzfeUaPVHK1AQ25ffSlQYaRhLmuizJDj9xRwuXP7 K5/ZNTYUl27CF2YUs3+AryRFm6UbVzmTiHWPSy9itMTVhZRUlr/IWjjdK/my 4w+lfvVGcNMbY+Fvy/q0oPR45PMK8Eaara7A8kJVybFFw5rokcv5B4zeqDDp xmTK/fRVWoKVSM2PFDq8dvZZ0iC7emMiJ2TrfBvYbF4m36ywooxFnevQvmex OoyoHdSeglG2ZMnlRW2IAEzn++ZnV9ToeGM05n4xrD6extzjm2O5eW458+v+ dITt3ycsXTSpa3O92wic4njpJJk5b/trwnoHkZMJSydqoTFPL+rraUuh4s6q dl6WweQkZQiGZAq/zUzGjLOQ1RmUuZf9QQYZRro9/kOKvNrG/8rqJmHRUROy zKIoJ1YhvsX8IjTyuITdfFKQPMFWkadiv0qKK5TMy5MUqDbSQJ838wz5+JLT PPfzNVe2Luzm74X5+g1Y9TMH6cbaaR0XW3qvO+9UBSjcP9z6qrqqL0aWD9eb Task4vRqqldvym+v6iik6U1Fzk/vtbXLuhk467BM0o1Jqq0ueb5mhW1kYqM4 a8u0iEaotKB/puOSI4ormKL0r7Hhh809LvwxikKHF7XPkjDRWgnqjQPLoMCQ yalnOQqMSFVs8Jjvvhnd1DYjgf+AY8hSAkYr+58r3vAhviZWBRFKghqZ8MHd MkftV+KggIg4UTUIauqLHsPx65DCEyKWUHXZFBIK6rFXYi7K+LxLqPBb33GM bWlk0Z7PutWzntpyyEFFTW/cHf8hrgXsM5Fg0VERssyiKHcyo8m/z1eOrjiw yJagxVAaRYVBGc+vBYBiryG3Cbz4qDjSQGqULM998AtxhzluHiuuZa8ZFeaH T7MtP3TpAOyUu+djW1mXBtdLErKZclFfjC4fkw66WuGskohTsVH16g2t9TAf 05uyooPL3mlXl3o5AxY2c8NFOQqmbEix1a26n9I3gPrJ3VV/21N+L2fPhjmE Izfy9oeOisssFEKy59+pjQZlcXQ5BfFEqcNLziTSJlorQr0xOVgpat/39u99 7rZVH42SnAOfDmiNfy/W6QJ1ivAUfzz2VBxa2poYI3eVUGTRgXDJtBLj6Iic O27mKGq/EvsnsDQ9toUI/RNRjbrfphtCXpo5xE5c5ZUjSMMpuWUoKRX+8lsp A8i053axae6PSqvLzya+39bysHMVQ8jNnTvdg3Qt4NrUCRYdtSDTLEpCJuDx eN7Iq91Leb2R+VKMpFF0wQrsM0XF0o2JlsUkudGitKg+0qidIde805JiCuHf +78b80pYPIHGu1fSlkwO/z/89QmMGsPF9scM6qUc8eVpF3dAtk10qepbC6Ld vc7owDrpbKhu9cZoOhMbSXnUOMVsFTcv7F+zoF8LiqsVhqc0hMXt5aTXCYrg W12zSa+Z879l7slIXbtyRl+qJkDwSMNhy35IP3zSReJd7qlfMtJ+TP5i4YxR g9vU96JdwK/1ywvTckqFmCiF6dRGo7xgaWv6PfM3bVDN8KKBqLSJ1kpRb0y4 JFiwN6Hf4+jY6rCA5kPjEg6cv+XmpAvX05LnD3sp0Pzb+uAOM7afsnwdNhtJ QWy4tAq5kdFhDZ9deOyWw5+qPLNtcJB5iBVonMUMekE3b9xqI9b2xw5+2Dye dcRIYUI1B9ki5JuZ0Xo2drKKhNTVDdi4fXJm+Uut8KOWgwYs7MO155wH7SVn 9yxAjjMeDh+8Ieceh00manrjRqFC229xPsGHRUclyDKLolBML/l/rTeOvvuk 5akLidnhVBotKzr4X2thvkHXfkqSLIafAnJ/4wRWq6d60UykUXxk3cjmlC25 X+teHybuOFvsUh+o/qfgxL6EmLGdA7zMk2qLt1bvKeQcMhafmWXrYOjQ0gfh 0LinzD/nUpYhyz3cdW9EC0Oc2DTZ23HIjlP1pvyvfMue9o+s/elpm777eGS3 ANqD6o0N+Gxr5mm3hX4Xsw9m4MV9i+eP7/2vQHuh0r/hsOXb8/5WhNos+FZX 9C/d8GDTqJHxPx67KchGS7hObfY4aArPqpGEI1QzvHYp8ca7V/YnLh7Xr0dI Ay/Mp36rbn0nx69neybIBAWpN2aMdy9umjmk5YP0kQ5q02PY9I++/H5H+k// y75AzjwraueN17sE2/L0/BsNmL/mOG2gLu8d0cCbvw2XxkEFnIBm4789SHmq q8tyt34a1dCLb4mB3NAaXvCFSckG0jqZ7PVQu21MXxFVu20UwnDDAeSUwrVt EG/M5oEy2ybzBdXVJTSTd3MnUin8xpt/fPVma5smo2/Sevx/V28+dDL34uXi iqri/LzcU0c2JXwy+RXkTMS/0RtLtuZz3WOSpjduFSrSmptvThQsOipAllkU QXDZwWzfalZHHaZtl987m/rVuI6Wwnz8fFAB59f8oZij1vNdnquInZ0YaCnS MN7NT503lD5D+jza9vXhMxZ9kZyankGcfeOmPRmbv46fO3FEZLD14/sH95m1 kufm5d4PE6x/XI91m5bjYiQYyjLI8uGmeyNZVYQL+0nXHPyIatSb6vspfeq7 /2XeBHXq/2HiDoXoNgTqUG9qN/svvjJ0cszy7388flW44ROwU5tDqkqOrpjc vYn5la8X2H3m98nvhPL0NFPN8KIp8StPX0nFt8n6hs2HxHxaOzGmpSRN79Fc j5/utZ3LrWLUOUpTbwgqrp1KWTDJ8jAwI6hjn/e/SDl1y/EaUZF3aH36qfsK mksUSvGx79/9lyVi1DdsOeDtd+cu+Txu2pj+rZ8g/jEwatyWP7icqisEQWMq p6s5DTJnyccv/K2YJR/HDH2xuZ9eXBcy8rDY3VmVmDcgfy4xL8iuRvqHx33H 0cdPkEJjuRR+XLZd2r+5+7dG37DFEHsRgxWk6Y27BitoerxAOVGw6CgcWWZR EmS7hwmU0Gi8ee6bsdaDb3wvPGLyR5/Efxwz/s2+of9n2Yb7Pd/t/a9+5CyH KgtKdY/K3ezdob1Io+L6me2fTGY+Q/o9HynMkoT2RXWr1SMWLi5+kmF1lYmS Duo8neDyvrFNBRXr+OHXvt/OAkcfvaIo8SVx7rPek227mPfFG7ZlXnCXtioH ytzqSoOQndpcUnG3iEg/xkf7Ka070ptB7LMM3fq+HOCNtX+P2jD9/q2UQWYX ApbdV92i6Ee6uiw/66fkpbGT3uz74gtP+6H20LXh07OdXuwzcNJHi5O27hFS pQSqy/L2pnwyZURU6BO2Ifdr1mHAxLnfHjwnSPWlB1JxLXv9zJFhT1qWTr+W L45eyG+r646anxfb/BJlSFC3qg1uDraUDTmGBmxUGpfMG8EKjeVT+HHMc0L8 LIsARYnZXu47/qPPkvf8ks9fp0BMb9xks6Pp8cz2NUyBRUfBSD+LklCq+4U0 MC/5I3P9fz8Y8OJzgTaDEcMDTTu9MmzGguT/nS5WsfZtBymG42P4yKTvtSFK KQrR3xEXM2Ttc9s2rPfwifMSvj909ppgsSL62LjT6v/ZNtXWL3FU+j1nP0Yu H+76vuUusHnCuLFiI5065CQ3/65K29GJi6K3umIicKc2ZuweXE/7/QRNaEq8 Gd86Q745etdu3jOeWtPJPNvo2gzcL1zavMc+0gCgcSRsUWSPzbiVVf2s0rDm +euwkD4ZLlNBHCBoobGMCr9koKY3bkQ/cistW2Eg4Gkg1je8jYs9EtSNTe1L AyAVRlPO+n/b3jt3Yov1JXWp6pMm5O5kWKoXtJTtgAFh8dCtrtCd2hiBN719 xCPKxslNFi56RcQfdhyKluUvsq58DLtMMsFDH2kA8ADOzotgGPMIjsVBUdWu rcjM3HTObnYJLcIWGsuq8EsG6YlhwCYdcqnIIOnx2m5bAygHNJuRS5N6jwfp hCjDkgSoFETVd6fVM1T1i7MmWoza9I9+sLXaxd9GG9w/gi3JgaVGrXjmVlfw Tm2MwL2nBEjgUQGI5NUges1N59ODtZBWyGHxzEcaADyC8yk9ra+2gJKveywn Vu7dS5RMxZ7YJ7mGbQIXGsuq8EsEanrjbmdXtSvG5qBJOcEvLchM36cRkxBA aaCvIW+vbI8DP5D1s81i0qeDAioF8S81GEZ95cp9jlT1qbKMsebKoR2Hr1nT X+9kRjPb8iBuySybrQMKwxO3uoJ3amOI2SPOE9ZHJCUem3TQRWKTTb3RCVhQ 5omPNAB4CLbOxZgei5qV5+qQSVCuEyW0PFo5yw45dKzDNuELjWVV+CWCPOV0 XwxFZun4ByX8Sf47cUorRTt1wCNBiqfc9b4BaNzMjEY8UjTcKxwQFlSrd70l RGtvKQ+YeXHplnTB8j8R9cZpZ20TtUOTHzb3uObrQLSMB251he/UxgxC0xCk l4TC2TvycUaSF1qASQ1Z+eCBjzQAeA7WahpJww9bEKVi+T1v+2vEuPlg04+w GTcRCo3lVfilAQm83Yl+ZJYOvW0Nruq0kKidOuCB1Bxe1tIWLUElBRsoqYbB YVtUac0FSI/RdHpNB2Y7lJx54TaxZckfZOhBV/XLC5c+7169IWMnDHtq6sY7 8K6rGY/b6orQqY0RFX8ldqmLNYvcqfncSuaSF/mTtWGDbnmeMH/f4x5pAPAo yBwSLHDyRmk29LbUCBdNHxTOhQXdiY/g+/pCVjlLYhQay6vwSwOZTuOuqqI0 PdZaH0ZNpMdND+pwb+wOAG65/+eiEFvnKSwy6bzcN6QSjKZ9o5vaxk2ylQjQ AkjPKVc7lBtH333Sy7JQUlt74ylzz75xwPbMIT5yTkMUJPlW17pv+m21HkMB BB631RWhUxsTCM0zaPo27Xc+MxeIEbjxeSbFMSF7pHrcIw0AnoYtjcS/3vIL 4h8gWVIjhG7lLCWFmdHEYsY2YUmMQmO5FX4pINNpMDyjpuu0c84Us6sHxzxO bp/bxv9K/qez67tgHBu7AwBDEHkWiqcYcydrYl3rS8s2mxHwcEjpz3mX+ZJr awe00Nk2q2j2Jq646mnbSVtRibNtV1FqzDPE6hzYJO44ZHOqHg/b6orQqY0J VaU7BgdLtNGQG+bHr0hiOV1Y5oOHPdIA4HkYTWdiI4kXXIpDT4uBiWq3Nshw BU1YV8RmFRKl0FhuhV8K0NYeeMDcMumqoxEpODm7zWP6p8M7N3KwYJ2c0Z5L Y3cAYIVN2sWgeIopf2+dQrYNktKBDdAExtPruxIPD5pCY4OQbnyfjuhALAyU nEy8+4DB7hTGcs7ieJmu/C3ldV9iJWo2LxNq/LSAp211he/UxgAiL9pDUivJ 41d34ljugkjrcyekXb+nPdIA4InYzFjEd79RvemNJVVJhz0dseUGm08gTqGx 7Aq/BKBukwTB0SvzqIesxVlb3mv3mC60a/LFqgsLLXVtthPVyuz1Pb3clKoB gCDgOqHt5Z2zW40StaSg7q8GyI4D2GM0Xlg2wAdz0HKxJHvXBxGN9IEtP8y4 +PeBRc/QNqElfy4Le8zHUd+B0n2LWpsv2Cvpd/IVNlYXpK+IMqd36kO6Lv8V pBuN4GlbXeE7tbkFz4uuwzpsVikVd1a1s0per8RcdHGGgxoaYFjYl78JdQue 9kgDgGdScWhpa/M77tt3To6YJakWAxN3lbYKhcj8NEslQ7fls/tdcQqNZVf4 JQAxvcGeahXqZ86AD+o2Ki4xJS09I3XtyjnDXgr0NoSOisssND+7ljx5HRYY Mvmb1NSkT/o9YfCLmpGtHsEKUDG2WlRcJoV0Lzcg7q/ujNwBwBlVJccWDWui x9fW9tFxyTut64IXFhg1bssf9/AdY03l0VmRdc3rb9i0r3ZuTZ7do7lZ8HcU 8dRuTrd+FOaNYT51I96pvWB6Wso3cwd2xLva+3hHxqw+XewBm1CPwdO2usJ3 anNNyfXEXo2wOuzDZpVSnDVR50jysgdNLBc0WdfTHmkA8FCMprML+xCnV67a WPPEojPrVOo5f3vL1CaEhsC6x4Q4hcYKUPhFhzS9MY/G1erC42lfzX63f7cO TX1rH9cHmrbv+sbUuE0nrlGSHMqKjn23eFTPTrU/49es3dC4tedKINgGJMFo OhETYXvXwLvYFUbT0SlWbdaA9U9RlZc6oDBKcg4kxIzp1fZpPz32cLMXekd/ uHpfTim6LBqrCw5smDGoR0gDL33DZlFjPky95OqwquJa9vrYd/u/+FygN6Zv 2CL81YHTlyUduHQP1hKN4WFbXRE6tbmg6v7ecW3wlLeFGcUeUkl8JzOa2fAi dgq6uo6SADmDHnp6wCMNAB5M+e11vRuZtYXmy0XKv7Hkn6gs98OCxRFXr//3 mGPsGxeJUmisAIVfdAr3D7eNm2uFCgAUAul+A/kkLiHzlMDxBgAAeaCpN5R+ B5pE8E5tLvj7zKzGniTdmCjqzbj9zjdTaNWw0LYVuwc/CuoNAHgKBSc+aIHn Ofj1nJQlRmdlwmLXgA3ZccP9DysKm7TVrFNSLhdpS5RCYwUo/GJT8/PiJ62f Ua1eSYDnQTafgpQSZ6CJN+JbrgEAADiEqt54eb23gUFOiZoRoVMbQFJeuPR5 9+oNUjXMIZ/fJUbT9n4Pg3oDAJ5D5Zltg4Nwsb3JxHVC7/GJ6iGdrs3A/erq sWk0nfyoe11+PSZEKTRWgMIvNqRdjzc26SAkMQAqATdE9Sf0Ul2n4ZliiOFq h0y8ETp2BQAAYMydr4chO12PyPIVvlMbYMNo2j0kiHiYnBpX1lSmDQu2RAit +6bfFvRksiRnVgNUvMGGpKqv3AEAAFZYGmIaRMh1LC/ct2bZhhOq6tRgNOau fquxjmd7UHEKjWVX+MWGtOtRq1cS4LFUHv/6JevJZfjnx6H5FAUkdsVa9th5 C7LqAACQibPru6B7Xf96yy+oKE7ihAid2gAbtnT3VosPO/yBotSYZ4jlL7BJ 3HGBz7MrLN+alQaNEi7DCgsA2seSgSOGgKM2itJi2/DLurEgRqGx7Aq/2NzM jNYTn0+dXkmAJ2PJ2TO/y41bJV327JmUSml6bAvizfbFxu8pkPt2AADwYMgw iUDn++ZnVzRvwyV4pzbARvGZWcG4TybWbVqO3cmN5YhckJ2FPeW3EiProw+z utwSAADgQ0XOT++1faw2tB63R1WpMoJSc2JN59r5N6Tr8l95D4I4hcbyKvxi g5reQO8eQH2UXPuyW30P2g4w5O752FZEIzksJGaHhx8QAAAgP5f3jmjgRW55 PebsUvBObQBB6b5Frc0PUq+k30n9pnYw01dE4Q1QBNpZ0KgqPTjdrLZZpRs4 OQIAj6O0YF/Sss2/q2zLLyDGS5kJq9efLhYmX0WUQmMZFX7xIU1v1NUnCwBs 2DYFtCjOY6mpPDItjHit/aJmZN93/xsAAABiU3JgaScDkrNgwCLidhbClA1w w1hzZetHYd4Y5lM34p245J3paSnfzB3Y0a/20fLxjoxZLdTOgqSseO8HVOlG nZE/AACAghCn0FgehV8SrE0P9VjExGw47QHUSVHGos51zKFUw+bLczz9Ob69 ZWoTc2CpD+2yOR8kWQAAlELxkbWDGyIZOBgW3H96Rr6nT9oAZyquZa+Pfbf/ i88FemP6hi3CXx04fVnSgUv3BLcwKDn708c9muuRR1e9kT8AAICyEKPQWHqF XyoKtswLq68L6tTnsyOwBgEqxiZZ6DoM2l+k1veRP8Y/tr/uQ5wJPr7kNLQs AQBAWRhvnlv/Xq8ANAnHv9GA+WuO3wQNB1AiuEA0vV8T9In18YuYuiJbtZE/ AACAAhGj0FgyhR8AANZYWtfhgVXA8KV5jn2vtE7Bydlt/CGdGwAAhVMbpMWP 7hbgRdVwZq1IP3erwv1vA4D4VJflZ+5YPIr6lPr4RkxclJ4HkT8AAAAAAAA/ EAHnqakb73hazZDFkh2kGwAA1EHF9TPbP53ev/UTaEFKQP+FOaDgAPJy9/zS fzdCH8ugjn3e/yLl1C3IEAMAAAAAABAIm4BjwMKXHCiV+3ako+Kv7UPwbnr6 4BfiDoN0AwCAejBWFf1+MHnp/FE9OzX11ek6jcmCLTIgL7ePTaznpW/4dNdB b89L+P7QBUgJAwAAAAAAEIWifav6Pe3vsEmcZrmSPgjDAqPGQKtZAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFAk /w9Hs+rD "], {{0, 121}, {1514, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{458.34062500000005`, Automatic}, ImageSizeRaw->{1514, 121}, PlotRange->{{0, 1514}, {0, 121}}], TraditionalForm]], "None", ExpressionUUID->"49d8e502-ecdb-4446-952c-3fa35bf51688"], " , FieldNumber = 15" }], "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}, {3.751405896955653*^9, 3.751405909481039*^9}, {3.751406016006668*^9, 3.751406039895808*^9}, { 3.751406152544463*^9, 3.751406160656159*^9}, {3.751406223289497*^9, 3.751406223356021*^9}, {3.751406257941279*^9, 3.751406257941745*^9}},ExpressionUUID->"dbe5eadb-ec03-455f-aeca-\ 1acdb180fe2d"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"AlgebraDDResult", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "15", "]"}], "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"AlgebraDD", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", RowBox[{"Gb", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", "==", RowBox[{ RowBox[{"Closure", "[", RowBox[{"Gb", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], " ", "-", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"I", " ", RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], "2", " ", "I", " ", RowBox[{"Cmetric", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{"Lap", "[", RowBox[{"Bh", "[", 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"}], "}"}]}], "]"}]}]}], ")"}], "//", "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}, {3.751405911629634*^9, 3.7514059731566973`*^9}, {3.7514060183847523`*^9, 3.751406018484482*^9}, { 3.751406050287119*^9, 3.751406066776762*^9}, {3.751406165585957*^9, 3.7514061842467117`*^9}, {3.751406225656797*^9, 3.751406237525901*^9}}, CellLabel-> "In[163]:=",ExpressionUUID->"94d98dac-20eb-47ff-addb-b36c553302e3"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.7514060052390747`*^9, 3.751406069920157*^9, 3.751406211974978*^9, 3.751406349343711*^9, 3.751566887570034*^9, 3.751727186207984*^9, 3.751730260649407*^9}, CellLabel-> "Out[163]=",ExpressionUUID->"bffc7ec3-2ee9-49b3-8985-bbddadb75908"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzsnQl8TFffx+9MIiUSS+ohqVqiSoUu1gdJ+iihBNWieFBbG6UotUVja9rw WtrgsZVK8xShdqIkUUsfkhYpoiUtCa1QiSXRNDSy3Xlz587MPXdmMvfeuedu M//v5/O+n/etyZ075/7vOb/zP/8lcNzUgeP1BEHMqF75vwaOjXxl+vSxHw6q U/n/vPn+jInvvh/xTp/3Z0a8GzG98ziPyv84q/J/vnuCIKj/2wAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIinISPpy 9apVKxZHTp44cULE4LCQkK7/bNdnXMp9pe8MAAAAAAAAAAAAAAAAAABAPOXF 2Ud3fP5Fwtk7j52+Rskflw7E/Sc++cKDCox3Bqib8r+3hHkT1uiJTuPTS5S+ NwAAAAAAAAAAAAAAAAAAAJGU/HlgbFsfHUEQOl3HUakPnblG6aV9wwI8aedp x5VnwYPuPpBFd69lZ2df+enUmvcam/3ntaduL1b6xgAAAAAAAAAAAAAAAAAA AERSkbailSVwuLZuVbYTlyjdP6iB+RIexOBleST++wRUTvm30fXMRjBw122l bwcAAAAAAAAAAAAAAAAAAEAsiNtTT4TPzS4XfomywrgQL4v7vN+WK+A+d0Mu RHYw2YAPEfMzpCAAAAAAAAAAAAAAAAAAAKB9im5tGdO1QU2/dqM/TMlxsv55 0amNA5+to2/43LgN3xWA69QNYc5Q9ETbUWl/K30/AAAAAAAAAAAAAAAAAAAA AKAGbiYPNWcgeIz9/C+lbwcAAAAAAAAADHSfpuDg+Cwnw4QAAAAAQCXAigYA AKBpKr5bam4eSoQn/K707QAAADgFWZ6XfvjL1atWLY2eNnHixIhR/V4OCen8 QuthizNLlL43lwP0PwAAcnD79JTGngSh07fpnnANJhwAAABAs8CKBgAAoHGy FoVB8XMAADRPyf11HTwJa6AvtgSA/gcAySj549KBuP/EJ194AIos9/y8dn6W 2dy353up+TCbAwAAABoEVjQAAACtU/73ljBvKH4OAIALUJJ/M7uSS+e/ieyn NwvU1kvTlL4v1wL0PwBIBpXZEWA6B+y48qxbe9CL/ojr28h4CurZOqg5PaX7 9p56FuoMAgAAANoCVjQAAAAX4E5qhB6KnwMA4FLc/2Kkyb3rRUSeLlX6dlwI 0P8AIB0VpfsHNYDcGYqiW5sHt9QZhyFkcXLBo4Kjs8JqGsclMGJtdrHStwcA AAAAPIEVDQAAwCWA4ucAALgepyY8Y5zVdESTkD33lb4blwH0PwBISllhXIiX xX3eb8sVN3Wflz3837RgwjTVpBRUmP7jydmmCeeZGTvuu3VoPgAAAKARYEUD AAUhy/PSds8f2iuovqe+YfPw8XO3/XRX2BWK889sXzl1EH2FliEDhn+y+wyU WHRbuIufk+W5J7ZFUian923e6c25azIKqtzP5Z/8akKvl/y9iIAXQkZ8vCn9 DqsuLvngxvG4pWN7d2nmQzhpvQAAAJw8zI5uCgGcuAH9DwDSU3Rq48Bn6+gb Pjduw3cF7vlCWWYV7yd6Lk9hDYLln9BZCCsFGUlUE+oViyMnT5w4IWJwWEhI 13+26zMuBc5hAQAAAKHAigYAClJWdGbJyKYeRMeImISDKTsi+9c0uj0nHsnl eYGSzCOzQhvp/Z4e/OGnCYkpu1d+0NUbIsfcmIqynX19TVGaz/VP+dP638k7 v3w5NtjnycD+0xdVmlzi+jldauh8/v3ZjXI7Fys6EdulOhE89T97dm+d2tHP qrVc/slNw1vUIcy2lxi/fPhzdYj6/nP+d0fiHwkAgJtxeWs3c1pNs0+Ogfsc A4rqf0Bhyouzj+74/IuEs3egVywgMSSZtWZkPWp3U23E9kt2am9VTjjz+jXw oCacvvE/Yy7OxbQEQtETncanl+D9JgArOOYo6NsLAABmYEUDAEW5ER/RpAby 9uUdH2X0fOo6jkp9yP3nxp5Eet+wiOQcs7ogDcfGNaPDyXrG/QxOBrfjQcbM uqYoTf2Ilfnsfyy9dOjdNnX8wyfs+bWQto2iX7+PeaUeUc1ePeHiP2LbE0FR B2jnScmRaGNZGJOzPT9lSddqROCQeSdyzbZXnH9u2Ujfyjk8dHIG7MgBAMAH U/zcg5hwrEjp29E+yup/FUKW5f98MiH244lvdAusqdN1GX/WhVexkj8PjG3r oxOgNgFluHdmcl1Pou5TIUPeWbD6q+NX7mpvf1w51Wx8u4mu6qlG0Mecu4Wi u9eys7Ov/HRqzXvm8ob62lO3Q5CResExR0HfXgAAMAMrGsCP/GPrBj7rpwmf GHXQvPaTCQN7t2tSh7anWs3bvtx/yNRPVieeu/6Q/9r5B+XHDggbvfuahL+Z zNzZR090WJ7K6OH7qRH0fXsTC86Vcfz9b0dH1/ewbfKVvai76SiqT9Q1lckF sCWpIX9Y0dJ8GBm8/if0n4xKkpWYQB3f6Ewf7rL+Z6tL/bV3er3GHbfdMh/C mA53CKI28Unc6q56do7D47s76SK61Ad0q7Il/I0AALgXpOHw8ABTWk3D9gl5 St+P1lGB/lcPlWv9/k9nD2r7tB4J5WkwaHGm9jyVfKlIW9HK8lNhvVYz+Rfm PlsHDTIL6DJozsZdF+6qXkOboWMteM0hlgmnbkDkKUnSGMu/ja5nHsmBu25L 8RUAFjDMUdC3FwAA3MCKBnBT+eg3vdfKi1p5QlemqXkzQT64tuvD4a2qV97q E8269B4xfiLFmGHBjesgsvP1xUmZvDyfJmegjvBvvjBVmmIUFaVJIwOJ4PFn 0VP1c+teNC/1U085HO+Swp1vNCaefzUx11oQXIjsYPIzNO+fop4wPbAl6WwJ 4faaQYS9IxjKed6QCIk5mGeZ7plIdYoe8VdZFyr5M66bj++Er5jDGcvhjhGr gxt0Dif8AjZA21IAAHBRlDm3Pj25qPFcWHOoSv8rSFHmiZURfQPRRNi6DXq9 v+TAxVuuelhAg6zXeiJ8bra96m2AWigvzkk9sHRsjwaeiKF6+4ROXpKcXah2 j2BRVnQzTwEHcKYJR6o0RvP+qOr2QIA6wDBHQd9eAADwAisawIll30QwNRzU SUnmt++3f5Lw8ev30ZdpN/9iLZGVyvNEwrsv+JnX0GqtJ63nVRi86Nb6HvUI 6dyexmquYfFX0P/2e2x/k+u7QYv4W47+mooNJogR+3Ks/4Epf62mUkhgS5La koUqip+bnOdWZWx/2z/A9Et0RMMmG7LZT8Von8MTLQVgSEPm1n9ZPt/khQ1X WCsBU12hchZ/YzHsxwEAwEbGps7m6QWKn4tFZfpfEahT8ql9qeo0zLFvo8E2 DbJdlqJbW8Z0bVDTr93oD1Ny3OMnax/quGeclRfdN3TGagf939VASfbJxLM3 BRxIkRU3ju84IYVZMg5VPdF2VNrf+L8BwAaOOQr69gIAgBdY0QBHIA7PBqNi Vd2JMvfcrJZe+qDuq36s2jNZdGuzpbgEQfgOXczrFxmvLJHbk3KVB7Dz0B/f W9fZ/CK8HpPjwANJFaaubv9EHil/7TH287/s/LHsgC0ZpLUlBnvFz/NPbhzY 2F4PuIrSM0tGtKpujKX/NttqLbi9ZjDxD9YhTuGWdyybttD1F603bPd/XjHg RR9v2I8DAIAZKH6OFxXpfyUo+GHLmBasmhiBg+Z8o/5QXgCoVKAZh2aFNkJr DXFIVsDCzeSh5oVELfsjAAAAAHACWNHUR35SdDtjoKmu09Dj+SreVVSUHn0n iPB/avlFrnOX26enNGbiNoIWJvHpRlKasbW3pzHgtnmX+Cx8m0fqzKiGVTU2 Mn3dS+bbs4pLZ0MaLm7qRBATjhbY+Tek/HV4giqKaIAt0UhlSyiW+j+m4ucV N/Z+FOxtz3nuGCqOvTbRY2Ym4mE5M62N8cI6oknInvu47xwAAHeGLM9LT/p8 3pRBPTo18yFqNX+pX8Scjf8znutB8XMAH6baNRY8iFC0rBkAiKc4/8z2lVMH 9Qqq76lv2DJkwPBPdp95gDH89WHe4Q/CajJGLFN5QK1T8d1Sc6s1teyPAAAA AMAJYEVTGyVpa7vqaEnGw5eoKOSFTV0Iok3MMT67n9sb33rCojf96q66ykvO 3tszo6lRoOrtFRt3mrzvdyVfKUT/i9k/SRD1G234zeEXlf+dd+MPu8W3mfLX 6iiFBLaEIpEtWWCiNL2J+Uev7prWt4GP7+B1wvMWK0rPrJm28PBV5hYf58a2 pY8MoP4wAAA4Kcn6Lua1F30qVwq/wP7TFyUcTE7aGR9Z+V+8n+i5PPlBIRQ/ BzBxPXmYF8HgIfxwGQAcUpJ5hIoP93t68IefJiSm7F75QVdjgX1Wv3XxlD08 OZvtQn82dM9tFQeoqICsRWGq2h8BAAAAgHPAiqYubp4c/5QnvbMIW/ejyqNy Li8MNd5q9Wa9/738qHUNCmuYTAeKDivTeWnNskdHJ7Sj/8Q3PDLjEY77tuX+ 2ckmKazXD12W69x7gJa/DhpyQqJb5Q/YkhWS2hITpVn5K2rW8vEkGjR/L/Eq ng0VUywd6g8DAIAJksze9mGX6sYpsftbideRxJyyovOLBnl7ECNmTGsFkw8g HrppO+Jy9Pn3ZzegVQeAD6rXTIDeNywi2VLsiDQcG9eMlsE9437GOX09vhsX Vg+xZ8J/2g4oblUl5X9vCfM2ncNCqVgAcEClMPt6YY8niR7xV5W+FcUoOxT1 hO/TI6ByPqBOYEVTFYwe08LOgjEeo8e4Sftttx1+vuT+ug6WshsexGuf3OQ5 K967MDPQ9IcdFh3jU6xDKHQ/UJqBuxz/jKqxV/5aMcCW7CKdLRVZojRZ+Dbv NHjShxuPZdpNWODJ3/tm1DBfcGxyIfcfAICyuL3+14D4R1pj+PZ8L9W2uldJ 4ZY+iIMIip8DYkBOgY02RyxIhy0HgI/fjo6u7+Hbe+pZdh3S7EXdTZtc3Okz JSeWPIeaNGfuqjtzJzXCVDUeSsUCQNWYclt0+jbddueoVj5Kz/1L0R2fJDyq tZ60XtWN2wD3BFY09UAaLi/ub/Ih+jVYfkn1vaIe58W+iGpHYsJxjns+PMzS NEpYhPZfBz9sQv+dDzHxSK7YO7eionT/oAamuxJR3xUtfm4sf60cYEtVI5Ut ZWzqbL6hoHkHMk4eToj9eGJvY1UE2lvQvt9qZ5tMMcXPG7CaigKAGgH9b9CA +L8RH9GEru7VpHX8b/YfU/GhqHqWaRYmH0AEaAtsypnZaXx6idL3BLgMJYU7 32hM2CvNdyGyg2kGa94/Be8BoE3UhPPhN64OlIoFAG4Y8dw94Zrqd+5Sk3t+ Xjs/Anv1LQAQDaxo6qE0/YtXzK62DstTNbGxODXhGUY48gi9YPk8BUnZsocH htGZvzpduyHH/xR542xuWIqB6GtN+MrpUySm+Lk3seBcGc47FAjYkiOksSWm +LkXEXnaXH6GLMtP/2Zqez/Tffo3jUkX/n1o8fOQyRc18TgBtwX0vwUVi39z awwqqrzflitVzrZ5x0dZHJ4w+QAiMIcB03jq3413o+hzsjwvbff8oXRHy+bh 4+du++mu0vfkUtA5pCP25Vj/A1NWUYIjG9Kwf2At1H/eZf3PWL/AdeAuFUuW 557YFkm9I3rf5p3enLsmowCC+XnzuPDyN/ELxg/tHvS0HjHIgOc79xs1ecHK TbuPf5/9wKEeEz9HSd231+Uxi2eiYYtVmRoRz39djxvStqZ3rdAFu/K4nnVR 5vH41av+e5KrQCsKlVXkqU4VrXYq3+hzR7cumztuYO92Teowk0Ldxu279Rk5 Ozru8Jk7Ki/sq2JgRVMLxbfXB5udbEH9Ux4ofT88yT33cWgjarH2azBuxyWO F5FVo0NPdJ/5i5CiIuTFrZbdV9DCJIyVNxjPpwcxNsnZsito8fPn+qfg9fAL AmyJCyls6eiYp0xj3iRkz332v1kK0Vfeao+ZmUIXLCTtPWDeIVCjilBS4szG u7TksXutl6D/rVCn+H9wJbq1l2lGCh5/1sEMiKTVKDD5gP6XgPyTX03o9ZK/ FxHwQsiIjzel32G9p+SDG8fjlo7t3aWZD4HX02vlP/d8f5vIIAOy6O61bFxk 5Th2LomhrOjMkpFNPYiOETEJB1N2RPavSUiTSokVzQxvJcV/xLavToTPzbbV gUhZRSmSrJFADnX5z8nSklLR4gPLRSi49kfknV++HBvs8yTdwDolcf2cLjW0 UHlSHRSd3/P+PxuhbnP7OGgvJXqOkqlvrwtDkldXDPY2Dvu4gzbngGrl99j+ pvc6MOygY2/DzeOj6DqkfgEbhITrWgICn5mx4z5sgPlQXpy17z9j2XOCvmHL rp1f8PdiTQn6pm0nrt2f/ZcG9qmwogF2ub3xrSdMCxzuHjfS8/B2dt4jHrfM SnXU1566XdiiShpOT+9g+muMlTMf31vX2exJeP7NE0gYM3knMzGZ9+m5aoqf gy1xg92WHmZHNzUP+uBleTa/wJxBbEc5kPeupv58y4ETqOxQVHXzT4XsYBl4 ePPyqV2bP5s3Y3h4t/ZNWbtjynH36oCJH3267buLBVzeH6o+hp6YesptYnZB /9tDheKfWSMIInT9RQcTLlpzY3iijMsa6H9pLlJ0IrZLdSJ46n/27N46taMf wc4TyT+5aXiLOoTZB5IYv3z4c3WI+v5z/udk5TEUtv8cQy/a0n0zCOwYj2ZG TItatSMlMx+Py5daCGpUG7HdHBVgyunQ6TqOSpWinQ8mtDK8lJ67uKkTQUw4 WmDn35CyilIkWZtr65lQj/8cx+PzIHpHXceyZjncH5VeOvRumzr+4RP2/FpI zwlFv34f80o9ohqSywlUgUlg+DUaPHft7uM//HLpx+OH9sXFzO7Xoo69Z2q/ 3KXIOUrOvr3YPGAq496eGU2NT0iiLm+SUFYYF2L2n3Bl9zCRir7E8l+FPcLc /77zpNGWwtb9CDOCY0p+/2FJ7xaUcqbOy0Ys2Lg99aerqF+lJP9Wxrc7l00a 2MrcVk0f1H3l9zdVPrCwogF2yEuNqGFZ2rQTMCwQMn3dSxYr9rKvdTnI3v+6 WQNgO8e5vLWb+aYCZu9DBT3lV2nC5VExo5bi52BLPMFrS1d3vWq+ndZL0+x8 m8V1UFu3Kpv1T5cXhhIdHQkPxvde12dVloqEo4vp2Ie/nU9c98nYbi18ueN4 KHzb9l6wq8rzNcpP5aG6RyYpoP+rQl3iv+DSXHMPZc5KWeayWrIWPwf9XzXi 9D8VpksERR2ge9qWHIk21m80rYD5KUu6ViMCh8w7kWvWQcX555aN9K18NUIn Z4h2dlr5z8V7GiVx8KJ4+7UbMU1k728yc2cfPbuM3v3UCNP1FS705xhNDK+J 8r/zbvxh9zpMWcWqkqzFgd2qcaH8bIPgYH9kdL2yopTNjTnUNZ4qhZrSvYgm L2y4YjNBF+ef+W9M+NOe7GdqR+eInaMk7ttLpURtXTt/9ICQ55DSNB5PNOvY ffD4mYu/3HP2phaOzx1CP4JKfMMjM3g381Kem5bit1wF2dB4XSENy0yUPTw8 JoiaFerWWXBGwfR+tWOcTo0Zr2/MSDjnKDCvkpKs7z7u2cL0Tvkgx2eqBFY0 wJari3panq7jYDANQxpOvRfErOCOc8aroqI0aWSg6RrOeU1toLyXNL5EzEVE J1Bx6TXsxhLbRSXFz8GW+ILVlpgoTQ9iwjE7pdiZBqBWMa6UmT3hqOq+EP+e 1LimjqWqPu76eOQr/lb7DO96z4cPmfrRkg3bDiR/90Nmdnb2lZ9Sj6Ts/mLl gvHD2tUzfTpwyNy0fOsfTV45/O8Gnm5VMhr0vyPUJP4Lv55kzmfhKifFpNXI Z8mg/x0iSv9TNaIbd9x2yzxfWYrb1yY+iVvdVc/OtX98d+fglibVb3Ps6wTY PY1MgRHjzJy4ec38IZ19bcesdsORK7Yf+/Gyo/IiF75PSfomYc3iyLHM3G4h IOztuHQOU7QPLTOsJMq5dS+aH6aas5M0MLyciHTa8EC1/nNW+Z2sX88eT07e //X66CrCkr19Q96O+ix+Z1JyUurFLObJ3bqPxUCr2h9Rs31DIiTmYJ7l8TNx fRQ94q/i+H6XhW7w7WCvRz64tityYFMP84DatjsROUdJ2rf3Ye7Rz6aF/MN6 xrBjve/M5VQLwii6eSBqTNsnPQmPakFvRadjL/zE+q7fV9A1V+tWj7mgpa4g 5d9Gm/vLc2X3iM/Qzzk+mioqpNO1HZB8T3sbTRkwiWefasO/PM23ckJxwdFZ YTXpJ6NuCQ0rGmDN9eRhpnzkylUm7KCChT8khQn3peJApn7npLsSCTzW2692 KAjUOcn2JJAXNnUhiOEH+JXLUEnxc7AlIWC0JSZKs2H7hDybf2aqtdt4P4zp D46q7jP+PeFlajCilI6VVMTS/ZJee9FHh/wED4/Wb0xcdTDNca8l8sGNpOX0 gNg0yrx/Kboj3YDAberVg/7nRCXiv6J0/6AGFmPnqKEhe+cF0P+suRSv/i/5 M66bjy96VmsJMjRiFUCIvhpCC5baRQ5PY9mjnQMaECyENyp9XJh5ZJv1uuDt FTZv8y9FAt9c4/oeFn8F/W9MwSgZczrwoLbh5UT6soqq9Z9Xye3TUxqzhZwH 0Tf+ZwmnzSr2RyZXw+KUAnSqZxadSjndZEO2Wwgop6F81DyKBBb9mrp1WdTE KTM+O3TBOk1D3BwlXd9eYw0Es5Du3H/a0o27U/6XcfVa5pkTSbu+WvTBmOAG bDP29g2dtSETyxxS8uf+4S3R+anN0lSpRBtpOP9RT1rAtIk5plr1YhcmOZoz uwfppNN+5Y/OfZ0pkVNNtRBVBN3VyAkN/Pjeln6NTM9GBRE+goEVzV1BA4at 6oe4DtQJdSPLzxSV3c+UK8cRgo7sH1llNypKj74TJKD+CaLS+YesYwdsSRi4 bAmN0rTbyZSZbK2bplHpD60cmVnFd0sbm3+sUsXPFdOxUorYklsZm97twbpx b5/QyUuSswv5f0VJ1v9mdTDWELaE36BBmzKXjFYK0P/8UIX4R2MhqkiWsfD3 vhk15LRk0P8E82jw63+jnwR5jqQhc+u/TN+ns60AwFQrqnw53lgsNlZBLk8j Exck7m2lTldPJbz7gh96Kd/ubyVeFyCsKDdUAPtIHW2483pMjtaaSalqeLm/ RPqyitrzn9v0PMWSXeIIe6cY+Sc3Dmxs42owUJuvM0tGtKpOBHR5ffG3vPt0 uyv0oxybXOj0FUTNUZL17aWLiVFzQvvXPvvWfoknKojlk5FN2eUWa4UM2X1N 7BxSkbaiFeuqGLpdV4W5P44GC66i8YdtR6U5PEZl5ISXiBLQdLUiQlTgnGtC Gs5FUbUUWFWY+IPEXuq6jEqVNNtCAmBFc0eYatU29UNcCIvfgMDRjPve5rfN Tk/RGxCkDeWE48yaW3Iqti1BDNrJN+IKVel2y1/LAdiScPDYElL8vKooTbOb ji3DjCGpjl2OWYvCTJdWqJK2gjpWKhFLktlfL+zxJOKw8vAMGj73oBDPOUPu +XntKCeAz4D5mQ9LT881h8JqMbzQKUD/80V58c92mdpNlkFgqk7JYMmg/1Ek 0P+31wwm/sF6jmhzWDsVAO7/vGLAiz7efu1Gf5iSg8GrKY+n0bZIjqgvKrq5 f1J3H+ZiOn2bVzdk3OX1t9T0Yl0DEG3dYhXzqQlUNLw8kKGsohb955kLQ5Bb 5tE4WySWYiCmU4yKG3s/Cva252oABEIvHM73YhY1R0nVt9fScj1w7PKMAo5f ZtmhIHMIOyFUOLazXIeV6ZLsvh7fjQszpnnh7rIqB0xyNFd2D2k4PDzANNs0 Cdlz3/nvfJgcbbQrZwu3uip0Vr7HE83ad+3573c3pgtu+I6GX4b8J11bbl5Y 0dyQ2xvfesL0ELgqkWoWy1JI4HB4UvxhLtpJUI7iBekiygVYWoQjJ/im4v/v xvH3pjIqXczRqjjAlpwBhy3xidIkL27tTj8aSycdY3A10Tx0z+2qRRNT+EWZ 4ufK6lhJRKzNhp3wD/pgr01OqyBo350H0XXAgEBLnUk3KX4O+l8Iiot/pCgH l30+zo1t6ymfJYP+Rycl7PqfyoGqbSUMmPMRcVtanmjSf15JWdGZJejpsIB1 Le/7XclXWKGh5jHnbt2rTlQ1vBzIUlZRi/5z9j2LKE/ND+bo2ZuYf/Tqrml9 G/j4Dl73HbgaxGP0n4sKXRA1R0nRt/fehZnG/ub8t3h2th6hY07ZtCXiDzt0 R8Kae3T1G00Gn7ArvHFk9zCRih7Ea5/cFPPiW6JQXLjFm3CYRn60OQUG7xGq oNEyI1qzRljR3A5kHiCkO99Ulpsnxz9l3IN76DpOj8fg8DRYV3D1n7ZD1Iti vkPfsEkJh77ZGjOxQ037PQGrvh9EpcuyD7UD2JJz4LAl89TtcM0iyayNb1Mt mH1qvrn86+R9CfN6tdD5N1+Y6nCRYyrDKFGQR2kdi13EmsutMPj3ez8ZR2gl cnrF4A7Fz0H/C0Np8Y+4v7iyqhk5ra8zay9zmExW3Dh1IO0W5tkI9D/r52PX /xWlZ9ZMW3j4KmNy6PmI5VRXSrTqPzdQ/X9PzrYkFhnXtTbdducIH7L7Zyeb rqLXD12Wq8HlQdXDa4X0xc8N4D/nhDl6rnwONWv5eBINmr+XeNUFdyhKYMps 9RCQLs0BljnK6b69FWUnp7Sj1H6nocf5bxxIw+XF/b3Z81KzyH3OG3XZw1OL qZILBL70KzsorQZFwhQ/5MzuQXK0nc+VMMNsOlr1OnhXc8MmAYijwIQTCYxM tB6FtpLjYEVzN9AkKaI2sTxTg2LaMebKBoTPk/1WHsF4NFP49aTqzJsitlEm eeeXhAXj+7Z/1te7XuuwwXO2HM0TFLumguLnYEtOI96WyKxv3+/0dO1WXaft dVi2l+pWuevj0a93bFKHqNswZPTM3b9yFQwhDRdiR7byrdFs0KxUEdEUzqAG HYtVxJpaE1rwqNZ60no8pzCVPPp9SZB1c1XXL34O+l84yor/skNR1fn9EPRw gdV5wRi0j7mJPOh/eeNnKJDmsOK3tHzQsP/cYN14pRLf8MgM/n4hI+Z33+ad 0g5qHl4rZCh+bgD/OSdIkUzW823eafCkDzces18SEOCJuQaXTtduyHEcGRZ4 5ihnj67IC5u6EE4VuCu4NDeQrcBFJqdLDyMFnYgWUBym+CF3uhxTKY6r5w4v irKim5metYR9XTUEuxG8064MJAtSY81ZYEVzN5gkKZfM9C+6tb5HPbo8wrTE y5iTqZm8e3GrPA7UUPwcbMl51GRL6sHFdKx1YLwH/kplf6wdzFrB3aD4Oeh/ Z1BS/JsKltI4dvUwWprdeYH2q2MuJgz6X3b/OVp2TEz7Of5o239uQDLgzAQt TBJQhIlJduNuPaBa1Du8NshQ/NygkP/8r8OLw4JDEIL7jZm+fN+ZB/wkjdOz DdXpZuW8EX1eRr875OUOMaerflBI3+2geQcyTh5OiP14Yu8XfcyVGH3b91v9 o+bUg2pATvYxdG/HNEc5eXRFGk69F+R03DtbgVeirzXhK/U2Qin5M66b6bhf bBK9IiDFDznjBk9NeMZkVJi2ReZifdrLNJQEK4+uBxG6Ms0JJxCyuMu9gYUV DRAA2+Dlif+Rj6Jbmwe31FFpmD3jf3GqK59jWJFmEuZm8kH54udgS2JQky2p BdfSsTZVZYhnZuy4j/2MGInndM1jLCtA/zuLkuKfCQxz6Oq5fXpKY3NxD3bn Beqs9vk3T+B93qD/5dT/RmRtDmtE8/5zdvtyirrVYy7wPhq+YZlw1O3YcYh6 h9cKWYqfGxTyn1dcPvTB690CaxJW8Cy159xsQ15JGvNMHatv1DdsHj5myu5r VR5P2O+7TZblp38ztb2f6Qb8m8akS/aEXJvH99Z1NpfuFPO+0GCao5w8uqJL x3gQY5Oc2oSh3axou1LxMSVTnVLK0z3pQPMTOeIGpeikc3lrN/O39034DccV tU3+kdjwxtTkrG/aduKXzhXiZkXXEPImUMOKBvCn4ruljS0PDEtKi3owOTwJ 356TjudKVbP599j+qlglGSeSHr9XgR9gSyJRiy2pBxfSsdZlWyptaehibGVb UBiVSOHyxc9B/zuPguKfaZmtrz11u/33wDzrmlYU9HCBqlOkl6IXA+h/1oQp pf6nkLk5rBEX8J9bNZqhRi98bja/NAdm2+X0wqoCVDu81shVVlHB+i0lty6u G2iZqE3wKZfnzGxjaRRuwUPX8YMNmUUcI3t0zFOmb7FtDsVkHOitWhsD/EH2 L3pd9ykXRFQ9wjNHOXt0ZZRkIiqysgu40ai0iCIiw6ziE7QCU/zQg5h6yuEP QCKLsG2LmGcNUwcurPWz/KGYsKIBfEC6ZbmWy8689Q4c+fHZgirtMDthwYSP /+t4h+cYltNY4lWSzLv4eUTfQB/PoBELrPqKlqbGWgqPK1UBGGxJQ7akCVxH xzJhtKYXRHwTUgeYF1Y3sCLQ/2JQVPyTF7d2p7/a7oEvPev6PBvaiS5HzGoz WnIkurGH8uWYqgD0Py/9TyHFlpYLV/CfGwz3Nr+NengJL2Lc4VzuP2PCRK3f O/JOZmIy3zwFxVHp8NogW1lFheufF/2+IpjVEp1P/yMnZpviQ1HsuYZfHALT 2ML+KQazCvsFbGA3wCTvXU39+RZ4ILhhZT4SHRYdc7LqEa45ytni5zdi+zE/ o26DXtM+c7DvswtjTmZUGseSlxphrp6myYRxtPghl88B7bnD2hY9zE1NPpbj bCwTk+PgS8Rc1F4AjxphzSQKtfODFQ1wDCtSUU/0ibqmxileOPTWW8/VmI86 nq4j9t28kxqhtxh+1aF04ikv3v8m09iI1TeN2cDq9f8af0aRjFywJQ3ZkkZw ER1rKpuPLpDE7DQJk6rMi7gbFD8H/W8Qpf+VFP8keXXFYG/CTpmUooxDs0Ib 6f1bzUm59teJJc/Ra4olPplStk96j1qdp9olBvQ/P2tETVq2lh+u4T+3ya7i dwSGpJxYpW9Q4aNNOPovqAeVDq8NspVVVLx/KNrwkYZzRRY825CGw8MD2HMN v1NUpDq33VMM5k5sGkZTcUEdNXk0LzcVpUkjA5FHU23aCaeq72Kao5zu24vG n9CWWVOg2Hi0YxL7CgppAC4Kv55UXZbZSSqY4ofc+WtVeRTFdtJBzFWTexDV YRV/oie6z/xFiRZCsKIBjmCfF6v0hFQoJocnj8Z8xmKnYn814wAxvultR6VJ FBOXx9LzzGaTNFxe3N+bflubvLDhilTVRTgAW9KQLWkEV9CxpOH8Rz2tqimI 7EfGiflXu37xc9D/BpH6X1nxX1Z0ZsnIpnrqvewYEZNwMCVx89r5I1/x9yT8 wyfs+dXYZqKi9PTcsJrGdzd45ucH9ybM69VC16Z7wjWFVjpuQP/zXbcYk2Y3 h5UUF/GfMy32zHgTs3/gGHkmSdDqvIyK+ayhTiePXdQ5vDYXQSpI2CZZY0Vx /7mp2h4673GtaIJnG6v+FLwPNTj7bjNdGKxaeFPvxRPabRMgM0wxPdMD/ee2 G4K3RLjmKKf79h4eZlWLTHAgis3s5EH0jrquti0x2qRVytYM0oEUP/QgXvvk poMRZjbX1pmqlAhpKeLnM5HAWs2BVRlW+lmOLvb2gRUNqJq/982ogTw52eJ/ JKTs4eExQbqaniM2n3/ItVrRx9OsQG6nMBuqEem2gQVnJ1v66vaeepa2/uKC o1H9GnhQr4m+zasbMu5K8tU8AFvSki1pBBfQsSWnYtuyf4Ku3ZDjEitVy692 kWOsqgD9b0SU/leB+C/KPLEhanzf9s/66olazV/qFzFn47FM1pRLluee2BY5 tFdQfU+qqvb4OYnXVes8N4D+5xumW7VJS4qL+M/RKsHmwefYFqEDzn5M5IVN XQhi+AHNyDY1Dq8tchU/N6jBf25dLo87o0rwbIME3dHwPPNl+m7bvSXmzm30 ofF8WbttAuSmpHBLH9aZrc+A+ZmC1mpcc5SIvr02+w47MZyOQZva2LcrNcCk 2Airb6MekPxijp/wMDnanIzAqgRoTJyvJtKdyGzbeaT4AdycW/eioHVBImBF A6qGVdzAh4j5WeMvftnDk7PDvOs3n7jnEscGrvzvvGtZB8a3q1yiOUrO8sBK ZkvlOrYEsvrVH7d6X3LSNwmxH4/p3Igq+FG3Xr95Gy8KLG2BF7AlLdmSRtC8 jn1wJbq1l9X3D9r5O/cfisPiW3Dx4ueg/w0Y9D+If/yA/ucDknwhZ7Eyl/Gf s82Mfl4Oe4XcT40wf5SV81tRevSdICKof4pGircY1Dm8NshW/NygBv+5VfgH QcUPL//V0WQgdLax6hBE8FTI6Bmx3VQgxtfq6fn+NjRSmYqFbqWl90JxSkz1 1hiEpVvimqNEHF1Zm7Hwfl6Kx+3wAd0cCapvoxas8rUdZPkx7RQp2q/8kfkn HO5ENM05LP6KmEu5PmRpSSnH28h+fZTTz7CiAVXBmnwkzy6UHKPD06pOAjc2 pfWdABXJhKQxn+XFWQc3TBvUu10Tyq8Y8HznnkPfWbhp14W7SgfjgS1pzpa0 gNZ1bNanr7Hbl+qJ3jMvS/+yGn+16xc/B/1PIVr/g/gXBuh/BCf1v83fynlS 7Dr+8zyrGt1UGaupJ6t2ViHJAhOOM+sQnSQlw8EuRtQ4vDbIVvzcoA7/udU9 WJkZ1+e5Zxvbh+74+iaQM76qFLX5IJvtbcg5Prom0SbmmAYLwymHTQi6sHY/ mOYoMUdXZObOPnrWLxDaC9VO3UhB+46KkhLpe9EwwRuaL35onD38W8XftKdt cs/Pa/ek/tmQrub2cejceD6yo+iDY9KQufVf5get0Uge6Si5c/XY1jULxg/t +RKVYWohoF2vkZExu87ZaWTJrJv81gXpgBUNsA9SD0TzlXKdc3hWmnfQkBOP RH+7VbMwx2n4LgnYEtiSBCisY0WK2OvJw7ysv1yetCnjIq7x15AHoP8NGPQ/ iH8OQP87wEn9byRrUZjpb+StVOY6/vPHebEvWn2Jw/h/0nBsXDP6Y2OTC033 eWnfsAAi8N24HCVK9DuNGofXipI/47rR5+d64vk3T0g8A6jBf84UZZVmtmHP q3zrWqO1JavKyCMvbu1OP6k+UddofVjy5/7hLYnmoXtuu3URRQE8Lrz8Tfz8 0QPa/MOT9ZgIna7LqFSeCXKY5iiRR1cFZ3d/PHpAaHBIyKsDPvjySJ7AC2Qu DGGPgL7OrL2c915yK2PrgnfDAk1Zt77NO4z4eFP6HWkCboR0rhfKw+tndy2L GtHzJX/LDqhuw5Bh7y3fe+qOUzrdbsyCTXIxERix1qpxecHZPe93eNLYLqfs 6uKe9McsTWlLM7b29iRC118U+4Yzhz7QtswMWZ6XtutjYzMj09A0fLb7kLET p89dvvKzBVPfM5mHh2fQ8A9TclhGzo76UFI/w4oG2APdNRPKbJzJsoKcbCFk 5TywZ7r2OvTxA5N/kskUU/hlVwiwJbAlqZBfx+IRsaTh9PQOVl9NBI8/K2nf UDP0Iu7iyQug/3HpfxD/dgH9L5n+p2Bqy8hdeN91/OekYf/AWuwv4dIh5kwW 37BJCYe+2RozsUNNInDI3LR8jW2pVDK8ZN7FzyP6Bvp4Bo1YYDWGpamxL5n/ DIOLhgsrq1agGbTw0zShs431aSC/an7mv9IRgcF77lTxIZLM2vh2Ex1B+NR8 c/nXyfuMXar9my9MreoPAITi/LNxC8KbmDXzi+Fv/rMRwabD8lS+c7z4OUrG vr12sC6bRhGewBE5n39sTXjlr/Z4olnYm5GLPp1vEh46vUSt0pnkGpyRNuSd X7a+39fYkc0+vh3e2CiwTRvtCbTNMEVrxj7Tuo2vMYQvoMfYmLidScnmTvRe Hm3GxqTmGQew6NbmwS11VKRK0LQvExPjlw182sM3PDJDfNgb+sS5Uvzcgcpt y/zXXvShgyq9a4a+9/Gus9dtu8iRD24k/d/bQV5sI7d+fZTsygorGmAXtmHw Oh4Vy+PCzG93Lps+ul/XF/ytIjP541Gt9ZQvWcfQ9qJE+IHpV1vdgMASzS4A 2BLYkhoRrmOxidg/bFK/ZdlE05T8celY8qGMe67sPgf9j03/g/i3AfS/Ean0 PwVTwpE5D5KHo2OeQm9Zw/5zpo2UgEdWOcUlLDC26/Wu1zps8JwtR4WeSqsB VQxvefH+Nxk/Iat9/OO7cWH06ahe/6/xZ8R0p+MH+020rnoqD+qcbcisb9/v 9HTtVl2n7XXYzIg+MB39escmdajj8tEzd/9aCGshB2R57tENw1uYPOcBPUav Okr1/qZ7fbIebtOO227xHU6xc5SMfXvtYCv+6zfa8Jujm8hPWdK1GqEP6r7y +5umH1pRmjQykB46AdH7vEHq27D76Ygg/+TGgU9ZpR7YUilfhTjx6HHwJRak swM70PiZBi3ib5bnpSd9Pm/KoB6dmvkQ1A6uY/c3Z9ikBxbnn/lq6djeXSo/ Q0VGxWz+pQiPcaAhEy7edsoxD/OS5g1qat5A1QoZHn+RY7tU8MPmYQ2rERYj Z8UQEsqm4cOKBthFznQ/apu5fFqIdVaXs+AoNI0Xq0aH/FOYXQOwJYy4uS3h RKCOxShif4/tz/7iqqtzAE4B+h+j/gfxzwD6HzV16fznpOFC7MhWvjWaDZqV Kmfws01Qsab957b1edzkzF0Vw8sukM7U8CcNlxf396bfoCYvbLgih4Sz8p/r 342XP5HI9qE4DleQb7YBpKC44Fi0ea308R287rsCyzLHKGeGDivT5Zno5ezb a0vh15Oqs3633nvcRgeiylim0k6Izv0vRlougb0xDZqYhiFXhSSzvvqgvXWw UlXoiIYtVmXymhWNBzG6mqNW51kpKDR+xlKhQjnQRDz5TU4llPz+fXRoI1ON Qw8i+MNt1/h1hc9PjHqOoOtyW1UzIJQ6C6aBFQ2wi1VkhVS7ZrLixoFPwxti 8nZSyFFLUChWXbpYgShuANgSRtzcljAiSMfiFLGPfl8SZGWlUFkaM6D/MQLi nwb0v+vrfyTunX7KU09JkhugmINXo80gBKKK4UX6/vj2nnqWPj4rLjga1c+Y wVQpJ17dIDBZyWnKDkUhakeZ7idCH4rQ2YZdjg9/3TZAAKZsOKKqiIKSE0ue Y9mCfHlYcvbttcZe+1Tr2AmU4tvrg58k6tZZcMa6xeqN2H7mS+DfPqDJj+L3 mLkJk6zaiJuo27RN0zp2/8VnwHxuBU2fwtQgZv9gPYBo83FFalVZgUx9ypxd Ko6xSYF52+tBhCxOKRDQMNf4oI3VSGxLDirSy4MGVjTADjaVDSQJcy26uX9S dx+7s6dzeFRv1m3AZz+oroCPGmoPKgbYElbc2pYwIkjHYhWxZPq6lwhrmOA0 AAeg/zEC4t8A+t+Iy+t/9uRc+QPDDkpzrqmYg9c9ctZUMbyWdjl+9cet3pec 9E1C7MdjOhsP4OrW6zdv48UCGed1Vut5gqhNLM+U+VCWNFzc1EnK2Yadm+kq 7YHyf4mLfG+iSli4OoNPLh+X85yC6Z9rhn93DDHI27fXCpvCNUSzyH0ObuH2 xreeIIighUm2nZGQSCoPonfUdaxvM/oqiVwvStLWdtUxv9f3xR7TYuNP/HS9 wHJwUf53Xua55E1Lx/zTHJxg/E2DdnLkfhsHU0+Ez822KY3KNB/3IqaelKWt lCPQqQ//w1I/LPFcac9RBwSIZyO0MAtPyE19j10zTbIIBz43BSsaYAerMstS VD3NPfdxKDJbVuIX2H/6ooTD/8u49gdVSvTxnzmXziX/d+W7XdCP6YgmreN/ 09jsw94yKxlvpgBgS1hxa1vChyAdi1fEXl4Yyv5mDbiVNAfof3y4u/g3gP43 4+L6v+zhgWGsqgL+03ZIdL/yOHhtv0X8fKgJ1DK85cVZBzdMG9S7nbF5YsDz nXsOfWfhpl0X7sr+CGwqZgRM2pIv80xu5cPn6gokbLZhmkKaLk50n/mL5J2W JMeujSkI9+zBOM8JwqfayD1Xq9rv/bV3ulWHdNsuMM6hnr69LEoKd76BNk7V 6doOSL5X9S0UZUU3q2a/Mvzj3Ni2FkGCW5Whe3YfIuZnEZe+d2FmoOk+9c+F zt9x6o6DeP+yoowv53SpYfo4ETo5w4Gt0RNaNWLC0QLrf2Ji9iQ8ARcGM/Wp XgXhxko884ossoVKDNR7DY6cwcq/V3rvDCsaYItViU7sWbe55+e182Ou7+0V FvVF+p0qXqrigqOzwmoityPdpkYi2BJIiZYlCgK2hBW3tiVcCNKxeEXs43vr Olt1tNUTr8fkwLKIEdD/eHFj8W8A/Y/g2vqfnWaiI54N3XNbqsVVLQ5eFwWG 1w7Xk4eh0sOHmHgkV9YbsGn94Lg1ibDZpjhnSUsBF9cK5KWv+/hiLEopCv0z beIca9yK0tNzmR3WMzN23Hfw8ftnJ6ObMVyPTE19e1H+OvhhE+bH6gj/pjHp 1gmtrM8bzxeazT9sR3Je3tqNuRTurED0PRWzYa8oOzmlHX2ZwJEfn+WXbsPI LS972tiMg+ATw53UCHOVPbUUxryfGmF57m4VLvXg6pJOFv+MqJBFKhjDLyCg BmtCUlhSwooG2MK87BK870W31veox1zcP2ha4mWOGmRlDw+PCWJiALnaVauN 8m+jkXN2NwvhA1vCilvbEiYE6VjMIvZm8lDCGneuKS0JoP/x4rbi3wD6n4XL 6n+y4sbej4K9kJ8mqAuwcORx8D7aMclmtVGxgxcfMLx2oXugy2bk1ljXcuQo wy5stsmzbgfffuWPEvwGwBF0pw/T82rV6+BdDsnEbueEqSy/mvr2Mtz/ee5z yPGVT7UR2y852quWP9rZv15VdZZ+j+1P2P2NeG4V0XtNQvbcd/IyJadi2xqv EhixNptfpxia0vQvXqG26FV3pHIQfMIufoi9s6qToH1V1N8FBhdlj45OaIca qpiMD7vV0hQubgkrGmALKyoJa8gZ64USot+u7OyNGJJaZkVeWGVJy9cnRRWA LeHEvW0JC4J0LG4Ri0o7Ex7EhGNuFtErNaD/8eKe4t8A+t8a19T/xQXHogc1 9UBGIfClmDRp/YqqKNDtusDwVkX+kc961EXimX18B685kidXE0V28TqO01hB sw35wwrWYZ179MlVF3fOTEZahHDWr6uk+FBUPd6PmC9q6ttrAonEoAcndGUa x76N2jjriR4zM22tmJXEqqP7quAES76hucOU79DFgsQzze+r3/R2MD9k73+9 quATtPihAl0eqgBNiZWnzr8KeJgcjczJOiKof8oD569mt1u30sUtYUUDrLDy 0eH0ebIyZL2IwZsdnsCisHKBVRzIZAcJx1P1gC3hxZ1tCQdCdSxuEXt7zSC2 AtARDVrE33L+B6mXsqLLiV+tXvWf5fM+oDpPjRkaFhoS0qndy0uSJPcvgP7H i1uKfwPofxtcTf+TFTeSPh/7AlL/zcMzaPiHKTmST1GKOXjd4/2F4XVASdZ3 Ma+96IM09fAPfy/h3C0ZXk7r+AGHE6Cg2YatrNRR98ytIA2np1uatuuJ4PFn +axsUoRXqapvr5F7e2Y0ZZYYXs3H/943o0YVx+vsJtf6WhO+wrqBRfeYzj+R irQVrSr/3G7dSz4U/xHbntpe2Y1KOh/ZsdLEhh+wH7Bk7rrCVUFRTtht4FR+ xoqHgktzA1mFp9osTRXz4tmstqqY5GFFA9hI5qPLOT4aKXdWP2LTHSG+gcyF IczqrKWwW3f2eYIt4cWdbQkDQnUsdhF7IbIDwUJPtB2VhrN2oUogDZlb/0XY QfqAW9D/uHFD8W8A/W8HF9L/xVmH/xvJ9iIG9Bi96mjmQ1kOrBRy8LrucS0b GF4OqMamn0/ojDa81rUbPVdyL3pR5tz6rCFzoAcEzDY2eTS4nYoAF1RIAAPf vDmWPeDbzqinb2/lXJSxtTfSJYmP87yS/H0fBj3XfP0vdg7jKPVoAf8RPA79 TBqOjWtGiMvXK/x6UnW7BQzzUiNqODqgyd2zMLieLqBL/89+kLE4lWPcT0Lf 3vjWE+hELzoWyHbvrIpJHlY0gIU0PrqK0qPvWOpOO+OXuBHbD/86Kwfu7PME W8KLO9uSWJzQsdhFrNk1SjD38donN1UQYowfsqwgJ7uSrPNpn4Y3sgyU9DGo oP9x437i3wD63x4upP+fZjyHdRv0HD834fR1eTznNPI4eG2WG1c9rrUGhpcX ZHne9weWTRrYytKUwaN6s/Cxyw5deCTZIffVRT1ZI1Z1+IqA2caqD7LDziOA FCB6WEhFEZa0cMXtTO75ee3M+U28neeOKMiY2QB5fTqMSnuE507NoPrZ2f4s lKgQfWJO6WQd8Vz/FHZzKnoCEaPMFYDdS931JfSj35cEocEnosMUrZvRU2/T 2CRVBGTAisYH8krSmGes9JLc+HbotydHapUviY/O2C6NocPyVKEvExLOpLV1 9uquV3GPp0YAW8KN+9qSOPDqWGdFrM2O29Pz/W1qz/cWCWnYP7CWyVxFVCMX 8H2g//HibuLfAPrf/iddSP8b78q7TsfxMal5SgQlyuDgtT7CINTSj1h6YHgF UXHzxxWDXjKfKEmsKtmByg5iD/jPNtYzmN2Ce4B03D87mUkHFnJUWlYYF+LF 5xFrkqJb63uY67tjcZ5bV4wXmxNnD1Q/exC9o647cc/GEvTNIveJeph0EEsN dkUsaueltlw2XqBbP5eX0CVHoq36fInNO7YO81CTDcCKxgNbSaYI0r96Vj5P Z6dQ9iXpcD4jTibFI7antXWW6WenwZsXBdgSbtzXlkSAW8c6LWJt/Ofy9dQr SN+/YfdJ8QJeMIzy8SAGL8uT3GsM+h8/biX+DaD/XV//M/asb9hi+Pw1iRfl qP9sQQ4HL9r210zw+p8wf4sqgeHlBVmWf/HYhllj2j7JnBUGdPv3J7vPPJBO J5CGS9FhyJjpao5anWfv6/jONmjbSuP0NWJfjmR3D9jBmGpnRtC5MOsQytlo B3VS8uf+4S1NWdI+niM2n8eQ31RRun8QE7gjTX8cHPoZE4Vb3qm8ifAEphHt vc1ve1VuuGKOqUtN8MCNJDTLRWOak8VWGcrY1Jm91AbM3qeWQYQVjQfuGn+O IyfxRvJQ5Ff4T9vhhF/i6JinzBfQmtvQfWOGwZZw47625CzYdawIEWvrP5ci r9wOVDxtNUWsBS0U33ppmgxfCPofO24k/g2g/91B/xdeTrSq/+wZNGymPF0U DfI4eG+ylJLQpUrTwPByQJbnpe2ej9b/l9P+H1yJbu3FjJsPMfFIru2neM02 pOFcFKsDclVzFyAVVhFNDjtQW8Oq36LV9A07lD08OTvMFJLvU23E9kt4XivW 5ldPvB6Tg/+4gZ2/qWRBKrqJkr7OrL2mX0k3FfKru+qq1t5wVp6Fq0to21gR 0XnH978YyVpqfYmYi2rK24YVDTCBv+YGy/id24qW3F/XwbIj0xMhky9Cz0cN ALaEF3e2JaeQQseKELG2/vPhiXLsGIxObIn0NgdMrSQ5ip8bQP/jx63EvwH0 v9vo//LirMS1w1sic7KHR5uxclR0kcHBW/5tdD3WN6gwC0AqYHgdQN755ct3 ezRADrhqdR28/vubct57SdrarkzrXp2u7YDke9b5PXxmm4fHlrRFPqN//tXE XM3URXMRWMulwBzD4pwlLZnnJ31zeVkgyasrBnvTRuvfak5KNq4364+1g9EZ p2/Cb5gujIKjfxAuHmTMrMu0iKpIW9GK0HuP26i9QxY3aiFE73pQROcdWxc/ VGYn6xhY0QAjuH10Vilaz795womr5R0fhbyPmjqndmefJ9gSXtzZloQjjY4V I2IzF4YQbOSIPycNp6d3EHqreGCUj2wFK0D/48aNxL8B9D/94mhG/5PleemH v1y9atXS6GkTJ06MGNXv5ZCQzi+0HrY4k9+xOPkg58Dsfg08kMcT1H3Vj9K2 7pXBwWvTr1ZTPRfEAcNbFfknNw58CnGde3v1/GRPTrECd3LvYHR7pEOz7+CP Lhexxo9ztim9tG8Yk+dSqfGaL0xVR8dtt4KVEivQB84qRylTMIm0kGTWxreb 6CQwyMf31nVGa8VLJKdR/aO0fqZC3bxMMTAVpUkjA4lqamukwg93ktC2i6/Y vGN2zQH1NdMxASsagN9Hx8pzFNJbBKHiu6VoPVJNlRl0Z58n2BJe3NmWBCKR jhUnYq3DUOXxn9ONLBWpt4wUP5froAr0P27cSfwbQP+b0Yb+Z2WTWRB45MEs FjLdueQOXusGuE52itEoahzesqLLiV+tXvWf5fM+mFjJmKFhoSEhndq9vCRJ tvk0P2VJ12rIXWOsLIHjfnx7TjqeywyG49nG6iBAH/hSTBq4GhTAaj8lzAd+ bh2jLPwCNvzO/Rcqx2zSOn2bVzdk3MV4ZbQQIuFs5VJeMIcaSutnKmO3LhEY dvABLaL0ROjkDC3KT1RC19atylb6fqSEPW9TjE0uFHNBdsSangifm62y4BML sKIBeGssWy2vaDFY/lxeiGQEe7M7sqkdmxrgncana6ZgiGjAlnDi3rYkBIl0 rEgRS/6wAklXpQiYd0jq2gZ0Lz9lam4jZZ/lO6gC/Y8XdxL/BtD/WtP/Jfk3 syu5dP6byH6WeuaCjzxIMmvNSKQih7SR81I7eG0b4AYtTBJXwV9LqG94bbNa TMhWs4L8df8b3sgXexGDNyvpPKcpOr/33ef9mEnjueCYpEy6Q01Vsw35ICdx 4YhWTMdKwr/f+8k5mltW+ZH/S1zkexNVwsLVGTYRS6x3zZdY/qsAc6YbxNBP XivljxxgzuGq3HR0T7jGzyArHmelJief/uUR17Cdj+yIvrxiG7I4ANXPDVrE 35Lqe/hApfnUojTn77H9CY3k+NiBSkQ1PztFJLSMp7fW+lnkuRhd9BKxfHUG n1iAFc3dYSVViZ1CWSGXPkTMz8LdRayYT+35DNlOM4Vb2skN2BJW3NqWeCOd jhUrYlEdZXyCkkdlX08e5qVY8CHzwsp5UAX6Hy+Ki395Af2vUf3PzDbOtVoo Kdz5RiP0yUt35iitg5dOdUGflDsFnxvUObxkWUEOdc6TdT7t03CzmcnUE8T2 non6EZvuqEQ6FuefXDkt5B/M0VtAt+ELNh3cPbULe5B7bTx+NH7Bu12R0u2+ Qd0it5+6o3G/qwNsLVlZbLPPkDsU3CjkzLQ2litrvfi5OfdKyKajkoKzk3VM ib+qP5Yxs4FlqCTet6opXoKSHL7EqktGEeXfKv6mNm0E3ZLQ4TSyIuvprbVK DBpy4pHzV2MfVau4mQ4KrGjuDDWlI89Z3BSKvE1O9uEiL2xCza7N0lRtzaFs CSS6mKq2AFvCilvbEj8k1LHiRazt1lucuuCg7OHhMUE6PdEz7mcFzIQ0HB4e YPqZz/VP+VOu7wX9jxeFxb/cgP7XqP4/NeEZMdrAYOpQgPxAyWpeSergLT2z Fn1OlTIhbN2PbrUhU/Xwkob9A2uJNFTB/LZ/AHrPtYnlmeqahsgHN5LXfzK2 WwtfPcGNd932Q99bvtf1/Qzkpa/7+NrWp1IG/TNt4mzidVj+c0Hpfg+zo5ua /1R9BimM3HOzWnoJ3nSYHJuenu9vcxxcUnwoCu1W3GFluq2OrDjzRdcmRMx5 0a8E2mXMg5h6SskIM0qM6Yj3/29pkBY7B1lg0vAVitmT8fSWrZ/Fxfg9vhsX ZjF8HdGwxapMfi/XX9fjhrSt6V0rdMEuTr1dlHk8fvWq/57E1ueXBlY0N4Vd 71RoTpYVyNvk5NSBFNzQZCANW8xzr5UuBdgSVtzalvggpY7FImKtLiJpYPa9 PTOaEoTPgPk8RQcLqjFf0ufzpgzq0amZD1Gr+Uv9IuZs/B+iMcpKShwrE5vi 55WK4njc0gkDewXV9yS867XuMWDayq1n7+COUwX9jxfFxb+8gP6n0Zj+Z7wx Io6VmSnLiGThwRI6eFkmR+Hk/K9lVD28yLIoW/wDe0D0RMjki2qdxh/evHxq 1+bP5s0c8U9WMghRu2m/iCkLVm7affz7HM5qF4BcIKYlzK6QWoiqrmnGzf1L 0R39hG86KOjR45idKkr3D2ICdwi/uquu2tEEVDC/J54F6+iYpyzfpmxT19tr BlXewzPNmmmyc5AZJG2cR66BtLci+ektUpRJ7Br3197p9ZArha5M4zm70Nm+ vAJ+bh4fVYN+raTqvwArmnuB+h+MiGkZhuxGndqK3j87uSZzJ8pU8RWHVT64 1vPUhAG2hBW3tiVOJNWxuESsdesxImD2PincG6UZW3t7CnHZIZRkfRfz2os+ usqfGdh/+qKEg8lJO+MjK/+L9xM9l6cUlD48tXhEq+qV49xtd07VLyFa/Hzt xRuJn4Y39NQ3bDE86tOEROqCs3u10FN1ktsvSMHs+gP9jxEViX9ZAP1vhTb0 /+Wt3cQvi8zu0kSP+Kt4b5NGKgcvabi8uD+ityr3yC9suOJm3nN1Dy/aQkVs Y2LesHWjNuIuOLsVAyoAbckk7BkxsUwexKCdmm0dWnRr8+CWOqc2HQa6vh/n ppjVf1xPvB6TY3vWQJ3K6Ynn3zyB4x25EdsP88zpLOaZHNtPUwT0jKnOrL1K nhTJcHqL7PtExZ/cuzAzkNkpCzinLiuMC/EymQ1XwA9T9E9cbCcfYEVzE1D/ AyHOBYFMxR4eYz+3aT/Cwe2Nbz1hsbdWvQ7eVXqbJpzMhSHoYDrX9VK7gC1h xM1tyRFS61h8IhaxQ0KqPAg6Dt+HGHcwR9gfkmT2tg+7GEsZ+3Z/K/E6MiBl RecXDfL2IEbMiWzP43VGyhF79BjwagMvouP7qzMKkF/66O7OoS2p8k51AyJP 4Ww1CPofIyoS//IA+r8K1Kz/mXHwICYcc/62Dg+rg66wEs0eEjl46YQjBt9q 007I0cJVEGTR3WvZWTkPJPTqq3l46RNV47IoV/Fzm7gLGbqWi0fNsw3AwJTo FPKMirKim3ma1rjg8Wc12tuYLpBoK5X5/rlxoedauFltvwgiLP6K7Wcqvlva GF8oTtmhKHMzE4XP2ixKXtOhYuh+RKITeZ7IcXrLihBzNtepouzklHbI5P/P bTd4L1k3LVt1T/278X87/JadfX1NXyFpJVUjsKK5CVZyS4z4LP822hyCJXwr mpcaUcN8E17EiH0CfUHqwGpHJiYAW4uALWHEzW2pSqTXsThFbPHt9cF+6NWa Re7DuZDmnp/X7klB8a4mSDJr49tNjLsh357vpebbjEZJ4ZY+SPa6gx6+TPFz +pPVhn95+oHNZ839CHS6dkOO4yuQDvofI+oR/zIB+r8K1Kv/0VYLDdsn5Dl/ JbSlnUi54gD8Dl6y4sbej4KRRrWVU+6I7ZfUlWFXRicuGW/P2zd0Bvs4FR/q HV70hZWsur4tGEW4bKh3tgFQ0MRM3me4TGaWZvdilbPZydlhNauSyny4srM3 Z4oZM2MYqd9ow28230Uajo1rRtQgZv/gSCwIgCnZJ65+nWhMk4CUVS5lgIkh lPHM1C7ynN5eXdSTmbed0mOso2qB4VWIm4grwvBBxsy6JjunS4xKCqxoboJV uTxRUWfMZlDgVpS1AyWembHjvvpjJmxhYsmMKN3PTn7AlrDh9rZkHxl0LG4R ayyugrwWPsTEI7nO3LntlS8dercN5TwPWZxSINDIb8RHGJ3nOqJJ6/jf7P8x Ur/dYVdQtJKwA09+cc4Sc3GQvgm/CbtdB4D+x4d6xL9sgP63i3r1PzPb6Ik+ UddEvO/yeBoxO3jLis4sGdkULVPv12DcDpU5zw2GrE9f82b/6voRm+5IMDmr d3hteoLIA/jPAelAy5TxSokt+m1JO3ojo/P592c3tJjSRpJZa0bWo9Jde315 Jiubk0s/Hk9G2L99Q+ySqd1b6Dl3sqwOYlXkvWbvfx1vDXlmmlL4vTNOAhpv u1Nyf10HT9NgijvcF4tsp7eWooJGhO7s8lOWdK1m/mPh59R0Lrnxb6uO76JB Uk3br/xR0E06Aaxo7sK5dUjXR3FKjzmeFjZ75CZMamx5h7TbAonVkcotXxmw JVyALdkij46VQMSiNkk9Tf+nll8UFz1Cxcgt7uHnSfj4Dl73nVDneUna2q50 Hq4H0W/LlSrPIfKOjzK/y44K6CHKxLGTxJxSgbUcH+h/XKhH/MsJ6H97qFf/ I+MgMtFDHk8jEwYm+vEVnN0zM7QR6tzVP9d5+Q+qK9uCNHhF8CUWpGOKmURQ 7/CiPUHW/+TkRYSjRf+5Va4lhIuol+I/YtubC47xEMC/r37T27SCCEnLUhNs 9S4GrkqkrK2HvdWNjg3zwNpeB40Xkr4unAPoSUC7yZsUzI5J7OG+WGQ8vTW/ 44TQAk35Rz7rUdccW+ZEkhda/LDtqDSH4gIpMSpHaBCsaO7C/dQI5jGL3f6X nFjynPlaPLei6A7U+bBSNXATLZvsFv3XrAFbwgXYkg0y6VgpRCxSLMX0bgS+ FJPm5Ma85FbGprHBvpQfvtUcJ9pxPrgS3dqsOhyrHcQD4KCAHqpMpp50JJ7M ogKrOw70Py7UI/7lBfS/LarV/7iKnxvk8TSWPdo5oAFrJDkL9djyuDDzyLb5 dJdnZBFrMzYmNQ9TfABZnpee9Pm8KYN6dGrmQ9Rq/lK/iDkb/4csLmUlJfwn BJYOdLiYikTFw8sYqrwZSdrznxdcmhvIarMuf5fJol9Tty6bO27gq11bPU01 Om/YMmTAiAVfHsj+S6uLuXSUnIpta16JHNdjKU3/4hX6ncKXdCkzrPNx0XBM gOV/bwljsnZsw/sfJke3JHQ1R63Ow6rN0CPIgbtu47w0f2gtpOXkzUrIH1a0 5PmspUbO09vHd3cObmlZPDtEJ3EHdJU/vhz3QXuTsVfuZIOmJV4WLGoZJwnX GQFa9K9JyJ77Qr9JILCiuQ9M1BkO6yop3PlGI+OleG1F0eXJv/90DTs8DVbR 19po3IMZsCVcgC2xkU/HSiRiSTJr03utWFVV/fr9347sIgFWSj64kbR8Wsg/ qFfMP3y8M+Xf2S1NQ9dfdPD1hVveMX3OocvOXPSD631HB9YvYAM+NQH6Hwsq Ev8yA/rfCmX1vwNfLr7i5wYJPI3GdplGrvyUeiQlcfPayAFsryxN7YYjV3yd nHbeQQ5V1oXvU5K+SVizOHLssHb1PK0u4Nv21cVJmQ8xaYKSrO9iaO+xX2D/ 6YsSDiYn7YyPrPwv3k/0XJ5SUEpXMtfp23TbncPvKx/nxra1vmfx9bW0NLyo oToofSYBqvWfM4+PegC/nj2enLz/6/XRs/u1qEPY4u0b8nbUZ/E7k5KTUi8i T/LWfbzZXUUZBxf0N1qRR/Vm4W/HxFV+I2Va80e+4u+p1vwOZWGiQSon4ecX n7lr91Oll/YNCzC+WSrszsAP69KLouFUp7/H9q/qw8bxrCZFGD8q/BTbad5J jdDL0dhFUjAe7mO7E3m2JFQfLj/Lbw+es/mXqje2RZePLEJOq2uFDNuWWejE dgMtfshxRoBE42OMRYQVDTBY9VHizCPm5PbpKY1Nq05Q1IEqt6LF+Sf/z1xp 0EPXcXp8drGor1WcRzsmCVorXRKwJSyALaHIrGOlE7EFP2wZw15bfdv2nRN3 4HKBQ094+d+5545tiHq3awNPas/SoOXbG4/kObchQT1jdku7I5ya8Izxcw5d dkyqPldVFjSpH2s4K+h/LKhH/CsA6H916H+HvtzkB4XYip8bJPA02tbixgy1 IRqz8pszd3B5o0gye9uHXYxdPq37cZcVnV80yNuDGDEnsr35+4cn8k0Ez/3v O09a373Y6VFLw2uTPk8+uHE8bumEgb2C6nsS3vVa9xgwbeXWs3fwlxdUrf8c x+PD2uIE2TXog7qv/P6m1WPP/25deB0d8WzonttudJjMC9SF3qD5xP+eZL0y 5cVZez8Nb+jp/MmyOrBOwhIJn8SxexdmmvV5wOx9ptmBLM9NXh3+lCfh33xh qgS+L7SliHMt1EVj7LWkcAMjsaBnpjI2jOa4E7lOb8k7v37+77YWVaxv2nbi /23cfep81rXfCkrKCnKysy78sGvDsml9kCNvv0ZvLt+b46yvhil+yHlGwDTJ whkaBCsaYJDAWWdsbGfcjdrNgnxceDnx8wmdTZUGqWCPo8KrEKgP5nWupK7P qix3NFGwJSyALaHIrWOlFLHkg5zEhSNaVWffkned9m+MilyyJiExOYUOnKOK t6fs/mLlgsmjwwLNP98vsP/ctWI23YVfTzJ/s57oMTPTwTDwdIwjysRBjReK 3/YPMH2wcs/VIv6W0z/CBtD/4lGP+FcI0P9Ogc/m+fhyZ0xrhW8ctOE/967X +uU+I6ZFrdr+TfpNrMm3SFUx+8XuSgq39KnH3ImgcIiyotOrp/Vsaly56vr3 /HB7wnttRJbt0tLwounzay/eSKTcifqGLYZHfVq5xCftjJ/dqwWVVR3YfoET FdgcAv5zXhTd2mzOOaqq0mNR5oll/anP8GqU6X4UnNk+5Z+mnZe+YavB70xZ sPw/MTPHD2r7NP0f/cMn7PnVmZNllYB138FX9DJx+8YD6+WfRI14uYWvXtrA USbsjSuoRsob8PR8f5tWszcNaId3fa0JXzkqdO8ALIXUlDq9pQ7OYgfZjb5g o2/YcvjHm9LF3ABT/FBHBIYdfODos0wmNdbQIFjRAApkd0ZgCuEj7/zy5bs9 GtBeKMo7NHraR8tWfhI18d8D2vzD5JvyfbHHB59/4/T2U12wyj5ouYucSMCW xAO2xEZ+HSu1iC3549L+ZWb3Ag98XwzDIHiYnrwUHA4oxt3t6JM8a7wYWNG2 +OO0Qf+LBYv4N6PV4nug/wWDSf8L9eXiGAfVehrl4UZ8hCmCtEnr+N/sP0Lj sSBhslKnItlKHuTThVCo0X5GNV1oJQbpVuDRY8CrDbyIju+vzihArPrR3Z1D jbvdugGRp3C6xdzcqnnx4Ersv2jHr04fOuaUPVcD0m1Hy8u61JQXZx/duWz6 6PA2T1sa7/o27zR48oL/nvwFV4Epd6PkVsbWD8cENzbpEN9WL49bLE5scFHx 3VJLbykFkp3N/l6OCBx1w4yhBzE2yZkAFGyF1JQ7vaUwzgkr55qOABjqNm7/ 6oCJH32WcOT7nEeiNwJI8UOOxGc0kxpv4JZ6gBVNQVjlCnH2DqP20f83a/DL L/hbCv96PNGsS5+RkYsS/nexwJUeIeN/oMaw9tTtruHKFQzYknjAllSAHCK2 vDjn7LcJsdFT/z3g5Zee9bXsQGjbbh/cb9TkhRu2n7p8C89OBLUrLgfU3/tm 1DB/dmxyYVUfY5QJVznirEVhlu/G3hEe9L9IxIt/Glcovgf6X3YE+3JxjIM7 expL0tZ21Zmsr9+WK1VaH9NTmNtKHXN4WF2cbaPVDJPLY8Sn2vAvTz+wMWry wqYuRmPWtRtyHF+KvTtbNS9K/tw/nI7TqxQtLVZl2lN0j35fEsRUDHSvbiCA G2ITsSwnZPq6l4zfzb8+mAoxpxPqiKD+KQ7DIeyAtZCagqe3soEWP+TYdjEu KcXSk6UFVjSlQcpWy9KgyuVAa/BqfSEQCdiSSMCWAAkgDZlb/2V5Mbnc3ea3 2KGriukXzHVSxu7Kir8jPOh/cYgS/zRQfE8IoP8tCPfl4hkH9/U0PrgS3drL NJKOO7MjkWyiDgcrynb2rU20HZX2t/PX0AzMYkSZdOjKNPumWpyzxKzz+ib8 huvL3deq+fH76je9zY8mbN2P9sMv0UgDX2JBujtYLeDWXF4YynNrgB1Twynx 7dIUBJnzm80/LCyoG28hNUVPb2WDKX7oQUw95VALIpnUirXHkhJY0RQHjd/j 1ecCYHN7zSDz8CmwAKkKsCWRgC0BUoC47LgcUDxddgVnJ5tqQevrzNpb7uC7 mWhbgqhNLM/Er2JA/zuPGPFvugIU3xMG6H8TTvlysYyD23oab2986wnzrw5d f9HBaRb/8lwcUN00xEawawbEUOtHbLpTtaWaC9PhHBm3tWo+kJk7++jNEsjB bEOSWZvnhDWt7duq67S9l2ADA7g+V3b2Nk8aGI/zuDGF1nBXsVMzJUeiGzu7 u8FcSE3R01uZQIsfcm33yg5FWbqNsQKcHuamJh/TeslfWNFUAfrSQXi/UKjo Gl/LnCV/AKS6AFsSA9gSIA1IuWMPj7GfO6pxzbjs2I5xsuLGqQNpt8wJYvdT I/jt05G+pbqao1bnSeEEBP3vLGLEPwUU3xMK6H8zzvhyMSV6uKmnseDSXHN3 bM5uEUzhIJGJhMa2OG4iBZH0eWLqSQcHQhb/uQ5jZRs3tWo+VJQmjQy0jIzj 2QYA3Avm7dAT4XOzHUXDYOUPOq3Mg3jtk5saDQ5ghk7w7gZ/ITVFT29lggnH 4k5FZCJV/AI2IJE7dDjZgnNa3ovAiqYakLIbeqLHzEw4ouDPndQIpHaxAgV4 VQbYkvOALQHSgDriHLsy0OISLAs06pYe8VdN/y/iP59wvOrK8OWPdvY3X0+6 3DHQ/84hQvxTQPE9JwD9T+OcLxdTEXj39DQiR5lc2owKGiewbLFplzLG1rdq 5uiYp0yG6vjQAa1pxn61xeCeVs0L5oRdR/i3ir/p7qsQAKCYa3rIWuHBstfQ sCzM3v86PW7exOwfhIybBIXUlD29lQdkf8q17WIiVfREp/HpiNKmdHVLZ1qi qwhY0VRDRdqKVhbVJU2KvavCSq4JDN6jyYYMOAFbchqwJUAaSMPFTZ34basz F4YQZiG9/FdmUbZ22T3Oi33R9EEH/nNGlhPEMzN23JdsMgD97wxOi38jUHzP CUD/0zjly8VWBN4dPY0VpfsHNbD8ZI4pCykcJGpyK/kzrltNonnYQXdIpeN/ 6MB8slIk61Zl4/l+d7RqfpjKrNFzyOsxObKdsAOAJkDCWf2n7ZDHpWoJDxib XCjLF+Ln6qKe9E/weWOxoLgdKQqpKXt6Kw9MSAlXhv7D5GhzlRp2zjVVobRa rQlfOcrCVj2woqkIdpBYWPwVpW9II5CGY+OaWcZNtnVH1YAtOQfYEiAdiBvT 0bb69ukpjT1NGixoyIlHzL9QeSXPv3nCYpRIq5oq1S8S3qxrOyD5npQ+ZtD/ wnFa/Bug+J6zgP6ncNaXi6sIvDt6GtGTLA+OgPC/982oYf6smMmNPtYMmL2v 6gwlF8JYqYaGo+MqY9LYUioM7mnVfJC6gzkAuACWaAq/uquuSh/2ZgoPwDkB yk1eagS9TAqNDJGikJrSp7dywISUGPcd3Wf+UtW25ebJ8U8xbqj2K39k/uny 1m6VqiZJyyf6sKKpDOQ4DMpu8Ob+2ck1zUbsVAifSwK25AxgS4B0MKcz+tpT t9svnIw0grQOjqUOxfRWbhBLBGlVvoL8xKjnaOHn3zQmXfpgWdD/gnBa/Bug +J6zgP6ncdaXi6X4ucEdPY2kIXPrv0w/l7vwvrkKn7jJrezhgWGBMs3GKoB/ oCCShGJ9Ti0G97NqfjC9zkU3wwUAV4U0XIoOo98SOUJQTIXsNOsiQIYrYNKW fCFLnCSF1JQ+vZUDpvgh4ahuSe75ee2e1D8b0rWRnaXwfGRHIqh/ijb7VZmA FU1tWHbTBJTd4Mtfe6ebZbC8dXdVDtiScMCWAEkhL27tTlsXGkZugXae+zwb 2onWHKyQV6rLpIeNl9UURGFfAZb+tPMNH1rkNF+YKkspItD//BEh/img+J5z gP6nUMKXy8YNPY2Iz5arDA6V4ODJ65MOoRMo3CeTjgkU5DLprEVhZtPD2Sbe Da2aF4xnifvRAID7YinKLX2pPVcpfqgjng3dc1vIL5CmkJrip7cygDbnogmM WJvNjgYrOLvn/Q5P6tp0T7hWdnWxKcHWEvpVmrG1t6f2A35gRVMf1L7M8qrO P6w5l4DcoK3xPDQeD4YbsCVhgC0BUkOSV1cM9jYaWOjKNNQpUpRxaFZoI71/ qzkp1/46seQ5K89J0e8rgp/0ttdf8uGxJW2NF+wb/zPzjpPlucmrw43Rs/qg 7qt+lLGOP+h/njgt/o1A8T3nAP1PI78v1wo39DSW7pth/rnsckC2MHt2fZ1Z e5mXm6y4cepA2i1+tVioBIpqzk0vmqTk/roOZkPtE3XNwYmkZMnXbmjVPECb v+iJtqPSILMTAKqg5FRsW+Or4jNgvt2G8LgwFbLjyj5TKXRqFUE5q0fsyxH2 t9IUUlP89FYGkOKHxDOt2/gaY7ADeoyNiduZlJySuHnt/JGv+Ht5tBkbk5pn tF1TSrWO8A+a9mViYvyygU97+IZHZmjnyMAesKKpEkv+O3UspekAJzlAWuNx NVB2Q8CWhAC2BMhBWdGZJSOb6inZ1jEiJuGgWXJ4Ev7hE/b8Wkh5OipKT88N q2mUdsEzPz+4N2FerxZGb549MU1W3Nj7UbAXQXjXDH2v8oLJSTu/XDCks2/l n3t7hUVtvFggt/ME9D83YsS/AYrvOQ/ofxq5fbk2uKGnsexQlDlnnOPIDz3l GbjrNvMPxuyJHvFXub+s6I+4vo2Iak5NLxqFSalmG6otaBIK1vRMN7RqXjBz iAfRO+o6pMMCQFWQhsuL+9NhNv22XJFKvps0pE6jraXv7ZnRlFZxM3bcFzaf SJN8p4LTW8lhih8aR+NmeV560ufzpgzq0amZT6W5PtGsY/c3Z8TsOneLFa5Z nH/mq6Vje3ep/Ixv8w4jYjb/UqT9A31Y0VQIaTgXFWp5s6DzoyNIw+npHSwm PGinpnoYywDYEn/AlgAZKco8sSFqfN/2z/rqiVrNX+oXMWfjscyH6BJMluee 2BY5tFdQfU99w+bh4+ckXnfkpyq5lbE1esqgl1/w9yL0DVuGvDZk9or4E9cL lZEpoP+5ECH+jUDxPecA/W9GVl+uPdzP04jGLHH83syFIabP+RLLf2UeDv0s Fpwr4/iqskdHJ7Sj0gUWpxS4z87ufmoEv+FFit/qatrL6nIa9HjOPayaH0WZ c+s75W0oykk6eNKNbBgAKnl8b0u/RkbvbotVEsWgmGKwNRb/bMLUm0av/9f4 M8KbuEuSfKeC01vJyTs+yjJujs8IXB5Y0dQJU7ka4mAdwsRXQ7XqKgBb4gnY EgBgBPS/A8SJfwoovuccoP9NOOXLreuzKku4L7cKrPznrPasrgqSNu5ozG+f ntLY0/R2s4ujUrFwdntnWPHXpblN3Mx5bmD5zyccr3rRQSv14S4ydnhYHfCf 2wFpnk50Gp/OswaUMfeHaNx+223uzwKAS5F7blZL6qzft/fUs86pRMfQGtKD GH5Aa2+XZXPRvEt8ljObC0mS71Rweis1Fd8tbWz+jZqsmYkRWNHUyu2Nbz1h PtmAUFj7oAHD0hfa1S5gS9yALQEAdkD/20W0+Ifie04D+p9BsC/XepvA15db BWz/uafn+9ucdMRrCGTPVXvq9mK7nzHVCzKLttc+uWnZXz/6fUmQ3lKHH7Dm cV7si9z+c6RSn7PpP1Ve2rB/YC3wn9ulIm1FK3pQ6jfa8Bv31Es+uB5X+SLU rDZi+yVIrwLckNJL+4YFUItv08lbcHtZ6RomOl27Icf/xHtliSEN5z/qWZOq p9d8YaqTfZ0kSb5Twemt1DBl272IqSfdPRwTVjSVQnWL86PPp3RdRqVK4XzQ OkzAMG4N7GKALXECtgQAEgD63xoc4p8Ciu85Beh/Bid8uYOX5Vl2CaJ9ufe/ GIk4Gt0lHYC8uLU7/XvtHj3QA+7zbGinRvSYo9FxJUeiG3tobMctK6Th8PAA 2p6qbPRWUZo0MtCkh9sOSL6H9QyNyek2MTxRY6lRElJRevSdIHoyaRNzzJED gSzPO5Xw7gtPEg2aT9wDrgbAfSn9aecbVGU5CZKJHucd27Ri2zkRKlR+SDJr 49tNdCL1szSF1BQ/vZUapmy7Jmtm4gdWNLVSmv7FK+Z9S8h/0mHAWSAamGjV 6+Bdt44j4wRsyRFgSwAgGaD/GfCIfyNQfM8JQP+zUdiXe3lrN9TV6Fd31VU3 sEuSvLpiMN0bInRlGpr1W5RxaFZoI71/qzkp1/46seQ5+tFYaq5SgRBPemsq 3Vt+LKnxrZem2f1AfmLUc/QM4N80Jh3zyWuJ6amZ4ReW5kY8uLK2dwt95cj4 VBGDV16ck3pg6dgeDdB26gDgxpiiUKSQ0FojPym6nfjgE4M0hdQUP72Vmjup EXrTpkN7NTMlAlY0dWIKVDO+uU1ax//m3vMmm4fJ0S3p99iHmHgkV+nbUT1g S1UDtgQAkgL6nwab+DdA8T2nAP1vhbK+XGYvSaPz+fdnN9yh80hZ0ZklI5vq qWHvGBGTcDAlcfPa+SNf8Ud3WBWlp+eG1TQ+muCZnx/cmzCvVwtdm+4J16B2 i0MKLs0NpFpLED1mZtrsZk2HubgmYSse340Lq4fas7Zq28pE0c39H/Rt4EEd x7V+473lWw8kV/LN3vjVny0YPyy4MVU9PqDHmGX7zjyAoQMAIyWZ377f/snK LeqEI9oJF8FNxblNXStn9qDuq37EqZ8xFlJT9vRWatDih2HxV5S+HdUAK5o6 Kbq1vkc999pZ8OHBlejWXvRbHBR1wJ0dMgIAW7IL2BIASA/of5zin74gFN8T COh/Oyjry/3t6Oj6nozH0Z2O2IoyT2yIGt+3/bO+eqJW85f6RczZeCzzIfrb yfLcE9sih/YKqu+pb9g8fPycxOvgPOfm4bElbY221Df+Z2aiqxzM5NXhVNdm nJMwQ9nDk7ON74jZeQ6RKg4o+jV167K5I/r8qzX9+tdt3D60++DxMxfHbT91 9S7P02AAcCMe5h6LX7H7Z405XTFCXk/dsHHrxQI8AbySJN8peHorPUzxw9rE 8kxY2ljAiqZGLPsLKzXotlSU/jAzmH6JfcMjMx5x/wVgAmzJCrAlAJAN99b/ eMU/BRTfEwjo/6pQ0JdbdCK2iwcStOtBhMYczHNbGwXEQ1bc2PtRsBdBeNcM fS8m4WBy0s4vFwzp7FtpXd5eYVEbcU7CNMUFR2exnefa9JAAAAC4BdIk3ylz eisLh4fVoSP2idDJGXCSD2iB/JQlXasZJVnDFqsy3d1q7+2Z0dQoUPVtuu3O gS2wMMCWUMCWAADQMFB8Twig/9VJwQ+bhzVEotAJInDQ7JQceEKA85Tcytga PWXQyy/4exH6hi1DXhsye0X8iev4J8Ciy99+0quFHrFe7XpIAAAA3AUpku/k P72Vi9w9C4Pr6QK69P/sB1jdAM1gcfTpOg09nq/Vt0885K/73/CmozueWn5R ROMqNwZsiQZsCQAAzQPF9/6/vft55TuO4wD+ZU7isO/FZGKWXDcnilZclnJB qR3UWE5ayXKhlCRF35S1shw5cHL8XtZK7cAKRaS5OEhsssMuWn39Svoohfz4 fnw9Hn/B51PPw+fz/Hxer/eVef4PrcT26vjHkxifieY39I793NaiE1LHFX1n XWEwtJnZlR0jiw+2IQF4VO5i+O7evt4Cl0gkfn1tKTgZ1c5piq1ffNpBqtua 7y6NGo28KVk6kCUgdVi+Rwo4epMdbj6elTjXoneNxFdlmNAIDPUEmvOsyraB +LqGBAAgHAK158uOyT+P7V+y06OQFZ63QZZkCQBCZn9zeXqos/718+BOjJz6 /hUdOkm3txZ7kx9MZm5ZbfvnqYUdgxIAACFzVns+iVQMfv+X7Mu5P/t/p9+V HN13+otXfT8UnrdBlmQJAEIo8X93aWYi1vv+bXlRVlpaeeuchpKk+z3b9jQj Pa+4qvFDz6jpHgCAsNv99qWuOBqp/rRywWlhKWoj3hiJPKtpvXTrFNciSwAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADAzRwCH3zJTA== "], {{0, 117}, { 1984, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{581.241666666667, Automatic}, ImageSizeRaw->{1984, 117}, PlotRange->{{0, 1984}, {0, 117}}]], "Input",ExpressionUUID-> "6d0964fe-447b-47cb-a44f-493d1190ec3a"], ", FieldNumber = 16" }], "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}, { 3.751406372166071*^9, 3.7514063955315123`*^9}},ExpressionUUID->"cf72f5a0-6cde-483e-ac2d-\ 6dfd434ba716"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Closure", "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "2", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], "[", RowBox[{"[", RowBox[{"2", ",", "4", ",", "2", ",", "4"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.751406956882496*^9, 3.751406964451027*^9}, { 3.751406994779578*^9, 3.751407022771538*^9}}, CellLabel-> "In[164]:=",ExpressionUUID->"ec6be47f-a7b0-455c-bb97-67b318c06484"], Cell[BoxData[ RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "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]h", "[", "1", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]], "Output", CellChangeTimes->{3.7514070237082*^9, 3.751566887648101*^9, 3.751727186291874*^9, 3.751730260731752*^9}, CellLabel-> "Out[164]=",ExpressionUUID->"10d44b60-bec6-4067-8bf1-28d502e7a9bd"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Closure", "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "kk", "]"}], "[", "cc", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"cc", ",", "1", ",", "4"}], "}"}]}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "2", ",", "4", ",", "2", ",", "4"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.751407033480526*^9, 3.751407092875581*^9}, { 3.75140713319555*^9, 3.751407141911532*^9}}, CellLabel-> "In[165]:=",ExpressionUUID->"59f23b06-d92a-486e-945a-0f131bb7d2e1"], Cell[BoxData[ RowBox[{ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "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]h", "[", "1", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]], "Output", CellChangeTimes->{ 3.751407098324238*^9, {3.751407134678912*^9, 3.751407142462639*^9}, 3.7515668877128277`*^9, 3.7517271863744297`*^9, 3.751730260814945*^9}, CellLabel-> "Out[165]=",ExpressionUUID->"7cd68cc1-c846-44ea-8225-3c7b1ad465a5"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"AlgebraDDResult", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "16", "]"}], "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"AlgebraDD", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "kk", "]"}], "[", "cc", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"cc", ",", "1", ",", "4"}], "}"}]}], "]"}], " ", "\[Equal]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Closure", "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "kk", "]"}], "[", "cc", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"cc", ",", "1", ",", "4"}], "}"}]}], "]"}], " ", "-", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"ii", ",", "jj"}], "]"}], "]"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "[", "2", "]"}], "[", RowBox[{"[", RowBox[{"kk", ",", "rr"}], "]"}], "]"}], "2", "I", " ", RowBox[{"Cmetric", "[", RowBox[{"[", RowBox[{"aa", ",", "bb"}], "]"}], "]"}], RowBox[{ RowBox[{"\[Gamma]", "[", "mu", "]"}], "[", RowBox[{"[", RowBox[{"cc", ",", "dd"}], "]"}], "]"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "rr", "]"}], "[", "dd", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], ",", RowBox[{"\[CapitalStigma]", "[", "mu", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"dd", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"rr", ",", "1", ",", "2"}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"cc", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"ii", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"aa", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"jj", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"bb", ",", "1", ",", "4"}], "}"}]}], "]"}]}]}], ")"}], "//", "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}, {3.751406407976272*^9, 3.751406454598757*^9}, {3.751406713837737*^9, 3.751406806836344*^9}, { 3.751407224981032*^9, 3.751407270176559*^9}, {3.751407392511108*^9, 3.751407422071019*^9}}, CellLabel-> "In[166]:=",ExpressionUUID->"8d1f35f9-03ae-4ef8-b773-3787f7466a27"], Cell[BoxData["True"], "Output", CellChangeTimes->{ 3.751405324653693*^9, 3.751406826622383*^9, 3.7514073389581013`*^9, { 3.751407398560871*^9, 3.7514074315092916`*^9}, 3.751566888022008*^9, 3.751727186692047*^9, 3.751730261161397*^9}, CellLabel-> "Out[166]=",ExpressionUUID->"3f3d291a-16ec-43c1-a68f-48e3e8967728"] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["4D, N=2 Summary, unhatted", "Subsection", CellChangeTimes->{{3.7468448382541714`*^9, 3.746844841062807*^9}, { 3.747484813570861*^9, 3.7474848147061768`*^9}, {3.751727150297126*^9, 3.751727152968473*^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", ",", "16"}], "}"}]}], "]"}], "\[Equal]", RowBox[{"Table", "[", RowBox[{"True", ",", RowBox[{"{", RowBox[{"Index", ",", "1", ",", "16"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "tt1", "\[IndentingNewLine]", "tt2"}], \ "Input", CellChangeTimes->{{3.746844857362361*^9, 3.7468448795383835`*^9}, 3.7474860644092245`*^9, 3.7493830656655216`*^9, {3.7493833451039195`*^9, 3.7493833528869457`*^9}, {3.751407437687273*^9, 3.751407439737672*^9}}, CellLabel-> "In[167]:=",ExpressionUUID->"60a4c4ed-61d9-4acb-8473-5067281d64ca"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.7514074438856277`*^9, 3.7515668880971727`*^9, 3.7517271867772617`*^9, 3.7517302612478743`*^9}, CellLabel-> "Out[167]=",ExpressionUUID->"b126079a-1ac3-41a9-ac02-9b58c02dc8cf"], Cell[BoxData["1"], "Output", CellChangeTimes->{3.7514074438856277`*^9, 3.7515668880971727`*^9, 3.7517271867772617`*^9, 3.751730261261321*^9}, CellLabel-> "Out[168]=",ExpressionUUID->"310ec3bd-a14a-4f14-9cdc-717f474f6bc3"], Cell[BoxData["1"], "Output", CellChangeTimes->{3.7514074438856277`*^9, 3.7515668880971727`*^9, 3.7517271867772617`*^9, 3.7517302612688723`*^9}, CellLabel-> "Out[169]=",ExpressionUUID->"c970308a-5045-4bfe-bf9a-956c36c4582b"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["tt1 = 0, tt2 = 0 for both hatted D\[CloseCurlyQuote]s", "Subsection", CellChangeTimes->{{3.748967208753737*^9, 3.748967225437399*^9}, { 3.751566901370181*^9, 3.751566908887273*^9}},ExpressionUUID->"ce746ac7-01b2-483b-9190-\ 1d8878b0e6da"], Cell[BoxData[{ RowBox[{ RowBox[{"Clear", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tt1", " ", "=", " ", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tt2", " ", "=", " ", "0"}], ";"}]}], "Input", CellChangeTimes->{{3.7489672276061687`*^9, 3.748967230946096*^9}, { 3.7493837695279007`*^9, 3.749383772558878*^9}, {3.751566911149837*^9, 3.75156691330175*^9}}, CellLabel-> "In[170]:=",ExpressionUUID->"4f8f0bae-9ec4-4fa1-8f05-7aa6c0a6e137"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "4D, N=2 Vector Algebra, both hatted ", 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}, {3.751567204620575*^9, 3.7515672145915337`*^9}},ExpressionUUID->"f63683a9-76c4-492b-84a0-\ 1d3685d7d2b3"], Cell[CellGroupData[{ Cell[TextData[{ "Write ", Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", SubscriptBox["W", "n"], ")"}], "ij"], " ", "=", " ", SuperscriptBox[ RowBox[{ SubscriptBox["cw", "n\[Mu]"], "(", SuperscriptBox["l", "\[Mu]"], ")"}], "ij"]}], TraditionalForm]], ExpressionUUID->"6d5bb7f4-cba1-483d-98fc-062f47317f21"], " where ", Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["l", "\[Mu]"], "=", RowBox[{"(", RowBox[{"I", ",", SuperscriptBox["\[Sigma]", "1"], ",", RowBox[{"i", " ", SuperscriptBox["\[Sigma]", "2"]}], ",", SuperscriptBox["\[Sigma]", "3"]}], ")"}]}], TraditionalForm]], "Subsubsection",ExpressionUUID->"760265e0-1fea-41ad-9c3f-187ac208a421"], " the generators of \[ScriptL](2,R)" }], "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}, { 3.751566925872048*^9, 3.751566931548473*^9}, {3.751567019579309*^9, 3.751567066268227*^9}},ExpressionUUID->"d2083a11-d487-4d07-a416-\ 7dc059135060"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"lgen", "[", "0", "]"}], " ", "=", " ", RowBox[{"sigma", "[", "0", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"lgen", "[", "1", "]"}], " ", "=", " ", RowBox[{"sigma", "[", "1", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"lgen", "[", "2", "]"}], " ", "=", " ", RowBox[{"I", " ", RowBox[{"sigma", "[", "2", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"lgen", "[", "3", "]"}], " ", "=", " ", RowBox[{"sigma", "[", "3", "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.7515670001763487`*^9, 3.751567015405511*^9}, { 3.751567070635689*^9, 3.751567111691877*^9}}, CellLabel-> "In[173]:=",ExpressionUUID->"e0304248-b9eb-4fc2-b394-4331be1163f3"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Wtolgen", "=", " ", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"W", "[", "nn_", "]"}], "[", RowBox[{"ii", ",", "jj"}], "]"}], "\[Rule]", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"cw", "[", "nn", "]"}], "[", "mu", "]"}], RowBox[{ RowBox[{"lgen", "[", "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}, {3.7515669365144053`*^9, 3.751566941869573*^9}, { 3.7515671022941637`*^9, 3.7515671038803873`*^9}, {3.7515671377689667`*^9, 3.751567139269705*^9}}, CellLabel-> "In[177]:=",ExpressionUUID->"9003f8eb-059e-4dd8-89b7-1c71f29ef4bb"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"W", "[", "nn_", "]"}], "[", RowBox[{"1", ",", "1"}], "]"}], "\[Rule]", RowBox[{ RowBox[{ RowBox[{"cw", "[", "nn", "]"}], "[", "0", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "nn", "]"}], "[", "3", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"W", "[", "nn_", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], "\[Rule]", RowBox[{ RowBox[{ RowBox[{"cw", "[", "nn", "]"}], "[", "1", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "nn", "]"}], "[", "2", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"W", "[", "nn_", "]"}], "[", RowBox[{"2", ",", "1"}], "]"}], "\[Rule]", RowBox[{ RowBox[{ RowBox[{"cw", "[", "nn", "]"}], "[", "1", "]"}], "-", RowBox[{ RowBox[{"cw", "[", "nn", "]"}], "[", "2", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"W", "[", "nn_", "]"}], "[", RowBox[{"2", ",", "2"}], "]"}], "\[Rule]", RowBox[{ RowBox[{ RowBox[{"cw", "[", "nn", "]"}], "[", "0", "]"}], "-", RowBox[{ RowBox[{"cw", "[", "nn", "]"}], "[", "3", "]"}]}]}]}], "}"}]], "Output",\ CellChangeTimes->{ 3.75156696226544*^9, {3.751567107276466*^9, 3.751567114065242*^9}, 3.751567151823488*^9, 3.751567716795842*^9, 3.75172718690738*^9, 3.75173026142791*^9}, CellLabel-> "Out[177]=",ExpressionUUID->"c9dcc9e5-ad5b-4b79-b9e7-ecd2b7ad7d21"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.751567162074839*^9, 3.75156716311965*^9}}, CellLabel-> "In[178]:=",ExpressionUUID->"52531c8c-c295-4f47-99c3-b7b2347d32af"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"W", "[", "2", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}], "/.", "Wtolgen"}]], "Input", CellChangeTimes->{{3.747487134809781*^9, 3.7474871419937134`*^9}, { 3.7515669456233397`*^9, 3.751566948278054*^9}, {3.751567153533339*^9, 3.751567154855947*^9}}, CellLabel-> "In[179]:=",ExpressionUUID->"e3a1dc0d-ba87-4421-85b3-eb122b3fee98"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"cw", "[", "2", "]"}], "[", "1", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "2", "]"}], "[", "2", "]"}]}]], "Output", CellChangeTimes->{3.7515669623637114`*^9, 3.751567119060751*^9, 3.751567155289942*^9, 3.751567716958941*^9, 3.75172718699641*^9, 3.751730261549035*^9}, CellLabel-> "Out[179]=",ExpressionUUID->"dbc202f6-66f2-4437-b7ee-1d5bce2f3f96"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"cwList", " ", "=", " ", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"cw", "[", "nn", "]"}], "[", "mu", "]"}], ",", RowBox[{"{", RowBox[{"nn", ",", "1", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"mu", ",", "0", ",", "3"}], "}"}]}], "]"}], "//", "Flatten"}]}]], "Input", CellChangeTimes->{{3.747493290184162*^9, 3.747493329761492*^9}, { 3.751566949960451*^9, 3.7515669522307663`*^9}, {3.751567692267146*^9, 3.751567696537315*^9}}, CellLabel-> "In[180]:=",ExpressionUUID->"3399832b-f84f-4186-85bc-734418af05db"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "0", "]"}], ",", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "1", "]"}], ",", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "2", "]"}], ",", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "3", "]"}], ",", RowBox[{ RowBox[{"cw", "[", "2", "]"}], "[", "0", "]"}], ",", RowBox[{ RowBox[{"cw", "[", "2", "]"}], "[", "1", "]"}], ",", RowBox[{ RowBox[{"cw", "[", "2", "]"}], "[", "2", "]"}], ",", RowBox[{ RowBox[{"cw", "[", "2", "]"}], "[", "3", "]"}], ",", RowBox[{ RowBox[{"cw", "[", "3", "]"}], "[", "0", "]"}], ",", RowBox[{ RowBox[{"cw", "[", "3", "]"}], "[", "1", "]"}], ",", RowBox[{ RowBox[{"cw", "[", "3", "]"}], "[", "2", "]"}], ",", RowBox[{ RowBox[{"cw", "[", "3", "]"}], "[", "3", "]"}], ",", RowBox[{ RowBox[{"cw", "[", "4", "]"}], "[", "0", "]"}], ",", RowBox[{ RowBox[{"cw", "[", "4", "]"}], "[", "1", "]"}], ",", RowBox[{ RowBox[{"cw", "[", "4", "]"}], "[", "2", "]"}], ",", RowBox[{ RowBox[{"cw", "[", "4", "]"}], "[", "3", "]"}], ",", RowBox[{ RowBox[{"cw", "[", "5", "]"}], "[", "0", "]"}], ",", RowBox[{ RowBox[{"cw", "[", "5", "]"}], "[", "1", "]"}], ",", RowBox[{ RowBox[{"cw", "[", "5", "]"}], "[", "2", "]"}], ",", RowBox[{ RowBox[{"cw", "[", "5", "]"}], "[", "3", "]"}], ",", RowBox[{ RowBox[{"cw", "[", "6", "]"}], "[", "0", "]"}], ",", RowBox[{ RowBox[{"cw", "[", "6", "]"}], "[", "1", "]"}], ",", RowBox[{ RowBox[{"cw", "[", "6", "]"}], "[", "2", "]"}], ",", RowBox[{ RowBox[{"cw", "[", "6", "]"}], "[", "3", "]"}], ",", RowBox[{ RowBox[{"cw", "[", "7", "]"}], "[", "0", "]"}], ",", RowBox[{ RowBox[{"cw", "[", "7", "]"}], "[", "1", "]"}], ",", RowBox[{ RowBox[{"cw", "[", "7", "]"}], "[", "2", "]"}], ",", RowBox[{ RowBox[{"cw", "[", "7", "]"}], "[", "3", "]"}], ",", RowBox[{ RowBox[{"cw", "[", "8", "]"}], "[", "0", "]"}], ",", RowBox[{ RowBox[{"cw", "[", "8", "]"}], "[", "1", "]"}], ",", RowBox[{ RowBox[{"cw", "[", "8", "]"}], "[", "2", "]"}], ",", RowBox[{ RowBox[{"cw", "[", "8", "]"}], "[", "3", "]"}], ",", RowBox[{ RowBox[{"cw", "[", "9", "]"}], "[", "0", "]"}], ",", RowBox[{ RowBox[{"cw", "[", "9", "]"}], "[", "1", "]"}], ",", RowBox[{ RowBox[{"cw", "[", "9", "]"}], "[", "2", "]"}], ",", RowBox[{ RowBox[{"cw", "[", "9", "]"}], "[", "3", "]"}], ",", RowBox[{ RowBox[{"cw", "[", "10", "]"}], "[", "0", "]"}], ",", RowBox[{ RowBox[{"cw", "[", "10", "]"}], "[", "1", "]"}], ",", RowBox[{ RowBox[{"cw", "[", "10", "]"}], "[", "2", "]"}], ",", RowBox[{ RowBox[{"cw", "[", "10", "]"}], "[", "3", "]"}], ",", RowBox[{ RowBox[{"cw", "[", "11", "]"}], "[", "0", "]"}], ",", RowBox[{ RowBox[{"cw", "[", "11", "]"}], "[", "1", "]"}], ",", RowBox[{ RowBox[{"cw", "[", "11", "]"}], "[", "2", "]"}], ",", RowBox[{ RowBox[{"cw", "[", "11", "]"}], "[", "3", "]"}], ",", RowBox[{ RowBox[{"cw", "[", "12", "]"}], "[", "0", "]"}], ",", RowBox[{ RowBox[{"cw", "[", "12", "]"}], "[", "1", "]"}], ",", RowBox[{ RowBox[{"cw", "[", "12", "]"}], "[", "2", "]"}], ",", RowBox[{ RowBox[{"cw", "[", "12", "]"}], "[", "3", "]"}]}], "}"}]], "Output", CellChangeTimes->{3.7515669624490356`*^9, 3.751567158280696*^9, 3.751567717092125*^9, 3.751727187080173*^9, 3.751730261628421*^9}, CellLabel-> "Out[180]=",ExpressionUUID->"b9560cc2-9cd7-4efd-954c-bff9f157e0f7"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ SubsuperscriptBox[ OverscriptBox["D", "^"], "a", "i"], ",", SubsuperscriptBox[ OverscriptBox["D", StyleBox["^", "Subsubsection"]], "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, {3.751567225244402*^9, 3.751567234400766*^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[181]:=",ExpressionUUID->"b31b49a9-e5f8-4f3f-b008-d2570ca6937d"], 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"}], "/.", "Wtolgen"}], ",", "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.751567173522526*^9}, CellLabel-> "In[183]:=",ExpressionUUID->"40fc86c8-49e3-4f44-b56d-49844e741ecb"], 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[184]:=",ExpressionUUID->"01203cbe-1ce0-47d9-8fd1-aaadb13528d0"], 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[185]:=",ExpressionUUID->"a676158b-5747-447c-8bf9-1a8725639941"], Cell[BoxData["14"], "Output", CellChangeTimes->{3.751567272936264*^9, 3.751567742409107*^9, 3.751727187968107*^9, 3.75173026261519*^9}, CellLabel-> "Out[185]=",ExpressionUUID->"7ff14422-3de1-4302-ba76-dbceb9f75e0f"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"LocalField", ",", "LocalFieldNumber"}], "]"}]], "Input", CellChangeTimes->{{3.747496499638111*^9, 3.7474965053367357`*^9}}, CellLabel-> "In[186]:=",ExpressionUUID->"355a4014-a967-4c00-8a7c-9ac28f259c8b"] }, Closed]], 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}, {3.751567370469018*^9, 3.751567370930653*^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[187]:=",ExpressionUUID->"3ca3f6b6-a9bd-4e2e-b091-bcd176a92c9a"], 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"}], "/.", "Wtolgen"}], ",", "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.751567174178451*^9}, CellLabel-> "In[189]:=",ExpressionUUID->"5b59b617-a5e7-44ae-8bbc-5d6bb5535641"], 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[190]:=",ExpressionUUID->"357a811b-b19a-4606-8560-e66992dbca91"], 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[191]:=",ExpressionUUID->"78a28b4c-5e21-42e3-80a4-ae2018da4692"], Cell[BoxData["14"], "Output", CellChangeTimes->{3.7515673180775223`*^9, 3.75156776105173*^9, 3.7517271888397207`*^9, 3.751730263827059*^9}, CellLabel-> "Out[191]=",ExpressionUUID->"66f24b80-a4b8-46cf-b516-1a4b41e0eeec"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"LocalField", ",", "LocalFieldNumber"}], "]"}]], "Input", CellChangeTimes->{{3.747496499638111*^9, 3.7474965053367357`*^9}}, CellLabel-> "In[192]:=",ExpressionUUID->"df0eda8d-6231-4935-b68d-f70491203713"] }, Closed]], 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}, {3.751567371341887*^9, 3.751567371634704*^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[193]:=",ExpressionUUID->"92f5594f-2020-4a1f-95ee-70edd01c0293"], 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"}], "/.", "Wtolgen"}], ",", "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.751567174630748*^9}, CellLabel-> "In[195]:=",ExpressionUUID->"f4ad161c-a759-4e94-a348-a5a25afca031"], 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[196]:=",ExpressionUUID->"95a405f2-bc85-458c-93bc-4d42775aa2e4"], 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[197]:=",ExpressionUUID->"c5d8e276-8e9a-415c-90ee-6786e02b14b6"], Cell[BoxData["20"], "Output", CellChangeTimes->{3.751567332016446*^9, 3.751567766776822*^9, 3.751727191333282*^9, 3.7517302664017153`*^9}, CellLabel-> "Out[197]=",ExpressionUUID->"3c2e03fd-4cbe-4b30-9669-4945b661330a"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"LocalField", ",", "LocalFieldNumber"}], "]"}]], "Input", CellChangeTimes->{{3.747496499638111*^9, 3.7474965053367357`*^9}}, CellLabel-> "In[198]:=",ExpressionUUID->"09d55b3d-413f-4abd-b33f-305b34181393"] }, Closed]], 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}, { 3.7515673718526993`*^9, 3.7515673720887623`*^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[199]:=",ExpressionUUID->"39f8cfa2-1aa2-4c4e-bdc6-249b0927be9b"], 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"}], "/.", "Wtolgen"}], ",", "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.751567175007318*^9}, CellLabel-> "In[201]:=",ExpressionUUID->"97a2bc34-de45-4b16-adee-2d0032a857f3"], 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[202]:=",ExpressionUUID->"931a726b-76c0-4d97-930c-5c1f9fec6795"], 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[203]:=",ExpressionUUID->"f8367145-4ad9-4437-98c0-a59023c0778d"], Cell[BoxData["18"], "Output", CellChangeTimes->{3.7515673430712223`*^9, 3.751567772297392*^9, 3.751727193792171*^9, 3.751730268874538*^9}, CellLabel-> "Out[203]=",ExpressionUUID->"5b594647-bbf2-4bde-86bf-8570a3260a0f"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"LocalField", ",", "LocalFieldNumber"}], "]"}]], "Input", CellChangeTimes->{{3.747496499638111*^9, 3.7474965053367357`*^9}}, CellLabel-> "In[204]:=",ExpressionUUID->"0fd5b232-f706-4c2d-ad8d-2ea0e1933743"] }, Closed]], 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}, {3.75156737231441*^9, 3.751567372599184*^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[205]:=",ExpressionUUID->"bf5608bf-629a-4e98-a3c7-5b2b9ae0bc95"], 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"}], "/.", "Wtolgen"}], ",", "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.751567175405321*^9}, CellLabel-> "In[207]:=",ExpressionUUID->"b626310b-6433-45ec-99b0-f391377efa5a"], 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[208]:=",ExpressionUUID->"681ac2fb-7b53-42e4-8510-db23bd158481"], 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[209]:=",ExpressionUUID->"1859885f-1591-4da0-81d0-11ef57f512af"], Cell[BoxData["18"], "Output", CellChangeTimes->{3.751567357223298*^9, 3.751567396749681*^9, 3.751567778494207*^9, 3.75172719621167*^9, 3.751730271343034*^9}, CellLabel-> "Out[209]=",ExpressionUUID->"a93b459e-c109-4ac0-ba6b-7a12c8a5dce1"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"LocalField", ",", "LocalFieldNumber"}], "]"}]], "Input", CellChangeTimes->{{3.747496499638111*^9, 3.7474965053367357`*^9}}, CellLabel-> "In[210]:=",ExpressionUUID->"4107736b-a577-484e-992a-a52d5f3749d9"] }, Closed]], 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}, { 3.751567373360962*^9, 3.751567377391334*^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[211]:=",ExpressionUUID->"83dc1a3a-1e30-437c-842c-32c0dad384c7"], 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[212]:=",ExpressionUUID->"cf61552b-3644-46fa-8191-8915572b836c"], 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[213]:=",ExpressionUUID->"3299d358-d418-40d6-957e-ef6eac257157"], 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"}], "/.", "Wtolgen"}], ",", "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.7515671757297907`*^9}, CellLabel-> "In[214]:=",ExpressionUUID->"fc5016dc-745b-4983-9a7e-c1c026a76025"], 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[215]:=",ExpressionUUID->"068d1211-c965-4e88-acfc-70303b15cd44"], Cell[BoxData[ RowBox[{"{", RowBox[{"4", ",", "2", ",", "4", ",", "2", ",", "4"}], "}"}]], "Output", CellChangeTimes->{3.7515674622168703`*^9, 3.751567785229293*^9, 3.751727198641058*^9, 3.7517302738556557`*^9}, CellLabel-> "Out[215]=",ExpressionUUID->"fc321726-c168-4bd2-b1c5-c0f70b7e80bb"] }, 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[216]:=",ExpressionUUID->"f9ee63e6-bf5c-4bef-97c5-d59e3feb5edf"], 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[217]:=",ExpressionUUID->"b5b5d84b-8666-4a68-91db-24877c153f21"], Cell[BoxData["42"], "Output", CellChangeTimes->{3.7515674631508408`*^9, 3.751567786096624*^9, 3.751727199579563*^9, 3.751730274832391*^9}, CellLabel-> "Out[217]=",ExpressionUUID->"64f29f79-218d-45c2-aeee-2357db0fbf42"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", "LocalFieldNumber", "]"}]], "Input", CellChangeTimes->{{3.747496499638111*^9, 3.7474965053367357`*^9}, { 3.748966504446074*^9, 3.748966505904224*^9}}, CellLabel-> "In[218]:=",ExpressionUUID->"51446d97-6fcf-48d4-bc24-c512a5607a09"] }, Closed]], 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[219]:=",ExpressionUUID->"3929eeb1-a8ec-4526-bfb3-76d1060d680d"], 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", ",", "16"}], "}"}]}], ";"}]}], "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.751567614030298*^9, 3.7515676141274967`*^9}}, CellLabel-> "In[221]:=",ExpressionUUID->"cb9ac637-3688-4a1d-ac87-2bff8fd4fa30"], 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[223]:=",ExpressionUUID->"bfd7b5ad-3b11-4bb2-8ef2-8336930c3146"], 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[224]:=",ExpressionUUID->"8e380d10-1a1e-4354-af2f-0f8c97994668"], Cell[BoxData[ RowBox[{"{", "91", "}"}]], "Output", CellChangeTimes->{3.7515676455675087`*^9, 3.7515677945969467`*^9, 3.751727199812261*^9, 3.751730275101688*^9}, CellLabel-> "Out[224]=",ExpressionUUID->"6773223e-0c88-4c6b-855e-0810c9284303"] }, 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[{"cwList", ",", 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}, {3.751567660077924*^9, 3.7515676602020817`*^9}}, CellLabel-> "In[225]:=",ExpressionUUID->"773bed33-f001-4a41-ac11-65c35f4df62a"], Cell[BoxData[ TemplateBox[{ "Solve","svars", "\"Equations may not give solutions for all \\\"solve\\\" variables.\"",2, 225,5,22356975128081287483,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.751567806937594*^9, 3.7517272123237753`*^9, 3.751730287505336*^9}, CellLabel-> "During evaluation of \ In[225]:=",ExpressionUUID->"42730818-84e7-4dec-8a02-7359a97705db"] }, 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[226]:=",ExpressionUUID->"44f5b1a6-8f04-4e8a-b155-bd9199346bee"], Cell[BoxData[ RowBox[{"{", "512", "}"}]], "Output", CellChangeTimes->{3.75156765312722*^9, 3.751567807031721*^9, 3.751727212485032*^9, 3.7517302876116543`*^9}, CellLabel-> "Out[226]=",ExpressionUUID->"bff32ee6-878a-4502-869d-ece29ab7f7e9"] }, Open ]] }, Closed]], 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 = 16 should, is satisfied 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.751567378275486*^9, 3.751567380822988*^9}, {3.751567620274194*^9, 3.751567620373086*^9}, { 3.751569052170903*^9, 3.7515690558958397`*^9}},ExpressionUUID->"4e199379-bfe4-4a28-9363-\ 74078207059f"], Cell[BoxData[ RowBox[{ RowBox[{"LocalFieldNumber", " ", "=", " ", "16"}], ";"}]], "Input", CellChangeTimes->{{3.748966071586817*^9, 3.748966075509182*^9}, { 3.751568113070075*^9, 3.7515681131495132`*^9}}, CellLabel-> "In[227]:=",ExpressionUUID->"28dbe485-88d0-4c52-a02e-2c76039dd8d6"], 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]h", "[", "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]h", "[", "kk", "]"}], "[", "cc", "]"}], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"kk", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"cc", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ")"}], "/.", "LagrangianParameters"}], "/.", "Wtolgen"}], ",", "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.751567176337913*^9, {3.751568657694291*^9, 3.751568661020232*^9}}, CellLabel-> "In[228]:=",ExpressionUUID->"593bd850-8600-4d5f-b77d-83552557867d"], 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[229]:=",ExpressionUUID->"126d6f6b-6c3a-490f-8a41-9516186536c3"], Cell[CellGroupData[{ Cell[BoxData[ 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}, 3.751568142463812*^9}, CellLabel-> "In[230]:=",ExpressionUUID->"f7058c4c-b17a-4cd9-8d75-653112c38988"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]"}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "0", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "3", "]"}]}], ")"}], "2"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "5", "]"}], "[", "0", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "5", "]"}], "[", "3", "]"}]}], ")"}], "2"]}]}], ")"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "1", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "0", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "3", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "5", "]"}], "[", "1", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "5", "]"}], "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "5", "]"}], "[", "0", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "5", "]"}], "[", "3", "]"}]}], ")"}]}]}], ")"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "2", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]"}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "0", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "3", "]"}]}], ")"}], "2"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "5", "]"}], "[", "0", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "5", "]"}], "[", "3", "]"}]}], ")"}], "2"]}]}], ")"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "1", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "0", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "3", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "5", "]"}], "[", "1", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "5", "]"}], "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "5", "]"}], "[", "0", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "5", "]"}], "[", "3", "]"}]}], ")"}]}]}], ")"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "2", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{"2", "-", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "0", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "3", "]"}]}], ")"}], "2"], "-", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "3", "]"}], "[", "0", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "3", "]"}], "[", "3", "]"}]}], ")"}], "2"], "-", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "5", "]"}], "[", "0", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "5", "]"}], "[", "3", "]"}]}], ")"}], "2"]}]}], ")"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "1", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "0", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "3", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "3", "]"}], "[", "1", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "3", "]"}], "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "3", "]"}], "[", "0", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "3", "]"}], "[", "3", "]"}]}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "5", "]"}], "[", "1", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "5", "]"}], "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "5", "]"}], "[", "0", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "5", "]"}], "[", "3", "]"}]}], ")"}]}]}], ")"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "2", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "2", "]"}], "[", "0", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "2", "]"}], "[", "3", "]"}]}], ")"}], "2"]}], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "3", "]"}], "[", "0", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "3", "]"}], "[", "3", "]"}]}], ")"}], "2"]}], ")"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "2", "]"}], "[", "1", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "2", "]"}], "[", "2", "]"}]}], ")"}]}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "2", "]"}], "[", "0", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "2", "]"}], "[", "3", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "3", "]"}], "[", "1", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "3", "]"}], "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "3", "]"}], "[", "0", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "3", "]"}], "[", "3", "]"}]}], ")"}]}]}], ")"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "2", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "0", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "3", "]"}]}], ")"}], "2"], "-", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "3", "]"}], "[", "0", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "3", "]"}], "[", "3", "]"}]}], ")"}], "2"]}], ")"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "1", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "0", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "3", "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "3", "]"}], "[", "1", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "3", "]"}], "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "3", "]"}], "[", "0", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "3", "]"}], "[", "3", "]"}]}], ")"}]}]}], ")"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "2", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "0", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "3", "]"}]}], ")"}], "2"], "-", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "3", "]"}], "[", "0", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "3", "]"}], "[", "3", "]"}]}], ")"}], "2"]}], ")"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "1", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "0", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "3", "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "3", "]"}], "[", "1", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "3", "]"}], "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "3", "]"}], "[", "0", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "3", "]"}], "[", "3", "]"}]}], ")"}]}]}], ")"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "2", "]"}], "[", "2", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "2", "]"}], "[", "0", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "2", "]"}], "[", "3", "]"}]}], ")"}], "2"]}], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "4", "]"}], "[", "0", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "4", "]"}], "[", "3", "]"}]}], ")"}], "2"], "-", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "5", "]"}], "[", "0", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "5", "]"}], "[", "3", "]"}]}], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "6", "]"}], "[", "0", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "6", "]"}], "[", "3", "]"}]}], ")"}], "2"]}], ")"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "2", "]"}], "[", "1", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "2", "]"}], "[", "2", "]"}]}], ")"}]}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "2", "]"}], "[", "0", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "2", "]"}], "[", "3", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "4", "]"}], "[", "1", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "4", "]"}], "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "4", "]"}], "[", "0", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "4", "]"}], "[", "3", "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "5", "]"}], "[", "1", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "5", "]"}], "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "5", "]"}], "[", "0", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "5", "]"}], "[", "3", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "6", "]"}], "[", "1", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "6", "]"}], "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "6", "]"}], "[", "0", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "6", "]"}], "[", "3", "]"}]}], ")"}]}]}], ")"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "2", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{"2", "-", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "0", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "3", "]"}]}], ")"}], "2"], "-", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "4", "]"}], "[", "0", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "4", "]"}], "[", "3", "]"}]}], ")"}], "2"], "-", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "5", "]"}], "[", "0", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "5", "]"}], "[", "3", "]"}]}], ")"}], "2"], "-", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "6", "]"}], "[", "0", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "6", "]"}], "[", "3", "]"}]}], ")"}], "2"]}], ")"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "1", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "0", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "3", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "4", "]"}], "[", "1", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "4", "]"}], "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "4", "]"}], "[", "0", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "4", "]"}], "[", "3", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "5", "]"}], "[", "1", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "5", "]"}], "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "5", "]"}], "[", "0", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "5", "]"}], "[", "3", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "6", "]"}], "[", "1", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "6", "]"}], "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "6", "]"}], "[", "0", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "6", "]"}], "[", "3", "]"}]}], ")"}]}]}], ")"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "2", "]"}], "[", "1", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "0", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "3", "]"}]}], ")"}], "2"], "-", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "4", "]"}], "[", "0", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "4", "]"}], "[", "3", "]"}]}], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "5", "]"}], "[", "0", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "5", "]"}], "[", "3", "]"}]}], ")"}], "2"], "-", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "6", "]"}], "[", "0", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "6", "]"}], "[", "3", "]"}]}], ")"}], "2"]}], ")"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "1", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "0", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "3", "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "4", "]"}], "[", "1", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "4", "]"}], "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "4", "]"}], "[", "0", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "4", "]"}], "[", "3", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "5", "]"}], "[", "1", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "5", "]"}], "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "5", "]"}], "[", "0", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "5", "]"}], "[", "3", "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "6", "]"}], "[", "1", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "6", "]"}], "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "6", "]"}], "[", "0", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "6", "]"}], "[", "3", "]"}]}], ")"}]}]}], ")"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "2", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "0", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "3", "]"}]}], ")"}], "2"], "-", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "4", "]"}], "[", "0", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "4", "]"}], "[", "3", "]"}]}], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "5", "]"}], "[", "0", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "5", "]"}], "[", "3", "]"}]}], ")"}], "2"], "-", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "6", "]"}], "[", "0", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "6", "]"}], "[", "3", "]"}]}], ")"}], "2"]}], ")"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "1", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "0", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "3", "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "4", "]"}], "[", "1", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "4", "]"}], "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "4", "]"}], "[", "0", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "4", "]"}], "[", "3", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "5", "]"}], "[", "1", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "5", "]"}], "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "5", "]"}], "[", "0", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "5", "]"}], "[", "3", "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "6", "]"}], "[", "1", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "6", "]"}], "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "6", "]"}], "[", "0", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "6", "]"}], "[", "3", "]"}]}], ")"}]}]}], ")"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "2", "]"}], "[", "3", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "0", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "3", "]"}]}], ")"}], "2"], "-", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "2", "]"}], "[", "0", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "2", "]"}], "[", "3", "]"}]}], ")"}], "2"]}], ")"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "1", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "0", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "3", "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "2", "]"}], "[", "1", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "2", "]"}], "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "2", "]"}], "[", "0", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "2", "]"}], "[", "3", "]"}]}], ")"}]}]}], ")"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "2", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "0", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "3", "]"}]}], ")"}], "2"], "-", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "2", "]"}], "[", "0", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "2", "]"}], "[", "3", "]"}]}], ")"}], "2"]}], ")"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "1", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "1", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "0", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "3", "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "2", "]"}], "[", "1", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "2", "]"}], "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cw", "[", "2", "]"}], "[", "0", "]"}], "+", RowBox[{ RowBox[{"cw", "[", "2", "]"}], "[", "3", "]"}]}], ")"}]}]}], ")"}], " ", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"\[CapitalPsi]h", "[", "2", "]"}], "[", "4", "]"}], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}]}]}], "}"}]], "Output", CellChangeTimes->{3.75156814881217*^9, 3.75156868710248*^9, 3.751727225290001*^9, 3.751730300388938*^9}, CellLabel-> "Out[230]=",ExpressionUUID->"47b56545-402f-4606-be54-c816068af38c"] }, Open ]], 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[231]:=",ExpressionUUID->"71b638ca-d2ec-431d-be2d-19acefa9eefe"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.751568936130945*^9, 3.75172732166777*^9, 3.751730397517281*^9}, CellLabel-> "Out[231]=",ExpressionUUID->"e4f32c7c-bc90-4d04-95ad-010e9d62e2e4"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{"tt2", "\[IndentingNewLine]", "tt2"}], "Input", CellChangeTimes->{{3.7493858760568547`*^9, 3.7493858786545386`*^9}}, CellLabel-> "In[232]:=",ExpressionUUID->"2b886a19-ce40-4f4e-8be9-c35fbf3b9ef2"], Cell[BoxData["0"], "Output", CellChangeTimes->{3.7515689414842463`*^9, 3.751727321749922*^9, 3.751730397647614*^9}, CellLabel-> "Out[232]=",ExpressionUUID->"e75c8486-de3f-48f1-8dc5-a8ff6f8881a8"], Cell[BoxData["0"], "Output", CellChangeTimes->{3.7515689414842463`*^9, 3.751727321749922*^9, 3.751730397662723*^9}, CellLabel-> "Out[233]=",ExpressionUUID->"03db5438-a074-4378-b9eb-e5fabaf91da0"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", "LocalFieldNumber", "]"}]], "Input", CellChangeTimes->{{3.747496499638111*^9, 3.7474965053367357`*^9}, { 3.748966504446074*^9, 3.748966505904224*^9}}, CellLabel-> "In[234]:=",ExpressionUUID->"e7d57f5f-ce77-4b2e-bd0c-930a4f4255bb"] }, Closed]], Cell[CellGroupData[{ Cell["\<\ Final Check on Closure, worked once, takes a few minutes so commented out\ \>", "Subsubsection", 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}},ExpressionUUID->"a2c8f04a-0774-42d1-aaa5-\ 4ce733fac499"], Cell[BoxData[ RowBox[{"(*", RowBox[{"tt1", "\[IndentingNewLine]", "tt2"}], "*)"}]], "Input", CellChangeTimes->{{3.7493858638824186`*^9, 3.7493858669343605`*^9}}, CellLabel-> "In[235]:=",ExpressionUUID->"f3927355-0030-4f05-8c7b-71a5422c2f34"], Cell[BoxData[ RowBox[{"(*", 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}}, CellLabel-> "In[236]:=",ExpressionUUID->"f643b038-21e8-4b34-831e-4a8ee9f24d8f"] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Closure summary of N=2 Vector hat-hat fermion using all solutions that close \ the bosons:\ \>", "Subsection", CellChangeTimes->{{3.7515695224814377`*^9, 3.751569538681595*^9}, { 3.751569929958579*^9, 3.751569939241394*^9}},ExpressionUUID->"da07673b-a04f-478e-94dc-\ 4bb5da36155b"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"ClosureResult", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "ss", "]"}]], "Input", CellLabel-> "In[237]:=",ExpressionUUID->"18f305bd-0852-4061-b344-a6386459a3ab"], Cell[BoxData["True"], "Output", CellChangeTimes->{ 3.751569558499723*^9, {3.751727321855946*^9, 3.751727340809156*^9}, 3.75173039776612*^9}, CellLabel-> "Out[237]=",ExpressionUUID->"cbc149f9-e2e2-4300-8e41-44e72c6c66e7"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "4D, N=2 Chiral-Chiral Algebra, both hatted ", Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ SubsuperscriptBox[ OverscriptBox["D", "^"], "a", "i"], ",", SubsuperscriptBox[ OverscriptBox["D", "^"], "b", "j"]}], "}"}], TraditionalForm]], ExpressionUUID->"39314252-3aeb-45b3-9851-2b46ccdaebd9"], ", no solution even for ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ SubsuperscriptBox[ OverscriptBox["D", "^"], "a", "i"], ",", SubsuperscriptBox[ OverscriptBox["D", "^"], "b", "j"]}], "}"}], "Ah"}], "=", " ", RowBox[{"2", " ", "i", " ", SubscriptBox[ RowBox[{ SuperscriptBox["\[Delta]", "ij"], "(", SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], RowBox[{ SubscriptBox["\[PartialD]", "\[Mu]"], "Ah"}]}]}], TraditionalForm]], "None",ExpressionUUID->"64a70b16-75fc-4131-9cbf-9eb0c70b9c70"], ", There MUST be central charges." }], "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}, {3.751567383537675*^9, 3.7515673838148527`*^9}, { 3.751569600135756*^9, 3.751569614311241*^9}, {3.751727592076858*^9, 3.751727600702956*^9}, {3.751728420891608*^9, 3.7517284215119457`*^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"]}], "}"}], "Ah"}], "=", " ", RowBox[{"2", " ", "i", " ", SubscriptBox[ RowBox[{ SuperscriptBox["\[Delta]", "ij"], "(", SuperscriptBox["\[Gamma]", "\[Mu]"], ")"}], "ab"], RowBox[{ SubscriptBox["\[PartialD]", "\[Mu]"], "Ah"}]}]}], TraditionalForm]], "None",ExpressionUUID->"77c92d67-60c8-4ac3-9172-ab5f868cb4c6"], " , FieldNumber = 8\n16 Equations all can not be simultaneoulsy solved, 6 \ can and possibly up to 12 though it crashes the kernel." }], "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.751727296133389*^9, 3.7517272966118727`*^9}, {3.751727355129077*^9, 3.7517273557203207`*^9}, { 3.751730476906102*^9, 3.751730557846562*^9}},ExpressionUUID->"0bf66b21-1968-431b-bb6c-\ fa4de97e2134"], Cell[BoxData[{ RowBox[{ RowBox[{"LocalField", " ", "=", " ", RowBox[{"Ah", "[", 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}, 3.751727356546214*^9}, CellLabel-> "In[238]:=",ExpressionUUID->"3b8381c4-2a9a-41fc-ad39-1ff2baafc616"], 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"}], "/.", "Wtolgen"}], ",", "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.751567176945816*^9}, CellLabel-> "In[240]:=",ExpressionUUID->"e5980583-6dff-4366-b64e-eb214df1483b"], 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[241]:=",ExpressionUUID->"eb8531ff-0c19-4d49-89d4-7b775e3be544"], 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[242]:=",ExpressionUUID->"c8bac0b4-02cc-4578-b440-ceb7713e3913"], Cell[BoxData["16"], "Output", CellChangeTimes->{3.751727481949566*^9, 3.7517275551977587`*^9, 3.7517303986552773`*^9}, CellLabel-> "Out[242]=",ExpressionUUID->"4cbdc4ba-8493-4875-b117-d1747e57344a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"AlgebraDDEqs", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], ",", "cwList"}], "]"}]], "Input", CellChangeTimes->{{3.751727507125577*^9, 3.751727532568756*^9}}, CellLabel-> "In[243]:=",ExpressionUUID->"ace15411-c320-4af0-a89b-6b8d9d4069e9"], Cell[BoxData[ RowBox[{"{", "}"}]], "Output", CellChangeTimes->{3.751727580141011*^9, 3.751730401623045*^9}, CellLabel-> "Out[243]=",ExpressionUUID->"cdb154e5-2921-4b21-9a74-d8988c81f9be"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDEqs", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "[", RowBox[{"[", "EqNo", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"EqNo", ",", "1", ",", "6"}], "}"}]}], "]"}], ",", "cwList"}], "]"}]], "Input", CellChangeTimes->{{3.751727507125577*^9, 3.751727532568756*^9}, { 3.7517276590153513`*^9, 3.7517276880846663`*^9}, {3.7517277297880383`*^9, 3.7517277298774633`*^9}}, CellLabel-> "In[244]:=",ExpressionUUID->"7686ce19-b5ef-4884-bffb-ec6cbea1594e"], Cell[BoxData[ TemplateBox[{ "Solve","svars", "\"Equations may not give solutions for all \\\"solve\\\" variables.\"",2, 244,6,22356975128081287483,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.751727689031653*^9, 3.751727760263842*^9, 3.751730431882319*^9}, CellLabel-> "During evaluation of \ In[244]:=",ExpressionUUID->"b2f778df-8f56-4250-aadd-b2dff4b69856"], Cell[BoxData[ InterpretationBox[ TagBox[ FrameBox[GridBox[{ { ItemBox[ TagBox[ 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->{85., {3., 11.}}], 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->{74., {1., 11.}}], 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, 244, 22356975128081287483, 5/2], Enabled->True, Evaluator->Automatic, Method->"Queued"], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], StandardForm], ImageSizeCache->{83., {1., 11.}}], 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, 244, 22356975128081287483, 5 2], Enabled->True, Evaluator->Automatic, Method->"Queued"], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], StandardForm], ImageSizeCache->{62., {1., 11.}}], 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, 244, 22356975128081287483, Infinity], Enabled->True, Evaluator->Automatic, Method->"Queued"], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], StandardForm], ImageSizeCache->{111., {1., 12.}}], 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[22356975128081287483 === $SessionID, Out[244], Message[ MessageName[Syntax, "noinfoker"]]; Missing["NotAvailable"]; Null]]], "Output", CellChangeTimes->{ 3.751727580141011*^9, {3.751727679622788*^9, 3.751727689041134*^9}, 3.751727760382642*^9, 3.7517304319977818`*^9}, CellLabel-> "Out[244]=",ExpressionUUID->"ea62a9be-111b-459a-b125-a788a263c50d"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"Solve", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDEqs", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "[", RowBox[{"[", "EqNo", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"EqNo", ",", "1", ",", "7"}], "}"}]}], "]"}], ",", "cwList"}], "]"}], "*)"}], " ", RowBox[{"(*", " ", RowBox[{ RowBox[{"Takes", " ", "at", " ", "least", " ", "20", " ", "minutes"}], ",", " ", RowBox[{ "never", " ", "been", " ", "run", " ", "to", " ", "completion"}]}], " ", "*)"}]}]], "Input", CellChangeTimes->{{3.751727507125577*^9, 3.751727532568756*^9}, { 3.7517276590153513`*^9, 3.7517276880846663`*^9}, {3.75172777314657*^9, 3.7517277732553663`*^9}, {3.751729424764085*^9, 3.75172944386051*^9}}, CellLabel-> "In[245]:=",ExpressionUUID->"16f95056-5db5-45dc-939f-74e6cb24423d"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"Solve", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDEqs", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "[", RowBox[{"[", "EqNo", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"EqNo", ",", "1", ",", "8"}], "}"}]}], "]"}], ",", "cwList"}], "]"}], "*)"}], " ", RowBox[{"(*", " ", RowBox[{ RowBox[{"Takes", " ", "at", " ", "least", " ", "8", " ", "minutes"}], ",", " ", RowBox[{ "never", " ", "been", " ", "run", " ", "to", " ", "completion"}]}], " ", "*)"}]}]], "Input", CellChangeTimes->{{3.751727507125577*^9, 3.751727532568756*^9}, { 3.7517276590153513`*^9, 3.7517276880846663`*^9}, {3.751727810082321*^9, 3.751727810193192*^9}, {3.7517299722360992`*^9, 3.7517299839609756`*^9}}, CellLabel-> "In[246]:=",ExpressionUUID->"9d32794e-bb97-4af7-adcf-5ce5d8660bd1"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"Solve", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDEqs", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "[", RowBox[{"[", "EqNo", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"EqNo", ",", "1", ",", "12"}], "}"}]}], "]"}], ",", "cwList"}], "]"}], "*)"}], " ", RowBox[{"(*", " ", RowBox[{"This", " ", "kills", " ", "the", " ", "kernel"}], " ", "*)"}]}]], "Input", CellChangeTimes->{{3.751730010494734*^9, 3.751730010896103*^9}, { 3.751730077441455*^9, 3.751730102627551*^9}, {3.751730144879218*^9, 3.751730212547192*^9}}, CellLabel-> "In[247]:=",ExpressionUUID->"0d7de353-2e08-4ec6-991f-dbb0a9981634"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"AlgebraDDEqs", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], "[", RowBox[{"[", "EqNo", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"EqNo", ",", "1", ",", "13"}], "}"}]}], "]"}], ",", "cwList"}], "]"}]], "Input", CellChangeTimes->{{3.7517301938811207`*^9, 3.751730219268053*^9}}, CellLabel-> "In[248]:=",ExpressionUUID->"2bb3fdd5-bc83-4b38-9254-3eb76c7f20f7"], Cell[BoxData[ RowBox[{"{", "}"}]], "Output", CellChangeTimes->{3.751730464760721*^9}, CellLabel-> "Out[248]=",ExpressionUUID->"99f05c4c-67f1-4264-9037-34f7082c49bc"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"LocalField", ",", "LocalFieldNumber"}], "]"}]], "Input", CellChangeTimes->{{3.747496499638111*^9, 3.7474965053367357`*^9}}, CellLabel-> "In[249]:=",ExpressionUUID->"ec39cd71-f2af-4487-9bcd-434e02170984"] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Algebra ", Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ SubsuperscriptBox["D", "a", "i"], ","}]}], TraditionalForm]], ExpressionUUID->"be23db71-8888-4452-80fc-9b7a9511e243"], Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox[ OverscriptBox["D", "^"], "b", "j"], "}"}], TraditionalForm]], ExpressionUUID->"b4a187fc-9832-491d-a09b-668fa86fa483"], "= 0 up to gauge transformations. There is no solution, even without \ imposing the unhatted 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.7517273132562313`*^9, 3.751727313256281*^9}, {3.751728385212741*^9, 3.7517283919506702`*^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", " ", "=", " ", "0"}], "\[IndentingNewLine]", RowBox[{"tt2", " ", "=", " ", "1"}]}], "Input", CellChangeTimes->{{3.7494004852791653`*^9, 3.7494004892504425`*^9}, { 3.749400537282079*^9, 3.7494005561222143`*^9}, {3.7517283405350122`*^9, 3.7517283423831*^9}}, CellLabel-> "In[250]:=",ExpressionUUID->"bacce989-d1a8-408e-bb7b-e3cc56f4640a"], Cell[BoxData["0"], "Output", CellChangeTimes->{{3.7494005455313473`*^9, 3.749400557348095*^9}, 3.7494023431660843`*^9, 3.749402569020705*^9, 3.7494970496273727`*^9, 3.75173057287554*^9}, CellLabel-> "Out[251]=",ExpressionUUID->"e6351ba0-071a-4240-b6a3-c95c96e0d8b6"], Cell[BoxData["1"], "Output", CellChangeTimes->{{3.7494005455313473`*^9, 3.749400557348095*^9}, 3.7494023431660843`*^9, 3.749402569020705*^9, 3.7494970496273727`*^9, 3.7517305728880453`*^9}, CellLabel-> "Out[252]=",ExpressionUUID->"3ffa2e9f-bd29-477a-b2fd-b623466f435a"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ SubsuperscriptBox["D", "a", "i"], ",", SubsuperscriptBox[ OverscriptBox["D", "^"], "b", "j"]}], "}"}], "Ah"}], "=", " ", "0"}], TraditionalForm]], "None",ExpressionUUID-> "652a603a-c382-4ee0-8a7a-40c74abf62ee"], " , 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.747485791788161*^9, 3.747485791788161*^9}, 3.74896595756443*^9, {3.7494002221313963`*^9, 3.7494002221313963`*^9}, {3.749400350844643*^9, 3.749400351307625*^9}, { 3.751728318821843*^9, 3.7517283224898863`*^9}, {3.75173058180622*^9, 3.751730582154655*^9}},ExpressionUUID->"205da802-785c-4106-bfff-\ b750ece28438"], Cell[BoxData[{ RowBox[{ RowBox[{"LocalField", " ", "=", " ", RowBox[{"Ah", "[", 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.751728327990447*^9, { 3.751730597440228*^9, 3.751730597803146*^9}}, CellLabel-> "In[260]:=",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"}], "/.", "Wtolgen"}], ",", "FieldListWithDerivatives", ",", "Simplify"}], "]"}], ")"}]}], ";"}]], "Input", CellChangeTimes->{{3.7474929944818563`*^9, 3.7474930651472597`*^9}, { 3.747493152219424*^9, 3.7474932477784343`*^9}, {3.7474934178914785`*^9, 3.7474934832105627`*^9}, {3.7474935638267813`*^9, 3.747493591801224*^9}, { 3.7474963739738455`*^9, 3.7474964449288054`*^9}, {3.748795026042665*^9, 3.748795027776865*^9}, {3.748965282772246*^9, 3.7489652841431913`*^9}, { 3.748967256264186*^9, 3.7489672582499332`*^9}, {3.7494004185551434`*^9, 3.7494004426991215`*^9}, 3.7515671806638603`*^9}, CellLabel-> "In[262]:=",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[263]:=",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[264]:=",ExpressionUUID->"4bc298cb-98b1-466e-b86e-a3ae9d4b1ab6"], Cell[BoxData["24"], "Output", CellChangeTimes->{3.749402369344755*^9, 3.7494025812692585`*^9, 3.749497050225095*^9, 3.75173060818985*^9, 3.7517306893473*^9}, CellLabel-> "Out[264]=",ExpressionUUID->"413222b7-c515-445d-b983-b3eccee85162"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"AlgebraDDEqs", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], ",", "cwList"}], "]"}]], "Input", CellChangeTimes->{{3.7517306624332237`*^9, 3.751730672487183*^9}}, CellLabel-> "In[265]:=",ExpressionUUID->"f18392eb-8f59-4899-a904-874448b929f9"], Cell[BoxData[ TemplateBox[{ "Solve","svars", "\"Equations may not give solutions for all \\\"solve\\\" variables.\"",2, 265,8,22356975128081287483,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.751730689433179*^9}, CellLabel-> "During evaluation of \ In[265]:=",ExpressionUUID->"fce31e6d-6087-4dfa-8512-a9887e6b3872"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"cw", "[", "2", "]"}], "[", "0", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "0", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "2", "]"}], "[", "1", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "1", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "2", "]"}], "[", "2", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "2", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "2", "]"}], "[", "3", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "3", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "3", "]"}], "[", "0", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "0", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "3", "]"}], "[", "1", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "1", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "3", "]"}], "[", "2", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "2", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "3", "]"}], "[", "3", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "3", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "4", "]"}], "[", "0", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "3", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "4", "]"}], "[", "1", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "2", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "4", "]"}], "[", "2", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "1", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "4", "]"}], "[", "3", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "0", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "5", "]"}], "[", "0", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "2", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "5", "]"}], "[", "1", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "3", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "5", "]"}], "[", "2", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "0", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "5", "]"}], "[", "3", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "1", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "6", "]"}], "[", "0", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "1", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "6", "]"}], "[", "1", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "0", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "6", "]"}], "[", "2", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "3", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "6", "]"}], "[", "3", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "2", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "7", "]"}], "[", "0", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "3", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "7", "]"}], "[", "1", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "2", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "7", "]"}], "[", "2", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "1", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "7", "]"}], "[", "3", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "0", "]"}]}]}]}], "}"}], "}"}]], "Output", CellChangeTimes->{3.751730689443012*^9}, CellLabel-> "Out[265]=",ExpressionUUID->"085a95f3-4ada-4b94-81ec-0ba2cfd87975"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"LocalField", ",", "LocalFieldNumber"}], "]"}]], "Input", CellChangeTimes->{{3.747496499638111*^9, 3.7474965053367357`*^9}}, CellLabel-> "In[266]:=",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"]}], "}"}], "Ab"}], "=", " ", "0"}], TraditionalForm]], "None",ExpressionUUID-> "0be662fb-9cc9-48c7-87ff-5663df9deed8"], " , 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.747485791788161*^9, 3.747485791788161*^9}, 3.74896595756443*^9, {3.7494002221313963`*^9, 3.7494002221313963`*^9}, {3.749400350844643*^9, 3.749400351307625*^9}, { 3.751728318821843*^9, 3.7517283224898863`*^9}, {3.75173058180622*^9, 3.751730582154655*^9}, {3.751730762890688*^9, 3.751730766209392*^9}},ExpressionUUID->"53415ce7-ac55-4e68-8bef-\ 72fd7b8e636a"], Cell[BoxData[{ RowBox[{ RowBox[{"LocalField", " ", "=", " ", RowBox[{"Ab", "[", 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.751728327990447*^9, { 3.751730597440228*^9, 3.751730597803146*^9}, {3.751730771907399*^9, 3.751730774507805*^9}}, CellLabel-> "In[274]:=",ExpressionUUID->"377d6340-3c37-417a-8ef6-04919b78e454"], 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"}], "/.", "Wtolgen"}], ",", "FieldListWithDerivatives", ",", "Simplify"}], "]"}], ")"}]}], ";"}]], "Input", CellChangeTimes->{{3.7474929944818563`*^9, 3.7474930651472597`*^9}, { 3.747493152219424*^9, 3.7474932477784343`*^9}, {3.7474934178914785`*^9, 3.7474934832105627`*^9}, {3.7474935638267813`*^9, 3.747493591801224*^9}, { 3.7474963739738455`*^9, 3.7474964449288054`*^9}, {3.748795026042665*^9, 3.748795027776865*^9}, {3.748965282772246*^9, 3.7489652841431913`*^9}, { 3.748967256264186*^9, 3.7489672582499332`*^9}, {3.7494004185551434`*^9, 3.7494004426991215`*^9}, 3.7515671806638603`*^9}, CellLabel-> "In[276]:=",ExpressionUUID->"ed88441a-6dfc-4abe-b429-4c24c2d2cfec"], 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[277]:=",ExpressionUUID->"379688bc-6783-4b46-8d7b-4b9a691b3c7f"], 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[278]:=",ExpressionUUID->"7338f086-ddeb-45fc-8dd5-e75a6ea29d9b"], Cell[BoxData["24"], "Output", CellChangeTimes->{3.749402369344755*^9, 3.7494025812692585`*^9, 3.749497050225095*^9, 3.75173060818985*^9, 3.7517306893473*^9, 3.7517307784711323`*^9}, CellLabel-> "Out[278]=",ExpressionUUID->"b091f4b1-3167-47bb-a9d1-e8bfae54e3fb"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"AlgebraDDEqs", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], ",", "cwList"}], "]"}]], "Input", CellChangeTimes->{{3.7517306624332237`*^9, 3.751730672487183*^9}}, CellLabel-> "In[279]:=",ExpressionUUID->"7b7a26e0-b31f-4b9b-89b1-20c48967ab30"], Cell[BoxData[ TemplateBox[{ "Solve","svars", "\"Equations may not give solutions for all \\\"solve\\\" variables.\"",2, 279,10,22356975128081287483,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.751730689433179*^9, 3.751730778572453*^9}, CellLabel-> "During evaluation of \ In[279]:=",ExpressionUUID->"8cc7adf2-24dd-40de-9f76-09697af85177"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"cw", "[", "2", "]"}], "[", "0", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "0", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "2", "]"}], "[", "1", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "1", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "2", "]"}], "[", "2", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "2", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "2", "]"}], "[", "3", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "3", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "3", "]"}], "[", "0", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "0", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "3", "]"}], "[", "1", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "1", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "3", "]"}], "[", "2", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "2", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "3", "]"}], "[", "3", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "3", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "4", "]"}], "[", "0", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "3", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "4", "]"}], "[", "1", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "2", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "4", "]"}], "[", "2", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "1", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "4", "]"}], "[", "3", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "0", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "5", "]"}], "[", "0", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "2", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "5", "]"}], "[", "1", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "3", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "5", "]"}], "[", "2", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "0", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "5", "]"}], "[", "3", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "1", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "6", "]"}], "[", "0", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "1", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "6", "]"}], "[", "1", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "0", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "6", "]"}], "[", "2", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "3", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "6", "]"}], "[", "3", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "2", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "11", "]"}], "[", "0", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "1", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "11", "]"}], "[", "1", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "0", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "11", "]"}], "[", "2", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "3", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "11", "]"}], "[", "3", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "2", "]"}]}]}]}], "}"}], "}"}]], "Output", CellChangeTimes->{3.751730689443012*^9, 3.751730778603997*^9}, CellLabel-> "Out[279]=",ExpressionUUID->"20b2e5d6-13d5-407c-94f0-2d4a791b25ae"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"LocalField", ",", "LocalFieldNumber"}], "]"}]], "Input", CellChangeTimes->{{3.747496499638111*^9, 3.7474965053367357`*^9}}, CellLabel-> "In[280]:=",ExpressionUUID->"ae697eaa-3f71-45d3-8b56-049710ea8150"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ SubsuperscriptBox["D", "a", "i"], ",", SubsuperscriptBox[ OverscriptBox["D", "^"], "b", "j"]}], "}"}], "Bh"}], "=", " ", "0"}], TraditionalForm]], "None",ExpressionUUID-> "90b43b97-05b1-4f88-9410-d5e23cef556a"], " , 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.747485791788161*^9, 3.747485791788161*^9}, 3.74896595756443*^9, {3.7494002221313963`*^9, 3.7494002221313963`*^9}, {3.749400350844643*^9, 3.749400351307625*^9}, { 3.751728318821843*^9, 3.7517283224898863`*^9}, {3.75173058180622*^9, 3.751730582154655*^9}, {3.7517306511320763`*^9, 3.751730654170792*^9}, { 3.751730783930903*^9, 3.751730784240992*^9}},ExpressionUUID->"d076b219-9458-40e5-aacb-\ fbb83e119c43"], Cell[BoxData[{ RowBox[{ RowBox[{"LocalField", " ", "=", " ", RowBox[{"Bh", "[", 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.751728327990447*^9, { 3.751730597440228*^9, 3.751730597803146*^9}, {3.751730655695232*^9, 3.751730659101572*^9}, {3.751730785998247*^9, 3.7517307863008423`*^9}}, CellLabel-> "In[281]:=",ExpressionUUID->"d6129698-d87f-427e-aa4b-3b3b4ab1900f"], 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"}], "/.", "Wtolgen"}], ",", "FieldListWithDerivatives", ",", "Simplify"}], "]"}], ")"}]}], ";"}]], "Input", CellChangeTimes->{{3.7474929944818563`*^9, 3.7474930651472597`*^9}, { 3.747493152219424*^9, 3.7474932477784343`*^9}, {3.7474934178914785`*^9, 3.7474934832105627`*^9}, {3.7474935638267813`*^9, 3.747493591801224*^9}, { 3.7474963739738455`*^9, 3.7474964449288054`*^9}, {3.748795026042665*^9, 3.748795027776865*^9}, {3.748965282772246*^9, 3.7489652841431913`*^9}, { 3.748967256264186*^9, 3.7489672582499332`*^9}, {3.7494004185551434`*^9, 3.7494004426991215`*^9}, 3.7515671806638603`*^9}, CellLabel-> "In[283]:=",ExpressionUUID->"0f36dc3d-e424-4450-b7f1-a9f7bba8e790"], 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[284]:=",ExpressionUUID->"f242de21-f535-46df-a498-f1da79c7431b"], 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[285]:=",ExpressionUUID->"73cf7e80-390b-48f7-a75f-7fbf651cc0b6"], Cell[BoxData["24"], "Output", CellChangeTimes->{3.749402369344755*^9, 3.7494025812692585`*^9, 3.749497050225095*^9, 3.75173060818985*^9, 3.7517306968392153`*^9, 3.751730789767417*^9}, CellLabel-> "Out[285]=",ExpressionUUID->"6635ff9f-158d-4da3-afa2-fb20ae3d6d55"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"AlgebraDDEqs", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], ",", "cwList"}], "]"}]], "Input", CellChangeTimes->{{3.7517306624332237`*^9, 3.751730672487183*^9}}, CellLabel-> "In[286]:=",ExpressionUUID->"a95ca821-8dbc-4d55-a229-39fb35f7e267"], Cell[BoxData[ TemplateBox[{ "Solve","svars", "\"Equations may not give solutions for all \\\"solve\\\" variables.\"",2, 286,11,22356975128081287483,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.7517306969158297`*^9, 3.751730789855185*^9}, CellLabel-> "During evaluation of \ In[286]:=",ExpressionUUID->"5a35c4d8-35ff-4494-9196-ccaa843657b8"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"cw", "[", "2", "]"}], "[", "0", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "0", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "2", "]"}], "[", "1", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "1", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "2", "]"}], "[", "2", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "2", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "2", "]"}], "[", "3", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "3", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "3", "]"}], "[", "0", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "0", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "3", "]"}], "[", "1", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "1", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "3", "]"}], "[", "2", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "2", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "3", "]"}], "[", "3", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "3", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "4", "]"}], "[", "0", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "3", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "4", "]"}], "[", "1", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "2", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "4", "]"}], "[", "2", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "1", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "4", "]"}], "[", "3", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "0", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "5", "]"}], "[", "0", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "2", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "5", "]"}], "[", "1", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "3", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "5", "]"}], "[", "2", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "0", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "5", "]"}], "[", "3", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "1", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "6", "]"}], "[", "0", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "1", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "6", "]"}], "[", "1", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "0", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "6", "]"}], "[", "2", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "3", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "6", "]"}], "[", "3", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "2", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "9", "]"}], "[", "0", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "0", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "9", "]"}], "[", "1", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "1", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "9", "]"}], "[", "2", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "2", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "9", "]"}], "[", "3", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "3", "]"}]}]}], "}"}], "}"}]], "Output", CellChangeTimes->{3.751730696925798*^9, 3.751730789880031*^9}, CellLabel-> "Out[286]=",ExpressionUUID->"db123894-90b1-44f4-ad78-f0e9df460b2a"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"LocalField", ",", "LocalFieldNumber"}], "]"}]], "Input", CellChangeTimes->{{3.747496499638111*^9, 3.7474965053367357`*^9}}, CellLabel-> "In[287]:=",ExpressionUUID->"c7f8a92c-b9ff-4e65-bbca-a036a2ab8849"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ SubsuperscriptBox["D", "a", "i"], ",", SubsuperscriptBox[ OverscriptBox["D", "^"], "b", "j"]}], "}"}], "Bb"}], "=", " ", "0"}], TraditionalForm]], "None",ExpressionUUID-> "3f1c49a6-d7b3-4f73-8ff1-84a217dc7ed5"], " , 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.747485791788161*^9, 3.747485791788161*^9}, 3.74896595756443*^9, {3.7494002221313963`*^9, 3.7494002221313963`*^9}, {3.749400350844643*^9, 3.749400351307625*^9}, { 3.751728318821843*^9, 3.7517283224898863`*^9}, {3.75173058180622*^9, 3.751730582154655*^9}, {3.7517306511320763`*^9, 3.751730654170792*^9}, { 3.751730783930903*^9, 3.7517307989730663`*^9}},ExpressionUUID->"ba47c5ee-adc6-41f0-b71d-\ 2f146041f8e1"], Cell[BoxData[{ RowBox[{ RowBox[{"LocalField", " ", "=", " ", RowBox[{"Bb", "[", 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.751728327990447*^9, { 3.751730597440228*^9, 3.751730597803146*^9}, {3.751730655695232*^9, 3.751730659101572*^9}, {3.751730785998247*^9, 3.751730803003824*^9}}, CellLabel-> "In[288]:=",ExpressionUUID->"559ff950-6338-4ba4-b78f-1f63e2da7006"], 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"}], "/.", "Wtolgen"}], ",", "FieldListWithDerivatives", ",", "Simplify"}], "]"}], ")"}]}], ";"}]], "Input", CellChangeTimes->{{3.7474929944818563`*^9, 3.7474930651472597`*^9}, { 3.747493152219424*^9, 3.7474932477784343`*^9}, {3.7474934178914785`*^9, 3.7474934832105627`*^9}, {3.7474935638267813`*^9, 3.747493591801224*^9}, { 3.7474963739738455`*^9, 3.7474964449288054`*^9}, {3.748795026042665*^9, 3.748795027776865*^9}, {3.748965282772246*^9, 3.7489652841431913`*^9}, { 3.748967256264186*^9, 3.7489672582499332`*^9}, {3.7494004185551434`*^9, 3.7494004426991215`*^9}, 3.7515671806638603`*^9}, CellLabel-> "In[290]:=",ExpressionUUID->"0ca14021-5e7c-443f-b383-d2270bafc432"], 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[291]:=",ExpressionUUID->"2fa9ec1b-f77a-4aab-8868-bb55d8cd34d8"], 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[292]:=",ExpressionUUID->"7a73950a-97c7-4771-9976-a5a956c32697"], Cell[BoxData["24"], "Output", CellChangeTimes->{ 3.749402369344755*^9, 3.7494025812692585`*^9, 3.749497050225095*^9, 3.75173060818985*^9, 3.7517306968392153`*^9, {3.751730789767417*^9, 3.7517308082301598`*^9}}, CellLabel-> "Out[292]=",ExpressionUUID->"7600d29b-e907-4e5c-8904-0f0d64f1341b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"AlgebraDDEqs", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], ",", "cwList"}], "]"}]], "Input", CellChangeTimes->{{3.7517306624332237`*^9, 3.751730672487183*^9}}, CellLabel-> "In[293]:=",ExpressionUUID->"f4155be5-872f-4348-aa36-ab51ce842e46"], Cell[BoxData[ TemplateBox[{ "Solve","svars", "\"Equations may not give solutions for all \\\"solve\\\" variables.\"",2, 293,12,22356975128081287483,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{ 3.7517306969158297`*^9, {3.751730789855185*^9, 3.751730808331431*^9}}, CellLabel-> "During evaluation of \ In[293]:=",ExpressionUUID->"a09b59dc-df13-422d-82da-4c94ada2ef79"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "0", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "13", "]"}], "[", "2", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "1", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "13", "]"}], "[", "3", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "2", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "13", "]"}], "[", "0", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "3", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "13", "]"}], "[", "1", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "2", "]"}], "[", "0", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "13", "]"}], "[", "2", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "2", "]"}], "[", "1", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "13", "]"}], "[", "3", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "2", "]"}], "[", "2", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "13", "]"}], "[", "0", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "2", "]"}], "[", "3", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "13", "]"}], "[", "1", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "3", "]"}], "[", "0", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "13", "]"}], "[", "2", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "3", "]"}], "[", "1", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "13", "]"}], "[", "3", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "3", "]"}], "[", "2", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "13", "]"}], "[", "0", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "3", "]"}], "[", "3", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "13", "]"}], "[", "1", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "4", "]"}], "[", "0", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "13", "]"}], "[", "1", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "4", "]"}], "[", "1", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "13", "]"}], "[", "0", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "4", "]"}], "[", "2", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "13", "]"}], "[", "3", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "4", "]"}], "[", "3", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "13", "]"}], "[", "2", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "5", "]"}], "[", "0", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "13", "]"}], "[", "0", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "5", "]"}], "[", "1", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "13", "]"}], "[", "1", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "5", "]"}], "[", "2", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "13", "]"}], "[", "2", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "5", "]"}], "[", "3", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "13", "]"}], "[", "3", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "6", "]"}], "[", "0", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "13", "]"}], "[", "3", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "6", "]"}], "[", "1", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "13", "]"}], "[", "2", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "6", "]"}], "[", "2", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "13", "]"}], "[", "1", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "6", "]"}], "[", "3", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "13", "]"}], "[", "0", "]"}]}]}]}], "}"}], "}"}]], "Output", CellChangeTimes->{ 3.751730696925798*^9, {3.751730789880031*^9, 3.751730808363646*^9}}, CellLabel-> "Out[293]=",ExpressionUUID->"8843d4e3-405b-4b8b-bc2f-0d170dc121a2"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"LocalField", ",", "LocalFieldNumber"}], "]"}]], "Input", CellChangeTimes->{{3.747496499638111*^9, 3.7474965053367357`*^9}}, CellLabel-> "In[294]:=",ExpressionUUID->"da077f69-1c0a-4d65-9ac7-d33f3559fcdc"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ SubsuperscriptBox["D", "a", "i"], ",", SubsuperscriptBox[ OverscriptBox["D", "^"], "b", "j"]}], "}"}], "Fh"}], "=", " ", "0"}], TraditionalForm]], "None",ExpressionUUID-> "ec952ca7-079c-4190-9ea8-0bc25f9d12c4"], " , 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.747485791788161*^9, 3.747485791788161*^9}, 3.74896595756443*^9, {3.7494002221313963`*^9, 3.7494002221313963`*^9}, {3.749400350844643*^9, 3.749400351307625*^9}, { 3.751728318821843*^9, 3.7517283224898863`*^9}, {3.75173058180622*^9, 3.751730582154655*^9}, {3.7517306511320763`*^9, 3.751730654170792*^9}, { 3.7517307062320957`*^9, 3.7517307362257442`*^9}, {3.7517308137646523`*^9, 3.751730813832304*^9}},ExpressionUUID->"fba4dec8-83f8-409f-becf-\ 0168b7420f00"], Cell[BoxData[{ RowBox[{ RowBox[{"LocalField", " ", "=", " ", RowBox[{"Fh", "[", 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.751728327990447*^9, { 3.751730597440228*^9, 3.751730597803146*^9}, {3.751730655695232*^9, 3.751730659101572*^9}, {3.7517308158681383`*^9, 3.7517308184595633`*^9}}, CellLabel-> "In[295]:=",ExpressionUUID->"67109439-9d38-4cd1-a029-8421044cbc78"], 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"}], "/.", "Wtolgen"}], ",", "FieldListWithDerivatives", ",", "Simplify"}], "]"}], ")"}]}], ";"}]], "Input", CellChangeTimes->{{3.7474929944818563`*^9, 3.7474930651472597`*^9}, { 3.747493152219424*^9, 3.7474932477784343`*^9}, {3.7474934178914785`*^9, 3.7474934832105627`*^9}, {3.7474935638267813`*^9, 3.747493591801224*^9}, { 3.7474963739738455`*^9, 3.7474964449288054`*^9}, {3.748795026042665*^9, 3.748795027776865*^9}, {3.748965282772246*^9, 3.7489652841431913`*^9}, { 3.748967256264186*^9, 3.7489672582499332`*^9}, {3.7494004185551434`*^9, 3.7494004426991215`*^9}, 3.7515671806638603`*^9}, CellLabel-> "In[297]:=",ExpressionUUID->"e7b40414-cfce-4ba8-9211-f5878b6572ec"], 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[298]:=",ExpressionUUID->"20604d5f-37b8-4b66-abf1-1dd394268865"], 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[299]:=",ExpressionUUID->"a4e6cd79-bca8-40aa-acaf-6987266c47cc"], Cell[BoxData["24"], "Output", CellChangeTimes->{3.749402369344755*^9, 3.7494025812692585`*^9, 3.749497050225095*^9, 3.75173060818985*^9, 3.7517306968392153`*^9, 3.7517308232310057`*^9}, CellLabel-> "Out[299]=",ExpressionUUID->"792182f2-87c2-4801-b21d-b23227db7f16"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"AlgebraDDEqs", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], ",", "cwList"}], "]"}]], "Input", CellChangeTimes->{{3.7517306624332237`*^9, 3.751730672487183*^9}}, CellLabel-> "In[300]:=",ExpressionUUID->"4cb3a45a-5239-45b8-a9a2-6be1aae3c48c"], Cell[BoxData[ TemplateBox[{ "Solve","svars", "\"Equations may not give solutions for all \\\"solve\\\" variables.\"",2, 300,13,22356975128081287483,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.7517306969158297`*^9, 3.75173082332204*^9}, CellLabel-> "During evaluation of \ In[300]:=",ExpressionUUID->"3ba0ebb1-7587-44f8-b9f8-1766f41b840a"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"cw", "[", "2", "]"}], "[", "0", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "0", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "2", "]"}], "[", "1", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "1", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "2", "]"}], "[", "2", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "2", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "2", "]"}], "[", "3", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "3", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "3", "]"}], "[", "0", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "0", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "3", "]"}], "[", "1", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "1", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "3", "]"}], "[", "2", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "2", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "3", "]"}], "[", "3", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "3", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "4", "]"}], "[", "0", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "3", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "4", "]"}], "[", "1", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "2", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "4", "]"}], "[", "2", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "1", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "4", "]"}], "[", "3", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "0", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "5", "]"}], "[", "0", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "2", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "5", "]"}], "[", "1", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "3", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "5", "]"}], "[", "2", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "0", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "5", "]"}], "[", "3", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "1", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "6", "]"}], "[", "0", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "1", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "6", "]"}], "[", "1", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "0", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "6", "]"}], "[", "2", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "3", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "6", "]"}], "[", "3", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "2", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "8", "]"}], "[", "0", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "3", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "8", "]"}], "[", "1", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "2", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "8", "]"}], "[", "2", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "1", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "8", "]"}], "[", "3", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "0", "]"}]}]}], "}"}], "}"}]], "Output", CellChangeTimes->{3.751730696925798*^9, 3.7517308233469753`*^9}, CellLabel-> "Out[300]=",ExpressionUUID->"60a1c37f-8275-40f0-8e85-6a5e6089beb3"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"LocalField", ",", "LocalFieldNumber"}], "]"}]], "Input", CellChangeTimes->{{3.747496499638111*^9, 3.7474965053367357`*^9}}, CellLabel-> "In[301]:=",ExpressionUUID->"36af9db4-52e1-447b-b199-e1c6f72cdf0f"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ SubsuperscriptBox["D", "a", "i"], ",", SubsuperscriptBox[ OverscriptBox["D", "^"], "b", "j"]}], "}"}], "Fb"}], "=", " ", "0"}], TraditionalForm]], "None",ExpressionUUID-> "a0dc7f89-42c7-449c-9e17-d5d478d819ce"], " , 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.747485791788161*^9, 3.747485791788161*^9}, 3.74896595756443*^9, {3.7494002221313963`*^9, 3.7494002221313963`*^9}, {3.749400350844643*^9, 3.749400351307625*^9}, { 3.751728318821843*^9, 3.7517283224898863`*^9}, {3.75173058180622*^9, 3.751730582154655*^9}, {3.7517306511320763`*^9, 3.751730654170792*^9}, { 3.7517307062320957`*^9, 3.7517307362257442`*^9}, {3.7517308137646523`*^9, 3.7517308333158903`*^9}},ExpressionUUID->"9e57d546-0361-4911-8ab1-\ c92ab200faf3"], Cell[BoxData[{ RowBox[{ RowBox[{"LocalField", " ", "=", " ", RowBox[{"Fb", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"LocalFieldNumber", " ", "=", " ", "13"}], ";"}]}], "Input", CellChangeTimes->{{3.747496390463257*^9, 3.747496425281234*^9}, { 3.748786525924238*^9, 3.748786528879302*^9}, 3.751728327990447*^9, { 3.751730597440228*^9, 3.751730597803146*^9}, {3.751730655695232*^9, 3.751730659101572*^9}, {3.7517308158681383`*^9, 3.751730839727825*^9}}, CellLabel-> "In[302]:=",ExpressionUUID->"c9ccd893-c8f7-4055-9ef1-bb582d59239f"], 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"}], "/.", "Wtolgen"}], ",", "FieldListWithDerivatives", ",", "Simplify"}], "]"}], ")"}]}], ";"}]], "Input", CellChangeTimes->{{3.7474929944818563`*^9, 3.7474930651472597`*^9}, { 3.747493152219424*^9, 3.7474932477784343`*^9}, {3.7474934178914785`*^9, 3.7474934832105627`*^9}, {3.7474935638267813`*^9, 3.747493591801224*^9}, { 3.7474963739738455`*^9, 3.7474964449288054`*^9}, {3.748795026042665*^9, 3.748795027776865*^9}, {3.748965282772246*^9, 3.7489652841431913`*^9}, { 3.748967256264186*^9, 3.7489672582499332`*^9}, {3.7494004185551434`*^9, 3.7494004426991215`*^9}, 3.7515671806638603`*^9}, CellLabel-> "In[304]:=",ExpressionUUID->"97e09081-52c3-4eee-8e90-16a2a557d4ab"], 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[305]:=",ExpressionUUID->"bd7c3305-9b7f-43f2-be2d-2143145c1ad9"], 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[306]:=",ExpressionUUID->"dff23f77-5084-4eb6-a391-ec6bf4cbe247"], Cell[BoxData["24"], "Output", CellChangeTimes->{ 3.749402369344755*^9, 3.7494025812692585`*^9, 3.749497050225095*^9, 3.75173060818985*^9, 3.7517306968392153`*^9, {3.7517308232310057`*^9, 3.7517308442720613`*^9}}, CellLabel-> "Out[306]=",ExpressionUUID->"637407d7-497b-4a31-8a2b-5d0d6b025c35"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"AlgebraDDEqs", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], ",", "cwList"}], "]"}]], "Input", CellChangeTimes->{{3.7517306624332237`*^9, 3.751730672487183*^9}}, CellLabel-> "In[307]:=",ExpressionUUID->"9c7636ad-b48c-4275-b7eb-fb0f046a6435"], Cell[BoxData[ TemplateBox[{ "Solve","svars", "\"Equations may not give solutions for all \\\"solve\\\" variables.\"",2, 307,14,22356975128081287483,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{ 3.7517306969158297`*^9, {3.75173082332204*^9, 3.751730844372069*^9}}, CellLabel-> "During evaluation of \ In[307]:=",ExpressionUUID->"24966318-eb18-446c-a78e-7baeb48bcdd8"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"cw", "[", "2", "]"}], "[", "0", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "0", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "2", "]"}], "[", "1", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "1", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "2", "]"}], "[", "2", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "2", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "2", "]"}], "[", "3", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "3", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "3", "]"}], "[", "0", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "0", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "3", "]"}], "[", "1", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "1", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "3", "]"}], "[", "2", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "2", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "3", "]"}], "[", "3", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "3", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "4", "]"}], "[", "0", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "3", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "4", "]"}], "[", "1", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "2", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "4", "]"}], "[", "2", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "1", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "4", "]"}], "[", "3", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "0", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "5", "]"}], "[", "0", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "2", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "5", "]"}], "[", "1", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "3", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "5", "]"}], "[", "2", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "0", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "5", "]"}], "[", "3", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "1", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "6", "]"}], "[", "0", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "1", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "6", "]"}], "[", "1", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "0", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "6", "]"}], "[", "2", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "3", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "6", "]"}], "[", "3", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "2", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "12", "]"}], "[", "0", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "1", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "12", "]"}], "[", "1", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "0", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "12", "]"}], "[", "2", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "3", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "12", "]"}], "[", "3", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "2", "]"}]}]}], "}"}], "}"}]], "Output", CellChangeTimes->{ 3.751730696925798*^9, {3.7517308233469753`*^9, 3.751730844404454*^9}}, CellLabel-> "Out[307]=",ExpressionUUID->"95f280c2-1654-409c-ac28-0e54347d4d38"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"LocalField", ",", "LocalFieldNumber"}], "]"}]], "Input", CellChangeTimes->{{3.747496499638111*^9, 3.7474965053367357`*^9}}, CellLabel-> "In[308]:=",ExpressionUUID->"d7ea01f2-bbb8-4b82-9498-ebb7a4f3b326"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ SubsuperscriptBox["D", "a", "i"], ",", SubsuperscriptBox[ OverscriptBox["D", "^"], "b", "j"]}], "}"}], "Gh"}], "=", " ", "0"}], TraditionalForm]], "None",ExpressionUUID-> "09791624-f2f1-4124-9e1b-7c04691c8899"], " , FieldNumber = 14" }], "Subsubsection", CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, { 3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, { 3.7467949641466155`*^9, 3.746794979356092*^9}, {3.747485791788161*^9, 3.747485791788161*^9}, 3.74896595756443*^9, {3.7494002221313963`*^9, 3.7494002221313963`*^9}, {3.749400350844643*^9, 3.749400351307625*^9}, { 3.751728318821843*^9, 3.7517283224898863`*^9}, {3.75173058180622*^9, 3.751730582154655*^9}, {3.7517306511320763`*^9, 3.751730654170792*^9}, { 3.7517307062320957`*^9, 3.7517307362257442`*^9}, {3.7517308137646523`*^9, 3.751730813832304*^9}, {3.7517308552590237`*^9, 3.751730857558159*^9}},ExpressionUUID->"d78ed076-1adc-4ad7-b48e-\ fbc4d8bdeb29"], Cell[BoxData[{ RowBox[{ RowBox[{"LocalField", " ", "=", " ", RowBox[{"Gh", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"LocalFieldNumber", " ", "=", " ", "14"}], ";"}]}], "Input", CellChangeTimes->{{3.747496390463257*^9, 3.747496425281234*^9}, { 3.748786525924238*^9, 3.748786528879302*^9}, 3.751728327990447*^9, { 3.751730597440228*^9, 3.751730597803146*^9}, {3.751730655695232*^9, 3.751730659101572*^9}, {3.7517308158681383`*^9, 3.7517308184595633`*^9}, { 3.751730861304665*^9, 3.751730863744059*^9}}, CellLabel-> "In[309]:=",ExpressionUUID->"40f090eb-c2f1-45d1-b5aa-d345125474f6"], 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"}], "/.", "Wtolgen"}], ",", "FieldListWithDerivatives", ",", "Simplify"}], "]"}], ")"}]}], ";"}]], "Input", CellChangeTimes->{{3.7474929944818563`*^9, 3.7474930651472597`*^9}, { 3.747493152219424*^9, 3.7474932477784343`*^9}, {3.7474934178914785`*^9, 3.7474934832105627`*^9}, {3.7474935638267813`*^9, 3.747493591801224*^9}, { 3.7474963739738455`*^9, 3.7474964449288054`*^9}, {3.748795026042665*^9, 3.748795027776865*^9}, {3.748965282772246*^9, 3.7489652841431913`*^9}, { 3.748967256264186*^9, 3.7489672582499332`*^9}, {3.7494004185551434`*^9, 3.7494004426991215`*^9}, 3.7515671806638603`*^9}, CellLabel-> "In[311]:=",ExpressionUUID->"0460d442-6492-430c-8021-6f52b491829c"], 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[312]:=",ExpressionUUID->"6ad991be-c565-48cf-9706-57184b33f6a3"], 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[313]:=",ExpressionUUID->"2165c548-532e-49d5-b47e-a646a66892e5"], Cell[BoxData["24"], "Output", CellChangeTimes->{3.749402369344755*^9, 3.7494025812692585`*^9, 3.749497050225095*^9, 3.75173060818985*^9, 3.7517306968392153`*^9, 3.7517308232310057`*^9, 3.751730869772119*^9}, CellLabel-> "Out[313]=",ExpressionUUID->"106b3ecd-5db5-4010-b938-610c4f0ba207"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"AlgebraDDEqs", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], ",", "cwList"}], "]"}]], "Input", CellChangeTimes->{{3.7517306624332237`*^9, 3.751730672487183*^9}}, CellLabel-> "In[314]:=",ExpressionUUID->"9553273a-7922-4468-9e16-fd5cdb6f1b82"], Cell[BoxData[ TemplateBox[{ "Solve","svars", "\"Equations may not give solutions for all \\\"solve\\\" variables.\"",2, 314,15,22356975128081287483,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.7517306969158297`*^9, 3.75173082332204*^9, 3.7517308698622293`*^9}, CellLabel-> "During evaluation of \ In[314]:=",ExpressionUUID->"1af593d2-385b-4fb8-889c-b78ece93a576"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"cw", "[", "2", "]"}], "[", "0", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "0", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "2", "]"}], "[", "1", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "1", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "2", "]"}], "[", "2", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "2", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "2", "]"}], "[", "3", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "3", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "3", "]"}], "[", "0", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "0", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "3", "]"}], "[", "1", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "1", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "3", "]"}], "[", "2", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "2", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "3", "]"}], "[", "3", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "3", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "4", "]"}], "[", "0", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "3", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "4", "]"}], "[", "1", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "2", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "4", "]"}], "[", "2", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "1", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "4", "]"}], "[", "3", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "0", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "5", "]"}], "[", "0", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "2", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "5", "]"}], "[", "1", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "3", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "5", "]"}], "[", "2", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "0", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "5", "]"}], "[", "3", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "1", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "6", "]"}], "[", "0", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "1", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "6", "]"}], "[", "1", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "0", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "6", "]"}], "[", "2", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "3", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "6", "]"}], "[", "3", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "2", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "10", "]"}], "[", "0", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "0", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "10", "]"}], "[", "1", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "1", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "10", "]"}], "[", "2", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "2", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "10", "]"}], "[", "3", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "3", "]"}]}]}], "}"}], "}"}]], "Output", CellChangeTimes->{3.751730696925798*^9, 3.7517308233469753`*^9, 3.7517308698870583`*^9}, CellLabel-> "Out[314]=",ExpressionUUID->"626e61e5-ffda-4242-97df-f1166094261b"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"LocalField", ",", "LocalFieldNumber"}], "]"}]], "Input", CellChangeTimes->{{3.747496499638111*^9, 3.7474965053367357`*^9}}, CellLabel-> "In[315]:=",ExpressionUUID->"ff88f3ba-9129-4a4a-af83-babd7e01f23f"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ SubsuperscriptBox["D", "a", "i"], ",", SubsuperscriptBox[ OverscriptBox["D", "^"], "b", "j"]}], "}"}], "Gb"}], "=", " ", "0"}], TraditionalForm]], "None",ExpressionUUID-> "41764960-649f-427a-9894-c195bd4e7f79"], " , FieldNumber = 15" }], "Subsubsection", CellChangeTimes->{{3.5509202888331347`*^9, 3.550920307842222*^9}, { 3.5594399520137978`*^9, 3.559439955108975*^9}, {3.5594405674659996`*^9, 3.559440571417226*^9}, {3.5594409365681114`*^9, 3.5594409393512707`*^9}, 3.5594902244365654`*^9, {3.7385839439397454`*^9, 3.738583948285994*^9}, { 3.7467949641466155`*^9, 3.746794979356092*^9}, {3.747485791788161*^9, 3.747485791788161*^9}, 3.74896595756443*^9, {3.7494002221313963`*^9, 3.7494002221313963`*^9}, {3.749400350844643*^9, 3.749400351307625*^9}, { 3.751728318821843*^9, 3.7517283224898863`*^9}, {3.75173058180622*^9, 3.751730582154655*^9}, {3.7517306511320763`*^9, 3.751730654170792*^9}, { 3.7517307062320957`*^9, 3.7517307362257442`*^9}, {3.7517308137646523`*^9, 3.751730813832304*^9}, {3.751730875043632*^9, 3.751730877390873*^9}},ExpressionUUID->"dfaf3382-66e2-417f-b65c-\ a664e7ff33a2"], Cell[BoxData[{ RowBox[{ RowBox[{"LocalField", " ", "=", " ", RowBox[{"Gb", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"LocalFieldNumber", " ", "=", " ", "15"}], ";"}]}], "Input", CellChangeTimes->{{3.747496390463257*^9, 3.747496425281234*^9}, { 3.748786525924238*^9, 3.748786528879302*^9}, 3.751728327990447*^9, { 3.751730597440228*^9, 3.751730597803146*^9}, {3.751730655695232*^9, 3.751730659101572*^9}, {3.7517308158681383`*^9, 3.7517308184595633`*^9}, { 3.75173088161625*^9, 3.751730885012097*^9}}, CellLabel-> "In[316]:=",ExpressionUUID->"66cc6b4b-d4c9-4865-9e4a-79970c4a4db9"], 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"}], "/.", "Wtolgen"}], ",", "FieldListWithDerivatives", ",", "Simplify"}], "]"}], ")"}]}], ";"}]], "Input", CellChangeTimes->{{3.7474929944818563`*^9, 3.7474930651472597`*^9}, { 3.747493152219424*^9, 3.7474932477784343`*^9}, {3.7474934178914785`*^9, 3.7474934832105627`*^9}, {3.7474935638267813`*^9, 3.747493591801224*^9}, { 3.7474963739738455`*^9, 3.7474964449288054`*^9}, {3.748795026042665*^9, 3.748795027776865*^9}, {3.748965282772246*^9, 3.7489652841431913`*^9}, { 3.748967256264186*^9, 3.7489672582499332`*^9}, {3.7494004185551434`*^9, 3.7494004426991215`*^9}, 3.7515671806638603`*^9}, CellLabel-> "In[318]:=",ExpressionUUID->"bbca2c07-5fdc-4446-8742-341a2179fa9b"], 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[319]:=",ExpressionUUID->"150facf7-d9a4-49c3-a665-aeb30b0ea59e"], 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[320]:=",ExpressionUUID->"8ee76d01-a249-4e87-b5be-461d879c8fbd"], Cell[BoxData["24"], "Output", CellChangeTimes->{3.749402369344755*^9, 3.7494025812692585`*^9, 3.749497050225095*^9, 3.75173060818985*^9, 3.7517306968392153`*^9, 3.7517308232310057`*^9, 3.75173089087637*^9}, CellLabel-> "Out[320]=",ExpressionUUID->"5368ed32-63a6-4290-81b0-ae7252d1fd30"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"AlgebraDDEqs", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "LocalFieldNumber", "]"}], ",", "cwList"}], "]"}]], "Input", CellChangeTimes->{{3.7517306624332237`*^9, 3.751730672487183*^9}}, CellLabel-> "In[321]:=",ExpressionUUID->"7e4a0877-e345-42b6-b3d5-c03ebf5d2a66"], Cell[BoxData[ TemplateBox[{ "Solve","svars", "\"Equations may not give solutions for all \\\"solve\\\" variables.\"",2, 321,16,22356975128081287483,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.7517306969158297`*^9, 3.75173082332204*^9, 3.7517308909738483`*^9}, CellLabel-> "During evaluation of \ In[321]:=",ExpressionUUID->"ac409dd2-52e3-4781-9050-d100fc4ce275"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "0", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "14", "]"}], "[", "2", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "1", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "14", "]"}], "[", "3", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "2", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "14", "]"}], "[", "0", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "3", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "14", "]"}], "[", "1", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "2", "]"}], "[", "0", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "14", "]"}], "[", "2", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "2", "]"}], "[", "1", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "14", "]"}], "[", "3", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "2", "]"}], "[", "2", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "14", "]"}], "[", "0", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "2", "]"}], "[", "3", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "14", "]"}], "[", "1", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "3", "]"}], "[", "0", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "14", "]"}], "[", "2", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "3", "]"}], "[", "1", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "14", "]"}], "[", "3", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "3", "]"}], "[", "2", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "14", "]"}], "[", "0", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "3", "]"}], "[", "3", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "14", "]"}], "[", "1", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "4", "]"}], "[", "0", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "14", "]"}], "[", "1", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "4", "]"}], "[", "1", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "14", "]"}], "[", "0", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "4", "]"}], "[", "2", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "14", "]"}], "[", "3", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "4", "]"}], "[", "3", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "14", "]"}], "[", "2", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "5", "]"}], "[", "0", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "14", "]"}], "[", "0", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "5", "]"}], "[", "1", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "14", "]"}], "[", "1", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "5", "]"}], "[", "2", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "14", "]"}], "[", "2", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "5", "]"}], "[", "3", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "14", "]"}], "[", "3", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "6", "]"}], "[", "0", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "14", "]"}], "[", "3", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "6", "]"}], "[", "1", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "14", "]"}], "[", "2", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "6", "]"}], "[", "2", "]"}], "\[Rule]", RowBox[{"-", RowBox[{ RowBox[{"cw", "[", "14", "]"}], "[", "1", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "6", "]"}], "[", "3", "]"}], "\[Rule]", RowBox[{ RowBox[{"cw", "[", "14", "]"}], "[", "0", "]"}]}]}], "}"}], "}"}]], "Output", CellChangeTimes->{3.751730696925798*^9, 3.7517308233469753`*^9, 3.7517308910068483`*^9}, CellLabel-> "Out[321]=",ExpressionUUID->"e162b360-726c-4e68-9b1b-8eef3d9a57ac"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"LocalField", ",", "LocalFieldNumber"}], "]"}]], "Input", CellChangeTimes->{{3.747496499638111*^9, 3.7474965053367357`*^9}}, CellLabel-> "In[322]:=",ExpressionUUID->"444e8da9-75ca-4f5b-9836-12d2ef24de61"] }, Closed]], Cell[CellGroupData[{ Cell["\<\ Solving Equations, solution is stored in FinalSolutions[tt1,tt2][ss] Solution Set ss= 2 for the chiral-chiral algebra. Even for the first 48 equations, the only solution is for there to be no SUSY \ transformations for the vector multiplet. For the full set of 192 equations, \ there is no solution at all.\ \>", "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.751731211818348*^9, 3.751731309309184*^9}},ExpressionUUID->"fcc75b1a-c44e-4878-8b4f-\ 748302aff33d"], 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.751730951450013*^9, 3.751730951552127*^9}}, CellLabel-> "In[323]:=",ExpressionUUID->"5351a040-e0f7-4cf4-bdf3-a39ad604cd7b"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"BosonNumbersList", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "ss", "]"}], " ", "=", " ", RowBox[{"{", RowBox[{ "8", ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"FieldNumbersList", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "ss", "]"}], " ", "=", " ", RowBox[{"{", RowBox[{ "8", ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15", ",", "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.751567614030298*^9, 3.7515676141274967`*^9}, {3.7517309625499487`*^9, 3.751730977019599*^9}, 3.7517310093513317`*^9}, CellLabel-> "In[325]:=",ExpressionUUID->"fd3d701f-692d-47ce-ae63-56223889cee1"], 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[327]:=",ExpressionUUID->"32e77cc4-190c-4766-a507-777623827783"], 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[328]:=",ExpressionUUID->"d56525b5-19a2-45a5-ab5b-4586d6fd8917"], Cell[BoxData[ RowBox[{"{", "192", "}"}]], "Output", CellChangeTimes->{3.7515676455675087`*^9, 3.7515677945969467`*^9, 3.751727199812261*^9, 3.751730275101688*^9, 3.7517310383255863`*^9}, CellLabel-> "Out[328]=",ExpressionUUID->"639e9404-c347-469a-9cf9-1237006b0246"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"BosonSolutions", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "ss", "]"}], " ", "=", " ", RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"BosonAlgebraDDEqs", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "ss", "]"}], ",", "cwList"}], "]"}]}]], "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.751567660077924*^9, 3.7515676602020817`*^9}, { 3.751731017185211*^9, 3.7517310232285767`*^9}, 3.7517310537579193`*^9}, CellLabel-> "In[331]:=",ExpressionUUID->"6a36f869-146d-426f-8958-ace92c94bdec"], Cell[BoxData[ RowBox[{"{", "}"}]], "Output", CellChangeTimes->{3.7517310544053507`*^9}, CellLabel-> "Out[331]=",ExpressionUUID->"a7b8617b-6060-4fed-abf9-b7726f98a5fd"] }, 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[330]:=",ExpressionUUID->"a34cace5-e04b-42f3-ab57-580bb432639d"], Cell[BoxData[ RowBox[{"{", "0", "}"}]], "Output", CellChangeTimes->{3.75156765312722*^9, 3.751567807031721*^9, 3.751727212485032*^9, 3.7517302876116543`*^9, 3.7517310384591208`*^9}, CellLabel-> "Out[330]=",ExpressionUUID->"5f6b82f7-7ea7-44b5-b319-0f77767e0b80"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"BosonAlgebraDDEqs", "[", RowBox[{"tt1", ",", "tt2"}], "]"}], "[", "ss", "]"}], "[", RowBox[{"[", "SolnNo", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"SolnNo", ",", "1", ",", "48"}], "}"}]}], "]"}], ",", "cwList"}], "]"}]], "Input", CellChangeTimes->{{3.751731069677907*^9, 3.751731087550427*^9}}, CellLabel-> "In[332]:=",ExpressionUUID->"5b5583e8-6311-4ce5-9bdb-50a548fe64a0"], Cell[BoxData[ TemplateBox[{ "Solve","svars", "\"Equations may not give solutions for all \\\"solve\\\" variables.\"",2, 332,17,22356975128081287483,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.751731089189004*^9}, CellLabel-> "During evaluation of \ In[332]:=",ExpressionUUID->"9be0db57-ae16-4307-bdee-96e31d0d574a"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "0", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "1", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "2", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "1", "]"}], "[", "3", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "2", "]"}], "[", "0", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "2", "]"}], "[", "1", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "2", "]"}], "[", "2", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "2", "]"}], "[", "3", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "3", "]"}], "[", "0", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "3", "]"}], "[", "1", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "3", "]"}], "[", "2", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "3", "]"}], "[", "3", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "4", "]"}], "[", "0", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "4", "]"}], "[", "1", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "4", "]"}], "[", "2", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "4", "]"}], "[", "3", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "5", "]"}], "[", "0", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "5", "]"}], "[", "1", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "5", "]"}], "[", "2", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "5", "]"}], "[", "3", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "6", "]"}], "[", "0", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "6", "]"}], "[", "1", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "6", "]"}], "[", "2", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "6", "]"}], "[", "3", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "7", "]"}], "[", "0", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "7", "]"}], "[", "1", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "7", "]"}], "[", "2", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "7", "]"}], "[", "3", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "11", "]"}], "[", "0", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "11", "]"}], "[", "1", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "11", "]"}], "[", "2", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"cw", "[", "11", "]"}], "[", "3", "]"}], "\[Rule]", "0"}]}], "}"}], "}"}]], "Output", CellChangeTimes->{3.7517310891932783`*^9}, CellLabel-> "Out[332]=",ExpressionUUID->"1da0e420-f587-4ccf-b064-786c5790d993"] }, Open ]] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{1329, 825}, WindowMargins->{{58, Automatic}, {Automatic, 12}}, 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, 9085, 125, 514, "Title",ExpressionUUID->"dfab12f3-523a-4891-ab6d-6353bcfa0aa5"], Cell[CellGroupData[{ Cell[9689, 151, 236, 4, 99, "Section",ExpressionUUID->"8ce62cfa-2467-4484-bfab-5a2bb7149ea5"], Cell[CellGroupData[{ Cell[9950, 159, 148, 2, 231, "Input",ExpressionUUID->"65e9b759-d921-4a12-9e52-b3e8b17f8777"], Cell[10101, 163, 1003, 14, 157, "Output",ExpressionUUID->"ca84e92b-aa91-449d-9f35-6374a1f03a23"] }, Open ]], Cell[11119, 180, 1116, 16, 231, "Input",ExpressionUUID->"1b130993-d415-41ec-8260-109b938b0e03"], Cell[12238, 198, 198, 3, 231, "Input",ExpressionUUID->"042a2f57-aed7-4239-853e-081c663f644e"], Cell[CellGroupData[{ Cell[12461, 205, 212, 3, 231, "Input",ExpressionUUID->"c17f1cbd-b2cc-47d8-bb22-2dea690d5840"], Cell[12676, 210, 943, 13, 157, "Output",ExpressionUUID->"88a33f1d-7372-4f04-a138-fd61b789e13f"] }, Open ]], Cell[CellGroupData[{ Cell[13656, 228, 214, 3, 231, "Input",ExpressionUUID->"bf6a110d-7d1e-40d6-8a3d-bf72cf4f7c1a"], Cell[13873, 233, 7243, 105, 157, "Output",ExpressionUUID->"25c91f81-3a9a-4927-98ad-3c7f995fb895"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[21165, 344, 1549, 22, 76, "Section",ExpressionUUID->"146d1a2f-83d1-445b-8d6a-794175dd6981"], Cell[CellGroupData[{ Cell[22739, 370, 238, 4, 758, "Subsubsection",ExpressionUUID->"38404d85-6a74-4447-aa3b-b53b5dce3a6b"], Cell[CellGroupData[{ Cell[23002, 378, 1918, 40, 884, "Input",ExpressionUUID->"9099ef07-609b-4251-9dee-91b068d2226b"], Cell[24923, 420, 1210, 29, 157, "Output",ExpressionUUID->"120310e7-cf98-4f26-9814-431d58ab2c7c"] }, Open ]], Cell[CellGroupData[{ Cell[26170, 454, 1131, 26, 884, "Input",ExpressionUUID->"8066522e-c829-472d-be77-e6e61bd97324"], Cell[27304, 482, 858, 19, 157, "Output",ExpressionUUID->"f45518c7-8b1e-4360-a41b-226eea2a7d96"] }, Open ]], Cell[CellGroupData[{ Cell[28199, 506, 1220, 32, 884, "Input",ExpressionUUID->"d6cf5ead-d887-482f-96d5-830a92aa83e0"], Cell[29422, 540, 2786, 69, 157, "Output",ExpressionUUID->"2a1d72b9-0b63-45c0-8f0c-d176e4c9b2b4"] }, Open ]], Cell[CellGroupData[{ Cell[32245, 614, 449, 9, 519, "Input",ExpressionUUID->"198fb917-2abb-4596-bf71-170ffacf4abd"], Cell[32697, 625, 4320, 107, 157, "Output",ExpressionUUID->"0ca317ea-50ee-4b51-94c5-709704155802"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[37066, 738, 255, 6, 758, "Subsubsection",ExpressionUUID->"3dcdbc13-3f52-49ae-8f7a-2ba58f9e9eb7"], Cell[37324, 746, 1113, 28, 884, "Input",ExpressionUUID->"1b56d7da-6bae-45fa-9eaa-9ce085f24d82"] }, Open ]], Cell[CellGroupData[{ Cell[38474, 779, 254, 6, 758, "Subsubsection",ExpressionUUID->"5f079067-ab5b-4732-b778-bf9d364d51f5"], Cell[38731, 787, 1286, 30, 1239, "Input",ExpressionUUID->"a258e7af-c0e2-4fb2-9b20-42c32a245bdf"], Cell[40020, 819, 1001, 25, 1239, "Input",ExpressionUUID->"eadedea2-d0ca-405a-acfd-2008d4caa418"], Cell[41024, 846, 370, 8, 519, "Input",ExpressionUUID->"20f10eb1-7c84-44ad-88f6-aa8e3d68c644"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[41443, 860, 956, 15, 76, "Section",ExpressionUUID->"c50236d8-bfd6-4c67-bc1c-bc4c6ff2c66c"], Cell[CellGroupData[{ Cell[42424, 879, 435, 10, 920, "Subsection",ExpressionUUID->"c9f8c06e-cccd-4878-9cf6-57c38c92fecd"], Cell[42862, 891, 1096, 23, 519, "Input",ExpressionUUID->"25922e74-2331-4af3-affc-1cf53f19daf7"], Cell[CellGroupData[{ Cell[43983, 918, 217, 3, 519, "Input",ExpressionUUID->"1deeca4a-a357-43a6-ab57-86bda9bbcedb"], Cell[44203, 923, 912, 26, 157, "Output",ExpressionUUID->"ee019972-9ebf-4819-8974-14170f730585"] }, Open ]], Cell[CellGroupData[{ Cell[45152, 954, 692, 15, 519, "Input",ExpressionUUID->"ba5a332b-93ce-4e6f-8955-3f84c915f02f"], Cell[45847, 971, 1746, 46, 157, "Output",ExpressionUUID->"44dbced7-80b1-498d-8576-18626047ad5a"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[47642, 1023, 606, 13, 702, "Subsection",ExpressionUUID->"05fd81b8-c980-4f98-b396-d779a42a978c"], Cell[48251, 1038, 1193, 24, 519, "Input",ExpressionUUID->"86313cce-3736-408a-97c3-dcafebc2821a"], Cell[CellGroupData[{ Cell[49469, 1066, 217, 3, 519, "Input",ExpressionUUID->"a54d5106-5a0d-4fed-8627-385765bcbd82"], Cell[49689, 1071, 911, 26, 157, "Output",ExpressionUUID->"09ca6936-5840-4877-bffb-71a92635ed5a"] }, Open ]], Cell[CellGroupData[{ Cell[50637, 1102, 734, 15, 519, "Input",ExpressionUUID->"38eafbe9-cbc5-4800-928b-47635a85c495"], Cell[51374, 1119, 1755, 46, 157, "Output",ExpressionUUID->"c8671077-e76e-4375-bae9-42b990710b2f"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[53178, 1171, 1219, 32, 657, "Subsection",ExpressionUUID->"6044be20-c5be-443e-a695-41d6db5e4ca0"], Cell[54400, 1205, 1352, 33, 519, "Input",ExpressionUUID->"7a3a156c-a91c-452a-9cad-35dbb7a0b895"], Cell[55755, 1240, 1308, 28, 519, "Input",ExpressionUUID->"5fbdfbe1-c567-4dc5-91cf-ab612175844c"], Cell[CellGroupData[{ Cell[57088, 1272, 599, 15, 519, "Input",ExpressionUUID->"42a7688c-56f0-4c57-b339-cb9446a84602"], Cell[57690, 1289, 8701, 258, 157, "Output",ExpressionUUID->"61e548b4-778a-477c-9f64-7a65c5cc8efa"] }, Open ]], Cell[CellGroupData[{ Cell[66428, 1552, 651, 16, 519, "Input",ExpressionUUID->"a45cd7bf-e473-4c27-995b-f58e166cf9e4"], Cell[67082, 1570, 8702, 258, 157, "Output",ExpressionUUID->"2c84ce96-de15-4b1d-b568-2f1ff6d9dde3"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[75833, 1834, 983, 24, 1122, "Subsection",ExpressionUUID->"98e87774-272f-42ac-b4fa-5d65db3bb1ba"], Cell[CellGroupData[{ Cell[76841, 1862, 582, 13, 519, "Input",ExpressionUUID->"ffdd2876-f36c-440f-b110-9897c02218bf"], Cell[77426, 1877, 495, 13, 157, "Output",ExpressionUUID->"2120ea98-2ce3-4217-aacd-da8541636a50"] }, Open ]], Cell[CellGroupData[{ Cell[77958, 1895, 510, 11, 519, "Input",ExpressionUUID->"6d9b3fa3-8a68-4114-9b64-974c14f9bdec"], Cell[78471, 1908, 1299, 40, 157, "Output",ExpressionUUID->"ac2278e2-73e2-45c4-80a4-3cbac0f75b8d"] }, Open ]], Cell[CellGroupData[{ Cell[79807, 1953, 622, 14, 519, "Input",ExpressionUUID->"ac87510e-9e32-4f96-8bce-d323bcd068c4"], Cell[80432, 1969, 1329, 41, 157, "Output",ExpressionUUID->"0333e5f3-00ce-4a49-bba8-93110590dcb8"] }, Open ]], Cell[CellGroupData[{ Cell[81798, 2015, 637, 12, 519, "Input",ExpressionUUID->"43b758c6-bc68-4721-ad5e-962d85ac7d6c"], Cell[82438, 2029, 2821, 90, 157, "Output",ExpressionUUID->"d1f12313-4b0c-4a36-a5cd-44671d96012a"] }, Open ]], Cell[CellGroupData[{ Cell[85296, 2124, 644, 11, 519, "Input",ExpressionUUID->"8da9bcb5-4f5c-4ed0-be3b-60bc976562b7"], Cell[85943, 2137, 1468, 44, 157, "Output",ExpressionUUID->"1d5eaf39-8f71-4014-b962-19f8a2d02476"] }, Open ]], Cell[CellGroupData[{ Cell[87448, 2186, 675, 12, 519, "Input",ExpressionUUID->"417fb4b9-da6b-40f3-ac1d-c5cd311fd1dd"], Cell[88126, 2200, 1501, 44, 157, "Output",ExpressionUUID->"427a2d64-c5b1-4474-abcc-26ef09b67724"] }, Open ]], Cell[CellGroupData[{ Cell[89664, 2249, 695, 12, 519, "Input",ExpressionUUID->"7b711a68-2e1a-4a6f-a290-56ae7e78b4e2"], Cell[90362, 2263, 1525, 45, 157, "Output",ExpressionUUID->"5bc8c085-e19d-461a-8725-ea112a67e78f"] }, Open ]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[91948, 2315, 1175, 19, 131, "Section",ExpressionUUID->"5a37422c-9958-4134-8fc9-4e234f8c2e51"], Cell[CellGroupData[{ Cell[93148, 2338, 7829, 132, 222, "Subsection",ExpressionUUID->"fc00eaf6-70c4-4c04-8d33-aa6df0600733"], Cell[100980, 2472, 3452, 58, 103, "Input",ExpressionUUID->"898da542-502e-45f3-9fc3-ae94defeddd0"], Cell[CellGroupData[{ Cell[104457, 2534, 460, 10, 103, "Input",ExpressionUUID->"784324e1-d57e-4de8-8e9b-dad0c7f272d2"], Cell[104920, 2546, 356, 7, 117, "Output",ExpressionUUID->"5f6e9717-bc4a-4723-b26e-d7f486526df8"] }, Open ]], Cell[CellGroupData[{ Cell[105313, 2558, 510, 10, 103, "Input",ExpressionUUID->"e69ca3ae-2fdf-4f60-87b4-f429c799abc4"], Cell[105826, 2570, 360, 7, 117, "Output",ExpressionUUID->"689b3698-7397-4c49-b1de-1a91f972df54"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[106235, 2583, 13489, 225, 184, "Subsection",ExpressionUUID->"f9560984-e0cf-4af4-afec-0d033821ebc5"], Cell[119727, 2810, 3256, 59, 103, "Input",ExpressionUUID->"ba21e04b-e0f2-4bdd-8bf3-5e928cb1713e"], Cell[CellGroupData[{ Cell[123008, 2873, 436, 9, 103, "Input",ExpressionUUID->"cef848df-50ab-4b75-aecc-f720dca868b6"], Cell[123447, 2884, 375, 8, 117, "Output",ExpressionUUID->"f127be3b-cae7-44a1-b711-fb2b7f3e6811"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[123871, 2898, 13377, 226, 168, "Subsection",ExpressionUUID->"b5a3c00d-e1be-4ad4-9a12-654b0d6734d3"], Cell[137251, 3126, 3502, 65, 175, "Input",ExpressionUUID->"27123cbb-771f-4854-81f6-bade6618ce56"], Cell[CellGroupData[{ Cell[140778, 3195, 387, 9, 103, "Input",ExpressionUUID->"d7f53fba-d399-4a9d-bfb5-4dea8dba5d4d"], Cell[141168, 3206, 1500, 45, 117, "Output",ExpressionUUID->"15c1c90f-e997-4794-9ad5-5b1189a83fee"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[142717, 3257, 19166, 321, 193, "Subsection",ExpressionUUID->"2bb1e4eb-51b8-4951-b32f-2c268171ecfc"], Cell[161886, 3580, 3891, 75, 245, "Input",ExpressionUUID->"98254835-0aee-4877-97ca-f3aac4f1a0f5"], Cell[CellGroupData[{ Cell[165802, 3659, 483, 10, 103, "Input",ExpressionUUID->"3dd8b134-77de-430c-8b15-fa245e43cb8b"], Cell[166288, 3671, 1474, 44, 117, "Output",ExpressionUUID->"16c4ab1a-4c08-4790-a5d7-dcff1145f1ad"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[167811, 3721, 15610, 263, 213, "Subsection",ExpressionUUID->"0eadac48-eb1e-4e53-aa9e-6cda374698ee"], Cell[183424, 3986, 1498, 41, 175, "Input",ExpressionUUID->"6a500431-cdd7-4b4a-a476-2718f7dceadf"], Cell[CellGroupData[{ Cell[184947, 4031, 468, 10, 103, "Input",ExpressionUUID->"d121cbc2-8073-4a04-a218-81e41b9c33a2"], Cell[185418, 4043, 380, 8, 117, "Output",ExpressionUUID->"801615fd-f75e-4204-9c88-777b6ca28083"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[185847, 4057, 18271, 306, 204, "Subsection",ExpressionUUID->"ea2711c5-30cf-466c-8aab-356b111bcc2b"], Cell[204121, 4365, 3947, 76, 245, "Input",ExpressionUUID->"5842c48d-29ee-4c2a-9a88-3fce86ee144e"], Cell[CellGroupData[{ Cell[208093, 4445, 535, 11, 103, "Input",ExpressionUUID->"6cb6082a-9711-496b-87c2-14e417c68807"], Cell[208631, 4458, 1468, 44, 117, "Output",ExpressionUUID->"a87688dd-ccd6-42a2-913c-afdd35d5a690"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[210148, 4508, 48462, 798, 186, "Subsection",ExpressionUUID->"8859e49f-1d1e-40da-82bc-713f2ec7a8fc"], Cell[258613, 5308, 5300, 123, 625, "Input",ExpressionUUID->"74bc0418-8f18-4513-9ba3-7fa733dcf2da"] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[263962, 5437, 1357, 21, 612, "Section",ExpressionUUID->"ce0c5757-eecc-412f-a33a-cbc8bf3e7a4b"], Cell[CellGroupData[{ Cell[265344, 5462, 12549, 208, 441, "Subsection",ExpressionUUID->"3ac61c69-9009-41c5-973e-c1aae22cbb41"], Cell[277896, 5672, 3892, 69, 245, "Input",ExpressionUUID->"7400a52c-d456-4e40-a511-5f1fff35db25"], Cell[CellGroupData[{ Cell[281813, 5745, 557, 11, 103, "Input",ExpressionUUID->"3f4350ac-a4bf-45c3-b2db-92c90930304c"], Cell[282373, 5758, 379, 7, 117, "Output",ExpressionUUID->"608d65d3-4a97-4797-aeaf-ed4e28dcf178"] }, Open ]], Cell[CellGroupData[{ Cell[282789, 5770, 637, 12, 103, "Input",ExpressionUUID->"40c65433-347d-41fb-b193-33a434581df7"], Cell[283429, 5784, 383, 7, 117, "Output",ExpressionUUID->"ca955c32-b57f-484e-9a1f-3bb8f62624bf"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[283861, 5797, 14120, 234, 373, "Subsection",ExpressionUUID->"35a180db-f3a3-41dd-9b43-0592428f05b5"], Cell[297984, 6033, 3353, 61, 245, "Input",ExpressionUUID->"2938d898-6a9f-49d5-b809-9926c7d3c56b"], Cell[CellGroupData[{ Cell[301362, 6098, 583, 11, 103, "Input",ExpressionUUID->"f476ab62-c1b4-4676-a60b-b9e2052a782c"], Cell[301948, 6111, 405, 8, 117, "Output",ExpressionUUID->"17a4a504-962d-4385-959b-087801c0085b"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[302402, 6125, 17778, 298, 384, "Subsection",ExpressionUUID->"f6449eb4-4bcc-4a10-9ae0-341e0d85cc50"], Cell[320183, 6425, 3865, 74, 884, "Input",ExpressionUUID->"da10ca15-db82-4fb6-adbe-e4ef84890a51"], Cell[CellGroupData[{ Cell[324073, 6503, 482, 10, 519, "Input",ExpressionUUID->"d95b8895-15d8-4a0d-81ab-b04159ddcca2"], Cell[324558, 6515, 1502, 45, 157, "Output",ExpressionUUID->"9ee8f8de-16d9-48dc-b731-44e8c020659b"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[326109, 6566, 16601, 279, 366, "Subsection",ExpressionUUID->"78ebb825-030c-4621-9b13-4621d38cdf95"], Cell[342713, 6847, 3825, 72, 884, "Input",ExpressionUUID->"e61fbb4c-1e28-4d58-9ad7-be20e79a348a"], Cell[CellGroupData[{ Cell[346563, 6923, 535, 11, 519, "Input",ExpressionUUID->"91b9755a-2623-44e1-9fad-746382b1bb16"], Cell[347101, 6936, 1470, 44, 157, "Output",ExpressionUUID->"2ed5f620-9445-487a-98d7-0747f2cecd91"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[348620, 6986, 12453, 207, 384, "Subsection",ExpressionUUID->"602701d3-e105-4d1d-ae10-91f651b2c81b"], Cell[361076, 7195, 3942, 70, 519, "Input",ExpressionUUID->"5f89ccf0-7af7-4553-b6fb-49ac952d4e07"], Cell[CellGroupData[{ Cell[365043, 7269, 581, 11, 519, "Input",ExpressionUUID->"061090a5-fb29-4fc5-bc24-9f0b38fc5e94"], Cell[365627, 7282, 380, 7, 157, "Output",ExpressionUUID->"ab76b756-ebf2-4c15-abdf-2911098562ba"] }, Open ]], Cell[CellGroupData[{ Cell[366044, 7294, 659, 12, 519, "Input",ExpressionUUID->"c150172e-bab5-48b5-807c-807e8c9babd6"], Cell[366706, 7308, 384, 7, 157, "Output",ExpressionUUID->"e6f2a208-7cc1-424d-9ea3-d73877e94e98"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[367139, 7321, 17597, 291, 360, "Subsection",ExpressionUUID->"4462f9bd-a087-41cf-ae71-9b38fcedcee6"], Cell[384739, 7614, 3615, 67, 884, "Input",ExpressionUUID->"86e8d28f-c750-4031-9608-c010647b8c43"], Cell[CellGroupData[{ Cell[388379, 7685, 635, 12, 519, "Input",ExpressionUUID->"a64994b0-cbd3-4399-a8f9-1aebf8e10fb2"], Cell[389017, 7699, 381, 7, 157, "Output",ExpressionUUID->"b4f97ba0-2193-4a18-a1e6-c553568bf9a6"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[389447, 7712, 17586, 294, 362, "Subsection",ExpressionUUID->"dfc45c5e-b57b-4d7d-bb36-55d31e089e24"], Cell[407036, 8008, 3915, 75, 884, "Input",ExpressionUUID->"09aba392-0b0e-4175-b319-34ad77a91c4c"], Cell[CellGroupData[{ Cell[410976, 8087, 578, 11, 519, "Input",ExpressionUUID->"ee73a25e-cdd9-4e84-bab0-35e07288aea7"], Cell[411557, 8100, 1552, 46, 157, "Output",ExpressionUUID->"12ff306e-e591-480d-b23d-4b2079e2e22a"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[413158, 8152, 19884, 332, 378, "Subsection",ExpressionUUID->"edc2d2ff-44cd-4ba8-b0d4-25cd6203a0b4"], Cell[433045, 8486, 4142, 79, 1239, "Input",ExpressionUUID->"ae987ce6-ca14-4782-88b2-46b99cc47dca"], Cell[CellGroupData[{ Cell[437212, 8569, 535, 11, 519, "Input",ExpressionUUID->"ababec00-d39c-4fd8-8e76-8f7362b2d820"], Cell[437750, 8582, 1516, 45, 157, "Output",ExpressionUUID->"0433a41e-ba33-47bb-8207-6506e36cd2af"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[439315, 8633, 72710, 1196, 364, "Subsection",ExpressionUUID->"3a64254c-82af-44c2-b966-898a7cdcbdd8"], Cell[512028, 9831, 6703, 163, 2297, "Input",ExpressionUUID->"73d5387a-6f6a-4523-820c-54297d2397b6"], Cell[CellGroupData[{ Cell[518756, 9998, 605, 13, 519, "Input",ExpressionUUID->"372d7980-651c-48a1-80e1-bbabaad3a090"], Cell[519364, 10013, 908, 25, 157, "Output",ExpressionUUID->"162effa0-dcc1-468a-bafb-80ba08fceb5b"] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[520333, 10045, 327, 5, 227, "Section",ExpressionUUID->"75f6db08-107b-4f20-80a9-f097134ae36c"], Cell[CellGroupData[{ Cell[520685, 10054, 13959, 231, 373, "Subsubsection",ExpressionUUID->"74c7fdd1-2c48-4f59-8f2d-f4ab67fc9ebf"], Cell[534647, 10287, 3965, 70, 231, "Input",ExpressionUUID->"9ef3b9ca-f2d0-49a4-acf1-104aa9d7c8be"], Cell[CellGroupData[{ Cell[538637, 10361, 536, 11, 231, "Input",ExpressionUUID->"4c81f54c-7005-4ec9-b89c-35df314271d3"], Cell[539176, 10374, 732, 20, 157, "Output",ExpressionUUID->"9ed2c12c-72d3-46da-83ee-0050ffdd4e8a"] }, Open ]], Cell[CellGroupData[{ Cell[539945, 10399, 586, 11, 231, "Input",ExpressionUUID->"9e6610bb-2d88-458c-9829-20a20e444e09"], Cell[540534, 10412, 730, 20, 157, "Output",ExpressionUUID->"60b87aef-2c3d-440e-af47-7b54f824db1e"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[541313, 10438, 19648, 325, 312, "Subsubsection",ExpressionUUID->"a8e0705c-4c0c-4b2b-b63e-5a227e25e692"], Cell[560964, 10765, 3610, 67, 393, "Input",ExpressionUUID->"c2775763-4bc5-4057-b0d5-4e0d9097557b"], Cell[CellGroupData[{ Cell[564599, 10836, 484, 10, 231, "Input",ExpressionUUID->"6be2e42b-3f90-400a-903c-19937fd9fbde"], Cell[565086, 10848, 868, 23, 157, "Output",ExpressionUUID->"0477c8ba-56d7-4aa3-8413-54ef9c965bbb"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[566003, 10877, 19814, 331, 312, "Subsubsection",ExpressionUUID->"5fedca23-98a2-4885-b8e7-f38c010982d6"], Cell[585820, 11210, 3891, 74, 393, "Input",ExpressionUUID->"8eb6c0fe-bd0a-403e-8e9b-4294942c45ab"], Cell[CellGroupData[{ Cell[589736, 11288, 431, 9, 231, "Input",ExpressionUUID->"59e8fc66-55f4-4f7e-bb40-d1662501b6ae"], Cell[590170, 11299, 3662, 117, 157, "Output",ExpressionUUID->"b4366f2d-a7b8-406b-94ff-7ec8f800ea5e"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[593881, 11422, 21707, 362, 290, "Subsubsection",ExpressionUUID->"f6ff6a16-2683-409e-9568-6e3be22bce6d"], Cell[615591, 11786, 4093, 78, 551, "Input",ExpressionUUID->"8a2a5474-56dd-4762-8c9f-f363344ffd5f"], Cell[CellGroupData[{ Cell[619709, 11868, 535, 11, 231, "Input",ExpressionUUID->"620890c9-075b-4380-b25e-dc2459104430"], Cell[620247, 11881, 3640, 116, 157, "Output",ExpressionUUID->"212601ce-d2fe-4d72-89f0-e4f3d1d8e1ce"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[623936, 12003, 17042, 286, 324, "Subsubsection",ExpressionUUID->"e2da2257-824e-44e1-a864-83dcc8a30af3"], Cell[640981, 12291, 1692, 43, 393, "Input",ExpressionUUID->"9ee4334b-e668-4b22-b488-65c0888bbe8c"], Cell[CellGroupData[{ Cell[642698, 12338, 518, 11, 231, "Input",ExpressionUUID->"77495382-a11a-4e4e-b02b-9cb1e69f9664"], Cell[643219, 12351, 781, 21, 157, "Output",ExpressionUUID->"2cc68188-19d2-45c6-8861-c5f77df60556"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[644049, 12378, 21138, 353, 308, "Subsubsection",ExpressionUUID->"ad9cf71f-84bf-4cd5-b455-b759250085b8"], Cell[665190, 12733, 4147, 79, 551, "Input",ExpressionUUID->"1e3a2e5d-ae3a-4549-ac86-703fd0c5da93"], Cell[CellGroupData[{ Cell[669362, 12816, 581, 11, 231, "Input",ExpressionUUID->"fcc63c84-ed1a-4b9d-b833-24d45f046d44"], Cell[669946, 12829, 3640, 116, 157, "Output",ExpressionUUID->"8da8dacd-5921-447c-85e3-d39096077aba"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[673635, 12951, 73722, 1213, 249, "Subsubsection",ExpressionUUID->"9b947347-44b2-4924-b1db-5a028af71dae"], Cell[747360, 14166, 6835, 159, 864, "Input",ExpressionUUID->"3b22c2fb-6385-4ece-91d4-c875f87f2d56"], Cell[CellGroupData[{ Cell[754220, 14329, 607, 13, 231, "Input",ExpressionUUID->"43c5953c-a7a3-454f-a0c9-277e2ebb0243"], Cell[754830, 14344, 2142, 64, 157, "Output",ExpressionUUID->"c543ff7b-746a-42ee-ad6d-3b6b477d6164"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[757021, 14414, 12792, 212, 294, "Subsection",ExpressionUUID->"5883c227-e983-45ba-9d87-a24584fb1294"], Cell[769816, 14628, 4012, 70, 231, "Input",ExpressionUUID->"7ad6057f-cbca-46ff-b77c-aed56151b401"], Cell[CellGroupData[{ Cell[773853, 14702, 581, 11, 231, "Input",ExpressionUUID->"66355d21-5a2e-4215-8682-14ea03aa419a"], Cell[774437, 14715, 753, 20, 157, "Output",ExpressionUUID->"6a18413f-de40-4aa0-bc17-2ac6e0cfe2f4"] }, Open ]], Cell[CellGroupData[{ Cell[775227, 14740, 663, 12, 231, "Input",ExpressionUUID->"abdd079a-76e0-4a9a-a302-5b52eec9f279"], Cell[775893, 14754, 751, 20, 157, "Output",ExpressionUUID->"502a8eba-9478-4d90-8425-904c01400628"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[776693, 14780, 18475, 306, 324, "Subsection",ExpressionUUID->"88bcee7a-dd2b-4f87-92bc-967315e40d50"], Cell[795171, 15088, 3690, 68, 393, "Input",ExpressionUUID->"0394b76a-7f3c-4fa2-a861-f40c923b9e6b"], Cell[CellGroupData[{ Cell[798886, 15160, 613, 12, 231, "Input",ExpressionUUID->"e2d28be0-dd5a-4030-bc81-f10953da3175"], Cell[799502, 15174, 867, 23, 157, "Output",ExpressionUUID->"4ff0e6ed-f3da-4dfc-addc-28172595747b"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[800418, 15203, 18509, 309, 308, "Subsection",ExpressionUUID->"37dd855b-c62a-4bcc-88ea-4d1bfa1b423a"], Cell[818930, 15514, 3892, 73, 393, "Input",ExpressionUUID->"fce2c8ea-dc6f-4442-9e32-917a76647bed"], Cell[CellGroupData[{ Cell[822847, 15591, 510, 10, 231, "Input",ExpressionUUID->"3cac7f77-e659-4a0d-8153-e435bbbfa4c1"], Cell[823360, 15603, 3652, 117, 157, "Output",ExpressionUUID->"1af695fb-7ee1-457f-b1cf-89e234a94942"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[827061, 15726, 20516, 342, 294, "Subsection",ExpressionUUID->"348403ec-fb06-4b00-9846-a95c4a2aada9"], Cell[847580, 16070, 4148, 78, 551, "Input",ExpressionUUID->"a24e1f27-51ca-4b7d-885b-c29e060bbfb6"], Cell[CellGroupData[{ Cell[851753, 16152, 604, 12, 231, "Input",ExpressionUUID->"2a877816-82b5-4c7d-8c13-6650ac684af0"], Cell[852360, 16166, 3634, 116, 157, "Output",ExpressionUUID->"3208695c-c17d-4c86-986e-9d885b748726"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[856043, 16288, 13619, 225, 303, "Subsection",ExpressionUUID->"208e8b16-c820-4d46-ae03-fe6f366aed37"], Cell[869665, 16515, 4064, 71, 231, "Input",ExpressionUUID->"73ed1d17-5d1f-4c72-a343-a4f933752dda"], Cell[CellGroupData[{ Cell[873754, 16590, 606, 12, 231, "Input",ExpressionUUID->"1f00d30c-e77f-4d83-b2a2-6684cfeb776f"], Cell[874363, 16604, 775, 20, 157, "Output",ExpressionUUID->"55757bd1-4397-4e1f-86f7-2284d7507601"] }, Open ]], Cell[CellGroupData[{ Cell[875175, 16629, 689, 13, 231, "Input",ExpressionUUID->"c2d2c91d-4ffc-4a4e-a2dc-c3f3f213b84a"], Cell[875867, 16644, 773, 20, 157, "Output",ExpressionUUID->"a3022e35-8a6b-4408-ac6f-eff032ffe6a8"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[876689, 16670, 18931, 312, 290, "Subsection",ExpressionUUID->"82fba134-33b8-4b8f-9185-4d6bcca44fce"], Cell[895623, 16984, 3738, 68, 393, "Input",ExpressionUUID->"e5ee77fc-c11b-4907-a531-be89fd0bf05e"], Cell[CellGroupData[{ Cell[899386, 17056, 634, 12, 231, "Input",ExpressionUUID->"59b5ea18-6c66-4f04-be2b-98f4ab9a4beb"], Cell[900023, 17070, 891, 23, 157, "Output",ExpressionUUID->"0b886b76-c80b-4e5b-a4ca-2512f173a66f"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[900963, 17099, 18531, 310, 294, "Subsection",ExpressionUUID->"a9c274d2-7a52-4983-9ea8-9919a5eed79c"], Cell[919497, 17411, 3941, 74, 393, "Input",ExpressionUUID->"84db2e42-af01-436b-b5cb-59bac6d2e837"], Cell[CellGroupData[{ Cell[923463, 17489, 536, 11, 231, "Input",ExpressionUUID->"10025f94-b93a-4000-b6a4-ac2a09f750c7"], Cell[924002, 17502, 3676, 117, 157, "Output",ExpressionUUID->"c7fa292f-46a7-4f81-afa0-5941e584cba9"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[927727, 17625, 21307, 355, 276, "Subsection",ExpressionUUID->"87d7cc44-3354-4ea3-9792-bae1abda7f3c"], Cell[949037, 17982, 4193, 78, 551, "Input",ExpressionUUID->"4d364c7c-a40d-4bf0-b3f3-fbb267ee5ecb"], Cell[CellGroupData[{ Cell[953255, 18064, 650, 12, 231, "Input",ExpressionUUID->"18b25d3e-1523-4492-9d9d-af8ebf90bd3f"], Cell[953908, 18078, 3654, 116, 157, "Output",ExpressionUUID->"12aba787-e3a6-4944-830b-ed54fe679501"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[957611, 18200, 66614, 1096, 256, "Subsection",ExpressionUUID->"b3f5276e-edcc-4c7d-95e6-ba5cbeaba7a1"], Cell[1024228, 19298, 5609, 127, 1248, "Input",ExpressionUUID->"ec979bbd-b9f1-4c45-8f17-e25a125d40bd"], Cell[CellGroupData[{ Cell[1029862, 19429, 606, 13, 231, "Input",ExpressionUUID->"c842c03c-a744-49b5-87e9-7d7c5b9fa73f"], Cell[1030471, 19444, 3171, 94, 157, "Output",ExpressionUUID->"28dea653-5687-4d6c-baf3-d64e75f7c03f"] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[1033703, 19545, 68304, 1145, 866, "Section",ExpressionUUID->"a675d1e4-5e97-4ebf-bf2f-3fd69b5e1553"], Cell[CellGroupData[{ Cell[1102032, 20694, 15631, 458, 1608, "Subsection",ExpressionUUID->"eef3f427-f737-45ee-8083-df6ce6ebf1b9"], Cell[CellGroupData[{ Cell[1117688, 21156, 509, 9, 337, "Subsubsection",ExpressionUUID->"c55c1013-20b2-4050-ad8f-a21d88051380"], Cell[CellGroupData[{ Cell[1118222, 21169, 7888, 214, 3062, "Input",ExpressionUUID->"3f377a93-d80e-49f0-8f5e-f9075395643b"], Cell[1126113, 21385, 7995, 232, 157, "Output",ExpressionUUID->"cd2445bf-4524-41c9-b889-e93600d8e4ea"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[1134157, 21623, 906, 24, 328, "Subsubsection",ExpressionUUID->"050d55a2-0a15-48a4-8dfa-cb4c445fea98"], Cell[1135066, 21649, 1264, 31, 231, "Input",ExpressionUUID->"a76840e2-dba8-4fab-a228-9a91ee555f34"] }, Closed]], Cell[CellGroupData[{ Cell[1136367, 21685, 803, 22, 337, "Subsubsection",ExpressionUUID->"9b13b755-0629-484e-b8a9-02b5762058c7"], Cell[1137173, 21709, 1314, 31, 231, "Input",ExpressionUUID->"de777450-0fb9-4df1-b164-99cbd4d20e4a"] }, Closed]], Cell[CellGroupData[{ Cell[1138524, 21745, 851, 23, 328, "Subsubsection",ExpressionUUID->"797fd13a-47da-454c-b332-d6e9e5b49234"], Cell[1139378, 21770, 1482, 35, 231, "Input",ExpressionUUID->"79ff650a-82ef-4f0d-9454-a09fc74c934d"] }, Closed]], Cell[CellGroupData[{ Cell[1140897, 21810, 898, 23, 328, "Subsubsection",ExpressionUUID->"e53e2c05-16fd-420f-8ab0-0e81f0cfa078"], Cell[1141798, 21835, 1475, 35, 393, "Input",ExpressionUUID->"61af5b76-71b4-4d71-b4d9-0a7952594e0d"] }, Closed]], Cell[CellGroupData[{ Cell[1143310, 21875, 951, 24, 328, "Subsubsection",ExpressionUUID->"b1d68eaa-715d-4375-b4ee-15efc8a10a46"], Cell[1144264, 21901, 1486, 35, 231, "Input",ExpressionUUID->"15d90e58-06ea-4c13-86ce-0187ba1bf647"] }, Closed]], Cell[CellGroupData[{ Cell[1145787, 21941, 1103, 30, 328, "Subsubsection",ExpressionUUID->"dc9b07a6-de59-4fd3-af72-ccf4d0eda904"], Cell[1146893, 21973, 1803, 43, 393, "Input",ExpressionUUID->"3d565cab-275b-4bd0-99a9-5a92abbd118c"] }, Closed]], Cell[CellGroupData[{ Cell[1148733, 22021, 1283, 41, 344, "Subsubsection",ExpressionUUID->"81f84422-a48e-4f87-bb6a-855bd4441a73"], Cell[1150019, 22064, 2158, 54, 708, "Input",ExpressionUUID->"2e3930e7-b94e-4dbd-b2aa-f4b29eed10cd"], Cell[CellGroupData[{ Cell[1152202, 22122, 337, 8, 231, "Input",ExpressionUUID->"11a31063-9949-45a5-bd2d-484f70e21a90"], Cell[1152542, 22132, 62244, 1746, 157, "Output",ExpressionUUID->"7ba55ba8-3ab3-4450-a9a1-b18a601fc23a"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[1214835, 23884, 1010, 25, 328, "Subsubsection",ExpressionUUID->"e8e96f1d-40ac-440f-a36b-82e4c982f252"], Cell[1215848, 23911, 1365, 32, 231, "Input",ExpressionUUID->"e92e137d-ef0c-461c-ad77-bea30f6ef680"] }, Closed]], Cell[CellGroupData[{ Cell[1217250, 23948, 911, 23, 337, "Subsubsection",ExpressionUUID->"708a98cd-f91a-4a5b-970f-74ec587b0b67"], Cell[1218164, 23973, 1422, 33, 231, "Input",ExpressionUUID->"51f17f08-e240-4497-b766-24f5ee6316a2"] }, Closed]], Cell[CellGroupData[{ Cell[1219623, 24011, 1010, 25, 328, "Subsubsection",ExpressionUUID->"7e542a9e-7fb7-46c3-965f-ed3f499485a6"], Cell[1220636, 24038, 1589, 36, 393, "Input",ExpressionUUID->"80b4a854-295d-4a04-a521-c4404c26cfc2"] }, Closed]], Cell[CellGroupData[{ Cell[1222262, 24079, 1005, 25, 328, "Subsubsection",ExpressionUUID->"9afb6dc8-fdc9-450e-b535-125bbfaa8750"], Cell[1223270, 24106, 1534, 36, 393, "Input",ExpressionUUID->"cb42041a-cb3d-4d96-94c1-0b7713bdb159"] }, Closed]], Cell[CellGroupData[{ Cell[1224841, 24147, 1059, 26, 328, "Subsubsection",ExpressionUUID->"6a86b3f8-6f53-46d9-97d4-d1cc8c21394f"], Cell[1225903, 24175, 1413, 33, 231, "Input",ExpressionUUID->"b811fe4b-3c6a-4a5b-adf2-9a3603be49f7"] }, Closed]], Cell[CellGroupData[{ Cell[1227353, 24213, 956, 23, 337, "Subsubsection",ExpressionUUID->"1217fac4-e268-49ea-81fc-bc28d3cc1d8d"], Cell[1228312, 24238, 1468, 33, 231, "Input",ExpressionUUID->"820ee4f6-8243-4736-8b56-d8976ce29cd1"] }, Closed]], Cell[CellGroupData[{ Cell[1229817, 24276, 1056, 25, 328, "Subsubsection",ExpressionUUID->"3d713b56-1d0f-4b96-9cee-24b3fe4877ae"], Cell[1230876, 24303, 1639, 37, 393, "Input",ExpressionUUID->"8a4b52db-7d41-47ee-ab2a-44c42cfe6574"] }, Closed]], Cell[CellGroupData[{ Cell[1232552, 24345, 1053, 25, 328, "Subsubsection",ExpressionUUID->"7b765d02-95dd-4366-afe9-c2d75e9dc169"], Cell[1233608, 24372, 1578, 36, 393, "Input",ExpressionUUID->"2e770263-ec24-4f04-bb0d-5e97ef766a2f"] }, Closed]], Cell[CellGroupData[{ Cell[1235223, 24413, 1410, 42, 344, "Subsubsection",ExpressionUUID->"b610785b-3330-4368-9551-b240f88d4600"], Cell[1236636, 24457, 2324, 57, 708, "Input",ExpressionUUID->"fff7898c-a6fb-49c9-835a-6ee65d4f1755"], Cell[CellGroupData[{ Cell[1238985, 24518, 286, 5, 231, "Input",ExpressionUUID->"850d007c-5a7f-4173-b44a-d651832bcadc"], Cell[1239274, 24525, 12025, 306, 157, "Output",ExpressionUUID->"77f86501-2556-4199-8a42-9efec93afc89"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[1251348, 24837, 559, 8, 267, "Subsubsection",ExpressionUUID->"1e21029e-2e90-43fa-9df8-1ed556709fbf"], Cell[1251910, 24847, 2727, 49, 551, "Input",ExpressionUUID->"dea0cec7-c4c6-447c-8ba7-3ce80eecde09"], Cell[CellGroupData[{ Cell[1254662, 24900, 211, 4, 231, "Input",ExpressionUUID->"641ada1b-0f02-42ff-9c8b-3c84ed9b31ad"], Cell[1254876, 24906, 11727, 302, 157, "Output",ExpressionUUID->"9ab06abd-cede-4bd8-816a-a98725a49c13"] }, Open ]], Cell[1266618, 25211, 2222, 36, 231, "Input",ExpressionUUID->"5cc14181-4778-47d2-bf0f-5202ebe31c74"] }, Open ]], Cell[CellGroupData[{ Cell[1268877, 25252, 606, 8, 337, "Subsubsection",ExpressionUUID->"4ec82ef1-79f9-47c1-a124-8111854e05eb"], Cell[CellGroupData[{ Cell[1269508, 25264, 287, 5, 231, "Input",ExpressionUUID->"6b59faba-e577-48e5-b9d6-3ea49a276bdb"], Cell[1269798, 25271, 483, 12, 157, "Output",ExpressionUUID->"cb05ca4d-fb8c-45b0-afe7-f19e56164b77"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[1270330, 25289, 579, 8, 267, "Subsubsection",ExpressionUUID->"efc81674-9fe7-43d1-9a6e-0cad028a9f5f"], Cell[CellGroupData[{ Cell[1270934, 25301, 818, 20, 231, "Input",ExpressionUUID->"324743f3-9450-414a-a80e-ac6e1848aa38"], Cell[1271755, 25323, 5576, 175, 157, "Output",ExpressionUUID->"1fe14522-c265-4437-8e9d-c60e5e57e93a"] }, Open ]], Cell[1277346, 25501, 1158, 29, 551, "Input",ExpressionUUID->"aa91ca47-eb48-4460-a1dd-b55fb0839382"], Cell[CellGroupData[{ Cell[1278529, 25534, 696, 14, 231, "Input",ExpressionUUID->"9984847a-b619-4637-8024-6f9afdeec397"], Cell[1279228, 25550, 12299, 398, 157, "Output",ExpressionUUID->"0656378e-6ab8-4280-9361-218d0dc237f0"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1291576, 25954, 587, 8, 337, "Subsubsection",ExpressionUUID->"b81693a5-99e4-4336-9bf6-9460db37b893"], Cell[CellGroupData[{ Cell[1292188, 25966, 305, 7, 231, "Input",ExpressionUUID->"50c40c9e-85c1-445b-9c48-8f4730b36c62"], Cell[1292496, 25975, 383, 10, 157, "Output",ExpressionUUID->"69d74900-41ac-4db8-81e8-3479dd869410"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1292928, 25991, 689, 22, 3066, "Subsubsection",ExpressionUUID->"f51c2ab5-f9e2-4b6f-a1af-4acc02611799"], Cell[1293620, 26015, 1307, 37, 231, "Input",ExpressionUUID->"91529b2c-8eea-4564-8cf3-57b2c0c75b2a"], Cell[CellGroupData[{ Cell[1294952, 26056, 1771, 43, 393, "Input",ExpressionUUID->"9f3f38d6-4d8a-4ff2-bb7c-3251e45afffe"], Cell[1296726, 26101, 205, 4, 157, "Output",ExpressionUUID->"9ba459df-1471-4385-9174-34328f636885"] }, Open ]] }, Open ]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[1297004, 26113, 190, 3, 175, "Section",ExpressionUUID->"84b247f4-ee56-4274-bd15-8ccd45286fee"], Cell[CellGroupData[{ Cell[1297219, 26120, 720, 18, 231, "Input",ExpressionUUID->"4a157cc0-e04f-4db8-a2af-ba7f381ab312"], Cell[1297942, 26140, 232, 4, 157, "Output",ExpressionUUID->"b26e11b1-ddbd-4a59-a203-421f3f2ea31f"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[1298223, 26150, 952, 26, 348, "Section",ExpressionUUID->"49f4e60a-1458-4862-b69c-34bd19ad322f"], Cell[CellGroupData[{ Cell[1299200, 26180, 177, 3, 182, "Subsection",ExpressionUUID->"c1c4e56f-5b25-441f-9fd8-7ab145d549b4"], Cell[1299380, 26185, 1007, 22, 393, "Input",ExpressionUUID->"8048423e-0fc4-4825-b264-416e5853107b"], Cell[1300390, 26209, 757, 17, 231, "Input",ExpressionUUID->"19122f13-022f-484f-a248-be42552a0e3e"], Cell[1301150, 26228, 2609, 64, 551, "Input",ExpressionUUID->"c464cb75-4b9a-4d89-96c6-3c4757ad5d3f"], Cell[1303762, 26294, 583, 13, 231, "Input",ExpressionUUID->"e6081ac7-3e76-4efa-b374-ee56b50dcba9"], Cell[1304348, 26309, 777, 20, 393, "Input",ExpressionUUID->"27aac183-4346-482c-a49b-fdc459fa6a84"], Cell[1305128, 26331, 1728, 44, 551, "Input",ExpressionUUID->"5c2e8330-954c-4247-a4dc-a0f40f6f428d"], Cell[1306859, 26377, 725, 19, 393, "Input",ExpressionUUID->"e9a83383-e918-43c8-a674-a28bd1d8ab56"], Cell[1307587, 26398, 1281, 32, 393, "Input",ExpressionUUID->"ba2c998e-7cf3-45e7-9287-9ab1079b8d90"], Cell[1308871, 26432, 1606, 33, 231, "Input",ExpressionUUID->"22907a85-64fe-448f-9d0d-ee4dba7c67d6"], Cell[1310480, 26467, 1092, 25, 231, "Input",ExpressionUUID->"a8e95eaf-95a1-4b39-a902-712a12f84b45"], Cell[1311575, 26494, 576, 15, 231, "Input",ExpressionUUID->"6ef83dbe-e3cf-4a0e-9314-ab418cad60d8"], Cell[CellGroupData[{ Cell[1312176, 26513, 166, 3, 337, "Subsubsection",ExpressionUUID->"db4d44bb-da08-4e1f-8db1-a7ec7eb3fa45"], Cell[CellGroupData[{ Cell[1312367, 26520, 513, 12, 231, "Input",ExpressionUUID->"cb6915d4-bf38-4387-b1be-127342e0e774"], Cell[1312883, 26534, 670, 13, 157, "Message",ExpressionUUID->"3c84066a-754e-49b7-a5db-b69ab3f38366"], Cell[1313556, 26549, 672, 13, 157, "Message",ExpressionUUID->"d5c3591c-8368-4bf9-8be0-19a13bbf4632"], Cell[1314231, 26564, 670, 13, 157, "Message",ExpressionUUID->"24ce32ee-7a84-4022-a5ee-d3bbd5b46134"], Cell[1314904, 26579, 475, 10, 157, "Message",ExpressionUUID->"9a48c4fb-25c1-4580-a82d-c6cec7ea712e"], Cell[1315382, 26591, 89288, 2428, 157, "Output",ExpressionUUID->"703074bf-d391-405d-9596-d12517e4962a"] }, Open ]], Cell[CellGroupData[{ Cell[1404707, 29024, 309, 7, 231, "Input",ExpressionUUID->"089e572a-bbe0-4650-bf15-f55235566e99"], Cell[1405019, 29033, 13792, 373, 157, "Output",ExpressionUUID->"82c46baf-56bc-494a-8eb8-1786d5b83e82"] }, Open ]], Cell[CellGroupData[{ Cell[1418848, 29411, 488, 10, 231, "Input",ExpressionUUID->"88a79505-8a21-411d-8df5-09aef013d43b"], Cell[1419339, 29423, 13790, 373, 157, "Output",ExpressionUUID->"84eb588c-98e8-4955-a6b6-e80f8cc0133d"] }, Open ]], Cell[CellGroupData[{ Cell[1433166, 29801, 1696, 36, 393, "Input",ExpressionUUID->"b64e1c4b-51b1-43d2-bd90-6b7011575516"], Cell[1434865, 29839, 145747, 3474, 157, "Output",ExpressionUUID->"3ef3697a-e450-48c5-a78c-ab58601e10c3"] }, Open ]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[1580673, 33320, 514, 9, 306, "Subsection",ExpressionUUID->"8a0bf033-a4e4-4871-b7e6-05ad6c104523"], Cell[1581190, 33331, 361, 8, 393, "Input",ExpressionUUID->"4683d8fe-e6ce-4de5-8a7c-5f2ea6a37bfc"] }, Closed]], Cell[CellGroupData[{ Cell[1581588, 33344, 908, 19, 148, "Subsection",ExpressionUUID->"231a1b16-656b-454b-bdf7-3325c412556f"], Cell[CellGroupData[{ Cell[1582521, 33367, 1082, 25, 398, "Subsubsection",ExpressionUUID->"1d0519df-4c37-4fa6-88cf-82f165397828"], Cell[CellGroupData[{ Cell[1583628, 33396, 1535, 31, 519, "Input",ExpressionUUID->"4e6c58c5-5ec1-451d-b6fe-3bde011d8664"], Cell[1585166, 33429, 225, 4, 157, "Output",ExpressionUUID->"916786a7-8349-4ba0-acbe-50224f0725ee"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[1585440, 33439, 1099, 26, 328, "Subsubsection",ExpressionUUID->"a23a8e07-8825-4394-a44d-e2d261dac7cf"], Cell[CellGroupData[{ Cell[1586564, 33469, 1424, 29, 519, "Input",ExpressionUUID->"8500d42d-260e-49c0-855e-fb7f218c5df1"], Cell[1587991, 33500, 228, 4, 157, "Output",ExpressionUUID->"7090f39d-fe52-49bf-b0f7-1363c9a6ea86"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[1588268, 33510, 1249, 28, 328, "Subsubsection",ExpressionUUID->"7977f7ab-7eff-42f4-8821-0c5ced46ea89"], Cell[CellGroupData[{ Cell[1589542, 33542, 1581, 31, 519, "Input",ExpressionUUID->"5e75bf5b-df0a-4381-864e-81c44842e459"], Cell[1591126, 33575, 225, 4, 157, "Output",ExpressionUUID->"cba3d420-bc7c-40a9-b62c-37746a03dbc1"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[1591400, 33585, 1151, 27, 328, "Subsubsection",ExpressionUUID->"1555d8fb-2a93-458b-a491-307771530922"], Cell[CellGroupData[{ Cell[1592576, 33616, 1480, 30, 519, "Input",ExpressionUUID->"efce4fef-e0e2-4ecd-b8d7-2b19c904084a"], Cell[1594059, 33648, 223, 4, 157, "Output",ExpressionUUID->"74622c00-538c-430a-8d60-1ae9a3edba22"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[1594331, 33658, 1196, 27, 328, "Subsubsection",ExpressionUUID->"898b3dbe-11e0-46c0-bae6-43cb7b3573f6"], Cell[CellGroupData[{ Cell[1595552, 33689, 1478, 30, 519, "Input",ExpressionUUID->"dfe44fe0-84e0-4655-9a80-edc1d9ddbffa"], Cell[1597033, 33721, 227, 4, 157, "Output",ExpressionUUID->"d2361824-1cdc-4f17-a48a-4db302dd98a2"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[1597309, 33731, 1190, 28, 328, "Subsubsection",ExpressionUUID->"3c792501-93d9-4464-b13c-455b322a6582"], Cell[CellGroupData[{ Cell[1598524, 33763, 2039, 45, 1239, "Input",ExpressionUUID->"f0adffa8-01ed-463b-a9bb-12869100774d"], Cell[1600566, 33810, 224, 4, 157, "Output",ExpressionUUID->"58efd707-372b-43dc-bd7f-c95f50649be8"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[1600839, 33820, 2432, 61, 551, "Subsubsection",ExpressionUUID->"89b7b384-8055-477e-b7ea-4cc3979f5551"], Cell[1603274, 33883, 2011, 53, 551, "Input",ExpressionUUID->"bea29f96-3fa4-4f7d-9737-9f3676515625"], Cell[1605288, 33938, 1095, 29, 231, "Input",ExpressionUUID->"74dbdf26-def6-4783-9b27-6e9c887bfd2f"], Cell[CellGroupData[{ Cell[1606408, 33971, 2473, 52, 551, "Input",ExpressionUUID->"580aefe5-938f-4dac-ac93-2a536799a5ae"], Cell[1608884, 34025, 225, 4, 157, "Output",ExpressionUUID->"bbbe487a-a25e-4f05-91e4-a6d592567cd6"] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[1609170, 34036, 960, 19, 148, "Subsection",ExpressionUUID->"a4501bf7-c65f-45e2-8e1f-64df51de0b67"], Cell[CellGroupData[{ Cell[1610155, 34059, 29724, 493, 193, "Subsubsection",ExpressionUUID->"c037d1a5-01ab-480d-9064-d37f11e0d6ad"], Cell[CellGroupData[{ Cell[1639904, 34556, 2353, 53, 1593, "Input",ExpressionUUID->"1275d9a6-70e9-4551-b215-1491fea58122"], Cell[1642260, 34611, 231, 4, 157, "Output",ExpressionUUID->"791c9c18-d120-4332-b23a-229ae47c7a30"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[1642540, 34621, 29485, 489, 155, "Subsubsection",ExpressionUUID->"c9d2c55a-848e-49dc-8b2c-7aa260c9aa38"], Cell[CellGroupData[{ Cell[1672050, 35114, 2399, 53, 1593, "Input",ExpressionUUID->"4447456d-4f2c-4863-80a6-20703d72957a"], Cell[1674452, 35169, 249, 4, 157, "Output",ExpressionUUID->"ac4721c5-8a70-4be3-878e-c6d9af91be5c"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[1674750, 35179, 30506, 506, 153, "Subsubsection",ExpressionUUID->"395d1396-9be7-40e7-99fa-7a716438f11c"], Cell[CellGroupData[{ Cell[1705281, 35689, 2396, 53, 1593, "Input",ExpressionUUID->"cf370cb1-416a-45d4-9216-6b5d997d9d85"], Cell[1707680, 35744, 223, 4, 157, "Output",ExpressionUUID->"37b088df-063c-4f7a-8cdc-574157c69227"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[1707952, 35754, 30881, 511, 159, "Subsubsection",ExpressionUUID->"d418a05a-a735-438f-a82d-7abc39c84cb7"], Cell[CellGroupData[{ Cell[1738858, 36269, 2496, 55, 1593, "Input",ExpressionUUID->"76158874-97d0-4920-93b8-3313abf66a0e"], Cell[1741357, 36326, 253, 4, 157, "Output",ExpressionUUID->"8d3ff499-e248-49b9-a3d2-19a8bf3b56e2"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[1741659, 36336, 31093, 515, 162, "Subsubsection",ExpressionUUID->"05dda03b-8067-497c-8664-ea914d70c897"], Cell[CellGroupData[{ Cell[1772777, 36855, 2537, 56, 1593, "Input",ExpressionUUID->"a900ec29-3dd8-4811-a9d8-4159f91da949"], Cell[1775317, 36913, 231, 4, 157, "Output",ExpressionUUID->"1c927e1c-c096-4472-8497-28aeaa99420d"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[1775597, 36923, 30799, 510, 153, "Subsubsection",ExpressionUUID->"41f59a30-2c67-4b43-ad1c-5ceca898d1c9"], Cell[CellGroupData[{ Cell[1806421, 37437, 2635, 57, 1593, "Input",ExpressionUUID->"07e48308-2e27-4655-a6c0-d76e6e7fa5d7"], Cell[1809059, 37496, 249, 4, 157, "Output",ExpressionUUID->"16dd6cf7-7989-4d96-9feb-46583dd33f26"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[1809357, 37506, 31602, 524, 144, "Subsubsection",ExpressionUUID->"4e2a5754-ab2d-4870-8e36-95dd9f8a769f"], Cell[CellGroupData[{ Cell[1840984, 38034, 2687, 58, 1593, "Input",ExpressionUUID->"afb146d0-c180-4c3c-a3a6-b147df680fea"], Cell[1843674, 38094, 276, 5, 157, "Output",ExpressionUUID->"736cbc8c-d3c8-4849-a511-897a69f7e191"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[1843999, 38105, 31783, 526, 159, "Subsubsection",ExpressionUUID->"dbe5eadb-ec03-455f-aeca-1acdb180fe2d"], Cell[CellGroupData[{ Cell[1875807, 38635, 2733, 58, 708, "Input",ExpressionUUID->"94d98dac-20eb-47ff-addb-b36c553302e3"], Cell[1878543, 38695, 296, 5, 157, "Output",ExpressionUUID->"bffc7ec3-2ee9-49b3-8985-bbddadb75908"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[1878888, 38706, 37555, 622, 150, "Subsubsection",ExpressionUUID->"cf72f5a0-6cde-483e-ac2d-6dfd434ba716"], Cell[CellGroupData[{ Cell[1916468, 39332, 501, 12, 231, "Input",ExpressionUUID->"ec6be47f-a7b0-455c-bb97-67b318c06484"], Cell[1916972, 39346, 958, 27, 157, "Output",ExpressionUUID->"10d44b60-bec6-4067-8bf1-28d502e7a9bd"] }, Open ]], Cell[CellGroupData[{ Cell[1917967, 39378, 725, 19, 231, "Input",ExpressionUUID->"59f23b06-d92a-486e-945a-0f131bb7d2e1"], Cell[1918695, 39399, 1014, 28, 157, "Output",ExpressionUUID->"7cd68cc1-c846-44ea-8225-3c7b1ad465a5"] }, Open ]], Cell[CellGroupData[{ Cell[1919746, 39432, 4172, 98, 864, "Input",ExpressionUUID->"8d1f35f9-03ae-4ef8-b773-3787f7466a27"], Cell[1923921, 39532, 327, 6, 157, "Output",ExpressionUUID->"3f3d291a-16ec-43c1-a68f-48e3e8967728"] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[1924309, 39545, 272, 4, 182, "Subsection",ExpressionUUID->"2bf50357-56b5-4a46-b6f3-0a9c8c2e92b9"], Cell[CellGroupData[{ Cell[1924606, 39553, 784, 19, 245, "Input",ExpressionUUID->"60a4c4ed-61d9-4acb-8473-5067281d64ca"], Cell[1925393, 39574, 233, 4, 117, "Output",ExpressionUUID->"b126079a-1ac3-41a9-ac02-9b58c02dc8cf"], Cell[1925629, 39580, 228, 4, 117, "Output",ExpressionUUID->"310ec3bd-a14a-4f14-9cdc-717f474f6bc3"], Cell[1925860, 39586, 230, 4, 117, "Output",ExpressionUUID->"c970308a-5045-4bfe-bf9a-956c36c4582b"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1926139, 39596, 250, 4, 182, "Subsection",ExpressionUUID->"ce746ac7-01b2-483b-9190-1d8878b0e6da"], Cell[1926392, 39602, 516, 12, 245, "Input",ExpressionUUID->"4f8f0bae-9ec4-4fa1-8f05-7aa6c0a6e137"] }, Open ]], Cell[CellGroupData[{ Cell[1926945, 39619, 1009, 21, 229, "Subsection",ExpressionUUID->"f63683a9-76c4-492b-84a0-1d3685d7d2b3"], Cell[CellGroupData[{ Cell[1927979, 39644, 1189, 32, 159, "Subsubsection",ExpressionUUID->"d2083a11-d487-4d07-a416-7dc059135060"], Cell[1929171, 39678, 798, 21, 708, "Input",ExpressionUUID->"e0304248-b9eb-4fc2-b394-4331be1163f3"], Cell[CellGroupData[{ Cell[1929994, 39703, 1344, 33, 231, "Input",ExpressionUUID->"9003f8eb-059e-4dd8-89b7-1c71f29ef4bb"], Cell[1931341, 39738, 1458, 45, 157, "Output",ExpressionUUID->"c9dcc9e5-ad5b-4b79-b9e7-ecd2b7ad7d21"] }, Open ]], Cell[1932814, 39786, 174, 3, 231, "Input",ExpressionUUID->"52531c8c-c295-4f47-99c3-b7b2347d32af"], Cell[CellGroupData[{ Cell[1933013, 39793, 388, 9, 231, "Input",ExpressionUUID->"e3a1dc0d-ba87-4421-85b3-eb122b3fee98"], Cell[1933404, 39804, 408, 10, 157, "Output",ExpressionUUID->"dbc202f6-66f2-4437-b7ee-1d5bce2f3f96"] }, Open ]], Cell[CellGroupData[{ Cell[1933849, 39819, 610, 16, 231, "Input",ExpressionUUID->"3399832b-f84f-4186-85bc-734418af05db"], Cell[1934462, 39837, 3643, 102, 157, "Output",ExpressionUUID->"b9560cc2-9cd7-4efd-954c-bff9f157e0f7"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[1938154, 39945, 1209, 29, 162, "Subsubsection",ExpressionUUID->"fb9af884-56ba-4e29-ba22-167757593c8d"], Cell[1939366, 39976, 456, 11, 393, "Input",ExpressionUUID->"b31b49a9-e5f8-4f3f-b008-d2570ca6937d"], Cell[1939825, 39989, 1208, 29, 551, "Input",ExpressionUUID->"40fc86c8-49e3-4f44-b56d-49844e741ecb"], Cell[1941036, 40020, 2285, 52, 864, "Input",ExpressionUUID->"01203cbe-1ce0-47d9-8fd1-aaadb13528d0"], Cell[CellGroupData[{ Cell[1943346, 40076, 399, 9, 231, "Input",ExpressionUUID->"a676158b-5747-447c-8bf9-1a8725639941"], Cell[1943748, 40087, 222, 4, 157, "Output",ExpressionUUID->"7ff14422-3de1-4302-ba76-dbceb9f75e0f"] }, Open ]], Cell[1943985, 40094, 256, 5, 231, "Input",ExpressionUUID->"355a4014-a967-4c00-8a7c-9ac28f259c8b"] }, Closed]], Cell[CellGroupData[{ Cell[1944278, 40104, 1251, 29, 162, "Subsubsection",ExpressionUUID->"729edd39-124f-4c6e-846a-e4426174199d"], Cell[1945532, 40135, 407, 10, 393, "Input",ExpressionUUID->"3ca3f6b6-a9bd-4e2e-b091-bcd176a92c9a"], Cell[1945942, 40147, 1206, 29, 551, "Input",ExpressionUUID->"5b59b617-a5e7-44ae-8bbc-5d6bb5535641"], Cell[1947151, 40178, 2281, 52, 864, "Input",ExpressionUUID->"357a811b-b19a-4606-8560-e66992dbca91"], Cell[CellGroupData[{ Cell[1949457, 40234, 399, 9, 231, "Input",ExpressionUUID->"78a28b4c-5e21-42e3-80a4-ae2018da4692"], Cell[1949859, 40245, 226, 4, 157, "Output",ExpressionUUID->"66f24b80-a4b8-46cf-b516-1a4b41e0eeec"] }, Open ]], Cell[1950100, 40252, 256, 5, 231, "Input",ExpressionUUID->"df0eda8d-6231-4935-b68d-f70491203713"] }, Closed]], Cell[CellGroupData[{ Cell[1950393, 40262, 1300, 30, 162, "Subsubsection",ExpressionUUID->"24968e46-3b53-4604-a916-a310238ddd02"], Cell[1951696, 40294, 460, 11, 393, "Input",ExpressionUUID->"92f5594f-2020-4a1f-95ee-70edd01c0293"], Cell[1952159, 40307, 1210, 29, 551, "Input",ExpressionUUID->"f4ad161c-a759-4e94-a348-a5a25afca031"], Cell[1953372, 40338, 2281, 52, 864, "Input",ExpressionUUID->"95a405f2-bc85-458c-93bc-4d42775aa2e4"], Cell[CellGroupData[{ Cell[1955678, 40394, 399, 9, 231, "Input",ExpressionUUID->"c5d8e276-8e9a-415c-90ee-6786e02b14b6"], Cell[1956080, 40405, 225, 4, 157, "Output",ExpressionUUID->"3c2e03fd-4cbe-4b30-9669-4945b661330a"] }, Open ]], Cell[1956320, 40412, 256, 5, 231, "Input",ExpressionUUID->"09d55b3d-413f-4abd-b33f-305b34181393"] }, Closed]], Cell[CellGroupData[{ Cell[1956613, 40422, 1357, 31, 162, "Subsubsection",ExpressionUUID->"689100a5-b296-4717-afda-f31b3c94d97a"], Cell[1957973, 40455, 509, 12, 175, "Input",ExpressionUUID->"39f8cfa2-1aa2-4c4e-bdc6-249b0927be9b"], Cell[1958485, 40469, 1206, 29, 245, "Input",ExpressionUUID->"97a2bc34-de45-4b16-adee-2d0032a857f3"], Cell[1959694, 40500, 2282, 52, 384, "Input",ExpressionUUID->"931a726b-76c0-4d97-930c-5c1f9fec6795"], Cell[CellGroupData[{ Cell[1962001, 40556, 399, 9, 103, "Input",ExpressionUUID->"f8367145-4ad9-4437-98c0-a59023c0778d"], Cell[1962403, 40567, 225, 4, 157, "Output",ExpressionUUID->"5b594647-bbf2-4bde-86bf-8570a3260a0f"] }, Open ]], Cell[1962643, 40574, 256, 5, 103, "Input",ExpressionUUID->"0fd5b232-f706-4c2d-ad8d-2ea0e1933743"] }, Closed]], Cell[CellGroupData[{ Cell[1962936, 40584, 1394, 31, 162, "Subsubsection",ExpressionUUID->"7f89c892-adc9-4712-8c76-a75e80fbf51b"], Cell[1964333, 40617, 559, 12, 393, "Input",ExpressionUUID->"bf5608bf-629a-4e98-a3c7-5b2b9ae0bc95"], Cell[1964895, 40631, 1208, 29, 551, "Input",ExpressionUUID->"b626310b-6433-45ec-99b0-f391377efa5a"], Cell[1966106, 40662, 2280, 52, 864, "Input",ExpressionUUID->"681ac2fb-7b53-42e4-8510-db23bd158481"], Cell[CellGroupData[{ Cell[1968411, 40718, 399, 9, 231, "Input",ExpressionUUID->"1859885f-1591-4da0-81d0-11ef57f512af"], Cell[1968813, 40729, 244, 4, 157, "Output",ExpressionUUID->"a93b459e-c109-4ac0-ba6b-7a12c8a5dce1"] }, Open ]], Cell[1969072, 40736, 256, 5, 231, "Input",ExpressionUUID->"4107736b-a577-484e-992a-a52d5f3749d9"] }, Closed]], Cell[CellGroupData[{ Cell[1969365, 40746, 3306, 83, 411, "Subsubsection",ExpressionUUID->"5bebdfc2-7bb7-4f1c-b428-198239f14f11"], Cell[1972674, 40831, 313, 6, 103, "Input",ExpressionUUID->"83dc1a3a-1e30-437c-842c-32c0dad384c7"], Cell[1972990, 40839, 2556, 67, 315, "Input",ExpressionUUID->"cf61552b-3644-46fa-8191-8915572b836c"], Cell[1975549, 40908, 1196, 30, 103, "Input",ExpressionUUID->"3299d358-d418-40d6-957e-ef6eac257157"], Cell[1976748, 40940, 3068, 63, 384, "Input",ExpressionUUID->"fc5016dc-745b-4983-9a7e-c1c026a76025"], Cell[CellGroupData[{ Cell[1979841, 41007, 408, 9, 103, "Input",ExpressionUUID->"068d1211-c965-4e88-acfc-70303b15cd44"], Cell[1980252, 41018, 301, 6, 157, "Output",ExpressionUUID->"fc321726-c168-4bd2-b1c5-c0f70b7e80bb"] }, Open ]], Cell[1980568, 41027, 2479, 55, 384, "Input",ExpressionUUID->"f9ee63e6-bf5c-4bef-97c5-d59e3feb5edf"], Cell[CellGroupData[{ Cell[1983072, 41086, 450, 10, 103, "Input",ExpressionUUID->"b5b5d84b-8666-4a68-91db-24877c153f21"], Cell[1983525, 41098, 225, 4, 157, "Output",ExpressionUUID->"64f29f79-218d-45c2-aeee-2357db0fbf42"] }, Open ]], Cell[1983765, 41105, 273, 5, 103, "Input",ExpressionUUID->"51446d97-6fcf-48d4-bc24-c512a5607a09"] }, Closed]], Cell[CellGroupData[{ Cell[1984075, 41115, 450, 8, 207, "Subsubsection",ExpressionUUID->"81f3b4e5-ad4a-407f-b63c-64c85b3476bb"], Cell[1984528, 41125, 413, 9, 175, "Input",ExpressionUUID->"3929eeb1-a8ec-4526-bfb3-76d1060d680d"], Cell[1984944, 41136, 976, 24, 175, "Input",ExpressionUUID->"cb9ac637-3688-4a1d-ac87-2bff8fd4fa30"], Cell[1985923, 41162, 1481, 35, 245, "Input",ExpressionUUID->"bfd7b5ad-3b11-4bb2-8ef2-8336930c3146"], Cell[CellGroupData[{ Cell[1987429, 41201, 415, 9, 103, "Input",ExpressionUUID->"8e380d10-1a1e-4354-af2f-0f8c97994668"], Cell[1987847, 41212, 249, 5, 117, "Output",ExpressionUUID->"6773223e-0c88-4c6b-855e-0810c9284303"] }, Open ]], Cell[CellGroupData[{ Cell[1988133, 41222, 961, 22, 103, "Input",ExpressionUUID->"773bed33-f001-4a41-ac11-65c35f4df62a"], Cell[1989097, 41246, 403, 10, 76, "Message",ExpressionUUID->"42730818-84e7-4dec-8a02-7359a97705db"] }, Open ]], Cell[CellGroupData[{ Cell[1989537, 41261, 362, 8, 103, "Input",ExpressionUUID->"44f5b1a6-8f04-4e8a-b155-bd9199346bee"], Cell[1989902, 41271, 247, 5, 117, "Output",ExpressionUUID->"bff32ee6-878a-4502-869d-ece29ab7f7e9"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[1990198, 41282, 1766, 39, 164, "Subsubsection",ExpressionUUID->"4e199379-bfe4-4a28-9363-74078207059f"], Cell[1991967, 41323, 293, 6, 103, "Input",ExpressionUUID->"28dbe485-88d0-4c52-a02e-2c76039dd8d6"], Cell[1992263, 41331, 2811, 59, 384, "Input",ExpressionUUID->"593bd850-8600-4d5f-b77d-83552557867d"], Cell[1995077, 41392, 1822, 35, 175, "Input",ExpressionUUID->"126d6f6b-6c3a-490f-8a41-9516186536c3"], Cell[CellGroupData[{ Cell[1996924, 41431, 745, 19, 175, "Input",ExpressionUUID->"f7058c4c-b17a-4cd9-8d75-653112c38988"], Cell[1997672, 41452, 34215, 1024, 2160, "Output",ExpressionUUID->"47b56545-402f-4606-be54-c816068af38c"] }, Open ]], Cell[CellGroupData[{ Cell[2031924, 42481, 1508, 40, 245, "Input",ExpressionUUID->"71b638ca-d2ec-431d-be2d-19acefa9eefe"], Cell[2033435, 42523, 202, 4, 157, "Output",ExpressionUUID->"e4f32c7c-bc90-4d04-95ad-010e9d62e2e4"] }, Open ]], Cell[CellGroupData[{ Cell[2033674, 42532, 214, 3, 175, "Input",ExpressionUUID->"2b886a19-ce40-4f4e-8be9-c35fbf3b9ef2"], Cell[2033891, 42537, 202, 4, 157, "Output",ExpressionUUID->"e75c8486-de3f-48f1-8dc5-a8ff6f8881a8"], Cell[2034096, 42543, 202, 4, 157, "Output",ExpressionUUID->"03db5438-a074-4378-b9eb-e5fabaf91da0"] }, Open ]], Cell[2034313, 42550, 273, 5, 103, "Input",ExpressionUUID->"e7d57f5f-ce77-4b2e-bd0c-930a4f4255bb"] }, Closed]], Cell[CellGroupData[{ Cell[2034623, 42560, 382, 7, 119, "Subsubsection",ExpressionUUID->"a2c8f04a-0774-42d1-aaa5-4ce733fac499"], Cell[2035008, 42569, 249, 5, 175, "Input",ExpressionUUID->"f3927355-0030-4f05-8c7b-71a5422c2f34"], Cell[2035260, 42576, 3083, 74, 384, "Input",ExpressionUUID->"f643b038-21e8-4b34-831e-4a8ee9f24d8f"] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[2038392, 42656, 297, 7, 182, "Subsection",ExpressionUUID->"da07673b-a04f-478e-94dc-4bb5da36155b"], Cell[CellGroupData[{ Cell[2038714, 42667, 206, 5, 103, "Input",ExpressionUUID->"18f305bd-0852-4061-b344-a6386459a3ab"], Cell[2038923, 42674, 230, 5, 117, "Output",ExpressionUUID->"cbc149f9-e2e2-4300-8e41-44e72c6c66e7"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[2039202, 42685, 1869, 44, 369, "Subsection",ExpressionUUID->"b7de8be6-86f6-4396-9b5b-049e868ca721"], Cell[CellGroupData[{ Cell[2041096, 42733, 1469, 32, 281, "Subsubsection",ExpressionUUID->"0bf66b21-1968-431b-bb6c-fa4de97e2134"], Cell[2042568, 42767, 675, 14, 175, "Input",ExpressionUUID->"3b8381c4-2a9a-41fc-ad39-1ff2baafc616"], Cell[2043246, 42783, 1208, 29, 245, "Input",ExpressionUUID->"e5980583-6dff-4366-b64e-eb214df1483b"], Cell[2044457, 42814, 2285, 52, 384, "Input",ExpressionUUID->"eb8531ff-0c19-4d49-89d4-7b775e3be544"], Cell[CellGroupData[{ Cell[2046767, 42870, 399, 9, 103, "Input",ExpressionUUID->"c8bac0b4-02cc-4578-b440-ceb7713e3913"], Cell[2047169, 42881, 205, 4, 117, "Output",ExpressionUUID->"4cbdc4ba-8493-4875-b117-d1747e57344a"] }, Open ]], Cell[CellGroupData[{ Cell[2047411, 42890, 354, 9, 103, "Input",ExpressionUUID->"ace15411-c320-4af0-a89b-6b8d9d4069e9"], Cell[2047768, 42901, 192, 4, 117, "Output",ExpressionUUID->"cdb154e5-2921-4b21-9a74-d8988c81f9be"] }, Open ]], Cell[CellGroupData[{ Cell[2047997, 42910, 660, 18, 103, "Input",ExpressionUUID->"7686ce19-b5ef-4884-bffb-ec6cbea1594e"], Cell[2048660, 42930, 401, 10, 76, "Message",ExpressionUUID->"b2f778df-8f56-4250-aadd-b2dff4b69856"], Cell[2049064, 42942, 7569, 202, 319, "Output",ExpressionUUID->"ea62a9be-111b-459a-b125-a788a263c50d"] }, Open ]], Cell[2056648, 43147, 998, 27, 175, "Input",ExpressionUUID->"16f95056-5db5-45dc-939f-74e6cb24423d"], Cell[2057649, 43176, 1001, 27, 175, "Input",ExpressionUUID->"9d32794e-bb97-4af7-adcf-5ce5d8660bd1"], Cell[2058653, 43205, 824, 23, 175, "Input",ExpressionUUID->"0d7de353-2e08-4ec6-991f-dbb0a9981634"], Cell[CellGroupData[{ Cell[2059502, 43232, 557, 16, 103, "Input",ExpressionUUID->"2bb3fdd5-bc83-4b38-9254-3eb76c7f20f7"], Cell[2060062, 43250, 170, 4, 117, "Output",ExpressionUUID->"99f05c4c-67f1-4264-9037-34f7082c49bc"] }, Open ]], Cell[2060247, 43257, 256, 5, 103, "Input",ExpressionUUID->"ec39cd71-f2af-4487-9bcd-434e02170984"] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[2060564, 43269, 973, 23, 513, "Section",ExpressionUUID->"001af4b3-a842-415b-93b5-f7c611a0c3da"], Cell[CellGroupData[{ Cell[2061562, 43296, 171, 3, 150, "Subsubsection",ExpressionUUID->"d709655d-8321-47e6-adf8-dca2e21c919f"], Cell[CellGroupData[{ Cell[2061758, 43303, 475, 9, 245, "Input",ExpressionUUID->"bacce989-d1a8-408e-bb7b-e3cc56f4640a"], Cell[2062236, 43314, 278, 5, 117, "Output",ExpressionUUID->"e6351ba0-071a-4240-b6a3-c95c96e0d8b6"], Cell[2062517, 43321, 281, 5, 117, "Output",ExpressionUUID->"3ffa2e9f-bd29-477a-b2fd-b623466f435a"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[2062847, 43332, 1063, 23, 193, "Subsubsection",ExpressionUUID->"205da802-785c-4106-bfff-b750ece28438"], Cell[2063913, 43357, 530, 12, 175, "Input",ExpressionUUID->"e9be1853-1d00-496f-a3a9-6c072ba66d8d"], Cell[2064446, 43371, 1165, 27, 175, "Input",ExpressionUUID->"a89cd3bb-a388-488f-8c03-f7203ab45395"], Cell[2065614, 43400, 2335, 53, 384, "Input",ExpressionUUID->"c4ae92e9-3d80-4033-9803-975670337b28"], Cell[CellGroupData[{ Cell[2067974, 43457, 399, 9, 103, "Input",ExpressionUUID->"4bc298cb-98b1-466e-b86e-a3ae9d4b1ab6"], Cell[2068376, 43468, 244, 4, 117, "Output",ExpressionUUID->"413222b7-c515-445d-b983-b3eccee85162"] }, Open ]], Cell[CellGroupData[{ Cell[2068657, 43477, 356, 9, 103, "Input",ExpressionUUID->"f18392eb-8f59-4899-a904-874448b929f9"], Cell[2069016, 43488, 354, 9, 76, "Message",ExpressionUUID->"fce31e6d-6087-4dfa-8512-a9887e6b3872"], Cell[2069373, 43499, 4583, 141, 328, "Output",ExpressionUUID->"085a95f3-4ada-4b94-81ec-0ba2cfd87975"] }, Open ]], Cell[2073971, 43643, 256, 5, 103, "Input",ExpressionUUID->"a56a8d08-0f22-4f75-b542-babb23fd35e8"] }, Closed]], Cell[CellGroupData[{ Cell[2074264, 43653, 1113, 24, 162, "Subsubsection",ExpressionUUID->"53415ce7-ac55-4e68-8bef-72fd7b8e636a"], Cell[2075380, 43679, 580, 13, 175, "Input",ExpressionUUID->"377d6340-3c37-417a-8ef6-04919b78e454"], Cell[2075963, 43694, 1165, 27, 175, "Input",ExpressionUUID->"ed88441a-6dfc-4abe-b429-4c24c2d2cfec"], Cell[2077131, 43723, 2335, 53, 384, "Input",ExpressionUUID->"379688bc-6783-4b46-8d7b-4b9a691b3c7f"], Cell[CellGroupData[{ Cell[2079491, 43780, 399, 9, 103, "Input",ExpressionUUID->"7338f086-ddeb-45fc-8dd5-e75a6ea29d9b"], Cell[2079893, 43791, 271, 5, 117, "Output",ExpressionUUID->"b091f4b1-3167-47bb-a9d1-e8bfae54e3fb"] }, Open ]], Cell[CellGroupData[{ Cell[2080201, 43801, 356, 9, 103, "Input",ExpressionUUID->"7b7a26e0-b31f-4b9b-89b1-20c48967ab30"], Cell[2080560, 43812, 377, 9, 76, "Message",ExpressionUUID->"8cc7adf2-24dd-40de-9f76-09697af85177"], Cell[2080940, 43823, 4747, 147, 398, "Output",ExpressionUUID->"20b2e5d6-13d5-407c-94f0-2d4a791b25ae"] }, Open ]], Cell[2085702, 43973, 256, 5, 103, "Input",ExpressionUUID->"ae697eaa-3f71-45d3-8b56-049710ea8150"] }, Closed]], Cell[CellGroupData[{ Cell[2085995, 43983, 1166, 25, 162, "Subsubsection",ExpressionUUID->"d076b219-9458-40e5-aacb-fbb83e119c43"], Cell[2087164, 44010, 629, 13, 175, "Input",ExpressionUUID->"d6129698-d87f-427e-aa4b-3b3b4ab1900f"], Cell[2087796, 44025, 1165, 27, 175, "Input",ExpressionUUID->"0f36dc3d-e424-4450-b7f1-a9f7bba8e790"], Cell[2088964, 44054, 2335, 53, 384, "Input",ExpressionUUID->"f242de21-f535-46df-a498-f1da79c7431b"], Cell[CellGroupData[{ Cell[2091324, 44111, 399, 9, 103, "Input",ExpressionUUID->"73cf7e80-390b-48f7-a75f-7fbf651cc0b6"], Cell[2091726, 44122, 273, 5, 117, "Output",ExpressionUUID->"6635ff9f-158d-4da3-afa2-fb20ae3d6d55"] }, Open ]], Cell[CellGroupData[{ Cell[2092036, 44132, 356, 9, 103, "Input",ExpressionUUID->"a95ca821-8dbc-4d55-a229-39fb35f7e267"], Cell[2092395, 44143, 379, 9, 76, "Message",ExpressionUUID->"5a35c4d8-35ff-4494-9196-ccaa843657b8"], Cell[2092777, 44154, 4467, 135, 328, "Output",ExpressionUUID->"db123894-90b1-44f4-ad78-f0e9df460b2a"] }, Open ]], Cell[2097259, 44292, 256, 5, 103, "Input",ExpressionUUID->"c7f8a92c-b9ff-4e65-bbca-a036a2ab8849"] }, Closed]], Cell[CellGroupData[{ Cell[2097552, 44302, 1168, 25, 162, "Subsubsection",ExpressionUUID->"ba47c5ee-adc6-41f0-b71d-2f146041f8e1"], Cell[2098723, 44329, 627, 13, 175, "Input",ExpressionUUID->"559ff950-6338-4ba4-b78f-1f63e2da7006"], Cell[2099353, 44344, 1165, 27, 175, "Input",ExpressionUUID->"0ca14021-5e7c-443f-b383-d2270bafc432"], Cell[2100521, 44373, 2335, 53, 384, "Input",ExpressionUUID->"2fa9ec1b-f77a-4aab-8868-bb55d8cd34d8"], Cell[CellGroupData[{ Cell[2102881, 44430, 399, 9, 103, "Input",ExpressionUUID->"7a73950a-97c7-4771-9976-a5a956c32697"], Cell[2103283, 44441, 304, 6, 117, "Output",ExpressionUUID->"7600d29b-e907-4e5c-8904-0f0d64f1341b"] }, Open ]], Cell[CellGroupData[{ Cell[2103624, 44452, 356, 9, 103, "Input",ExpressionUUID->"f4155be5-872f-4348-aa36-ab51ce842e46"], Cell[2103983, 44463, 406, 10, 76, "Message",ExpressionUUID->"a09b59dc-df13-422d-82da-4c94ada2ef79"], Cell[2104392, 44475, 4610, 140, 398, "Output",ExpressionUUID->"8843d4e3-405b-4b8b-bc2f-0d170dc121a2"] }, Open ]], Cell[2109017, 44618, 256, 5, 103, "Input",ExpressionUUID->"da077f69-1c0a-4d65-9ac7-d33f3559fcdc"] }, Closed]], Cell[CellGroupData[{ Cell[2109310, 44628, 1218, 25, 162, "Subsubsection",ExpressionUUID->"fba4dec8-83f8-409f-becf-0168b7420f00"], Cell[2110531, 44655, 631, 13, 175, "Input",ExpressionUUID->"67109439-9d38-4cd1-a029-8421044cbc78"], Cell[2111165, 44670, 1165, 27, 175, "Input",ExpressionUUID->"e7b40414-cfce-4ba8-9211-f5878b6572ec"], Cell[2112333, 44699, 2335, 53, 384, "Input",ExpressionUUID->"20604d5f-37b8-4b66-abf1-1dd394268865"], Cell[CellGroupData[{ Cell[2114693, 44756, 399, 9, 103, "Input",ExpressionUUID->"a4e6cd79-bca8-40aa-acaf-6987266c47cc"], Cell[2115095, 44767, 275, 5, 117, "Output",ExpressionUUID->"792182f2-87c2-4801-b21d-b23227db7f16"] }, Open ]], Cell[CellGroupData[{ Cell[2115407, 44777, 356, 9, 103, "Input",ExpressionUUID->"4cb3a45a-5239-45b8-a9a2-6be1aae3c48c"], Cell[2115766, 44788, 378, 9, 76, "Message",ExpressionUUID->"3ba0ebb1-7587-44f8-b9f8-1766f41b840a"], Cell[2116147, 44799, 4607, 141, 328, "Output",ExpressionUUID->"60a1c37f-8275-40f0-8e85-6a5e6089beb3"] }, Open ]], Cell[2120769, 44943, 256, 5, 103, "Input",ExpressionUUID->"36af9db4-52e1-447b-b199-e1c6f72cdf0f"] }, Closed]], Cell[CellGroupData[{ Cell[2121062, 44953, 1220, 25, 162, "Subsubsection",ExpressionUUID->"9e57d546-0361-4911-8ab1-c92ab200faf3"], Cell[2122285, 44980, 629, 13, 175, "Input",ExpressionUUID->"c9ccd893-c8f7-4055-9ef1-bb582d59239f"], Cell[2122917, 44995, 1165, 27, 175, "Input",ExpressionUUID->"97e09081-52c3-4eee-8e90-16a2a557d4ab"], Cell[2124085, 45024, 2335, 53, 384, "Input",ExpressionUUID->"bd7c3305-9b7f-43f2-be2d-2143145c1ad9"], Cell[CellGroupData[{ Cell[2126445, 45081, 399, 9, 103, "Input",ExpressionUUID->"dff23f77-5084-4eb6-a391-ec6bf4cbe247"], Cell[2126847, 45092, 306, 6, 117, "Output",ExpressionUUID->"637407d7-497b-4a31-8a2b-5d0d6b025c35"] }, Open ]], Cell[CellGroupData[{ Cell[2127190, 45103, 356, 9, 103, "Input",ExpressionUUID->"9c7636ad-b48c-4275-b7eb-fb0f046a6435"], Cell[2127549, 45114, 405, 10, 76, "Message",ExpressionUUID->"24966318-eb18-446c-a78e-7baeb48bcdd8"], Cell[2127957, 45126, 4500, 136, 328, "Output",ExpressionUUID->"95f280c2-1654-409c-ac28-0e54347d4d38"] }, Open ]], Cell[2132472, 45265, 256, 5, 103, "Input",ExpressionUUID->"d7ea01f2-bbb8-4b82-9498-ebb7a4f3b326"] }, Closed]], Cell[CellGroupData[{ Cell[2132765, 45275, 1270, 26, 162, "Subsubsection",ExpressionUUID->"d78ed076-1adc-4ad7-b48e-fbc4d8bdeb29"], Cell[2134038, 45303, 681, 14, 175, "Input",ExpressionUUID->"40f090eb-c2f1-45d1-b5aa-d345125474f6"], Cell[2134722, 45319, 1165, 27, 175, "Input",ExpressionUUID->"0460d442-6492-430c-8021-6f52b491829c"], Cell[2135890, 45348, 2335, 53, 384, "Input",ExpressionUUID->"6ad991be-c565-48cf-9706-57184b33f6a3"], Cell[CellGroupData[{ Cell[2138250, 45405, 399, 9, 103, "Input",ExpressionUUID->"2165c548-532e-49d5-b47e-a646a66892e5"], Cell[2138652, 45416, 297, 5, 117, "Output",ExpressionUUID->"106b3ecd-5db5-4010-b938-610c4f0ba207"] }, Open ]], Cell[CellGroupData[{ Cell[2138986, 45426, 356, 9, 103, "Input",ExpressionUUID->"9553273a-7922-4468-9e16-fd5cdb6f1b82"], Cell[2139345, 45437, 405, 10, 76, "Message",ExpressionUUID->"1af593d2-385b-4fb8-889c-b78ece93a576"], Cell[2139753, 45449, 4500, 136, 398, "Output",ExpressionUUID->"626e61e5-ffda-4242-97df-f1166094261b"] }, Open ]], Cell[2144268, 45588, 256, 5, 103, "Input",ExpressionUUID->"ff88f3ba-9129-4a4a-af83-babd7e01f23f"] }, Closed]], Cell[CellGroupData[{ Cell[2144561, 45598, 1268, 26, 162, "Subsubsection",ExpressionUUID->"dfaf3382-66e2-417f-b65c-a664e7ff33a2"], Cell[2145832, 45626, 680, 14, 175, "Input",ExpressionUUID->"66cc6b4b-d4c9-4865-9e4a-79970c4a4db9"], Cell[2146515, 45642, 1165, 27, 175, "Input",ExpressionUUID->"bbca2c07-5fdc-4446-8742-341a2179fa9b"], Cell[2147683, 45671, 2335, 53, 384, "Input",ExpressionUUID->"150facf7-d9a4-49c3-a665-aeb30b0ea59e"], Cell[CellGroupData[{ Cell[2150043, 45728, 399, 9, 103, "Input",ExpressionUUID->"8ee76d01-a249-4e87-b5be-461d879c8fbd"], Cell[2150445, 45739, 296, 5, 117, "Output",ExpressionUUID->"5368ed32-63a6-4290-81b0-ae7252d1fd30"] }, Open ]], Cell[CellGroupData[{ Cell[2150778, 45749, 356, 9, 103, "Input",ExpressionUUID->"7e4a0877-e345-42b6-b3d5-c03ebf5d2a66"], Cell[2151137, 45760, 405, 10, 76, "Message",ExpressionUUID->"ac409dd2-52e3-4781-9050-d100fc4ce275"], Cell[2151545, 45772, 4612, 140, 398, "Output",ExpressionUUID->"e162b360-726c-4e68-9b1b-8eef3d9a57ac"] }, Open ]], Cell[2156172, 45915, 256, 5, 103, "Input",ExpressionUUID->"444e8da9-75ca-4f5b-9836-12d2ef24de61"] }, Closed]], Cell[CellGroupData[{ Cell[2156465, 45925, 691, 12, 380, "Subsubsection",ExpressionUUID->"fcc75b1a-c44e-4878-8b4f-748302aff33d"], Cell[2157159, 45939, 459, 9, 175, "Input",ExpressionUUID->"5351a040-e0f7-4cf4-bdf3-a39ad604cd7b"], Cell[2157621, 45950, 1112, 26, 175, "Input",ExpressionUUID->"fd3d701f-692d-47ce-ae63-56223889cee1"], Cell[2158736, 45978, 1481, 35, 245, "Input",ExpressionUUID->"32e77cc4-190c-4766-a507-777623827783"], Cell[CellGroupData[{ Cell[2160242, 46017, 415, 9, 103, "Input",ExpressionUUID->"d56525b5-19a2-45a5-ab5b-4586d6fd8917"], Cell[2160660, 46028, 274, 5, 117, "Output",ExpressionUUID->"639e9404-c347-469a-9cf9-1237006b0246"] }, Open ]], Cell[CellGroupData[{ Cell[2160971, 46038, 855, 18, 103, "Input",ExpressionUUID->"6a36f869-146d-426f-8958-ace92c94bdec"], Cell[2161829, 46058, 172, 4, 117, "Output",ExpressionUUID->"a7b8617b-6060-4fed-abf9-b7726f98a5fd"] }, Open ]], Cell[CellGroupData[{ Cell[2162038, 46067, 362, 8, 103, "Input",ExpressionUUID->"a34cace5-e04b-42f3-ab57-580bb432639d"], Cell[2162403, 46077, 269, 5, 117, "Output",ExpressionUUID->"5f6b82f7-7ea7-44b5-b319-0f77767e0b80"] }, Open ]], Cell[CellGroupData[{ Cell[2162709, 46087, 544, 15, 103, "Input",ExpressionUUID->"5b5583e8-6311-4ce5-9bdb-50a548fe64a0"], Cell[2163256, 46104, 355, 9, 76, "Message",ExpressionUUID->"9be0db57-ae16-4307-bdee-96e31d0d574a"], Cell[2163614, 46115, 3587, 106, 398, "Output",ExpressionUUID->"1da0e420-f587-4ccf-b064-786c5790d993"] }, Open ]] }, Open ]] }, Open ]] }, Open ]] } ] *)