{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 14 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 257 "" 1 14 0 0 0 0 0 0 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 "Maple Output" 0 11 1 {CSTYLE "" -1 -1 "" 0 1 0 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 0 }1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Maple Plot" 0 13 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 0 256 1 {CSTYLE "" -1 -1 "" 1 18 0 0 0 0 0 1 0 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 0 257 1 {CSTYLE "" -1 -1 "" 1 18 0 0 0 0 0 1 0 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }} {SECT 0 {EXCHG {PARA 256 "" 0 "" {TEXT -1 0 "" }{TEXT 256 41 "Graphica l Iteration of the logistic map: " }{XPPEDIT 18 0 "F(x) = 3.83*x*(1-x) ;" "6#/-%\"FG6#%\"xG*(-%&FloatG6$\"$$Q!\"#\"\"\"F'F.,&F.F.F'!\"\"F." } }{PARA 257 "" 0 "" {TEXT -1 0 "" }{TEXT 257 79 "You can get different \+ behaviors by changing the value of the initial condition." }}{PARA 0 " " 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 " " {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "imax:=400 : " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "halfmax:=imax/2:" }}{PARA 0 " > " 0 "" {MPLTEXT 1 0 39 "T:=array(0..10000):TT:=array(0..10000);" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%#TTG-%&arrayG6$;\"\"!\"&++\"7\"" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "T[0]:=0.5:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 46 "for i from 0 to imax do # Define the fun ction" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "T[i+1]:=3.83*T[i]*(1-T[i]) :" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "od:" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 35 "TT[0]:=[T[0],0]:TT[1]:=[T[0],T[1]]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 50 "for i from 1 to halfmax do # Find \+ the coordinates" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "TT[2*i]:=[T[i],T [i]]:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "TT[2*i+1]:=[T[i],T[i+1]]: " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "od:" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 43 "L:=[TT[n]$n=0..imax]: #List the coordinates" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "with(plots):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 50 "M:=plot(L,x=0..1,y=0..1.2,style=lin e,color=black):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "N:=plot( x,x=0..1.2,color=black):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 40 "P:=plot(3.5*x*(1-x),x=0..1,color=black):" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 0 "" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "display(\{M,N ,P\});" }}{PARA 13 "" 1 "" {GLPLOT2D 496 496 496 {PLOTDATA 2 "6'-%'CUR VESG6$7S7$$\"\"!F)F(7$$\"3emmm;arz@!#>$\"3IJa\"HQ8FY(F-7$$\"3[LL$e9ui2 %F-$\"3;/(\\G\"*R&o8!#=7$$\"3nmmm\"z_\"4iF-$\"3H;ur_fEQ?F57$$\"3[mmmT& phN)F-$\"3?h:lY)p-o#F57$$\"3CLLe*=)H\\5F5$\"3Cl'4=K%=(G$F57$$\"3gmm\"z /3uC\"F5$\"3g)y0Wx=8#QF57$$\"3%)***\\7LRDX\"F5$\"3cI^G\")HVXVF57$$\"3] mm\"zR'ok;F5$\"3wk_^6\"*[c[F57$$\"3w***\\i5`h(=F5$\"3blHa/KbM`F57$$\"3 WLLL3En$4#F5$\"3-5oN#QTOz&F57$$\"3qmm;/RE&G#F5$\"3WdG\\vFdqhF57$$\"3\" )*****\\K]4]#F5$\"3aP)eEviTc'F57$$\"3$******\\PAvr#F5$\"3AE5)>c.m#pF57 $$\"3)******\\nHi#HF5$\"3'pG-P#o\"[C(F57$$\"3jmm\"z*ev:JF5$\"3RguJd%ot ](F57$$\"3?LLL347TLF5$\"3[64tb?%oy(F57$$\"3,LLLLY.KNF5$\"3;>Nz)=xd*zF5 7$$\"3w***\\7o7Tv$F5$\"3wxA9wwr1#)F57$$\"3'GLLLQ*o]RF5$\"3M=FTI:jk$)F5 7$$\"3A++D\"=lj;%F5$\"3$)y'Qhaon])F57$$\"31++vV&R
Np*[L(
)F57$$\"3cmm;/T1&*\\F5$\"3'GJEHZ\"**\\()F57$$\"3&em;zRQb@&F5$\"3%4Be'>
,uL()F57$$\"3\\***\\(=>Y2aF5$\"3u***oY<\"*=p)F57$$\"39mm;zXu9cF5$\"3M>
[$e=Jxh)F57$$\"3l******\\y))GeF5$\"38KGCE2`4&)F57$$\"3'*)***\\i_QQgF5$
\"3m#)zJ;Yhs$)F57$$\"3@***\\7y%3TiF5$\"3IvB,)*z*3@)F57$$\"35****\\P![h
Y'F5$\"3#f@ZiZVw*zF57$$\"3kKLL$Qx$omF5$\"33QOP<4yvxF57$$\"3!)*****\\P+
V)oF5$\"3@,7(QB%H2vF57$$\"3?mm\"zpe*zqF5$\"3l\"GO_8?eB(F57$$\"3%)*****
\\#\\'QH(F5$\"3+h\"\\qHk$3pF57$$\"3GKLe9S8&\\(F5$\"3;UUC(=25d'F57$$\"3
R***\\i?=bq(F5$\"3YDuZK*f!)='F57$$\"3\"HLL$3s?6zF5$\"3k:=b1aq$y&F57$$
\"3a***\\7`Wl7)F5$\"3E_(QHv^'G`F57$$\"3#pmmm'*RRL)F5$\"3MK>`/bpf[F57$$
\"3Qmm;a<.Y&)F5$\"3/'ea%z0)*[VF57$$\"3=LLe9tOc()F5$\"3s*\\v#4mR6QF57$$
\"3u******\\Qk\\*)F5$\"3a7]N5(4,H$F57$$\"3CLL$3dg6<*F5$\"3?pQJAo\\gEF5
7$$\"3ImmmmxGp$*F5$\"3Sb*>Uaj#o?F57$$\"3A++D\"oK0e*F5$\"3PR-gC@b19F57$
$\"3A++v=5s#y*F5$\"3DgV#))zG&RuF-7$$\"\"\"F)F(-%'COLOURG6&%$RGBGF)F)F)
-F$6%7]dl7$$\"3++++++++]F5F(7$F\\[l$\"3=++++++v&*F57$F_[lF_[l7$F_[l$\"
3/+++D1de:F57$Fc[lFc[l7$Fc[l$\"33+++eR'*Q]F57$Fg[lFg[l7$Fg[l$\"3y*****
H`=Wd*F57$F[\\lF[\\l7$F[\\l$\"3++++=#31c\"F57$F_\\lF_\\l7$F_\\l$\"3l**
***ptLV/&F57$Fc\\lFc\\l7$Fc\\l$\"3e*****4AZUd*F57$Fg\\lFg\\l7$Fg\\l$\"
37+++%[37c\"F57$F[]lF[]l7$F[]l$\"35+++X]\"f/&F57$F_]lF_]l7$F_]l$\"3A++
+jD>u&*F57$Fc]lFc]l7$Fc]l$\"37+++)***Rh:F57$Fg]lFg]l7$Fg]l$\"39+++,&>k
/&F57$F[^lF[^l7$F[^l$\"3i*****HsuTd*F57$F_^lF_^l7$F_^l$\"33+++1DYh:F57
$Fc^lFc^l7$Fc^l$\"3;+++UTeY]F57$Fg^lFg^l7$Fg^l$\"3e******e)oTd*F57$F[_
lF[_l7$F[_l$\"3/+++_I[h:F57$F__lF__l7$F__l$\"3Q+++g#Qm/&F57$Fc_lFc_l7$
Fc_l$\"3c+++Dp;u&*F57$Fg_lFg_l7$Fg_l$\"37+++H)*[h:F57$F[`lF[`l7$F[`l$
\"3W+++2hlY]F57$F_`lF_`l7$F_`l$\"35+++*GmTd*F57$Fc`lFc`l7$Fc`l$\"3))**
***p0#\\h:F57$Fg`lFg`l7$Fg`l$\"3-+++z>mY]F57$F[alF[al7$F[al$\"3]+++zg;
u&*F57$F_alF_al7$F_al$\"3++++$z#\\h:F57$FcalFcal7$Fcal$\"3]+++