{VERSION 3 0 "IBM RISC UNIX" "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 }
{CSTYLE "" -1 276 "" 1 18 0 0 0 0 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 
277 "" 1 18 0 0 0 0 0 1 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 "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 "Map
le 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 }}
{SECT 0 {EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }{TEXT 276 0 "" }{TEXT 
277 13 "Haar Wavelets" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 109 "#
   the Haar scaling function  phi(x)\nphi := x -> piecewise( 0 < x and
 x <= 1, 1 );\n\nplot(phi(x), x=-1..2 );\n" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%$phiGR6#%\"xG6\"6$%)operatorG%&arrowGF(-%*piecewiseG6
$32\"\"!9$1F2\"\"\"F4F(F(6\"" }}{PARA 13 "" 1 "" {INLPLOT "6%-%'CURVES
G6$7co7$$!\"\"\"\"!F*7$$!1*****\\P&3Y$*!#;F*7$$!1++Dcx6x()F.F*7$$!1,+]
iTDP\")F.F*7$$!1****\\P\"\\J\\(F.F*7$$!1++DJa5_oF.F*7$$!1,+DcexdiF.F*7
$$!1++D1?QUcF.F*7$$!1++D13%f+&F.F*7$$!1++D\"oS:P%F.F*7$$!1+++v@)*=PF.F
*7$$!1++](G3U9$F.F*7$$!1*****\\-\\r\\#F.F*7$$!1+++vGVZ=F.F*7$$!1+++v4J
@7F.F*7$$!1)**\\iS;-P*!#<F*7$$!1,+]iIKFlFYF*7$$!1,]P%[&3P[FYF*7$$!1++D
1z%o9$FYF*7$$!1+v=<\"H<I#FYF*7$$!1**\\7G.hc9FYF*7$$!1\\PfL40M5FYF*7$$!
1*)\\i!R:\\6'!#=F*7$$!1Q(ozT=@+%FioF*7$$!1)[7`W@$*)=FioF*7$$\"1KwVt_vM
A!#>$\"\"\"F*7$$\"19+++DFOBFioFdp7$$\"1,++DJL(4$FYFdp7$$\"1,+++!R5'fFY
Fdp7$$\"1++vV!QBE\"F.Fdp7$$\"1******\\\"o?&=F.Fdp7$$\"1,+vVb4*\\#F.Fdp
7$$\"1,+DJ'=_6$F.Fdp7$$\"1,+]P%y!ePF.Fdp7$$\"1,+v=WU[VF.Fdp7$$\"1++]7B
>&)\\F.Fdp7$$\"1++v$>:mk&F.Fdp7$$\"1++DcdQAiF.Fdp7$$\"1,+]PPBWoF.Fdp7$
$\"1******\\Nm'[(F.Fdp7$$\"1****\\(yb^6)F.Fdp7$$\"1++vVVDB()F.Fdp7$$\"
1+]7G#\\31*F.Fdp7$$\"1++]7TW)R*F.Fdp7$$\"1**\\(=7;,b*F.Fdp7$$\"1***\\7
8)y,(*F.Fdp7$$\"1*\\Pf8Cwx*F.Fdp7$$\"1**\\iS,Y`)*F.Fdp7$$\"1\\(oH9y8*)
*F.Fdp7$$\"1)\\7`9'HH**F.Fdp7$$\"1tV[Y^D[**F.Fdp7$$\"1[ilZT@n**F.Fdp7$
$\"1C\"G)[J<')**F.Fdp7$$\"1+++:K^+5!#:F*7$$\"1++vj;!H.\"FjuF*7$$\"1++]
7,Hl5FjuF*7$$\"1+]P4w)R7\"FjuF*7$$\"1++]x%f\")=\"FjuF*7$$\"1+]P/-a[7Fj
uF*7$$\"1+](=Yb;J\"FjuF*7$$\"1++]i@Ot8FjuF*7$$\"1+]PfL'zV\"FjuF*7$$\"1
+++!*>=+:FjuF*7$$\"1++DE&4Qc\"FjuF*7$$\"1+]P%>5pi\"FjuF*7$$\"1+++bJ*[o
\"FjuF*7$$\"1++Dr\"[8v\"FjuF*7$$\"1+++Ijy5=FjuF*7$$\"1+]P/)fT(=FjuF*7$
$\"1+]i0j\"[$>FjuF*7$$\"\"#F*F*-%'COLOURG6&%$RGBG$\"#5F)F*F*-%+AXESLAB
ELSG6$%\"xG%!G-%%VIEWG6$;F(F\\y%(DEFAULTG" 2 390 390 390 2 0 1 0 2 9 
0 4 2 1.000000 45.000000 45.000000 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 
1 1 0 0 0 13644 8223 0 0 0 0 0 0 }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 77 "# phi(t) = phi(2*t) + phi(2*t-1)\nplot( t -> phi(2*t) + phi(2*
t-1), -1..2 );\n\n" }}{PARA 13 "" 1 "" {INLPLOT "6$-%'CURVESG6$7co7$$!
\"\"\"\"!F*7$$!1*****\\P&3Y$*!#;F*7$$!1++Dcx6x()F.F*7$$!1,+]iTDP\")F.F
*7$$!1****\\P\"\\J\\(F.F*7$$!1++DJa5_oF.F*7$$!1,+DcexdiF.F*7$$!1++D1?Q
UcF.F*7$$!1++D13%f+&F.F*7$$!1++D\"oS:P%F.F*7$$!1+++v@)*=PF.F*7$$!1++](
G3U9$F.F*7$$!1*****\\-\\r\\#F.F*7$$!1+++vGVZ=F.F*7$$!1+++v4J@7F.F*7$$!
1)**\\iS;-P*!#<F*7$$!1,+]iIKFlFYF*7$$!1,]P%[&3P[FYF*7$$!1++D1z%o9$FYF*
7$$!1+v=<\"H<I#FYF*7$$!1**\\7G.hc9FYF*7$$!1\\PfL40M5FYF*7$$!1*)\\i!R:
\\6'!#=F*7$$!1Q(ozT=@+%FioF*7$$!1)[7`W@$*)=FioF*7$$\"1KwVt_vMA!#>$\"\"
\"F*7$$\"19+++DFOBFioFdp7$$\"1,++DJL(4$FYFdp7$$\"1,+++!R5'fFYFdp7$$\"1
++vV!QBE\"F.Fdp7$$\"1******\\\"o?&=F.Fdp7$$\"1,+vVb4*\\#F.Fdp7$$\"1,+D
J'=_6$F.Fdp7$$\"1,+]P%y!ePF.Fdp7$$\"1,+v=WU[VF.Fdp7$$\"1++]7B>&)\\F.Fd
p7$$\"1++v$>:mk&F.Fdp7$$\"1++DcdQAiF.Fdp7$$\"1,+]PPBWoF.Fdp7$$\"1*****
*\\Nm'[(F.Fdp7$$\"1****\\(yb^6)F.Fdp7$$\"1++vVVDB()F.Fdp7$$\"1+]7G#\\3
1*F.Fdp7$$\"1++]7TW)R*F.Fdp7$$\"1**\\(=7;,b*F.Fdp7$$\"1***\\78)y,(*F.F
dp7$$\"1*\\Pf8Cwx*F.Fdp7$$\"1**\\iS,Y`)*F.Fdp7$$\"1\\(oH9y8*)*F.Fdp7$$
\"1)\\7`9'HH**F.Fdp7$$\"1tV[Y^D[**F.Fdp7$$\"1[ilZT@n**F.Fdp7$$\"1C\"G)
[J<')**F.Fdp7$$\"1+++:K^+5!#:F*7$$\"1++vj;!H.\"FjuF*7$$\"1++]7,Hl5FjuF
*7$$\"1+]P4w)R7\"FjuF*7$$\"1++]x%f\")=\"FjuF*7$$\"1+]P/-a[7FjuF*7$$\"1
+](=Yb;J\"FjuF*7$$\"1++]i@Ot8FjuF*7$$\"1+]PfL'zV\"FjuF*7$$\"1+++!*>=+:
FjuF*7$$\"1++DE&4Qc\"FjuF*7$$\"1+]P%>5pi\"FjuF*7$$\"1+++bJ*[o\"FjuF*7$
$\"1++Dr\"[8v\"FjuF*7$$\"1+++Ijy5=FjuF*7$$\"1+]P/)fT(=FjuF*7$$\"1+]i0j
\"[$>FjuF*7$$\"\"#F*F*-%'COLOURG6&%$RGBG$\"#5F)F*F*-%%VIEWG6$;F(F\\y%(
DEFAULTG" 2 364 364 364 2 0 1 0 2 9 0 4 2 1.000000 45.000000 
45.000000 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 5964 8235 0 0 0 
0 0 0 }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 68 "phi_ := (i,j) -> su
bs(I=i,J=j, x -> 2^(J/2) * phi( 2^J * x - I ) );\n" }}{PARA 11 "" 1 "
" {XPPMATH 20 "6#>%%phi_GR6$%\"iG%\"jG6\"6$%)operatorG%&arrowGF)-%%sub
sG6%/%\"IG9$/%\"JG9%R6#%\"xGF)F*F)*&)\"\"#,$F4#\"\"\"F;F>-%$phiG6#,&*&
)F;F4F>F2F>F>F1!\"\"F>F)F)6\"F)F)FF" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 42 "plot( \{phi_(i,1)(x) $ i=0..1\}, x=-1..2 );\n" }}
{PARA 13 "" 1 "" {INLPLOT "6&-%'CURVESG6$7co7$$!\"\"\"\"!F*7$$!1*****
\\P&3Y$*!#;F*7$$!1++Dcx6x()F.F*7$$!1,+]iTDP\")F.F*7$$!1****\\P\"\\J\\(
F.F*7$$!1++DJa5_oF.F*7$$!1,+DcexdiF.F*7$$!1++D1?QUcF.F*7$$!1++D13%f+&F
.F*7$$!1++D\"oS:P%F.F*7$$!1+++v@)*=PF.F*7$$!1++](G3U9$F.F*7$$!1*****\\
-\\r\\#F.F*7$$!1+++vGVZ=F.F*7$$!1+++v4J@7F.F*7$$!1)**\\iS;-P*!#<F*7$$!
1,+]iIKFlFYF*7$$!1,]P%[&3P[FYF*7$$!1++D1z%o9$FYF*7$$!1+v=<\"H<I#FYF*7$
$!1**\\7G.hc9FYF*7$$!1\\PfL40M5FYF*7$$!1*)\\i!R:\\6'!#=F*7$$!1Q(ozT=@+
%FioF*7$$!1)[7`W@$*)=FioF*7$$\"1KwVt_vMA!#>$\"1&4tBc8UT\"!#:7$$\"19+++
DFOBFioFdp7$$\"1,++DJL(4$FYFdp7$$\"1,+++!R5'fFYFdp7$$\"1++vV!QBE\"F.Fd
p7$$\"1******\\\"o?&=F.Fdp7$$\"1,+vVb4*\\#F.Fdp7$$\"1,+DJ'=_6$F.Fdp7$$
\"1,+]P%y!ePF.Fdp7$$\"1,+v=WU[VF.Fdp7$$\"1+]il$3om%F.Fdp7$$\"1++]7B>&)
\\F.Fdp7$$\"1i!Rvxhe+&F.F*7$$\"1D\"yDCJl-&F.F*7$$\"1)=<wq+s/&F.F*7$$\"
1]ils,(y1&F.F*7$$\"1wVt-\"4#4^F.F*7$$\"1+D\"G.[0:&F.F*7$$\"1\\(oH*eAL_
F.F*7$$\"1+]7`P!fJ&F.F*7$$\"1+vVt%f7[&F.F*7$$\"1++v$>:mk&F.F*7$$\"1+++
v/]MfF.F*7$$\"1++DcdQAiF.F*7$$\"1,+]PPBWoF.F*7$$\"1******\\Nm'[(F.F*7$
$\"1****\\(yb^6)F.F*7$$\"1++vVVDB()F.F*7$$\"1++]7TW)R*F.F*7$$\"1+++:K^
+5FfpF*7$$\"1++]7,Hl5FfpF*7$$\"1+]P4w)R7\"FfpF*7$$\"1++]x%f\")=\"FfpF*
7$$\"1+]P/-a[7FfpF*7$$\"1+](=Yb;J\"FfpF*7$$\"1++]i@Ot8FfpF*7$$\"1+]PfL
'zV\"FfpF*7$$\"1+++!*>=+:FfpF*7$$\"1++DE&4Qc\"FfpF*7$$\"1+]P%>5pi\"Ffp
F*7$$\"1+++bJ*[o\"FfpF*7$$\"1++Dr\"[8v\"FfpF*7$$\"1+++Ijy5=FfpF*7$$\"1
+]P/)fT(=FfpF*7$$\"1+]i0j\"[$>FfpF*7$$\"\"#F*F*-%'COLOURG6&%$RGBG$\"#5
F)F*F*-F$6$7coF'F+F/F2F5F8F;F>FAFDFGFJFMFPFSFZ7$FhpF*7$F^qF*7$FaqF*7$F
dqF*7$FgqF*7$FjqF*7$F]rF*7$F`rF*7$FcrF*7$FfrF*7$FirFdp7$F\\sFdp7$F_sFd
p7$FbsFdp7$FesFdp7$FhsFdp7$F[tFdp7$F^tFdp7$FatFdp7$FdtFdp7$FgtFdp7$Fjt
Fdp7$F]uFdp7$F`uFdp7$FcuFdp7$FfuFdp7$$\"1+]7G#\\31*F.Fdp7$FiuFdp7$$\"1
**\\(=7;,b*F.Fdp7$$\"1***\\78)y,(*F.Fdp7$$\"1*\\Pf8Cwx*F.Fdp7$$\"1**\\
iS,Y`)*F.Fdp7$$\"1\\(oH9y8*)*F.Fdp7$$\"1)\\7`9'HH**F.Fdp7$$\"1tV[Y^D[*
*F.Fdp7$$\"1[ilZT@n**F.Fdp7$$\"1C\"G)[J<')**F.FdpF[v7$$\"1++vj;!H.\"Ff
pF*F^vFavFdvFgvFjvF]wF`wFcwFfwFiwF\\xF_xFbxFexFhxF[y-F_y6&FayF*FbyF*-%
+AXESLABELSG6$%\"xG%!G-%%VIEWG6$;F(F\\y%(DEFAULTG" 2 390 390 390 2 0 
1 0 2 9 0 4 2 1.000000 45.000000 45.000000 0 0 0 0 0 0 0 0 0 0 0 0 0 
0 0 0 0 1 1 0 0 0 3 8225 0 0 0 0 0 0 }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 48 "plot( x -> phi_(0,1)(x) + phi_(1,1)(x), -1..2 );" }}
{PARA 13 "" 1 "" {INLPLOT "6$-%'CURVESG6$7co7$$!\"\"\"\"!F*7$$!+v`3Y$*
!#5F*7$$!+cx6x()F.F*7$$!+iTDP\")F.F*7$$!+P\"\\J\\(F.F*7$$!+Ja5_oF.F*7$
$!+cexdiF.F*7$$!+1?QUcF.F*7$$!+13%f+&F.F*7$$!+\"oS:P%F.F*7$$!+v@)*=PF.
F*7$$!+(G3U9$F.F*7$$!+D!\\r\\#F.F*7$$!+vGVZ=F.F*7$$!+v4J@7F.F*7$$!+0k@
q$*!#6F*7$$!*1Bt_'F.F*7$$!+qa3P[FYF*7$$!+!)y%o9$FYF*7$$!+&3H<I#FYF*7$$
!+!H5mX\"FYF*7$$!+$*30M5FYF*7$$!+]\\\"\\6'!#7F*7$$!+jz6-SFioF*7$$!+v4K
*)=FioF*7$$\"+D,wMA!#8$\"+iN@99!\"*7$$\"(tiL#FfpFdp7$$\"+]JL(4$FYFdp7$
$\")!R5'fFfpFdp7$$\"*/QBE\"FfpFdp7$$\"*:o?&=FfpFdp7$$\"*a&4*\\#FfpFdp7
$$\"*j=_6$FfpFdp7$$\"*Wy!ePFfpFdp7$$\"*UC%[VFfpFdp7$$\"*J#>&)\\FfpFdp7
$$\"*>:mk&FfpFdp7$$\"*w&QAiFfpFdp7$$\"*uLU%oFfpFdp7$$\"*bjm[(FfpFdp7$$
\"*zb^6)FfpFdp7$$\"*MaKs)FfpFdp7$$\"+D#\\31*F.Fdp7$$\"*6W%)R*FfpFdp7$$
\"+?h6]&*F.Fdp7$$\"+I\")y,(*F.Fdp7$$\"+NTix(*F.Fdp7$$\"+S,Y`)*F.Fdp7$$
\"+V\"y8*)*F.Fdp7$$\"+XhHH**F.Fdp7$$\"+Z^D[**F.Fdp7$$\"+[T@n**F.Fdp7$$
\"+\\J<')**F.Fdp7$$\"+:K^+5FfpF*7$$\"+k;!H.\"FfpF*7$$\"+8,Hl5FfpF*7$$
\"+4w)R7\"FfpF*7$$\"+y%f\")=\"FfpF*7$$\"+/-a[7FfpF*7$$\"+ial68FfpF*7$$
\"+j@Ot8FfpF*7$$\"+fL'zV\"FfpF*7$$\"+!*>=+:FfpF*7$$\"+E&4Qc\"FfpF*7$$
\"+%>5pi\"FfpF*7$$\"+bJ*[o\"FfpF*7$$\"+r\"[8v\"FfpF*7$$\"+Ijy5=FfpF*7$
$\"+/)fT(=FfpF*7$$\"+1j\"[$>FfpF*7$$\"\"#F*F*-%'COLOURG6&%$RGBG$\"#5F)
F*F*-%%VIEWG6$;F(F\\y%(DEFAULTG" 2 364 364 364 2 0 1 0 2 9 0 4 2 
1.000000 45.000000 45.000000 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 
0 0 386 0 0 0 0 0 0 0 }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "plo
t( \{phi_(i,2) $ i=0..3\}, -1..2 );\n\n" }}{PARA 13 "" 1 "" {INLPLOT "
6'-%'CURVESG6$7co7$$!\"\"\"\"!F*7$$!1*****\\P&3Y$*!#;F*7$$!1++Dcx6x()F
.F*7$$!1,+]iTDP\")F.F*7$$!1****\\P\"\\J\\(F.F*7$$!1++DJa5_oF.F*7$$!1,+
DcexdiF.F*7$$!1++D1?QUcF.F*7$$!1++D13%f+&F.F*7$$!1++D\"oS:P%F.F*7$$!1+
++v@)*=PF.F*7$$!1++](G3U9$F.F*7$$!1*****\\-\\r\\#F.F*7$$!1+++vGVZ=F.F*
7$$!1+++v4J@7F.F*7$$!1)**\\iS;-P*!#<F*7$$!1,+]iIKFlFYF*7$$!1,]P%[&3P[F
YF*7$$!1++D1z%o9$FYF*7$$!1+v=<\"H<I#FYF*7$$!1**\\7G.hc9FYF*7$$!1\\PfL4
0M5FYF*7$$!1*)\\i!R:\\6'!#=F*7$$!1Q(ozT=@+%FioF*7$$!1)[7`W@$*)=FioF*7$
$\"1KwVt_vMA!#>$\"\"#F*7$$\"19+++DFOBFioFdp7$$\"1,++DJL(4$FYFdp7$$\"1,
+++!R5'fFYFdp7$$\"1++vV!QBE\"F.Fdp7$$\"1******\\\"o?&=F.Fdp7$$\"1+](o%
=ev@F.Fdp7$$\"1,+vVb4*\\#F.Fdp7$$\"1wVB!R\\$=DF.F*7$$\"1^(=nB.w`#F.F*7
$$\"1EJ?$3dob#F.F*7$$\"1,voH46wDF.F*7$$\"1^ilA'=Yh#F.F*7$$\"1,]i:j7`EF
.F*7$$\"1,Dc,<9IFF.F*7$$\"1,+](3dr!GF.F*7$$\"1,]Pfy=hHF.F*7$$\"1,+DJ'=
_6$F.F*7$$\"1,]PM&[mV$F.F*7$$\"1,+]P%y!ePF.F*7$$\"1,+v=WU[VF.F*7$$\"1+
+]7B>&)\\F.F*7$$\"1++v$>:mk&F.F*7$$\"1++DcdQAiF.F*7$$\"1,+]PPBWoF.F*7$
$\"1******\\Nm'[(F.F*7$$\"1****\\(yb^6)F.F*7$$\"1++vVVDB()F.F*7$$\"1++
]7TW)R*F.F*7$$\"1+++:K^+5!#:F*7$$\"1++]7,Hl5F]vF*7$$\"1+]P4w)R7\"F]vF*
7$$\"1++]x%f\")=\"F]vF*7$$\"1+]P/-a[7F]vF*7$$\"1+](=Yb;J\"F]vF*7$$\"1+
+]i@Ot8F]vF*7$$\"1+]PfL'zV\"F]vF*7$$\"1+++!*>=+:F]vF*7$$\"1++DE&4Qc\"F
]vF*7$$\"1+]P%>5pi\"F]vF*7$$\"1+++bJ*[o\"F]vF*7$$\"1++Dr\"[8v\"F]vF*7$
$\"1+++Ijy5=F]vF*7$$\"1+]P/)fT(=F]vF*7$$\"1+]i0j\"[$>F]vF*7$FdpF*-%'CO
LOURG6&%$RGBG$\"#5F)F*F*-F$6$7coF'F+F/F2F5F8F;F>FAFDFGFJFMFPFSFZ7$FgpF
*7$F]qF*7$F`qF*7$FcqF*7$FfqF*7$FiqF*7$F\\rFdp7$F_rFdp7$FbrFdp7$FerFdp7
$FhrFdp7$F[sFdp7$F^sFdp7$FasFdp7$FdsFdp7$FgsFdp7$FjsFdp7$F]tFdp7$F`tFd
p7$$\"1+]il$3om%F.Fdp7$FctFdp7$$\"1i!Rvxhe+&F.F*7$$\"1D\"yDCJl-&F.F*7$
$\"1)=<wq+s/&F.F*7$$\"1]ils,(y1&F.F*7$$\"1wVt-\"4#4^F.F*7$$\"1+D\"G.[0
:&F.F*7$$\"1\\(oH*eAL_F.F*7$$\"1+]7`P!fJ&F.F*7$$\"1+vVt%f7[&F.F*Fet7$$
\"1+++v/]MfF.F*FhtF[uF^uFauFduFguFjuF^vFavFdvFgvFjvF]wF`wFcwFfwFiwF\\x
F_xFbxFexFhxF[y-F]y6&F_yF*F`yF*-F$6$7coF'F+F/F2F5F8F;F>FAFDFGFJFMFPFSF
ZFeyFfyFgyFhyFjyFfsF\\tF_t7$FizF*Fbt7$F][lFdp7$F`[lFdp7$Fc[lFdp7$Ff[lF
dp7$Fi[lFdp7$F\\\\lFdp7$F_\\lFdp7$Fb\\lFdp7$Fe\\lFdp7$FftFdp7$Fh\\lFdp
7$FitFdp7$F\\uFdp7$$\"1++vV'[a;(F.Fdp7$F_uFdp7$$\"1u=UKRI1vF.F*7$$\"1
\\P%[JWf_(F.F*7$$\"1CcE(p%eXvF.F*7$$\"1*\\(oz]AlvF.F*7$$\"1\\7`We]/wF.
F*7$$\"1)*\\P4myVwF.F*7$$\"1)\\i!R\"[Bs(F.F*7$$\"1***\\(o'44!yF.F*7$$
\"1+]7GF.ezF.F*Fau7$$\"1**\\il]?>%)F.F*FduFguFjuF^vFavFdvFgvFjvF]wF`wF
cwFfwFiwF\\xF_xFbxFexFhxF[y-F]y6&F_yF`yF`yF*-F$6$7coF'F+F/F2F5F8F;F>FA
FDFGFJFMFPFSFZFeyFfyFgyFhyFjyFfsF\\tF_tFbtFetFhtF[u7$F^^lF*F^u7$Fb^lFd
p7$Fe^lFdp7$Fh^lFdp7$F[_lFdp7$F^_lFdp7$Fa_lFdp7$Fd_lFdp7$Fg_lFdp7$Fj_l
Fdp7$FbuFdp7$F]`lFdp7$FeuFdp7$$\"1+]7G#\\31*F.Fdp7$FhuFdp7$$\"1**\\(=7
;,b*F.Fdp7$$\"1***\\78)y,(*F.Fdp7$$\"1*\\Pf8Cwx*F.Fdp7$$\"1**\\iS,Y`)*
F.Fdp7$$\"1\\(oH9y8*)*F.Fdp7$$\"1)\\7`9'HH**F.Fdp7$$\"1tV[Y^D[**F.Fdp7
$$\"1[ilZT@n**F.Fdp7$$\"1C\"G)[J<')**F.FdpFju7$$\"1++vj;!H.\"F]vF*F^vF
avFdvFgvFjvF]wF`wFcwFfwFiwF\\xF_xFbxFexFhxF[y-F]y6&F_yF*F*F`y-%%VIEWG6
$;F(Fdp%(DEFAULTG" 2 390 390 390 2 0 1 0 2 9 0 4 2 1.000000 45.000000 
45.000000 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 -15093 20887 0 
0 0 0 0 0 }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 53 "innerproduct :=
 (f,g) -> int( f(x) * g(x), x=0..1 );\n" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#>%-innerproductGR6$%\"fG%\"gG6\"6$%)operatorG%&arrowGF)-%$intG6$
*&-9$6#%\"xG\"\"\"-9%F3F5/F4;\"\"!F5F)F)6\"" }}}{EXCHG {PARA 0 "> " 0 
"" {MPLTEXT 1 0 152 "innerproduct( phi_(0,2), phi_(0,2) );\ninnerprodu
ct( phi_(0,2), phi_(1,2) );\ninnerproduct( phi_(0,2), phi_(2,2) );\nin
nerproduct( phi_(0,2), phi_(3,2) );\n" }}{PARA 11 "" 1 "" {XPPMATH 20 
"6#\"\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"!" }}{PARA 11 "" 1 "
" {XPPMATH 20 "6#\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"!" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 182 "f := 3*phi_(0,2) + 1*phi_(1
,2) + 2*phi_(2,2) + 1*phi_(3,2);\n\ninnerproduct( f, phi_(0,2) );\ninn
erproduct( f, phi_(1,2) );\ninnerproduct( f, phi_(2,2) );\ninnerproduc
t( f, phi_(3,2) );\n\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"fG,*R6#%
\"xG6\"6$%)operatorG%&arrowGF),$-%$phiG6#,$9$\"\"%\"\"#F)F)6\"\"\"$RF'
F)F*F),$-F/6#,&F2F3!\"\"\"\"\"F4F)F)F5F=RF'F)F*F),$-F/6#,&F2F3!\"#F=F4
F)F)F5F4RF'F)F*F),$-F/6#,&F2F3!\"$F=F4F)F)F5F=" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#\"\"$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"\"" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"#" }}{PARA 11 "" 1 "" {XPPMATH 20 
"6#\"\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 96 "# The Haar wav
elets\nHaar_Psi := x -> piecewise( 0 < x and x <= 1/2, 1, 1/2 < x and \+
x <= 1, -1 );" }}{PARA 11 "" 0 "" {TEXT -1 0 "" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%)Haar_PsiGR6#%\"xG6\"6$%)operatorG%&arrowGF(-%*piecew
iseG6&32\"\"!9$1F2#\"\"\"\"\"#F532F4F21F2F5!\"\"F(F(6\"" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "plot(Haar_Psi(x), x=-1..2 );" }}
{PARA 13 "" 1 "" {INLPLOT "6%-%'CURVESG6$7^p7$$!\"\"\"\"!F*7$$!1*****
\\P&3Y$*!#;F*7$$!1++Dcx6x()F.F*7$$!1,+]iTDP\")F.F*7$$!1****\\P\"\\J\\(
F.F*7$$!1++DJa5_oF.F*7$$!1,+DcexdiF.F*7$$!1++D1?QUcF.F*7$$!1++D13%f+&F
.F*7$$!1++D\"oS:P%F.F*7$$!1+++v@)*=PF.F*7$$!1++](G3U9$F.F*7$$!1*****\\
-\\r\\#F.F*7$$!1+++vGVZ=F.F*7$$!1+++v4J@7F.F*7$$!1)**\\iS;-P*!#<F*7$$!
1,+]iIKFlFYF*7$$!1,]P%[&3P[FYF*7$$!1++D1z%o9$FYF*7$$!1+v=<\"H<I#FYF*7$
$!1**\\7G.hc9FYF*7$$!1\\PfL40M5FYF*7$$!1*)\\i!R:\\6'!#=F*7$$!1Q(ozT=@+
%FioF*7$$!1)[7`W@$*)=FioF*7$$\"1KwVt_vMA!#>$\"\"\"F*7$$\"19+++DFOBFioF
dp7$$\"1,++DJL(4$FYFdp7$$\"1,+++!R5'fFYFdp7$$\"1++vV!QBE\"F.Fdp7$$\"1*
*****\\\"o?&=F.Fdp7$$\"1,+vVb4*\\#F.Fdp7$$\"1,+DJ'=_6$F.Fdp7$$\"1,+]P%
y!ePF.Fdp7$$\"1,+v=WU[VF.Fdp7$$\"1+]il$3om%F.Fdp7$$\"1++]7B>&)\\F.Fdp7
$$\"1i!Rvxhe+&F.F(7$$\"1D\"yDCJl-&F.F(7$$\"1)=<wq+s/&F.F(7$$\"1]ils,(y
1&F.F(7$$\"1wVt-\"4#4^F.F(7$$\"1+D\"G.[0:&F.F(7$$\"1\\(oH*eAL_F.F(7$$
\"1+]7`P!fJ&F.F(7$$\"1+vVt%f7[&F.F(7$$\"1++v$>:mk&F.F(7$$\"1+++v/]MfF.
F(7$$\"1++DcdQAiF.F(7$$\"1,+]PPBWoF.F(7$$\"1******\\Nm'[(F.F(7$$\"1***
*\\(yb^6)F.F(7$$\"1++vVVDB()F.F(7$$\"1+]7G#\\31*F.F(7$$\"1++]7TW)R*F.F
(7$$\"1**\\(=7;,b*F.F(7$$\"1***\\78)y,(*F.F(7$$\"1*\\Pf8Cwx*F.F(7$$\"1
**\\iS,Y`)*F.F(7$$\"1\\(oH9y8*)*F.F(7$$\"1)\\7`9'HH**F.F(7$$\"1tV[Y^D[
**F.F(7$$\"1[ilZT@n**F.F(7$$\"1C\"G)[J<')**F.F(7$$\"1+++:K^+5!#:F*7$$
\"1++vj;!H.\"F[xF*7$$\"1++]7,Hl5F[xF*7$$\"1+]P4w)R7\"F[xF*7$$\"1++]x%f
\")=\"F[xF*7$$\"1+]P/-a[7F[xF*7$$\"1+](=Yb;J\"F[xF*7$$\"1++]i@Ot8F[xF*
7$$\"1+]PfL'zV\"F[xF*7$$\"1+++!*>=+:F[xF*7$$\"1++DE&4Qc\"F[xF*7$$\"1+]
P%>5pi\"F[xF*7$$\"1+++bJ*[o\"F[xF*7$$\"1++Dr\"[8v\"F[xF*7$$\"1+++Ijy5=
F[xF*7$$\"1+]P/)fT(=F[xF*7$$\"1+]i0j\"[$>F[xF*7$$\"\"#F*F*-%'COLOURG6&
%$RGBG$\"#5F)F*F*-%+AXESLABELSG6$%\"xG%!G-%%VIEWG6$;F(F][l%(DEFAULTG" 
2 387 387 387 2 0 1 0 2 9 0 4 2 1.000000 45.000000 45.000000 0 0 0 0 
0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 8225 0 0 0 0 0 0 }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 83 "# Haar_Psi(t) =  phi(2*t) - phi(2*t
-1)\n\nplot( t -> phi(2*t) - phi(2*t-1), -1..2 ); " }}{PARA 13 "" 1 "
" {INLPLOT "6$-%'CURVESG6$7^p7$$!\"\"\"\"!F*7$$!1*****\\P&3Y$*!#;F*7$$
!1++Dcx6x()F.F*7$$!1,+]iTDP\")F.F*7$$!1****\\P\"\\J\\(F.F*7$$!1++DJa5_
oF.F*7$$!1,+DcexdiF.F*7$$!1++D1?QUcF.F*7$$!1++D13%f+&F.F*7$$!1++D\"oS:
P%F.F*7$$!1+++v@)*=PF.F*7$$!1++](G3U9$F.F*7$$!1*****\\-\\r\\#F.F*7$$!1
+++vGVZ=F.F*7$$!1+++v4J@7F.F*7$$!1)**\\iS;-P*!#<F*7$$!1,+]iIKFlFYF*7$$
!1,]P%[&3P[FYF*7$$!1++D1z%o9$FYF*7$$!1+v=<\"H<I#FYF*7$$!1**\\7G.hc9FYF
*7$$!1\\PfL40M5FYF*7$$!1*)\\i!R:\\6'!#=F*7$$!1Q(ozT=@+%FioF*7$$!1)[7`W
@$*)=FioF*7$$\"1KwVt_vMA!#>$\"\"\"F*7$$\"19+++DFOBFioFdp7$$\"1,++DJL(4
$FYFdp7$$\"1,+++!R5'fFYFdp7$$\"1++vV!QBE\"F.Fdp7$$\"1******\\\"o?&=F.F
dp7$$\"1,+vVb4*\\#F.Fdp7$$\"1,+DJ'=_6$F.Fdp7$$\"1,+]P%y!ePF.Fdp7$$\"1,
+v=WU[VF.Fdp7$$\"1+]il$3om%F.Fdp7$$\"1++]7B>&)\\F.Fdp7$$\"1i!Rvxhe+&F.
F(7$$\"1D\"yDCJl-&F.F(7$$\"1)=<wq+s/&F.F(7$$\"1]ils,(y1&F.F(7$$\"1wVt-
\"4#4^F.F(7$$\"1+D\"G.[0:&F.F(7$$\"1\\(oH*eAL_F.F(7$$\"1+]7`P!fJ&F.F(7
$$\"1+vVt%f7[&F.F(7$$\"1++v$>:mk&F.F(7$$\"1+++v/]MfF.F(7$$\"1++DcdQAiF
.F(7$$\"1,+]PPBWoF.F(7$$\"1******\\Nm'[(F.F(7$$\"1****\\(yb^6)F.F(7$$
\"1++vVVDB()F.F(7$$\"1+]7G#\\31*F.F(7$$\"1++]7TW)R*F.F(7$$\"1**\\(=7;,
b*F.F(7$$\"1***\\78)y,(*F.F(7$$\"1*\\Pf8Cwx*F.F(7$$\"1**\\iS,Y`)*F.F(7
$$\"1\\(oH9y8*)*F.F(7$$\"1)\\7`9'HH**F.F(7$$\"1tV[Y^D[**F.F(7$$\"1[ilZ
T@n**F.F(7$$\"1C\"G)[J<')**F.F(7$$\"1+++:K^+5!#:F*7$$\"1++vj;!H.\"F[xF
*7$$\"1++]7,Hl5F[xF*7$$\"1+]P4w)R7\"F[xF*7$$\"1++]x%f\")=\"F[xF*7$$\"1
+]P/-a[7F[xF*7$$\"1+](=Yb;J\"F[xF*7$$\"1++]i@Ot8F[xF*7$$\"1+]PfL'zV\"F
[xF*7$$\"1+++!*>=+:F[xF*7$$\"1++DE&4Qc\"F[xF*7$$\"1+]P%>5pi\"F[xF*7$$
\"1+++bJ*[o\"F[xF*7$$\"1++Dr\"[8v\"F[xF*7$$\"1+++Ijy5=F[xF*7$$\"1+]P/)
fT(=F[xF*7$$\"1+]i0j\"[$>F[xF*7$$\"\"#F*F*-%'COLOURG6&%$RGBG$\"#5F)F*F
*-%%VIEWG6$;F(F][l%(DEFAULTG" 2 364 364 364 2 0 1 0 2 9 0 4 2 
1.000000 45.000000 45.000000 0 0 0 0 0 0 0 0 0 0 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 72 "Psi_ \+
:= (i,j) -> subs(I=i,J=j, x -> 2^(J/2) * Haar_Psi( 2^J * x - I ) );" }
}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%Psi_GR6$%\"iG%\"jG6\"6$%)operatorG
%&arrowGF)-%%subsG6%/%\"IG9$/%\"JG9%R6#%\"xGF)F*F)*&)\"\"#,$F4#\"\"\"F
;F>-%)Haar_PsiG6#,&*&)F;F4F>F2F>F>F1!\"\"F>F)F)6\"F)F)FF" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 41 "plot( \{Psi_(i,2)(x) $ i=0..3\}, x=
-1..2 );" }}{PARA 13 "" 1 "" {INLPLOT "6(-%'CURVESG6$7]p7$$!\"\"\"\"!F
*7$$!1*****\\P&3Y$*!#;F*7$$!1++Dcx6x()F.F*7$$!1,+]iTDP\")F.F*7$$!1****
\\P\"\\J\\(F.F*7$$!1++DJa5_oF.F*7$$!1,+DcexdiF.F*7$$!1++D1?QUcF.F*7$$!
1++D13%f+&F.F*7$$!1++D\"oS:P%F.F*7$$!1+++v@)*=PF.F*7$$!1++](G3U9$F.F*7
$$!1*****\\-\\r\\#F.F*7$$!1+++vGVZ=F.F*7$$!1+++v4J@7F.F*7$$!1)**\\iS;-
P*!#<F*7$$!1,+]iIKFlFYF*7$$!1,]P%[&3P[FYF*7$$!1++D1z%o9$FYF*7$$!1+v=<
\"H<I#FYF*7$$!1**\\7G.hc9FYF*7$$!1\\PfL40M5FYF*7$$!1*)\\i!R:\\6'!#=F*7
$$!1Q(ozT=@+%FioF*7$$!1)[7`W@$*)=FioF*7$$\"1KwVt_vMA!#>$\"\"#F*7$$\"19
+++DFOBFioFdp7$$\"1,++DJL(4$FYFdp7$$\"1,+++!R5'fFYFdp7$$\"1+]PfViEwFYF
dp7$$\"1++v=(4AH*FYFdp7$$\"1]P%)R-]75F.Fdp7$$\"1+D\"y]zd4\"F.Fdp7$$\"1
vozT\">u8\"F.Fdp7$$\"1]7yv(e!z6F.Fdp7$$\"1PMx#fy)*>\"F.Fdp7$$\"1Dcw4%)
p?7F.Fdp7$$\"17yvE#=:C\"F.Fdp7$$\"1++vV!QBE\"F.$!\"#F*7$$\"1**\\(o4.sb
\"F.F]s7$$\"1******\\\"o?&=F.F]s7$$\"1+](o%=ev@F.F]s7$$\"1,+vVb4*\\#F.
F]s7$$\"1wVB!R\\$=DF.F*7$$\"1^(=nB.w`#F.F*7$$\"1EJ?$3dob#F.F*7$$\"1,vo
H46wDF.F*7$$\"1^ilA'=Yh#F.F*7$$\"1,]i:j7`EF.F*7$$\"1,Dc,<9IFF.F*7$$\"1
,+](3dr!GF.F*7$$\"1,]Pfy=hHF.F*7$$\"1,+DJ'=_6$F.F*7$$\"1,]PM&[mV$F.F*7
$$\"1,+]P%y!ePF.F*7$$\"1,+v=WU[VF.F*7$$\"1++]7B>&)\\F.F*7$$\"1++v$>:mk
&F.F*7$$\"1++DcdQAiF.F*7$$\"1,+]PPBWoF.F*7$$\"1******\\Nm'[(F.F*7$$\"1
****\\(yb^6)F.F*7$$\"1++vVVDB()F.F*7$$\"1++]7TW)R*F.F*7$$\"1+++:K^+5!#
:F*7$$\"1++]7,Hl5F]xF*7$$\"1+]P4w)R7\"F]xF*7$$\"1++]x%f\")=\"F]xF*7$$
\"1+]P/-a[7F]xF*7$$\"1+](=Yb;J\"F]xF*7$$\"1++]i@Ot8F]xF*7$$\"1+]PfL'zV
\"F]xF*7$$\"1+++!*>=+:F]xF*7$$\"1++DE&4Qc\"F]xF*7$$\"1+]P%>5pi\"F]xF*7
$$\"1+++bJ*[o\"F]xF*7$$\"1++Dr\"[8v\"F]xF*7$$\"1+++Ijy5=F]xF*7$$\"1+]P
/)fT(=F]xF*7$$\"1+]i0j\"[$>F]xF*7$FdpF*-%'COLOURG6&%$RGBG$\"#5F)F*F*-F
$6$7\\pF'F+F/F2F5F8F;F>FAFDFGFJFMFPFSFZ7$FgpF*7$F]qF*7$F[sF*7$FcsF*7$F
fsF*7$FisF*7$F\\tFdp7$F_tFdp7$FbtFdp7$FetFdp7$FhtFdp7$F[uFdp7$F^uFdp7$
FauFdp7$FduFdp7$FguFdp7$$\"1,D\"GeLfF$F.Fdp7$FjuFdp7$$\"1^i:5g+<NF.Fdp
7$$\"1,v$f[jtf$F.Fdp7$$\"1E\"GQAUvj$F.Fdp7$$\"1^(=<'4sxOF.Fdp7$$\"1kSm
I.\"yp$F.Fdp7$$\"1w$4'*p**yr$F.Fdp7$$\"1)oa&o!*)zt$F.Fdp7$F]vF]s7$$\"1
,]7G9D`SF.F]s7$F`vF]s7$$\"1+]il$3om%F.F]s7$FcvF]s7$$\"1i!Rvxhe+&F.F*7$
$\"1D\"yDCJl-&F.F*7$$\"1)=<wq+s/&F.F*7$$\"1]ils,(y1&F.F*7$$\"1wVt-\"4#
4^F.F*7$$\"1+D\"G.[0:&F.F*7$$\"1\\(oH*eAL_F.F*7$$\"1+]7`P!fJ&F.F*7$$\"
1+vVt%f7[&F.F*Fev7$$\"1+++v/]MfF.F*FhvF[wF^wFawFdwFgwFjwF^xFaxFdxFgxFj
xF]yF`yFcyFfyFiyF\\zF_zFbzFezFhzF[[l-F][l6&F_[lF*F`[lF*-F$6$7\\pF'F+F/
F2F5F8F;F>FAFDFGFJFMFPFSFZFe[lFf[lFg[lFh[lFj[lFfuF\\vF_v7$Fd^lF*Fbv7$F
h^lFdp7$F[_lFdp7$F^_lFdp7$Fa_lFdp7$Fd_lFdp7$Fg_lFdp7$Fj_lFdp7$F]`lFdp7
$F``lFdp7$FfvFdp7$Fc`lFdp7$FivFdp7$$\"1iSm0&==C'F.Fdp7$$\"1C\"y]D^7E'F
.F]s7$$\"1(=#\\/So!G'F.F]s7$$\"1]i!Rv;,I'F.F]s7$$\"1vVt_A)*QjF.F]s7$$
\"1+Dc^x%yP'F.F]s7$$\"1](=#\\(ybX'F.F]s7$$\"1+](ou4L`'F.F]s7$$\"1+v=U<
x)o'F.F]s7$F\\wF]s7$$\"1++vV'[a;(F.F]s7$F_wF]s7$$\"1u=UKRI1vF.F*7$$\"1
\\P%[JWf_(F.F*7$$\"1CcE(p%eXvF.F*7$$\"1*\\(oz]AlvF.F*7$$\"1\\7`We]/wF.
F*7$$\"1)*\\P4myVwF.F*7$$\"1)\\i!R\"[Bs(F.F*7$$\"1***\\(o'44!yF.F*7$$
\"1+]7GF.ezF.F*Faw7$$\"1**\\il]?>%)F.F*FdwFgwFjwF^xFaxFdxFgxFjxF]yF`yF
cyFfyFiyF\\zF_zFbzFezFhzF[[l-F][l6&F_[lF`[lF`[lF*-F$6$7[pF'F+F/F2F5F8F
;F>FAFDFGFJFMFPFSFZFe[lFf[lFg[lFh[lFj[lFfuF\\vF_vFbvFevFhvF[w7$FdclF*F
^w7$FhclFdp7$F[dlFdp7$F^dlFdp7$FadlFdp7$FddlFdp7$FgdlFdp7$FjdlFdp7$F]e
lFdp7$F`elFdp7$FbwFdp7$FcelFdp7$FewFdp7$$\"1PM-CSNW()F.Fdp7$$\"1voH/PX
l()F.F]s7$$\"18.d%Q`ly)F.F]s7$$\"1]P%[1`w!))F.F]s7$$\"1D1RDC&)\\))F.F]
s7$$\"1+v$fy^?*))F.F]s7$$\"1^7.20Xw*)F.F]s7$$\"1+]7G#\\31*F.F]s7$$\"1*
\\7.nY'H#*F.F]s7$FhwF]s7$$\"1**\\(=7;,b*F.F]s7$$\"1***\\78)y,(*F.F]s7$
$\"1*\\Pf8Cwx*F.F]s7$$\"1**\\iS,Y`)*F.F]s7$$\"1\\(oH9y8*)*F.F]s7$$\"1)
\\7`9'HH**F.F]s7$$\"1tV[Y^D[**F.F]s7$$\"1[ilZT@n**F.F]s7$$\"1C\"G)[J<'
)**F.F]sFjw7$$\"1++vj;!H.\"F]xF*F^xFaxFdxFgxFjxF]yF`yFcyFfyFiyF\\zF_zF
bzFezFhzF[[l-F][l6&F_[lF*F*F`[l-%+AXESLABELSG6$%\"xG%!G-%%VIEWG6$;F(Fd
p%(DEFAULTG" 2 387 387 387 2 0 1 0 2 9 0 4 2 1.000000 45.000000 
45.000000 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 12875 25725 0 0 
0 0 0 0 }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 78 "#  Psi(t) = phi(2
*t) - phi(2*t-1)\n\nplot( t -> phi(2*t) - phi(2*t-1),  -1..2 );" }}
{PARA 13 "" 1 "" {INLPLOT "6$-%'CURVESG6$7^p7$$!\"\"\"\"!F*7$$!1*****
\\P&3Y$*!#;F*7$$!1++Dcx6x()F.F*7$$!1,+]iTDP\")F.F*7$$!1****\\P\"\\J\\(
F.F*7$$!1++DJa5_oF.F*7$$!1,+DcexdiF.F*7$$!1++D1?QUcF.F*7$$!1++D13%f+&F
.F*7$$!1++D\"oS:P%F.F*7$$!1+++v@)*=PF.F*7$$!1++](G3U9$F.F*7$$!1*****\\
-\\r\\#F.F*7$$!1+++vGVZ=F.F*7$$!1+++v4J@7F.F*7$$!1)**\\iS;-P*!#<F*7$$!
1,+]iIKFlFYF*7$$!1,]P%[&3P[FYF*7$$!1++D1z%o9$FYF*7$$!1+v=<\"H<I#FYF*7$
$!1**\\7G.hc9FYF*7$$!1\\PfL40M5FYF*7$$!1*)\\i!R:\\6'!#=F*7$$!1Q(ozT=@+
%FioF*7$$!1)[7`W@$*)=FioF*7$$\"1KwVt_vMA!#>$\"\"\"F*7$$\"19+++DFOBFioF
dp7$$\"1,++DJL(4$FYFdp7$$\"1,+++!R5'fFYFdp7$$\"1++vV!QBE\"F.Fdp7$$\"1*
*****\\\"o?&=F.Fdp7$$\"1,+vVb4*\\#F.Fdp7$$\"1,+DJ'=_6$F.Fdp7$$\"1,+]P%
y!ePF.Fdp7$$\"1,+v=WU[VF.Fdp7$$\"1+]il$3om%F.Fdp7$$\"1++]7B>&)\\F.Fdp7
$$\"1i!Rvxhe+&F.F(7$$\"1D\"yDCJl-&F.F(7$$\"1)=<wq+s/&F.F(7$$\"1]ils,(y
1&F.F(7$$\"1wVt-\"4#4^F.F(7$$\"1+D\"G.[0:&F.F(7$$\"1\\(oH*eAL_F.F(7$$
\"1+]7`P!fJ&F.F(7$$\"1+vVt%f7[&F.F(7$$\"1++v$>:mk&F.F(7$$\"1+++v/]MfF.
F(7$$\"1++DcdQAiF.F(7$$\"1,+]PPBWoF.F(7$$\"1******\\Nm'[(F.F(7$$\"1***
*\\(yb^6)F.F(7$$\"1++vVVDB()F.F(7$$\"1+]7G#\\31*F.F(7$$\"1++]7TW)R*F.F
(7$$\"1**\\(=7;,b*F.F(7$$\"1***\\78)y,(*F.F(7$$\"1*\\Pf8Cwx*F.F(7$$\"1
**\\iS,Y`)*F.F(7$$\"1\\(oH9y8*)*F.F(7$$\"1)\\7`9'HH**F.F(7$$\"1tV[Y^D[
**F.F(7$$\"1[ilZT@n**F.F(7$$\"1C\"G)[J<')**F.F(7$$\"1+++:K^+5!#:F*7$$
\"1++vj;!H.\"F[xF*7$$\"1++]7,Hl5F[xF*7$$\"1+]P4w)R7\"F[xF*7$$\"1++]x%f
\")=\"F[xF*7$$\"1+]P/-a[7F[xF*7$$\"1+](=Yb;J\"F[xF*7$$\"1++]i@Ot8F[xF*
7$$\"1+]PfL'zV\"F[xF*7$$\"1+++!*>=+:F[xF*7$$\"1++DE&4Qc\"F[xF*7$$\"1+]
P%>5pi\"F[xF*7$$\"1+++bJ*[o\"F[xF*7$$\"1++Dr\"[8v\"F[xF*7$$\"1+++Ijy5=
F[xF*7$$\"1+]P/)fT(=F[xF*7$$\"1+]i0j\"[$>F[xF*7$$\"\"#F*F*-%'COLOURG6&
%$RGBG$\"#5F)F*F*-%%VIEWG6$;F(F][l%(DEFAULTG" 2 364 364 364 2 0 1 0 2 
9 0 4 2 1.000000 45.000000 45.000000 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 
0 1 1 0 0 0 298 0 0 0 0 0 0 0 }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 59 "g := 5*Psi_(0,2) + 2*Psi_(1,2) - 3*Psi_(2,2) + 1*Psi_(3,2);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"gG,*R6#%\"xG6\"6$%)operatorG%&arro
wGF),$-%)Haar_PsiG6#,$9$\"\"%\"\"#F)F)6\"\"\"&RF'F)F*F),$-F/6#,&F2F3!
\"\"\"\"\"F4F)F)F5F4RF'F)F*F),$-F/6#,&F2F3!\"#F=F4F)F)F5!\"$RF'F)F*F),
$-F/6#,&F2F3FDF=F4F)F)F5F=" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
16 "plot( g, 0..1 );" }}{PARA 13 "" 1 "" {INLPLOT "6$-%'CURVESG6$7ds7$
\"\"!F(7$$\"+v1h6o!#8$\"#5F(7$$\"+N@Ki8!#7F-7$$\"+.K[V?F2F-7$$\"+qUkCF
F2F-7$$\"+0k'p3%F2F-7$$\"+S&)G\\aF2F-7$$\"+5G$R<)F2F-7$$\"+3x&)*3\"!#6
F-7$$\"+ilyM;FEF-7$$\"+;arz@FEF-7$$\"+\"y%*z7$FEF-7$$\"+XTFwSFEF-7$$\"
+\"z_\"4iFEF-7$$\"+S&phN)FEF-7$$\"+*=)H\\5!#5F-7$$\"+>JN[6FenF-7$$\"+[
!3uC\"FenF-7$$\"+,%=QD\"Fen$FenF(7$$\"+a(G-E\"FenF_o7$$\"+2\"RmE\"FenF
_o7$$\"+f%\\IF\"FenF_o7$$\"+k,(eG\"FenF_o7$$\"+p3p)H\"FenF_o7$$\"+!GKV
K\"FenF_o7$$\"+!pt*\\8FenF_o7$$\"+6lD,9FenF_o7$$\"+J$RDX\"FenF_o7$$\"+
lGhe:FenF_o7$$\"+)R'ok;FenF_o7$$\"+1J:w=FenF_o7$$\"+3En$4#FenF_o7$$\"+
c#o%*=#FenF_o7$$\"+/RE&G#FenF_o7$$\"+5b=RBFenF_o7$$\"+:r5$R#FenF_o7$$
\"+>z1?CFenF_o7$$\"+@(GqW#FenF_o7$$\"+B\"40Y#FenF_o7$$\"+C&*)RZ#FenF_o
7$$\"+D(H2[#FenF_o7$$\"+D*pu[#FenF_o7$$\"+E,@%\\#FenF_o7$$\"+D.&4]#Fen
$\"\"%F(7$$\"+^jB4EFenF[t7$$\"+vB_<FFenF[t7$$\"+v'Hi#HFenF[t7$$\"+(*ev
:JFenF[t7$$\"+347TLFenF[t7$$\"+rxdOMFenF[t7$$\"+LY.KNFenF[t7$$\"+YTb(e
$FenF[t7$$\"+eO2VOFenF[t7$$\"+9M$3n$FenF[t7$$\"+qJf)p$FenF[t7$$\"+[IZ7
PFenF[t7$$\"+EHNEPFenF[t7$$\"+lGHLPFenF[t7$$\"+/GBSPFenF[t7$$\"+VF<ZPF
enF[t7$$\"+\"o7Tv$Fen$!\"%F(7$$\"+L5S_QFenF`w7$$\"+$Q*o]RFenF`w7$$\"+
\"=lj;%FenF`w7$$\"+V&R<P%FenF`w7$$\"+Xh-'e%FenF`w7$$\"+R\"3Gy%FenF`w7$
$\"+Ah$*))[FenF`w7$$\"+.T1&*\\FenF`w7$$\"+ER&>+&Fen$!\"'F(7$$\"+[P%)3]
FenF]y7$$\"+qNt:]FenF]y7$$\"+\"RBE-&FenF]y7$$\"+NISO]FenF]y7$$\"+yE=]]
FenF]y7$$\"+l>ux]FenF]y7$$\"+^7I0^FenF]y7$$\"+D)>/;&FenF]y7$$\"+(RQb@&
FenF]y7$$\"+e,]6`FenF]y7$$\"+=>Y2aFenF]y7$$\"+yXu9cFenF]y7$$\"+\\y))Ge
FenF]y7$$\"+i_QQgFenF]y7$$\"+@]tRhFenF]y7$$\"+!y%3TiFenF]y7$$\"+2!=\"[
iFenF]y7$$\"+M7:biFen$\"\"'F(7$$\"+hW=iiFenFe\\l7$$\"+(o<#piFenFe\\l7$
$\"+TTG$G'FenFe\\l7$$\"+%f]tH'FenFe\\l7$$\"+,N[DjFenFe\\l7$$\"+3kh`jFe
nFe\\l7$$\"+AA))4kFenFe\\l7$$\"+O![hY'FenFe\\l7$$\"+4FEnlFenFe\\l7$$\"
+#Qx$omFenFe\\l7$$\"+u.I%)oFenFe\\l7$$\"+(pe*zqFenFe\\l7$$\"+C\\'QH(Fe
nFe\\l7$$\"+p%*\\%R(FenFe\\l7$$\"+8S8&\\(FenFe\\l7$$\"+?&3<](Fen$\"\"#
F(7$$\"+EIG3vFenFg_l7$$\"+Kv&[^(FenFg_l7$$\"+Q?V@vFenFg_l7$$\"+]5eMvFe
nFg_l7$$\"+i+tZvFenFg_l7$$\"+'3GSd(FenFg_l7$$\"+5hK+wFenFg_l7$$\"+e@#H
l(FenFg_l7$$\"+0#=bq(FenFg_l7$$\"+2FO3yFenFg_l7$$\"+2s?6zFenFg_l7$$\"+
IXaE\")FenFg_l7$$\"+l*RRL)FenFg_l7$$\"+ge)*R%)FenFg_l7$$\"+`<.Y&)FenFg
_l7$$\"+Wch)f)FenFg_l7$$\"+M&*>^')FenFg_l7$$\"+z9\\x')FenFg_l7$$\"+CMy
.()FenFg_l7$$\"+(RHpr)FenFg_l7$$\"+p`2I()FenFg_l7$$\"+c$[mt)FenFg_l7$$
\"+U8AV()FenFg_l7$$\"+GVz\\()FenFg_l7$$\"+8tOc()Fen$!\"#F(7$$\"+#e0I&)
)FenFddl7$$\"+\\Qk\\*)FenFddl7$$\"+p0;r\"*FenFddl7$$\"+lxGp$*FenFddl7$
$\"+!oK0e*FenFddl7$$\"+<5s#y*FenFddl7$$\"\"\"F(Fddl-%'COLOURG6&%$RGBG$
F.!\"\"F(F(-%%VIEWG6$;F(Fiel%(DEFAULTG" 2 387 387 387 2 0 1 0 2 9 0 4 
2 1.000000 45.000000 45.000000 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 
0 0 0 40 46 0 0 0 0 0 0 }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 53 "i
nnerproduct := (f,g) -> int( f(x) * g(x), x=0..1 );\n" }}{PARA 11 "" 
1 "" {XPPMATH 20 "6#>%-innerproductGR6$%\"fG%\"gG6\"6$%)operatorG%&arr
owGF)-%$intG6$*&-9$6#%\"xG\"\"\"-9%F3F5/F4;\"\"!F5F)F)6\"" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "innerproduct( g, Psi_(0,2) );" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"&" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 29 "innerproduct( g, Psi_(1,2) );" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#\"\"#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "inn
erproduct( g, Psi_(2,2) );" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#!\"$" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "innerproduct( g, Psi_(3,2) \+
);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"\"" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 59 "innerproduct( f, Psi_(0,1) );\ninnerproduct( f, \+
Psi_(1,1) );" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*$\"\"##\"\"\"F$" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#,$*$\"\"##\"\"\"F%F&" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 29 "innerproduct( f, Psi_(0,0) );" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6##\"\"\"\"\"#" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 0 "" }}}}{MARK "1 0 0" 37 }{VIEWOPTS 1 1 0 1 1 1803 }