function myroot( a,b,c)
%UNTITLED Summary of this function goes here
%   Detailed explanation goes here
diskr=b*b-4*a*c;
if(diskr>0)
x1=(-b+sqrt(diskr))/(2.*a);
x2=(-b-sqrt(diskr))/(2.*a);
disp(['x1=',num2str(x1),'  x2=',num2str(x2)]);
return
end
if(diskr==0)
x1=-b/(2.*a);
disp(['x1=x2=',num2str(x1)]);
return
end
x1=-b/(2.*a);
x2=(sqrt(-diskr))/(2.*a);
disp(['x1,x2=',num2str(x1),'+/-i',num2str(x2)]);
end

