\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)}\frac{\sqrt[3]{1 \cdot \left(\sqrt{g \cdot g - h \cdot h} - g\right)}}{\sqrt[3]{2 \cdot a}} + \frac{\sqrt[3]{1 \cdot \left(\left(-g\right) - \sqrt{g \cdot g - h \cdot h}\right)}}{\sqrt[3]{2 \cdot a}}double f(double g, double h, double a) {
double r125300 = 1.0;
double r125301 = 2.0;
double r125302 = a;
double r125303 = r125301 * r125302;
double r125304 = r125300 / r125303;
double r125305 = g;
double r125306 = -r125305;
double r125307 = r125305 * r125305;
double r125308 = h;
double r125309 = r125308 * r125308;
double r125310 = r125307 - r125309;
double r125311 = sqrt(r125310);
double r125312 = r125306 + r125311;
double r125313 = r125304 * r125312;
double r125314 = cbrt(r125313);
double r125315 = r125306 - r125311;
double r125316 = r125304 * r125315;
double r125317 = cbrt(r125316);
double r125318 = r125314 + r125317;
return r125318;
}
double f(double g, double h, double a) {
double r125319 = 1.0;
double r125320 = g;
double r125321 = r125320 * r125320;
double r125322 = h;
double r125323 = r125322 * r125322;
double r125324 = r125321 - r125323;
double r125325 = sqrt(r125324);
double r125326 = r125325 - r125320;
double r125327 = r125319 * r125326;
double r125328 = cbrt(r125327);
double r125329 = 2.0;
double r125330 = a;
double r125331 = r125329 * r125330;
double r125332 = cbrt(r125331);
double r125333 = r125328 / r125332;
double r125334 = -r125320;
double r125335 = r125334 - r125325;
double r125336 = r125319 * r125335;
double r125337 = cbrt(r125336);
double r125338 = r125337 / r125332;
double r125339 = r125333 + r125338;
return r125339;
}



Bits error versus g



Bits error versus h



Bits error versus a
Results
Initial program 36.0
rmApplied associate-*l/36.0
Applied cbrt-div34.1
Simplified34.1
rmApplied associate-*l/34.1
Applied cbrt-div32.1
Final simplification32.1
herbie shell --seed 2019212
(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))))))))