0 REM << RR20-1 >>
1 PRINT"[147]":POKE53280,6:POKE53281,1:POKE646,6
2 REM  --   NEEDLES   --
3 REM   RUPERT REPORT #20
4 REM
10 REM - SIMULATE THE BUFFON NEEDLE
11 REM   EXPERIMENT.  DROP NEEDLES OF
12 REM   LENGTH L ON FLOORBOARDS OF
13 REM   WIDTH H.  SUCCESS IF NEEDLE
14 REM   LANDS ON A CRACK. PROBABILITY
15 REM   OF LANDING ON A CRACK IS
16 REM   (2*L)/(H*PI)
17 REM
20 H=1 :L=H :TRIES=1 :WINS=1 :K=2*L/H
30 PRINT CHR$(147)TAB(12)"< TRIES"
40 PRINT TAB(12)"< PI"
50 PRINT TAB(12)"< AVG"
60 Y0=H*RND(0)
70 A=RND(0)*30000
80 Y=L*SIN(A)+Y0
90 IF Y>H OR Y<0 THEN WINS=WINS+1
100 PI=K*TRIES/WINS
110 TTL=TTL+PI : AVG=TTL/TRIES
120 PRINT CHR$(19)TRIES : PRINT PI
130 PRINT AVG
140 TRIES=TRIES+1
150 GOTO 60