{VERSION 4 0 "IBM INTEL NT" "4.0" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 1 0 0 0 0 1 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 0 1 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 1 } {PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple Output" -1 11 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 3 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple Output" -1 12 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }1 3 0 0 0 0 1 0 1 0 2 2 0 1 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 2511 "#Do series expansi on without using tight coupling approximation\n#The vector perturbatio n equations, in A=0 gauge\n#See astro-ph/0403583\n#AL April 04\n\n# Us e conformal time. \n# Includes cdm, baryons, lambda\n\n#The vector per turbation equations, in A=0 gauge\n#See astro-ph/0403583\n#AL March 04 \n\n# Use conformal time. \n# Includes cdm, baryons, lambda\n\nrestart ;\nno_quint:=\{psi(t)=0,V(t)=0,V1(t)=0,V2(t)=0,rhopsi(t)=0,ppsi(t)=0\} ;\nno_numassive:=\{pinu(t)=0,qnu(t)=0,rhonu(t)=0,pnu(t)=0\};\nassign(n o_quint);\nassign(no_numassive);\n\nH_t:=diff(S(t),t)/S(t);\n\ndS:=S(t )*H(t);\ndH:=-1/6*S(t)^2*kappa*(rho(t)+3*p(t));\n\nK:=0;\nFriedmann:=H (t)^2=1/3*S(t)^2*kappa*rho(t)-K;\n\nphi(t):=-kappa*S(t)^2/2/k^3*(k*rho pi(t) + 4 * H(t) * rhoq(t));\n\ndrag_t:=opac(t)*(4/3*v(t)-qg(t));\npho tbar_t:=rhog(t)/rhob(t);\n\ndqr:=-1/2*k*pir(t);\ndqg:=-1/2*k*pig(t)+dr ag(t);\ndv:=-(1-3*c2(t))*H(t)*v(t)-photbar(t)*drag(t) - k/2*B0*rhog(t) /rhob(t);\ndvc=-H(t)*vc(t);\n\n\n#dsigma:=simplify(-H(t)*sigma(t)+k*ph i(t)-1/2*kappa*S(t)^2/k*(rhopi(t)));\ndsigma:=simplify(-2*H(t)*sigma(t )-kappa*S(t)^2/k*(rhopi(t)));\n\n\nrho_t:=rhob(t)+rhoc(t)+rhor(t)+rhog (t)+rhonu(t)+rhopsi(t)+rhov(t);\np_t:=1/3*(rhor(t)+rhog(t))+pb(t)+pnu( t)+ppsi(t)-rhov(t);\ndpb:=c2(t)*drhob;\n\n\ndpig:=-opac(t)*(pig(t)-pol ter(t)) - 8/15*k*J_3(t) + 2/5*k*qg(t) + 8/15*k*sigma(t);\ndJ_3:=k*(3/7 *pig(t)-15/28*J_4(t))-opac(t)*J_3(t);\n\ndpir:=- 8/15*k*G_3(t) + 2/5*k *qr(t) + 8/15*k*sigma(t);\ndG_3:=k*(3/7*pir(t)-15/28*G_4(t));\ndG_4:=k *(4/9*G_3(t)-24/45*G_5(t));\n\nG_eq:=proc(l)\n local Gl,Eq;\n Gl:=cat( 'G_',l)(t);\n Eq:=diff(Gl,t)+k*l/(2*l+1)*( (l+2)/(l+1)*cat('G_',l+1)(t ) - cat('G_',l-1)(t));\n if (l = 2) then\n Eq:=Eq - 8/15*k*sigma(t); \n fi;\n simplify(subs(\{G_1(t)=qr(t),G_2(t)=pir(t)\},Eq));\nend;\n\nr hopi_t:=rhog(t)*pig(t)+rhor(t)*pir(t) + rhonu(t)*pinu(t) + rhog(t)*B0; \nrhoq_t:=rhoc(t)*vc(t) + rhog(t)*qg(t)+rhor(t)*qr(t)+(rhob(t)+pb(t))* v(t) + rhonu(t)*qnu(t) +k*diff(psi(t),t)*clv(t)/S(t)^2;\n\nsigma(t):=2 *kappa*S(t)^2*rhoq_t/k^2;\n#rhoq(t):=k^2*sigma(t)/2/kappa/S(t)^2;\n\n \nsubtots:=\{rhopi(t)=rhopi_t,rho(t)=rho_t,p(t)=p_t\};\n\ndrhoq:=-4*H( t)*rhoq(t)-1/2*k*rhopi(t);\n\npolter_t:=2/15*(3*pig(t)/4 + 9*E2(t)/2); \n\ndE2:=-opac(t)*(E2(t) - polter(t)) - 8/27*k*E3(t) + 1/3*k*B2(t);\nd B2:=-opac(t)*B2(t) - 8/27*k*B3(t) - 1/3*k*E2(t);\n\nsublist:=\{diff(S (t),t)=dS,diff(qr(t),t)=dqr,diff(qg(t),t)=dqg,diff(v(t),t)=dv,diff(H(t ),t)=dH,diff(exptau(t),t)=g(t),diff(pig(t),t)=dpig\};\n\nsubtotderivs: =\{diff(S(t),t)=dS,diff(H(t),t)=dH\};\n\n#End of main definitions and \+ equations\n#########################################\n\n\n\n\n\n\n\n\n \n\n\n\n\n\n\n\n\n\n\n\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%)no_quin tG<(/-%$psiG6#%\"tG\"\"!/-%\"VGF)F+/-%#V1GF)F+/-%#V2GF)F+/-%'rhopsiGF) F+/-%%ppsiGF)F+" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%-no_numassiveG<&/ -%%pinuG6#%\"tG\"\"!/-%$qnuGF)F+/-%&rhonuGF)F+/-%$pnuGF)F+" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$H_tG*&-%%diffG6$-%\"SG6#%\"tGF,\"\"\"F)! \"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#dSG*&-%\"SG6#%\"tG\"\"\"-% \"HGF(F*" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#dHG,$*()-%\"SG6#%\"tG\" \"#\"\"\"%&kappaGF-,&-%$rhoGF*F-*&\"\"$F--%\"pGF*F-F-F-#!\"\"\"\"'" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"KG\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%*FriedmannG/*$)-%\"HG6#%\"tG\"\"#\"\"\",$*()-%\"SGF*F ,F-%&kappaGF--%$rhoGF*F-#F-\"\"$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>- %$phiG6#%\"tG,$*&*(%&kappaG\"\"\")-%\"SGF&\"\"#F,,&*&%\"kGF,-%&rhopiGF &F,F,*(\"\"%F,-%\"HGF&F,-%%rhoqGF&F,F,F,F,*$)F3\"\"$F,!\"\"#F?F0" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%'drag_tG*&-%%opacG6#%\"tG\"\"\",&-% \"vGF(#\"\"%\"\"$-%#qgGF(!\"\"F*" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>% *photbar_tG*&-%%rhogG6#%\"tG\"\"\"-%%rhobGF(!\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$dqrG,$*&%\"kG\"\"\"-%$pirG6#%\"tGF(#!\"\"\"\"#" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%$dqgG,&*&%\"kG\"\"\"-%$pigG6#%\"tGF( #!\"\"\"\"#-%%dragGF+F(" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#dvG,(*(, &\"\"\"F(*&\"\"$F(-%#c2G6#%\"tGF(!\"\"F(-%\"HGF-F(-%\"vGF-F(F/*&-%(pho tbarGF-F(-%%dragGF-F(F/*&#F(\"\"#F(*&*(%\"kGF(%#B0GF(-%%rhogGF-F(F(-%% rhobGF-F/F(F/" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/%$dvcG,$*&-%\"HG6#% \"tG\"\"\"-%#vcGF)F+!\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'dsigma G,$*&,&*(-%\"HG6#%\"tG\"\"\"-%&sigmaGF+F-%\"kGF-\"\"#*(%&kappaGF-)-%\" SGF+F1F--%&rhopiGF+F-F-F-F0!\"\"F9" }}{PARA 11 "" 1 "" {XPPMATH 20 "6# >%&rho_tG,,-%%rhobG6#%\"tG\"\"\"-%%rhocGF(F*-%%rhorGF(F*-%%rhogGF(F*-% %rhovGF(F*" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$p_tG,*-%%rhorG6#%\"tG #\"\"\"\"\"$*&F*F+-%%rhogGF(F+F+-%#pbGF(F+-%%rhovGF(!\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$dpbG*&-%#c2G6#%\"tG\"\"\"%&drhobGF*" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%%dpigG,**&-%%opacG6#%\"tG\"\"\",&-%$ pigGF)F+-%'polterGF)!\"\"F+F1*&#\"\")\"#:F+*&%\"kGF+-%$J_3GF)F+F+F1*(# \"\"#\"\"&F+F7F+-%#qgGF)F+F+*(#F4F5F+F7F+-%&sigmaGF)F+F+" }}{PARA 11 " " 1 "" {XPPMATH 20 "6#>%%dJ_3G,&*&%\"kG\"\"\",&-%$pigG6#%\"tG#\"\"$\" \"(*&#\"#:\"#GF(-%$J_4GF,F(!\"\"F(F(*&-%%opacGF,F(-%$J_3GF,F(F7" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%%dpirG,(*&%\"kG\"\"\"-%$G_3G6#%\"tGF (#!\")\"#:*(#\"\"#\"\"&F(F'F(-%#qrGF+F(F(*(#\"\")F/F(F'F(-%&sigmaGF+F( F(" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%dG_3G*&%\"kG\"\"\",&-%$pirG6# %\"tG#\"\"$\"\"(*&#\"#:\"#GF'-%$G_4GF+F'!\"\"F'" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%dG_4G*&%\"kG\"\"\",&-%$G_3G6#%\"tG#\"\"%\"\"**&#\"\" )\"#:F'-%$G_5GF+F'!\"\"F'" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%%G_eqGR 6#%\"lG6$%#GlG%#EqG6\"F+C&>8$--%$catG6$.%#G_G9$6#%\"tG>8%,&-%%diffG6$F .F7\"\"\"*&*(%\"kGF>F5F>,&*&*&,&F5F>\"\"#F>F>--F16$F3,&F5F>F>F>F6F>F>F J!\"\"F>--F16$F3,&F5F>F>FKF6FKF>F>,&F5FFF>F>FKF>@$/F5FF>F9,&F9F>*&#\" \")\"#:F>*&FAF>-%&sigmaGF6F>F>FK-%)simplifyG6#-%%subsG6$<$/-%$G_1GF6-% #qrGF6/-%$G_2GF6-%$pirGF6F9F+F+F+" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#> %(rhopi_tG,(*&-%%rhogG6#%\"tG\"\"\"-%$pigGF)F+F+*&-%%rhorGF)F+-%$pirGF )F+F+*&F'F+%#B0GF+F+" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'rhoq_tG,**& -%%rhocG6#%\"tG\"\"\"-%#vcGF)F+F+*&-%%rhogGF)F+-%#qgGF)F+F+*&-%%rhorGF )F+-%#qrGF)F+F+*&,&-%%rhobGF)F+-%#pbGF)F+F+-%\"vGF)F+F+" }}{PARA 11 " " 1 "" {XPPMATH 20 "6#>-%&sigmaG6#%\"tG,$*&*(%&kappaG\"\"\")-%\"SGF&\" \"#F,,**&-%%rhocGF&F,-%#vcGF&F,F,*&-%%rhogGF&F,-%#qgGF&F,F,*&-%%rhorGF &F,-%#qrGF&F,F,*&,&-%%rhobGF&F,-%#pbGF&F,F,-%\"vGF&F,F,F,F,*$)%\"kGF0F ,!\"\"F0" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%(subtotsG<%/-%&rhopiG6#% \"tG,(*&-%%rhogGF)\"\"\"-%$pigGF)F/F/*&-%%rhorGF)F/-%$pirGF)F/F/*&F-F/ %#B0GF/F//-%$rhoGF),,-%%rhobGF)F/-%%rhocGF)F/F3F/F-F/-%%rhovGF)F//-%\" pGF),*F3#F/\"\"$*&FGF/F-F/F/-%#pbGF)F/FA!\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%&drhoqG,&*&-%\"HG6#%\"tG\"\"\"-%%rhoqGF)F+!\"%*&#F+\" \"#F+*&%\"kGF+-%&rhopiGF)F+F+!\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6# >%)polter_tG,&-%$pigG6#%\"tG#\"\"\"\"#5*&#\"\"$\"\"&F+-%#E2GF(F+F+" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%$dE2G,(*&-%%opacG6#%\"tG\"\"\",&-%#E 2GF)F+-%'polterGF)!\"\"F+F1*&#\"\")\"#FF+*&%\"kGF+-%#E3GF)F+F+F1*(#F+ \"\"$F+F7F+-%#B2GF)F+F+" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$dB2G,(*& -%%opacG6#%\"tG\"\"\"-%#B2GF)F+!\"\"*&#\"\")\"#FF+*&%\"kGF+-%#B3GF)F+F +F.*&#F+\"\"$F+*&F4F+-%#E2GF)F+F+F." }}{PARA 12 "" 1 "" {XPPMATH 20 "6 #>%(sublistG<)/-%%diffG6$-%'exptauG6#%\"tGF--%\"gGF,/-F(6$-%\"SGF,F-*& F3\"\"\"-%\"HGF,F6/-F(6$-%#qrGF,F-,$*&%\"kGF6-%$pirGF,F6#!\"\"\"\"#/-F (6$-%#qgGF,F-,&*&F@F6-%$pigGF,F6FC-%%dragGF,F6/-F(6$-%\"vGF,F-,(*(,&F6 F6*&\"\"$F6-%#c2GF,F6FDF6F7F6FTF6FD*&-%(photbarGF,F6FOF6FD*&#F6FEF6*&* (F@F6%#B0GF6-%%rhogGF,F6F6-%%rhobGF,FDF6FD/-F(6$F7F-,$*()F3FEF6%&kappa GF6,&-%$rhoGF,F6*&FZF6-%\"pGF,F6F6F6#FD\"\"'/-F(6$FMF-,**&-%%opacGF,F6 ,&FMF6-%'polterGF,FDF6FD*&#\"\")\"#:F6*&F@F6-%$J_3GF,F6F6FD*(#FE\"\"&F 6F@F6FIF6F6*&**#\"#;F_qF6FioF6FhoF6,**&-%%rhocGF,F6-%#vcGF,F6F6*&F_oF6 FIF6F6*&-%%rhorGF,F6F%-subtotderivsG<$/-%%diffG6$-%\"SG6#% \"tGF-*&F*\"\"\"-%\"HGF,F//-F(6$F0F-,$*()F*\"\"#F/%&kappaGF/,&-%$rhoGF ,F/*&\"\"$F/-%\"pGF,F/F/F/#!\"\"\"\"'" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 43 "#this mode is singular so can do\nvc(t):=0;\n" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>-%#vcG6#%\"tG\"\"!" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 117 "opac(t):= ne0/S(t)^2;\n#define delta_tig ht as small effect of non-total coupling\nne0:=omm^2*H0^4/omega^3/delt a_tight;\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>-%%opacG6#%\"tG*&%$ne0G \"\"\"*$)-%\"SGF&\"\"#F*!\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$ne 0G*&*&)%$ommG\"\"#\"\"\")%#H0G\"\"%F*F**&)%&omegaG\"\"$F*%,delta_tight GF*!\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 737 "#Definitions a nd background\npb(t):=0;\ndrag(t):= drag_t;\nphotbar(t):=photbar_t;\np olter(t):=polter_t;\n\n\n#B0:=0;\n\n#include terms up to t^Ord\nOrd:=5 ;\nDoQuint = \"F\";\n\nOrder:=Ord+3;\n\nmakeseries:=proc(v,x,ord)\n lo cal Res,i;\n Res:=0;\n for i from 0 to ord do\n Res:=Res + cat('s',v )[i]*x^i;\n end do;\n v(x)=series(Res,x,ord); \nend;\n \n\nexpandfu lly:=proc(x)\n eval(x);\n %;\n %;\nend;\n\n\nRb:=1-Rc;\n\n#v(t):=3/4*q g(t);\n\nomb:=Rb*omm;\nomc:=Rc*omm;\nomr:=Rv*omm^2*H0^2/omega^2;\nomg: =omm^2*H0^2/omega^2-omr;\n\npb(t):=0;c2(t):=0;\n\n#pig(t):=0;\n\n\nrho g(t):=3*omg*H0^2/kappa/S(t)^4;\nrhor(t):=3*omr*H0^2/kappa/S(t)^4;\nrho b(t):=3*omb*H0^2/kappa/S(t)^3;\nrhoc(t):=3*omc*H0^2/kappa/S(t)^3;\nrho v(t):=3*omv*H0^2/kappa;\nH(t):=H_t;\n\nassign(subtots);\n\nK:=0;\nKfac :=beta[2];\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>-%#pbG6#%\"tG\"\"!" } }{PARA 11 "" 1 "" {XPPMATH 20 "6#>-%%dragG6#%\"tG*&*&%$ne0G\"\"\",&-% \"vGF&#\"\"%\"\"$-%#qgGF&!\"\"F+F+*$)-%\"SGF&\"\"#F+F4" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>-%(photbarG6#%\"tG*&-%%rhogGF&\"\"\"-%%rhobGF&!\" \"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>-%'polterG6#%\"tG,&-%$pigGF&#\" \"\"\"#5*&#\"\"$\"\"&F,-%#E2GF&F,F," }}{PARA 11 "" 1 "" {XPPMATH 20 "6 #>%$OrdG\"\"&" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/%(DoQuintGQ\"F6\"" } }{PARA 11 "" 1 "" {XPPMATH 20 "6#>%&OrderG\"\")" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%+makeseriesGR6%%\"vG%\"xG%$ordG6$%$ResG%\"iG6\"F-C%>8 $\"\"!?(8%F1\"\"\"9&%%trueG>F0,&F0F4*&&-%$catG6$.%\"sG9$6#F3F4)9%F3F4F 4/-F@6#FC-%'seriesG6%F0FCF5F-F-F-" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#> %,expandfullyGR6#%\"xG6\"F(F(C%-%%evalG6#9$%\"%GF.F(F(F(" }}{PARA 11 " " 1 "" {XPPMATH 20 "6#>%#RbG,&\"\"\"F&%#RcG!\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$ombG*&,&\"\"\"F'%#RcG!\"\"F'%$ommGF'" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$omcG*&%#RcG\"\"\"%$ommGF'" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$omrG*&*(%#RvG\"\"\")%$ommG\"\"#F()%#H0GF+F(F(*$)%&om egaGF+F(!\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$omgG,&*&*&)%$ommG \"\"#\"\"\")%#H0GF*F+F+*$)%&omegaGF*F+!\"\"F+*&*(%#RvGF+F(F+F,F+F+*$F/ F+F1F1" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>-%#pbG6#%\"tG\"\"!" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>-%#c2G6#%\"tG\"\"!" }}{PARA 11 "" 1 " " {XPPMATH 20 "6#>-%%rhogG6#%\"tG,$*&*&,&*&*&)%$ommG\"\"#\"\"\")%#H0GF 0F1F1*$)%&omegaGF0F1!\"\"F1*&*(%#RvGF1F.F1F2F1F1*$F5F1F7F7F1F2F1F1*&%& kappaGF1)-%\"SGF&\"\"%F1F7\"\"$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>-% %rhorG6#%\"tG,$*&*(%#RvG\"\"\")%$ommG\"\"#F,)%#H0G\"\"%F,F,*()%&omegaG F/F,%&kappaGF,)-%\"SGF&F2F,!\"\"\"\"$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>-%%rhobG6#%\"tG,$*&*(,&\"\"\"F,%#RcG!\"\"F,%$ommGF,)%#H0G\"\"#F,F, *&%&kappaGF,)-%\"SGF&\"\"$F,F.F8" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>- %%rhocG6#%\"tG,$*&*(%#RcG\"\"\"%$ommGF,)%#H0G\"\"#F,F,*&%&kappaGF,)-% \"SGF&\"\"$F,!\"\"F6" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>-%%rhovG6#%\" tG,$*&*&%$omvG\"\"\")%#H0G\"\"#F,F,%&kappaG!\"\"\"\"$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>-%\"HG6#%\"tG*&-%%diffG6$-%\"SGF&F'\"\"\"F,!\"\" " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"KG\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%KfacG&%%betaG6#\"\"#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 210 "\n#Start series solving\ndsolve(\{expandfully(Friedm ann),S(0)=0,D(S)(0)=H0^2*omm/omega\},S(t),type=series);\nassign(%);\n \n# S(t):=omm*H0^2/omega^2*(omega*t+(omega*t)^2/4-K/6*omega*t^3-K/48*o mega^2*t^4);\n\n\n\nRb:=1-Rc;\n" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#/-% \"SG6#%\"tG+/F'*&*&)%#H0G\"\"#\"\"\"%$ommGF.F.%&omegaG!\"\"F.,$*&F+F.F /F.#F.\"\"%F-,$*&*()F,\"\")F.%$omvGF.)F/\"\"$F.F.*$)F0F=F.F1#F.\"#5\" \"&,$*&*(F9F.F;F.F%#RbG,& \"\"\"F&%#RcG!\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 103 "omb: =Rb*omm;\nomc:=Rc*omm;\nomr:=Rv*omm^2*H0^2/omega^2;\nomg:=omm^2*H0^2/o mega^2-omr;\n\npb(t):=0;c2(t):=0;\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6 #>%$ombG*&,&\"\"\"F'%#RcG!\"\"F'%$ommGF'" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$omcG*&%#RcG\"\"\"%$ommGF'" }}{PARA 11 "" 1 "" {XPPMATH 20 "6# >%$omrG*&*(%#RvG\"\"\")%$ommG\"\"#F()%#H0GF+F(F(*$)%&omegaGF+F(!\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$omgG,&*&*&)%$ommG\"\"#\"\"\")%#H0 GF*F+F+*$)%&omegaGF*F+!\"\"F+*&*(%#RvGF+F(F+F,F+F+*$F/F+F1F1" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>-%#pbG6#%\"tG\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>-%#c2G6#%\"tG\"\"!" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 428 "solvevars:= \{B2,J_3,E2,pig,v,qr,qg,pir,G_3,G_4\};\n \neqs:=\{simplify(diff(J_3(t),t)-dJ_3),simplify(diff(B2(t),t)-dB2),sim plify(diff(E2(t),t)-dE2),simplify(diff(pig(t),t)-dpig),simplify(diff(v (t),t)-dv),simplify(dqr-diff(qr(t),t)),simplify(dqg-diff(qg(t),t)),sim plify(diff(pir(t),t)-dpir),simplify(diff(G_3(t),t)-dG_3),simplify(diff (G_4(t),t)-dG_4)\};\n\nknownvars:=\{H0,omm,omv,k,beta[2],Kf[2],Kf[3],K f[4],omega,Rv,Rc,B0,delta_tight\};\n\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%*solvevarsG<,%\"vG%#qgG%$pirG%$pigG%$J_3G%$G_3G%#qrG%$G_4G%#E2 G%#B2G" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$eqsG<,,$*&,***-%%diffG6$- %$J_3G6#%\"tGF0\"\"\")%&omegaG\"\"$F1%,delta_tightGF1)+/F0*&*&)%#H0G\" \"#F1%$ommGF1F1F3!\"\"F1,$*&F:F1F=F1#F1\"\"%F<,$*&*()F;\"\")F1%$omvGF1 )F=F4F1F1*$F2F1F>#F1\"#5\"\"&,$*&*(FFF1FHF1FIF1F1*$)F3F#F1\"#?\" \"',$*&*(FFF1FHF1FIF1F1F3F>#F1\"$7\"\"\"(-%\"OG6#F1FGF*.\"#:F1F\\oF1F2F1F5F1F6F1-%$J_4GF/F1F1 **FinF1)F=F#F1Fin,$*&,6*,-F+6$F]oF0F 1F2F1F5F1F6F1F\\oF1\"#I*,\"#FF1FdoF1FeoF1F\\oF1F]oF1F1*,\"#=F1FdoF1Feo F1F\\oF1-%#E2GF/F1F>*.\"#;F1)F\\oF*.\"#'*F1FeoF1FdoF1F3F1F5F1FipF1F>*0F\\qF1FeoF1Fd oF1F3F1F5F1FipF1%#RvGF1F1*0F\\qF1FeoF1FdoF1F3F1F5F1F^qF1-%#qrGF/F1F>*0 F\\qF1F:F1F=F1F2F1F5F1-%\"vGF/F1F7F1F>*2F\\qF1F:F1F=F1F2F1F5F1FcqF1F7F 1%#RcGF1F1F1**F6F1F2F1F5F1F\\oF1F>#F1F^p,$*&,2**-F+6$-%$pirGF/F0F1F\\o F1FRF1F6F1F`o*,FGF1FgpF1-%$G_3GF/F1FRF1F6F1F1*,FUF1FgpF1F`qF1FRF1F6F1F >**\"#[F1FdoF1FeoF1FipF1F>*,FfrF1FeoF1FdoF1FipF1F^qF1F1*,FfrF1F^qF1Fdo F1FeoF1F`qF1F>*.FfrF1F:F1F=F1FcqF1FRF1F7F1F>*0FfrF1F:F1F=F1FcqF1FRF1F7 F1FfqF1F1F1*(F6F1F\\oF1FRF1F>#F1F`o,$*&,***-F+6$-%#B2GF/F0F1F2F1F5F1F6 F1F`p**F`pF1FdoF1FeoF1FcsF1F1*.FGF1F\\oF1-%#B3GF/F1F2F1F5F1F6F1F1*.\" \"*F1F\\oF1FcpF1F2F1F5F1F6F1F1F1*(F2F1F5F1F6F1F>#F1F`p,$*&,6**-F+6$Fcq F0F1)F3FMF1)F7F4F1F5F1!\"'*.FUF1FatF1FctF1FdtF1F5F1FfqF1F1*.FUF1+/F0F8 \"\"!,$F@#F1F*0FUF1FhtF1FcqF1FctF1F6F1F5F1FfqF1F1**FGF1FIF1)F;FUF1FcqF1F>**FU F1FIF1FcuF1FipF1F1*,FGF1FIF1FcuF1F^qF1FcqF1F1*,FUF1FIF1FcuF1F^qF1FipF1 F>*2F4F1F\\oF1%#B0GF1F=F1F:F1F2F1F6F1F5F1F>*4F4F1F\\oF1FhuF1F=F1F:F1F2 F1F6F1F5F1F^qF1F1F1**FctF1FdtF1,&F>F1FfqF1F1F5F1F>#F1FU,&*&F\\oF1F_rF1 #F>F<-F+6$F`qF0F>,$*&,**,F\\oF1F2F1F5F1F6F1F]oF1F4**FGF1FdoF1FeoF1FcqF 1F>**FUF1FdoF1FeoF1FipF1F1*,FUF1-F+6$FipF0F1F2F1F5F1F6F1F1F1*(F2F1F5F1 F6F1F>#F>FU,$*&,,**-F+6$FcpF0F1F2F1F5F1F6F1\"$q#**\"$3\"F1FdoF1FeoF1Fc pF1F1**F`pF1FdoF1FeoF1F]oF1F>*.\"#!)F1F\\oF1-%#E3GF/F1F2F1F5F1F6F1F1*. \"#!*F1F\\oF1FcsF1F2F1F5F1F6F1F>F1*(F2F1F5F1F6F1F>#F1Fcw,(-F+6$-%$G_4G F/F0F1*&#FBFjsF1*&F\\oF1FbrF1F1F>*(#FGF`oF1F\\oF1-%$G_5GF/F1F1,(-F+6$F brF0F1*&#F4FenF1F^vF1F>*(#F`oFinF1F\\oF1FbxF1F1" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%*knownvarsG " 0 "" {MPLTEXT 1 0 81 "#Set up series ansatz\nserie s_subs:=map(makeseries,solvevars,t,Ord+3);\nassign(%);\n" }}{PARA 12 " " 1 "" {XPPMATH 20 "6#>%,series_subsG<,/-%$J_3G6#%\"tG+5F*&%%sJ_3G6#\" \"!F/&F-6#\"\"\"F2&F-6#\"\"#F5&F-6#\"\"$F8&F-6#\"\"%F;&F-6#\"\"&F>&F-6 #\"\"'FA&F-6#\"\"(FD-%\"OGF1\"\")/-%$pigGF)+5F*&%%spigGF.F/&FMF1F2&FMF 4F5&FMF7F8&FMF:F;&FMF=F>&FMF@FA&FMFCFDFEFG/-%#qgGF)+5F*&%$sqgGF.F/&FZF 1F2&FZF4F5&FZF7F8&FZF:F;&FZF=F>&FZF@FA&FZFCFDFEFG/-%$pirGF)+5F*&%%spir GF.F/&FaoF1F2&FaoF4F5&FaoF7F8&FaoF:F;&FaoF=F>&FaoF@FA&FaoFCFDFEFG/-%$G _3GF)+5F*&%%sG_3GF.F/&F^pF1F2&F^pF4F5&F^pF7F8&F^pF:F;&F^pF=F>&F^pF@FA& F^pFCFDFEFG/-%#qrGF)+5F*&%$sqrGF.F/&F[qF1F2&F[qF4F5&F[qF7F8&F[qF:F;&F[ qF=F>&F[qF@FA&F[qFCFDFEFG/-%$G_4GF)+5F*&%%sG_4GF.F/&FhqF1F2&FhqF4F5&Fh qF7F8&FhqF:F;&FhqF=F>&FhqF@FA&FhqFCFDFEFG/-%\"vGF)+5F*&%#svGF.F/&FerF1 F2&FerF4F5&FerF7F8&FerF:F;&FerF=F>&FerF@FA&FerFCFDFEFG/-%#E2GF)+5F*&%$ sE2GF.F/&FbsF1F2&FbsF4F5&FbsF7F8&FbsF:F;&FbsF=F>&FbsF@FA&FbsFCFDFEFG/- %#B2GF)+5F*&%$sB2GF.F/&F_tF1F2&F_tF4F5&F_tF7F8&F_tF:F;&F_tF=F>&F_tF@FA &F_tFCFDFEFG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 131 "#Here only solve for modes with zero initial octopole or higher\nsG_3[0]:=0;\nsG _4[0]:=0;\nsG_4[1]:=0;\nG_5(t):=O(t^3);\nE3(t):=O(t^2);\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%%sG_3G6#\"\"!F'" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%%sG_4G6#\"\"!F'" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#> &%%sG_4G6#\"\"\"\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>-%$G_5G6#%\" tG-%\"OG6#*$)F'\"\"$\"\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>-%#E3G6 #%\"tG-%\"OG6#*$)F'\"\"#\"\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 93 "series_eqs:=map(expandfully,eqs):\n\nmap(series,series_eqs,t): \nmap(simplify,%):\nseries_eqs:=%;\n" }}{PARA 12 "" 1 "" {XPPMATH 20 " 6#>%+series_eqsG<,+3%\"tG,&&%%sG_3G6#\"\"\"F,*&#\"\"$\"\"(F,*&%\"kGF,& %%spirG6#\"\"!F,F,!\"\"F6,&&F*6#\"\"#F;*&#F/F0F,*&F2F,&F4F+F,F,F7F,,(& F*6#F/F/*&#F/F0F,*&F2F,&F4F:F,F,F7*(#\"#:\"#GF,F2F,&%%sG_4GF:F,F,F;,(& F*6#\"\"%FP*&#F/F0F,*&F2F,&F4FBF,F,F7*(FHF,F2F,&FLFBF,F,F/,(*&F2F,&FLF OF,FH*&#F/F0F,*&F2F,&F4FOF,F,F7*&\"\"&F,&F*6#FinF,F,FP,(*&F2F,&FLF[oF, FH*&\"\"'F,&F*6#F`oF,F,*&#F/F0F,*&F2F,&F4F[oF,F,F7Fin,(&F*6#F0F0*&#F/F 0F,*&F2F,&F4FboF,F,F7*(FHF,F2F,&FLFboF,F,F`o-%\"OGF+F0+-F',$*&,&&%%spi gGF5F,*&FPF,&%$sE2GF5F,F7F,*&%&omegaGF,%,delta_tightGF,F7#F7\"#5!\"#,$ *&,**&F\\qF,FfpF,F,*(FPF,F\\qF,FipF,F7*&F;F,&FgpF+F,F7*&\"\")F,&FjpF+F ,F,F,*&F\\qF,F]qF,F7#F,\"#?F7,$*&,2*&)F\\qF;F,FfpF,\"\"**(\"#OF,FbrF,F ipF,F7*&\"#[F,&FgpF:F,F,*&\"$#>F,&FjpF:F,F7**\"$![F,FjqF,F\\qF,F]qF,F7 *,\"$g\"F,F2F,&%$sB2GF5F,F\\qF,F]qF,F,*(\"#CF,F\\qF,FgqF,F7*(\"#'*F,F \\qF,FjqF,F,F,*&F\\qF,F]qF,F7#F7F]sF6,$*&,6*&FbrF,FgqF,!\"**(FerF,FbrF ,FjqF,F,*&FgrF,&FgpFBF,F7*&FjrF,&FjpFBF,F,*,F_sF,F2F,&FasF+F,F\\qF,F]q F,F7**\"$g*F,F[sF,F\\qF,F]qF,F,*(FcsF,F\\qF,FhrF,F,*(FesF,F\\qF,F[sF,F 7*(F/F,)F\\qF/F,FfpF,F,*(\"#7F,FitF,FipF,F7F,*&F\\qF,F]qF,F7#F,F]sF,F` pF;+3F',$*&,&&%$sqgGF5F/*&FPF,&%#svGF5F,F7F,*&F\\qF,F]qF,F7#F7F/F`q,$* &,**&F\\qF,FbuF,F/*(FPF,F\\qF,FeuF,F7*&F`oF,&FcuF+F,F7*&FiqF,&FfuF+F,F ,F,*&F\\qF,F]qF,F7#F,F`oF7,$*&,2*&FbrF,FbuF,Fcr*(F[uF,FbrF,FeuF,F7*&Fg rF,&FcuF:F,F,*&\"#kF,&FfuF:F,F7*,FcsF,F2F,F\\qF,F]qF,FfpF,F,**FgrF,F_v F,F\\qF,F]qF,F,*(FcsF,F\\qF,F_vF,F7*(\"#KF,F\\qF,FavF,F,F,*&F\\qF,F]qF ,F7#F7FgrF6,$*&,6*&FbrF,F_vF,Fcr*(F[uF,FbrF,FavF,F7*&FgrF,&FcuFBF,F,*& F\\wF,&FfuFBF,F7*,FcsF,F2F,F\\qF,F]qF,FgqF,F,**FesF,FjvF,F\\qF,F]qF,F, *(FcsF,F\\qF,FjvF,F7*(FbwF,F\\qF,F]wF,F,*(F/F,FitF,FbuF,F7*(FPF,FitF,F euF,F,F,*&F\\qF,F]qF,F7FdwF,,$*&,>*&)F\\qFPF,FjvF,\"$?(*(FetF,FixF,F]w F,F7*,\"%?>F,FitF,F2F,F]qF,FhrF,F,*(\"%?^F,FbrF,&FfuFOF,F7**\"&?:\"F,F [xF,FitF,F]qF,F,*(\"%SQF,FbrF,&FcuFOF,F,*(\"#vF,FbuF,)F\\qF`oF,F,*,\"$ o(F,FbuF,)%#H0GF`oF,)%$ommGF;F,%$omvGF,F7*(\"$+\"F,FeuF,FhyF,F7*,\"%C5 F,FeuF,F[zF,F]zF,F_zF,F,*(F]yF,F[xF,FitF,F7*(\"%gDF,FitF,F]xF,F,*(\"$S #F,)F\\qFinF,F_vF,F7*(\"$?$F,FavF,FizF,F,F,*&FitF,F]qF,F7#F7FdyF;,$*&, F*&FeyF,FitF,!%SQ*.\"$%QF,F\\qF,FbuF,F[zF,F]zF,F_zF,F,*.\"$7&F,F\\qF,F euF,F[zF,F]zF,F_zF,F7*(F_yF,FitF,F`yF,F,*(\"#XF,FbuF,)F\\qF0F,F7*(\"#g F,FeuF,Fj[lF,F,*(F]sF,FizF,FjvF,F7*(\"%S9F,FixF,F[xF,F,*(F]yF,FixF,F]x F,F7*(\"%!o(F,FbrF,&FcuF[oF,F,*(\"&S-\"F,FbrF,&FfuF[oF,F7*(\"$]\"F,F_v F,FhyF,F,*(\"$+#F,FavF,FhyF,F7*,FdyF,FitF,F2F,F]qF,F_tF,F,*,\"%O:F,F_v F,F[zF,F]zF,F_zF,F7*,\"%[?F,FavF,F[zF,F]zF,F_zF,F,*(\"$S'F,F]wF,FizF,F ,**\"&?2$F,FeyF,FitF,F]qF,F,F,*&FitF,F]qF,F7#F7Fb\\lF/,$*&,N*&Fc\\lF,F itF,!'S]@*(\"'?nGF,FitF,Ff\\lF,F,*(\"&!)o#F,FizF,F[xF,F7*(\"%?DF,F_vF, Fj[lF,F7*(\"%gLF,FavF,Fj[lF,F,*.Fb\\lF,FbrF,FbuF,F[zF,F]zF,F_zF,F7*.Fe \\lF,FbrF,FeuF,F[zF,F]zF,F_zF,F,*(\"'!3I%F,&FcuFboF,FbrF,F,*(\"'SMdF,& FfuFboF,FbrF,F7*.\"&/:#F,F\\qF,F_vF,F[zF,F]zF,F_zF,F,*.\"&s'GF,F\\qF,F avF,F[zF,F]zF,F_zF,F7*(\"%+%)F,FjvF,FhyF,F,*(\"&+7\"F,F]wF,FhyF,F7*(\" '?v5F,FixF,F`yF,F7*(\"&S1)F,FixF,FeyF,F,*(\"$N(F,)F\\qFiqF,FbuF,F,*(\" $!)*F,Fi_lF,FeuF,F7*,\"&;g)F,FjvF,F[zF,F]zF,F_zF,F7*,\"')o9\"F,F]wF,F[ zF,F]zF,F_zF,F,*,\"'S]@F,F2F,FitF,F]qF,&FgpFOF,F,*(\"&Se$F,F]xF,FizF,F ,**\"(+/:#F,Fc\\lF,FitF,F]qF,F,F,*&FitF,F]qF,F7#F7Ff^lFPF`pFin+3F',$*& ,,*(F\\qF,F]qF,FbuF,!#K*(F`oF,F2F,FipF,F7*,FbwF,F\\qF,F]qF,%#RvGF,&%$s qrGF5F,F7*(FcrF,F2F,FfpF,F,*,FbwF,F\\qF,F]qF,FbuF,FaalF,F,F,*(F]qF,F\\ qF,F2F,F7#F,F_qF`q,$*&,:**F\\qF,F]qF,FaalF,&FcalF+F,F\\w*(F[uF,F2F,Fjq F,F,*,F\\wF,F_vF,F\\qF,F]qF,FaalF,F7*(\"#=F,F2F,FgqF,F7**F\\wF,F_vF,F \\qF,F]qF,F,**F\\wF,FbrF,FeuF,F]qF,F,*,F\\wF,FbrF,FeuF,F]qF,%#RcGF,F7* *FbwF,FbrF,F]qF,FbuF,F7**F`oF,F\\qF,F2F,FipF,F7*,FbwF,FbrF,F]qF,FaalF, FbalF,F7**FcrF,F\\qF,F2F,FfpF,F,*,FbwF,FbrF,F]qF,FbuF,FaalF,F,F,*(F\\q F,F]qF,F2F,F7#F7F]rF7,$*&,N**)F2F;F,FbuF,F\\qF,F]qF,!$#>*,\"$c#F,F`clF ,&%%sJ_3GF5F,F\\qF,F]qF,F,*,F]]lF,F\\qF,F]qF,FaalF,&FcalF:F,F7*(\"$K%F ,F2F,FhrF,F,*(\"$)GF,F2F,F[sF,F7**F]]lF,FjvF,F\\qF,F]qF,F7*,F]]lF,FjvF ,F\\qF,F]qF,FaalF,F,*,F]sF,F2F,F\\qF,F]qF,FgqF,F,**Fd[lF,FitF,F]qF,Feu F,F,**F]]lF,FavF,FbrF,F]qF,F7*,Fd[lF,FitF,F]qF,FdblF,FeuF,F7*,F]]lF,Fa vF,FbrF,F]qF,FdblF,F,*,FjyF,FbrF,F]qF,FaalF,F\\blF,F,**\"$W\"F,F\\qF,F 2F,FjqF,F,*,FjyF,F_vF,FbrF,F]qF,FaalF,F7**\"$;#F,F\\qF,F2F,FgqF,F7**Fj yF,F_vF,FbrF,F]qF,F,**F[dlF,FitF,F]qF,FbuF,F7**\"#aF,FbrF,F2F,FipF,F7* ,F[dlF,FitF,F]qF,FaalF,FbalF,F7**\"#\")F,FbrF,F2F,FfpF,F,*,F[dlF,FitF, F]qF,FbuF,FaalF,F,F,*(F\\qF,F]qF,F2F,F7F]uF6,$*&,fn*(F\\qF,F2F,F[sF,Fe dl*,FetF,F2F,F\\qF,F]qF,FhrF,F,**F\\elF,FbrF,F2F,FjqF,F7*,FesF,FixF,F] qF,FdblF,FeuF,F,*,F[dlF,FitF,F]qF,FaalF,F\\blF,F7*,F[dlF,FitF,F_vF,F]q F,FaalF,F,*,FesF,FixF,F]qF,FaalF,FbalF,F,*,FesF,FixF,F]qF,FbuF,FaalF,F 7*,FjyF,FbrF,F]qF,FaalF,FgclF,F,*,FjyF,FjvF,FbrF,F]qF,FaalF,F7*,FcclF, F`clF,&FeclF+F,F\\qF,F]qF,F,**F]]lF,FbrF,F]qF,F]wF,F7*,Fd[lF,FdblF,Fit F,F]qF,FavF,F7*,F]]lF,FdblF,FbrF,F]qF,F]wF,F,*,FjrF,F`clF,F_vF,F\\qF,F ]qF,F7**F]]lF,F[xF,F\\qF,F]qF,F7*(F[dlF,F2F,FatF,F7*,F]]lF,F\\qF,F]qF, FaalF,&FcalFBF,F7*,F]]lF,F[xF,F\\qF,F]qF,FaalF,F,**Fd[lF,FitF,F]qF,Fav F,F,*(FiclF,F2F,F_tF,F,**\"#FF,FitF,F2F,FfpF,F7**F`blF,FitF,F2F,FipF,F ,**FesF,FixF,F]qF,FbuF,F,**F[dlF,FitF,F_vF,F]qF,F7**F_elF,FbrF,F2F,Fgq F,F,**FhdlF,F\\qF,F2F,FhrF,F7**FesF,FixF,F]qF,FeuF,F7**FjyF,FjvF,FbrF, F]qF,F,F,*(F\\qF,F]qF,F2F,F7F]uF,,$*&,^p**FitF,F2F,F]qF,F_tF,\"'+_6*,F ]yF,Fj[lF,F]qF,FdblF,FeuF,F7*,Fc]lF,FizF,F]qF,FdblF,F]wF,F7*,Fb\\lF,Fh yF,F]qF,FdblF,FavF,F,**Fb\\lF,FhyF,F]qF,FavF,F7**F]yF,Fj[lF,F]qF,FeuF, F,*,\"'!)G7F,FixF,F]qF,FdblF,F]xF,F,**Fc]lF,FizF,F]qF,F]wF,F,*2\"&wX#F ,F[zF,F]zF,F_zF,F\\qF,F]qF,FbuF,FaalF,F7*0FdhlF,F[zF,F]zF,F_zF,F\\qF,F ]qF,FbuF,F,*2FdhlF,F[zF,F]zF,F_zF,F\\qF,F]qF,FaalF,FbalF,F,*.\"%7pF,F[ zF,F]zF,F_zF,F2F,FfpF,F7*,\"%+CF,Fj[lF,F]qF,FbuF,FaalF,F,*.\"%3YF,F[zF ,F]zF,F_zF,F2F,FipF,F,*,Fb\\lF,FhyF,F]qF,FaalF,F\\blF,F,*,Fb\\lF,FhyF, F_vF,F]qF,FaalF,F7*,FjhlF,Fj[lF,F]qF,FaalF,FbalF,F7*,\"&SI#F,FizF,F]qF ,FaalF,FgclF,F7*,FailF,FizF,FjvF,F]qF,FaalF,F,*,\"&S9'F,FixF,F]qF,Faal F,FhflF,F,*,\"&![?F,FitF,F`clF,&FeclF:F,F]qF,F,*,\"&g`\"F,FitF,F`clF,F jvF,F]qF,F7*,FdilF,FixF,F[xF,F]qF,FaalF,F7*,FahlF,FitF,F]qF,FaalF,&Fca lFOF,F7*,FahlF,FitF,FeyF,F]qF,FaalF,F,**FahlF,FixF,F]qF,F]xF,F7**FahlF ,FeyF,FitF,F]qF,F7**FdilF,FixF,F[xF,F]qF,F,**\"&gX$F,FbrF,F2F,Fb`lF,F, **FailF,FbrF,F2F,&FjpFOF,F7**\"$]%F,FhyF,F2F,FipF,F7**FjhlF,Fj[lF,F]qF ,FbuF,F7**Fb\\lF,FhyF,F_vF,F]qF,F,**\"%g@F,FizF,F2F,FgqF,F7**F_\\lF,Fi zF,F2F,FjqF,F,**\"&!GF,F\\qF,F[zF,F]zF,F_zF,F2F,FgqF,F,* ,\"(!G\")oF,FixF,Fc\\lF,F]qF,FaalF,F7**\"&?^\"F,Fj[lF,F2F,FjqF,F,**\"& !oAF,Fj[lF,F2F,FgqF,F7**Ff_lF,Fi_lF,F_vF,F]qF,F,**F`cmF,FixF,Fc\\lF,F] qF,F,**F[bmF,FhyF,F]qF,F]xF,F7**\"(g`$>F,FitF,F2F,F`^mF,F7**\"(S-H\"F, FitF,F2F,Fb^mF,F,**\"'SQ[F,FixF,F2F,FdjlF,F7**\"'gdsF,FixF,F2F,Fb`lF,F ,**\"(![!e#F,FizF,FeyF,F]qF,F7*0Fa]mF,FbrF,F[zF,F]zF,F_zF,F2F,FipF,F,* 2Fd\\mF,FitF,F[zF,F]zF,F_zF,F]qF,FaalF,FbalF,F,*0F_^mF,FbrF,F[zF,F]zF, F_zF,F2F,FfpF,F7*2Fd\\mF,FitF,F[zF,F]zF,F_zF,F]qF,FbuF,FaalF,F7*,\")gD w8F,F]qF,FdblF,FixF,Ff\\lF,F,*,\"(S1W$F,FizF,F]qF,FdblF,F`yF,F7*,\"&?N #F,)F\\qFcrF,F]qF,FaalF,FbalF,F7*,F[emF,F\\emF,F]qF,FbuF,FaalF,F,*,Ff_ lF,Fi_lF,F]qF,FaalF,F\\blF,F,*,Ff_lF,Fi_lF,F_vF,F]qF,FaalF,F7*0Fd\\mF, FitF,F[zF,F]zF,F_zF,F]qF,FbuF,F,*,F[bmF,FhyF,FdblF,F]qF,F]xF,F,*,F`cmF ,FixF,F]qF,FaalF,Ff]mF,F,*,FadmF,FizF,FeyF,F]qF,FaalF,F,*,FadmF,FizF,F ]qF,FaalF,F\\jlF,F7*2FfbmF,F[zF,F]zF,F_zF,FavF,FbrF,F]qF,FdblF,F7*,Fa` lF,Fj[lF,FdblF,F]qF,F]wF,F7*,FgdmF,Fg^lF,FitF,F]qF,FaalF,F,*,\"(?.s\"F ,F`clF,FeyF,FitF,F]qF,F7*,\"(gPH#F,F`clF,&FeclFOF,FitF,F]qF,F,*,FgdmF, FitF,F]qF,FaalF,&FcalFboF,F7*,\")+S]@F,F]qF,F2F,F`^mF,FitF,F,**FgdmF,F ixF,F]qF,Ff\\lF,F7**\"&SM\"F,F\\emF,F]qF,FeuF,F,**FiamF,Fi_lF,FavF,F]q F,F7**\"'?>CF,FizF,F2F,F_tF,F7**F[bmF,FhyF,F[xF,F]qF,F,**\"'!Gh\"F,Fiz F,F2F,FatF,F,**Fa`lF,Fj[lF,F]qF,F]wF,F,**FgdmF,Fg^lF,FitF,F]qF,F7**Fad mF,F2F,&FjpFboF,FbrF,F7**\"(?2(QF,F2F,&FgpFboF,FbrF,F,**FidmF,FizF,F]q F,F`yF,F,**F[emF,F\\emF,F]qF,FbuF,F7**\"%5WF,Fi_lF,F2F,FipF,F7**\"%:mF ,Fi_lF,F2F,FfpF,F,*,FcfmF,F\\emF,F]qF,FdblF,FeuF,F7F,*(FitF,F]qF,F2F,F 7#F,\"(+3I%FPF`pFin+3F',&F1#F7F;F\\blF7F6,&FgclF`q*&#F,F;F,F>F,F7F,,&F hfl!\"$*&#F,F;F,FEF,F7F;,&F\\jl!\"%*&#F,F;F,FSF,F7F/,&FfnF]hm*&FinF,Ff ]mF,F7FP,&F^fm!\"'*&#F,F;F,FeoF,F7Fin,&&FcalFio!\"(*&#F,F;F,F\\pF,F7F` oF`pF0+)F',&FKF;*&#FPFcrF,*&F2F,F)F,F,F7F,,&FVF/*&#FPFcrF,*&F2F,F9F,F, F7F;F`pF/+3F',$*&,**&FaalF,FbuF,F/*&F/F,FbuF,F7*(FPF,FaalF,FeuF,F7*&FP F,FeuF,F,F,*(FbrF,,&F7F,FdblF,F,F]qF,F7FhuFbhm,$*&,2*(F\\qF,FaalF,FbuF ,Fcr*(FcrF,F\\qF,FbuF,F7**F[uF,F\\qF,FaalF,FeuF,F7*(F[uF,F\\qF,FeuF,F, *&F[uF,F_vF,F,*&\"#;F,FavF,F7*(F[uF,FaalF,F_vF,F7*(F`[nF,FaalF,FavF,F, F,*(FbrF,FfjmF,F]qF,F7#F,F[uF`q,$*&,B*(FbrF,FaalF,FbuF,Fcr*(FcrF,FbrF, FbuF,F7**F[uF,FbrF,FaalF,FeuF,F7*(F[uF,FbrF,FeuF,F,*.F[uF,F2F,%#B0GF,F \\qF,F]qF,FaalF,F7*&FcsF,FjvF,F7**FcsF,FbrF,FeuF,F]qF,F,*(FcsF,FaalF,F jvF,F,*&FbwF,F]wF,F,*(FbwF,FaalF,F]wF,F7*,FcsF,FbrF,FeuF,F]qF,FdblF,F7 *,F[uF,F2F,F]\\nF,F\\qF,F]qF,F,*(F`blF,F\\qF,F_vF,F,*(FcsF,F\\qF,FavF, F7**F`blF,F\\qF,FaalF,F_vF,F7**FcsF,F\\qF,FaalF,FavF,F,F,*(FbrF,FfjmF, F]qF,F7#F7FcsF7,$*&,N*(FitF,F]qF,FeuF,!#C*(FerF,FbrF,F_vF,F,*(FgrF,Fbr F,FavF,F7*(\"#sF,F\\qF,FjvF,F7*(FesF,F\\qF,F]wF,F,*(FIF,FitF,FbuF,F7*( F]rF,FitF,FeuF,F,*&FesF,F[xF,F,*&\"$G\"F,F]xF,F7**FjrF,FavF,FbrF,F]qF, F7**Fc]nF,F\\qF,FaalF,FjvF,F,*,FjrF,FavF,FbrF,F]qF,FdblF,F,*,FcsF,FitF ,F]qF,FdblF,FeuF,F,*(FesF,FaalF,F[xF,F7*.F[uF,F2F,F]\\nF,FbrF,F]qF,Faa lF,F7*(Fi]nF,FaalF,F]xF,F,*,F[uF,F2F,F]\\nF,FbrF,F]qF,F,**FgrF,FbrF,Fa alF,FavF,F,**FesF,F\\qF,FaalF,F]wF,F7**FIF,FitF,FaalF,FbuF,F,**F]rF,Fi tF,FaalF,FeuF,F7**FerF,FbrF,FaalF,F_vF,F7F,*(FbrF,FfjmF,F]qF,F7#F,FesF 6,$*&,\\o*&F[xF,FitF,!%!)G*(F_\\lF,FixF,FjvF,F,*(F]yF,FixF,F]wF,F7*(F_ yF,FbrF,F`yF,F7*(FdyF,FbrF,FeyF,F,*(\"$D#F,FbuF,FhyF,F,*(\"$+$F,FeuF,F hyF,F7*(FdyF,FitF,F]xF,F,*(\"$+'F,FizF,F_vF,F7*,\"%_6F,FbuF,F[zF,F]zF, F_zF,F7*,F]]lF,FeuF,F[zF,F]zF,F_zF,F,**F_yF,FbrF,FaalF,F`yF,F,*,FhzF,F hyF,FeuF,F]qF,FdblF,F7*,\"$?\"F,FizF,F2F,F]\\nF,F]qF,F7*,FetF,FizF,F]q F,FdblF,FavF,F,*,FbyF,FixF,F]qF,FdblF,F]wF,F,**F_\\lF,FixF,FaalF,FjvF, F7**F]yF,FixF,FaalF,F]wF,F,**FbyF,FixF,F]qF,F]wF,F7**FdyF,FbrF,FaalF,F eyF,F7**Fc_nF,FaalF,FbuF,FhyF,F7**Fe_nF,FaalF,FeuF,FhyF,F,**FdyF,FitF, FaalF,F]xF,F7**Fh_nF,FizF,FaalF,F_vF,F,**\"$+)F,FizF,FaalF,FavF,F7*.F_ `nF,FizF,F2F,F]\\nF,F]qF,FaalF,F,*.Fj_nF,FaalF,FbuF,F[zF,F]zF,F_zF,F,* .F]]lF,FaalF,FeuF,F[zF,F]zF,F_zF,F7**FhzF,FhyF,FeuF,F]qF,F,*(F[anF,Fav F,FizF,F,**FetF,FizF,F]qF,FavF,F7**Fa`mF,FitF,FaalF,F[xF,F,F,*(FixF,Ff jmF,F]qF,F7#F,FdyF,,$*&,`pFa[lFby*.F`_mF,F\\qF,FbuF,F[zF,F]zF,F_zF,F7* .\"%sIF,F\\qF,FeuF,F[zF,F]zF,F_zF,F,*(FiilF,FitF,F`yF,F7*(\"$:$F,FbuF, Fj[lF,F,*(\"$?%F,FeuF,Fj[lF,F7*(FjhlF,FizF,FjvF,F,*(\"%gdF,FixF,F[xF,F 7*(Fb\\lF,FixF,F]xF,F,*(FiilF,FbrF,Fc\\lF,F7*(FfilF,FbrF,Ff\\lF,F,*(Fj ^mF,F_vF,FhyF,F7*(\"%+7F,FavF,FhyF,F,*,F\\ilF,F_vF,F[zF,F]zF,F_zF,F,*, \"%WhF,FavF,F[zF,F]zF,F_zF,F7*,FhzF,Fj[lF,F]qF,FdblF,FeuF,F7*,FdyF,Fiz F,F]qF,FdblF,F]wF,F7*.F_`nF,FhyF,F2F,F]\\nF,F]qF,FaalF,F,*,F_`nF,FhyF, F2F,F]\\nF,F]qF,F7*,FetF,FhyF,F]qF,FdblF,FavF,F,**FetF,FhyF,F]qF,FavF, F7**FiilF,FitF,FaalF,F`yF,F,**FhzF,Fj[lF,F]qF,FeuF,F,*,FdilF,FixF,F]qF ,FdblF,F]xF,F7**FbyF,FitF,FaalF,FeyF,F7**FdyF,FizF,F]qF,F]wF,F,**Fj^mF ,FaalF,F_vF,FhyF,F,**FjhlF,FizF,FaalF,FjvF,F7**FfilF,FbrF,FaalF,Ff\\lF ,F7**FiilF,FbrF,FaalF,Fc\\lF,F,*.F[cnF,FaalF,FavF,F[zF,F]zF,F_zF,F,*.F \\ilF,FaalF,F_vF,F[zF,F]zF,F_zF,F7**FhbnF,FaalF,FavF,FhyF,F7*0F`_mF,F \\qF,FaalF,FbuF,F[zF,F]zF,F_zF,F,*0FjanF,F\\qF,FaalF,FeuF,F[zF,F]zF,F_ zF,F7**FdilF,FixF,F]qF,F]xF,F,**Fb\\lF,FixF,FaalF,F]xF,F7**FbbnF,FixF, FaalF,F[xF,F,**\"%+KF,FizF,FaalF,F]wF,F,**F_bnF,FaalF,FeuF,Fj[lF,F,**F ]bnF,FaalF,FbuF,Fj[lF,F7*(FddnF,F]wF,FizF,F7F,*(FixF,FfjmF,F]qF,F7#F7F iilF;,$*&,\\rFi]l!&S1)*(Fd_lF,FitF,Ff\\lF,F,*(\"&+o\"F,FizF,F[xF,F7*( \"%0AF,F_vF,Fj[lF,F7*(\"%SHF,FavF,Fj[lF,F,*.FhhlF,FbrF,FbuF,F[zF,F]zF, F_zF,F7*.Fh]mF,FbrF,FeuF,F[zF,F]zF,F_zF,F,*(Fd_lF,Fg^lF,FbrF,F,*(\"'gL 9F,Fj^lF,FbrF,F7*.\"&Gh\"F,F\\qF,F_vF,F[zF,F]zF,F_zF,F,*.F\\_lF,F\\qF, FavF,F[zF,F]zF,F_zF,F7*(\"%+jF,FjvF,FhyF,F,*(F`_lF,F]wF,FhyF,F7*(FiamF ,FixF,F`yF,F7*(\"&?.%F,FixF,FeyF,F,*(Fh_lF,Fi_lF,FbuF,F,*(F[`lF,Fi_lF, FeuF,F7*,\"&cA$F,FjvF,F[zF,F]zF,F_zF,F7*,\"&3I%F,F]wF,F[zF,F]zF,F_zF,F ,**F^^lF,FizF,F]qF,F]xF,F7*.FhfnF,FaalF,F]wF,F[zF,F]zF,F_zF,F7*.FffnF, FaalF,FjvF,F[zF,F]zF,F_zF,F,**F`_lF,FaalF,F]wF,FhyF,F,*0FhhlF,FbrF,Faa lF,FbuF,F[zF,F]zF,F_zF,F,**F[`lF,Fi_lF,FaalF,FeuF,F,*0Fh]mF,FbrF,FaalF ,FeuF,F[zF,F]zF,F_zF,F7**F^fnF,FaalF,FjvF,FhyF,F7*0FhfnF,FbrF,F]qF,Feu F,F[zF,F]zF,F_zF,F7*2\"%w`F,F\\qF,F2F,F]\\nF,F]zF,F[zF,F_zF,F]qF,F,*4F cgnF,F\\qF,F2F,F]\\nF,F]zF,F[zF,F_zF,F]qF,FaalF,F7*2FhfnF,FbrF,F]qF,Fd blF,FeuF,F[zF,F]zF,F_zF,F,*,\"'+w`F,FixF,F]qF,FdblF,F`yF,F,*.\"$5#F,Fj [lF,F2F,F]\\nF,F]qF,FaalF,F,*0F[fnF,F\\qF,FaalF,F_vF,F[zF,F]zF,F_zF,F7 *0F\\_lF,F\\qF,FaalF,FavF,F[zF,F]zF,F_zF,F,**FggnF,FixF,F]qF,F`yF,F7** FienF,FaalF,Fj^lF,FbrF,F,**FbfnF,FixF,FaalF,FeyF,F7**Fh_lF,Fi_lF,FaalF ,FbuF,F7**Ff_lF,FitF,FaalF,Fc\\lF,F,**FbenF,FaalF,F_vF,Fj[lF,F,**FdenF ,FaalF,FavF,Fj[lF,F7**F`enF,FizF,FaalF,F[xF,F,**\"&+C#F,FizF,FaalF,F]x F,F7**Fd_lF,FaalF,Fg^lF,FbrF,F7**Fd_lF,FitF,FaalF,Ff\\lF,F7*,\"%?nF,Fh yF,F]qF,FdblF,F]wF,F7*,F^^lF,FizF,F]qF,FdblF,F]xF,F,*,FignF,Fj[lF,F2F, F]\\nF,F]qF,F7**F_bnF,Fi_lF,F]qF,FeuF,F,*,F_bnF,Fi_lF,F]qF,FdblF,FeuF, F7**FihnF,FhyF,F]qF,F]wF,F,*,\"%!o\"F,Fj[lF,F]qF,FdblF,FavF,F,**F`inF, Fj[lF,F]qF,FavF,F7*(FehnF,F]xF,FizF,F,**FiamF,FixF,FaalF,F`yF,F,F,*(Fi xF,FfjmF,F]qF,F7#F,Fd_lF/F`pFP+3F',$*&,(*&FaalF,FbalF,F7FajmF,FbuF7F,F 2F7#F`[nFinF`q,$*&,2*(FeuF,F\\qF,FdblF,F`q*(F;F,FaalF,F\\blF,F,*(F;F,F aalF,F_vF,F7*&F;F,F_vF,F,*(F;F,F\\qF,FeuF,F,*(F\\qF,FaalF,FbalF,F7Fjjm F,F\\vF7F,F2F7#!\")FinF7,$*&,@*&FaalF,FgclF,!#;*(F`[nF,FaalF,FjvF,F,*( F;F,F`clF,FbalF,F7*&F`[nF,FjvF,F7*(FinF,F2F,F?F,F,*(FPF,FbrF,FeuF,F,*( F`[nF,F\\qF,FavF,F7**FPF,FdblF,FeuF,FbrF,F7**F`[nF,FdblF,FavF,F\\qF,F, **FiqF,F\\qF,FaalF,F\\blF,F,**FiqF,F\\qF,FaalF,F_vF,F7*(FiqF,F\\qF,F_v F,F,**F/F,FbrF,FaalF,FbalF,F7**F/F,FbrF,FaalF,FbuF,F,*(F/F,FbrF,FbuF,F 7F,F2F7#F,FinF6,$*&,LFhwF\\t*(F[uF,FbrF,FavF,F,*(FcsF,F\\qF,FjvF,F,*(F grF,F\\qF,F]wF,F7*(F/F,FitF,FbuF,F,*(F/F,FitF,FeuF,F7*(\"#IF,F2F,FFF,F ,*&FgrF,F[xF,F7**F[uF,FdblF,FavF,FbrF,F7**FgrF,FdblF,F]wF,F\\qF,F,*(Fg rF,FaalF,FhflF,F7*(F`oF,F`clF,F\\blF,F7*(FiqF,F`clF,F)F,F,**F/F,FdblF, FeuF,FitF,F,**FcsF,F\\qF,FaalF,FgclF,F,**FcrF,FbrF,FaalF,F\\blF,F7**F/ F,FitF,FaalF,FbalF,F,**FcsF,F\\qF,FaalF,FjvF,F7*(FgrF,FaalF,F[xF,F,**F /F,FitF,FaalF,FbuF,F7**FcrF,FbrF,FaalF,F_vF,F,F,F2F7#F,FIF,,$*&,fnF\\_ nF]y*(FjxF,FixF,FjvF,F7*(FetF,FixF,F]wF,F,*(FdyF,FbrF,FeyF,F7*(FgyF,Fb uF,FhyF,F7*(F\\\\lF,FeuF,FhyF,F,*(FdyF,FitF,F]xF,F7*(FhzF,FizF,F_vF,F, *,FjyF,FbuF,F[zF,F]zF,F_zF,F,**FjxF,FixF,FaalF,FjvF,F,**FdyF,FbrF,Faal F,FeyF,F,**FgyF,FaalF,FbuF,FhyF,F,**FhzF,FizF,FaalF,F_vF,F7*.FjyF,Faal F,FbuF,F[zF,F]zF,F_zF,F7*.FjyF,F[zF,F]zF,F_zF,FaalF,FbalF,F,**FhzF,Fiz F,FdblF,FavF,F,**FjxF,FixF,FaalF,FgclF,F7**F\\\\lF,FhyF,FdblF,FeuF,F7* *FhzF,FizF,FaalF,F\\blF,F,**FgyF,FhyF,FaalF,FbalF,F7**\"%+OF,FbrF,F2F, FTF,F,**FdyF,FbrF,FaalF,F\\jlF,F7**Fa]lF,FbrF,F`clF,F9F,F,**FetF,FixF, FdblF,F]wF,F7**FdyF,FitF,FdblF,F]xF,F,**F]sF,FbrF,F`clF,FgclF,F7**F]yF ,FitF,FaalF,FhflF,F,*(FhzF,FavF,FizF,F7**F]yF,FitF,FaalF,F[xF,F7F,*&F2 F,FbrF,F7#F,FhbnF;,$*&,joFa[lFdy**Fb\\lF,FdblF,FitF,F`yF,F,*.Fd[lF,F\\ qF,FbuF,F[zF,F]zF,F_zF,F7*.FjyF,F\\qF,FeuF,F[zF,F]zF,F_zF,F,*(Fb\\lF,F itF,F`yF,F7*(Fi[lF,FbuF,Fj[lF,F,*(Fd\\oF,FeuF,Fj[lF,F7*(F]sF,FizF,FjvF ,F,*(F_\\lF,FixF,F[xF,F7*(F]yF,FixF,F]xF,F,*(Fb\\lF,FbrF,Fc\\lF,F7*(Fh \\lF,F_vF,FhyF,F7*(F_`nF,FavF,FhyF,F,*,F]]lF,F_vF,F[zF,F]zF,F_zF,F,**F dyF,FitF,FaalF,FeyF,F7**Fh\\lF,FaalF,F_vF,FhyF,F,**F]sF,FizF,FaalF,Fjv F,F7**Fb\\lF,FbrF,FaalF,Fc\\lF,F,*.F]]lF,FaalF,F_vF,F[zF,F]zF,F_zF,F7* 0Fd[lF,F\\qF,FaalF,FbuF,F[zF,F]zF,F_zF,F,**F_\\lF,FixF,FaalF,F[xF,F,*0 Fd[lF,F\\qF,F[zF,F]zF,F_zF,FaalF,FbalF,F7*0FjyF,F[zF,F]zF,F_zF,FeuF,F \\qF,FdblF,F7*.F]]lF,F[zF,F]zF,F_zF,FaalF,F\\blF,F,**\"%!G\"F,F`clF,FA F,FbrF,F,**FetF,F`clF,FhflF,FbrF,F7**Fb\\lF,FaalF,Ff]mF,FbrF,F7**\"%+' *F,F2F,FgnF,FbrF,F,**F_\\lF,FixF,FaalF,FhflF,F7**F_`nF,FhyF,FdblF,FavF ,F7**F]sF,FizF,FdblF,F]wF,F,**FdyF,FitF,FaalF,F\\jlF,F,**F]yF,FixF,Fdb lF,F]xF,F7**F]sF,FizF,FaalF,FgclF,F,**Fd\\oF,Fj[lF,FdblF,FeuF,F,**Fi[l F,Fj[lF,FaalF,FbalF,F,**Fh\\lF,FhyF,FaalF,F\\blF,F7**Fi[lF,FaalF,FbuF, Fj[lF,F7*(F]sF,F]wF,FizF,F7F,*&FbrF,F2F,F7#F,FjhlF/,$*&,jp*,F[zF,F]zF, F_zF,FaalF,FgclF,F]`l**Fd_lF,FdblF,FixF,F`yF,F7**Ff^lF,FdblF,FitF,Ff\\ lF,F,*(Fa`lF,Fc\\lF,FitF,F,**F`_lF,FhyF,FaalF,FgclF,F7**F`inF,Fj[lF,Fd blF,FavF,F,**F_bnF,Fi_lF,FdblF,FeuF,F7**F^^lF,FizF,FdblF,F]xF,F,**Fihn F,FhyF,FdblF,F]wF,F7**Ff_lF,FixF,FaalF,F\\jlF,F7**F^^lF,FizF,FaalF,Fhf lF,F,**Fa`lF,FitF,FaalF,Ff]mF,F,*(Ff^lF,FitF,Ff\\lF,F7*(F^^lF,FizF,F[x F,F,*(F`^lF,F_vF,Fj[lF,F,*(F`inF,FavF,Fj[lF,F7**F`^lF,Fj[lF,FaalF,F\\b lF,F,**Fh_lF,Fi_lF,FaalF,FbalF,F7*.Fb\\lF,FbrF,FbuF,F[zF,F]zF,F_zF,F,* (Ff^lF,Fg^lF,FbrF,F7*.F\\_lF,F\\qF,F_vF,F[zF,F]zF,F_zF,F7*.FhfnF,F\\qF ,FavF,F[zF,F]zF,F_zF,F,*(F`_lF,FjvF,FhyF,F7*(FihnF,F]wF,FhyF,F,*(Fd_lF ,FixF,F`yF,F,*(Ff_lF,FixF,FeyF,F7*(Fh_lF,Fi_lF,FbuF,F7*(F_bnF,Fi_lF,Fe uF,F,*,F]`lF,FjvF,F[zF,F]zF,F_zF,F,**Ff^lF,FaalF,F^fmF,FbrF,F7**\"'+?n F,F2F,FfoF,FbrF,F,**\"&!orF,F`clF,FNF,FbrF,F,**FiamF,F`clF,F\\jlF,FbrF ,F7*0FhfnF,FdblF,F\\qF,FavF,F[zF,F]zF,F_zF,F7*.F]`lF,FaalF,FjvF,F[zF,F ]zF,F_zF,F7*0Fb\\lF,FbrF,FaalF,FbuF,F[zF,F]zF,F_zF,F7**F`_lF,FaalF,Fjv F,FhyF,F,*0F\\_lF,F\\qF,FaalF,F_vF,F[zF,F]zF,F_zF,F,**Ff_lF,FixF,FaalF ,FeyF,F,**Fh_lF,Fi_lF,FaalF,FbuF,F,**Fa`lF,FitF,FaalF,Fc\\lF,F7**F`^lF ,FaalF,F_vF,Fj[lF,F7**F^^lF,FizF,FaalF,F[xF,F7**Ff^lF,FaalF,Fg^lF,FbrF ,F,*0Fb\\lF,FbrF,F[zF,F]zF,F_zF,FaalF,FbalF,F,*0F\\_lF,F\\qF,F[zF,F]zF ,F_zF,FaalF,F\\blF,F7*(F^^lF,F]xF,FizF,F7F,*&FbrF,F2F,F7#F,\"'+W8FPF`p Fin+3F'*&FdclF,*&F\\qF,F]qF,F7F`q,$*&,&*&FdclF,F\\qF,F,*&F;F,F`flF,F7F ,*&F\\qF,F]qF,F7F]hmF7,$*&,.*&FdclF,FbrF,\"#@*&\"$7\"F,FgilF,F,*,FgrF, F2F,F\\qF,F]qF,FfpF,F7**FifoF,F`flF,F\\qF,F]qF,F,*,F\\\\lF,F2F,F\\qF,F ]qF,-%$J_4GF5F,F,*(\"#cF,F`flF,F\\qF,F7F,*&F\\qF,F]qF,F7#F,FifoF6,$*&, 0*&F`flF,FbrF,!#@*,F\\\\lF,F2F,F\\qF,F]qF,--%\"DG6#F^goF5F,F7*&FifoF,F i`mF,F7*,FgrF,F2F,F\\qF,F]qF,FgqF,F,**\"$C#F,FgilF,F\\qF,F]qF,F7*(F`go F,F\\qF,FgilF,F,*(F0F,FdclF,FitF,F,F,*&F\\qF,F]qF,F7#F7FifoF,,$*&,4*&F ixF,FgilF,F`in*(\"%g*)F,FbrF,F\\fmF,F,*,FjhlF,FitF,F2F,F]qF,---%#@@G6$ F[hoF;F\\hoF5F,F,*,FdyF,FitF,F2F,F]qF,FhrF,F7**F^^lF,FitF,Fi`mF,F]qF,F ,*(\"$v\"F,FdclF,FhyF,F,*,\"%#z\"F,FdclF,F[zF,F]zF,F_zF,F7*(\"%![%F,Fi tF,Fi`mF,F7*(\"$g&F,F`flF,FizF,F7F,*&FitF,F]qF,F7#F,FjhoF;,$*&,8*&FizF ,FgilF,!%?6*(Fb^lF,FixF,Fi`mF,F,*(FjhoF,FitF,F\\fmF,F7*.\"$'*)F,FdclF, F\\qF,F[zF,F]zF,F_zF,F,*(\"$0\"F,FdclF,Fj[lF,F7**FgdoF,FitF,F\\fmF,F]q F,F,*,Fb\\lF,FitF,F2F,F]qF,F_tF,F7*,\"%+;F,FitF,F2F,F]qF,---F_io6$F[ho F/F\\hoF5F,F,*,\"%%e$F,F`flF,F[zF,F]zF,F_zF,F7*(\"&?z\"F,FbrF,&FeclF[o F,F,*(\"$]$F,F`flF,FhyF,F,F,*&F]qF,FitF,F7#F,Fc[pF/,$*&,<*(Fd[pF,FitF, F]qF,!'+or*(F^^lF,FixF,F\\fmF,F7*(\"%+GF,FgilF,FhyF,F7*(FienF,&FeclFbo F,FbrF,F7*,F^_lF,FgilF,F[zF,F]zF,F_zF,F,*,FdilF,F2F,FitF,F]qF,Fb`lF,F, *,FddnF,F2F,FitF,F]qF,---F_io6$F[hoFPF\\hoF5F,F7*(FgdoF,FitF,Fd[pF,F,* (FjhoF,FizF,Fi`mF,F,*(\"$S)F,F`flF,Fj[lF,F,*(\"$X#F,FdclF,Fi_lF,F7*.Ff zF,FdclF,FbrF,F[zF,F]zF,F_zF,F,*.\"%orF,F`flF,F\\qF,F[zF,F]zF,F_zF,F7F ,*&FitF,F]qF,F7#F7FienFPF`pFin+3F'*&F`sF,*&F\\qF,F]qF,F7F`q,$*&,&*&F`s F,F\\qF,F,*&F;F,FctF,F7F,*&F\\qF,F]qF,F7F]hmF7,$*&,.*&F`sF,FbrF,F_el*& FiclF,&FasF:F,F,*,FedlF,F2F,FipF,F\\qF,F]qF,F,**FiclF,FctF,F\\qF,F]qF, F,*,Fi]nF,F2F,-%#B3GF5F,F\\qF,F]qF,F,*(FhdlF,FctF,F\\qF,F7F,*&F\\qF,F] qF,F7#F,FiclF6,$*&,0*&FctF,FbrF,F_el**\"$k)F,Fc^pF,F\\qF,F]qF,F,*,Fi]n F,F2F,--F[ho6#Fh^pF5F,F\\qF,F]qF,F,*,FedlF,F2F,FjqF,F\\qF,F]qF,F,*&Fic lF,&FasFBF,F,*(FhdlF,F\\qF,Fc^pF,F7*(F]glF,F`sF,FitF,F7F,*&F\\qF,F]qF, F7F[_pF,,$*&,4*&FixF,Fc^pF,Fb[m**\"'!o.\"F,FitF,Fh_pF,F]qF,F,*,F_yF,Fi tF,F2F,--F^ioFe_pF5F,F]qF,F,*,FbyF,FitF,F2F,F[sF,F]qF,F,*(FbjlF,FbrF,& FasFOF,F,*(Fe[mF,F`sF,FhyF,F,*,FhhlF,F`sF,F[zF,F]zF,F_zF,F7*(F][mF,Fit F,Fh_pF,F7*(FjjlF,FctF,FizF,F7F,*&FitF,F]qF,F7#F,FbjlF;,$*&,8*&F`sF,Fj [lF,!%:7*(Fa`pF,FitF,Fg`pF,F7*(\"%]SF,FctF,FhyF,F,*(\"'gt?F,FbrF,&FasF [oF,F,*(\"&!))QF,FixF,Fh_pF,F,*(F_]mF,FizF,Fc^pF,F7*.\"&o.\"F,F`sF,F\\ qF,F[zF,F]zF,F_zF,F,*,Fe\\lF,FitF,F2F,--F^[pFe_pF5F,F]qF,F,*,F_^mF,Fit F,F2F,FatF,F]qF,F,*,\"&s9%F,FctF,F[zF,F]zF,F_zF,F7**\"'S%H)F,FitF,Fg`p F,F]qF,F,F,*&FitF,F]qF,F7#F,FgapF/,$*&,<*(FhapF,FitF,F]qF,\")+31e*(\"& X)>F,F`sF,Fi_lF,F,*(\")g@h6F,&FasFboF,FbrF,F,*(\"&S!oF,FctF,Fj[lF,F7*( F_dmF,FizF,Fh_pF,F7*,\"(KCK#F,Fc^pF,F[zF,F]zF,F_zF,F7*,FienF,F2F,--Fh \\pFe_pF5F,FitF,F]qF,F,*(\"(!Gx@F,FixF,Fg`pF,F,*.FgapF,F`sF,FbrF,F[zF, F]zF,F_zF,F7*,F_gmF,F2F,FdjlF,FitF,F]qF,F,*(\"'+oAF,Fc^pF,FhyF,F,*.\"' 31eF,FctF,F\\qF,F[zF,F]zF,F_zF,F,*(\"(!31eF,FitF,FhapF,F7F,*&FitF,F]qF ,F7#F,F`cpFPF`pFin" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 265 "#sol ve by looking at lowest powers\ndosolve:=proc(ineqs)\n local tmp,vars; \n map(series,ineqs,t);\n map(simplify,%);\n map(convert,%,polynom);\n map(tcoeff,%,t):\n tmp:=map(simplify,%);\n vars:=indets(tmp) minus kn ownvars;\n print(vars);\n solve(tmp,vars);\n assign(%);\nend;\n\n" }} {PARA 12 "" 1 "" {XPPMATH 20 "6#>%(dosolveGR6#%&ineqsG6$%$tmpG%%varsG6 \"F+C+-%$mapG6%%'seriesG9$%\"tG-F.6$%)simplifyG%\"%G-F.6%%(convertGF6% (polynomG-F.6%%'tcoeffGF6F2>8$F3>8%-%&minusG6$-%'indetsG6#F?%*knownvar sG-%&printG6#FA-%&solveG6$F?FA-%'assignG6#F6F+F+F+" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 73 "#get the solution\nfor i from 1 to Ord+1 do \n dosolve(series_eqs);\nend do;\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6# <-&%%sJ_3G6#\"\"!&%%spirGF&&%%spigGF&&%$sqgGF&&%%sG_3G6#\"\"\"&%$sqrGF &&F3F0&%%sG_4G6#\"\"#&%#svGF&&%$sB2GF&&%$sE2GF&" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#<.&%%sJ_3G6#\"\"\"&%%spirG6#\"\"!&F)F&&%%spigGF&&%$sqgG F&&%%sG_3G6#\"\"#&%$sqrGF3&%%sG_4G6#\"\"$&%#svGF*&F " 0 "" {MPLTEXT 1 0 54 "sig_ser:=simplify(series(expandfully(sigma(t)),t,7 ));\n" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%(sig_serG++%\"tG,$*&*&,&%#R vG\"\"\"F,!\"\"F,&%#svG6#\"\"!F,F,,&F+\"\"%\"\"&F,F-!\"%F1,$*&,0*(%\"k GF,)F+\"\"#F,%#B0GF,\"#g**\"$S\"F,%&omegaGF,F+F,F.F,F,**\"#:F,F+F,F=F, F:F,F,*,\"$[%F,FAF,%,delta_tightGF,F.F,F+F,F,*(F@F,FAF,F.F,F-**FEF,FAF ,FFF,F.F,F-*(\"#vF,F=F,F:F,F-F,*&F2F,,&F+F3FCF,F,F-#\"\"$\"#9F,,$*&,N* ,)F+FNF,FAF,FFF,F=F,F:F,\"$7&*.\"%7DF,FAF,FFF,F;F,F=F,F:F,F-**\"#!)F,) F:F " 0 "" {MPLTEXT 1 0 39 "sv[0]:=solve(sig0=coeff(%,t,0),sv[0]);\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%#svG6#\"\"!,$*&*&%%sig0G\"\"\",&%#RvG\"\"%\"\"&F,F,F ,,&F.F,F,!\"\"F2#F2F/" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 44 "#S o solution for sigma is\nsimplify(sig_ser);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#++%\"tG%%sig0G\"\"!,$*&,**(%#RvG\"\"\"%#B0GF,%\"kGF,!#: *(\"#:F,F-F,F.F,F,*(\"#NF,%&omegaGF,F%F,F,**\"$7\"F,F4F,%,delta_tightG F,F%F,F,F,,&F+\"\"%F1F,!\"\"#!\"$\"#9F,,$*&,N*,)F+\"\"$F,F4F,F7F,F-F,F .F,!$7&*,\"%![%F,)F+\"\"#F,)F4FHF,F7F,F%F,F,*,\"$+*F,F4F,FGF,F-F,F.F,F ,*.\"$'*)F,FGF,FIF,F7F,F%F,%#RcGF,F:*.\"%kOF,F4F,F7F,FGF,F-F,F.F,F,** \"#!)F,)F.FHF,F%F,FGF,F,**\"$S\"F,FIF,FGF,F%F,F,*,\"%)o#F,FIF,FGF,)F7F HF,F%F,F:*.FFF,FIF,F7F,F+F,F%F,FNF,F:*,\"%CIF,FIF,F7F,F%F,F+F,F:**\"%: " 0 "" {MPLTEXT 1 0 43 "simplify(subs(delta_tight=0, subs(B0=0,%)));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#++%\"tG%%sig0G\"\"! ,$*&*&%&omegaG\"\"\"F%F+F+,&%#RvG\"\"%\"#:F+!\"\"#!#:\"\"#F+,$*&*&,**& )%\"kGF3F+F-F+\"#;*(\"#GF+)F*F3F+F-F+F+*&\"$:$F+F>F+F0*&\"#gF+F9F+F+F+ F%F+F+*&F,F+,&F-F3F/F+F+F0#F2\"$7\"F3-%\"OG6#F+\"\"$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 59 "#photon heat flux\nsimplify(series(expand fully(qg(t)),t,3));" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#++%\"tG,$*&*&%% sig0G\"\"\",&%#RvG\"\"%\"\"&F)F)F),&F+F)F)!\"\"F/#F/\"\"$\"\"!,$*&,0** F(F)%&omegaGF)%#RcGF)F+F)F,**F-F)F(F)F7F)F8F)F)**F,F)F7F)F+F)F(F)F/*(F -F)F7F)F(F)F/**\"\"#F)%\"kGF))F+F=F)%#B0GF)F/**F,F)F+F)F@F)F>F)F)*(F=F )F@F)F>F)F/F)*$)F.F=F)F/#F)F,F),$*&*&F7F),>*(F+F)F@F)F>F)!#7**\"\"'F)F 8F)F@F)F>F)F/*,\"#7F)F8F)F+F)F@F)F>F)F)*,FMF)F8F)F?F)F@F)F>F)F/**FMF)F >F)F?F)F@F)F)*(FMF)F@F)F>F)F)**\"#8F)F7F)F+F)F(F)F)*(\"#5F)F7F)F(F)F)* *F,F)F7F)F?F)F(F)F)*,\"#DF)F(F)F7F)F8F)F+F)F/*,FOF))F8F=F)F7F)F+F)F(F) F)*,F,F)F8F)F(F)F7F)F?F)F/**FYF)F(F)F7F)F8F)F/**\"#:F)FenF)F7F)F(F)F)F )F)*$)F.F1F)F/#F/\"#;F=-%\"OG6#F)F1" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 43 "simplify(subs(delta_tight=0,subs(B0=0,%)));" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#++%\"tG,$*&*&%%sig0G\"\"\",&%#RvG\"\"%\"\"&F )F)F),&F+F)F)!\"\"F/#F/\"\"$\"\"!,$*&*(%&omegaGF)F(F),**&%#RcGF)F+F)F, *&F-F)F9F)F)*&F,F)F+F)F/F-F/F)F)*$)F.\"\"#F)F/#F)F,F),$*&*()F6F>F)F(F) ,2F+\"#8\"#5F)*&F,F))F+F>F)F)*(\"#DF)F9F)F+F)F/*(\"#7F))F9F>F)F+F)F)*( F,F)F9F)FHF)F/*&FJF)F9F)F/*&\"#:F)FMF)F)F)F)*$)F.F1F)F/#F/\"#;F>-%\"OG 6#F)F1" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 61 "#neutrino heat fl ux\nsimplify(series(expandfully(qr(t)),t,3));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#++%\"tG,$*&*&%%sig0G\"\"\",&%#RvG\"\"%\"\"&F)F)F)F+!\" \"#F.\"\"$\"\"!,$*&*(%#B0GF)%\"kGF),&F+F)F)F.F)F)F+F.#F.\"\"#F),$*&*&) F6F9F)F(F)F)F+F.#F)\"\"'F9-%\"OG6#F)F0" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 71 "#neutrino anisotropic stress\nsimplify(series(expandf ully(pir(t)),t,3));" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#++%\"tG*&*&%#B0 G\"\"\",&%#RvGF(F(!\"\"F(F(F*F+\"\"!,$*&*&%\"kGF(%%sig0GF(F(F*F+#!\"# \"\"$F(,$*&*&,***%&omegaGF(%,delta_tightGF(F1F(F*F(\"$[%**\"$S\"F(F:F( F*F(F1F(F(**\"$D#F(F*F(F'F(F0F(F(*(F@F(F'F(F0F(F+F(F0F(F(*&F*F(,&F*\" \"%\"#:F(F(F+#F+\"#q\"\"#-%\"OG6#F(F4" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "16 0 0" 7 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }