{VERSION 2 3 "APPLE_68K_MAC" "2.3" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 }{CSTYLE "" -1 256 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 }
{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 
0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 0 256 1 {CSTYLE "" 
-1 -1 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 }3 0 0 -1 -1 -1 0 0 0 0 0 0 -1 
0 }}
{SECT 0 {EXCHG {PARA 256 "" 0 "" {TEXT -1 58 "Sequences -- Logistic Mo
dels -- Stretch Your Understanding" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}
{PARA 0 "" 0 "" {TEXT -1 104 "The cell below gives one example of a mo
re realistic model based on the same ideas as logistic models.  " }
{TEXT 256 69 "Evaluate it now and then use it as the basis for further
 experiments." }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 361 "a := 2.00:\n\nR := proc(p)\n     if p < 500 the
n a else a - a * (p - 500)/1500 fi\n     end:\n\nf := p -> R(p) * p:\n
\npop := proc(n)\n       if n = 1 then 50 else f(pop(n - 1)) fi\n     \+
  end:\n\nfor k from 1 to 20 \n      do printf(`%4d %10.4f`, k, pop(k)
);\n      print();\n      od;\n\nplot([seq([n, pop(n)], n = 1 .. 20)],
 \n        year = 1 .. 20, title = `Population`);\n\n\n" }}}}{MARK "0 \+
0 0" 58 }{VIEWOPTS 1 1 0 1 1 1803 }