"new3の部屋"の補完ブログ。 興味有るものを右の”分類”から選んでね:お勧めは 工学系(電子、頭の体操)。 お笑系(落語、テレビ、頭の体操、もろもろ、AV)。 ローカルネタ(赤穂、食、気候、千種・観光)。 乗物(自転車、運動、交通)。修正履歴はホームページの更新履歴(管理人覚書)。 何か連絡あるなら、 >分類>雑記帳(4)>とりあえず何か言いたい場合ここにコメントしてok をクリックして、この記事の開いた中のコメント欄へどうぞ。 非公開機能停止、チャット機能運用するとパンクしそうなので停止。
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