- Split input into 2 regimes
if x < -0.991576671834505 or 0.9896132628468995 < x
Initial program 19.3
\[\left(\frac{1}{x + 1} - \frac{2}{x}\right) + \frac{1}{x - 1}\]
Taylor expanded around inf 0.8
\[\leadsto \color{blue}{2 \cdot \frac{1}{{x}^{7}} + \left(2 \cdot \frac{1}{{x}^{3}} + 2 \cdot \frac{1}{{x}^{5}}\right)}\]
Simplified0.3
\[\leadsto \color{blue}{\frac{2}{{x}^{7}} + \left(\frac{\frac{2}{x \cdot x}}{x} + \frac{2}{{x}^{5}}\right)}\]
if -0.991576671834505 < x < 0.9896132628468995
Initial program 0.0
\[\left(\frac{1}{x + 1} - \frac{2}{x}\right) + \frac{1}{x - 1}\]
- Using strategy
rm Applied add-cube-cbrt1.2
\[\leadsto \left(\frac{1}{x + 1} - \color{blue}{\left(\sqrt[3]{\frac{2}{x}} \cdot \sqrt[3]{\frac{2}{x}}\right) \cdot \sqrt[3]{\frac{2}{x}}}\right) + \frac{1}{x - 1}\]
Applied add-cube-cbrt1.2
\[\leadsto \left(\color{blue}{\left(\sqrt[3]{\frac{1}{x + 1}} \cdot \sqrt[3]{\frac{1}{x + 1}}\right) \cdot \sqrt[3]{\frac{1}{x + 1}}} - \left(\sqrt[3]{\frac{2}{x}} \cdot \sqrt[3]{\frac{2}{x}}\right) \cdot \sqrt[3]{\frac{2}{x}}\right) + \frac{1}{x - 1}\]
Applied prod-diff1.2
\[\leadsto \color{blue}{\left((\left(\sqrt[3]{\frac{1}{x + 1}} \cdot \sqrt[3]{\frac{1}{x + 1}}\right) \cdot \left(\sqrt[3]{\frac{1}{x + 1}}\right) + \left(-\sqrt[3]{\frac{2}{x}} \cdot \left(\sqrt[3]{\frac{2}{x}} \cdot \sqrt[3]{\frac{2}{x}}\right)\right))_* + (\left(-\sqrt[3]{\frac{2}{x}}\right) \cdot \left(\sqrt[3]{\frac{2}{x}} \cdot \sqrt[3]{\frac{2}{x}}\right) + \left(\sqrt[3]{\frac{2}{x}} \cdot \left(\sqrt[3]{\frac{2}{x}} \cdot \sqrt[3]{\frac{2}{x}}\right)\right))_*\right)} + \frac{1}{x - 1}\]
Applied associate-+l+1.2
\[\leadsto \color{blue}{(\left(\sqrt[3]{\frac{1}{x + 1}} \cdot \sqrt[3]{\frac{1}{x + 1}}\right) \cdot \left(\sqrt[3]{\frac{1}{x + 1}}\right) + \left(-\sqrt[3]{\frac{2}{x}} \cdot \left(\sqrt[3]{\frac{2}{x}} \cdot \sqrt[3]{\frac{2}{x}}\right)\right))_* + \left((\left(-\sqrt[3]{\frac{2}{x}}\right) \cdot \left(\sqrt[3]{\frac{2}{x}} \cdot \sqrt[3]{\frac{2}{x}}\right) + \left(\sqrt[3]{\frac{2}{x}} \cdot \left(\sqrt[3]{\frac{2}{x}} \cdot \sqrt[3]{\frac{2}{x}}\right)\right))_* + \frac{1}{x - 1}\right)}\]
Simplified0.0
\[\leadsto \color{blue}{\left(\frac{1}{x + 1} - \frac{2}{x}\right)} + \left((\left(-\sqrt[3]{\frac{2}{x}}\right) \cdot \left(\sqrt[3]{\frac{2}{x}} \cdot \sqrt[3]{\frac{2}{x}}\right) + \left(\sqrt[3]{\frac{2}{x}} \cdot \left(\sqrt[3]{\frac{2}{x}} \cdot \sqrt[3]{\frac{2}{x}}\right)\right))_* + \frac{1}{x - 1}\right)\]
Taylor expanded around 0 0.2
\[\leadsto \color{blue}{-\left(2 \cdot x + \left(2 \cdot {x}^{3} + 2 \cdot \frac{1}{x}\right)\right)}\]
Simplified0.2
\[\leadsto \color{blue}{(-2 \cdot \left((x \cdot \left(x \cdot x\right) + x)_*\right) + \left(\frac{-2}{x}\right))_*}\]
- Recombined 2 regimes into one program.
Final simplification0.3
\[\leadsto \begin{array}{l}
\mathbf{if}\;x \le -0.991576671834505:\\
\;\;\;\;\frac{2}{{x}^{7}} + \left(\frac{2}{{x}^{5}} + \frac{\frac{2}{x \cdot x}}{x}\right)\\
\mathbf{elif}\;x \le 0.9896132628468995:\\
\;\;\;\;(-2 \cdot \left((x \cdot \left(x \cdot x\right) + x)_*\right) + \left(\frac{-2}{x}\right))_*\\
\mathbf{else}:\\
\;\;\;\;\frac{2}{{x}^{7}} + \left(\frac{2}{{x}^{5}} + \frac{\frac{2}{x \cdot x}}{x}\right)\\
\end{array}\]