- Split input into 3 regimes
if (fma (+ 1 (/ 3 x)) (/ (- 1) (* x x)) (/ (- 3) x)) < -9.35362369942047e-11
Initial program 0.4
\[\frac{x}{x + 1} - \frac{x + 1}{x - 1}\]
- Using strategy
rm Applied clear-num0.4
\[\leadsto \color{blue}{\frac{1}{\frac{x + 1}{x}}} - \frac{x + 1}{x - 1}\]
- Using strategy
rm Applied frac-sub0.4
\[\leadsto \color{blue}{\frac{1 \cdot \left(x - 1\right) - \frac{x + 1}{x} \cdot \left(x + 1\right)}{\frac{x + 1}{x} \cdot \left(x - 1\right)}}\]
Simplified0.0
\[\leadsto \frac{\color{blue}{\left(\left(x - 1\right) - \left(x + 1\right)\right) - \frac{x + 1}{x}}}{\frac{x + 1}{x} \cdot \left(x - 1\right)}\]
if -9.35362369942047e-11 < (fma (+ 1 (/ 3 x)) (/ (- 1) (* x x)) (/ (- 3) x)) < 4.234656599064631e-25
Initial program 60.4
\[\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(1 + \frac{3}{x}\right) \cdot \left(\frac{-1}{x \cdot x}\right) + \left(\frac{-3}{x}\right))_*}\]
if 4.234656599064631e-25 < (fma (+ 1 (/ 3 x)) (/ (- 1) (* x x)) (/ (- 3) x))
Initial program 2.5
\[\frac{x}{x + 1} - \frac{x + 1}{x - 1}\]
- Using strategy
rm Applied clear-num2.5
\[\leadsto \color{blue}{\frac{1}{\frac{x + 1}{x}}} - \frac{x + 1}{x - 1}\]
- Using strategy
rm Applied frac-sub1.9
\[\leadsto \color{blue}{\frac{1 \cdot \left(x - 1\right) - \frac{x + 1}{x} \cdot \left(x + 1\right)}{\frac{x + 1}{x} \cdot \left(x - 1\right)}}\]
Simplified1.2
\[\leadsto \frac{\color{blue}{\left(\left(x - 1\right) - \left(x + 1\right)\right) - \frac{x + 1}{x}}}{\frac{x + 1}{x} \cdot \left(x - 1\right)}\]
- Using strategy
rm Applied flip--1.2
\[\leadsto \frac{\left(\left(x - 1\right) - \left(x + 1\right)\right) - \frac{x + 1}{x}}{\frac{x + 1}{x} \cdot \color{blue}{\frac{x \cdot x - 1 \cdot 1}{x + 1}}}\]
Applied frac-times1.2
\[\leadsto \frac{\left(\left(x - 1\right) - \left(x + 1\right)\right) - \frac{x + 1}{x}}{\color{blue}{\frac{\left(x + 1\right) \cdot \left(x \cdot x - 1 \cdot 1\right)}{x \cdot \left(x + 1\right)}}}\]
Simplified1.2
\[\leadsto \frac{\left(\left(x - 1\right) - \left(x + 1\right)\right) - \frac{x + 1}{x}}{\frac{\left(x + 1\right) \cdot \left(x \cdot x - 1 \cdot 1\right)}{\color{blue}{(x \cdot x + x)_*}}}\]
- Recombined 3 regimes into one program.
Final simplification0.4
\[\leadsto \begin{array}{l}
\mathbf{if}\;(\left(\frac{3}{x} + 1\right) \cdot \left(\frac{-1}{x \cdot x}\right) + \left(-\frac{3}{x}\right))_* \le -9.35362369942047 \cdot 10^{-11}:\\
\;\;\;\;\frac{\left(\left(x - 1\right) - \left(1 + x\right)\right) - \frac{1 + x}{x}}{\left(x - 1\right) \cdot \frac{1 + x}{x}}\\
\mathbf{elif}\;(\left(\frac{3}{x} + 1\right) \cdot \left(\frac{-1}{x \cdot x}\right) + \left(-\frac{3}{x}\right))_* \le 4.234656599064631 \cdot 10^{-25}:\\
\;\;\;\;(\left(\frac{3}{x} + 1\right) \cdot \left(\frac{-1}{x \cdot x}\right) + \left(-\frac{3}{x}\right))_*\\
\mathbf{else}:\\
\;\;\;\;\frac{\left(\left(x - 1\right) - \left(1 + x\right)\right) - \frac{1 + x}{x}}{\frac{\left(1 + x\right) \cdot \left(x \cdot x - 1\right)}{(x \cdot x + x)_*}}\\
\end{array}\]