- Split input into 2 regimes
if (* (/ (expm1 (* (+ a b) eps)) (* (expm1 (fma b (+ eps eps) (* eps b))) (/ (expm1 (* a eps)) eps))) (+ (* (exp (* b eps)) (exp (* b eps))) (+ (* 1 1) (* (exp (* b eps)) 1)))) < -3.0522411179596246e-34 or 1.850491661493059e-67 < (* (/ (expm1 (* (+ a b) eps)) (* (expm1 (fma b (+ eps eps) (* eps b))) (/ (expm1 (* a eps)) eps))) (+ (* (exp (* b eps)) (exp (* b eps))) (+ (* 1 1) (* (exp (* b eps)) 1))))
Initial program 60.2
\[\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 1.9
\[\leadsto \color{blue}{\frac{1}{b} + \frac{1}{a}}\]
if -3.0522411179596246e-34 < (* (/ (expm1 (* (+ a b) eps)) (* (expm1 (fma b (+ eps eps) (* eps b))) (/ (expm1 (* a eps)) eps))) (+ (* (exp (* b eps)) (exp (* b eps))) (+ (* 1 1) (* (exp (* b eps)) 1)))) < 1.850491661493059e-67
Initial program 44.9
\[\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 flip3--45.1
\[\leadsto \frac{\varepsilon \cdot \left(e^{\left(a + b\right) \cdot \varepsilon} - 1\right)}{\left(e^{a \cdot \varepsilon} - 1\right) \cdot \color{blue}{\frac{{\left(e^{b \cdot \varepsilon}\right)}^{3} - {1}^{3}}{e^{b \cdot \varepsilon} \cdot e^{b \cdot \varepsilon} + \left(1 \cdot 1 + e^{b \cdot \varepsilon} \cdot 1\right)}}}\]
Applied associate-*r/45.1
\[\leadsto \frac{\varepsilon \cdot \left(e^{\left(a + b\right) \cdot \varepsilon} - 1\right)}{\color{blue}{\frac{\left(e^{a \cdot \varepsilon} - 1\right) \cdot \left({\left(e^{b \cdot \varepsilon}\right)}^{3} - {1}^{3}\right)}{e^{b \cdot \varepsilon} \cdot e^{b \cdot \varepsilon} + \left(1 \cdot 1 + e^{b \cdot \varepsilon} \cdot 1\right)}}}\]
Applied associate-/r/45.1
\[\leadsto \color{blue}{\frac{\varepsilon \cdot \left(e^{\left(a + b\right) \cdot \varepsilon} - 1\right)}{\left(e^{a \cdot \varepsilon} - 1\right) \cdot \left({\left(e^{b \cdot \varepsilon}\right)}^{3} - {1}^{3}\right)} \cdot \left(e^{b \cdot \varepsilon} \cdot e^{b \cdot \varepsilon} + \left(1 \cdot 1 + e^{b \cdot \varepsilon} \cdot 1\right)\right)}\]
Applied simplify0.7
\[\leadsto \color{blue}{\frac{(e^{\left(a + b\right) \cdot \varepsilon} - 1)^*}{(e^{(b \cdot \left(\varepsilon + \varepsilon\right) + \left(\varepsilon \cdot b\right))_*} - 1)^* \cdot \frac{(e^{a \cdot \varepsilon} - 1)^*}{\varepsilon}}} \cdot \left(e^{b \cdot \varepsilon} \cdot e^{b \cdot \varepsilon} + \left(1 \cdot 1 + e^{b \cdot \varepsilon} \cdot 1\right)\right)\]
- Recombined 2 regimes into one program.
Applied simplify1.8
\[\leadsto \color{blue}{\begin{array}{l}
\mathbf{if}\;\frac{(e^{\left(b + a\right) \cdot \varepsilon} - 1)^*}{(e^{(b \cdot \left(\varepsilon + \varepsilon\right) + \left(\varepsilon \cdot b\right))_*} - 1)^* \cdot \frac{(e^{\varepsilon \cdot a} - 1)^*}{\varepsilon}} \cdot \left(\left(1 + e^{\varepsilon \cdot b}\right) + e^{\varepsilon \cdot b} \cdot e^{\varepsilon \cdot b}\right) \le -3.0522411179596246 \cdot 10^{-34}:\\
\;\;\;\;\frac{1}{a} + \frac{1}{b}\\
\mathbf{if}\;\frac{(e^{\left(b + a\right) \cdot \varepsilon} - 1)^*}{(e^{(b \cdot \left(\varepsilon + \varepsilon\right) + \left(\varepsilon \cdot b\right))_*} - 1)^* \cdot \frac{(e^{\varepsilon \cdot a} - 1)^*}{\varepsilon}} \cdot \left(\left(1 + e^{\varepsilon \cdot b}\right) + e^{\varepsilon \cdot b} \cdot e^{\varepsilon \cdot b}\right) \le 1.850491661493059 \cdot 10^{-67}:\\
\;\;\;\;\frac{(e^{\left(b + a\right) \cdot \varepsilon} - 1)^*}{(e^{(b \cdot \left(\varepsilon + \varepsilon\right) + \left(\varepsilon \cdot b\right))_*} - 1)^* \cdot \frac{(e^{\varepsilon \cdot a} - 1)^*}{\varepsilon}} \cdot \left(\left(1 + e^{\varepsilon \cdot b}\right) + e^{\varepsilon \cdot b} \cdot e^{\varepsilon \cdot b}\right)\\
\mathbf{else}:\\
\;\;\;\;\frac{1}{a} + \frac{1}{b}\\
\end{array}}\]