\log \left(N + 1\right) - \log N
\mathsf{log1p}\left(\frac{1}{N}\right)
(FPCore (N) :precision binary64 (- (log (+ N 1.0)) (log N)))
(FPCore (N) :precision binary64 (log1p (/ 1.0 N)))
double code(double N) {
return log(N + 1.0) - log(N);
}
double code(double N) {
return log1p(1.0 / N);
}



Bits error versus N
Results
Initial program 29.1
Simplified29.1
rmApplied log1p-udef_binary6429.1
Applied diff-log_binary6429.0
Simplified29.0
rmApplied expm1-log1p-u_binary6429.5
Simplified0.6
rmApplied expm1-log1p_binary640.0
Final simplification0.0
herbie shell --seed 2021210
(FPCore (N)
:name "2log (problem 3.3.6)"
:precision binary64
(- (log (+ N 1.0)) (log N)))