' Programma che calcola chi-quadro per valutare indipendenza di due variabili ' noti valori sperimetali classificati in una tabella NRIG*NCOL ' Al momento sono inserite informazioni relative a una tabella 3*4 ' Modifcando NRIG, NCOL, N (totale dati) e il DATA si puo` calcolare il ' chi-quadro di indipendenza relativo ad altre tabelle 'vedi Prob.Stat. scheda 6 nrig = 3: ncol = 4 NC = nrig * ncol: n = 4396 DIM t(nrig, ncol), rig(nrig), col(ncol) ' tabella e totali righe e colonne DIM f(NC), p(NC) ' freq. assoluta, probabilita` i = 0 FOR r = 1 TO nrig: FOR c = 1 TO ncol READ t(r, c): rig(r) = rig(r) + t(r, c): col(c) = col(c) + t(r, c) i = i + 1: f(i) = t(r, c) NEXT: NEXT DATA 130,11,6,5 DATA 362,1805,105,122 DATA 1068,430,203,149 s = 0: FOR i = 1 TO NC: s = s + f(i): NEXT IF s <> n THEN PRINT "controlla: F(1)+F(2)+...="; s; "<> N": END i = 0 FOR r = 1 TO nrig: FOR c = 1 TO ncol i = i + 1: p(i) = rig(r) * col(c) / (n * n) NEXT: NEXT FOR i = 1 TO NC np = n * p(i) chi2 = chi2 + (f(i) - np) ^ 2 / np NEXT PRINT "chi quadro ="; chi2