{VERSION 3 0 "IBM INTEL NT" "3.0" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 1 0 0 0 0 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 0 }{CSTYLE "2D Comment" 2 18 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 } {CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 }{CSTYLE " " -1 256 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 257 "" 1 12 0 0 0 0 1 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 258 "" 1 12 0 0 0 0 0 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 } {CSTYLE "" -1 260 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 }{CSTYLE "" -1 261 "" 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 }{CSTYLE "" -1 262 "" 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 }{CSTYLE "" -1 263 "" 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 } {CSTYLE "" -1 264 "" 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 }{CSTYLE "" -1 265 "" 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 }{CSTYLE "" -1 266 "" 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 }{CSTYLE "" -1 267 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 } {CSTYLE "" -1 274 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 289 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 }{CSTYLE "" -1 290 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 291 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 } {CSTYLE "" -1 292 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 293 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 294 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 295 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 } {CSTYLE "" -1 296 "" 0 1 0 0 0 0 0 1 1 0 0 0 0 0 0 }{CSTYLE "" -1 297 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 }{CSTYLE "" -1 298 "" 0 1 0 0 0 0 0 1 1 0 0 0 0 0 0 }{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Headi ng 1" 0 3 1 {CSTYLE "" -1 -1 "" 1 18 0 0 0 0 0 1 0 0 0 0 0 0 0 }1 0 0 0 8 4 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 }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 } 1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Maple Plot" 0 13 1 {CSTYLE " " -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }} {SECT 0 {EXCHG {PARA 0 "" 0 "" {TEXT 259 10 "MATH-1850 " }{TEXT -1 3 " " }{TEXT 260 18 "COMPUTER PROBLEM 6" }{TEXT -1 55 " DUE: Tuesd ay, October 24, 2000, in your lab class" }}{PARA 0 "" 0 "" {TEXT -1 17 "\nTeam members: " }{TEXT 267 54 "(All lines for answers below wi ll extend as you type.)" }{TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 0 " " }}{PARA 0 "" 0 "" {TEXT -1 16 " (1) " }{TEXT 261 0 "" } {TEXT -1 0 "" }{TEXT 264 17 " SOLUTION " }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 16 " (2) " }{TEXT 262 0 "" }{TEXT -1 0 "" }{TEXT 265 9 " " }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 16 " (3) " }{TEXT 263 0 "" }{TEXT -1 0 "" }{TEXT 266 9 " " }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 25 "Score: / 6 \n" }}}{SECT 1 {PARA 3 "" 0 "" {TEXT 258 13 "INSTRUCTIONS " }{TEXT 257 20 "(Click box in front)" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }} {EXCHG {PARA 0 "" 0 "" {TEXT -1 1192 "It is strongly suggested that th is project be worked in teams (of up to 3 persons). Approaches may be discussed among different teams, but each team must write their OWN r eport.\nREQUIREMENTS OF REPORT:\n- Mathematical contents (correctness \+ and completeness) counts most. Solve the problems and show all essenti al calculations (commands and output) and plots. Please do not submit \+ work that is not essential (e.g. checking out how the function fplot i n Problem 1 works - this may be essential to your understanding, but i t s not essential for the reader).\n- Explain the steps you carry out. Explain the approaches/techniques that you use.\n- Add explanations a nd answer questions where asked to do so. By all means, include additi onal explanations/observations/conclusions that come to your mind! (Th is could translate to extra credit.)\nHOW TO SUBMIT THE REPORT\nEach t eam submits ONE printed copy (stapled) by the due date. (Please save t he electronic version, as you will be asked to submit that, too, at a \+ future time.)\nYou can print from inside your Maple worksheet (choose \+ File/Print or click on the printer button). Set the ZOOM FACTOR to 100 % (smallest magnifying glass) before printing.\n" }{TEXT 256 62 "Pleas e remove these instructions before submitting the report." }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart:" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 289 7 "PROBLEM" }{TEXT -1 73 " Find the equation of the tangent line(s) to the graph of the function " }{TEXT 290 1 "f" }{TEXT -1 1 "(" }{TEXT 274 1 "x" }{TEXT -1 4 ") = " }{XPPEDIT 18 0 "x^5-5*x^3+8;" "6#,(*$%\"xG\"\"&\"\"\"*&\"\"&F'*$F%\"\"$F'!\"\"\"\")F'" }{TEXT -1 53 " which has a slope of 21 . Then graph the function " }{TEXT 291 1 " f" }{TEXT -1 38 " and the tangent line(s) on one graph." }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 25 "(a) Defi ne the function " }{TEXT 256 1 "f" }{TEXT -1 20 " using Maple syntax: " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "f := x -> x^5 - 5*x^3 + 8;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"fGR6#%\"xG6\"6$%)operatorG% &arrowGF(,(*$)9$\"\"&\"\"\"\"\"\"*$)F/\"\"$F1!\"&\"\")F2F(F(F(" }}} {EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 39 "(b ) Find a nice graph of the function " }{TEXT 256 1 "f" }{TEXT -1 20 " by restricting the " }{TEXT 257 1 "x" }{TEXT -1 8 " and/or " }{TEXT 258 1 "y" }{TEXT -1 8 " values." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "plot(f(x),x=-4..4, y=-40..40);" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6%-%'CURVESG6$7W7$$!\"%\"\"!$!$'pF*7$$!1MLL$Q 6G\"R!#:$!10qi>LJ'4'!#87$$!1nmmmFiDQF0$!1e'pdX/[J&F37$$!1++]'3+S^\\\"F37$$!1nmm hN2-IF0$!11:J)H3c+\"F37$$!1+++N&oz$GF0$!1)\\*f`Nt!='!#97$$!1nmm\")3DoE F0$!1()>'4o'[EKFfn7$$!1+++:v2*\\#F0$!1,kd7hwV6Ffn7$$!1LLL8>1DBF0$\"1A1 U'QZ!)*GF07$$!1nmmw))yr@F0$\"1.)GQ?N-4\"Ffn7$$!1+++S(R#**>F0$\"1@8cJw^ ,;Ffn7$$!1++++@)f#=F0$\"1xygrt;9=Ffn7$$!1+++gi,f;F0$\"1h3I?\"Ffn7$$!1PL LL\\[%R)F\\r$\"1G+z$e%3a5Ffn7$$!1)*****\\&y!pmF\\r$\"1S2dfV;^$*F07$$!1 ******\\O3E]F\\r$\"1jpB@)eFg)F07$$!1KLLL3z6LF\\r$\"1iW\"o'Rjx\")F07$$! 1MLL$)[`PqM8F0$\"1mpakVysMF\\r 7$$\"1++++.W2:F0$!1Z<6AvRV8F07$$\"1LLLep'Rm\"F0$!1t3yT'y&zAF07$$\"1+++ S>4N=F0$!1K&GZ%f6)3#F07$$\"1mmm6s5'*>F0$!1r\"o*)*Q,5x!#<7$$\"1+++lXTk@ F0$\"1s@kSI)G![F07$$\"1mmmmd'*GBF0$\"1'zqz,@dL\"Ffn7$$\"1+++DcB,DF0$\" 1h,kdCplFFfn7$$\"1MLLt>:nEF0$\"1P3Hr&*Q5[Ffn7$$\"1LLL.a#o$GF0$\"1H)3*= =\\dxFfn7$$\"1nmm^Q40IF0$\"1yyU$*=\"Q<\"F37$$\"1+++!3:(fJF0$\"1'H*pMu= _;F37$$\"1nmmc%GpL$F0$\"1Bzj*=;'fBF37$$\"1LLL8-V&\\$F0$\"1C?Yi_iiJF37$ $\"1+++XhUkOF0$\"160')\\'*3FUF37$$\"1+++![,`u$F0$\"1OeJ***4E#[F37$$\"1 +++:o " 0 "" {MPLTEXT 1 0 38 "solve(D(f)(x)=21); sol := %; evalf( %);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6&,$*$-%%sqrtG6#,&\"$]\"\"\"\"*$- F&6#\"$X'\"\"\"\"#5F/#F*F0,$F$#!\"\"F0,$*$-F&6#,&F)F*F+!#5F/F1,$F6F3" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$solG6&,$*$-%%sqrtG6#,&\"$]\"\"\" \"*$-F)6#\"$X'\"\"\"\"#5F2#F-F3,$F'#!\"\"F3,$*$-F)6#,&F,F-F.!#5F2F4,$F 9F6" }}{PARA 11 "" 1 "" {XPPMATH 20 "6&$\"+on*)4?!\"*$!+on*)4?F%,$%\"I G$\"+f%\\'>5F%,$F)$!+f%\\'>5F%" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 5 " " }}{PARA 0 "" 0 "" {TEXT 295 23 " Answer to Part (c) " } {TEXT 296 3 " " }{XPPEDIT 18 0 "1/10*sqrt(150+10*sqrt(645))-1/10*sqr t(150+10*sqrt(645));" "6$,$*$-%%sqrtG6#,&\"$]\"\"\"\"*$-F&6#\"$X'\"\" \"\"#5F/#F*F0,$F$#!\"\"F0" }{TEXT 298 3 " " }}}{EXCHG {PARA 0 "" 0 " " {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 75 "(d) Find the equation \+ of the tangent line(s) to the graph of the function " }{TEXT 292 1 "f " }{TEXT -1 25 " which has a slope of 21." }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 51 "y = D(f)(sol[1])*(x-sol[1])+f(sol[1]); simplify(%); " }}{PARA 12 "" 1 "" {XPPMATH 20 "6#/%\"yG,**&,(*$),&\"$]\"\"\"\"*$-%% sqrtG6#\"$X'\"\"\"\"#5\"\"#F2#F,\"%+?#!#XF4F,F-#!\"$F4F,,&%\"xGF,*$-F/ 6#F*F2#!\"\"F3F,F,*$)F*#\"\"&F4F2#F,\"'++5*$)F*#\"\"$F4F2#FA\"$+#\"\") F," }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/%\"yG,*%\"xG\"#@*$-%%sqrtG6#,& \"$]\"\"\"\"*$-F*6#\"$X'\"\"\"\"#5F3#!#**\"#]*&F)F3F0F3#!\"\"F7\"\")F. " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 51 "y = D(f)(sol[2])*(x-sol[2])+f(sol[2]); simplif y(%);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#/%\"yG,**&,(*$),&\"$]\"\"\"\" *$-%%sqrtG6#\"$X'\"\"\"\"#5\"\"#F2#F,\"%+?#!#XF4F,F-#!\"$F4F,,&%\"xGF, *$-F/6#F*F2#F,F3F,F,*$)F*#\"\"&F4F2#!\"\"\"'++5*$)F*#\"\"$F4F2#F,\"$+# \"\")F," }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/%\"yG,*%\"xG\"#@*$-%%sqrtG 6#,&\"$]\"\"\"\"*$-F*6#\"$X'\"\"\"\"#5F3#\"#**\"#]*&F)F3F0F3#F.F7\"\") F." }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 24 "(e) Graph the function " }{TEXT 256 1 "y" }{TEXT -1 54 " and t he tangent lines in Part (d) above on one graph." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 127 "plot([f(x), D(f)(sol[1])*(x-sol[1])+f(sol[1] ), D(f)(sol[2])*(x-sol[2])+f(sol[2])], x=-4..4, y=-20..40, color=[red, green,blue]);" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6 '-%'CURVESG6$7W7$$!\"%\"\"!$!$'pF*7$$!1MLL$Q6G\"R!#:$!10qi>LJ'4'!#87$$ !1nmmmFiDQF0$!1e'pdX/[J&F37$$!1++]'3+S^\\\"F37$$!1nmmhN2-IF0$!11:J)H3c+\"F37$$! 1+++N&oz$GF0$!1)\\*f`Nt!='!#97$$!1nmm\")3DoEF0$!1()>'4o'[EKFfn7$$!1+++ :v2*\\#F0$!1,kd7hwV6Ffn7$$!1LLL8>1DBF0$\"1A1U'QZ!)*GF07$$!1nmmw))yr@F0 $\"1.)GQ?N-4\"Ffn7$$!1+++S(R#**>F0$\"1@8cJw^,;Ffn7$$!1++++@)f#=F0$\"1x ygrt;9=Ffn7$$!1+++gi,f;F0$\"1h3I?\"Ffn7$$!1PLLL\\[%R)F\\r$\"1G+z$e%3a5 Ffn7$$!1)*****\\&y!pmF\\r$\"1S2dfV;^$*F07$$!1******\\O3E]F\\r$\"1jpB@) eFg)F07$$!1KLLL3z6LF\\r$\"1iW\"o'Rjx\")F07$$!1MLL$)[`PqM8F0$\"1mpakVysMF\\r7$$\"1++++.W2:F0$!1Z<6Av RV8F07$$\"1LLLep'Rm\"F0$!1t3yT'y&zAF07$$\"1+++S>4N=F0$!1K&GZ%f6)3#F07$ $\"1mmm6s5'*>F0$!1r\"o*)*Q,5x!#<7$$\"1+++lXTk@F0$\"1s@kSI)G![F07$$\"1m mmmd'*GBF0$\"1'zqz,@dL\"Ffn7$$\"1+++DcB,DF0$\"1h,kdCplFFfn7$$\"1MLLt>: nEF0$\"1P3Hr&*Q5[Ffn7$$\"1LLL.a#o$GF0$\"1H)3*==\\dxFfn7$$\"1nmm^Q40IF0 $\"1yyU$*=\"Q<\"F37$$\"1+++!3:(fJF0$\"1'H*pMu=_;F37$$\"1nmmc%GpL$F0$\" 1Bzj*=;'fBF37$$\"1LLL8-V&\\$F0$\"1C?Yi_iiJF37$$\"1+++XhUkOF0$\"160')\\ '*3FUF37$$\"1+++![,`u$F0$\"1OeJ***4E#[F37$$\"1+++:o\"F37$FD$!1M\"Rv)etb6F37$FI$!1M\"Rh+m'>6F37$FN$!1M\"*eevw$ 3\"F37$FS$!1M\"*Q-^[]5F37$FX$!1M\"*yYI-;5F37$Fhn$!1P8*eRBQ!)*Ffn7$F]o$ !1N8*eKf&[%*Ffn7$Fbo$!1M8Ril7$3*Ffn7$Fgo$!1M8R&=`7w)Ffn7$F\\p$!1P8R)** **))R)Ffn7$Fap$!1M8Ra*e].)Ffn7$Ffp$!1N8R!pIWo(Ffn7$F[q$!1O8*ejEgO(Ffn7 $F`q$!1O8R=MT()pFfn7$Feq$!1O8Rg$ymm'Ffn7$Fjq$!1N8*)Rse$H'Ffn7$F`r$!1N8 R!QQL'fFfn7$Fer$!1M8*)RI+,cFfn7$Fjr$!1M8*36ufD&Ffn7$F_s$!1M8R>E(f*[Ffn 7$Fds$!1N8*)p)y`c%Ffn7$Fis$!1M8R\\))y3UFfn7$F_t$!1O8*e.#RQQFfn7$Fdt$!1 N8*3_gf^$Ffn7$Fit$!1N8R^csnJFfn7$F^u$!1M8Rc\\'z!GFfn7$Fcu$!1N8R.$4gX#F fn7$Fhu$!1N8*=6ua6#Ffn7$F]v$!1N8RTyOP([.\"Ffn7$F\\w$!1NL\"*=$f;1(F07$Faw$!1KL\"RqM!oMF07$Ffw$!1IYL\"*) *Rr')Fjw7$F\\x$\"1km3@/uZMF07$Fax$\"1pm3ccJ.pF07$Ffx$\"1n'3\"o#)4_5Ffn 7$F[y$\"1o'3'*fA0S\"Ffn7$F`y$\"1n'3E!o$ov\"Ffn7$Fey$\"1o'3Ta+-6#Ffn7$F jy$\"1n'3O70\\V#Ffn7$F_z$\"1o'3Y@`q!GFfn7$Fdz$\"1o'3O!p!*RJFfn7$Fiz$\" 1o'3,O)z%\\$Ffn7$Fc[l$\"1p'3rwuW$QFfn7$F]\\l$\"1p'3cX.&*>%Ffn-Fb\\l6&F d\\lF*Fe\\lF*-F$6$7S7$F($!1p'3cX.&*f#Ffn7$F5$!1o'3cE6LB#Ffn7$F?$!1o'3 \"*R*o9>Ffn7$FD$!1o'3myljb\"Ffn7$FI$!1o'3E(pm&>\"Ffn7$FN$!1'o'3r\\#oO) F07$FS$!1#o'3^$z&Q]F07$FX$!1zm3\"ztBf\"F07$Fhn$\"1F07$F]o$\" 1AL\"*GwLCbF07$Fbo$\"1CL\"REl'y\"*F07$Fgo$\"1K8R.*R(R7Ffn7$F\\p$\"1K8R !4$4-;Ffn7$Fap$\"1L8RMT$f'>Ffn7$Ffp$\"1L8R)RilJ#Ffn7$F[q$\"1L8*GXm\\j# Ffn7$F`q$\"1L8Rq'zN,$Ffn7$Feq$\"1K8RGZJMLFfn7$Fjq$\"1L8*)[eS2PFfn7$F`r $\"1K8R3ZlPSFfn7$Fer$\"1M8*)[+***R%Ffn7$Fjr$\"1M8*y(*=]u%Ffn7$F_s$\"1M 8Rp/-0^Ffn7$Fds$\"1M8*)=UhNaFfn7$Fis$\"1M8RRU?#z&Ffn7$F_t$\"1L8*G0,E;' Ffn7$Fdt$\"1M8*ycK]['Ffn7$Fit$\"1L8RPuELoFfn7$F^u$\"1L8RK\"GI>(Ffn7$Fc u$\"1K8R&y$)\\a(Ffn7$Fhu$\"1L8*o(*=b)yFfn7$F]v$\"1M8RZ_ij#)Ffn7$Fbv$\" 1M8R[0P.')Ffn7$Fgv$\"1O8Ru67m*)Ffn7$F\\w$\"1O8*o:F[H*Ffn7$Faw$\"1P8R=' *=a'*Ffn7$Ffw$\"1K8*))o@B***Ffn7$F\\x$\"1L\"*38ndM5F37$Fax$\"1M\"RaYK \"p5F37$Ffx$\"1L\"*oN\"4`5\"F37$F[y$\"1M\"R)o::S6F37$F`y$\"1M\"R\"*)Hy v6F37$Fey$\"1M\"*Gj$>6@\"F37$Fjy$\"1M\"R7#)*eV7F37$F_z$\"1M\"R.j/3G\"F 37$Fdz$\"1L\"R#****398F37$Fiz$\"1M\"*)[9z&\\8F37$Fc[l$\"1M\"*e&yYNQ\"F 37$F]\\l$\"1M\"RWl\\+U\"F3-Fb\\l6&Fd\\lF*F*Fe\\l-%+AXESLABELSG6$Q\"x6 \"Q\"yF\\`m-%%VIEWG6$;F(F]\\l;$!#?F*$\"#SF*" 1 2 0 1 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "17 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 }