{VERSION 6 0 "IBM INTEL NT" "6.0" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 1 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 
0 0 1 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 1 }
{CSTYLE "" -1 256 "Courier" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }{CSTYLE "
" -1 257 "Courier" 1 9 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 258 
"Courier" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 259 "Courier
" 1 9 0 0 0 0 0 0 0 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 0 -1 -1 -1 0 0 0 0 0 0 
-1 0 }{PSTYLE "Maple Output" 0 11 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 
0 0 0 0 0 0 0 0 0 }3 3 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "
" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }{TEXT 256 0 "" }
{TEXT 257 587 "poll9 := proc(  n :: integer  # number of trials\n     \+
                        )\n   local p, k, j, count, r;\n\n   count := \+
0;  # initialize the counter\n   for k from 1 to n do\n\n      # simul
ation\n      p := LinearAlgebra[RandomVector](9,generator=1..1000);\n
\n      # checking/counting\n      r := 0;  # initialize the number of
 republicans\n      for j from 1 to 9 do\n         if p[j] > 450 then
\n            r := r + 1;     # count a republican\n         end if;\n
      end do;\n\n      if r >= 5 then\n         count := count + 1;\n \+
     end if;\n\n   end do;\n\n   return evalf( count/n );\n\nend proc;
" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 25 "read(\"f:/340/poll9.txt\"):" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 19 "p := poll9(100000);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%\"pG$\"+++?$>'!#5" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 
-1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 27 "The poll is about 64% right" }}
{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 
0 "" 0 "" {TEXT -1 76 "-----------------------------------------------
-----------------------------" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}
{PARA 0 "" 0 "" {TEXT -1 56 "We can change the size of the poll from 9
 to an input m:" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" 
{TEXT -1 0 "" }{TEXT 258 0 "" }{TEXT 259 644 "pollm := proc(  n :: int
eger,  # number of trials\n                m :: integer   # the size o
f the poll\n                             )\n   local p, k, j, count, r
;\n\n   count := 0;  # initialize the counter\n   for k from 1 to n do
\n\n      # simulation\n      p := LinearAlgebra[RandomVector](m,gener
ator=1..1000);\n\n      # checking/counting\n      r := 0;  # initiali
ze the number of republicans\n      for j from 1 to m do\n         if \+
p[j] > 450 then\n            r := r + 1;     # count a republican\n   \+
      end if;\n      end do;\n\n      if r > m/2  then\n         count
 := count + 1;\n      end if;\n\n   end do;\n\n   return evalf( count/
n );\n\nend proc;" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 25 "read(\"f:/340/pollm.txt\"):" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "p2 := pollm(10000,99);" }}{PARA 11 
"" 1 "" {XPPMATH 20 "6#>%#p2G$\"++++(Q)!#5" }}}{EXCHG {PARA 0 "" 0 "" 
{TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 59 "The poll will have approx
imately 84% chance of being right." }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "4 5 0" 0 }
{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }