{VERSION 4 0 "IBM INTEL NT" "4.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 Comment" 2 18 "" 0 1 0 0 0 0 0 0 0 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 257 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 258 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 259 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 260 "" 0 1 235 0 0 0 0 0 1 0 0 0 0 0 0 1 }{CSTYLE "" -1 261 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 } {CSTYLE "" -1 264 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 269 "" 0 1 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 "Warning" -1 7 1 {CSTYLE "" -1 -1 "Courier " 1 10 0 0 255 1 2 2 2 2 2 1 1 1 3 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 "Title" -1 18 1 {CSTYLE "" -1 -1 "Times" 1 18 0 0 0 1 2 1 1 2 2 2 1 1 1 1 }3 1 0 0 12 12 1 0 1 0 2 2 19 1 }{PSTYLE "Heading 2" -1 256 1 {CSTYLE "" -1 -1 "Times" 1 14 0 0 0 1 2 1 2 2 2 2 1 1 1 1 }3 1 0 0 8 2 1 0 1 0 2 2 0 1 }{PSTYLE "newpage " -1 257 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 1 2 0 1 }{PSTYLE "Problem" -1 258 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 255 1 2 2 2 2 2 2 1 1 1 1 }1 1 0 0 4 4 3 4 1 0 2 2 0 1 }} {SECT 0 {EXCHG {PARA 18 "" 0 "" {TEXT -1 10 "Calculus I" }}{PARA 256 " " 0 "" {TEXT -1 34 "Lesson 10: Max and Min Problems 3" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{PARA 0 "" 0 "" {TEXT 260 0 "" }}{PARA 0 "" 0 " " {TEXT 264 11 "Example 1: " }{TEXT 269 13 "Paper Folding" }}{EXCHG {PARA 258 "" 0 "" {TEXT -1 367 "Problem: A sheet of paper 4 inches wi de by 8 inches high is folded so that the bottom right corner of the s heet touches the left hand edge of the sheet. The tip of the corner i s no more than 4 inches above the bottom edge of the paper. Then the \+ paper is creased (see figure). Find the length L of the crease, and f ind how to fold the paper so that L is minimum. " }}{PARA 257 "" 0 " " {TEXT 259 10 "Solution: " }}{PARA 257 "" 0 "" {TEXT -1 49 "Let h, x, and y be as shown in the diagram below." }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 88 "A1:=plots[textplot](\{[2.6,1.9,'L'],[3.7,2,'h'],[.1,1.1,`y`],[.5,.3,` x`],\},align=RIGHT): " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 99 "A3 :=plot(\{[[0,0],[0,8],[4,8],[4,4.45],[1.219,0],[0,0]],[[4,4.45],[0, 2. 5],[1.219,0]]\},color=blue): " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "A4:=plot([[4,4.45],[4,0],[1.219,0]],color=red):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 74 "A5:=plots[polygonplot]([[4,4.45],[0 ,4.45],[0,2.5]],style=patch,color=tan):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 61 "plots[display]([A1,A3,A4,A5],axes=boxed,scaling=const rained);" }}{PARA 13 "" 1 "" {GLPLOT2D 367 367 367 {PLOTDATA 2 "6,-%%T EXTG6%7$$\"#E!\"\"$\"#>F)%\"LG%+ALIGNRIGHTG-F$6%7$$\"#PF)$\"\"#\"\"!% \"hGF--F$6%7$$\"\"\"F)$\"#6F)%\"yGF--F$6%7$$\"\"&F)$\"\"$F)%\"xGF--%'C URVESG6$7(7$F5F57$F5$\"\")F57$$\"\"%F5FM7$FP$\"1++++++]W!#:7$$\"1+++++ +>7FUF5FK-%'COLOURG6&%$RGBGF5F5$\"*++++\"!\")-FH6$7%FR7$F5$\"1+++++++D FUFVFY-FH6$7%FR7$FPF5FV-FZ6&FfnFgnF5F5-%)POLYGONSG6%7%7$FP$\"$X%!\"#7$ F5F[p7$F5$\"#DF)-FZ6&Ffn$\")`B)e)Fin$\")fqkdFin$\")p:#R%Fin-%&STYLEG6# %&PATCHG-%*AXESSTYLEG6#%$BOXG-%(SCALINGG6#%,CONSTRAINEDG" 1 2 0 1 10 0 2 9 1 2 1 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" "Curv e 3" "Curve 4" "Curve 5" "Curve 6" "Curve 7" "Curve 8" }}}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 186 " We can see several equations relating x , y, h, and L in the diagram. For example, the small right triangle w ith legs x and y has a hypotenuse which is 4-x units long. This give s eq1." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "eq1 := y^2+x^2=(4 -x)^2;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$eq1G/,&*$%\"yG\"\"#\"\"\" *$%\"xGF)F**$,&\"\"%F*F,!\"\"F)" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 71 "eq2 comes from the right triangle with hypotenuse L and legs h and 4-x." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "eq2 := L^2 = (4-x) ^2 + h^2;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$eq2G/*$%\"LG\"\"#,&*$, &\"\"%\"\"\"%\"xG!\"\"F(F-*$%\"hGF(F-" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 193 "Now it is easy to work out that the tan right triangle w ith hypotenuse h and legs 4 and h-y is similar to the right triangle \+ with hypotenuse 4-x and corresponding legs y and x. So we get eq3." } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "eq3 := 4/(h-y)=y/x;" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%$eq3G/,$*$,&%\"hG\"\"\"%\"yG!\"\"F, \"\"%*&F+F*%\"xGF," }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "h := \+ solve(eq3,h);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"hG*&,&%\"xG\"\"%* $%\"yG\"\"#\"\"\"F,F*!\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "x := solve(eq1,x); " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"xG,&*$% \"yG\"\"##!\"\"\"\")F(\"\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 42 "L := unapply(sqrt(op(2,simplify(eq2))),y);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"LGR6#%\"yG6\"6$%)operatorG%&arrowGF(,$*$*&,&\"#;\" \"\"*$9$\"\"#F1\"\"$F3!\"##F1F4#F1\"\")F(F(6\"" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 100 "So we have L expressed as a function of one variab le y. Examining the behavior of L as y varies, " }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 13 "plot(L,2..4);" }}{PARA 13 "" 1 "" {GLPLOT2D 320 320 320 {PLOTDATA 2 "6$-%'CURVESG6$7U7$$\"\"#\"\"!$\"1v%\\P%*p,f&! #:7$$\"1mm;arz@?F-$\"1s4h\"e*HmbF-7$$\"1LLL3VfV?F-$\"1!>5Rp3Ma&F-7$$\" 1+]i&*)fD1#F-$\"1e^=?gECbF-7$$\"1nm\"H[D:3#F-$\"1>o:p]#e]&F-7$$\"1LL$e 0$=C@F-$\"15ew*QAoY&F-7$$\"1LL$3RBr;#F-$\"1s929\"p3V&F-7$$\"1nm\"zjf)4 AF-$\"1!p;l.3#)R&F-7$$\"1LLe4;[\\AF-$\"1'G@^'*o0P&F-7$$\"1++Dmy]!H#F-$ \"1QxGd(*\\W`F-7$$\"1LLezs$HL#F-$\"1#o!4=$R,K&F-7$$\"1++D@1BvBF-$\"1sF k$Rl$)H&F-7$$\"1nmm@Xt=CF-$\"1Im?J)f%y_F-7$$\"1LL$3y_qX#F-$\"1!pO`6GHE &F-7$$\"1+++l+>+DF-$\"1l$4%o#*eZ_F-7$$\"1+++vW]VDF-$\"1%oL%)))yVB&F-7$ $\"1+++NfC&e#F-$\"1]#*=9*QOA&F-7$$\"1LLez6:BEF-$\"1k)4mK7b@&F-7$$\"1nm m\"=C#oEF-$\"1!Qy)Hdy2_F-7$$\"1mmmEpS1FF-$\"1iMK\\f#G?&F-7$$\"1++DOD#3 v#F-$\"1D-G2v\"))>&F-7$$\"1mmmwy8!z#F-$\"1J&Gs-%z'>&F-7$$\"1++DOIFLGF- $\"14mbxD;'>&F-7$$\"1++v3zMuGF-$\"1zG0&=aq>&F-7$$\"1nm;H_?&F-7$$\"1nm\"zihl&HF-$\"1\")*4zbAI?&F-7$$\"1LL$3#G,**HF-$\"1D3E%f '>3_F-7$$\"1LLezw5VIF-$\"1e31()o,:_F-7$$\"1++v$Q#\\\"3$F-$\"1jOdDw6A_F -7$$\"1LL$e\"*[H7$F-$\"15YrR!o4B&F-7$$\"1+++qvxlJF-$\"1st$)yROT_F-7$$ \"1++]_qn2KF-$\"1\"y\"=+>t__F-7$$\"1++Dcp@[KF-$\"1J;6Yz#[E&F-7$$\"1++] 2'HKH$F-$\"1e95#*))[z_F-7$$\"1nmmwanLLF-$\"11re3%QPH&F-7$$\"1+++v+'oP$ F-$\"1WMk!\\[+J&F-7$$\"1LLeR<*fT$F-$\"1,Qr0?yD`F-7$$\"1+++&)HxeMF-$\"1 oR$oh'*RM&F-7$$\"1mm\"H!o-*\\$F-$\"1z)G8`!3i`F-7$$\"1++DTO5TNF-$\"1A'3 )G:%>Q&F-7$$\"1nmmT9C#e$F-$\"1CWj7fG-aF-7$$\"1++D1*3`i$F-$\"1C)e]ZXXU& F-7$$\"1LLL$*zymOF-$\"1sH\\`U*oW&F-7$$\"1LL$3N1#4PF-$\"1@Vn)=a1Z&F-7$$ \"1nm\"HYt7v$F-$\"1wM$4v.^\\&F-7$$\"1+++q(G**y$F-$\"1yMULUL=bF-7$$\"1m m;9@BMQF-$\"1*3X_QUea&F-7$$\"1LLL`v&Q(QF-$\"1,GrB:BrbF-7$$\"1++DOl5;RF -$\"1VZK:X5*f&F-7$$\"1++v.UacRF-$\"1\"o*[PfaEcF-7$$\"\"%F*$\"1\"Q#\\\\ U&ol&F--%'COLOURG6&%$RGBG$\"#5!\"\"F*F*-%%VIEWG6$;F(F^[l%(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 "" {TEXT -1 56 "we see that there is a minimum len gth crease of about " }{XPPEDIT 18 0 "L = 5.2" "6#/%\"LG$\"#_!\"\"" }{TEXT -1 19 " inches at about " }{XPPEDIT 18 0 "y = 2.8 " "6#/%\"y G$\"#G!\"\"" }{TEXT -1 141 " inches. We can get a more precise value with fsolve, by locating the x between 2.6 and 3 where the derivative of the crease function is 0." }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 36 "y1 := fsolve(diff(L(y),y),y,2.6..3);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6# >%#y1G$\"+DrUGG!\"*" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 51 "Now check \+ the value of x and L for this value of y." }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "minL := L(y1);" }}{PARA 11 " " 1 "" {XPPMATH 20 "6#>%%minLG$\"+BC:'>&!\"*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "minx := subs(y=y1,x);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%minxG$\"+++++5!\"*" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 282 "Notice the nice integer value of minx . This gives rise to \+ a simple construction of the crease of minimum length: by folding twi ce along the bottom edge, we can mark the point 1 inch from the left \+ edge of the paper. Then bring the corner point up to the left edge an d crease. " }}{PARA 258 "" 0 "" {TEXT -1 76 "Exercise: Use Maple to \+ draw the diagram showing the minimum length crease." }}}{EXCHG {PARA 258 "" 0 "" {TEXT -1 128 "Exercise: Suppose we wanted to minimize L + y, rather than just L. Would the minimum occur at the same place? Work it out." }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT 261 9 "Example 2" }}{PARA 0 "" 0 "" {TEXT -1 80 "\nA woman' s blood pressure p ranges from a high (the systolic pressure) to a low " }}{PARA 0 "" 0 "" {TEXT -1 85 "(the diastolic pressure) so that at \+ time t in seconds, p is given (approximately) by " }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 39 " p = P(t) = 100 \+ + 20 sin(5t). " }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 85 "The time between two successive high pressures is the tim e needed for one heartbeat. " }}{PARA 0 "" 0 "" {TEXT -1 18 "First, pl ot P(t). " }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 83 "a) Find an expression for the rate at which the woman's blood pre ssure is changing" }}{PARA 0 "" 0 "" {TEXT -1 11 "at time t. " }} {PARA 0 "" 0 "" {TEXT -1 63 "b) At what time is the woman's blood pre ssure a max? a min? " }}{PARA 0 "" 0 "" {TEXT -1 66 "c) What is the woman's max blood pressure? min blood pressure? " }}{PARA 0 "" 0 " " {TEXT -1 59 "d) How many times per minute does the woman's heart be at? " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "restart: with(plott ools): with(plots):" }}{PARA 7 "" 1 "" {TEXT -1 50 "Warning, the name \+ changecoords has been redefined\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "f:= 100 + 20*sin(5*x);" }{TEXT -1 0 "" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"fG,&\"$+\"\"\"\"*&\"#?F'-%$sinG6#,$%\"xG\"\"&F 'F'" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "plot(f(x), x = 0..10 );" }{TEXT -1 0 "" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6%-%'CURVESG6$7[al7$$\"\"!F)$\"$+\"F)7$$\"+qUkCF!#6$\"+UA;F5!\"(7$$ \"+S&)G\\aF/$\"+`6#Q0\"F27$$\"+5G$R<)F/$\"+IF[z5F27$$\"+3x&)*3\"!#5$\" +]9n.6F27$$\"+N@Ki8F@$\"+$3Rf7\"F27$$\"+ilyM;F@$\"+)*H(e9\"F27$$\"+*)4 D2>F@$\"+4Q5j6F27$$\"+;arz@F@$\"+?AJx6F27$$\"+)4bQl#F@$\"+=A3%>\"F27$$ \"+!y%*z7$F@$\"+y`***>\"F27$$\"+iW8-OF@$\"+?4s%>\"F27$$\"+XTFwSF@$\"+& *Qby6F27$$\"+vR)GM%F@$\"+vT*\\;\"F27$$\"+1Q\\4YF@$\"+:o][6F27$$\"+PO5w [F@$\"+lVQH6F27$$\"+oMrU^F@$\"+Jh'z5\"F27$$\"+*HB$4aF@$\"+d@j%3\"F27$$ \"+IJ$fn&F@$\"+ykzf5F27$$\"+hHaUfF@$\"+x(**Q.\"F27$$\"+\"z_\"4iF@$\"+h :S25F27$$\"+'))HvZ'F@$\"+D6'f!)*!\")7$$\"+zp!fu'F@$\"+v`RT&*Fbr7$$\"+t SG9qF@$\"+P^2&G*Fbr7$$\"+m6m#G(F@$\"+L*3;/*Fbr7$$\"+f#Q5b(F@$\"+\"=u` \"))Fbr7$$\"+``T>yF@$\"+'[Q/h)Fbr7$$\"+YCz(3)F@$\"+(\\'[I%)Fbr7$$\"+S& phN)F@$\"+uOvy#)Fbr7$$\"+GEP!*))F@$\"+xM(42)Fbr7$$\"+:ddC%*F@$\"+5+++! )Fbr7$$\"+.)y(e**F@$\"+ 1u5Fhu$\"+h\"puT)Fbr7$$\"+ac#))4\"Fhu$\"+([@1e)Fbr7$$\"+'Q*eB6Fhu$\"+/ m]l()Fbr7$$\"+=JN[6Fhu$\"+YOHp*)Fbr7$$\"+]o6t6Fhu$\"+LB'))=*Fbr7$$\"+$ e!)y>\"Fhu$\"+]2&3U*Fbr7$$\"+;VkA7Fhu$\"+-oqh'*Fbr7$$\"+[!3uC\"Fhu$\"+ :Eu2**Fbr7$$\"+e%\\IF\"Fhu$\"+#)RR;5F27$$\"+p3p)H\"Fhu$\"+/YuT5F27$$\" +!GKVK\"Fhu$\"+2+Tm5F27$$\"+!pt*\\8Fhu$\"+>`)**3\"F27$$\"++^hv8Fhu$\"+ jN376F27$$\"+5lD,9Fhu$\"+1?MK6F27$$\"+?z*oU\"Fhu$\"+:\"G/:\"F27$$\"+J$ RDX\"Fhu$\"+;]/m6F27$$\"+)4wb]\"Fhu$\"+4(f%*=\"F27$$\"+kGhe:Fhu$\"+B!H '*>\"F27$$\"+c?(=d\"Fhu$\"+2r***>\"F27$$\"+[78&e\"Fhu$\"+&\\'[*>\"F27$ $\"+S/R)f\"Fhu$\"+I%*4)>\"F27$$\"+J'\\;h\"Fhu$\"+2?%e>\"F27$$\"+9!o\"Q ;Fhu$\"+O&f()=\"F27$$\"+)R'ok;Fhu$\"+;MOy6F27$$\"+O(>6p\"Fhu$\"+(H%)[; \"F27$$\"+vIb</x \"Fhu$\"+YrP36F27$$\"+!4`oz\"Fhu$\"+@1G&3\"F27$$\"+HkGB=Fhu$\"+xlpg5F2 7$$\"+o(>(\\=Fhu$\"+EQ0N5F27$$\"+1J:w=Fhu$\"+X'*z35F27$$\"+WIM.>Fhu$\" +/WQ;)*Fbr7$$\"+#)H`I>Fhu$\"+\"yg\"[&*Fbr7$$\"+?Hsd>Fhu$\"+S`F)G*Fbr7$ $\"+dG\"\\)>Fhu$\"+\")R_T!*Fbr7$$\"+%z-@,#Fhu$\"+7-Y7))Fbr7$$\"+KFHR?F hu$\"+R6J0')Fbr7$$\"+qE[m?Fhu$\"+s%**QU)Fbr7$$\"+3En$4#Fhu$\"+eHdr#)Fb r7$$\"+K/dT@Fhu$\"+(\\9A3)Fbr7$$\"+c#o%*=#Fhu$\"+sfK-!)Fbr7$$\"+7FW,AF hu$\"+ra8+!)Fbr7$$\"+orT8AFhu$\"+B<60!)Fbr7$$\"+C;RDAFhu$\"+&*oB(GqW#Fhu$\"+a6\"F27$$\"+j$zLm#Fhu$\"+PZSO6F27$$\"+q3X!p#Fhu$\"+p [*[:\"F27$$\"+vB_\"F27$$\"+Eg (=#GFhu$\"+%zA**>\"F27$$\"+^G0uGFhu$\"+@6f%>\"F27$$\"+v'Hi#HFhu$\"+?/4 w6F27$$\"+J7htHFhu$\"+Bi\"*[6F27$$\"+'y#*4-$Fhu$\"+yIU86F27$$\"+jNoWIF hu$\"+O7;$4\"F27$$\"+TVPoIFhu$\"+[Pfr5F27$$\"+=^1#4$Fhu$\"+yG-\\5F27$$ \"+(*ev:JFhu$\"+b\\wD5F27$$\"+Al#R9$Fhu$\"+Y=mw**Fbr7$$\"+\\r4sJFhu$\" +'ROhp*Fbr7$$\"+vxE+KFhu$\"+,&H;U*Fbr7$$\"+-%Q%GKFhu$\"+4$y&e\"*Fbr7$$ \"+H!4mD$Fhu$\"+4I>7*)Fbr7$$\"+b'zZG$Fhu$\"+(p`to)Fbr7$$\"+#G]HJ$Fhu$ \"+eP^)[)Fbr7$$\"+347TLFhu$\"+i:h>$)Fbr7$$\"+R$\\))Q$Fhu$\"+9$f36)Fbr7 $$\"+qxdOMFhu$\"+iT=4!)Fbr7$$\"+x)4&[MFhu$\"+O5J,!)Fbr7$$\"+&)>WgMFhu$ \"+$*)\\0+)Fbr7$$\"+#4uBZ$Fhu$\"+TM!p+)Fbr7$$\"+,iI%[$Fhu$\"+t!\\.-)Fb r7$$\"+;/<3NFhu$\"+\\,Io!)Fbr7$$\"+LY.KNFhu$\"+D7sV\")Fbr7$$\"+)Q%zfNF hu$\"++Fdk#)Fbr7$$\"+WTb(e$Fhu$\"+=P!)=%)Fbr7$$\"++RJ:OFhu$\"+qxW.')Fb r7$$\"+cO2VOFhu$\"+wL&\\\"))Fbr7$$\"+7M$3n$Fhu$\"+(R_#\\!*Fbr7$$\"+oJf )p$Fhu$\"+\"GQ=I*Fbr7$$\"+CHNEPFhu$\"+TF&yc*Fbr7$$\"+\"o7Tv$Fhu$\"+0#z @%)*Fbr7$$\"+oZoyPFhu$\"+q2x35F27$$\"+coD.QFhu$\"+%R\">L5F27$$\"+W*Gy# QFhu$\"+M;6d5F27$$\"+K5S_QFhu$\"+w3\"F27$ $\"+>q+sSFhu$\"+%HO'*>\"F27$$\"+dn[&3%Fhu$\"+&)\\***>\"F27$$\"+%\\m*)4 %Fhu$\"+EbW*>\"F27$$\"+JiW7TFhu$\"+7/*z>\"F27$$\"+1dSRTFhu$\"+JPR#>\"F 27$$\"+\"=lj;%Fhu$\"+$[1L=\"F27$$\"+r(3x@%Fhu$\"+u'))p:\"F27$$\"+iB0pU Fhu$\"+j8Q?6F27$$\"+dTs%H%Fhu$\"+Rm%*)4\"F27$$\"+`fR?VFhu$\"+.R)e2\"F2 7$$\"+[x1YVFhu$\"+6`U%Fhu$\"+C?,I(*Fbr7$$\"+>q4_WFhu$\"+?h\"yY*Fbr7 $$\"+WG))yWFhu$\"+j<::#*Fbr7$$\"+p'oc]%Fhu$\"+0Uaw*)Fbr7$$\"+%\\aC`%Fh u$\"+WpEc()Fbr7$$\"+>.CfXFhu$\"+7_Ee&)Fbr7$$\"+Xh-'e%Fhu$\"+t_3'Q)Fbr7 $$\"+V;ANYFhu$\"+IA.Z\")Fbr7$$\"+UrT%o%Fhu$\"+I(G&>!)Fbr7$$\"++)Fbr 7$$\"+TEhLZFhu$\"+H0D6!)Fbr7$$\"+!R5#eZFhu$\"+S3E_!)Fbr7$$\"+R\"3Gy%Fh u$\"+))fpA\")Fbr7$$\"+J@(e$[Fhu$\"+baCp$)Fbr7$$\"+Ah$*))[Fhu$\"+3&>*H( )Fbr7$$\"+<\"oa\"\\Fhu$\"+hCVX*)Fbr7$$\"+8,+U\\Fhu$\"+9sZz\"*Fbr7$$\"+ 3@`o\\Fhu$\"+84%zU*Fbr7$$\"+.T1&*\\Fhu$\"+MtX'o*Fbr7$$\"+!RBE-&Fhu$\"+ iRvg**Fbr7$$\"+xE=]]Fhu$\"+h%zN-\"F27$$\"+j>ux]Fhu$\"+7lj]5F27$$\"+]7I 0^Fhu$\"+.Otw5F27$$\"+P0'G8&Fhu$\"+\"*fP,6F27$$\"+B)>/;&Fhu$\"+7l4C6F2 7$$\"+5\"zz=&Fhu$\"+JWYW6F27$$\"+(RQb@&Fhu$\"+NE&Fhu$ \"+6*)G&=\"F27$$\"+d,]6`Fhu$\"+96(y>\"F27$$\"+w`\\B`Fhu$\"+8)f#*>\"F27 $$\"+'f!\\N`Fhu$\"+j>$**>\"F27$$\"+;e[Z`Fhu$\"+[^))*>\"F27$$\"+P5[f`Fh u$\"+M&>\"*>\"F27$$\"+x9Z$Q&Fhu$\"++bW&>\"F27$$\"+=>Y2aFhu$\"+jE'*)=\" F27$$\"+$e#GfaFhu$\"+,v'e;\"F27$$\"+[K56bFhu$\"+i!*pJ6F27$$\"+!e8q`&Fh u$\"+!>]66\"F27$$\"+8R#Hc&Fhu$\"+@%Q()3\"F27$$\"+XU$))e&Fhu$\"+#QR[1\" F27$$\"+yXu9cFhu$\"+@O&)R5F27$$\"+([7:k&Fhu$\"+nVM85F27$$\"+&R!GocFhu$ \"+UV'f')*Fbr7$$\"+/$[]p&Fhu$\"+7C)3g*Fbr7$$\"+8i\"=s&Fhu$\"+<#RHM*Fbr 7$$\"+@Te[dFhu$\"+3%[n4*Fbr7$$\"+I?NvdFhu$\"+6Mrm))Fbr7$$\"+R*>@!eFhu$ \"+>([pl)Fbr7$$\"+\\y))GeFhu$\"+gi?r%)Fbr7$$\"+-AE\")eFhu$\"+O?\\*=)Fb r7$$\"+bljLfFhu$\"+$yG7.)Fbr7$$\"+W,tYfFhu$\"+6[T7!)Fbr7$$\"+KP#)ffFhu $\"+*o;@+)Fbr7$$\"+?t\"H(fFhu$\"+R&y.+)Fbr7$$\"+44,')fFhu$\"+3y?2!)Fbr 7$$\"+&3)>7gFhu$\"+#)\\TY!)Fbr7$$\"+i_QQgFhu$\"+,q1>\")Fbr7$$\"+T,1*3' Fhu$\"+F8_\\$)Fbr7$$\"+@]tRhFhu$\"+0%o`o)Fbr7$$\"+gC2lhFhu$\"+Q/M')))F br7$$\"++*4/>'Fhu$\"+@C;0\"*Fbr7$$\"+Stu:iFhu$\"+LqKQ$*Fbr7$$\"+!y%3Ti Fhu$\"+mq4#e*Fbr7$$\"+(o<#piFhu$\"+AtVg)*Fbr7$$\"+%f]tH'Fhu$\"+ZM:95F2 7$$\"+,N[DjFhu$\"+vN)>/\"F27$$\"+3kh`jFhu$\"+mV)*o5F27$$\"+:$\\u( >\"F27$$\"+U?!*zlFhu$\"+x)R#*>\"F27$$\"+w8a#f'Fhu$\"+EB%**>\"F27$$\"+5 2=0mFhu$\"+2l%)*>\"F27$$\"+X+#yh'Fhu$\"+.G&*)>\"F27$$\"+8()4VmFhu$\"+# =*y%>\"F27$$\"+#Qx$omFhu$\"+\"*y^(=\"F27$$\"+I\"eBs'Fhu$\"+\"p%=i6F27$ $\"+y)Qjx'Fhu$\"+1#3^7\"F27$$\"+_#HL!oFhu$\"+.p(H5\"F27$$\"+E'>.$oFhu$ \"+GI(*y5F27$$\"+++JdoFhu$\"+yI``5F27$$\"+u.I%)oFhu$\"+h'>r-\"F27$$\"+ lwv3pFhu$\"+)3YF+\"F27$$\"+b\\@LpFhu$\"+')\\J$y*Fbr7$$\"+YAndpFhu$\"+# Q0Ca*Fbr7$$\"+N&H@)pFhu$\"+9,L3$*Fbr7$$\"+Eoe1qFhu$\"+x^e%3*Fbr7$$\"+; T/JqFhu$\"+#G7X())Fbr7$$\"+19]bqFhu$\"+R*[7o)Fbr7$$\"+(pe*zqFhu$\"+1;o 2&)Fbr7$$\"+`_VLrFhu$\"+4x!*3#)Fbr7$$\"+5=\"p=(Fhu$\"+oUUP!)Fbr7$$\"+ \\4G+sFhu$\"+RZ3;!)Fbr7$$\"+*3]O@(Fhu$\"+Hng.!)Fbr7$$\"+G#>qA(Fhu$\"+x f/+!)Fbr7$$\"+n$)QSsFhu$\"+(Q=a+)Fbr7$$\"+Ym7nsFhu$\"+5p#G/)Fbr7$$\"+C \\'QH(Fhu$\"+vY;:\")Fbr7$$\"+'>#=WtFhu$\"+mA,T$)Fbr7$$\"+o%*\\%R(Fhu$ \"+NRJr')Fbr7$$\"+/\"e'>uFhu$\"++(f$p))Fbr7$$\"+Sn\"[W(Fhu$\"+^IF&3*Fb r7$$\"+w`(*puFhu$\"+&*=k:$*Fbr7$$\"+8S8&\\(Fhu$\"+)pDob*Fbr7$$\"+O?V@v Fhu$\"+=dN;)*Fbr7$$\"+g+tZvFhu$\"+Jc!z+\"F27$$\"+%3GSd(Fhu$\"+-#RS.\"F 27$$\"+3hK+wFhu$\"+%4&ef5F27$$\"+KTiEwFhu$\"+kA5%3\"F27$$\"+c@#Hl(Fhu$ \"+Hu;26F27$$\"+!=?#zwFhu$\"+vBQG6F27$$\"+0#=bq(Fhu$\"+I3QZ6F27$$\"+b/ %pv(Fhu$\"+*y:p<\"F27$$\"+1FO3yFhu$\"+,)>[>\"F27$$\"+p#=7#yFhu$\"+,CK( >\"F27$$\"+JQ2MyFhu$\"+;+,*>\"F27$$\"+%RHp%yFhu$\"+yc()*>\"F27$$\"+d\\ yfyFhu$\"+5e\"**>\"F27$$\"+#3'\\&)yFhu$\"+KA_(>\"F27$$\"+2s?6zFhu$\"+( yo=>\"F27$$\"+Q:/lzFhu$\"+9&[*p6F27$$\"+pe()=!)Fhu$\"+k!*yN6F27$$\"+MI zX!)Fhu$\"+Y%e[6\"F27$$\"+*>5F2)Fhu$\"+&\\]=4\"F27$$\"+lti*4)Fhu$\"+O8 =n5F27$$\"+IXaE\")Fhu$\"+KrHT5F27$$\"+f*oC:)Fhu$\"+1fl:5F27$$\"+*Q$Ry \")Fhu$\"+6+_(*)*Fbr7$$\"+=yJ/#)Fhu$\"+!R+-k*Fbr7$$\"+ZACI#)Fhu$\"+Gw \"*)Q*Fbr7$$\"+xm;c#)Fhu$\"+iy)y9*Fbr7$$\"+164#G)Fhu$\"+Z^:@*)Fbr7$$\" +Nb,3$)Fhu$\"+5P_7()Fbr7$$\"+l*RRL)Fhu$\"+mS\\D&)Fbr7$$\"+6H'pQ)Fhu$\" +r%fHA)Fbr7$$\"+ee)*R%)Fhu$\"+*y&fW!)Fbr7$$\"+&fTKX)Fhu$\"++H2@!)Fbr7$ $\"+Jt\\m%)Fhu$\"+\"**Ri+)Fbr7$$\"+oIvz%)Fhu$\"+!>i,+)Fbr7$$\"+0)3I\\) Fhu$\"+*=mG+)Fbr7$$\"+y-_>&)Fhu$\"+!eLX.)Fbr7$$\"+`<.Y&)Fhu$\"+Plo+\") Fbr7$$\"+Uch)f)Fhu$\"+sc!)G$)Fbr7$$\"+K&*>^')Fhu$\"++\\yr')Fbr7$$\"+x9 \\x')Fhu$\"+$*yCz))Fbr7$$\"+AMy.()Fhu$\"+$[^g5*Fbr7$$\"+n`2I()Fhu$\"+^ L&y5F27$$\"+9ZK,*)Fhu$\"+0g7+6F27$$\"+\"G%[ D*)Fhu$\"+W&f-7\"F27$$\"+\\Qk\\*)Fhu$\"+x.kQ6F27$$\"+GI-0!*Fhu$\"+laws 6F27$$\"+3ASg!*Fhu$\"+6)GP>\"F27$$\"+.qCu!*Fhu$\"+b=q'>\"F27$$\"+)z\"4 )3*Fhu$\"+)oK()>\"F27$$\"+$fO>5*Fhu$\"+#e6)*>\"F27$$\"+)Q\"y:\"*Fhu$\" +qL$**>\"F27$$\"+y4ZV\"*Fhu$\"+!)yI(>\"F27$$\"+p0;r\"*Fhu$\"+ik!4>\"F2 7$$\"+nBp?#*Fhu$\"+&Qm/<\"F27$$\"+mTAq#*Fhu$\"+*3C'R6F27$$\"+l+*\\H*Fh u$\"+h$o37\"F27$$\"+lfv>$*Fhu$\"+N;E+6F27$$\"+k=_W$*Fhu$\"+&[>\"y5F27$ $\"+lxGp$*Fhu$\"+-5ya5F27$$\"+yLp&R*Fhu$\"+y@)*G5F27$$\"+$**)4A%*Fhu$ \"+*))yE+\"F27$$\"+2Y][%*Fhu$\"+y'*Gj(*Fbr7$$\"+A-\"\\Z*Fhu$\"+%p5R]*F br7$$\"+PeJ,&*Fhu$\"+$pmJD*Fbr7$$\"+^9sF&*Fhu$\"+L@U:!*Fbr7$$\"+mq7a&* Fhu$\"+d_\"[z)Fbr7$$\"+!oK0e*Fhu$\"+`f=&f)Fbr7$$\"+k(z5j*Fhu$\"+M-&QG) Fbr7$$\"+[oi\"o*Fhu$\"+d;b\"3)Fbr7$$\"+!R+pq*Fhu$\"+`TgD!)Fbr7$$\"+KR< K(*Fhu$\"+XM9,!)Fbr7$$\"+.2\"[u*Fhu$\"+#Qi3+)Fbr7$$\"+uuWd(*Fhu$\"+>'f &3!)Fbr7$$\"+XU3q(*Fhu$\"+RW?C!)Fbr7$$\"+<5s#y*Fhu$\"+2WtZ!)Fbr7$$\"+i 2/P)*Fhu$\"+'y@eB)Fbr7$$\"+30O\"*)*Fhu$\"+.tC`&)Fbr7$$\"+\"Q?&=**Fhu$ \"+)\\ " 0 " " {MPLTEXT 1 0 27 "f:= x -> 100 + 20*sin(5*x);" }{TEXT -1 0 "" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"fGR6#%\"xG6\"6$%)operatorG%&arrowG F(,&\"$+\"\"\"\"*&\"#?F.-%$sinG6#,$9$\"\"&F.F.F(F(F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "D(f);" }{TEXT -1 0 "" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#R6#%\"xG6\"6$%)operatorG%&arrowGF&,$-%$cosG6#,$9$\"\"& \"$+\"F&F&F&" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 51 "a) The womans bl ood pressure changes at a rate of " }}{PARA 0 "" 0 "" {XPPEDIT 18 0 "d f/dx = 100 *cos(5x)" "6#/*&%#dfG\"\"\"%#dxG!\"\"*&\"$+\"F&-%$cosG6#*& \"\"&F&%\"xGF&F&" }{TEXT -1 3 ". " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 37 "fsolve(100 * cos( 5*x) = 0, x, 0..1);" }{TEXT -1 0 " " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+aEfTJ!#5" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 36 "fsolve(100* cos(5*x) = 0, x, .5..1);" }{TEXT -1 0 "" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+hzxC%*!#5" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "fsolve(100* cos(5*x) = 0, x, 1..2); " }{TEXT -1 0 "" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+Fjzq:!\"*" }}} {EXCHG {PARA 0 "" 0 "" {TEXT -1 34 "b) Since f takes on max min when \+ " }{XPPEDIT 18 0 "df/dx = 0" "6#/*&%#dfG\"\"\"%#dxG!\"\"\"\"!" }{TEXT -1 14 ", we see that " }}{PARA 0 "" 0 "" {TEXT -1 57 "f has a max when x is about .3141592654 and 1.570796327. " }}{PARA 0 "" 0 "" {TEXT -1 47 "Also, f has a min when x is about .942477796. " }}{PARA 0 "" 0 " " {TEXT -1 38 "We otained these estimates by setting " }{XPPEDIT 18 0 "df/dx = 0" "6#/*&%#dfG\"\"\"%#dxG!\"\"\"\"!" }{TEXT -1 2 ". " }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "f(.3141592654);" }{TEXT -1 0 "" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"$?\"\"\"!" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "f(.9424777961);" }{TEXT -1 0 "" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"#!)\"\"!" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "f(1.570796327);" }{TEXT -1 0 "" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"$?\"\"\"!" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 64 "c) We see the max blood pressure is 120 and the minimum is 80. " }} {PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "1.570796327 - .3141592654;" }{TEXT -1 0 "" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+iqjc7!\"*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "60 / 1.256637062;" }{TEXT -1 0 "" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+\"H[Yx%!\")" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 53 "d) Each heartbeat takes approx 1.256637062 seconds. " }}{PARA 0 "" 0 "" {TEXT -1 49 "She has approximately 48 heartbeats per minute. " }}} {EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT 257 9 "Ex ample 3" }}{PARA 0 "" 0 "" {TEXT -1 88 "\nA triangle is formed in the \+ first quadrant by a tangent line to the graph of the curve " }}{PARA 0 "" 0 "" {TEXT -1 12 " " }{XPPEDIT 18 0 "y = e^(-x)" "6#/ %\"yG)%\"eG,$%\"xG!\"\"" }{TEXT -1 1 " " }}{PARA 0 "" 0 "" {TEXT -1 117 "and the coordinate axes. What is the area of the largest such tr iangle? First let's see a diagram of the situation." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 667 "f := x->exp(-x);\na1 := 1.5: a2 := 2.5: \neqTanLine := (x,a) -> f(a) + (x-a) * D(f)(a):\nb1 := solve( eqTanLin e(x,a1)=0, x):\nb2 := solve( eqTanLine(x,a2)=0, x):\ngraph := plot( f( x), x = 0..5, thickness=2):\ntanLine1 := plot( eqTanLine(x,a1), x = 0. .b1, color=blue, thickness=2):\ntanLine2 := plot( eqTanLine(x,a2), x = 0..b2, color=green, thickness=2):\nline1 := line( [0, 0],[b1, 0], col or=blue, thickness=2):\nline2 := line( [0, 0],[0, eqTanLine(0,a1)], co lor=blue, thickness=2):\nline3 := line( [0, 0],[b2,0], color=green, th ickness=2):\nline4 := line( [0, 0],[0, eqTanLine(0,a2)], color=green, \+ thickness=2):\ndisplay( graph, tanLine1, tanLine2, line1, line2,line3, line4); " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"fGR6#%\"xG6\"6$%)ope ratorG%&arrowGF(-%$expG6#,$9$!\"\"F(F(F(" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6+-%'CURVESG6%7U7$$\"\"!F)$\"\"\"F) 7$$\"3WmmmT&)G\\a!#>$\"37d,(4Y_'p%*!#=7$$\"3GLLL3x&)*3\"F2$\"3IL)[e'F27$$\"3emm\"z%4\\Y_F2$\"3\"4w)\\1)Hw\"fF27$$\"3`LLeR-/PiF2$\"3 oD$3?kb&f`F27$$\"3]***\\il'pisF2$\"3Arb6*G+r$[F27$$\"3>MLe*)>VB$)F2$\" 3kKjNAtG]VF27$$\"3Y++DJbw!Q*F2$\"3jM'RI5*z8RF27$$\"3%ommTIOo/\"!#<$\"3 j1n;))fY5NF27$$\"3YLL3_>jU6Fbo$\"3/4,D-Qy*=$F27$$\"37++]i^Z]7Fbo$\"3?1 (H'GpojGF27$$\"33++](=h(e8Fbo$\"3'G4nbG*ypDF27$$\"3/++]P[6j9Fbo$\"33PT 1>-9:BF27$$\"3UL$e*[z(yb\"Fbo$\"3/BLOTY#e5#F27$$\"3wmm;a/cq;Fbo$\"3M5' fM\"fT\")=F27$$\"3%ommmJFbo$\"3=3I<1\\8(Q\"F27$$\"3K+]i!f#=$3#F bo$\"3o+a2DCLX7F27$$\"3?+](=xpe=#Fbo$\"3?\"Rv@Y*zB6F27$$\"37nm\"H28IH# Fbo$\"3KcCQyzh45F27$$\"3um;zpSS\"R#Fbo$\"3CtBSo>6]\"*F/7$$\"3GLL3_?`( \\#Fbo$\"3))R78JIyG#)F/7$$\"3fL$e*)>pxg#Fbo$\"3G-it!yw)ptF/7$$\"33+]Pf 4t.FFbo$\"3k7vI()Q_&p'F/7$$\"3uLLe*Gst!GFbo$\"3It!y8>IFbo$\"3Srf.&[jS)[F/7$$\"3F+]i!RU 07$Fbo$\"3cy'ezWALT%F/7$$\"3+++v=S2LKFbo$\"3#)Q_^+&3O%RF/7$$\"3Jmmm\"p )=MLFbo$\"3i)=EYB\\Vc$F/7$$\"3B++](=]@W$Fbo$\"3S!3h6V\"e*>$F/7$$\"35L$ e*[$z*RNFbo$\"3&e,\"QCER,HF/7$$\"3e++]iC$pk$Fbo$\"3O\")p:&*z42EF/7$$\" 3[m;H2qcZPFbo$\"3EozF-M]dBF/7$$\"3O+]7.\"fF&QFbo$\"3!>?AuV5@7#F/7$$\"3 Ymm;/OgbRFbo$\"3GU#*oy2r9>F/7$$\"3w**\\ilAFjSFbo$\"3_,O7*zm#>#[Z%Fbo$\"3B!\\#*=1D# R6F/7$$\"3SnmT&G!e&e%Fbo$\"3?pz\"=/$y>5F/7$$\"3#RLLL)Qk%o%Fbo$\"3x%*)= %GJ-O#*!#?7$$\"37+]iSjE!z%Fbo$\"3y:VjJPC5$)Fdz7$$\"3a+]P40O\"*[Fbo$\"3 Yu)pqY'>6vFdz7$$\"\"&F)$\"3+na3**p%zt'Fdz-%'COLOURG6&%$RGBG$\"#5!\"\"F (F(-%*THICKNESSG6#\"\"#-F$6%7S7$F($\"3_+++.SDybF27$F-$\"3e#oE0%RmcaF27 $$\"3PL$ek`o!>5F2$\"3))zrIx!p3N&F27$$\"3omm\"z>)G_:F2$\"3m9v())o\"*=B& F27$$\"3-nmT&QU!*3#F2$\"3k$H'3Tc77^F27$$\"3HL$eRZXKi#F2$\"3/xST?)GH*\\ F27$$\"3xm;z>,_=JF2$\"3m9eR4\"=C)[F27$$\"3v**\\7G$[8j$F2$\"3'=gm\"p1*z w%F27$$\"35n;z%*frhTF2$\"3-09zY'\\'\\YF27$$\"3A+]ilFQ!p%F2$\"3Y8edX\") oJXF27$$\"3@ML$3_\"=M_F2$\"3I(*REU-N5WF27$$\"3HnmTg(fJr&F2$\"3\\^8)4vv MI%F27$$\"3k++]7eP_iF2$\"3s2:&pQgJ=%F27$$\"3Q++]Pf!Qz'F2$\"3q%Hxk*4NiS F27$$\"3@++](=ubJ(F2$\"3A)p>LwGf%RF27$$\"37n;zW(*Q*y(F2$\"3iPL;Ai?SQF2 7$$\"3#QLL3F-GN)F2$\"3H:`-&*=\\9PF27$$\"3=MLL$e'3I))F2$\"3jrR'*p`*zg$F 27$$\"3?+]7.\"Fbo$\"3W pz@Q@G5HF27$$\"3km;/Egw[7Fbo$\"39A)=)p.)=z#F27$$\"3zm\"z%*f%)QI\"Fbo$ \"3'>*Gm3U*)oEF27$$\"3/+voza'=N\"Fbo$\"3!*[m$QRM=c#F27$$\"3(om\"zWho.9 Fbo$\"3kO[#3'o?YCF27$$\"3-++]i>Ad9Fbo$\"3k)Qh]I_nK#F27$$\"32+]i:jf4:Fb o$\"3tOA3F$*))4AF27$$\"39+DJ&>r-c\"Fbo$\"3'\\.0pQ=o4#F27$$\"3++]P4q`;; Fbo$\"3A6e!fQs7(>F27$$\"3;LL$eM%4n;Fbo$\"3qOS7?PYe=F27$$\"37++v$4v5s\" Fbo$\"32+W(3R;!QFbo$\"3mJ\\YD-#*z7F27$$\"3CLL3-=!y(>Fbo$\"3!Qx]bn\"=l6F27$$\"3))*\\7G 8O;.#Fbo$\"3m?g?Z51X5F27$$\"3!pmm;*\\[$3#Fbo$\"3u]pMagq$H*F/7$$\"3*pmT &Qz]O@Fbo$\"3m\"pF=>/16)F/7$$\"3iLekG=4*=#Fbo$\"3yR`15!*HPpF/7$$\"3F++ ]i4TPAFbo$\"3e')zy-M:feF/7$$\"3qL$3F9!z#H#Fbo$\"3Nm(y\"ooZBYF/7$$\"3'p mm;%>KUBFbo$\"3\"QQ<]/t#=NF/7$$\"3/+DJqJ8&R#Fbo$\"3%f8NZD&*)RBF/7$$\"3 G+voa-oXCFbo$\"3HIp\"=NP?@\"F/7$$\"3++++++++DFbo$\"3+b=q8/++]!#G-Fe[l6 &Fg[lF(F($\"*++++\"!\")F[\\l-F$6%7S7$F($\"3w*****>&\\(H(GF27$$\"3+LLLe R+HwF/$\"3LB31uAN5GF27$$\"3'omT5&fpE9F2$\"3m%eFohkev#F27$$\"3MLL3xM?t@ F2$\"3INEeZve%p#F27$$\"3oLLeR$fY#HF2$\"3`Jj9%H/Hj#F27$$\"3'pmTNmVDn$F2 $\"3O#HY/@9:d#F27$$\"3OL$3x;GfO%F2$\"39U'yVu(f9DF27$$\"3U+]Pfw)Q3&F2$ \"3)y'f\\SSmbCF27$$\"3;M$3FR-k#eF2$\"3Mr\\j>Zr%R#F27$$\"3)***\\(=(e`ml F2$\"3\"*f*=S'3'RL#F27$$\"3nnm;HT&yK(F2$\"3]#z>f0o9F#F27$$\"3'RL$ekOU) *zF2$\"3S,0`cVU;AF27$$\"3a,+]PhK`()F2$\"3C-H3)=eW:#F27$$\"3L++]7$G8^*F 2$\"3;qSf!ePA4#F27$$\"33++D'Q!=C5Fbo$\"3Jw.3'\\wA.#F27$$\"3OL3FkX^!4\" Fbo$\"3%pQnp3Ey(>F27$$\"3wmm\"zJ#Rp6Fbo$\"3pF27$$\"3$omm;77i B\"Fbo$\"3]V'*)*[-Be=F27$$\"30+vVQ%RRJ\"Fbo$\"35U44#yFWz\"F27$$\"3kmm; %GTFQ\"Fbo$\"3:@O(zy^zt\"F27$$\"3=+vV8yAe9Fbo$\"3]rLYr'))fn\"F27$$\"3F +DJS)3,`\"Fbo$\"3'f)\\aJ^)ph\"F27$$\"3&omT5:4^g\"Fbo$\"3'Q&z^F6Ub:F27$ $\"3#o;a)[G)Rn\"Fbo$\"37?!>O:')))\\\"F27$$\"3IL$ekVs#[8F27$$\"3[L$3Fgg^'>Fbo$\"3Y!3'Q)*G()f7F27$$\"3******\\Z26S?Fbo$\"3;` \"oI2]$)>\"F27$$\"3>+](=%[V8@Fbo$\"3r1B@\"*>;Q6F27$$\"3G+vVt'zV=#Fbo$ \"3;nK?Fp#*z5F27$$\"3#***\\78=:jAFbo$\"3UQyU(F/7$$\"35+v=s8$pp#Fbo$\"3_JadB())>f'F/7$$\"3umm\"H_A* oFFbo$\"3&[%)\\FP\\5+'F/7$$\"3$)*\\Pfe!HWGFbo$\"33JT%yj!R#Q&F/7$$\"3#R LL$))*yo\"HFbo$\"3aC^zY([ly%F/7$$\"3_L$eR666*HFbo$\"3w]j%QN9s<%F/7$$\" 3;nT5g&GZ1$Fbo$\"33![1*4KFbo$\"3[ar(>#\\B\"Q#F/7$$\"3[LLL=2DzKFbo$\"3:Hu4^/-7=F/7$ $\"33+vVQk=`LFbo$\"3;3b#G5>^?\"F/7$$\"3I+DccB&RU$Fbo$\"35s8iO2PUiFdz7$ $\"3++++++++NFbo$\"3))*)f5(p%****HFc[m-Fe[l6&Fg[lF(Ff[mF(F[\\l-F$6%7$7 $F(F(7$$\"+++++D!\"*F(Fd[mF[\\l-F$6%7$Fd[n7$F($\"+.SDyb!#5Fd[mF[\\l-F$ 6%7$Fd[n7$$\"+++++NFh[nF(F_[nF[\\l-F$6%7$Fd[n7$F($\"+_\\(H(GF_\\nF_[nF [\\l-%+AXESLABELSG6%Q\"x6\"Q!6\"%(DEFAULTG-%%VIEWG6$;F(F`[lFc]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" "Curve 4" "Curve 5" "Curve 6" "Curve 7" }}}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 87 "From the above plot we see that the triangle ch anges with our choice of tangent lines. " }}{PARA 0 "" 0 "" {TEXT -1 71 "We need to find a tangent line that gives a triangle of maximal a rea. " }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 40 "Find the x-intercept of \+ a tangent line. " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "solve( \+ exp(-a)-exp(-a)*(x-a)=0,x);" }{TEXT -1 0 "" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,&\"\"\"F$%\"aGF$" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 64 "So, the x-intercept of the tangent line when x = a is: 1 + a. " }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 40 "Find the y-intercept of a tange nt line. " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "tl(0,a);" } {TEXT -1 0 "" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%#tlG6$\"\"!%\"aG" }} }{EXCHG {PARA 0 "" 0 "" {TEXT -1 57 "So, the y-intercept of the tangen t line when x = a is: " }{XPPEDIT 18 0 "exp(-a)+exp(-a)*a;" "6#,&-%$ expG6#,$%\"aG!\"\"\"\"\"*&-F%6#,$F(F)F*F(F*F*" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 69 "Thus using the tangent line for x = a we have that th e triangle has " }}{PARA 0 "" 0 "" {TEXT -1 10 "height = " }{XPPEDIT 18 0 "e^(-a) + a* e^(-a)" "6#,&)%\"eG,$%\"aG!\"\"\"\"\"*&F'F))F%,$F'F( F)F)" }{TEXT -1 7 " and " }}{PARA 0 "" 0 "" {TEXT -1 62 "base = 1 + \+ a. We can now calculate the area of the triangle. " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 41 "A:= 0.5 * (exp(-a)+exp(-a)*a) * ( 1 + a); " }{TEXT -1 0 "" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"AG,$*&,&-%$expG 6#,$%\"aG!\"\"\"\"\"*&F(F.F,F.F.F.,&F.F.F,F.F.$\"\"&F-" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "plot(A(a), a = 0..5);" }{TEXT -1 0 "" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6%-%'CURVESG6 $7U7$$\"\"!F)$\"\"&!\"\"7$$\"+4x&)*3\"!#5$\"+vaH9bF07$$\"+uq8Q?F0$\"+S %3)4fF07$$\"+(RwX5$F0$\"+:!e[H'F07$$\"+sZ3yTF0$\"+lKS=mF07$$\"+]4\\Y_F 0$\"+qv#z(oF07$$\"+U-/PiF0$\"+&z0]1(F07$$\"+fmpisF0$\"+giH2sF07$$\"+#* >VB$)F0$\"+:[+.tF07$$\"+j()4_))F0$\"+&QDCL(F07$$\"+Mbw!Q*F0$\"++,R]tF0 7$$\"+#HkX#**F0$\"+&)Q[dtF07$$\"+0j$o/\"!\"*$\"+Ioh`tF07$$\"+_>jU6Fbo$ \"+lS%>K(F07$$\"+j^Z]7Fbo$\"+v%pa'F07$$\"+Tj0x=Fbo$\"+IZ!RL'F07$$\"+#pW`( >Fbo$\"+qz#*RhF07$$\"+\"f#=$3#Fbo$\"+!Hu!>fF07$$\"+t(pe=#Fbo$\"++4:.dF 07$$\"+uI,$H#Fbo$\"+5f6uaF07$$\"+rSS\"R#Fbo$\"+bi0i_F07$$\"+`?`(\\#Fbo $\"+NU-L]F07$$\"++#pxg#Fbo$\"+)G:jz%F07$$\"+g4t.FFbo$\"+HOL#f%F07$$\"+ !Hst!GFbo$\"+KY;vVF07$$\"+ERW9HFbo$\"+ao6bTF07$$\"+KE>>IFbo$\"+_f$[%RF 07$$\"+#RU07$Fbo$\"+88mYPF07$$\"+?S2LKFbo$\"+-%fK`$F07$$\"+$p)=MLFbo$ \"+m\"\\yM$F07$$\"+*=]@W$Fbo$\"+](=o:$F07$$\"+]$z*RNFbo$\"+1+4!*HF07$$ \"+kC$pk$Fbo$\"+m7)[\"GF07$$\"+3qcZPFbo$\"+CZ$ol#F07$$\"+/\"fF&QFbo$\" +!o2()\\#F07$$\"+0OgbRFbo$\"+US2^BF07$$\"+nAFjSFbo$\"+%f=Q?#F07$$\"+&) *pp;%Fbo$\"+A\"\\*o?F07$$\"+ye,tUFbo$\"+gF%z$>F07$$\"+fO=yVFbo$\"+IWw9 =F07$$\"+E>#[Z%Fbo$\"+%4Qtq\"F07$$\"+(G!e&e%Fbo$\"+?cz!f\"F07$$\"+&)Qk %o%Fbo$\"+m&=B\\\"F07$$\"+UjE!z%Fbo$\"+k`4$R\"F07$$\"+60O\"*[Fbo$\"+ly \\.8F07$$F+F)$\"+g/$G@\"F0-%'COLOURG6&%$RGBG$\"#5F,F(F(-%+AXESLABELSG6 $Q\"a6\"Q!6\"-%%VIEWG6$;F(F_[l%(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 "" {TEXT -1 87 "From the plot of the area function (area of the triangle) , we see that there is indeed " }}{PARA 0 "" 0 "" {TEXT -1 83 "a maxim um. We need to precisely locate for what a values does this maximum o ccur. " }}{PARA 0 "" 0 "" {TEXT -1 16 "At this maximum " }{XPPEDIT 18 0 "dA/da = 0" "6#/*&%#dAG\"\"\"%#daG!\"\"\"\"!" }{TEXT -1 16 ". So, w e solve " }{XPPEDIT 18 0 "dA/da = 0" "6#/*&%#dAG\"\"\"%#daG!\"\"\"\"! " }{TEXT -1 2 ". " }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 47 "AA:= a -> 0.5 * (exp(-a)+exp(-a)*a) * ( 1 + \+ a);" }{TEXT -1 0 "" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#AAGR6#%\"aG6 \"6$%)operatorG%&arrowGF(,$*&,&-%$expG6#,$9$!\"\"\"\"\"*&F/F5F3F5F5F5, &F3F5F5F5F5$\"\"&F4F(F(F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "diff(AA(a),a);" }{TEXT -1 0 "" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#, (*(-%$expG6#,$%\"aG!\"\"\"\"\"F)F+,&F+F+F)F+F+$!\"&F**&$\"\"&F*F+F%F+F +*(F0F+F%F+F)F+F+" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "solve( % = 0, a);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$$\"\"\"\"\"!$!\"\"F%" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "plot(A(a), a = -2..3);" } {TEXT -1 0 "" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6% -%'CURVESG6$7jn7$$!\"#\"\"!$\"+]!GXp$!\"*7$$!+dNvs>F-$\"+;\"z>S$F-7$$! +9r]X>F-$\"+R@oFJF-7$$!+s1E=>F-$\"+)oF2(GF-7$$!+HU,\"*=F-$\"+adCIEF-7$ $!+XsIn=F-$\"+SovLCF-7$$!+h-gV=F-$\"+YDe[AF-7$$!+xK*)>=F-$\"+_t@u?F-7$ $!+$H'='z\"F-$\"+e^<5>F-7$$!+EV'Gu\"F-$\"+k8aw:F-7$$!+gBa*o\"F-$\"+Wr! yG\"F-7$$!+Up'ej\"F-$\"+')z)y.\"F-7$$!+B:>#e\"F-$\"+?T\"fC)!#57$$!+97x G:F-$\"+I'f#[kFdo7$$!+04Nv9F-$\"+fi4S\\Fdo7$$!+wfHw8F-$\"+a\"*z.GFdo7$ $!+M.tt7F-$\"+!zG!R8Fdo7$$!+oNp?7F-$\"+SA[a#)!#67$$!+,oln6F-$\"+w%>x^% F^q7$$!+C,z96F-$\"+%o^(3?F^q7$$!+ZM#>1\"F-$\"+!QoXa&!#77$$!+rNa25F-$\" +&))=Gz(!#97$$!*&pjJ&*F-$\"+=S/XGF^r7$$!+:(eE0*Fdo$\"+;%>&46F^q7$$!*[! ot&)F-$\"+)ytuR#F^q7$$!*P[_\\(F-$\"+SAkPmF^q7$$!*7)Q7kF-$\"+g#*)>A\"Fd o7$$!*i^)o`F-$\"+kG[M=Fdo7$$!*^?7U%F-$\"+36O@CFdo7$$!*X&R%H$F-$\"+36]D JFdo7$$!*$o#)RBF-$\"+g$etq$Fdo7$$!*fO%H7F-$\"+qPH\\VFdo7$$!)3`lCF-$\"+ Im@v[Fdo7$$\")\"f#=$)F-$\"+XI=)R&Fdo7$$\"*t(pe=F-$\"+DcxQeFdo7$$\"*uI, $HF-$\"+IkAOiFdo7$$\"*rSS\"RF-$\"+DFtWlFdo7$$\"*`?`(\\F-$\"+N/%y\"oFdo 7$$\"*+#pxgF-$\"+I5GQqFdo7$$\"*g4t.(F-$\"+X\"\\.=(Fdo7$$\"*!Hst!)F-$\" +SC(\\G(Fdo7$$\"*ERW9*F-$\"+S5uVtFdo7$$\"+KE>>5F-$\"++c\"pN(Fdo7$$\"+# RU07\"F-$\"+gR$>L(Fdo7$$\"+?S2L7F-$\"+N6RlsFdo7$$\"+$p)=M8F-$\"+N@#[<( Fdo7$$\"+*=]@W\"F-$\"+0f7]qFdo7$$\"+]$z*R:F-$\"+If`:pFdo7$$\"+kC$pk\"F -$\"+q!>%[nFdo7$$\"+3qcZF-$\"+:p^zhFdo7$$\"+nAFj?F-$\"+]IPgfFdo7$$\"+&)*pp;#F-$\"+l7@V dFdo7$$\"+ye,tAF-$\"+5M1#[Z#F-$ \"+Sw)>3&Fdo7$$\"+(G!e&e#F-$\"+-RzV[Fdo7$$\"+&)Qk%o#F-$\"+')*3Fj%Fdo7$ $\"+UjE!z#F-$\"+)RZ2T%Fdo7$$\"+60O\"*GF-$\"+/\\9-UFdo7$$\"\"$F*$\"+qa' H)RFdo-%'COLOURG6&%$RGBG$\"#5!\"\"$F*F*Fd_l-%+AXESLABELSG6$Q\"a6\"Q!6 \"-%%VIEWG6$;F(Fi^l%(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 "" {TEXT -1 34 "From the plot, we see that indeed " }{XPPEDIT 18 0 "dA/da = 0" "6# /*&%#dAG\"\"\"%#daG!\"\"\"\"!" }{TEXT -1 15 " for a = -1,1. " }}{PARA 0 "" 0 "" {TEXT -1 48 "We are only interested in positive values of a. " }}{PARA 0 "" 0 "" {TEXT -1 65 "Thus the answer is that the area of \+ the triangle is largest when " }}{PARA 0 "" 0 "" {TEXT -1 32 "the tang ent line is for x = 1. " }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }} {PARA 0 "" 0 "" {TEXT 258 9 "Example 4" }}{PARA 0 "" 0 "" {TEXT -1 0 " " }}{PARA 0 "" 0 "" {TEXT -1 83 "A cone is to be formed by revolving a right triangle with a hypotenuse of length 3" }}{PARA 0 "" 0 "" {TEXT -1 88 " feet about one of its legs. What is the volume of the l argest cone that can be formed " }}{PARA 0 "" 0 "" {TEXT -1 39 "in thi s manner? See the diagram below." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 305 "c := cone([0,0,4], sqrt(8), -4, color=green):\nt := \+ pointplot3d([[0,0,0], [sqrt(8),0,0], [0,0,4],[0,0,0]], connect=true, c olor=black, thickness=2):\nground := plot3d(0,x=-3..3,y=-3..3,color=gr ey,grid=[5,10], style=patchnogrid):\ndisplay([c,t,ground],scaling=cons trained,style=wireframe, orientation=[40,60]);" }}{PARA 13 "" 1 "" {GLPLOT3D 400 300 300 {PLOTDATA 3 "6)-%)POLYGONSG6^_m7<7%$\"+4C\")f5!# C$\"\"!F,$\"\"%F,7%$\"+x,qB5F*$\"+ej*Hu#!#DF-7%$\"+(pW#y\"*F4$\"+Z?1*H &F4F-7%$\"+9a+%\\(F4F;F-7%F8F6F-7%F2F0F-7%$\"+)=u@r\"!#RF(F-7%$!+ej*Hu #F4F0F-7%$!+Z?1*H&F4F6F-7%$!+9a+%\\(F4F;F-7%$!+(pW#y\"*F4F8F-7%$!+x,qB 5F*F2F-7%$!+4C\")f5F*$\"+w$[VU$FBF-7%FPFDF-7%FMFGF-7%FJFJF-7%FGFMF-7%F DFPF-7%$!+Op>,\\FBFSF-7%F2FPF-7%F8FMF-7%F;FJF-7%F6FGF-7%F0FDF-7%F($!+^ np[oFBF-F'7&7%$\"+CrUGG!\"*F+F+7%$\"+%*fd5FFeoF+$\"*nmmm\"Feo7%$\"+d`@ =EFeo$\"+/p[:q!#5Fio7%$\"+230KFFeo$\"+u!30K(F`pF+7&Ffo7%$\"+k[s#f#FeoF +$\"*LLLL$Feo7%$\"+1*zV]#Feo$\"+MdY5nF`pFjpF[p7&Fgp7%$\"+MP([Z#FeoF+$ \"*++++&Feo7%$\"+cWa!R#Feo$\"+lXW0kF`pFeqF\\q7&Fbq7%$\"+.E-dBFeoF+$\"* nmmm'Feo7%$\"+1!4nF#Feo$\"+&RB/5'F`pF`rFgq7&F]r7%$\"+t9Feo$\"+'))f`=&F`pFatFhs7&F^t7%$\"+$3=c)=FeoF+$\"+LLLL8Fe o7%$\"+0sO@=Feo$\"+;(Q.)[F`pF\\uFct7&Fit7%$\"+`pwnX-\"Feo$ \"+G0>XFF`pFiyF`y7&Ffy7%$\"+8/4G%*F`pF+$\"+nmmmEFeo7%$\"+Bg$o5*F`p$\"+ e$p,W#F`pFdzF[z7&Faz7%$\"+7\"z&\\#)F`pF+$\"+LLLLGFeo7%$\"+?:[ozF`p$\"+ )=[^8#F`pF_[lFfz7&F\\[l7%$\"+5y1rqF`pF+$\"+++++IFeo7%$\"+Feo$\"+Pde>6FeoF[s Fh`l7&F]sFhs7%$\"+2t6P=Feo$\"+r,mg5FeoFfsF\\al7&FhsFct7%$\"+M_0NFeoF\\glFio7%$\"+** ******>FeoF_glF+7&Fe_lF^`l7%F]wF]wFjpF[gl7&F^`lFb`l7%$\"++++]Fbbm7&Ff_mFe_m7%$\"+Sj0zVF*FgoFio7 %$\"+%4]%pXF*FcoF+7&Fe_mFh_m7%$\"+'ei')=%F*FhpFjpFebm7&Fh_mFj_m7%$\"+L )o#)*RF*FcqFeqF\\cm7&Fj_mF\\`m7%$\"+z](y!QF*F^rF`rF`cm7&F\\`mF^`m7%$\" +D8[F*F\\yF^yFhem7&F`amFbam7%$\"+&yVNr\"F *FgyFiyF\\fm7&FbamFdam7%$\"+J+:B:F*FbzFdzF`fm7&FdamFfam7%$\"+yivK8F*F] [lF_[lFdfm7&FfamFham7%$\"+CDOU6F*Fh[lFj[lFhfm7&FhamFjam7%$\"+(p(o>&*F4 Fc\\lFe\\lF\\gm7&FjamF\\bm7%$\"+d,v:wF4F^]lF`]lF`gm7&F\\bmF^bm7%$\"+=E \"=r&F4Fi]lF[^lFdgm7&F^bmF`bm7%$FfcmF4Fe^lFf^lFhgm7&F`bmFbbm7%$F^fmF4F ]_lF^_lF\\hm7&FbbmF>F?F_hm7&FhbmFebm7%$!+/p[:qF`pF\\pFio7%$!+u!30K(F`p FbpF+7&FebmF\\cm7%$!+MdY5nF`pF]qFjpFchm7&F\\cmF`cm7%$!+lXW0kF`pFhqFeqF jhm7&F`cmFdcm7%$!+&RB/5'F`pFcrF`rF^im7&FdcmFhcm7%$!+DAS&z&F`pF^sF[sFbi m7&FhcmF\\dm7%$!+b5Q!\\&F`pFisFfsFfim7&F\\dmF`dm7%$!+'))f`=&F`pFdtFatF jim7&F`dmFddm7%$!+;(Q.)[F`pF_uF\\uF^jm7&FddmFhdm7%$!+YvJvXF`pFjuFguFbj m7&FhdmF\\em7%$!+wjHqUF`pFevFbvFfjm7&F\\emF`em7%$!+2_FlRF`pF`wF]wFjjm7 &F`emFdem7%$!+PSDgOF`pF[xFhwF^[n7&FdemFhem7%$!+nGBbLF`pFfxFcxFb[n7&Fhe mF\\fm7%$!+(p6-0$F`pFayF^yFf[n7&F\\fmF`fm7%$!+G0>XFF`pF\\zFiyFj[n7&F`f mFdfm7%$!+e$p,W#F`pFgzFdzF^\\n7&FdfmFhfm7%$!+)=[^8#F`pFb[lF_[lFb\\n7&F hfmF\\gm7%$!+=q7I=F`pF]\\lFj[lFf\\n7&F\\gmF`gm7%$!+\\e5D:F`pFh\\lFe\\l Fj\\n7&F`gmFdgm7%$!+zY3?7F`pFc]lF`]lF^]n7&FdgmFhgm7%$!+#4N1:*Fb^lF^^lF [^lFb]n7&FhgmF\\hm7%$FdimFb^lFi^lFf^lFf]n7&F\\hmF_hm7%$F\\\\nFb^lFa_lF ^_lFj]n7&F_hmF?FCF]^n7&FfhmFchm7%$!+(*zGb8FeoFf_lFio7%$!+iN@99FeoF[`lF +7&FchmFjhm7%$!+KCO'H\"FeoF_`lFjpFa^n7&FjhmF^im7%$!+noVP7FeoFc`lFeqFh^ n7&F^imFbim7%$!+-8^y6FeoFi`lF`rF\\_n7&FbimFfim7%$!+Pde>6FeoF]alF[sF`_n 7&FfimFjim7%$!+r,mg5FeoFcalFfsFd_n7&FjimF^jm7%$!+1Yt,5FeoFialFatFh_n7& F^jmFbjm7%$!+8/4G%*F`pF_blF\\uF\\`n7&FbjmFfjm7%$!+iZ$)Q))F`pFcblFguF`` n7&FfjmFjjm7%$!+7\"z&\\#)F`pFiblFbvFd`n7&FjjmF^[n7%$!+hMKgwF`pF]clF]wF h`n7&F^[nFb[n7%$!+5y1rqF`pFcclFhwF\\an7&Fb[nFf[n7%$!+f@\"=['F`pFgclFcx F`an7&Ff[nFj[n7%$!+3lb#*eF`pF]dlF^yFdan7&Fj[nF^\\n7%$!+d3I.`F`pFadlFiy Fhan7&F^\\nFb\\n7%$!+2_/9ZF`pFgdlFdzF\\bn7&Fb\\nFf\\n7%$!+c&*yCTF`pF[e lF_[lF`bn7&Ff\\nFj\\n7%$!+0R`NNF`pFaelFj[lFdbn7&Fj\\nF^]n7%$!+a#yi%HF` pFeelFe\\lFhbn7&F^]nFb]n7%$!+.E-dBF`pF[flF`]lF\\cn7&Fb]nFf]n7%$!+_pwn< F`pF_flF[^lF`cn7&Ff]nFj]n7%$Fb_nF`pFdflFf^lFdcn7&Fj]nF]^n7%$FjanFb^lFg flF^_lFhcn7&F]^nFCFFF[dn7&Fd^nFa^n7%$!+mmm;>FeoF\\glFio7%$!+********>F eoF_glF+7&Fa^nFh^n7%$!+LLLL=FeoF]wFjpF_dn7&Fh^nF\\_n7%$!++++]FeoF_alF[sF\\[o7&FbenFfen7%$!+2t6P=FeoFgyFfsF`[o7&FfenFjen7%$!+M_ 0NFeoFftFatFbao7&Fh[oF\\\\o7%$!+0sO@=FeoFauF\\uFfao7&F\\\\oF`\\o7%$!+a <`2X-\"FeoF^zFiyFbco7&Fh]oF\\^o7%$!+Bg$o5*F`pFizFdzFfco7&F\\^oF`^o7%$!+ ?:[ozF`pFd[lF_[lFjco7&F`^oFd^o7%$!+(G!*>\"F`[qFefoFjpF][q7&F`hpFbhp7%$!+9u_W6F`[qF[goFeqFe[q7&FbhpFd hp7%$!+3h-!4\"F`[qFagoF`rFi[q7&FdhpFfhp7%$!+.[_N5F`[qFegoF[sF]\\q7&Ffh pFhhp7%$!+v\\B5)*F*F[hoFfsFa\\q7&FhhpFjhp7%$!+@>Al#*F*FahoFatFe\\q7&Fj hpF\\ip7%$!+n)3-s)F*FghoF\\uFi\\q7&F\\ipF^ip7%$!+7e>v\")F*F]ioFguF]]q7 &F^ipF`ip7%$!+eF=IwF*FbioFbvFa]q7&F`ipFbip7%$!+/(p^3(F*FhioF]wFe]q7&Fb ipFdip7%$!+]m:SlF*Fe^nFhwFi]q7&FdipFfip7%$!+'fV^*fF*Fi^nFcxF]^q7&FfipF hip7%$!+U08]aF*Fa_nF^yFa^q7&FhipFjip7%$!+([<^!\\F*FdjoFiyFe^q7&FjipF\\ jp7%$!+LW5gVF*Fa`nFdzFi^q7&F\\jpF^jp7%$!+z84:QF*Fi`nF_[lF]_q7&F^jpF`jp 7%$!+D$y+F$F*FaanFj[lFa_q7&F`jpFbjp7%$!+r_1DFF*FianFe\\lFe_q7&FbjpFdjp 7%$!+ " 0 "" {MPLTEXT 1 0 8 "restart:" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "evalf(Pi);" }{TEXT -1 0 "" } }{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+aEfTJ!\"*" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 43 "V:= (1/3) * (3.141592654) * (9 - b^2) * b;" } {TEXT -1 0 "" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"VG,$*&,&\"\"*\"\" \"*$)%\"bG\"\"#F)!\"\"F)F,F)$\"+^v>Z5!\"*" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 21 "plot(V(b), b = 0..3);" }{TEXT -1 0 "" }}{PARA 13 " " 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6%-%'CURVESG6$7U7$$\"\"!F)F( 7$$\"+]i9Rl!#6$\"+1?2gh!#57$$\"+WA)GA\"F0$\"+,Vi]6!\"*7$$\"+Qeui=F0$\" +R\"G)[fS*\\F0$\"+WiNwXF67$$\" +>$f%GcF0$\"+$>vz6&F67$$\"+Dy,\"G'F0$\"+*)4BgcF67$$\"+7&)\\\"F6$\"+! fP*f5Fer7$$\"+>:mk:F6$\"+=W_t5Fer7$$\"+w&QAi\"F6$\"+bm&=3\"Fer7$$\"+uL U%o\"F6$\"+?m0(3\"Fer7$$\"+bjm[F6$\"+*3XQ1\"Fer7$$\"+:K^+ ?F6$\"+ah.Z5Fer7$$\"+7,Hl?F6$\"+;&yR-\"Fer7$$\"+4w)R7#F6$\"+&)*pQ)**F6 7$$\"+y%f\")=#F6$\"+X#H9l*F67$$\"+/-a[AF6$\"+V&fpG*F67$$\"+ial6BF6$\"+ l6!4&))F67$$\"+i@OtBF6$\"+P\"\\'o$)F67$$\"+fL'zV#F6$\"+7=\"H!yF67$$\"+ !*>=+DF6$\"+`Zi(>(F67$$\"+E&4Qc#F6$\"+#)es:lF67$$\"+%>5pi#F6$\"+R%p]x& F67$$\"+bJ*[o#F6$\"+$Q!eO]F67$$\"+r\"[8v#F6$\"+#3j.7%F67$$\"+Ijy5GF6$ \"+LMEOKF67$$\"+/)fT(GF6$\"+m,([A#F67$$\"+b!)[/HF6$\"+YBH: " 0 "" {MPLTEXT 1 0 37 "VV:= b -> (1/3) * Pi * (9 - b^2) * b;" }{TEXT -1 0 "" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#VVGR6# %\"bG6\"6$%)operatorG%&arrowGF(,$*(%#PiG\"\"\",&\"\"*F/*$)9$\"\"#F/!\" \"F/F4F/#F/\"\"$F(F(F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "d iff(VV(b),b);" }{TEXT -1 0 "" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,&*&%# PiG\"\"\")%\"bG\"\"#F&#!\"#\"\"$*(#F&F,F&F%F&,&\"\"*F&*$F'F&!\"\"F&F& " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "solve(%=0,b);" }{TEXT -1 0 "" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$*$-%%sqrtG6#\"\"$\"\"\",$F#! \"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "evalf(sqrt(3));" } {TEXT -1 0 "" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+330K