エクセルのマクロわかるヤツ教えて下しあ

エクセルのマクロわかるヤツ教えて下しあ at SIM

1:名無しさん＠５周年
07/07/26 16:15:57
モンテカルロ法で球の体積を求めるプログラムを作らなきゃないんだけど、だれか頼む…
とりあえず、円周率を求めるヤツはこうなってる。
Sub montecario()
'monte cario simukation
n = 0
hit = 0
For i = 1 To 50
For j = 1 To 100
fx = Rnd(): fy = Rnd()
z = fx ^ 2 + fy ^ 2
If z <= 1 Then
hit = hit + 1
Else
GoTo label
End If
label:
Next j
n = n + 100
p = hit / n
Cells(i, 2) = p * 4
Cells(i, 1) = n
Next i
End Sub

レスを読む