计算Mathematica中每组的头数

Question

首先，感谢您的所有回应。我正在尽力跟上所有的建议。但是我正试图保持正轨。

所以现在我有了

s = Table[RandomChoice[{Heads, Tails}, 2 i + 1], {i, 10}];

接下来，我想计算每个“i”发生的“头部”的数量。

我可以为一个案例做这个......说5，

n = RandomChoice[{Heads, Tails}, 5];
n1 = Count[n, Heads];

但是我无法扩展这个......

再次感谢。

P.S。什么是投票？太容易了？

Answer 1

映射（/@）计算列表中头部的功能：

Count[#, Heads]&

到s中的每个子列表。因此：

Count[#, Heads]& /@ s

Answer 2

如果您正在模拟硬币翻转，我相信BinomialDistribution就是您想要的。

Histogram[
  Count[#, "Heads"] & /@
    Table[RandomChoice[{"Heads", "Tails"}, 9], {25000}]
]

BarChart@Table[PDF[BinomialDistribution[9, 1/2], k], {k, 0, 9}]

顺便说一下，符号Heads是一个内置函数，可能不会像你使用它那样使用。