\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 r95706 = b;
double r95707 = -r95706;
double r95708 = r95706 * r95706;
double r95709 = 4.0;
double r95710 = a;
double r95711 = c;
double r95712 = r95710 * r95711;
double r95713 = r95709 * r95712;
double r95714 = r95708 - r95713;
double r95715 = sqrt(r95714);
double r95716 = r95707 + r95715;
double r95717 = 2.0;
double r95718 = r95717 * r95710;
double r95719 = r95716 / r95718;
return r95719;
}
double f(double a, double b, double c) {
double r95720 = b;
double r95721 = -7.603816824088264e+144;
bool r95722 = r95720 <= r95721;
double r95723 = 1.0;
double r95724 = c;
double r95725 = r95724 / r95720;
double r95726 = a;
double r95727 = r95720 / r95726;
double r95728 = r95725 - r95727;
double r95729 = r95723 * r95728;
double r95730 = -3.27314384198807e-203;
bool r95731 = r95720 <= r95730;
double r95732 = -r95720;
double r95733 = r95720 * r95720;
double r95734 = 4.0;
double r95735 = r95726 * r95724;
double r95736 = r95734 * r95735;
double r95737 = r95733 - r95736;
double r95738 = sqrt(r95737);
double r95739 = sqrt(r95738);
double r95740 = r95739 * r95739;
double r95741 = r95732 + r95740;
double r95742 = 2.0;
double r95743 = r95742 * r95726;
double r95744 = r95741 / r95743;
double r95745 = 2.1125387673008883e+122;
bool r95746 = r95720 <= r95745;
double r95747 = 1.0;
double r95748 = r95742 / r95734;
double r95749 = r95747 / r95748;
double r95750 = r95747 / r95724;
double r95751 = r95749 / r95750;
double r95752 = r95732 - r95738;
double r95753 = r95751 / r95752;
double r95754 = -1.0;
double r95755 = r95754 * r95725;
double r95756 = r95746 ? r95753 : r95755;
double r95757 = r95731 ? r95744 : r95756;
double r95758 = r95722 ? r95729 : r95757;
return r95758;
}




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 *-un-lft-identity16.2
Applied *-un-lft-identity16.2
Applied times-frac16.2
Applied associate-/l*16.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)))