\frac{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}
\begin{array}{l}
\mathbf{if}\;b \leq -3.996635431194612 \cdot 10^{+121}:\\
\;\;\;\;\frac{c}{b} - \frac{b}{a}\\
\mathbf{elif}\;b \leq 2.7919095286000728 \cdot 10^{-58}:\\
\;\;\;\;\frac{\left(-b\right) + \sqrt{\left|b \cdot b - \left(4 \cdot a\right) \cdot c\right|}}{2 \cdot a}\\
\mathbf{else}:\\
\;\;\;\;-1 \cdot \frac{c}{b}\\
\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
(if (<= b -3.996635431194612e+121)
(- (/ c b) (/ b a))
(if (<= b 2.7919095286000728e-58)
(/ (+ (- b) (sqrt (fabs (- (* b b) (* (* 4.0 a) c))))) (* 2.0 a))
(* -1.0 (/ c b)))))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 tmp;
if (b <= -3.996635431194612e+121) {
tmp = (c / b) - (b / a);
} else if (b <= 2.7919095286000728e-58) {
tmp = (-b + sqrt(fabs(((b * b) - ((4.0 * a) * c))))) / (2.0 * a);
} else {
tmp = -1.0 * (c / b);
}
return tmp;
}



Bits error versus a



Bits error versus b



Bits error versus c
Results
if b < -3.996635431194612e121Initial program 52.9
Taylor expanded in b around -inf 3.5
if -3.996635431194612e121 < b < 2.7919095286000728e-58Initial program 13.4
Applied egg-rr13.4
if 2.7919095286000728e-58 < b Initial program 54.0
Taylor expanded in b around inf 8.0
Final simplification10.0
herbie shell --seed 2022127
(FPCore (a b c)
:name "Quadratic roots, full range"
:precision binary64
(/ (+ (- b) (sqrt (- (* b b) (* (* 4.0 a) c)))) (* 2.0 a)))