- Split input into 2 regimes
if (/ (+ (fma (* x 2/3) (* x x) (- 2 (* x x))) 0) 2) < 1405.389636089941
Initial program 38.6
\[\frac{\left(1 + \frac{1}{\varepsilon}\right) \cdot e^{-\left(1 - \varepsilon\right) \cdot x} - \left(\frac{1}{\varepsilon} - 1\right) \cdot e^{-\left(1 + \varepsilon\right) \cdot x}}{2}\]
Taylor expanded around 0 1.3
\[\leadsto \frac{\color{blue}{\left(2 + \frac{2}{3} \cdot {x}^{3}\right) - {x}^{2}}}{2}\]
- Using strategy
rm Applied add-cube-cbrt1.3
\[\leadsto \frac{\left(2 + \frac{2}{3} \cdot {x}^{3}\right) - \color{blue}{\left(\sqrt[3]{{x}^{2}} \cdot \sqrt[3]{{x}^{2}}\right) \cdot \sqrt[3]{{x}^{2}}}}{2}\]
Applied add-cube-cbrt2.8
\[\leadsto \frac{\color{blue}{\left(\sqrt[3]{2 + \frac{2}{3} \cdot {x}^{3}} \cdot \sqrt[3]{2 + \frac{2}{3} \cdot {x}^{3}}\right) \cdot \sqrt[3]{2 + \frac{2}{3} \cdot {x}^{3}}} - \left(\sqrt[3]{{x}^{2}} \cdot \sqrt[3]{{x}^{2}}\right) \cdot \sqrt[3]{{x}^{2}}}{2}\]
Applied prod-diff2.8
\[\leadsto \frac{\color{blue}{(\left(\sqrt[3]{2 + \frac{2}{3} \cdot {x}^{3}} \cdot \sqrt[3]{2 + \frac{2}{3} \cdot {x}^{3}}\right) \cdot \left(\sqrt[3]{2 + \frac{2}{3} \cdot {x}^{3}}\right) + \left(-\sqrt[3]{{x}^{2}} \cdot \left(\sqrt[3]{{x}^{2}} \cdot \sqrt[3]{{x}^{2}}\right)\right))_* + (\left(-\sqrt[3]{{x}^{2}}\right) \cdot \left(\sqrt[3]{{x}^{2}} \cdot \sqrt[3]{{x}^{2}}\right) + \left(\sqrt[3]{{x}^{2}} \cdot \left(\sqrt[3]{{x}^{2}} \cdot \sqrt[3]{{x}^{2}}\right)\right))_*}}{2}\]
Applied simplify1.3
\[\leadsto \frac{\color{blue}{(\left(x \cdot \frac{2}{3}\right) \cdot \left(x \cdot x\right) + \left(2 - x \cdot x\right))_*} + (\left(-\sqrt[3]{{x}^{2}}\right) \cdot \left(\sqrt[3]{{x}^{2}} \cdot \sqrt[3]{{x}^{2}}\right) + \left(\sqrt[3]{{x}^{2}} \cdot \left(\sqrt[3]{{x}^{2}} \cdot \sqrt[3]{{x}^{2}}\right)\right))_*}{2}\]
Applied simplify1.3
\[\leadsto \frac{(\left(x \cdot \frac{2}{3}\right) \cdot \left(x \cdot x\right) + \left(2 - x \cdot x\right))_* + \color{blue}{0}}{2}\]
if 1405.389636089941 < (/ (+ (fma (* x 2/3) (* x x) (- 2 (* x x))) 0) 2)
Initial program 0.4
\[\frac{\left(1 + \frac{1}{\varepsilon}\right) \cdot e^{-\left(1 - \varepsilon\right) \cdot x} - \left(\frac{1}{\varepsilon} - 1\right) \cdot e^{-\left(1 + \varepsilon\right) \cdot x}}{2}\]
- Using strategy
rm Applied fma-neg0.4
\[\leadsto \frac{\color{blue}{(\left(1 + \frac{1}{\varepsilon}\right) \cdot \left(e^{-\left(1 - \varepsilon\right) \cdot x}\right) + \left(-\left(\frac{1}{\varepsilon} - 1\right) \cdot e^{-\left(1 + \varepsilon\right) \cdot x}\right))_*}}{2}\]
Applied simplify0.4
\[\leadsto \frac{(\left(1 + \frac{1}{\varepsilon}\right) \cdot \left(e^{-\left(1 - \varepsilon\right) \cdot x}\right) + \color{blue}{\left(\frac{1 - \frac{1}{\varepsilon}}{e^{(\varepsilon \cdot x + x)_*}}\right)})_*}{2}\]
- Recombined 2 regimes into one program.
Applied simplify1.1
\[\leadsto \color{blue}{\begin{array}{l}
\mathbf{if}\;\frac{(\left(\frac{2}{3} \cdot x\right) \cdot \left(x \cdot x\right) + \left(2 - x \cdot x\right))_*}{2} \le 1405.389636089941:\\
\;\;\;\;\frac{(\left(\frac{2}{3} \cdot x\right) \cdot \left(x \cdot x\right) + \left(2 - x \cdot x\right))_*}{2}\\
\mathbf{else}:\\
\;\;\;\;\frac{(\left(1 + \frac{1}{\varepsilon}\right) \cdot \left(e^{\left(1 - \varepsilon\right) \cdot \left(-x\right)}\right) + \left(\frac{1 - \frac{1}{\varepsilon}}{e^{(\varepsilon \cdot x + x)_*}}\right))_*}{2}\\
\end{array}}\]