\frac{1 - \cos x}{x \cdot x}\begin{array}{l}
\mathbf{if}\;x \le -0.03115379972147733905751820771001803223044:\\
\;\;\;\;\frac{\frac{1 - \cos x}{x}}{x}\\
\mathbf{elif}\;x \le 0.02739005695178562543867784029316680971533:\\
\;\;\;\;\frac{1}{2} + \left(x \cdot x\right) \cdot \left(\left(x \cdot x\right) \cdot \frac{1}{720} - \frac{1}{24}\right)\\
\mathbf{else}:\\
\;\;\;\;\frac{\frac{1 - \cos x}{x}}{x}\\
\end{array}double f(double x) {
double r715906 = 1.0;
double r715907 = x;
double r715908 = cos(r715907);
double r715909 = r715906 - r715908;
double r715910 = r715907 * r715907;
double r715911 = r715909 / r715910;
return r715911;
}
double f(double x) {
double r715912 = x;
double r715913 = -0.03115379972147734;
bool r715914 = r715912 <= r715913;
double r715915 = 1.0;
double r715916 = cos(r715912);
double r715917 = r715915 - r715916;
double r715918 = r715917 / r715912;
double r715919 = r715918 / r715912;
double r715920 = 0.027390056951785625;
bool r715921 = r715912 <= r715920;
double r715922 = 0.5;
double r715923 = r715912 * r715912;
double r715924 = 0.001388888888888889;
double r715925 = r715923 * r715924;
double r715926 = 0.041666666666666664;
double r715927 = r715925 - r715926;
double r715928 = r715923 * r715927;
double r715929 = r715922 + r715928;
double r715930 = r715921 ? r715929 : r715919;
double r715931 = r715914 ? r715919 : r715930;
return r715931;
}



Bits error versus x
Results
if x < -0.03115379972147734 or 0.027390056951785625 < x Initial program 1.0
rmApplied *-un-lft-identity1.0
Applied times-frac0.5
rmApplied associate-*r/0.5
Simplified0.5
if -0.03115379972147734 < x < 0.027390056951785625Initial program 62.4
Taylor expanded around 0 0.0
Simplified0.0
Final simplification0.2
herbie shell --seed 2019172
(FPCore (x)
:name "cos2 (problem 3.4.1)"
(/ (- 1.0 (cos x)) (* x x)))