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 r157406 = 2.0;
double r157407 = atan2(1.0, 0.0);
double r157408 = r157406 * r157407;
double r157409 = 3.0;
double r157410 = r157408 / r157409;
double r157411 = g;
double r157412 = -r157411;
double r157413 = h;
double r157414 = r157412 / r157413;
double r157415 = acos(r157414);
double r157416 = r157415 / r157409;
double r157417 = r157410 + r157416;
double r157418 = cos(r157417);
double r157419 = r157406 * r157418;
return r157419;
}
double f(double g, double h) {
double r157420 = 2.0;
double r157421 = atan2(1.0, 0.0);
double r157422 = r157420 * r157421;
double r157423 = 3.0;
double r157424 = r157422 / r157423;
double r157425 = r157421 / r157423;
double r157426 = r157424 + r157425;
double r157427 = cos(r157426);
double r157428 = g;
double r157429 = h;
double r157430 = r157428 / r157429;
double r157431 = acos(r157430);
double r157432 = r157431 / r157423;
double r157433 = cos(r157432);
double r157434 = r157427 * r157433;
double r157435 = sin(r157426);
double r157436 = sin(r157432);
double r157437 = r157435 * r157436;
double r157438 = r157434 + r157437;
double r157439 = r157420 * r157438;
return r157439;
}



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 2020018
(FPCore (g h)
:name "2-ancestry mixing, negative discriminant"
:precision binary64
(* 2 (cos (+ (/ (* 2 PI) 3) (/ (acos (/ (- g) h)) 3)))))