- Split input into 3 regimes
if (+ (* (cbrt (/ 1 (* 2 a))) (cbrt (+ (- g) g))) (/ (cbrt (- (- g) (sqrt (* (- g h) (+ g h))))) (cbrt (* 2 a)))) < -4.644802488352878e-113
Initial program 42.8
\[\sqrt[3]{\frac{1}{2 \cdot a} \cdot \left(\left(-g\right) + \sqrt{g \cdot g - h \cdot h}\right)} + \sqrt[3]{\frac{1}{2 \cdot a} \cdot \left(\left(-g\right) - \sqrt{g \cdot g - h \cdot h}\right)}\]
- Using strategy
rm Applied cbrt-prod42.7
\[\leadsto \color{blue}{\sqrt[3]{\frac{1}{2 \cdot a}} \cdot \sqrt[3]{\left(-g\right) + \sqrt{g \cdot g - h \cdot h}}} + \sqrt[3]{\frac{1}{2 \cdot a} \cdot \left(\left(-g\right) - \sqrt{g \cdot g - h \cdot h}\right)}\]
- Using strategy
rm Applied associate-*l/42.7
\[\leadsto \sqrt[3]{\frac{1}{2 \cdot a}} \cdot \sqrt[3]{\left(-g\right) + \sqrt{g \cdot g - h \cdot h}} + \sqrt[3]{\color{blue}{\frac{1 \cdot \left(\left(-g\right) - \sqrt{g \cdot g - h \cdot h}\right)}{2 \cdot a}}}\]
Applied cbrt-div40.9
\[\leadsto \sqrt[3]{\frac{1}{2 \cdot a}} \cdot \sqrt[3]{\left(-g\right) + \sqrt{g \cdot g - h \cdot h}} + \color{blue}{\frac{\sqrt[3]{1 \cdot \left(\left(-g\right) - \sqrt{g \cdot g - h \cdot h}\right)}}{\sqrt[3]{2 \cdot a}}}\]
Simplified40.9
\[\leadsto \sqrt[3]{\frac{1}{2 \cdot a}} \cdot \sqrt[3]{\left(-g\right) + \sqrt{g \cdot g - h \cdot h}} + \frac{\color{blue}{\sqrt[3]{\left(-g\right) - \sqrt{\left(g - h\right) \cdot \left(g + h\right)}}}}{\sqrt[3]{2 \cdot a}}\]
Taylor expanded around inf 41.3
\[\leadsto \sqrt[3]{\frac{1}{2 \cdot a}} \cdot \sqrt[3]{\left(-g\right) + \color{blue}{g}} + \frac{\sqrt[3]{\left(-g\right) - \sqrt{\left(g - h\right) \cdot \left(g + h\right)}}}{\sqrt[3]{2 \cdot a}}\]
if -4.644802488352878e-113 < (+ (* (cbrt (/ 1 (* 2 a))) (cbrt (+ (- g) g))) (/ (cbrt (- (- g) (sqrt (* (- g h) (+ g h))))) (cbrt (* 2 a)))) < 3.1391489186073185e-117
Initial program 13.7
\[\sqrt[3]{\frac{1}{2 \cdot a} \cdot \left(\left(-g\right) + \sqrt{g \cdot g - h \cdot h}\right)} + \sqrt[3]{\frac{1}{2 \cdot a} \cdot \left(\left(-g\right) - \sqrt{g \cdot g - h \cdot h}\right)}\]
- Using strategy
rm Applied cbrt-prod6.2
\[\leadsto \color{blue}{\sqrt[3]{\frac{1}{2 \cdot a}} \cdot \sqrt[3]{\left(-g\right) + \sqrt{g \cdot g - h \cdot h}}} + \sqrt[3]{\frac{1}{2 \cdot a} \cdot \left(\left(-g\right) - \sqrt{g \cdot g - h \cdot h}\right)}\]
Taylor expanded around -inf 2.3
\[\leadsto \sqrt[3]{\frac{1}{2 \cdot a}} \cdot \sqrt[3]{\left(-g\right) + \color{blue}{-1 \cdot g}} + \sqrt[3]{\frac{1}{2 \cdot a} \cdot \left(\left(-g\right) - \sqrt{g \cdot g - h \cdot h}\right)}\]
Simplified2.3
\[\leadsto \sqrt[3]{\frac{1}{2 \cdot a}} \cdot \sqrt[3]{\left(-g\right) + \color{blue}{\left(-g\right)}} + \sqrt[3]{\frac{1}{2 \cdot a} \cdot \left(\left(-g\right) - \sqrt{g \cdot g - h \cdot h}\right)}\]
if 3.1391489186073185e-117 < (+ (* (cbrt (/ 1 (* 2 a))) (cbrt (+ (- g) g))) (/ (cbrt (- (- g) (sqrt (* (- g h) (+ g h))))) (cbrt (* 2 a))))
Initial program 43.7
\[\sqrt[3]{\frac{1}{2 \cdot a} \cdot \left(\left(-g\right) + \sqrt{g \cdot g - h \cdot h}\right)} + \sqrt[3]{\frac{1}{2 \cdot a} \cdot \left(\left(-g\right) - \sqrt{g \cdot g - h \cdot h}\right)}\]
- Using strategy
rm Applied cbrt-prod43.6
\[\leadsto \color{blue}{\sqrt[3]{\frac{1}{2 \cdot a}} \cdot \sqrt[3]{\left(-g\right) + \sqrt{g \cdot g - h \cdot h}}} + \sqrt[3]{\frac{1}{2 \cdot a} \cdot \left(\left(-g\right) - \sqrt{g \cdot g - h \cdot h}\right)}\]
- Using strategy
rm Applied cbrt-prod41.6
\[\leadsto \sqrt[3]{\frac{1}{2 \cdot a}} \cdot \sqrt[3]{\left(-g\right) + \sqrt{g \cdot g - h \cdot h}} + \color{blue}{\sqrt[3]{\frac{1}{2 \cdot a}} \cdot \sqrt[3]{\left(-g\right) - \sqrt{g \cdot g - h \cdot h}}}\]
- Recombined 3 regimes into one program.
Final simplification31.2
\[\leadsto \begin{array}{l}
\mathbf{if}\;\frac{\sqrt[3]{\left(-g\right) - \sqrt{\left(g + h\right) \cdot \left(g - h\right)}}}{\sqrt[3]{a \cdot 2}} + \sqrt[3]{\left(-g\right) + g} \cdot \sqrt[3]{\frac{1}{a \cdot 2}} \le -4.644802488352878 \cdot 10^{-113}:\\
\;\;\;\;\frac{\sqrt[3]{\left(-g\right) - \sqrt{\left(g + h\right) \cdot \left(g - h\right)}}}{\sqrt[3]{a \cdot 2}} + \sqrt[3]{\left(-g\right) + g} \cdot \sqrt[3]{\frac{1}{a \cdot 2}}\\
\mathbf{elif}\;\frac{\sqrt[3]{\left(-g\right) - \sqrt{\left(g + h\right) \cdot \left(g - h\right)}}}{\sqrt[3]{a \cdot 2}} + \sqrt[3]{\left(-g\right) + g} \cdot \sqrt[3]{\frac{1}{a \cdot 2}} \le 3.1391489186073185 \cdot 10^{-117}:\\
\;\;\;\;\sqrt[3]{\left(\left(-g\right) - \sqrt{g \cdot g - h \cdot h}\right) \cdot \frac{1}{a \cdot 2}} + \sqrt[3]{-\left(g + g\right)} \cdot \sqrt[3]{\frac{1}{a \cdot 2}}\\
\mathbf{else}:\\
\;\;\;\;\sqrt[3]{\frac{1}{a \cdot 2}} \cdot \sqrt[3]{\left(-g\right) - \sqrt{g \cdot g - h \cdot h}} + \sqrt[3]{\frac{1}{a \cdot 2}} \cdot \sqrt[3]{\sqrt{g \cdot g - h \cdot h} + \left(-g\right)}\\
\end{array}\]