\begin{array}{l}
\mathbf{if}\;b \ge 0.0:\\
\;\;\;\;\frac{2 \cdot c}{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\
\mathbf{else}:\\
\;\;\;\;\frac{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\
\end{array}\begin{array}{l}
\mathbf{if}\;b \le -4.05734525598461 \cdot 10^{150}:\\
\;\;\;\;\begin{array}{l}
\mathbf{if}\;b \ge 0.0:\\
\;\;\;\;\frac{2 \cdot c}{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\
\mathbf{else}:\\
\;\;\;\;\frac{2 \cdot \frac{a \cdot c}{b} - 2 \cdot b}{2 \cdot a}\\
\end{array}\\
\mathbf{elif}\;b \le 2.824222875658889 \cdot 10^{106}:\\
\;\;\;\;\begin{array}{l}
\mathbf{if}\;b \ge 0.0:\\
\;\;\;\;\frac{2 \cdot c}{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\
\mathbf{else}:\\
\;\;\;\;\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}\\
\end{array}\\
\mathbf{elif}\;b \ge 0.0:\\
\;\;\;\;\frac{2 \cdot c}{\left(-b\right) - \left(b - 2 \cdot \frac{a \cdot c}{b}\right)}\\
\mathbf{else}:\\
\;\;\;\;\frac{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\
\end{array}double f(double a, double b, double c) {
double r38951 = b;
double r38952 = 0.0;
bool r38953 = r38951 >= r38952;
double r38954 = 2.0;
double r38955 = c;
double r38956 = r38954 * r38955;
double r38957 = -r38951;
double r38958 = r38951 * r38951;
double r38959 = 4.0;
double r38960 = a;
double r38961 = r38959 * r38960;
double r38962 = r38961 * r38955;
double r38963 = r38958 - r38962;
double r38964 = sqrt(r38963);
double r38965 = r38957 - r38964;
double r38966 = r38956 / r38965;
double r38967 = r38957 + r38964;
double r38968 = r38954 * r38960;
double r38969 = r38967 / r38968;
double r38970 = r38953 ? r38966 : r38969;
return r38970;
}
double f(double a, double b, double c) {
double r38971 = b;
double r38972 = -4.05734525598461e+150;
bool r38973 = r38971 <= r38972;
double r38974 = 0.0;
bool r38975 = r38971 >= r38974;
double r38976 = 2.0;
double r38977 = c;
double r38978 = r38976 * r38977;
double r38979 = -r38971;
double r38980 = r38971 * r38971;
double r38981 = 4.0;
double r38982 = a;
double r38983 = r38981 * r38982;
double r38984 = r38983 * r38977;
double r38985 = r38980 - r38984;
double r38986 = sqrt(r38985);
double r38987 = r38979 - r38986;
double r38988 = r38978 / r38987;
double r38989 = r38982 * r38977;
double r38990 = r38989 / r38971;
double r38991 = r38976 * r38990;
double r38992 = 2.0;
double r38993 = r38992 * r38971;
double r38994 = r38991 - r38993;
double r38995 = r38976 * r38982;
double r38996 = r38994 / r38995;
double r38997 = r38975 ? r38988 : r38996;
double r38998 = 2.8242228756588895e+106;
bool r38999 = r38971 <= r38998;
double r39000 = sqrt(r38986);
double r39001 = r39000 * r39000;
double r39002 = r38979 + r39001;
double r39003 = r39002 / r38995;
double r39004 = r38975 ? r38988 : r39003;
double r39005 = r38971 - r38991;
double r39006 = r38979 - r39005;
double r39007 = r38978 / r39006;
double r39008 = r38979 + r38986;
double r39009 = r39008 / r38995;
double r39010 = r38975 ? r39007 : r39009;
double r39011 = r38999 ? r39004 : r39010;
double r39012 = r38973 ? r38997 : r39011;
return r39012;
}



Bits error versus a



Bits error versus b



Bits error versus c
Results
if b < -4.05734525598461e+150Initial program 61.3
rmApplied add-sqr-sqrt61.3
Applied sqrt-prod61.3
Taylor expanded around -inf 11.3
if -4.05734525598461e+150 < b < 2.8242228756588895e+106Initial program 8.8
rmApplied add-sqr-sqrt8.8
Applied sqrt-prod8.9
if 2.8242228756588895e+106 < b Initial program 30.5
Taylor expanded around inf 6.9
Final simplification8.7
herbie shell --seed 2020062 +o rules:numerics
(FPCore (a b c)
:name "jeff quadratic root 2"
:precision binary64
(if (>= b 0.0) (/ (* 2 c) (- (- b) (sqrt (- (* b b) (* (* 4 a) c))))) (/ (+ (- b) (sqrt (- (* b b) (* (* 4 a) c)))) (* 2 a))))