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

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

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

No.1 回答者： hallo-2007 回答日時： 2008/11/12 18:20

これってエクセルでグラフ作りなさいとう問題なのですか？

取り合えず
A1に　=RAND()　右へ10個コピィ（J1までコピィ）
K1に　=COUNTIF(A1:J1,"<0.5")
A1～K1を５０００行までコピィ
K列を選択してグラフを作成して答えにしてもらえないでしょうか。

この回答へのお礼

ありがとうございました。わかりました。

お礼日時：2008/11/16 20:22

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列データで折れ線グラフを描かせると、
離散値なのでスムーズでないが、やや釣鐘型の折れ線グラフになった。
こういうことでよいのかな。自信は十分ではないが。

この回答へのお礼

ありがとうございました。わかりました。

お礼日時：2008/11/16 20:21