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 r125102 = 2.0;
double r125103 = atan2(1.0, 0.0);
double r125104 = r125102 * r125103;
double r125105 = 3.0;
double r125106 = r125104 / r125105;
double r125107 = g;
double r125108 = -r125107;
double r125109 = h;
double r125110 = r125108 / r125109;
double r125111 = acos(r125110);
double r125112 = r125111 / r125105;
double r125113 = r125106 + r125112;
double r125114 = cos(r125113);
double r125115 = r125102 * r125114;
return r125115;
}
double f(double g, double h) {
double r125116 = 2.0;
double r125117 = atan2(1.0, 0.0);
double r125118 = r125116 * r125117;
double r125119 = 3.0;
double r125120 = r125118 / r125119;
double r125121 = r125117 / r125119;
double r125122 = r125120 + r125121;
double r125123 = cos(r125122);
double r125124 = g;
double r125125 = h;
double r125126 = r125124 / r125125;
double r125127 = acos(r125126);
double r125128 = r125127 / r125119;
double r125129 = cos(r125128);
double r125130 = r125123 * r125129;
double r125131 = sin(r125122);
double r125132 = sin(r125128);
double r125133 = r125131 * r125132;
double r125134 = r125130 + r125133;
double r125135 = r125116 * r125134;
return r125135;
}



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