{VERSION 3 0 "SUN SPARC SOLARIS" "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 "" -1 256 "" 1 12 0 0 0 0 0 0 0 0 0 0 0 0 0 }
{CSTYLE "" -1 257 "times" 1 12 0 0 0 0 0 0 0 0 0 0 0 0 0 }{CSTYLE "" 
-1 258 "times" 1 12 0 0 0 0 0 0 0 0 0 0 0 0 0 }{PSTYLE "Normal" -1 0 
1 {CSTYLE "" -1 -1 "MS Serif" 1 14 0 0 0 1 2 2 2 0 0 0 0 0 0 }0 0 0 
-1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "R3 Font 0" -1 256 1 {CSTYLE "" -1 
-1 "Century Gothic" 1 10 128 0 128 1 2 1 2 0 0 0 0 0 0 }0 0 0 -1 -1 
-1 0 0 0 0 0 0 -1 0 }{PSTYLE "R3 Font 2" -1 257 1 {CSTYLE "" -1 -1 "Lu
cida Console" 1 14 0 128 128 1 2 2 2 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 
0 0 0 0 -1 0 }{PSTYLE "" 0 258 1 {CSTYLE "" -1 -1 "times" 1 12 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 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "with(plots): with(pl
ottools):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "f:=x->x^2-36;
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "D(f)(x);" }}}{EXCHG 
{PARA 0 "" 0 "" {TEXT 256 0 "" }{TEXT 257 25 "Define the initial point
." }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "x[0]:=3;" }}}{EXCHG {PARA 0 "" 
0 "" {TEXT -1 0 "" }{TEXT 258 20 "The number of steps." }}{PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 5 "n:=7;" }}}{EXCHG {PARA 258 "" 0 "" {TEXT -1 29 
"Equation of the tangent line." }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 40 "g
:=x->f(x[i-1])+D(f)(x[i-1])*(x-x[i-1]);" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 26 "for i from 1 by 1 to n do;" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 31 "  x[i]:=evalf(solve(g(x)=0,x));" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 3 "od;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "line
s:=\{\}:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 152 "for i from 1 b
y 1 to n do;\n  lines:=lines union \{line([x[i-1],0],[x[i-1],f(x[i-1])
],color=green),    line([x[i-1],f(x[i-1])],[x[i],0],color=green)\};\no
d:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 41 "display(\{plot(f(x),x
=2..8)\} union lines);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" 
}}}}{MARK "11" 0 }{VIEWOPTS 1 1 0 1 1 1803 }