\frac{x + 1}{1 - x}\frac{x + 1}{1 - x}double f(double x) {
double r27565 = x;
double r27566 = 1.0;
double r27567 = r27565 + r27566;
double r27568 = r27566 - r27565;
double r27569 = r27567 / r27568;
return r27569;
}
double f(double x) {
double r27570 = x;
double r27571 = 1.0;
double r27572 = r27570 + r27571;
double r27573 = r27571 - r27570;
double r27574 = r27572 / r27573;
return r27574;
}



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