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 r130469 = 2.0;
double r130470 = atan2(1.0, 0.0);
double r130471 = r130469 * r130470;
double r130472 = 3.0;
double r130473 = r130471 / r130472;
double r130474 = g;
double r130475 = -r130474;
double r130476 = h;
double r130477 = r130475 / r130476;
double r130478 = acos(r130477);
double r130479 = r130478 / r130472;
double r130480 = r130473 + r130479;
double r130481 = cos(r130480);
double r130482 = r130469 * r130481;
return r130482;
}
double f(double g, double h) {
double r130483 = 2.0;
double r130484 = atan2(1.0, 0.0);
double r130485 = r130483 * r130484;
double r130486 = 3.0;
double r130487 = r130485 / r130486;
double r130488 = r130484 / r130486;
double r130489 = r130487 + r130488;
double r130490 = cos(r130489);
double r130491 = g;
double r130492 = h;
double r130493 = r130491 / r130492;
double r130494 = acos(r130493);
double r130495 = r130494 / r130486;
double r130496 = cos(r130495);
double r130497 = r130490 * r130496;
double r130498 = sin(r130489);
double r130499 = sin(r130495);
double r130500 = r130498 * r130499;
double r130501 = r130497 + r130500;
double r130502 = r130483 * r130501;
return r130502;
}



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