%SECGRA	Risoluzione di equazioni di secondo grado.

% questa riga di commento non compare nell'help

disp('Risoluzione di equazioni di secondo grado.')
a = input('a = ');
b = input('b = ');
c = input('c = ');

delta = b^2-4*a*c;	% discriminante
x1 = (-b+sqrt(delta))/(2*a);
x2 = (-b-sqrt(delta))/(2*a);

if delta > 0
    disp('due radici reali distinte')
    fprintf('x1=%g \t x2=%g\n',x1,x2);
elseif delta == 0
    disp('due radici reali coincidenti')
    fprintf('x1=x2=%g\n',x1);
else
    disp('due radici complesse coniugate')
    fprintf('x1=%g%+gi \t x2=%g%+gi\n',real(x1),imag(x1),real(x2),imag(x2));
end

    
    
