Wolfram mathematica 使用NProbability[]或Probability[]计算4次抛硬币中3个或更多人头的概率

使用概率或非概率函数，可以计算出4次抛硬币中3个或更多人头的概率

这不是一个关于这个问题的简单答案的问题，更重要的是理解如何用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]

---

任何想法都将不胜感激

这里不是使用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.}
*)

用二元分布更容易描述抛硬币：

In[12]:= Probability[m >= 3, m \[Distributed] BinomialDistribution[4, 0.5]]

Out[12]= 0.3125

---

哇！非常感谢！完美地解释了这一点：）在mma技术会议上，现在与莱昂尼德。我们没有太多时间做其他事情。@Sjoerd会议？有没有啤酒？昨天我们举行了一次社交活动，在那里我们可以品尝当地啤酒厂的产品。莱昂尼德让我们错过了最后一班车，但丹尼尔很好心让我们安全返回。当然，我们谈了很多关于你和巫师先生的事。你被错过了。有两个错误：c声明了两次，d从不，用计数代替总数。也许@Sjoerd太客气了。在他的修改之后，OP的代码工作了！的确如此。双重声明是站点的复制粘贴错误。使用总计而不是计数就成功了。非常感谢，伙计们。是的，那更干净了。我注意到belisarius建议的转换分布被评估为二元分布。谢谢：）@Bart我以为你是故意这么做的，因为你想知道如何添加随机变量！哈我真傻。@belisarius我想知道如何添加随机变量，而不仅仅是这个yoy抛硬币的问题。因此，在这个特殊的例子中，它被评估为一个二项式列表只是一个有趣的点。你提供的是我真正想要的，对如何进行这类计算的一般理解。所以你是正确的！：）

In[12]:= Probability[m >= 3, m \[Distributed] BinomialDistribution[4, 0.5]]

Out[12]= 0.3125