equ2(a,b,c)

function [x1, x2, nb] = equ2(a,b,c)
%  EQU2    rsolution d'une quation du second degr version dbutant
%  function [x1, x2, nb] = equ2(a,b,c)
%                  2
%  rsolution de ax + bx + c
%  x vecteur des racines
%  nb nombre de racines
if nargin ~= 3
   error('equ2 demande trois arguments');
else
   x1 = [];
   x2 = [];
   if a ==0
      [x1,nb] = equ1(b,c);
   else
      delta = b.*b - 4.*a.*c;
      if delta > 0
         delta = sqrt(delta);
         x1 = (-b - delta)./(2 .*a);
         x2 = (-b + delta)./(2 .*a);
         nb = 2;
      else
         nb = 0;
      end;
   end;
end