エクセルvbaの円周率 削除
| Message#1 2014年12月26日(金)09時37分 From: 後ろ指 |
| エクセルVBAのマクロについてです。 円周率を球の体積を用いてモンテカルロ法によって求めるプログラムを教えていただきたいです。 ヒントとして、球の体積ではなく、円の面積から求めるプログラムは教えてもらったのですが、 無知なものでさっぱりわかりませんでした。 ご教授願いたく質問させていただきました。 以下に書きますのがヒントのものです。 Sub 円周率() Dim xx As Double Dim yy As Double Dim rr As Double Dim nn As Long Dim ii As Long Dim nmax As Long Dim ens As Double nmax = InputBox("最大試行回数") MsgBox ("saidai" & nmax) ii = 0 For nn = 1 To nmax xx = Rnd(1) yy = Rnd(2) rr = xx * xx + yy * yy If Sqr(rr) <= 1# Then ii = ii + 1 Else: ii = ii End If Next nn MsgBox ("current ii" & ii) MsgBox ("nmax" & nmax) ens = 4# * CDbl(ii) / CDbl(nmax) MsgBox ("円周率" & ens) End Sub 何卒よろしくお願いいたします。 補足 ヒントのプログラムの内容を少しいじって体積から円周率を求めよ、とのことでした。 言葉足らずで申し訳ございません。 |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。
