\frac{x + 1}{1 - x}\frac{1 + x}{1 - x}double f(double x) {
double r1373727 = x;
double r1373728 = 1.0;
double r1373729 = r1373727 + r1373728;
double r1373730 = r1373728 - r1373727;
double r1373731 = r1373729 / r1373730;
return r1373731;
}
double f(double x) {
double r1373732 = 1.0;
double r1373733 = x;
double r1373734 = r1373732 + r1373733;
double r1373735 = r1373732 - r1373733;
double r1373736 = r1373734 / r1373735;
return r1373736;
}



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