{VERSION 6 0 "IBM INTEL NT" "6.0" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 1 0 0 0 0 1 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 0 1 }{CSTYLE "2D Comment" 2 18 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 } {CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 1 } {CSTYLE "" -1 256 "" 1 18 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 257 "" 1 18 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 258 "" 1 18 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 259 "" 1 18 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 260 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 1 } {CSTYLE "" -1 261 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 262 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 263 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 264 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 265 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 1 } {CSTYLE "" -1 266 "" 1 18 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 267 "" 1 24 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 268 "" 1 24 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 269 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 270 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 1 } {CSTYLE "" -1 271 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 272 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 273 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 274 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 275 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 1 } {CSTYLE "" -1 276 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 277 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 278 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 279 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 280 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 1 } {CSTYLE "" -1 281 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 282 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 283 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 284 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 285 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 1 } {CSTYLE "" -1 286 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 287 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 288 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 289 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 290 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 1 } {CSTYLE "" -1 291 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 292 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 293 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 294 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 295 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 1 } {CSTYLE "" -1 296 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 297 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 298 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 299 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 300 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 1 } {CSTYLE "" -1 301 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 302 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 303 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 304 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 305 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 1 } {CSTYLE "" -1 306 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 307 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 308 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 309 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 310 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 1 } {CSTYLE "" -1 311 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 312 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 313 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 314 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 315 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 1 } {CSTYLE "" -1 316 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 317 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 318 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 319 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 320 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 1 } {CSTYLE "" -1 321 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 322 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 323 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 324 "" 1 18 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "" 0 1 234 0 0 0 0 0 0 0 0 0 0 0 0 1 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Headi ng 1" 0 3 1 {CSTYLE "" -1 -1 "" 1 18 0 0 0 0 0 1 0 0 0 0 0 0 0 1 }1 0 0 0 6 6 0 0 0 0 0 0 -1 0 }{PSTYLE "Heading 2" 3 4 1 {CSTYLE "" -1 -1 " " 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }0 0 0 -1 4 4 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 1 }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 }1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }} {SECT 0 {EXCHG {PARA 4 "" 0 "" {TEXT 267 14 "Ejercicios de " }}{PARA 4 "" 0 "" {TEXT 268 41 "(4) Estimaci\363n del error y cambio de paso" }}{PARA 4 "" 0 "" {TEXT -1 0 "" }}{PARA 4 "" 0 "" {TEXT 266 15 "Ejerci cio 04-02" }}{PARA 4 "" 0 "" {TEXT -1 80 "\nSe desea construir un par \+ encajado RK2(3) . Se quiere que el m\351todo de orden 2" }}{PARA 4 " " 0 "" {TEXT -1 67 "que se utiliza sea el 'm\351todo del punto medio', dado por el tablero" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 4 "" 0 " " {TEXT 260 13 " 0 | " }}{PARA 4 "" 0 "" {TEXT 261 6 " " }{XPPEDIT 18 0 "1/2" "6#*&\"\"\"F$\"\"#!\"\"" }{TEXT 264 8 " | " }{XPPEDIT 18 0 "1/2" "6#*&\"\"\"F$\"\"#!\"\"" }{TEXT 265 2 " " }} {PARA 4 "" 0 "" {TEXT -1 13 " ---------" }{TEXT 262 11 "----------- " }}{PARA 4 "" 0 "" {TEXT 263 26 " | 0 1" }}{PARA 4 "" 0 "" {TEXT -1 71 "B\372squese el correspondiente m\351todo de ord en 3 que complemente el m\351todo" }}{PARA 4 "" 0 "" {TEXT -1 51 "indi cado entre los de tres evaluaciones de la forma" }}{PARA 4 "" 0 "" {TEXT -1 2 " " }}{PARA 4 "" 0 "" {TEXT 269 14 " 0 | " }} {PARA 4 "" 0 "" {TEXT 274 6 " " }{XPPEDIT 18 0 "1/2" "6#*&\"\"\"F $\"\"#!\"\"" }{TEXT 275 9 " | " }{XPPEDIT 18 0 "1/2" "6#*&\"\"\" F$\"\"#!\"\"" }{TEXT 276 1 " " }}{PARA 4 "" 0 "" {TEXT 277 7 " \+ " }{XPPEDIT 18 0 "c[3]" "6#&%\"cG6#\"\"$" }{TEXT 278 8 " | " } {XPPEDIT 18 0 "a[31]" "6#&%\"aG6#\"#J" }{TEXT 279 4 " " }{XPPEDIT 18 0 "a[32]" "6#&%\"aG6#\"#K" }{TEXT 280 1 " " }}{PARA 0 "" 0 "" {TEXT -1 13 " ---------" }{TEXT 284 26 "-------------------------- " }}{PARA 4 "" 0 "" {TEXT 281 20 " | " }{XPPEDIT 18 0 "bt[1]" "6#&%#btG6#\"\"\"" }{TEXT 282 6 " " }{XPPEDIT 18 0 "bt[ 2]" "6#&%#btG6#\"\"#" }{TEXT 283 5 " " }{XPPEDIT 18 0 "bt[3]" "6#& %#btG6#\"\"$" }{TEXT 285 3 " " }}{PARA 4 "" 0 "" {TEXT -1 56 "escrib iendo el resultado en la forma del cuadro habitual" }}{PARA 4 "" 0 "" {TEXT 270 13 " 0 | " }}{PARA 4 "" 0 "" {TEXT 290 5 " " } {XPPEDIT 18 0 "1/2" "6#*&\"\"\"F$\"\"#!\"\"" }{TEXT 291 9 " | " }{XPPEDIT 18 0 "1/2" "6#*&\"\"\"F$\"\"#!\"\"" }{TEXT 292 1 " " }} {PARA 4 "" 0 "" {TEXT 293 6 " " }{XPPEDIT 18 0 "c[3]" "6#&%\"cG6# \"\"$" }{TEXT 294 8 " | " }{XPPEDIT 18 0 "a[31]" "6#&%\"aG6#\"#J " }{TEXT 295 4 " " }{XPPEDIT 18 0 "a[32]" "6#&%\"aG6#\"#K" }{TEXT 296 1 " " }}{PARA 4 "" 0 "" {TEXT 273 1 " " }{TEXT -1 11 " --------- " }{TEXT 271 24 "------------------------" }}{PARA 4 "" 0 "" {TEXT 272 39 " ord 2 | 0 1 0" }}{PARA 0 "" 0 "" {TEXT -1 11 " ---------" }{TEXT 286 27 "---------------------------" }}{PARA 4 "" 0 "" {TEXT 287 17 " ord 3 | " }{XPPEDIT 18 0 "bt[ 1]" "6#&%#btG6#\"\"\"" }{TEXT 297 6 " " }{XPPEDIT 18 0 "bt[2]" "6 #&%#btG6#\"\"#" }{TEXT 298 5 " " }{XPPEDIT 18 0 "bt[3]" "6#&%#btG6 #\"\"$" }{TEXT 299 3 " " }}{PARA 0 "" 0 "" {TEXT -1 11 " --------- " }{TEXT 288 27 "---------------------------" }}{PARA 4 "" 0 "" {TEXT 289 16 " estim | " }{XPPEDIT 18 0 "d[1]" "6#&%\"dG6#\"\"\"" } {TEXT 300 8 " " }{XPPEDIT 18 0 "d[2]" "6#&%\"dG6#\"\"#" }{TEXT 301 7 " " }{XPPEDIT 18 0 "d[3]" "6#&%\"dG6#\"\"$" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 4 "" 0 "" {TEXT -1 61 " Como se podr\341 ve r, una posibilidad simplificadora es hacer " }{XPPEDIT 18 0 "c[3]" "6 #&%\"cG6#\"\"$" }{TEXT 302 4 " = " }{XPPEDIT 18 0 "a[31]" "6#&%\"aG6# \"#J" }{TEXT 303 5 " + " }{XPPEDIT 18 0 "a[32]" "6#&%\"aG6#\"#K" } {TEXT 304 1 " " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "interface(labeling=false) :" }}}{EXCHG {PARA 4 "" 0 "" {TEXT -1 61 "El 'm\351todo del punto medi o' y las condiciones para el orden 3" }{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "y1:=f(x,y(x)):" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 37 "y2:=subs(diff(y(x),x)=y1,diff(y1,x)):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 37 "y3:=subs(diff(y(x),x)=y1,dif f(y2,x)):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "Y1:=subs(\{y(x )=y0,x=x0\},y1):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "Y2:=sub s(\{y(x)=y0,x=x0\},y2):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 " Y3:=subs(\{y(x)=y0,x=x0\},y3):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "k1_:=f(x0,y0):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "k 2_:=f(x0+(1/2)*h,y0+(1/2)*h*k1_):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "k1_0:=subs(h=0,k1_):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "k2_0:=subs(h=0,k2_):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "k11:=diff(k1_,h):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "k21:=diff(k2_,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 17 "k12:=diff(k11,h):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "k22:=diff(k21,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 "" {TEXT 324 28 "condiciones para el orden 3 " }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 19 "Fi20:=expand(k220);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%Fi20G,(*&#\"\"\"\"\"%F(--&%\"DG6$F(F(6#%\"fG6$%#x0G%#y0GF(F(* &#F(\"\"#F(*&--&F-6$F(F6F/F1F(-F0F1F(F(F(*&F'F(*&--&F-6$F6F6F/F1F()F " 0 "" {MPLTEXT 1 0 76 "cond3a:=(1/6)*co eff(Y3,D[1,1](f)(x0,y0))=(1/2)*coeff(Fi20,D[1,1](f)(x0,y0));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'cond3aG/#\"\"\"\"\"'#F'\"\")" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 108 "cond3b:=(1/6)*coeff(coeff(Y3,D[1,2 ](f)(x0,y0)),f(x0,y0))=(1/2)*coeff(coeff(Fi20,D[1,2](f)(x0,y0)),f(x0,y 0));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'cond3bG/#\"\"\"\"\"$#F'\"\" %" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 112 "cond3c:=(1/6)*coeff(c oeff(Y3,D[2,2](f)(x0,y0)),f(x0,y0)^2)=(1/2)*coeff(coeff(Fi20,D[2,2](f) (x0,y0)),f(x0,y0)^2);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'cond3cG/# \"\"\"\"\"'#F'\"\")" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 116 "con d3d:=(1/6)*coeff(coeff(Y3,D[2](f)(x0,y0)),D[1](f)(x0,y0))=(1/2)*coeff( coeff(Fi20,D[2](f)(x0,y0)),D[1](f)(x0,y0));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'cond3dG/#\"\"\"\"\"'\"\"!" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 108 "cond3e:=(1/6)*coeff(coeff(Y3,D[2](f)(x0,y0)^2),f( x0,y0))=(1/2)*coeff(coeff(Fi20,D[2](f)(x0,y0)^2),f(x0,y0));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'cond3eG/#\"\"\"\"\"'\"\"!" }}}{EXCHG {PARA 4 "" 0 "" {TEXT -1 56 "El m\351todo de el orden 3 con el que for ma un par encajado" }{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "y1:=f(x,y(x)):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 37 "y2:=subs(diff(y(x),x)=y1,diff(y1,x)):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 37 "y3:=subs(diff(y(x),x)=y1,diff(y2,x)):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "Y1:=subs(\{y(x)=y0,x=x0\},y1 ):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "Y2:=subs(\{y(x)=y0,x= x0\},y2):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "Y3:=subs(\{y(x )=y0,x=x0\},y3):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "k1_:=f( x0,y0):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "k2_:=f(x0+(1/2)* h,y0+(1/2)*h*k1_):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "k3_:= f(x0+c[3]*h,y0+a[3,1]*h*k1_+a[3,2]*h*k2_):" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 20 "k1_0:=subs(h=0,k1_):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "k2_0:=subs(h=0,k2_):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "k3_0:=subs(h=0,k3_):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "k11:=diff(k1_,h):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "k21:=diff(k2_,h):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "k31:=diff(k3_,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 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 "" {TEXT 256 27 "condiciones para el orden 1" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 47 "Fi_0:=expand(bt[1]*k1_0+bt[2]*k2_0+bt[3]*k3_0);" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%%Fi_0G,(*&&%#btG6#\"\"\"F*-%\"fG6$%# x0G%#y0GF*F**&&F(6#\"\"#F*F+F*F**&&F(6#\"\"$F*F+F*F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 48 "cond1a:=coeff(Y1,f(x0,y0))=coeff(Fi_0,f(x 0,y0));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'cond1aG/\"\"\",(&%#btG6# F&F&&F)6#\"\"#F&&F)6#\"\"$F&" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 257 27 " condiciones para el orden 2" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "Fi10:=expand(bt[1]*k110+bt[2]*k210+bt[3]*k310);" }}{PARA 11 "" 1 " " {XPPMATH 20 "6#>%%Fi10G,,*&#\"\"\"\"\"#F(*&&%#btG6#F)F(--&%\"DG6#F(6 #%\"fG6$%#x0G%#y0GF(F(F(*&F'F(*(F+F(--&F1F-F3F5F(-F4F5F(F(F(*(&F,6#\" \"$F(F.F(&%\"cGF@F(F(**F?F(F:F(&%\"aG6$FAF(F(F=F(F(**F?F(F:F(&FF6$FAF) F(F=F(F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 66 "cond2a:=(1/2)*c oeff(Y2,D[1](f)(x0,y0))=coeff(Fi10,D[1](f)(x0,y0));" }}{PARA 11 "" 1 " " {XPPMATH 20 "6#>%'cond2aG/#\"\"\"\"\"#,&*&F&F'&%#btG6#F(F'F'*&&F,6# \"\"$F'&%\"cGF0F'F'" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 98 "cond 2b:=(1/2)*coeff(coeff(Y2,D[2](f)(x0,y0)),f(x0,y0))=coeff(coeff(Fi10,D[ 2](f)(x0,y0)),f(x0,y0));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'cond2bG /#\"\"\"\"\"#,(*&F&F'&%#btG6#F(F'F'*&&F,6#\"\"$F'&%\"aG6$F1F'F'F'*&F/F '&F36$F1F(F'F'" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 258 28 "condiciones pa ra el orden 3 " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "Fi20:=exp and(bt[1]*k120+bt[2]*k220+bt[3]*k320);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%%Fi20G,8*&#\"\"\"\"\"%F(*&&%#btG6#\"\"#F(--&%\"DG6$F(F(6#%\"fG 6$%#x0G%#y0GF(F(F(*&#F(F.F(*(F+F(--&F26$F(F.F4F6F(-F5F6F(F(F(*&F'F(*(F +F(--&F26$F.F.F4F6F()F@F.F(F(F(*(&F,6#\"\"$F(F/F()&%\"cGFJF.F(F(*.F.F( FIF(FMF(F " 0 "" {MPLTEXT 1 0 76 "cond3a:=(1/6)*coeff(Y3,D[1,1 ](f)(x0,y0))=(1/2)*coeff(Fi20,D[1,1](f)(x0,y0));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'cond3aG/#\"\"\"\"\"',&*&#F'\"\")F'&%#btG6#\"\"#F'F'* &#F'F0F'*&&F.6#\"\"$F')&%\"cGF5F0F'F'F'" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 108 "cond3b:=(1/6)*coeff(coeff(Y3,D[1,2](f)(x0,y0)),f(x0, y0))=(1/2)*coeff(coeff(Fi20,D[1,2](f)(x0,y0)),f(x0,y0));" }}{PARA 11 " " 1 "" {XPPMATH 20 "6#>%'cond3bG/#\"\"\"\"\"$,(*&#F'\"\"%F'&%#btG6#\" \"#F'F'*(&F.6#F(F'&%\"cGF3F'&%\"aG6$F(F'F'F'*(F2F'F4F'&F76$F(F0F'F'" } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 112 "cond3c:=(1/6)*coeff(coeff (Y3,D[2,2](f)(x0,y0)),f(x0,y0)^2)=(1/2)*coeff(coeff(Fi20,D[2,2](f)(x0, y0)),f(x0,y0)^2);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'cond3cG/#\"\" \"\"\"',**&#F'\"\")F'&%#btG6#\"\"#F'F'*&#F'F0F'*&&F.6#\"\"$F')&%\"aG6$ F6F'F0F'F'F'*(F4F'F8F'&F96$F6F0F'F'*&F2F'*&F4F')F " 0 "" {MPLTEXT 1 0 116 "cond3d:=(1/6)*coeff(coeff(Y3,D[2]( f)(x0,y0)),D[1](f)(x0,y0))=(1/2)*coeff(coeff(Fi20,D[2](f)(x0,y0)),D[1] (f)(x0,y0));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'cond3dG/#\"\"\"\"\" ',$*&#F'\"\"#F'*&&%#btG6#\"\"$F'&%\"aG6$F1F,F'F'F'" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 108 "cond3e:=(1/6)*coeff(coeff(Y3,D[2](f)(x0,y0 )^2),f(x0,y0))=(1/2)*coeff(coeff(Fi20,D[2](f)(x0,y0)^2),f(x0,y0));" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%'cond3eG/#\"\"\"\"\"',$*&#F'\"\"#F'* &&%#btG6#\"\"$F'&%\"aG6$F1F,F'F'F'" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 259 27 "soluciones para el orden 3 " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 107 "soluciones:=allvalues(solve(\{c[3]=a[3,1]+a[3,2],con d1a,cond2a,cond2b,cond3a,cond3b,cond3c,cond3d,cond3e\}));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%+solucionesG<(/&%#btG6#\"\"\",$*&#F*\"\"'F**& F*F*&%\"cG6#\"\"$!\"\"F*F*/&F(6#\"\"#,$*&#F8F3F**&,&F8F4*&F3F*F0F*F*F* ,&F*F4*&F8F*F0F*F*F4F*F*/&F(F2,$*&F-F**&F*F**&F0F*F?F*F4F*F*/&%\"aG6$F 3F*,&*&F3F*F0F*F**&\"\"%F*)F0F8F*F4/&FI6$F3F8,$*(F8F*F0F*F?F*F*/F0F0" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 120 "soluciones:=allvalues(so lve(\{bt[3]=1/3,c[3]=a[3,1]+a[3,2],cond1a,cond2a,cond2b,cond3a,cond3b, cond3c,cond3d,cond3e\}))[2];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%+sol ucionesG<(/&%#btG6#\"\"$#\"\"\"F*/&%\"aG6$F*\"\"#F,/&F(6#F,,&#F,\"\"'! \"\"*&F7F8\"\"&#F,F1F8/&F(6#F1,&#F:F7F,*&F7F8F:F;F,/&F/6$F*F,,&#F*\"\" %F8*&FGF8F:F;F8/&%\"cGF),&#F,FGF,*&FGF8F:F;F8" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 241 "print(`c[3]=`,subs(soluciones,c[3]));\nprint(`a [3,1]=`,subs(soluciones,a[3,1]));\nprint(`a[3,2]=`,subs(soluciones,a[3 ,2]));\nprint(`bt[1]=`,subs(soluciones,bt[1]));\nprint(`bt[2]=`,subs(s oluciones,bt[2]));\nprint(`bt[3]=`,subs(soluciones,bt[3]));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$%&c[3]=G,&#\"\"\"\"\"%F&*&F'!\"\"\"\"&#F&\" \"#F)" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$%(a[3,1]=G,&#\"\"$\"\"%!\"\"* &F'F(\"\"&#\"\"\"\"\"#F(" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$%(a[3,2]=G \"\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$%'bt[1]=G,&#\"\"\"\"\"'!\"\" *&F'F(\"\"&#F&\"\"#F(" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$%'bt[2]=G,&# \"\"&\"\"'\"\"\"*&F'!\"\"F&#F(\"\"#F(" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$%'bt[3]=G#\"\"\"\"\"$" }}}{EXCHG {PARA 4 "" 0 "" {TEXT -1 25 "Final mente hemos obtenido" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 4 "" 0 " " {TEXT 305 24 " 0 | " }}{PARA 4 "" 0 "" {TEXT 313 16 " " }{XPPEDIT 18 0 "1/2" "6#*&\"\"\"F$\"\"#!\"\"" } {TEXT 314 21 " | " }{XPPEDIT 18 0 "1/2" "6#*&\"\"\"F $\"\"#!\"\"" }{TEXT 315 1 " " }}{PARA 4 "" 0 "" {TEXT 316 6 " " } {XPPEDIT 18 0 "(1+sqrt(5))/4" "6#*&,&\"\"\"F%-%%sqrtG6#\"\"&F%F%\"\"%! \"\"" }{TEXT 317 10 " | " }{XPPEDIT 18 0 "(-3+sqrt(5))/4" "6#*& ,&\"\"$!\"\"-%%sqrtG6#\"\"&\"\"\"F+\"\"%F&" }{TEXT 318 19 " \+ 1 " }}{PARA 4 "" 0 "" {TEXT 308 1 " " }{TEXT -1 11 " --------- " }{TEXT 306 53 "----------------------------------------------------- " }}{PARA 4 "" 0 "" {TEXT 307 75 " ord 2 | \+ 0 1 0" }}{PARA 0 "" 0 "" {TEXT -1 11 " ---------" }{TEXT 309 56 "-------------------------------------- ------------------" }}{PARA 4 "" 0 "" {TEXT 310 28 " ord 3 \+ | " }{XPPEDIT 18 0 "(-1+sqrt(5))/6" "6#*&,&\"\"\"!\"\"-%%sqrtG 6#\"\"&F%F%\"\"'F&" }{TEXT 319 6 " " }{XPPEDIT 18 0 "(5-sqrt(5))/ 6" "6#*&,&\"\"&\"\"\"-%%sqrtG6#F%!\"\"F&\"\"'F*" }{TEXT 320 14 " \+ " }{XPPEDIT 18 0 "1/3" "6#*&\"\"\"F$\"\"$!\"\"" }{TEXT 321 3 " " }}{PARA 0 "" 0 "" {TEXT -1 11 " ---------" }{TEXT 311 57 "------ ---------------------------------------------------" }}{PARA 4 "" 0 " " {TEXT 312 28 " estim | " }{XPPEDIT 18 0 "(-1+sqrt (5))/6" "6#*&,&\"\"\"!\"\"-%%sqrtG6#\"\"&F%F%\"\"'F&" }{TEXT 322 8 " \+ " }{XPPEDIT 18 0 "(-1-sqrt(5))/6" "6#*&,&\"\"\"!\"\"-%%sqrtG6#\" \"&F&F%\"\"'F&" }{TEXT 323 9 " " }{XPPEDIT 18 0 "1/3" "6#*&\" \"\"F$\"\"$!\"\"" }}}}{MARK "0 0 0" 4 }{VIEWOPTS 1 1 0 3 4 1802 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }