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