{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 667 "y:=x^2-k;\nA(0,0) : = 1/y;\nB(0,0) := diff(y,x)/y;\nfor i from 1 to 2 do w := i;\n#\n# Res ults for A(0,w) verified correct.\n#\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));\n#\n# Results for B(0,w) verified correct.\n#\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)); # \n# Results for A(0,w) \n#\nA(l,w) := simplify(sum('(-1)^(a)*l!*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(0,w)\n#\nB(l,w) := simplify(sum('(-1)^(a)*l!*x^(l-a)*y^a*y^(w-a+1)* B(0,w-a)','a'=0..min(w,w))/y^(w+1));\n#xprime := x - A(l,w-1)/A(l,w); \n#xxprime := x - B(l,w-1)/B(l,w);\nod;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"yG,&*$%\"xG\"\"#\"\"\"%\"kG!\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>-%\"AG6$\"\"!F'*$,&*$%\"xG\"\"#\"\"\"%\"kG!\"\"F/" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>-%\"BG6$\"\"!F',$*&%\"xG\"\"\",&*$F* \"\"#F+%\"kG!\"\"F0F." }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"wG\"\"\" " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>-%\"AG6$\"\"!\"\"\",$*&%\"xGF(,&* $F+\"\"#!\"\"%\"kGF(!\"#F." }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>-%\"BG6 $\"\"!\"\"\",$*$,&*$%\"xG\"\"#!\"\"%\"kGF(F/F." }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>-%\"AG6$%\"lG\"\"\"*(,&)%\"xG,&F'F(F(F(F(*&)F,,&F'F(! \"\"F(F(%\"kGF(F(F(,&*$F,\"\"#F1F2F(!\"#-%&GAMMAG6#F-F(" }}{PARA 11 " " 1 "" {XPPMATH 20 "6#>-%\"BG6$%\"lG\"\"\",$*()%\"xGF'F(,&*$F,\"\"#!\" \"%\"kGF(F0-%&GAMMAG6#,&F'F(F(F(F(\"\"%" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"wG\"\"#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>-%\"AG6$\"\"!\" \"#,$*&,(%\"xG\"\"%*$F,F(!\"\"%\"kG\"\"\"F1,&F.F/F0F1!\"$F/" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>-%\"BG6$\"\"!\"\"#F'" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>-%\"AG6$%\"lG\"\"#,$*(,*)%\"xG,&F'\"\"\"F/F/\"\"%)F-,& F'F/F(F/!\"#*&)F-F'F/%\"kGF/F/*&)F-,&F'F/F3F/F/F6F(F/F/,&*$F-F(!\"\"F6 F/!\"$-%&GAMMAG6#F.F/F<" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>-%\"BG6$% \"lG\"\"#,$*(-%&GAMMAG6#,&F'\"\"\"F/F/F/)%\"xG,&F'F/!\"\"F/F/,&*$F1F(F 3%\"kGF/F3!\"%" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}} {MARK "1 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 }