'verifica sperimentale dell'indipendenza di due successi lanci di dado virtuale
PRINT
Via:
INPUT "m,n"; m, n
N1 = 0: N2 = 0: N12 = 0    ' variabili per contare le frequenze
FOR i = 1 TO 1000
  U1 = INT(RND * 6) + 1: U2 = INT(RND * 6) + 1
  IF U1 = m THEN N1 = N1 + 1
  IF U2 = n THEN N2 = N2 + 1
  IF U1 = m AND U2 = n THEN N12 = N12 + 1
NEXT
PRINT "FreqRel(U1=m) * FreqRel(U2=n)="; TAB(31); N1 / 1000 * N2 / 1000
PRINT "FreqRel(U1=m and U2=n)="; TAB(31); N12 / 1000
GOTO Via