{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 14 "####### 3.96-b" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 81 "op96:= annihiloper( q^(j^2+2 *j)/qfac(q,q^2,j+1) / spqfac(q^2,q^2,j), 0, forward);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%op96G,(*$%\"NG\"\"#\"\"\"*&,(!\"\"F)%\"qGF,)F-, &%\"nGF(\"\"&F)F,F)F'F)F)F-F)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 140 "a1:= applyshiftop( op96, \n q^(15*j^2 + 7*j ) * gp(2*n + 2, n + 5*j + 2, 1) \n - q^(15*j^2 + 17*j + 4) * gp(2*n + 2, n + 5*j \+ + 4, 1));" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#a1G,6*&)%\"qG,(\"\"\"F **$%\"jG\"\"#\"#:F,\"\"(F*-%#gpG6%,&%\"nGF-F-F*,(F4F*F,\"\"&F-F*F*F*F* *&)F(,(F+F.F,\"#F*,(F4F*\"\"$F*F,F6F*F*F?*&)F(,(F+F.F,F:F>F*F*-F16%FE, (F4F*F6F*F,F6F*F*F**&F'F*FCF*F?*&F8F*FKF*F**&)F(,*F4F-F6F*F+F.F,F/F*FC F*F?*&)F(,*F4F-\"\"*F*F+F.F,F:F*FKF*F**&FAF*-F16%,&F4F-\"\"'F*F=F*F*F* *&FIF*-F16%FZ,(F4F*FenF*F,F6F*F*F?" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "a2:= eG0(5,a1);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>% #a2G,8*&)%\"qG,(\"\"\"F**$%\"jG\"\"#\"#:F,\"\"(F*-%#gpG6%,&%\"nGF-F-F* ,(F4F*F,\"\"&F-F*F*F*F**&)F(,(F+F.F,\"#F*,(F4F*\"\"$F*F,F6F*F*F?*&)F(, (F+F.F,F:F>F*F*-F16%FE,(F4F*F6F*F,F6F*F*F**&F'F*-F16%,&F4F-FGF*FFF*F*F ?*&)F(,*F-F*F+F.F,F-F4F*F*-F16%FQF5F*F*F?*&F8F*FKF*F**&)F(,*F4F-F6F*F+ F.F,F/F*FCF*F?*&)F(,*F4F-\"\"*F*F+F.F,F:F*FKF*F**&FAF*-F16%,&F4F-\"\"' F*F=F*F*F**&FIF*-F16%F\\o,(F4F*F]oF*F,F6F*F*F?" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 15 "a3:= eG1(5,a2);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#a3G,6*&)%\"qG,(*$%\"jG\"\"#\"#:F+\"#<\"\"&\"\"\"F0-%#gpG6%,&% \"nGF,F,F0,(F5F0F+F/\"\"%F0F0F0!\"\"*&)F(,&F*F-F+\"\"(F0-F26%,&F5F,F7F 0,(F5F0\"\"$F0F+F/F0F0F8*&)F(,(F*F-F+F.F7F0F0-F26%F?,(F5F0F/F0F+F/F0F0 F0*&)F(,*F7F0F*F-F+\"#7F5F0F0-F26%F4F@F0F0F8*&)F(,*F,F0F*F-F+F,F5F0F0- F26%,&F5F,FAF0,(F5F0F+F/F,F0F0F0F8*&F'F0FEF0F0*&)F(,*F5F,F/F0F*F-F+F " 0 "" {MPLTEXT 1 0 15 "a4:= eG1(9,a3);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>% #a4G,8*&)%\"qG,(*$%\"jG\"\"#\"#:F+\"#<\"\"&\"\"\"F0-%#gpG6%,&%\"nGF,F, F0,(F5F0F+F/\"\"%F0F0F0!\"\"*&)F(,&F*F-F+\"\"(F0-F26%,&F5F,F7F0,(F5F0 \"\"$F0F+F/F0F0F8*&)F(,(F*F-F+F.F7F0F0-F26%F?,(F5F0F/F0F+F/F0F0F0*&)F( ,*F7F0F*F-F+\"#7F5F0F0-F26%F4F@F0F0F8*&)F(,*F,F0F*F-F+F,F5F0F0-F26%,&F 5F,FAF0,(F5F0F+F/F,F0F0F0F8*&F'F0FEF0F0*&)F(,*F5F,F/F0F*F-F+F " 0 "" {MPLTEXT 1 0 15 "a5:= eG0(9,a4);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#a5G,6*&)%\"qG,(*$%\"jG\"\"#\"#:F+\"#<\"\"&\" \"\"F0-%#gpG6%,&%\"nGF,F,F0,(F5F0F+F/\"\"%F0F0F0!\"\"*&)F(,(F*F-F+F.F7 F0F0-F26%,&F5F,F7F0,(F5F0F/F0F+F/F0F0F0*&)F(,*F7F0F*F-F+\"#7F5F0F0-F26 %F4,(F5F0\"\"$F0F+F/F0F0F8*&)F(,*F,F0F*F-F+F,F5F0F0-F26%,&F5F,FGF0,(F5 F0F+F/F,F0F0F0F8*&F'F0FFFF0F0F 8*&)F(,*F5F,\"\"*F0F*F-F+F.F0FFNF0F0F0*&FAF0-F26%,&F 5F,F/F0F6F0F0F0*&F:F0-F26%,&F5F,\"\"'F0,(F5F0F_oF0F+F/F0F0F8" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "a6:= eG1(10,a5);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#a6G,8*&)%\"qG,(*$%\"jG\"\"#\"#:F+\"#<\"\" &\"\"\"F0-%#gpG6%,&%\"nGF,F,F0,(F5F0F+F/\"\"%F0F0F0!\"\"*&)F(,(F*F-F+F .F7F0F0-F26%,&F5F,F7F0,(F5F0F/F0F+F/F0F0F0*&)F(,*F7F0F*F-F+\"#7F5F0F0- F26%F4,(F5F0\"\"$F0F+F/F0F0F8*&)F(,*F,F0F*F-F+F,F5F0F0-F26%,&F5F,FGF0, (F5F0F+F/F,F0F0F0F8*&F'F0FFFF0 F0F8*&)F(,*F5F,\"\"*F0F*F-F+F.F0FFNF0F0F0*&FAF0-F26% ,&F5F,F/F0F6F0F0F0*&F:F0-F26%FjnF?F0F0F8*&)F(,*F*F-F+\"#A\"#5F0F5F0F0- F26%Fjn,(F5F0\"\"'F0F+F/F0F0F8" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "a7:= eG0(10,a6);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#a7G,6*& )%\"qG,(*$%\"jG\"\"#\"#:F+\"#<\"\"&\"\"\"F0-%#gpG6%,&%\"nGF,F,F0,(F5F0 F+F/\"\"%F0F0F0!\"\"*&)F(,*F7F0F*F-F+\"#7F5F0F0-F26%F4,(F5F0\"\"$F0F+F /F0F0F8*&)F(,*F,F0F*F-F+F,F5F0F0-F26%,&F5F,F@F0,(F5F0F+F/F,F0F0F0F8*&F 'F0-F26%,&F5F,F7F0,(F5F0F/F0F+F/F0F0F0*&)F(,*F5F,F/F0F*F-F+\"\"(F0-F26 %FKF?F0F0F8*&)F(,*F5F,\"\"*F0F*F-F+F.F0FIF0F0*&FBF0-F26%FKFGF0F0F0*&F: F0-F26%,&F5F,F/F0F6F0F0F0*&F:F0-F26%FKF6F0F0F8*&)F(,*F*F-F+\"#A\"#5F0F 5F0F0-F26%Fgn,(F5F0\"\"'F0F+F/F0F0F8" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "a8:= eG0(4,a7);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>% #a8G,8*&)%\"qG,(*$%\"jG\"\"#\"#:F+\"#<\"\"&\"\"\"F0-%#gpG6%,&%\"nGF,F, F0,(F5F0F+F/\"\"%F0F0F0!\"\"*&)F(,*F7F0F*F-F+\"#7F5F0F0-F26%F4,(F5F0\" \"$F0F+F/F0F0F8*&)F(,*F,F0F*F-F+F,F5F0F0-F26%,&F5F,F@F0,(F5F0F+F/F,F0F 0F0F8*&F'F0-F26%FF,(F5F0F/F0F+F/F0F0F0*&F:F0-F26%FFF6F0F0F0*&)F(,*F5F, F/F0F*F-F+\"\"(F0-F26%,&F5F,F7F0F?F0F0F8*&)F(,*F5F,\"\"*F0F*F-F+F.F0-F 26%FUFKF0F0F0*&FBF0-F26%FUFGF0F0F0*&F:F0-F26%,&F5F,F/F0F6F0F0F0*&F:F0- F26%FUF6F0F0F8*&)F(,*F*F-F+\"#A\"#5F0F5F0F0-F26%F\\o,(F5F0\"\"'F0F+F/F 0F0F8" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "a9:= eG1(4,a8);" } }{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#a9G,6*&)%\"qG,*\"\"%\"\"\"*$%\"jG \"\"#\"#:F-\"#7%\"nGF+F+-%#gpG6%,&F1F.F.F+,(F1F+\"\"$F+F-\"\"&F+F+!\" \"*&)F(,*F.F+F,F/F-F.F1F+F+-F36%,&F1F.F7F+,(F1F+F-F8F.F+F+F+F9*&)F(,*F ,F/F-\"#A\"#5F+F1F+F+-F36%F5,(F1F+F8F+F-F8F+F+F+*&F'F+-F36%F?,(F1F+F-F 8F*F+F+F+F+*&)F(,*F1F.F8F+F,F/F-\"\"(F+-F36%,&F1F.F*F+F6F+F+F9*&)F(,*F 1F.\"\"*F+F,F/F-\"# " 0 "" {MPLTEXT 1 0 16 "a10:= eG1(4,a9);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a10G,4*&)%\"qG,*\"\"#\"\"\"*$%\"j GF*\"#:F-F*%\"nGF+F+-%#gpG6%,&F/F*\"\"$F+,(F/F+F-\"\"&F*F+F+F+!\"\"*&) F(,*F,F.F-\"#A\"#5F+F/F+F+-F16%,&F/F*F*F+,(F/F+F6F+F-F6F+F+F+*&)F(,*\" \")F+F,F.F-\"# " 0 "" {MPLTEXT 1 0 17 "a11:= eG0(9,a10) ;" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a11G,2*&)%\"qG,*\"\"#\"\"\"*$% \"jGF*\"#:F-F*%\"nGF+F+-%#gpG6%,&F/F*\"\"$F+,(F/F+F-\"\"&F*F+F+F+!\"\" *&)F(,*F,F.F-\"#A\"#5F+F/F+F+-F16%,&F/F*F*F+,(F/F+F6F+F-F6F+F+F+*&)F(, *\"\")F+F,F.F-\"# " 0 "" {MPLTEXT 1 0 17 "a12:= eG1(8,a11);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6# >%$a12G,4*&)%\"qG,*\"\"#\"\"\"*$%\"jGF*\"#:F-F*%\"nGF+F+-%#gpG6%,&F/F* \"\"$F+,(F/F+F-\"\"&F*F+F+F+!\"\"*&)F(,*F,F.F-\"#A\"#5F+F/F+F+-F16%,&F /F*F*F+,(F/F+F6F+F-F6F+F+F+*&)F(,*\"\")F+F,F.F-\"# " 0 " " {MPLTEXT 1 0 17 "a13:= eG0(8,a12);" }}{PARA 12 "" 1 "" {XPPMATH 20 " 6#>%$a13G,.*&)%\"qG,*\"\"#\"\"\"*$%\"jGF*\"#:F-F*%\"nGF+F+-%#gpG6%,&F/ F*\"\"$F+,(F/F+F-\"\"&F*F+F+F+!\"\"*&)F(,*F/F*F6F+F,F.F-\"\"(F+-F16%,& F/F*\"\"%F+,(F/F+F4F+F-F6F+F+F7*&F'F+-F16%F>F5F+F+F+*&)F(,*F?F+F,F.F- \"#7F/F+F+-F16%,&F/F*F6F+,(F/F+F-F6F?F+F+F+F+*&FEF+-F16%F>FKF+F+F7*&)F (,*F,F.F-\"#F\"#;F+F/F*F+-F16%F3,(F/F+\"\"'F+F-F6F+F+F7" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "a14:= eG0(3,a13);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a14G,,*&)%\"qG,*%\"nG\"\"#\"\"&\"\"\"*$%\"jGF+\"# :F/\"\"(F--%#gpG6%,&F*F+\"\"%F-,(F*F-\"\"$F-F/F,F-F-!\"\"*&)F(,*F6F-F. F0F/!\"$F*F+F--F36%,&F*F+F8F-,(F*F-F/F,F-F-F-F-F-*&)F(,*F6F-F.F0F/\"#7 F*F-F--F36%,&F*F+F,F-,(F*F-F/F,F6F-F-F-F-*&FCF--F36%F5FIF-F-F9*&)F(,*F .F0F/\"#F\"#;F-F*F+F--F36%F@,(F*F-\"\"'F-F/F,F-F-F9" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "a15:= eG0(3,a14);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$a15G,&*&)%\"qG,*\"\"%\"\"\"*$%\"jG\"\"#\"#:F-!\"$%\" nGF.F+-%#gpG6%,&F1F.\"\"$F+,(F1F+F-\"\"&F+F+F+F+F+*&)F(,*F,F/F-\"#F\"# ;F+F1F.F+-F36%F5,(F1F+\"\"'F+F-F8F+F+!\"\"" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 23 "a16:= shiftdown(2,a15);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$a16G\"\"!" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "2 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 }