- Split input into 2 regimes
if (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) < 0.9999999999864747
Initial program 13.3
\[\frac{\sin ky}{\sqrt{{\left(\sin kx\right)}^{2} + {\left(\sin ky\right)}^{2}}} \cdot \sin th\]
- Using strategy
rm Applied add-cube-cbrt13.6
\[\leadsto \frac{\sin ky}{\sqrt{{\color{blue}{\left(\left(\sqrt[3]{\sin kx} \cdot \sqrt[3]{\sin kx}\right) \cdot \sqrt[3]{\sin kx}\right)}}^{2} + {\left(\sin ky\right)}^{2}}} \cdot \sin th\]
Applied unpow-prod-down13.6
\[\leadsto \frac{\sin ky}{\sqrt{\color{blue}{{\left(\sqrt[3]{\sin kx} \cdot \sqrt[3]{\sin kx}\right)}^{2} \cdot {\left(\sqrt[3]{\sin kx}\right)}^{2}} + {\left(\sin ky\right)}^{2}}} \cdot \sin th\]
Simplified13.5
\[\leadsto \frac{\sin ky}{\sqrt{\color{blue}{\left(\sqrt[3]{\sin kx} \cdot \sin kx\right)} \cdot {\left(\sqrt[3]{\sin kx}\right)}^{2} + {\left(\sin ky\right)}^{2}}} \cdot \sin th\]
- Using strategy
rm Applied add-cube-cbrt13.5
\[\leadsto \frac{\sin ky}{\sqrt{\left(\sqrt[3]{\color{blue}{\left(\sqrt[3]{\sin kx} \cdot \sqrt[3]{\sin kx}\right) \cdot \sqrt[3]{\sin kx}}} \cdot \sin kx\right) \cdot {\left(\sqrt[3]{\sin kx}\right)}^{2} + {\left(\sin ky\right)}^{2}}} \cdot \sin th\]
Applied cbrt-prod13.5
\[\leadsto \frac{\sin ky}{\sqrt{\left(\color{blue}{\left(\sqrt[3]{\sqrt[3]{\sin kx} \cdot \sqrt[3]{\sin kx}} \cdot \sqrt[3]{\sqrt[3]{\sin kx}}\right)} \cdot \sin kx\right) \cdot {\left(\sqrt[3]{\sin kx}\right)}^{2} + {\left(\sin ky\right)}^{2}}} \cdot \sin th\]
if 0.9999999999864747 < (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))))
Initial program 9.1
\[\frac{\sin ky}{\sqrt{{\left(\sin kx\right)}^{2} + {\left(\sin ky\right)}^{2}}} \cdot \sin th\]
- Using strategy
rm Applied *-un-lft-identity9.1
\[\leadsto \frac{\color{blue}{1 \cdot \sin ky}}{\sqrt{{\left(\sin kx\right)}^{2} + {\left(\sin ky\right)}^{2}}} \cdot \sin th\]
Applied associate-/l*9.1
\[\leadsto \color{blue}{\frac{1}{\frac{\sqrt{{\left(\sin kx\right)}^{2} + {\left(\sin ky\right)}^{2}}}{\sin ky}}} \cdot \sin th\]
Taylor expanded around 0 5.0
\[\leadsto \color{blue}{\left(1 - \frac{1}{6} \cdot {kx}^{2}\right)} \cdot \sin th\]
Simplified5.0
\[\leadsto \color{blue}{\left(1 + \frac{-1}{6} \cdot \left(kx \cdot kx\right)\right)} \cdot \sin th\]
- Recombined 2 regimes into one program.
Final simplification11.8
\[\leadsto \begin{array}{l}
\mathbf{if}\;\frac{\sin ky}{\sqrt{{\left(\sin kx\right)}^{2} + {\left(\sin ky\right)}^{2}}} \le 0.9999999999864747:\\
\;\;\;\;\sin th \cdot \frac{\sin ky}{\sqrt{{\left(\sqrt[3]{\sin kx}\right)}^{2} \cdot \left(\sin kx \cdot \left(\sqrt[3]{\sqrt[3]{\sin kx}} \cdot \sqrt[3]{\sqrt[3]{\sin kx} \cdot \sqrt[3]{\sin kx}}\right)\right) + {\left(\sin ky\right)}^{2}}}\\
\mathbf{else}:\\
\;\;\;\;\left(\frac{-1}{6} \cdot \left(kx \cdot kx\right) + 1\right) \cdot \sin th\\
\end{array}\]