- Split input into 4 regimes
if (* (* (/ a1 b1) a2) (/ 1 b2))
Initial program 13.8
\[\frac{a1 \cdot a2}{b1 \cdot b2}\]
- Using strategy
rm Applied associate-/l*8.3
\[\leadsto \color{blue}{\frac{a1}{\frac{b1 \cdot b2}{a2}}}\]
if (* (* (/ a1 b1) a2) (/ 1 b2)) < -1.6848040881849e-313 or 0.0 < (* (* (/ a1 b1) a2) (/ 1 b2)) < 5.3649185644193914e+281
Initial program 14.7
\[\frac{a1 \cdot a2}{b1 \cdot b2}\]
- Using strategy
rm Applied times-frac7.8
\[\leadsto \color{blue}{\frac{a1}{b1} \cdot \frac{a2}{b2}}\]
- Using strategy
rm Applied div-inv7.8
\[\leadsto \frac{a1}{b1} \cdot \color{blue}{\left(a2 \cdot \frac{1}{b2}\right)}\]
Applied associate-*r*0.9
\[\leadsto \color{blue}{\left(\frac{a1}{b1} \cdot a2\right) \cdot \frac{1}{b2}}\]
if -1.6848040881849e-313 < (* (* (/ a1 b1) a2) (/ 1 b2)) < 0.0
Initial program 3.7
\[\frac{a1 \cdot a2}{b1 \cdot b2}\]
- Using strategy
rm Applied times-frac8.5
\[\leadsto \color{blue}{\frac{a1}{b1} \cdot \frac{a2}{b2}}\]
- Using strategy
rm Applied div-inv8.5
\[\leadsto \frac{a1}{b1} \cdot \color{blue}{\left(a2 \cdot \frac{1}{b2}\right)}\]
Applied associate-*r*14.1
\[\leadsto \color{blue}{\left(\frac{a1}{b1} \cdot a2\right) \cdot \frac{1}{b2}}\]
- Using strategy
rm Applied pow114.1
\[\leadsto \left(\frac{a1}{b1} \cdot a2\right) \cdot \color{blue}{{\left(\frac{1}{b2}\right)}^{1}}\]
Applied pow114.1
\[\leadsto \color{blue}{{\left(\frac{a1}{b1} \cdot a2\right)}^{1}} \cdot {\left(\frac{1}{b2}\right)}^{1}\]
Applied pow-prod-down14.1
\[\leadsto \color{blue}{{\left(\left(\frac{a1}{b1} \cdot a2\right) \cdot \frac{1}{b2}\right)}^{1}}\]
Applied simplify3.7
\[\leadsto {\color{blue}{\left(\frac{\frac{a1}{b2}}{\frac{b1}{a2}}\right)}}^{1}\]
if 5.3649185644193914e+281 < (* (* (/ a1 b1) a2) (/ 1 b2))
Initial program 15.9
\[\frac{a1 \cdot a2}{b1 \cdot b2}\]
- Using strategy
rm Applied clear-num16.0
\[\leadsto \color{blue}{\frac{1}{\frac{b1 \cdot b2}{a1 \cdot a2}}}\]
- Recombined 4 regimes into one program.
Applied simplify3.0
\[\leadsto \color{blue}{\begin{array}{l}
\mathbf{if}\;\frac{1}{b2} \cdot \left(\frac{a1}{b1} \cdot a2\right) = -\infty:\\
\;\;\;\;\frac{a1}{\frac{b2 \cdot b1}{a2}}\\
\mathbf{if}\;\frac{1}{b2} \cdot \left(\frac{a1}{b1} \cdot a2\right) \le -1.6848040881849 \cdot 10^{-313}:\\
\;\;\;\;\frac{1}{b2} \cdot \left(\frac{a1}{b1} \cdot a2\right)\\
\mathbf{if}\;\frac{1}{b2} \cdot \left(\frac{a1}{b1} \cdot a2\right) \le 0.0:\\
\;\;\;\;\frac{\frac{a1}{b2}}{\frac{b1}{a2}}\\
\mathbf{if}\;\frac{1}{b2} \cdot \left(\frac{a1}{b1} \cdot a2\right) \le 5.3649185644193914 \cdot 10^{+281}:\\
\;\;\;\;\frac{1}{b2} \cdot \left(\frac{a1}{b1} \cdot a2\right)\\
\mathbf{else}:\\
\;\;\;\;\frac{1}{\frac{b2 \cdot b1}{a2 \cdot a1}}\\
\end{array}}\]