- Split input into 3 regimes
if (/ (* a1 a2) (* b1 b2)) < -inf.0
Initial program 60.0
\[\frac{a1 \cdot a2}{b1 \cdot b2}\]
- Using strategy
rm Applied *-commutative60.0
\[\leadsto \frac{\color{blue}{a2 \cdot a1}}{b1 \cdot b2}\]
Applied times-frac9.4
\[\leadsto \color{blue}{\frac{a2}{b1} \cdot \frac{a1}{b2}}\]
if -inf.0 < (/ (* a1 a2) (* b1 b2)) < -4.125924969496399e-285 or -0.0 < (/ (* a1 a2) (* b1 b2)) < 5.297084501397168e+277
Initial program 0.8
\[\frac{a1 \cdot a2}{b1 \cdot b2}\]
- Using strategy
rm Applied *-un-lft-identity0.8
\[\leadsto \frac{a1 \cdot \color{blue}{\left(1 \cdot a2\right)}}{b1 \cdot b2}\]
Applied associate-*r*0.8
\[\leadsto \frac{\color{blue}{\left(a1 \cdot 1\right) \cdot a2}}{b1 \cdot b2}\]
Applied times-frac16.5
\[\leadsto \color{blue}{\frac{a1 \cdot 1}{b1} \cdot \frac{a2}{b2}}\]
Simplified16.5
\[\leadsto \color{blue}{\frac{a1}{b1}} \cdot \frac{a2}{b2}\]
- Using strategy
rm Applied frac-2neg16.5
\[\leadsto \frac{a1}{b1} \cdot \color{blue}{\frac{-a2}{-b2}}\]
Applied frac-2neg16.5
\[\leadsto \color{blue}{\frac{-a1}{-b1}} \cdot \frac{-a2}{-b2}\]
Applied frac-times0.8
\[\leadsto \color{blue}{\frac{\left(-a1\right) \cdot \left(-a2\right)}{\left(-b1\right) \cdot \left(-b2\right)}}\]
Simplified0.8
\[\leadsto \frac{\color{blue}{a1 \cdot a2}}{\left(-b1\right) \cdot \left(-b2\right)}\]
Simplified0.8
\[\leadsto \frac{a1 \cdot a2}{\color{blue}{b1 \cdot b2}}\]
if -4.125924969496399e-285 < (/ (* a1 a2) (* b1 b2)) < -0.0 or 5.297084501397168e+277 < (/ (* a1 a2) (* b1 b2))
Initial program 21.5
\[\frac{a1 \cdot a2}{b1 \cdot b2}\]
- Using strategy
rm Applied *-un-lft-identity21.5
\[\leadsto \frac{a1 \cdot \color{blue}{\left(1 \cdot a2\right)}}{b1 \cdot b2}\]
Applied associate-*r*21.5
\[\leadsto \frac{\color{blue}{\left(a1 \cdot 1\right) \cdot a2}}{b1 \cdot b2}\]
Applied times-frac3.7
\[\leadsto \color{blue}{\frac{a1 \cdot 1}{b1} \cdot \frac{a2}{b2}}\]
Simplified3.7
\[\leadsto \color{blue}{\frac{a1}{b1}} \cdot \frac{a2}{b2}\]
- Recombined 3 regimes into one program.
Final simplification2.3
\[\leadsto \begin{array}{l}
\mathbf{if}\;\frac{a1 \cdot a2}{b1 \cdot b2} = -\infty:\\
\;\;\;\;\frac{a2}{b1} \cdot \frac{a1}{b2}\\
\mathbf{elif}\;\frac{a1 \cdot a2}{b1 \cdot b2} \le -4.125924969496399 \cdot 10^{-285}:\\
\;\;\;\;\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 5.297084501397168 \cdot 10^{+277}:\\
\;\;\;\;\frac{a1 \cdot a2}{b1 \cdot b2}\\
\mathbf{else}:\\
\;\;\;\;\frac{a1}{b1} \cdot \frac{a2}{b2}\\
\end{array}\]