\frac{1 - \cos x}{x \cdot x}\begin{array}{l}
\mathbf{if}\;x \le -0.03054575583888737 \lor \neg \left(x \le 0.03411142251183559\right):\\
\;\;\;\;\frac{1}{x} \cdot \frac{e^{\log \left(1 - \cos x\right)}}{x}\\
\mathbf{else}:\\
\;\;\;\;\frac{1}{720} \cdot {x}^{4} + \left(\frac{1}{2} - \frac{1}{24} \cdot {x}^{2}\right)\\
\end{array}double code(double x) {
return ((double) (((double) (1.0 - ((double) cos(x)))) / ((double) (x * x))));
}
double code(double x) {
double VAR;
if (((x <= -0.03054575583888737) || !(x <= 0.03411142251183559))) {
VAR = ((double) (((double) (1.0 / x)) * ((double) (((double) exp(((double) log(((double) (1.0 - ((double) cos(x)))))))) / x))));
} else {
VAR = ((double) (((double) (0.001388888888888889 * ((double) pow(x, 4.0)))) + ((double) (0.5 - ((double) (0.041666666666666664 * ((double) pow(x, 2.0))))))));
}
return VAR;
}



Bits error versus x
Results
if x < -0.03054575583888737 or 0.03411142251183559 < x Initial program 1.0
rmApplied *-un-lft-identity1.0
Applied times-frac0.5
rmApplied add-exp-log0.5
if -0.03054575583888737 < x < 0.03411142251183559Initial program 62.2
Taylor expanded around 0 0.0
rmApplied associate--l+0.0
Final simplification0.3
herbie shell --seed 2020114
(FPCore (x)
:name "cos2 (problem 3.4.1)"
:precision binary64
(/ (- 1 (cos x)) (* x x)))