- Split input into 2 regimes
if (/ (exp (log (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))))) (sin ky)) < -6.9465654213039e-310 or 6.94656542130387e-310 < (/ (exp (log (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))))) (sin ky))
Initial program 0.3
\[\frac{\sin ky}{\sqrt{{\left(\sin kx\right)}^{2} + {\left(\sin ky\right)}^{2}}} \cdot \sin th\]
- Using strategy
rm Applied div-inv0.4
\[\leadsto \color{blue}{\left(\sin ky \cdot \frac{1}{\sqrt{{\left(\sin kx\right)}^{2} + {\left(\sin ky\right)}^{2}}}\right)} \cdot \sin th\]
if -6.9465654213039e-310 < (/ (exp (log (sqrt (+ (* (sin kx) (sin kx)) (* (sin ky) (sin ky)))))) (sin ky)) < 6.94656542130387e-310
Initial program 62.4
\[\frac{\sin ky}{\sqrt{{\left(\sin kx\right)}^{2} + {\left(\sin ky\right)}^{2}}} \cdot \sin th\]
Initial simplification62.4
\[\leadsto \frac{\sin th \cdot \sin ky}{\sqrt{\sin kx \cdot \sin kx + \sin ky \cdot \sin ky}}\]
Taylor expanded around 0 49.6
\[\leadsto \frac{\sin th \cdot \sin ky}{\color{blue}{\left(\frac{1}{12} \cdot \left({kx}^{2} \cdot ky\right) + ky\right) - \frac{1}{6} \cdot {ky}^{3}}}\]
- Recombined 2 regimes into one program.
Final simplification3.4
\[\leadsto \begin{array}{l}
\mathbf{if}\;\frac{e^{\log \left(\sqrt{\sin ky \cdot \sin ky + \sin kx \cdot \sin kx}\right)}}{\sin ky} \le -6.9465654213039 \cdot 10^{-310}:\\
\;\;\;\;\sin th \cdot \left(\sin ky \cdot \frac{1}{\sqrt{{\left(\sin kx\right)}^{2} + {\left(\sin ky\right)}^{2}}}\right)\\
\mathbf{elif}\;\frac{e^{\log \left(\sqrt{\sin ky \cdot \sin ky + \sin kx \cdot \sin kx}\right)}}{\sin ky} \le 6.94656542130387 \cdot 10^{-310}:\\
\;\;\;\;\frac{\sin ky \cdot \sin th}{\left(\left({kx}^{2} \cdot ky\right) \cdot \frac{1}{12} + ky\right) - {ky}^{3} \cdot \frac{1}{6}}\\
\mathbf{else}:\\
\;\;\;\;\sin th \cdot \left(\sin ky \cdot \frac{1}{\sqrt{{\left(\sin kx\right)}^{2} + {\left(\sin ky\right)}^{2}}}\right)\\
\end{array}\]