'da inserire come PROVA in FA_RND per studio sperimentale distribuzione CHI^2
nc = 6: FrAtt = 50 / nc
DIM FrOss(nc)  'frequenza assoluta osservata
FOR h = 1 TO 50
  i = INT(RND * nc + 1): FrOss(i) = FrOss(i) + 1
NEXT
U = 0: FOR i = 1 TO nc: U = U + (FrOss(i) - FrAtt) ^ 2: NEXT
U = U / FrAtt
ERASE FrOss