\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 -3.157094219357017 \cdot 10^{+135}:\\
\;\;\;\;\frac{c}{b} - \frac{b}{a}\\
\mathbf{elif}\;b \le 9.088113400659685 \cdot 10^{-185}:\\
\;\;\;\;\frac{\sqrt{b \cdot b - \left(a \cdot 4\right) \cdot c} - b}{a \cdot 2}\\
\mathbf{elif}\;b \le 1.8091015183831773 \cdot 10^{+43}:\\
\;\;\;\;\frac{1}{\sqrt{b \cdot b - \left(a \cdot 4\right) \cdot c} + b} \cdot \left(\sqrt{\frac{1}{2}} \cdot \left(\frac{c}{\frac{-1}{4}} \cdot \sqrt{\frac{1}{2}}\right)\right)\\
\mathbf{else}:\\
\;\;\;\;-\frac{c}{b}\\
\end{array}double f(double a, double b, double c) {
double r7945480 = b;
double r7945481 = -r7945480;
double r7945482 = r7945480 * r7945480;
double r7945483 = 4.0;
double r7945484 = a;
double r7945485 = c;
double r7945486 = r7945484 * r7945485;
double r7945487 = r7945483 * r7945486;
double r7945488 = r7945482 - r7945487;
double r7945489 = sqrt(r7945488);
double r7945490 = r7945481 + r7945489;
double r7945491 = 2.0;
double r7945492 = r7945491 * r7945484;
double r7945493 = r7945490 / r7945492;
return r7945493;
}
double f(double a, double b, double c) {
double r7945494 = b;
double r7945495 = -3.157094219357017e+135;
bool r7945496 = r7945494 <= r7945495;
double r7945497 = c;
double r7945498 = r7945497 / r7945494;
double r7945499 = a;
double r7945500 = r7945494 / r7945499;
double r7945501 = r7945498 - r7945500;
double r7945502 = 9.088113400659685e-185;
bool r7945503 = r7945494 <= r7945502;
double r7945504 = r7945494 * r7945494;
double r7945505 = 4.0;
double r7945506 = r7945499 * r7945505;
double r7945507 = r7945506 * r7945497;
double r7945508 = r7945504 - r7945507;
double r7945509 = sqrt(r7945508);
double r7945510 = r7945509 - r7945494;
double r7945511 = 2.0;
double r7945512 = r7945499 * r7945511;
double r7945513 = r7945510 / r7945512;
double r7945514 = 1.8091015183831773e+43;
bool r7945515 = r7945494 <= r7945514;
double r7945516 = 1.0;
double r7945517 = r7945509 + r7945494;
double r7945518 = r7945516 / r7945517;
double r7945519 = 0.5;
double r7945520 = sqrt(r7945519);
double r7945521 = -0.25;
double r7945522 = r7945497 / r7945521;
double r7945523 = r7945522 * r7945520;
double r7945524 = r7945520 * r7945523;
double r7945525 = r7945518 * r7945524;
double r7945526 = -r7945498;
double r7945527 = r7945515 ? r7945525 : r7945526;
double r7945528 = r7945503 ? r7945513 : r7945527;
double r7945529 = r7945496 ? r7945501 : r7945528;
return r7945529;
}




Bits error versus a




Bits error versus b




Bits error versus c
Results
| Original | 33.9 |
|---|---|
| Target | 20.9 |
| Herbie | 7.3 |
if b < -3.157094219357017e+135Initial program 54.4
Simplified54.4
Taylor expanded around -inf 2.8
if -3.157094219357017e+135 < b < 9.088113400659685e-185Initial program 10.8
Simplified10.8
if 9.088113400659685e-185 < b < 1.8091015183831773e+43Initial program 34.3
Simplified34.4
rmApplied clear-num34.4
rmApplied flip--34.5
Applied associate-/r/34.6
Applied *-un-lft-identity34.6
Applied times-frac34.6
Simplified17.1
rmApplied add-sqr-sqrt17.6
Applied *-un-lft-identity17.6
Applied times-frac17.5
Applied *-un-lft-identity17.5
Applied times-frac17.4
Simplified17.4
Simplified7.7
if 1.8091015183831773e+43 < b Initial program 56.4
Simplified56.4
Taylor expanded around inf 4.2
Simplified4.2
Final simplification7.3
herbie shell --seed 2019120
(FPCore (a b c)
:name "quadp (p42, positive)"
:herbie-target
(if (< b 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)))