\frac{x + 1}{1 - x}\frac{x + 1}{1 - x}double f(double x) {
double r20234 = x;
double r20235 = 1.0;
double r20236 = r20234 + r20235;
double r20237 = r20235 - r20234;
double r20238 = r20236 / r20237;
return r20238;
}
double f(double x) {
double r20239 = x;
double r20240 = 1.0;
double r20241 = r20239 + r20240;
double r20242 = r20240 - r20239;
double r20243 = r20241 / r20242;
return r20243;
}



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