{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 31 "Sequences -- Pack Hunter
 Models" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 
113 "The cell below illustrates the way in which Maple can be used to \+
work with models like the ones in this module.  " }{TEXT 256 16 "Evalu
ate it now." }}{PARA 0 "" 0 "" {TEXT -1 1 "\n" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 440 "InitialValue := 100:\n  Fcn := \n     proc(p)\n
        if p < 500 then (1.5 * p/500) * p else (2.0 - p/1000) * p\n   \+
     fi\n     end:\n\n  plot('Fcn(p)', p = 0..2000);\n\n  pop :=\n    \+
 proc(n)\n        if n = 1 then InitialValue else Fcn(pop(n-1)) \n    \+
    fi \n     end:\n \n for k from 1 to 10 \n      do printf(`%4d %10.
4f`, k, pop(k));\n      print();\n      od;\n\n plot([seq([n, pop(n)],
 n = 1 .. 10)], \n        year = 1 .. 10, title = `Population`);" }}}
{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 79 "No
w you can use these Maple tools to answer the questions posed in this \+
module." }}}}{MARK "0 0 0" 31 }{VIEWOPTS 1 1 0 1 1 1803 }