function k = reseni_ukol3
% k = reseni_ukol3
%
% Funkce urci minimalni tuhost struny dle zadani ukolu 3
%
% k  ... vysledna minimalni tuhost struny s presnosti 10^-1

l = 2;
d = 0.2;
n = 300;

k = 2; 


while 1
    k = k - 0.1;
    u = reseni_ukol2(k,l,n);
        
    if min(u) <= -d
        break
    end
end

k = k + 0.1;

% vypis vysledku
disp(['Minimalni tuhost struny: ', num2str(k)])

% konec