{VERSION 5 0 "SUN SPARC SOLARIS" "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 "" 0 1 0 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 "Text Output" -1 2 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 0 0 0 0 0 1 3 0 3 0 }1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Heading 1" 0 3 1 {CSTYLE "" -1 -1 "" 1 18 0 0 0 0 0 1 0 0 0 0 0 0 0 0 }1 0 0 0 8 4 0 0 0 0 0 0 -1 0 } {PSTYLE "Warning" 2 7 1 {CSTYLE "" -1 -1 "" 0 1 0 0 255 1 0 0 0 0 0 0 1 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 0 }3 3 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 0 }3 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }} {SECT 0 {EXCHG {PARA 3 "" 0 "" {TEXT -1 19 "Homework Problem 78" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 61 "restart: #this is always a \+ good idea. It clears the memory." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 66 "with(plots): with(plottools): #These loads the graph ing packages." }}{PARA 7 "" 1 "" {TEXT -1 43 "Warning, the name arrow \+ has been redefined\n" }}{PARA 7 "" 1 "" {TEXT -1 43 "Warning, the name arrow has been redefined\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 71 "u:= (x,t) -> piecewise((x-2*t)^2<1,1-(x-2*t)^2); #Define the func tion." }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"uGf*6$%\"xG%\"tG6\"6$%)op eratorG%&arrowGF)-%*piecewiseG6$2*$),&9$\"\"\"*&\"\"#F59%F5!\"\"F7F5F5 ,&F5F5F1F9F)F)F)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 77 "T0:=plo t(u(x,0),x=-1..5):\nT1:=plot(u(x,1),x=-1..5):\nT2:=plot(u(x,2),x=-1..5 ):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "display(T0,T1,T2);" } }{PARA 13 "" 1 "" {GLPLOT2D 486 486 486 {PLOTDATA 2 "6'-%'CURVESG6$7jo 7$$!\"\"\"\"!$F*F*7$$!3t****\\(oUIn*!#=$\"3s&y-e;XAV'!#>7$$!3Z*****\\P &3Y$*F/$\"3776K;)o]E\"F/7$$!3@****\\i!G\">!*F/$\"3k+DA**G`l=F/7$$!3/++ +]2<#p)F/$\"3;WWGlnhWCF/7$$!3#3+]78.K7)F/$\"3U=]%))3d8S$F/7$$!3Z++]7bB avF/$\"3+'Qo@e_LH%F/7$$!3o***\\(=>P9pF/$\"3?W,#p4Y\">_F/7$$!3*******\\ K3XF'F/$\"3vo0&z_aI1'F/7$$!3y*******H./j&F/$\"3%3\"\\$z'e&)HoF/7$$!3b* ****\\F)H')\\F/$\"3&G?t7&Ho8vF/7$$!3$****\\(oXDXVF/$\"3ZDdFti(=6)F/7$$ !3J++]i3@/PF/$\"3E+Ph)=#)yi)F/7$$!3P++](G\"))4JF/$\"3UMdwPQ'G.*F/7$$!3 U++]7n$*F/7$$!3T++]iy:+>F/$\"3_Uzv4+%*Q'*F/7$$!3P++ ]7Sw%G\"F/$\"39!\\=K9Q\\$)*F/7$$!3a-++DTVl'*F2$\"3v&GvJQzl!**F/7$$!3B, ++D\"GK['F2$\"3y3#zIvnz&**F/7$$!3e+++D^7#*[F2$\"3>W8w6r1w**F/7$$!3#*** ***\\7A5I$F2$\"3Ng-$HD.\"*)**F/7$$!3E*****\\7>*4++++X=`IF2$\"3))f*3W1y1***F/7$$\"3f****\\7[=RYF2$\"3^paFkz Zy**F/7$$\"3**)****\\7&=DiF2$\"33z%f,2Z7'**F/7$$\"3y(*****\\d=(R*F2$\" 3#p**z***Gp6**F/7$$\"3m****\\P'=pD\"F/$\"3_90(Qb:?%)*F/7$$\"3A++vVrZ4> F/$\"3)Qj\\Pq*QN'*F/7$$\"3x+++]c.iDF/$\"3Q2H\"GL(fV$*F/7$$\"3Y++]P&4o8 $F/$\"3#R!\\a#fUg,*F/7$$\"3;+++DMe6PF/$\"3CFl#z%[TA')F/7$$\"3h++](oU'e VF/$\"35x-F#RB-5)F/7$$\"31,++]>q0]F/$\"3U=mx)z%H%\\(F/7$$\"3L++++\"=al &F/$\"38R#>9hC;!oF/7$$\"3h******\\U80jF/$\"3![pZ*3#GX-'F/7$$\"3G+++]hD JpF/$\"3%pr3$=)od>&F/7$$\"3&4+++0ytb(F/$\"3h=y$4q.')G%F/7$$\"3O++v=n&f 7)F/$\"3Cs,]SF)oR$F/7$$\"3w****\\(QNXp)F/$\"3%G-^&Ra]SCF/7$$\"3M**\\7. HeK!*F/$\"3C'R<)4YCT=F/7$$\"3-++v=/jq$*F/$\"3b>(>bbG\">7F/7$$\"3r+]PMz n3(*F/$\"31s*zlws:u&F27$$\"3.+++XDn/5FgrF+7$$\"3-++]im%>1\"FgrF+7$$\"3 -+++!y?#>6FgrF+7$$\"3'****\\(3wY_7FgrF+7$$\"3#)******HOTq8FgrF+7$$\"37 ++v3\">)*\\\"FgrF+7$$\"3:++DEP/B;FgrF+7$$\"3=++](o:;v\"FgrF+7$$\"3=++v $)[op=FgrF+7$$\"3%*****\\i%Qq*>FgrF+7$$\"3&****\\(QIKH@FgrF+7$$\"3#*** *\\7:xWC#FgrF+7$$\"37++]Zn%)oBFgrF+7$$\"3y******4FL(\\#FgrF+7$$\"3#)** **\\d6.BEFgrF+7$$\"3(****\\(o3lWFFgrF+7$$\"3!*****\\A))ozGFgrF+7$$\"3e ******Hk-,IFgrF+7$$\"35+++D-eIJFgrF+7$$\"3t***\\(=_(zC$FgrF+7$$\"3M+++ b*=jP$FgrF+7$$\"3g***\\(3/3(\\$FgrF+7$$\"33++vB4JBOFgrF+7$$\"3u*****\\ KCnu$FgrF+7$$\"3r***\\(=n#f(QFgrF+7$$\"3P+++!)RO+SFgrF+7$$\"30++]_!>w7 %FgrF+7$$\"3N++v)Q?QD%FgrF+7$$\"3G+++5jypVFgrF+7$$\"3<++]Ujp-XFgrF+7$$ \"3++++gEd@YFgrF+7$$\"39++v3'>$[ZFgrF+7$$\"37++D6Ejp[FgrF+7$$\"\"&F*F+ -%'COLOURG6&%$RGBG$\"#5F)F+F+-F$6$7hpF'7$F>F+7$FHF+7$FRF+7$FfnF+7$F`oF +7$FjoF+7$FdpF+7$FbrF+7$FbtF+7$F\\uF+7$FfuF+7$F`vF+7$FjvF+7$FdwF+7$Fiw F+7$F^xF+7$FcxF+7$FhxF+7$$\"3\")*\\il**F/F+7$$\"3$)\\P4rN@i**F/F+ 7$$\"3i(oa5&pW+5Fgr$\"3%\\)**HTM-P*)!#@7$Fby$\"39LIABtDB$*Fdr7$$\"3-++ v.'4L.\"Fgr$\"3W3=!)zx'4b'F27$Fey$\"33660g$f0?\"F/7$$\"3-++D@Pe!4\"Fgr $\"3EB]W>.iH;c'zAC#F/7$$\"3,+v=([KD:\"Fgr$\"33_RFZ\"))z \"GF/7$$\"3)***\\P%>We=\"Fgr$\"3=s5nTK]rLF/7$$\"3)**\\i:!f:>7Fgr$\"3ox KNR\\#G!RF/7$F[z$\"3do0KSK&>T%F/7$$\"3!***\\P>1W68Fgr$\"3dhJ`$zf)e_F/7 $F^z$\"3)*GA5F+@OgF/7$$\"3)***\\Ppj6N9Fgr$\"3U&=>&Q[14oF/7$Faz$\"3YeNG g2>)\\(F/7$$\"39++]<9Vh:Fgr$\"3/3%RW)fdw!)F/7$Fdz$\"3L^^!onR!z&)F/7$$ \"3;+](oqHto\"Fgr$\"3Tm7(z(GPA!*F/7$Fgz$\"3uC!RIL_IQ*F/7$$\"3>+]i&G]1 \"=Fgr$\"3^f5mcoYT'*F/7$Fjz$\"3#**[nZqz,$)*F/7$$\"3C+vVyK_,>Fgr$\"3t=I 5`L-.**F/7$$\"31+]7t;OL>Fgr$\"3\\1I\"RL$fb**F/7$$\"3()\\(o/(3G\\>Fgr$ \"3[Af**)pvU(**F/7$$\"3!**\\7y1+_'>Fgr$\"3Jau>Z'*)y)**F/7$$\"3#*\\i:l# >6)>Fgr$\"3w*f<&y^V'***F/7$F][l$\"33hj&HH7*****F/7$$\"31]7`MSd8?Fgr$\" 3-Wa'eXd\")***F/7$$\"3;+Dc1'4,.#Fgr$\"399l#f6M4***F/7$$\"3G]Pfy^kY?Fgr $\"3Yr&RJFU#y**F/7$$\"3%***\\i]2=j?Fgr$\"3'fh/v#>3g**F/7$$\"3s*\\(o%*= D'4#Fgr$\"3Ik1pFdN2**F/7$F`[l$\"3GgY[;bvK)*F/7$$\"3#******\\4+p=#Fgr$ \"3w4**)[a$o]'*F/7$Fc[l$\"3?Zo;D#4BS*F/7$$\"3-+]P\\>m1BFgr$\"3'*[_0)[% ef!*F/7$Ff[l$\"3[6neo2_R')F/7$$\"3t***\\(G(*3LCFgr$\"3-;D^oGLC\")F/7$F i[l$\"3mg0kb=gDFgr$\"3\"f5,5,i>'oF/7$F\\\\l$\"3C/@%y w@$=hF/7$$\"3*)**\\785%Qo#Fgr$\"3'pt\"o(o9OK&F/7$F_\\l$\"3S.()pO3&\\X% F/7$$\"32+v=d.TyFFgr$\"3!eGK#eJxSRF/7$$\"3;+]iX)p@\"GFgr$\"3[LYd=9!QS$ F/7$$\"3D+D1M$Hf%GFgr$\"3k[ds)4$Fgr$\"3Z-(odF>u'=F/7$Fh\\l$\"3=&\\*Q[D4TCF/7$$\"3 !***\\(=sx#*=$Fgr$\"3b+\"=v(QHFMF/7$F[]l$\"3!G*)eQG(eWVF/7$$\"3/+](o3Z @J$Fgr$\"317X0*p$eo_F/7$F^]l$\"3K%3x5a>-6'F/7$$\"3'***\\(=o*pOMFgr$\"3 iPF+;v#p#oF/7$Fa]l$\"3MD$pt%)=2Z(F/7$$\"3$)***\\im&>gNFgr$\"3P%=Z,[@d1 )F/7$Fd]l$\"3(y@R$)R`5e)F/7$$\"3!***\\PCw,&o$Fgr$\"3P8jXI5'y+*F/7$Fg]l $\"3tUH`CV^e$*F/7$$\"3t**\\(=_D8\"QFgr$\"3D)eUIT>Sk*F/7$Fj]l$\"3t$e)z3 #eg%)*F/7$$\"36+D1Mg.2RFgr$\"3d8 -S<'**F/7$$\"3z\\7.2+q`RFgr$\"3.P4^1Jcy**F/7$$\"3***\\(okYDpRFgr$\"3%) >_cVsa!***F/7$$\"3=]PMA$4[)RFgr$\"3eRM7LCp(***F/7$F]^l$\"2if&=v')***** *Fgr7$$\"3A+D1k3F;SFgr$\"3!pfE)*e_t***F/7$$\"3'4+D\"[x2>%Fgr$\"3#*=sk\"))fij*F/7$Fc^l$\"3F()za-@vb$*F/7$$\"3K+]P \\L!=J%Fgr$\"36:`=8nyF!*F/7$Ff^l$\"3COeO\\3eK')F/7$$\"3A++DE8COWFgr$\" 3c3kr_]$p4)F/7$Fi^l$\"3]D7PsQ'HZ(F/7$$\"33++D,X8iXFgr$\"3WOT/D![+%oF/7 $F\\_l$\"3OW_S$Guk8'F/7$$\"31+]PMh%\\o%Fgr$\"3-Vu/Iz[3`F/7$F__l$\"3bmC gJw<+WF/7$$\"3\"***\\PfykyZFgr$\"3A.t!46vq$RF/7$$\"3p******4h(*3[Fgr$ \"3k$o#\\MldbMF/7$$\"3N+]igVIR[Fgr$\"3S$feB!>obHF/7$Fb_l$\"3Oh]]97RPCF /7$$\"3))*\\P%eWA-\\Fgr$\"3Z+;(fE5*f=F/7$$\"3]+]i0j\"[$\\Fgr$\"32ciPZZ =h7F/7$$\"3E+D\"G:3u'\\Fgr$\"3q91>(eY@T'F2Fd_lFg_l-%+AXESLABELSG6%Q\"x 6\"Q!Fe\\n-%%FONTG6#%(DEFAULTG-%%VIEWG6$;F(Fe_lFj\\n" 1 2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" "Curve 3 " }}}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 58 "There certainly is a traveli ng wave here. Its speed is 2." }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "6 1 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }