\frac{x}{x + 1} - \frac{x + 1}{x - 1}\begin{array}{l}
\mathbf{if}\;x \le -12155.681664534535 \lor \neg \left(x \le 12773.683991769165\right):\\
\;\;\;\;\frac{-1}{{x}^{2}} - \mathsf{fma}\left(3, \frac{1}{{x}^{3}}, \frac{3}{x}\right)\\
\mathbf{else}:\\
\;\;\;\;\frac{x}{x + 1} - \log \left(e^{\frac{x + 1}{x - 1}}\right)\\
\end{array}double code(double x) {
return ((x / (x + 1.0)) - ((x + 1.0) / (x - 1.0)));
}
double code(double x) {
double VAR;
if (((x <= -12155.681664534535) || !(x <= 12773.683991769165))) {
VAR = ((-1.0 / pow(x, 2.0)) - fma(3.0, (1.0 / pow(x, 3.0)), (3.0 / x)));
} else {
VAR = ((x / (x + 1.0)) - log(exp(((x + 1.0) / (x - 1.0)))));
}
return VAR;
}



Bits error versus x
Results
if x < -12155.681664534535 or 12773.683991769165 < x Initial program 59.2
Taylor expanded around inf 0.3
Simplified0.3
Taylor expanded around 0 0.3
Simplified0.0
if -12155.681664534535 < x < 12773.683991769165Initial program 0.1
rmApplied add-log-exp0.1
Final simplification0.1
herbie shell --seed 2020102 +o rules:numerics
(FPCore (x)
:name "Asymptote C"
:precision binary64
(- (/ x (+ x 1)) (/ (+ x 1) (- x 1))))