N88-BASICで円周率
2022/4/26(火)
N88-BASICで円周率
点P(x,y) (x,y=0～1)
のランダムな点の内、
原点O(0,0)からの距離が1以下
の割合の4倍の値を計算します。
点Pは、辺1で面積1の正方形内に存在し、
原点からの距離が1以下の点は、半径1
の円の1/4(面積π/4)内に存在するので、
その割合π/4の4倍はπとなります。
つまり、点が円内に入る確率でπを求めます。
RND(1)が0～1未満の乱数なので、
上記の「以下」を「未満」にしてプログラム
しました。
NL-BASICとblg～.zip(pi001.bas)は
以下のリンクからダウンロードできます
点P(x,y) (x,y=0～1)
のランダムな点の内、
原点O(0,0)からの距離が1以下
の割合の4倍の値を計算します。
点Pは、辺1で面積1の正方形内に存在し、
原点からの距離が1以下の点は、半径1
の円の1/4(面積π/4)内に存在するので、
その割合π/4の4倍はπとなります。
つまり、点が円内に入る確率でπを求めます。
RND(1)が0～1未満の乱数なので、
上記の「以下」を「未満」にしてプログラム
しました。
NL-BASICとblg～.zip(pi001.bas)は
以下のリンクからダウンロードできます
