Error

Try it out

Derivation

1. Split input into 2 regimes

2. if g < -7.173671306399909e-101

   1. Initial program 35.1

      \[\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)}\]
   2. Using strategy rm

   3. Applied associate-*l/35.1

      \[\leadsto \sqrt[3]{\color{blue}{\frac{1 \cdot \left(\left(-g\right) + \sqrt{g \cdot g - h \cdot h}\right)}{2 \cdot a}}} + \sqrt[3]{\frac{1}{2 \cdot a} \cdot \left(\left(-g\right) - \sqrt{g \cdot g - h \cdot h}\right)}\]

   4. Applied cbrt-div31.9

      \[\leadsto \color{blue}{\frac{\sqrt[3]{1 \cdot \left(\left(-g\right) + \sqrt{g \cdot g - h \cdot h}\right)}}{\sqrt[3]{2 \cdot a}}} + \sqrt[3]{\frac{1}{2 \cdot a} \cdot \left(\left(-g\right) - \sqrt{g \cdot g - h \cdot h}\right)}\]

   5. Simplified31.9

      \[\leadsto \frac{\color{blue}{\sqrt[3]{\sqrt{\left(g - h\right) \cdot \left(g + h\right)} - g}}}{\sqrt[3]{2 \cdot a}} + \sqrt[3]{\frac{1}{2 \cdot a} \cdot \left(\left(-g\right) - \sqrt{g \cdot g - h \cdot h}\right)}\]
   6. Using strategy rm

   7. Applied flip--31.9

      \[\leadsto \frac{\sqrt[3]{\sqrt{\left(g - h\right) \cdot \left(g + h\right)} - g}}{\sqrt[3]{2 \cdot a}} + \sqrt[3]{\frac{1}{2 \cdot a} \cdot \color{blue}{\frac{\left(-g\right) \cdot \left(-g\right) - \sqrt{g \cdot g - h \cdot h} \cdot \sqrt{g \cdot g - h \cdot h}}{\left(-g\right) + \sqrt{g \cdot g - h \cdot h}}}}\]

   8. Applied frac-times32.6

      \[\leadsto \frac{\sqrt[3]{\sqrt{\left(g - h\right) \cdot \left(g + h\right)} - g}}{\sqrt[3]{2 \cdot a}} + \sqrt[3]{\color{blue}{\frac{1 \cdot \left(\left(-g\right) \cdot \left(-g\right) - \sqrt{g \cdot g - h \cdot h} \cdot \sqrt{g \cdot g - h \cdot h}\right)}{\left(2 \cdot a\right) \cdot \left(\left(-g\right) + \sqrt{g \cdot g - h \cdot h}\right)}}}\]

   9. Applied cbrt-div32.5

      \[\leadsto \frac{\sqrt[3]{\sqrt{\left(g - h\right) \cdot \left(g + h\right)} - g}}{\sqrt[3]{2 \cdot a}} + \color{blue}{\frac{\sqrt[3]{1 \cdot \left(\left(-g\right) \cdot \left(-g\right) - \sqrt{g \cdot g - h \cdot h} \cdot \sqrt{g \cdot g - h \cdot h}\right)}}{\sqrt[3]{\left(2 \cdot a\right) \cdot \left(\left(-g\right) + \sqrt{g \cdot g - h \cdot h}\right)}}}\]

   10. Simplified32.0

       \[\leadsto \frac{\sqrt[3]{\sqrt{\left(g - h\right) \cdot \left(g + h\right)} - g}}{\sqrt[3]{2 \cdot a}} + \frac{\color{blue}{\sqrt[3]{h \cdot h}}}{\sqrt[3]{\left(2 \cdot a\right) \cdot \left(\left(-g\right) + \sqrt{g \cdot g - h \cdot h}\right)}}\]

   if -7.173671306399909e-101 < g

   1. Initial program 34.4

      \[\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)}\]
   2. Using strategy rm

   3. Applied cbrt-prod31.0

      \[\leadsto \sqrt[3]{\frac{1}{2 \cdot a} \cdot \left(\left(-g\right) + \sqrt{g \cdot g - h \cdot h}\right)} + \color{blue}{\sqrt[3]{\frac{1}{2 \cdot a}} \cdot \sqrt[3]{\left(-g\right) - \sqrt{g \cdot g - h \cdot h}}}\]

   4. Simplified31.0

      \[\leadsto \sqrt[3]{\frac{1}{2 \cdot a} \cdot \left(\left(-g\right) + \sqrt{g \cdot g - h \cdot h}\right)} + \color{blue}{\sqrt[3]{\frac{\frac{1}{2}}{a}}} \cdot \sqrt[3]{\left(-g\right) - \sqrt{g \cdot g - h \cdot h}}\]
3. Recombined 2 regimes into one program.

4. Final simplification31.5

   \[\leadsto \begin{array}{l} \mathbf{if}\;g \le -7.173671306399909 \cdot 10^{-101}:\\ \;\;\;\;\frac{\sqrt[3]{\sqrt{\left(g - h\right) \cdot \left(h + g\right)} - g}}{\sqrt[3]{2 \cdot a}} + \frac{\sqrt[3]{h \cdot h}}{\sqrt[3]{\left(2 \cdot a\right) \cdot \left(\left(-g\right) + \sqrt{g \cdot g - h \cdot h}\right)}}\\ \mathbf{else}:\\ \;\;\;\;\sqrt[3]{\left(-g\right) - \sqrt{g \cdot g - h \cdot h}} \cdot \sqrt[3]{\frac{\frac{1}{2}}{a}} + \sqrt[3]{\frac{1}{2 \cdot a} \cdot \left(\left(-g\right) + \sqrt{g \cdot g - h \cdot h}\right)}\\ \end{array}\]

Reproduce

herbie shell --seed 2019008 
(FPCore (g h a)
  :name "2-ancestry mixing, positive discriminant"
  (+ (cbrt (* (/ 1 (* 2 a)) (+ (- g) (sqrt (- (* g g) (* h h)))))) (cbrt (* (/ 1 (* 2 a)) (- (- g) (sqrt (- (* g g) (* h h))))))))

Details

Time bar (total: 43.5s)Debug log