\frac{x}{x + 1} - \frac{x + 1}{x - 1}\begin{array}{l}
\mathbf{if}\;x \le -12548923.376107145:\\
\;\;\;\;\left(\frac{-1}{x \cdot x} - \frac{3}{x}\right) - \frac{\frac{3}{x}}{x \cdot x}\\
\mathbf{elif}\;x \le 4977255.094115384:\\
\;\;\;\;\frac{-3 \cdot x + -1}{\left(x - 1\right) \cdot \left(1 + x\right)}\\
\mathbf{else}:\\
\;\;\;\;\left(\frac{-1}{x \cdot x} - \frac{3}{x}\right) - \frac{\frac{3}{x}}{x \cdot x}\\
\end{array}double f(double x) {
double r4474622 = x;
double r4474623 = 1.0;
double r4474624 = r4474622 + r4474623;
double r4474625 = r4474622 / r4474624;
double r4474626 = r4474622 - r4474623;
double r4474627 = r4474624 / r4474626;
double r4474628 = r4474625 - r4474627;
return r4474628;
}
double f(double x) {
double r4474629 = x;
double r4474630 = -12548923.376107145;
bool r4474631 = r4474629 <= r4474630;
double r4474632 = -1.0;
double r4474633 = r4474629 * r4474629;
double r4474634 = r4474632 / r4474633;
double r4474635 = 3.0;
double r4474636 = r4474635 / r4474629;
double r4474637 = r4474634 - r4474636;
double r4474638 = r4474636 / r4474633;
double r4474639 = r4474637 - r4474638;
double r4474640 = 4977255.094115384;
bool r4474641 = r4474629 <= r4474640;
double r4474642 = -3.0;
double r4474643 = r4474642 * r4474629;
double r4474644 = r4474643 + r4474632;
double r4474645 = 1.0;
double r4474646 = r4474629 - r4474645;
double r4474647 = r4474645 + r4474629;
double r4474648 = r4474646 * r4474647;
double r4474649 = r4474644 / r4474648;
double r4474650 = r4474641 ? r4474649 : r4474639;
double r4474651 = r4474631 ? r4474639 : r4474650;
return r4474651;
}



Bits error versus x
Results
if x < -12548923.376107145 or 4977255.094115384 < x Initial program 59.6
Taylor expanded around inf 0.3
Simplified0.0
if -12548923.376107145 < x < 4977255.094115384Initial program 0.2
rmApplied frac-sub0.2
Taylor expanded around 0 0.0
Simplified0.0
Final simplification0.0
herbie shell --seed 2019146
(FPCore (x)
:name "Asymptote C"
(- (/ x (+ x 1)) (/ (+ x 1) (- x 1))))