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 r165061 = 2.0;
double r165062 = atan2(1.0, 0.0);
double r165063 = r165061 * r165062;
double r165064 = 3.0;
double r165065 = r165063 / r165064;
double r165066 = g;
double r165067 = -r165066;
double r165068 = h;
double r165069 = r165067 / r165068;
double r165070 = acos(r165069);
double r165071 = r165070 / r165064;
double r165072 = r165065 + r165071;
double r165073 = cos(r165072);
double r165074 = r165061 * r165073;
return r165074;
}
double f(double g, double h) {
double r165075 = 2.0;
double r165076 = atan2(1.0, 0.0);
double r165077 = r165075 * r165076;
double r165078 = 3.0;
double r165079 = r165077 / r165078;
double r165080 = r165076 / r165078;
double r165081 = r165079 + r165080;
double r165082 = cos(r165081);
double r165083 = g;
double r165084 = h;
double r165085 = r165083 / r165084;
double r165086 = acos(r165085);
double r165087 = r165086 / r165078;
double r165088 = cos(r165087);
double r165089 = r165082 * r165088;
double r165090 = sin(r165081);
double r165091 = sin(r165087);
double r165092 = r165090 * r165091;
double r165093 = r165089 + r165092;
double r165094 = r165075 * r165093;
return r165094;
}



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