Sub サイコロの平均()Dim n As IntegerDim m As IntegerDim X_n As DoubleDim E As DoubleDim Ex() As DoubleDim i As IntegerDim j As IntegerDim p As SingleDim a As Double Worksheets("sheet5").Activate n = 1000m = 2000 ReDim Ex(1 To n, m + 1) Ex(…

Sub 二項分布()Dim n As IntegerDim X_n As DoubleDim X_bar() As DoubleDim i As IntegerDim j As IntegerDim p As SingleDim a As Double p = 0.2 '確率a = 999 ReDim X_bar(a) For n = 1 To 1000 'ここでは試行回数そのものを変える X_n = 0 'いったんリ…

Sub 標準正規分布()Dim x As DoubleDim y As DoubleDim u As DoubleDim v As DoubleDim i As IntegerDim a(999) As DoubleDim b(999) As Double For i = 1 To 1000 u = Rnd v = Rnd x = (-2 * Log(u)) ^ (1 / 2) * Sin(2 * 4 * Atn(1) * v) y = (-2 * Log(u)…

Function dice() As Integerdice = Int(Rnd * 6 + 1)End Function