- Split input into 2 regimes
if x < -13330.589790459633 or 18853.62828990301 < x
Initial program 59.3
\[\frac{x}{x + 1} - \frac{x + 1}{x - 1}\]
Taylor expanded around inf 0.3
\[\leadsto \color{blue}{-\left(3 \cdot \frac{1}{{x}^{3}} + \left(\frac{1}{{x}^{2}} + 3 \cdot \frac{1}{x}\right)\right)}\]
Simplified0.0
\[\leadsto \color{blue}{(\left(\frac{-1}{x \cdot x}\right) \cdot \left(\frac{3}{x}\right) + \left(\frac{-1}{x \cdot x} - \frac{3}{x}\right))_*}\]
if -13330.589790459633 < x < 18853.62828990301
Initial program 0.1
\[\frac{x}{x + 1} - \frac{x + 1}{x - 1}\]
- Using strategy
rm Applied add-log-exp0.1
\[\leadsto \color{blue}{\log \left(e^{\frac{x}{x + 1} - \frac{x + 1}{x - 1}}\right)}\]
- Using strategy
rm Applied add-sqr-sqrt0.1
\[\leadsto \log \color{blue}{\left(\sqrt{e^{\frac{x}{x + 1} - \frac{x + 1}{x - 1}}} \cdot \sqrt{e^{\frac{x}{x + 1} - \frac{x + 1}{x - 1}}}\right)}\]
Applied log-prod0.1
\[\leadsto \color{blue}{\log \left(\sqrt{e^{\frac{x}{x + 1} - \frac{x + 1}{x - 1}}}\right) + \log \left(\sqrt{e^{\frac{x}{x + 1} - \frac{x + 1}{x - 1}}}\right)}\]
- Using strategy
rm Applied flip3--0.1
\[\leadsto \log \left(\sqrt{e^{\frac{x}{x + 1} - \frac{x + 1}{\color{blue}{\frac{{x}^{3} - {1}^{3}}{x \cdot x + \left(1 \cdot 1 + x \cdot 1\right)}}}}}\right) + \log \left(\sqrt{e^{\frac{x}{x + 1} - \frac{x + 1}{x - 1}}}\right)\]
Applied associate-/r/0.1
\[\leadsto \log \left(\sqrt{e^{\frac{x}{x + 1} - \color{blue}{\frac{x + 1}{{x}^{3} - {1}^{3}} \cdot \left(x \cdot x + \left(1 \cdot 1 + x \cdot 1\right)\right)}}}\right) + \log \left(\sqrt{e^{\frac{x}{x + 1} - \frac{x + 1}{x - 1}}}\right)\]
Applied add-sqr-sqrt30.3
\[\leadsto \log \left(\sqrt{e^{\color{blue}{\sqrt{\frac{x}{x + 1}} \cdot \sqrt{\frac{x}{x + 1}}} - \frac{x + 1}{{x}^{3} - {1}^{3}} \cdot \left(x \cdot x + \left(1 \cdot 1 + x \cdot 1\right)\right)}}\right) + \log \left(\sqrt{e^{\frac{x}{x + 1} - \frac{x + 1}{x - 1}}}\right)\]
Applied prod-diff30.3
\[\leadsto \log \left(\sqrt{e^{\color{blue}{(\left(\sqrt{\frac{x}{x + 1}}\right) \cdot \left(\sqrt{\frac{x}{x + 1}}\right) + \left(-\left(x \cdot x + \left(1 \cdot 1 + x \cdot 1\right)\right) \cdot \frac{x + 1}{{x}^{3} - {1}^{3}}\right))_* + (\left(-\left(x \cdot x + \left(1 \cdot 1 + x \cdot 1\right)\right)\right) \cdot \left(\frac{x + 1}{{x}^{3} - {1}^{3}}\right) + \left(\left(x \cdot x + \left(1 \cdot 1 + x \cdot 1\right)\right) \cdot \frac{x + 1}{{x}^{3} - {1}^{3}}\right))_*}}}\right) + \log \left(\sqrt{e^{\frac{x}{x + 1} - \frac{x + 1}{x - 1}}}\right)\]
Simplified0.1
\[\leadsto \log \left(\sqrt{e^{\color{blue}{(\left((x \cdot x + \left(1 + x\right))_*\right) \cdot \left(\frac{-1 - x}{(x \cdot \left(x \cdot x\right) + -1)_*}\right) + \left(\frac{x}{1 + x}\right))_*} + (\left(-\left(x \cdot x + \left(1 \cdot 1 + x \cdot 1\right)\right)\right) \cdot \left(\frac{x + 1}{{x}^{3} - {1}^{3}}\right) + \left(\left(x \cdot x + \left(1 \cdot 1 + x \cdot 1\right)\right) \cdot \frac{x + 1}{{x}^{3} - {1}^{3}}\right))_*}}\right) + \log \left(\sqrt{e^{\frac{x}{x + 1} - \frac{x + 1}{x - 1}}}\right)\]
Simplified0.1
\[\leadsto \log \left(\sqrt{e^{(\left((x \cdot x + \left(1 + x\right))_*\right) \cdot \left(\frac{-1 - x}{(x \cdot \left(x \cdot x\right) + -1)_*}\right) + \left(\frac{x}{1 + x}\right))_* + \color{blue}{0}}}\right) + \log \left(\sqrt{e^{\frac{x}{x + 1} - \frac{x + 1}{x - 1}}}\right)\]
- Recombined 2 regimes into one program.
Final simplification0.1
\[\leadsto \begin{array}{l}
\mathbf{if}\;x \le -13330.589790459633 \lor \neg \left(x \le 18853.62828990301\right):\\
\;\;\;\;(\left(\frac{-1}{x \cdot x}\right) \cdot \left(\frac{3}{x}\right) + \left(\frac{-1}{x \cdot x} - \frac{3}{x}\right))_*\\
\mathbf{else}:\\
\;\;\;\;\log \left(\sqrt{e^{\frac{x}{1 + x} - \frac{1 + x}{x - 1}}}\right) + \log \left(\sqrt{e^{(\left((x \cdot x + \left(1 + x\right))_*\right) \cdot \left(\frac{-1 - x}{(x \cdot \left(x \cdot x\right) + -1)_*}\right) + \left(\frac{x}{1 + x}\right))_*}}\right)\\
\end{array}\]