{VERSION 2 3 "SUN SPARC SOLARIS" "2.3" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 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 "Heading 1" 
0 3 1 {CSTYLE "" -1 -1 "" 1 18 0 0 0 0 0 1 0 0 0 0 0 0 0 }1 0 0 0 6 6 
0 0 0 0 0 0 -1 0 }}
{SECT 0 {SECT 0 {PARA 3 "" 0 "" {TEXT -1 27 "Bring in necessary packag
es" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "with(stats):\nwith(plo
ts):" }}}}{SECT 0 {PARA 3 "" 0 "" {TEXT -1 43 "Save data as a file \"d
ata\", then read it in" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "t:
= importdata(`stock-data`,2):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 10 "Num := 10;" }}}}{SECT 0 {PARA 3 "" 0 "" {TEXT -1 17 "Least Squar
es Fit" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 89 "eq_fit := fit[leas
tsquare[[x,y]]]([t[1],t[2]]);\neq_function := unapply( rhs(eq_fit), x \+
);" }}}}{SECT 0 {PARA 3 "" 0 "" {TEXT -1 38 "Plot data points and leas
t squares fit" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "l := [ [t[1
][n], t[2][n]] $n=1..Num ]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
26 "p1 := plot(l,style=point):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 48 "p2 := plot(eq_function(x),x=t[1][1]..t[1][Num]):" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "display(\{p1,p2\});" }}}}}{MARK "3 \+
4 0 0" 4 }{VIEWOPTS 1 1 0 1 1 1803 }