{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 "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 
0 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 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 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Text Output" -1 2 1 
{CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 0 0 0 0 0 1 3 0 3 }1 0 0 -1 
-1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Warning" 2 7 1 {CSTYLE "" -1 -1 "" 0 
1 0 0 255 1 0 0 0 0 0 0 1 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }
{PSTYLE "Error" 7 8 1 {CSTYLE "" -1 -1 "" 0 1 255 0 255 1 0 0 0 0 0 0 
0 0 0 }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 }3 3 0 -1 -1 -1 0 0 
0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "a:= x*sin(exp(3*x)/x
^2);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"aG*&%\"xG\"\"\"-%$sinG6#*&
-%$expG6#,$F&\"\"$\"\"\"*$)F&\"\"#F1!\"\"F'" }}}{EXCHG {PARA 0 "> " 0 
"" {MPLTEXT 1 0 5 "x:=7;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"xG\"\"
(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 2 "a;" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#,$-%$sinG6#,$-%$expG6#\"#@#\"\"\"\"#\\\"\"(" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "x:=1;" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#>%\"xG\"\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 2 "a;" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#-%$sinG6#-%$expG6#\"\"$" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "diff(sin(x),x);" }}{PARA 8 "" 1 "" 
{TEXT -1 60 "Error, wrong number (or type) of parameters in function d
iff" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "x:='x';" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#>%\"xGF$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 15 "diff(sin(x),x);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%$cosG6#%
\"xG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "afunc := unapply(a,
x);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%&afuncGR6#%\"xG6\"6$%)operatorG%&arrowGF(*&9$\"\"\"-%
$sinG6#*&-%$expG6#,$F-\"\"$\"\"\"*$)F-\"\"#F8!\"\"F.F(F(F(" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "afunc(1);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#-%$sinG6#-%$expG6#\"\"$" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 12 "eval(a,x=1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%$si
nG6#-%$expG6#\"\"$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "subs(
x=1,a);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%$sinG6#-%$expG6#\"\"$" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "subs(x=cos(y^3),a);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#*&-%$cosG6#*$)%\"yG\"\"$\"\"\"\"\"\"-%
$sinG6#*&-%$expG6#,$F$F*F+*$)F$\"\"#F+!\"\"F," }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 8 "restart;" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 35 "
We talked some math for a while...." }}{PARA 0 "" 0 "" {TEXT -1 0 "" }
}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 19 "derfine \+
some points" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "pts:= [ [0,1
], [1,3], [1.5, 7], [4,6], [5, 2]];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6
#>%$ptsG7'7$\"\"!\"\"\"7$F(\"\"$7$$\"#:!\"\"\"\"(7$\"\"%\"\"'7$\"\"&\"
\"#" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 59 "dist from a point to a lin
e (m,b) to a point [pt[1], pt[2]]" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 49 "q := (m, b, pt) ->  ( ( m*pt[1] + b) - pt[2] )^2;" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"qGR6%%\"mG%\"bG%#ptG6\"6$%)operato
rG%&arrowGF**$),(*&9$\"\"\"&9&6#F3F3F39%F3&F56#\"\"#!\"\"F:\"\"\"F*F*F
*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "q( 2,3, [0,0]);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"*" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 15 "q( 2,3, [1,5]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"
\"!" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "q( m, l , [5,-2]);" 
}}{PARA 11 "" 1 "" {XPPMATH 20 "6#*$),(%\"mG\"\"&%\"lG\"\"\"\"\"#F)F*
\"\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "distQ := (m, b, d
ata) -> sum( q(m, b, data[i]), i=1..5);" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#>%&distQGR6%%\"mG%\"bG%%dataG6\"6$%)operatorG%&arrowGF*-%$sumG6$
-%\"qG6%9$9%&9&6#%\"iG/F9;\"\"\"\"\"&F*F*F*" }}}{EXCHG {PARA 0 "> " 0 
"" {MPLTEXT 1 0 19 "distQ( 3, .5, pts);" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#$\"++++!H#!\"(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "dis
tQ( -3, .5, pts);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+++++t!\"(" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "diff(distQ(m,b,pts),m);\ndi
ff(distQ(m,b,pts),b);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,(%\"mG$\"%])
)!\"#%\"bG$\"$I#!\"\"$!$]*F+\"\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#
,(!#Q\"\"\"%\"bG\"#5%\"mG$\"$I#!\"\"" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 76 "solve( \{diff(distQ(m,b,pts),m)=0,\n        diff(dist
Q(m,b,pts),b)=0\}, \{m,b\});" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#<$/%\"
mG$\"+h9$[8#!#5/%\"bG$\"+k())*3L!\"*" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 0 "" }}}}{MARK "26 0 0" 0 }{VIEWOPTS 1 1 0 2 1 1805 }