wolfram-mathematica - 使用Probability []或Probability []从4次抛硬币中计算出3个或更多正面的可能性

Question

是否有可能使用概率或NProbability函数从4次抛硬币中计算出3个或更多Head的概率。

这不是关于这个问题的简单答案的问题，更多的是要了解如何使用分布使用Mathematica解决此类问题。

因此，使用分布P中的4个随机变量

我希望这样的方法可以解决问题，但它不起作用。我得到0。

P = BernoulliDistribution[0.5];
vars = List[Distributed[a,P],Distributed[b,P],Distributed[c,P],Distributed[c,P]];
NProbability[Count[ {a,b,c,d}, 1] >= 3,  vars]

任何想法将不胜感激。

Answer 1

这里不是使用Mma进行统计的专家，但这似乎可行:

l = TransformedDistribution[
       x + y + w + z, {x \[Distributed] BernoulliDistribution[0.5], 
                       y \[Distributed] BernoulliDistribution[0.5], 
                       z \[Distributed] BernoulliDistribution[0.5], 
                       w \[Distributed] BernoulliDistribution[0.5]}];

Table[NProbability[x > i, x \[Distributed] l], {i, -1, 4}]
(*
{1, 0.9375, 0.6875, 0.3125, 0.0625, 0.}
*)