\tan^{-1} \left(N + 1\right) - \tan^{-1} N\tan^{-1}_* \frac{1}{1 + \left(N \cdot N + 1 \cdot N\right)}double f(double N) {
double r7232038 = N;
double r7232039 = 1.0;
double r7232040 = r7232038 + r7232039;
double r7232041 = atan(r7232040);
double r7232042 = atan(r7232038);
double r7232043 = r7232041 - r7232042;
return r7232043;
}
double f(double N) {
double r7232044 = 1.0;
double r7232045 = 1.0;
double r7232046 = N;
double r7232047 = r7232046 * r7232046;
double r7232048 = r7232044 * r7232046;
double r7232049 = r7232047 + r7232048;
double r7232050 = r7232045 + r7232049;
double r7232051 = atan2(r7232044, r7232050);
return r7232051;
}




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