\frac{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}-2 \cdot \frac{c}{b + \sqrt{\frac{{b}^{4} - a \cdot \left(c \cdot \left(\left(c \cdot a\right) \cdot 16\right)\right)}{b \cdot b + c \cdot \left(4 \cdot a\right)}}}(FPCore (a b c) :precision binary64 (/ (+ (- b) (sqrt (- (* b b) (* (* 4.0 a) c)))) (* 2.0 a)))
(FPCore (a b c)
:precision binary64
(*
-2.0
(/
c
(+
b
(sqrt
(/
(- (pow b 4.0) (* a (* c (* (* c a) 16.0))))
(+ (* b b) (* c (* 4.0 a)))))))))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 -2.0 * (c / (b + sqrt((pow(b, 4.0) - (a * (c * ((c * a) * 16.0)))) / ((b * b) + (c * (4.0 * a))))));
}



Bits error versus a



Bits error versus b



Bits error versus c
Results
Initial program 28.7
Simplified28.7
rmApplied flip--_binary64_5428.7
Simplified0.5
Simplified0.5
rmApplied *-un-lft-identity_binary64_790.5
Applied times-frac_binary64_850.3
Applied times-frac_binary64_850.3
Simplified0.3
Simplified0.3
rmApplied flip--_binary64_540.3
Simplified0.3
Final simplification0.3
herbie shell --seed 2020280
(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)))