\frac{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\frac{a}{\frac{a}{-2 \cdot \frac{c}{b + \sqrt{\sqrt[3]{{\left(b \cdot b - c \cdot \left(a \cdot 4\right)\right)}^{3}}}}}}(FPCore (a b c) :precision binary64 (/ (+ (- b) (sqrt (- (* b b) (* (* 4.0 a) c)))) (* 2.0 a)))
(FPCore (a b c) :precision binary64 (/ a (/ a (* -2.0 (/ c (+ b (sqrt (cbrt (pow (- (* b b) (* c (* a 4.0))) 3.0)))))))))
double code(double a, double b, double c) {
return (-b + sqrt((b * b) - ((4.0 * a) * c))) / (2.0 * a);
}
double code(double a, double b, double c) {
return a / (a / (-2.0 * (c / (b + sqrt(cbrt(pow(((b * b) - (c * (a * 4.0))), 3.0)))))));
}



Bits error versus a



Bits error versus b



Bits error versus c
Results
Initial program 28.3
Simplified28.3
rmApplied flip--_binary6428.4
Simplified0.5
Simplified0.5
rmApplied *-un-lft-identity_binary640.5
Applied times-frac_binary640.3
Applied associate-/l*_binary640.3
Simplified0.3
rmApplied add-cbrt-cube_binary640.4
Simplified0.4
Final simplification0.4
herbie shell --seed 2020224
(FPCore (a b c)
:name "Quadratic roots, narrow range"
:precision binary64
:pre (and (< 1.0536712127723509e-08 a 94906265.62425156) (< 1.0536712127723509e-08 b 94906265.62425156) (< 1.0536712127723509e-08 c 94906265.62425156))
(/ (+ (- b) (sqrt (- (* b b) (* (* 4.0 a) c)))) (* 2.0 a)))