Tag: 概率论

蒙特卡洛模拟抛硬币得到一定的模式

受到这篇文章的启发： 投币模式的统计 ，我已经进行了一个蒙特卡罗模拟，以确定抛硬币的预期数量，通过使用Excel VBA获得某种模式。 下面的代码是蒙特卡罗模拟抛硬币得到模式HTH，其中H是头（1）和T是尾（0）。 Sub Tossing_Coin() Dim Toss(1000000) As Double, NToss(1000000) As Double, AVToss(1000000) As Double t0 = Timer Sheet2.Cells.Clear a = 0 For j = 1 To 1000000 p1 = Rnd() If p1 <= 0.5 Then Toss(1) = 1 Else Toss(1) = 0 End If p2 = Rnd() If p2 <= 0.5 Then […]