{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 "Text Output" -1 2 1 
{CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 0 0 0 0 0 1 3 0 3 0 }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 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 }}
{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):" }}
{PARA 7 "" 1 "" {TEXT -1 116 "Warning, these names have been redefined
: anova, describe, fit, importdata, random, statevalf, statplots, tran
sform\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 43 "myrand:=(x,y)->e
valf(x+(y-x)*rand()/10^12):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "num_
pts:=21:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 344 "cubic_pts:= pr
oc()\n  local fuzz,a,b,c,d,s,x,i;\n  a:=myrand(-3,3);\n  b:=myrand(-3,
3);\n  c:=myrand(-3,3);\n  d:=myrand(-10,10);\n  if (myrand(-10,10)>0)
 then s:=1 else s:=-1 fi;\n  fuzz:=[random[normald[0,0.5]](num_pts)];
\n  x:=[random[uniform[-3,3]](num_pts)];\n  \n  RETURN([seq([x[i],s*(a
-x[i])*(b-x[i])*(c-x[i])+d+fuzz[i]-.25],i=1..num_pts)]);\nend:" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "randomize(331):" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "data:=cubic_pts();" }}{PARA 12 "" 
1 "" {XPPMATH 20 "6#>%%dataG777$$!+Jv<BF!\"*$\"+)GwO6#!\")7$$\"+Ztp#>#
F)$!+&R?h@%F)7$$!+)4E-$>F)$\"+1B%\\&QF)7$$!*HRXF&F)$!+*fKQ1'F)7$$!+m?J
qFF)$\"+IBvEAF,7$$\"*!p<%H'F)$!+B4E=]F)7$$\"+Z17VDF)$!+$[Y%\\lF)7$$!)y
L'p#F)$!+v$QQ1'F)7$$\"*qU:'*)F)$!+\"=Mx!GF)7$$!+(4E4.\"F)$!+g0hbQF)7$$
\"*A)oi[F)$!+RvdrSF)7$$\"+<`AhGF)$!+hEQ45F,7$$!*V\\4<$F)$!+Z?6R`F)7$$!
+Humv?F)$\"+UW[srF)7$$!*S;Ct\"F)$!+!>`4Q'F)7$$\"*]E6j#F)$!+H9\"y8&F)7$
$!+I#o\"\\EF)$\"+'e'eR>F,7$$!+X)3ht\"F)$\"+BU1(4\"F)7$$!+8*>2d\"F)$\")
\"*Qk;F)7$$!++]X!3\"F)$!+dW4!o%F)7$$\"+)e\"GUFF)$!+<JxW\"*F)" }}}}
{MARK "6" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 
1 1 }