{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 Comment" 2 18 "" 0 1 0 0 0 0 0 0 0 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 }{CSTYLE "
" 0 21 "" 0 1 0 0 0 1 0 0 0 0 2 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 }{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 0 21 1 "#" }}{PARA 0 "" 0 "" 
{MPLTEXT 0 21 31 "# inicio del fichero RKUT33.MWS" }}{PARA 0 "" 0 "" 
{MPLTEXT 0 21 1 "#" }}{PARA 0 "" 0 "" {MPLTEXT 0 21 45 "# modelo para \+
estudiar metodos de Runge-Kutta" }}{PARA 0 "" 0 "" {MPLTEXT 0 21 50 "#
 de tres evaluaciones k1, k2 y k3 y orden 3 para " }}{PARA 0 "" 0 "" 
{MPLTEXT 0 21 57 "# ecuaciones escalares aut\363nomas (EA), no aut\363
nomas (EN) " }}{PARA 0 "" 0 "" {MPLTEXT 0 21 53 "# y para sistemas aut
\363nomos (SA) y no aut\363nomos (SN)." }}{PARA 0 "" 0 "" {MPLTEXT 0 
21 37 "# Empezaremos con metodos explicitos." }}{PARA 0 "" 0 "" 
{MPLTEXT 0 21 1 "#" }}{PARA 0 "" 0 "" {MPLTEXT 0 21 36 "# Empezamos co
n una ecuaci\363n escalar" }}{PARA 0 "" 0 "" {MPLTEXT 0 21 28 "#      \+
yp = f(x,y) , y(a) = " }{XPPEDIT 18 0 "alpha" "I&alphaG6\"" }{MPLTEXT 
0 21 2 "  " }}{PARA 0 "" 0 "" {MPLTEXT 0 21 8 "# o bien" }}{PARA 0 "" 
0 "" {MPLTEXT 0 21 26 "#      yp = f(y) , y(a) = " }{XPPEDIT 18 0 "alp
ha" "I&alphaG6\"" }{MPLTEXT 0 21 15 "               " }}{PARA 0 "" 0 "
" {MPLTEXT 0 21 23 "# en el caso aut\363nomo. " }}{PARA 0 "" 0 "" 
{MPLTEXT 0 21 16 "# El m\351todo es  " }}{PARA 0 "" 0 "" {MPLTEXT 0 
21 19 "#      k1:=f(x0,y0)" }}{PARA 0 "" 0 "" {MPLTEXT 0 21 38 "#     \+
 k2:=f(x0+c[2]*h,y0+a[2,1]*h*k1)" }}{PARA 0 "" 0 "" {MPLTEXT 0 21 50 "
#      k3:=f(x0+c[3]*h,y0+a[3,1]*h*k1+a[3,2]*h*k2)" }}{PARA 0 "" 0 "" 
{MPLTEXT 0 21 14 "# y finalmente" }}{PARA 0 "" 0 "" {MPLTEXT 0 21 41 "
#      y1:=y0+h*(b[1]*k1+b[2]*k2+b[3]*k3)" }}{PARA 0 "" 0 "" {MPLTEXT 
0 21 28 "# o sea Fi0 que representa  " }{XPPEDIT 18 0 "Phi(h)" "-%$Phi
G6#%\"hG" }{MPLTEXT 0 21 3 " = " }{XPPEDIT 18 0 "Phi(x0,y0,h)" "-%$Phi
G6%%#x0G%#y0G%\"hG" }{MPLTEXT 0 21 4 "  es" }}{PARA 0 "" 0 "" 
{MPLTEXT 0 21 36 "#      Fi0:=b[1]*k1+b[2]*k2+b[3]*k3 " }}{PARA 0 "" 
0 "" {MPLTEXT 0 21 47 "# y Fi1, Fi2, son sus derivadas sucesivas,     \+
" }}{PARA 0 "" 0 "" {MPLTEXT 0 21 54 "# mientras que, por la parte de \+
la verdadera soluci\363n," }}{PARA 0 "" 0 "" {MPLTEXT 0 21 22 "# fk  q
ue representa  " }{XPPEDIT 18 0 "f^([k])" ")%\"fG7#%\"kG" }{MPLTEXT 0 
21 14 " (x0,y0)  vale" }}{PARA 0 "" 0 "" {MPLTEXT 0 21 57 "#      f(k+
1):=diff(fk,x):=D[1](fk)+f0*D[2](fk)          " }}{PARA 0 "" 0 "" 
{MPLTEXT 0 21 58 "# Para las condiciones de orden, lo que se hace es i
mponer" }}{PARA 0 "" 0 "" {MPLTEXT 0 21 16 "# sucesivamente " }}{PARA 
0 "" 0 "" {MPLTEXT 0 21 16 "#      Fik(0) = " }{XPPEDIT 18 0 "1/(k+1)
" "*&\"\"\"F#,&%\"kGF#F#F#!\"\"" }{MPLTEXT 0 21 4 " fk " }}{PARA 0 "" 
0 "" {MPLTEXT 0 21 27 "# en este caso para k=0,1,2" }}{PARA 0 "" 0 "" 
{MPLTEXT 0 21 43 "# Para el t\351rmino del error se calculan los" }}
{PARA 0 "" 0 "" {MPLTEXT 0 21 40 "# distintos coeficientes que aparece
n en" }}{PARA 0 "" 0 "" {MPLTEXT 0 21 7 "#      " }{XPPEDIT 18 0 "1/(3
!)" "*&\"\"\"F#-%*factorialG6#\"\"$!\"\"" }{MPLTEXT 0 21 10 " Fi3(0) -
 " }{XPPEDIT 18 0 "1/(4!)" "*&\"\"\"F#-%*factorialG6#\"\"%!\"\"" }
{MPLTEXT 0 21 19 " f3                " }}{PARA 0 "" 0 "" {MPLTEXT 0 
21 28 "# para el orden 3 del m\351todo" }}{PARA 0 "" 0 "" {MPLTEXT 0 
21 1 "#" }}{PARA 0 "" 0 "" {MPLTEXT 0 21 40 "# Para sistemas aut\363no
mos y no aut\363nomos" }}{PARA 0 "" 0 "" {MPLTEXT 0 21 45 "# todo es s
imilar, pero ahora las condiciones" }}{PARA 0 "" 0 "" {MPLTEXT 0 21 
19 "#      Fik(0)[i] = " }{XPPEDIT 18 0 "1/(k+1)" "*&\"\"\"F#,&%\"kGF#
F#F#!\"\"" }{MPLTEXT 0 21 37 " fk[i]                               " }
}{PARA 0 "" 0 "" {MPLTEXT 0 21 41 "# y los coeficientes del t\351rmino
 de error" }}{PARA 0 "" 0 "" {MPLTEXT 0 21 57 "# se imponen s\363lo so
bre la primera componente i=1, ya que" }}{PARA 0 "" 0 "" {MPLTEXT 0 
21 26 "# las otras son id\351nticas " }}{PARA 0 "" 0 "" {MPLTEXT 0 21 
1 "#" }}}{EXCHG {PARA 0 "" 0 "" {MPLTEXT 0 21 35 "# PARA ECUACIONES NO
 AUTONOMAS (EN)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart:
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "interface(labeling=fals
e):" }}}{EXCHG {PARA 0 "" 0 "" {MPLTEXT 0 21 37 "# desarrollo de la ve
rdadera solucion" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "y:=unap
ply(y(x),x):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "f:=unapply(
f(x,y),x,y):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "f0:=f(x,y(x
)):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 44 "f1:=subs(diff(y(x),x
)=f(x,y(x)),diff(f0,x)):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 44 
"f2:=subs(diff(y(x),x)=f(x,y(x)),diff(f1,x)):" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 44 "f3:=subs(diff(y(x),x)=f(x,y(x)),diff(f2,x)):" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 45 "f0:=subs(\{y(x)=y0,x=x0\},f
0):ENf0:=expand(f0);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%ENf0G-%\"fG
6$%#x0G%#y0G" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 45 "f1:=subs(\{
y(x)=y0,x=x0\},f1):ENf1:=expand(f1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "
6#>%%ENf1G,&--&%\"DG6#\"\"\"6#%\"fG6$%#x0G%#y0GF+*&--&F)6#\"\"#F,F.F+-
F-F.F+F+" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 45 "f2:=subs(\{y(x)
=y0,x=x0\},f2):ENf2:=expand(f2);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%
%ENf2G,,--&%\"DG6$\"\"\"F+6#%\"fG6$%#x0G%#y0GF+*&--&F)6$F+\"\"#F,F.F+-
F-F.F+F6*&--&F)6$F6F6F,F.F+F7F6F+*&--&F)6#F6F,F.F+--&F)6#F+F,F.F+F+*&F
>F6F7F+F+" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 45 "f3:=subs(\{y(x
)=y0,x=x0\},f3):ENf3:=expand(f3);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>
%%ENf3G,8--&%\"DG6%\"\"\"F+F+6#%\"fG6$%#x0G%#y0GF+*&--&F)6%F+F+\"\"#F,
F.F+-F-F.F+\"\"$*&--&F)6%F+F6F6F,F.F+F7F6F8*&--&F)6$F+F6F,F.F+--&F)6#F
+F,F.F+F8*(F?F+--&F)6#F6F,F.F+F7F+\"\"&*&--&F)6%F6F6F6F,F.F+F7F8F+*(F7
F+--&F)6$F6F6F,F.F+FCF+F8*(FSF+FHF+F7F6\"\"%*&FHF+--&F)6$F+F+F,F.F+F+*
&FHF6FCF+F+*&FHF8F7F+F+" }}}{EXCHG {PARA 0 "" 0 "" {MPLTEXT 0 21 23 "#
 desarrollo del m\351todo" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
12 "k10:=f(x,y):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "k20:=f(
x+c[2]*h,y+a[2,1]*h*k10):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
45 "k30:=f(x+c[3]*h,y+a[3,1]*h*k10+a[3,2]*h*k20):" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 20 "k100:=subs(h=0,k10):" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 20 "k200:=subs(h=0,k20):" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 20 "k300:=subs(h=0,k30):" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 81 "Fi0:=b[1]*k100+b[2]*k200+b[3]*k300:Fi0:=subs(\{x=x0
,y=y0\},Fi0):ENFi0:=expand(Fi0);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%
&ENFi0G,(*&&%\"bG6#\"\"\"F*-%\"fG6$%#x0G%#y0GF*F**&&F(6#\"\"#F*F+F*F**
&&F(6#\"\"$F*F+F*F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "k11:
=diff(k10,h):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "k21:=diff(
k20,h):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "k31:=diff(k30,h)
:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "k110:=subs(h=0,k11):" 
}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "k210:=subs(h=0,k21):" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "k310:=subs(h=0,k31):" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 81 "Fi1:=b[1]*k110+b[2]*k210+b[3
]*k310:Fi1:=subs(\{x=x0,y=y0\},Fi1):ENFi1:=expand(Fi1);" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#>%&ENFi1G,,*(&%\"bG6#\"\"#\"\"\"--&%\"DG6#F+6#%
\"fG6$%#x0G%#y0GF+&%\"cGF)F+F+**F'F+--&F/F)F1F3F+&%\"aG6$F*F+F+-F2F3F+
F+*(&F(6#\"\"$F+F,F+&F7FBF+F+**FAF+F9F+&F=6$FCF+F+F?F+F+**FAF+F9F+&F=6
$FCF*F+F?F+F+" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "k12:=diff(
k11,h):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "k22:=diff(k21,h)
:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "k32:=diff(k31,h):" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "k120:=subs(h=0,k12):" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "k220:=subs(h=0,k22):" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "k320:=subs(h=0,k32):" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 81 "Fi2:=b[1]*k120+b[2]*k220+b[3
]*k320:Fi2:=subs(\{x=x0,y=y0\},Fi2):ENFi2:=expand(Fi2);" }}{PARA 12 "
" 1 "" {XPPMATH 20 "6#>%&ENFi2G,8*(&%\"bG6#\"\"#\"\"\"--&%\"DG6$F+F+6#
%\"fG6$%#x0G%#y0GF+&%\"cGF)F*F+*,F'F+F6F+--&F/6$F+F*F1F3F+&%\"aG6$F*F+
F+-F2F3F+F***F'F+F=F*F@F*--&F/6$F*F*F1F3F+F+*(&F(6#\"\"$F+F,F+&F7FHF*F
+*,FGF+FJF+F9F+&F>6$FIF+F+F@F+F**,FGF+FJF+F9F+&F>6$FIF*F+F@F+F***FGF+F
BF+FLF*F@F*F+*,FGF+FBF+FLF+F@F*FOF+F***FGF+FBF+FOF*F@F*F+*,FGF+--&F/F)
F1F3F+FOF+--&F/6#F+F1F3F+F6F+F**,FGF+FUF*FOF+F=F+F@F+F*" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "k13:=diff(k12,h):" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 17 "k23:=diff(k22,h):" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 17 "k33:=diff(k32,h):" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 20 "k130:=subs(h=0,k13):" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 20 "k230:=subs(h=0,k23):" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 20 "k330:=subs(h=0,k33):" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 81 "Fi3:=b[1]*k130+b[2]*k230+b[3]*k330:Fi3:=subs(\{x=x0,y
=y0\},Fi3):ENFi3:=expand(Fi3);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%&E
NFi3G,P*(&%\"bG6#\"\"#\"\"\"--&%\"DG6%F+F+F+6#%\"fG6$%#x0G%#y0GF+&%\"c
GF)\"\"$F+*,F'F+F6F*--&F/6%F+F+F*F1F3F+&%\"aG6$F*F+F+-F2F3F+F8*,F'F+F6
F+F>F*FAF*--&F/6%F+F*F*F1F3F+F8**F'F+F>F8FAF8--&F/6%F*F*F*F1F3F+F+*,&F
(6#F8F+FHF+&F?6$F8F+F+FAF8&F?6$F8F*F*F8*0FMF+--&F/6$F*F*F1F3F+FQF+--&F
/6#F+F1F3F+F6F+FOF+FAF+\"\"'*.FMF+FTF+FQF*FXF+F6F+FAF+Ffn*0FMF+FTF+FQF
+--&F/F)F1F3F+F>F+FAF*FOF+Ffn*.FMF+FTF+FQF*FinF+F>F+FAF*Ffn*,FMF+FinF+
FQF+--&F/6$F+F+F1F3F+F6F*F8*0FMF+FinF+FQF+F6F+--&F/6$F+F*F1F3F+F>F+FAF
+Ffn*.FMF+FinF+FQF+F>F*FAF*FTF+F8*,FMF+&F7FNF*F:F+FOF+FAF+F8*,FMF+FioF
*F:F+FQF+FAF+F8*,FMF+FioF+FCF+FOF*FAF*F8*.FMF+FioF+FCF+FOF+FAF*FQF+Ffn
*,FMF+FioF+FCF+FQF*FAF*F8*.FMF+FioF+FcoF+FQF+FXF+F6F+Ffn*0FMF+FioF+Fco
F+FQF+FinF+F>F+FAF+Ffn*,FMF+FHF+FOF*FAF8FQF+F8**FMF+FHF+FOF8FAF8F+**FM
F+FHF+FQF8FAF8F+*(FMF+F,F+FioF8F+" }}}{EXCHG {PARA 0 "" 0 "" {MPLTEXT 
0 21 24 "# consistencia y orden 1" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 53 "ENcond1a:=coeff(ENFi0,f(x0,y0))=coeff(ENf0,f(x0,y0));
" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%)ENcond1aG/,(&%\"bG6#\"\"\"F*&F(
6#\"\"#F*&F(6#\"\"$F*F*" }}}{EXCHG {PARA 0 "" 0 "" {MPLTEXT 0 21 29 "#
 condiciones para el orden 2" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 71 "ENcond2a:=coeff(ENFi1,D[1](f)(x0,y0))=coeff((1/2)*ENf1,D[1](f)(x
0,y0));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%)ENcond2aG/,&*&&%\"bG6#\"
\"#\"\"\"&%\"cGF*F,F,*&&F)6#\"\"$F,&F.F1F,F,#F,F+" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 103 "ENcond2b:=coeff(coeff(ENFi1,D[2](f)(x0,y0))
,f(x0,y0))=coeff(coeff((1/2)*ENf1,D[2](f)(x0,y0)),f(x0,y0));" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#>%)ENcond2bG/,(*&&%\"bG6#\"\"#\"\"\"&%\"aG6$
F+F,F,F,*&&F)6#\"\"$F,&F.6$F3F,F,F,*&F1F,&F.6$F3F+F,F,#F,F+" }}}
{EXCHG {PARA 0 "" 0 "" {MPLTEXT 0 21 29 "# condiciones para el orden 3
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 75 "ENcond3a:=coeff(ENFi2,D
[1,1](f)(x0,y0))=coeff((1/3)*ENf2,D[1,1](f)(x0,y0));" }}{PARA 11 "" 1 
"" {XPPMATH 20 "6#>%)ENcond3aG/,&*&&%\"bG6#\"\"#\"\"\"&%\"cGF*F+F,*&&F
)6#\"\"$F,&F.F1F+F,#F,F2" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
107 "ENcond3b:=coeff(coeff(ENFi2,D[1,2](f)(x0,y0)),f(x0,y0))=coeff(coe
ff((1/3)*ENf2,D[1,2](f)(x0,y0)),f(x0,y0));" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%)ENcond3bG/,(*(&%\"bG6#\"\"#\"\"\"&%\"cGF*F,&%\"aG6$F
+F,F,F+*(&F)6#\"\"$F,&F.F4F,&F06$F5F,F,F+*(F3F,F6F,&F06$F5F+F,F+#F+F5
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 111 "ENcond3c:=coeff(coeff(
ENFi2,D[2,2](f)(x0,y0)),f(x0,y0)^2)=coeff(coeff((1/3)*ENf2,D[2,2](f)(x
0,y0)),f(x0,y0)^2);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%)ENcond3cG/,*
*&&%\"bG6#\"\"#\"\"\"&%\"aG6$F+F,F+F,*&&F)6#\"\"$F,&F.6$F3F,F+F,*(F1F,
F4F,&F.6$F3F+F,F+*&F1F,F7F+F,#F,F3" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 115 "ENcond3d:=coeff(coeff(ENFi2,D[2](f)(x0,y0)),D[1](f)(
x0,y0))=coeff(coeff((1/3)*ENf2,D[2](f)(x0,y0)),D[1](f)(x0,y0));" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%)ENcond3dG/,$*(&%\"bG6#\"\"$\"\"\"&%
\"aG6$F+\"\"#F,&%\"cG6#F0F,F0#F,F+" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 107 "ENcond3e:=coeff(coeff(ENFi2,D[2](f)(x0,y0)^2),f(x0,y
0))=coeff(coeff((1/3)*ENf2,D[2](f)(x0,y0)^2),f(x0,y0));" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#>%)ENcond3eG/,$*(&%\"bG6#\"\"$\"\"\"&%\"aG6$F+\"
\"#F,&F.6$F0F,F,F0#F,F+" }}}{EXCHG {PARA 0 "" 0 "" {MPLTEXT 0 21 34 "#
 coeficiente del t\351rmino de error" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 41 "ENterm:=expand((1/3!)*ENFi3-(1/4!)*ENf3):" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 43 "ENerro4a:=coeff(ENterm,D[1,1,1](f)(
x0,y0));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%)ENerro4aG,(*&&%\"bG6#\"
\"#\"\"\"&%\"cGF)\"\"$#F+\"\"'#!\"\"\"#CF+*&&F(6#F.F+&F-F6F.F/" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 59 "ENerro4b:=coeff(coeff(ENterm
,D[1,1,2](f)(x0,y0)),f(x0,y0));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%)
ENerro4bG,**(&%\"bG6#\"\"$\"\"\"&%\"cGF)\"\"#&%\"aG6$F*F+F+#F+F.*(F'F+
F,F.&F06$F*F.F+F2*(&F(6#F.F+&F-F8F.&F06$F.F+F+F2#!\"\"\"\")F+" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 61 "ENerro4c:=coeff(coeff(ENterm
,D[1,2,2](f)(x0,y0)),f(x0,y0)^2);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>
%)ENerro4cG,,#!\"\"\"\")\"\"\"*(&%\"bG6#\"\"$F)&%\"cGF-F)&%\"aG6$F.F)
\"\"##F)F4**F+F)F/F)F1F)&F26$F.F4F)F)*(F+F)F/F)F7F4F5*(&F,6#F4F)&F0F<F
)&F26$F4F)F4F5" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 63 "ENerro4d:
=coeff(coeff(ENterm,D[1,2](f)(x0,y0)),D[1](f)(x0,y0));" }}{PARA 11 "" 
1 "" {XPPMATH 20 "6#>%)ENerro4dG,&**&%\"bG6#\"\"$\"\"\"&%\"cGF)F+&%\"a
G6$F*\"\"#F+&F-6#F1F+F+#!\"\"\"\")F+" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 79 "ENerro4e:=coeff(coeff(coeff(ENterm,D[1,2](f)(x0,y0)),
D[2](f)(x0,y0)),f(x0,y0));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%)ENerr
o4eG,(#!\"&\"#C\"\"\"**&%\"bG6#\"\"$F)&%\"cGF-F)&%\"aG6$F.\"\"#F)&F26$
F4F)F)F)**F+F)F1F)&F06#F4F)F5F)F)" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 61 "ENerro4f:=coeff(coeff(ENterm,D[2,2,2](f)(x0,y0)),f(x0
,y0)^3);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%)ENerro4fG,.#!\"\"\"#C\"
\"\"*(&%\"bG6#\"\"$F)&%\"aG6$F.F)F)&F06$F.\"\"#F4#F)F4*(F+F)F/F4F2F)F5
*&F+F)F/F.#F)\"\"'*&F+F)F2F.F8*&&F,6#F4F)&F06$F4F)F.F8" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 79 "ENerro4g:=coeff(coeff(coeff(ENterm,
D[2,2](f)(x0,y0)),D[1](f)(x0,y0)),f(x0,y0));" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%)ENerro4gG,(#!\"\"\"\")\"\"\"**&%\"bG6#\"\"$F)&%\"aG6
$F.\"\"#F)&%\"cG6#F2F)&F06$F.F)F)F)*(F+F)F/F2F3F)F)" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 81 "ENerro4h:=coeff(coeff(coeff(ENterm,D[2,2]
(f)(x0,y0)),D[2](f)(x0,y0)),f(x0,y0)^2);" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#>%)ENerro4hG,*#!\"\"\"\"'\"\"\"*(&%\"bG6#\"\"$F)&%\"aG6$F.\"\"#F
)&F06$F2F)F2#F)F2**F+F)F/F)F3F)&F06$F.F)F)F)*(F+F)F/F2F3F)F)" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 63 "ENerro4i:=coeff(coeff(ENterm
,D[1,1](f)(x0,y0)),D[2](f)(x0,y0));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6
#>%)ENerro4iG,&#!\"\"\"#C\"\"\"*(&%\"bG6#\"\"$F)&%\"aG6$F.\"\"#F)&%\"c
G6#F2F2#F)F2" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 63 "ENerro4j:=c
oeff(coeff(ENterm,D[1](f)(x0,y0)),D[2](f)(x0,y0)^2);" }}{PARA 11 "" 1 
"" {XPPMATH 20 "6#>%)ENerro4jG#!\"\"\"#C" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 57 "ENerro4k:=coeff(coeff(ENterm,D[2](f)(x0,y0)^3),f(x0,y
0));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%)ENerro4kG#!\"\"\"#C" }}}
{EXCHG {PARA 0 "" 0 "" {MPLTEXT 0 21 28 "# soluciones para el orden 3
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 131 "ENsolve331:=solve(\{EN
cond1a,ENcond2a,ENcond2b,ENcond3a,ENcond3b,ENcond3c,ENcond3d,ENcond3e
\},\{b[1],b[2],b[3],a[2,1],a[3,1],a[3,2]\});" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%+ENsolve331G<(/&%\"bG6#\"\"$,$*(,&&%\"cG6#\"\"#F*!\"#
\"\"\"F3&F/F)!\"\",&F.F3F4F5F5#F3\"\"'/&%\"aG6$F*F1**F4F3F6F3F.F5F-F5/
&F;6$F*F3**F4F3,(F.!\"$F4F3*$F.F1F*F3F.F5F-F5/&F;6$F1F3F./&F(6#F3,$*(,
*F.FC*&F.F3F4F3F8F1F3F4FCF3F.F5F4F5F7/&F(F0,$*(,&F2F3F4F*F3F6F5F.F5#F5
F8" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 100 "ENsolve332:=solve(\{
ENcond1a,ENcond2a,ENcond2b,ENcond3a,ENcond3b,ENcond3c,ENcond3d,ENcond3
e,c[2]=0\});" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%+ENsolve332G6\"" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 100 "ENsolve333:=solve(\{ENcond1
a,ENcond2a,ENcond2b,ENcond3a,ENcond3b,ENcond3c,ENcond3d,ENcond3e,c[3]=
0\});" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%+ENsolve333G<*/&%\"aG6$\"\"
#\"\"\"#F*\"\"$/&%\"bG6#F-F//&F06#F*#F-\"\"%/&F(6$F-F*,$*$F/!\"\"#F+F6
/&F06#F+,&F=F+F/F</&F(6$F-F+,$F;#F<F6/&%\"cGF4F,/&FIF1\"\"!" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 107 "ENsolve334:=solve(\{ENcond1
a,ENcond2a,ENcond2b,ENcond3a,ENcond3b,ENcond3c,ENcond3d,ENcond3e,3*c[2
]-2=0\})[1];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%+ENsolve334G<*/&%\"a
G6$\"\"#\"\"\"#F*\"\"$/&%\"bG6#F-F//&F06#F*#F-\"\"%/&F(6$F-F*,$*$F/!\"
\"#F+F6/&F06#F+,&F=F+F/F</&F(6$F-F+,$F;#F<F6/&%\"cGF4F,/&FIF1\"\"!" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 107 "ENsolve335:=solve(\{ENcond
1a,ENcond2a,ENcond2b,ENcond3a,ENcond3b,ENcond3c,ENcond3d,ENcond3e,3*c[
2]-2=0\})[2];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%+ENsolve335G<*/&%\"
aG6$\"\"#\"\"\"#F*\"\"$/&%\"bG6#F-F//&%\"cGF1F,/&F(6$F-F*,$*$F/!\"\"#F
+\"\"%/&F46#F*F,/&F0F?,&F/F:#F-F<F+/&F(6$F-F+,$*&,&!\"$F+F/\"\")F+F/F:
#F+\"#7/&F06#F+F;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 103 "ENsol
ve336:=solve(\{ENcond1a,ENcond2a,ENcond2b,ENcond3a,ENcond3b,ENcond3c,E
Ncond3d,ENcond3e,c[2]=c[3]\});" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%+E
Nsolve336G<*/&%\"aG6$\"\"#\"\"\"#F*\"\"$/&%\"bG6#F-F//&%\"cGF1F,/&F(6$
F-F*,$*$F/!\"\"#F+\"\"%/&F46#F*F,/&F0F?,&F/F:#F-F<F+/&F(6$F-F+,$*&,&!
\"$F+F/\"\")F+F/F:#F+\"#7/&F06#F+F;" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 107 "ENsolve337:=solve(\{ENcond1a,ENcond2a,ENcond2b,ENcon
d3a,ENcond3b,ENcond3c,ENcond3d,ENcond3e,c[2]=0,c[3]=0\});" }}{PARA 11 
"" 1 "" {XPPMATH 20 "6#>%+ENsolve337G6\"" }}}{EXCHG {PARA 0 "" 0 "" 
{MPLTEXT 0 21 24 "# minimizaci\363n del error" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 62 "solve(subs(ENsolve331,\{ENerro4a,ENerro4b,ENerro
4c,ENerro4d\}));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#<$/&%\"cG6#\"\"#\"
\"!/&F&6#\"\"$#F-\"\"%" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 159 "
ENerror331:=solve(subs(ENsolve331,\{ENerro4a,ENerro4b,ENerro4c,ENerro4
d\})) union subs(solve(subs(ENsolve331,\{ENerro4a,ENerro4b,ENerro4c,EN
erro4d\})),ENsolve331);" }}{PARA 8 "" 1 "" {TEXT -1 23 "Error, divisio
n by zero" }}}{EXCHG {PARA 0 "" 0 "" {MPLTEXT 0 21 32 "# PARA ECUACION
ES AUTONOMAS (EA)" }}}{EXCHG {PARA 0 "" 0 "" {MPLTEXT 0 21 37 "# desar
rollo de la verdadera solucion" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 19 "y:=unapply(y(x),x):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
19 "f:=unapply(f(y),y):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "
f0:=f(y(x)):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 42 "f1:=subs(di
ff(y(x),x)=f(y(x)),diff(f0,x)):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 42 "f2:=subs(diff(y(x),x)=f(y(x)),diff(f1,x)):" }}}{EXCHG {PARA 0 
"> " 0 "" {MPLTEXT 1 0 42 "f3:=subs(diff(y(x),x)=f(y(x)),diff(f2,x)):
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 45 "f0:=subs(\{y(x)=y0,x=x0
\},f0):EAf0:=expand(f0);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%EAf0G-%
\"fG6#%#y0G" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 45 "f1:=subs(\{y
(x)=y0,x=x0\},f1):EAf1:=expand(f1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6
#>%%EAf1G*&--%\"DG6#%\"fG6#%#y0G\"\"\"-F*F+F-" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 45 "f2:=subs(\{y(x)=y0,x=x0\},f2):EAf2:=expand(f2);
" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%EAf2G,&*&---%#@@G6$%\"DG\"\"#6#
%\"fG6#%#y0G\"\"\"-F/F0F-F2*&--F,F.F0F-F3F2F2" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 45 "f3:=subs(\{y(x)=y0,x=x0\},f3):EAf3:=expand(f3);
" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%EAf3G,(*&---%#@@G6$%\"DG\"\"$6#
%\"fG6#%#y0G\"\"\"-F/F0F-F2*(---F*6$F,\"\"#F.F0F2F3F9--F,F.F0F2\"\"%*&
F:F-F3F2F2" }}}{EXCHG {PARA 0 "" 0 "" {MPLTEXT 0 21 23 "# desarrollo d
el m\351todo" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "k10:=f(y):
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "k20:=f(y+a[2,1]*h*k10):
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 36 "k30:=f(y+a[3,1]*h*k10+a
[3,2]*h*k20):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "k100:=subs
(h=0,k10):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "k200:=subs(h=
0,k20):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "k300:=subs(h=0,k
30):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 81 "Fi0:=b[1]*k100+b[2]
*k200+b[3]*k300:Fi0:=subs(\{x=x0,y=y0\},Fi0):EAFi0:=expand(Fi0);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%&EAFi0G,(*&&%\"bG6#\"\"\"F*-%\"fG6#%
#y0GF*F**&&F(6#\"\"#F*F+F*F**&&F(6#\"\"$F*F+F*F*" }}}{EXCHG {PARA 0 ">
 " 0 "" {MPLTEXT 1 0 17 "k11:=diff(k10,h):" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 17 "k21:=diff(k20,h):" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 17 "k31:=diff(k30,h):" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 17 "k41:=diff(k40,h):" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 20 "k110:=subs(h=0,k11):" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 20 "k210:=subs(h=0,k21):" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 20 "k310:=subs(h=0,k31):" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 81 "Fi1:=b[1]*k110+b[2]*k210+b[3]*k310:Fi1:=subs(\{x=x0,y
=y0\},Fi1):EAFi1:=expand(Fi1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%&E
AFi1G,(**&%\"bG6#\"\"#\"\"\"--%\"DG6#%\"fG6#%#y0GF+&%\"aG6$F*F+F+-F0F1
F+F+**&F(6#\"\"$F+F,F+&F46$F:F+F+F6F+F+**F8F+F,F+&F46$F:F*F+F6F+F+" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "k12:=diff(k11,h):" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "k22:=diff(k21,h):" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "k32:=diff(k31,h):" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "k120:=subs(h=0,k12):" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "k220:=subs(h=0,k22):" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "k320:=subs(h=0,k32):" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 81 "Fi2:=b[1]*k120+b[2]*k220+b[3
]*k320:Fi2:=subs(\{x=x0,y=y0\},Fi2):EAFi2:=expand(Fi2);" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#>%&EAFi2G,,**&%\"bG6#\"\"#\"\"\"---%#@@G6$%\"DGF
*6#%\"fG6#%#y0GF+&%\"aG6$F*F+F*-F3F4F*F+**&F(6#\"\"$F+F,F+&F76$F=F+F*F
9F*F+*,F;F+F,F+F>F+F9F*&F76$F=F*F+F***F;F+F,F+FAF*F9F*F+*,F;F+--F1F2F4
F*FAF+F6F+F9F+F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "k13:=di
ff(k12,h):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "k23:=diff(k22
,h):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "k33:=diff(k32,h):" 
}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "k130:=subs(h=0,k13):" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "k230:=subs(h=0,k23):" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "k330:=subs(h=0,k33):" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 81 "Fi3:=b[1]*k130+b[2]*k230+b[3
]*k330:Fi3:=subs(\{x=x0,y=y0\},Fi3):EAFi3:=expand(Fi3);" }}{PARA 12 "
" 1 "" {XPPMATH 20 "6#>%&EAFi3G,2**&%\"bG6#\"\"#\"\"\"---%#@@G6$%\"DG
\"\"$6#%\"fG6#%#y0GF+&%\"aG6$F*F+F2-F4F5F2F+**&F(6#F2F+F,F+&F86$F2F+F2
F:F2F+*,F<F+F,F+F>F*F:F2&F86$F2F*F+F2*,F<F+F,F+F>F+F:F2FAF*F2**F<F+F,F
+FAF2F:F2F+*0F<F+---F/6$F1F*F3F5F+FAF+--F1F3F5F+F7F+F:F*F>F+\"\"'*.F<F
+FFF+FAF*FJF+F7F+F:F*FL*.F<F+FJF+FAF+FFF+F7F*F:F*F2" }}}{EXCHG {PARA 
0 "" 0 "" {MPLTEXT 0 21 24 "# consistencia y orden 1" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 47 "EAcond1a:=coeff(EAFi0,f(y0))=coeff(EAf0,f
(y0));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%)EAcond1aG/,(&%\"bG6#\"\"
\"F*&F(6#\"\"#F*&F(6#\"\"$F*F*" }}}{EXCHG {PARA 0 "" 0 "" {MPLTEXT 0 
21 29 "# condiciones para el orden 2" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 9 "#EAcond2a" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
85 "EAcond2b:=coeff(coeff(EAFi1,D(f)(y0)),f(y0))=coeff(coeff((1/2)*EAf
1,D(f)(y0)),f(y0));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%)EAcond2bG/,(
*&&%\"bG6#\"\"#\"\"\"&%\"aG6$F+F,F,F,*&&F)6#\"\"$F,&F.6$F3F,F,F,*&F1F,
&F.6$F3F+F,F,#F,F+" }}}{EXCHG {PARA 0 "" 0 "" {MPLTEXT 0 21 29 "# cond
iciones para el orden 3" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "#
EAcond3a" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "#EAcond3b" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 99 "EAcond3c:=coeff(coeff(EAFi2,
(D@@2)(f)(y0)),f(y0)^2)=coeff(coeff((1/3)*EAf2,(D@@2)(f)(y0)),f(y0)^2)
;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%)EAcond3cG/,**&&%\"bG6#\"\"#\"
\"\"&%\"aG6$F+F,F+F,*&&F)6#\"\"$F,&F.6$F3F,F+F,*(F1F,F4F,&F.6$F3F+F,F+
*&F1F,F7F+F,#F,F3" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "#EAcond
3d" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 89 "EAcond3e:=coeff(coeff
(EAFi2,D(f)(y0)^2),f(y0))=coeff(coeff((1/3)*EAf2,D(f)(y0)^2),f(y0));" 
}}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%)EAcond3eG/,$*(&%\"bG6#\"\"$\"\"\"
&%\"aG6$F+\"\"#F,&F.6$F0F,F,F0#F,F+" }}}{EXCHG {PARA 0 "" 0 "" 
{MPLTEXT 0 21 34 "# coeficiente del t\351rmino de error" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 41 "EAterm:=expand((1/3!)*EAFi3-(1/4!)*
EAf3):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "#EAerro4a" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "#EAerro4b" }}}{EXCHG {PARA 0 
"> " 0 "" {MPLTEXT 1 0 9 "#EAerro4c" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 9 "#EAerro4d" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 
"#EAerro4e" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 53 "EAerro4f:=coe
ff(coeff(EAterm,(D@@3)(f)(y0)),f(y0)^3);" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#>%)EAerro4fG,.#!\"\"\"#C\"\"\"*(&%\"bG6#\"\"$F)&%\"aG6$F.F)F)&F0
6$F.\"\"#F4#F)F4*(F+F)F/F4F2F)F5*&F+F)F/F.#F)\"\"'*&F+F)F2F.F8*&&F,6#F
4F)&F06$F4F)F.F8" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "#EAerro4
g" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 69 "EAerro4h:=coeff(coeff(
coeff(EAterm,(D@@2)(f)(y0)),D(f)(y0)),f(y0)^2);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%)EAerro4hG,*#!\"\"\"\"'\"\"\"*(&%\"bG6#\"\"$F)&%\"aG6
$F.\"\"#F)&F06$F2F)F2#F)F2**F+F)F/F)F3F)&F06$F.F)F)F)*(F+F)F/F2F3F)F)
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "#EAerro4i" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "#EAerro4j" }}}{EXCHG {PARA 0 "> " 0 
"" {MPLTEXT 1 0 48 "EAerro4k:=coeff(coeff(EAterm,D(f)(y0)^3),f(y0));" 
}}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%)EAerro4kG#!\"\"\"#C" }}}{EXCHG 
{PARA 0 "" 0 "" {MPLTEXT 0 21 28 "# soluciones para el orden 3" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 122 "EAsolve331:=solve(\{EAcond1
a,EAcond2b,EAcond3c,EAcond3e,c2=a[2,1],c3=a[3,1]+a[3,2]\},\{b[1],b[2],
b[3],a[2,1],a[3,1],a[3,2]\});" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%+EA
solve331G<(/&%\"aG6$\"\"$\"\"\"**%#c3GF+,(*$%#c2G\"\"#F*F0!\"$F-F+F+F0
!\"\",&F0F*!\"#F+F3/&%\"bG6#F1,$*(,&F5F+F-F*F+,&F0F3F-F+F3F0F3#F+\"\"'
/&F86#F+,$*(,*F-F2*&F0F+F-F+F?F1F+F0F2F+F0F3F-F3F>/&F(6$F1F+F0/&F86#F*
,$*(F4F+F-F3F=F3#F3F?/&F(6$F*F1,$**F-F+F=F+F0F3F4F3F3" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 104 "EAsolve332:=solve(\{EAcond1a,EAcon
d2b,EAcond3c,EAcond3e,a[2,1]=0\},\{b[1],b[2],b[3],a[2,1],a[3,1],a[3,2]
\});" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%+EAsolve332G6\"" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 111 "EAsolve333:=solve(\{EAcond1a,EAcon
d2b,EAcond3c,EAcond3e,a[3,1]+a[3,2]=0\},\{b[1],b[2],b[3],a[2,1],a[3,1]
,a[3,2]\});" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%+EAsolve333G<(/&%\"aG
6$\"\"#\"\"\"#F*\"\"$/&%\"bG6#F-F//&F06#F*#F-\"\"%/&F(6$F-F*,$*$F/!\"
\"#F+F6/&F06#F+,&F=F+F/F</&F(6$F-F+,$F;#F<F6" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 111 "EAsolve334:=solve(\{EAcond1a,EAcond2b,EAcond3c,
EAcond3e,3*a[2,1]-2=0\},\{b[1],b[2],b[3],a[2,1],a[3,1],a[3,2]\})[1];" 
}}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%+EAsolve334G<(/&%\"aG6$\"\"#\"\"\"
#F*\"\"$/&%\"bG6#F-F//&F06#F*#F-\"\"%/&F(6$F-F*,$*$F/!\"\"#F+F6/&F06#F
+,&F=F+F/F</&F(6$F-F+,$F;#F<F6" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 111 "EAsolve335:=solve(\{EAcond1a,EAcond2b,EAcond3c,EAcond3e,3*a[2
,1]-2=0\},\{b[1],b[2],b[3],a[2,1],a[3,1],a[3,2]\})[2];" }}{PARA 11 "" 
1 "" {XPPMATH 20 "6#>%+EAsolve335G<(/&%\"aG6$\"\"#\"\"\"#F*\"\"$/&%\"b
G6#F-F//&F(6$F-F*,$*$F/!\"\"#F+\"\"%/&F06#F*,&F/F7#F-F9F+/&F(6$F-F+,$*
&,&!\"$F+F/\"\")F+F/F7#F+\"#7/&F06#F+F8" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 116 "EAsolve336:=solve(\{EAcond1a,EAcond2b,EAcond3c,EAcon
d3e,a[2,1]=a[3,1]+a[3,2]\},\{b[1],b[2],b[3],a[2,1],a[3,1],a[3,2]\});" 
}}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%+EAsolve336G<(/&%\"aG6$\"\"#\"\"\"
#F*\"\"$/&%\"bG6#F-F//&F(6$F-F*,$*$F/!\"\"#F+\"\"%/&F06#F*,&F/F7#F-F9F
+/&F(6$F-F+,$*&,&!\"$F+F/\"\")F+F/F7#F+\"#7/&F06#F+F8" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 120 "EAsolve337:=solve(\{EAcond1a,EAcon
d2b,EAcond3c,EAcond3e,a[2,1=0],a[3,1]+a[3,2]=0\},\{b[1],b[2],b[3],a[2,
1],a[3,1],a[3,2]\});" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%+EAsolve337G
6\"" }}}{EXCHG {PARA 0 "" 0 "" {MPLTEXT 0 21 26 "# y minimizaci\363n d
el error" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "solve(subs(EAso
lve331,\{EAerro4f,EAerro4h\}))[1];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#
<$/%#c2G\"\"\"/%#c3G#F&\"\"#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 47 "solve(subs(EAsolve331,\{EAerro4f,EAerro4h\}))[2];" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#<$/%#c3G#\"\"&\"\"'/%#c2G#\"\"\"\"\"$" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 76 "EAerror331:=subs(solve(subs(
EAsolve331,\{EAerro4f,EAerro4h\}))[1],EAsolve331);" }}{PARA 11 "" 1 "
" {XPPMATH 20 "6#>%+EAerror331G<(/&%\"aG6$\"\"$\"\"\"#F+\"\"%/&%\"bG6#
F*#\"\"#F*/&F(6$F*F3F,/&F06#F3#F+\"\"'/&F06#F+F:/&F(6$F3F+F+" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 76 "EAerror332:=subs(solve(subs(
EAsolve331,\{EAerro4f,EAerro4h\}))[2],EAsolve331);" }}{PARA 11 "" 1 "
" {XPPMATH 20 "6#>%+EAerror332G<(/&%\"bG6#\"\"$#\"\"#\"\"&/&%\"aG6$F*F
,#F-\"\"%/&F06$F*\"\"\"#!\"&\"#7/&F(6#F7#F7\"#5/&F06$F,F7#F7F*/&F(6#F,
#F7F," }}}{EXCHG {PARA 0 "" 0 "" {MPLTEXT 0 21 33 "# PARA SISTEMAS NO \+
AUTONOMOS (SN)" }}}{EXCHG {PARA 0 "" 0 "" {MPLTEXT 0 21 37 "# desarrol
lo de la verdadera solucion" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
25 "y[1]:=unapply(y[1](x),x):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 25 "y[2]:=unapply(y[2](x),x):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 45 "f[1]:=unapply(f[1](x,y[1],y[2]),x,y[1],y[2]):" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 45 "f[2]:=unapply(f[2](x,y[1],y[2]),x,y
[1],y[2]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "f0[1]:=f[1](x
,y[1](x),y[2](x)):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "f0[2]
:=f[2](x,y[1](x),y[2](x)):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
109 "f1[1]:=subs(\{diff(y[1](x),x)=f[1](x,y[1](x),y[2](x)),diff(y[2](x
),x)=f[2](x,y[1](x),y[2](x))\},diff(f0[1],x)):" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 109 "f1[2]:=subs(\{diff(y[1](x),x)=f[1](x,y[1](x),
y[2](x)),diff(y[2](x),x)=f[2](x,y[1](x),y[2](x))\},diff(f0[2],x)):" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 109 "f2[1]:=subs(\{diff(y[1](x)
,x)=f[1](x,y[1](x),y[2](x)),diff(y[2](x),x)=f[2](x,y[1](x),y[2](x))\},
diff(f1[1],x)):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 109 "f2[2]:=
subs(\{diff(y[1](x),x)=f[1](x,y[1](x),y[2](x)),diff(y[2](x),x)=f[2](x,
y[1](x),y[2](x))\},diff(f1[2],x)):" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 109 "f3[1]:=subs(\{diff(y[1](x),x)=f[1](x,y[1](x),y[2](x)
),diff(y[2](x),x)=f[2](x,y[1](x),y[2](x))\},diff(f2[1],x)):" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 109 "f3[2]:=subs(\{diff(y[1](x),
x)=f[1](x,y[1](x),y[2](x)),diff(y[2](x),x)=f[2](x,y[1](x),y[2](x))\},d
iff(f2[2],x)):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 77 "f0[1]:=su
bs(\{y[1](x)=y0[1],y[2](x)=y0[2],x=x0\},f0[1]):SNf0[1]:=expand(f0[1]);
" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%%SNf0G6#\"\"\"-&%\"fGF&6%%#x0G&
%#y0GF&&F.6#\"\"#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 77 "f0[2]:
=subs(\{y[1](x)=y0[1],y[2](x)=y0[2],x=x0\},f0[2]):SNf0[2]:=expand(f0[2
]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 77 "f1[1]:=subs(\{y[1](x
)=y0[1],y[2](x)=y0[2],x=x0\},f1[1]):SNf1[1]:=expand(f1[1]);" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#>&%%SNf1G6#\"\"\",(--&%\"DGF&6#&%\"fGF&6%%#x
0G&%#y0GF&&F36#\"\"#F'*&--&F,F5F-F0F'-F.F0F'F'*&--&F,6#\"\"$F-F0F'-&F/
F5F0F'F'" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 77 "f1[2]:=subs(\{y
[1](x)=y0[1],y[2](x)=y0[2],x=x0\},f1[2]):SNf1[2]:=expand(f1[2]):" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 77 "f2[1]:=subs(\{y[1](x)=y0[1],
y[2](x)=y0[2],x=x0\},f2[1]):SNf2[1]:=expand(f2[1]);" }}{PARA 12 "" 1 "
" {XPPMATH 20 "6#>&%%SNf2G6#\"\"\",:--&%\"DG6$F'F'6#&%\"fGF&6%%#x0G&%#
y0GF&&F46#\"\"#F'*&--&F,6$F'F7F.F1F'-F/F1F'F7*&--&F,6$F'\"\"$F.F1F'-&F
0F6F1F'F7*&--&F,6$F7F7F.F1F'F=F7F'*(F=F'--&F,6$F7FCF.F1F'FDF'F7*&--&F,
F6F.F1F'--&F,F&F.F1F'F'*&FQF7F=F'F'*(FQF'--&F,6#FCF.F1F'FDF'F'*&--&F,6
$FCFCF.F1F'FDF7F'*&FYF'--FV6#FEF1F'F'*(FYF'--FSF_oF1F'F=F'F'*(FYF'--Fe
nF_oF1F'FDF'F'" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 77 "f2[2]:=su
bs(\{y[1](x)=y0[1],y[2](x)=y0[2],x=x0\},f2[2]):SNf2[2]:=expand(f2[2]):
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 77 "f3[1]:=subs(\{y[1](x)=y
0[1],y[2](x)=y0[2],x=x0\},f3[1]):SNf3[1]:=expand(f3[1]);" }}{PARA 12 "
" 1 "" {XPPMATH 20 "6#>&%%SNf3G6#\"\"\",\\q*(-&%\"fGF&6%%#x0G&%#y0GF&&
F06#\"\"#F'--&%\"DG6%F'F3\"\"$6#F+F-F'-&F,F2F-F'\"\"'*(--&F76$F'F3F:F-
F'--&F76#F9F:F-F'F;F'F9*&--&F76%F'F'F3F:F-F'F*F'F9*&--&F76%F'F'F9F:F-F
'F;F'F9*(F?F'--&F7F2F:F-F'F*F'\"\"&*(--&F76$F'F9F:F-F'--FE6#F<F-F'F;F'
F9*(FWF'--FTFgnF-F'F*F'F9*(F*F'--&F76$F3F3F:F-F'--&F7F&F:F-F'F9*(F*F3-
-&F76%F3F3F9F:F-F'F;F'F9*(F*F'--&F76%F3F9F9F:F-F'F;F3F9*(F*F'--&F76$F3
F9F:F-F'--FboFgnF-F'F9*(F\\oF'FRF'F*F3\"\"%*(F^pF'FinF'F*F3F9*&FRF3F`o
F'F'*&FRF9F*F'F'*&FRF'--&F76$F'F'F:F-F'F'*(F^pF'F;F3FCF'F9*(F^pF'F;F'F
`oF'F9*(FRF'FWF'F;F'F3--&F76%F'F'F'F:F-F'*&--&F76%F'F9F9F:F-F'F;F3F9*&
FWF'FbpF'F9*(FRF3FCF'F;F'F'*(FCF'--FAFgnF-F'F*F'F3*(FRF'FCF'FbpF'F'*(F
RF'--&F76$F9F9F:F-F'F;F3F'*&FCF'--F\\qFgnF-F'F'*(F;F'FarF'FbpF'F9*(Far
F'FenF'F;F3F9*&--&F76%F9F9F9F:F-F'F;F9F'*&F?F'F`oF'F9*&--&F76%F3F3F3F:
F-F'F*F9F'*(FCF'--FYFgnF-F'F;F'F3*&--&F76%F'F3F3F:F-F'F*F3F9*(FCF'--F^
oFgnF-F'F*F3F'*(FinF'FCF3F;F'F'*(FCF'FinF'F`oF'F'*(FCF'--FcrFgnF-F'F;F
3F'**FRF'FCF'FinF'F*F'F3**FRF'FCF'FenF'F;F'F'**F*F'F\\oF'FCF'F;F'F9**F
*F'F^pF'FenF'F;F'F9**F^pF'F;F'FRF'F*F'FU**FCF'F*F'--F`pFgnF-F'F;F'F3**
FCF'FenF'FinF'F*F'F'*(FCF'FenF3F;F'F'**F;F'FarF'FinF'F*F'F9*(FCF'FenF'
FbpF'F'" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 77 "f3[2]:=subs(\{y[
1](x)=y0[1],y[2](x)=y0[2],x=x0\},f3[2]):SNf3[2]:=expand(f3[2]):" }}}
{EXCHG {PARA 0 "" 0 "" {MPLTEXT 0 21 23 "# desarrollo del m\351todo" }
}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "k10[1]:=f[1](x,y[1],y[2]):
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "k10[2]:=f[2](x,y[1],y[2
]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 65 "k20[1]:=f[1](x+c[2]*
h,y[1]+a[2,1]*h*k10[1],y[2]+a[2,1]*h*k10[2]):" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 65 "k20[2]:=f[2](x+c[2]*h,y[1]+a[2,1]*h*k10[1],y[2]+
a[2,1]*h*k10[2]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 97 "k30[1]
:=f[1](x+c[3]*h,y[1]+a[3,1]*h*k10[1]+a[3,2]*h*k20[1],y[2]+a[3,1]*h*k10
[2]+a[3,2]*h*k20[2]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 97 "k3
0[2]:=f[2](x+c[3]*h,y[1]+a[3,1]*h*k10[1]+a[3,2]*h*k20[1],y[2]+a[3,1]*h
*k10[2]+a[3,2]*h*k20[2]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
26 "k100[1]:=subs(h=0,k10[1]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 26 "k100[2]:=subs(h=0,k10[2]):" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 26 "k200[1]:=subs(h=0,k20[1]):" }}}{EXCHG {PARA 0 "> " 0 
"" {MPLTEXT 1 0 26 "k200[2]:=subs(h=0,k20[2]):" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 26 "k300[1]:=subs(h=0,k30[1]):" }}}{EXCHG {PARA 0 
"> " 0 "" {MPLTEXT 1 0 26 "k300[2]:=subs(h=0,k30[2]):" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 122 "Fi0[1]:=b[1]*k100[1]+b[2]*k200[1]+
b[3]*k300[1]:Fi0[1]:=subs(\{x=x0,y[1]=y0[1],y[2]=y0[2]\},Fi0[1]):SNFi0
[1]:=expand(Fi0[1]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%&SNFi0G6#\"
\"\",(*&&%\"bGF&F'-&%\"fGF&6%%#x0G&%#y0GF&&F26#\"\"#F'F'*&&F+F4F'F,F'F
'*&&F+6#\"\"$F'F,F'F'" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 122 "F
i0[2]:=b[1]*k100[2]+b[2]*k200[2]+b[3]*k300[2]:Fi0[2]:=subs(\{x=x0,y[1]
=y0[1],y[2]=y0[2]\},Fi0[2]):SNFi0[2]:=expand(Fi0[2]):" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "k11[1]:=diff(k10[1],h):" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "k11[2]:=diff(k10[2],h):" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "k21[1]:=diff(k20[1],h):" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "k21[2]:=diff(k20[2],h):" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "k31[1]:=diff(k30[1],h):" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "k31[2]:=diff(k30[2],h):" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "k110[1]:=subs(h=0,k11[1]):" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "k110[2]:=subs(h=0,k11[2]):" 
}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "k210[1]:=subs(h=0,k21[1])
:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "k210[2]:=subs(h=0,k21[
2]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "k310[1]:=subs(h=0,k
31[1]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "k310[2]:=subs(h=
0,k31[2]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 122 "Fi1[1]:=b[1]
*k110[1]+b[2]*k210[1]+b[3]*k310[1]:Fi1[1]:=subs(\{x=x0,y[1]=y0[1],y[2]
=y0[2]\},Fi1[1]):SNFi1[1]:=expand(Fi1[1]);" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>&%&SNFi1G6#\"\"\",2*(&%\"bG6#\"\"#F'--&%\"DGF&6#&%\"fG
F&6%%#x0G&%#y0GF&&F8F,F'&%\"cGF,F'F'**F*F'--&F1F,F2F5F'&%\"aG6$F-F'F'-
F3F5F'F'**F*F'--&F16#\"\"$F2F5F'F@F'-&F4F,F5F'F'*(&F+FHF'F.F'&F;FHF'F'
**FMF'F=F'&FA6$FIF'F'FCF'F'**FMF'F=F'&FA6$FIF-F'FCF'F'**FMF'FEF'FPF'FJ
F'F'**FMF'FEF'FSF'FJF'F'" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
122 "Fi1[2]:=b[1]*k110[2]+b[2]*k210[2]+b[3]*k310[2]:Fi1[2]:=subs(\{x=x
0,y[1]=y0[1],y[2]=y0[2]\},Fi1[2]):SNFi1[2]:=expand(Fi1[2]):" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "k12[1]:=diff(k11[1],h):" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "k12[2]:=diff(k11[2],h):" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "k22[1]:=diff(k21[1],h):" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "k22[2]:=diff(k21[2],h):" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "k32[1]:=diff(k31[1],h):" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "k32[2]:=diff(k31[2],h):" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "k120[1]:=subs(h=0,k12[1]):" 
}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "k120[2]:=subs(h=0,k12[2])
:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "k220[1]:=subs(h=0,k22[
1]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "k220[2]:=subs(h=0,k
22[2]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "k320[1]:=subs(h=
0,k32[1]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "k320[2]:=subs
(h=0,k32[2]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 122 "Fi2[1]:=b
[1]*k120[1]+b[2]*k220[1]+b[3]*k320[1]:Fi2[1]:=subs(\{x=x0,y[1]=y0[1],y
[2]=y0[2]\},Fi2[1]):SNFi2[1]:=expand(Fi2[1]);" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>&%&SNFi2G6#\"\"\",V*(&%\"bG6#\"\"$F'--&%\"DG6$F'F'6#&%
\"fGF&6%%#x0G&%#y0GF&&F96#\"\"#F'&%\"cGF,F<F'*(&F+F;F'F.F'&F>F;F<F'*,F
*F'--&F1F;F3F6F'&%\"aG6$F-F<F'--&F1F&F3F6F'FAF'F<*,F*F'FCF<FFF'&FG6$F<
F'F'-F4F6F'F<*.F*F'FCF'FFF'--&F1F,F3F6F'FMF'-&F5F;F6F'F<*,F*F'--&F16$F
-F-F3F6F'&FG6$F-F'F'FTF<FFF'F<*,F*F'FQF'FFF'--FK6#FUF6F'FAF'F<*.F*F'FQ
F'FFF'--FEFjnF6F'FMF'FOF'F<*.F*F'FQF'FFF'--FSFjnF6F'FMF'FTF'F<*,F*F'F=
F'--&F16$F'F<F3F6F'FenF'FOF'F<*,F*F'F=F'FboF'FFF'FOF'F<*,F*F'F=F'--&F1
6$F'F-F3F6F'FenF'FTF'F<*,F*F'F=F'FhoF'FFF'FTF'F<*,F*F'--&F16$F<F<F3F6F
'FenF'FOF<FFF'F<*,F*F'--&F16$F<F-F3F6F'FenF<FTF'FOF'F<**F*F'F^pF'FFF<F
OF<F'**F*F'FWF'FenF<FTF<F'**F*F'FWF'FFF<FTF<F'**F*F'F^pF'FenF<FOF<F'*.
F*F'FcpF'FenF'FTF'FFF'FOF'\"\"%*,F@F'FAF'FhoF'FMF'FTF'F<**F@F'FMF<FOF<
F^pF'F'*,F@F'FMF<FOF'FcpF'FTF'F<**F@F'FMF<FTF<FWF'F'*,F@F'FAF'FboF'FMF
'FOF'F<*,F*F'FcpF'FFF<FTF'FOF'F<" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 122 "Fi2[2]:=b[1]*k120[2]+b[2]*k220[2]+b[3]*k320[2]:Fi2[2
]:=subs(\{x=x0,y[1]=y0[1],y[2]=y0[2]\},Fi2[2]):SNFi2[1]:=expand(Fi2[1]
):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "k13[1]:=diff(k12[1],h
):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "k13[2]:=diff(k12[2],h
):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "k23[1]:=diff(k22[1],h
):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "k23[2]:=diff(k22[2],h
):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "k33[1]:=diff(k32[1],h
):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "k33[2]:=diff(k32[2],h
):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "k130[1]:=subs(h=0,k13
[1]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "k130[2]:=subs(h=0,
k13[2]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "k230[1]:=subs(h
=0,k23[1]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "k230[2]:=sub
s(h=0,k23[2]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "k330[1]:=
subs(h=0,k33[1]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "k330[2
]:=subs(h=0,k33[2]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 122 "Fi
3[1]:=b[1]*k130[1]+b[2]*k230[1]+b[3]*k330[1]:Fi3[1]:=subs(\{x=x0,y[1]=
y0[1],y[2]=y0[2]\},Fi3[1]):SNFi3[1]:=expand(Fi3[1]);" }}{PARA 12 "" 1 
"" {XPPMATH 20 "6#>&%&SNFi3G6#\"\"\",`u*(&%\"bG6#\"\"#F'--&%\"DG6%F'F'
F'6#&%\"fGF&6%%#x0G&%#y0GF&&F9F,F'&%\"cGF,\"\"$F'*0&F+6#F=F'&F<F@F'--&
F16$F'F=F3F6F'&%\"aG6$F=F-F'--&F1F,6#&F5F,F6F'&FG6$F-F'F'-F4F6F'\"\"'*
.F?F'FAF'--&F16%F'F-F=F3F6F'FFF--FMF6F'FPF'FQ*.F?F'FAF'--&F16$F'F-F3F6
F'FFF'--&F1F&F3F6F'F;F'FQ*0F?F'FAF'FYF'FFF'--FKF3F6F'FNF'FPF'FQ*0F?F'F
AF'FYF'FFF'--&F1F@F3F6F'FNF'FWF'FQ**F?F'--&F16%F-F-F-F3F6F'&FG6$F=F'F=
FPF=F'*0F?F'--&F16$F-F=F3F6F'FFF-FWF'F[oF'FNF'FPF'FQ*.F?F'FioF'FFF-FWF
-F^oF'FNF'FQ*0F?F'FFF'FioF'FfoF'FWF'FgnF'F;F'FQ*2F?F'FFF'FioF'FfoF'FWF
'F[oF'FNF'FPF'FQ*0F?F'FFF'FioF'FfoF'FWF-F^oF'FNF'FQ*,F?F'--&F16%F-F=F=
F3F6F'FfoF=FWF-FPF'F=*,F?F'FbpF'FFF=FWF-FPF'F=*2F?F'--&F16$F-F-F3F6F'F
FF'F^oF'FNF'FWF'FfoF'FPF'FQ*0F?F'FhpF'FFF-F^oF'FNF'FWF'FPF'FQ*0F?F'Fhp
F'FFF'FgnF'F;F'FfoF'FPF'FQ*.F?F'FhpF'FFF-FgnF'F;F'FPF'FQ*.F?F'FioF'FFF
-FWF'FgnF'F;F'FQ*0F?F'FhpF'FFF'F[oF'FNF'FPF-FfoF'FQ*.F?F'FhpF'FFF-F[oF
'FNF'FPF-FQ**F?F'FboF'FFF=FPF=F'*0F?F'FioF'FFF'--FinFLF6F'F;F'FfoF'FPF
'FQ*.F?F'FioF'FFF-FdqF'F;F'FPF'FQ*0F?F'FioF'FFF'FIF'FNF'FPF-FfoF'FQ*.F
?F'FioF'FFF-FIF'FNF'FPF-FQ*2F?F'FioF'FFF'--F`oFLF6F'FNF'FWF'FfoF'FPF'F
Q*0F?F'FioF'FFF-FjqF'FNF'FWF'FPF'FQ*,F?F'FboF'FfoF-FPF=FFF'F=*,F?F'Fbo
F'FfoF'FPF=FFF-F=*,F?F'--&F16%F-F-F=F3F6F'FfoF=FWF'FPF-F=*.F?F'F`rF'Ff
oF-FWF'FPF-FFF'\"\"**.F?F'F`rF'FfoF'FWF'FFF-FPF-Fer*.F?F'FbpF'FfoF-FWF
-FFF'FPF'Fer*.F?F'FbpF'FfoF'FWF-FFF-FPF'Fer*.F?F'FAF'FBF'FFF'FdqF'F;F'
FQ*.F?F'FAF'--&F16%F'F=F=F3F6F'FfoF'FWF-FFF'FQ**F?F'--&F16%F=F=F=F3F6F
'FfoF=FWF=F'*0F?F'--&F16$F=F=F3F6F'FFF-FIF'FNF'FPF'FWF'FQ*,F?F'F^oF'FF
F'--&F16$F'F'FLF6F'F;F-F=*,F?F'F`sF'FfoF-FWF=FFF'F=*.F?F'F^oF'FFF'FNF-
FPF---FjpFLF6F'F=*0F?F'F^oF'FFF'FNF-FPF'--F[pFLF6F'FWF'FQ*2F?F'FesF'FF
F'FIF'FNF'FPF'FfoF'FWF'FQ*0F?F'FesF'FFF'FjqF'FNF'FWF-FfoF'FQ*.F?F'FesF
'FFF-FjqF'FNF'FWF-FQ*,F?F'F`sF'FfoF'FWF=FFF-F=*0F?F'FesF'FFF'FdqF'F;F'
FfoF'FWF'FQ**F?F'F`sF'FFF=FWF=F'*.F?F'F^oF'FFF'FNF-FWF---FgsFLF6F'F=*0
F?F'F^oF'FFF'F;F'--FenFLF6F'FNF'FPF'FQ*0F?F'F^oF'FFF'F;F'--FDFLF6F'FNF
'FWF'FQ*.F?F'FesF'FFF-FdqF'F;F'FWF'FQ*,F?F'F[oF'FFF'--F\\tF3F6F'F;F-F=
*0F?F'F[oF'FFF'F;F'FYF'FNF'FPF'FQ*0F?F'F[oF'FFF'F;F'FBF'FNF'FWF'FQ*.F?
F'F[oF'FFF'FNF-FPF-FhpF'F=*0F?F'F[oF'FFF'FNF-FPF'FioF'FWF'FQ*.F?F'F[oF
'FFF'FNF-FWF-FesF'F=*(F?F'F.F'FAF=F'*,F*F'F;F---&F16%F'F'F-F3F6F'FNF'F
PF'F=*,F*F'F;F---&F16%F'F'F=F3F6F'FNF'FWF'F=*,F*F'F;F'FNF-FPF---&F16%F
'F-F-F3F6F'F=*.F*F'F;F'FNF-FPF'FSF'FWF'FQ*,F*F'F;F'FNF-FWF-F[sF'F=**F*
F'FNF=FPF=FboF'F'*,F*F'FNF=FPF-F`rF'FWF'F=*,F*F'FNF=FPF'FWF-FbpF'F=**F
*F'FNF=FWF=F`sF'F'*0F?F'FAF'FBF'FFF'FjqF'FNF'FWF'FQ*,F?F'F`rF'FFF=FWF'
FPF-F=*,F?F'FAF-F_vF'FfoF'FPF'F=*,F?F'FAF-F_vF'FFF'FPF'F=*,F?F'FAF-Fdv
F'FfoF'FWF'F=*,F?F'FAF-FdvF'FFF'FWF'F=*,F?F'FAF'FivF'FfoF-FPF-F=*,F?F'
FAF'FivF'FFF-FPF-F=*,F?F'FAF'F[sF'FfoF-FWF-F=*,F?F'FAF'F[sF'FFF-FWF-F=
*.F?F'FAF'FivF'FfoF'FPF-FFF'FQ*.F?F'FAF'FSF'FfoF-FWF'FPF'FQ*0F?F'FAF'F
SF'FfoF'FWF'FFF'FPF'\"#7" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
122 "Fi3[2]:=b[1]*k130[2]+b[2]*k230[2]+b[3]*k330[2]:Fi3[2]:=subs(\{x=x
0,y[1]=y0[1],y[2]=y0[2]\},Fi3[2]):SNFi3[1]:=expand(Fi3[1]):" }}}
{EXCHG {PARA 0 "" 0 "" {MPLTEXT 0 21 24 "# consistencia y orden 1" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 83 "SNcond1a:=coeff(SNFi0[1],f[1
](x0,y0[1],y0[2]))=coeff(SNf0[1],f[1](x0,y0[1],y0[2]));" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#>%)SNcond1aG/,(&%\"bG6#\"\"\"F*&F(6#\"\"#F*&F(6#
\"\"$F*F*" }}}{EXCHG {PARA 0 "" 0 "" {MPLTEXT 0 21 29 "# condiciones p
ara el orden 2" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 101 "SNcond2a
:=coeff(SNFi1[1],D[1](f[1])(x0,y0[1],y0[2]))=coeff((1/2)*SNf1[1],D[1](
f[1])(x0,y0[1],y0[2]));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%)SNcond2a
G/,&*&&%\"bG6#\"\"#\"\"\"&%\"cGF*F,F,*&&F)6#\"\"$F,&F.F1F,F,#F,F+" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 158 "SNcond2b1:=coeff(coeff(SNFi
1[1],D[2](f[1])(x0,y0[1],y0[2])),f[1](x0,y0[1],y0[2]))=coeff(coeff((1/
2)*SNf1[1],D[2](f[1])(x0,y0[1],y0[2])),f[1](x0,y0[1],y0[2]));" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%*SNcond2b1G/,(*&&%\"bG6#\"\"#\"\"\"&
%\"aG6$F+F,F,F,*&&F)6#\"\"$F,&F.6$F3F,F,F,*&F1F,&F.6$F3F+F,F,#F,F+" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 158 "SNcond2b2:=coeff(coeff(SNF
i1[1],D[3](f[1])(x0,y0[1],y0[2])),f[2](x0,y0[1],y0[2]))=coeff(coeff((1
/2)*SNf1[1],D[3](f[1])(x0,y0[1],y0[2])),f[2](x0,y0[1],y0[2]));" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%*SNcond2b2G/,(*&&%\"bG6#\"\"#\"\"\"&
%\"aG6$F+F,F,F,*&&F)6#\"\"$F,&F.6$F3F,F,F,*&F1F,&F.6$F3F+F,F,#F,F+" }}
}{EXCHG {PARA 0 "" 0 "" {MPLTEXT 0 21 29 "# condiciones para el orden \+
3" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 105 "SNcond3a:=coeff(SNFi2
[1],D[1,1](f[1])(x0,y0[1],y0[2]))=coeff((1/3)*SNf2[1],D[1,1](f[1])(x0,
y0[1],y0[2]));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%)SNcond3aG/,&*&&%
\"bG6#\"\"#\"\"\"&%\"cGF*F+F,*&&F)6#\"\"$F,&F.F1F+F,#F,F2" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 162 "SNcond3b1:=coeff(coeff(SNFi2[1],D[
1,2](f[1])(x0,y0[1],y0[2])),f[1](x0,y0[1],y0[2]))=coeff(coeff((1/3)*SN
f2[1],D[1,2](f[1])(x0,y0[1],y0[2])),f[1](x0,y0[1],y0[2]));" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#>%*SNcond3b1G/,(*(&%\"bG6#\"\"#\"\"\"&%\"cGF
*F,&%\"aG6$F+F,F,F+*(&F)6#\"\"$F,&F.F4F,&F06$F5F,F,F+*(F3F,F6F,&F06$F5
F+F,F+#F+F5" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 162 "SNcond3b2:=
coeff(coeff(SNFi2[1],D[1,3](f[1])(x0,y0[1],y0[2])),f[2](x0,y0[1],y0[2]
))=coeff(coeff((1/3)*SNf2[1],D[1,3](f[1])(x0,y0[1],y0[2])),f[2](x0,y0[
1],y0[2]));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%*SNcond3b2G/,(*(&%\"b
G6#\"\"#\"\"\"&%\"cGF*F,&%\"aG6$F+F,F,F+*(&F)6#\"\"$F,&F.F4F,&F06$F5F,
F,F+*(F3F,F6F,&F06$F5F+F,F+#F+F5" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 166 "SNcond3c1:=coeff(coeff(SNFi2[1],D[2,2](f[1])(x0,y0[1
],y0[2])),f[1](x0,y0[1],y0[2])^2)=coeff(coeff((1/3)*SNf2[1],D[2,2](f[1
])(x0,y0[1],y0[2])),f[1](x0,y0[1],y0[2])^2);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%*SNcond3c1G/,**&&%\"bG6#\"\"#\"\"\"&%\"aG6$F+F,F+F,*&
&F)6#\"\"$F,&F.6$F3F,F+F,*(F1F,F4F,&F.6$F3F+F,F+*&F1F,F7F+F,#F,F3" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 166 "SNcond3c2:=coeff(coeff(SNFi
2[1],D[3,3](f[1])(x0,y0[1],y0[2])),f[2](x0,y0[1],y0[2])^2)=coeff(coeff
((1/3)*SNf2[1],D[3,3](f[1])(x0,y0[1],y0[2])),f[2](x0,y0[1],y0[2])^2);
" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%*SNcond3c2G/,**&&%\"bG6#\"\"#\"
\"\"&%\"aG6$F+F,F+F,*&&F)6#\"\"$F,&F.6$F3F,F+F,*(F1F,F4F,&F.6$F3F+F,F+
*&F1F,F7F+F,#F,F3" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 218 "SNcon
d3c3:=coeff(coeff(coeff(SNFi2[1],D[2,3](f[1])(x0,y0[1],y0[2])),f[2](x0
,y0[1],y0[2])),f[1](x0,y0[1],y0[2]))=coeff(coeff(coeff((1/3)*SNf2[1],D
[2,3](f[1])(x0,y0[1],y0[2])),f[2](x0,y0[1],y0[2])),f[1](x0,y0[1],y0[2]
));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%*SNcond3c3G/,**(&%\"bG6#\"\"$
\"\"\"&%\"aG6$F+F,F,&F.6$F+\"\"#F,\"\"%*&&F)6#F2F,&F.6$F2F,F2F2*&F(F,F
0F2F2*&F(F,F-F2F2#F2F+" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 170 "
SNcond3d1:=coeff(coeff(SNFi2[1],D[2](f[1])(x0,y0[1],y0[2])),D[1](f[1])
(x0,y0[1],y0[2]))=coeff(coeff((1/3)*SNf2[1],D[2](f[1])(x0,y0[1],y0[2])
),D[1](f[1])(x0,y0[1],y0[2]));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%*S
Ncond3d1G/,$*(&%\"bG6#\"\"$\"\"\"&%\"aG6$F+\"\"#F,&%\"cG6#F0F,F0#F,F+
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 170 "SNcond3d2:=coeff(coeff
(SNFi2[1],D[3](f[1])(x0,y0[1],y0[2])),D[1](f[2])(x0,y0[1],y0[2]))=coef
f(coeff((1/3)*SNf2[1],D[3](f[1])(x0,y0[1],y0[2])),D[1](f[2])(x0,y0[1],
y0[2]));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%*SNcond3d2G/,$*(&%\"bG6#
\"\"$\"\"\"&%\"aG6$F+\"\"#F,&%\"cG6#F0F,F0#F,F+" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 162 "SNcond3e1:=coeff(coeff(SNFi2[1],D[2](f[1])(x0
,y0[1],y0[2])^2),f[1](x0,y0[1],y0[2]))=coeff(coeff((1/3)*SNf2[1],D[2](
f[1])(x0,y0[1],y0[2])^2),f[1](x0,y0[1],y0[2]));" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%*SNcond3e1G/,$*(&%\"bG6#\"\"$\"\"\"&%\"aG6$F+\"\"#F,&
F.6$F0F,F,F0#F,F+" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 226 "SNcon
d3e2:=coeff(coeff(coeff(SNFi2[1],D[2](f[1])(x0,y0[1],y0[2])),D[3](f[1]
)(x0,y0[1],y0[2])),f[2](x0,y0[1],y0[2]))=coeff(coeff(coeff((1/3)*SNf2[
1],D[2](f[1])(x0,y0[1],y0[2])),D[3](f[1])(x0,y0[1],y0[2])),f[2](x0,y0[
1],y0[2]));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%*SNcond3e2G/,$*(&%\"b
G6#\"\"$\"\"\"&%\"aG6$F+\"\"#F,&F.6$F0F,F,F0#F,F+" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 226 "SNcond3e3:=coeff(coeff(coeff(SNFi2[1],D[3](
f[1])(x0,y0[1],y0[2])),D[2](f[2])(x0,y0[1],y0[2])),f[1](x0,y0[1],y0[2]
))=coeff(coeff(coeff((1/3)*SNf2[1],D[3](f[1])(x0,y0[1],y0[2])),D[2](f[
2])(x0,y0[1],y0[2])),f[1](x0,y0[1],y0[2]));" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%*SNcond3e3G/,$*(&%\"bG6#\"\"$\"\"\"&%\"aG6$F+\"\"#F,&
F.6$F0F,F,F0#F,F+" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 226 "SNcon
d3e4:=coeff(coeff(coeff(SNFi2[1],D[3](f[1])(x0,y0[1],y0[2])),D[3](f[2]
)(x0,y0[1],y0[2])),f[2](x0,y0[1],y0[2]))=coeff(coeff(coeff((1/3)*SNf2[
1],D[3](f[1])(x0,y0[1],y0[2])),D[3](f[2])(x0,y0[1],y0[2])),f[2](x0,y0[
1],y0[2]));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%*SNcond3e4G/,$*(&%\"b
G6#\"\"$\"\"\"&%\"aG6$F+\"\"#F,&F.6$F0F,F,F0#F,F+" }}}{EXCHG {PARA 0 "
" 0 "" {MPLTEXT 0 21 34 "# coeficiente del t\351rmino de error" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 50 "SNterm[1]:=expand((1/3!)*SNF
i3[1]-(1/4!)*SNf3[1]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 58 "S
Nerro4a:=coeff(SNterm[1],D[1,1,1](f[1])(x0,y0[1],y0[2]));" }}{PARA 11 
"" 1 "" {XPPMATH 20 "6#>%)SNerro4aG,(*&&%\"bG6#\"\"#\"\"\"&%\"cGF)\"\"
$#F+\"\"'#!\"\"\"#CF+*&&F(6#F.F+&F-F6F.F/" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 87 "SNerro4b1:=coeff(coeff(SNterm[1],D[1,1,2](f[1])(x0,
y0[1],y0[2])),f[1](x0,y0[1],y0[2]));" }}{PARA 11 "" 1 "" {XPPMATH 20 "
6#>%*SNerro4b1G,**(&%\"bG6#\"\"$\"\"\"&%\"cGF)\"\"#&%\"aG6$F*F+F+#F+F.
*(F'F+F,F.&F06$F*F.F+F2*(&F(6#F.F+&F-F8F.&F06$F.F+F+F2#!\"\"\"\")F+" }
}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 87 "SNerro4b2:=coeff(coeff(SNt
erm[1],D[1,1,3](f[1])(x0,y0[1],y0[2])),f[2](x0,y0[1],y0[2]));" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%*SNerro4b2G,**(&%\"bG6#\"\"$\"\"\"&%
\"cGF)\"\"#&%\"aG6$F*F+F+#F+F.*(F'F+F,F.&F06$F*F.F+F2*(&F(6#F.F+&F-F8F
.&F06$F.F+F+F2#!\"\"\"\")F+" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
89 "SNerro4c1:=coeff(coeff(SNterm[1],D[1,2,2](f[1])(x0,y0[1],y0[2])),f
[1](x0,y0[1],y0[2])^2);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%*SNerro4c
1G,,#!\"\"\"\")\"\"\"*(&%\"bG6#\"\"$F)&%\"cGF-F)&%\"aG6$F.F)\"\"##F)F4
**F+F)F/F)F1F)&F26$F.F4F)F)*(F+F)F/F)F7F4F5*(&F,6#F4F)&F0F<F)&F26$F4F)
F4F5" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 115 "SNerro4c2:=coeff(c
oeff(coeff(SNterm[1],D[1,2,3](f[1])(x0,y0[1],y0[2])),f[2](x0,y0[1],y0[
2])),f[1](x0,y0[1],y0[2]));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%*SNer
ro4c2G,,#!\"\"\"\"%\"\"\"*(&%\"bG6#\"\"$F)&%\"cGF-F)&%\"aG6$F.\"\"#F4F
)*(&F,6#F4F)&F0F7F)&F26$F4F)F4F)*(F+F)F/F)&F26$F.F)F4F)**F+F)F/F)F<F)F
1F)F4" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 89 "SNerro4c3:=coeff(c
oeff(SNterm[1],D[1,3,3](f[1])(x0,y0[1],y0[2])),f[2](x0,y0[1],y0[2])^2)
;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%*SNerro4c3G,,#!\"\"\"\")\"\"\"*
(&%\"bG6#\"\"$F)&%\"cGF-F)&%\"aG6$F.F)\"\"##F)F4**F+F)F/F)F1F)&F26$F.F
4F)F)*(F+F)F/F)F7F4F5*(&F,6#F4F)&F0F<F)&F26$F4F)F4F5" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 91 "SNerro4d1:=coeff(coeff(SNterm[1],D[1,2](f
[1])(x0,y0[1],y0[2])),D[1](f[1])(x0,y0[1],y0[2]));" }}{PARA 11 "" 1 "
" {XPPMATH 20 "6#>%*SNerro4d1G,&**&%\"bG6#\"\"$\"\"\"&%\"cGF)F+&%\"aG6
$F*\"\"#F+&F-6#F1F+F+#!\"\"\"\")F+" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 91 "SNerro4d2:=coeff(coeff(SNterm[1],D[1,3](f[1])(x0,y0[1
],y0[2])),D[1](f[2])(x0,y0[1],y0[2]));" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#>%*SNerro4d2G,&**&%\"bG6#\"\"$\"\"\"&%\"cGF)F+&%\"aG6$F*\"\"#F+&
F-6#F1F+F+#!\"\"\"\")F+" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 119 
"SNerro4e1:=coeff(coeff(coeff(SNterm[1],D[1,2](f[1])(x0,y0[1],y0[2])),
D[2](f[1])(x0,y0[1],y0[2])),f[1](x0,y0[1],y0[2]));" }}{PARA 11 "" 1 "
" {XPPMATH 20 "6#>%*SNerro4e1G,(#!\"&\"#C\"\"\"**&%\"bG6#\"\"$F)&%\"cG
F-F)&%\"aG6$F.\"\"#F)&F26$F4F)F)F)**F+F)F1F)&F06#F4F)F5F)F)" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 119 "SNerro4e2:=coeff(coeff(coef
f(SNterm[1],D[1,2](f[1])(x0,y0[1],y0[2])),D[3](f[1])(x0,y0[1],y0[2])),
f[2](x0,y0[1],y0[2]));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%*SNerro4e2
G,&**&%\"bG6#\"\"$\"\"\"&%\"cGF)F+&%\"aG6$F*\"\"#F+&F/6$F1F+F+F+#!\"\"
\"\")F+" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 119 "SNerro4e3:=coef
f(coeff(coeff(SNterm[1],D[1,2](f[2])(x0,y0[1],y0[2])),D[3](f[1])(x0,y0
[1],y0[2])),f[1](x0,y0[1],y0[2]));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#
>%*SNerro4e3G,&#!\"\"\"#7\"\"\"**&%\"bG6#\"\"$F)&%\"aG6$F.\"\"#F)&%\"c
G6#F2F)&F06$F2F)F)F)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 119 "SN
erro4e4:=coeff(coeff(coeff(SNterm[1],D[1,3](f[1])(x0,y0[1],y0[2])),D[2
](f[1])(x0,y0[1],y0[2])),f[2](x0,y0[1],y0[2]));" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%*SNerro4e4G,&#!\"\"\"#7\"\"\"**&%\"bG6#\"\"$F)&%\"aG6
$F.\"\"#F)&%\"cG6#F2F)&F06$F2F)F)F)" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 119 "SNerro4e5:=coeff(coeff(coeff(SNterm[1],D[1,3](f[1])(
x0,y0[1],y0[2])),D[2](f[2])(x0,y0[1],y0[2])),f[1](x0,y0[1],y0[2]));" }
}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%*SNerro4e5G,&**&%\"bG6#\"\"$\"\"\"&
%\"cGF)F+&%\"aG6$F*\"\"#F+&F/6$F1F+F+F+#!\"\"\"\")F+" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 119 "SNerro4e6:=coeff(coeff(coeff(SNterm[1],D
[1,3](f[1])(x0,y0[1],y0[2])),D[3](f[2])(x0,y0[1],y0[2])),f[2](x0,y0[1]
,y0[2]));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%*SNerro4e6G,&**&%\"bG6#
\"\"$\"\"\"&%\"cGF)F+&%\"aG6$F*\"\"#F+&F/6$F1F+F+F+#!\"\"\"\")F+" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 119 "SNerro4e7:=coeff(coeff(coef
f(SNterm[1],D[1,3](f[2])(x0,y0[1],y0[2])),D[3](f[1])(x0,y0[1],y0[2])),
f[2](x0,y0[1],y0[2]));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%*SNerro4e7
G,&#!\"\"\"#7\"\"\"**&%\"bG6#\"\"$F)&%\"aG6$F.\"\"#F)&%\"cG6#F2F)&F06$
F2F)F)F)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 89 "SNerro4f1:=coef
f(coeff(SNterm[1],D[2,2,2](f[1])(x0,y0[1],y0[2])),f[1](x0,y0[1],y0[2])
^3);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%*SNerro4f1G,.#!\"\"\"#C\"\"
\"*(&%\"bG6#\"\"$F)&%\"aG6$F.F)F)&F06$F.\"\"#F4#F)F4*(F+F)F/F4F2F)F5*&
F+F)F/F.#F)\"\"'*&F+F)F2F.F8*&&F,6#F4F)&F06$F4F)F.F8" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 117 "SNerro4f2:=coeff(coeff(coeff(SNterm[1],D
[2,2,3](f[1])(x0,y0[1],y0[2])),f[1](x0,y0[1],y0[2])^2),f[2](x0,y0[1],y
0[2]));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%*SNerro4f2G,.#!\"\"\"\")
\"\"\"*&&%\"bG6#\"\"$F)&%\"aG6$F.F)F.#F)\"\"#*(F+F)F/F3&F06$F.F3F)#F.F
3*(F+F)F/F)F5F3F7*&&F,6#F3F)&F06$F3F)F.F2*&F+F)F5F.F2" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 117 "SNerro4f3:=coeff(coeff(coeff(SNter
m[1],D[2,3,3](f[1])(x0,y0[1],y0[2])),f[2](x0,y0[1],y0[2])^2),f[1](x0,y
0[1],y0[2]));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%*SNerro4f3G,.#!\"\"
\"\")\"\"\"*&&%\"bG6#\"\"$F)&%\"aG6$F.F)F.#F)\"\"#*(F+F)F/F3&F06$F.F3F
)#F.F3*(F+F)F/F)F5F3F7*&&F,6#F3F)&F06$F3F)F.F2*&F+F)F5F.F2" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 89 "SNerro4f4:=coeff(coeff(SNterm[1],D[
3,3,3](f[1])(x0,y0[1],y0[2])),f[2](x0,y0[1],y0[2])^3);" }}{PARA 11 "" 
1 "" {XPPMATH 20 "6#>%*SNerro4f4G,.#!\"\"\"#C\"\"\"*(&%\"bG6#\"\"$F)&%
\"aG6$F.F)F)&F06$F.\"\"#F4#F)F4*(F+F)F/F4F2F)F5*&F+F)F/F.#F)\"\"'*&F+F
)F2F.F8*&&F,6#F4F)&F06$F4F)F.F8" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 119 "SNerro4g1:=coeff(coeff(coeff(SNterm[1],D[2,2](f[1])(x0,y0[1],
y0[2])),D[1](f[1])(x0,y0[1],y0[2])),f[1](x0,y0[1],y0[2]));" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#>%*SNerro4g1G,(#!\"\"\"\")\"\"\"**&%\"bG6#\"
\"$F)&%\"aG6$F.\"\"#F)&%\"cG6#F2F)&F06$F.F)F)F)*(F+F)F/F2F3F)F)" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 119 "SNerro4g2:=coeff(coeff(coef
f(SNterm[1],D[2,3](f[1])(x0,y0[1],y0[2])),D[1](f[1])(x0,y0[1],y0[2])),
f[2](x0,y0[1],y0[2]));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%*SNerro4g2
G,(#!\"\"\"\")\"\"\"**&%\"bG6#\"\"$F)&%\"aG6$F.\"\"#F)&%\"cG6#F2F)&F06
$F.F)F)F)*(F+F)F/F2F3F)F)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
119 "SNerro4g3:=coeff(coeff(coeff(SNterm[1],D[2,3](f[1])(x0,y0[1],y0[2
])),D[1](f[2])(x0,y0[1],y0[2])),f[1](x0,y0[1],y0[2]));" }}{PARA 11 "" 
1 "" {XPPMATH 20 "6#>%*SNerro4g3G,(#!\"\"\"\")\"\"\"**&%\"bG6#\"\"$F)&
%\"aG6$F.\"\"#F)&%\"cG6#F2F)&F06$F.F)F)F)*(F+F)F/F2F3F)F)" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 119 "SNerro4g4:=coeff(coeff(coeff(SNter
m[1],D[3,3](f[1])(x0,y0[1],y0[2])),D[1](f[2])(x0,y0[1],y0[2])),f[2](x0
,y0[1],y0[2]));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%*SNerro4g4G,(#!\"
\"\"\")\"\"\"**&%\"bG6#\"\"$F)&%\"aG6$F.\"\"#F)&%\"cG6#F2F)&F06$F.F)F)
F)*(F+F)F/F2F3F)F)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 121 "SNer
ro4h1:=coeff(coeff(coeff(SNterm[1],D[2,2](f[1])(x0,y0[1],y0[2])),D[2](
f[1])(x0,y0[1],y0[2])),f[1](x0,y0[1],y0[2])^2);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%*SNerro4h1G,*#!\"\"\"\"'\"\"\"*(&%\"bG6#\"\"$F)&%\"aG
6$F.\"\"#F)&F06$F2F)F2#F)F2**F+F)F/F)F3F)&F06$F.F)F)F)*(F+F)F/F2F3F)F)
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 147 "SNerro4h2:=coeff(coeff
(coeff(coeff(SNterm[1],D[2,2](f[1])(x0,y0[1],y0[2])),D[3](f[1])(x0,y0[
1],y0[2])),f[1](x0,y0[1],y0[2])),f[2](x0,y0[1],y0[2]));" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#>%*SNerro4h2G,(#!\"\"\"\")\"\"\"**&%\"bG6#\"\"$F
)&%\"aG6$F.\"\"#F)&F06$F2F)F)&F06$F.F)F)F)*(F+F)F/F2F3F)F)" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 121 "SNerro4h3:=coeff(coeff(coeff(SNter
m[1],D[2,2](f[2])(x0,y0[1],y0[2])),D[3](f[1])(x0,y0[1],y0[2])),f[1](x0
,y0[1],y0[2])^2);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%*SNerro4h3G,&#!
\"\"\"#C\"\"\"*(&%\"bG6#\"\"$F)&%\"aG6$F.\"\"#F)&F06$F2F)F2#F)F2" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 147 "SNerro4h4:=coeff(coeff(coef
f(coeff(SNterm[1],D[2,3](f[1])(x0,y0[1],y0[2])),D[2](f[1])(x0,y0[1],y0
[2])),f[1](x0,y0[1],y0[2])),f[2](x0,y0[1],y0[2]));" }}{PARA 11 "" 1 "
" {XPPMATH 20 "6#>%*SNerro4h4G,***&%\"bG6#\"\"$\"\"\"&%\"aG6$F*\"\"#F+
&F-6$F/F+F+&F-6$F*F+F+F+*(F'F+F,F/F0F+F+#!\"&\"#CF+*(F'F+F,F+F0F/F+" }
}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 121 "SNerro4h5:=coeff(coeff(co
eff(SNterm[1],D[2,3](f[1])(x0,y0[1],y0[2])),D[2](f[2])(x0,y0[1],y0[2])
),f[1](x0,y0[1],y0[2])^2);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%*SNerr
o4h5G,(#!\"\"\"\")\"\"\"**&%\"bG6#\"\"$F)&%\"aG6$F.\"\"#F)&F06$F2F)F)&
F06$F.F)F)F)*(F+F)F/F2F3F)F)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 121 "SNerro4h6:=coeff(coeff(coeff(SNterm[1],D[2,3](f[1])(x0,y0[1],y0
[2])),D[3](f[1])(x0,y0[1],y0[2])),f[2](x0,y0[1],y0[2])^2);" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#>%*SNerro4h6G,(#!\"\"\"\")\"\"\"**&%\"bG6#\"
\"$F)&%\"aG6$F.\"\"#F)&F06$F2F)F)&F06$F.F)F)F)*(F+F)F/F2F3F)F)" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 147 "SNerro4h7:=coeff(coeff(coef
f(coeff(SNterm[1],D[2,3](f[1])(x0,y0[1],y0[2])),D[3](f[2])(x0,y0[1],y0
[2])),f[1](x0,y0[1],y0[2])),f[2](x0,y0[1],y0[2]));" }}{PARA 11 "" 1 "
" {XPPMATH 20 "6#>%*SNerro4h7G,(#!\"\"\"\")\"\"\"**&%\"bG6#\"\"$F)&%\"
aG6$F.\"\"#F)&F06$F2F)F)&F06$F.F)F)F)*(F+F)F/F2F3F)F)" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 147 "SNerro4h8:=coeff(coeff(coeff(coeff
(SNterm[1],D[2,3](f[2])(x0,y0[1],y0[2])),D[3](f[1])(x0,y0[1],y0[2])),f
[1](x0,y0[1],y0[2])),f[2](x0,y0[1],y0[2]));" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%*SNerro4h8G,&*(&%\"bG6#\"\"$\"\"\"&%\"aG6$F*\"\"#F+&F
-6$F/F+F/F+#!\"\"\"#7F+" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 121 
"SNerro4h9:=coeff(coeff(coeff(SNterm[1],D[3,3](f[1])(x0,y0[1],y0[2])),
D[2](f[1])(x0,y0[1],y0[2])),f[2](x0,y0[1],y0[2])^2);" }}{PARA 11 "" 1 
"" {XPPMATH 20 "6#>%*SNerro4h9G,&#!\"\"\"#C\"\"\"*(&%\"bG6#\"\"$F)&%\"
aG6$F.\"\"#F)&F06$F2F)F2#F)F2" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 148 "SNerro4h10:=coeff(coeff(coeff(coeff(SNterm[1],D[3,3](f[1])(x0,y
0[1],y0[2])),D[2](f[2])(x0,y0[1],y0[2])),f[1](x0,y0[1],y0[2])),f[2](x0
,y0[1],y0[2]));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%+SNerro4h10G,(#!
\"\"\"\")\"\"\"**&%\"bG6#\"\"$F)&%\"aG6$F.\"\"#F)&F06$F2F)F)&F06$F.F)F
)F)*(F+F)F/F2F3F)F)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 122 "SNe
rro4h11:=coeff(coeff(coeff(SNterm[1],D[3,3](f[1])(x0,y0[1],y0[2])),D[3
](f[2])(x0,y0[1],y0[2])),f[2](x0,y0[1],y0[2])^2);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%+SNerro4h11G,(#!\"\"\"\")\"\"\"**&%\"bG6#\"\"$F)&%\"a
G6$F.\"\"#F)&F06$F2F)F)&F06$F.F)F)F)*(F+F)F/F2F3F)F)" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 122 "SNerro4h12:=coeff(coeff(coeff(SNterm[1],
D[3,3](f[2])(x0,y0[1],y0[2])),D[3](f[1])(x0,y0[1],y0[2])),f[2](x0,y0[1
],y0[2])^2);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%+SNerro4h12G,&#!\"\"
\"#C\"\"\"*(&%\"bG6#\"\"$F)&%\"aG6$F.\"\"#F)&F06$F2F)F2#F)F2" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 91 "SNerro4i1:=coeff(coeff(SNter
m[1],D[1,1](f[1])(x0,y0[1],y0[2])),D[2](f[1])(x0,y0[1],y0[2]));" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%*SNerro4i1G,&#!\"\"\"#C\"\"\"*(&%\"b
G6#\"\"$F)&%\"aG6$F.\"\"#F)&%\"cG6#F2F2#F)F2" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 91 "SNerro4i2:=coeff(coeff(SNterm[1],D[1,1](f[2])(x0
,y0[1],y0[2])),D[3](f[1])(x0,y0[1],y0[2]));" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%*SNerro4i2G,&#!\"\"\"#C\"\"\"*(&%\"bG6#\"\"$F)&%\"aG6
$F.\"\"#F)&%\"cG6#F2F2#F)F2" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
91 "SNerro4j1:=coeff(coeff(SNterm[1],D[2](f[1])(x0,y0[1],y0[2])^2),D[1
](f[1])(x0,y0[1],y0[2]));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%*SNerro
4j1G#!\"\"\"#C" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 123 "SNerro4j
2:=coeff(coeff(coeff(SNterm[1],D[2](f[1])(x0,y0[1],y0[2])),D[3](f[1])(
x0,y0[1],y0[2])),D[1](f[2])(x0,y0[1],y0[2]));" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%*SNerro4j2G#!\"\"\"#C" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 123 "SNerro4j3:=coeff(coeff(coeff(SNterm[1],D[2](f[2])(x0
,y0[1],y0[2])),D[3](f[1])(x0,y0[1],y0[2])),D[1](f[1])(x0,y0[1],y0[2]))
;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%*SNerro4j3G#!\"\"\"#C" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 123 "SNerro4j4:=coeff(coeff(coef
f(SNterm[1],D[3](f[1])(x0,y0[1],y0[2])),D[3](f[2])(x0,y0[1],y0[2])),D[
1](f[2])(x0,y0[1],y0[2]));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%*SNerr
o4j4G#!\"\"\"#C" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 85 "SNerro4k
1:=coeff(coeff(SNterm[1],D[2](f[1])(x0,y0[1],y0[2])^3),f[1](x0,y0[1],y
0[2]));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%*SNerro4k1G#!\"\"\"#C" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 119 "SNerro4k2:=coeff(coeff(coe
ff(SNterm[1],D[2](f[1])(x0,y0[1],y0[2])^2),D[3](f[1])(x0,y0[1],y0[2]))
,f[2](x0,y0[1],y0[2]));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%*SNerro4k
2G#!\"\"\"#C" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 151 "SNerro4k3:
=coeff(coeff(coeff(coeff(SNterm[1],D[2](f[1])(x0,y0[1],y0[2])),D[3](f[
1])(x0,y0[1],y0[2])),D[2](f[2])(x0,y0[1],y0[2])),f[1](x0,y0[1],y0[2]))
;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%*SNerro4k3G#!\"\"\"#7" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 151 "SNerro4k4:=coeff(coeff(coef
f(coeff(SNterm[1],D[2](f[1])(x0,y0[1],y0[2])),D[3](f[1])(x0,y0[1],y0[2
])),D[3](f[2])(x0,y0[1],y0[2])),f[2](x0,y0[1],y0[2]));" }}{PARA 11 "" 
1 "" {XPPMATH 20 "6#>%*SNerro4k4G#!\"\"\"#C" }}}{EXCHG {PARA 0 "> " 0 
"" {MPLTEXT 1 0 119 "SNerro4k5:=coeff(coeff(coeff(SNterm[1],D[2](f[2])
(x0,y0[1],y0[2])),D[3](f[1])(x0,y0[1],y0[2])^2),f[2](x0,y0[1],y0[2]));
" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%*SNerro4k5G#!\"\"\"#C" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 151 "SNerro4k6:=coeff(coeff(coef
f(coeff(SNterm[1],D[2](f[2])(x0,y0[1],y0[2])),D[3](f[1])(x0,y0[1],y0[2
])),D[3](f[2])(x0,y0[1],y0[2])),f[1](x0,y0[1],y0[2]));" }}{PARA 11 "" 
1 "" {XPPMATH 20 "6#>%*SNerro4k6G#!\"\"\"#C" }}}{EXCHG {PARA 0 "> " 0 
"" {MPLTEXT 1 0 119 "SNerro4k7:=coeff(coeff(coeff(SNterm[1],D[3](f[1])
(x0,y0[1],y0[2])),D[3](f[2])(x0,y0[1],y0[2])^2),f[2](x0,y0[1],y0[2]));
" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%*SNerro4k7G#!\"\"\"#C" }}}
{EXCHG {PARA 0 "" 0 "" {MPLTEXT 0 21 28 "# soluciones para el orden 3
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 216 "SNsolve331:=solve(\{SN
cond1a,SNcond2a,SNcond2b1,SNcond2b2,SNcond3a,SNcond3b1,SNcond3b2,SNcon
d3c1,SNcond3c2,SNcond3c3,SNcond3d1,SNcond3d2,SNcond3e1,SNcond3e2,SNcon
d3e3,SNcond3e4\},\{b[1],b[2],b[3],a[2,1],a[3,1],a[3,2]\});" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#>%+SNsolve331G<(/&%\"bG6#\"\"$,$*(,&&%\"cG6#
\"\"#F*!\"#\"\"\"F3&F/F)!\"\",&F.F3F4F5F5#F3\"\"'/&%\"aG6$F*F1**F4F3F6
F3F.F5F-F5/&F;6$F*F3**F4F3,(F.!\"$F4F3*$F.F1F*F3F.F5F-F5/&F;6$F1F3F./&
F(6#F3,$*(,*F.FC*&F.F3F4F3F8F1F3F4FCF3F.F5F4F5F7/&F(F0,$*(,&F2F3F4F*F3
F6F5F.F5#F5F8" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 185 "SNsolve33
2:=solve(\{SNcond1a,SNcond2a,SNcond2b1,SNcond2b2,SNcond3a,SNcond3b1,SN
cond3b2,SNcond3c1,SNcond3c2,SNcond3c3,SNcond3d1,SNcond3d2,SNcond3e1,SN
cond3e2,SNcond3e3,SNcond3e4,c[2]=0\});" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#>%+SNsolve332G6\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 185 
"SNsolve333:=solve(\{SNcond1a,SNcond2a,SNcond2b1,SNcond2b2,SNcond3a,SN
cond3b1,SNcond3b2,SNcond3c1,SNcond3c2,SNcond3c3,SNcond3d1,SNcond3d2,SN
cond3e1,SNcond3e2,SNcond3e3,SNcond3e4,c[3]=0\});" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%+SNsolve333G<*/&%\"aG6$\"\"#\"\"\"#F*\"\"$/&%\"bG6#F-
F//&F06#F*#F-\"\"%/&F(6$F-F*,$*$F/!\"\"#F+F6/&F06#F+,&F=F+F/F</&F(6$F-
F+,$F;#F<F6/&%\"cGF4F,/&FIF1\"\"!" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 192 "SNsolve334:=solve(\{SNcond1a,SNcond2a,SNcond2b1,SNco
nd2b2,SNcond3a,SNcond3b1,SNcond3b2,SNcond3c1,SNcond3c2,SNcond3c3,SNcon
d3d1,SNcond3d2,SNcond3e1,SNcond3e2,SNcond3e3,SNcond3e4,3*c[2]-2=0\})[1
];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%+SNsolve334G<*/&%\"aG6$\"\"#\"
\"\"#F*\"\"$/&%\"bG6#F-F//&F06#F*#F-\"\"%/&F(6$F-F*,$*$F/!\"\"#F+F6/&F
06#F+,&F=F+F/F</&F(6$F-F+,$F;#F<F6/&%\"cGF4F,/&FIF1\"\"!" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 192 "SNsolve335:=solve(\{SNcond1a,SNcon
d2a,SNcond2b1,SNcond2b2,SNcond3a,SNcond3b1,SNcond3b2,SNcond3c1,SNcond3
c2,SNcond3c3,SNcond3d1,SNcond3d2,SNcond3e1,SNcond3e2,SNcond3e3,SNcond3
e4,3*c[2]-2=0\})[2];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%+SNsolve335G
<*/&%\"aG6$\"\"#\"\"\"#F*\"\"$/&%\"bG6#F-F//&%\"cGF1F,/&F(6$F-F*,$*$F/
!\"\"#F+\"\"%/&F46#F*F,/&F0F?,&F/F:#F-F<F+/&F(6$F-F+,$*&,&!\"$F+F/\"\"
)F+F/F:#F+\"#7/&F06#F+F;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
188 "SNsolve336:=solve(\{SNcond1a,SNcond2a,SNcond2b1,SNcond2b2,SNcond3
a,SNcond3b1,SNcond3b2,SNcond3c1,SNcond3c2,SNcond3c3,SNcond3d1,SNcond3d
2,SNcond3e1,SNcond3e2,SNcond3e3,SNcond3e4,c[2]=c[3]\});" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#>%+SNsolve336G<*/&%\"aG6$\"\"#\"\"\"#F*\"\"$/&%
\"bG6#F-F//&%\"cGF1F,/&F(6$F-F*,$*$F/!\"\"#F+\"\"%/&F46#F*F,/&F0F?,&F/
F:#F-F<F+/&F(6$F-F+,$*&,&!\"$F+F/\"\")F+F/F:#F+\"#7/&F06#F+F;" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 192 "SNsolve337:=solve(\{SNcond1
a,SNcond2a,SNcond2b1,SNcond2b2,SNcond3a,SNcond3b1,SNcond3b2,SNcond3c1,
SNcond3c2,SNcond3c3,SNcond3d1,SNcond3d2,SNcond3e1,SNcond3e2,SNcond3e3,
SNcond3e4,c[2]=0,c[3]=0\});" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%+SNso
lve337G6\"" }}}{EXCHG {PARA 0 "" 0 "" {MPLTEXT 0 21 24 "# minimizaci
\363n del error" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "" 0 "" {MPLTEXT 0 21 30 "# PARA
 SISTEMAS AUTONOMOS (SA)" }}}{EXCHG {PARA 0 "" 0 "" {MPLTEXT 0 21 37 "
# desarrollo de la verdadera solucion" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 25 "y[1]:=unapply(y[1](x),x):" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 25 "y[2]:=unapply(y[2](x),x):" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 41 "f[1]:=unapply(f[1](y[1],y[2]),y[1],y[2]):" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 41 "f[2]:=unapply(f[2](y[1],y[2]
),y[1],y[2]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "f0[1]:=f[1
](y[1](x),y[2](x)):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "f0[2
]:=f[2](y[1](x),y[2](x)):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
105 "f1[1]:=subs(\{diff(y[1](x),x)=f[1](y[1](x),y[2](x)),diff(y[2](x),
x)=f[2](y[1](x),y[2](x))\},diff(f0[1],x)):" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 105 "f1[2]:=subs(\{diff(y[1](x),x)=f[1](y[1](x),y[2](x)
),diff(y[2](x),x)=f[2](y[1](x),y[2](x))\},diff(f0[2],x)):" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 105 "f2[1]:=subs(\{diff(y[1](x),x)=f[1]
(y[1](x),y[2](x)),diff(y[2](x),x)=f[2](y[1](x),y[2](x))\},diff(f1[1],x
)):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 105 "f2[2]:=subs(\{diff(
y[1](x),x)=f[1](y[1](x),y[2](x)),diff(y[2](x),x)=f[2](y[1](x),y[2](x))
\},diff(f1[2],x)):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 105 "f3[1
]:=subs(\{diff(y[1](x),x)=f[1](y[1](x),y[2](x)),diff(y[2](x),x)=f[2](y
[1](x),y[2](x))\},diff(f2[1],x)):" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 105 "f3[2]:=subs(\{diff(y[1](x),x)=f[1](y[1](x),y[2](x)),
diff(y[2](x),x)=f[2](y[1](x),y[2](x))\},diff(f2[2],x)):" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 77 "f0[1]:=subs(\{y[1](x)=y0[1],y[2](x)
=y0[2],x=x0\},f0[1]):SAf0[1]:=expand(f0[1]);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>&%%SAf0G6#\"\"\"-&%\"fGF&6$&%#y0GF&&F-6#\"\"#" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 77 "f0[2]:=subs(\{y[1](x)=y0[1],
y[2](x)=y0[2],x=x0\},f0[2]):SAf0[2]:=expand(f0[2]):" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 77 "f1[1]:=subs(\{y[1](x)=y0[1],y[2](x)=y0[2]
,x=x0\},f1[1]):SAf1[1]:=expand(f1[1]);" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#>&%%SAf1G6#\"\"\",&*&--&%\"DGF&6#&%\"fGF&6$&%#y0GF&&F36#\"\"#F'-
F/F1F'F'*&--&F-F5F.F1F'-&F0F5F1F'F'" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 77 "f1[2]:=subs(\{y[1](x)=y0[1],y[2](x)=y0[2],x=x0\},f1[2
]):SAf1[2]:=expand(f1[2]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
77 "f2[1]:=subs(\{y[1](x)=y0[1],y[2](x)=y0[2],x=x0\},f2[1]):SAf2[1]:=e
xpand(f2[1]);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>&%%SAf2G6#\"\"\",0*&
--&%\"DG6$F'F'6#&%\"fGF&6$&%#y0GF&&F46#\"\"#F'-F0F2F7F'*(F8F'--&F-6$F'
F7F/F2F'-&F1F6F2F'F7*&--&F-F&F/F2F7F8F'F'*(FAF'--&F-F6F/F2F'F>F'F'*&--
&F-6$F7F7F/F2F'F>F7F'*(FEF'--FC6#F?F2F'F8F'F'*(FEF'--FGFPF2F'F>F'F'" }
}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 77 "f2[2]:=subs(\{y[1](x)=y0[1
],y[2](x)=y0[2],x=x0\},f2[2]):SAf2[2]:=expand(f2[2]):" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 77 "f3[1]:=subs(\{y[1](x)=y0[1],y[2](x)
=y0[2],x=x0\},f3[1]):SAf3[1]:=expand(f3[1]);" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>&%%SAf3G6#\"\"\",P*(--&%\"DGF&6#&%\"fG6#\"\"#6$&%#y0GF
&&F5F1F'--&F-F16#&F0F&F3F2-F/F3F'F'*(F7F'--F9F.F3F2F<F'F'*(--F,F:F3F2F
7F'F<F'F'*(--&F-6$F2F2F:F3F'F>F'F<F2\"\"$*(-F;F3F2--&F-6%F'F'F2F:F3F'F
<F'FH*(F7F'--&F-6$F'F'F.F3F'FJF2F'*(FAF'FDF'F<F2F'*(--FRF:F3F'FAF'FJF2
\"\"%*(F7F'--FFF.F3F'F<F2F'*(FJF'--&F-6%F'F2F2F:F3F'F<F2FH*&FAFHFJF'F'
*&--&F-6%F'F'F'F:F3F'FJFHF'**FAF'F7F'F*F'FJF'F2**FAF'F7F'F>F'F<F'F'**F
JF'--&F-6$F'F2F:F3F'F>F'F<F'FH**FdoF'F<F'FAF'FJF'\"\"&*(FdoF'F<F2F7F'F
H**FJF'FVF'F7F'F<F'FH**F<F'FDF'F*F'FJF'FH**F7F'FJF'--FfoF.F3F'F<F'F2**
F7F'F>F'F*F'FJF'F'*(FdoF'F*F'FJF2FH*&--&F-6%F2F2F2F:F3F'F<FHF'" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 77 "f3[2]:=subs(\{y[1](x)=y0[1],
y[2](x)=y0[2],x=x0\},f3[2]):SAf3[2]:=expand(f3[2]):" }}}{EXCHG {PARA 
0 "" 0 "" {MPLTEXT 0 21 23 "# desarrollo del m\351todo" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "k10[1]:=f[1](y[1],y[2]):" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "k10[2]:=f[2](y[1],y[2]):" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "k20[1]:=f[1](y[1]+a[2,1]*h*
k10[1],y[2]+a[2,1]*h*k10[2]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 56 "k20[2]:=f[2](y[1]+a[2,1]*h*k10[1],y[2]+a[2,1]*h*k10[2]):" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 88 "k30[1]:=f[1](y[1]+a[3,1]*h*k
10[1]+a[3,2]*h*k20[1],y[2]+a[3,1]*h*k10[2]+a[3,2]*h*k20[2]):" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 88 "k30[2]:=f[2](y[1]+a[3,1]*h*k
10[1]+a[3,2]*h*k20[1],y[2]+a[3,1]*h*k10[2]+a[3,2]*h*k20[2]):" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "k100[1]:=subs(h=0,k10[1]):" 
}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "k100[2]:=subs(h=0,k10[2])
:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "k200[1]:=subs(h=0,k20[
1]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "k200[2]:=subs(h=0,k
20[2]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "k300[1]:=subs(h=
0,k30[1]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "k300[2]:=subs
(h=0,k30[2]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 122 "Fi0[1]:=b
[1]*k100[1]+b[2]*k200[1]+b[3]*k300[1]:Fi0[1]:=subs(\{x=x0,y[1]=y0[1],y
[2]=y0[2]\},Fi0[1]):SAFi0[1]:=expand(Fi0[1]);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>&%&SAFi0G6#\"\"\",(*&&%\"bGF&F'-&%\"fGF&6$&%#y0GF&&F16
#\"\"#F'F'*&&F+F3F'F,F'F'*&&F+6#\"\"$F'F,F'F'" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 122 "Fi0[2]:=b[1]*k100[2]+b[2]*k200[2]+b[3]*k300[2]:
Fi0[2]:=subs(\{x=x0,y[1]=y0[1],y[2]=y0[2]\},Fi0[2]):SAFi0[2]:=expand(F
i0[2]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "k11[1]:=diff(k10
[1],h):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "k11[2]:=diff(k10
[2],h):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "k21[1]:=diff(k20
[1],h):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "k21[2]:=diff(k20
[2],h):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "k31[1]:=diff(k30
[1],h):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "k31[2]:=diff(k30
[2],h):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "k110[1]:=subs(h=
0,k11[1]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "k110[2]:=subs
(h=0,k11[2]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "k210[1]:=s
ubs(h=0,k21[1]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "k210[2]
:=subs(h=0,k21[2]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "k310
[1]:=subs(h=0,k31[1]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "k
310[2]:=subs(h=0,k31[2]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
122 "Fi1[1]:=b[1]*k110[1]+b[2]*k210[1]+b[3]*k310[1]:Fi1[1]:=subs(\{x=x
0,y[1]=y0[1],y[2]=y0[2]\},Fi1[1]):SAFi1[1]:=expand(Fi1[1]);" }}{PARA 
12 "" 1 "" {XPPMATH 20 "6#>&%&SAFi1G6#\"\"\",.**&%\"bG6#\"\"#F'--&%\"D
GF&6#&%\"fGF&6$&%#y0GF&&F7F,F'&%\"aG6$F-F'F'-F3F5F'F'**F*F'--&F1F,F2F5
F'F9F'-&F4F,F5F'F'**&F+6#\"\"$F'F.F'&F:6$FFF'F'F<F'F'**FDF'F.F'&F:6$FF
F-F'F<F'F'**FDF'F>F'FGF'FAF'F'**FDF'F>F'FJF'FAF'F'" }}}{EXCHG {PARA 0 
"> " 0 "" {MPLTEXT 1 0 122 "Fi1[2]:=b[1]*k110[2]+b[2]*k210[2]+b[3]*k31
0[1]:Fi1[2]:=subs(\{x=x0,y[1]=y0[1],y[2]=y0[2]\},Fi1[2]):SAFi1[2]:=exp
and(Fi1[2]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "k12[1]:=dif
f(k11[1],h):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "k12[2]:=dif
f(k11[2],h):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "k22[1]:=dif
f(k21[1],h):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "k22[2]:=dif
f(k21[2],h):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "k32[1]:=dif
f(k31[1],h):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "k32[2]:=dif
f(k31[2],h):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "k120[1]:=su
bs(h=0,k12[1]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "k120[2]:
=subs(h=0,k12[2]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "k220[
1]:=subs(h=0,k22[1]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "k2
20[2]:=subs(h=0,k22[2]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 
"k320[1]:=subs(h=0,k32[1]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
26 "k320[2]:=subs(h=0,k32[2]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 122 "Fi2[1]:=b[1]*k120[1]+b[2]*k220[1]+b[3]*k320[1]:Fi2[1]:=subs(
\{x=x0,y[1]=y0[1],y[2]=y0[2]\},Fi2[1]):SAFi2[1]:=expand(Fi2[1]);" }}
{PARA 12 "" 1 "" {XPPMATH 20 "6#>&%&SAFi2G6#\"\"\",B**&%\"bG6#\"\"#F'&
%\"aG6$F-F'F--&%\"fGF&6$&%#y0GF&&F6F,F---&%\"DG6$F'F'6#F2F4F'F'*,F*F'F
.F-F1F'--&F;6$F'F-F=F4F'-&F3F,F4F'F-**F*F'F.F-FCF---&F;6$F-F-F=F4F'F'*
*&F+6#\"\"$F'F8F'&F/6$FMF'F-F1F-F'*,FKF'F8F'FNF'F1F-&F/6$FMF-F'F-**FKF
'F8F'FQF-F1F-F'*,FKF'F?F'FNF-FCF'F1F'F-*.FKF'F?F'FNF'FCF'FQF'F1F'\"\"%
*,FKF'F?F'FQF-FCF'F1F'F-*,FKF'--&F;F&F=F4F-FQF'F.F'F1F'F-*.FKF'FYF'FQF
'--&F;F,F=F4F'F.F'FCF'F-**FKF'FFF'FNF-FCF-F'*,FKF'FFF'FNF'FCF-FQF'F-**
FKF'FFF'FQF-FCF-F'*.FKF'FgnF'FQF'--Fen6#FDF4F'F.F'F1F'F-*.FKF'FgnF'FQF
'--FinF`oF4F'F.F'FCF'F-" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 122 
"Fi2[2]:=b[1]*k120[2]+b[2]*k220[2]+b[3]*k320[1]:Fi2[2]:=subs(\{x=x0,y[
1]=y0[1],y[2]=y0[2]\},Fi2[2]):SAFi2[2]:=expand(Fi2[2]):" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "k13[1]:=diff(k12[1],h):" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "k13[2]:=diff(k12[2],h):" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "k23[1]:=diff(k22[1],h):" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "k23[2]:=diff(k22[2],h):" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "k33[1]:=diff(k32[1],h):" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "k33[2]:=diff(k32[2],h):" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "k130[1]:=subs(h=0,k13[1]):" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "k130[2]:=subs(h=0,k13[2]):" 
}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "k230[1]:=subs(h=0,k23[1])
:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "k230[2]:=subs(h=0,k23[
2]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "k330[1]:=subs(h=0,k
33[1]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "k330[2]:=subs(h=
0,k33[2]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 122 "Fi3[1]:=b[1]
*k130[1]+b[2]*k230[1]+b[3]*k330[1]:Fi3[1]:=subs(\{x=x0,y[1]=y0[1],y[2]
=y0[2]\},Fi3[1]):SAFi3[1]:=expand(Fi3[1]);" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>&%&SAFi3G6#\"\"\",`p*,&%\"bG6#\"\"$F'--&%\"DG6%F'\"\"#
F36#&%\"fGF&6$&%#y0GF&&F96#F3F'&%\"aG6$F-F'F--&F6F;F7F3-F5F7F'F-*,F*F'
--&F16%F'F'F'F4F7F'F<F'FAF-&F=6$F-F3F3F-**F*F'FCF'FGF-FAF-F'*,&F+F;F'&
F=6$F3F'F-FAF3--&F16%F'F'F3F4F7F'F?F'F-*,FKF'FLF-FAF'F?F3F.F'F-**FKF'F
LF-FAF-FCF'F'**FKF'FLF-F?F---&F16%F3F3F3F4F7F'F'*,F*F'FNF'F<F-F?F'FAF3
F-*.F*F'FNF'F<F'F?F'FGF3FAF3\"\"**.F*F'--&F16$F'F'F4F7F'FGF3--&F1F&F4F
7F'FLF'FAF3\"\"'*2F*F'FgnF'FGF'--&F1F;F4F7F'FLF'F?F'F<F'FAF'F^o*,F*F'F
NF'FGF-F?F'FAF3F-*.F*F'F.F'F<F3F?F3FGF'FAF'Fen*0F*F'FgnF'FGF3F`oF'FLF'
F?F'FAF'F^o*.F*F'F.F'F<F'F?F3FGF3FAF'Fen*,F*F'F.F'FGF-F?F3FAF'F-*,F*F'
FCF'F<F3FAF-FGF'F-*0F*F'--&F16$F'F3F4F7F'FGF'--F]o6#F@F7F'FLF'FAF3F<F'
F^o**F*F'FCF'F<F-FAF-F'**F*F'FUF'FGF-F?F-F'**F*F'FUF'F<F-F?F-F'*2F*F'-
-&F16$F3F3F4F7F'FGF'F^pF'FLF'FAF'F<F'F?F'F^o*.F*F'F[oF'FGF'FLF3F?F3Fep
F'F-*0F*F'FepF'FGF3F^pF'FLF'FAF'F?F'F^o*0F*F'FGF'FjoF'F<F'F?F3F`oF'FLF
'F^o*.F*F'FNF'F<F3F?F'FAF3FGF'Fen*.F*F'F[oF'FGF'FLF3FAF3FgnF'F-*2F*F'F
GF'FjoF'F<F'F?F'F[oF'FLF'FAF'F^o*0F*F'FjoF'FGF3F?F'F[oF'FLF'FAF'F^o*0F
*F'FjoF'FGF3--FboF`pF7F'FLF'F?F'FAF'F^o*.F*F'FjoF'FGF3F?F3F`oF'FLF'F^o
*.F*F'FjoF'FGF3F^pF'FLF'FAF3F^o*2F*F'FjoF'FGF'FaqF'FLF'F?F'F<F'FAF'F^o
*0F*F'FgnF'FGF'F[oF'FLF'FAF3F<F'F^o*,F*F'FUF'F<F3F?F-FGF'F-*.F*F'FepF'
FGF3FaqF'FLF'F?F3F^o*,F*F'FUF'F<F'F?F-FGF3F-*.F*F'F`oF'FGF'FLF3FAF3--F
inF`pF7F'F-*0F*F'FepF'FGF'FaqF'FLF'F?F3F<F'F^o*.F*F'F`oF'FGF'FLF3F?F3-
-FgpF`pF7F'F-*0F*F'F`oF'FGF'FLF3FAF'--F\\pF`pF7F'F?F'F^o*0F*F'F[oF'FGF
'FLF3FAF'FjoF'F?F'F^o" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 122 "F
i3[2]:=b[1]*k130[2]+b[2]*k230[2]+b[3]*k330[2]:Fi3[2]:=subs(\{x=x0,y[1]
=y0[1],y[2]=y0[2]\},Fi3[2]):SAFi3[2]:=expand(Fi3[2]):" }}}{EXCHG 
{PARA 0 "" 0 "" {MPLTEXT 0 21 24 "# consistencia y orden 1" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 77 "SAcond1a:=coeff(SAFi0[1],f[1](y0[1]
,y0[2]))=coeff(SAf0[1],f[1](y0[1],y0[2]));" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%)SAcond1aG/,(&%\"bG6#\"\"\"F*&F(6#\"\"#F*&F(6#\"\"$F*
F*" }}}{EXCHG {PARA 0 "" 0 "" {MPLTEXT 0 21 29 "# condiciones para el \+
orden 2" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "#SAcond2a" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 146 "SAcond2b1:=coeff(coeff(SAFi
1[1],D[1](f[1])(y0[1],y0[2])),f[1](y0[1],y0[2]))=coeff(coeff((1/2)*SAf
1[1],D[1](f[1])(y0[1],y0[2])),f[1](y0[1],y0[2]));" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%*SAcond2b1G/,(*&&%\"bG6#\"\"#\"\"\"&%\"aG6$F+F,F,F,*&
&F)6#\"\"$F,&F.6$F3F,F,F,*&F1F,&F.6$F3F+F,F,#F,F+" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 146 "SAcond2b2:=coeff(coeff(SAFi1[1],D[2](f[1])(
y0[1],y0[2])),f[2](y0[1],y0[2]))=coeff(coeff((1/2)*SAf1[1],D[2](f[1])(
y0[1],y0[2])),f[2](y0[1],y0[2]));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>
%*SAcond2b2G/,(*&&%\"bG6#\"\"#\"\"\"&%\"aG6$F+F,F,F,*&&F)6#\"\"$F,&F.6
$F3F,F,F,*&F1F,&F.6$F3F+F,F,#F,F+" }}}{EXCHG {PARA 0 "" 0 "" {MPLTEXT 
0 21 29 "# condiciones para el orden 3" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 9 "#SAcond3a" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
10 "#SAcond3b1" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "#SAcond3b
2" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 154 "SAcond3c1:=coeff(coef
f(SAFi2[1],D[1,1](f[1])(y0[1],y0[2])),f[1](y0[1],y0[2])^2)=coeff(coeff
((1/3)*SAf2[1],D[1,1](f[1])(y0[1],y0[2])),f[1](y0[1],y0[2])^2);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%*SAcond3c1G/,**&&%\"bG6#\"\"#\"\"\"&
%\"aG6$F+F,F+F,*&&F)6#\"\"$F,&F.6$F3F,F+F,*(F1F,F4F,&F.6$F3F+F,F+*&F1F
,F7F+F,#F,F3" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 154 "SAcond3c2:
=coeff(coeff(SAFi2[1],D[2,2](f[1])(y0[1],y0[2])),f[2](y0[1],y0[2])^2)=
coeff(coeff((1/3)*SAf2[1],D[2,2](f[1])(y0[1],y0[2])),f[2](y0[1],y0[2])
^2);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%*SAcond3c2G/,**&&%\"bG6#\"\"
#\"\"\"&%\"aG6$F+F,F+F,*&&F)6#\"\"$F,&F.6$F3F,F+F,*(F1F,F4F,&F.6$F3F+F
,F+*&F1F,F7F+F,#F,F3" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 200 "SA
cond3c3:=coeff(coeff(coeff(SAFi2[1],D[1,2](f[1])(y0[1],y0[2])),f[2](y0
[1],y0[2])),f[1](y0[1],y0[2]))=coeff(coeff(coeff((1/3)*SAf2[1],D[1,2](
f[1])(y0[1],y0[2])),f[2](y0[1],y0[2])),f[1](y0[1],y0[2]));" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#>%*SAcond3c3G/,**(&%\"bG6#\"\"$\"\"\"&%\"aG6
$F+F,F,&F.6$F+\"\"#F,\"\"%*&&F)6#F2F,&F.6$F2F,F2F2*&F(F,F0F2F2*&F(F,F-
F2F2#F2F+" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "#SAcond3d1" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "#SAcond3d2" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 150 "SAcond3e1:=coeff(coeff(SAFi2[1],D[
1](f[1])(y0[1],y0[2])^2),f[1](y0[1],y0[2]))=coeff(coeff((1/3)*SAf2[1],
D[1](f[1])(y0[1],y0[2])^2),f[1](y0[1],y0[2]));" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%*SAcond3e1G/,$*(&%\"bG6#\"\"$\"\"\"&%\"aG6$F+\"\"#F,&
F.6$F0F,F,F0#F,F+" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 208 "SAcon
d3e2:=coeff(coeff(coeff(SAFi2[1],D[1](f[1])(y0[1],y0[2])),D[2](f[1])(y
0[1],y0[2])),f[2](y0[1],y0[2]))=coeff(coeff(coeff((1/3)*SAf2[1],D[1](f
[1])(y0[1],y0[2])),D[2](f[1])(y0[1],y0[2])),f[2](y0[1],y0[2]));" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%*SAcond3e2G/,$*(&%\"bG6#\"\"$\"\"\"&
%\"aG6$F+\"\"#F,&F.6$F0F,F,F0#F,F+" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 208 "SAcond3e3:=coeff(coeff(coeff(SAFi2[1],D[2](f[1])(y0[
1],y0[2])),D[1](f[2])(y0[1],y0[2])),f[1](y0[1],y0[2]))=coeff(coeff(coe
ff((1/3)*SAf2[1],D[2](f[1])(y0[1],y0[2])),D[1](f[2])(y0[1],y0[2])),f[1
](y0[1],y0[2]));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%*SAcond3e3G/,$*(
&%\"bG6#\"\"$\"\"\"&%\"aG6$F+\"\"#F,&F.6$F0F,F,F0#F,F+" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 208 "SAcond3e4:=coeff(coeff(coeff(SAFi2
[1],D[2](f[1])(y0[1],y0[2])),D[2](f[2])(y0[1],y0[2])),f[2](y0[1],y0[2]
))=coeff(coeff(coeff((1/3)*SAf2[1],D[2](f[1])(y0[1],y0[2])),D[2](f[2])
(y0[1],y0[2])),f[2](y0[1],y0[2]));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#
>%*SAcond3e4G/,$*(&%\"bG6#\"\"$\"\"\"&%\"aG6$F+\"\"#F,&F.6$F0F,F,F0#F,
F+" }}}{EXCHG {PARA 0 "" 0 "" {MPLTEXT 0 21 34 "# coeficiente del t
\351rmino de error" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 50 "SAter
m[1]:=expand((1/3!)*SAFi3[1]-(1/4!)*SAf3[1]);" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>&%'SAtermG6#\"\"\",^s*(--&%\"DGF&6#&%\"fG6#\"\"#6$&%#y
0GF&&F5F1F'--&F-F16#&F0F&F3F2-F/F3F'#!\"\"\"#C*(F7F'--F9F.F3F2F<F'F=*(
--F,F:F3F2F7F'F<F'F=*,&%\"bG6#\"\"$F'--&F-6%F'F2F2F:F3F'&%\"aG6$FJF'FJ
F<F2-F;F3F'#F'F2*,FGF'--&F-6%F'F'F'F:F3F'FOF'FRFJ&FP6$FJF2F2FS*(--&F-6
$F2F2F:F3F'FAF'F<F2#F>\"\")*(FRF2--&F-6%F'F'F2F:F3F'F<F'Fjn**FGF'FUF'F
YFJFRFJ#F'\"\"'*(F7F'--&F-6$F'F'F.F3F'FRF2F=*(FDF'FfnF'F<F2F=*(--FgoF:
F3F'FDF'FRF2#F>Fco*(F7F'--FhnF.F3F'F<F2F=*(FRF'FKF'F<F2Fjn*&FDFJFRF'F=
*&FUF'FRFJF=*,&FHF1F'&FP6$F2F'FJFRF2F]oF'F<F'FS*,FepF'FfpFJFRF'F<F2FKF
'FS**FepF'FfpFJFRFJFUF'Fbo**FepF'FfpFJF<FJ--&F-6%F2F2F2F:F3F'Fbo**FDF'
F7F'F*F'FRF'#F>\"#7**FDF'F7F'FAF'F<F'F=**FRF'--&F-6$F'F2F:F3F'FAF'F<F'
Fjn**FdqF'F<F'FDF'FRF'#!\"&F?*(FdqF'F<F2F7F'Fjn**FRF'F[pF'F7F'F<F'Fjn*
*F<F'FfnF'F*F'FRF'Fjn**F7F'FRF'--FfqF.F3F'F<F'F`q**F7F'FAF'F*F'FRF'F=*
(FdqF'F*F'FRF2Fjn*&F[qF'F<FJF=*,FGF'F]oF'FOFJF<F'FRF2FS*.FGF'F]oF'FOF'
F<F'FYF2FRF2#FJF2*.FGF'F[pF'FYF2FDF'FfpF'FRF2F'*2FGF'F[pF'FYF'F7F'FfpF
'F<F'FOF'FRF'F'*,FGF'F]oF'FYFJF<F'FRF2FS*.FGF'FKF'FOF2F<F2FYF'FRF'Ffr*
0FGF'F[pF'FYF2F7F'FfpF'F<F'FRF'F'*.FGF'FKF'FOF'F<F2FYF2FRF'Ffr*,FGF'FK
F'FYFJF<F2FRF'FS*,FGF'FUF'FOF2FRFJFYF'FS*0FGF'FdqF'FYF'F*F'FfpF'FRF2FO
F'F'**FGF'FUF'FOFJFRFJFbo**FGF'F[qF'FYFJF<FJFbo**FGF'F[qF'FOFJF<FJFbo*
2FGF'FfnF'FYF'F*F'FfpF'FRF'FOF'F<F'F'*.FGF'FDF'FYF'FfpF2F<F2FfnF'FS*0F
GF'FfnF'FYF2F*F'FfpF'FRF'F<F'F'*0FGF'FYF'FdqF'FOF'F<F2F7F'FfpF'F'*.FGF
'F]oF'FOF2F<F'FRF2FYF'Ffr*.FGF'FDF'FYF'FfpF2FRF2F[pF'FS*2FGF'FYF'FdqF'
FOF'F<F'FDF'FfpF'FRF'F'*0FGF'FdqF'FYF2F<F'FDF'FfpF'FRF'F'*0FGF'FdqF'FY
F2FAF'FfpF'F<F'FRF'F'*.FGF'FdqF'FYF2F<F2F7F'FfpF'F'*.FGF'FdqF'FYF2F*F'
FfpF'FRF2F'*2FGF'FdqF'FYF'FAF'FfpF'F<F'FOF'FRF'F'*0FGF'F[pF'FYF'FDF'Ff
pF'FRF2FOF'F'*,FGF'F[qF'FOF2F<FJFYF'FS*.FGF'FfnF'FYF2FAF'FfpF'F<F2F'*,
FGF'F[qF'FOF'F<FJFYF2FS*.FGF'F7F'FYF'FfpF2FRF2FeoF'FS*0FGF'FfnF'FYF'FA
F'FfpF'F<F2FOF'F'*.FGF'F7F'FYF'FfpF2F<F2F_pF'FS*0FGF'F7F'FYF'FfpF2FRF'
F_rF'F<F'F'*0FGF'FDF'FYF'FfpF2FRF'FdqF'F<F'F'" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 9 "#SAerro4a" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 10 "#SAerro4b1" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "#SAer
ro4b2" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "#SAerro4c1" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "#SAerro4c2" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 10 "#SAerro4c3" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 10 "#SAerro4d1" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
10 "#SAerro4d2" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "#SAerro4e
1" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "#SAerro4e2" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "#SAerro4e3" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 10 "#SAerro4e4" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 10 "#SAerro4e5" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
10 "#SAerro4e6" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "#SAerro4e
7" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 83 "SAerro4f1:=coeff(coeff
(SAterm[1],D[1,1,1](f[1])(y0[1],y0[2])),f[1](y0[1],y0[2])^3);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%*SAerro4f1G,.#!\"\"\"#C\"\"\"*(&%\"b
G6#\"\"$F)&%\"aG6$F.F)F)&F06$F.\"\"#F4#F)F4*(F+F)F/F4F2F)F5*&F+F)F/F.#
F)\"\"'*&F+F)F2F.F8*&&F,6#F4F)&F06$F4F)F.F8" }}}{EXCHG {PARA 0 "> " 0 
"" {MPLTEXT 1 0 108 "SAerro4f2:=coeff(coeff(coeff(SAterm[1],D[1,1,2](f
[1])(y0[1],y0[2])),f[1](y0[1],y0[2])^2),f[2](y0[1],y0[2]));" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#>%*SAerro4f2G,.#!\"\"\"\")\"\"\"*&&%\"bG6#\"
\"$F)&%\"aG6$F.F)F.#F)\"\"#*(F+F)F/F3&F06$F.F3F)#F.F3*(F+F)F/F)F5F3F7*
&&F,6#F3F)&F06$F3F)F.F2*&F+F)F5F.F2" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 108 "SAerro4f3:=coeff(coeff(coeff(SAterm[1],D[1,2,2](f[1]
)(y0[1],y0[2])),f[2](y0[1],y0[2])^2),f[1](y0[1],y0[2]));" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#>%*SAerro4f3G,.#!\"\"\"\")\"\"\"*&&%\"bG6#\"\"$F
)&%\"aG6$F.F)F.#F)\"\"#*(F+F)F/F3&F06$F.F3F)#F.F3*(F+F)F/F)F5F3F7*&&F,
6#F3F)&F06$F3F)F.F2*&F+F)F5F.F2" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 83 "SAerro4f4:=coeff(coeff(SAterm[1],D[2,2,2](f[1])(y0[1],y0[2])),
f[2](y0[1],y0[2])^3);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%*SAerro4f4G
,.#!\"\"\"#C\"\"\"*(&%\"bG6#\"\"$F)&%\"aG6$F.F)F)&F06$F.\"\"#F4#F)F4*(
F+F)F/F4F2F)F5*&F+F)F/F.#F)\"\"'*&F+F)F2F.F8*&&F,6#F4F)&F06$F4F)F.F8" 
}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "#SAerro4g1" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "#SAerro4g2" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 10 "#SAerro4g3" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 10 "#SAerro4g4" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
112 "SAerro4h1:=coeff(coeff(coeff(SAterm[1],D[1,1](f[1])(y0[1],y0[2]))
,D[1](f[1])(y0[1],y0[2])),f[1](y0[1],y0[2])^2);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%*SAerro4h1G,*#!\"\"\"\"'\"\"\"*(&%\"bG6#\"\"$F)&%\"aG
6$F.\"\"#F)&F06$F2F)F2#F)F2**F+F)F/F)F3F)&F06$F.F)F)F)*(F+F)F/F2F3F)F)
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 135 "SAerro4h2:=coeff(coeff
(coeff(coeff(SAterm[1],D[1,1](f[1])(y0[1],y0[2])),D[2](f[1])(y0[1],y0[
2])),f[1](y0[1],y0[2])),f[2](y0[1],y0[2]));" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%*SAerro4h2G,(#!\"\"\"\")\"\"\"**&%\"bG6#\"\"$F)&%\"aG
6$F.\"\"#F)&F06$F2F)F)&F06$F.F)F)F)*(F+F)F/F2F3F)F)" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 112 "SAerro4h3:=coeff(coeff(coeff(SAterm[1],D
[1,1](f[2])(y0[1],y0[2])),D[2](f[1])(y0[1],y0[2])),f[1](y0[1],y0[2])^2
);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%*SAerro4h3G,&#!\"\"\"#C\"\"\"*
(&%\"bG6#\"\"$F)&%\"aG6$F.\"\"#F)&F06$F2F)F2#F)F2" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 135 "SAerro4h4:=coeff(coeff(coeff(coeff(SAterm[1
],D[1,2](f[1])(y0[1],y0[2])),D[1](f[1])(y0[1],y0[2])),f[1](y0[1],y0[2]
)),f[2](y0[1],y0[2]));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%*SAerro4h4
G,***&%\"bG6#\"\"$\"\"\"&%\"aG6$F*\"\"#F+&F-6$F/F+F+&F-6$F*F+F+F+*(F'F
+F,F/F0F+F+#!\"&\"#CF+*(F'F+F,F+F0F/F+" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 112 "SAerro4h5:=coeff(coeff(coeff(SAterm[1],D[1,2](f[1])(
y0[1],y0[2])),D[1](f[2])(y0[1],y0[2])),f[1](y0[1],y0[2])^2);" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#>%*SAerro4h5G,(#!\"\"\"\")\"\"\"**&%\"bG6#\"
\"$F)&%\"aG6$F.\"\"#F)&F06$F2F)F)&F06$F.F)F)F)*(F+F)F/F2F3F)F)" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 112 "SAerro4h6:=coeff(coeff(coef
f(SAterm[1],D[1,2](f[1])(y0[1],y0[2])),D[2](f[1])(y0[1],y0[2])),f[2](y
0[1],y0[2])^2);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%*SAerro4h6G,(#!\"
\"\"\")\"\"\"**&%\"bG6#\"\"$F)&%\"aG6$F.\"\"#F)&F06$F2F)F)&F06$F.F)F)F
)*(F+F)F/F2F3F)F)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 135 "SAerr
o4h7:=coeff(coeff(coeff(coeff(SAterm[1],D[1,2](f[1])(y0[1],y0[2])),D[2
](f[2])(y0[1],y0[2])),f[1](y0[1],y0[2])),f[2](y0[1],y0[2]));" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#>%*SAerro4h7G,(#!\"\"\"\")\"\"\"**&%\"bG6#\"
\"$F)&%\"aG6$F.\"\"#F)&F06$F2F)F)&F06$F.F)F)F)*(F+F)F/F2F3F)F)" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 135 "SAerro4h8:=coeff(coeff(coef
f(coeff(SAterm[1],D[1,2](f[2])(y0[1],y0[2])),D[2](f[1])(y0[1],y0[2])),
f[1](y0[1],y0[2])),f[2](y0[1],y0[2]));" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#>%*SAerro4h8G,&*(&%\"bG6#\"\"$\"\"\"&%\"aG6$F*\"\"#F+&F-6$F/F+F/
F+#!\"\"\"#7F+" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 112 "SAerro4h
9:=coeff(coeff(coeff(SAterm[1],D[2,2](f[1])(y0[1],y0[2])),D[1](f[1])(y
0[1],y0[2])),f[2](y0[1],y0[2])^2);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#
>%*SAerro4h9G,&#!\"\"\"#C\"\"\"*(&%\"bG6#\"\"$F)&%\"aG6$F.\"\"#F)&F06$
F2F)F2#F)F2" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 136 "SAerro4h10:
=coeff(coeff(coeff(coeff(SAterm[1],D[2,2](f[1])(y0[1],y0[2])),D[1](f[2
])(y0[1],y0[2])),f[1](y0[1],y0[2])),f[2](y0[1],y0[2]));" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#>%+SAerro4h10G,(#!\"\"\"\")\"\"\"**&%\"bG6#\"\"$
F)&%\"aG6$F.\"\"#F)&F06$F2F)F)&F06$F.F)F)F)*(F+F)F/F2F3F)F)" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 113 "SAerro4h11:=coeff(coeff(coe
ff(SAterm[1],D[2,2](f[1])(y0[1],y0[2])),D[2](f[2])(y0[1],y0[2])),f[2](
y0[1],y0[2])^2);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%+SAerro4h11G,(#!
\"\"\"\")\"\"\"**&%\"bG6#\"\"$F)&%\"aG6$F.\"\"#F)&F06$F2F)F)&F06$F.F)F
)F)*(F+F)F/F2F3F)F)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 113 "SAe
rro4h12:=coeff(coeff(coeff(SAterm[1],D[2,2](f[2])(y0[1],y0[2])),D[2](f
[1])(y0[1],y0[2])),f[2](y0[1],y0[2])^2);" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#>%+SAerro4h12G,&#!\"\"\"#C\"\"\"*(&%\"bG6#\"\"$F)&%\"aG6$F.\"\"#
F)&F06$F2F)F2#F)F2" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "#SAer
ro4i1" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "#SAerro4i2" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "#SAerro4j1" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 10 "#SAerro4j2" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 10 "#SAerro4j3" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
10 "#SAerro4j4" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 79 "SAerro4k1
:=coeff(coeff(SAterm[1],D[1](f[1])(y0[1],y0[2])^3),f[1](y0[1],y0[2]));
" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%*SAerro4k1G#!\"\"\"#C" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 110 "SAerro4k2:=coeff(coeff(coef
f(SAterm[1],D[1](f[1])(y0[1],y0[2])^2),D[2](f[1])(y0[1],y0[2])),f[2](y
0[1],y0[2]));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%*SAerro4k2G#!\"\"\"
#C" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 139 "SAerro4k3:=coeff(coe
ff(coeff(coeff(SAterm[1],D[1](f[1])(y0[1],y0[2])),D[2](f[1])(y0[1],y0[
2])),D[1](f[2])(y0[1],y0[2])),f[1](y0[1],y0[2]));" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%*SAerro4k3G#!\"\"\"#7" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 139 "SAerro4k4:=coeff(coeff(coeff(coeff(SAterm[1],D[1](f[
1])(y0[1],y0[2])),D[2](f[1])(y0[1],y0[2])),D[2](f[2])(y0[1],y0[2])),f[
2](y0[1],y0[2]));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%*SAerro4k4G#!\"
\"\"#C" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 110 "SAerro4k5:=coeff
(coeff(coeff(SAterm[1],D[1](f[2])(y0[1],y0[2])),D[2](f[1])(y0[1],y0[2]
)^2),f[2](y0[1],y0[2]));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%*SAerro4
k5G#!\"\"\"#C" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 139 "SAerro4k6
:=coeff(coeff(coeff(coeff(SAterm[1],D[1](f[2])(y0[1],y0[2])),D[2](f[1]
)(y0[1],y0[2])),D[2](f[2])(y0[1],y0[2])),f[1](y0[1],y0[2]));" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#>%*SAerro4k6G#!\"\"\"#C" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 110 "SAerro4k7:=coeff(coeff(coeff(SAterm[1],D[2]
(f[1])(y0[1],y0[2])),D[2](f[2])(y0[1],y0[2])^2),f[2](y0[1],y0[2]));" }
}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%*SAerro4k7G#!\"\"\"#C" }}}{EXCHG 
{PARA 0 "" 0 "" {MPLTEXT 0 21 28 "# soluciones para el orden 3" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 185 "SAsolve331:=solve(\{SAcond1
a,SAcond2b1,SAcond2b2,SAcond3c1,SAcond3c2,SAcond3c3,SAcond3e1,SAcond3e
2,SAcond3e3,SAcond3e4,c2=a[2,1],c3=a[3,1]+a[3,2]\},\{b[1],b[2],b[3],a[
2,1],a[3,1],a[3,2]\});" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%+SAsolve33
1G<(/&%\"aG6$\"\"$\"\"\"**%#c3GF+,(*$%#c2G\"\"#F*F0!\"$F-F+F+F0!\"\",&
F0F*!\"#F+F3/&%\"bG6#F1,$*(,&F5F+F-F*F+,&F0F3F-F+F3F0F3#F+\"\"'/&F86#F
+,$*(,*F-F2*&F0F+F-F+F?F1F+F0F2F+F0F3F-F3F>/&F(6$F1F+F0/&F86#F*,$*(F4F
+F-F3F=F3#F3F?/&F(6$F*F1,$**F-F+F=F+F0F3F4F3F3" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 167 "SAsolve332:=solve(\{SAcond1a,SAcond2b1,SAcond
2b2,SAcond3c1,SAcond3c2,SAcond3c3,SAcond3e1,SAcond3e2,SAcond3e3,SAcond
3e4,a[2,1]=0\},\{b[1],b[2],b[3],a[2,1],a[3,1],a[3,2]\});" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#>%+SAsolve332G6\"" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 174 "SAsolve333:=solve(\{SAcond1a,SAcond2b1,SAcond2b2,SAc
ond3c1,SAcond3c2,SAcond3c3,SAcond3e1,SAcond3e2,SAcond3e3,SAcond3e4,a[3
,1]+a[3,2]=0\},\{b[1],b[2],b[3],a[2,1],a[3,1],a[3,2]\});" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#>%+SAsolve333G<(/&%\"aG6$\"\"#\"\"\"#F*\"\"$/&%
\"bG6#F-F//&F06#F*#F-\"\"%/&F(6$F-F*,$*$F/!\"\"#F+F6/&F06#F+,&F=F+F/F<
/&F(6$F-F+,$F;#F<F6" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 174 "SAs
olve334:=solve(\{SAcond1a,SAcond2b1,SAcond2b2,SAcond3c1,SAcond3c2,SAco
nd3c3,SAcond3e1,SAcond3e2,SAcond3e3,SAcond3e4,3*a[2,1]-2=0\},\{b[1],b[
2],b[3],a[2,1],a[3,1],a[3,2]\})[1];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6
#>%+SAsolve334G<(/&%\"aG6$\"\"#\"\"\"#F*\"\"$/&%\"bG6#F-F//&F06#F*#F-
\"\"%/&F(6$F-F*,$*$F/!\"\"#F+F6/&F06#F+,&F=F+F/F</&F(6$F-F+,$F;#F<F6" 
}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 174 "SAsolve335:=solve(\{SAco
nd1a,SAcond2b1,SAcond2b2,SAcond3c1,SAcond3c2,SAcond3c3,SAcond3e1,SAcon
d3e2,SAcond3e3,SAcond3e4,3*a[2,1]-2=0\},\{b[1],b[2],b[3],a[2,1],a[3,1]
,a[3,2]\})[2];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%+SAsolve335G<(/&%
\"aG6$\"\"#\"\"\"#F*\"\"$/&%\"bG6#F-F//&F(6$F-F*,$*$F/!\"\"#F+\"\"%/&F
06#F*,&F/F7#F-F9F+/&F(6$F-F+,$*&,&!\"$F+F/\"\")F+F/F7#F+\"#7/&F06#F+F8
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 179 "SAsolve336:=solve(\{SA
cond1a,SAcond2b1,SAcond2b2,SAcond3c1,SAcond3c2,SAcond3c3,SAcond3e1,SAc
ond3e2,SAcond3e3,SAcond3e4,a[2,1]=a[3,1]+a[3,2]\},\{b[1],b[2],b[3],a[2
,1],a[3,1],a[3,2]\});" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%+SAsolve336
G<(/&%\"aG6$\"\"#\"\"\"#F*\"\"$/&%\"bG6#F-F//&F(6$F-F*,$*$F/!\"\"#F+\"
\"%/&F06#F*,&F/F7#F-F9F+/&F(6$F-F+,$*&,&!\"$F+F/\"\")F+F/F7#F+\"#7/&F0
6#F+F8" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 183 "SAsolve337:=solv
e(\{SAcond1a,SAcond2b1,SAcond2b2,SAcond3c1,SAcond3c2,SAcond3c3,SAcond3
e1,SAcond3e2,SAcond3e3,SAcond3e4,a[2,1=0],a[3,1]+a[3,2]=0\},\{b[1],b[2
],b[3],a[2,1],a[3,1],a[3,2]\});" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%+
SAsolve337G6\"" }}}{EXCHG {PARA 0 "" 0 "" {MPLTEXT 0 21 24 "# minimiza
ci\363n del error" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "0 0" 0 }
{VIEWOPTS 1 1 0 3 4 1802 }