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 r95469 = 2.0;
double r95470 = atan2(1.0, 0.0);
double r95471 = r95469 * r95470;
double r95472 = 3.0;
double r95473 = r95471 / r95472;
double r95474 = g;
double r95475 = -r95474;
double r95476 = h;
double r95477 = r95475 / r95476;
double r95478 = acos(r95477);
double r95479 = r95478 / r95472;
double r95480 = r95473 + r95479;
double r95481 = cos(r95480);
double r95482 = r95469 * r95481;
return r95482;
}
double f(double g, double h) {
double r95483 = 2.0;
double r95484 = atan2(1.0, 0.0);
double r95485 = r95483 * r95484;
double r95486 = 3.0;
double r95487 = r95485 / r95486;
double r95488 = r95484 / r95486;
double r95489 = r95487 + r95488;
double r95490 = cos(r95489);
double r95491 = g;
double r95492 = h;
double r95493 = r95491 / r95492;
double r95494 = acos(r95493);
double r95495 = r95494 / r95486;
double r95496 = cos(r95495);
double r95497 = r95490 * r95496;
double r95498 = sin(r95489);
double r95499 = sin(r95495);
double r95500 = r95498 * r95499;
double r95501 = r95497 + r95500;
double r95502 = r95483 * r95501;
return r95502;
}



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