\frac{\left(1 + \frac{1}{\varepsilon}\right) \cdot e^{-\left(1 - \varepsilon\right) \cdot x} - \left(\frac{1}{\varepsilon} - 1\right) \cdot e^{-\left(1 + \varepsilon\right) \cdot x}}{2}\begin{array}{l}
\mathbf{if}\;x \le 64.8190525609748:\\
\;\;\;\;\frac{1}{2} \cdot \mathsf{fma}\left(x \cdot x, \mathsf{fma}\left(x, \frac{2}{3}, -1\right), 2\right)\\
\mathbf{else}:\\
\;\;\;\;\frac{1}{2} \cdot \left(\left(e^{\left(\varepsilon - 1\right) \cdot x} + \frac{e^{\left(\varepsilon - 1\right) \cdot x}}{\varepsilon}\right) - \frac{\frac{1}{\varepsilon} - 1}{e^{\mathsf{fma}\left(\varepsilon, x, x\right)}}\right)\\
\end{array}double f(double x, double eps) {
double r1853233 = 1.0;
double r1853234 = eps;
double r1853235 = r1853233 / r1853234;
double r1853236 = r1853233 + r1853235;
double r1853237 = r1853233 - r1853234;
double r1853238 = x;
double r1853239 = r1853237 * r1853238;
double r1853240 = -r1853239;
double r1853241 = exp(r1853240);
double r1853242 = r1853236 * r1853241;
double r1853243 = r1853235 - r1853233;
double r1853244 = r1853233 + r1853234;
double r1853245 = r1853244 * r1853238;
double r1853246 = -r1853245;
double r1853247 = exp(r1853246);
double r1853248 = r1853243 * r1853247;
double r1853249 = r1853242 - r1853248;
double r1853250 = 2.0;
double r1853251 = r1853249 / r1853250;
return r1853251;
}
double f(double x, double eps) {
double r1853252 = x;
double r1853253 = 64.8190525609748;
bool r1853254 = r1853252 <= r1853253;
double r1853255 = 0.5;
double r1853256 = r1853252 * r1853252;
double r1853257 = 0.6666666666666666;
double r1853258 = -1.0;
double r1853259 = fma(r1853252, r1853257, r1853258);
double r1853260 = 2.0;
double r1853261 = fma(r1853256, r1853259, r1853260);
double r1853262 = r1853255 * r1853261;
double r1853263 = eps;
double r1853264 = 1.0;
double r1853265 = r1853263 - r1853264;
double r1853266 = r1853265 * r1853252;
double r1853267 = exp(r1853266);
double r1853268 = r1853267 / r1853263;
double r1853269 = r1853267 + r1853268;
double r1853270 = r1853264 / r1853263;
double r1853271 = r1853270 - r1853264;
double r1853272 = fma(r1853263, r1853252, r1853252);
double r1853273 = exp(r1853272);
double r1853274 = r1853271 / r1853273;
double r1853275 = r1853269 - r1853274;
double r1853276 = r1853255 * r1853275;
double r1853277 = r1853254 ? r1853262 : r1853276;
return r1853277;
}



Bits error versus x



Bits error versus eps
if x < 64.8190525609748Initial program 39.0
Simplified39.0
Taylor expanded around 0 1.4
Simplified1.4
Taylor expanded around 0 1.4
Simplified1.4
if 64.8190525609748 < x Initial program 0.1
Simplified0.2
Taylor expanded around inf 0.2
Final simplification1.1
herbie shell --seed 2019163 +o rules:numerics
(FPCore (x eps)
:name "NMSE Section 6.1 mentioned, A"
(/ (- (* (+ 1 (/ 1 eps)) (exp (- (* (- 1 eps) x)))) (* (- (/ 1 eps) 1) (exp (- (* (+ 1 eps) x))))) 2))