function raices = Bairstow (b, r0, s0)

raices = [];

N = length(b);

while(N > 3) 
    [b r s] = Itera_Bairstow(b, r0, s0);
    [x1, x2] = Formula_General(1, r, s);
    raices = [raices, x1, x2];

    N = N-2;
end;

if length(b) == 3
    [x1, x2] = Formula_General(b(3), b(2), b(1));
    raices = [raices, x1, x2];
end;

if length(b) == 2
    raices = [raices, -b(1)/b(2)];
end;

    