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

質問

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

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

回答No.2

imogasi

こういうのはがっこうの課題でしょう。
がっこうの宿題の回答をこのコーナーで求めるのは、このコーナーの規約違反の恐れがある。
ーー
詳しくない分野だが、「再計算を５０００回」とあるので、計算機で計算する円周などなのだろう。
＞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
5 0　１０回試行のうち１が０回ー＞５回
39 1
219 2
621 3
1034 4
1225 5
988 6
573 7
219 8
70 9
7 10
これでC列データで折れ線グラフを描かせると、
離散値なのでスムーズでないが、やや釣鐘型の折れ線グラフになった。
こういうことでよいのかな。自信は十分ではないが。

お礼

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

回答No.1

hallo-2007

これってエクセルでグラフ作りなさいとう問題なのですか？
取り合えず
A1に　=RAND()　右へ10個コピィ（J1までコピィ）
K1に　=COUNTIF(A1:J1,"<0.5")
A1～K1を５０００行までコピィ
K列を選択してグラフを作成して答えにしてもらえないでしょうか。

お礼

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