function sn = factor_NR(s0, a)
    % factor_NR(s0, a) Calcula el factor (x+s) de un polinomio con 
    % coeficiente a dado un valor inicial s0 mediante el 
    % metodo de Newton-Raphson


    for iter = 1: 100000
        sn = s0 + Evalua_Polinomio(-s0, a)/Evalua_Derivada(-s0, a);
        fprintf('s_{%d} = %8.6f + \\frac{%8.6f}{%8.6f} = %8.6f \\\\ \n', iter, s0, Evalua_Polinomio(-s0, a), Evalua_Derivada(-s0, a), sn );
    
        if abs(Evalua_Polinomio(sn, a)) < 1e-6
        break;
        else
            s0 = sn;
        end
    end;
end