'vedi Prob.Stat. scheda 5 'confronto tra varianza teorica e varianza sperimentale DECLARE SUB MEDIA (x!(), n!, m!) RANDOMIZE TIMER VT = 35 / 12 ' var. teorica ne = 10 ' num. degli esperimenti CLS PRINT "Premi ACApo per proseguire" PRINT PRINT "Varianza teorica lancio 1 dado equo ="; VT PRINT "Media della varianza sperimentale con 10 lanci:" PRINT PRINT "n.prove", "media var", "media var / var teor" S = 0: n = 0 10 FOR i = 1 TO ne: x(i) = INT(RND * 6) + 1: NEXT MEDIA x(), ne, m FOR i = 1 TO ne: y(i) = (x(i) - m) ^ 2: NEXT MEDIA y(), ne, V n = n + 1: S = S + V IF n \ 1000 = n / 1000 THEN PRINT n, S / n, S / n / VT; LOCATE , 50: INPUT ; "premi ACapo", acapo$: LOCATE , 50: PRINT SPACE$(11) END IF GOTO 10 SUB MEDIA (x(), n, m) S = 0: FOR i = 1 TO n: S = S + x(i): NEXT m = S / n END SUB