{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 607 "A(0) := 1/y;y:=f(x) ;\nB(0) := diff(y,x)/y;\nfor i from 1 to 2 do w := i;\nA(w) := simplif y(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)); \nAL(0,0) := A(0); \nBL(0,0) := B(0) ;\nAL(l,0) := A(0); \nBL(l,0) := B(0);\nAL(l,w) := simplify(sum('(-1)^ (a)*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)*a!*x^(l-a)*y^a*y^(w-a+1)*B(w-a)','a'=1..m ax(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#>-%\"AG6#\"\"!*$-%\"fG6#%\"xG!\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"yG-%\"fG6#%\"xG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6# >-%\"BG6#\"\"!*&-%%diffG6$-%\"fG6#%\"xGF/\"\"\"F,!\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"wG\"\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>- %\"AG6#\"\"\"*&-%%diffG6$-%\"fG6#%\"xGF/F'F,!\"#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>-%\"BG6#\"\"\",$*&-%%diffG6$-F+6$-%\"fG6#%\"xGF2F2F'F/ !\"\"F3" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>-%#ALG6$\"\"!F'*$-%\"fG6#% \"xG!\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>-%#BLG6$\"\"!F'*&-%%diff G6$-%\"fG6#%\"xGF/\"\"\"F,!\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>-% #ALG6$%\"lG\"\"!*$-%\"fG6#%\"xG!\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 " 6#>-%#BLG6$%\"lG\"\"!*&-%%diffG6$-%\"fG6#%\"xGF0\"\"\"F-!\"\"" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>-%#ALG6$%\"lG\"\"\",$*&)%\"xG,&F'F(! \"\"F(F(-%\"fG6#F,F.F." }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>-%#BLG6$%\" lG\"\"\",$*()%\"xG,&F'F(!\"\"F(F(-%\"fG6#F,F.-%%diffG6$F/F,F(F." }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%'xprimeG,&%\"xG\"\"\")F&,&%\"lG!\"\" F'F'F'" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%(xxprimeG,&%\"xG\"\"\")F&, &%\"lG!\"\"F'F'F'" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"wG\"\"#" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>-%\"AG6#\"\"#,$*(-%%diffG6$-F+6$-%\"f G6#%\"xGF2F2\"\"\",&F-!\"#F/F3F3F/!\"$#!\"\"F'" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>-%\"BG6#\"\"#,$*(-%%diffG6$-F+6$-F+6$-%\"fG6#%\"xGF4F4 F4\"\"\"F1!\"#,&F/F6F1F5F5#F5F'" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>-% #ALG6$\"\"!F'*$-%\"fG6#%\"xG!\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#> -%#BLG6$\"\"!F'*&-%%diffG6$-%\"fG6#%\"xGF/\"\"\"F,!\"\"" }}{PARA 11 " " 1 "" {XPPMATH 20 "6#>-%#ALG6$%\"lG\"\"!*$-%\"fG6#%\"xG!\"\"" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>-%#BLG6$%\"lG\"\"!*&-%%diffG6$-%\"fG6 #%\"xGF0\"\"\"F-!\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>-%#ALG6$%\"l G\"\"#*&-%\"fG6#%\"xG!\"#,&*&)F-,&F'\"\"\"!\"\"F3F3-%%diffG6$F*F-F3F4* &)F-,&F'F3F.F3F3F*F3F(F3" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>-%#BLG6$% \"lG\"\"#*&-%\"fG6#%\"xG!\"\",&*&)F-,&F'\"\"\"F.F3F3-%%diffG6$-F56$F*F -F-F3F3*&)F-,&F'F3!\"#F3F3F7F3F(F3" }}{PARA 11 "" 1 "" {XPPMATH 20 "6# >%'xprimeG*(%\"xG\"\"\",&*&F&F'-%%diffG6$-%\"fG6#F&F&F'!\"\"F-\"\"$F', &F)F0F-\"\"#F0" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%(xxprimeG*(%\"xG\" \"\",&*&-%%diffG6$-F+6$-%\"fG6#F&F&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 }