- Split input into 3 regimes
if (* (/ 1 (hypot c d)) (* (* (cbrt (/ (- (* c b) (* a d)) (hypot c d))) (cbrt (/ (- (* c b) (* a d)) (hypot c d)))) (cbrt (/ (- (* c b) (* a d)) (hypot c d))))) < -1.7827479515024495e+308
Initial program 63.0
\[\frac{b \cdot c - a \cdot d}{c \cdot c + d \cdot d}\]
- Using strategy
rm Applied add-sqr-sqrt63.0
\[\leadsto \frac{b \cdot c - a \cdot d}{\color{blue}{\sqrt{c \cdot c + d \cdot d} \cdot \sqrt{c \cdot c + d \cdot d}}}\]
Applied *-un-lft-identity63.0
\[\leadsto \frac{\color{blue}{1 \cdot \left(b \cdot c - a \cdot d\right)}}{\sqrt{c \cdot c + d \cdot d} \cdot \sqrt{c \cdot c + d \cdot d}}\]
Applied times-frac63.0
\[\leadsto \color{blue}{\frac{1}{\sqrt{c \cdot c + d \cdot d}} \cdot \frac{b \cdot c - a \cdot d}{\sqrt{c \cdot c + d \cdot d}}}\]
Simplified63.0
\[\leadsto \color{blue}{\frac{1}{\sqrt{c^2 + d^2}^*}} \cdot \frac{b \cdot c - a \cdot d}{\sqrt{c \cdot c + d \cdot d}}\]
Simplified62.0
\[\leadsto \frac{1}{\sqrt{c^2 + d^2}^*} \cdot \color{blue}{\frac{c \cdot b - a \cdot d}{\sqrt{c^2 + d^2}^*}}\]
Taylor expanded around 0 48.9
\[\leadsto \frac{1}{\sqrt{c^2 + d^2}^*} \cdot \color{blue}{\left(-1 \cdot a\right)}\]
Simplified48.9
\[\leadsto \frac{1}{\sqrt{c^2 + d^2}^*} \cdot \color{blue}{\left(-a\right)}\]
if -1.7827479515024495e+308 < (* (/ 1 (hypot c d)) (* (* (cbrt (/ (- (* c b) (* a d)) (hypot c d))) (cbrt (/ (- (* c b) (* a d)) (hypot c d)))) (cbrt (/ (- (* c b) (* a d)) (hypot c d))))) < 1.7723426321790147e+308
Initial program 13.8
\[\frac{b \cdot c - a \cdot d}{c \cdot c + d \cdot d}\]
- Using strategy
rm Applied add-sqr-sqrt13.8
\[\leadsto \frac{b \cdot c - a \cdot d}{\color{blue}{\sqrt{c \cdot c + d \cdot d} \cdot \sqrt{c \cdot c + d \cdot d}}}\]
Applied *-un-lft-identity13.8
\[\leadsto \frac{\color{blue}{1 \cdot \left(b \cdot c - a \cdot d\right)}}{\sqrt{c \cdot c + d \cdot d} \cdot \sqrt{c \cdot c + d \cdot d}}\]
Applied times-frac13.8
\[\leadsto \color{blue}{\frac{1}{\sqrt{c \cdot c + d \cdot d}} \cdot \frac{b \cdot c - a \cdot d}{\sqrt{c \cdot c + d \cdot d}}}\]
Simplified13.8
\[\leadsto \color{blue}{\frac{1}{\sqrt{c^2 + d^2}^*}} \cdot \frac{b \cdot c - a \cdot d}{\sqrt{c \cdot c + d \cdot d}}\]
Simplified1.5
\[\leadsto \frac{1}{\sqrt{c^2 + d^2}^*} \cdot \color{blue}{\frac{c \cdot b - a \cdot d}{\sqrt{c^2 + d^2}^*}}\]
if 1.7723426321790147e+308 < (* (/ 1 (hypot c d)) (* (* (cbrt (/ (- (* c b) (* a d)) (hypot c d))) (cbrt (/ (- (* c b) (* a d)) (hypot c d)))) (cbrt (/ (- (* c b) (* a d)) (hypot c d)))))
Initial program 62.0
\[\frac{b \cdot c - a \cdot d}{c \cdot c + d \cdot d}\]
- Using strategy
rm Applied add-sqr-sqrt62.0
\[\leadsto \frac{b \cdot c - a \cdot d}{\color{blue}{\sqrt{c \cdot c + d \cdot d} \cdot \sqrt{c \cdot c + d \cdot d}}}\]
Applied *-un-lft-identity62.0
\[\leadsto \frac{\color{blue}{1 \cdot \left(b \cdot c - a \cdot d\right)}}{\sqrt{c \cdot c + d \cdot d} \cdot \sqrt{c \cdot c + d \cdot d}}\]
Applied times-frac62.0
\[\leadsto \color{blue}{\frac{1}{\sqrt{c \cdot c + d \cdot d}} \cdot \frac{b \cdot c - a \cdot d}{\sqrt{c \cdot c + d \cdot d}}}\]
Simplified62.0
\[\leadsto \color{blue}{\frac{1}{\sqrt{c^2 + d^2}^*}} \cdot \frac{b \cdot c - a \cdot d}{\sqrt{c \cdot c + d \cdot d}}\]
Simplified62.0
\[\leadsto \frac{1}{\sqrt{c^2 + d^2}^*} \cdot \color{blue}{\frac{c \cdot b - a \cdot d}{\sqrt{c^2 + d^2}^*}}\]
Taylor expanded around inf 49.1
\[\leadsto \frac{1}{\sqrt{c^2 + d^2}^*} \cdot \color{blue}{b}\]
- Recombined 3 regimes into one program.
Final simplification13.4
\[\leadsto \begin{array}{l}
\mathbf{if}\;\frac{1}{\sqrt{c^2 + d^2}^*} \cdot \left(\sqrt[3]{\frac{b \cdot c - a \cdot d}{\sqrt{c^2 + d^2}^*}} \cdot \left(\sqrt[3]{\frac{b \cdot c - a \cdot d}{\sqrt{c^2 + d^2}^*}} \cdot \sqrt[3]{\frac{b \cdot c - a \cdot d}{\sqrt{c^2 + d^2}^*}}\right)\right) \le -1.7827479515024495 \cdot 10^{+308}:\\
\;\;\;\;\frac{1}{\sqrt{c^2 + d^2}^*} \cdot \left(-a\right)\\
\mathbf{elif}\;\frac{1}{\sqrt{c^2 + d^2}^*} \cdot \left(\sqrt[3]{\frac{b \cdot c - a \cdot d}{\sqrt{c^2 + d^2}^*}} \cdot \left(\sqrt[3]{\frac{b \cdot c - a \cdot d}{\sqrt{c^2 + d^2}^*}} \cdot \sqrt[3]{\frac{b \cdot c - a \cdot d}{\sqrt{c^2 + d^2}^*}}\right)\right) \le 1.7723426321790147 \cdot 10^{+308}:\\
\;\;\;\;\frac{b \cdot c - a \cdot d}{\sqrt{c^2 + d^2}^*} \cdot \frac{1}{\sqrt{c^2 + d^2}^*}\\
\mathbf{else}:\\
\;\;\;\;b \cdot \frac{1}{\sqrt{c^2 + d^2}^*}\\
\end{array}\]