tasks a-s

Task/Probabilistic-choice/HicEst/probabilistic-choice.hicest

@@ -0,0 +1,17 @@
+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)