\frac{x + 1}{1 - x}\frac{x + 1}{1 - x}double f(double x) {
double r30021 = x;
double r30022 = 1.0;
double r30023 = r30021 + r30022;
double r30024 = r30022 - r30021;
double r30025 = r30023 / r30024;
return r30025;
}
double f(double x) {
double r30026 = x;
double r30027 = 1.0;
double r30028 = r30026 + r30027;
double r30029 = r30027 - r30026;
double r30030 = r30028 / r30029;
return r30030;
}



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