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 r146750 = 2.0;
double r146751 = atan2(1.0, 0.0);
double r146752 = r146750 * r146751;
double r146753 = 3.0;
double r146754 = r146752 / r146753;
double r146755 = g;
double r146756 = -r146755;
double r146757 = h;
double r146758 = r146756 / r146757;
double r146759 = acos(r146758);
double r146760 = r146759 / r146753;
double r146761 = r146754 + r146760;
double r146762 = cos(r146761);
double r146763 = r146750 * r146762;
return r146763;
}
double f(double g, double h) {
double r146764 = 2.0;
double r146765 = atan2(1.0, 0.0);
double r146766 = r146764 * r146765;
double r146767 = 3.0;
double r146768 = r146766 / r146767;
double r146769 = r146765 / r146767;
double r146770 = r146768 + r146769;
double r146771 = cos(r146770);
double r146772 = g;
double r146773 = h;
double r146774 = r146772 / r146773;
double r146775 = acos(r146774);
double r146776 = r146775 / r146767;
double r146777 = cos(r146776);
double r146778 = r146771 * r146777;
double r146779 = sin(r146770);
double r146780 = sin(r146776);
double r146781 = r146779 * r146780;
double r146782 = r146778 + r146781;
double r146783 = r146764 * r146782;
return r146783;
}



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