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 r114870 = 2.0;
double r114871 = atan2(1.0, 0.0);
double r114872 = r114870 * r114871;
double r114873 = 3.0;
double r114874 = r114872 / r114873;
double r114875 = g;
double r114876 = -r114875;
double r114877 = h;
double r114878 = r114876 / r114877;
double r114879 = acos(r114878);
double r114880 = r114879 / r114873;
double r114881 = r114874 + r114880;
double r114882 = cos(r114881);
double r114883 = r114870 * r114882;
return r114883;
}
double f(double g, double h) {
double r114884 = 2.0;
double r114885 = atan2(1.0, 0.0);
double r114886 = r114884 * r114885;
double r114887 = 3.0;
double r114888 = r114886 / r114887;
double r114889 = r114885 / r114887;
double r114890 = r114888 + r114889;
double r114891 = cos(r114890);
double r114892 = g;
double r114893 = h;
double r114894 = r114892 / r114893;
double r114895 = acos(r114894);
double r114896 = r114895 / r114887;
double r114897 = cos(r114896);
double r114898 = r114891 * r114897;
double r114899 = sin(r114890);
double r114900 = sin(r114896);
double r114901 = r114899 * r114900;
double r114902 = r114898 + r114901;
double r114903 = r114884 * r114902;
return r114903;
}



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