模特卡洛模拟课后题的算法和程序.docVIP

1 关于10层楼各放一个苹果的问题。记住前三层苹果的大小，从第四层开始只要苹果比前三层最大的还大，那么选择这个。运行1000次概率大致为38%-39%。 算法： 1 生成1到10的随机数，并且各出现一次，并写入excel表格第一列； 2 计算前三个随机数最大的，该值就是前三层最大的苹果maxapple； 3 从第4层楼到第10层楼做循环，只要比maxapple大，那么就是我选择的苹果myapple，并且跳出循环； 4 如果从第4层到第10层没有比maxapple大的，那么myapple的值就是第10层苹果的值。 5 将过程1,2,3,4组成程序a，运行1000遍进行模拟，每次只要myapple的值为10，那么变量s就累加一次，最后输出s/1000，即是最后的模拟结果。 vba程序： Dim myapple As Integer Sub a Dim count 100 , a 100 , maxapple As Integer i 1 Do While i 10 j Int 10 - 1 + 1 * Rnd + 1 count j count j + 1 记录随机数出现的次数，如果次数超过2，那么继续生成随机数 If count j 2 Then a i j Cells i, 1 a i i i + 1 End If Loop myapple 0 maxapple Application.WorksheetFunction.Max Range a1:a3 For i 4 To 10 If a i maxapple Then myapple a i Exit For 退出整个循环 End If Next 如果从a 4 到a 10 都没有比maxapple大的，那么myapple的值为a 10 If myapple 0 Then myapple a 10 End If End Sub ‘将上面的程序循环1000次，给出比率 Sub b s 0 For i 1 To 1000 a If myapple 10 Then s s + 1 End If Next MsgBox s / 1000 End Sub 编程感想： （1）如果一个变量所有过程都要用，那么该变量必须设置为全局变量； 如果一个变量只有一个过程使用，那么一定不能设置成全局变量。血的教训啊 ：。。。。。 （2）使用一个变量之前，如果可能，一定给这个变量赋一个初值，一般是零。 2 书上137页第6题 算法： 步骤1 初始化：定义公共变量：数组sum1,sum2,sum3用来保存三个人的结果，用max保存最大的结果； 步骤2 开始模拟一次游戏：具体算法见课上老师所讲的内容； 步骤3 一次游戏模拟过后，程序做循环，模拟10000次游戏，计算第一个人胜利的比率，大概为34% Dim count As Integer Sub d sum1 0 sum2 0 sum3 0 第一个人开始转轮盘 a11 Int 20 - 1 + 1 * Rnd + 1 sum1 sum1 + a11 If sum1 16 Then sum1 sum1 + Int 20 - 1 + 1 * Rnd + 1 If sum1 20 Then sum1 0 End If End If 第二个人开始转轮盘了 a21 Int 20 - 1 + 1 * Rnd + 1 sum2 sum2 + a21 If sum2 sum1 Or sum2 17 Then sum2 sum2 + Int 20 - 1 + 1 * Rnd + 1 If sum2 20 Then sum2 0 End If End If If sum1 sum2 Then max sum1 Else max sum2 End If 第三个人开始转轮盘了 a31 Int 20 - 1 + 1 * Rnd + 1 sum3 sum3 + a31 If sum3 max Then sum3 sum3 + Int 20 - 1 + 1 * Rnd + 1 If sum3 20 Then sum3 0 End If End If If sum1 sum2 And sum1 sum3 Then count count + 1 End If End Sub 将上面的程序循环10000次，给出比率 Sub e For i 1 To 40000 d Next MsgBox