{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 694 "f:=y=x*x-c; A(0,0) \+
:= 1/y;\nB(0,0) := diff(y,x)/y;\nfor i from 1 to 3 do w := i;\n# Resul
ts for A(0,w) verified correct.\nA(0,w):= simplify(sum('(-1)^(a-1)*y^(
a-1)*implicitdiff(f,y,x$w)*y^(w-a+1)*A(0,w-a)/a!','a'=1..w)/y^(w+1));#
\n# Results for B(0,w) verified correct.\nB(0,w):= simplify(sum('(-1)^
(a)*y^(a)*implicitdiff(f,y,x$(w+1))*y^(w-a+1)*A(0,w-a)/a!','a'=1..w)/y
^(w+1)); #\n# Results for A(l,w) \nA(l,w) := simplify(sum('(-1)^(a)*(l
!/(l-a)!)*x^(l-a)*y^a*y^(w-a+1)*A(0,w-a)','a'=0..min(w,w))/y^(w+1));\n
#\n# Results for B(l,w)\nB(l,w) := simplify(sum('(-1)^(a)*(l!/(l-a)!)*
x^(l-a)*y^a*y^(w-a+1)*B(0,w-a)','a'=0..min(w,w))/y^(w+1));\nxprime  :=
 x - A(l,w-1)/A(l,w);\nxxprime := x - B(l,w-1)/B(l,w);\nod;" }}{PARA 
0 "> " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"fG/%\"yG,&*$%\"xG\"\"#\"\"\"%\"cG!
\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>-%\"AG6$\"\"!F'*$%\"yG!\"\"" 
}}{PARA 11 "" 1 "" {XPPMATH 20 "6#>-%\"BG6$\"\"!F'F'" }}{PARA 11 "" 1 
"" {XPPMATH 20 "6#>%\"wG\"\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>-%
\"AG6$\"\"!\"\"\",$*&%\"xGF(%\"yG!\"#\"\"#" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>-%\"BG6$\"\"!\"\"\",$*$%\"yG!\"\"!\"#" }}{PARA 11 "" 
1 "" {XPPMATH 20 "6#>-%\"AG6$%\"lG\"\"\",$*&,&)%\"xG,&F'F(F(F(!\"#*(F'
F()F-,&F'F(!\"\"F(F(%\"yGF(F(F(F4F/F3" }}{PARA 11 "" 1 "" {XPPMATH 20 
"6#>-%\"BG6$%\"lG\"\"\",$*&)%\"xGF'F(%\"yG!\"\"!\"#" }}{PARA 11 "" 1 "
" {XPPMATH 20 "6#>%'xprimeG,&%\"xG\"\"\"*(-%\"AG6$%\"lG\"\"!F',&)F&,&F
,F'F'F'!\"#*(F,F')F&,&F,F'!\"\"F'F'%\"yGF'F'F5F6\"\"#F'" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#>%(xxprimeG,&%\"xG\"\"\"*(-%\"BG6$%\"lG\"\"!F')F
&F,!\"\"%\"yGF'#F'\"\"#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"wG\"\"#
" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>-%\"AG6$\"\"!\"\"#*&,&%\"xG\"\"%%
\"yG!\"\"\"\"\"F-!\"$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>-%\"BG6$\"\"
!\"\"#F'" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>-%\"AG6$%\"lG\"\"#*&,,)%
\"xG,&F'\"\"\"F.F.\"\"%*&)F,F'F.%\"yGF.!\"\"*(F'F.F1F.F2F.!\"#*(F'F()F
,,&F'F.F5F.F.F2F(F.*(F'F.F7F.F2F(F3F.F2!\"$" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>-%\"BG6$%\"lG\"\"#,$*(F'\"\"\")%\"xG,&F'F+!\"\"F+F+%\"
yGF/F(" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'xprimeG,&%\"xG\"\"\"*(,&)
F&,&%\"lGF'F'F'!\"#*(F,F')F&,&F,F'!\"\"F'F'%\"yGF'F'F'F2F',,F*\"\"%*&)
F&F,F'F2F'F1*(F,F'F6F'F2F'F-*(F,\"\"#)F&,&F,F'F-F'F'F2F9F'*(F,F'F:F'F2
F9F1F1F'" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%(xxprimeG,&%\"xG\"\"\"*(
)F&%\"lGF'F*!\"\")F&,&F*F'F+F'F+F'" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#
>%\"wG\"\"$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>-%\"AG6$\"\"!\"\"$F'" 
}}{PARA 11 "" 1 "" {XPPMATH 20 "6#>-%\"BG6$\"\"!\"\"$F'" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#>-%\"AG6$%\"lG\"\"$,$*(F'\"\"\"%\"yG!\"$,.)%\"xG
F'\"\"%*&)F0,&F'F+!\"\"F+F+F,F+F+*(F'F+F3F+F,F+!\"#*()F0,&F'F+F-F+F+F,
\"\"#F'F;F+*(F9F+F,F;F'F+F-*&F9F+F,F;F;F+F5" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>-%\"BG6$%\"lG\"\"$,$**,&F'\"\"\"!\"\"F,F,F'F,)%\"xG,&F
'F,!\"#F,F,%\"yGF-F1" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'xprimeG,&%
\"xG\"\"\"*(,,)F&,&%\"lGF'F'F'\"\"%*&)F&F,F'%\"yGF'!\"\"*(F,F'F/F'F0F'
!\"#*(F,\"\"#)F&,&F,F'F3F'F'F0F5F'*(F,F'F6F'F0F5F1F'F,F1,.F/F-*&)F&,&F
,F'F1F'F'F0F'F'*(F,F'F;F'F0F'F3*()F&,&F,F'!\"$F'F'F0F5F,F5F'*(F?F'F0F5
F,F'FA*&F?F'F0F5F5F1F'" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%(xxprimeG,
&%\"xG\"\"\"*()F&,&%\"lGF'!\"\"F'F'F*F,)F&,&F+F'!\"#F'F,F'" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "1 0 0" 0 }{VIEWOPTS 1 
1 0 1 1 1803 }