\frac{x + 1}{1 - x}\frac{x + 1}{1 - x}double f(double x) {
double r40703 = x;
double r40704 = 1.0;
double r40705 = r40703 + r40704;
double r40706 = r40704 - r40703;
double r40707 = r40705 / r40706;
return r40707;
}
double f(double x) {
double r40708 = x;
double r40709 = 1.0;
double r40710 = r40708 + r40709;
double r40711 = r40709 - r40708;
double r40712 = r40710 / r40711;
return r40712;
}



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