\frac{e^{x}}{e^{x} - 1}\frac{e^{x}}{(e^{x} - 1)^*}double f(double x) {
double r7013240 = x;
double r7013241 = exp(r7013240);
double r7013242 = 1.0;
double r7013243 = r7013241 - r7013242;
double r7013244 = r7013241 / r7013243;
return r7013244;
}
double f(double x) {
double r7013245 = x;
double r7013246 = exp(r7013245);
double r7013247 = expm1(r7013245);
double r7013248 = r7013246 / r7013247;
return r7013248;
}




Bits error versus x
Results
| Original | 39.9 |
|---|---|
| Target | 39.5 |
| Herbie | 0.4 |
Initial program 39.9
rmApplied expm1-def0.4
Final simplification0.4
herbie shell --seed 2019107 +o rules:numerics
(FPCore (x)
:name "expq2 (section 3.11)"
:herbie-target
(/ 1 (- 1 (exp (- x))))
(/ (exp x) (- (exp x) 1)))