2 \cdot \cos \left(\frac{2 \cdot \pi}{3} + \frac{\cos^{-1} \left(\frac{-g}{h}\right)}{3}\right)2 \cdot \left(2 \cdot \log \left(\sqrt[3]{e^{\cos \left(\mathsf{fma}\left(\frac{2}{3}, \pi, \frac{\cos^{-1} \left(\frac{-g}{h}\right)}{3}\right)\right)}}\right) + \log \left(\sqrt[3]{e^{\cos \left(\mathsf{fma}\left(\frac{2}{3}, \pi, \frac{\cos^{-1} \left(\frac{-g}{h}\right)}{3}\right)\right)}}\right)\right)double f(double g, double h) {
double r156425 = 2.0;
double r156426 = atan2(1.0, 0.0);
double r156427 = r156425 * r156426;
double r156428 = 3.0;
double r156429 = r156427 / r156428;
double r156430 = g;
double r156431 = -r156430;
double r156432 = h;
double r156433 = r156431 / r156432;
double r156434 = acos(r156433);
double r156435 = r156434 / r156428;
double r156436 = r156429 + r156435;
double r156437 = cos(r156436);
double r156438 = r156425 * r156437;
return r156438;
}
double f(double g, double h) {
double r156439 = 2.0;
double r156440 = 2.0;
double r156441 = 3.0;
double r156442 = r156439 / r156441;
double r156443 = atan2(1.0, 0.0);
double r156444 = g;
double r156445 = -r156444;
double r156446 = h;
double r156447 = r156445 / r156446;
double r156448 = acos(r156447);
double r156449 = r156448 / r156441;
double r156450 = fma(r156442, r156443, r156449);
double r156451 = cos(r156450);
double r156452 = exp(r156451);
double r156453 = cbrt(r156452);
double r156454 = log(r156453);
double r156455 = r156440 * r156454;
double r156456 = r156455 + r156454;
double r156457 = r156439 * r156456;
return r156457;
}



Bits error versus g



Bits error versus h
Initial program 1.0
Simplified1.0
rmApplied add-log-exp1.0
rmApplied add-cube-cbrt0.1
Applied log-prod0.1
Simplified0.1
Final simplification0.1
herbie shell --seed 2019351 +o rules:numerics
(FPCore (g h)
:name "2-ancestry mixing, negative discriminant"
:precision binary64
(* 2 (cos (+ (/ (* 2 PI) 3) (/ (acos (/ (- g) h)) 3)))))