{VERSION 3 0 "IBM INTEL LINUX" "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 "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 }}
{SECT 0 {EXCHG {PARA 0 "" 0 "" {TEXT -1 51 "Daubechies Polynomial, Sca
ling Function and Wavelet" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "
" 0 "" {TEXT -1 27 "First define the polynomial" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 75 "p0:=(1+sqrt(3))/4; p1:=(3+sqrt(3))/4; p2:=(3-s
qrt(3))/4; p3:=(1-sqrt(3))/4;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#p0
G,&#\"\"\"\"\"%F'*$-%%sqrtG6#\"\"$\"\"\"F&" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%#p1G,&#\"\"$\"\"%\"\"\"*$-%%sqrtG6#F'\"\"\"#F)F(" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#p2G,&#\"\"$\"\"%\"\"\"*$-%%sqrtG6#F
'\"\"\"#!\"\"F(" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#p3G,&#\"\"\"\"\"
%F'*$-%%sqrtG6#\"\"$\"\"\"#!\"\"F(" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 32 "P:=z->(p0+p1*z+p2*z^2+p3*z^3)/2;" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%\"PGR6#%\"zG6\"6$%)operatorG%&arrowGF(,*%#p0G#\"\"\"
\"\"#*&%#p1GF/9$F/F.*&%#p2GF/)F3F0\"\"\"F.*&%#p3GF/)F3\"\"$F7F.F(F(F(
" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 47 "Now show that P(z) satisfies \+
the key conditions" }}{PARA 0 "" 0 "" {TEXT -1 43 "needed so that the \+
scaling function and its" }}{PARA 0 "" 0 "" {TEXT -1 27 "translates ar
e orthonormal." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "z:=exp(I*
t); zc:=exp(-I*t);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"zG-%$expG6#*
&%\"IG\"\"\"%\"tGF*" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#zcG-%$expG6#
,$*&%\"IG\"\"\"%\"tGF+!\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
31 "expr:=P(z)*P(zc) +P(-z)*P(-zc):" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 12 "simplify(%);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"
\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "f:=(Re(P(z)))^2+(Im(P
(z)))^2;" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%\"fG,&*$),(#\"\"\"\"\")F
**$-%%sqrtG6#\"\"$\"\"\"F)-%#ReG6#,(*&,&#F0\"\"%F*F,#F*F9F*-%$expG6#*&
%\"IGF*%\"tGF*F*F**&,&F8F*F,#!\"\"F9F*)F;\"\"#F1F**&,&F:F*F,FCF*)F;F0F
1F*#F*FFFFF1F**$)-%#ImGF4FFF1F:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 29 "plot(f,t=-Pi/2..Pi/2,y=0..5);" }}{PARA 13 "" 1 "" {INLPLOT "6(
-%'CURVESG6$7W7$$!+Cjzq:!\"*$\"+D+++]!#57$$!+NubO:F*$\"+L7kc_F-7$$!+X&
=B]\"F*$\"+%>\"Q7bF-7$$!+qu_s9F*$\"+L)pMt&F-7$$!+&ROFW\"F*$\"+r\">E&fF
-7$$!+O+tv8F*$\"+83`NkF-7$$!+;&z#38F*$\"+Ymk-pF-7$$!+w&\\6C\"F*$\"+PY,
VtF-7$$!+H:\"*y6F*$\"+C1?DxF-7$$!+OwY96F*$\"+jE+\"4)F-7$$!+p'>y/\"F*$
\"+!znWV)F-7$$!+NW&Q\")*F-$\"+#fM'R()F-7$$!+nn\\I\"*F-$\"+%)p#Q,*F-7$$
!+g\\fG&)F-$\"+H.1A#*F-7$$!+'3'*4&yF-$\"+&p3-U*F-7$$!+E\\hqrF-$\"+_e]#
e*F-7$$!+2;%\\^'F-$\"+3K%oq*F-7$$!+>u_>fF-$\"+/')=&z*F-7$$!*OA:@&F*$\"
+#)>nt)*F-7$$!*?\\<h%F*$\"+?g*4#**F-7$$!*WqS\"RF*$\"+od=e**F-7$$!*_1lH
$F*$\"+Pgky**F-7$$!*-T*=EF*$\"+6(y8***F-7$$!*VQP(>F*$\"+>7>(***F-7$$!*
AP0I\"F*$\"+7mY****F-7$$!)NGBoF*$\"+D%f*****F-7$$!(d1b\"F*$\"+,+++5F*7
$$\")&Q8x'F*$\"+Y1'*****F-7$$\"*Pz+G\"F*$\"++$*\\****F-7$$\"*0x7$>F*$
\"+4QU(***F-7$$\"*(z-/EF*$\"+A7d\"***F-7$$\"*^$=iKF*$\"+(>1&z**F-7$$\"
*#G)*)*QF*$\"+n0\")e**F-7$$\"**)Rgg%F*$\"+.FP@**F-7$$\"*7i8C&F*$\"+_$)
)3()*F-7$$\"*?/(>fF*$\"+mb;&z*F-7$$\"*&HQMlF*$\"+&zzNq*F-7$$\"*=*Q1sF*
$\"++R%[d*F-7$$\"*n%pQyF*$\"+k;YB%*F-7$$\"*5O'*\\)F*$\"+(Q/8B*F-7$$\"*
;Fe9*F*$\"+;%=\"3!*F-7$$\"*JHB#)*F*$\"+E/)ft)F-7$$\"+H\")QZ5F*$\"+q9dO
%)F-7$$\"+H(=S6\"F*$\"+(HPM4)F-7$$\"+%f(4!=\"F*$\"+eN<=xF-7$$\"+3s\"3C
\"F*$\"+rc7XtF-7$$\"+Q(3/J\"F*$\"+\"*3D))oF-7$$\"+KAls8F*$\"+ndIdkF-7$
$\"+zn,R9F*$\"+Yo\")zfF-7$$\"+\\kxq9F*$\"+g*4ku&F-7$$\"+>h`-:F*$\"+(zg
2^&F-7$$\"+AimO:F*$\"+gn#eD&F-7$$\"+Cjzq:F*F+-%'COLOURG6&%$RGBG$\"#5!
\"\"\"\"!Fa\\l-%*THICKNESSG6#\"\"$-%&TITLEG6$%!G-%%FONTG6%%&TIMESG%'IT
ALICG\"#=-%+AXESLABELSG6%Q\"t6\"Q\"yFd]l-F[]l6%F]]l%&ROMANGF_]l-%*AXES
TICKSG6%%(DEFAULTGF\\^lFf]l-%%VIEWG6$;$!+Fjzq:F*$\"+Fjzq:F*;Fa\\l$\"\"
&Fa\\l" 2 333 333 333 2 0 1 3 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 "" {TEXT -1 46 "Here is the iterative process for constru
cting" }}{PARA 0 "" 0 "" {TEXT -1 62 "the scaling function. Start with
 phi_0 = Haar scaling function" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 35 "phi_0:=x->piecewise(x<0,0,x<1,1,0);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%&phi_0GR6#%\"xG6\"6$%)operatorG%&arrowGF(-%*piecewise
