{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 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 256 "" 1 14 0 0 0 0 0 1 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 
257 "" 1 14 0 0 0 0 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 1 }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 1 }3 3 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 
1 }3 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }{TEXT 257 20 "Solution K
ey Newton:" }}{PARA 11 "" 1 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT 
-1 49 "1.  Use Newton's method to find all the roots of " }{XPPEDIT 
18 0 "x^3-4*x+1;" "6#,(*$%\"xG\"\"$\"\"\"*&\"\"%F'F%F'!\"\"F'F'" }
{TEXT -1 36 " = 0  correct to six decimal places." }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 20 "f:=x->x^3 - 4*x + 1;" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%\"fGf*6#%\"xG6\"6$%)operatorG%&arrowGF(,(*$)9$\"\"$\"
\"\"F1F/!\"%F1F1F(F(F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "p
lot(f(x),x = -4..4, y =-4..6);" }}{PARA 13 "" 1 "" {GLPLOT2D 353 119 
119 {PLOTDATA 2 "6%-%'CURVESG6$7S7$$!\"%\"\"!$!#ZF*7$$!1nmmmFiDQ!#:$!1
52dS))poR!#97$$!1LLLo!)*Qn$F0$!1Zv)fh%H*Q$F37$$!1nmmwxE.NF0$!1X`N%=8#)
z#F37$$!1mmmOk]JLF0$!1vJU5[,lAF37$$!1MLL[9cgJF0$!1O,1Rs!Hz\"F37$$!1nmm
hN2-IF0$!1\"3<C1tZS\"F37$$!1+++N&oz$GF0$!1%o1g+J00\"F37$$!1nmm\")3DoEF
0$!1hi$[5wPK(F07$$!1+++:v2*\\#F0$!1.V!ys*R6YF07$$!1LLL8>1DBF0$!1(R\">R
X$)oAF07$$!1nmmw))yr@F0$!1Q\"Reb#\\kb!#;7$$!1+++S(R#**>F0$\"1?yY7'yg+
\"F07$$!1++++@)f#=F0$\"1+g'GZ>d@#F07$$!1+++gi,f;F0$\"1fpT.m*)pIF07$$!1
nmm\"G&R2:F0$\"1=\"3^Y;Wg$F07$$!1LLLtK5F8F0$\"1o0&op96(RF07$$!1MLL$HsV
<\"F0$\"1gaA#H`y2%F07$$!1-++]&)4n**F`o$\"1NOX:un'*RF07$$!1PLLL\\[%R)F`
o$\"1!)3LOmDmPF07$$!1)*****\\&y!pmF`o$\"1/;!HU85P$F07$$!1******\\O3E]F
`o$\"1^=:jpY$)GF07$$!1KLLL3z6LF`o$\"1&*R$)[FR)G#F07$$!1MLL$)[`P<F`o$\"
1x!*y(Go(*o\"F07$$!1Tnmmmr[R!#=$\"1Uo40[z:5F07$$\"1FLL$=2Vs\"F`o$\"1#H
ve(*QS:$F`o7$$\"1'*****\\`pfKF`o$!1#\\t=w=Cp#F`o7$$\"1HLLLm&z\"\\F`o$!
1qPm8\\N#[)F`o7$$\"1(******z-6j'F`o$!1?6!=Uh3O\"F07$$\"1#******4#32$)F
`o$!1\"*)\\J$4e\\<F07$$\"1%*****\\#y'G**F`o$!1;#QSe:F*>F07$$\"1******H
%=H<\"F0$!1')=<$oX!y?F07$$\"1mmm1>qM8F0$!1;L)RqI6'>F07$$\"1++++.W2:F0$
!1\"*4$=l*G/;F07$$\"1LLLep'Rm\"F0$!1Y$*p]$*p[5F07$$\"1+++S>4N=F0$!1'eh
Y!4\"eg\"F`o7$$\"1mmm6s5'*>F0$\"1d$)[rb[*o*F`o7$$\"1+++lXTk@F0$\"1bR:%
*Q&>[#F07$$\"1mmmmd'*GBF0$\"1.3(4;PmJ%F07$$\"1+++DcB,DF0$\"1i]S@pBVmF0
7$$\"1MLLt>:nEF0$\"13L\"G;5ZI*F07$$\"1LLL.a#o$GF0$\"17a\"RJF#[7F37$$\"
1nmm^Q40IF0$\"1PGkC#R<h\"F37$$\"1+++!3:(fJF0$\"1k,\"e652*>F37$$\"1nmmc
%GpL$F0$\"1G*R]**G4[#F37$$\"1LLL8-V&\\$F0$\"1\"H@i'ebsHF37$$\"1+++XhUk
OF0$\"1`Pr@z#[b$F37$$\"1+++:o<EQF0$\"1Jh^(=54<%F37$$\"\"%F*$\"#\\F*-%'
COLOURG6&%$RGBG$\"#5!\"\"F*F*-%+AXESLABELSG6$Q\"x6\"Q\"yFf[l-%%VIEWG6$
;F(Fgz;F($\"\"'F*" 1 2 0 1 10 0 2 9 1 4 2 1.000000 46.000000 
45.000000 0 0 "Curve 1" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "
df:=diff(f(x),x);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#dfG,&*$)%\"xG
\"\"#\"\"\"\"\"$!\"%F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "f
prime:=x->3*x^2 - 4;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'fprimeGf*6#
%\"xG6\"6$%)operatorG%&arrowGF(,&*$)9$\"\"#\"\"\"\"\"$!\"%F1F(F(F(" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "Newt:=x->x-f(x)/fprime(x);
" }{TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%%NewtGf*6#%\"xG6\"6$%)operatorG%&arrowGF(,&9$\"\"\"*&
-%\"fG6#F-F.-%'fprimeGF2!\"\"F5F(F(F(" }}}{EXCHG {PARA 0 "" 0 "" 
{TEXT -1 76 "Pick an initial point (estimate of the zero of the functi
on) from the graph." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "x[0]
:=-2.2;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"xG6#\"\"!$!#A!\"\"" }}
}{EXCHG {PARA 0 "" 0 "" {TEXT -1 60 "Using a \"do\" loop, have Maple c
ompute a table of estimations" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 54 "for nn from 0 to 4 do x[nn+1]:= evalf(Newt(x[nn])) od;" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#>&%\"xG6#\"\"\"$!+N;R>@!\"*" }}{PARA 11 "" 
1 "" {XPPMATH 20 "6#>&%\"xG6#\"\"#$!+C5#\\6#!\"*" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>&%\"xG6#\"\"$$!+Uv!\\6#!\"*" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>&%\"xG6#\"\"%$!+Tv!\\6#!\"*" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>&%\"xG6#\"\"&$!+Tv!\\6#!\"*" }}}{EXCHG {PARA 0 "" 0 "
" {TEXT -1 21 "One root is -2.114907" }}{PARA 0 "" 0 "" {TEXT -1 0 "" 
}}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 43 "plot1:=plot(f(x),x = -5..5, color = black):" }}{PARA 
0 "> " 0 "" {MPLTEXT 1 0 65 "plot2:=plot(\{[x[0],f(x[0])],[x[1],0]\},s
tyle = LINE, color = red):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
29 "with(plots,textplot,display);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7
$%(displayG%)textplotG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 51 "d
isplay(\{plot1,plot2\}, view = [-2.2..-2.1, -2..6]);" }}{PARA 13 "" 1 
"" {GLPLOT2D 418 114 114 {PLOTDATA 2 "6&-%'CURVESG6%7$7$$!1+++++++A!#:
$!1++++++![)!#;7$$!1+++N;R>@F*\"\"!-%'COLOURG6&%$RGBG$\"*++++\"!\")F1F
1-%&STYLEG6#%%LINEG-F$6$7S7$$!\"&F1$!$/\"F17$$!1LLLe%G?y%F*$!1pY6EQjA*
)!#97$$!1mmT&esBf%F*$!1F%p&yBJ[xFJ7$$!1LL$3s%3zVF*$!1J:)yomea'FJ7$$!1M
L$e/$QkTF*$!1n-#ptbhX&FJ7$$!1nmT5=q]RF*$!1yIjeB*f[%FJ7$$!1LL3_>f_PF*$!
16@vwIM$o$FJ7$$!1++vo1YZNF*$!1cbd@&4`%HFJ7$$!1LL3-OJNLF*$!1!eW43$=wAFJ
7$$!1++v$*o%Q7$F*$!1F0Vg?%))p\"FJ7$$!1mmm\"RFj!HF*$!1>314zO#>\"FJ7$$!1
LL$e4OZr#F*$!1Ft$z;'4[\")F*7$$!1+++v'\\!*\\#F*$!1&yt(y%*)4h%F*7$$!1+++
DwZ#G#F*$!1\"f33cA6w\"F*7$$!1+++D.xt?F*$\"1&[()HsNyw$F-7$$!1LL3-TC%)=F
*$\"1&zE(y;?Z=F*7$$!1mmm\"4z)e;F*$\"1ni.O/[qIF*7$$!1mmmm`'zY\"F*$\"1`y
PO,^3PF*7$$!1++v=t)eC\"F*$\"1!Qq)4\"R'\\SF*7$$!1nmm;1J\\5F*$\"1[PL0h*=
/%F*7$$!1$***\\(=[jL)F-$\"1&><%\\s?bPF*7$$!1'***\\iXg#G'F-$\"1fM%eQg]E
$F*7$$!1emmT&Q(RTF-$\"1&R\"p:4&\\e#F*7$$!1lm;/'=><#F-$\"1R0:,?_e=F*7$$
!1EMLLe*e$\\!#=$\"1p(zIYV(>5F*7$$\"1sm;zRQb@F-$\"1g8)yK'fy9F-7$$\"1-+]
(=>Y2%F-$!1(>4CA()>i&F-7$$\"1vmm\"zXu9'F-$!1g*\\4kfmA\"F*7$$\"1,+++&y)
)G)F-$!19`&>!)fgu\"F*7$$\"1++]i_QQ5F*$!1&QL%>%3R.#F*7$$\"1,+D\"y%3T7F*
$!1V@Enoq_?F*7$$\"1++]P![hY\"F*$!1!4q0*[(Hr\"F*7$$\"1LLL$Qx$o;F*$!1:ur
$H4'H5F*7$$\"1+++v.I%)=F*$\"1%*f<vhsJ:F-7$$\"1mm\"zpe*z?F*$\"1Py(4:T&y
;F*7$$\"1,++D\\'QH#F*$\"1)HL*QhV%*QF*7$$\"1LLe9S8&\\#F*$\"1HQ\\$=/Mb'F
*7$$\"1,+D1#=bq#F*$\"1n>ejr&=)**F*7$$\"1LLL3s?6HF*$\"15rP<B!GS\"FJ7$$
\"1++DJXaEJF*$\"1wJuIsm0>FJ7$$\"1ommm*RRL$F*$\"1wW<'>]@Z#FJ7$$\"1om;a<
.YNF*$\"1W&yrh)[SJFJ7$$\"1NLe9tOcPF*$\"1'z6*=$)z(*QFJ7$$\"1,++]Qk\\RF*
$\"1K<>hIY\"o%FJ7$$\"1NL$3dg6<%F*$\"1n[(=2j()o&FJ7$$\"1ommmxGpVF*$\"1n
MrB/b$p'FJ7$$\"1++D\"oK0e%F*$\"1B%yyjI$yyFJ7$$\"1,+v=5s#y%F*$\"1,7@*o3
r7*FJ7$$\"\"&F1$\"$1\"F1-F36&F5F1F1F1-%+AXESLABELSG6$%!GFf\\l-%%VIEWG6
$;$!#A!\"\"$!#@F]]l;$!\"#F1$\"\"'F1" 1 2 0 1 10 0 2 9 1 4 2 1.000000 
46.000000 45.000000 0 0 "Curve 1" "Curve 2" }}}}{EXCHG {PARA 0 "> " 0 
"" {MPLTEXT 1 0 10 "x[0]:=0.2;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%
\"xG6#\"\"!$\"\"#!\"\"" }}}{EXCHG {PARA 11 "" 1 "" {TEXT -1 0 "" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 54 "for nn from 0 to 5 do x[nn+1
]:=evalf(Newt(x[nn]))  od;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"xG6
#\"\"\"$\"+uC3OD!#5" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"xG6#\"\"#$
\"+'R;5a#!#5" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"xG6#\"\"$$\"+&)o,
TD!#5" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"xG6#\"\"%$\"+#)o,TD!#5" 
}}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"xG6#\"\"&$\"+$)o,TD!#5" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"xG6#\"\"'$\"+%)o,TD!#5" }}}
{EXCHG {PARA 0 "" 0 "" {TEXT -1 25 "A second root is 0.254101" }}
{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 76 "P
ick an initial point (estimate of the zero of the function) from the g
raph." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "x[0]:=1.9;" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"xG6#\"\"!$\"#>!\"\"" }}}{EXCHG 
{PARA 0 "" 0 "" {TEXT -1 60 "Using a \"do\" loop, have Maple compute a
 table of estimations" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 54 "fo
r nn from 0 to 4 do x[nn+1]:= evalf(Newt(x[nn])) od;" }}{PARA 11 "" 1 
"" {XPPMATH 20 "6#>&%\"xG6#\"\"\"$\"+j!z?'=!\"*" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>&%\"xG6#\"\"#$\"+ns!3'=!\"*" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>&%\"xG6#\"\"$$\"+`e!3'=!\"*" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>&%\"xG6#\"\"%$\"+`e!3'=!\"*" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>&%\"xG6#\"\"&$\"+`e!3'=!\"*" }}}{EXCHG {PARA 0 "" 0 "
" {TEXT -1 22 "A third zero is 1.86 ." }}{PARA 0 "" 0 "" {TEXT -1 53 "
_____________________________________________________" }}}{PARA 0 "" 
0 "" {TEXT -1 0 "" }{TEXT 256 10 "Problem 2:" }}{PARA 0 "" 0 "" {TEXT 
-1 45 "a) Use Newton's method find all the roots of " }{XPPEDIT 18 0 "
sin(2*x)-x+1 = 0;" "6#/,(-%$sinG6#*&\"\"#\"\"\"%\"xGF*F*F+!\"\"F*F*\"
\"!" }{TEXT -1 2 " ." }}{PARA 0 "" 0 "" {TEXT -1 15 "b)Draw tangent." 
}}{PARA 0 "" 0 "" {TEXT -1 85 "c) Try Newton's method again using the \+
first estimate of x = 0.  Describe the output." }}{PARA 0 "" 0 "" 
{TEXT -1 25 "d) Draw tangent using 0._" }}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 22 "f:=x->sin(2*x) -x + 1;" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#>%\"fGf*6#%\"xG6\"6$%)operatorG%&arrowGF(,(-%$sinG6#,$9$\"\"#\"
\"\"F1!\"\"F3F3F(F(F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "pl
ot(f(x),x = -4..4, y =-4..6);" }}{PARA 13 "" 1 "" {GLPLOT2D 319 121 
121 {PLOTDATA 2 "6%-%'CURVESG6$7[p7$$!\"%\"\"!$\"1>mP`<k5S!#:7$$!1MLL$
Q6G\"RF-$\"1YC1pM@8RF-7$$!1nmmmFiDQF-$\"1v$QfV.h%QF-7$$!1++]</w\\PF-$
\"1[H\"RkE>\"QF-7$$!1LLLo!)*Qn$F-$\"1:v<hxH*z$F-7$$!1++]AHe)e$F-$\"1e>
VR>,4QF-7$$!1nmmwxE.NF-$\"1%3nc2o8%QF-7$$!1mmm1rQ<MF-$\"1b0kcfM$*QF-7$
$!1mmmOk]JLF-$\"1^A)f5Y2'RF-7$$!1MLL[9cgJF-$\"1&HQ&eHjATF-7$$!1nmmhN2-
IF-$\"1H6!Rs/vF%F-7$$!1+++N&oz$GF-$\"12R2_$y&3WF-7$$!1MLL3(4Jv#F-$\"1?
N?/*GUX%F-7$$!1nmm\")3DoEF-$\"1'e/-zK(zWF-7$$!1+++Sv&fi#F-$\"1]hGu(4R[
%F-7$$!1LLL)>kOe#F-$\"1(HC\"\\=&>[%F-7$$!1nmmc3PTDF-$\"1Auf!fqNZ%F-7$$
!1+++:v2*\\#F-$\"1&)4a0N_eWF-7$$!1nm;9(p?T#F-$\"1KeCG@$eS%F-7$$!1LLL8>
1DBF-$\"1A$\\[1CJK%F-7$$!1nmmw))yr@F-$\"1e6/Uaa/TF-7$$!1+++S(R#**>F-$
\"1^hj#[Z]v$F-7$$!1++++@)f#=F-$\"1`'o#yN[9LF-7$$!1+++gi,f;F-$\"1$[)G\"
4UX$GF-7$$!1nmm\"G&R2:F-$\"1#*H%>sK4Q#F-7$$!1LLLtK5F8F-$\"1[k/9`ye=F-7
$$!1MLL$HsV<\"F-$\"1W821t,i9F-7$$!1-++]&)4n**!#;$\"1teQnPp%3\"F-7$$!1P
LLL\\[%R)F]t$\"1wE9?o&GX)F]t7$$!1ommT<yJvF]t$\"1cT07r`_vF]t7$$!1)*****
\\&y!pmF]t$\"1*yLg$fc[pF]t7$$!1*****\\#)H$eiF]t$\"12G#HkVKw'F]t7$$!1**
*****4\"eZeF]t$\"16*fenj>k'F]t7$$!1*****\\PKoV&F]t$\"1]t'*HOx#e'F]t7$$
!1******\\O3E]F]t$\"1=_7<BI$e'F]t7$$!1mmmTs$*oTF]t$\"1tp9[f6knF]t7$$!1
KLLL3z6LF]t$\"1rc%\\/5?;(F]t7$$!1LLLeGmCDF]t$\"1&\\`;eyro(F]t7$$!1MLL$
)[`P<F]t$\"1,eE@i)>L)F]t7$$!1Tnmmmr[R!#=$\"1r<EaO^g**F]t7$$\"1FLL$=2Vs
\"F]t$\"1!f;rbNc;\"F-7$$\"1hmmm7+#\\#F]t$\"1#*zG*)3#)G7F-7$$\"1'*****
\\`pfKF]t$\"1E@B%Rf2G\"F-7$$\"1imm\"*f#))3%F]t$\"18T%pxO2K\"F-7$$\"1HL
LLm&z\"\\F]t$\"12w1(z'pS8F-7$$\"1'****\\<ViM&F]t$\"1+el!>:AM\"F-7$$\"1
jmm;(HXx&F]t$\"1T`[#*RIP8F-7$$\"1ILLei\"G?'F]t$\"1L*Gc;&oD8F-7$$\"1(**
****z-6j'F]t$\"1xp6e)HrI\"F-7$$\"1%*****\\C4puF]t$\"1Tm0C%H,D\"F-7$$\"
1#******4#32$)F]t$\"1e#e%)f)=l6F-7$$\"1%*****\\#y'G**F]t$\"1'[F3eHFA*F
]t7$$\"1******H%=H<\"F-$\"1*oQtTUZT&F]t7$$\"1mmm1>qM8F-$\"1\"Q6#GzM,7F
]t7$$\"1++++.W2:F-$!14Q&eaq1\"QF]t7$$\"1LLLep'Rm\"F-$!11K2@qJ#\\)F]t7$
$\"1+++S>4N=F-$!1Y89!G4%R8F-7$$\"1mmm6s5'*>F-$!1t-6HyzZ<F-7$$\"1+++lXT
k@F-$!1-%Gx*Gv\"4#F-7$$\"1mmmmd'*GBF-$!1?MJEL[FBF-7$$\"1LL$ep+^T#F-$!1
W%))p$)o\"3CF-7$$\"1+++DcB,DF-$!1J.4sfXfCF-7$$\"1LL37ZrUDF-$!1&)*Q'y#Q
RZ#F-7$$\"1nm;*z$>%e#F-$!1dRdCb,#[#F-7$$\"1++D')GnDEF-$!1B@_^u\"R[#F-7
$$\"1MLLt>:nEF-$!1J,lvi\"*zCF-7$$\"1LLL)o))>v#F-$!1&ehSz/ZX#F-7$$\"1LL
L.a#o$GF-$!1U%[cD6$4CF-7$$\"1nmm^Q40IF-$!1B3+*38ZF#F-7$$\"1+++!3:(fJF-
$!1uXSi\"yM7#F-7$$\"1nmmc%GpL$F-$!1`or_*=h&>F-7$$\"1+++N$zhT$F-$!1#>RI
,(>%*=F-7$$\"1LLL8-V&\\$F-$!1SL2.8OX=F-7$$\"1nm;z\"G*zNF-$!1Y$Q0h98\"=
F-7$$\"1+++XhUkOF-$!1Tt\\Rq;*z\"F-7$$\"1+++![,`u$F-$!1aBn:-g5=F-7$$\"1
+++:o<EQF-$!1s%e-(\\VY=F-7$$\"1++]2%)38RF-$!1[ddO\\Z8>F-7$$\"\"%F*$!1>
mP`<k5?F--%'COLOURG6&%$RGBG$\"#5!\"\"F*F*-%+AXESLABELSG6$Q\"x6\"Q\"yF[
el-%%VIEWG6$;F(F\\dl;F($\"\"'F*" 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 17 "df:=diff(f(x),x);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#
>%#dfG,&-%$cosG6#,$%\"xG\"\"#F+!\"\"\"\"\"" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 26 "fprime:=x->2*cos(2*x) - 1;" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%'fprimeGf*6#%\"xG6\"6$%)operatorG%&arrowGF(,&-%$cosG6
#,$9$\"\"#F2!\"\"\"\"\"F(F(F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 26 "Newt:=x->x-f(x)/fprime(x);" }{TEXT -1 0 "" }}{PARA 0 "" 0 "" 
{TEXT -1 0 "" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%NewtGf*6#%\"xG6\"6$
%)operatorG%&arrowGF(,&9$\"\"\"*&-%\"fG6#F-F.-%'fprimeGF2!\"\"F5F(F(F(
" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 76 "Pick an initial point (estima
te of the zero of the function) from the graph." }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 10 "x[0]:=1.2;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#
>&%\"xG6#\"\"!$\"#7!\"\"" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 60 "Using
 a \"do\" loop, have Maple compute a table of estimations" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 54 "for nn from 0 to 5 do x[nn+1]:= eva
lf(Newt(x[nn])) od;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"xG6#\"\"\"
$\"+OG7#R\"!\"*" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"xG6#\"\"#$\"+-
:Rx8!\"*" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"xG6#\"\"$$\"+yoLx8!\"
*" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"xG6#\"\"%$\"+xoLx8!\"*" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"xG6#\"\"&$\"+xoLx8!\"*" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#>&%\"xG6#\"\"'$\"+xoLx8!\"*" }}}{PARA 0 "" 
0 "" {TEXT -1 24 "One root is 1.3777336877" }}{PARA 0 "" 0 "" {TEXT 
-1 14 "b) One tangent" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 42 "plot1:=plot(f(x),x = 0..2, color = black)
:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 65 "plot2:=plot(\{[x[0],f(x[0])],[
x[1],0]\},style = LINE, color = red):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 
0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "with(plots,textplo
t,display);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7$%(displayG%)textplotG
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 51 "display(\{plot1,plot2\}, view = [-1..2, -0.02..1.5]);
" }}{PARA 13 "" 1 "" {GLPLOT2D 442 119 119 {PLOTDATA 2 "6&-%'CURVESG6$
7S7$\"\"!$\"\"\"F(7$$\"1LLLL3VfV!#<$\"1]XW%)Q[V5!#:7$$\"1nmm\"H[D:)F.$
\"1h%QU(R!33\"F17$$\"1LLLe0$=C\"!#;$\"1v+>zuj@6F17$$\"1LLL3RBr;F:$\"1M
ooQV$4;\"F17$$\"1mm;zjf)4#F:$\"17u%HZWw>\"F17$$\"1LL$e4;[\\#F:$\"1ILt5
Q.H7F17$$\"1++]i'y]!HF:$\"1#y#**4aOe7F17$$\"1LL$ezs$HLF:$\"1&)[OA)4[G
\"F17$$\"1++]7iI_PF:$\"1tpD_bu18F17$$\"1nmm;_M(=%F:$\"1%[Cc*o@C8F17$$
\"1LLL3y_qXF:$\"1h`,pS'\\L\"F17$$\"1+++]1!>+&F:$\"1+F7Wi[T8F17$$\"1+++
]Z/NaF:$\"1rxge^tT8F17$$\"1+++]$fC&eF:$\"1efDbkpN8F17$$\"1LL$ez6:B'F:$
\"1\\\\215mC8F17$$\"1mmm;=C#o'F:$\"1hk0v<W/8F17$$\"1mmmm#pS1(F:$\"1O**
)fxR6G\"F17$$\"1++]i`A3vF:$\"16\\QouyY7F17$$\"1mmmm(y8!zF:$\"1Jg!R><)4
7F17$$\"1++]i.tK$)F:$\"1b^'zXY@;\"F17$$\"1++](3zMu)F:$\"1>xhm'p)46F17$
$\"1nmm\"H_?<*F:$\"1l'*f;$\\#[5F17$$\"1nm;zihl&*F:$\"1pN&>&[9a)*F:7$$
\"1LLL3#G,***F:$\"1zxrhX/6\"*F:7$$\"1LLezw5V5F1$\"1tEo#y&yp#)F:7$$\"1+
+v$Q#\\\"3\"F1$\"1Hz7MuG#[(F:7$$\"1LL$e\"*[H7\"F1$\"1OJb6g%pd'F:7$$\"1
+++qvxl6F1$\"1)z=Upa`e&F:7$$\"1++]_qn27F1$\"1f=/U$\\Qc%F:7$$\"1++Dcp@[
7F1$\"1rkcYK3JNF:7$$\"1++]2'HKH\"F1$\"14%y_(4FQBF:7$$\"1nmmwanL8F1$\"1
)\\^k)[))H7F:7$$\"1+++v+'oP\"F1$\"1a:4\"\\S(f8!#=7$$\"1LLeR<*fT\"F1$!1
_FXFK086F:7$$\"1+++&)Hxe9F1$!1,AF8,'fO#F:7$$\"1mm\"H!o-*\\\"F1$!1K-mx9
!)fNF:7$$\"1++DTO5T:F1$!1o@o*oJv\"[F:7$$\"1nmmT9C#e\"F1$!1]7DDnH^gF:7$
$\"1++D1*3`i\"F1$!1l\"H$e?=TtF:7$$\"1LLL$*zym;F1$!1#*elq:%fd)F:7$$\"1L
L$3N1#4<F1$!1jw#>(\\/D)*F:7$$\"1nm\"HYt7v\"F1$!1g6-O1W/6F17$$\"1+++q(G
**y\"F1$!1ioxZxH97F17$$\"1nm;9@BM=F1$!18p]eP1P8F17$$\"1LLL`v&Q(=F1$!1/
n6\"\\UNW\"F17$$\"1++DOl5;>F1$!1uba\"4AJb\"F17$$\"1++v.Uac>F1$!12P%4[_
Pl\"F17$$\"\"#F($!1GzI&\\-ov\"F1-%'COLOURG6&%$RGBGF(F(F(-F$6%7$7$$\"1+
++++++7F1$\"1+++1=jaZF:7$$\"1+++OG7#R\"F1F(-Fjz6&F\\[l$\"*++++\"!\")F(
F(-%&STYLEG6#%%LINEG-%+AXESLABELSG6$Q\"x6\"%!G-%%VIEWG6$;$!\"\"F(Fez;$
!\"#F_]l$\"#:F\\]l" 1 2 0 1 10 0 2 9 1 4 2 1.000000 46.000000 
45.000000 0 0 "Curve 1" "Curve 2" }}}}{PARA 0 "" 0 "" {TEXT -1 0 "" }}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "x[0]:=0;" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>&%\"xG6#\"\"!F'" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 
60 "Using a \"do\" loop, have Maple compute a table of estimations" }}
}{PARA 11 "" 1 "" {TEXT -1 0 "" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 55 "for nn from 0 to 10 do x[nn+1]:= evalf(Newt(x[nn])) od;" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"xG6#\"\"\"$!\"\"\"\"!" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#>&%\"xG6#\"\"#$!+evLZS!#5" }}{PARA 11 "" 1 "
" {XPPMATH 20 "6#>&%\"xG6#\"\"$$!+:NW(>#!\"*" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>&%\"xG6#\"\"%$\"*i6!eN!\"*" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>&%\"xG6#\"\"&$!+a;#\\;#!\"*" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>&%\"xG6#\"\"'$\"*NkKy\"!\"*" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>&%\"xG6#\"\"($!+!>g5;\"!\"*" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>&%\"xG6#\"\")$!+3mZjb!#5" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#>&%\"xG6#\"\"*$\"+(4%y_^!\"*" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#
>&%\"xG6#\"#5$\"+[Bb')H!\"*" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"xG
6#\"#6$\"+eM()>b!\"*" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 29 "The serie
s does not converge." }}}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 43 "plot1:=plot(f(x),x = -3..3, color = black
):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 65 "plot2:=plot(\{[x[0],f(x[0])],
[x[1],0]\},style = LINE, color = red):" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 29 "with(plots,textplot,display);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#7$%(displayG%)textplotG" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 49 "display(\{plot1,plot2\}, view = [-5..5, -0.02..2]);" 
}}{PARA 13 "" 1 "" {GLPLOT2D 450 140 140 {PLOTDATA 2 "6&-%'CURVESG6$7i
n7$$!\"$\"\"!$\"1E*)>)\\:%zU!#:7$$!1+++vq@pGF-$\"1E*orNAuQ%F-7$$!1++D^
NUbFF-$\"1$>![2bB`WF-7$$!1+](=>P9p#F-$\"1S\"RnLd\\Z%F-7$$!1++]K3XFEF-$
\"1I.-Y\\'Q[%F-7$$!1+++I./jDF-$\"1eduoLoyWF-7$$!1++]F)H')\\#F-$\"1\\w#
H$yKeWF-7$$!1+](oXDXV#F-$\"1mY(Q0zAU%F-7$$!1++D'3@/P#F-$\"1Cz[@j,qVF-7
$$!1++Dr^b^AF-$\"1I(pl?O(HUF-7$$!1++D,kZG@F-$\"13YCgcaESF-7$$!1++Dh\")
=,?F-$\"1WIM'yT&fPF-7$$!1++DO\"3V(=F-$\"1#*=ixMtWMF-7$$!1+++NkzV<F-$\"
1i-.AU$H3$F-7$$!1++]d;%)G;F-$\"1*>(yM<nWFF-7$$!1+++0)H%*\\\"F-$\"1iTS6
4=dBF-7$$!1+++vl[p8F-$\"1_[#*[olx>F-7$$!1+++&>iUC\"F-$\"1;i%o/Omj\"F-7
$$!1++DhkaI6F-$\"1'QnVF*[f8F-7$$!1+++]XF`**!#;$\"1F=kf3=#3\"F-7$$!1+++
+Az2))Feq$\"1bp3>?>*)*)Feq7$$!1++]7RKvuFeq$\"153fVl)R](Feq7$$!1,+D1Qf&
)oFeq$\"1+7_aKcsqFeq7$$!1-+++P'eH'Feq$\"1I3iUM\\xnFeq7$$!1++D1j$)[cFeq
$\"1`W5gwq0mFeq7$$!1****\\7*3=+&Feq$\"1H-'f*[9&e'Feq7$$!1*****\\#eo&Q%
Feq$\"1zNB\"=plp'Feq7$$!1)***\\PFcpPFeq$\"1PzT3(*fCpFeq7$$!1)****\\7VQ
[#Feq$\"1/ZQ.2(zr(Feq7$$!1)***\\i6:.8Feq$\"1bc\"3lbis)Feq7$$!1b+++v`hH
!#=$\"1d'H8(\\Qq**Feq7$$\"1++](QIKH\"Feq$\"1'zy2')[k7\"F-7$$\"1****\\7
:xWCFeq$\"1]T^EeAD7F-7$$\"1,++vuY)o$Feq$\"1p>i!4OPI\"F-7$$\"1++](G(*3L
%Feq$\"1yew[+xG8F-7$$\"1)******4FL(\\Feq$\"1^\"\\%HSCT8F-7$$\"1)***\\P
$>=g&Feq$\"1y!>&zp2S8F-7$$\"1)****\\d6.B'Feq$\"1C;wnWqC8F-7$$\"1***\\7
85%QoFeq$\"1Yp%p4-cH\"F-7$$\"1++](o3lW(Feq$\"1sZi%GI?D\"F-7$$\"1*****
\\A))oz)Feq$\"16V)\\N#e-6F-7$$\"1+++Ik-,5F-$\"1QON-z9u!*Feq7$$\"1+++D-
eI6F-$\"14<:4'RVS'Feq7$$\"1++v=_(zC\"F-$\"1]&oZ!HOPNFeq7$$\"1+++b*=jP
\"F-$\"1mm.'[&[-HF]u7$$\"1++v3/3(\\\"F-$!1El*[#4#=]$Feq7$$\"1++vB4JB;F
-$!1Tzgc7Z\"G(Feq7$$\"1+++DVsY<F-$!1AOC8]O\"4\"F-7$$\"1++v=n#f(=F-$!1*
G$Q5z+\\9F-7$$\"1+++!)RO+?F-$!1(e^65Uwv\"F-7$$\"1++]_!>w7#F-$!1p\"Q\\x
K\\-#F-7$$\"1++v)Q?QD#F-$!1#\\b)*fKHB#F-7$$\"1+++5jypBF-$!1^+idoTpBF-7
$$\"1++DE8COCF-$!1K5i\"o`MU#F-7$$\"1++]Ujp-DF-$!14a`!)p2gCF-7$$\"1++D,
X8iDF-$!12DQ4V]yCF-7$$\"1+++gEd@EF-$!1)=u)Gr*R[#F-7$$\"1+]PMh%\\o#F-$!
1)[D!ymYwCF-7$$\"1++v3'>$[FF-$!1VrKIwBcCF-7$$\"1++D6EjpGF-$!1,ydMp7(Q#
F-7$$\"\"$F*$!1E*)>)\\:%zAF--%'COLOURG6&%$RGBGF*F*F*-F$6%7$7$F*$\"\"\"
F*7$$!\"\"F*F*-Fg^l6&Fi^l$\"*++++\"!\")F*F*-%&STYLEG6#%%LINEG-%+AXESLA
BELSG6$Q\"x6\"%!G-%%VIEWG6$;$!\"&F*$\"\"&F*;$!\"#F\\al$\"\"#F*" 1 2 0 
1 10 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" 
}}}}{PARA 0 "" 0 "" {TEXT -1 80 "_____________________________________
___________________________________________" }}{PARA 0 "" 0 "" {TEXT 
-1 172 "MSIP Grant #P120A80089-98:  \"Three Urban Calculus Reform prog
rams: Adopting the Best\" 1998-2001, MSEIP Grant #P120A010031: \"Four \+
Colleges: Calculus + Enhancements\"  2001-04" }}{PARA 0 "" 0 "" {TEXT 
-1 0 "" }}}{MARK "56 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }
{PAGENUMBERS 0 1 2 33 1 1 }