MATLAB DA BEKLENEN DEĞERİ VEREN PROGRAM

clc
clear
s=0;
p=0.5
n=100
tekrar=10000
for j=1:tekrar
for i=1:n
    u=rand;
    if u<=1-p
        x(i)=0;
    else
        x(i)=1;
    end
end
x
y(j)=sum(x);
ort=sum(y)/j
if y(j)<=60
    s=s+1
end
ol=s/tekrar

end
s=var(y)
t=0:0.0001:n;
y
figure(1)
plot(ort)
figure(2)
hist(y)
ol