% Método de bisección para una función f definida.
a=0.7;
b=0.8;
tol=0.0001;
while b-a>=tol
    % disp([a b]);
    c=a+(b-a)/2;
    if f(c)==0
        break
    end
    if sign(f(a))~=sign(f(c))
        b=c;
    else
        a=c;
    end
end
% disp(c)