- Split input into 2 regimes
if (/ (/ (fma (exp x) (/ (fma (/ 1 eps) (- 1) 1) (exp (* eps x))) (fma (exp (fma eps x x)) (/ 1 eps) (exp (fma eps x x)))) (exp (fma (- 1 0) x x))) 2) < 1.0
Initial program 39.2
\[\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 0.3
\[\leadsto \frac{\color{blue}{\left(2 + \frac{2}{3} \cdot {x}^{3}\right) - {x}^{2}}}{2}\]
if 1.0 < (/ (/ (fma (exp x) (/ (fma (/ 1 eps) (- 1) 1) (exp (* eps x))) (fma (exp (fma eps x x)) (/ 1 eps) (exp (fma eps x x)))) (exp (fma (- 1 0) x x))) 2)
Initial program 3.1
\[\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 add-cube-cbrt3.2
\[\leadsto \frac{\left(1 + \frac{1}{\varepsilon}\right) \cdot e^{-\left(1 - \varepsilon\right) \cdot x} - \color{blue}{\left(\sqrt[3]{\left(\frac{1}{\varepsilon} - 1\right) \cdot e^{-\left(1 + \varepsilon\right) \cdot x}} \cdot \sqrt[3]{\left(\frac{1}{\varepsilon} - 1\right) \cdot e^{-\left(1 + \varepsilon\right) \cdot x}}\right) \cdot \sqrt[3]{\left(\frac{1}{\varepsilon} - 1\right) \cdot e^{-\left(1 + \varepsilon\right) \cdot x}}}}{2}\]
Applied simplify3.2
\[\leadsto \frac{\left(1 + \frac{1}{\varepsilon}\right) \cdot e^{-\left(1 - \varepsilon\right) \cdot x} - \color{blue}{\left(\sqrt[3]{\frac{\frac{1}{\varepsilon} - 1}{e^{(\varepsilon \cdot x + x)_*}}} \cdot \sqrt[3]{\frac{\frac{1}{\varepsilon} - 1}{e^{(\varepsilon \cdot x + x)_*}}}\right)} \cdot \sqrt[3]{\left(\frac{1}{\varepsilon} - 1\right) \cdot e^{-\left(1 + \varepsilon\right) \cdot x}}}{2}\]
Applied simplify3.2
\[\leadsto \frac{\left(1 + \frac{1}{\varepsilon}\right) \cdot e^{-\left(1 - \varepsilon\right) \cdot x} - \left(\sqrt[3]{\frac{\frac{1}{\varepsilon} - 1}{e^{(\varepsilon \cdot x + x)_*}}} \cdot \sqrt[3]{\frac{\frac{1}{\varepsilon} - 1}{e^{(\varepsilon \cdot x + x)_*}}}\right) \cdot \color{blue}{\sqrt[3]{\frac{\frac{1}{\varepsilon} - 1}{e^{(\varepsilon \cdot x + x)_*}}}}}{2}\]
- Recombined 2 regimes into one program.
Applied simplify1.1
\[\leadsto \color{blue}{\begin{array}{l}
\mathbf{if}\;\frac{\frac{(\left(e^{x}\right) \cdot \left(\frac{(\left(\frac{1}{\varepsilon}\right) \cdot \left(-1\right) + 1)_*}{e^{\varepsilon \cdot x}}\right) + \left((\left(e^{(\varepsilon \cdot x + x)_*}\right) \cdot \left(\frac{1}{\varepsilon}\right) + \left(e^{(\varepsilon \cdot x + x)_*}\right))_*\right))_*}{e^{(1 \cdot x + x)_*}}}{2} \le 1.0:\\
\;\;\;\;\frac{\left(2 + \frac{2}{3} \cdot {x}^{3}\right) - {x}^{2}}{2}\\
\mathbf{else}:\\
\;\;\;\;\frac{\left(\frac{1}{\varepsilon} + 1\right) \cdot e^{\left(1 - \varepsilon\right) \cdot \left(-x\right)} - \left(\sqrt[3]{\frac{\frac{1}{\varepsilon} - 1}{e^{(\varepsilon \cdot x + x)_*}}} \cdot \sqrt[3]{\frac{\frac{1}{\varepsilon} - 1}{e^{(\varepsilon \cdot x + x)_*}}}\right) \cdot \sqrt[3]{\frac{\frac{1}{\varepsilon} - 1}{e^{(\varepsilon \cdot x + x)_*}}}}{2}\\
\end{array}}\]