{VERSION 2 3 "SUN SPARC SOLARIS" "2.3" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Times" 1 12 255 0 0 1 0 1 0 0 1 0 0 0 0 }{CSTYLE "MYTEXT" -1 256 "Times" 1 14 0 0 0 0 0 1 0 0 0 0 0 0 0 }{CSTYLE "" -1 257 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 258 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 }{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "Times" 0 0 0 0 0 1 2 1 2 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Heading 1" 0 3 1 {CSTYLE "" -1 -1 "Times " 1 18 0 128 0 1 0 1 0 0 0 0 0 0 0 }1 0 0 0 6 6 0 0 0 0 0 0 -1 0 } {PSTYLE "Title" 0 18 1 {CSTYLE "" -1 -1 "Times" 1 18 255 0 255 1 0 1 1 0 0 0 0 0 0 }3 0 0 -1 12 12 0 0 0 0 0 0 19 0 }{PSTYLE "R3 Font 0" -1 256 1 {CSTYLE "" -1 -1 "Courier" 0 14 255 0 0 1 2 1 2 0 0 0 0 0 0 } 0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "R3 Font 2" -1 257 1 {CSTYLE "" -1 -1 "Courier" 0 12 0 0 255 1 2 2 2 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart:" }}}{EXCHG {PARA 18 "" 0 "" {TEXT -1 82 "Mapeo logistico, representacion geometri ca o telaragna (File name: MapeoLogis.mws)" }}}{SECT 1 {PARA 3 "" 0 " " {TEXT -1 12 "Introduccion" }}{EXCHG {PARA 0 "" 0 "" {TEXT -1 113 "To pico: Este archivo genera la representacion geometrica del mapeo logis tico para cualquier valor del parametro " }{TEXT 257 1 "a" }{TEXT -1 2 " " }}{PARA 0 "" 0 "" {TEXT -1 51 "entre 0.0 y 4.0 y para cualqu ier valor inicial " }{TEXT 258 1 "X" }{TEXT -1 20 "o entre 0.0 y 1. 0." }}}}{SECT 1 {PARA 3 "" 0 "" {TEXT -1 17 "Grafica del mapeo" }} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "with(plots): " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "a:=2.8; " }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 7 "b:=0.2;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "f:=x->a*x*(1-x); " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 175 "pts:=[seq((f@@(trunc((i+2)/4)))(b),i=1..80)]: # term ina despues de 20 iteraciones \+ " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 52 "plot0:=plot([[b,0],[b,f(b)]],style= line,color=blue):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 61 "plot1: =pointplot(pts,style=line,view=[0..1,0..1],color=blue):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 52 "plot2:=plot(x,x=0..1,y=0..1,style=l ine,color=green):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 58 "plot3: =plot(a*x*(1-x),x=0..1,y=0..1,style=line,color=red):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 141 "display(\{plot0,plot1,plot2,plot3\},titl e=`Representacion geometrica: mapeo logistico`,view=[0..1,0..1],font=[ TIMES,ROMAN,10],tickmarks=[2,3]);" }}}}}{MARK "3" 0 }{VIEWOPTS 1 1 0 1 1 1803 }