\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 r121656 = 1.0;
double r121657 = 2.0;
double r121658 = a;
double r121659 = r121657 * r121658;
double r121660 = r121656 / r121659;
double r121661 = g;
double r121662 = -r121661;
double r121663 = r121661 * r121661;
double r121664 = h;
double r121665 = r121664 * r121664;
double r121666 = r121663 - r121665;
double r121667 = sqrt(r121666);
double r121668 = r121662 + r121667;
double r121669 = r121660 * r121668;
double r121670 = cbrt(r121669);
double r121671 = r121662 - r121667;
double r121672 = r121660 * r121671;
double r121673 = cbrt(r121672);
double r121674 = r121670 + r121673;
return r121674;
}
double f(double g, double h, double a) {
double r121675 = 1.0;
double r121676 = g;
double r121677 = r121676 * r121676;
double r121678 = h;
double r121679 = r121678 * r121678;
double r121680 = r121677 - r121679;
double r121681 = sqrt(r121680);
double r121682 = r121681 - r121676;
double r121683 = r121675 * r121682;
double r121684 = cbrt(r121683);
double r121685 = 2.0;
double r121686 = a;
double r121687 = r121685 * r121686;
double r121688 = cbrt(r121687);
double r121689 = r121684 / r121688;
double r121690 = -r121676;
double r121691 = r121690 - r121681;
double r121692 = r121675 * r121691;
double r121693 = cbrt(r121692);
double r121694 = r121693 / r121688;
double r121695 = r121689 + r121694;
return r121695;
}



Bits error versus g



Bits error versus h



Bits error versus a
Results
Initial program 35.5
Simplified35.5
rmApplied associate-*l/35.5
Applied cbrt-div33.5
rmApplied associate-*l/33.5
Applied cbrt-div31.9
Final simplification31.9
herbie shell --seed 2019305
(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))))))))