\frac{x + 1}{1 - x}\log \left(e^{\frac{x + 1}{1 - x}}\right)double f(double x) {
double r46605 = x;
double r46606 = 1.0;
double r46607 = r46605 + r46606;
double r46608 = r46606 - r46605;
double r46609 = r46607 / r46608;
return r46609;
}
double f(double x) {
double r46610 = x;
double r46611 = 1.0;
double r46612 = r46610 + r46611;
double r46613 = r46611 - r46610;
double r46614 = r46612 / r46613;
double r46615 = exp(r46614);
double r46616 = log(r46615);
return r46616;
}



Bits error versus x
Results
Initial program 0.0
rmApplied add-log-exp0.0
Final simplification0.0
herbie shell --seed 2020035
(FPCore (x)
:name "Prelude:atanh from fay-base-0.20.0.1"
:precision binary64
(/ (+ x 1) (- 1 x)))