{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 "" 0 1 0 0 0 0 1 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" -1 11 1 {CSTYLE "" 
-1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 3 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 "Normal
" -1 256 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 }}
{SECT 0 {EXCHG {PARA 256 "" 0 "" {TEXT -1 16 "LOGISTIC MODEL: " }
{XPPEDIT 18 0 "P[n+1] = k*P[n]*(1-P[n]);" "6#/&%\"PG6#,&%\"nG\"\"\"F)F
)*(%\"kGF)&F%6#F(F),&F)F)&F%6#F(!\"\"F)" }}}{EXCHG {PARA 0 "" 0 "" 
{TEXT -1 77 "We will study this difference equation for different valu
es of the parameter " }{TEXT 256 1 "k" }{TEXT -1 34 " and different in
itial conditions." }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 30 "with(plots): imax:=50: k:=3.9:" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "P:=array(0..55):" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 10 "P[0]:=0.5;" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#>&%\"PG6#\"\"!$\"\"&!\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 23 "for i from 0 to imax do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "
P[i+1]:=k*P[i]*(1-P[i]):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "od:" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "LL0:=[[n,P[n]]$n=0..50]:" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "C1:=plot(LL0,linestyle=3):
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 41 "C2:=pointplot(LL0,color
=blue,symbol=box):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "displ
ay(\{C1,C2\});" }}{PARA 13 "" 1 "" {GLPLOT2D 496 496 496 {PLOTDATA 2 "
6&-%'CURVESG6%7U7$$\"\"!F)$\"3++++++++]!#=7$$\"\"\"F)$\"3y************
\\(*F,7$$\"\"#F)$\"3U*********\\i]*!#>7$$\"\"$F)$\"3w*****HA**\\N$F,7$
$\"\"%F)$\"3o*****HD\\Yp)F,7$$\"\"&F)$\"3D+++!4JjU%F,7$$\"\"'F)$\"3e**
***>b_;i*F,7$$\"\"(F)$\"3/+++)zF(>9F,7$$\"\")F)$\"3u*****R(Q%3v%F,7$$
\"\"*F)$\"3$******zF*yD(*F,7$$\"#5F)$\"3,+++Br4S5F,7$$\"#6F)$\"35+++!*
fZMOF,7$$\"#7F)$\"3V+++HUyA!*F,7$$\"#8F)$\"34+++[2rQMF,7$$\"#9F)$\"3m*
****>fE$*z)F,7$$\"#:F)$\"3-+++0eR?TF,7$$\"#;F)$\"33+++?cD[%*F,7$$\"#<F
)$\"3/+++c&yI.#F,7$$\"#=F)$\"3j*****f3xpJ'F,7$$\"#>F)$\"3g******HGdt!*
F,7$$\"#?F)$\"3-+++;<MyKF,7$$\"#@F)$\"3E+++s\")*Rf)F,7$$\"#AF)$\"3A+++
%3RCr%F,7$$\"#BF)$\"3^+++-/v<(*F,7$$\"#CF)$\"3%******f9/(p5F,7$$\"#DF)
$\"3<+++b?eDPF,7$$\"#EF)$\"3/+++p\\e;\"*F,7$$\"#FF)$\"3$)*****\\*R&49$
F,7$$\"#GF)$\"3&)*****4qR@S)F,7$$\"#HF)$\"3J+++FP#fB&F,7$$\"#IF)$\"3H+
+++EHG(*F,7$$\"#JF)$\"3'******\\9n3.\"F,7$$\"#KF)$\"3C+++3R$fg$F,7$$\"
#LF)$\"3o*****R4m?**)F,7$$\"#MF)$\"30+++Q#HZ`$F,7$$\"#NF)$\"3Y+++BGm7*
)F,7$$\"#OF)$\"3A+++dr^zPF,7$$\"#PF)$\"3[+++MW1p\"*F,7$$\"#QF)$\"33+++
!or8(HF,7$$\"#RF)$\"3>+++$=?]9)F,7$$\"#SF)$\"3=+++Q2X#*eF,7$$\"#TF)$\"
3]+++ctPR%*F,7$$\"#UF)$\"33+++!>_Q1#F,7$$\"#VF)$\"3%)*****\\0CyQ'F,7$$
\"#WF)$\"3K+++6$Q))**)F,7$$\"#XF)$\"3#******H%Ri8NF,7$$\"#YF)$\"3)****
**fin$))))F,7$$\"#ZF)$\"3w******4HV`QF,7$$\"#[F)$\"3'******\\s*HP#*F,7
$$\"#\\F)$\"3')*****f]jwu#F,7$$\"#]F)$\"3]*****4KA:x(F,-%'COLOURG6&%$R
GBG$Fgn!\"\"F(F(-%*LINESTYLEG6#F:-%'POINTSG6W7$F($FDFg[l7$F.$\"$v*!\"$
7$F3$\"'D1&*!\"(7$F9$\"+B#**\\N$!#57$F>$\"+`#\\Yp)F[]l7$FC$\"+!4JjU%F[
]l7$FH$\"+_Dl@'*F[]l7$FM$\"+)zF(>9F[]l7$FR$\"+uQ%3v%F[]l7$FW$\"+y#*yD(
*F[]l7$Ffn$\"+Br4S5F[]l7$F[o$\"+!*fZMOF[]l7$F`o$\"+HUyA!*F[]l7$Feo$\"+
[2rQMF[]l7$Fjo$\"+#fE$*z)F[]l7$F_p$\"+0eR?TF[]l7$Fdp$\"+?cD[%*F[]l7$Fi
p$\"+c&yI.#F[]l7$F^q$\"+'3xpJ'F[]l7$Fcq$\"+IGdt!*F[]l7$Fhq$\"+;<MyKF[]
l7$F]r$\"+s\")*Rf)F[]l7$Fbr$\"+%3RCr%F[]l7$Fgr$\"+-/v<(*F[]l7$F\\s$\"+
YTqp5F[]l7$Fas$\"+b?eDPF[]l7$Ffs$\"+p\\e;\"*F[]l7$F[t$\"+&*R&49$F[]l7$
F`t$\"+,(R@S)F[]l7$Fet$\"+FP#fB&F[]l7$Fjt$\"++EHG(*F[]l7$F_u$\"+Xr'3.
\"F[]l7$Fdu$\"+3R$fg$F[]l7$Fiu$\"+%4m?**)F[]l7$F^v$\"+Q#HZ`$F[]l7$Fcv$
\"+BGm7*)F[]l7$Fhv$\"+dr^zPF[]l7$F]w$\"+MW1p\"*F[]l7$Fbw$\"+!or8(HF[]l
7$Fgw$\"+$=?]9)F[]l7$F\\x$\"+Q2X#*eF[]l7$Fax$\"+ctPR%*F[]l7$Ffx$\"+!>_
Q1#F[]l7$F[y$\"+bS#yQ'F[]l7$F`y$\"+6$Q))**)F[]l7$Fey$\"+VRi8NF[]l7$Fjy
$\"+EwO))))F[]l7$F_z$\"+5HV`QF[]l7$Fdz$\"+D(*HP#*F[]l7$Fiz$\"+1NmZFF[]
l7$F^[l$\"+@B_rxF[]l-Fc[l6&Fe[lF(F($\"*++++\"!\")-%'SYMBOLG6#%$BOXG-%+
AXESLABELSG6$Q!6\"Fefl-%%VIEWG6$%(DEFAULTGFjfl" 1 2 0 1 10 0 2 9 1 4 
2 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" }}}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "6 0 0" 24 }{VIEWOPTS 1 
1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }