\frac{x + 1}{1 - x}\frac{x + 1}{1 - x}double f(double x) {
double r40015 = x;
double r40016 = 1.0;
double r40017 = r40015 + r40016;
double r40018 = r40016 - r40015;
double r40019 = r40017 / r40018;
return r40019;
}
double f(double x) {
double r40020 = x;
double r40021 = 1.0;
double r40022 = r40020 + r40021;
double r40023 = r40021 - r40020;
double r40024 = r40022 / r40023;
return r40024;
}



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