BER=0; % bit error rate

p=[1e-3 2e-3 3e-3 4e-3 5e-3 6e-3 7e-3 8e-3 9e-3 1e-2 2e-2 3e-2 4e-2 5e-2 6e-2 7e-2 8e-2 9e-2 1e-1 2e-1 3e-1 4e-1];
N=11000;
% Ako ti pukne matlab onda smanji na 800000 ili eventualno na 400000. 
% Manje od toga je besmisleno i onda bi morala da dodjes u septembru da to radimo u lab 117

for i=1:length(p)
    BER(i)=konacno15_11(N,p(i));
    [p(i) BER(i)]
end

[p' BER']
loglog(p,BER,'-or')
title('Verovatnoca greske po bitu (BER)')
ylabel('BER')
xlabel('Verovatnoca greske u kanalu')