- Split input into 2 regimes
if (/ (* eps (- (exp (* (+ a b) eps)) 1)) (* (- (exp (* a eps)) 1) (- (exp (* b eps)) 1))) < -2.5306429779527046e-60 or 1.6721083591107385e-42 < (/ (* eps (- (exp (* (+ a b) eps)) 1)) (* (- (exp (* a eps)) 1) (- (exp (* b eps)) 1)))
Initial program 61.5
\[\frac{\varepsilon \cdot \left(e^{\left(a + b\right) \cdot \varepsilon} - 1\right)}{\left(e^{a \cdot \varepsilon} - 1\right) \cdot \left(e^{b \cdot \varepsilon} - 1\right)}\]
Taylor expanded around 0 0.7
\[\leadsto \color{blue}{\frac{1}{b} + \frac{1}{a}}\]
if -2.5306429779527046e-60 < (/ (* eps (- (exp (* (+ a b) eps)) 1)) (* (- (exp (* a eps)) 1) (- (exp (* b eps)) 1))) < 1.6721083591107385e-42
Initial program 3.4
\[\frac{\varepsilon \cdot \left(e^{\left(a + b\right) \cdot \varepsilon} - 1\right)}{\left(e^{a \cdot \varepsilon} - 1\right) \cdot \left(e^{b \cdot \varepsilon} - 1\right)}\]
- Using strategy
rm Applied times-frac3.4
\[\leadsto \color{blue}{\frac{\varepsilon}{e^{a \cdot \varepsilon} - 1} \cdot \frac{e^{\left(a + b\right) \cdot \varepsilon} - 1}{e^{b \cdot \varepsilon} - 1}}\]
Simplified2.0
\[\leadsto \color{blue}{\frac{\varepsilon}{(e^{a \cdot \varepsilon} - 1)^*}} \cdot \frac{e^{\left(a + b\right) \cdot \varepsilon} - 1}{e^{b \cdot \varepsilon} - 1}\]
Simplified0.1
\[\leadsto \frac{\varepsilon}{(e^{a \cdot \varepsilon} - 1)^*} \cdot \color{blue}{\frac{(e^{\left(b + a\right) \cdot \varepsilon} - 1)^*}{(e^{\varepsilon \cdot b} - 1)^*}}\]
- Using strategy
rm Applied add-cbrt-cube0.1
\[\leadsto \frac{\varepsilon}{(e^{a \cdot \varepsilon} - 1)^*} \cdot \color{blue}{\sqrt[3]{\left(\frac{(e^{\left(b + a\right) \cdot \varepsilon} - 1)^*}{(e^{\varepsilon \cdot b} - 1)^*} \cdot \frac{(e^{\left(b + a\right) \cdot \varepsilon} - 1)^*}{(e^{\varepsilon \cdot b} - 1)^*}\right) \cdot \frac{(e^{\left(b + a\right) \cdot \varepsilon} - 1)^*}{(e^{\varepsilon \cdot b} - 1)^*}}}\]
- Recombined 2 regimes into one program.
Final simplification0.7
\[\leadsto \begin{array}{l}
\mathbf{if}\;\frac{\left(e^{\left(a + b\right) \cdot \varepsilon} - 1\right) \cdot \varepsilon}{\left(e^{\varepsilon \cdot b} - 1\right) \cdot \left(e^{a \cdot \varepsilon} - 1\right)} \le -2.5306429779527046 \cdot 10^{-60}:\\
\;\;\;\;\frac{1}{a} + \frac{1}{b}\\
\mathbf{elif}\;\frac{\left(e^{\left(a + b\right) \cdot \varepsilon} - 1\right) \cdot \varepsilon}{\left(e^{\varepsilon \cdot b} - 1\right) \cdot \left(e^{a \cdot \varepsilon} - 1\right)} \le 1.6721083591107385 \cdot 10^{-42}:\\
\;\;\;\;\sqrt[3]{\frac{(e^{\left(a + b\right) \cdot \varepsilon} - 1)^*}{(e^{\varepsilon \cdot b} - 1)^*} \cdot \left(\frac{(e^{\left(a + b\right) \cdot \varepsilon} - 1)^*}{(e^{\varepsilon \cdot b} - 1)^*} \cdot \frac{(e^{\left(a + b\right) \cdot \varepsilon} - 1)^*}{(e^{\varepsilon \cdot b} - 1)^*}\right)} \cdot \frac{\varepsilon}{(e^{a \cdot \varepsilon} - 1)^*}\\
\mathbf{else}:\\
\;\;\;\;\frac{1}{a} + \frac{1}{b}\\
\end{array}\]