{VERSION 2 3 "IBM INTEL NT" "2.3" }
{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 0 }1 0 0 -1 
-1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Heading 1" 0 3 1 {CSTYLE "" -1 -1 "" 
1 18 0 0 0 0 0 1 0 0 0 0 0 0 0 }1 0 0 0 6 6 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 }{PSTYLE "" 11 12 1 {CSTYLE "" -1 -1 "" 0 1 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 Plot" 
0 13 1 {CSTYLE "" -1 -1 "" 0 1 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 }{PSTYLE "Title" 0 18 1 {CSTYLE "" -1 -1 "" 1 18 
0 0 0 0 0 1 1 0 0 0 0 0 0 }3 0 0 -1 12 12 0 0 0 0 0 0 19 0 }}
{SECT 0 {EXCHG {PARA 18 "" 0 "" {TEXT -1 12 "1D Filtering" }}}{SECT 1 
{PARA 3 "" 0 "" {TEXT -1 31 "load packages, define functions" }}
{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 
35 "restart;\nwith(linalg):\nwith(plots):" }}{PARA 7 "" 1 "" {TEXT -1 
32 "Warning, new definition for norm" }}{PARA 7 "" 1 "" {TEXT -1 33 "W
arning, new definition for trace" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 235 "convomat:= proc(L,N)\n   local i,j,X,M;\n   X := mat
rix(N,N);\n   M := [op(L),seq(0,i=1..N-nops(L))];\n   for i from 1 to \+
N do\n   for j from 1 to N do\n       X[i,j] := M[((i-j+N) mod N)+1];
\n       od;\n       od;\n   RETURN(copy(X));\n   end:" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 212 "vectorplot:= proc(X,trang)\n   loc
al N,t0,t1,PL,i,dt;\n   N := vectdim(X);\n   t0 := op(1,trang);\n   t1
 := op(2,trang);\n   dt := (t1-t0)/(N-1);\n   PL := [seq([t0+(i-1)*dt,
X[i]],i=1..N)];\n   RETURN(plot(PL));\n   end;" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 0 "" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 12 "" 
1 "" {XPPMATH 20 "6#>%+vectorplotG:6$%\"XG%&trangG6(%\"NG%#t0G%#t1G%#P
LG%\"iG%#dtG6\"F0C(>8$-%(vectdimG6#9$>8%-%#opG6$\"\"\"9%>8&-F;6$\"\"#F
>>8)*&,&F@F=F9!\"\"F=,&F3F=FHF=FH>8'7#-%$seqG6$7$,&F9F=*&,&8(F=FHF=F=F
EF=F=&F76#FT/FT;F=F3-%'RETURNG6#-%%plotG6#FKF0F0" }}}}{SECT 1 {PARA 3 
"" 0 "" {TEXT -1 30 "define, sample and plot signal" }}{EXCHG {PARA 0 
"> " 0 "" {MPLTEXT 1 0 60 "x:= t-> 2*sin(5*2*Pi*t)+1.5*cos(10*2*Pi*t)+
1*sin(60*2*Pi*t);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"xG:6#%\"tG6\"
6$%)operatorG%&arrowGF(,(-%$sinG6#,$*&%#PiG\"\"\"9$F3\"#5\"\"#-%$cosG6
#,$F1\"#?$\"#:!\"\"-F.6#,$F1\"$?\"F3F(F(" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 40 "X :=vector(128,i->evalf(x((i-1)/128))):\n" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "vectorplot(X,0..1);" }}{PARA 13 "" 
1 "" {INLPLOT "6#-%'CURVESG6$7\\s7$\"\"!$\"1+++++++:!#:7$$\"1'\\J![d,u
y!#=$\"1+++yD$R+#F+7$$\"1*H1'\\J![d\"!#<$\"1+++\"RlMR\"F+7$$\"1\\%4Ws/
AO#F5$\"1+++`QrX?F+7$$\"1)f7#*H1'\\JF5$\"1+++]H2=Q!#;7$$\"1[d,uy+PRF5$
\"1+++i?/b:F+7$$\"1)*)=)[%4Ws%F5$!1+++0+)o/%FB7$$\"1Z?iB5\"=^&F5$\"1++
+'zFP_\"F+7$$\"1(>D%)f7#*H'F5$!1+++q5,H@FB7$$\"1Y$GK<9m3(F5$\"1+++GLx^
@F+7$$F.F5$\"1+++&>DaP'FB7$$\"1YY$GK<9m)F5$\"1+++D(p\"QEF+7$$\"1&zPw*)
=)[%*F5$\"1+++iJ*)o5F+7$$\"1%4Ws/AO-\"FB$\"1+++u>@]>F+7$$\"14Ws/AO-6FB
$\"1+++4j^RGFB7$$\"1CZ?iB5\"=\"FB$!1+++61?g7FB7$$\"1R]o>D%)f7FB$!1+++i
N@99F+7$$\"1a`;xEeQ8FB$!1+++[Ek<EF+7$$\"1pckMGK<9FB$!1+++e;SyFF+7$$\"1
%)f7#*H1'\\\"FB$!1+++N#Qf/%F+7$$F4FB$!1+++zIGSEF+7$$\"19m32La`;FB$!1++
+C\"Q5f$F+7$$\"1HpckMGK<FB$!1+++v&ox9*FB7$$\"1Ws/AO-6=FB$!1+++uovO<F+7
$$\"1fv_zPw*)=FB$\"1+++2LH&H\"F+7$$\"1uy+PR]o>FB$\"1+++YFk6;FB7$$\"1*=
)[%4Ws/#FB$\"1+++N<4\"f#F+7$$\"1/&o>D%)f7#FB$\"1+++vd#=+\"F+7$$\"1>)[%
4Ws/AFB$\"1+++'RsAR#F+7$$\"1M\"HpckMG#FB$\"1+++zI1$z(FB7$$F:FB$\"1+++7
1<88F+7$$\"1k(*)=)[%4W#FB$\"1+++*)G!4A%FB7$$\"1z+PR]o>DFB$\"1+++++++]F
B7$$\"1%R]o>D%)f#FB$\"1+++J$4F7)FB7$$\"142La`;xEFB$\"1+++ru.yaFB7$$\"1
C5\"=^0fv#FB$\"1+++unW!*=F+7$$\"1R8HpckMGFB$\"1+++S$)e!y*FB7$$\"1`;xEe
Q8HFB$\"1+++**\\wkEF+7$$\"1p>D%)f7#*HFB$\"1+++&pELV(FB7$$\"1%GK<9m32$F
B$\"1+++N[tA@F+7$$F?FB$!1+++Ip1ZqFB7$$\"18HpckMGKFB$\"1+++mo8[AFB7$$\"
1HK<9m32LFB$!1+++Bf`iFF+7$$\"1VNlrn#eQ$FB$!1++++*)4G>F+7$$\"1eQ8HpckMF
B$!1+++Tm\\aSF+7$$\"1tTh'32La$FB$!1+++pxzMHF+7$$\"1)[%4Ws/AOFB$!1+++B&
oPa$F+7$$\"1.[d,uy+PFB$!1+++/?YFAF+7$$\"1=^0fv_zPFBFfp7$$\"1La`;xEeQFB
$!1+++`q+i^FB7$$FEFB$\"1+++'\\=$\\5F+7$$\"1jg\\J![d,%FB$\"1+++z]r!R)FB
7$$\"1yj(*)=)[%4%FB$\"1+++Cn5$[#F+7$$\"1$pckMGK<%FB$\"1+++1]I_(*FB7$$
\"13q$R]o>D%FB$\"1+++&e,`[#F+7$$\"1BtTh'32L%FB$\"1+++ww-->FB7$$\"1Qw*)
=)[%4WFB$\"1+++$*))4(y\"F+7$$\"1`zPw*)=)[%FB$!1+++WwUyVFB7$$\"1o#eQ8Hp
c%FB$\"1+++l52V9F+7$$\"1$eQ8Hpck%FB$!1+++C;(*y5FB7$$FJFB$\"1+++d3-'z\"
F+7$$\"17#*H1'\\J![FB$\"1+++pQtX$*FB7$$\"1G&zPw*)=)[FB$\"1+++cA$)e@F+7
$$\"1V)f7#*H1'\\FB$\"1+++M>v8;F+7$$\"1d,uy+PR]FBF)7$$\"1s/AO-6=^FB$\"1
+++e=,K5F+7$$\"1(y+PR]o>&FB$!1+++pb@@\\FB7$$\"1-6=^0fv_FB$!1+++p'>_S'F
B7$$\"1=9m32La`FB$!1+++b62WHF+7$$\"1L<9m32LaFB$!1+++)>M6@#F+7$$FOFB$!1
+++2pU&Q%F+7$$\"1iB5\"=^0f&FB$!1+++W#yHV#F+7$$\"1xEeQ8HpcFB$!1+++P#>%3
RF+7$$\"1#*H1'\\J![dFB$!1+++)zc51\"F+7$$\"12La`;xEeFB$!1+++>1.+>F+7$$
\"1AO-6=^0fFB$\"1+++;N\\z#*FB7$$\"1PR]o>D%)fFB$\"1+++Q(=`)GFB7$$\"1_U)
f7#*H1'FB$\"1+++sE[Y@F+7$$\"1nXY$GK<9'FB$\"1+++T.4X9F+7$$\"1#)[%4Ws/A'
FB$\"1+++:4RI>F+7$$FTFB$\"1+++iN@99F+7$$\"17b!fv_zP'FB$\"1+++RzrK\")FB
7$$\"1EeQ8HpckFB$\"1+++(of$\\5F+7$$\"1Th'32La`'FB$!1+++56kv]F57$$\"1dk
MGK<9mFB$\"1+++V!eGG\"F+7$$\"1sn#eQ8Hp'FB$\"1+++SZ!>\\#F57$$\"1(32La`;
x'FB$\"1+++d\\Ex@F+7$$\"1-uy+PR]oFB$\"1+++OMSgkFB7$$\"1;xEeQ8HpFB$\"1+
++Pq-EGF+7$$\"1J![d,uy+(FB$\"1+++E<'3[(FB7$$FYFB$\"1+++tJ-*>#F+7$$\"1h
'32La`;(FB$!1+++#ROtX$FB7$$\"1x*)=)[%4WsFB$\"1+++QY\"**p\"FB7$$\"1#Hpc
kMGK(FB$!1+++%>)\\%=#F+7$$\"11'\\J![d,uFB$!1+++YW^9AF+7$$\"1@*H1'\\J![
(FB$!1+++DZ.eMF+7$$\"1O-6=^0fvFB$!1+++++++NF+7$$\"1^0fv_zPwFB$!1+++\"3
ay1$F+7$$\"1m32La`;xFB$!1+++68))zHF+7$$\"1\"=^0fv_z(FB$!1+++GxNt5F+7$$
\"1(\\J![d,uyFB$!1+++)4AUC\"F+7$$\"16=^0fv_zFB$\"1+++'e0sJ\"F+7$$\"1E@
*H1'\\J!)FB$\"1+++v5k7NFB7$$\"1TCZ?iB5\")FB$\"1+++Lnl4FF+7$$\"1cF&zPw*
)=)FB$\"1+++q.Fg#)FB7$$\"1rIVNlrn#)FB$\"1+++/4h2EF+7$$\"1&Q8HpckM)FB$
\"1+++:*e]H$FB7$$\"1+PR]o>D%)FB$\"1+++s#eyo\"F+7$$\"1;S(y+PR])FB$!1+++
!>bNJ\"FB7$$\"1JVNlrn#e)FB$\"1+++bSQg5F+7$$F\\oFB$\"1+++:#G*RGFB7$$\"1
h\\J![d,u)FB$\"1+++QCX.7F+7$$\"1v_zPw*)=))FBF[dl7$$\"1!fv_zPw*))FB$\"1
+++r-@S:F+7$$\"10fv_zPw*)FB$\"1+++1sX5AF+7$$\"1?iB5\"=^0*FB$\"1+++1AMN
5F+7$$\"1Olrn#eQ8*FB$\"1+++Oau-<F+7$$\"1^o>D%)f7#*FB$!1+++K()*)\\tFB7$
$\"1mrn#eQ8H*FB$!1+++]`:F_F57$$\"1![d,uy+P*FB$!1+++etiAIF+7$$FaoFB$!1+
++P#>%3>F+7$$\"15\"=^0fv_*FB$!1+++/)[XR%F+7$$\"1D%)f7#*H1'*FB$!1+++Uym
PDF+7$$\"1S(y+PR]o*FB$!1+++AM2uQF+7$$\"1c!fv_zPw*FB$!1+++$fd)H:F+7$$\"
1q$R]o>D%)*FB$!1+++LCm^<F+7$$\"1&o>D%)f7#**FB$\"1+++\"3`Ct#FB7$$\"\"\"
F($\"1+++T@J=kFB-%'COLOURG6&%$RGBG$\"#5!\"\"F(F(" 2 651 301 301 2 0 1 
0 2 9 0 4 2 1.000000 45.000000 45.000000 10030 10061 10056 10074 0 0 
0 20030 0 12020 0 0 0 0 0 0 0 1 1 0 0 0 -31800 2096 0 0 0 0 0 0 }}}
{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{SECT 1 {PARA 3 "" 0 "" {TEXT -1 15 "
filter and plot" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "Hl := con
vomat([1/2,1/2],128):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "Y := evalm
(Hl&*X):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "vectorplot(X,0.
.1);" }}{PARA 13 "" 1 "" {INLPLOT "6#-%'CURVESG6$7\\s7$\"\"!$\"1++++++
+:!#:7$$\"1'\\J![d,uy!#=$\"1+++yD$R+#F+7$$\"1*H1'\\J![d\"!#<$\"1+++\"R
lMR\"F+7$$\"1\\%4Ws/AO#F5$\"1+++`QrX?F+7$$\"1)f7#*H1'\\JF5$\"1+++]H2=Q
!#;7$$\"1[d,uy+PRF5$\"1+++i?/b:F+7$$\"1)*)=)[%4Ws%F5$!1+++0+)o/%FB7$$
\"1Z?iB5\"=^&F5$\"1+++'zFP_\"F+7$$\"1(>D%)f7#*H'F5$!1+++q5,H@FB7$$\"1Y
$GK<9m3(F5$\"1+++GLx^@F+7$$F.F5$\"1+++&>DaP'FB7$$\"1YY$GK<9m)F5$\"1+++
D(p\"QEF+7$$\"1&zPw*)=)[%*F5$\"1+++iJ*)o5F+7$$\"1%4Ws/AO-\"FB$\"1+++u>
@]>F+7$$\"14Ws/AO-6FB$\"1+++4j^RGFB7$$\"1CZ?iB5\"=\"FB$!1+++61?g7FB7$$
\"1R]o>D%)f7FB$!1+++iN@99F+7$$\"1a`;xEeQ8FB$!1+++[Ek<EF+7$$\"1pckMGK<9
FB$!1+++e;SyFF+7$$\"1%)f7#*H1'\\\"FB$!1+++N#Qf/%F+7$$F4FB$!1+++zIGSEF+
7$$\"19m32La`;FB$!1+++C\"Q5f$F+7$$\"1HpckMGK<FB$!1+++v&ox9*FB7$$\"1Ws/
AO-6=FB$!1+++uovO<F+7$$\"1fv_zPw*)=FB$\"1+++2LH&H\"F+7$$\"1uy+PR]o>FB$
\"1+++YFk6;FB7$$\"1*=)[%4Ws/#FB$\"1+++N<4\"f#F+7$$\"1/&o>D%)f7#FB$\"1+
++vd#=+\"F+7$$\"1>)[%4Ws/AFB$\"1+++'RsAR#F+7$$\"1M\"HpckMG#FB$\"1+++zI
1$z(FB7$$F:FB$\"1+++71<88F+7$$\"1k(*)=)[%4W#FB$\"1+++*)G!4A%FB7$$\"1z+
PR]o>DFB$\"1+++++++]FB7$$\"1%R]o>D%)f#FB$\"1+++J$4F7)FB7$$\"142La`;xEF
B$\"1+++ru.yaFB7$$\"1C5\"=^0fv#FB$\"1+++unW!*=F+7$$\"1R8HpckMGFB$\"1++
+S$)e!y*FB7$$\"1`;xEeQ8HFB$\"1+++**\\wkEF+7$$\"1p>D%)f7#*HFB$\"1+++&pE
LV(FB7$$\"1%GK<9m32$FB$\"1+++N[tA@F+7$$F?FB$!1+++Ip1ZqFB7$$\"18HpckMGK
FB$\"1+++mo8[AFB7$$\"1HK<9m32LFB$!1+++Bf`iFF+7$$\"1VNlrn#eQ$FB$!1++++*
)4G>F+7$$\"1eQ8HpckMFB$!1+++Tm\\aSF+7$$\"1tTh'32La$FB$!1+++pxzMHF+7$$
\"1)[%4Ws/AOFB$!1+++B&oPa$F+7$$\"1.[d,uy+PFB$!1+++/?YFAF+7$$\"1=^0fv_z
PFBFfp7$$\"1La`;xEeQFB$!1+++`q+i^FB7$$FEFB$\"1+++'\\=$\\5F+7$$\"1jg\\J
![d,%FB$\"1+++z]r!R)FB7$$\"1yj(*)=)[%4%FB$\"1+++Cn5$[#F+7$$\"1$pckMGK<
%FB$\"1+++1]I_(*FB7$$\"13q$R]o>D%FB$\"1+++&e,`[#F+7$$\"1BtTh'32L%FB$\"
1+++ww-->FB7$$\"1Qw*)=)[%4WFB$\"1+++$*))4(y\"F+7$$\"1`zPw*)=)[%FB$!1++
+WwUyVFB7$$\"1o#eQ8Hpc%FB$\"1+++l52V9F+7$$\"1$eQ8Hpck%FB$!1+++C;(*y5FB
7$$FJFB$\"1+++d3-'z\"F+7$$\"17#*H1'\\J![FB$\"1+++pQtX$*FB7$$\"1G&zPw*)
=)[FB$\"1+++cA$)e@F+7$$\"1V)f7#*H1'\\FB$\"1+++M>v8;F+7$$\"1d,uy+PR]FBF
)7$$\"1s/AO-6=^FB$\"1+++e=,K5F+7$$\"1(y+PR]o>&FB$!1+++pb@@\\FB7$$\"1-6
=^0fv_FB$!1+++p'>_S'FB7$$\"1=9m32La`FB$!1+++b62WHF+7$$\"1L<9m32LaFB$!1
+++)>M6@#F+7$$FOFB$!1+++2pU&Q%F+7$$\"1iB5\"=^0f&FB$!1+++W#yHV#F+7$$\"1
xEeQ8HpcFB$!1+++P#>%3RF+7$$\"1#*H1'\\J![dFB$!1+++)zc51\"F+7$$\"12La`;x
EeFB$!1+++>1.+>F+7$$\"1AO-6=^0fFB$\"1+++;N\\z#*FB7$$\"1PR]o>D%)fFB$\"1
+++Q(=`)GFB7$$\"1_U)f7#*H1'FB$\"1+++sE[Y@F+7$$\"1nXY$GK<9'FB$\"1+++T.4
X9F+7$$\"1#)[%4Ws/A'FB$\"1+++:4RI>F+7$$FTFB$\"1+++iN@99F+7$$\"17b!fv_z
P'FB$\"1+++RzrK\")FB7$$\"1EeQ8HpckFB$\"1+++(of$\\5F+7$$\"1Th'32La`'FB$
!1+++56kv]F57$$\"1dkMGK<9mFB$\"1+++V!eGG\"F+7$$\"1sn#eQ8Hp'FB$\"1+++SZ
!>\\#F57$$\"1(32La`;x'FB$\"1+++d\\Ex@F+7$$\"1-uy+PR]oFB$\"1+++OMSgkFB7
$$\"1;xEeQ8HpFB$\"1+++Pq-EGF+7$$\"1J![d,uy+(FB$\"1+++E<'3[(FB7$$FYFB$
\"1+++tJ-*>#F+7$$\"1h'32La`;(FB$!1+++#ROtX$FB7$$\"1x*)=)[%4WsFB$\"1+++
QY\"**p\"FB7$$\"1#HpckMGK(FB$!1+++%>)\\%=#F+7$$\"11'\\J![d,uFB$!1+++YW
^9AF+7$$\"1@*H1'\\J![(FB$!1+++DZ.eMF+7$$\"1O-6=^0fvFB$!1+++++++NF+7$$
\"1^0fv_zPwFB$!1+++\"3ay1$F+7$$\"1m32La`;xFB$!1+++68))zHF+7$$\"1\"=^0f
v_z(FB$!1+++GxNt5F+7$$\"1(\\J![d,uyFB$!1+++)4AUC\"F+7$$\"16=^0fv_zFB$
\"1+++'e0sJ\"F+7$$\"1E@*H1'\\J!)FB$\"1+++v5k7NFB7$$\"1TCZ?iB5\")FB$\"1
+++Lnl4FF+7$$\"1cF&zPw*)=)FB$\"1+++q.Fg#)FB7$$\"1rIVNlrn#)FB$\"1+++/4h
2EF+7$$\"1&Q8HpckM)FB$\"1+++:*e]H$FB7$$\"1+PR]o>D%)FB$\"1+++s#eyo\"F+7
$$\"1;S(y+PR])FB$!1+++!>bNJ\"FB7$$\"1JVNlrn#e)FB$\"1+++bSQg5F+7$$F\\oF
B$\"1+++:#G*RGFB7$$\"1h\\J![d,u)FB$\"1+++QCX.7F+7$$\"1v_zPw*)=))FBF[dl
7$$\"1!fv_zPw*))FB$\"1+++r-@S:F+7$$\"10fv_zPw*)FB$\"1+++1sX5AF+7$$\"1?
iB5\"=^0*FB$\"1+++1AMN5F+7$$\"1Olrn#eQ8*FB$\"1+++Oau-<F+7$$\"1^o>D%)f7
#*FB$!1+++K()*)\\tFB7$$\"1mrn#eQ8H*FB$!1+++]`:F_F57$$\"1![d,uy+P*FB$!1
+++etiAIF+7$$FaoFB$!1+++P#>%3>F+7$$\"15\"=^0fv_*FB$!1+++/)[XR%F+7$$\"1
D%)f7#*H1'*FB$!1+++UymPDF+7$$\"1S(y+PR]o*FB$!1+++AM2uQF+7$$\"1c!fv_zPw
*FB$!1+++$fd)H:F+7$$\"1q$R]o>D%)*FB$!1+++LCm^<F+7$$\"1&o>D%)f7#**FB$\"
1+++\"3`Ct#FB7$$\"\"\"F($\"1+++T@J=kFB-%'COLOURG6&%$RGBG$\"#5!\"\"F(F(
" 2 650 370 370 2 0 1 0 2 9 0 4 2 1.000000 45.000000 45.000000 10030 
10061 10056 10074 0 0 0 20030 0 12020 0 0 0 0 0 0 0 1 1 0 0 0 0 0 0 0 
0 0 0 0 }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "vectorplot(Y,0..1
);" }}{PARA 13 "" 1 "" {INLPLOT "6#-%'CURVESG6$7\\s7$\"\"!$\"1+++2c\"4
2\"!#:7$$\"1'\\J![d,uy!#=$\"1+++*Gm>v\"F+7$$\"1*H1'\\J![d\"!#<$\"1+++&
)*)p)p\"F+7$$\"1\\%4Ws/AO#F5$\"1+++B'*e><F+7$$\"1)f7#*H1'\\JF5$\"1+++v
0w87F+7$$\"1[d,uy+PRF5$\"1+++&yYUo*!#;7$$\"1)*)=)[%4Ws%F5$\"1+++2.x^dF
G7$$\"1Z?iB5\"=^&F5$\"1+++x*)>&f&FG7$$\"1(>D%)f7#*H'F5$\"1+++XM8alFG7$
$\"1Y$GK<9m3(F5$\"1+++06O%p*FG7$$F.F5$\"1+++Czl%R\"F+7$$\"1YY$GK<9m)F5
$\"1+++Bh&yj\"F+7$$\"1&zPw*)=)[%*F5$\"1+++W9``=F+7$$\"1%4Ws/AO-\"FG$\"
1+++oDb4:F+7$$\"14Ws/AO-6FG$\"1+++.=3<6F+7$$\"1CZ?iB5\"=\"FG$\"1,++&\\
yl*yF57$$\"1R]o>D%)f7FG$!1+++;\"o6q(FG7$$\"1a`;xEeQ8FG$!1+++0\"Gf,#F+7
$$\"1pckMGK<9FG$!1+++`@-)p#F+7$$\"1%)f7#*H1'\\\"FG$!1+++Z*p@T$F+7$$F4F
G$!1+++e16VLF+7$$\"19m32La`;FG$!1+++-1m:JF+7$$\"1HpckMGK<FG$!1+++\"\\2
HD#F+7$$\"1Ws/AO-6=FG$!1+++mowD8F+7$$\"1fv_zPw*)=FG$!1+++NyJ2AFG7$$\"1
uy+PR]o>FG$\"1+++3zG#G(FG7$$\"1*=)[%4Ws/#FG$\"1+++0!GhP\"F+7$$\"1/&o>D
%)f7#FG$\"1+++c(ekz\"F+7$$\"1>)[%4Ws/AFG$\"1+++'3\\qp\"F+7$$\"1M\"Hpck
MG#FG$\"1+++_$*y&e\"F+7$$F:FG$\"1+++g%Qi/\"F+7$$\"1k(*)=)[%4W#FG$\"1++
+0XIw')FG7$$\"1z+PR]o>DFG$\"1+++X9X5YFG7$$\"1%R]o>D%)f#FG$\"1+++mYNhlF
G7$$\"142La`;xEFG$\"1+++-MP+oFG7$$\"1C5\"=^0fv#FG$\"1+++h_7>7F+7$$\"1R
8HpckMGFG$\"1+++/GDM9F+7$$\"1`;xEeQ8HFG$\"1+++<>T@=F+7$$\"1p>D%)f7#*HF
G$\"1+++N)[Sq\"F+7$$\"1%GK<9m32$FG$\"1+++`P.L9F+7$$F?FG$\"1+++:29!4(FG
7$$\"18HpckMGKFG$!1+++K]Y*R#FG7$$\"1HK<9m32LFG$!1+++>6')o7F+7$$\"1VNlr
n#eQ$FG$!1+++7uJXBF+7$$\"1eQ8HpckMFG$!1+++rxH\"*HF+7$$\"1tTh'32La$FG$!
1+++1sk%\\$F+7$$\"1)[%4Ws/AOFG$!1+++ZJGRKF+7$$\"1.[d,uy+PFG$!1+++k_h&)
GF+7$$\"1=^0fv_zPFG$!1+++$yP3#=F+7$$\"1La`;xEeQFG$!1+++P82_'*FG7$$FDFG
$\"1+++`*)elEFG7$$\"1jg\\J![d,%FG$\"1******>+&>W*FG7$$\"1yj(*)=)[%4%FG
$\"1+++;\"*3h;F+7$$\"1$pckMGK<%FG$\"1+++7'o\"H<F+7$$\"13q$R]o>D%FG$\"1
+++VgEI<F+7$$\"1BtTh'32L%FG$\"1+++x@vP8F+7$$\"1Qw*)=)[%4WFG$\"1+++.$3l
))*FG7$$\"1`zPw*)=)[%FG$\"1+++V1GYnFG7$$\"1o#eQ8Hpc%FG$\"1+++.:9E]FG7$
$\"1$eQ8Hpck%FG$\"1+++8&pen'FG7$$FJFG$\"1+++t%=1W)FG7$$\"17#*H1'\\J![F
G$\"1+++ArHl8F+7$$\"1G&zPw*)=)[FG$\"1+++AGqY:F+7$$\"1V)f7#*H1'\\FG$\"1
+++&4#H')=F+7$$\"1d,uy+PR]FG$\"1+++nf(ob\"F+7$$\"1s/AO-6=^FG$\"1+++Hf+
m7F+7$$\"1(y+PR]o>&FG$\"1+++0:X*p#FG7$$\"1-6=^0fv_FG$!1+++?w@jcFG7$$\"
1=9m32La`FG$!1+++ilH#z\"F+7$$\"1L<9m32LaFG$!1+++xEgxDF+7$$FOFG$!1+++`0
G)H$F+7$$\"1iB5\"=^0f&FG$!1+++wD?4MF+7$$\"1xEeQ8HpcFG$!1+++T()pqJF+7$$
\"1#*H1'\\J![dFG$!1+++=!QZ[#F+7$$\"12La`;xEeFG$!1+++4Pa![\"F+7$$\"1AO-
6=^0fFG$!1+++PjSg[FG7$$\"1PR]o>D%)fFG$\"1+++FhS#3'FG7$$\"1_U)f7#*H1'FG
$\"1+++ts]<7F+7$$\"1nXY$GK<9'FG$\"1+++2ly&z\"F+7$$\"1#)[%4Ws/A'FG$\"1+
++G1u(o\"F+7$$FTFG$\"1+++RAIs;F+7$$\"17b!fv_zP'FG$\"1+++yEu86F+7$$\"1E
eQ8HpckFG$\"1+++0u:8$*FG7$$\"1Th'32La`'FG$\"1+++!Q;I*\\FG7$$\"1dkMGK<9
mFG$\"1+++g\"30;'FG7$$\"1sn#eQ8Hp'FG$\"1*****>X&))QlFG7$$\"1(32La`;x'F
G$\"1+++.?4,6F+7$$\"1-uy+PR]oFG$\"1+++^El69F+7$$\"1;xEeQ8HpFG$\"1+++\"
pLgt\"F+7$$\"1J![d,uy+(FG$\"1+++0m0(y\"F+7$$FYFG$\"1+++tYbt9F+7$$\"1h'
32La`;(FG$\"1+++uwWm#*FG7$$\"1x*)=)[%4WsFG$!1+++q(3ry)F57$$\"1#HpckMGK
(FG$!1+++lLD25F+7$$\"11'\\J![d,uFG$!1+++?j]*>#F+7$$\"1@*H1'\\J![(FG$!1
+++'eui$GF+7$$\"1O-6=^0fvFG$!1+++jt,zMF+7$$\"1^0fv_zPwFG$!1+++Tq#RG$F+
7$$\"1m32La`;xFG$!1+++(pnQ-$F+7$$\"1\"=^0fv_z(FG$!1+++?&>m-#F+7$$\"1(
\\J![d,uyFG$!1+++8**ye6F+7$$\"16=^0fv_zFG$\"1++++W<\\OF57$$\"1E@*H1'\\
J!)FG$\"1+++o%[BM)FG7$$\"1TCZ?iB5\")FG$\"1+++@/YI:F+7$$\"1cF&zPw*)=)FG
$\"1+++')=%yw\"F+7$$\"1rIVNlrn#)FG$\"1+++r*=or\"F+7$$\"1&Q8HpckM)FG$\"
1+++)Re&o9F+7$$\"1+PR]o>D%)FG$\"1+++#3#o35F+7$$\"1;S(y+PR])FG$\"1+++lP
^#y(FG7$$\"1JVNlrn#e)FG$\"1+++!oU^k%FG7$$F\\oFG$\"1+++$Q%)=s'FG7$$\"1h
\\J![d,u)FG$\"1+++)HEsV(FG7$$\"1v_zPw*)=))FG$\"1++++I$)38F+7$$\"1!fv_z
Pw*))FG$\"1+++<>@x9F+7$$\"10fv_zPw*)FG$\"1+++RPLv=F+7$$\"1?iB5\"=^0*FG
$\"1+++1(**Gi\"F+7$$\"1Olrn#eQ8*FG$\"1+++@Q/p8F+7$$\"1^o>D%)f7#*FG$\"1
+++9yxQ[FG7$$\"1mrn#eQ8H*FG$!1+++MrIORFG7$$\"1![d,uy+P*FG$!1+++c%\\u`
\"F+7$$FaoFG$!1+++)HBbY#F+7$$\"15\"=^0fv_*FG$!1+++@S[^JF+7$$\"1D%)f7#*
H1'*FG$!1+++B$3hY$F+7$$\"1S(y+PR]o*FG$!1+++K1(e?$F+7$$\"1c!fv_zPw*FG$!
1+++3b'>q#F+7$$\"1q$R]o>D%)*FG$!1+++8+wS;F+7$$\"1&o>D%)f7#**FG$!1+++Cc
3#R(FG7$$\"\"\"F($\"1+++7EQvXFG-%'COLOURG6&%$RGBG$\"#5!\"\"F(F(" 2 
612 373 373 2 0 1 0 2 9 0 4 2 1.000000 45.000000 45.000000 10030 
10061 10056 10074 0 0 0 20030 0 12020 0 0 0 0 0 0 0 1 1 0 0 0 16348 
29154 0 0 0 0 0 0 }}}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" 
{TEXT -1 0 "" }}}{SECT 1 {PARA 3 "" 0 "" {TEXT -1 7 "algebra" }}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 54 "Hl := convomat([1/2,1/2],8);
\nX := vector(8, i->x[i]); " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "Y :=
 evalm(Hl&*X);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 11 "" 1 
"" {XPPMATH 20 "6#>%#HlG-%'MATRIXG6#7*7*#\"\"\"\"\"#\"\"!F-F-F-F-F-F*7
*F*F*F-F-F-F-F-F-7*F-F*F*F-F-F-F-F-7*F-F-F*F*F-F-F-F-7*F-F-F-F*F*F-F-F
-7*F-F-F-F-F*F*F-F-7*F-F-F-F-F-F*F*F-7*F-F-F-F-F-F-F*F*" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#>%\"XG-%'MATRIXG6#7*7#&%\"xG6#\"\"\"7#&F+6#\"\"#
7#&F+6#\"\"$7#&F+6#\"\"%7#&F+6#\"\"&7#&F+6#\"\"'7#&F+6#\"\"(7#&F+6#\"
\")" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"YG-%'MATRIXG6#7*7#,&&%\"xG6
#\"\"\"#F.\"\"#&F,6#\"\")F/7#,&F+F/&F,6#F0F/7#,&F6F/&F,6#\"\"$F/7#,&F:
F/&F,6#\"\"%F/7#,&F?F/&F,6#\"\"&F/7#,&FDF/&F,6#\"\"'F/7#,&FIF/&F,6#\"
\"(F/7#,&FNF/F1F/" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}}
{MARK "4 0 0" 7 }{VIEWOPTS 1 1 0 1 1 1803 }