- Split input into 2 regimes
if (* (fma (* im (sqrt (fma (* im 1/3) im 2))) (- (fma (/ (* im im) (sqrt 2)) 1/6 (sqrt 2)) (/ (* (/ 1/72 2) (pow im 4)) (sqrt 2))) (* (pow im 5) 1/60)) (* (- 0.5) (cos re))) < 0.13796459554497495
Initial program 58.3
\[\left(0.5 \cdot \cos re\right) \cdot \left(e^{0 - im} - e^{im}\right)\]
Taylor expanded around 0 0.5
\[\leadsto \left(0.5 \cdot \cos re\right) \cdot \color{blue}{\left(-\left(\frac{1}{3} \cdot {im}^{3} + \left(\frac{1}{60} \cdot {im}^{5} + 2 \cdot im\right)\right)\right)}\]
Applied simplify0.5
\[\leadsto \color{blue}{\left(\cos re \cdot \left(-0.5\right)\right) \cdot (im \cdot \left((im \cdot \left(\frac{1}{3} \cdot im\right) + 2)_*\right) + \left({im}^{5} \cdot \frac{1}{60}\right))_*}\]
if 0.13796459554497495 < (* (fma (* im (sqrt (fma (* im 1/3) im 2))) (- (fma (/ (* im im) (sqrt 2)) 1/6 (sqrt 2)) (/ (* (/ 1/72 2) (pow im 4)) (sqrt 2))) (* (pow im 5) 1/60)) (* (- 0.5) (cos re)))
Initial program 0.4
\[\left(0.5 \cdot \cos re\right) \cdot \left(e^{0 - im} - e^{im}\right)\]
- Using strategy
rm Applied add-cube-cbrt0.8
\[\leadsto \left(0.5 \cdot \cos re\right) \cdot \left(e^{0 - im} - \color{blue}{\left(\sqrt[3]{e^{im}} \cdot \sqrt[3]{e^{im}}\right) \cdot \sqrt[3]{e^{im}}}\right)\]
Applied sub-neg0.8
\[\leadsto \left(0.5 \cdot \cos re\right) \cdot \left(e^{\color{blue}{0 + \left(-im\right)}} - \left(\sqrt[3]{e^{im}} \cdot \sqrt[3]{e^{im}}\right) \cdot \sqrt[3]{e^{im}}\right)\]
Applied exp-sum0.8
\[\leadsto \left(0.5 \cdot \cos re\right) \cdot \left(\color{blue}{e^{0} \cdot e^{-im}} - \left(\sqrt[3]{e^{im}} \cdot \sqrt[3]{e^{im}}\right) \cdot \sqrt[3]{e^{im}}\right)\]
Applied prod-diff0.8
\[\leadsto \left(0.5 \cdot \cos re\right) \cdot \color{blue}{\left((\left(e^{0}\right) \cdot \left(e^{-im}\right) + \left(-\sqrt[3]{e^{im}} \cdot \left(\sqrt[3]{e^{im}} \cdot \sqrt[3]{e^{im}}\right)\right))_* + (\left(-\sqrt[3]{e^{im}}\right) \cdot \left(\sqrt[3]{e^{im}} \cdot \sqrt[3]{e^{im}}\right) + \left(\sqrt[3]{e^{im}} \cdot \left(\sqrt[3]{e^{im}} \cdot \sqrt[3]{e^{im}}\right)\right))_*\right)}\]
Applied distribute-lft-in0.8
\[\leadsto \color{blue}{\left(0.5 \cdot \cos re\right) \cdot (\left(e^{0}\right) \cdot \left(e^{-im}\right) + \left(-\sqrt[3]{e^{im}} \cdot \left(\sqrt[3]{e^{im}} \cdot \sqrt[3]{e^{im}}\right)\right))_* + \left(0.5 \cdot \cos re\right) \cdot (\left(-\sqrt[3]{e^{im}}\right) \cdot \left(\sqrt[3]{e^{im}} \cdot \sqrt[3]{e^{im}}\right) + \left(\sqrt[3]{e^{im}} \cdot \left(\sqrt[3]{e^{im}} \cdot \sqrt[3]{e^{im}}\right)\right))_*}\]
Applied simplify0.5
\[\leadsto \color{blue}{\left(\frac{\cos re}{e^{im}} - e^{im} \cdot \cos re\right) \cdot 0.5} + \left(0.5 \cdot \cos re\right) \cdot (\left(-\sqrt[3]{e^{im}}\right) \cdot \left(\sqrt[3]{e^{im}} \cdot \sqrt[3]{e^{im}}\right) + \left(\sqrt[3]{e^{im}} \cdot \left(\sqrt[3]{e^{im}} \cdot \sqrt[3]{e^{im}}\right)\right))_*\]
Applied simplify0.5
\[\leadsto \left(\frac{\cos re}{e^{im}} - e^{im} \cdot \cos re\right) \cdot 0.5 + \color{blue}{0}\]
- Recombined 2 regimes into one program.
Applied simplify0.5
\[\leadsto \color{blue}{\begin{array}{l}
\mathbf{if}\;(\left(\sqrt{(\left(im \cdot \frac{1}{3}\right) \cdot im + 2)_*} \cdot im\right) \cdot \left((\left(\frac{im \cdot im}{\sqrt{2}}\right) \cdot \frac{1}{6} + \left(\sqrt{2}\right))_* - \frac{\frac{\frac{1}{72}}{2} \cdot {im}^{4}}{\sqrt{2}}\right) + \left({im}^{5} \cdot \frac{1}{60}\right))_* \cdot \left(\cos re \cdot \left(-0.5\right)\right) \le 0.13796459554497495:\\
\;\;\;\;(im \cdot \left((im \cdot \left(im \cdot \frac{1}{3}\right) + 2)_*\right) + \left({im}^{5} \cdot \frac{1}{60}\right))_* \cdot \left(\cos re \cdot \left(-0.5\right)\right)\\
\mathbf{else}:\\
\;\;\;\;\left(\frac{\cos re}{e^{im}} - \cos re \cdot e^{im}\right) \cdot 0.5\\
\end{array}}\]