function [ztrata control y b P]=sloz(apriori,system)

    [H u]=load_H;
    
    for i=1:size(H,1);       
        plot(H(i,:,1),H(i,:,2),'g.');    end
    
    %plot(H(1,:,1),H(1,:,2),'g.');    hold on
    %plot(H(1,index,1), H(1,index,2),'r+');   
    %plot(eta_tilda, beta_tilda,'b.');  hold off
    
    [ztrata control y b P]=rizeni(H,u,system,apriori);
end