{円周率の算出 数学の本を見ててふと思いつきました。 計算開始ボタンを押してから少々時間がかがります。 私のPCでは15秒ほどかかりました。 計算回数を減らせば、早く終わります。 RNDが0<=X<=1であればもっと正確に計算できるのかも。} 計算回数は　50000。 ＊計算開始ボタンの作成 計算開始ボタンを　ボタンとして　作成。 その　テキストは　「円周率計算」。 その　イベントは　円周率計算。 待機。 ＊円周率計算 内側=0。 計算回数回( 　　x=RND。 　　　y=RND。 　　もし　(x*x+y*y)<=1　ならば( 　　　　　内側=内側+1。 　　　)。 円周率=(4*内側)/計算回数)。 円周率を　言う。

紙に式を書いて考えることしばし…。 へぇ、こうやって円周率が求まるんですねぇ。 下のは以前サポート掲示板でYMさんが書いてくれたものです。 この簡単さにも驚き。 １８０を、度からラジアン。 円周率は、それ。 円周率を、表示。

{円周率は、円周の長さが直径の何倍になるかを示す係数ですから、正n角形をケーキのようにn個の二等辺三角形に区切って、(二等辺三角形の底辺の長さ×n)÷(二等辺三角形の斜辺の長さ)とやって、nを大きくすれば、昔のエジプト人の苦労がわかるはずです。 ちなみに、正n角形をケーキ式にn個の二等辺三角形に区切ると、二等辺三角形の鋭角[度]は 　　鋭角=360÷n で、次に二等辺三角形を縦に真っ二つに切って直角三角形にすると、二等辺三角形の底辺の半分の長さは 　　(底辺÷2)=半径×sin(鋭角/2) となりますから、直角三角形の底辺の長さが、 　　底辺=2×半径×sin(鋭角/2) 正n角形の周の長さが、 　　周の長さ=底辺×n 　　　　　　=2×n×半径×sin(鋭角/2) となります。これを、直径=半径×2で割ると、それが円周率ですから、 　　円周率=周の長さ÷直径=n×sin(鋭角/2) となります。これをプログラムでやると、} ' nが大きいほど、正n角形は円に近づき、正確な値が出ます。 n=50000。 鋭角=(360÷n)。 鋭角を、度からラジアン。 円周率=(n×SIN(鋭角/2))。 円周率と、言う。 { となりますが、あくまでもこれは理論的な話であって、小数点以下の精度が無限でなければなりません。（高校のときにやった、極限の概念です。）関数電卓などで計算したほうがいいかと思います。ひまわりでは、途中段階の数字が小さくなりすぎて正常に実行できないようです。 数学的な概念そのままでは、桁数に制限のあるプログラミング言語では計算できませんから、これは参考までということで。 }

どうも（＾ｖ＾） 今日は、掲示板のプログラムを整理しているので、 ふるーい、スレッドに、レスつけまくってます。 既に、時効ですが・・・ kobachiさんの・・・ ＞' nが大きいほど、正n角形は円に近づき、正確な値が出ます。 ＞n=50000。 ＞鋭角=(360÷n)。 ＞鋭角を、度からラジアン。 ＞円周率=(n×SIN(鋭角/2))。 ＞円周率と、言う。 ですが、 ’＝＝＝＝＝＝＝＝＝＝＝＝＝＝ n=50000。 鋭角=(360÷n)。 鋭角を、度からラジアンして、鋭角に、入れる。’＜＝＝＝ 円周率=(n×SIN(鋭角/2))。 円周率と、言う。 ’＝＝＝＝＝＝＝＝＝＝＝＝＝＝ で、正確に、 3.141592... と出ました。

これって「モンテカルロ法」のことではないですか？

もう一度数学に本を開いて見ました。 間違いなくモンテカルロ法と書いてありました。(^-^ ) ニコッ ｂｙ　コスモス

座標(x,y)に点を描き、円周率の途中経過を表示したら、おもしろそうですね。

途中経過かあ・・・・・・ それ面白いかも(笑)