bsp_1_3_2.m

%% Produktionsfehler
p = 0.1;
n = 15;
binomi = @(k) nchoosek(n, k)*p^k*(1-p)^(n-k);
pa = binomi(2)
pb = binomi(1) + binomi(2)
pcC = binomi(13) + binomi(14) + binomi(15)

%% Geometrische Verteilung
pd = (1 - p)^4 * p 

%% Lottozahlen
pe = nchoosek(6, 4)*nchoosek(43, 2)/nchoosek(49, 6)

%% Versicherung
la = 3;
poiss = @(k) exp(-la)*la^k/factorial(k);
pva = poiss(3)
pvb = poiss(0) + poiss(1) + poiss(2)
pvc = 1 - pva - pvb