\frac{\left(-b_2\right) + \sqrt{b_2 \cdot b_2 - a \cdot c}}{a}\begin{array}{l}
\mathbf{if}\;b_2 \le -2.766818940874854722177248139872145176232 \cdot 10^{100}:\\
\;\;\;\;\frac{1}{2} \cdot \frac{c}{b_2} - 2 \cdot \frac{b_2}{a}\\
\mathbf{elif}\;b_2 \le 7.923524897992036987166355557663274472861 \cdot 10^{-153}:\\
\;\;\;\;\frac{\sqrt{b_2 \cdot b_2 - a \cdot c} - b_2}{a}\\
\mathbf{else}:\\
\;\;\;\;\frac{c}{b_2} \cdot \frac{-1}{2}\\
\end{array}double f(double a, double b_2, double c) {
double r758428 = b_2;
double r758429 = -r758428;
double r758430 = r758428 * r758428;
double r758431 = a;
double r758432 = c;
double r758433 = r758431 * r758432;
double r758434 = r758430 - r758433;
double r758435 = sqrt(r758434);
double r758436 = r758429 + r758435;
double r758437 = r758436 / r758431;
return r758437;
}
double f(double a, double b_2, double c) {
double r758438 = b_2;
double r758439 = -2.7668189408748547e+100;
bool r758440 = r758438 <= r758439;
double r758441 = 0.5;
double r758442 = c;
double r758443 = r758442 / r758438;
double r758444 = r758441 * r758443;
double r758445 = 2.0;
double r758446 = a;
double r758447 = r758438 / r758446;
double r758448 = r758445 * r758447;
double r758449 = r758444 - r758448;
double r758450 = 7.923524897992037e-153;
bool r758451 = r758438 <= r758450;
double r758452 = r758438 * r758438;
double r758453 = r758446 * r758442;
double r758454 = r758452 - r758453;
double r758455 = sqrt(r758454);
double r758456 = r758455 - r758438;
double r758457 = r758456 / r758446;
double r758458 = -0.5;
double r758459 = r758443 * r758458;
double r758460 = r758451 ? r758457 : r758459;
double r758461 = r758440 ? r758449 : r758460;
return r758461;
}



Bits error versus a



Bits error versus b_2



Bits error versus c
Results
if b_2 < -2.7668189408748547e+100Initial program 47.1
Simplified47.1
Taylor expanded around -inf 4.0
if -2.7668189408748547e+100 < b_2 < 7.923524897992037e-153Initial program 10.8
Simplified10.8
rmApplied div-inv10.9
rmApplied un-div-inv10.8
if 7.923524897992037e-153 < b_2 Initial program 50.5
Simplified50.5
Taylor expanded around inf 12.7
Final simplification10.6
herbie shell --seed 2019200
(FPCore (a b_2 c)
:name "quad2p (problem 3.2.1, positive)"
(/ (+ (- b_2) (sqrt (- (* b_2 b_2) (* a c)))) a))