\tan^{-1} \left(N + 1\right) - \tan^{-1} N\tan^{-1}_* \frac{1}{\sqrt{1 + \left(N + 1\right) \cdot N} \cdot \sqrt{1 + \left(N + 1\right) \cdot N}}double f(double N) {
double r55348 = N;
double r55349 = 1.0;
double r55350 = r55348 + r55349;
double r55351 = atan(r55350);
double r55352 = atan(r55348);
double r55353 = r55351 - r55352;
return r55353;
}
double f(double N) {
double r55354 = 1.0;
double r55355 = 1.0;
double r55356 = N;
double r55357 = r55356 + r55354;
double r55358 = r55357 * r55356;
double r55359 = r55355 + r55358;
double r55360 = sqrt(r55359);
double r55361 = r55360 * r55360;
double r55362 = atan2(r55354, r55361);
return r55362;
}




Bits error versus N
Results
| Original | 14.9 |
|---|---|
| Target | 0.4 |
| Herbie | 0.4 |
Initial program 14.9
rmApplied diff-atan13.7
Simplified0.4
rmApplied add-sqr-sqrt0.4
Final simplification0.4
herbie shell --seed 2019235
(FPCore (N)
:name "2atan (example 3.5)"
:precision binary64
:herbie-target
(atan (/ 1 (+ 1 (* N (+ N 1)))))
(- (atan (+ N 1)) (atan N)))