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




Bits error versus x
Results
| Original | 41.4 |
|---|---|
| Target | 40.9 |
| Herbie | 0.4 |
Initial program 41.4
Simplified0.4
Applied div-inv_binary640.4
Final simplification0.4
herbie shell --seed 1991292424
(FPCore (x)
:name "expq2 (section 3.11)"
:precision binary64
:herbie-target
(/ 1.0 (- 1.0 (exp (- x))))
(/ (exp x) (- (exp x) 1.0)))