function [poloha]=np(N)
%funkce na simulaci symetricke nahodne prochazky po primce
%syntaxe: poloha=np(N)
%vstupni parametr:
%N ... delka nahodne prochazky
%vystupni parametr:
%poloha ... vektor souradnic bodu, v nichz se castice nachazi
%v jednotlivych krocich
%funkce nakresli trajektorii nahodne prochazky 
%funkce poskytne tabulku rozlozeni cetnosti souradnic castice na primce, 
%v nichz se nahodna prochazka nachazi 
NC=unidrnd(2,N,1);
poloha(1)=0;
for i=2:N
    if NC(i)==1 poloha(i)=poloha(i-1)-1;
    else poloha(i)=poloha(i-1)+1;
    end
end
t=[0:N-1];
plot(t,poloha)
tabulate(poloha)

