clear all;
clc;
s = 40;
v = 60;
k = 15;
n = 50 ;
p=s/(s+v);

%Uppg. A) Bin


y = @(x) cdf('binomial',x,50,0.4);
%Uppg. B)
B = 1-y(25)
%Uppg. C)
C = 1-y(24)
%Uppg. D)
D = nchoosek(n,k)*(p^k)*(1-p)^(n-k)

%Uppg. E)
P=0;
 for k=0:15:n

   P = P + nchoosek(n,k)*(p^k)*(1-p)^(n-k);

 end
 E=P

 %F)
 P=0;
for k=0:n
    if ~mod(k,3) || ~mod(k,5)
       P = P + nchoosek(n,k)*(p^k)*(1-p)^(n-k);
    end
end
    F=P

G = y(30)-y(20)

% Jämförelse med normalförd.
phi30 = (30.5 - 20)/sqrt(20*0.6);
phi20 = (20.5 - 20)/sqrt(20*0.6);
s30 = 0.9988;
s20 = 0.5557;
Gjmf = s30-s20