function [m0,m2,m4]=parametre(usek)
%% 1. Hjorthov parameter "m0"

m0=var(usek,1);

%% 2. Hjorthov parameter "m2"

PD=diff(usek,1); %prva derivacia
rozptyl_PD=var(PD,1);
st_odchylka_PD=sqrt(rozptyl_PD);

m2=st_odchylka_PD/sqrt(m0);

%% 3. Hjorthov parameter "m4"

DD=diff(usek,2);
rozptyl_DD=var(DD,1);
st_odchylka_DD=sqrt(rozptyl_DD);

m4=(st_odchylka_DD/sqrt(m0))/m2;