\frac{x + 1}{1 - x}\frac{1 + x}{1 - x}double f(double x) {
double r973167 = x;
double r973168 = 1.0;
double r973169 = r973167 + r973168;
double r973170 = r973168 - r973167;
double r973171 = r973169 / r973170;
return r973171;
}
double f(double x) {
double r973172 = 1.0;
double r973173 = x;
double r973174 = r973172 + r973173;
double r973175 = r973172 - r973173;
double r973176 = r973174 / r973175;
return r973176;
}



Bits error versus x
Results
Initial program 0.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)))