\frac{x}{x + 1} - \frac{x + 1}{x - 1}\begin{array}{l}
\mathbf{if}\;x \le -15147.582990964242:\\
\;\;\;\;\frac{-1}{x \cdot x} + \left(\frac{-3}{\left(x \cdot x\right) \cdot x} + \frac{-3}{x}\right)\\
\mathbf{elif}\;x \le 10532.01597020836:\\
\;\;\;\;\left(x - 1\right) \cdot \frac{x}{x \cdot x - 1} - \frac{1 + x}{x - 1}\\
\mathbf{else}:\\
\;\;\;\;\frac{-1}{x \cdot x} + \left(\frac{-3}{\left(x \cdot x\right) \cdot x} + \frac{-3}{x}\right)\\
\end{array}double f(double x) {
double r15249602 = x;
double r15249603 = 1.0;
double r15249604 = r15249602 + r15249603;
double r15249605 = r15249602 / r15249604;
double r15249606 = r15249602 - r15249603;
double r15249607 = r15249604 / r15249606;
double r15249608 = r15249605 - r15249607;
return r15249608;
}
double f(double x) {
double r15249609 = x;
double r15249610 = -15147.582990964242;
bool r15249611 = r15249609 <= r15249610;
double r15249612 = -1.0;
double r15249613 = r15249609 * r15249609;
double r15249614 = r15249612 / r15249613;
double r15249615 = -3.0;
double r15249616 = r15249613 * r15249609;
double r15249617 = r15249615 / r15249616;
double r15249618 = r15249615 / r15249609;
double r15249619 = r15249617 + r15249618;
double r15249620 = r15249614 + r15249619;
double r15249621 = 10532.01597020836;
bool r15249622 = r15249609 <= r15249621;
double r15249623 = 1.0;
double r15249624 = r15249609 - r15249623;
double r15249625 = r15249613 - r15249623;
double r15249626 = r15249609 / r15249625;
double r15249627 = r15249624 * r15249626;
double r15249628 = r15249623 + r15249609;
double r15249629 = r15249628 / r15249624;
double r15249630 = r15249627 - r15249629;
double r15249631 = r15249622 ? r15249630 : r15249620;
double r15249632 = r15249611 ? r15249620 : r15249631;
return r15249632;
}



Bits error versus x
Results
if x < -15147.582990964242 or 10532.01597020836 < x Initial program 59.2
rmApplied add-log-exp59.2
Taylor expanded around inf 0.3
Simplified0.3
Taylor expanded around 0 0.3
Simplified0.0
if -15147.582990964242 < x < 10532.01597020836Initial program 0.1
rmApplied flip-+0.1
Applied associate-/r/0.1
Final simplification0.1
herbie shell --seed 2019107
(FPCore (x)
:name "Asymptote C"
(- (/ x (+ x 1)) (/ (+ x 1) (- x 1))))