\frac{\left(-b\right) + \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}{3 \cdot a}\begin{array}{l}
\mathbf{if}\;\frac{\left(-b\right) + \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}{3 \cdot a} \le -1.2146478064524304:\\
\;\;\;\;\frac{\frac{\mathsf{fma}\left(b, b, -\left(b \cdot b - \left(3 \cdot a\right) \cdot c\right)\right)}{\left(-b\right) - \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}}{3 \cdot a}\\
\mathbf{else}:\\
\;\;\;\;-0.5 \cdot \frac{c}{b}\\
\end{array}double f(double a, double b, double c) {
double r58061 = b;
double r58062 = -r58061;
double r58063 = r58061 * r58061;
double r58064 = 3.0;
double r58065 = a;
double r58066 = r58064 * r58065;
double r58067 = c;
double r58068 = r58066 * r58067;
double r58069 = r58063 - r58068;
double r58070 = sqrt(r58069);
double r58071 = r58062 + r58070;
double r58072 = r58071 / r58066;
return r58072;
}
double f(double a, double b, double c) {
double r58073 = b;
double r58074 = -r58073;
double r58075 = r58073 * r58073;
double r58076 = 3.0;
double r58077 = a;
double r58078 = r58076 * r58077;
double r58079 = c;
double r58080 = r58078 * r58079;
double r58081 = r58075 - r58080;
double r58082 = sqrt(r58081);
double r58083 = r58074 + r58082;
double r58084 = r58083 / r58078;
double r58085 = -1.2146478064524304;
bool r58086 = r58084 <= r58085;
double r58087 = -r58081;
double r58088 = fma(r58073, r58073, r58087);
double r58089 = r58074 - r58082;
double r58090 = r58088 / r58089;
double r58091 = r58090 / r58078;
double r58092 = -0.5;
double r58093 = r58079 / r58073;
double r58094 = r58092 * r58093;
double r58095 = r58086 ? r58091 : r58094;
return r58095;
}



Bits error versus a



Bits error versus b



Bits error versus c
if (/ (+ (- b) (sqrt (- (* b b) (* (* 3.0 a) c)))) (* 3.0 a)) < -1.2146478064524304Initial program 23.4
rmApplied flip-+23.4
Simplified22.7
if -1.2146478064524304 < (/ (+ (- b) (sqrt (- (* b b) (* (* 3.0 a) c)))) (* 3.0 a)) Initial program 55.5
Taylor expanded around inf 4.2
Final simplification5.9
herbie shell --seed 2020018 +o rules:numerics
(FPCore (a b c)
:name "Cubic critical, wide range"
:precision binary64
:pre (and (< 4.9303800000000003e-32 a 2.02824e+31) (< 4.9303800000000003e-32 b 2.02824e+31) (< 4.9303800000000003e-32 c 2.02824e+31))
(/ (+ (- b) (sqrt (- (* b b) (* (* 3 a) c)))) (* 3 a)))