\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 r5139068 = N;
double r5139069 = 1.0;
double r5139070 = r5139068 + r5139069;
double r5139071 = atan(r5139070);
double r5139072 = atan(r5139068);
double r5139073 = r5139071 - r5139072;
return r5139073;
}
double f(double N) {
double r5139074 = 1.0;
double r5139075 = N;
double r5139076 = r5139075 + r5139074;
double r5139077 = 1.0;
double r5139078 = fma(r5139075, r5139076, r5139077);
double r5139079 = atan2(r5139074, r5139078);
return r5139079;
}




Bits error versus N
| Original | 15.2 |
|---|---|
| Target | 0.3 |
| Herbie | 0.3 |
Initial program 15.2
rmApplied diff-atan14.0
Taylor expanded around 0 0.3
Simplified0.3
Final simplification0.3
herbie shell --seed 2019179 +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)))