- Split input into 2 regimes
if (/ (* eps (- (exp (* (+ a b) eps)) 1)) (* (- (exp (* a eps)) 1) (- (exp (* b eps)) 1))) < -698.5895797439636 or 1.902944300403157e-13 < (/ (* eps (- (exp (* (+ a b) eps)) 1)) (* (- (exp (* a eps)) 1) (- (exp (* b eps)) 1)))
Initial program 62.0
\[\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.2
\[\leadsto \color{blue}{\frac{1}{a} + \frac{1}{b}}\]
if -698.5895797439636 < (/ (* eps (- (exp (* (+ a b) eps)) 1)) (* (- (exp (* a eps)) 1) (- (exp (* b eps)) 1))) < 1.902944300403157e-13
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 add-sqr-sqrt3.5
\[\leadsto \frac{\varepsilon \cdot \left(e^{\left(a + b\right) \cdot \varepsilon} - 1\right)}{\left(e^{a \cdot \varepsilon} - 1\right) \cdot \left(\color{blue}{\sqrt{e^{b \cdot \varepsilon}} \cdot \sqrt{e^{b \cdot \varepsilon}}} - 1\right)}\]
Applied difference-of-sqr-13.5
\[\leadsto \frac{\varepsilon \cdot \left(e^{\left(a + b\right) \cdot \varepsilon} - 1\right)}{\left(e^{a \cdot \varepsilon} - 1\right) \cdot \color{blue}{\left(\left(\sqrt{e^{b \cdot \varepsilon}} + 1\right) \cdot \left(\sqrt{e^{b \cdot \varepsilon}} - 1\right)\right)}}\]
- Recombined 2 regimes into one program.
Final simplification0.4
\[\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^{\varepsilon \cdot a} - 1\right)} \le -698.5895797439636:\\
\;\;\;\;\frac{1}{b} + \frac{1}{a}\\
\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^{\varepsilon \cdot a} - 1\right)} \le 1.902944300403157 \cdot 10^{-13}:\\
\;\;\;\;\frac{\left(e^{\left(a + b\right) \cdot \varepsilon} - 1\right) \cdot \varepsilon}{\left(\left(\sqrt{e^{\varepsilon \cdot b}} + 1\right) \cdot \left(\sqrt{e^{\varepsilon \cdot b}} - 1\right)\right) \cdot \left(e^{\varepsilon \cdot a} - 1\right)}\\
\mathbf{else}:\\
\;\;\;\;\frac{1}{b} + \frac{1}{a}\\
\end{array}\]