\frac{x + 1}{1 - x}\frac{1 + x}{1 - x}double f(double x) {
double r1848426 = x;
double r1848427 = 1.0;
double r1848428 = r1848426 + r1848427;
double r1848429 = r1848427 - r1848426;
double r1848430 = r1848428 / r1848429;
return r1848430;
}
double f(double x) {
double r1848431 = 1.0;
double r1848432 = x;
double r1848433 = r1848431 + r1848432;
double r1848434 = r1848431 - r1848432;
double r1848435 = r1848433 / r1848434;
return r1848435;
}



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