\frac{\left(-b_2\right) - \sqrt{b_2 \cdot b_2 - a \cdot c}}{a}\begin{array}{l}
\mathbf{if}\;b_2 \le -1.264659490877097952776006549579654784856 \cdot 10^{-67}:\\
\;\;\;\;\frac{-1}{2} \cdot \frac{c}{b_2}\\
\mathbf{elif}\;b_2 \le 0.173897874048477174557802982235443778336:\\
\;\;\;\;\frac{-\left(\sqrt{b_2 \cdot b_2 - c \cdot a} + b_2\right)}{a}\\
\mathbf{else}:\\
\;\;\;\;\mathsf{fma}\left(-2, \frac{b_2}{a}, \frac{c}{b_2} \cdot \frac{1}{2}\right)\\
\end{array}double f(double a, double b_2, double c) {
double r902495 = b_2;
double r902496 = -r902495;
double r902497 = r902495 * r902495;
double r902498 = a;
double r902499 = c;
double r902500 = r902498 * r902499;
double r902501 = r902497 - r902500;
double r902502 = sqrt(r902501);
double r902503 = r902496 - r902502;
double r902504 = r902503 / r902498;
return r902504;
}
double f(double a, double b_2, double c) {
double r902505 = b_2;
double r902506 = -1.264659490877098e-67;
bool r902507 = r902505 <= r902506;
double r902508 = -0.5;
double r902509 = c;
double r902510 = r902509 / r902505;
double r902511 = r902508 * r902510;
double r902512 = 0.17389787404847717;
bool r902513 = r902505 <= r902512;
double r902514 = r902505 * r902505;
double r902515 = a;
double r902516 = r902509 * r902515;
double r902517 = r902514 - r902516;
double r902518 = sqrt(r902517);
double r902519 = r902518 + r902505;
double r902520 = -r902519;
double r902521 = r902520 / r902515;
double r902522 = -2.0;
double r902523 = r902505 / r902515;
double r902524 = 0.5;
double r902525 = r902510 * r902524;
double r902526 = fma(r902522, r902523, r902525);
double r902527 = r902513 ? r902521 : r902526;
double r902528 = r902507 ? r902511 : r902527;
return r902528;
}



Bits error versus a



Bits error versus b_2



Bits error versus c
if b_2 < -1.264659490877098e-67Initial program 53.5
Taylor expanded around -inf 8.1
if -1.264659490877098e-67 < b_2 < 0.17389787404847717Initial program 15.2
rmApplied *-un-lft-identity15.2
Applied associate-/r*15.2
Simplified15.2
if 0.17389787404847717 < b_2 Initial program 31.2
rmApplied div-inv31.3
Taylor expanded around inf 7.3
Simplified7.3
Final simplification10.4
herbie shell --seed 2019168 +o rules:numerics
(FPCore (a b_2 c)
:name "quad2m (problem 3.2.1, negative)"
(/ (- (- b_2) (sqrt (- (* b_2 b_2) (* a c)))) a))