\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 -2.39290314529454019 \cdot 10^{111}:\\
\;\;\;\;1 \cdot \left(\frac{c}{b} - \frac{b}{a}\right)\\
\mathbf{elif}\;b \le -4.9276367402926466 \cdot 10^{-151}:\\
\;\;\;\;\frac{\sqrt{\left(-b\right) + \sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}}{2} \cdot \frac{\sqrt{\left(-b\right) + \sqrt{b \cdot b - 4 \cdot \left(a \cdot c\right)}}}{a}\\
\mathbf{elif}\;b \le 2.05720507804008149 \cdot 10^{80}:\\
\;\;\;\;\left(\frac{1}{0.5} \cdot c\right) \cdot \frac{1}{\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 r69539 = b;
double r69540 = -r69539;
double r69541 = r69539 * r69539;
double r69542 = 4.0;
double r69543 = a;
double r69544 = c;
double r69545 = r69543 * r69544;
double r69546 = r69542 * r69545;
double r69547 = r69541 - r69546;
double r69548 = sqrt(r69547);
double r69549 = r69540 + r69548;
double r69550 = 2.0;
double r69551 = r69550 * r69543;
double r69552 = r69549 / r69551;
return r69552;
}
double f(double a, double b, double c) {
double r69553 = b;
double r69554 = -2.3929031452945402e+111;
bool r69555 = r69553 <= r69554;
double r69556 = 1.0;
double r69557 = c;
double r69558 = r69557 / r69553;
double r69559 = a;
double r69560 = r69553 / r69559;
double r69561 = r69558 - r69560;
double r69562 = r69556 * r69561;
double r69563 = -4.9276367402926466e-151;
bool r69564 = r69553 <= r69563;
double r69565 = -r69553;
double r69566 = r69553 * r69553;
double r69567 = 4.0;
double r69568 = r69559 * r69557;
double r69569 = r69567 * r69568;
double r69570 = r69566 - r69569;
double r69571 = sqrt(r69570);
double r69572 = r69565 + r69571;
double r69573 = sqrt(r69572);
double r69574 = 2.0;
double r69575 = r69573 / r69574;
double r69576 = r69573 / r69559;
double r69577 = r69575 * r69576;
double r69578 = 2.0572050780400815e+80;
bool r69579 = r69553 <= r69578;
double r69580 = 1.0;
double r69581 = 0.5;
double r69582 = r69580 / r69581;
double r69583 = r69582 * r69557;
double r69584 = r69565 - r69571;
double r69585 = r69580 / r69584;
double r69586 = r69583 * r69585;
double r69587 = -1.0;
double r69588 = r69587 * r69558;
double r69589 = r69579 ? r69586 : r69588;
double r69590 = r69564 ? r69577 : r69589;
double r69591 = r69555 ? r69562 : r69590;
return r69591;
}




Bits error versus a




Bits error versus b




Bits error versus c
Results
| Original | 34.2 |
|---|---|
| Target | 20.8 |
| Herbie | 6.8 |
if b < -2.3929031452945402e+111Initial program 49.3
Taylor expanded around -inf 3.3
Simplified3.3
if -2.3929031452945402e+111 < b < -4.9276367402926466e-151Initial program 6.4
rmApplied add-sqr-sqrt6.8
Applied times-frac6.8
if -4.9276367402926466e-151 < b < 2.0572050780400815e+80Initial program 27.0
rmApplied flip-+27.6
Simplified16.3
rmApplied *-un-lft-identity16.3
Applied *-un-lft-identity16.3
Applied times-frac16.3
Applied associate-/l*16.4
Simplified16.2
Taylor expanded around 0 11.0
rmApplied add-cube-cbrt11.0
Applied times-frac10.9
Simplified10.8
Simplified10.8
if 2.0572050780400815e+80 < b Initial program 58.8
Taylor expanded around inf 2.8
Final simplification6.8
herbie shell --seed 2020021
(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)))