2 \cdot \cos \left(\frac{2 \cdot \pi}{3} + \frac{\cos^{-1} \left(\frac{-g}{h}\right)}{3}\right)2 \cdot \left(\sin \left(\frac{\cos^{-1} \left(\frac{g}{h}\right)}{3} - \frac{\pi}{\frac{3}{2}}\right) \cdot \frac{\sqrt{3}}{2} + \frac{1}{2} \cdot \log \left(e^{\cos \left(\left(\frac{\pi}{6} - \frac{\pi}{\frac{3}{2}}\right) - \frac{\sin^{-1} \left(\frac{g}{h}\right)}{3}\right)}\right)\right)double f(double g, double h) {
double r5454406 = 2.0;
double r5454407 = atan2(1.0, 0.0);
double r5454408 = r5454406 * r5454407;
double r5454409 = 3.0;
double r5454410 = r5454408 / r5454409;
double r5454411 = g;
double r5454412 = -r5454411;
double r5454413 = h;
double r5454414 = r5454412 / r5454413;
double r5454415 = acos(r5454414);
double r5454416 = r5454415 / r5454409;
double r5454417 = r5454410 + r5454416;
double r5454418 = cos(r5454417);
double r5454419 = r5454406 * r5454418;
return r5454419;
}
double f(double g, double h) {
double r5454420 = 2.0;
double r5454421 = g;
double r5454422 = h;
double r5454423 = r5454421 / r5454422;
double r5454424 = acos(r5454423);
double r5454425 = 3.0;
double r5454426 = r5454424 / r5454425;
double r5454427 = atan2(1.0, 0.0);
double r5454428 = 1.5;
double r5454429 = r5454427 / r5454428;
double r5454430 = r5454426 - r5454429;
double r5454431 = sin(r5454430);
double r5454432 = sqrt(r5454425);
double r5454433 = r5454432 / r5454420;
double r5454434 = r5454431 * r5454433;
double r5454435 = 0.5;
double r5454436 = 6.0;
double r5454437 = r5454427 / r5454436;
double r5454438 = r5454437 - r5454429;
double r5454439 = asin(r5454423);
double r5454440 = r5454439 / r5454425;
double r5454441 = r5454438 - r5454440;
double r5454442 = cos(r5454441);
double r5454443 = exp(r5454442);
double r5454444 = log(r5454443);
double r5454445 = r5454435 * r5454444;
double r5454446 = r5454434 + r5454445;
double r5454447 = r5454420 * r5454446;
return r5454447;
}



Bits error versus g



Bits error versus h
Results
Initial program 1.0
Simplified1.0
rmApplied distribute-frac-neg1.0
Applied acos-neg1.0
Applied div-sub1.0
Applied associate-+l-1.0
Applied cos-diff0.1
Simplified0.1
Simplified0.1
rmApplied acos-asin0.1
Applied div-sub0.1
Applied associate--l-0.0
rmApplied add-log-exp0.0
Simplified0.0
Final simplification0.0
herbie shell --seed 2019144
(FPCore (g h)
:name "2-ancestry mixing, negative discriminant"
(* 2 (cos (+ (/ (* 2 PI) 3) (/ (acos (/ (- g) h)) 3)))))