\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 r5728214 = N;
double r5728215 = 1.0;
double r5728216 = r5728214 + r5728215;
double r5728217 = atan(r5728216);
double r5728218 = atan(r5728214);
double r5728219 = r5728217 - r5728218;
return r5728219;
}
double f(double N) {
double r5728220 = 1.0;
double r5728221 = N;
double r5728222 = r5728221 + r5728220;
double r5728223 = 1.0;
double r5728224 = fma(r5728221, r5728222, r5728223);
double r5728225 = atan2(r5728220, r5728224);
return r5728225;
}




Bits error versus N
| Original | 15.3 |
|---|---|
| Target | 0.4 |
| Herbie | 0.4 |
Initial program 15.3
rmApplied diff-atan14.2
Taylor expanded around 0 0.4
Simplified0.4
Final simplification0.4
herbie shell --seed 2019174 +o rules:numerics
(FPCore (N)
:name "2atan (example 3.5)"
:herbie-target
(atan (/ 1.0 (+ 1.0 (* N (+ N 1.0)))))
(- (atan (+ N 1.0)) (atan N)))