2 \cdot \tan^{-1} \left(\sqrt{\frac{1 - x}{1 + x}}\right)2 \cdot \tan^{-1} \left(\sqrt{\frac{\frac{1 - x}{\sqrt{1 + x}}}{\sqrt{1 + x}}}\right)(FPCore (x) :precision binary64 (* 2.0 (atan (sqrt (/ (- 1.0 x) (+ 1.0 x))))))
(FPCore (x) :precision binary64 (* 2.0 (atan (sqrt (/ (/ (- 1.0 x) (sqrt (+ 1.0 x))) (sqrt (+ 1.0 x)))))))
double code(double x) {
return 2.0 * atan(sqrt((1.0 - x) / (1.0 + x)));
}
double code(double x) {
return 2.0 * atan(sqrt(((1.0 - x) / sqrt(1.0 + x)) / sqrt(1.0 + x)));
}



Bits error versus x
Results
Initial program 0.0
rmApplied add-sqr-sqrt_binary640.0
Applied associate-/r*_binary640.0
Final simplification0.0
herbie shell --seed 2020220
(FPCore (x)
:name "arccos"
:precision binary64
(* 2.0 (atan (sqrt (/ (- 1.0 x) (+ 1.0 x))))))