\frac{x}{x + 1} - \frac{x + 1}{x - 1}
\begin{array}{l}
t_0 := \left(\frac{-3}{x} - \left(\frac{1}{x \cdot x} + \frac{3}{{x}^{3}}\right)\right) - \frac{1}{{x}^{4}}\\
\mathbf{if}\;x \leq -66059582.89406409:\\
\;\;\;\;t_0\\
\mathbf{elif}\;x \leq 8162611635593491:\\
\;\;\;\;\frac{-1 + x \cdot -3}{\mathsf{fma}\left(x, x, -1\right)}\\
\mathbf{else}:\\
\;\;\;\;t_0\\
\end{array}
(FPCore (x) :precision binary64 (- (/ x (+ x 1.0)) (/ (+ x 1.0) (- x 1.0))))
(FPCore (x)
:precision binary64
(let* ((t_0
(-
(- (/ -3.0 x) (+ (/ 1.0 (* x x)) (/ 3.0 (pow x 3.0))))
(/ 1.0 (pow x 4.0)))))
(if (<= x -66059582.89406409)
t_0
(if (<= x 8162611635593491.0)
(/ (+ -1.0 (* x -3.0)) (fma x x -1.0))
t_0))))double code(double x) {
return (x / (x + 1.0)) - ((x + 1.0) / (x - 1.0));
}
double code(double x) {
double t_0 = ((-3.0 / x) - ((1.0 / (x * x)) + (3.0 / pow(x, 3.0)))) - (1.0 / pow(x, 4.0));
double tmp;
if (x <= -66059582.89406409) {
tmp = t_0;
} else if (x <= 8162611635593491.0) {
tmp = (-1.0 + (x * -3.0)) / fma(x, x, -1.0);
} else {
tmp = t_0;
}
return tmp;
}



Bits error versus x
if x < -66059582.8940640911 or 8162611635593491 < x Initial program 60.1
Taylor expanded in x around inf 0.3
Simplified0.0
if -66059582.8940640911 < x < 8162611635593491Initial program 0.8
Applied frac-sub_binary640.7
Simplified0.7
Simplified0.7
Taylor expanded in x around 0 0.0
Final simplification0.0
herbie shell --seed 2022121
(FPCore (x)
:name "Asymptote C"
:precision binary64
(- (/ x (+ x 1.0)) (/ (+ x 1.0) (- x 1.0))))