\cos \left(x + \varepsilon\right) - \cos x
\begin{array}{l}
\mathbf{if}\;\varepsilon \le -1.184078211908822 \cdot 10^{-13}:\\
\;\;\;\;\frac{\mathsf{fma}\left(\cos \varepsilon, \cos x, -\mathsf{fma}\left(\sin x, \sin \varepsilon, \cos x\right)\right) \cdot \left(\left(\cos x \cdot \cos \varepsilon - \sin x \cdot \sin \varepsilon\right) + \cos x\right)}{\left(\cos x \cdot \cos \varepsilon - \sin x \cdot \sin \varepsilon\right) + \cos x}\\
\mathbf{elif}\;\varepsilon \le 1.69858524052719363 \cdot 10^{-7}:\\
\;\;\;\;\varepsilon \cdot \left(\left(\frac{1}{6} \cdot {x}^{3} - x\right) - \varepsilon \cdot \frac{1}{2}\right)\\
\mathbf{else}:\\
\;\;\;\;\log \left(e^{\mathsf{fma}\left(\cos x, \cos \varepsilon, -\mathsf{fma}\left(\sin x, \sin \varepsilon, \cos x\right)\right)}\right)\\
\end{array}double code(double x, double eps) {
return (cos((x + eps)) - cos(x));
}
double code(double x, double eps) {
double VAR;
if ((eps <= -1.184078211908822e-13)) {
VAR = ((fma(cos(eps), cos(x), -fma(sin(x), sin(eps), cos(x))) * (((cos(x) * cos(eps)) - (sin(x) * sin(eps))) + cos(x))) / (((cos(x) * cos(eps)) - (sin(x) * sin(eps))) + cos(x)));
} else {
double VAR_1;
if ((eps <= 1.6985852405271936e-07)) {
VAR_1 = (eps * (((0.16666666666666666 * pow(x, 3.0)) - x) - (eps * 0.5)));
} else {
VAR_1 = log(exp(fma(cos(x), cos(eps), -fma(sin(x), sin(eps), cos(x)))));
}
VAR = VAR_1;
}
return VAR;
}



Bits error versus x



Bits error versus eps
Results
if eps < -1.184078211908822e-13Initial program 30.9
rmApplied cos-sum1.9
rmApplied flip--2.3
Simplified1.9
if -1.184078211908822e-13 < eps < 1.6985852405271936e-07Initial program 48.8
Taylor expanded around 0 31.7
Simplified31.7
if 1.6985852405271936e-07 < eps Initial program 29.8
rmApplied cos-sum1.1
Applied associate--l-1.1
Simplified1.1
rmApplied fma-neg1.1
rmApplied add-log-exp1.2
Final simplification16.3
herbie shell --seed 2020079 +o rules:numerics
(FPCore (x eps)
:name "2cos (problem 3.3.5)"
:precision binary64
(- (cos (+ x eps)) (cos x)))