\cos \left(x + \varepsilon\right) - \cos x
\begin{array}{l}
\mathbf{if}\;\varepsilon \le -3.02333196694931366 \cdot 10^{-13}:\\
\;\;\;\;\cos x \cdot \cos \varepsilon - \log \left(e^{\sin x \cdot \sin \varepsilon + \cos x}\right)\\
\mathbf{elif}\;\varepsilon \le 1.10001026664664598 \cdot 10^{-10}:\\
\;\;\;\;\varepsilon \cdot \left(\left(\frac{1}{6} \cdot {x}^{3} - x\right) - \varepsilon \cdot \frac{1}{2}\right)\\
\mathbf{else}:\\
\;\;\;\;\mathsf{expm1}\left(\mathsf{log1p}\left(\cos x \cdot \cos \varepsilon\right)\right) - \mathsf{fma}\left(\sin x, \sin \varepsilon, \cos x\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 <= -3.0233319669493137e-13)) {
VAR = ((cos(x) * cos(eps)) - log(exp(((sin(x) * sin(eps)) + cos(x)))));
} else {
double VAR_1;
if ((eps <= 1.100010266646646e-10)) {
VAR_1 = (eps * (((0.16666666666666666 * pow(x, 3.0)) - x) - (eps * 0.5)));
} else {
VAR_1 = (expm1(log1p((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 < -3.0233319669493137e-13Initial program 31.7
rmApplied cos-sum1.8
Applied associate--l-1.8
Simplified1.8
rmApplied fma-udef1.8
rmApplied add-log-exp1.9
Applied add-log-exp2.0
Applied sum-log2.0
Simplified1.9
if -3.0233319669493137e-13 < eps < 1.100010266646646e-10Initial program 48.4
Taylor expanded around 0 30.9
Simplified30.9
if 1.100010266646646e-10 < eps Initial program 30.7
rmApplied cos-sum1.5
Applied associate--l-1.5
Simplified1.5
rmApplied expm1-log1p-u1.6
Final simplification16.0
herbie shell --seed 2020091 +o rules:numerics
(FPCore (x eps)
:name "2cos (problem 3.3.5)"
:precision binary64
(- (cos (+ x eps)) (cos x)))