'distribuzione teorica lancio 10 monete
' (per Stat: copia uscite e incolla nella finestra- dati)
nm = 10    'numero di monete lanciate
DIM C(nm, nm)
GOSUB Cbin
nome$ = "moneteo.stf"
COMMENTO$ = "'distribuzione teorica lancio 10 monete"
PRINT COMMENTO$
FOR i = 0 TO nm
  PRINT i; ","; C(nm, i)
NEXT
END
Cbin:
  C(0, 0) = 1
  FOR n = 1 TO nm
    C(n, 0) = 1: C(n, n) = 1
    FOR k = 1 TO n - 1
      C(n, k) = C(n - 1, k - 1) + C(n - 1, k)
    NEXT
  NEXT
RETURN