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 r147477 = 2.0;
double r147478 = atan2(1.0, 0.0);
double r147479 = r147477 * r147478;
double r147480 = 3.0;
double r147481 = r147479 / r147480;
double r147482 = g;
double r147483 = -r147482;
double r147484 = h;
double r147485 = r147483 / r147484;
double r147486 = acos(r147485);
double r147487 = r147486 / r147480;
double r147488 = r147481 + r147487;
double r147489 = cos(r147488);
double r147490 = r147477 * r147489;
return r147490;
}
double f(double g, double h) {
double r147491 = 2.0;
double r147492 = atan2(1.0, 0.0);
double r147493 = r147491 * r147492;
double r147494 = 3.0;
double r147495 = r147493 / r147494;
double r147496 = r147492 / r147494;
double r147497 = r147495 + r147496;
double r147498 = cos(r147497);
double r147499 = g;
double r147500 = h;
double r147501 = r147499 / r147500;
double r147502 = acos(r147501);
double r147503 = r147502 / r147494;
double r147504 = cos(r147503);
double r147505 = r147498 * r147504;
double r147506 = sin(r147497);
double r147507 = sin(r147503);
double r147508 = r147506 * r147507;
double r147509 = r147505 + r147508;
double r147510 = r147491 * r147509;
return r147510;
}



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