\frac{\left(-b_2\right) - \sqrt{b_2 \cdot b_2 - a \cdot c}}{a}\begin{array}{l}
\mathbf{if}\;b_2 \leq -2.392490559006445 \cdot 10^{+98}:\\
\;\;\;\;-0.5 \cdot \frac{c}{b_2}\\
\mathbf{elif}\;b_2 \leq -4.419827363071725 \cdot 10^{-280}:\\
\;\;\;\;\frac{c}{\sqrt{b_2 \cdot b_2 - c \cdot a} - b_2}\\
\mathbf{elif}\;b_2 \leq 5.306662329996804 \cdot 10^{+102}:\\
\;\;\;\;\frac{\left(-b_2\right) - \sqrt{b_2 \cdot b_2 - c \cdot a}}{a}\\
\mathbf{else}:\\
\;\;\;\;\frac{b_2 \cdot -2}{a}\\
\end{array}(FPCore (a b_2 c) :precision binary64 (/ (- (- b_2) (sqrt (- (* b_2 b_2) (* a c)))) a))
(FPCore (a b_2 c)
:precision binary64
(if (<= b_2 -2.392490559006445e+98)
(* -0.5 (/ c b_2))
(if (<= b_2 -4.419827363071725e-280)
(/ c (- (sqrt (- (* b_2 b_2) (* c a))) b_2))
(if (<= b_2 5.306662329996804e+102)
(/ (- (- b_2) (sqrt (- (* b_2 b_2) (* c a)))) a)
(/ (* b_2 -2.0) a)))))double code(double a, double b_2, double c) {
return (-b_2 - sqrt((b_2 * b_2) - (a * c))) / a;
}
double code(double a, double b_2, double c) {
double tmp;
if (b_2 <= -2.392490559006445e+98) {
tmp = -0.5 * (c / b_2);
} else if (b_2 <= -4.419827363071725e-280) {
tmp = c / (sqrt((b_2 * b_2) - (c * a)) - b_2);
} else if (b_2 <= 5.306662329996804e+102) {
tmp = (-b_2 - sqrt((b_2 * b_2) - (c * a))) / a;
} else {
tmp = (b_2 * -2.0) / a;
}
return tmp;
}



Bits error versus a



Bits error versus b_2



Bits error versus c
Results
if b_2 < -2.39249055900644496e98Initial program 59.2
Taylor expanded around -inf 2.4
if -2.39249055900644496e98 < b_2 < -4.41982736307172482e-280Initial program 33.7
rmApplied flip--_binary6433.7
Simplified16.3
Simplified16.3
rmApplied clear-num_binary6416.4
Simplified9.2
rmApplied *-un-lft-identity_binary649.2
Applied *-un-lft-identity_binary649.2
Applied times-frac_binary649.2
Applied add-sqr-sqrt_binary649.2
Applied times-frac_binary649.2
Simplified9.2
Simplified8.7
if -4.41982736307172482e-280 < b_2 < 5.3066623299968035e102Initial program 9.5
if 5.3066623299968035e102 < b_2 Initial program 47.8
rmApplied flip--_binary6463.2
Simplified62.3
Simplified62.3
Taylor expanded around 0 4.2
Simplified4.2
Final simplification6.8
herbie shell --seed 2020273
(FPCore (a b_2 c)
:name "quad2m (problem 3.2.1, negative)"
:precision binary64
(/ (- (- b_2) (sqrt (- (* b_2 b_2) (* a c)))) a))