{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 "" -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 "" 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 37 "Graphica
l Iteration of the Function: " }{XPPEDIT 18 0 "F(x) = x^2-1;" "6#/-%\"
FG6#%\"xG,&*$)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 30 "imax:=400:mu:=2:  # Initialize" }}{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);" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "T[0]:=0.95:" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 46 "for i from 0 to imax do  # Define the Tent Map
" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "if T[i]>=0 and T[i]<=0.5 then" 
}}{PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "T[i+1]:=mu*T[i]:" }}{PARA 0 "> " 
0 "" {MPLTEXT 1 0 4 "elif" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "T[i]>0
.5 and T[i]<=1 then" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "T[i+1]:=mu*(
1-T[i]):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "fi:" }}{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 48 "M:=plot(L,x=0..1,y=0..1,style=line,color=black):" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "N:=plot(x,x=0..1,color=black):" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "P:=plot(mu*x,x=0..0.5,color=
black):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 39 "Q:=plot(mu*(1-x)
,x=0.5..1,color=black):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "display(
\{M,N,P,Q\});" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "LL:=[[n,T[n]]$n=0..400]:" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "plot(LL,x=0..25,y=0..1,styl
e=line,color=black);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "LLI
:=[T[n]$n=0..20];" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}
{MARK "0 1 1" 78 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 
2 33 1 1 }