MATLAB DA BİNOM DAĞILIMINI VEREN KOD

clc
clear
tekrar=10000
s=0;
p=0.5
n=100
for j=1:tekrar
    k=1:n
for i=1:n
    u=rand;
    if u<=1-p
        x(i)=0;
    else
        x(i)=1;
    end
end
x;
y(j)=sum(x);
if y(j)<=55
    s=s+1
end
ort(j)=sum(y)/j;
end
olasilik=s/tekrar
s=var(y)
y;
%plot(ort)
hist(y,k)