2 \cdot \cos \left(\frac{2 \cdot \pi}{3} + \frac{\cos^{-1} \left(\frac{-g}{h}\right)}{3}\right)
\begin{array}{l}
t_0 := \sqrt[3]{e^{\cos \left(\mathsf{fma}\left(\pi, 0.6666666666666666, \frac{\cos^{-1} \left(\frac{-g}{h}\right)}{3}\right)\right)}}\\
2 \cdot \left(\log \left(t_0 \cdot t_0\right) + \log t_0\right)
\end{array}
(FPCore (g h) :precision binary64 (* 2.0 (cos (+ (/ (* 2.0 PI) 3.0) (/ (acos (/ (- g) h)) 3.0)))))
(FPCore (g h)
:precision binary64
(let* ((t_0
(cbrt
(exp (cos (fma PI 0.6666666666666666 (/ (acos (/ (- g) h)) 3.0)))))))
(* 2.0 (+ (log (* t_0 t_0)) (log t_0)))))double code(double g, double h) {
return 2.0 * cos(((2.0 * ((double) M_PI)) / 3.0) + (acos(-g / h) / 3.0));
}
double code(double g, double h) {
double t_0 = cbrt(exp(cos(fma(((double) M_PI), 0.6666666666666666, (acos(-g / h) / 3.0)))));
return 2.0 * (log(t_0 * t_0) + log(t_0));
}



Bits error versus g



Bits error versus h
Initial program 1.0
Simplified1.0
Applied add-log-exp_binary641.0
Applied add-cube-cbrt_binary640.1
Applied log-prod_binary640.1
Final simplification0.1
herbie shell --seed 2022101
(FPCore (g h)
:name "2-ancestry mixing, negative discriminant"
:precision binary64
(* 2.0 (cos (+ (/ (* 2.0 PI) 3.0) (/ (acos (/ (- g) h)) 3.0)))))