{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 1 1 1 }1 1 0 0 0 0 2 0 2 0 2 2 0 1 }} {SECT 0 {EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "01." }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 23 "hypergeom([a,b],[c],x);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "02." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "si mplify(hypergeom([],[],x));" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "03 ." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 36 "simplify(hypergeom([-a lpha],[],-x));" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "04." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "simplify(x*hypergeom([1,1],[2],x)); " }}}{EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "05." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 39 "simplify(x*hypergeom([],[3/2],-x^2/4));" }}} {EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "06." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 37 "simplify(hypergeom([],[1/2],-x^2/4));" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "07." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 42 "simplify(x*hypergeom([1/2,1],[3/2],-x^2));" }}} {EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "08." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "simplify(hypergeom([-5,a],[b],x));" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "09." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "with(sumtools);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "10." }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "Sumtohyper(1/k!*x^k,k);" }}} {EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "11." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 40 "Sumtohyper((-1)^k/(2*k+1)!*x^(2*k+1),k);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "12." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "F:=(n,k)->binomial(n,k)/2^n;" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "13." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "Sumt ohyper(F(n,k),k);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "14." }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "Sumtohyper(F(n+1,k)-F(n,k),k );" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "15." }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 52 "Sumtohyper(n!*(-1)^k/(k!*(n-2*k)!)*(2*x)^(n-2* k),k);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "16." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "read \"FPS.mpl\":\ns:=FPS((arcsin(sqrt(x))/ sqrt(x))^2,x,k);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "17." }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "Sumtohyper(subs(k=k-1,op(1,s )),k);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "18." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "s:=FPS(arcsin(x)^2,x);" }}}{EXCHG {PARA 0 " " 0 "" {TEXT 200 3 "19." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 67 " with(gfun):\ndiffeqtorec(HolonomicDE(arcsin(x)^2,FF(x)),FF(x),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 }