function m=minim(par,h1,t1)
% kriterialni funkce pro hledani shody prechodove charakteristiky "h1"
% v casech "t1" se soustavou s parametry "par"


k = par(1); % prvni parametr je zesileni
T=par(2); %druhy parametr je casova konstanta
ksi=par(3); % treti parametr je tlumeni
% vektor hledanych parametru ma tedy tri prvky
F2=tf(k,[T*T T*ksi*2 1]); % "vytvoreni" prenosu
h2=step(F2,t1); % zjisteni odezvy
m=sum((h2-h1).*(h2-h1)); % srovnani odezev pomoci souètu kvadratu odchylek
% hodnota m je navratovou hodnotou funkce