\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 1.53596880288237458:\\
\;\;\;\;\sqrt[3]{{\left(\left(0.33333333333333337 \cdot {x}^{3} + 1\right) - 0.5 \cdot {x}^{2}\right)}^{3}}\\
\mathbf{else}:\\
\;\;\;\;\left(\frac{\frac{1 + \frac{1}{\varepsilon}}{e^{\left(1 - \varepsilon\right) \cdot x}}}{2} - \frac{\frac{\frac{1}{\varepsilon}}{e^{\left(1 + \varepsilon\right) \cdot x}}}{2}\right) + \frac{\frac{1}{e^{\left(1 + \varepsilon\right) \cdot x}}}{2}\\
\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 <= 1.5359688028823746)) {
VAR = ((double) cbrt(((double) pow(((double) (((double) (((double) (0.33333333333333337 * ((double) pow(x, 3.0)))) + 1.0)) - ((double) (0.5 * ((double) pow(x, 2.0)))))), 3.0))));
} else {
VAR = ((double) (((double) (((double) (((double) (((double) (1.0 + ((double) (1.0 / eps)))) / ((double) exp(((double) (((double) (1.0 - eps)) * x)))))) / 2.0)) - ((double) (((double) (((double) (1.0 / eps)) / ((double) exp(((double) (((double) (1.0 + eps)) * x)))))) / 2.0)))) + ((double) (((double) (1.0 / ((double) exp(((double) (((double) (1.0 + eps)) * x)))))) / 2.0))));
}
return VAR;
}



Bits error versus x



Bits error versus eps
Results
if x < 1.5359688028823746Initial program 40.0
Simplified40.0
Taylor expanded around 0 1.2
rmApplied add-cbrt-cube1.2
Simplified1.2
if 1.5359688028823746 < x Initial program 0.4
Simplified0.4
rmApplied div-sub0.4
Applied div-sub0.4
Applied associate--r-0.4
Final simplification1.0
herbie shell --seed 2020113
(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))