{VERSION 5 0 "IBM INTEL NT" "5.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 "Times" 1 12 0 0 0 1 2 2 2 2 
2 2 1 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Warning" -1 7 1 
{CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 2 2 2 2 2 1 1 1 3 1 }1 1 0 
0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple Output" -1 11 1 {CSTYLE "" -1 
-1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 3 0 0 0 0 1 0 1 0 2 2 
0 1 }{PSTYLE "Maple Plot" -1 13 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 
1 2 2 2 2 2 2 1 1 1 1 }3 1 0 0 0 0 1 0 1 0 2 2 0 1 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 59 "\"Markov\":  rho:=.9
:  n:=100:   with(stats):   with(plots): " }}{PARA 7 "" 1 "" {TEXT -1 
50 "Warning, the name changecoords has been redefined\n" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "x:=[0]:" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 61 "for i to n-1 do x:=[op(x),rho*x[i]+random[normald](
)] end do:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 45 "pointplot([se
q([j,x[j]],j=1..n)],style=LINE);" }}{PARA 13 "" 1 "" {GLPLOT2D 593 
475 475 {PLOTDATA 2 "6$-%'CURVESG6#7`q7$$\"\"\"\"\"!$F*F*7$$\"\"#F*$\"
+o&Re<\"!\"*7$$\"\"$F*$\"+1'\\OH\"F17$$\"\"%F*$\")6%)3&)F17$$\"\"&F*$!
+%z)p3DF17$$\"\"'F*$!+'R56E$F17$$\"\"(F*$!+(\\a(39F17$$\"\")F*$!+,y$Q5
\"F17$$\"\"*F*$!+5$3X`\"F17$$\"#5F*$!+&fLm>\"F17$$\"#6F*$!+QymD:F17$$
\"#7F*$!+B!o47\"F17$$\"#8F*$!+EM()3=!#57$$\"#9F*$\"+(y%y-'*Fco7$$\"#:F
*$!+KSy;pFco7$$\"#;F*$!+u\"y69\"F17$$\"#<F*$!+u.BjDF17$$\"#=F*$!+uf%H&
GF17$$\"#>F*$!+jod6DF17$$\"#?F*$!+5!R&\\SF17$$\"#@F*$!+5I!4U&F17$$\"#A
F*$!+uK!Q)\\F17$$\"#BF*$!+=KIVdF17$$\"#CF*$!+(zoa0%F17$$\"#DF*$!+$=e9o
$F17$$\"#EF*$!+$*=_p:F17$$\"#FF*$!+m))H/>F17$$\"#GF*$!+C8Zg7F17$$\"#HF
*$!+(4k93#F17$$\"#IF*$!+LdM?9F17$$\"#JF*$!+mqlj#*Fco7$$\"#KF*$!+EY!4;
\"F17$$\"#LF*$!+:\\et8F17$$\"#MF*$!+<8$\\I\"F17$$\"#NF*$!+f^e@8F17$$\"
#OF*$!+My'zC\"F17$$\"#PF*$!+FU(oT#F17$$\"#QF*$!+6oM$e\"F17$$\"#RF*$!++
%R5N#F17$$\"#SF*$!+UwmcFF17$$\"#TF*$!*Ge&yvF17$$\"#UF*$!+/%*zH:F17$$\"
#VF*$!+Ic)G)HF17$$\"#WF*$!++8ZgDF17$$\"#XF*$!+N0-OHF17$$\"#YF*$!+O@`(f
%F17$$\"#ZF*$!+Jt&QF#F17$$\"#[F*$!+89$y_\"F17$$\"#\\F*$!+Of.H9F17$$\"#
]F*$!+()*QeB'Fco7$$\"#^F*$\"*.eY!>Fco7$$\"#_F*$\"+_T&*fgFco7$$\"#`F*$
\"+*eyM(eFco7$$\"#aF*$\"*2OWn%Fco7$$\"#bF*$\"+ykZ.#)Fco7$$\"#cF*$\"+00
\"zJ#Fco7$$\"#dF*$\"*ct2K\"Fco7$$\"#eF*$!+%\\'pU7Fco7$$\"#fF*$\"+gi(>)
zFco7$$\"#gF*$\"+7<')z;F17$$\"#hF*$\"+1H(4P#F17$$\"#iF*$\"+utOV:F17$$
\"#jF*$\"*'p?MLF17$$\"#kF*$\"+2+OrBF17$$\"#lF*$\"+QL(e>\"F17$$\"#mF*$
\"+Fb![!zFco7$$\"#nF*$\"+MLHEbFco7$$\"#oF*$\"+><)3T\"F17$$\"#pF*$!*md?
\"HF17$$\"#qF*$!+y0$4g\"F17$$\"#rF*$!+P0ZXEF17$$\"#sF*$!+L4()=FF17$$\"
#tF*$!+2AD\">#F17$$\"#uF*$!+;1J3<F17$$\"#vF*$!+mj$[X\"F17$$\"#wF*$!+B(
yC&=F17$$\"#xF*$!+.RbjsFco7$$\"#yF*$!+EftN@F17$$\"#zF*$!+!))4QT$F17$$
\"#!)F*$!+<\"==0%F17$$\"#\")F*$!+A3!HR#F17$$\"##)F*$!+c#e4=\"F17$$\"#$
)F*$!+#ot\"RQFco7$$\"#%)F*$\"+ITnu<Fco7$$\"#&)F*$\"+ElUIrFco7$$\"#')F*
$\"+3DFn$*Fco7$$\"#()F*$!+.8\\eTFco7$$\"#))F*$\"+(4a/A)Fco7$$\"#*)F*$!
+LbfxbFco7$$\"#!*F*$!+ysEh\"*Fco7$$\"#\"*F*$!+iV*)>7F17$$\"##*F*$!+Y3E
b`Fco7$$\"#$*F*$!+wqPQ>F17$$\"#%*F*$!+iubcIF17$$\"#&*F*$!+jg(QQ$F17$$
\"#'*F*$!+u&\\q4$F17$$\"#(*F*$!+.e4KCF17$$\"#)*F*$!+.d#)zSF17$$\"#**F*
$!+_(H+;$F17$$\"$+\"F*$!*.tU9(F1-%&STYLEG6#%%LINEG" 1 6 0 1 10 0 2 9 
1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" }}}}{EXCHG {PARA 0 "
" 0 "" {TEXT -1 22 "Empirical correlogram:" }{MPLTEXT 1 0 0 "" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 45 "x:=convert(evalm(x-add(x[j],
j=1..n)/n),list):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "var:=a
dd(x[j]^2,j=1..n)/n;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$varG$\"+fz%
*pG!\"*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 46 "cov:=k->evalm([0
$k,op(x)]&*[op(x),0$k])/(n-k):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 41 "pointplot([seq([k,cov(k)/var],k=0..15)]);" }}{PARA 13 "" 1 "" 
{GLPLOT2D 400 300 300 {PLOTDATA 2 "6#-%'POINTSG627$$\"\"!F($\"+')*****
***!#57$$\"\"\"F($\"+'GJLA)F+7$$\"\"#F($\"+0O34kF+7$$\"\"$F($\"+fL\"y%
\\F+7$$\"\"%F($\"+Q@'oj$F+7$$\"\"&F($\"+*\\U_K#F+7$$\"\"'F($\"+J>+v9F+
7$$\"\"(F($\"+4z:Ne!#67$$\"\")F($!++[r&***!#77$$\"\"*F($!+GAP5_FO7$$\"
#5F($!+JC?(y*FO7$$\"#6F($!+K/!R*)*FO7$$\"#7F($!+)[$*3/\"F+7$$\"#8F($!+
7XZ*>\"F+7$$\"#9F($!+6%)QT6F+7$$\"#:F($!+NuQ\\5F+" 1 2 0 1 10 0 2 9 1 
4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" }}}}{EXCHG {PARA 0 "" 
0 "" {TEXT -1 24 "Theoretical correlogram:" }{MPLTEXT 1 0 0 "" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 42 "pointplot([[0,0],seq([k,rho^
k],k=0..15)]);" }}{PARA 13 "" 1 "" {GLPLOT2D 433 307 307 {PLOTDATA 2 "
6#-%'POINTSG637$$\"\"!F(F'7$F'$\"\"\"F(7$F*$\"\"*!\"\"7$$\"\"#F($\"#\"
)!\"#7$$\"\"$F($\"$H(!\"$7$$\"\"%F($\"%hl!\"%7$$\"\"&F($\"&\\!f!\"&7$$
\"\"'F($\"'T9`!\"'7$$\"\"(F($\"(pHy%!\"(7$$\"\")F($\")@n/V!\")7$$F.F($
\"**[?uQ!\"*7$$\"#5F($\"+,Wy'[$!#57$$\"#6F($\"+hf5QJF^o7$$\"#7F($\"+l`
HCGF^o7$$\"#8F($\"+Ge'=a#F^o7$$\"#9F($\"+Y#zwG#F^o7$$\"#:F($\"+@8\"*e?
F^o" 1 2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1
" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 5 "Yule:" 
}{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 41 "x:=[0,
0]:   a1:=1.6:  a2:=-.8:    n:=200:" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 36 "solve(lambda^2-a1*lambda-a2,lambda);" }}{PARA 11 "" 
1 "" {XPPMATH 20 "6$^$$\"+++++!)!#5$\"+++++SF&^$F$$!+++++SF&" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "seq(abs(%[i]),i=1..2);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6$$\"+5>FW*)!#5F#" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 70 "for i to n-2 do x:=[op(x),a2*x[i]+a1*x[i+1]+ra
ndom[normald]()] end do:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 45 
"pointplot([seq([j,x[j]],j=1..n)],style=LINE);" }}{PARA 13 "" 1 "" 
{GLPLOT2D 657 462 462 {PLOTDATA 2 "6$-%'CURVESG6#7dw7$$\"\"\"\"\"!$F*F
*7$$\"\"#F*F+7$$\"\"$F*$!+=B2o<!#57$$\"\"%F*$!+h)y;t\"!\"*7$$\"\"&F*$!
+2$*RhJF:7$$\"\"'F*$!+#y.&RRF:7$$\"\"(F*$!+D1GA<F:7$$\"\")F*$!+(Q4V<\"
F:7$$\"\"*F*$!+gs\")\\5F:7$$\"#5F*$\"+KT')**>F:7$$\"#6F*$\"+PWa!Q&F:7$
$\"#7F*$\"+%3>!y$)F:7$$\"#8F*$\"+t:7Y!*F:7$$\"#9F*$\"+X]Wy*)F:7$$\"#:F
*$\"+o8!ez'F:7$$\"#;F*$\"+@#Q-S#F:7$$\"#<F*$!+*zNZ1\"F:7$$\"#=F*$!+M5#
Hj$F:7$$\"#>F*$!+UI@j^F:7$$\"#?F*$!+*etBk&F:7$$\"#@F*$!+HoQDUF:7$$\"#A
F*$!+YINm:F:7$$\"#BF*$\"+)oLb`%F47$$\"#CF*$\"+Z;E0IF:7$$\"#DF*$\"+N$>x
(\\F:7$$\"#EF*$\"+D@.TXF:7$$\"#FF*$\"+g+6iNF:7$$\"#GF*$\"+KXw$Q#F:7$$
\"#HF*$\"+>tdE6F:7$$\"#IF*$\"+El-FJF47$$\"#JF*$!+BNT)['F47$$\"#KF*$!+Q
Ln'e(F47$$\"#LF*$!+(o)GL9F:7$$\"#MF*$!+x'\\FP#F:7$$\"#NF*$!+VU;XHF:7$$
\"#OF*$!+XW6iAF:7$$\"#PF*$!+S7<SlF47$$\"#QF*$!+5@y*[\"F47$$\"#RF*$!+.4
'\\#>F:7$$\"#SF*$!+KrfaGF:7$$\"#TF*$!+'4z:X%F:7$$\"#UF*$!+.7-%*QF:7$$
\"#VF*$!*:Lcm'F:7$$\"#WF*$\"+`vjjNF:7$$\"#XF*$\"+*Q?%)=(F:7$$\"#YF*$\"
+f@c#f)F:7$$\"#ZF*$\"+o*)eU%*F:7$$\"#[F*$\"+3N/9#*F:7$$\"#\\F*$\"+!yk(
3yF:7$$\"#]F*$\"+TC&y.%F:7$$\"#^F*$!+Mbu3ZF47$$\"#_F*$!+*G;vY&F:7$$\"#
`F*$!+r;\\!>)F:7$$\"#aF*$!++u*[K(F:7$$\"#bF*$!+F#=;0&F:7$$\"#cF*$!+GpX
QWF:7$$\"#dF*$!+mE:(*>F:7$$\"#eF*$\"+SHEelF47$$\"#fF*$\"+q#Rf7$F:7$$\"
#gF*$\"+!4SX]$F:7$$\"#hF*$\"+=*Q-4#F:7$$\"#iF*$\"*Qco>)F47$$\"#jF*$\"*
x>iU\"F:7$$\"#kF*$!+u6!yD#F47$$\"#lF*$!+%HcD>\"F:7$$\"#mF*$!+;CR&4#F:7
$$\"#nF*$!+Hz(4G\"F:7$$\"#oF*$!+Sn+n7F47$$\"#pF*$\"+TxxX?F:7$$\"#qF*$
\"+(\\k,;#F:7$$\"#rF*$\"+v!)R8HF:7$$\"#sF*$\"+)))>+.#F:7$$\"#tF*$\"+nc
p!Q\"F:7$$\"#uF*$\"+z)>;b\"F:7$$\"#vF*$\"+&[AkB*F47$$\"#wF*$\"+U0#[`\"
F:7$$\"#xF*$\"+F#yRL\"F:7$$\"#yF*$\"+kJ#y#=F:7$$\"#zF*$!+=KRW7F:7$$\"#
!)F*$!+!=Pgs%F:7$$\"#\")F*$!+_n;:iF:7$$\"##)F*$!+=zagXF:7$$\"#$)F*$!+&
R3\\'=F:7$$\"#%)F*$!*%3S$R&F:7$$\"#&)F*$\"+'QD\"f5F:7$$\"#')F*$\"+x(y+
<#F:7$$\"#()F*$\"+f^&GA#F:7$$\"#))F*$\"+*[lB)HF:7$$\"#*)F*$\"+@9au<F:7
$$\"#!*F*$!*3>y^)F:7$$\"#\"*F*$!+WyYBGF:7$$\"##*F*$!+`\\k#\\\"F:7$$\"#
$*F*$!+#Q.+r(F47$$\"#%*F*$\"+,RXZMF47$$\"#&*F*$\"+E(*QFNF:7$$\"#'*F*$
\"+0c]<WF:7$$\"#(*F*$\"+f&\\Jz#F:7$$\"#)*F*$\"+=(\\(\\aF47$$\"#**F*$!+
vU*fQ#F:7$$\"$+\"F*$!+=48gFF:7$$\"$,\"F*$!+#)eWu@F:7$$\"$-\"F*$!+0IL\\
=F:7$$\"$.\"F*$!+xRQ#y\"F:7$$\"$/\"F*$!+!y!oe8F:7$$\"$0\"F*$!*8q$z%)F4
7$$\"$1\"F*$\"+a/Id@F:7$$\"$2\"F*$\"+?QC#=$F:7$$\"$3\"F*$\"+`\"**pK$F:
7$$\"$4\"F*$\"+HmG)f#F:7$$\"$5\"F*$\"+TS*Q,#F:7$$\"$6\"F*$\"+$RyiI'F47
$$\"$7\"F*$!+\"p%y?<F:7$$\"$8\"F*$!+[)\\O^#F:7$$\"$9\"F*$!+KQeb[F:7$$
\"$:\"F*$!+Gkf)y&F:7$$\"$;\"F*$!+dG<<[F:7$$\"$<\"F*$!+l**oHVF:7$$\"$=
\"F*$!+ZA]2SF:7$$\"$>\"F*$!+9OA1FF:7$$\"$?\"F*$!)>]G:F:7$$\"$@\"F*$\"+
(=K)*3%F:7$$\"$A\"F*$\"+ob)*3aF:7$$\"$B\"F*$\"+Nkx8gF:7$$\"$C\"F*$\"+9
Az#*eF:7$$\"$D\"F*$\"+*p'4\"y(F:7$$\"$E\"F*$\"+ntRNzF:7$$\"$F\"F*$\"+[
<WqbF:7$$\"$G\"F*$\"+7Sdy;F:7$$\"$H\"F*$!+!y9D&=F:7$$\"$I\"F*$!+gFaTYF
:7$$\"$J\"F*$!+ReqLpF:7$$\"$K\"F*$!+Fy,_dF:7$$\"$L\"F*$!+w.j1DF:7$$\"$
M\"F*$!*>j[j$F47$$\"$N\"F*$\"+!)R#)\\MF:7$$\"$O\"F*$\"+Aq[OaF:7$$\"$P
\"F*$\"+I()*oW&F:7$$\"$Q\"F*$\"+EUv$Q%F:7$$\"$R\"F*$\"+uSp)Q$F:7$$\"$S
\"F*$\"+`>)\\*>F:7$$\"$T\"F*$\"+Ts(=B\"F:7$$\"$U\"F*$\"+t48-[F47$$\"$V
\"F*$!+T*H*HJF47$$\"$W\"F*$!+$f.^(>F:7$$\"$X\"F*$!+<,SXIF:7$$\"$Y\"F*$
!+)[SW8$F:7$$\"$Z\"F*$!+5HSZLF:7$$\"$[\"F*$!+Z:1&o&F:7$$\"$\\\"F*$!+xD
C^mF:7$$\"$]\"F*$!+GhfxcF:7$$\"$^\"F*$!+SD2%e$F:7$$\"$_\"F*$!+_0I%z\"F
:7$$\"$`\"F*$!+t'zy6#F:7$$\"$a\"F*$!+Fk)46#F:7$$\"$b\"F*$!+eLdbPF:7$$
\"$c\"F*$!++AMkXF:7$$\"$d\"F*$!+L*fG6%F:7$$\"$e\"F*$!+]4F(Q\"F:7$$\"$f
\"F*$\"+Nn%HE#F:7$$\"$g\"F*$\"+V>\\$4#F:7$$\"$h\"F*$\"+uyK`>F:7$$\"$i
\"F*$\"+o1p(>\"F:7$$\"$j\"F*$!+4S)>L\"F:7$$\"$k\"F*$!+_<aERF:7$$\"$l\"
F*$!+Hq!p`%F:7$$\"$m\"F*$!+lpR**QF:7$$\"$n\"F*$!+Kim6NF:7$$\"$o\"F*$!+
B>oNLF:7$$\"$p\"F*$!+!p=V&>F:7$$\"$q\"F*$!+FV&o*\\F47$$\"$r\"F*$\"+A\"
>U+#F:7$$\"$s\"F*$\"+!Q,mp\"F:7$$\"$t\"F*$\"+*=I;X\"F:7$$\"$u\"F*$\"+
\"o0s7#F:7$$\"$v\"F*$\"+lc)f2$F:7$$\"$w\"F*$\"+#*)RdW%F:7$$\"$x\"F*$\"
+:D,PNF:7$$\"$y\"F*$\"+z^+eHF:7$$\"$z\"F*$\"+/fft5F:7$$\"$!=F*$!+4Lvk:
F:7$$\"$\"=F*$!+$*ek7AF:7$$\"$#=F*$!+N0M9@F:7$$\"$$=F*$!+2l?R9F:7$$\"$
%=F*$!+8R>>:F:7$$\"$&=F*$!+VB6gDF:7$$\"$'=F*$!+t-*H>&F:7$$\"$(=F*$!+!H
(yt`F:7$$\"$)=F*$!+Kpz!=&F:7$$\"$*=F*$!+^d+SQF:7$$\"$!>F*$!+b7j,?F:7$$
\"$\">F*$\"+R+(**[(F47$$\"$#>F*$\"+9j'H:#F:7$$\"$$>F*$\"+.$)G[JF:7$$\"
$%>F*$\"+xf$4&HF:7$$\"$&>F*$\"+\\)=!H9F:7$$\"$'>F*$\"+>R[\\8F47$$\"$(>
F*$!+R9/cDF:7$$\"$)>F*$!+pA+;=F:7$$\"$*>F*$!+U4ml:F:7$$\"$+#F*$!+0&oBe
'F4-%&STYLEG6#%%LINEG" 1 6 0 1 10 0 2 9 1 4 2 1.000000 45.000000 
45.000000 0 0 "Curve 1" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 45 "
x:=convert(evalm(x-add(x[j],j=1..n)/n),list):" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 26 "var:=add(x[j]^2,j=1..n)/n;" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%$varG$\"+]C4@8!\")" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 41 "pointplot([seq([k,cov(k)/var],k=0..15)]);" }}{PARA 
13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6#-%'POINTSG627$$\"\"!F(
$\"+-+++5!\"*7$$\"\"\"F($\"+v-V_))!#57$$\"\"#F($\"+$zO%egF17$$\"\"$F($
\"+*H^oc#F17$$\"\"%F($!+XIJSy!#67$$\"\"&F($!+w:mKMF17$$\"\"'F($!+&\\5X
.&F17$$\"\"(F($!+m.sPaF17$$\"\")F($!+I@VJ[F17$$\"\"*F($!+Vb[/NF17$$\"#
5F($!+c\"R,'=F17$$\"#6F($!+(\\Mq\"HFA7$$\"#7F($\"+]!e5v*FA7$$\"#8F($\"
+\"G6.\"=F17$$\"#9F($\"+)pjmB#F17$$\"#:F($\"+(H7kG#F1" 1 2 0 1 10 0 2 
9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" }}}}{EXCHG {PARA 0 
"> " 0 "" {MPLTEXT 1 0 32 "r:='r':r[0]:=1: r[1]:=a1/(1-a2):" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 55 "for k from 2 to 15 do r[k]:=
a1*r[k-1]+a2*r[k-2] end do:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
41 "pointplot([[0,0],seq([i,r[i]],i=0..15)]);" }}{PARA 13 "" 1 "" 
{GLPLOT2D 495 320 320 {PLOTDATA 2 "6#-%'POINTSG637$$\"\"!F(F'7$F'$\"\"
\"F(7$F*$\"+*)))))))))!#57$$\"\"#F($\"*AAAA'!\"*7$$\"\"$F($\"+TWWWGF/7
$$\"\"%F($!*qmmE%F/7$$\"\"&F($!+DAAeHF/7$$\"\"'F($!+CA#=R%F/7$$\"\"(F(
$!+yxLgYF/7$$\"\")F($!+mE3VRF/7$$\"\"*F($!+W?m!e#F/7$$\"#5F($!*PJfu*F/
7$$\"#6F($\"*;1=0&F/7$$\"#7F($\"+&\\jze\"F/7$$\"#8F($\"+*4(fO@F/7$$\"#
9F($\"+iX=[@F/7$$\"#:F($\"+?w\"ys\"F/" 1 2 0 1 10 0 2 9 1 4 2 
1.000000 45.000000 45.000000 0 0 "Curve 1" }}}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}
{EXCHG {PARA 0 "" 0 "" {TEXT -1 14 "Autoregressive" }{MPLTEXT 1 0 0 "
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 51 "x:=[0,0,0]:   a1:=1.05:
  a2:=-.8: a3:=.7:   n:=200:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 48 "solve(lambda^3-a1*lambda^2-a2*lambda-a3,lambda);" }}{PARA 11 "" 
1 "" {XPPMATH 20 "6%^$$\"+Mv'H-%!#6$!+!zyu[)!#5^$F$$\"+!zyu[)F)$\"+$\\
1ap*F)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "seq(abs(%[i]),i=1
..3);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%$\"+Vw+(\\)!#5F#$\"+$\\1ap*F%
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 80 "for i to n-2 do x:=[op(
x),a3*x[i]+a2*x[i+1]+a1*x[i+2]+random[normald]()] end do:" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 45 "pointplot([seq([j,x[j]],j=1..n)],st
yle=LINE);" }}{PARA 13 "" 1 "" {GLPLOT2D 657 462 462 {PLOTDATA 2 "6$-%
'CURVESG6#7dw7$$\"\"\"\"\"!$F*F*7$$\"\"#F*F+7$$\"\"$F*F+7$$\"\"%F*$!+j
dzXO!#57$$\"\"&F*$\"**>G&*)*F77$$\"\"'F*$!+$Rk\\q%F77$$\"\"(F*$!+KL4af
F77$$\"\")F*$\"+,&f&*3#F77$$\"\"*F*$\"+OE88@!\"*7$$\"#5F*$\"+gn&p)>FQ7
$$\"#6F*$\"+)fVD<\"FQ7$$\"#7F*$\"+A-\"[X\"FQ7$$\"#8F*$\"*^Cp/(FQ7$$\"#
9F*$\"+<#QpO\"FQ7$$\"#:F*$\"++Lv:GFQ7$$\"#;F*$\"+)QcM?$FQ7$$\"#<F*$\"*
/3U%**FQ7$$\"#=F*$\"+\"37`P$F77$$\"#>F*$\"+H*3'e9FQ7$$\"#?F*$\"+'y`yW#
FQ7$$\"#@F*$\"+S'RKF#FQ7$$\"#AF*$\"+_n'Hz*F77$$\"#BF*$\"+v^3>YF77$$\"#
CF*$!+jk,t6FQ7$$\"#DF*$!+\"Hv.J\"FQ7$$\"#EF*$!+B]YE;FQ7$$\"#FF*$!+b#[j
&pF77$$\"#GF*$\"*1ofI#F77$$\"#HF*$!+*e')pf#F77$$\"#IF*$!+hxUo5FQ7$$\"#
JF*$!+GXzOPF77$$\"#KF*$!+l5[3>F77$$\"#LF*$!+c7/J@F77$$\"#MF*$!+7K#>]\"
FQ7$$\"#NF*$!+b%f`%=FQ7$$\"#OF*$!+pB@BCF77$$\"#PF*$!+l7`GZF77$$\"#QF*$
!*8^@T&FQ7$$\"#RF*$!+([jT_(F77$$\"#SF*$!+kb*)H<FQ7$$\"#TF*$!+m@abBFQ7$
$\"#UF*$!+8/*\\v#FQ7$$\"#VF*$!+\"e&\\%=#FQ7$$\"#WF*$!+OKV<NFQ7$$\"#XF*
$!+v>!**p$FQ7$$\"#YF*$!+%QPL@$FQ7$$\"#ZF*$!+v.g/>FQ7$$\"#[F*$!+_lhhHFQ
7$$\"#\\F*$!+fX6(R%FQ7$$\"#]F*$!+'[Ch*GFQ7$$\"#^F*$!+NQDK8FQ7$$\"#_F*$
!+gI[P@FQ7$$\"#`F*$!+4Z!>I#FQ7$$\"#aF*$!+9AL))=FQ7$$\"#bF*$!+wOUO<FQ7$
$\"#cF*$!+PPZkHFQ7$$\"#dF*$!+'*f6NFFQ7$$\"#eF*$!+&fQ0O\"FQ7$$\"#fF*$!+
2E#\\2\"FQ7$$\"#gF*$!+yPSwHFQ7$$\"#hF*$!+M&)3*G%FQ7$$\"#iF*$!+y')*RN#F
Q7$$\"#jF*$!+S(\\LT#FQ7$$\"#kF*$!+$4!QHSFQ7$$\"#lF*$!+>>)yU$FQ7$$\"#mF
*$!*PX^$[FQ7$$\"#nF*$!+^o][?FQ7$$\"#oF*$!+4)QTR%FQ7$$\"#pF*$!+QO'=)QFQ
7$$\"#qF*$!+(\\ywN\"FQ7$$\"#rF*$\"*\"Gr=UFQ7$$\"#sF*$!+7QfL<FQ7$$\"#tF
*$!+4cH4OFQ7$$\"#uF*$!+lvI%y\"FQ7$$\"#vF*$!+wN@V:FQ7$$\"#wF*$!+(Q1#yKF
Q7$$\"#xF*$!+U^>AXFQ7$$\"#yF*$!+)GEKU$FQ7$$\"#zF*$!+ID0TJFQ7$$\"#!)F*$
!+6V!y&GFQ7$$\"#\")F*$!+v#GqO$FQ7$$\"##)F*$!*js(=qFQ7$$\"#$)F*$\"+\\zh
?WF77$$\"#%)F*$!+qxAMEFQ7$$\"#&)F*$!+4pi%)QFQ7$$\"#')F*$!+/E5I(*F77$$
\"#()F*$\"+usc)H#F77$$\"#))F*$\"*:V\"*e#FQ7$$\"#*)F*$!+0y(*ffF77$$\"#!
*F*$\"*IP:K)F77$$\"#\"*F*$\"+jT\"Q-%F77$$\"##*F*$!+:VNqCF77$$\"#$*F*$!
([X@&F77$$\"#%*F*$\"+Iq=IUF77$$\"#&*F*$!++e8TxF77$$\"#'*F*$!+>C'zB*F77
$$\"#(*F*$\"+4$=sU'F77$$\"#)*F*$\"+oYHq5FQ7$$\"#**F*$!+$zFZC$F77$$\"$+
\"F*$!+jX6F%)F77$$\"$,\"F*$\"+)Q&zF\"*F77$$\"$-\"F*$\"+!)GVb:FQ7$$\"$.
\"F*$\"+:7j!3#FQ7$$\"$/\"F*$\"+`okTCFQ7$$\"$0\"F*$!*b'4`XFQ7$$\"$1\"F*
$!+?m'p=*F77$$\"$2\"F*$!)U>5lFQ7$$\"$3\"F*$!+qH(y![F77$$\"$4\"F*$!+S#
\\o]\"FQ7$$\"$5\"F*$!+G,CI;FQ7$$\"$6\"F*$!+@pPHUF77$$\"$7\"F*$!+n_f;XF
77$$\"$8\"F*$!+kkGipF77$$\"$9\"F*$!+f]*[a$F77$$\"$:\"F*$!+uH#)y9FQ7$$
\"$;\"F*$!+R%[D!>FQ7$$\"$<\"F*$!++(RFj*F77$$\"$=\"F*$!++,p\"=\"FQ7$$\"
$>\"F*$!+0EI'4#FQ7$$\"$?\"F*$!+CN&G5#FQ7$$\"$@\"F*$!+!zh%H?FQ7$$\"$A\"
F*$!+7In!H#FQ7$$\"$B\"F*$!+Ey**Q=FQ7$$\"$C\"F*$!*z*zDGFQ7$$\"$D\"F*$!+
iT.UcF77$$\"$E\"F*$!*wbQ#QFQ7$$\"$F\"F*$\"+*e.*z#*F77$$\"$G\"F*$\"+\"z
t`V$F77$$\"$H\"F*$\"+@@'[z'F77$$\"$I\"F*$\"+[i&[*>FQ7$$\"$J\"F*$\"+Sq]
sFFQ7$$\"$K\"F*$\"+!)f-p9FQ7$$\"$L\"F*$\"+<M(>k$F77$$\"$M\"F*$\"+nB16?
FQ7$$\"$N\"F*$\"+yNSQLFQ7$$\"$O\"F*$\"+U%p%RGFQ7$$\"$P\"F*$\"*nt\"[>FQ
7$$\"$Q\"F*$!+qg3.bF77$$\"$R\"F*$\"+eZN!)[F77$$\"$S\"F*$\"+M&*G$[\"FQ7
$$\"$T\"F*$!+b#[hW*F77$$\"$U\"F*$!+!*o#p.\"FQ7$$\"$V\"F*$!*+dPc%F77$$
\"$W\"F*$!+rML6XF77$$\"$X\"F*$!+'f%=#y#FQ7$$\"$Y\"F*$!+d*>yp#FQ7$$\"$Z
\"F*$\"*\"o:JBFQ7$$\"$[\"F*$\"+))4p*e\"FQ7$$\"$\\\"F*$!+%)op_*)F77$$\"
$]\"F*$!+]5`6EFQ7$$\"$^\"F*$!+'H9.\\\"FQ7$$\"$_\"F*$!+?=:fUF77$$\"$`\"
F*$!+bOBL8FQ7$$\"$a\"F*$!+]s\\0IFQ7$$\"$b\"F*$!+$***[jFFQ7$$\"$c\"F*$!
+DU%*y?FQ7$$\"$d\"F*$!+Rk0iSFQ7$$\"$e\"F*$!+uHDPUFQ7$$\"$f\"F*$\")VKAO
FQ7$$\"$g\"F*$\"+0$*3M]F77$$\"$h\"F*$!*sh$[rFQ7$$\"$i\"F*$!++2p9;FQ7$$
\"$j\"F*$!+thR[hF77$$\"$k\"F*$\"+b^\"zE)F77$$\"$l\"F*$!+e4T<ZF77$$\"$m
\"F*$!+![u[)yF77$$\"$n\"F*$\"+$pDuy)F77$$\"$o\"F*$\"+0i^\\>FQ7$$\"$p\"
F*$\"+*=?7J\"FQ7$$\"$q\"F*$\"+*=Jzq(F77$$\"$r\"F*$\"+!f4]`'F77$$\"$s\"
F*$\"+g>t!*\\F77$$\"$t\"F*$\"+l'zDb%F77$$\"$u\"F*$!+O>^t5F77$$\"$v\"F*
$!+24s;[F77$$\"$w\"F*$\"+d\\IYcF77$$\"$x\"F*$\"+.3I^8F77$$\"$y\"F*$\"+
_!Q:e%F77$$\"$z\"F*$\"+#p3&R7FQ7$$\"$!=F*$\"+vE.Q&*F77$$\"$\"=F*$!+)QN
uf#F77$$\"$#=F*$!+W79P\"*F77$$\"$$=F*$\"+*)fLDwF77$$\"$%=F*$\"+'RcDi$F
Q7$$\"$&=F*$\"+-1c\\TFQ7$$\"$'=F*$\"+o]<a5FQ7$$\"$(=F*$!+&3V+8\"FQ7$$
\"$)=F*$\"+jAm[>FQ7$$\"$*=F*$\"+OF%R\"RFQ7$$\"$!>F*$\"+wA7#e\"FQ7$$\"$
\">F*$!+#pZC)GFQ7$$\"$#>F*$!+m&)\\v8FQ7$$\"$$>F*$\"*v<m['FQ7$$\"$%>F*$
\"+)[a\"owF77$$\"$&>F*$!+i-G^AFQ7$$\"$'>F*$!+%op+-#FQ7$$\"$(>F*$\"+dQy
4))F77$$\"$)>F*$!*I.?!=F77$$\"$*>F*$!+OI2bFFQ7$$\"$+#F*$!+?/e&R\"FQ-%&
STYLEG6#%%LINEG" 1 6 0 1 10 0 2 9 1 4 2 1.000000 45.000000 45.000000 
0 0 "Curve 1" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 45 "x:=convert
(evalm(x-add(x[j],j=1..n)/n),list):" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 26 "var:=add(x[j]^2,j=1..n)/n;" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%$varG$\"+NNBiJ!\"*" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 47 "pointplot([[0,0],seq([k,cov(k)/var],k=0..15)]);" }}
{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6#-%'POINTSG637$$
\"\"!F(F'7$F'$\"+=YF+5!\"*7$$\"\"\"F($\"+\\@Hzr!#57$$\"\"#F($\"+)HMn#R
F27$$\"\"$F($\"+UPS*z%F27$$\"\"%F($\"+_#\\pg'F27$$\"\"&F($\"+Lznx`F27$
$\"\"'F($\"+=1d4KF27$$\"\"(F($\"+5!fiH$F27$$\"\")F($\"+7\"yb;%F27$$\"
\"*F($\"+3Us-JF27$$\"#5F($\"+z#Qfe\"F27$$\"#6F($\"+!Qhc'>F27$$\"#7F($
\"+\"zXRz#F27$$\"#8F($\"+<\\yU=F27$$\"#9F($\"+mG`#H%!#67$$\"#:F($\"+g>
'*evF^p" 1 2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curv
e 1" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "r:='r':r[0]:=1:" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 69 "solve(\{r[1]=a1+a2*r[1]+a3*
r[2],r[2]=a1*r[1]+a2+a3*r[1]\},\{r[1],r[2]\}):" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 10 "assign(%):" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 65 "for k from 3 to 15 do r[k]:=a1*r[k-1]+a2*r[k-2]+a3*r[
k-3] end do:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 41 "pointplot([
[0,0],seq([i,r[i]],i=0..15)]);" }}{PARA 13 "" 1 "" {GLPLOT2D 496 496 
496 {PLOTDATA 2 "6#-%'POINTSG637$$\"\"!F(F'7$F'$\"\"\"F(7$F*$\"+I\"R<_
)!#57$$\"\"#F($\"+yM/8pF/7$$\"\"$F($\"+[VITuF/7$$\"\"%F($\"+u@:[#)F/7$
$\"\"&F($\"+SnkYvF/7$$\"\"'F($\"+#QqV`'F/7$$\"\"(F($\"+J!yuf'F/7$$\"\"
)F($\"+X$3D)pF/7$$\"\"*F($\"+/1rFmF/7$$\"#5F($\"+!3C8*fF/7$$\"#6F($\"+
VwZweF/7$$\"#7F($\"+%oRm,'F/7$$\"#8F($\"+5k@5eF/7$$\"#9F($\"+L)\\4S&F/
7$$\"#:F($\"+w>ZM_F/" 1 2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 
45.000000 0 0 "Curve 1" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 8 "Another
:" }{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "x:=
[0,0,0]:   n:=200:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "a1:=2
.7; a2:=-2.43; a3:=0.729;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#a1G$\"
#F!\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#a2G$!$V#!\"#" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#>%#a3G$\"$H(!\"$" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 48 "solve(lambda^3-a1*lambda^2-a2*lambda-a3,lambda);" }
}{PARA 11 "" 1 "" {XPPMATH 20 "6%$\"+++++!*!#5F#F#" }}}{EXCHG {PARA 0 
"> " 0 "" {MPLTEXT 1 0 84 "for i to n-3 do x:=[op(x),a3*x[i]+a2*x[i+1]
+a1*x[i+2]+1.4*random[normald]()] end do:" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 45 "pointplot([seq([j,x[j]],j=1..n)],style=LINE);" }}
{PARA 13 "" 1 "" {GLPLOT2D 821 495 495 {PLOTDATA 2 "6$-%'CURVESG6#7dw7
$$\"\"\"\"\"!$F*F*7$$\"\"#F*F+7$$\"\"$F*F+7$$\"\"%F*$!+uz!Q-\"!\"*7$$
\"\"&F*$!+cPX&)RF77$$\"\"'F*$!+w9Q(>\"!\")7$$\"\"(F*$!+1]%\\P#FB7$$\"
\")F*$!+B%R\"*o$FB7$$\"\"*F*$!+(*Q.x]FB7$$\"#5F*$!+i/G7lFB7$$\"#6F*$!+
uAtH\")FB7$$\"#7F*$!+?sw2(*FB7$$\"#8F*$!+`nRT6!\"(7$$\"#9F*$!+swC58F`o
7$$\"#:F*$!+8\"H)z9F`o7$$\"#;F*$!+#[;#R;F`o7$$\"#<F*$!+T:Dg<F`o7$$\"#=
F*$!+%\\iE(=F`o7$$\"#>F*$!++p5s>F`o7$$\"#?F*$!+wHBv?F`o7$$\"#@F*$!+Cw#
e=#F`o7$$\"#AF*$!+LI$zH#F`o7$$\"#BF*$!+Tq*pS#F`o7$$\"#CF*$!+'32<_#F`o7
$$\"#DF*$!+%3L+j#F`o7$$\"#EF*$!+1(3&>FF`o7$$\"#FF*$!+]*\\(3GF`o7$$\"#G
F*$!+*>,r*GF`o7$$\"#HF*$!+T8:()HF`o7$$\"#IF*$!+\")pdmIF`o7$$\"#JF*$!+O
_'e7$F`o7$$\"#KF*$!+wi2ZJF`o7$$\"#LF*$!+!p!))HJF`o7$$\"#MF*$!+n9-#3$F`
o7$$\"#NF*$!+\">CT)HF`o7$$\"#OF*$!+?i%e$GF`o7$$\"#PF*$!+#pPOn#F`o7$$\"
#QF*$!+K!>=^#F`o7$$\"#RF*$!+yOogBF`o7$$\"#SF*$!+fN)\\?#F`o7$$\"#TF*$!+
dL9[?F`o7$$\"#UF*$!+!o%R&)=F`o7$$\"#VF*$!+%GDCp\"F`o7$$\"#WF*$!+<+5o9F
`o7$$\"#XF*$!+%)z$\\E\"F`o7$$\"#YF*$!+t``y5F`o7$$\"#ZF*$!+Cn5U\"*FB7$$
\"#[F*$!+3)RE'zFB7$$\"#\\F*$!+Uj?OsFB7$$\"#]F*$!++P'o.(FB7$$\"#^F*$!+x
hDKsFB7$$\"#_F*$!+v4H6xFB7$$\"#`F*$!+omM#=)FB7$$\"#aF*$!+![k)=()FB7$$
\"#bF*$!+RM:V$*FB7$$\"#cF*$!+K2$yx*FB7$$\"#dF*$!+..y=5F`o7$$\"#eF*$!+f
*eF1\"F`o7$$\"#fF*$!+67(G6\"F`o7$$\"#gF*$!+yw2W6F`o7$$\"#hF*$!++%4W;\"
F`o7$$\"#iF*$!+fHW\"=\"F`o7$$\"#jF*$!+'**[6@\"F`o7$$\"#kF*$!+mM!GF\"F`
o7$$\"#lF*$!+[7OZ8F`o7$$\"#mF*$!+Go]]9F`o7$$\"#nF*$!+vG0y:F`o7$$\"#oF*
$!+)=<Ir\"F`o7$$\"#pF*$!+\"*yaQ=F`o7$$\"#qF*$!+RA\"\\%>F`o7$$\"#rF*$!+
t&zE+#F`o7$$\"#sF*$!+tynS?F`o7$$\"#tF*$!+$Q0*[?F`o7$$\"#uF*$!+Q+EE?F`o
7$$\"#vF*$!+.i3x>F`o7$$\"#wF*$!+Q%Ri!>F`o7$$\"#xF*$!+>c3==F`o7$$\"#yF*
$!++y?:<F`o7$$\"#zF*$!+gN&)y:F`o7$$\"#!)F*$!+)[&\\59F`o7$$\"#\")F*$!+6
Uz.7F`o7$$\"##)F*$!+?e3T(*FB7$$\"#$)F*$!+gn6YrFB7$$\"#%)F*$!+n$z*4XFB7
$$\"#&)F*$!+8/]7?FB7$$\"#')F*$\"+J)GFL\"F77$$\"#()F*$\"+mHKt>FB7$$\"#)
)F*$\"+Va)op$FB7$$\"#*)F*$\"+xcmEaFB7$$\"#!*F*$\"+dLQ#)pFB7$$\"#\"*F*$
\"+%Qp2A)FB7$$\"##*F*$\"+RO3X\"*FB7$$\"#$*F*$\"+\">aE()*FB7$$\"#%*F*$
\"+hkXU5F`o7$$\"#&*F*$\"+)Qvu0\"F`o7$$\"#'*F*$\"+PBWf5F`o7$$\"#(*F*$\"
+xUb[5F`o7$$\"#)*F*$\"+UfSH5F`o7$$\"#**F*$\"+E\\eX**FB7$$\"$+\"F*$\"+d
f!Rj*FB7$$\"$,\"F*$\"+.\\*QR*FB7$$\"$-\"F*$\"+RBB>$*FB7$$\"$.\"F*$\"+Q
$*[*[*FB7$$\"$/\"F*$\"+i%Q'f&*FB7$$\"$0\"F*$\"+6$pEY*FB7$$\"$1\"F*$\"+
&=B!y#*FB7$$\"$2\"F*$\"+,(>A8*FB7$$\"$3\"F*$\"+uiv`))FB7$$\"$4\"F*$\"+
UV**>$)FB7$$\"$5\"F*$\"+J4mAwFB7$$\"$6\"F*$\"+&o^1q'FB7$$\"$7\"F*$\"+;
!e3k&FB7$$\"$8\"F*$\"+CDXkVFB7$$\"$9\"F*$\"+p%[x)HFB7$$\"$:\"F*$\"+k:(
)z8FB7$$\"$;\"F*$!+#pl!pRF77$$\"$<\"F*$!+,I6ZAFB7$$\"$=\"F*$!+Yv'\\.%F
B7$$\"$>\"F*$!+vJprbFB7$$\"$?\"F*$!+?wBNpFB7$$\"$@\"F*$!+8$yP0)FB7$$\"
$A\"F*$!+#R>(>!*FB7$$\"$B\"F*$!+k5!f***FB7$$\"$C\"F*$!+M]]u5F`o7$$\"$D
\"F*$!+25d;6F`o7$$\"$E\"F*$!+#H([.6F`o7$$\"$F\"F*$!+U%RE2\"F`o7$$\"$G
\"F*$!+W$z<.\"F`o7$$\"$H\"F*$!+rw*\\#)*FB7$$\"$I\"F*$!+'obc6*FB7$$\"$J
\"F*$!+y1`jzFB7$$\"$K\"F*$!+N!yjT'FB7$$\"$L\"F*$!+*4Tol%FB7$$\"$M\"F*$
!+#G%GFEFB7$$\"$N\"F*$!+**fJTNF77$$\"$O\"F*$\"+HNEUAFB7$$\"$P\"F*$\"+*
pA\\2&FB7$$\"$Q\"F*$\"+l+\"Q.)FB7$$\"$R\"F*$\"+,M,%4\"F`o7$$\"$S\"F*$
\"+pFXO8F`o7$$\"$T\"F*$\"+D9XP:F`o7$$\"$U\"F*$\"+WXQv;F`o7$$\"$V\"F*$
\"+M$z>v\"F`o7$$\"$W\"F*$\"+->iw<F`o7$$\"$X\"F*$\"+uVMi<F`o7$$\"$Y\"F*
$\"+'\\uXq\"F`o7$$\"$Z\"F*$\"+y(eZf\"F`o7$$\"$[\"F*$\"+d*HSW\"F`o7$$\"
$\\\"F*$\"+!HXGF\"F`o7$$\"$]\"F*$\"+-?E*4\"F`o7$$\"$^\"F*$\"+o]()>#*FB
7$$\"$_\"F*$\"+aFdCsFB7$$\"$`\"F*$\"+CGcc`FB7$$\"$a\"F*$\"+#)RJ=MFB7$$
\"$b\"F*$\"+5bg(=\"FB7$$\"$c\"F*$!+2z**o6FB7$$\"$d\"F*$!+;CQmNFB7$$\"$
e\"F*$!+W!Hs,'FB7$$\"$f\"F*$!+dzB%\\)FB7$$\"$g\"F*$!+hko-6F`o7$$\"$h\"
F*$!+Crws8F`o7$$\"$i\"F*$!+^7B[;F`o7$$\"$j\"F*$!+*\\\\H$>F`o7$$\"$k\"F
*$!+JER<AF`o7$$\"$l\"F*$!+^fX5DF`o7$$\"$m\"F*$!+'Qi.\"GF`o7$$\"$n\"F*$
!+oSA;JF`o7$$\"$o\"F*$!+H2i7MF`o7$$\"$p\"F*$!+\\r$>s$F`o7$$\"$q\"F*$!+
U5f@SF`o7$$\"$r\"F*$!+`Kh(G%F`o7$$\"$s\"F*$!+8a1.XF`o7$$\"$t\"F*$!+>Ji
oYF`o7$$\"$u\"F*$!+K(yAz%F`o7$$\"$v\"F*$!+BM&*z[F`o7$$\"$w\"F*$!+?\\5M
\\F`o7$$\"$x\"F*$!+(z?+'\\F`o7$$\"$y\"F*$!+Z\"*eV\\F`o7$$\"$z\"F*$!+p(
pD!\\F`o7$$\"$!=F*$!+eo!)\\[F`o7$$\"$\"=F*$!+a@*3y%F`o7$$\"$#=F*$!+tm8
+ZF`o7$$\"$$=F*$!+ST'*3YF`o7$$\"$%=F*$!+/E^=XF`o7$$\"$&=F*$!+^)*R>WF`o
7$$\"$'=F*$!+8g,2VF`o7$$\"$(=F*$!+sN(G<%F`o7$$\"$)=F*$!+2)eW+%F`o7$$\"
$*=F*$!+O:w\"z$F`o7$$\"$!>F*$!+\"z1@b$F`o7$$\"$\">F*$!+*pTVJ$F`o7$$\"$
#>F*$!+,IP,JF`o7$$\"$$>F*$!+UIP(*GF`o7$$\"$%>F*$!+0Pr6FF`o7$$\"$&>F*$!
+g$o1`#F`o7$$\"$'>F*$!+cD0[BF`o7$$\"$(>F*$!+\">')*f@F`o7$$\"$)>F*$!+CI
;v>F`o7$$\"$*>F*$!+%*QPu<F`o7$$\"$+#F*$!+`Kva:F`o-%&STYLEG6#%%LINEG" 
1 6 0 1 10 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" }}}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 45 "x:=convert(evalm(x-add(x[j],
j=1..n)/n),list):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "var:=a
dd(x[j]^2,j=1..n)/n;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$varG$\"+3%=
*GH!\"&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "pointplot([[0,0]
,seq([k,cov(k)/var],k=0..35)]);" }}{PARA 13 "" 1 "" {GLPLOT2D 496 496 
496 {PLOTDATA 2 "6#-%'POINTSG6G7$$\"\"!F(F'7$F'$\"+,+++5!\"*7$$\"\"\"F
($\"+?/K(***!#57$$\"\"#F($\"+uW*f\"**F27$$\"\"$F($\"+n>&zv*F27$$\"\"%F
($\"+\"e(fE&*F27$$\"\"&F($\"+_4\\E#*F27$$\"\"'F($\"+%[PP'))F27$$\"\"(F
($\"+:4#[W)F27$$\"\")F($\"+ZO<wzF27$$\"\"*F($\"+%f^WY(F27$$\"#5F($\"+8
_e;pF27$$\"#6F($\"+4r(*RjF27$$\"#7F($\"+/?vTdF27$$\"#8F($\"+'*zUH^F27$
$\"#9F($\"+2(R+^%F27$$\"#:F($\"+-HL!*QF27$$\"#;F($\"+#*)fkF$F27$$\"#<F
($\"+i/btEF27$$\"#=F($\"+\"p:q3#F27$$\"#>F($\"+3z(=_\"F27$$\"#?F($\"+J
z=M)*!#67$$\"#@F($\"+(p<uw%F\\r7$$\"#AF($\"+KT!zS'!#87$$\"#BF($!+-\\=O
UF\\r7$$\"#CF($!+h+P'4)F\\r7$$\"#DF($!+7(H([6F27$$\"#EF($!+;%R*Q9F27$$
\"#FF($!+$\\:%y;F27$$\"#GF($!+S!ef'=F27$$\"#HF($!+>y)3+#F27$$\"#IF($!+
Nx^$3#F27$$\"#JF($!+_bD:@F27$$\"#KF($!+%3w*)4#F27$$\"#LF($!+!yi&Q?F27$
$\"#MF($!+g^bQ>F27$$\"#NF($!+(*fh/=F2" 1 2 0 1 10 0 2 9 1 4 2 
1.000000 45.000000 45.000000 0 0 "Curve 1" }}}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 15 "r:='r':r[0]:=1:" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 69 "solve(\{r[1]=a1+a2*r[1]+a3*r[2],r[2]=a1*r[1]+a2+a3*r[
1]\},\{r[1],r[2]\}):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "ass
ign(%):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 65 "for k from 3 to \+
35 do r[k]:=a1*r[k-1]+a2*r[k-2]+a3*r[k-3] end do:" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 41 "pointplot([[0,0],seq([i,r[i]],i=0..35)]);" }
}{PARA 13 "" 1 "" {GLPLOT2D 496 496 496 {PLOTDATA 2 "6#-%'POINTSG6G7$$
\"\"!F(F'7$F'$\"\"\"F(7$F*$\"+yPT\")**!#57$$\"\"#F($\"+YyEE**F/7$$\"\"
$F($\"*q(3O)*!\"*7$$\"\"%F($\"+kl08(*F/7$$\"\"&F($\"+q)3)f&*F/7$$\"\"'
F($\"+LWEz$*F/7$$\"\"(F($\"+bm\\u\"*F/7$$\"\")F($\"+m!H'[*)F/7$$\"\"*F
($\"+#QbZq)F/7$$\"#5F($\"+h*yeW)F/7$$\"#6F($\"+*>o[<)F/7$$\"#7F($\"+L
\\U%*yF/7$$\"#8F($\"+jL12wF/7$$\"#9F($\"+2u4:tF/7$$\"#:F($\"+1[j?qF/7$
$\"#;F($\"+skdDnF/7$$\"#<F($\"++*>;V'F/7$$\"#=F($\"+ucEShF/7$$\"#>F($
\"+3i#G&eF/7$$\"#?F($\"+xgVqbF/7$$\"#@F($\"+'RjSH&F/7$$\"#AF($\"+1=_C]
F/7$$\"#BF($\"+IF[iZF/7$$\"#CF($\"+'f([3XF/7$$\"#DF($\"+x)fHE%F/7$$\"#
EF($\"+?n@ESF/7$$\"#FF($\"+(4![)z$F/7$$\"#GF($\"+!Q())zNF/7$$\"#HF($\"
+z7]qLF/7$$\"#IF($\"+6\">.<$F/7$$\"#JF($\"+#R\"GzHF/7$$\"#KF($\"+](zsz
#F/7$$\"#LF($\"+uT;CEF/7$$\"#MF($\"+8'\\(fCF/7$$\"#NF($\"+]>#QI#F/" 1 
2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" }}}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart:" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 
"" }}}}{MARK "59 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }
{PAGENUMBERS 0 1 2 33 1 1 }