{VERSION 2 3 "DEC ALPHA UNIX" "2.3" }
{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 16 "read `hsum.mpl`;" }}{PARA 11 "" 1 "
" {XPPMATH 20 "6#%ZCopyright~1998~~Wolfram~Koepf,~Konrad-Zuse-Zentrum~
BerlinG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 53 "rodriguesrecursi
on((-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(*(%\"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 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$-F,6$-%\"SG6#F)F)F)F(F'*&F)F(F.F(!\"#*(F0F(%\"nGF(,&F6F
(F(F(F(F(\"\"!" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 64 "sumrecurs
ion(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(*(%\"xG
F(,&\"\"$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)*bino
mial(-n-1,k)*((1-x)/2)^k,k,S(x));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/
,(*(,&!\"\"\"\"\"%\"xGF(F(,&F(F(F)F(F(-%%diffG6$-F,6$-%\"SG6#F)F)F)F(F
'*&F)F(F.F(!\"#*(F0F(%\"nGF(,&F6F(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(*&,*\"\"$F(%\"xG!\"\"%&alphaGF(F'F)F(-F+6#,&F'F(F(F(
F(F1*&,(F'F(F2F(F(F(F(-F+6#F'F(F(\"\"!" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 54 "sumdiffeq((-1)^k/k!*binomial(n+alpha,n-k)*x^k,k,S(x))
;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/,(*&%\"xG\"\"\"-%%diffG6$-F)6$-%
\"SG6#F&F&F&F'F'*&,(F&!\"\"%&alphaGF'F'F'F'F+F'F'*&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(*&,*\"\"$F(%\"
xG!\"\"%&alphaGF(F'F)F(-F+6#,&F'F(F(F(F(F1*&,(F'F(F2F(F(F(F(-F+6#F'F(F
(\"\"!" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 64 "rodriguesdiffeq(e
xp(x)/(n!*x^alpha),exp(-x)*x^(alpha+n),n,S(x));" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#/,(*&%\"xG\"\"\"-%%diffG6$-F)6$-%\"SG6#F&F&F&F'F'*&,(F&
!\"\"%&alphaGF'F'F'F'F+F'F'*&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(*&,*\"\"$F(%\"xG!\"\"%&alphaGF(F'F)F(-F+6#,&F'F(F(F(F(F
1*&,(F'F(F2F(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$-F)6$-%
\"SG6#F&F&F&F'F'*&,(F&!\"\"%&alphaGF'F'F'F'F+F'F'*&F-F'%\"nGF'F'\"\"!
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "0 0 0" 0 }
{VIEWOPTS 1 1 0 1 1 1803 }