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



Bits error versus x
Initial program 59.5
Simplified59.4
Applied add-exp-log_binary6459.4
Applied add-cbrt-cube_binary6459.5
Applied add-log-exp_binary6459.5
Final simplification59.5
herbie shell --seed 2021275
(FPCore (x)
:name "expfmod"
:precision binary64
(* (fmod (exp x) (sqrt (cos x))) (exp (- x))))