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} + \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) \cdot \frac{1}{2}\right)double f(double g, double h) {
double r4814568 = 2.0;
double r4814569 = atan2(1.0, 0.0);
double r4814570 = r4814568 * r4814569;
double r4814571 = 3.0;
double r4814572 = r4814570 / r4814571;
double r4814573 = g;
double r4814574 = -r4814573;
double r4814575 = h;
double r4814576 = r4814574 / r4814575;
double r4814577 = acos(r4814576);
double r4814578 = r4814577 / r4814571;
double r4814579 = r4814572 + r4814578;
double r4814580 = cos(r4814579);
double r4814581 = r4814568 * r4814580;
return r4814581;
}
double f(double g, double h) {
double r4814582 = 2.0;
double r4814583 = g;
double r4814584 = h;
double r4814585 = r4814583 / r4814584;
double r4814586 = acos(r4814585);
double r4814587 = 3.0;
double r4814588 = r4814586 / r4814587;
double r4814589 = atan2(1.0, 0.0);
double r4814590 = 1.5;
double r4814591 = r4814589 / r4814590;
double r4814592 = r4814588 - r4814591;
double r4814593 = sin(r4814592);
double r4814594 = sqrt(r4814587);
double r4814595 = r4814594 / r4814582;
double r4814596 = r4814593 * r4814595;
double r4814597 = 6.0;
double r4814598 = r4814589 / r4814597;
double r4814599 = r4814598 - r4814591;
double r4814600 = asin(r4814585);
double r4814601 = r4814600 / r4814587;
double r4814602 = r4814599 - r4814601;
double r4814603 = cos(r4814602);
double r4814604 = exp(r4814603);
double r4814605 = log(r4814604);
double r4814606 = 0.5;
double r4814607 = r4814605 * r4814606;
double r4814608 = r4814596 + r4814607;
double r4814609 = r4814582 * r4814608;
return r4814609;
}



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.0
Applied associate--l-0.0
rmApplied add-log-exp0.0
Simplified0.0
Final simplification0.0
herbie shell --seed 2019139
(FPCore (g h)
:name "2-ancestry mixing, negative discriminant"
(* 2 (cos (+ (/ (* 2 PI) 3) (/ (acos (/ (- g) h)) 3)))))