{VERSION 3 0 "IBM INTEL NT" "3.0" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 
0 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 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 "Text Output" -1 2 1 
{CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 0 0 0 0 0 1 3 0 3 }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 -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 }3 3 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 49 "with(linalg):    # loading linear algebra pa
ckage" }}{PARA 7 "" 1 "" {TEXT -1 32 "Warning, new definition for norm
" }}{PARA 7 "" 1 "" {TEXT -1 33 "Warning, new definition for trace" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "n:=20;" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%\"nG\"#?" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
15 "u:=array(0..n);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"uG-%&arrayG
6$;\"\"!\"#?7\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "u[0]:=ve
ctor([50,80]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"uG6#\"\"!-%'vec
torG6#7$\"#]\"#!)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "A:=mat
rix(2,2,[.6,.05,.4,.95]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"AG-%'
matrixG6#7$7$$\"\"'!\"\"$\"\"&!\"#7$$\"\"%F,$\"#&*F/" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 52 "for k from 1 to n do\n   u[k]:=multiply(A
,u[k-1])\nod;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"uG6#\"\"\"-%'vec
torG6#7$$\"%]]!\"#$\"%]zF." }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"uG6
#\"\"#-%'vectorG6#7$$\"']FM!\"%$\"']s&*F." }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>&%\"uG6#\"\"$-%'vectorG6#7$$\")]7ND!\"'$\"*]([Y5F." }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"uG6#\"\"%-%'vectorG6#7$$\"+](=V/#
!\")$\"+D\"ob4\"!\"(" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"uG6#\"\"&
-%'vectorG6#7$$\"+8`Pu<!\")$\"+pCcA6!\"(" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#>&%\"uG6#\"\"'-%'vectorG6#7$$\"+Bk!fi\"!\")$\"+f$4u8\"!\"(" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"uG6#\"\"(-%'vectorG6#7$$\"+L&[Ua
\"!\")$\"+[^dX6!\"(" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"uG6#\"\")-
%'vectorG6#7$$\"+%pO$*\\\"!\")$\"+Kj1]6!\"(" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>&%\"uG6#\"\"*-%'vectorG6#7$$\"+#=NYZ\"!\")$\"+$[OD:\"!
\"(" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"uG6#\"#5-%'vectorG6#7$$\"+
^$\\5Y\"!\")$\"+m]*Q:\"!\"(" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"uG
6#\"#6-%'vectorG6#7$$\"+Wrd`9!\")$\"+(GUY:\"!\"(" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>&%\"uG6#\"#7-%'vectorG6#7$$\"+IuY\\9!\")$\"+fK0b6!\"(
" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"uG6#\"#8-%'vectorG6#7$$\"+)32
sW\"!\")$\"+$Hz_:\"!\"(" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"uG6#\"
#9-%'vectorG6#7$$\"+**Q'fW\"!\")$\"+7OSb6!\"(" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>&%\"uG6#\"#:-%'vectorG6#7$$\"+X,GX9!\")$\"+()>Zb6!\"(
" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"uG6#\"#;-%'vectorG6#7$$\"+\"3
/\\W\"!\")$\"+%f4b:\"!\"(" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"uG6#
\"#<-%'vectorG6#7$$\"+YspW9!\")$\"+x-`b6!\"(" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>&%\"uG6#\"#=-%'vectorG6#7$$\"+'[$eW9!\")$\"+`;ab6!\"(
" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"uG6#\"#>-%'vectorG6#7$$\"+=4_
W9!\")$\"+4zab6!\"(" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"uG6#\"#?-%
'vectorG6#7$$\"+0l[W9!\")$\"+^8bb6!\"(" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "n:=20;" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%\"nG\"#?" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
15 "u:=array(0..n);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"uG-%&arrayG
6$;\"\"!\"#?7\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 50 "A:=matri
x(3,3,[.9,.05,.09,.05,.85,.11,.05,.1,.8]);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%\"AG-%'matrixG6#7%7%$\"\"*!\"\"$\"\"&!\"#$F+F/7%F-$\"
#&)F/$\"#6F/7%F-$\"\"\"F,$\"\")F," }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 28 "u[0]:=vector([1/3,1/3,1/3]);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>&%\"uG6#\"\"!-%'vectorG6#7%#\"\"\"\"\"$F,F," }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 54 "for k from 0 to n-1 do\n   u
[k+1]:=multiply(A,u[k])\nod;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"u
G6#\"\"\"-%'vectorG6#7%$\"+nmmmM!#5$\"+nmmmLF.$\"+nmmmJF." }}{PARA 11 
"" 1 "" {XPPMATH 20 "6#>&%\"uG6#\"\"#-%'vectorG6#7%$\"+LLLtN!#5$\"+LLL
$Q$F.$\"+MLLVIF." }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"uG6#\"\"$-%'v
ectorG6#7%$\"+nm1fO!#5$\"+nmE*Q$F.$\"+nmm^HF." }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>&%\"uG6#\"\"%-%'vectorG6#7%$\"+LLFGP!#5$\"+LL^)Q$F.$\"
+ML@$)GF." }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"uG6#\"\"&-%'vectorG6
#7%$\"+n3O%y$!#5$\"+nM!QQ$F.$\"+nc$=$GF." }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#>&%\"uG6#\"\"'-%'vectorG6#7%$\"+j,)*HQ!#5$\"+8H&pP$F.$\"+Cp1$z#F
." }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"uG6#\"\"(-%'vectorG6#7%$\"+;
e?nQ!#5$\"+Yj9pLF.$\"+RykjFF." }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"
uG6#\"\")-%'vectorG6#7%$\"+d3n(*Q!#5$\"+Zf8hLF.$\"+'>$>TFF." }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#>&%\"uG6#\"\"*-%'vectorG6#7%$\"+czmAR!#5$\"+
].Q`LF.$\"+&p^Rs#F." }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"uG6#\"#5-%
'vectorG6#7%$\"+JeAVR!#5$\"+$QThM$F.$\"+*yK1r#F." }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>&%\"uG6#\"#6-%'vectorG6#7%$\"+os;gR!#5$\"+v5bRLF.$\"+h
;G+FF." }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"uG6#\"#7-%'vectorG6#7%$
\"+XM:uR!#5$\"+gxlLLF.$\"++))=#p#F." }}{PARA 11 "" 1 "" {XPPMATH 20 "6
#>&%\"uG6#\"#8-%'vectorG6#7%$\"+\")zr&)R!#5$\"+OvXGLF.$\"+)[Ceo#F." }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"uG6#\"#9-%'vectorG6#7%$\"+kKH&*R!
#5$\"+*\\:RK$F.$\"+V7z!o#F." }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"uG
6#\"#:-%'vectorG6#7%$\"+D4B.S!#5$\"+u)z*>LF.$\"+2#*ywEF." }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#>&%\"uG6#\"#;-%'vectorG6#7%$\"+cy\")4S!#5$\"+_7f
;LF.$\"++4ftEF." }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"uG6#\"#<-%'vec
torG6#7%$\"+9))G:S!#5$\"+c%)o8LF.$\"+QF-rEF." }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>&%\"uG6#\"#=-%'vectorG6#7%$\"+-k$)>S!#5$\"+I@@6LF.$\"+
w9&*oEF." }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"uG6#\"#>-%'vectorG6#7
%$\"+-!>O-%!#5$\"+$z1\"4LF.$\"+9UFnEF." }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#>&%\"uG6#\"#?-%'vectorG6#7%$\"+@rwES!#5$\"+))=K2LF.$\"++5\"fm#F.
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "14 0 0" 0 }
{VIEWOPTS 1 1 0 1 1 1803 }