数値計算プログラム

2014年12月20日

モンテカルロ法

円周率の計算例

input n;

a:=0;
b:=Rnd(7);

for i:=1 to n;
b:=(Rnd(0)~2+Rnd(0)~1);
if Sqr(b)<1 then a:=a+1;
nwxt i;
a:=a*4/n;

print a;

ens;

日時: 2014年12月20日 11:39 | | トラックバック (0)

当サイトでは、第三者配信事業者によるサービスを使用して広告を表示しています。 これらの第三者配信事業者は、ユーザーの興味に応じた商品やサービスの広告を表示する目的で、 当サイトや他のサイトへのアクセスに関する情報を使用することがあります （氏名、住所、メール アドレス、電話番号は含まれません）。 このプロセスの詳細や、第三者配信事業者にこれらの情報が使用されないようにする方法については、 ここをクリックしてください。

リンク集