{VERSION 2 3 "APPLE_PPC_MAC" "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 "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 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "####### 3.50b" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%(HomeLibG%A/home/fourier3/sills/mapl
e/mylibG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 100 "op50:= annihil
oper( q^(j^2+2*j) * qfac(-q,q^2,j) / qfac(q,q^2,j+1) / spqfac(q^2,q^2,
j), 0, forward);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%op50G,**$%\"NG
\"\"#\"\"\"*&,(!\"\"F))%\"qG,&%\"nGF(\"\"&F)F,F.F,F)F'F)F)F.F))F.,&F0F
(\"\"%F)F," }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "altsign:= tru
e;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%(altsignG%%trueG" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 65 "a1:= applyshiftop(op50,  q^(6*j^2 +
 4*j)* gp(2*n+2, n+ 3*j+2,1));" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#a
1G,.*&)%\"qG,(*$%\"jG\"\"#\"\"'F+\"\"%\"\"\"F/F/-%#gpG6%,&%\"nGF,F,F/,
(F4F/F+\"\"$F,F/F/F/F/*&)F(,*F*F-F+F.F4F,F.F/F/F0F/!\"\"*&F'F/-F16%,&F
4F,F.F/,(F4F/F6F/F+F6F/F/F:*&)F(,*F*F-F+F.F4F,\"\"&F/F/F<F/F:*&)F(,&F*
F-F+F.F/F<F/F:*&FEF/-F16%,&F4F,F-F/,(F4F/F.F/F+F6F/F/F/" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "a2:= eG0(3,a1);" }}{PARA 12 "" 1 "
" {XPPMATH 20 "6#>%#a2G,0*&)%\"qG,(*$%\"jG\"\"#\"\"'F+\"\"%\"\"\"F/F/-
%#gpG6%,&%\"nGF,F,F/,(F4F/F+\"\"$F,F/F/F/F/*&)F(,*F*F-F+F.F4F,F.F/F/F0
F/!\"\"*&F'F/-F16%,&F4F,F6F/,(F4F/F6F/F+F6F/F/F:*&)F(,*F*F-F+F/F,F/F4F
/F/-F16%F>F5F/F/F:*&)F(,*F*F-F+F.F4F,\"\"&F/F/-F16%,&F4F,F.F/F?F/F/F:*
&)F(,&F*F-F+F.F/FIF/F:*&FMF/-F16%,&F4F,F-F/,(F4F/F.F/F+F6F/F/F/" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "a3:= eG1(3,a2);" }}{PARA 12 
"" 1 "" {XPPMATH 20 "6#>%#a3G,.*&)%\"qG,**$%\"jG\"\"#\"\"'F+\"\"%%\"nG
F,F.\"\"\"F0-%#gpG6%,&F/F,F,F0,(F/F0F+\"\"$F,F0F0F0!\"\"*&)F(,*F*F-F+
\"\"(F.F0F/F0F0-F26%F4,(F/F0F6F0F+F6F0F0F7*&)F(,*F*F-F+F0F,F0F/F0F0-F2
6%,&F/F,F6F0F5F0F0F7*&)F(,*F*F-F+F.F/F,\"\"&F0F0-F26%,&F/F,F.F0F>F0F0F
7*&)F(,&F*F-F+F.F0FIF0F7*&FMF0-F26%,&F/F,F-F0,(F/F0F.F0F+F6F0F0F0" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "a4:= eG0(6,a3);" }}{PARA 12 
"" 1 "" {XPPMATH 20 "6#>%#a4G,0*&)%\"qG,**$%\"jG\"\"#\"\"'F+\"\"%%\"nG
F,F.\"\"\"F0-%#gpG6%,&F/F,F,F0,(F/F0F+\"\"$F,F0F0F0!\"\"*&)F(,*F*F-F+
\"\"(F.F0F/F0F0-F26%F4,(F/F0F6F0F+F6F0F0F7*&)F(,*F*F-F+F0F,F0F/F0F0-F2
6%,&F/F,F6F0F5F0F0F7*&)F(,*F*F-F+F.F/F,\"\"&F0F0-F26%,&F/F,F.F0F>F0F0F
7*&)F(,&F*F-F+F.F0FIF0F7*&FMF0-F26%,&F/F,FHF0,(F/F0F.F0F+F6F0F0F0*&F@F
0-F26%FRF>F0F0F0" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "a5:= eG
1(6,a4);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#a5G,.*&)%\"qG,**$%\"jG
\"\"#\"\"'F+\"\"%%\"nGF,F.\"\"\"F0-%#gpG6%,&F/F,F,F0,(F/F0F+\"\"$F,F0F
0F0!\"\"*&)F(,*F*F-F+\"\"(F.F0F/F0F0-F26%F4,(F/F0F6F0F+F6F0F0F7*&)F(,*
F*F-F+F0F,F0F/F0F0-F26%,&F/F,F6F0F5F0F0F7*&)F(,*F*F-F+F.F/F,\"\"&F0F0-
F26%,&F/F,F.F0F>F0F0F7*&F9F0-F26%FK,(F/F0F.F0F+F6F0F0F0*&F@F0-F26%,&F/
F,FHF0F>F0F0F0" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "a6:= eG0(
5,a5);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#a6G,0*&)%\"qG,**$%\"jG\"
\"#\"\"'F+\"\"%%\"nGF,F.\"\"\"F0-%#gpG6%,&F/F,F,F0,(F/F0F+\"\"$F,F0F0F
0!\"\"*&)F(,*F*F-F+\"\"(F.F0F/F0F0-F26%F4,(F/F0F6F0F+F6F0F0F7*&)F(,*F*
F-F+F0F,F0F/F0F0-F26%,&F/F,F6F0F5F0F0F7*&)F(,*F*F-F+F.F/F,\"\"&F0F0-F2
6%,&F/F,F.F0F>F0F0F7*&F9F0-F26%FD,(F/F0F.F0F+F6F0F0F0*&F'F0-F26%FDF>F0
F0F0*&F@F0-F26%,&F/F,FHF0F>F0F0F0" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 16 "a7:=  eG1(5,a6);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>
%#a7G,.*&)%\"qG,**$%\"jG\"\"#\"\"'F+\"\"%%\"nGF,F.\"\"\"F0-%#gpG6%,&F/
F,F,F0,(F/F0F+\"\"$F,F0F0F0!\"\"*&)F(,*F*F-F+F0F,F0F/F0F0-F26%,&F/F,F6
F0F5F0F0F7*&)F(,*F*F-F+F.F/F,\"\"&F0F0-F26%,&F/F,F.F0,(F/F0F6F0F+F6F0F
0F7*&)F(,*F*F-F+\"#5\"\")F0F/F,F0-F26%F4,(F/F0F.F0F+F6F0F0F0*&F'F0-F26
%F=FEF0F0F0*&F9F0-F26%,&F/F,FAF0FEF0F0F0" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 15 "a8:= eG1(5,a7);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%
#a8G,,*&)%\"qG,**$%\"jG\"\"#\"\"'F+\"\"\"F,F.%\"nGF.F.-%#gpG6%,&F/F,\"
\"$F.,(F/F.F+F4F,F.F.F.!\"\"*&)F(,*F*F-F+\"\"%F/F,\"\"&F.F.-F16%,&F/F,
F:F.,(F/F.F4F.F+F4F.F.F6*&)F(,*F*F-F+\"#5\"\")F.F/F,F.-F16%,&F/F,F,F.,
(F/F.F:F.F+F4F.F.F.*&)F(,*F*F-F+\"\"(F/F4FLF.F.-F16%FGF?F.F.F.*&F'F.-F
16%,&F/F,F;F.F?F.F.F." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "a9
:= eG1(5,a8);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#a9G,**&)%\"qG,**$%
\"jG\"\"#\"\"'F+\"\"\"F,F.%\"nGF.F.-%#gpG6%,&F/F,\"\"$F.,(F/F.F+F4F,F.
F.F.!\"\"*&)F(,*F*F-F+\"#5\"\")F.F/F,F.-F16%,&F/F,F,F.,(F/F.\"\"%F.F+F
4F.F.F.*&)F(,*F*F-F+\"\"(F/F4FDF.F.-F16%F>,(F/F.F4F.F+F4F.F.F.*&F'F.-F
16%,&F/F,F@F.F5F.F.F." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "a1
0:= eG0(4,a9);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a10G,(*&)%\"qG,**
$%\"jG\"\"#\"\"'F+\"#5\"\")\"\"\"%\"nGF,F0-%#gpG6%,&F1F,F,F0,(F1F0\"\"
%F0F+\"\"$F0F0F0*&)F(,*F*F-F+\"\"(F1F8F<F0F0-F36%F5,(F1F0F8F0F+F8F0F0F
0*&)F(,*F*F-F+!\"#F7F0F1F,F0-F36%,&F1F,F8F0,(F1F0F+F8F0F0F0F0F0" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "a11:= shiftdown(1,a10);" }}
{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a11G,(*&)%\"qG,**$%\"jG\"\"#\"\"'F+
!\"#\"\"%\"\"\"%\"nGF,F0-%#gpG6%,&F1F,F,F0,(F1F0F+\"\"$F0F0F0F0!\"\"*&
)F(,*F*F-F+\"\"(F1F7F<F0F0-F36%F5,(F1F0F7F0F+F7F0F0F0*&F'F0-F36%,&F1F,
F7F0F6F0F0F0" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "a12:= eG0(3
,a11);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$a12G,&*&)%\"qG,**$%\"jG\"
\"#\"\"'F+\"\"(%\"nG\"\"$F.\"\"\"F1-%#gpG6%,&F/F,F,F1,(F/F1F0F1F+F0F1F
1F1*&)F(,*F*F-F+!\"&F-F1F/F0F1-F36%F5,&F/F1F+F0F1F1F1" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "a13:= shiftdown(1,a12);" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#>%$a13G\"\"!" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 0 "" }}}}{MARK "2 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 }