{VERSION 6 0 "IBM INTEL NT" "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 }
{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 }{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 "" {TEXT -1 13 "Maps in Maple" }}{PARA 0 "
" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "exp(
-t)*sin(2*t);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*&-%$expG6#,$%\"tG!\"
\"\"\"\"-%$sinG6#,$*&\"\"#F*F(F*F*F*" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 18 "plot(%,t=0..2*Pi);" }}{PARA 13 "" 1 "" {GLPLOT2D 430 
142 142 {PLOTDATA 2 "6%-%'CURVESG6$7jo7$$\"\"!F)F(7$$\"3Hjqb\"[W>r\"!#
>$\"3?edi%=:^O$F-7$$\"3eET6j*))QU$F-$\"3!>[N'*f:@h'F-7$$\"3_*=rYWLe8&F
-$\"3d/jZR**HS(*F-7$$\"3;`#Gi#zxZoF-$\"3cd%fY;;\\F\"!#=7$$\"3\"zBM*)om
r-\"F?$\"3?%))pV'HyS=F?7$$\"3i]cC&eb&p8F?$\"3O>:0\"*QxeBF?7$$\"3_IF=Lj
Yn;F?$\"3wU/y$*4qqFF?7$$\"3q5)>63x`'>F?$\"3sz2z%*)po9$F?7$$\"3e!*o0HyG
jAF?$\"3K4+l0!Hx[$F?7$$\"3YqR*pd)>hDF?$\"3W%)excG&Qz$F?7$$\"3Y@%HT;i7B
$F?$\"3govo>:@fVF?7$$\"3Zs[E^dK,RF?$\"3wg'eZLYAw%F?7$$\"3+9+\"[&4$ed%F
?$\"3wada!Rmg,&F?7$$\"3ab^NehL]_F?$\"3*)3Y60SJJ^F?7$$\"3-N%oy+h\"=aF?$
\"3[M#Rkg#>S^F?7$$\"3]9<Qde)fe&F?$\"34aUL#Rg;9&F?7$$\"3'G*\\*oq5Qv&F?$
\"3g&*\\*e%*ff8&F?7$$\"3Ls#3kbN;#fF?$\"3#z;#3pdLB^F?7$$\"3;I[Vb_GdiF?$
\"37YsBE9Iy]F?7$$\"35*QhW&\\$Hf'F?$\"3CI[([wO&3]F?7$$\"3]:5wGaJ:sF?$\"
3*43hrPz/#[F?7$$\"3zS11.fpPyF?$\"3%))*pF)Q)ymXF?7$$\"3#e!R^M[8#[)F?$\"
3'o%or;l/[UF?7$$\"3upr'fwtl7*F?$\"3OhvvP%H_)QF?7$$\"3!Rbb2V`Iz*F?$\"3a
Vtu\"36oZ$F?7$$\"3!QRa&4L&f/\"!#<$\"3-kXP\\1?ZIF?7$$\"3_y%f^`(Q76Ffs$
\"37_19^>P4EF?7$$\"3YjXwg<#)y6Ffs$\"37%*e/Qf>s@F?7$$\"3!or.w_drC\"Ffs$
\"3mtR[3-fK<F?7$$\"36qGW%H$\\:8Ffs$\"3X\\Hb=LS68F?7$$\"3SH22vMov8Ffs$
\"3[dz]_]P6'*F-7$$\"3$*)e)pbO(eV\"Ffs$\"3'[T1Iq#>UjF-7$$\"3/]+3VNj.:Ff
s$\"3%pE'G<`OxHF-7$$\"396:YIMRr:Ffs$!316H6!oI5[#!#@7$$\"3Z'z]kaJ%R;Ffs
$!3sn2fls#fl#F-7$$\"3!=3SCmpuq\"Ffs$!35nn^J#R\\*[F-7$$\"3LmSEEVgQ=Ffs$
!3NM()y!R**o6)F-7$$\"3')4G5Xd9)*=Ffs$!3G\"HL(*QTW7*F-7$$\"3S`:%R;(od>F
fs$!3'Hu#R\\ghm)*F-7$$\"3M]e#pT(3$*>Ffs$!3p\"y/AX7*=5F?7$$\"3^Z,\"*pw[
G?Ffs$!3]#p8QZ)zU5F?7$$\"3oWW*G#z)Q1#Ffs$!3o*\\B#3que5F?7$$\"3#=uye<)G
*4#Ffs$!3)Res[</s1\"F?7$$\"3!zz^8\\l#f@Ffs$!3ek%=P^Nd1\"F?7$$\"3Ua[#o!
GC>AFfs$!3'>O0,D'RY5F?7$$\"3W]72$o5!*G#Ffs$!3]cJ'f,IX+\"F?7$$\"3-YwJf&
y(eBFfs$!3uV(Rc)fV`%*F-7$$\"3oNrpV8H#[#Ffs$!3+[91A/'34)F-7$$\"3EzY)QW/
yh#Ffs$!3EN%4ud_,K'F-7$$\"35v)>8'\\%ou#Ffs$!3A,vAR$3Kb%F-7$$\"3w$GCS?&
[\")GFfs$!3%pw\"eN18'y#F-7$$\"3Z%)='p(p70IFfs$!3#H%=!H_u^L\"F-7$$\"3sA
%)\\K8\\QJFfs$!3%f\"R&>=8()o#Fav7$$\"3c&fJlT>qF$Ffs$\"3)4coA0k(45F-7$$
\"39l2\"4_3wR$Ffs$\"3ml-Rvk.R;F-7$$\"3MOnGd![y_$Ffs$\"3y$)3UM/q\\?F-7$
$\"3#*=4JU#)RiOFfs$\"3GIG\\$)y&f@#F-7$$\"3%G,f%[$HSz$Ffs$\"3?U4,31Pr@F
-7$$\"3KoE+7#*Q@RFfs$\"3ac)**))pI7)>F-7$$\"3y(f0ii+G1%Ffs$\"3)\\sP@t:q
l\"F-7$$\"3;fORr]')*=%Ffs$\"32YolsCD58F-7$$\"3R&p%*z[LbK%Ffs$\"3w$HsR9
,EC*!#?7$$\"3M'pExBp%[WFfs$\"3!>b/09K6*eF^_l7$$\"3oh/x$[qGe%Ffs$\"3W8P
m:-E>EF^_l7$$\"3e;O;#eJ$4ZFfs$\"3\"*\\M)Qb&))4b!#A7$$\"3&)oO4o)>:%[Ffs
$!3:0yCvuR;?F^_l7$$\"3Ou\"4%z!e2(\\Ffs$!3o/7.u4kFMF^_l7$$\"3*zX#[4&eg5
&Ffs$!3A,SIP*>LH%F^_l7$$\"3n*e![/*ojB&Ffs$!3%z[xr&3))3YF^_l7$$\"3#ob8X
5I'p`Ffs$!3b)[+s0^P]%F^_l7$$\"3PA\"GX$yy,bFfs$!3+,oQ24MzSF^_l7$$\"39L1
/jqABcFfs$!39lPdPp&)*\\$F^_l7$$\"3mweKB,TidFfs$!3wmY'*GTX8FF^_l7$$\"3'
oIe;6(*o)eFfs$!3g]/[semw>F^_l7$$\"3nKcu0ii>gFfs$!3b!)y0I'*oA7F^_l7$$\"
3w)*zj%)[mYhFfs$!3gI$oR:&QsdFav7$$\"3)****>YH&=$G'Ffs$!3%GXa_wh3p%!#G-
%'COLOURG6&%$RGBG$\"#5!\"\"F(F(-%+AXESLABELSG6$Q\"t6\"Q!Fgdl-%%VIEWG6$
;F($\"+3`=$G'!\"*%(DEFAULTG" 1 2 0 1 10 0 2 9 1 4 2 1.000000 
45.000000 45.000000 0 0 "Curve 1" }}}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 7 "D(sin);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%$cosG" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "f:=t->exp(-t)*sin(2*t);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"fGj+6#%\"tG6\"6$%)operatorG%&arrow
GF(*&-%$expG6#,$9$!\"\"\"\"\"-%$sinG6#,$*&\"\"#F3F1F3F3F3F(F(F(6#\"\"!
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "f(x);" }}{PARA 11 "" 1 "
" {XPPMATH 20 "6#*&-%$expG6#,$%\"xG!\"\"\"\"\"-%$sinG6#,$*&\"\"#F*F(F*
F*F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "fp:=D(f);" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#>%#fpGj+6#%\"tG6\"6$%)operatorG%&arrowGF(,&*
&-%$expG6#,$9$!\"\"\"\"\"-%$sinG6#,$*&\"\"#F4F2F4F4F4F3*(F:F4F.F4-%$co
sGF7F4F4F(F(F(6#\"\"!" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "fp(
Pi);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,$*&\"\"#\"\"\"-%$expG6#,$%#Pi
G!\"\"F&F&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "fp(2*s);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#,&*&-%$expG6#,$*&\"\"#\"\"\"%\"sGF+!\"
\"F+-%$sinG6#,$*&\"\"%F+F,F+F+F+F-*(F*F+F%F+-%$cosGF0F+F+" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "plot([f,fp],0..2*Pi,thickness=3);" 
}}{PARA 13 "" 1 "" {GLPLOT2D 450 168 168 {PLOTDATA 2 "6'-%'CURVESG6$7j
o7$$\"\"!F)F(7$$\"3Hjqb\"[W>r\"!#>$\"3?edi%=:^O$F-7$$\"3eET6j*))QU$F-$
\"3!>[N'*f:@h'F-7$$\"3_*=rYWLe8&F-$\"3d/jZR**HS(*F-7$$\"3;`#Gi#zxZoF-$
\"3cd%fY;;\\F\"!#=7$$\"3\"zBM*)omr-\"F?$\"3?%))pV'HyS=F?7$$\"3i]cC&eb&
p8F?$\"3O>:0\"*QxeBF?7$$\"3_IF=LjYn;F?$\"3wU/y$*4qqFF?7$$\"3q5)>63x`'>
F?$\"3sz2z%*)po9$F?7$$\"3e!*o0HyGjAF?$\"3K4+l0!Hx[$F?7$$\"3YqR*pd)>hDF
?$\"3W%)excG&Qz$F?7$$\"3Y@%HT;i7B$F?$\"3govo>:@fVF?7$$\"3Zs[E^dK,RF?$
\"3wg'eZLYAw%F?7$$\"3+9+\"[&4$ed%F?$\"3wada!Rmg,&F?7$$\"3ab^NehL]_F?$
\"3*)3Y60SJJ^F?7$$\"3-N%oy+h\"=aF?$\"3[M#Rkg#>S^F?7$$\"3]9<Qde)fe&F?$
\"34aUL#Rg;9&F?7$$\"3'G*\\*oq5Qv&F?$\"3g&*\\*e%*ff8&F?7$$\"3Ls#3kbN;#f
F?$\"3#z;#3pdLB^F?7$$\"3;I[Vb_GdiF?$\"37YsBE9Iy]F?7$$\"35*QhW&\\$Hf'F?
$\"3CI[([wO&3]F?7$$\"3]:5wGaJ:sF?$\"3*43hrPz/#[F?7$$\"3zS11.fpPyF?$\"3
%))*pF)Q)ymXF?7$$\"3#e!R^M[8#[)F?$\"3'o%or;l/[UF?7$$\"3upr'fwtl7*F?$\"
3OhvvP%H_)QF?7$$\"3!Rbb2V`Iz*F?$\"3aVtu\"36oZ$F?7$$\"3!QRa&4L&f/\"!#<$
\"3-kXP\\1?ZIF?7$$\"3_y%f^`(Q76Ffs$\"37_19^>P4EF?7$$\"3YjXwg<#)y6Ffs$
\"37%*e/Qf>s@F?7$$\"3!or.w_drC\"Ffs$\"3mtR[3-fK<F?7$$\"36qGW%H$\\:8Ffs
$\"3X\\Hb=LS68F?7$$\"3SH22vMov8Ffs$\"3[dz]_]P6'*F-7$$\"3$*)e)pbO(eV\"F
fs$\"3'[T1Iq#>UjF-7$$\"3/]+3VNj.:Ffs$\"3%pE'G<`OxHF-7$$\"396:YIMRr:Ffs
$!316H6!oI5[#!#@7$$\"3Z'z]kaJ%R;Ffs$!3sn2fls#fl#F-7$$\"3!=3SCmpuq\"Ffs
$!35nn^J#R\\*[F-7$$\"3LmSEEVgQ=Ffs$!3NM()y!R**o6)F-7$$\"3')4G5Xd9)*=Ff
s$!3G\"HL(*QTW7*F-7$$\"3S`:%R;(od>Ffs$!3'Hu#R\\ghm)*F-7$$\"3M]e#pT(3$*
>Ffs$!3p\"y/AX7*=5F?7$$\"3^Z,\"*pw[G?Ffs$!3]#p8QZ)zU5F?7$$\"3oWW*G#z)Q
1#Ffs$!3o*\\B#3que5F?7$$\"3#=uye<)G*4#Ffs$!3)Res[</s1\"F?7$$\"3!zz^8\\
l#f@Ffs$!3ek%=P^Nd1\"F?7$$\"3Ua[#o!GC>AFfs$!3'>O0,D'RY5F?7$$\"3W]72$o5
!*G#Ffs$!3]cJ'f,IX+\"F?7$$\"3-YwJf&y(eBFfs$!3uV(Rc)fV`%*F-7$$\"3oNrpV8
H#[#Ffs$!3+[91A/'34)F-7$$\"3EzY)QW/yh#Ffs$!3EN%4ud_,K'F-7$$\"35v)>8'\\
%ou#Ffs$!3A,vAR$3Kb%F-7$$\"3w$GCS?&[\")GFfs$!3%pw\"eN18'y#F-7$$\"3Z%)=
'p(p70IFfs$!3#H%=!H_u^L\"F-7$$\"3sA%)\\K8\\QJFfs$!3%f\"R&>=8()o#Fav7$$
\"3c&fJlT>qF$Ffs$\"3)4coA0k(45F-7$$\"39l2\"4_3wR$Ffs$\"3ml-Rvk.R;F-7$$
\"3MOnGd![y_$Ffs$\"3y$)3UM/q\\?F-7$$\"3#*=4JU#)RiOFfs$\"3GIG\\$)y&f@#F
-7$$\"3%G,f%[$HSz$Ffs$\"3?U4,31Pr@F-7$$\"3KoE+7#*Q@RFfs$\"3ac)**))pI7)
>F-7$$\"3y(f0ii+G1%Ffs$\"3)\\sP@t:ql\"F-7$$\"3;fORr]')*=%Ffs$\"32YolsC
D58F-7$$\"3R&p%*z[LbK%Ffs$\"3w$HsR9,EC*!#?7$$\"3M'pExBp%[WFfs$\"3!>b/0
9K6*eF^_l7$$\"3oh/x$[qGe%Ffs$\"3W8Pm:-E>EF^_l7$$\"3e;O;#eJ$4ZFfs$\"3\"
*\\M)Qb&))4b!#A7$$\"3&)oO4o)>:%[Ffs$!3:0yCvuR;?F^_l7$$\"3Ou\"4%z!e2(\\
Ffs$!3o/7.u4kFMF^_l7$$\"3*zX#[4&eg5&Ffs$!3A,SIP*>LH%F^_l7$$\"3n*e![/*o
jB&Ffs$!3%z[xr&3))3YF^_l7$$\"3#ob8X5I'p`Ffs$!3b)[+s0^P]%F^_l7$$\"3PA\"
GX$yy,bFfs$!3+,oQ24MzSF^_l7$$\"39L1/jqABcFfs$!39lPdPp&)*\\$F^_l7$$\"3m
weKB,TidFfs$!3wmY'*GTX8FF^_l7$$\"3'oIe;6(*o)eFfs$!3g]/[semw>F^_l7$$\"3
nKcu0ii>gFfs$!3b!)y0I'*oA7F^_l7$$\"3w)*zj%)[mYhFfs$!3gI$oR:&QsdFav7$$
\"3)****>YH&=$G'Ffs$!3%GXa_wh3p%!#G-%'COLOURG6&%$RGBG$\"#5!\"\"F(F(-F$
6$7[o7$F($\"\"#F)7$F1$\"3Un?`+0.i=Ffs7$F;$\"3a:,Gu([Es\"Ffs7$FA$\"3)yW
bqaPFe\"Ffs7$FF$\"3iU;4>T7V9Ffs7$FP$\"3#HcyhKSJ?\"Ffs7$FZ$\"32T8cT-8+(
*F?7$Fin$\"3+(y$=uZ'*)>(F?7$F^o$\"3eg\")R$QI0'[F?7$Fco$\"3#=_qu58**p#F
?7$Fho$\"35%R+J)f9YvF-7$F\\q$!3GQ3yGt@O&*F-7$Ffq$!3@s%QWgqrU#F?7$F[r$!
33qF_)*pE#e$F?7$F`r$!39))*R$)))Qq`%F?7$Fer$!3h%H+XDn5K&F?7$Fjr$!3We\\+
2iz1fF?7$F_s$!3)z:j@[\"Q<jF?7$Fds$!3_\\#[4w7ca'F?7$$\"31OpNA/<z5Ffs$!3
m08UbM#of'F?7$Fjs$!3\\u@`/ua4mF?7$$\"3+@?'zk/c9\"Ffs$!3sfh@![!>'e'F?7$
F_t$!34IH:8k>HlF?7$Fdt$!37%y?$3@m;jF?7$Fit$!3yxRv2Lp$*fF?7$Fcu$!3.?C,D
0=?_F?7$F]v$!3CJgLhdi_TF?7$Fhv$!3dB@kAcM-IF?7$F]w$!3S,v4G*RO#>F?7$Fgw$
!3#3%y1A([I.\"F?7$F[y$!3)H&R#GtCSP\"F-7$Fey$\"3#)RTCjq%Re%F-7$F_z$\"3y
vg%Q=]6b*F-7$Fdz$\"38b1twl0E7F?7$Fiz$\"3!He&3@_;h8F?7$F^[l$\"37>)*G42`
e8F?7$Fc[l$\"3[z*y-'QM^7F?7$Fh[l$\"3Q4&e;t(\\(3\"F?7$F]\\l$\"3gP8*pm\\
jp)F-7$Fb\\l$\"3AG$)\\o!pJE'F-7$Fg\\l$\"3yq-\">oIN>%F-7$F\\]l$\"3]D!)*
=yYn:#F-7$Fa]l$\"3Yt5Ub:GfPF^_l7$Ff]l$!3')=D`'e?_))*F^_l7$F[^l$!3L*y=X
bOo$>F-7$F`^l$!3+]cv'3#)*zDF-7$Fe^l$!3:wO&fBA2$GF-7$Fj^l$!3zCET!G,l\"G
F-7$F`_l$!3E)*z&pz?+h#F-7$Fe_l$!3y'>O.%fzQAF-7$Fj_l$!3'zl/L!fj2=F-7$F`
`l$!3#e5z%=@+D8F-7$Fe`l$!3Cxy4-eWO')F^_l7$Fj`l$!3A3L&R$H0gUF^_l7$F_al$
!3=<u%ft:j.(Fav7$Fdal$\"3uuZ$fGxI9#F^_l7$Fial$\"32v0BEIiWTF^_l7$F^bl$
\"3=T+%*e*QPH&F^_l7$Fcbl$\"3MQo<-vn()eF^_l7$Fhbl$\"3))>SmG`kteF^_l7$F]
cl$\"3]U*eN&Q*RU&F^_l7$Fbcl$\"3Yy*RNTg)*p%F^_l7$Fgcl$\"377KBdb)[t$F^_l
-F]dl6&F_dlF(F`dlF(-%+AXESLABELSG6$Q!6\"F\\am-%*THICKNESSG6#\"\"$-%%VI
EWG6$;F($\"+3`=$G'!\"*%(DEFAULTG" 1 2 0 1 10 3 2 9 1 4 2 1.000000 
45.000000 45.000000 0 0 "Curve 1" "Curve 2" }}}}{EXCHG {PARA 0 "> " 0 
"" {MPLTEXT 1 0 14 "g:=s->fp(3*s);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#
>%\"gGj+6#%\"sG6\"6$%)operatorG%&arrowGF(-%#fpG6#,$*&\"\"$\"\"\"9$F2F2
F(F(F(6#\"\"!" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "g(Pi);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#,$*&\"\"#\"\"\"-%$expG6#,$*&\"\"$F&%#P
iGF&!\"\"F&F&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "g1:=unappl
y(fp(3*s),s);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#g1Gj+6#%\"sG6\"6$%
)operatorG%&arrowGF(,&*&-%$expG6#,$*&\"\"$\"\"\"9$F4!\"\"F4-%$sinG6#,$
*&\"\"'F4F5F4F4F4F6*(\"\"#F4F.F4-%$cosGF9F4F4F(F(F(6#\"\"!" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "g1(Pi);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#,$*&\"\"#\"\"\"-%$expG6#,$*&\"\"$F&%#PiGF&!\"\"F&F&" }}
}{EXCHG {PARA 0 "" 0 "" {TEXT -1 13 "scoping rules" }}{PARA 0 "" 0 "" 
{TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "Vol:=Pi*r^2*h;" }}{PARA 11 
"" 1 "" {XPPMATH 20 "6#>%$VolG*(%#PiG\"\"\")%\"rG\"\"#F'%\"hGF'" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "r:=2;" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%\"rG\"\"#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
4 "Vol;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,$*(\"\"%\"\"\"%#PiGF&%\"hG
F&F&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "Vcone:=Vol/3;" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%&VconeG,$**\"\"%\"\"\"\"\"$!\"\"%#Pi
GF(%\"hGF(F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "r:='r';" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"rGF$" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 4 "Vol;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*(%#PiG\"\"\")
%\"rG\"\"#F%%\"hGF%" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "Vcone
;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,$**\"\"%\"\"\"\"\"$!\"\"%#PiGF&%
\"hGF&F&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "NEx:=m*diff(x(t),t$2)=-b*dif
f(x(t),t);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$NExG/*&%\"mG\"\"\"-%%
diffG6$-%\"xG6#%\"tG-%\"$G6$F/\"\"#F(,$*&%\"bGF(-F*6$F,F/F(!\"\"" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 42 "NEy:=m*diff(y(t),t$2)=-m*g-b
*diff(y(t),t);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$NEyG/*&%\"mG\"\"
\"-%%diffG6$-%\"yG6#%\"tG-%\"$G6$F/\"\"#F(,&*&F'F(%\"gGF(!\"\"*&%\"bGF
(-F*6$F,F/F(F7" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "ICx:=x(0)
=0,D(x)(0)=v0_x;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$ICxG6$/-%\"xG6#
\"\"!F*/--%\"DG6#F(F)%%v0_xG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 25 "ICy:=y(0)=0,D(y)(0)=v0_y;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$
ICyG6$/-%\"yG6#\"\"!F*/--%\"DG6#F(F)%%v0_yG" }}}{EXCHG {PARA 0 "> " 0 
"" {MPLTEXT 1 0 9 "v0:=1000;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#v0G
\"%+5" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "alpha:=30;" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%&alphaG\"#I" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 34 "v0_x:=evalf(v0*sin(alpha*Pi/180));" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#>%%v0_xG$\"$+&\"\"!" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 34 "v0_y:=evalf(v0*cos(alpha*Pi/180));" }}{PARA 11 "" 
1 "" {XPPMATH 20 "6#>%%v0_yG$\"+SSDg')!\"(" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 7 "m:=500;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"mG\"$
+&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "g:=9.8;" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#>%\"gG$\"#)*!\"\"" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 6 "b:=10;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"bG\"#5" 
}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "sol:=dsolve(\{NEx,NEy,ICx
,ICy\});" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$solG<$/-%\"xG6#%\"tG,&
\"&+]#\"\"\"*&F,F--%$expG6#,$*&\"#]!\"\"F*F-F5F-F5/-%\"yGF),(*&#\"*^j+
R$\"%+]F-F/F-F5*&\"$!\\F-F*F-F5#F<F=F-" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 5 "x(t);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%\"xG6#%\"tG
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "assign(sol);" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "x(t);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#,&\"&+]#\"\"\"*&F$F%-%$expG6#,$*&\"#]!\"\"%\"tGF%F-F%F-
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 64 "plot([x(t),y(t),t=0..20
0],thickness=3,view=[0..25000,0..20000]);" }}{PARA 13 "" 1 "" 
{GLPLOT2D 471 129 129 {PLOTDATA 2 "6&-%'CURVESG6$7U7$$\"\"!F)F(7$$\"3-
`s*zQVk1\"!#9$\"3!>aPz4)=C=F-7$$\"3/*Q-gr%R(3#F-$\"3/ue\"yT**\\_$F-7$$
\"3nB7Fi,ASHF-$\"39f0;\"e\"f3\\F-7$$\"3SJJ7lFIhPF-$\"3De\"o.a&41iF-7$$
\"3?lLs#eU\")\\&F-$\"3Yr29)Hsi#))F-7$$\"3DWI!HisI5(F-$\"3Lb$R&pZ[26!#8
7$$\"3i'H)HMw@p&)F-$\"3m))46NJq&H\"FI7$$\"3-@!*oqV+@)*F-$\"3'e`JpRY5W
\"FI7$$\"3%\\E#=H^n,6FI$\"3]lsiz.Jk:FI7$$\"3Shiw&4Sa@\"FI$\"35`,%QiU\\
m\"FI7$$\"3k8UP\"=G'>8FI$\"3]10VJ'o-u\"FI7$$\"3:v\"e,j))zT\"FI$\"3/D')
)R0eQz\"FI7$$\"3uB\"o0W7y\\\"FI$\"3b(*=f8[eA=FI7$$\"3Mk?mN4l!e\"FI$\"3
Rd#G(GV(e$=FI7$$\"3_PAA,4%pl\"FI$\"3.<!oC)f`I=FI7$$\"3on*eM?kWs\"FI$\"
3\")oz&[XH\"4=FI7$$\"37>glDY3\"y\"FI$\"3e]%o\"=7&px\"FI7$$\"3s%GrKucI%
=FI$\"34p?hR];C<FI7$$\"3Gq3_OoN\"*=FI$\"3k$3Og*=1o;FI7$$\"37XtX3:4V>FI
$\"35\"o/zYK2f\"FI7$$\"3Cn9rIU?&)>FI$\"3;(QzA9*H7:FI7$$\"3dEEBYSvF?FI$
\"3aja)=7MjT\"FI7$$\"3AA)4%*=)*\\1#FI$\"3\\XCBb_2;8FI7$$\"3Cxu>H4t+@FI
$\"3BUR+\"R$)H?\"FI7$$\"3:vI6iM&48#FI$\"3W'\\U>3-@4\"FI7$$\"3i-r<JJ*4;
#FI$\"3-q(zSX.cl*F-7$$\"3g5ilk'4'*=#FI$\"3Y4:x-.0r#)F-7$$\"3%*p()4hka7
AFI$\"3-!fa=PdA,(F-7$$\"3Q3H60)=aB#FI$\"3VX_T!*o>,cF-7$$\"3_6lc4'QrD#F
I$\"3')R&G%o\\k\"4%F-7$$\"3))*)QC_2mwAFI$\"3y#H\\Tv?!oDF-7$$\"3#3PF8Ra
SH#FI$\"3iIMq*z*G`5F-7$$\"3f4O9[Yy6BFI$!3@4F,$QlZr'!#:7$$\"3Ub4y(>5kK#
FI$!3amQN!zrmD#F-7$$\"3j!>Abzt2M#FI$!3-y\")3S!pJ)RF-7$$\"3A8Is--w_BFI$
!3k59L^JavbF-7$$\"3)*)f'>)[M[O#FI$!32$\\,+UjVM(F-7$$\"3Q#*)3+$)*GvBFI$
!3*Gn=eJYK.*F-7$$\"3i4JM\">b`Q#FI$!3%o#f2oL?#3\"FI7$$\"3ki4Ed+T%R#FI$!
3QY()oL8Af7FI7$$\"3?C/!*\\V7.CFI$!3yzIv0$=mW\"FI7$$\"3`W*R]lO3T#FI$!3-
Oi2p'\\*G;FI7$$\"3i%*)*e)**)3=CFI$!3m*pTm*38<=FI7$$\"3!48NId)pCCFI$!3G
%HNTCM`+#FI7$$\"3%*[ZsD3IICFI$!3')G,\"\\l^&z@FI7$$\"3fBA)[$4@OCFI$!3K'
*3,D&41Q#FI7$$\"3.Ui\"H9r5W#FI$!33d=!e/$fhDFI7$$\"3i.!)\\Sf%eW#FI$!3aq
QXoNmbFFI7$$\"3[GmtTK0]CFI$!36g,[CxRUHFI7$$\"3Qk\"yF!4@aCFI$!3jp!=\"Q`
0WJFI-%'COLOURG6&%$RGBG$\"#5!\"\"F(F(-%*THICKNESSG6#\"\"$-%+AXESLABELS
G6$Q!6\"F_\\l-%%VIEWG6$;F($\"&+]#F);F($\"&++#F)" 1 2 0 1 10 3 2 9 1 4 
2 1.000000 45.000000 45.000000 0 0 "Curve 1" }}}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "t0
:=solve(y(t)=0,t);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#t0G6$,&*&\"#]
\"\"\"-%)LambertWG6#,$*&#\"*^j+R$\"*++]A\"F)-%$expG6##!*^j+R$F1F)!\"\"
F)F)#F0\"(++X#F)\"\"!" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "ev
alf(t0);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$$\"+u*QeF\"!\"($\"\"!F'" }
}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "evalf(t0[1]),evalf(t0[2]);
" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$$\"+u*QeF\"!\"($\"\"!F'" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 45 "plot([x(t),y(t),t=t0[1]..t0[
2]],thickness=3);" }}{PARA 13 "" 1 "" {GLPLOT2D 408 111 111 {PLOTDATA 
2 "6&-%'CURVESG6$7X7$$\"\"!F)F(7$$\"3aEib0Djco!#:$\"3EXj)=$p@y6!#97$$
\"3u[ZQP6__8F0$\"3#f^$)=wKaI#F07$$\"3cXabjF&y\">F0$\"3%>xbt[8eC$F07$$
\"3_AbN8#p'pCF0$\"3cK=$yOS&\\TF07$$\"3)fL/-3+X2$F0$\"3u/npJg<B^F07$$\"
3k[sP^T4jOF0$\"3;5%H2owF0'F07$$\"3t\"[UzQK'RUF0$\"3q^iT(*>EXpF07$$\"3>
c)\\\\:#f+[F0$\"3G$H^Jr(\\&z(F07$$\"3Q0n`\"\\NQM&F0$\"3'H\\(4l_(3g)F07
$$\"3')*G/%H)oC(eF0$\"3=NA@e(HmO*F07$$\"3=oD)Qoc`\"oF0$\"3[`m;w$G&o5!#
87$$\"3TNy\\d;rUxF0$\"3=Y_ae;z\">\"F]o7$$\"3O+bN%*p1_')F0$\"3&f\"e<`ty
08F]o7$$\"3@T0u(*f\"3^*F0$\"3-\\,h'o$[19F]o7$$\"3vKSO*Q5Z.\"F]o$\"3)p%
=R#[/t\\\"F]o7$$\"3hb&o)4Di/6F]o$\"3O*\\m0GMrc\"F]o7$$\"31&4%*exV$z6F]
o$\"3c(f`4RV\\j\"F]o7$$\"3+30.;iM]7F]o$\"35\"o\"o&>8@p\"F]o7$$\"3,60la
f::8F]o$\"3^c\")*\\\"[SP<F]o7$$\"3=.d\"Rq#4r8F]o$\"3+)eh&*pB1x\"F]o7$$
\"3,Y+;!>!=M9F]o$\"3(=:4/tI3!=F]o7$$\"3'=kk'\\s&[[\"F]o$\"3$4m#ycw\"*=
=F]o7$$\"3]:pKrHyS:F]o$\"3.s=H*\\c<$=F]o7$$\"3%en'fb0r(e\"F]o$\"30&*zN
&QMh$=F]o7$$\"3+VuEJ0cO;F]o$\"3Vp'oG)eyL=F]o7$$\"3I<M0JQk!o\"F]o$\"3Ya
H')p*\\\\#=F]o7$$\"3%[uUygUUs\"F]o$\"3)ys&R?%G#4=F]o7$$\"31\")yx![LAw
\"F]o$\"3aHB!4:T#*y\"F]o7$$\"3#o>@0wG6!=F]o$\"39y'QS&H.i<F]o7$$\"3%p%4
2>.OR=F]o$\"35ai*=$p)ys\"F]o7$$\"3aG=-!>M4(=F]o$\"3#=6Y_vLNp\"F]o7$$\"
3_s\\zR?M.>F]o$\"3e_)z\\VS=l\"F]o7$$\"364<%o:q]$>F]o$\"3+ixGeY,/;F]o7$
$\"3G,X`9mZk>F]o$\"3a&GiL$oz_:F]o7$$\"3i1KxP5Z\"*>F]o$\"3%f[irA(G*\\\"
F]o7$$\"3P'f#4ND&)>?F]o$\"3HH'pw\\ebV\"F]o7$$\"3nJxS*)3+W?F]o$\"3CCDwT
Tiu8F]o7$$\"3]*o#z,`Wo?F]o$\"3uP#Gd(>$fI\"F]o7$$\"3ivy3s>Y*3#F]o$\"3UL
6a\"G71C\"F]o7$$\"3b$=,3Rp76#F]o$\"3e*y[uDHg;\"F]o7$$\"3**Q0a!fH28#F]o
$\"3E8t)Hq!)H4\"F]o7$$\"3]<f!*H0.]@F]o$\"3ha)z!>=!Q,\"F]o7$$\"3_'e/W/D
z;#F]o$\"3Lm+[$*)QuL*F07$$\"3-<61v$zc=#F]o$\"3Ci$\\2>SFZ)F07$$\"3dWsyU
4)=?#F]o$\"3yukXf$zbh(F07$$\"3&RD@6/'e<AF]o$\"3c;yyfUf:nF07$$\"3;#>!\\
mQMKAF]o$\"3WF0_%)y*3!eF07$$\"3)R&Qo)*QAXAF]o$\"3J]C9#>@>%\\F07$$\"3#>
4j\"3aAfAF]o$\"3d)HI0)G\"o$RF07$$\"3e2?dc`4rAF]o$\"3#HL@3w<,-$F07$$\"3
#)f,-Kt5$G#F]o$\"3=&f/@hn_-#F07$$\"3!*o))3%\\8SH#F]o$\"3!R0k$Ra/d5F07$
$\"3&4U*y-J70BF]o$\"3'G-6#*[h^f)!#B-%'COLOURG6&%$RGBG$\"#5!\"\"F(F(-%*
THICKNESSG6#\"\"$-%+AXESLABELSG6$Q!6\"F_]l-%%VIEWG6$%(DEFAULTGFd]l" 1 
2 0 1 10 3 2 9 1 4 2 1.000000 46.000000 37.000000 0 0 "Curve 1" }}}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 8 "restart;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
44 "NE:=m*diff(x(t),t$2)=-k*x(t)-b*diff(x(t),t);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%#NEG/*&%\"mG\"\"\"-%%diffG6$-%\"xG6#%\"tG-%\"$G6$F/\"
\"#F(,&*&%\"kGF(F,F(!\"\"*&%\"bGF(-F*6$F,F/F(F7" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 22 "IC:=x(0)=x0,D(x)(0)=0;" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%#ICG6$/-%\"xG6#\"\"!%#x0G/--%\"DG6#F(F)F*" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "b:='b';" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%\"bGF$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "N
E;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/*&%\"mG\"\"\"-%%diffG6$-%\"xG6#
%\"tG-%\"$G6$F-\"\"#F&,&*&%\"kGF&F*F&!\"\"*&%\"bGF&-F(6$F*F-F&F5" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "sol:=dsolve(\{NE,IC\});" }}
{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$solG/-%\"xG6#%\"tG,&*&#\"\"\"\"\"#F
-**%#x0GF-,(*$)%\"bGF.F-!\"\"*&F4F-,&F2F-*(\"\"%F-%\"kGF-%\"mGF-F5F,F5
*(F9F-F:F-F;F-F-F-,&F2F5*(F9F-F:F-F;F-F-F5-%$expG6#,$**F.F5,&F4F-*$F7F
,F5F-F;F5F)F-F5F-F-F-*&F,F-**,(F2F5F6F-*(F9F-F:F-F;F-F-F-F=F5F0F--F@6#
,$**F.F5,&F4F-FEF-F-F;F5F)F-F5F-F-F-" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 12 "assign(sol);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 20 "m:=1; k:=1; b:=1/10;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"mG\"
\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"kG\"\"\"" }}{PARA 11 "" 1 
"" {XPPMATH 20 "6#>%\"bG#\"\"\"\"#5" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 15 "simplify(x(t));" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#,$
*&#\"\"\"\"\"#F&*(%#x0GF&,.*&-%$expG6#,$**F'!\"\",&%\"bGF&*$,&*$)F3F'F
&F&*(\"\"%F&%\"kGF&%\"mGF&F1F%F1F&F;F1%\"tGF&F1F&F7F&F1*(F,F&F3F&F5F%F
1**F9F&F,F&F:F&F;F&F&*&-F-6#,$**F'F1,&F3F&F4F&F&F;F1F<F&F1F&F7F&F1*(F@
F&F3F&F5F%F&**F9F&F@F&F:F&F;F&F&F&,&F6F1*(F9F&F:F&F;F&F&F1F&F&" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "x0:=1;" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%#x0G\"\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
31 "plot(x(t),t=0..10,thickness=3);" }}{PARA 13 "" 1 "" {GLPLOT2D 401 
184 184 {PLOTDATA 2 "6&-%'CURVESG6$7jo7$$\"\"!F)$\"\"\"F)7$$\"+S&)G\\a
!#6$\"+CK=&)**!#57$$\"+3x&)*3\"F2$\"+#=%)3%**F27$$\"+ilyM;F2$\"+WURn)*
F27$$\"+;arz@F2$\"+I'*3l(*F27$$\"+!y%*z7$F2$\"+_-x>&*F27$$\"+XTFwSF2$
\"+Q'H;>*F27$$\"+\"z_\"4iF2$\"+s\\Dr\")F27$$\"+S&phN)F2$\"+#*G'fz'F27$
$\"+*=)H\\5!\"*$\"+y:a\\^F27$$\"+=JN[6FY$\"+'o[VJ%F27$$\"+[!3uC\"FY$\"
+%[*HXMF27$$\"+!pt*\\8FY$\"+9*o\">DF27$$\"+J$RDX\"FY$\"+Rj9w:F27$$\"+k
Ghe:FY$\"+eswPfF/7$$\"+)R'ok;FY$!+S-n[QF/7$$\"+_(>/x\"FY$!+VX#eM\"F27$
$\"+1J:w=FY$!+]Ds\"G#F27$$\"+dG\"\\)>FY$!+I>f2KF27$$\"+3En$4#FY$!++tu&
3%F27$$\"+/RE&G#FY$!+=O>([&F27$$\"+D.&4]#FY$!+s+0$z'F27$$\"+vB_<FFY$!+
A;$Gw(F27$$\"+Dg(=#GFY$!+9yA'4)F27$$\"+v'Hi#HFY$!+Cc`Q$)F27$$\"+I7htHF
Y$!+!*e*zT)F27$$\"+'y#*4-$FY$!+#GI#y%)F27$$\"+UVPoIFY$!+)z%>>&)F27$$\"
+(*ev:JFY$!+)y))3a)F27$$\"+]r4sJFY$!+EcmT&)F27$$\"+-%Q%GKFY$!+mtS:&)F2
7$$\"+b'zZG$FY$!+#**[BY)F27$$\"+347TLFY$!+!**3GQ)F27$$\"+qxdOMFY$!+)oq
()=)F27$$\"+LY.KNFY$!+%*4PAzF27$$\"+\"o7Tv$FY$!+yu+TqF27$$\"+$Q*o]RFY$
!+Q,m*)fF27$$\"+\"=lj;%FY$!+)*4x)f%F27$$\"+V&R<P%FY$!+g/&[5$F27$$\"+Xh
-'e%FY$!+5m#=W\"F27$$\"+R\"3Gy%FY$\"+8TOO6F/7$$\"+.T1&*\\FY$\"+!y^3v\"
F27$$\"+(RQb@&FY$\"+C'*zJLF27$$\"+=>Y2aFY$\"+;)yBb%F27$$\"+yXu9cFY$\"+
1w^dcF27$$\"+\\y))GeFY$\"+o`GBlF27$$\"+bljLfFY$\"+=8@MoF27$$\"+i_QQgFY
$\"+W*pt1(F27$$\"+?]tRhFY$\"+M?I<sF27$$\"+!y%3TiFY$\"+w_-#H(F27$$\"+&f
]tH'FY$\"++\"45I(F27$$\"+5kh`jFY$\"+i'**oG(F27$$\"+DA))4kFY$\"+k5()\\s
F27$$\"+O![hY'FY$\"+s(o,>(F27$$\"+5FEnlFY$\"+o,%p-(F27$$\"+#Qx$omFY$\"
+U>$Rz'F27$$\"+u.I%)oFY$\"+=5xxgF27$$\"+(pe*zqFY$\"+78e*>&F27$$\"+C\\'
QH(FY$\"+')=jNSF27$$\"+8S8&\\(FY$\"+%*4k&z#F27$$\"+0#=bq(FY$\"+.*RtS\"
F27$$\"+2s?6zFY$\"+EHx8=!#77$$\"+IXaE\")FY$!+.zx09F27$$\"+l*RRL)FY$!+Q
_Z)o#F27$$\"+`<.Y&)FY$!+sinaQF27$$\"+8tOc()FY$!++TN=[F27$$\"+\\Qk\\*)F
Y$!+yIi,bF27$$\"+5ASg!*FY$!+)pfoz&F27$$\"+p0;r\"*FY$!+9l>=gF27$$\"+lTA
q#*FY$!+%e&*>:'F27$$\"+lxGp$*FY$!+1(\\WA'F27$$\"+!**)4A%*FY$!+!*p%zB'F
27$$\"+?-\"\\Z*FY$!+w_-MiF27$$\"+]9sF&*FY$!+?sy7iF27$$\"+!oK0e*FY$!+)4
$QuhF27$$\"+]oi\"o*FY$!+/Cu`gF27$$\"+<5s#y*FY$!+M)4G(eF27$$\"#5F)$!+#=
)3#H&F2-%'COLOURG6&%$RGBG$Fhcl!\"\"F(F(-%*THICKNESSG6#\"\"$-%+AXESLABE
LSG6$Q\"t6\"Q!Fidl-%%VIEWG6$;F(Fgcl%(DEFAULTG" 1 2 0 1 10 3 2 9 1 4 2 
1.000000 45.000000 45.000000 0 0 "Curve 1" }}}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 8 "X:=x(t);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%\"XG,&
*&#\"\"\"\"\"#F(**%#x0GF(,(*$)%\"bGF)F(!\"\"*&F/F(,&F-F(*(\"\"%F(%\"kG
F(%\"mGF(F0F'F0*(F4F(F5F(F6F(F(F(,&F-F0*(F4F(F5F(F6F(F(F0-%$expG6#,$**
F)F0,&F/F(*$F2F'F0F(F6F0%\"tGF(F0F(F(F(*&F'F(**,(F-F0F1F(*(F4F(F5F(F6F
(F(F(F8F0F+F(-F;6#,$**F)F0,&F/F(F@F(F(F6F0FAF(F0F(F(F(" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "V:=diff(X,t);" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>%\"VG,&*&#\"#]\"$*R\"\"\"*(,&#F)\"$+\"F**(\"%+5!\"\"!$
*R#F*\"\"#F.F3F1F*,&#F*\"#?F1*(\"$+#F1F2F3F.F3F*F*-%$expG6#,$*(F4F1,&#
F*\"#5F**(F.F1F2F3F.F3F1F*%\"tGF*F1F*F*F**&F'F**(,&F-F**(F0F1F2F3F.F3F
*F*,&#F*F7F1*(F9F1F2F3F.F3F1F*-F;6#,$*(F4F1,&F@F**(F.F1F2F3F.F3F*F*FCF
*F1F*F*F*" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 29 "Parametric plot of V
 versus X" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 32 "plot([X,V,t=0..20],thickness=3);" }}{PARA 13 "" 1 "
" {GLPLOT2D 477 308 308 {PLOTDATA 2 "6&-%'CURVESG6$7_r7$$\"+++++5!\"*$
\"+Qqw$G#!#?7$$\"+#=%)3%**!#5$!+Ldz\"3\"F17$$\"+I'*3l(*F1$!+'R)4R@F17$
$\"+ad&fZ*F1$!+)\\&pfJF17$$\"+cL7y!*F1$!+)4S>8%F17$$\"+I&y![')F1$!+5L+
I\\F17$$\"+c:vW\")F1$!+cZWwcF17$$\"+)QNLd(F1$!+?h2ljF17$$\"+-HeRpF1$!+
'[%G!*pF17$$\"+YD>ghF1$!+G+W6wF17$$\"+'f[%>`F1$!+sO)*R\")F17$$\"+uP]FW
F1$!+OV#4d)F17$$\"+s<)\\\\$F1$!+qpU+*)F17$$\"+w1SEDF1$!+%o')p7*F17$$\"
+J0BR:F1$!+5!4mC*F17$$\"+qZu\\a!#6$!+Ef1f#*F17$$!+)og!\\WFbp$!+g!f`;*F
17$$!+>ja99F1$!+cb()o*)F17$$!+?j$yN#F1$!+WHus')F17$$!+=gNkKF1$!+c$z8G)
F17$$!+'=8U7%F1$!+1iB+yF17$$!+!=W;([F1$!+g__zsF17$$!+?H=kbF1$!+/;$Hp'F
17$$!+3Wh&>'F1$!+?r#o/'F17$$!+K5QgnF1$!+S95[`F17$$!+9kupsF1$!+oU)pd%F1
7$$!+[g*yp(F1$!+'>vew$F17$$!+;;=T!)F1$!+#)QmBHF17$$!+?%zoH)F1$!+?XZf?F
17$$!+i\\In%)F1$!+PKY_6F17$$!+URDT&)F1$!+;lN@CFbp7$$!+Ou\"*=&)F1$\"+WF
%Hh'Fbp7$$!+W6c,%)F1$\"+uuzZ:F17$$!+[%=B>)F1$\"+e^$\\S#F17$$!+[uD%*yF1
$\"+_#QjA$F17$$!+_Qi6vF1$\"+klD.SF17$$!+E$e&\\qF1$\"+'>Evs%F17$$!+_ZTv
eF1$\"+%3K4-'F17$$!+]ei_WF1$\"+!>9e+(F17$$!+CLJ]IF1$\"+_x5'e(F17$$!+I#
[Sc\"F1$\"+QvT!)yF17$$\"+pGD/9Fbp$\"+W=VjyF17$$\"+O:4-=F1$\"+mVJ'[(F17
$$\"+mNo^LF1$\"+[FZqnF17$$\"+G!oJr%F1$\"+/!\\qv&F17$$\"+m.2#z&F1$\"+![
3&[XF17$$\"+mG\"**f'F1$\"+EjcpJF17$$\"+wz(R2(F1$\"+mTMA=F17$$\"+%f*=)G
(F1$\"+oKmdVFbp7$$\"+WSb,sF1$!+V&>_>\"F17$$\"+maqcnF1$!+))y3IFF17$$\"+
oYe@hF1$!+W2X**QF17$$\"+K69y_F1$!+Q%[j!\\F17$$\"+whs!3%F1$!+'f.'HeF17$
$\"+y!*Q6FF1$!+w'3%\\kF17$$\"+?m:79F1$!+a=nDnF17$$\"+YO@N%)!#7$!+kn-Sn
F17$$!+==cW8F1$!+]3:gkF17$$!+_HN\"o#F1$!+%y8,*eF17$$!+9*GV\"QF1$!+=$Qq
5&F17$$!+m.flZF1$!+_&=u7%F17$$!+!QFd_&F1$!+%)yAWHF17$$!+#)Gn>gF1$!+2d(
Gl\"F17$$!+'=eUA'F1$!+)QdvB%Fbp7$$!++#fp='F1$\"+')>5wzFbp7$$!+c.$G)eF1
$\"+;e&G0#F17$$!+)4GQK&F1$\"+u+d!>$F17$$!+?<y0XF1$\"+[5V'>%F17$$!+5a#)
*[$F1$\"+!HA%z\\F17$$!+s8S&[#F1$\"+i+$QX&F17$$!+*ys'49F1$\"+I`&3s&F17$
$!+I7iW@Fbp$\"+ep$)pdF17$$\"+u5;`'*Fbp$\"+]_LtbF17$$\"+!fB_6#F1$\"+Q!)
zE^F17$$\"+;s;XJF1$\"+aq+eWF17$$\"+'edV*RF1$\"+MD<AOF17$$\"+g24`YF1$\"
+Q0#pk#F17$$\"+]`'f3&F1$\"+$oRIh\"F17$$\"+et*RI&F1$\"+c\"4_M&Fbp7$$\"+
-K=*G&F1$!+)om6h'Fbp7$$\"+C?*3,&F1$!+r6<(z\"F17$$\"+%e<@b%F1$!+IhS@FF1
7$$\"+y!e)=RF1$!+3WL<NF17$$\"+m8+$3$F1$!++TI#>%F17$$\"+yNNB@F1$!+eVCgY
F17$$\"+B$**e=\"F1$!+Wn(4*[F17$$\"+)QYz@#Fbp$!+i=TK\\F17$$!+%>9:>)Fbp$
!+EVyjZF17$$!+=d7,=F1$!+#=!*QQ%F17$$!+[fkKEF1$!+qJv_QF17$$!+-IPULF1$!+
u$3#yJF17$$!+3+)f#RF1$!+'QDAN#F17$$!+cd6EVF1$!+SAzS9F17$$!+q!4o_%F1$!+
]Z`p]Fbp7$$!+]+_MXF1$\"+'ex-H%Fbp7$$!+5i%)RVF1$\"+F_oo8F17$$!+3'**4&RF
1$\"+9#zdA#F17$$!+1$>LT$F1$\"+Q'H#QHF17$$!+?3*=u#F1$\"+#)QU6NF17$$!+WW
\\\\>F1$\"+O6EJRF17$$!+W9G(3\"F1$\"+c^'z;%F17$$!+!fBN-#Fbp$\"+yWF:UF17
$$\"+I3%)HnFbp$\"+qytxSF17$$\"+SjCO9F1$\"+MPq'z$F17$$\"+Ek#>8#F1$\"+K(
=5Q$F17$$\"+[1*[\"GF1$\"+9')GiFF17$$\"+)*H%oM$F1$\"+omgB?F17$$\"+'=#>w
OF1$\"+S:b#H\"F17$$\"+i0mcQF1$\"+;Bjd_Fbp7$$\"+=Rh!)QF1$!+IiBpHFbp7$$
\"+u*[Lt$F1$!+@:N*3\"F17$$\"+1%[7W$F1$!+#[Kyy\"F17$$\"+?A?;IF1$!+CgA+C
F17$$\"+m0&RV#F1$!+/G@OHF17$$\"+<A*4v\"F1$!+!*R4CLF1-%'COLOURG6&%$RGBG
$\"#5!\"\"$\"\"!F]`mF\\`m-%*THICKNESSG6#\"\"$-%+AXESLABELSG6$Q!6\"Fe`m
-%%VIEWG6$%(DEFAULTGFj`m" 1 2 0 1 10 3 2 9 1 4 2 1.000000 45.000000 
45.000000 0 0 "Curve 1" }}}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 69 "Questi
on:  graph kinetic and potential energies as a function of time" }}
{PARA 0 "" 0 "" {TEXT -1 16 "KE = 0.5 * m*v^2" }}{PARA 0 "" 0 "" 
{TEXT -1 17 "PE = 0.5 * k* x^2" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}
{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 14 "PE:=0.5*k*X^2;" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#PEG,$*&$\"
\"&!\"\"\"\"\"),&*&#\"#]\"$*RF**&,&#F0\"$+\"F**(\"%+5F)!$*R#F*\"\"#F4F
8F)F*-%$expG6#,$*(F9F),&#F*\"#5F**(F4F)F7F8F4F8F)F*%\"tGF*F)F*F*F**&F.
F**&,&F3F**(F6F)F7F8F4F8F*F*-F;6#,$*(F9F),&F@F**(F4F)F7F8F4F8F*F*FCF*F
)F*F*F*F9F*F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "KE:=0.5*m*
V^2;" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#KEG,$*&$\"\"&!\"\"\"\"\"),&
*&#\"#]\"$*RF**(,&#F0\"$+\"F**(\"%+5F)!$*R#F*\"\"#F4F8F)F*,&#F*\"#?F)*
(\"$+#F)F7F8F4F8F*F*-%$expG6#,$*(F9F),&#F*\"#5F**(F4F)F7F8F4F8F)F*%\"t
GF*F)F*F*F**&F.F**(,&F3F**(F6F)F7F8F4F8F*F*,&#F*F<F)*(F>F)F7F8F4F8F)F*
-F@6#,$*(F9F),&FEF**(F4F)F7F8F4F8F*F*FHF*F)F*F*F*F9F*F*" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "plot(KE+PE,t=0..20,thickness=3);" }
}{PARA 13 "" 1 "" {GLPLOT2D 571 358 358 {PLOTDATA 2 "6&-%'CURVESG6$7\\
p7$$\"\"!F)$\"\"&!\"\"7$$\"+3x&)*3\"!#5$\"+;Id**\\F07$$\"+<arz@F0$\"+r
ej'*\\F07$$\"+EJdpKF0$\"+a1()))\\F07$$\"+M3VfVF0$\"+KEEu\\F07$$\"+l&*)
fD'F0$\"+],&z#\\F07$$\"+#H[D:)F0$\"+-W4^[F07$$\"+e0$=C\"!\"*$\"+#*[irX
F07$$\"+3RBr;FO$\"+1u35UF07$$\"+zjf)4#FO$\"+k4k#*QF07$$\"+Qiq'H#FO$\"+
^Kx(y$F07$$\"+'4;[\\#FO$\"+NqC:PF07$$\"+Q<Q(f#FO$\"+'*)**)*o$F07$$\"+!
QZ**p#FO$\"+y4(>n$F07$$\"+AI^-GFO$\"+91UgOF07$$\"+j'y]!HFO$\"+r@)Rl$F0
7$$\"+IdA<JFO$\"+HCe]OF07$$\"+'zs$HLFO$\"+M`4\\OF07$$\"+]h5NMFO$\"+M(*
)[k$F07$$\"+/&R3a$FO$\"+fzUOOF07$$\"+eGdYOFO$\"++y_AOF07$$\"+8iI_PFO$
\"+E))G-OF07$$\"+:d#)pRFO$\"+%31'QNF07$$\"+<_M(=%FO$\"+raOXMF07$$\"+4y
_qXFO$\"+r8OFKF07$$\"+]1!>+&FO$\"+N=ikHF07$$\"++FZ=_FO$\"+)>aO&GF07$$
\"+]Z/NaFO$\"+0$yyw#F07$$\"+]?vVcFO$\"+E/&=r#F07$$\"+]$fC&eFO$\"+E+D!o
#F07$$\"+vb)>/'FO$\"+L^5oEF07$$\"+'z6:B'FO$\"+$**z`m#F07$$\"+0o(oX'FO$
\"+?lakEF07$$\"+<=C#o'FO$\"+KCKbEF07$$\"+Sb:toFO$\"+Zd(Rj#F07$$\"+n#pS
1(FO$\"+S9b'f#F07$$\"+:t9'G(FO$\"+5-$=`#F07$$\"+j`A3vFO$\"+^^KZCF07$$
\"+n(y8!zFO$\"+.QvrAF07$$\"+j.tK$)FO$\"+.Z:%4#F07$$\"+DZ5Q&)FO$\"+ssaJ
?F07$$\"+)3zMu)FO$\"+s<K()>F07$$\"+!plx&*)FO$\"+Yq5g>F07$$\"+#H_?<*FO$
\"+&)HU[>F07$$\"+&GM)o$*FO$\"+Wz/Y>F07$$\"+!G;cc*FO$\"+3BtX>F07$$\"+XA
(yx*FO$\"++b4T>F07$$\"+4#G,***FO$\"+^T9E>F07$$\"+]-1@5!\")$\"+B^g&*=F0
7$$\"+!o2J/\"Fgz$\"+'Qw'[=F07$$\"+%Q#\\\"3\"Fgz$\"+b\"odt\"F07$$\"+;*[
H7\"Fgz$\"+\\]p*f\"F07$$\"+VKOW6Fgz$\"+[9\"z`\"F07$$\"+qvxl6Fgz$\"+&=&
H)[\"F07$$\"+7ts'=\"Fgz$\"+?8v`9F07$$\"+`qn27Fgz$\"+)4sGV\"F07$$\"+/q%
zA\"Fgz$\"+GqWB9F07$$\"+cp@[7Fgz$\"+G]!4U\"F07$$\"+3'HKH\"Fgz$\"+bJ%pT
\"F07$$\"+UDX88Fgz$\"+\"H\"R19F07$$\"+xanL8Fgz$\"+*\\akQ\"F07$$\"+wxEb
8Fgz$\"+bb,a8F07$$\"+v+'oP\"Fgz$\"+&RD8J\"F07$$\"+S<*fT\"Fgz$\"+#)R*)=
7F07$$\"+&)Hxe9Fgz$\"+\\t7B6F07$$\"+%*)**)y9Fgz$\"+%eE()3\"F07$$\"+.o-
*\\\"Fgz$\"+)GBO1\"F07$$\"+A_1?:Fgz$\"+kTJZ5F07$$\"+TO5T:Fgz$\"+!*zbR5
F07$$\"+U9C#e\"Fgz$\"+XoHP5F07$$\"+1*3`i\"Fgz$\"+]XAG5F07$$\"+$*zym;Fg
z$\"+u9.C**!#67$$\"+^j?4<Fgz$\"+Rs0x#*F]bl7$$\"+jMF^<Fgz$\"+eoUS&)F]bl
7$$\"+q(G**y\"Fgz$\"+y*)>))zF]bl7$$\"+9@BM=Fgz$\"+**4<[wF]bl7$$\"+`v&Q
(=Fgz$\"+L)G^d(F]bl7$$\"+Ol5;>Fgz$\"+[1HivF]bl7$$\"+/Uac>Fgz$\"+*R!GHu
F]bl7$$\"#?F)$\"+(H(ydqF]bl-%'COLOURG6&%$RGBG$\"#5F,F(F(-%*THICKNESSG6
#\"\"$-%+AXESLABELSG6$Q\"t6\"Q!Fdel-%%VIEWG6$;F(Fbdl%(DEFAULTG" 1 2 0 
1 10 3 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" }}}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "65 0 0" 0 }
{VIEWOPTS 1 1 0 2 1 1805 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }