\cos \left(x + \varepsilon\right) - \cos x
\begin{array}{l}
t_0 := \cos x \cdot \cos \varepsilon\\
\mathbf{if}\;\varepsilon \leq -0.00016768600443699762:\\
\;\;\;\;t_0 - \mathsf{fma}\left(\sin \varepsilon, \sin x, \cos x\right)\\
\mathbf{elif}\;\varepsilon \leq 0.00015166749856064068:\\
\;\;\;\;\mathsf{fma}\left(\sin x, 0.16666666666666666 \cdot {\varepsilon}^{3} - \varepsilon, \cos x \cdot \left(\left(\varepsilon \cdot \varepsilon\right) \cdot -0.5\right)\right)\\
\mathbf{else}:\\
\;\;\;\;t_0 - \left(\cos x + \sin \varepsilon \cdot \sin x\right)\\
\end{array}
(FPCore (x eps) :precision binary64 (- (cos (+ x eps)) (cos x)))
(FPCore (x eps)
:precision binary64
(let* ((t_0 (* (cos x) (cos eps))))
(if (<= eps -0.00016768600443699762)
(- t_0 (fma (sin eps) (sin x) (cos x)))
(if (<= eps 0.00015166749856064068)
(fma
(sin x)
(- (* 0.16666666666666666 (pow eps 3.0)) eps)
(* (cos x) (* (* eps eps) -0.5)))
(- t_0 (+ (cos x) (* (sin eps) (sin x))))))))double code(double x, double eps) {
return cos(x + eps) - cos(x);
}
double code(double x, double eps) {
double t_0 = cos(x) * cos(eps);
double tmp;
if (eps <= -0.00016768600443699762) {
tmp = t_0 - fma(sin(eps), sin(x), cos(x));
} else if (eps <= 0.00015166749856064068) {
tmp = fma(sin(x), ((0.16666666666666666 * pow(eps, 3.0)) - eps), (cos(x) * ((eps * eps) * -0.5)));
} else {
tmp = t_0 - (cos(x) + (sin(eps) * sin(x)));
}
return tmp;
}



Bits error versus x



Bits error versus eps
if eps < -1.67686004436997624e-4Initial program 30.7
rmApplied cos-sum_binary640.9
Applied associate--l-_binary640.9
Simplified0.9
if -1.67686004436997624e-4 < eps < 1.51667498560640685e-4Initial program 49.1
Taylor expanded around 0 0.2
Simplified0.2
if 1.51667498560640685e-4 < eps Initial program 30.9
rmApplied cos-sum_binary640.9
Applied associate--l-_binary640.9
Final simplification0.5
herbie shell --seed 2021210
(FPCore (x eps)
:name "2cos (problem 3.3.5)"
:precision binary64
(- (cos (+ x eps)) (cos x)))