\cos \left(x + \varepsilon\right) - \cos x
\begin{array}{l}
\mathbf{if}\;\varepsilon \le -1.2287993160767815 \cdot 10^{-8}:\\
\;\;\;\;\left(\cos x \cdot \cos \varepsilon - \sin x \cdot \sin \varepsilon\right) - \cos x\\
\mathbf{elif}\;\varepsilon \le 6.96602540580691368 \cdot 10^{-6}:\\
\;\;\;\;\left(-2 \cdot \sin \left(\frac{\varepsilon}{2}\right)\right) \cdot \sin \left(\frac{\left(x + \varepsilon\right) + x}{2}\right)\\
\mathbf{else}:\\
\;\;\;\;\cos x \cdot \cos \varepsilon - \left(\sin x \cdot \sin \varepsilon + \cos x\right)\\
\end{array}double f(double x, double eps) {
double r36368 = x;
double r36369 = eps;
double r36370 = r36368 + r36369;
double r36371 = cos(r36370);
double r36372 = cos(r36368);
double r36373 = r36371 - r36372;
return r36373;
}
double f(double x, double eps) {
double r36374 = eps;
double r36375 = -1.2287993160767815e-08;
bool r36376 = r36374 <= r36375;
double r36377 = x;
double r36378 = cos(r36377);
double r36379 = cos(r36374);
double r36380 = r36378 * r36379;
double r36381 = sin(r36377);
double r36382 = sin(r36374);
double r36383 = r36381 * r36382;
double r36384 = r36380 - r36383;
double r36385 = r36384 - r36378;
double r36386 = 6.966025405806914e-06;
bool r36387 = r36374 <= r36386;
double r36388 = -2.0;
double r36389 = 2.0;
double r36390 = r36374 / r36389;
double r36391 = sin(r36390);
double r36392 = r36388 * r36391;
double r36393 = r36377 + r36374;
double r36394 = r36393 + r36377;
double r36395 = r36394 / r36389;
double r36396 = sin(r36395);
double r36397 = r36392 * r36396;
double r36398 = r36383 + r36378;
double r36399 = r36380 - r36398;
double r36400 = r36387 ? r36397 : r36399;
double r36401 = r36376 ? r36385 : r36400;
return r36401;
}



Bits error versus x



Bits error versus eps
Results
if eps < -1.2287993160767815e-08Initial program 30.3
rmApplied cos-sum1.1
if -1.2287993160767815e-08 < eps < 6.966025405806914e-06Initial program 48.6
rmApplied diff-cos36.8
Simplified0.3
rmApplied associate-*r*0.3
if 6.966025405806914e-06 < eps Initial program 30.0
rmApplied cos-sum0.9
Applied associate--l-0.9
Final simplification0.7
herbie shell --seed 2019198
(FPCore (x eps)
:name "2cos (problem 3.3.5)"
(- (cos (+ x eps)) (cos x)))