function [y, N] = seno2 (x)
  %funcion seno2 calcula el seno x utilizando serie de
  %Taylor. Como criterio de paro utiliza el error de
  %truncamiento Rn(x)
  %regresa el valor calculado y el grado del polinomio
  y = 0;
  k=0;

  while true
    N = 2*k+1;  % Valor de n
    Rn = (-1)^k*x.^N/factorial(N); % error de truncamiento

    if abs(Rn) < 1e-12
      return;
    endif

    y = y + Rn; %actualizacion de la serie de Taylor
    k = k+1;
  end;
endfunction
