\tan^{-1} \left(N + 1\right) - \tan^{-1} N\tan^{-1}_* \frac{1}{\mathsf{fma}\left(N, N + 1, 1\right)}double f(double N) {
double r123334 = N;
double r123335 = 1.0;
double r123336 = r123334 + r123335;
double r123337 = atan(r123336);
double r123338 = atan(r123334);
double r123339 = r123337 - r123338;
return r123339;
}
double f(double N) {
double r123340 = 1.0;
double r123341 = N;
double r123342 = r123341 + r123340;
double r123343 = 1.0;
double r123344 = fma(r123341, r123342, r123343);
double r123345 = atan2(r123340, r123344);
return r123345;
}




Bits error versus N
| Original | 15.6 |
|---|---|
| Target | 0.4 |
| Herbie | 0.4 |
Initial program 15.6
rmApplied diff-atan14.3
Simplified0.4
Simplified0.4
Final simplification0.4
herbie shell --seed 2020045 +o rules:numerics
(FPCore (N)
:name "2atan (example 3.5)"
:precision binary64
:herbie-target
(atan (/ 1 (+ 1 (* N (+ N 1)))))
(- (atan (+ N 1)) (atan N)))