17 lines
373 B
Text
17 lines
373 B
Text
REAL :: trials=1E6, n=8, map(n), limit(n), expected(n), outcome(n)
|
|
|
|
expected = 1 / ($ + 4)
|
|
expected(n) = 1 - SUM(expected) + expected(n)
|
|
|
|
map = expected
|
|
map = map($) + map($-1)
|
|
|
|
DO i = 1, trials
|
|
random = RAN(1)
|
|
limit = random > map
|
|
item = INDEX(limit, 0)
|
|
outcome(item) = outcome(item) + 1
|
|
ENDDO
|
|
outcome = outcome / trials
|
|
|
|
DLG(Text=expected, Text=outcome, Y=0)
|