{VERSION 5 0 "IBM INTEL NT" "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 }{PSTYLE "Heading
 1" 0 3 1 {CSTYLE "" -1 -1 "" 1 18 0 0 0 0 0 1 0 0 0 0 0 0 0 1 }1 0 0 
0 8 4 0 0 0 0 0 0 -1 0 }}
{SECT 0 {SECT 0 {PARA 3 "" 0 "" {TEXT -1 0 "" }}{EXCHG {PARA 0 "> " 0 
"" {MPLTEXT 1 0 12 "with(stats):" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 101 "# By changing the seed value, you can get different \+
simulations\n# Try seed:=6 for example\nseed:=200: " }{MPLTEXT 1 0 32 
"u:=stats[random, uniform](9999):" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 112 "t[0]:=0:\nfor i from 1 by 1 while i < 10000 do \n   \+
x[i]:=i: \n   y[i]:=2*round(u[i])-1:\n   t[i]:=t[i-1]+y[i]:\nod:\n" }}
}}{PARA 3 "" 0 "" {TEXT -1 0 "" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 12 "with(plots):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "listp
lot([seq([i,t[i]],i=0..9999)] );\n" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 82 "# There probably is a more efficient way to simulate \+
this - I'm not a MAPLE expert" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 0 "" }}}}{MARK "0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }
{PAGENUMBERS 0 1 2 33 1 1 }