- Split input into 2 regimes
if x < 36.01969801295999
Initial program 39.0
\[\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.4
\[\leadsto \frac{\color{blue}{\left(\frac{2}{3} \cdot {x}^{3} + 2\right) - {x}^{2}}}{2}\]
- Using strategy
rm Applied *-un-lft-identity1.4
\[\leadsto \frac{\left(\frac{2}{3} \cdot {x}^{3} + 2\right) - \color{blue}{1 \cdot {x}^{2}}}{2}\]
Applied add-sqr-sqrt2.3
\[\leadsto \frac{\color{blue}{\sqrt{\frac{2}{3} \cdot {x}^{3} + 2} \cdot \sqrt{\frac{2}{3} \cdot {x}^{3} + 2}} - 1 \cdot {x}^{2}}{2}\]
Applied prod-diff2.3
\[\leadsto \frac{\color{blue}{(\left(\sqrt{\frac{2}{3} \cdot {x}^{3} + 2}\right) \cdot \left(\sqrt{\frac{2}{3} \cdot {x}^{3} + 2}\right) + \left(-{x}^{2} \cdot 1\right))_* + (\left(-{x}^{2}\right) \cdot 1 + \left({x}^{2} \cdot 1\right))_*}}{2}\]
Simplified1.4
\[\leadsto \frac{\color{blue}{(\left(x \cdot x\right) \cdot \left((\frac{2}{3} \cdot x + -1)_*\right) + 2)_*} + (\left(-{x}^{2}\right) \cdot 1 + \left({x}^{2} \cdot 1\right))_*}{2}\]
Simplified1.4
\[\leadsto \frac{(\left(x \cdot x\right) \cdot \left((\frac{2}{3} \cdot x + -1)_*\right) + 2)_* + \color{blue}{0}}{2}\]
if 36.01969801295999 < x
Initial program 0.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 inf 0.2
\[\leadsto \frac{\color{blue}{\left(\frac{e^{x \cdot \varepsilon - x}}{\varepsilon} + \left(e^{x \cdot \varepsilon - x} + e^{-\left(x \cdot \varepsilon + x\right)}\right)\right) - \frac{e^{-\left(x \cdot \varepsilon + x\right)}}{\varepsilon}}}{2}\]
- Recombined 2 regimes into one program.
Final simplification1.1
\[\leadsto \begin{array}{l}
\mathbf{if}\;x \le 36.01969801295999:\\
\;\;\;\;\frac{(\left(x \cdot x\right) \cdot \left((\frac{2}{3} \cdot x + -1)_*\right) + 2)_*}{2}\\
\mathbf{else}:\\
\;\;\;\;\frac{\left(\left(e^{-\left(\varepsilon \cdot x + x\right)} + e^{\varepsilon \cdot x - x}\right) + \frac{e^{\varepsilon \cdot x - x}}{\varepsilon}\right) - \frac{e^{-\left(\varepsilon \cdot x + x\right)}}{\varepsilon}}{2}\\
\end{array}\]