'verifica sperimentale dell'indipendenza di due successive uscite di RND
VIA:
PRINT
INPUT "a, b (compresi tra 0 e 1) "; a, b
NX = 0: NY = 0: NXY = 0
FOR i = 1 TO 1000
  X = RND: Y = RND
  IF X < a THEN NX = NX + 1
  IF Y < b THEN NY = NY + 1
  IF X < a AND Y < b THEN NXY = NXY + 1
NEXT
PRINT "FrRel(X<a)*FrRel(Y<b)="; TAB(30); NX / 1000 * NY / 10; "%"
PRINT "FrRel(X<a and Y<b)="; TAB(30); NXY / 10; "%"
GOTO VIA