\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(\left(-g\right) + \sqrt{g \cdot g - h \cdot h}\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 r144961 = 1.0;
double r144962 = 2.0;
double r144963 = a;
double r144964 = r144962 * r144963;
double r144965 = r144961 / r144964;
double r144966 = g;
double r144967 = -r144966;
double r144968 = r144966 * r144966;
double r144969 = h;
double r144970 = r144969 * r144969;
double r144971 = r144968 - r144970;
double r144972 = sqrt(r144971);
double r144973 = r144967 + r144972;
double r144974 = r144965 * r144973;
double r144975 = cbrt(r144974);
double r144976 = r144967 - r144972;
double r144977 = r144965 * r144976;
double r144978 = cbrt(r144977);
double r144979 = r144975 + r144978;
return r144979;
}
double f(double g, double h, double a) {
double r144980 = 1.0;
double r144981 = g;
double r144982 = -r144981;
double r144983 = r144981 * r144981;
double r144984 = h;
double r144985 = r144984 * r144984;
double r144986 = r144983 - r144985;
double r144987 = sqrt(r144986);
double r144988 = r144982 + r144987;
double r144989 = r144980 * r144988;
double r144990 = cbrt(r144989);
double r144991 = 2.0;
double r144992 = a;
double r144993 = r144991 * r144992;
double r144994 = cbrt(r144993);
double r144995 = r144990 / r144994;
double r144996 = r144982 - r144987;
double r144997 = r144980 * r144996;
double r144998 = cbrt(r144997);
double r144999 = r144998 / r144994;
double r145000 = r144995 + r144999;
return r145000;
}



Bits error versus g



Bits error versus h



Bits error versus a
Results
Initial program 35.6
rmApplied associate-*l/35.6
Applied cbrt-div33.7
rmApplied associate-*l/33.7
Applied cbrt-div32.0
Final simplification32.0
herbie shell --seed 2020056 +o rules:numerics
(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))))))))