作者idaidai (^^)
看板Visual_Basic
標題[VBA ] 重複模擬1000次
時間Fri Nov 28 10:54:04 2008
想請問各位好手
我要做蒙地卡羅模擬 需重複一千次
我需要的過程寫好如下
Sub macro1()
Sheets(Array("sheet1")).Select
With ActiveSheet
Randomize
Dim H, E As Double
For j = 1 To 10000
If Cells(j + 1, 5) < 0 Then
Cells(j + 1, 4).Value = 1
Else
Cells(j + 1, 4).Value = 0
End If
H = 2 * Exp(-7) + 0.03 * Cells(j + 1, 5).Value ^ 2
+ 0.9 * Cells(j + 1, 3).Value
+ 0.02 * Cells(j + 1, 4).Value * Cells(j + 1, 5).Value ^ 2
Cells(j + 2, 3).Value = H
Cells(j + 2, 5).Value = E
E = Application.TInv(Rnd, 6) * Sqr(Cells(j + 2, 3).Value)
Next j
想請問要怎麼寫一個迴圈讓上面的程式重複跑1000次
因為我才剛學VBA一個月 可能問的有點笨 很不好意思
先感激各位的幫忙
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 123.240.240.137
1F：→ MOONRAKER:再用一個for i=1 to 1000包起來就是了 11/28 11:19
2F：→ idaidai:不好意思 忘記說我要重複跑1000次後 取E這一千次的平均 11/28 11:42
3F：→ idaidai:如果我再用 i=1 to 1000包起來 好像就沒有取到平均值了 11/28 11:44
4F：→ disc1002:平均就是加起來在除以加多少 那就是E=(E+???)/次數 11/28 12:17
5F：→ timmy5519:for i = 1 to n : E=E+1 : next i : E =E/n ??? 11/28 13:02