\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 -5.364212800122094 \cdot 10^{+119}:\\
\;\;\;\;\frac{\left(-b\right) - b}{2 \cdot a}\\
\mathbf{elif}\;b \leq -1.3269458115206028 \cdot 10^{-299}:\\
\;\;\;\;\frac{\sqrt{b \cdot b - \left(a \cdot 4\right) \cdot c} - b}{2 \cdot a}\\
\mathbf{elif}\;b \leq 5.705473668258076 \cdot 10^{+56}:\\
\;\;\;\;\frac{c \cdot -2}{b + \sqrt{\mathsf{fma}\left(a, c \cdot -4, b \cdot b\right)}}\\
\mathbf{else}:\\
\;\;\;\;-\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 -5.364212800122094e+119)
(/ (- (- b) b) (* 2.0 a))
(if (<= b -1.3269458115206028e-299)
(/ (- (sqrt (- (* b b) (* (* a 4.0) c))) b) (* 2.0 a))
(if (<= b 5.705473668258076e+56)
(/ (* c -2.0) (+ b (sqrt (fma a (* c -4.0) (* b b)))))
(- (/ 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 <= -5.364212800122094e+119) {
tmp = (-b - b) / (2.0 * a);
} else if (b <= -1.3269458115206028e-299) {
tmp = (sqrt((b * b) - ((a * 4.0) * c)) - b) / (2.0 * a);
} else if (b <= 5.705473668258076e+56) {
tmp = (c * -2.0) / (b + sqrt(fma(a, (c * -4.0), (b * b))));
} else {
tmp = -(c / b);
}
return tmp;
}



Bits error versus a



Bits error versus b



Bits error versus c
if b < -5.3642128001220939e119Initial program 52.4
Taylor expanded in b around -inf 3.5
Simplified3.5
if -5.3642128001220939e119 < b < -1.3269458115206028e-299Initial program 8.6
Applied *-un-lft-identity_binary648.6
if -1.3269458115206028e-299 < b < 5.705473668258076e56Initial program 29.9
Simplified30.0
Applied flip--_binary6430.0
Applied associate-*l/_binary6430.1
Simplified17.2
Taylor expanded in c around 0 9.7
if 5.705473668258076e56 < b Initial program 57.6
Taylor expanded in b around inf 3.9
Simplified3.9
Final simplification6.8
herbie shell --seed 2021225
(FPCore (a b c)
:name "Quadratic roots, full range"
:precision binary64
(/ (+ (- b) (sqrt (- (* b b) (* (* 4.0 a) c)))) (* 2.0 a)))