\frac{x + 1}{1 - x}\frac{1 + x}{1 - x}double f(double x) {
double r1318066 = x;
double r1318067 = 1.0;
double r1318068 = r1318066 + r1318067;
double r1318069 = r1318067 - r1318066;
double r1318070 = r1318068 / r1318069;
return r1318070;
}
double f(double x) {
double r1318071 = 1.0;
double r1318072 = x;
double r1318073 = r1318071 + r1318072;
double r1318074 = r1318071 - r1318072;
double r1318075 = r1318073 / r1318074;
return r1318075;
}



Bits error versus x
Results
Initial program 0.0
Final simplification0.0
herbie shell --seed 2019192 +o rules:numerics
(FPCore (x)
:name "Prelude:atanh from fay-base-0.20.0.1"
(/ (+ x 1.0) (- 1.0 x)))