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 r59992 = 2.0;
double r59993 = atan2(1.0, 0.0);
double r59994 = r59992 * r59993;
double r59995 = 3.0;
double r59996 = r59994 / r59995;
double r59997 = g;
double r59998 = -r59997;
double r59999 = h;
double r60000 = r59998 / r59999;
double r60001 = acos(r60000);
double r60002 = r60001 / r59995;
double r60003 = r59996 + r60002;
double r60004 = cos(r60003);
double r60005 = r59992 * r60004;
return r60005;
}
double f(double g, double h) {
double r60006 = 2.0;
double r60007 = atan2(1.0, 0.0);
double r60008 = r60006 * r60007;
double r60009 = 3.0;
double r60010 = r60008 / r60009;
double r60011 = r60007 / r60009;
double r60012 = r60010 + r60011;
double r60013 = cos(r60012);
double r60014 = g;
double r60015 = h;
double r60016 = r60014 / r60015;
double r60017 = acos(r60016);
double r60018 = r60017 / r60009;
double r60019 = cos(r60018);
double r60020 = r60013 * r60019;
double r60021 = sin(r60012);
double r60022 = sin(r60018);
double r60023 = r60021 * r60022;
double r60024 = r60020 + r60023;
double r60025 = r60006 * r60024;
return r60025;
}



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