\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 \leq 523.0649211994058:\\
\;\;\;\;\frac{{\left(\sqrt[3]{x} \cdot \sqrt[3]{x}\right)}^{3} \cdot \left(x \cdot 0.6666666666666667\right) + \left(2 - 1 \cdot \left(x \cdot x\right)\right)}{2}\\
\mathbf{else}:\\
\;\;\;\;\frac{\left(\left(1 + \frac{1}{\varepsilon}\right) \cdot \sqrt{{\left(e^{1 - \varepsilon}\right)}^{\left(-x\right)}}\right) \cdot \sqrt{e^{x \cdot \left(\varepsilon - 1\right)}} + e^{x \cdot \left(\left(-\varepsilon\right) - 1\right)} \cdot \left(1 - \frac{1}{\varepsilon}\right)}{2}\\
\end{array}(FPCore (x eps) :precision binary64 (/ (- (* (+ 1.0 (/ 1.0 eps)) (exp (- (* (- 1.0 eps) x)))) (* (- (/ 1.0 eps) 1.0) (exp (- (* (+ 1.0 eps) x))))) 2.0))
(FPCore (x eps)
:precision binary64
(if (<= x 523.0649211994058)
(/
(+
(* (pow (* (cbrt x) (cbrt x)) 3.0) (* x 0.6666666666666667))
(- 2.0 (* 1.0 (* x x))))
2.0)
(/
(+
(*
(* (+ 1.0 (/ 1.0 eps)) (sqrt (pow (exp (- 1.0 eps)) (- x))))
(sqrt (exp (* x (- eps 1.0)))))
(* (exp (* x (- (- eps) 1.0))) (- 1.0 (/ 1.0 eps))))
2.0)))double code(double x, double eps) {
return (((double) (((double) (((double) (1.0 + (1.0 / eps))) * ((double) exp(((double) -(((double) (((double) (1.0 - eps)) * x)))))))) - ((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 tmp;
if ((x <= 523.0649211994058)) {
tmp = (((double) (((double) (((double) pow(((double) (((double) cbrt(x)) * ((double) cbrt(x)))), 3.0)) * ((double) (x * 0.6666666666666667)))) + ((double) (2.0 - ((double) (1.0 * ((double) (x * x)))))))) / 2.0);
} else {
tmp = (((double) (((double) (((double) (((double) (1.0 + (1.0 / eps))) * ((double) sqrt(((double) pow(((double) exp(((double) (1.0 - eps)))), ((double) -(x)))))))) * ((double) sqrt(((double) exp(((double) (x * ((double) (eps - 1.0)))))))))) + ((double) (((double) exp(((double) (x * ((double) (((double) -(eps)) - 1.0)))))) * ((double) (1.0 - (1.0 / eps))))))) / 2.0);
}
return tmp;
}



Bits error versus x



Bits error versus eps
Results
if x < 523.064921199405831Initial program Error: 39.8 bits
Taylor expanded around 0 Error: 1.2 bits
SimplifiedError: 1.2 bits
rmApplied add-cube-cbrtError: 1.2 bits
Applied unpow-prod-downError: 1.2 bits
Applied associate-*l*Error: 1.2 bits
SimplifiedError: 1.2 bits
if 523.064921199405831 < x Initial program Error: 0.1 bits
rmApplied add-sqr-sqrtError: 0.1 bits
Applied associate-*r*Error: 0.1 bits
SimplifiedError: 0.1 bits
Final simplificationError: 0.9 bits
herbie shell --seed 2020204
(FPCore (x eps)
:name "NMSE Section 6.1 mentioned, A"
:precision binary64
(/ (- (* (+ 1.0 (/ 1.0 eps)) (exp (- (* (- 1.0 eps) x)))) (* (- (/ 1.0 eps) 1.0) (exp (- (* (+ 1.0 eps) x))))) 2.0))