{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 }}
{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 43 "myrand:=(x,y)->evalf(x+(y-x)
*rand()/10^12):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "num_pts:=21:" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 324 "cubic_pts:= proc()\n  loca
l fuzz,a,b,c,d,s,x,i;\n  a:=myrand(-3,3);\n  b:=myrand(-3,3);\n  c:=my
rand(-3,3);\n  d:=myrand(-10,10);\n  if (myrand(-10,10)>0) then s:=1 e
lse s:=-1 fi;\n  fuzz:=[random[normald[0,0.5]](num_pts)];\n  x:=[rando
m[uniform[-3,3]](num_pts)];\n  \n  RETURN([seq([a+b*cos(x[i]),c+b*sin(
x[i])],i=1..num_pts)]);\nend:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 15 "randomize(331):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "da
ta:=cubic_pts();" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%%dataG777$$!+gY!
*>B!#5$\"*pf7%=!\"*7$$\"+sk6,^F)$\"*lt:i$F,7$$\"+c.*p`)F)$\"+i$3Wj'F)7
$$\"+eW'*omF)$\"+4FmPCF,7$$!+J;A*=(F)$\"+p\"QEf#F,7$$!+^$pUM*F)$\"+fT,
bXF)7$$\"+J]:,6F,$\"+@iV(=\"F,7$$\"+9y>%)\\F)$\"*)yR_NF,7$$\"+seeY(*F)
$\"+O)[FY)F)7$$!+)42\"H8F)$\"*dU<\"=F,7$$\"+k?9:tF)$\"+P4]!Q#F,7$$!+@v
Y-()F)$\"*?V)zSF,7$$!+S$=kP\"F,$\"+u-!3y\"F,7$$\"+=A.6eF)$\"*9k$zSF,7$
$!+'*pw*))*!#6$\"+\"))H'GFF,7$$\"+!eE\\\\#F)$\"*S!yNCF,7$$\"+?P6ltF)$
\"+%\\^#[`F)7$$!+4$\\o%))F)$\"+y4V#\\#F,7$$\"+y\\)zB(F)$\"+%RE#G_F)7$$
\"+N@WuYF)$\"+iy&Gd#F,7$$!+_\\XWtF)$\"+6Zm%e#F," }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 23 "plot(data,style=point);" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "7 0 0" 0 }{VIEWOPTS 1 1 0 1 1 
1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }