{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 }
{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 "Heading 1" 0 3 1 
{CSTYLE "" -1 -1 "" 1 18 0 0 0 0 0 1 0 0 0 0 0 0 0 1 }1 0 0 0 8 4 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 }{PSTYLE "Tit
le" 0 18 1 {CSTYLE "" -1 -1 "" 1 18 0 0 0 0 0 1 1 0 0 0 0 0 0 1 }3 0 
0 -1 12 12 0 0 0 0 0 0 19 0 }{PSTYLE "Author" 0 19 1 {CSTYLE "" -1 -1 
"" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }3 0 0 -1 8 8 0 0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 18 "" 0 "" {TEXT -1 27 "Derivative build, Animati
on" }}{PARA 19 "" 0 "" {TEXT -1 31 "Coreen Mett, Radford University" }
}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" }}{PARA 0 "> " 0 
"" {MPLTEXT 1 0 31 "with(plottools): with(student):" }}}{SECT 1 {PARA 
3 "" 0 "" {TEXT -1 63 "User defines (differentiable) function, domain,
 and sample size" }}{PARA 0 "" 0 "" {TEXT -1 18 "A good example is " }
{XPPEDIT 18 0 "f(x) = sin(x);" "6#/-%\"fG6#%\"xG-%$sinG6#F'" }{TEXT 
-1 9 " on [0, 3" }{XPPEDIT 18 0 "Pi;" "6#%#PiG" }{TEXT -1 2 "]." }}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "f:=x->(x-1)*(x+1)*(x-2); #us
er defines function" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "a:=-
2; b:=4; #user defines domain" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 49 "M:=30; #user defines number of partitions desired" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 52 "zoom_factor:=.1; # .1 => add 10% to
 height of window" }}}}{SECT 1 {PARA 3 "" 0 "" {TEXT -1 17 "Run the an
imation" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{EXCHG {PARA 0 "" 0 "" 
{TEXT -1 20 "# Set viewing window" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 
17 "delta:=(b-a)/M:  " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 66 "y_max:=max
(seq(f(a+delta*k), k=0..M),seq(D(f)(a+delta*k),k=0..M)):" }}{PARA 0 ">
 " 0 "" {MPLTEXT 1 0 66 "y_min:=min(seq(f(a+delta*k), k=0..M),seq(D(f)
(a+delta*k),k=0..M)):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }{TEXT 
-1 1 " " }{MPLTEXT 1 0 20 "height:=y_max-y_min:" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 0 "" }{TEXT -1 1 " " }{MPLTEXT 1 0 27 "margin:=zoom_facto
r*height:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }{TEXT -1 1 " " }
{MPLTEXT 1 0 16 "c:=y_min-margin:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 
16 "d:=y_max+margin:" }}{PARA 0 "" 0 "" {TEXT -1 19 "# construct frame
s:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "for j from 1 to M do " }}
{PARA 0 "" 0 "" {TEXT -1 9 "         " }{MPLTEXT 1 0 35 "a_:=a+delta*(
j-1): b_:=a+delta*j:  " }}{PARA 0 "" 0 "" {TEXT -1 8 "        " }
{MPLTEXT 1 0 54 "tng:=showtangent(f(x),x=b_,x=a..b,y=c..d,thickness=3)
:" }{TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 8 "        " }{MPLTEXT 1 
0 53 "pdf:=plot(D(f)(x),x=a..b_,color=magenta,thickness=3):" }{TEXT 
-1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 8 "        " }{MPLTEXT 1 0 32 "pl[j
]:=plots[display](tng,pdf): " }}{PARA 0 "" 0 "" {TEXT -1 0 "" }
{MPLTEXT 1 0 3 "od:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 45 "plots[displa
y](pl[i]$i=1..M,insequence=true);" }}{PARA 13 "" 0 "" {TEXT -1 0 "" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "# pause to play animation" 
}}}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 29 "Last modified:  January, 2001
" }}}}{MARK "0 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 
0 1 2 33 1 1 }