\left(-x \cdot \frac{1}{\tan B}\right) + \frac{1}{\sin B}1 \cdot \left(\frac{1}{\sin B} - \frac{x \cdot \cos B}{\sin B}\right)double f(double B, double x) {
double r14898 = x;
double r14899 = 1.0;
double r14900 = B;
double r14901 = tan(r14900);
double r14902 = r14899 / r14901;
double r14903 = r14898 * r14902;
double r14904 = -r14903;
double r14905 = sin(r14900);
double r14906 = r14899 / r14905;
double r14907 = r14904 + r14906;
return r14907;
}
double f(double B, double x) {
double r14908 = 1.0;
double r14909 = 1.0;
double r14910 = B;
double r14911 = sin(r14910);
double r14912 = r14909 / r14911;
double r14913 = x;
double r14914 = cos(r14910);
double r14915 = r14913 * r14914;
double r14916 = r14915 / r14911;
double r14917 = r14912 - r14916;
double r14918 = r14908 * r14917;
return r14918;
}



Bits error versus B



Bits error versus x
Results
Initial program 0.2
rmApplied associate-*r/0.2
rmApplied tan-quot0.2
Applied associate-/r/0.2
Taylor expanded around inf 0.2
Simplified0.2
Final simplification0.2
herbie shell --seed 2020018 +o rules:numerics
(FPCore (B x)
:name "VandenBroeck and Keller, Equation (24)"
:precision binary64
(+ (- (* x (/ 1 (tan B)))) (/ 1 (sin B))))