\frac{e^{x}}{e^{x} - 1}\begin{array}{l}
\mathbf{if}\;e^{x} \leq 0.9870522792702024:\\
\;\;\;\;\left(\sqrt[3]{e^{x}} \cdot \frac{\sqrt[3]{e^{x}}}{\sqrt{e^{x}} + \sqrt{1}}\right) \cdot \frac{\sqrt[3]{e^{x}}}{\sqrt{e^{x}} - \sqrt{1}}\\
\mathbf{else}:\\
\;\;\;\;0.5 + \left(x \cdot 0.08333333333333333 + \frac{1}{x}\right)\\
\end{array}(FPCore (x) :precision binary64 (/ (exp x) (- (exp x) 1.0)))
(FPCore (x)
:precision binary64
(if (<= (exp x) 0.9870522792702024)
(*
(* (cbrt (exp x)) (/ (cbrt (exp x)) (+ (sqrt (exp x)) (sqrt 1.0))))
(/ (cbrt (exp x)) (- (sqrt (exp x)) (sqrt 1.0))))
(+ 0.5 (+ (* x 0.08333333333333333) (/ 1.0 x)))))double code(double x) {
return (((double) exp(x)) / ((double) (((double) exp(x)) - 1.0)));
}
double code(double x) {
double tmp;
if ((((double) exp(x)) <= 0.9870522792702024)) {
tmp = ((double) (((double) (((double) cbrt(((double) exp(x)))) * (((double) cbrt(((double) exp(x)))) / ((double) (((double) sqrt(((double) exp(x)))) + ((double) sqrt(1.0))))))) * (((double) cbrt(((double) exp(x)))) / ((double) (((double) sqrt(((double) exp(x)))) - ((double) sqrt(1.0)))))));
} else {
tmp = ((double) (0.5 + ((double) (((double) (x * 0.08333333333333333)) + (1.0 / x)))));
}
return tmp;
}




Bits error versus x
Results
| Original | 41.6 |
|---|---|
| Target | 41.2 |
| Herbie | 0.6 |
if (exp x) < 0.987052279270202448Initial program Error: 0.0 bits
rmApplied add-sqr-sqrtError: 0.0 bits
Applied add-sqr-sqrtError: 0.0 bits
Applied difference-of-squaresError: 0.0 bits
Applied add-cube-cbrtError: 0.0 bits
Applied times-fracError: 0.0 bits
SimplifiedError: 0.0 bits
if 0.987052279270202448 < (exp x) Initial program Error: 62.1 bits
Taylor expanded around 0 Error: 0.9 bits
SimplifiedError: 0.9 bits
Final simplificationError: 0.6 bits
herbie shell --seed 2020204
(FPCore (x)
:name "expq2 (section 3.11)"
:precision binary64
:herbie-target
(/ 1.0 (- 1.0 (exp (- x))))
(/ (exp x) (- (exp x) 1.0)))