- Split input into 2 regimes
if (* (* 0.5 (sin re)) (log (exp (- (exp (- im)) (exp im))))) < 0.004265090850955561
Initial program 43.5
\[\left(0.5 \cdot \sin re\right) \cdot \left(e^{-im} - e^{im}\right)\]
Taylor expanded around 0 0.6
\[\leadsto \left(0.5 \cdot \sin re\right) \cdot \color{blue}{\left(-\left(\frac{1}{60} \cdot {im}^{5} + \left(2 \cdot im + \frac{1}{3} \cdot {im}^{3}\right)\right)\right)}\]
Simplified0.6
\[\leadsto \left(0.5 \cdot \sin re\right) \cdot \color{blue}{(\left(-im\right) \cdot \left((\left(\frac{1}{3} \cdot im\right) \cdot im + 2)_*\right) + \left({im}^{5} \cdot \left(-\frac{1}{60}\right)\right))_*}\]
if 0.004265090850955561 < (* (* 0.5 (sin re)) (log (exp (- (exp (- im)) (exp im)))))
Initial program 5.7
\[\left(0.5 \cdot \sin re\right) \cdot \left(e^{-im} - e^{im}\right)\]
- Using strategy
rm Applied add-sqr-sqrt6.0
\[\leadsto \left(0.5 \cdot \sin re\right) \cdot \left(e^{-im} - \color{blue}{\sqrt{e^{im}} \cdot \sqrt{e^{im}}}\right)\]
Applied *-un-lft-identity6.0
\[\leadsto \left(0.5 \cdot \sin re\right) \cdot \left(\color{blue}{1 \cdot e^{-im}} - \sqrt{e^{im}} \cdot \sqrt{e^{im}}\right)\]
Applied prod-diff5.9
\[\leadsto \left(0.5 \cdot \sin re\right) \cdot \color{blue}{\left((1 \cdot \left(e^{-im}\right) + \left(-\sqrt{e^{im}} \cdot \sqrt{e^{im}}\right))_* + (\left(-\sqrt{e^{im}}\right) \cdot \left(\sqrt{e^{im}}\right) + \left(\sqrt{e^{im}} \cdot \sqrt{e^{im}}\right))_*\right)}\]
Applied distribute-lft-in5.9
\[\leadsto \color{blue}{\left(0.5 \cdot \sin re\right) \cdot (1 \cdot \left(e^{-im}\right) + \left(-\sqrt{e^{im}} \cdot \sqrt{e^{im}}\right))_* + \left(0.5 \cdot \sin re\right) \cdot (\left(-\sqrt{e^{im}}\right) \cdot \left(\sqrt{e^{im}}\right) + \left(\sqrt{e^{im}} \cdot \sqrt{e^{im}}\right))_*}\]
Simplified6.0
\[\leadsto \left(0.5 \cdot \sin re\right) \cdot (1 \cdot \left(e^{-im}\right) + \left(-\sqrt{e^{im}} \cdot \sqrt{e^{im}}\right))_* + \color{blue}{0}\]
- Recombined 2 regimes into one program.
Final simplification0.6
\[\leadsto \begin{array}{l}
\mathbf{if}\;\log \left(e^{e^{-im} - e^{im}}\right) \cdot \left(0.5 \cdot \sin re\right) \le 0.004265090850955561:\\
\;\;\;\;\left(0.5 \cdot \sin re\right) \cdot (\left(-im\right) \cdot \left((\left(\frac{1}{3} \cdot im\right) \cdot im + 2)_*\right) + \left({im}^{5} \cdot \left(-\frac{1}{60}\right)\right))_*\\
\mathbf{else}:\\
\;\;\;\;\left(0.5 \cdot \sin re\right) \cdot (1 \cdot \left(e^{-im}\right) + \left(\left(-\sqrt{e^{im}}\right) \cdot \sqrt{e^{im}}\right))_*\\
\end{array}\]