function y = BSKanal(x,p)
% Funkcija y = BSKanal(x,p) pripada STT toolbox-u.
% Funkcija simulira prolazak niza bita x kroz binarni simetricni kanal
% sa verovatnocom greske p.
% Ulazi:
%	x - ulazni logicki binarni niz {0,1}
%	p - verovatnoca greske u simetricnom kanalu (ista za 0 i za 1)
% Izlaz:
%	y - izlazni logicki binarni niz {0,1}
%	y = -1 u slucaju da se detektuje greska!
%-----------------------------
%	Autor: Nenad Jevtic
%	Datum: 19.03.2016.
%-----------------------------
y = -1;
if p>1
  display('Greska: verovatnoca ne sme biti veca od 1.')
  return
elseif p<0
  display('Greska: verovatnoca ne sme biti manja od 0.')
  return
end
greska = VektorGreske(length(x),p);
y = mod(x+greska,2);