\frac{x + 1}{1 - x}\frac{x + 1}{1 - x}double f(double x) {
double r50511 = x;
double r50512 = 1.0;
double r50513 = r50511 + r50512;
double r50514 = r50512 - r50511;
double r50515 = r50513 / r50514;
return r50515;
}
double f(double x) {
double r50516 = x;
double r50517 = 1.0;
double r50518 = r50516 + r50517;
double r50519 = r50517 - r50516;
double r50520 = r50518 / r50519;
return r50520;
}



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