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 r185469 = 2.0;
double r185470 = atan2(1.0, 0.0);
double r185471 = r185469 * r185470;
double r185472 = 3.0;
double r185473 = r185471 / r185472;
double r185474 = g;
double r185475 = -r185474;
double r185476 = h;
double r185477 = r185475 / r185476;
double r185478 = acos(r185477);
double r185479 = r185478 / r185472;
double r185480 = r185473 + r185479;
double r185481 = cos(r185480);
double r185482 = r185469 * r185481;
return r185482;
}
double f(double g, double h) {
double r185483 = 2.0;
double r185484 = atan2(1.0, 0.0);
double r185485 = r185483 * r185484;
double r185486 = 3.0;
double r185487 = r185485 / r185486;
double r185488 = r185484 / r185486;
double r185489 = r185487 + r185488;
double r185490 = cos(r185489);
double r185491 = g;
double r185492 = h;
double r185493 = r185491 / r185492;
double r185494 = acos(r185493);
double r185495 = r185494 / r185486;
double r185496 = cos(r185495);
double r185497 = r185490 * r185496;
double r185498 = sin(r185489);
double r185499 = sin(r185495);
double r185500 = r185498 * r185499;
double r185501 = r185497 + r185500;
double r185502 = r185483 * r185501;
return r185502;
}



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.0
Final simplification0.0
herbie shell --seed 2020047
(FPCore (g h)
:name "2-ancestry mixing, negative discriminant"
:precision binary64
(* 2 (cos (+ (/ (* 2 PI) 3) (/ (acos (/ (- g) h)) 3)))))