\frac{1}{x - 1} + \frac{x}{x + 1}\frac{1}{x - 1} + \mathsf{expm1}\left(\mathsf{log1p}\left(\frac{x}{x + 1}\right)\right)double code(double x) {
return ((1.0 / (x - 1.0)) + (x / (x + 1.0)));
}
double code(double x) {
return ((1.0 / (x - 1.0)) + expm1(log1p((x / (x + 1.0)))));
}



Bits error versus x
Results
Initial program 0.0
rmApplied expm1-log1p-u0.0
Final simplification0.0
herbie shell --seed 2020092 +o rules:numerics
(FPCore (x)
:name "Asymptote B"
:precision binary64
(+ (/ 1 (- x 1)) (/ x (+ x 1))))