\left(\left(e^{x}\right) \bmod \left(\sqrt{\cos x}\right)\right) \cdot e^{-x}
\begin{array}{l}
t_0 := \sqrt[3]{\sqrt{\cos x}}\\
\frac{\left(\left(e^{x}\right) \bmod \left(t_0 \cdot \left(\sqrt[3]{t_0 \cdot t_0} \cdot {\left(\sqrt[3]{{\cos x}^{0.16666666666666666}}\right)}^{4}\right)\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 (cbrt (sqrt (cos x)))))
(/
(fmod
(exp x)
(*
t_0
(*
(cbrt (* t_0 t_0))
(pow (cbrt (pow (cos x) 0.16666666666666666)) 4.0))))
(exp x))))double code(double x) {
return fmod(exp(x), sqrt(cos(x))) * exp(-x);
}
double code(double x) {
double t_0 = cbrt(sqrt(cos(x)));
return fmod(exp(x), (t_0 * (cbrt(t_0 * t_0) * pow(cbrt(pow(cos(x), 0.16666666666666666)), 4.0)))) / exp(x);
}



Bits error versus x
Initial program 59.7
Simplified59.7
Applied add-cube-cbrt_binary6459.7
Applied add-cube-cbrt_binary6459.7
Applied cbrt-prod_binary6459.7
Applied associate-*l*_binary6459.7
Simplified59.7
Final simplification59.7
herbie shell --seed 2021307
(FPCore (x)
:name "expfmod"
:precision binary64
(* (fmod (exp x) (sqrt (cos x))) (exp (- x))))