Octave / zadan6

function F = zadan6(f,a,b,e)
if (a > b || e < 0)
F = 'Неверные даннные';
return;
else
fa = f(a);
fb = f(b);
if (fa * fb < 0)
while(true)
fa = f(a);
c = (a + b) / 2;
fc = f(c);
if (abs(fc) < e )
break;
else
if (fa * fc < 0)
b = c;
else
a = c;
endif
endif
endwhile
else
F = 'Неверные данные';
return;
endif
endif
F = c;
endfunction