\frac{\left(-b\right) + \sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\begin{array}{l}
\mathbf{if}\;b \le -7.6038168240882645 \cdot 10^{144}:\\
\;\;\;\;1 \cdot \left(\frac{c}{b} - \frac{b}{a}\right)\\
\mathbf{elif}\;b \le -3.2731438419880699 \cdot 10^{-203}:\\
\;\;\;\;\frac{\left(-b\right) + \sqrt{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}} \cdot \sqrt{\sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}}{2 \cdot a}\\
\mathbf{elif}\;b \le 2.1125387673008883 \cdot 10^{122}:\\
\;\;\;\;\frac{\frac{\frac{1}{\frac{2}{4}}}{\frac{1}{c}}}{\left(-b\right) - \sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}\\
\mathbf{else}:\\
\;\;\;\;-1 \cdot \frac{c}{b}\\
\end{array}double f(double a, double b, double c) {
double r101550 = b;
double r101551 = -r101550;
double r101552 = r101550 * r101550;
double r101553 = 4.0;
double r101554 = a;
double r101555 = c;
double r101556 = r101554 * r101555;
double r101557 = r101553 * r101556;
double r101558 = r101552 - r101557;
double r101559 = sqrt(r101558);
double r101560 = r101551 + r101559;
double r101561 = 2.0;
double r101562 = r101561 * r101554;
double r101563 = r101560 / r101562;
return r101563;
}
double f(double a, double b, double c) {
double r101564 = b;
double r101565 = -7.603816824088264e+144;
bool r101566 = r101564 <= r101565;
double r101567 = 1.0;
double r101568 = c;
double r101569 = r101568 / r101564;
double r101570 = a;
double r101571 = r101564 / r101570;
double r101572 = r101569 - r101571;
double r101573 = r101567 * r101572;
double r101574 = -3.27314384198807e-203;
bool r101575 = r101564 <= r101574;
double r101576 = -r101564;
double r101577 = r101564 * r101564;
double r101578 = 4.0;
double r101579 = r101570 * r101568;
double r101580 = r101578 * r101579;
double r101581 = r101577 - r101580;
double r101582 = sqrt(r101581);
double r101583 = sqrt(r101582);
double r101584 = r101583 * r101583;
double r101585 = r101576 + r101584;
double r101586 = 2.0;
double r101587 = r101586 * r101570;
double r101588 = r101585 / r101587;
double r101589 = 2.1125387673008883e+122;
bool r101590 = r101564 <= r101589;
double r101591 = 1.0;
double r101592 = r101586 / r101578;
double r101593 = r101591 / r101592;
double r101594 = r101591 / r101568;
double r101595 = r101593 / r101594;
double r101596 = r101576 - r101582;
double r101597 = r101595 / r101596;
double r101598 = -1.0;
double r101599 = r101598 * r101569;
double r101600 = r101590 ? r101597 : r101599;
double r101601 = r101575 ? r101588 : r101600;
double r101602 = r101566 ? r101573 : r101601;
return r101602;
}




Bits error versus a




Bits error versus b




Bits error versus c
Results
| Original | 34.2 |
|---|---|
| Target | 21.2 |
| Herbie | 6.5 |
if b < -7.603816824088264e+144Initial program 61.2
Taylor expanded around -inf 2.8
Simplified2.8
if -7.603816824088264e+144 < b < -3.27314384198807e-203Initial program 7.1
rmApplied add-sqr-sqrt7.1
Applied sqrt-prod7.4
if -3.27314384198807e-203 < b < 2.1125387673008883e+122Initial program 29.8
rmApplied flip-+29.9
Simplified16.2
rmApplied clear-num16.3
Simplified15.5
rmApplied associate-/r*15.3
Simplified9.5
if 2.1125387673008883e+122 < b Initial program 61.0
Taylor expanded around inf 2.1
Final simplification6.5
herbie shell --seed 2020036
(FPCore (a b c)
:name "quadp (p42, positive)"
:precision binary64
:herbie-target
(if (< b 0.0) (/ (+ (- b) (sqrt (- (* b b) (* 4 (* a c))))) (* 2 a)) (/ c (* a (/ (- (- b) (sqrt (- (* b b) (* 4 (* a c))))) (* 2 a)))))
(/ (+ (- b) (sqrt (- (* b b) (* 4 (* a c))))) (* 2 a)))