\frac{x0}{1 - x1} - x0\begin{array}{l}
\mathbf{if}\;x1 \le 0.01820459765624999823319107861152588156983:\\
\;\;\;\;\mathsf{fma}\left(\sqrt[3]{x0} \cdot \sqrt[3]{x0}, \frac{\sqrt[3]{x0}}{1 - x1}, -x0\right)\\
\mathbf{else}:\\
\;\;\;\;\mathsf{fma}\left(\frac{\sqrt{x0}}{\sqrt{1} + \sqrt{x1}}, \frac{\sqrt{x0}}{\sqrt{1} - \sqrt{x1}}, -x0\right)\\
\end{array}double f(double x0, double x1) {
double r5742643 = x0;
double r5742644 = 1.0;
double r5742645 = x1;
double r5742646 = r5742644 - r5742645;
double r5742647 = r5742643 / r5742646;
double r5742648 = r5742647 - r5742643;
return r5742648;
}
double f(double x0, double x1) {
double r5742649 = x1;
double r5742650 = 0.018204597656249998;
bool r5742651 = r5742649 <= r5742650;
double r5742652 = x0;
double r5742653 = cbrt(r5742652);
double r5742654 = r5742653 * r5742653;
double r5742655 = 1.0;
double r5742656 = r5742655 - r5742649;
double r5742657 = r5742653 / r5742656;
double r5742658 = -r5742652;
double r5742659 = fma(r5742654, r5742657, r5742658);
double r5742660 = sqrt(r5742652);
double r5742661 = sqrt(r5742655);
double r5742662 = sqrt(r5742649);
double r5742663 = r5742661 + r5742662;
double r5742664 = r5742660 / r5742663;
double r5742665 = r5742661 - r5742662;
double r5742666 = r5742660 / r5742665;
double r5742667 = fma(r5742664, r5742666, r5742658);
double r5742668 = r5742651 ? r5742659 : r5742667;
return r5742668;
}




Bits error versus x0




Bits error versus x1
| Original | 7.9 |
|---|---|
| Target | 0.3 |
| Herbie | 6.1 |
if x1 < 0.018204597656249998Initial program 11.2
rmApplied *-un-lft-identity11.2
Applied add-cube-cbrt11.2
Applied times-frac10.9
Applied fma-neg8.9
if 0.018204597656249998 < x1 Initial program 4.6
rmApplied add-sqr-sqrt4.6
Applied add-sqr-sqrt4.6
Applied difference-of-squares4.6
Applied add-sqr-sqrt4.6
Applied times-frac5.2
Applied fma-neg3.3
Final simplification6.1
herbie shell --seed 2019172 +o rules:numerics
(FPCore (x0 x1)
:name "(- (/ x0 (- 1 x1)) x0)"
:pre (or (and (== x0 1.855) (== x1 0.000209)) (and (== x0 2.985) (== x1 0.0186)))
:herbie-target
(/ (* x0 x1) (- 1.0 x1))
(- (/ x0 (- 1.0 x1)) x0))