{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 "" 11 12 1 {CSTYLE "" -1 -1 "" 0 1 0 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 P
lot" 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 41 "Homework Problem 97: The M
ountain Climber" }}}{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);  #The
se loads the graphing packages." }}{PARA 7 "" 1 "" {TEXT -1 43 "Warnin
g, the name arrow has been redefined\n" }}{PARA 12 "" 1 "" {XPPMATH 
20 "6#7Z%(animateG%*animate3dG%-animatecurveG%&arrowG%-changecoordsG%,
complexplotG%.complexplot3dG%*conformalG%,conformal3dG%,contourplotG%.
contourplot3dG%*coordplotG%,coordplot3dG%-cylinderplotG%,densityplotG%
(displayG%*display3dG%*fieldplotG%,fieldplot3dG%)gradplotG%+gradplot3d
G%,graphplot3dG%-implicitplotG%/implicitplot3dG%(inequalG%,interactive
G%-listcontplotG%/listcontplot3dG%0listdensityplotG%)listplotG%+listpl
ot3dG%+loglogplotG%(logplotG%+matrixplotG%(odeplotG%'paretoG%,plotcomp
areG%*pointplotG%,pointplot3dG%*polarplotG%,polygonplotG%.polygonplot3
dG%4polyhedra_supportedG%.polyhedraplotG%'replotG%*rootlocusG%,semilog
plotG%+setoptionsG%-setoptions3dG%+spacecurveG%1sparsematrixplotG%+sph
ereplotG%)surfdataG%)textplotG%+textplot3dG%)tubeplotG" }}{PARA 7 "" 
1 "" {TEXT -1 43 "Warning, the name arrow has been redefined\n" }}
{PARA 12 "" 1 "" {XPPMATH 20 "6#7F%$arcG%&arrowG%'circleG%%coneG%'cubo
idG%&curveG%&cutinG%'cutoutG%)cylinderG%%diskG%-dodecahedronG%(ellipse
G%,ellipticArcG%+hemisphereG%+hexahedronG%*homothetyG%*hyperbolaG%,ico
sahedronG%%lineG%+octahedronG%)piesliceG%&pointG%(polygonG%(projectG%*
rectangleG%(reflectG%'rotateG%&scaleG%*semitorusG%'sphereG%)stellateG%
,tetrahedronG%&torusG%*transformG%*translateG%%vrmlG" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 49 "h:=(x,y)-> 14000 - (5*x^2 + 4*x*y + 2*y^2
)/24000;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"hGf*6$%\"xG%\"yG6\"6$%
)operatorG%&arrowGF),*\"&+S\"\"\"\"*&#F/\"%+[F/*$)9$\"\"#F/F/!\"\"*&#F
/\"%+gF/*&9%F/F5F/F/F7*&#F/\"&+?\"F/*$)F<F6F/F/F7F)F)F)" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 101 "k:=15:\nC:=[6,8,1,12,14]:\nPh:=plo
t3d(h(1000.*x,1000.*y)/1000.,x=-2..2,y=-2..2,contours=C,grid=[k,k]):\n
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "display(Ph);\n" }}
{PARA 13 "" 1 "" {GLPLOT3D 486 486 486 {PLOTDATA 3 "6%-%%GRIDG6%;$!\"#
\"\"!$\"\"#F)F&X,%)anythingG6\"6\"[gl'!%\"!!#\\y\"0\"040285555555572A7
4028B35FC845E85A40290A72F053FA3E40295A8ECD7FA8524029A3B35FC8F2974029E5
E0A72FD90C402A2116A3B45BB2402A555555567A89402A829CBC163590402AA8ECD7F3
8CC8402AC845A8EE8031402AE0A72F070FCA402AF2116A3D3B94402AFC845A91038E40
2B0000000267BA4028F74AE264FB2940294E5E0A7305DE40299E79E79EACC54029E79E
79E7EFDB402A29CBC14ECF23402A6501BDD34A9A402A99406F756242402AC687D63516
1C402AECD7F2126625402B0C30C30D5260402B24924925DACB402B35FC845BFF67402B
406F74AFC033402B43EB1A211D30402B406F74B0165E402987D6343E931D4029D7F211
6A32D5402A2116A3B36EBD402A6343EB1A46D6402A9E79E79EBB20402AD2B89940CB9A
402B000000007845402B26501BDDC121402B45A8ECD8A62D402B5E0A72F1276A402B6F
74AE2744D8402B79E79E7AFE76402B7D6343EC5444402B79E79E7B4643402B6F74AE27
D474402A06F74AE23A85402A501BDD2B6F3F402A92492492402A402ACD7F2116AD4640
2B01BDD2B8B692402B2F0539785C0E402B555555559DBC402B74AE26507B9A402B8D0F
AC68F5A8402B9E79E79F0BE8402BA8ECD7F2BE58402BAC687D640CF8402BA8ECD7F2F7
CA402B9E79E79F7ECB402B8D0FAC69A1FE402A74AE264FF161402AB6DB6DB6BB1E402A
F2116A3B210B402B26501BDD2329402B5397829CC178402B79E79E79FBF6402B99406F
74D2A6402BB1A1F58D4587402BC30C30C35498402BCD7F2116FFD9402BD0FAC688474C
402BCD7F21172AEF402BC30C30C3AAC3402BB1A1F58DC6C6402B99406F757EFC402AD0
FAC687B7B0402B0C30C30C166F402B406F74AE115F402B6DB6DB6DA87F402B9406F74A
DBD0402BB35FC845AB52402BCBC14E5E1704402BDD2B89941EE7402BE79E79E7C2FA40
2BEB1A1F59033E402BE79E79E7DFB3402BDD2B89945859402BCBC14E5E6D2F402BB35F
C8461E35402B9406F74B6B6C402B1BDD2B898D72402B501BDD2B8133402B7D6343EB11
26402BA3B35FC83D49402BC30C30C3059C402BDB6DB6DB6A20402BECD7F2116AD4402B
F74AE26507BA402BFAC687D640D0402BF74AE2651616402BECD7F211878E402BDB6DB6
DB9535402BC30C30C33F0E402BA3B35FC88517402B7D6343EB6750402B5555555572A7
402B829CBC14FB6B402BA8ECD7F22060402BC845A8ECE185402BE0A72F053EDB402BF2
116A3B3861402BFC845A8ECE18402C000000000000402BFC845A8ECE18402BF2116A3B
3861402BE0A72F053EDB402BC845A8ECE185402BA8ECD7F22060402B829CBC14FB6B40
2B5555555572A8402B7D6343EB6750402BA3B35FC88516402BC30C30C33F0E402BDB6D
B6DB9535402BECD7F211878E402BF74AE2651616402BFAC687D640D0402BF74AE26507
BA402BECD7F2116AD4402BDB6DB6DB6A20402BC30C30C3059C402BA3B35FC83D49402B
7D6343EB1126402B501BDD2B8134402B1BDD2B898D72402B9406F74B6B6C402BB35FC8
461E35402BCBC14E5E6D2F402BDD2B89945859402BE79E79E7DFB3402BEB1A1F59033E
402BE79E79E7C2FA402BDD2B89941EE7402BCBC14E5E1704402BB35FC845AB52402B94
06F74ADBD1402B6DB6DB6DA87F402B406F74AE115F402B0C30C30C166F402AD0FAC687
B7B0402B99406F757EFB402BB1A1F58DC6C6402BC30C30C3AAC3402BCD7F21172AEF40
2BD0FAC688474C402BCD7F2116FFD9402BC30C30C35498402BB1A1F58D4587402B9940
6F74D2A6402B79E79E79FBF7402B5397829CC178402B26501BDD2329402AF2116A3B21
0B402AB6DB6DB6BB1E402A74AE264FF162402B8D0FAC69A1FE402B9E79E79F7ECC402B
A8ECD7F2F7CB402BAC687D640CF9402BA8ECD7F2BE59402B9E79E79F0BE9402B8D0FAC
68F5A9402B74AE26507B9B402B555555559DBD402B2F0539785C0F402B01BDD2B8B693
402ACD7F2116AD47402A92492492402C402A501BDD2B6F40402A06F74AE23A86402B6F
74AE27D474402B79E79E7B4644402B7D6343EC5445402B79E79E7AFE77402B6F74AE27
44D9402B5E0A72F1276B402B45A8ECD8A62E402B26501BDDC122402B00000000784640
2AD2B89940CB9B402A9E79E79EBB21402A6343EB1A46D8402A2116A3B36EBF4029D7F2
116A32D6402987D6343E931E402B406F74B0165D402B43EB1A211D30402B406F74AFC0
33402B35FC845BFF67402B24924925DACB402B0C30C30D5260402AECD7F2126626402A
C687D635161C402A99406F756243402A6501BDD34A9A402A29CBC14ECF234029E79E79
E7EFDB40299E79E79EACC540294E5E0A7305DE4028F74AE264FB2A402B0000000267BA
402AFC845A91038F402AF2116A3D3B95402AE0A72F070FCB402AC845A8EE8032402AA8
ECD7F38CC9402A829CBC163591402A555555567A8A402A2116A3B45BB34029E5E0A72F
D90D4029A3B35FC8F29840295A8ECD7FA85340290A72F053FA3F4028B35FC845E85B40
285555555572A8-%+AXESLABELSG6%%\"xG%\"yGQ!F/-%)CONTOURSG6#7'$\"\"'F)$
\"\")F)$\"\"\"F)$\"#7F)$\"#9F)" 1 2 0 1 10 0 2 1 1 1 1 0.900000 
80.000000 66.000000 2 0 "Curve 1" }}}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 50 "(x1,x2):=solve(diff(h(x,sqrt(2000^2-x^2)),x)=0,x);" }
}{PARA 11 "" 1 "" {XPPMATH 20 "6#>6$%#x1G%#x2G6$,$*&\"$+%\"\"\"\"\"&#F
+\"\"#!\"\",$*&\"$+)F+F,F-F+" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 65 "evalf(h(x1,sqrt(2000.^2-x1^2)));\nevalf(h(x2,sqrt(2000.^2-x2^2))
);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+LLL$Q\"!\"&" }}{PARA 11 "" 
1 "" {XPPMATH 20 "6#$\"+*******H\"!\"&" }}}{EXCHG {PARA 0 "" 0 "" 
{TEXT -1 190 "She should head toward the point (x2, y2).  At this poin
t she can just get to 13000 feet, losing a total of 1000 feet of eleva
tion.  She's probably not in the clear yet, but well on her way." }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 87 "spacecurve([2000*cos(t),2000
*sin(t),h(2000*cos(t),2000*sin(t))],t=0..2*Pi,color=black);" }}{PARA 
13 "" 1 "" {GLPLOT3D 486 486 486 {PLOTDATA 3 "6#-%'CURVESG6$7T7%$\"%+?
\"\"!$F*F*$\"+nmm;8!\"&7%$\"+G+e$)>!\"'$\"+MKadD!\"($\"+U\"H!48F.7%$\"
+E(*eM>F2$\"+z;4t]F5$\"+Zk_.8F.7%$\"+:N$Q&=F2$\"+*4S`](F5$\"+:&=0I\"F.
7%$\"+3ujU<F2$\"+U5N9)*F5$\"+%4--I\"F.7%$\"+Ws#Gg\"F2$\"+h5A'>\"F2$\"+
#)yf-8F.7%$\"++()pO9F2$\"+,^O\"R\"F2$\"+q\"\\vI\"F.7%$\"+.'zpC\"F2$\"+
lHmj:F2$\"+$4KZJ\"F.7%$\"+O^yO5F2$\"+EbG5<F2$\"+9onB8F.7%$\"+Zom&4)F5$
\"+Z_#)G=F2$\"+c#)zL8F.7%$\"+4<b!p&F5$\"+2dL<>F2$\"+tVVW8F.7%$\"+oy*>>
$F5$\"+nNOu>F2$\"+`%*)[N\"F.7%$\"+&4:.T'!\")$\"+LC(*)*>F2$\"+G'zWO\"F.
7%$!+o0Y?>F5$\"+D#e2*>F2$\"++wds8F.7%$!+P(=/X%F5$\"+Be&)\\>F2$\"+!o`'y
8F.7%$!+_6I2pF5$\"+Uo$p(=F2$\"+H/J#Q\"F.7%$!+sew]#*F5$\"+4')>t<F2$\"+e
'3LQ\"F.7%$!+FLBW6F2$\"+/XMS;F2$\"+uIe\"Q\"F.7%$!+(y,YM\"F2$\"+))fb![
\"F2$\"+YlCx8F.7%$!+B>*G_\"F2$\"+$yckH\"F2$\"+GFeq8F.7%$!+;i<w;F2$\"+$
zp54\"F2$\"+.v-i8F.7%$!+Tx$>!=F2$\"+wYnx')F5$\"+r/9_8F.7%$!+)\\6\")*=F
2$\"+SU;-jF5$\"+V$o:M\"F.7%$!+<$=J'>F2$\"+TC<BQF5$\"+ZE+J8F.7%$!+'y!*e
*>F2$\"+cUS\"G\"F5$\"+)[M6K\"F.7%$!+&y!*e*>F2$!+_XS\"G\"F5$\"+W$4EJ\"F
.7%$!+6$=J'>F2$!+KF<BQF5$\"+Z[)fI\"F.7%$!+*[6\")*=F2$!+@X;-jF5$\"+3Vp,
8F.7%$!+Gx$>!=F2$!+V\\nx')F5$\"+s$=+I\"F.7%$!++i<w;F2$!+=)p54\"F2$\"+i
m1,8F.7%$!+/>*G_\"F2$!+0oX'H\"F2$\"+51x/8F.7%$!+l<gW8F2$!+3gb![\"F2$\"
+Rz)3J\"F.7%$!+.LBW6F2$!+@XMS;F2$\"+8&=!>8F.7%$!+4cw]#*F5$!+B')>t<F2$
\"+40jG8F.7%$!+u3I2pF5$!+_o$p(=F2$\"+._4R8F.7%$!+[%=/X%F5$!+Ie&)\\>F2$
\"+)4G(\\8F.7%$!+t-Y?>F5$!+G#e2*>F2$\"+#pL)f8F.7%$\"+d!=.T'F[q$!+KC(*)
*>F2$\"+w4vo8F.7%$\"+g\")*>>$F5$!+jNOu>F2$\"+om*eP\"F.7%$\"+$*>b!p&F5$
!+)pNt\">F2$\"+mL!3Q\"F.7%$\"+=rm&4)F5$!+N_#)G=F2$\"+A,:$Q\"F.7%$\"+h^
yO5F2$!+6bG5<F2$\"+MMy#Q\"F.7%$\"+F'zpC\"F2$!+YHmj:F2$\"+(GF(z8F.7%$\"
+@()pO9F2$!+z]O\"R\"F2$\"+%e\"=u8F.7%$\"+js#Gg\"F2$!+O5A'>\"F2$\"+r!4l
O\"F.7%$\"+CujU<F2$!+f2N9)*F5$\"+5;@d8F.7%$\"+FN$Q&=F2$!+\"zR`](F5$\"+
]t*oM\"F.7%$\"+N(*eM>F2$!+]84t]F5$\"+\\4CO8F.7%$\"+K+e$)>F2$!+*)GadDF5
$\"+Z%RfK\"F.7%$\"+++++?F2$\"+pE3kN!#9$\"+lmm;8F.-%'COLOURG6&%$RGBGF*F
*F*" 1 2 0 1 10 0 2 1 1 2 1 1.000000 84.000000 50.000000 0 0 "Curve 1
" }}}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 86 "The curve above represents a
ll of the points she could get to in that fifteen minutes." }}}}{MARK 
"0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }