\frac{x + 1}{1 - x}\log \left(e^{\frac{x + 1}{1 - x}}\right)double f(double x) {
double r39745 = x;
double r39746 = 1.0;
double r39747 = r39745 + r39746;
double r39748 = r39746 - r39745;
double r39749 = r39747 / r39748;
return r39749;
}
double f(double x) {
double r39750 = x;
double r39751 = 1.0;
double r39752 = r39750 + r39751;
double r39753 = r39751 - r39750;
double r39754 = r39752 / r39753;
double r39755 = exp(r39754);
double r39756 = log(r39755);
return r39756;
}



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