\frac{x + 1}{1 - x}\frac{x + 1}{1 - x}double f(double x) {
double r33154 = x;
double r33155 = 1.0;
double r33156 = r33154 + r33155;
double r33157 = r33155 - r33154;
double r33158 = r33156 / r33157;
return r33158;
}
double f(double x) {
double r33159 = x;
double r33160 = 1.0;
double r33161 = r33159 + r33160;
double r33162 = r33160 - r33159;
double r33163 = r33161 / r33162;
return r33163;
}



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