\frac{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\begin{array}{l}
\mathbf{if}\;b \le -7.6038168240882645 \cdot 10^{144}:\\
\;\;\;\;1 \cdot \left(\frac{c}{b} - \frac{b}{a}\right)\\
\mathbf{elif}\;b \le -3.2731438419880699 \cdot 10^{-203}:\\
\;\;\;\;\frac{\left(-b\right) + \sqrt{\sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot \sqrt{\sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}}{2 \cdot a}\\
\mathbf{elif}\;b \le 2.1125387673008883 \cdot 10^{122}:\\
\;\;\;\;\frac{\frac{\frac{1}{\frac{2}{4}}}{\frac{1}{c}}}{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\
\mathbf{else}:\\
\;\;\;\;-1 \cdot \frac{c}{b}\\
\end{array}double f(double a, double b, double c) {
double r56869 = b;
double r56870 = -r56869;
double r56871 = r56869 * r56869;
double r56872 = 4.0;
double r56873 = a;
double r56874 = r56872 * r56873;
double r56875 = c;
double r56876 = r56874 * r56875;
double r56877 = r56871 - r56876;
double r56878 = sqrt(r56877);
double r56879 = r56870 + r56878;
double r56880 = 2.0;
double r56881 = r56880 * r56873;
double r56882 = r56879 / r56881;
return r56882;
}
double f(double a, double b, double c) {
double r56883 = b;
double r56884 = -7.603816824088264e+144;
bool r56885 = r56883 <= r56884;
double r56886 = 1.0;
double r56887 = c;
double r56888 = r56887 / r56883;
double r56889 = a;
double r56890 = r56883 / r56889;
double r56891 = r56888 - r56890;
double r56892 = r56886 * r56891;
double r56893 = -3.27314384198807e-203;
bool r56894 = r56883 <= r56893;
double r56895 = -r56883;
double r56896 = r56883 * r56883;
double r56897 = 4.0;
double r56898 = r56897 * r56889;
double r56899 = r56898 * r56887;
double r56900 = r56896 - r56899;
double r56901 = sqrt(r56900);
double r56902 = sqrt(r56901);
double r56903 = r56902 * r56902;
double r56904 = r56895 + r56903;
double r56905 = 2.0;
double r56906 = r56905 * r56889;
double r56907 = r56904 / r56906;
double r56908 = 2.1125387673008883e+122;
bool r56909 = r56883 <= r56908;
double r56910 = 1.0;
double r56911 = r56905 / r56897;
double r56912 = r56910 / r56911;
double r56913 = r56910 / r56887;
double r56914 = r56912 / r56913;
double r56915 = r56895 - r56901;
double r56916 = r56914 / r56915;
double r56917 = -1.0;
double r56918 = r56917 * r56888;
double r56919 = r56909 ? r56916 : r56918;
double r56920 = r56894 ? r56907 : r56919;
double r56921 = r56885 ? r56892 : r56920;
return r56921;
}



Bits error versus a



Bits error versus b



Bits error versus c
Results
if b < -7.603816824088264e+144Initial program 61.2
Taylor expanded around -inf 2.8
Simplified2.8
if -7.603816824088264e+144 < b < -3.27314384198807e-203Initial program 7.1
rmApplied add-sqr-sqrt7.1
Applied sqrt-prod7.4
if -3.27314384198807e-203 < b < 2.1125387673008883e+122Initial program 29.8
rmApplied flip-+29.9
Simplified16.2
rmApplied *-un-lft-identity16.2
Applied *-un-lft-identity16.2
Applied times-frac16.2
Applied associate-/l*16.3
Simplified15.5
rmApplied associate-/r*15.3
Simplified9.5
if 2.1125387673008883e+122 < b Initial program 61.1
Taylor expanded around inf 2.1
Final simplification6.5
herbie shell --seed 2020036 +o rules:numerics
(FPCore (a b c)
:name "Quadratic roots, full range"
:precision binary64
(/ (+ (- b) (sqrt (- (* b b) (* (* 4 a) c)))) (* 2 a)))