{VERSION 2 3 "IBM INTEL NT" "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 "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 
0 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 }
{CSTYLE "" -1 256 "Courier" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }{PSTYLE "No
rmal" -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 "Maple Output" 0 11 1 {CSTYLE "" 
-1 -1 "" 0 1 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 }{PSTYLE "" 11 12 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 
0 }1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "read(`a:aplusb.txt`)
;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'aplusbG:6%'%\"aG%(integerG'%\"
bGF)'%\"cG%&evalnG6\"F/F/>9&,&9$\"\"\"9%F4F/F/" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 11 "a:=3; b:=5;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6
#>%\"aG\"\"$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"bG\"\"&" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "aplusb(a,b,c);" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#\"\")" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
5 "?type" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "read(`a:realran
.txt`);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%)real_ranG:6$'%\"aG%(nume
ricG'%\"bGF)6#%\"xG6\"F.C$>8$-%%randGF.-%&evalfG6#,&9$\"\"\"*&,&9%F9F8
!\"\"F9F1F9#F9\"-************F.F." }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 19 "r:=real_ran(2,5.5);" }}{PARA 11 "" 1 "" {XPPMATH 20 "
6#>%\"rG$\"+N=M4H!\"*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "re
ad(`a:intran.txt`);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%(int_ranG:6$'
%\"mG%(integerG'%\"nGF)6\"F,F,-%&roundG6#-%&evalfG6#,(9$\"\"\"$!\"&!\"
\"F5*&,(9%F5F4F8F5F5F5-%%randGF,F5#F5\"-************F,F," }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "m:=3; n:=200;" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%\"mG\"\"$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"nG\"
$+#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "int_ran(m,n);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#\"#k" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 13 "int_ran(m,n);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"$g
\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "int_ran(m,n);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#\"#5" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 19 "read(`a:dice.txt`);" }}{PARA 12 "" 1 "" {XPPMATH 20 "
6#>%%diceG:6#'%\"nG%(integerG6'%#d1G%#d2G%\"iG%&countG%\"pG6\"F0C%>8'
\"\"!?(8&\"\"\"F79$%%trueGC%>8$-%(int_ranG6$F7\"\"'>8%F=@$3/F<F@/FBF@>
F3,&F3F7F7F7>8(*&F3F7F8!\"\"F0F0" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%
(int_ranG:6$'%\"mG%(integerG'%\"nGF)6\"F,F,-%&roundG6#-%&evalfG6#,(9$
\"\"\"$!\"&!\"\"F5*&,(9%F5F4F8F5F5F5-%%randGF,F5#F5\"-************F,F,
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "dice(3000);" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6##\"\"\"\"#S" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 14 "evalf(27/500);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"
+++++a!#6" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "evalf(1/36);" 
}}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+yxxxF!#6" }}}{EXCHG {PARA 0 "" 
0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 2 "\n\n" }{TEXT 256 634 
"balls:=proc(n::integer\n              )\n   local i, count, ball, dra
w, p;\n\n   ball:=array(1..14);\n   for i to 5 do\n      ball[i]:=`blu
e`;\n   od;\n   for i from 6 to 14 do\n      ball[i]:=`red`;\n   od;\n
\n   count:=0;\n   for i from 1 to n do\n\n      # simulation\n      d
raw:=int_ran(1,14);\n\n      # checking and counting\n      if ball[dr
aw] = `red` then\n         count:=count+1;\n      fi;\n\n   od;\n\n   \+
p:= evalf( count/n );\n\nend;\n\n#\n# function that generates a random
 integer between m and n, inclusive\n#\nint_ran:=proc(\n              \+
m::integer,\n              n::integer\n             )\n   round(evalf(
m-0.5+(n-m+1)*rand()/999999999999))\nend;\n" }}{PARA 0 "" 0 "" {TEXT 
-1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "read(`a:14balls.t
xt`);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%&ballsG:6#'%\"nG%(integerG6
'%\"iG%&countG%%ballG%%drawG%\"pG6\"F0C(>8&-%&arrayG6#;\"\"\"\"#9?(8$F
8F8\"\"&%%trueG>&F36#F;%%blueG?(F;\"\"'F8F9F=>F?%$redG>8%\"\"!?(F;F8F8
9$F=C$>8'-%(int_ranG6$F8F9@$/&F36#FMFE>FG,&FGF8F8F8>8(-%&evalfG6#*&FGF
8FJ!\"\"F0F0" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%(int_ranG:6$'%\"mG%(
integerG'%\"nGF)6\"F,F,-%&roundG6#-%&evalfG6#,(9$\"\"\"$!\"&!\"\"F5*&,
(9%F5F4F8F5F5F5-%%randGF,F5#F5\"-************F,F," }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 12 "balls(1000);" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#$\"++++5k!#5" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "9.0/14
;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+H9dGk!#5" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "15 1 1" 97 }{VIEWOPTS 1 1 0 1 1 
1803 }