\frac{x + 1}{1 - x}\frac{x + 1}{1 - x}double f(double x) {
double r26557 = x;
double r26558 = 1.0;
double r26559 = r26557 + r26558;
double r26560 = r26558 - r26557;
double r26561 = r26559 / r26560;
return r26561;
}
double f(double x) {
double r26562 = x;
double r26563 = 1.0;
double r26564 = r26562 + r26563;
double r26565 = r26563 - r26562;
double r26566 = r26564 / r26565;
return r26566;
}



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