{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 "" -1 256 "" 1 14 0 0 0 0 0 1 0 0 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 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 0 256 1 {CSTYLE "" 
-1 -1 "" 0 1 0 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 256 "" 0 "" {TEXT 256 4 "Demo" }{TEXT -1 85 "\nSe
lect function\nselect point\nselect delta x\nplot fucntion and associa
ted secant line" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "restart;\nwith(p
lots):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 196 "f := x -> x^2:  \+
# select function\na := 1:         # select point (x-coordinate)\ndx :
= 0.2:      # select Delta x\nxint := 1:        # interval for graphin
g\nyint := 2:        # interval for graphing" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 281 "b := a + dx:\nm := (f(b)-f(a))/dx:\nG1 := plot(
[f(x), f(a) + m*(x-a)], x=(a-xint)..(a+xint),\nview = [a-xint..a+xint,
f(a)-yint..f(a)+yint], color=[red,blue], scaling = constrained):\nG2 :
= plot([[a,f(a)],[b,f(b)]],style=point,symbol=circle,thickness=4,\ncol
or=black):\ndisplay(G1,G2);\nm;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 0 "" }}}}{MARK "0 0 1" 1 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }
{PAGENUMBERS 0 1 2 33 1 1 }