{VERSION 2 3 "IBM INTEL NT" "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 "" 0 1 0 0 0 0 0 0 0 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 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "with(combinat, choos
e);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7#%'chooseG" }}}{EXCHG {PARA 0 
"> " 0 "" {MPLTEXT 1 0 12 "y := x^3-k;\n" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#>%\"yG,&*$%\"xG\"\"$\"\"\"%\"kG!\"\"" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 12 "A(0) := 1/y;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>-%
\"AG6#\"\"!*$,&*$%\"xG\"\"$\"\"\"%\"kG!\"\"F/" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 20 "B(0) := diff(y,x)/y;" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>-%\"BG6#\"\"!,$*&%\"xG\"\"#,&*$F*\"\"$\"\"\"%\"kG!\"\"
F1F." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "for i from 1 to 5 d
o w := i;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 93 "A(w) := simplify(sum('
(-1)^(a-1)*y^(a-1)*diff(y,x$w)*y^(w-a+1)*A(w-a)/a!','a'=1..w)/y^(w+1))
;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 93 "B(w) := simplify(sum('(-1)^(a)
*y^(a)*diff(y,x$(w+1))*y^(w-a+1)*A(w-a)/a!','a'=1..w)/y^(w+1));" }}
{PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "for j from 1 to 5 do L := j;" }}
{PARA 0 "> " 0 "" {MPLTEXT 1 0 104 "AL(L,w) := simplify(sum('(-1)^(a)*
numbcomb(L,a)*x^(L-a)*y^a*y^(w-a+1)*A(w-a)','a'=1..max(w,L))/y^(w+1));
" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 104 "BL(L,w) := simplify(sum('(-1)^
(a)*numbcomb(L,a)*x^(L-a)*y^a*y^(w-a+1)*B(w-a)','a'=1..max(w,L))/y^(w+
1));" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "od;" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 3 "od;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"wG\"\"\"" }
}{PARA 11 "" 1 "" {XPPMATH 20 "6#>-%\"AG6#\"\"\",$*&%\"xG\"\"#,&*$F*\"
\"$F'%\"kG!\"\"!\"#F." }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>-%\"BG6#\"\"
\",$*&,&*$%\"xG\"\"$F'%\"kG!\"\"F/F,F'!\"'" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%\"wG\"\"#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>-%\"AG6
#\"\"#,$*(%\"xG\"\"\",(*$F*F'!\"'*$F*\"\"$F+%\"kG!\"\"F+,&F/F+F1F2!\"$
F4" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>-%\"BG6#\"\"#,$*&,(*$%\"xGF'!\"
'*$F,\"\"$\"\"\"%\"kG!\"\"F0,&F.F0F1F2!\"#F/" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%\"wG\"\"$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>-%\"AG6
#\"\"$*&,2*$%\"xGF'\"$3\"*$F+\"\"%!#=*&F+\"\"\"%\"kGF1\"#=*$F+\"\"&!\"
**&F+\"\"#F2F1\"\"**$F+\"\"'F1*&F+F'F2F1!\"#*$F2F8F1F1,&F*F1F2!\"\"!\"
%" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>-%\"BG6#\"\"$\"\"!" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#>%\"wG\"\"%" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>
-%\"AG6#\"\"%\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>-%\"BG6#\"\"%\"
\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"wG\"\"&" }}{PARA 11 "" 1 "
" {XPPMATH 20 "6#>-%\"AG6#\"\"&\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "
6#>-%\"BG6#\"\"&\"\"!" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }
}}}{MARK "4 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 }