\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 r6911002 = x0;
double r6911003 = 1.0;
double r6911004 = x1;
double r6911005 = r6911003 - r6911004;
double r6911006 = r6911002 / r6911005;
double r6911007 = r6911006 - r6911002;
return r6911007;
}
double f(double x0, double x1) {
double r6911008 = x1;
double r6911009 = 0.018204597656249998;
bool r6911010 = r6911008 <= r6911009;
double r6911011 = x0;
double r6911012 = cbrt(r6911011);
double r6911013 = r6911012 * r6911012;
double r6911014 = 1.0;
double r6911015 = r6911014 - r6911008;
double r6911016 = r6911012 / r6911015;
double r6911017 = -r6911011;
double r6911018 = fma(r6911013, r6911016, r6911017);
double r6911019 = sqrt(r6911011);
double r6911020 = sqrt(r6911014);
double r6911021 = sqrt(r6911008);
double r6911022 = r6911020 + r6911021;
double r6911023 = r6911019 / r6911022;
double r6911024 = r6911020 - r6911021;
double r6911025 = r6911019 / r6911024;
double r6911026 = fma(r6911023, r6911025, r6911017);
double r6911027 = r6911010 ? r6911018 : r6911026;
return r6911027;
}




Bits error versus x0




Bits error versus x1
| Original | 7.8 |
|---|---|
| Target | 0.2 |
| 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.1
Final simplification6.0
herbie shell --seed 2019168 +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))