x = randi([0 1],1,10000);
p =0.1;
y = BSKanal(x,p);
ber = BitErrorRate(x,y)