{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 255 0 0 1 0 1 0 0 0 0 0 0 0 }
{CSTYLE "" -1 257 "" 0 1 255 0 0 1 0 1 0 0 0 0 0 0 0 }{CSTYLE "" -1 
258 "" 0 1 255 0 0 1 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 "Age Dependent Population
 Models" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 
85 "The cell below shows how Maple can be used to study the first mode
l in this module.  " }{TEXT 256 15 "Evaluate it now" }{TEXT -1 1 "." }
}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 799 "age1 := proc(n) option remember;\n          if n = 1 then 150 e
lse \n             0.50 * age1(n - 1) + 1.50 * age2(n - 1) +\n        \+
     1.50 * age3(n - 1) + 1.00 * age4(n - 1) +\n             0.50 * ag
e5(n - 1)\n          fi\n         end:\n\nage2 := proc(n) option remem
ber;\n          if n = 1 then 145 else 0.80 * age1(n - 1) fi\n        \+
end:\n\nage3 := proc(n) option remember;\n          if n = 1 then 140 \+
else 0.95 * age2(n - 1) fi\n        end:\n\nage4 := proc(n) option rem
ember;\n          if n = 1 then 125 else 0.85 * age3(n - 1) fi\n      \+
  end:\n\nage5 := proc(n) option remember;\n          if n = 1 then 10
0 else 0.65 * age4(n - 1) fi\n        end:\n\nfor k from 1 to 20\n    \+
do printf(`%12.2f %12.2f %12.2f %12.2f %12.2f`,\n              age1(k)
, age2(k), age3(k), age4(k), age5(k));\n       print();\n    od;" }}}
{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 115 "I
t is worthwhile to keep track of the total population each year and of
 the percentage in each age group each year." }}{PARA 0 "" 0 "" {TEXT 
-1 36 "The following cell does just that.  " }{TEXT 257 15 "Evaluate i
t now" }{TEXT -1 1 "." }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 416 "total := n -> age1(n) + age2(n) + \+
age3(n) + age4(n) + age5(n):\n\npct1 := n -> 100 * age1(n)/total(n):\n
pct2 := n -> 100 * age2(n)/total(n):\npct3 := n -> 100 * age3(n)/total
(n):\npct4 := n -> 100 * age4(n)/total(n):\npct5 := n -> 100 * age5(n)
/total(n):\n\nfor k from 1 to 20\n    do printf(`%12.2f %6.2f %6.2f %6
.2f %6.2f %6.2f`,\n              total(k), pct1(k), pct2(k), pct3(k), \+
pct4(k), pct5(k));\n       print();\n    od;" }}}{EXCHG {PARA 0 "" 0 "
" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 166 "It is also worthwhile \+
looking at the ratio for each year of that year's total population to \+
the total popluation the preceding year.  The following cell tells tha
t.  " }{TEXT 258 15 "Evaluate it now" }{TEXT -1 1 "." }}{PARA 0 "" 0 "
" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 113 "ratio :=
 n -> total(n+1)/total(n):\n \nfor k from 1 to 20\n    do printf(`%8.2
f`, ratio(k));\n       print();\n    od;" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 0 "" }}}}{MARK "0 0 0" 31 }{VIEWOPTS 1 1 0 1 1 1803 }