\cos \left(x + \varepsilon\right) - \cos x
\begin{array}{l}
\mathbf{if}\;\varepsilon \le -1.347365952010613 \cdot 10^{-07}:\\
\;\;\;\;\left(\cos x \cdot \cos \varepsilon - \sin x \cdot \sin \varepsilon\right) - \cos x\\
\mathbf{elif}\;\varepsilon \le 2.2247927857601395 \cdot 10^{-06}:\\
\;\;\;\;-2 \cdot \left(\sin \left(\frac{\varepsilon}{2}\right) \cdot \sin \left(\frac{\left(x + \varepsilon\right) + x}{2}\right)\right)\\
\mathbf{else}:\\
\;\;\;\;\left(\cos x \cdot \cos \varepsilon - \sin x \cdot \sin \varepsilon\right) - \cos x\\
\end{array}double f(double x, double eps) {
double r430055 = x;
double r430056 = eps;
double r430057 = r430055 + r430056;
double r430058 = cos(r430057);
double r430059 = cos(r430055);
double r430060 = r430058 - r430059;
return r430060;
}
double f(double x, double eps) {
double r430061 = eps;
double r430062 = -1.347365952010613e-07;
bool r430063 = r430061 <= r430062;
double r430064 = x;
double r430065 = cos(r430064);
double r430066 = cos(r430061);
double r430067 = r430065 * r430066;
double r430068 = sin(r430064);
double r430069 = sin(r430061);
double r430070 = r430068 * r430069;
double r430071 = r430067 - r430070;
double r430072 = r430071 - r430065;
double r430073 = 2.2247927857601395e-06;
bool r430074 = r430061 <= r430073;
double r430075 = -2.0;
double r430076 = 2.0;
double r430077 = r430061 / r430076;
double r430078 = sin(r430077);
double r430079 = r430064 + r430061;
double r430080 = r430079 + r430064;
double r430081 = r430080 / r430076;
double r430082 = sin(r430081);
double r430083 = r430078 * r430082;
double r430084 = r430075 * r430083;
double r430085 = r430074 ? r430084 : r430072;
double r430086 = r430063 ? r430072 : r430085;
return r430086;
}



Bits error versus x



Bits error versus eps
Results
if eps < -1.347365952010613e-07 or 2.2247927857601395e-06 < eps Initial program 30.3
rmApplied cos-sum1.0
if -1.347365952010613e-07 < eps < 2.2247927857601395e-06Initial program 48.9
rmApplied diff-cos38.1
Simplified0.4
Final simplification0.7
herbie shell --seed 2019153
(FPCore (x eps)
:name "2cos (problem 3.3.5)"
(- (cos (+ x eps)) (cos x)))