\frac{x + 1}{1 - x}\frac{x + 1}{1 - x}double f(double x) {
double r41290 = x;
double r41291 = 1.0;
double r41292 = r41290 + r41291;
double r41293 = r41291 - r41290;
double r41294 = r41292 / r41293;
return r41294;
}
double f(double x) {
double r41295 = x;
double r41296 = 1.0;
double r41297 = r41295 + r41296;
double r41298 = r41296 - r41295;
double r41299 = r41297 / r41298;
return r41299;
}



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