Question

是否有可能使用概率函数或NProbability函数计算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]

任何想法都将不胜感激。

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.}
*)

Answer 2

In[10]:= Probability[a + b + c + d >= 3, vars]

Out[10]= 0.3125

使用BinomialDistribution更容易描述硬币翻转：

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

Out[12]= 0.3125

使用NProbability []或Probability []来计算4次投掷掷骰中3个或更多头的概率

2 个答案: