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 r171811 = 2.0;
double r171812 = atan2(1.0, 0.0);
double r171813 = r171811 * r171812;
double r171814 = 3.0;
double r171815 = r171813 / r171814;
double r171816 = g;
double r171817 = -r171816;
double r171818 = h;
double r171819 = r171817 / r171818;
double r171820 = acos(r171819);
double r171821 = r171820 / r171814;
double r171822 = r171815 + r171821;
double r171823 = cos(r171822);
double r171824 = r171811 * r171823;
return r171824;
}
double f(double g, double h) {
double r171825 = 2.0;
double r171826 = atan2(1.0, 0.0);
double r171827 = r171825 * r171826;
double r171828 = 3.0;
double r171829 = r171827 / r171828;
double r171830 = r171826 / r171828;
double r171831 = r171829 + r171830;
double r171832 = cos(r171831);
double r171833 = g;
double r171834 = h;
double r171835 = r171833 / r171834;
double r171836 = acos(r171835);
double r171837 = r171836 / r171828;
double r171838 = cos(r171837);
double r171839 = r171832 * r171838;
double r171840 = sin(r171831);
double r171841 = sin(r171837);
double r171842 = r171840 * r171841;
double r171843 = r171839 + r171842;
double r171844 = r171825 * r171843;
return r171844;
}



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