' Verifica di M(U1+U2)=M(U1)+M(U2) e Var(U1+U2)=Var(U1)+Var(U2)
' per il lancio di due dadi equi
DECLARE SUB MEDIA (x!(), n%, m!)
PRINT
DIM x(6), y(6), xy(36), q(36)
FOR i = 1 TO 6: x(i) = i: y(i) = i: NEXT 'metto in x(),y() le possibili uscite di U1,U2
MEDIA x(), 6, m: PRINT "M(U1)=M(U2) ="; m
FOR i = 1 TO 6: q(i) = (x(i) - m) ^ 2: NEXT 'metto in q() i quadrati degli scarti
MEDIA q(), 6, var: PRINT "V(U1)=V(U2) ="; var; "  V(U1)+V(U2) ="; var + var
i = 0
FOR j = 1 TO 6: FOR k = 1 TO 6
  i = i + 1: xy(i) = x(j) + y(k)
NEXT: NEXT      ' metto in xy() le somme delle possibili uscite di (U1,U2)
MEDIA xy(), 36, mm: PRINT "M(U1+U2) ="; mm
FOR i = 1 TO 36: q(i) = (xy(i) - mm) ^ 2: NEXT
MEDIA q(), 36, var
PRINT "V(U1+U2)="; var

SUB MEDIA (x(), n%, m) STATIC
   s = 0: FOR i = 1 TO n%: s = s + x(i): NEXT
   m = s / n%
END SUB