%
% Este script es para resolver la ecuacion de segundo grado por medio
% de un llamado a una rutina.
%

a = input('Entre el coeficiente a: ');
b = input('Entre el coeficiente b: ');
c = input('Entre el coeficiente c: ');

[x1,x2, nsr] = baskara(a, b,c);

fprintf('Ecuación de segundo grado. Primer llamado\n');
fprintf('Coeficientes: a = %g, b = %g, c = %g\n', a, b, c);
fprintf('\nNúmero de raices %d\n', nsr);
fprintf('Raices: x1 = %g,   x2 = %g\n\n', x1, x2);

[x1,x2, nsr] = baskara(a, b, -c);

fprintf('Ecuación de segundo grado. Segundo llamado\n');
fprintf('Coeficientes: a = %g, b = %g, c = %g\n', a, b, -c);
fprintf('\nNúmero de raices %d\n', nsr);
fprintf('Raices: x1 = %g,   x2 = %g\n\n', x1, x2);

[x1,x2, nsr] = baskara(0, b, c);

fprintf('Ecuación de segundo grado. Tercer llamado\n');
fprintf('Coeficientes: a = %g, b = %g, c = %g\n', 0, b, c);
fprintf('\nNúmero de raices %d\n', nsr);
fprintf('Raices: x1 = %g,   x2 = %g\n\n', x1, x2);