G6'29$\"\"!F12F0\"\"\"F3F1F(F(F(" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 18 "plot(phi_0,-1..3);" }}{PARA 13 "" 1 "" {INLPLOT "6(-%
'CURVESG6$7co7$$!\"\"\"\"!F*7$$!1LLLLQ6G\"*!#;F*7$$!1nmmT.\\p$)F.F*7$$
!1LLL$))Qj^(F.F*7$$!1LLL$=Kvl'F.F*7$$!1ommTs!G!eF.F*7$$!1MLL3yO5]F.F*7
$$!1,++vE%)*=%F.F*7$$!1MLL3WDTLF.F*7$$!1,++vvQ&\\#F.F*7$$!1mmmm&4`i\"F
.F*7$$!1+++vp7U7F.F*7$$!1KLLLQW*e)!#<F*7$$!1,++D'zDV'FPF*7$$!1qmm;arvU
FPF*7$$!1/+]7LG(>$FPF*7$$!1RLL37&)=@FPF*7$$!11+Dc^jz:FPF*7$$!1tm;/\">/
/\"FPF*7$$!1p+D\"y5\"3x!#=F*7$$!10M$3_I?,&F`oF*7$$!1TnTg-&fJ#F`oF*7$$
\"1I#*******H,Q!#>$\"\"\"F*7$$\"1&*******RXpVFPF[p7$$\"1(*******\\*3q)
FPF[p7$$\"1++++(=\\q\"F.F[p7$$\"1nmm\"fBIY#F.F[p7$$\"1LLLLO[kLF.F[p7$$
\"1KLLL&Q\"GTF.F[p7$$\"1*****\\s]k,&F.F[p7$$\"1JLLLvv-eF.F[p7$$\"1,++D
2YlmF.F[p7$$\"1+++v\"ep[(F.F[p7$$\"1MLL$e/TM)F.F[p7$$\"1LLLeDBJ\"*F.F[
p7$$\"1++]([Wdb*F.F[p7$$\"1mmm;kD!)**F.F[p7$$\"1U&Q.d\"y+5!#:F*7$$\"1<
/,*\\PN+\"FjrF*7$$\"1#H#oFMH15FjrF*7$$\"1nTNc$\\!45FjrF*7$$\"1<zp87c95
FjrF*7$$\"1n;/rI2?5FjrF*7$$\"1m\"Hdy'4J5FjrF*7$$\"1mmT+07U5FjrF*7$$\"1
m;zHz;k5FjrF*7$$\"1mm;f`@'3\"FjrF*7$$\"1LLLj+gC6FjrF*7$$\"1++]nZ)H;\"F
jrF*7$$\"1mmmJy*eC\"FjrF*7$$\"1+++S^bJ8FjrF*7$$\"1+++0TN:9FjrF*7$$\"1+
+]7RV'\\\"FjrF*7$$\"1+++:#fke\"FjrF*7$$\"1LLL`4Nn;FjrF*7$$\"1+++],s`<F
jrF*7$$\"1mm;zM)>$=FjrF*7$$\"1+++qfa<>FjrF*7$$\"1LL$eg`!)*>FjrF*7$$\"1
++]#G2A3#FjrF*7$$\"1LLL$)G[k@FjrF*7$$\"1++]7yh]AFjrF*7$$\"1nmm')fdLBFj
rF*7$$\"1nmm,FT=CFjrF*7$$\"1LL$e#pa-DFjrF*7$$\"1+++Sv&)zDFjrF*7$$\"1LL
LGUYoEFjrF*7$$\"1nmm1^rZFFjrF*7$$\"1++]sI@KGFjrF*7$$\"1++]2%)38HFjrF*7
$$\"\"$F*F*-%'COLOURG6&%$RGBG$\"#5F)F*F*-%*THICKNESSG6#F]y-%&TITLEG6$%
!G-%%FONTG6%%&TIMESG%'ITALICG\"#=-%+AXESLABELSG6%FjyFjy-F\\z6%F^z%&ROM
ANGF`z-%*AXESTICKSG6%%(DEFAULTGFjzFdz-%%VIEWG6$;F(F\\yFjz" 2 333 333 
333 2 0 1 3 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 -16416 -8668 0 0 0 0 0 0 }}}{EXCHG {PARA 0 "
" 0 "" {TEXT -1 42 "Now iterate the scaling equation to define" }}
{PARA 0 "" 0 "" {TEXT -1 17 "phi_1, phi_2 etc." }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 72 "phi_1:=x->p0*phi_0(2*x)+p1*phi_0(2*x-1)+p2*phi
_0(2*x-2)+p3*phi_0(2*x-3);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%&phi_1
GR6#%\"xG6\"6$%)operatorG%&arrowGF(,**&%#p0G\"\"\"-%&phi_0G6#,$9$\"\"#
F/F/*&%#p1GF/-F16#,&F4F5!\"\"F/F/F/*&%#p2GF/-F16#,&F4F5!\"#F/F/F/*&%#p
3GF/-F16#,&F4F5!\"$F/F/F/F(F(F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 33 "plot(phi_1,-1..3, numpoints=100);" }}{PARA 13 "" 1 "" 
{INLPLOT "6(-%'CURVESG6$7gt7$$!\"\"\"\"!F*7$$!19888tEx&*!#;F*7$$!1iiii
)\\%4#*F.F*7$$!1qqqq1!ez)F.F*7$$!1VVVV&4%z$)F.F*7$$!1]]]]u*\\'zF.F*7$$
!1#>>>R%y!e(F.F*7$$!1CCCCS&H=(F.F*7$$!1*))))))G<:x'F.F*7$$!1OOOO+ShjF.
F*7$$!1KKKKSaRfF.F*7$$!1MMMMI(zc&F.F*7$$!1'ppp4s'\\^F.F*7$$!1vvvvNlHZF
.F*7$$!1-...z)[K%F.F*7$$!1&\\\\\\*=KdRF.F*7$$!1ffff.D?NF.F*7$$!1QQQQM*
*\\JF.F*7$$!1====mH>FF.F*7$$!1````p0QBF.F*7$$!1<===mx>>F.F*7$$!1BCCC[Z
@:F.F*7$$!1'oooo))e5\"F.F*7$$!1%z!33)3DC(!#<F*7$$!1U^^^\"pU=&F[pF*7$$!
1*[\\\\\\Hg7$F[pF*7$$!1;AAAK1d?F[pF*7$$!1K%\\\\\\p4))*!#=F*7$$!1\\788Q
b3sFhpF*7$$!1nIJJ\"Qh`%FhpF*7$$!1vRS!HI**>$FhpF*7$$!1%)[\\\\Csj=FhpF*7
$$!1Ez&e3Y^F&!#>F*7$$\"1()HBBB$p3)Fhq$\"1$>A*=q7IoF.7$$\"1k'fffCN:'Fhp
F\\r7$$\"1.'fffN)\\6F[pF\\r7$$\"1khhh@\"4,$F[pF\\r7$$\"1DFFF())>([F[pF
\\r7$$\"1'4333;?*))F[pF\\r7$$\"1rppp(4XI\"F.F\\r7$$\"1#===y23r\"F.F\\r
7$$\"1++++?#R5#F.F\\r7$$\"1<:::$3/a#F.F\\r7$$\"1$GGGo5E$HF.F\\r7$$\"1E
CCC/P^LF.F\\r7$$\"1\"**)*)*)*G3t$F.F\\r7$$\"1KIIIunXTF.F\\r7$$\"1$GGG[
<g`%F.F\\r7$$\"1(fffRE+u%F.F\\r7$$\"16444`.W\\F.F\\r7$$\"1OMM4t'*o\\F.
F\\r7$$\"1hff4$**Q*\\F.F\\r7$$\"1CAs4`O1]F.$\"1>A*=q7I=\"!#:7$$\"1'[[)
48$)=]F.Fgu7$$\"1\\Z(*4tHJ]F.Fgu7$$\"17555LwV]F.Fgu7$$\"1hgg5ti$4&F.Fg
u7$$\"176668\\V^F.Fgu7$$\"18777$>KC&F.Fgu7$$\"19888t%HM&F.Fgu7$$\"1kii
i#f<b&F.Fgu7$$\"187777dgdF.Fgu7$$\"1kiiiEzihF.Fgu7$$\"1#**)*)*=ATd'F.F
gu7$$\"1/,,,d/#)pF.Fgu7$$\"1WUUU])oN(F.Fgu7$$\"1JGGGK\\'y(F.Fgu7$$\"18
666*R2<)F.Fgu7$$\"1?===qU!e)F.Fgu7$$\"1daaa)\\D(*)F.Fgu7$$\"1uqqq=&zS*
F.Fgu7$$\"1]ZZZ\\Y'f*F.Fgu7$$\"1ECCC!y\\y*F.Fgu7$$\"1SQQQ+'>*)*F.Fgu7$
$\"1b___?%*)***F.Fgu7$$\"1$HH/[J7+\"Fiu$\"12y2\")H()pJF.7$$\"1hggb(oD+
\"FiuF_z7$$\"1GGyIg!R+\"FiuF_z7$$\"1'fffIV_+\"FiuF_z7$$\"1JJJcy\"z+\"F
iuF_z7$$\"1nmm1Cf55FiuF_z7$$\"1QPP2:%f,\"FiuF_z7$$\"133331H@5FiuF_z7$$
\"1ZYY16zS5FiuF_z7$$\"1&[[[g\"Hg5FiuF_z7$$\"1211mD&H5\"FiuF_z7$$\"1\"3
33wh(R6FiuF_z7$$\"1(ppp8$o\"=\"FiuF_z7$$\"1xww;r<A7FiuF_z7$$\"1$GGGkWE
E\"FiuF_z7$$\"1;;;'HjHI\"FiuF_z7$$\"1!)zz**opT8FiuF_z7$$\"1666^*oNQ\"F
iuF_z7$$\"1777_gZB9FiuF_z7$$\"1XWWCiZW9FiuF_z7$$\"1xww'RwaY\"FiuF_z7$$
\"1BBB.:)\\Z\"FiuF_z7$$\"1qpp4m[%[\"FiuF_z7$$\"1$HHH;R#*[\"FiuF_z7$$\"
1<;;;<*R\\\"FiuF_z7$$\"1yxx#*zO'\\\"FiuF_z7$$\"1SRRpUu)\\\"FiuF_z7$$\"
1??q2C$**\\\"FiuF_z7$$\"1,,,Y07,:Fiu$!1$>A*=q7I=F.7$$\"1#==Vo3B]\"FiuF
e_l7$$\"1jiiAo\\.:FiuFe_l7$$\"1nmmmm]C:FiuFe_l7$$\"1rqq5l^X:FiuFe_l7$$
\"1qpp\\Sw&e\"FiuFe_l7$$\"1000DO\"fi\"FiuFe_l7$$\"18777+&ym\"FiuFe_l7$
$\"1cbbb\\Z1<FiuFe_l7$$\"1,,,\"=Kgu\"FiuFe_l7$$\"1>==e!3(*y\"FiuFe_l7$
$\"1[ZZ()HDH=FiuFe_l7$$\"1&[[[3&pp=FiuFe_l7$$\"1<;;cO#3\">FiuFe_l7$$\"
1dcc;)G'[>FiuFe_l7$$\"1&\\\\\\Ny(o>FiuFe_l7$$\"1MLL$*y#*))>FiuFe_l7$$
\"1/..Lp#R*>FiuFe_l7$$\"1tsssf#*)*>FiuFe_l7$$\"1;:lKd<+?FiuF*7$$\"1edd
#\\D9+#FiuF*7$$\"1++]__n-?FiuF*7$$\"1VUU7]#R+#FiuF*7$$\"1GFFKXU1?FiuF*
7$$\"1877_S#*3?FiuF*7$$\"1_^^J@#*=?FiuF*7$$\"1\"444@?*G?FiuF*7$$\"1DDD
&))4.0#FiuF*7$$\"1gfff&*pr?FiuF*7$$\"1hhh\"[]%4@FiuF*7$$\"1*)))))3s+`@
FiuF*7$$\"1<<<(z8B>#FiuF*7$$\"1srr6c?JAFiuF*7$$\"1YYY1o-tAFiuF*7$$\"1d
ccwr,:BFiuF*7$$\"1'fff>AKN#FiuF*7$$\"1]\\\\HUz$R#FiuF*7$$\"1*)))))o&)Q
LCFiuF*7$$\"1^]]]#4jZ#FiuF*7$$\"1MLLtvW8DFiuF*7$$\"1FFF(G-hb#FiuF*7$$
\"1\"333'**>'f#FiuF*7$$\"1baaM.\"fj#FiuF*7$$\"1===)H_cn#FiuF*7$$\"1YXX
&e'=;FFiuF*7$$\"1\"444D_\"fFFiuF*7$$\"1zyyeva)z#FiuF*7$$\"1EEE'yNu$GFi
uF*7$$\"1UTThm+zGFiuF*7$$\"1TSSSq[?HFiuF*7$$\"1&QQQ9=x&HFiuF*7$$\"\"$F
*F*-%'COLOURG6&%$RGBG$\"#5F)F*F*-%*THICKNESSG6#F_il-%&TITLEG6$%!G-%%FO
NTG6%%&TIMESG%'ITALICG\"#=-%+AXESLABELSG6%F\\jlF\\jl-F^jl6%F`jl%&ROMAN
GFbjl-%*AXESTICKSG6%%(DEFAULTGF\\[mFfjl-%%VIEWG6$;F(F^ilF\\[m" 2 333 
333 333 2 0 1 3 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 -22295 0 0 0 0 0 0 }}}{EXCHG {PARA 0 "
" 0 "" {TEXT -1 29 "Here is the wavelet function." }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 71 "psi:=x->-p0*phi_5(2*x-1)+p1*phi_5(2*x)-p2*ph
i_5(2*x+1)+p3*phi_5(2*x+2);" }{XPPMATH 20 "6#>%$psiGR6#%\"xG6\"6$%)ope
ratorG%&arrowGF(,**&%#p0G\"\"\"-%&phi_1G6#,&9$\"\"#!\"\"F/F/F6*&%#p1GF
/-F16#,$F4F5F/F/*&%#p2GF/-F16#,&F4F5F/F/F/F6*&%#p3GF/-F16#,&F4F5F5F/F/
F/F(F(6\"" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$psiGR6#%\"xG6\"6$%)ope
ratorG%&arrowGF(,**&%#p0G\"\"\"-%&phi_5G6#,&9$\"\"#!\"\"F/F/F6*&%#p1GF
/-F16#,$F4F5F/F/*&%#p2GF/-F16#,&F4F5F/F/F/F6*&%#p3GF/-F16#,&F4F5F5F/F/
F/F(F(6\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 48 "plot(psi,-5..8
, numpoints=100, tickmarks=[0,0]);" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 0 "" }}}}{MARK "15 0 0" 29 }{VIEWOPTS 1 1 0 2 1 1805 }