{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 688 "f:=y=exp(x)-c;\nA(0
,0) := 1/y;\nB(0,0) := implicitdiff(f,y,x)/y;\nfor i from 1 to 5 do w \+
:= i;\nA(0,w):= simplify(sum('(-1)^(a-1)*y^(a-1)*implicitdiff(f,y,x$a)
*y^(w-a+1)*A(0,w-a)/a!','a'=1..w)/y^(w+1));B(0,w):= simplify(sum('(-1)
^(a)*y^(a)*implicitdiff(f,y,x$(a+1))*y^(w-a+1)*A(0,w-a)/a!','a'=0..w)/
y^(w+1));A(l,0) := simplify(x^l*y*A(0,0)/y);\nB(l,0) := simplify(x^l*y
*B(0,0)/y);\nA(l,w) := simplify(sum('(-1)^(a)*l!/(a!*(l-a)!)*x^(l-a)*y
^a*y^(w-a+1)*A(0,w-a)','a'=0..w)/y^(w+1));\nB(l,w) := simplify(sum('(-
1)^(a)*l!/(a!*(l-a)!)*x^(l-a)*y^a*y^(w-a+1)*B(0,w-a)','a'=0..w)/y^(w+1
));\nif i = 5 then l := 0 fi; xprimeA := x - simplify(A(l,w-1)/A(l,w))
;\nxprimeB := x - simplify(B(l,w-1)/B(l,w));\nod;" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%\"fG/%\"yG,&-%$expG6#%\"xG\"\"\"%\"cG!\"\"" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#>-%\"AG6$\"\"!F'*$%\"yG!\"\"" }}{PARA 11 "" 
1 "" {XPPMATH 20 "6#>-%\"BG6$\"\"!F'*&-%$expG6#%\"xG\"\"\"%\"yG!\"\"" 
}}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"wG\"\"\"" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>-%\"AG6$\"\"!\"\"\"*&-%$expG6#%\"xGF(%\"yG!\"#" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>-%\"BG6$\"\"!\"\"\"*(-%$expG6#%\"xGF(
,&F*F(%\"yG!\"\"F(F/!\"#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>-%\"AG6$
\"\"!F'*$%\"yG!\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>-%\"BG6$\"\"!F
'*&-%$expG6#%\"xG\"\"\"%\"yG!\"\"" }}{PARA 8 "" 1 "" {TEXT -1 64 "Erro
r, (in sum) the argument to factorial should be non-negative" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "0 0 0" 0 }
{VIEWOPTS 1 1 0 1 1 1803 }