Average Error: 0.0 → 0.0
Time: 2.0s
Precision: 64
\[\frac{x + 1}{1 - x}\]
↓
\[\sqrt[3]{{\left(\frac{x + 1}{1 - x}\right)}^{3}}\]
\frac{x + 1}{1 - x}
↓
\sqrt[3]{{\left(\frac{x + 1}{1 - x}\right)}^{3}}
double f(double x) {
        double r39900 = x;
        double r39901 = 1.0;
        double r39902 = r39900 + r39901;
        double r39903 = r39901 - r39900;
        double r39904 = r39902 / r39903;
        return r39904;
}
↓
double f(double x) {
        double r39905 = x;
        double r39906 = 1.0;
        double r39907 = r39905 + r39906;
        double r39908 = r39906 - r39905;
        double r39909 = r39907 / r39908;
        double r39910 = 3.0;
        double r39911 = pow(r39909, r39910);
        double r39912 = cbrt(r39911);
        return r39912;
}

Error

Bits error versus x

Try it out

Your Program's Arguments

Results

Enter valid numbers for all inputs

Derivation

  1. Initial program 0.0

    \[\frac{x + 1}{1 - x}\]
  2. Using strategy rm

  3. Applied add-cbrt-cube21.1

    \[\leadsto \frac{x + 1}{\color{blue}{\sqrt[3]{\left(\left(1 - x\right) \cdot \left(1 - x\right)\right) \cdot \left(1 - x\right)}}}\]

  4. Applied add-cbrt-cube21.7

    \[\leadsto \frac{\color{blue}{\sqrt[3]{\left(\left(x + 1\right) \cdot \left(x + 1\right)\right) \cdot \left(x + 1\right)}}}{\sqrt[3]{\left(\left(1 - x\right) \cdot \left(1 - x\right)\right) \cdot \left(1 - x\right)}}\]

  5. Applied cbrt-undiv21.7

    \[\leadsto \color{blue}{\sqrt[3]{\frac{\left(\left(x + 1\right) \cdot \left(x + 1\right)\right) \cdot \left(x + 1\right)}{\left(\left(1 - x\right) \cdot \left(1 - x\right)\right) \cdot \left(1 - x\right)}}}\]

  6. Simplified0.0

    \[\leadsto \sqrt[3]{\color{blue}{{\left(\frac{x + 1}{1 - x}\right)}^{3}}}\]

  7. Final simplification0.0

    \[\leadsto \sqrt[3]{{\left(\frac{x + 1}{1 - x}\right)}^{3}}\]

Reproduce

herbie shell --seed 2020001 +o rules:numerics
(FPCore (x)
  :name "Prelude:atanh from fay-base-0.20.0.1"
  :precision binary64
  (/ (+ x 1) (- 1 x)))