{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 18 0 0 208 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 261 "" 1 18 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE " " -1 262 "" 1 18 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 18 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 265 "" 1 24 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 266 "" 1 14 0 0 208 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE " " -1 267 "" 1 14 0 0 208 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 24 0 0 0 0 0 0 0 0 0 0 0 0 0 1 } {CSTYLE "" -1 302 "" 1 14 0 0 0 0 0 1 0 0 0 0 0 0 0 0 }{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 "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 P lot" -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 265 14 "Ejercicios de " }}{PARA 4 "" 0 "" {TEXT 301 41 "(4) Estimaci\363n del error y cambio de paso" }}{PARA 4 "" 0 "" {TEXT -1 0 "" }}{PARA 4 "" 0 "" {TEXT 264 50 "Ejerci cio 04-14 (del EXAMEN ORDINARIO DE 09FEB09)" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 4 "" 0 "" {TEXT -1 77 "Para comparar la eficiencia de \+ tres m\351todo de tipo RUNGE-KUTTA-FEHLBERG, que " }}{PARA 4 "" 0 "" {TEXT -1 83 "denotaremos por m1 , m2 y m3 , se integra un problema \+ test del que se conoce la " }}{PARA 4 "" 0 "" {TEXT -1 87 "soluci\363n exacta. Para ello se realiza la integraci\363n del problema en el int ervalo [0,1]" }}{PARA 4 "" 0 "" {TEXT -1 82 "para distintos valores de la tolerancia, anotando para cada uno de los m\351todos los" }}{PARA 4 "" 0 "" {TEXT -1 17 "errores obtenidos" }}{PARA 4 "" 0 "" {TEXT -1 82 " 0.42007 10^(-2) , 0.22406 10^(-2) , 0.29345 10^(-3) , 0.3251 7 10^(-4) , " }}{PARA 4 "" 0 "" {TEXT -1 76 " 0.39793 10^(-5) , 0.43661 10^(-6) , 0.64522 10^(-7) , 0.85556 10^(-8)" }}{PARA 4 "" 0 "" {TEXT -1 10 "para m1, " }}{PARA 4 "" 0 "" {TEXT -1 80 " 0.1097 3 10^(-1) , 0.99718 10^(-2) , 0.82375 10^(-3) , 0.31979 10^(-4) , " }}{PARA 4 "" 0 "" {TEXT -1 78 " 0.43661 10^(-5) , 0.14522 10^(- 6) , 0.85556 10^(-8) , 0.97351 10^(-10)" }}{PARA 4 "" 0 "" {TEXT -1 22 "para m2, y finalmente" }}{PARA 4 "" 0 "" {TEXT -1 82 " 0.381 88 10^(-3) , 0.18672 10^(-3) , 0.57947 10^(-4) , 0.89295 10^(-5) , " }}{PARA 4 "" 0 "" {TEXT -1 76 " 0.26507 10^(-5) , 0.39692 10 ^(-6) , 0.72924 10^(-7) , 0.13920 10^(-8)" }}{PARA 4 "" 0 "" {TEXT -1 85 "para m3 . Asimismo, el n\372mero de evaluaciones empleado en c ada uno de los tres casos" }}{PARA 4 "" 0 "" {TEXT -1 14 "viene dado p or" }}{PARA 4 "" 0 "" {TEXT -1 57 " 390 , 790 , 1580 , 3160 , 6330 , 12670 , 19000 , 25340" }}{PARA 4 "" 0 "" {TEXT -1 11 "para m1 y" }} {PARA 0 "" 0 "" {TEXT 302 54 " 308 , 524 , 816 , 1332 , 2264 , 3896 \+ , 6824 , 11932" }}{PARA 4 "" 0 "" {TEXT -1 26 "para m2 y m3 . Se pi de:" }}{PARA 4 "" 0 "" {TEXT -1 90 "a) Construir una gr\341fica de efi ciencia que recoja simult\341neamente los resultados obtenidos" }} {PARA 4 "" 0 "" {TEXT -1 54 "para m1 , m2 y m3 (en doble escala l ogar\355tmica). " }}{PARA 4 "" 0 "" {TEXT -1 95 "b) Deducir el orden e fectivo de cada uno de los tres m\351todos para este problema test. \+ \277Se puede" }}{PARA 4 "" 0 "" {TEXT -1 71 "deducir de lo anterior el orden de los m\351todos (raz\363nese la respuesta)?" }}{PARA 4 "" 0 " " {TEXT -1 92 "c) \277Se puede estimar de alg\372n modo la proporci \363n que guardan entre s\355 las partes principales" }}{PARA 4 "" 0 " " {TEXT -1 96 "del error de los m\351todos m1 y m3 para este probl ema? De ser posible, h\341gase esta estimaci\363n." }}{PARA 4 "" 0 "" {TEXT -1 94 "d) \277Se comporta siempre mejor (para todos los valores \+ de la tolerancia) el m\351todo de orden m\341s" }}{PARA 4 "" 0 "" {TEXT -1 61 "alto? Raz\363nese a qu\351 se debe lo que se observa en l a gr\341fica." }}}{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(linalg):with(plots):" }}} {EXCHG {PARA 0 "" 0 "" {TEXT 258 15 "Variables lista" }{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 63 "lista1eval:=[0,0,0,0,0 ,0,0,0]:listalog1eval:=[0,0,0,0,0,0,0,0]:" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 63 "lista1erro:=[0,0,0,0,0,0,0,0]:listalog1erro:=[0,0,0 ,0,0,0,0,0]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 63 "lista2eval: =[0,0,0,0,0,0,0,0]:listalog2eval:=[0,0,0,0,0,0,0,0]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 63 "lista2erro:=[0,0,0,0,0,0,0,0]:listalog2er ro:=[0,0,0,0,0,0,0,0]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 63 "l ista3eval:=[0,0,0,0,0,0,0,0]:listalog3eval:=[0,0,0,0,0,0,0,0]:" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 63 "lista3erro:=[0,0,0,0,0,0,0,0 ]:listalog3erro:=[0,0,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 68 "lista1eval:=[390 , 790 , 1580 , 3160 , 6330 , 12670, \+ 19000 , 25340]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 159 "lista1e rro:=[0.42007*10^(-2) , 0.22406*10^(-2) , 0.29345*10^(-3) , 0.32517*10 ^(-4) , 0.39793*10^(-5) , 0.43661*10^(-6) , 0.64522*10^(-7) , 0.855 56*10^(-8)]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 66 "for i from \+ 1 to 8 do listalog1eval[i]:=log[10](lista1eval[i]): od:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 66 "for i from 1 to 8 do listalog1erro[ i]:=log[10](lista1erro[i]): od:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 46 "evalf(listalog1eval,4);evalf(listalog1erro,4);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7*$\"%\"f#!\"$$\"%(*GF&$\"%)>$F&$\"%*\\$F&$\"%,QF& $\"%-TF&$\"%yUF&$\"%.WF&" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7*$!%xB!\" $$!%]EF&$!%KNF&$!%)[%F&$!%+aF&$!%gjF&$!%!>(F&$!%o!)F&" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 261 11 "Datos de m2" }{MPLTEXT 1 0 0 "" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 66 "lista2eval:=[308 , 524 , 816 , 1332 , 2264 , 3896 , 6824 , 11932]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 159 "lista2erro:=[0.10973*10^(-1) , 0.99718*10^(-2) , 0.8 2375*10^(-3) , 0.31979*10^(-4) , 0.43661*10^(-5) , 0.14522*10^(-6) , \+ 0.85556*10^(-8) , 0.97351*10^(-10)]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 66 "for i from 1 to 8 do listalog2eval[i]:=log[10](lista2 eval[i]): od:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 66 "for i from 1 to 8 do listalog2erro[i]:=log[10](lista2erro[i]): od:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 46 "evalf(listalog2eval,4);evalf(listal og2erro,4);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7*$\"%)[#!\"$$\"%>FF&$ \"%6HF&$\"%CJF&$\"%aLF&$\"%!f$F&$\"%LQF&$\"%wSF&" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7*$!%g>!\"$$!%,?F&$!%%3$F&$!%&\\%F&$!%g`F&$!%QoF&$!%o!) F&$!%,5!\"#" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 262 11 "Datos de m3" } {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 66 "lista3e val:=[308 , 524 , 816 , 1332 , 2264 , 3896 , 6824 , 11932]:" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 156 "lista3erro:=[0.38188*10^(-3 ) , 0.18672*10^(-3) , 0.57947*10^(-4) , 0.89295*10^(-5) , 0.26507*10^( -5) , 0.39692*10^(-6) , 0.72924*10^(-7) , 0.13920*10^(-8)]:" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 66 "for i from 1 to 8 do listalo g3eval[i]:=log[10](lista3eval[i]): od:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 66 "for i from 1 to 8 do listalog3erro[i]:=log[10](lista3 erro[i]): od:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 46 "evalf(list alog3eval,4);evalf(listalog3erro,4);" }}{PARA 11 "" 1 "" {XPPMATH 20 " 6#7*$\"%)[#!\"$$\"%>FF&$\"%6HF&$\"%CJF&$\"%aLF&$\"%!f$F&$\"%LQF&$\"%wS F&" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7*$!%=M!\"$$!%HPF&$!%PUF&$!%\\]F &$!%xbF&$!%,kF&$!%PrF&$!%c))F&" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 256 59 "Gr\341ficas comparadas 'evaluaciones versus log[10] del error'" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 60 "lista1grafa:=[seq([lista1ev al[i],listalog1erro[i]],i=1..8)]:" }}}{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=POIN T,symbol=BOX):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 40 "gra1a3:=t extplot([2.3e+004, -7.0,`m1`]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 60 "lista2grafa:=[seq([lista2eval[i],listalog2erro[i]],i=1..8)]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 37 "gra2a1:=plot(lista2grafa, style=LINE):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 49 "gra2a2:=plo t(lista2grafa,style=POINT,symbol=BOX):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 40 "gra2a3:=textplot([8.2e+003, -9.5,`m2`]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 60 "lista3grafa:=[seq([lista3eval[i],li stalog3erro[i]],i=1..8)]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 37 "gra3a1:=plot(lista3grafa,style=LINE):" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 49 "gra3a2:=plot(lista3grafa,style=POINT,symbol=BOX):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "gra3a3:=textplot([9552, - 7.183,`m3`]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 72 "display(gr a1a1,gra1a2,gra1a3,gra2a1,gra2a2,gra2a3,gra3a1,gra3a2,gra3a3);" }} {PARA 13 "" 1 "" {GLPLOT2D 496 496 496 {PLOTDATA 2 "6--%'CURVESG6%7*7$ $\"$!R\"\"!$!5_nY'>KLymP#!#>7$$\"$!zF*$!5],NPOocj\\EF-7$$\"%!e\"F*$!5' QxS]h)eYKNF-7$$\"%gJF*$!5Y*Gl#**G&*)y[%F-7$$\"%IjF*$!5'*eGe4=L>+aF-7$$ \"&qE\"F*$!5@!3)pa@j!*fjF-7$$\"&+!>F*$!5x]D0(F-7$$\"&S`#F*$!5BDs u>G&\\x1)F--%'COLOURG6&%$RGBG$\"*++++\"!\")$F*F*FX-%&STYLEG6#%%LINEG-F $6&F&FQ-FZ6#%&POINTG-%'SYMBOLG6#%$BOXG-%%TEXTG6$7$$\"#B\"\"$$!#q!\"\"% #m1G-F$6%7*7$$\"$3$F*$!5%3hF+3iu'f>F-7$$\"$C&F*$!5.MIS`SkA,?F-7$$\"$;) F*$!5WsLzRsX?%3$F-7$$\"%K8F*$!5;/!H#*47N^\\%F-7$$\"%kAF*$!5@!3)pa@j!*f `F-7$$\"%'*QF*$!51*H#)yvctz$oF-7$$\"%CoF*FO7$$\"&K>\"F*$!5P?:,Ief;,5!# =FQFY-F$6&F]pFQFinF\\o-Fao6$7$$\"##)\"\"#$!#&*Fio%#m2G-F$6%7*7$F_p$!5] yMr5'3t!=MF-7$Fdp$!5c/0()Hh\"4)GPF-7$Fip$!5<%p%=URmd&F-7$Fhq$!5_8llJ " 0 "" {MPLTEXT 1 0 63 "lista1grafb:=[seq([listalog1 eval[i],listalog1erro[i]],i=1..8)]:" }}}{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=POIN T,symbol=BOX):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "gra1b3:=t extplot([4.36, -7.,`m1`]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 63 "lista2grafb:=[seq([listalog2eval[i],listalog2erro[i]],i=1..8)]:" } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 37 "gra2b1:=plot(lista2grafb,s tyle=LINE):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 49 "gra2b2:=plot (lista2grafb,style=POINT,symbol=BOX):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 36 "gra2b3:=textplot([3.91, -9.5,`m2`]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 63 "lista3grafb:=[seq([listalog3eval[i] ,listalog3erro[i]],i=1..8)]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 37 "gra3b1:=plot(lista3grafb,style=LINE):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 49 "gra3b2:=plot(lista3grafb,style=POINT,symbol=BOX): " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "gra3b3:=textplot([3.98, -7.183,`m3`]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 72 "display( gra1b1,gra1b2,gra1b3,gra2b1,gra2b2,gra2b3,gra3b1,gra3b2,gra3b3);" }} {PARA 13 "" 1 "" {GLPLOT2D 496 496 496 {PLOTDATA 2 "6--%'CURVESG6%7*7$ $\"5l?*\\Eqgk5f#!#>$!5_nY'>KLymP#F*7$$\"5!G9W!H\"4Fw*GF*$!5],NPOocj\\E F*7$$\"5KiAW&p3d')>$F*$!5'QxS]h)eYKNF*7$$\"5%=QS=E3(o*\\$F*$!5Y*Gl#**G &*)y[%F*7$$\"5C5bt,5PS,QF*$!5'*eGe4=L>+aF*7$$\"56MTM)[hwF5%F*$!5@!3)pa @j!*fjF*7$$\"5;'*GG&4g`(yUF*$!5x]D0(F*7$$\"5h`Aua5m!QS%F*$!5BDsu >G&\\x1)F*-%'COLOURG6&%$RGBG$\"*++++\"!\")$\"\"!FXFW-%&STYLEG6#%%LINEG -F$6&F&FP-FZ6#%&POINTG-%'SYMBOLG6#%$BOXG-%%TEXTG6$7$$\"$O%!\"#$!\"(FX% #m1G-F$6%7*7$$\"5>EW/];2b)[#F*$!5%3hF+3iu'f>F*7$$\"58lEP)pGJ$>FF*$!5.M IS`SkA,?F*7$$\"5n9hQve,p6HF*$!5WsLzRsX?%3$F*7$$\"5>E#GM[A/X7$F*$!5;/!H #*47N^\\%F*7$$\"57#QB;DUw[N$F*$!5@!3)pa@j!*f`F*7$$\"5\"=zd1#[*=1f$F*$! 51*H#)yvctz$oF*7$$\"5dhm%f\"=!RS$QF*FN7$$\"5))3D+pWKrwSF*$!5P?:,Ief;,5 !#=FPFY-F$6&F\\pFPFinF\\o-Fao6$7$$\"$\"RFfo$!#&*!\"\"%#m2G-F$6%7*7$F^p $!5]yMr5'3t!=MF*7$Fcp$!5c/0()Hh\"4)GPF*7$Fhp$!5<%p%=URmd&F*7$Fgq$!5_8llJ " 0 "" {MPLTEXT 1 0 94 "display(gra1b1,g ra1b2,gra1b3,gra2b1,gra2b2,gra2b3,gra3b1,gra3b2,gra3b3,scaling='CONSTR AINED');" }}{PARA 13 "" 1 "" {GLPLOT2D 496 496 496 {PLOTDATA 2 "6.-%'C URVESG6%7*7$$\"5l?*\\Eqgk5f#!#>$!5_nY'>KLymP#F*7$$\"5!G9W!H\"4Fw*GF*$! 5],NPOocj\\EF*7$$\"5KiAW&p3d')>$F*$!5'QxS]h)eYKNF*7$$\"5%=QS=E3(o*\\$F *$!5Y*Gl#**G&*)y[%F*7$$\"5C5bt,5PS,QF*$!5'*eGe4=L>+aF*7$$\"56MTM)[hwF5 %F*$!5@!3)pa@j!*fjF*7$$\"5;'*GG&4g`(yUF*$!5x]D0(F*7$$\"5h`Aua5m! QS%F*$!5BDsu>G&\\x1)F*-%'COLOURG6&%$RGBG$\"*++++\"!\")$\"\"!FXFW-%&STY LEG6#%%LINEG-F$6&F&FP-FZ6#%&POINTG-%'SYMBOLG6#%$BOXG-%%TEXTG6$7$$\"$O% !\"#$!\"(FX%#m1G-F$6%7*7$$\"5>EW/];2b)[#F*$!5%3hF+3iu'f>F*7$$\"58lEP)p GJ$>FF*$!5.MIS`SkA,?F*7$$\"5n9hQve,p6HF*$!5WsLzRsX?%3$F*7$$\"5>E#GM[A/ X7$F*$!5;/!H#*47N^\\%F*7$$\"57#QB;DUw[N$F*$!5@!3)pa@j!*f`F*7$$\"5\"=zd 1#[*=1f$F*$!51*H#)yvctz$oF*7$$\"5dhm%f\"=!RS$QF*FN7$$\"5))3D+pWKrwSF*$ !5P?:,Ief;,5!#=FPFY-F$6&F\\pFPFinF\\o-Fao6$7$$\"$\"RFfo$!#&*!\"\"%#m2G -F$6%7*7$F^p$!5]yMr5'3t!=MF*7$Fcp$!5c/0()Hh\"4)GPF*7$Fhp$!5<%p%=URmd&F*7$Fgq$!5_8llJ " 0 "" {MPLTEXT 1 0 87 "pendm1:=evalf((listalog1erro [8]-listalog1erro[7])/(listalog1eval[8]-listalog1eval[7]));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'pendm1G$!5Y2![p*zJo;q!#>" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 87 "pendm2:=evalf((listalog2erro[8]-lis talog2erro[7])/(listalog2eval[8]-listalog2eval[7]));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'pendm2G$!5o5yGS3)o.,)!#>" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 87 "pendm3:=evalf((listalog3erro[8]-listalog3erro[7] )/(listalog3eval[8]-listalog3eval[7]));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'pendm3G$!56'odTSWBX3(!#>" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 263 66 "El orden efectivo de m2 es de 8 . Los de m1 y m3 son de 7 ." }{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 3 0" 15 }{VIEWOPTS 1 1 0 3 4 1802 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }