\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 r126775 = x0;
double r126776 = 1.0;
double r126777 = x1;
double r126778 = r126776 - r126777;
double r126779 = r126775 / r126778;
double r126780 = r126779 - r126775;
return r126780;
}
double f(double x0, double x1) {
double r126781 = x1;
double r126782 = 0.018204597656249998;
bool r126783 = r126781 <= r126782;
double r126784 = x0;
double r126785 = cbrt(r126784);
double r126786 = r126785 * r126785;
double r126787 = 1.0;
double r126788 = r126787 - r126781;
double r126789 = r126785 / r126788;
double r126790 = -r126784;
double r126791 = fma(r126786, r126789, r126790);
double r126792 = sqrt(r126784);
double r126793 = sqrt(r126787);
double r126794 = sqrt(r126781);
double r126795 = r126793 + r126794;
double r126796 = r126792 / r126795;
double r126797 = r126793 - r126794;
double r126798 = r126792 / r126797;
double r126799 = fma(r126796, r126798, r126790);
double r126800 = r126783 ? r126791 : r126799;
return r126800;
}




Bits error versus x0




Bits error versus x1
| Original | 7.8 |
|---|---|
| Target | 0.3 |
| Herbie | 6.0 |
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.5
rmApplied add-sqr-sqrt4.5
Applied add-sqr-sqrt4.5
Applied difference-of-squares4.5
Applied add-sqr-sqrt4.5
Applied times-frac5.2
Applied fma-neg3.2
Final simplification6.0
herbie shell --seed 2019306 +o rules:numerics
(FPCore (x0 x1)
:name "(- (/ x0 (- 1 x1)) x0)"
:precision binary64
:pre (or (and (== x0 1.855) (== x1 2.09000000000000012e-4)) (and (== x0 2.98499999999999988) (== x1 0.018599999999999998)))
:herbie-target
(/ (* x0 x1) (- 1 x1))
(- (/ x0 (- 1 x1)) x0))