{VERSION 5 0 "IBM INTEL NT" "5.0" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 1 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 
0 0 1 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 1 }
{CSTYLE "" -1 256 "" 1 14 0 0 0 0 0 1 0 0 0 0 0 0 0 0 }{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 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 }{PSTYLE "Normal
" -1 256 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 256 "" 0 "" {TEXT -1 4 "    " }{TEXT 256 100 "To \+
study the relationships of linear fluid drag to zero drag, in two-dime
nsional projectile behavior" }}{PARA 0 "" 0 "" {TEXT -1 1 " " }}{PARA 
0 "> " 0 "" {MPLTEXT 1 0 51 "x0:=v0*cos(theta0)*t; y0:=v0*sin(theta0)*
t-g*t^2/2;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#x0G*(%#v0G\"\"\"-%$co
sG6#%'theta0GF'%\"tGF'" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#y0G,&*(%#
v0G\"\"\"-%$sinG6#%'theta0GF(%\"tGF(F(*(\"\"#!\"\"%\"gGF(F-F/F0" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 " tau:=vterm/g;" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#>%$tauG*&%&vtermG\"\"\"%\"gG!\"\"" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 95 "xL:=v0*cos(theta0)*tau*(1-exp(-t/ta
u)); yL:=(v0*sin(theta0)+vterm)*tau*(1-exp(-t/tau))-vterm*t;" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#>%#xLG*,%#v0G\"\"\"-%$cosG6#%'theta0GF'%&vte
rmGF'%\"gG!\"\",&F'F'-%$expG6#,$*(%\"tGF'F,F.F-F'F.F.F'" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#>%#yLG,&**,&*&%#v0G\"\"\"-%$sinG6#%'theta0GF*F*%
&vtermGF*F*F/F*%\"gG!\"\",&F*F*-%$expG6#,$*(%\"tGF*F/F1F0F*F1F1F*F**&F
/F*F8F*F1" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 39 "Now we choose some o
f these parameters:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "g:=9.8; vter
m:=2; v0:=1; theta0:=1;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"gG$\"#)
*!\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%&vtermG\"\"#" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#>%#v0G\"\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#
>%'theta0G\"\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "qu:=[so
lve(y0,t)];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#quG7$$\"\"!F'$\"+CxG
<<!#5" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "t1:=qu[2];" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#t1G$\"+CxG<<!#5" }}}{EXCHG {PARA 0 
"> " 0 "" {MPLTEXT 1 0 22 "plot([x0,y0,t=0..t1]);" }}{PARA 13 "" 1 "" 
{GLPLOT2D 495 495 495 {PLOTDATA 2 "6%-%'CURVESG6$7S7$$\"\"!F)F(7$$\"3
\"[4#Q&zeC-#!#?$\"3G7#)=Gk8\"3$F-7$$\"3qSc@z$*=#y$F-$\"3q!odkl,.l&F-7$
$\"3U))G@l/>hdF-$\"3GqjP+\\S:%)F-7$$\"3gQY-b'4Lv(F-$\"3j_=#*\\^g16!#>7
$$\"3m&)z1]1'ft*F-$\"3%zF#[8C=d8F?7$$\"3YUm%>>8u:\"F?$\"3g+Q1J4rx:F?7$
$\"3%*G$*yz^uZ8F?$\"3KfG!=Q-Tz\"F?7$$\"3vd*))Qz'eW:F?$\"3ui)=S`-^+#F?7
$$\"3OXdVMrzS<F?$\"3:\\Y^P7[-AF?7$$\"37WY+(eBE%>F?$\"39!)zvR`-#R#F?7$$
\"3>ePGOCR?@F?$\"3+.iw/$\\wa#F?7$$\"3w-Y8c!=0K#F?$\"3QMZl76:5FF?7$$\"3
mG#35Tl9_#F?$\"3I%[l(QBzfGF?7$$\"3Al$o?U:^r#F?$\"3cLP,-L<\"*HF?7$$\"3W
vN6%=o4*GF?$\"3W,&eW?t&*4$F?7$$\"3@I'Gq7u+5$F?$\"3C!\\7?pf\\@$F?7$$\"3
cp$\\\"*G9sF$F?$\"3)\\0+r!HA,LF?7$$\"3'z?h!4/F$[$F?$\"3'z89W29$)Q$F?7$
$\"3)Q/\\+*\\mlOF?$\"3s\"[BM47NX$F?7$$\"3ku'yLv!ylQF?$\"3f*3=lJ'>7NF?7
$$\"3+qTK$GQj0%F?$\"3EB[*f#=ebNF?7$$\"3M$oC]2l^D%F?$\"3!z*G1o]&ye$F?7$
$\"3aiF\"o8]xV%F?$\"3@j8cdG!eg$F?7$$\"3NuiL#z#pMYF?$\"3w&[2/'fh7OF?7$$
\"3CF-qh3ER[F?$\"3$*>oB^i!fg$F?7$$\"3$**GYu'zL<]F?$\"3qW'[R/G')e$F?7$$
\"3QoPB?hm4_F?$\"3=fB@]&4!eNF?7$$\"36ClQ@*f$3aF?$\"3)*[!e,uOL^$F?7$$\"
3(f\"))*=/VFg&F?$\"3;_;kw!3oX$F?7$$\"3=$H))fq=3z&F?$\"3szTW2+/!R$F?7$$
\"3%yuO\\mW'**fF?$\"3p&GJHW$*>I$F?7$$\"3_p;'p2%G(='F?$\"3\"*Q#o7(GR5KF
?7$$\"3]T)G,?HwQ'F?$\"3%)**\\2gDa*4$F?7$$\"3]f%e)e;<plF?$\"3#o/6C$)eu)
HF?7$$\"3=Dq*y^Xww'F?$\"3_a&y#z=E_GF?7$$\"3'fzA=&RRapF?$\"3$\\9L-)p(Hr
#F?7$$\"3mj0Ru)*f\\rF?$\"3CarmT#p[b#F?7$$\"3G=Z4W$\\/M(F?$\"31]\"zf1Bz
Q#F?7$$\"3]om'=0^-a(F?$\"3&H'o*4qW+?#F?7$$\"3p9tWVQoKxF?$\"3z4-hgjU1?F
?7$$\"3&)[C_mTZHzF?$\"3=QF2#3nbz\"F?7$$\"3#4Blj'\\jC\")F?$\"3?w$[%fVht
:F?7$$\"3ZjT!GZnRI)F?$\"3qHYj@-Re8F?7$$\"3E_h%Gw-&4&)F?$\"3INYFY9W)4\"
F?7$$\"3c&ojk(fL$p)F?$\"39BM#H?c#R&)F-7$$\"3snwnC0M*)))F?$\"3'4(3\"f)H
C2eF-7$$\"3Qm_$p)=%p2*F?$\"3a@bK)>k:2$F-7$$\"3%e\\i6<X&y#*F?$\"3vMzB+$
)>D#)!#H-%'COLOURG6&%$RGBG$\"#5!\"\"F(F(-%+AXESLABELSG6$Q!6\"Fa[l-%%VI
EWG6$%(DEFAULTGFf[l" 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 22 "
plot([xL,yL,t=0..t1]);" }}{PARA 13 "" 1 "" {GLPLOT2D 495 495 495 
{PLOTDATA 2 "6%-%'CURVESG6$7S7$$\"\"!F)F(7$$\"30EoGPS-/?!#?$\"3cne*f$Q
%G0$F-7$$\"3(Q%[^1*e!=PF-$\"3k*G9!)GYJb&F-7$$\"3snykM=F8cF-$\"37BK4jEh
%>)F-7$$\"3KpK!>'=+([(F-$\"3+*QtN7au1\"!#>7$$\"35/n.#R;&=$*F-$\"31STKi
/v'H\"F?7$$\"3)oPy$[&R()4\"F?$\"3]9)olD(*R\\\"F?7$$\"3!3#[b[ajo7F?$\"3
WL'p$zv%Ho\"F?7$$\"3P)4i)HVGT9F?$\"3UO\"f0qzA'=F?7$$\"3cx]8S%R.h\"F?$
\"3QSY<\"y[]-#F?7$$\"3'R*=xyI7\"y\"F?$\"3_2#RL[>h<#F?7$$\"3VSr)\\%=)*G
>F?$\"35!G(Hk(zcH#F?7$$\"3%eWTmF3E4#F?$\"3=9*>0H1aT#F?7$$\"3USgDkb%RD#
F?$\"3!e#HSeB0?DF?7$$\"3vG_5]lm1CF?$\"3Q)zT^.(R1EF?7$$\"3FD(Q=?ZIa#F?$
\"3O3^H6hosEF?7$$\"3+VT(RU6Cq#F?$\"3WIbfkcvOFF?7$$\"3cSQls$p]$GF?$\"33
F$=!>9qyFF?7$$\"3sz\")3)\\Cn)HF?$\"3z=/e^y^8GF?7$$\"3OJs'yr?'=JF?$\"3Y
-C$=s2?$GF?7$$\"3-(*))zXP%3E$F?$\"3K$zG\\R4#RGF?7$$\"3AR'=[]&*QR$F?$\"
3px:$G1gN$GF?7$$\"3xd#)**H:HINF?$\"3je5<)f))[\"GF?7$$\"3Gd<**QxR`OF?$
\"3'*RownjW'y#F?7$$\"3!)\\(Qd**=Ry$F?$\"3U.WcVO&Qu#F?7$$\"3-dv')G![q\"
RF?$\"3!*y]*e%)[no#F?7$$\"3Ze)3QRV4.%F?$\"3=+zr<KbEEF?7$$\"3mg&*z+\\!>
:%F?$\"3yKMd$em2b#F?7$$\"3+V:)\\'QnuUF?$\"3![f#[`@#4Y#F?7$$\"3Abh2uul#
R%F?$\"3AU#fX!z'=O#F?7$$\"3)oU^6\"*\\[]%F?$\"3oZc<MbqbAF?7$$\"3&z!4AD*
)>FYF?$\"3Z+L>cq9E@F?7$$\"3zZf/1f<NZF?$\"3)*)Ho1GI%**>F?7$$\"3?&**><-a
%[[F?$\"3=wR8@0c`=F?7$$\"3YC0&=QQ$\\\\F?$\"3jDsg\\?67<F?7$$\"3QGL))*fZ
x0&F?$\"3M4Q$oHjva\"F?7$$\"3')oH%et&)z:&F?$\"3u6%[cqXMQ\"F?7$$\"3!e?b'
)[k4E&F?$\"3v()>**>YV-7F?7$$\"3mXZCTy*)f`F?$\"3[*38!*fui,\"F?7$$\"3cX.
9^MlhaF?$\"3JZ!y(Q0>=\")F-7$$\"37tykZ%Gzb&F?$\"3Ee,K,w<egF-7$$\"3'Q?vD
<hYl&F?$\"3)f[+^-P4'QF-7$$\"3K^A%o%H!*[dF?$\"3a9]TA`,$f\"F-7$$\"3'*R!R
5.VS$eF?$!3)[J0(4uiwc!#@7$$\"3`\\(f\"H`$*HfF?$!3!yy=$Q\"3G8$F-7$$\"3!p
%GT\"H,U,'F?$!3QIfw3i01bF-7$$\"3%o\"Qv/B^-hF?$!3XyW)fS6r6)F-7$$\"3wJjG
d&zb='F?$!3y)QkkI)Gp5F?7$$\"352`>?_GtiF?$!3+e&Q]%=Ia8F?-%'COLOURG6&%$R
GBG$\"#5!\"\"F(F(-%+AXESLABELSG6$Q!6\"Fa[l-%%VIEWG6$%(DEFAULTGFf[l" 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 40 "plot(\{[x0,y0,t=0..t1],[xL,y
L,t=0..t1]\});" }}{PARA 13 "" 1 "" {GLPLOT2D 495 495 495 {PLOTDATA 2 "
6&-%'CURVESG6$7S7$$\"\"!F)F(7$$\"3\"[4#Q&zeC-#!#?$\"3G7#)=Gk8\"3$F-7$$
\"3qSc@z$*=#y$F-$\"3q!odkl,.l&F-7$$\"3U))G@l/>hdF-$\"3GqjP+\\S:%)F-7$$
\"3gQY-b'4Lv(F-$\"3j_=#*\\^g16!#>7$$\"3m&)z1]1'ft*F-$\"3%zF#[8C=d8F?7$
$\"3YUm%>>8u:\"F?$\"3g+Q1J4rx:F?7$$\"3%*G$*yz^uZ8F?$\"3KfG!=Q-Tz\"F?7$
$\"3vd*))Qz'eW:F?$\"3ui)=S`-^+#F?7$$\"3OXdVMrzS<F?$\"3:\\Y^P7[-AF?7$$
\"37WY+(eBE%>F?$\"39!)zvR`-#R#F?7$$\"3>ePGOCR?@F?$\"3+.iw/$\\wa#F?7$$
\"3w-Y8c!=0K#F?$\"3QMZl76:5FF?7$$\"3mG#35Tl9_#F?$\"3I%[l(QBzfGF?7$$\"3
Al$o?U:^r#F?$\"3cLP,-L<\"*HF?7$$\"3WvN6%=o4*GF?$\"3W,&eW?t&*4$F?7$$\"3
@I'Gq7u+5$F?$\"3C!\\7?pf\\@$F?7$$\"3cp$\\\"*G9sF$F?$\"3)\\0+r!HA,LF?7$
$\"3'z?h!4/F$[$F?$\"3'z89W29$)Q$F?7$$\"3)Q/\\+*\\mlOF?$\"3s\"[BM47NX$F
?7$$\"3ku'yLv!ylQF?$\"3f*3=lJ'>7NF?7$$\"3+qTK$GQj0%F?$\"3EB[*f#=ebNF?7
$$\"3M$oC]2l^D%F?$\"3!z*G1o]&ye$F?7$$\"3aiF\"o8]xV%F?$\"3@j8cdG!eg$F?7
$$\"3NuiL#z#pMYF?$\"3w&[2/'fh7OF?7$$\"3CF-qh3ER[F?$\"3$*>oB^i!fg$F?7$$
\"3$**GYu'zL<]F?$\"3qW'[R/G')e$F?7$$\"3QoPB?hm4_F?$\"3=fB@]&4!eNF?7$$
\"36ClQ@*f$3aF?$\"3)*[!e,uOL^$F?7$$\"3(f\"))*=/VFg&F?$\"3;_;kw!3oX$F?7
$$\"3=$H))fq=3z&F?$\"3szTW2+/!R$F?7$$\"3%yuO\\mW'**fF?$\"3p&GJHW$*>I$F
?7$$\"3_p;'p2%G(='F?$\"3\"*Q#o7(GR5KF?7$$\"3]T)G,?HwQ'F?$\"3%)**\\2gDa
*4$F?7$$\"3]f%e)e;<plF?$\"3#o/6C$)eu)HF?7$$\"3=Dq*y^Xww'F?$\"3_a&y#z=E
_GF?7$$\"3'fzA=&RRapF?$\"3$\\9L-)p(Hr#F?7$$\"3mj0Ru)*f\\rF?$\"3CarmT#p
[b#F?7$$\"3G=Z4W$\\/M(F?$\"31]\"zf1BzQ#F?7$$\"3]om'=0^-a(F?$\"3&H'o*4q
W+?#F?7$$\"3p9tWVQoKxF?$\"3z4-hgjU1?F?7$$\"3&)[C_mTZHzF?$\"3=QF2#3nbz
\"F?7$$\"3#4Blj'\\jC\")F?$\"3?w$[%fVht:F?7$$\"3ZjT!GZnRI)F?$\"3qHYj@-R
e8F?7$$\"3E_h%Gw-&4&)F?$\"3INYFY9W)4\"F?7$$\"3c&ojk(fL$p)F?$\"39BM#H?c
#R&)F-7$$\"3snwnC0M*)))F?$\"3'4(3\"f)HC2eF-7$$\"3Qm_$p)=%p2*F?$\"3a@bK
)>k:2$F-7$$\"3%e\\i6<X&y#*F?$\"3vMzB+$)>D#)!#H-%'COLOURG6&%$RGBG$\"#5!
\"\"F(F(-F$6$7SF'7$$\"30EoGPS-/?F-$\"3cne*f$Q%G0$F-7$$\"3(Q%[^1*e!=PF-
$\"3k*G9!)GYJb&F-7$$\"3snykM=F8cF-$\"37BK4jEh%>)F-7$$\"3KpK!>'=+([(F-$
\"3+*QtN7au1\"F?7$$\"35/n.#R;&=$*F-$\"31STKi/v'H\"F?7$$\"3)oPy$[&R()4
\"F?$\"3]9)olD(*R\\\"F?7$$\"3!3#[b[ajo7F?$\"3WL'p$zv%Ho\"F?7$$\"3P)4i)
HVGT9F?$\"3UO\"f0qzA'=F?7$$\"3cx]8S%R.h\"F?$\"3QSY<\"y[]-#F?7$$\"3'R*=
xyI7\"y\"F?$\"3_2#RL[>h<#F?7$$\"3VSr)\\%=)*G>F?$\"35!G(Hk(zcH#F?7$$\"3
%eWTmF3E4#F?$\"3=9*>0H1aT#F?7$$\"3USgDkb%RD#F?$\"3!e#HSeB0?DF?7$$\"3vG
_5]lm1CF?$\"3Q)zT^.(R1EF?7$$\"3FD(Q=?ZIa#F?$\"3O3^H6hosEF?7$$\"3+VT(RU
6Cq#F?$\"3WIbfkcvOFF?7$$\"3cSQls$p]$GF?$\"33F$=!>9qyFF?7$$\"3sz\")3)\\
Cn)HF?$\"3z=/e^y^8GF?7$$\"3OJs'yr?'=JF?$\"3Y-C$=s2?$GF?7$$\"3-(*))zXP%
3E$F?$\"3K$zG\\R4#RGF?7$$\"3AR'=[]&*QR$F?$\"3px:$G1gN$GF?7$$\"3xd#)**H
:HINF?$\"3je5<)f))[\"GF?7$$\"3Gd<**QxR`OF?$\"3'*RownjW'y#F?7$$\"3!)\\(
Qd**=Ry$F?$\"3U.WcVO&Qu#F?7$$\"3-dv')G![q\"RF?$\"3!*y]*e%)[no#F?7$$\"3
Ze)3QRV4.%F?$\"3=+zr<KbEEF?7$$\"3mg&*z+\\!>:%F?$\"3yKMd$em2b#F?7$$\"3+
V:)\\'QnuUF?$\"3![f#[`@#4Y#F?7$$\"3Abh2uul#R%F?$\"3AU#fX!z'=O#F?7$$\"3
)oU^6\"*\\[]%F?$\"3oZc<MbqbAF?7$$\"3&z!4AD*)>FYF?$\"3Z+L>cq9E@F?7$$\"3
zZf/1f<NZF?$\"3)*)Ho1GI%**>F?7$$\"3?&**><-a%[[F?$\"3=wR8@0c`=F?7$$\"3Y
C0&=QQ$\\\\F?$\"3jDsg\\?67<F?7$$\"3QGL))*fZx0&F?$\"3M4Q$oHjva\"F?7$$\"
3')oH%et&)z:&F?$\"3u6%[cqXMQ\"F?7$$\"3!e?b')[k4E&F?$\"3v()>**>YV-7F?7$
$\"3mXZCTy*)f`F?$\"3[*38!*fui,\"F?7$$\"3cX.9^MlhaF?$\"3JZ!y(Q0>=\")F-7
$$\"37tykZ%Gzb&F?$\"3Ee,K,w<egF-7$$\"3'Q?vD<hYl&F?$\"3)f[+^-P4'QF-7$$
\"3K^A%o%H!*[dF?$\"3a9]TA`,$f\"F-7$$\"3'*R!R5.VS$eF?$!3)[J0(4uiwc!#@7$
$\"3`\\(f\"H`$*HfF?$!3!yy=$Q\"3G8$F-7$$\"3!p%GT\"H,U,'F?$!3QIfw3i01bF-
7$$\"3%o\"Qv/B^-hF?$!3XyW)fS6r6)F-7$$\"3wJjGd&zb='F?$!3y)QkkI)Gp5F?7$$
\"352`>?_GtiF?$!3+e&Q]%=Ia8F?-Fhz6&FjzF(F[[lF(-%+AXESLABELSG6$Q!6\"Fgj
l-%%VIEWG6$%(DEFAULTGF\\[m" 1 2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 
45.000000 0 0 "Curve 1" "Curve 2" }}}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 30 "tL1:=fsolve(yL,t,avoid=\{t=0\});" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%$tL1G$\"+m&)HG:!#5" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 33 "down:=evalf(subs(t=tL1,[xL,yL]));" }}{PARA 11 "" 1 "
" {XPPMATH 20 "6#>%%downG7$$\"+_G37e!#6$!\"\"!#5" }}}{EXCHG {PARA 0 "
" 0 "" {TEXT -1 106 "Notice that this numerical calculation agrees wit
h the graph above, but gives us more significant figures." }}{PARA 0 "
" 0 "" {TEXT -1 98 "             NOW, let's change the terminal veloci
ty, to something less than the initial velocity." }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 11 "vterm:=0.2;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%&vte
rmG$\"\"#!\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "t2:=fsolv
e(y0,t,avoid=\{t=0\});" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#t2G$\"+Cx
G<<!#5" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 83 "Notice, as expected, th
at t2 is the same as t1, since that involves no drag at all." }}{PARA 
0 "> " 0 "" {MPLTEXT 1 0 40 "plot(\{[x0,y0,t=0..t1],[xL,yL,t=0..t1]\})
;" }}{PARA 13 "" 1 "" {GLPLOT2D 495 495 495 {PLOTDATA 2 "6&-%'CURVESG6
$7S7$$\"\"!F)F(7$$\"3\"[4#Q&zeC-#!#?$\"3G7#)=Gk8\"3$F-7$$\"3qSc@z$*=#y
$F-$\"3q!odkl,.l&F-7$$\"3U))G@l/>hdF-$\"3GqjP+\\S:%)F-7$$\"3gQY-b'4Lv(
F-$\"3j_=#*\\^g16!#>7$$\"3m&)z1]1'ft*F-$\"3%zF#[8C=d8F?7$$\"3YUm%>>8u:
\"F?$\"3g+Q1J4rx:F?7$$\"3%*G$*yz^uZ8F?$\"3KfG!=Q-Tz\"F?7$$\"3vd*))Qz'e
W:F?$\"3ui)=S`-^+#F?7$$\"3OXdVMrzS<F?$\"3:\\Y^P7[-AF?7$$\"37WY+(eBE%>F
?$\"39!)zvR`-#R#F?7$$\"3>ePGOCR?@F?$\"3+.iw/$\\wa#F?7$$\"3w-Y8c!=0K#F?
$\"3QMZl76:5FF?7$$\"3mG#35Tl9_#F?$\"3I%[l(QBzfGF?7$$\"3Al$o?U:^r#F?$\"
3cLP,-L<\"*HF?7$$\"3WvN6%=o4*GF?$\"3W,&eW?t&*4$F?7$$\"3@I'Gq7u+5$F?$\"
3C!\\7?pf\\@$F?7$$\"3cp$\\\"*G9sF$F?$\"3)\\0+r!HA,LF?7$$\"3'z?h!4/F$[$
F?$\"3'z89W29$)Q$F?7$$\"3)Q/\\+*\\mlOF?$\"3s\"[BM47NX$F?7$$\"3ku'yLv!y
lQF?$\"3f*3=lJ'>7NF?7$$\"3+qTK$GQj0%F?$\"3EB[*f#=ebNF?7$$\"3M$oC]2l^D%
F?$\"3!z*G1o]&ye$F?7$$\"3aiF\"o8]xV%F?$\"3@j8cdG!eg$F?7$$\"3NuiL#z#pMY
F?$\"3w&[2/'fh7OF?7$$\"3CF-qh3ER[F?$\"3$*>oB^i!fg$F?7$$\"3$**GYu'zL<]F
?$\"3qW'[R/G')e$F?7$$\"3QoPB?hm4_F?$\"3=fB@]&4!eNF?7$$\"36ClQ@*f$3aF?$
\"3)*[!e,uOL^$F?7$$\"3(f\"))*=/VFg&F?$\"3;_;kw!3oX$F?7$$\"3=$H))fq=3z&
F?$\"3szTW2+/!R$F?7$$\"3%yuO\\mW'**fF?$\"3p&GJHW$*>I$F?7$$\"3_p;'p2%G(
='F?$\"3\"*Q#o7(GR5KF?7$$\"3]T)G,?HwQ'F?$\"3%)**\\2gDa*4$F?7$$\"3]f%e)
e;<plF?$\"3#o/6C$)eu)HF?7$$\"3=Dq*y^Xww'F?$\"3_a&y#z=E_GF?7$$\"3'fzA=&
RRapF?$\"3$\\9L-)p(Hr#F?7$$\"3mj0Ru)*f\\rF?$\"3CarmT#p[b#F?7$$\"3G=Z4W
$\\/M(F?$\"31]\"zf1BzQ#F?7$$\"3]om'=0^-a(F?$\"3&H'o*4qW+?#F?7$$\"3p9tW
VQoKxF?$\"3z4-hgjU1?F?7$$\"3&)[C_mTZHzF?$\"3=QF2#3nbz\"F?7$$\"3#4Blj'
\\jC\")F?$\"3?w$[%fVht:F?7$$\"3ZjT!GZnRI)F?$\"3qHYj@-Re8F?7$$\"3E_h%Gw
-&4&)F?$\"3INYFY9W)4\"F?7$$\"3c&ojk(fL$p)F?$\"39BM#H?c#R&)F-7$$\"3snwn
C0M*)))F?$\"3'4(3\"f)HC2eF-7$$\"3Qm_$p)=%p2*F?$\"3a@bK)>k:2$F-7$$\"3%e
\\i6<X&y#*F?$\"3vMzB+$)>D#)!#H-%'COLOURG6&%$RGBG$\"#5!\"\"F(F(-F$6$7ZF
'7$$\"3Ze?Iof(>%\\!#@$\"3M!)=PW'4Wl(Fd[l7$$\"3[D,bv'eCm*Fd[l$\"3kWN7Lv
=)[\"F-7$$\"3u\\Fi<v8<9F-$\"3'R'>;;K:q@F-7$$\"3_L#\\1w?y%=F-$\"33:^\\i
d;8GF-7$$\"3-xMZ3'z<b#F-$\"3/%>Awi-W%QF-7$$\"3j:I+'y[<?$F-$\"3!y&f5x0d
rZF-7$$\"3%>hA=-ZL(QF-$\"3Y2K2Sr%)*p&F-7$$\"3=/p1nDI([%F-$\"3xYL#>L8q^
'F-7$$\"3Q1M$)\\x6_]F-$\"3TUjLt+.PsF-7$$\"3ia'f7H[\"obF-$\"3/<nGh4,jyF
-7$$\"3Jlw\"RJmu.'F-$\"30V\"\\sa-2S)F-7$$\"3kPWHy@VmkF-$\"3!\\-S%)[71'
))F-7$$\"3+(*=e)ySm;(F-$\"3,t#[=&4*)H&*F-7$$\"3s[;^k'z&yxF-$\"3Ym]Gj2
\\+5F?7$$\"3sb&o0f\"f4$)F-$\"3MWTckN)*H5F?7$$\"3i&\\)*HO([_()F-$\"3EM6
(p-DF/\"F?7$$\"3UIM\"p^cG8*F-$\"3!f'R'G;N8/\"F?7$$\"35\\%*)=5?[T*F-$\"
3n[5-m@))H5F?7$$\"3/L#[Z?MBo*F-$\"3))=]iw#ot+\"F?7$$\"3`S9U1CG1**F-$\"
3))>i7]d_h(*F-7$$\"3-)4'p!>s'35F?$\"338)Qkq9DR*F-7$$\"3B\"*QA]p_A5F?$
\"3!pssH!Hj3!*F-7$$\"3LVfur)oj.\"F?$\"3\"oK9#=ET,&)F-7$$\"3k;o;4n?Y5F?
$\"3Pey#QJO`.)F-7$$\"3'HeUz!)Ge0\"F?$\"3%3vBeFl!euF-7$$\"3=..91#oH1\"F
?$\"3NQH-@Z_?pF-7$$\"3AB9<]abp5F?$\"34p5t<Pu1jF-7$$\"31NpKb!4[2\"F?$\"
3NYt9Ppj-dF-7$$\"3-53<;RSz5F?$\"3)y.dQjA_0&F-7$$\"3-$ya1`_H3\"F?$\"3!e
EK&)3ixW%F-7$$\"3%*o0PIc<'3\"F?$\"3SPq0&\\!)3y$F-7$$\"3?EUD^l'*)3\"F?$
\"3)[yNn(=WxIF-7$$\"3!HQgtM354\"F?$\"3kN!=68BwX#F-7$$\"3?QWJHH(G4\"F?$
\"3K]ZTLjj\"y\"F-7$$\"3%o^S+Q'[%4\"F?$\"33&oC#>bCx5F-7$$\"3q;Maaq!e4\"
F?$\"3Ul<9oynJQFd[l7$$\"3Obf+J8)o4\"F?$!3DlDqMc6BHFd[l7$$\"3w\">V![z(y
4\"F?$!3aXi&zz(4Y5F-7$$\"3k'Gdz)ei)4\"F?$!3YR[7sEDE<F-7$$\"3I0V2bdH*4
\"F?$!31Z'eXJW\\X#F-7$$\"3k=/=9h!)*4\"F?$!3+\"[#>`+6<JF-7$$\"3x>hfceF+
6F?$!3!HhY4^KF%QF-7$$\"3*>$\\v]pk+6F?$!3%p-s:G`o_%F-7$$\"3w.`3+K(45\"F
?$!3#GxnQ(\\9V_F-7$$\"3,;!)oH4C,6F?$!3\"eR>DpQW%fF-7$$\"3e?:YWdZ,6F?$!
3?Z(yOv/&zmF-7$$\"3P<!)zI]m,6F?$!3QH$3fRr\")Q(F-7$$\"3,Mcm$HF=5\"F?$!3
W&=7-\"*)[8\")F-7$$\"3n$\\4s+i>5\"F?$!3\"RkLGc0L$))F-7$$\"3[^:\"3Wm?5
\"F?$!3/k.Ou`6&\\*F-7$$\"3(zSH3+n@5\"F?$!3KvY%**G*RD5F?7$$\"3OF***QOUA
5\"F?$!3kHW_-BI$4\"F?7$$\"3dwt*Q,5B5\"F?$!3'4Ru?cDd;\"F?7$$\"3e11y>WO-
6F?$!3DiP'3!Q1N7F?7$$\"3:rnEOMT-6F?$!3iS(\\NU&f48F?-Fhz6&FjzF(F[[lF(-%
+AXESLABELSG6$Q!6\"Fj\\m-%%VIEWG6$%(DEFAULTGF_]m" 1 2 0 1 10 0 2 9 1 
4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" }}}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "t2L:=fsolve(yL,t,avoid=\{t=0\});" }
}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$t2LG$\"+GCtc5!#5" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 27 "evalf(subs(t=t2L,[xL,yL]));" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#7$$\"+4&Rk4\"!#6$\"\"#F&" }}}{EXCHG {PARA 0 "" 
0 "" {TEXT -1 115 "We see, interestingly enough, that in this case, th
e time to again reach the ground is about 60% or so of the time " }}
{PARA 0 "" 0 "" {TEXT -1 82 "     for the case without drag; however, \+
the distance traveled is truly much less!" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 0 "" }}}}{MARK "16 2 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 
1 1 }{PAGENUMBERS 0 1 2 33 1 1 }