2 \cdot \tan^{-1} \left(\sqrt{\frac{1 - x}{1 + x}}\right)2 \cdot \tan^{-1} \left(\sqrt{\frac{1}{\sqrt{1 + x}}} \cdot \sqrt{\frac{1 - x}{\sqrt{1 + x}}}\right)double f(double x) {
double r15793 = 2.0;
double r15794 = 1.0;
double r15795 = x;
double r15796 = r15794 - r15795;
double r15797 = r15794 + r15795;
double r15798 = r15796 / r15797;
double r15799 = sqrt(r15798);
double r15800 = atan(r15799);
double r15801 = r15793 * r15800;
return r15801;
}
double f(double x) {
double r15802 = 2.0;
double r15803 = 1.0;
double r15804 = 1.0;
double r15805 = x;
double r15806 = r15804 + r15805;
double r15807 = sqrt(r15806);
double r15808 = r15803 / r15807;
double r15809 = sqrt(r15808);
double r15810 = r15804 - r15805;
double r15811 = r15810 / r15807;
double r15812 = sqrt(r15811);
double r15813 = r15809 * r15812;
double r15814 = atan(r15813);
double r15815 = r15802 * r15814;
return r15815;
}



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