Wolfram mathematica 在Mathematica中计算每套磁头的数量

首先，谢谢你的回复。我正在尽力跟上所有的建议。然而，我正在努力保持正轨

所以现在我有了

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

接下来，我想计算每个“I”出现的“头”的数量

我可以为一个案例做这个……比如说5

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

但是我在扩展这个方面有困难

再次感谢

p、 什么是反对票？太简单了？

映射（

/@

）在列表中计算头的功能：

Count[#, Heads]&

到

s

中的每个子列表。因此：

Count[#, Heads]& /@ s

映射（

/@

）在列表中计算人头数的功能：

Count[#, Heads]&

到

s

中的每个子列表。因此：

Count[#, Heads]& /@ s

---

如果你在做硬币抛投的模拟，我相信

BinomialDistribution

就是你想要的

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

---

顺便说一下，符号

Heads

是一个内置函数，可能不应该按您使用它的方式使用。

如果您正在模拟硬币投掷，我相信

BinomialDistribution

就是您想要的

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

---

顺便说一下，符号

Heads

是一个内置函数，可能不应该像您使用它那样使用它。

向下投票？没有反对票，反对票？没有反对票。它是基于蒙特卡洛讲座。@Corshot啊，这解释了一些事情。它是基于蒙特卡洛讲座。@Corshot啊，这解释了一些事情。