%
% Este script es para resolver la ecuacion de segundo grado por medio
% de un llamado a una rutina.
%
function [x1, x2, nsr] = baskara(a, b, c)
% baskara: Cálculo de raices de ecuaciones de segundo grado.

% Chequeando si el coeficiente de grado 2 es o no 0.
  if (a ~= 0)

    discr = b^2 - 4 * a * c;

    if (discr >= 0)
      % Hay dos soluciones reales.
      discr = sqrt(discr);
      a2    = 2 * a;
      x1    = (-b + discr) / a2;
      x2    = (-b - discr) / a2;
      nsr   = 2;
    else
      % No hay soluciones reales.
      x1 = 0; x2 = 0;
      nsr   = -2;
    end
    
  else
    % a=0, el sistema es en realidad lineal
    if (b ~= 0)
      x1  = - c / b;
      x2  = 0;
      nsr = 1;
    else
      x1 = 0; x2 = 0;
      nsr = 0;
    end
  end
end

