{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 12 "######## 3.3" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "######## 3.3-B" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "op3:= annihiloper( q^(j^2)/spqfac(q
^2,q^2,j),0,forward);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$op3G,(%\"N
G\"\"\"!\"\"F')%\"qG,&%\"nG\"\"#F'F'F(" }}}{EXCHG {PARA 11 "" 1 "" 
{TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "altsign:= t
rue;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%(altsignG%%trueG" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "a1:= applyshiftop(op3, q^(2*j^2) * \+
gp(2*n, n + 2*j, 1));" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#a1G,(*&)%
\"qG,$*$%\"jG\"\"#F,\"\"\"-%#gpG6%,$%\"nGF,,&F2F-F+F,F-F-!\"\"*&F.F-)F
(,(F*F,F2F,F-F-F-F4*&F'F--F/6%,&F2F,F,F-,(F2F-F-F-F+F,F-F-F-" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "a2:= eG0(3,a1);" }}{PARA 12 
"" 1 "" {XPPMATH 20 "6#>%#a2G,**&)%\"qG,$*$%\"jG\"\"#F,\"\"\"-%#gpG6%,
$%\"nGF,,&F2F-F+F,F-F-!\"\"*&F.F-)F(,(F*F,F2F,F-F-F-F4*&F'F--F/6%,&F2F
,F-F-,(F2F-F-F-F+F,F-F-F-*&)F(,*F*F,F2F-F-F-F+!\"#F--F/6%F;F3F-F-F-" }
}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "a3:= eG1(3,a2);" }}{PARA 
12 "" 1 "" {XPPMATH 20 "6#>%#a3G,(*&-%#gpG6%,$%\"nG\"\"#,&F+\"\"\"%\"j
GF,F.F.)%\"qG,(*$F/F,F,F+F,F.F.F.!\"\"*&)F1,*F3F,F+F.F.F.F/F,F.-F(6%F*
,(F+F.F.F.F/F,F.F.F.*&)F1,*F3F,F+F.F.F.F/!\"#F.-F(6%,&F+F,F.F.F-F.F.F.
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "a4:= gpsym(2,a3);" }}
{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#a4G,(*&-%#gpG6%,$%\"nG\"\"#,&F+\"\"
\"%\"jGF,F.F.)%\"qG,(*$F/F,F,F+F,F.F.F.!\"\"*&)F1,*F3F,F+F.F.F.F/F,F.-
F(6%F*,(F+F.F4F.F/!\"#F.F.F.*&)F1,*F3F,F+F.F.F.F/F;F.-F(6%,&F+F,F.F.F-
F.F.F." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "a5:= negate(2,a4)
;" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#a5G,(*&-%#gpG6%,$%\"nG\"\"#,&F
+\"\"\"%\"jGF,F.F.)%\"qG,(*$F/F,F,F+F,F.F.F.!\"\"*&)F1,*F3F,F+F.F.F.F/
!\"#F.-F(6%F*,(F+F.F4F.F/F,F.F.F.*&F6F.-F(6%,&F+F,F.F.F-F.F.F." }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "a6:= eG1(3,a5);" }}{PARA 11 
"" 1 "" {XPPMATH 20 "6#>%#a6G,$*&)%\"qG,**$%\"jG\"\"#F,%\"nG\"\"\"F.F.
F+!\"#F.-%#gpG6%,$F-F,,(F-F.!\"\"F.F+F,F.F.F," }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 10 "a7:= a6/2;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%
#a7G*&)%\"qG,**$%\"jG\"\"#F+%\"nG\"\"\"F-F-F*!\"#F--%#gpG6%,$F,F+,(F,F
-!\"\"F-F*F+F-F-" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 55 "a8:= su
bs(j=2*j,a7) - subs(j=2*j+1,a7); altsign:=false;" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%#a8G,&*&)%\"qG,**$%\"jG\"\"#\"\")%\"nG\"\"\"F/F/F+!\"
%F/-%#gpG6%,$F.F,,(F.F/!\"\"F/F+\"\"%F/F/F/*&)F(,**$,&F+F,F/F/F,F,F.F/
F6F/F+F0F/-F26%F4,(F.F/F/F/F+F7F/F/F6" }}{PARA 11 "" 1 "" {XPPMATH 20 
"6#>%(altsignG%&falseG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "a
9:= expandall(a8);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#a9G,&*&)%\"qG
,**$%\"jG\"\"#\"\")%\"nG\"\"\"F/F/F+!\"%F/-%#gpG6%,$F.F,,(F.F/!\"\"F/F
+\"\"%F/F/F/*&)F(,*F*F-F.F/F/F/F+F7F/-F26%F4,(F.F/F/F/F+F7F/F/F6" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "a10:= gpsym(1,a9);" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#>%$a10G,&*&)%\"qG,**$%\"jG\"\"#\"\")%\"nG\"
\"\"F/F/F+!\"%F/-%#gpG6%,$F.F,,(F.F/F/F/F+F0F/F/F/*&)F(,*F*F-F.F/F/F/F
+\"\"%F/-F26%F4,(F.F/F/F/F+F9F/F/!\"\"" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 20 "a11:= negate(1,a10);" }}{PARA 11 "" 1 "" {XPPMATH 20 
"6#>%$a11G\"\"!" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "###### 3.3-T" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "altsign:=true;" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%(altsignG%%trueG" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 52 "b1:= applyshiftop(op3,q^(3*j^2 + j) * U(n, 3*j, 1));
" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#b1G,(*&)%\"qG,&*$%\"jG\"\"#\"\"
$F+\"\"\"F.-%\"UG6%%\"nG,$F+F-F.F.!\"\"*&)F(,*F*F-F+F.F2F,F.F.F.F/F.F4
*&F'F.-F06%,&F2F.F.F.F3F.F.F." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 15 "b2:= eU1(3,b1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#b2G,&*&)%
\"qG,**$%\"jG\"\"#\"\"$F+!\"#%\"nG\"\"\"F0F0F0-%#T1G6%F/,&F+F-!\"\"F0F
0F0F0*&)F(,*F*F-F+\"\"%F/F0F,F0F0-F26%F/,&F+F-F,F0F0F0F0" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "b3:= shiftdown(2,b2);" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#>%#b3G\"\"!" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 0 "" }}}}{MARK "3 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 }