{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 18 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 5 "Demo\n" }{TEXT -1 87 "En
ter a function f\nselect a point a\nguess a slope m\nand display the r
esult graphically." }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "restart;\nwit
h(plots):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 386 "f := x -> sqr
t(25-x^2):  # FUNCTION\na := 3:       # point, x-coordinate\nm := -1: \+
     # slope\nxint := 4:    # for graphing\nyint := 4:    # for graphi
ng\nG1 := plot([f(x),m*(x-a)+f(a)],x = a-xint..a+xint, color=[red,blue
],\nview = [a-xint..a+xint,f(a)-yint..f(a)+yint], scaling=constrained)
:\nG2 := plot([[a,f(a)]], style=point,symbol=circle,color = black,thic
kness=3):\ndisplay(G1,G2);f(x);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 0 "" }}}}{MARK "3" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }
{PAGENUMBERS 0 1 2 33 1 1 }