{VERSION 5 0 "IBM INTEL NT" "5.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 "Warning" -1 7 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 2 2 2 2 2 1 1 1 3 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 Plot" -1 13 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 1 0 0 0 0 1 0 1 0 2 2 0 1 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "restart:with(plots): with(StringTools):" }}{PARA 7 "" 1 "" {TEXT -1 50 "Warning, the name c hangecoords has been redefined\n" }}{PARA 7 "" 1 "" {TEXT -1 58 "Warni ng, the assigned name Group now has a global binding\n" }}}{PARA 0 "" 0 "" {TEXT -1 97 "Set up the parameters: r the interval length l and n umber of grid point in the spatial direction." }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "r:=0.50;l:=1.0;n:=5;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"rG$\"#]!\"#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\" lG$\"#5!\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"nG\"\"&" }}}{PARA 0 "" 0 "" {TEXT -1 68 "Compute mesh spacing h, time step k, and total \+ number of time steps." }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "h:= l/n;k:=r*h^2;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"hG$\"+++++?!#5" } }{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"kG$\"+++++?!#6" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "tsteps:=round(0.3/k);" }}{PARA 11 "" 1 " " {XPPMATH 20 "6#>%'tstepsG\"#:" }}}{PARA 0 "" 0 "" {TEXT -1 20 "Bound ary conditions." }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "al:=0.0;a r:=0.0;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#alG$\"\"!F&" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#arG$\"\"!F&" }}}{PARA 0 "" 0 "" {TEXT -1 93 "Set up grid xh and initial solution unew from the initial conditions \+ and boundary conditions." }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 " xh[0+1]:=0.0;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%#xhG6#\"\"\"$\"\"! F)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "unew[0+1]:=al;" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>&%%unewG6#\"\"\"$\"\"!F)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "for i from 1 to n-1 do" }}{PARA 0 " > " 0 "" {MPLTEXT 1 0 13 "xh[i+1]:=i*h:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "unew[i+1]:=sin(Pi*i*h):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "o d:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "xh[n+1]:=l;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%#xhG6#\"\"'$\"#5!\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "unew[n+1]:=ar;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%%unewG6#\"\"'$\"\"!F)" }}}{PARA 0 "" 0 "" {TEXT -1 70 "Graphics: plotting initial condition and initial approximate solut ion." }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "an:=seq([xh[i],unew[ i]],i=1..n+1):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 144 "p[1]:=di splay(pointplot([an],style=line,view=[0..1,0..1],color=blue),\nplot(si n(Pi*x),x=0..1),color=red,title=Join([\"t=\",convert(0,string)],\"\")) :" }}}{PARA 0 "" 0 "" {TEXT -1 19 "Time stepping loop." }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "for j from 1 to tsteps do" }}{PARA 0 "" 0 "" {TEXT -1 26 "resetting initial solution" }}{PARA 0 "> " 0 " " {MPLTEXT 1 0 22 "for i from 1 to n+1 do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "uold[i]:=unew[i];" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "od;" }}{PARA 0 "" 0 "" {TEXT -1 64 "timestepping the solution (comp uting solution at next time step)" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "unew[0+1]:=al;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "for i from 1 \+ to n-1 do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 64 "unew[i+1]:=evalf(r*uol d[i-1+1]+(1-2*r)*uold[i+1]+r*uold[i+1+1]);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "od:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "unew[n+1]:=a r;" }}{PARA 0 "" 0 "" {TEXT -1 69 "plotting exact solution and approxi mate solution at the new time step" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "an:=seq([xh[i],unew[i]],i=1..n+1);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 162 "p[j+1]:=display(pointplot([an],style=line,view=[0..1,0..1],co lor=blue),plot(exp(-Pi^2*k*j)*sin(Pi*x),x=0..1),color=red,title=Join([ \"t=\",convert(k*j,string)],\"\")):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "od:" }}}{PARA 0 "" 0 "" {TEXT -1 44 "More graphics stuff to create \+ the animation." }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "pseq:=seq( p[j],j=1..tsteps+1):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "dis play(pseq,insequence=true);" }}{PARA 13 "" 1 "" {GLPLOT2D 338 338 338 {PLOTDATA 2 "6#-%(ANIMATEG627'-%'CURVESG6%7(7$$\"\"!F-F,7$$\"+++++?!#5 $\"+CD&y(eF17$$\"+++++SF1$\"+l^c5&*F17$$\"+++++gF1$\"+j^c5&*F17$$\"+++ ++!)F1$\"+AD&y(eF17$$\"#5!\"\"F,-%'COLOURG6&%$RGBGF,F,$\"*++++\"!\")-% &STYLEG6#%%LINEG-F(6$7SF+7$$\"3emmm;arz@!#>$\"3%3.y1UFC%oFX7$$\"3[LL$e 9ui2%FX$\"3S0E$\\*>5x7!#=7$$\"3nmmm\"z_\"4iFX$\"33DjyhcJQ>Fjn7$$\"3[mm mT&phN)FX$\"37lrkN&>^f#Fjn7$$\"3CLLe*=)H\\5Fjn$\"3em9&><)3PKFjn7$$\"3g mm\"z/3uC\"Fjn$\"3a'*\\FO+J>QFjn7$$\"3%)***\\7LRDX\"Fjn$\"3aoUu_Vb1WFj n7$$\"3]mm\"zR'ok;Fjn$\"3+&QluJ6Y*\\Fjn7$$\"3w***\\i5`h(=Fjn$\"37)3%>R SrebFjn7$$\"3WLLL3En$4#Fjn$\"3#Gr/vm^L6'Fjn7$$\"3qmm;/RE&G#Fjn$\"3)z2c 6m@$ylFjn7$$\"3\")*****\\K]4]#Fjn$\"3gg91)eyJ2(Fjn7$$\"3$******\\PAvr# Fjn$\"3Jeb.k3SPvFjn7$$\"3)******\\nHi#HFjn$\"315uCQmy^zFjn7$$\"3jmm\"z *ev:JFjn$\"3GPV)\\lE&)H)Fjn7$$\"3?LLL347TLFjn$\"3U!)pl,3Ys')Fjn7$$\"3, LLLLY.KNFjn$\"3?ReX^FIb*)Fjn7$$\"3w***\\7o7Tv$Fjn$\"3xCo`B?tV#*Fjn7$$ \"3'GLLLQ*o]RFjn$\"3MA\"*H%*[bh%*Fjn7$$\"3A++D\"=lj;%Fjn$\"37MQc!38!f' *Fjn7$$\"31++vV&RY2aFjn$\"38Ta,b;==**Fjn7$$\"39mm;zXu9cFjn$\"3KH9byt39)*Fjn7$$\"3l*** ***\\y))GeFjn$\"3Cg?.#[jGm*Fjn7$$\"3'*)***\\i_QQgFjn$\"3[;[BH*4EZ*Fjn7 $$\"3@***\\7y%3TiFjn$\"3I/x\\msZ\\#*Fjn7$$\"35****\\P![hY'Fjn$\"3or<>P >%y&*)Fjn7$$\"3kKLL$Qx$omFjn$\"3=(y2)*flvl)Fjn7$$\"3!)*****\\P+V)oFjn$ \"3O(fb)4!G%)H)Fjn7$$\"3?mm\"zpe*zqFjn$\"3;3LRnG)*RzFjn7$$\"3%)*****\\ #\\'QH(Fjn$\"3mxh\")=G%Q^(Fjn7$$\"3GKLe9S8&\\(Fjn$\"3!Q-Ps/p=3(Fjn7$$ \"3R***\\i?=bq(Fjn$\"3%[u6(H[5+mFjn7$$\"3\"HLL$3s?6zFjn$\"3\"f39`W775' Fjn7$$\"3a***\\7`Wl7)Fjn$\"3%o.si9n;b&Fjn7$$\"3#pmmm'*RRL)Fjn$\"3=grZU %\\$)*\\Fjn7$$\"3Qmm;a<.Y&)Fjn$\"3)yb&GQOe5WFjn7$$\"3=LLe9tOc()Fjn$\"3 jF4MZeM3QFjn7$$\"3u******\\Qk\\*)Fjn$\"3e*\\4grK-C$Fjn7$$\"3CLL$3dg6<* Fjn$\"3Ol0h>4buDFjn7$$\"3ImmmmxGp$*Fjn$\"3W4aoh2]o>Fjn7$$\"3A++D\"oK0e *Fjn$\"3%p_.9l%)RJ\"Fjn7$$\"3A++v=5s#y*Fjn$\"3e`LKC3s?oFX7$$\"\"\"F-$ \"3Z_t9*zYYA\"!#L-FH6&FJFDF,F,-%&TITLEG6#Q$t=06\"-%+AXESLABELSG6$Q\"xF i]lQ!Fi]l-%%VIEWG6$;F,F^]lFb^l7'-F(6%7(F+7$F/$\"+#e#GbZF17$F5$\"+W)3Up (F17$F:$\"+V)3Up(F17$F?Fh^lFCFGFN-F(6$7SF+7$FV$\"3R'*3#3iMnh&FX7$Ffn$ \"3?b\"*ewIL[5Fjn7$F\\o$\"35%*pB\"p-6f\"Fjn7$Fao$\"3%)*pmZW_-8#Fjn7$Ff o$\"3E:3(eTCsl#Fjn7$F[p$\"3Sb$*)38_^8$Fjn7$F`p$\"3L_!f(>E?t2c!)Fjn7$Fjv$\"3P:r0`B%>$zFjn7$F_w$\"3g\"p)=j\"pd x(Fjn7$Fdw$\"31kT^Slg#f(Fjn7$Fiw$\"3cWPz@A@`tFjn7$F^x$\"3D<^&)pZs1rFjn 7$Fcx$\"3Yb`,d*>>\"oFjn7$Fhx$\"3I0&eEb$oyT&Fjn7$F\\z$\"3./ZmMWH3]Fjn7$Faz$ \"3_<$y)*))*=dXFjn7$Ffz$\"3m04/'p))H5%Fjn7$F[[l$\"3gJM@M,^?OFjn7$F`[l$ \"3)\\a\"=r>:EJFjn7$Fe[l$\"3M*e=Pn0)fEFjn7$Fj[l$\"3[BL >TFjn7$Fdq$\"3x2Snh0kKWFjn7$Fiq$\"3)y-TPv(3mZFjn7$F^r$\"35d4KQD*)y]Fjn 7$Fcr$\"3)[98'>i6e`Fjn7$Fhr$\"3C+4&yYemGiFjn7$F\\t$\"3%[3-g\\OaP'Fjn7$Fa t$\"3cW7YZ))[3lFjn7$Fft$\"3bn=)*e3V2mFjn7$F[u$\"3!yf<%o%\\8o'Fjn7$F`u$ \"3^:h`%)[dAnFjn7$Feu$\"3#z4?6TY#QnFjn7$F[v$\"3^R?LDB'Fjn7$Fiw$\"3D/\")Q&)=-OgFjn7$F^x$\"36>i& o/)oLeFjn7$Fcx$\"3%[^_#)*>p\"f&Fjn7$Fhx$\"3wZ6RQD;]`Fjn7$F]y$\"3Ex3(y_ =I1&Fjn7$Fby$\"3-5kJ1O%>x%Fjn7$Fgy$\"39!Gb]h=tW%Fjn7$F\\z$\"38-E-HA:6T Fjn7$Faz$\"3X![B*>Y&3u$Fjn7$Ffz$\"3cc&*[o],oLFjn7$F[[l$\"3AW(HFj n7$F`[l$\"3]c)H!f.;mDFjn7$Fe[l$\"3ga*f>F^L=#Fjn7$Fj[l$\"3b\"*[7NzzML<(G vff%FX7$F^]l$\"3YbfM?=)>D)!#MFc]l-Ff]l6#Q1t=.4000000000e-1Fi]lFj]lF_^l 7'-F(6%7(F+7$F/$\"+cGP7JF17$F5$\"+n]#f.&F17$F:Fbcm7$F?F_cmFCFGFN-F(6$7 SF+7$FV$\"3Wb=KS()p%y$FX7$Ffn$\"3[X_t$3NR1(FX7$F\\o$\"3/;$y))[D@2\"Fjn 7$Fao$\"3<'yJ[J=aV\"Fjn7$Ffo$\"3yMt/Ta]!z\"Fjn7$F[p$\"3s5dF*HXD6#Fjn7$ F`p$\"3^nYX(=jtV#Fjn7$Fep$\"3!32]%p0jiFFjn7$Fjp$\"3I%y\\qK[Y2$Fjn7$F_q $\"39$)Q.J2V\"Q$Fjn7$Fdq$\"3!>WDE(fhQOFjn7$Fiq$\"3b4L]TBL7RFjn7$F^r$\" 3]!)G#Q+/\"pTFjn7$Fcr$\"3mWs&*))*4$)R%Fjn7$Fhr$\"3E`Ag,'*4!f%Fjn7$F]s$ \"3Ohm9#*3$pz%Fjn7$Fbs$\"3c!3kK1xL&\\Fjn7$Fgs$\"3u*yjlq8H6&Fjn7$F\\t$ \"31cuVzjRL_Fjn7$Fat$\"3de)GD*[hU`Fjn7$Fft$\"3>1Vi%HLQU&Fjn7$F[u$\"3Y` \\uo2^%[&Fjn7$F`u$\"3y$3*>B9N=bFjn7$Feu$\"3-?g7*o:7`&Fjn7$F[v$\"3XGc%H dY&=bFjn7$F`v$\"3m8**Q$zmf[&Fjn7$Fev$\"3IZWlM**QGaFjn7$Fjv$\"3UI/>NYuW `Fjn7$F_w$\"3-)3d];6&R_Fjn7$Fdw$\"3$>p%=G:4;^Fjn7$Fiw$\"37j1NV:ya\\Fjn 7$F^x$\"3EJ_#[-#p)y%Fjn7$Fcx$\"3=!G)yQ]/!f%Fjn7$Fhx$\"3-6Q&31\"y\"R%Fj n7$F]y$\"3#H[C__tg:%Fjn7$Fby$\"3,QipF#Rr\"RFjn7$Fgy$\"3a$oyusk1l$Fjn7$ F\\z$\"3)>#yLdiruLFjn7$Faz$\"3_%e%*Q`]22$Fjn7$Ffz$\"3wMs]4#)pkFFjn7$F[ [l$\"3$RMu[(=fRCFjn7$F`[l$\"3GS%*fi2[1@Fjn7$Fe[l$\"3#eN\"GeZC#z\"Fjn7$ Fj[l$\"3)o4\")fNTSU\"Fjn7$F_\\l$\"3wBawQ:#))3\"Fjn7$Fd\\l$\"3wTT8d7%zE (FX7$Fi\\l$\"31\"[b#RBpsPFX7$F^]l$\"3GPP+LPztnFfbmFc]l-Ff]l6#Q1t=.6000 000000e-1Fi]lFj]lF_^l7'-F(6%7(F+7$F/$\"+MD'z^#F17$F5$\"+i*[T2%F17$F:Fd ]n7$F?Fa]nFCFGFN-F(6$7SF+7$FV$\"3a5Ax+3u1JFX7$Ffn$\"3Y%Q#4KLc)z&FX7$F \\o$\"3+=0k\\Fu+))FX7$Fao$\"3#Qu]5***Gy6Fjn7$Ffo$\"3'42=\\!*p(p9Fjn7$F [p$\"3B!o)H]B7Mb2+#Fjn7$Fep$\"3'=WPA,dxE#Fjn7$Fjp$ \"3c\">H(GE)Q_#Fjn7$F_q$\"3suK@22rvFFjn7$Fdq$\"3!Hu;m-Eo)HFjn7$Fiq$\"3 'p:t7B6:@$Fjn7$F^r$\"3zz+RcqGAMFjn7$Fcr$\"30!HJ%z]V5OFjn7$Fhr$\"3a@oxs \"pyw$Fjn7$F]s$\"3w5u'*30lPRFjn7$Fbs$\"3cQrzwA2mSFjn7$Fgs$\"3C^Lc;4.(> %Fjn7$F\\t$\"3y`frt8$fH%Fjn7$Fat$\"3MD`ZMae&Q%Fjn7$Fft$\"3)\\&R.!3bAX% Fjn7$F[u$\"3C'Q\"R?L1-XFjn7$F`u$\"3l\\'4]0U)HXFjn7$Feu$\"3>(e\"[G>SSXF jn7$F[v$\"3C+=LZA+IXFjn7$F`v$\"3B?UZD&eK]%Fjn7$Fev$\"3UA7H$[&*fX%Fjn7$ Fjv$\"3[bBgtOL(Q%Fjn7$F_w$\"3$=\"[%*43&4I%Fjn7$Fdw$\"3Ew9#4\\R'*>%Fjn7 $Fiw$\"3WZWcq^AnSFjn7$F^x$\"3K6j^![()3$RFjn7$Fcx$\"3w'ppQQCyw$Fjn7$Fhx $\"3wEHf'ov]g$Fjn7$F]y$\"3&=qNTu!f6MFjn7$Fby$\"3y3rx`qX:KFjn7$Fgy$\"3% zdfDZ;n*HFjn7$F\\z$\"3_oA!e+*>qFFjn7$Faz$\"3wJ6E_Io?DFjn7$Ffz$\"3/V#zK Fa%pAFjn7$F[[l$\"3quaM`Ye-?Fjn7$F`[l$\"3i5b&=;W\"Hr9Fjn7$Fj[l$\"3/*)3V,5&*o6Fjn7$F_\\l$\"3sxy?+azP*)FX7$Fd\\l$\"3'))=&* zhDg'fFX7$Fi\\l$\"3#*y!G<7&)o4$FX7$F^]l$\"3-*>[OP&RgbFfbmFc]l-Ff]l6#Q1 t=.8000000000e-1Fi]lFj]lF_^l7'-F(6%7(F+7$F/$\"+\"[uq.#F17$F5$\"+[d0'H$ F17$F:Ffgn7$F?FcgnFCFGFN-F(6$7SF+7$FV$\"3m7CZOjA]DFX7$Ffn$\"3'fXn_Cf)f ZFX7$F\\o$\"3m**\\Se'p$Fjn7$Fev$\"350(yrH (ydOFjn7$Fjv$\"3^vR_l\\U,OFjn7$F_w$\"3@En-vf^INFjn7$Fdw$\"3Ik._#o_tW$F jn7$Fiw$\"3,R9?4zlQLFjn7$F^x$\"3`GiVkDuEKFjn7$Fcx$\"3'f6M%p\"*)G4$Fjn7 $Fhx$\"3;$[R]&QHfHFjn7$F]y$\"3*=S&[=\"o/!GFjn7$Fby$\"3gm(Qw5o%REFjn7$F gy$\"3W-!)G23\"*fCFjn7$F\\z$\"3Y7(y[qpRF#Fjn7$Faz$\"3-%o?T')\\\"p?Fjn7 $Ffz$\"3q[*R&=S#H'=Fjn7$F[[l$\"3rVx!f4fQk\"Fjn7$F`[l$\"30-*o.N+%>9Fjn7 $Fe[l$\"3;1h'H8gw?\"Fjn7$Fj[l$\"39]=m#4`bf*FX7$F_\\l$\"3ja6pYmvOtFX7$F d\\l$\"3Gl>6(zBt*[FX7$Fi\\l$\"3t'>cy6O@a#FX7$F^]l$\"33+**o=YNkXFfbmFc] l-Ff]l6#Q.t=.1000000000Fi]lFj]lF_^l7'-F(6%7(F+7$F/$\"+uy-[;F17$F5$\"+9 ^cmEF17$F:Fhao7$F?FeaoFCFGFN-F(6$7SF+7$FV$\"3[S%R>-,M4#FX7$Ffn$\"3i'>T Pb>s!RFX7$F\\o$\"33\"H[WXk,$fFX7$Fao$\"3B&\\7!\\yhRzFX7$Ffo$\"3o0!yQp$ o.**FX7$F[p$\"3kA0=vd\\o6Fjn7$F`p$\"3a!R06xf\"[8Fjn7$Fep$\"3DUT0#Rs!G: Fjn7$Fjp$\"3zC'e6Nc1q\"Fjn7$F_q$\"3%p!fx>XMq=Fjn7$Fdq$\"3G<[8&R*f7?Fjn 7$Fiq$\"3W_ua/!)*R;#Fjn7$F^r$\"3TSb,?T-1BFjn7$Fcr$\"3S'eRl/.GV#Fjn7$Fh r$\"3#4NFb9'))QDFjn7$F]s$\"3)*\\m*48*G`EFjn7$Fbs$\"3QbCl')H#)RFFjn7$Fg s$\"33yb=^i1GGFjn7$F\\t$\"3iDMN'*yq%*GFjn7$Fat$\"3oR$*H%3>^&HFjn7$Fft$ \"34B8I)yU++$Fjn7$F[u$\"3Q7_L[[gLIFjn7$F`u$\"3m-SsmGK_IFjn7$Feu$\"3Ox6 By$Q%fIFjn7$F[v$\"3QfxQ33V_IFjn7$F`v$\"3Zn%Rz?5W.$Fjn7$Fev$\"3dQR@nJc- IFjn7$Fjv$\"3+rzJ#4(HcHFjn7$F_w$\"3Cj_B?,4)*GFjn7$Fdw$\"3K7&z\\(R#)HGF jn7$Fiw$\"3wLa\"e$)*fSFFjn7$F^x$\"3/(*))HI?t[EFjn7$Fcx$\"3Q(z@c'f&)QDF jn7$Fhx$\"3Z\\>C^<>HCFjn7$F]y$\"3SAUesm\"))H#Fjn7$Fby$\"3-dm<+olm@Fjn7 $Fgy$\"35G^LHQE>?Fjn7$F\\z$\"3q#e&3&fIm'=Fjn7$Faz$\"3u%G,^R+&)p\"Fjn7$ Ffz$\"3R\"\\T(\\g@H:Fjn7$F[[l$\"3ie'pw]#R\\8Fjn7$F`[l$\"3i)[1^MT^;\"Fj n7$Fe[l$\"3(*zw@WUI8**FX7$Fj[l$\"3?^g1g$*owyFX7$F_\\l$\"3#eIf&=S^AgFX7 $Fd\\l$\"3\"4!R5/*f+-%FX7$Fi\\l$\"3GO.c9+w'3#FX7$F^]l$\"3MuOn@ftYPFfbm Fc]l-Ff]l6#Q.t=.1200000000Fi]lFj]lF_^l7'-F(6%7(F+7$F/$\"+dDGL8F17$F5$ \"+%\\'Hd@F17$F:Fj[p7$F?Fg[pFCFGFN-F(6$7SF+7$FV$\"3-4e\">T2%='y*[')y'[FX7$Fao$\"3[8%)[?RQ,(*>Fjn7$Fhr$\"3/?J%R@#4%3#Fjn7$F]s$\"3O7Q*e/-!y@Fjn7$Fbs$\"3c9!**4 )\\.\\AFjn7$Fgs$\"3?zoP;6Z@BFjn7$F\\t$\"3wrA!\\#Fjn7$F`u$\"3`beucj b0DFjn7$Feu$\"3e00bdsR6DFjn7$F[v$\"31R4oi\\k0DFjn7$F`v$\"3#>*Q]:C&3\\# Fjn7$Fev$\"3gY+.w,rkCFjn7$Fjv$\"3VU.Z-=tECFjn7$F_w$\"3)z;_*>:&*yBFjn7$ Fdw$\"3-xJ&o(R\"HK#Fjn7$Fiw$\"3-a]Fjn7$F]y$\"3cpwf$pEq)=Fjn7$Fby$ \"3%)p1k)yS&yityFX7$F`p$\"3+h:(4mVU 3*FX7$Fep$\"3Vy,4pSlH5Fjn7$Fjp$\"3uj!4K`Xf9\"Fjn7$F_q$\"3WRi**RdGg7Fjn 7$Fdq$\"3UG[d&pShN\"Fjn7$Fiq$\"3-4\"y=$p:e9Fjn7$F^r$\"3AT+AVx&Qb\"Fjn7 $Fcr$\"3-VFjn7$F\\t$\"3)3aVW&y_]>Fjn7$Fat$\"3M B1U]WB\"*>Fjn7$Fft$\"3KZ2a&=0:-#Fjn7$F[u$\"3CRtyb,7W?Fjn7$F`u$\"3'RKuH $Gtc?Fjn7$Feu$\"3_)QEdWF:1#Fjn7$F[v$\"3_6Y\"oc0o0#Fjn7$F`v$\"3\")zgeFG mW?Fjn7$Fev$\"3[9))*4[.K-#Fjn7$Fjv$\"3wJ`?A#G?*>Fjn7$F_w$\"3/')o(H)o!G &>Fjn7$Fdw$\"36*4YoT2o!>Fjn7$Fiw$\"3cFJ,@foY=Fjn7$F^x$\"3w0t]bIy%y\"Fj n7$Fcx$\"3iCnkmdu5T\"F17$F:F_`q7$F?F[`qFCFGFN-F(6$7SF+7$FV$ \"3-5Ot\\m!z:\"FX7$Ffn$\"3+V*ez+q6;#FX7$F\\o$\"3s!eB0\"e5!G$FX7$Fao$\" 3E&fr5;z:R%FX7$Ffo$\"37t$Q([w%zZ&FX7$F[p$\"3QdE([$*4KY'FX7$F`p$\"3#Q(> nU9(pX(FX7$Fep$\"3qkuv]\"3@X)FX7$Fjp$\"326Rt+%3nS*FX7$F_q$\"3o2y'*Q\"H X.\"Fjn7$Fdq$\"3gF:TtM@86Fjn7$Fiq$\"3Ai8Y5a&p>\"Fjn7$F^r$\"3[SKs7K^v7F jn7$Fcr$\"3)oZvdXPcM\"Fjn7$Fhr$\"3RS\"okP9VS\"Fjn7$F]s$\"3!RQd8@$fn9Fj n7$Fbs$\"3&)Rp!4,da^\"Fjn7$Fgs$\"3q!R8DKmUc\"Fjn7$F\\t$\"3Va.;)HF6g\"F jn7$Fat$\"3Z9/Rp?aM;Fjn7$Fft$\"3C'p.*o.Rf;Fjn7$F[u$\"3'oSC0Hazn\"Fjn7$ F`u$\"3+j+nUwI)o\"Fjn7$Feu$\"3qa.H!RVAp\"Fjn7$F[v$\"3m_UgZtO)o\"Fjn7$F `v$\"3i;y#Gv*Ry;Fjn7$Fev$\"3K_\"=lW%yg;Fjn7$Fjv$\"3&)[s\"=l$>N;Fjn7$F_ w$\"3`u%*Q\"3)*Hg\"Fjn7$Fdw$\"3)f*[ie&Q_c\"Fjn7$Fiw$\"3$4Q^Mq')e^\"Fjn 7$F^x$\"3Mq#Rwds]Y\"Fjn7$Fcx$\"3Xh8H$o(H/9Fjn7$Fhx$\"3&Q7`!o*ROM\"Fjn7 $F]y$\"3!)4#*H8m_r7Fjn7$Fby$\"3C4$R%\\gU)>\"Fjn7$Fgy$\"3SyT9?(**o6\"Fj n7$F\\z$\"331lk%)[ZK5Fjn7$Faz$\"3[StUGLy%R*FX7$Ffz$\"35jgqvRVe%)FX7$F[ [l$\"39JXp#)**yjuFX7$F`[l$\"3Nn?JOelWkFX7$Fe[l$\"3UQP.*)*oK[&FX7$Fj[l$ \"3](o)o9?xcVFX7$F_\\l$\"3rwcs2k=JLFX7$Fd\\l$\"3_Lsi9XeBAFX7$Fi\\l$\"3 iQm*3OLU:\"FX7$F^]l$\"3AvI)G%HSs?FfbmFc]l-Ff]l6#Q.t=.1800000000Fi]lFj] lF_^l7'-F(6%7(F+7$F/$\"+IW%)fqF]`q7$F5$\"+CoIU6F17$F:Fajq7$F?F^jqFCFGF N-F(6$7SF+7$FV$\"3\"Q`PXY$*[]*!#?7$Ffn$\"3%)*=]D&o.u@hFX7$Fep$\"3n5(pr!Rl!)FX7$F^r$\"3!3$*[6mKZf)FX7$Fcr$\"3G*G=$ewCn!*FX7$Fhr$\"3!*RV%Ro FEY*FX7$F]s$\"3Wy2nyl,*))*FX7$Fbs$\"3K3i>/N:@5Fjn7$Fgs$\"3m?PhgC/a5Fjn 7$F\\t$\"3wm=;C.))y5Fjn7$Fat$\"3FdPYZgR,6Fjn7$Fft$\"3)zi&4k%R\"=6Fjn7$ F[u$\"3TG$epI[18\"Fjn7$F`u$\"3:L'R\"fYiP6Fjn7$Feu$\"304e0mmFS6Fjn7$F[v $\"3>aQ%)*)[mP6Fjn7$F`v$\"3(*Hfzq%[48\"Fjn7$Fev$\"3xSK2H)y!>6Fjn7$Fjv$ \"3ULlG+^$=5\"Fjn7$F_w$\"3-&Q:b!49!3\"Fjn7$Fdw$\"3=f-0yvpa5Fjn7$Fiw$\" 32d)o>/V9-\"Fjn7$F^x$\"3/4e92>.s)*FX7$Fcx$\"3#Heq5?:DY*FX7$Fhx$\"3)3&) fw2)y`!*FX7$F]y$\"3;m6fR*pyc)FX7$Fby$\"3ao%4`t*Hv!)FX7$Fgy$\"3dGT1zX&f _(FX7$F\\z$\"3!=a?.byq&pFX7$Faz$\"3I-\"*\\:TWIjFX7$Ffz$\"3kE9R!43&*p&F X7$F[[l$\"3J'z&)Hl\"HH]FX7$F`[l$\"3,rU$p7tDM%FX7$Fe[l$\"3;&)*e2?mZp$FX 7$Fj[l$\"3y'35(oQqNHFX7$F_\\l$\"3is*QyI)\\\" FX7$Fi\\l$\"3o:bK_\"=vx(F[[r7$F^]l$\"3+R:7[yV'R\"FfbmFc]l-Ff]l6#Q.t=.2 200000000Fi]lFj]lF_^l7'-F(6%7(F+7$F/$\"+o\"G2i%F]`q7$F5$\"+G_\\wuF]`q7 $F:Ff^s7$F?Fc^sFCFGFN-F(6$7SF+7$FV$\"3u2([w7RYS'F[[r7$Ffn$\"3%R#3n#=\" R&>\"FX7$F\\o$\"3[g?R`%*H9=FX7$Fao$\"3g$Q$)f2!3HCFX7$Ffo$\"36DdtSY(*HI FX7$F[p$\"3QDQV<^%\\d$FX7$F`p$\"3X?eg-nhCTFX7$Fep$\"3W%=K;%*[]n%FX7$Fj p$\"3?+VRk&fI?&FX7$F_q$\"3L_I&Ro5As&FX7$Fdq$\"3m](oBBJu:'FX7$Fiq$\"3%y *=I0li?mFX7$F^r$\"3Wtn3wr9bqFX7$Fcr$\"3>#zsd&*>IW(FX7$Fhr$\"3as,I]]dnx FX7$F]s$\"3'G\\MaN%e<\")FX7$Fbs$\"3%oDRFnHBQ)FX7$Fgs$\"35Z]XF[I_')FX7$ F\\t$\"3EOhRz5>c))FX7$Fat$\"3&o>\"[3c,T!*FX7$Fft$\"3!RxQy2d%y\"*FX7$F[ u$\"3AZ$4eDQ6G*FX7$F`u$\"3*\\T#[[\\SQ$*FX7$Feu$\"3g+5kVWY/*FX7$F_w$\"3QSZQ(zQl'))FX7$Fdw$\"3=FRb\"[#od')FX7$Fiw$\"3oK+u(R 1ZQ)FX7$F^x$\"3*p1/*p@k.\")FX7$Fcx$\"3Sgyi;F[nxFX7$Fhx$\"35]2129(>V(FX 7$F]y$\"3@h`H3k4LqFX7$Fby$\"3oK&pk$4wGmFX7$Fgy$\"3Y\")Rk#o?y<'FX7$F\\z $\"38)ygl9[3r&FX7$Faz$\"3#3]g&FX7$Ffz$\"3E/\"fg*yayYFX7$F[[l$\"3% >8&p)=)QGTFX7$F`[l$\"3gD(*)HV#okNFX7$Fe[l$\"3m:tO#*z\"H.$FX7$Fj[l$\"3$ y))>%pu#)4CFX7$F_\\l$\"3%*fhUnKbU=FX7$Fd\\l$\"3RZy-MS\"*H7FX7$Fi\\l$\" 3WEbP]8K%Q'F[[r7$F^]l$\"3SW!Q`9#HY6FfbmFc]l-Ff]l6#Q.t=.2400000000Fi]lF j]lF_^l7'-F(6%7(F+7$F/$\"+9wCQPF]`q7$F5$\"+)p6'[gF]`q7$F:Fhhs7$F?FehsF CFGFN-F(6$7SF+7$FV$\"3IxBA1zOd_F[[r7$Ffn$\"3!fW)GpAf7)*F[[r7$F\\o$\"3u bOJl;I*[\"FX7$Fao$\"3IA@ZYe&R*>FX7$Ffo$\"3/YB9(R6s[#FX7$F[p$\"3z])yLhg X$HFX7$F`p$\"3C`()\\A)odQ$FX7$Fep$\"3#))[s&G9gPQFX7$Fjp$\"3)o+h7$)G5F% FX7$F_q$\"3wT!=\\u$=(p%FX7$Fdq$\"3iB*)GyEWa]FX7$Fiq$\"3_(\\%*y=lYV&FX7 $F^r$\"3y*4R$*G3V`(FX7$F[u$\"37?D?cgf=wF X7$F`u$\"3U\"pnF\\/cm(FX7$Feu$\"3i-tL!RuMo(FX7$F[v$\"3%H%>\\xb(em(FX7$ F`v$\"3,uc`O'=1i(FX7$Fev$\"3F2#Q'pzjSvFX7$Fjv$\"3%G0KjLXWU(FX7$F_w$\"3 kOV_IVEysFX7$Fdw$\"3IhTU92#o5(FX7$Fiw$\"3[K(=m=VF)oFX7$F^x$\"3+MOSaj-_ mFX7$Fcx$\"3q&oX^d$3wjFX7$Fhx$\"3bBHyOGn+hFX7$F]y$\"3]`s8G)[Kx&FX7$Fby $\"3**yR(z[U8W&FX7$Fgy$\"3Og^=S(z62&FX7$F\\z$\"3cnAU$fcyo%FX7$Faz$\"3# fb@EO9cE%FX7$Ffz$\"3p4_!3ht/%QFX7$F[[l$\"3=PwWw 'HOh#HFX7$Fe[l$\"3)H2@C]F'*[#FX7$Fj[l$\"3]Ra,%)>:y>FX7$F_\\l$\"3GC>SPV \\7:FX7$Fd\\l$\"3$>\"Qkbzf45FX7$Fi\\l$\"3!oS^%y'*oS_F[[r7$F^]l$\"3/#[r 7j`&4%*!#NFc]l-Ff]l6#Q.t=.2600000000Fi]lFj]lF_^l7'-F(6%7(F+7$F/$\"+\\e ICIF]`q7$F5$\"+c'HM*[F]`q7$F:F[ct7$F?FhbtFCFGFN-F(6$7SF+7$FV$\"3\\$Qi, &)3cJ%F[[r7$Ffn$\"3WXChI+&[0)F[[r7$F\\o$\"3uZ3&y9@DA\"FX7$Fao$\"3u(yw# yfxO;FX7$Ffo$\"3')\\N^HSnT?FX7$F[p$\"3ecC)o+*))3CFX7$F`p$\"3]t+z5rd&QFX7$Fdq$ \"31%Rx&yQ.\\TFX7$Fiq$\"3WQ)pBkY6Y%FX7$F^r$\"3cU3VHx$Rv%FX7$Fcr$\"3YkJ A!G'H:]FX7$Fhr$\"3aODCj(*)RB&FX7$F]s$\"3'4()47%\\$)paFX7$Fbs$\"3]iT5uq A[cFX7$Fgs$\"3\\0=b/K9IeFX7$F\\t$\"3#f*eE]p_nfFX7$Fat$\"3it_(>Um?4'FX7 $Fft$\"3qaI3#)zn%='FX7$F[u$\"3#=0iJG\\X#H'FX7$Feu $\"3CF84oP72jFX7$F[v$\"3Q?H;`un#H'FX7$F`v$\"3%p*f3Yu_biFX7$Fev$\"3YM=j =Q()*='FX7$Fjv$\"3wwmv?\\\\%4'FX7$F_w$\"3e#y3g]*\\ufFX7$Fdw$\"32]:v/ow LeFX7$Fiw$\"31j-!>dG)\\cFX7$F^x$\"3EzOvT.WgaFX7$Fcx$\"3XFTYYv#RB&FX7$F hx$\"3`>=!p[^y+&FX7$F]y$\"3D%zt3Oz!RZFX7$Fby$\"3m\")=7HyimWFX7$Fgy$\"3 3i%4\"4GxiTFX7$F\\z$\"3C<0FH[6[QFX7$Faz$\"3>hW$3R4:]$FX7$Ffz$\"3a)*)pr kCD:$FX7$F[[l$\"3i;g5MI\"=y#FX7$F`[l$\"3flg!*[P(>S#FX7$Fe[l$\"3CR[vMtl V?FX7$Fj[l$\"3&*e<(>3.Qi\"FX7$F_\\l$\"3)QQToGf:C\"FX7$Fd\\l$\"3?noa*yt uG)F[[r7$Fi\\l$\"3niKs9#=>I%F[[r7$F^]l$\"3OaXv?#3Ss(F_btFc]l-Ff]l6#Q.t =.2800000000Fi]lFj]lF_^l7'-F(6%7(F+7$F/$\"+G[rYCF]`q7$F5$\"+_x')eRF]`q 7$F:F]]u7$F?Fj\\uFCFGFN-F(6$7SF+7$FV$\"3G\\**p,$[Da$F[[r7$Ffn$\"3EhLg8 W(>h'F[[r7$F\\o$\"3?*p\\mOHN+\"FX7$Fao$\"3ZKY)z>yNM\"FX7$Ffo$\"350u)>M Yfn\"FX7$F[p$\"3#f*fZH;Qx>FX7$F`p$\"3/Tbe/sT\"G#FX7$Fep$\"3I]UD9N(ee#F X7$Fjp$\"3G4pWHz#z(GFX7$F_q$\"3=`jVc>3lJFX7$Fdq$\"3w[9U=@\"eS$FX7$Fiq$ \"3QsZ_Ad,iOFX7$F^r$\"3'*R7jm(eB!RFX7$Fcr$\"3;=d+D)**o6%FX7$Fhr$\"3!p' *=RY=kH%FX7$F]s$\"3A_cm#R;+\\%FX7$Fbs$\"3?7;*R\"HXOYFX7$Fgs$\"3qm$pY<# y&y%FX7$F\\t$\"39Nu!Q>c&)*[FX7$Fat$\"3\\?r@]ny+]FX7$Fft$\"3KZ1y#o3o2&F X7$F[u$\"3O#o?`#RgL^FX7$F`u$\"3k#*3I1%z_;&FX7$Feu$\"3a&>%4)f?t<&FX7$F[ v$\"3%G`(3q?Yl^FX7$F`v$\"3&3KE9zm\\8&FX7$Fev$\"3cWVY#yt53&FX7$Fjv$\"3f cq*)G-y-]FX7$F_w$\"372spY(zU!\\FX7$Fdw$\"3idxrumv)y%FX7$Fiw$\"3XTMVLvw PYFX7$F^x$\"3)eTf)fYI#[%FX7$Fcx$\"3Qs=6#RnjH%FX7$Fhx$\"3+-11F')y5TFX7$ F]y$\"3sG4p'*>;!*QFX7$Fby$\"3yOQEd]^mOFX7$Fgy$\"37pfqw**3FX7$Fe[l$\"3%e1<_Puvn\"FX7$Fj[l$\"3seNB`\"H HL\"FX7$F_\\l$\"3LR[Qzr:>5FX7$Fd\\l$\"3pT-C!)z#H!oF[[r7$Fi\\l$\"3_MkM( 358`$F[[r7$F^]l$\"3JyyZ@nRSjF_btFc]l-Ff]l6#Q.t=.3000000000Fi]lFj]lF_^l " 1 2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" "C urve 2" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "21 1 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }