\frac{1 - \cos x}{x \cdot x}\begin{array}{l}
\mathbf{if}\;x \le -0.0349912626132538249:\\
\;\;\;\;\frac{1}{x} \cdot \frac{\frac{\left(1 \cdot 1\right) \cdot \left(1 \cdot 1\right) - \left(\cos x \cdot \cos x\right) \cdot \left(\cos x \cdot \cos x\right)}{\left({\left(\cos x\right)}^{2} + 1 \cdot 1\right) \cdot \left(1 + \cos x\right)}}{x}\\
\mathbf{elif}\;x \le 0.0273076678347106937:\\
\;\;\;\;\left(\frac{1}{720} \cdot {x}^{4} + \frac{1}{2}\right) - \frac{1}{24} \cdot {x}^{2}\\
\mathbf{else}:\\
\;\;\;\;\frac{\frac{1 \cdot x - x \cdot \cos x}{x}}{x \cdot x}\\
\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.034991262613253825)) {
VAR = ((double) (((double) (1.0 / x)) * ((double) (((double) (((double) (((double) (((double) (1.0 * 1.0)) * ((double) (1.0 * 1.0)))) - ((double) (((double) (((double) cos(x)) * ((double) cos(x)))) * ((double) (((double) cos(x)) * ((double) cos(x)))))))) / ((double) (((double) (((double) pow(((double) cos(x)), 2.0)) + ((double) (1.0 * 1.0)))) * ((double) (1.0 + ((double) cos(x)))))))) / x))));
} else {
double VAR_1;
if ((x <= 0.027307667834710694)) {
VAR_1 = ((double) (((double) (((double) (0.001388888888888889 * ((double) pow(x, 4.0)))) + 0.5)) - ((double) (0.041666666666666664 * ((double) pow(x, 2.0))))));
} else {
VAR_1 = ((double) (((double) (((double) (((double) (1.0 * x)) - ((double) (x * ((double) cos(x)))))) / x)) / ((double) (x * x))));
}
VAR = VAR_1;
}
return VAR;
}



Bits error versus x
Results
if x < -0.0349912626132538249Initial program 1.1
rmApplied *-un-lft-identity1.1
Applied times-frac0.5
rmApplied flip--0.7
rmApplied flip--0.8
Applied associate-/l/0.8
Simplified0.8
if -0.0349912626132538249 < x < 0.0273076678347106937Initial program 62.3
Taylor expanded around 0 0.0
if 0.0273076678347106937 < x Initial program 0.9
rmApplied *-un-lft-identity0.9
Applied times-frac0.5
rmApplied div-sub0.6
rmApplied frac-sub1.0
Applied associate-*r/1.0
Simplified0.9
Final simplification0.4
herbie shell --seed 2020153
(FPCore (x)
:name "cos2 (problem 3.4.1)"
:precision binary64
(/ (- 1.0 (cos x)) (* x x)))