What are the chances: at least once, expected count, the tail

工作流 5 步，在同一个会话中按顺序运行。每一步都在引擎上执行过，下面的输出就是它实际产生的。

第 1 步

atLeastOnce[p_, n_] := 1 - (1 - p)^n

无输出——这一步是在为下一步做准备。

第 2 步

N[atLeastOnce[1/100, 50]]

输出

0.3949939328624633

第 3 步

expectedHits = 50 (1/100)

输出

1/2

第 4 步

atLeastTwice = N[1 - (1 - 1/100)^50 - 50 (1/100) (1 - 1/100)^49]

输出

0.08943531309603069

第 5 步

Plot[atLeastOnce[1/100, n], {n, 0, 300}]

输出

-Graphics-

用到的函数