{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 "Text Output" -1 2 1 
{CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 0 0 0 0 0 1 3 0 0 }1 0 0 -1 
-1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Warning" 2 7 1 {CSTYLE "" -1 -1 "" 0 
1 0 0 255 1 0 0 0 0 0 0 1 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }
{PSTYLE "Error" 7 8 1 {CSTYLE "" -1 -1 "" 0 1 255 0 255 1 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 580 "with(combinat, choo
se);\nA(0) := 1/y;\nB(0) := diff(y,x)/y;\nfor i from 1 to 5 do w := i;
\nA(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));\nB(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)); l:=1;\nAL(l,w) := s
implify(sum('(-1)^(a)*numbcomb(l,a)*x^(l-a)*y^a*y^(w-a+1)*A(w-a)','a'=
1..max(w,w))/y^(w+1));\nBL(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,w))/y^(w+1));\nxprime := \+
simplify(x -AL(l,w-1)/AL(l,w));\nxxprime := simplify(x - BL(l,w-1)/BL(
l,w));\nod;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7#%'chooseG" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#>-%\"AG6#\"\"!*$,&*$%\"xG\"\"#\"\"\"%\"kG!\"
\"F/" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>-%\"BG6#\"\"!,$*&%\"xG\"\"\",
&*$F*\"\"#F+%\"kG!\"\"F0F." }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"wG\"
\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>-%\"AG6#\"\"\",$*&%\"xGF',&*$
F*\"\"#F'%\"kG!\"\"!\"#F-" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>-%\"BG6#
\"\"\",$*$,&*$%\"xG\"\"#F'%\"kG!\"\"F/!\"#" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%\"lG\"\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>-%#ALG
6$\"\"\"F',$*$,&*$%\"xG\"\"#F'%\"kG!\"\"F/F/" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>-%#BLG6$\"\"\"F',$*&%\"xGF',&*$F*\"\"#F'%\"kG!\"\"F/!
\"#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'xprimeG,(%\"xG\"\"\"*&-%#ALG
6$F'\"\"!F'F&\"\"#F'*&F)F'%\"kGF'!\"\"" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#>%(xxprimeG,$*&,(*$%\"xG\"\"#F**&-%#BLG6$\"\"\"\"\"!F/F)F*F/*&F,
F/%\"kGF/!\"\"F/F)F3#F/F*" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"wG\"
\"#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>-%\"AG6#\"\"#,$*&,(%\"xG!\"%*$
F+F'\"\"\"%\"kG!\"\"F.,&F-F.F/F0!\"$F0" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#>-%\"BG6#\"\"#\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"lG\"
\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>-%#ALG6$\"\"\"\"\"#,$*&%\"xGF
',&*$F+F(F'%\"kG!\"\"!\"#F0" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>-%#BLG
6$\"\"\"\"\"#,$*$,&*$%\"xGF(F'%\"kG!\"\"F/F(" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%'xprimeG,$*&,&*$%\"xG\"\"#\"\"\"%\"kGF+F+F)!\"\"#F+F*
" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%(xxprimeG,$%\"xG\"\"#" }}{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#>%\"lG\"\"\"" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#>-%#ALG6$\"\"\"\"\"$*&,(%\"xG!\"%*$F+\"\"#F'%\"k
G!\"\"F',&F-F'F/F0!\"$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>-%#BLG6$\"
\"\"\"\"$\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'xprimeG*(%\"xG\"
\"\",(F&!\"%*$F&\"\"#\"\"$%\"kG!\"$F',(F&F)F*F'F-!\"\"F0" }}{PARA 8 "
" 1 "" {TEXT -1 23 "Error, division by zero" }}}{EXCHG {PARA 0 "> " 0 
"" {MPLTEXT 1 0 0 "" }}}}{MARK "0 8 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 }