\tan^{-1} \left(N + 1\right) - \tan^{-1} N\mathsf{log1p}\left(\mathsf{expm1}\left(\tan^{-1}_* \frac{1}{\mathsf{fma}\left(N, N + 1, 1\right)}\right)\right)double code(double N) {
return (atan((N + 1.0)) - atan(N));
}
double code(double N) {
return log1p(expm1(atan2(1.0, fma(N, (N + 1.0), 1.0))));
}




Bits error versus N
Results
| Original | 15.0 |
|---|---|
| Target | 0.3 |
| Herbie | 0.3 |
Initial program 15.0
rmApplied diff-atan13.8
Simplified0.3
Simplified0.3
rmApplied log1p-expm1-u0.3
Final simplification0.3
herbie shell --seed 2020106 +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)))