- Split input into 3 regimes
if (/ (* a1 a2) (* b1 b2)) < -inf.0 or -5.151898332318784e-292 < (/ (* a1 a2) (* b1 b2)) < 0.0
Initial program 17.1
\[\frac{a1 \cdot a2}{b1 \cdot b2}\]
- Using strategy
rm Applied times-frac3.8
\[\leadsto \color{blue}{\frac{a1}{b1} \cdot \frac{a2}{b2}}\]
if -inf.0 < (/ (* a1 a2) (* b1 b2)) < -5.151898332318784e-292 or 0.0 < (/ (* a1 a2) (* b1 b2)) < 4.1965568631417737e+301
Initial program 0.7
\[\frac{a1 \cdot a2}{b1 \cdot b2}\]
- Using strategy
rm Applied add-cube-cbrt1.8
\[\leadsto \color{blue}{\left(\sqrt[3]{\frac{a1 \cdot a2}{b1 \cdot b2}} \cdot \sqrt[3]{\frac{a1 \cdot a2}{b1 \cdot b2}}\right) \cdot \sqrt[3]{\frac{a1 \cdot a2}{b1 \cdot b2}}}\]
if 4.1965568631417737e+301 < (/ (* a1 a2) (* b1 b2))
Initial program 60.1
\[\frac{a1 \cdot a2}{b1 \cdot b2}\]
- Using strategy
rm Applied associate-/l*43.7
\[\leadsto \color{blue}{\frac{a1}{\frac{b1 \cdot b2}{a2}}}\]
- Using strategy
rm Applied div-inv43.7
\[\leadsto \color{blue}{a1 \cdot \frac{1}{\frac{b1 \cdot b2}{a2}}}\]
- Using strategy
rm Applied associate-/l*14.7
\[\leadsto a1 \cdot \frac{1}{\color{blue}{\frac{b1}{\frac{a2}{b2}}}}\]
- Recombined 3 regimes into one program.
Final simplification3.4
\[\leadsto \begin{array}{l}
\mathbf{if}\;\frac{a1 \cdot a2}{b1 \cdot b2} = -\infty:\\
\;\;\;\;\frac{a1}{b1} \cdot \frac{a2}{b2}\\
\mathbf{elif}\;\frac{a1 \cdot a2}{b1 \cdot b2} \le -5.151898332318784 \cdot 10^{-292}:\\
\;\;\;\;\left(\sqrt[3]{\frac{a1 \cdot a2}{b1 \cdot b2}} \cdot \sqrt[3]{\frac{a1 \cdot a2}{b1 \cdot b2}}\right) \cdot \sqrt[3]{\frac{a1 \cdot a2}{b1 \cdot b2}}\\
\mathbf{elif}\;\frac{a1 \cdot a2}{b1 \cdot b2} \le 0.0:\\
\;\;\;\;\frac{a1}{b1} \cdot \frac{a2}{b2}\\
\mathbf{elif}\;\frac{a1 \cdot a2}{b1 \cdot b2} \le 4.1965568631417737 \cdot 10^{+301}:\\
\;\;\;\;\left(\sqrt[3]{\frac{a1 \cdot a2}{b1 \cdot b2}} \cdot \sqrt[3]{\frac{a1 \cdot a2}{b1 \cdot b2}}\right) \cdot \sqrt[3]{\frac{a1 \cdot a2}{b1 \cdot b2}}\\
\mathbf{else}:\\
\;\;\;\;\frac{1}{\frac{b1}{\frac{a2}{b2}}} \cdot a1\\
\end{array}\]