{VERSION 6 0 "IBM RISC UNIX" "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 1 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 
257 "" 1 8 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 258 "" 0 1 0 0 
0 0 0 1 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 259 "" 0 1 0 0 0 0 1 0 0 0 0 0 
0 0 0 0 }{CSTYLE "" -1 260 "" 0 1 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 "Warning" -1 7 1 
{CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 2 2 2 2 2 1 1 1 3 1 }1 1 0 
0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple Plot" -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 }
{PSTYLE "" 0 256 1 {CSTYLE "" -1 -1 "" 0 1 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 "" 0 1 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 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT 
256 42 "Grapical iteration of one-dimensional maps" }}{PARA 0 "" 0 "" 
{TEXT -1 0 "" }}{PARA 256 "" 0 "" {TEXT -1 101 "1. Iteration of the te
nt map. The following script is taken from \"Dynamical Systems with Ap
plications" }}{PARA 257 "" 0 "" {TEXT -1 24 "Using Maple\" by S. Lynch
" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 16 "imax:=200:mu:=2:" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 60 "T:=array(0..10000):TT:=array(0..10000):TTT:=array(0..
10000):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "T[0]:=0.2001:" }
}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "for i from 0 to imax do" }
}{PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "if T[i]>=0 and T[i]<=0.5 then" }}
{PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "T[i+1]:=mu*T[i]; elif" }}{PARA 0 ">
 " 0 "" {MPLTEXT 1 0 23 "T[i]>0 and T[i]<=1 then" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 27 "T[i+1]:=mu*(1-T[i]); fi;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 16 "halfmax:=imax/2:" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 26 "for i from 1 to halfmax do" }}{PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 49 "TT[2*i]:=[T[i],T[i]]:TT[2*i+1]:=[T[i],T[i+1]]:
od:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "l:=[TT[n]$n=0..imax]
:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "with(plots):" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "M:=plot(l,x=0..1,y=0..1,styl
e=line,color=blue):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "N:=p
lot(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):" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 36 "display(\{M,N,P,Q\},labels=['x','T'
]);" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6(-%'CURVES
G6$7S7$$\"3++++++++]!#=$\"\"\"\"\"!7$$\"30LL$3x&)*3^F*$\"3!RLL$e%G?y*F
*7$$\"3\"om\"H2P\"Q?&F*$\"3OmmT&esBf*F*7$$\"3hLLeRwX5`F*$\"3yKL$3s%3z$
*F*7$$\"3YLL3x%3yT&F*$\"33LL$e/$Qk\"*F*7$$\"35n;z%4\\Y_&F*$\"3!em;/\"=
q]*)F*7$$\"3eL$eR-/Pi&F*$\"3'GL$3_>f_()F*7$$\"31+]il'pis&F*$\"3))***\\
(o1YZ&)F*7$$\"3)HLe*)>VB$eF*$\"30ML3-OJN$)F*7$$\"3:+]7`l2QfF*$\"3p***
\\P*o%Q7)F*7$$\"3Gnm;/j$o/'F*$\"3Vlmm\"RFj!zF*7$$\"3zKL3_>jUhF*$\"3UML
$e4OZr(F*7$$\"3!*****\\i^Z]iF*$\"3=+++v'\\!*\\(F*7$$\"3U****\\(=h(ejF*
$\"3=,++DwZ#G(F*7$$\"3E++]P[6jkF*$\"3[*****\\KqP2(F*7$$\"3wK$e*[z(yb'F
*$\"3[ML3-TC%)oF*7$$\"3Kmm;a/cqmF*$\"3Onmm\"4z)emF*7$$\"3%fmmmJ<gw'F*$
\"35ommm`'zY'F*7$$\"3g**\\iSj0xoF*$\"3!3+](=t)eC'F*7$$\"3;mmm\"pW`(pF*
$\"3qnmm;1J\\gF*7$$\"35+]i!f#=$3(F*$\"3y***\\(=[jLeF*7$$\"3w**\\(=xpe=
(F*$\"3\\++Dc/EGcF*7$$\"3Ymm\"H28IH(F*$\"35nm;aQ(RT&F*7$$\"3?n;zpSS\"R
(F*$\"3hlmTg=><_F*7$$\"3GLL3_?`(\\(F*$\"3VLL$e*e$\\+&F*7$$\"3#HLe*)>px
g(F*$\"3;ML3-;Y%y%F*7$$\"3>**\\Pf4t.xF*$\"3i,+D\"3QDf%F*7$$\"32LLe*Gst
!yF*$\"3'QLL3Ub_Q%F*7$$\"3#)*****\\#RW9zF*$\"3O+++]@6rTF*7$$\"3[***\\7
j#>>!)F*$\"3/,+]PZhhRF*7$$\"3h**\\i!RU07)F*$\"3y++v=_\"*ePF*7$$\"3b***
\\(=S2L#)F*$\"3*3++D'>&Q`$F*7$$\"3Kmmm\"p)=M$)F*$\"3Pnmm;EiJLF*7$$\"3N
****\\(=]@W)F*$\"3J,++D'*p:JF*7$$\"35L$e*[$z*R&)F*$\"3zLL3-8/?HF*7$$\"
3#*****\\iC$pk)F*$\"3<+++v]81FF*7$$\"3el;H2qcZ()F*$\"3$)omT&)f'[]#F*7$
$\"3q**\\7.\"fF&))F*$\"3g++v$z\"[%H#F*7$$\"3Ymm;/Ogb*)F*$\"33nmm\"z#z)
3#F*7$$\"3y**\\ilAFj!*F*$\"3Y++voaXt=F*7$$\"3!HLLL)*pp;*F*$\"3?MLLL+1m
;F*7$$\"3kKL3xe,t#*F*$\"3sML$eCoRX\"F*7$$\"3em;HdO=y$*F*$\"3$om;aoKOC
\"F*7$$\"3))*****\\#>#[Z*F*$\"3E+++]hN]5F*7$$\"31mmT&G!e&e*F*$\"3kymm
\"H%R)G)!#>7$$\"3gKLL$)Qk%o*F*$\"3:[LLLB72jFdy7$$\"37+]iSjE!z*F*$\"3i(
***\\(=tY>%Fdy7$$\"35+]P40O\"*)*F*$\"3#y***\\7)*ys@Fdy7$F+$F-F--%'COLO
URG6&%$RGBGF-F-F--F$6%7ew7$$\"3+++++++,?F*Fez7$F^[l$\"3+++++++-SF*7$Fa
[lFa[l7$Fa[l$\"3+++++++/!)F*7$Fe[lFe[l7$Fe[l$\"3+++++++#*RF*7$Fi[lFi[l
7$Fi[l$\"3)************R)zF*7$F]\\lF]\\l7$F]\\l$\"3.++++++KSF*7$Fa\\lF
a\\l7$Fa\\l$\"31++++++k!)F*7$Fe\\lFe\\l7$Fe\\l$\"3))***********>(QF*7$
Fi\\lFi\\l7$Fi\\l$\"3x***********Ru(F*7$F]]lF]]l7$F]]l$\"3!***********
*>^%F*7$Fa]lFa]l7$Fa]l$\"3!)***********R-*F*7$Fe]lFe]l7$Fe]l$\"37+++++
+_>F*7$Fi]lFi]l7$Fi]l$\"3D++++++/RF*7$F]^lF]^l7$F]^l$\"3]++++++3yF*7$F
a^lFa^l7$Fa^l$\"37++++++%Q%F*7$Fe^lFe^l7$Fe^l$\"3C++++++o()F*7$Fi^lFi^
l7$Fi^l$\"33++++++kCF*7$F]_lF]_l7$F]_l$\"3;++++++G\\F*7$Fa_lFa_l7$Fa_l
$\"3K++++++c)*F*7$Fe_lFe_l7$Fe_l$\"3#*************zGFdy7$Fi_lFi_l7$Fi_
l$\"3%)************fdFdy7$F]`lF]`l7$F]`l$\"3)************>:\"F*7$Fa`lF
a`l7$Fa`l$\"3%************RI#F*7$Fe`lFe`l7$Fe`l$\"3()***********zg%F*7
$Fi`lFi`l7$Fi`l$\"3v***********f@*F*7$F]alF]al7$F]al$\"3'************z
c\"F*7$FaalFaal7$Faal$\"3!************f8$F*7$FealFeal7$Feal$\"3!)*****
******>F'F*7$FialFial7$Fial$\"3S++++++cuF*7$F]blF]bl7$F]bl$\"3I++++++)
3&F*7$FablFabl7$Fabl$\"3^++++++C)*F*7$FeblFebl7$Febl$\"3@++++++?NFdy7$
FiblFibl7$Fibl$\"3V++++++SqFdy7$F]clF]cl7$F]cl$\"34++++++39F*7$FaclFac
l7$Facl$\"3<++++++;GF*7$FeclFecl7$Fecl$\"3M++++++KcF*7$FiclFicl7$Ficl$
\"3V++++++O()F*7$F]dlF]dl7$F]dl$\"3D++++++GDF*7$FadlFadl7$Fadl$\"3]+++
+++c]F*7$FedlFedl7$Fedl$\"37++++++)))*F*7$FidlFidl7$Fidl$\"3)*********
****RAFdy7$F]elF]el7$F]el$\"3'*************zWFdy7$FaelFael7$Fael$\"3#*
************f*)Fdy7$FeelFeel7$Feel$\"3)************>z\"F*7$FielFiel7$F
iel$\"3'************Re$F*7$F]flF]fl7$F]fl$\"3#************z;(F*7$FaflF
afl7$Fafl$\"39++++++kcF*7$FeflFefl7$Fefl$\"3s***********>n)F*7$FiflFif
l7$Fifl$\"3-++++++cEF*7$F]glF]gl7$F]gl$\"31++++++7`F*7$FaglFagl7$Fagl$
\"3))***********fP*F*7$FeglFegl7$Fegl$\"3%************zC\"F*7$FiglFigl
7$Figl$\"3))***********f\\#F*7$F]hlF]hl7$F]hl$\"3w***********>*\\F*7$F
ahlFahl7$Fahl$\"3a***********R)**F*7$FehlFehl7$Fehl$\"3;+++++++K!#?7$F
ihlFihl7$Fihl$\"3I+++++++kF[il7$F^ilF^il7$F^il$\"31++++++!G\"Fdy7$Fbil
Fbil7$Fbil$\"39++++++gDFdy7$FfilFfil7$Ffil$\"3D++++++?^Fdy7$FjilFjil7$
Fjil$\"30++++++C5F*7$F^jlF^jl7$F^jl$\"35++++++[?F*7$FbjlFbjl7$Fbjl$\"3
?++++++'4%F*7$FfjlFfjl7$Ffjl$\"3S++++++#>)F*7$FjjlFjjl7$Fjjl$\"3x*****
******fh$F*7$F^[mF^[m7$F^[m$\"3a***********>B(F*7$Fb[mFb[m7$Fb[m$\"3\"
)***********f`&F*7$Ff[mFf[m7$Ff[m$\"3Q++++++G*)F*7$Fj[mFj[m7$Fj[m$\"32
++++++W@F*7$F^\\mF^\\m7$F^\\m$\"39++++++)G%F*7$Fb\\mFb\\m7$Fb\\m$\"3G+
+++++w&)F*7$Ff\\mFf\\m7$Ff\\m$\"3)************z%GF*7$Fj\\mFj\\m7$Fj\\m
$\"3'************fp&F*7$F^]mF^]m7$F^]m$\"35++++++3')F*7$Fb]mFb]m7$Fb]m
$\"3!)***********Ry#F*7$Ff]mFf]m7$Ff]m$\"3i***********zc&F*7$Fj]mFj]m7
$Fj]m$\"3m***********R'))F*7$F^^mF^^m7$F^^m$\"37++++++sAF*7$Fb^mFb^m7$
Fb^m$\"3E++++++WXF*7$Ff^mFf^m7$Ff^m$\"3_++++++)3*F*7$Fj^mFj^m7$Fj^m$\"
32++++++C=F*7$F^_mF^_m7$F^_m$\"39++++++[OF*7$Fb_mFb_m7$Fb_m$\"3E++++++
'H(F*7$Ff_mFf_m7$Ff_m$\"3Z***********zS&F*7$Fj_mFj_m7$Fj_m$\"3%*******
*****R=*F*7$F^`mF^`m7$F^`m$\"37++++++K;F*7$Fb`mFb`m7$Fb`m$\"3C++++++kK
F*7$Ff`mFf`m7$Ff`m$\"3Z++++++GlF*7$Fj`mFj`m7$Fj`m$\"3=++++++WpF*7$F^am
F^am7$F^am$\"3m***********>6'F*7$FbamFbam7$Fbam$\"3e***********fx(F*7$
FfamFfam7$Ffam$\"3u***********zW%F*7$FjamFjam7$Fjam$\"3Y***********f*)
)F*7$F^bmF^bm7$F^bm$\"3'************z?#F*7$FbbmFbbm7$Fbbm$\"3#********
****fT%F*7$FfbmFfbm7$Ffbm$\"3&)***********>$))F*7$FjbmFjbm7$Fjbm$\"3-+
+++++OBF*7$F^cmF^cm7$F^cm$\"3/++++++sYF*7$FbcmFbcm7$Fbcm$\"33++++++W$*
F*7$FfcmFfcm7$Ffcm$\"36++++++78F*7$FjcmFjcm7$Fjcm$\"3A++++++CEF*7$F^dm
F^dm-Fgz6&FizFezFez$\"*++++\"!\")-%&STYLEG6#%%LINEG-F$6$7S7$FezFez7$$
\"3emmm;arz@FdyF_em7$$\"3[LL$e9ui2%FdyFbem7$$\"3nmmm\"z_\"4iFdyFeem7$$
\"3[mmmT&phN)FdyFhem7$$\"3CLLe*=)H\\5F*F[fm7$$\"3gmm\"z/3uC\"F*F^fm7$$
\"3%)***\\7LRDX\"F*Fafm7$$\"3]mm\"zR'ok;F*Fdfm7$$\"3w***\\i5`h(=F*Fgfm
7$$\"3WLLL3En$4#F*Fjfm7$$\"3qmm;/RE&G#F*F]gm7$$\"3\")*****\\K]4]#F*F`g
m7$$\"3$******\\PAvr#F*Fcgm7$$\"3)******\\nHi#HF*Ffgm7$$\"3jmm\"z*ev:J
F*Figm7$$\"3?LLL347TLF*F\\hm7$$\"3,LLLLY.KNF*F_hm7$$\"3w***\\7o7Tv$F*F
bhm7$$\"3'GLLLQ*o]RF*Fehm7$$\"3A++D\"=lj;%F*Fhhm7$$\"31++vV&R<P%F*F[im
7$$\"3WLL$e9Ege%F*F^im7$$\"3GLLeR\"3Gy%F*Faim7$$\"3cmm;/T1&*\\F*Fdim7$
$\"3&em;zRQb@&F*Fgim7$$\"3\\***\\(=>Y2aF*Fjim7$$\"39mm;zXu9cF*F]jm7$$
\"3l******\\y))GeF*F`jm7$$\"3'*)***\\i_QQgF*Fcjm7$$\"3@***\\7y%3TiF*Ff
jm7$$\"35****\\P![hY'F*Fijm7$$\"3kKLL$Qx$omF*F\\[n7$$\"3!)*****\\P+V)o
F*F_[n7$$\"3?mm\"zpe*zqF*Fb[n7$$\"3%)*****\\#\\'QH(F*Fe[n7$$\"3GKLe9S8
&\\(F*Fh[n7$$\"3R***\\i?=bq(F*F[\\n7$$\"3\"HLL$3s?6zF*F^\\n7$$\"3a***
\\7`Wl7)F*Fa\\n7$$\"3#pmmm'*RRL)F*Fd\\n7$$\"3Qmm;a<.Y&)F*Fg\\n7$$\"3=L
Le9tOc()F*Fj\\n7$$\"3u******\\Qk\\*)F*F]]n7$$\"3CLL$3dg6<*F*F`]n7$$\"3
ImmmmxGp$*F*Fc]n7$$\"3A++D\"oK0e*F*Ff]n7$$\"3A++v=5s#y*F*Fi]n7$F+F+Ffz
-F$6$7SF]em7$$\"3ILLL3x&)*3\"FdyF_em7$$\"3umm\"H2P\"Q?FdyFbem7$$\"3MLL
$eRwX5$FdyFeem7$$\"3CLL$3x%3yTFdyFhem7$$\"3=mm\"z%4\\Y_FdyF[fm7$$\"3)H
L$eR-/PiFdyF^fm7$$\"3A***\\il'pisFdyFafm7$$\"3`KLe*)>VB$)FdyFdfm7$$\"3
!))**\\7`l2Q*FdyFgfm7$$\"3smm;/j$o/\"F*Fjfm7$$\"3NLL3_>jU6F*F]gm7$$\"3
!*****\\i^Z]7F*F`gm7$$\"3'*****\\(=h(e8F*Fcgm7$$\"3)*****\\P[6j9F*Ffgm
7$$\"3KL$e*[z(yb\"F*Figm7$$\"3gmm;a/cq;F*F\\hm7$$\"3]mmm;t,m<F*F_hm7$$
\"3))**\\iSj0x=F*Fbhm7$$\"3Wmmm\"pW`(>F*Fehm7$$\"35+]i!f#=$3#F*Fhhm7$$
\"3/+](=xpe=#F*F[im7$$\"3smm\"H28IH#F*F^im7$$\"3km;zpSS\"R#F*Faim7$$\"
3GLL3_?`(\\#F*Fdim7$$\"3#HLe*)>pxg#F*Fgim7$$\"3u**\\Pf4t.FF*Fjim7$$\"3
2LLe*Gst!GF*F]jm7$$\"3#)*****\\#RW9HF*F`jm7$$\"3[***\\7j#>>IF*Fcjm7$$
\"3h**\\i!RU07$F*Ffjm7$$\"3b***\\(=S2LKF*Fijm7$$\"3Kmmm\"p)=MLF*F\\[n7
$$\"3!*****\\(=]@W$F*F_[n7$$\"35L$e*[$z*RNF*Fb[n7$$\"3#*****\\iC$pk$F*
Fe[n7$$\"39m;H2qcZPF*Fh[n7$$\"3q**\\7.\"fF&QF*F[\\n7$$\"3Ymm;/OgbRF*F^
\\n7$$\"3y**\\ilAFjSF*Fa\\n7$$\"3YLLL$)*pp;%F*Fd\\n7$$\"3?LL3xe,tUF*Fg
\\n7$$\"3em;HdO=yVF*Fj\\n7$$\"3))*****\\#>#[Z%F*F]]n7$$\"3immT&G!e&e%F
*F`]n7$$\"3;LLL$)Qk%o%F*Fc]n7$$\"37+]iSjE!z%F*Ff]n7$$\"35+]P40O\"*[F*F
i]nF'Ffz-%+AXESLABELSG6$%\"xG%\"TG-%%VIEWG6$;FezF+Fdgn" 1 2 0 1 10 0 
2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" "Curve \+
3" "Curve 4" }}}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "
" {TEXT 258 46 "The next plot shows the values of the sequence" }
{TEXT -1 1 " " }{TEXT 259 1 "x" }{TEXT 257 1 "i" }}{PARA 0 "" 0 "" 
{TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "for i from \+
0 to imax do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "TTT[i]:=[i,T[i]]: o
d:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "m:=[TTT[n]$n=0..imax]
:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 49 "plot(m,x=0..imax,y=0..
1.5,style=line,color=blue);" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 
{PLOTDATA 2 "6'-%'CURVESG6#7ew7$$\"\"!F)$\"3+++++++,?!#=7$$\"\"\"F)$\"
3+++++++-SF,7$$\"\"#F)$\"3+++++++/!)F,7$$\"\"$F)$\"3+++++++#*RF,7$$\"
\"%F)$\"3)************R)zF,7$$\"\"&F)$\"3.++++++KSF,7$$\"\"'F)$\"31+++
+++k!)F,7$$\"\"(F)$\"3))***********>(QF,7$$\"\")F)$\"3x***********Ru(F
,7$$\"\"*F)$\"3!************>^%F,7$$\"#5F)$\"3!)***********R-*F,7$$\"#
6F)$\"37++++++_>F,7$$\"#7F)$\"3D++++++/RF,7$$\"#8F)$\"3]++++++3yF,7$$
\"#9F)$\"37++++++%Q%F,7$$\"#:F)$\"3C++++++o()F,7$$\"#;F)$\"33++++++kCF
,7$$\"#<F)$\"3;++++++G\\F,7$$\"#=F)$\"3K++++++c)*F,7$$\"#>F)$\"3#*****
********zG!#>7$$\"#?F)$\"3%)************fdFfq7$$\"#@F)$\"3)***********
*>:\"F,7$$\"#AF)$\"3%************RI#F,7$$\"#BF)$\"3()***********zg%F,7
$$\"#CF)$\"3v***********f@*F,7$$\"#DF)$\"3'************zc\"F,7$$\"#EF)
$\"3!************f8$F,7$$\"#FF)$\"3!)***********>F'F,7$$\"#GF)$\"3S+++
+++cuF,7$$\"#HF)$\"3I++++++)3&F,7$$\"#IF)$\"3^++++++C)*F,7$$\"#JF)$\"3
@++++++?NFfq7$$\"#KF)$\"3V++++++SqFfq7$$\"#LF)$\"34++++++39F,7$$\"#MF)
$\"3<++++++;GF,7$$\"#NF)$\"3M++++++KcF,7$$\"#OF)$\"3V++++++O()F,7$$\"#
PF)$\"3D++++++GDF,7$$\"#QF)$\"3]++++++c]F,7$$\"#RF)$\"37++++++)))*F,7$
$\"#SF)$\"3)*************RAFfq7$$\"#TF)$\"3'*************zWFfq7$$\"#UF
)$\"3#*************f*)Ffq7$$\"#VF)$\"3)************>z\"F,7$$\"#WF)$\"3
'************Re$F,7$$\"#XF)$\"3#************z;(F,7$$\"#YF)$\"39++++++k
cF,7$$\"#ZF)$\"3s***********>n)F,7$$\"#[F)$\"3-++++++cEF,7$$\"#\\F)$\"
31++++++7`F,7$$\"#]F)$\"3))***********fP*F,7$$\"#^F)$\"3%************z
C\"F,7$$\"#_F)$\"3))***********f\\#F,7$$\"#`F)$\"3w***********>*\\F,7$
$\"#aF)$\"3a***********R)**F,7$$\"#bF)$\"3;+++++++K!#?7$$\"#cF)$\"3I++
+++++kF[]l7$$\"#dF)$\"31++++++!G\"Ffq7$$\"#eF)$\"39++++++gDFfq7$$\"#fF
)$\"3D++++++?^Ffq7$$\"#gF)$\"30++++++C5F,7$$\"#hF)$\"35++++++[?F,7$$\"
#iF)$\"3?++++++'4%F,7$$\"#jF)$\"3S++++++#>)F,7$$\"#kF)$\"3x***********
fh$F,7$$\"#lF)$\"3a***********>B(F,7$$\"#mF)$\"3\")***********f`&F,7$$
\"#nF)$\"3Q++++++G*)F,7$$\"#oF)$\"32++++++W@F,7$$\"#pF)$\"39++++++)G%F
,7$$\"#qF)$\"3G++++++w&)F,7$$\"#rF)$\"3)************z%GF,7$$\"#sF)$\"3
'************fp&F,7$$\"#tF)$\"35++++++3')F,7$$\"#uF)$\"3!)***********R
y#F,7$$\"#vF)$\"3i***********zc&F,7$$\"#wF)$\"3m***********R'))F,7$$\"
#xF)$\"37++++++sAF,7$$\"#yF)$\"3E++++++WXF,7$$\"#zF)$\"3_++++++)3*F,7$
$\"#!)F)$\"32++++++C=F,7$$\"#\")F)$\"39++++++[OF,7$$\"##)F)$\"3E++++++
'H(F,7$$\"#$)F)$\"3Z***********zS&F,7$$\"#%)F)$\"3%************R=*F,7$
$\"#&)F)$\"37++++++K;F,7$$\"#')F)$\"3C++++++kKF,7$$\"#()F)$\"3Z++++++G
lF,7$$\"#))F)$\"3=++++++WpF,7$$\"#*)F)$\"3m***********>6'F,7$$\"#!*F)$
\"3e***********fx(F,7$$\"#\"*F)$\"3u***********zW%F,7$$\"##*F)$\"3Y***
********f*))F,7$$\"#$*F)$\"3'************z?#F,7$$\"#%*F)$\"3#*********
***fT%F,7$$\"#&*F)$\"3&)***********>$))F,7$$\"#'*F)$\"3-++++++OBF,7$$
\"#(*F)$\"3/++++++sYF,7$$\"#)*F)$\"33++++++W$*F,7$$\"#**F)$\"36++++++7
8F,7$$\"$+\"F)$\"3A++++++CEF,7$$\"$,\"F)$\"3W++++++[_F,7$$\"$-\"F)$\"3
B++++++/&*F,7$$\"$.\"F)$\"3l************>**Ffq7$$\"$/\"F)$\"3#********
****R)>F,7$$\"$0\"F)$\"3')***********z'RF,7$$\"$1\"F)$\"3s***********f
$zF,7$$\"$2\"F)$\"3+++++++GTF,7$$\"$3\"F)$\"3+++++++c#)F,7$$\"$4\"F)$
\"3)************z[$F,7$$\"$5\"F)$\"3)************f(pF,7$$\"$6\"F)$\"3/
++++++[gF,7$$\"$7\"F)$\"3\"************R!zF,7$$\"$8\"F)$\"3;++++++#>%F
,7$$\"$9\"F)$\"3M++++++%Q)F,7$$\"$:\"F)$\"3()***********>B$F,7$$\"$;\"
F)$\"3u***********RY'F,7$$\"$<\"F)$\"3]++++++sqF,7$$\"$=\"F)$\"35+++++
+ceF,7$$\"$>\"F)$\"3#)***********zG)F,7$$\"$?\"F)$\"3#)***********RU$F
,7$$\"$@\"F)$\"3k***********z%oF,7$$\"$A\"F)$\"3g***********RI'F,7$$\"
$B\"F)$\"3o***********>R(F,7$$\"$C\"F)$\"3`***********f@&F,7$$\"$D\"F)
$\"3%)***********zc*F,7$$\"$E\"F)$\"3Y++++++S')Ffq7$$\"$F\"F)$\"34++++
++G<F,7$$\"$G\"F)$\"3=++++++cMF,7$$\"$H\"F)$\"3P++++++7pF,7$$\"$I\"F)$
\"3Q++++++whF,7$$\"$J\"F)$\"3O++++++[wF,7$$\"$K\"F)$\"3&)***********Rq
%F,7$$\"$L\"F)$\"3q***********zS*F,7$$\"$M\"F)$\"3/++++++%=\"F,7$$\"$N
\"F)$\"35++++++oBF,7$$\"$O\"F)$\"3@++++++OZF,7$$\"$P\"F)$\"3U++++++s%*
F,7$$\"$Q\"F)$\"3+++++++c5F,7$$\"$R\"F)$\"3*************>6#F,7$$\"$S\"
F)$\"3)************RA%F,7$$\"$T\"F)$\"3'************zW)F,7$$\"$U\"F)$
\"34++++++/JF,7$$\"$V\"F)$\"3=++++++3iF,7$$\"$W\"F)$\"3i***********Re(
F,7$$\"$X\"F)$\"3=++++++K[F,7$$\"$Y\"F)$\"3O++++++k'*F,7$$\"$Z\"F)$\"3
f************>nFfq7$$\"$[\"F)$\"3#************RM\"F,7$$\"$\\\"F)$\"3%)
***********zo#F,7$$\"$]\"F)$\"3m***********fP&F,7$$\"$^\"F)$\"3c******
*****zC*F,7$$\"$_\"F)$\"31++++++/:F,7$$\"$`\"F)$\"37++++++3IF,7$$\"$a
\"F)$\"3C++++++;gF,7$$\"$b\"F)$\"3_***********z'zF,7$$\"$c\"F)$\"3%)**
*********R1%F,7$$\"$d\"F)$\"3n***********z7)F,7$$\"$e\"F)$\"36++++++WP
F,7$$\"$f\"F)$\"3A++++++)[(F,7$$\"$g\"F)$\"3e***********R-&F,7$$\"$h\"
F)$\"3u***********>&**F,7$$\"$i\"F)$\"3=*************f*F[]l7$$\"$j\"F)
$\"3$)************>>Ffq7$$\"$k\"F)$\"3n************RQFfq7$$\"$l\"F)$\"
3M************zwFfq7$$\"$m\"F)$\"3')***********f`\"F,7$$\"$n\"F)$\"3s*
**********>2$F,7$$\"$o\"F)$\"3Y***********R9'F,7$$\"$p\"F)$\"3(*******
*****>r(F,7$$\"$q\"F)$\"31++++++wXF,7$$\"$r\"F)$\"39++++++_\"*F,7$$\"$
s\"F)$\"3+++++++'p\"F,7$$\"$t\"F)$\"3+++++++#R$F,7$$\"$u\"F)$\"3-+++++
+%y'F,7$$\"$v\"F)$\"3%************>V'F,7$$\"$w\"F)$\"37++++++OrF,7$$\"
$x\"F)$\"3w***********zs&F,7$$\"$y\"F)$\"3[++++++W&)F,7$$\"$z\"F)$\"39
++++++7HF,7$$\"$!=F)$\"3H++++++CeF,7$$\"$\"=F)$\"3a++++++_$)F,7$$\"$#=
F)$\"3/++++++'H$F,7$$\"$$=F)$\"33++++++#f'F,7$$\"$%=F)$\"3%)**********
*f\"oF,7$$\"$&=F)$\"3K++++++ojF,7$$\"$'=F)$\"3Y++++++ksF,7$$\"$(=F)$\"
3?++++++saF,7$$\"$)=F)$\"3i***********f0*F,7$$\"$*=F)$\"3'************
z)=F,7$$\"$!>F)$\"3#************fx$F,7$$\"$\">F)$\"3#)***********>b(F,
7$$\"$#>F)$\"3!)***********f*[F,7$$\"$$>F)$\"3g***********>z*F,7$$\"$%
>F)$\"3#)************fTFfq7$$\"$&>F)$\"3i************>$)Ffq7$$\"$'>F)$
\"3#************Rm\"F,7$$\"$(>F)$\"3&)***********zK$F,7$$\"$)>F)$\"3q*
**********fl'F,7$$\"$*>F)$\"3]***********zo'F,7$$\"$+#F)$\"3*)********
***Ri'F,-%'COLOURG6&%$RGBGF(F($\"*++++\"!\")-%+AXESLABELSG6$Q\"x6\"Q\"
yF\\[o-%&STYLEG6#%%LINEG-%%VIEWG6$;F(F]jn;F($F_p!\"\"" 1 6 0 1 10 0 2 
6 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" }}}}{EXCHG {PARA 0 
"" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT 260 45 "2. Graphical ite
ration of a logistic function" }{TEXT -1 1 " " }{XPPEDIT 18 0 "f(x) = \+
x^2-1;" "6#/-%\"fG6#%\"xG,&*$F'\"\"#\"\"\"F+!\"\"" }}{PARA 0 "" 0 "" 
{TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart:" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "imax:=50:" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 60 "T:=array(0..10000):TT:=array(0..10000):TT
T:=array(0..10000):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "T[0]
:=0.9:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "for i from 0 to i
max do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "T[i+1]:=(T[i])^2-1:" }}
{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 16 "halfmax:=imax/2:" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 26 "for i from 1 to halfmax do" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 49 "TT[2*i]:=[T[i],T[i]]:TT[2*i+1]:=[T[i],T[i+1]]:od:" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "l:=[TT[n]$n=0..imax]:" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "with(plots):" }}{PARA 7 "" 
1 "" {TEXT -1 50 "Warning, the name changecoords has been redefined\n
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 49 "M:=plot(l,x=-1..1,y=-1.
.1,style=line,color=blue):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
31 "N:=plot(x,x=-1..1,color=black):" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 35 "P:=plot(x^2-1,x=-1..1,color=black):" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 34 "display(\{M,N,P\},labels=['x','T']);" }}
{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6'-%'CURVESG6%7U7$
$\"3A+++++++!*!#=$\"\"!F,7$F($!3-+++++++>F*7$F.F.7$F.$!3z************Q
'*F*7$F2F27$F2$!37++++!z'*3(!#>7$F6F67$F6$!3!)*****>XO(\\**F*7$F;F;7$F
;$!3'*******RXu-5F87$F?F?7$F?$!3[+++.X**)***F*7$FCFC7$FC$!3$*********H
*3,#!#@7$FGFG7$FG$!2)*****ff*******!#<7$FLFL7$FL$!3c************z!)!#D
7$FQFQ7$FQ$!\"\"F,7$FVFV7$FVF+7$F+F+7$F+FVFXFYFZFenFXFYFZFenFXFYFZFenF
XFYFZFenFXFYFZFenFXFYFZFenFXFYFZ-%'COLOURG6&%$RGBGF+F+$\"*++++\"!\")-%
&STYLEG6#%%LINEG-F$6$7SFX7$$!3ommm;p0k&*F*Feo7$$!3wKL$3<XZ=*F*Fho7$$!3
mmmmT%p\"e()F*F[p7$$!3:mmm\"4m(G$)F*F^p7$$!3\"QLL3i.9!zF*Fap7$$!3\"omm
T!R=0vF*Fdp7$$!3u****\\P8#\\4(F*Fgp7$$!3+nm;/siqmF*Fjp7$$!3[++](y$pZiF
*F]q7$$!33LLL$yaE\"eF*F`q7$$!3hmmm\">s%HaF*Fcq7$$!3Q+++]$*4)*\\F*Ffq7$
$!39+++]_&\\c%F*Fiq7$$!31+++]1aZTF*F\\r7$$!3umm;/#)[oPF*F_r7$$!3hLLL$=
exJ$F*Fbr7$$!3*RLLLtIf$HF*Fer7$$!3]++]PYx\"\\#F*Fhr7$$!3EMLLL7i)4#F*F[
s7$$!3c****\\P'psm\"F*F^s7$$!3')****\\74_c7F*Fas7$$!3)3LLL3x%z#)F8Fds7
$$!3KMLL3s$QM%F8Fgs7$$!3]^omm;zr)*FIFjs7$$\"3%pJL$ezw5VF8F]t7$$\"3s*)*
**\\PQ#\\\")F8F`t7$$\"3GKLLe\"*[H7F*Fct7$$\"3I*******pvxl\"F*Fft7$$\"3
#z****\\_qn2#F*Fit7$$\"3U)***\\i&p@[#F*F\\u7$$\"3B)****\\2'HKHF*F_u7$$
\"3ElmmmZvOLF*Fbu7$$\"3i******\\2goPF*Feu7$$\"3UKL$eR<*fTF*Fhu7$$\"3m*
*****\\)Hxe%F*F[v7$$\"3ckm;H!o-*\\F*F^v7$$\"3y)***\\7k.6aF*Fav7$$\"3#e
mmmT9C#eF*Fdv7$$\"33****\\i!*3`iF*Fgv7$$\"3%QLLL$*zym'F*Fjv7$$\"3wKLL3
N1#4(F*F]w7$$\"3Nmm;HYt7vF*F`w7$$\"3Y*******p(G**yF*Fcw7$$\"3]mmmT6KU$
)F*Ffw7$$\"3fKLLLbdQ()F*Fiw7$$\"3[++]i`1h\"*F*F\\x7$$\"3W++]P?Wl&*F*F_
x7$$\"\"\"F,Fbx-Fgn6&FinF,F,F,-F$6$7SFY7$Feo$!3]%\\gZH:)G&)F87$Fho$!3i
x`o9c/k:F*7$F[p$!3D>c5.oWHBF*7$F^p$!3%pNI!Rb;jIF*7$Fap$!3a)=o?3#ycPF*7
$Fdp$!3/fPYc9AnVF*7$Fgp$!3'4so974i'\\F*7$Fjp$!3weJIqKF]bF*7$F]q$!3Y!Rj
PBKm4'F*7$F`q$!3y6#zpV/8i'F*7$Fcq$!3WO=*><$3_qF*7$Ffq$!3MdHv)G+>](F*7$
Fiq$!3%Ru\\lN=h\"zF*7$F\\r$!3!yvfcl!zz#)F*7$F_r$!3')oc]l'\\)z&)F*7$Fbr
$!3!)pCpj![#**))F*7$Fer$!3Azo!H2J!Q\"*F*7$Fhr$!3yt6f:f5z$*F*7$F[s$!3!y
C+>*)y&f&*F*7$F^s$!3ohqe&>@?s*F*7$Fas$!3><]k>b6U)*F*7$Fds$!3belAf-XJ**
F*7$Fgs$!37*\\2$y58\")**F*7$Fjs$!2#HHxa-******FN7$F]t$!3%pS4'zsT\")**F
*7$F`t$!3'zU2R\"**eL**F*7$Fct$!3%*yS&4kN)[)*F*7$Fft$!3p]*[G(z<D(*F*7$F
it$!3=B\"\\'=Cqo&*F*7$F\\u$!3;d)*HEM)QQ*F*7$F_u$!3wgR&G(R;S\"*F*7$Fbu$
!3wGFring')))F*7$Feu$!3aW*4(Q[wz&)F*7$Fhu$!3_AV)fs3&p#)F*7$F[v$!3'z*=M
#[t_*yF*7$F^v$!3+0xq*\\A(4vF*7$Fav$!3O9*fU\\o?2(F*7$Fdv$!3C<#fg.\\*4mF
*7$Fgv$!3#*)GWwr())*3'F*7$Fjv$!3?l]Y>x$Rb&F*7$F]w$!3ypmP>NEq\\F*7$F`w$
!3!*)*><R=)eN%F*7$Fcw$!3EsGE$QD,w$F*7$Ffw$!3,P,$pzn0/$F*7$Fiw$!3=1G#[w
HPO#F*7$F\\x$!3%HF+C9)[2;F*7$F_x$!3/XyAF'=B])F87$FbxF+Fdx-%+AXESLABELS
G6$%\"xG%\"TG-%%VIEWG6$;FVFbxF_bl" 1 2 0 1 10 0 2 9 1 4 2 1.000000 
45.000000 45.000000 0 0 "Curve 1" "Curve 2" "Curve 3" }}}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "for i from 0 to imax do" }}{PARA 0 
"> " 0 "" {MPLTEXT 1 0 21 "TTT[i]:=[i,T[i]]: od:" }}}{EXCHG {PARA 0 ">
 " 0 "" {MPLTEXT 1 0 22 "m:=[TTT[n]$n=0..imax]:" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 48 "plot(m,x=0..imax,y=-2..1,style=line,color=blue
);" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6'-%'CURVESG
6#7U7$$\"\"!F)$\"3A+++++++!*!#=7$$\"\"\"F)$!3-+++++++>F,7$$\"\"#F)$!3z
************Q'*F,7$$\"\"$F)$!37++++!z'*3(!#>7$$\"\"%F)$!3!)*****>XO(\\
**F,7$$\"\"&F)$!3'*******RXu-5F<7$$\"\"'F)$!3[+++.X**)***F,7$$\"\"(F)$
!3$*********H*3,#!#@7$$\"\")F)$!2)*****ff*******!#<7$$\"\"*F)$!3c*****
*******z!)!#D7$$\"#5F)$!\"\"F)7$$\"#6F)F(7$$\"#7F)F[o7$$\"#8F)F(7$$\"#
9F)F[o7$$\"#:F)F(7$$\"#;F)F[o7$$\"#<F)F(7$$\"#=F)F[o7$$\"#>F)F(7$$\"#?
F)F[o7$$\"#@F)F(7$$\"#AF)F[o7$$\"#BF)F(7$$\"#CF)F[o7$$\"#DF)F(7$$\"#EF
)F[o7$$\"#FF)F(7$$\"#GF)F[o7$$\"#HF)F(7$$\"#IF)F[o7$$\"#JF)F(7$$\"#KF)
F[o7$$\"#LF)F(7$$\"#MF)F[o7$$\"#NF)F(7$$\"#OF)F[o7$$\"#PF)F(7$$\"#QF)F
[o7$$\"#RF)F(7$$\"#SF)F[o7$$\"#TF)F(7$$\"#UF)F[o7$$\"#VF)F(7$$\"#WF)F[
o7$$\"#XF)F(7$$\"#YF)F[o7$$\"#ZF)F(7$$\"#[F)F[o7$$\"#\\F)F(7$$\"#]F)F[
o-%+AXESLABELSG6$Q\"x6\"Q\"yFiv-%'COLOURG6&%$RGBGF(F($\"*++++\"!\")-%&
STYLEG6#%%LINEG-%%VIEWG6$;F(Fcv;$!\"#F)F." 1 6 0 1 10 0 2 6 1 4 2 
1.000000 45.000000 45.000000 0 0 "Curve 1" }}}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 0 "" }}}}{MARK "21 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 
1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }