{VERSION 2 3 "SUN SPARC SOLARIS" "2.3" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 1 0 0 0 0 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 0 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 } {PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Maple Output" 0 11 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 3 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 11 12 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Maple Plot" 0 13 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 0 256 1 {CSTYLE "" -1 -1 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 0 257 1 {CSTYLE "" -1 -1 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }} {SECT 0 {EXCHG {PARA 257 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 256 "" 0 "" {TEXT -1 100 "First I decide how man y Fourier modes I want to use. I'll use 10. If I want to use 20, the n I need" }}{PARA 0 "" 0 "" {TEXT -1 114 "to change the 10 into a 20 i n six places: where I define a and b (below), where I fill them up (t he two for loops" }}{PARA 0 "" 0 "" {TEXT -1 77 "right after) and wher e I define the function (the two for loops after that.)." }}{PARA 0 " " 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 109 "The a array is fo r the sine transforms. Since sin(0*x) = 0, we only have transforms fr om integrating against" }}{PARA 0 "" 0 "" {TEXT -1 63 "sin(x), sin(2x) ,..., sin(10x). So the a array is of length 10." }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 113 "The b array is for the c osine transforms. Since cos(0*x) = 1, the first transform will pick u p the mean value of" }}{PARA 0 "" 0 "" {TEXT -1 113 "the function. We have transforms from integrating against 1, cos(x), cos(2x), ..., cos (10x). So the array is of" }}{PARA 0 "" 0 "" {TEXT -1 10 "length 11. " }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 37 "a := array(1..10): b := array(0..10):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 0 "" 0 "" {TEXT -1 83 "I now choose initial \+ data. In this case, it's pretty boring, just phi(x) = cos(x)." } {MPLTEXT 1 0 0 "" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 17 "f := x -> cos(x);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"fG%$cosG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 0 "" 0 "" {TEXT -1 122 "Using the initial data, I define \+ the 10 coefficients for sin and the 11 coefficients for cos. To do t his I have to think" }}{PARA 0 "" 0 "" {TEXT -1 59 "first: sin(jx) and cos(jx) are supposed to have length 1. " }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 110 "Since the integral from 0 to 2Pi \+ of sin^2(jx) equals Pi, I divide the integrals against sine and cosine by Pi." }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 106 "On the other hand, cos(0x) should also have length 1. The integr al of cos(0x) from 0 to 2Pi is 2 Pi, so I" }}{PARA 0 "" 0 "" {TEXT -1 43 "divide the integral against cos(0x) by 2Pi." }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 41 "The arrays a and b are fi lled as follows:" }}{PARA 0 "" 0 "" {TEXT -1 64 "a[1] = ahat_1, a[2] = ahat_2, a[3] = ahat_3, ... a[10] = ahat_10" }}{PARA 0 "" 0 "" {TEXT -1 64 "b[1] = bhat_0, b[2] = bhat_1, b[3] = bhat_2, ... b[11] = bhat_1 0" }{MPLTEXT 1 0 0 "" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 83 "for j from 1 to 10 do a[j]:= evalf(Int(f(x) *sin(j*x),x=0..2*Pi))/(Pi) od:\nprint(a);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#-%'VECTORG6#7,,$*$%#PiG!\"\"$!+ElR`Y!#D,$F($\"+#fD)Q=F- ,$F($\"+qzbKT!#E,$F($\"+V+8N?F4,$F($!+2KZC7F-,$F($!+%>@wA\"!#C,$F($!+P IG&['F4\"\"!,$F($\"+]D\"><%!#AFB" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 127 "for j from 1 to 10 do b[j]:= evalf(Int(f(x)*cos(j*x) ,x=0..2*Pi))/(Pi) od:\nb[0] := evalf(Int(f(x),x=0...2*Pi))/(2*Pi): pri nt(b);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#-%&ARRAYG6$7#;\"\"!\"#57-/6# F(,$*$%#PiG!\"\"$\"+O])o1#!#A/6#\"\"\",$F.$\"+aEfTJ!\"*/6#\"\"#,$F.$\" +(=.<8%F3/6#\"\"$,$F.$\"+dp$e8%F3/6#\"\"%,$F.$\"+7w.UTF3/6#\"\"&,$F.$ \"+9N![8%F3/6#\"\"',$F.$\"+NhgfTF3/6#\"\"(,$F.$\"+s+xLTF3/6#\"\"),$F.$ \"+(y'RYTF3/6#\"\"*,$F.$\"+#Qrh9%F3/6#F),$F.$\"+)egw9%F3" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 0 "" 0 "" {TEXT -1 102 "No w that I know the Fourier coefficients, I know exactly what the soluti on does. It takes the fourier" }}{PARA 0 "" 0 "" {TEXT -1 115 "coeffi cient a(j) and multiplies it by exp(-j^2 t). So I do that multiplica tion and then sum to find the solution " }}{PARA 0 "" 0 "" {TEXT -1 2 "u." }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 136 "u := b[0]:\nfor j from 1 to 10 do u := u + exp(-j^2* t)*a[j]*sin(j*x) od:\nfor j from 1 to 10 do u := u + exp(-j^2*t)*b[j]* cos(j*x) od:\nu;\n" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#,H*$%#PiG!\"\"$ \"+O])o1#!#A*(-%$expG6#,$%\"tGF&\"\"\"F%F&-%$sinG6#%\"xGF0$!+ElR`Y!#D* (-F,6#,$F/!\"%F0F%F&-F26#,$F4\"\"#F0$\"+#fD)Q=F7*(-F,6#,$F/!\"*F0F%F&- F26#,$F4\"\"$F0$\"+qzbKT!#E*(-F,6#,$F/!#;F0F%F&-F26#,$F4\"\"%F0$\"+V+8 N?FN*(-F,6#,$F/F7F0F%F&-F26#,$F4\"\"&F0$!+2KZC7F7*(-F,6#,$F/!#OF0F%F&- F26#,$F4\"\"'F0$!+%>@wA\"!#C*(-F,6#,$F/!#\\F0F%F&-F26#,$F4\"\"(F0$!+PI G&['FN*(-F,6#,$F/!#\")F0F%F&-F26#,$F4\"\"*F0$\"+]D\"><%F)*(F+F0F%F&-%$ cosGF3F0$\"+aEfTJFG*(F9F0F%F&-FbqF>F0$\"+(=.<8%F)*(FDF0F%F&-FbqFIF0$\" +dp$e8%F)*(FPF0F%F&-FbqFUF0$\"+7w.UTF)*(FenF0F%F&-FbqFinF0$\"+9N![8%F) *(F_oF0F%F&-FbqFdoF0$\"+NhgfTF)*(F[pF0F%F&-FbqF`pF0$\"+s+xLTF)*(-F,6#, $F/!#kF0F%F&-Fbq6#,$F4\"\")F0$\"+(y'RYTF)*(FfpF0F%F&-FbqF[qF0$\"+#Qrh9 %F)*(-F,6#,$F/!$+\"F0F%F&-Fbq6#,$F4\"#5F0$\"+)egw9%F)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 0 "" 0 "" {TEXT -1 80 "Fir st let's see if we have the right initial data by plotting u(x,0) vers us f(x)" }{MPLTEXT 1 0 0 "" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "plot(\{f(x),subs(t=0,u)\},x=0..2*Pi );" }}{PARA 13 "" 1 "" {INLPLOT "6&-%'CURVESG6$7en7$\"\"!$\"\"\"F(7$$ \"1]0\"3%zxZo!#<$\"1)\\W\"HJcw**!#;7$$\"15@;)eb&p8F1$\"1#4hRPij!**F17$ $\"1n]I&3x`'>F1$\"1+dYLb[2)*F17$$\"1D![Ce)>hDF1$\"18J#))4-Qn*F17$$\"1> FdfdK,RF1$\"1N5')yke[#*F17$$\"15d`phL]_F1$\"1goz=42`')F17$$\"1**4]o\\$ Hf'F1$\"1b](G._U!zF17$$\"1g4v>fpPyF1$\"1]$R'oTd#3(F17$$\"1Y@S&ytl7*F1$ \"1H$>jubk6'F17$$\"1W7$$\"1Fh2m'puq\"Fgn$!1)\\T#fB[i 8F17$$\"1i$z,L/'Q=Fgn$!1crN]@=YEF17$$\"1N/6orod>Fgn$!1zV1J*3Jx$F17$$\" 1h\"\\.=)G*4#Fgn$!1(\\AOF:B/&F17$$\"1<2b6GC>AFgn$!1igNw%*[RgF17$$\"1\\ 1Mk&y(eBFgn$!1XUwYjJ*3(F17$$\"1eJ)*[8H#[#Fgn$!1#e_b?/U!zF17$$\"1w#f%\\ W!yh#Fgn$!1\"G5)RnIf')F17$$\"1j#pr'\\%ou#Fgn$!1`k8ti$4B*F17$$\"1(Qg,@& [\")GFgn$!12RS4Nij'*F17$$\"1M3w'41L%HFgn$!1_c+wa0/)*F17$$\"1\"GhL)p70I Fgn$!1xpT>+.2**F17$$\"1]:Fh\"4=2$Fgn$!1[]O+7mv**F17$$\"1===R8\\QJFgn$! 1gKG4>&*****F17$$\"1-fM\"Qbx?$Fgn$!1ke^]/7y**F17$$\"1')*4NU>qF$Fgn$!1` Is=!Q%3**F17$$\"1oz#e(RJPLFgn$!1SkGik24)*F17$$\"1\\f9G&3wR$Fgn$!1_NDna 1u'*F17$$\"1l#*zk![y_$Fgn$!1_J.8AEj#*F17$$\"1r*4,D)RiOFgn$!1v#)4Kh=u') F17$$\"1s$QlNHSz$Fgn$!1B*z7xng%zF17$$\"1SKN?#*Q@RFgn$!1D84Pfc5rF17$$\" 1.t&[j+G1%Fgn$!1Wy6Ike[gF17$$\"1[fJ!3l)*=%Fgn$!1AUD=%)o!*\\F17$$\"1*)e ?(\\LbK%Fgn$!1,1s\"[\"ysPF17$$\"1\"o*>Z#p%[WFgn$!1yCH\"el'3EF17$$\"1_' HN\\qGe%Fgn$!177Cvnc\"H\"F17$$\"11@>#fJ$4ZFgn$!1zyOHMQdI!#=7$$\"1_OSy) >:%[Fgn$\"1IAj`Ks(G\"F17$$\"1pV***3e2(\\Fgn$\"1KRqX8/bDF17$$\"1udN?&eg 5&Fgn$\"1%)yb&Q)zNQF17$$\"1,9j:*ojB&Fgn$\"17w4w0I.]F17$$\"1Z\"[f6I'p`F gn$\"1\\#)[*R]$4hF17$$\"1UTCYyy,bFgn$\"1/wY'Q+$*4(F17$$\"1c_,vqABcFgn$ \"1f=s$Ry,!zF17$$\"1*)ofN,TidFgn$\"1S,@;vLu')F17$$\"18W>Cr*o)eFgn$\"1L e@`4+D#*F17$$\"1&Qk&=ii>gFgn$\"1mGAp))oa'*F17$$\"1Ke9eb9$3'Fgn$\"1B1`, oe+)*F17$$\"1!GFx*[mYhFgn$\"1zb'f`bp!**F17$$\"1SO'G5D\\@'Fgn$\"1V6=n42`')F17$FL$\" 1ho!R._U!zF17$FQ$\"1WdcpTd#3(F17$FV$\"1z\"=rubk6'F17$Fen$\"1O(fpbr2,&F 17$F[o$\"1ww;X'R,#QF17$F`o$\"1?5bwiQDDF17$Feo$\"1O;zAo8X8F17$Fjo$!1oA; u(p5(fF^p7$F`p$!1y%>%fB[i8F17$Fep$!1[Hq]@=YEF17$Fjp$!12qbJ*3Jx$F17$F_q $!1(>!Gu_JU]F17$Fdq$!1tL9x%*[RgF17$Fiq$!1F$)oZjJ*3(F17$F^r$!1CNe1U?/zF 17$Fcr$!1p1%4u1$f')F17$Fhr$!1\\9Mui$4B*F17$F]s$!1*4k1^BOm*F17$Fbs$!1DN Gxa0/)*F17$Fgs$!16zq?+.2**F17$F\\t$!10]m,7mv**F17$Fat$!1fpe5>&*****F17 $Fft$!1^w\"=X?\"y**F17$F[u$!1nm,?!Q%3**F17$F`u$!1gvcjk24)*F17$Feu$!1Qq ^oa1u'*F17$Fju$!1\\9C9AEj#*F17$F_v$!1fzALh=u')F17$Fdv$!10`Jsx1YzF17$Fi v$!1e*>!Qfc5rF17$F^w$!1P(34V'e[gF17$Fcw$!1$=0*=%)o!*\\F17$Fhw$!1%o5A[ \"ysPF17$F]x$!1n9j\"el'3EF17$Fbx$!1]4Tvnc\"H\"F17$Fgx$!1rv'*HMQdIF[y7$ F]y$\"1>-!QDBxG\"F17$Fby$\"1Y\"RgMT]b#F17$Fgy$\"1<#fgQ)zNQF17$F\\z$\"1 F*[nd+L+&F17$Faz$\"1qOG+/N4hF17$Ffz$\"1jVR(Q+$*4(F17$F[[l$\"1PSv%Ry,!z F17$F`[l$\"1#4Tt^PVn)F17$Fe[l$\"1WoTa4+D#*F17$Fj[l$\"1TJ[q))oa'*F17$F_ \\l$\"1DM\"G!oe+)*F17$Fd\\l$\"1xhEPb&p!**F17$Fi\\l$\"1UW\\o " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 0 "" 0 "" {TEXT -1 40 "Now plot the solution at t=0 versus t=.1" }{MPLTEXT 1 0 0 "" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 43 "plot(\{subs(t=0,u),subs(t=.1,u)\},x=0..2*Pi);" }} {PARA 13 "" 1 "" {INLPLOT "6&-%'CURVESG6$7en7$\"\"!$\"1mNa\"=u$[!*!#;7 $$\"1]0\"3%zxZo!#<$\"1C!HQinr-*F+7$$\"15@;)eb&p8F+$\"1#GcPNZO'*)F+7$$ \"1n]I&3x`'>F+$\"1Oqo)))zT())F+7$$\"1D![Ce)>hDF+$\"1l[$[6=Kv)F+7$$\"1> FdfdK,RF+$\"1=!466n%o$)F+7$$\"15d`phL]_F+$\"1a$p#\\BiHyF+7$$\"1**4]o\\ $Hf'F+$\"1fpPyF+$\"1\\ljC\"y&3kF+7$$\"1Y@S&ytl7*F +$\"1kJvD!)RMbF+7$$\"1W7$$\"1Fh2m'puq\"Fgn$!1 Hk@?]#GB\"F+7$$\"1i$z,L/'Q=Fgn$!1OV*[ikVR#F+7$$\"1N/6orod>Fgn$!1Z!)fV, 09MF+7$$\"1h\"\\.=)G*4#Fgn$!1+IqLbZiXF+7$$\"1<2b6GC>AFgn$!1+UvkgvkaF+7 $$\"1\\1Mk&y(eBFgn$!1@Io*pyYT'F+7$$\"1eJ)*[8H#[#Fgn$!1#49fs>?:(F+7$$\" 1w#f%\\W!yh#Fgn$!1jLX`ZENyF+7$$\"1j#pr'\\%ou#Fgn$!1%yGXa'\\_$)F+7$$\"1 (Qg,@&[\")GFgn$!187EY\"3Su)F+7$$\"1M3w'41L%HFgn$!1?uMWi2r))F+7$$\"1\"G hL)p70IFgn$!13LMk9Dk*)F+7$$\"1]:Fh\"4=2$Fgn$!1@s\"\\_^j-*F+7$$\"1===R8 \\QJFgn$!10*fsmI$[!*F+7$$\"1-fM\"Qbx?$Fgn$!1\"Gukuw&G!*F+7$$\"1')*4NU> qF$Fgn$!1#=+[ZDb'*)F+7$$\"1oz#e(RJPLFgn$!17.h?%>c())F+7$$\"1\\f9G&3wR$ Fgn$!1dBW?kX`()F+7$$\"1l#*zk![y_$Fgn$!18V_kiu\"Q)F+7$$\"1r*4,D)RiOFgn$ !1F\\N%=G([yF+7$$\"1s$QlNHSz$Fgn$!1O:kY%**)*=(F+7$$\"1SKN?#*Q@RFgn$!1. 98Ch!RV'F+7$$\"1.t&[j+G1%Fgn$!1u!4*Gt)HZ&F+7$$\"1[fJ!3l)*=%Fgn$!1dT=B; w:XF+7$$\"1*)e?(\\LbK%Fgn$!1V#z^&Qv8MF+7$$\"1\"o*>Z#p%[WFgn$!1aQSH#=/O #F+7$$\"1_'HN\\qGe%Fgn$!1DFGYzlo6F+7$$\"11@>#fJ$4ZFgn$!1'3N&G\\VmF!#=7 $$\"1_OSy)>:%[Fgn$\"1iM6%=!=l6F+7$$\"1pV***3e2(\\Fgn$\"1)[BX,(*=J#F+7$ $\"1udN?&eg5&Fgn$\"1Zvu2RxqMF+7$$\"1,9j:*ojB&Fgn$\"1jZ_vNCr*o)eFgn $\"1!Qy\\/ErM)F+7$$\"1&Qk&=ii>gFgn$\"1i2^\\P#ft)F+7$$\"1Ke9eb9$3'Fgn$ \"1bV*ylPz'))F+7$$\"1!GFx*[mYhFgn$\"1qH$*oS=k*)F+7$$\"1SO'G5D\\@'Fgn$ \"1Tj3<@IF!*F+7$$\"1+++3`=$G'FgnF)-%'COLOURG6&%$RGBG$\"#5!\"\"F(F(-F$6 $7en7$F($\"1D=8++++5Fgn7$F-$\"1*Hf/8jl(**F+7$F3$\"1$3k_Pij!**F+7$F8$\" 16AvMb[2)*F+7$F=$\"10#)3+@!Qn*F+7$FB$\"1jT1!['e[#*F+7$FG$\"1sC#*>42`') F+7$FL$\"1ho!R._U!zF+7$FQ$\"1WdcpTd#3(F+7$FV$\"1z\"=rubk6'F+7$Fen$\"1O (fpbr2,&F+7$F[o$\"1ww;X'R,#QF+7$F`o$\"1?5bwiQDDF+7$Feo$\"1O;zAo8X8F+7$ Fjo$!1oA;u(p5(fF^p7$F`p$!1y%>%fB[i8F+7$Fep$!1[Hq]@=YEF+7$Fjp$!12qbJ*3J x$F+7$F_q$!1(>!Gu_JU]F+7$Fdq$!1tL9x%*[RgF+7$Fiq$!1F$)oZjJ*3(F+7$F^r$!1 CNe1U?/zF+7$Fcr$!1p1%4u1$f')F+7$Fhr$!1\\9Mui$4B*F+7$F]s$!1*4k1^BOm*F+7 $Fbs$!1DNGxa0/)*F+7$Fgs$!16zq?+.2**F+7$F\\t$!10]m,7mv**F+7$Fat$!1fpe5> &*****F+7$Fft$!1^w\"=X?\"y**F+7$F[u$!1nm,?!Q%3**F+7$F`u$!1gvcjk24)*F+7 $Feu$!1Qq^oa1u'*F+7$Fju$!1\\9C9AEj#*F+7$F_v$!1fzALh=u')F+7$Fdv$!10`Jsx 1YzF+7$Fiv$!1e*>!Qfc5rF+7$F^w$!1P(34V'e[gF+7$Fcw$!1$=0*=%)o!*\\F+7$Fhw $!1%o5A[\"ysPF+7$F]x$!1n9j\"el'3EF+7$Fbx$!1]4Tvnc\"H\"F+7$Fgx$!1rv'*HM QdIF[y7$F]y$\"1>-!QDBxG\"F+7$Fby$\"1Y\"RgMT]b#F+7$Fgy$\"1<#fgQ)zNQF+7$ F\\z$\"1F*[nd+L+&F+7$Faz$\"1qOG+/N4hF+7$Ffz$\"1jVR(Q+$*4(F+7$F[[l$\"1P Sv%Ry,!zF+7$F`[l$\"1#4Tt^PVn)F+7$Fe[l$\"1WoTa4+D#*F+7$Fj[l$\"1TJ[q))oa '*F+7$F_\\l$\"1DM\"G!oe+)*F+7$Fd\\l$\"1xhEPb&p!**F+7$Fi\\l$\"1UW\\o " 0 "" {MPLTEXT 1 0 43 "plot(\{sub s(t=0,u),subs(t=.2,u)\},x=0..2*Pi);" }}{PARA 13 "" 1 "" {INLPLOT "6&-% 'CURVESG6$7en7$\"\"!$\"1!R]=`2t=)!#;7$$\"1]0\"3%zxZo!#<$\"1dD#\\/>\"o \")F+7$$\"15@;)eb&p8F+$\"1gqvFNk5\")F+7$$\"1n]I&3x`'>F+$\"1scm<+pH!)F+ 7$$\"1D![Ce)>hDF+$\"1OB`y#R-#zF+7$$\"1>FdfdK,RF+$\"1/Ytt@5svF+7$$\"15d `phL]_F+$\"1,(42FNX3(F+7$$\"1**4]o\\$Hf'F+$\"1A'R-Aa9Z'F+7$$\"1g4v>fpP yF+$\"1f$yNG@()z&F+7$$\"1Y@S&ytl7*F+$\"15j+?/t2]F+7$$\"1W7$$\"1Fh2m'puq\"Fgn$!1)p#=3i]:6F+7$$\"1i$z,L/'Q=Fgn$!1$*f-02^m@ F+7$$\"1N/6orod>Fgn$!1J&ypJg\"*3$F+7$$\"1h\"\\.=)G*4#Fgn$!1[!oAFgn$!1P&Gyw:Z%\\F+7$$\"1\\1Mk&y(eBFgn$!1Z9:78C/eF+7$$\"1 eJ)*[8H#[#Fgn$!1c$QD1:9Z'F+7$$\"1w#f%\\W!yh#Fgn$!1**G9H2k*3(F+7$$\"1j# pr'\\%ou#Fgn$!1*p0vS^wb(F+7$$\"1(Qg,@&[\")GFgn$!1#R[Vv0>\"zF+7$$\"1M3w '41L%HFgn$!1da8C<)o-)F+7$$\"1\"GhL)p70IFgn$!1p9i\\,>6\")F+7$$\"1]:Fh\" 4=2$Fgn$!1Y5431Qn\")F+7$$\"1===R8\\QJFgn$!1Y!*\\e\"os=)F+7$$\"1-fM\"Qb x?$Fgn$!1\"H>=2%Rp\")F+7$$\"1')*4NU>qF$Fgn$!1#HM7\")F+7$$\"1oz#e(R JPLFgn$!1c[,gD*4.)F+7$$\"1\\f9G&3wR$Fgn$!1`LO1\\X?zF+7$$\"1l#*zk![y_$F gn$!1HZi[w6%e(F+7$$\"1r*4,D)RiOFgn$!1zx>XH#=5(F+7$$\"1s$QlNHSz$Fgn$!1. tB^+p0lF+7$$\"1SKN?#*Q@RFgn$!1/[C0!R;#eF+7$$\"1.t&[j+G1%Fgn$!10OjBP;_ \\F+7$$\"1[fJ!3l)*=%Fgn$!1:ye(3Ig3%F+7$$\"1*)e?(\\LbK%Fgn$!1o18CA*))3$ F+7$$\"1\"o*>Z#p%[WFgn$!1d(yht%zN@F+7$$\"1_'HN\\qGe%Fgn$!1,;oQaWd5F+7$ $\"11@>#fJ$4ZFgn$!1q!*)y$Q<.D!#=7$$\"1_OSy)>:%[Fgn$\"1l+MH')Ha5F+7$$\" 1pV***3e2(\\Fgn$\"1MnQD4*=4#F+7$$\"1udN?&eg5&Fgn$\"1DKF,h[SJF+7$$\"1,9 j:*ojB&Fgn$\"1'*)y!\\gN'4%F+7$$\"1Z\"[f6I'p`Fgn$\"1gO/aI\">+&F+7$$\"1U TCYyy,bFgn$\"1C))\\_bT7eF+7$$\"1c_,vqABcFgn$\"1Bve1!>\"okF+7$$\"1*)ofN ,TidFgn$\"1lv-))o%>5(F+7$$\"18W>Cr*o)eFgn$\"1R)e&y>z_vF+7$$\"1&Qk&=ii> gFgn$\"1Bfm*o!f/zF+7$$\"1Ke9eb9$3'Fgn$\"1VCn8=/C!)F+7$$\"1!GFx*[mYhFgn $\"1b42`')F+7$FL$\"1ho!R._U!zF+7$FQ$\"1Wdcp Td#3(F+7$FV$\"1z\"=rubk6'F+7$Fen$\"1O(fpbr2,&F+7$F[o$\"1ww;X'R,#QF+7$F `o$\"1?5bwiQDDF+7$Feo$\"1O;zAo8X8F+7$Fjo$!1oA;u(p5(fF^p7$F`p$!1y%>%fB[ i8F+7$Fep$!1[Hq]@=YEF+7$Fjp$!12qbJ*3Jx$F+7$F_q$!1(>!Gu_JU]F+7$Fdq$!1tL 9x%*[RgF+7$Fiq$!1F$)oZjJ*3(F+7$F^r$!1CNe1U?/zF+7$Fcr$!1p1%4u1$f')F+7$F hr$!1\\9Mui$4B*F+7$F]s$!1*4k1^BOm*F+7$Fbs$!1DNGxa0/)*F+7$Fgs$!16zq?+.2 **F+7$F\\t$!10]m,7mv**F+7$Fat$!1fpe5>&*****F+7$Fft$!1^w\"=X?\"y**F+7$F [u$!1nm,?!Q%3**F+7$F`u$!1gvcjk24)*F+7$Feu$!1Qq^oa1u'*F+7$Fju$!1\\9C9AE j#*F+7$F_v$!1fzALh=u')F+7$Fdv$!10`Jsx1YzF+7$Fiv$!1e*>!Qfc5rF+7$F^w$!1P (34V'e[gF+7$Fcw$!1$=0*=%)o!*\\F+7$Fhw$!1%o5A[\"ysPF+7$F]x$!1n9j\"el'3E F+7$Fbx$!1]4Tvnc\"H\"F+7$Fgx$!1rv'*HMQdIF[y7$F]y$\"1>-!QDBxG\"F+7$Fby$ \"1Y\"RgMT]b#F+7$Fgy$\"1<#fgQ)zNQF+7$F\\z$\"1F*[nd+L+&F+7$Faz$\"1qOG+/ N4hF+7$Ffz$\"1jVR(Q+$*4(F+7$F[[l$\"1PSv%Ry,!zF+7$F`[l$\"1#4Tt^PVn)F+7$ Fe[l$\"1WoTa4+D#*F+7$Fj[l$\"1TJ[q))oa'*F+7$F_\\l$\"1DM\"G!oe+)*F+7$Fd \\l$\"1xhEPb&p!**F+7$Fi\\l$\"1UW\\o " 0 "" {MPLTEXT 1 0 60 "with(plots,animate): animate(u,x=0..2*Pi,t=0...2 ,frames=30);" }}{PARA 13 "" 1 "" {INLPLOT "6%-%(ANIMATEG6@7#-%'CURVESG 6$7S7$\"\"!$\"1D=8++++5!#:7$$\"+Rp**38!#5$\"1gC/:'[W\"**!#;7$$\"+xQ*zh #F3$\"10N:k#e#f'*F67$$\"+;3*p#RF3$\"1fYJE`zQ#*F67$$\"+bx)fB&F3$\"144(* QSDg')F67$$\"+&p%)\\a'F3$\"1]y%RSLN$zF67$$\"+K;)R&yF3$\"1x.z7y1rqF67$$ \"+r&yH;*F3$\"1FA)3H9w3'F67$$\"+^v>Z5!\"*$\"1)*3l++++]F67$$\"+Xs4y6FX$ \"1G'[TKMo#QF67$$F2FX$\"1))GO^/>)e#F67$$\"+Lm*)R9FX$\"1^=PA>E08F67$$\" +Ejzq:FX$\"1tt!o9Q2z'!#H7$$\"+?gp,E08F67$$\"+9dfK=FX$!19MO ^/>)e#F67$$\"+3a\\j>FX$!1)\\]TKMo#QF67$$\"+-^R%4#FX$!1%=_1++++&F67$$\" +&z%HDAFX$!1g2)3H9w3'F67$$\"+*[%>cBFX$!1gry7y1rqF67$$\"+$=%4([#FX$!1Pr %RSLN$zF67$$F9FX$!1()[(*QSDg')F67$$\"+qN*)[FFX$!1o)=jK&zQ#*F67$$\"+mKz zGFX$!1;.:k#e#f'*F67$$\"+gHp5IFX$!1#**H]h[W\"**F67$$\"+aEfTJFX$!1u.8++ ++5F/7$$\"+ZB\\sKFX$!1cC.:'[W\"**F67$$\"+T?R.MFX$!1:A:k#e#f'*F67$$\"+N lOFX$!1fA(*QSDg')F67$$\"+A64'z$FX$!1]h%RS LN$zF67$$F>FX$!1u!*y7y1rqF67$$\"+50*y0%FX$!1aK)3H9w3'F67$$\"+.-z)=%FX$ !1MAl++++]F67$$\"+(*)*o>VFX$!1.\"[TKMo#QF67$$\"+\"f*e]WFX$!1,;O^/>)e#F 67$$\"+&G*[\"e%FX$!1j?PA>E08F67$$\"+!)*)Q7ZFX$!1!=77Ndc.#!#G7$$\"+u')G V[FX$\"1\"yqB#>E08F67$$\"+o$)=u\\FX$\"1;ZO^/>)e#F67$$\"+i!)30^FX$\"1J5 :CV$o#QF67$$FCFX$\"1X3l++++]F67$$\"+\\u)oO&FX$\"1<(z3H9w3'F67$$\"+Vry( \\&FX$\"1X%)y7y1rqF67$$\"+PooGcFX$\"1B)[RSLN$zF67$$\"+IlefdFX$\"1LN(*Q SDg')F67$$\"+Ci[!*eFX$\"1dcJE`zQ#*F67$$\"+=fQ@gFX$\"1@;:k#e#f'*F67$$\" +7cG_hFX$\"10+/:'[W\"**F67$$\"+0`=$G'FXF--%'COLOURG6&%$RGBGF,F,F,7#-F( 6$7S7$F,$\"1a\"RVk)eL$*F67$F1$\"1!y1'*\\QPD*F67$F8$\"1UZ_BVb:!*F67$F=$ \"1[JQ8:6B')F67$FB$\"1i%pW([7$3)F67$FG$\"1F#))ysL[S(F67$FL$\"19`@BQ%)* f'F67$FQ$\"1))\\!4wG>o&F67$FV$\"1Zu;AVzmYF67$Ffn$\"1nypQ(4=d$F67$F[o$ \"1ekI+0r:CF67$F_o$\"1TL\\&yx#=7F67$Fdo$\"1t/#f4u)y>!#I7$Fjo$!11L\\&yx #=7F67$F_p$!1GkI+0r:CF67$Fdp$!1?ypQ(4=d$F67$Fip$!1St;AVzmYF67$F^q$!1[Z !4wG>o&F67$Fcq$!1;[@BQ%)*f'F67$Fhq$!1ws)ysL[S(F67$F]r$!1;yYu[7$3)F67$F ar$!1-1Q8:6B')F67$Ffr$!1k7_BVb:!*F67$F[s$!1%f-'*\\QPD*F67$F`s$!15ZLW') eL$*F67$Fes$!16Eg*\\QPD*F67$Fjs$!1&G@NKab,*F67$F_t$!1?1Q8:6B')F67$Fdt$ !1MyYu[7$3)F67$Fit$!1/t)ysL[S(F67$F^u$!1i[@BQ%)*f'F67$Fbu$!1+[!4wG>o&F 67$Fgu$!1'Qn@K%zmYF67$F\\v$!1hypQ(4=d$F67$Fav$!1ukI+0r:CF67$Ffv$!1lL\\ &yx#=7F67$F[w$!1o\"yyiM!QXFh]l7$Faw$\"1#G$\\&yx#=7F67$Ffw$\"17kI+0r:CF 67$F[x$\"1DypQ(4=d$F67$F`x$\"1)Rn@K%zmYF67$Fdx$\"1L\\!4wG>o&F67$Fix$\" 1l_@BQ%)*f'F67$F^y$\"1%>))ysL[S(F67$Fcy$\"1U%pW([7$3)F67$Fhy$\"1KJQ8:6 B')F67$F]z$\"1?Z_BVb:!*F67$Fbz$\"1jng*\\QPD*F67$FgzFb[lFiz7#-F(6$7S7$F ,$\"1!=Kqp(e6()F67$F1$\"1&zHm&)eqj)F67$F8$\"1I_aWvu9%)F67$F=$\"1VY'*ov X[!)F67$FB$\"1N]#HDcWa(F67$FG$\"1n%z')>n8\"pF67$FL$\"1j:ZNF-ghF67$FQ$ \"1z)y`dyKI&F67$FV$\"1e\\^[QzbVF67$Ffn$\"1C)[7G!yLLF67$F[o$\"1v?24[saA F67$F_o$\"1MVGq.4P6F67$Fdo$\"1%*>.P#3H#\\Fh]l7$Fjo$!1=UGq.4P6F67$F_p$! 1->24[saAF67$Fdp$!1U&[7G!yLLF67$Fip$!1/X^[QzbVF67$F^q$!1t\"y`dyKI&F67$ Fcq$!1A0ZNF-ghF67$Fhq$!12!y')>n8\"pF67$F]r$!17J#HDcWa(F67$Far$!1hA'*ov X[!)F67$Ffr$!1_CaWvu9%)F67$F[s$!1[nic)eqj)F67$F`s$!1T!Hqp(e6()F67$Fes$ !1anic)eqj)F67$Fjs$!1mCaWvu9%)F67$F_t$!1\"Gi*ovX[!)F67$Fdt$!1SJ#HDcWa( F67$Fit$!1Q!y')>n8\"pF67$F^u$!1d0ZNF-ghF67$Fbu$!18#y`dyKI&F67$Fgu$!1[X ^[QzbVF67$F\\v$!1*e[7G!yLLF67$Fav$!1^>24[saAF67$Ffv$!1pUGq.4P6F67$F[w$ !1(G/(>bi)[#!#J7$Faw$\"1$G%Gq.4P6F67$Ffw$\"1E?24[saAF67$F[x$\"1v([7G!y LLF67$F`x$\"18\\^[QzbVF67$Fdx$\"1O)y`dyKI&F67$Fix$\"1C:ZNF-ghF67$F^y$ \"1L%z')>n8\"pF67$Fcy$\"13]#HDcWa(F67$Fhy$\"1@Y'*ovX[!)F67$F]z$\"1;_aW vu9%)F67$Fbz$\"1(yHm&)eqj)F67$FgzFhdlFiz7#-F(6$7S7$F,$\"1kND*fP58)F67$ F1$\"1grTXaZh!)F67$F8$\"1kjk6#zR&yF67$F=$\"1P)Hg@*47vF67$FB$\"1U'z+7&o TqF67$FG$\"1P4SRey]kF67$FL$\"1)Q9X#=^\\dF67$FQ$\"17YCo?')\\\\F67$FV$\" 1)=E'*z=b1%F67$Ffn$\"1f9x-;#*47vF67$Fdt$!1:y2?^oTqF67$Fit$!1C%*RRey]kF 67$F^u$!1'=8X#=^\\dF67$Fbu$!1$pV#o?')\\\\F67$Fgu$!1:bi*z=b1%F67$F\\v$! 1x4KS*Fh ]l7$Faw$\"1v%GmP881\"F67$Ffw$\"1B68(QnW5#F67$F[x$\"199g<*e(F67$F1$\"1U7Tm&\\U _(F67$F8$\"18+J<6eItF67$F=$\"1Q0(GR%[6qF67$FB$\"11$=lA>Cd'F67$FG$\"1#[ \")\\9)*3-'F67$FL$\"10d(o#yNm`F67$FQ$\"1Nm^Qw**>YF67$FV$\"1Vsl4!)e%z$F 67$Ffn$\"1,T*y#>D/HF67$F[o$\"1wRV!HBU'>F67$F_o$\"1=)*))yC'e!**!#<7$Fdo $\"1o-Vpkj'[#Fho7$Fjo$!1$f%))yC'e!**Ffim7$F_p$!1xLV!HBU'>F67$Fdp$!1#Q$ *y#>D/HF67$Fip$!1hjl4!)e%z$F67$F^q$!1cb^Qw**>YF67$Fcq$!10W(o#yNm`F67$F hq$!1b*z\\9)*3-'F67$F]r$!1gl^E#>Cd'F67$Far$!1)foGR%[6qF67$Ffr$!1AzI<6e ItF67$F[s$!1`!4kc\\U_(F67$F`s$!1IGJ>g<*e(F67$Fes$!1d!4kc\\U_(F67$Fjs$! 1LzI<6eItF67$F_t$!19'oGR%[6qF67$Fdt$!1%e;lA>Cd'F67$Fit$!1$)*z\\9)*3-'F 67$F^u$!1QW(o#yNm`F67$Fbu$!1\"f:&Qw**>YF67$Fgu$!1*Rc'4!)e%z$F67$F\\v$! 1BM*y#>D/HF67$Fav$!1@MV!HBU'>F67$Ffv$!1S]))yC'e!**Ffim7$F[w$\"1eG5L=xN ?Fho7$Faw$\"1r$*))yC'e!**Ffim7$Ffw$\"1KRV!HBU'>F67$F[x$\"1fS*y#>D/HF67 $F`x$\"1/sl4!)e%z$F67$Fdx$\"1)f;&Qw**>YF67$Fix$\"1sc(o#yNm`F67$F^y$\"1 b9)\\9)*3-'F67$Fcy$\"1#G=lA>Cd'F67$Fhy$\"1@0(GR%[6qF67$F]z$\"1,+J<6eIt F67$Fbz$\"1N7Tm&\\U_(F67$FgzFcgmFiz7#-F(6$7S7$F,$\"1q&\\/rCM3(F67$F1$ \"1!\\.,.DG-(F67$F8$\"1wtRmG1UoF67$F=$\"1()*o+6JUa'F67$FB$\"1pO/XdUMhF 67$FG$\"1Dlta'e'>cF67$FL$\"1;JyYwt3]F67$FQ$\"1S)3!\\d67VF67$FV$\"1%pC_ N7_KL=F67$F_o$\"1efK`XsX#*Ffim7 $Fdo$\"1$**>GgU\\U$Fho7$Fjo$!1**)=LbCdC*Ffim7$F_p$!1dMh>_KL=F67$Fdp$!1 SO4\"G42r#F67$Fip$!1)pB_N7cF67$F]r$!1n+6JUa'F67$Ffr$!1zaRmG 1UoF67$F[s$!1B:5I]#G-(F67$F`s$!1!eZ/rCM3(F67$Fes$!1F:5I]#G-(F67$Fjs$!1 !\\&RmG1UoF67$F_t$!16s156BWlF67$Fdt$!1R?/XdUMhF67$Fit$!1h]ta'e'>cF67$F ^u$!1G=yYwt3]F67$Fbu$!1@x+\\d67VF67$Fgu$!1MPAbBrTNF67$F\\v$!1yO4\"G42r #F67$Fav$!1(\\8'>_KL=F67$Ffv$!1:$>LbCdC*Ffim7$F[w$\"1@(\\w>JS+$Fho7$Fa w$\"1TbK`XsX#*Ffim7$Ffw$\"1%=9'>_KL=F67$F[x$\"1nW4\"G42r#F67$F`x$\"1eY AbBrTNF67$Fdx$\"11)3!\\d67VF67$Fix$\"1&3$yYwt3]F67$F^y$\"1)\\OZle'>cF6 7$Fcy$\"1ZO/XdUMhF67$Fhy$\"1r*o+6JUa'F67$F]z$\"1ltRmG1UoF67$Fbz$\"1$[. ,.DG-(F67$FgzFi`nFiz7#-F(6$7S7$F,$\"1kF=VsP6mF67$F1$\"1(HdV*f\"[b'F67$ F8$\"1S+`E+5'Q'F67$F=$\"1Huo;h63hF67$FB$\"1o&)fY1iDdF67$FG$\"1oW!)>#e^ C&F67$FL$\"1Dpj\"o\\\\n%F67$FQ$\"1ocFe9vCSF67$FV$\"1:9f@')o0LF67$Ffn$ \"1@<3OX1IDF67$F[o$\"1\"G$*[M]6r\"F67$F_o$\"1$QK)o*y&H')Ffim7$Fdo$\"1p >h6;\"4=%Fho7$Fjo$!1cQ#)o*y&H')Ffim7$F_p$!1!Q#*[M]6r\"F67$Fdp$!1V23OX1 IDF67$Fip$!1P.f@')o0LF67$F^q$!1qWFe9vCSF67$Fcq$!1)fN;o\\\\n%F67$Fhq$!1 7I!)>#e^C&F67$F]r$!1&*pfY1iDdF67$Far$!1^do;h63hF67$Ffr$!1%GGl-+hQ'F67$ F[s$!1\"\\bV*f\"[b'F67$F`s$!1T4=VsP6mF67$Fes$!1%\\bV*f\"[b'F67$Fjs$!1% HGl-+hQ'F67$F_t$!1ndo;h63hF67$Fdt$!1;qfY1iDdF67$Fit$!1PI!)>#e^C&F67$F^ u$!1Fcj\"o\\\\n%F67$Fbu$!1+XFe9vCSF67$Fgu$!1q.f@')o0LF67$F\\v$!1y23OX1 IDF67$Fav$!1=C*[M]6r\"F67$Ffv$!1YU#)o*y&H')Ffim7$F[w$\"1H(*)GT-!)y$Fho 7$Faw$\"1$*>$)o*y&H')Ffim7$Ffw$\"1VK*[M]6r\"F67$F[x$\"1&o\"3OX1IDF67$F `x$\"1\"Q\"f@')o0LF67$Fdx$\"1NcFe9vCSF67$Fix$\"1'*oj\"o\\\\n%F67$F^y$ \"1VW!)>#e^C&F67$Fcy$\"1[&)fY1iDdF67$Fhy$\"19uo;h63hF67$F]z$\"1K+`E+5' Q'F67$Fbz$\"1\"HdV*f\"[b'F67$FgzF^jnFiz7#-F(6$7S7$F,$\"1>MBbvyqhF67$F1 $\"1IcE7c*z6'F67$F8$\"1QJ9oI_gfF67$F=$\"1;bv@V1,dF67$FB$\"19!*=%yeSM&F 67$FG$\"1K?<>\\h&*[F67$FL$\"1VrcDdSjVF67$FQ$\"1%>L-XPlv$F67$FV$\"1Eohx PR&3$F67$Ffn$\"1(oK?;e9O#F67$F[o$\"1'HwDMB]u`cPF67$Fcq$!1;ecDdSjV F67$Fhq$!131<>\\h&*[F67$F]r$!1*\\(=%yeSM&F67$Far$!1DRv@V1,dF67$Ffr$!1( [T\"oI_gfF67$F[s$!1VRE7c*z6'F67$F`s$!1=\\h &*[F67$F^u$!1UecDdSjVF67$Fbu$!1$*>B]u`cPF67$Fgu$!1=dhxPR&3$F67$F\\v$!1 e;.i\"e9O#F67$Fav$!1F`dUt6(f\"F67$Ffv$!1A$He-%\\a!)Ffim7$F[w$\"17%)Q21 v,WFho7$Faw$\"1d#Qe-%\\a!)Ffim7$Ffw$\"1gidUt6(f\"F67$F[x$\"1`E.i\"e9O# F67$F`x$\"1$z;wx$R&3$F67$Fdx$\"1kJB]u`cPF67$Fix$\"1:rcDdSjVF67$F^y$\"1 4?<>\\h&*[F67$Fcy$\"1'**)=%yeSM&F67$Fhy$\"1,bv@V1,dF67$F]z$\"1HJ9oI_gf F67$Fbz$\"1DcE7c*z6'F67$FgzFccoFiz7#-F(6$7S7$F,$\"1z:Yk#f&fdF67$F1$\"1 e$GlV&G5dF67$F8$\"1:feTqIjbF67$F=$\"1G=s?*Q6K&F67$FB$\"1sdiPY#z)\\F67$ FG$\"1tf1\"el$pXF67$FL$\"1mma7MisSF67$FQ$\"1pTHGv>1NF67$FV$\"1k4BK'z(z GF67$Ffn$\"1^XB3z3/AF67$F[o$\"1Y'R!HOo!\\\"F67$F_o$\"1vIc'RLx^(Ffim7$F do$\"1Da2')[J=_Fho7$Fjo$!1TDb'RLx^(Ffim7$F_p$!1k&Q!HOo!\\\"F67$Fdp$!1C MB3z3/AF67$Fip$!1z(HAjz(zGF67$F^q$!19HHGv>1NF67$Fcq$!1R`a7MisSF67$Fhq$ !1tX1\"el$pXF67$F]r$!1/ViPY#z)\\F67$Far$!1..s?*Q6K&F67$Ffr$!1WVeTqIjbF 67$F[s$!1hn_OaG5dF67$F`s$!1u*fWEf&fdF67$Fes$!1kn_OaG5dF67$Fjs$!1`VeTqI jbF67$F_t$!1:.s?*Q6K&F67$Fdt$!1@ViPY#z)\\F67$Fit$!1%fk5el$pXF67$F^u$!1 k`a7MisSF67$Fbu$!1THHGv>1NF67$Fgu$!13)HAjz(zGF67$F\\v$!1cMB3z3/AF67$Fa v$!1(fQ!HOo!\\\"F67$Ffv$!1\")Gb'RLx^(Ffim7$F[w$\"1MEb<9*f([Fho7$Faw$\" 1NFc'RLx^(Ffim7$Ffw$\"17'R!HOo!\\\"F67$F[x$\"1>XB3z3/AF67$F`x$\"1M4BK' z(zGF67$Fdx$\"1TTHGv>1NF67$Fix$\"1Uma7MisSF67$F^y$\"1_f1\"el$pXF67$Fcy $\"1bdiPY#z)\\F67$Fhy$\"1;=s?*Q6K&F67$F]z$\"11feTqIjbF67$Fbz$\"1a$GlV& G5dF67$FgzFh\\pFiz7#-F(6$7S7$F,$\"1MR,%pNdP&F67$F1$\"1%*Q$*HbuH`F67$F8 $\"1f?:U>c#>&F67$F=$\"1d)*))z@`m\\F67$FB$\"1#)o/vO_bYF67$FG$\"1\\)o$py &[E%F67$FL$\"1NR5j\">7!QF67$FQ$\"1o71V0asKF67$FV$\"1$=2q%y'yo#F67$Ffn$ \"1mI(o)\\?d?F67$F[o$\"1*e[!zFM\"R\"F67$F_o$\"18^@0Ju;qFfim7$Fdo$\"1\" ek2_&HgbFho7$Fjo$!1@R?0Ju;qFfim7$F_p$!1[u/zFM\"R\"F67$Fdp$!1\"*=(o)\\? d?F67$Fip$!1kf+Zy'yo#F67$F^q$!1'**fIaSDF$F67$Fcq$!14E5j\">7!QF67$Fhq$! 1puOpy&[E%F67$F]r$!1\\a/vO_bYF67$Far$!1z$)))z@`m\\F67$Ffr$!1\\0:U>c#>& F67$F[s$!1jB$*HbuH`F67$F`s$!1)R7SpNdP&F67$Fes$!1mB$*HbuH`F67$Fjs$!1c0: U>c#>&F67$F_t$!1\"R)))z@`m\\F67$Fdt$!1ma/vO_bYF67$Fit$!1)[n$py&[E%F67$ F^u$!1KE5j\">7!QF67$Fbu$!1@+1V0asKF67$Fgu$!1\"*f+Zy'yo#F67$F\\v$!1?>(o )\\?d?F67$Fav$!1zu/zFM\"R\"F67$Ffv$!1PU?0Ju;qFfim7$F[w$\"1Q<%)3wxS_Fho 7$Faw$\"1(z9_5Vn,(Ffim7$Ffw$\"1e&[!zFM\"R\"F67$F[x$\"1OI(o)\\?d?F67$F` x$\"1br+Zy'yo#F67$Fdx$\"1T71V0asKF67$Fix$\"17R5j\">7!QF67$F^y$\"1I)o$p y&[E%F67$Fcy$\"1lo/vO_bYF67$Fhy$\"1W)*))z@`m\\F67$F]z$\"1]?:U>c#>&F67$ Fbz$\"1*)Q$*HbuH`F67$FgzF]fpFiz7#-F(6$7S7$F,$\"1f[?i0\\<]F67$F1$\"1.'* )[BlX(\\F67$F8$\"1W`>F67$F[o$\"1p67;@i)H\"F67$F_o$\"1@8&ePR\"\\lFfi m7$Fdo$\"1rN'*)3*R>eFho7$Fjo$!1H'RePR\"\\lFfim7$F_p$!1$)*>h6A')H\"F67$ Fdp$!1/J?506?>F67$Fip$!1J95\"GX(3DF67$F^q$!1+XoCZXaIF67$Fcq$!1mL2,;!za $F67$Fhq$!1'p.u*Gk!)RF67$F]r$!1Cn6!Hu_M%F67$Far$!16#))\\$obNYF67$Ffr$! 1\")Q>F67$Fav$!17+7;@i)H\"F67$Ffv$!1C*RePR\"\\lFfim7$F[w$ \"1<(z&3.<@bFho7$Faw$\"1D5&ePR\"\\lFfim7$Ffw$\"1S67;@i)H\"F67$F[x$\"1* G/-^5,#>F67$F`x$\"1\\E5\"GX(3DF67$Fdx$\"1gdoCZXaIF67$Fix$\"1qY2,;!za$F 67$F^y$\"1X]S(*Gk!)RF67$Fcy$\"1:\"=,Hu_M%F67$Fhy$\"1R'*)\\$obNYF67$F]z $\"1N`>Jo%F67$F1$\"1n63eX0VYF67$F8$\"118aseaBXF67$F=$\"1<%eH1QmK%F67$FB$\"1A waw-qbSF67$FG$\"1bD&RLo`r$F67$FL$\"1h)o!4aY6LF67$FQ$\"1[V#HR-4&GF67$FV $\"1RuTY'f:M#F67$Ffn$\"1et:l@:#z\"F67$F[o$\"1(*HZj/377F67$F_o$\"1cV1!H (p7hFfim7$Fdo$\"1GQ)>*GI:gFho7$Fjo$!1%G_+H(p7hFfim7$F_p$!1yh:l@:#z\"F67$Fip$!1vhTY'f:M#F67$F^q$!1`I#HR-4&GF67$Fcq$!1Ov14aY 6LF67$Fhq$!1*>^RLo`r$F67$F]r$!1Oiaw-qbSF67$Far$!11q&H1QmK%F67$Ffr$!1x) RD(eaBXF67$F[s$!1E(z!eX0VYF67$F`s$!1,H$GH>Jo%F67$Fes$!1H(z!eX0VYF67$Fj s$!1%))RD(eaBXF67$F_t$!1;kkf:M#F67$F\\v$!1Xh: l@:#z\"F67$Fav$!10=Zj/377F67$Ffv$!1gD0!H(p7hFfim7$F[w$\"1R*)QxnM F67$FL$\"16hT$f&y!4$F67$FQ$\"1*[B(>]\"4m#F67$FV$\"1*Q)H_a^&=#F67$Ffn$ \"1>^a46ss;F67$F[o$\"1P;%[/188\"F67$F_o$\"1gj`+-M0dFfim7$Fdo$\"1Lh&zF# =jhFho7$Fjo$!1.S_+-M0dFfim7$F_p$!1#RS[/188\"F67$Fdp$!1fQa46ss;F67$Fip$ !16rH_a^&=#F67$F^q$!1)=A(>]\"4m#F67$Fcq$!1(y9Mf&y!4$F67$Fhq$!1(Qw'o>xn MF67$F]r$!1'*e5/QU&y$F67$Far$!1(QH())fIQSF67$Ffr$!1ldDQ;4AUF67$F[s$!1F mEHhjLVF67$F`s$!1,[f/4.rVF67$Fes$!1ImEHhjLVF67$Fjs$!1sdDQ;4AUF67$F_t$! 1)RH())fIQSF67$Fdt$!14f5/QU&y$F67$Fit$!1/kno>xnMF67$F^u$!10[T$f&y!4$F6 7$Fbu$!13As>]\"4m#F67$Fgu$!1LrH_a^&=#F67$F\\v$!1$)Qa46ss;F67$Fav$!1]\"4m#F67$Fix$\"1#4;Mf&y!4$F67$F^y$\"1>xno>xnMF67$Fcy$\"1_s5/QU&y $F67$Fhy$\"1m2t))fIQSF67$F]z$\"1grDQ;4AUF67$Fbz$\"1M!o#HhjLVF67$FgzF\\ brFiz7#-F(6$7S7$F,$\"1)R&)4WS(zSF67$F1$\"1,R&fpP[/%F67$F8$\"1nP]cmsSRF 67$F=$\"1B]Q\"p)=pPF67$FB$\"1f,ui)eJ`$F67$FG$\"1?rP1dnOKF67$FL$\"1R>IJ @\"[)GF67$FQ$\"1n\"R3i)e$[#F67$FV$\"1%*H\\?-()R?F67$Ffn$\"1F`6v!\\7c\" F67$F[o$\"1HC?DX\"f0\"F67$F_o$\"1`^3])H^K&Ffim7$Fdo$\"1_%fqmJYF'Fho7$F jo$!1!es+&)H^K&Ffim7$F_p$!1k6?DX\"f0\"F67$Fdp$!1_S6v!\\7c\"F67$Fip$!10 <\\?-()R?F67$F^q$!1gy$3i)e$[#F67$Fcq$!1:1IJ@\"[)GF67$Fhq$!1ydP1dnOKF67 $F]r$!1+)QF')eJ`$F67$Far$!1^OQ\"p)=pPF67$Ffr$!1&Q-llE2%RF67$F[s$!19D&f pP[/%F67$F`s$!14S)4WS(zSF67$Fes$!1IJ@\"[)GF67$F^y$\"10rP1dnOKF67$F cy$\"1Y,ui)eJ`$F67$Fhy$\"18]Q\"p)=pPF67$F]z$\"1gP]cmsSRF67$Fbz$\"1)*Q& fpP[/%F67$FgzFa[sFiz7#-F(6$7S7$F,$\"1vZo/>'y!QF67$F1$\"1:3A=^GvPF67$F8 $\"1Etnc@6yOF67$F=$\"1`xOwc+=NF67$FB$\"1#4gN90xH$F67$FG$\"1M&\\9'*z4-$ F67$FL$\"1-Ziu\\c#p#F67$FQ$\"13Sca%z!=BF67$FV$\"1\"pUB&4$R!>F67$Ffn$\" 1=uljc?d9F67$F[o$\"1*RK0#=Zb)*Ffim7$F_o$\"1L%)=\\rDq\\Ffim7$Fdo$\"1Z,] KNZejFho7$Fjo$!1*pv\"\\rDq\\Ffim7$F_p$!19'>0#=Zb)*Ffim7$Fdp$!1Ihljc?d9 F67$Fip$!1%RTB&4$R!>F67$F^q$!1)piXXz!=BF67$Fcq$!1zLiu\\c#p#F67$Fhq$!1( >[9'*z4-$F67$F]r$!1V(eN90xH$F67$Far$!1$Rmjn0!=NF67$Ffr$!1gfnc@6yOF67$F [s$!1X%>#=^GvPF67$F`s$!1/Mo/>'y!QF67$Fes$!1Z%>#=^GvPF67$Fjs$!1mfnc@6yO F67$F_t$!1-kOwc+=NF67$Fdt$!1b(eN90xH$F67$Fit$!16#[9'*z4-$F67$F^u$!1&RB Y(\\c#p#F67$Fbu$!1:Fca%z!=BF67$Fgu$!189M_4$R!>F67$F\\v$!1^hljc?d9F67$F av$!1K)>0#=Zb)*Ffim7$Ffv$!1Af<\\rDq\\Ffim7$F[w$\"1Br=!))Q@8'Fho7$Faw$ \"13#)=\\rDq\\Ffim7$Ffw$\"1\"=K0#=Zb)*Ffim7$F[x$\"1'RdOm0sX\"F67$F`x$ \"1rEM_4$R!>F67$Fdx$\"1*)Rca%z!=BF67$Fix$\"1&oCY(\\c#p#F67$F^y$\"1?&\\ 9'*z4-$F67$Fcy$\"1\"3gN90xH$F67$Fhy$\"1WxOwc+=NF67$F]z$\"1>tnc@6yOF67$ Fbz$\"173A=^GvPF67$FgzFfdsFiz7#-F(6$7S7$F,$\"1%\\7Gm,Tb$F67$F1$\"1nbRI epBNF67$F8$\"1IvO&e)*HV$F67$F=$\"1Sot#yhNG$F67$FB$\"1;#GwKUz2$F67$FG$ \"1^q#fUe'>GF67$FL$\"1z7!oQHJ^#F67$FQ$\"1Yi42+gj@F67$FV$\"1elSJ30xp)>*Ffim7$F_o$\"1AU5oN.RYFfim7$Fdo$ \"1-\"*zA)39U'Fho7$Fjo$!1m84oN.RYFfim7$F_p$!1#*el&)>p)>*Ffim7$Fdp$!1\\ ')HBe4g8F67$Fip$!1a_SJ30xGF67$F]r$!1uoiFB%z2$F67$Far$!1!\\NFyhNG$F67$Ffr$!1vhO&e)* HV$F67$F[s$!15URIepBNF67$F`s$!1O6\"Gm,Tb$F67$Fes$!17URIepBNF67$Fjs$!1# =m`e)*HV$F67$F_t$!1)\\NFyhNG$F67$Fdt$!1&)oiFB%z2$F67$Fit$!1Kd#fUe'>GF6 7$F^u$!1r**z'QHJ^#F67$Fbu$!1\\\\42+gj@F67$Fgu$!1s_SJ30xp)>*Ffim7$Ffv$!1v:4oN.RYFfim7$F[w$\"1g*)\\$>d,@' Fho7$Faw$\"17S5oN.RYFfim7$Ffw$\"1$eoc)>p)>*Ffim7$F[x$\"1E**HBe4g8F67$F `x$\"1RlSJ30xGF67$Fcy$\"11#GwKUz2$F67$Fhy$\"1Kot#yhNG$F67$F]z$\"1CvO&e)*HV$F67$Fb z$\"1lbRIepBNF67$FgzF[^tFiz7#-F(6$7S7$F,$\"1:6l\"H_sJ$F67$F1$\"1,!Q%QF ())G$F67$F8$\"1IC#3m>U?$F67$F=$\"1uEV'\\TZ1$F67$FB$\"1&4K`vCG(GF67$FG$ \"1'Hqh=`?F67$FV$\"1te#e9E'e;F 67$Ffn$\"1+/*H\\d%p7F67$F[o$\"1Pw*[q!o&e)Ffim7$F_o$\"1*=IE5$))HVFfim7$ Fdo$\"19x>iE_okFho7$Fjo$!1Wsh-J))HVFfim7$F_p$!1jY)[q!o&e)Ffim7$Fdp$!1) 4*)H\\d%p7F67$Fip$!1lX#e9E'e;F67$F^q$!1?F67$Fcq$!1z>L!f^cM#F67$ Fhq$!1m*oh=` U?$F67$F[s$!1_mVQF())G$F67$F`s$!1o(\\;H_sJ$F67$Fes$!1bmVQF())G$F67$Fjs $!1*3@3m>U?$F67$F_t$!1S8V'\\TZ1$F67$Fdt$!1o2LbZ#G(GF67$Fit$!1y*oh=`L!f^cM#F67$Fbu$!1KpWX_T>?F67$Fgu$!1#eCe9E'e;F67$F\\v$!1; \"*)H\\d%p7F67$Fav$!1][)[q!o&e)Ffim7$Ffv$!1Ruh-J))HVFfim7$F[w$\"19N<() *[8F'Fho7$Faw$\"1%**HE5$))HVFfim7$Ffw$\"1[u*[q!o&e)Ffim7$F[x$\"1#Q!*H \\d%p7F67$F`x$\"1ce#e9E'e;F67$Fdx$\"1;#[aC:%>?F67$Fix$\"1(GL.f^cM#F67$ F^y$\"1$Gqh=`U?$F67$Fbz$\"1(*zVQF())G$F67$FgzF`gtFiz7#-F(6$7S7$F,$\"1&)4dJo='4$ F67$F1$\"1=V,C&)ppIF67$F8$\"1e0jBoo!*HF67$F=$\"1_%>Dk.0'GF67$FB$\"14M+ ^kP\"o#F67$FG$\"12F*\\;qjX#F67$FL$\"1?XU/ZL*=#F67$FQ$\"1&Ql+7R[)=F67$F V$\"17ey:M4[:F67$Ffn$\"1t&\\RSf[=\"F67$F[o$\"1$zm?>@N,)Ffim7$F_o$\"1)* QFvZLTSFfim7$Fdo$\"1R4JJ@n.lFho7$Fjo$!1$)3EvZLTSFfim7$F_p$!1bP0#>@N,)F fim7$Fdp$!1m#[RSf[=\"F67$Fip$!1,Xy:M4[:F67$F^q$!1oS1?\"R[)=F67$Fcq$!1) >BWqM$*=#F67$Fhq$!1\"Q\"*\\;qjX#F67$F]r$!1w?+^kP\"o#F67$Far$!1;\"=Dk.0 'GF67$Ffr$!1=#HO#oo!*HF67$F[s$!1yH,C&)ppIF67$F`s$!1X'p:$o='4$F67$Fes$! 1!)H,C&)ppIF67$Fjs$!1B#HO#oo!*HF67$F_t$!1B\"=Dk.0'GF67$Fdt$!1&3-5Xw8o# F67$Fit$!1#R\"*\\;qjX#F67$F^u$!16KU/ZL*=#F67$Fbu$!1$3k+7R[)=F67$Fgu$!1 ;Xy:M4[:F67$F\\v$!1$G[RSf[=\"F67$Fav$!1JR0#>@N,)Ffim7$Ffv$!1m5EvZLTSFf im7$F[w$\"1N)pKGQ'>jFho7$Faw$\"1:PFvZLTSFfim7$Ffw$\"1@N,)Ffim7$F[ x$\"1c&\\RSf[=\"F67$F`x$\"1'z&y:M4[:F67$Fdx$\"1q`1?\"R[)=F67$Fix$\"12X U/ZL*=#F67$F^y$\"1'p#*\\;qjX#F67$Fcy$\"1*R.5Xw8o#F67$Fhy$\"1W%>Dk.0'GF 67$F]z$\"1_0jBoo!*HF67$Fbz$\"1:V,C&)ppIF67$FgzFe`uFiz7#-F(6$7S7$F,$\"1 [?\"[U`)*)GF67$F1$\"1=M:G.8lGF67$F8$\"1$*e@dSQ\"z#F67$F=$\"1X:9Jk()pEF 67$FB$\"1#y+\"zko-DF67$FG$\"1Po_n[n#H#F67$FL$\"1b*>L&\\VV?F67$FQ$\"1zX ^+8Bf`(=yHlFho7$Fjo$!1609Oc,sPFfim7$F_ p$!1gF&*Q5\\zuFfim7$Fdp$!1t\"Qw-**e5\"F67$Fip$!1K]S7n#\\W\"F67$F^q$!1i K^+8Bf-9Jk()pEF67$Fd t$!1i%*4zko-DF67$Fit$!1Ab_n[n#H#F67$F^u$!1Z'=L&\\VV?F67$Fbu$!1vK^+8Bf< F67$Fgu$!1Z]S7n#\\W\"F67$F\\v$!1)=Qw-**e5\"F67$Fav$!1DH&*Q5\\zuFfim7$F fv$!1\"oShj:?x$Ffim7$F[w$\"1m**oCA,ejFho7$Faw$\"10M:Oc,sPFfim7$Ffw$\"1 xc'*Q5\\zuFfim7$F[x$\"1n%Rw-**e5\"F67$F`x$\"1JjS7n#\\W\"F67$Fdx$\"1lX^ +8BfL&\\VV?F67$F^y$\"1Eo_n[n#H#F67$Fcy$\"1u25zko-DF67$F hy$\"1Q:9Jk()pEF67$F]z$\"1))e@dSQ\"z#F67$Fbz$\"1:M:G.8lGF67$FgzFjiuFiz 7#-F(6$7S7$F,$\"1e*41Jqsp#F67$F1$\"1!R!>*y%>uEF67$F8$\"1=4]`IO0EF67$F= $\"1]HiLG&>\\#F67$FB$\"1`=')4Y!fL#F67$FG$\"1@4f5%)))R@F67$FL$\"1OcKF\" es!>F67$FQ$\"1n*4(GT*>k\"F67$FV$\"1.`Ib^j[8F67$Ffn$\"1s5[g1?K5F67$F[o$ \"1>$fk\"F67$Fcq$!1:VKF\"es!>F67$Fhq$!1(f*e5%)))R@F67$F]r$! 1F0')4Y!fL#F67$Far$!1A;iLG&>\\#F67$Ffr$!1)e*\\`IO0EF67$F[s$!1g!*=*y%>u EF67$F`s$!1G'31Jqsp#F67$Fes$!1i!*=*y%>uEF67$Fjs$!1#f*\\`IO0EF67$F_t$!1 G;iLG&>\\#F67$Fdt$!1N0')4Y!fL#F67$Fit$!12'*e5%)))R@F67$F^u$!1EVKF\"es! >F67$Fbu$!1h'3(GT*>k\"F67$Fgu$!1,SIb^j[8F67$F\\v$!1t(z/m+A.\"F67$Fav$! 1bjuh#\\5)pFfim7$Ffv$!1tQJIUk?NFfim7$F[w$\"1j*p?8Y()Q'Fho7$Faw$\"1dmKI Uk?NFfim7$Ffw$\"1l\"fk\"F67$Fix$\"1CcKF\"es!>F67$F^y$\"164f5%)))R@F67$Fcy $\"1X=')4Y!fL#F67$Fhy$\"1WHiLG&>\\#F67$F]z$\"184]`IO0EF67$Fbz$\"1(Q!>* y%>uEF67$FgzF_cvFiz7#-F(6$7S7$F,$\"1\"o_Q:@v^#F67$F1$\"17rQ6M)f\\#F67$ F8$\"1\"QN2qQF67$FL$\"1-+nzi:!y\"F67$FQ$\"1'Hz^xpD`\"F67$FV$\"1mm#pdg(e7F67$Ffn $\"1zY3ij8M'*Ffim7$F[o$\"1;.m5U#e^'Ffim7$F_o$\"11RY+X-'G$Ffim7$Fdo$\"1 uhB\\J@jlFho7$Fjo$!1y2X+X-'G$Ffim7$F_p$!1zrk5U#e^'Ffim7$Fdp$!1G:2ij8M' *Ffim7$Fip$!1]`#pdg(e7F67$F^q$!1xzF67$F]r$!1'*)*ztsB!=#F67$Far$!18uqmi)eK#F67$Ffr$!1bSt+(Q uqmi)eK#F67$Fdt$!1.**ztsB!=#F67$Fit$!1!phm\"QG (*>F67$F^u$!1$po'zi:!y\"F67$Fbu$!1*)zF67$Fcy$\"187!QFP-=#F67$Fhy$\"1L(3nE')eK#F67$F] z$\"1x`t+(Q2/ &o](\\BF67$F1$\"1=K>U#['HBF67$F8$\"1%G@?([opAF67$F=$\"1YNTkl)3<#F67$FB $\"1Q_!eyV\\.#F67$FG$\"13)G[b#=k=F67$FL$\"1>-\\VY_h;F67$FQ$\"1k)R[eP/V \"F67$FV$\"1(o?DMv[<\"F67$Ffn$\"1v+atl5#**)Ffim7$F[o$\"1)=<`G-;3'Ffim7 $F_o$\"1NR&e4Sq1$Ffim7$Fdo$\"1B(e9P([tlFho7$Fjo$!1(ySe4Sq1$Ffim7$F_p$! 1KSI&G-;3'Ffim7$Fdp$!15p_tl5#**)Ffim7$Fip$!1p$>DMv[<\"F67$F^q$!1X&Q[eP /V\"F67$Fcq$!1**))[VY_h;F67$Fhq$!1&[F[b#=k=F67$F]r$!1:R!eyV\\.#F67$Far $!1@ATkl)3<#F67$Ffr$!1f*>?([opAF67$F[s$!1$*=>U#['HBF67$F`s$!1'RR]o](\\ BF67$Fes$!1&*=>U#['HBF67$Fjs$!1i*>?([opAF67$F_t$!1FATkl)3<#F67$Fdt$!1A R!eyV\\.#F67$Fit$!1%\\F[b#=k=F67$F^u$!14*)[VY_h;F67$Fbu$!1c&Q[eP/V\"F6 7$Fgu$!1\"Q>DMv[<\"F67$F\\v$!1Qq_tl5#**)Ffim7$Fav$!1nTI&G-;3'Ffim7$Ffv $!1E4%e4Sq1$Ffim7$F[w$\"1OVQ)z?QV'Fho7$Faw$\"1)z`e4Sq1$Ffim7$Ffw$\"1aq J&G-;3'Ffim7$F[x$\"1Z*RNd1@**)Ffim7$F`x$\"1u1_U`([<\"F67$Fdx$\"1`)R[eP /V\"F67$Fix$\"14-\\VY_h;F67$F^y$\"1*zG[b#=k=F67$Fcy$\"1I_!eyV\\.#F67$F hy$\"1SNTkl)3<#F67$F]z$\"1!G@?([opAF67$Fbz$\"1;K>U#['HBF67$FgzFiewFiz7 #-F(6$7S7$F,$\"1T`!3jgJ>#F67$F1$\"11$zv$yRu@F67$F8$\"1E`\\%\\I%=@F67$F =$\"1[1J=i@E?F67$FB$\"1=u&3#GL**=F67$FG$\"1&yWAJ^*RASl11\\E'GFfim7$Fdo$\"1]sz-_&3e'Fho7$F jo$!1H?lg!\\E'GFfim7$F_p$!1/l?-uJwcFfim7$Fdp$!15mBzB'GR)Ffim7$Fip$!1!o ,aJ!e'4\"F67$F^q$!1kOl*f6^L\"F67$Fcq$!1%psUv)z]:F67$Fhq$!1kMC78&*R#F67$Fes$!1&)zdPyRu@F67$Fjs$!12S\\%\\I%=@F67$F _t$!1I$4$=i@E?F67$Fdt$!1-h&3#GL**=F67$Fit$!1sMC78&*RASF67$F=$\"1jCPoo=\"*=F67$FB$\"1/biC\"fFx\"F6 7$FG$\"1GXv!)*)*Ri\"F67$FL$\"1t_1kF67$F[s$!15OC'\\$\\H?F67$F`s$!1y.i:f+Z?F67$Fes$ !16OC'\\$\\H?F67$Fjs$!1/UY!)eDx>F67$F_t$!1Y6Poo=\"*=F67$Fdt$!1*=CY7fFx \"F67$Fit$!1:Kv!)*)*Ri\"F67$F^u$!1iR1kbY!)eDx>F67$Fbz$\"1H\\C'\\$\\H?F67$FgzFchxF iz7#-F(6$7S7$F,$\"1!4Wm6\"f5>F67$F1$\"1RKyWdC%*=F67$F8$\"1>]/.$*[X=F67 $F=$\"15amFg:l* 4N\"F67$FQ$\"1\"))>%yT4j6F67$FV$\"1TPA$ebHb*Ffim7$Ffn$\"1h,kjc^6tFfim7 $F[o$\"1,n\"Rot\\%\\Ffim7$F_o$\"1AeXL=#Q\\#Ffim7$Fdo$\"1u/**f6h*e'Fho7 $Fjo$!1UEWL=#Q\\#Ffim7$F_p$!1?N!Rot\\%\\Ffim7$Fdp$!1wpijc^6tFfim7$Fip$ !1`0@$ebHb*Ffim7$F^q$!1i&=%yT4j6F67$Fcq$!1(o_Y$>*4N\"F67$Fhq$!1m\">V%Q x::F67$F]r$!1GuDV/ia;F67$Far$!1*3kw-c^w\"F67$Ffr$!1*pVII*[X=F67$F[s$!1 ?>yWdC%*=F67$F`s$!1rFk;6f5>F67$Fes$!1@>yWdC%*=F67$Fjs$!1-P/.$*[X=F67$F _t$!1%4kw-c^w\"F67$Fdt$!1MuDV/ia;F67$Fit$!1t\">V%Qx::F67$F^u$!1'p_Y$>* 4N\"F67$Fbu$!1r&=%yT4j6F67$Fgu$!1[1@$ebHb*Ffim7$F\\v$!1\"3FOm::J(Ffim7 $Fav$!1HO!Rot\\%\\Ffim7$Ffv$!1bFWL=#Q\\#Ffim7$F[w$\"19Q_Sx/wkFho7$Faw$ \"14dXL=#Q\\#Ffim7$Ffw$\"1#f;Rot\\%\\Ffim7$F[x$\"1d+kjc^6tFfim7$F`x$\" 1TOA$ebHb*Ffim7$Fdx$\"1s)>%yT4j6F67$Fix$\"1)*RlM>*4N\"F67$F^y$\"1z/KWQ x::F67$Fcy$\"1U(eKW?Yl\"F67$Fhy$\"10amFg:lf'Fho7$Fjo$!1htD92jFBFfim7$F_p$!1/\"f;-Nah%Ffim7$Fd p$!11)*>czECoFfim7$Fip$!1$HlRxNj\"*)Ffim7$F^q$!1\"Gc9E%e&3\"F67$Fcq$!1 &o@yHg4E\"F67$Fhq$!12r)Q&4w99F67$F]r$!1ocydYNW:F67$Far$!1.NJDS_Z;F67$F fr$!1c#))**z.Ds\"F67$F[s$!1Bp2d5,oczECoFfim7$Fav$!12#f;-Nah%Ffim7$Ffv$!1muD92jFBFfim7 $F[w$\"1mkw[A(f['Fho7$Faw$\"1S/F92jFBFfim7$Ffw$\"1(=s;-Nah%Ffim7$F[x$ \"1'*G@czECoFfim7$F`x$\"1(QyRxNj\"*)Ffim7$Fdx$\"1#fd9E%e&3\"F67$Fix$\" 1(*H#yHg4E\"F67$F^y$\"1?%))Q&4w99F67$Fcy$\"1#)pydYNW:F67$Fhy$\"1=[JDS_ Z;F67$F]z$\"1t&*)**z.Ds\"F67$Fbz$\"1S#yq06!o9xg\"F67$F=$\"1kT>`6 tP:F67$FB$\"1Em[4rVT9F67$FG$\"1:R>x'z/K\"F67$FL$\"1&H=:ZGp<\"F67$FQ$\" 1!z)Q$pRK,\"F67$FV$\"1zH#=.T@K)Ffim7$Ffn$\"1\"Gq$*)4\\pjFfim7$F[o$\"1S I8!>dyI%Ffim7$F_o$\"1\"34+w9D<#Ffim7$Fdo$\"1([],:IMf'Fho7$Fjo$!1%*e**f Z^s@Ffim7$F_p$!1`)>,>dyI%Ffim7$Fdp$!1#4d$*)4\\pjFfim7$Fip$!1#z4=.T@K)F fim7$F^q$!1ruQ$pRK,\"F67$Fcq$!1wp^r%Gp<\"F67$Fhq$!1'f#>x'z/K\"F67$F]r$ !12`[4rVT9F67$Far$!1XG>`6tP:F67$Ffr$!1A'H0>9xg\"F67$F[s$!1TQK#z)=];F67 $F`s$!1?EO1#GWm\"F67$Fes$!1UQK#z)=];F67$Fjs$!1C'H0>9xg\"F67$F_t$!1\\G> `6tP:F67$Fdt$!17`[4rVT9F67$Fit$!1-E>x'z/K\"F67$F^u$!1$)p^r%Gp<\"F67$Fb u$!1zuQ$pRK,\"F67$Fgu$!1x)4=.T@K)Ffim7$F\\v$!1%=d$*)4\\pjFfim7$Fav$!1[ *>,>dyI%Ffim7$Ffv$!1#*f**fZ^s@Ffim7$F[w$\"1tz&3Q)\\%\\'Fho7$Faw$\"1$)* 3+w9D<#Ffim7$Ffw$\"1WH8!>dyI%Ffim7$F[x$\"1!>q$*)4\\pjFfim7$F`x$\"1\"*G #=.T@K)Ffim7$Fdx$\"1#y)Q$pRK,\"F67$Fix$\"1)G=:ZGp<\"F67$F^y$\"14R>x'z/ K\"F67$Fcy$\"1@m[4rVT9F67$Fhy$\"1gT>`6tP:F67$F]z$\"1Q4`!>9xg\"F67$Fbz$ \"1e^K#z)=];F67$FgzFbdzFiz7#-F(6$7S7$F,$\"1'G?/#)3Nb\"F67$F1$\"1)e/rL= -a\"F67$F8$\"1V=,\"Hu0]\"F67$F=$\"10@w-]DN9F67$FB$\"1as[.\"y`M\"F67$FG $\"1nC&=T\"[K7F67$FL$\"1#\\_:i'\\)4\"F67$FQ$\"1J'p\\\\irX*Ffim7$FV$\"1 DZ5-TanxFfim7$Ffn$\"1PG3w3-XfFfim7$F[o$\"1.,g%pw2-%Ffim7$F_o$\"1rH54ft F?Ffim7$Fdo$\"1\\,wYeB%f'Fho7$Fjo$!1$y*34ftF?Ffim7$F_p$!1:pe%pw2-%Ffim 7$Fdp$!1['pg(3-XfFfim7$Fip$!1Q:4-TanxFfim7$F^q$!1Uk&\\\\irX*Ffim7$Fcq$ !1t6b@m\\)4\"F67$Fhq$!1[6&=T\"[K7F67$F]r$!1Nf[.\"y`M\"F67$Far$!1'ygF+b _V\"F67$Ffr$!1D0,\"Hu0]\"F67$F[s$!1qK5P$=-a\"F67$F`s$!1p*=/#)3Nb\"F67$ Fes$!1rK5P$=-a\"F67$Fjs$!1F0,\"Hu0]\"F67$F_t$!1!zgF+b_V\"F67$Fdt$!1Sf[ .\"y`M\"F67$Fit$!1a6&=T\"[K7F67$F^u$!1z6b@m\\)4\"F67$Fbu$!18l&\\\\irX* Ffim7$Fgu$!1<;4-TanxFfim7$F\\v$!1L(pg(3-XfFfim7$Fav$!1.qe%pw2-%Ffim7$F fv$!1u)*34ftF?Ffim7$F[w$\"1bo#G+(*=]'Fho7$Faw$\"1!)G54ftF?Ffim7$Ffw$\" 1:+g%pw2-%Ffim7$F[x$\"1_F3w3-XfFfim7$F`x$\"1WY5-TanxFfim7$Fdx$\"1d&p\\ \\irX*Ffim7$Fix$\"1&[_:i'\\)4\"F67$F^y$\"1hC&=T\"[K7F67$Fcy$\"1\\s[.\" y`M\"F67$Fhy$\"1,@w-]DN9F67$F]z$\"1T=,\"Hu0]\"F67$Fbz$\"1(e/rL=-a\"F67 $FgzFg][lFiz7#-F(6$7S7$F,$\"1mdKG7)*\\9F67$F1$\"1s?\"zVwvV\"F67$F8$\"1 EU2;Vd+9F67$F=$\"1+ePzzgR8F67$FB$\"1m2uy0sb7F67$FG$\"1r>&3XZ.:\"F67$FL $\"1UD9f:HD5F67$FQ$\"18n\"fWEp#))Ffim7$FV$\"1C@jTh!*\\sFfim7$Ffn$\"1+1 @Lz$)[bFfim7$F[o$\"1MMKpv#Gv$Ffim7$F_o$\"1))[C&G0E*=Ffim7$Fdo$\"1e:utL c%f'Fho7$Fjo$!1)pJ_G0E*=Ffim7$F_p$!1Y-Jpv#Gv$Ffim7$Fdp$!15u>Lz$)[bFfim 7$Fip$!1Q*=;91*\\sFfim7$F^q$!1BN!fWEp#))Ffim7$Fcq$!1B79f:HD5F67$Fhq$!1 _1&3XZ.:\"F67$F]r$!1[%R(y0sb7F67$Far$!1#[u$zzgR8F67$Ffr$!13H2;Vd+9F67$ F[s$!1b2\"zVwvV\"F67$F`s$!1\\WKG7)*\\9F67$Fes$!1c2\"zVwvV\"F67$Fjs$!15 H2;Vd+9F67$F_t$!1&[u$zzgR8F67$Fdt$!1_%R(y0sb7F67$Fit$!1e1&3XZ.:\"F67$F ^u$!1H79f:HD5F67$Fbu$!1\"f.fWEp#))Ffim7$Fgu$!16!>;91*\\sFfim7$F\\v$!1! \\(>Lz$)[bFfim7$Fav$!1H.Jpv#Gv$Ffim7$Ffv$!1%yJ_G0E*=Ffim7$F[w$\"1Y7=&4 y$3lFho7$Faw$\"1-[C&G0E*=Ffim7$Ffw$\"1_LKpv#Gv$Ffim7$F[x$\"1>0@Lz$)[bF fim7$F`x$\"1]?jTh!*\\sFfim7$Fdx$\"1Tm\"fWEp#))Ffim7$Fix$\"1ND9f:HD5F67 $F^y$\"1l>&3XZ.:\"F67$Fcy$\"1i2uy0sb7F67$Fhy$\"1(zv$zzgR8F67$F]z$\"1CU 2;Vd+9F67$Fbz$\"1r?\"zVwvV\"F67$FgzF\\g[lFiz7#-F(6$7S7$F,$\"1)\\VD$GN` 8F67$F1$\"1[4X6ZxT8F67$F8$\"1^_.`%QsI\"F67$F=$\"1jJD#)\\L]7F67$FB$\"1& QmK$z.s6F67$FG$\"1D6H!*pot5F67$FL$\"1BsH_'\\'p&*Ffim7$FQ$\"1uV#H/!pQ#) Ffim7$FV$\"1$y?F;knw'Ffim7$Ffn$\"1#p\"frq0z^Ffim7$F[o$\"1%)=1y[t-NFfim 7$F_o$\"1spi>*zkw\"Ffim7$Fdo$\"1O8#3$pa%f'Fho7$Fjo$!1$y8'>*zkw\"Ffim7$ F_p$!1&p[!y[t-NFfim7$Fdp$!1-&y:2d!z^Ffim7$Fip$!1*f2F;knw'Ffim7$F^q$!1' =6H/!pQ#)Ffim7$Fcq$!1PSG_'\\'p&*Ffim7$Fhq$!11)*G!*pot5F67$F]r$!1m]ELz. s6F67$Far$!1W=D#)\\L]7F67$Ffr$!1MR.`%QsI\"F67$F[s$!1I'\\9ru*zkw\"Ffim7$F[w$\"1&Ruq80T^'Fho7$Faw$\"1#* oi>*zkw\"Ffim7$Ffw$\"11=1y[t-NFfim7$F[x$\"1<;frq0z^Ffim7$F`x$\"172siTw mnFfim7$Fdx$\"13V#H/!pQ#)Ffim7$Fix$\"1mrH_'\\'p&*Ffim7$F^y$\"1?6H!*pot 5F67$Fcy$\"1\"QmK$z.s6F67$Fhy$\"1gJD#)\\L]7F67$F]z$\"1\\_.`%QsI\"F67$F bz$\"1Y4X6ZxT8F67$FgzFa`\\lFiz-%+AXESLABELSG6$%\"xG%!G-%%VIEWG6$;F,$\" 0ezrI&=$G'!#9%(DEFAULTG" 2 280 280 280 2 0 1 0 2 9 0 4 2 1.000000 45.000000 45.000000 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 0 1 0 0 0 100 0 }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "f := x -> x*(2*Pi-x);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"fG:6#%\"xG6\"6$%)operatorG%&arrowGF(*&9$\"\"\",&%#P iG\"\"#F-!\"\"F.F(F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "plo t(f(x),x=0..2*Pi);" }}{PARA 13 "" 1 "" {INLPLOT "6%-%'CURVESG6$7S7$\" \"!F(7$$\"15@;)eb&p8!#;$\"1g#**zH.wT)F,7$$\"1D![Ce)>hDF,$\"1CLT[6lV:!# :7$$\"1>FdfdK,RF,$\"1)z$GU=2*H#F47$$\"15d`phL]_F,$\"1$o'))3KABIF47$$\" 1**4]o\\$Hf'F,$\"1m(QvH&z2PF47$$\"1g4v>fpPyF,$\"1as?6[F5VF47$$\"1Y@S&y tl7*F,$\"1X,\\F47$$\"1WF4$\"1U7a-A(z Y)F47$$\"1h\"\\.=)G*4#F4$\"1G>:'y0Ky)F47$$\"1<2b6GC>AF4$\"1[)z*p^()=!* F47$$\"1\\1Mk&y(eBF4$\"1\"RiF]1oD*F47$$\"1eJ)*[8H#[#F4$\"1YL$3>E\\V*F4 7$$\"1w#f%\\W!yh#F4$\"1&3.$=.D&f*F47$$\"1j#pr'\\%ou#F4$\"1(*\\:l'yPr*F 47$$\"1(Qg,@&[\")GF4$\"1x>'*=&[>!)*F47$$\"1\"GhL)p70IF4$\"1U%Q>_\")4&) *F47$$\"1===R8\\QJF4$\"1+$QHy%fp)*F47$$\"1')*4NU>qF$F4$\"1T$y5*RE^)*F4 7$$\"1\\f9G&3wR$F4$\"1/Y1t-1/)*F47$$\"1l#*zk![y_$F4$\"1g2Se6T?(*F47$$ \"1r*4,D)RiOF4$\"1?EsJfO)f*F47$$\"1s$QlNHSz$F4$\"1Y\\t\\2$RW*F47$$\"1S KN?#*Q@RF4$\"1+Lb:<_h#*F47$$\"1.t&[j+G1%F4$\"1(RQjD!)4-*F47$$\"1[fJ!3l )*=%F4$\"1<]X?$H2x)F47$$\"1*)e?(\\LbK%F4$\"1kp!*z%))yY)F47$$\"1\"o*>Z# p%[WF4$\"1vR;qznh\")F47$$\"1_'HN\\qGe%F4$\"1^w=*eABz(F47$$\"11@>#fJ$4Z F4$\"1_%z9-*z6uF47$$\"1_OSy)>:%[F4$\"15gUJ=&)zpF47$$\"1pV***3e2(\\F4$ \"19AN2#eP_'F47$$\"1udN?&eg5&F4$\"1R2Sf#y/,'F47$$\"1,9j:*ojB&F4$\"1Xj2 8o^\"[&F47$$\"1Z\"[f6I'p`F4$\"10rTnMX0\\F47$$\"1UTCYyy,bF4$\"1g1m`I3*H %F47$$\"1c_,vqABcF4$\"1lc[**\\46PF47$$\"1*)ofN,TidF4$\"1U`4F,#4+$F47$$ \"18W>Cr*o)eF4$\"1Wwwkx!HL#F47$$\"1&Qk&=ii>gF4$\"1+!p**>Fle\"F47$$\"1! GFx*[mYhF4$\"1\"\\Qg3_9R)F,7$$\"1+++3`=$G'F4$!1$Q3O$H\"[:&!#C-%'COLOUR G6&%$RGBG$\"#5!\"\"F(F(-%+AXESLABELSG6$%\"xG%!G-%%VIEWG6$;F($\"+3`=$G' !\"*%(DEFAULTG" 2 383 383 383 2 0 1 0 2 9 0 4 2 1.000000 45.000000 45.000000 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 0 0 0 0 0 0 0 }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "f := x -> floor( (x+Pi)/( 2*Pi));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"fG:6#%\"xG6\"6$%)operat orG%&arrowGF(-%&floorG6#,$*&,&9$\"\"\"%#PiGF3F3F4!\"\"#F3\"\"#F(F(" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "plot(f(x),x=0..2*Pi);" }} {PARA 13 "" 1 "" {INLPLOT "6%-%'CURVESG6$7hn7$\"\"!F(7$$\"15@;)eb&p8!# ;F(7$$\"1D![Ce)>hDF,F(7$$\"1>FdfdK,RF,F(7$$\"15d`phL]_F,F(7$$\"1**4]o \\$Hf'F,F(7$$\"1g4v>fpPyF,F(7$$\"1Y@S&ytl7*F,F(7$$\"1WFBF(7$$\"1h \"\\.=)G*4#FBF(7$$\"1<2b6GC>AFBF(7$$\"1\\1Mk&y(eBFBF(7$$\"1eJ)*[8H#[#F BF(7$$\"1w#f%\\W!yh#FBF(7$$\"1j#pr'\\%ou#FBF(7$$\"1(Qg,@&[\")GFBF(7$$ \"1\"GhL)p70IFBF(7$$\"1]:Fh\"4=2$FBF(7$$\"1===R8\\QJFBF(7$$\"1uq\"=M?G 9$FB$\"\"\"F(7$$\"1HBXW$\\r9$FBFcp7$$\"1%e(3Z$y9:$FBFcp7$$\"1RGs\\t!e: $FBFcp7$$\"1]L*\\NlW;$FBFcp7$$\"1gQEgL7tJFBFcp7$$\"1\")[!3PR/>$FBFcp7$ $\"1-fM\"Qbx?$FBFcp7$$\"1WzU-uQUKFBFcp7$$\"1')*4NU>qF$FBFcp7$$\"1oz#e( RJPLFBFcp7$$\"1\\f9G&3wR$FBFcp7$$\"1l#*zk![y_$FBFcp7$$\"1r*4,D)RiOFBFc p7$$\"1s$QlNHSz$FBFcp7$$\"1SKN?#*Q@RFBFcp7$$\"1.t&[j+G1%FBFcp7$$\"1[fJ !3l)*=%FBFcp7$$\"1*)e?(\\LbK%FBFcp7$$\"1\"o*>Z#p%[WFBFcp7$$\"1_'HN\\qG e%FBFcp7$$\"11@>#fJ$4ZFBFcp7$$\"1_OSy)>:%[FBFcp7$$\"1pV***3e2(\\FBFcp7 $$\"1udN?&eg5&FBFcp7$$\"1,9j:*ojB&FBFcp7$$\"1Z\"[f6I'p`FBFcp7$$\"1UTCY yy,bFBFcp7$$\"1c_,vqABcFBFcp7$$\"1*)ofN,TidFBFcp7$$\"18W>Cr*o)eFBFcp7$ $\"1&Qk&=ii>gFBFcp7$$\"1!GFx*[mYhFBFcp7$$\"1+++3`=$G'FBFcp-%'COLOURG6& %$RGBG$\"#5!\"\"F(F(-%+AXESLABELSG6$%\"xG%!G-%%VIEWG6$;F($\"+3`=$G'!\" *%(DEFAULTG" 2 383 383 383 2 0 1 0 2 9 0 4 2 1.000000 45.000000 45.000000 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 364 341 0 0 0 0 0 0 }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "f := x -> floor(x);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"fG%&floorG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "plot(f(x),x=0..2*Pi);" }}{PARA 13 "" 1 "" {INLPLOT "6%-%'CURVESG6$7_r7$\"\"!F(7$$\"15@;)eb&p8!#;F(7$$\"1D![Ce)>h DF,F(7$$\"1>FdfdK,RF,F(7$$\"15d`phL]_F,F(7$$\"1**4]o\\$Hf'F,F(7$$\"1g4 v>fpPyF,F(7$$\"1`ld_[8#[)F,F(7$$\"1Y@S&ytl7*F,F(7$$\"1qf]=O\")f%*F,F(7 $$\"1%z4;X`Iz*F,F(7$$\"1^d))4MOw)*F,F(7$$\"12<;oLnf**F,F(7$$\"1p*HZ$G8 +5!#:$\"\"\"F(7$$\"1mPkK$)H/5FQFR7$$\"1kvbIQY35FQFR7$$\"1i8ZG$HE,\"FQF R7$$\"1`l7?8HH5FQFR7$$\"1WFQFR7$$\"1w-k%H(Qv>FQFR7$$\"1<,<@u3$*>FQFR7$$\"1xD!GX7v*>FQFR7$$\"1P] V%[P>+#FQ$\"\"#F(7$$\"1(\\ng^ij+#FQFdq7$$\"1d**pZvy5?FQFdq7$$\"1y['4hP '>?FQFdq7$$\"1)zHUn([G?FQFdq7$$\"1![*GFz)Q1#FQFdq7$$\"1h\"\\.=)G*4#FQF dq7$$\"1R*\\f\\l#f@FQFdq7$$\"1<2b6GC>AFQFdq7$$\"1\\1Mk&y(eBFQFdq7$$\"1 eJ)*[8H#[#FQFdq7$$\"1w#f%\\W!yh#FQFdq7$$\"1j#pr'\\%ou#FQFdq7$$\"1D[m)3 lT\"GFQFdq7$$\"1(Qg,@&[\")GFQFdq7$$\"161Y`cR7HFQFdq7$$\"1M3w'41L%HFQFd q7$$\"1Y4T=8weHFQFdq7$$\"1e51Sl@uHFQFdq7$$\"19h)3:W>)HFQFdq7$$\"1q6rh< n*)HFQFdq7$$\"1)pBrcNN*HFQFdq7$$\"1Ei`s$*R(*HFQFdq7$$\"1`([zqF$FQF[v7$$\"1\\f9G&3wR$FQF[v7$$\"1l#*zk![y_$FQF[v7$$\"1r*4, D)RiOFQF[v7$$\"1s$QlNHSz$FQF[v7$$\"11eW)G4x&QFQF[v7$$\"1SKN?#*Q@RFQF[v 7$$\"1c#zR2Un&RFQF[v7$$\"1s_gF\\4#*RFQF[v7$$\"1B&3V.9l*RFQF[v7$$\"1v<, TJ$4+%FQ$\"\"%F(7$$\"1F]rZAN0SFQFgx7$$\"1z#=WNr(4SFQFgx7$$\"1$yCyc4'=S FQFgx7$$\"1(GJ7yZu-%FQFgx7$$\"1&HW!3U7XSFQFgx7$$\"1.t&[j+G1%FQFgx7$$\" 1DmedGLETFQFgx7$$\"1[fJ!3l)*=%FQFgx7$$\"1*)e?(\\LbK%FQFgx7$$\"1\"o*>Z# p%[WFQFgx7$$\"1_'HN\\qGe%FQFgx7$$\"11@>#fJ$4ZFQFgx7$$\"1_OSy)>:%[FQFgx 7$$\"16!*>%)*Qh!\\FQFgx7$$\"1pV***3e2(\\FQFgx7$$\"1e>*oO9#z\\FQFgx7$$ \"1X&*yV1n()\\FQFgx7$$\"1R$QAy)*=*\\FQFgx7$$\"1Kro?p7'*\\FQFgx7$$\"1Ef 8f]N+]FQ$\"\"&F(7$$\"1?Ze(>$e/]FQFe\\l7$$\"1'*)z8v&\\@]FQFe\\l7$$\"1r] <0$3%Q]FQFe\\l7$$\"1Baw7MBs]FQFe\\l7$$\"1udN?&eg5&FQFe\\l7$$\"1(e$*zr8 7<&FQFe\\l7$$\"1,9j:*ojB&FQFe\\l7$$\"1Z\"[f6I'p`FQFe\\l7$$\"1UTCYyy,bF QFe\\l7$$\"1c_,vqABcFQFe\\l7$$\"1*)ofN,TidFQFe\\l7$$\"1_c*)HOlCeFQFe\\ l7$$\"18W>Cr*o)eFQFe\\l7$$\"12py(Rz+#fFQFe\\l7$$\"1+%z8nhK&fFQFe\\l7$$ \"1Yc<3G&)pfFQFe\\l7$$\"1#*=(\\%RW')fFQFe\\l7$$\"1a4gFQFf`l7$$\"1Le9eb9$3'FQFf`l7$$\"1!GF x*[mYhFQFf`l7$$\"1+++3`=$G'FQFf`l-%'COLOURG6&%$RGBG$\"#5!\"\"F(F(-%+AX ESLABELSG6$%\"xG%!G-%%VIEWG6$;F($\"+3`=$G'!\"*%(DEFAULTG" 2 383 383 383 2 0 1 0 2 9 0 4 2 1.000000 45.000000 45.000000 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 0 0 0 0 0 0 0 }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 97 "f := x -> (x-Pi/2)*Heaviside(x-Pi/2) - 2*(x-Pi)*Heavi side(x-Pi) + (x-3*Pi/2)*Heaviside(x-3*Pi/2);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%\"fG:6#%\"xG6\"6$%)operatorG%&arrowGF(,(*&,&9$\"\"\"% #PiG#!\"\"\"\"#F0-%*HeavisideG6#F.F0F0*&,&F/F0F1F3F0-F66#F9F0!\"#*&,&F /F0F1#!\"$F4F0-F66#F>F0F0F(F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "plot(f(x),x=0..2*Pi);" }}{PARA 13 "" 1 "" {INLPLOT "6%-%'CURVESG 6$7Y7$\"\"!F(7$$\"15@;)eb&p8!#;F(7$$\"1D![Ce)>hDF,F(7$$\"1>FdfdK,RF,F( 7$$\"15d`phL]_F,F(7$$\"1**4]o\\$Hf'F,F(7$$\"1g4v>fpPyF,F(7$$\"1Y@S&ytl 7*F,F(7$$\"1W7$ $\"1b>%*\\:VR;FB$\"1FB$\"1$QbJT3*oQF,7$$\"1h\" \\.=)G*4#FB$\"1\\EaN&=\\G&F,7$$\"1<2b6GC>AFB$\"1-#ev%[Y%['F,7$$\"1\\1M k&y(eBFB$\"1CvXvB#)zyF,7$$\"1eJ)*[8H#[#FB$\"19E)=A]\\6*F,7$$\"1w#f%\\W !yh#FB$\"1zVmA\"3q/\"FB7$$\"1j#pr'\\%ou#FB$\"1mVPS'[g<\"FB7$$\"1(Qg,@& [\")GFB$\"1!\\lL)))o58FB7$$\"1\"GhL)p70IFB$\"1&QmllIVV\"FB7$$\"1]:Fh\" 4=2$FB$\"1`mZMG,,:FB7$$\"1===R8\\QJFB$\"1ApQ7]pn:FB7$$\"1-fM\"Qbx?$FB$ \"1)yQ!*fLY]\"FB7$$\"1')*4NU>qF$FB$\"1/Z(obp`V\"FB7$$\"1\\f9G&3wR$FB$ \"1T(QAX!y98FB7$$\"1l#*zk![y_$FB$\"1Dae:4a%=\"FB7$$\"1r*4,D)RiOFB$\"1> ZFI2**\\5FB7$$\"1s$QlNHSz$FB$\"1uJYQif$=*F,7$$\"1SKN?#*Q@RFB$\"1+XJ+w* *4zF,7$$\"1.t&[j+G1%FB$\"1oQFbM)e\\'F,7$$\"1[fJ!3l)*=%FB$\"1=uo+!R_A&F ,7$$\"1*)e?(\\LbK%FB$\"12!)yJ[boQF,7$$\"1\"o*>Z#p%[WFB$\"1#4]=L(>REF,7 $$\"1_'HN\\qGe%FB$\"1s.bo[=&H\"F,7$$\"1z3'G/,hk%FB$\"1d5Q_PzGmFZ7$$\"1 1@>#fJ$4ZFB$\"1VRe#>)QdI!#=7$$\"1zyHNdUvZFBF(7$$\"1_OSy)>:%[FBF(7$$\"1 pV***3e2(\\FBF(7$$\"1udN?&eg5&FBF(7$$\"1,9j:*ojB&FBF(7$$\"1Z\"[f6I'p`F BF(7$$\"1UTCYyy,bFBF(7$$\"1c_,vqABcFBF(7$$\"1*)ofN,TidFBF(7$$\"18W>Cr* o)eFBF(7$$\"1&Qk&=ii>gFBF(7$$\"1!GFx*[mYhFBF(7$$\"1+++3`=$G'FBF(-%'COL OURG6&%$RGBG$\"#5!\"\"F(F(-%+AXESLABELSG6$%\"xG%!G-%%VIEWG6$;F($\"+3`= $G'!\"*%(DEFAULTG" 2 383 383 383 2 0 1 0 2 9 0 4 2 1.000000 45.000000 45.000000 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 11376 0 0 0 0 0 0 }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 20 "Homework Problem #1:" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 84 "In the above, we used 10 fourier modes to appro ximate the solution. Choose the step" }}{PARA 0 "" 0 "" {TEXT -1 87 " function above as initial data. (The one that went from 0 to 1.) App roximate it with " }}{PARA 0 "" 0 "" {TEXT -1 79 "5, 10, 20, and 30 Fo urier modes. This determines four solutions u1, u2, u3, u4" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 89 "a) Plot the rea l initial data and the approximate initial data. The real initial dat a is" }}{PARA 0 "" 0 "" {TEXT -1 58 "nonnegative. Is the approximate \+ initial data nonnegative?" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 " " 0 "" {TEXT -1 85 "b) Plot the four solutions at some time to compare how close they stay to each other." }}{PARA 0 "" 0 "" {TEXT -1 23 "\n Homework Problem #2:" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 98 "Here we worked on solutions on the interval [0,2 Pi] . Now we consider solutions periodic on [0,L]" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 67 "a) What is the basis that the Fourier series expansion is based on?" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 93 "b) What is the new inner produc t that makes the basis elements be orthogonal and unit length?" }} {PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 180 "c) Modif y the above program to correctly find the Fourier coefficients for f's Fourier series approximation. NOTE: where you declare the arrays a \+ and b, you should declare L here" }}{PARA 0 "" 0 "" {TEXT -1 89 "as we ll (L:=30, for example). L will appear in your do loops and if you do n't declare it" }}{PARA 0 "" 0 "" {TEXT -1 42 "at the very beginning, \+ maple will choke. " }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 " " {TEXT -1 88 "d) Check that you did it right by testing it against f (x) = 1 and f (x)= sin(x 2 Pi/L) " }}{PARA 0 "" 0 "" {TEXT -1 28 "and \+ f(x) = cos( x 2 Pi/L). " }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 " " 0 "" {TEXT -1 96 "e) Modify the program to find the solution of the \+ heat equation. Check that you did it right by" }}{PARA 0 "" 0 "" {TEXT -1 89 "testing it with initial data f(x) = 1 and f (x)= sin(x 2 \+ Pi/L) and f(x) = cos( x 2 Pi/L)." }}{PARA 0 "" 0 "" {TEXT -1 88 "I.e. \+ solve the equation by hand and make sure you get the right answer out \+ of maple, up " }}{PARA 0 "" 0 "" {TEXT -1 21 "to machine precision." } }{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 142 "f) Pick some amusing initial data and study it. The more examples you do, th e merrier. Bonus points for initial data that looks like a cusp." }} {PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 19 "Homework \+ Problem #3" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 85 "In the above, we did the heat equation u_t = u_xx. Now let's c onsider u_t = c*u_xx. " }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 60 "a) Modify the above program so that you have incorpo rated c." }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 104 "b) Pick one set of initial data. Now pick three different values of c. This determines three solutions" }}{PARA 0 "" 0 "" {TEXT -1 101 "u_1, u_2, and u_3. Plot the three solutions at a fixed time to g raphically demonstrate the effect of" }}{PARA 0 "" 0 "" {TEXT -1 76 "y our choice of diffusion constant. Explain why the behavior is as expe cted." }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}}{MARK "18 42 0" 0 } {VIEWOPTS 1 1 0 1 1 1803 }