function anima_biseccion(f, a0, b0)
    clc

    %%% Creamos un vector x

    a = a0;
    b = b0;

    x = a0:0.1:b0;
    y = f(x);

    for k = 1:10

        close all

        fig = figure();
        set(fig, 'color', 'white')
        plot(x,y, 'LineWidth', 2)
        grid on
        xlabel('x')
        ylabel('y')
        hold on;

        ya = min(y):0.1:max(y);
        xa = ones(length(ya))*a;
        plot(xa,ya, 'r-', 'LineWidth', 2);

        yb = min(y):0.1:max(y);
        xb = ones(length(yb))*b;

        plot(xb,yb, 'r-', 'LineWidth', 2);

        c = (a+b)/2;

        yc = min(y):0.1:max(y);
        xc = ones(length(yc))*c;

        plot(xc,yc, 'g-', 'LineWidth', 2);

        if f(a)*f(c) < 0
            b =c;
        elseif f(c)*f(b) <0
            a= c;
        end;                     

        input('Preciona una tecla para continuar ');
    end;
end