\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 65.506932039545148:\\
\;\;\;\;\mathsf{fma}\left(1.38778 \cdot 10^{-17}, \frac{{\left(\sqrt[3]{x} \cdot \left(\log \left(\sqrt{e^{\sqrt[3]{x}}}\right) + \log \left(\sqrt{e^{\sqrt[3]{x}}}\right)\right)\right)}^{3}}{\frac{\varepsilon}{x}}, 1 - 0.5 \cdot {x}^{2}\right)\\
\mathbf{else}:\\
\;\;\;\;\mathsf{fma}\left(\frac{e^{-\left(1 + \varepsilon\right) \cdot x}}{2}, 1 - \frac{1}{\varepsilon}, \sqrt{\frac{1 + \frac{1}{\varepsilon}}{2 \cdot e^{\left(1 - \varepsilon\right) \cdot x}}} \cdot \sqrt{\frac{1 + \frac{1}{\varepsilon}}{2 \cdot e^{\left(1 - \varepsilon\right) \cdot x}}}\right)\\
\end{array}double code(double x, double eps) {
return ((double) (((double) (((double) (((double) (1.0 + ((double) (1.0 / eps)))) * ((double) exp(((double) -(((double) (((double) (1.0 - eps)) * x)))))))) - ((double) (((double) (((double) (1.0 / eps)) - 1.0)) * ((double) exp(((double) -(((double) (((double) (1.0 + eps)) * x)))))))))) / 2.0));
}
double code(double x, double eps) {
double VAR;
if ((x <= 65.50693203954515)) {
VAR = ((double) fma(1.3877787807814457e-17, ((double) (((double) pow(((double) (((double) cbrt(x)) * ((double) (((double) log(((double) sqrt(((double) exp(((double) cbrt(x)))))))) + ((double) log(((double) sqrt(((double) exp(((double) cbrt(x)))))))))))), 3.0)) / ((double) (eps / x)))), ((double) (1.0 - ((double) (0.5 * ((double) pow(x, 2.0))))))));
} else {
VAR = ((double) fma(((double) (((double) exp(((double) -(((double) (((double) (1.0 + eps)) * x)))))) / 2.0)), ((double) (1.0 - ((double) (1.0 / eps)))), ((double) (((double) sqrt(((double) (((double) (1.0 + ((double) (1.0 / eps)))) / ((double) (2.0 * ((double) exp(((double) (((double) (1.0 - eps)) * x)))))))))) * ((double) sqrt(((double) (((double) (1.0 + ((double) (1.0 / eps)))) / ((double) (2.0 * ((double) exp(((double) (((double) (1.0 - eps)) * x))))))))))))));
}
return VAR;
}



Bits error versus x



Bits error versus eps
Results
if x < 65.50693203954515Initial program 38.8
Simplified38.8
Taylor expanded around 0 7.2
Simplified7.2
rmApplied add-cube-cbrt7.2
Applied unpow-prod-down7.2
Applied associate-/l*7.2
Simplified7.2
rmApplied add-log-exp5.6
rmApplied add-sqr-sqrt5.5
Applied log-prod5.5
if 65.50693203954515 < x Initial program 0.1
Simplified0.1
rmApplied add-sqr-sqrt0.1
Final simplification4.2
herbie shell --seed 2020121 +o rules:numerics
(FPCore (x eps)
:name "NMSE Section 6.1 mentioned, A"
:precision binary64
(/ (- (* (+ 1 (/ 1 eps)) (exp (- (* (- 1 eps) x)))) (* (- (/ 1 eps) 1) (exp (- (* (+ 1 eps) x))))) 2))