Octave / fun2

function y = fun2 (f, a, b, e) #метод хорд
flag = false;
if (a <= 0 || b <= 0 || e <= 0 || a > b) #проверка на правильность числа е и построения интервала
flag = true;
else
fa = f(a);
fb = f(b);
if (fa * fb < 0)
while (true)
fa = f(a);
fb = f(b);
c = a - (b - a)/(fb - fa) * fa;
if (c <= 0)
flag = true;
break;
else
fc = f(c);
if (abs(fc) < e)
break;
else
if (fa * fc < 0)
b = c;
else
a = c;
endif
endif
endif
endwhile
else
flag = true;
endif
endif
if (flag)
y = 'Проверьте корректность данных';
else
y = c;
endif
endfunction