\frac{1}{x - 1} + \frac{x}{x + 1}\mathsf{log1p}\left(\mathsf{expm1}\left(\frac{1}{x - 1} + \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 log1p(expm1(((1.0 / (x - 1.0)) + (x / (x + 1.0)))));
}



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