{VERSION 4 0 "SUN SPARC SOLARIS" "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 Output" 2 20 "" 0 1 0 0 255 1 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 "Maple Output" 0 11 1 
{CSTYLE "" -1 -1 "" 0 1 0 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 }{PSTYLE "" 11 12 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 
0 0 0 0 0 0 0 0 0 }1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Maple Plo
t" 0 13 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 0 "> " 0 "" {MPLTEXT 1 0 93 "### WARNING: persist
ent store makes one-argument readlib obsolete\nSeed:=readlib(randomize
)():" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "with(stats):" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "r:=(x,y)->evalf(x+(y-x)*rand
()/10^12):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "num_pts:=20:" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 210 "line:= proc()\n  local m,b,
x,i,er;\n\n  m:=r(.5,4);\n  b:=r(-2,2);\n  er:=[random[normald[0,.5]](
num_pts)];\n  x:=[random[uniform[0,10]](num_pts)];\n  \n  RETURN([seq(
[x[i],m*x[i]+b+2*(er[i]-.25)],i=1..num_pts)]);\nend:" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 15 "randomize(331):" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 13 "data:=line();" }}{PARA 12 "" 1 "" {XPPMATH 20 "6
#>%%dataG767$$\"+\"3$\\Z:!\"*$\"+3Cr#G&F)7$$\"+5H=l7!#5$\"+9VF!f#F)7$$
\"+%e<v8\"F)$\"+fsqAmF)7$$\"+Wq&pt)F)$\"+L<r^H!\")7$$\"+.F2=&)F)$\"+c7
(z(GF<7$$\"+*\\E')y'F)$\"+e665CF<7$$\"+P<1Z<F)$\"+Z>Mf\")F)7$$\"+Ms$H2
\"F)$\"+\"eKOk$F)7$$\"+km;)H#F)$\"+oZ,M%)F)7$$\"+`jrq\")F)$\"+1@K3HF<7
$$\"+j6Y;cF)$\"+J@kG<F<7$$\"+;yq8YF/$\"+!yc2d$F)7$$\"+zb\\a')F)$\"+_j:
*>$F<7$$\"+.l&Hy\"F)$\"+wTh&H'F)7$$\"+=,\"47%F)$\"+*[-(z8F<7$$\"+KA8GQ
F/$\"+mQ%\\3#F)7$$\"+$[H!\\gF)$\"+$z'R[@F<7$$\"+6W`Q#*F)$\"+st<bLF<7$$
\"+P51b\\F)$\"+]Bme>F<7$$\"+]/f$\\'F)$\"+))=Vy@F<" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 23 "plot(data,style=point);" }}{PARA 13 "" 1 "" 
{GLPLOT2D 400 300 300 {PLOTDATA 2 "6&-%'CURVESG6$767$$\"3/+++\"3$\\Z:!
#<$\"33+++3Cr#G&F*7$$\"30+++5H=l7!#=$\"3=+++9VF!f#F*7$$\"3-+++%e<v8\"F
*$\"3C+++fsqAmF*7$$\"3S+++Wq&pt)F*$\"39+++L<r^H!#;7$$\"3j*****Hqs!=&)F
*$\"3,+++c7(z(GF=7$$\"3D+++*\\E')y'F*$\"38+++e665CF=7$$\"3*)*****pthqu
\"F*$\"3q*****p%>Mf\")F*7$$\"32+++Ms$H2\"F*$\"3()*****4eKOk$F*7$$\"3-+
++km;)H#F*$\"3#3++!oZ,M%)F*7$$\"3`*****HN;2<)F*$\"3'******f5A$3HF=7$$
\"3J+++j6Y;cF*$\"3:+++J@kG<F=7$$\"3-+++;yq8YF0$\"3'*******znvqNF*7$$\"
3m+++zb\\a')F*$\"3)******>Nc\"*>$F=7$$\"33+++.l&Hy\"F*$\"3%******f<9cH
'F*7$$\"3H+++=,\"47%F*$\"3%*******)[-(z8F=7$$\"3'******>BK\"GQF0$\"39+
++mQ%\\3#F*7$$\"3)******H[H!\\gF*$\"3')*****Hz'R[@F=7$$\"3%)*****4TM&Q
#*F*$\"3*******>Px^N$F=7$$\"36+++P51b\\F*$\"3=+++]Bme>F=7$$\"37+++]/f$
\\'F*$\"32+++))=Vy@F=-%'COLOURG6&%$RGBG$\"#5!\"\"$\"\"!F`rF_r-%&STYLEG
6#%&POINTG-%+AXESLABELSG6$Q!6\"Fhr-%%VIEWG6$%(DEFAULTGF]s" 1 5 0 1 10 
0 2 9 1 4 2 1.000000 140.000000 -408.000000 0 0 "Curve 1" }}}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "3 0 0" 205 }{VIEWOPTS 
1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }