\frac{x + 1}{1 - x}\frac{x + 1}{1 - x}double f(double x) {
double r17350 = x;
double r17351 = 1.0;
double r17352 = r17350 + r17351;
double r17353 = r17351 - r17350;
double r17354 = r17352 / r17353;
return r17354;
}
double f(double x) {
double r17355 = x;
double r17356 = 1.0;
double r17357 = r17355 + r17356;
double r17358 = r17356 - r17355;
double r17359 = r17357 / r17358;
return r17359;
}



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