Kvadratická rovnice

Tento notebook obsahuje řešení kvadratické rovnice (ax^2) + bx + c = 0. V závislosti na koeficientech a, b a c se vypočítají kořeny (buď v reálných číslech nebo v komplexních). Má-li rovnice řešení v reálných číslech, vykreslí se graf kvadratické funkce y = (ax^2) + bx + c v okolí nalezených kořenů. Koeficienty může každý uživatel snadno měnit.

© Jaroslav Reichl, 2008

a=1;
b=-5;
c=-6;

deltax=1;
kvadratickyvyraz=a (x^2)+b x+c;
kvadratickarovnice=kvadratickyvyraz==0;
reseni=Solve[kvadratickarovnice,x];
reseni1=x/.reseni[[1]];
reseni2=x/.reseni[[2]];
If[Im[reseni1]==Im[reseni2],
Print["Rovnice ",TraditionalForm[kvadratickarovnice]," má řešení v reálných číslech. Jedná se o kořeny ",reseni1 ," a ",reseni2,"."],
Print["Rovnice ",TraditionalForm[kvadratickarovnice]," nemá řešení v reálných číslech! V komplexních číslech má kořeny ",reseni1 ," a ",reseni2,"."]]
If[Im[reseni1]==Im[reseni2],
Plot[kvadratickyvyraz,{x,reseni1-deltax,reseni2+deltax},AxesLabel->{"x","y"},AxesOrigin->{0,0}],
Print[""]]