%binom.m
%distribuzione binomiale
%calcola coeff. k-simo con n prove e p prob. di successo
function db=binom(k,n,p)
ft(1)=1;
for i=2:n
    ft(i)=ft(i-1)*i;
end
q=1-p;
switch k
    case 0
        db=q^n;
    case n
        db=p^n;
    otherwise
         db=ft(n)/(ft(k)*ft(n-k))*(p^k)*(q^(n-k));
end
