\frac{1 - \cos x}{x \cdot x}\begin{array}{l}
\mathbf{if}\;x \le -0.0310671597509291596 \lor \neg \left(x \le 0.030798941289724838\right):\\
\;\;\;\;\frac{\frac{1}{x} - \frac{\cos x}{x}}{x}\\
\mathbf{else}:\\
\;\;\;\;\mathsf{expm1}\left(\mathsf{log1p}\left(\mathsf{fma}\left({x}^{4}, \frac{1}{720}, \frac{1}{2} - \frac{1}{24} \cdot {x}^{2}\right)\right)\right)\\
\end{array}double code(double x) {
return ((1.0 - cos(x)) / (x * x));
}
double code(double x) {
double VAR;
if (((x <= -0.03106715975092916) || !(x <= 0.030798941289724838))) {
VAR = (((1.0 / x) - (cos(x) / x)) / x);
} else {
VAR = expm1(log1p(fma(pow(x, 4.0), 0.001388888888888889, (0.5 - (0.041666666666666664 * pow(x, 2.0))))));
}
return VAR;
}



Bits error versus x
Results
if x < -0.03106715975092916 or 0.030798941289724838 < x Initial program 1.1
rmApplied associate-/r*0.5
rmApplied div-sub0.6
if -0.03106715975092916 < x < 0.030798941289724838Initial program 62.3
Taylor expanded around 0 0.0
Simplified0.0
rmApplied expm1-log1p-u0.0
Final simplification0.3
herbie shell --seed 2020091 +o rules:numerics
(FPCore (x)
:name "cos2 (problem 3.4.1)"
:precision binary64
(/ (- 1 (cos x)) (* x x)))