\frac{e^{x} - 1}{x}
\mathsf{expm1}\left(\mathsf{log1p}\left(\frac{\mathsf{expm1}\left(x\right)}{x}\right)\right)
(FPCore (x) :precision binary64 (/ (- (exp x) 1.0) x))
(FPCore (x) :precision binary64 (expm1 (log1p (/ (expm1 x) x))))
double code(double x) {
return (exp(x) - 1.0) / x;
}
double code(double x) {
return expm1(log1p(expm1(x) / x));
}




Bits error versus x
Results
| Original | 40.5 |
|---|---|
| Target | 41.0 |
| Herbie | 0.0 |
Initial program 40.5
Simplified0.0
Applied expm1-log1p-u_binary640.0
Final simplification0.0
herbie shell --seed 2021215
(FPCore (x)
:name "Kahan's exp quotient"
:precision binary64
:herbie-target
(if (and (< x 1.0) (> x -1.0)) (/ (- (exp x) 1.0) (log (exp x))) (/ (- (exp x) 1.0) x))
(/ (- (exp x) 1.0) x))