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 r178400 = 2.0;
double r178401 = atan2(1.0, 0.0);
double r178402 = r178400 * r178401;
double r178403 = 3.0;
double r178404 = r178402 / r178403;
double r178405 = g;
double r178406 = -r178405;
double r178407 = h;
double r178408 = r178406 / r178407;
double r178409 = acos(r178408);
double r178410 = r178409 / r178403;
double r178411 = r178404 + r178410;
double r178412 = cos(r178411);
double r178413 = r178400 * r178412;
return r178413;
}
double f(double g, double h) {
double r178414 = 2.0;
double r178415 = atan2(1.0, 0.0);
double r178416 = r178414 * r178415;
double r178417 = 3.0;
double r178418 = r178416 / r178417;
double r178419 = r178415 / r178417;
double r178420 = r178418 + r178419;
double r178421 = cos(r178420);
double r178422 = g;
double r178423 = h;
double r178424 = r178422 / r178423;
double r178425 = acos(r178424);
double r178426 = r178425 / r178417;
double r178427 = cos(r178426);
double r178428 = r178421 * r178427;
double r178429 = sin(r178420);
double r178430 = sin(r178426);
double r178431 = r178429 * r178430;
double r178432 = r178428 + r178431;
double r178433 = r178414 * r178432;
return r178433;
}



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