{VERSION 6 0 "IBM INTEL LINUX" "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 "" -1 256 "" 1 24 0 0 0 0 0 0 0 0 0 0 0 0 0 0 } {CSTYLE "" -1 257 "" 1 36 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 258 "" 1 18 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 259 "" 1 24 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "T imes" 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 "Title" -1 18 1 {CSTYLE "" -1 -1 "Times" 1 18 0 0 0 1 2 1 1 2 2 2 1 1 1 1 }3 1 0 0 12 12 1 0 1 0 2 2 19 1 }{PSTYLE "Normal" -1 256 1 {CSTYLE "" -1 -1 "Times" 1 24 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 "Normal" -1 257 1 {CSTYLE "" -1 -1 "Times " 1 18 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 }} {SECT 0 {EXCHG {PARA 18 "" 0 "" {TEXT 257 22 "SUM-symbolic summation" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 256 23 "Loading the packages..." }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" }}}{EXCHG {PARA 0 " " 0 "" {TEXT -1 70 "Directory below should be the directory where the \+ source code file is." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "rea d(\"INT/INTpackage/SUM.map\");" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 " " }{TEXT 258 0 "" }{TEXT 259 8 "Examples" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "E:=u[n+1]-u[n];" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "SUM(E,n);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 42 "E:=2*u[n+3]^2*u[n+2]-u[n+1]^2*u[n]+u[n+2];" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 9 "SUM(E,n);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 62 "E:=expand((n+1)^3*u[n+2]*v[n+1]^5+v[n+2]^3-n^3*u[n+1] *v[n]^5);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "SUM(E,n);" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "E:=u[n+2]/u[n+1]^p-u[n+1]/u[ n]^p;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "SUM(E,n);" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "E:=u[n+2]/u[n+1]-u[n+1]/u[n] +u[n];" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "SUM(E,n);" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 68 "E:=(u[n+5]+u[n+1])/(u[n+2]+u [n+1])-(u[n+4]+u[n])/(u[n+1]+u[n])+v[n];" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "SUM(E,n);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 181 "The form of the summand can effect the summation proceedure for expressio ns which contain non-monomial terms in the denominator. Though the res ult is correct, it may not be optimal." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 37 "E:=1/(u[n+2]+u[n+1])-1/(u[n+1]+u[n]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "SUM(E,n);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "E:=expand(normal(E));" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 9 "SUM(E,n);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "4 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 } {PAGENUMBERS 0 1 2 33 1 1 }