\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 8.436549254635570642232365575110592726102 \cdot 10^{-159}:\\
\;\;\;\;\sqrt[3]{\frac{1}{2 \cdot a}} \cdot \sqrt[3]{\left(-g\right) - g} + \sqrt[3]{\frac{1}{2 \cdot a} \cdot \left(\left(-g\right) - \sqrt{g \cdot g - h \cdot h}\right)}\\
\mathbf{else}:\\
\;\;\;\;\frac{\sqrt[3]{1 \cdot \left(\sqrt{g \cdot g - h \cdot h} - g\right)}}{\sqrt[3]{2 \cdot a}} + \sqrt[3]{\frac{1}{2 \cdot a}} \cdot \sqrt[3]{\left(-g\right) - \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}}}\\
\end{array}double f(double g, double h, double a) {
double r262076 = 1.0;
double r262077 = 2.0;
double r262078 = a;
double r262079 = r262077 * r262078;
double r262080 = r262076 / r262079;
double r262081 = g;
double r262082 = -r262081;
double r262083 = r262081 * r262081;
double r262084 = h;
double r262085 = r262084 * r262084;
double r262086 = r262083 - r262085;
double r262087 = sqrt(r262086);
double r262088 = r262082 + r262087;
double r262089 = r262080 * r262088;
double r262090 = cbrt(r262089);
double r262091 = r262082 - r262087;
double r262092 = r262080 * r262091;
double r262093 = cbrt(r262092);
double r262094 = r262090 + r262093;
return r262094;
}
double f(double g, double h, double a) {
double r262095 = g;
double r262096 = 8.436549254635571e-159;
bool r262097 = r262095 <= r262096;
double r262098 = 1.0;
double r262099 = 2.0;
double r262100 = a;
double r262101 = r262099 * r262100;
double r262102 = r262098 / r262101;
double r262103 = cbrt(r262102);
double r262104 = -r262095;
double r262105 = r262104 - r262095;
double r262106 = cbrt(r262105);
double r262107 = r262103 * r262106;
double r262108 = r262095 * r262095;
double r262109 = h;
double r262110 = r262109 * r262109;
double r262111 = r262108 - r262110;
double r262112 = sqrt(r262111);
double r262113 = r262104 - r262112;
double r262114 = r262102 * r262113;
double r262115 = cbrt(r262114);
double r262116 = r262107 + r262115;
double r262117 = r262112 - r262095;
double r262118 = r262098 * r262117;
double r262119 = cbrt(r262118);
double r262120 = cbrt(r262101);
double r262121 = r262119 / r262120;
double r262122 = cbrt(r262112);
double r262123 = r262122 * r262122;
double r262124 = r262123 * r262122;
double r262125 = r262104 - r262124;
double r262126 = cbrt(r262125);
double r262127 = r262103 * r262126;
double r262128 = r262121 + r262127;
double r262129 = r262097 ? r262116 : r262128;
return r262129;
}



Bits error versus g



Bits error versus h



Bits error versus a
Results
if g < 8.436549254635571e-159Initial program 37.5
Simplified37.5
rmApplied cbrt-prod33.4
Taylor expanded around -inf 31.9
Simplified31.9
if 8.436549254635571e-159 < g Initial program 35.2
Simplified35.2
rmApplied associate-*l/35.2
Applied cbrt-div35.2
rmApplied cbrt-prod31.2
rmApplied add-cube-cbrt31.2
Final simplification31.6
herbie shell --seed 2019323
(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))))))))