\frac{x + 1}{1 - x}\sqrt[3]{\sqrt[3]{{\left({\left(\frac{x + 1}{1 - x}\right)}^{3}\right)}^{3}}}double f(double x) {
double r41576 = x;
double r41577 = 1.0;
double r41578 = r41576 + r41577;
double r41579 = r41577 - r41576;
double r41580 = r41578 / r41579;
return r41580;
}
double f(double x) {
double r41581 = x;
double r41582 = 1.0;
double r41583 = r41581 + r41582;
double r41584 = r41582 - r41581;
double r41585 = r41583 / r41584;
double r41586 = 3.0;
double r41587 = pow(r41585, r41586);
double r41588 = pow(r41587, r41586);
double r41589 = cbrt(r41588);
double r41590 = cbrt(r41589);
return r41590;
}



Bits error versus x
Results
Initial program 0.0
rmApplied add-cbrt-cube20.6
Applied add-cbrt-cube21.2
Applied cbrt-undiv21.2
Simplified0.0
rmApplied add-cbrt-cube0.0
Simplified0.0
Final simplification0.0
herbie shell --seed 2019362 +o rules:numerics
(FPCore (x)
:name "Prelude:atanh from fay-base-0.20.0.1"
:precision binary64
(/ (+ x 1) (- 1 x)))