\left(\left(e^{x}\right) \bmod \left(\sqrt{\cos x}\right)\right) \cdot e^{-x}
\begin{array}{l}
t_0 := \sqrt[3]{\log \left(e^{\frac{\left(\left(e^{x}\right) \bmod \left(\sqrt{\cos x}\right)\right)}{e^{x}}}\right)}\\
t_1 := \log \left(e^{t_0}\right)\\
t_1 \cdot \left(t_0 \cdot t_1\right)
\end{array}
(FPCore (x) :precision binary64 (* (fmod (exp x) (sqrt (cos x))) (exp (- x))))
(FPCore (x)
:precision binary64
(let* ((t_0 (cbrt (log (exp (/ (fmod (exp x) (sqrt (cos x))) (exp x))))))
(t_1 (log (exp t_0))))
(* t_1 (* t_0 t_1))))double code(double x) {
return fmod(exp(x), sqrt(cos(x))) * exp(-x);
}
double code(double x) {
double t_0 = cbrt(log(exp(fmod(exp(x), sqrt(cos(x))) / exp(x))));
double t_1 = log(exp(t_0));
return t_1 * (t_0 * t_1);
}



Bits error versus x
Initial program 59.6
Simplified59.6
Applied add-log-exp_binary6459.6
Applied add-cube-cbrt_binary6459.6
Applied add-log-exp_binary6459.6
Applied add-log-exp_binary6459.6
Final simplification59.6
herbie shell --seed 2022097
(FPCore (x)
:name "expfmod"
:precision binary64
(* (fmod (exp x) (sqrt (cos x))) (exp (- x))))