{VERSION 5 0 "IBM INTEL NT" "5.0" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 1 12 255 0 0 1 2 1 2 2 1 2 0 0 0 1 }{CSTYLE "Text" -1 200 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 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 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "" -1 205 1 {CSTYLE "" -1 -1 "Courier" 1 12 255 0 0 1 2 2 2 2 1 2 1 0 0 1 } 1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }} {SECT 0 {EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "01." }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 24 "a:=(-1)^k*binomial(n,k);" }}}{EXCHG {PARA 0 " " 0 "" {TEXT 200 3 "02." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 37 " rat:=normal(expand(subs(k=k+1,a)/a));" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "03." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "u:=nume r(rat):\n" }{MPLTEXT 1 0 14 "v:=denom(rat):" }}}{EXCHG {PARA 0 "" 0 " " {TEXT 200 3 "04." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "h:=1: " }}}{EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "05." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 54 "RE:=h*u*g[k+1]-subs(k=k+1,h)*v*g[k]=h*subs(k=k+1 ,h)*v;" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "06." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 61 "RE2:=expand(applyrule(g(k::anything)=A+B*k, lhs(RE)))=rhs(RE);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "07." }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 54 "gleichungen:=\{coeffs(collec t(lhs(RE2)-rhs(RE2),k),k)\};" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "0 8." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "l\366sung:=solve" } {MPLTEXT 1 0 20 "(gleichungen,\{A,B\});" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "09." }}}{EXCHG {PARA 205 "> " 0 "" {MPLTEXT 1 0 22 "g:=su bs(l\366sung,A+B*k);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "10." }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "s:=g/h*a;" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "11." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 36 "simplify(subs(k=n+1,s)-subs(k=0,s));" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "12." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "with(Su mTools[Hypergeometric]);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "13." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "Gosper(a,k);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "14." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "a:=k*k!;" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "15." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 37 "rat:=normal(expand(subs(k =k+1,a)/a));" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "16." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "u:=numer(rat);v:=denom(rat);" }}} {EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "17." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "h:=gcd(subs(k=k-1,u),v);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "18." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 68 "unassig n('g');RE:=h*u*g[k+1]-subs(k=k+1,h)*v*g[k]=h*subs(k=k+1,h)*v;" }}} {EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "19." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 57 "RE2:=expand(applyrule(g(k::anything)=A,lhs(RE)))=rhs( RE);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "20." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 54 "gleichungen:=\{coeffs(collect(lhs(RE2)-rhs(RE 2),k),k)\};" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "21." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "l\366sung:=solve" }{MPLTEXT 1 0 20 "(gleichungen,\{A,B\});" }{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "22." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "Gosper( a,k);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "23." }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 6 "a:=k!;" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "24." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 36 "rat:=numer(expand (subs(k=k+1,a)/a));" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "25." }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "u:=numer(rat);v:=denom(rat); " }}}{EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "26." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "h:=1;" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "27. " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 54 "RE:=h*u*g[k+1]-subs(k=k +1,h)*v*g[k]=h*subs(k=k+1,h)*v;" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "28." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "Gosper(a,k);" }}} }{MARK "1 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }