\frac{e^{x} - 1}{x}\begin{array}{l}
\mathbf{if}\;x \leq -0.0012132432878267402:\\
\;\;\;\;\frac{e^{x}}{x} - \frac{1}{x}\\
\mathbf{else}:\\
\;\;\;\;1 + x \cdot \left(0.5 + x \cdot \left(0.16666666666666666 + x \cdot 0.041666666666666664\right)\right)\\
\end{array}(FPCore (x) :precision binary64 (/ (- (exp x) 1.0) x))
(FPCore (x)
:precision binary64
(if (<= x -0.0012132432878267402)
(- (/ (exp x) x) (/ 1.0 x))
(+
1.0
(* x (+ 0.5 (* x (+ 0.16666666666666666 (* x 0.041666666666666664))))))))double code(double x) {
return (exp(x) - 1.0) / x;
}
double code(double x) {
double tmp;
if (x <= -0.0012132432878267402) {
tmp = (exp(x) / x) - (1.0 / x);
} else {
tmp = 1.0 + (x * (0.5 + (x * (0.16666666666666666 + (x * 0.041666666666666664)))));
}
return tmp;
}



Bits error versus x
Results
if x < -0.00121324328782674022Initial program 0.0
rmApplied div-sub_binary64_4240.0
if -0.00121324328782674022 < x Initial program 60.1
Taylor expanded around 0 0.4
Simplified0.4
Final simplification0.3
herbie shell --seed 2021046
(FPCore (x)
:name "Kahan's exp quotient"
:precision binary64
(/ (- (exp x) 1.0) x))