\frac{x + 1}{1 - x}\frac{x + 1}{1 - x}double f(double x) {
double r34673 = x;
double r34674 = 1.0;
double r34675 = r34673 + r34674;
double r34676 = r34674 - r34673;
double r34677 = r34675 / r34676;
return r34677;
}
double f(double x) {
double r34678 = x;
double r34679 = 1.0;
double r34680 = r34678 + r34679;
double r34681 = r34679 - r34678;
double r34682 = r34680 / r34681;
return r34682;
}



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