« たけしのコマネチ大学数学科 第4回 - 折り紙 | トップページ | のだめ効果で急上昇!クラシック »

2006年11月11日 (土)

モンテカルロ法の問題 シミュレーション

たけしのコマネチ大学数学科 第2回 - モンテカルロ法
放送直後に作ったVBAでのシミュレーションプログラムを発掘したのでUPします。
10万回のシミュレーションです。


Sub ボタン2_Click()
  Dim i, j As Single
  Dim CNT As Long
  Dim Get_CNT As Long
  Dim TimerZERO As Single
  Dim CompTime As String
  Dim StrDUMMY As String
  Get_CNT = 0
  TimerZERO = Timer
  For CNT = 1 To 100000
    i = Rnd * 9     '水着
    j = Rnd * 9     'カメラ
    If j >= i - 1 And j <= i + 1 Then
      Get_CNT = Get_CNT + 1
    End If
  Next
  CompTime = Timer - TimerZERO
  StrDUMMY = ""
  StrDUMMY = StrDUMMY & " 計算時間 : " & CompTime & "秒" & vbCrLf
  StrDUMMY = StrDUMMY & " 水着ゲット : " & Get_CNT & "/100000" & vbCrLf
  StrDUMMY = StrDUMMY & " 水着ゲット : " & Get_CNT / (100000 / 81) & "/81" & vbCrLf
  Debug.Print StrDUMMY
  MsgBox StrDUMMY
End Sub

結果
 計算時間 : 0.1990625秒
 水着ゲット : 21203/100000
 水着ゲット : 17.17443/81

|

« たけしのコマネチ大学数学科 第4回 - 折り紙 | トップページ | のだめ効果で急上昇!クラシック »

たけしのコマネチ大学数学科」カテゴリの記事

学問・資格」カテゴリの記事

映画・テレビ」カテゴリの記事

コメント

コメントを書く



(ウェブ上には掲載しません)


コメントは記事投稿者が公開するまで表示されません。



トラックバック

この記事のトラックバックURL:
http://app.cocolog-nifty.com/t/trackback/90919/12648379

この記事へのトラックバック一覧です: モンテカルロ法の問題 シミュレーション:

» モンテカルロという名のラスベガスホテル [海外ホテル激安予約情報と独断ホテル批評]
ブログ管理人の勝手なホテル批評です。良いところも悪いところもできるだけ正直に書いております。一度お立ち寄りください。 [続きを読む]

受信: 2006年12月 9日 (土) 01:06

« たけしのコマネチ大学数学科 第4回 - 折り紙 | トップページ | のだめ効果で急上昇!クラシック »