\frac{\cos \left(2 \cdot x\right)}{{cos}^{2} \cdot \left(\left(x \cdot {sin}^{2}\right) \cdot x\right)}\begin{array}{l}
\mathbf{if}\;x \le -6.606769180032518 \cdot 10^{-270}:\\
\;\;\;\;\frac{\frac{\cos \left(2 \cdot x\right)}{x \cdot \left(cos \cdot sin\right)}}{x \cdot \left(cos \cdot sin\right)}\\
\mathbf{else}:\\
\;\;\;\;\frac{1}{\left(cos \cdot x\right) \cdot sin} \cdot \left(\frac{\cos \left(2 \cdot x\right)}{sin} \cdot \frac{\frac{1}{x}}{cos}\right)\\
\end{array}double f(double x, double cos, double sin) {
double r963866 = 2.0;
double r963867 = x;
double r963868 = r963866 * r963867;
double r963869 = cos(r963868);
double r963870 = cos;
double r963871 = pow(r963870, r963866);
double r963872 = sin;
double r963873 = pow(r963872, r963866);
double r963874 = r963867 * r963873;
double r963875 = r963874 * r963867;
double r963876 = r963871 * r963875;
double r963877 = r963869 / r963876;
return r963877;
}
double f(double x, double cos, double sin) {
double r963878 = x;
double r963879 = -6.606769180032518e-270;
bool r963880 = r963878 <= r963879;
double r963881 = 2.0;
double r963882 = r963881 * r963878;
double r963883 = cos(r963882);
double r963884 = cos;
double r963885 = sin;
double r963886 = r963884 * r963885;
double r963887 = r963878 * r963886;
double r963888 = r963883 / r963887;
double r963889 = r963888 / r963887;
double r963890 = 1.0;
double r963891 = r963884 * r963878;
double r963892 = r963891 * r963885;
double r963893 = r963890 / r963892;
double r963894 = r963883 / r963885;
double r963895 = r963890 / r963878;
double r963896 = r963895 / r963884;
double r963897 = r963894 * r963896;
double r963898 = r963893 * r963897;
double r963899 = r963880 ? r963889 : r963898;
return r963899;
}



Bits error versus x



Bits error versus cos



Bits error versus sin
Results
if x < -6.606769180032518e-270Initial program 26.8
Simplified2.4
rmApplied associate-/r*2.1
if -6.606769180032518e-270 < x Initial program 27.9
Simplified3.6
Taylor expanded around -inf 31.8
Simplified3.0
rmApplied *-un-lft-identity3.0
Applied times-frac2.9
rmApplied *-un-lft-identity2.9
Applied times-frac3.0
rmApplied associate-/r*3.0
Final simplification2.5
herbie shell --seed 2019152
(FPCore (x cos sin)
:name "cos(2*x)/(cos^2(x)*sin^2(x))"
(/ (cos (* 2 x)) (* (pow cos 2) (* (* x (pow sin 2)) x))))