{VERSION 5 0 "IBM INTEL LINUX" "5.0" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 1 }{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 
0 0 0 0 0 0 0 0 0 1 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 0 "" 0 "" {TEXT -1 35 "Beetle Population with thr
ee states" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG 
{PARA 0 "" 0 "" {TEXT -1 35 "L is the amount of larva population" }}
{PARA 0 "" 0 "" {TEXT -1 70 "P is the amount of pupa population\nA is \+
the amount of adult population" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 20 "restart;with(plots):" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 10 "P
arameters" }}{PARA 0 "" 0 "" {TEXT -1 15 "b  birth factor" }}{PARA 0 "
" 0 "" {TEXT -1 60 "cl crowding factor for births of larva from larva \+
population" }}{PARA 0 "" 0 "" {TEXT -1 141 "ca crowding factor for bir
ths of larva  from  adults population\ncaa crowding factor for transit
ion from pupa to adults from adult papulation " }}{PARA 0 "" 0 "" 
{TEXT -1 22 "dl death rate of larva" }}{PARA 0 "" 0 "" {TEXT -1 21 "dp
 death rate of pupa" }}{PARA 0 "" 0 "" {TEXT -1 23 "da death rate of a
dults" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 88 "b := 7.48:\ncl := \+
0.012:\nca := 0.009:\ncaa := 0.004:\ndl := 0.267:\ndp := 0.0:\nda := 0
.0036:" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 47 "Iinitial conditions\nl0
  larva\np0 pupa\na0 adults" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
32 "l0 := 100:\np0 := 100:\na0 := 100:" }}}{EXCHG {PARA 0 "" 0 "" 
{TEXT -1 63 "n0:  Initially there are  n0 iterates that are not displa
yed.  " }}{PARA 0 "" 0 "" {TEXT -1 93 "n1:  Then n1 more iterates are \+
calculated with the  values of the the iterates are displayed." }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "n0 := 1000:\nn1 := 100:" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 142 "f := proc(l,p,a) \n  local \+
l1,p1,a1:\n  l1 := b*a*exp(-ca*a-cl*l):\n  p1 := l*(1-dl):\n  a1 := p*
(1-dp)*exp(-caa*a) + a*(1-da):\n  (l1,p1,a1);\nend:" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 60 "for i from 1 to n0 do\n        (l0,p0,a0)
 := f(l0,p0,a0):\nod:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 171 "p
rintf(`\\t i \\t\\t larva \\t pupa \\t adult`);\nfor i from 1 to n1 do
\n        (l0,p0,a0) := f(l0,p0,a0):\n      printf(`\\t%3d\\t\\t%4.2f
\\t\\t%4.2f\\t\\t%4.2f\\n`,i,l0,p0,a0);\n    od:" }}}{EXCHG {PARA 0 ">
 " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "1 0 0" 0 }{VIEWOPTS 1 1 0 1 1 
1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }