- Split input into 2 regimes
if (* (+ 1 (/ 1 eps)) (exp (- (* (- 1 eps) x)))) < -5.894359694351766e+17 or 0.9999889407307174 < (* (+ 1 (/ 1 eps)) (exp (- (* (- 1 eps) x))))
Initial program 40.3
\[\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.9
\[\leadsto \frac{\color{blue}{\left(\frac{2}{3} \cdot {x}^{3} + 2\right) - {x}^{2}}}{2}\]
- Using strategy
rm Applied flip--0.9
\[\leadsto \frac{\color{blue}{\frac{\left(\frac{2}{3} \cdot {x}^{3} + 2\right) \cdot \left(\frac{2}{3} \cdot {x}^{3} + 2\right) - {x}^{2} \cdot {x}^{2}}{\left(\frac{2}{3} \cdot {x}^{3} + 2\right) + {x}^{2}}}}{2}\]
- Using strategy
rm Applied add-sqr-sqrt0.9
\[\leadsto \frac{\frac{\color{blue}{\sqrt{\left(\frac{2}{3} \cdot {x}^{3} + 2\right) \cdot \left(\frac{2}{3} \cdot {x}^{3} + 2\right) - {x}^{2} \cdot {x}^{2}} \cdot \sqrt{\left(\frac{2}{3} \cdot {x}^{3} + 2\right) \cdot \left(\frac{2}{3} \cdot {x}^{3} + 2\right) - {x}^{2} \cdot {x}^{2}}}}{\left(\frac{2}{3} \cdot {x}^{3} + 2\right) + {x}^{2}}}{2}\]
if -5.894359694351766e+17 < (* (+ 1 (/ 1 eps)) (exp (- (* (- 1 eps) x)))) < 0.9999889407307174
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 add-cube-cbrt0.5
\[\leadsto \frac{\left(1 + \frac{1}{\varepsilon}\right) \cdot e^{-\left(1 - \varepsilon\right) \cdot x} - \left(\frac{1}{\varepsilon} - 1\right) \cdot \color{blue}{\left(\left(\sqrt[3]{e^{-\left(1 + \varepsilon\right) \cdot x}} \cdot \sqrt[3]{e^{-\left(1 + \varepsilon\right) \cdot x}}\right) \cdot \sqrt[3]{e^{-\left(1 + \varepsilon\right) \cdot x}}\right)}}{2}\]
- Recombined 2 regimes into one program.
Final simplification0.8
\[\leadsto \begin{array}{l}
\mathbf{if}\;e^{\left(-x\right) \cdot \left(1 - \varepsilon\right)} \cdot \left(1 + \frac{1}{\varepsilon}\right) \le -5.894359694351766 \cdot 10^{+17} \lor \neg \left(e^{\left(-x\right) \cdot \left(1 - \varepsilon\right)} \cdot \left(1 + \frac{1}{\varepsilon}\right) \le 0.9999889407307174\right):\\
\;\;\;\;\frac{\frac{\sqrt{\left(\frac{2}{3} \cdot {x}^{3} + 2\right) \cdot \left(\frac{2}{3} \cdot {x}^{3} + 2\right) - {x}^{2} \cdot {x}^{2}} \cdot \sqrt{\left(\frac{2}{3} \cdot {x}^{3} + 2\right) \cdot \left(\frac{2}{3} \cdot {x}^{3} + 2\right) - {x}^{2} \cdot {x}^{2}}}{\left(\frac{2}{3} \cdot {x}^{3} + 2\right) + {x}^{2}}}{2}\\
\mathbf{else}:\\
\;\;\;\;\frac{e^{\left(-x\right) \cdot \left(1 - \varepsilon\right)} \cdot \left(1 + \frac{1}{\varepsilon}\right) - \left(\frac{1}{\varepsilon} - 1\right) \cdot \left(\left(\sqrt[3]{e^{\left(\varepsilon + 1\right) \cdot \left(-x\right)}} \cdot \sqrt[3]{e^{\left(\varepsilon + 1\right) \cdot \left(-x\right)}}\right) \cdot \sqrt[3]{e^{\left(\varepsilon + 1\right) \cdot \left(-x\right)}}\right)}{2}\\
\end{array}\]