\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)}\begin{array}{l}
\mathbf{if}\;g \le -2.422345052641111360634811561319161541182 \cdot 10^{-160}:\\
\;\;\;\;\sqrt[3]{\frac{1}{2 \cdot a}} \cdot \sqrt[3]{\left(\sqrt[3]{\sqrt{g \cdot g - h \cdot h}} \cdot \sqrt[3]{\sqrt{g \cdot g - h \cdot h}}\right) \cdot \sqrt[3]{\sqrt{g \cdot g - h \cdot h}} - g} + \sqrt[3]{\frac{1}{2 \cdot a} \cdot \left(\left(-g\right) - \sqrt{g \cdot g - h \cdot h}\right)}\\
\mathbf{else}:\\
\;\;\;\;\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 \sqrt[3]{\left(-g\right) - g}\\
\end{array}double f(double g, double h, double a) {
double r162685 = 1.0;
double r162686 = 2.0;
double r162687 = a;
double r162688 = r162686 * r162687;
double r162689 = r162685 / r162688;
double r162690 = g;
double r162691 = -r162690;
double r162692 = r162690 * r162690;
double r162693 = h;
double r162694 = r162693 * r162693;
double r162695 = r162692 - r162694;
double r162696 = sqrt(r162695);
double r162697 = r162691 + r162696;
double r162698 = r162689 * r162697;
double r162699 = cbrt(r162698);
double r162700 = r162691 - r162696;
double r162701 = r162689 * r162700;
double r162702 = cbrt(r162701);
double r162703 = r162699 + r162702;
return r162703;
}
double f(double g, double h, double a) {
double r162704 = g;
double r162705 = -2.4223450526411114e-160;
bool r162706 = r162704 <= r162705;
double r162707 = 1.0;
double r162708 = 2.0;
double r162709 = a;
double r162710 = r162708 * r162709;
double r162711 = r162707 / r162710;
double r162712 = cbrt(r162711);
double r162713 = r162704 * r162704;
double r162714 = h;
double r162715 = r162714 * r162714;
double r162716 = r162713 - r162715;
double r162717 = sqrt(r162716);
double r162718 = cbrt(r162717);
double r162719 = r162718 * r162718;
double r162720 = r162719 * r162718;
double r162721 = r162720 - r162704;
double r162722 = cbrt(r162721);
double r162723 = r162712 * r162722;
double r162724 = -r162704;
double r162725 = r162724 - r162717;
double r162726 = r162711 * r162725;
double r162727 = cbrt(r162726);
double r162728 = r162723 + r162727;
double r162729 = r162724 + r162717;
double r162730 = r162711 * r162729;
double r162731 = cbrt(r162730);
double r162732 = r162724 - r162704;
double r162733 = cbrt(r162732);
double r162734 = r162712 * r162733;
double r162735 = r162731 + r162734;
double r162736 = r162706 ? r162728 : r162735;
return r162736;
}



Bits error versus g



Bits error versus h



Bits error versus a
Results
if g < -2.4223450526411114e-160Initial program 35.0
rmApplied cbrt-prod31.2
Simplified31.2
rmApplied add-cube-cbrt31.2
if -2.4223450526411114e-160 < g Initial program 37.6
rmApplied cbrt-prod33.8
Taylor expanded around inf 32.5
Final simplification31.9
herbie shell --seed 2019304
(FPCore (g h a)
:name "2-ancestry mixing, positive discriminant"
:precision binary64
(+ (cbrt (* (/ 1 (* 2 a)) (+ (- g) (sqrt (- (* g g) (* h h)))))) (cbrt (* (/ 1 (* 2 a)) (- (- g) (sqrt (- (* g g) (* h h))))))))