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 r15480 = 2.0;
double r15481 = 1.0;
double r15482 = x;
double r15483 = r15481 - r15482;
double r15484 = r15481 + r15482;
double r15485 = r15483 / r15484;
double r15486 = sqrt(r15485);
double r15487 = atan(r15486);
double r15488 = r15480 * r15487;
return r15488;
}
double f(double x) {
double r15489 = 2.0;
double r15490 = 1.0;
double r15491 = 1.0;
double r15492 = x;
double r15493 = r15491 + r15492;
double r15494 = sqrt(r15493);
double r15495 = r15490 / r15494;
double r15496 = sqrt(r15495);
double r15497 = r15491 - r15492;
double r15498 = r15497 / r15494;
double r15499 = sqrt(r15498);
double r15500 = r15496 * r15499;
double r15501 = atan(r15500);
double r15502 = r15489 * r15501;
return r15502;
}



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
(FPCore (x)
:name "arccos"
:precision binary64
(* 2 (atan (sqrt (/ (- 1 x) (+ 1 x))))))