5 y <- rnorm(100000, 0, 0. 5 for(i in 1:length(x)){ sahen[i] <- x[i]^2 + y[i]^2 # 左辺値の算出 return(myCount)} と、ただ関数化しただけに過ぎません。コピペです。 これを、例えば10回やりますと… > for(i in 1:10) print(myPaiFunc() * 4 / 100000) [1] 3. 13628 [1] 3. 15008 [1] 3. 14324 [1] 3. 12944 [1] 3. 14888 [1] 3. 13476 [1] 3. 14156 [1] 3. 14692 [1] 3. モンテカルロ法による円周率の計算 | 共通教科情報科「情報Ⅰ」「情報Ⅱ」に向けた研修資料 | あんこエデュケーション. 14652 [1] 3. 1384 さて、100回ループさせてベクトルに放り込んで平均値出しますか。 myPaiVec <- c() for(i in 1:100) myPaiVec[i] <- myPaiFunc() * 4 / 100000 mean(myPaiVec) で、結果は… > mean(myPaiVec) [1] 3. 141426 うーん、イマイチですね…。 あ。 アルゴリズムがタコだった(やっぱり…)。 の、 if(sahen[i] < 0. 25) myCount <- myCount + 1 # 判定とカウント ここです。 これだと、円周上の点は弾かれてしまいます。ですので、 if(sahen[i] <= 0. 25) myCount <- myCount + 1 # 判定とカウント と直します。 [1] 3. 141119 また誤差が大きくなってしまった…。 …あんまり関係ありませんでしたね…。 といっても、誤差値 |3. 141593 - 3. 141119| = 0. 000474 と、かなり小さい(と思いたい…)ので、まあこんなものとしましょう。 当然ですけど、ここまでに書いたコードは、実行するたび計算結果は異なります。 最後に、今回のコードの最終形を貼り付けておきます。 --ここから-- x <- seq(-0. 5, length=1000) par(new=T); plot(x, yP, xlim=c(-0. 5)) myCount * 4 / length(xRect) if(sahen[i] <= 0. 25) myCount <- myCount + 1 # 判定とカウント} for(i in 1:10) print(myPaiFunc() * 4 / 100000) pi --ここまで-- うわ…きったねえコーディング…。 でもまあ、このコードを延々とCtrl+R 押下で図形の描画とπの計算、両方やってくれます。 各種パラメータは適宜変えて下さい。 以上!
(僕は忘れてました) (10) n回終わったら、pをnで割ると(p/n)、これが1/4円の面積の近似値となります。 (11) p/nを4倍すると、円の値が求まります。 コードですが、僕はこのように書きました。 (コメント欄にて、 @scivola さん、 @kojix2 さんのアドバイスもぜひご参照ください) n = 1000000 count = 0 for i in 0.. n z = Math. sqrt (( rand ** 2) + ( rand ** 2)) if z < 1 count += 1 end #円周circumference cir = count / n. to_f * 4 #to_f でfloatにしないと小数点以下が表示されない p cir Math とは、ビルトインモジュールで、数学系のメソッドをグループ化しているもの。. レシーバのメッセージを指定(この場合、メッセージとは sqrt() ) sqrt() とはsquare root(平方根)の略。PHPと似てる。 36歳未経験でIoTエンジニアとして転職しました。そのポジションがRubyメインのため、慣れ親しんだPHPを置いて、Rubyの勉強を始めています。 もしご指摘などあればぜひよろしくお願い申し上げます。 noteに転職経験をまとめています↓ 36歳未経験者がIoTエンジニアに内定しました(1/3)プログラミング学習遍歴編 36歳未経験者がIoTエンジニアに内定しました(2/3) ジョブチェンジの迷い編 Why not register and get more from Qiita? モンテカルロ法による円周率の計算など. We will deliver articles that match you By following users and tags, you can catch up information on technical fields that you are interested in as a whole you can read useful information later efficiently By "stocking" the articles you like, you can search right away Sign up Login
146になりましたが、プロットの回数が少ないとブレます。 JavaScriptとPlotly. jsでモンテカルロ法による円周率の計算を散布図で確認 上記のプログラムを散布図のグラフにすると以下のようになります。 ソースコード グラフライブラリの読み込みやラベル名の設定などがあるためちょっと長くなりますが、モデル化の部分のコードは先ほどと、殆ど変わりません。