\frac{x + 1}{1 - x}\log \left(e^{\frac{1 + x}{1 - x}}\right)double f(double x) {
double r1683873 = x;
double r1683874 = 1.0;
double r1683875 = r1683873 + r1683874;
double r1683876 = r1683874 - r1683873;
double r1683877 = r1683875 / r1683876;
return r1683877;
}
double f(double x) {
double r1683878 = 1.0;
double r1683879 = x;
double r1683880 = r1683878 + r1683879;
double r1683881 = r1683878 - r1683879;
double r1683882 = r1683880 / r1683881;
double r1683883 = exp(r1683882);
double r1683884 = log(r1683883);
return r1683884;
}



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