2 \cdot \cos \left(\frac{2 \cdot \pi}{3} + \frac{\cos^{-1} \left(\frac{-g}{h}\right)}{3}\right)2 \cdot \left(\cos \left(\frac{2 \cdot \pi}{3} + \frac{\pi}{3}\right) \cdot \cos \left(\frac{\cos^{-1} \left(\frac{g}{h}\right)}{3}\right) + \sin \left(\frac{2 \cdot \pi}{3} + \frac{\pi}{3}\right) \cdot \sin \left(\frac{\cos^{-1} \left(\frac{g}{h}\right)}{3}\right)\right)double f(double g, double h) {
double r134526 = 2.0;
double r134527 = atan2(1.0, 0.0);
double r134528 = r134526 * r134527;
double r134529 = 3.0;
double r134530 = r134528 / r134529;
double r134531 = g;
double r134532 = -r134531;
double r134533 = h;
double r134534 = r134532 / r134533;
double r134535 = acos(r134534);
double r134536 = r134535 / r134529;
double r134537 = r134530 + r134536;
double r134538 = cos(r134537);
double r134539 = r134526 * r134538;
return r134539;
}
double f(double g, double h) {
double r134540 = 2.0;
double r134541 = atan2(1.0, 0.0);
double r134542 = r134540 * r134541;
double r134543 = 3.0;
double r134544 = r134542 / r134543;
double r134545 = r134541 / r134543;
double r134546 = r134544 + r134545;
double r134547 = cos(r134546);
double r134548 = g;
double r134549 = h;
double r134550 = r134548 / r134549;
double r134551 = acos(r134550);
double r134552 = r134551 / r134543;
double r134553 = cos(r134552);
double r134554 = r134547 * r134553;
double r134555 = sin(r134546);
double r134556 = sin(r134552);
double r134557 = r134555 * r134556;
double r134558 = r134554 + r134557;
double r134559 = r134540 * r134558;
return r134559;
}



Bits error versus g



Bits error versus h
Results
Initial program 1.0
rmApplied distribute-frac-neg1.0
Applied acos-neg1.0
Applied div-sub1.0
Applied associate-+r-1.0
Applied cos-diff0.1
Final simplification0.1
herbie shell --seed 2020027
(FPCore (g h)
:name "2-ancestry mixing, negative discriminant"
:precision binary64
(* 2 (cos (+ (/ (* 2 PI) 3) (/ (acos (/ (- g) h)) 3)))))