{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&RNp*[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]+++ZIu\"F5Fefl7$$\"3u****\\xOi(*>F5Fhfl7$$\"3#)****\\FPQ^A F5F[gl7$$\"3/+++IrS7DF5F^gl7$$\"3p*****\\o;Bu#F5Fagl7$$\"3*********QS6 +$F5Fdgl7$$\"3[******\\o-hKF5Fggl7$$\"3(*******4cZ6NF5Fjgl7$$\"3S**** \\xq!*QPF5F]hl7$$\"3&********3X$4SF5F`hl7$$\"3s******f:WQUF5Fchl7$$\"3 f****\\<_$\\]%F5Ffhl7$$\"3**)*****fs#3u%F5Fihl7$$\"3!)****\\<#Q'**\\F5 F\\il7$$\"33++]_u3Y_F5F_il7$$\"3[*****\\PJK]&F5Fbil7$$\"3%*****\\n(p$R dF5Feil7$$\"3A*****\\#p2%*fF5Fhil7$$\"3o****\\xgkeiF5F[jl7$$\"3g****\\ -V&*)['F5F^jl7$$\"3.+++&\\$pPnF5Fajl7$$\"37******>am%*pF5Fdjl7$$\"3?** ***\\JigC(F5Fgjl7$$\"3G****\\PEdR2\"Fj\\mFb]m7$$\"3&*****\\o#R05\"Fj\\mFe]m7 $$\"3()*****>`9V7\"Fj\\mFh]m7$$\"3)****\\<#Rm\\6Fj\\mF[^m7$$\"3%****\\ A_ER<\"Fj\\mF^^m7$$\"3%**************>\"Fj\\mFa^mFdz-%+AXESLABELSG6%Q \"x6\"Q!Fg^m-%%FONTG6#%(DEFAULTG-%%VIEWG6$;F($\"#7!\"\"F`_m" 1 2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" "C urve 3" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 63 "LL:=[[n,T[n]]$n=0..40]:C1:=pointplo t(LL,color=blue,symbol=box):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 43 "C2:=plot(LL,linestyle=3): display(\{C1,C2\});" }}{PARA 13 "" 1 " " {GLPLOT2D 1005 495 495 {PLOTDATA 2 "6&-%'POINTSG6M7$$\"\"!F($\"\"&! \"\"7$$\"\"\"F($\"%v&*!\"%7$$\"\"#F($\"+D1de:!#57$$\"\"$F($\"+eR'*Q]F7 7$$\"\"%F($\"+L&=Wd*F77$$F*F($\"+=#31c\"F77$$\"\"'F($\"+PPLW]F77$$\"\" (F($\"+@sCu&*F77$$\"\")F($\"+%[37c\"F77$$\"\"*F($\"+X]\"f/&F77$$\"#5F( $\"+jD>u&*F77$$\"#6F($\"+)***Rh:F77$$\"#7F($\"+,&>k/&F77$$\"#8F($\"+BZ F($\"+Dp;u&*F77$$\"#?F($ \"+H)*[h:F77$$\"#@F($\"+2hlY]F77$$\"#AF($\"+*GmTd*F77$$\"#BF($\"+d?\\h :F77$$\"#CF($\"+z>mY]F77$$\"#DF($\"+zg;u&*F77$$\"#EF($\"+$z#\\h:F77$$ \"#FF($\"+$\"3y*****H`=Wd*F_y7$FC$\"3++++=#31c\"F_y7$FG$\"3l*****pt LV/&F_y7$FL$\"3e*****4AZUd*F_y7$FQ$\"37+++%[37c\"F_y7$FV$\"35+++X]\"f/ &F_y7$Fen$\"3A+++jD>u&*F_y7$Fjn$\"37+++)***Rh:F_y7$F_o$\"39+++,&>k/&F_ y7$Fdo$\"3i*****HsuTd*F_y7$Fio$\"33+++1DYh:F_y7$F^p$\"3;+++UTeY]F_y7$F cp$\"3e******e)oTd*F_y7$Fhp$\"3/+++_I[h:F_y7$F]q$\"3Q+++g#Qm/&F_y7$Fbq $\"3c+++Dp;u&*F_y7$Fgq$\"37+++H)*[h:F_y7$F\\r$\"3W+++2hlY]F_y7$Far$\"3 5+++*GmTd*F_y7$Ffr$\"3))*****p0#\\h:F_y7$F[s$\"3-+++z>mY]F_y7$F`s$\"3] +++zg;u&*F_y7$Fes$\"3++++$z#\\h:F_y7$Fjs$\"3]+++ " 0 "" {MPLTEXT 1 0 20 "LLI: =[T[n]$n=0..40];" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$LLIG7K$\"\"&!\" \"$\"%v&*!\"%$\"+D1de:!#5$\"+eR'*Q]F.$\"+L&=Wd*F.$\"+=#31c\"F.$\"+PPLW ]F.$\"+@sCu&*F.$\"+%[37c\"F.$\"+X]\"f/&F.$\"+jD>u&*F.$\"+)***Rh:F.$\"+ ,&>k/&F.$\"+BZmY]F.$\"+zg;u&*F.$\"+$z#\\h:F.$\"+ " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "16 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }