23 lines
527 B
Plaintext
23 lines
527 B
Plaintext
# Project : Probabilistic choice
|
|
|
|
cnt = list(8)
|
|
item = ["aleph","beth","gimel","daleth","he","waw","zayin","heth"]
|
|
prob = [1/5.0, 1/6.0, 1/7.0, 1/8.0, 1/9.0, 1/10.0, 1/11.0, 1759/27720]
|
|
|
|
for trial = 1 to 1000000
|
|
r = random(10)/10
|
|
p = 0
|
|
for i = 1 to len(prob)
|
|
p = p + prob[i]
|
|
if r < p
|
|
cnt[i] = cnt[i] + 1
|
|
loop
|
|
ok
|
|
next
|
|
next
|
|
|
|
see "item actual theoretical" + nl
|
|
for i = 1 to len(item)
|
|
see "" + item[i] + " " + cnt[i]/1000000 + " " + prob[i] + nl
|
|
next
|