"new3の部屋"の補完ブログ。 興味有るものを右の”分類”から選んでね：お勧めは 工学系（電子、頭の体操）。 お笑系（落語、テレビ、頭の体操、もろもろ、AV）。 ローカルネタ（赤穂、食、気候、千種・観光）。 乗物（自転車、運動、交通）。修正履歴はホームページの更新履歴（管理人覚書）。 何か連絡あるなら、 >分類>雑記帳(4)>とりあえず何か言いたい場合ここにコメントしてｏｋ をクリックして、この記事の開いた中のコメント欄へどうぞ。 非公開機能停止、チャット機能運用するとパンクしそうなので停止。
10回の移動平均を実施しながら、Πの収束をみてみました。
100万回。
RANDOMIZE
DIM ref(10)
SET WINDOW 0,1000,0.1,-0.1
SET POINT STYLE 2
SET POINT COLOR 2
REM DRAW GRID0
DRAW AXES0
FOR i=1 TO 1000000
LET x=RND*2-1
LET y=RND*2-1
IF x^2+y^2 <1 THEN LET en=en+1
LET ref(MOD(i,10)+1)=en/i*4-PI
LET sumref=0
FOR j=1 TO 10
LET sumref=sumref+ref(j)
NEXT j
PRINT en/i*4,ref(MOD(i,10)+1),sumref
PLOT POINTS: i/1000,sumref
NEXT i
END
ブログ内検索
カレンダー
最新記事
最新コメント
ワイはこんな奴やで
分類
ご意見ご感想は
第三者非公開の場合、下部↓リンク欄の”new3の部屋（こっちも見てね）”を開いて、トップページの下部の、”関連リンク”ページの先頭部分にヒント。
公開してよい連絡は↓コメント記入で
バーコード
アーカイブ
P R