{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 9 "#### 3.26" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 85 "op1:= annihiloper( q^(j^2) * qfac(- q,q,j) / qfac(q,q^2,j+1)/ spqfac(q,q,j), 0, back);" }}{PARA 11 "" 1 " " {XPPMATH 20 "6#>%$op1G,*\"\"\"F&*$%\"NG!\"\"F)*&,&%\"qGF&)F,,&%\"nGF &F)F&F&F&F(!\"#F)*&,&F,F)F-F&F&F(!\"$F)" }}}{EXCHG {PARA 11 "" 1 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "altsign:=tr ue:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 11 "" 1 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 52 "A1:=applysh iftop( op1, q^(3*j^2) * T1(n, 3*j, 1/2));" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#A1G,.*&)%\"qG,&*$%\"jG\"\"#\"\"$\"\"\"F.F.-%#T1G6%,& %\"nGF.!\"$F.,$F+F-#F.F,F.F.*&)F(,(F*F-F3F.!\"\"F.F.F/F.F:*&F'F.-F06%, &F3F.!\"#F.F5F6F.F:*&F8F.F " 0 "" {MPLTEXT 1 0 14 "A2:=e T1(6,A1);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#A2G,.*&)%\"qG,&*$%\"jG \"\"#\"\"$\"\"\"F.F.-%#T1G6%,&%\"nGF.!\"$F.,$F+F-#F.F,F.F.*&)F(,(F*F-F 3F.!\"\"F.F.F/F.F:*&F'F.-F06%,&F3F.!\"#F.F5F6F.F:*&F8F.F " 0 "" {MPLTEXT 1 0 16 "A3:= eT1(3,A2); " }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#A3G,.*&)%\" qG,(*$%\"jG\"\"#\"\"$%\"nG\"\"\"!\"\"F/F/-%#T1G6%,&F.F/!\"$F/,$F+F-#F/ F,F/F0*&)F(,(F*F-F.F7F+#F-F,F/-%#T0G6%F4,&F+F-F/F/F7F/F0*&)F(,(F*F-F.F 7F+#F5F,F/-F=6%F4,&F+F-F0F/F7F/F0*&F'F/-F26%,&F.F/!\"#F/F6F7F/F0*&F9F/ -F=6%,&F.F/F0F/F?F7F/F/*&FAF/-F=6%FOFFF7F/F/" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "A4:= negate(6,A3);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#A4G,.*&)%\"qG,(*$%\"jG\"\"#\"\"$%\"nG\"\"\"!\"\"F/F/-%#T1G6%, &F.F/!\"$F/,$F+F-#F/F,F/F0*&)F(,(F*F-F.F7F+#F-F,F/-%#T0G6%F4,&F+F-F/F/ F7F/F0*&)F(,(F*F-F.F7F+#F5F,F/-F=6%F4,&F+F-F0F/F7F/F0*&F'F/-F26%,&F.F/ !\"#F/F6F7F/F0*&F9F/-F=6%,&F.F/F0F/F?F7F/F/*&F9F/-F=6%FO,&F+F5F0F/F7F/ F/" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "A5:=eT0(5,A4);" }} {PARA 12 "" 1 "" {XPPMATH 20 "6#>%#A5G,2*&)%\"qG,(*$%\"jG\"\"#\"\"$%\" nG\"\"\"!\"\"F/F/-%#T1G6%,&F.F/!\"$F/,$F+F-#F/F,F/F0*&)F(,(F*F-F.F7F+# F-F,F/-%#T0G6%F4,&F+F-F/F/F7F/F0*&)F(,(F*F-F.F7F+#F5F,F/-F=6%F4,&F+F-F 0F/F7F/F0*&F'F/-F26%,&F.F/!\"#F/F6F7F/F0*&F9F/-F=FIF/F/*&)F(,(F*F-F.F/ F+F-F/-F26%FJF?F7F/F/*&)F(,(F*F-F.F;F+#\"\"*F,F/-F=6%FJ,&F+F-F,F/F7F/F /*&F9F/-F=6%,&F.F/F0F/,&F+F5F0F/F7F/F/" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "A6:=sym(5,A5);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%# A6G,2*&)%\"qG,(*$%\"jG\"\"#\"\"$%\"nG\"\"\"!\"\"F/F/-%#T1G6%,&F.F/!\"$ F/,$F+F-#F/F,F/F0*&)F(,(F*F-F.F7F+#F-F,F/-%#T0G6%F4,&F+F-F/F/F7F/F0*&) F(,(F*F-F.F7F+#F5F,F/-F=6%F4,&F+F-F0F/F7F/F0*&F'F/-F26%,&F.F/!\"#F/F6F 7F/F0*&F9F/-F=6%FJ,$F+F5F7F/F/*&)F(,(F*F-F.F/F+F-F/-F26%FJF?F7F/F/*&)F (,(F*F-F.F;F+#\"\"*F,F/-F=6%FJ,&F+F-F,F/F7F/F/*&F9F/-F=6%,&F.F/F0F/,&F +F5F0F/F7F/F/" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "A7:=eT0(5, A6);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#A7G,6*&)%\"qG,(*$%\"jG\"\"# \"\"$%\"nG\"\"\"!\"\"F/F/-%#T1G6%,&F.F/!\"$F/,$F+F-#F/F,F/F0*&)F(,(F*F -F.F7F+#F-F,F/-%#T0G6%F4,&F+F-F/F/F7F/F0*&)F(,(F*F-F.F7F+#F5F,F/-F=6%F 4,&F+F-F0F/F7F/F0*&F'F/-F26%,&F.F/!\"#F/F6F7F/F0*&F9F/-F=6%F4,&F+F5F0F /F7F/F/*&F'F/-F26%F4,$F+F5F7F/F/*&)F(,*F*F-F.F;F+FCFKF/F/-F=6%F4,&F+F5 F/F/F7F/F/*&)F(,(F*F-F.F/F+F-F/-F26%FJF?F7F/F/*&)F(,(F*F-F.F;F+#\"\"*F ,F/-F=6%FJ,&F+F-F,F/F7F/F/*&F9F/-F=6%,&F.F/F0F/FOF7F/F/" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "A8:=sym(1,A7);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#A8G,2*&)%\"qG,(*$%\"jG\"\"#\"\"$%\"nG#\"\"\"F,F+#F-F ,F0-%#T0G6%,&F.F0!\"$F0,&F+F-F0F0F/F0!\"\"*&)F(,(F*F-F.F/F+#F6F,F0-F36 %F5,&F+F-F8F0F/F0F8*&)F(,(F*F-F.F0F8F0F0-%#T1G6%,&F.F0!\"#F0,$F+F-F/F0 F8*&F'F0-F36%F5,&F+F6F8F0F/F0F0*&)F(,*F*F-F.F1F+F " 0 "" {MPLTEXT 1 0 14 "A9:=sym(1,A8);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#A9G,.*&)%\"qG,(*$%\"jG\"\"#\"\"$%\"nG#\"\"\"F,F+#!\" $F,F0-%#T0G6%,&F.F0F2F0,&F+F-!\"\"F0F/F0F8*&)F(,(F*F-F.F0F8F0F0-%#T1G6 %,&F.F0!\"#F0,$F+F-F/F0F8*&)F(,*F*F-F.#F-F,F+F1F@F0F0-F46%F6,&F+F2F0F0 F/F0F0*&)F(,(F*F-F.F0F+F-F0-F=6%F?,&F+F-F0F0F/F0F0*&)F(,(F*F-F.FEF+#\" \"*F,F0-F46%F?,&F+F-F,F0F/F0F0*&)F(,(F*F-F.F/F+FEF0-F46%,&F.F0F8F0,&F+ F2F8F0F/F0F0" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "A10:= negat e(1,A9);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$A10G,.*&)%\"qG,(*$%\"jG \"\"#\"\"$%\"nG#\"\"\"F,F+#F-F,F0-%#T0G6%,&F.F0!\"$F0,&F+F6!\"\"F0F/F0 F8*&)F(,(F*F-F.F0F8F0F0-%#T1G6%,&F.F0!\"#F0,$F+F-F/F0F8*&)F(,*F*F-F.F1 F+#F6F,F@F0F0-F36%F5,&F+F6F0F0F/F0F0*&)F(,(F*F-F.F0F+F-F0-F=6%F?,&F+F- F0F0F/F0F0*&)F(,(F*F-F.F1F+#\"\"*F,F0-F36%F?,&F+F-F,F0F/F0F0*&F'F0-F36 %,&F.F0F8F0F7F/F0F0" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "A11: =sym(6,A10);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$A11G,.*&)%\"qG,(*$% \"jG\"\"#\"\"$%\"nG#\"\"\"F,F+#F-F,F0-%#T0G6%,&F.F0!\"$F0,&F+F6!\"\"F0 F/F0F8*&)F(,(F*F-F.F0F8F0F0-%#T1G6%,&F.F0!\"#F0,$F+F-F/F0F8*&)F(,*F*F- F.F1F+#F6F,F@F0F0-F36%F5,&F+F6F0F0F/F0F0*&)F(,(F*F-F.F0F+F-F0-F=6%F?,& F+F-F0F0F/F0F0*&)F(,(F*F-F.F1F+#\"\"*F,F0-F36%F?,&F+F-F,F0F/F0F0*&F'F0 -F36%,&F.F0F8F0FNF/F0F0" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 " A12:= eT0(6, A11);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$A12G,.*&)%\"q G,(*$%\"jG\"\"#\"\"$%\"nG#\"\"\"F,F+#F-F,F0-%#T0G6%,&F.F0!\"$F0,&F+F6! \"\"F0F/F0F8*&)F(,(F*F-F.F0F8F0F0-%#T1G6%,&F.F0!\"#F0,$F+F-F/F0F8*&)F( ,*F*F-F.F1F+#F6F,F@F0F0-F36%F5,&F+F6F0F0F/F0F0*&)F(,(F*F-F.F0F+F-F0-F= 6%F?,&F+F-F0F0F/F0F,*&)F(,(F*F-F.F1F+#\"\"*F,F0-F36%F?,&F+F-F,F0F/F0F, *&F'F0-F3F>F0F0" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "A13:=sym (6,A12);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$A13G,.*&)%\"qG,(*$%\"jG \"\"#\"\"$%\"nG#\"\"\"F,F+#F-F,F0-%#T0G6%,&F.F0!\"$F0,&F+F6!\"\"F0F/F0 F8*&)F(,(F*F-F.F0F8F0F0-%#T1G6%,&F.F0!\"#F0,$F+F-F/F0F8*&)F(,*F*F-F.F1 F+#F6F,F@F0F0-F36%F5,&F+F6F0F0F/F0F0*&)F(,(F*F-F.F0F+F-F0-F=6%F?,&F+F- F0F0F/F0F,*&)F(,(F*F-F.F1F+#\"\"*F,F0-F36%F?,&F+F-F,F0F/F0F,*&F'F0-F36 %F?,$F+F6F/F0F0" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "A14:= eT 0(6,A13);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$A14G,,*&)%\"qG,(*$%\"j G\"\"#\"\"$%\"nG\"\"\"!\"\"F/F/-%#T1G6%,&F.F/!\"#F/,$F+F-#F/F,F/F0*&)F (,*F*F-F.#F-F,F+#!\"$F,F5F/F/-%#T0G6%,&F.F/F=F/,&F+F=F/F/F7F/F,*&)F(,( F*F-F.F/F+F-F/-F26%F4,&F+F-F/F/F7F/F,*&)F(,(F*F-F.F;F+#\"\"*F,F/-F?6%F 4,&F+F-F,F/F7F/F,*&F'F/-F26%FA,$F+F=F7F/F/" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 16 "A15:=eT1(1,A14);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6 #>%$A15G,0*&)%\"qG,(*$%\"jG\"\"#\"\"$%\"nG\"\"\"!\"\"F/F/-%#T1G6%,&F.F /!\"$F/,$F+F-#F/F,F/F0*&)F(,*F*F-F.#F-F,!\"#F/F+F;F/-%#T0G6%F4,&F+F-F/ F/F7F/F0*&)F(,*F*F-F.F;F+#F5F,F6%F4,&F+F-F0F/F7F/F0*&FBF/-F>6% F4,&F+F5F/F/F7F/F,*&)F(,(F*F-F.F/F+F-F/-F26%,&F.F/F6%FQ,&F+F-F,F/F7F/F,*&F'F/-F26%F4,$F+F5F7F/F/" } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "A16:= sym(7,A15);" }} {PARA 12 "" 1 "" {XPPMATH 20 "6#>%$A16G,,*&)%\"qG,**$%\"jG\"\"#\"\"$% \"nG#F-F,!\"#\"\"\"F+F/F1-%#T0G6%,&F.F1!\"$F1,&F+F-F1F1#F1F,F1!\"\"*&) F(,*F*F-F.F/F+#F6F,F0F1F1-F36%F5,&F+F-F9F1F8F1F9*&F;F1-F36%F5,&F+F6F1F 1F8F1F,*&)F(,(F*F-F.F1F+F-F1-%#T1G6%,&F.F1F0F1F7F8F1F,*&)F(,(F*F-F.F/F +#\"\"*F,F1-F36%FK,&F+F-F,F1F8F1F," }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "A17:= negate(1,A16);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$A17G,**&)%\"qG,**$%\"jG\"\"#\"\"$%\"nG#F-F,F+#!\"$F,!\"#\"\"\"F3 -%#T0G6%,&F.F3F1F3,&F+F1F3F3#F3F,F3F3*&F'F3-F56%F7,&F+F-!\"\"F3F9F3F>* &)F(,(F*F-F.F3F+F-F3-%#T1G6%,&F.F3F2F3,&F+F-F3F3F9F3F,*&)F(,(F*F-F.F/F +#\"\"*F,F3-F56%FE,&F+F-F,F3F9F3F," }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "A18:= sym(1,A17);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6# >%$A18G,&*&)%\"qG,(*$%\"jG\"\"#\"\"$%\"nG\"\"\"F+F-F/-%#T1G6%,&F.F/!\" #F/,&F+F-F/F/#F/F,F/F,*&)F(,(F*F-F.#F-F,F+#\"\"*F,F/-%#T0G6%F3,&F+F-F, F/F6F/F," }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "A19:= A18/2;" } }{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$A19G,&*&)%\"qG,(*$%\"jG\"\"#\"\"$% \"nG\"\"\"F+F-F/-%#T1G6%,&F.F/!\"#F/,&F+F-F/F/#F/F,F/F/*&)F(,(F*F-F.#F -F,F+#\"\"*F,F/-%#T0G6%F3,&F+F-F,F/F6F/F/" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "altsi gn:=false;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%(altsignG%&falseG" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "expand(3*(2*k-1)^2 + n + 6*k -3);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,(*$%\"kG\"\"#\"#7F%!\"'%\"nG \"\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 40 "expand(3*(2*k-1)^ 2 + 3/2*n + 9*k - 9/2);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,**$%\"kG\" \"#\"#7F%!\"$#F(F&\"\"\"%\"nG#\"\"$F&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "#A21:= negate(3,A20);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 43 "A20 := subs(j=2*j,A19) - subs(j=2*j-1,A19);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$A20G,**&)%\"qG,(*$%\"jG\"\"#\"#7%\"nG\"\" \"F+\"\"'F/-%#T1G6%,&F.F/!\"#F/,&F+F0F/F/#F/F,F/F/*&)F(,(F*F-F.#\"\"$F ,F+\"\"*F/-%#T0G6%F4,&F+F0F,F/F7F/F/*&)F(,**$,&F+F,!\"\"F/F,F " 0 "" {MPLTEXT 1 0 19 "A21:=nega te(3,A20);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$A21G,**&)%\"qG,(*$%\" jG\"\"#\"#7%\"nG\"\"\"F+\"\"'F/-%#T1G6%,&F.F/!\"#F/,&F+F0F/F/#F/F,F/F/ *&)F(,(F*F-F.#\"\"$F,F+\"\"*F/-%#T0G6%F4,&F+F0F,F/F7F/F/*&)F(,**$,&F+F 5!\"\"F/F,F " 0 "" {MPLTEXT 1 0 84 "A22:= op(1,A21) + op(2,A21) + expandexponent( op(3,A21)) + expandexponent(op(4,A21));" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$A22G,**&)%\"qG,(*$%\"jG\"\"#\"#7%\"nG\"\"\"F+\"\"'F/-%#T1G6%, &F.F/!\"#F/,&F+F0F/F/#F/F,F/F/*&)F(,(F*F-F.#\"\"$F,F+\"\"*F/-%#T0G6%F4 ,&F+F0F,F/F7F/F/*&F'F/-F26%F4,&F+!\"'F5F/F7F/!\"\"*&)F(,*F*F-F+!\"$#FK F,F/F.F;F/-F?6%F4,&F+F0FGF/F7F/FG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "A23:= sym(3,A22);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6# >%$A23G,**&)%\"qG,(*$%\"jG\"\"#\"#7%\"nG\"\"\"F+\"\"'F/-%#T1G6%,&F.F/! \"#F/,&F+F0F/F/#F/F,F/F/*&)F(,(F*F-F.#\"\"$F,F+\"\"*F/-%#T0G6%F4,&F+F0 F,F/F7F/F/*&F'F/-F2F@F/!\"\"*&)F(,*F*F-F+!\"$#FHF,F/F.F;F/-F?6%F4,&F+F 0FDF/F7F/FD" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "A24:=e0(1,A2 3);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$A24G,&*&)%\"qG,**$%\"jG\"\"# \"#7%\"nG#\"\"$F,F+F0#!\"$F,\"\"\"F3-%#T0G6%,&F.F3!\"#F3,&F+\"\"'F3F3# F3F,F3F3*&)F(,*F*F-F+F2F1F3F.F/F3-F56%F7,&F+F:!\"\"F3F;F3FB" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "A25:=negate(2,A24);" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%$A25G,&*&)%\"qG,**$%\"jG\"\"#\"#7%\" nG#\"\"$F,F+F0#!\"$F,\"\"\"F3-%#T0G6%,&F.F3!\"#F3,&F+\"\"'F3F3#F3F,F3F 3*&F'F3-F56%F7,&F+!\"'!\"\"F3F;F3FA" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "A26:=sym(2,A25);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#> %$A26G\"\"!" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK " 6 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 }