{VERSION 6 0 "IBM INTEL LINUX" "6.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 } {CSTYLE "" -1 256 "" 1 18 0 0 0 0 0 1 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 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 {PARA 0 "" 0 "" {TEXT -1 36 "fowkes_earth_heating.mws 7/11/20 04\n" }{TEXT 256 43 "Sinusoidal heating of semi-infinite medium." }} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "evalf(5+48/60+20+53/60)/2;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 11 "" 1 "" {XPPMATH 20 " 6#$\"+mm;M8!\")" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 ".3416666 *60;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"*g***\\?!\"(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 438 "restart:\nomega:=1/5;\nkappa:=1;\n so2k:=evalf(sqrt(omega/2/kappa));\npi:=evalf(Pi):\nT:=unapply(exp(-so2 k*x)*cos(omega*t-so2k*x-pi/4),t);\ntmax:=2*pi/omega;\nnt:=40: dt:=eval f(tmax/nt):\nxmax:=15;\nfor i from 0 to nt-1 do\n pdot:=plot([cos(ome ga*i*dt),x,x=0..1],color=blue,thickness=2):\n pcrv:=plot([T(i*dt),-x, x=0..xmax],thickness=2):\n plt[i]:=plots[display](pdot,pcrv):\nod: un assign('i'):\nplots[display](seq(plt[i],i=0..nt-1),insequence=true);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%&omegaG#\"\"\"\"\"&" }}{PARA 11 " " 1 "" {XPPMATH 20 "6#>%&kappaG\"\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%so2kG$\"+gwFiJ!#5" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"TGj+6#% \"tG6\"6$%)operatorG%&arrowGF(*&-%$expG6#,$*&$\"+gwFiJ!#5\"\"\"%\"xGF5 !\"\"F5-%$cosG6#,(*F5\"\"&F59$F5F5*&$\"+gwFiJF4F5F6F5F7$\"+N;)R&yF4F 7F5F(F(F(6#\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%tmaxG$\"+aEfTJ! \")" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%xmaxG\"#:" }}{PARA 13 "" 1 " " {GLPLOT2D 257 352 352 {PLOTDATA 2 "6#-%(ANIMATEG6J7&-%'CURVESG6%7S7$ $\"\"\"\"\"!$F.F.7$F,$\"3dmmm;arz@!#>7$F,$\"3[LL$e9ui2%F37$F,$\"3nmmm \"z_\"4iF37$F,$\"3[mmmT&phN)F37$F,$\"3BLLe*=)H\\5!#=7$F,$\"3gmm\"z/3uC \"F@7$F,$\"3%)***\\7LRDX\"F@7$F,$\"3^mm\"zR'ok;F@7$F,$\"3w***\\i5`h(=F @7$F,$\"3YLLL3En$4#F@7$F,$\"3qmm;/RE&G#F@7$F,$\"3\")*****\\K]4]#F@7$F, $\"3$******\\PAvr#F@7$F,$\"3(******\\nHi#HF@7$F,$\"3jmm\"z*ev:JF@7$F,$ \"3?LLL347TLF@7$F,$\"3,LLLLY.KNF@7$F,$\"3v***\\7o7Tv$F@7$F,$\"3'GLLLQ* o]RF@7$F,$\"3A++D\"=lj;%F@7$F,$\"31++vV&R
Y2aF@7$F,$\"39mm;zXu9cF@7$F,$\"3l******\\y))GeF@7$F,$\"3'*)***\\
i_QQgF@7$F,$\"3@***\\7y%3TiF@7$F,$\"36****\\P![hY'F@7$F,$\"3jKLL$Qx$om
F@7$F,$\"3!)*****\\P+V)oF@7$F,$\"3?mm\"zpe*zqF@7$F,$\"3%)*****\\#\\'QH
(F@7$F,$\"3GKLe9S8&\\(F@7$F,$\"3R***\\i?=bq(F@7$F,$\"3\"HLL$3s?6zF@7$F
,$\"3a***\\7`Wl7)F@7$F,$\"3#pmmm'*RRL)F@7$F,$\"3Qmm;a<.Y&)F@7$F,$\"3z%G&z
6\"F3Fhcl7$$!3,j\")fA&G%o6F3F^dl7$$!3*HX4c6k&*=\"F3Fcdl7$$!3$3,zgz,_=
\"F3Fhdl7$$!3`V'fAJfH;\"F3F]el7$$!3s_V&o;#H?6F3Fbel7$$!37`5)*\\g**p5F3
Fgel7$$!3!fhWzprp+\"F3F\\fl7$$!3,&G$)yr1?S*F[zFafl7$$!3W1Q&4?X(R')F[zF
fflFhflFauF]glFfgl7&-F(6%7S7$$!3b+++W_15*)F@F/7$FifzF17$FifzF57$FifzF8
7$FifzF;7$FifzF>7$FifzFB7$FifzFE7$FifzFH7$FifzFK7$FifzFN7$FifzFQ7$Fifz
FT7$FifzFW7$FifzFZ7$FifzFgn7$FifzFjn7$FifzF]o7$FifzF`o7$FifzFco7$FifzF
fo7$FifzFio7$FifzF\\p7$FifzF_p7$FifzFbp7$FifzFep7$FifzFhp7$FifzF[q7$Fi
fzF^q7$FifzFaq7$FifzFdq7$FifzFgq7$FifzFjq7$FifzF]r7$FifzF`r7$FifzFcr7$
FifzFfr7$FifzFir7$FifzF\\s7$FifzF_s7$FifzFbs7$FifzFes7$FifzFhs7$FifzF[
t7$FifzF^t7$FifzFat7$FifzFdt7$FifzFgt7$FifzF,FjtFau-F(6%7in7$$!3#z-'GU
*p,4$F@F/7$$!3QNG/y,yqFF@Fdat7$$!3%p'GB*>uQY#F@F^v7$$!3r;)e$yEAp@F@F\\
bt7$$!3$z'>y%)=f')=F@Fcv7$$!3cnj;aFrA9F@Fhv7$$!3V&**ejV!RK**F3F]w7$$!3
Ofg9DdP(\\&F3Fbw7$$!3<4467%fBY\"F3Fgw7$$\"3Y')eakg]9AF3F\\x7$$\"3vn'ze
.NW_&F3Fbx7$$\"3s)Rie#yNt%)F3Fgx7$$\"3PpJnIem46F@F\\y7$$\"3nW*GKu4aK\"
F@Ff^w7$$\"3FyDr?(>i^\"F@Fay7$$\"3E#QW(Q!H#Q=F@Ffy7$$\"3O(H^pRv#y?F@F
\\z7$$\"3B?lyX*4hB#F@Faz7$$\"3)pTm+2[&*G#F@Fj_y7$$\"3c[x>iJ
#F@Fj[l7$$!3]FhvB1t%4#F@F_\\l7$$!3%)>U#p/%>e>F@Fd\\l7$
$!3b-lGN`QJ=F@Fi\\l7$$!3$4eW*pK+w;F@F^]l7$$!3fcwX8v-N:F@Fc]l7$$!3C[7:$
Gi+Q\"F@Fh]l7$$!3KU&QK@t[B\"F@F]^l7$$!3(QtF:lV\")3\"F@Fb^l7$$!3'p'[O)G
$[#f*F3Fg^l7$$!3R![?'=$3yF)F3F\\_l7$$!3n71Sqj`0qF3Fa_l7$$!3bK!*4N'z4)f
F3Ff_l7$$!3$fL\\;hqV'\\F3F[`l7$$!3>W[AZ*RL,%F3F``l7$$!3P^pf.4vzJF3Fe`l
7$$!3Ygn]Ao8iCF3Fj`l7$$!3Ft81UJ\"Qw\"F3F_al7$$!3K$y?uL>-A\"F3Fdal7$$!3
#*)\\t$\\Z?>sF[zFjal7$$!3`1f:2'zYQ$F[zF_bl7$$\"3j4r+eu^n7F]dlFdbl7$$\"
3$HJ9Og+&QGF[zFibl7$$\"3OonhP@!)>^F[zF^cl7$$\"3R$*\\(ef\"\\hoF[zFccl7$
$\"3$oOlsz)*zA)F[zFhcl7$$\"3\\>v*4F(=e\"*F[zF^dl7$$\"3z#e2a;U=x*F[zFcd
l7$$\"3Ik^F7pJ45F3Fhdl7$$\"3?I5hQIe<5F3F]el7$$\"3&\\*>g.;M15F3Fbel7$$
\"3u30^d!>-\")*F[zFgel7$$\"3L4'>9fC\\T*F[zF\\fl7$$\"3.Ai*>6XK%*)F[zFaf
l7$$\"3ZX%[NE,@O)F[zFfflFhflFauF]glFfgl7&-F(6%7S7$$\"3@+++n^c5&*F@F/7$
Fj[]mF17$Fj[]mF57$Fj[]mF87$Fj[]mF;7$Fj[]mF>7$Fj[]mFB7$Fj[]mFE7$Fj[]mFH
7$Fj[]mFK7$Fj[]mFN7$Fj[]mFQ7$Fj[]mFT7$Fj[]mFW7$Fj[]mFZ7$Fj[]mFgn7$Fj[]
mFjn7$Fj[]mF]o7$Fj[]mF`o7$Fj[]mFco7$Fj[]mFfo7$Fj[]mFio7$Fj[]mF\\p7$Fj[
]mF_p7$Fj[]mFbp7$Fj[]mFep7$Fj[]mFhp7$Fj[]mF[q7$Fj[]mF^q7$Fj[]mFaq7$Fj[
]mFdq7$Fj[]mFgq7$Fj[]mFjq7$Fj[]mF]r7$Fj[]mF`r7$Fj[]mFcr7$Fj[]mFfr7$Fj[
]mFir7$Fj[]mF\\s7$Fj[]mF_s7$Fj[]mFbs7$Fj[]mFes7$Fj[]mFhs7$Fj[]mF[t7$Fj
[]mF^t7$Fj[]mFat7$Fj[]mFdt7$Fj[]mFgt7$Fj[]mF,FjtFau-F(6%7gn7$$\"3O(4DO
*\\!*RXF@F/7$$\"3!G[fMZu\")>%F@Fdat7$$\"3ea8qFY>oQF@F^v7$$\"3&**ei66.)
\\NF@F\\bt7$$\"3cBp:o1$GC$F@Fcv7$$\"3!37yC(4MNFF@Fhv7$$\"3S[X=)oI4E#F@
F]w7$$\"3*=,Zfkmcw\"F@Fbw7$$\"3]Lz\"))=n%48F@Fgw7$$\"398._[[R\")))F3F
\\x7$$\"3h.PHL%3B.&F3Fbx7$$\"3Cyv.'Ripa\"F3Fgx7$$!3F0%QYC$)*4;F3F\\y7$
$!3(o@GW1cwD%F3Ff^w7$$!3C>6p)*)=*\\mF3Fay7$$!32!onW^4Z3\"F@Ffy7$$!3n3G
]@pB@9F@F\\z7$$!3ER$=z-:(p;F@Faz7$$!3\"y`\"H*pxl%=F@Ffz7$$!3E\"4PQ35`%
>F@F[[l7$$!3bPo)3M7.)>F@Fc^[l7$$!3\"z3i&zL1-?F@F`[l7$$!3/z,H\\,w6?F@F[
_[l7$$!3e.!*p!RE/,#F@Fe[l7$$!3:YWO@=p!)>F@Fj[l7$$!3VadqYfnF>F@F_\\l7$$
!38Mp=QbGR=F@Fd\\l7$$!3wVc,>[!zu\"F@Fi\\l7$$!30.yX&oVzi\"F@F^]l7$$!3\"
eczID#\\8:F@Fc]l7$$!3ctvf*\\UGQ\"F@Fh]l7$$!3h,-ye(plD\"F@F]^l7$$!3EK(Q
BV:c7\"F@Fb^l7$$!3IG\"pH'R-35F@Fg^l7$$!3]\\mp]\"Ht&))F3F\\_l7$$!3ivR\\
+zX^wF3Fa_l7$$!3\"z$fVnt*Rm'F3Ff_l7$$!3X$*p#eM\")*ocF3F[`l7$$!3()\\md%
yvKs%F3F``l7$$!3!ee4GZ@6)QF3Fe`l7$$!33DU+eosWJF3Fj`l7$$!3I,%ovb_gT#F3F
_al7$$!3Oga362qQ=F3Fdal7$$!3%=P2QV%[*H\"F3Fjal7$$!3[%*e*oyD,w)F[zF_bl7
$$!3#R7t^KHDz%F[zFdbl7$$!3:`Y$Q(=JW;F[zFibl7$$\"3#pI8*y\"494\"F[zF^cl7
$$\"3\"[BYgaS\"oKF[zFccl7$$\"3p]D\"p[oQ2&F[zFhcl7$$\"3N4UJfVe1kF[zF^dl
7$$\"3(G%f)p*zU2uF[zFcdl7$$\"3]y$y*pHz&3)F[zFhdl7$$\"3hHKZR\\]r%)F[zF]
el7$$\"3k8B*oq:hn)F[zFbel7$$\"3.-u$yY<*y')F[zFgel7$$\"3EqC+7$Fej]mFB7$Fej]mFE7$Fej]mFH7$Fej]mFK7$Fej]mFN7$Fej]mFQ7$Fej]mFT7$Fej]
mFW7$Fej]mFZ7$Fej]mFgn7$Fej]mFjn7$Fej]mF]o7$Fej]mF`o7$Fej]mFco7$Fej]mF
fo7$Fej]mFio7$Fej]mF\\p7$Fej]mF_p7$Fej]mFbp7$Fej]mFep7$Fej]mFhp7$Fej]m
F[q7$Fej]mF^q7$Fej]mFaq7$Fej]mFdq7$Fej]mFgq7$Fej]mFjq7$Fej]mF]r7$Fej]m
F`r7$Fej]mFcr7$Fej]mFfr7$Fej]mFir7$Fej]mF\\s7$Fej]mF_s7$Fej]mFbs7$Fej]
mFes7$Fej]mFhs7$Fej]mF[t7$Fej]mF^t7$Fej]mFat7$Fej]mFdt7$Fej]mFgt7$Fej]
mF,FjtFau-F(6%7Y7$$\"3IbW=ID&y(eF@F/7$$\"3L*o:'zsEx^F@F^v7$$\"3#\\>B3@
?#>XF@Fcv7$$\"3sn*e..;1)RF@Fhv7$$\"3=`YmF2&HZ$F@F]w7$$\"3#Q'4Me\">\"QH
F@Fbw7$$\"3eyCm>]XSCF@Fgw7$$\"3(4Sd`kge(>F@F\\x7$$\"3=pz?()R^Y:F@Fbx7$
$\"32A2)p8>H:\"F@Fgx7$$\"3!Rm_Q/Nj\"zF3F\\y7$$\"39(==w,BO%[F3Ff^w7$$\"
31lE?qD5E?F3Fay7$$!3^%yV7M3[/$F3Ffy7$$!3w9fF#pG?H(F3F\\z7$$!3N%>I%yh?i
5F@Faz7$$!309HkfL^@8F@Ffz7$$!3S/jH:/])[\"F@F[[l7$$!3m'4`1$4v;;F@F`[l7$
$!3C%eK\"f'>4p\"F@Fe[l7$$!3(yh>Z8&z=