2 \cdot \tan^{-1} \left(\sqrt{\frac{1 - x}{1 + x}}\right)
\begin{array}{l}
t_0 := \frac{1 - x}{1 + x}\\
2 \cdot \tan^{-1} \left(\sqrt[3]{t_0} \cdot {t_0}^{0.16666666666666666}\right)
\end{array}
(FPCore (x) :precision binary64 (* 2.0 (atan (sqrt (/ (- 1.0 x) (+ 1.0 x))))))
(FPCore (x) :precision binary64 (let* ((t_0 (/ (- 1.0 x) (+ 1.0 x)))) (* 2.0 (atan (* (cbrt t_0) (pow t_0 0.16666666666666666))))))
double code(double x) {
return 2.0 * atan(sqrt((1.0 - x) / (1.0 + x)));
}
double code(double x) {
double t_0 = (1.0 - x) / (1.0 + x);
return 2.0 * atan(cbrt(t_0) * pow(t_0, 0.16666666666666666));
}



Bits error versus x
Results
Initial program 0.0
Applied add-cube-cbrt_binary640.0
Applied sqrt-prod_binary640.0
Simplified0.0
Applied add-cube-cbrt_binary640.1
Simplified0.0
Simplified0.0
Final simplification0.0
herbie shell --seed 2022103
(FPCore (x)
:name "arccos"
:precision binary64
(* 2.0 (atan (sqrt (/ (- 1.0 x) (+ 1.0 x))))))