\frac{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}
\begin{array}{l}
t_0 := -4 \cdot \left(a \cdot c\right)\\
\frac{1}{\frac{a}{\frac{\frac{t_0}{b + \sqrt{t_0 + b \cdot b}}}{2}}}
\end{array}
(FPCore (a b c) :precision binary64 (/ (+ (- b) (sqrt (- (* b b) (* (* 4.0 a) c)))) (* 2.0 a)))
(FPCore (a b c) :precision binary64 (let* ((t_0 (* -4.0 (* a c)))) (/ 1.0 (/ a (/ (/ t_0 (+ b (sqrt (+ t_0 (* b b))))) 2.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) {
double t_0 = -4.0 * (a * c);
return 1.0 / (a / ((t_0 / (b + sqrt(t_0 + (b * b)))) / 2.0));
}



Bits error versus a



Bits error versus b



Bits error versus c
Results
Initial program 44.1
Simplified44.1
rmApplied flip--_binary6444.1
Simplified43.5
Simplified43.5
rmApplied clear-num_binary6443.5
Simplified0.5
Final simplification0.5
herbie shell --seed 2021205
(FPCore (a b c)
:name "Quadratic roots, medium range"
:precision binary64
:pre (and (< 1.1102230246251565e-16 a 9007199254740992.0) (< 1.1102230246251565e-16 b 9007199254740992.0) (< 1.1102230246251565e-16 c 9007199254740992.0))
(/ (+ (- b) (sqrt (- (* b b) (* (* 4.0 a) c)))) (* 2.0 a)))