{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 }
{CSTYLE "" -1 257 "" 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 18 "Sequences -- Chaos" }}
{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 44 "The cell \+
below examines the dynamical system" }}{PARA 0 "" 0 "" {TEXT -1 2 "\n
\n" }{TEXT 256 52 "p(1) = 50\np(n + 1) = 4.0 * (1 - 0.001 * p(n)) * p(
n)" }}{PARA 0 "" 0 "" {TEXT -1 207 "\n\nand counts how many of the fir
st 1,000 terms in the sequence fall between 0 and 500.  If the sequenc
e is truly \"random\" or \"chaotic\" we would expect roughly one-half \+
of the terms to be between 0 and 500.  " }{TEXT 257 27 "Evaluate the n
ext cell now." }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 138 "p := 50:\ncount := 0:\nfor i from 1 to 1000 do
\n   if p < 500 then count := count + 1 fi:\n   p := 4 * (1 - 0.001 * \+
p) * p:\nod:\nprint(count); " }}}}{MARK "1 0 0" 124 }{VIEWOPTS 1 1 0 
1 1 1803 }