function x=kvadrro(a, b, c)
% KVADRRO	resi kvadratickou rovnici
% a, b, c jsou koeficienty kvadraticke rovnice
% priklad zadani  r=kvadrro(-1, -10, -25)

% nargin je promenna, kde je uchovany pocet vstupnich parametru
if nargin < 3
% error je funkce, ktera vypise na displej zadany retezec a ukonci
% cinnost m-souboru (funkce)
	error('Chybi vstupni parametr/parametry');
end
if a == 0 
	error('rovnice neni kvadraticka, zadej spravne koeficienty');
end
% vypocita hodnotu diskriminantu
D=b^2 - 4*a*c;
if D > 0
	disp('rovnice ma dva realne koreny');
else
	if D < 0
		disp('rovnice ma dva imaginarni koreny');
				
	else
		disp('rovice ma dvojnasobny koren');
	end
end
% sqrt je funkce pro vypocet odmocniny
d=sqrt(D);
x(1)=(-b+d)/(2*a);
x(2)=(-b-d)/(2*a);
% disp je funkce, ktera vypise zadanou matici jako text
% num2str je funkce, ktera konvertuje zadany parametr (cislo)
% na retezec (text)
disp(['    x1=' num2str(x(1))]);
disp(['    x2=' num2str(x(2))]);