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 r125741 = 2.0;
double r125742 = atan2(1.0, 0.0);
double r125743 = r125741 * r125742;
double r125744 = 3.0;
double r125745 = r125743 / r125744;
double r125746 = g;
double r125747 = -r125746;
double r125748 = h;
double r125749 = r125747 / r125748;
double r125750 = acos(r125749);
double r125751 = r125750 / r125744;
double r125752 = r125745 + r125751;
double r125753 = cos(r125752);
double r125754 = r125741 * r125753;
return r125754;
}
double f(double g, double h) {
double r125755 = 2.0;
double r125756 = atan2(1.0, 0.0);
double r125757 = r125755 * r125756;
double r125758 = 3.0;
double r125759 = r125757 / r125758;
double r125760 = r125756 / r125758;
double r125761 = r125759 + r125760;
double r125762 = cos(r125761);
double r125763 = g;
double r125764 = h;
double r125765 = r125763 / r125764;
double r125766 = acos(r125765);
double r125767 = r125766 / r125758;
double r125768 = cos(r125767);
double r125769 = r125762 * r125768;
double r125770 = sin(r125761);
double r125771 = sin(r125767);
double r125772 = r125770 * r125771;
double r125773 = r125769 + r125772;
double r125774 = r125755 * r125773;
return r125774;
}



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