\tan^{-1} \left(N + 1\right) - \tan^{-1} N\tan^{-1}_* \frac{1}{1 + \mathsf{fma}\left(N, N, N\right)}double f(double N) {
double r2993611 = N;
double r2993612 = 1.0;
double r2993613 = r2993611 + r2993612;
double r2993614 = atan(r2993613);
double r2993615 = atan(r2993611);
double r2993616 = r2993614 - r2993615;
return r2993616;
}
double f(double N) {
double r2993617 = 1.0;
double r2993618 = N;
double r2993619 = fma(r2993618, r2993618, r2993618);
double r2993620 = r2993617 + r2993619;
double r2993621 = atan2(r2993617, r2993620);
return r2993621;
}




Bits error versus N
| Original | 14.9 |
|---|---|
| Target | 0.4 |
| Herbie | 0.4 |
Initial program 14.9
rmApplied diff-atan13.7
Simplified0.4
Simplified0.4
rmApplied fma-udef0.4
Simplified0.4
Final simplification0.4
herbie shell --seed 2019163 +o rules:numerics
(FPCore (N)
:name "2atan (example 3.5)"
:herbie-target
(atan (/ 1 (+ 1 (* N (+ N 1)))))
(- (atan (+ N 1)) (atan N)))