{VERSION 3 0 "IBM INTEL NT" "3.0" }
{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 "Times" 1 14 0 0 0 0 2 2 2 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 "R3 Font 0" -1 256 1 {CSTYLE "" -1 -1 "He
lvetica" 1 14 0 0 0 0 2 1 2 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 
-1 0 }{PSTYLE "R3 Font 2" -1 257 1 {CSTYLE "" -1 -1 "Courier" 1 14 0 
0 0 0 2 2 2 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 36 "read `c:/koepf/maple/buch/hsum.mpl`
;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%ZCopyright~1998~~Wolfram~Koepf,~
Konrad-Zuse-Zentrum~BerlinG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
53 "rodriguesrecursion((-1)^n/(2^n*n!),(1-x^2)^n,x,S(n));" }}{PARA 11 
"" 1 "" {XPPMATH 20 "6#/,(*&,&%\"nG\"\"\"\"\"#F(F(-%\"SG6#F&F(F(*(%\"x
GF(,&\"\"$F(F'F)F(-F+6#,&F'F(F(F(F(!\"\"*&F3F(-F+6#F'F(F(\"\"!" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 50 "rodriguesdiffeq((-1)^n/(2^n*
n!),(1-x^2)^n,n,S(x));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/,(*(,&!\"\"
\"\"\"%\"xGF(F(,&F(F(F)F(F(-%%diffG6$-%\"SG6#F)-%\"$G6$F)\"\"#F(F'*&F)
F(-F,6$F.F)F(!\"#*(F.F(%\"nGF(,&F:F(F(F(F(F(\"\"!" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 64 "sumrecursion(binomial(n,k)*binomial(-n-1,k)*
((1-x)/2)^k,k,S(n));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/,(*&,&%\"nG\"
\"\"\"\"#F(F(-%\"SG6#F&F(F(*(%\"xGF(,&\"\"$F(F'F)F(-F+6#,&F'F(F(F(F(!
\"\"*&F3F(-F+6#F'F(F(\"\"!" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
61 "sumdiffeq(binomial(n,k)*binomial(-n-1,k)*((1-x)/2)^k,k,S(x));" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#/,(*(,&!\"\"\"\"\"%\"xGF(F(,&F(F(F)F(F
(-%%diffG6$-%\"SG6#F)-%\"$G6$F)\"\"#F(F'*&F)F(-F,6$F.F)F(!\"#*(F.F(%\"
nGF(,&F:F(F(F(F(F(\"\"!" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 57 "
sumrecursion((-1)^k/k!*binomial(n+alpha,n-k)*x^k,k,S(n));" }}{PARA 11 
"" 1 "" {XPPMATH 20 "6#/,(*&,&%\"nG\"\"\"\"\"#F(F(-%\"SG6#F&F(F(*&,*%&
alphaG!\"\"!\"$F(F'!\"#%\"xGF(F(-F+6#,&F'F(F(F(F(F(*&,(F'F(F/F(F(F(F(-
F+6#F'F(F(\"\"!" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 54 "sumdiffe
q((-1)^k/k!*binomial(n+alpha,n-k)*x^k,k,S(x));" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#/,(*&%\"xG\"\"\"-%%diffG6$-%\"SG6#F&-%\"$G6$F&\"\"#F'F'
*&,(F&F'!\"\"F'%&alphaGF4F'-F)6$F+F&F'F4*&F+F'%\"nGF'F'\"\"!" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 67 "rodriguesrecursion(exp(x)/(n
!*x^alpha),exp(-x)*x^(alpha+n),x,S(n));" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#/,(*&,&%\"nG\"\"\"\"\"#F(F(-%\"SG6#F&F(F(*&,*%&alphaG!\"\"!\"$F(
F'!\"#%\"xGF(F(-F+6#,&F'F(F(F(F(F(*&,(F'F(F/F(F(F(F(-F+6#F'F(F(\"\"!" 
}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 64 "rodriguesdiffeq(exp(x)/(n
!*x^alpha),exp(-x)*x^(alpha+n),n,S(x));" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#/,(*&%\"xG\"\"\"-%%diffG6$-%\"SG6#F&-%\"$G6$F&\"\"#F'F'*&,(F&F'!
\"\"F'%&alphaGF4F'-F)6$F+F&F'F4*&F+F'%\"nGF'F'\"\"!" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 54 "GFrecursion((1-z)^(-alpha-1)*exp(x*z/(z-1
)),1,z,S(n));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/,(*&,&%\"nG\"\"\"\"
\"#F(F(-%\"SG6#F&F(F(*&,*%&alphaG!\"\"!\"$F(F'!\"#%\"xGF(F(-F+6#,&F'F(
F(F(F(F(*&,(F'F(F/F(F(F(F(-F+6#F'F(F(\"\"!" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 53 "GFdiffeq((1-z)^(-alpha-1)*exp(x*z/(z-1)),1,z,n,S(x)
);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/,(*&%\"xG\"\"\"-%%diffG6$-%\"SG
6#F&-%\"$G6$F&\"\"#F'F'*&,(F&F'!\"\"F'%&alphaGF4F'-F)6$F+F&F'F4*&F+F'%
\"nGF'F'\"\"!" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}
{MARK "0 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 }