{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 228 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 208 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 257 "" 1 18 0 0 208 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 25 1 1 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 261 "" 1 14 25 1 1 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 262 "" 1 18 0 0 208 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 263 "" 1 18 0 0 208 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 14 0 0 208 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 269 "" 1 14 0 0 208 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 270 "" 1 14 0 0 208 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 271 "" 1 14 0 0 208 0 0 0 0 0 0 0 0 0 0 1 } {CSTYLE "" -1 272 "" 1 14 0 0 208 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 273 "" 1 14 0 0 208 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 274 "" 1 14 0 0 208 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 275 "" 1 14 0 0 208 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 276 "" 1 14 0 0 208 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 277 "" 1 14 0 0 208 0 0 0 0 0 0 0 0 0 0 1 } {CSTYLE "" -1 278 "" 1 14 0 0 208 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 279 "" 1 14 0 0 208 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 280 "" 1 14 0 0 208 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 281 "" 1 14 0 0 208 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 282 "" 1 14 0 0 208 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 283 "" 1 14 0 0 208 0 0 0 0 0 0 0 0 0 0 1 } {CSTYLE "" -1 284 "" 1 14 0 0 208 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 285 "" 1 14 0 0 208 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 286 "" 1 14 0 0 208 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 287 "" 1 14 0 0 208 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 288 "" 1 14 0 0 208 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 289 "" 1 14 0 0 208 0 0 0 0 0 0 0 0 0 0 1 } {CSTYLE "" -1 290 "" 1 14 0 0 208 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 291 "" 1 14 0 0 208 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 292 "" 1 14 0 0 208 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 293 "" 1 14 0 0 208 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 294 "" 1 14 0 0 208 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 295 "" 1 14 0 0 208 0 0 0 0 0 0 0 0 0 0 1 } {CSTYLE "" -1 296 "" 1 14 0 0 208 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 297 "" 1 14 0 0 208 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 298 "" 1 14 0 0 208 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 299 "" 1 14 0 0 208 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 300 "" 1 14 0 0 208 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 301 "" 1 14 0 0 208 0 0 0 0 0 0 0 0 0 0 1 } {CSTYLE "" -1 302 "" 1 14 0 0 208 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 303 "" 1 24 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 304 "" 1 18 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 305 "" 1 18 0 0 0 0 0 2 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 } {PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Heading 2" -1 4 1 {CSTYLE "" -1 -1 "Times" 1 14 0 0 0 1 2 1 2 2 2 2 1 1 1 1 }1 1 0 0 4 4 1 0 1 0 2 2 0 1 }{PSTYLE "Warning" -1 7 1 {CSTYLE "" -1 -1 "Courier " 1 10 0 0 255 1 2 2 2 2 2 1 1 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 } {PSTYLE "Maple Output" -1 11 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 3 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple Plot " -1 13 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 } 3 1 0 0 0 0 1 0 1 0 2 2 0 1 }} {SECT 0 {EXCHG {PARA 4 "" 0 "" {TEXT 267 14 "Ejercicios de " }}{PARA 4 "" 0 "" {TEXT 303 41 "(4) Estimaci\363n del error y cambio de paso" }}{PARA 4 "" 0 "" {TEXT -1 0 "" }}{PARA 4 "" 0 "" {TEXT -1 0 "" } {TEXT 266 18 "Ejercicio 04-12 " }{TEXT 305 39 " (del EXAMEN EXTRAORD INARIO de 04JUL06)" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 4 "" 0 "" {TEXT -1 71 "Para comprobar la eficiencia de un m\351todo de tipo RUNG E-KUTTA y de paso" }}{PARA 4 "" 0 "" {TEXT -1 79 "variable, que denota remos por m1 , se integra un problema test con este m\351todo" }} {PARA 4 "" 0 "" {TEXT -1 51 "y con otro de paso fijo, que denotaremos \+ por m2 . " }}{PARA 4 "" 0 "" {TEXT -1 60 "Para m1, el de paso variab le, se emplearon las tolerancias" }}{PARA 4 "" 0 "" {TEXT -1 4 " \+ " }{XPPEDIT 18 0 "10^(-3)" "6#)\"#5,$\"\"$!\"\"" }{TEXT -1 6 " , " }{XPPEDIT 18 0 "10^(-4)" "6#)\"#5,$\"\"%!\"\"" }{TEXT -1 5 " , " } {XPPEDIT 18 0 "10^(-5)" "6#)\"#5,$\"\"&!\"\"" }{TEXT -1 5 " , " } {XPPEDIT 18 0 "10^(-6)" "6#)\"#5,$\"\"'!\"\"" }{TEXT -1 5 " , " } {XPPEDIT 18 0 "10^(-7)" "6#)\"#5,$\"\"(!\"\"" }{TEXT -1 5 " , " } {XPPEDIT 18 0 "10^(-8)" "6#)\"#5,$\"\")!\"\"" }{TEXT -1 5 " , " } {XPPEDIT 18 0 "10^(-9)" "6#)\"#5,$\"\"*!\"\"" }{TEXT -1 5 " , " } {XPPEDIT 18 0 "10^(-10)" "6#)\"#5,$F$!\"\"" }{TEXT -1 5 " , " } {XPPEDIT 18 0 "10^(-11)" "6#)\"#5,$\"#6!\"\"" }{TEXT -1 3 " ;" }} {PARA 4 "" 0 "" {TEXT -1 56 "para ellas los n\372meros de evaluaciones de funci\363n fueron" }}{PARA 4 "" 0 "" {TEXT -1 60 " 180 , 308 , 5 24 , 816 , 1332 , 2264 , 3896 , 6824 , 11932" }}{PARA 4 "" 0 "" {TEXT -1 27 "y se obtuvieron los errores" }}{PARA 4 "" 0 "" {TEXT -1 91 " \+ 0.120075671 10^(-1) , 0.224069086 10^(-2) , 0.293453270 10^(-3) , 0.32 5178066 10^(-4) , " }}{PARA 4 "" 0 "" {TEXT -1 91 " 0.397930221 10^( -5) , 0.436613469 10^(-6) , 0.445225052 10^(-7) , 0.455563685 10^(-8) \+ , " }}{PARA 4 "" 0 "" {TEXT -1 39 " 0.473519591 10^(-9) \+ " }}{PARA 4 "" 0 "" {TEXT -1 49 "Para m2, el de paso fijo, se emp learon los pasos" }}{PARA 4 "" 0 "" {TEXT 260 3 " " }{XPPEDIT 18 0 " 1/2" "6#*&\"\"\"F$\"\"#!\"\"" }{TEXT -1 8 " = 0.5 ," }{TEXT 261 2 " \+ " }{XPPEDIT 18 0 "1/2^2" "6#*&\"\"\"F$*$\"\"#F&!\"\"" }{TEXT -1 10 " = 0.25 , " }{XPPEDIT 18 0 "1/2^3" "6#*&\"\"\"F$*$\"\"#\"\"$!\"\"" } {TEXT -1 11 " = 0.125 , " }{XPPEDIT 18 0 "1/2^4" "6#*&\"\"\"F$*$\"\"# \"\"%!\"\"" }{TEXT -1 12 " = 0.0625 , " }{XPPEDIT 18 0 "1/2^5" "6#*&\" \"\"F$*$\"\"#\"\"&!\"\"" }{TEXT -1 12 " = 0.0313 , " }{XPPEDIT 18 0 "1 /2^6" "6#*&\"\"\"F$*$\"\"#\"\"'!\"\"" }{TEXT -1 15 " = 0.0156 " } }{PARA 4 "" 0 "" {TEXT -1 66 "lo que significa que los n\372meros de e valuaciones de funci\363n fueron" }}{PARA 4 "" 0 "" {TEXT -1 57 " 39 0 , 790 , 1580 , 3160 , 6330 , 12670 " }}{PARA 4 "" 0 " " {TEXT -1 27 "y se obtuvieron los errores" }}{PARA 4 "" 0 "" {TEXT -1 90 " 0.107100612 10^(-1) , 0.324754737 10^(-4) , 0.173265513 10^( -6) , 0.921034842 10^(-9) ," }}{PARA 4 "" 0 "" {TEXT -1 46 " 0.40580 3845 10^(-11) , 0.164174164 10^(-13)" }}{PARA 4 "" 0 "" {TEXT -1 86 "S e puede deducir de los datos anteriores con qu\351 orden est\341n func ionando los m\351todos ?" }}{PARA 4 "" 0 "" {TEXT -1 46 "Cu\341l es el que tiene mejor comportamiento ? " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "interface(labeling=false):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "Digits:=20:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "with(lin alg):with(plots):" }}{PARA 7 "" 1 "" {TEXT -1 80 "Warning, the protect ed names norm and trace have been redefined and unprotected\n" }} {PARA 7 "" 1 "" {TEXT -1 50 "Warning, the name changecoords has been r edefined\n" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 258 15 "Variables lista" } {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "lista1e val:=[0,0,0,0,0,0,0,0,0]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "lista1erro:=[0,0,0,0,0,0,0,0,0]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "lista1logeval:=[0,0,0,0,0,0,0,0,0]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "lista1logerro:=[0,0,0,0,0,0,0,0,0]:" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "lista2eval:=[0,0,0,0,0,0]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "lista2erro:=[0,0,0,0,0,0] :" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "lista2logeval:=[0,0,0, 0,0,0]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "lista2logerro:=[ 0,0,0,0,0,0]:" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 259 11 "Datos de m1" } {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 72 "lista1e val:=[180 , 308 , 524 , 816 , 1332 , 2264 , 3896 , 6824 , 11932]:" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 228 "lista1erro:=[0.120075671 * \+ 10^(-1) , 0.224069086 * 10^(-2) , 0.293453270 * 10^(-3) , 0.325178066 \+ * 10^(-4) , 0.397930221 * 10^(-5) , 0.436613469 * 10^(-6) , 0.44522505 2 * 10^(-7) , 0.455563685 * 10^(-8) , 0.473519591 * 10^(-9)]:" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 66 "for i from 1 to 9 do lista1l ogeval[i]:=log[10](lista1eval[i]): od:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 66 "for i from 1 to 9 do lista1logerro[i]:=log[10](lista1 erro[i]): od:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 46 "evalf(list a1logeval,4);evalf(lista1logerro,4);" }}{PARA 11 "" 1 "" {XPPMATH 20 " 6#7+$\"%bA!\"$$\"%)[#F&$\"%>FF&$\"%6HF&$\"%CJF&$\"%aLF&$\"%!f$F&$\"%LQ F&$\"%wSF&" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7+$!%@>!\"$$!%]EF&$!%KNF &$!%)[%F&$!%+aF&$!%gjF&$!%^tF&$!%T$)F&$!%D$*F&" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 304 11 "Datos de m2" }{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 53 "lista2eval:=[390 , 790 , 1580 , 3160 , 6330 \+ , 12670]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 161 "lista2erro:=[ 0.107100612 * 10^(-1) , 0.324754737 * 10^(-4) , 0.173265513 * 10^(-6) , 0.921034842 * 10^(-9) , 0.405803845 * 10^(-11) , 0.164174164 * 10 ^(-13)]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 66 "for i from 1 to 6 do lista2logeval[i]:=log[10](lista2eval[i]): od:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 66 "for i from 1 to 6 do lista2logerro[i]:=lo g[10](lista2erro[i]): od:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 46 "evalf(lista2logeval,4);evalf(lista2logerro,4);" }}{PARA 11 "" 1 " " {XPPMATH 20 "6#7($\"%\"f#!\"$$\"%(*GF&$\"%)>$F&$\"%*\\$F&$\"%,QF&$\" %-TF&" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7($!%q>!\"$$!%)[%F&$!%hnF&$!% O!*F&$!%R6!\"#$!%y8F/" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 256 59 "Gr\341f icas comparadas 'evaluaciones versus log[10] del error'" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 60 "lista1grafa:=[seq([lista1eval[i],li sta1logerro[i]],i=1..9)]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 37 "gra1a1:=plot(lista1grafa,style=LINE):" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 49 "gra1a2:=plot(lista1grafa,style=POINT,symbol=BOX):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 45 "gra1a3:=textplot([1.158e+ 004, -8.642,`m1`]): " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 60 "lis ta2grafa:=[seq([lista2eval[i],lista2logerro[i]],i=1..6)]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 37 "gra2a1:=plot(lista2grafa,style=LINE ):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 49 "gra2a2:=plot(lista2gr afa,style=POINT,symbol=BOX):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 44 "gra2a3:=textplot([1.209e+004, -12.95,`m2`]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 51 "display(gra1a1,gra1a2,gra1a3,gra2a1,gra2a2, gra2a3);" }}{PARA 13 "" 1 "" {GLPLOT2D 496 496 496 {PLOTDATA 2 "6*-%'C URVESG6%7+7$$\"$!=\"\"!$!5)[Ri#yx\\a?>!#>7$$\"$3$F*$!5jM9#ot0='\\EF-7$ $\"$C&F*$!5A#4s0n/hC`$F-7$$\"$;)F*$!59_;/Cc(yy[%F-7$$\"%K8F*$!5Ve0+!p2 $>+aF-7$$\"%kAF*$!5OK)=e4(G!*fjF-7$$\"%'*QF*$!5L6&*Hp1/U^tF-7$$\"%CoF* $!5)Qku]F!4XT$)F-7$$\"&K>\"F*$!5wwjb:[?mC$*F--%'COLOURG6&%$RGBG$\"#5! \"\"$F*F*Fgn-%&STYLEG6#%%LINEG-F$6&F&FV-%'SYMBOLG6#%$BOXG-Fin6#%&POINT G-%%TEXTG6$7$$\"%e6\"\"\"$!%U')!\"$Q#m16\"-F$6%7(7$$\"$!RF*$!5%G6[#\\Z !3-(>F-7$$\"$!zF*$!5e'*R!>a]W%)[%F-7$$\"%!e\"F*$!5TQG.CryGhnF-7$$\"%gJ F*$!5kv#)[[SRsN!*F-7$$\"%IjF*$!5M=zLB%Qo\"R6!#=7$$\"&qE\"F*$!5yxyGl=&p %y8F]rFVFhn-F$6&FcpFVF^oFbo-Ffo6$7$$\"%47F[p$!%&H\"!\"#Q#m2F`p-%+AXESL ABELSG6%Q!F`pFas-%%FONTG6#%(DEFAULTG-%%VIEWG6$FesFes" 1 2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" "Curve 3 " "Curve 4" "Curve 5" "Curve 6" }}}}{EXCHG {PARA 0 "" 0 "" {TEXT 257 81 "Gr\341ficas comparadas 'log[10] del n\372mero de evaluaciones vers us log[10] del error'" }}}{EXCHG {PARA 4 "" 0 "" {TEXT 268 55 "Recorde mos lo que ya dijimos en el problema precedente:" }}{PARA 4 "" 0 "" {TEXT 295 92 "Hay un tipo de gr\341ficas que sirve para comprobar el o rden 'efectivo' de los m\351todos, o sea, " }}{PARA 4 "" 0 "" {TEXT 269 90 "el orden con que, en la pr\341ctica, parecen comportarse. En e stas gr\341ficas se debe presentar" }}{PARA 4 "" 0 "" {TEXT 270 94 "en el eje de abscisas el log[10] del paso empleado y en el de ordenadas \+ el log[10] del error. " }}{PARA 4 "" 0 "" {TEXT 271 90 "Entonces el as pecto de la gr\341fica se aproxima a una recta (o se puede aproximar u tilizando" }}{PARA 4 "" 0 "" {TEXT 272 91 "la regresi\363n lineal). La pendiente de esa recta es el orden con que se comporta el m\351todo. \+ " }}{PARA 4 "" 0 "" {TEXT 273 59 "En efecto, si el m\351todo es de ord en p , el error ser\341 O(" }{XPPEDIT 18 0 "h^p" "6#)%\"hG%\"pG" } {TEXT 274 37 ") . Considerando que, aproximadamente" }}{PARA 4 "" 0 " " {TEXT 275 20 "se tiene E(h) = K " }{XPPEDIT 18 0 "h^p" "6#)%\"hG% \"pG" }{TEXT 276 78 " , resulta que el cociente incremental (la pendi ente aproximada de la recta) " }}{PARA 4 "" 0 "" {TEXT 277 43 "entre d os puntos correspondientes a pasos " }{XPPEDIT 18 0 "h[1]" "6#&%\"hG6 #\"\"\"" }{TEXT 278 3 " < " }{XPPEDIT 18 0 "h[2]" "6#&%\"hG6#\"\"#" } {TEXT 279 5 " es " }}{PARA 4 "" 0 "" {TEXT 280 5 " " }{XPPEDIT 18 0 "(log[10] (E(h[2))-log[10] (E(h[1])))/(log[10] (h[2])-log[10] (h[ 1]))" "6#*&,&-&%$logG6#\"#56#-%\"EG6#&%\"hG6#\"\"#\"\"\"-&F'6#F)6#-F,6 #&F/6#F2!\"\"F2,&-&F'6#F)6#&F/6#F1F2-&F'6#F)6#&F/6#F2F;F;" }{TEXT -1 4 " = " }{XPPEDIT 18 0 "(log[10] (K)+p*log[10](h[2])-log[10] (K)-p*lo g[10](h[1]))/(log[10] (h[2])-log[10] (h[1]))" "6#*&,*-&%$logG6#\"#56#% \"KG\"\"\"*&%\"pGF,-&F'6#F)6#&%\"hG6#\"\"#F,F,-&F'6#F)6#F+!\"\"*&F.F,- &F'6#F)6#&F46#F,F,F;F,,&-&F'6#F)6#&F46#F6F,-&F'6#F)6#&F46#F,F;F;" } {TEXT -1 24 " = p " }}{PARA 4 "" 0 "" {TEXT 281 89 "Esta pendiente se puede estudiar cuando se utilizan los segmentos cor respondientes a los " }}{PARA 4 "" 0 "" {TEXT 285 69 "menores valores \+ de h , los mas representativos del efecto del orden." }}{PARA 4 "" 0 "" {TEXT 282 101 "Algo semejante ocurre cuando se presenta en el eje \+ de abscisas el log[10] del numero de evaluaciones" }}{PARA 4 "" 0 "" {TEXT 286 97 "y en el de ordenadas el log[10] del error. Entonces tamb i\351n el aspecto de la gr\341fica se aproxima " }}{PARA 4 "" 0 "" {TEXT 300 98 "a una recta (o se puede aproximar utilizando la regresi \363n lineal). Pero la pendiente de esa recta " }}{PARA 4 "" 0 "" {TEXT 301 91 "es ahora igual a menos el orden con que se comporta el m \351todo, debido a que en el cociente " }}{PARA 4 "" 0 "" {TEXT 302 39 "antes expuesto el denominador es ahora " }}{PARA 4 "" 0 "" {TEXT 289 5 " " }{XPPEDIT 18 0 "log[10] (eval(h[2]))-log[10] (eval(h[1]) )" "6#,&-&%$logG6#\"#56#-%%evalG6#&%\"hG6#\"\"#\"\"\"-&F&6#F(6#-F+6#&F .6#F1!\"\"" }{TEXT 287 3 " = " }{XPPEDIT 18 0 "log[10] (m/h[2])-log[10 ] (m/h[1])" "6#,&-&%$logG6#\"#56#*&%\"mG\"\"\"&%\"hG6#\"\"#!\"\"F,-&F& 6#F(6#*&F+F,&F.6#F,F1F1" }{TEXT 288 4 " = " }}{PARA 4 "" 0 "" {TEXT 290 12 " = " }{XPPEDIT 18 0 "log[10](m)-log[10] (h[2])-log[10 ](m)+log[10] (h[1])" "6#,*-&%$logG6#\"#56#%\"mG\"\"\"-&F&6#F(6#&%\"hG6 #\"\"#!\"\"-&F&6#F(6#F*F4-&F&6#F(6#&F16#F+F+" }{TEXT 291 4 " = " } {XPPEDIT 18 0 "log[10] (h[1])-log[10] (h[2])" "6#,&-&%$logG6#\"#56#&% \"hG6#\"\"\"F--&F&6#F(6#&F+6#\"\"#!\"\"" }{TEXT 292 21 " \+ " }}{PARA 4 "" 0 "" {TEXT 283 87 "en el supuesto de que m es \+ el n\372mero de evaluaciones por paso del m\351todo en cuesti\363n." } }{PARA 4 "" 0 "" {TEXT 284 101 "Esta idea se emplea especialmente cuan do el m\351todo es de paso variable y se desea averiguar su orden " }} {PARA 4 "" 0 "" {TEXT 293 104 "efectivo, ya que, entonces, no tiene se ntido hablar del paso del m\351todo, pero s\355 que lo tiene hablar de " }}{PARA 4 "" 0 "" {TEXT 294 42 "las evaluaciones realizadas por el \+ mismo. " }}{PARA 4 "" 0 "" {TEXT 296 95 "Y esto es justamente lo que s ucede en este caso en el que hay que comparar con m\351todos de paso \+ " }}{PARA 4 "" 0 "" {TEXT 297 97 "variable; por ello no emplearemos la s gr\341ficas 'log[10] del paso versus log[10] del error' , que " }} {PARA 4 "" 0 "" {TEXT 298 106 "carecen ahora de sentido, sino las gr \341ficas 'log[10] del n\372mero de evaluaciones versus log[10] del er ror'," }}{PARA 4 "" 0 "" {TEXT 299 70 "que son las que ahora pueden se rvir para detectar el 'orden efectivo'." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 63 "lista1grafb:=[seq([lista1logeval[i],lista1logerro[i]] ,i=1..9)]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 37 "gra1b1:=plot( lista1grafb,style=LINE):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 49 "gra1b2:=plot(lista1grafb,style=POINT,symbol=BOX):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 42 "gra1b3:=textplot([3.938, -9.505,`m1`]): \+ " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 63 "lista2grafb:=[seq([list a2logeval[i],lista2logerro[i]],i=1..6)]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 37 "gra2b1:=plot(lista2grafb,style=LINE):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 49 "gra2b2:=plot(lista2grafb,style=POIN T,symbol=BOX):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 39 "gra2b3:=t extplot([3.999, -11.78,`m2`]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 51 "display(gra1b1,gra1b2,gra1b3,gra2b1,gra2b2,gra2b3);" }}{PARA 13 "" 1 "" {GLPLOT2D 496 496 496 {PLOTDATA 2 "6*-%'CURVESG6%7+7$$\"5)p gI.^]s_D#!#>$!5)[Ri#yx\\a?>F*7$$\"5>EW/];2b)[#F*$!5jM9#ot0='\\EF*7$$\" 58lEP)pGJ$>FF*$!5A#4s0n/hC`$F*7$$\"5n9hQve,p6HF*$!59_;/Cc(yy[%F*7$$\"5 >E#GM[A/X7$F*$!5Ve0+!p2$>+aF*7$$\"57#QB;DUw[N$F*$!5OK)=e4(G!*fjF*7$$\" 5\"=zd1#[*=1f$F*$!5L6&*Hp1/U^tF*7$$\"5dhm%f\"=!RS$QF*$!5)Qku]F!4XT$)F* 7$$\"5))3D+pWKrwSF*$!5wwjb:[?mC$*F*-%'COLOURG6&%$RGBG$\"#5!\"\"$\"\"!F gnFfn-%&STYLEG6#%%LINEG-F$6&F&FU-%'SYMBOLG6#%$BOXG-Fin6#%&POINTG-%%TEX TG6$7$$\"%QR!\"$$!%0&*F[pQ#m16\"-F$6%7(7$$\"5l?*\\Eqgk5f#F*$!5%G6[#\\Z !3-(>F*7$$\"5!G9W!H\"4Fw*GF*$!5e'*R!>a]W%)[%F*7$$\"5KiAW&p3d')>$F*$!5T QG.CryGhnF*7$$\"5%=QS=E3(o*\\$F*$!5kv#)[[SRsN!*F*7$$\"5C5bt,5PS,QF*$!5 M=zLB%Qo\"R6!#=7$$\"56MTM)[hwF5%F*$!5yxyGl=&p%y8F\\rFUFhn-F$6&FbpFUF^o Fbo-Ffo6$7$$\"%**RF[p$!%y6!\"#Q#m2F_p-%+AXESLABELSG6%Q!F_pF`s-%%FONTG6 #%(DEFAULTG-%%VIEWG6$FdsFds" 1 2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" "Curve 3" "Curve 4" "Curve 5" "Curve 6" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 73 "display(gr a1b1,gra1b2,gra1b3,gra2b1,gra2b2,gra2b3,scaling='CONSTRAINED');" }} {PARA 13 "" 1 "" {GLPLOT2D 496 496 496 {PLOTDATA 2 "6+-%'CURVESG6%7+7$ $\"5)pgI.^]s_D#!#>$!5)[Ri#yx\\a?>F*7$$\"5>EW/];2b)[#F*$!5jM9#ot0='\\EF *7$$\"58lEP)pGJ$>FF*$!5A#4s0n/hC`$F*7$$\"5n9hQve,p6HF*$!59_;/Cc(yy[%F* 7$$\"5>E#GM[A/X7$F*$!5Ve0+!p2$>+aF*7$$\"57#QB;DUw[N$F*$!5OK)=e4(G!*fjF *7$$\"5\"=zd1#[*=1f$F*$!5L6&*Hp1/U^tF*7$$\"5dhm%f\"=!RS$QF*$!5)Qku]F!4 XT$)F*7$$\"5))3D+pWKrwSF*$!5wwjb:[?mC$*F*-%'COLOURG6&%$RGBG$\"#5!\"\"$ \"\"!FgnFfn-%&STYLEG6#%%LINEG-F$6&F&FU-%'SYMBOLG6#%$BOXG-Fin6#%&POINTG -%%TEXTG6$7$$\"%QR!\"$$!%0&*F[pQ#m16\"-F$6%7(7$$\"5l?*\\Eqgk5f#F*$!5%G 6[#\\Z!3-(>F*7$$\"5!G9W!H\"4Fw*GF*$!5e'*R!>a]W%)[%F*7$$\"5KiAW&p3d')>$ F*$!5TQG.CryGhnF*7$$\"5%=QS=E3(o*\\$F*$!5kv#)[[SRsN!*F*7$$\"5C5bt,5PS, QF*$!5M=zLB%Qo\"R6!#=7$$\"56MTM)[hwF5%F*$!5yxyGl=&p%y8F\\rFUFhn-F$6&Fb pFUF^oFbo-Ffo6$7$$\"%**RF[p$!%y6!\"#Q#m2F_p-%+AXESLABELSG6%Q!F_pF`s-%% FONTG6#%(DEFAULTG-%(SCALINGG6#%,CONSTRAINEDG-%%VIEWG6$FdsFds" 1 2 0 1 10 0 2 9 1 4 1 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" "C urve 3" "Curve 4" "Curve 5" "Curve 6" }}}}{EXCHG {PARA 0 "" 0 "" {TEXT 262 32 "Orden efectivo de los m\351todos " }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 87 "pendm1:=evalf((lista1logerro[9]-lista1logerr o[8])/(lista1logeval[9]-lista1logeval[8]));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'pendm1G$!5&=Fxe31o:0%!#>" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 87 "pendm2:=evalf((lista2logerro[6]-lista2logerro[5])/( lista2logeval[6]-lista2logeval[5]));" }}{PARA 11 "" 1 "" {XPPMATH 20 " 6#>%'pendm2G$!56K99c(em.%z!#>" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 265 57 "El orden efectivo de m1 es de 4 . El de m2 es de 8 ." }{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 263 34 "M\351todo con mejor c omportamiento " }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT 264 80 "El m\351todo m2, el de paso fijo, tiene mejor comportam iento tanto en los errores " }}{PARA 0 "" 0 "" {TEXT 306 70 "efectivam ente calculados como en lo que toca al orden de los m\351todos. " }}}} {MARK "0 3 1" 15 }{VIEWOPTS 1 1 0 3 4 1802 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }