function [H,P,U]=znamenka_diferenci(x,alfa)
% funkce testuje nahodnost posloupnosti pomoci bodu zvratu
% synatxe: [H,P,D]=znamenka_diferenci(x,alfa)
% vystupni parametry:
% H ... vysledek testu> 1 ... H0 zamitame, 0 ... H0 ... nezamitame
% P ... vypocitana p-hodnota
% U ... realizace testove statistiky
% vstupni parametry:
% x ... sloupcovy vektor hodnot testovane posloupnosti
% alfa ... hladina vyznamnosti
n=size(x,1);
Y=0;
for i=1:n-1
    if x(i)<x(i+1)
        Y=Y+1;
    end
end;
U=(Y-(n-1)/2)/sqrt((n+1)/12);
P=2*min(normcdf(U,0,1),1-normcdf(U,0,1));
if P<=alfa 
    H=1; 
end
if P>alfa 
    H=0; 
end