Anonymní profil Anonymní uživatel – Programujte.com

clc
clear
f = inline('x.*exp(-x/15)/225');
F=inline('-x*exp(-1/15*x)/15-exp(-1/15*x)+1');
% zadanie d
p = 0.59399415029016;
y=0;
i=41;
while y<0.9
i=i-1;
y=y+binom(40,p,i)

end
y
i
% zadanie e
y=0;
p=F(20)
M=[];
for i=40:-1:0;
% y=y+binom neni y+binom lebo sa nerobi intergral
y=binom(40,p,i);
M=[M y];
end
% I prvok,Y hodnota
[Y,I]=max(M)
vysledok=I-1