function koren = bisekce(a,b,presnost)

% koren = bisekce(a,b,presnost)
%         program najde koren funkce sin(x) na intervalu <a,b>
%         s presnosti "presnost"

if  (a >= b) | (sin(a)*sin(b) >= 0)
    error('Chyba zadani vstupnich parametru!');
end

koren = (a+b)/2;

while abs(sin(koren)) > presnost/2
    if sin(a)*sin(koren) < 0
        b = koren;
    else
        a = koren;
    end
    koren = (a+b)/2;
end
