% Skript najde minimalni tuhost mostu tak, aby se most pri urcenych datech
% neprohl vice, nez je predepsano.

pred=-0.25;
k=1e4;
[U]=animace(10,100,-100,-10000,k,4);

while min(min(U))<pred
    k=k+1e3;
    [U]=animace(10,100,-100,-10000,k,4);
end

disp(['tuhost mostu musi byt nejmene ',num2str(k)])


%end