function y = VektorGreske(n,p)
% Funkcija y = VektorGreske(n,p) pripada STT toolbox-u.
% Funkcija kreira vektor greske od n bita pri cemu je verovatnoca greske p.
% Vektor greske je niz bita {0,1} gde 1 znaci da je doslo do greske, 0 da
% nije doslo do greske.
% Ulazi:
%	n - broj bita
%	p - verovatnoca greske bita
% Izlaz:
%	y - izlazni binarni niz {0,1} pri cemu 0 znaci da nema greske a 1 da je
%	doslo do greske.
%	y = -1 u slucaju da se detektuje greska u ulaznim parametrima!
%-----------------------------
%	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
y = floor(rand(1,n)+p);

% rucno generisanje, malo duze ali mozda je jasnije ?
% y = zeros(1,n); % zauzimanje memorije za y
% for i=1:n
%   v = rand();
%   if v<p
%     y(i) = 1; % ima greske u kanalu
%   else
%     y(i) = 0; % nema greske (ovo moze i da se izostavi jer je u ceo vektor y vec upisana 0!)
%   end
% end