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 r135802 = 2.0;
double r135803 = atan2(1.0, 0.0);
double r135804 = r135802 * r135803;
double r135805 = 3.0;
double r135806 = r135804 / r135805;
double r135807 = g;
double r135808 = -r135807;
double r135809 = h;
double r135810 = r135808 / r135809;
double r135811 = acos(r135810);
double r135812 = r135811 / r135805;
double r135813 = r135806 + r135812;
double r135814 = cos(r135813);
double r135815 = r135802 * r135814;
return r135815;
}
double f(double g, double h) {
double r135816 = 2.0;
double r135817 = atan2(1.0, 0.0);
double r135818 = r135816 * r135817;
double r135819 = 3.0;
double r135820 = r135818 / r135819;
double r135821 = r135817 / r135819;
double r135822 = r135820 + r135821;
double r135823 = cos(r135822);
double r135824 = g;
double r135825 = h;
double r135826 = r135824 / r135825;
double r135827 = acos(r135826);
double r135828 = r135827 / r135819;
double r135829 = cos(r135828);
double r135830 = r135823 * r135829;
double r135831 = sin(r135822);
double r135832 = sin(r135828);
double r135833 = r135831 * r135832;
double r135834 = r135830 + r135833;
double r135835 = r135816 * r135834;
return r135835;
}



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