計算Mathematica中每套的頭數

Question

首先，感謝您的所有迴應。我正在盡全力跟上所有的建議。不過，我試圖保持正軌。

所以現在我有

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

接下來，我要計算每個「我」出現的「元首」的數量。

我可以爲一個情況下做到這一點....說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是一個內置的功能，應該不會被你所採用的方式。