{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 }{PSTYLE "" 11 12 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 
0 0 0 0 0 0 0 }1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 547 "y:=f(x);\nA(0,0) :=
 1/y;\nB(0,0) := diff(y,x)/y;\nfor i from 1 to 3 do w := i;\nA(0,w):= \+
simplify(sum('(-1)^(a-1)*y^(a-1)*diff(y,x$w)*y^(w-a+1)*A(0,w-a)/a!','a
'=1..w)/y^(w+1));\nB(0,w):= simplify(sum('(-1)^(a)*y^(a)*diff(y,x$(w+1
))*y^(w-a+1)*A(0,w-a)/a!','a'=1..w)/y^(w+1)); A(l,w) := simplify(sum('
(-1)^(a)*a!*x^(l-a)*y^a*y^(w-a+1)*A(0,w-a)','a'=0..max(w,w))/y^(w+1));
\nB(l,w) := simplify(sum('(-1)^(a)*a!*x^(l-a)*y^a*y^(w-a+1)*B(0,w-a)',
'a'=0..max(w,w))/y^(w+1));\nxprime  := simplify(x - A(l,w-1)/A(l,w));
\nxxprime := simplify(x - B(l,w-1)/B(l,w));\nod;" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%\"yG-%\"fG6#%\"xG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#
>-%\"AG6$\"\"!F'*$-%\"fG6#%\"xG!\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "
6#>-%\"BG6$\"\"!F'*&-%%diffG6$-%\"fG6#%\"xGF/\"\"\"F,!\"\"" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#>%\"wG\"\"\"" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#>-%\"AG6$\"\"!\"\"\"*&-%%diffG6$-%\"fG6#%\"xGF0F(F-!\"#" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>-%\"BG6$\"\"!\"\"\",$*&-%%diffG6$-F,6
$-%\"fG6#%\"xGF3F3F(F0!\"\"F4" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>-%\"
AG6$%\"lG\"\"\"*&,&*&)%\"xGF'F(-%%diffG6$-%\"fG6#F-F-F(F(*&)F-,&F'F(!
\"\"F(F(F1F(F7F(F1!\"#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>-%\"BG6$%\"
lG\"\"\",$*&-%\"fG6#%\"xG!\"\",&*&)F.F'F(-%%diffG6$-F46$F+F.F.F(F(*&)F
.,&F'F(F/F(F(F6F(F(F(F/" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'xprimeG%
\"xG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%(xxprimeG%\"xG" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#>%\"wG\"\"#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>
-%\"AG6$\"\"!\"\"#,$*(-%%diffG6$-F,6$-%\"fG6#%\"xGF3F3\"\"\",&F.!\"#F0
F4F4F0!\"$#!\"\"F(" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>-%\"BG6$\"\"!\"
\"#,$*(-%%diffG6$-F,6$-F,6$-%\"fG6#%\"xGF5F5F5\"\"\"F2!\"#,&F0F7F2F6F6
#F6F(" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>-%\"AG6$%\"lG\"\"#,$*&,**()%
\"xGF'\"\"\"-%%diffG6$-F16$-%\"fG6#F.F.F.F/F3F/F(*(F-F/F5F/F0F/!\"\"*(
)F.,&F'F/F9F/F/F5F/F3F/!\"#*&)F.,&F'F/F=F/F/F5F(\"\"%F/F5!\"$#F/F(" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>-%\"BG6$%\"lG\"\"#,$*&-%\"fG6#%\"xG!
\"#,**()F.F'\"\"\"-%%diffG6$-F56$-F56$F+F.F.F.F3F9F3F/*(F2F3F4F3F+F3F3
*()F.,&F'F3!\"\"F3F3F7F3F+F3F(*()F.,&F'F3F/F3F3F+F3F9F3\"\"%F3#F3F(" }
}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'xprimeG*(%\"xG\"\"\",**(-%%diffG6$
-F+6$-%\"fG6#F&F&F&F'F-F'F&\"\"#F2*(F*F'F/F'F&F2!\"\"*(F/F'F-F'F&F'!\"
%*$F/F2\"\"'F',*F)F2F3F4F5!\"#F7\"\"%F4" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#>%(xxprimeG*(%\"xG\"\"\",**(-%%diffG6$-F+6$-F+6$-%\"fG6#F&F&F&F&
F'F/F'F&\"\"#!\"#*(F*F'F1F'F&F4F'*(F1F'F-F'F&F'\"\"%*&F1F'F/F'\"\"'F',
*F)F5F6F'F7F4F9F8!\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"wG\"\"$
" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>-%\"AG6$\"\"!\"\"$,$*(-%%diffG6$-
F,6$-F,6$-%\"fG6#%\"xGF5F5F5\"\"\",**&F.F6F0F6\"\"'*&F.F6F2F6!\"$*&F2F
6F0F6F;*$F2\"\"#F6F6F2!\"%#F6F9" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>-%
\"BG6$\"\"!\"\"$,$*(-%\"fG6#%\"xG!\"$-%%diffG6$-F16$-F16$-F16$F+F.F.F.
F.\"\"\",**&F5F9F7F9\"\"'*&F5F9F+F9F/*&F+F9F7F9F/*$F+\"\"#F9F9#!\"\"F<
" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>-%\"AG6$%\"lG\"\"$,$*&,2**)%\"xGF
'\"\"\"-%%diffG6$-F16$-F16$-%\"fG6#F.F.F.F.F/F3F/F5F/!\"'**F-F/F0F/F7F
/F3F/F(**F-F/F0F/F7F/F5F/F(*(F-F/F0F/F7\"\"#!\"\"**)F.,&F'F/F?F/F/F7F/
F3F/F5F/\"\"'*(FAF/F7F>F3F/!\"$*()F.,&F'F/!\"#F/F/F7F>F5F/!#7*&)F.,&F'
F/FEF/F/F7F(\"#OF/F7!\"%#F?FC" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>-%\"
BG6$%\"lG\"\"$,$*&-%\"fG6#%\"xG!\"$,2**)F.F'\"\"\"-%%diffG6$-F56$-F56$
-F56$F+F.F.F.F.F3F9F3F;F3\"\"'**F2F3F4F3F9F3F+F3F/**F2F3F4F3F+F3F;F3F/
*(F2F3F4F3F+\"\"#F3**)F.,&F'F3!\"\"F3F3F7F3F+F3F;F3!\"'*(FCF3F7F3F+FAF
(*()F.,&F'F3!\"#F3F3F+FAF9F3\"#7*()F.,&F'F3F/F3F3F+FAF;F3\"#OF3#FEF=" 
}}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%'xprimeG*(%\"xG\"\"\",2**-%%diffG6
$-F+6$-F+6$-%\"fG6#F&F&F&F&F'F-F'F/F'F&\"\"$!\"'**F*F'F-F'F1F'F&F4F4**
F*F'F1F'F/F'F&F4F4*(F*F'F1\"\"#F&F4!\"\"**F1F'F-F'F/F'F&F9\"#7*(F1F9F-
F'F&F9F5*(F1F9F/F'F&F'!#=*$F1F4\"#[F',2F)F5F6F4F7F4F8F:F;\"\"'F=!\"$F>
!#7F@\"#OF:" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%(xxprimeG*(%\"xG\"\"
\",2**-%%diffG6$-F+6$-F+6$-F+6$-%\"fG6#F&F&F&F&F&F'F/F'F1F'F&\"\"$!\"'
**F*F'F/F'F3F'F&F6F6**F*F'F3F'F1F'F&F6F6*(F*F'F3\"\"#F&F6!\"\"**F-F'F3
F'F1F'F&F;\"#7*(F-F'F3F;F&F;F7*(F3F;F/F'F&F'!#=*&F3F;F1F'!#[F',2F)F7F8
F6F9F6F:F<F=\"\"'F?!\"$F@!#7FB!#OF<" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 0 "" }}}}{MARK "1 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 }