{VERSION 6 0 "IBM INTEL NT" "6.0" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 1 0 0 0 0 1 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 0 1 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 1 } {PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple Output" -1 11 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 3 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple Output" -1 12 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }1 3 0 0 0 0 1 0 1 0 2 2 0 1 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "read \"qsum13.mpl\";" }}{PARA 11 " " 1 "" {XPPMATH 20 "6#%QPackage~\"q-Hypergeometric~Summation\",~Maple~ V-13G" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%coCopyright~1998-2010,~Haral d~Boeing~&~Wolfram~Koepf,~University~of~KasselG" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 39 "Equation (87), Theorem 19, Askey-Wilson" }{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 532 "RE:=4*q^n*q*(q^ (k+1)-1)*(a^2*q^(k+1)-1)*(a*c*q^(k+1)-1)*(a*d*q^(k+1)-1)*(q*q^(k+1)-1) *(a*b*q^(k+1)-1)*A(k+2)+4*(q^(k+1)-1)*(-(q^(k+1))^3*a^3*q^n*b*c*d-(q^( k+1))^3*a^3*q*q^n*b*c*d+(q^(k+1))^2*q^n*a*b*c*d*q+(q^(k+1))^2*a^2*q*q^ n*b*c+(q^(k+1))^2*a^3*q*(q^n)^2*b*c*d+(q^(k+1))^2*q^2*a^2+(q^(k+1))^2* a^2*q*q^n*c*d+(q^(k+1))^2*a^2*q*q^n*b*d-q^(k+1)*q^2-q^(k+1)*q*(q^n)^2* a*b*c*d-q^(k+1)*a^2*q^2*q^n-q^(k+1)*a*q^2*q^n*c-q^(k+1)*a*q^2*q^n*d-q^ (k+1)*a*q^2*q^n*b+q^3*q^n+q^2*q^n)*A(k+1)-4*(q^n*q-q^(k+1))*q*(q^(k+1) *a*b*c*d*q^n-q^2)*A(k) = 0;" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#REG/ ,(*6\"\"%\"\"\")%\"qG%\"nGF)F+F),&)F+,&%\"kGF)F)F)F)F)!\"\"F),&*&)%\"a G\"\"#F)F.F)F)F)F1F),&*(F5F)%\"cGF)F.F)F)F)F1F),&*(F5F)%\"dGF)F.F)F)F) F1F),&*&F+F)F.F)F)F)F1F),&*(F5F)%\"bGF)F.F)F)F)F1F)-%\"AG6#,&F0F)F6F)F )F)**F(F)F-F),B*.)F.\"\"$F))F5FJF)F*F)FAF)F9F)F " 0 "" {MPLTEXT 1 0 71 "TIME:=time():\nqrecsolve(RE,q,A(k),output=qhypergeometric);\ntim e()-TIME;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7#7$*0-%,qpochhammerG6%)% \"qG,$%\"nG!\"\"F*%\"kG\"\"\"-F'6%*,%\"aGF/%\"bGF/%\"cGF/%\"dGF/)F*,&F ,F/F/F-F/F*F.F/-F'6%*&F3F/F5F/F*F.F--F'6%*&F3F/F6F/F*F.F--F'6%F*F*F.F- -F'6%*&F3F/F4F/F*F.F-)F*F.F/1\"\"!F." }}{PARA 11 "" 1 "" {XPPMATH 20 " 6#$\"%]Z!\"$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "2 0 0" 12 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }