2 \cdot \tan^{-1} \left(\sqrt{\frac{1 - x}{1 + x}}\right)
2 \cdot \tan^{-1} \left(\sqrt{e^{\mathsf{log1p}\left(-x\right) - \mathsf{log1p}\left(x\right)}}\right)
(FPCore (x) :precision binary64 (* 2.0 (atan (sqrt (/ (- 1.0 x) (+ 1.0 x))))))
(FPCore (x) :precision binary64 (* 2.0 (atan (sqrt (exp (- (log1p (- x)) (log1p 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(exp(log1p(-x) - log1p(x))));
}



Bits error versus x
Results
Initial program 0.0
Applied add-exp-log_binary640.0
Applied add-exp-log_binary640.0
Applied div-exp_binary640.0
Simplified0.0
Final simplification0.0
herbie shell --seed 2021275
(FPCore (x)
:name "arccos"
:precision binary64
(* 2.0 (atan (sqrt (/ (- 1.0 x) (+ 1.0 x))))))