function erfen(a,b,j,f1)
i=0;
f=inline(f1);
while abs(a-b)>j;
    xm=a+(b-a)/2;
    if sign(f(a))==sign(f(xm));
        a=xm;
    else
        b=xm;
    end
    i=i+1;
    fprintf('%d%13.8f\n',i,a);
end
if sign(f(a))==sign(f(b))
   fprintf('error');
end