[MonteCarloMethod] SAMPLE

100 CLS 3
110 LOCATE 11,0
120 COLOR 4
130 PRINT "モンテカルロ法によるπの計算"
140 LINE (100,30)-(300,230),7,B
150 X=RND
160 Y=RND
170 IF X*X+Y*Y<1 THEN CL=2 ELSE CL=7
180 X1=INT(X*200+.5)
190 Y1=INT(Y*200+.5)
200 PSET (X1+100,230-Y1),CL
210 GOTO 150

モンテカルロ法でπの計算をプロットします。
150、160で乱数(0以上、1未満)によりX、Yを得て,
点(X、Y)が(0,0)中心、半径1の円内にあれば赤、そうでなければ白とします。
(0,0)中心、半径1の円を、
(100、230)中心、半径200の円に変換して、
PSETでプロットします。