コイン投げのシミュレーション

締切済

質問者：JZ302
質問日時：2008/11/12 17:37
回答数：2件

コインを10回投げたときに表が出る回数のシミュレーションをして、この再計算を5000回行ったときの表の出る回数をグラフ化するという問題なのですが、エクセルでどのような手順でやればよいのかわかりません。

10回投げたときの最初の表はできたのですが、「再計算を5000回やる」というのはどのようにやればいいのでしょうか。「再計算」ってそもそもどういうふうにやるのでしょうか。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (2件)

最新から表示
回答順に表示

No.2

回答者： imogasi
回答日時：2008/11/12 21:20

こういうのはがっこうの課題でしょう。

がっこうの宿題の回答をこのコーナーで求めるのは、このコーナーの規約違反の恐れがある。
ーー
詳しくない分野だが、「再計算を５０００回」とあるので、計算機で計算する円周などなのだろう。
＞10回投げたときの最初の表はできたのですが
コンピュターでやりましたか？
私のやってみたのは（実行時間は少しかかるので覚悟）
ub test01()
Application.ScreenUpdating = False
Dim d(11) '１の出た回数の頻度表
For k = 1 To 5000
For i = 1 To 10
If Int((Rnd * 2) + 1) = 1 Then n1 = n1 + 1 '1か2の乱数を出す
Next i
Cells(k, "A") = n1
Cells(k, "B") = 10 - n1
d(n1) = d(n1) + 1
n1 = 0
Next k
'---シートセルへ表示
For i = 0 To 10
Cells(i + 1, "C") = d(i)
Next i
Application.ScreenUpdating = True
End Sub
ｄ()は、１０回の試行で、１が０－９回出た頻度の表の代わりです。
1と２の乱数を出して、１０回のうちの１の回数で
私の場合は
C列　C1:C11
50　１０回試行のうち１が０回ー＞５回
391
2192
6213
10344
12255
9886
5737
2198
709
710
これでC列データで折れ線グラフを描かせると、
離散値なのでスムーズでないが、やや釣鐘型の折れ線グラフになった。
こういうことでよいのかな。自信は十分ではないが。