\frac{x}{x + 1} - \frac{x + 1}{x - 1}\begin{array}{l}
\mathbf{if}\;x \leq -9.584030856506872 \cdot 10^{+18} \lor \neg \left(x \leq 24107275353534.402\right):\\
\;\;\;\;\left(\frac{-3}{x} - \frac{1}{x \cdot x}\right) - \left(\frac{3}{{x}^{3}} + \frac{1}{{x}^{4}}\right)\\
\mathbf{else}:\\
\;\;\;\;\frac{-1 - x \cdot 3}{x \cdot x + -1}\\
\end{array}(FPCore (x) :precision binary64 (- (/ x (+ x 1.0)) (/ (+ x 1.0) (- x 1.0))))
(FPCore (x)
:precision binary64
(if (or (<= x -9.584030856506872e+18) (not (<= x 24107275353534.402)))
(-
(- (/ -3.0 x) (/ 1.0 (* x x)))
(+ (/ 3.0 (pow x 3.0)) (/ 1.0 (pow x 4.0))))
(/ (- -1.0 (* x 3.0)) (+ (* x x) -1.0))))double code(double x) {
return (x / (x + 1.0)) - ((x + 1.0) / (x - 1.0));
}
double code(double x) {
double tmp;
if ((x <= -9.584030856506872e+18) || !(x <= 24107275353534.402)) {
tmp = ((-3.0 / x) - (1.0 / (x * x))) - ((3.0 / pow(x, 3.0)) + (1.0 / pow(x, 4.0)));
} else {
tmp = (-1.0 - (x * 3.0)) / ((x * x) + -1.0);
}
return tmp;
}



Bits error versus x
Results
if x < -9584030856506871800 or 24107275353534.4023 < x Initial program 60.4
Taylor expanded around inf 0.3
Simplified0.0
if -9584030856506871800 < x < 24107275353534.4023Initial program 1.3
rmApplied frac-sub_binary64_21331.2
Simplified1.3
Simplified1.3
Taylor expanded around 0 0.0
Simplified0.0
Final simplification0.0
herbie shell --seed 2021050
(FPCore (x)
:name "Asymptote C"
:precision binary64
(- (/ x (+ x 1.0)) (/ (+ x 1.0) (- x 1.0))))