2 \cdot \tan^{-1} \left(\sqrt{\frac{1 - x}{1 + x}}\right)2 \cdot \tan^{-1} \left(\sqrt{\frac{\sqrt{1 - x}}{\sqrt{1 + x}} \cdot \frac{\sqrt{1 - x}}{\sqrt{1 + x}}}\right)double f(double x) {
double r29869 = 2.0;
double r29870 = 1.0;
double r29871 = x;
double r29872 = r29870 - r29871;
double r29873 = r29870 + r29871;
double r29874 = r29872 / r29873;
double r29875 = sqrt(r29874);
double r29876 = atan(r29875);
double r29877 = r29869 * r29876;
return r29877;
}
double f(double x) {
double r29878 = 2.0;
double r29879 = 1.0;
double r29880 = x;
double r29881 = r29879 - r29880;
double r29882 = sqrt(r29881);
double r29883 = r29879 + r29880;
double r29884 = sqrt(r29883);
double r29885 = r29882 / r29884;
double r29886 = r29885 * r29885;
double r29887 = sqrt(r29886);
double r29888 = atan(r29887);
double r29889 = r29878 * r29888;
return r29889;
}



Bits error versus x
Results
Initial program 0.0
rmApplied add-sqr-sqrt0.0
Applied add-sqr-sqrt0.0
Applied times-frac0.0
Final simplification0.0
herbie shell --seed 2019306 +o rules:numerics
(FPCore (x)
:name "arccos"
:precision binary64
(* 2 (atan (sqrt (/ (- 1 x) (+ 1 x))))))